diff --git a/bld/configure b/bld/configure index dd42c8b620..20f5142d10 100755 --- a/bld/configure +++ b/bld/configure @@ -685,8 +685,8 @@ $waccm_phys = $cfg_ref->get('waccm_phys'); if ($print>=2) { print "WACCM physics: $waccm_phys$eol"; } -# WACCM includes 3 age of air tracers by default -if ($chem_pkg =~ /waccm_ma/ or $chem_pkg =~ /waccm_tsmlt/ or $chem_pkg =~ /waccm_t4ma/) { +# WACCM and CAM-Chem includes 3 age of air tracers by default +if ($chem_pkg =~ /waccm_/ or $chem_pkg =~ /trop_strat_/) { $cfg_ref->set('age_of_air_trcs', 1); } diff --git a/bld/namelist_files/namelist_defaults_cam.xml b/bld/namelist_files/namelist_defaults_cam.xml index 03e5479ac6..c778b2a799 100644 --- a/bld/namelist_files/namelist_defaults_cam.xml +++ b/bld/namelist_files/namelist_defaults_cam.xml @@ -169,11 +169,11 @@ atm/waccm/ic/waccmx_mam4_aqua_1.9x2.5_L130_c180803.nc atm/waccm/ic/waccmx_aqua_ne5np4_126L_c210304.nc atm/waccm/ic/waccmx_ne16np4_126L_c200108.nc -atm/waccm/ic/fx2000_phys-ionos-cpl_ne16_spinup03.cam.i.0002-01-01-00000_c201005.nc +atm/waccm/ic/waccmx_ne16pg3_L130_c250318.nc atm/waccm/ic/waccmx_aqua_ne16np4_126L_c191108.nc atm/waccm/ic/waccmx4_neutral_aquap_ne16np4_126lev_c200827.nc atm/waccm/ic/fx2000_phys-ionos-cpl_ne30_spinup01.cam.i.0002-01-01-00000_c201014.nc -atm/waccm/ic/waccmx_ne30pg3_c231005.nc +atm/waccm/ic/waccmx_ne30pg3_L130_c250307.nc atm/cam/inic/fv3/aqua_0006-01-01_C24_L32_c200625.nc atm/cam/inic/fv3/aqua_0006-01-01_C48_L32_c200625.nc @@ -257,7 +257,6 @@ atm/waccm/ic/wa3_ne5np4_1950_spinup.cam2.i.1960-01-01-00000_c150810.nc atm/waccm/ic/FW2000_ne30_L70_01-01-0001_c200602.nc -atm/waccm/ic/FWsc2000climo_ne30pg3_L70_0002-01-01_c221103.nc atm/waccm/ic/FW2000.ne30pg3_ne30pg3_nlev70_c230906.nc atm/waccm/ic/FWsc2000_ne30pg3_L110_01-01-0001_c200521.nc @@ -305,7 +304,7 @@ atm/cam/topo/se/ne3np4_gmted2010_modis_bedmachine_nc0540_Laplace1000_noleak_20230717.nc atm/cam/topo/se/ne3pg3_gmted2010_modis_bedmachine_nc0540_Laplace1000_noleak_20230209.nc atm/cam/topo/se/ne5pg3_nc3000_Co360_Fi001_MulG_PF_nullRR_Nsw064_20170516.nc -atm/cam/topo/se/ne16pg3_nc3000_Co120_Fi001_PF_nullRR_Nsw084_20171012.nc +atm/cam/topo/se/ne16pg3_gmted2010_modis_bedmachine_nc3000_Laplace0200_20230202.nc atm/cam/topo/se/ne30pg3_gmted2010_modis_bedmachine_nc3000_Laplace0100_noleak_20240720.nc atm/cam/topo/se/ne60pg3_nc3000_Co030_Fi001_PF_nullRR_Nsw021_20171012.nc atm/cam/topo/se/ne120pg3_nc3000_Co015_Fi001_PF_nullRR_Nsw010_20171014.nc @@ -3171,8 +3170,10 @@ 3 2 4 + 10 9 8 + 5 2 3 3 @@ -3187,6 +3188,7 @@ 2 4 20 + 60 4 2 4 @@ -3231,10 +3233,12 @@ 7.5 7.5 -1 + 30 30 30 1 + 2 .false. .true. @@ -3246,10 +3250,11 @@ 1 3 - 5 + 3 2 - 2 + 3 3 + 4 2 4 4 @@ -3262,6 +3267,7 @@ 2 2 4 + 2 3 -1 diff --git a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml index 753c2e0035..ddf35535b8 100644 --- a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml +++ b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml @@ -25,7 +25,7 @@ .true. 1980/MERRA2_1.9x2.5_19800101.nc atm/cam/met/MERRA2/1.9x2.5 -atm/cam/met/MERRA2/1.9x2.5/filenames_list_c190911.txt +atm/cam/met/MERRA2/1.9x2.5/filenames_list_1980-2023_c240324 1980/MERRA2_0.9x1.25_19800101.nc 1980/MERRA2_0.9x1.25_19800101.nc 2005/MERRA2_0.9x1.25_20050101.nc diff --git a/bld/namelist_files/use_cases/waccm_ma_hist_cam7.xml b/bld/namelist_files/use_cases/waccm_ma_hist_cam7.xml index 2fc5a3a8a2..5543a8ddc9 100644 --- a/bld/namelist_files/use_cases/waccm_ma_hist_cam7.xml +++ b/bld/namelist_files/use_cases/waccm_ma_hist_cam7.xml @@ -20,9 +20,6 @@ atm/waccm/ic/FHIST_WXma_ne30pg3_spinup03.cam.i.1980-01-01-00000_c250201.nc atm/waccm/ic/FHIST_WXma_ne16pg3_spinup02.cam.i.1980-01-01-00000_c250201.nc - -atm/cam/topo/se/ne16pg3_gmted2010_modis_bedmachine_nc3000_Laplace0200_20230202.nc - SERIAL atm/waccm/lb/LBC_17500116-20150116_CMIP6_0p5degLat_c180905.nc diff --git a/bld/namelist_files/use_cases/waccm_sc_hist_cam7.xml b/bld/namelist_files/use_cases/waccm_sc_hist_cam7.xml index c4032df718..91efaae03a 100644 --- a/bld/namelist_files/use_cases/waccm_sc_hist_cam7.xml +++ b/bld/namelist_files/use_cases/waccm_sc_hist_cam7.xml @@ -16,9 +16,6 @@ atm/waccm/ic/FHIST_WXma_ne30pg3_spinup03.cam.i.1980-01-01-00000_c250201.nc atm/waccm/ic/FHIST_WXma_ne16pg3_spinup02.cam.i.1980-01-01-00000_c250201.nc - -atm/cam/topo/se/ne16pg3_gmted2010_modis_bedmachine_nc3000_Laplace0200_20230202.nc - SERIAL atm/waccm/lb/LBC_17500116-20150116_CMIP6_0p5degLat_c180905.nc diff --git a/cime_config/config_component.xml b/cime_config/config_component.xml index 31dbc1c28b..35bdba94f9 100644 --- a/cime_config/config_component.xml +++ b/cime_config/config_component.xml @@ -156,8 +156,6 @@ - -age_of_air_trcs - -age_of_air_trcs -chem waccm_ma -chem waccm_ma_mam5 -chem waccm_mad_mam5 diff --git a/doc/ChangeLog b/doc/ChangeLog index 534b3a4b51..c6d0f97f98 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,4 +1,190 @@ +=============================================================== + +Tag name: cam6_4_084 +Originator(s): fvitt +Date: 8 Apr 2025 +One-line Summary: Updates to nitrogen chemistry relevant to the thermosphere +Github PR URL: https://github.com/ESCOMP/CAM/pull/1283 + +Purpose of changes (include the issue number and title text for each relevant GitHub issue): + + Updates to nitrogen chemistry, as described in issue #1155. + +Describe any changes made to build system: N/A + +Describe any changes made to the namelist: N/A + +List any changes to the defaults for the boundary datasets: N/A + +Describe any substantial timing or memory changes: N/A + +Code reviewed by: cacraigucar + +List all files eliminated: N/A + +List all files added and what they do: N/A + +List all existing files that have been modified, and describe the changes: + +M bld/configure + - include age-of-air tracers in CAM-Chem as well as WACCM default configurations + +M bld/namelist_files/namelist_defaults_cam.xml + - spun up ne16 and ne30 ICs for WACCMX6 + - update default ne16pg3 topo file + - update se namelist opts for WACCM(x)6 + +M bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml + - use updated filenames list + +M bld/namelist_files/use_cases/waccm_ma_hist_cam7.xml +M bld/namelist_files/use_cases/waccm_sc_hist_cam7.xml + - use updated default ne16pg3 topo file + +M cime_config/config_component.xml + - age-of-air defaults handled in bld/configure + +M src/chemistry/mozart/mo_usrrxt.F90 + - add customized rate calculations (appropriate for the thermosphere) + for reactions: + N + O2 -> NO + O + N2D + O2 -> NO + O + N2D + e -> N + e + +M src/chemistry/pp_waccm_ma_mam5/chem_mech.doc +M src/chemistry/pp_waccm_ma_mam5/chem_mech.in +M src/chemistry/pp_waccm_ma_mam5/chem_mods.F90 +M src/chemistry/pp_waccm_ma_mam5/m_rxt_id.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_adjrxt.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_indprd.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_lu_factor.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_prod_loss.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_setrxt.F90 +M src/chemistry/pp_waccm_ma_mam5/mo_sim_dat.F90 +M src/chemistry/pp_waccm_mad_mam5/chem_mech.doc +M src/chemistry/pp_waccm_mad_mam5/chem_mech.in +M src/chemistry/pp_waccm_mad_mam5/chem_mods.F90 +M src/chemistry/pp_waccm_mad_mam5/m_rxt_id.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_adjrxt.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_indprd.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_lu_factor.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_lu_solve.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_prod_loss.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_setrxt.F90 +M src/chemistry/pp_waccm_mad_mam5/mo_sim_dat.F90 +M src/chemistry/pp_waccm_t4ma_mam5/chem_mech.doc +M src/chemistry/pp_waccm_t4ma_mam5/chem_mech.in +M src/chemistry/pp_waccm_t4ma_mam5/chem_mods.F90 +M src/chemistry/pp_waccm_t4ma_mam5/m_rxt_id.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_adjrxt.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_indprd.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_lu_factor.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_prod_loss.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_setrxt.F90 +M src/chemistry/pp_waccm_t4ma_mam5/mo_sim_dat.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.doc +M src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.in +M src/chemistry/pp_waccm_tsmlt_mam5/chem_mods.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/m_rxt_id.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_adjrxt.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_indprd.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_factor.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_solve.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_prod_loss.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_setrxt.F90 +M src/chemistry/pp_waccm_tsmlt_mam5/mo_sim_dat.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.doc +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.in +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mods.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_rxt_id.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_spc_id.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_adjrxt.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_indprd.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_factor.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_solve.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_prod_loss.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_setrxt.F90 +M src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_sim_dat.F90 + - updates to nitrogen chemistry for thermosphere +If there were any failures reported from running test_driver.sh on any test +platform, and checkin with these failures has been OK'd by the gatekeeper, +then copy the lines from the td.*.status files for the failed tests to the +appropriate machine below. All failed tests must be justified. + +derecho/intel/aux_cam: + DIFF SMS_Ld1.f09_f09_mg17.FCHIST_GC.derecho_intel.cam-outfrq1d + DIFF SMS_Lh12.f09_f09_mg17.FCSD_HCO.derecho_intel.cam-outfrq3h + FAIL ERP_Ln9.f09_f09_mg17.FCSD_HCO.derecho_intel.cam-outfrq9s + - pre-existing failures due to HEMCO not having reproducible results (issues #1018 and #856) + + FAIL SMS_D_Ln9_P1280x1.ne0CONUSne30x8_ne0CONUSne30x8_mt12.FCHIST.derecho_intel.cam-outfrq9s + - pre-existing failures due to build-namelist error requiring CLM/CTSM external update + + DIFF SMS_D_Ln9_P1280x1.ne30pg3_ne30pg3_mt232.FHISTC_MTt1s.derecho_intel.cam-outfrq9s_Leung_dust + - differences are in age-of-air tracers, otherwise bit-for-bit + + DIFF ERS_Ln9.f09_f09_mg17.FX2000.derecho_intel.cam-outfrq9s + DIFF ERS_Ln9.f19_f19_mg17.FXSD.derecho_intel.cam-outfrq9s + DIFF SMS_D_Ln9.f19_f19_mg17.FWma2000climo.derecho_intel.cam-outfrq9s + DIFF SMS_Ld1.f09_f09_mg17.FW2000climo.derecho_intel.cam-outfrq1d + DIFF SMS_Ln9.f09_f09_mg17.FW1850.derecho_intel.cam-reduced_hist3s + - expected changes due to waccm chemistry updates + + DIFF ERP_Ld3.ne16pg3_ne16pg3_mg17.FHISTC_WAt1ma.derecho_intel.cam-reduced_hist1d + DIFF ERP_Ln9.ne30pg3_ne30pg3_mg17.FHISTC_WAma.derecho_intel.cam-outfrq9s + DIFF SMS_C2_D_Ln9.ne16pg3_ne16pg3_mg17.FHISTC_WXma.derecho_intel.cam-outfrq9s + DIFF SMS_D_Ln9.ne16_ne16_mg17.QPX2000.derecho_intel.cam-outfrq9s_amie + DIFF SMS_Ln9.ne30pg3_ne30pg3_mg17.FW2000climo.derecho_intel.cam-outfrq9s_rrtmgp + DIFF ERS_Ln9.ne30pg3_ne30pg3_mg17.FHISTC_WXma.derecho_intel.cam-outfrq9s + - expected changes due to waccm chemistry updates + and changes in se_ namelist setteings + +derecho/nvhpc/aux_cam: + FAIL ERS_Ln9.ne30pg3_ne30pg3_mg17.F2000dev.derecho_nvhpc.cam-outfrq9s_gpu_default + - machine issue + +izumi/nag/aux_cam: + DIFF ERC_D_Ln9.f10_f10_mg37.QPWmaC6.izumi_nag.cam-outfrq3s + - expected changes due to waccm chemistry updates + + DIFF SMS_D_Ln3.ne5pg3_ne5pg3_mg37.QPX2000.izumi_nag.cam-outfrq3s + - expected changes due to waccm chemistry updates + and changes in se_ namelist setteings + + DIFF SMS_D_Ln6.ne5_ne5_mg37.QPWmaC4.izumi_nag.cam-outfrq3s_physgrid_tem + - expected differences due to changes in se_ namelist setteings + +izumi/gnu/aux_cam: + DIFF ERC_D_Ln9.f10_f10_mg37.QPC4.izumi_gnu.cam-outfrq3s_diags + - differences are in age-of-air tracers, otherwise bit-for-bit + + DIFF ERP_Ln9_P24x2.f45_f45_mg37.QPWmaC6.izumi_gnu.cam-outfrq9s_mee_fluxes + - expected changes due to waccm chemistry updates + +CAM tag used for the baseline comparison tests if different than previous +tag: + cam6_4_082 for derecho tests + +Summarize any changes to answers: + larger than roundoff for WACCM configurations + +=============================================================== =============================================================== Tag name: cam6_4_083 diff --git a/src/chemistry/mozart/mo_usrrxt.F90 b/src/chemistry/mozart/mo_usrrxt.F90 index 177d3dd04e..dd7da670dd 100644 --- a/src/chemistry/mozart/mo_usrrxt.F90 +++ b/src/chemistry/mozart/mo_usrrxt.F90 @@ -32,6 +32,9 @@ module mo_usrrxt integer :: usr_DMS_OH_ndx integer :: usr_HO2_aer_ndx integer :: usr_GLYOXAL_aer_ndx + integer :: usr_N_O2_ndx + integer :: usr_N2D_O2_ndx + integer :: usr_N2D_e_ndx integer :: tag_NO2_NO3_ndx integer :: tag_NO2_OH_ndx @@ -273,6 +276,9 @@ subroutine usrrxt_inti usr_MPAN_M_ndx = get_rxt_ndx( 'usr_MPAN_M' ) usr_XOOH_OH_ndx = get_rxt_ndx( 'usr_XOOH_OH' ) usr_SO2_OH_ndx = get_rxt_ndx( 'usr_SO2_OH' ) + usr_N_O2_ndx = get_rxt_ndx( 'usr_N_O2' ) + usr_N2D_O2_ndx = get_rxt_ndx( 'usr_N2D_O2' ) + usr_N2D_e_ndx = get_rxt_ndx( 'usr_N2D_e' ) usr_DMS_OH_ndx = get_rxt_ndx( 'usr_DMS_OH' ) usr_HO2_aer_ndx = get_rxt_ndx( 'usr_HO2_aer' ) usr_GLYOXAL_aer_ndx = get_rxt_ndx( 'usr_GLYOXAL_aer' ) @@ -569,7 +575,7 @@ subroutine usrrxt_inti write(iulog,'(10i5)') usr_O_O2_ndx,usr_HO2_HO2_ndx,tag_NO2_NO3_ndx,usr_N2O5_M_ndx,tag_NO2_OH_ndx,usr_HNO3_OH_ndx & ,tag_NO2_HO2_ndx,usr_HO2NO2_M_ndx,usr_N2O5_aer_ndx,usr_NO3_aer_ndx,usr_NO2_aer_ndx & ,usr_CO_OH_b_ndx,tag_C2H4_OH_ndx,tag_C3H6_OH_ndx,tag_CH3CO3_NO2_ndx,usr_PAN_M_ndx,usr_CH3COCH3_OH_ndx & - ,usr_MCO3_NO2_ndx,usr_MPAN_M_ndx,usr_XOOH_OH_ndx,usr_SO2_OH_ndx,usr_DMS_OH_ndx,usr_HO2_aer_ndx & + ,usr_MCO3_NO2_ndx,usr_MPAN_M_ndx,usr_XOOH_OH_ndx,usr_SO2_OH_ndx,usr_N2D_O2_ndx,usr_N2D_e_ndx,usr_N_O2_ndx,usr_DMS_OH_ndx,usr_HO2_aer_ndx & ,usr_GLYOXAL_aer_ndx,usr_ISOPNITA_aer_ndx,usr_ISOPNITB_aer_ndx,usr_ONITR_aer_ndx,usr_HONITR_aer_ndx & ,usr_TERPNIT_aer_ndx,usr_NTERPOOH_aer_ndx,usr_NC4CHO_aer_ndx,usr_NC4CH2OH_aer_ndx,usr_ISOPZD1O2_ndx & ,usr_ISOPZD4O2_ndx,usr_ISOPFDN_aer_ndx,usr_ISOPFNP_aer_ndx,usr_ISOPN2B_aer_ndx,usr_ISOPN1D_aer_ndx & @@ -1092,6 +1098,39 @@ subroutine usrrxt( state, rxt, temp, tempi, tempe, invariants, h2ovmr, & rxt(:,k,usr_CH3COCH3_OH_ndx) = 3.82e-11_r8 * exp_fac(:) + 1.33e-13_r8 end if +!----------------------------------------------------------------- +! ... N + O2 -> NO + O +! Rate coefficients calculated by J. Orlando, D. Kinnison, and J. Zhang (2024) +! from data published in: +! "Kinetics of the Reactions of N(4S) Atoms with O2 and CO2 over Wide Temperatures Ranges" +! Abel Fernandez, A. Goumri, and Arthur Fontijn, 1998 +! https://doi.org/10.1021/jp972365k +!----------------------------------------------------------------- + if( usr_N_O2_ndx > 0 ) then + call comp_exp( exp_fac, -2557._r8*tinv, ncol ) + rxt(:,k,usr_N_O2_ndx) = 2.0e-18_r8 * temp(:ncol,k)**2.15_r8 * exp_fac(:) + end if + +!----------------------------------------------------------------- +! ... N2D + O2 -> NO + O +! "On the rate coefficient of the N(2D)+O2->NO+O reaction in the terrestrial thermosphere" +! Duff, J.W., H. Dothe, and R. D. Sharma, 2003 +! https://doi.org/10.1029/2002GL016720 +!----------------------------------------------------------------- + if( usr_N2D_O2_ndx > 0 ) then + rxt(:,k,usr_N2D_O2_ndx) = 6.2e-12_r8 * temp(:ncol,k)/300.0_r8 + end if + +!----------------------------------------------------------------- +! ... N2D + e -> N + e Roble, 1995 +! "Energetics of the Mesosphere and Thermosphere" +! R. Roble, 1995 +! https://doi.org/10.1029/GM087p0001 +!----------------------------------------------------------------- + if( usr_N2D_e_ndx > 0 ) then + rxt(:,k,usr_N2D_e_ndx) = 3.6e-10_r8 * sqrt(tempe(:ncol,k)/300.0_r8) + end if + !----------------------------------------------------------------- ! ... DMS + OH --> .5 * SO2 ! JPL15-10 (use [O2] = 0.21*[M]) diff --git a/src/chemistry/pp_waccm_ma_mam5/chem_mech.doc b/src/chemistry/pp_waccm_ma_mam5/chem_mech.doc index 5712d4ca8a..73232a760c 100644 --- a/src/chemistry/pp_waccm_ma_mam5/chem_mech.doc +++ b/src/chemistry/pp_waccm_ma_mam5/chem_mech.doc @@ -361,14 +361,14 @@ Class List ki=2.60E-11 f=0.60 usr_HO2_HO2 ( 36) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (127) - HO2NO2_OH ( 37) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (128) - N2D_O ( 38) N2D + O -> N + O rate = 7.00E-13 (129) - N2D_O2 ( 39) N2D + O2 -> NO + O1D rate = 5.00E-12 (130) - N_NO ( 40) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (131) - N_NO2a ( 41) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (132) - N_NO2b ( 42) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (133) - N_NO2c ( 43) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (134) - N_O2 ( 44) N + O2 -> NO + O rate = 3.30E-12*exp( -3150./t) (135) + agn2d ( 37) N2D -> N rate = 1.06E-05 (128) + HO2NO2_OH ( 38) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (129) + N2D_NO ( 39) N2D + NO -> N2 + O rate = 7.00E-11 (130) + N2D_O ( 40) N2D + O -> N + O rate = 7.00E-13 (131) + N_NO ( 41) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (132) + N_NO2a ( 42) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (133) + N_NO2b ( 43) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (134) + N_NO2c ( 44) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (135) NO2_O ( 45) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (136) NO2_O3 ( 46) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (137) NO2_O_M ( 47) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (138) @@ -397,198 +397,199 @@ Class List f=0.60 usr_HNO3_OH ( 61) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (152) usr_HO2NO2_M ( 62) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (153) - usr_N2O5_M ( 63) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (154) - CL_CH2O ( 64) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (155) - CL_CH4 ( 65) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (156) - CL_H2 ( 66) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (157) - CL_H2O2 ( 67) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (158) - CL_HO2a ( 68) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (159) - CL_HO2b ( 69) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (160) - CL_O3 ( 70) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (161) - CLO_CH3O2 ( 71) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (162) - CLO_CLOa ( 72) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (163) - CLO_CLOb ( 73) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (164) - CLO_CLOc ( 74) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (165) - CLO_HO2 ( 75) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (166) - CLO_NO ( 76) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (167) - CLONO2_CL ( 77) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (168) - CLO_NO2_M ( 78) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (169) + usr_N2D_e ( 63) N2D + e -> N + e rate = ** User defined ** (154) + usr_N2D_O2 ( 64) N2D + O2 -> NO + O1D rate = ** User defined ** (155) + usr_N2O5_M ( 65) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (156) + usr_N_O2 ( 66) N + O2 -> NO + O rate = ** User defined ** (157) + CL_CH2O ( 67) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (158) + CL_CH4 ( 68) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (159) + CL_H2 ( 69) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (160) + CL_H2O2 ( 70) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (161) + CL_HO2a ( 71) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (162) + CL_HO2b ( 72) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (163) + CL_O3 ( 73) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (164) + CLO_CH3O2 ( 74) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (165) + CLO_CLOa ( 75) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (166) + CLO_CLOb ( 76) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (167) + CLO_CLOc ( 77) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (168) + CLO_HO2 ( 78) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (169) + CLO_NO ( 79) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (170) + CLONO2_CL ( 80) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (171) + CLO_NO2_M ( 81) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (172) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O ( 79) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (170) - CLONO2_OH ( 80) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (171) - CLO_O ( 81) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (172) - CLO_OHa ( 82) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (173) - CLO_OHb ( 83) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (174) - HCL_O ( 84) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (175) - HCL_OH ( 85) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (176) - HOCL_CL ( 86) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (177) - HOCL_O ( 87) HOCL + O -> CLO + OH rate = 1.70E-13 (178) - HOCL_OH ( 88) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (179) - O1D_CCL4 ( 89) O1D + CCL4 -> 4*CL rate = 2.61E-10 (180) - O1D_CF2CLBR ( 90) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (181) - O1D_CFC11 ( 91) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (182) - O1D_CFC113 ( 92) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (183) - O1D_CFC114 ( 93) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (184) - O1D_CFC115 ( 94) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (185) - O1D_CFC12 ( 95) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (186) - O1D_HCLa ( 96) O1D + HCL -> CL + OH rate = 9.90E-11 (187) - O1D_HCLb ( 97) O1D + HCL -> CLO + H rate = 3.30E-12 (188) - tag_CLO_CLO_M ( 98) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (189) + CLONO2_O ( 82) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (173) + CLONO2_OH ( 83) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (174) + CLO_O ( 84) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (175) + CLO_OHa ( 85) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (176) + CLO_OHb ( 86) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (177) + HCL_O ( 87) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (178) + HCL_OH ( 88) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (179) + HOCL_CL ( 89) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (180) + HOCL_O ( 90) HOCL + O -> CLO + OH rate = 1.70E-13 (181) + HOCL_OH ( 91) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (182) + O1D_CCL4 ( 92) O1D + CCL4 -> 4*CL rate = 2.61E-10 (183) + O1D_CF2CLBR ( 93) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (184) + O1D_CFC11 ( 94) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (185) + O1D_CFC113 ( 95) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (186) + O1D_CFC114 ( 96) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (187) + O1D_CFC115 ( 97) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (188) + O1D_CFC12 ( 98) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (189) + O1D_HCLa ( 99) O1D + HCL -> CL + OH rate = 9.90E-11 (190) + O1D_HCLb (100) O1D + HCL -> CLO + H rate = 3.30E-12 (191) + tag_CLO_CLO_M (101) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (192) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M ( 99) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (190) - BR_CH2O (100) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (191) - BR_HO2 (101) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (192) - BR_O3 (102) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (193) - BRO_BRO (103) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (194) - BRO_CLOa (104) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (195) - BRO_CLOb (105) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (196) - BRO_CLOc (106) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (197) - BRO_HO2 (107) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (198) - BRO_NO (108) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (199) - BRO_NO2_M (109) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (200) + usr_CL2O2_M (102) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (193) + BR_CH2O (103) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (194) + BR_HO2 (104) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (195) + BR_O3 (105) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (196) + BRO_BRO (106) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (197) + BRO_CLOa (107) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (198) + BRO_CLOb (108) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (199) + BRO_CLOc (109) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (200) + BRO_HO2 (110) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (201) + BRO_NO (111) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (202) + BRO_NO2_M (112) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (203) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (110) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (201) - BRO_O (111) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (202) - BRO_OH (112) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (203) - HBR_O (113) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (204) - HBR_OH (114) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (205) - HOBR_O (115) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (206) - O1D_CF3BR (116) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (207) - O1D_CHBR3 (117) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (208) - O1D_H2402 (118) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (209) - O1D_HBRa (119) O1D + HBR -> BR + OH rate = 9.00E-11 (210) - O1D_HBRb (120) O1D + HBR -> BRO + H rate = 3.00E-11 (211) - F_CH4 (121) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (212) - F_H2 (122) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (213) - F_H2O (123) F + H2O -> HF + OH rate = 1.40E-11 (214) - F_HNO3 (124) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (215) - O1D_COF2 (125) O1D + COF2 -> 2*F rate = 2.14E-11 (216) - O1D_COFCL (126) O1D + COFCL -> F + CL rate = 1.90E-10 (217) - CH2BR2_CL (127) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (218) - CH2BR2_OH (128) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (219) - CH3BR_CL (129) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (220) - CH3BR_OH (130) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (221) - CH3CCL3_OH (131) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (222) - CH3CL_CL (132) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (223) - CH3CL_OH (133) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (224) - CHBR3_CL (134) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (225) - CHBR3_OH (135) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (226) - HCFC141B_OH (136) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (227) - HCFC142B_OH (137) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (228) - HCFC22_OH (138) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (229) - O1D_CH2BR2 (139) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (230) - O1D_CH3BR (140) O1D + CH3BR -> BR rate = 1.80E-10 (231) - O1D_HCFC141B (141) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (232) - O1D_HCFC142B (142) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (233) - O1D_HCFC22 (143) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (234) - CH2O_NO3 (144) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (235) - CH2O_O (145) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (236) - CH2O_OH (146) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (237) - CH3O2_HO2 (147) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (238) - CH3O2_NO (148) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (239) - CH3OOH_OH (149) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (240) - CH4_OH (150) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (241) - O1D_CH4a (151) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (242) - O1D_CH4b (152) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (243) - O1D_CH4c (153) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (244) - usr_CO_OH (154) CO + OH -> CO2 + HO2 rate = ** User defined ** (245) - DMS_NO3 (155) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (246) - DMS_OHa (156) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (247) - OCS_O (157) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (248) - OCS_OH (158) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (249) - S_O2 (159) S + O2 -> SO + O rate = 2.30E-12 (250) - SO2_OH_M (160) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (251) + BRONO2_O (113) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (204) + BRO_O (114) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (205) + BRO_OH (115) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (206) + HBR_O (116) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (207) + HBR_OH (117) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (208) + HOBR_O (118) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (209) + O1D_CF3BR (119) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (210) + O1D_CHBR3 (120) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (211) + O1D_H2402 (121) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (212) + O1D_HBRa (122) O1D + HBR -> BR + OH rate = 9.00E-11 (213) + O1D_HBRb (123) O1D + HBR -> BRO + H rate = 3.00E-11 (214) + F_CH4 (124) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (215) + F_H2 (125) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (216) + F_H2O (126) F + H2O -> HF + OH rate = 1.40E-11 (217) + F_HNO3 (127) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (218) + O1D_COF2 (128) O1D + COF2 -> 2*F rate = 2.14E-11 (219) + O1D_COFCL (129) O1D + COFCL -> F + CL rate = 1.90E-10 (220) + CH2BR2_CL (130) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (221) + CH2BR2_OH (131) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (222) + CH3BR_CL (132) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (223) + CH3BR_OH (133) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (224) + CH3CCL3_OH (134) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (225) + CH3CL_CL (135) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (226) + CH3CL_OH (136) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (227) + CHBR3_CL (137) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (228) + CHBR3_OH (138) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (229) + HCFC141B_OH (139) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (230) + HCFC142B_OH (140) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (231) + HCFC22_OH (141) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (232) + O1D_CH2BR2 (142) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (233) + O1D_CH3BR (143) O1D + CH3BR -> BR rate = 1.80E-10 (234) + O1D_HCFC141B (144) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (235) + O1D_HCFC142B (145) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (236) + O1D_HCFC22 (146) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (237) + CH2O_NO3 (147) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (238) + CH2O_O (148) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (239) + CH2O_OH (149) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (240) + CH3O2_HO2 (150) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (241) + CH3O2_NO (151) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (242) + CH3OOH_OH (152) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (243) + CH4_OH (153) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (244) + O1D_CH4a (154) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (245) + O1D_CH4b (155) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (246) + O1D_CH4c (156) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (247) + usr_CO_OH (157) CO + OH -> CO2 + HO2 rate = ** User defined ** (248) + DMS_NO3 (158) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (249) + DMS_OHa (159) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (250) + OCS_O (160) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (251) + OCS_OH (161) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (252) + S_O2 (162) S + O2 -> SO + O rate = 2.30E-12 (253) + SO2_OH_M (163) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (254) ki=1.70E-12*(300/t)**-0.20 f=0.60 - S_O3 (161) S + O3 -> SO + O2 rate = 1.20E-11 (252) - SO_BRO (162) SO + BRO -> SO2 + BR rate = 5.70E-11 (253) - SO_CLO (163) SO + CLO -> SO2 + CL rate = 2.80E-11 (254) - S_OH (164) S + OH -> SO + H rate = 6.60E-11 (255) - SO_NO2 (165) SO + NO2 -> SO2 + NO rate = 1.40E-11 (256) - SO_O2 (166) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (257) - SO_O3 (167) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (258) - SO_OCLO (168) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (259) - SO_OH (169) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (260) - usr_DMS_OH (170) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (261) - usr_SO3_H2O (171) SO3 + H2O -> H2SO4 rate = ** User defined ** (262) - usr_HO2_aer (172) HO2 -> 0.5*H2O2 rate = ** User defined ** (263) - usr_N2O5_aer (173) N2O5 -> 2*HNO3 rate = ** User defined ** (264) - usr_NO2_aer (174) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (265) - usr_NO3_aer (175) NO3 -> HNO3 rate = ** User defined ** (266) - het1 (176) N2O5 -> 2*HNO3 rate = ** User defined ** (267) - het10 (177) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (268) - het11 (178) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (269) - het12 (179) N2O5 -> 2*HNO3 rate = ** User defined ** (270) - het13 (180) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (271) - het14 (181) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (272) - het15 (182) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (273) - het16 (183) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (274) - het17 (184) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (275) - het2 (185) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (276) - het3 (186) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (277) - het4 (187) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (278) - het5 (188) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (279) - het6 (189) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (280) - het7 (190) N2O5 -> 2*HNO3 rate = ** User defined ** (281) - het8 (191) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (282) - het9 (192) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (283) - ag247nm (193) Op2P -> Op rate = 4.70E-02 (284) - ag373nm (194) Op2D -> Op rate = 7.70E-05 (285) - ag732nm (195) Op2P -> Op2D rate = 1.71E-01 (286) - elec1 (196) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (287) - elec2 (197) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (288) - elec3 (198) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (289) - ion_N2p_O2 (199) N2p + O2 -> O2p + N2 rate = 6.00E-11 (290) - ion_N2p_Oa (200) N2p + O -> NOp + N2D rate = ** User defined ** (291) - ion_N2p_Ob (201) N2p + O -> Op + N2 rate = ** User defined ** (292) - ion_Np_O (202) Np + O -> Op + N rate = 1.00E-12 (293) - ion_Np_O2a (203) Np + O2 -> O2p + N rate = 4.00E-10 (294) - ion_Np_O2b (204) Np + O2 -> NOp + O rate = 2.00E-10 (295) - ion_O2p_N (205) O2p + N -> NOp + O rate = 1.00E-10 (296) - ion_O2p_N2 (206) O2p + N2 -> NOp + NO rate = 5.00E-16 (297) - ion_O2p_NO (207) O2p + NO -> NOp + O2 rate = 4.40E-10 (298) - ion_Op_CO2 (208) Op + CO2 -> O2p + CO rate = 9.00E-10 (299) - ion_Op_N2 (209) Op + N2 -> NOp + N rate = ** User defined ** (300) - ion_Op_N2D (210) Op + N2D -> Np + O rate = 1.30E-10 (301) - ion_Op_O2 (211) Op + O2 -> O2p + O rate = ** User defined ** (302) - Op2D_e (212) Op2D + e -> Op + e rate = ** User defined ** (303) - Op2D_N2 (213) Op2D + N2 -> N2p + O rate = 8.00E-10 (304) - Op2D_O (214) Op2D + O -> Op + O rate = 5.00E-12 (305) - Op2D_O2 (215) Op2D + O2 -> O2p + O rate = 7.00E-10 (306) - Op2P_ea (216) Op2P + e -> Op2D + e rate = ** User defined ** (307) - Op2P_eb (217) Op2P + e -> Op + e rate = ** User defined ** (308) - Op2P_N2a (218) Op2P + N2 -> N2p + O rate = 4.80E-10 (309) - Op2P_N2b (219) Op2P + N2 -> Np + NO rate = 1.00E-10 (310) - Op2P_O (220) Op2P + O -> Op + O rate = 4.00E-10 (311) + S_O3 (164) S + O3 -> SO + O2 rate = 1.20E-11 (255) + SO_BRO (165) SO + BRO -> SO2 + BR rate = 5.70E-11 (256) + SO_CLO (166) SO + CLO -> SO2 + CL rate = 2.80E-11 (257) + S_OH (167) S + OH -> SO + H rate = 6.60E-11 (258) + SO_NO2 (168) SO + NO2 -> SO2 + NO rate = 1.40E-11 (259) + SO_O2 (169) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (260) + SO_O3 (170) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (261) + SO_OCLO (171) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (262) + SO_OH (172) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (263) + usr_DMS_OH (173) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (264) + usr_SO3_H2O (174) SO3 + H2O -> H2SO4 rate = ** User defined ** (265) + usr_HO2_aer (175) HO2 -> 0.5*H2O2 rate = ** User defined ** (266) + usr_N2O5_aer (176) N2O5 -> 2*HNO3 rate = ** User defined ** (267) + usr_NO2_aer (177) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (268) + usr_NO3_aer (178) NO3 -> HNO3 rate = ** User defined ** (269) + het1 (179) N2O5 -> 2*HNO3 rate = ** User defined ** (270) + het10 (180) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (271) + het11 (181) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (272) + het12 (182) N2O5 -> 2*HNO3 rate = ** User defined ** (273) + het13 (183) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (274) + het14 (184) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (275) + het15 (185) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (276) + het16 (186) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (277) + het17 (187) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (278) + het2 (188) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (279) + het3 (189) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (280) + het4 (190) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (281) + het5 (191) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (282) + het6 (192) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (283) + het7 (193) N2O5 -> 2*HNO3 rate = ** User defined ** (284) + het8 (194) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (285) + het9 (195) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (286) + ag247nm (196) Op2P -> Op rate = 4.70E-02 (287) + ag373nm (197) Op2D -> Op rate = 7.70E-05 (288) + ag732nm (198) Op2P -> Op2D rate = 1.71E-01 (289) + elec1 (199) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (290) + elec2 (200) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (291) + elec3 (201) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (292) + ion_N2p_O2 (202) N2p + O2 -> O2p + N2 rate = 6.00E-11 (293) + ion_N2p_Oa (203) N2p + O -> NOp + N2D rate = ** User defined ** (294) + ion_N2p_Ob (204) N2p + O -> Op + N2 rate = ** User defined ** (295) + ion_Np_O (205) Np + O -> Op + N rate = 1.00E-12 (296) + ion_Np_O2a (206) Np + O2 -> O2p + N rate = 4.00E-10 (297) + ion_Np_O2b (207) Np + O2 -> NOp + O rate = 2.00E-10 (298) + ion_O2p_N (208) O2p + N -> NOp + O rate = 1.00E-10 (299) + ion_O2p_N2 (209) O2p + N2 -> NOp + NO rate = 5.00E-16 (300) + ion_O2p_NO (210) O2p + NO -> NOp + O2 rate = 4.40E-10 (301) + ion_Op_CO2 (211) Op + CO2 -> O2p + CO rate = 9.00E-10 (302) + ion_Op_N2 (212) Op + N2 -> NOp + N rate = ** User defined ** (303) + ion_Op_N2D (213) Op + N2D -> Np + O rate = 1.30E-10 (304) + ion_Op_O2 (214) Op + O2 -> O2p + O rate = ** User defined ** (305) + Op2D_e (215) Op2D + e -> Op + e rate = ** User defined ** (306) + Op2D_N2 (216) Op2D + N2 -> N2p + O rate = 8.00E-10 (307) + Op2D_O (217) Op2D + O -> Op + O rate = 5.00E-12 (308) + Op2D_O2 (218) Op2D + O2 -> O2p + O rate = 7.00E-10 (309) + Op2P_ea (219) Op2P + e -> Op2D + e rate = ** User defined ** (310) + Op2P_eb (220) Op2P + e -> Op + e rate = ** User defined ** (311) + Op2P_N2a (221) Op2P + N2 -> N2p + O rate = 4.80E-10 (312) + Op2P_N2b (222) Op2P + N2 -> Np + NO rate = 1.00E-10 (313) + Op2P_O (223) Op2P + O -> Op + O rate = 4.00E-10 (314) Extraneous prod/loss species - ( 1) so4_a2 (dataset) - ( 2) DMS (dataset) - ( 3) bc_a4 (dataset) - ( 4) num_a1 (dataset) - ( 5) num_a2 (dataset) - ( 6) num_a4 (dataset) - ( 7) num_a5 (dataset) - ( 8) pom_a1 (dataset) - ( 9) pom_a4 (dataset) - (10) so4_a1 (dataset) - (11) so4_a5 (dataset) - (12) CO (dataset) - (13) NO (dataset) + ( 1) CO (dataset) + ( 2) bc_a1 (dataset) + ( 3) NO (dataset) + ( 4) pom_a1 (dataset) + ( 5) DMS (dataset) + ( 6) num_a1 (dataset) + ( 7) num_a2 (dataset) + ( 8) so4_a1 (dataset) + ( 9) so4_a2 (dataset) + (10) num_a4 (dataset) + (11) pom_a4 (dataset) + (12) bc_a4 (dataset) + (13) SO2 (dataset) (14) NO2 (dataset) - (15) SO2 (dataset) - (16) bc_a1 (dataset) - (17) N + (15) O2p + (16) N2p + (17) Np (18) N2D - (19) N2p - (20) Op - (21) e - (22) Np - (23) O2p - (24) OH + (19) Op + (20) N + (21) OH + (22) e Equation Report @@ -596,148 +597,148 @@ Extraneous prod/loss species d(bc_a1)/dt = 0 d(bc_a4)/dt = 0 d(BR)/dt = j26*BRCL + j27*BRO + j29*BRONO2 + j31*CF2CLBR + j32*CF3BR + 2*j38*CH2BR2 + j39*CH3BR - + 3*j42*CHBR3 + 2*j50*H2402 + j51*HBR + j57*HOBR + r90*O1D*CF2CLBR + 2*r103*BRO*BRO - + r104*BRO*CLO + r105*BRO*CLO + r108*BRO*NO + r111*BRO*O + r112*BRO*OH + r113*HBR*O - + r114*HBR*OH + r116*O1D*CF3BR + 3*r117*O1D*CHBR3 + 2*r118*O1D*H2402 + r119*O1D*HBR - + 2*r127*CH2BR2*CL + 2*r128*CH2BR2*OH + r129*CH3BR*CL + r130*CH3BR*OH + 3*r134*CHBR3*CL - + 3*r135*CHBR3*OH + 2*r139*O1D*CH2BR2 + r140*O1D*CH3BR + r162*SO*BRO - - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR - d(BRCL)/dt = r106*BRO*CLO + r184*HOBR*HCL + r189*HOBR*HCL + + 3*j42*CHBR3 + 2*j50*H2402 + j51*HBR + j57*HOBR + r93*O1D*CF2CLBR + 2*r106*BRO*BRO + + r107*BRO*CLO + r108*BRO*CLO + r111*BRO*NO + r114*BRO*O + r115*BRO*OH + r116*HBR*O + + r117*HBR*OH + r119*O1D*CF3BR + 3*r120*O1D*CHBR3 + 2*r121*O1D*H2402 + r122*O1D*HBR + + 2*r130*CH2BR2*CL + 2*r131*CH2BR2*OH + r132*CH3BR*CL + r133*CH3BR*OH + 3*r137*CHBR3*CL + + 3*r138*CHBR3*OH + 2*r142*O1D*CH2BR2 + r143*O1D*CH3BR + r165*SO*BRO + - r103*CH2O*BR - r104*HO2*BR - r105*O3*BR + d(BRCL)/dt = r109*BRO*CLO + r187*HOBR*HCL + r192*HOBR*HCL - j26*BRCL - d(BRO)/dt = j28*BRONO2 + r102*BR*O3 + r110*BRONO2*O + r115*HOBR*O + r120*O1D*HBR - - j27*BRO - 2*r103*BRO*BRO - r104*CLO*BRO - r105*CLO*BRO - r106*CLO*BRO - r107*HO2*BRO - - r108*NO*BRO - r109*M*NO2*BRO - r111*O*BRO - r112*OH*BRO - r162*SO*BRO - d(BRONO2)/dt = r109*M*BRO*NO2 - - j28*BRONO2 - j29*BRONO2 - r178*BRONO2 - r181*BRONO2 - r186*BRONO2 - r110*O*BRONO2 + d(BRO)/dt = j28*BRONO2 + r105*BR*O3 + r113*BRONO2*O + r118*HOBR*O + r123*O1D*HBR + - j27*BRO - 2*r106*BRO*BRO - r107*CLO*BRO - r108*CLO*BRO - r109*CLO*BRO - r110*HO2*BRO + - r111*NO*BRO - r112*M*NO2*BRO - r114*O*BRO - r115*OH*BRO - r165*SO*BRO + d(BRONO2)/dt = r112*M*BRO*NO2 + - j28*BRONO2 - j29*BRONO2 - r181*BRONO2 - r184*BRONO2 - r189*BRONO2 - r113*O*BRONO2 d(BRY)/dt = 0 - d(CCL4)/dt = - j30*CCL4 - r89*O1D*CCL4 - d(CF2CLBR)/dt = - j31*CF2CLBR - r90*O1D*CF2CLBR - d(CF3BR)/dt = - j32*CF3BR - r116*O1D*CF3BR - d(CFC11)/dt = - j33*CFC11 - r91*O1D*CFC11 - d(CFC113)/dt = - j34*CFC113 - r92*O1D*CFC113 - d(CFC114)/dt = - j35*CFC114 - r93*O1D*CFC114 - d(CFC115)/dt = - j36*CFC115 - r94*O1D*CFC115 - d(CFC12)/dt = - j37*CFC12 - r95*O1D*CFC12 - d(CH2BR2)/dt = - j38*CH2BR2 - r127*CL*CH2BR2 - r128*OH*CH2BR2 - r139*O1D*CH2BR2 - d(CH2O)/dt = j22*CH3OOH + .18*j24*CH4 + r71*CLO*CH3O2 + r148*CH3O2*NO + .3*r149*CH3OOH*OH + r152*O1D*CH4 - + r153*O1D*CH4 - - j20*CH2O - j21*CH2O - r64*CL*CH2O - r100*BR*CH2O - r144*NO3*CH2O - r145*O*CH2O - - r146*OH*CH2O - d(CH3BR)/dt = - j39*CH3BR - r129*CL*CH3BR - r130*OH*CH3BR - r140*O1D*CH3BR - d(CH3CCL3)/dt = - j40*CH3CCL3 - r131*OH*CH3CCL3 - d(CH3CL)/dt = - j41*CH3CL - r132*CL*CH3CL - r133*OH*CH3CL - d(CH3O2)/dt = j23*CH4 + j39*CH3BR + j41*CH3CL + r65*CL*CH4 + r121*F*CH4 + .7*r149*CH3OOH*OH + r150*CH4*OH - + r151*O1D*CH4 - - r71*CLO*CH3O2 - r147*HO2*CH3O2 - r148*NO*CH3O2 - d(CH3OOH)/dt = r147*CH3O2*HO2 - - j22*CH3OOH - r149*OH*CH3OOH - d(CH4)/dt = - j23*CH4 - j24*CH4 - r65*CL*CH4 - r121*F*CH4 - r150*OH*CH4 - r151*O1D*CH4 - r152*O1D*CH4 - - r153*O1D*CH4 - d(CHBR3)/dt = - j42*CHBR3 - r117*O1D*CHBR3 - r134*CL*CHBR3 - r135*OH*CHBR3 + d(CCL4)/dt = - j30*CCL4 - r92*O1D*CCL4 + d(CF2CLBR)/dt = - j31*CF2CLBR - r93*O1D*CF2CLBR + d(CF3BR)/dt = - j32*CF3BR - r119*O1D*CF3BR + d(CFC11)/dt = - j33*CFC11 - r94*O1D*CFC11 + d(CFC113)/dt = - j34*CFC113 - r95*O1D*CFC113 + d(CFC114)/dt = - j35*CFC114 - r96*O1D*CFC114 + d(CFC115)/dt = - j36*CFC115 - r97*O1D*CFC115 + d(CFC12)/dt = - j37*CFC12 - r98*O1D*CFC12 + d(CH2BR2)/dt = - j38*CH2BR2 - r130*CL*CH2BR2 - r131*OH*CH2BR2 - r142*O1D*CH2BR2 + d(CH2O)/dt = j22*CH3OOH + .18*j24*CH4 + r74*CLO*CH3O2 + r151*CH3O2*NO + .3*r152*CH3OOH*OH + r155*O1D*CH4 + + r156*O1D*CH4 + - j20*CH2O - j21*CH2O - r67*CL*CH2O - r103*BR*CH2O - r147*NO3*CH2O - r148*O*CH2O + - r149*OH*CH2O + d(CH3BR)/dt = - j39*CH3BR - r132*CL*CH3BR - r133*OH*CH3BR - r143*O1D*CH3BR + d(CH3CCL3)/dt = - j40*CH3CCL3 - r134*OH*CH3CCL3 + d(CH3CL)/dt = - j41*CH3CL - r135*CL*CH3CL - r136*OH*CH3CL + d(CH3O2)/dt = j23*CH4 + j39*CH3BR + j41*CH3CL + r68*CL*CH4 + r124*F*CH4 + .7*r152*CH3OOH*OH + r153*CH4*OH + + r154*O1D*CH4 + - r74*CLO*CH3O2 - r150*HO2*CH3O2 - r151*NO*CH3O2 + d(CH3OOH)/dt = r150*CH3O2*HO2 + - j22*CH3OOH - r152*OH*CH3OOH + d(CH4)/dt = - j23*CH4 - j24*CH4 - r68*CL*CH4 - r124*F*CH4 - r153*OH*CH4 - r154*O1D*CH4 - r155*O1D*CH4 + - r156*O1D*CH4 + d(CHBR3)/dt = - j42*CHBR3 - r120*O1D*CHBR3 - r137*CL*CHBR3 - r138*OH*CHBR3 d(CL)/dt = j26*BRCL + 4*j30*CCL4 + j31*CF2CLBR + 2*j33*CFC11 + 2*j34*CFC113 + 2*j35*CFC114 + j36*CFC115 + 2*j37*CFC12 + 3*j40*CH3CCL3 + j41*CH3CL + 2*j43*CL2 + 2*j44*CL2O2 + j45*CLO + j46*CLONO2 - + j49*COFCL + j52*HCFC141B + j53*HCFC142B + j54*HCFC22 + j55*HCL + j58*HOCL + r71*CLO*CH3O2 - + 2*r72*CLO*CLO + r74*CLO*CLO + r76*CLO*NO + r81*CLO*O + r82*CLO*OH + r84*HCL*O + r85*HCL*OH - + 4*r89*O1D*CCL4 + r90*O1D*CF2CLBR + 2*r91*O1D*CFC11 + 2*r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + r94*O1D*CFC115 + 2*r95*O1D*CFC12 + r96*O1D*HCL + r105*BRO*CLO + r126*O1D*COFCL - + 3*r131*CH3CCL3*OH + r133*CH3CL*OH + r136*HCFC141B*OH + r137*HCFC142B*OH + r138*HCFC22*OH - + r141*O1D*HCFC141B + r142*O1D*HCFC142B + r143*O1D*HCFC22 + r163*SO*CLO - - r64*CH2O*CL - r65*CH4*CL - r66*H2*CL - r67*H2O2*CL - r68*HO2*CL - r69*HO2*CL - r70*O3*CL - - r77*CLONO2*CL - r86*HOCL*CL - r127*CH2BR2*CL - r129*CH3BR*CL - r132*CH3CL*CL - r134*CHBR3*CL - d(CL2)/dt = r73*CLO*CLO + r77*CLONO2*CL + r177*HOCL*HCL + r182*CLONO2*HCL + r183*HOCL*HCL + r187*CLONO2*HCL - + r188*HOCL*HCL + r192*CLONO2*HCL + + j49*COFCL + j52*HCFC141B + j53*HCFC142B + j54*HCFC22 + j55*HCL + j58*HOCL + r74*CLO*CH3O2 + + 2*r75*CLO*CLO + r77*CLO*CLO + r79*CLO*NO + r84*CLO*O + r85*CLO*OH + r87*HCL*O + r88*HCL*OH + + 4*r92*O1D*CCL4 + r93*O1D*CF2CLBR + 2*r94*O1D*CFC11 + 2*r95*O1D*CFC113 + 2*r96*O1D*CFC114 + + r97*O1D*CFC115 + 2*r98*O1D*CFC12 + r99*O1D*HCL + r108*BRO*CLO + r129*O1D*COFCL + + 3*r134*CH3CCL3*OH + r136*CH3CL*OH + r139*HCFC141B*OH + r140*HCFC142B*OH + r141*HCFC22*OH + + r144*O1D*HCFC141B + r145*O1D*HCFC142B + r146*O1D*HCFC22 + r166*SO*CLO + - r67*CH2O*CL - r68*CH4*CL - r69*H2*CL - r70*H2O2*CL - r71*HO2*CL - r72*HO2*CL - r73*O3*CL + - r80*CLONO2*CL - r89*HOCL*CL - r130*CH2BR2*CL - r132*CH3BR*CL - r135*CH3CL*CL - r137*CHBR3*CL + d(CL2)/dt = r76*CLO*CLO + r80*CLONO2*CL + r180*HOCL*HCL + r185*CLONO2*HCL + r186*HOCL*HCL + r190*CLONO2*HCL + + r191*HOCL*HCL + r195*CLONO2*HCL - j43*CL2 - d(CL2O2)/dt = r98*M*CLO*CLO - - j44*CL2O2 - r99*M*CL2O2 - d(CLO)/dt = j47*CLONO2 + j59*OCLO + r99*M*CL2O2 + r99*M*CL2O2 + r69*CL*HO2 + r70*CL*O3 + r79*CLONO2*O - + r86*HOCL*CL + r87*HOCL*O + r88*HOCL*OH + r97*O1D*HCL + r168*SO*OCLO - - j45*CLO - r71*CH3O2*CLO - 2*r72*CLO*CLO - 2*r73*CLO*CLO - 2*r74*CLO*CLO - r75*HO2*CLO - - r76*NO*CLO - r78*M*NO2*CLO - r81*O*CLO - r82*OH*CLO - r83*OH*CLO - 2*r98*M*CLO*CLO - - r104*BRO*CLO - r105*BRO*CLO - r106*BRO*CLO - r163*SO*CLO - d(CLONO2)/dt = r78*M*CLO*NO2 - - j46*CLONO2 - j47*CLONO2 - r180*CLONO2 - r185*CLONO2 - r191*CLONO2 - r77*CL*CLONO2 - - r79*O*CLONO2 - r80*OH*CLONO2 - r182*HCL*CLONO2 - r187*HCL*CLONO2 - r192*HCL*CLONO2 + d(CL2O2)/dt = r101*M*CLO*CLO + - j44*CL2O2 - r102*M*CL2O2 + d(CLO)/dt = j47*CLONO2 + j59*OCLO + r102*M*CL2O2 + r102*M*CL2O2 + r72*CL*HO2 + r73*CL*O3 + r82*CLONO2*O + + r89*HOCL*CL + r90*HOCL*O + r91*HOCL*OH + r100*O1D*HCL + r171*SO*OCLO + - j45*CLO - r74*CH3O2*CLO - 2*r75*CLO*CLO - 2*r76*CLO*CLO - 2*r77*CLO*CLO - r78*HO2*CLO + - r79*NO*CLO - r81*M*NO2*CLO - r84*O*CLO - r85*OH*CLO - r86*OH*CLO - 2*r101*M*CLO*CLO + - r107*BRO*CLO - r108*BRO*CLO - r109*BRO*CLO - r166*SO*CLO + d(CLONO2)/dt = r81*M*CLO*NO2 + - j46*CLONO2 - j47*CLONO2 - r183*CLONO2 - r188*CLONO2 - r194*CLONO2 - r80*CL*CLONO2 + - r82*O*CLONO2 - r83*OH*CLONO2 - r185*HCL*CLONO2 - r190*HCL*CLONO2 - r195*HCL*CLONO2 d(CLY)/dt = 0 - d(CO)/dt = j20*CH2O + j21*CH2O + .38*j24*CH4 + j25*CO2 + j61*CO2 + j88*OCS + r64*CL*CH2O + r100*BR*CH2O - + r132*CH3CL*CL + r144*CH2O*NO3 + r145*CH2O*O + r146*CH2O*OH + r157*OCS*O + r158*OCS*OH - + r208*Op*CO2 - - r154*OH*CO - d(CO2)/dt = .44*j24*CH4 + r154*CO*OH - - j25*CO2 - j61*CO2 - r208*Op*CO2 + d(CO)/dt = j20*CH2O + j21*CH2O + .38*j24*CH4 + j25*CO2 + j61*CO2 + j88*OCS + r67*CL*CH2O + r103*BR*CH2O + + r135*CH3CL*CL + r147*CH2O*NO3 + r148*CH2O*O + r149*CH2O*OH + r160*OCS*O + r161*OCS*OH + + r211*Op*CO2 + - r157*OH*CO + d(CO2)/dt = .44*j24*CH4 + r157*CO*OH + - j25*CO2 - j61*CO2 - r211*Op*CO2 d(COF2)/dt = j31*CF2CLBR + j32*CF3BR + j34*CFC113 + 2*j35*CFC114 + 2*j36*CFC115 + j37*CFC12 + 2*j50*H2402 - + j53*HCFC142B + j54*HCFC22 + r90*O1D*CF2CLBR + r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + 2*r94*O1D*CFC115 + r95*O1D*CFC12 + r116*O1D*CF3BR + 2*r118*O1D*H2402 + r137*HCFC142B*OH - + r138*HCFC22*OH + r142*O1D*HCFC142B + r143*O1D*HCFC22 - - j48*COF2 - r125*O1D*COF2 - d(COFCL)/dt = j33*CFC11 + j34*CFC113 + j52*HCFC141B + r91*O1D*CFC11 + r92*O1D*CFC113 + r136*HCFC141B*OH - + r141*O1D*HCFC141B - - j49*COFCL - r126*O1D*COFCL - d(DMS)/dt = - r155*NO3*DMS - r156*OH*DMS - r170*OH*DMS + + j53*HCFC142B + j54*HCFC22 + r93*O1D*CF2CLBR + r95*O1D*CFC113 + 2*r96*O1D*CFC114 + + 2*r97*O1D*CFC115 + r98*O1D*CFC12 + r119*O1D*CF3BR + 2*r121*O1D*H2402 + r140*HCFC142B*OH + + r141*HCFC22*OH + r145*O1D*HCFC142B + r146*O1D*HCFC22 + - j48*COF2 - r128*O1D*COF2 + d(COFCL)/dt = j33*CFC11 + j34*CFC113 + j52*HCFC141B + r94*O1D*CFC11 + r95*O1D*CFC113 + r139*HCFC141B*OH + + r144*O1D*HCFC141B + - j49*COFCL - r129*O1D*COFCL + d(DMS)/dt = - r158*NO3*DMS - r159*OH*DMS - r173*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 - d(F)/dt = j32*CF3BR + j36*CFC115 + 2*j48*COF2 + j49*COFCL + j56*HF + r94*O1D*CFC115 + r116*O1D*CF3BR - + 2*r125*O1D*COF2 + r126*O1D*COFCL - - r121*CH4*F - r122*H2*F - r123*H2O*F - r124*HNO3*F + d(F)/dt = j32*CF3BR + j36*CFC115 + 2*j48*COF2 + j49*COFCL + j56*HF + r97*O1D*CFC115 + r119*O1D*CF3BR + + 2*r128*O1D*COF2 + r129*O1D*COFCL + - r124*CH4*F - r125*H2*F - r126*H2O*F - r127*HNO3*F d(H)/dt = 2*j2*H2O + j3*H2O + 2*j20*CH2O + j22*CH3OOH + j23*CH4 + .33*j24*CH4 + j51*HBR + j55*HCL + j56*HF - + r3*O1D*H2 + r20*H2*O + r29*OH*H2 + r32*OH*O + r52*N*OH + r66*CL*H2 + r97*O1D*HCL - + r120*O1D*HBR + r122*F*H2 + r146*CH2O*OH + r152*O1D*CH4 + r158*OCS*OH + r164*S*OH + r169*SO*OH + + r3*O1D*H2 + r20*H2*O + r29*OH*H2 + r32*OH*O + r52*N*OH + r69*CL*H2 + r100*O1D*HCL + + r123*O1D*HBR + r125*F*H2 + r149*CH2O*OH + r155*O1D*CH4 + r161*OCS*OH + r167*S*OH + r172*SO*OH - r22*HO2*H - r23*HO2*H - r24*HO2*H - r25*M*O2*H - r28*O3*H - d(H2)/dt = j1*H2O + j21*CH2O + 1.4400001*j24*CH4 + r22*H*HO2 + r153*O1D*CH4 - - r3*O1D*H2 - r20*O*H2 - r29*OH*H2 - r66*CL*H2 - r122*F*H2 - d(H2402)/dt = - j50*H2402 - r118*O1D*H2402 - d(H2O2)/dt = .5*r172*HO2 + r35*M*OH*OH + r36*HO2*HO2 - - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r67*CL*H2O2 - d(H2SO4)/dt = r171*SO3*H2O + d(H2)/dt = j1*H2O + j21*CH2O + 1.4400001*j24*CH4 + r22*H*HO2 + r156*O1D*CH4 + - r3*O1D*H2 - r20*O*H2 - r29*OH*H2 - r69*CL*H2 - r125*F*H2 + d(H2402)/dt = - j50*H2402 - r121*O1D*H2402 + d(H2O2)/dt = .5*r175*HO2 + r35*M*OH*OH + r36*HO2*HO2 + - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r70*CL*H2O2 + d(H2SO4)/dt = r174*SO3*H2O - j87*H2SO4 - d(HBR)/dt = r100*BR*CH2O + r101*BR*HO2 - - j51*HBR - r113*O*HBR - r114*OH*HBR - r119*O1D*HBR - r120*O1D*HBR - d(HCFC141B)/dt = - j52*HCFC141B - r136*OH*HCFC141B - r141*O1D*HCFC141B - d(HCFC142B)/dt = - j53*HCFC142B - r137*OH*HCFC142B - r142*O1D*HCFC142B - d(HCFC22)/dt = - j54*HCFC22 - r138*OH*HCFC22 - r143*O1D*HCFC22 - d(HCL)/dt = r64*CL*CH2O + r65*CL*CH4 + r66*CL*H2 + r67*CL*H2O2 + r68*CL*HO2 + r83*CLO*OH + r86*HOCL*CL - + r127*CH2BR2*CL + r129*CH3BR*CL + 2*r132*CH3CL*CL + r134*CHBR3*CL - - j55*HCL - r84*O*HCL - r85*OH*HCL - r96*O1D*HCL - r97*O1D*HCL - r177*HOCL*HCL - - r182*CLONO2*HCL - r183*HOCL*HCL - r184*HOBR*HCL - r187*CLONO2*HCL - r188*HOCL*HCL - - r189*HOBR*HCL - r192*CLONO2*HCL - d(HF)/dt = r121*F*CH4 + r122*F*H2 + r123*F*H2O + r124*F*HNO3 + d(HBR)/dt = r103*BR*CH2O + r104*BR*HO2 + - j51*HBR - r116*O*HBR - r117*OH*HBR - r122*O1D*HBR - r123*O1D*HBR + d(HCFC141B)/dt = - j52*HCFC141B - r139*OH*HCFC141B - r144*O1D*HCFC141B + d(HCFC142B)/dt = - j53*HCFC142B - r140*OH*HCFC142B - r145*O1D*HCFC142B + d(HCFC22)/dt = - j54*HCFC22 - r141*OH*HCFC22 - r146*O1D*HCFC22 + d(HCL)/dt = r67*CL*CH2O + r68*CL*CH4 + r69*CL*H2 + r70*CL*H2O2 + r71*CL*HO2 + r86*CLO*OH + r89*HOCL*CL + + r130*CH2BR2*CL + r132*CH3BR*CL + 2*r135*CH3CL*CL + r137*CHBR3*CL + - j55*HCL - r87*O*HCL - r88*OH*HCL - r99*O1D*HCL - r100*O1D*HCL - r180*HOCL*HCL + - r185*CLONO2*HCL - r186*HOCL*HCL - r187*HOBR*HCL - r190*CLONO2*HCL - r191*HOCL*HCL + - r192*HOBR*HCL - r195*CLONO2*HCL + d(HF)/dt = r124*F*CH4 + r125*F*H2 + r126*F*H2O + r127*F*HNO3 - j56*HF - d(HNO3)/dt = 2*r173*N2O5 + .5*r174*NO2 + r175*NO3 + 2*r176*N2O5 + r178*BRONO2 + 2*r179*N2O5 + r180*CLONO2 - + r181*BRONO2 + r185*CLONO2 + r186*BRONO2 + 2*r190*N2O5 + r191*CLONO2 + r60*M*NO2*OH - + r144*CH2O*NO3 + r155*DMS*NO3 + r182*CLONO2*HCL + r187*CLONO2*HCL + r192*CLONO2*HCL - - j9*HNO3 - r61*OH*HNO3 - r124*F*HNO3 + d(HNO3)/dt = 2*r176*N2O5 + .5*r177*NO2 + r178*NO3 + 2*r179*N2O5 + r181*BRONO2 + 2*r182*N2O5 + r183*CLONO2 + + r184*BRONO2 + r188*CLONO2 + r189*BRONO2 + 2*r193*N2O5 + r194*CLONO2 + r60*M*NO2*OH + + r147*CH2O*NO3 + r158*DMS*NO3 + r185*CLONO2*HCL + r190*CLONO2*HCL + r195*CLONO2*HCL + - j9*HNO3 - r61*OH*HNO3 - r127*F*HNO3 d(HO2NO2)/dt = r58*M*NO2*HO2 - - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r37*OH*HO2NO2 - d(HOBR)/dt = r178*BRONO2 + r181*BRONO2 + r186*BRONO2 + r107*BRO*HO2 - - j57*HOBR - r115*O*HOBR - r184*HCL*HOBR - r189*HCL*HOBR - d(HOCL)/dt = r180*CLONO2 + r185*CLONO2 + r191*CLONO2 + r75*CLO*HO2 + r80*CLONO2*OH - - j58*HOCL - r86*CL*HOCL - r87*O*HOCL - r88*OH*HOCL - r177*HCL*HOCL - r183*HCL*HOCL - - r188*HCL*HOCL - d(N)/dt = j64*N2 + .8*j66*N2 + .8*j68*N2 + j70*N2 + j15*NO + r209*N2*Op + r38*N2D*O + .2*r196*NOp*e - + 1.1*r198*N2p*e + r202*Np*O + r203*Np*O2 - - j62*N - r40*NO*N - r41*NO2*N - r42*NO2*N - r43*NO2*N - r44*O2*N - r52*OH*N - r205*O2p*N - d(N2O)/dt = r41*N*NO2 + - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r38*OH*HO2NO2 + d(HOBR)/dt = r181*BRONO2 + r184*BRONO2 + r189*BRONO2 + r110*BRO*HO2 + - j57*HOBR - r118*O*HOBR - r187*HCL*HOBR - r192*HCL*HOBR + d(HOCL)/dt = r183*CLONO2 + r188*CLONO2 + r194*CLONO2 + r78*CLO*HO2 + r83*CLONO2*OH + - j58*HOCL - r89*CL*HOCL - r90*O*HOCL - r91*OH*HOCL - r180*HCL*HOCL - r186*HCL*HOCL + - r191*HCL*HOCL + d(N)/dt = j64*N2 + .8*j66*N2 + .8*j68*N2 + j70*N2 + j15*NO + r37*N2D + r212*N2*Op + r40*N2D*O + r63*N2D*e + + .2*r199*NOp*e + 1.1*r201*N2p*e + r205*Np*O + r206*Np*O2 + - j62*N - r41*NO*N - r42*NO2*N - r43*NO2*N - r44*NO2*N - r52*OH*N - r66*O2*N - r208*O2p*N + d(N2O)/dt = r42*N*NO2 - j12*N2O - r56*O1D*N2O - r57*O1D*N2O d(N2O5)/dt = r59*M*NO2*NO3 - - j13*N2O5 - j14*N2O5 - r63*M*N2O5 - r173*N2O5 - r176*N2O5 - r179*N2O5 - r190*N2O5 + - j13*N2O5 - j14*N2O5 - r65*M*N2O5 - r176*N2O5 - r179*N2O5 - r182*N2O5 - r193*N2O5 d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r174*NO2 + r206*N2*O2p + r219*N2*Op2P + r39*N2D*O2 - + 2*r42*N*NO2 + r44*N*O2 + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r165*SO*NO2 - - j15*NO - j16*NO - r40*N*NO - r49*NO3*NO - r53*HO2*NO - r54*O3*NO - r55*M*O*NO - r76*CLO*NO - - r108*BRO*NO - r148*CH3O2*NO - r207*O2p*NO - d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j28*BRONO2 + j47*CLONO2 + r62*M*HO2NO2 + r63*M*N2O5 - + r37*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 - + r55*M*NO*O + r76*CLO*NO + r108*BRO*NO + r148*CH3O2*NO - - j17*NO2 - r174*NO2 - r41*N*NO2 - r42*N*NO2 - r43*N*NO2 - r45*O*NO2 - r46*O3*NO2 - - r47*M*O*NO2 - r58*M*HO2*NO2 - r59*M*NO3*NO2 - r60*M*OH*NO2 - r78*M*CLO*NO2 - r109*M*BRO*NO2 - - r165*SO*NO2 - d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + j29*BRONO2 + j46*CLONO2 + r63*M*N2O5 + r46*NO2*O3 - + r47*M*NO2*O + r61*HNO3*OH + r77*CLONO2*CL + r79*CLONO2*O + r80*CLONO2*OH + r110*BRONO2*O - + r124*F*HNO3 - - j18*NO3 - j19*NO3 - r175*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 - - r59*M*NO2*NO3 - r144*CH2O*NO3 - r155*DMS*NO3 + d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r177*NO2 + r209*N2*O2p + r222*N2*Op2P + 2*r43*N*NO2 + + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r64*N2D*O2 + r66*N*O2 + r168*SO*NO2 + - j15*NO - j16*NO - r39*N2D*NO - r41*N*NO - r49*NO3*NO - r53*HO2*NO - r54*O3*NO - r55*M*O*NO + - r79*CLO*NO - r111*BRO*NO - r151*CH3O2*NO - r210*O2p*NO + d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j28*BRONO2 + j47*CLONO2 + r62*M*HO2NO2 + r65*M*N2O5 + + r38*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 + + r55*M*NO*O + r79*CLO*NO + r111*BRO*NO + r151*CH3O2*NO + - j17*NO2 - r177*NO2 - r42*N*NO2 - r43*N*NO2 - r44*N*NO2 - r45*O*NO2 - r46*O3*NO2 + - r47*M*O*NO2 - r58*M*HO2*NO2 - r59*M*NO3*NO2 - r60*M*OH*NO2 - r81*M*CLO*NO2 - r112*M*BRO*NO2 + - r168*SO*NO2 + d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + j29*BRONO2 + j46*CLONO2 + r65*M*N2O5 + r46*NO2*O3 + + r47*M*NO2*O + r61*HNO3*OH + r80*CLONO2*CL + r82*CLONO2*O + r83*CLONO2*OH + r113*BRONO2*O + + r127*F*HNO3 + - j18*NO3 - j19*NO3 - r178*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 + - r59*M*NO2*NO3 - r147*CH2O*NO3 - r158*DMS*NO3 d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -745,44 +746,44 @@ Extraneous prod/loss species d(num_a5)/dt = 0 d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j14*N2O5 + j15*NO + j17*NO2 + j18*NO3 + .18*j24*CH4 + j25*CO2 + j27*BRO + j45*CLO + j59*OCLO + j61*CO2 + j77*O2 + j79*O2 + j81*O2 + 2*j82*O2 - + 2*j83*O2 + j84*O2 + j85*O2 + j86*O2 + j89*SO + j90*SO2 + j91*SO3 + r5*N2*O1D + r213*N2*Op2D - + r218*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 - + r159*S*O2 + r166*SO*O2 + r196*NOp*e + 1.15*r197*O2p*e + r204*Np*O2 + r205*O2p*N + r210*Op*N2D - + r211*Op*O2 + r215*Op2D*O2 + + 2*j83*O2 + j84*O2 + j85*O2 + j86*O2 + j89*SO + j90*SO2 + j91*SO3 + r5*N2*O1D + r216*N2*Op2D + + r221*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r39*N2D*NO + r41*N*NO + + r42*N*NO2 + r66*N*O2 + r162*S*O2 + r169*SO*O2 + r199*NOp*e + 1.15*r200*O2p*e + r207*Np*O2 + + r208*O2p*N + r213*Op*N2D + r214*Op*O2 + r218*Op2D*O2 - j71*O - j72*O - j73*O - j74*O - j75*O - j76*O - r17*O3*O - 2*r18*M*O*O - r19*M*O2*O - r20*H2*O - r21*H2O2*O - r26*HO2*O - r32*OH*O - r45*NO2*O - r47*M*NO2*O - r50*NO3*O - - r55*M*NO*O - r79*CLONO2*O - r81*CLO*O - r84*HCL*O - r87*HOCL*O - r110*BRONO2*O - r111*BRO*O - - r113*HBR*O - r115*HOBR*O - r145*CH2O*O - r157*OCS*O - r200*N2p*O - r201*N2p*O - r202*Np*O + - r55*M*NO*O - r82*CLONO2*O - r84*CLO*O - r87*HCL*O - r90*HOCL*O - r113*BRONO2*O - r114*BRO*O + - r116*HBR*O - r118*HOBR*O - r148*CH2O*O - r160*OCS*O - r203*N2p*O - r204*N2p*O - r205*Np*O d(O2)/dt = j8*O3 + j19*NO3 + r1*O2_1D + r2*O2_1S + r9*N2*O2_1D + r8*O1D*O3 + r8*O1D*O3 + r10*O2_1D*O + 2*r11*O2_1D*O2 + 2*r17*O*O3 + r18*M*O*O + r22*H*HO2 + r26*HO2*O + 2*r27*HO2*O3 + r28*H*O3 - + r31*OH*HO2 + r32*OH*O + r33*OH*O3 + r36*HO2*HO2 + r37*HO2NO2*OH + r43*N*NO2 + r45*NO2*O - + r46*NO2*O3 + r48*NO3*HO2 + r50*NO3*O + r54*NO*O3 + r57*O1D*N2O + r68*CL*HO2 + r70*CL*O3 - + r72*CLO*CLO + r73*CLO*CLO + r75*CLO*HO2 + r81*CLO*O + r83*CLO*OH + r101*BR*HO2 + r102*BR*O3 - + r103*BRO*BRO + r105*BRO*CLO + r106*BRO*CLO + r107*BRO*HO2 + r111*BRO*O + r147*CH3O2*HO2 - + r161*S*O3 + r167*SO*O3 + r207*O2p*NO + + r31*OH*HO2 + r32*OH*O + r33*OH*O3 + r36*HO2*HO2 + r38*HO2NO2*OH + r44*N*NO2 + r45*NO2*O + + r46*NO2*O3 + r48*NO3*HO2 + r50*NO3*O + r54*NO*O3 + r57*O1D*N2O + r71*CL*HO2 + r73*CL*O3 + + r75*CLO*CLO + r76*CLO*CLO + r78*CLO*HO2 + r84*CLO*O + r86*CLO*OH + r104*BR*HO2 + r105*BR*O3 + + r106*BRO*BRO + r108*BRO*CLO + r109*BRO*CLO + r110*BRO*HO2 + r114*BRO*O + r150*CH3O2*HO2 + + r164*S*O3 + r170*SO*O3 + r210*O2p*NO - j5*O2 - j6*O2 - j77*O2 - j78*O2 - j79*O2 - j80*O2 - j81*O2 - j82*O2 - j83*O2 - j84*O2 - - j85*O2 - j86*O2 - r6*O1D*O2 - r11*O2_1D*O2 - r19*M*O*O2 - r25*M*H*O2 - r39*N2D*O2 - r44*N*O2 - - r159*S*O2 - r166*SO*O2 - r199*N2p*O2 - r203*Np*O2 - r204*Np*O2 - r211*Op*O2 - r215*Op2D*O2 + - j85*O2 - j86*O2 - r6*O1D*O2 - r11*O2_1D*O2 - r19*M*O*O2 - r25*M*H*O2 - r64*N2D*O2 - r66*N*O2 + - r162*S*O2 - r169*SO*O2 - r202*N2p*O2 - r206*Np*O2 - r207*Np*O2 - r214*Op*O2 - r218*Op2D*O2 d(O3)/dt = r19*M*O*O2 - j7*O3 - j8*O3 - r8*O1D*O3 - r17*O*O3 - r27*HO2*O3 - r28*H*O3 - r33*OH*O3 - r46*NO2*O3 - - r54*NO*O3 - r70*CL*O3 - r102*BR*O3 - r161*S*O3 - r167*SO*O3 + - r54*NO*O3 - r73*CL*O3 - r105*BR*O3 - r164*S*O3 - r170*SO*O3 d(O3S)/dt = 0 - d(OCLO)/dt = r74*CLO*CLO + r104*BRO*CLO - - j59*OCLO - r168*SO*OCLO - d(OCS)/dt = - j88*OCS - r157*O*OCS - r158*OH*OCS + d(OCLO)/dt = r77*CLO*CLO + r107*BRO*CLO + - j59*OCLO - r171*SO*OCLO + d(OCS)/dt = - j88*OCS - r160*O*OCS - r161*OH*OCS d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 d(S)/dt = j88*OCS + j89*SO - - r159*O2*S - r161*O3*S - r164*OH*S + - r162*O2*S - r164*O3*S - r167*OH*S d(SF6)/dt = - j60*SF6 - d(SO)/dt = j90*SO2 + r157*OCS*O + r159*S*O2 + r161*S*O3 + r164*S*OH - - j89*SO - r162*BRO*SO - r163*CLO*SO - r165*NO2*SO - r166*O2*SO - r167*O3*SO - r168*OCLO*SO - - r169*OH*SO - d(SO2)/dt = j91*SO3 + r155*DMS*NO3 + r156*DMS*OH + r158*OCS*OH + r162*SO*BRO + r163*SO*CLO + r165*SO*NO2 - + r166*SO*O2 + r167*SO*O3 + r168*SO*OCLO + r169*SO*OH + .5*r170*DMS*OH - - j90*SO2 - r160*M*OH*SO2 - d(SO3)/dt = j87*H2SO4 + r160*M*SO2*OH - - j91*SO3 - r171*H2O*SO3 + d(SO)/dt = j90*SO2 + r160*OCS*O + r162*S*O2 + r164*S*O3 + r167*S*OH + - j89*SO - r165*BRO*SO - r166*CLO*SO - r168*NO2*SO - r169*O2*SO - r170*O3*SO - r171*OCLO*SO + - r172*OH*SO + d(SO2)/dt = j91*SO3 + r158*DMS*NO3 + r159*DMS*OH + r161*OCS*OH + r165*SO*BRO + r166*SO*CLO + r168*SO*NO2 + + r169*SO*O2 + r170*SO*O3 + r171*SO*OCLO + r172*SO*OH + .5*r173*DMS*OH + - j90*SO2 - r163*M*OH*SO2 + d(SO3)/dt = j87*H2SO4 + r163*M*SO2*OH + - j91*SO3 - r174*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 @@ -793,58 +794,58 @@ Extraneous prod/loss species d(e)/dt = j63*N2 + j64*N2 + j65*N2 + j67*N2 + j69*N2 + j70*N2 + j16*NO + j62*N + j71*O + j72*O + j73*O + j74*O + j75*O + j76*O + j77*O2 + j78*O2 + j79*O2 + j80*O2 + j81*O2 + j84*O2 + j85*O2 + j86*O2 - - r196*NOp*e - r197*O2p*e - r198*N2p*e + - r199*NOp*e - r200*O2p*e - r201*N2p*e d(HO2)/dt = j11*HO2NO2 + r62*M*HO2NO2 + r21*H2O2*O + r25*M*H*O2 + r30*OH*H2O2 + r33*OH*O3 + r51*NO3*OH - + r64*CL*CH2O + r67*CL*H2O2 + r71*CLO*CH3O2 + r82*CLO*OH + r100*BR*CH2O + r112*BRO*OH - + r129*CH3BR*CL + r130*CH3BR*OH + r132*CH3CL*CL + r133*CH3CL*OH + r144*CH2O*NO3 + r145*CH2O*O - + r148*CH3O2*NO + r152*O1D*CH4 + r154*CO*OH + r160*M*SO2*OH + .5*r170*DMS*OH - - r172*HO2 - r22*H*HO2 - r23*H*HO2 - r24*H*HO2 - r26*O*HO2 - r27*O3*HO2 - r31*OH*HO2 - - 2*r36*HO2*HO2 - r48*NO3*HO2 - r53*NO*HO2 - r58*M*NO2*HO2 - r68*CL*HO2 - r69*CL*HO2 - - r75*CLO*HO2 - r101*BR*HO2 - r107*BRO*HO2 - r147*CH3O2*HO2 - d(N2D)/dt = j65*N2 + 1.2*j66*N2 + 1.2*j68*N2 + j69*N2 + .8*r196*NOp*e + .9*r198*N2p*e + r200*N2p*O - - r38*O*N2D - r39*O2*N2D - r210*Op*N2D - d(N2p)/dt = j63*N2 + j67*N2 + r213*N2*Op2D + r218*N2*Op2P - - r198*e*N2p - r199*O2*N2p - r200*O*N2p - r201*O*N2p - d(NOp)/dt = j16*NO + r206*N2*O2p + r209*N2*Op + r200*N2p*O + r204*Np*O2 + r205*O2p*N + r207*O2p*NO - - r196*e*NOp - d(Np)/dt = j64*N2 + j65*N2 + j69*N2 + j70*N2 + j62*N + r219*N2*Op2P + r210*Op*N2D - - r202*O*Np - r203*O2*Np - r204*O2*Np - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r197*O2p*e + + r67*CL*CH2O + r70*CL*H2O2 + r74*CLO*CH3O2 + r85*CLO*OH + r103*BR*CH2O + r115*BRO*OH + + r132*CH3BR*CL + r133*CH3BR*OH + r135*CH3CL*CL + r136*CH3CL*OH + r147*CH2O*NO3 + r148*CH2O*O + + r151*CH3O2*NO + r155*O1D*CH4 + r157*CO*OH + r163*M*SO2*OH + .5*r173*DMS*OH + - r175*HO2 - r22*H*HO2 - r23*H*HO2 - r24*H*HO2 - r26*O*HO2 - r27*O3*HO2 - r31*OH*HO2 + - 2*r36*HO2*HO2 - r48*NO3*HO2 - r53*NO*HO2 - r58*M*NO2*HO2 - r71*CL*HO2 - r72*CL*HO2 + - r78*CLO*HO2 - r104*BR*HO2 - r110*BRO*HO2 - r150*CH3O2*HO2 + d(N2D)/dt = j65*N2 + 1.2*j66*N2 + 1.2*j68*N2 + j69*N2 + .8*r199*NOp*e + .9*r201*N2p*e + r203*N2p*O + - r37*N2D - r39*NO*N2D - r40*O*N2D - r63*e*N2D - r64*O2*N2D - r213*Op*N2D + d(N2p)/dt = j63*N2 + j67*N2 + r216*N2*Op2D + r221*N2*Op2P + - r201*e*N2p - r202*O2*N2p - r203*O*N2p - r204*O*N2p + d(NOp)/dt = j16*NO + r209*N2*O2p + r212*N2*Op + r203*N2p*O + r207*Np*O2 + r208*O2p*N + r210*O2p*NO + - r199*e*NOp + d(Np)/dt = j64*N2 + j65*N2 + j69*N2 + j70*N2 + j62*N + r222*N2*Op2P + r213*Op*N2D + - r205*O*Np - r206*O2*Np - r207*O2*Np + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r64*N2D*O2 + .85*r200*O2p*e - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r56*N2O*O1D - - r57*N2O*O1D - r89*CCL4*O1D - r90*CF2CLBR*O1D - r91*CFC11*O1D - r92*CFC113*O1D - r93*CFC114*O1D - - r94*CFC115*O1D - r95*CFC12*O1D - r96*HCL*O1D - r97*HCL*O1D - r116*CF3BR*O1D - r117*CHBR3*O1D - - r118*H2402*O1D - r119*HBR*O1D - r120*HBR*O1D - r125*COF2*O1D - r126*COFCL*O1D - - r139*CH2BR2*O1D - r140*CH3BR*O1D - r141*HCFC141B*O1D - r142*HCFC142B*O1D - r143*HCFC22*O1D - - r151*CH4*O1D - r152*CH4*O1D - r153*CH4*O1D + - r57*N2O*O1D - r92*CCL4*O1D - r93*CF2CLBR*O1D - r94*CFC11*O1D - r95*CFC113*O1D - r96*CFC114*O1D + - r97*CFC115*O1D - r98*CFC12*O1D - r99*HCL*O1D - r100*HCL*O1D - r119*CF3BR*O1D - r120*CHBR3*O1D + - r121*H2402*O1D - r122*HBR*O1D - r123*HBR*O1D - r128*COF2*O1D - r129*COFCL*O1D + - r142*CH2BR2*O1D - r143*CH3BR*O1D - r144*HCFC141B*O1D - r145*HCFC142B*O1D - r146*HCFC22*O1D + - r154*CH4*O1D - r155*CH4*O1D - r156*CH4*O1D d(O2_1D)/dt = j7*O3 + r13*N2*O2_1S + r12*O2_1S*CO2 + r14*O2_1S*O + r15*O2_1S*O2 + r16*O2_1S*O3 - r1*O2_1D - r9*N2*O2_1D - r10*O*O2_1D - r11*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - r2*O2_1S - r13*N2*O2_1S - r12*CO2*O2_1S - r14*O*O2_1S - r15*O2*O2_1S - r16*O3*O2_1S - d(O2p)/dt = j78*O2 + j80*O2 + r199*N2p*O2 + r203*Np*O2 + r208*Op*CO2 + r211*Op*O2 + r215*Op2D*O2 - - r206*N2*O2p - r197*e*O2p - r205*N*O2p - r207*NO*O2p + d(O2p)/dt = j78*O2 + j80*O2 + r202*N2p*O2 + r206*Np*O2 + r211*Op*CO2 + r214*Op*O2 + r218*Op2D*O2 + - r209*N2*O2p - r200*e*O2p - r208*N*O2p - r210*NO*O2p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j22*CH3OOH + .33*j24*CH4 + j57*HOBR + j58*HOCL - + .5*r174*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O - + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r69*CL*HO2 + r84*HCL*O + r87*HOCL*O - + r96*O1D*HCL + r113*HBR*O + r115*HOBR*O + r119*O1D*HBR + r123*F*H2O + r145*CH2O*O - + .3*r149*CH3OOH*OH + r151*O1D*CH4 + + .5*r177*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O + + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r72*CL*HO2 + r87*HCL*O + r90*HOCL*O + + r99*O1D*HCL + r116*HBR*O + r118*HOBR*O + r122*O1D*HBR + r126*F*H2O + r148*CH2O*O + + .3*r152*CH3OOH*OH + r154*O1D*CH4 - r29*H2*OH - r30*H2O2*OH - r31*HO2*OH - r32*O*OH - r33*O3*OH - 2*r34*OH*OH - 2*r35*M*OH*OH - - r37*HO2NO2*OH - r51*NO3*OH - r52*N*OH - r60*M*NO2*OH - r61*HNO3*OH - r80*CLONO2*OH - - r82*CLO*OH - r83*CLO*OH - r85*HCL*OH - r88*HOCL*OH - r112*BRO*OH - r114*HBR*OH - - r128*CH2BR2*OH - r130*CH3BR*OH - r131*CH3CCL3*OH - r133*CH3CL*OH - r135*CHBR3*OH - - r136*HCFC141B*OH - r137*HCFC142B*OH - r138*HCFC22*OH - r146*CH2O*OH - r149*CH3OOH*OH - - r150*CH4*OH - r154*CO*OH - r156*DMS*OH - r158*OCS*OH - r160*M*SO2*OH - r164*S*OH - r169*SO*OH - - r170*DMS*OH - d(Op)/dt = j73*O + j74*O + j79*O2 + j81*O2 + r193*Op2P + r194*Op2D + r201*N2p*O + r202*Np*O + r212*Op2D*e - + r214*Op2D*O + r217*Op2P*e + r220*Op2P*O - - r209*N2*Op - r208*CO2*Op - r210*N2D*Op - r211*O2*Op - d(Op2D)/dt = j75*O + j76*O + j85*O2 + j86*O2 + r195*Op2P + r216*Op2P*e - - r194*Op2D - r213*N2*Op2D - r212*e*Op2D - r214*O*Op2D - r215*O2*Op2D + - r38*HO2NO2*OH - r51*NO3*OH - r52*N*OH - r60*M*NO2*OH - r61*HNO3*OH - r83*CLONO2*OH + - r85*CLO*OH - r86*CLO*OH - r88*HCL*OH - r91*HOCL*OH - r115*BRO*OH - r117*HBR*OH + - r131*CH2BR2*OH - r133*CH3BR*OH - r134*CH3CCL3*OH - r136*CH3CL*OH - r138*CHBR3*OH + - r139*HCFC141B*OH - r140*HCFC142B*OH - r141*HCFC22*OH - r149*CH2O*OH - r152*CH3OOH*OH + - r153*CH4*OH - r157*CO*OH - r159*DMS*OH - r161*OCS*OH - r163*M*SO2*OH - r167*S*OH - r172*SO*OH + - r173*DMS*OH + d(Op)/dt = j73*O + j74*O + j79*O2 + j81*O2 + r196*Op2P + r197*Op2D + r204*N2p*O + r205*Np*O + r215*Op2D*e + + r217*Op2D*O + r220*Op2P*e + r223*Op2P*O + - r212*N2*Op - r211*CO2*Op - r213*N2D*Op - r214*O2*Op + d(Op2D)/dt = j75*O + j76*O + j85*O2 + j86*O2 + r198*Op2P + r219*Op2P*e + - r197*Op2D - r216*N2*Op2D - r215*e*Op2D - r217*O*Op2D - r218*O2*Op2D d(Op2P)/dt = j71*O + j72*O + j77*O2 + j84*O2 - - r193*Op2P - r195*Op2P - r218*N2*Op2P - r219*N2*Op2P - r216*e*Op2P - r217*e*Op2P - - r220*O*Op2P + - r196*Op2P - r198*Op2P - r221*N2*Op2P - r222*N2*Op2P - r219*e*Op2P - r220*e*Op2P + - r223*O*Op2P d(H2O)/dt = .05*j24*CH4 + j87*H2SO4 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 + r34*OH*OH - + r37*HO2NO2*OH + r61*HNO3*OH + r85*HCL*OH + r88*HOCL*OH + r114*HBR*OH + r128*CH2BR2*OH - + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH + r146*CH2O*OH - + r149*CH3OOH*OH + r150*CH4*OH + r177*HOCL*HCL + r183*HOCL*HCL + r184*HOBR*HCL + r188*HOCL*HCL - + r189*HOBR*HCL - - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r123*F*H2O - r171*SO3*H2O + + r38*HO2NO2*OH + r61*HNO3*OH + r88*HCL*OH + r91*HOCL*OH + r117*HBR*OH + r131*CH2BR2*OH + + r133*CH3BR*OH + r134*CH3CCL3*OH + r136*CH3CL*OH + r141*HCFC22*OH + r149*CH2O*OH + + r152*CH3OOH*OH + r153*CH4*OH + r180*HOCL*HCL + r186*HOCL*HCL + r187*HOBR*HCL + r191*HOCL*HCL + + r192*HOBR*HCL + - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r126*F*H2O - r174*SO3*H2O diff --git a/src/chemistry/pp_waccm_ma_mam5/chem_mech.in b/src/chemistry/pp_waccm_ma_mam5/chem_mech.in index 8443364166..19fe4d3fd6 100644 --- a/src/chemistry/pp_waccm_ma_mam5/chem_mech.in +++ b/src/chemistry/pp_waccm_ma_mam5/chem_mech.in @@ -1,11 +1,11 @@ * Comments -* User-given Tag Description: WACCM_MA_MAM4_JPL19 -* Tag database identifier : MZ319_MA_MAM4_20221220 -* Tag created by : lke +* User-given Tag Description: MA_MAM5 +* Tag database identifier : MZ370_MA_MAM4_20250225 +* Tag created by : jz * Tag created from branch : MA_MAM4 -* Tag created on : 2022-12-20 13:58:07.831193-07 +* Tag created on : 2025-02-25 15:44:09.52387-07 * Comments for this tag follow: -* lke : 2022-12-20 : WACCM middle atmosphere with MAM4 updated to JPL19 reaction rates +* jz : 2025-02-25 : MAM5, also with 5 nitrogen reactions added SPECIES @@ -418,14 +418,14 @@ ********************************* *** odd-nitrogen ********************************* +[agn2d] N2D -> N ; 1.06e-05 [HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 +[N2D_NO,cph=543.13] N2D + NO -> N2 + O ; 7e-11 [N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 -[N2D_O2,cph=177.51] N2D + O2 -> NO + O1D ; 5e-12 [N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 [N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 [N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 [N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 -[N_O2,cph=133.75] N + O2 -> NO + O ; 3.3e-12, -3150 [NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 [NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 [NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 @@ -444,7 +444,10 @@ [tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 [usr_HNO3_OH] HNO3 + OH -> NO3 + H2O [usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M +[usr_N2D_e,cph=229.61] N2D + e -> N + e +[usr_N2D_O2,cph=177.51] N2D + O2 -> NO + O1D [usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[usr_N_O2,cph=133.75] N + O2 -> NO + O ********************************* *** odd-chlorine ********************************* @@ -632,30 +635,28 @@ End Reactions Ext Forcing - so4_a2 <- dataset + CO <- dataset + bc_a1 <- dataset + NO <- dataset + pom_a1 <- dataset DMS <- dataset - bc_a4 <- dataset num_a1 <- dataset num_a2 <- dataset + so4_a1 <- dataset + so4_a2 <- dataset num_a4 <- dataset - num_a5 <- dataset - pom_a1 <- dataset pom_a4 <- dataset - so4_a1 <- dataset - so4_a5 <- dataset - CO <- dataset - NO <- dataset - NO2 <- dataset + bc_a4 <- dataset SO2 <- dataset - bc_a1 <- dataset - N - N2D + NO2 <- dataset + O2p N2p - Op - e Np - O2p + N2D + Op + N OH + e End Ext Forcing End Chemistry diff --git a/src/chemistry/pp_waccm_ma_mam5/chem_mods.F90 b/src/chemistry/pp_waccm_ma_mam5/chem_mods.F90 index 3c74c4fd26..3043f33f34 100644 --- a/src/chemistry/pp_waccm_ma_mam5/chem_mods.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/chem_mods.F90 @@ -6,15 +6,15 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 91, & ! number of photolysis reactions - rxntot = 311, & ! number of total reactions - gascnt = 220, & ! number of gas phase reactions + rxntot = 314, & ! number of total reactions + gascnt = 223, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 103, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members nzcnt = 959, & ! number of non-zero matrix entries - extcnt = 24, & ! number of species with external forcing + extcnt = 22, & ! number of species with external forcing clscnt1 = 1, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class clscnt3 = 0, & ! number of species in ebi class @@ -23,8 +23,8 @@ module chem_mods indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 311, & - enthalpy_cnt = 54, & + rxt_tag_cnt = 314, & + enthalpy_cnt = 56, & nslvd = 14 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 diff --git a/src/chemistry/pp_waccm_ma_mam5/m_rxt_id.F90 b/src/chemistry/pp_waccm_ma_mam5/m_rxt_id.F90 index 61adf10946..369741dd3b 100644 --- a/src/chemistry/pp_waccm_ma_mam5/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/m_rxt_id.F90 @@ -127,14 +127,14 @@ module m_rxt_id integer, parameter :: rid_OH_OH = 125 integer, parameter :: rid_OH_OH_M = 126 integer, parameter :: rid_usr_HO2_HO2 = 127 - integer, parameter :: rid_HO2NO2_OH = 128 - integer, parameter :: rid_N2D_O = 129 - integer, parameter :: rid_N2D_O2 = 130 - integer, parameter :: rid_N_NO = 131 - integer, parameter :: rid_N_NO2a = 132 - integer, parameter :: rid_N_NO2b = 133 - integer, parameter :: rid_N_NO2c = 134 - integer, parameter :: rid_N_O2 = 135 + integer, parameter :: rid_agn2d = 128 + integer, parameter :: rid_HO2NO2_OH = 129 + integer, parameter :: rid_N2D_NO = 130 + integer, parameter :: rid_N2D_O = 131 + integer, parameter :: rid_N_NO = 132 + integer, parameter :: rid_N_NO2a = 133 + integer, parameter :: rid_N_NO2b = 134 + integer, parameter :: rid_N_NO2c = 135 integer, parameter :: rid_NO2_O = 136 integer, parameter :: rid_NO2_O3 = 137 integer, parameter :: rid_NO2_O_M = 138 @@ -153,162 +153,165 @@ module m_rxt_id integer, parameter :: rid_tag_NO2_OH = 151 integer, parameter :: rid_usr_HNO3_OH = 152 integer, parameter :: rid_usr_HO2NO2_M = 153 - integer, parameter :: rid_usr_N2O5_M = 154 - integer, parameter :: rid_CL_CH2O = 155 - integer, parameter :: rid_CL_CH4 = 156 - integer, parameter :: rid_CL_H2 = 157 - integer, parameter :: rid_CL_H2O2 = 158 - integer, parameter :: rid_CL_HO2a = 159 - integer, parameter :: rid_CL_HO2b = 160 - integer, parameter :: rid_CL_O3 = 161 - integer, parameter :: rid_CLO_CH3O2 = 162 - integer, parameter :: rid_CLO_CLOa = 163 - integer, parameter :: rid_CLO_CLOb = 164 - integer, parameter :: rid_CLO_CLOc = 165 - integer, parameter :: rid_CLO_HO2 = 166 - integer, parameter :: rid_CLO_NO = 167 - integer, parameter :: rid_CLONO2_CL = 168 - integer, parameter :: rid_CLO_NO2_M = 169 - integer, parameter :: rid_CLONO2_O = 170 - integer, parameter :: rid_CLONO2_OH = 171 - integer, parameter :: rid_CLO_O = 172 - integer, parameter :: rid_CLO_OHa = 173 - integer, parameter :: rid_CLO_OHb = 174 - integer, parameter :: rid_HCL_O = 175 - integer, parameter :: rid_HCL_OH = 176 - integer, parameter :: rid_HOCL_CL = 177 - integer, parameter :: rid_HOCL_O = 178 - integer, parameter :: rid_HOCL_OH = 179 - integer, parameter :: rid_O1D_CCL4 = 180 - integer, parameter :: rid_O1D_CF2CLBR = 181 - integer, parameter :: rid_O1D_CFC11 = 182 - integer, parameter :: rid_O1D_CFC113 = 183 - integer, parameter :: rid_O1D_CFC114 = 184 - integer, parameter :: rid_O1D_CFC115 = 185 - integer, parameter :: rid_O1D_CFC12 = 186 - integer, parameter :: rid_O1D_HCLa = 187 - integer, parameter :: rid_O1D_HCLb = 188 - integer, parameter :: rid_tag_CLO_CLO_M = 189 - integer, parameter :: rid_usr_CL2O2_M = 190 - integer, parameter :: rid_BR_CH2O = 191 - integer, parameter :: rid_BR_HO2 = 192 - integer, parameter :: rid_BR_O3 = 193 - integer, parameter :: rid_BRO_BRO = 194 - integer, parameter :: rid_BRO_CLOa = 195 - integer, parameter :: rid_BRO_CLOb = 196 - integer, parameter :: rid_BRO_CLOc = 197 - integer, parameter :: rid_BRO_HO2 = 198 - integer, parameter :: rid_BRO_NO = 199 - integer, parameter :: rid_BRO_NO2_M = 200 - integer, parameter :: rid_BRONO2_O = 201 - integer, parameter :: rid_BRO_O = 202 - integer, parameter :: rid_BRO_OH = 203 - integer, parameter :: rid_HBR_O = 204 - integer, parameter :: rid_HBR_OH = 205 - integer, parameter :: rid_HOBR_O = 206 - integer, parameter :: rid_O1D_CF3BR = 207 - integer, parameter :: rid_O1D_CHBR3 = 208 - integer, parameter :: rid_O1D_H2402 = 209 - integer, parameter :: rid_O1D_HBRa = 210 - integer, parameter :: rid_O1D_HBRb = 211 - integer, parameter :: rid_F_CH4 = 212 - integer, parameter :: rid_F_H2 = 213 - integer, parameter :: rid_F_H2O = 214 - integer, parameter :: rid_F_HNO3 = 215 - integer, parameter :: rid_O1D_COF2 = 216 - integer, parameter :: rid_O1D_COFCL = 217 - integer, parameter :: rid_CH2BR2_CL = 218 - integer, parameter :: rid_CH2BR2_OH = 219 - integer, parameter :: rid_CH3BR_CL = 220 - integer, parameter :: rid_CH3BR_OH = 221 - integer, parameter :: rid_CH3CCL3_OH = 222 - integer, parameter :: rid_CH3CL_CL = 223 - integer, parameter :: rid_CH3CL_OH = 224 - integer, parameter :: rid_CHBR3_CL = 225 - integer, parameter :: rid_CHBR3_OH = 226 - integer, parameter :: rid_HCFC141B_OH = 227 - integer, parameter :: rid_HCFC142B_OH = 228 - integer, parameter :: rid_HCFC22_OH = 229 - integer, parameter :: rid_O1D_CH2BR2 = 230 - integer, parameter :: rid_O1D_CH3BR = 231 - integer, parameter :: rid_O1D_HCFC141B = 232 - integer, parameter :: rid_O1D_HCFC142B = 233 - integer, parameter :: rid_O1D_HCFC22 = 234 - integer, parameter :: rid_CH2O_NO3 = 235 - integer, parameter :: rid_CH2O_O = 236 - integer, parameter :: rid_CH2O_OH = 237 - integer, parameter :: rid_CH3O2_HO2 = 238 - integer, parameter :: rid_CH3O2_NO = 239 - integer, parameter :: rid_CH3OOH_OH = 240 - integer, parameter :: rid_CH4_OH = 241 - integer, parameter :: rid_O1D_CH4a = 242 - integer, parameter :: rid_O1D_CH4b = 243 - integer, parameter :: rid_O1D_CH4c = 244 - integer, parameter :: rid_usr_CO_OH = 245 - integer, parameter :: rid_DMS_NO3 = 246 - integer, parameter :: rid_DMS_OHa = 247 - integer, parameter :: rid_OCS_O = 248 - integer, parameter :: rid_OCS_OH = 249 - integer, parameter :: rid_S_O2 = 250 - integer, parameter :: rid_SO2_OH_M = 251 - integer, parameter :: rid_S_O3 = 252 - integer, parameter :: rid_SO_BRO = 253 - integer, parameter :: rid_SO_CLO = 254 - integer, parameter :: rid_S_OH = 255 - integer, parameter :: rid_SO_NO2 = 256 - integer, parameter :: rid_SO_O2 = 257 - integer, parameter :: rid_SO_O3 = 258 - integer, parameter :: rid_SO_OCLO = 259 - integer, parameter :: rid_SO_OH = 260 - integer, parameter :: rid_usr_DMS_OH = 261 - integer, parameter :: rid_usr_SO3_H2O = 262 - integer, parameter :: rid_usr_HO2_aer = 263 - integer, parameter :: rid_usr_N2O5_aer = 264 - integer, parameter :: rid_usr_NO2_aer = 265 - integer, parameter :: rid_usr_NO3_aer = 266 - integer, parameter :: rid_het1 = 267 - integer, parameter :: rid_het10 = 268 - integer, parameter :: rid_het11 = 269 - integer, parameter :: rid_het12 = 270 - integer, parameter :: rid_het13 = 271 - integer, parameter :: rid_het14 = 272 - integer, parameter :: rid_het15 = 273 - integer, parameter :: rid_het16 = 274 - integer, parameter :: rid_het17 = 275 - integer, parameter :: rid_het2 = 276 - integer, parameter :: rid_het3 = 277 - integer, parameter :: rid_het4 = 278 - integer, parameter :: rid_het5 = 279 - integer, parameter :: rid_het6 = 280 - integer, parameter :: rid_het7 = 281 - integer, parameter :: rid_het8 = 282 - integer, parameter :: rid_het9 = 283 - integer, parameter :: rid_ag247nm = 284 - integer, parameter :: rid_ag373nm = 285 - integer, parameter :: rid_ag732nm = 286 - integer, parameter :: rid_elec1 = 287 - integer, parameter :: rid_elec2 = 288 - integer, parameter :: rid_elec3 = 289 - integer, parameter :: rid_ion_N2p_O2 = 290 - integer, parameter :: rid_ion_N2p_Oa = 291 - integer, parameter :: rid_ion_N2p_Ob = 292 - integer, parameter :: rid_ion_Np_O = 293 - integer, parameter :: rid_ion_Np_O2a = 294 - integer, parameter :: rid_ion_Np_O2b = 295 - integer, parameter :: rid_ion_O2p_N = 296 - integer, parameter :: rid_ion_O2p_N2 = 297 - integer, parameter :: rid_ion_O2p_NO = 298 - integer, parameter :: rid_ion_Op_CO2 = 299 - integer, parameter :: rid_ion_Op_N2 = 300 - integer, parameter :: rid_ion_Op_N2D = 301 - integer, parameter :: rid_ion_Op_O2 = 302 - integer, parameter :: rid_Op2D_e = 303 - integer, parameter :: rid_Op2D_N2 = 304 - integer, parameter :: rid_Op2D_O = 305 - integer, parameter :: rid_Op2D_O2 = 306 - integer, parameter :: rid_Op2P_ea = 307 - integer, parameter :: rid_Op2P_eb = 308 - integer, parameter :: rid_Op2P_N2a = 309 - integer, parameter :: rid_Op2P_N2b = 310 - integer, parameter :: rid_Op2P_O = 311 + integer, parameter :: rid_usr_N2D_e = 154 + integer, parameter :: rid_usr_N2D_O2 = 155 + integer, parameter :: rid_usr_N2O5_M = 156 + integer, parameter :: rid_usr_N_O2 = 157 + integer, parameter :: rid_CL_CH2O = 158 + integer, parameter :: rid_CL_CH4 = 159 + integer, parameter :: rid_CL_H2 = 160 + integer, parameter :: rid_CL_H2O2 = 161 + integer, parameter :: rid_CL_HO2a = 162 + integer, parameter :: rid_CL_HO2b = 163 + integer, parameter :: rid_CL_O3 = 164 + integer, parameter :: rid_CLO_CH3O2 = 165 + integer, parameter :: rid_CLO_CLOa = 166 + integer, parameter :: rid_CLO_CLOb = 167 + integer, parameter :: rid_CLO_CLOc = 168 + integer, parameter :: rid_CLO_HO2 = 169 + integer, parameter :: rid_CLO_NO = 170 + integer, parameter :: rid_CLONO2_CL = 171 + integer, parameter :: rid_CLO_NO2_M = 172 + integer, parameter :: rid_CLONO2_O = 173 + integer, parameter :: rid_CLONO2_OH = 174 + integer, parameter :: rid_CLO_O = 175 + integer, parameter :: rid_CLO_OHa = 176 + integer, parameter :: rid_CLO_OHb = 177 + integer, parameter :: rid_HCL_O = 178 + integer, parameter :: rid_HCL_OH = 179 + integer, parameter :: rid_HOCL_CL = 180 + integer, parameter :: rid_HOCL_O = 181 + integer, parameter :: rid_HOCL_OH = 182 + integer, parameter :: rid_O1D_CCL4 = 183 + integer, parameter :: rid_O1D_CF2CLBR = 184 + integer, parameter :: rid_O1D_CFC11 = 185 + integer, parameter :: rid_O1D_CFC113 = 186 + integer, parameter :: rid_O1D_CFC114 = 187 + integer, parameter :: rid_O1D_CFC115 = 188 + integer, parameter :: rid_O1D_CFC12 = 189 + integer, parameter :: rid_O1D_HCLa = 190 + integer, parameter :: rid_O1D_HCLb = 191 + integer, parameter :: rid_tag_CLO_CLO_M = 192 + integer, parameter :: rid_usr_CL2O2_M = 193 + integer, parameter :: rid_BR_CH2O = 194 + integer, parameter :: rid_BR_HO2 = 195 + integer, parameter :: rid_BR_O3 = 196 + integer, parameter :: rid_BRO_BRO = 197 + integer, parameter :: rid_BRO_CLOa = 198 + integer, parameter :: rid_BRO_CLOb = 199 + integer, parameter :: rid_BRO_CLOc = 200 + integer, parameter :: rid_BRO_HO2 = 201 + integer, parameter :: rid_BRO_NO = 202 + integer, parameter :: rid_BRO_NO2_M = 203 + integer, parameter :: rid_BRONO2_O = 204 + integer, parameter :: rid_BRO_O = 205 + integer, parameter :: rid_BRO_OH = 206 + integer, parameter :: rid_HBR_O = 207 + integer, parameter :: rid_HBR_OH = 208 + integer, parameter :: rid_HOBR_O = 209 + integer, parameter :: rid_O1D_CF3BR = 210 + integer, parameter :: rid_O1D_CHBR3 = 211 + integer, parameter :: rid_O1D_H2402 = 212 + integer, parameter :: rid_O1D_HBRa = 213 + integer, parameter :: rid_O1D_HBRb = 214 + integer, parameter :: rid_F_CH4 = 215 + integer, parameter :: rid_F_H2 = 216 + integer, parameter :: rid_F_H2O = 217 + integer, parameter :: rid_F_HNO3 = 218 + integer, parameter :: rid_O1D_COF2 = 219 + integer, parameter :: rid_O1D_COFCL = 220 + integer, parameter :: rid_CH2BR2_CL = 221 + integer, parameter :: rid_CH2BR2_OH = 222 + integer, parameter :: rid_CH3BR_CL = 223 + integer, parameter :: rid_CH3BR_OH = 224 + integer, parameter :: rid_CH3CCL3_OH = 225 + integer, parameter :: rid_CH3CL_CL = 226 + integer, parameter :: rid_CH3CL_OH = 227 + integer, parameter :: rid_CHBR3_CL = 228 + integer, parameter :: rid_CHBR3_OH = 229 + integer, parameter :: rid_HCFC141B_OH = 230 + integer, parameter :: rid_HCFC142B_OH = 231 + integer, parameter :: rid_HCFC22_OH = 232 + integer, parameter :: rid_O1D_CH2BR2 = 233 + integer, parameter :: rid_O1D_CH3BR = 234 + integer, parameter :: rid_O1D_HCFC141B = 235 + integer, parameter :: rid_O1D_HCFC142B = 236 + integer, parameter :: rid_O1D_HCFC22 = 237 + integer, parameter :: rid_CH2O_NO3 = 238 + integer, parameter :: rid_CH2O_O = 239 + integer, parameter :: rid_CH2O_OH = 240 + integer, parameter :: rid_CH3O2_HO2 = 241 + integer, parameter :: rid_CH3O2_NO = 242 + integer, parameter :: rid_CH3OOH_OH = 243 + integer, parameter :: rid_CH4_OH = 244 + integer, parameter :: rid_O1D_CH4a = 245 + integer, parameter :: rid_O1D_CH4b = 246 + integer, parameter :: rid_O1D_CH4c = 247 + integer, parameter :: rid_usr_CO_OH = 248 + integer, parameter :: rid_DMS_NO3 = 249 + integer, parameter :: rid_DMS_OHa = 250 + integer, parameter :: rid_OCS_O = 251 + integer, parameter :: rid_OCS_OH = 252 + integer, parameter :: rid_S_O2 = 253 + integer, parameter :: rid_SO2_OH_M = 254 + integer, parameter :: rid_S_O3 = 255 + integer, parameter :: rid_SO_BRO = 256 + integer, parameter :: rid_SO_CLO = 257 + integer, parameter :: rid_S_OH = 258 + integer, parameter :: rid_SO_NO2 = 259 + integer, parameter :: rid_SO_O2 = 260 + integer, parameter :: rid_SO_O3 = 261 + integer, parameter :: rid_SO_OCLO = 262 + integer, parameter :: rid_SO_OH = 263 + integer, parameter :: rid_usr_DMS_OH = 264 + integer, parameter :: rid_usr_SO3_H2O = 265 + integer, parameter :: rid_usr_HO2_aer = 266 + integer, parameter :: rid_usr_N2O5_aer = 267 + integer, parameter :: rid_usr_NO2_aer = 268 + integer, parameter :: rid_usr_NO3_aer = 269 + integer, parameter :: rid_het1 = 270 + integer, parameter :: rid_het10 = 271 + integer, parameter :: rid_het11 = 272 + integer, parameter :: rid_het12 = 273 + integer, parameter :: rid_het13 = 274 + integer, parameter :: rid_het14 = 275 + integer, parameter :: rid_het15 = 276 + integer, parameter :: rid_het16 = 277 + integer, parameter :: rid_het17 = 278 + integer, parameter :: rid_het2 = 279 + integer, parameter :: rid_het3 = 280 + integer, parameter :: rid_het4 = 281 + integer, parameter :: rid_het5 = 282 + integer, parameter :: rid_het6 = 283 + integer, parameter :: rid_het7 = 284 + integer, parameter :: rid_het8 = 285 + integer, parameter :: rid_het9 = 286 + integer, parameter :: rid_ag247nm = 287 + integer, parameter :: rid_ag373nm = 288 + integer, parameter :: rid_ag732nm = 289 + integer, parameter :: rid_elec1 = 290 + integer, parameter :: rid_elec2 = 291 + integer, parameter :: rid_elec3 = 292 + integer, parameter :: rid_ion_N2p_O2 = 293 + integer, parameter :: rid_ion_N2p_Oa = 294 + integer, parameter :: rid_ion_N2p_Ob = 295 + integer, parameter :: rid_ion_Np_O = 296 + integer, parameter :: rid_ion_Np_O2a = 297 + integer, parameter :: rid_ion_Np_O2b = 298 + integer, parameter :: rid_ion_O2p_N = 299 + integer, parameter :: rid_ion_O2p_N2 = 300 + integer, parameter :: rid_ion_O2p_NO = 301 + integer, parameter :: rid_ion_Op_CO2 = 302 + integer, parameter :: rid_ion_Op_N2 = 303 + integer, parameter :: rid_ion_Op_N2D = 304 + integer, parameter :: rid_ion_Op_O2 = 305 + integer, parameter :: rid_Op2D_e = 306 + integer, parameter :: rid_Op2D_N2 = 307 + integer, parameter :: rid_Op2D_O = 308 + integer, parameter :: rid_Op2D_O2 = 309 + integer, parameter :: rid_Op2P_ea = 310 + integer, parameter :: rid_Op2P_eb = 311 + integer, parameter :: rid_Op2P_N2a = 312 + integer, parameter :: rid_Op2P_N2b = 313 + integer, parameter :: rid_Op2P_O = 314 end module m_rxt_id diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_adjrxt.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_adjrxt.F90 index 1f5d1ba14f..f82a8ce90b 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_adjrxt.F90 @@ -26,17 +26,17 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 150) = rate(:,:, 150) * inv(:,:, 1) rate(:,:, 151) = rate(:,:, 151) * inv(:,:, 1) rate(:,:, 153) = rate(:,:, 153) * inv(:,:, 1) - rate(:,:, 154) = rate(:,:, 154) * inv(:,:, 1) - rate(:,:, 169) = rate(:,:, 169) * inv(:,:, 1) - rate(:,:, 189) = rate(:,:, 189) * inv(:,:, 1) - rate(:,:, 190) = rate(:,:, 190) * inv(:,:, 1) - rate(:,:, 200) = rate(:,:, 200) * inv(:,:, 1) - rate(:,:, 251) = rate(:,:, 251) * inv(:,:, 1) - rate(:,:, 297) = rate(:,:, 297) * inv(:,:, 2) + rate(:,:, 156) = rate(:,:, 156) * inv(:,:, 1) + rate(:,:, 172) = rate(:,:, 172) * inv(:,:, 1) + rate(:,:, 192) = rate(:,:, 192) * inv(:,:, 1) + rate(:,:, 193) = rate(:,:, 193) * inv(:,:, 1) + rate(:,:, 203) = rate(:,:, 203) * inv(:,:, 1) + rate(:,:, 254) = rate(:,:, 254) * inv(:,:, 1) rate(:,:, 300) = rate(:,:, 300) * inv(:,:, 2) - rate(:,:, 304) = rate(:,:, 304) * inv(:,:, 2) - rate(:,:, 309) = rate(:,:, 309) * inv(:,:, 2) - rate(:,:, 310) = rate(:,:, 310) * inv(:,:, 2) + rate(:,:, 303) = rate(:,:, 303) * inv(:,:, 2) + rate(:,:, 307) = rate(:,:, 307) * inv(:,:, 2) + rate(:,:, 312) = rate(:,:, 312) * inv(:,:, 2) + rate(:,:, 313) = rate(:,:, 313) * inv(:,:, 2) rate(:,:, 94) = rate(:,:, 94) * m(:,:) rate(:,:, 95) = rate(:,:, 95) * m(:,:) rate(:,:, 97) = rate(:,:, 97) * m(:,:) @@ -68,7 +68,6 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 125) = rate(:,:, 125) * m(:,:) rate(:,:, 126) = rate(:,:, 126) * m(:,:) rate(:,:, 127) = rate(:,:, 127) * m(:,:) - rate(:,:, 128) = rate(:,:, 128) * m(:,:) rate(:,:, 129) = rate(:,:, 129) * m(:,:) rate(:,:, 130) = rate(:,:, 130) * m(:,:) rate(:,:, 131) = rate(:,:, 131) * m(:,:) @@ -93,8 +92,8 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 150) = rate(:,:, 150) * m(:,:) rate(:,:, 151) = rate(:,:, 151) * m(:,:) rate(:,:, 152) = rate(:,:, 152) * m(:,:) + rate(:,:, 154) = rate(:,:, 154) * m(:,:) rate(:,:, 155) = rate(:,:, 155) * m(:,:) - rate(:,:, 156) = rate(:,:, 156) * m(:,:) rate(:,:, 157) = rate(:,:, 157) * m(:,:) rate(:,:, 158) = rate(:,:, 158) * m(:,:) rate(:,:, 159) = rate(:,:, 159) * m(:,:) @@ -128,9 +127,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 187) = rate(:,:, 187) * m(:,:) rate(:,:, 188) = rate(:,:, 188) * m(:,:) rate(:,:, 189) = rate(:,:, 189) * m(:,:) + rate(:,:, 190) = rate(:,:, 190) * m(:,:) rate(:,:, 191) = rate(:,:, 191) * m(:,:) rate(:,:, 192) = rate(:,:, 192) * m(:,:) - rate(:,:, 193) = rate(:,:, 193) * m(:,:) rate(:,:, 194) = rate(:,:, 194) * m(:,:) rate(:,:, 195) = rate(:,:, 195) * m(:,:) rate(:,:, 196) = rate(:,:, 196) * m(:,:) @@ -200,17 +199,17 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 260) = rate(:,:, 260) * m(:,:) rate(:,:, 261) = rate(:,:, 261) * m(:,:) rate(:,:, 262) = rate(:,:, 262) * m(:,:) - rate(:,:, 268) = rate(:,:, 268) * m(:,:) - rate(:,:, 273) = rate(:,:, 273) * m(:,:) - rate(:,:, 274) = rate(:,:, 274) * m(:,:) - rate(:,:, 275) = rate(:,:, 275) * m(:,:) + rate(:,:, 263) = rate(:,:, 263) * m(:,:) + rate(:,:, 264) = rate(:,:, 264) * m(:,:) + rate(:,:, 265) = rate(:,:, 265) * m(:,:) + rate(:,:, 271) = rate(:,:, 271) * m(:,:) + rate(:,:, 276) = rate(:,:, 276) * m(:,:) + rate(:,:, 277) = rate(:,:, 277) * m(:,:) rate(:,:, 278) = rate(:,:, 278) * m(:,:) - rate(:,:, 279) = rate(:,:, 279) * m(:,:) - rate(:,:, 280) = rate(:,:, 280) * m(:,:) + rate(:,:, 281) = rate(:,:, 281) * m(:,:) + rate(:,:, 282) = rate(:,:, 282) * m(:,:) rate(:,:, 283) = rate(:,:, 283) * m(:,:) - rate(:,:, 287) = rate(:,:, 287) * m(:,:) - rate(:,:, 288) = rate(:,:, 288) * m(:,:) - rate(:,:, 289) = rate(:,:, 289) * m(:,:) + rate(:,:, 286) = rate(:,:, 286) * m(:,:) rate(:,:, 290) = rate(:,:, 290) * m(:,:) rate(:,:, 291) = rate(:,:, 291) * m(:,:) rate(:,:, 292) = rate(:,:, 292) * m(:,:) @@ -218,15 +217,18 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 294) = rate(:,:, 294) * m(:,:) rate(:,:, 295) = rate(:,:, 295) * m(:,:) rate(:,:, 296) = rate(:,:, 296) * m(:,:) + rate(:,:, 297) = rate(:,:, 297) * m(:,:) rate(:,:, 298) = rate(:,:, 298) * m(:,:) rate(:,:, 299) = rate(:,:, 299) * m(:,:) rate(:,:, 301) = rate(:,:, 301) * m(:,:) rate(:,:, 302) = rate(:,:, 302) * m(:,:) - rate(:,:, 303) = rate(:,:, 303) * m(:,:) + rate(:,:, 304) = rate(:,:, 304) * m(:,:) rate(:,:, 305) = rate(:,:, 305) * m(:,:) rate(:,:, 306) = rate(:,:, 306) * m(:,:) - rate(:,:, 307) = rate(:,:, 307) * m(:,:) rate(:,:, 308) = rate(:,:, 308) * m(:,:) + rate(:,:, 309) = rate(:,:, 309) * m(:,:) + rate(:,:, 310) = rate(:,:, 310) * m(:,:) rate(:,:, 311) = rate(:,:, 311) * m(:,:) + rate(:,:, 314) = rate(:,:, 314) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_indprd.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_indprd.F90 index 59b51ae306..7652ebb7a7 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_indprd.F90 @@ -25,8 +25,8 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then - prod(:,1) = + extfrc(:,16) - prod(:,2) = + extfrc(:,3) + prod(:,1) = + extfrc(:,2) + prod(:,2) = + extfrc(:,12) prod(:,97) = 0._r8 prod(:,45) = 0._r8 prod(:,101) = 0._r8 @@ -55,11 +55,11 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,91) = 0._r8 prod(:,75) = 0._r8 prod(:,4) = 0._r8 - prod(:,72) = + extfrc(:,12) + prod(:,72) = + extfrc(:,1) prod(:,61) = 0._r8 prod(:,41) = 0._r8 prod(:,43) = 0._r8 - prod(:,51) = + extfrc(:,2) + prod(:,51) = + extfrc(:,5) prod(:,5) = 0._r8 prod(:,6) = 0._r8 prod(:,7) = 0._r8 @@ -80,53 +80,53 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,68) = 0._r8 prod(:,70) = 0._r8 prod(:,78) = (rxt(:,64) +.800_r8*rxt(:,66) +.800_r8*rxt(:,68) +rxt(:,70)) & - + extfrc(:,17) + + extfrc(:,20) prod(:,46) = 0._r8 prod(:,50) = 0._r8 prod(:,8) = 0._r8 prod(:,9) = 0._r8 prod(:,10) = 0._r8 - prod(:,95) = + extfrc(:,13) + prod(:,95) = + extfrc(:,3) prod(:,92) = + extfrc(:,14) prod(:,90) = 0._r8 - prod(:,11) = + extfrc(:,4) - prod(:,12) = + extfrc(:,5) + prod(:,11) = + extfrc(:,6) + prod(:,12) = + extfrc(:,7) prod(:,13) = 0._r8 - prod(:,14) = + extfrc(:,6) - prod(:,15) = + extfrc(:,7) + prod(:,14) = + extfrc(:,10) + prod(:,15) = 0._r8 prod(:,93) = 0._r8 prod(:,87) = 0._r8 prod(:,88) = 0._r8 prod(:,52) = 0._r8 prod(:,53) = 0._r8 - prod(:,16) = + extfrc(:,8) - prod(:,17) = + extfrc(:,9) + prod(:,16) = + extfrc(:,4) + prod(:,17) = + extfrc(:,11) prod(:,66) = 0._r8 prod(:,18) = 0._r8 prod(:,83) = 0._r8 - prod(:,74) = + extfrc(:,15) + prod(:,74) = + extfrc(:,13) prod(:,47) = 0._r8 - prod(:,19) = + extfrc(:,10) - prod(:,20) = + extfrc(:,1) + prod(:,19) = + extfrc(:,8) + prod(:,20) = + extfrc(:,9) prod(:,21) = 0._r8 - prod(:,22) = + extfrc(:,11) + prod(:,22) = 0._r8 prod(:,23) = 0._r8 prod(:,24) = 0._r8 prod(:,25) = 0._r8 prod(:,76) = (rxt(:,63) +rxt(:,64) +rxt(:,65) +rxt(:,67) +rxt(:,69) + & - rxt(:,70)) + extfrc(:,21) + rxt(:,70)) + extfrc(:,22) prod(:,89) = 0._r8 prod(:,77) = (rxt(:,65) +1.200_r8*rxt(:,66) +1.200_r8*rxt(:,68) +rxt(:,69)) & + extfrc(:,18) - prod(:,64) = (rxt(:,63) +rxt(:,67)) + extfrc(:,19) + prod(:,64) = (rxt(:,63) +rxt(:,67)) + extfrc(:,16) prod(:,67) = 0._r8 - prod(:,71) = (rxt(:,64) +rxt(:,65) +rxt(:,69) +rxt(:,70)) + extfrc(:,22) + prod(:,71) = (rxt(:,64) +rxt(:,65) +rxt(:,69) +rxt(:,70)) + extfrc(:,17) prod(:,94) = 0._r8 prod(:,39) = 0._r8 prod(:,40) = 0._r8 - prod(:,79) = + extfrc(:,23) - prod(:,98) = + extfrc(:,24) - prod(:,80) = + extfrc(:,20) + prod(:,79) = + extfrc(:,15) + prod(:,98) = + extfrc(:,21) + prod(:,80) = + extfrc(:,19) prod(:,60) = 0._r8 prod(:,59) = 0._r8 prod(:,102) = 0._r8 diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_lin_matrix.F90 index 14f1d2a1ef..f62bc2b20b 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_lin_matrix.F90 @@ -40,7 +40,7 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,100) = -( rxt(k,26) + het_rates(k,4) ) mat(k,931) = -( rxt(k,27) + het_rates(k,5) ) mat(k,209) = rxt(k,28) - mat(k,202) = -( rxt(k,28) + rxt(k,29) + rxt(k,269) + rxt(k,272) + rxt(k,277) & + mat(k,202) = -( rxt(k,28) + rxt(k,29) + rxt(k,272) + rxt(k,275) + rxt(k,280) & + het_rates(k,6) ) mat(k,3) = -( het_rates(k,7) ) mat(k,29) = -( rxt(k,30) + het_rates(k,8) ) @@ -87,12 +87,12 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,462) = rxt(k,55) mat(k,269) = rxt(k,58) mat(k,75) = -( rxt(k,43) + het_rates(k,26) ) - mat(k,26) = -( rxt(k,44) + rxt(k,190) + het_rates(k,27) ) + mat(k,26) = -( rxt(k,44) + rxt(k,193) + het_rates(k,27) ) mat(k,610) = -( rxt(k,45) + het_rates(k,28) ) mat(k,311) = rxt(k,47) mat(k,137) = rxt(k,59) - mat(k,27) = 2.000_r8*rxt(k,190) - mat(k,308) = -( rxt(k,46) + rxt(k,47) + rxt(k,271) + rxt(k,276) + rxt(k,282) & + mat(k,27) = 2.000_r8*rxt(k,193) + mat(k,308) = -( rxt(k,46) + rxt(k,47) + rxt(k,274) + rxt(k,279) + rxt(k,285) & + het_rates(k,29) ) mat(k,4) = -( het_rates(k,30) ) mat(k,282) = -( het_rates(k,31) ) @@ -140,7 +140,7 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,407) = 1.440_r8*rxt(k,24) mat(k,32) = -( rxt(k,50) + het_rates(k,42) ) mat(k,228) = -( rxt(k,4) + het_rates(k,43) ) - mat(k,545) = .500_r8*rxt(k,263) + mat(k,545) = .500_r8*rxt(k,266) mat(k,52) = -( rxt(k,87) + het_rates(k,44) ) mat(k,256) = -( rxt(k,51) + het_rates(k,45) ) mat(k,85) = -( rxt(k,52) + het_rates(k,46) ) @@ -149,42 +149,43 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,453) = -( rxt(k,55) + het_rates(k,49) ) mat(k,119) = -( rxt(k,56) + het_rates(k,50) ) mat(k,906) = -( rxt(k,9) + het_rates(k,51) ) - mat(k,127) = 2.000_r8*rxt(k,264) + 2.000_r8*rxt(k,267) + 2.000_r8*rxt(k,270) & - + 2.000_r8*rxt(k,281) - mat(k,648) = .500_r8*rxt(k,265) - mat(k,591) = rxt(k,266) - mat(k,208) = rxt(k,269) + rxt(k,272) + rxt(k,277) - mat(k,316) = rxt(k,271) + rxt(k,276) + rxt(k,282) + mat(k,127) = 2.000_r8*rxt(k,267) + 2.000_r8*rxt(k,270) + 2.000_r8*rxt(k,273) & + + 2.000_r8*rxt(k,284) + mat(k,648) = .500_r8*rxt(k,268) + mat(k,591) = rxt(k,269) + mat(k,208) = rxt(k,272) + rxt(k,275) + rxt(k,280) + mat(k,316) = rxt(k,274) + rxt(k,279) + rxt(k,285) mat(k,167) = -( rxt(k,10) + rxt(k,11) + rxt(k,153) + het_rates(k,52) ) mat(k,248) = -( rxt(k,57) + het_rates(k,53) ) - mat(k,203) = rxt(k,269) + rxt(k,272) + rxt(k,277) + mat(k,203) = rxt(k,272) + rxt(k,275) + rxt(k,280) mat(k,265) = -( rxt(k,58) + het_rates(k,54) ) - mat(k,307) = rxt(k,271) + rxt(k,276) + rxt(k,282) + mat(k,307) = rxt(k,274) + rxt(k,279) + rxt(k,285) mat(k,347) = -( rxt(k,62) + het_rates(k,55) ) mat(k,738) = rxt(k,15) - mat(k,376) = rxt(k,300) + mat(k,335) = rxt(k,128) + mat(k,376) = rxt(k,303) mat(k,103) = -( rxt(k,12) + het_rates(k,56) ) - mat(k,122) = -( rxt(k,13) + rxt(k,14) + rxt(k,154) + rxt(k,264) + rxt(k,267) & - + rxt(k,270) + rxt(k,281) + het_rates(k,57) ) + mat(k,122) = -( rxt(k,13) + rxt(k,14) + rxt(k,156) + rxt(k,267) + rxt(k,270) & + + rxt(k,273) + rxt(k,284) + het_rates(k,57) ) mat(k,8) = -( het_rates(k,58) ) mat(k,9) = -( het_rates(k,59) ) mat(k,10) = -( het_rates(k,60) ) mat(k,752) = -( rxt(k,15) + rxt(k,16) + het_rates(k,61) ) mat(k,126) = rxt(k,14) - mat(k,643) = rxt(k,17) + .500_r8*rxt(k,265) + mat(k,643) = rxt(k,17) + .500_r8*rxt(k,268) mat(k,586) = rxt(k,19) - mat(k,368) = rxt(k,297) - mat(k,187) = rxt(k,310) - mat(k,640) = -( rxt(k,17) + rxt(k,265) + het_rates(k,62) ) + mat(k,368) = rxt(k,300) + mat(k,187) = rxt(k,313) + mat(k,640) = -( rxt(k,17) + rxt(k,268) + het_rates(k,62) ) mat(k,898) = rxt(k,9) mat(k,171) = rxt(k,11) + rxt(k,153) - mat(k,124) = rxt(k,13) + rxt(k,154) + mat(k,124) = rxt(k,13) + rxt(k,156) mat(k,583) = rxt(k,18) mat(k,205) = rxt(k,28) mat(k,312) = rxt(k,47) - mat(k,581) = -( rxt(k,18) + rxt(k,19) + rxt(k,266) + het_rates(k,63) ) + mat(k,581) = -( rxt(k,18) + rxt(k,19) + rxt(k,269) + het_rates(k,63) ) mat(k,170) = rxt(k,10) - mat(k,123) = rxt(k,13) + rxt(k,14) + rxt(k,154) + mat(k,123) = rxt(k,13) + rxt(k,14) + rxt(k,156) mat(k,204) = rxt(k,29) mat(k,310) = rxt(k,46) mat(k,11) = -( het_rates(k,64) ) @@ -212,8 +213,8 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,303) = rxt(k,90) mat(k,110) = rxt(k,91) mat(k,725) = rxt(k,96) - mat(k,193) = rxt(k,304) - mat(k,186) = rxt(k,309) + mat(k,193) = rxt(k,307) + mat(k,186) = rxt(k,312) mat(k,508) = -( rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,78) + rxt(k,79) & + rxt(k,80) + rxt(k,81) + rxt(k,82) + rxt(k,83) + rxt(k,84) & + rxt(k,85) + rxt(k,86) + het_rates(k,70) ) @@ -223,7 +224,6 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,81) = rxt(k,93) mat(k,529) = -( rxt(k,7) + rxt(k,8) + het_rates(k,71) ) mat(k,134) = -( rxt(k,59) + het_rates(k,73) ) - mat(k,139) = -( rxt(k,88) + het_rates(k,74) ) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -246,6 +246,7 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len + mat(k,139) = -( rxt(k,88) + het_rates(k,74) ) mat(k,16) = -( het_rates(k,75) ) mat(k,17) = -( het_rates(k,76) ) mat(k,235) = -( het_rates(k,77) ) @@ -272,19 +273,19 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) + rxt(k,76) mat(k,501) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & + rxt(k,84) + rxt(k,85) + rxt(k,86) - mat(k,555) = -( rxt(k,263) + het_rates(k,90) ) + mat(k,555) = -( rxt(k,266) + het_rates(k,90) ) mat(k,169) = rxt(k,11) + rxt(k,153) - mat(k,334) = -( het_rates(k,91) ) + mat(k,334) = -( rxt(k,128) + het_rates(k,91) ) mat(k,219) = -( het_rates(k,92) ) - mat(k,189) = rxt(k,304) - mat(k,183) = rxt(k,309) + mat(k,189) = rxt(k,307) + mat(k,183) = rxt(k,312) mat(k,242) = -( het_rates(k,93) ) mat(k,735) = rxt(k,16) - mat(k,357) = rxt(k,297) - mat(k,371) = rxt(k,300) + mat(k,357) = rxt(k,300) + mat(k,371) = rxt(k,303) mat(k,273) = -( het_rates(k,94) ) mat(k,344) = rxt(k,62) - mat(k,184) = rxt(k,310) + mat(k,184) = rxt(k,313) mat(k,726) = -( rxt(k,96) + het_rates(k,95) ) mat(k,951) = rxt(k,1) mat(k,514) = rxt(k,6) @@ -294,7 +295,7 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,522) = rxt(k,7) mat(k,79) = rxt(k,104) mat(k,80) = -( rxt(k,93) + rxt(k,104) + het_rates(k,97) ) - mat(k,361) = -( rxt(k,297) + het_rates(k,98) ) + mat(k,361) = -( rxt(k,300) + het_rates(k,98) ) mat(k,504) = rxt(k,78) + rxt(k,80) mat(k,858) = -( het_rates(k,99) ) mat(k,955) = rxt(k,3) @@ -305,17 +306,17 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,406) = .330_r8*rxt(k,24) mat(k,253) = rxt(k,57) mat(k,270) = rxt(k,58) - mat(k,646) = .500_r8*rxt(k,265) - mat(k,378) = -( rxt(k,300) + het_rates(k,100) ) + mat(k,646) = .500_r8*rxt(k,268) + mat(k,378) = -( rxt(k,303) + het_rates(k,100) ) mat(k,672) = rxt(k,73) + rxt(k,74) mat(k,505) = rxt(k,79) + rxt(k,81) - mat(k,185) = rxt(k,284) - mat(k,191) = rxt(k,285) - mat(k,188) = -( rxt(k,285) + rxt(k,304) + het_rates(k,101) ) + mat(k,185) = rxt(k,287) + mat(k,191) = rxt(k,288) + mat(k,188) = -( rxt(k,288) + rxt(k,307) + het_rates(k,101) ) mat(k,655) = rxt(k,75) + rxt(k,76) mat(k,495) = rxt(k,85) + rxt(k,86) - mat(k,182) = rxt(k,286) - mat(k,181) = -( rxt(k,284) + rxt(k,286) + rxt(k,309) + rxt(k,310) & + mat(k,182) = rxt(k,289) + mat(k,181) = -( rxt(k,287) + rxt(k,289) + rxt(k,312) + rxt(k,313) & + het_rates(k,102) ) mat(k,654) = rxt(k,71) + rxt(k,72) mat(k,494) = rxt(k,77) + rxt(k,84) diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_lu_factor.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_lu_factor.F90 index 8ef84fb84f..767b382d43 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_lu_factor.F90 @@ -798,7 +798,7 @@ subroutine lu_fac06( avec_len, lu ) lu(k,670) = lu(k,670) - lu(k,245) * lu(k,660) lu(k,683) = lu(k,683) - lu(k,246) * lu(k,660) lu(k,736) = lu(k,736) - lu(k,243) * lu(k,735) - lu(k,737) = - lu(k,244) * lu(k,735) + lu(k,737) = lu(k,737) - lu(k,244) * lu(k,735) lu(k,738) = lu(k,738) - lu(k,245) * lu(k,735) lu(k,750) = lu(k,750) - lu(k,246) * lu(k,735) lu(k,248) = 1._r8 / lu(k,248) diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_nln_matrix.F90 index fcd1810f01..5702c47d79 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_nln_matrix.F90 @@ -22,214 +22,214 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,808) = -(rxt(k,191)*y(k,17) + rxt(k,192)*y(k,90) + rxt(k,193)*y(k,71)) - mat(k,486) = -rxt(k,191)*y(k,3) - mat(k,563) = -rxt(k,192)*y(k,3) - mat(k,538) = -rxt(k,193)*y(k,3) - mat(k,927) = 4.000_r8*rxt(k,194)*y(k,5) + (rxt(k,195)+rxt(k,196))*y(k,28) & - + rxt(k,199)*y(k,61) + rxt(k,202)*y(k,69) + rxt(k,253)*y(k,79) & - + rxt(k,203)*y(k,99) - mat(k,59) = rxt(k,181)*y(k,95) - mat(k,64) = rxt(k,207)*y(k,95) - mat(k,178) = 2.000_r8*rxt(k,218)*y(k,25) + 2.000_r8*rxt(k,230)*y(k,95) & - + 2.000_r8*rxt(k,219)*y(k,99) - mat(k,216) = rxt(k,220)*y(k,25) + rxt(k,231)*y(k,95) + rxt(k,221)*y(k,99) - mat(k,165) = 3.000_r8*rxt(k,225)*y(k,25) + 3.000_r8*rxt(k,208)*y(k,95) & - + 3.000_r8*rxt(k,226)*y(k,99) - mat(k,786) = 2.000_r8*rxt(k,218)*y(k,16) + rxt(k,220)*y(k,18) & - + 3.000_r8*rxt(k,225)*y(k,24) - mat(k,616) = (rxt(k,195)+rxt(k,196))*y(k,5) - mat(k,35) = 2.000_r8*rxt(k,209)*y(k,95) - mat(k,260) = rxt(k,204)*y(k,69) + rxt(k,210)*y(k,95) + rxt(k,205)*y(k,99) - mat(k,754) = rxt(k,199)*y(k,5) - mat(k,687) = rxt(k,202)*y(k,5) + rxt(k,204)*y(k,45) - mat(k,435) = rxt(k,253)*y(k,5) - mat(k,729) = rxt(k,181)*y(k,9) + rxt(k,207)*y(k,10) + 2.000_r8*rxt(k,230) & - *y(k,16) + rxt(k,231)*y(k,18) + 3.000_r8*rxt(k,208)*y(k,24) & - + 2.000_r8*rxt(k,209)*y(k,42) + rxt(k,210)*y(k,45) - mat(k,857) = rxt(k,203)*y(k,5) + 2.000_r8*rxt(k,219)*y(k,16) + rxt(k,221) & - *y(k,18) + 3.000_r8*rxt(k,226)*y(k,24) + rxt(k,205)*y(k,45) - mat(k,909) = rxt(k,197)*y(k,28) - mat(k,596) = rxt(k,197)*y(k,5) - mat(k,448) = (rxt(k,275)+rxt(k,280))*y(k,53) - mat(k,247) = (rxt(k,275)+rxt(k,280))*y(k,49) - mat(k,931) = -(4._r8*rxt(k,194)*y(k,5) + (rxt(k,195) + rxt(k,196) + rxt(k,197) & - ) * y(k,28) + rxt(k,198)*y(k,90) + rxt(k,199)*y(k,61) + rxt(k,200) & - *y(k,62) + rxt(k,202)*y(k,69) + rxt(k,203)*y(k,99) + rxt(k,253) & + mat(k,808) = -(rxt(k,194)*y(k,17) + rxt(k,195)*y(k,90) + rxt(k,196)*y(k,71)) + mat(k,486) = -rxt(k,194)*y(k,3) + mat(k,563) = -rxt(k,195)*y(k,3) + mat(k,538) = -rxt(k,196)*y(k,3) + mat(k,927) = 4.000_r8*rxt(k,197)*y(k,5) + (rxt(k,198)+rxt(k,199))*y(k,28) & + + rxt(k,202)*y(k,61) + rxt(k,205)*y(k,69) + rxt(k,256)*y(k,79) & + + rxt(k,206)*y(k,99) + mat(k,59) = rxt(k,184)*y(k,95) + mat(k,64) = rxt(k,210)*y(k,95) + mat(k,178) = 2.000_r8*rxt(k,221)*y(k,25) + 2.000_r8*rxt(k,233)*y(k,95) & + + 2.000_r8*rxt(k,222)*y(k,99) + mat(k,216) = rxt(k,223)*y(k,25) + rxt(k,234)*y(k,95) + rxt(k,224)*y(k,99) + mat(k,165) = 3.000_r8*rxt(k,228)*y(k,25) + 3.000_r8*rxt(k,211)*y(k,95) & + + 3.000_r8*rxt(k,229)*y(k,99) + mat(k,786) = 2.000_r8*rxt(k,221)*y(k,16) + rxt(k,223)*y(k,18) & + + 3.000_r8*rxt(k,228)*y(k,24) + mat(k,616) = (rxt(k,198)+rxt(k,199))*y(k,5) + mat(k,35) = 2.000_r8*rxt(k,212)*y(k,95) + mat(k,260) = rxt(k,207)*y(k,69) + rxt(k,213)*y(k,95) + rxt(k,208)*y(k,99) + mat(k,754) = rxt(k,202)*y(k,5) + mat(k,687) = rxt(k,205)*y(k,5) + rxt(k,207)*y(k,45) + mat(k,435) = rxt(k,256)*y(k,5) + mat(k,729) = rxt(k,184)*y(k,9) + rxt(k,210)*y(k,10) + 2.000_r8*rxt(k,233) & + *y(k,16) + rxt(k,234)*y(k,18) + 3.000_r8*rxt(k,211)*y(k,24) & + + 2.000_r8*rxt(k,212)*y(k,42) + rxt(k,213)*y(k,45) + mat(k,857) = rxt(k,206)*y(k,5) + 2.000_r8*rxt(k,222)*y(k,16) + rxt(k,224) & + *y(k,18) + 3.000_r8*rxt(k,229)*y(k,24) + rxt(k,208)*y(k,45) + mat(k,909) = rxt(k,200)*y(k,28) + mat(k,596) = rxt(k,200)*y(k,5) + mat(k,448) = (rxt(k,278)+rxt(k,283))*y(k,53) + mat(k,247) = (rxt(k,278)+rxt(k,283))*y(k,49) + mat(k,931) = -(4._r8*rxt(k,197)*y(k,5) + (rxt(k,198) + rxt(k,199) + rxt(k,200) & + ) * y(k,28) + rxt(k,201)*y(k,90) + rxt(k,202)*y(k,61) + rxt(k,203) & + *y(k,62) + rxt(k,205)*y(k,69) + rxt(k,206)*y(k,99) + rxt(k,256) & *y(k,79)) - mat(k,620) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,5) - mat(k,567) = -rxt(k,198)*y(k,5) - mat(k,758) = -rxt(k,199)*y(k,5) - mat(k,649) = -rxt(k,200)*y(k,5) - mat(k,691) = -rxt(k,202)*y(k,5) - mat(k,861) = -rxt(k,203)*y(k,5) - mat(k,437) = -rxt(k,253)*y(k,5) - mat(k,812) = rxt(k,193)*y(k,71) - mat(k,209) = rxt(k,201)*y(k,69) - mat(k,262) = rxt(k,211)*y(k,95) - mat(k,254) = rxt(k,206)*y(k,69) - mat(k,691) = mat(k,691) + rxt(k,201)*y(k,6) + rxt(k,206)*y(k,53) - mat(k,541) = rxt(k,193)*y(k,3) - mat(k,733) = rxt(k,211)*y(k,45) - mat(k,202) = -(rxt(k,201)*y(k,69)) - mat(k,656) = -rxt(k,201)*y(k,6) - mat(k,911) = rxt(k,200)*y(k,62) - mat(k,625) = rxt(k,200)*y(k,5) - mat(k,29) = -(rxt(k,180)*y(k,95)) - mat(k,693) = -rxt(k,180)*y(k,8) - mat(k,55) = -(rxt(k,181)*y(k,95)) - mat(k,698) = -rxt(k,181)*y(k,9) - mat(k,60) = -(rxt(k,207)*y(k,95)) - mat(k,699) = -rxt(k,207)*y(k,10) - mat(k,36) = -(rxt(k,182)*y(k,95)) - mat(k,695) = -rxt(k,182)*y(k,11) - mat(k,65) = -(rxt(k,183)*y(k,95)) - mat(k,700) = -rxt(k,183)*y(k,12) - mat(k,40) = -(rxt(k,184)*y(k,95)) - mat(k,696) = -rxt(k,184)*y(k,13) - mat(k,70) = -(rxt(k,185)*y(k,95)) - mat(k,701) = -rxt(k,185)*y(k,14) - mat(k,44) = -(rxt(k,186)*y(k,95)) - mat(k,697) = -rxt(k,186)*y(k,15) - mat(k,174) = -(rxt(k,218)*y(k,25) + rxt(k,219)*y(k,99) + rxt(k,230)*y(k,95)) - mat(k,763) = -rxt(k,218)*y(k,16) - mat(k,827) = -rxt(k,219)*y(k,16) - mat(k,710) = -rxt(k,230)*y(k,16) - mat(k,475) = -(rxt(k,155)*y(k,25) + rxt(k,191)*y(k,3) + rxt(k,235)*y(k,63) & - + rxt(k,236)*y(k,69) + rxt(k,237)*y(k,99)) - mat(k,775) = -rxt(k,155)*y(k,17) - mat(k,797) = -rxt(k,191)*y(k,17) - mat(k,577) = -rxt(k,235)*y(k,17) - mat(k,676) = -rxt(k,236)*y(k,17) - mat(k,846) = -rxt(k,237)*y(k,17) - mat(k,413) = rxt(k,162)*y(k,28) + rxt(k,239)*y(k,61) - mat(k,158) = .300_r8*rxt(k,240)*y(k,99) - mat(k,397) = (rxt(k,243)+rxt(k,244))*y(k,95) - mat(k,605) = rxt(k,162)*y(k,21) - mat(k,743) = rxt(k,239)*y(k,21) - mat(k,718) = (rxt(k,243)+rxt(k,244))*y(k,23) - mat(k,846) = mat(k,846) + .300_r8*rxt(k,240)*y(k,22) - mat(k,210) = -(rxt(k,220)*y(k,25) + rxt(k,221)*y(k,99) + rxt(k,231)*y(k,95)) - mat(k,764) = -rxt(k,220)*y(k,18) - mat(k,829) = -rxt(k,221)*y(k,18) - mat(k,711) = -rxt(k,231)*y(k,18) - mat(k,48) = -(rxt(k,222)*y(k,99)) - mat(k,814) = -rxt(k,222)*y(k,19) - mat(k,147) = -(rxt(k,223)*y(k,25) + rxt(k,224)*y(k,99)) - mat(k,761) = -rxt(k,223)*y(k,20) - mat(k,823) = -rxt(k,224)*y(k,20) - mat(k,411) = -(rxt(k,162)*y(k,28) + rxt(k,238)*y(k,90) + rxt(k,239)*y(k,61)) - mat(k,601) = -rxt(k,162)*y(k,21) - mat(k,549) = -rxt(k,238)*y(k,21) - mat(k,741) = -rxt(k,239)*y(k,21) - mat(k,156) = .700_r8*rxt(k,240)*y(k,99) - mat(k,394) = rxt(k,156)*y(k,25) + rxt(k,212)*y(k,39) + rxt(k,242)*y(k,95) & - + rxt(k,241)*y(k,99) - mat(k,772) = rxt(k,156)*y(k,23) - mat(k,292) = rxt(k,212)*y(k,23) - mat(k,715) = rxt(k,242)*y(k,23) - mat(k,842) = .700_r8*rxt(k,240)*y(k,22) + rxt(k,241)*y(k,23) - mat(k,155) = -(rxt(k,240)*y(k,99)) - mat(k,824) = -rxt(k,240)*y(k,22) - mat(k,410) = rxt(k,238)*y(k,90) - mat(k,543) = rxt(k,238)*y(k,21) - mat(k,393) = -(rxt(k,156)*y(k,25) + rxt(k,212)*y(k,39) + rxt(k,241)*y(k,99) & - + (rxt(k,242) + rxt(k,243) + rxt(k,244)) * y(k,95)) - mat(k,771) = -rxt(k,156)*y(k,23) - mat(k,291) = -rxt(k,212)*y(k,23) - mat(k,841) = -rxt(k,241)*y(k,23) - mat(k,714) = -(rxt(k,242) + rxt(k,243) + rxt(k,244)) * y(k,23) - mat(k,161) = -(rxt(k,208)*y(k,95) + rxt(k,225)*y(k,25) + rxt(k,226)*y(k,99)) - mat(k,709) = -rxt(k,208)*y(k,24) - mat(k,762) = -rxt(k,225)*y(k,24) - mat(k,825) = -rxt(k,226)*y(k,24) - mat(k,785) = -(rxt(k,155)*y(k,17) + rxt(k,156)*y(k,23) + rxt(k,157)*y(k,41) & - + rxt(k,158)*y(k,43) + (rxt(k,159) + rxt(k,160)) * y(k,90) & - + rxt(k,161)*y(k,71) + rxt(k,168)*y(k,29) + rxt(k,177)*y(k,54) & - + rxt(k,218)*y(k,16) + rxt(k,220)*y(k,18) + rxt(k,223)*y(k,20) & - + rxt(k,225)*y(k,24)) - mat(k,485) = -rxt(k,155)*y(k,25) - mat(k,405) = -rxt(k,156)*y(k,25) - mat(k,879) = -rxt(k,157)*y(k,25) - mat(k,232) = -rxt(k,158)*y(k,25) - mat(k,562) = -(rxt(k,159) + rxt(k,160)) * y(k,25) - mat(k,537) = -rxt(k,161)*y(k,25) - mat(k,314) = -rxt(k,168)*y(k,25) - mat(k,269) = -rxt(k,177)*y(k,25) - mat(k,177) = -rxt(k,218)*y(k,25) - mat(k,215) = -rxt(k,220)*y(k,25) - mat(k,152) = -rxt(k,223)*y(k,25) - mat(k,164) = -rxt(k,225)*y(k,25) - mat(k,926) = rxt(k,196)*y(k,28) - mat(k,31) = 4.000_r8*rxt(k,180)*y(k,95) - mat(k,58) = rxt(k,181)*y(k,95) - mat(k,39) = 2.000_r8*rxt(k,182)*y(k,95) - mat(k,69) = 2.000_r8*rxt(k,183)*y(k,95) - mat(k,43) = 2.000_r8*rxt(k,184)*y(k,95) - mat(k,74) = rxt(k,185)*y(k,95) - mat(k,47) = 2.000_r8*rxt(k,186)*y(k,95) - mat(k,49) = 3.000_r8*rxt(k,222)*y(k,99) - mat(k,152) = mat(k,152) + rxt(k,224)*y(k,99) - mat(k,419) = rxt(k,162)*y(k,28) - mat(k,615) = rxt(k,196)*y(k,5) + rxt(k,162)*y(k,21) + (4.000_r8*rxt(k,163) & - +2.000_r8*rxt(k,165))*y(k,28) + rxt(k,167)*y(k,61) + rxt(k,172) & - *y(k,69) + rxt(k,254)*y(k,79) + rxt(k,173)*y(k,99) - mat(k,93) = rxt(k,217)*y(k,95) - mat(k,88) = rxt(k,232)*y(k,95) + rxt(k,227)*y(k,99) - mat(k,98) = rxt(k,233)*y(k,95) + rxt(k,228)*y(k,99) - mat(k,116) = rxt(k,234)*y(k,95) + rxt(k,229)*y(k,99) - mat(k,462) = rxt(k,175)*y(k,69) + rxt(k,187)*y(k,95) + rxt(k,176)*y(k,99) - mat(k,753) = rxt(k,167)*y(k,28) - mat(k,686) = rxt(k,172)*y(k,28) + rxt(k,175)*y(k,49) - mat(k,434) = rxt(k,254)*y(k,28) - mat(k,728) = 4.000_r8*rxt(k,180)*y(k,8) + rxt(k,181)*y(k,9) & - + 2.000_r8*rxt(k,182)*y(k,11) + 2.000_r8*rxt(k,183)*y(k,12) & - + 2.000_r8*rxt(k,184)*y(k,13) + rxt(k,185)*y(k,14) & - + 2.000_r8*rxt(k,186)*y(k,15) + rxt(k,217)*y(k,34) + rxt(k,232) & - *y(k,46) + rxt(k,233)*y(k,47) + rxt(k,234)*y(k,48) + rxt(k,187) & + mat(k,620) = -(rxt(k,198) + rxt(k,199) + rxt(k,200)) * y(k,5) + mat(k,567) = -rxt(k,201)*y(k,5) + mat(k,758) = -rxt(k,202)*y(k,5) + mat(k,649) = -rxt(k,203)*y(k,5) + mat(k,691) = -rxt(k,205)*y(k,5) + mat(k,861) = -rxt(k,206)*y(k,5) + mat(k,437) = -rxt(k,256)*y(k,5) + mat(k,812) = rxt(k,196)*y(k,71) + mat(k,209) = rxt(k,204)*y(k,69) + mat(k,262) = rxt(k,214)*y(k,95) + mat(k,254) = rxt(k,209)*y(k,69) + mat(k,691) = mat(k,691) + rxt(k,204)*y(k,6) + rxt(k,209)*y(k,53) + mat(k,541) = rxt(k,196)*y(k,3) + mat(k,733) = rxt(k,214)*y(k,45) + mat(k,202) = -(rxt(k,204)*y(k,69)) + mat(k,656) = -rxt(k,204)*y(k,6) + mat(k,911) = rxt(k,203)*y(k,62) + mat(k,625) = rxt(k,203)*y(k,5) + mat(k,29) = -(rxt(k,183)*y(k,95)) + mat(k,693) = -rxt(k,183)*y(k,8) + mat(k,55) = -(rxt(k,184)*y(k,95)) + mat(k,698) = -rxt(k,184)*y(k,9) + mat(k,60) = -(rxt(k,210)*y(k,95)) + mat(k,699) = -rxt(k,210)*y(k,10) + mat(k,36) = -(rxt(k,185)*y(k,95)) + mat(k,695) = -rxt(k,185)*y(k,11) + mat(k,65) = -(rxt(k,186)*y(k,95)) + mat(k,700) = -rxt(k,186)*y(k,12) + mat(k,40) = -(rxt(k,187)*y(k,95)) + mat(k,696) = -rxt(k,187)*y(k,13) + mat(k,70) = -(rxt(k,188)*y(k,95)) + mat(k,701) = -rxt(k,188)*y(k,14) + mat(k,44) = -(rxt(k,189)*y(k,95)) + mat(k,697) = -rxt(k,189)*y(k,15) + mat(k,174) = -(rxt(k,221)*y(k,25) + rxt(k,222)*y(k,99) + rxt(k,233)*y(k,95)) + mat(k,763) = -rxt(k,221)*y(k,16) + mat(k,827) = -rxt(k,222)*y(k,16) + mat(k,710) = -rxt(k,233)*y(k,16) + mat(k,475) = -(rxt(k,158)*y(k,25) + rxt(k,194)*y(k,3) + rxt(k,238)*y(k,63) & + + rxt(k,239)*y(k,69) + rxt(k,240)*y(k,99)) + mat(k,775) = -rxt(k,158)*y(k,17) + mat(k,797) = -rxt(k,194)*y(k,17) + mat(k,577) = -rxt(k,238)*y(k,17) + mat(k,676) = -rxt(k,239)*y(k,17) + mat(k,846) = -rxt(k,240)*y(k,17) + mat(k,413) = rxt(k,165)*y(k,28) + rxt(k,242)*y(k,61) + mat(k,158) = .300_r8*rxt(k,243)*y(k,99) + mat(k,397) = (rxt(k,246)+rxt(k,247))*y(k,95) + mat(k,605) = rxt(k,165)*y(k,21) + mat(k,743) = rxt(k,242)*y(k,21) + mat(k,718) = (rxt(k,246)+rxt(k,247))*y(k,23) + mat(k,846) = mat(k,846) + .300_r8*rxt(k,243)*y(k,22) + mat(k,210) = -(rxt(k,223)*y(k,25) + rxt(k,224)*y(k,99) + rxt(k,234)*y(k,95)) + mat(k,764) = -rxt(k,223)*y(k,18) + mat(k,829) = -rxt(k,224)*y(k,18) + mat(k,711) = -rxt(k,234)*y(k,18) + mat(k,48) = -(rxt(k,225)*y(k,99)) + mat(k,814) = -rxt(k,225)*y(k,19) + mat(k,147) = -(rxt(k,226)*y(k,25) + rxt(k,227)*y(k,99)) + mat(k,761) = -rxt(k,226)*y(k,20) + mat(k,823) = -rxt(k,227)*y(k,20) + mat(k,411) = -(rxt(k,165)*y(k,28) + rxt(k,241)*y(k,90) + rxt(k,242)*y(k,61)) + mat(k,601) = -rxt(k,165)*y(k,21) + mat(k,549) = -rxt(k,241)*y(k,21) + mat(k,741) = -rxt(k,242)*y(k,21) + mat(k,156) = .700_r8*rxt(k,243)*y(k,99) + mat(k,394) = rxt(k,159)*y(k,25) + rxt(k,215)*y(k,39) + rxt(k,245)*y(k,95) & + + rxt(k,244)*y(k,99) + mat(k,772) = rxt(k,159)*y(k,23) + mat(k,292) = rxt(k,215)*y(k,23) + mat(k,715) = rxt(k,245)*y(k,23) + mat(k,842) = .700_r8*rxt(k,243)*y(k,22) + rxt(k,244)*y(k,23) + mat(k,155) = -(rxt(k,243)*y(k,99)) + mat(k,824) = -rxt(k,243)*y(k,22) + mat(k,410) = rxt(k,241)*y(k,90) + mat(k,543) = rxt(k,241)*y(k,21) + mat(k,393) = -(rxt(k,159)*y(k,25) + rxt(k,215)*y(k,39) + rxt(k,244)*y(k,99) & + + (rxt(k,245) + rxt(k,246) + rxt(k,247)) * y(k,95)) + mat(k,771) = -rxt(k,159)*y(k,23) + mat(k,291) = -rxt(k,215)*y(k,23) + mat(k,841) = -rxt(k,244)*y(k,23) + mat(k,714) = -(rxt(k,245) + rxt(k,246) + rxt(k,247)) * y(k,23) + mat(k,161) = -(rxt(k,211)*y(k,95) + rxt(k,228)*y(k,25) + rxt(k,229)*y(k,99)) + mat(k,709) = -rxt(k,211)*y(k,24) + mat(k,762) = -rxt(k,228)*y(k,24) + mat(k,825) = -rxt(k,229)*y(k,24) + mat(k,785) = -(rxt(k,158)*y(k,17) + rxt(k,159)*y(k,23) + rxt(k,160)*y(k,41) & + + rxt(k,161)*y(k,43) + (rxt(k,162) + rxt(k,163)) * y(k,90) & + + rxt(k,164)*y(k,71) + rxt(k,171)*y(k,29) + rxt(k,180)*y(k,54) & + + rxt(k,221)*y(k,16) + rxt(k,223)*y(k,18) + rxt(k,226)*y(k,20) & + + rxt(k,228)*y(k,24)) + mat(k,485) = -rxt(k,158)*y(k,25) + mat(k,405) = -rxt(k,159)*y(k,25) + mat(k,879) = -rxt(k,160)*y(k,25) + mat(k,232) = -rxt(k,161)*y(k,25) + mat(k,562) = -(rxt(k,162) + rxt(k,163)) * y(k,25) + mat(k,537) = -rxt(k,164)*y(k,25) + mat(k,314) = -rxt(k,171)*y(k,25) + mat(k,269) = -rxt(k,180)*y(k,25) + mat(k,177) = -rxt(k,221)*y(k,25) + mat(k,215) = -rxt(k,223)*y(k,25) + mat(k,152) = -rxt(k,226)*y(k,25) + mat(k,164) = -rxt(k,228)*y(k,25) + mat(k,926) = rxt(k,199)*y(k,28) + mat(k,31) = 4.000_r8*rxt(k,183)*y(k,95) + mat(k,58) = rxt(k,184)*y(k,95) + mat(k,39) = 2.000_r8*rxt(k,185)*y(k,95) + mat(k,69) = 2.000_r8*rxt(k,186)*y(k,95) + mat(k,43) = 2.000_r8*rxt(k,187)*y(k,95) + mat(k,74) = rxt(k,188)*y(k,95) + mat(k,47) = 2.000_r8*rxt(k,189)*y(k,95) + mat(k,49) = 3.000_r8*rxt(k,225)*y(k,99) + mat(k,152) = mat(k,152) + rxt(k,227)*y(k,99) + mat(k,419) = rxt(k,165)*y(k,28) + mat(k,615) = rxt(k,199)*y(k,5) + rxt(k,165)*y(k,21) + (4.000_r8*rxt(k,166) & + +2.000_r8*rxt(k,168))*y(k,28) + rxt(k,170)*y(k,61) + rxt(k,175) & + *y(k,69) + rxt(k,257)*y(k,79) + rxt(k,176)*y(k,99) + mat(k,93) = rxt(k,220)*y(k,95) + mat(k,88) = rxt(k,235)*y(k,95) + rxt(k,230)*y(k,99) + mat(k,98) = rxt(k,236)*y(k,95) + rxt(k,231)*y(k,99) + mat(k,116) = rxt(k,237)*y(k,95) + rxt(k,232)*y(k,99) + mat(k,462) = rxt(k,178)*y(k,69) + rxt(k,190)*y(k,95) + rxt(k,179)*y(k,99) + mat(k,753) = rxt(k,170)*y(k,28) + mat(k,686) = rxt(k,175)*y(k,28) + rxt(k,178)*y(k,49) + mat(k,434) = rxt(k,257)*y(k,28) + mat(k,728) = 4.000_r8*rxt(k,183)*y(k,8) + rxt(k,184)*y(k,9) & + + 2.000_r8*rxt(k,185)*y(k,11) + 2.000_r8*rxt(k,186)*y(k,12) & + + 2.000_r8*rxt(k,187)*y(k,13) + rxt(k,188)*y(k,14) & + + 2.000_r8*rxt(k,189)*y(k,15) + rxt(k,220)*y(k,34) + rxt(k,235) & + *y(k,46) + rxt(k,236)*y(k,47) + rxt(k,237)*y(k,48) + rxt(k,190) & *y(k,49) - mat(k,856) = 3.000_r8*rxt(k,222)*y(k,19) + rxt(k,224)*y(k,20) + rxt(k,173) & - *y(k,28) + rxt(k,227)*y(k,46) + rxt(k,228)*y(k,47) + rxt(k,229) & - *y(k,48) + rxt(k,176)*y(k,49) - mat(k,760) = rxt(k,168)*y(k,29) - mat(k,595) = 2.000_r8*rxt(k,164)*y(k,28) - mat(k,306) = rxt(k,168)*y(k,25) + (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,49) - mat(k,447) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,29) + (rxt(k,268) & - +rxt(k,274)+rxt(k,279))*y(k,54) - mat(k,264) = (rxt(k,268)+rxt(k,274)+rxt(k,279))*y(k,49) - mat(k,594) = 2.000_r8*rxt(k,189)*y(k,28) - mat(k,610) = -(rxt(k,162)*y(k,21) + (4._r8*rxt(k,163) + 4._r8*rxt(k,164) & - + 4._r8*rxt(k,165) + 4._r8*rxt(k,189)) * y(k,28) + rxt(k,166) & - *y(k,90) + rxt(k,167)*y(k,61) + rxt(k,169)*y(k,62) + rxt(k,172) & - *y(k,69) + (rxt(k,173) + rxt(k,174)) * y(k,99) + (rxt(k,195) & - + rxt(k,196) + rxt(k,197)) * y(k,5) + rxt(k,254)*y(k,79)) - mat(k,416) = -rxt(k,162)*y(k,28) - mat(k,557) = -rxt(k,166)*y(k,28) - mat(k,748) = -rxt(k,167)*y(k,28) - mat(k,639) = -rxt(k,169)*y(k,28) - mat(k,681) = -rxt(k,172)*y(k,28) - mat(k,851) = -(rxt(k,173) + rxt(k,174)) * y(k,28) - mat(k,921) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,28) - mat(k,430) = -rxt(k,254)*y(k,28) - mat(k,780) = rxt(k,177)*y(k,54) + rxt(k,161)*y(k,71) + rxt(k,160)*y(k,90) - mat(k,311) = rxt(k,170)*y(k,69) - mat(k,458) = rxt(k,188)*y(k,95) - mat(k,267) = rxt(k,177)*y(k,25) + rxt(k,178)*y(k,69) + rxt(k,179)*y(k,99) - mat(k,681) = mat(k,681) + rxt(k,170)*y(k,29) + rxt(k,178)*y(k,54) - mat(k,532) = rxt(k,161)*y(k,25) - mat(k,137) = rxt(k,259)*y(k,79) - mat(k,430) = mat(k,430) + rxt(k,259)*y(k,73) - mat(k,557) = mat(k,557) + rxt(k,160)*y(k,25) - mat(k,723) = rxt(k,188)*y(k,49) - mat(k,851) = mat(k,851) + rxt(k,179)*y(k,54) - mat(k,308) = -(rxt(k,168)*y(k,25) + rxt(k,170)*y(k,69) + rxt(k,171)*y(k,99) & - + (rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,49)) - mat(k,768) = -rxt(k,168)*y(k,29) - mat(k,667) = -rxt(k,170)*y(k,29) - mat(k,837) = -rxt(k,171)*y(k,29) - mat(k,451) = -(rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,29) - mat(k,600) = rxt(k,169)*y(k,62) - mat(k,628) = rxt(k,169)*y(k,28) + mat(k,856) = 3.000_r8*rxt(k,225)*y(k,19) + rxt(k,227)*y(k,20) + rxt(k,176) & + *y(k,28) + rxt(k,230)*y(k,46) + rxt(k,231)*y(k,47) + rxt(k,232) & + *y(k,48) + rxt(k,179)*y(k,49) + mat(k,760) = rxt(k,171)*y(k,29) + mat(k,595) = 2.000_r8*rxt(k,167)*y(k,28) + mat(k,306) = rxt(k,171)*y(k,25) + (rxt(k,276)+rxt(k,281)+rxt(k,286))*y(k,49) + mat(k,447) = (rxt(k,276)+rxt(k,281)+rxt(k,286))*y(k,29) + (rxt(k,271) & + +rxt(k,277)+rxt(k,282))*y(k,54) + mat(k,264) = (rxt(k,271)+rxt(k,277)+rxt(k,282))*y(k,49) + mat(k,594) = 2.000_r8*rxt(k,192)*y(k,28) + mat(k,610) = -(rxt(k,165)*y(k,21) + (4._r8*rxt(k,166) + 4._r8*rxt(k,167) & + + 4._r8*rxt(k,168) + 4._r8*rxt(k,192)) * y(k,28) + rxt(k,169) & + *y(k,90) + rxt(k,170)*y(k,61) + rxt(k,172)*y(k,62) + rxt(k,175) & + *y(k,69) + (rxt(k,176) + rxt(k,177)) * y(k,99) + (rxt(k,198) & + + rxt(k,199) + rxt(k,200)) * y(k,5) + rxt(k,257)*y(k,79)) + mat(k,416) = -rxt(k,165)*y(k,28) + mat(k,557) = -rxt(k,169)*y(k,28) + mat(k,748) = -rxt(k,170)*y(k,28) + mat(k,639) = -rxt(k,172)*y(k,28) + mat(k,681) = -rxt(k,175)*y(k,28) + mat(k,851) = -(rxt(k,176) + rxt(k,177)) * y(k,28) + mat(k,921) = -(rxt(k,198) + rxt(k,199) + rxt(k,200)) * y(k,28) + mat(k,430) = -rxt(k,257)*y(k,28) + mat(k,780) = rxt(k,180)*y(k,54) + rxt(k,164)*y(k,71) + rxt(k,163)*y(k,90) + mat(k,311) = rxt(k,173)*y(k,69) + mat(k,458) = rxt(k,191)*y(k,95) + mat(k,267) = rxt(k,180)*y(k,25) + rxt(k,181)*y(k,69) + rxt(k,182)*y(k,99) + mat(k,681) = mat(k,681) + rxt(k,173)*y(k,29) + rxt(k,181)*y(k,54) + mat(k,532) = rxt(k,164)*y(k,25) + mat(k,137) = rxt(k,262)*y(k,79) + mat(k,430) = mat(k,430) + rxt(k,262)*y(k,73) + mat(k,557) = mat(k,557) + rxt(k,163)*y(k,25) + mat(k,723) = rxt(k,191)*y(k,49) + mat(k,851) = mat(k,851) + rxt(k,182)*y(k,54) + mat(k,308) = -(rxt(k,171)*y(k,25) + rxt(k,173)*y(k,69) + rxt(k,174)*y(k,99) & + + (rxt(k,276) + rxt(k,281) + rxt(k,286)) * y(k,49)) + mat(k,768) = -rxt(k,171)*y(k,29) + mat(k,667) = -rxt(k,173)*y(k,29) + mat(k,837) = -rxt(k,174)*y(k,29) + mat(k,451) = -(rxt(k,276) + rxt(k,281) + rxt(k,286)) * y(k,29) + mat(k,600) = rxt(k,172)*y(k,62) + mat(k,628) = rxt(k,172)*y(k,28) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -250,226 +250,229 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,282) = -(rxt(k,245)*y(k,99)) - mat(k,834) = -rxt(k,245)*y(k,31) - mat(k,793) = rxt(k,191)*y(k,17) - mat(k,470) = rxt(k,191)*y(k,3) + rxt(k,155)*y(k,25) + rxt(k,235)*y(k,63) & - + rxt(k,236)*y(k,69) + rxt(k,237)*y(k,99) - mat(k,148) = rxt(k,223)*y(k,25) - mat(k,767) = rxt(k,155)*y(k,17) + rxt(k,223)*y(k,20) - mat(k,197) = rxt(k,299)*y(k,100) - mat(k,571) = rxt(k,235)*y(k,17) - mat(k,665) = rxt(k,236)*y(k,17) + rxt(k,248)*y(k,74) - mat(k,141) = rxt(k,248)*y(k,69) + rxt(k,249)*y(k,99) - mat(k,834) = mat(k,834) + rxt(k,237)*y(k,17) + rxt(k,249)*y(k,74) - mat(k,373) = rxt(k,299)*y(k,32) - mat(k,196) = -(rxt(k,299)*y(k,100)) - mat(k,370) = -rxt(k,299)*y(k,32) - mat(k,281) = rxt(k,245)*y(k,99) - mat(k,828) = rxt(k,245)*y(k,31) - mat(k,82) = -(rxt(k,216)*y(k,95)) - mat(k,703) = -rxt(k,216)*y(k,33) - mat(k,56) = rxt(k,181)*y(k,95) - mat(k,61) = rxt(k,207)*y(k,95) - mat(k,66) = rxt(k,183)*y(k,95) - mat(k,41) = 2.000_r8*rxt(k,184)*y(k,95) - mat(k,71) = 2.000_r8*rxt(k,185)*y(k,95) - mat(k,45) = rxt(k,186)*y(k,95) - mat(k,33) = 2.000_r8*rxt(k,209)*y(k,95) - mat(k,94) = rxt(k,233)*y(k,95) + rxt(k,228)*y(k,99) - mat(k,112) = rxt(k,234)*y(k,95) + rxt(k,229)*y(k,99) - mat(k,703) = mat(k,703) + rxt(k,181)*y(k,9) + rxt(k,207)*y(k,10) + rxt(k,183) & - *y(k,12) + 2.000_r8*rxt(k,184)*y(k,13) + 2.000_r8*rxt(k,185) & - *y(k,14) + rxt(k,186)*y(k,15) + 2.000_r8*rxt(k,209)*y(k,42) & - + rxt(k,233)*y(k,47) + rxt(k,234)*y(k,48) - mat(k,815) = rxt(k,228)*y(k,47) + rxt(k,229)*y(k,48) - mat(k,90) = -(rxt(k,217)*y(k,95)) - mat(k,705) = -rxt(k,217)*y(k,34) - mat(k,37) = rxt(k,182)*y(k,95) - mat(k,67) = rxt(k,183)*y(k,95) - mat(k,86) = rxt(k,232)*y(k,95) + rxt(k,227)*y(k,99) - mat(k,705) = mat(k,705) + rxt(k,182)*y(k,11) + rxt(k,183)*y(k,12) & - + rxt(k,232)*y(k,46) - mat(k,817) = rxt(k,227)*y(k,46) - mat(k,128) = -(rxt(k,246)*y(k,63) + (rxt(k,247) + rxt(k,261)) * y(k,99)) - mat(k,570) = -rxt(k,246)*y(k,35) - mat(k,821) = -(rxt(k,247) + rxt(k,261)) * y(k,35) - mat(k,290) = -(rxt(k,212)*y(k,23) + rxt(k,213)*y(k,41) + rxt(k,214)*y(k,103) & - + rxt(k,215)*y(k,51)) - mat(k,390) = -rxt(k,212)*y(k,39) - mat(k,864) = -rxt(k,213)*y(k,39) - mat(k,936) = -rxt(k,214)*y(k,39) - mat(k,887) = -rxt(k,215)*y(k,39) - mat(k,62) = rxt(k,207)*y(k,95) - mat(k,72) = rxt(k,185)*y(k,95) - mat(k,83) = 2.000_r8*rxt(k,216)*y(k,95) - mat(k,91) = rxt(k,217)*y(k,95) - mat(k,713) = rxt(k,207)*y(k,10) + rxt(k,185)*y(k,14) + 2.000_r8*rxt(k,216) & - *y(k,33) + rxt(k,217)*y(k,34) + mat(k,282) = -(rxt(k,248)*y(k,99)) + mat(k,834) = -rxt(k,248)*y(k,31) + mat(k,793) = rxt(k,194)*y(k,17) + mat(k,470) = rxt(k,194)*y(k,3) + rxt(k,158)*y(k,25) + rxt(k,238)*y(k,63) & + + rxt(k,239)*y(k,69) + rxt(k,240)*y(k,99) + mat(k,148) = rxt(k,226)*y(k,25) + mat(k,767) = rxt(k,158)*y(k,17) + rxt(k,226)*y(k,20) + mat(k,197) = rxt(k,302)*y(k,100) + mat(k,571) = rxt(k,238)*y(k,17) + mat(k,665) = rxt(k,239)*y(k,17) + rxt(k,251)*y(k,74) + mat(k,141) = rxt(k,251)*y(k,69) + rxt(k,252)*y(k,99) + mat(k,834) = mat(k,834) + rxt(k,240)*y(k,17) + rxt(k,252)*y(k,74) + mat(k,373) = rxt(k,302)*y(k,32) + mat(k,196) = -(rxt(k,302)*y(k,100)) + mat(k,370) = -rxt(k,302)*y(k,32) + mat(k,281) = rxt(k,248)*y(k,99) + mat(k,828) = rxt(k,248)*y(k,31) + mat(k,82) = -(rxt(k,219)*y(k,95)) + mat(k,703) = -rxt(k,219)*y(k,33) + mat(k,56) = rxt(k,184)*y(k,95) + mat(k,61) = rxt(k,210)*y(k,95) + mat(k,66) = rxt(k,186)*y(k,95) + mat(k,41) = 2.000_r8*rxt(k,187)*y(k,95) + mat(k,71) = 2.000_r8*rxt(k,188)*y(k,95) + mat(k,45) = rxt(k,189)*y(k,95) + mat(k,33) = 2.000_r8*rxt(k,212)*y(k,95) + mat(k,94) = rxt(k,236)*y(k,95) + rxt(k,231)*y(k,99) + mat(k,112) = rxt(k,237)*y(k,95) + rxt(k,232)*y(k,99) + mat(k,703) = mat(k,703) + rxt(k,184)*y(k,9) + rxt(k,210)*y(k,10) + rxt(k,186) & + *y(k,12) + 2.000_r8*rxt(k,187)*y(k,13) + 2.000_r8*rxt(k,188) & + *y(k,14) + rxt(k,189)*y(k,15) + 2.000_r8*rxt(k,212)*y(k,42) & + + rxt(k,236)*y(k,47) + rxt(k,237)*y(k,48) + mat(k,815) = rxt(k,231)*y(k,47) + rxt(k,232)*y(k,48) + mat(k,90) = -(rxt(k,220)*y(k,95)) + mat(k,705) = -rxt(k,220)*y(k,34) + mat(k,37) = rxt(k,185)*y(k,95) + mat(k,67) = rxt(k,186)*y(k,95) + mat(k,86) = rxt(k,235)*y(k,95) + rxt(k,230)*y(k,99) + mat(k,705) = mat(k,705) + rxt(k,185)*y(k,11) + rxt(k,186)*y(k,12) & + + rxt(k,235)*y(k,46) + mat(k,817) = rxt(k,230)*y(k,46) + mat(k,128) = -(rxt(k,249)*y(k,63) + (rxt(k,250) + rxt(k,264)) * y(k,99)) + mat(k,570) = -rxt(k,249)*y(k,35) + mat(k,821) = -(rxt(k,250) + rxt(k,264)) * y(k,35) + mat(k,290) = -(rxt(k,215)*y(k,23) + rxt(k,216)*y(k,41) + rxt(k,217)*y(k,103) & + + rxt(k,218)*y(k,51)) + mat(k,390) = -rxt(k,215)*y(k,39) + mat(k,864) = -rxt(k,216)*y(k,39) + mat(k,936) = -rxt(k,217)*y(k,39) + mat(k,887) = -rxt(k,218)*y(k,39) + mat(k,62) = rxt(k,210)*y(k,95) + mat(k,72) = rxt(k,188)*y(k,95) + mat(k,83) = 2.000_r8*rxt(k,219)*y(k,95) + mat(k,91) = rxt(k,220)*y(k,95) + mat(k,713) = rxt(k,210)*y(k,10) + rxt(k,188)*y(k,14) + 2.000_r8*rxt(k,219) & + *y(k,33) + rxt(k,220)*y(k,34) mat(k,439) = -((rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,90) + rxt(k,116) & *y(k,70) + rxt(k,119)*y(k,71)) mat(k,550) = -(rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,40) mat(k,507) = -rxt(k,116)*y(k,40) mat(k,527) = -rxt(k,119)*y(k,40) - mat(k,473) = rxt(k,237)*y(k,99) - mat(k,395) = rxt(k,243)*y(k,95) - mat(k,773) = rxt(k,157)*y(k,41) - mat(k,293) = rxt(k,213)*y(k,41) - mat(k,867) = rxt(k,157)*y(k,25) + rxt(k,213)*y(k,39) + rxt(k,111)*y(k,69) & + mat(k,473) = rxt(k,240)*y(k,99) + mat(k,395) = rxt(k,246)*y(k,95) + mat(k,773) = rxt(k,160)*y(k,41) + mat(k,293) = rxt(k,216)*y(k,41) + mat(k,867) = rxt(k,160)*y(k,25) + rxt(k,216)*y(k,39) + rxt(k,111)*y(k,69) & + rxt(k,94)*y(k,95) + rxt(k,120)*y(k,99) - mat(k,257) = rxt(k,211)*y(k,95) - mat(k,452) = rxt(k,188)*y(k,95) + mat(k,257) = rxt(k,214)*y(k,95) + mat(k,452) = rxt(k,191)*y(k,95) mat(k,350) = rxt(k,143)*y(k,99) mat(k,674) = rxt(k,111)*y(k,41) + rxt(k,123)*y(k,99) - mat(k,144) = rxt(k,249)*y(k,99) - mat(k,237) = rxt(k,255)*y(k,99) - mat(k,426) = rxt(k,260)*y(k,99) - mat(k,716) = rxt(k,243)*y(k,23) + rxt(k,94)*y(k,41) + rxt(k,211)*y(k,45) & - + rxt(k,188)*y(k,49) - mat(k,844) = rxt(k,237)*y(k,17) + rxt(k,120)*y(k,41) + rxt(k,143)*y(k,55) & - + rxt(k,123)*y(k,69) + rxt(k,249)*y(k,74) + rxt(k,255)*y(k,77) & - + rxt(k,260)*y(k,79) + mat(k,144) = rxt(k,252)*y(k,99) + mat(k,237) = rxt(k,258)*y(k,99) + mat(k,426) = rxt(k,263)*y(k,99) + mat(k,716) = rxt(k,246)*y(k,23) + rxt(k,94)*y(k,41) + rxt(k,214)*y(k,45) & + + rxt(k,191)*y(k,49) + mat(k,844) = rxt(k,240)*y(k,17) + rxt(k,120)*y(k,41) + rxt(k,143)*y(k,55) & + + rxt(k,123)*y(k,69) + rxt(k,252)*y(k,74) + rxt(k,258)*y(k,77) & + + rxt(k,263)*y(k,79) mat(k,882) = -(rxt(k,94)*y(k,95) + rxt(k,111)*y(k,69) + rxt(k,120)*y(k,99) & - + rxt(k,157)*y(k,25) + rxt(k,213)*y(k,39)) + + rxt(k,160)*y(k,25) + rxt(k,216)*y(k,39)) mat(k,731) = -rxt(k,94)*y(k,41) mat(k,689) = -rxt(k,111)*y(k,41) mat(k,859) = -rxt(k,120)*y(k,41) - mat(k,788) = -rxt(k,157)*y(k,41) - mat(k,296) = -rxt(k,213)*y(k,41) - mat(k,407) = rxt(k,244)*y(k,95) + mat(k,788) = -rxt(k,160)*y(k,41) + mat(k,296) = -rxt(k,216)*y(k,41) + mat(k,407) = rxt(k,247)*y(k,95) mat(k,445) = rxt(k,113)*y(k,90) mat(k,565) = rxt(k,113)*y(k,40) - mat(k,731) = mat(k,731) + rxt(k,244)*y(k,23) - mat(k,32) = -(rxt(k,209)*y(k,95)) - mat(k,694) = -rxt(k,209)*y(k,42) - mat(k,228) = -(rxt(k,112)*y(k,69) + rxt(k,121)*y(k,99) + rxt(k,158)*y(k,25)) + mat(k,731) = mat(k,731) + rxt(k,247)*y(k,23) + mat(k,32) = -(rxt(k,212)*y(k,95)) + mat(k,694) = -rxt(k,212)*y(k,42) + mat(k,228) = -(rxt(k,112)*y(k,69) + rxt(k,121)*y(k,99) + rxt(k,161)*y(k,25)) mat(k,658) = -rxt(k,112)*y(k,43) mat(k,830) = -rxt(k,121)*y(k,43) - mat(k,765) = -rxt(k,158)*y(k,43) + mat(k,765) = -rxt(k,161)*y(k,43) mat(k,545) = 2.000_r8*rxt(k,127)*y(k,90) mat(k,830) = mat(k,830) + 2.000_r8*rxt(k,126)*y(k,99) - mat(k,107) = rxt(k,262)*y(k,103) - mat(k,933) = rxt(k,262)*y(k,81) - mat(k,256) = -(rxt(k,204)*y(k,69) + rxt(k,205)*y(k,99) + (rxt(k,210) & - + rxt(k,211)) * y(k,95)) - mat(k,662) = -rxt(k,204)*y(k,45) - mat(k,832) = -rxt(k,205)*y(k,45) - mat(k,712) = -(rxt(k,210) + rxt(k,211)) * y(k,45) - mat(k,792) = rxt(k,191)*y(k,17) + rxt(k,192)*y(k,90) - mat(k,469) = rxt(k,191)*y(k,3) - mat(k,547) = rxt(k,192)*y(k,3) - mat(k,85) = -(rxt(k,227)*y(k,99) + rxt(k,232)*y(k,95)) - mat(k,816) = -rxt(k,227)*y(k,46) - mat(k,704) = -rxt(k,232)*y(k,46) - mat(k,95) = -(rxt(k,228)*y(k,99) + rxt(k,233)*y(k,95)) - mat(k,818) = -rxt(k,228)*y(k,47) - mat(k,706) = -rxt(k,233)*y(k,47) - mat(k,113) = -(rxt(k,229)*y(k,99) + rxt(k,234)*y(k,95)) - mat(k,820) = -rxt(k,229)*y(k,48) - mat(k,708) = -rxt(k,234)*y(k,48) - mat(k,453) = -(rxt(k,175)*y(k,69) + rxt(k,176)*y(k,99) + (rxt(k,187) & - + rxt(k,188)) * y(k,95) + (rxt(k,268) + rxt(k,274) + rxt(k,279) & - ) * y(k,54) + (rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,29) & - + (rxt(k,275) + rxt(k,280)) * y(k,53)) - mat(k,675) = -rxt(k,175)*y(k,49) - mat(k,845) = -rxt(k,176)*y(k,49) - mat(k,717) = -(rxt(k,187) + rxt(k,188)) * y(k,49) - mat(k,266) = -(rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,49) - mat(k,309) = -(rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,49) - mat(k,249) = -(rxt(k,275) + rxt(k,280)) * y(k,49) - mat(k,175) = rxt(k,218)*y(k,25) - mat(k,474) = rxt(k,155)*y(k,25) - mat(k,212) = rxt(k,220)*y(k,25) - mat(k,150) = 2.000_r8*rxt(k,223)*y(k,25) - mat(k,396) = rxt(k,156)*y(k,25) - mat(k,162) = rxt(k,225)*y(k,25) - mat(k,774) = rxt(k,218)*y(k,16) + rxt(k,155)*y(k,17) + rxt(k,220)*y(k,18) & - + 2.000_r8*rxt(k,223)*y(k,20) + rxt(k,156)*y(k,23) + rxt(k,225) & - *y(k,24) + rxt(k,157)*y(k,41) + rxt(k,158)*y(k,43) + rxt(k,177) & - *y(k,54) + rxt(k,159)*y(k,90) - mat(k,604) = rxt(k,174)*y(k,99) - mat(k,868) = rxt(k,157)*y(k,25) - mat(k,229) = rxt(k,158)*y(k,25) - mat(k,266) = mat(k,266) + rxt(k,177)*y(k,25) - mat(k,551) = rxt(k,159)*y(k,25) - mat(k,845) = mat(k,845) + rxt(k,174)*y(k,28) - mat(k,387) = rxt(k,212)*y(k,39) - mat(k,289) = rxt(k,212)*y(k,23) + rxt(k,213)*y(k,41) + rxt(k,215)*y(k,51) & - + rxt(k,214)*y(k,103) - mat(k,863) = rxt(k,213)*y(k,39) - mat(k,886) = rxt(k,215)*y(k,39) - mat(k,935) = rxt(k,214)*y(k,39) - mat(k,906) = -(rxt(k,152)*y(k,99) + rxt(k,215)*y(k,39)) + mat(k,107) = rxt(k,265)*y(k,103) + mat(k,933) = rxt(k,265)*y(k,81) + mat(k,256) = -(rxt(k,207)*y(k,69) + rxt(k,208)*y(k,99) + (rxt(k,213) & + + rxt(k,214)) * y(k,95)) + mat(k,662) = -rxt(k,207)*y(k,45) + mat(k,832) = -rxt(k,208)*y(k,45) + mat(k,712) = -(rxt(k,213) + rxt(k,214)) * y(k,45) + mat(k,792) = rxt(k,194)*y(k,17) + rxt(k,195)*y(k,90) + mat(k,469) = rxt(k,194)*y(k,3) + mat(k,547) = rxt(k,195)*y(k,3) + mat(k,85) = -(rxt(k,230)*y(k,99) + rxt(k,235)*y(k,95)) + mat(k,816) = -rxt(k,230)*y(k,46) + mat(k,704) = -rxt(k,235)*y(k,46) + mat(k,95) = -(rxt(k,231)*y(k,99) + rxt(k,236)*y(k,95)) + mat(k,818) = -rxt(k,231)*y(k,47) + mat(k,706) = -rxt(k,236)*y(k,47) + mat(k,113) = -(rxt(k,232)*y(k,99) + rxt(k,237)*y(k,95)) + mat(k,820) = -rxt(k,232)*y(k,48) + mat(k,708) = -rxt(k,237)*y(k,48) + mat(k,453) = -(rxt(k,178)*y(k,69) + rxt(k,179)*y(k,99) + (rxt(k,190) & + + rxt(k,191)) * y(k,95) + (rxt(k,271) + rxt(k,277) + rxt(k,282) & + ) * y(k,54) + (rxt(k,276) + rxt(k,281) + rxt(k,286)) * y(k,29) & + + (rxt(k,278) + rxt(k,283)) * y(k,53)) + mat(k,675) = -rxt(k,178)*y(k,49) + mat(k,845) = -rxt(k,179)*y(k,49) + mat(k,717) = -(rxt(k,190) + rxt(k,191)) * y(k,49) + mat(k,266) = -(rxt(k,271) + rxt(k,277) + rxt(k,282)) * y(k,49) + mat(k,309) = -(rxt(k,276) + rxt(k,281) + rxt(k,286)) * y(k,49) + mat(k,249) = -(rxt(k,278) + rxt(k,283)) * y(k,49) + mat(k,175) = rxt(k,221)*y(k,25) + mat(k,474) = rxt(k,158)*y(k,25) + mat(k,212) = rxt(k,223)*y(k,25) + mat(k,150) = 2.000_r8*rxt(k,226)*y(k,25) + mat(k,396) = rxt(k,159)*y(k,25) + mat(k,162) = rxt(k,228)*y(k,25) + mat(k,774) = rxt(k,221)*y(k,16) + rxt(k,158)*y(k,17) + rxt(k,223)*y(k,18) & + + 2.000_r8*rxt(k,226)*y(k,20) + rxt(k,159)*y(k,23) + rxt(k,228) & + *y(k,24) + rxt(k,160)*y(k,41) + rxt(k,161)*y(k,43) + rxt(k,180) & + *y(k,54) + rxt(k,162)*y(k,90) + mat(k,604) = rxt(k,177)*y(k,99) + mat(k,868) = rxt(k,160)*y(k,25) + mat(k,229) = rxt(k,161)*y(k,25) + mat(k,266) = mat(k,266) + rxt(k,180)*y(k,25) + mat(k,551) = rxt(k,162)*y(k,25) + mat(k,845) = mat(k,845) + rxt(k,177)*y(k,28) + mat(k,387) = rxt(k,215)*y(k,39) + mat(k,289) = rxt(k,215)*y(k,23) + rxt(k,216)*y(k,41) + rxt(k,218)*y(k,51) & + + rxt(k,217)*y(k,103) + mat(k,863) = rxt(k,216)*y(k,39) + mat(k,886) = rxt(k,218)*y(k,39) + mat(k,935) = rxt(k,217)*y(k,39) + mat(k,906) = -(rxt(k,152)*y(k,99) + rxt(k,218)*y(k,39)) mat(k,860) = -rxt(k,152)*y(k,51) - mat(k,297) = -rxt(k,215)*y(k,51) - mat(k,489) = rxt(k,235)*y(k,63) - mat(k,316) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,49) - mat(k,133) = rxt(k,246)*y(k,63) - mat(k,466) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,29) + mat(k,297) = -rxt(k,218)*y(k,51) + mat(k,489) = rxt(k,238)*y(k,63) + mat(k,316) = (rxt(k,276)+rxt(k,281)+rxt(k,286))*y(k,49) + mat(k,133) = rxt(k,249)*y(k,63) + mat(k,466) = (rxt(k,276)+rxt(k,281)+rxt(k,286))*y(k,29) mat(k,648) = rxt(k,151)*y(k,99) - mat(k,591) = rxt(k,235)*y(k,17) + rxt(k,246)*y(k,35) + mat(k,591) = rxt(k,238)*y(k,17) + rxt(k,249)*y(k,35) mat(k,860) = mat(k,860) + rxt(k,151)*y(k,62) - mat(k,167) = -(rxt(k,128)*y(k,99)) - mat(k,826) = -rxt(k,128)*y(k,52) + mat(k,167) = -(rxt(k,129)*y(k,99)) + mat(k,826) = -rxt(k,129)*y(k,52) mat(k,624) = rxt(k,149)*y(k,90) mat(k,544) = rxt(k,149)*y(k,62) - mat(k,248) = -(rxt(k,206)*y(k,69) + (rxt(k,275) + rxt(k,280)) * y(k,49)) - mat(k,661) = -rxt(k,206)*y(k,53) - mat(k,449) = -(rxt(k,275) + rxt(k,280)) * y(k,53) - mat(k,912) = rxt(k,198)*y(k,90) - mat(k,546) = rxt(k,198)*y(k,5) - mat(k,265) = -(rxt(k,177)*y(k,25) + rxt(k,178)*y(k,69) + rxt(k,179)*y(k,99) & - + (rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,49)) - mat(k,766) = -rxt(k,177)*y(k,54) - mat(k,663) = -rxt(k,178)*y(k,54) - mat(k,833) = -rxt(k,179)*y(k,54) - mat(k,450) = -(rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,54) - mat(k,598) = rxt(k,166)*y(k,90) - mat(k,307) = rxt(k,171)*y(k,99) - mat(k,548) = rxt(k,166)*y(k,28) - mat(k,833) = mat(k,833) + rxt(k,171)*y(k,29) - mat(k,347) = -(rxt(k,131)*y(k,61) + (rxt(k,132) + rxt(k,133) + rxt(k,134) & - ) * y(k,62) + rxt(k,135)*y(k,70) + rxt(k,143)*y(k,99) + rxt(k,296) & + mat(k,248) = -(rxt(k,209)*y(k,69) + (rxt(k,278) + rxt(k,283)) * y(k,49)) + mat(k,661) = -rxt(k,209)*y(k,53) + mat(k,449) = -(rxt(k,278) + rxt(k,283)) * y(k,53) + mat(k,912) = rxt(k,201)*y(k,90) + mat(k,546) = rxt(k,201)*y(k,5) + mat(k,265) = -(rxt(k,180)*y(k,25) + rxt(k,181)*y(k,69) + rxt(k,182)*y(k,99) & + + (rxt(k,271) + rxt(k,277) + rxt(k,282)) * y(k,49)) + mat(k,766) = -rxt(k,180)*y(k,54) + mat(k,663) = -rxt(k,181)*y(k,54) + mat(k,833) = -rxt(k,182)*y(k,54) + mat(k,450) = -(rxt(k,271) + rxt(k,277) + rxt(k,282)) * y(k,54) + mat(k,598) = rxt(k,169)*y(k,90) + mat(k,307) = rxt(k,174)*y(k,99) + mat(k,548) = rxt(k,169)*y(k,28) + mat(k,833) = mat(k,833) + rxt(k,174)*y(k,29) + mat(k,347) = -(rxt(k,132)*y(k,61) + (rxt(k,133) + rxt(k,134) + rxt(k,135) & + ) * y(k,62) + rxt(k,143)*y(k,99) + rxt(k,157)*y(k,70) + rxt(k,299) & *y(k,98)) - mat(k,738) = -rxt(k,131)*y(k,55) - mat(k,629) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,55) - mat(k,503) = -rxt(k,135)*y(k,55) + mat(k,738) = -rxt(k,132)*y(k,55) + mat(k,629) = -(rxt(k,133) + rxt(k,134) + rxt(k,135)) * y(k,55) mat(k,838) = -rxt(k,143)*y(k,55) - mat(k,360) = -rxt(k,296)*y(k,55) - mat(k,670) = rxt(k,129)*y(k,91) + rxt(k,293)*y(k,94) - mat(k,503) = mat(k,503) + rxt(k,294)*y(k,94) - mat(k,325) = 1.100_r8*rxt(k,289)*y(k,92) + .200_r8*rxt(k,287)*y(k,93) - mat(k,335) = rxt(k,129)*y(k,69) - mat(k,223) = 1.100_r8*rxt(k,289)*y(k,89) - mat(k,245) = .200_r8*rxt(k,287)*y(k,89) - mat(k,276) = rxt(k,293)*y(k,69) + rxt(k,294)*y(k,70) + mat(k,503) = -rxt(k,157)*y(k,55) + mat(k,360) = -rxt(k,299)*y(k,55) + mat(k,670) = rxt(k,131)*y(k,91) + rxt(k,296)*y(k,94) + mat(k,503) = mat(k,503) + rxt(k,297)*y(k,94) + mat(k,325) = rxt(k,154)*y(k,91) + 1.100_r8*rxt(k,292)*y(k,92) & + + .200_r8*rxt(k,290)*y(k,93) + mat(k,335) = rxt(k,131)*y(k,69) + rxt(k,154)*y(k,89) + mat(k,223) = 1.100_r8*rxt(k,292)*y(k,89) + mat(k,245) = .200_r8*rxt(k,290)*y(k,89) + mat(k,276) = rxt(k,296)*y(k,69) + rxt(k,297)*y(k,70) mat(k,103) = -((rxt(k,147) + rxt(k,148)) * y(k,95)) mat(k,707) = -(rxt(k,147) + rxt(k,148)) * y(k,56) - mat(k,342) = rxt(k,132)*y(k,62) - mat(k,622) = rxt(k,132)*y(k,55) + mat(k,342) = rxt(k,133)*y(k,62) + mat(k,622) = rxt(k,133)*y(k,55) mat(k,623) = rxt(k,150)*y(k,63) mat(k,569) = rxt(k,150)*y(k,62) - mat(k,752) = -(rxt(k,131)*y(k,55) + rxt(k,140)*y(k,63) + rxt(k,144)*y(k,90) & - + rxt(k,145)*y(k,71) + rxt(k,146)*y(k,69) + rxt(k,167)*y(k,28) & - + rxt(k,199)*y(k,5) + rxt(k,239)*y(k,21) + rxt(k,298)*y(k,98)) - mat(k,355) = -rxt(k,131)*y(k,61) + mat(k,752) = -(rxt(k,130)*y(k,91) + rxt(k,132)*y(k,55) + rxt(k,140)*y(k,63) & + + rxt(k,144)*y(k,90) + rxt(k,145)*y(k,71) + rxt(k,146)*y(k,69) & + + rxt(k,170)*y(k,28) + rxt(k,202)*y(k,5) + rxt(k,242)*y(k,21) & + + rxt(k,301)*y(k,98)) + mat(k,341) = -rxt(k,130)*y(k,61) + mat(k,355) = -rxt(k,132)*y(k,61) mat(k,586) = -rxt(k,140)*y(k,61) mat(k,561) = -rxt(k,144)*y(k,61) mat(k,536) = -rxt(k,145)*y(k,61) mat(k,685) = -rxt(k,146)*y(k,61) - mat(k,614) = -rxt(k,167)*y(k,61) - mat(k,925) = -rxt(k,199)*y(k,61) - mat(k,418) = -rxt(k,239)*y(k,61) - mat(k,368) = -rxt(k,298)*y(k,61) - mat(k,355) = mat(k,355) + 2.000_r8*rxt(k,133)*y(k,62) + rxt(k,135)*y(k,70) & + mat(k,614) = -rxt(k,170)*y(k,61) + mat(k,925) = -rxt(k,202)*y(k,61) + mat(k,418) = -rxt(k,242)*y(k,61) + mat(k,368) = -rxt(k,301)*y(k,61) + mat(k,355) = mat(k,355) + 2.000_r8*rxt(k,134)*y(k,62) + rxt(k,157)*y(k,70) & + rxt(k,143)*y(k,99) mat(k,106) = 2.000_r8*rxt(k,147)*y(k,95) - mat(k,643) = 2.000_r8*rxt(k,133)*y(k,55) + rxt(k,136)*y(k,69) + rxt(k,256) & + mat(k,643) = 2.000_r8*rxt(k,134)*y(k,55) + rxt(k,136)*y(k,69) + rxt(k,259) & *y(k,79) mat(k,685) = mat(k,685) + rxt(k,136)*y(k,62) - mat(k,515) = rxt(k,135)*y(k,55) + rxt(k,130)*y(k,91) - mat(k,433) = rxt(k,256)*y(k,62) - mat(k,341) = rxt(k,130)*y(k,70) + mat(k,515) = rxt(k,157)*y(k,55) + rxt(k,155)*y(k,91) + mat(k,433) = rxt(k,259)*y(k,62) + mat(k,341) = mat(k,341) + rxt(k,155)*y(k,70) mat(k,727) = 2.000_r8*rxt(k,147)*y(k,56) mat(k,855) = rxt(k,143)*y(k,55) end do @@ -492,24 +495,24 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,640) = -((rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,55) + (rxt(k,136) & + mat(k,640) = -((rxt(k,133) + rxt(k,134) + rxt(k,135)) * y(k,55) + (rxt(k,136) & + rxt(k,138)) * y(k,69) + rxt(k,137)*y(k,71) + rxt(k,149) & - *y(k,90) + rxt(k,150)*y(k,63) + rxt(k,151)*y(k,99) + rxt(k,169) & - *y(k,28) + rxt(k,200)*y(k,5) + rxt(k,256)*y(k,79)) - mat(k,352) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,62) + *y(k,90) + rxt(k,150)*y(k,63) + rxt(k,151)*y(k,99) + rxt(k,172) & + *y(k,28) + rxt(k,203)*y(k,5) + rxt(k,259)*y(k,79)) + mat(k,352) = -(rxt(k,133) + rxt(k,134) + rxt(k,135)) * y(k,62) mat(k,682) = -(rxt(k,136) + rxt(k,138)) * y(k,62) mat(k,533) = -rxt(k,137)*y(k,62) mat(k,558) = -rxt(k,149)*y(k,62) mat(k,583) = -rxt(k,150)*y(k,62) mat(k,852) = -rxt(k,151)*y(k,62) - mat(k,611) = -rxt(k,169)*y(k,62) - mat(k,922) = -rxt(k,200)*y(k,62) - mat(k,431) = -rxt(k,256)*y(k,62) - mat(k,922) = mat(k,922) + rxt(k,199)*y(k,61) - mat(k,417) = rxt(k,239)*y(k,61) - mat(k,611) = mat(k,611) + rxt(k,167)*y(k,61) - mat(k,171) = rxt(k,128)*y(k,99) - mat(k,749) = rxt(k,199)*y(k,5) + rxt(k,239)*y(k,21) + rxt(k,167)*y(k,28) & + mat(k,611) = -rxt(k,172)*y(k,62) + mat(k,922) = -rxt(k,203)*y(k,62) + mat(k,431) = -rxt(k,259)*y(k,62) + mat(k,922) = mat(k,922) + rxt(k,202)*y(k,61) + mat(k,417) = rxt(k,242)*y(k,61) + mat(k,611) = mat(k,611) + rxt(k,170)*y(k,61) + mat(k,171) = rxt(k,129)*y(k,99) + mat(k,749) = rxt(k,202)*y(k,5) + rxt(k,242)*y(k,21) + rxt(k,170)*y(k,28) & + 2.000_r8*rxt(k,140)*y(k,63) + rxt(k,146)*y(k,69) + rxt(k,145) & *y(k,71) + rxt(k,144)*y(k,90) mat(k,583) = mat(k,583) + 2.000_r8*rxt(k,140)*y(k,61) + rxt(k,141)*y(k,69) & @@ -517,35 +520,35 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) mat(k,682) = mat(k,682) + rxt(k,146)*y(k,61) + rxt(k,141)*y(k,63) mat(k,533) = mat(k,533) + rxt(k,145)*y(k,61) mat(k,558) = mat(k,558) + rxt(k,144)*y(k,61) + rxt(k,139)*y(k,63) - mat(k,852) = mat(k,852) + rxt(k,128)*y(k,52) + rxt(k,142)*y(k,63) + mat(k,852) = mat(k,852) + rxt(k,129)*y(k,52) + rxt(k,142)*y(k,63) mat(k,581) = -(rxt(k,139)*y(k,90) + rxt(k,140)*y(k,61) + rxt(k,141)*y(k,69) & - + rxt(k,142)*y(k,99) + rxt(k,150)*y(k,62) + rxt(k,235)*y(k,17) & - + rxt(k,246)*y(k,35)) + + rxt(k,142)*y(k,99) + rxt(k,150)*y(k,62) + rxt(k,238)*y(k,17) & + + rxt(k,249)*y(k,35)) mat(k,556) = -rxt(k,139)*y(k,63) mat(k,747) = -rxt(k,140)*y(k,63) mat(k,680) = -rxt(k,141)*y(k,63) mat(k,850) = -rxt(k,142)*y(k,63) mat(k,638) = -rxt(k,150)*y(k,63) - mat(k,479) = -rxt(k,235)*y(k,63) - mat(k,131) = -rxt(k,246)*y(k,63) - mat(k,204) = rxt(k,201)*y(k,69) - mat(k,779) = rxt(k,168)*y(k,29) - mat(k,310) = rxt(k,168)*y(k,25) + rxt(k,170)*y(k,69) + rxt(k,171)*y(k,99) - mat(k,294) = rxt(k,215)*y(k,51) - mat(k,896) = rxt(k,215)*y(k,39) + rxt(k,152)*y(k,99) + mat(k,479) = -rxt(k,238)*y(k,63) + mat(k,131) = -rxt(k,249)*y(k,63) + mat(k,204) = rxt(k,204)*y(k,69) + mat(k,779) = rxt(k,171)*y(k,29) + mat(k,310) = rxt(k,171)*y(k,25) + rxt(k,173)*y(k,69) + rxt(k,174)*y(k,99) + mat(k,294) = rxt(k,218)*y(k,51) + mat(k,896) = rxt(k,218)*y(k,39) + rxt(k,152)*y(k,99) mat(k,638) = mat(k,638) + rxt(k,138)*y(k,69) + rxt(k,137)*y(k,71) - mat(k,680) = mat(k,680) + rxt(k,201)*y(k,6) + rxt(k,170)*y(k,29) + rxt(k,138) & + mat(k,680) = mat(k,680) + rxt(k,204)*y(k,6) + rxt(k,173)*y(k,29) + rxt(k,138) & *y(k,62) mat(k,531) = rxt(k,137)*y(k,62) - mat(k,850) = mat(k,850) + rxt(k,171)*y(k,29) + rxt(k,152)*y(k,51) + mat(k,850) = mat(k,850) + rxt(k,174)*y(k,29) + rxt(k,152)*y(k,51) mat(k,683) = -(rxt(k,108)*y(k,71) + 4._r8*rxt(k,109)*y(k,69) + rxt(k,110) & *y(k,70) + rxt(k,111)*y(k,41) + rxt(k,112)*y(k,43) + rxt(k,117) & *y(k,90) + rxt(k,123)*y(k,99) + (rxt(k,136) + rxt(k,138) & - ) * y(k,62) + rxt(k,141)*y(k,63) + rxt(k,146)*y(k,61) + rxt(k,170) & - *y(k,29) + rxt(k,172)*y(k,28) + rxt(k,175)*y(k,49) + rxt(k,178) & - *y(k,54) + rxt(k,201)*y(k,6) + rxt(k,202)*y(k,5) + rxt(k,204) & - *y(k,45) + rxt(k,206)*y(k,53) + rxt(k,236)*y(k,17) + rxt(k,248) & - *y(k,74) + (rxt(k,291) + rxt(k,292)) * y(k,92) + rxt(k,293) & + ) * y(k,62) + rxt(k,141)*y(k,63) + rxt(k,146)*y(k,61) + rxt(k,173) & + *y(k,29) + rxt(k,175)*y(k,28) + rxt(k,178)*y(k,49) + rxt(k,181) & + *y(k,54) + rxt(k,204)*y(k,6) + rxt(k,205)*y(k,5) + rxt(k,207) & + *y(k,45) + rxt(k,209)*y(k,53) + rxt(k,239)*y(k,17) + rxt(k,251) & + *y(k,74) + (rxt(k,294) + rxt(k,295)) * y(k,92) + rxt(k,296) & *y(k,94)) mat(k,534) = -rxt(k,108)*y(k,69) mat(k,513) = -rxt(k,110)*y(k,69) @@ -556,95 +559,95 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) mat(k,641) = -(rxt(k,136) + rxt(k,138)) * y(k,69) mat(k,584) = -rxt(k,141)*y(k,69) mat(k,750) = -rxt(k,146)*y(k,69) - mat(k,313) = -rxt(k,170)*y(k,69) - mat(k,612) = -rxt(k,172)*y(k,69) - mat(k,460) = -rxt(k,175)*y(k,69) - mat(k,268) = -rxt(k,178)*y(k,69) - mat(k,206) = -rxt(k,201)*y(k,69) - mat(k,923) = -rxt(k,202)*y(k,69) - mat(k,258) = -rxt(k,204)*y(k,69) - mat(k,250) = -rxt(k,206)*y(k,69) - mat(k,482) = -rxt(k,236)*y(k,69) - mat(k,145) = -rxt(k,248)*y(k,69) - mat(k,227) = -(rxt(k,291) + rxt(k,292)) * y(k,69) - mat(k,280) = -rxt(k,293)*y(k,69) + mat(k,313) = -rxt(k,173)*y(k,69) + mat(k,612) = -rxt(k,175)*y(k,69) + mat(k,460) = -rxt(k,178)*y(k,69) + mat(k,268) = -rxt(k,181)*y(k,69) + mat(k,206) = -rxt(k,204)*y(k,69) + mat(k,923) = -rxt(k,205)*y(k,69) + mat(k,258) = -rxt(k,207)*y(k,69) + mat(k,250) = -rxt(k,209)*y(k,69) + mat(k,482) = -rxt(k,239)*y(k,69) + mat(k,145) = -rxt(k,251)*y(k,69) + mat(k,227) = -(rxt(k,294) + rxt(k,295)) * y(k,69) + mat(k,280) = -rxt(k,296)*y(k,69) mat(k,443) = rxt(k,115)*y(k,90) - mat(k,353) = rxt(k,131)*y(k,61) + rxt(k,132)*y(k,62) + rxt(k,135)*y(k,70) & - + rxt(k,296)*y(k,98) - mat(k,750) = mat(k,750) + rxt(k,131)*y(k,55) - mat(k,641) = mat(k,641) + rxt(k,132)*y(k,55) - mat(k,513) = mat(k,513) + rxt(k,135)*y(k,55) + rxt(k,250)*y(k,77) & - + rxt(k,257)*y(k,79) + rxt(k,295)*y(k,94) + (rxt(k,97)+rxt(k,98)) & - *y(k,95) + rxt(k,302)*y(k,100) + rxt(k,306)*y(k,101) - mat(k,240) = rxt(k,250)*y(k,70) - mat(k,432) = rxt(k,257)*y(k,70) - mat(k,329) = rxt(k,287)*y(k,93) + 1.150_r8*rxt(k,288)*y(k,98) + mat(k,353) = rxt(k,132)*y(k,61) + rxt(k,133)*y(k,62) + rxt(k,157)*y(k,70) & + + rxt(k,299)*y(k,98) + mat(k,750) = mat(k,750) + rxt(k,132)*y(k,55) + rxt(k,130)*y(k,91) + mat(k,641) = mat(k,641) + rxt(k,133)*y(k,55) + mat(k,513) = mat(k,513) + rxt(k,157)*y(k,55) + rxt(k,253)*y(k,77) & + + rxt(k,260)*y(k,79) + rxt(k,298)*y(k,94) + (rxt(k,97)+rxt(k,98)) & + *y(k,95) + rxt(k,305)*y(k,100) + rxt(k,309)*y(k,101) + mat(k,240) = rxt(k,253)*y(k,70) + mat(k,432) = rxt(k,260)*y(k,70) + mat(k,329) = rxt(k,290)*y(k,93) + 1.150_r8*rxt(k,291)*y(k,98) mat(k,559) = mat(k,559) + rxt(k,115)*y(k,40) - mat(k,339) = rxt(k,301)*y(k,100) - mat(k,246) = rxt(k,287)*y(k,89) - mat(k,280) = mat(k,280) + rxt(k,295)*y(k,70) + mat(k,339) = rxt(k,130)*y(k,61) + rxt(k,304)*y(k,100) + mat(k,246) = rxt(k,290)*y(k,89) + mat(k,280) = mat(k,280) + rxt(k,298)*y(k,70) mat(k,725) = (rxt(k,97)+rxt(k,98))*y(k,70) - mat(k,366) = rxt(k,296)*y(k,55) + 1.150_r8*rxt(k,288)*y(k,89) + mat(k,366) = rxt(k,299)*y(k,55) + 1.150_r8*rxt(k,291)*y(k,89) mat(k,853) = mat(k,853) + 2.000_r8*rxt(k,125)*y(k,99) - mat(k,383) = rxt(k,302)*y(k,70) + rxt(k,301)*y(k,91) - mat(k,193) = rxt(k,306)*y(k,70) + mat(k,383) = rxt(k,305)*y(k,70) + rxt(k,304)*y(k,91) + mat(k,193) = rxt(k,309)*y(k,70) mat(k,508) = -(rxt(k,97)*y(k,95) + rxt(k,102)*y(k,96) + rxt(k,110)*y(k,69) & - + rxt(k,116)*y(k,40) + rxt(k,130)*y(k,91) + rxt(k,135)*y(k,55) & - + rxt(k,250)*y(k,77) + rxt(k,257)*y(k,79) + rxt(k,290)*y(k,92) & - + (rxt(k,294) + rxt(k,295)) * y(k,94) + rxt(k,302)*y(k,100) & - + rxt(k,306)*y(k,101)) + + rxt(k,116)*y(k,40) + rxt(k,155)*y(k,91) + rxt(k,157)*y(k,55) & + + rxt(k,253)*y(k,77) + rxt(k,260)*y(k,79) + rxt(k,293)*y(k,92) & + + (rxt(k,297) + rxt(k,298)) * y(k,94) + rxt(k,305)*y(k,100) & + + rxt(k,309)*y(k,101)) mat(k,719) = -rxt(k,97)*y(k,70) mat(k,78) = -rxt(k,102)*y(k,70) mat(k,677) = -rxt(k,110)*y(k,70) mat(k,440) = -rxt(k,116)*y(k,70) - mat(k,338) = -rxt(k,130)*y(k,70) - mat(k,351) = -rxt(k,135)*y(k,70) - mat(k,238) = -rxt(k,250)*y(k,70) - mat(k,427) = -rxt(k,257)*y(k,70) - mat(k,226) = -rxt(k,290)*y(k,70) - mat(k,279) = -(rxt(k,294) + rxt(k,295)) * y(k,70) - mat(k,380) = -rxt(k,302)*y(k,70) - mat(k,192) = -rxt(k,306)*y(k,70) - mat(k,798) = rxt(k,193)*y(k,71) + rxt(k,192)*y(k,90) - mat(k,917) = 2.000_r8*rxt(k,194)*y(k,5) + (rxt(k,196)+rxt(k,197))*y(k,28) & - + rxt(k,202)*y(k,69) + rxt(k,198)*y(k,90) - mat(k,414) = rxt(k,238)*y(k,90) - mat(k,776) = rxt(k,161)*y(k,71) + rxt(k,159)*y(k,90) - mat(k,606) = (rxt(k,196)+rxt(k,197))*y(k,5) + (2.000_r8*rxt(k,163) & - +2.000_r8*rxt(k,164))*y(k,28) + rxt(k,172)*y(k,69) + rxt(k,166) & - *y(k,90) + rxt(k,174)*y(k,99) + mat(k,338) = -rxt(k,155)*y(k,70) + mat(k,351) = -rxt(k,157)*y(k,70) + mat(k,238) = -rxt(k,253)*y(k,70) + mat(k,427) = -rxt(k,260)*y(k,70) + mat(k,226) = -rxt(k,293)*y(k,70) + mat(k,279) = -(rxt(k,297) + rxt(k,298)) * y(k,70) + mat(k,380) = -rxt(k,305)*y(k,70) + mat(k,192) = -rxt(k,309)*y(k,70) + mat(k,798) = rxt(k,196)*y(k,71) + rxt(k,195)*y(k,90) + mat(k,917) = 2.000_r8*rxt(k,197)*y(k,5) + (rxt(k,199)+rxt(k,200))*y(k,28) & + + rxt(k,205)*y(k,69) + rxt(k,201)*y(k,90) + mat(k,414) = rxt(k,241)*y(k,90) + mat(k,776) = rxt(k,164)*y(k,71) + rxt(k,162)*y(k,90) + mat(k,606) = (rxt(k,199)+rxt(k,200))*y(k,5) + (2.000_r8*rxt(k,166) & + +2.000_r8*rxt(k,167))*y(k,28) + rxt(k,175)*y(k,69) + rxt(k,169) & + *y(k,90) + rxt(k,177)*y(k,99) mat(k,440) = mat(k,440) + rxt(k,119)*y(k,71) + rxt(k,113)*y(k,90) - mat(k,168) = rxt(k,128)*y(k,99) - mat(k,351) = mat(k,351) + rxt(k,134)*y(k,62) + mat(k,168) = rxt(k,129)*y(k,99) + mat(k,351) = mat(k,351) + rxt(k,135)*y(k,62) mat(k,104) = rxt(k,148)*y(k,95) - mat(k,744) = rxt(k,145)*y(k,71) + rxt(k,298)*y(k,98) - mat(k,635) = rxt(k,134)*y(k,55) + rxt(k,136)*y(k,69) + rxt(k,137)*y(k,71) + mat(k,744) = rxt(k,145)*y(k,71) + rxt(k,301)*y(k,98) + mat(k,635) = rxt(k,135)*y(k,55) + rxt(k,136)*y(k,69) + rxt(k,137)*y(k,71) mat(k,578) = rxt(k,141)*y(k,69) + rxt(k,139)*y(k,90) - mat(k,677) = mat(k,677) + rxt(k,202)*y(k,5) + rxt(k,172)*y(k,28) + rxt(k,136) & + mat(k,677) = mat(k,677) + rxt(k,205)*y(k,5) + rxt(k,175)*y(k,28) + rxt(k,136) & *y(k,62) + rxt(k,141)*y(k,63) + 2.000_r8*rxt(k,109)*y(k,69) & + 2.000_r8*rxt(k,108)*y(k,71) + rxt(k,117)*y(k,90) + rxt(k,101) & *y(k,96) + rxt(k,123)*y(k,99) mat(k,508) = mat(k,508) + 2.000_r8*rxt(k,102)*y(k,96) - mat(k,528) = rxt(k,193)*y(k,3) + rxt(k,161)*y(k,25) + rxt(k,119)*y(k,40) & + mat(k,528) = rxt(k,196)*y(k,3) + rxt(k,164)*y(k,25) + rxt(k,119)*y(k,40) & + rxt(k,145)*y(k,61) + rxt(k,137)*y(k,62) + 2.000_r8*rxt(k,108) & - *y(k,69) + rxt(k,252)*y(k,77) + rxt(k,258)*y(k,79) & + *y(k,69) + rxt(k,255)*y(k,77) + rxt(k,261)*y(k,79) & + 2.000_r8*rxt(k,118)*y(k,90) + 2.000_r8*rxt(k,99)*y(k,95) & + rxt(k,124)*y(k,99) - mat(k,238) = mat(k,238) + rxt(k,252)*y(k,71) - mat(k,427) = mat(k,427) + rxt(k,258)*y(k,71) - mat(k,553) = rxt(k,192)*y(k,3) + rxt(k,198)*y(k,5) + rxt(k,238)*y(k,21) & - + rxt(k,159)*y(k,25) + rxt(k,166)*y(k,28) + rxt(k,113)*y(k,40) & + mat(k,238) = mat(k,238) + rxt(k,255)*y(k,71) + mat(k,427) = mat(k,427) + rxt(k,261)*y(k,71) + mat(k,553) = rxt(k,195)*y(k,3) + rxt(k,201)*y(k,5) + rxt(k,241)*y(k,21) & + + rxt(k,162)*y(k,25) + rxt(k,169)*y(k,28) + rxt(k,113)*y(k,40) & + rxt(k,139)*y(k,63) + rxt(k,117)*y(k,69) + 2.000_r8*rxt(k,118) & *y(k,71) + 2.000_r8*rxt(k,127)*y(k,90) + rxt(k,122)*y(k,99) mat(k,719) = mat(k,719) + rxt(k,148)*y(k,56) + 2.000_r8*rxt(k,99)*y(k,71) mat(k,78) = mat(k,78) + rxt(k,101)*y(k,69) + 2.000_r8*rxt(k,102)*y(k,70) - mat(k,364) = rxt(k,298)*y(k,61) - mat(k,847) = rxt(k,174)*y(k,28) + rxt(k,128)*y(k,52) + rxt(k,123)*y(k,69) & + mat(k,364) = rxt(k,301)*y(k,61) + mat(k,847) = rxt(k,177)*y(k,28) + rxt(k,129)*y(k,52) + rxt(k,123)*y(k,69) & + rxt(k,124)*y(k,71) + rxt(k,122)*y(k,90) mat(k,529) = -(rxt(k,99)*y(k,95) + rxt(k,108)*y(k,69) + rxt(k,118)*y(k,90) & + rxt(k,119)*y(k,40) + rxt(k,124)*y(k,99) + rxt(k,137)*y(k,62) & - + rxt(k,145)*y(k,61) + rxt(k,161)*y(k,25) + rxt(k,193)*y(k,3) & - + rxt(k,252)*y(k,77) + rxt(k,258)*y(k,79)) + + rxt(k,145)*y(k,61) + rxt(k,164)*y(k,25) + rxt(k,196)*y(k,3) & + + rxt(k,255)*y(k,77) + rxt(k,261)*y(k,79)) mat(k,720) = -rxt(k,99)*y(k,71) mat(k,678) = -rxt(k,108)*y(k,71) mat(k,554) = -rxt(k,118)*y(k,71) @@ -652,55 +655,55 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) mat(k,848) = -rxt(k,124)*y(k,71) mat(k,636) = -rxt(k,137)*y(k,71) mat(k,745) = -rxt(k,145)*y(k,71) - mat(k,777) = -rxt(k,161)*y(k,71) - mat(k,799) = -rxt(k,193)*y(k,71) - mat(k,239) = -rxt(k,252)*y(k,71) - mat(k,428) = -rxt(k,258)*y(k,71) + mat(k,777) = -rxt(k,164)*y(k,71) + mat(k,799) = -rxt(k,196)*y(k,71) + mat(k,239) = -rxt(k,255)*y(k,71) + mat(k,428) = -rxt(k,261)*y(k,71) mat(k,678) = mat(k,678) + rxt(k,110)*y(k,70) mat(k,509) = rxt(k,110)*y(k,69) - mat(k,134) = -(rxt(k,259)*y(k,79)) - mat(k,422) = -rxt(k,259)*y(k,73) - mat(k,910) = rxt(k,195)*y(k,28) - mat(k,597) = rxt(k,195)*y(k,5) + 2.000_r8*rxt(k,165)*y(k,28) - mat(k,139) = -(rxt(k,248)*y(k,69) + rxt(k,249)*y(k,99)) - mat(k,653) = -rxt(k,248)*y(k,74) - mat(k,822) = -rxt(k,249)*y(k,74) - mat(k,235) = -(rxt(k,250)*y(k,70) + rxt(k,252)*y(k,71) + rxt(k,255)*y(k,99)) - mat(k,497) = -rxt(k,250)*y(k,77) - mat(k,524) = -rxt(k,252)*y(k,77) - mat(k,831) = -rxt(k,255)*y(k,77) - mat(k,425) = -(rxt(k,253)*y(k,5) + rxt(k,254)*y(k,28) + rxt(k,256)*y(k,62) & - + rxt(k,257)*y(k,70) + rxt(k,258)*y(k,71) + rxt(k,259)*y(k,73) & - + rxt(k,260)*y(k,99)) - mat(k,914) = -rxt(k,253)*y(k,79) - mat(k,602) = -rxt(k,254)*y(k,79) - mat(k,632) = -rxt(k,256)*y(k,79) - mat(k,506) = -rxt(k,257)*y(k,79) - mat(k,526) = -rxt(k,258)*y(k,79) - mat(k,136) = -rxt(k,259)*y(k,79) - mat(k,843) = -rxt(k,260)*y(k,79) - mat(k,673) = rxt(k,248)*y(k,74) - mat(k,506) = mat(k,506) + rxt(k,250)*y(k,77) - mat(k,526) = mat(k,526) + rxt(k,252)*y(k,77) - mat(k,143) = rxt(k,248)*y(k,69) - mat(k,236) = rxt(k,250)*y(k,70) + rxt(k,252)*y(k,71) + rxt(k,255)*y(k,99) - mat(k,843) = mat(k,843) + rxt(k,255)*y(k,77) - mat(k,300) = -(rxt(k,251)*y(k,99)) - mat(k,836) = -rxt(k,251)*y(k,80) - mat(k,913) = rxt(k,253)*y(k,79) - mat(k,599) = rxt(k,254)*y(k,79) - mat(k,129) = rxt(k,246)*y(k,63) + (rxt(k,247)+.500_r8*rxt(k,261))*y(k,99) - mat(k,627) = rxt(k,256)*y(k,79) - mat(k,572) = rxt(k,246)*y(k,35) - mat(k,500) = rxt(k,257)*y(k,79) - mat(k,525) = rxt(k,258)*y(k,79) - mat(k,135) = rxt(k,259)*y(k,79) - mat(k,142) = rxt(k,249)*y(k,99) - mat(k,424) = rxt(k,253)*y(k,5) + rxt(k,254)*y(k,28) + rxt(k,256)*y(k,62) & - + rxt(k,257)*y(k,70) + rxt(k,258)*y(k,71) + rxt(k,259)*y(k,73) & - + rxt(k,260)*y(k,99) - mat(k,836) = mat(k,836) + (rxt(k,247)+.500_r8*rxt(k,261))*y(k,35) & - + rxt(k,249)*y(k,74) + rxt(k,260)*y(k,79) + mat(k,134) = -(rxt(k,262)*y(k,79)) + mat(k,422) = -rxt(k,262)*y(k,73) + mat(k,910) = rxt(k,198)*y(k,28) + mat(k,597) = rxt(k,198)*y(k,5) + 2.000_r8*rxt(k,168)*y(k,28) + mat(k,139) = -(rxt(k,251)*y(k,69) + rxt(k,252)*y(k,99)) + mat(k,653) = -rxt(k,251)*y(k,74) + mat(k,822) = -rxt(k,252)*y(k,74) + mat(k,235) = -(rxt(k,253)*y(k,70) + rxt(k,255)*y(k,71) + rxt(k,258)*y(k,99)) + mat(k,497) = -rxt(k,253)*y(k,77) + mat(k,524) = -rxt(k,255)*y(k,77) + mat(k,831) = -rxt(k,258)*y(k,77) + mat(k,425) = -(rxt(k,256)*y(k,5) + rxt(k,257)*y(k,28) + rxt(k,259)*y(k,62) & + + rxt(k,260)*y(k,70) + rxt(k,261)*y(k,71) + rxt(k,262)*y(k,73) & + + rxt(k,263)*y(k,99)) + mat(k,914) = -rxt(k,256)*y(k,79) + mat(k,602) = -rxt(k,257)*y(k,79) + mat(k,632) = -rxt(k,259)*y(k,79) + mat(k,506) = -rxt(k,260)*y(k,79) + mat(k,526) = -rxt(k,261)*y(k,79) + mat(k,136) = -rxt(k,262)*y(k,79) + mat(k,843) = -rxt(k,263)*y(k,79) + mat(k,673) = rxt(k,251)*y(k,74) + mat(k,506) = mat(k,506) + rxt(k,253)*y(k,77) + mat(k,526) = mat(k,526) + rxt(k,255)*y(k,77) + mat(k,143) = rxt(k,251)*y(k,69) + mat(k,236) = rxt(k,253)*y(k,70) + rxt(k,255)*y(k,71) + rxt(k,258)*y(k,99) + mat(k,843) = mat(k,843) + rxt(k,258)*y(k,77) + mat(k,300) = -(rxt(k,254)*y(k,99)) + mat(k,836) = -rxt(k,254)*y(k,80) + mat(k,913) = rxt(k,256)*y(k,79) + mat(k,599) = rxt(k,257)*y(k,79) + mat(k,129) = rxt(k,249)*y(k,63) + (rxt(k,250)+.500_r8*rxt(k,264))*y(k,99) + mat(k,627) = rxt(k,259)*y(k,79) + mat(k,572) = rxt(k,249)*y(k,35) + mat(k,500) = rxt(k,260)*y(k,79) + mat(k,525) = rxt(k,261)*y(k,79) + mat(k,135) = rxt(k,262)*y(k,79) + mat(k,142) = rxt(k,252)*y(k,99) + mat(k,424) = rxt(k,256)*y(k,5) + rxt(k,257)*y(k,28) + rxt(k,259)*y(k,62) & + + rxt(k,260)*y(k,70) + rxt(k,261)*y(k,71) + rxt(k,262)*y(k,73) & + + rxt(k,263)*y(k,99) + mat(k,836) = mat(k,836) + (rxt(k,250)+.500_r8*rxt(k,264))*y(k,35) & + + rxt(k,252)*y(k,74) + rxt(k,263)*y(k,79) end do end subroutine nlnmat03 subroutine nlnmat04( avec_len, mat, y, rxt ) @@ -721,20 +724,20 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,108) = -(rxt(k,262)*y(k,103)) - mat(k,934) = -rxt(k,262)*y(k,81) - mat(k,299) = rxt(k,251)*y(k,99) - mat(k,819) = rxt(k,251)*y(k,80) - mat(k,323) = -(rxt(k,287)*y(k,93) + rxt(k,288)*y(k,98) + rxt(k,289)*y(k,92)) - mat(k,243) = -rxt(k,287)*y(k,89) - mat(k,358) = -rxt(k,288)*y(k,89) - mat(k,221) = -rxt(k,289)*y(k,89) + mat(k,108) = -(rxt(k,265)*y(k,103)) + mat(k,934) = -rxt(k,265)*y(k,81) + mat(k,299) = rxt(k,254)*y(k,99) + mat(k,819) = rxt(k,254)*y(k,80) + mat(k,323) = -(rxt(k,290)*y(k,93) + rxt(k,291)*y(k,98) + rxt(k,292)*y(k,92)) + mat(k,243) = -rxt(k,290)*y(k,89) + mat(k,358) = -rxt(k,291)*y(k,89) + mat(k,221) = -rxt(k,292)*y(k,89) mat(k,555) = -((rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,40) + rxt(k,117) & *y(k,69) + rxt(k,118)*y(k,71) + rxt(k,122)*y(k,99) & + 4._r8*rxt(k,127)*y(k,90) + rxt(k,139)*y(k,63) + rxt(k,144) & - *y(k,61) + rxt(k,149)*y(k,62) + (rxt(k,159) + rxt(k,160) & - ) * y(k,25) + rxt(k,166)*y(k,28) + rxt(k,192)*y(k,3) + rxt(k,198) & - *y(k,5) + rxt(k,238)*y(k,21)) + *y(k,61) + rxt(k,149)*y(k,62) + (rxt(k,162) + rxt(k,163) & + ) * y(k,25) + rxt(k,169)*y(k,28) + rxt(k,195)*y(k,3) + rxt(k,201) & + *y(k,5) + rxt(k,241)*y(k,21)) mat(k,442) = -(rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,90) mat(k,679) = -rxt(k,117)*y(k,90) mat(k,530) = -rxt(k,118)*y(k,90) @@ -742,103 +745,107 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) mat(k,580) = -rxt(k,139)*y(k,90) mat(k,746) = -rxt(k,144)*y(k,90) mat(k,637) = -rxt(k,149)*y(k,90) - mat(k,778) = -(rxt(k,159) + rxt(k,160)) * y(k,90) - mat(k,608) = -rxt(k,166)*y(k,90) - mat(k,800) = -rxt(k,192)*y(k,90) - mat(k,919) = -rxt(k,198)*y(k,90) - mat(k,415) = -rxt(k,238)*y(k,90) - mat(k,800) = mat(k,800) + rxt(k,191)*y(k,17) - mat(k,919) = mat(k,919) + rxt(k,203)*y(k,99) - mat(k,478) = rxt(k,191)*y(k,3) + rxt(k,155)*y(k,25) + rxt(k,235)*y(k,63) & - + rxt(k,236)*y(k,69) - mat(k,213) = rxt(k,220)*y(k,25) + rxt(k,221)*y(k,99) - mat(k,151) = rxt(k,223)*y(k,25) + rxt(k,224)*y(k,99) - mat(k,415) = mat(k,415) + rxt(k,162)*y(k,28) + rxt(k,239)*y(k,61) - mat(k,399) = rxt(k,243)*y(k,95) - mat(k,778) = mat(k,778) + rxt(k,155)*y(k,17) + rxt(k,220)*y(k,18) & - + rxt(k,223)*y(k,20) + rxt(k,158)*y(k,43) - mat(k,608) = mat(k,608) + rxt(k,162)*y(k,21) + rxt(k,173)*y(k,99) - mat(k,286) = rxt(k,245)*y(k,99) - mat(k,130) = .500_r8*rxt(k,261)*y(k,99) + mat(k,778) = -(rxt(k,162) + rxt(k,163)) * y(k,90) + mat(k,608) = -rxt(k,169)*y(k,90) + mat(k,800) = -rxt(k,195)*y(k,90) + mat(k,919) = -rxt(k,201)*y(k,90) + mat(k,415) = -rxt(k,241)*y(k,90) + mat(k,800) = mat(k,800) + rxt(k,194)*y(k,17) + mat(k,919) = mat(k,919) + rxt(k,206)*y(k,99) + mat(k,478) = rxt(k,194)*y(k,3) + rxt(k,158)*y(k,25) + rxt(k,238)*y(k,63) & + + rxt(k,239)*y(k,69) + mat(k,213) = rxt(k,223)*y(k,25) + rxt(k,224)*y(k,99) + mat(k,151) = rxt(k,226)*y(k,25) + rxt(k,227)*y(k,99) + mat(k,415) = mat(k,415) + rxt(k,165)*y(k,28) + rxt(k,242)*y(k,61) + mat(k,399) = rxt(k,246)*y(k,95) + mat(k,778) = mat(k,778) + rxt(k,158)*y(k,17) + rxt(k,223)*y(k,18) & + + rxt(k,226)*y(k,20) + rxt(k,161)*y(k,43) + mat(k,608) = mat(k,608) + rxt(k,165)*y(k,21) + rxt(k,176)*y(k,99) + mat(k,286) = rxt(k,248)*y(k,99) + mat(k,130) = .500_r8*rxt(k,264)*y(k,99) mat(k,442) = mat(k,442) + rxt(k,116)*y(k,70) - mat(k,230) = rxt(k,158)*y(k,25) + rxt(k,112)*y(k,69) + rxt(k,121)*y(k,99) - mat(k,746) = mat(k,746) + rxt(k,239)*y(k,21) - mat(k,580) = mat(k,580) + rxt(k,235)*y(k,17) + rxt(k,142)*y(k,99) - mat(k,679) = mat(k,679) + rxt(k,236)*y(k,17) + rxt(k,112)*y(k,43) + mat(k,230) = rxt(k,161)*y(k,25) + rxt(k,112)*y(k,69) + rxt(k,121)*y(k,99) + mat(k,746) = mat(k,746) + rxt(k,242)*y(k,21) + mat(k,580) = mat(k,580) + rxt(k,238)*y(k,17) + rxt(k,142)*y(k,99) + mat(k,679) = mat(k,679) + rxt(k,239)*y(k,17) + rxt(k,112)*y(k,43) mat(k,510) = rxt(k,116)*y(k,40) mat(k,530) = mat(k,530) + rxt(k,124)*y(k,99) - mat(k,302) = rxt(k,251)*y(k,99) - mat(k,721) = rxt(k,243)*y(k,23) - mat(k,849) = mat(k,849) + rxt(k,203)*y(k,5) + rxt(k,221)*y(k,18) + rxt(k,224) & - *y(k,20) + rxt(k,173)*y(k,28) + rxt(k,245)*y(k,31) & - + .500_r8*rxt(k,261)*y(k,35) + rxt(k,121)*y(k,43) + rxt(k,142) & - *y(k,63) + rxt(k,124)*y(k,71) + rxt(k,251)*y(k,80) - mat(k,334) = -(rxt(k,129)*y(k,69) + rxt(k,130)*y(k,70) + rxt(k,301)*y(k,100)) - mat(k,669) = -rxt(k,129)*y(k,91) - mat(k,502) = -rxt(k,130)*y(k,91) - mat(k,375) = -rxt(k,301)*y(k,91) - mat(k,669) = mat(k,669) + rxt(k,291)*y(k,92) - mat(k,324) = .900_r8*rxt(k,289)*y(k,92) + .800_r8*rxt(k,287)*y(k,93) - mat(k,222) = rxt(k,291)*y(k,69) + .900_r8*rxt(k,289)*y(k,89) - mat(k,244) = .800_r8*rxt(k,287)*y(k,89) - mat(k,219) = -(rxt(k,289)*y(k,89) + rxt(k,290)*y(k,70) + (rxt(k,291) & - + rxt(k,292)) * y(k,69)) - mat(k,320) = -rxt(k,289)*y(k,92) - mat(k,496) = -rxt(k,290)*y(k,92) - mat(k,657) = -(rxt(k,291) + rxt(k,292)) * y(k,92) - mat(k,242) = -(rxt(k,287)*y(k,89)) - mat(k,321) = -rxt(k,287)*y(k,93) - mat(k,343) = rxt(k,296)*y(k,98) - mat(k,735) = rxt(k,298)*y(k,98) - mat(k,660) = rxt(k,291)*y(k,92) - mat(k,498) = rxt(k,295)*y(k,94) - mat(k,220) = rxt(k,291)*y(k,69) - mat(k,272) = rxt(k,295)*y(k,70) - mat(k,357) = rxt(k,296)*y(k,55) + rxt(k,298)*y(k,61) - mat(k,273) = -(rxt(k,293)*y(k,69) + (rxt(k,294) + rxt(k,295)) * y(k,70)) - mat(k,664) = -rxt(k,293)*y(k,94) - mat(k,499) = -(rxt(k,294) + rxt(k,295)) * y(k,94) - mat(k,332) = rxt(k,301)*y(k,100) - mat(k,372) = rxt(k,301)*y(k,91) + mat(k,302) = rxt(k,254)*y(k,99) + mat(k,721) = rxt(k,246)*y(k,23) + mat(k,849) = mat(k,849) + rxt(k,206)*y(k,5) + rxt(k,224)*y(k,18) + rxt(k,227) & + *y(k,20) + rxt(k,176)*y(k,28) + rxt(k,248)*y(k,31) & + + .500_r8*rxt(k,264)*y(k,35) + rxt(k,121)*y(k,43) + rxt(k,142) & + *y(k,63) + rxt(k,124)*y(k,71) + rxt(k,254)*y(k,80) + mat(k,334) = -(rxt(k,130)*y(k,61) + rxt(k,131)*y(k,69) + rxt(k,154)*y(k,89) & + + rxt(k,155)*y(k,70) + rxt(k,304)*y(k,100)) + mat(k,737) = -rxt(k,130)*y(k,91) + mat(k,669) = -rxt(k,131)*y(k,91) + mat(k,324) = -rxt(k,154)*y(k,91) + mat(k,502) = -rxt(k,155)*y(k,91) + mat(k,375) = -rxt(k,304)*y(k,91) + mat(k,669) = mat(k,669) + rxt(k,294)*y(k,92) + mat(k,324) = mat(k,324) + .900_r8*rxt(k,292)*y(k,92) + .800_r8*rxt(k,290) & + *y(k,93) + mat(k,222) = rxt(k,294)*y(k,69) + .900_r8*rxt(k,292)*y(k,89) + mat(k,244) = .800_r8*rxt(k,290)*y(k,89) + mat(k,219) = -(rxt(k,292)*y(k,89) + rxt(k,293)*y(k,70) + (rxt(k,294) & + + rxt(k,295)) * y(k,69)) + mat(k,320) = -rxt(k,292)*y(k,92) + mat(k,496) = -rxt(k,293)*y(k,92) + mat(k,657) = -(rxt(k,294) + rxt(k,295)) * y(k,92) + mat(k,242) = -(rxt(k,290)*y(k,89)) + mat(k,321) = -rxt(k,290)*y(k,93) + mat(k,343) = rxt(k,299)*y(k,98) + mat(k,735) = rxt(k,301)*y(k,98) + mat(k,660) = rxt(k,294)*y(k,92) + mat(k,498) = rxt(k,298)*y(k,94) + mat(k,220) = rxt(k,294)*y(k,69) + mat(k,272) = rxt(k,298)*y(k,70) + mat(k,357) = rxt(k,299)*y(k,55) + rxt(k,301)*y(k,61) + mat(k,273) = -(rxt(k,296)*y(k,69) + (rxt(k,297) + rxt(k,298)) * y(k,70)) + mat(k,664) = -rxt(k,296)*y(k,94) + mat(k,499) = -(rxt(k,297) + rxt(k,298)) * y(k,94) + mat(k,332) = rxt(k,304)*y(k,100) + mat(k,372) = rxt(k,304)*y(k,91) mat(k,726) = -(rxt(k,94)*y(k,41) + rxt(k,95)*y(k,103) + (rxt(k,97) + rxt(k,98) & ) * y(k,70) + rxt(k,99)*y(k,71) + (rxt(k,147) + rxt(k,148) & - ) * y(k,56) + rxt(k,180)*y(k,8) + rxt(k,181)*y(k,9) + rxt(k,182) & - *y(k,11) + rxt(k,183)*y(k,12) + rxt(k,184)*y(k,13) + rxt(k,185) & - *y(k,14) + rxt(k,186)*y(k,15) + (rxt(k,187) + rxt(k,188) & - ) * y(k,49) + rxt(k,207)*y(k,10) + rxt(k,208)*y(k,24) + rxt(k,209) & - *y(k,42) + (rxt(k,210) + rxt(k,211)) * y(k,45) + rxt(k,216) & - *y(k,33) + rxt(k,217)*y(k,34) + rxt(k,230)*y(k,16) + rxt(k,231) & - *y(k,18) + rxt(k,232)*y(k,46) + rxt(k,233)*y(k,47) + rxt(k,234) & - *y(k,48) + (rxt(k,242) + rxt(k,243) + rxt(k,244)) * y(k,23)) + ) * y(k,56) + rxt(k,183)*y(k,8) + rxt(k,184)*y(k,9) + rxt(k,185) & + *y(k,11) + rxt(k,186)*y(k,12) + rxt(k,187)*y(k,13) + rxt(k,188) & + *y(k,14) + rxt(k,189)*y(k,15) + (rxt(k,190) + rxt(k,191) & + ) * y(k,49) + rxt(k,210)*y(k,10) + rxt(k,211)*y(k,24) + rxt(k,212) & + *y(k,42) + (rxt(k,213) + rxt(k,214)) * y(k,45) + rxt(k,219) & + *y(k,33) + rxt(k,220)*y(k,34) + rxt(k,233)*y(k,16) + rxt(k,234) & + *y(k,18) + rxt(k,235)*y(k,46) + rxt(k,236)*y(k,47) + rxt(k,237) & + *y(k,48) + (rxt(k,245) + rxt(k,246) + rxt(k,247)) * y(k,23)) mat(k,877) = -rxt(k,94)*y(k,95) mat(k,951) = -rxt(k,95)*y(k,95) mat(k,514) = -(rxt(k,97) + rxt(k,98)) * y(k,95) mat(k,535) = -rxt(k,99)*y(k,95) mat(k,105) = -(rxt(k,147) + rxt(k,148)) * y(k,95) - mat(k,30) = -rxt(k,180)*y(k,95) - mat(k,57) = -rxt(k,181)*y(k,95) - mat(k,38) = -rxt(k,182)*y(k,95) - mat(k,68) = -rxt(k,183)*y(k,95) - mat(k,42) = -rxt(k,184)*y(k,95) - mat(k,73) = -rxt(k,185)*y(k,95) - mat(k,46) = -rxt(k,186)*y(k,95) - mat(k,461) = -(rxt(k,187) + rxt(k,188)) * y(k,95) - mat(k,63) = -rxt(k,207)*y(k,95) - mat(k,163) = -rxt(k,208)*y(k,95) - mat(k,34) = -rxt(k,209)*y(k,95) - mat(k,259) = -(rxt(k,210) + rxt(k,211)) * y(k,95) - mat(k,84) = -rxt(k,216)*y(k,95) - mat(k,92) = -rxt(k,217)*y(k,95) - mat(k,176) = -rxt(k,230)*y(k,95) - mat(k,214) = -rxt(k,231)*y(k,95) - mat(k,87) = -rxt(k,232)*y(k,95) - mat(k,97) = -rxt(k,233)*y(k,95) - mat(k,115) = -rxt(k,234)*y(k,95) - mat(k,403) = -(rxt(k,242) + rxt(k,243) + rxt(k,244)) * y(k,95) - mat(k,514) = mat(k,514) + rxt(k,130)*y(k,91) - mat(k,330) = .850_r8*rxt(k,288)*y(k,98) - mat(k,340) = rxt(k,130)*y(k,70) - mat(k,367) = .850_r8*rxt(k,288)*y(k,89) + mat(k,30) = -rxt(k,183)*y(k,95) + mat(k,57) = -rxt(k,184)*y(k,95) + mat(k,38) = -rxt(k,185)*y(k,95) + mat(k,68) = -rxt(k,186)*y(k,95) + mat(k,42) = -rxt(k,187)*y(k,95) + mat(k,73) = -rxt(k,188)*y(k,95) + mat(k,46) = -rxt(k,189)*y(k,95) + mat(k,461) = -(rxt(k,190) + rxt(k,191)) * y(k,95) + mat(k,63) = -rxt(k,210)*y(k,95) + mat(k,163) = -rxt(k,211)*y(k,95) + mat(k,34) = -rxt(k,212)*y(k,95) + mat(k,259) = -(rxt(k,213) + rxt(k,214)) * y(k,95) + mat(k,84) = -rxt(k,219)*y(k,95) + mat(k,92) = -rxt(k,220)*y(k,95) + mat(k,176) = -rxt(k,233)*y(k,95) + mat(k,214) = -rxt(k,234)*y(k,95) + mat(k,87) = -rxt(k,235)*y(k,95) + mat(k,97) = -rxt(k,236)*y(k,95) + mat(k,115) = -rxt(k,237)*y(k,95) + mat(k,403) = -(rxt(k,245) + rxt(k,246) + rxt(k,247)) * y(k,95) + mat(k,514) = mat(k,514) + rxt(k,155)*y(k,91) + mat(k,330) = .850_r8*rxt(k,291)*y(k,98) + mat(k,340) = rxt(k,155)*y(k,70) + mat(k,367) = .850_r8*rxt(k,291)*y(k,89) mat(k,77) = -(rxt(k,101)*y(k,69) + rxt(k,102)*y(k,70)) mat(k,651) = -rxt(k,101)*y(k,96) mat(k,492) = -rxt(k,102)*y(k,96) @@ -856,88 +863,88 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) mat(k,523) = -rxt(k,107)*y(k,97) mat(k,493) = mat(k,493) + rxt(k,97)*y(k,95) mat(k,702) = rxt(k,97)*y(k,70) - mat(k,361) = -(rxt(k,288)*y(k,89) + rxt(k,296)*y(k,55) + rxt(k,298)*y(k,61)) - mat(k,326) = -rxt(k,288)*y(k,98) - mat(k,348) = -rxt(k,296)*y(k,98) - mat(k,739) = -rxt(k,298)*y(k,98) - mat(k,198) = rxt(k,299)*y(k,100) - mat(k,504) = rxt(k,290)*y(k,92) + rxt(k,294)*y(k,94) + rxt(k,302)*y(k,100) & - + rxt(k,306)*y(k,101) - mat(k,224) = rxt(k,290)*y(k,70) - mat(k,277) = rxt(k,294)*y(k,70) - mat(k,377) = rxt(k,299)*y(k,32) + rxt(k,302)*y(k,70) - mat(k,190) = rxt(k,306)*y(k,70) + mat(k,361) = -(rxt(k,291)*y(k,89) + rxt(k,299)*y(k,55) + rxt(k,301)*y(k,61)) + mat(k,326) = -rxt(k,291)*y(k,98) + mat(k,348) = -rxt(k,299)*y(k,98) + mat(k,739) = -rxt(k,301)*y(k,98) + mat(k,198) = rxt(k,302)*y(k,100) + mat(k,504) = rxt(k,293)*y(k,92) + rxt(k,297)*y(k,94) + rxt(k,305)*y(k,100) & + + rxt(k,309)*y(k,101) + mat(k,224) = rxt(k,293)*y(k,70) + mat(k,277) = rxt(k,297)*y(k,70) + mat(k,377) = rxt(k,302)*y(k,32) + rxt(k,305)*y(k,70) + mat(k,190) = rxt(k,309)*y(k,70) mat(k,858) = -(rxt(k,120)*y(k,41) + rxt(k,121)*y(k,43) + rxt(k,122)*y(k,90) & + rxt(k,123)*y(k,69) + rxt(k,124)*y(k,71) + (4._r8*rxt(k,125) & - + 4._r8*rxt(k,126)) * y(k,99) + rxt(k,128)*y(k,52) + rxt(k,142) & + + 4._r8*rxt(k,126)) * y(k,99) + rxt(k,129)*y(k,52) + rxt(k,142) & *y(k,63) + rxt(k,143)*y(k,55) + rxt(k,151)*y(k,62) + rxt(k,152) & - *y(k,51) + rxt(k,171)*y(k,29) + (rxt(k,173) + rxt(k,174) & - ) * y(k,28) + rxt(k,176)*y(k,49) + rxt(k,179)*y(k,54) + rxt(k,203) & - *y(k,5) + rxt(k,205)*y(k,45) + rxt(k,219)*y(k,16) + rxt(k,221) & - *y(k,18) + rxt(k,222)*y(k,19) + rxt(k,224)*y(k,20) + rxt(k,226) & - *y(k,24) + rxt(k,227)*y(k,46) + rxt(k,228)*y(k,47) + rxt(k,229) & - *y(k,48) + rxt(k,237)*y(k,17) + rxt(k,240)*y(k,22) + rxt(k,241) & - *y(k,23) + rxt(k,245)*y(k,31) + (rxt(k,247) + rxt(k,261) & - ) * y(k,35) + rxt(k,249)*y(k,74) + rxt(k,251)*y(k,80) + rxt(k,255) & - *y(k,77) + rxt(k,260)*y(k,79)) + *y(k,51) + rxt(k,174)*y(k,29) + (rxt(k,176) + rxt(k,177) & + ) * y(k,28) + rxt(k,179)*y(k,49) + rxt(k,182)*y(k,54) + rxt(k,206) & + *y(k,5) + rxt(k,208)*y(k,45) + rxt(k,222)*y(k,16) + rxt(k,224) & + *y(k,18) + rxt(k,225)*y(k,19) + rxt(k,227)*y(k,20) + rxt(k,229) & + *y(k,24) + rxt(k,230)*y(k,46) + rxt(k,231)*y(k,47) + rxt(k,232) & + *y(k,48) + rxt(k,240)*y(k,17) + rxt(k,243)*y(k,22) + rxt(k,244) & + *y(k,23) + rxt(k,248)*y(k,31) + (rxt(k,250) + rxt(k,264) & + ) * y(k,35) + rxt(k,252)*y(k,74) + rxt(k,254)*y(k,80) + rxt(k,258) & + *y(k,77) + rxt(k,263)*y(k,79)) mat(k,881) = -rxt(k,120)*y(k,99) mat(k,233) = -rxt(k,121)*y(k,99) mat(k,564) = -rxt(k,122)*y(k,99) mat(k,688) = -rxt(k,123)*y(k,99) mat(k,539) = -rxt(k,124)*y(k,99) - mat(k,172) = -rxt(k,128)*y(k,99) + mat(k,172) = -rxt(k,129)*y(k,99) mat(k,589) = -rxt(k,142)*y(k,99) mat(k,356) = -rxt(k,143)*y(k,99) mat(k,646) = -rxt(k,151)*y(k,99) mat(k,904) = -rxt(k,152)*y(k,99) - mat(k,315) = -rxt(k,171)*y(k,99) - mat(k,617) = -(rxt(k,173) + rxt(k,174)) * y(k,99) - mat(k,464) = -rxt(k,176)*y(k,99) - mat(k,270) = -rxt(k,179)*y(k,99) - mat(k,928) = -rxt(k,203)*y(k,99) - mat(k,261) = -rxt(k,205)*y(k,99) - mat(k,179) = -rxt(k,219)*y(k,99) - mat(k,217) = -rxt(k,221)*y(k,99) - mat(k,50) = -rxt(k,222)*y(k,99) - mat(k,153) = -rxt(k,224)*y(k,99) - mat(k,166) = -rxt(k,226)*y(k,99) - mat(k,89) = -rxt(k,227)*y(k,99) - mat(k,99) = -rxt(k,228)*y(k,99) - mat(k,117) = -rxt(k,229)*y(k,99) - mat(k,487) = -rxt(k,237)*y(k,99) - mat(k,159) = -rxt(k,240)*y(k,99) - mat(k,406) = -rxt(k,241)*y(k,99) - mat(k,288) = -rxt(k,245)*y(k,99) - mat(k,132) = -(rxt(k,247) + rxt(k,261)) * y(k,99) - mat(k,146) = -rxt(k,249)*y(k,99) - mat(k,304) = -rxt(k,251)*y(k,99) - mat(k,241) = -rxt(k,255)*y(k,99) - mat(k,436) = -rxt(k,260)*y(k,99) - mat(k,487) = mat(k,487) + rxt(k,236)*y(k,69) - mat(k,159) = mat(k,159) + .300_r8*rxt(k,240)*y(k,99) - mat(k,406) = mat(k,406) + rxt(k,242)*y(k,95) - mat(k,787) = rxt(k,160)*y(k,90) - mat(k,295) = rxt(k,214)*y(k,103) + mat(k,315) = -rxt(k,174)*y(k,99) + mat(k,617) = -(rxt(k,176) + rxt(k,177)) * y(k,99) + mat(k,464) = -rxt(k,179)*y(k,99) + mat(k,270) = -rxt(k,182)*y(k,99) + mat(k,928) = -rxt(k,206)*y(k,99) + mat(k,261) = -rxt(k,208)*y(k,99) + mat(k,179) = -rxt(k,222)*y(k,99) + mat(k,217) = -rxt(k,224)*y(k,99) + mat(k,50) = -rxt(k,225)*y(k,99) + mat(k,153) = -rxt(k,227)*y(k,99) + mat(k,166) = -rxt(k,229)*y(k,99) + mat(k,89) = -rxt(k,230)*y(k,99) + mat(k,99) = -rxt(k,231)*y(k,99) + mat(k,117) = -rxt(k,232)*y(k,99) + mat(k,487) = -rxt(k,240)*y(k,99) + mat(k,159) = -rxt(k,243)*y(k,99) + mat(k,406) = -rxt(k,244)*y(k,99) + mat(k,288) = -rxt(k,248)*y(k,99) + mat(k,132) = -(rxt(k,250) + rxt(k,264)) * y(k,99) + mat(k,146) = -rxt(k,252)*y(k,99) + mat(k,304) = -rxt(k,254)*y(k,99) + mat(k,241) = -rxt(k,258)*y(k,99) + mat(k,436) = -rxt(k,263)*y(k,99) + mat(k,487) = mat(k,487) + rxt(k,239)*y(k,69) + mat(k,159) = mat(k,159) + .300_r8*rxt(k,243)*y(k,99) + mat(k,406) = mat(k,406) + rxt(k,245)*y(k,95) + mat(k,787) = rxt(k,163)*y(k,90) + mat(k,295) = rxt(k,217)*y(k,103) mat(k,444) = rxt(k,119)*y(k,71) + 2.000_r8*rxt(k,114)*y(k,90) mat(k,881) = mat(k,881) + rxt(k,111)*y(k,69) + rxt(k,94)*y(k,95) mat(k,233) = mat(k,233) + rxt(k,112)*y(k,69) - mat(k,261) = mat(k,261) + rxt(k,204)*y(k,69) + rxt(k,210)*y(k,95) - mat(k,464) = mat(k,464) + rxt(k,175)*y(k,69) + rxt(k,187)*y(k,95) - mat(k,253) = rxt(k,206)*y(k,69) - mat(k,270) = mat(k,270) + rxt(k,178)*y(k,69) + mat(k,261) = mat(k,261) + rxt(k,207)*y(k,69) + rxt(k,213)*y(k,95) + mat(k,464) = mat(k,464) + rxt(k,178)*y(k,69) + rxt(k,190)*y(k,95) + mat(k,253) = rxt(k,209)*y(k,69) + mat(k,270) = mat(k,270) + rxt(k,181)*y(k,69) mat(k,755) = rxt(k,144)*y(k,90) mat(k,589) = mat(k,589) + rxt(k,139)*y(k,90) - mat(k,688) = mat(k,688) + rxt(k,236)*y(k,17) + rxt(k,111)*y(k,41) & - + rxt(k,112)*y(k,43) + rxt(k,204)*y(k,45) + rxt(k,175)*y(k,49) & - + rxt(k,206)*y(k,53) + rxt(k,178)*y(k,54) + rxt(k,117)*y(k,90) + mat(k,688) = mat(k,688) + rxt(k,239)*y(k,17) + rxt(k,111)*y(k,41) & + + rxt(k,112)*y(k,43) + rxt(k,207)*y(k,45) + rxt(k,178)*y(k,49) & + + rxt(k,209)*y(k,53) + rxt(k,181)*y(k,54) + rxt(k,117)*y(k,90) mat(k,539) = mat(k,539) + rxt(k,119)*y(k,40) + rxt(k,118)*y(k,90) - mat(k,564) = mat(k,564) + rxt(k,160)*y(k,25) + 2.000_r8*rxt(k,114)*y(k,40) & + mat(k,564) = mat(k,564) + rxt(k,163)*y(k,25) + 2.000_r8*rxt(k,114)*y(k,40) & + rxt(k,144)*y(k,61) + rxt(k,139)*y(k,63) + rxt(k,117)*y(k,69) & + rxt(k,118)*y(k,71) - mat(k,730) = rxt(k,242)*y(k,23) + rxt(k,94)*y(k,41) + rxt(k,210)*y(k,45) & - + rxt(k,187)*y(k,49) + 2.000_r8*rxt(k,95)*y(k,103) - mat(k,858) = mat(k,858) + .300_r8*rxt(k,240)*y(k,22) - mat(k,955) = rxt(k,214)*y(k,39) + 2.000_r8*rxt(k,95)*y(k,95) + mat(k,730) = rxt(k,245)*y(k,23) + rxt(k,94)*y(k,41) + rxt(k,213)*y(k,45) & + + rxt(k,190)*y(k,49) + 2.000_r8*rxt(k,95)*y(k,103) + mat(k,858) = mat(k,858) + .300_r8*rxt(k,243)*y(k,22) + mat(k,955) = rxt(k,217)*y(k,39) + 2.000_r8*rxt(k,95)*y(k,95) end do end subroutine nlnmat04 subroutine nlnmat05( avec_len, mat, y, rxt ) @@ -958,54 +965,54 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,378) = -(rxt(k,299)*y(k,32) + rxt(k,301)*y(k,91) + rxt(k,302)*y(k,70)) - mat(k,199) = -rxt(k,299)*y(k,100) - mat(k,337) = -rxt(k,301)*y(k,100) - mat(k,505) = -rxt(k,302)*y(k,100) - mat(k,672) = rxt(k,292)*y(k,92) + rxt(k,293)*y(k,94) + rxt(k,305)*y(k,101) & - + rxt(k,311)*y(k,102) - mat(k,327) = rxt(k,303)*y(k,101) + rxt(k,308)*y(k,102) - mat(k,225) = rxt(k,292)*y(k,69) - mat(k,278) = rxt(k,293)*y(k,69) - mat(k,191) = rxt(k,305)*y(k,69) + rxt(k,303)*y(k,89) - mat(k,185) = rxt(k,311)*y(k,69) + rxt(k,308)*y(k,89) - mat(k,188) = -(rxt(k,303)*y(k,89) + rxt(k,305)*y(k,69) + rxt(k,306)*y(k,70)) - mat(k,319) = -rxt(k,303)*y(k,101) - mat(k,655) = -rxt(k,305)*y(k,101) - mat(k,495) = -rxt(k,306)*y(k,101) - mat(k,319) = mat(k,319) + rxt(k,307)*y(k,102) - mat(k,182) = rxt(k,307)*y(k,89) - mat(k,181) = -((rxt(k,307) + rxt(k,308)) * y(k,89) + rxt(k,311)*y(k,69)) - mat(k,318) = -(rxt(k,307) + rxt(k,308)) * y(k,102) - mat(k,654) = -rxt(k,311)*y(k,102) - mat(k,959) = -(rxt(k,95)*y(k,95) + rxt(k,214)*y(k,39) + rxt(k,262)*y(k,81)) + mat(k,378) = -(rxt(k,302)*y(k,32) + rxt(k,304)*y(k,91) + rxt(k,305)*y(k,70)) + mat(k,199) = -rxt(k,302)*y(k,100) + mat(k,337) = -rxt(k,304)*y(k,100) + mat(k,505) = -rxt(k,305)*y(k,100) + mat(k,672) = rxt(k,295)*y(k,92) + rxt(k,296)*y(k,94) + rxt(k,308)*y(k,101) & + + rxt(k,314)*y(k,102) + mat(k,327) = rxt(k,306)*y(k,101) + rxt(k,311)*y(k,102) + mat(k,225) = rxt(k,295)*y(k,69) + mat(k,278) = rxt(k,296)*y(k,69) + mat(k,191) = rxt(k,308)*y(k,69) + rxt(k,306)*y(k,89) + mat(k,185) = rxt(k,314)*y(k,69) + rxt(k,311)*y(k,89) + mat(k,188) = -(rxt(k,306)*y(k,89) + rxt(k,308)*y(k,69) + rxt(k,309)*y(k,70)) + mat(k,319) = -rxt(k,306)*y(k,101) + mat(k,655) = -rxt(k,308)*y(k,101) + mat(k,495) = -rxt(k,309)*y(k,101) + mat(k,319) = mat(k,319) + rxt(k,310)*y(k,102) + mat(k,182) = rxt(k,310)*y(k,89) + mat(k,181) = -((rxt(k,310) + rxt(k,311)) * y(k,89) + rxt(k,314)*y(k,69)) + mat(k,318) = -(rxt(k,310) + rxt(k,311)) * y(k,102) + mat(k,654) = -rxt(k,314)*y(k,102) + mat(k,959) = -(rxt(k,95)*y(k,95) + rxt(k,217)*y(k,39) + rxt(k,265)*y(k,81)) mat(k,734) = -rxt(k,95)*y(k,103) - mat(k,298) = -rxt(k,214)*y(k,103) - mat(k,111) = -rxt(k,262)*y(k,103) - mat(k,180) = rxt(k,219)*y(k,99) - mat(k,491) = rxt(k,237)*y(k,99) - mat(k,218) = rxt(k,221)*y(k,99) - mat(k,51) = rxt(k,222)*y(k,99) - mat(k,154) = rxt(k,224)*y(k,99) - mat(k,160) = rxt(k,240)*y(k,99) - mat(k,409) = rxt(k,241)*y(k,99) + mat(k,298) = -rxt(k,217)*y(k,103) + mat(k,111) = -rxt(k,265)*y(k,103) + mat(k,180) = rxt(k,222)*y(k,99) + mat(k,491) = rxt(k,240)*y(k,99) + mat(k,218) = rxt(k,224)*y(k,99) + mat(k,51) = rxt(k,225)*y(k,99) + mat(k,154) = rxt(k,227)*y(k,99) + mat(k,160) = rxt(k,243)*y(k,99) + mat(k,409) = rxt(k,244)*y(k,99) mat(k,446) = rxt(k,115)*y(k,90) mat(k,885) = rxt(k,120)*y(k,99) mat(k,234) = rxt(k,121)*y(k,99) - mat(k,263) = rxt(k,205)*y(k,99) - mat(k,118) = rxt(k,229)*y(k,99) - mat(k,468) = (rxt(k,275)+rxt(k,280))*y(k,53) + (rxt(k,268)+rxt(k,274) & - +rxt(k,279))*y(k,54) + rxt(k,176)*y(k,99) + mat(k,263) = rxt(k,208)*y(k,99) + mat(k,118) = rxt(k,232)*y(k,99) + mat(k,468) = (rxt(k,278)+rxt(k,283))*y(k,53) + (rxt(k,271)+rxt(k,277) & + +rxt(k,282))*y(k,54) + rxt(k,179)*y(k,99) mat(k,908) = rxt(k,152)*y(k,99) - mat(k,173) = rxt(k,128)*y(k,99) - mat(k,255) = (rxt(k,275)+rxt(k,280))*y(k,49) - mat(k,271) = (rxt(k,268)+rxt(k,274)+rxt(k,279))*y(k,49) + rxt(k,179)*y(k,99) + mat(k,173) = rxt(k,129)*y(k,99) + mat(k,255) = (rxt(k,278)+rxt(k,283))*y(k,49) + mat(k,271) = (rxt(k,271)+rxt(k,277)+rxt(k,282))*y(k,49) + rxt(k,182)*y(k,99) mat(k,568) = rxt(k,115)*y(k,40) + rxt(k,122)*y(k,99) - mat(k,862) = rxt(k,219)*y(k,16) + rxt(k,237)*y(k,17) + rxt(k,221)*y(k,18) & - + rxt(k,222)*y(k,19) + rxt(k,224)*y(k,20) + rxt(k,240)*y(k,22) & - + rxt(k,241)*y(k,23) + rxt(k,120)*y(k,41) + rxt(k,121)*y(k,43) & - + rxt(k,205)*y(k,45) + rxt(k,229)*y(k,48) + rxt(k,176)*y(k,49) & - + rxt(k,152)*y(k,51) + rxt(k,128)*y(k,52) + rxt(k,179)*y(k,54) & + mat(k,862) = rxt(k,222)*y(k,16) + rxt(k,240)*y(k,17) + rxt(k,224)*y(k,18) & + + rxt(k,225)*y(k,19) + rxt(k,227)*y(k,20) + rxt(k,243)*y(k,22) & + + rxt(k,244)*y(k,23) + rxt(k,120)*y(k,41) + rxt(k,121)*y(k,43) & + + rxt(k,208)*y(k,45) + rxt(k,232)*y(k,48) + rxt(k,179)*y(k,49) & + + rxt(k,152)*y(k,51) + rxt(k,129)*y(k,52) + rxt(k,182)*y(k,54) & + rxt(k,122)*y(k,90) + 2.000_r8*rxt(k,125)*y(k,99) end do end subroutine nlnmat05 @@ -1204,6 +1211,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 316) = mat(k, 316) + lmat(k, 316) mat(k, 323) = mat(k, 323) + lmat(k, 323) mat(k, 334) = mat(k, 334) + lmat(k, 334) + mat(k, 335) = mat(k, 335) + lmat(k, 335) mat(k, 344) = lmat(k, 344) mat(k, 345) = lmat(k, 345) mat(k, 347) = mat(k, 347) + lmat(k, 347) @@ -1404,7 +1412,6 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 722) = 0._r8 mat(k, 724) = 0._r8 mat(k, 732) = 0._r8 - mat(k, 737) = 0._r8 mat(k, 740) = 0._r8 mat(k, 742) = 0._r8 mat(k, 751) = 0._r8 diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_prod_loss.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_prod_loss.F90 index 4b90d14e1f..62d7153dd9 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_prod_loss.F90 @@ -57,99 +57,99 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,1) = 0._r8 loss(k,2) = ( + het_rates(k,2))* y(k,2) prod(k,2) = 0._r8 - loss(k,97) = (rxt(k,191)* y(k,17) +rxt(k,193)* y(k,71) +rxt(k,192)* y(k,90) & + loss(k,97) = (rxt(k,194)* y(k,17) +rxt(k,196)* y(k,71) +rxt(k,195)* y(k,90) & + het_rates(k,3))* y(k,3) - prod(k,97) = (rxt(k,27) +2.000_r8*rxt(k,194)*y(k,5) +rxt(k,195)*y(k,28) + & - rxt(k,196)*y(k,28) +rxt(k,199)*y(k,61) +rxt(k,202)*y(k,69) + & - rxt(k,203)*y(k,99) +rxt(k,253)*y(k,79))*y(k,5) + (rxt(k,181)*y(k,9) + & - rxt(k,207)*y(k,10) +3.000_r8*rxt(k,208)*y(k,24) + & - 2.000_r8*rxt(k,209)*y(k,42) +rxt(k,210)*y(k,45) + & - 2.000_r8*rxt(k,230)*y(k,16) +rxt(k,231)*y(k,18))*y(k,95) & - + (rxt(k,205)*y(k,45) +2.000_r8*rxt(k,219)*y(k,16) + & - rxt(k,221)*y(k,18) +3.000_r8*rxt(k,226)*y(k,24))*y(k,99) & - + (2.000_r8*rxt(k,218)*y(k,16) +rxt(k,220)*y(k,18) + & - 3.000_r8*rxt(k,225)*y(k,24))*y(k,25) + (rxt(k,51) + & - rxt(k,204)*y(k,69))*y(k,45) +rxt(k,26)*y(k,4) +rxt(k,29)*y(k,6) & + prod(k,97) = (rxt(k,27) +2.000_r8*rxt(k,197)*y(k,5) +rxt(k,198)*y(k,28) + & + rxt(k,199)*y(k,28) +rxt(k,202)*y(k,61) +rxt(k,205)*y(k,69) + & + rxt(k,206)*y(k,99) +rxt(k,256)*y(k,79))*y(k,5) + (rxt(k,184)*y(k,9) + & + rxt(k,210)*y(k,10) +3.000_r8*rxt(k,211)*y(k,24) + & + 2.000_r8*rxt(k,212)*y(k,42) +rxt(k,213)*y(k,45) + & + 2.000_r8*rxt(k,233)*y(k,16) +rxt(k,234)*y(k,18))*y(k,95) & + + (rxt(k,208)*y(k,45) +2.000_r8*rxt(k,222)*y(k,16) + & + rxt(k,224)*y(k,18) +3.000_r8*rxt(k,229)*y(k,24))*y(k,99) & + + (2.000_r8*rxt(k,221)*y(k,16) +rxt(k,223)*y(k,18) + & + 3.000_r8*rxt(k,228)*y(k,24))*y(k,25) + (rxt(k,51) + & + rxt(k,207)*y(k,69))*y(k,45) +rxt(k,26)*y(k,4) +rxt(k,29)*y(k,6) & +rxt(k,31)*y(k,9) +rxt(k,32)*y(k,10) +2.000_r8*rxt(k,38)*y(k,16) & +rxt(k,39)*y(k,18) +3.000_r8*rxt(k,42)*y(k,24) +2.000_r8*rxt(k,50) & *y(k,42) +rxt(k,57)*y(k,53) loss(k,45) = ( + rxt(k,26) + het_rates(k,4))* y(k,4) - prod(k,45) = (rxt(k,275)*y(k,53) +rxt(k,280)*y(k,53))*y(k,49) & - +rxt(k,197)*y(k,28)*y(k,5) - loss(k,101) = (2._r8*rxt(k,194)* y(k,5) + (rxt(k,195) +rxt(k,196) + & - rxt(k,197))* y(k,28) +rxt(k,199)* y(k,61) +rxt(k,200)* y(k,62) & - +rxt(k,202)* y(k,69) +rxt(k,253)* y(k,79) +rxt(k,198)* y(k,90) & - +rxt(k,203)* y(k,99) + rxt(k,27) + het_rates(k,5))* y(k,5) - prod(k,101) = (rxt(k,28) +rxt(k,201)*y(k,69))*y(k,6) +rxt(k,193)*y(k,71) & - *y(k,3) +rxt(k,211)*y(k,95)*y(k,45) +rxt(k,206)*y(k,69)*y(k,53) - loss(k,62) = (rxt(k,201)* y(k,69) + rxt(k,28) + rxt(k,29) + rxt(k,269) & - + rxt(k,272) + rxt(k,277) + het_rates(k,6))* y(k,6) - prod(k,62) =rxt(k,200)*y(k,62)*y(k,5) + prod(k,45) = (rxt(k,278)*y(k,53) +rxt(k,283)*y(k,53))*y(k,49) & + +rxt(k,200)*y(k,28)*y(k,5) + loss(k,101) = (2._r8*rxt(k,197)* y(k,5) + (rxt(k,198) +rxt(k,199) + & + rxt(k,200))* y(k,28) +rxt(k,202)* y(k,61) +rxt(k,203)* y(k,62) & + +rxt(k,205)* y(k,69) +rxt(k,256)* y(k,79) +rxt(k,201)* y(k,90) & + +rxt(k,206)* y(k,99) + rxt(k,27) + het_rates(k,5))* y(k,5) + prod(k,101) = (rxt(k,28) +rxt(k,204)*y(k,69))*y(k,6) +rxt(k,196)*y(k,71) & + *y(k,3) +rxt(k,214)*y(k,95)*y(k,45) +rxt(k,209)*y(k,69)*y(k,53) + loss(k,62) = (rxt(k,204)* y(k,69) + rxt(k,28) + rxt(k,29) + rxt(k,272) & + + rxt(k,275) + rxt(k,280) + het_rates(k,6))* y(k,6) + prod(k,62) =rxt(k,203)*y(k,62)*y(k,5) loss(k,3) = ( + het_rates(k,7))* y(k,7) prod(k,3) = 0._r8 - loss(k,27) = (rxt(k,180)* y(k,95) + rxt(k,30) + het_rates(k,8))* y(k,8) + loss(k,27) = (rxt(k,183)* y(k,95) + rxt(k,30) + het_rates(k,8))* y(k,8) prod(k,27) = 0._r8 - loss(k,34) = (rxt(k,181)* y(k,95) + rxt(k,31) + het_rates(k,9))* y(k,9) + loss(k,34) = (rxt(k,184)* y(k,95) + rxt(k,31) + het_rates(k,9))* y(k,9) prod(k,34) = 0._r8 - loss(k,35) = (rxt(k,207)* y(k,95) + rxt(k,32) + het_rates(k,10))* y(k,10) + loss(k,35) = (rxt(k,210)* y(k,95) + rxt(k,32) + het_rates(k,10))* y(k,10) prod(k,35) = 0._r8 - loss(k,29) = (rxt(k,182)* y(k,95) + rxt(k,33) + het_rates(k,11))* y(k,11) + loss(k,29) = (rxt(k,185)* y(k,95) + rxt(k,33) + het_rates(k,11))* y(k,11) prod(k,29) = 0._r8 - loss(k,36) = (rxt(k,183)* y(k,95) + rxt(k,34) + het_rates(k,12))* y(k,12) + loss(k,36) = (rxt(k,186)* y(k,95) + rxt(k,34) + het_rates(k,12))* y(k,12) prod(k,36) = 0._r8 - loss(k,30) = (rxt(k,184)* y(k,95) + rxt(k,35) + het_rates(k,13))* y(k,13) + loss(k,30) = (rxt(k,187)* y(k,95) + rxt(k,35) + het_rates(k,13))* y(k,13) prod(k,30) = 0._r8 - loss(k,37) = (rxt(k,185)* y(k,95) + rxt(k,36) + het_rates(k,14))* y(k,14) + loss(k,37) = (rxt(k,188)* y(k,95) + rxt(k,36) + het_rates(k,14))* y(k,14) prod(k,37) = 0._r8 - loss(k,31) = (rxt(k,186)* y(k,95) + rxt(k,37) + het_rates(k,15))* y(k,15) + loss(k,31) = (rxt(k,189)* y(k,95) + rxt(k,37) + het_rates(k,15))* y(k,15) prod(k,31) = 0._r8 - loss(k,58) = (rxt(k,218)* y(k,25) +rxt(k,230)* y(k,95) +rxt(k,219)* y(k,99) & + loss(k,58) = (rxt(k,221)* y(k,25) +rxt(k,233)* y(k,95) +rxt(k,222)* y(k,99) & + rxt(k,38) + het_rates(k,16))* y(k,16) prod(k,58) = 0._r8 - loss(k,86) = (rxt(k,191)* y(k,3) +rxt(k,155)* y(k,25) +rxt(k,235)* y(k,63) & - +rxt(k,236)* y(k,69) +rxt(k,237)* y(k,99) + rxt(k,20) + rxt(k,21) & + loss(k,86) = (rxt(k,194)* y(k,3) +rxt(k,158)* y(k,25) +rxt(k,238)* y(k,63) & + +rxt(k,239)* y(k,69) +rxt(k,240)* y(k,99) + rxt(k,20) + rxt(k,21) & + het_rates(k,17))* y(k,17) - prod(k,86) = (.180_r8*rxt(k,24) +rxt(k,243)*y(k,95) +rxt(k,244)*y(k,95)) & - *y(k,23) + (rxt(k,162)*y(k,28) +rxt(k,239)*y(k,61))*y(k,21) & - + (rxt(k,22) +.300_r8*rxt(k,240)*y(k,99))*y(k,22) - loss(k,63) = (rxt(k,220)* y(k,25) +rxt(k,231)* y(k,95) +rxt(k,221)* y(k,99) & + prod(k,86) = (.180_r8*rxt(k,24) +rxt(k,246)*y(k,95) +rxt(k,247)*y(k,95)) & + *y(k,23) + (rxt(k,165)*y(k,28) +rxt(k,242)*y(k,61))*y(k,21) & + + (rxt(k,22) +.300_r8*rxt(k,243)*y(k,99))*y(k,22) + loss(k,63) = (rxt(k,223)* y(k,25) +rxt(k,234)* y(k,95) +rxt(k,224)* y(k,99) & + rxt(k,39) + het_rates(k,18))* y(k,18) prod(k,63) = 0._r8 - loss(k,32) = (rxt(k,222)* y(k,99) + rxt(k,40) + het_rates(k,19))* y(k,19) + loss(k,32) = (rxt(k,225)* y(k,99) + rxt(k,40) + het_rates(k,19))* y(k,19) prod(k,32) = 0._r8 - loss(k,54) = (rxt(k,223)* y(k,25) +rxt(k,224)* y(k,99) + rxt(k,41) & + loss(k,54) = (rxt(k,226)* y(k,25) +rxt(k,227)* y(k,99) + rxt(k,41) & + het_rates(k,20))* y(k,20) prod(k,54) = 0._r8 - loss(k,82) = (rxt(k,162)* y(k,28) +rxt(k,239)* y(k,61) +rxt(k,238)* y(k,90) & + loss(k,82) = (rxt(k,165)* y(k,28) +rxt(k,242)* y(k,61) +rxt(k,241)* y(k,90) & + het_rates(k,21))* y(k,21) - prod(k,82) = (rxt(k,23) +rxt(k,156)*y(k,25) +rxt(k,212)*y(k,39) + & - rxt(k,241)*y(k,99) +rxt(k,242)*y(k,95))*y(k,23) +rxt(k,39)*y(k,18) & - +rxt(k,41)*y(k,20) +.700_r8*rxt(k,240)*y(k,99)*y(k,22) - loss(k,55) = (rxt(k,240)* y(k,99) + rxt(k,22) + het_rates(k,22))* y(k,22) - prod(k,55) =rxt(k,238)*y(k,90)*y(k,21) - loss(k,81) = (rxt(k,156)* y(k,25) +rxt(k,212)* y(k,39) + (rxt(k,242) + & - rxt(k,243) +rxt(k,244))* y(k,95) +rxt(k,241)* y(k,99) + rxt(k,23) & + prod(k,82) = (rxt(k,23) +rxt(k,159)*y(k,25) +rxt(k,215)*y(k,39) + & + rxt(k,244)*y(k,99) +rxt(k,245)*y(k,95))*y(k,23) +rxt(k,39)*y(k,18) & + +rxt(k,41)*y(k,20) +.700_r8*rxt(k,243)*y(k,99)*y(k,22) + loss(k,55) = (rxt(k,243)* y(k,99) + rxt(k,22) + het_rates(k,22))* y(k,22) + prod(k,55) =rxt(k,241)*y(k,90)*y(k,21) + loss(k,81) = (rxt(k,159)* y(k,25) +rxt(k,215)* y(k,39) + (rxt(k,245) + & + rxt(k,246) +rxt(k,247))* y(k,95) +rxt(k,244)* y(k,99) + rxt(k,23) & + rxt(k,24) + het_rates(k,23))* y(k,23) prod(k,81) = 0._r8 - loss(k,56) = (rxt(k,225)* y(k,25) +rxt(k,208)* y(k,95) +rxt(k,226)* y(k,99) & + loss(k,56) = (rxt(k,228)* y(k,25) +rxt(k,211)* y(k,95) +rxt(k,229)* y(k,99) & + rxt(k,42) + het_rates(k,24))* y(k,24) prod(k,56) = 0._r8 - loss(k,96) = (rxt(k,218)* y(k,16) +rxt(k,155)* y(k,17) +rxt(k,220)* y(k,18) & - +rxt(k,223)* y(k,20) +rxt(k,156)* y(k,23) +rxt(k,225)* y(k,24) & - +rxt(k,168)* y(k,29) +rxt(k,157)* y(k,41) +rxt(k,158)* y(k,43) & - +rxt(k,177)* y(k,54) +rxt(k,161)* y(k,71) + (rxt(k,159) +rxt(k,160)) & + loss(k,96) = (rxt(k,221)* y(k,16) +rxt(k,158)* y(k,17) +rxt(k,223)* y(k,18) & + +rxt(k,226)* y(k,20) +rxt(k,159)* y(k,23) +rxt(k,228)* y(k,24) & + +rxt(k,171)* y(k,29) +rxt(k,160)* y(k,41) +rxt(k,161)* y(k,43) & + +rxt(k,180)* y(k,54) +rxt(k,164)* y(k,71) + (rxt(k,162) +rxt(k,163)) & * y(k,90) + het_rates(k,25))* y(k,25) - prod(k,96) = (4.000_r8*rxt(k,180)*y(k,8) +rxt(k,181)*y(k,9) + & - 2.000_r8*rxt(k,182)*y(k,11) +2.000_r8*rxt(k,183)*y(k,12) + & - 2.000_r8*rxt(k,184)*y(k,13) +rxt(k,185)*y(k,14) + & - 2.000_r8*rxt(k,186)*y(k,15) +rxt(k,187)*y(k,49) +rxt(k,217)*y(k,34) + & - rxt(k,232)*y(k,46) +rxt(k,233)*y(k,47) +rxt(k,234)*y(k,48))*y(k,95) & - + (rxt(k,45) +rxt(k,162)*y(k,21) +2.000_r8*rxt(k,163)*y(k,28) + & - rxt(k,165)*y(k,28) +rxt(k,167)*y(k,61) +rxt(k,172)*y(k,69) + & - rxt(k,173)*y(k,99) +rxt(k,196)*y(k,5) +rxt(k,254)*y(k,79))*y(k,28) & - + (rxt(k,176)*y(k,49) +3.000_r8*rxt(k,222)*y(k,19) + & - rxt(k,224)*y(k,20) +rxt(k,227)*y(k,46) +rxt(k,228)*y(k,47) + & - rxt(k,229)*y(k,48))*y(k,99) + (rxt(k,55) +rxt(k,175)*y(k,69))*y(k,49) & + prod(k,96) = (4.000_r8*rxt(k,183)*y(k,8) +rxt(k,184)*y(k,9) + & + 2.000_r8*rxt(k,185)*y(k,11) +2.000_r8*rxt(k,186)*y(k,12) + & + 2.000_r8*rxt(k,187)*y(k,13) +rxt(k,188)*y(k,14) + & + 2.000_r8*rxt(k,189)*y(k,15) +rxt(k,190)*y(k,49) +rxt(k,220)*y(k,34) + & + rxt(k,235)*y(k,46) +rxt(k,236)*y(k,47) +rxt(k,237)*y(k,48))*y(k,95) & + + (rxt(k,45) +rxt(k,165)*y(k,21) +2.000_r8*rxt(k,166)*y(k,28) + & + rxt(k,168)*y(k,28) +rxt(k,170)*y(k,61) +rxt(k,175)*y(k,69) + & + rxt(k,176)*y(k,99) +rxt(k,199)*y(k,5) +rxt(k,257)*y(k,79))*y(k,28) & + + (rxt(k,179)*y(k,49) +3.000_r8*rxt(k,225)*y(k,19) + & + rxt(k,227)*y(k,20) +rxt(k,230)*y(k,46) +rxt(k,231)*y(k,47) + & + rxt(k,232)*y(k,48))*y(k,99) + (rxt(k,55) +rxt(k,178)*y(k,69))*y(k,49) & +rxt(k,26)*y(k,4) +4.000_r8*rxt(k,30)*y(k,8) +rxt(k,31)*y(k,9) & +2.000_r8*rxt(k,33)*y(k,11) +2.000_r8*rxt(k,34)*y(k,12) & +2.000_r8*rxt(k,35)*y(k,13) +rxt(k,36)*y(k,14) +2.000_r8*rxt(k,37) & @@ -158,51 +158,51 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & *y(k,29) +rxt(k,49)*y(k,34) +rxt(k,52)*y(k,46) +rxt(k,53)*y(k,47) & +rxt(k,54)*y(k,48) +rxt(k,58)*y(k,54) loss(k,38) = ( + rxt(k,43) + het_rates(k,26))* y(k,26) - prod(k,38) = (rxt(k,268)*y(k,54) +rxt(k,273)*y(k,29) +rxt(k,274)*y(k,54) + & - rxt(k,278)*y(k,29) +rxt(k,279)*y(k,54) +rxt(k,283)*y(k,29))*y(k,49) & - +rxt(k,168)*y(k,29)*y(k,25) +rxt(k,164)*y(k,28)*y(k,28) - loss(k,26) = ( + rxt(k,44) + rxt(k,190) + het_rates(k,27))* y(k,27) - prod(k,26) =rxt(k,189)*y(k,28)*y(k,28) - loss(k,91) = ((rxt(k,195) +rxt(k,196) +rxt(k,197))* y(k,5) +rxt(k,162) & - * y(k,21) + 2._r8*(rxt(k,163) +rxt(k,164) +rxt(k,165) +rxt(k,189)) & - * y(k,28) +rxt(k,167)* y(k,61) +rxt(k,169)* y(k,62) +rxt(k,172) & - * y(k,69) +rxt(k,254)* y(k,79) +rxt(k,166)* y(k,90) + (rxt(k,173) + & - rxt(k,174))* y(k,99) + rxt(k,45) + het_rates(k,28))* y(k,28) - prod(k,91) = (rxt(k,160)*y(k,90) +rxt(k,161)*y(k,71) +rxt(k,177)*y(k,54)) & - *y(k,25) + (rxt(k,47) +rxt(k,170)*y(k,69))*y(k,29) & - + (rxt(k,178)*y(k,69) +rxt(k,179)*y(k,99))*y(k,54) + (rxt(k,59) + & - rxt(k,259)*y(k,79))*y(k,73) +2.000_r8*rxt(k,190)*y(k,27) & - +rxt(k,188)*y(k,95)*y(k,49) - loss(k,75) = (rxt(k,168)* y(k,25) + (rxt(k,273) +rxt(k,278) +rxt(k,283)) & - * y(k,49) +rxt(k,170)* y(k,69) +rxt(k,171)* y(k,99) + rxt(k,46) & - + rxt(k,47) + rxt(k,271) + rxt(k,276) + rxt(k,282) & + prod(k,38) = (rxt(k,271)*y(k,54) +rxt(k,276)*y(k,29) +rxt(k,277)*y(k,54) + & + rxt(k,281)*y(k,29) +rxt(k,282)*y(k,54) +rxt(k,286)*y(k,29))*y(k,49) & + +rxt(k,171)*y(k,29)*y(k,25) +rxt(k,167)*y(k,28)*y(k,28) + loss(k,26) = ( + rxt(k,44) + rxt(k,193) + het_rates(k,27))* y(k,27) + prod(k,26) =rxt(k,192)*y(k,28)*y(k,28) + loss(k,91) = ((rxt(k,198) +rxt(k,199) +rxt(k,200))* y(k,5) +rxt(k,165) & + * y(k,21) + 2._r8*(rxt(k,166) +rxt(k,167) +rxt(k,168) +rxt(k,192)) & + * y(k,28) +rxt(k,170)* y(k,61) +rxt(k,172)* y(k,62) +rxt(k,175) & + * y(k,69) +rxt(k,257)* y(k,79) +rxt(k,169)* y(k,90) + (rxt(k,176) + & + rxt(k,177))* y(k,99) + rxt(k,45) + het_rates(k,28))* y(k,28) + prod(k,91) = (rxt(k,163)*y(k,90) +rxt(k,164)*y(k,71) +rxt(k,180)*y(k,54)) & + *y(k,25) + (rxt(k,47) +rxt(k,173)*y(k,69))*y(k,29) & + + (rxt(k,181)*y(k,69) +rxt(k,182)*y(k,99))*y(k,54) + (rxt(k,59) + & + rxt(k,262)*y(k,79))*y(k,73) +2.000_r8*rxt(k,193)*y(k,27) & + +rxt(k,191)*y(k,95)*y(k,49) + loss(k,75) = (rxt(k,171)* y(k,25) + (rxt(k,276) +rxt(k,281) +rxt(k,286)) & + * y(k,49) +rxt(k,173)* y(k,69) +rxt(k,174)* y(k,99) + rxt(k,46) & + + rxt(k,47) + rxt(k,274) + rxt(k,279) + rxt(k,285) & + het_rates(k,29))* y(k,29) - prod(k,75) =rxt(k,169)*y(k,62)*y(k,28) + prod(k,75) =rxt(k,172)*y(k,62)*y(k,28) loss(k,4) = ( + het_rates(k,30))* y(k,30) prod(k,4) = 0._r8 - loss(k,72) = (rxt(k,245)* y(k,99) + het_rates(k,31))* y(k,31) - prod(k,72) = (rxt(k,20) +rxt(k,21) +rxt(k,155)*y(k,25) +rxt(k,191)*y(k,3) + & - rxt(k,235)*y(k,63) +rxt(k,236)*y(k,69) +rxt(k,237)*y(k,99))*y(k,17) & - + (rxt(k,25) +rxt(k,61) +rxt(k,299)*y(k,100))*y(k,32) + (rxt(k,88) + & - rxt(k,248)*y(k,69) +rxt(k,249)*y(k,99))*y(k,74) +rxt(k,223)*y(k,25) & + loss(k,72) = (rxt(k,248)* y(k,99) + het_rates(k,31))* y(k,31) + prod(k,72) = (rxt(k,20) +rxt(k,21) +rxt(k,158)*y(k,25) +rxt(k,194)*y(k,3) + & + rxt(k,238)*y(k,63) +rxt(k,239)*y(k,69) +rxt(k,240)*y(k,99))*y(k,17) & + + (rxt(k,25) +rxt(k,61) +rxt(k,302)*y(k,100))*y(k,32) + (rxt(k,88) + & + rxt(k,251)*y(k,69) +rxt(k,252)*y(k,99))*y(k,74) +rxt(k,226)*y(k,25) & *y(k,20) +.380_r8*rxt(k,24)*y(k,23) - loss(k,61) = (rxt(k,299)* y(k,100) + rxt(k,25) + rxt(k,61) + het_rates(k,32)) & + loss(k,61) = (rxt(k,302)* y(k,100) + rxt(k,25) + rxt(k,61) + het_rates(k,32)) & * y(k,32) - prod(k,61) =.440_r8*rxt(k,24)*y(k,23) +rxt(k,245)*y(k,99)*y(k,31) - loss(k,41) = (rxt(k,216)* y(k,95) + rxt(k,48) + het_rates(k,33))* y(k,33) - prod(k,41) = (rxt(k,181)*y(k,9) +rxt(k,183)*y(k,12) + & - 2.000_r8*rxt(k,184)*y(k,13) +2.000_r8*rxt(k,185)*y(k,14) + & - rxt(k,186)*y(k,15) +rxt(k,207)*y(k,10) +2.000_r8*rxt(k,209)*y(k,42) + & - rxt(k,233)*y(k,47) +rxt(k,234)*y(k,48))*y(k,95) + (rxt(k,53) + & - rxt(k,228)*y(k,99))*y(k,47) + (rxt(k,54) +rxt(k,229)*y(k,99))*y(k,48) & + prod(k,61) =.440_r8*rxt(k,24)*y(k,23) +rxt(k,248)*y(k,99)*y(k,31) + loss(k,41) = (rxt(k,219)* y(k,95) + rxt(k,48) + het_rates(k,33))* y(k,33) + prod(k,41) = (rxt(k,184)*y(k,9) +rxt(k,186)*y(k,12) + & + 2.000_r8*rxt(k,187)*y(k,13) +2.000_r8*rxt(k,188)*y(k,14) + & + rxt(k,189)*y(k,15) +rxt(k,210)*y(k,10) +2.000_r8*rxt(k,212)*y(k,42) + & + rxt(k,236)*y(k,47) +rxt(k,237)*y(k,48))*y(k,95) + (rxt(k,53) + & + rxt(k,231)*y(k,99))*y(k,47) + (rxt(k,54) +rxt(k,232)*y(k,99))*y(k,48) & +rxt(k,31)*y(k,9) +rxt(k,32)*y(k,10) +rxt(k,34)*y(k,12) & +2.000_r8*rxt(k,35)*y(k,13) +2.000_r8*rxt(k,36)*y(k,14) +rxt(k,37) & *y(k,15) +2.000_r8*rxt(k,50)*y(k,42) - loss(k,43) = (rxt(k,217)* y(k,95) + rxt(k,49) + het_rates(k,34))* y(k,34) - prod(k,43) = (rxt(k,52) +rxt(k,227)*y(k,99) +rxt(k,232)*y(k,95))*y(k,46) & - + (rxt(k,33) +rxt(k,182)*y(k,95))*y(k,11) + (rxt(k,34) + & - rxt(k,183)*y(k,95))*y(k,12) - loss(k,51) = (rxt(k,246)* y(k,63) + (rxt(k,247) +rxt(k,261))* y(k,99) & + loss(k,43) = (rxt(k,220)* y(k,95) + rxt(k,49) + het_rates(k,34))* y(k,34) + prod(k,43) = (rxt(k,52) +rxt(k,230)*y(k,99) +rxt(k,235)*y(k,95))*y(k,46) & + + (rxt(k,33) +rxt(k,185)*y(k,95))*y(k,11) + (rxt(k,34) + & + rxt(k,186)*y(k,95))*y(k,12) + loss(k,51) = (rxt(k,249)* y(k,63) + (rxt(k,250) +rxt(k,264))* y(k,99) & + het_rates(k,35))* y(k,35) prod(k,51) = 0._r8 loss(k,5) = ( + het_rates(k,36))* y(k,36) @@ -211,88 +211,89 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,6) = 0._r8 loss(k,7) = ( + het_rates(k,38))* y(k,38) prod(k,7) = 0._r8 - loss(k,73) = (rxt(k,212)* y(k,23) +rxt(k,213)* y(k,41) +rxt(k,215)* y(k,51) & - +rxt(k,214)* y(k,103) + het_rates(k,39))* y(k,39) - prod(k,73) = (rxt(k,185)*y(k,14) +rxt(k,207)*y(k,10) + & - 2.000_r8*rxt(k,216)*y(k,33) +rxt(k,217)*y(k,34))*y(k,95) +rxt(k,32) & + loss(k,73) = (rxt(k,215)* y(k,23) +rxt(k,216)* y(k,41) +rxt(k,218)* y(k,51) & + +rxt(k,217)* y(k,103) + het_rates(k,39))* y(k,39) + prod(k,73) = (rxt(k,188)*y(k,14) +rxt(k,210)*y(k,10) + & + 2.000_r8*rxt(k,219)*y(k,33) +rxt(k,220)*y(k,34))*y(k,95) +rxt(k,32) & *y(k,10) +rxt(k,36)*y(k,14) +2.000_r8*rxt(k,48)*y(k,33) +rxt(k,49) & *y(k,34) +rxt(k,56)*y(k,50) loss(k,84) = (rxt(k,116)* y(k,70) +rxt(k,119)* y(k,71) + (rxt(k,113) + & rxt(k,114) +rxt(k,115))* y(k,90) + het_rates(k,40))* y(k,40) prod(k,84) = (rxt(k,120)*y(k,41) +rxt(k,123)*y(k,69) +rxt(k,143)*y(k,55) + & - rxt(k,237)*y(k,17) +rxt(k,249)*y(k,74) +rxt(k,255)*y(k,77) + & - rxt(k,260)*y(k,79))*y(k,99) + (rxt(k,94)*y(k,95) + & - rxt(k,111)*y(k,69) +rxt(k,157)*y(k,25) +rxt(k,213)*y(k,39))*y(k,41) & - + (rxt(k,23) +.330_r8*rxt(k,24) +rxt(k,243)*y(k,95))*y(k,23) & - + (rxt(k,51) +rxt(k,211)*y(k,95))*y(k,45) + (rxt(k,55) + & - rxt(k,188)*y(k,95))*y(k,49) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,103) & + rxt(k,240)*y(k,17) +rxt(k,252)*y(k,74) +rxt(k,258)*y(k,77) + & + rxt(k,263)*y(k,79))*y(k,99) + (rxt(k,94)*y(k,95) + & + rxt(k,111)*y(k,69) +rxt(k,160)*y(k,25) +rxt(k,216)*y(k,39))*y(k,41) & + + (rxt(k,23) +.330_r8*rxt(k,24) +rxt(k,246)*y(k,95))*y(k,23) & + + (rxt(k,51) +rxt(k,214)*y(k,95))*y(k,45) + (rxt(k,55) + & + rxt(k,191)*y(k,95))*y(k,49) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,103) & +2.000_r8*rxt(k,20)*y(k,17) +rxt(k,22)*y(k,22) +rxt(k,56)*y(k,50) - loss(k,99) = (rxt(k,157)* y(k,25) +rxt(k,213)* y(k,39) +rxt(k,111)* y(k,69) & + loss(k,99) = (rxt(k,160)* y(k,25) +rxt(k,216)* y(k,39) +rxt(k,111)* y(k,69) & +rxt(k,94)* y(k,95) +rxt(k,120)* y(k,99) + het_rates(k,41))* y(k,41) - prod(k,99) = (1.440_r8*rxt(k,24) +rxt(k,244)*y(k,95))*y(k,23) +rxt(k,21) & + prod(k,99) = (1.440_r8*rxt(k,24) +rxt(k,247)*y(k,95))*y(k,23) +rxt(k,21) & *y(k,17) +rxt(k,113)*y(k,90)*y(k,40) +rxt(k,1)*y(k,103) - loss(k,28) = (rxt(k,209)* y(k,95) + rxt(k,50) + het_rates(k,42))* y(k,42) + loss(k,28) = (rxt(k,212)* y(k,95) + rxt(k,50) + het_rates(k,42))* y(k,42) prod(k,28) = 0._r8 - loss(k,65) = (rxt(k,158)* y(k,25) +rxt(k,112)* y(k,69) +rxt(k,121)* y(k,99) & + loss(k,65) = (rxt(k,161)* y(k,25) +rxt(k,112)* y(k,69) +rxt(k,121)* y(k,99) & + rxt(k,4) + het_rates(k,43))* y(k,43) - prod(k,65) = (.500_r8*rxt(k,263) +rxt(k,127)*y(k,90))*y(k,90) & + prod(k,65) = (.500_r8*rxt(k,266) +rxt(k,127)*y(k,90))*y(k,90) & +rxt(k,126)*y(k,99)*y(k,99) loss(k,33) = ( + rxt(k,87) + het_rates(k,44))* y(k,44) - prod(k,33) =rxt(k,262)*y(k,103)*y(k,81) - loss(k,69) = (rxt(k,204)* y(k,69) + (rxt(k,210) +rxt(k,211))* y(k,95) & - +rxt(k,205)* y(k,99) + rxt(k,51) + het_rates(k,45))* y(k,45) - prod(k,69) = (rxt(k,191)*y(k,17) +rxt(k,192)*y(k,90))*y(k,3) - loss(k,42) = (rxt(k,232)* y(k,95) +rxt(k,227)* y(k,99) + rxt(k,52) & + prod(k,33) =rxt(k,265)*y(k,103)*y(k,81) + loss(k,69) = (rxt(k,207)* y(k,69) + (rxt(k,213) +rxt(k,214))* y(k,95) & + +rxt(k,208)* y(k,99) + rxt(k,51) + het_rates(k,45))* y(k,45) + prod(k,69) = (rxt(k,194)*y(k,17) +rxt(k,195)*y(k,90))*y(k,3) + loss(k,42) = (rxt(k,235)* y(k,95) +rxt(k,230)* y(k,99) + rxt(k,52) & + het_rates(k,46))* y(k,46) prod(k,42) = 0._r8 - loss(k,44) = (rxt(k,233)* y(k,95) +rxt(k,228)* y(k,99) + rxt(k,53) & + loss(k,44) = (rxt(k,236)* y(k,95) +rxt(k,231)* y(k,99) + rxt(k,53) & + het_rates(k,47))* y(k,47) prod(k,44) = 0._r8 - loss(k,48) = (rxt(k,234)* y(k,95) +rxt(k,229)* y(k,99) + rxt(k,54) & + loss(k,48) = (rxt(k,237)* y(k,95) +rxt(k,232)* y(k,99) + rxt(k,54) & + het_rates(k,48))* y(k,48) prod(k,48) = 0._r8 - loss(k,85) = ((rxt(k,273) +rxt(k,278) +rxt(k,283))* y(k,29) + (rxt(k,275) + & - rxt(k,280))* y(k,53) + (rxt(k,268) +rxt(k,274) +rxt(k,279))* y(k,54) & - +rxt(k,175)* y(k,69) + (rxt(k,187) +rxt(k,188))* y(k,95) +rxt(k,176) & + loss(k,85) = ((rxt(k,276) +rxt(k,281) +rxt(k,286))* y(k,29) + (rxt(k,278) + & + rxt(k,283))* y(k,53) + (rxt(k,271) +rxt(k,277) +rxt(k,282))* y(k,54) & + +rxt(k,178)* y(k,69) + (rxt(k,190) +rxt(k,191))* y(k,95) +rxt(k,179) & * y(k,99) + rxt(k,55) + het_rates(k,49))* y(k,49) - prod(k,85) = (rxt(k,155)*y(k,17) +rxt(k,156)*y(k,23) +rxt(k,157)*y(k,41) + & - rxt(k,158)*y(k,43) +rxt(k,159)*y(k,90) +rxt(k,177)*y(k,54) + & - rxt(k,218)*y(k,16) +rxt(k,220)*y(k,18) +2.000_r8*rxt(k,223)*y(k,20) + & - rxt(k,225)*y(k,24))*y(k,25) +rxt(k,174)*y(k,99)*y(k,28) + prod(k,85) = (rxt(k,158)*y(k,17) +rxt(k,159)*y(k,23) +rxt(k,160)*y(k,41) + & + rxt(k,161)*y(k,43) +rxt(k,162)*y(k,90) +rxt(k,180)*y(k,54) + & + rxt(k,221)*y(k,16) +rxt(k,223)*y(k,18) +2.000_r8*rxt(k,226)*y(k,20) + & + rxt(k,228)*y(k,24))*y(k,25) +rxt(k,177)*y(k,99)*y(k,28) loss(k,49) = ( + rxt(k,56) + het_rates(k,50))* y(k,50) - prod(k,49) = (rxt(k,212)*y(k,23) +rxt(k,213)*y(k,41) +rxt(k,214)*y(k,103) + & - rxt(k,215)*y(k,51))*y(k,39) - loss(k,100) = (rxt(k,215)* y(k,39) +rxt(k,152)* y(k,99) + rxt(k,9) & + prod(k,49) = (rxt(k,215)*y(k,23) +rxt(k,216)*y(k,41) +rxt(k,217)*y(k,103) + & + rxt(k,218)*y(k,51))*y(k,39) + loss(k,100) = (rxt(k,218)* y(k,39) +rxt(k,152)* y(k,99) + rxt(k,9) & + het_rates(k,51))* y(k,51) - prod(k,100) = (rxt(k,271) +rxt(k,276) +rxt(k,282) +rxt(k,273)*y(k,49) + & - rxt(k,278)*y(k,49) +rxt(k,283)*y(k,49))*y(k,29) & - + (2.000_r8*rxt(k,264) +2.000_r8*rxt(k,267) +2.000_r8*rxt(k,270) + & - 2.000_r8*rxt(k,281))*y(k,57) + (rxt(k,269) +rxt(k,272) +rxt(k,277)) & - *y(k,6) + (rxt(k,266) +rxt(k,235)*y(k,17) +rxt(k,246)*y(k,35)) & - *y(k,63) + (.500_r8*rxt(k,265) +rxt(k,151)*y(k,99))*y(k,62) - loss(k,57) = (rxt(k,128)* y(k,99) + rxt(k,10) + rxt(k,11) + rxt(k,153) & + prod(k,100) = (rxt(k,274) +rxt(k,279) +rxt(k,285) +rxt(k,276)*y(k,49) + & + rxt(k,281)*y(k,49) +rxt(k,286)*y(k,49))*y(k,29) & + + (2.000_r8*rxt(k,267) +2.000_r8*rxt(k,270) +2.000_r8*rxt(k,273) + & + 2.000_r8*rxt(k,284))*y(k,57) + (rxt(k,272) +rxt(k,275) +rxt(k,280)) & + *y(k,6) + (rxt(k,269) +rxt(k,238)*y(k,17) +rxt(k,249)*y(k,35)) & + *y(k,63) + (.500_r8*rxt(k,268) +rxt(k,151)*y(k,99))*y(k,62) + loss(k,57) = (rxt(k,129)* y(k,99) + rxt(k,10) + rxt(k,11) + rxt(k,153) & + het_rates(k,52))* y(k,52) prod(k,57) =rxt(k,149)*y(k,90)*y(k,62) - loss(k,68) = ((rxt(k,275) +rxt(k,280))* y(k,49) +rxt(k,206)* y(k,69) & + loss(k,68) = ((rxt(k,278) +rxt(k,283))* y(k,49) +rxt(k,209)* y(k,69) & + rxt(k,57) + het_rates(k,53))* y(k,53) - prod(k,68) = (rxt(k,269) +rxt(k,272) +rxt(k,277))*y(k,6) +rxt(k,198)*y(k,90) & + prod(k,68) = (rxt(k,272) +rxt(k,275) +rxt(k,280))*y(k,6) +rxt(k,201)*y(k,90) & *y(k,5) - loss(k,70) = (rxt(k,177)* y(k,25) + (rxt(k,268) +rxt(k,274) +rxt(k,279)) & - * y(k,49) +rxt(k,178)* y(k,69) +rxt(k,179)* y(k,99) + rxt(k,58) & + loss(k,70) = (rxt(k,180)* y(k,25) + (rxt(k,271) +rxt(k,277) +rxt(k,282)) & + * y(k,49) +rxt(k,181)* y(k,69) +rxt(k,182)* y(k,99) + rxt(k,58) & + het_rates(k,54))* y(k,54) - prod(k,70) = (rxt(k,271) +rxt(k,276) +rxt(k,282) +rxt(k,171)*y(k,99))*y(k,29) & - +rxt(k,166)*y(k,90)*y(k,28) - loss(k,78) = (rxt(k,131)* y(k,61) + (rxt(k,132) +rxt(k,133) +rxt(k,134)) & - * y(k,62) +rxt(k,135)* y(k,70) +rxt(k,296)* y(k,98) +rxt(k,143) & + prod(k,70) = (rxt(k,274) +rxt(k,279) +rxt(k,285) +rxt(k,174)*y(k,99))*y(k,29) & + +rxt(k,169)*y(k,90)*y(k,28) + loss(k,78) = (rxt(k,132)* y(k,61) + (rxt(k,133) +rxt(k,134) +rxt(k,135)) & + * y(k,62) +rxt(k,157)* y(k,70) +rxt(k,299)* y(k,98) +rxt(k,143) & * y(k,99) + rxt(k,62) + het_rates(k,55))* y(k,55) - prod(k,78) = (rxt(k,129)*y(k,91) +rxt(k,293)*y(k,94))*y(k,69) & - + (.200_r8*rxt(k,287)*y(k,93) +1.100_r8*rxt(k,289)*y(k,92))*y(k,89) & - +rxt(k,15)*y(k,61) +rxt(k,294)*y(k,94)*y(k,70) +rxt(k,300)*y(k,100) + prod(k,78) = (rxt(k,154)*y(k,91) +.200_r8*rxt(k,290)*y(k,93) + & + 1.100_r8*rxt(k,292)*y(k,92))*y(k,89) + (rxt(k,131)*y(k,91) + & + rxt(k,296)*y(k,94))*y(k,69) +rxt(k,15)*y(k,61) +rxt(k,297)*y(k,94) & + *y(k,70) +rxt(k,128)*y(k,91) +rxt(k,303)*y(k,100) loss(k,46) = ((rxt(k,147) +rxt(k,148))* y(k,95) + rxt(k,12) & + het_rates(k,56))* y(k,56) - prod(k,46) =rxt(k,132)*y(k,62)*y(k,55) - loss(k,50) = ( + rxt(k,13) + rxt(k,14) + rxt(k,154) + rxt(k,264) + rxt(k,267) & - + rxt(k,270) + rxt(k,281) + het_rates(k,57))* y(k,57) + prod(k,46) =rxt(k,133)*y(k,62)*y(k,55) + loss(k,50) = ( + rxt(k,13) + rxt(k,14) + rxt(k,156) + rxt(k,267) + rxt(k,270) & + + rxt(k,273) + rxt(k,284) + het_rates(k,57))* y(k,57) prod(k,50) =rxt(k,150)*y(k,63)*y(k,62) loss(k,8) = ( + het_rates(k,58))* y(k,58) prod(k,8) = 0._r8 @@ -300,36 +301,37 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,9) = 0._r8 loss(k,10) = ( + het_rates(k,60))* y(k,60) prod(k,10) = 0._r8 - loss(k,95) = (rxt(k,199)* y(k,5) +rxt(k,239)* y(k,21) +rxt(k,167)* y(k,28) & - +rxt(k,131)* y(k,55) +rxt(k,140)* y(k,63) +rxt(k,146)* y(k,69) & - +rxt(k,145)* y(k,71) +rxt(k,144)* y(k,90) +rxt(k,298)* y(k,98) & - + rxt(k,15) + rxt(k,16) + het_rates(k,61))* y(k,61) - prod(k,95) = (rxt(k,17) +.500_r8*rxt(k,265) +2.000_r8*rxt(k,133)*y(k,55) + & - rxt(k,136)*y(k,69) +rxt(k,256)*y(k,79))*y(k,62) & - + (rxt(k,135)*y(k,70) +rxt(k,143)*y(k,99))*y(k,55) & + loss(k,95) = (rxt(k,202)* y(k,5) +rxt(k,242)* y(k,21) +rxt(k,170)* y(k,28) & + +rxt(k,132)* y(k,55) +rxt(k,140)* y(k,63) +rxt(k,146)* y(k,69) & + +rxt(k,145)* y(k,71) +rxt(k,144)* y(k,90) +rxt(k,130)* y(k,91) & + +rxt(k,301)* y(k,98) + rxt(k,15) + rxt(k,16) + het_rates(k,61)) & + * y(k,61) + prod(k,95) = (rxt(k,17) +.500_r8*rxt(k,268) +2.000_r8*rxt(k,134)*y(k,55) + & + rxt(k,136)*y(k,69) +rxt(k,259)*y(k,79))*y(k,62) & + + (rxt(k,143)*y(k,99) +rxt(k,157)*y(k,70))*y(k,55) & +2.000_r8*rxt(k,147)*y(k,95)*y(k,56) +rxt(k,14)*y(k,57) +rxt(k,19) & - *y(k,63) +rxt(k,130)*y(k,91)*y(k,70) +rxt(k,297)*y(k,98) +rxt(k,310) & + *y(k,63) +rxt(k,155)*y(k,91)*y(k,70) +rxt(k,300)*y(k,98) +rxt(k,313) & *y(k,102) - loss(k,92) = (rxt(k,200)* y(k,5) +rxt(k,169)* y(k,28) + (rxt(k,132) + & - rxt(k,133) +rxt(k,134))* y(k,55) +rxt(k,150)* y(k,63) + (rxt(k,136) + & - rxt(k,138))* y(k,69) +rxt(k,137)* y(k,71) +rxt(k,256)* y(k,79) & - +rxt(k,149)* y(k,90) +rxt(k,151)* y(k,99) + rxt(k,17) + rxt(k,265) & + loss(k,92) = (rxt(k,203)* y(k,5) +rxt(k,172)* y(k,28) + (rxt(k,133) + & + rxt(k,134) +rxt(k,135))* y(k,55) +rxt(k,150)* y(k,63) + (rxt(k,136) + & + rxt(k,138))* y(k,69) +rxt(k,137)* y(k,71) +rxt(k,259)* y(k,79) & + +rxt(k,149)* y(k,90) +rxt(k,151)* y(k,99) + rxt(k,17) + rxt(k,268) & + het_rates(k,62))* y(k,62) prod(k,92) = (2.000_r8*rxt(k,140)*y(k,63) +rxt(k,144)*y(k,90) + & - rxt(k,145)*y(k,71) +rxt(k,146)*y(k,69) +rxt(k,167)*y(k,28) + & - rxt(k,199)*y(k,5) +rxt(k,239)*y(k,21))*y(k,61) + (rxt(k,18) + & + rxt(k,145)*y(k,71) +rxt(k,146)*y(k,69) +rxt(k,170)*y(k,28) + & + rxt(k,202)*y(k,5) +rxt(k,242)*y(k,21))*y(k,61) + (rxt(k,18) + & rxt(k,139)*y(k,90) +rxt(k,141)*y(k,69) +rxt(k,142)*y(k,99))*y(k,63) & - + (rxt(k,11) +rxt(k,153) +rxt(k,128)*y(k,99))*y(k,52) + (rxt(k,13) + & - rxt(k,154))*y(k,57) +rxt(k,28)*y(k,6) +rxt(k,47)*y(k,29) +rxt(k,9) & + + (rxt(k,11) +rxt(k,153) +rxt(k,129)*y(k,99))*y(k,52) + (rxt(k,13) + & + rxt(k,156))*y(k,57) +rxt(k,28)*y(k,6) +rxt(k,47)*y(k,29) +rxt(k,9) & *y(k,51) - loss(k,90) = (rxt(k,235)* y(k,17) +rxt(k,246)* y(k,35) +rxt(k,140)* y(k,61) & + loss(k,90) = (rxt(k,238)* y(k,17) +rxt(k,249)* y(k,35) +rxt(k,140)* y(k,61) & +rxt(k,150)* y(k,62) +rxt(k,141)* y(k,69) +rxt(k,139)* y(k,90) & - +rxt(k,142)* y(k,99) + rxt(k,18) + rxt(k,19) + rxt(k,266) & + +rxt(k,142)* y(k,99) + rxt(k,18) + rxt(k,19) + rxt(k,269) & + het_rates(k,63))* y(k,63) - prod(k,90) = (rxt(k,46) +rxt(k,168)*y(k,25) +rxt(k,170)*y(k,69) + & - rxt(k,171)*y(k,99))*y(k,29) + (rxt(k,13) +rxt(k,14) +rxt(k,154)) & - *y(k,57) + (rxt(k,29) +rxt(k,201)*y(k,69))*y(k,6) & - + (rxt(k,152)*y(k,99) +rxt(k,215)*y(k,39))*y(k,51) & + prod(k,90) = (rxt(k,46) +rxt(k,171)*y(k,25) +rxt(k,173)*y(k,69) + & + rxt(k,174)*y(k,99))*y(k,29) + (rxt(k,13) +rxt(k,14) +rxt(k,156)) & + *y(k,57) + (rxt(k,29) +rxt(k,204)*y(k,69))*y(k,6) & + + (rxt(k,152)*y(k,99) +rxt(k,218)*y(k,39))*y(k,51) & + (rxt(k,137)*y(k,71) +rxt(k,138)*y(k,69))*y(k,62) +rxt(k,10) & *y(k,52) loss(k,11) = ( + het_rates(k,64))* y(k,64) @@ -342,87 +344,88 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,14) = 0._r8 loss(k,15) = ( + het_rates(k,68))* y(k,68) prod(k,15) = 0._r8 - loss(k,93) = (rxt(k,202)* y(k,5) +rxt(k,201)* y(k,6) +rxt(k,236)* y(k,17) & - +rxt(k,172)* y(k,28) +rxt(k,170)* y(k,29) +rxt(k,111)* y(k,41) & - +rxt(k,112)* y(k,43) +rxt(k,204)* y(k,45) +rxt(k,175)* y(k,49) & - +rxt(k,206)* y(k,53) +rxt(k,178)* y(k,54) +rxt(k,146)* y(k,61) & + loss(k,93) = (rxt(k,205)* y(k,5) +rxt(k,204)* y(k,6) +rxt(k,239)* y(k,17) & + +rxt(k,175)* y(k,28) +rxt(k,173)* y(k,29) +rxt(k,111)* y(k,41) & + +rxt(k,112)* y(k,43) +rxt(k,207)* y(k,45) +rxt(k,178)* y(k,49) & + +rxt(k,209)* y(k,53) +rxt(k,181)* y(k,54) +rxt(k,146)* y(k,61) & + (rxt(k,136) +rxt(k,138))* y(k,62) +rxt(k,141)* y(k,63) & + 2._r8*rxt(k,109)* y(k,69) +rxt(k,110)* y(k,70) +rxt(k,108) & - * y(k,71) +rxt(k,248)* y(k,74) +rxt(k,117)* y(k,90) + (rxt(k,291) + & - rxt(k,292))* y(k,92) +rxt(k,293)* y(k,94) +rxt(k,123)* y(k,99) & + * y(k,71) +rxt(k,251)* y(k,74) +rxt(k,117)* y(k,90) + (rxt(k,294) + & + rxt(k,295))* y(k,92) +rxt(k,296)* y(k,94) +rxt(k,123)* y(k,99) & + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + rxt(k,76) + het_rates(k,69))* y(k,69) prod(k,93) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,77) +rxt(k,79) +rxt(k,81) + & 2.000_r8*rxt(k,82) +2.000_r8*rxt(k,83) +rxt(k,84) +rxt(k,85) + & - rxt(k,86) +rxt(k,97)*y(k,95) +rxt(k,98)*y(k,95) +rxt(k,135)*y(k,55) + & - rxt(k,250)*y(k,77) +rxt(k,257)*y(k,79) +rxt(k,295)*y(k,94) + & - rxt(k,302)*y(k,100) +rxt(k,306)*y(k,101))*y(k,70) & - + (rxt(k,131)*y(k,61) +rxt(k,132)*y(k,62) +rxt(k,296)*y(k,98)) & - *y(k,55) + (rxt(k,25) +rxt(k,61))*y(k,32) + (rxt(k,287)*y(k,93) + & - 1.150_r8*rxt(k,288)*y(k,98))*y(k,89) +rxt(k,27)*y(k,5) & + rxt(k,86) +rxt(k,97)*y(k,95) +rxt(k,98)*y(k,95) +rxt(k,157)*y(k,55) + & + rxt(k,253)*y(k,77) +rxt(k,260)*y(k,79) +rxt(k,298)*y(k,94) + & + rxt(k,305)*y(k,100) +rxt(k,309)*y(k,101))*y(k,70) & + + (rxt(k,132)*y(k,61) +rxt(k,133)*y(k,62) +rxt(k,299)*y(k,98)) & + *y(k,55) + (rxt(k,25) +rxt(k,61))*y(k,32) + (rxt(k,15) + & + rxt(k,130)*y(k,91))*y(k,61) + (rxt(k,290)*y(k,93) + & + 1.150_r8*rxt(k,291)*y(k,98))*y(k,89) +rxt(k,27)*y(k,5) & +.180_r8*rxt(k,24)*y(k,23) +rxt(k,45)*y(k,28) +rxt(k,115)*y(k,90) & - *y(k,40) +rxt(k,14)*y(k,57) +rxt(k,15)*y(k,61) +rxt(k,17)*y(k,62) & - +rxt(k,18)*y(k,63) +rxt(k,8)*y(k,71) +rxt(k,59)*y(k,73) +rxt(k,89) & - *y(k,79) +rxt(k,90)*y(k,80) +rxt(k,91)*y(k,81) +rxt(k,301)*y(k,100) & - *y(k,91) +rxt(k,96)*y(k,95) +rxt(k,125)*y(k,99)*y(k,99) +rxt(k,304) & - *y(k,101) +rxt(k,309)*y(k,102) +rxt(k,2)*y(k,103) - loss(k,87) = (rxt(k,116)* y(k,40) +rxt(k,135)* y(k,55) +rxt(k,110)* y(k,69) & - +rxt(k,250)* y(k,77) +rxt(k,257)* y(k,79) +rxt(k,130)* y(k,91) & - +rxt(k,290)* y(k,92) + (rxt(k,294) +rxt(k,295))* y(k,94) +rxt(k,97) & - * y(k,95) +rxt(k,102)* y(k,96) +rxt(k,302)* y(k,100) +rxt(k,306) & + *y(k,40) +rxt(k,14)*y(k,57) +rxt(k,17)*y(k,62) +rxt(k,18)*y(k,63) & + +rxt(k,8)*y(k,71) +rxt(k,59)*y(k,73) +rxt(k,89)*y(k,79) +rxt(k,90) & + *y(k,80) +rxt(k,91)*y(k,81) +rxt(k,304)*y(k,100)*y(k,91) +rxt(k,96) & + *y(k,95) +rxt(k,125)*y(k,99)*y(k,99) +rxt(k,307)*y(k,101) +rxt(k,312) & + *y(k,102) +rxt(k,2)*y(k,103) + loss(k,87) = (rxt(k,116)* y(k,40) +rxt(k,157)* y(k,55) +rxt(k,110)* y(k,69) & + +rxt(k,253)* y(k,77) +rxt(k,260)* y(k,79) +rxt(k,155)* y(k,91) & + +rxt(k,293)* y(k,92) + (rxt(k,297) +rxt(k,298))* y(k,94) +rxt(k,97) & + * y(k,95) +rxt(k,102)* y(k,96) +rxt(k,305)* y(k,100) +rxt(k,309) & * y(k,101) + rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,78) + rxt(k,79) & + rxt(k,80) + rxt(k,81) + rxt(k,82) + rxt(k,83) + rxt(k,84) & + rxt(k,85) + rxt(k,86) + het_rates(k,70))* y(k,70) prod(k,87) = (rxt(k,8) +2.000_r8*rxt(k,99)*y(k,95) + & 2.000_r8*rxt(k,108)*y(k,69) +2.000_r8*rxt(k,118)*y(k,90) + & rxt(k,119)*y(k,40) +rxt(k,124)*y(k,99) +rxt(k,137)*y(k,62) + & - rxt(k,145)*y(k,61) +rxt(k,161)*y(k,25) +rxt(k,193)*y(k,3) + & - rxt(k,252)*y(k,77) +rxt(k,258)*y(k,79))*y(k,71) & + rxt(k,145)*y(k,61) +rxt(k,164)*y(k,25) +rxt(k,196)*y(k,3) + & + rxt(k,255)*y(k,77) +rxt(k,261)*y(k,79))*y(k,71) & + (rxt(k,113)*y(k,40) +rxt(k,117)*y(k,69) +rxt(k,122)*y(k,99) + & - rxt(k,127)*y(k,90) +rxt(k,139)*y(k,63) +rxt(k,159)*y(k,25) + & - rxt(k,166)*y(k,28) +rxt(k,192)*y(k,3) +rxt(k,198)*y(k,5) + & - rxt(k,238)*y(k,21))*y(k,90) + (rxt(k,101)*y(k,96) + & + rxt(k,127)*y(k,90) +rxt(k,139)*y(k,63) +rxt(k,162)*y(k,25) + & + rxt(k,169)*y(k,28) +rxt(k,195)*y(k,3) +rxt(k,201)*y(k,5) + & + rxt(k,241)*y(k,21))*y(k,90) + (rxt(k,101)*y(k,96) + & rxt(k,109)*y(k,69) +rxt(k,123)*y(k,99) +rxt(k,136)*y(k,62) + & - rxt(k,141)*y(k,63) +rxt(k,172)*y(k,28) +rxt(k,202)*y(k,5))*y(k,69) & - + (rxt(k,163)*y(k,28) +rxt(k,164)*y(k,28) +rxt(k,174)*y(k,99) + & - rxt(k,196)*y(k,5) +rxt(k,197)*y(k,5))*y(k,28) + (rxt(k,92) + & - rxt(k,100) +2.000_r8*rxt(k,102)*y(k,70))*y(k,96) +rxt(k,194)*y(k,5) & - *y(k,5) +rxt(k,128)*y(k,99)*y(k,52) +rxt(k,134)*y(k,62)*y(k,55) & - +rxt(k,148)*y(k,95)*y(k,56) +rxt(k,298)*y(k,98)*y(k,61) +rxt(k,19) & + rxt(k,141)*y(k,63) +rxt(k,175)*y(k,28) +rxt(k,205)*y(k,5))*y(k,69) & + + (rxt(k,166)*y(k,28) +rxt(k,167)*y(k,28) +rxt(k,177)*y(k,99) + & + rxt(k,199)*y(k,5) +rxt(k,200)*y(k,5))*y(k,28) + (rxt(k,92) + & + rxt(k,100) +2.000_r8*rxt(k,102)*y(k,70))*y(k,96) +rxt(k,197)*y(k,5) & + *y(k,5) +rxt(k,129)*y(k,99)*y(k,52) +rxt(k,135)*y(k,62)*y(k,55) & + +rxt(k,148)*y(k,95)*y(k,56) +rxt(k,301)*y(k,98)*y(k,61) +rxt(k,19) & *y(k,63) +rxt(k,93)*y(k,97) - loss(k,88) = (rxt(k,193)* y(k,3) +rxt(k,161)* y(k,25) +rxt(k,119)* y(k,40) & + loss(k,88) = (rxt(k,196)* y(k,3) +rxt(k,164)* y(k,25) +rxt(k,119)* y(k,40) & +rxt(k,145)* y(k,61) +rxt(k,137)* y(k,62) +rxt(k,108)* y(k,69) & - +rxt(k,252)* y(k,77) +rxt(k,258)* y(k,79) +rxt(k,118)* y(k,90) & + +rxt(k,255)* y(k,77) +rxt(k,261)* y(k,79) +rxt(k,118)* y(k,90) & +rxt(k,99)* y(k,95) +rxt(k,124)* y(k,99) + rxt(k,7) + rxt(k,8) & + het_rates(k,71))* y(k,71) prod(k,88) =rxt(k,110)*y(k,70)*y(k,69) - loss(k,52) = (rxt(k,259)* y(k,79) + rxt(k,59) + het_rates(k,73))* y(k,73) - prod(k,52) = (rxt(k,165)*y(k,28) +rxt(k,195)*y(k,5))*y(k,28) - loss(k,53) = (rxt(k,248)* y(k,69) +rxt(k,249)* y(k,99) + rxt(k,88) & + loss(k,52) = (rxt(k,262)* y(k,79) + rxt(k,59) + het_rates(k,73))* y(k,73) + prod(k,52) = (rxt(k,168)*y(k,28) +rxt(k,198)*y(k,5))*y(k,28) + loss(k,53) = (rxt(k,251)* y(k,69) +rxt(k,252)* y(k,99) + rxt(k,88) & + het_rates(k,74))* y(k,74) prod(k,53) = 0._r8 loss(k,16) = ( + het_rates(k,75))* y(k,75) prod(k,16) = 0._r8 loss(k,17) = ( + het_rates(k,76))* y(k,76) prod(k,17) = 0._r8 - loss(k,66) = (rxt(k,250)* y(k,70) +rxt(k,252)* y(k,71) +rxt(k,255)* y(k,99) & + loss(k,66) = (rxt(k,253)* y(k,70) +rxt(k,255)* y(k,71) +rxt(k,258)* y(k,99) & + het_rates(k,77))* y(k,77) prod(k,66) =rxt(k,88)*y(k,74) +rxt(k,89)*y(k,79) loss(k,18) = ( + rxt(k,60) + het_rates(k,78))* y(k,78) prod(k,18) = 0._r8 - loss(k,83) = (rxt(k,253)* y(k,5) +rxt(k,254)* y(k,28) +rxt(k,256)* y(k,62) & - +rxt(k,257)* y(k,70) +rxt(k,258)* y(k,71) +rxt(k,259)* y(k,73) & - +rxt(k,260)* y(k,99) + rxt(k,89) + het_rates(k,79))* y(k,79) - prod(k,83) = (rxt(k,250)*y(k,70) +rxt(k,252)*y(k,71) +rxt(k,255)*y(k,99)) & - *y(k,77) +rxt(k,248)*y(k,74)*y(k,69) +rxt(k,90)*y(k,80) - loss(k,74) = (rxt(k,251)* y(k,99) + rxt(k,90) + het_rates(k,80))* y(k,80) - prod(k,74) = (rxt(k,253)*y(k,5) +rxt(k,254)*y(k,28) +rxt(k,256)*y(k,62) + & - rxt(k,257)*y(k,70) +rxt(k,258)*y(k,71) +rxt(k,259)*y(k,73) + & - rxt(k,260)*y(k,99))*y(k,79) + (rxt(k,246)*y(k,63) + & - rxt(k,247)*y(k,99) +.500_r8*rxt(k,261)*y(k,99))*y(k,35) & - +rxt(k,249)*y(k,99)*y(k,74) +rxt(k,91)*y(k,81) - loss(k,47) = (rxt(k,262)* y(k,103) + rxt(k,91) + het_rates(k,81))* y(k,81) - prod(k,47) =rxt(k,87)*y(k,44) +rxt(k,251)*y(k,99)*y(k,80) + loss(k,83) = (rxt(k,256)* y(k,5) +rxt(k,257)* y(k,28) +rxt(k,259)* y(k,62) & + +rxt(k,260)* y(k,70) +rxt(k,261)* y(k,71) +rxt(k,262)* y(k,73) & + +rxt(k,263)* y(k,99) + rxt(k,89) + het_rates(k,79))* y(k,79) + prod(k,83) = (rxt(k,253)*y(k,70) +rxt(k,255)*y(k,71) +rxt(k,258)*y(k,99)) & + *y(k,77) +rxt(k,251)*y(k,74)*y(k,69) +rxt(k,90)*y(k,80) + loss(k,74) = (rxt(k,254)* y(k,99) + rxt(k,90) + het_rates(k,80))* y(k,80) + prod(k,74) = (rxt(k,256)*y(k,5) +rxt(k,257)*y(k,28) +rxt(k,259)*y(k,62) + & + rxt(k,260)*y(k,70) +rxt(k,261)*y(k,71) +rxt(k,262)*y(k,73) + & + rxt(k,263)*y(k,99))*y(k,79) + (rxt(k,249)*y(k,63) + & + rxt(k,250)*y(k,99) +.500_r8*rxt(k,264)*y(k,99))*y(k,35) & + +rxt(k,252)*y(k,99)*y(k,74) +rxt(k,91)*y(k,81) + loss(k,47) = (rxt(k,265)* y(k,103) + rxt(k,91) + het_rates(k,81))* y(k,81) + prod(k,47) =rxt(k,87)*y(k,44) +rxt(k,254)*y(k,99)*y(k,80) loss(k,19) = ( + het_rates(k,82))* y(k,82) prod(k,19) = 0._r8 loss(k,20) = ( + het_rates(k,83))* y(k,83) @@ -437,55 +440,56 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,24) = 0._r8 loss(k,25) = ( + het_rates(k,88))* y(k,88) prod(k,25) = 0._r8 - loss(k,76) = (rxt(k,289)* y(k,92) +rxt(k,287)* y(k,93) +rxt(k,288)* y(k,98) & + loss(k,76) = (rxt(k,292)* y(k,92) +rxt(k,290)* y(k,93) +rxt(k,291)* y(k,98) & + het_rates(k,89))* y(k,89) prod(k,76) = (rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) +rxt(k,81) + & rxt(k,84) +rxt(k,85) +rxt(k,86))*y(k,70) + (rxt(k,71) +rxt(k,72) + & rxt(k,73) +rxt(k,74) +rxt(k,75) +rxt(k,76))*y(k,69) +rxt(k,62) & *y(k,55) +rxt(k,16)*y(k,61) - loss(k,89) = (rxt(k,192)* y(k,3) +rxt(k,198)* y(k,5) +rxt(k,238)* y(k,21) & - + (rxt(k,159) +rxt(k,160))* y(k,25) +rxt(k,166)* y(k,28) & + loss(k,89) = (rxt(k,195)* y(k,3) +rxt(k,201)* y(k,5) +rxt(k,241)* y(k,21) & + + (rxt(k,162) +rxt(k,163))* y(k,25) +rxt(k,169)* y(k,28) & + (rxt(k,113) +rxt(k,114) +rxt(k,115))* y(k,40) +rxt(k,144)* y(k,61) & +rxt(k,149)* y(k,62) +rxt(k,139)* y(k,63) +rxt(k,117)* y(k,69) & +rxt(k,118)* y(k,71) + 2._r8*rxt(k,127)* y(k,90) +rxt(k,122) & - * y(k,99) + rxt(k,263) + het_rates(k,90))* y(k,90) + * y(k,99) + rxt(k,266) + het_rates(k,90))* y(k,90) prod(k,89) = (rxt(k,121)*y(k,43) +rxt(k,124)*y(k,71) +rxt(k,142)*y(k,63) + & - rxt(k,173)*y(k,28) +rxt(k,203)*y(k,5) +rxt(k,221)*y(k,18) + & - rxt(k,224)*y(k,20) +rxt(k,245)*y(k,31) +rxt(k,251)*y(k,80) + & - .500_r8*rxt(k,261)*y(k,35))*y(k,99) + (rxt(k,155)*y(k,25) + & - rxt(k,191)*y(k,3) +rxt(k,235)*y(k,63) +rxt(k,236)*y(k,69))*y(k,17) & - + (rxt(k,158)*y(k,43) +rxt(k,220)*y(k,18) +rxt(k,223)*y(k,20)) & - *y(k,25) + (rxt(k,162)*y(k,28) +rxt(k,239)*y(k,61))*y(k,21) & - + (rxt(k,11) +rxt(k,153))*y(k,52) +rxt(k,243)*y(k,95)*y(k,23) & + rxt(k,176)*y(k,28) +rxt(k,206)*y(k,5) +rxt(k,224)*y(k,18) + & + rxt(k,227)*y(k,20) +rxt(k,248)*y(k,31) +rxt(k,254)*y(k,80) + & + .500_r8*rxt(k,264)*y(k,35))*y(k,99) + (rxt(k,158)*y(k,25) + & + rxt(k,194)*y(k,3) +rxt(k,238)*y(k,63) +rxt(k,239)*y(k,69))*y(k,17) & + + (rxt(k,161)*y(k,43) +rxt(k,223)*y(k,18) +rxt(k,226)*y(k,20)) & + *y(k,25) + (rxt(k,165)*y(k,28) +rxt(k,242)*y(k,61))*y(k,21) & + + (rxt(k,11) +rxt(k,153))*y(k,52) +rxt(k,246)*y(k,95)*y(k,23) & +rxt(k,116)*y(k,70)*y(k,40) +rxt(k,112)*y(k,69)*y(k,43) - loss(k,77) = (rxt(k,129)* y(k,69) +rxt(k,130)* y(k,70) +rxt(k,301)* y(k,100) & + loss(k,77) = (rxt(k,130)* y(k,61) +rxt(k,131)* y(k,69) +rxt(k,155)* y(k,70) & + +rxt(k,154)* y(k,89) +rxt(k,304)* y(k,100) + rxt(k,128) & + het_rates(k,91))* y(k,91) - prod(k,77) = (.800_r8*rxt(k,287)*y(k,93) +.900_r8*rxt(k,289)*y(k,92))*y(k,89) & - +rxt(k,291)*y(k,92)*y(k,69) - loss(k,64) = ((rxt(k,291) +rxt(k,292))* y(k,69) +rxt(k,290)* y(k,70) & - +rxt(k,289)* y(k,89) + het_rates(k,92))* y(k,92) - prod(k,64) =rxt(k,304)*y(k,101) +rxt(k,309)*y(k,102) - loss(k,67) = (rxt(k,287)* y(k,89) + het_rates(k,93))* y(k,93) - prod(k,67) = (rxt(k,297) +rxt(k,296)*y(k,55) +rxt(k,298)*y(k,61))*y(k,98) & - +rxt(k,16)*y(k,61) +rxt(k,291)*y(k,92)*y(k,69) +rxt(k,295)*y(k,94) & - *y(k,70) +rxt(k,300)*y(k,100) - loss(k,71) = (rxt(k,293)* y(k,69) + (rxt(k,294) +rxt(k,295))* y(k,70) & + prod(k,77) = (.800_r8*rxt(k,290)*y(k,93) +.900_r8*rxt(k,292)*y(k,92))*y(k,89) & + +rxt(k,294)*y(k,92)*y(k,69) + loss(k,64) = ((rxt(k,294) +rxt(k,295))* y(k,69) +rxt(k,293)* y(k,70) & + +rxt(k,292)* y(k,89) + het_rates(k,92))* y(k,92) + prod(k,64) =rxt(k,307)*y(k,101) +rxt(k,312)*y(k,102) + loss(k,67) = (rxt(k,290)* y(k,89) + het_rates(k,93))* y(k,93) + prod(k,67) = (rxt(k,300) +rxt(k,299)*y(k,55) +rxt(k,301)*y(k,61))*y(k,98) & + +rxt(k,16)*y(k,61) +rxt(k,294)*y(k,92)*y(k,69) +rxt(k,298)*y(k,94) & + *y(k,70) +rxt(k,303)*y(k,100) + loss(k,71) = (rxt(k,296)* y(k,69) + (rxt(k,297) +rxt(k,298))* y(k,70) & + het_rates(k,94))* y(k,94) - prod(k,71) =rxt(k,62)*y(k,55) +rxt(k,301)*y(k,100)*y(k,91) +rxt(k,310) & + prod(k,71) =rxt(k,62)*y(k,55) +rxt(k,304)*y(k,100)*y(k,91) +rxt(k,313) & *y(k,102) - loss(k,94) = (rxt(k,180)* y(k,8) +rxt(k,181)* y(k,9) +rxt(k,207)* y(k,10) & - +rxt(k,182)* y(k,11) +rxt(k,183)* y(k,12) +rxt(k,184)* y(k,13) & - +rxt(k,185)* y(k,14) +rxt(k,186)* y(k,15) +rxt(k,230)* y(k,16) & - +rxt(k,231)* y(k,18) + (rxt(k,242) +rxt(k,243) +rxt(k,244))* y(k,23) & - +rxt(k,208)* y(k,24) +rxt(k,216)* y(k,33) +rxt(k,217)* y(k,34) & - +rxt(k,94)* y(k,41) +rxt(k,209)* y(k,42) + (rxt(k,210) +rxt(k,211)) & - * y(k,45) +rxt(k,232)* y(k,46) +rxt(k,233)* y(k,47) +rxt(k,234) & - * y(k,48) + (rxt(k,187) +rxt(k,188))* y(k,49) + (rxt(k,147) + & + loss(k,94) = (rxt(k,183)* y(k,8) +rxt(k,184)* y(k,9) +rxt(k,210)* y(k,10) & + +rxt(k,185)* y(k,11) +rxt(k,186)* y(k,12) +rxt(k,187)* y(k,13) & + +rxt(k,188)* y(k,14) +rxt(k,189)* y(k,15) +rxt(k,233)* y(k,16) & + +rxt(k,234)* y(k,18) + (rxt(k,245) +rxt(k,246) +rxt(k,247))* y(k,23) & + +rxt(k,211)* y(k,24) +rxt(k,219)* y(k,33) +rxt(k,220)* y(k,34) & + +rxt(k,94)* y(k,41) +rxt(k,212)* y(k,42) + (rxt(k,213) +rxt(k,214)) & + * y(k,45) +rxt(k,235)* y(k,46) +rxt(k,236)* y(k,47) +rxt(k,237) & + * y(k,48) + (rxt(k,190) +rxt(k,191))* y(k,49) + (rxt(k,147) + & rxt(k,148))* y(k,56) + (rxt(k,97) +rxt(k,98))* y(k,70) +rxt(k,99) & * y(k,71) +rxt(k,95)* y(k,103) + rxt(k,96) + het_rates(k,95)) & * y(k,95) - prod(k,94) = (rxt(k,6) +rxt(k,130)*y(k,91))*y(k,70) +rxt(k,12)*y(k,56) & - +rxt(k,7)*y(k,71) +.850_r8*rxt(k,288)*y(k,98)*y(k,89) +rxt(k,1) & + prod(k,94) = (rxt(k,6) +rxt(k,155)*y(k,91))*y(k,70) +rxt(k,12)*y(k,56) & + +rxt(k,7)*y(k,71) +.850_r8*rxt(k,291)*y(k,98)*y(k,89) +rxt(k,1) & *y(k,103) loss(k,39) = (rxt(k,101)* y(k,69) +rxt(k,102)* y(k,70) + rxt(k,92) & + rxt(k,100) + het_rates(k,96))* y(k,96) @@ -495,60 +499,60 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & +rxt(k,107)* y(k,71) + rxt(k,93) + rxt(k,104) + het_rates(k,97)) & * y(k,97) prod(k,40) =rxt(k,97)*y(k,95)*y(k,70) - loss(k,79) = (rxt(k,296)* y(k,55) +rxt(k,298)* y(k,61) +rxt(k,288)* y(k,89) & - + rxt(k,297) + het_rates(k,98))* y(k,98) - prod(k,79) = (rxt(k,78) +rxt(k,80) +rxt(k,290)*y(k,92) +rxt(k,294)*y(k,94) + & - rxt(k,302)*y(k,100) +rxt(k,306)*y(k,101))*y(k,70) & - +rxt(k,299)*y(k,100)*y(k,32) - loss(k,98) = (rxt(k,203)* y(k,5) +rxt(k,219)* y(k,16) +rxt(k,237)* y(k,17) & - +rxt(k,221)* y(k,18) +rxt(k,222)* y(k,19) +rxt(k,224)* y(k,20) & - +rxt(k,240)* y(k,22) +rxt(k,241)* y(k,23) +rxt(k,226)* y(k,24) & - + (rxt(k,173) +rxt(k,174))* y(k,28) +rxt(k,171)* y(k,29) +rxt(k,245) & - * y(k,31) + (rxt(k,247) +rxt(k,261))* y(k,35) +rxt(k,120)* y(k,41) & - +rxt(k,121)* y(k,43) +rxt(k,205)* y(k,45) +rxt(k,227)* y(k,46) & - +rxt(k,228)* y(k,47) +rxt(k,229)* y(k,48) +rxt(k,176)* y(k,49) & - +rxt(k,152)* y(k,51) +rxt(k,128)* y(k,52) +rxt(k,179)* y(k,54) & + loss(k,79) = (rxt(k,299)* y(k,55) +rxt(k,301)* y(k,61) +rxt(k,291)* y(k,89) & + + rxt(k,300) + het_rates(k,98))* y(k,98) + prod(k,79) = (rxt(k,78) +rxt(k,80) +rxt(k,293)*y(k,92) +rxt(k,297)*y(k,94) + & + rxt(k,305)*y(k,100) +rxt(k,309)*y(k,101))*y(k,70) & + +rxt(k,302)*y(k,100)*y(k,32) + loss(k,98) = (rxt(k,206)* y(k,5) +rxt(k,222)* y(k,16) +rxt(k,240)* y(k,17) & + +rxt(k,224)* y(k,18) +rxt(k,225)* y(k,19) +rxt(k,227)* y(k,20) & + +rxt(k,243)* y(k,22) +rxt(k,244)* y(k,23) +rxt(k,229)* y(k,24) & + + (rxt(k,176) +rxt(k,177))* y(k,28) +rxt(k,174)* y(k,29) +rxt(k,248) & + * y(k,31) + (rxt(k,250) +rxt(k,264))* y(k,35) +rxt(k,120)* y(k,41) & + +rxt(k,121)* y(k,43) +rxt(k,208)* y(k,45) +rxt(k,230)* y(k,46) & + +rxt(k,231)* y(k,47) +rxt(k,232)* y(k,48) +rxt(k,179)* y(k,49) & + +rxt(k,152)* y(k,51) +rxt(k,129)* y(k,52) +rxt(k,182)* y(k,54) & +rxt(k,143)* y(k,55) +rxt(k,151)* y(k,62) +rxt(k,142)* y(k,63) & - +rxt(k,123)* y(k,69) +rxt(k,124)* y(k,71) +rxt(k,249)* y(k,74) & - +rxt(k,255)* y(k,77) +rxt(k,260)* y(k,79) +rxt(k,251)* y(k,80) & + +rxt(k,123)* y(k,69) +rxt(k,124)* y(k,71) +rxt(k,252)* y(k,74) & + +rxt(k,258)* y(k,77) +rxt(k,263)* y(k,79) +rxt(k,254)* y(k,80) & +rxt(k,122)* y(k,90) + 2._r8*(rxt(k,125) +rxt(k,126))* y(k,99) & + het_rates(k,99))* y(k,99) prod(k,98) = (rxt(k,111)*y(k,41) +rxt(k,112)*y(k,43) +rxt(k,117)*y(k,90) + & - rxt(k,175)*y(k,49) +rxt(k,178)*y(k,54) +rxt(k,204)*y(k,45) + & - rxt(k,206)*y(k,53) +rxt(k,236)*y(k,17))*y(k,69) & + rxt(k,178)*y(k,49) +rxt(k,181)*y(k,54) +rxt(k,207)*y(k,45) + & + rxt(k,209)*y(k,53) +rxt(k,239)*y(k,17))*y(k,69) & + (2.000_r8*rxt(k,114)*y(k,40) +rxt(k,118)*y(k,71) + & - rxt(k,139)*y(k,63) +rxt(k,144)*y(k,61) +rxt(k,160)*y(k,25))*y(k,90) & + rxt(k,139)*y(k,63) +rxt(k,144)*y(k,61) +rxt(k,163)*y(k,25))*y(k,90) & + (rxt(k,94)*y(k,41) +2.000_r8*rxt(k,95)*y(k,103) + & - rxt(k,187)*y(k,49) +rxt(k,210)*y(k,45) +rxt(k,242)*y(k,23))*y(k,95) & - + (rxt(k,22) +.300_r8*rxt(k,240)*y(k,99))*y(k,22) + (rxt(k,3) + & - rxt(k,214)*y(k,39))*y(k,103) +.330_r8*rxt(k,24)*y(k,23) & + rxt(k,190)*y(k,49) +rxt(k,213)*y(k,45) +rxt(k,245)*y(k,23))*y(k,95) & + + (rxt(k,22) +.300_r8*rxt(k,243)*y(k,99))*y(k,22) + (rxt(k,3) + & + rxt(k,217)*y(k,39))*y(k,103) +.330_r8*rxt(k,24)*y(k,23) & +rxt(k,119)*y(k,71)*y(k,40) +2.000_r8*rxt(k,4)*y(k,43) +rxt(k,9) & *y(k,51) +rxt(k,10)*y(k,52) +rxt(k,57)*y(k,53) +rxt(k,58)*y(k,54) & - +.500_r8*rxt(k,265)*y(k,62) - loss(k,80) = (rxt(k,299)* y(k,32) +rxt(k,302)* y(k,70) +rxt(k,301)* y(k,91) & - + rxt(k,300) + het_rates(k,100))* y(k,100) - prod(k,80) = (rxt(k,73) +rxt(k,74) +rxt(k,292)*y(k,92) +rxt(k,293)*y(k,94) + & - rxt(k,305)*y(k,101) +rxt(k,311)*y(k,102))*y(k,69) + (rxt(k,79) + & - rxt(k,81))*y(k,70) + (rxt(k,303)*y(k,101) +rxt(k,308)*y(k,102)) & - *y(k,89) +rxt(k,285)*y(k,101) +rxt(k,284)*y(k,102) - loss(k,60) = (rxt(k,305)* y(k,69) +rxt(k,306)* y(k,70) +rxt(k,303)* y(k,89) & - + rxt(k,285) + rxt(k,304) + het_rates(k,101))* y(k,101) + +.500_r8*rxt(k,268)*y(k,62) + loss(k,80) = (rxt(k,302)* y(k,32) +rxt(k,305)* y(k,70) +rxt(k,304)* y(k,91) & + + rxt(k,303) + het_rates(k,100))* y(k,100) + prod(k,80) = (rxt(k,73) +rxt(k,74) +rxt(k,295)*y(k,92) +rxt(k,296)*y(k,94) + & + rxt(k,308)*y(k,101) +rxt(k,314)*y(k,102))*y(k,69) + (rxt(k,79) + & + rxt(k,81))*y(k,70) + (rxt(k,306)*y(k,101) +rxt(k,311)*y(k,102)) & + *y(k,89) +rxt(k,288)*y(k,101) +rxt(k,287)*y(k,102) + loss(k,60) = (rxt(k,308)* y(k,69) +rxt(k,309)* y(k,70) +rxt(k,306)* y(k,89) & + + rxt(k,288) + rxt(k,307) + het_rates(k,101))* y(k,101) prod(k,60) = (rxt(k,75) +rxt(k,76))*y(k,69) + (rxt(k,85) +rxt(k,86))*y(k,70) & - + (rxt(k,286) +rxt(k,307)*y(k,89))*y(k,102) - loss(k,59) = (rxt(k,311)* y(k,69) + (rxt(k,307) +rxt(k,308))* y(k,89) & - + rxt(k,284) + rxt(k,286) + rxt(k,309) + rxt(k,310) & + + (rxt(k,289) +rxt(k,310)*y(k,89))*y(k,102) + loss(k,59) = (rxt(k,314)* y(k,69) + (rxt(k,310) +rxt(k,311))* y(k,89) & + + rxt(k,287) + rxt(k,289) + rxt(k,312) + rxt(k,313) & + het_rates(k,102))* y(k,102) prod(k,59) = (rxt(k,71) +rxt(k,72))*y(k,69) + (rxt(k,77) +rxt(k,84))*y(k,70) - loss(k,102) = (rxt(k,214)* y(k,39) +rxt(k,262)* y(k,81) +rxt(k,95)* y(k,95) & + loss(k,102) = (rxt(k,217)* y(k,39) +rxt(k,265)* y(k,81) +rxt(k,95)* y(k,95) & + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,103))* y(k,103) prod(k,102) = (rxt(k,120)*y(k,41) +rxt(k,121)*y(k,43) +rxt(k,122)*y(k,90) + & - rxt(k,125)*y(k,99) +rxt(k,128)*y(k,52) +rxt(k,152)*y(k,51) + & - rxt(k,176)*y(k,49) +rxt(k,179)*y(k,54) +rxt(k,205)*y(k,45) + & - rxt(k,219)*y(k,16) +rxt(k,221)*y(k,18) +rxt(k,222)*y(k,19) + & - rxt(k,224)*y(k,20) +rxt(k,229)*y(k,48) +rxt(k,237)*y(k,17) + & - rxt(k,240)*y(k,22) +rxt(k,241)*y(k,23))*y(k,99) & - + (rxt(k,268)*y(k,54) +rxt(k,274)*y(k,54) +rxt(k,275)*y(k,53) + & - rxt(k,279)*y(k,54) +rxt(k,280)*y(k,53))*y(k,49) +.050_r8*rxt(k,24) & + rxt(k,125)*y(k,99) +rxt(k,129)*y(k,52) +rxt(k,152)*y(k,51) + & + rxt(k,179)*y(k,49) +rxt(k,182)*y(k,54) +rxt(k,208)*y(k,45) + & + rxt(k,222)*y(k,16) +rxt(k,224)*y(k,18) +rxt(k,225)*y(k,19) + & + rxt(k,227)*y(k,20) +rxt(k,232)*y(k,48) +rxt(k,240)*y(k,17) + & + rxt(k,243)*y(k,22) +rxt(k,244)*y(k,23))*y(k,99) & + + (rxt(k,271)*y(k,54) +rxt(k,277)*y(k,54) +rxt(k,278)*y(k,53) + & + rxt(k,282)*y(k,54) +rxt(k,283)*y(k,53))*y(k,49) +.050_r8*rxt(k,24) & *y(k,23) +rxt(k,115)*y(k,90)*y(k,40) +rxt(k,87)*y(k,44) end do end subroutine imp_prod_loss diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_rxt_rates_conv.F90 index bbe9d4d986..b3e5f82f47 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_rxt_rates_conv.F90 @@ -135,14 +135,14 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 99)*sol(:ncol,:, 99) ! rate_const*OH*OH rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 99)*sol(:ncol,:, 99) ! rate_const*M*OH*OH rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 90)*sol(:ncol,:, 90) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 52)*sol(:ncol,:, 99) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*N2D*O - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 91)*sol(:ncol,:, 70) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 55)*sol(:ncol,:, 61) ! rate_const*N*NO - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 55)*sol(:ncol,:, 62) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 91) ! rate_const*N2D + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 52)*sol(:ncol,:, 99) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 91)*sol(:ncol,:, 61) ! rate_const*N2D*NO + rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*N2D*O + rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 55)*sol(:ncol,:, 61) ! rate_const*N*NO rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 55)*sol(:ncol,:, 62) ! rate_const*N*NO2 rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 55)*sol(:ncol,:, 62) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 55)*sol(:ncol,:, 70) ! rate_const*N*O2 + rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 55)*sol(:ncol,:, 62) ! rate_const*N*NO2 rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 62)*sol(:ncol,:, 69) ! rate_const*NO2*O rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 62)*sol(:ncol,:, 71) ! rate_const*NO2*O3 rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 62)*sol(:ncol,:, 69) ! rate_const*M*NO2*O @@ -161,163 +161,166 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 62)*sol(:ncol,:, 99) ! rate_const*M*NO2*OH rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 51)*sol(:ncol,:, 99) ! rate_const*HNO3*OH rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 52) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 57) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 25)*sol(:ncol,:, 17) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 25)*sol(:ncol,:, 41) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 25)*sol(:ncol,:, 43) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 25)*sol(:ncol,:, 90) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 25)*sol(:ncol,:, 90) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 25)*sol(:ncol,:, 71) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 28)*sol(:ncol,:, 21) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 28)*sol(:ncol,:, 90) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 28)*sol(:ncol,:, 61) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 28)*sol(:ncol,:, 62) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 29)*sol(:ncol,:, 69) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 29)*sol(:ncol,:, 99) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 28)*sol(:ncol,:, 69) ! rate_const*CLO*O - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 28)*sol(:ncol,:, 99) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 28)*sol(:ncol,:, 99) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 49)*sol(:ncol,:, 69) ! rate_const*HCL*O - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 49)*sol(:ncol,:, 99) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 54)*sol(:ncol,:, 25) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 54)*sol(:ncol,:, 69) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 54)*sol(:ncol,:, 99) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 95)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 95)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 95)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 95)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 95)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 95)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 95)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 27) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 3)*sol(:ncol,:, 17) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 3)*sol(:ncol,:, 90) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 3)*sol(:ncol,:, 71) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 5)*sol(:ncol,:, 5) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 5)*sol(:ncol,:, 90) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 5)*sol(:ncol,:, 61) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 5)*sol(:ncol,:, 62) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 6)*sol(:ncol,:, 69) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 5)*sol(:ncol,:, 69) ! rate_const*BRO*O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 5)*sol(:ncol,:, 99) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 45)*sol(:ncol,:, 69) ! rate_const*HBR*O - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 45)*sol(:ncol,:, 99) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 53)*sol(:ncol,:, 69) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 95)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 95)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 95)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 95)*sol(:ncol,:, 45) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 95)*sol(:ncol,:, 45) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 39)*sol(:ncol,:, 23) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 39)*sol(:ncol,:, 41) ! rate_const*F*H2 - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 39)*sol(:ncol,:, 103) ! rate_const*F*H2O - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 39)*sol(:ncol,:, 51) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 95)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 95)*sol(:ncol,:, 34) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 16)*sol(:ncol,:, 25) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 16)*sol(:ncol,:, 99) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 18)*sol(:ncol,:, 25) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 18)*sol(:ncol,:, 99) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 19)*sol(:ncol,:, 99) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 20)*sol(:ncol,:, 25) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 20)*sol(:ncol,:, 99) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 24)*sol(:ncol,:, 25) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 24)*sol(:ncol,:, 99) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 46)*sol(:ncol,:, 99) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 47)*sol(:ncol,:, 99) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 48)*sol(:ncol,:, 99) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 95)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 95)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 95)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 95)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 95)*sol(:ncol,:, 48) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 17)*sol(:ncol,:, 63) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 17)*sol(:ncol,:, 69) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 17)*sol(:ncol,:, 99) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 21)*sol(:ncol,:, 90) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 21)*sol(:ncol,:, 61) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 22)*sol(:ncol,:, 99) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 23)*sol(:ncol,:, 99) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 31)*sol(:ncol,:, 99) ! rate_const*CO*OH - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 35)*sol(:ncol,:, 63) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 35)*sol(:ncol,:, 99) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*OCS*O - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 74)*sol(:ncol,:, 99) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 77)*sol(:ncol,:, 70) ! rate_const*S*O2 - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 80)*sol(:ncol,:, 99) ! rate_const*M*SO2*OH - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 77)*sol(:ncol,:, 71) ! rate_const*S*O3 - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 79)*sol(:ncol,:, 5) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 79)*sol(:ncol,:, 28) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 77)*sol(:ncol,:, 99) ! rate_const*S*OH - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 79)*sol(:ncol,:, 62) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 79)*sol(:ncol,:, 70) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 79)*sol(:ncol,:, 71) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 79)*sol(:ncol,:, 73) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 79)*sol(:ncol,:, 99) ! rate_const*SO*OH - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 35)*sol(:ncol,:, 99) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 81)*sol(:ncol,:, 103) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 90) ! rate_const*HO2 - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 57) ! rate_const*N2O5 - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 62) ! rate_const*NO2 - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 63) ! rate_const*NO3 + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 91)*sol(:ncol,:, 89) ! rate_const*N2D*e + rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 91)*sol(:ncol,:, 70) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 57) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 55)*sol(:ncol,:, 70) ! rate_const*N*O2 + rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 25)*sol(:ncol,:, 17) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 25)*sol(:ncol,:, 41) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 25)*sol(:ncol,:, 43) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 25)*sol(:ncol,:, 90) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 25)*sol(:ncol,:, 90) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 25)*sol(:ncol,:, 71) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 28)*sol(:ncol,:, 21) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 28)*sol(:ncol,:, 90) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 28)*sol(:ncol,:, 61) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 28)*sol(:ncol,:, 62) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 29)*sol(:ncol,:, 69) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 29)*sol(:ncol,:, 99) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 28)*sol(:ncol,:, 69) ! rate_const*CLO*O + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 28)*sol(:ncol,:, 99) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 28)*sol(:ncol,:, 99) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 49)*sol(:ncol,:, 69) ! rate_const*HCL*O + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 49)*sol(:ncol,:, 99) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 54)*sol(:ncol,:, 25) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 54)*sol(:ncol,:, 69) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 54)*sol(:ncol,:, 99) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 95)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 95)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 95)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 95)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 95)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 95)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 95)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 27) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 3)*sol(:ncol,:, 17) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 3)*sol(:ncol,:, 90) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 3)*sol(:ncol,:, 71) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 5)*sol(:ncol,:, 5) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 5)*sol(:ncol,:, 90) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 5)*sol(:ncol,:, 61) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 5)*sol(:ncol,:, 62) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 6)*sol(:ncol,:, 69) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 5)*sol(:ncol,:, 69) ! rate_const*BRO*O + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 5)*sol(:ncol,:, 99) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 45)*sol(:ncol,:, 69) ! rate_const*HBR*O + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 45)*sol(:ncol,:, 99) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 53)*sol(:ncol,:, 69) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 95)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 95)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 95)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 95)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 95)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 39)*sol(:ncol,:, 23) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 39)*sol(:ncol,:, 41) ! rate_const*F*H2 + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 39)*sol(:ncol,:, 103) ! rate_const*F*H2O + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 39)*sol(:ncol,:, 51) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 95)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 95)*sol(:ncol,:, 34) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 16)*sol(:ncol,:, 25) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 16)*sol(:ncol,:, 99) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 18)*sol(:ncol,:, 25) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 18)*sol(:ncol,:, 99) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 19)*sol(:ncol,:, 99) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 20)*sol(:ncol,:, 25) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 20)*sol(:ncol,:, 99) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 24)*sol(:ncol,:, 25) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 24)*sol(:ncol,:, 99) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 46)*sol(:ncol,:, 99) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 47)*sol(:ncol,:, 99) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 48)*sol(:ncol,:, 99) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 95)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 95)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 95)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 95)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 95)*sol(:ncol,:, 48) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 17)*sol(:ncol,:, 63) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 17)*sol(:ncol,:, 69) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 17)*sol(:ncol,:, 99) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 21)*sol(:ncol,:, 90) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 21)*sol(:ncol,:, 61) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 22)*sol(:ncol,:, 99) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 23)*sol(:ncol,:, 99) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 95)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 31)*sol(:ncol,:, 99) ! rate_const*CO*OH + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 35)*sol(:ncol,:, 63) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 35)*sol(:ncol,:, 99) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*OCS*O + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 74)*sol(:ncol,:, 99) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 77)*sol(:ncol,:, 70) ! rate_const*S*O2 + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 80)*sol(:ncol,:, 99) ! rate_const*M*SO2*OH + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 77)*sol(:ncol,:, 71) ! rate_const*S*O3 + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 79)*sol(:ncol,:, 5) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 79)*sol(:ncol,:, 28) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 77)*sol(:ncol,:, 99) ! rate_const*S*OH + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 79)*sol(:ncol,:, 62) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 79)*sol(:ncol,:, 70) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 79)*sol(:ncol,:, 71) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 79)*sol(:ncol,:, 73) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 79)*sol(:ncol,:, 99) ! rate_const*SO*OH + rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 35)*sol(:ncol,:, 99) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 81)*sol(:ncol,:, 103) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 90) ! rate_const*HO2 rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 57) ! rate_const*N2O5 - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 62) ! rate_const*NO2 + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 63) ! rate_const*NO3 rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 57) ! rate_const*N2O5 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 6) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 29) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 6) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 57) ! rate_const*N2O5 - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 29) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 102) ! rate_const*Op2P - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 101) ! rate_const*Op2D - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 102) ! rate_const*Op2P - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 93)*sol(:ncol,:, 89) ! rate_const*NOp*e - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 98)*sol(:ncol,:, 89) ! rate_const*O2p*e - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 92)*sol(:ncol,:, 89) ! rate_const*N2p*e - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 92)*sol(:ncol,:, 70) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*N2p*O - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*N2p*O - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 94)*sol(:ncol,:, 69) ! rate_const*Np*O - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 98)*sol(:ncol,:, 55) ! rate_const*O2p*N - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 98) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 98)*sol(:ncol,:, 61) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 100)*sol(:ncol,:, 32) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 100) ! rate_const*N2*Op - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 100)*sol(:ncol,:, 91) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 100)*sol(:ncol,:, 70) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 101)*sol(:ncol,:, 89) ! rate_const*Op2D*e - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 101) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 101)*sol(:ncol,:, 69) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 101)*sol(:ncol,:, 70) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 102)*sol(:ncol,:, 89) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 102)*sol(:ncol,:, 89) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 102) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 102) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 102)*sol(:ncol,:, 69) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 102) ! rate_const*Op2P + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 101) ! rate_const*Op2D + rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 102) ! rate_const*Op2P + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 93)*sol(:ncol,:, 89) ! rate_const*NOp*e + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 98)*sol(:ncol,:, 89) ! rate_const*O2p*e + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 92)*sol(:ncol,:, 89) ! rate_const*N2p*e + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 92)*sol(:ncol,:, 70) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*N2p*O + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*N2p*O + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 94)*sol(:ncol,:, 69) ! rate_const*Np*O + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 98)*sol(:ncol,:, 55) ! rate_const*O2p*N + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 98) ! rate_const*N2*O2p + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 98)*sol(:ncol,:, 61) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 100)*sol(:ncol,:, 32) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 100) ! rate_const*N2*Op + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 100)*sol(:ncol,:, 91) ! rate_const*Op*N2D + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 100)*sol(:ncol,:, 70) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 101)*sol(:ncol,:, 89) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 101) ! rate_const*N2*Op2D + rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 101)*sol(:ncol,:, 69) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 101)*sol(:ncol,:, 70) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 102)*sol(:ncol,:, 89) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 102)*sol(:ncol,:, 89) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 102) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 102) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 102)*sol(:ncol,:, 69) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_setrxt.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_setrxt.F90 index feb5e03468..58559e229b 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_setrxt.F90 @@ -51,62 +51,63 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,115) = 1.6e-12_r8 rate(:,121) = 1.8e-12_r8 rate(:,125) = 1.8e-12_r8 - rate(:,129) = 7e-13_r8 - rate(:,130) = 5e-12_r8 + rate(:,128) = 1.06e-05_r8 + rate(:,130) = 7e-11_r8 + rate(:,131) = 7e-13_r8 rate(:,139) = 3.5e-12_r8 rate(:,141) = 1.3e-11_r8 rate(:,142) = 2.2e-11_r8 rate(:,143) = 5e-11_r8 - rate(:,178) = 1.7e-13_r8 - rate(:,180) = 2.607e-10_r8 - rate(:,181) = 9.75e-11_r8 - rate(:,182) = 2.07e-10_r8 - rate(:,183) = 2.088e-10_r8 - rate(:,184) = 1.17e-10_r8 - rate(:,185) = 4.644e-11_r8 - rate(:,186) = 1.204e-10_r8 - rate(:,187) = 9.9e-11_r8 - rate(:,188) = 3.3e-12_r8 - rate(:,207) = 4.5e-11_r8 - rate(:,208) = 4.62e-10_r8 - rate(:,209) = 1.2e-10_r8 - rate(:,210) = 9e-11_r8 - rate(:,211) = 3e-11_r8 - rate(:,216) = 2.14e-11_r8 - rate(:,217) = 1.9e-10_r8 - rate(:,230) = 2.57e-10_r8 - rate(:,231) = 1.8e-10_r8 - rate(:,232) = 1.794e-10_r8 - rate(:,233) = 1.3e-10_r8 - rate(:,234) = 7.65e-11_r8 - rate(:,242) = 1.31e-10_r8 - rate(:,243) = 3.5e-11_r8 - rate(:,244) = 9e-12_r8 - rate(:,250) = 2.3e-12_r8 - rate(:,252) = 1.2e-11_r8 - rate(:,253) = 5.7e-11_r8 - rate(:,254) = 2.8e-11_r8 - rate(:,255) = 6.6e-11_r8 - rate(:,256) = 1.4e-11_r8 - rate(:,259) = 1.9e-12_r8 - rate(:,284) = 0.047_r8 - rate(:,285) = 7.7e-05_r8 - rate(:,286) = 0.171_r8 - rate(:,290) = 6e-11_r8 - rate(:,293) = 1e-12_r8 - rate(:,294) = 4e-10_r8 - rate(:,295) = 2e-10_r8 - rate(:,296) = 1e-10_r8 - rate(:,297) = 5e-16_r8 - rate(:,298) = 4.4e-10_r8 - rate(:,299) = 9e-10_r8 - rate(:,301) = 1.3e-10_r8 - rate(:,304) = 8e-10_r8 - rate(:,305) = 5e-12_r8 - rate(:,306) = 7e-10_r8 - rate(:,309) = 4.8e-10_r8 - rate(:,310) = 1e-10_r8 - rate(:,311) = 4e-10_r8 + rate(:,181) = 1.7e-13_r8 + rate(:,183) = 2.607e-10_r8 + rate(:,184) = 9.75e-11_r8 + rate(:,185) = 2.07e-10_r8 + rate(:,186) = 2.088e-10_r8 + rate(:,187) = 1.17e-10_r8 + rate(:,188) = 4.644e-11_r8 + rate(:,189) = 1.204e-10_r8 + rate(:,190) = 9.9e-11_r8 + rate(:,191) = 3.3e-12_r8 + rate(:,210) = 4.5e-11_r8 + rate(:,211) = 4.62e-10_r8 + rate(:,212) = 1.2e-10_r8 + rate(:,213) = 9e-11_r8 + rate(:,214) = 3e-11_r8 + rate(:,219) = 2.14e-11_r8 + rate(:,220) = 1.9e-10_r8 + rate(:,233) = 2.57e-10_r8 + rate(:,234) = 1.8e-10_r8 + rate(:,235) = 1.794e-10_r8 + rate(:,236) = 1.3e-10_r8 + rate(:,237) = 7.65e-11_r8 + rate(:,245) = 1.31e-10_r8 + rate(:,246) = 3.5e-11_r8 + rate(:,247) = 9e-12_r8 + rate(:,253) = 2.3e-12_r8 + rate(:,255) = 1.2e-11_r8 + rate(:,256) = 5.7e-11_r8 + rate(:,257) = 2.8e-11_r8 + rate(:,258) = 6.6e-11_r8 + rate(:,259) = 1.4e-11_r8 + rate(:,262) = 1.9e-12_r8 + rate(:,287) = 0.047_r8 + rate(:,288) = 7.7e-05_r8 + rate(:,289) = 0.171_r8 + rate(:,293) = 6e-11_r8 + rate(:,296) = 1e-12_r8 + rate(:,297) = 4e-10_r8 + rate(:,298) = 2e-10_r8 + rate(:,299) = 1e-10_r8 + rate(:,300) = 5e-16_r8 + rate(:,301) = 4.4e-10_r8 + rate(:,302) = 9e-10_r8 + rate(:,304) = 1.3e-10_r8 + rate(:,307) = 8e-10_r8 + rate(:,308) = 5e-12_r8 + rate(:,309) = 7e-10_r8 + rate(:,312) = 4.8e-10_r8 + rate(:,313) = 1e-10_r8 + rate(:,314) = 4e-10_r8 do n = 1,pver offset = (n-1)*ncol @@ -126,143 +127,142 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,112) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) exp_fac(:) = exp( 200._r8 * itemp(:) ) rate(:,117) = 3e-11_r8 * exp_fac(:) - rate(:,205) = 5.5e-12_r8 * exp_fac(:) - rate(:,240) = 3.8e-12_r8 * exp_fac(:) + rate(:,208) = 5.5e-12_r8 * exp_fac(:) + rate(:,243) = 3.8e-12_r8 * exp_fac(:) rate(:,118) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) rate(:,119) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) rate(:,120) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) exp_fac(:) = exp( 250._r8 * itemp(:) ) rate(:,122) = 4.8e-11_r8 * exp_fac(:) - rate(:,203) = 1.7e-11_r8 * exp_fac(:) + rate(:,206) = 1.7e-11_r8 * exp_fac(:) rate(:,123) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:,124) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,128) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) - rate(:,131) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:,129) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) + rate(:,132) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,132) = 2.9e-12_r8 * exp_fac(:) - rate(:,133) = 1.45e-12_r8 * exp_fac(:) + rate(:,133) = 2.9e-12_r8 * exp_fac(:) rate(:,134) = 1.45e-12_r8 * exp_fac(:) - rate(:,135) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:,135) = 1.45e-12_r8 * exp_fac(:) rate(:,136) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) rate(:,137) = 1.2e-13_r8 * exp_fac(:) - rate(:,163) = 3e-11_r8 * exp_fac(:) + rate(:,166) = 3e-11_r8 * exp_fac(:) exp_fac(:) = exp( 125._r8 * itemp(:) ) rate(:,140) = 1.7e-11_r8 * exp_fac(:) - rate(:,237) = 5.5e-12_r8 * exp_fac(:) + rate(:,240) = 5.5e-12_r8 * exp_fac(:) exp_fac(:) = exp( 260._r8 * itemp(:) ) rate(:,144) = 3.44e-12_r8 * exp_fac(:) - rate(:,196) = 2.3e-12_r8 * exp_fac(:) - rate(:,199) = 8.8e-12_r8 * exp_fac(:) + rate(:,199) = 2.3e-12_r8 * exp_fac(:) + rate(:,202) = 8.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) rate(:,145) = 3e-12_r8 * exp_fac(:) - rate(:,204) = 5.8e-12_r8 * exp_fac(:) + rate(:,207) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) rate(:,147) = 7.26e-11_r8 * exp_fac(:) rate(:,148) = 4.64e-11_r8 * exp_fac(:) - rate(:,155) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,156) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,157) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,158) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,158) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,159) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,160) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,161) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,159) = 1.4e-11_r8 * exp_fac(:) - rate(:,173) = 7.4e-12_r8 * exp_fac(:) - rate(:,160) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,161) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,162) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,164) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,165) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,162) = 1.4e-11_r8 * exp_fac(:) + rate(:,176) = 7.4e-12_r8 * exp_fac(:) + rate(:,163) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,164) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,165) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,167) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,168) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,166) = 2.6e-12_r8 * exp_fac(:) - rate(:,167) = 6.4e-12_r8 * exp_fac(:) - rate(:,197) = 4.1e-13_r8 * exp_fac(:) - rate(:,168) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,169) = 2.6e-12_r8 * exp_fac(:) + rate(:,170) = 6.4e-12_r8 * exp_fac(:) + rate(:,200) = 4.1e-13_r8 * exp_fac(:) + rate(:,171) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,170) = 3.6e-12_r8 * exp_fac(:) - rate(:,219) = 2e-12_r8 * exp_fac(:) - rate(:,171) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,172) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,173) = 3.6e-12_r8 * exp_fac(:) + rate(:,222) = 2e-12_r8 * exp_fac(:) + rate(:,174) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,175) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,174) = 6e-13_r8 * exp_fac(:) - rate(:,194) = 1.5e-12_r8 * exp_fac(:) - rate(:,202) = 1.9e-11_r8 * exp_fac(:) - rate(:,175) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,176) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,177) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,177) = 6e-13_r8 * exp_fac(:) + rate(:,197) = 1.5e-12_r8 * exp_fac(:) + rate(:,205) = 1.9e-11_r8 * exp_fac(:) + rate(:,178) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,179) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,180) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,179) = 3e-12_r8 * exp_fac(:) - rate(:,213) = 1.4e-10_r8 * exp_fac(:) + rate(:,182) = 3e-12_r8 * exp_fac(:) + rate(:,216) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,191) = 1.7e-11_r8 * exp_fac(:) - rate(:,218) = 6.3e-12_r8 * exp_fac(:) - rate(:,192) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,193) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,195) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - rate(:,198) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,201) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,206) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,212) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,194) = 1.7e-11_r8 * exp_fac(:) + rate(:,221) = 6.3e-12_r8 * exp_fac(:) + rate(:,195) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,196) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,198) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,201) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,204) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,209) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,215) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,214) = 1.4e-11_r8 * exp_fac(:) - rate(:,216) = 2.14e-11_r8 * exp_fac(:) - rate(:,217) = 1.9e-10_r8 * exp_fac(:) - rate(:,230) = 2.57e-10_r8 * exp_fac(:) - rate(:,231) = 1.8e-10_r8 * exp_fac(:) - rate(:,232) = 1.794e-10_r8 * exp_fac(:) - rate(:,233) = 1.3e-10_r8 * exp_fac(:) - rate(:,234) = 7.65e-11_r8 * exp_fac(:) - rate(:,242) = 1.31e-10_r8 * exp_fac(:) - rate(:,243) = 3.5e-11_r8 * exp_fac(:) - rate(:,244) = 9e-12_r8 * exp_fac(:) - rate(:,250) = 2.3e-12_r8 * exp_fac(:) - rate(:,252) = 1.2e-11_r8 * exp_fac(:) - rate(:,253) = 5.7e-11_r8 * exp_fac(:) - rate(:,254) = 2.8e-11_r8 * exp_fac(:) - rate(:,255) = 6.6e-11_r8 * exp_fac(:) - rate(:,256) = 1.4e-11_r8 * exp_fac(:) - rate(:,259) = 1.9e-12_r8 * exp_fac(:) - rate(:,284) = 0.047_r8 * exp_fac(:) - rate(:,285) = 7.7e-05_r8 * exp_fac(:) - rate(:,286) = 0.171_r8 * exp_fac(:) - rate(:,290) = 6e-11_r8 * exp_fac(:) - rate(:,293) = 1e-12_r8 * exp_fac(:) - rate(:,294) = 4e-10_r8 * exp_fac(:) - rate(:,295) = 2e-10_r8 * exp_fac(:) - rate(:,296) = 1e-10_r8 * exp_fac(:) - rate(:,297) = 5e-16_r8 * exp_fac(:) - rate(:,298) = 4.4e-10_r8 * exp_fac(:) - rate(:,299) = 9e-10_r8 * exp_fac(:) - rate(:,301) = 1.3e-10_r8 * exp_fac(:) - rate(:,304) = 8e-10_r8 * exp_fac(:) - rate(:,305) = 5e-12_r8 * exp_fac(:) - rate(:,306) = 7e-10_r8 * exp_fac(:) - rate(:,309) = 4.8e-10_r8 * exp_fac(:) - rate(:,310) = 1e-10_r8 * exp_fac(:) - rate(:,311) = 4e-10_r8 * exp_fac(:) - rate(:,215) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) - rate(:,220) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,221) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) - rate(:,222) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) - rate(:,223) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) - rate(:,224) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,225) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,226) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,217) = 1.4e-11_r8 * exp_fac(:) + rate(:,219) = 2.14e-11_r8 * exp_fac(:) + rate(:,220) = 1.9e-10_r8 * exp_fac(:) + rate(:,233) = 2.57e-10_r8 * exp_fac(:) + rate(:,234) = 1.8e-10_r8 * exp_fac(:) + rate(:,235) = 1.794e-10_r8 * exp_fac(:) + rate(:,236) = 1.3e-10_r8 * exp_fac(:) + rate(:,237) = 7.65e-11_r8 * exp_fac(:) + rate(:,245) = 1.31e-10_r8 * exp_fac(:) + rate(:,246) = 3.5e-11_r8 * exp_fac(:) + rate(:,247) = 9e-12_r8 * exp_fac(:) + rate(:,253) = 2.3e-12_r8 * exp_fac(:) + rate(:,255) = 1.2e-11_r8 * exp_fac(:) + rate(:,256) = 5.7e-11_r8 * exp_fac(:) + rate(:,257) = 2.8e-11_r8 * exp_fac(:) + rate(:,258) = 6.6e-11_r8 * exp_fac(:) + rate(:,259) = 1.4e-11_r8 * exp_fac(:) + rate(:,262) = 1.9e-12_r8 * exp_fac(:) + rate(:,287) = 0.047_r8 * exp_fac(:) + rate(:,288) = 7.7e-05_r8 * exp_fac(:) + rate(:,289) = 0.171_r8 * exp_fac(:) + rate(:,293) = 6e-11_r8 * exp_fac(:) + rate(:,296) = 1e-12_r8 * exp_fac(:) + rate(:,297) = 4e-10_r8 * exp_fac(:) + rate(:,298) = 2e-10_r8 * exp_fac(:) + rate(:,299) = 1e-10_r8 * exp_fac(:) + rate(:,300) = 5e-16_r8 * exp_fac(:) + rate(:,301) = 4.4e-10_r8 * exp_fac(:) + rate(:,302) = 9e-10_r8 * exp_fac(:) + rate(:,304) = 1.3e-10_r8 * exp_fac(:) + rate(:,307) = 8e-10_r8 * exp_fac(:) + rate(:,308) = 5e-12_r8 * exp_fac(:) + rate(:,309) = 7e-10_r8 * exp_fac(:) + rate(:,312) = 4.8e-10_r8 * exp_fac(:) + rate(:,313) = 1e-10_r8 * exp_fac(:) + rate(:,314) = 4e-10_r8 * exp_fac(:) + rate(:,218) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) + rate(:,223) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,224) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,225) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) + rate(:,226) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) + rate(:,227) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) + rate(:,228) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) + rate(:,229) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,227) = 1.25e-12_r8 * exp_fac(:) - rate(:,236) = 3.4e-11_r8 * exp_fac(:) - rate(:,228) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,229) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,235) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,238) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) - rate(:,239) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) - rate(:,241) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - rate(:,246) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,247) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) - rate(:,248) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,249) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,257) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,258) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) - rate(:,260) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) + rate(:,230) = 1.25e-12_r8 * exp_fac(:) + rate(:,239) = 3.4e-11_r8 * exp_fac(:) + rate(:,231) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,232) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,238) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,241) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,242) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) + rate(:,244) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,249) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,250) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) + rate(:,251) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,252) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,260) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,261) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) + rate(:,263) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) @@ -298,19 +298,19 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,169), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,172), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-32_r8 * itemp(:)**3.6_r8 kinf(:) = 3.7e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,189), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,192), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.2e-31_r8 * itemp(:)**3.2_r8 kinf(:) = 6.9e-12_r8 * itemp(:)**2.9_r8 - call jpl( rate(:,200), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,203), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.9e-31_r8 * itemp(:)**4.1_r8 kinf(:) = 1.7e-12_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,251), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,254), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -353,24 +353,24 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,105) = 8e-14_r8 rate(:n,106) = 3.9e-17_r8 rate(:n,113) = 6.9e-12_r8 - rate(:n,129) = 7e-13_r8 - rate(:n,130) = 5e-12_r8 - rate(:n,284) = 0.047_r8 - rate(:n,285) = 7.7e-05_r8 - rate(:n,286) = 0.171_r8 - rate(:n,290) = 6e-11_r8 - rate(:n,293) = 1e-12_r8 - rate(:n,294) = 4e-10_r8 - rate(:n,295) = 2e-10_r8 - rate(:n,296) = 1e-10_r8 - rate(:n,298) = 4.4e-10_r8 - rate(:n,301) = 1.3e-10_r8 - rate(:n,304) = 8e-10_r8 - rate(:n,305) = 5e-12_r8 - rate(:n,306) = 7e-10_r8 - rate(:n,309) = 4.8e-10_r8 - rate(:n,310) = 1e-10_r8 - rate(:n,311) = 4e-10_r8 + rate(:n,130) = 7e-11_r8 + rate(:n,131) = 7e-13_r8 + rate(:n,287) = 0.047_r8 + rate(:n,288) = 7.7e-05_r8 + rate(:n,289) = 0.171_r8 + rate(:n,293) = 6e-11_r8 + rate(:n,296) = 1e-12_r8 + rate(:n,297) = 4e-10_r8 + rate(:n,298) = 2e-10_r8 + rate(:n,299) = 1e-10_r8 + rate(:n,301) = 4.4e-10_r8 + rate(:n,304) = 1.3e-10_r8 + rate(:n,307) = 8e-10_r8 + rate(:n,308) = 5e-12_r8 + rate(:n,309) = 7e-10_r8 + rate(:n,312) = 4.8e-10_r8 + rate(:n,313) = 1e-10_r8 + rate(:n,314) = 4e-10_r8 do k = 1,kbot offset = (k-1)*ncol @@ -391,8 +391,7 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,122) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) rate(:n,123) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:n,124) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,131) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,135) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:n,132) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) rate(:n,136) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) rate(:n,144) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) rate(:n,145) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) diff --git a/src/chemistry/pp_waccm_ma_mam5/mo_sim_dat.F90 b/src/chemistry/pp_waccm_ma_mam5/mo_sim_dat.F90 index adb157e52e..9f7f99c85b 100644 --- a/src/chemistry/pp_waccm_ma_mam5/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_ma_mam5/mo_sim_dat.F90 @@ -34,7 +34,7 @@ subroutine set_sim_dat clscnt(:) = (/ 1, 0, 0, 102, 0 /) cls_rxt_cnt(:,1) = (/ 0, 0, 0, 1 /) - cls_rxt_cnt(:,4) = (/ 8, 112, 191, 102 /) + cls_rxt_cnt(:,4) = (/ 8, 113, 193, 102 /) solsym(:103) = (/ 'bc_a1 ','bc_a4 ','BR ','BRCL ','BRO ', & 'BRONO2 ','BRY ','CCL4 ','CF2CLBR ','CF3BR ', & @@ -141,17 +141,17 @@ subroutine set_sim_dat 610, 640, 683, 726, 752, 785, 808, 858, 882, 906, & 931, 959 /) - extfrc_lst(: 24) = (/ 'so4_a2 ','DMS ','bc_a4 ','num_a1 ','num_a2 ', & - 'num_a4 ','num_a5 ','pom_a1 ','pom_a4 ','so4_a1 ', & - 'so4_a5 ','CO ','NO ','NO2 ','SO2 ', & - 'bc_a1 ','N ','N2D ','N2p ','Op ', & - 'e ','Np ','O2p ','OH ' /) + extfrc_lst(: 22) = (/ 'CO ','bc_a1 ','NO ','pom_a1 ','DMS ', & + 'num_a1 ','num_a2 ','so4_a1 ','so4_a2 ','num_a4 ', & + 'pom_a4 ','bc_a4 ','SO2 ','NO2 ','O2p ', & + 'N2p ','Np ','N2D ','Op ','N ', & + 'OH ','e ' /) - frc_from_dataset(: 24) = (/ .true., .true., .true., .true., .true., & + frc_from_dataset(: 22) = (/ .true., .true., .true., .true., .true., & .true., .true., .true., .true., .true., & - .true., .true., .true., .true., .true., & - .true., .false., .false., .false., .false., & - .false., .false., .false., .false. /) + .true., .true., .true., .true., .false., & + .false., .false., .false., .false., .false., & + .false., .false. /) inv_lst(: 2) = (/ 'M ', 'N2 ' /) @@ -238,11 +238,11 @@ subroutine set_sim_dat 'OH_H2O2 ', 'OH_HO2 ', & 'OH_O ', 'OH_O3 ', & 'OH_OH ', 'OH_OH_M ', & - 'usr_HO2_HO2 ', 'HO2NO2_OH ', & - 'N2D_O ', 'N2D_O2 ', & - 'N_NO ', 'N_NO2a ', & - 'N_NO2b ', 'N_NO2c ', & - 'N_O2 ', 'NO2_O ', & + 'usr_HO2_HO2 ', 'agn2d ', & + 'HO2NO2_OH ', 'N2D_NO ', & + 'N2D_O ', 'N_NO ', & + 'N_NO2a ', 'N_NO2b ', & + 'N_NO2c ', 'NO2_O ', & 'NO2_O3 ', 'NO2_O_M ', & 'NO3_HO2 ', 'NO3_NO ', & 'NO3_O ', 'NO3_OH ', & @@ -251,86 +251,87 @@ subroutine set_sim_dat 'O1D_N2Oa ', 'O1D_N2Ob ', & 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & 'tag_NO2_OH ', 'usr_HNO3_OH ', & - 'usr_HO2NO2_M ', 'usr_N2O5_M ', & - 'CL_CH2O ', 'CL_CH4 ', & - 'CL_H2 ', 'CL_H2O2 ', & - 'CL_HO2a ', 'CL_HO2b ', & - 'CL_O3 ', 'CLO_CH3O2 ', & - 'CLO_CLOa ', 'CLO_CLOb ', & - 'CLO_CLOc ', 'CLO_HO2 ', & - 'CLO_NO ', 'CLONO2_CL ', & - 'CLO_NO2_M ', 'CLONO2_O ', & - 'CLONO2_OH ', 'CLO_O ', & - 'CLO_OHa ', 'CLO_OHb ', & - 'HCL_O ', 'HCL_OH ', & - 'HOCL_CL ', 'HOCL_O ', & - 'HOCL_OH ', 'O1D_CCL4 ', & - 'O1D_CF2CLBR ', 'O1D_CFC11 ', & - 'O1D_CFC113 ', 'O1D_CFC114 ', & - 'O1D_CFC115 ', 'O1D_CFC12 ', & - 'O1D_HCLa ', 'O1D_HCLb ', & - 'tag_CLO_CLO_M ', 'usr_CL2O2_M ', & - 'BR_CH2O ', 'BR_HO2 ', & - 'BR_O3 ', 'BRO_BRO ', & - 'BRO_CLOa ', 'BRO_CLOb ', & - 'BRO_CLOc ', 'BRO_HO2 ', & - 'BRO_NO ', 'BRO_NO2_M ' /) - rxt_tag_lst( 201: 311) = (/ 'BRONO2_O ', 'BRO_O ', & - 'BRO_OH ', 'HBR_O ', & - 'HBR_OH ', 'HOBR_O ', & - 'O1D_CF3BR ', 'O1D_CHBR3 ', & - 'O1D_H2402 ', 'O1D_HBRa ', & - 'O1D_HBRb ', 'F_CH4 ', & - 'F_H2 ', 'F_H2O ', & - 'F_HNO3 ', 'O1D_COF2 ', & - 'O1D_COFCL ', 'CH2BR2_CL ', & - 'CH2BR2_OH ', 'CH3BR_CL ', & - 'CH3BR_OH ', 'CH3CCL3_OH ', & - 'CH3CL_CL ', 'CH3CL_OH ', & - 'CHBR3_CL ', 'CHBR3_OH ', & - 'HCFC141B_OH ', 'HCFC142B_OH ', & - 'HCFC22_OH ', 'O1D_CH2BR2 ', & - 'O1D_CH3BR ', 'O1D_HCFC141B ', & - 'O1D_HCFC142B ', 'O1D_HCFC22 ', & - 'CH2O_NO3 ', 'CH2O_O ', & - 'CH2O_OH ', 'CH3O2_HO2 ', & - 'CH3O2_NO ', 'CH3OOH_OH ', & - 'CH4_OH ', 'O1D_CH4a ', & - 'O1D_CH4b ', 'O1D_CH4c ', & - 'usr_CO_OH ', 'DMS_NO3 ', & - 'DMS_OHa ', 'OCS_O ', & - 'OCS_OH ', 'S_O2 ', & - 'SO2_OH_M ', 'S_O3 ', & - 'SO_BRO ', 'SO_CLO ', & - 'S_OH ', 'SO_NO2 ', & - 'SO_O2 ', 'SO_O3 ', & - 'SO_OCLO ', 'SO_OH ', & - 'usr_DMS_OH ', 'usr_SO3_H2O ', & - 'usr_HO2_aer ', 'usr_N2O5_aer ', & - 'usr_NO2_aer ', 'usr_NO3_aer ', & - 'het1 ', 'het10 ', & - 'het11 ', 'het12 ', & - 'het13 ', 'het14 ', & - 'het15 ', 'het16 ', & - 'het17 ', 'het2 ', & - 'het3 ', 'het4 ', & - 'het5 ', 'het6 ', & - 'het7 ', 'het8 ', & - 'het9 ', 'ag247nm ', & - 'ag373nm ', 'ag732nm ', & - 'elec1 ', 'elec2 ', & - 'elec3 ', 'ion_N2p_O2 ', & - 'ion_N2p_Oa ', 'ion_N2p_Ob ', & - 'ion_Np_O ', 'ion_Np_O2a ', & - 'ion_Np_O2b ', 'ion_O2p_N ', & - 'ion_O2p_N2 ', 'ion_O2p_NO ', & - 'ion_Op_CO2 ', 'ion_Op_N2 ', & - 'ion_Op_N2D ', 'ion_Op_O2 ', & - 'Op2D_e ', 'Op2D_N2 ', & - 'Op2D_O ', 'Op2D_O2 ', & - 'Op2P_ea ', 'Op2P_eb ', & - 'Op2P_N2a ', 'Op2P_N2b ', & - 'Op2P_O ' /) + 'usr_HO2NO2_M ', 'usr_N2D_e ', & + 'usr_N2D_O2 ', 'usr_N2O5_M ', & + 'usr_N_O2 ', 'CL_CH2O ', & + 'CL_CH4 ', 'CL_H2 ', & + 'CL_H2O2 ', 'CL_HO2a ', & + 'CL_HO2b ', 'CL_O3 ', & + 'CLO_CH3O2 ', 'CLO_CLOa ', & + 'CLO_CLOb ', 'CLO_CLOc ', & + 'CLO_HO2 ', 'CLO_NO ', & + 'CLONO2_CL ', 'CLO_NO2_M ', & + 'CLONO2_O ', 'CLONO2_OH ', & + 'CLO_O ', 'CLO_OHa ', & + 'CLO_OHb ', 'HCL_O ', & + 'HCL_OH ', 'HOCL_CL ', & + 'HOCL_O ', 'HOCL_OH ', & + 'O1D_CCL4 ', 'O1D_CF2CLBR ', & + 'O1D_CFC11 ', 'O1D_CFC113 ', & + 'O1D_CFC114 ', 'O1D_CFC115 ', & + 'O1D_CFC12 ', 'O1D_HCLa ', & + 'O1D_HCLb ', 'tag_CLO_CLO_M ', & + 'usr_CL2O2_M ', 'BR_CH2O ', & + 'BR_HO2 ', 'BR_O3 ', & + 'BRO_BRO ', 'BRO_CLOa ', & + 'BRO_CLOb ', 'BRO_CLOc ' /) + rxt_tag_lst( 201: 314) = (/ 'BRO_HO2 ', 'BRO_NO ', & + 'BRO_NO2_M ', 'BRONO2_O ', & + 'BRO_O ', 'BRO_OH ', & + 'HBR_O ', 'HBR_OH ', & + 'HOBR_O ', 'O1D_CF3BR ', & + 'O1D_CHBR3 ', 'O1D_H2402 ', & + 'O1D_HBRa ', 'O1D_HBRb ', & + 'F_CH4 ', 'F_H2 ', & + 'F_H2O ', 'F_HNO3 ', & + 'O1D_COF2 ', 'O1D_COFCL ', & + 'CH2BR2_CL ', 'CH2BR2_OH ', & + 'CH3BR_CL ', 'CH3BR_OH ', & + 'CH3CCL3_OH ', 'CH3CL_CL ', & + 'CH3CL_OH ', 'CHBR3_CL ', & + 'CHBR3_OH ', 'HCFC141B_OH ', & + 'HCFC142B_OH ', 'HCFC22_OH ', & + 'O1D_CH2BR2 ', 'O1D_CH3BR ', & + 'O1D_HCFC141B ', 'O1D_HCFC142B ', & + 'O1D_HCFC22 ', 'CH2O_NO3 ', & + 'CH2O_O ', 'CH2O_OH ', & + 'CH3O2_HO2 ', 'CH3O2_NO ', & + 'CH3OOH_OH ', 'CH4_OH ', & + 'O1D_CH4a ', 'O1D_CH4b ', & + 'O1D_CH4c ', 'usr_CO_OH ', & + 'DMS_NO3 ', 'DMS_OHa ', & + 'OCS_O ', 'OCS_OH ', & + 'S_O2 ', 'SO2_OH_M ', & + 'S_O3 ', 'SO_BRO ', & + 'SO_CLO ', 'S_OH ', & + 'SO_NO2 ', 'SO_O2 ', & + 'SO_O3 ', 'SO_OCLO ', & + 'SO_OH ', 'usr_DMS_OH ', & + 'usr_SO3_H2O ', 'usr_HO2_aer ', & + 'usr_N2O5_aer ', 'usr_NO2_aer ', & + 'usr_NO3_aer ', 'het1 ', & + 'het10 ', 'het11 ', & + 'het12 ', 'het13 ', & + 'het14 ', 'het15 ', & + 'het16 ', 'het17 ', & + 'het2 ', 'het3 ', & + 'het4 ', 'het5 ', & + 'het6 ', 'het7 ', & + 'het8 ', 'het9 ', & + 'ag247nm ', 'ag373nm ', & + 'ag732nm ', 'elec1 ', & + 'elec2 ', 'elec3 ', & + 'ion_N2p_O2 ', 'ion_N2p_Oa ', & + 'ion_N2p_Ob ', 'ion_Np_O ', & + 'ion_Np_O2a ', 'ion_Np_O2b ', & + 'ion_O2p_N ', 'ion_O2p_N2 ', & + 'ion_O2p_NO ', 'ion_Op_CO2 ', & + 'ion_Op_N2 ', 'ion_Op_N2D ', & + 'ion_Op_O2 ', 'Op2D_e ', & + 'Op2D_N2 ', 'Op2D_O ', & + 'Op2D_O2 ', 'Op2P_ea ', & + 'Op2P_eb ', 'Op2P_N2a ', & + 'Op2P_N2b ', 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -362,7 +363,7 @@ subroutine set_sim_dat 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, & 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, & 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, & - 311 /) + 311, 312, 313, 314 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -477,24 +478,26 @@ subroutine set_sim_dat 102, 104, 105, 106, 107, & 108, 109, 110, 113, 116, & 117, 118, 119, 122, 123, & - 124, 127, 129, 130, 131, & - 135, 136, 144, 145, 284, & - 285, 286, 287, 288, 289, & - 290, 291, 293, 294, 295, & - 296, 298, 300, 301, 302, & - 303, 304, 305, 306, 307, & - 308, 309, 310, 311 /) + 124, 127, 130, 131, 132, & + 136, 144, 145, 154, 155, & + 157, 287, 288, 289, 290, & + 291, 292, 293, 294, 296, & + 297, 298, 299, 301, 303, & + 304, 305, 306, 307, 308, & + 309, 310, 311, 312, 313, & + 314 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & - 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & - 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & - 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & - 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & - 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & - 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) + 165.300000_r8, 165.510000_r8, 543.130000_r8, 229.610000_r8, 313.750000_r8, & + 193.020000_r8, 34.470000_r8, 199.170000_r8, 229.610000_r8, 177.510000_r8, & + 133.750000_r8, 483.390000_r8, 321.300000_r8, 163.060000_r8, 82.389000_r8, & + 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & + 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & + 139.900000_r8, 150.110000_r8, 319.370000_r8, 128.320000_r8, 319.360000_r8, & + 469.400000_r8, 163.060000_r8, 482.430000_r8, 291.380000_r8, 67.540000_r8, & + 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -503,25 +506,26 @@ subroutine set_sim_dat num_rnts(:) = (/ 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, & 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 3, 2, 1, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & 2, 2, 2, 2, 3, 2, 2, 3, 3, 3, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & + 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, & + 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, & + 2, 2, 1, 1, 2, 1, 1, 1, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, & - 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, & - 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 /) + 2, 2, 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_mad_mam5/chem_mech.doc b/src/chemistry/pp_waccm_mad_mam5/chem_mech.doc index ef13b8492e..d706022147 100644 --- a/src/chemistry/pp_waccm_mad_mam5/chem_mech.doc +++ b/src/chemistry/pp_waccm_mad_mam5/chem_mech.doc @@ -728,235 +728,235 @@ Class List ki=2.60E-11 f=0.60 usr_HO2_HO2 (318) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (422) - HO2NO2_OH (319) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (423) - N2D_O (320) N2D + O -> N + O rate = 7.00E-13 (424) - N2D_O2 (321) N2D + O2 -> NO + O1D rate = 5.00E-12 (425) + agn2d (319) N2D -> N rate = 1.06E-05 (423) + HO2NO2_OH (320) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (424) + N2D_NO (321) N2D + NO -> N2 + O rate = 7.00E-11 (425) N_NO (322) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (426) N_NO2a (323) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (427) N_NO2b (324) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (428) N_NO2c (325) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (429) - N_O2 (326) N + O2 -> NO + O rate = 3.30E-12*exp( -3150./t) (430) - NO2_O (327) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (431) - NO2_O3 (328) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (432) - NO2_O_M (329) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (433) + NO2_O (326) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (430) + NO2_O3 (327) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (431) + NO2_O_M (328) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (432) ki=2.20E-11*(300/t)**0.70 f=0.60 - NO3_HO2 (330) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (434) - NO3_NO (331) NO3 + NO -> 2*NO2 rate = 1.70E-11*exp( 125./t) (435) - NO3_O (332) NO3 + O -> NO2 + O2 rate = 1.30E-11 (436) - NO3_OH (333) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (437) - N_OH (334) N + OH -> NO + H rate = 5.00E-11 (438) - NO_HO2 (335) NO + HO2 -> NO2 + OH rate = 3.44E-12*exp( 260./t) (439) - NO_O3 (336) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (440) - NO_O_M (337) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (441) + NO3_HO2 (329) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (433) + NO3_NO (330) NO3 + NO -> 2*NO2 rate = 1.70E-11*exp( 125./t) (434) + NO3_O (331) NO3 + O -> NO2 + O2 rate = 1.30E-11 (435) + NO3_OH (332) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (436) + N_OH (333) N + OH -> NO + H rate = 5.00E-11 (437) + NO_HO2 (334) NO + HO2 -> NO2 + OH rate = 3.44E-12*exp( 260./t) (438) + NO_O3 (335) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (439) + NO_O_M (336) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (440) ki=3.00E-11 f=0.60 - O1D_N2Oa (338) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (442) - O1D_N2Ob (339) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (443) - tag_NO2_HO2 (340) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (444) + O1D_N2Oa (337) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (441) + O1D_N2Ob (338) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (442) + tag_NO2_HO2 (339) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (443) ki=4.00E-12*(300/t)**0.30 f=0.60 - tag_NO2_NO3 (341) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (445) + tag_NO2_NO3 (340) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (444) ki=1.60E-12*(300/t)**-0.10 f=0.60 - tag_NO2_OH (342) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (446) + tag_NO2_OH (341) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (445) ki=2.80E-11 f=0.60 - usr_HNO3_OH (343) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (447) - usr_HO2NO2_M (344) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (448) - usr_N2O5_M (345) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (449) - CL_CH2O (346) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (450) - CL_CH4 (347) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (451) - CL_H2 (348) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (452) - CL_H2O2 (349) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (453) - CL_HO2a (350) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (454) - CL_HO2b (351) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (455) - CL_O3 (352) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (456) - CLO_CH3O2 (353) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (457) - CLO_CLOa (354) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (458) - CLO_CLOb (355) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (459) - CLO_CLOc (356) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (460) - CLO_HO2 (357) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (461) - CLO_NO (358) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (462) - CLONO2_CL (359) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (463) - CLO_NO2_M (360) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (464) + usr_HNO3_OH (342) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (446) + usr_HO2NO2_M (343) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (447) + usr_N2D_e (344) N2D + e -> N + e rate = ** User defined ** (448) + usr_N2D_O2 (345) N2D + O2 -> NO + O1D rate = ** User defined ** (449) + usr_N2O5_M (346) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (450) + usr_N_O2 (347) N + O2 -> NO + O rate = ** User defined ** (451) + CL_CH2O (348) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (452) + CL_CH4 (349) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (453) + CL_H2 (350) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (454) + CL_H2O2 (351) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (455) + CL_HO2a (352) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (456) + CL_HO2b (353) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (457) + CL_O3 (354) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (458) + CLO_CH3O2 (355) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (459) + CLO_CLOa (356) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (460) + CLO_CLOb (357) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (461) + CLO_CLOc (358) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (462) + CLO_HO2 (359) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (463) + CLO_NO (360) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (464) + CLONO2_CL (361) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (465) + CLO_NO2_M (362) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (466) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O (361) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (465) - CLONO2_OH (362) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (466) - CLO_O (363) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (467) - CLO_OHa (364) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (468) - CLO_OHb (365) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (469) - HCL_O (366) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (470) - HCL_OH (367) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (471) - HOCL_CL (368) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (472) - HOCL_O (369) HOCL + O -> CLO + OH rate = 1.70E-13 (473) - HOCL_OH (370) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (474) - O1D_CCL4 (371) O1D + CCL4 -> 4*CL rate = 2.61E-10 (475) - O1D_CF2CLBR (372) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (476) - O1D_CFC11 (373) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (477) - O1D_CFC113 (374) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (478) - O1D_CFC114 (375) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (479) - O1D_CFC115 (376) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (480) - O1D_CFC12 (377) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (481) - O1D_HCLa (378) O1D + HCL -> CL + OH rate = 9.90E-11 (482) - O1D_HCLb (379) O1D + HCL -> CLO + H rate = 3.30E-12 (483) - tag_CLO_CLO_M (380) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (484) + CLONO2_O (363) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (467) + CLONO2_OH (364) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (468) + CLO_O (365) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (469) + CLO_OHa (366) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (470) + CLO_OHb (367) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (471) + HCL_O (368) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (472) + HCL_OH (369) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (473) + HOCL_CL (370) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (474) + HOCL_O (371) HOCL + O -> CLO + OH rate = 1.70E-13 (475) + HOCL_OH (372) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (476) + O1D_CCL4 (373) O1D + CCL4 -> 4*CL rate = 2.61E-10 (477) + O1D_CF2CLBR (374) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (478) + O1D_CFC11 (375) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (479) + O1D_CFC113 (376) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (480) + O1D_CFC114 (377) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (481) + O1D_CFC115 (378) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (482) + O1D_CFC12 (379) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (483) + O1D_HCLa (380) O1D + HCL -> CL + OH rate = 9.90E-11 (484) + O1D_HCLb (381) O1D + HCL -> CLO + H rate = 3.30E-12 (485) + tag_CLO_CLO_M (382) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (486) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M (381) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (485) - BR_CH2O (382) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (486) - BR_HO2 (383) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (487) - BR_O3 (384) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (488) - BRO_BRO (385) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (489) - BRO_CLOa (386) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (490) - BRO_CLOb (387) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (491) - BRO_CLOc (388) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (492) - BRO_HO2 (389) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (493) - BRO_NO (390) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (494) - BRO_NO2_M (391) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (495) + usr_CL2O2_M (383) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (487) + BR_CH2O (384) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (488) + BR_HO2 (385) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (489) + BR_O3 (386) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (490) + BRO_BRO (387) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (491) + BRO_CLOa (388) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (492) + BRO_CLOb (389) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (493) + BRO_CLOc (390) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (494) + BRO_HO2 (391) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (495) + BRO_NO (392) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (496) + BRO_NO2_M (393) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (497) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (392) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (496) - BRO_O (393) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (497) - BRO_OH (394) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (498) - HBR_O (395) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (499) - HBR_OH (396) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (500) - HOBR_O (397) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (501) - O1D_CF3BR (398) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (502) - O1D_CHBR3 (399) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (503) - O1D_H2402 (400) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (504) - O1D_HBRa (401) O1D + HBR -> BR + OH rate = 9.00E-11 (505) - O1D_HBRb (402) O1D + HBR -> BRO + H rate = 3.00E-11 (506) - F_CH4 (403) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (507) - F_H2 (404) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (508) - F_H2O (405) F + H2O -> HF + OH rate = 1.40E-11 (509) - F_HNO3 (406) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (510) - O1D_COF2 (407) O1D + COF2 -> 2*F rate = 2.14E-11 (511) - O1D_COFCL (408) O1D + COFCL -> F + CL rate = 1.90E-10 (512) - CH2BR2_CL (409) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (513) - CH2BR2_OH (410) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (514) - CH3BR_CL (411) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (515) - CH3BR_OH (412) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (516) - CH3CCL3_OH (413) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (517) - CH3CL_CL (414) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (518) - CH3CL_OH (415) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (519) - CHBR3_CL (416) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (520) - CHBR3_OH (417) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (521) - HCFC141B_OH (418) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (522) - HCFC142B_OH (419) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (523) - HCFC22_OH (420) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (524) - O1D_CH2BR2 (421) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (525) - O1D_CH3BR (422) O1D + CH3BR -> BR rate = 1.80E-10 (526) - O1D_HCFC141B (423) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (527) - O1D_HCFC142B (424) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (528) - O1D_HCFC22 (425) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (529) - CH2O_NO3 (426) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (530) - CH2O_O (427) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (531) - CH2O_OH (428) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (532) - CH3O2_HO2 (429) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (533) - CH3O2_NO (430) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (534) - CH3OOH_OH (431) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (535) - CH4_OH (432) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (536) - O1D_CH4a (433) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (537) - O1D_CH4b (434) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (538) - O1D_CH4c (435) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (539) - usr_CO_OH (436) CO + OH -> CO2 + HO2 rate = ** User defined ** (540) - DMS_NO3 (437) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (541) - DMS_OHa (438) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (542) - OCS_O (439) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (543) - OCS_OH (440) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (544) - S_O2 (441) S + O2 -> SO + O rate = 2.30E-12 (545) - SO2_OH_M (442) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (546) + BRONO2_O (394) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (498) + BRO_O (395) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (499) + BRO_OH (396) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (500) + HBR_O (397) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (501) + HBR_OH (398) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (502) + HOBR_O (399) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (503) + O1D_CF3BR (400) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (504) + O1D_CHBR3 (401) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (505) + O1D_H2402 (402) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (506) + O1D_HBRa (403) O1D + HBR -> BR + OH rate = 9.00E-11 (507) + O1D_HBRb (404) O1D + HBR -> BRO + H rate = 3.00E-11 (508) + F_CH4 (405) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (509) + F_H2 (406) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (510) + F_H2O (407) F + H2O -> HF + OH rate = 1.40E-11 (511) + F_HNO3 (408) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (512) + O1D_COF2 (409) O1D + COF2 -> 2*F rate = 2.14E-11 (513) + O1D_COFCL (410) O1D + COFCL -> F + CL rate = 1.90E-10 (514) + CH2BR2_CL (411) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (515) + CH2BR2_OH (412) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (516) + CH3BR_CL (413) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (517) + CH3BR_OH (414) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (518) + CH3CCL3_OH (415) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (519) + CH3CL_CL (416) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (520) + CH3CL_OH (417) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (521) + CHBR3_CL (418) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (522) + CHBR3_OH (419) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (523) + HCFC141B_OH (420) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (524) + HCFC142B_OH (421) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (525) + HCFC22_OH (422) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (526) + O1D_CH2BR2 (423) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (527) + O1D_CH3BR (424) O1D + CH3BR -> BR rate = 1.80E-10 (528) + O1D_HCFC141B (425) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (529) + O1D_HCFC142B (426) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (530) + O1D_HCFC22 (427) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (531) + CH2O_NO3 (428) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (532) + CH2O_O (429) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (533) + CH2O_OH (430) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (534) + CH3O2_HO2 (431) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (535) + CH3O2_NO (432) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (536) + CH3OOH_OH (433) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (537) + CH4_OH (434) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (538) + O1D_CH4a (435) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (539) + O1D_CH4b (436) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (540) + O1D_CH4c (437) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (541) + usr_CO_OH (438) CO + OH -> CO2 + HO2 rate = ** User defined ** (542) + DMS_NO3 (439) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (543) + DMS_OHa (440) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (544) + OCS_O (441) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (545) + OCS_OH (442) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (546) + S_O2 (443) S + O2 -> SO + O rate = 2.30E-12 (547) + SO2_OH_M (444) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (548) ki=1.70E-12*(300/t)**-0.20 f=0.60 - S_O3 (443) S + O3 -> SO + O2 rate = 1.20E-11 (547) - SO_BRO (444) SO + BRO -> SO2 + BR rate = 5.70E-11 (548) - SO_CLO (445) SO + CLO -> SO2 + CL rate = 2.80E-11 (549) - S_OH (446) S + OH -> SO + H rate = 6.60E-11 (550) - SO_NO2 (447) SO + NO2 -> SO2 + NO rate = 1.40E-11 (551) - SO_O2 (448) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (552) - SO_O3 (449) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (553) - SO_OCLO (450) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (554) - SO_OH (451) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (555) - usr_DMS_OH (452) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (556) - usr_SO3_H2O (453) SO3 + H2O -> H2SO4 rate = ** User defined ** (557) - usr_HO2_aer (454) HO2 -> 0.5*H2O2 rate = ** User defined ** (558) - usr_N2O5_aer (455) N2O5 -> 2*HNO3 rate = ** User defined ** (559) - usr_NO2_aer (456) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (560) - usr_NO3_aer (457) NO3 -> HNO3 rate = ** User defined ** (561) - het1 (458) N2O5 -> 2*HNO3 rate = ** User defined ** (562) - het10 (459) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (563) - het11 (460) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (564) - het12 (461) N2O5 -> 2*HNO3 rate = ** User defined ** (565) - het13 (462) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (566) - het14 (463) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (567) - het15 (464) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (568) - het16 (465) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (569) - het17 (466) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (570) - het2 (467) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (571) - het3 (468) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (572) - het4 (469) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (573) - het5 (470) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (574) - het6 (471) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (575) - het7 (472) N2O5 -> 2*HNO3 rate = ** User defined ** (576) - het8 (473) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (577) - het9 (474) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (578) - ag247nm (475) Op2P -> Op rate = 4.70E-02 (579) - ag373nm (476) Op2D -> Op rate = 7.70E-05 (580) - ag732nm (477) Op2P -> Op2D rate = 1.71E-01 (581) - elec1 (478) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (582) - elec2 (479) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (583) - elec3 (480) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (584) - ion_N2p_O2 (481) N2p + O2 -> O2p + N2 rate = 6.00E-11 (585) - ion_N2p_Oa (482) N2p + O -> NOp + N2D rate = ** User defined ** (586) - ion_N2p_Ob (483) N2p + O -> Op + N2 rate = ** User defined ** (587) - ion_Np_O (484) Np + O -> Op + N rate = 1.00E-12 (588) - ion_Np_O2a (485) Np + O2 -> O2p + N rate = 4.00E-10 (589) - ion_Np_O2b (486) Np + O2 -> NOp + O rate = 2.00E-10 (590) - ion_O2p_N (487) O2p + N -> NOp + O rate = 1.00E-10 (591) - ion_O2p_N2 (488) O2p + N2 -> NOp + NO rate = 5.00E-16 (592) - ion_O2p_NO (489) O2p + NO -> NOp + O2 rate = 4.40E-10 (593) - ion_Op_CO2 (490) Op + CO2 -> O2p + CO rate = 9.00E-10 (594) - ion_Op_N2 (491) Op + N2 -> NOp + N rate = ** User defined ** (595) - ion_Op_N2D (492) Op + N2D -> Np + O rate = 1.30E-10 (596) - ion_Op_O2 (493) Op + O2 -> O2p + O rate = ** User defined ** (597) - Op2D_e (494) Op2D + e -> Op + e rate = ** User defined ** (598) - Op2D_N2 (495) Op2D + N2 -> N2p + O rate = 8.00E-10 (599) - Op2D_O (496) Op2D + O -> Op + O rate = 5.00E-12 (600) - Op2D_O2 (497) Op2D + O2 -> O2p + O rate = 7.00E-10 (601) - Op2P_ea (498) Op2P + e -> Op2D + e rate = ** User defined ** (602) - Op2P_eb (499) Op2P + e -> Op + e rate = ** User defined ** (603) - Op2P_N2a (500) Op2P + N2 -> N2p + O rate = 4.80E-10 (604) - Op2P_N2b (501) Op2P + N2 -> Np + NO rate = 1.00E-10 (605) - Op2P_O (502) Op2P + O -> Op + O rate = 4.00E-10 (606) + S_O3 (445) S + O3 -> SO + O2 rate = 1.20E-11 (549) + SO_BRO (446) SO + BRO -> SO2 + BR rate = 5.70E-11 (550) + SO_CLO (447) SO + CLO -> SO2 + CL rate = 2.80E-11 (551) + S_OH (448) S + OH -> SO + H rate = 6.60E-11 (552) + SO_NO2 (449) SO + NO2 -> SO2 + NO rate = 1.40E-11 (553) + SO_O2 (450) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (554) + SO_O3 (451) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (555) + SO_OCLO (452) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (556) + SO_OH (453) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (557) + usr_DMS_OH (454) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (558) + usr_SO3_H2O (455) SO3 + H2O -> H2SO4 rate = ** User defined ** (559) + usr_HO2_aer (456) HO2 -> 0.5*H2O2 rate = ** User defined ** (560) + usr_N2O5_aer (457) N2O5 -> 2*HNO3 rate = ** User defined ** (561) + usr_NO2_aer (458) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (562) + usr_NO3_aer (459) NO3 -> HNO3 rate = ** User defined ** (563) + het1 (460) N2O5 -> 2*HNO3 rate = ** User defined ** (564) + het10 (461) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (565) + het11 (462) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (566) + het12 (463) N2O5 -> 2*HNO3 rate = ** User defined ** (567) + het13 (464) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (568) + het14 (465) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (569) + het15 (466) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (570) + het16 (467) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (571) + het17 (468) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (572) + het2 (469) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (573) + het3 (470) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (574) + het4 (471) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (575) + het5 (472) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (576) + het6 (473) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (577) + het7 (474) N2O5 -> 2*HNO3 rate = ** User defined ** (578) + het8 (475) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (579) + het9 (476) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (580) + ag247nm (477) Op2P -> Op rate = 4.70E-02 (581) + ag373nm (478) Op2D -> Op rate = 7.70E-05 (582) + ag732nm (479) Op2P -> Op2D rate = 1.71E-01 (583) + elec1 (480) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (584) + elec2 (481) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (585) + elec3 (482) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (586) + ion_N2p_O2 (483) N2p + O2 -> O2p + N2 rate = 6.00E-11 (587) + ion_N2p_Oa (484) N2p + O -> NOp + N2D rate = ** User defined ** (588) + ion_N2p_Ob (485) N2p + O -> Op + N2 rate = ** User defined ** (589) + ion_Np_O (486) Np + O -> Op + N rate = 1.00E-12 (590) + ion_Np_O2a (487) Np + O2 -> O2p + N rate = 4.00E-10 (591) + ion_Np_O2b (488) Np + O2 -> NOp + O rate = 2.00E-10 (592) + ion_O2p_N (489) O2p + N -> NOp + O rate = 1.00E-10 (593) + ion_O2p_N2 (490) O2p + N2 -> NOp + NO rate = 5.00E-16 (594) + ion_O2p_NO (491) O2p + NO -> NOp + O2 rate = 4.40E-10 (595) + ion_Op_CO2 (492) Op + CO2 -> O2p + CO rate = 9.00E-10 (596) + ion_Op_N2 (493) Op + N2 -> NOp + N rate = ** User defined ** (597) + ion_Op_N2D (494) Op + N2D -> Np + O rate = 1.30E-10 (598) + ion_Op_O2 (495) Op + O2 -> O2p + O rate = ** User defined ** (599) + Op2D_e (496) Op2D + e -> Op + e rate = ** User defined ** (600) + Op2D_N2 (497) Op2D + N2 -> N2p + O rate = 8.00E-10 (601) + Op2D_O (498) Op2D + O -> Op + O rate = 5.00E-12 (602) + Op2D_O2 (499) Op2D + O2 -> O2p + O rate = 7.00E-10 (603) + Op2P_ea (500) Op2P + e -> Op2D + e rate = ** User defined ** (604) + Op2P_eb (501) Op2P + e -> Op + e rate = ** User defined ** (605) + Op2P_N2a (502) Op2P + N2 -> N2p + O rate = 4.80E-10 (606) + Op2P_N2b (503) Op2P + N2 -> Np + NO rate = 1.00E-10 (607) + Op2P_O (504) Op2P + O -> Op + O rate = 4.00E-10 (608) Extraneous prod/loss species - ( 1) so4_a2 (dataset) - ( 2) DMS (dataset) - ( 3) NO2 (dataset) - ( 4) SO2 (dataset) + ( 1) CO (dataset) + ( 2) bc_a4 (dataset) + ( 3) SO2 (dataset) + ( 4) NO2 (dataset) ( 5) bc_a1 (dataset) - ( 6) bc_a4 (dataset) - ( 7) num_a1 (dataset) - ( 8) num_a2 (dataset) - ( 9) num_a4 (dataset) - (10) num_a5 (dataset) - (11) pom_a1 (dataset) - (12) pom_a4 (dataset) - (13) so4_a1 (dataset) - (14) so4_a5 (dataset) - (15) CO (dataset) - (16) NO (dataset) - (17) N + ( 6) NO (dataset) + ( 7) pom_a1 (dataset) + ( 8) DMS (dataset) + ( 9) num_a1 (dataset) + (10) num_a2 (dataset) + (11) so4_a1 (dataset) + (12) so4_a2 (dataset) + (13) num_a4 (dataset) + (14) pom_a4 (dataset) + (15) O2p + (16) N2p + (17) Np (18) N2D - (19) N2p - (20) OH - (21) Op - (22) e - (23) Np - (24) O - (25) O2p + (19) e + (20) N + (21) O + (22) OH + (23) Op Equation Report @@ -964,44 +964,44 @@ Extraneous prod/loss species d(bc_a1)/dt = 0 d(bc_a4)/dt = 0 d(BR)/dt = j27*BRCL + j28*BRO + j30*BRONO2 + j32*CF2CLBR + j33*CF3BR + 2*j39*CH2BR2 + j40*CH3BR - + 3*j43*CHBR3 + 2*j51*H2402 + j52*HBR + j58*HOBR + r372*O1D*CF2CLBR + 2*r385*BRO*BRO - + r386*BRO*CLO + r387*BRO*CLO + r390*BRO*NO + r393*BRO*O + r394*BRO*OH + r395*HBR*O - + r396*HBR*OH + r398*O1D*CF3BR + 3*r399*O1D*CHBR3 + 2*r400*O1D*H2402 + r401*O1D*HBR - + 2*r409*CH2BR2*CL + 2*r410*CH2BR2*OH + r411*CH3BR*CL + r412*CH3BR*OH + 3*r416*CHBR3*CL - + 3*r417*CHBR3*OH + 2*r421*O1D*CH2BR2 + r422*O1D*CH3BR + r444*SO*BRO - - r382*CH2O*BR - r383*HO2*BR - r384*O3*BR - d(BRCL)/dt = r388*BRO*CLO + r466*HOBR*HCL + r471*HOBR*HCL + + 3*j43*CHBR3 + 2*j51*H2402 + j52*HBR + j58*HOBR + r374*O1D*CF2CLBR + 2*r387*BRO*BRO + + r388*BRO*CLO + r389*BRO*CLO + r392*BRO*NO + r395*BRO*O + r396*BRO*OH + r397*HBR*O + + r398*HBR*OH + r400*O1D*CF3BR + 3*r401*O1D*CHBR3 + 2*r402*O1D*H2402 + r403*O1D*HBR + + 2*r411*CH2BR2*CL + 2*r412*CH2BR2*OH + r413*CH3BR*CL + r414*CH3BR*OH + 3*r418*CHBR3*CL + + 3*r419*CHBR3*OH + 2*r423*O1D*CH2BR2 + r424*O1D*CH3BR + r446*SO*BRO + - r384*CH2O*BR - r385*HO2*BR - r386*O3*BR + d(BRCL)/dt = r390*BRO*CLO + r468*HOBR*HCL + r473*HOBR*HCL - j27*BRCL - d(BRO)/dt = j29*BRONO2 + r384*BR*O3 + r392*BRONO2*O + r397*HOBR*O + r402*O1D*HBR - - j28*BRO - 2*r385*BRO*BRO - r386*CLO*BRO - r387*CLO*BRO - r388*CLO*BRO - r389*HO2*BRO - - r390*NO*BRO - r391*M*NO2*BRO - r393*O*BRO - r394*OH*BRO - r444*SO*BRO - d(BRONO2)/dt = r391*M*BRO*NO2 - - j29*BRONO2 - j30*BRONO2 - r460*BRONO2 - r463*BRONO2 - r468*BRONO2 - r392*O*BRONO2 + d(BRO)/dt = j29*BRONO2 + r386*BR*O3 + r394*BRONO2*O + r399*HOBR*O + r404*O1D*HBR + - j28*BRO - 2*r387*BRO*BRO - r388*CLO*BRO - r389*CLO*BRO - r390*CLO*BRO - r391*HO2*BRO + - r392*NO*BRO - r393*M*NO2*BRO - r395*O*BRO - r396*OH*BRO - r446*SO*BRO + d(BRONO2)/dt = r393*M*BRO*NO2 + - j29*BRONO2 - j30*BRONO2 - r462*BRONO2 - r465*BRONO2 - r470*BRONO2 - r394*O*BRONO2 d(BRY)/dt = 0 - d(CCL4)/dt = - j31*CCL4 - r371*O1D*CCL4 - d(CF2CLBR)/dt = - j32*CF2CLBR - r372*O1D*CF2CLBR - d(CF3BR)/dt = - j33*CF3BR - r398*O1D*CF3BR - d(CFC11)/dt = - j34*CFC11 - r373*O1D*CFC11 - d(CFC113)/dt = - j35*CFC113 - r374*O1D*CFC113 - d(CFC114)/dt = - j36*CFC114 - r375*O1D*CFC114 - d(CFC115)/dt = - j37*CFC115 - r376*O1D*CFC115 - d(CFC12)/dt = - j38*CFC12 - r377*O1D*CFC12 - d(CH2BR2)/dt = - j39*CH2BR2 - r409*CL*CH2BR2 - r410*OH*CH2BR2 - r421*O1D*CH2BR2 - d(CH2O)/dt = j23*CH3OOH + .18*j25*CH4 + r353*CLO*CH3O2 + r430*CH3O2*NO + .3*r431*CH3OOH*OH + r434*O1D*CH4 - + r435*O1D*CH4 - - j21*CH2O - j22*CH2O - r346*CL*CH2O - r382*BR*CH2O - r426*NO3*CH2O - r427*O*CH2O - - r428*OH*CH2O - d(CH3BR)/dt = - j40*CH3BR - r411*CL*CH3BR - r412*OH*CH3BR - r422*O1D*CH3BR - d(CH3CCL3)/dt = - j41*CH3CCL3 - r413*OH*CH3CCL3 - d(CH3CL)/dt = - j42*CH3CL - r414*CL*CH3CL - r415*OH*CH3CL - d(CH3O2)/dt = j24*CH4 + j40*CH3BR + j42*CH3CL + r347*CL*CH4 + r403*F*CH4 + .7*r431*CH3OOH*OH + r432*CH4*OH - + r433*O1D*CH4 - - r353*CLO*CH3O2 - r429*HO2*CH3O2 - r430*NO*CH3O2 - d(CH3OOH)/dt = r429*CH3O2*HO2 - - j23*CH3OOH - r431*OH*CH3OOH - d(CH4)/dt = - j24*CH4 - j25*CH4 - r347*CL*CH4 - r403*F*CH4 - r432*OH*CH4 - r433*O1D*CH4 - r434*O1D*CH4 - - r435*O1D*CH4 - d(CHBR3)/dt = - j43*CHBR3 - r399*O1D*CHBR3 - r416*CL*CHBR3 - r417*OH*CHBR3 + d(CCL4)/dt = - j31*CCL4 - r373*O1D*CCL4 + d(CF2CLBR)/dt = - j32*CF2CLBR - r374*O1D*CF2CLBR + d(CF3BR)/dt = - j33*CF3BR - r400*O1D*CF3BR + d(CFC11)/dt = - j34*CFC11 - r375*O1D*CFC11 + d(CFC113)/dt = - j35*CFC113 - r376*O1D*CFC113 + d(CFC114)/dt = - j36*CFC114 - r377*O1D*CFC114 + d(CFC115)/dt = - j37*CFC115 - r378*O1D*CFC115 + d(CFC12)/dt = - j38*CFC12 - r379*O1D*CFC12 + d(CH2BR2)/dt = - j39*CH2BR2 - r411*CL*CH2BR2 - r412*OH*CH2BR2 - r423*O1D*CH2BR2 + d(CH2O)/dt = j23*CH3OOH + .18*j25*CH4 + r355*CLO*CH3O2 + r432*CH3O2*NO + .3*r433*CH3OOH*OH + r436*O1D*CH4 + + r437*O1D*CH4 + - j21*CH2O - j22*CH2O - r348*CL*CH2O - r384*BR*CH2O - r428*NO3*CH2O - r429*O*CH2O + - r430*OH*CH2O + d(CH3BR)/dt = - j40*CH3BR - r413*CL*CH3BR - r414*OH*CH3BR - r424*O1D*CH3BR + d(CH3CCL3)/dt = - j41*CH3CCL3 - r415*OH*CH3CCL3 + d(CH3CL)/dt = - j42*CH3CL - r416*CL*CH3CL - r417*OH*CH3CL + d(CH3O2)/dt = j24*CH4 + j40*CH3BR + j42*CH3CL + r349*CL*CH4 + r405*F*CH4 + .7*r433*CH3OOH*OH + r434*CH4*OH + + r435*O1D*CH4 + - r355*CLO*CH3O2 - r431*HO2*CH3O2 - r432*NO*CH3O2 + d(CH3OOH)/dt = r431*CH3O2*HO2 + - j23*CH3OOH - r433*OH*CH3OOH + d(CH4)/dt = - j24*CH4 - j25*CH4 - r349*CL*CH4 - r405*F*CH4 - r434*OH*CH4 - r435*O1D*CH4 - r436*O1D*CH4 + - r437*O1D*CH4 + d(CHBR3)/dt = - j43*CHBR3 - r401*O1D*CHBR3 - r418*CL*CHBR3 - r419*OH*CHBR3 d(CL)/dt = j27*BRCL + 4*j31*CCL4 + j32*CF2CLBR + 2*j34*CFC11 + 2*j35*CFC113 + 2*j36*CFC114 + j37*CFC115 + 2*j38*CFC12 + 3*j41*CH3CCL3 + j42*CH3CL + 2*j44*CL2 + 2*j45*CL2O2 + j46*CLO + j47*CLONO2 + j50*COFCL + j53*HCFC141B + j54*HCFC142B + j55*HCFC22 + j56*HCL + j59*HOCL + r6*CLm*NO2 @@ -1010,35 +1010,35 @@ Extraneous prod/loss species + r83*CLm_HCL*Hp_3H2O + r91*CLm*Hp_3H2O + r95*CLm_H2O*Hp_3H2O + r101*CLm_HCL*NOp_H2O + r108*CLm*NOp_H2O + r113*CLm_H2O*NOp_H2O + r118*CLm_HCL*NOp_2H2O + r126*CLm*NOp_2H2O + r130*NOp_2H2O*CLm_H2O + r136*NOp*CLm_HCL + r144*CLm*NOp + r148*CLm_H2O*NOp + r153*O2p*CLm_HCL - + r353*CLO*CH3O2 + 2*r354*CLO*CLO + r356*CLO*CLO + r358*CLO*NO + r363*CLO*O + r364*CLO*OH - + r366*HCL*O + r367*HCL*OH + 4*r371*O1D*CCL4 + r372*O1D*CF2CLBR + 2*r373*O1D*CFC11 - + 2*r374*O1D*CFC113 + 2*r375*O1D*CFC114 + r376*O1D*CFC115 + 2*r377*O1D*CFC12 + r378*O1D*HCL - + r387*BRO*CLO + r408*O1D*COFCL + 3*r413*CH3CCL3*OH + r415*CH3CL*OH + r418*HCFC141B*OH - + r419*HCFC142B*OH + r420*HCFC22*OH + r423*O1D*HCFC141B + r424*O1D*HCFC142B + r425*O1D*HCFC22 - + r445*SO*CLO + + r355*CLO*CH3O2 + 2*r356*CLO*CLO + r358*CLO*CLO + r360*CLO*NO + r365*CLO*O + r366*CLO*OH + + r368*HCL*O + r369*HCL*OH + 4*r373*O1D*CCL4 + r374*O1D*CF2CLBR + 2*r375*O1D*CFC11 + + 2*r376*O1D*CFC113 + 2*r377*O1D*CFC114 + r378*O1D*CFC115 + 2*r379*O1D*CFC12 + r380*O1D*HCL + + r389*BRO*CLO + r410*O1D*COFCL + 3*r415*CH3CCL3*OH + r417*CH3CL*OH + r420*HCFC141B*OH + + r421*HCFC142B*OH + r422*HCFC22*OH + r425*O1D*HCFC141B + r426*O1D*HCFC142B + r427*O1D*HCFC22 + + r447*SO*CLO - r10*CO3m*CL - r11*CO3m*CL - r23*CO4m*CL - r181*NO2m*CL - r210*O2m*CL - r237*OHm*CL - - r246*Om*CL - r346*CH2O*CL - r347*CH4*CL - r348*H2*CL - r349*H2O2*CL - r350*HO2*CL - - r351*HO2*CL - r352*O3*CL - r359*CLONO2*CL - r368*HOCL*CL - r409*CH2BR2*CL - r411*CH3BR*CL - - r414*CH3CL*CL - r416*CHBR3*CL - d(CL2)/dt = r355*CLO*CLO + r359*CLONO2*CL + r459*HOCL*HCL + r464*CLONO2*HCL + r465*HOCL*HCL + r469*CLONO2*HCL - + r470*HOCL*HCL + r474*CLONO2*HCL + - r246*Om*CL - r348*CH2O*CL - r349*CH4*CL - r350*H2*CL - r351*H2O2*CL - r352*HO2*CL + - r353*HO2*CL - r354*O3*CL - r361*CLONO2*CL - r370*HOCL*CL - r411*CH2BR2*CL - r413*CH3BR*CL + - r416*CH3CL*CL - r418*CHBR3*CL + d(CL2)/dt = r357*CLO*CLO + r361*CLONO2*CL + r461*HOCL*HCL + r466*CLONO2*HCL + r467*HOCL*HCL + r471*CLONO2*HCL + + r472*HOCL*HCL + r476*CLONO2*HCL - j44*CL2 - d(CL2O2)/dt = r380*M*CLO*CLO - - j45*CL2O2 - r381*M*CL2O2 - d(CLO)/dt = j48*CLONO2 + j60*OCLO + r381*M*CL2O2 + r381*M*CL2O2 + r351*CL*HO2 + r352*CL*O3 + r361*CLONO2*O - + r368*HOCL*CL + r369*HOCL*O + r370*HOCL*OH + r379*O1D*HCL + r450*SO*OCLO + d(CL2O2)/dt = r382*M*CLO*CLO + - j45*CL2O2 - r383*M*CL2O2 + d(CLO)/dt = j48*CLONO2 + j60*OCLO + r383*M*CL2O2 + r383*M*CL2O2 + r353*CL*HO2 + r354*CL*O3 + r363*CLONO2*O + + r370*HOCL*CL + r371*HOCL*O + r372*HOCL*OH + r381*O1D*HCL + r452*SO*OCLO - j46*CLO - r12*CO3m*CLO - r24*CO4m*CLO - r182*NO2m*CLO - r211*O2m*CLO - r238*OHm*CLO - - r247*Om*CLO - r353*CH3O2*CLO - 2*r354*CLO*CLO - 2*r355*CLO*CLO - 2*r356*CLO*CLO - r357*HO2*CLO - - r358*NO*CLO - r360*M*NO2*CLO - r363*O*CLO - r364*OH*CLO - r365*OH*CLO - 2*r380*M*CLO*CLO - - r386*BRO*CLO - r387*BRO*CLO - r388*BRO*CLO - r445*SO*CLO - d(CLONO2)/dt = r360*M*CLO*NO2 - - j47*CLONO2 - j48*CLONO2 - r462*CLONO2 - r467*CLONO2 - r473*CLONO2 - r359*CL*CLONO2 - - r361*O*CLONO2 - r362*OH*CLONO2 - r464*HCL*CLONO2 - r469*HCL*CLONO2 - r474*HCL*CLONO2 + - r247*Om*CLO - r355*CH3O2*CLO - 2*r356*CLO*CLO - 2*r357*CLO*CLO - 2*r358*CLO*CLO - r359*HO2*CLO + - r360*NO*CLO - r362*M*NO2*CLO - r365*O*CLO - r366*OH*CLO - r367*OH*CLO - 2*r382*M*CLO*CLO + - r388*BRO*CLO - r389*BRO*CLO - r390*BRO*CLO - r447*SO*CLO + d(CLONO2)/dt = r362*M*CLO*NO2 + - j47*CLONO2 - j48*CLONO2 - r464*CLONO2 - r469*CLONO2 - r475*CLONO2 - r361*CL*CLONO2 + - r363*O*CLONO2 - r364*OH*CLONO2 - r466*HCL*CLONO2 - r471*HCL*CLONO2 - r476*HCL*CLONO2 d(CLY)/dt = 0 - d(CO)/dt = j21*CH2O + j22*CH2O + .38*j25*CH4 + j26*CO2 + j62*CO2 + j101*OCS + r346*CL*CH2O + r382*BR*CH2O - + r414*CH3CL*CL + r426*CH2O*NO3 + r427*CH2O*O + r428*CH2O*OH + r439*OCS*O + r440*OCS*OH - + r490*Op*CO2 - - r436*OH*CO + d(CO)/dt = j21*CH2O + j22*CH2O + .38*j25*CH4 + j26*CO2 + j62*CO2 + j101*OCS + r348*CL*CH2O + r384*BR*CH2O + + r416*CH3CL*CL + r428*CH2O*NO3 + r429*CH2O*O + r430*CH2O*OH + r441*OCS*O + r442*OCS*OH + + r492*Op*CO2 + - r438*OH*CO d(CO2)/dt = .44*j25*CH4 + j63*CO3m + j65*CO4m + r265*M*NOp_CO2 + r10*CL*CO3m + r11*CL*CO3m + r12*CLO*CO3m + r13*H*CO3m + r16*CO3m_H2O*NO2 + r17*CO3m_H2O*NO2 + r18*CO3m_H2O*NO + r19*CO3m_H2O*NO + r20*CO3m*HNO3 + r21*CO3m*O + r22*O2*CO3m + r23*CL*CO4m + r24*CLO*CO4m + r26*CO4m*HCL @@ -1053,24 +1053,24 @@ Extraneous prod/loss species + r145*CO3m_H2O*NOp + r152*O2p*CO3m + r154*M*Hp_4H2O*CO3m + r155*M*Hp_5H2O*CO3m2H2O + r156*M*CO3m_H2O*Hp_4H2O + r157*M*Hp_5H2O*CO3m_H2O + r161*M*Hp_5H2O*CO3m + r167*M*CO3m2H2O*Hp_4H2O + r176*CO3m*NO + r177*CO3m*NO2 + r202*NOp_CO2*e + r203*NOp_CO2*H2O - + r436*CO*OH + + r438*CO*OH - j26*CO2 - j62*CO2 - r208*NOp_N2*CO2 - r212*M*O2m*CO2 - r226*O3m*CO2 - r231*O4m*CO2 - - r239*M*OHm*CO2 - r248*M*Om*CO2 - r264*M*NOp*CO2 - r490*Op*CO2 + - r239*M*OHm*CO2 - r248*M*Om*CO2 - r264*M*NOp*CO2 - r492*Op*CO2 d(COF2)/dt = j32*CF2CLBR + j33*CF3BR + j35*CFC113 + 2*j36*CFC114 + 2*j37*CFC115 + j38*CFC12 + 2*j51*H2402 - + j54*HCFC142B + j55*HCFC22 + r372*O1D*CF2CLBR + r374*O1D*CFC113 + 2*r375*O1D*CFC114 - + 2*r376*O1D*CFC115 + r377*O1D*CFC12 + r398*O1D*CF3BR + 2*r400*O1D*H2402 + r419*HCFC142B*OH - + r420*HCFC22*OH + r424*O1D*HCFC142B + r425*O1D*HCFC22 - - j49*COF2 - r407*O1D*COF2 - d(COFCL)/dt = j34*CFC11 + j35*CFC113 + j53*HCFC141B + r373*O1D*CFC11 + r374*O1D*CFC113 + r418*HCFC141B*OH - + r423*O1D*HCFC141B - - j50*COFCL - r408*O1D*COFCL - d(DMS)/dt = - r437*NO3*DMS - r438*OH*DMS - r452*OH*DMS + + j54*HCFC142B + j55*HCFC22 + r374*O1D*CF2CLBR + r376*O1D*CFC113 + 2*r377*O1D*CFC114 + + 2*r378*O1D*CFC115 + r379*O1D*CFC12 + r400*O1D*CF3BR + 2*r402*O1D*H2402 + r421*HCFC142B*OH + + r422*HCFC22*OH + r426*O1D*HCFC142B + r427*O1D*HCFC22 + - j49*COF2 - r409*O1D*COF2 + d(COFCL)/dt = j34*CFC11 + j35*CFC113 + j53*HCFC141B + r375*O1D*CFC11 + r376*O1D*CFC113 + r420*HCFC141B*OH + + r425*O1D*HCFC141B + - j50*COFCL - r410*O1D*COFCL + d(DMS)/dt = - r439*NO3*DMS - r440*OH*DMS - r454*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 - d(F)/dt = j33*CF3BR + j37*CFC115 + 2*j49*COF2 + j50*COFCL + j57*HF + r376*O1D*CFC115 + r398*O1D*CF3BR - + 2*r407*O1D*COF2 + r408*O1D*COFCL - - r403*CH4*F - r404*H2*F - r405*H2O*F - r406*HNO3*F + d(F)/dt = j33*CF3BR + j37*CFC115 + 2*j49*COF2 + j50*COFCL + j57*HF + r378*O1D*CFC115 + r400*O1D*CF3BR + + 2*r409*O1D*COF2 + r410*O1D*COFCL + - r405*CH4*F - r406*H2*F - r407*H2O*F - r408*HNO3*F d(H)/dt = 2*j2*H2O + j3*H2O + 2*j21*CH2O + j23*CH3OOH + j24*CH4 + .33*j25*CH4 + j52*HBR + j56*HCL + j57*HF + r34*H3Op_OH*e + r37*Hp_4H2O*e + r40*Hp_5H2O*e + r43*CLm*Hp_4H2O + r54*CO3m_H2O*Hp_4H2O + r58*Hp_4H2O*NO2m_H2O + r59*Hp_4H2O*NO3m_HCL + r60*CLm_H2O*Hp_4H2O + r61*NO3m2H2O*Hp_4H2O @@ -1086,68 +1086,68 @@ Extraneous prod/loss species + r156*M*CO3m_H2O*Hp_4H2O + r157*M*Hp_5H2O*CO3m_H2O + r158*M*NO3m_H2O*Hp_4H2O + r159*M*NO3m_H2O*Hp_5H2O + r161*M*Hp_5H2O*CO3m + r167*M*CO3m2H2O*Hp_4H2O + r250*Om*H2 + r277*Hp_H2O*e + r278*Hp_2H2O*e + r279*Hp_3H2O*e + r285*O1D*H2 + r302*H2*O + r311*OH*H2 - + r314*OH*O + r334*N*OH + r348*CL*H2 + r379*O1D*HCL + r402*O1D*HBR + r404*F*H2 + r428*CH2O*OH - + r434*O1D*CH4 + r440*OCS*OH + r446*S*OH + r451*SO*OH + + r314*OH*O + r333*N*OH + r350*CL*H2 + r381*O1D*HCL + r404*O1D*HBR + r406*F*H2 + r430*CH2O*OH + + r436*O1D*CH4 + r442*OCS*OH + r448*S*OH + r453*SO*OH - r1*CLm*H - r13*CO3m*H - r25*CO4m*H - r183*NO2m*H - r205*NOp_H2O*H - r213*O2m*H - r227*O3m*H - r240*OHm*H - r304*HO2*H - r305*HO2*H - r306*HO2*H - r307*M*O2*H - r310*O3*H - d(H2)/dt = j1*H2O + j22*CH2O + 1.4400001*j25*CH4 + r304*H*HO2 + r435*O1D*CH4 - - r249*Om*H2 - r250*Om*H2 - r285*O1D*H2 - r302*O*H2 - r311*OH*H2 - r348*CL*H2 - r404*F*H2 - d(H2402)/dt = - j51*H2402 - r400*O1D*H2402 - d(H2O2)/dt = .5*r454*HO2 + r317*M*OH*OH + r318*HO2*HO2 - - j4*H2O2 - r303*O*H2O2 - r312*OH*H2O2 - r349*CL*H2O2 - d(H2SO4)/dt = r453*SO3*H2O + d(H2)/dt = j1*H2O + j22*CH2O + 1.4400001*j25*CH4 + r304*H*HO2 + r437*O1D*CH4 + - r249*Om*H2 - r250*Om*H2 - r285*O1D*H2 - r302*O*H2 - r311*OH*H2 - r350*CL*H2 - r406*F*H2 + d(H2402)/dt = - j51*H2402 - r402*O1D*H2402 + d(H2O2)/dt = .5*r456*HO2 + r317*M*OH*OH + r318*HO2*HO2 + - j4*H2O2 - r303*O*H2O2 - r312*OH*H2O2 - r351*CL*H2O2 + d(H2SO4)/dt = r455*SO3*H2O - j100*H2SO4 - d(HBR)/dt = r382*BR*CH2O + r383*BR*HO2 - - j52*HBR - r395*O*HBR - r396*OH*HBR - r401*O1D*HBR - r402*O1D*HBR - d(HCFC141B)/dt = - j53*HCFC141B - r418*OH*HCFC141B - r423*O1D*HCFC141B - d(HCFC142B)/dt = - j54*HCFC142B - r419*OH*HCFC142B - r424*O1D*HCFC142B - d(HCFC22)/dt = - j55*HCFC22 - r420*OH*HCFC22 - r425*O1D*HCFC22 + d(HBR)/dt = r384*BR*CH2O + r385*BR*HO2 + - j52*HBR - r397*O*HBR - r398*OH*HBR - r403*O1D*HBR - r404*O1D*HBR + d(HCFC141B)/dt = - j53*HCFC141B - r420*OH*HCFC141B - r425*O1D*HCFC141B + d(HCFC142B)/dt = - j54*HCFC142B - r421*OH*HCFC142B - r426*O1D*HCFC142B + d(HCFC22)/dt = - j55*HCFC22 - r422*OH*HCFC22 - r427*O1D*HCFC22 d(HCL)/dt = r282*M*CLm_HCL + r1*CLm*H + r5*CLm*HNO3 + r53*NO3m_HCL*O2p + r59*Hp_4H2O*NO3m_HCL + r65*CLm_HCL*Hp_5H2O + r76*Hp_5H2O*NO3m_HCL + r77*CLm_HCL*Hp_4H2O + r83*CLm_HCL*Hp_3H2O + r94*Hp_3H2O*NO3m_HCL + r101*CLm_HCL*NOp_H2O + r112*NO3m_HCL*NOp_H2O + r118*CLm_HCL*NOp_2H2O + r129*NO3m_HCL*NOp_2H2O + r136*NOp*CLm_HCL + r147*NO3m_HCL*NOp + r153*O2p*CLm_HCL - + 2*r163*M*CLm_HCL*Hp_4H2O + 2*r164*M*Hp_5H2O*CLm_HCL + r195*HNO3*NO3m_HCL + r346*CL*CH2O - + r347*CL*CH4 + r348*CL*H2 + r349*CL*H2O2 + r350*CL*HO2 + r365*CLO*OH + r368*HOCL*CL - + r409*CH2BR2*CL + r411*CH3BR*CL + 2*r414*CH3CL*CL + r416*CHBR3*CL + + 2*r163*M*CLm_HCL*Hp_4H2O + 2*r164*M*Hp_5H2O*CLm_HCL + r195*HNO3*NO3m_HCL + r348*CL*CH2O + + r349*CL*CH4 + r350*CL*H2 + r351*CL*H2O2 + r352*CL*HO2 + r367*CLO*OH + r370*HOCL*CL + + r411*CH2BR2*CL + r413*CH3BR*CL + 2*r416*CH3CL*CL + r418*CHBR3*CL - j56*HCL - r2*CLm_H2O*HCL - r4*M*CLm*HCL - r26*CO4m*HCL - r172*M*NO3m*HCL - r185*NO2m*HCL - - r194*NO3m*HCL - r214*O2m*HCL - r241*OHm*HCL - r252*Om*HCL - r366*O*HCL - r367*OH*HCL - - r378*O1D*HCL - r379*O1D*HCL - r459*HOCL*HCL - r464*CLONO2*HCL - r465*HOCL*HCL - r466*HOBR*HCL - - r469*CLONO2*HCL - r470*HOCL*HCL - r471*HOBR*HCL - r474*CLONO2*HCL - d(HF)/dt = r403*F*CH4 + r404*F*H2 + r405*F*H2O + r406*F*HNO3 + - r194*NO3m*HCL - r214*O2m*HCL - r241*OHm*HCL - r252*Om*HCL - r368*O*HCL - r369*OH*HCL + - r380*O1D*HCL - r381*O1D*HCL - r461*HOCL*HCL - r466*CLONO2*HCL - r467*HOCL*HCL - r468*HOBR*HCL + - r471*CLONO2*HCL - r472*HOCL*HCL - r473*HOBR*HCL - r476*CLONO2*HCL + d(HF)/dt = r405*F*CH4 + r406*F*H2 + r407*F*H2O + r408*F*HNO3 - j57*HF - d(HNO3)/dt = r171*M*NO3mHNO3 + 2*r455*N2O5 + .5*r456*NO2 + r457*NO3 + 2*r458*N2O5 + r460*BRONO2 - + 2*r461*N2O5 + r462*CLONO2 + r463*BRONO2 + r467*CLONO2 + r468*BRONO2 + 2*r472*N2O5 - + r473*CLONO2 + r36*H2O*Hp_3N1 + r38*Hp_4H2O*N2O5 + r39*H2O*Hp_4N1 + r41*Hp_5H2O*N2O5 + d(HNO3)/dt = r171*M*NO3mHNO3 + 2*r457*N2O5 + .5*r458*NO2 + r459*NO3 + 2*r460*N2O5 + r462*BRONO2 + + 2*r463*N2O5 + r464*CLONO2 + r465*BRONO2 + r469*CLONO2 + r470*BRONO2 + 2*r474*N2O5 + + r475*CLONO2 + r36*H2O*Hp_3N1 + r38*Hp_4H2O*N2O5 + r39*H2O*Hp_4N1 + r41*Hp_5H2O*N2O5 + 2*r42*Hp_4H2O*NO3mHNO3 + 2*r63*Hp_5H2O*NO3mHNO3 + r67*NO3m*Hp_5H2O + 2*r81*Hp_3H2O*NO3mHNO3 + r84*Hp_3H2O*NO3m + r88*Hp_4H2O*NO3m + r98*NO3mHNO3*NOp_H2O + r116*NO3mHNO3*NOp_2H2O + r134*NOp*NO3mHNO3 + r151*NO3mHNO3*O2p + r160*M*NO3m*Hp_4H2O + r162*M*Hp_5H2O*NO3m + 2*r165*M*NO3mHNO3*Hp_4H2O + 2*r166*M*Hp_5H2O*NO3mHNO3 + r189*NO3m2H2O*N2O5 + r193*NO3m_H2O*N2O5 - + r194*HCL*NO3m + r342*M*NO2*OH + r426*CH2O*NO3 + r437*DMS*NO3 + r464*CLONO2*HCL - + r469*CLONO2*HCL + r474*CLONO2*HCL + + r194*HCL*NO3m + r341*M*NO2*OH + r428*CH2O*NO3 + r439*DMS*NO3 + r466*CLONO2*HCL + + r471*CLONO2*HCL + r476*CLONO2*HCL - j9*HNO3 - r5*CLm*HNO3 - r20*CO3m*HNO3 - r186*NO2m*HNO3 - r191*NO3m_H2O*HNO3 - - r195*NO3m_HCL*HNO3 - r196*M*NO3m*HNO3 - r215*O2m*HNO3 - r253*Om*HNO3 - r343*OH*HNO3 - - r406*F*HNO3 - d(HO2NO2)/dt = r340*M*NO2*HO2 - - j10*HO2NO2 - j11*HO2NO2 - r344*M*HO2NO2 - r319*OH*HO2NO2 - d(HOBR)/dt = r460*BRONO2 + r463*BRONO2 + r468*BRONO2 + r389*BRO*HO2 - - j58*HOBR - r397*O*HOBR - r466*HCL*HOBR - r471*HCL*HOBR - d(HOCL)/dt = r462*CLONO2 + r467*CLONO2 + r473*CLONO2 + r357*CLO*HO2 + r362*CLONO2*OH - - j59*HOCL - r368*CL*HOCL - r369*O*HOCL - r370*OH*HOCL - r459*HCL*HOCL - r465*HCL*HOCL - - r470*HCL*HOCL + - r195*NO3m_HCL*HNO3 - r196*M*NO3m*HNO3 - r215*O2m*HNO3 - r253*Om*HNO3 - r342*OH*HNO3 + - r408*F*HNO3 + d(HO2NO2)/dt = r339*M*NO2*HO2 + - j10*HO2NO2 - j11*HO2NO2 - r343*M*HO2NO2 - r320*OH*HO2NO2 + d(HOBR)/dt = r462*BRONO2 + r465*BRONO2 + r470*BRONO2 + r391*BRO*HO2 + - j58*HOBR - r399*O*HOBR - r468*HCL*HOBR - r473*HCL*HOBR + d(HOCL)/dt = r464*CLONO2 + r469*CLONO2 + r475*CLONO2 + r359*CLO*HO2 + r364*CLONO2*OH + - j59*HOCL - r370*CL*HOCL - r371*O*HOCL - r372*OH*HOCL - r461*HCL*HOCL - r467*HCL*HOCL + - r472*HCL*HOCL d(HONO)/dt = r185*HCL*NO2m + r186*HNO3*NO2m + r201*H2O*NOp_3H2O + r245*M*OH*NO - j12*HONO - r236*OH*HONO - d(N)/dt = j69*N2 + j70*N2 + .8*j72*N2 + .8*j73*N2 + j17*NO + r491*N2*Op + r320*N2D*O + .2*r478*NOp*e - + 1.1*r480*N2p*e + r484*Np*O + r485*Np*O2 - - j66*N - r322*NO*N - r323*NO2*N - r324*NO2*N - r325*NO2*N - r326*O2*N - r334*OH*N - r487*O2p*N + d(N)/dt = j69*N2 + j70*N2 + .8*j72*N2 + .8*j73*N2 + j17*NO + r319*N2D + r493*N2*Op + r344*N2D*e + + .2*r480*NOp*e + 1.1*r482*N2p*e + r486*Np*O + r487*Np*O2 + - j66*N - r322*NO*N - r323*NO2*N - r324*NO2*N - r325*NO2*N - r333*OH*N - r347*O2*N - r489*O2p*N d(N2O)/dt = r323*N*NO2 - - j13*N2O - r338*O1D*N2O - r339*O1D*N2O - d(N2O5)/dt = r341*M*NO2*NO3 - - j14*N2O5 - j15*N2O5 - r345*M*N2O5 - r455*N2O5 - r458*N2O5 - r461*N2O5 - r472*N2O5 + - j13*N2O - r337*O1D*N2O - r338*O1D*N2O + d(N2O5)/dt = r340*M*NO2*NO3 + - j14*N2O5 - j15*N2O5 - r346*M*N2O5 - r457*N2O5 - r460*N2O5 - r463*N2O5 - r474*N2O5 - r38*Hp_4H2O*N2O5 - r41*Hp_5H2O*N2O5 - r189*NO3m2H2O*N2O5 - r193*NO3m_H2O*N2O5 d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r456*NO2 + r488*N2*O2p + r501*N2*Op2P + d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r458*NO2 + r490*N2*O2p + r503*N2*Op2P + r98*NO3mHNO3*NOp_H2O + r100*CO3m*NOp_H2O + r101*CLm_HCL*NOp_H2O + r102*NO3m*NOp_H2O + r103*HCO3m*NOp_H2O + r104*NOp_H2O*O2m + r105*CO4m*NOp_H2O + r106*NO3m_H2O*NOp_H2O + r107*CO3m2H2O*NOp_H2O + r108*CLm*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r111*NO2m_H2O*NOp_H2O @@ -1160,25 +1160,25 @@ Extraneous prod/loss species + r139*O2m*NOp + r140*NOp*CO4m + r141*NOp*NO3m_H2O + r142*NOp*CO3m2H2O + r144*CLm*NOp + r145*CO3m_H2O*NOp + r146*NO2m_H2O*NOp + r147*NO3m_HCL*NOp + r148*CLm_H2O*NOp + r149*NOp*NO3m2H2O + r150*NOp*NO2m + r183*H*NO2m + r187*NO2*NO2m + r199*NOp_2H2O*e + r200*NOp_3H2O*e - + r202*NOp_CO2*e + r204*NOp_H2O*e + r205*H*NOp_H2O + r280*e*NOp_N2 + r321*N2D*O2 + 2*r324*N*NO2 - + r326*N*O2 + r327*NO2*O + r334*N*OH + 2*r338*O1D*N2O + r447*SO*NO2 + + r202*NOp_CO2*e + r204*NOp_H2O*e + r205*H*NOp_H2O + r280*e*NOp_N2 + 2*r324*N*NO2 + r326*NO2*O + + r333*N*OH + 2*r337*O1D*N2O + r345*N2D*O2 + r347*N*O2 + r449*SO*NO2 - j16*NO - j17*NO - r7*CLOm*NO - r8*CLOm*NO - r18*CO3m_H2O*NO - r19*CO3m_H2O*NO - r32*Om*NO - - r168*O3m*NO - r175*O3m*NO - r176*CO3m*NO - r245*M*OH*NO - r322*N*NO - r331*NO3*NO - - r335*HO2*NO - r336*O3*NO - r337*M*O*NO - r358*CLO*NO - r390*BRO*NO - r430*CH3O2*NO - - r489*O2p*NO - d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j14*N2O5 + j19*NO3 + j29*BRONO2 + j48*CLONO2 + j75*NO2m + r344*M*HO2NO2 - + r345*M*N2O5 + r8*CLOm*NO + r32*NO*Om + r52*NO2m_H2O*O2p + r57*NO2m*O2p + r58*Hp_4H2O*NO2m_H2O + - r168*O3m*NO - r175*O3m*NO - r176*CO3m*NO - r245*M*OH*NO - r321*N2D*NO - r322*N*NO + - r330*NO3*NO - r334*HO2*NO - r335*O3*NO - r336*M*O*NO - r360*CLO*NO - r392*BRO*NO + - r432*CH3O2*NO - r491*O2p*NO + d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j14*N2O5 + j19*NO3 + j29*BRONO2 + j48*CLONO2 + j75*NO2m + r343*M*HO2NO2 + + r346*M*N2O5 + r8*CLOm*NO + r32*NO*Om + r52*NO2m_H2O*O2p + r57*NO2m*O2p + r58*Hp_4H2O*NO2m_H2O + r62*Hp_4H2O*NO2m + r75*NO2m_H2O*Hp_5H2O + r80*Hp_5H2O*NO2m + r93*Hp_3H2O*NO2m_H2O + r97*Hp_3H2O*NO2m + r111*NO2m_H2O*NOp_H2O + r115*NO2m*NOp_H2O + r128*NOp_2H2O*NO2m_H2O + r133*NOp_2H2O*NO2m + r146*NO2m_H2O*NOp + r150*NOp*NO2m + r181*CL*NO2m + r207*NOp_H2O*OH - + r236*HONO*OH + r319*HO2NO2*OH + r330*NO3*HO2 + 2*r331*NO3*NO + r332*NO3*O + r333*NO3*OH - + r335*NO*HO2 + r336*NO*O3 + r337*M*NO*O + r358*CLO*NO + r390*BRO*NO + r430*CH3O2*NO - - j18*NO2 - r456*NO2 - r6*CLm*NO2 - r16*CO3m_H2O*NO2 - r17*CO3m_H2O*NO2 - r173*O3m*NO2 + + r236*HONO*OH + r320*HO2NO2*OH + r329*NO3*HO2 + 2*r330*NO3*NO + r331*NO3*O + r332*NO3*OH + + r334*NO*HO2 + r335*NO*O3 + r336*M*NO*O + r360*CLO*NO + r392*BRO*NO + r432*CH3O2*NO + - j18*NO2 - r458*NO2 - r6*CLm*NO2 - r16*CO3m_H2O*NO2 - r17*CO3m_H2O*NO2 - r173*O3m*NO2 - r174*O3m*NO2 - r177*CO3m*NO2 - r187*NO2m*NO2 - r216*O2m*NO2 - r242*OHm*NO2 - r255*Om*NO2 - - r323*N*NO2 - r324*N*NO2 - r325*N*NO2 - r327*O*NO2 - r328*O3*NO2 - r329*M*O*NO2 - - r340*M*HO2*NO2 - r341*M*NO3*NO2 - r342*M*OH*NO2 - r360*M*CLO*NO2 - r391*M*BRO*NO2 - - r447*SO*NO2 - d(NO3)/dt = j10*HO2NO2 + j14*N2O5 + j15*N2O5 + j30*BRONO2 + j47*CLONO2 + j76*NO3m + r345*M*N2O5 + - r323*N*NO2 - r324*N*NO2 - r325*N*NO2 - r326*O*NO2 - r327*O3*NO2 - r328*M*O*NO2 + - r339*M*HO2*NO2 - r340*M*NO3*NO2 - r341*M*OH*NO2 - r362*M*CLO*NO2 - r393*M*BRO*NO2 + - r449*SO*NO2 + d(NO3)/dt = j10*HO2NO2 + j14*N2O5 + j15*N2O5 + j30*BRONO2 + j47*CLONO2 + j76*NO3m + r346*M*N2O5 + r44*NO3m*O2p + r48*NO3m_H2O*O2p + r53*NO3m_HCL*O2p + r56*NO3m2H2O*O2p + r59*Hp_4H2O*NO3m_HCL + r61*NO3m2H2O*Hp_4H2O + r71*Hp_5H2O*NO3m_H2O + r76*Hp_5H2O*NO3m_HCL + r79*Hp_5H2O*NO3m2H2O + r89*Hp_3H2O*NO3m_H2O + r94*Hp_3H2O*NO3m_HCL + r96*Hp_3H2O*NO3m2H2O + r98*NO3mHNO3*NOp_H2O @@ -1187,10 +1187,10 @@ Extraneous prod/loss species + r131*NOp_2H2O*NO3m2H2O + r132*Hp_4H2O*NO3m_H2O + r134*NOp*NO3mHNO3 + r137*NO3m*NOp + r141*NOp*NO3m_H2O + r147*NO3m_HCL*NOp + r149*NOp*NO3m2H2O + r151*NO3mHNO3*O2p + r158*M*NO3m_H2O*Hp_4H2O + r159*M*NO3m_H2O*Hp_5H2O + r182*CLO*NO2m + r206*NOp_H2O*HO2 - + r328*NO2*O3 + r329*M*NO2*O + r343*HNO3*OH + r359*CLONO2*CL + r361*CLONO2*O + r362*CLONO2*OH - + r392*BRONO2*O + r406*F*HNO3 - - j19*NO3 - j20*NO3 - r457*NO3 - r330*HO2*NO3 - r331*NO*NO3 - r332*O*NO3 - r333*OH*NO3 - - r341*M*NO2*NO3 - r426*CH2O*NO3 - r437*DMS*NO3 + + r327*NO2*O3 + r328*M*NO2*O + r342*HNO3*OH + r361*CLONO2*CL + r363*CLONO2*O + r364*CLONO2*OH + + r394*BRONO2*O + r408*F*HNO3 + - j19*NO3 - j20*NO3 - r459*NO3 - r329*HO2*NO3 - r330*NO*NO3 - r331*O*NO3 - r332*OH*NO3 + - r340*M*NO2*NO3 - r428*CH2O*NO3 - r439*DMS*NO3 d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -1199,7 +1199,7 @@ Extraneous prod/loss species d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j15*N2O5 + j17*NO + j18*NO2 + j19*NO3 + .18*j25*CH4 + j26*CO2 + j28*BRO + j46*CLO + j60*OCLO + j62*CO2 + j83*O2 + j85*O2 + j87*O2 + 2*j88*O2 + 2*j89*O2 + j90*O2 + j91*O2 + j92*O2 + j99*Om + j102*SO + j103*SO2 + j104*SO3 + r254*M*Om - + r287*N2*O1D + r495*N2*Op2D + r500*N2*Op2P + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + + r287*N2*O1D + r497*N2*Op2D + r502*N2*Op2P + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + r54*CO3m_H2O*Hp_4H2O + r64*CO3m*Hp_5H2O + r66*CO3m*Hp_4H2O + r72*CO3m2H2O*Hp_5H2O + r74*CO3m_H2O*Hp_5H2O + r82*Hp_3H2O*CO3m + r90*CO3m2H2O*Hp_3H2O + r92*CO3m_H2O*Hp_3H2O + r100*CO3m*NOp_H2O + r107*CO3m2H2O*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r117*CO3m*NOp_2H2O @@ -1207,22 +1207,22 @@ Extraneous prod/loss species + r143*CO3m2H2O*Hp_4H2O + r145*CO3m_H2O*NOp + r152*O2p*CO3m + r154*M*Hp_4H2O*CO3m + r155*M*Hp_5H2O*CO3m2H2O + r156*M*CO3m_H2O*Hp_4H2O + r157*M*Hp_5H2O*CO3m_H2O + r161*M*Hp_5H2O*CO3m + r167*M*CO3m2H2O*Hp_4H2O + r168*NO*O3m + r246*Om*CL + r255*NO2*Om + r259*O3*Om + r288*O1D*O2 - + r289*O1D*O2 + r306*H*HO2 + r316*OH*OH + r322*N*NO + r323*N*NO2 + r326*N*O2 + r441*S*O2 - + r448*SO*O2 + r478*NOp*e + 1.15*r479*O2p*e + r486*Np*O2 + r487*O2p*N + r492*Op*N2D + r493*Op*O2 - + r497*Op2D*O2 + + r289*O1D*O2 + r306*H*HO2 + r316*OH*OH + r321*N2D*NO + r322*N*NO + r323*N*NO2 + r347*N*O2 + + r443*S*O2 + r450*SO*O2 + r480*NOp*e + 1.15*r481*O2p*e + r488*Np*O2 + r489*O2p*N + r494*Op*N2D + + r495*Op*O2 + r499*Op2D*O2 - j77*O - j78*O - j79*O - j80*O - j81*O - j82*O - r9*CLOm*O - r21*CO3m*O - r27*CO4m*O - r197*NO3m*O - r220*O2m*O - r221*O2m*O - r229*O3m*O - r230*O3m*O - r232*O4m*O - r234*O4p*O - r243*OHm*O - r256*Om*O - r299*O3*O - 2*r300*M*O*O - r301*M*O2*O - r302*H2*O - r303*H2O2*O - - r308*HO2*O - r314*OH*O - r327*NO2*O - r329*M*NO2*O - r332*NO3*O - r337*M*NO*O - r361*CLONO2*O - - r363*CLO*O - r366*HCL*O - r369*HOCL*O - r392*BRONO2*O - r393*BRO*O - r395*HBR*O - r397*HOBR*O - - r427*CH2O*O - r439*OCS*O - r482*N2p*O - r483*N2p*O - r484*Np*O - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r321*N2D*O2 + .85*r479*O2p*e + - r308*HO2*O - r314*OH*O - r326*NO2*O - r328*M*NO2*O - r331*NO3*O - r336*M*NO*O - r363*CLONO2*O + - r365*CLO*O - r368*HCL*O - r371*HOCL*O - r394*BRONO2*O - r395*BRO*O - r397*HBR*O - r399*HOBR*O + - r429*CH2O*O - r441*OCS*O - r484*N2p*O - r485*N2p*O - r486*Np*O + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r345*N2D*O2 + .85*r481*O2p*e - r287*N2*O1D - r285*H2*O1D - r286*H2O*O1D - r288*O2*O1D - r289*O2*O1D - r290*O3*O1D - - r338*N2O*O1D - r339*N2O*O1D - r371*CCL4*O1D - r372*CF2CLBR*O1D - r373*CFC11*O1D - - r374*CFC113*O1D - r375*CFC114*O1D - r376*CFC115*O1D - r377*CFC12*O1D - r378*HCL*O1D - - r379*HCL*O1D - r398*CF3BR*O1D - r399*CHBR3*O1D - r400*H2402*O1D - r401*HBR*O1D - r402*HBR*O1D - - r407*COF2*O1D - r408*COFCL*O1D - r421*CH2BR2*O1D - r422*CH3BR*O1D - r423*HCFC141B*O1D - - r424*HCFC142B*O1D - r425*HCFC22*O1D - r433*CH4*O1D - r434*CH4*O1D - r435*CH4*O1D + - r337*N2O*O1D - r338*N2O*O1D - r373*CCL4*O1D - r374*CF2CLBR*O1D - r375*CFC11*O1D + - r376*CFC113*O1D - r377*CFC114*O1D - r378*CFC115*O1D - r379*CFC12*O1D - r380*HCL*O1D + - r381*HCL*O1D - r400*CF3BR*O1D - r401*CHBR3*O1D - r402*H2402*O1D - r403*HBR*O1D - r404*HBR*O1D + - r409*COF2*O1D - r410*COFCL*O1D - r423*CH2BR2*O1D - r424*CH3BR*O1D - r425*HCFC141B*O1D + - r426*HCFC142B*O1D - r427*HCFC22*O1D - r435*CH4*O1D - r436*CH4*O1D - r437*CH4*O1D d(O2)/dt = j8*O3 + j20*NO3 + j93*O2m + j95*O3m + j97*O4m + r33*N2*O2m + r283*O2_1D + r284*O2_1S + r291*N2*O2_1D + r9*CLOm*O + r12*CLO*CO3m + r23*CL*CO4m + r24*CLO*CO4m + r27*CO4m*O + r28*CO4m*O3 + r30*O3*e + r44*NO3m*O2p + r45*HCO3m*O2p + r47*CO4m*O2p + r47*CO4m*O2p @@ -1237,36 +1237,36 @@ Extraneous prod/loss species + r231*CO2*O4m + r232*O*O4m + r233*H2O*O4p + 2*r235*O4p*O2_1D + r247*CLO*Om + r256*Om*O + 2*r276*e*O4p + r290*O1D*O3 + r290*O1D*O3 + r292*O2_1D*O + 2*r293*O2_1D*O2 + 2*r299*O*O3 + r300*M*O*O + r304*H*HO2 + r308*HO2*O + 2*r309*HO2*O3 + r310*H*O3 + r313*OH*HO2 + r314*OH*O - + r315*OH*O3 + r318*HO2*HO2 + r319*HO2NO2*OH + r325*N*NO2 + r327*NO2*O + r328*NO2*O3 - + r330*NO3*HO2 + r332*NO3*O + r336*NO*O3 + r339*O1D*N2O + r350*CL*HO2 + r352*CL*O3 - + r354*CLO*CLO + r355*CLO*CLO + r357*CLO*HO2 + r363*CLO*O + r365*CLO*OH + r383*BR*HO2 - + r384*BR*O3 + r385*BRO*BRO + r387*BRO*CLO + r388*BRO*CLO + r389*BRO*HO2 + r393*BRO*O - + r429*CH3O2*HO2 + r443*S*O3 + r449*SO*O3 + r489*O2p*NO + + r315*OH*O3 + r318*HO2*HO2 + r320*HO2NO2*OH + r325*N*NO2 + r326*NO2*O + r327*NO2*O3 + + r329*NO3*HO2 + r331*NO3*O + r335*NO*O3 + r338*O1D*N2O + r352*CL*HO2 + r354*CL*O3 + + r356*CLO*CLO + r357*CLO*CLO + r359*CLO*HO2 + r365*CLO*O + r367*CLO*OH + r385*BR*HO2 + + r386*BR*O3 + r387*BRO*BRO + r389*BRO*CLO + r390*BRO*CLO + r391*BRO*HO2 + r395*BRO*O + + r431*CH3O2*HO2 + r445*S*O3 + r451*SO*O3 + r491*O2p*NO - j5*O2 - j6*O2 - j83*O2 - j84*O2 - j85*O2 - j86*O2 - j87*O2 - j88*O2 - j89*O2 - j90*O2 - j91*O2 - j92*O2 - r22*CO3m*O2 - r29*N2*e*O2 - r31*M*e*O2 - r218*M*O2m*O2 - r258*M*Om*O2 - - r260*M*O2p*O2 - r288*O1D*O2 - r293*O2_1D*O2 - r301*M*O*O2 - r307*M*H*O2 - r321*N2D*O2 - - r326*N*O2 - r441*S*O2 - r448*SO*O2 - r481*N2p*O2 - r485*Np*O2 - r486*Np*O2 - r493*Op*O2 - - r497*Op2D*O2 + - r260*M*O2p*O2 - r288*O1D*O2 - r293*O2_1D*O2 - r301*M*O*O2 - r307*M*H*O2 - r345*N2D*O2 + - r347*N*O2 - r443*S*O2 - r450*SO*O2 - r483*N2p*O2 - r487*Np*O2 - r488*Np*O2 - r495*Op*O2 + - r499*Op2D*O2 d(O3)/dt = j96*O3m + r174*NO2*O3m + r220*O*O2m + r234*O4p*O + r257*Om*O2_1D + r301*M*O*O2 - j7*O3 - j8*O3 - r28*CO4m*O3 - r30*e*O3 - r188*NO2m*O3 - r198*NO3m*O3 - r219*O2m*O3 - r228*O3m*O3 - r244*OHm*O3 - r259*Om*O3 - r290*O1D*O3 - r299*O*O3 - r309*HO2*O3 - r310*H*O3 - - r315*OH*O3 - r328*NO2*O3 - r336*NO*O3 - r352*CL*O3 - r384*BR*O3 - r443*S*O3 - r449*SO*O3 - d(OCLO)/dt = r356*CLO*CLO + r386*BRO*CLO - - j60*OCLO - r450*SO*OCLO - d(OCS)/dt = - j101*OCS - r439*O*OCS - r440*OH*OCS + - r315*OH*O3 - r327*NO2*O3 - r335*NO*O3 - r354*CL*O3 - r386*BR*O3 - r445*S*O3 - r451*SO*O3 + d(OCLO)/dt = r358*CLO*CLO + r388*BRO*CLO + - j60*OCLO - r452*SO*OCLO + d(OCS)/dt = - j101*OCS - r441*O*OCS - r442*OH*OCS d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 d(S)/dt = j101*OCS + j102*SO - - r441*O2*S - r443*O3*S - r446*OH*S + - r443*O2*S - r445*O3*S - r448*OH*S d(SF6)/dt = - j61*SF6 - d(SO)/dt = j103*SO2 + r439*OCS*O + r441*S*O2 + r443*S*O3 + r446*S*OH - - j102*SO - r444*BRO*SO - r445*CLO*SO - r447*NO2*SO - r448*O2*SO - r449*O3*SO - r450*OCLO*SO - - r451*OH*SO - d(SO2)/dt = j104*SO3 + r437*DMS*NO3 + r438*DMS*OH + r440*OCS*OH + r444*SO*BRO + r445*SO*CLO + r447*SO*NO2 - + r448*SO*O2 + r449*SO*O3 + r450*SO*OCLO + r451*SO*OH + .5*r452*DMS*OH - - j103*SO2 - r442*M*OH*SO2 - d(SO3)/dt = j100*H2SO4 + r442*M*SO2*OH - - j104*SO3 - r453*H2O*SO3 + d(SO)/dt = j103*SO2 + r441*OCS*O + r443*S*O2 + r445*S*O3 + r448*S*OH + - j102*SO - r446*BRO*SO - r447*CLO*SO - r449*NO2*SO - r450*O2*SO - r451*O3*SO - r452*OCLO*SO + - r453*OH*SO + d(SO2)/dt = j104*SO3 + r439*DMS*NO3 + r440*DMS*OH + r442*OCS*OH + r446*SO*BRO + r447*SO*CLO + r449*SO*NO2 + + r450*SO*O2 + r451*SO*O3 + r452*SO*OCLO + r453*SO*OH + .5*r454*DMS*OH + - j103*SO2 - r444*M*OH*SO2 + d(SO3)/dt = j100*H2SO4 + r444*M*SO2*OH + - j104*SO3 - r455*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 @@ -1317,21 +1317,21 @@ Extraneous prod/loss species + r240*H*OHm + r243*OHm*O + r249*H2*Om + r256*Om*O + r257*Om*O2_1D - r29*N2*O2*e - r30*O3*e - r31*M*O2*e - r34*H3Op_OH*e - r37*Hp_4H2O*e - r40*Hp_5H2O*e - r199*NOp_2H2O*e - r200*NOp_3H2O*e - r202*NOp_CO2*e - r204*NOp_H2O*e - r222*O2p_H2O*e - - r276*O4p*e - r277*Hp_H2O*e - r278*Hp_2H2O*e - r279*Hp_3H2O*e - r280*NOp_N2*e - r478*NOp*e - - r479*O2p*e - r480*N2p*e + - r276*O4p*e - r277*Hp_H2O*e - r278*Hp_2H2O*e - r279*Hp_3H2O*e - r280*NOp_N2*e - r480*NOp*e + - r481*O2p*e - r482*N2p*e d(H3Op_OH)/dt = r223*O2p_H2O*H2O - r34*e*H3Op_OH - r35*H2O*H3Op_OH d(HCO3m)/dt = r239*M*CO2*OHm - r45*O2p*HCO3m - r68*Hp_5H2O*HCO3m - r85*Hp_3H2O*HCO3m - r99*Hp_4H2O*HCO3m - r103*NOp_H2O*HCO3m - r120*NOp_2H2O*HCO3m - r138*NOp*HCO3m - d(HO2)/dt = j11*HO2NO2 + r344*M*HO2NO2 + r26*CO4m*HCL + r213*H*O2m + r214*O2m*HCL + r215*O2m*HNO3 - + r243*OHm*O + r303*H2O2*O + r307*M*H*O2 + r312*OH*H2O2 + r315*OH*O3 + r333*NO3*OH - + r346*CL*CH2O + r349*CL*H2O2 + r353*CLO*CH3O2 + r364*CLO*OH + r382*BR*CH2O + r394*BRO*OH - + r411*CH3BR*CL + r412*CH3BR*OH + r414*CH3CL*CL + r415*CH3CL*OH + r426*CH2O*NO3 + r427*CH2O*O - + r430*CH3O2*NO + r434*O1D*CH4 + r436*CO*OH + r442*M*SO2*OH + .5*r452*DMS*OH - - r454*HO2 - r206*NOp_H2O*HO2 - r304*H*HO2 - r305*H*HO2 - r306*H*HO2 - r308*O*HO2 - r309*O3*HO2 - - r313*OH*HO2 - 2*r318*HO2*HO2 - r330*NO3*HO2 - r335*NO*HO2 - r340*M*NO2*HO2 - r350*CL*HO2 - - r351*CL*HO2 - r357*CLO*HO2 - r383*BR*HO2 - r389*BRO*HO2 - r429*CH3O2*HO2 + d(HO2)/dt = j11*HO2NO2 + r343*M*HO2NO2 + r26*CO4m*HCL + r213*H*O2m + r214*O2m*HCL + r215*O2m*HNO3 + + r243*OHm*O + r303*H2O2*O + r307*M*H*O2 + r312*OH*H2O2 + r315*OH*O3 + r332*NO3*OH + + r348*CL*CH2O + r351*CL*H2O2 + r355*CLO*CH3O2 + r366*CLO*OH + r384*BR*CH2O + r396*BRO*OH + + r413*CH3BR*CL + r414*CH3BR*OH + r416*CH3CL*CL + r417*CH3CL*OH + r428*CH2O*NO3 + r429*CH2O*O + + r432*CH3O2*NO + r436*O1D*CH4 + r438*CO*OH + r444*M*SO2*OH + .5*r454*DMS*OH + - r456*HO2 - r206*NOp_H2O*HO2 - r304*H*HO2 - r305*H*HO2 - r306*H*HO2 - r308*O*HO2 - r309*O3*HO2 + - r313*OH*HO2 - 2*r318*HO2*HO2 - r329*NO3*HO2 - r334*NO*HO2 - r339*M*NO2*HO2 - r352*CL*HO2 + - r353*CL*HO2 - r359*CLO*HO2 - r385*BR*HO2 - r391*BRO*HO2 - r431*CH3O2*HO2 d(Hp_2H2O)/dt = r271*M*Hp_3H2O + r35*H2O*H3Op_OH + r268*M*Hp_H2O*H2O - r269*M*Hp_2H2O - r270*M*H2O*Hp_2H2O - r278*e*Hp_2H2O d(Hp_3H2O)/dt = r273*M*Hp_4H2O + r201*H2O*NOp_3H2O + r270*M*H2O*Hp_2H2O @@ -1363,10 +1363,10 @@ Extraneous prod/loss species - r166*M*NO3mHNO3*Hp_5H2O d(Hp_H2O)/dt = r269*M*Hp_2H2O + r205*H*NOp_H2O + r206*NOp_H2O*HO2 + r207*NOp_H2O*OH + r224*O2p_H2O*H2O - r268*M*H2O*Hp_H2O - r277*e*Hp_H2O - d(N2D)/dt = j68*N2 + j71*N2 + 1.2*j72*N2 + 1.2*j73*N2 + .8*r478*NOp*e + .9*r480*N2p*e + r482*N2p*O - - r320*O*N2D - r321*O2*N2D - r492*Op*N2D - d(N2p)/dt = j67*N2 + j74*N2 + r495*N2*Op2D + r500*N2*Op2P - - r480*e*N2p - r481*O2*N2p - r482*O*N2p - r483*O*N2p + d(N2D)/dt = j68*N2 + j71*N2 + 1.2*j72*N2 + 1.2*j73*N2 + .8*r480*NOp*e + .9*r482*N2p*e + r484*N2p*O + - r319*N2D - r321*NO*N2D - r344*e*N2D - r345*O2*N2D - r494*Op*N2D + d(N2p)/dt = j67*N2 + j74*N2 + r497*N2*Op2D + r502*N2*Op2P + - r482*e*N2p - r483*O2*N2p - r484*O*N2p - r485*O*N2p d(NO2m)/dt = r169*M*NO2m_H2O + r6*CLm*NO2 + r7*CLOm*NO + r19*CO3m_H2O*NO + r174*NO2*O3m + r175*NO*O3m + r176*CO3m*NO + r197*NO3m*O + r198*O3*NO3m + r216*NO2*O2m + r242*NO2*OHm + r255*NO2*Om - j75*NO2m - r57*O2p*NO2m - r62*Hp_4H2O*NO2m - r80*Hp_5H2O*NO2m - r97*Hp_3H2O*NO2m @@ -1399,12 +1399,12 @@ Extraneous prod/loss species - r171*M*NO3mHNO3 - r42*Hp_4H2O*NO3mHNO3 - r63*Hp_5H2O*NO3mHNO3 - r81*Hp_3H2O*NO3mHNO3 - r98*NOp_H2O*NO3mHNO3 - r116*NOp_2H2O*NO3mHNO3 - r134*NOp*NO3mHNO3 - r151*O2p*NO3mHNO3 - r165*M*Hp_4H2O*NO3mHNO3 - r166*M*Hp_5H2O*NO3mHNO3 - d(NOp)/dt = j16*NO + r265*M*NOp_CO2 + r267*M*NOp_N2 + r488*N2*O2p + r491*N2*Op + r482*N2p*O + r486*Np*O2 - + r487*O2p*N + r489*O2p*NO + d(NOp)/dt = j16*NO + r265*M*NOp_CO2 + r267*M*NOp_N2 + r490*N2*O2p + r493*N2*Op + r484*N2p*O + r488*Np*O2 + + r489*O2p*N + r491*O2p*NO - r266*N2*M*NOp - r134*NO3mHNO3*NOp - r135*CO3m*NOp - r136*CLm_HCL*NOp - r137*NO3m*NOp - r138*HCO3m*NOp - r139*O2m*NOp - r140*CO4m*NOp - r141*NO3m_H2O*NOp - r142*CO3m2H2O*NOp - r144*CLm*NOp - r145*CO3m_H2O*NOp - r146*NO2m_H2O*NOp - r147*NO3m_HCL*NOp - r148*CLm_H2O*NOp - - r149*NO3m2H2O*NOp - r150*NO2m*NOp - r261*M*H2O*NOp - r264*M*CO2*NOp - r478*e*NOp + - r149*NO3m2H2O*NOp - r150*NO2m*NOp - r261*M*H2O*NOp - r264*M*CO2*NOp - r480*e*NOp d(NOp_2H2O)/dt = r262*M*H2O*NOp_H2O - r116*NO3mHNO3*NOp_2H2O - r117*CO3m*NOp_2H2O - r118*CLm_HCL*NOp_2H2O - r119*NO3m*NOp_2H2O - r120*HCO3m*NOp_2H2O - r122*O2m*NOp_2H2O - r123*CO4m*NOp_2H2O - r124*NO3m_H2O*NOp_2H2O @@ -1423,8 +1423,8 @@ Extraneous prod/loss species - r204*e*NOp_H2O - r205*H*NOp_H2O - r206*HO2*NOp_H2O - r207*OH*NOp_H2O - r262*M*H2O*NOp_H2O d(NOp_N2)/dt = r266*N2*M*NOp - r267*M*NOp_N2 - r208*CO2*NOp_N2 - r209*H2O*NOp_N2 - r280*e*NOp_N2 - d(Np)/dt = j68*N2 + j69*N2 + j70*N2 + j71*N2 + j66*N + r501*N2*Op2P + r492*Op*N2D - - r484*O*Np - r485*O2*Np - r486*O2*Np + d(Np)/dt = j68*N2 + j69*N2 + j70*N2 + j71*N2 + j66*N + r503*N2*Op2P + r494*Op*N2D + - r486*O*Np - r487*O2*Np - r488*O2*Np d(O2_1D)/dt = j7*O3 + r295*N2*O2_1S + r294*O2_1S*CO2 + r296*O2_1S*O + r297*O2_1S*O2 + r298*O2_1S*O3 - r283*O2_1D - r291*N2*O2_1D - r217*O2m*O2_1D - r235*O4p*O2_1D - r257*Om*O2_1D - r292*O*O2_1D - r293*O2*O2_1D @@ -1435,12 +1435,12 @@ Extraneous prod/loss species - r110*Hp_4H2O*O2m - r122*NOp_2H2O*O2m - r139*NOp*O2m - r210*CL*O2m - r211*CLO*O2m - r212*M*CO2*O2m - r213*H*O2m - r214*HCL*O2m - r215*HNO3*O2m - r216*NO2*O2m - r217*O2_1D*O2m - r218*M*O2*O2m - r219*O3*O2m - r220*O*O2m - r221*O*O2m - d(O2p)/dt = j84*O2 + j86*O2 + j94*O2p_H2O + 2*r46*O2m*O2p + r234*O4p*O + r235*O4p*O2_1D + r481*N2p*O2 - + r485*Np*O2 + r490*Op*CO2 + r493*Op*O2 + r497*Op2D*O2 - - r488*N2*O2p - r44*NO3m*O2p - r45*HCO3m*O2p - r46*O2m*O2p - r47*CO4m*O2p - r48*NO3m_H2O*O2p + d(O2p)/dt = j84*O2 + j86*O2 + j94*O2p_H2O + 2*r46*O2m*O2p + r234*O4p*O + r235*O4p*O2_1D + r483*N2p*O2 + + r487*Np*O2 + r492*Op*CO2 + r495*Op*O2 + r499*Op2D*O2 + - r490*N2*O2p - r44*NO3m*O2p - r45*HCO3m*O2p - r46*O2m*O2p - r47*CO4m*O2p - r48*NO3m_H2O*O2p - r49*CO3m2H2O*O2p - r50*CLm*O2p - r51*CO3m_H2O*O2p - r52*NO2m_H2O*O2p - r53*NO3m_HCL*O2p - r55*CLm_H2O*O2p - r56*NO3m2H2O*O2p - r57*NO2m*O2p - r151*NO3mHNO3*O2p - r152*CO3m*O2p - - r153*CLm_HCL*O2p - r225*M*H2O*O2p - r260*M*O2*O2p - r479*e*O2p - r487*N*O2p - r489*NO*O2p + - r153*CLm_HCL*O2p - r225*M*H2O*O2p - r260*M*O2*O2p - r481*e*O2p - r489*N*O2p - r491*NO*O2p d(O2p_H2O)/dt = r225*M*H2O*O2p + r233*H2O*O4p - j94*O2p_H2O - r222*e*O2p_H2O - r223*H2O*O2p_H2O - r224*H2O*O2p_H2O d(O3m)/dt = r22*O2*CO3m + r28*CO4m*O3 + r219*O3*O2m + r232*O*O4m + r244*OHm*O3 + r258*M*Om*O2 + r259*O3*Om @@ -1451,21 +1451,21 @@ Extraneous prod/loss species d(O4p)/dt = r260*M*O2p*O2 - r233*H2O*O4p - r234*O*O4p - r235*O2_1D*O4p - r276*e*O4p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j12*HONO + j23*CH3OOH + .33*j25*CH4 + j58*HOBR - + j59*HOCL + j98*OHm + .5*r456*NO2 + r20*CO3m*HNO3 + r25*CO4m*H + r34*H3Op_OH*e + + j59*HOCL + j98*OHm + .5*r458*NO2 + r20*CO3m*HNO3 + r25*CO4m*H + r34*H3Op_OH*e + r35*H2O*H3Op_OH + r45*HCO3m*O2p + r68*HCO3m*Hp_5H2O + r85*HCO3m*Hp_3H2O + r99*HCO3m*Hp_4H2O + r103*HCO3m*NOp_H2O + r120*HCO3m*NOp_2H2O + r138*NOp*HCO3m + r224*O2p_H2O*H2O + r237*CL*OHm + r238*CLO*OHm + r242*NO2*OHm + r244*OHm*O3 + r251*Om*H2O + r252*Om*HCL + r253*Om*HNO3 + r285*O1D*H2 + 2*r286*O1D*H2O + r302*H2*O + r303*H2O2*O + 2*r305*H*HO2 + r308*HO2*O - + r309*HO2*O3 + r310*H*O3 + r330*NO3*HO2 + r335*NO*HO2 + r351*CL*HO2 + r366*HCL*O + r369*HOCL*O - + r378*O1D*HCL + r395*HBR*O + r397*HOBR*O + r401*O1D*HBR + r405*F*H2O + r427*CH2O*O - + .3*r431*CH3OOH*OH + r433*O1D*CH4 + + r309*HO2*O3 + r310*H*O3 + r329*NO3*HO2 + r334*NO*HO2 + r353*CL*HO2 + r368*HCL*O + r371*HOCL*O + + r380*O1D*HCL + r397*HBR*O + r399*HOBR*O + r403*O1D*HBR + r407*F*H2O + r429*CH2O*O + + .3*r433*CH3OOH*OH + r435*O1D*CH4 - r207*NOp_H2O*OH - r236*HONO*OH - r245*M*NO*OH - r311*H2*OH - r312*H2O2*OH - r313*HO2*OH - - r314*O*OH - r315*O3*OH - 2*r316*OH*OH - 2*r317*M*OH*OH - r319*HO2NO2*OH - r333*NO3*OH - - r334*N*OH - r342*M*NO2*OH - r343*HNO3*OH - r362*CLONO2*OH - r364*CLO*OH - r365*CLO*OH - - r367*HCL*OH - r370*HOCL*OH - r394*BRO*OH - r396*HBR*OH - r410*CH2BR2*OH - r412*CH3BR*OH - - r413*CH3CCL3*OH - r415*CH3CL*OH - r417*CHBR3*OH - r418*HCFC141B*OH - r419*HCFC142B*OH - - r420*HCFC22*OH - r428*CH2O*OH - r431*CH3OOH*OH - r432*CH4*OH - r436*CO*OH - r438*DMS*OH - - r440*OCS*OH - r442*M*SO2*OH - r446*S*OH - r451*SO*OH - r452*DMS*OH + - r314*O*OH - r315*O3*OH - 2*r316*OH*OH - 2*r317*M*OH*OH - r320*HO2NO2*OH - r332*NO3*OH + - r333*N*OH - r341*M*NO2*OH - r342*HNO3*OH - r364*CLONO2*OH - r366*CLO*OH - r367*CLO*OH + - r369*HCL*OH - r372*HOCL*OH - r396*BRO*OH - r398*HBR*OH - r412*CH2BR2*OH - r414*CH3BR*OH + - r415*CH3CCL3*OH - r417*CH3CL*OH - r419*CHBR3*OH - r420*HCFC141B*OH - r421*HCFC142B*OH + - r422*HCFC22*OH - r430*CH2O*OH - r433*CH3OOH*OH - r434*CH4*OH - r438*CO*OH - r440*DMS*OH + - r442*OCS*OH - r444*M*SO2*OH - r448*S*OH - r453*SO*OH - r454*DMS*OH d(OHm)/dt = r13*H*CO3m + r183*H*NO2m + r227*O3m*H + r250*Om*H2 + r251*Om*H2O - j98*OHm - r237*CL*OHm - r238*CLO*OHm - r239*M*CO2*OHm - r240*H*OHm - r241*HCL*OHm - r242*NO2*OHm - r243*O*OHm - r244*O3*OHm @@ -1473,14 +1473,14 @@ Extraneous prod/loss species - j99*Om - r254*M*Om - r32*NO*Om - r246*CL*Om - r247*CLO*Om - r248*M*CO2*Om - r249*H2*Om - r250*H2*Om - r251*H2O*Om - r252*HCL*Om - r253*HNO3*Om - r255*NO2*Om - r256*O*Om - r257*O2_1D*Om - r258*M*O2*Om - r259*O3*Om - d(Op)/dt = j77*O + j81*O + j85*O2 + j87*O2 + r475*Op2P + r476*Op2D + r483*N2p*O + r484*Np*O + r494*Op2D*e - + r496*Op2D*O + r499*Op2P*e + r502*Op2P*O - - r491*N2*Op - r490*CO2*Op - r492*N2D*Op - r493*O2*Op - d(Op2D)/dt = j78*O + j82*O + j83*O2 + j92*O2 + r477*Op2P + r498*Op2P*e - - r476*Op2D - r495*N2*Op2D - r494*e*Op2D - r496*O*Op2D - r497*O2*Op2D + d(Op)/dt = j77*O + j81*O + j85*O2 + j87*O2 + r477*Op2P + r478*Op2D + r485*N2p*O + r486*Np*O + r496*Op2D*e + + r498*Op2D*O + r501*Op2P*e + r504*Op2P*O + - r493*N2*Op - r492*CO2*Op - r494*N2D*Op - r495*O2*Op + d(Op2D)/dt = j78*O + j82*O + j83*O2 + j92*O2 + r479*Op2P + r500*Op2P*e + - r478*Op2D - r497*N2*Op2D - r496*e*Op2D - r498*O*Op2D - r499*O2*Op2D d(Op2P)/dt = j79*O + j80*O + j90*O2 + j91*O2 - - r475*Op2P - r477*Op2P - r500*N2*Op2P - r501*N2*Op2P - r498*e*Op2P - r499*e*Op2P - - r502*O*Op2P + - r477*Op2P - r479*Op2P - r502*N2*Op2P - r503*N2*Op2P - r500*e*Op2P - r501*e*Op2P + - r504*O*Op2P d(H2O)/dt = .05*j25*CH4 + j64*CO3m_H2O + j94*O2p_H2O + j100*H2SO4 + r169*M*NO2m_H2O + r170*M*NO3m2H2O + r178*M*NO3m_H2O + r179*M*CO3m_H2O + r180*M*CO3m2H2O + r269*M*Hp_2H2O + r271*M*Hp_3H2O + r273*M*Hp_4H2O + r275*M*Hp_5H2O + r281*M*CLm_H2O + r2*CLm_H2O*HCL + r16*CO3m_H2O*NO2 @@ -1516,13 +1516,13 @@ Extraneous prod/loss species + r189*NO3m2H2O*N2O5 + r191*HNO3*NO3m_H2O + 2*r199*NOp_2H2O*e + 3*r200*NOp_3H2O*e + r204*NOp_H2O*e + r222*O2p_H2O*e + r236*HONO*OH + r240*H*OHm + r241*OHm*HCL + r249*H2*Om + r277*Hp_H2O*e + 2*r278*Hp_2H2O*e + 3*r279*Hp_3H2O*e + r306*H*HO2 + r311*OH*H2 + r312*OH*H2O2 - + r313*OH*HO2 + r316*OH*OH + r319*HO2NO2*OH + r343*HNO3*OH + r367*HCL*OH + r370*HOCL*OH - + r396*HBR*OH + r410*CH2BR2*OH + r412*CH3BR*OH + r413*CH3CCL3*OH + r415*CH3CL*OH - + r420*HCFC22*OH + r428*CH2O*OH + r431*CH3OOH*OH + r432*CH4*OH + r459*HOCL*HCL + r465*HOCL*HCL - + r466*HOBR*HCL + r470*HOCL*HCL + r471*HOBR*HCL + + r313*OH*HO2 + r316*OH*OH + r320*HO2NO2*OH + r342*HNO3*OH + r369*HCL*OH + r372*HOCL*OH + + r398*HBR*OH + r412*CH2BR2*OH + r414*CH3BR*OH + r415*CH3CCL3*OH + r417*CH3CL*OH + + r422*HCFC22*OH + r430*CH2O*OH + r433*CH3OOH*OH + r434*CH4*OH + r461*HOCL*HCL + r467*HOCL*HCL + + r468*HOBR*HCL + r472*HOCL*HCL + r473*HOBR*HCL - j1*H2O - j2*H2O - j3*H2O - r3*M*CLm*H2O - r14*M*CO3m_H2O*H2O - r15*M*CO3m*H2O - r35*H3Op_OH*H2O - r36*Hp_3N1*H2O - r39*Hp_4N1*H2O - r184*M*NO2m*H2O - r190*M*NO3m_H2O*H2O - r192*M*NO3m*H2O - r201*NOp_3H2O*H2O - r203*NOp_CO2*H2O - r209*NOp_N2*H2O - r223*O2p_H2O*H2O - r224*O2p_H2O*H2O - r225*M*O2p*H2O - r233*O4p*H2O - r251*Om*H2O - r261*M*NOp*H2O - r262*M*NOp_H2O*H2O - r263*M*NOp_2H2O*H2O - r268*M*Hp_H2O*H2O - r270*M*Hp_2H2O*H2O - - r272*M*Hp_3H2O*H2O - r274*M*Hp_4H2O*H2O - r286*O1D*H2O - r405*F*H2O - r453*SO3*H2O + - r272*M*Hp_3H2O*H2O - r274*M*Hp_4H2O*H2O - r286*O1D*H2O - r407*F*H2O - r455*SO3*H2O diff --git a/src/chemistry/pp_waccm_mad_mam5/chem_mech.in b/src/chemistry/pp_waccm_mad_mam5/chem_mech.in index 6457b97c02..d2bd5eb7ae 100644 --- a/src/chemistry/pp_waccm_mad_mam5/chem_mech.in +++ b/src/chemistry/pp_waccm_mad_mam5/chem_mech.in @@ -1,11 +1,11 @@ * Comments -* User-given Tag Description: WACCM_MAD_MAM4_JPL19 -* Tag database identifier : MZ322_MAD_MAM4_20221220 -* Tag created by : lke +* User-given Tag Description: MAD_MAM5 +* Tag database identifier : MZ373_MAD_MAM4_20250304 +* Tag created by : jz * Tag created from branch : MAD_MAM4 -* Tag created on : 2022-12-20 14:37:15.595223-07 +* Tag created on : 2025-03-04 10:51:57.706966-07 * Comments for this tag follow: -* lke : 2022-12-20 : WACCM Middle Atmosphere and D-region mechanism, updated to JPL19 +* jz : 2025-03-04 : odd-nitrogen reaction update SPECIES @@ -824,14 +824,13 @@ ********************************* *** odd-nitrogen ********************************* +[agn2d] N2D -> N ; 1.06e-05 [HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 -[N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 -[N2D_O2,cph=177.51] N2D + O2 -> NO + O1D ; 5e-12 +[N2D_NO,cph=543.13] N2D + NO -> N2 + O ; 7e-11 [N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 [N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 [N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 [N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 -[N_O2,cph=133.75] N + O2 -> NO + O ; 3.3e-12, -3150 [NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 [NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 [NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 @@ -850,7 +849,10 @@ [tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 [usr_HNO3_OH] HNO3 + OH -> NO3 + H2O [usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M +[usr_N2D_e,cph=229.61] N2D + e -> N + e +[usr_N2D_O2,cph=177.51] N2D + O2 -> NO + O1D [usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[usr_N_O2,cph=133.75] N + O2 -> NO + O ********************************* *** odd-chlorine ********************************* @@ -1038,31 +1040,29 @@ End Reactions Ext Forcing - so4_a2 <- dataset - DMS <- dataset - NO2 <- dataset + CO <- dataset + bc_a4 <- dataset SO2 <- dataset + NO2 <- dataset bc_a1 <- dataset - bc_a4 <- dataset + NO <- dataset + pom_a1 <- dataset + DMS <- dataset num_a1 <- dataset num_a2 <- dataset + so4_a1 <- dataset + so4_a2 <- dataset num_a4 <- dataset - num_a5 <- dataset - pom_a1 <- dataset pom_a4 <- dataset - so4_a1 <- dataset - so4_a5 <- dataset - CO <- dataset - NO <- dataset - N - N2D + O2p N2p - OH - Op - e Np + N2D + e + N O - O2p + OH + Op End Ext Forcing End Chemistry diff --git a/src/chemistry/pp_waccm_mad_mam5/chem_mods.F90 b/src/chemistry/pp_waccm_mad_mam5/chem_mods.F90 index 6ec70347a1..7a8fe6bb64 100644 --- a/src/chemistry/pp_waccm_mad_mam5/chem_mods.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/chem_mods.F90 @@ -6,15 +6,15 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 104, & ! number of photolysis reactions - rxntot = 606, & ! number of total reactions - gascnt = 502, & ! number of gas phase reactions + rxntot = 608, & ! number of total reactions + gascnt = 504, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 139, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 2090, & ! number of non-zero matrix entries - extcnt = 25, & ! number of species with external forcing + nzcnt = 2093, & ! number of non-zero matrix entries + extcnt = 23, & ! number of species with external forcing clscnt1 = 0, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class clscnt3 = 0, & ! number of species in ebi class @@ -23,8 +23,8 @@ module chem_mods indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 606, & - enthalpy_cnt = 54, & + rxt_tag_cnt = 608, & + enthalpy_cnt = 55, & nslvd = 49 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 diff --git a/src/chemistry/pp_waccm_mad_mam5/m_rxt_id.F90 b/src/chemistry/pp_waccm_mad_mam5/m_rxt_id.F90 index b0906a4849..4a57af9b0b 100644 --- a/src/chemistry/pp_waccm_mad_mam5/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/m_rxt_id.F90 @@ -422,188 +422,190 @@ module m_rxt_id integer, parameter :: rid_OH_OH = 420 integer, parameter :: rid_OH_OH_M = 421 integer, parameter :: rid_usr_HO2_HO2 = 422 - integer, parameter :: rid_HO2NO2_OH = 423 - integer, parameter :: rid_N2D_O = 424 - integer, parameter :: rid_N2D_O2 = 425 + integer, parameter :: rid_agn2d = 423 + integer, parameter :: rid_HO2NO2_OH = 424 + integer, parameter :: rid_N2D_NO = 425 integer, parameter :: rid_N_NO = 426 integer, parameter :: rid_N_NO2a = 427 integer, parameter :: rid_N_NO2b = 428 integer, parameter :: rid_N_NO2c = 429 - integer, parameter :: rid_N_O2 = 430 - integer, parameter :: rid_NO2_O = 431 - integer, parameter :: rid_NO2_O3 = 432 - integer, parameter :: rid_NO2_O_M = 433 - integer, parameter :: rid_NO3_HO2 = 434 - integer, parameter :: rid_NO3_NO = 435 - integer, parameter :: rid_NO3_O = 436 - integer, parameter :: rid_NO3_OH = 437 - integer, parameter :: rid_N_OH = 438 - integer, parameter :: rid_NO_HO2 = 439 - integer, parameter :: rid_NO_O3 = 440 - integer, parameter :: rid_NO_O_M = 441 - integer, parameter :: rid_O1D_N2Oa = 442 - integer, parameter :: rid_O1D_N2Ob = 443 - integer, parameter :: rid_tag_NO2_HO2 = 444 - integer, parameter :: rid_tag_NO2_NO3 = 445 - integer, parameter :: rid_tag_NO2_OH = 446 - integer, parameter :: rid_usr_HNO3_OH = 447 - integer, parameter :: rid_usr_HO2NO2_M = 448 - integer, parameter :: rid_usr_N2O5_M = 449 - integer, parameter :: rid_CL_CH2O = 450 - integer, parameter :: rid_CL_CH4 = 451 - integer, parameter :: rid_CL_H2 = 452 - integer, parameter :: rid_CL_H2O2 = 453 - integer, parameter :: rid_CL_HO2a = 454 - integer, parameter :: rid_CL_HO2b = 455 - integer, parameter :: rid_CL_O3 = 456 - integer, parameter :: rid_CLO_CH3O2 = 457 - integer, parameter :: rid_CLO_CLOa = 458 - integer, parameter :: rid_CLO_CLOb = 459 - integer, parameter :: rid_CLO_CLOc = 460 - integer, parameter :: rid_CLO_HO2 = 461 - integer, parameter :: rid_CLO_NO = 462 - integer, parameter :: rid_CLONO2_CL = 463 - integer, parameter :: rid_CLO_NO2_M = 464 - integer, parameter :: rid_CLONO2_O = 465 - integer, parameter :: rid_CLONO2_OH = 466 - integer, parameter :: rid_CLO_O = 467 - integer, parameter :: rid_CLO_OHa = 468 - integer, parameter :: rid_CLO_OHb = 469 - integer, parameter :: rid_HCL_O = 470 - integer, parameter :: rid_HCL_OH = 471 - integer, parameter :: rid_HOCL_CL = 472 - integer, parameter :: rid_HOCL_O = 473 - integer, parameter :: rid_HOCL_OH = 474 - integer, parameter :: rid_O1D_CCL4 = 475 - integer, parameter :: rid_O1D_CF2CLBR = 476 - integer, parameter :: rid_O1D_CFC11 = 477 - integer, parameter :: rid_O1D_CFC113 = 478 - integer, parameter :: rid_O1D_CFC114 = 479 - integer, parameter :: rid_O1D_CFC115 = 480 - integer, parameter :: rid_O1D_CFC12 = 481 - integer, parameter :: rid_O1D_HCLa = 482 - integer, parameter :: rid_O1D_HCLb = 483 - integer, parameter :: rid_tag_CLO_CLO_M = 484 - integer, parameter :: rid_usr_CL2O2_M = 485 - integer, parameter :: rid_BR_CH2O = 486 - integer, parameter :: rid_BR_HO2 = 487 - integer, parameter :: rid_BR_O3 = 488 - integer, parameter :: rid_BRO_BRO = 489 - integer, parameter :: rid_BRO_CLOa = 490 - integer, parameter :: rid_BRO_CLOb = 491 - integer, parameter :: rid_BRO_CLOc = 492 - integer, parameter :: rid_BRO_HO2 = 493 - integer, parameter :: rid_BRO_NO = 494 - integer, parameter :: rid_BRO_NO2_M = 495 - integer, parameter :: rid_BRONO2_O = 496 - integer, parameter :: rid_BRO_O = 497 - integer, parameter :: rid_BRO_OH = 498 - integer, parameter :: rid_HBR_O = 499 - integer, parameter :: rid_HBR_OH = 500 - integer, parameter :: rid_HOBR_O = 501 - integer, parameter :: rid_O1D_CF3BR = 502 - integer, parameter :: rid_O1D_CHBR3 = 503 - integer, parameter :: rid_O1D_H2402 = 504 - integer, parameter :: rid_O1D_HBRa = 505 - integer, parameter :: rid_O1D_HBRb = 506 - integer, parameter :: rid_F_CH4 = 507 - integer, parameter :: rid_F_H2 = 508 - integer, parameter :: rid_F_H2O = 509 - integer, parameter :: rid_F_HNO3 = 510 - integer, parameter :: rid_O1D_COF2 = 511 - integer, parameter :: rid_O1D_COFCL = 512 - integer, parameter :: rid_CH2BR2_CL = 513 - integer, parameter :: rid_CH2BR2_OH = 514 - integer, parameter :: rid_CH3BR_CL = 515 - integer, parameter :: rid_CH3BR_OH = 516 - integer, parameter :: rid_CH3CCL3_OH = 517 - integer, parameter :: rid_CH3CL_CL = 518 - integer, parameter :: rid_CH3CL_OH = 519 - integer, parameter :: rid_CHBR3_CL = 520 - integer, parameter :: rid_CHBR3_OH = 521 - integer, parameter :: rid_HCFC141B_OH = 522 - integer, parameter :: rid_HCFC142B_OH = 523 - integer, parameter :: rid_HCFC22_OH = 524 - integer, parameter :: rid_O1D_CH2BR2 = 525 - integer, parameter :: rid_O1D_CH3BR = 526 - integer, parameter :: rid_O1D_HCFC141B = 527 - integer, parameter :: rid_O1D_HCFC142B = 528 - integer, parameter :: rid_O1D_HCFC22 = 529 - integer, parameter :: rid_CH2O_NO3 = 530 - integer, parameter :: rid_CH2O_O = 531 - integer, parameter :: rid_CH2O_OH = 532 - integer, parameter :: rid_CH3O2_HO2 = 533 - integer, parameter :: rid_CH3O2_NO = 534 - integer, parameter :: rid_CH3OOH_OH = 535 - integer, parameter :: rid_CH4_OH = 536 - integer, parameter :: rid_O1D_CH4a = 537 - integer, parameter :: rid_O1D_CH4b = 538 - integer, parameter :: rid_O1D_CH4c = 539 - integer, parameter :: rid_usr_CO_OH = 540 - integer, parameter :: rid_DMS_NO3 = 541 - integer, parameter :: rid_DMS_OHa = 542 - integer, parameter :: rid_OCS_O = 543 - integer, parameter :: rid_OCS_OH = 544 - integer, parameter :: rid_S_O2 = 545 - integer, parameter :: rid_SO2_OH_M = 546 - integer, parameter :: rid_S_O3 = 547 - integer, parameter :: rid_SO_BRO = 548 - integer, parameter :: rid_SO_CLO = 549 - integer, parameter :: rid_S_OH = 550 - integer, parameter :: rid_SO_NO2 = 551 - integer, parameter :: rid_SO_O2 = 552 - integer, parameter :: rid_SO_O3 = 553 - integer, parameter :: rid_SO_OCLO = 554 - integer, parameter :: rid_SO_OH = 555 - integer, parameter :: rid_usr_DMS_OH = 556 - integer, parameter :: rid_usr_SO3_H2O = 557 - integer, parameter :: rid_usr_HO2_aer = 558 - integer, parameter :: rid_usr_N2O5_aer = 559 - integer, parameter :: rid_usr_NO2_aer = 560 - integer, parameter :: rid_usr_NO3_aer = 561 - integer, parameter :: rid_het1 = 562 - integer, parameter :: rid_het10 = 563 - integer, parameter :: rid_het11 = 564 - integer, parameter :: rid_het12 = 565 - integer, parameter :: rid_het13 = 566 - integer, parameter :: rid_het14 = 567 - integer, parameter :: rid_het15 = 568 - integer, parameter :: rid_het16 = 569 - integer, parameter :: rid_het17 = 570 - integer, parameter :: rid_het2 = 571 - integer, parameter :: rid_het3 = 572 - integer, parameter :: rid_het4 = 573 - integer, parameter :: rid_het5 = 574 - integer, parameter :: rid_het6 = 575 - integer, parameter :: rid_het7 = 576 - integer, parameter :: rid_het8 = 577 - integer, parameter :: rid_het9 = 578 - integer, parameter :: rid_ag247nm = 579 - integer, parameter :: rid_ag373nm = 580 - integer, parameter :: rid_ag732nm = 581 - integer, parameter :: rid_elec1 = 582 - integer, parameter :: rid_elec2 = 583 - integer, parameter :: rid_elec3 = 584 - integer, parameter :: rid_ion_N2p_O2 = 585 - integer, parameter :: rid_ion_N2p_Oa = 586 - integer, parameter :: rid_ion_N2p_Ob = 587 - integer, parameter :: rid_ion_Np_O = 588 - integer, parameter :: rid_ion_Np_O2a = 589 - integer, parameter :: rid_ion_Np_O2b = 590 - integer, parameter :: rid_ion_O2p_N = 591 - integer, parameter :: rid_ion_O2p_N2 = 592 - integer, parameter :: rid_ion_O2p_NO = 593 - integer, parameter :: rid_ion_Op_CO2 = 594 - integer, parameter :: rid_ion_Op_N2 = 595 - integer, parameter :: rid_ion_Op_N2D = 596 - integer, parameter :: rid_ion_Op_O2 = 597 - integer, parameter :: rid_Op2D_e = 598 - integer, parameter :: rid_Op2D_N2 = 599 - integer, parameter :: rid_Op2D_O = 600 - integer, parameter :: rid_Op2D_O2 = 601 - integer, parameter :: rid_Op2P_ea = 602 - integer, parameter :: rid_Op2P_eb = 603 - integer, parameter :: rid_Op2P_N2a = 604 - integer, parameter :: rid_Op2P_N2b = 605 - integer, parameter :: rid_Op2P_O = 606 + integer, parameter :: rid_NO2_O = 430 + integer, parameter :: rid_NO2_O3 = 431 + integer, parameter :: rid_NO2_O_M = 432 + integer, parameter :: rid_NO3_HO2 = 433 + integer, parameter :: rid_NO3_NO = 434 + integer, parameter :: rid_NO3_O = 435 + integer, parameter :: rid_NO3_OH = 436 + integer, parameter :: rid_N_OH = 437 + integer, parameter :: rid_NO_HO2 = 438 + integer, parameter :: rid_NO_O3 = 439 + integer, parameter :: rid_NO_O_M = 440 + integer, parameter :: rid_O1D_N2Oa = 441 + integer, parameter :: rid_O1D_N2Ob = 442 + integer, parameter :: rid_tag_NO2_HO2 = 443 + integer, parameter :: rid_tag_NO2_NO3 = 444 + integer, parameter :: rid_tag_NO2_OH = 445 + integer, parameter :: rid_usr_HNO3_OH = 446 + integer, parameter :: rid_usr_HO2NO2_M = 447 + integer, parameter :: rid_usr_N2D_e = 448 + integer, parameter :: rid_usr_N2D_O2 = 449 + integer, parameter :: rid_usr_N2O5_M = 450 + integer, parameter :: rid_usr_N_O2 = 451 + integer, parameter :: rid_CL_CH2O = 452 + integer, parameter :: rid_CL_CH4 = 453 + integer, parameter :: rid_CL_H2 = 454 + integer, parameter :: rid_CL_H2O2 = 455 + integer, parameter :: rid_CL_HO2a = 456 + integer, parameter :: rid_CL_HO2b = 457 + integer, parameter :: rid_CL_O3 = 458 + integer, parameter :: rid_CLO_CH3O2 = 459 + integer, parameter :: rid_CLO_CLOa = 460 + integer, parameter :: rid_CLO_CLOb = 461 + integer, parameter :: rid_CLO_CLOc = 462 + integer, parameter :: rid_CLO_HO2 = 463 + integer, parameter :: rid_CLO_NO = 464 + integer, parameter :: rid_CLONO2_CL = 465 + integer, parameter :: rid_CLO_NO2_M = 466 + integer, parameter :: rid_CLONO2_O = 467 + integer, parameter :: rid_CLONO2_OH = 468 + integer, parameter :: rid_CLO_O = 469 + integer, parameter :: rid_CLO_OHa = 470 + integer, parameter :: rid_CLO_OHb = 471 + integer, parameter :: rid_HCL_O = 472 + integer, parameter :: rid_HCL_OH = 473 + integer, parameter :: rid_HOCL_CL = 474 + integer, parameter :: rid_HOCL_O = 475 + integer, parameter :: rid_HOCL_OH = 476 + integer, parameter :: rid_O1D_CCL4 = 477 + integer, parameter :: rid_O1D_CF2CLBR = 478 + integer, parameter :: rid_O1D_CFC11 = 479 + integer, parameter :: rid_O1D_CFC113 = 480 + integer, parameter :: rid_O1D_CFC114 = 481 + integer, parameter :: rid_O1D_CFC115 = 482 + integer, parameter :: rid_O1D_CFC12 = 483 + integer, parameter :: rid_O1D_HCLa = 484 + integer, parameter :: rid_O1D_HCLb = 485 + integer, parameter :: rid_tag_CLO_CLO_M = 486 + integer, parameter :: rid_usr_CL2O2_M = 487 + integer, parameter :: rid_BR_CH2O = 488 + integer, parameter :: rid_BR_HO2 = 489 + integer, parameter :: rid_BR_O3 = 490 + integer, parameter :: rid_BRO_BRO = 491 + integer, parameter :: rid_BRO_CLOa = 492 + integer, parameter :: rid_BRO_CLOb = 493 + integer, parameter :: rid_BRO_CLOc = 494 + integer, parameter :: rid_BRO_HO2 = 495 + integer, parameter :: rid_BRO_NO = 496 + integer, parameter :: rid_BRO_NO2_M = 497 + integer, parameter :: rid_BRONO2_O = 498 + integer, parameter :: rid_BRO_O = 499 + integer, parameter :: rid_BRO_OH = 500 + integer, parameter :: rid_HBR_O = 501 + integer, parameter :: rid_HBR_OH = 502 + integer, parameter :: rid_HOBR_O = 503 + integer, parameter :: rid_O1D_CF3BR = 504 + integer, parameter :: rid_O1D_CHBR3 = 505 + integer, parameter :: rid_O1D_H2402 = 506 + integer, parameter :: rid_O1D_HBRa = 507 + integer, parameter :: rid_O1D_HBRb = 508 + integer, parameter :: rid_F_CH4 = 509 + integer, parameter :: rid_F_H2 = 510 + integer, parameter :: rid_F_H2O = 511 + integer, parameter :: rid_F_HNO3 = 512 + integer, parameter :: rid_O1D_COF2 = 513 + integer, parameter :: rid_O1D_COFCL = 514 + integer, parameter :: rid_CH2BR2_CL = 515 + integer, parameter :: rid_CH2BR2_OH = 516 + integer, parameter :: rid_CH3BR_CL = 517 + integer, parameter :: rid_CH3BR_OH = 518 + integer, parameter :: rid_CH3CCL3_OH = 519 + integer, parameter :: rid_CH3CL_CL = 520 + integer, parameter :: rid_CH3CL_OH = 521 + integer, parameter :: rid_CHBR3_CL = 522 + integer, parameter :: rid_CHBR3_OH = 523 + integer, parameter :: rid_HCFC141B_OH = 524 + integer, parameter :: rid_HCFC142B_OH = 525 + integer, parameter :: rid_HCFC22_OH = 526 + integer, parameter :: rid_O1D_CH2BR2 = 527 + integer, parameter :: rid_O1D_CH3BR = 528 + integer, parameter :: rid_O1D_HCFC141B = 529 + integer, parameter :: rid_O1D_HCFC142B = 530 + integer, parameter :: rid_O1D_HCFC22 = 531 + integer, parameter :: rid_CH2O_NO3 = 532 + integer, parameter :: rid_CH2O_O = 533 + integer, parameter :: rid_CH2O_OH = 534 + integer, parameter :: rid_CH3O2_HO2 = 535 + integer, parameter :: rid_CH3O2_NO = 536 + integer, parameter :: rid_CH3OOH_OH = 537 + integer, parameter :: rid_CH4_OH = 538 + integer, parameter :: rid_O1D_CH4a = 539 + integer, parameter :: rid_O1D_CH4b = 540 + integer, parameter :: rid_O1D_CH4c = 541 + integer, parameter :: rid_usr_CO_OH = 542 + integer, parameter :: rid_DMS_NO3 = 543 + integer, parameter :: rid_DMS_OHa = 544 + integer, parameter :: rid_OCS_O = 545 + integer, parameter :: rid_OCS_OH = 546 + integer, parameter :: rid_S_O2 = 547 + integer, parameter :: rid_SO2_OH_M = 548 + integer, parameter :: rid_S_O3 = 549 + integer, parameter :: rid_SO_BRO = 550 + integer, parameter :: rid_SO_CLO = 551 + integer, parameter :: rid_S_OH = 552 + integer, parameter :: rid_SO_NO2 = 553 + integer, parameter :: rid_SO_O2 = 554 + integer, parameter :: rid_SO_O3 = 555 + integer, parameter :: rid_SO_OCLO = 556 + integer, parameter :: rid_SO_OH = 557 + integer, parameter :: rid_usr_DMS_OH = 558 + integer, parameter :: rid_usr_SO3_H2O = 559 + integer, parameter :: rid_usr_HO2_aer = 560 + integer, parameter :: rid_usr_N2O5_aer = 561 + integer, parameter :: rid_usr_NO2_aer = 562 + integer, parameter :: rid_usr_NO3_aer = 563 + integer, parameter :: rid_het1 = 564 + integer, parameter :: rid_het10 = 565 + integer, parameter :: rid_het11 = 566 + integer, parameter :: rid_het12 = 567 + integer, parameter :: rid_het13 = 568 + integer, parameter :: rid_het14 = 569 + integer, parameter :: rid_het15 = 570 + integer, parameter :: rid_het16 = 571 + integer, parameter :: rid_het17 = 572 + integer, parameter :: rid_het2 = 573 + integer, parameter :: rid_het3 = 574 + integer, parameter :: rid_het4 = 575 + integer, parameter :: rid_het5 = 576 + integer, parameter :: rid_het6 = 577 + integer, parameter :: rid_het7 = 578 + integer, parameter :: rid_het8 = 579 + integer, parameter :: rid_het9 = 580 + integer, parameter :: rid_ag247nm = 581 + integer, parameter :: rid_ag373nm = 582 + integer, parameter :: rid_ag732nm = 583 + integer, parameter :: rid_elec1 = 584 + integer, parameter :: rid_elec2 = 585 + integer, parameter :: rid_elec3 = 586 + integer, parameter :: rid_ion_N2p_O2 = 587 + integer, parameter :: rid_ion_N2p_Oa = 588 + integer, parameter :: rid_ion_N2p_Ob = 589 + integer, parameter :: rid_ion_Np_O = 590 + integer, parameter :: rid_ion_Np_O2a = 591 + integer, parameter :: rid_ion_Np_O2b = 592 + integer, parameter :: rid_ion_O2p_N = 593 + integer, parameter :: rid_ion_O2p_N2 = 594 + integer, parameter :: rid_ion_O2p_NO = 595 + integer, parameter :: rid_ion_Op_CO2 = 596 + integer, parameter :: rid_ion_Op_N2 = 597 + integer, parameter :: rid_ion_Op_N2D = 598 + integer, parameter :: rid_ion_Op_O2 = 599 + integer, parameter :: rid_Op2D_e = 600 + integer, parameter :: rid_Op2D_N2 = 601 + integer, parameter :: rid_Op2D_O = 602 + integer, parameter :: rid_Op2D_O2 = 603 + integer, parameter :: rid_Op2P_ea = 604 + integer, parameter :: rid_Op2P_eb = 605 + integer, parameter :: rid_Op2P_N2a = 606 + integer, parameter :: rid_Op2P_N2b = 607 + integer, parameter :: rid_Op2P_O = 608 end module m_rxt_id diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_adjrxt.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_adjrxt.F90 index 4b4f607089..a446502e3c 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_adjrxt.F90 @@ -77,23 +77,23 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 405) = rate(:,:, 405) * inv(:,:, 1) rate(:,:, 411) = rate(:,:, 411) * inv(:,:, 1) rate(:,:, 421) = rate(:,:, 421) * inv(:,:, 1) - rate(:,:, 433) = rate(:,:, 433) * inv(:,:, 1) - rate(:,:, 441) = rate(:,:, 441) * inv(:,:, 1) + rate(:,:, 432) = rate(:,:, 432) * inv(:,:, 1) + rate(:,:, 440) = rate(:,:, 440) * inv(:,:, 1) + rate(:,:, 443) = rate(:,:, 443) * inv(:,:, 1) rate(:,:, 444) = rate(:,:, 444) * inv(:,:, 1) rate(:,:, 445) = rate(:,:, 445) * inv(:,:, 1) - rate(:,:, 446) = rate(:,:, 446) * inv(:,:, 1) - rate(:,:, 448) = rate(:,:, 448) * inv(:,:, 1) - rate(:,:, 449) = rate(:,:, 449) * inv(:,:, 1) - rate(:,:, 464) = rate(:,:, 464) * inv(:,:, 1) - rate(:,:, 484) = rate(:,:, 484) * inv(:,:, 1) - rate(:,:, 485) = rate(:,:, 485) * inv(:,:, 1) - rate(:,:, 495) = rate(:,:, 495) * inv(:,:, 1) - rate(:,:, 546) = rate(:,:, 546) * inv(:,:, 1) - rate(:,:, 592) = rate(:,:, 592) * inv(:,:, 2) - rate(:,:, 595) = rate(:,:, 595) * inv(:,:, 2) - rate(:,:, 599) = rate(:,:, 599) * inv(:,:, 2) - rate(:,:, 604) = rate(:,:, 604) * inv(:,:, 2) - rate(:,:, 605) = rate(:,:, 605) * inv(:,:, 2) + rate(:,:, 447) = rate(:,:, 447) * inv(:,:, 1) + rate(:,:, 450) = rate(:,:, 450) * inv(:,:, 1) + rate(:,:, 466) = rate(:,:, 466) * inv(:,:, 1) + rate(:,:, 486) = rate(:,:, 486) * inv(:,:, 1) + rate(:,:, 487) = rate(:,:, 487) * inv(:,:, 1) + rate(:,:, 497) = rate(:,:, 497) * inv(:,:, 1) + rate(:,:, 548) = rate(:,:, 548) * inv(:,:, 1) + rate(:,:, 594) = rate(:,:, 594) * inv(:,:, 2) + rate(:,:, 597) = rate(:,:, 597) * inv(:,:, 2) + rate(:,:, 601) = rate(:,:, 601) * inv(:,:, 2) + rate(:,:, 606) = rate(:,:, 606) * inv(:,:, 2) + rate(:,:, 607) = rate(:,:, 607) * inv(:,:, 2) rate(:,:, 370) = rate(:,:, 370) * inv(:,:, 2) * inv(:,:, 1) rate(:,:, 105) = rate(:,:, 105) * m(:,:) rate(:,:, 106) = rate(:,:, 106) * m(:,:) @@ -391,7 +391,6 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 420) = rate(:,:, 420) * m(:,:) rate(:,:, 421) = rate(:,:, 421) * m(:,:) rate(:,:, 422) = rate(:,:, 422) * m(:,:) - rate(:,:, 423) = rate(:,:, 423) * m(:,:) rate(:,:, 424) = rate(:,:, 424) * m(:,:) rate(:,:, 425) = rate(:,:, 425) * m(:,:) rate(:,:, 426) = rate(:,:, 426) * m(:,:) @@ -415,8 +414,8 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 444) = rate(:,:, 444) * m(:,:) rate(:,:, 445) = rate(:,:, 445) * m(:,:) rate(:,:, 446) = rate(:,:, 446) * m(:,:) - rate(:,:, 447) = rate(:,:, 447) * m(:,:) - rate(:,:, 450) = rate(:,:, 450) * m(:,:) + rate(:,:, 448) = rate(:,:, 448) * m(:,:) + rate(:,:, 449) = rate(:,:, 449) * m(:,:) rate(:,:, 451) = rate(:,:, 451) * m(:,:) rate(:,:, 452) = rate(:,:, 452) * m(:,:) rate(:,:, 453) = rate(:,:, 453) * m(:,:) @@ -451,8 +450,8 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 482) = rate(:,:, 482) * m(:,:) rate(:,:, 483) = rate(:,:, 483) * m(:,:) rate(:,:, 484) = rate(:,:, 484) * m(:,:) + rate(:,:, 485) = rate(:,:, 485) * m(:,:) rate(:,:, 486) = rate(:,:, 486) * m(:,:) - rate(:,:, 487) = rate(:,:, 487) * m(:,:) rate(:,:, 488) = rate(:,:, 488) * m(:,:) rate(:,:, 489) = rate(:,:, 489) * m(:,:) rate(:,:, 490) = rate(:,:, 490) * m(:,:) @@ -523,16 +522,16 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 555) = rate(:,:, 555) * m(:,:) rate(:,:, 556) = rate(:,:, 556) * m(:,:) rate(:,:, 557) = rate(:,:, 557) * m(:,:) - rate(:,:, 563) = rate(:,:, 563) * m(:,:) - rate(:,:, 568) = rate(:,:, 568) * m(:,:) - rate(:,:, 569) = rate(:,:, 569) * m(:,:) + rate(:,:, 558) = rate(:,:, 558) * m(:,:) + rate(:,:, 559) = rate(:,:, 559) * m(:,:) + rate(:,:, 565) = rate(:,:, 565) * m(:,:) rate(:,:, 570) = rate(:,:, 570) * m(:,:) - rate(:,:, 573) = rate(:,:, 573) * m(:,:) - rate(:,:, 574) = rate(:,:, 574) * m(:,:) + rate(:,:, 571) = rate(:,:, 571) * m(:,:) + rate(:,:, 572) = rate(:,:, 572) * m(:,:) rate(:,:, 575) = rate(:,:, 575) * m(:,:) - rate(:,:, 578) = rate(:,:, 578) * m(:,:) - rate(:,:, 582) = rate(:,:, 582) * m(:,:) - rate(:,:, 583) = rate(:,:, 583) * m(:,:) + rate(:,:, 576) = rate(:,:, 576) * m(:,:) + rate(:,:, 577) = rate(:,:, 577) * m(:,:) + rate(:,:, 580) = rate(:,:, 580) * m(:,:) rate(:,:, 584) = rate(:,:, 584) * m(:,:) rate(:,:, 585) = rate(:,:, 585) * m(:,:) rate(:,:, 586) = rate(:,:, 586) * m(:,:) @@ -541,15 +540,17 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 589) = rate(:,:, 589) * m(:,:) rate(:,:, 590) = rate(:,:, 590) * m(:,:) rate(:,:, 591) = rate(:,:, 591) * m(:,:) + rate(:,:, 592) = rate(:,:, 592) * m(:,:) rate(:,:, 593) = rate(:,:, 593) * m(:,:) - rate(:,:, 594) = rate(:,:, 594) * m(:,:) + rate(:,:, 595) = rate(:,:, 595) * m(:,:) rate(:,:, 596) = rate(:,:, 596) * m(:,:) - rate(:,:, 597) = rate(:,:, 597) * m(:,:) rate(:,:, 598) = rate(:,:, 598) * m(:,:) + rate(:,:, 599) = rate(:,:, 599) * m(:,:) rate(:,:, 600) = rate(:,:, 600) * m(:,:) - rate(:,:, 601) = rate(:,:, 601) * m(:,:) rate(:,:, 602) = rate(:,:, 602) * m(:,:) rate(:,:, 603) = rate(:,:, 603) * m(:,:) - rate(:,:, 606) = rate(:,:, 606) * m(:,:) + rate(:,:, 604) = rate(:,:, 604) * m(:,:) + rate(:,:, 605) = rate(:,:, 605) * m(:,:) + rate(:,:, 608) = rate(:,:, 608) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_indprd.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_indprd.F90 index d5466d06cb..75c3e04011 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_indprd.F90 @@ -21,7 +21,7 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) !-------------------------------------------------------------------- if( class == 4 ) then prod(:,1) = + extfrc(:,5) - prod(:,2) = + extfrc(:,6) + prod(:,2) = + extfrc(:,2) prod(:,99) = 0._r8 prod(:,43) = 0._r8 prod(:,106) = 0._r8 @@ -50,21 +50,21 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,117) = 0._r8 prod(:,83) = 0._r8 prod(:,4) = 0._r8 - prod(:,69) = + extfrc(:,15) - prod(:,121) = 0._r8 + prod(:,69) = + extfrc(:,1) + prod(:,130) = 0._r8 prod(:,39) = 0._r8 prod(:,41) = 0._r8 - prod(:,50) = + extfrc(:,2) + prod(:,50) = + extfrc(:,8) prod(:,5) = 0._r8 prod(:,6) = 0._r8 prod(:,7) = 0._r8 - prod(:,81) = 0._r8 + prod(:,80) = 0._r8 prod(:,132) = 0._r8 prod(:,103) = 0._r8 prod(:,28) = 0._r8 prod(:,64) = 0._r8 prod(:,33) = 0._r8 - prod(:,79) = 0._r8 + prod(:,78) = 0._r8 prod(:,40) = 0._r8 prod(:,42) = 0._r8 prod(:,48) = 0._r8 @@ -72,41 +72,41 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,49) = 0._r8 prod(:,126) = 0._r8 prod(:,59) = 0._r8 - prod(:,77) = 0._r8 - prod(:,80) = 0._r8 + prod(:,76) = 0._r8 + prod(:,79) = 0._r8 prod(:,73) = 0._r8 prod(:,90) = (rxt(:,69) +rxt(:,70) +.800_r8*rxt(:,72) +.800_r8*rxt(:,73)) & - + extfrc(:,17) + + extfrc(:,20) prod(:,44) = 0._r8 - prod(:,87) = 0._r8 + prod(:,86) = 0._r8 prod(:,8) = 0._r8 prod(:,9) = 0._r8 prod(:,10) = 0._r8 - prod(:,137) = + extfrc(:,16) - prod(:,133) = + extfrc(:,3) + prod(:,137) = + extfrc(:,6) + prod(:,133) = + extfrc(:,4) prod(:,131) = 0._r8 - prod(:,11) = + extfrc(:,7) - prod(:,12) = + extfrc(:,8) + prod(:,11) = + extfrc(:,9) + prod(:,12) = + extfrc(:,10) prod(:,13) = 0._r8 - prod(:,14) = + extfrc(:,9) - prod(:,15) = + extfrc(:,10) - prod(:,123) = + extfrc(:,24) + prod(:,14) = + extfrc(:,13) + prod(:,15) = 0._r8 + prod(:,123) = + extfrc(:,21) prod(:,108) = 0._r8 - prod(:,124) = 0._r8 prod(:,136) = 0._r8 + prod(:,120) = 0._r8 prod(:,52) = 0._r8 prod(:,53) = 0._r8 - prod(:,16) = + extfrc(:,11) - prod(:,17) = + extfrc(:,12) + prod(:,16) = + extfrc(:,7) + prod(:,17) = + extfrc(:,14) prod(:,72) = 0._r8 prod(:,18) = 0._r8 prod(:,92) = 0._r8 - prod(:,82) = + extfrc(:,4) + prod(:,82) = + extfrc(:,3) prod(:,45) = 0._r8 - prod(:,19) = + extfrc(:,13) - prod(:,20) = + extfrc(:,1) + prod(:,19) = + extfrc(:,11) + prod(:,20) = + extfrc(:,12) prod(:,21) = 0._r8 - prod(:,22) = + extfrc(:,14) + prod(:,22) = 0._r8 prod(:,23) = 0._r8 prod(:,24) = 0._r8 prod(:,25) = 0._r8 @@ -119,20 +119,20 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,104) = 0._r8 prod(:,110) = 0._r8 prod(:,116) = (rxt(:,67) +rxt(:,68) +rxt(:,69) +rxt(:,70) +rxt(:,71) + & - rxt(:,74)) + extfrc(:,22) + rxt(:,74)) + extfrc(:,19) prod(:,57) = 0._r8 prod(:,93) = 0._r8 prod(:,112) = 0._r8 prod(:,68) = 0._r8 - prod(:,120) = 0._r8 + prod(:,129) = 0._r8 prod(:,46) = 0._r8 - prod(:,130) = 0._r8 + prod(:,121) = 0._r8 prod(:,47) = 0._r8 - prod(:,129) = 0._r8 + prod(:,124) = 0._r8 prod(:,74) = 0._r8 - prod(:,76) = (rxt(:,68) +rxt(:,71) +1.200_r8*rxt(:,72) +1.200_r8*rxt(:,73)) & + prod(:,81) = (rxt(:,68) +rxt(:,71) +1.200_r8*rxt(:,72) +1.200_r8*rxt(:,73)) & + extfrc(:,18) - prod(:,66) = (rxt(:,67) +rxt(:,74)) + extfrc(:,19) + prod(:,66) = (rxt(:,67) +rxt(:,74)) + extfrc(:,16) prod(:,113) = 0._r8 prod(:,97) = 0._r8 prod(:,111) = 0._r8 @@ -146,19 +146,19 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,71) = 0._r8 prod(:,122) = 0._r8 prod(:,70) = 0._r8 - prod(:,78) = (rxt(:,68) +rxt(:,69) +rxt(:,70) +rxt(:,71)) + extfrc(:,23) + prod(:,77) = (rxt(:,68) +rxt(:,69) +rxt(:,70) +rxt(:,71)) + extfrc(:,17) prod(:,85) = 0._r8 prod(:,51) = 0._r8 prod(:,127) = 0._r8 - prod(:,128) = + extfrc(:,25) + prod(:,128) = + extfrc(:,15) prod(:,75) = 0._r8 prod(:,100) = 0._r8 prod(:,67) = 0._r8 prod(:,91) = 0._r8 - prod(:,114) = + extfrc(:,20) + prod(:,114) = + extfrc(:,22) prod(:,134) = 0._r8 prod(:,135) = 0._r8 - prod(:,86) = + extfrc(:,21) + prod(:,87) = + extfrc(:,23) prod(:,62) = 0._r8 prod(:,61) = 0._r8 prod(:,139) = 0._r8 diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_lin_matrix.F90 index c6f9b7479d..a31cbfcee0 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_lin_matrix.F90 @@ -25,9 +25,9 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) do k = 1,avec_len mat(k,1) = -( het_rates(k,1) ) mat(k,2) = -( het_rates(k,2) ) - mat(k,582) = -( het_rates(k,3) ) + mat(k,584) = -( het_rates(k,3) ) mat(k,96) = rxt(k,27) - mat(k,714) = rxt(k,28) + mat(k,716) = rxt(k,28) mat(k,208) = rxt(k,30) mat(k,57) = rxt(k,32) mat(k,63) = rxt(k,33) @@ -35,12 +35,12 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,223) = rxt(k,40) mat(k,162) = 3.000_r8*rxt(k,43) mat(k,34) = 2.000_r8*rxt(k,51) - mat(k,325) = rxt(k,52) - mat(k,310) = rxt(k,58) + mat(k,317) = rxt(k,52) + mat(k,302) = rxt(k,58) mat(k,95) = -( rxt(k,27) + het_rates(k,4) ) - mat(k,715) = -( rxt(k,28) + het_rates(k,5) ) + mat(k,717) = -( rxt(k,28) + het_rates(k,5) ) mat(k,209) = rxt(k,29) - mat(k,206) = -( rxt(k,29) + rxt(k,30) + rxt(k,564) + rxt(k,567) + rxt(k,572) & + mat(k,206) = -( rxt(k,29) + rxt(k,30) + rxt(k,566) + rxt(k,569) + rxt(k,574) & + het_rates(k,6) ) mat(k,3) = -( het_rates(k,7) ) mat(k,29) = -( rxt(k,31) + het_rates(k,8) ) @@ -52,20 +52,20 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,70) = -( rxt(k,37) + het_rates(k,14) ) mat(k,44) = -( rxt(k,38) + het_rates(k,15) ) mat(k,186) = -( rxt(k,39) + het_rates(k,16) ) - mat(k,738) = -( rxt(k,21) + rxt(k,22) + het_rates(k,17) ) + mat(k,740) = -( rxt(k,21) + rxt(k,22) + het_rates(k,17) ) mat(k,157) = rxt(k,23) - mat(k,419) = .180_r8*rxt(k,25) + mat(k,421) = .180_r8*rxt(k,25) mat(k,221) = -( rxt(k,40) + het_rates(k,18) ) mat(k,48) = -( rxt(k,41) + het_rates(k,19) ) mat(k,147) = -( rxt(k,42) + het_rates(k,20) ) - mat(k,432) = -( het_rates(k,21) ) - mat(k,417) = rxt(k,24) + mat(k,434) = -( het_rates(k,21) ) + mat(k,419) = rxt(k,24) mat(k,222) = rxt(k,40) mat(k,149) = rxt(k,42) mat(k,155) = -( rxt(k,23) + het_rates(k,22) ) - mat(k,416) = -( rxt(k,24) + rxt(k,25) + het_rates(k,23) ) + mat(k,418) = -( rxt(k,24) + rxt(k,25) + het_rates(k,23) ) mat(k,161) = -( rxt(k,43) + het_rates(k,24) ) - mat(k,1487) = -( het_rates(k,25) ) + mat(k,1481) = -( het_rates(k,25) ) mat(k,97) = rxt(k,27) mat(k,31) = 4.000_r8*rxt(k,31) mat(k,59) = rxt(k,32) @@ -78,33 +78,33 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,152) = rxt(k,42) mat(k,76) = 2.000_r8*rxt(k,44) mat(k,28) = 2.000_r8*rxt(k,45) - mat(k,1112) = rxt(k,46) - mat(k,363) = rxt(k,47) + mat(k,1114) = rxt(k,46) + mat(k,365) = rxt(k,47) mat(k,88) = rxt(k,50) mat(k,84) = rxt(k,53) mat(k,94) = rxt(k,54) mat(k,120) = rxt(k,55) - mat(k,2016) = rxt(k,56) - mat(k,337) = rxt(k,59) + mat(k,2019) = rxt(k,56) + mat(k,329) = rxt(k,59) mat(k,75) = -( rxt(k,44) + het_rates(k,26) ) - mat(k,26) = -( rxt(k,45) + rxt(k,485) + het_rates(k,27) ) - mat(k,1104) = -( rxt(k,46) + het_rates(k,28) ) - mat(k,361) = rxt(k,48) + mat(k,26) = -( rxt(k,45) + rxt(k,487) + het_rates(k,27) ) + mat(k,1106) = -( rxt(k,46) + het_rates(k,28) ) + mat(k,363) = rxt(k,48) mat(k,137) = rxt(k,60) - mat(k,27) = 2.000_r8*rxt(k,485) - mat(k,359) = -( rxt(k,47) + rxt(k,48) + rxt(k,566) + rxt(k,571) + rxt(k,577) & + mat(k,27) = 2.000_r8*rxt(k,487) + mat(k,361) = -( rxt(k,47) + rxt(k,48) + rxt(k,568) + rxt(k,573) + rxt(k,579) & + het_rates(k,29) ) mat(k,4) = -( het_rates(k,30) ) mat(k,252) = -( het_rates(k,31) ) - mat(k,733) = rxt(k,21) + rxt(k,22) - mat(k,414) = .380_r8*rxt(k,25) - mat(k,1263) = rxt(k,26) + rxt(k,62) + mat(k,735) = rxt(k,21) + rxt(k,22) + mat(k,416) = .380_r8*rxt(k,25) + mat(k,1663) = rxt(k,26) + rxt(k,62) mat(k,140) = rxt(k,101) - mat(k,1284) = -( rxt(k,26) + rxt(k,62) + het_rates(k,32) ) - mat(k,423) = .440_r8*rxt(k,25) - mat(k,1020) = rxt(k,63) - mat(k,844) = rxt(k,65) - mat(k,267) = rxt(k,369) + mat(k,1693) = -( rxt(k,26) + rxt(k,62) + het_rates(k,32) ) + mat(k,428) = .440_r8*rxt(k,25) + mat(k,1031) = rxt(k,63) + mat(k,855) = rxt(k,65) + mat(k,268) = rxt(k,369) mat(k,77) = -( rxt(k,49) + het_rates(k,33) ) mat(k,56) = rxt(k,32) mat(k,61) = rxt(k,33) @@ -123,79 +123,80 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,5) = -( het_rates(k,36) ) mat(k,6) = -( het_rates(k,37) ) mat(k,7) = -( het_rates(k,38) ) - mat(k,341) = -( het_rates(k,39) ) + mat(k,333) = -( het_rates(k,39) ) mat(k,62) = rxt(k,33) mat(k,72) = rxt(k,37) mat(k,78) = 2.000_r8*rxt(k,49) mat(k,86) = rxt(k,50) mat(k,123) = rxt(k,57) - mat(k,1778) = -( het_rates(k,40) ) - mat(k,2083) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,750) = 2.000_r8*rxt(k,21) + mat(k,1771) = -( het_rates(k,40) ) + mat(k,2086) = 2.000_r8*rxt(k,2) + rxt(k,3) + mat(k,752) = 2.000_r8*rxt(k,21) mat(k,159) = rxt(k,23) - mat(k,428) = rxt(k,24) + .330_r8*rxt(k,25) - mat(k,330) = rxt(k,52) - mat(k,2023) = rxt(k,56) + mat(k,430) = rxt(k,24) + .330_r8*rxt(k,25) + mat(k,322) = rxt(k,52) + mat(k,2026) = rxt(k,56) mat(k,124) = rxt(k,57) - mat(k,647) = -( het_rates(k,41) ) - mat(k,2055) = rxt(k,1) - mat(k,736) = rxt(k,22) - mat(k,418) = 1.440_r8*rxt(k,25) + mat(k,649) = -( het_rates(k,41) ) + mat(k,2058) = rxt(k,1) + mat(k,738) = rxt(k,22) + mat(k,420) = 1.440_r8*rxt(k,25) mat(k,32) = -( rxt(k,51) + het_rates(k,42) ) mat(k,214) = -( rxt(k,4) + het_rates(k,43) ) - mat(k,889) = .500_r8*rxt(k,558) + mat(k,891) = .500_r8*rxt(k,560) mat(k,52) = -( rxt(k,100) + het_rates(k,44) ) - mat(k,324) = -( rxt(k,52) + het_rates(k,45) ) + mat(k,316) = -( rxt(k,52) + het_rates(k,45) ) mat(k,80) = -( rxt(k,53) + het_rates(k,46) ) mat(k,90) = -( rxt(k,54) + het_rates(k,47) ) mat(k,116) = -( rxt(k,55) + het_rates(k,48) ) - mat(k,2029) = -( rxt(k,56) + het_rates(k,49) ) - mat(k,532) = rxt(k,386) + mat(k,2032) = -( rxt(k,56) + het_rates(k,49) ) + mat(k,534) = rxt(k,386) mat(k,122) = -( rxt(k,57) + het_rates(k,50) ) - mat(k,1529) = -( rxt(k,9) + het_rates(k,51) ) - mat(k,616) = rxt(k,275) - mat(k,406) = 2.000_r8*rxt(k,559) + 2.000_r8*rxt(k,562) + 2.000_r8*rxt(k,565) & - + 2.000_r8*rxt(k,576) - mat(k,1820) = .500_r8*rxt(k,560) - mat(k,1736) = rxt(k,561) - mat(k,211) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,364) = rxt(k,566) + rxt(k,571) + rxt(k,577) - mat(k,179) = -( rxt(k,10) + rxt(k,11) + rxt(k,448) + het_rates(k,52) ) - mat(k,309) = -( rxt(k,58) + het_rates(k,53) ) - mat(k,207) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,333) = -( rxt(k,59) + het_rates(k,54) ) - mat(k,358) = rxt(k,566) + rxt(k,571) + rxt(k,577) + mat(k,1523) = -( rxt(k,9) + het_rates(k,51) ) + mat(k,618) = rxt(k,275) + mat(k,396) = 2.000_r8*rxt(k,561) + 2.000_r8*rxt(k,564) + 2.000_r8*rxt(k,567) & + + 2.000_r8*rxt(k,578) + mat(k,1813) = .500_r8*rxt(k,562) + mat(k,1729) = rxt(k,563) + mat(k,211) = rxt(k,566) + rxt(k,569) + rxt(k,574) + mat(k,366) = rxt(k,568) + rxt(k,573) + rxt(k,579) + mat(k,179) = -( rxt(k,10) + rxt(k,11) + rxt(k,447) + het_rates(k,52) ) + mat(k,301) = -( rxt(k,58) + het_rates(k,53) ) + mat(k,207) = rxt(k,566) + rxt(k,569) + rxt(k,574) + mat(k,325) = -( rxt(k,59) + het_rates(k,54) ) + mat(k,360) = rxt(k,568) + rxt(k,573) + rxt(k,579) mat(k,278) = -( rxt(k,12) + het_rates(k,55) ) - mat(k,446) = -( rxt(k,66) + het_rates(k,56) ) - mat(k,1947) = rxt(k,17) - mat(k,389) = rxt(k,595) + mat(k,448) = -( rxt(k,66) + het_rates(k,56) ) + mat(k,1950) = rxt(k,17) + mat(k,345) = rxt(k,423) + mat(k,405) = rxt(k,597) mat(k,98) = -( rxt(k,13) + het_rates(k,57) ) - mat(k,401) = -( rxt(k,14) + rxt(k,15) + rxt(k,449) + rxt(k,559) + rxt(k,562) & - + rxt(k,565) + rxt(k,576) + het_rates(k,58) ) + mat(k,389) = -( rxt(k,14) + rxt(k,15) + rxt(k,450) + rxt(k,561) + rxt(k,564) & + + rxt(k,567) + rxt(k,578) + het_rates(k,58) ) mat(k,8) = -( het_rates(k,59) ) mat(k,9) = -( het_rates(k,60) ) mat(k,10) = -( het_rates(k,61) ) - mat(k,1983) = -( rxt(k,16) + rxt(k,17) + het_rates(k,62) ) + mat(k,1986) = -( rxt(k,16) + rxt(k,17) + het_rates(k,62) ) mat(k,281) = rxt(k,12) - mat(k,411) = rxt(k,15) - mat(k,1831) = rxt(k,18) + .500_r8*rxt(k,560) - mat(k,1747) = rxt(k,20) - mat(k,1621) = rxt(k,592) - mat(k,199) = rxt(k,605) - mat(k,1827) = -( rxt(k,18) + rxt(k,560) + het_rates(k,63) ) - mat(k,1536) = rxt(k,9) - mat(k,184) = rxt(k,11) + rxt(k,448) - mat(k,410) = rxt(k,14) + rxt(k,449) - mat(k,1743) = rxt(k,19) + mat(k,399) = rxt(k,15) + mat(k,1824) = rxt(k,18) + .500_r8*rxt(k,562) + mat(k,1740) = rxt(k,20) + mat(k,1615) = rxt(k,594) + mat(k,199) = rxt(k,607) + mat(k,1820) = -( rxt(k,18) + rxt(k,562) + het_rates(k,63) ) + mat(k,1530) = rxt(k,9) + mat(k,183) = rxt(k,11) + rxt(k,447) + mat(k,398) = rxt(k,14) + rxt(k,450) + mat(k,1736) = rxt(k,19) mat(k,213) = rxt(k,29) - mat(k,366) = rxt(k,48) - mat(k,943) = rxt(k,75) - mat(k,1741) = -( rxt(k,19) + rxt(k,20) + rxt(k,561) + het_rates(k,64) ) - mat(k,183) = rxt(k,10) - mat(k,409) = rxt(k,14) + rxt(k,15) + rxt(k,449) + mat(k,368) = rxt(k,48) + mat(k,945) = rxt(k,75) + mat(k,1734) = -( rxt(k,19) + rxt(k,20) + rxt(k,563) + het_rates(k,64) ) + mat(k,182) = rxt(k,10) + mat(k,397) = rxt(k,14) + rxt(k,15) + rxt(k,450) mat(k,212) = rxt(k,30) - mat(k,365) = rxt(k,47) - mat(k,880) = rxt(k,76) + mat(k,367) = rxt(k,47) + mat(k,882) = rxt(k,76) mat(k,11) = -( het_rates(k,65) ) mat(k,12) = -( het_rates(k,66) ) mat(k,13) = -( het_rates(k,67) ) @@ -203,27 +204,27 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,15) = -( het_rates(k,69) ) mat(k,1388) = -( rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & + rxt(k,82) + het_rates(k,70) ) - mat(k,2074) = rxt(k,2) - mat(k,1437) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,83) + rxt(k,85) + rxt(k,87) & + mat(k,2077) = rxt(k,2) + mat(k,1928) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,83) + rxt(k,85) + rxt(k,87) & + 2.000_r8*rxt(k,88) + 2.000_r8*rxt(k,89) + rxt(k,90) + rxt(k,91) & + rxt(k,92) - mat(k,1927) = rxt(k,8) - mat(k,405) = rxt(k,15) - mat(k,1969) = rxt(k,17) - mat(k,1817) = rxt(k,18) - mat(k,1733) = rxt(k,19) - mat(k,424) = .180_r8*rxt(k,25) - mat(k,1286) = rxt(k,26) + rxt(k,62) - mat(k,722) = rxt(k,28) - mat(k,1110) = rxt(k,46) + mat(k,1243) = rxt(k,8) + mat(k,394) = rxt(k,15) + mat(k,1972) = rxt(k,17) + mat(k,1810) = rxt(k,18) + mat(k,1726) = rxt(k,19) + mat(k,425) = .180_r8*rxt(k,25) + mat(k,1686) = rxt(k,26) + rxt(k,62) + mat(k,724) = rxt(k,28) + mat(k,1112) = rxt(k,46) mat(k,138) = rxt(k,60) - mat(k,1886) = rxt(k,99) + rxt(k,358) - mat(k,482) = rxt(k,102) - mat(k,355) = rxt(k,103) + mat(k,1879) = rxt(k,99) + rxt(k,358) + mat(k,485) = rxt(k,102) + mat(k,357) = rxt(k,103) mat(k,105) = rxt(k,104) - mat(k,794) = rxt(k,391) - mat(k,203) = rxt(k,599) - mat(k,198) = rxt(k,604) + mat(k,795) = rxt(k,391) + mat(k,203) = rxt(k,601) + mat(k,198) = rxt(k,606) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -246,34 +247,34 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,787) = -( rxt(k,391) + het_rates(k,71) ) - mat(k,2060) = rxt(k,1) - mat(k,1423) = rxt(k,6) - mat(k,1913) = rxt(k,7) + mat(k,789) = -( rxt(k,391) + het_rates(k,71) ) + mat(k,2063) = rxt(k,1) + mat(k,1914) = rxt(k,6) + mat(k,1229) = rxt(k,7) mat(k,99) = rxt(k,13) - mat(k,1438) = -( rxt(k,5) + rxt(k,6) + rxt(k,83) + rxt(k,84) + rxt(k,85) & + mat(k,1941) = -( rxt(k,5) + rxt(k,6) + rxt(k,83) + rxt(k,84) + rxt(k,85) & + rxt(k,86) + rxt(k,87) + rxt(k,88) + rxt(k,89) + rxt(k,90) & + rxt(k,91) + rxt(k,92) + het_rates(k,72) ) - mat(k,1928) = rxt(k,8) - mat(k,1734) = rxt(k,20) - mat(k,1563) = rxt(k,93) + rxt(k,137) - mat(k,601) = rxt(k,95) - mat(k,244) = rxt(k,97) - mat(k,380) = rxt(k,387) + rxt(k,395) + mat(k,1256) = rxt(k,8) + mat(k,1739) = rxt(k,20) + mat(k,1569) = rxt(k,93) + rxt(k,137) + mat(k,609) = rxt(k,95) + mat(k,245) = rxt(k,97) + mat(k,386) = rxt(k,387) + rxt(k,395) mat(k,133) = rxt(k,388) - mat(k,1940) = -( rxt(k,7) + rxt(k,8) + het_rates(k,73) ) - mat(k,607) = rxt(k,96) + mat(k,1240) = -( rxt(k,7) + rxt(k,8) + het_rates(k,73) ) + mat(k,601) = rxt(k,96) mat(k,134) = -( rxt(k,60) + het_rates(k,74) ) mat(k,139) = -( rxt(k,101) + het_rates(k,75) ) mat(k,16) = -( het_rates(k,76) ) mat(k,17) = -( het_rates(k,77) ) mat(k,271) = -( het_rates(k,78) ) mat(k,141) = rxt(k,101) - mat(k,474) = rxt(k,102) + mat(k,476) = rxt(k,102) mat(k,18) = -( rxt(k,61) + het_rates(k,79) ) - mat(k,476) = -( rxt(k,102) + het_rates(k,80) ) - mat(k,352) = rxt(k,103) - mat(k,351) = -( rxt(k,103) + het_rates(k,81) ) + mat(k,478) = -( rxt(k,102) + het_rates(k,80) ) + mat(k,354) = rxt(k,103) + mat(k,353) = -( rxt(k,103) + het_rates(k,81) ) mat(k,104) = rxt(k,104) mat(k,103) = -( rxt(k,104) + het_rates(k,82) ) mat(k,53) = rxt(k,100) @@ -284,133 +285,133 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,23) = -( het_rates(k,87) ) mat(k,24) = -( het_rates(k,88) ) mat(k,25) = -( het_rates(k,89) ) - mat(k,811) = -( het_rates(k,90) ) - mat(k,536) = rxt(k,385) - mat(k,520) = rxt(k,386) - mat(k,535) = -( rxt(k,385) + het_rates(k,91) ) - mat(k,519) = -( rxt(k,386) + het_rates(k,92) ) - mat(k,369) = -( het_rates(k,93) ) - mat(k,1014) = -( rxt(k,63) + het_rates(k,94) ) - mat(k,673) = rxt(k,64) + rxt(k,283) - mat(k,504) = -( rxt(k,284) + het_rates(k,95) ) - mat(k,669) = -( rxt(k,64) + rxt(k,283) + het_rates(k,96) ) - mat(k,505) = rxt(k,284) - mat(k,833) = -( rxt(k,65) + het_rates(k,97) ) - mat(k,1058) = -( het_rates(k,98) ) - mat(k,1962) = rxt(k,16) - mat(k,450) = rxt(k,66) - mat(k,928) = rxt(k,75) - mat(k,868) = rxt(k,76) + mat(k,813) = -( het_rates(k,90) ) + mat(k,538) = rxt(k,385) + mat(k,522) = rxt(k,386) + mat(k,537) = -( rxt(k,385) + het_rates(k,91) ) + mat(k,521) = -( rxt(k,386) + het_rates(k,92) ) + mat(k,371) = -( het_rates(k,93) ) + mat(k,1016) = -( rxt(k,63) + het_rates(k,94) ) + mat(k,675) = rxt(k,64) + rxt(k,283) + mat(k,506) = -( rxt(k,284) + het_rates(k,95) ) + mat(k,671) = -( rxt(k,64) + rxt(k,283) + het_rates(k,96) ) + mat(k,507) = rxt(k,284) + mat(k,835) = -( rxt(k,65) + het_rates(k,97) ) + mat(k,1060) = -( het_rates(k,98) ) + mat(k,1965) = rxt(k,16) + mat(k,452) = rxt(k,66) + mat(k,930) = rxt(k,75) + mat(k,870) = rxt(k,76) mat(k,1381) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & + rxt(k,82) - mat(k,1430) = rxt(k,83) + rxt(k,84) + rxt(k,85) + rxt(k,86) + rxt(k,87) & + mat(k,1921) = rxt(k,83) + rxt(k,84) + rxt(k,85) + rxt(k,86) + rxt(k,87) & + rxt(k,90) + rxt(k,91) + rxt(k,92) - mat(k,1555) = rxt(k,93) + rxt(k,137) - mat(k,598) = rxt(k,96) - mat(k,1843) = rxt(k,98) - mat(k,1879) = rxt(k,99) + rxt(k,358) + mat(k,1549) = rxt(k,93) + rxt(k,137) + mat(k,600) = rxt(k,96) + mat(k,1836) = rxt(k,98) + mat(k,1872) = rxt(k,99) + rxt(k,358) mat(k,167) = -( het_rates(k,99) ) - mat(k,490) = -( het_rates(k,100) ) - mat(k,900) = -( rxt(k,558) + het_rates(k,101) ) - mat(k,180) = rxt(k,11) + rxt(k,448) + mat(k,492) = -( het_rates(k,100) ) + mat(k,902) = -( rxt(k,560) + het_rates(k,101) ) + mat(k,180) = rxt(k,11) + rxt(k,447) mat(k,246) = -( rxt(k,373) + het_rates(k,102) ) - mat(k,1218) = rxt(k,375) - mat(k,1241) = -( rxt(k,375) + het_rates(k,103) ) - mat(k,1690) = rxt(k,377) + mat(k,1618) = rxt(k,375) + mat(k,1650) = -( rxt(k,375) + het_rates(k,103) ) + mat(k,1292) = rxt(k,377) mat(k,107) = -( het_rates(k,104) ) - mat(k,1700) = -( rxt(k,377) + het_rates(k,105) ) - mat(k,1657) = rxt(k,379) + mat(k,1284) = -( rxt(k,377) + het_rates(k,105) ) + mat(k,1429) = rxt(k,379) mat(k,111) = -( het_rates(k,106) ) - mat(k,1656) = -( rxt(k,379) + het_rates(k,107) ) + mat(k,1432) = -( rxt(k,379) + het_rates(k,107) ) mat(k,284) = -( het_rates(k,108) ) mat(k,247) = rxt(k,373) - mat(k,300) = -( het_rates(k,109) ) + mat(k,343) = -( rxt(k,423) + het_rates(k,109) ) mat(k,230) = -( het_rates(k,110) ) - mat(k,201) = rxt(k,599) - mat(k,195) = rxt(k,604) - mat(k,926) = -( rxt(k,75) + het_rates(k,111) ) - mat(k,551) = rxt(k,273) - mat(k,550) = -( rxt(k,273) + het_rates(k,112) ) - mat(k,866) = -( rxt(k,76) + het_rates(k,113) ) - mat(k,610) = rxt(k,275) - mat(k,692) = rxt(k,282) - mat(k,625) = -( rxt(k,274) + het_rates(k,114) ) - mat(k,691) = -( rxt(k,282) + het_rates(k,115) ) - mat(k,626) = rxt(k,274) - mat(k,564) = -( het_rates(k,116) ) - mat(k,609) = -( rxt(k,275) + het_rates(k,117) ) - mat(k,1153) = -( rxt(k,370) + het_rates(k,118) ) - mat(k,1964) = rxt(k,16) + mat(k,201) = rxt(k,601) + mat(k,195) = rxt(k,606) + mat(k,928) = -( rxt(k,75) + het_rates(k,111) ) + mat(k,553) = rxt(k,273) + mat(k,552) = -( rxt(k,273) + het_rates(k,112) ) + mat(k,868) = -( rxt(k,76) + het_rates(k,113) ) + mat(k,612) = rxt(k,275) + mat(k,694) = rxt(k,282) + mat(k,627) = -( rxt(k,274) + het_rates(k,114) ) + mat(k,693) = -( rxt(k,282) + het_rates(k,115) ) + mat(k,628) = rxt(k,274) + mat(k,566) = -( het_rates(k,116) ) + mat(k,611) = -( rxt(k,275) + het_rates(k,117) ) + mat(k,1154) = -( rxt(k,370) + het_rates(k,118) ) + mat(k,1967) = rxt(k,16) mat(k,266) = rxt(k,369) mat(k,259) = rxt(k,371) - mat(k,1602) = rxt(k,592) - mat(k,393) = rxt(k,595) - mat(k,1197) = -( het_rates(k,119) ) + mat(k,1596) = rxt(k,594) + mat(k,409) = rxt(k,597) + mat(k,1198) = -( het_rates(k,119) ) mat(k,173) = -( het_rates(k,120) ) mat(k,264) = -( rxt(k,369) + het_rates(k,121) ) mat(k,1327) = -( het_rates(k,122) ) mat(k,256) = -( rxt(k,371) + het_rates(k,123) ) - mat(k,1127) = rxt(k,370) - mat(k,317) = -( het_rates(k,124) ) - mat(k,444) = rxt(k,66) - mat(k,196) = rxt(k,605) - mat(k,377) = -( rxt(k,387) + rxt(k,395) + het_rates(k,125) ) - mat(k,1906) = rxt(k,7) + mat(k,1129) = rxt(k,370) + mat(k,309) = -( het_rates(k,124) ) + mat(k,446) = rxt(k,66) + mat(k,196) = rxt(k,607) + mat(k,379) = -( rxt(k,387) + rxt(k,395) + het_rates(k,125) ) + mat(k,1222) = rxt(k,7) mat(k,132) = rxt(k,399) mat(k,131) = -( rxt(k,388) + rxt(k,399) + het_rates(k,126) ) - mat(k,1566) = -( rxt(k,93) + rxt(k,137) + het_rates(k,127) ) - mat(k,850) = rxt(k,65) - mat(k,245) = rxt(k,97) - mat(k,1612) = -( rxt(k,592) + het_rates(k,128) ) - mat(k,1442) = rxt(k,84) + rxt(k,86) - mat(k,297) = rxt(k,94) + mat(k,1560) = -( rxt(k,93) + rxt(k,137) + het_rates(k,127) ) + mat(k,852) = rxt(k,65) + mat(k,243) = rxt(k,97) + mat(k,1606) = -( rxt(k,594) + het_rates(k,128) ) + mat(k,1933) = rxt(k,84) + rxt(k,86) + mat(k,295) = rxt(k,94) mat(k,292) = -( rxt(k,94) + het_rates(k,129) ) - mat(k,594) = -( rxt(k,95) + rxt(k,96) + het_rates(k,130) ) + mat(k,596) = -( rxt(k,95) + rxt(k,96) + het_rates(k,130) ) mat(k,239) = -( rxt(k,97) + het_rates(k,131) ) - mat(k,461) = -( het_rates(k,132) ) - mat(k,984) = -( het_rates(k,133) ) - mat(k,2065) = rxt(k,3) + mat(k,463) = -( het_rates(k,132) ) + mat(k,986) = -( het_rates(k,133) ) + mat(k,2068) = rxt(k,3) mat(k,216) = 2.000_r8*rxt(k,4) - mat(k,1517) = rxt(k,9) + mat(k,1511) = rxt(k,9) mat(k,181) = rxt(k,10) mat(k,279) = rxt(k,12) mat(k,158) = rxt(k,23) - mat(k,422) = .330_r8*rxt(k,25) - mat(k,312) = rxt(k,58) - mat(k,334) = rxt(k,59) - mat(k,1841) = rxt(k,98) - mat(k,1808) = .500_r8*rxt(k,560) - mat(k,1861) = -( rxt(k,98) + het_rates(k,134) ) - mat(k,1898) = -( rxt(k,99) + rxt(k,358) + het_rates(k,135) ) - mat(k,1034) = rxt(k,63) - mat(k,606) = rxt(k,95) - mat(k,388) = -( rxt(k,595) + het_rates(k,136) ) + mat(k,424) = .330_r8*rxt(k,25) + mat(k,304) = rxt(k,58) + mat(k,326) = rxt(k,59) + mat(k,1834) = rxt(k,98) + mat(k,1801) = .500_r8*rxt(k,562) + mat(k,1854) = -( rxt(k,98) + het_rates(k,134) ) + mat(k,1891) = -( rxt(k,99) + rxt(k,358) + het_rates(k,135) ) + mat(k,1036) = rxt(k,63) + mat(k,608) = rxt(k,95) + mat(k,404) = -( rxt(k,597) + het_rates(k,136) ) mat(k,1364) = rxt(k,77) + rxt(k,81) - mat(k,1415) = rxt(k,85) + rxt(k,87) - mat(k,197) = rxt(k,579) - mat(k,202) = rxt(k,580) - mat(k,200) = -( rxt(k,580) + rxt(k,599) + het_rates(k,137) ) + mat(k,1906) = rxt(k,85) + rxt(k,87) + mat(k,197) = rxt(k,581) + mat(k,202) = rxt(k,582) + mat(k,200) = -( rxt(k,582) + rxt(k,601) + het_rates(k,137) ) mat(k,1348) = rxt(k,78) + rxt(k,82) - mat(k,1407) = rxt(k,83) + rxt(k,92) - mat(k,194) = rxt(k,581) - mat(k,193) = -( rxt(k,579) + rxt(k,581) + rxt(k,604) + rxt(k,605) & + mat(k,1898) = rxt(k,83) + rxt(k,92) + mat(k,194) = rxt(k,583) + mat(k,193) = -( rxt(k,581) + rxt(k,583) + rxt(k,606) + rxt(k,607) & + het_rates(k,138) ) mat(k,1347) = rxt(k,79) + rxt(k,80) - mat(k,1406) = rxt(k,90) + rxt(k,91) - mat(k,2090) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,139) ) - mat(k,430) = .050_r8*rxt(k,25) - mat(k,687) = rxt(k,64) + rxt(k,283) + mat(k,1897) = rxt(k,90) + rxt(k,91) + mat(k,2093) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,139) ) + mat(k,432) = .050_r8*rxt(k,25) + mat(k,689) = rxt(k,64) + rxt(k,283) mat(k,299) = rxt(k,94) mat(k,54) = rxt(k,100) - mat(k,563) = rxt(k,273) - mat(k,642) = rxt(k,274) - mat(k,707) = rxt(k,282) - mat(k,518) = rxt(k,284) + mat(k,565) = rxt(k,273) + mat(k,644) = rxt(k,274) + mat(k,709) = rxt(k,282) + mat(k,520) = rxt(k,284) mat(k,251) = rxt(k,373) - mat(k,1260) = rxt(k,375) - mat(k,1709) = rxt(k,377) - mat(k,1666) = rxt(k,379) - mat(k,549) = rxt(k,385) + mat(k,1660) = rxt(k,375) + mat(k,1302) = rxt(k,377) + mat(k,1447) = rxt(k,379) + mat(k,551) = rxt(k,385) end do end subroutine linmat02 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_lu_factor.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_lu_factor.F90 index dd7f1e2b1d..f946e60284 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_lu_factor.F90 @@ -45,48 +45,48 @@ subroutine lu_fac01( avec_len, lu ) lu(k,26) = 1._r8 / lu(k,26) lu(k,27) = lu(k,27) * lu(k,26) lu(k,28) = lu(k,28) * lu(k,26) - lu(k,1104) = lu(k,1104) - lu(k,27) * lu(k,1082) - lu(k,1112) = lu(k,1112) - lu(k,28) * lu(k,1082) + lu(k,1106) = lu(k,1106) - lu(k,27) * lu(k,1084) + lu(k,1114) = lu(k,1114) - lu(k,28) * lu(k,1084) lu(k,29) = 1._r8 / lu(k,29) lu(k,30) = lu(k,30) * lu(k,29) lu(k,31) = lu(k,31) * lu(k,29) - lu(k,787) = lu(k,787) - lu(k,30) * lu(k,758) - lu(k,796) = lu(k,796) - lu(k,31) * lu(k,758) + lu(k,789) = lu(k,789) - lu(k,30) * lu(k,760) + lu(k,796) = lu(k,796) - lu(k,31) * lu(k,760) lu(k,32) = 1._r8 / lu(k,32) lu(k,33) = lu(k,33) * lu(k,32) lu(k,34) = lu(k,34) * lu(k,32) lu(k,35) = lu(k,35) * lu(k,32) - lu(k,767) = lu(k,767) - lu(k,33) * lu(k,759) - lu(k,783) = lu(k,783) - lu(k,34) * lu(k,759) - lu(k,787) = lu(k,787) - lu(k,35) * lu(k,759) + lu(k,769) = lu(k,769) - lu(k,33) * lu(k,761) + lu(k,785) = lu(k,785) - lu(k,34) * lu(k,761) + lu(k,789) = lu(k,789) - lu(k,35) * lu(k,761) lu(k,36) = 1._r8 / lu(k,36) lu(k,37) = lu(k,37) * lu(k,36) lu(k,38) = lu(k,38) * lu(k,36) lu(k,39) = lu(k,39) * lu(k,36) - lu(k,769) = lu(k,769) - lu(k,37) * lu(k,760) - lu(k,787) = lu(k,787) - lu(k,38) * lu(k,760) - lu(k,796) = lu(k,796) - lu(k,39) * lu(k,760) + lu(k,771) = lu(k,771) - lu(k,37) * lu(k,762) + lu(k,789) = lu(k,789) - lu(k,38) * lu(k,762) + lu(k,796) = lu(k,796) - lu(k,39) * lu(k,762) lu(k,40) = 1._r8 / lu(k,40) lu(k,41) = lu(k,41) * lu(k,40) lu(k,42) = lu(k,42) * lu(k,40) lu(k,43) = lu(k,43) * lu(k,40) - lu(k,767) = lu(k,767) - lu(k,41) * lu(k,761) - lu(k,787) = lu(k,787) - lu(k,42) * lu(k,761) - lu(k,796) = lu(k,796) - lu(k,43) * lu(k,761) + lu(k,769) = lu(k,769) - lu(k,41) * lu(k,763) + lu(k,789) = lu(k,789) - lu(k,42) * lu(k,763) + lu(k,796) = lu(k,796) - lu(k,43) * lu(k,763) lu(k,44) = 1._r8 / lu(k,44) lu(k,45) = lu(k,45) * lu(k,44) lu(k,46) = lu(k,46) * lu(k,44) lu(k,47) = lu(k,47) * lu(k,44) - lu(k,767) = lu(k,767) - lu(k,45) * lu(k,762) - lu(k,787) = lu(k,787) - lu(k,46) * lu(k,762) - lu(k,796) = lu(k,796) - lu(k,47) * lu(k,762) + lu(k,769) = lu(k,769) - lu(k,45) * lu(k,764) + lu(k,789) = lu(k,789) - lu(k,46) * lu(k,764) + lu(k,796) = lu(k,796) - lu(k,47) * lu(k,764) lu(k,48) = 1._r8 / lu(k,48) lu(k,49) = lu(k,49) * lu(k,48) lu(k,50) = lu(k,50) * lu(k,48) lu(k,51) = lu(k,51) * lu(k,48) - lu(k,984) = lu(k,984) - lu(k,49) * lu(k,949) - lu(k,993) = lu(k,993) - lu(k,50) * lu(k,949) - lu(k,1005) = lu(k,1005) - lu(k,51) * lu(k,949) + lu(k,986) = lu(k,986) - lu(k,49) * lu(k,951) + lu(k,993) = lu(k,993) - lu(k,50) * lu(k,951) + lu(k,1007) = lu(k,1007) - lu(k,51) * lu(k,951) end do end subroutine lu_fac01 subroutine lu_fac02( avec_len, lu ) @@ -108,51 +108,51 @@ subroutine lu_fac02( avec_len, lu ) lu(k,54) = lu(k,54) * lu(k,52) lu(k,103) = lu(k,103) - lu(k,53) * lu(k,102) lu(k,106) = lu(k,106) - lu(k,54) * lu(k,102) - lu(k,2032) = lu(k,2032) - lu(k,53) * lu(k,2031) - lu(k,2090) = lu(k,2090) - lu(k,54) * lu(k,2031) + lu(k,2035) = lu(k,2035) - lu(k,53) * lu(k,2034) + lu(k,2093) = lu(k,2093) - lu(k,54) * lu(k,2034) lu(k,55) = 1._r8 / lu(k,55) lu(k,56) = lu(k,56) * lu(k,55) lu(k,57) = lu(k,57) * lu(k,55) lu(k,58) = lu(k,58) * lu(k,55) lu(k,59) = lu(k,59) * lu(k,55) - lu(k,767) = lu(k,767) - lu(k,56) * lu(k,763) - lu(k,783) = lu(k,783) - lu(k,57) * lu(k,763) - lu(k,787) = lu(k,787) - lu(k,58) * lu(k,763) - lu(k,796) = lu(k,796) - lu(k,59) * lu(k,763) + lu(k,769) = lu(k,769) - lu(k,56) * lu(k,765) + lu(k,785) = lu(k,785) - lu(k,57) * lu(k,765) + lu(k,789) = lu(k,789) - lu(k,58) * lu(k,765) + lu(k,796) = lu(k,796) - lu(k,59) * lu(k,765) lu(k,60) = 1._r8 / lu(k,60) lu(k,61) = lu(k,61) * lu(k,60) lu(k,62) = lu(k,62) * lu(k,60) lu(k,63) = lu(k,63) * lu(k,60) lu(k,64) = lu(k,64) * lu(k,60) - lu(k,767) = lu(k,767) - lu(k,61) * lu(k,764) - lu(k,778) = lu(k,778) - lu(k,62) * lu(k,764) - lu(k,783) = lu(k,783) - lu(k,63) * lu(k,764) - lu(k,787) = lu(k,787) - lu(k,64) * lu(k,764) + lu(k,769) = lu(k,769) - lu(k,61) * lu(k,766) + lu(k,780) = lu(k,780) - lu(k,62) * lu(k,766) + lu(k,785) = lu(k,785) - lu(k,63) * lu(k,766) + lu(k,789) = lu(k,789) - lu(k,64) * lu(k,766) lu(k,65) = 1._r8 / lu(k,65) lu(k,66) = lu(k,66) * lu(k,65) lu(k,67) = lu(k,67) * lu(k,65) lu(k,68) = lu(k,68) * lu(k,65) lu(k,69) = lu(k,69) * lu(k,65) - lu(k,767) = lu(k,767) - lu(k,66) * lu(k,765) - lu(k,769) = lu(k,769) - lu(k,67) * lu(k,765) - lu(k,787) = lu(k,787) - lu(k,68) * lu(k,765) - lu(k,796) = lu(k,796) - lu(k,69) * lu(k,765) + lu(k,769) = lu(k,769) - lu(k,66) * lu(k,767) + lu(k,771) = lu(k,771) - lu(k,67) * lu(k,767) + lu(k,789) = lu(k,789) - lu(k,68) * lu(k,767) + lu(k,796) = lu(k,796) - lu(k,69) * lu(k,767) lu(k,70) = 1._r8 / lu(k,70) lu(k,71) = lu(k,71) * lu(k,70) lu(k,72) = lu(k,72) * lu(k,70) lu(k,73) = lu(k,73) * lu(k,70) lu(k,74) = lu(k,74) * lu(k,70) - lu(k,767) = lu(k,767) - lu(k,71) * lu(k,766) - lu(k,778) = lu(k,778) - lu(k,72) * lu(k,766) - lu(k,787) = lu(k,787) - lu(k,73) * lu(k,766) - lu(k,796) = lu(k,796) - lu(k,74) * lu(k,766) + lu(k,769) = lu(k,769) - lu(k,71) * lu(k,768) + lu(k,780) = lu(k,780) - lu(k,72) * lu(k,768) + lu(k,789) = lu(k,789) - lu(k,73) * lu(k,768) + lu(k,796) = lu(k,796) - lu(k,74) * lu(k,768) lu(k,75) = 1._r8 / lu(k,75) lu(k,76) = lu(k,76) * lu(k,75) - lu(k,337) = lu(k,337) - lu(k,76) * lu(k,332) - lu(k,363) = lu(k,363) - lu(k,76) * lu(k,357) - lu(k,1112) = lu(k,1112) - lu(k,76) * lu(k,1083) - lu(k,1487) = lu(k,1487) - lu(k,76) * lu(k,1454) - lu(k,2016) = lu(k,2016) - lu(k,76) * lu(k,1986) + lu(k,329) = lu(k,329) - lu(k,76) * lu(k,324) + lu(k,365) = lu(k,365) - lu(k,76) * lu(k,359) + lu(k,1114) = lu(k,1114) - lu(k,76) * lu(k,1085) + lu(k,1481) = lu(k,1481) - lu(k,76) * lu(k,1448) + lu(k,2019) = lu(k,2019) - lu(k,76) * lu(k,1989) lu(k,77) = 1._r8 / lu(k,77) lu(k,78) = lu(k,78) * lu(k,77) lu(k,79) = lu(k,79) * lu(k,77) @@ -160,57 +160,57 @@ subroutine lu_fac02( avec_len, lu ) lu(k,92) = lu(k,92) - lu(k,79) * lu(k,89) lu(k,117) = - lu(k,78) * lu(k,115) lu(k,118) = lu(k,118) - lu(k,79) * lu(k,115) - lu(k,778) = lu(k,778) - lu(k,78) * lu(k,767) - lu(k,787) = lu(k,787) - lu(k,79) * lu(k,767) - lu(k,971) = - lu(k,78) * lu(k,950) - lu(k,982) = - lu(k,79) * lu(k,950) + lu(k,780) = lu(k,780) - lu(k,78) * lu(k,769) + lu(k,789) = lu(k,789) - lu(k,79) * lu(k,769) + lu(k,973) = - lu(k,78) * lu(k,952) + lu(k,984) = - lu(k,79) * lu(k,952) lu(k,80) = 1._r8 / lu(k,80) lu(k,81) = lu(k,81) * lu(k,80) lu(k,82) = lu(k,82) * lu(k,80) lu(k,83) = lu(k,83) * lu(k,80) lu(k,84) = lu(k,84) * lu(k,80) - lu(k,769) = lu(k,769) - lu(k,81) * lu(k,768) - lu(k,787) = lu(k,787) - lu(k,82) * lu(k,768) - lu(k,789) = lu(k,789) - lu(k,83) * lu(k,768) - lu(k,796) = lu(k,796) - lu(k,84) * lu(k,768) - lu(k,952) = lu(k,952) - lu(k,81) * lu(k,951) - lu(k,982) = lu(k,982) - lu(k,82) * lu(k,951) - lu(k,984) = lu(k,984) - lu(k,83) * lu(k,951) - lu(k,993) = lu(k,993) - lu(k,84) * lu(k,951) + lu(k,771) = lu(k,771) - lu(k,81) * lu(k,770) + lu(k,789) = lu(k,789) - lu(k,82) * lu(k,770) + lu(k,791) = lu(k,791) - lu(k,83) * lu(k,770) + lu(k,796) = lu(k,796) - lu(k,84) * lu(k,770) + lu(k,954) = lu(k,954) - lu(k,81) * lu(k,953) + lu(k,984) = lu(k,984) - lu(k,82) * lu(k,953) + lu(k,986) = lu(k,986) - lu(k,83) * lu(k,953) + lu(k,993) = lu(k,993) - lu(k,84) * lu(k,953) lu(k,85) = 1._r8 / lu(k,85) lu(k,86) = lu(k,86) * lu(k,85) lu(k,87) = lu(k,87) * lu(k,85) lu(k,88) = lu(k,88) * lu(k,85) - lu(k,778) = lu(k,778) - lu(k,86) * lu(k,769) - lu(k,787) = lu(k,787) - lu(k,87) * lu(k,769) - lu(k,796) = lu(k,796) - lu(k,88) * lu(k,769) - lu(k,971) = lu(k,971) - lu(k,86) * lu(k,952) - lu(k,982) = lu(k,982) - lu(k,87) * lu(k,952) - lu(k,993) = lu(k,993) - lu(k,88) * lu(k,952) + lu(k,780) = lu(k,780) - lu(k,86) * lu(k,771) + lu(k,789) = lu(k,789) - lu(k,87) * lu(k,771) + lu(k,796) = lu(k,796) - lu(k,88) * lu(k,771) + lu(k,973) = lu(k,973) - lu(k,86) * lu(k,954) + lu(k,984) = lu(k,984) - lu(k,87) * lu(k,954) + lu(k,993) = lu(k,993) - lu(k,88) * lu(k,954) lu(k,90) = 1._r8 / lu(k,90) lu(k,91) = lu(k,91) * lu(k,90) lu(k,92) = lu(k,92) * lu(k,90) lu(k,93) = lu(k,93) * lu(k,90) lu(k,94) = lu(k,94) * lu(k,90) - lu(k,778) = lu(k,778) - lu(k,91) * lu(k,770) - lu(k,787) = lu(k,787) - lu(k,92) * lu(k,770) - lu(k,789) = lu(k,789) - lu(k,93) * lu(k,770) - lu(k,796) = lu(k,796) - lu(k,94) * lu(k,770) - lu(k,971) = lu(k,971) - lu(k,91) * lu(k,953) - lu(k,982) = lu(k,982) - lu(k,92) * lu(k,953) - lu(k,984) = lu(k,984) - lu(k,93) * lu(k,953) - lu(k,993) = lu(k,993) - lu(k,94) * lu(k,953) + lu(k,780) = lu(k,780) - lu(k,91) * lu(k,772) + lu(k,789) = lu(k,789) - lu(k,92) * lu(k,772) + lu(k,791) = lu(k,791) - lu(k,93) * lu(k,772) + lu(k,796) = lu(k,796) - lu(k,94) * lu(k,772) + lu(k,973) = lu(k,973) - lu(k,91) * lu(k,955) + lu(k,984) = lu(k,984) - lu(k,92) * lu(k,955) + lu(k,986) = lu(k,986) - lu(k,93) * lu(k,955) + lu(k,993) = lu(k,993) - lu(k,94) * lu(k,955) lu(k,95) = 1._r8 / lu(k,95) lu(k,96) = lu(k,96) * lu(k,95) lu(k,97) = lu(k,97) * lu(k,95) - lu(k,310) = lu(k,310) - lu(k,96) * lu(k,308) - lu(k,314) = - lu(k,97) * lu(k,308) - lu(k,714) = lu(k,714) - lu(k,96) * lu(k,708) - lu(k,724) = lu(k,724) - lu(k,97) * lu(k,708) - lu(k,1092) = lu(k,1092) - lu(k,96) * lu(k,1084) - lu(k,1112) = lu(k,1112) - lu(k,97) * lu(k,1084) - lu(k,1995) = - lu(k,96) * lu(k,1987) - lu(k,2016) = lu(k,2016) - lu(k,97) * lu(k,1987) + lu(k,302) = lu(k,302) - lu(k,96) * lu(k,300) + lu(k,306) = - lu(k,97) * lu(k,300) + lu(k,716) = lu(k,716) - lu(k,96) * lu(k,710) + lu(k,725) = lu(k,725) - lu(k,97) * lu(k,710) + lu(k,1094) = lu(k,1094) - lu(k,96) * lu(k,1086) + lu(k,1114) = lu(k,1114) - lu(k,97) * lu(k,1086) + lu(k,1998) = - lu(k,96) * lu(k,1990) + lu(k,2019) = lu(k,2019) - lu(k,97) * lu(k,1990) end do end subroutine lu_fac02 subroutine lu_fac03( avec_len, lu ) @@ -231,129 +231,129 @@ subroutine lu_fac03( avec_len, lu ) lu(k,99) = lu(k,99) * lu(k,98) lu(k,100) = lu(k,100) * lu(k,98) lu(k,101) = lu(k,101) * lu(k,98) - lu(k,447) = - lu(k,99) * lu(k,443) - lu(k,454) = lu(k,454) - lu(k,100) * lu(k,443) - lu(k,458) = lu(k,458) - lu(k,101) * lu(k,443) - lu(k,787) = lu(k,787) - lu(k,99) * lu(k,771) - lu(k,795) = lu(k,795) - lu(k,100) * lu(k,771) - lu(k,806) = lu(k,806) - lu(k,101) * lu(k,771) - lu(k,1803) = - lu(k,99) * lu(k,1786) - lu(k,1818) = lu(k,1818) - lu(k,100) * lu(k,1786) - lu(k,1831) = lu(k,1831) - lu(k,101) * lu(k,1786) + lu(k,449) = - lu(k,99) * lu(k,445) + lu(k,459) = lu(k,459) - lu(k,100) * lu(k,445) + lu(k,460) = lu(k,460) - lu(k,101) * lu(k,445) + lu(k,789) = lu(k,789) - lu(k,99) * lu(k,773) + lu(k,807) = lu(k,807) - lu(k,100) * lu(k,773) + lu(k,808) = lu(k,808) - lu(k,101) * lu(k,773) + lu(k,1796) = - lu(k,99) * lu(k,1779) + lu(k,1823) = lu(k,1823) - lu(k,100) * lu(k,1779) + lu(k,1824) = lu(k,1824) - lu(k,101) * lu(k,1779) lu(k,103) = 1._r8 / lu(k,103) lu(k,104) = lu(k,104) * lu(k,103) lu(k,105) = lu(k,105) * lu(k,103) lu(k,106) = lu(k,106) * lu(k,103) - lu(k,351) = lu(k,351) - lu(k,104) * lu(k,350) - lu(k,355) = lu(k,355) - lu(k,105) * lu(k,350) - lu(k,356) = - lu(k,106) * lu(k,350) - lu(k,972) = lu(k,972) - lu(k,104) * lu(k,954) - lu(k,991) = lu(k,991) - lu(k,105) * lu(k,954) - lu(k,1005) = lu(k,1005) - lu(k,106) * lu(k,954) - lu(k,2045) = - lu(k,104) * lu(k,2032) - lu(k,2074) = lu(k,2074) - lu(k,105) * lu(k,2032) - lu(k,2090) = lu(k,2090) - lu(k,106) * lu(k,2032) + lu(k,353) = lu(k,353) - lu(k,104) * lu(k,352) + lu(k,357) = lu(k,357) - lu(k,105) * lu(k,352) + lu(k,358) = - lu(k,106) * lu(k,352) + lu(k,974) = lu(k,974) - lu(k,104) * lu(k,956) + lu(k,992) = lu(k,992) - lu(k,105) * lu(k,956) + lu(k,1007) = lu(k,1007) - lu(k,106) * lu(k,956) + lu(k,2048) = - lu(k,104) * lu(k,2035) + lu(k,2077) = lu(k,2077) - lu(k,105) * lu(k,2035) + lu(k,2093) = lu(k,2093) - lu(k,106) * lu(k,2035) lu(k,107) = 1._r8 / lu(k,107) lu(k,108) = lu(k,108) * lu(k,107) lu(k,109) = lu(k,109) * lu(k,107) lu(k,110) = lu(k,110) * lu(k,107) - lu(k,406) = lu(k,406) - lu(k,108) * lu(k,399) - lu(k,408) = lu(k,408) - lu(k,109) * lu(k,399) - lu(k,412) = lu(k,412) - lu(k,110) * lu(k,399) - lu(k,1696) = lu(k,1696) - lu(k,108) * lu(k,1667) - lu(k,1700) = lu(k,1700) - lu(k,109) * lu(k,1667) - lu(k,1709) = lu(k,1709) - lu(k,110) * lu(k,1667) - lu(k,2077) = lu(k,2077) - lu(k,108) * lu(k,2033) - lu(k,2081) = lu(k,2081) - lu(k,109) * lu(k,2033) - lu(k,2090) = lu(k,2090) - lu(k,110) * lu(k,2033) + lu(k,393) = lu(k,393) - lu(k,108) * lu(k,387) + lu(k,396) = lu(k,396) - lu(k,109) * lu(k,387) + lu(k,400) = lu(k,400) - lu(k,110) * lu(k,387) + lu(k,1284) = lu(k,1284) - lu(k,108) * lu(k,1260) + lu(k,1289) = lu(k,1289) - lu(k,109) * lu(k,1260) + lu(k,1302) = lu(k,1302) - lu(k,110) * lu(k,1260) + lu(k,2075) = lu(k,2075) - lu(k,108) * lu(k,2036) + lu(k,2080) = lu(k,2080) - lu(k,109) * lu(k,2036) + lu(k,2093) = lu(k,2093) - lu(k,110) * lu(k,2036) lu(k,111) = 1._r8 / lu(k,111) lu(k,112) = lu(k,112) * lu(k,111) lu(k,113) = lu(k,113) * lu(k,111) lu(k,114) = lu(k,114) * lu(k,111) - lu(k,406) = lu(k,406) - lu(k,112) * lu(k,400) - lu(k,407) = lu(k,407) - lu(k,113) * lu(k,400) - lu(k,412) = lu(k,412) - lu(k,114) * lu(k,400) - lu(k,1653) = lu(k,1653) - lu(k,112) * lu(k,1624) - lu(k,1656) = lu(k,1656) - lu(k,113) * lu(k,1624) - lu(k,1666) = lu(k,1666) - lu(k,114) * lu(k,1624) - lu(k,2077) = lu(k,2077) - lu(k,112) * lu(k,2034) - lu(k,2080) = lu(k,2080) - lu(k,113) * lu(k,2034) - lu(k,2090) = lu(k,2090) - lu(k,114) * lu(k,2034) + lu(k,395) = lu(k,395) - lu(k,112) * lu(k,388) + lu(k,396) = lu(k,396) - lu(k,113) * lu(k,388) + lu(k,400) = lu(k,400) - lu(k,114) * lu(k,388) + lu(k,1432) = lu(k,1432) - lu(k,112) * lu(k,1405) + lu(k,1434) = lu(k,1434) - lu(k,113) * lu(k,1405) + lu(k,1447) = lu(k,1447) - lu(k,114) * lu(k,1405) + lu(k,2078) = lu(k,2078) - lu(k,112) * lu(k,2037) + lu(k,2080) = lu(k,2080) - lu(k,113) * lu(k,2037) + lu(k,2093) = lu(k,2093) - lu(k,114) * lu(k,2037) lu(k,116) = 1._r8 / lu(k,116) lu(k,117) = lu(k,117) * lu(k,116) lu(k,118) = lu(k,118) * lu(k,116) lu(k,119) = lu(k,119) * lu(k,116) lu(k,120) = lu(k,120) * lu(k,116) lu(k,121) = lu(k,121) * lu(k,116) - lu(k,778) = lu(k,778) - lu(k,117) * lu(k,772) - lu(k,787) = lu(k,787) - lu(k,118) * lu(k,772) - lu(k,789) = lu(k,789) - lu(k,119) * lu(k,772) - lu(k,796) = lu(k,796) - lu(k,120) * lu(k,772) - lu(k,808) = lu(k,808) - lu(k,121) * lu(k,772) - lu(k,971) = lu(k,971) - lu(k,117) * lu(k,955) - lu(k,982) = lu(k,982) - lu(k,118) * lu(k,955) - lu(k,984) = lu(k,984) - lu(k,119) * lu(k,955) - lu(k,993) = lu(k,993) - lu(k,120) * lu(k,955) - lu(k,1005) = lu(k,1005) - lu(k,121) * lu(k,955) + lu(k,780) = lu(k,780) - lu(k,117) * lu(k,774) + lu(k,789) = lu(k,789) - lu(k,118) * lu(k,774) + lu(k,791) = lu(k,791) - lu(k,119) * lu(k,774) + lu(k,796) = lu(k,796) - lu(k,120) * lu(k,774) + lu(k,810) = lu(k,810) - lu(k,121) * lu(k,774) + lu(k,973) = lu(k,973) - lu(k,117) * lu(k,957) + lu(k,984) = lu(k,984) - lu(k,118) * lu(k,957) + lu(k,986) = lu(k,986) - lu(k,119) * lu(k,957) + lu(k,993) = lu(k,993) - lu(k,120) * lu(k,957) + lu(k,1007) = lu(k,1007) - lu(k,121) * lu(k,957) lu(k,122) = 1._r8 / lu(k,122) lu(k,123) = lu(k,123) * lu(k,122) lu(k,124) = lu(k,124) * lu(k,122) - lu(k,341) = lu(k,341) - lu(k,123) * lu(k,340) - lu(k,348) = lu(k,348) - lu(k,124) * lu(k,340) - lu(k,415) = lu(k,415) - lu(k,123) * lu(k,413) - lu(k,428) = lu(k,428) - lu(k,124) * lu(k,413) - lu(k,644) = lu(k,644) - lu(k,123) * lu(k,643) - lu(k,660) = lu(k,660) - lu(k,124) * lu(k,643) - lu(k,1504) = lu(k,1504) - lu(k,123) * lu(k,1502) - lu(k,1535) = - lu(k,124) * lu(k,1502) - lu(k,2044) = lu(k,2044) - lu(k,123) * lu(k,2035) - lu(k,2083) = lu(k,2083) - lu(k,124) * lu(k,2035) + lu(k,333) = lu(k,333) - lu(k,123) * lu(k,332) + lu(k,340) = lu(k,340) - lu(k,124) * lu(k,332) + lu(k,417) = lu(k,417) - lu(k,123) * lu(k,415) + lu(k,430) = lu(k,430) - lu(k,124) * lu(k,415) + lu(k,646) = lu(k,646) - lu(k,123) * lu(k,645) + lu(k,661) = lu(k,661) - lu(k,124) * lu(k,645) + lu(k,1498) = lu(k,1498) - lu(k,123) * lu(k,1496) + lu(k,1529) = - lu(k,124) * lu(k,1496) + lu(k,2047) = lu(k,2047) - lu(k,123) * lu(k,2038) + lu(k,2086) = lu(k,2086) - lu(k,124) * lu(k,2038) lu(k,125) = 1._r8 / lu(k,125) lu(k,126) = lu(k,126) * lu(k,125) lu(k,127) = lu(k,127) * lu(k,125) lu(k,128) = lu(k,128) * lu(k,125) lu(k,129) = lu(k,129) * lu(k,125) lu(k,130) = lu(k,130) * lu(k,125) - lu(k,972) = lu(k,972) - lu(k,126) * lu(k,956) - lu(k,983) = lu(k,983) - lu(k,127) * lu(k,956) - lu(k,984) = lu(k,984) - lu(k,128) * lu(k,956) - lu(k,994) = lu(k,994) - lu(k,129) * lu(k,956) - lu(k,997) = lu(k,997) - lu(k,130) * lu(k,956) - lu(k,1712) = lu(k,1712) - lu(k,126) * lu(k,1710) - lu(k,1723) = lu(k,1723) - lu(k,127) * lu(k,1710) - lu(k,1725) = lu(k,1725) - lu(k,128) * lu(k,1710) - lu(k,1736) = lu(k,1736) - lu(k,129) * lu(k,1710) - lu(k,1741) = lu(k,1741) - lu(k,130) * lu(k,1710) + lu(k,974) = lu(k,974) - lu(k,126) * lu(k,958) + lu(k,985) = lu(k,985) - lu(k,127) * lu(k,958) + lu(k,986) = lu(k,986) - lu(k,128) * lu(k,958) + lu(k,994) = lu(k,994) - lu(k,129) * lu(k,958) + lu(k,999) = lu(k,999) - lu(k,130) * lu(k,958) + lu(k,1705) = lu(k,1705) - lu(k,126) * lu(k,1703) + lu(k,1716) = lu(k,1716) - lu(k,127) * lu(k,1703) + lu(k,1718) = lu(k,1718) - lu(k,128) * lu(k,1703) + lu(k,1729) = lu(k,1729) - lu(k,129) * lu(k,1703) + lu(k,1734) = lu(k,1734) - lu(k,130) * lu(k,1703) lu(k,131) = 1._r8 / lu(k,131) lu(k,132) = lu(k,132) * lu(k,131) lu(k,133) = lu(k,133) * lu(k,131) - lu(k,779) = - lu(k,132) * lu(k,773) - lu(k,795) = lu(k,795) - lu(k,133) * lu(k,773) - lu(k,1266) = lu(k,1266) - lu(k,132) * lu(k,1261) - lu(k,1287) = lu(k,1287) - lu(k,133) * lu(k,1261) + lu(k,781) = - lu(k,132) * lu(k,775) + lu(k,807) = lu(k,807) - lu(k,133) * lu(k,775) + lu(k,1222) = lu(k,1222) - lu(k,132) * lu(k,1219) + lu(k,1256) = lu(k,1256) - lu(k,133) * lu(k,1219) lu(k,1363) = lu(k,1363) - lu(k,132) * lu(k,1345) - lu(k,1389) = lu(k,1389) - lu(k,133) * lu(k,1345) - lu(k,1414) = lu(k,1414) - lu(k,132) * lu(k,1405) - lu(k,1438) = lu(k,1438) - lu(k,133) * lu(k,1405) - lu(k,1906) = lu(k,1906) - lu(k,132) * lu(k,1903) - lu(k,1928) = lu(k,1928) - lu(k,133) * lu(k,1903) + lu(k,1401) = lu(k,1401) - lu(k,133) * lu(k,1345) + lu(k,1666) = lu(k,1666) - lu(k,132) * lu(k,1661) + lu(k,1699) = lu(k,1699) - lu(k,133) * lu(k,1661) + lu(k,1905) = lu(k,1905) - lu(k,132) * lu(k,1896) + lu(k,1941) = lu(k,1941) - lu(k,133) * lu(k,1896) lu(k,134) = 1._r8 / lu(k,134) lu(k,135) = lu(k,135) * lu(k,134) lu(k,136) = lu(k,136) * lu(k,134) lu(k,137) = lu(k,137) * lu(k,134) lu(k,138) = lu(k,138) * lu(k,134) - lu(k,475) = lu(k,475) - lu(k,135) * lu(k,473) - lu(k,476) = lu(k,476) - lu(k,136) * lu(k,473) - lu(k,481) = lu(k,481) - lu(k,137) * lu(k,473) - lu(k,482) = lu(k,482) - lu(k,138) * lu(k,473) - lu(k,712) = lu(k,712) - lu(k,135) * lu(k,709) - lu(k,713) = lu(k,713) - lu(k,136) * lu(k,709) - lu(k,720) = lu(k,720) - lu(k,137) * lu(k,709) - lu(k,722) = lu(k,722) - lu(k,138) * lu(k,709) - lu(k,1087) = lu(k,1087) - lu(k,135) * lu(k,1085) - lu(k,1091) = lu(k,1091) - lu(k,136) * lu(k,1085) - lu(k,1104) = lu(k,1104) - lu(k,137) * lu(k,1085) - lu(k,1110) = lu(k,1110) - lu(k,138) * lu(k,1085) + lu(k,477) = lu(k,477) - lu(k,135) * lu(k,475) + lu(k,478) = lu(k,478) - lu(k,136) * lu(k,475) + lu(k,483) = lu(k,483) - lu(k,137) * lu(k,475) + lu(k,485) = lu(k,485) - lu(k,138) * lu(k,475) + lu(k,714) = lu(k,714) - lu(k,135) * lu(k,711) + lu(k,715) = lu(k,715) - lu(k,136) * lu(k,711) + lu(k,722) = lu(k,722) - lu(k,137) * lu(k,711) + lu(k,724) = lu(k,724) - lu(k,138) * lu(k,711) + lu(k,1089) = lu(k,1089) - lu(k,135) * lu(k,1087) + lu(k,1093) = lu(k,1093) - lu(k,136) * lu(k,1087) + lu(k,1106) = lu(k,1106) - lu(k,137) * lu(k,1087) + lu(k,1112) = lu(k,1112) - lu(k,138) * lu(k,1087) lu(k,139) = 1._r8 / lu(k,139) lu(k,140) = lu(k,140) * lu(k,139) lu(k,141) = lu(k,141) * lu(k,139) @@ -362,13 +362,13 @@ subroutine lu_fac03( avec_len, lu ) lu(k,144) = lu(k,144) * lu(k,139) lu(k,145) = lu(k,145) * lu(k,139) lu(k,146) = lu(k,146) * lu(k,139) - lu(k,965) = lu(k,965) - lu(k,140) * lu(k,957) - lu(k,966) = lu(k,966) - lu(k,141) * lu(k,957) - lu(k,972) = lu(k,972) - lu(k,142) * lu(k,957) - lu(k,977) = lu(k,977) - lu(k,143) * lu(k,957) - lu(k,984) = lu(k,984) - lu(k,144) * lu(k,957) - lu(k,991) = lu(k,991) - lu(k,145) * lu(k,957) - lu(k,998) = lu(k,998) - lu(k,146) * lu(k,957) + lu(k,967) = lu(k,967) - lu(k,140) * lu(k,959) + lu(k,968) = lu(k,968) - lu(k,141) * lu(k,959) + lu(k,974) = lu(k,974) - lu(k,142) * lu(k,959) + lu(k,979) = lu(k,979) - lu(k,143) * lu(k,959) + lu(k,986) = lu(k,986) - lu(k,144) * lu(k,959) + lu(k,992) = lu(k,992) - lu(k,145) * lu(k,959) + lu(k,1000) = lu(k,1000) - lu(k,146) * lu(k,959) lu(k,1353) = lu(k,1353) - lu(k,140) * lu(k,1346) lu(k,1354) = - lu(k,141) * lu(k,1346) lu(k,1360) = - lu(k,142) * lu(k,1346) @@ -400,62 +400,62 @@ subroutine lu_fac04( avec_len, lu ) lu(k,152) = lu(k,152) * lu(k,147) lu(k,153) = lu(k,153) * lu(k,147) lu(k,154) = lu(k,154) * lu(k,147) - lu(k,965) = lu(k,965) - lu(k,148) * lu(k,958) - lu(k,975) = lu(k,975) - lu(k,149) * lu(k,958) - lu(k,983) = lu(k,983) - lu(k,150) * lu(k,958) - lu(k,984) = lu(k,984) - lu(k,151) * lu(k,958) - lu(k,993) = lu(k,993) - lu(k,152) * lu(k,958) - lu(k,1004) = lu(k,1004) - lu(k,153) * lu(k,958) - lu(k,1005) = lu(k,1005) - lu(k,154) * lu(k,958) - lu(k,1460) = lu(k,1460) - lu(k,148) * lu(k,1455) - lu(k,1465) = lu(k,1465) - lu(k,149) * lu(k,1455) - lu(k,1474) = lu(k,1474) - lu(k,150) * lu(k,1455) - lu(k,1476) = lu(k,1476) - lu(k,151) * lu(k,1455) - lu(k,1487) = lu(k,1487) - lu(k,152) * lu(k,1455) - lu(k,1500) = lu(k,1500) - lu(k,153) * lu(k,1455) - lu(k,1501) = - lu(k,154) * lu(k,1455) + lu(k,967) = lu(k,967) - lu(k,148) * lu(k,960) + lu(k,977) = lu(k,977) - lu(k,149) * lu(k,960) + lu(k,985) = lu(k,985) - lu(k,150) * lu(k,960) + lu(k,986) = lu(k,986) - lu(k,151) * lu(k,960) + lu(k,993) = lu(k,993) - lu(k,152) * lu(k,960) + lu(k,1006) = lu(k,1006) - lu(k,153) * lu(k,960) + lu(k,1007) = lu(k,1007) - lu(k,154) * lu(k,960) + lu(k,1454) = lu(k,1454) - lu(k,148) * lu(k,1449) + lu(k,1459) = lu(k,1459) - lu(k,149) * lu(k,1449) + lu(k,1468) = lu(k,1468) - lu(k,150) * lu(k,1449) + lu(k,1470) = lu(k,1470) - lu(k,151) * lu(k,1449) + lu(k,1481) = lu(k,1481) - lu(k,152) * lu(k,1449) + lu(k,1494) = lu(k,1494) - lu(k,153) * lu(k,1449) + lu(k,1495) = - lu(k,154) * lu(k,1449) lu(k,155) = 1._r8 / lu(k,155) lu(k,156) = lu(k,156) * lu(k,155) lu(k,157) = lu(k,157) * lu(k,155) lu(k,158) = lu(k,158) * lu(k,155) lu(k,159) = lu(k,159) * lu(k,155) lu(k,160) = lu(k,160) * lu(k,155) - lu(k,432) = lu(k,432) - lu(k,156) * lu(k,431) - lu(k,433) = lu(k,433) - lu(k,157) * lu(k,431) - lu(k,435) = - lu(k,158) * lu(k,431) - lu(k,439) = - lu(k,159) * lu(k,431) - lu(k,442) = - lu(k,160) * lu(k,431) - lu(k,894) = lu(k,894) - lu(k,156) * lu(k,887) - lu(k,898) = - lu(k,157) * lu(k,887) - lu(k,901) = lu(k,901) - lu(k,158) * lu(k,887) - lu(k,914) = lu(k,914) - lu(k,159) * lu(k,887) - lu(k,921) = lu(k,921) - lu(k,160) * lu(k,887) - lu(k,975) = lu(k,975) - lu(k,156) * lu(k,959) - lu(k,981) = lu(k,981) - lu(k,157) * lu(k,959) - lu(k,984) = lu(k,984) - lu(k,158) * lu(k,959) - lu(k,998) = lu(k,998) - lu(k,159) * lu(k,959) - lu(k,1005) = lu(k,1005) - lu(k,160) * lu(k,959) + lu(k,434) = lu(k,434) - lu(k,156) * lu(k,433) + lu(k,435) = lu(k,435) - lu(k,157) * lu(k,433) + lu(k,437) = - lu(k,158) * lu(k,433) + lu(k,440) = - lu(k,159) * lu(k,433) + lu(k,444) = - lu(k,160) * lu(k,433) + lu(k,896) = lu(k,896) - lu(k,156) * lu(k,889) + lu(k,900) = - lu(k,157) * lu(k,889) + lu(k,903) = lu(k,903) - lu(k,158) * lu(k,889) + lu(k,916) = lu(k,916) - lu(k,159) * lu(k,889) + lu(k,923) = lu(k,923) - lu(k,160) * lu(k,889) + lu(k,977) = lu(k,977) - lu(k,156) * lu(k,961) + lu(k,983) = lu(k,983) - lu(k,157) * lu(k,961) + lu(k,986) = lu(k,986) - lu(k,158) * lu(k,961) + lu(k,1000) = lu(k,1000) - lu(k,159) * lu(k,961) + lu(k,1007) = lu(k,1007) - lu(k,160) * lu(k,961) lu(k,161) = 1._r8 / lu(k,161) lu(k,162) = lu(k,162) * lu(k,161) lu(k,163) = lu(k,163) * lu(k,161) lu(k,164) = lu(k,164) * lu(k,161) lu(k,165) = lu(k,165) * lu(k,161) lu(k,166) = lu(k,166) * lu(k,161) - lu(k,783) = lu(k,783) - lu(k,162) * lu(k,774) - lu(k,787) = lu(k,787) - lu(k,163) * lu(k,774) - lu(k,789) = lu(k,789) - lu(k,164) * lu(k,774) - lu(k,796) = lu(k,796) - lu(k,165) * lu(k,774) - lu(k,807) = lu(k,807) - lu(k,166) * lu(k,774) - lu(k,978) = lu(k,978) - lu(k,162) * lu(k,960) - lu(k,982) = lu(k,982) - lu(k,163) * lu(k,960) - lu(k,984) = lu(k,984) - lu(k,164) * lu(k,960) - lu(k,993) = lu(k,993) - lu(k,165) * lu(k,960) - lu(k,1004) = lu(k,1004) - lu(k,166) * lu(k,960) - lu(k,1466) = lu(k,1466) - lu(k,162) * lu(k,1456) - lu(k,1470) = - lu(k,163) * lu(k,1456) - lu(k,1476) = lu(k,1476) - lu(k,164) * lu(k,1456) - lu(k,1487) = lu(k,1487) - lu(k,165) * lu(k,1456) - lu(k,1500) = lu(k,1500) - lu(k,166) * lu(k,1456) + lu(k,785) = lu(k,785) - lu(k,162) * lu(k,776) + lu(k,789) = lu(k,789) - lu(k,163) * lu(k,776) + lu(k,791) = lu(k,791) - lu(k,164) * lu(k,776) + lu(k,796) = lu(k,796) - lu(k,165) * lu(k,776) + lu(k,809) = lu(k,809) - lu(k,166) * lu(k,776) + lu(k,980) = lu(k,980) - lu(k,162) * lu(k,962) + lu(k,984) = lu(k,984) - lu(k,163) * lu(k,962) + lu(k,986) = lu(k,986) - lu(k,164) * lu(k,962) + lu(k,993) = lu(k,993) - lu(k,165) * lu(k,962) + lu(k,1006) = lu(k,1006) - lu(k,166) * lu(k,962) + lu(k,1460) = lu(k,1460) - lu(k,162) * lu(k,1450) + lu(k,1464) = - lu(k,163) * lu(k,1450) + lu(k,1470) = lu(k,1470) - lu(k,164) * lu(k,1450) + lu(k,1481) = lu(k,1481) - lu(k,165) * lu(k,1450) + lu(k,1494) = lu(k,1494) - lu(k,166) * lu(k,1450) lu(k,167) = 1._r8 / lu(k,167) lu(k,168) = lu(k,168) * lu(k,167) lu(k,169) = lu(k,169) * lu(k,167) @@ -465,39 +465,39 @@ subroutine lu_fac04( avec_len, lu ) lu(k,290) = - lu(k,168) * lu(k,289) lu(k,293) = lu(k,293) - lu(k,169) * lu(k,289) lu(k,294) = lu(k,294) - lu(k,170) * lu(k,289) - lu(k,298) = - lu(k,171) * lu(k,289) + lu(k,297) = - lu(k,171) * lu(k,289) lu(k,299) = lu(k,299) - lu(k,172) * lu(k,289) - lu(k,1044) = lu(k,1044) - lu(k,168) * lu(k,1039) - lu(k,1057) = lu(k,1057) - lu(k,169) * lu(k,1039) - lu(k,1058) = lu(k,1058) - lu(k,170) * lu(k,1039) - lu(k,1074) = lu(k,1074) - lu(k,171) * lu(k,1039) - lu(k,1081) = lu(k,1081) - lu(k,172) * lu(k,1039) - lu(k,2038) = lu(k,2038) - lu(k,168) * lu(k,2036) - lu(k,2065) = lu(k,2065) - lu(k,169) * lu(k,2036) - lu(k,2067) = - lu(k,170) * lu(k,2036) - lu(k,2083) = lu(k,2083) - lu(k,171) * lu(k,2036) - lu(k,2090) = lu(k,2090) - lu(k,172) * lu(k,2036) + lu(k,1046) = lu(k,1046) - lu(k,168) * lu(k,1041) + lu(k,1059) = lu(k,1059) - lu(k,169) * lu(k,1041) + lu(k,1060) = lu(k,1060) - lu(k,170) * lu(k,1041) + lu(k,1076) = lu(k,1076) - lu(k,171) * lu(k,1041) + lu(k,1083) = lu(k,1083) - lu(k,172) * lu(k,1041) + lu(k,2041) = lu(k,2041) - lu(k,168) * lu(k,2039) + lu(k,2068) = lu(k,2068) - lu(k,169) * lu(k,2039) + lu(k,2070) = - lu(k,170) * lu(k,2039) + lu(k,2086) = lu(k,2086) - lu(k,171) * lu(k,2039) + lu(k,2093) = lu(k,2093) - lu(k,172) * lu(k,2039) lu(k,173) = 1._r8 / lu(k,173) lu(k,174) = lu(k,174) * lu(k,173) lu(k,175) = lu(k,175) * lu(k,173) lu(k,176) = lu(k,176) * lu(k,173) lu(k,177) = lu(k,177) * lu(k,173) lu(k,178) = lu(k,178) * lu(k,173) - lu(k,1047) = - lu(k,174) * lu(k,1040) - lu(k,1058) = lu(k,1058) - lu(k,175) * lu(k,1040) - lu(k,1062) = lu(k,1062) - lu(k,176) * lu(k,1040) - lu(k,1079) = lu(k,1079) - lu(k,177) * lu(k,1040) - lu(k,1081) = lu(k,1081) - lu(k,178) * lu(k,1040) - lu(k,1176) = - lu(k,174) * lu(k,1175) - lu(k,1194) = lu(k,1194) - lu(k,175) * lu(k,1175) - lu(k,1198) = - lu(k,176) * lu(k,1175) - lu(k,1215) = lu(k,1215) - lu(k,177) * lu(k,1175) - lu(k,1217) = lu(k,1217) - lu(k,178) * lu(k,1175) - lu(k,2041) = lu(k,2041) - lu(k,174) * lu(k,2037) - lu(k,2067) = lu(k,2067) - lu(k,175) * lu(k,2037) - lu(k,2071) = lu(k,2071) - lu(k,176) * lu(k,2037) - lu(k,2088) = - lu(k,177) * lu(k,2037) - lu(k,2090) = lu(k,2090) - lu(k,178) * lu(k,2037) + lu(k,1049) = - lu(k,174) * lu(k,1042) + lu(k,1060) = lu(k,1060) - lu(k,175) * lu(k,1042) + lu(k,1073) = lu(k,1073) - lu(k,176) * lu(k,1042) + lu(k,1081) = lu(k,1081) - lu(k,177) * lu(k,1042) + lu(k,1083) = lu(k,1083) - lu(k,178) * lu(k,1042) + lu(k,1177) = - lu(k,174) * lu(k,1176) + lu(k,1195) = lu(k,1195) - lu(k,175) * lu(k,1176) + lu(k,1208) = - lu(k,176) * lu(k,1176) + lu(k,1216) = lu(k,1216) - lu(k,177) * lu(k,1176) + lu(k,1218) = lu(k,1218) - lu(k,178) * lu(k,1176) + lu(k,2044) = lu(k,2044) - lu(k,174) * lu(k,2040) + lu(k,2070) = lu(k,2070) - lu(k,175) * lu(k,2040) + lu(k,2083) = lu(k,2083) - lu(k,176) * lu(k,2040) + lu(k,2091) = - lu(k,177) * lu(k,2040) + lu(k,2093) = lu(k,2093) - lu(k,178) * lu(k,2040) lu(k,179) = 1._r8 / lu(k,179) lu(k,180) = lu(k,180) * lu(k,179) lu(k,181) = lu(k,181) * lu(k,179) @@ -505,24 +505,24 @@ subroutine lu_fac04( avec_len, lu ) lu(k,183) = lu(k,183) * lu(k,179) lu(k,184) = lu(k,184) * lu(k,179) lu(k,185) = lu(k,185) * lu(k,179) - lu(k,900) = lu(k,900) - lu(k,180) * lu(k,888) - lu(k,901) = lu(k,901) - lu(k,181) * lu(k,888) - lu(k,908) = lu(k,908) - lu(k,182) * lu(k,888) - lu(k,913) = lu(k,913) - lu(k,183) * lu(k,888) - lu(k,915) = lu(k,915) - lu(k,184) * lu(k,888) - lu(k,921) = lu(k,921) - lu(k,185) * lu(k,888) - lu(k,983) = lu(k,983) - lu(k,180) * lu(k,961) - lu(k,984) = lu(k,984) - lu(k,181) * lu(k,961) - lu(k,992) = lu(k,992) - lu(k,182) * lu(k,961) - lu(k,997) = lu(k,997) - lu(k,183) * lu(k,961) - lu(k,999) = lu(k,999) - lu(k,184) * lu(k,961) - lu(k,1005) = lu(k,1005) - lu(k,185) * lu(k,961) - lu(k,1806) = lu(k,1806) - lu(k,180) * lu(k,1787) - lu(k,1808) = lu(k,1808) - lu(k,181) * lu(k,1787) - lu(k,1818) = lu(k,1818) - lu(k,182) * lu(k,1787) - lu(k,1825) = lu(k,1825) - lu(k,183) * lu(k,1787) - lu(k,1827) = lu(k,1827) - lu(k,184) * lu(k,1787) - lu(k,1833) = lu(k,1833) - lu(k,185) * lu(k,1787) + lu(k,902) = lu(k,902) - lu(k,180) * lu(k,890) + lu(k,903) = lu(k,903) - lu(k,181) * lu(k,890) + lu(k,915) = lu(k,915) - lu(k,182) * lu(k,890) + lu(k,917) = lu(k,917) - lu(k,183) * lu(k,890) + lu(k,920) = lu(k,920) - lu(k,184) * lu(k,890) + lu(k,923) = lu(k,923) - lu(k,185) * lu(k,890) + lu(k,985) = lu(k,985) - lu(k,180) * lu(k,963) + lu(k,986) = lu(k,986) - lu(k,181) * lu(k,963) + lu(k,999) = lu(k,999) - lu(k,182) * lu(k,963) + lu(k,1001) = lu(k,1001) - lu(k,183) * lu(k,963) + lu(k,1004) = lu(k,1004) - lu(k,184) * lu(k,963) + lu(k,1007) = lu(k,1007) - lu(k,185) * lu(k,963) + lu(k,1799) = lu(k,1799) - lu(k,180) * lu(k,1780) + lu(k,1801) = lu(k,1801) - lu(k,181) * lu(k,1780) + lu(k,1818) = lu(k,1818) - lu(k,182) * lu(k,1780) + lu(k,1820) = lu(k,1820) - lu(k,183) * lu(k,1780) + lu(k,1823) = lu(k,1823) - lu(k,184) * lu(k,1780) + lu(k,1826) = lu(k,1826) - lu(k,185) * lu(k,1780) end do end subroutine lu_fac04 subroutine lu_fac05( avec_len, lu ) @@ -546,24 +546,24 @@ subroutine lu_fac05( avec_len, lu ) lu(k,190) = lu(k,190) * lu(k,186) lu(k,191) = lu(k,191) * lu(k,186) lu(k,192) = lu(k,192) * lu(k,186) - lu(k,783) = lu(k,783) - lu(k,187) * lu(k,775) - lu(k,787) = lu(k,787) - lu(k,188) * lu(k,775) - lu(k,789) = lu(k,789) - lu(k,189) * lu(k,775) - lu(k,796) = lu(k,796) - lu(k,190) * lu(k,775) - lu(k,807) = lu(k,807) - lu(k,191) * lu(k,775) - lu(k,808) = lu(k,808) - lu(k,192) * lu(k,775) - lu(k,978) = lu(k,978) - lu(k,187) * lu(k,962) - lu(k,982) = lu(k,982) - lu(k,188) * lu(k,962) - lu(k,984) = lu(k,984) - lu(k,189) * lu(k,962) - lu(k,993) = lu(k,993) - lu(k,190) * lu(k,962) - lu(k,1004) = lu(k,1004) - lu(k,191) * lu(k,962) - lu(k,1005) = lu(k,1005) - lu(k,192) * lu(k,962) - lu(k,1466) = lu(k,1466) - lu(k,187) * lu(k,1457) - lu(k,1470) = lu(k,1470) - lu(k,188) * lu(k,1457) - lu(k,1476) = lu(k,1476) - lu(k,189) * lu(k,1457) - lu(k,1487) = lu(k,1487) - lu(k,190) * lu(k,1457) - lu(k,1500) = lu(k,1500) - lu(k,191) * lu(k,1457) - lu(k,1501) = lu(k,1501) - lu(k,192) * lu(k,1457) + lu(k,785) = lu(k,785) - lu(k,187) * lu(k,777) + lu(k,789) = lu(k,789) - lu(k,188) * lu(k,777) + lu(k,791) = lu(k,791) - lu(k,189) * lu(k,777) + lu(k,796) = lu(k,796) - lu(k,190) * lu(k,777) + lu(k,809) = lu(k,809) - lu(k,191) * lu(k,777) + lu(k,810) = lu(k,810) - lu(k,192) * lu(k,777) + lu(k,980) = lu(k,980) - lu(k,187) * lu(k,964) + lu(k,984) = lu(k,984) - lu(k,188) * lu(k,964) + lu(k,986) = lu(k,986) - lu(k,189) * lu(k,964) + lu(k,993) = lu(k,993) - lu(k,190) * lu(k,964) + lu(k,1006) = lu(k,1006) - lu(k,191) * lu(k,964) + lu(k,1007) = lu(k,1007) - lu(k,192) * lu(k,964) + lu(k,1460) = lu(k,1460) - lu(k,187) * lu(k,1451) + lu(k,1464) = lu(k,1464) - lu(k,188) * lu(k,1451) + lu(k,1470) = lu(k,1470) - lu(k,189) * lu(k,1451) + lu(k,1481) = lu(k,1481) - lu(k,190) * lu(k,1451) + lu(k,1494) = lu(k,1494) - lu(k,191) * lu(k,1451) + lu(k,1495) = lu(k,1495) - lu(k,192) * lu(k,1451) lu(k,193) = 1._r8 / lu(k,193) lu(k,194) = lu(k,194) * lu(k,193) lu(k,195) = lu(k,195) * lu(k,193) @@ -571,45 +571,45 @@ subroutine lu_fac05( avec_len, lu ) lu(k,197) = lu(k,197) * lu(k,193) lu(k,198) = lu(k,198) * lu(k,193) lu(k,199) = lu(k,199) * lu(k,193) - lu(k,1042) = lu(k,1042) - lu(k,194) * lu(k,1041) - lu(k,1043) = lu(k,1043) - lu(k,195) * lu(k,1041) - lu(k,1051) = - lu(k,196) * lu(k,1041) - lu(k,1052) = lu(k,1052) - lu(k,197) * lu(k,1041) - lu(k,1065) = lu(k,1065) - lu(k,198) * lu(k,1041) - lu(k,1079) = lu(k,1079) - lu(k,199) * lu(k,1041) + lu(k,1044) = lu(k,1044) - lu(k,194) * lu(k,1043) + lu(k,1045) = lu(k,1045) - lu(k,195) * lu(k,1043) + lu(k,1052) = - lu(k,196) * lu(k,1043) + lu(k,1054) = lu(k,1054) - lu(k,197) * lu(k,1043) + lu(k,1067) = lu(k,1067) - lu(k,198) * lu(k,1043) + lu(k,1081) = lu(k,1081) - lu(k,199) * lu(k,1043) lu(k,1348) = lu(k,1348) - lu(k,194) * lu(k,1347) lu(k,1351) = lu(k,1351) - lu(k,195) * lu(k,1347) - lu(k,1357) = lu(k,1357) - lu(k,196) * lu(k,1347) + lu(k,1356) = lu(k,1356) - lu(k,196) * lu(k,1347) lu(k,1364) = lu(k,1364) - lu(k,197) * lu(k,1347) lu(k,1388) = lu(k,1388) - lu(k,198) * lu(k,1347) lu(k,1402) = lu(k,1402) - lu(k,199) * lu(k,1347) - lu(k,1407) = lu(k,1407) - lu(k,194) * lu(k,1406) - lu(k,1408) = lu(k,1408) - lu(k,195) * lu(k,1406) - lu(k,1412) = lu(k,1412) - lu(k,196) * lu(k,1406) - lu(k,1415) = lu(k,1415) - lu(k,197) * lu(k,1406) - lu(k,1437) = lu(k,1437) - lu(k,198) * lu(k,1406) - lu(k,1451) = lu(k,1451) - lu(k,199) * lu(k,1406) + lu(k,1898) = lu(k,1898) - lu(k,194) * lu(k,1897) + lu(k,1899) = lu(k,1899) - lu(k,195) * lu(k,1897) + lu(k,1902) = lu(k,1902) - lu(k,196) * lu(k,1897) + lu(k,1906) = lu(k,1906) - lu(k,197) * lu(k,1897) + lu(k,1928) = lu(k,1928) - lu(k,198) * lu(k,1897) + lu(k,1942) = lu(k,1942) - lu(k,199) * lu(k,1897) lu(k,200) = 1._r8 / lu(k,200) lu(k,201) = lu(k,201) * lu(k,200) lu(k,202) = lu(k,202) * lu(k,200) lu(k,203) = lu(k,203) * lu(k,200) lu(k,204) = lu(k,204) * lu(k,200) lu(k,205) = lu(k,205) * lu(k,200) - lu(k,1043) = lu(k,1043) - lu(k,201) * lu(k,1042) - lu(k,1052) = lu(k,1052) - lu(k,202) * lu(k,1042) - lu(k,1065) = lu(k,1065) - lu(k,203) * lu(k,1042) - lu(k,1066) = lu(k,1066) - lu(k,204) * lu(k,1042) - lu(k,1070) = lu(k,1070) - lu(k,205) * lu(k,1042) + lu(k,1045) = lu(k,1045) - lu(k,201) * lu(k,1044) + lu(k,1054) = lu(k,1054) - lu(k,202) * lu(k,1044) + lu(k,1067) = lu(k,1067) - lu(k,203) * lu(k,1044) + lu(k,1072) = lu(k,1072) - lu(k,204) * lu(k,1044) + lu(k,1080) = lu(k,1080) - lu(k,205) * lu(k,1044) lu(k,1351) = lu(k,1351) - lu(k,201) * lu(k,1348) lu(k,1364) = lu(k,1364) - lu(k,202) * lu(k,1348) lu(k,1388) = lu(k,1388) - lu(k,203) * lu(k,1348) - lu(k,1389) = lu(k,1389) - lu(k,204) * lu(k,1348) - lu(k,1393) = lu(k,1393) - lu(k,205) * lu(k,1348) - lu(k,1408) = lu(k,1408) - lu(k,201) * lu(k,1407) - lu(k,1415) = lu(k,1415) - lu(k,202) * lu(k,1407) - lu(k,1437) = lu(k,1437) - lu(k,203) * lu(k,1407) - lu(k,1438) = lu(k,1438) - lu(k,204) * lu(k,1407) - lu(k,1442) = lu(k,1442) - lu(k,205) * lu(k,1407) + lu(k,1393) = lu(k,1393) - lu(k,204) * lu(k,1348) + lu(k,1401) = lu(k,1401) - lu(k,205) * lu(k,1348) + lu(k,1899) = lu(k,1899) - lu(k,201) * lu(k,1898) + lu(k,1906) = lu(k,1906) - lu(k,202) * lu(k,1898) + lu(k,1928) = lu(k,1928) - lu(k,203) * lu(k,1898) + lu(k,1933) = lu(k,1933) - lu(k,204) * lu(k,1898) + lu(k,1941) = lu(k,1941) - lu(k,205) * lu(k,1898) lu(k,206) = 1._r8 / lu(k,206) lu(k,207) = lu(k,207) * lu(k,206) lu(k,208) = lu(k,208) * lu(k,206) @@ -618,27 +618,27 @@ subroutine lu_fac05( avec_len, lu ) lu(k,211) = lu(k,211) * lu(k,206) lu(k,212) = lu(k,212) * lu(k,206) lu(k,213) = lu(k,213) * lu(k,206) - lu(k,711) = lu(k,711) - lu(k,207) * lu(k,710) - lu(k,714) = lu(k,714) - lu(k,208) * lu(k,710) - lu(k,715) = lu(k,715) - lu(k,209) * lu(k,710) - lu(k,722) = lu(k,722) - lu(k,210) * lu(k,710) - lu(k,725) = - lu(k,211) * lu(k,710) - lu(k,726) = - lu(k,212) * lu(k,710) - lu(k,728) = lu(k,728) - lu(k,213) * lu(k,710) - lu(k,1356) = lu(k,1356) - lu(k,207) * lu(k,1349) + lu(k,713) = lu(k,713) - lu(k,207) * lu(k,712) + lu(k,716) = lu(k,716) - lu(k,208) * lu(k,712) + lu(k,717) = lu(k,717) - lu(k,209) * lu(k,712) + lu(k,724) = lu(k,724) - lu(k,210) * lu(k,712) + lu(k,726) = - lu(k,211) * lu(k,712) + lu(k,728) = - lu(k,212) * lu(k,712) + lu(k,730) = lu(k,730) - lu(k,213) * lu(k,712) + lu(k,1355) = lu(k,1355) - lu(k,207) * lu(k,1349) lu(k,1368) = lu(k,1368) - lu(k,208) * lu(k,1349) lu(k,1371) = lu(k,1371) - lu(k,209) * lu(k,1349) lu(k,1388) = lu(k,1388) - lu(k,210) * lu(k,1349) lu(k,1391) = - lu(k,211) * lu(k,1349) lu(k,1396) = lu(k,1396) - lu(k,212) * lu(k,1349) lu(k,1398) = lu(k,1398) - lu(k,213) * lu(k,1349) - lu(k,1789) = - lu(k,207) * lu(k,1788) - lu(k,1795) = - lu(k,208) * lu(k,1788) - lu(k,1801) = lu(k,1801) - lu(k,209) * lu(k,1788) - lu(k,1817) = lu(k,1817) - lu(k,210) * lu(k,1788) - lu(k,1820) = lu(k,1820) - lu(k,211) * lu(k,1788) - lu(k,1825) = lu(k,1825) - lu(k,212) * lu(k,1788) - lu(k,1827) = lu(k,1827) - lu(k,213) * lu(k,1788) + lu(k,1782) = - lu(k,207) * lu(k,1781) + lu(k,1788) = - lu(k,208) * lu(k,1781) + lu(k,1794) = lu(k,1794) - lu(k,209) * lu(k,1781) + lu(k,1810) = lu(k,1810) - lu(k,210) * lu(k,1781) + lu(k,1813) = lu(k,1813) - lu(k,211) * lu(k,1781) + lu(k,1818) = lu(k,1818) - lu(k,212) * lu(k,1781) + lu(k,1820) = lu(k,1820) - lu(k,213) * lu(k,1781) lu(k,214) = 1._r8 / lu(k,214) lu(k,215) = lu(k,215) * lu(k,214) lu(k,216) = lu(k,216) * lu(k,214) @@ -646,30 +646,30 @@ subroutine lu_fac05( avec_len, lu ) lu(k,218) = lu(k,218) * lu(k,214) lu(k,219) = lu(k,219) * lu(k,214) lu(k,220) = lu(k,220) * lu(k,214) - lu(k,900) = lu(k,900) - lu(k,215) * lu(k,889) - lu(k,901) = lu(k,901) - lu(k,216) * lu(k,889) - lu(k,907) = lu(k,907) - lu(k,217) * lu(k,889) - lu(k,909) = lu(k,909) - lu(k,218) * lu(k,889) - lu(k,920) = lu(k,920) - lu(k,219) * lu(k,889) - lu(k,921) = lu(k,921) - lu(k,220) * lu(k,889) - lu(k,983) = lu(k,983) - lu(k,215) * lu(k,963) - lu(k,984) = lu(k,984) - lu(k,216) * lu(k,963) - lu(k,991) = lu(k,991) - lu(k,217) * lu(k,963) - lu(k,993) = lu(k,993) - lu(k,218) * lu(k,963) - lu(k,1004) = lu(k,1004) - lu(k,219) * lu(k,963) - lu(k,1005) = lu(k,1005) - lu(k,220) * lu(k,963) + lu(k,902) = lu(k,902) - lu(k,215) * lu(k,891) + lu(k,903) = lu(k,903) - lu(k,216) * lu(k,891) + lu(k,908) = lu(k,908) - lu(k,217) * lu(k,891) + lu(k,909) = lu(k,909) - lu(k,218) * lu(k,891) + lu(k,922) = lu(k,922) - lu(k,219) * lu(k,891) + lu(k,923) = lu(k,923) - lu(k,220) * lu(k,891) + lu(k,985) = lu(k,985) - lu(k,215) * lu(k,965) + lu(k,986) = lu(k,986) - lu(k,216) * lu(k,965) + lu(k,992) = lu(k,992) - lu(k,217) * lu(k,965) + lu(k,993) = lu(k,993) - lu(k,218) * lu(k,965) + lu(k,1006) = lu(k,1006) - lu(k,219) * lu(k,965) + lu(k,1007) = lu(k,1007) - lu(k,220) * lu(k,965) lu(k,1377) = lu(k,1377) - lu(k,215) * lu(k,1350) lu(k,1379) = lu(k,1379) - lu(k,216) * lu(k,1350) lu(k,1388) = lu(k,1388) - lu(k,217) * lu(k,1350) lu(k,1390) = lu(k,1390) - lu(k,218) * lu(k,1350) lu(k,1403) = lu(k,1403) - lu(k,219) * lu(k,1350) lu(k,1404) = - lu(k,220) * lu(k,1350) - lu(k,1474) = lu(k,1474) - lu(k,215) * lu(k,1458) - lu(k,1476) = lu(k,1476) - lu(k,216) * lu(k,1458) - lu(k,1485) = lu(k,1485) - lu(k,217) * lu(k,1458) - lu(k,1487) = lu(k,1487) - lu(k,218) * lu(k,1458) - lu(k,1500) = lu(k,1500) - lu(k,219) * lu(k,1458) - lu(k,1501) = lu(k,1501) - lu(k,220) * lu(k,1458) + lu(k,1468) = lu(k,1468) - lu(k,215) * lu(k,1452) + lu(k,1470) = lu(k,1470) - lu(k,216) * lu(k,1452) + lu(k,1479) = lu(k,1479) - lu(k,217) * lu(k,1452) + lu(k,1481) = lu(k,1481) - lu(k,218) * lu(k,1452) + lu(k,1494) = lu(k,1494) - lu(k,219) * lu(k,1452) + lu(k,1495) = lu(k,1495) - lu(k,220) * lu(k,1452) lu(k,221) = 1._r8 / lu(k,221) lu(k,222) = lu(k,222) * lu(k,221) lu(k,223) = lu(k,223) * lu(k,221) @@ -679,30 +679,30 @@ subroutine lu_fac05( avec_len, lu ) lu(k,227) = lu(k,227) * lu(k,221) lu(k,228) = lu(k,228) * lu(k,221) lu(k,229) = lu(k,229) * lu(k,221) - lu(k,781) = lu(k,781) - lu(k,222) * lu(k,776) - lu(k,783) = lu(k,783) - lu(k,223) * lu(k,776) - lu(k,787) = lu(k,787) - lu(k,224) * lu(k,776) - lu(k,788) = lu(k,788) - lu(k,225) * lu(k,776) - lu(k,789) = lu(k,789) - lu(k,226) * lu(k,776) - lu(k,796) = lu(k,796) - lu(k,227) * lu(k,776) - lu(k,807) = lu(k,807) - lu(k,228) * lu(k,776) - lu(k,808) = lu(k,808) - lu(k,229) * lu(k,776) - lu(k,975) = lu(k,975) - lu(k,222) * lu(k,964) - lu(k,978) = lu(k,978) - lu(k,223) * lu(k,964) - lu(k,982) = lu(k,982) - lu(k,224) * lu(k,964) - lu(k,983) = lu(k,983) - lu(k,225) * lu(k,964) - lu(k,984) = lu(k,984) - lu(k,226) * lu(k,964) - lu(k,993) = lu(k,993) - lu(k,227) * lu(k,964) - lu(k,1004) = lu(k,1004) - lu(k,228) * lu(k,964) - lu(k,1005) = lu(k,1005) - lu(k,229) * lu(k,964) - lu(k,1465) = lu(k,1465) - lu(k,222) * lu(k,1459) - lu(k,1466) = lu(k,1466) - lu(k,223) * lu(k,1459) - lu(k,1470) = lu(k,1470) - lu(k,224) * lu(k,1459) - lu(k,1474) = lu(k,1474) - lu(k,225) * lu(k,1459) - lu(k,1476) = lu(k,1476) - lu(k,226) * lu(k,1459) - lu(k,1487) = lu(k,1487) - lu(k,227) * lu(k,1459) - lu(k,1500) = lu(k,1500) - lu(k,228) * lu(k,1459) - lu(k,1501) = lu(k,1501) - lu(k,229) * lu(k,1459) + lu(k,783) = lu(k,783) - lu(k,222) * lu(k,778) + lu(k,785) = lu(k,785) - lu(k,223) * lu(k,778) + lu(k,789) = lu(k,789) - lu(k,224) * lu(k,778) + lu(k,790) = lu(k,790) - lu(k,225) * lu(k,778) + lu(k,791) = lu(k,791) - lu(k,226) * lu(k,778) + lu(k,796) = lu(k,796) - lu(k,227) * lu(k,778) + lu(k,809) = lu(k,809) - lu(k,228) * lu(k,778) + lu(k,810) = lu(k,810) - lu(k,229) * lu(k,778) + lu(k,977) = lu(k,977) - lu(k,222) * lu(k,966) + lu(k,980) = lu(k,980) - lu(k,223) * lu(k,966) + lu(k,984) = lu(k,984) - lu(k,224) * lu(k,966) + lu(k,985) = lu(k,985) - lu(k,225) * lu(k,966) + lu(k,986) = lu(k,986) - lu(k,226) * lu(k,966) + lu(k,993) = lu(k,993) - lu(k,227) * lu(k,966) + lu(k,1006) = lu(k,1006) - lu(k,228) * lu(k,966) + lu(k,1007) = lu(k,1007) - lu(k,229) * lu(k,966) + lu(k,1459) = lu(k,1459) - lu(k,222) * lu(k,1453) + lu(k,1460) = lu(k,1460) - lu(k,223) * lu(k,1453) + lu(k,1464) = lu(k,1464) - lu(k,224) * lu(k,1453) + lu(k,1468) = lu(k,1468) - lu(k,225) * lu(k,1453) + lu(k,1470) = lu(k,1470) - lu(k,226) * lu(k,1453) + lu(k,1481) = lu(k,1481) - lu(k,227) * lu(k,1453) + lu(k,1494) = lu(k,1494) - lu(k,228) * lu(k,1453) + lu(k,1495) = lu(k,1495) - lu(k,229) * lu(k,1453) end do end subroutine lu_fac05 subroutine lu_fac06( avec_len, lu ) @@ -728,30 +728,30 @@ subroutine lu_fac06( avec_len, lu ) lu(k,236) = lu(k,236) * lu(k,230) lu(k,237) = lu(k,237) * lu(k,230) lu(k,238) = lu(k,238) * lu(k,230) - lu(k,1050) = lu(k,1050) - lu(k,231) * lu(k,1043) - lu(k,1052) = lu(k,1052) - lu(k,232) * lu(k,1043) - lu(k,1053) = lu(k,1053) - lu(k,233) * lu(k,1043) - lu(k,1058) = lu(k,1058) - lu(k,234) * lu(k,1043) - lu(k,1060) = lu(k,1060) - lu(k,235) * lu(k,1043) - lu(k,1065) = lu(k,1065) - lu(k,236) * lu(k,1043) - lu(k,1066) = lu(k,1066) - lu(k,237) * lu(k,1043) - lu(k,1070) = lu(k,1070) - lu(k,238) * lu(k,1043) - lu(k,1355) = lu(k,1355) - lu(k,231) * lu(k,1351) + lu(k,1053) = lu(k,1053) - lu(k,231) * lu(k,1045) + lu(k,1054) = lu(k,1054) - lu(k,232) * lu(k,1045) + lu(k,1055) = lu(k,1055) - lu(k,233) * lu(k,1045) + lu(k,1060) = lu(k,1060) - lu(k,234) * lu(k,1045) + lu(k,1062) = lu(k,1062) - lu(k,235) * lu(k,1045) + lu(k,1067) = lu(k,1067) - lu(k,236) * lu(k,1045) + lu(k,1072) = lu(k,1072) - lu(k,237) * lu(k,1045) + lu(k,1080) = lu(k,1080) - lu(k,238) * lu(k,1045) + lu(k,1359) = lu(k,1359) - lu(k,231) * lu(k,1351) lu(k,1364) = lu(k,1364) - lu(k,232) * lu(k,1351) lu(k,1365) = lu(k,1365) - lu(k,233) * lu(k,1351) lu(k,1381) = lu(k,1381) - lu(k,234) * lu(k,1351) lu(k,1383) = lu(k,1383) - lu(k,235) * lu(k,1351) lu(k,1388) = lu(k,1388) - lu(k,236) * lu(k,1351) - lu(k,1389) = lu(k,1389) - lu(k,237) * lu(k,1351) - lu(k,1393) = lu(k,1393) - lu(k,238) * lu(k,1351) - lu(k,1411) = lu(k,1411) - lu(k,231) * lu(k,1408) - lu(k,1415) = lu(k,1415) - lu(k,232) * lu(k,1408) - lu(k,1416) = lu(k,1416) - lu(k,233) * lu(k,1408) - lu(k,1430) = lu(k,1430) - lu(k,234) * lu(k,1408) - lu(k,1432) = lu(k,1432) - lu(k,235) * lu(k,1408) - lu(k,1437) = lu(k,1437) - lu(k,236) * lu(k,1408) - lu(k,1438) = lu(k,1438) - lu(k,237) * lu(k,1408) - lu(k,1442) = lu(k,1442) - lu(k,238) * lu(k,1408) + lu(k,1393) = lu(k,1393) - lu(k,237) * lu(k,1351) + lu(k,1401) = lu(k,1401) - lu(k,238) * lu(k,1351) + lu(k,1903) = lu(k,1903) - lu(k,231) * lu(k,1899) + lu(k,1906) = lu(k,1906) - lu(k,232) * lu(k,1899) + lu(k,1907) = lu(k,1907) - lu(k,233) * lu(k,1899) + lu(k,1921) = lu(k,1921) - lu(k,234) * lu(k,1899) + lu(k,1923) = lu(k,1923) - lu(k,235) * lu(k,1899) + lu(k,1928) = lu(k,1928) - lu(k,236) * lu(k,1899) + lu(k,1933) = lu(k,1933) - lu(k,237) * lu(k,1899) + lu(k,1941) = lu(k,1941) - lu(k,238) * lu(k,1899) lu(k,239) = 1._r8 / lu(k,239) lu(k,240) = lu(k,240) * lu(k,239) lu(k,241) = lu(k,241) * lu(k,239) @@ -759,30 +759,30 @@ subroutine lu_fac06( avec_len, lu ) lu(k,243) = lu(k,243) * lu(k,239) lu(k,244) = lu(k,244) * lu(k,239) lu(k,245) = lu(k,245) * lu(k,239) - lu(k,1271) = lu(k,1271) - lu(k,240) * lu(k,1262) - lu(k,1273) = lu(k,1273) - lu(k,241) * lu(k,1262) - lu(k,1284) = lu(k,1284) - lu(k,242) * lu(k,1262) - lu(k,1286) = lu(k,1286) - lu(k,243) * lu(k,1262) - lu(k,1287) = lu(k,1287) - lu(k,244) * lu(k,1262) - lu(k,1290) = lu(k,1290) - lu(k,245) * lu(k,1262) lu(k,1369) = lu(k,1369) - lu(k,240) * lu(k,1352) lu(k,1375) = lu(k,1375) - lu(k,241) * lu(k,1352) - lu(k,1386) = lu(k,1386) - lu(k,242) * lu(k,1352) - lu(k,1388) = lu(k,1388) - lu(k,243) * lu(k,1352) - lu(k,1389) = lu(k,1389) - lu(k,244) * lu(k,1352) - lu(k,1392) = lu(k,1392) - lu(k,245) * lu(k,1352) - lu(k,1420) = lu(k,1420) - lu(k,240) * lu(k,1409) - lu(k,1424) = - lu(k,241) * lu(k,1409) - lu(k,1435) = lu(k,1435) - lu(k,242) * lu(k,1409) - lu(k,1437) = lu(k,1437) - lu(k,243) * lu(k,1409) - lu(k,1438) = lu(k,1438) - lu(k,244) * lu(k,1409) - lu(k,1441) = lu(k,1441) - lu(k,245) * lu(k,1409) - lu(k,1547) = lu(k,1547) - lu(k,240) * lu(k,1543) - lu(k,1549) = lu(k,1549) - lu(k,241) * lu(k,1543) - lu(k,1560) = lu(k,1560) - lu(k,242) * lu(k,1543) - lu(k,1562) = lu(k,1562) - lu(k,243) * lu(k,1543) - lu(k,1563) = lu(k,1563) - lu(k,244) * lu(k,1543) - lu(k,1566) = lu(k,1566) - lu(k,245) * lu(k,1543) + lu(k,1388) = lu(k,1388) - lu(k,242) * lu(k,1352) + lu(k,1392) = lu(k,1392) - lu(k,243) * lu(k,1352) + lu(k,1395) = lu(k,1395) - lu(k,244) * lu(k,1352) + lu(k,1401) = lu(k,1401) - lu(k,245) * lu(k,1352) + lu(k,1541) = lu(k,1541) - lu(k,240) * lu(k,1537) + lu(k,1543) = lu(k,1543) - lu(k,241) * lu(k,1537) + lu(k,1556) = lu(k,1556) - lu(k,242) * lu(k,1537) + lu(k,1560) = lu(k,1560) - lu(k,243) * lu(k,1537) + lu(k,1563) = lu(k,1563) - lu(k,244) * lu(k,1537) + lu(k,1569) = lu(k,1569) - lu(k,245) * lu(k,1537) + lu(k,1671) = lu(k,1671) - lu(k,240) * lu(k,1662) + lu(k,1673) = lu(k,1673) - lu(k,241) * lu(k,1662) + lu(k,1686) = lu(k,1686) - lu(k,242) * lu(k,1662) + lu(k,1690) = lu(k,1690) - lu(k,243) * lu(k,1662) + lu(k,1693) = lu(k,1693) - lu(k,244) * lu(k,1662) + lu(k,1699) = lu(k,1699) - lu(k,245) * lu(k,1662) + lu(k,1911) = lu(k,1911) - lu(k,240) * lu(k,1900) + lu(k,1915) = - lu(k,241) * lu(k,1900) + lu(k,1928) = lu(k,1928) - lu(k,242) * lu(k,1900) + lu(k,1932) = lu(k,1932) - lu(k,243) * lu(k,1900) + lu(k,1935) = lu(k,1935) - lu(k,244) * lu(k,1900) + lu(k,1941) = lu(k,1941) - lu(k,245) * lu(k,1900) lu(k,246) = 1._r8 / lu(k,246) lu(k,247) = lu(k,247) * lu(k,246) lu(k,248) = lu(k,248) * lu(k,246) @@ -796,55 +796,55 @@ subroutine lu_fac06( avec_len, lu ) lu(k,288) = lu(k,288) - lu(k,251) * lu(k,283) lu(k,291) = lu(k,291) - lu(k,247) * lu(k,290) lu(k,294) = lu(k,294) - lu(k,248) * lu(k,290) - lu(k,295) = - lu(k,249) * lu(k,290) - lu(k,298) = lu(k,298) - lu(k,250) * lu(k,290) + lu(k,296) = - lu(k,249) * lu(k,290) + lu(k,297) = lu(k,297) - lu(k,250) * lu(k,290) lu(k,299) = lu(k,299) - lu(k,251) * lu(k,290) - lu(k,1048) = lu(k,1048) - lu(k,247) * lu(k,1044) - lu(k,1058) = lu(k,1058) - lu(k,248) * lu(k,1044) - lu(k,1062) = lu(k,1062) - lu(k,249) * lu(k,1044) - lu(k,1074) = lu(k,1074) - lu(k,250) * lu(k,1044) - lu(k,1081) = lu(k,1081) - lu(k,251) * lu(k,1044) - lu(k,1219) = - lu(k,247) * lu(k,1218) - lu(k,1237) = lu(k,1237) - lu(k,248) * lu(k,1218) - lu(k,1241) = lu(k,1241) - lu(k,249) * lu(k,1218) - lu(k,1253) = lu(k,1253) - lu(k,250) * lu(k,1218) - lu(k,1260) = lu(k,1260) - lu(k,251) * lu(k,1218) - lu(k,2042) = lu(k,2042) - lu(k,247) * lu(k,2038) - lu(k,2067) = lu(k,2067) - lu(k,248) * lu(k,2038) - lu(k,2071) = lu(k,2071) - lu(k,249) * lu(k,2038) - lu(k,2083) = lu(k,2083) - lu(k,250) * lu(k,2038) - lu(k,2090) = lu(k,2090) - lu(k,251) * lu(k,2038) + lu(k,1050) = lu(k,1050) - lu(k,247) * lu(k,1046) + lu(k,1060) = lu(k,1060) - lu(k,248) * lu(k,1046) + lu(k,1073) = lu(k,1073) - lu(k,249) * lu(k,1046) + lu(k,1076) = lu(k,1076) - lu(k,250) * lu(k,1046) + lu(k,1083) = lu(k,1083) - lu(k,251) * lu(k,1046) + lu(k,1619) = - lu(k,247) * lu(k,1618) + lu(k,1637) = lu(k,1637) - lu(k,248) * lu(k,1618) + lu(k,1650) = lu(k,1650) - lu(k,249) * lu(k,1618) + lu(k,1653) = lu(k,1653) - lu(k,250) * lu(k,1618) + lu(k,1660) = lu(k,1660) - lu(k,251) * lu(k,1618) + lu(k,2045) = lu(k,2045) - lu(k,247) * lu(k,2041) + lu(k,2070) = lu(k,2070) - lu(k,248) * lu(k,2041) + lu(k,2083) = lu(k,2083) - lu(k,249) * lu(k,2041) + lu(k,2086) = lu(k,2086) - lu(k,250) * lu(k,2041) + lu(k,2093) = lu(k,2093) - lu(k,251) * lu(k,2041) lu(k,252) = 1._r8 / lu(k,252) lu(k,253) = lu(k,253) * lu(k,252) lu(k,254) = lu(k,254) * lu(k,252) lu(k,255) = lu(k,255) * lu(k,252) - lu(k,391) = - lu(k,253) * lu(k,385) - lu(k,392) = - lu(k,254) * lu(k,385) - lu(k,394) = lu(k,394) - lu(k,255) * lu(k,385) - lu(k,421) = lu(k,421) - lu(k,253) * lu(k,414) - lu(k,422) = lu(k,422) - lu(k,254) * lu(k,414) - lu(k,423) = lu(k,423) - lu(k,255) * lu(k,414) - lu(k,586) = lu(k,586) - lu(k,253) * lu(k,580) - lu(k,587) = - lu(k,254) * lu(k,580) - lu(k,588) = - lu(k,255) * lu(k,580) - lu(k,740) = lu(k,740) - lu(k,253) * lu(k,733) - lu(k,741) = lu(k,741) - lu(k,254) * lu(k,733) - lu(k,744) = - lu(k,255) * lu(k,733) - lu(k,983) = lu(k,983) - lu(k,253) * lu(k,965) - lu(k,984) = lu(k,984) - lu(k,254) * lu(k,965) - lu(k,989) = lu(k,989) - lu(k,255) * lu(k,965) - lu(k,1275) = - lu(k,253) * lu(k,1263) - lu(k,1277) = - lu(k,254) * lu(k,1263) - lu(k,1284) = lu(k,1284) - lu(k,255) * lu(k,1263) + lu(k,407) = - lu(k,253) * lu(k,401) + lu(k,408) = - lu(k,254) * lu(k,401) + lu(k,412) = lu(k,412) - lu(k,255) * lu(k,401) + lu(k,423) = lu(k,423) - lu(k,253) * lu(k,416) + lu(k,424) = lu(k,424) - lu(k,254) * lu(k,416) + lu(k,428) = lu(k,428) - lu(k,255) * lu(k,416) + lu(k,588) = lu(k,588) - lu(k,253) * lu(k,582) + lu(k,589) = - lu(k,254) * lu(k,582) + lu(k,592) = - lu(k,255) * lu(k,582) + lu(k,742) = lu(k,742) - lu(k,253) * lu(k,735) + lu(k,743) = lu(k,743) - lu(k,254) * lu(k,735) + lu(k,750) = - lu(k,255) * lu(k,735) + lu(k,985) = lu(k,985) - lu(k,253) * lu(k,967) + lu(k,986) = lu(k,986) - lu(k,254) * lu(k,967) + lu(k,998) = lu(k,998) - lu(k,255) * lu(k,967) lu(k,1377) = lu(k,1377) - lu(k,253) * lu(k,1353) lu(k,1379) = lu(k,1379) - lu(k,254) * lu(k,1353) - lu(k,1386) = lu(k,1386) - lu(k,255) * lu(k,1353) - lu(k,1474) = lu(k,1474) - lu(k,253) * lu(k,1460) - lu(k,1476) = lu(k,1476) - lu(k,254) * lu(k,1460) - lu(k,1483) = lu(k,1483) - lu(k,255) * lu(k,1460) - lu(k,1723) = lu(k,1723) - lu(k,253) * lu(k,1711) - lu(k,1725) = lu(k,1725) - lu(k,254) * lu(k,1711) - lu(k,1731) = - lu(k,255) * lu(k,1711) + lu(k,1395) = lu(k,1395) - lu(k,255) * lu(k,1353) + lu(k,1468) = lu(k,1468) - lu(k,253) * lu(k,1454) + lu(k,1470) = lu(k,1470) - lu(k,254) * lu(k,1454) + lu(k,1486) = lu(k,1486) - lu(k,255) * lu(k,1454) + lu(k,1675) = - lu(k,253) * lu(k,1663) + lu(k,1677) = - lu(k,254) * lu(k,1663) + lu(k,1693) = lu(k,1693) - lu(k,255) * lu(k,1663) + lu(k,1716) = lu(k,1716) - lu(k,253) * lu(k,1704) + lu(k,1718) = lu(k,1718) - lu(k,254) * lu(k,1704) + lu(k,1733) = - lu(k,255) * lu(k,1704) lu(k,256) = 1._r8 / lu(k,256) lu(k,257) = lu(k,257) * lu(k,256) lu(k,258) = lu(k,258) * lu(k,256) @@ -853,34 +853,34 @@ subroutine lu_fac06( avec_len, lu ) lu(k,261) = lu(k,261) * lu(k,256) lu(k,262) = lu(k,262) * lu(k,256) lu(k,263) = lu(k,263) * lu(k,256) - lu(k,1046) = lu(k,1046) - lu(k,257) * lu(k,1045) - lu(k,1058) = lu(k,1058) - lu(k,258) * lu(k,1045) - lu(k,1060) = lu(k,1060) - lu(k,259) * lu(k,1045) - lu(k,1063) = lu(k,1063) - lu(k,260) * lu(k,1045) - lu(k,1064) = lu(k,1064) - lu(k,261) * lu(k,1045) - lu(k,1079) = lu(k,1079) - lu(k,262) * lu(k,1045) - lu(k,1081) = lu(k,1081) - lu(k,263) * lu(k,1045) - lu(k,1128) = lu(k,1128) - lu(k,257) * lu(k,1127) - lu(k,1151) = lu(k,1151) - lu(k,258) * lu(k,1127) - lu(k,1153) = lu(k,1153) - lu(k,259) * lu(k,1127) - lu(k,1156) = lu(k,1156) - lu(k,260) * lu(k,1127) - lu(k,1157) = lu(k,1157) - lu(k,261) * lu(k,1127) - lu(k,1172) = lu(k,1172) - lu(k,262) * lu(k,1127) - lu(k,1174) = lu(k,1174) - lu(k,263) * lu(k,1127) - lu(k,1265) = lu(k,1265) - lu(k,257) * lu(k,1264) - lu(k,1279) = - lu(k,258) * lu(k,1264) - lu(k,1281) = lu(k,1281) - lu(k,259) * lu(k,1264) - lu(k,1284) = lu(k,1284) - lu(k,260) * lu(k,1264) - lu(k,1285) = - lu(k,261) * lu(k,1264) - lu(k,1300) = - lu(k,262) * lu(k,1264) - lu(k,1302) = - lu(k,263) * lu(k,1264) - lu(k,2040) = lu(k,2040) - lu(k,257) * lu(k,2039) - lu(k,2067) = lu(k,2067) - lu(k,258) * lu(k,2039) - lu(k,2069) = lu(k,2069) - lu(k,259) * lu(k,2039) - lu(k,2072) = lu(k,2072) - lu(k,260) * lu(k,2039) - lu(k,2073) = lu(k,2073) - lu(k,261) * lu(k,2039) - lu(k,2088) = lu(k,2088) - lu(k,262) * lu(k,2039) - lu(k,2090) = lu(k,2090) - lu(k,263) * lu(k,2039) + lu(k,1048) = lu(k,1048) - lu(k,257) * lu(k,1047) + lu(k,1060) = lu(k,1060) - lu(k,258) * lu(k,1047) + lu(k,1062) = lu(k,1062) - lu(k,259) * lu(k,1047) + lu(k,1066) = lu(k,1066) - lu(k,260) * lu(k,1047) + lu(k,1074) = lu(k,1074) - lu(k,261) * lu(k,1047) + lu(k,1081) = lu(k,1081) - lu(k,262) * lu(k,1047) + lu(k,1083) = lu(k,1083) - lu(k,263) * lu(k,1047) + lu(k,1130) = lu(k,1130) - lu(k,257) * lu(k,1129) + lu(k,1152) = lu(k,1152) - lu(k,258) * lu(k,1129) + lu(k,1154) = lu(k,1154) - lu(k,259) * lu(k,1129) + lu(k,1158) = lu(k,1158) - lu(k,260) * lu(k,1129) + lu(k,1166) = lu(k,1166) - lu(k,261) * lu(k,1129) + lu(k,1173) = lu(k,1173) - lu(k,262) * lu(k,1129) + lu(k,1175) = lu(k,1175) - lu(k,263) * lu(k,1129) + lu(k,1665) = lu(k,1665) - lu(k,257) * lu(k,1664) + lu(k,1679) = - lu(k,258) * lu(k,1664) + lu(k,1681) = lu(k,1681) - lu(k,259) * lu(k,1664) + lu(k,1685) = - lu(k,260) * lu(k,1664) + lu(k,1693) = lu(k,1693) - lu(k,261) * lu(k,1664) + lu(k,1700) = - lu(k,262) * lu(k,1664) + lu(k,1702) = - lu(k,263) * lu(k,1664) + lu(k,2043) = lu(k,2043) - lu(k,257) * lu(k,2042) + lu(k,2070) = lu(k,2070) - lu(k,258) * lu(k,2042) + lu(k,2072) = lu(k,2072) - lu(k,259) * lu(k,2042) + lu(k,2076) = lu(k,2076) - lu(k,260) * lu(k,2042) + lu(k,2084) = lu(k,2084) - lu(k,261) * lu(k,2042) + lu(k,2091) = lu(k,2091) - lu(k,262) * lu(k,2042) + lu(k,2093) = lu(k,2093) - lu(k,263) * lu(k,2042) lu(k,264) = 1._r8 / lu(k,264) lu(k,265) = lu(k,265) * lu(k,264) lu(k,266) = lu(k,266) * lu(k,264) @@ -888,30 +888,30 @@ subroutine lu_fac06( avec_len, lu ) lu(k,268) = lu(k,268) * lu(k,264) lu(k,269) = lu(k,269) * lu(k,264) lu(k,270) = lu(k,270) * lu(k,264) - lu(k,1058) = lu(k,1058) - lu(k,265) * lu(k,1046) - lu(k,1060) = lu(k,1060) - lu(k,266) * lu(k,1046) - lu(k,1063) = lu(k,1063) - lu(k,267) * lu(k,1046) - lu(k,1064) = lu(k,1064) - lu(k,268) * lu(k,1046) - lu(k,1079) = lu(k,1079) - lu(k,269) * lu(k,1046) - lu(k,1081) = lu(k,1081) - lu(k,270) * lu(k,1046) - lu(k,1151) = lu(k,1151) - lu(k,265) * lu(k,1128) - lu(k,1153) = lu(k,1153) - lu(k,266) * lu(k,1128) - lu(k,1156) = lu(k,1156) - lu(k,267) * lu(k,1128) - lu(k,1157) = lu(k,1157) - lu(k,268) * lu(k,1128) - lu(k,1172) = lu(k,1172) - lu(k,269) * lu(k,1128) - lu(k,1174) = lu(k,1174) - lu(k,270) * lu(k,1128) - lu(k,1279) = lu(k,1279) - lu(k,265) * lu(k,1265) - lu(k,1281) = lu(k,1281) - lu(k,266) * lu(k,1265) - lu(k,1284) = lu(k,1284) - lu(k,267) * lu(k,1265) - lu(k,1285) = lu(k,1285) - lu(k,268) * lu(k,1265) - lu(k,1300) = lu(k,1300) - lu(k,269) * lu(k,1265) - lu(k,1302) = lu(k,1302) - lu(k,270) * lu(k,1265) - lu(k,2067) = lu(k,2067) - lu(k,265) * lu(k,2040) - lu(k,2069) = lu(k,2069) - lu(k,266) * lu(k,2040) - lu(k,2072) = lu(k,2072) - lu(k,267) * lu(k,2040) - lu(k,2073) = lu(k,2073) - lu(k,268) * lu(k,2040) - lu(k,2088) = lu(k,2088) - lu(k,269) * lu(k,2040) - lu(k,2090) = lu(k,2090) - lu(k,270) * lu(k,2040) + lu(k,1060) = lu(k,1060) - lu(k,265) * lu(k,1048) + lu(k,1062) = lu(k,1062) - lu(k,266) * lu(k,1048) + lu(k,1066) = lu(k,1066) - lu(k,267) * lu(k,1048) + lu(k,1074) = lu(k,1074) - lu(k,268) * lu(k,1048) + lu(k,1081) = lu(k,1081) - lu(k,269) * lu(k,1048) + lu(k,1083) = lu(k,1083) - lu(k,270) * lu(k,1048) + lu(k,1152) = lu(k,1152) - lu(k,265) * lu(k,1130) + lu(k,1154) = lu(k,1154) - lu(k,266) * lu(k,1130) + lu(k,1158) = lu(k,1158) - lu(k,267) * lu(k,1130) + lu(k,1166) = lu(k,1166) - lu(k,268) * lu(k,1130) + lu(k,1173) = lu(k,1173) - lu(k,269) * lu(k,1130) + lu(k,1175) = lu(k,1175) - lu(k,270) * lu(k,1130) + lu(k,1679) = lu(k,1679) - lu(k,265) * lu(k,1665) + lu(k,1681) = lu(k,1681) - lu(k,266) * lu(k,1665) + lu(k,1685) = lu(k,1685) - lu(k,267) * lu(k,1665) + lu(k,1693) = lu(k,1693) - lu(k,268) * lu(k,1665) + lu(k,1700) = lu(k,1700) - lu(k,269) * lu(k,1665) + lu(k,1702) = lu(k,1702) - lu(k,270) * lu(k,1665) + lu(k,2070) = lu(k,2070) - lu(k,265) * lu(k,2043) + lu(k,2072) = lu(k,2072) - lu(k,266) * lu(k,2043) + lu(k,2076) = lu(k,2076) - lu(k,267) * lu(k,2043) + lu(k,2084) = lu(k,2084) - lu(k,268) * lu(k,2043) + lu(k,2091) = lu(k,2091) - lu(k,269) * lu(k,2043) + lu(k,2093) = lu(k,2093) - lu(k,270) * lu(k,2043) end do end subroutine lu_fac06 subroutine lu_fac07( avec_len, lu ) @@ -935,110 +935,110 @@ subroutine lu_fac07( avec_len, lu ) lu(k,275) = lu(k,275) * lu(k,271) lu(k,276) = lu(k,276) * lu(k,271) lu(k,277) = lu(k,277) * lu(k,271) - lu(k,476) = lu(k,476) - lu(k,272) * lu(k,474) - lu(k,480) = lu(k,480) - lu(k,273) * lu(k,474) - lu(k,482) = lu(k,482) - lu(k,274) * lu(k,474) - lu(k,483) = lu(k,483) - lu(k,275) * lu(k,474) - lu(k,485) = lu(k,485) - lu(k,276) * lu(k,474) - lu(k,487) = lu(k,487) - lu(k,277) * lu(k,474) - lu(k,977) = lu(k,977) - lu(k,272) * lu(k,966) - lu(k,984) = lu(k,984) - lu(k,273) * lu(k,966) - lu(k,991) = lu(k,991) - lu(k,274) * lu(k,966) - lu(k,992) = lu(k,992) - lu(k,275) * lu(k,966) - lu(k,998) = lu(k,998) - lu(k,276) * lu(k,966) - lu(k,1002) = lu(k,1002) - lu(k,277) * lu(k,966) + lu(k,478) = lu(k,478) - lu(k,272) * lu(k,476) + lu(k,482) = lu(k,482) - lu(k,273) * lu(k,476) + lu(k,484) = lu(k,484) - lu(k,274) * lu(k,476) + lu(k,485) = lu(k,485) - lu(k,275) * lu(k,476) + lu(k,487) = lu(k,487) - lu(k,276) * lu(k,476) + lu(k,489) = lu(k,489) - lu(k,277) * lu(k,476) + lu(k,979) = lu(k,979) - lu(k,272) * lu(k,968) + lu(k,986) = lu(k,986) - lu(k,273) * lu(k,968) + lu(k,990) = lu(k,990) - lu(k,274) * lu(k,968) + lu(k,992) = lu(k,992) - lu(k,275) * lu(k,968) + lu(k,1000) = lu(k,1000) - lu(k,276) * lu(k,968) + lu(k,1004) = lu(k,1004) - lu(k,277) * lu(k,968) + lu(k,1224) = lu(k,1224) - lu(k,272) * lu(k,1220) + lu(k,1234) = lu(k,1234) - lu(k,273) * lu(k,1220) + lu(k,1240) = lu(k,1240) - lu(k,274) * lu(k,1220) + lu(k,1243) = lu(k,1243) - lu(k,275) * lu(k,1220) + lu(k,1252) = lu(k,1252) - lu(k,276) * lu(k,1220) + lu(k,1256) = lu(k,1256) - lu(k,277) * lu(k,1220) lu(k,1367) = lu(k,1367) - lu(k,272) * lu(k,1354) lu(k,1379) = lu(k,1379) - lu(k,273) * lu(k,1354) - lu(k,1388) = lu(k,1388) - lu(k,274) * lu(k,1354) - lu(k,1389) = lu(k,1389) - lu(k,275) * lu(k,1354) + lu(k,1385) = lu(k,1385) - lu(k,274) * lu(k,1354) + lu(k,1388) = lu(k,1388) - lu(k,275) * lu(k,1354) lu(k,1397) = lu(k,1397) - lu(k,276) * lu(k,1354) lu(k,1401) = lu(k,1401) - lu(k,277) * lu(k,1354) - lu(k,1418) = lu(k,1418) - lu(k,272) * lu(k,1410) - lu(k,1428) = - lu(k,273) * lu(k,1410) - lu(k,1437) = lu(k,1437) - lu(k,274) * lu(k,1410) - lu(k,1438) = lu(k,1438) - lu(k,275) * lu(k,1410) - lu(k,1446) = lu(k,1446) - lu(k,276) * lu(k,1410) - lu(k,1450) = lu(k,1450) - lu(k,277) * lu(k,1410) - lu(k,1908) = lu(k,1908) - lu(k,272) * lu(k,1904) - lu(k,1918) = lu(k,1918) - lu(k,273) * lu(k,1904) - lu(k,1927) = lu(k,1927) - lu(k,274) * lu(k,1904) - lu(k,1928) = lu(k,1928) - lu(k,275) * lu(k,1904) - lu(k,1936) = lu(k,1936) - lu(k,276) * lu(k,1904) - lu(k,1940) = lu(k,1940) - lu(k,277) * lu(k,1904) + lu(k,1909) = lu(k,1909) - lu(k,272) * lu(k,1901) + lu(k,1919) = - lu(k,273) * lu(k,1901) + lu(k,1925) = lu(k,1925) - lu(k,274) * lu(k,1901) + lu(k,1928) = lu(k,1928) - lu(k,275) * lu(k,1901) + lu(k,1937) = lu(k,1937) - lu(k,276) * lu(k,1901) + lu(k,1941) = lu(k,1941) - lu(k,277) * lu(k,1901) lu(k,278) = 1._r8 / lu(k,278) lu(k,279) = lu(k,279) * lu(k,278) lu(k,280) = lu(k,280) * lu(k,278) lu(k,281) = lu(k,281) * lu(k,278) lu(k,282) = lu(k,282) * lu(k,278) - lu(k,927) = - lu(k,279) * lu(k,922) - lu(k,943) = lu(k,943) - lu(k,280) * lu(k,922) - lu(k,946) = lu(k,946) - lu(k,281) * lu(k,922) - lu(k,948) = lu(k,948) - lu(k,282) * lu(k,922) - lu(k,984) = lu(k,984) - lu(k,279) * lu(k,967) - lu(k,999) = lu(k,999) - lu(k,280) * lu(k,967) - lu(k,1003) = lu(k,1003) - lu(k,281) * lu(k,967) - lu(k,1005) = lu(k,1005) - lu(k,282) * lu(k,967) - lu(k,1057) = lu(k,1057) - lu(k,279) * lu(k,1047) - lu(k,1075) = - lu(k,280) * lu(k,1047) - lu(k,1079) = lu(k,1079) - lu(k,281) * lu(k,1047) - lu(k,1081) = lu(k,1081) - lu(k,282) * lu(k,1047) - lu(k,1192) = lu(k,1192) - lu(k,279) * lu(k,1176) - lu(k,1211) = lu(k,1211) - lu(k,280) * lu(k,1176) - lu(k,1215) = lu(k,1215) - lu(k,281) * lu(k,1176) - lu(k,1217) = lu(k,1217) - lu(k,282) * lu(k,1176) - lu(k,1517) = lu(k,1517) - lu(k,279) * lu(k,1503) - lu(k,1536) = lu(k,1536) - lu(k,280) * lu(k,1503) - lu(k,1540) = - lu(k,281) * lu(k,1503) - lu(k,1542) = lu(k,1542) - lu(k,282) * lu(k,1503) - lu(k,1960) = lu(k,1960) - lu(k,279) * lu(k,1944) - lu(k,1979) = lu(k,1979) - lu(k,280) * lu(k,1944) - lu(k,1983) = lu(k,1983) - lu(k,281) * lu(k,1944) - lu(k,1985) = lu(k,1985) - lu(k,282) * lu(k,1944) - lu(k,2005) = lu(k,2005) - lu(k,279) * lu(k,1988) - lu(k,2024) = - lu(k,280) * lu(k,1988) - lu(k,2028) = - lu(k,281) * lu(k,1988) - lu(k,2030) = lu(k,2030) - lu(k,282) * lu(k,1988) - lu(k,2065) = lu(k,2065) - lu(k,279) * lu(k,2041) - lu(k,2084) = - lu(k,280) * lu(k,2041) - lu(k,2088) = lu(k,2088) - lu(k,281) * lu(k,2041) - lu(k,2090) = lu(k,2090) - lu(k,282) * lu(k,2041) + lu(k,929) = - lu(k,279) * lu(k,924) + lu(k,945) = lu(k,945) - lu(k,280) * lu(k,924) + lu(k,948) = lu(k,948) - lu(k,281) * lu(k,924) + lu(k,950) = lu(k,950) - lu(k,282) * lu(k,924) + lu(k,986) = lu(k,986) - lu(k,279) * lu(k,969) + lu(k,1001) = lu(k,1001) - lu(k,280) * lu(k,969) + lu(k,1005) = lu(k,1005) - lu(k,281) * lu(k,969) + lu(k,1007) = lu(k,1007) - lu(k,282) * lu(k,969) + lu(k,1059) = lu(k,1059) - lu(k,279) * lu(k,1049) + lu(k,1077) = - lu(k,280) * lu(k,1049) + lu(k,1081) = lu(k,1081) - lu(k,281) * lu(k,1049) + lu(k,1083) = lu(k,1083) - lu(k,282) * lu(k,1049) + lu(k,1193) = lu(k,1193) - lu(k,279) * lu(k,1177) + lu(k,1212) = lu(k,1212) - lu(k,280) * lu(k,1177) + lu(k,1216) = lu(k,1216) - lu(k,281) * lu(k,1177) + lu(k,1218) = lu(k,1218) - lu(k,282) * lu(k,1177) + lu(k,1511) = lu(k,1511) - lu(k,279) * lu(k,1497) + lu(k,1530) = lu(k,1530) - lu(k,280) * lu(k,1497) + lu(k,1534) = - lu(k,281) * lu(k,1497) + lu(k,1536) = lu(k,1536) - lu(k,282) * lu(k,1497) + lu(k,1963) = lu(k,1963) - lu(k,279) * lu(k,1945) + lu(k,1982) = lu(k,1982) - lu(k,280) * lu(k,1945) + lu(k,1986) = lu(k,1986) - lu(k,281) * lu(k,1945) + lu(k,1988) = lu(k,1988) - lu(k,282) * lu(k,1945) + lu(k,2008) = lu(k,2008) - lu(k,279) * lu(k,1991) + lu(k,2027) = - lu(k,280) * lu(k,1991) + lu(k,2031) = - lu(k,281) * lu(k,1991) + lu(k,2033) = lu(k,2033) - lu(k,282) * lu(k,1991) + lu(k,2068) = lu(k,2068) - lu(k,279) * lu(k,2044) + lu(k,2087) = - lu(k,280) * lu(k,2044) + lu(k,2091) = lu(k,2091) - lu(k,281) * lu(k,2044) + lu(k,2093) = lu(k,2093) - lu(k,282) * lu(k,2044) lu(k,284) = 1._r8 / lu(k,284) lu(k,285) = lu(k,285) * lu(k,284) lu(k,286) = lu(k,286) * lu(k,284) lu(k,287) = lu(k,287) * lu(k,284) lu(k,288) = lu(k,288) * lu(k,284) lu(k,294) = lu(k,294) - lu(k,285) * lu(k,291) - lu(k,295) = lu(k,295) - lu(k,286) * lu(k,291) - lu(k,298) = lu(k,298) - lu(k,287) * lu(k,291) + lu(k,296) = lu(k,296) - lu(k,286) * lu(k,291) + lu(k,297) = lu(k,297) - lu(k,287) * lu(k,291) lu(k,299) = lu(k,299) - lu(k,288) * lu(k,291) - lu(k,902) = - lu(k,285) * lu(k,890) - lu(k,904) = - lu(k,286) * lu(k,890) - lu(k,914) = lu(k,914) - lu(k,287) * lu(k,890) - lu(k,921) = lu(k,921) - lu(k,288) * lu(k,890) - lu(k,985) = - lu(k,285) * lu(k,968) - lu(k,988) = - lu(k,286) * lu(k,968) - lu(k,998) = lu(k,998) - lu(k,287) * lu(k,968) - lu(k,1005) = lu(k,1005) - lu(k,288) * lu(k,968) - lu(k,1058) = lu(k,1058) - lu(k,285) * lu(k,1048) - lu(k,1062) = lu(k,1062) - lu(k,286) * lu(k,1048) - lu(k,1074) = lu(k,1074) - lu(k,287) * lu(k,1048) - lu(k,1081) = lu(k,1081) - lu(k,288) * lu(k,1048) - lu(k,1237) = lu(k,1237) - lu(k,285) * lu(k,1219) - lu(k,1241) = lu(k,1241) - lu(k,286) * lu(k,1219) - lu(k,1253) = lu(k,1253) - lu(k,287) * lu(k,1219) - lu(k,1260) = lu(k,1260) - lu(k,288) * lu(k,1219) + lu(k,904) = - lu(k,285) * lu(k,892) + lu(k,913) = - lu(k,286) * lu(k,892) + lu(k,916) = lu(k,916) - lu(k,287) * lu(k,892) + lu(k,923) = lu(k,923) - lu(k,288) * lu(k,892) + lu(k,987) = - lu(k,285) * lu(k,970) + lu(k,997) = - lu(k,286) * lu(k,970) + lu(k,1000) = lu(k,1000) - lu(k,287) * lu(k,970) + lu(k,1007) = lu(k,1007) - lu(k,288) * lu(k,970) + lu(k,1060) = lu(k,1060) - lu(k,285) * lu(k,1050) + lu(k,1073) = lu(k,1073) - lu(k,286) * lu(k,1050) + lu(k,1076) = lu(k,1076) - lu(k,287) * lu(k,1050) + lu(k,1083) = lu(k,1083) - lu(k,288) * lu(k,1050) lu(k,1321) = lu(k,1321) - lu(k,285) * lu(k,1303) - lu(k,1325) = - lu(k,286) * lu(k,1303) + lu(k,1334) = - lu(k,286) * lu(k,1303) lu(k,1337) = lu(k,1337) - lu(k,287) * lu(k,1303) lu(k,1344) = lu(k,1344) - lu(k,288) * lu(k,1303) - lu(k,1762) = lu(k,1762) - lu(k,285) * lu(k,1750) - lu(k,1766) = - lu(k,286) * lu(k,1750) - lu(k,1778) = lu(k,1778) - lu(k,287) * lu(k,1750) - lu(k,1785) = lu(k,1785) - lu(k,288) * lu(k,1750) - lu(k,2067) = lu(k,2067) - lu(k,285) * lu(k,2042) - lu(k,2071) = lu(k,2071) - lu(k,286) * lu(k,2042) - lu(k,2083) = lu(k,2083) - lu(k,287) * lu(k,2042) - lu(k,2090) = lu(k,2090) - lu(k,288) * lu(k,2042) + lu(k,1637) = lu(k,1637) - lu(k,285) * lu(k,1619) + lu(k,1650) = lu(k,1650) - lu(k,286) * lu(k,1619) + lu(k,1653) = lu(k,1653) - lu(k,287) * lu(k,1619) + lu(k,1660) = lu(k,1660) - lu(k,288) * lu(k,1619) + lu(k,1755) = lu(k,1755) - lu(k,285) * lu(k,1743) + lu(k,1768) = - lu(k,286) * lu(k,1743) + lu(k,1771) = lu(k,1771) - lu(k,287) * lu(k,1743) + lu(k,1778) = lu(k,1778) - lu(k,288) * lu(k,1743) + lu(k,2070) = lu(k,2070) - lu(k,285) * lu(k,2045) + lu(k,2083) = lu(k,2083) - lu(k,286) * lu(k,2045) + lu(k,2086) = lu(k,2086) - lu(k,287) * lu(k,2045) + lu(k,2093) = lu(k,2093) - lu(k,288) * lu(k,2045) lu(k,292) = 1._r8 / lu(k,292) lu(k,293) = lu(k,293) * lu(k,292) lu(k,294) = lu(k,294) * lu(k,292) @@ -1047,77 +1047,77 @@ subroutine lu_fac07( avec_len, lu ) lu(k,297) = lu(k,297) * lu(k,292) lu(k,298) = lu(k,298) * lu(k,292) lu(k,299) = lu(k,299) * lu(k,292) - lu(k,462) = - lu(k,293) * lu(k,459) - lu(k,463) = lu(k,463) - lu(k,294) * lu(k,459) - lu(k,464) = - lu(k,295) * lu(k,459) - lu(k,466) = lu(k,466) - lu(k,296) * lu(k,459) - lu(k,468) = lu(k,468) - lu(k,297) * lu(k,459) - lu(k,469) = - lu(k,298) * lu(k,459) - lu(k,472) = lu(k,472) - lu(k,299) * lu(k,459) - lu(k,1057) = lu(k,1057) - lu(k,293) * lu(k,1049) - lu(k,1058) = lu(k,1058) - lu(k,294) * lu(k,1049) - lu(k,1062) = lu(k,1062) - lu(k,295) * lu(k,1049) - lu(k,1066) = lu(k,1066) - lu(k,296) * lu(k,1049) - lu(k,1070) = lu(k,1070) - lu(k,297) * lu(k,1049) - lu(k,1074) = lu(k,1074) - lu(k,298) * lu(k,1049) - lu(k,1081) = lu(k,1081) - lu(k,299) * lu(k,1049) - lu(k,1598) = lu(k,1598) - lu(k,293) * lu(k,1579) - lu(k,1600) = lu(k,1600) - lu(k,294) * lu(k,1579) - lu(k,1604) = - lu(k,295) * lu(k,1579) - lu(k,1608) = lu(k,1608) - lu(k,296) * lu(k,1579) - lu(k,1612) = lu(k,1612) - lu(k,297) * lu(k,1579) - lu(k,1616) = - lu(k,298) * lu(k,1579) - lu(k,1623) = lu(k,1623) - lu(k,299) * lu(k,1579) - lu(k,2065) = lu(k,2065) - lu(k,293) * lu(k,2043) - lu(k,2067) = lu(k,2067) - lu(k,294) * lu(k,2043) - lu(k,2071) = lu(k,2071) - lu(k,295) * lu(k,2043) - lu(k,2075) = lu(k,2075) - lu(k,296) * lu(k,2043) - lu(k,2079) = lu(k,2079) - lu(k,297) * lu(k,2043) - lu(k,2083) = lu(k,2083) - lu(k,298) * lu(k,2043) - lu(k,2090) = lu(k,2090) - lu(k,299) * lu(k,2043) - lu(k,300) = 1._r8 / lu(k,300) - lu(k,301) = lu(k,301) * lu(k,300) - lu(k,302) = lu(k,302) * lu(k,300) - lu(k,303) = lu(k,303) * lu(k,300) - lu(k,304) = lu(k,304) * lu(k,300) - lu(k,305) = lu(k,305) * lu(k,300) - lu(k,306) = lu(k,306) * lu(k,300) - lu(k,307) = lu(k,307) * lu(k,300) - lu(k,387) = lu(k,387) - lu(k,301) * lu(k,386) - lu(k,388) = lu(k,388) - lu(k,302) * lu(k,386) - lu(k,389) = lu(k,389) - lu(k,303) * lu(k,386) - lu(k,390) = - lu(k,304) * lu(k,386) - lu(k,395) = lu(k,395) - lu(k,305) * lu(k,386) - lu(k,396) = lu(k,396) - lu(k,306) * lu(k,386) - lu(k,398) = - lu(k,307) * lu(k,386) - lu(k,1051) = lu(k,1051) - lu(k,301) * lu(k,1050) - lu(k,1052) = lu(k,1052) - lu(k,302) * lu(k,1050) - lu(k,1053) = lu(k,1053) - lu(k,303) * lu(k,1050) - lu(k,1055) = lu(k,1055) - lu(k,304) * lu(k,1050) - lu(k,1065) = lu(k,1065) - lu(k,305) * lu(k,1050) - lu(k,1066) = lu(k,1066) - lu(k,306) * lu(k,1050) - lu(k,1079) = lu(k,1079) - lu(k,307) * lu(k,1050) - lu(k,1130) = - lu(k,301) * lu(k,1129) - lu(k,1131) = - lu(k,302) * lu(k,1129) - lu(k,1132) = lu(k,1132) - lu(k,303) * lu(k,1129) - lu(k,1143) = - lu(k,304) * lu(k,1129) - lu(k,1158) = lu(k,1158) - lu(k,305) * lu(k,1129) - lu(k,1159) = lu(k,1159) - lu(k,306) * lu(k,1129) - lu(k,1172) = lu(k,1172) - lu(k,307) * lu(k,1129) - lu(k,1357) = lu(k,1357) - lu(k,301) * lu(k,1355) - lu(k,1364) = lu(k,1364) - lu(k,302) * lu(k,1355) - lu(k,1365) = lu(k,1365) - lu(k,303) * lu(k,1355) - lu(k,1373) = - lu(k,304) * lu(k,1355) + lu(k,464) = - lu(k,293) * lu(k,461) + lu(k,465) = lu(k,465) - lu(k,294) * lu(k,461) + lu(k,469) = lu(k,469) - lu(k,295) * lu(k,461) + lu(k,470) = - lu(k,296) * lu(k,461) + lu(k,471) = - lu(k,297) * lu(k,461) + lu(k,473) = lu(k,473) - lu(k,298) * lu(k,461) + lu(k,474) = lu(k,474) - lu(k,299) * lu(k,461) + lu(k,1059) = lu(k,1059) - lu(k,293) * lu(k,1051) + lu(k,1060) = lu(k,1060) - lu(k,294) * lu(k,1051) + lu(k,1072) = lu(k,1072) - lu(k,295) * lu(k,1051) + lu(k,1073) = lu(k,1073) - lu(k,296) * lu(k,1051) + lu(k,1076) = lu(k,1076) - lu(k,297) * lu(k,1051) + lu(k,1080) = lu(k,1080) - lu(k,298) * lu(k,1051) + lu(k,1083) = lu(k,1083) - lu(k,299) * lu(k,1051) + lu(k,1592) = lu(k,1592) - lu(k,293) * lu(k,1573) + lu(k,1594) = lu(k,1594) - lu(k,294) * lu(k,1573) + lu(k,1606) = lu(k,1606) - lu(k,295) * lu(k,1573) + lu(k,1607) = - lu(k,296) * lu(k,1573) + lu(k,1610) = - lu(k,297) * lu(k,1573) + lu(k,1614) = lu(k,1614) - lu(k,298) * lu(k,1573) + lu(k,1617) = lu(k,1617) - lu(k,299) * lu(k,1573) + lu(k,2068) = lu(k,2068) - lu(k,293) * lu(k,2046) + lu(k,2070) = lu(k,2070) - lu(k,294) * lu(k,2046) + lu(k,2082) = lu(k,2082) - lu(k,295) * lu(k,2046) + lu(k,2083) = lu(k,2083) - lu(k,296) * lu(k,2046) + lu(k,2086) = lu(k,2086) - lu(k,297) * lu(k,2046) + lu(k,2090) = lu(k,2090) - lu(k,298) * lu(k,2046) + lu(k,2093) = lu(k,2093) - lu(k,299) * lu(k,2046) + lu(k,301) = 1._r8 / lu(k,301) + lu(k,302) = lu(k,302) * lu(k,301) + lu(k,303) = lu(k,303) * lu(k,301) + lu(k,304) = lu(k,304) * lu(k,301) + lu(k,305) = lu(k,305) * lu(k,301) + lu(k,306) = lu(k,306) * lu(k,301) + lu(k,307) = lu(k,307) * lu(k,301) + lu(k,308) = lu(k,308) * lu(k,301) + lu(k,716) = lu(k,716) - lu(k,302) * lu(k,713) + lu(k,717) = lu(k,717) - lu(k,303) * lu(k,713) + lu(k,721) = lu(k,721) - lu(k,304) * lu(k,713) + lu(k,724) = lu(k,724) - lu(k,305) * lu(k,713) + lu(k,725) = lu(k,725) - lu(k,306) * lu(k,713) + lu(k,733) = - lu(k,307) * lu(k,713) + lu(k,734) = - lu(k,308) * lu(k,713) + lu(k,897) = lu(k,897) - lu(k,302) * lu(k,893) + lu(k,899) = lu(k,899) - lu(k,303) * lu(k,893) + lu(k,903) = lu(k,903) - lu(k,304) * lu(k,893) + lu(k,908) = lu(k,908) - lu(k,305) * lu(k,893) + lu(k,909) = lu(k,909) - lu(k,306) * lu(k,893) + lu(k,922) = lu(k,922) - lu(k,307) * lu(k,893) + lu(k,923) = lu(k,923) - lu(k,308) * lu(k,893) + lu(k,1368) = lu(k,1368) - lu(k,302) * lu(k,1355) + lu(k,1371) = lu(k,1371) - lu(k,303) * lu(k,1355) + lu(k,1379) = lu(k,1379) - lu(k,304) * lu(k,1355) lu(k,1388) = lu(k,1388) - lu(k,305) * lu(k,1355) - lu(k,1389) = lu(k,1389) - lu(k,306) * lu(k,1355) - lu(k,1402) = lu(k,1402) - lu(k,307) * lu(k,1355) - lu(k,1412) = lu(k,1412) - lu(k,301) * lu(k,1411) - lu(k,1415) = lu(k,1415) - lu(k,302) * lu(k,1411) - lu(k,1416) = lu(k,1416) - lu(k,303) * lu(k,1411) - lu(k,1423) = lu(k,1423) - lu(k,304) * lu(k,1411) - lu(k,1437) = lu(k,1437) - lu(k,305) * lu(k,1411) - lu(k,1438) = lu(k,1438) - lu(k,306) * lu(k,1411) - lu(k,1451) = lu(k,1451) - lu(k,307) * lu(k,1411) + lu(k,1390) = lu(k,1390) - lu(k,306) * lu(k,1355) + lu(k,1403) = lu(k,1403) - lu(k,307) * lu(k,1355) + lu(k,1404) = lu(k,1404) - lu(k,308) * lu(k,1355) + lu(k,1788) = lu(k,1788) - lu(k,302) * lu(k,1782) + lu(k,1794) = lu(k,1794) - lu(k,303) * lu(k,1782) + lu(k,1801) = lu(k,1801) - lu(k,304) * lu(k,1782) + lu(k,1810) = lu(k,1810) - lu(k,305) * lu(k,1782) + lu(k,1812) = lu(k,1812) - lu(k,306) * lu(k,1782) + lu(k,1825) = - lu(k,307) * lu(k,1782) + lu(k,1826) = lu(k,1826) - lu(k,308) * lu(k,1782) + lu(k,1998) = lu(k,1998) - lu(k,302) * lu(k,1992) + lu(k,2000) = - lu(k,303) * lu(k,1992) + lu(k,2008) = lu(k,2008) - lu(k,304) * lu(k,1992) + lu(k,2017) = lu(k,2017) - lu(k,305) * lu(k,1992) + lu(k,2019) = lu(k,2019) - lu(k,306) * lu(k,1992) + lu(k,2032) = lu(k,2032) - lu(k,307) * lu(k,1992) + lu(k,2033) = lu(k,2033) - lu(k,308) * lu(k,1992) end do end subroutine lu_fac07 subroutine lu_fac08( avec_len, lu ) @@ -1141,135 +1141,141 @@ subroutine lu_fac08( avec_len, lu ) lu(k,313) = lu(k,313) * lu(k,309) lu(k,314) = lu(k,314) * lu(k,309) lu(k,315) = lu(k,315) * lu(k,309) - lu(k,316) = lu(k,316) * lu(k,309) - lu(k,714) = lu(k,714) - lu(k,310) * lu(k,711) - lu(k,715) = lu(k,715) - lu(k,311) * lu(k,711) - lu(k,719) = lu(k,719) - lu(k,312) * lu(k,711) - lu(k,722) = lu(k,722) - lu(k,313) * lu(k,711) - lu(k,724) = lu(k,724) - lu(k,314) * lu(k,711) - lu(k,731) = - lu(k,315) * lu(k,711) - lu(k,732) = - lu(k,316) * lu(k,711) - lu(k,895) = lu(k,895) - lu(k,310) * lu(k,891) - lu(k,897) = lu(k,897) - lu(k,311) * lu(k,891) - lu(k,901) = lu(k,901) - lu(k,312) * lu(k,891) - lu(k,907) = lu(k,907) - lu(k,313) * lu(k,891) - lu(k,909) = lu(k,909) - lu(k,314) * lu(k,891) - lu(k,920) = lu(k,920) - lu(k,315) * lu(k,891) - lu(k,921) = lu(k,921) - lu(k,316) * lu(k,891) - lu(k,1368) = lu(k,1368) - lu(k,310) * lu(k,1356) - lu(k,1371) = lu(k,1371) - lu(k,311) * lu(k,1356) - lu(k,1379) = lu(k,1379) - lu(k,312) * lu(k,1356) + lu(k,344) = lu(k,344) - lu(k,310) * lu(k,342) + lu(k,345) = lu(k,345) - lu(k,311) * lu(k,342) + lu(k,347) = - lu(k,312) * lu(k,342) + lu(k,348) = lu(k,348) - lu(k,313) * lu(k,342) + lu(k,349) = - lu(k,314) * lu(k,342) + lu(k,350) = lu(k,350) - lu(k,315) * lu(k,342) + lu(k,404) = lu(k,404) - lu(k,310) * lu(k,402) + lu(k,405) = lu(k,405) - lu(k,311) * lu(k,402) + lu(k,409) = lu(k,409) - lu(k,312) * lu(k,402) + lu(k,410) = lu(k,410) - lu(k,313) * lu(k,402) + lu(k,411) = lu(k,411) - lu(k,314) * lu(k,402) + lu(k,413) = lu(k,413) - lu(k,315) * lu(k,402) + lu(k,447) = - lu(k,310) * lu(k,446) + lu(k,448) = lu(k,448) - lu(k,311) * lu(k,446) + lu(k,453) = lu(k,453) - lu(k,312) * lu(k,446) + lu(k,454) = lu(k,454) - lu(k,313) * lu(k,446) + lu(k,455) = lu(k,455) - lu(k,314) * lu(k,446) + lu(k,459) = lu(k,459) - lu(k,315) * lu(k,446) + lu(k,1054) = lu(k,1054) - lu(k,310) * lu(k,1052) + lu(k,1055) = lu(k,1055) - lu(k,311) * lu(k,1052) + lu(k,1062) = lu(k,1062) - lu(k,312) * lu(k,1052) + lu(k,1067) = lu(k,1067) - lu(k,313) * lu(k,1052) + lu(k,1072) = lu(k,1072) - lu(k,314) * lu(k,1052) + lu(k,1080) = lu(k,1080) - lu(k,315) * lu(k,1052) + lu(k,1364) = lu(k,1364) - lu(k,310) * lu(k,1356) + lu(k,1365) = lu(k,1365) - lu(k,311) * lu(k,1356) + lu(k,1383) = lu(k,1383) - lu(k,312) * lu(k,1356) lu(k,1388) = lu(k,1388) - lu(k,313) * lu(k,1356) - lu(k,1390) = lu(k,1390) - lu(k,314) * lu(k,1356) - lu(k,1403) = lu(k,1403) - lu(k,315) * lu(k,1356) - lu(k,1404) = lu(k,1404) - lu(k,316) * lu(k,1356) - lu(k,1795) = lu(k,1795) - lu(k,310) * lu(k,1789) - lu(k,1801) = lu(k,1801) - lu(k,311) * lu(k,1789) - lu(k,1808) = lu(k,1808) - lu(k,312) * lu(k,1789) - lu(k,1817) = lu(k,1817) - lu(k,313) * lu(k,1789) - lu(k,1819) = lu(k,1819) - lu(k,314) * lu(k,1789) - lu(k,1832) = - lu(k,315) * lu(k,1789) - lu(k,1833) = lu(k,1833) - lu(k,316) * lu(k,1789) - lu(k,1995) = lu(k,1995) - lu(k,310) * lu(k,1989) - lu(k,1997) = - lu(k,311) * lu(k,1989) - lu(k,2005) = lu(k,2005) - lu(k,312) * lu(k,1989) - lu(k,2014) = lu(k,2014) - lu(k,313) * lu(k,1989) - lu(k,2016) = lu(k,2016) - lu(k,314) * lu(k,1989) - lu(k,2029) = lu(k,2029) - lu(k,315) * lu(k,1989) - lu(k,2030) = lu(k,2030) - lu(k,316) * lu(k,1989) - lu(k,317) = 1._r8 / lu(k,317) - lu(k,318) = lu(k,318) * lu(k,317) - lu(k,319) = lu(k,319) * lu(k,317) - lu(k,320) = lu(k,320) * lu(k,317) - lu(k,321) = lu(k,321) * lu(k,317) - lu(k,322) = lu(k,322) * lu(k,317) - lu(k,323) = lu(k,323) * lu(k,317) - lu(k,388) = lu(k,388) - lu(k,318) * lu(k,387) - lu(k,389) = lu(k,389) - lu(k,319) * lu(k,387) - lu(k,393) = lu(k,393) - lu(k,320) * lu(k,387) - lu(k,395) = lu(k,395) - lu(k,321) * lu(k,387) - lu(k,396) = lu(k,396) - lu(k,322) * lu(k,387) - lu(k,397) = lu(k,397) - lu(k,323) * lu(k,387) - lu(k,445) = - lu(k,318) * lu(k,444) - lu(k,446) = lu(k,446) - lu(k,319) * lu(k,444) - lu(k,451) = lu(k,451) - lu(k,320) * lu(k,444) - lu(k,453) = lu(k,453) - lu(k,321) * lu(k,444) - lu(k,454) = lu(k,454) - lu(k,322) * lu(k,444) - lu(k,455) = lu(k,455) - lu(k,323) * lu(k,444) - lu(k,1052) = lu(k,1052) - lu(k,318) * lu(k,1051) - lu(k,1053) = lu(k,1053) - lu(k,319) * lu(k,1051) - lu(k,1060) = lu(k,1060) - lu(k,320) * lu(k,1051) - lu(k,1065) = lu(k,1065) - lu(k,321) * lu(k,1051) - lu(k,1066) = lu(k,1066) - lu(k,322) * lu(k,1051) - lu(k,1070) = lu(k,1070) - lu(k,323) * lu(k,1051) - lu(k,1131) = lu(k,1131) - lu(k,318) * lu(k,1130) - lu(k,1132) = lu(k,1132) - lu(k,319) * lu(k,1130) - lu(k,1153) = lu(k,1153) - lu(k,320) * lu(k,1130) - lu(k,1158) = lu(k,1158) - lu(k,321) * lu(k,1130) - lu(k,1159) = lu(k,1159) - lu(k,322) * lu(k,1130) - lu(k,1163) = - lu(k,323) * lu(k,1130) - lu(k,1364) = lu(k,1364) - lu(k,318) * lu(k,1357) - lu(k,1365) = lu(k,1365) - lu(k,319) * lu(k,1357) - lu(k,1383) = lu(k,1383) - lu(k,320) * lu(k,1357) + lu(k,1393) = lu(k,1393) - lu(k,314) * lu(k,1356) + lu(k,1401) = lu(k,1401) - lu(k,315) * lu(k,1356) + lu(k,1906) = lu(k,1906) - lu(k,310) * lu(k,1902) + lu(k,1907) = lu(k,1907) - lu(k,311) * lu(k,1902) + lu(k,1923) = lu(k,1923) - lu(k,312) * lu(k,1902) + lu(k,1928) = lu(k,1928) - lu(k,313) * lu(k,1902) + lu(k,1933) = lu(k,1933) - lu(k,314) * lu(k,1902) + lu(k,1941) = lu(k,1941) - lu(k,315) * lu(k,1902) + lu(k,316) = 1._r8 / lu(k,316) + lu(k,317) = lu(k,317) * lu(k,316) + lu(k,318) = lu(k,318) * lu(k,316) + lu(k,319) = lu(k,319) * lu(k,316) + lu(k,320) = lu(k,320) * lu(k,316) + lu(k,321) = lu(k,321) * lu(k,316) + lu(k,322) = lu(k,322) * lu(k,316) + lu(k,323) = lu(k,323) * lu(k,316) + lu(k,584) = lu(k,584) - lu(k,317) * lu(k,583) + lu(k,585) = lu(k,585) - lu(k,318) * lu(k,583) + lu(k,587) = - lu(k,319) * lu(k,583) + lu(k,589) = lu(k,589) - lu(k,320) * lu(k,583) + lu(k,591) = - lu(k,321) * lu(k,583) + lu(k,593) = - lu(k,322) * lu(k,583) + lu(k,595) = - lu(k,323) * lu(k,583) + lu(k,737) = lu(k,737) - lu(k,317) * lu(k,736) + lu(k,739) = - lu(k,318) * lu(k,736) + lu(k,741) = - lu(k,319) * lu(k,736) + lu(k,743) = lu(k,743) - lu(k,320) * lu(k,736) + lu(k,747) = lu(k,747) - lu(k,321) * lu(k,736) + lu(k,752) = lu(k,752) - lu(k,322) * lu(k,736) + lu(k,759) = lu(k,759) - lu(k,323) * lu(k,736) + lu(k,785) = lu(k,785) - lu(k,317) * lu(k,779) + lu(k,787) = lu(k,787) - lu(k,318) * lu(k,779) + lu(k,789) = lu(k,789) - lu(k,319) * lu(k,779) + lu(k,791) = lu(k,791) - lu(k,320) * lu(k,779) + lu(k,795) = lu(k,795) - lu(k,321) * lu(k,779) + lu(k,803) = lu(k,803) - lu(k,322) * lu(k,779) + lu(k,810) = lu(k,810) - lu(k,323) * lu(k,779) + lu(k,897) = lu(k,897) - lu(k,317) * lu(k,894) + lu(k,899) = lu(k,899) - lu(k,318) * lu(k,894) + lu(k,901) = - lu(k,319) * lu(k,894) + lu(k,903) = lu(k,903) - lu(k,320) * lu(k,894) + lu(k,908) = lu(k,908) - lu(k,321) * lu(k,894) + lu(k,916) = lu(k,916) - lu(k,322) * lu(k,894) + lu(k,923) = lu(k,923) - lu(k,323) * lu(k,894) + lu(k,980) = lu(k,980) - lu(k,317) * lu(k,971) + lu(k,982) = lu(k,982) - lu(k,318) * lu(k,971) + lu(k,984) = lu(k,984) - lu(k,319) * lu(k,971) + lu(k,986) = lu(k,986) - lu(k,320) * lu(k,971) + lu(k,992) = lu(k,992) - lu(k,321) * lu(k,971) + lu(k,1000) = lu(k,1000) - lu(k,322) * lu(k,971) + lu(k,1007) = lu(k,1007) - lu(k,323) * lu(k,971) + lu(k,1368) = lu(k,1368) - lu(k,317) * lu(k,1357) + lu(k,1371) = lu(k,1371) - lu(k,318) * lu(k,1357) + lu(k,1373) = - lu(k,319) * lu(k,1357) + lu(k,1379) = lu(k,1379) - lu(k,320) * lu(k,1357) lu(k,1388) = lu(k,1388) - lu(k,321) * lu(k,1357) - lu(k,1389) = lu(k,1389) - lu(k,322) * lu(k,1357) - lu(k,1393) = lu(k,1393) - lu(k,323) * lu(k,1357) - lu(k,1415) = lu(k,1415) - lu(k,318) * lu(k,1412) - lu(k,1416) = lu(k,1416) - lu(k,319) * lu(k,1412) - lu(k,1432) = lu(k,1432) - lu(k,320) * lu(k,1412) - lu(k,1437) = lu(k,1437) - lu(k,321) * lu(k,1412) - lu(k,1438) = lu(k,1438) - lu(k,322) * lu(k,1412) - lu(k,1442) = lu(k,1442) - lu(k,323) * lu(k,1412) - lu(k,324) = 1._r8 / lu(k,324) - lu(k,325) = lu(k,325) * lu(k,324) - lu(k,326) = lu(k,326) * lu(k,324) - lu(k,327) = lu(k,327) * lu(k,324) - lu(k,328) = lu(k,328) * lu(k,324) - lu(k,329) = lu(k,329) * lu(k,324) - lu(k,330) = lu(k,330) * lu(k,324) - lu(k,331) = lu(k,331) * lu(k,324) - lu(k,582) = lu(k,582) - lu(k,325) * lu(k,581) - lu(k,583) = lu(k,583) - lu(k,326) * lu(k,581) - lu(k,585) = - lu(k,327) * lu(k,581) - lu(k,587) = lu(k,587) - lu(k,328) * lu(k,581) - lu(k,589) = - lu(k,329) * lu(k,581) - lu(k,591) = - lu(k,330) * lu(k,581) - lu(k,593) = - lu(k,331) * lu(k,581) - lu(k,735) = lu(k,735) - lu(k,325) * lu(k,734) - lu(k,737) = - lu(k,326) * lu(k,734) - lu(k,739) = - lu(k,327) * lu(k,734) - lu(k,741) = lu(k,741) - lu(k,328) * lu(k,734) - lu(k,745) = lu(k,745) - lu(k,329) * lu(k,734) - lu(k,750) = lu(k,750) - lu(k,330) * lu(k,734) - lu(k,757) = lu(k,757) - lu(k,331) * lu(k,734) - lu(k,783) = lu(k,783) - lu(k,325) * lu(k,777) - lu(k,785) = lu(k,785) - lu(k,326) * lu(k,777) - lu(k,787) = lu(k,787) - lu(k,327) * lu(k,777) - lu(k,789) = lu(k,789) - lu(k,328) * lu(k,777) - lu(k,794) = lu(k,794) - lu(k,329) * lu(k,777) - lu(k,801) = lu(k,801) - lu(k,330) * lu(k,777) - lu(k,808) = lu(k,808) - lu(k,331) * lu(k,777) - lu(k,895) = lu(k,895) - lu(k,325) * lu(k,892) - lu(k,897) = lu(k,897) - lu(k,326) * lu(k,892) - lu(k,899) = - lu(k,327) * lu(k,892) - lu(k,901) = lu(k,901) - lu(k,328) * lu(k,892) - lu(k,907) = lu(k,907) - lu(k,329) * lu(k,892) - lu(k,914) = lu(k,914) - lu(k,330) * lu(k,892) - lu(k,921) = lu(k,921) - lu(k,331) * lu(k,892) - lu(k,978) = lu(k,978) - lu(k,325) * lu(k,969) - lu(k,980) = lu(k,980) - lu(k,326) * lu(k,969) - lu(k,982) = lu(k,982) - lu(k,327) * lu(k,969) - lu(k,984) = lu(k,984) - lu(k,328) * lu(k,969) - lu(k,991) = lu(k,991) - lu(k,329) * lu(k,969) - lu(k,998) = lu(k,998) - lu(k,330) * lu(k,969) - lu(k,1005) = lu(k,1005) - lu(k,331) * lu(k,969) - lu(k,1368) = lu(k,1368) - lu(k,325) * lu(k,1358) - lu(k,1371) = lu(k,1371) - lu(k,326) * lu(k,1358) - lu(k,1373) = lu(k,1373) - lu(k,327) * lu(k,1358) - lu(k,1379) = lu(k,1379) - lu(k,328) * lu(k,1358) - lu(k,1388) = lu(k,1388) - lu(k,329) * lu(k,1358) - lu(k,1397) = lu(k,1397) - lu(k,330) * lu(k,1358) + lu(k,1397) = lu(k,1397) - lu(k,322) * lu(k,1357) + lu(k,1404) = lu(k,1404) - lu(k,323) * lu(k,1357) + lu(k,325) = 1._r8 / lu(k,325) + lu(k,326) = lu(k,326) * lu(k,325) + lu(k,327) = lu(k,327) * lu(k,325) + lu(k,328) = lu(k,328) * lu(k,325) + lu(k,329) = lu(k,329) * lu(k,325) + lu(k,330) = lu(k,330) * lu(k,325) + lu(k,331) = lu(k,331) * lu(k,325) + lu(k,362) = lu(k,362) - lu(k,326) * lu(k,360) + lu(k,363) = lu(k,363) - lu(k,327) * lu(k,360) + lu(k,364) = lu(k,364) - lu(k,328) * lu(k,360) + lu(k,365) = lu(k,365) - lu(k,329) * lu(k,360) + lu(k,369) = lu(k,369) - lu(k,330) * lu(k,360) + lu(k,370) = - lu(k,331) * lu(k,360) + lu(k,903) = lu(k,903) - lu(k,326) * lu(k,895) + lu(k,905) = lu(k,905) - lu(k,327) * lu(k,895) + lu(k,908) = lu(k,908) - lu(k,328) * lu(k,895) + lu(k,909) = lu(k,909) - lu(k,329) * lu(k,895) + lu(k,922) = lu(k,922) - lu(k,330) * lu(k,895) + lu(k,923) = lu(k,923) - lu(k,331) * lu(k,895) + lu(k,986) = lu(k,986) - lu(k,326) * lu(k,972) + lu(k,988) = lu(k,988) - lu(k,327) * lu(k,972) + lu(k,992) = lu(k,992) - lu(k,328) * lu(k,972) + lu(k,993) = lu(k,993) - lu(k,329) * lu(k,972) + lu(k,1006) = lu(k,1006) - lu(k,330) * lu(k,972) + lu(k,1007) = lu(k,1007) - lu(k,331) * lu(k,972) + lu(k,1103) = lu(k,1103) - lu(k,326) * lu(k,1088) + lu(k,1106) = lu(k,1106) - lu(k,327) * lu(k,1088) + lu(k,1112) = lu(k,1112) - lu(k,328) * lu(k,1088) + lu(k,1114) = lu(k,1114) - lu(k,329) * lu(k,1088) + lu(k,1127) = lu(k,1127) - lu(k,330) * lu(k,1088) + lu(k,1128) = - lu(k,331) * lu(k,1088) + lu(k,1379) = lu(k,1379) - lu(k,326) * lu(k,1358) + lu(k,1382) = lu(k,1382) - lu(k,327) * lu(k,1358) + lu(k,1388) = lu(k,1388) - lu(k,328) * lu(k,1358) + lu(k,1390) = lu(k,1390) - lu(k,329) * lu(k,1358) + lu(k,1403) = lu(k,1403) - lu(k,330) * lu(k,1358) lu(k,1404) = lu(k,1404) - lu(k,331) * lu(k,1358) + lu(k,1470) = lu(k,1470) - lu(k,326) * lu(k,1455) + lu(k,1473) = lu(k,1473) - lu(k,327) * lu(k,1455) + lu(k,1479) = lu(k,1479) - lu(k,328) * lu(k,1455) + lu(k,1481) = lu(k,1481) - lu(k,329) * lu(k,1455) + lu(k,1494) = lu(k,1494) - lu(k,330) * lu(k,1455) + lu(k,1495) = lu(k,1495) - lu(k,331) * lu(k,1455) + lu(k,2008) = lu(k,2008) - lu(k,326) * lu(k,1993) + lu(k,2011) = lu(k,2011) - lu(k,327) * lu(k,1993) + lu(k,2017) = lu(k,2017) - lu(k,328) * lu(k,1993) + lu(k,2019) = lu(k,2019) - lu(k,329) * lu(k,1993) + lu(k,2032) = lu(k,2032) - lu(k,330) * lu(k,1993) + lu(k,2033) = lu(k,2033) - lu(k,331) * lu(k,1993) lu(k,333) = 1._r8 / lu(k,333) lu(k,334) = lu(k,334) * lu(k,333) lu(k,335) = lu(k,335) * lu(k,333) @@ -1277,105 +1283,56 @@ subroutine lu_fac08( avec_len, lu ) lu(k,337) = lu(k,337) * lu(k,333) lu(k,338) = lu(k,338) * lu(k,333) lu(k,339) = lu(k,339) * lu(k,333) - lu(k,360) = lu(k,360) - lu(k,334) * lu(k,358) - lu(k,361) = lu(k,361) - lu(k,335) * lu(k,358) - lu(k,362) = lu(k,362) - lu(k,336) * lu(k,358) - lu(k,363) = lu(k,363) - lu(k,337) * lu(k,358) - lu(k,367) = lu(k,367) - lu(k,338) * lu(k,358) - lu(k,368) = - lu(k,339) * lu(k,358) - lu(k,901) = lu(k,901) - lu(k,334) * lu(k,893) - lu(k,903) = lu(k,903) - lu(k,335) * lu(k,893) - lu(k,907) = lu(k,907) - lu(k,336) * lu(k,893) - lu(k,909) = lu(k,909) - lu(k,337) * lu(k,893) - lu(k,920) = lu(k,920) - lu(k,338) * lu(k,893) - lu(k,921) = lu(k,921) - lu(k,339) * lu(k,893) - lu(k,984) = lu(k,984) - lu(k,334) * lu(k,970) - lu(k,986) = lu(k,986) - lu(k,335) * lu(k,970) - lu(k,991) = lu(k,991) - lu(k,336) * lu(k,970) - lu(k,993) = lu(k,993) - lu(k,337) * lu(k,970) - lu(k,1004) = lu(k,1004) - lu(k,338) * lu(k,970) - lu(k,1005) = lu(k,1005) - lu(k,339) * lu(k,970) - lu(k,1101) = lu(k,1101) - lu(k,334) * lu(k,1086) - lu(k,1104) = lu(k,1104) - lu(k,335) * lu(k,1086) - lu(k,1110) = lu(k,1110) - lu(k,336) * lu(k,1086) - lu(k,1112) = lu(k,1112) - lu(k,337) * lu(k,1086) - lu(k,1125) = lu(k,1125) - lu(k,338) * lu(k,1086) - lu(k,1126) = - lu(k,339) * lu(k,1086) - lu(k,1379) = lu(k,1379) - lu(k,334) * lu(k,1359) - lu(k,1382) = lu(k,1382) - lu(k,335) * lu(k,1359) - lu(k,1388) = lu(k,1388) - lu(k,336) * lu(k,1359) - lu(k,1390) = lu(k,1390) - lu(k,337) * lu(k,1359) - lu(k,1403) = lu(k,1403) - lu(k,338) * lu(k,1359) - lu(k,1404) = lu(k,1404) - lu(k,339) * lu(k,1359) - lu(k,1476) = lu(k,1476) - lu(k,334) * lu(k,1461) - lu(k,1479) = lu(k,1479) - lu(k,335) * lu(k,1461) - lu(k,1485) = lu(k,1485) - lu(k,336) * lu(k,1461) - lu(k,1487) = lu(k,1487) - lu(k,337) * lu(k,1461) - lu(k,1500) = lu(k,1500) - lu(k,338) * lu(k,1461) - lu(k,1501) = lu(k,1501) - lu(k,339) * lu(k,1461) - lu(k,2005) = lu(k,2005) - lu(k,334) * lu(k,1990) - lu(k,2008) = lu(k,2008) - lu(k,335) * lu(k,1990) - lu(k,2014) = lu(k,2014) - lu(k,336) * lu(k,1990) - lu(k,2016) = lu(k,2016) - lu(k,337) * lu(k,1990) - lu(k,2029) = lu(k,2029) - lu(k,338) * lu(k,1990) - lu(k,2030) = lu(k,2030) - lu(k,339) * lu(k,1990) - lu(k,341) = 1._r8 / lu(k,341) - lu(k,342) = lu(k,342) * lu(k,341) - lu(k,343) = lu(k,343) * lu(k,341) - lu(k,344) = lu(k,344) * lu(k,341) - lu(k,345) = lu(k,345) * lu(k,341) - lu(k,346) = lu(k,346) * lu(k,341) - lu(k,347) = lu(k,347) * lu(k,341) - lu(k,348) = lu(k,348) * lu(k,341) - lu(k,349) = lu(k,349) * lu(k,341) - lu(k,416) = lu(k,416) - lu(k,342) * lu(k,415) - lu(k,417) = lu(k,417) - lu(k,343) * lu(k,415) - lu(k,418) = lu(k,418) - lu(k,344) * lu(k,415) - lu(k,422) = lu(k,422) - lu(k,345) * lu(k,415) - lu(k,426) = - lu(k,346) * lu(k,415) - lu(k,427) = - lu(k,347) * lu(k,415) - lu(k,428) = lu(k,428) - lu(k,348) * lu(k,415) - lu(k,430) = lu(k,430) - lu(k,349) * lu(k,415) - lu(k,645) = - lu(k,342) * lu(k,644) - lu(k,646) = - lu(k,343) * lu(k,644) - lu(k,647) = lu(k,647) - lu(k,344) * lu(k,644) - lu(k,651) = lu(k,651) - lu(k,345) * lu(k,644) - lu(k,658) = - lu(k,346) * lu(k,644) - lu(k,659) = - lu(k,347) * lu(k,644) - lu(k,660) = lu(k,660) - lu(k,348) * lu(k,644) - lu(k,666) = lu(k,666) - lu(k,349) * lu(k,644) - lu(k,780) = lu(k,780) - lu(k,342) * lu(k,778) - lu(k,781) = lu(k,781) - lu(k,343) * lu(k,778) - lu(k,784) = lu(k,784) - lu(k,344) * lu(k,778) - lu(k,789) = lu(k,789) - lu(k,345) * lu(k,778) - lu(k,797) = - lu(k,346) * lu(k,778) - lu(k,800) = - lu(k,347) * lu(k,778) - lu(k,801) = lu(k,801) - lu(k,348) * lu(k,778) - lu(k,808) = lu(k,808) - lu(k,349) * lu(k,778) - lu(k,974) = lu(k,974) - lu(k,342) * lu(k,971) - lu(k,975) = lu(k,975) - lu(k,343) * lu(k,971) - lu(k,979) = lu(k,979) - lu(k,344) * lu(k,971) - lu(k,984) = lu(k,984) - lu(k,345) * lu(k,971) - lu(k,994) = lu(k,994) - lu(k,346) * lu(k,971) - lu(k,997) = lu(k,997) - lu(k,347) * lu(k,971) - lu(k,998) = lu(k,998) - lu(k,348) * lu(k,971) - lu(k,1005) = lu(k,1005) - lu(k,349) * lu(k,971) - lu(k,1505) = - lu(k,342) * lu(k,1504) - lu(k,1506) = - lu(k,343) * lu(k,1504) - lu(k,1509) = - lu(k,344) * lu(k,1504) - lu(k,1517) = lu(k,1517) - lu(k,345) * lu(k,1504) - lu(k,1529) = lu(k,1529) - lu(k,346) * lu(k,1504) - lu(k,1534) = lu(k,1534) - lu(k,347) * lu(k,1504) - lu(k,1535) = lu(k,1535) - lu(k,348) * lu(k,1504) - lu(k,1542) = lu(k,1542) - lu(k,349) * lu(k,1504) - lu(k,2046) = - lu(k,342) * lu(k,2044) - lu(k,2047) = - lu(k,343) * lu(k,2044) - lu(k,2055) = lu(k,2055) - lu(k,344) * lu(k,2044) - lu(k,2065) = lu(k,2065) - lu(k,345) * lu(k,2044) - lu(k,2077) = lu(k,2077) - lu(k,346) * lu(k,2044) - lu(k,2082) = - lu(k,347) * lu(k,2044) - lu(k,2083) = lu(k,2083) - lu(k,348) * lu(k,2044) - lu(k,2090) = lu(k,2090) - lu(k,349) * lu(k,2044) + lu(k,340) = lu(k,340) * lu(k,333) + lu(k,341) = lu(k,341) * lu(k,333) + lu(k,418) = lu(k,418) - lu(k,334) * lu(k,417) + lu(k,419) = lu(k,419) - lu(k,335) * lu(k,417) + lu(k,420) = lu(k,420) - lu(k,336) * lu(k,417) + lu(k,424) = lu(k,424) - lu(k,337) * lu(k,417) + lu(k,427) = - lu(k,338) * lu(k,417) + lu(k,429) = - lu(k,339) * lu(k,417) + lu(k,430) = lu(k,430) - lu(k,340) * lu(k,417) + lu(k,432) = lu(k,432) - lu(k,341) * lu(k,417) + lu(k,647) = - lu(k,334) * lu(k,646) + lu(k,648) = - lu(k,335) * lu(k,646) + lu(k,649) = lu(k,649) - lu(k,336) * lu(k,646) + lu(k,653) = lu(k,653) - lu(k,337) * lu(k,646) + lu(k,658) = - lu(k,338) * lu(k,646) + lu(k,660) = - lu(k,339) * lu(k,646) + lu(k,661) = lu(k,661) - lu(k,340) * lu(k,646) + lu(k,668) = lu(k,668) - lu(k,341) * lu(k,646) + lu(k,782) = lu(k,782) - lu(k,334) * lu(k,780) + lu(k,783) = lu(k,783) - lu(k,335) * lu(k,780) + lu(k,786) = lu(k,786) - lu(k,336) * lu(k,780) + lu(k,791) = lu(k,791) - lu(k,337) * lu(k,780) + lu(k,797) = - lu(k,338) * lu(k,780) + lu(k,802) = - lu(k,339) * lu(k,780) + lu(k,803) = lu(k,803) - lu(k,340) * lu(k,780) + lu(k,810) = lu(k,810) - lu(k,341) * lu(k,780) + lu(k,976) = lu(k,976) - lu(k,334) * lu(k,973) + lu(k,977) = lu(k,977) - lu(k,335) * lu(k,973) + lu(k,981) = lu(k,981) - lu(k,336) * lu(k,973) + lu(k,986) = lu(k,986) - lu(k,337) * lu(k,973) + lu(k,994) = lu(k,994) - lu(k,338) * lu(k,973) + lu(k,999) = lu(k,999) - lu(k,339) * lu(k,973) + lu(k,1000) = lu(k,1000) - lu(k,340) * lu(k,973) + lu(k,1007) = lu(k,1007) - lu(k,341) * lu(k,973) + lu(k,1499) = - lu(k,334) * lu(k,1498) + lu(k,1500) = - lu(k,335) * lu(k,1498) + lu(k,1503) = - lu(k,336) * lu(k,1498) + lu(k,1511) = lu(k,1511) - lu(k,337) * lu(k,1498) + lu(k,1523) = lu(k,1523) - lu(k,338) * lu(k,1498) + lu(k,1528) = lu(k,1528) - lu(k,339) * lu(k,1498) + lu(k,1529) = lu(k,1529) - lu(k,340) * lu(k,1498) + lu(k,1536) = lu(k,1536) - lu(k,341) * lu(k,1498) + lu(k,2049) = - lu(k,334) * lu(k,2047) + lu(k,2050) = - lu(k,335) * lu(k,2047) + lu(k,2058) = lu(k,2058) - lu(k,336) * lu(k,2047) + lu(k,2068) = lu(k,2068) - lu(k,337) * lu(k,2047) + lu(k,2080) = lu(k,2080) - lu(k,338) * lu(k,2047) + lu(k,2085) = - lu(k,339) * lu(k,2047) + lu(k,2086) = lu(k,2086) - lu(k,340) * lu(k,2047) + lu(k,2093) = lu(k,2093) - lu(k,341) * lu(k,2047) end do end subroutine lu_fac08 subroutine lu_fac09( avec_len, lu ) @@ -1392,254 +1349,247 @@ subroutine lu_fac09( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,351) = 1._r8 / lu(k,351) - lu(k,352) = lu(k,352) * lu(k,351) - lu(k,353) = lu(k,353) * lu(k,351) - lu(k,354) = lu(k,354) * lu(k,351) - lu(k,355) = lu(k,355) * lu(k,351) - lu(k,356) = lu(k,356) * lu(k,351) - lu(k,476) = lu(k,476) - lu(k,352) * lu(k,475) - lu(k,479) = - lu(k,353) * lu(k,475) - lu(k,480) = lu(k,480) - lu(k,354) * lu(k,475) - lu(k,482) = lu(k,482) - lu(k,355) * lu(k,475) - lu(k,489) = - lu(k,356) * lu(k,475) - lu(k,713) = lu(k,713) - lu(k,352) * lu(k,712) - lu(k,718) = lu(k,718) - lu(k,353) * lu(k,712) - lu(k,719) = lu(k,719) - lu(k,354) * lu(k,712) - lu(k,722) = lu(k,722) - lu(k,355) * lu(k,712) - lu(k,732) = lu(k,732) - lu(k,356) * lu(k,712) - lu(k,977) = lu(k,977) - lu(k,352) * lu(k,972) - lu(k,983) = lu(k,983) - lu(k,353) * lu(k,972) - lu(k,984) = lu(k,984) - lu(k,354) * lu(k,972) - lu(k,991) = lu(k,991) - lu(k,355) * lu(k,972) - lu(k,1005) = lu(k,1005) - lu(k,356) * lu(k,972) - lu(k,1091) = lu(k,1091) - lu(k,352) * lu(k,1087) - lu(k,1099) = lu(k,1099) - lu(k,353) * lu(k,1087) - lu(k,1101) = lu(k,1101) - lu(k,354) * lu(k,1087) - lu(k,1110) = lu(k,1110) - lu(k,355) * lu(k,1087) - lu(k,1126) = lu(k,1126) - lu(k,356) * lu(k,1087) - lu(k,1367) = lu(k,1367) - lu(k,352) * lu(k,1360) - lu(k,1377) = lu(k,1377) - lu(k,353) * lu(k,1360) - lu(k,1379) = lu(k,1379) - lu(k,354) * lu(k,1360) - lu(k,1388) = lu(k,1388) - lu(k,355) * lu(k,1360) - lu(k,1404) = lu(k,1404) - lu(k,356) * lu(k,1360) - lu(k,1418) = lu(k,1418) - lu(k,352) * lu(k,1413) - lu(k,1426) = lu(k,1426) - lu(k,353) * lu(k,1413) - lu(k,1428) = lu(k,1428) - lu(k,354) * lu(k,1413) - lu(k,1437) = lu(k,1437) - lu(k,355) * lu(k,1413) - lu(k,1453) = - lu(k,356) * lu(k,1413) - lu(k,1714) = - lu(k,352) * lu(k,1712) - lu(k,1723) = lu(k,1723) - lu(k,353) * lu(k,1712) - lu(k,1725) = lu(k,1725) - lu(k,354) * lu(k,1712) - lu(k,1733) = lu(k,1733) - lu(k,355) * lu(k,1712) - lu(k,1749) = - lu(k,356) * lu(k,1712) - lu(k,1794) = lu(k,1794) - lu(k,352) * lu(k,1790) - lu(k,1806) = lu(k,1806) - lu(k,353) * lu(k,1790) - lu(k,1808) = lu(k,1808) - lu(k,354) * lu(k,1790) - lu(k,1817) = lu(k,1817) - lu(k,355) * lu(k,1790) - lu(k,1833) = lu(k,1833) - lu(k,356) * lu(k,1790) - lu(k,1908) = lu(k,1908) - lu(k,352) * lu(k,1905) - lu(k,1916) = lu(k,1916) - lu(k,353) * lu(k,1905) - lu(k,1918) = lu(k,1918) - lu(k,354) * lu(k,1905) - lu(k,1927) = lu(k,1927) - lu(k,355) * lu(k,1905) - lu(k,1943) = - lu(k,356) * lu(k,1905) - lu(k,2049) = - lu(k,352) * lu(k,2045) - lu(k,2063) = - lu(k,353) * lu(k,2045) - lu(k,2065) = lu(k,2065) - lu(k,354) * lu(k,2045) - lu(k,2074) = lu(k,2074) - lu(k,355) * lu(k,2045) - lu(k,2090) = lu(k,2090) - lu(k,356) * lu(k,2045) - lu(k,359) = 1._r8 / lu(k,359) - lu(k,360) = lu(k,360) * lu(k,359) - lu(k,361) = lu(k,361) * lu(k,359) - lu(k,362) = lu(k,362) * lu(k,359) - lu(k,363) = lu(k,363) * lu(k,359) - lu(k,364) = lu(k,364) * lu(k,359) - lu(k,365) = lu(k,365) * lu(k,359) - lu(k,366) = lu(k,366) * lu(k,359) - lu(k,367) = lu(k,367) * lu(k,359) - lu(k,368) = lu(k,368) * lu(k,359) - lu(k,984) = lu(k,984) - lu(k,360) * lu(k,973) - lu(k,986) = lu(k,986) - lu(k,361) * lu(k,973) - lu(k,991) = lu(k,991) - lu(k,362) * lu(k,973) - lu(k,993) = lu(k,993) - lu(k,363) * lu(k,973) - lu(k,994) = lu(k,994) - lu(k,364) * lu(k,973) - lu(k,997) = lu(k,997) - lu(k,365) * lu(k,973) - lu(k,999) = lu(k,999) - lu(k,366) * lu(k,973) - lu(k,1004) = lu(k,1004) - lu(k,367) * lu(k,973) - lu(k,1005) = lu(k,1005) - lu(k,368) * lu(k,973) - lu(k,1101) = lu(k,1101) - lu(k,360) * lu(k,1088) - lu(k,1104) = lu(k,1104) - lu(k,361) * lu(k,1088) - lu(k,1110) = lu(k,1110) - lu(k,362) * lu(k,1088) - lu(k,1112) = lu(k,1112) - lu(k,363) * lu(k,1088) - lu(k,1113) = - lu(k,364) * lu(k,1088) - lu(k,1118) = lu(k,1118) - lu(k,365) * lu(k,1088) - lu(k,1120) = lu(k,1120) - lu(k,366) * lu(k,1088) - lu(k,1125) = lu(k,1125) - lu(k,367) * lu(k,1088) - lu(k,1126) = lu(k,1126) - lu(k,368) * lu(k,1088) - lu(k,1379) = lu(k,1379) - lu(k,360) * lu(k,1361) - lu(k,1382) = lu(k,1382) - lu(k,361) * lu(k,1361) - lu(k,1388) = lu(k,1388) - lu(k,362) * lu(k,1361) - lu(k,1390) = lu(k,1390) - lu(k,363) * lu(k,1361) - lu(k,1391) = lu(k,1391) - lu(k,364) * lu(k,1361) - lu(k,1396) = lu(k,1396) - lu(k,365) * lu(k,1361) - lu(k,1398) = lu(k,1398) - lu(k,366) * lu(k,1361) - lu(k,1403) = lu(k,1403) - lu(k,367) * lu(k,1361) - lu(k,1404) = lu(k,1404) - lu(k,368) * lu(k,1361) - lu(k,1476) = lu(k,1476) - lu(k,360) * lu(k,1462) - lu(k,1479) = lu(k,1479) - lu(k,361) * lu(k,1462) - lu(k,1485) = lu(k,1485) - lu(k,362) * lu(k,1462) - lu(k,1487) = lu(k,1487) - lu(k,363) * lu(k,1462) - lu(k,1488) = - lu(k,364) * lu(k,1462) - lu(k,1493) = lu(k,1493) - lu(k,365) * lu(k,1462) - lu(k,1495) = lu(k,1495) - lu(k,366) * lu(k,1462) - lu(k,1500) = lu(k,1500) - lu(k,367) * lu(k,1462) - lu(k,1501) = lu(k,1501) - lu(k,368) * lu(k,1462) - lu(k,1808) = lu(k,1808) - lu(k,360) * lu(k,1791) - lu(k,1811) = lu(k,1811) - lu(k,361) * lu(k,1791) - lu(k,1817) = lu(k,1817) - lu(k,362) * lu(k,1791) - lu(k,1819) = lu(k,1819) - lu(k,363) * lu(k,1791) - lu(k,1820) = lu(k,1820) - lu(k,364) * lu(k,1791) - lu(k,1825) = lu(k,1825) - lu(k,365) * lu(k,1791) - lu(k,1827) = lu(k,1827) - lu(k,366) * lu(k,1791) - lu(k,1832) = lu(k,1832) - lu(k,367) * lu(k,1791) - lu(k,1833) = lu(k,1833) - lu(k,368) * lu(k,1791) - lu(k,2005) = lu(k,2005) - lu(k,360) * lu(k,1991) - lu(k,2008) = lu(k,2008) - lu(k,361) * lu(k,1991) - lu(k,2014) = lu(k,2014) - lu(k,362) * lu(k,1991) - lu(k,2016) = lu(k,2016) - lu(k,363) * lu(k,1991) - lu(k,2017) = lu(k,2017) - lu(k,364) * lu(k,1991) - lu(k,2022) = - lu(k,365) * lu(k,1991) - lu(k,2024) = lu(k,2024) - lu(k,366) * lu(k,1991) - lu(k,2029) = lu(k,2029) - lu(k,367) * lu(k,1991) - lu(k,2030) = lu(k,2030) - lu(k,368) * lu(k,1991) - lu(k,369) = 1._r8 / lu(k,369) - lu(k,370) = lu(k,370) * lu(k,369) - lu(k,371) = lu(k,371) * lu(k,369) - lu(k,372) = lu(k,372) * lu(k,369) - lu(k,373) = lu(k,373) * lu(k,369) - lu(k,374) = lu(k,374) * lu(k,369) - lu(k,375) = lu(k,375) * lu(k,369) - lu(k,376) = lu(k,376) * lu(k,369) - lu(k,832) = lu(k,832) - lu(k,370) * lu(k,830) - lu(k,836) = - lu(k,371) * lu(k,830) - lu(k,846) = lu(k,846) - lu(k,372) * lu(k,830) - lu(k,847) = lu(k,847) - lu(k,373) * lu(k,830) - lu(k,848) = lu(k,848) - lu(k,374) * lu(k,830) - lu(k,855) = - lu(k,375) * lu(k,830) - lu(k,859) = lu(k,859) - lu(k,376) * lu(k,830) - lu(k,1010) = lu(k,1010) - lu(k,370) * lu(k,1006) - lu(k,1012) = lu(k,1012) - lu(k,371) * lu(k,1006) - lu(k,1022) = lu(k,1022) - lu(k,372) * lu(k,1006) - lu(k,1023) = lu(k,1023) - lu(k,373) * lu(k,1006) - lu(k,1024) = lu(k,1024) - lu(k,374) * lu(k,1006) - lu(k,1032) = lu(k,1032) - lu(k,375) * lu(k,1006) - lu(k,1036) = lu(k,1036) - lu(k,376) * lu(k,1006) - lu(k,1096) = lu(k,1096) - lu(k,370) * lu(k,1089) - lu(k,1100) = lu(k,1100) - lu(k,371) * lu(k,1089) - lu(k,1110) = lu(k,1110) - lu(k,372) * lu(k,1089) - lu(k,1111) = lu(k,1111) - lu(k,373) * lu(k,1089) - lu(k,1112) = lu(k,1112) - lu(k,374) * lu(k,1089) - lu(k,1120) = lu(k,1120) - lu(k,375) * lu(k,1089) - lu(k,1124) = lu(k,1124) - lu(k,376) * lu(k,1089) - lu(k,1374) = lu(k,1374) - lu(k,370) * lu(k,1362) - lu(k,1378) = lu(k,1378) - lu(k,371) * lu(k,1362) - lu(k,1388) = lu(k,1388) - lu(k,372) * lu(k,1362) - lu(k,1389) = lu(k,1389) - lu(k,373) * lu(k,1362) - lu(k,1390) = lu(k,1390) - lu(k,374) * lu(k,1362) - lu(k,1398) = lu(k,1398) - lu(k,375) * lu(k,1362) - lu(k,1402) = lu(k,1402) - lu(k,376) * lu(k,1362) - lu(k,1471) = lu(k,1471) - lu(k,370) * lu(k,1463) - lu(k,1475) = lu(k,1475) - lu(k,371) * lu(k,1463) - lu(k,1485) = lu(k,1485) - lu(k,372) * lu(k,1463) - lu(k,1486) = lu(k,1486) - lu(k,373) * lu(k,1463) - lu(k,1487) = lu(k,1487) - lu(k,374) * lu(k,1463) - lu(k,1495) = lu(k,1495) - lu(k,375) * lu(k,1463) - lu(k,1499) = - lu(k,376) * lu(k,1463) - lu(k,1548) = lu(k,1548) - lu(k,370) * lu(k,1544) - lu(k,1552) = lu(k,1552) - lu(k,371) * lu(k,1544) - lu(k,1562) = lu(k,1562) - lu(k,372) * lu(k,1544) - lu(k,1563) = lu(k,1563) - lu(k,373) * lu(k,1544) - lu(k,1564) = lu(k,1564) - lu(k,374) * lu(k,1544) - lu(k,1572) = lu(k,1572) - lu(k,375) * lu(k,1544) - lu(k,1576) = lu(k,1576) - lu(k,376) * lu(k,1544) - lu(k,1837) = lu(k,1837) - lu(k,370) * lu(k,1834) - lu(k,1840) = lu(k,1840) - lu(k,371) * lu(k,1834) - lu(k,1850) = lu(k,1850) - lu(k,372) * lu(k,1834) - lu(k,1851) = - lu(k,373) * lu(k,1834) - lu(k,1852) = lu(k,1852) - lu(k,374) * lu(k,1834) - lu(k,1860) = lu(k,1860) - lu(k,375) * lu(k,1834) - lu(k,1864) = - lu(k,376) * lu(k,1834) - lu(k,1956) = lu(k,1956) - lu(k,370) * lu(k,1945) - lu(k,1959) = lu(k,1959) - lu(k,371) * lu(k,1945) - lu(k,1969) = lu(k,1969) - lu(k,372) * lu(k,1945) - lu(k,1970) = lu(k,1970) - lu(k,373) * lu(k,1945) - lu(k,1971) = lu(k,1971) - lu(k,374) * lu(k,1945) - lu(k,1979) = lu(k,1979) - lu(k,375) * lu(k,1945) - lu(k,1983) = lu(k,1983) - lu(k,376) * lu(k,1945) - lu(k,377) = 1._r8 / lu(k,377) - lu(k,378) = lu(k,378) * lu(k,377) - lu(k,379) = lu(k,379) * lu(k,377) - lu(k,380) = lu(k,380) * lu(k,377) - lu(k,381) = lu(k,381) * lu(k,377) - lu(k,382) = lu(k,382) * lu(k,377) - lu(k,383) = lu(k,383) * lu(k,377) - lu(k,384) = lu(k,384) * lu(k,377) - lu(k,461) = lu(k,461) - lu(k,378) * lu(k,460) - lu(k,463) = lu(k,463) - lu(k,379) * lu(k,460) - lu(k,466) = lu(k,466) - lu(k,380) * lu(k,460) - lu(k,467) = - lu(k,381) * lu(k,460) - lu(k,468) = lu(k,468) - lu(k,382) * lu(k,460) - lu(k,470) = - lu(k,383) * lu(k,460) - lu(k,471) = lu(k,471) - lu(k,384) * lu(k,460) - lu(k,782) = - lu(k,378) * lu(k,779) - lu(k,790) = - lu(k,379) * lu(k,779) - lu(k,795) = lu(k,795) - lu(k,380) * lu(k,779) - lu(k,798) = - lu(k,381) * lu(k,779) - lu(k,799) = - lu(k,382) * lu(k,779) - lu(k,804) = - lu(k,383) * lu(k,779) - lu(k,805) = lu(k,805) - lu(k,384) * lu(k,779) - lu(k,1269) = - lu(k,378) * lu(k,1266) - lu(k,1279) = lu(k,1279) - lu(k,379) * lu(k,1266) - lu(k,1287) = lu(k,1287) - lu(k,380) * lu(k,1266) - lu(k,1290) = lu(k,1290) - lu(k,381) * lu(k,1266) - lu(k,1291) = lu(k,1291) - lu(k,382) * lu(k,1266) - lu(k,1298) = lu(k,1298) - lu(k,383) * lu(k,1266) - lu(k,1299) = - lu(k,384) * lu(k,1266) - lu(k,1366) = lu(k,1366) - lu(k,378) * lu(k,1363) - lu(k,1381) = lu(k,1381) - lu(k,379) * lu(k,1363) - lu(k,1389) = lu(k,1389) - lu(k,380) * lu(k,1363) - lu(k,1392) = lu(k,1392) - lu(k,381) * lu(k,1363) - lu(k,1393) = lu(k,1393) - lu(k,382) * lu(k,1363) - lu(k,1400) = lu(k,1400) - lu(k,383) * lu(k,1363) - lu(k,1401) = lu(k,1401) - lu(k,384) * lu(k,1363) - lu(k,1417) = lu(k,1417) - lu(k,378) * lu(k,1414) - lu(k,1430) = lu(k,1430) - lu(k,379) * lu(k,1414) - lu(k,1438) = lu(k,1438) - lu(k,380) * lu(k,1414) - lu(k,1441) = lu(k,1441) - lu(k,381) * lu(k,1414) - lu(k,1442) = lu(k,1442) - lu(k,382) * lu(k,1414) - lu(k,1449) = lu(k,1449) - lu(k,383) * lu(k,1414) - lu(k,1450) = lu(k,1450) - lu(k,384) * lu(k,1414) - lu(k,1546) = - lu(k,378) * lu(k,1545) - lu(k,1555) = lu(k,1555) - lu(k,379) * lu(k,1545) - lu(k,1563) = lu(k,1563) - lu(k,380) * lu(k,1545) - lu(k,1566) = lu(k,1566) - lu(k,381) * lu(k,1545) - lu(k,1567) = lu(k,1567) - lu(k,382) * lu(k,1545) - lu(k,1574) = lu(k,1574) - lu(k,383) * lu(k,1545) - lu(k,1575) = lu(k,1575) - lu(k,384) * lu(k,1545) - lu(k,1868) = - lu(k,378) * lu(k,1867) - lu(k,1879) = lu(k,1879) - lu(k,379) * lu(k,1867) - lu(k,1887) = lu(k,1887) - lu(k,380) * lu(k,1867) - lu(k,1890) = - lu(k,381) * lu(k,1867) - lu(k,1891) = - lu(k,382) * lu(k,1867) - lu(k,1898) = lu(k,1898) - lu(k,383) * lu(k,1867) - lu(k,1899) = lu(k,1899) - lu(k,384) * lu(k,1867) - lu(k,1907) = - lu(k,378) * lu(k,1906) - lu(k,1920) = lu(k,1920) - lu(k,379) * lu(k,1906) - lu(k,1928) = lu(k,1928) - lu(k,380) * lu(k,1906) - lu(k,1931) = lu(k,1931) - lu(k,381) * lu(k,1906) - lu(k,1932) = - lu(k,382) * lu(k,1906) - lu(k,1939) = lu(k,1939) - lu(k,383) * lu(k,1906) - lu(k,1940) = lu(k,1940) - lu(k,384) * lu(k,1906) + lu(k,343) = 1._r8 / lu(k,343) + lu(k,344) = lu(k,344) * lu(k,343) + lu(k,345) = lu(k,345) * lu(k,343) + lu(k,346) = lu(k,346) * lu(k,343) + lu(k,347) = lu(k,347) * lu(k,343) + lu(k,348) = lu(k,348) * lu(k,343) + lu(k,349) = lu(k,349) * lu(k,343) + lu(k,350) = lu(k,350) * lu(k,343) + lu(k,351) = lu(k,351) * lu(k,343) + lu(k,404) = lu(k,404) - lu(k,344) * lu(k,403) + lu(k,405) = lu(k,405) - lu(k,345) * lu(k,403) + lu(k,406) = - lu(k,346) * lu(k,403) + lu(k,409) = lu(k,409) - lu(k,347) * lu(k,403) + lu(k,410) = lu(k,410) - lu(k,348) * lu(k,403) + lu(k,411) = lu(k,411) - lu(k,349) * lu(k,403) + lu(k,413) = lu(k,413) - lu(k,350) * lu(k,403) + lu(k,414) = - lu(k,351) * lu(k,403) + lu(k,1054) = lu(k,1054) - lu(k,344) * lu(k,1053) + lu(k,1055) = lu(k,1055) - lu(k,345) * lu(k,1053) + lu(k,1057) = lu(k,1057) - lu(k,346) * lu(k,1053) + lu(k,1062) = lu(k,1062) - lu(k,347) * lu(k,1053) + lu(k,1067) = lu(k,1067) - lu(k,348) * lu(k,1053) + lu(k,1072) = lu(k,1072) - lu(k,349) * lu(k,1053) + lu(k,1080) = lu(k,1080) - lu(k,350) * lu(k,1053) + lu(k,1081) = lu(k,1081) - lu(k,351) * lu(k,1053) + lu(k,1132) = - lu(k,344) * lu(k,1131) + lu(k,1133) = lu(k,1133) - lu(k,345) * lu(k,1131) + lu(k,1144) = - lu(k,346) * lu(k,1131) + lu(k,1154) = lu(k,1154) - lu(k,347) * lu(k,1131) + lu(k,1159) = lu(k,1159) - lu(k,348) * lu(k,1131) + lu(k,1164) = - lu(k,349) * lu(k,1131) + lu(k,1172) = lu(k,1172) - lu(k,350) * lu(k,1131) + lu(k,1173) = lu(k,1173) - lu(k,351) * lu(k,1131) + lu(k,1364) = lu(k,1364) - lu(k,344) * lu(k,1359) + lu(k,1365) = lu(k,1365) - lu(k,345) * lu(k,1359) + lu(k,1373) = lu(k,1373) - lu(k,346) * lu(k,1359) + lu(k,1383) = lu(k,1383) - lu(k,347) * lu(k,1359) + lu(k,1388) = lu(k,1388) - lu(k,348) * lu(k,1359) + lu(k,1393) = lu(k,1393) - lu(k,349) * lu(k,1359) + lu(k,1401) = lu(k,1401) - lu(k,350) * lu(k,1359) + lu(k,1402) = lu(k,1402) - lu(k,351) * lu(k,1359) + lu(k,1906) = lu(k,1906) - lu(k,344) * lu(k,1903) + lu(k,1907) = lu(k,1907) - lu(k,345) * lu(k,1903) + lu(k,1914) = lu(k,1914) - lu(k,346) * lu(k,1903) + lu(k,1923) = lu(k,1923) - lu(k,347) * lu(k,1903) + lu(k,1928) = lu(k,1928) - lu(k,348) * lu(k,1903) + lu(k,1933) = lu(k,1933) - lu(k,349) * lu(k,1903) + lu(k,1941) = lu(k,1941) - lu(k,350) * lu(k,1903) + lu(k,1942) = lu(k,1942) - lu(k,351) * lu(k,1903) + lu(k,1948) = - lu(k,344) * lu(k,1946) + lu(k,1950) = lu(k,1950) - lu(k,345) * lu(k,1946) + lu(k,1958) = - lu(k,346) * lu(k,1946) + lu(k,1967) = lu(k,1967) - lu(k,347) * lu(k,1946) + lu(k,1972) = lu(k,1972) - lu(k,348) * lu(k,1946) + lu(k,1977) = lu(k,1977) - lu(k,349) * lu(k,1946) + lu(k,1985) = lu(k,1985) - lu(k,350) * lu(k,1946) + lu(k,1986) = lu(k,1986) - lu(k,351) * lu(k,1946) + lu(k,353) = 1._r8 / lu(k,353) + lu(k,354) = lu(k,354) * lu(k,353) + lu(k,355) = lu(k,355) * lu(k,353) + lu(k,356) = lu(k,356) * lu(k,353) + lu(k,357) = lu(k,357) * lu(k,353) + lu(k,358) = lu(k,358) * lu(k,353) + lu(k,478) = lu(k,478) - lu(k,354) * lu(k,477) + lu(k,481) = - lu(k,355) * lu(k,477) + lu(k,482) = lu(k,482) - lu(k,356) * lu(k,477) + lu(k,485) = lu(k,485) - lu(k,357) * lu(k,477) + lu(k,491) = - lu(k,358) * lu(k,477) + lu(k,715) = lu(k,715) - lu(k,354) * lu(k,714) + lu(k,720) = lu(k,720) - lu(k,355) * lu(k,714) + lu(k,721) = lu(k,721) - lu(k,356) * lu(k,714) + lu(k,724) = lu(k,724) - lu(k,357) * lu(k,714) + lu(k,734) = lu(k,734) - lu(k,358) * lu(k,714) + lu(k,979) = lu(k,979) - lu(k,354) * lu(k,974) + lu(k,985) = lu(k,985) - lu(k,355) * lu(k,974) + lu(k,986) = lu(k,986) - lu(k,356) * lu(k,974) + lu(k,992) = lu(k,992) - lu(k,357) * lu(k,974) + lu(k,1007) = lu(k,1007) - lu(k,358) * lu(k,974) + lu(k,1093) = lu(k,1093) - lu(k,354) * lu(k,1089) + lu(k,1101) = lu(k,1101) - lu(k,355) * lu(k,1089) + lu(k,1103) = lu(k,1103) - lu(k,356) * lu(k,1089) + lu(k,1112) = lu(k,1112) - lu(k,357) * lu(k,1089) + lu(k,1128) = lu(k,1128) - lu(k,358) * lu(k,1089) + lu(k,1224) = lu(k,1224) - lu(k,354) * lu(k,1221) + lu(k,1232) = lu(k,1232) - lu(k,355) * lu(k,1221) + lu(k,1234) = lu(k,1234) - lu(k,356) * lu(k,1221) + lu(k,1243) = lu(k,1243) - lu(k,357) * lu(k,1221) + lu(k,1259) = - lu(k,358) * lu(k,1221) + lu(k,1367) = lu(k,1367) - lu(k,354) * lu(k,1360) + lu(k,1377) = lu(k,1377) - lu(k,355) * lu(k,1360) + lu(k,1379) = lu(k,1379) - lu(k,356) * lu(k,1360) + lu(k,1388) = lu(k,1388) - lu(k,357) * lu(k,1360) + lu(k,1404) = lu(k,1404) - lu(k,358) * lu(k,1360) + lu(k,1707) = - lu(k,354) * lu(k,1705) + lu(k,1716) = lu(k,1716) - lu(k,355) * lu(k,1705) + lu(k,1718) = lu(k,1718) - lu(k,356) * lu(k,1705) + lu(k,1726) = lu(k,1726) - lu(k,357) * lu(k,1705) + lu(k,1742) = - lu(k,358) * lu(k,1705) + lu(k,1787) = lu(k,1787) - lu(k,354) * lu(k,1783) + lu(k,1799) = lu(k,1799) - lu(k,355) * lu(k,1783) + lu(k,1801) = lu(k,1801) - lu(k,356) * lu(k,1783) + lu(k,1810) = lu(k,1810) - lu(k,357) * lu(k,1783) + lu(k,1826) = lu(k,1826) - lu(k,358) * lu(k,1783) + lu(k,1909) = lu(k,1909) - lu(k,354) * lu(k,1904) + lu(k,1917) = lu(k,1917) - lu(k,355) * lu(k,1904) + lu(k,1919) = lu(k,1919) - lu(k,356) * lu(k,1904) + lu(k,1928) = lu(k,1928) - lu(k,357) * lu(k,1904) + lu(k,1944) = - lu(k,358) * lu(k,1904) + lu(k,2052) = - lu(k,354) * lu(k,2048) + lu(k,2066) = - lu(k,355) * lu(k,2048) + lu(k,2068) = lu(k,2068) - lu(k,356) * lu(k,2048) + lu(k,2077) = lu(k,2077) - lu(k,357) * lu(k,2048) + lu(k,2093) = lu(k,2093) - lu(k,358) * lu(k,2048) + lu(k,361) = 1._r8 / lu(k,361) + lu(k,362) = lu(k,362) * lu(k,361) + lu(k,363) = lu(k,363) * lu(k,361) + lu(k,364) = lu(k,364) * lu(k,361) + lu(k,365) = lu(k,365) * lu(k,361) + lu(k,366) = lu(k,366) * lu(k,361) + lu(k,367) = lu(k,367) * lu(k,361) + lu(k,368) = lu(k,368) * lu(k,361) + lu(k,369) = lu(k,369) * lu(k,361) + lu(k,370) = lu(k,370) * lu(k,361) + lu(k,986) = lu(k,986) - lu(k,362) * lu(k,975) + lu(k,988) = lu(k,988) - lu(k,363) * lu(k,975) + lu(k,992) = lu(k,992) - lu(k,364) * lu(k,975) + lu(k,993) = lu(k,993) - lu(k,365) * lu(k,975) + lu(k,994) = lu(k,994) - lu(k,366) * lu(k,975) + lu(k,999) = lu(k,999) - lu(k,367) * lu(k,975) + lu(k,1001) = lu(k,1001) - lu(k,368) * lu(k,975) + lu(k,1006) = lu(k,1006) - lu(k,369) * lu(k,975) + lu(k,1007) = lu(k,1007) - lu(k,370) * lu(k,975) + lu(k,1103) = lu(k,1103) - lu(k,362) * lu(k,1090) + lu(k,1106) = lu(k,1106) - lu(k,363) * lu(k,1090) + lu(k,1112) = lu(k,1112) - lu(k,364) * lu(k,1090) + lu(k,1114) = lu(k,1114) - lu(k,365) * lu(k,1090) + lu(k,1115) = - lu(k,366) * lu(k,1090) + lu(k,1120) = lu(k,1120) - lu(k,367) * lu(k,1090) + lu(k,1122) = lu(k,1122) - lu(k,368) * lu(k,1090) + lu(k,1127) = lu(k,1127) - lu(k,369) * lu(k,1090) + lu(k,1128) = lu(k,1128) - lu(k,370) * lu(k,1090) + lu(k,1379) = lu(k,1379) - lu(k,362) * lu(k,1361) + lu(k,1382) = lu(k,1382) - lu(k,363) * lu(k,1361) + lu(k,1388) = lu(k,1388) - lu(k,364) * lu(k,1361) + lu(k,1390) = lu(k,1390) - lu(k,365) * lu(k,1361) + lu(k,1391) = lu(k,1391) - lu(k,366) * lu(k,1361) + lu(k,1396) = lu(k,1396) - lu(k,367) * lu(k,1361) + lu(k,1398) = lu(k,1398) - lu(k,368) * lu(k,1361) + lu(k,1403) = lu(k,1403) - lu(k,369) * lu(k,1361) + lu(k,1404) = lu(k,1404) - lu(k,370) * lu(k,1361) + lu(k,1470) = lu(k,1470) - lu(k,362) * lu(k,1456) + lu(k,1473) = lu(k,1473) - lu(k,363) * lu(k,1456) + lu(k,1479) = lu(k,1479) - lu(k,364) * lu(k,1456) + lu(k,1481) = lu(k,1481) - lu(k,365) * lu(k,1456) + lu(k,1482) = - lu(k,366) * lu(k,1456) + lu(k,1487) = lu(k,1487) - lu(k,367) * lu(k,1456) + lu(k,1489) = lu(k,1489) - lu(k,368) * lu(k,1456) + lu(k,1494) = lu(k,1494) - lu(k,369) * lu(k,1456) + lu(k,1495) = lu(k,1495) - lu(k,370) * lu(k,1456) + lu(k,1801) = lu(k,1801) - lu(k,362) * lu(k,1784) + lu(k,1804) = lu(k,1804) - lu(k,363) * lu(k,1784) + lu(k,1810) = lu(k,1810) - lu(k,364) * lu(k,1784) + lu(k,1812) = lu(k,1812) - lu(k,365) * lu(k,1784) + lu(k,1813) = lu(k,1813) - lu(k,366) * lu(k,1784) + lu(k,1818) = lu(k,1818) - lu(k,367) * lu(k,1784) + lu(k,1820) = lu(k,1820) - lu(k,368) * lu(k,1784) + lu(k,1825) = lu(k,1825) - lu(k,369) * lu(k,1784) + lu(k,1826) = lu(k,1826) - lu(k,370) * lu(k,1784) + lu(k,2008) = lu(k,2008) - lu(k,362) * lu(k,1994) + lu(k,2011) = lu(k,2011) - lu(k,363) * lu(k,1994) + lu(k,2017) = lu(k,2017) - lu(k,364) * lu(k,1994) + lu(k,2019) = lu(k,2019) - lu(k,365) * lu(k,1994) + lu(k,2020) = lu(k,2020) - lu(k,366) * lu(k,1994) + lu(k,2025) = - lu(k,367) * lu(k,1994) + lu(k,2027) = lu(k,2027) - lu(k,368) * lu(k,1994) + lu(k,2032) = lu(k,2032) - lu(k,369) * lu(k,1994) + lu(k,2033) = lu(k,2033) - lu(k,370) * lu(k,1994) + lu(k,371) = 1._r8 / lu(k,371) + lu(k,372) = lu(k,372) * lu(k,371) + lu(k,373) = lu(k,373) * lu(k,371) + lu(k,374) = lu(k,374) * lu(k,371) + lu(k,375) = lu(k,375) * lu(k,371) + lu(k,376) = lu(k,376) * lu(k,371) + lu(k,377) = lu(k,377) * lu(k,371) + lu(k,378) = lu(k,378) * lu(k,371) + lu(k,834) = lu(k,834) - lu(k,372) * lu(k,832) + lu(k,838) = - lu(k,373) * lu(k,832) + lu(k,848) = lu(k,848) - lu(k,374) * lu(k,832) + lu(k,850) = lu(k,850) - lu(k,375) * lu(k,832) + lu(k,857) = - lu(k,376) * lu(k,832) + lu(k,860) = lu(k,860) - lu(k,377) * lu(k,832) + lu(k,861) = lu(k,861) - lu(k,378) * lu(k,832) + lu(k,1012) = lu(k,1012) - lu(k,372) * lu(k,1008) + lu(k,1014) = lu(k,1014) - lu(k,373) * lu(k,1008) + lu(k,1024) = lu(k,1024) - lu(k,374) * lu(k,1008) + lu(k,1026) = lu(k,1026) - lu(k,375) * lu(k,1008) + lu(k,1034) = lu(k,1034) - lu(k,376) * lu(k,1008) + lu(k,1037) = lu(k,1037) - lu(k,377) * lu(k,1008) + lu(k,1038) = lu(k,1038) - lu(k,378) * lu(k,1008) + lu(k,1098) = lu(k,1098) - lu(k,372) * lu(k,1091) + lu(k,1102) = lu(k,1102) - lu(k,373) * lu(k,1091) + lu(k,1112) = lu(k,1112) - lu(k,374) * lu(k,1091) + lu(k,1114) = lu(k,1114) - lu(k,375) * lu(k,1091) + lu(k,1122) = lu(k,1122) - lu(k,376) * lu(k,1091) + lu(k,1125) = lu(k,1125) - lu(k,377) * lu(k,1091) + lu(k,1126) = lu(k,1126) - lu(k,378) * lu(k,1091) + lu(k,1374) = lu(k,1374) - lu(k,372) * lu(k,1362) + lu(k,1378) = lu(k,1378) - lu(k,373) * lu(k,1362) + lu(k,1388) = lu(k,1388) - lu(k,374) * lu(k,1362) + lu(k,1390) = lu(k,1390) - lu(k,375) * lu(k,1362) + lu(k,1398) = lu(k,1398) - lu(k,376) * lu(k,1362) + lu(k,1401) = lu(k,1401) - lu(k,377) * lu(k,1362) + lu(k,1402) = lu(k,1402) - lu(k,378) * lu(k,1362) + lu(k,1465) = lu(k,1465) - lu(k,372) * lu(k,1457) + lu(k,1469) = lu(k,1469) - lu(k,373) * lu(k,1457) + lu(k,1479) = lu(k,1479) - lu(k,374) * lu(k,1457) + lu(k,1481) = lu(k,1481) - lu(k,375) * lu(k,1457) + lu(k,1489) = lu(k,1489) - lu(k,376) * lu(k,1457) + lu(k,1492) = lu(k,1492) - lu(k,377) * lu(k,1457) + lu(k,1493) = - lu(k,378) * lu(k,1457) + lu(k,1542) = lu(k,1542) - lu(k,372) * lu(k,1538) + lu(k,1546) = lu(k,1546) - lu(k,373) * lu(k,1538) + lu(k,1556) = lu(k,1556) - lu(k,374) * lu(k,1538) + lu(k,1558) = lu(k,1558) - lu(k,375) * lu(k,1538) + lu(k,1566) = lu(k,1566) - lu(k,376) * lu(k,1538) + lu(k,1569) = lu(k,1569) - lu(k,377) * lu(k,1538) + lu(k,1570) = lu(k,1570) - lu(k,378) * lu(k,1538) + lu(k,1830) = lu(k,1830) - lu(k,372) * lu(k,1827) + lu(k,1833) = lu(k,1833) - lu(k,373) * lu(k,1827) + lu(k,1843) = lu(k,1843) - lu(k,374) * lu(k,1827) + lu(k,1845) = lu(k,1845) - lu(k,375) * lu(k,1827) + lu(k,1853) = lu(k,1853) - lu(k,376) * lu(k,1827) + lu(k,1856) = - lu(k,377) * lu(k,1827) + lu(k,1857) = - lu(k,378) * lu(k,1827) + lu(k,1959) = lu(k,1959) - lu(k,372) * lu(k,1947) + lu(k,1962) = lu(k,1962) - lu(k,373) * lu(k,1947) + lu(k,1972) = lu(k,1972) - lu(k,374) * lu(k,1947) + lu(k,1974) = lu(k,1974) - lu(k,375) * lu(k,1947) + lu(k,1982) = lu(k,1982) - lu(k,376) * lu(k,1947) + lu(k,1985) = lu(k,1985) - lu(k,377) * lu(k,1947) + lu(k,1986) = lu(k,1986) - lu(k,378) * lu(k,1947) end do end subroutine lu_fac09 subroutine lu_fac10( avec_len, lu ) @@ -1656,254 +1606,229 @@ subroutine lu_fac10( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,388) = 1._r8 / lu(k,388) - lu(k,389) = lu(k,389) * lu(k,388) - lu(k,390) = lu(k,390) * lu(k,388) - lu(k,391) = lu(k,391) * lu(k,388) - lu(k,392) = lu(k,392) * lu(k,388) - lu(k,393) = lu(k,393) * lu(k,388) - lu(k,394) = lu(k,394) * lu(k,388) - lu(k,395) = lu(k,395) * lu(k,388) - lu(k,396) = lu(k,396) * lu(k,388) - lu(k,397) = lu(k,397) * lu(k,388) - lu(k,398) = lu(k,398) * lu(k,388) - lu(k,446) = lu(k,446) - lu(k,389) * lu(k,445) - lu(k,447) = lu(k,447) - lu(k,390) * lu(k,445) - lu(k,448) = - lu(k,391) * lu(k,445) - lu(k,449) = lu(k,449) - lu(k,392) * lu(k,445) - lu(k,451) = lu(k,451) - lu(k,393) * lu(k,445) - lu(k,452) = - lu(k,394) * lu(k,445) - lu(k,453) = lu(k,453) - lu(k,395) * lu(k,445) - lu(k,454) = lu(k,454) - lu(k,396) * lu(k,445) - lu(k,455) = lu(k,455) - lu(k,397) * lu(k,445) - lu(k,458) = lu(k,458) - lu(k,398) * lu(k,445) - lu(k,1053) = lu(k,1053) - lu(k,389) * lu(k,1052) - lu(k,1055) = lu(k,1055) - lu(k,390) * lu(k,1052) - lu(k,1056) = - lu(k,391) * lu(k,1052) - lu(k,1057) = lu(k,1057) - lu(k,392) * lu(k,1052) - lu(k,1060) = lu(k,1060) - lu(k,393) * lu(k,1052) - lu(k,1063) = lu(k,1063) - lu(k,394) * lu(k,1052) - lu(k,1065) = lu(k,1065) - lu(k,395) * lu(k,1052) - lu(k,1066) = lu(k,1066) - lu(k,396) * lu(k,1052) - lu(k,1070) = lu(k,1070) - lu(k,397) * lu(k,1052) - lu(k,1079) = lu(k,1079) - lu(k,398) * lu(k,1052) - lu(k,1132) = lu(k,1132) - lu(k,389) * lu(k,1131) - lu(k,1143) = lu(k,1143) - lu(k,390) * lu(k,1131) - lu(k,1147) = - lu(k,391) * lu(k,1131) - lu(k,1149) = lu(k,1149) - lu(k,392) * lu(k,1131) - lu(k,1153) = lu(k,1153) - lu(k,393) * lu(k,1131) - lu(k,1156) = lu(k,1156) - lu(k,394) * lu(k,1131) - lu(k,1158) = lu(k,1158) - lu(k,395) * lu(k,1131) - lu(k,1159) = lu(k,1159) - lu(k,396) * lu(k,1131) - lu(k,1163) = lu(k,1163) - lu(k,397) * lu(k,1131) - lu(k,1172) = lu(k,1172) - lu(k,398) * lu(k,1131) - lu(k,1268) = - lu(k,389) * lu(k,1267) - lu(k,1272) = - lu(k,390) * lu(k,1267) - lu(k,1275) = lu(k,1275) - lu(k,391) * lu(k,1267) - lu(k,1277) = lu(k,1277) - lu(k,392) * lu(k,1267) - lu(k,1281) = lu(k,1281) - lu(k,393) * lu(k,1267) - lu(k,1284) = lu(k,1284) - lu(k,394) * lu(k,1267) - lu(k,1286) = lu(k,1286) - lu(k,395) * lu(k,1267) - lu(k,1287) = lu(k,1287) - lu(k,396) * lu(k,1267) - lu(k,1291) = lu(k,1291) - lu(k,397) * lu(k,1267) - lu(k,1300) = lu(k,1300) - lu(k,398) * lu(k,1267) - lu(k,1365) = lu(k,1365) - lu(k,389) * lu(k,1364) - lu(k,1373) = lu(k,1373) - lu(k,390) * lu(k,1364) - lu(k,1377) = lu(k,1377) - lu(k,391) * lu(k,1364) - lu(k,1379) = lu(k,1379) - lu(k,392) * lu(k,1364) - lu(k,1383) = lu(k,1383) - lu(k,393) * lu(k,1364) - lu(k,1386) = lu(k,1386) - lu(k,394) * lu(k,1364) - lu(k,1388) = lu(k,1388) - lu(k,395) * lu(k,1364) - lu(k,1389) = lu(k,1389) - lu(k,396) * lu(k,1364) - lu(k,1393) = lu(k,1393) - lu(k,397) * lu(k,1364) - lu(k,1402) = lu(k,1402) - lu(k,398) * lu(k,1364) - lu(k,1416) = lu(k,1416) - lu(k,389) * lu(k,1415) - lu(k,1423) = lu(k,1423) - lu(k,390) * lu(k,1415) - lu(k,1426) = lu(k,1426) - lu(k,391) * lu(k,1415) - lu(k,1428) = lu(k,1428) - lu(k,392) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,393) * lu(k,1415) - lu(k,1435) = lu(k,1435) - lu(k,394) * lu(k,1415) - lu(k,1437) = lu(k,1437) - lu(k,395) * lu(k,1415) - lu(k,1438) = lu(k,1438) - lu(k,396) * lu(k,1415) - lu(k,1442) = lu(k,1442) - lu(k,397) * lu(k,1415) - lu(k,1451) = lu(k,1451) - lu(k,398) * lu(k,1415) - lu(k,401) = 1._r8 / lu(k,401) - lu(k,402) = lu(k,402) * lu(k,401) - lu(k,403) = lu(k,403) * lu(k,401) - lu(k,404) = lu(k,404) * lu(k,401) - lu(k,405) = lu(k,405) * lu(k,401) - lu(k,406) = lu(k,406) * lu(k,401) - lu(k,407) = lu(k,407) * lu(k,401) - lu(k,408) = lu(k,408) * lu(k,401) - lu(k,409) = lu(k,409) * lu(k,401) - lu(k,410) = lu(k,410) * lu(k,401) - lu(k,411) = lu(k,411) * lu(k,401) - lu(k,412) = lu(k,412) * lu(k,401) - lu(k,624) = lu(k,624) - lu(k,402) * lu(k,623) - lu(k,625) = lu(k,625) - lu(k,403) * lu(k,623) - lu(k,626) = lu(k,626) - lu(k,404) * lu(k,623) - lu(k,632) = - lu(k,405) * lu(k,623) - lu(k,634) = lu(k,634) - lu(k,406) * lu(k,623) - lu(k,636) = lu(k,636) - lu(k,407) * lu(k,623) - lu(k,637) = lu(k,637) - lu(k,408) * lu(k,623) - lu(k,638) = lu(k,638) - lu(k,409) * lu(k,623) - lu(k,640) = - lu(k,410) * lu(k,623) - lu(k,641) = lu(k,641) - lu(k,411) * lu(k,623) - lu(k,642) = lu(k,642) - lu(k,412) * lu(k,623) - lu(k,689) = lu(k,689) - lu(k,402) * lu(k,688) - lu(k,690) = lu(k,690) - lu(k,403) * lu(k,688) - lu(k,691) = lu(k,691) - lu(k,404) * lu(k,688) - lu(k,697) = - lu(k,405) * lu(k,688) - lu(k,699) = lu(k,699) - lu(k,406) * lu(k,688) - lu(k,701) = lu(k,701) - lu(k,407) * lu(k,688) - lu(k,702) = lu(k,702) - lu(k,408) * lu(k,688) - lu(k,703) = lu(k,703) - lu(k,409) * lu(k,688) - lu(k,705) = - lu(k,410) * lu(k,688) - lu(k,706) = lu(k,706) - lu(k,411) * lu(k,688) - lu(k,707) = lu(k,707) - lu(k,412) * lu(k,688) - lu(k,1632) = lu(k,1632) - lu(k,402) * lu(k,1625) - lu(k,1633) = lu(k,1633) - lu(k,403) * lu(k,1625) - lu(k,1635) = lu(k,1635) - lu(k,404) * lu(k,1625) - lu(k,1650) = lu(k,1650) - lu(k,405) * lu(k,1625) - lu(k,1653) = lu(k,1653) - lu(k,406) * lu(k,1625) - lu(k,1656) = lu(k,1656) - lu(k,407) * lu(k,1625) - lu(k,1657) = lu(k,1657) - lu(k,408) * lu(k,1625) - lu(k,1658) = lu(k,1658) - lu(k,409) * lu(k,1625) - lu(k,1660) = lu(k,1660) - lu(k,410) * lu(k,1625) - lu(k,1664) = - lu(k,411) * lu(k,1625) - lu(k,1666) = lu(k,1666) - lu(k,412) * lu(k,1625) - lu(k,1675) = lu(k,1675) - lu(k,402) * lu(k,1668) - lu(k,1676) = lu(k,1676) - lu(k,403) * lu(k,1668) - lu(k,1678) = lu(k,1678) - lu(k,404) * lu(k,1668) - lu(k,1693) = lu(k,1693) - lu(k,405) * lu(k,1668) - lu(k,1696) = lu(k,1696) - lu(k,406) * lu(k,1668) - lu(k,1699) = lu(k,1699) - lu(k,407) * lu(k,1668) - lu(k,1700) = lu(k,1700) - lu(k,408) * lu(k,1668) - lu(k,1701) = lu(k,1701) - lu(k,409) * lu(k,1668) - lu(k,1703) = lu(k,1703) - lu(k,410) * lu(k,1668) - lu(k,1707) = - lu(k,411) * lu(k,1668) - lu(k,1709) = lu(k,1709) - lu(k,412) * lu(k,1668) - lu(k,1716) = - lu(k,402) * lu(k,1713) - lu(k,1717) = - lu(k,403) * lu(k,1713) - lu(k,1718) = - lu(k,404) * lu(k,1713) - lu(k,1733) = lu(k,1733) - lu(k,405) * lu(k,1713) - lu(k,1736) = lu(k,1736) - lu(k,406) * lu(k,1713) - lu(k,1739) = - lu(k,407) * lu(k,1713) - lu(k,1740) = - lu(k,408) * lu(k,1713) - lu(k,1741) = lu(k,1741) - lu(k,409) * lu(k,1713) - lu(k,1743) = lu(k,1743) - lu(k,410) * lu(k,1713) - lu(k,1747) = lu(k,1747) - lu(k,411) * lu(k,1713) - lu(k,1749) = lu(k,1749) - lu(k,412) * lu(k,1713) - lu(k,1797) = - lu(k,402) * lu(k,1792) - lu(k,1798) = - lu(k,403) * lu(k,1792) - lu(k,1800) = lu(k,1800) - lu(k,404) * lu(k,1792) - lu(k,1817) = lu(k,1817) - lu(k,405) * lu(k,1792) - lu(k,1820) = lu(k,1820) - lu(k,406) * lu(k,1792) - lu(k,1823) = - lu(k,407) * lu(k,1792) - lu(k,1824) = - lu(k,408) * lu(k,1792) - lu(k,1825) = lu(k,1825) - lu(k,409) * lu(k,1792) - lu(k,1827) = lu(k,1827) - lu(k,410) * lu(k,1792) - lu(k,1831) = lu(k,1831) - lu(k,411) * lu(k,1792) - lu(k,1833) = lu(k,1833) - lu(k,412) * lu(k,1792) - lu(k,416) = 1._r8 / lu(k,416) - lu(k,417) = lu(k,417) * lu(k,416) - lu(k,418) = lu(k,418) * lu(k,416) - lu(k,419) = lu(k,419) * lu(k,416) - lu(k,420) = lu(k,420) * lu(k,416) - lu(k,421) = lu(k,421) * lu(k,416) - lu(k,422) = lu(k,422) * lu(k,416) - lu(k,423) = lu(k,423) * lu(k,416) - lu(k,424) = lu(k,424) * lu(k,416) - lu(k,425) = lu(k,425) * lu(k,416) - lu(k,426) = lu(k,426) * lu(k,416) - lu(k,427) = lu(k,427) * lu(k,416) - lu(k,428) = lu(k,428) * lu(k,416) - lu(k,429) = lu(k,429) * lu(k,416) - lu(k,430) = lu(k,430) * lu(k,416) - lu(k,646) = lu(k,646) - lu(k,417) * lu(k,645) - lu(k,647) = lu(k,647) - lu(k,418) * lu(k,645) - lu(k,648) = - lu(k,419) * lu(k,645) - lu(k,649) = lu(k,649) - lu(k,420) * lu(k,645) - lu(k,650) = - lu(k,421) * lu(k,645) - lu(k,651) = lu(k,651) - lu(k,422) * lu(k,645) - lu(k,654) = - lu(k,423) * lu(k,645) - lu(k,655) = lu(k,655) - lu(k,424) * lu(k,645) - lu(k,657) = lu(k,657) - lu(k,425) * lu(k,645) - lu(k,658) = lu(k,658) - lu(k,426) * lu(k,645) - lu(k,659) = lu(k,659) - lu(k,427) * lu(k,645) - lu(k,660) = lu(k,660) - lu(k,428) * lu(k,645) - lu(k,665) = lu(k,665) - lu(k,429) * lu(k,645) - lu(k,666) = lu(k,666) - lu(k,430) * lu(k,645) - lu(k,781) = lu(k,781) - lu(k,417) * lu(k,780) - lu(k,784) = lu(k,784) - lu(k,418) * lu(k,780) - lu(k,786) = lu(k,786) - lu(k,419) * lu(k,780) - lu(k,787) = lu(k,787) - lu(k,420) * lu(k,780) - lu(k,788) = lu(k,788) - lu(k,421) * lu(k,780) - lu(k,789) = lu(k,789) - lu(k,422) * lu(k,780) - lu(k,793) = - lu(k,423) * lu(k,780) - lu(k,794) = lu(k,794) - lu(k,424) * lu(k,780) - lu(k,796) = lu(k,796) - lu(k,425) * lu(k,780) - lu(k,797) = lu(k,797) - lu(k,426) * lu(k,780) - lu(k,800) = lu(k,800) - lu(k,427) * lu(k,780) - lu(k,801) = lu(k,801) - lu(k,428) * lu(k,780) - lu(k,807) = lu(k,807) - lu(k,429) * lu(k,780) - lu(k,808) = lu(k,808) - lu(k,430) * lu(k,780) - lu(k,975) = lu(k,975) - lu(k,417) * lu(k,974) - lu(k,979) = lu(k,979) - lu(k,418) * lu(k,974) - lu(k,981) = lu(k,981) - lu(k,419) * lu(k,974) - lu(k,982) = lu(k,982) - lu(k,420) * lu(k,974) - lu(k,983) = lu(k,983) - lu(k,421) * lu(k,974) - lu(k,984) = lu(k,984) - lu(k,422) * lu(k,974) - lu(k,989) = lu(k,989) - lu(k,423) * lu(k,974) - lu(k,991) = lu(k,991) - lu(k,424) * lu(k,974) - lu(k,993) = lu(k,993) - lu(k,425) * lu(k,974) - lu(k,994) = lu(k,994) - lu(k,426) * lu(k,974) - lu(k,997) = lu(k,997) - lu(k,427) * lu(k,974) - lu(k,998) = lu(k,998) - lu(k,428) * lu(k,974) - lu(k,1004) = lu(k,1004) - lu(k,429) * lu(k,974) - lu(k,1005) = lu(k,1005) - lu(k,430) * lu(k,974) - lu(k,1465) = lu(k,1465) - lu(k,417) * lu(k,1464) - lu(k,1467) = lu(k,1467) - lu(k,418) * lu(k,1464) - lu(k,1469) = lu(k,1469) - lu(k,419) * lu(k,1464) - lu(k,1470) = lu(k,1470) - lu(k,420) * lu(k,1464) - lu(k,1474) = lu(k,1474) - lu(k,421) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,422) * lu(k,1464) - lu(k,1483) = lu(k,1483) - lu(k,423) * lu(k,1464) - lu(k,1485) = lu(k,1485) - lu(k,424) * lu(k,1464) - lu(k,1487) = lu(k,1487) - lu(k,425) * lu(k,1464) - lu(k,1488) = lu(k,1488) - lu(k,426) * lu(k,1464) - lu(k,1493) = lu(k,1493) - lu(k,427) * lu(k,1464) - lu(k,1494) = lu(k,1494) - lu(k,428) * lu(k,1464) - lu(k,1500) = lu(k,1500) - lu(k,429) * lu(k,1464) - lu(k,1501) = lu(k,1501) - lu(k,430) * lu(k,1464) - lu(k,1506) = lu(k,1506) - lu(k,417) * lu(k,1505) - lu(k,1509) = lu(k,1509) - lu(k,418) * lu(k,1505) - lu(k,1511) = - lu(k,419) * lu(k,1505) - lu(k,1512) = - lu(k,420) * lu(k,1505) - lu(k,1515) = lu(k,1515) - lu(k,421) * lu(k,1505) - lu(k,1517) = lu(k,1517) - lu(k,422) * lu(k,1505) - lu(k,1524) = lu(k,1524) - lu(k,423) * lu(k,1505) - lu(k,1526) = - lu(k,424) * lu(k,1505) - lu(k,1528) = - lu(k,425) * lu(k,1505) - lu(k,1529) = lu(k,1529) - lu(k,426) * lu(k,1505) - lu(k,1534) = lu(k,1534) - lu(k,427) * lu(k,1505) - lu(k,1535) = lu(k,1535) - lu(k,428) * lu(k,1505) - lu(k,1541) = lu(k,1541) - lu(k,429) * lu(k,1505) - lu(k,1542) = lu(k,1542) - lu(k,430) * lu(k,1505) - lu(k,2047) = lu(k,2047) - lu(k,417) * lu(k,2046) - lu(k,2055) = lu(k,2055) - lu(k,418) * lu(k,2046) - lu(k,2059) = - lu(k,419) * lu(k,2046) - lu(k,2060) = lu(k,2060) - lu(k,420) * lu(k,2046) - lu(k,2063) = lu(k,2063) - lu(k,421) * lu(k,2046) - lu(k,2065) = lu(k,2065) - lu(k,422) * lu(k,2046) - lu(k,2072) = lu(k,2072) - lu(k,423) * lu(k,2046) - lu(k,2074) = lu(k,2074) - lu(k,424) * lu(k,2046) - lu(k,2076) = - lu(k,425) * lu(k,2046) - lu(k,2077) = lu(k,2077) - lu(k,426) * lu(k,2046) - lu(k,2082) = lu(k,2082) - lu(k,427) * lu(k,2046) - lu(k,2083) = lu(k,2083) - lu(k,428) * lu(k,2046) - lu(k,2089) = - lu(k,429) * lu(k,2046) - lu(k,2090) = lu(k,2090) - lu(k,430) * lu(k,2046) + lu(k,379) = 1._r8 / lu(k,379) + lu(k,380) = lu(k,380) * lu(k,379) + lu(k,381) = lu(k,381) * lu(k,379) + lu(k,382) = lu(k,382) * lu(k,379) + lu(k,383) = lu(k,383) * lu(k,379) + lu(k,384) = lu(k,384) * lu(k,379) + lu(k,385) = lu(k,385) * lu(k,379) + lu(k,386) = lu(k,386) * lu(k,379) + lu(k,463) = lu(k,463) - lu(k,380) * lu(k,462) + lu(k,465) = lu(k,465) - lu(k,381) * lu(k,462) + lu(k,466) = lu(k,466) - lu(k,382) * lu(k,462) + lu(k,468) = - lu(k,383) * lu(k,462) + lu(k,469) = lu(k,469) - lu(k,384) * lu(k,462) + lu(k,472) = - lu(k,385) * lu(k,462) + lu(k,473) = lu(k,473) - lu(k,386) * lu(k,462) + lu(k,784) = - lu(k,380) * lu(k,781) + lu(k,792) = - lu(k,381) * lu(k,781) + lu(k,794) = lu(k,794) - lu(k,382) * lu(k,781) + lu(k,798) = - lu(k,383) * lu(k,781) + lu(k,799) = - lu(k,384) * lu(k,781) + lu(k,806) = - lu(k,385) * lu(k,781) + lu(k,807) = lu(k,807) - lu(k,386) * lu(k,781) + lu(k,1223) = - lu(k,380) * lu(k,1222) + lu(k,1236) = lu(k,1236) - lu(k,381) * lu(k,1222) + lu(k,1240) = lu(k,1240) - lu(k,382) * lu(k,1222) + lu(k,1247) = lu(k,1247) - lu(k,383) * lu(k,1222) + lu(k,1248) = - lu(k,384) * lu(k,1222) + lu(k,1255) = lu(k,1255) - lu(k,385) * lu(k,1222) + lu(k,1256) = lu(k,1256) - lu(k,386) * lu(k,1222) + lu(k,1366) = lu(k,1366) - lu(k,380) * lu(k,1363) + lu(k,1381) = lu(k,1381) - lu(k,381) * lu(k,1363) + lu(k,1385) = lu(k,1385) - lu(k,382) * lu(k,1363) + lu(k,1392) = lu(k,1392) - lu(k,383) * lu(k,1363) + lu(k,1393) = lu(k,1393) - lu(k,384) * lu(k,1363) + lu(k,1400) = lu(k,1400) - lu(k,385) * lu(k,1363) + lu(k,1401) = lu(k,1401) - lu(k,386) * lu(k,1363) + lu(k,1540) = - lu(k,380) * lu(k,1539) + lu(k,1549) = lu(k,1549) - lu(k,381) * lu(k,1539) + lu(k,1553) = lu(k,1553) - lu(k,382) * lu(k,1539) + lu(k,1560) = lu(k,1560) - lu(k,383) * lu(k,1539) + lu(k,1561) = lu(k,1561) - lu(k,384) * lu(k,1539) + lu(k,1568) = lu(k,1568) - lu(k,385) * lu(k,1539) + lu(k,1569) = lu(k,1569) - lu(k,386) * lu(k,1539) + lu(k,1669) = - lu(k,380) * lu(k,1666) + lu(k,1679) = lu(k,1679) - lu(k,381) * lu(k,1666) + lu(k,1683) = - lu(k,382) * lu(k,1666) + lu(k,1690) = lu(k,1690) - lu(k,383) * lu(k,1666) + lu(k,1691) = lu(k,1691) - lu(k,384) * lu(k,1666) + lu(k,1698) = lu(k,1698) - lu(k,385) * lu(k,1666) + lu(k,1699) = lu(k,1699) - lu(k,386) * lu(k,1666) + lu(k,1861) = - lu(k,380) * lu(k,1860) + lu(k,1872) = lu(k,1872) - lu(k,381) * lu(k,1860) + lu(k,1876) = lu(k,1876) - lu(k,382) * lu(k,1860) + lu(k,1883) = - lu(k,383) * lu(k,1860) + lu(k,1884) = - lu(k,384) * lu(k,1860) + lu(k,1891) = lu(k,1891) - lu(k,385) * lu(k,1860) + lu(k,1892) = lu(k,1892) - lu(k,386) * lu(k,1860) + lu(k,1908) = lu(k,1908) - lu(k,380) * lu(k,1905) + lu(k,1921) = lu(k,1921) - lu(k,381) * lu(k,1905) + lu(k,1925) = lu(k,1925) - lu(k,382) * lu(k,1905) + lu(k,1932) = lu(k,1932) - lu(k,383) * lu(k,1905) + lu(k,1933) = lu(k,1933) - lu(k,384) * lu(k,1905) + lu(k,1940) = lu(k,1940) - lu(k,385) * lu(k,1905) + lu(k,1941) = lu(k,1941) - lu(k,386) * lu(k,1905) + lu(k,389) = 1._r8 / lu(k,389) + lu(k,390) = lu(k,390) * lu(k,389) + lu(k,391) = lu(k,391) * lu(k,389) + lu(k,392) = lu(k,392) * lu(k,389) + lu(k,393) = lu(k,393) * lu(k,389) + lu(k,394) = lu(k,394) * lu(k,389) + lu(k,395) = lu(k,395) * lu(k,389) + lu(k,396) = lu(k,396) * lu(k,389) + lu(k,397) = lu(k,397) * lu(k,389) + lu(k,398) = lu(k,398) * lu(k,389) + lu(k,399) = lu(k,399) * lu(k,389) + lu(k,400) = lu(k,400) * lu(k,389) + lu(k,626) = lu(k,626) - lu(k,390) * lu(k,625) + lu(k,627) = lu(k,627) - lu(k,391) * lu(k,625) + lu(k,628) = lu(k,628) - lu(k,392) * lu(k,625) + lu(k,632) = lu(k,632) - lu(k,393) * lu(k,625) + lu(k,634) = - lu(k,394) * lu(k,625) + lu(k,635) = lu(k,635) - lu(k,395) * lu(k,625) + lu(k,636) = lu(k,636) - lu(k,396) * lu(k,625) + lu(k,639) = lu(k,639) - lu(k,397) * lu(k,625) + lu(k,641) = - lu(k,398) * lu(k,625) + lu(k,643) = lu(k,643) - lu(k,399) * lu(k,625) + lu(k,644) = lu(k,644) - lu(k,400) * lu(k,625) + lu(k,691) = lu(k,691) - lu(k,390) * lu(k,690) + lu(k,692) = lu(k,692) - lu(k,391) * lu(k,690) + lu(k,693) = lu(k,693) - lu(k,392) * lu(k,690) + lu(k,697) = lu(k,697) - lu(k,393) * lu(k,690) + lu(k,699) = - lu(k,394) * lu(k,690) + lu(k,700) = lu(k,700) - lu(k,395) * lu(k,690) + lu(k,701) = lu(k,701) - lu(k,396) * lu(k,690) + lu(k,704) = lu(k,704) - lu(k,397) * lu(k,690) + lu(k,706) = - lu(k,398) * lu(k,690) + lu(k,708) = lu(k,708) - lu(k,399) * lu(k,690) + lu(k,709) = lu(k,709) - lu(k,400) * lu(k,690) + lu(k,1268) = lu(k,1268) - lu(k,390) * lu(k,1261) + lu(k,1269) = lu(k,1269) - lu(k,391) * lu(k,1261) + lu(k,1271) = lu(k,1271) - lu(k,392) * lu(k,1261) + lu(k,1284) = lu(k,1284) - lu(k,393) * lu(k,1261) + lu(k,1286) = lu(k,1286) - lu(k,394) * lu(k,1261) + lu(k,1287) = lu(k,1287) - lu(k,395) * lu(k,1261) + lu(k,1289) = lu(k,1289) - lu(k,396) * lu(k,1261) + lu(k,1294) = lu(k,1294) - lu(k,397) * lu(k,1261) + lu(k,1296) = lu(k,1296) - lu(k,398) * lu(k,1261) + lu(k,1300) = - lu(k,399) * lu(k,1261) + lu(k,1302) = lu(k,1302) - lu(k,400) * lu(k,1261) + lu(k,1413) = lu(k,1413) - lu(k,390) * lu(k,1406) + lu(k,1414) = lu(k,1414) - lu(k,391) * lu(k,1406) + lu(k,1416) = lu(k,1416) - lu(k,392) * lu(k,1406) + lu(k,1429) = lu(k,1429) - lu(k,393) * lu(k,1406) + lu(k,1431) = lu(k,1431) - lu(k,394) * lu(k,1406) + lu(k,1432) = lu(k,1432) - lu(k,395) * lu(k,1406) + lu(k,1434) = lu(k,1434) - lu(k,396) * lu(k,1406) + lu(k,1439) = lu(k,1439) - lu(k,397) * lu(k,1406) + lu(k,1441) = lu(k,1441) - lu(k,398) * lu(k,1406) + lu(k,1445) = - lu(k,399) * lu(k,1406) + lu(k,1447) = lu(k,1447) - lu(k,400) * lu(k,1406) + lu(k,1709) = - lu(k,390) * lu(k,1706) + lu(k,1710) = - lu(k,391) * lu(k,1706) + lu(k,1711) = - lu(k,392) * lu(k,1706) + lu(k,1724) = - lu(k,393) * lu(k,1706) + lu(k,1726) = lu(k,1726) - lu(k,394) * lu(k,1706) + lu(k,1727) = - lu(k,395) * lu(k,1706) + lu(k,1729) = lu(k,1729) - lu(k,396) * lu(k,1706) + lu(k,1734) = lu(k,1734) - lu(k,397) * lu(k,1706) + lu(k,1736) = lu(k,1736) - lu(k,398) * lu(k,1706) + lu(k,1740) = lu(k,1740) - lu(k,399) * lu(k,1706) + lu(k,1742) = lu(k,1742) - lu(k,400) * lu(k,1706) + lu(k,1790) = - lu(k,390) * lu(k,1785) + lu(k,1791) = - lu(k,391) * lu(k,1785) + lu(k,1793) = lu(k,1793) - lu(k,392) * lu(k,1785) + lu(k,1808) = - lu(k,393) * lu(k,1785) + lu(k,1810) = lu(k,1810) - lu(k,394) * lu(k,1785) + lu(k,1811) = - lu(k,395) * lu(k,1785) + lu(k,1813) = lu(k,1813) - lu(k,396) * lu(k,1785) + lu(k,1818) = lu(k,1818) - lu(k,397) * lu(k,1785) + lu(k,1820) = lu(k,1820) - lu(k,398) * lu(k,1785) + lu(k,1824) = lu(k,1824) - lu(k,399) * lu(k,1785) + lu(k,1826) = lu(k,1826) - lu(k,400) * lu(k,1785) + lu(k,404) = 1._r8 / lu(k,404) + lu(k,405) = lu(k,405) * lu(k,404) + lu(k,406) = lu(k,406) * lu(k,404) + lu(k,407) = lu(k,407) * lu(k,404) + lu(k,408) = lu(k,408) * lu(k,404) + lu(k,409) = lu(k,409) * lu(k,404) + lu(k,410) = lu(k,410) * lu(k,404) + lu(k,411) = lu(k,411) * lu(k,404) + lu(k,412) = lu(k,412) * lu(k,404) + lu(k,413) = lu(k,413) * lu(k,404) + lu(k,414) = lu(k,414) * lu(k,404) + lu(k,448) = lu(k,448) - lu(k,405) * lu(k,447) + lu(k,449) = lu(k,449) - lu(k,406) * lu(k,447) + lu(k,450) = - lu(k,407) * lu(k,447) + lu(k,451) = lu(k,451) - lu(k,408) * lu(k,447) + lu(k,453) = lu(k,453) - lu(k,409) * lu(k,447) + lu(k,454) = lu(k,454) - lu(k,410) * lu(k,447) + lu(k,455) = lu(k,455) - lu(k,411) * lu(k,447) + lu(k,456) = - lu(k,412) * lu(k,447) + lu(k,459) = lu(k,459) - lu(k,413) * lu(k,447) + lu(k,460) = lu(k,460) - lu(k,414) * lu(k,447) + lu(k,1055) = lu(k,1055) - lu(k,405) * lu(k,1054) + lu(k,1057) = lu(k,1057) - lu(k,406) * lu(k,1054) + lu(k,1058) = - lu(k,407) * lu(k,1054) + lu(k,1059) = lu(k,1059) - lu(k,408) * lu(k,1054) + lu(k,1062) = lu(k,1062) - lu(k,409) * lu(k,1054) + lu(k,1067) = lu(k,1067) - lu(k,410) * lu(k,1054) + lu(k,1072) = lu(k,1072) - lu(k,411) * lu(k,1054) + lu(k,1074) = lu(k,1074) - lu(k,412) * lu(k,1054) + lu(k,1080) = lu(k,1080) - lu(k,413) * lu(k,1054) + lu(k,1081) = lu(k,1081) - lu(k,414) * lu(k,1054) + lu(k,1133) = lu(k,1133) - lu(k,405) * lu(k,1132) + lu(k,1144) = lu(k,1144) - lu(k,406) * lu(k,1132) + lu(k,1148) = - lu(k,407) * lu(k,1132) + lu(k,1150) = lu(k,1150) - lu(k,408) * lu(k,1132) + lu(k,1154) = lu(k,1154) - lu(k,409) * lu(k,1132) + lu(k,1159) = lu(k,1159) - lu(k,410) * lu(k,1132) + lu(k,1164) = lu(k,1164) - lu(k,411) * lu(k,1132) + lu(k,1166) = lu(k,1166) - lu(k,412) * lu(k,1132) + lu(k,1172) = lu(k,1172) - lu(k,413) * lu(k,1132) + lu(k,1173) = lu(k,1173) - lu(k,414) * lu(k,1132) + lu(k,1365) = lu(k,1365) - lu(k,405) * lu(k,1364) + lu(k,1373) = lu(k,1373) - lu(k,406) * lu(k,1364) + lu(k,1377) = lu(k,1377) - lu(k,407) * lu(k,1364) + lu(k,1379) = lu(k,1379) - lu(k,408) * lu(k,1364) + lu(k,1383) = lu(k,1383) - lu(k,409) * lu(k,1364) + lu(k,1388) = lu(k,1388) - lu(k,410) * lu(k,1364) + lu(k,1393) = lu(k,1393) - lu(k,411) * lu(k,1364) + lu(k,1395) = lu(k,1395) - lu(k,412) * lu(k,1364) + lu(k,1401) = lu(k,1401) - lu(k,413) * lu(k,1364) + lu(k,1402) = lu(k,1402) - lu(k,414) * lu(k,1364) + lu(k,1668) = - lu(k,405) * lu(k,1667) + lu(k,1672) = - lu(k,406) * lu(k,1667) + lu(k,1675) = lu(k,1675) - lu(k,407) * lu(k,1667) + lu(k,1677) = lu(k,1677) - lu(k,408) * lu(k,1667) + lu(k,1681) = lu(k,1681) - lu(k,409) * lu(k,1667) + lu(k,1686) = lu(k,1686) - lu(k,410) * lu(k,1667) + lu(k,1691) = lu(k,1691) - lu(k,411) * lu(k,1667) + lu(k,1693) = lu(k,1693) - lu(k,412) * lu(k,1667) + lu(k,1699) = lu(k,1699) - lu(k,413) * lu(k,1667) + lu(k,1700) = lu(k,1700) - lu(k,414) * lu(k,1667) + lu(k,1907) = lu(k,1907) - lu(k,405) * lu(k,1906) + lu(k,1914) = lu(k,1914) - lu(k,406) * lu(k,1906) + lu(k,1917) = lu(k,1917) - lu(k,407) * lu(k,1906) + lu(k,1919) = lu(k,1919) - lu(k,408) * lu(k,1906) + lu(k,1923) = lu(k,1923) - lu(k,409) * lu(k,1906) + lu(k,1928) = lu(k,1928) - lu(k,410) * lu(k,1906) + lu(k,1933) = lu(k,1933) - lu(k,411) * lu(k,1906) + lu(k,1935) = lu(k,1935) - lu(k,412) * lu(k,1906) + lu(k,1941) = lu(k,1941) - lu(k,413) * lu(k,1906) + lu(k,1942) = lu(k,1942) - lu(k,414) * lu(k,1906) + lu(k,1950) = lu(k,1950) - lu(k,405) * lu(k,1948) + lu(k,1958) = lu(k,1958) - lu(k,406) * lu(k,1948) + lu(k,1961) = lu(k,1961) - lu(k,407) * lu(k,1948) + lu(k,1963) = lu(k,1963) - lu(k,408) * lu(k,1948) + lu(k,1967) = lu(k,1967) - lu(k,409) * lu(k,1948) + lu(k,1972) = lu(k,1972) - lu(k,410) * lu(k,1948) + lu(k,1977) = lu(k,1977) - lu(k,411) * lu(k,1948) + lu(k,1979) = lu(k,1979) - lu(k,412) * lu(k,1948) + lu(k,1985) = lu(k,1985) - lu(k,413) * lu(k,1948) + lu(k,1986) = lu(k,1986) - lu(k,414) * lu(k,1948) end do end subroutine lu_fac10 subroutine lu_fac11( avec_len, lu ) @@ -1920,350 +1845,327 @@ subroutine lu_fac11( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,432) = 1._r8 / lu(k,432) - lu(k,433) = lu(k,433) * lu(k,432) - lu(k,434) = lu(k,434) * lu(k,432) - lu(k,435) = lu(k,435) * lu(k,432) - lu(k,436) = lu(k,436) * lu(k,432) - lu(k,437) = lu(k,437) * lu(k,432) - lu(k,438) = lu(k,438) * lu(k,432) - lu(k,439) = lu(k,439) * lu(k,432) - lu(k,440) = lu(k,440) * lu(k,432) - lu(k,441) = lu(k,441) * lu(k,432) - lu(k,442) = lu(k,442) * lu(k,432) - lu(k,648) = lu(k,648) - lu(k,433) * lu(k,646) - lu(k,650) = lu(k,650) - lu(k,434) * lu(k,646) - lu(k,651) = lu(k,651) - lu(k,435) * lu(k,646) - lu(k,653) = - lu(k,436) * lu(k,646) - lu(k,656) = - lu(k,437) * lu(k,646) - lu(k,657) = lu(k,657) - lu(k,438) * lu(k,646) - lu(k,660) = lu(k,660) - lu(k,439) * lu(k,646) - lu(k,661) = - lu(k,440) * lu(k,646) - lu(k,664) = - lu(k,441) * lu(k,646) - lu(k,666) = lu(k,666) - lu(k,442) * lu(k,646) - lu(k,786) = lu(k,786) - lu(k,433) * lu(k,781) - lu(k,788) = lu(k,788) - lu(k,434) * lu(k,781) - lu(k,789) = lu(k,789) - lu(k,435) * lu(k,781) - lu(k,791) = lu(k,791) - lu(k,436) * lu(k,781) - lu(k,795) = lu(k,795) - lu(k,437) * lu(k,781) - lu(k,796) = lu(k,796) - lu(k,438) * lu(k,781) - lu(k,801) = lu(k,801) - lu(k,439) * lu(k,781) - lu(k,802) = - lu(k,440) * lu(k,781) - lu(k,806) = lu(k,806) - lu(k,441) * lu(k,781) - lu(k,808) = lu(k,808) - lu(k,442) * lu(k,781) - lu(k,898) = lu(k,898) - lu(k,433) * lu(k,894) - lu(k,900) = lu(k,900) - lu(k,434) * lu(k,894) - lu(k,901) = lu(k,901) - lu(k,435) * lu(k,894) - lu(k,903) = lu(k,903) - lu(k,436) * lu(k,894) - lu(k,908) = lu(k,908) - lu(k,437) * lu(k,894) - lu(k,909) = lu(k,909) - lu(k,438) * lu(k,894) - lu(k,914) = lu(k,914) - lu(k,439) * lu(k,894) - lu(k,915) = lu(k,915) - lu(k,440) * lu(k,894) - lu(k,919) = lu(k,919) - lu(k,441) * lu(k,894) - lu(k,921) = lu(k,921) - lu(k,442) * lu(k,894) - lu(k,981) = lu(k,981) - lu(k,433) * lu(k,975) - lu(k,983) = lu(k,983) - lu(k,434) * lu(k,975) - lu(k,984) = lu(k,984) - lu(k,435) * lu(k,975) - lu(k,986) = lu(k,986) - lu(k,436) * lu(k,975) - lu(k,992) = lu(k,992) - lu(k,437) * lu(k,975) - lu(k,993) = lu(k,993) - lu(k,438) * lu(k,975) - lu(k,998) = lu(k,998) - lu(k,439) * lu(k,975) - lu(k,999) = lu(k,999) - lu(k,440) * lu(k,975) - lu(k,1003) = lu(k,1003) - lu(k,441) * lu(k,975) - lu(k,1005) = lu(k,1005) - lu(k,442) * lu(k,975) - lu(k,1094) = lu(k,1094) - lu(k,433) * lu(k,1090) - lu(k,1099) = lu(k,1099) - lu(k,434) * lu(k,1090) - lu(k,1101) = lu(k,1101) - lu(k,435) * lu(k,1090) - lu(k,1104) = lu(k,1104) - lu(k,436) * lu(k,1090) - lu(k,1111) = lu(k,1111) - lu(k,437) * lu(k,1090) - lu(k,1112) = lu(k,1112) - lu(k,438) * lu(k,1090) - lu(k,1119) = - lu(k,439) * lu(k,1090) - lu(k,1120) = lu(k,1120) - lu(k,440) * lu(k,1090) - lu(k,1124) = lu(k,1124) - lu(k,441) * lu(k,1090) - lu(k,1126) = lu(k,1126) - lu(k,442) * lu(k,1090) - lu(k,1469) = lu(k,1469) - lu(k,433) * lu(k,1465) - lu(k,1474) = lu(k,1474) - lu(k,434) * lu(k,1465) - lu(k,1476) = lu(k,1476) - lu(k,435) * lu(k,1465) - lu(k,1479) = lu(k,1479) - lu(k,436) * lu(k,1465) - lu(k,1486) = lu(k,1486) - lu(k,437) * lu(k,1465) - lu(k,1487) = lu(k,1487) - lu(k,438) * lu(k,1465) - lu(k,1494) = lu(k,1494) - lu(k,439) * lu(k,1465) - lu(k,1495) = lu(k,1495) - lu(k,440) * lu(k,1465) - lu(k,1499) = lu(k,1499) - lu(k,441) * lu(k,1465) - lu(k,1501) = lu(k,1501) - lu(k,442) * lu(k,1465) - lu(k,1511) = lu(k,1511) - lu(k,433) * lu(k,1506) - lu(k,1515) = lu(k,1515) - lu(k,434) * lu(k,1506) - lu(k,1517) = lu(k,1517) - lu(k,435) * lu(k,1506) - lu(k,1520) = - lu(k,436) * lu(k,1506) - lu(k,1527) = - lu(k,437) * lu(k,1506) - lu(k,1528) = lu(k,1528) - lu(k,438) * lu(k,1506) - lu(k,1535) = lu(k,1535) - lu(k,439) * lu(k,1506) - lu(k,1536) = lu(k,1536) - lu(k,440) * lu(k,1506) - lu(k,1540) = lu(k,1540) - lu(k,441) * lu(k,1506) - lu(k,1542) = lu(k,1542) - lu(k,442) * lu(k,1506) - lu(k,1954) = lu(k,1954) - lu(k,433) * lu(k,1946) - lu(k,1958) = lu(k,1958) - lu(k,434) * lu(k,1946) - lu(k,1960) = lu(k,1960) - lu(k,435) * lu(k,1946) - lu(k,1963) = lu(k,1963) - lu(k,436) * lu(k,1946) - lu(k,1970) = lu(k,1970) - lu(k,437) * lu(k,1946) - lu(k,1971) = lu(k,1971) - lu(k,438) * lu(k,1946) - lu(k,1978) = - lu(k,439) * lu(k,1946) - lu(k,1979) = lu(k,1979) - lu(k,440) * lu(k,1946) - lu(k,1983) = lu(k,1983) - lu(k,441) * lu(k,1946) - lu(k,1985) = lu(k,1985) - lu(k,442) * lu(k,1946) - lu(k,2059) = lu(k,2059) - lu(k,433) * lu(k,2047) - lu(k,2063) = lu(k,2063) - lu(k,434) * lu(k,2047) - lu(k,2065) = lu(k,2065) - lu(k,435) * lu(k,2047) - lu(k,2068) = - lu(k,436) * lu(k,2047) - lu(k,2075) = lu(k,2075) - lu(k,437) * lu(k,2047) - lu(k,2076) = lu(k,2076) - lu(k,438) * lu(k,2047) - lu(k,2083) = lu(k,2083) - lu(k,439) * lu(k,2047) - lu(k,2084) = lu(k,2084) - lu(k,440) * lu(k,2047) - lu(k,2088) = lu(k,2088) - lu(k,441) * lu(k,2047) - lu(k,2090) = lu(k,2090) - lu(k,442) * lu(k,2047) - lu(k,446) = 1._r8 / lu(k,446) - lu(k,447) = lu(k,447) * lu(k,446) - lu(k,448) = lu(k,448) * lu(k,446) - lu(k,449) = lu(k,449) * lu(k,446) - lu(k,450) = lu(k,450) * lu(k,446) - lu(k,451) = lu(k,451) * lu(k,446) - lu(k,452) = lu(k,452) * lu(k,446) - lu(k,453) = lu(k,453) * lu(k,446) - lu(k,454) = lu(k,454) * lu(k,446) - lu(k,455) = lu(k,455) * lu(k,446) - lu(k,456) = lu(k,456) * lu(k,446) - lu(k,457) = lu(k,457) * lu(k,446) - lu(k,458) = lu(k,458) * lu(k,446) - lu(k,982) = lu(k,982) - lu(k,447) * lu(k,976) - lu(k,983) = lu(k,983) - lu(k,448) * lu(k,976) - lu(k,984) = lu(k,984) - lu(k,449) * lu(k,976) - lu(k,985) = lu(k,985) - lu(k,450) * lu(k,976) - lu(k,987) = - lu(k,451) * lu(k,976) - lu(k,989) = lu(k,989) - lu(k,452) * lu(k,976) - lu(k,991) = lu(k,991) - lu(k,453) * lu(k,976) - lu(k,992) = lu(k,992) - lu(k,454) * lu(k,976) - lu(k,996) = - lu(k,455) * lu(k,976) - lu(k,998) = lu(k,998) - lu(k,456) * lu(k,976) - lu(k,999) = lu(k,999) - lu(k,457) * lu(k,976) - lu(k,1003) = lu(k,1003) - lu(k,458) * lu(k,976) - lu(k,1055) = lu(k,1055) - lu(k,447) * lu(k,1053) - lu(k,1056) = lu(k,1056) - lu(k,448) * lu(k,1053) - lu(k,1057) = lu(k,1057) - lu(k,449) * lu(k,1053) - lu(k,1058) = lu(k,1058) - lu(k,450) * lu(k,1053) - lu(k,1060) = lu(k,1060) - lu(k,451) * lu(k,1053) - lu(k,1063) = lu(k,1063) - lu(k,452) * lu(k,1053) - lu(k,1065) = lu(k,1065) - lu(k,453) * lu(k,1053) - lu(k,1066) = lu(k,1066) - lu(k,454) * lu(k,1053) - lu(k,1070) = lu(k,1070) - lu(k,455) * lu(k,1053) - lu(k,1074) = lu(k,1074) - lu(k,456) * lu(k,1053) - lu(k,1075) = lu(k,1075) - lu(k,457) * lu(k,1053) - lu(k,1079) = lu(k,1079) - lu(k,458) * lu(k,1053) - lu(k,1143) = lu(k,1143) - lu(k,447) * lu(k,1132) - lu(k,1147) = lu(k,1147) - lu(k,448) * lu(k,1132) - lu(k,1149) = lu(k,1149) - lu(k,449) * lu(k,1132) - lu(k,1151) = lu(k,1151) - lu(k,450) * lu(k,1132) - lu(k,1153) = lu(k,1153) - lu(k,451) * lu(k,1132) - lu(k,1156) = lu(k,1156) - lu(k,452) * lu(k,1132) - lu(k,1158) = lu(k,1158) - lu(k,453) * lu(k,1132) - lu(k,1159) = lu(k,1159) - lu(k,454) * lu(k,1132) - lu(k,1163) = lu(k,1163) - lu(k,455) * lu(k,1132) - lu(k,1167) = - lu(k,456) * lu(k,1132) - lu(k,1168) = lu(k,1168) - lu(k,457) * lu(k,1132) - lu(k,1172) = lu(k,1172) - lu(k,458) * lu(k,1132) - lu(k,1272) = lu(k,1272) - lu(k,447) * lu(k,1268) - lu(k,1275) = lu(k,1275) - lu(k,448) * lu(k,1268) - lu(k,1277) = lu(k,1277) - lu(k,449) * lu(k,1268) - lu(k,1279) = lu(k,1279) - lu(k,450) * lu(k,1268) - lu(k,1281) = lu(k,1281) - lu(k,451) * lu(k,1268) - lu(k,1284) = lu(k,1284) - lu(k,452) * lu(k,1268) - lu(k,1286) = lu(k,1286) - lu(k,453) * lu(k,1268) - lu(k,1287) = lu(k,1287) - lu(k,454) * lu(k,1268) - lu(k,1291) = lu(k,1291) - lu(k,455) * lu(k,1268) - lu(k,1295) = - lu(k,456) * lu(k,1268) - lu(k,1296) = - lu(k,457) * lu(k,1268) - lu(k,1300) = lu(k,1300) - lu(k,458) * lu(k,1268) - lu(k,1373) = lu(k,1373) - lu(k,447) * lu(k,1365) - lu(k,1377) = lu(k,1377) - lu(k,448) * lu(k,1365) - lu(k,1379) = lu(k,1379) - lu(k,449) * lu(k,1365) - lu(k,1381) = lu(k,1381) - lu(k,450) * lu(k,1365) - lu(k,1383) = lu(k,1383) - lu(k,451) * lu(k,1365) - lu(k,1386) = lu(k,1386) - lu(k,452) * lu(k,1365) - lu(k,1388) = lu(k,1388) - lu(k,453) * lu(k,1365) - lu(k,1389) = lu(k,1389) - lu(k,454) * lu(k,1365) + lu(k,418) = 1._r8 / lu(k,418) + lu(k,419) = lu(k,419) * lu(k,418) + lu(k,420) = lu(k,420) * lu(k,418) + lu(k,421) = lu(k,421) * lu(k,418) + lu(k,422) = lu(k,422) * lu(k,418) + lu(k,423) = lu(k,423) * lu(k,418) + lu(k,424) = lu(k,424) * lu(k,418) + lu(k,425) = lu(k,425) * lu(k,418) + lu(k,426) = lu(k,426) * lu(k,418) + lu(k,427) = lu(k,427) * lu(k,418) + lu(k,428) = lu(k,428) * lu(k,418) + lu(k,429) = lu(k,429) * lu(k,418) + lu(k,430) = lu(k,430) * lu(k,418) + lu(k,431) = lu(k,431) * lu(k,418) + lu(k,432) = lu(k,432) * lu(k,418) + lu(k,648) = lu(k,648) - lu(k,419) * lu(k,647) + lu(k,649) = lu(k,649) - lu(k,420) * lu(k,647) + lu(k,650) = - lu(k,421) * lu(k,647) + lu(k,651) = lu(k,651) - lu(k,422) * lu(k,647) + lu(k,652) = - lu(k,423) * lu(k,647) + lu(k,653) = lu(k,653) - lu(k,424) * lu(k,647) + lu(k,656) = lu(k,656) - lu(k,425) * lu(k,647) + lu(k,657) = lu(k,657) - lu(k,426) * lu(k,647) + lu(k,658) = lu(k,658) - lu(k,427) * lu(k,647) + lu(k,659) = - lu(k,428) * lu(k,647) + lu(k,660) = lu(k,660) - lu(k,429) * lu(k,647) + lu(k,661) = lu(k,661) - lu(k,430) * lu(k,647) + lu(k,667) = lu(k,667) - lu(k,431) * lu(k,647) + lu(k,668) = lu(k,668) - lu(k,432) * lu(k,647) + lu(k,783) = lu(k,783) - lu(k,419) * lu(k,782) + lu(k,786) = lu(k,786) - lu(k,420) * lu(k,782) + lu(k,788) = lu(k,788) - lu(k,421) * lu(k,782) + lu(k,789) = lu(k,789) - lu(k,422) * lu(k,782) + lu(k,790) = lu(k,790) - lu(k,423) * lu(k,782) + lu(k,791) = lu(k,791) - lu(k,424) * lu(k,782) + lu(k,795) = lu(k,795) - lu(k,425) * lu(k,782) + lu(k,796) = lu(k,796) - lu(k,426) * lu(k,782) + lu(k,797) = lu(k,797) - lu(k,427) * lu(k,782) + lu(k,801) = - lu(k,428) * lu(k,782) + lu(k,802) = lu(k,802) - lu(k,429) * lu(k,782) + lu(k,803) = lu(k,803) - lu(k,430) * lu(k,782) + lu(k,809) = lu(k,809) - lu(k,431) * lu(k,782) + lu(k,810) = lu(k,810) - lu(k,432) * lu(k,782) + lu(k,977) = lu(k,977) - lu(k,419) * lu(k,976) + lu(k,981) = lu(k,981) - lu(k,420) * lu(k,976) + lu(k,983) = lu(k,983) - lu(k,421) * lu(k,976) + lu(k,984) = lu(k,984) - lu(k,422) * lu(k,976) + lu(k,985) = lu(k,985) - lu(k,423) * lu(k,976) + lu(k,986) = lu(k,986) - lu(k,424) * lu(k,976) + lu(k,992) = lu(k,992) - lu(k,425) * lu(k,976) + lu(k,993) = lu(k,993) - lu(k,426) * lu(k,976) + lu(k,994) = lu(k,994) - lu(k,427) * lu(k,976) + lu(k,998) = lu(k,998) - lu(k,428) * lu(k,976) + lu(k,999) = lu(k,999) - lu(k,429) * lu(k,976) + lu(k,1000) = lu(k,1000) - lu(k,430) * lu(k,976) + lu(k,1006) = lu(k,1006) - lu(k,431) * lu(k,976) + lu(k,1007) = lu(k,1007) - lu(k,432) * lu(k,976) + lu(k,1459) = lu(k,1459) - lu(k,419) * lu(k,1458) + lu(k,1461) = lu(k,1461) - lu(k,420) * lu(k,1458) + lu(k,1463) = lu(k,1463) - lu(k,421) * lu(k,1458) + lu(k,1464) = lu(k,1464) - lu(k,422) * lu(k,1458) + lu(k,1468) = lu(k,1468) - lu(k,423) * lu(k,1458) + lu(k,1470) = lu(k,1470) - lu(k,424) * lu(k,1458) + lu(k,1479) = lu(k,1479) - lu(k,425) * lu(k,1458) + lu(k,1481) = lu(k,1481) - lu(k,426) * lu(k,1458) + lu(k,1482) = lu(k,1482) - lu(k,427) * lu(k,1458) + lu(k,1486) = lu(k,1486) - lu(k,428) * lu(k,1458) + lu(k,1487) = lu(k,1487) - lu(k,429) * lu(k,1458) + lu(k,1488) = lu(k,1488) - lu(k,430) * lu(k,1458) + lu(k,1494) = lu(k,1494) - lu(k,431) * lu(k,1458) + lu(k,1495) = lu(k,1495) - lu(k,432) * lu(k,1458) + lu(k,1500) = lu(k,1500) - lu(k,419) * lu(k,1499) + lu(k,1503) = lu(k,1503) - lu(k,420) * lu(k,1499) + lu(k,1505) = - lu(k,421) * lu(k,1499) + lu(k,1506) = - lu(k,422) * lu(k,1499) + lu(k,1509) = lu(k,1509) - lu(k,423) * lu(k,1499) + lu(k,1511) = lu(k,1511) - lu(k,424) * lu(k,1499) + lu(k,1520) = - lu(k,425) * lu(k,1499) + lu(k,1522) = - lu(k,426) * lu(k,1499) + lu(k,1523) = lu(k,1523) - lu(k,427) * lu(k,1499) + lu(k,1527) = lu(k,1527) - lu(k,428) * lu(k,1499) + lu(k,1528) = lu(k,1528) - lu(k,429) * lu(k,1499) + lu(k,1529) = lu(k,1529) - lu(k,430) * lu(k,1499) + lu(k,1535) = lu(k,1535) - lu(k,431) * lu(k,1499) + lu(k,1536) = lu(k,1536) - lu(k,432) * lu(k,1499) + lu(k,2050) = lu(k,2050) - lu(k,419) * lu(k,2049) + lu(k,2058) = lu(k,2058) - lu(k,420) * lu(k,2049) + lu(k,2062) = - lu(k,421) * lu(k,2049) + lu(k,2063) = lu(k,2063) - lu(k,422) * lu(k,2049) + lu(k,2066) = lu(k,2066) - lu(k,423) * lu(k,2049) + lu(k,2068) = lu(k,2068) - lu(k,424) * lu(k,2049) + lu(k,2077) = lu(k,2077) - lu(k,425) * lu(k,2049) + lu(k,2079) = - lu(k,426) * lu(k,2049) + lu(k,2080) = lu(k,2080) - lu(k,427) * lu(k,2049) + lu(k,2084) = lu(k,2084) - lu(k,428) * lu(k,2049) + lu(k,2085) = lu(k,2085) - lu(k,429) * lu(k,2049) + lu(k,2086) = lu(k,2086) - lu(k,430) * lu(k,2049) + lu(k,2092) = - lu(k,431) * lu(k,2049) + lu(k,2093) = lu(k,2093) - lu(k,432) * lu(k,2049) + lu(k,434) = 1._r8 / lu(k,434) + lu(k,435) = lu(k,435) * lu(k,434) + lu(k,436) = lu(k,436) * lu(k,434) + lu(k,437) = lu(k,437) * lu(k,434) + lu(k,438) = lu(k,438) * lu(k,434) + lu(k,439) = lu(k,439) * lu(k,434) + lu(k,440) = lu(k,440) * lu(k,434) + lu(k,441) = lu(k,441) * lu(k,434) + lu(k,442) = lu(k,442) * lu(k,434) + lu(k,443) = lu(k,443) * lu(k,434) + lu(k,444) = lu(k,444) * lu(k,434) + lu(k,650) = lu(k,650) - lu(k,435) * lu(k,648) + lu(k,652) = lu(k,652) - lu(k,436) * lu(k,648) + lu(k,653) = lu(k,653) - lu(k,437) * lu(k,648) + lu(k,655) = - lu(k,438) * lu(k,648) + lu(k,657) = lu(k,657) - lu(k,439) * lu(k,648) + lu(k,661) = lu(k,661) - lu(k,440) * lu(k,648) + lu(k,662) = - lu(k,441) * lu(k,648) + lu(k,665) = - lu(k,442) * lu(k,648) + lu(k,666) = - lu(k,443) * lu(k,648) + lu(k,668) = lu(k,668) - lu(k,444) * lu(k,648) + lu(k,788) = lu(k,788) - lu(k,435) * lu(k,783) + lu(k,790) = lu(k,790) - lu(k,436) * lu(k,783) + lu(k,791) = lu(k,791) - lu(k,437) * lu(k,783) + lu(k,793) = lu(k,793) - lu(k,438) * lu(k,783) + lu(k,796) = lu(k,796) - lu(k,439) * lu(k,783) + lu(k,803) = lu(k,803) - lu(k,440) * lu(k,783) + lu(k,804) = - lu(k,441) * lu(k,783) + lu(k,807) = lu(k,807) - lu(k,442) * lu(k,783) + lu(k,808) = lu(k,808) - lu(k,443) * lu(k,783) + lu(k,810) = lu(k,810) - lu(k,444) * lu(k,783) + lu(k,900) = lu(k,900) - lu(k,435) * lu(k,896) + lu(k,902) = lu(k,902) - lu(k,436) * lu(k,896) + lu(k,903) = lu(k,903) - lu(k,437) * lu(k,896) + lu(k,905) = lu(k,905) - lu(k,438) * lu(k,896) + lu(k,909) = lu(k,909) - lu(k,439) * lu(k,896) + lu(k,916) = lu(k,916) - lu(k,440) * lu(k,896) + lu(k,917) = lu(k,917) - lu(k,441) * lu(k,896) + lu(k,920) = lu(k,920) - lu(k,442) * lu(k,896) + lu(k,921) = lu(k,921) - lu(k,443) * lu(k,896) + lu(k,923) = lu(k,923) - lu(k,444) * lu(k,896) + lu(k,983) = lu(k,983) - lu(k,435) * lu(k,977) + lu(k,985) = lu(k,985) - lu(k,436) * lu(k,977) + lu(k,986) = lu(k,986) - lu(k,437) * lu(k,977) + lu(k,988) = lu(k,988) - lu(k,438) * lu(k,977) + lu(k,993) = lu(k,993) - lu(k,439) * lu(k,977) + lu(k,1000) = lu(k,1000) - lu(k,440) * lu(k,977) + lu(k,1001) = lu(k,1001) - lu(k,441) * lu(k,977) + lu(k,1004) = lu(k,1004) - lu(k,442) * lu(k,977) + lu(k,1005) = lu(k,1005) - lu(k,443) * lu(k,977) + lu(k,1007) = lu(k,1007) - lu(k,444) * lu(k,977) + lu(k,1096) = lu(k,1096) - lu(k,435) * lu(k,1092) + lu(k,1101) = lu(k,1101) - lu(k,436) * lu(k,1092) + lu(k,1103) = lu(k,1103) - lu(k,437) * lu(k,1092) + lu(k,1106) = lu(k,1106) - lu(k,438) * lu(k,1092) + lu(k,1114) = lu(k,1114) - lu(k,439) * lu(k,1092) + lu(k,1121) = - lu(k,440) * lu(k,1092) + lu(k,1122) = lu(k,1122) - lu(k,441) * lu(k,1092) + lu(k,1125) = lu(k,1125) - lu(k,442) * lu(k,1092) + lu(k,1126) = lu(k,1126) - lu(k,443) * lu(k,1092) + lu(k,1128) = lu(k,1128) - lu(k,444) * lu(k,1092) + lu(k,1463) = lu(k,1463) - lu(k,435) * lu(k,1459) + lu(k,1468) = lu(k,1468) - lu(k,436) * lu(k,1459) + lu(k,1470) = lu(k,1470) - lu(k,437) * lu(k,1459) + lu(k,1473) = lu(k,1473) - lu(k,438) * lu(k,1459) + lu(k,1481) = lu(k,1481) - lu(k,439) * lu(k,1459) + lu(k,1488) = lu(k,1488) - lu(k,440) * lu(k,1459) + lu(k,1489) = lu(k,1489) - lu(k,441) * lu(k,1459) + lu(k,1492) = lu(k,1492) - lu(k,442) * lu(k,1459) + lu(k,1493) = lu(k,1493) - lu(k,443) * lu(k,1459) + lu(k,1495) = lu(k,1495) - lu(k,444) * lu(k,1459) + lu(k,1505) = lu(k,1505) - lu(k,435) * lu(k,1500) + lu(k,1509) = lu(k,1509) - lu(k,436) * lu(k,1500) + lu(k,1511) = lu(k,1511) - lu(k,437) * lu(k,1500) + lu(k,1514) = - lu(k,438) * lu(k,1500) + lu(k,1522) = lu(k,1522) - lu(k,439) * lu(k,1500) + lu(k,1529) = lu(k,1529) - lu(k,440) * lu(k,1500) + lu(k,1530) = lu(k,1530) - lu(k,441) * lu(k,1500) + lu(k,1533) = - lu(k,442) * lu(k,1500) + lu(k,1534) = lu(k,1534) - lu(k,443) * lu(k,1500) + lu(k,1536) = lu(k,1536) - lu(k,444) * lu(k,1500) + lu(k,1957) = lu(k,1957) - lu(k,435) * lu(k,1949) + lu(k,1961) = lu(k,1961) - lu(k,436) * lu(k,1949) + lu(k,1963) = lu(k,1963) - lu(k,437) * lu(k,1949) + lu(k,1966) = lu(k,1966) - lu(k,438) * lu(k,1949) + lu(k,1974) = lu(k,1974) - lu(k,439) * lu(k,1949) + lu(k,1981) = - lu(k,440) * lu(k,1949) + lu(k,1982) = lu(k,1982) - lu(k,441) * lu(k,1949) + lu(k,1985) = lu(k,1985) - lu(k,442) * lu(k,1949) + lu(k,1986) = lu(k,1986) - lu(k,443) * lu(k,1949) + lu(k,1988) = lu(k,1988) - lu(k,444) * lu(k,1949) + lu(k,2062) = lu(k,2062) - lu(k,435) * lu(k,2050) + lu(k,2066) = lu(k,2066) - lu(k,436) * lu(k,2050) + lu(k,2068) = lu(k,2068) - lu(k,437) * lu(k,2050) + lu(k,2071) = - lu(k,438) * lu(k,2050) + lu(k,2079) = lu(k,2079) - lu(k,439) * lu(k,2050) + lu(k,2086) = lu(k,2086) - lu(k,440) * lu(k,2050) + lu(k,2087) = lu(k,2087) - lu(k,441) * lu(k,2050) + lu(k,2090) = lu(k,2090) - lu(k,442) * lu(k,2050) + lu(k,2091) = lu(k,2091) - lu(k,443) * lu(k,2050) + lu(k,2093) = lu(k,2093) - lu(k,444) * lu(k,2050) + lu(k,448) = 1._r8 / lu(k,448) + lu(k,449) = lu(k,449) * lu(k,448) + lu(k,450) = lu(k,450) * lu(k,448) + lu(k,451) = lu(k,451) * lu(k,448) + lu(k,452) = lu(k,452) * lu(k,448) + lu(k,453) = lu(k,453) * lu(k,448) + lu(k,454) = lu(k,454) * lu(k,448) + lu(k,455) = lu(k,455) * lu(k,448) + lu(k,456) = lu(k,456) * lu(k,448) + lu(k,457) = lu(k,457) * lu(k,448) + lu(k,458) = lu(k,458) * lu(k,448) + lu(k,459) = lu(k,459) * lu(k,448) + lu(k,460) = lu(k,460) * lu(k,448) + lu(k,984) = lu(k,984) - lu(k,449) * lu(k,978) + lu(k,985) = lu(k,985) - lu(k,450) * lu(k,978) + lu(k,986) = lu(k,986) - lu(k,451) * lu(k,978) + lu(k,987) = lu(k,987) - lu(k,452) * lu(k,978) + lu(k,989) = - lu(k,453) * lu(k,978) + lu(k,992) = lu(k,992) - lu(k,454) * lu(k,978) + lu(k,996) = - lu(k,455) * lu(k,978) + lu(k,998) = lu(k,998) - lu(k,456) * lu(k,978) + lu(k,1000) = lu(k,1000) - lu(k,457) * lu(k,978) + lu(k,1001) = lu(k,1001) - lu(k,458) * lu(k,978) + lu(k,1004) = lu(k,1004) - lu(k,459) * lu(k,978) + lu(k,1005) = lu(k,1005) - lu(k,460) * lu(k,978) + lu(k,1057) = lu(k,1057) - lu(k,449) * lu(k,1055) + lu(k,1058) = lu(k,1058) - lu(k,450) * lu(k,1055) + lu(k,1059) = lu(k,1059) - lu(k,451) * lu(k,1055) + lu(k,1060) = lu(k,1060) - lu(k,452) * lu(k,1055) + lu(k,1062) = lu(k,1062) - lu(k,453) * lu(k,1055) + lu(k,1067) = lu(k,1067) - lu(k,454) * lu(k,1055) + lu(k,1072) = lu(k,1072) - lu(k,455) * lu(k,1055) + lu(k,1074) = lu(k,1074) - lu(k,456) * lu(k,1055) + lu(k,1076) = lu(k,1076) - lu(k,457) * lu(k,1055) + lu(k,1077) = lu(k,1077) - lu(k,458) * lu(k,1055) + lu(k,1080) = lu(k,1080) - lu(k,459) * lu(k,1055) + lu(k,1081) = lu(k,1081) - lu(k,460) * lu(k,1055) + lu(k,1144) = lu(k,1144) - lu(k,449) * lu(k,1133) + lu(k,1148) = lu(k,1148) - lu(k,450) * lu(k,1133) + lu(k,1150) = lu(k,1150) - lu(k,451) * lu(k,1133) + lu(k,1152) = lu(k,1152) - lu(k,452) * lu(k,1133) + lu(k,1154) = lu(k,1154) - lu(k,453) * lu(k,1133) + lu(k,1159) = lu(k,1159) - lu(k,454) * lu(k,1133) + lu(k,1164) = lu(k,1164) - lu(k,455) * lu(k,1133) + lu(k,1166) = lu(k,1166) - lu(k,456) * lu(k,1133) + lu(k,1168) = - lu(k,457) * lu(k,1133) + lu(k,1169) = lu(k,1169) - lu(k,458) * lu(k,1133) + lu(k,1172) = lu(k,1172) - lu(k,459) * lu(k,1133) + lu(k,1173) = lu(k,1173) - lu(k,460) * lu(k,1133) + lu(k,1373) = lu(k,1373) - lu(k,449) * lu(k,1365) + lu(k,1377) = lu(k,1377) - lu(k,450) * lu(k,1365) + lu(k,1379) = lu(k,1379) - lu(k,451) * lu(k,1365) + lu(k,1381) = lu(k,1381) - lu(k,452) * lu(k,1365) + lu(k,1383) = lu(k,1383) - lu(k,453) * lu(k,1365) + lu(k,1388) = lu(k,1388) - lu(k,454) * lu(k,1365) lu(k,1393) = lu(k,1393) - lu(k,455) * lu(k,1365) - lu(k,1397) = lu(k,1397) - lu(k,456) * lu(k,1365) - lu(k,1398) = lu(k,1398) - lu(k,457) * lu(k,1365) - lu(k,1402) = lu(k,1402) - lu(k,458) * lu(k,1365) - lu(k,1423) = lu(k,1423) - lu(k,447) * lu(k,1416) - lu(k,1426) = lu(k,1426) - lu(k,448) * lu(k,1416) - lu(k,1428) = lu(k,1428) - lu(k,449) * lu(k,1416) - lu(k,1430) = lu(k,1430) - lu(k,450) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,451) * lu(k,1416) - lu(k,1435) = lu(k,1435) - lu(k,452) * lu(k,1416) - lu(k,1437) = lu(k,1437) - lu(k,453) * lu(k,1416) - lu(k,1438) = lu(k,1438) - lu(k,454) * lu(k,1416) - lu(k,1442) = lu(k,1442) - lu(k,455) * lu(k,1416) - lu(k,1446) = lu(k,1446) - lu(k,456) * lu(k,1416) - lu(k,1447) = - lu(k,457) * lu(k,1416) - lu(k,1451) = lu(k,1451) - lu(k,458) * lu(k,1416) - lu(k,1592) = lu(k,1592) - lu(k,447) * lu(k,1580) - lu(k,1596) = - lu(k,448) * lu(k,1580) - lu(k,1598) = lu(k,1598) - lu(k,449) * lu(k,1580) - lu(k,1600) = lu(k,1600) - lu(k,450) * lu(k,1580) - lu(k,1602) = lu(k,1602) - lu(k,451) * lu(k,1580) - lu(k,1605) = lu(k,1605) - lu(k,452) * lu(k,1580) - lu(k,1607) = lu(k,1607) - lu(k,453) * lu(k,1580) - lu(k,1608) = lu(k,1608) - lu(k,454) * lu(k,1580) - lu(k,1612) = lu(k,1612) - lu(k,455) * lu(k,1580) - lu(k,1616) = lu(k,1616) - lu(k,456) * lu(k,1580) - lu(k,1617) = lu(k,1617) - lu(k,457) * lu(k,1580) - lu(k,1621) = lu(k,1621) - lu(k,458) * lu(k,1580) - lu(k,1803) = lu(k,1803) - lu(k,447) * lu(k,1793) - lu(k,1806) = lu(k,1806) - lu(k,448) * lu(k,1793) - lu(k,1808) = lu(k,1808) - lu(k,449) * lu(k,1793) - lu(k,1810) = - lu(k,450) * lu(k,1793) - lu(k,1812) = - lu(k,451) * lu(k,1793) - lu(k,1815) = lu(k,1815) - lu(k,452) * lu(k,1793) - lu(k,1817) = lu(k,1817) - lu(k,453) * lu(k,1793) - lu(k,1818) = lu(k,1818) - lu(k,454) * lu(k,1793) - lu(k,1822) = - lu(k,455) * lu(k,1793) - lu(k,1826) = - lu(k,456) * lu(k,1793) - lu(k,1827) = lu(k,1827) - lu(k,457) * lu(k,1793) - lu(k,1831) = lu(k,1831) - lu(k,458) * lu(k,1793) - lu(k,1955) = - lu(k,447) * lu(k,1947) - lu(k,1958) = lu(k,1958) - lu(k,448) * lu(k,1947) - lu(k,1960) = lu(k,1960) - lu(k,449) * lu(k,1947) - lu(k,1962) = lu(k,1962) - lu(k,450) * lu(k,1947) - lu(k,1964) = lu(k,1964) - lu(k,451) * lu(k,1947) - lu(k,1967) = lu(k,1967) - lu(k,452) * lu(k,1947) - lu(k,1969) = lu(k,1969) - lu(k,453) * lu(k,1947) - lu(k,1970) = lu(k,1970) - lu(k,454) * lu(k,1947) - lu(k,1974) = lu(k,1974) - lu(k,455) * lu(k,1947) - lu(k,1978) = lu(k,1978) - lu(k,456) * lu(k,1947) - lu(k,1979) = lu(k,1979) - lu(k,457) * lu(k,1947) - lu(k,1983) = lu(k,1983) - lu(k,458) * lu(k,1947) - lu(k,461) = 1._r8 / lu(k,461) - lu(k,462) = lu(k,462) * lu(k,461) - lu(k,463) = lu(k,463) * lu(k,461) - lu(k,464) = lu(k,464) * lu(k,461) - lu(k,465) = lu(k,465) * lu(k,461) - lu(k,466) = lu(k,466) * lu(k,461) - lu(k,467) = lu(k,467) * lu(k,461) - lu(k,468) = lu(k,468) * lu(k,461) - lu(k,469) = lu(k,469) * lu(k,461) - lu(k,470) = lu(k,470) * lu(k,461) - lu(k,471) = lu(k,471) * lu(k,461) - lu(k,472) = lu(k,472) * lu(k,461) - lu(k,789) = lu(k,789) - lu(k,462) * lu(k,782) - lu(k,790) = lu(k,790) - lu(k,463) * lu(k,782) - lu(k,792) = - lu(k,464) * lu(k,782) - lu(k,794) = lu(k,794) - lu(k,465) * lu(k,782) - lu(k,795) = lu(k,795) - lu(k,466) * lu(k,782) - lu(k,798) = lu(k,798) - lu(k,467) * lu(k,782) - lu(k,799) = lu(k,799) - lu(k,468) * lu(k,782) - lu(k,801) = lu(k,801) - lu(k,469) * lu(k,782) - lu(k,804) = lu(k,804) - lu(k,470) * lu(k,782) - lu(k,805) = lu(k,805) - lu(k,471) * lu(k,782) - lu(k,808) = lu(k,808) - lu(k,472) * lu(k,782) - lu(k,1057) = lu(k,1057) - lu(k,462) * lu(k,1054) - lu(k,1058) = lu(k,1058) - lu(k,463) * lu(k,1054) - lu(k,1062) = lu(k,1062) - lu(k,464) * lu(k,1054) - lu(k,1065) = lu(k,1065) - lu(k,465) * lu(k,1054) - lu(k,1066) = lu(k,1066) - lu(k,466) * lu(k,1054) - lu(k,1069) = lu(k,1069) - lu(k,467) * lu(k,1054) - lu(k,1070) = lu(k,1070) - lu(k,468) * lu(k,1054) - lu(k,1074) = lu(k,1074) - lu(k,469) * lu(k,1054) - lu(k,1077) = lu(k,1077) - lu(k,470) * lu(k,1054) - lu(k,1078) = lu(k,1078) - lu(k,471) * lu(k,1054) - lu(k,1081) = lu(k,1081) - lu(k,472) * lu(k,1054) - lu(k,1277) = lu(k,1277) - lu(k,462) * lu(k,1269) - lu(k,1279) = lu(k,1279) - lu(k,463) * lu(k,1269) - lu(k,1283) = - lu(k,464) * lu(k,1269) - lu(k,1286) = lu(k,1286) - lu(k,465) * lu(k,1269) - lu(k,1287) = lu(k,1287) - lu(k,466) * lu(k,1269) - lu(k,1290) = lu(k,1290) - lu(k,467) * lu(k,1269) - lu(k,1291) = lu(k,1291) - lu(k,468) * lu(k,1269) - lu(k,1295) = lu(k,1295) - lu(k,469) * lu(k,1269) - lu(k,1298) = lu(k,1298) - lu(k,470) * lu(k,1269) - lu(k,1299) = lu(k,1299) - lu(k,471) * lu(k,1269) - lu(k,1302) = lu(k,1302) - lu(k,472) * lu(k,1269) - lu(k,1379) = lu(k,1379) - lu(k,462) * lu(k,1366) - lu(k,1381) = lu(k,1381) - lu(k,463) * lu(k,1366) - lu(k,1385) = - lu(k,464) * lu(k,1366) - lu(k,1388) = lu(k,1388) - lu(k,465) * lu(k,1366) - lu(k,1389) = lu(k,1389) - lu(k,466) * lu(k,1366) - lu(k,1392) = lu(k,1392) - lu(k,467) * lu(k,1366) - lu(k,1393) = lu(k,1393) - lu(k,468) * lu(k,1366) - lu(k,1397) = lu(k,1397) - lu(k,469) * lu(k,1366) - lu(k,1400) = lu(k,1400) - lu(k,470) * lu(k,1366) - lu(k,1401) = lu(k,1401) - lu(k,471) * lu(k,1366) - lu(k,1404) = lu(k,1404) - lu(k,472) * lu(k,1366) - lu(k,1428) = lu(k,1428) - lu(k,462) * lu(k,1417) - lu(k,1430) = lu(k,1430) - lu(k,463) * lu(k,1417) - lu(k,1434) = - lu(k,464) * lu(k,1417) - lu(k,1437) = lu(k,1437) - lu(k,465) * lu(k,1417) - lu(k,1438) = lu(k,1438) - lu(k,466) * lu(k,1417) - lu(k,1441) = lu(k,1441) - lu(k,467) * lu(k,1417) - lu(k,1442) = lu(k,1442) - lu(k,468) * lu(k,1417) - lu(k,1446) = lu(k,1446) - lu(k,469) * lu(k,1417) - lu(k,1449) = lu(k,1449) - lu(k,470) * lu(k,1417) - lu(k,1450) = lu(k,1450) - lu(k,471) * lu(k,1417) - lu(k,1453) = lu(k,1453) - lu(k,472) * lu(k,1417) - lu(k,1553) = - lu(k,462) * lu(k,1546) - lu(k,1555) = lu(k,1555) - lu(k,463) * lu(k,1546) - lu(k,1559) = lu(k,1559) - lu(k,464) * lu(k,1546) - lu(k,1562) = lu(k,1562) - lu(k,465) * lu(k,1546) - lu(k,1563) = lu(k,1563) - lu(k,466) * lu(k,1546) - lu(k,1566) = lu(k,1566) - lu(k,467) * lu(k,1546) - lu(k,1567) = lu(k,1567) - lu(k,468) * lu(k,1546) - lu(k,1571) = lu(k,1571) - lu(k,469) * lu(k,1546) - lu(k,1574) = lu(k,1574) - lu(k,470) * lu(k,1546) - lu(k,1575) = lu(k,1575) - lu(k,471) * lu(k,1546) - lu(k,1578) = lu(k,1578) - lu(k,472) * lu(k,1546) - lu(k,1598) = lu(k,1598) - lu(k,462) * lu(k,1581) - lu(k,1600) = lu(k,1600) - lu(k,463) * lu(k,1581) - lu(k,1604) = lu(k,1604) - lu(k,464) * lu(k,1581) - lu(k,1607) = lu(k,1607) - lu(k,465) * lu(k,1581) - lu(k,1608) = lu(k,1608) - lu(k,466) * lu(k,1581) - lu(k,1611) = lu(k,1611) - lu(k,467) * lu(k,1581) - lu(k,1612) = lu(k,1612) - lu(k,468) * lu(k,1581) - lu(k,1616) = lu(k,1616) - lu(k,469) * lu(k,1581) - lu(k,1619) = - lu(k,470) * lu(k,1581) - lu(k,1620) = - lu(k,471) * lu(k,1581) - lu(k,1623) = lu(k,1623) - lu(k,472) * lu(k,1581) - lu(k,1877) = lu(k,1877) - lu(k,462) * lu(k,1868) - lu(k,1879) = lu(k,1879) - lu(k,463) * lu(k,1868) - lu(k,1883) = - lu(k,464) * lu(k,1868) - lu(k,1886) = lu(k,1886) - lu(k,465) * lu(k,1868) - lu(k,1887) = lu(k,1887) - lu(k,466) * lu(k,1868) - lu(k,1890) = lu(k,1890) - lu(k,467) * lu(k,1868) - lu(k,1891) = lu(k,1891) - lu(k,468) * lu(k,1868) - lu(k,1895) = lu(k,1895) - lu(k,469) * lu(k,1868) - lu(k,1898) = lu(k,1898) - lu(k,470) * lu(k,1868) - lu(k,1899) = lu(k,1899) - lu(k,471) * lu(k,1868) - lu(k,1902) = lu(k,1902) - lu(k,472) * lu(k,1868) - lu(k,1918) = lu(k,1918) - lu(k,462) * lu(k,1907) - lu(k,1920) = lu(k,1920) - lu(k,463) * lu(k,1907) - lu(k,1924) = - lu(k,464) * lu(k,1907) - lu(k,1927) = lu(k,1927) - lu(k,465) * lu(k,1907) - lu(k,1928) = lu(k,1928) - lu(k,466) * lu(k,1907) - lu(k,1931) = lu(k,1931) - lu(k,467) * lu(k,1907) - lu(k,1932) = lu(k,1932) - lu(k,468) * lu(k,1907) - lu(k,1936) = lu(k,1936) - lu(k,469) * lu(k,1907) - lu(k,1939) = lu(k,1939) - lu(k,470) * lu(k,1907) - lu(k,1940) = lu(k,1940) - lu(k,471) * lu(k,1907) - lu(k,1943) = lu(k,1943) - lu(k,472) * lu(k,1907) - lu(k,2065) = lu(k,2065) - lu(k,462) * lu(k,2048) - lu(k,2067) = lu(k,2067) - lu(k,463) * lu(k,2048) - lu(k,2071) = lu(k,2071) - lu(k,464) * lu(k,2048) - lu(k,2074) = lu(k,2074) - lu(k,465) * lu(k,2048) - lu(k,2075) = lu(k,2075) - lu(k,466) * lu(k,2048) - lu(k,2078) = - lu(k,467) * lu(k,2048) - lu(k,2079) = lu(k,2079) - lu(k,468) * lu(k,2048) - lu(k,2083) = lu(k,2083) - lu(k,469) * lu(k,2048) - lu(k,2086) = lu(k,2086) - lu(k,470) * lu(k,2048) - lu(k,2087) = - lu(k,471) * lu(k,2048) - lu(k,2090) = lu(k,2090) - lu(k,472) * lu(k,2048) + lu(k,1395) = lu(k,1395) - lu(k,456) * lu(k,1365) + lu(k,1397) = lu(k,1397) - lu(k,457) * lu(k,1365) + lu(k,1398) = lu(k,1398) - lu(k,458) * lu(k,1365) + lu(k,1401) = lu(k,1401) - lu(k,459) * lu(k,1365) + lu(k,1402) = lu(k,1402) - lu(k,460) * lu(k,1365) + lu(k,1586) = lu(k,1586) - lu(k,449) * lu(k,1574) + lu(k,1590) = - lu(k,450) * lu(k,1574) + lu(k,1592) = lu(k,1592) - lu(k,451) * lu(k,1574) + lu(k,1594) = lu(k,1594) - lu(k,452) * lu(k,1574) + lu(k,1596) = lu(k,1596) - lu(k,453) * lu(k,1574) + lu(k,1601) = lu(k,1601) - lu(k,454) * lu(k,1574) + lu(k,1606) = lu(k,1606) - lu(k,455) * lu(k,1574) + lu(k,1608) = lu(k,1608) - lu(k,456) * lu(k,1574) + lu(k,1610) = lu(k,1610) - lu(k,457) * lu(k,1574) + lu(k,1611) = lu(k,1611) - lu(k,458) * lu(k,1574) + lu(k,1614) = lu(k,1614) - lu(k,459) * lu(k,1574) + lu(k,1615) = lu(k,1615) - lu(k,460) * lu(k,1574) + lu(k,1672) = lu(k,1672) - lu(k,449) * lu(k,1668) + lu(k,1675) = lu(k,1675) - lu(k,450) * lu(k,1668) + lu(k,1677) = lu(k,1677) - lu(k,451) * lu(k,1668) + lu(k,1679) = lu(k,1679) - lu(k,452) * lu(k,1668) + lu(k,1681) = lu(k,1681) - lu(k,453) * lu(k,1668) + lu(k,1686) = lu(k,1686) - lu(k,454) * lu(k,1668) + lu(k,1691) = lu(k,1691) - lu(k,455) * lu(k,1668) + lu(k,1693) = lu(k,1693) - lu(k,456) * lu(k,1668) + lu(k,1695) = - lu(k,457) * lu(k,1668) + lu(k,1696) = - lu(k,458) * lu(k,1668) + lu(k,1699) = lu(k,1699) - lu(k,459) * lu(k,1668) + lu(k,1700) = lu(k,1700) - lu(k,460) * lu(k,1668) + lu(k,1796) = lu(k,1796) - lu(k,449) * lu(k,1786) + lu(k,1799) = lu(k,1799) - lu(k,450) * lu(k,1786) + lu(k,1801) = lu(k,1801) - lu(k,451) * lu(k,1786) + lu(k,1803) = - lu(k,452) * lu(k,1786) + lu(k,1805) = - lu(k,453) * lu(k,1786) + lu(k,1810) = lu(k,1810) - lu(k,454) * lu(k,1786) + lu(k,1815) = - lu(k,455) * lu(k,1786) + lu(k,1817) = lu(k,1817) - lu(k,456) * lu(k,1786) + lu(k,1819) = - lu(k,457) * lu(k,1786) + lu(k,1820) = lu(k,1820) - lu(k,458) * lu(k,1786) + lu(k,1823) = lu(k,1823) - lu(k,459) * lu(k,1786) + lu(k,1824) = lu(k,1824) - lu(k,460) * lu(k,1786) + lu(k,1914) = lu(k,1914) - lu(k,449) * lu(k,1907) + lu(k,1917) = lu(k,1917) - lu(k,450) * lu(k,1907) + lu(k,1919) = lu(k,1919) - lu(k,451) * lu(k,1907) + lu(k,1921) = lu(k,1921) - lu(k,452) * lu(k,1907) + lu(k,1923) = lu(k,1923) - lu(k,453) * lu(k,1907) + lu(k,1928) = lu(k,1928) - lu(k,454) * lu(k,1907) + lu(k,1933) = lu(k,1933) - lu(k,455) * lu(k,1907) + lu(k,1935) = lu(k,1935) - lu(k,456) * lu(k,1907) + lu(k,1937) = lu(k,1937) - lu(k,457) * lu(k,1907) + lu(k,1938) = - lu(k,458) * lu(k,1907) + lu(k,1941) = lu(k,1941) - lu(k,459) * lu(k,1907) + lu(k,1942) = lu(k,1942) - lu(k,460) * lu(k,1907) + lu(k,1958) = lu(k,1958) - lu(k,449) * lu(k,1950) + lu(k,1961) = lu(k,1961) - lu(k,450) * lu(k,1950) + lu(k,1963) = lu(k,1963) - lu(k,451) * lu(k,1950) + lu(k,1965) = lu(k,1965) - lu(k,452) * lu(k,1950) + lu(k,1967) = lu(k,1967) - lu(k,453) * lu(k,1950) + lu(k,1972) = lu(k,1972) - lu(k,454) * lu(k,1950) + lu(k,1977) = lu(k,1977) - lu(k,455) * lu(k,1950) + lu(k,1979) = lu(k,1979) - lu(k,456) * lu(k,1950) + lu(k,1981) = lu(k,1981) - lu(k,457) * lu(k,1950) + lu(k,1982) = lu(k,1982) - lu(k,458) * lu(k,1950) + lu(k,1985) = lu(k,1985) - lu(k,459) * lu(k,1950) + lu(k,1986) = lu(k,1986) - lu(k,460) * lu(k,1950) end do end subroutine lu_fac11 subroutine lu_fac12( avec_len, lu ) @@ -2280,268 +2182,259 @@ subroutine lu_fac12( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,476) = 1._r8 / lu(k,476) - lu(k,477) = lu(k,477) * lu(k,476) - lu(k,478) = lu(k,478) * lu(k,476) - lu(k,479) = lu(k,479) * lu(k,476) - lu(k,480) = lu(k,480) * lu(k,476) - lu(k,481) = lu(k,481) * lu(k,476) - lu(k,482) = lu(k,482) * lu(k,476) - lu(k,483) = lu(k,483) * lu(k,476) - lu(k,484) = lu(k,484) * lu(k,476) - lu(k,485) = lu(k,485) * lu(k,476) - lu(k,486) = lu(k,486) * lu(k,476) - lu(k,487) = lu(k,487) * lu(k,476) - lu(k,488) = lu(k,488) * lu(k,476) - lu(k,489) = lu(k,489) * lu(k,476) - lu(k,714) = lu(k,714) - lu(k,477) * lu(k,713) - lu(k,715) = lu(k,715) - lu(k,478) * lu(k,713) - lu(k,718) = lu(k,718) - lu(k,479) * lu(k,713) - lu(k,719) = lu(k,719) - lu(k,480) * lu(k,713) - lu(k,720) = lu(k,720) - lu(k,481) * lu(k,713) - lu(k,722) = lu(k,722) - lu(k,482) * lu(k,713) - lu(k,723) = lu(k,723) - lu(k,483) * lu(k,713) - lu(k,724) = lu(k,724) - lu(k,484) * lu(k,713) - lu(k,727) = - lu(k,485) * lu(k,713) - lu(k,728) = lu(k,728) - lu(k,486) * lu(k,713) - lu(k,729) = - lu(k,487) * lu(k,713) - lu(k,730) = lu(k,730) - lu(k,488) * lu(k,713) - lu(k,732) = lu(k,732) - lu(k,489) * lu(k,713) - lu(k,978) = lu(k,978) - lu(k,477) * lu(k,977) - lu(k,980) = lu(k,980) - lu(k,478) * lu(k,977) - lu(k,983) = lu(k,983) - lu(k,479) * lu(k,977) - lu(k,984) = lu(k,984) - lu(k,480) * lu(k,977) - lu(k,986) = lu(k,986) - lu(k,481) * lu(k,977) - lu(k,991) = lu(k,991) - lu(k,482) * lu(k,977) - lu(k,992) = lu(k,992) - lu(k,483) * lu(k,977) - lu(k,993) = lu(k,993) - lu(k,484) * lu(k,977) - lu(k,998) = lu(k,998) - lu(k,485) * lu(k,977) - lu(k,999) = lu(k,999) - lu(k,486) * lu(k,977) - lu(k,1002) = lu(k,1002) - lu(k,487) * lu(k,977) - lu(k,1003) = lu(k,1003) - lu(k,488) * lu(k,977) - lu(k,1005) = lu(k,1005) - lu(k,489) * lu(k,977) - lu(k,1092) = lu(k,1092) - lu(k,477) * lu(k,1091) - lu(k,1093) = lu(k,1093) - lu(k,478) * lu(k,1091) - lu(k,1099) = lu(k,1099) - lu(k,479) * lu(k,1091) - lu(k,1101) = lu(k,1101) - lu(k,480) * lu(k,1091) - lu(k,1104) = lu(k,1104) - lu(k,481) * lu(k,1091) - lu(k,1110) = lu(k,1110) - lu(k,482) * lu(k,1091) - lu(k,1111) = lu(k,1111) - lu(k,483) * lu(k,1091) - lu(k,1112) = lu(k,1112) - lu(k,484) * lu(k,1091) - lu(k,1119) = lu(k,1119) - lu(k,485) * lu(k,1091) - lu(k,1120) = lu(k,1120) - lu(k,486) * lu(k,1091) - lu(k,1123) = - lu(k,487) * lu(k,1091) - lu(k,1124) = lu(k,1124) - lu(k,488) * lu(k,1091) - lu(k,1126) = lu(k,1126) - lu(k,489) * lu(k,1091) - lu(k,1368) = lu(k,1368) - lu(k,477) * lu(k,1367) - lu(k,1371) = lu(k,1371) - lu(k,478) * lu(k,1367) - lu(k,1377) = lu(k,1377) - lu(k,479) * lu(k,1367) - lu(k,1379) = lu(k,1379) - lu(k,480) * lu(k,1367) - lu(k,1382) = lu(k,1382) - lu(k,481) * lu(k,1367) - lu(k,1388) = lu(k,1388) - lu(k,482) * lu(k,1367) - lu(k,1389) = lu(k,1389) - lu(k,483) * lu(k,1367) - lu(k,1390) = lu(k,1390) - lu(k,484) * lu(k,1367) - lu(k,1397) = lu(k,1397) - lu(k,485) * lu(k,1367) - lu(k,1398) = lu(k,1398) - lu(k,486) * lu(k,1367) - lu(k,1401) = lu(k,1401) - lu(k,487) * lu(k,1367) - lu(k,1402) = lu(k,1402) - lu(k,488) * lu(k,1367) - lu(k,1404) = lu(k,1404) - lu(k,489) * lu(k,1367) - lu(k,1419) = - lu(k,477) * lu(k,1418) - lu(k,1421) = - lu(k,478) * lu(k,1418) - lu(k,1426) = lu(k,1426) - lu(k,479) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,480) * lu(k,1418) - lu(k,1431) = - lu(k,481) * lu(k,1418) - lu(k,1437) = lu(k,1437) - lu(k,482) * lu(k,1418) - lu(k,1438) = lu(k,1438) - lu(k,483) * lu(k,1418) - lu(k,1439) = - lu(k,484) * lu(k,1418) - lu(k,1446) = lu(k,1446) - lu(k,485) * lu(k,1418) - lu(k,1447) = lu(k,1447) - lu(k,486) * lu(k,1418) - lu(k,1450) = lu(k,1450) - lu(k,487) * lu(k,1418) - lu(k,1451) = lu(k,1451) - lu(k,488) * lu(k,1418) - lu(k,1453) = lu(k,1453) - lu(k,489) * lu(k,1418) - lu(k,1715) = - lu(k,477) * lu(k,1714) - lu(k,1719) = - lu(k,478) * lu(k,1714) - lu(k,1723) = lu(k,1723) - lu(k,479) * lu(k,1714) - lu(k,1725) = lu(k,1725) - lu(k,480) * lu(k,1714) - lu(k,1727) = - lu(k,481) * lu(k,1714) - lu(k,1733) = lu(k,1733) - lu(k,482) * lu(k,1714) - lu(k,1734) = lu(k,1734) - lu(k,483) * lu(k,1714) - lu(k,1735) = - lu(k,484) * lu(k,1714) - lu(k,1742) = - lu(k,485) * lu(k,1714) - lu(k,1743) = lu(k,1743) - lu(k,486) * lu(k,1714) - lu(k,1746) = - lu(k,487) * lu(k,1714) - lu(k,1747) = lu(k,1747) - lu(k,488) * lu(k,1714) - lu(k,1749) = lu(k,1749) - lu(k,489) * lu(k,1714) - lu(k,1795) = lu(k,1795) - lu(k,477) * lu(k,1794) - lu(k,1801) = lu(k,1801) - lu(k,478) * lu(k,1794) - lu(k,1806) = lu(k,1806) - lu(k,479) * lu(k,1794) - lu(k,1808) = lu(k,1808) - lu(k,480) * lu(k,1794) - lu(k,1811) = lu(k,1811) - lu(k,481) * lu(k,1794) - lu(k,1817) = lu(k,1817) - lu(k,482) * lu(k,1794) - lu(k,1818) = lu(k,1818) - lu(k,483) * lu(k,1794) - lu(k,1819) = lu(k,1819) - lu(k,484) * lu(k,1794) - lu(k,1826) = lu(k,1826) - lu(k,485) * lu(k,1794) - lu(k,1827) = lu(k,1827) - lu(k,486) * lu(k,1794) - lu(k,1830) = lu(k,1830) - lu(k,487) * lu(k,1794) - lu(k,1831) = lu(k,1831) - lu(k,488) * lu(k,1794) - lu(k,1833) = lu(k,1833) - lu(k,489) * lu(k,1794) - lu(k,1909) = lu(k,1909) - lu(k,477) * lu(k,1908) - lu(k,1911) = lu(k,1911) - lu(k,478) * lu(k,1908) - lu(k,1916) = lu(k,1916) - lu(k,479) * lu(k,1908) - lu(k,1918) = lu(k,1918) - lu(k,480) * lu(k,1908) - lu(k,1921) = lu(k,1921) - lu(k,481) * lu(k,1908) - lu(k,1927) = lu(k,1927) - lu(k,482) * lu(k,1908) - lu(k,1928) = lu(k,1928) - lu(k,483) * lu(k,1908) - lu(k,1929) = lu(k,1929) - lu(k,484) * lu(k,1908) - lu(k,1936) = lu(k,1936) - lu(k,485) * lu(k,1908) - lu(k,1937) = lu(k,1937) - lu(k,486) * lu(k,1908) - lu(k,1940) = lu(k,1940) - lu(k,487) * lu(k,1908) - lu(k,1941) = lu(k,1941) - lu(k,488) * lu(k,1908) - lu(k,1943) = lu(k,1943) - lu(k,489) * lu(k,1908) - lu(k,2053) = - lu(k,477) * lu(k,2049) - lu(k,2058) = - lu(k,478) * lu(k,2049) - lu(k,2063) = lu(k,2063) - lu(k,479) * lu(k,2049) - lu(k,2065) = lu(k,2065) - lu(k,480) * lu(k,2049) - lu(k,2068) = lu(k,2068) - lu(k,481) * lu(k,2049) - lu(k,2074) = lu(k,2074) - lu(k,482) * lu(k,2049) - lu(k,2075) = lu(k,2075) - lu(k,483) * lu(k,2049) - lu(k,2076) = lu(k,2076) - lu(k,484) * lu(k,2049) - lu(k,2083) = lu(k,2083) - lu(k,485) * lu(k,2049) - lu(k,2084) = lu(k,2084) - lu(k,486) * lu(k,2049) - lu(k,2087) = lu(k,2087) - lu(k,487) * lu(k,2049) - lu(k,2088) = lu(k,2088) - lu(k,488) * lu(k,2049) - lu(k,2090) = lu(k,2090) - lu(k,489) * lu(k,2049) - lu(k,490) = 1._r8 / lu(k,490) - lu(k,491) = lu(k,491) * lu(k,490) - lu(k,492) = lu(k,492) * lu(k,490) - lu(k,493) = lu(k,493) * lu(k,490) - lu(k,494) = lu(k,494) * lu(k,490) - lu(k,495) = lu(k,495) * lu(k,490) - lu(k,496) = lu(k,496) * lu(k,490) - lu(k,497) = lu(k,497) * lu(k,490) - lu(k,498) = lu(k,498) * lu(k,490) - lu(k,499) = lu(k,499) * lu(k,490) - lu(k,500) = lu(k,500) * lu(k,490) - lu(k,501) = lu(k,501) * lu(k,490) - lu(k,502) = lu(k,502) * lu(k,490) - lu(k,503) = lu(k,503) * lu(k,490) - lu(k,1149) = lu(k,1149) - lu(k,491) * lu(k,1133) - lu(k,1153) = lu(k,1153) - lu(k,492) * lu(k,1133) - lu(k,1154) = - lu(k,493) * lu(k,1133) - lu(k,1155) = - lu(k,494) * lu(k,1133) - lu(k,1156) = lu(k,1156) - lu(k,495) * lu(k,1133) - lu(k,1157) = lu(k,1157) - lu(k,496) * lu(k,1133) - lu(k,1159) = lu(k,1159) - lu(k,497) * lu(k,1133) - lu(k,1163) = lu(k,1163) - lu(k,498) * lu(k,1133) - lu(k,1164) = - lu(k,499) * lu(k,1133) - lu(k,1165) = - lu(k,500) * lu(k,1133) - lu(k,1167) = lu(k,1167) - lu(k,501) * lu(k,1133) - lu(k,1172) = lu(k,1172) - lu(k,502) * lu(k,1133) - lu(k,1174) = lu(k,1174) - lu(k,503) * lu(k,1133) - lu(k,1192) = lu(k,1192) - lu(k,491) * lu(k,1177) - lu(k,1196) = - lu(k,492) * lu(k,1177) - lu(k,1197) = lu(k,1197) - lu(k,493) * lu(k,1177) - lu(k,1198) = lu(k,1198) - lu(k,494) * lu(k,1177) - lu(k,1199) = lu(k,1199) - lu(k,495) * lu(k,1177) - lu(k,1200) = - lu(k,496) * lu(k,1177) - lu(k,1202) = lu(k,1202) - lu(k,497) * lu(k,1177) - lu(k,1206) = - lu(k,498) * lu(k,1177) - lu(k,1207) = - lu(k,499) * lu(k,1177) - lu(k,1208) = - lu(k,500) * lu(k,1177) - lu(k,1210) = - lu(k,501) * lu(k,1177) - lu(k,1215) = lu(k,1215) - lu(k,502) * lu(k,1177) - lu(k,1217) = lu(k,1217) - lu(k,503) * lu(k,1177) - lu(k,1235) = lu(k,1235) - lu(k,491) * lu(k,1220) - lu(k,1239) = - lu(k,492) * lu(k,1220) - lu(k,1240) = - lu(k,493) * lu(k,1220) - lu(k,1241) = lu(k,1241) - lu(k,494) * lu(k,1220) - lu(k,1242) = lu(k,1242) - lu(k,495) * lu(k,1220) - lu(k,1243) = - lu(k,496) * lu(k,1220) - lu(k,1245) = lu(k,1245) - lu(k,497) * lu(k,1220) - lu(k,1249) = - lu(k,498) * lu(k,1220) - lu(k,1250) = - lu(k,499) * lu(k,1220) - lu(k,1251) = lu(k,1251) - lu(k,500) * lu(k,1220) - lu(k,1253) = lu(k,1253) - lu(k,501) * lu(k,1220) - lu(k,1258) = - lu(k,502) * lu(k,1220) - lu(k,1260) = lu(k,1260) - lu(k,503) * lu(k,1220) - lu(k,1277) = lu(k,1277) - lu(k,491) * lu(k,1270) - lu(k,1281) = lu(k,1281) - lu(k,492) * lu(k,1270) - lu(k,1282) = - lu(k,493) * lu(k,1270) - lu(k,1283) = lu(k,1283) - lu(k,494) * lu(k,1270) - lu(k,1284) = lu(k,1284) - lu(k,495) * lu(k,1270) - lu(k,1285) = lu(k,1285) - lu(k,496) * lu(k,1270) - lu(k,1287) = lu(k,1287) - lu(k,497) * lu(k,1270) - lu(k,1291) = lu(k,1291) - lu(k,498) * lu(k,1270) - lu(k,1292) = - lu(k,499) * lu(k,1270) - lu(k,1293) = - lu(k,500) * lu(k,1270) - lu(k,1295) = lu(k,1295) - lu(k,501) * lu(k,1270) - lu(k,1300) = lu(k,1300) - lu(k,502) * lu(k,1270) - lu(k,1302) = lu(k,1302) - lu(k,503) * lu(k,1270) - lu(k,1319) = lu(k,1319) - lu(k,491) * lu(k,1304) - lu(k,1323) = - lu(k,492) * lu(k,1304) - lu(k,1324) = lu(k,1324) - lu(k,493) * lu(k,1304) - lu(k,1325) = lu(k,1325) - lu(k,494) * lu(k,1304) - lu(k,1326) = lu(k,1326) - lu(k,495) * lu(k,1304) - lu(k,1327) = lu(k,1327) - lu(k,496) * lu(k,1304) - lu(k,1329) = lu(k,1329) - lu(k,497) * lu(k,1304) - lu(k,1333) = - lu(k,498) * lu(k,1304) - lu(k,1334) = - lu(k,499) * lu(k,1304) - lu(k,1335) = - lu(k,500) * lu(k,1304) - lu(k,1337) = lu(k,1337) - lu(k,501) * lu(k,1304) - lu(k,1342) = lu(k,1342) - lu(k,502) * lu(k,1304) - lu(k,1344) = lu(k,1344) - lu(k,503) * lu(k,1304) - lu(k,1598) = lu(k,1598) - lu(k,491) * lu(k,1582) - lu(k,1602) = lu(k,1602) - lu(k,492) * lu(k,1582) - lu(k,1603) = - lu(k,493) * lu(k,1582) - lu(k,1604) = lu(k,1604) - lu(k,494) * lu(k,1582) - lu(k,1605) = lu(k,1605) - lu(k,495) * lu(k,1582) - lu(k,1606) = - lu(k,496) * lu(k,1582) - lu(k,1608) = lu(k,1608) - lu(k,497) * lu(k,1582) - lu(k,1612) = lu(k,1612) - lu(k,498) * lu(k,1582) - lu(k,1613) = - lu(k,499) * lu(k,1582) - lu(k,1614) = - lu(k,500) * lu(k,1582) - lu(k,1616) = lu(k,1616) - lu(k,501) * lu(k,1582) - lu(k,1621) = lu(k,1621) - lu(k,502) * lu(k,1582) - lu(k,1623) = lu(k,1623) - lu(k,503) * lu(k,1582) - lu(k,1641) = lu(k,1641) - lu(k,491) * lu(k,1626) - lu(k,1645) = - lu(k,492) * lu(k,1626) - lu(k,1646) = - lu(k,493) * lu(k,1626) - lu(k,1647) = - lu(k,494) * lu(k,1626) - lu(k,1648) = lu(k,1648) - lu(k,495) * lu(k,1626) - lu(k,1649) = - lu(k,496) * lu(k,1626) - lu(k,1651) = lu(k,1651) - lu(k,497) * lu(k,1626) - lu(k,1655) = - lu(k,498) * lu(k,1626) - lu(k,1656) = lu(k,1656) - lu(k,499) * lu(k,1626) - lu(k,1657) = lu(k,1657) - lu(k,500) * lu(k,1626) - lu(k,1659) = lu(k,1659) - lu(k,501) * lu(k,1626) - lu(k,1664) = lu(k,1664) - lu(k,502) * lu(k,1626) - lu(k,1666) = lu(k,1666) - lu(k,503) * lu(k,1626) - lu(k,1684) = lu(k,1684) - lu(k,491) * lu(k,1669) - lu(k,1688) = - lu(k,492) * lu(k,1669) - lu(k,1689) = - lu(k,493) * lu(k,1669) - lu(k,1690) = lu(k,1690) - lu(k,494) * lu(k,1669) - lu(k,1691) = lu(k,1691) - lu(k,495) * lu(k,1669) - lu(k,1692) = - lu(k,496) * lu(k,1669) - lu(k,1694) = lu(k,1694) - lu(k,497) * lu(k,1669) - lu(k,1698) = - lu(k,498) * lu(k,1669) - lu(k,1699) = lu(k,1699) - lu(k,499) * lu(k,1669) - lu(k,1700) = lu(k,1700) - lu(k,500) * lu(k,1669) - lu(k,1702) = lu(k,1702) - lu(k,501) * lu(k,1669) - lu(k,1707) = lu(k,1707) - lu(k,502) * lu(k,1669) - lu(k,1709) = lu(k,1709) - lu(k,503) * lu(k,1669) - lu(k,1841) = lu(k,1841) - lu(k,491) * lu(k,1835) - lu(k,1845) = - lu(k,492) * lu(k,1835) - lu(k,1846) = - lu(k,493) * lu(k,1835) - lu(k,1847) = - lu(k,494) * lu(k,1835) - lu(k,1848) = lu(k,1848) - lu(k,495) * lu(k,1835) - lu(k,1849) = - lu(k,496) * lu(k,1835) - lu(k,1851) = lu(k,1851) - lu(k,497) * lu(k,1835) - lu(k,1855) = - lu(k,498) * lu(k,1835) - lu(k,1856) = - lu(k,499) * lu(k,1835) - lu(k,1857) = - lu(k,500) * lu(k,1835) - lu(k,1859) = lu(k,1859) - lu(k,501) * lu(k,1835) - lu(k,1864) = lu(k,1864) - lu(k,502) * lu(k,1835) - lu(k,1866) = lu(k,1866) - lu(k,503) * lu(k,1835) + lu(k,463) = 1._r8 / lu(k,463) + lu(k,464) = lu(k,464) * lu(k,463) + lu(k,465) = lu(k,465) * lu(k,463) + lu(k,466) = lu(k,466) * lu(k,463) + lu(k,467) = lu(k,467) * lu(k,463) + lu(k,468) = lu(k,468) * lu(k,463) + lu(k,469) = lu(k,469) * lu(k,463) + lu(k,470) = lu(k,470) * lu(k,463) + lu(k,471) = lu(k,471) * lu(k,463) + lu(k,472) = lu(k,472) * lu(k,463) + lu(k,473) = lu(k,473) * lu(k,463) + lu(k,474) = lu(k,474) * lu(k,463) + lu(k,791) = lu(k,791) - lu(k,464) * lu(k,784) + lu(k,792) = lu(k,792) - lu(k,465) * lu(k,784) + lu(k,794) = lu(k,794) - lu(k,466) * lu(k,784) + lu(k,795) = lu(k,795) - lu(k,467) * lu(k,784) + lu(k,798) = lu(k,798) - lu(k,468) * lu(k,784) + lu(k,799) = lu(k,799) - lu(k,469) * lu(k,784) + lu(k,800) = - lu(k,470) * lu(k,784) + lu(k,803) = lu(k,803) - lu(k,471) * lu(k,784) + lu(k,806) = lu(k,806) - lu(k,472) * lu(k,784) + lu(k,807) = lu(k,807) - lu(k,473) * lu(k,784) + lu(k,810) = lu(k,810) - lu(k,474) * lu(k,784) + lu(k,1059) = lu(k,1059) - lu(k,464) * lu(k,1056) + lu(k,1060) = lu(k,1060) - lu(k,465) * lu(k,1056) + lu(k,1064) = lu(k,1064) - lu(k,466) * lu(k,1056) + lu(k,1067) = lu(k,1067) - lu(k,467) * lu(k,1056) + lu(k,1071) = lu(k,1071) - lu(k,468) * lu(k,1056) + lu(k,1072) = lu(k,1072) - lu(k,469) * lu(k,1056) + lu(k,1073) = lu(k,1073) - lu(k,470) * lu(k,1056) + lu(k,1076) = lu(k,1076) - lu(k,471) * lu(k,1056) + lu(k,1079) = lu(k,1079) - lu(k,472) * lu(k,1056) + lu(k,1080) = lu(k,1080) - lu(k,473) * lu(k,1056) + lu(k,1083) = lu(k,1083) - lu(k,474) * lu(k,1056) + lu(k,1234) = lu(k,1234) - lu(k,464) * lu(k,1223) + lu(k,1236) = lu(k,1236) - lu(k,465) * lu(k,1223) + lu(k,1240) = lu(k,1240) - lu(k,466) * lu(k,1223) + lu(k,1243) = lu(k,1243) - lu(k,467) * lu(k,1223) + lu(k,1247) = lu(k,1247) - lu(k,468) * lu(k,1223) + lu(k,1248) = lu(k,1248) - lu(k,469) * lu(k,1223) + lu(k,1249) = - lu(k,470) * lu(k,1223) + lu(k,1252) = lu(k,1252) - lu(k,471) * lu(k,1223) + lu(k,1255) = lu(k,1255) - lu(k,472) * lu(k,1223) + lu(k,1256) = lu(k,1256) - lu(k,473) * lu(k,1223) + lu(k,1259) = lu(k,1259) - lu(k,474) * lu(k,1223) + lu(k,1379) = lu(k,1379) - lu(k,464) * lu(k,1366) + lu(k,1381) = lu(k,1381) - lu(k,465) * lu(k,1366) + lu(k,1385) = lu(k,1385) - lu(k,466) * lu(k,1366) + lu(k,1388) = lu(k,1388) - lu(k,467) * lu(k,1366) + lu(k,1392) = lu(k,1392) - lu(k,468) * lu(k,1366) + lu(k,1393) = lu(k,1393) - lu(k,469) * lu(k,1366) + lu(k,1394) = - lu(k,470) * lu(k,1366) + lu(k,1397) = lu(k,1397) - lu(k,471) * lu(k,1366) + lu(k,1400) = lu(k,1400) - lu(k,472) * lu(k,1366) + lu(k,1401) = lu(k,1401) - lu(k,473) * lu(k,1366) + lu(k,1404) = lu(k,1404) - lu(k,474) * lu(k,1366) + lu(k,1547) = - lu(k,464) * lu(k,1540) + lu(k,1549) = lu(k,1549) - lu(k,465) * lu(k,1540) + lu(k,1553) = lu(k,1553) - lu(k,466) * lu(k,1540) + lu(k,1556) = lu(k,1556) - lu(k,467) * lu(k,1540) + lu(k,1560) = lu(k,1560) - lu(k,468) * lu(k,1540) + lu(k,1561) = lu(k,1561) - lu(k,469) * lu(k,1540) + lu(k,1562) = lu(k,1562) - lu(k,470) * lu(k,1540) + lu(k,1565) = lu(k,1565) - lu(k,471) * lu(k,1540) + lu(k,1568) = lu(k,1568) - lu(k,472) * lu(k,1540) + lu(k,1569) = lu(k,1569) - lu(k,473) * lu(k,1540) + lu(k,1572) = lu(k,1572) - lu(k,474) * lu(k,1540) + lu(k,1592) = lu(k,1592) - lu(k,464) * lu(k,1575) + lu(k,1594) = lu(k,1594) - lu(k,465) * lu(k,1575) + lu(k,1598) = - lu(k,466) * lu(k,1575) + lu(k,1601) = lu(k,1601) - lu(k,467) * lu(k,1575) + lu(k,1605) = lu(k,1605) - lu(k,468) * lu(k,1575) + lu(k,1606) = lu(k,1606) - lu(k,469) * lu(k,1575) + lu(k,1607) = lu(k,1607) - lu(k,470) * lu(k,1575) + lu(k,1610) = lu(k,1610) - lu(k,471) * lu(k,1575) + lu(k,1613) = - lu(k,472) * lu(k,1575) + lu(k,1614) = lu(k,1614) - lu(k,473) * lu(k,1575) + lu(k,1617) = lu(k,1617) - lu(k,474) * lu(k,1575) + lu(k,1677) = lu(k,1677) - lu(k,464) * lu(k,1669) + lu(k,1679) = lu(k,1679) - lu(k,465) * lu(k,1669) + lu(k,1683) = lu(k,1683) - lu(k,466) * lu(k,1669) + lu(k,1686) = lu(k,1686) - lu(k,467) * lu(k,1669) + lu(k,1690) = lu(k,1690) - lu(k,468) * lu(k,1669) + lu(k,1691) = lu(k,1691) - lu(k,469) * lu(k,1669) + lu(k,1692) = - lu(k,470) * lu(k,1669) + lu(k,1695) = lu(k,1695) - lu(k,471) * lu(k,1669) + lu(k,1698) = lu(k,1698) - lu(k,472) * lu(k,1669) + lu(k,1699) = lu(k,1699) - lu(k,473) * lu(k,1669) + lu(k,1702) = lu(k,1702) - lu(k,474) * lu(k,1669) + lu(k,1870) = lu(k,1870) - lu(k,464) * lu(k,1861) + lu(k,1872) = lu(k,1872) - lu(k,465) * lu(k,1861) + lu(k,1876) = lu(k,1876) - lu(k,466) * lu(k,1861) + lu(k,1879) = lu(k,1879) - lu(k,467) * lu(k,1861) + lu(k,1883) = lu(k,1883) - lu(k,468) * lu(k,1861) + lu(k,1884) = lu(k,1884) - lu(k,469) * lu(k,1861) + lu(k,1885) = - lu(k,470) * lu(k,1861) + lu(k,1888) = lu(k,1888) - lu(k,471) * lu(k,1861) + lu(k,1891) = lu(k,1891) - lu(k,472) * lu(k,1861) + lu(k,1892) = lu(k,1892) - lu(k,473) * lu(k,1861) + lu(k,1895) = lu(k,1895) - lu(k,474) * lu(k,1861) + lu(k,1919) = lu(k,1919) - lu(k,464) * lu(k,1908) + lu(k,1921) = lu(k,1921) - lu(k,465) * lu(k,1908) + lu(k,1925) = lu(k,1925) - lu(k,466) * lu(k,1908) + lu(k,1928) = lu(k,1928) - lu(k,467) * lu(k,1908) + lu(k,1932) = lu(k,1932) - lu(k,468) * lu(k,1908) + lu(k,1933) = lu(k,1933) - lu(k,469) * lu(k,1908) + lu(k,1934) = - lu(k,470) * lu(k,1908) + lu(k,1937) = lu(k,1937) - lu(k,471) * lu(k,1908) + lu(k,1940) = lu(k,1940) - lu(k,472) * lu(k,1908) + lu(k,1941) = lu(k,1941) - lu(k,473) * lu(k,1908) + lu(k,1944) = lu(k,1944) - lu(k,474) * lu(k,1908) + lu(k,2068) = lu(k,2068) - lu(k,464) * lu(k,2051) + lu(k,2070) = lu(k,2070) - lu(k,465) * lu(k,2051) + lu(k,2074) = - lu(k,466) * lu(k,2051) + lu(k,2077) = lu(k,2077) - lu(k,467) * lu(k,2051) + lu(k,2081) = - lu(k,468) * lu(k,2051) + lu(k,2082) = lu(k,2082) - lu(k,469) * lu(k,2051) + lu(k,2083) = lu(k,2083) - lu(k,470) * lu(k,2051) + lu(k,2086) = lu(k,2086) - lu(k,471) * lu(k,2051) + lu(k,2089) = lu(k,2089) - lu(k,472) * lu(k,2051) + lu(k,2090) = lu(k,2090) - lu(k,473) * lu(k,2051) + lu(k,2093) = lu(k,2093) - lu(k,474) * lu(k,2051) + lu(k,478) = 1._r8 / lu(k,478) + lu(k,479) = lu(k,479) * lu(k,478) + lu(k,480) = lu(k,480) * lu(k,478) + lu(k,481) = lu(k,481) * lu(k,478) + lu(k,482) = lu(k,482) * lu(k,478) + lu(k,483) = lu(k,483) * lu(k,478) + lu(k,484) = lu(k,484) * lu(k,478) + lu(k,485) = lu(k,485) * lu(k,478) + lu(k,486) = lu(k,486) * lu(k,478) + lu(k,487) = lu(k,487) * lu(k,478) + lu(k,488) = lu(k,488) * lu(k,478) + lu(k,489) = lu(k,489) * lu(k,478) + lu(k,490) = lu(k,490) * lu(k,478) + lu(k,491) = lu(k,491) * lu(k,478) + lu(k,716) = lu(k,716) - lu(k,479) * lu(k,715) + lu(k,717) = lu(k,717) - lu(k,480) * lu(k,715) + lu(k,720) = lu(k,720) - lu(k,481) * lu(k,715) + lu(k,721) = lu(k,721) - lu(k,482) * lu(k,715) + lu(k,722) = lu(k,722) - lu(k,483) * lu(k,715) + lu(k,723) = - lu(k,484) * lu(k,715) + lu(k,724) = lu(k,724) - lu(k,485) * lu(k,715) + lu(k,725) = lu(k,725) - lu(k,486) * lu(k,715) + lu(k,729) = - lu(k,487) * lu(k,715) + lu(k,730) = lu(k,730) - lu(k,488) * lu(k,715) + lu(k,731) = lu(k,731) - lu(k,489) * lu(k,715) + lu(k,732) = lu(k,732) - lu(k,490) * lu(k,715) + lu(k,734) = lu(k,734) - lu(k,491) * lu(k,715) + lu(k,980) = lu(k,980) - lu(k,479) * lu(k,979) + lu(k,982) = lu(k,982) - lu(k,480) * lu(k,979) + lu(k,985) = lu(k,985) - lu(k,481) * lu(k,979) + lu(k,986) = lu(k,986) - lu(k,482) * lu(k,979) + lu(k,988) = lu(k,988) - lu(k,483) * lu(k,979) + lu(k,990) = lu(k,990) - lu(k,484) * lu(k,979) + lu(k,992) = lu(k,992) - lu(k,485) * lu(k,979) + lu(k,993) = lu(k,993) - lu(k,486) * lu(k,979) + lu(k,1000) = lu(k,1000) - lu(k,487) * lu(k,979) + lu(k,1001) = lu(k,1001) - lu(k,488) * lu(k,979) + lu(k,1004) = lu(k,1004) - lu(k,489) * lu(k,979) + lu(k,1005) = lu(k,1005) - lu(k,490) * lu(k,979) + lu(k,1007) = lu(k,1007) - lu(k,491) * lu(k,979) + lu(k,1094) = lu(k,1094) - lu(k,479) * lu(k,1093) + lu(k,1095) = lu(k,1095) - lu(k,480) * lu(k,1093) + lu(k,1101) = lu(k,1101) - lu(k,481) * lu(k,1093) + lu(k,1103) = lu(k,1103) - lu(k,482) * lu(k,1093) + lu(k,1106) = lu(k,1106) - lu(k,483) * lu(k,1093) + lu(k,1109) = - lu(k,484) * lu(k,1093) + lu(k,1112) = lu(k,1112) - lu(k,485) * lu(k,1093) + lu(k,1114) = lu(k,1114) - lu(k,486) * lu(k,1093) + lu(k,1121) = lu(k,1121) - lu(k,487) * lu(k,1093) + lu(k,1122) = lu(k,1122) - lu(k,488) * lu(k,1093) + lu(k,1125) = lu(k,1125) - lu(k,489) * lu(k,1093) + lu(k,1126) = lu(k,1126) - lu(k,490) * lu(k,1093) + lu(k,1128) = lu(k,1128) - lu(k,491) * lu(k,1093) + lu(k,1225) = lu(k,1225) - lu(k,479) * lu(k,1224) + lu(k,1227) = lu(k,1227) - lu(k,480) * lu(k,1224) + lu(k,1232) = lu(k,1232) - lu(k,481) * lu(k,1224) + lu(k,1234) = lu(k,1234) - lu(k,482) * lu(k,1224) + lu(k,1237) = lu(k,1237) - lu(k,483) * lu(k,1224) + lu(k,1240) = lu(k,1240) - lu(k,484) * lu(k,1224) + lu(k,1243) = lu(k,1243) - lu(k,485) * lu(k,1224) + lu(k,1245) = lu(k,1245) - lu(k,486) * lu(k,1224) + lu(k,1252) = lu(k,1252) - lu(k,487) * lu(k,1224) + lu(k,1253) = lu(k,1253) - lu(k,488) * lu(k,1224) + lu(k,1256) = lu(k,1256) - lu(k,489) * lu(k,1224) + lu(k,1257) = lu(k,1257) - lu(k,490) * lu(k,1224) + lu(k,1259) = lu(k,1259) - lu(k,491) * lu(k,1224) + lu(k,1368) = lu(k,1368) - lu(k,479) * lu(k,1367) + lu(k,1371) = lu(k,1371) - lu(k,480) * lu(k,1367) + lu(k,1377) = lu(k,1377) - lu(k,481) * lu(k,1367) + lu(k,1379) = lu(k,1379) - lu(k,482) * lu(k,1367) + lu(k,1382) = lu(k,1382) - lu(k,483) * lu(k,1367) + lu(k,1385) = lu(k,1385) - lu(k,484) * lu(k,1367) + lu(k,1388) = lu(k,1388) - lu(k,485) * lu(k,1367) + lu(k,1390) = lu(k,1390) - lu(k,486) * lu(k,1367) + lu(k,1397) = lu(k,1397) - lu(k,487) * lu(k,1367) + lu(k,1398) = lu(k,1398) - lu(k,488) * lu(k,1367) + lu(k,1401) = lu(k,1401) - lu(k,489) * lu(k,1367) + lu(k,1402) = lu(k,1402) - lu(k,490) * lu(k,1367) + lu(k,1404) = lu(k,1404) - lu(k,491) * lu(k,1367) + lu(k,1708) = - lu(k,479) * lu(k,1707) + lu(k,1712) = - lu(k,480) * lu(k,1707) + lu(k,1716) = lu(k,1716) - lu(k,481) * lu(k,1707) + lu(k,1718) = lu(k,1718) - lu(k,482) * lu(k,1707) + lu(k,1720) = - lu(k,483) * lu(k,1707) + lu(k,1723) = - lu(k,484) * lu(k,1707) + lu(k,1726) = lu(k,1726) - lu(k,485) * lu(k,1707) + lu(k,1728) = - lu(k,486) * lu(k,1707) + lu(k,1735) = - lu(k,487) * lu(k,1707) + lu(k,1736) = lu(k,1736) - lu(k,488) * lu(k,1707) + lu(k,1739) = lu(k,1739) - lu(k,489) * lu(k,1707) + lu(k,1740) = lu(k,1740) - lu(k,490) * lu(k,1707) + lu(k,1742) = lu(k,1742) - lu(k,491) * lu(k,1707) + lu(k,1788) = lu(k,1788) - lu(k,479) * lu(k,1787) + lu(k,1794) = lu(k,1794) - lu(k,480) * lu(k,1787) + lu(k,1799) = lu(k,1799) - lu(k,481) * lu(k,1787) + lu(k,1801) = lu(k,1801) - lu(k,482) * lu(k,1787) + lu(k,1804) = lu(k,1804) - lu(k,483) * lu(k,1787) + lu(k,1807) = lu(k,1807) - lu(k,484) * lu(k,1787) + lu(k,1810) = lu(k,1810) - lu(k,485) * lu(k,1787) + lu(k,1812) = lu(k,1812) - lu(k,486) * lu(k,1787) + lu(k,1819) = lu(k,1819) - lu(k,487) * lu(k,1787) + lu(k,1820) = lu(k,1820) - lu(k,488) * lu(k,1787) + lu(k,1823) = lu(k,1823) - lu(k,489) * lu(k,1787) + lu(k,1824) = lu(k,1824) - lu(k,490) * lu(k,1787) + lu(k,1826) = lu(k,1826) - lu(k,491) * lu(k,1787) + lu(k,1910) = - lu(k,479) * lu(k,1909) + lu(k,1912) = - lu(k,480) * lu(k,1909) + lu(k,1917) = lu(k,1917) - lu(k,481) * lu(k,1909) + lu(k,1919) = lu(k,1919) - lu(k,482) * lu(k,1909) + lu(k,1922) = - lu(k,483) * lu(k,1909) + lu(k,1925) = lu(k,1925) - lu(k,484) * lu(k,1909) + lu(k,1928) = lu(k,1928) - lu(k,485) * lu(k,1909) + lu(k,1930) = - lu(k,486) * lu(k,1909) + lu(k,1937) = lu(k,1937) - lu(k,487) * lu(k,1909) + lu(k,1938) = lu(k,1938) - lu(k,488) * lu(k,1909) + lu(k,1941) = lu(k,1941) - lu(k,489) * lu(k,1909) + lu(k,1942) = lu(k,1942) - lu(k,490) * lu(k,1909) + lu(k,1944) = lu(k,1944) - lu(k,491) * lu(k,1909) + lu(k,2056) = - lu(k,479) * lu(k,2052) + lu(k,2061) = - lu(k,480) * lu(k,2052) + lu(k,2066) = lu(k,2066) - lu(k,481) * lu(k,2052) + lu(k,2068) = lu(k,2068) - lu(k,482) * lu(k,2052) + lu(k,2071) = lu(k,2071) - lu(k,483) * lu(k,2052) + lu(k,2074) = lu(k,2074) - lu(k,484) * lu(k,2052) + lu(k,2077) = lu(k,2077) - lu(k,485) * lu(k,2052) + lu(k,2079) = lu(k,2079) - lu(k,486) * lu(k,2052) + lu(k,2086) = lu(k,2086) - lu(k,487) * lu(k,2052) + lu(k,2087) = lu(k,2087) - lu(k,488) * lu(k,2052) + lu(k,2090) = lu(k,2090) - lu(k,489) * lu(k,2052) + lu(k,2091) = lu(k,2091) - lu(k,490) * lu(k,2052) + lu(k,2093) = lu(k,2093) - lu(k,491) * lu(k,2052) end do end subroutine lu_fac12 subroutine lu_fac13( avec_len, lu ) @@ -2558,457 +2451,137 @@ subroutine lu_fac13( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,504) = 1._r8 / lu(k,504) - lu(k,505) = lu(k,505) * lu(k,504) - lu(k,506) = lu(k,506) * lu(k,504) - lu(k,507) = lu(k,507) * lu(k,504) - lu(k,508) = lu(k,508) * lu(k,504) - lu(k,509) = lu(k,509) * lu(k,504) - lu(k,510) = lu(k,510) * lu(k,504) - lu(k,511) = lu(k,511) * lu(k,504) - lu(k,512) = lu(k,512) * lu(k,504) - lu(k,513) = lu(k,513) * lu(k,504) - lu(k,514) = lu(k,514) * lu(k,504) - lu(k,515) = lu(k,515) * lu(k,504) - lu(k,516) = lu(k,516) * lu(k,504) - lu(k,517) = lu(k,517) * lu(k,504) - lu(k,518) = lu(k,518) * lu(k,504) - lu(k,669) = lu(k,669) - lu(k,505) * lu(k,667) - lu(k,674) = lu(k,674) - lu(k,506) * lu(k,667) - lu(k,675) = lu(k,675) - lu(k,507) * lu(k,667) - lu(k,676) = lu(k,676) - lu(k,508) * lu(k,667) - lu(k,677) = lu(k,677) - lu(k,509) * lu(k,667) - lu(k,678) = lu(k,678) - lu(k,510) * lu(k,667) - lu(k,679) = lu(k,679) - lu(k,511) * lu(k,667) - lu(k,680) = lu(k,680) - lu(k,512) * lu(k,667) - lu(k,681) = lu(k,681) - lu(k,513) * lu(k,667) - lu(k,682) = lu(k,682) - lu(k,514) * lu(k,667) - lu(k,683) = lu(k,683) - lu(k,515) * lu(k,667) - lu(k,684) = lu(k,684) - lu(k,516) * lu(k,667) - lu(k,686) = lu(k,686) - lu(k,517) * lu(k,667) - lu(k,687) = lu(k,687) - lu(k,518) * lu(k,667) - lu(k,1141) = lu(k,1141) - lu(k,505) * lu(k,1134) - lu(k,1153) = lu(k,1153) - lu(k,506) * lu(k,1134) - lu(k,1154) = lu(k,1154) - lu(k,507) * lu(k,1134) - lu(k,1155) = lu(k,1155) - lu(k,508) * lu(k,1134) - lu(k,1156) = lu(k,1156) - lu(k,509) * lu(k,1134) - lu(k,1157) = lu(k,1157) - lu(k,510) * lu(k,1134) - lu(k,1158) = lu(k,1158) - lu(k,511) * lu(k,1134) - lu(k,1159) = lu(k,1159) - lu(k,512) * lu(k,1134) - lu(k,1163) = lu(k,1163) - lu(k,513) * lu(k,1134) - lu(k,1164) = lu(k,1164) - lu(k,514) * lu(k,1134) - lu(k,1165) = lu(k,1165) - lu(k,515) * lu(k,1134) - lu(k,1167) = lu(k,1167) - lu(k,516) * lu(k,1134) - lu(k,1172) = lu(k,1172) - lu(k,517) * lu(k,1134) - lu(k,1174) = lu(k,1174) - lu(k,518) * lu(k,1134) - lu(k,1185) = lu(k,1185) - lu(k,505) * lu(k,1178) - lu(k,1196) = lu(k,1196) - lu(k,506) * lu(k,1178) - lu(k,1197) = lu(k,1197) - lu(k,507) * lu(k,1178) - lu(k,1198) = lu(k,1198) - lu(k,508) * lu(k,1178) - lu(k,1199) = lu(k,1199) - lu(k,509) * lu(k,1178) - lu(k,1200) = lu(k,1200) - lu(k,510) * lu(k,1178) - lu(k,1201) = lu(k,1201) - lu(k,511) * lu(k,1178) - lu(k,1202) = lu(k,1202) - lu(k,512) * lu(k,1178) - lu(k,1206) = lu(k,1206) - lu(k,513) * lu(k,1178) - lu(k,1207) = lu(k,1207) - lu(k,514) * lu(k,1178) - lu(k,1208) = lu(k,1208) - lu(k,515) * lu(k,1178) - lu(k,1210) = lu(k,1210) - lu(k,516) * lu(k,1178) - lu(k,1215) = lu(k,1215) - lu(k,517) * lu(k,1178) - lu(k,1217) = lu(k,1217) - lu(k,518) * lu(k,1178) - lu(k,1228) = lu(k,1228) - lu(k,505) * lu(k,1221) - lu(k,1239) = lu(k,1239) - lu(k,506) * lu(k,1221) - lu(k,1240) = lu(k,1240) - lu(k,507) * lu(k,1221) - lu(k,1241) = lu(k,1241) - lu(k,508) * lu(k,1221) - lu(k,1242) = lu(k,1242) - lu(k,509) * lu(k,1221) - lu(k,1243) = lu(k,1243) - lu(k,510) * lu(k,1221) - lu(k,1244) = lu(k,1244) - lu(k,511) * lu(k,1221) - lu(k,1245) = lu(k,1245) - lu(k,512) * lu(k,1221) - lu(k,1249) = lu(k,1249) - lu(k,513) * lu(k,1221) - lu(k,1250) = lu(k,1250) - lu(k,514) * lu(k,1221) - lu(k,1251) = lu(k,1251) - lu(k,515) * lu(k,1221) - lu(k,1253) = lu(k,1253) - lu(k,516) * lu(k,1221) - lu(k,1258) = lu(k,1258) - lu(k,517) * lu(k,1221) - lu(k,1260) = lu(k,1260) - lu(k,518) * lu(k,1221) - lu(k,1312) = lu(k,1312) - lu(k,505) * lu(k,1305) - lu(k,1323) = lu(k,1323) - lu(k,506) * lu(k,1305) - lu(k,1324) = lu(k,1324) - lu(k,507) * lu(k,1305) - lu(k,1325) = lu(k,1325) - lu(k,508) * lu(k,1305) - lu(k,1326) = lu(k,1326) - lu(k,509) * lu(k,1305) - lu(k,1327) = lu(k,1327) - lu(k,510) * lu(k,1305) - lu(k,1328) = lu(k,1328) - lu(k,511) * lu(k,1305) - lu(k,1329) = lu(k,1329) - lu(k,512) * lu(k,1305) - lu(k,1333) = lu(k,1333) - lu(k,513) * lu(k,1305) - lu(k,1334) = lu(k,1334) - lu(k,514) * lu(k,1305) - lu(k,1335) = lu(k,1335) - lu(k,515) * lu(k,1305) - lu(k,1337) = lu(k,1337) - lu(k,516) * lu(k,1305) - lu(k,1342) = lu(k,1342) - lu(k,517) * lu(k,1305) - lu(k,1344) = lu(k,1344) - lu(k,518) * lu(k,1305) - lu(k,1590) = lu(k,1590) - lu(k,505) * lu(k,1583) - lu(k,1602) = lu(k,1602) - lu(k,506) * lu(k,1583) - lu(k,1603) = lu(k,1603) - lu(k,507) * lu(k,1583) - lu(k,1604) = lu(k,1604) - lu(k,508) * lu(k,1583) - lu(k,1605) = lu(k,1605) - lu(k,509) * lu(k,1583) - lu(k,1606) = lu(k,1606) - lu(k,510) * lu(k,1583) - lu(k,1607) = lu(k,1607) - lu(k,511) * lu(k,1583) - lu(k,1608) = lu(k,1608) - lu(k,512) * lu(k,1583) - lu(k,1612) = lu(k,1612) - lu(k,513) * lu(k,1583) - lu(k,1613) = lu(k,1613) - lu(k,514) * lu(k,1583) - lu(k,1614) = lu(k,1614) - lu(k,515) * lu(k,1583) - lu(k,1616) = lu(k,1616) - lu(k,516) * lu(k,1583) - lu(k,1621) = lu(k,1621) - lu(k,517) * lu(k,1583) - lu(k,1623) = lu(k,1623) - lu(k,518) * lu(k,1583) - lu(k,1634) = lu(k,1634) - lu(k,505) * lu(k,1627) - lu(k,1645) = lu(k,1645) - lu(k,506) * lu(k,1627) - lu(k,1646) = lu(k,1646) - lu(k,507) * lu(k,1627) - lu(k,1647) = lu(k,1647) - lu(k,508) * lu(k,1627) - lu(k,1648) = lu(k,1648) - lu(k,509) * lu(k,1627) - lu(k,1649) = lu(k,1649) - lu(k,510) * lu(k,1627) - lu(k,1650) = lu(k,1650) - lu(k,511) * lu(k,1627) - lu(k,1651) = lu(k,1651) - lu(k,512) * lu(k,1627) - lu(k,1655) = lu(k,1655) - lu(k,513) * lu(k,1627) - lu(k,1656) = lu(k,1656) - lu(k,514) * lu(k,1627) - lu(k,1657) = lu(k,1657) - lu(k,515) * lu(k,1627) - lu(k,1659) = lu(k,1659) - lu(k,516) * lu(k,1627) - lu(k,1664) = lu(k,1664) - lu(k,517) * lu(k,1627) - lu(k,1666) = lu(k,1666) - lu(k,518) * lu(k,1627) - lu(k,1677) = lu(k,1677) - lu(k,505) * lu(k,1670) - lu(k,1688) = lu(k,1688) - lu(k,506) * lu(k,1670) - lu(k,1689) = lu(k,1689) - lu(k,507) * lu(k,1670) - lu(k,1690) = lu(k,1690) - lu(k,508) * lu(k,1670) - lu(k,1691) = lu(k,1691) - lu(k,509) * lu(k,1670) - lu(k,1692) = lu(k,1692) - lu(k,510) * lu(k,1670) - lu(k,1693) = lu(k,1693) - lu(k,511) * lu(k,1670) - lu(k,1694) = lu(k,1694) - lu(k,512) * lu(k,1670) - lu(k,1698) = lu(k,1698) - lu(k,513) * lu(k,1670) - lu(k,1699) = lu(k,1699) - lu(k,514) * lu(k,1670) - lu(k,1700) = lu(k,1700) - lu(k,515) * lu(k,1670) - lu(k,1702) = lu(k,1702) - lu(k,516) * lu(k,1670) - lu(k,1707) = lu(k,1707) - lu(k,517) * lu(k,1670) - lu(k,1709) = lu(k,1709) - lu(k,518) * lu(k,1670) - lu(k,2056) = lu(k,2056) - lu(k,505) * lu(k,2050) - lu(k,2069) = lu(k,2069) - lu(k,506) * lu(k,2050) - lu(k,2070) = lu(k,2070) - lu(k,507) * lu(k,2050) - lu(k,2071) = lu(k,2071) - lu(k,508) * lu(k,2050) - lu(k,2072) = lu(k,2072) - lu(k,509) * lu(k,2050) - lu(k,2073) = lu(k,2073) - lu(k,510) * lu(k,2050) - lu(k,2074) = lu(k,2074) - lu(k,511) * lu(k,2050) - lu(k,2075) = lu(k,2075) - lu(k,512) * lu(k,2050) - lu(k,2079) = lu(k,2079) - lu(k,513) * lu(k,2050) - lu(k,2080) = lu(k,2080) - lu(k,514) * lu(k,2050) - lu(k,2081) = lu(k,2081) - lu(k,515) * lu(k,2050) - lu(k,2083) = lu(k,2083) - lu(k,516) * lu(k,2050) - lu(k,2088) = lu(k,2088) - lu(k,517) * lu(k,2050) - lu(k,2090) = lu(k,2090) - lu(k,518) * lu(k,2050) - lu(k,519) = 1._r8 / lu(k,519) - lu(k,520) = lu(k,520) * lu(k,519) - lu(k,521) = lu(k,521) * lu(k,519) - lu(k,522) = lu(k,522) * lu(k,519) - lu(k,523) = lu(k,523) * lu(k,519) - lu(k,524) = lu(k,524) * lu(k,519) - lu(k,525) = lu(k,525) * lu(k,519) - lu(k,526) = lu(k,526) * lu(k,519) - lu(k,527) = lu(k,527) * lu(k,519) - lu(k,528) = lu(k,528) * lu(k,519) - lu(k,529) = lu(k,529) * lu(k,519) - lu(k,530) = lu(k,530) * lu(k,519) - lu(k,531) = lu(k,531) * lu(k,519) - lu(k,532) = lu(k,532) * lu(k,519) - lu(k,533) = lu(k,533) * lu(k,519) - lu(k,536) = lu(k,536) - lu(k,520) * lu(k,534) - lu(k,537) = lu(k,537) - lu(k,521) * lu(k,534) - lu(k,538) = lu(k,538) - lu(k,522) * lu(k,534) - lu(k,539) = lu(k,539) - lu(k,523) * lu(k,534) - lu(k,540) = lu(k,540) - lu(k,524) * lu(k,534) - lu(k,541) = lu(k,541) - lu(k,525) * lu(k,534) - lu(k,542) = lu(k,542) - lu(k,526) * lu(k,534) - lu(k,543) = lu(k,543) - lu(k,527) * lu(k,534) - lu(k,544) = lu(k,544) - lu(k,528) * lu(k,534) - lu(k,545) = lu(k,545) - lu(k,529) * lu(k,534) - lu(k,546) = lu(k,546) - lu(k,530) * lu(k,534) - lu(k,547) = lu(k,547) - lu(k,531) * lu(k,534) - lu(k,548) = lu(k,548) - lu(k,532) * lu(k,534) - lu(k,549) = lu(k,549) - lu(k,533) * lu(k,534) - lu(k,811) = lu(k,811) - lu(k,520) * lu(k,809) - lu(k,815) = lu(k,815) - lu(k,521) * lu(k,809) - lu(k,816) = lu(k,816) - lu(k,522) * lu(k,809) - lu(k,817) = lu(k,817) - lu(k,523) * lu(k,809) - lu(k,818) = lu(k,818) - lu(k,524) * lu(k,809) - lu(k,819) = lu(k,819) - lu(k,525) * lu(k,809) - lu(k,820) = lu(k,820) - lu(k,526) * lu(k,809) - lu(k,822) = lu(k,822) - lu(k,527) * lu(k,809) - lu(k,823) = lu(k,823) - lu(k,528) * lu(k,809) - lu(k,824) = lu(k,824) - lu(k,529) * lu(k,809) - lu(k,825) = lu(k,825) - lu(k,530) * lu(k,809) - lu(k,827) = lu(k,827) - lu(k,531) * lu(k,809) - lu(k,828) = lu(k,828) - lu(k,532) * lu(k,809) - lu(k,829) = lu(k,829) - lu(k,533) * lu(k,809) - lu(k,1144) = lu(k,1144) - lu(k,520) * lu(k,1135) - lu(k,1153) = lu(k,1153) - lu(k,521) * lu(k,1135) - lu(k,1154) = lu(k,1154) - lu(k,522) * lu(k,1135) - lu(k,1155) = lu(k,1155) - lu(k,523) * lu(k,1135) - lu(k,1157) = lu(k,1157) - lu(k,524) * lu(k,1135) - lu(k,1159) = lu(k,1159) - lu(k,525) * lu(k,1135) - lu(k,1160) = lu(k,1160) - lu(k,526) * lu(k,1135) - lu(k,1163) = lu(k,1163) - lu(k,527) * lu(k,1135) - lu(k,1164) = lu(k,1164) - lu(k,528) * lu(k,1135) - lu(k,1165) = lu(k,1165) - lu(k,529) * lu(k,1135) - lu(k,1167) = lu(k,1167) - lu(k,530) * lu(k,1135) - lu(k,1172) = lu(k,1172) - lu(k,531) * lu(k,1135) - lu(k,1173) = lu(k,1173) - lu(k,532) * lu(k,1135) - lu(k,1174) = lu(k,1174) - lu(k,533) * lu(k,1135) - lu(k,1187) = lu(k,1187) - lu(k,520) * lu(k,1179) - lu(k,1196) = lu(k,1196) - lu(k,521) * lu(k,1179) - lu(k,1197) = lu(k,1197) - lu(k,522) * lu(k,1179) - lu(k,1198) = lu(k,1198) - lu(k,523) * lu(k,1179) - lu(k,1200) = lu(k,1200) - lu(k,524) * lu(k,1179) - lu(k,1202) = lu(k,1202) - lu(k,525) * lu(k,1179) - lu(k,1203) = lu(k,1203) - lu(k,526) * lu(k,1179) - lu(k,1206) = lu(k,1206) - lu(k,527) * lu(k,1179) - lu(k,1207) = lu(k,1207) - lu(k,528) * lu(k,1179) - lu(k,1208) = lu(k,1208) - lu(k,529) * lu(k,1179) - lu(k,1210) = lu(k,1210) - lu(k,530) * lu(k,1179) - lu(k,1215) = lu(k,1215) - lu(k,531) * lu(k,1179) - lu(k,1216) = lu(k,1216) - lu(k,532) * lu(k,1179) - lu(k,1217) = lu(k,1217) - lu(k,533) * lu(k,1179) - lu(k,1230) = lu(k,1230) - lu(k,520) * lu(k,1222) - lu(k,1239) = lu(k,1239) - lu(k,521) * lu(k,1222) - lu(k,1240) = lu(k,1240) - lu(k,522) * lu(k,1222) - lu(k,1241) = lu(k,1241) - lu(k,523) * lu(k,1222) - lu(k,1243) = lu(k,1243) - lu(k,524) * lu(k,1222) - lu(k,1245) = lu(k,1245) - lu(k,525) * lu(k,1222) - lu(k,1246) = lu(k,1246) - lu(k,526) * lu(k,1222) - lu(k,1249) = lu(k,1249) - lu(k,527) * lu(k,1222) - lu(k,1250) = lu(k,1250) - lu(k,528) * lu(k,1222) - lu(k,1251) = lu(k,1251) - lu(k,529) * lu(k,1222) - lu(k,1253) = lu(k,1253) - lu(k,530) * lu(k,1222) - lu(k,1258) = lu(k,1258) - lu(k,531) * lu(k,1222) - lu(k,1259) = lu(k,1259) - lu(k,532) * lu(k,1222) - lu(k,1260) = lu(k,1260) - lu(k,533) * lu(k,1222) - lu(k,1314) = lu(k,1314) - lu(k,520) * lu(k,1306) - lu(k,1323) = lu(k,1323) - lu(k,521) * lu(k,1306) - lu(k,1324) = lu(k,1324) - lu(k,522) * lu(k,1306) - lu(k,1325) = lu(k,1325) - lu(k,523) * lu(k,1306) - lu(k,1327) = lu(k,1327) - lu(k,524) * lu(k,1306) - lu(k,1329) = lu(k,1329) - lu(k,525) * lu(k,1306) - lu(k,1330) = lu(k,1330) - lu(k,526) * lu(k,1306) - lu(k,1333) = lu(k,1333) - lu(k,527) * lu(k,1306) - lu(k,1334) = lu(k,1334) - lu(k,528) * lu(k,1306) - lu(k,1335) = lu(k,1335) - lu(k,529) * lu(k,1306) - lu(k,1337) = lu(k,1337) - lu(k,530) * lu(k,1306) - lu(k,1342) = lu(k,1342) - lu(k,531) * lu(k,1306) - lu(k,1343) = lu(k,1343) - lu(k,532) * lu(k,1306) - lu(k,1344) = lu(k,1344) - lu(k,533) * lu(k,1306) - lu(k,1593) = lu(k,1593) - lu(k,520) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,521) * lu(k,1584) - lu(k,1603) = lu(k,1603) - lu(k,522) * lu(k,1584) - lu(k,1604) = lu(k,1604) - lu(k,523) * lu(k,1584) - lu(k,1606) = lu(k,1606) - lu(k,524) * lu(k,1584) - lu(k,1608) = lu(k,1608) - lu(k,525) * lu(k,1584) - lu(k,1609) = lu(k,1609) - lu(k,526) * lu(k,1584) - lu(k,1612) = lu(k,1612) - lu(k,527) * lu(k,1584) - lu(k,1613) = lu(k,1613) - lu(k,528) * lu(k,1584) - lu(k,1614) = lu(k,1614) - lu(k,529) * lu(k,1584) - lu(k,1616) = lu(k,1616) - lu(k,530) * lu(k,1584) - lu(k,1621) = lu(k,1621) - lu(k,531) * lu(k,1584) - lu(k,1622) = lu(k,1622) - lu(k,532) * lu(k,1584) - lu(k,1623) = lu(k,1623) - lu(k,533) * lu(k,1584) - lu(k,1636) = lu(k,1636) - lu(k,520) * lu(k,1628) - lu(k,1645) = lu(k,1645) - lu(k,521) * lu(k,1628) - lu(k,1646) = lu(k,1646) - lu(k,522) * lu(k,1628) - lu(k,1647) = lu(k,1647) - lu(k,523) * lu(k,1628) - lu(k,1649) = lu(k,1649) - lu(k,524) * lu(k,1628) - lu(k,1651) = lu(k,1651) - lu(k,525) * lu(k,1628) - lu(k,1652) = lu(k,1652) - lu(k,526) * lu(k,1628) - lu(k,1655) = lu(k,1655) - lu(k,527) * lu(k,1628) - lu(k,1656) = lu(k,1656) - lu(k,528) * lu(k,1628) - lu(k,1657) = lu(k,1657) - lu(k,529) * lu(k,1628) - lu(k,1659) = lu(k,1659) - lu(k,530) * lu(k,1628) - lu(k,1664) = lu(k,1664) - lu(k,531) * lu(k,1628) - lu(k,1665) = lu(k,1665) - lu(k,532) * lu(k,1628) - lu(k,1666) = lu(k,1666) - lu(k,533) * lu(k,1628) - lu(k,1679) = lu(k,1679) - lu(k,520) * lu(k,1671) - lu(k,1688) = lu(k,1688) - lu(k,521) * lu(k,1671) - lu(k,1689) = lu(k,1689) - lu(k,522) * lu(k,1671) - lu(k,1690) = lu(k,1690) - lu(k,523) * lu(k,1671) - lu(k,1692) = lu(k,1692) - lu(k,524) * lu(k,1671) - lu(k,1694) = lu(k,1694) - lu(k,525) * lu(k,1671) - lu(k,1695) = lu(k,1695) - lu(k,526) * lu(k,1671) - lu(k,1698) = lu(k,1698) - lu(k,527) * lu(k,1671) - lu(k,1699) = lu(k,1699) - lu(k,528) * lu(k,1671) - lu(k,1700) = lu(k,1700) - lu(k,529) * lu(k,1671) - lu(k,1702) = lu(k,1702) - lu(k,530) * lu(k,1671) - lu(k,1707) = lu(k,1707) - lu(k,531) * lu(k,1671) - lu(k,1708) = lu(k,1708) - lu(k,532) * lu(k,1671) - lu(k,1709) = lu(k,1709) - lu(k,533) * lu(k,1671) - lu(k,2000) = lu(k,2000) - lu(k,520) * lu(k,1992) - lu(k,2009) = - lu(k,521) * lu(k,1992) - lu(k,2010) = - lu(k,522) * lu(k,1992) - lu(k,2011) = - lu(k,523) * lu(k,1992) - lu(k,2013) = - lu(k,524) * lu(k,1992) - lu(k,2015) = - lu(k,525) * lu(k,1992) - lu(k,2016) = lu(k,2016) - lu(k,526) * lu(k,1992) - lu(k,2019) = - lu(k,527) * lu(k,1992) - lu(k,2020) = - lu(k,528) * lu(k,1992) - lu(k,2021) = - lu(k,529) * lu(k,1992) - lu(k,2023) = lu(k,2023) - lu(k,530) * lu(k,1992) - lu(k,2028) = lu(k,2028) - lu(k,531) * lu(k,1992) - lu(k,2029) = lu(k,2029) - lu(k,532) * lu(k,1992) - lu(k,2030) = lu(k,2030) - lu(k,533) * lu(k,1992) - lu(k,535) = 1._r8 / lu(k,535) - lu(k,536) = lu(k,536) * lu(k,535) - lu(k,537) = lu(k,537) * lu(k,535) - lu(k,538) = lu(k,538) * lu(k,535) - lu(k,539) = lu(k,539) * lu(k,535) - lu(k,540) = lu(k,540) * lu(k,535) - lu(k,541) = lu(k,541) * lu(k,535) - lu(k,542) = lu(k,542) * lu(k,535) - lu(k,543) = lu(k,543) * lu(k,535) - lu(k,544) = lu(k,544) * lu(k,535) - lu(k,545) = lu(k,545) * lu(k,535) - lu(k,546) = lu(k,546) * lu(k,535) - lu(k,547) = lu(k,547) * lu(k,535) - lu(k,548) = lu(k,548) * lu(k,535) - lu(k,549) = lu(k,549) * lu(k,535) - lu(k,811) = lu(k,811) - lu(k,536) * lu(k,810) - lu(k,815) = lu(k,815) - lu(k,537) * lu(k,810) - lu(k,816) = lu(k,816) - lu(k,538) * lu(k,810) - lu(k,817) = lu(k,817) - lu(k,539) * lu(k,810) - lu(k,818) = lu(k,818) - lu(k,540) * lu(k,810) - lu(k,819) = lu(k,819) - lu(k,541) * lu(k,810) - lu(k,820) = lu(k,820) - lu(k,542) * lu(k,810) - lu(k,822) = lu(k,822) - lu(k,543) * lu(k,810) - lu(k,823) = lu(k,823) - lu(k,544) * lu(k,810) - lu(k,824) = lu(k,824) - lu(k,545) * lu(k,810) - lu(k,825) = lu(k,825) - lu(k,546) * lu(k,810) - lu(k,827) = lu(k,827) - lu(k,547) * lu(k,810) - lu(k,828) = lu(k,828) - lu(k,548) * lu(k,810) - lu(k,829) = lu(k,829) - lu(k,549) * lu(k,810) - lu(k,1144) = lu(k,1144) - lu(k,536) * lu(k,1136) - lu(k,1153) = lu(k,1153) - lu(k,537) * lu(k,1136) - lu(k,1154) = lu(k,1154) - lu(k,538) * lu(k,1136) - lu(k,1155) = lu(k,1155) - lu(k,539) * lu(k,1136) - lu(k,1157) = lu(k,1157) - lu(k,540) * lu(k,1136) - lu(k,1159) = lu(k,1159) - lu(k,541) * lu(k,1136) - lu(k,1160) = lu(k,1160) - lu(k,542) * lu(k,1136) - lu(k,1163) = lu(k,1163) - lu(k,543) * lu(k,1136) - lu(k,1164) = lu(k,1164) - lu(k,544) * lu(k,1136) - lu(k,1165) = lu(k,1165) - lu(k,545) * lu(k,1136) - lu(k,1167) = lu(k,1167) - lu(k,546) * lu(k,1136) - lu(k,1172) = lu(k,1172) - lu(k,547) * lu(k,1136) - lu(k,1173) = lu(k,1173) - lu(k,548) * lu(k,1136) - lu(k,1174) = lu(k,1174) - lu(k,549) * lu(k,1136) - lu(k,1187) = lu(k,1187) - lu(k,536) * lu(k,1180) - lu(k,1196) = lu(k,1196) - lu(k,537) * lu(k,1180) - lu(k,1197) = lu(k,1197) - lu(k,538) * lu(k,1180) - lu(k,1198) = lu(k,1198) - lu(k,539) * lu(k,1180) - lu(k,1200) = lu(k,1200) - lu(k,540) * lu(k,1180) - lu(k,1202) = lu(k,1202) - lu(k,541) * lu(k,1180) - lu(k,1203) = lu(k,1203) - lu(k,542) * lu(k,1180) - lu(k,1206) = lu(k,1206) - lu(k,543) * lu(k,1180) - lu(k,1207) = lu(k,1207) - lu(k,544) * lu(k,1180) - lu(k,1208) = lu(k,1208) - lu(k,545) * lu(k,1180) - lu(k,1210) = lu(k,1210) - lu(k,546) * lu(k,1180) - lu(k,1215) = lu(k,1215) - lu(k,547) * lu(k,1180) - lu(k,1216) = lu(k,1216) - lu(k,548) * lu(k,1180) - lu(k,1217) = lu(k,1217) - lu(k,549) * lu(k,1180) - lu(k,1230) = lu(k,1230) - lu(k,536) * lu(k,1223) - lu(k,1239) = lu(k,1239) - lu(k,537) * lu(k,1223) - lu(k,1240) = lu(k,1240) - lu(k,538) * lu(k,1223) - lu(k,1241) = lu(k,1241) - lu(k,539) * lu(k,1223) - lu(k,1243) = lu(k,1243) - lu(k,540) * lu(k,1223) - lu(k,1245) = lu(k,1245) - lu(k,541) * lu(k,1223) - lu(k,1246) = lu(k,1246) - lu(k,542) * lu(k,1223) - lu(k,1249) = lu(k,1249) - lu(k,543) * lu(k,1223) - lu(k,1250) = lu(k,1250) - lu(k,544) * lu(k,1223) - lu(k,1251) = lu(k,1251) - lu(k,545) * lu(k,1223) - lu(k,1253) = lu(k,1253) - lu(k,546) * lu(k,1223) - lu(k,1258) = lu(k,1258) - lu(k,547) * lu(k,1223) - lu(k,1259) = lu(k,1259) - lu(k,548) * lu(k,1223) - lu(k,1260) = lu(k,1260) - lu(k,549) * lu(k,1223) - lu(k,1314) = lu(k,1314) - lu(k,536) * lu(k,1307) - lu(k,1323) = lu(k,1323) - lu(k,537) * lu(k,1307) - lu(k,1324) = lu(k,1324) - lu(k,538) * lu(k,1307) - lu(k,1325) = lu(k,1325) - lu(k,539) * lu(k,1307) - lu(k,1327) = lu(k,1327) - lu(k,540) * lu(k,1307) - lu(k,1329) = lu(k,1329) - lu(k,541) * lu(k,1307) - lu(k,1330) = lu(k,1330) - lu(k,542) * lu(k,1307) - lu(k,1333) = lu(k,1333) - lu(k,543) * lu(k,1307) - lu(k,1334) = lu(k,1334) - lu(k,544) * lu(k,1307) - lu(k,1335) = lu(k,1335) - lu(k,545) * lu(k,1307) - lu(k,1337) = lu(k,1337) - lu(k,546) * lu(k,1307) - lu(k,1342) = lu(k,1342) - lu(k,547) * lu(k,1307) - lu(k,1343) = lu(k,1343) - lu(k,548) * lu(k,1307) - lu(k,1344) = lu(k,1344) - lu(k,549) * lu(k,1307) - lu(k,1593) = lu(k,1593) - lu(k,536) * lu(k,1585) - lu(k,1602) = lu(k,1602) - lu(k,537) * lu(k,1585) - lu(k,1603) = lu(k,1603) - lu(k,538) * lu(k,1585) - lu(k,1604) = lu(k,1604) - lu(k,539) * lu(k,1585) - lu(k,1606) = lu(k,1606) - lu(k,540) * lu(k,1585) - lu(k,1608) = lu(k,1608) - lu(k,541) * lu(k,1585) - lu(k,1609) = lu(k,1609) - lu(k,542) * lu(k,1585) - lu(k,1612) = lu(k,1612) - lu(k,543) * lu(k,1585) - lu(k,1613) = lu(k,1613) - lu(k,544) * lu(k,1585) - lu(k,1614) = lu(k,1614) - lu(k,545) * lu(k,1585) - lu(k,1616) = lu(k,1616) - lu(k,546) * lu(k,1585) - lu(k,1621) = lu(k,1621) - lu(k,547) * lu(k,1585) - lu(k,1622) = lu(k,1622) - lu(k,548) * lu(k,1585) - lu(k,1623) = lu(k,1623) - lu(k,549) * lu(k,1585) - lu(k,1636) = lu(k,1636) - lu(k,536) * lu(k,1629) - lu(k,1645) = lu(k,1645) - lu(k,537) * lu(k,1629) - lu(k,1646) = lu(k,1646) - lu(k,538) * lu(k,1629) - lu(k,1647) = lu(k,1647) - lu(k,539) * lu(k,1629) - lu(k,1649) = lu(k,1649) - lu(k,540) * lu(k,1629) - lu(k,1651) = lu(k,1651) - lu(k,541) * lu(k,1629) - lu(k,1652) = lu(k,1652) - lu(k,542) * lu(k,1629) - lu(k,1655) = lu(k,1655) - lu(k,543) * lu(k,1629) - lu(k,1656) = lu(k,1656) - lu(k,544) * lu(k,1629) - lu(k,1657) = lu(k,1657) - lu(k,545) * lu(k,1629) - lu(k,1659) = lu(k,1659) - lu(k,546) * lu(k,1629) - lu(k,1664) = lu(k,1664) - lu(k,547) * lu(k,1629) - lu(k,1665) = lu(k,1665) - lu(k,548) * lu(k,1629) - lu(k,1666) = lu(k,1666) - lu(k,549) * lu(k,1629) - lu(k,1679) = lu(k,1679) - lu(k,536) * lu(k,1672) - lu(k,1688) = lu(k,1688) - lu(k,537) * lu(k,1672) - lu(k,1689) = lu(k,1689) - lu(k,538) * lu(k,1672) - lu(k,1690) = lu(k,1690) - lu(k,539) * lu(k,1672) - lu(k,1692) = lu(k,1692) - lu(k,540) * lu(k,1672) - lu(k,1694) = lu(k,1694) - lu(k,541) * lu(k,1672) - lu(k,1695) = lu(k,1695) - lu(k,542) * lu(k,1672) - lu(k,1698) = lu(k,1698) - lu(k,543) * lu(k,1672) - lu(k,1699) = lu(k,1699) - lu(k,544) * lu(k,1672) - lu(k,1700) = lu(k,1700) - lu(k,545) * lu(k,1672) - lu(k,1702) = lu(k,1702) - lu(k,546) * lu(k,1672) - lu(k,1707) = lu(k,1707) - lu(k,547) * lu(k,1672) - lu(k,1708) = lu(k,1708) - lu(k,548) * lu(k,1672) - lu(k,1709) = lu(k,1709) - lu(k,549) * lu(k,1672) - lu(k,2000) = lu(k,2000) - lu(k,536) * lu(k,1993) - lu(k,2009) = lu(k,2009) - lu(k,537) * lu(k,1993) - lu(k,2010) = lu(k,2010) - lu(k,538) * lu(k,1993) - lu(k,2011) = lu(k,2011) - lu(k,539) * lu(k,1993) - lu(k,2013) = lu(k,2013) - lu(k,540) * lu(k,1993) - lu(k,2015) = lu(k,2015) - lu(k,541) * lu(k,1993) - lu(k,2016) = lu(k,2016) - lu(k,542) * lu(k,1993) - lu(k,2019) = lu(k,2019) - lu(k,543) * lu(k,1993) - lu(k,2020) = lu(k,2020) - lu(k,544) * lu(k,1993) - lu(k,2021) = lu(k,2021) - lu(k,545) * lu(k,1993) - lu(k,2023) = lu(k,2023) - lu(k,546) * lu(k,1993) - lu(k,2028) = lu(k,2028) - lu(k,547) * lu(k,1993) - lu(k,2029) = lu(k,2029) - lu(k,548) * lu(k,1993) - lu(k,2030) = lu(k,2030) - lu(k,549) * lu(k,1993) - lu(k,2061) = lu(k,2061) - lu(k,536) * lu(k,2051) - lu(k,2069) = lu(k,2069) - lu(k,537) * lu(k,2051) - lu(k,2070) = lu(k,2070) - lu(k,538) * lu(k,2051) - lu(k,2071) = lu(k,2071) - lu(k,539) * lu(k,2051) - lu(k,2073) = lu(k,2073) - lu(k,540) * lu(k,2051) - lu(k,2075) = lu(k,2075) - lu(k,541) * lu(k,2051) - lu(k,2076) = lu(k,2076) - lu(k,542) * lu(k,2051) - lu(k,2079) = lu(k,2079) - lu(k,543) * lu(k,2051) - lu(k,2080) = lu(k,2080) - lu(k,544) * lu(k,2051) - lu(k,2081) = lu(k,2081) - lu(k,545) * lu(k,2051) - lu(k,2083) = lu(k,2083) - lu(k,546) * lu(k,2051) - lu(k,2088) = lu(k,2088) - lu(k,547) * lu(k,2051) - lu(k,2089) = lu(k,2089) - lu(k,548) * lu(k,2051) - lu(k,2090) = lu(k,2090) - lu(k,549) * lu(k,2051) + lu(k,492) = 1._r8 / lu(k,492) + lu(k,493) = lu(k,493) * lu(k,492) + lu(k,494) = lu(k,494) * lu(k,492) + lu(k,495) = lu(k,495) * lu(k,492) + lu(k,496) = lu(k,496) * lu(k,492) + lu(k,497) = lu(k,497) * lu(k,492) + lu(k,498) = lu(k,498) * lu(k,492) + lu(k,499) = lu(k,499) * lu(k,492) + lu(k,500) = lu(k,500) * lu(k,492) + lu(k,501) = lu(k,501) * lu(k,492) + lu(k,502) = lu(k,502) * lu(k,492) + lu(k,503) = lu(k,503) * lu(k,492) + lu(k,504) = lu(k,504) * lu(k,492) + lu(k,505) = lu(k,505) * lu(k,492) + lu(k,1150) = lu(k,1150) - lu(k,493) * lu(k,1134) + lu(k,1154) = lu(k,1154) - lu(k,494) * lu(k,1134) + lu(k,1155) = - lu(k,495) * lu(k,1134) + lu(k,1157) = - lu(k,496) * lu(k,1134) + lu(k,1158) = lu(k,1158) - lu(k,497) * lu(k,1134) + lu(k,1160) = - lu(k,498) * lu(k,1134) + lu(k,1164) = lu(k,1164) - lu(k,499) * lu(k,1134) + lu(k,1165) = - lu(k,500) * lu(k,1134) + lu(k,1166) = lu(k,1166) - lu(k,501) * lu(k,1134) + lu(k,1168) = lu(k,1168) - lu(k,502) * lu(k,1134) + lu(k,1172) = lu(k,1172) - lu(k,503) * lu(k,1134) + lu(k,1173) = lu(k,1173) - lu(k,504) * lu(k,1134) + lu(k,1175) = lu(k,1175) - lu(k,505) * lu(k,1134) + lu(k,1193) = lu(k,1193) - lu(k,493) * lu(k,1178) + lu(k,1197) = - lu(k,494) * lu(k,1178) + lu(k,1198) = lu(k,1198) - lu(k,495) * lu(k,1178) + lu(k,1200) = - lu(k,496) * lu(k,1178) + lu(k,1201) = - lu(k,497) * lu(k,1178) + lu(k,1203) = - lu(k,498) * lu(k,1178) + lu(k,1207) = - lu(k,499) * lu(k,1178) + lu(k,1208) = lu(k,1208) - lu(k,500) * lu(k,1178) + lu(k,1209) = lu(k,1209) - lu(k,501) * lu(k,1178) + lu(k,1211) = - lu(k,502) * lu(k,1178) + lu(k,1215) = lu(k,1215) - lu(k,503) * lu(k,1178) + lu(k,1216) = lu(k,1216) - lu(k,504) * lu(k,1178) + lu(k,1218) = lu(k,1218) - lu(k,505) * lu(k,1178) + lu(k,1277) = lu(k,1277) - lu(k,493) * lu(k,1262) + lu(k,1281) = - lu(k,494) * lu(k,1262) + lu(k,1282) = - lu(k,495) * lu(k,1262) + lu(k,1284) = lu(k,1284) - lu(k,496) * lu(k,1262) + lu(k,1285) = - lu(k,497) * lu(k,1262) + lu(k,1287) = lu(k,1287) - lu(k,498) * lu(k,1262) + lu(k,1291) = - lu(k,499) * lu(k,1262) + lu(k,1292) = lu(k,1292) - lu(k,500) * lu(k,1262) + lu(k,1293) = lu(k,1293) - lu(k,501) * lu(k,1262) + lu(k,1295) = lu(k,1295) - lu(k,502) * lu(k,1262) + lu(k,1299) = lu(k,1299) - lu(k,503) * lu(k,1262) + lu(k,1300) = lu(k,1300) - lu(k,504) * lu(k,1262) + lu(k,1302) = lu(k,1302) - lu(k,505) * lu(k,1262) + lu(k,1319) = lu(k,1319) - lu(k,493) * lu(k,1304) + lu(k,1323) = - lu(k,494) * lu(k,1304) + lu(k,1324) = lu(k,1324) - lu(k,495) * lu(k,1304) + lu(k,1326) = - lu(k,496) * lu(k,1304) + lu(k,1327) = lu(k,1327) - lu(k,497) * lu(k,1304) + lu(k,1329) = - lu(k,498) * lu(k,1304) + lu(k,1333) = - lu(k,499) * lu(k,1304) + lu(k,1334) = lu(k,1334) - lu(k,500) * lu(k,1304) + lu(k,1335) = lu(k,1335) - lu(k,501) * lu(k,1304) + lu(k,1337) = lu(k,1337) - lu(k,502) * lu(k,1304) + lu(k,1341) = lu(k,1341) - lu(k,503) * lu(k,1304) + lu(k,1342) = lu(k,1342) - lu(k,504) * lu(k,1304) + lu(k,1344) = lu(k,1344) - lu(k,505) * lu(k,1304) + lu(k,1422) = lu(k,1422) - lu(k,493) * lu(k,1407) + lu(k,1426) = - lu(k,494) * lu(k,1407) + lu(k,1427) = - lu(k,495) * lu(k,1407) + lu(k,1429) = lu(k,1429) - lu(k,496) * lu(k,1407) + lu(k,1430) = - lu(k,497) * lu(k,1407) + lu(k,1432) = lu(k,1432) - lu(k,498) * lu(k,1407) + lu(k,1436) = - lu(k,499) * lu(k,1407) + lu(k,1437) = - lu(k,500) * lu(k,1407) + lu(k,1438) = lu(k,1438) - lu(k,501) * lu(k,1407) + lu(k,1440) = lu(k,1440) - lu(k,502) * lu(k,1407) + lu(k,1444) = lu(k,1444) - lu(k,503) * lu(k,1407) + lu(k,1445) = lu(k,1445) - lu(k,504) * lu(k,1407) + lu(k,1447) = lu(k,1447) - lu(k,505) * lu(k,1407) + lu(k,1592) = lu(k,1592) - lu(k,493) * lu(k,1576) + lu(k,1596) = lu(k,1596) - lu(k,494) * lu(k,1576) + lu(k,1597) = - lu(k,495) * lu(k,1576) + lu(k,1599) = - lu(k,496) * lu(k,1576) + lu(k,1600) = - lu(k,497) * lu(k,1576) + lu(k,1602) = - lu(k,498) * lu(k,1576) + lu(k,1606) = lu(k,1606) - lu(k,499) * lu(k,1576) + lu(k,1607) = lu(k,1607) - lu(k,500) * lu(k,1576) + lu(k,1608) = lu(k,1608) - lu(k,501) * lu(k,1576) + lu(k,1610) = lu(k,1610) - lu(k,502) * lu(k,1576) + lu(k,1614) = lu(k,1614) - lu(k,503) * lu(k,1576) + lu(k,1615) = lu(k,1615) - lu(k,504) * lu(k,1576) + lu(k,1617) = lu(k,1617) - lu(k,505) * lu(k,1576) + lu(k,1635) = lu(k,1635) - lu(k,493) * lu(k,1620) + lu(k,1639) = - lu(k,494) * lu(k,1620) + lu(k,1640) = - lu(k,495) * lu(k,1620) + lu(k,1642) = lu(k,1642) - lu(k,496) * lu(k,1620) + lu(k,1643) = - lu(k,497) * lu(k,1620) + lu(k,1645) = - lu(k,498) * lu(k,1620) + lu(k,1649) = - lu(k,499) * lu(k,1620) + lu(k,1650) = lu(k,1650) - lu(k,500) * lu(k,1620) + lu(k,1651) = lu(k,1651) - lu(k,501) * lu(k,1620) + lu(k,1653) = lu(k,1653) - lu(k,502) * lu(k,1620) + lu(k,1657) = lu(k,1657) - lu(k,503) * lu(k,1620) + lu(k,1658) = - lu(k,504) * lu(k,1620) + lu(k,1660) = lu(k,1660) - lu(k,505) * lu(k,1620) + lu(k,1677) = lu(k,1677) - lu(k,493) * lu(k,1670) + lu(k,1681) = lu(k,1681) - lu(k,494) * lu(k,1670) + lu(k,1682) = - lu(k,495) * lu(k,1670) + lu(k,1684) = - lu(k,496) * lu(k,1670) + lu(k,1685) = lu(k,1685) - lu(k,497) * lu(k,1670) + lu(k,1687) = - lu(k,498) * lu(k,1670) + lu(k,1691) = lu(k,1691) - lu(k,499) * lu(k,1670) + lu(k,1692) = lu(k,1692) - lu(k,500) * lu(k,1670) + lu(k,1693) = lu(k,1693) - lu(k,501) * lu(k,1670) + lu(k,1695) = lu(k,1695) - lu(k,502) * lu(k,1670) + lu(k,1699) = lu(k,1699) - lu(k,503) * lu(k,1670) + lu(k,1700) = lu(k,1700) - lu(k,504) * lu(k,1670) + lu(k,1702) = lu(k,1702) - lu(k,505) * lu(k,1670) + lu(k,1834) = lu(k,1834) - lu(k,493) * lu(k,1828) + lu(k,1838) = - lu(k,494) * lu(k,1828) + lu(k,1839) = - lu(k,495) * lu(k,1828) + lu(k,1841) = - lu(k,496) * lu(k,1828) + lu(k,1842) = - lu(k,497) * lu(k,1828) + lu(k,1844) = - lu(k,498) * lu(k,1828) + lu(k,1848) = - lu(k,499) * lu(k,1828) + lu(k,1849) = - lu(k,500) * lu(k,1828) + lu(k,1850) = lu(k,1850) - lu(k,501) * lu(k,1828) + lu(k,1852) = lu(k,1852) - lu(k,502) * lu(k,1828) + lu(k,1856) = lu(k,1856) - lu(k,503) * lu(k,1828) + lu(k,1857) = lu(k,1857) - lu(k,504) * lu(k,1828) + lu(k,1859) = lu(k,1859) - lu(k,505) * lu(k,1828) end do end subroutine lu_fac13 subroutine lu_fac14( avec_len, lu ) @@ -3025,506 +2598,457 @@ subroutine lu_fac14( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,550) = 1._r8 / lu(k,550) - lu(k,551) = lu(k,551) * lu(k,550) - lu(k,552) = lu(k,552) * lu(k,550) - lu(k,553) = lu(k,553) * lu(k,550) - lu(k,554) = lu(k,554) * lu(k,550) - lu(k,555) = lu(k,555) * lu(k,550) - lu(k,556) = lu(k,556) * lu(k,550) - lu(k,557) = lu(k,557) * lu(k,550) - lu(k,558) = lu(k,558) * lu(k,550) - lu(k,559) = lu(k,559) * lu(k,550) - lu(k,560) = lu(k,560) * lu(k,550) - lu(k,561) = lu(k,561) * lu(k,550) - lu(k,562) = lu(k,562) * lu(k,550) - lu(k,563) = lu(k,563) * lu(k,550) - lu(k,672) = lu(k,672) - lu(k,551) * lu(k,668) - lu(k,674) = lu(k,674) - lu(k,552) * lu(k,668) - lu(k,675) = lu(k,675) - lu(k,553) * lu(k,668) - lu(k,676) = lu(k,676) - lu(k,554) * lu(k,668) - lu(k,678) = lu(k,678) - lu(k,555) * lu(k,668) - lu(k,680) = lu(k,680) - lu(k,556) * lu(k,668) - lu(k,681) = lu(k,681) - lu(k,557) * lu(k,668) - lu(k,682) = lu(k,682) - lu(k,558) * lu(k,668) - lu(k,683) = lu(k,683) - lu(k,559) * lu(k,668) - lu(k,684) = lu(k,684) - lu(k,560) * lu(k,668) - lu(k,685) = lu(k,685) - lu(k,561) * lu(k,668) - lu(k,686) = lu(k,686) - lu(k,562) * lu(k,668) - lu(k,687) = lu(k,687) - lu(k,563) * lu(k,668) - lu(k,926) = lu(k,926) - lu(k,551) * lu(k,923) - lu(k,930) = lu(k,930) - lu(k,552) * lu(k,923) - lu(k,931) = lu(k,931) - lu(k,553) * lu(k,923) - lu(k,932) = lu(k,932) - lu(k,554) * lu(k,923) - lu(k,933) = lu(k,933) - lu(k,555) * lu(k,923) - lu(k,935) = lu(k,935) - lu(k,556) * lu(k,923) - lu(k,938) = lu(k,938) - lu(k,557) * lu(k,923) - lu(k,939) = lu(k,939) - lu(k,558) * lu(k,923) - lu(k,940) = lu(k,940) - lu(k,559) * lu(k,923) - lu(k,942) = lu(k,942) - lu(k,560) * lu(k,923) - lu(k,943) = lu(k,943) - lu(k,561) * lu(k,923) - lu(k,946) = lu(k,946) - lu(k,562) * lu(k,923) - lu(k,948) = lu(k,948) - lu(k,563) * lu(k,923) - lu(k,1148) = lu(k,1148) - lu(k,551) * lu(k,1137) - lu(k,1153) = lu(k,1153) - lu(k,552) * lu(k,1137) - lu(k,1154) = lu(k,1154) - lu(k,553) * lu(k,1137) - lu(k,1155) = lu(k,1155) - lu(k,554) * lu(k,1137) - lu(k,1157) = lu(k,1157) - lu(k,555) * lu(k,1137) - lu(k,1159) = lu(k,1159) - lu(k,556) * lu(k,1137) - lu(k,1163) = lu(k,1163) - lu(k,557) * lu(k,1137) - lu(k,1164) = lu(k,1164) - lu(k,558) * lu(k,1137) - lu(k,1165) = lu(k,1165) - lu(k,559) * lu(k,1137) - lu(k,1167) = lu(k,1167) - lu(k,560) * lu(k,1137) - lu(k,1168) = lu(k,1168) - lu(k,561) * lu(k,1137) - lu(k,1172) = lu(k,1172) - lu(k,562) * lu(k,1137) - lu(k,1174) = lu(k,1174) - lu(k,563) * lu(k,1137) - lu(k,1191) = lu(k,1191) - lu(k,551) * lu(k,1181) - lu(k,1196) = lu(k,1196) - lu(k,552) * lu(k,1181) - lu(k,1197) = lu(k,1197) - lu(k,553) * lu(k,1181) - lu(k,1198) = lu(k,1198) - lu(k,554) * lu(k,1181) - lu(k,1200) = lu(k,1200) - lu(k,555) * lu(k,1181) - lu(k,1202) = lu(k,1202) - lu(k,556) * lu(k,1181) - lu(k,1206) = lu(k,1206) - lu(k,557) * lu(k,1181) - lu(k,1207) = lu(k,1207) - lu(k,558) * lu(k,1181) - lu(k,1208) = lu(k,1208) - lu(k,559) * lu(k,1181) - lu(k,1210) = lu(k,1210) - lu(k,560) * lu(k,1181) - lu(k,1211) = lu(k,1211) - lu(k,561) * lu(k,1181) - lu(k,1215) = lu(k,1215) - lu(k,562) * lu(k,1181) - lu(k,1217) = lu(k,1217) - lu(k,563) * lu(k,1181) - lu(k,1234) = lu(k,1234) - lu(k,551) * lu(k,1224) - lu(k,1239) = lu(k,1239) - lu(k,552) * lu(k,1224) - lu(k,1240) = lu(k,1240) - lu(k,553) * lu(k,1224) - lu(k,1241) = lu(k,1241) - lu(k,554) * lu(k,1224) - lu(k,1243) = lu(k,1243) - lu(k,555) * lu(k,1224) - lu(k,1245) = lu(k,1245) - lu(k,556) * lu(k,1224) - lu(k,1249) = lu(k,1249) - lu(k,557) * lu(k,1224) - lu(k,1250) = lu(k,1250) - lu(k,558) * lu(k,1224) - lu(k,1251) = lu(k,1251) - lu(k,559) * lu(k,1224) - lu(k,1253) = lu(k,1253) - lu(k,560) * lu(k,1224) - lu(k,1254) = lu(k,1254) - lu(k,561) * lu(k,1224) - lu(k,1258) = lu(k,1258) - lu(k,562) * lu(k,1224) - lu(k,1260) = lu(k,1260) - lu(k,563) * lu(k,1224) - lu(k,1318) = lu(k,1318) - lu(k,551) * lu(k,1308) - lu(k,1323) = lu(k,1323) - lu(k,552) * lu(k,1308) - lu(k,1324) = lu(k,1324) - lu(k,553) * lu(k,1308) - lu(k,1325) = lu(k,1325) - lu(k,554) * lu(k,1308) - lu(k,1327) = lu(k,1327) - lu(k,555) * lu(k,1308) - lu(k,1329) = lu(k,1329) - lu(k,556) * lu(k,1308) - lu(k,1333) = lu(k,1333) - lu(k,557) * lu(k,1308) - lu(k,1334) = lu(k,1334) - lu(k,558) * lu(k,1308) - lu(k,1335) = lu(k,1335) - lu(k,559) * lu(k,1308) - lu(k,1337) = lu(k,1337) - lu(k,560) * lu(k,1308) - lu(k,1338) = lu(k,1338) - lu(k,561) * lu(k,1308) - lu(k,1342) = lu(k,1342) - lu(k,562) * lu(k,1308) - lu(k,1344) = lu(k,1344) - lu(k,563) * lu(k,1308) - lu(k,1597) = lu(k,1597) - lu(k,551) * lu(k,1586) - lu(k,1602) = lu(k,1602) - lu(k,552) * lu(k,1586) - lu(k,1603) = lu(k,1603) - lu(k,553) * lu(k,1586) - lu(k,1604) = lu(k,1604) - lu(k,554) * lu(k,1586) - lu(k,1606) = lu(k,1606) - lu(k,555) * lu(k,1586) - lu(k,1608) = lu(k,1608) - lu(k,556) * lu(k,1586) - lu(k,1612) = lu(k,1612) - lu(k,557) * lu(k,1586) - lu(k,1613) = lu(k,1613) - lu(k,558) * lu(k,1586) - lu(k,1614) = lu(k,1614) - lu(k,559) * lu(k,1586) - lu(k,1616) = lu(k,1616) - lu(k,560) * lu(k,1586) - lu(k,1617) = lu(k,1617) - lu(k,561) * lu(k,1586) - lu(k,1621) = lu(k,1621) - lu(k,562) * lu(k,1586) - lu(k,1623) = lu(k,1623) - lu(k,563) * lu(k,1586) - lu(k,1640) = lu(k,1640) - lu(k,551) * lu(k,1630) - lu(k,1645) = lu(k,1645) - lu(k,552) * lu(k,1630) - lu(k,1646) = lu(k,1646) - lu(k,553) * lu(k,1630) - lu(k,1647) = lu(k,1647) - lu(k,554) * lu(k,1630) - lu(k,1649) = lu(k,1649) - lu(k,555) * lu(k,1630) - lu(k,1651) = lu(k,1651) - lu(k,556) * lu(k,1630) - lu(k,1655) = lu(k,1655) - lu(k,557) * lu(k,1630) - lu(k,1656) = lu(k,1656) - lu(k,558) * lu(k,1630) - lu(k,1657) = lu(k,1657) - lu(k,559) * lu(k,1630) - lu(k,1659) = lu(k,1659) - lu(k,560) * lu(k,1630) - lu(k,1660) = lu(k,1660) - lu(k,561) * lu(k,1630) - lu(k,1664) = lu(k,1664) - lu(k,562) * lu(k,1630) - lu(k,1666) = lu(k,1666) - lu(k,563) * lu(k,1630) - lu(k,1683) = lu(k,1683) - lu(k,551) * lu(k,1673) - lu(k,1688) = lu(k,1688) - lu(k,552) * lu(k,1673) - lu(k,1689) = lu(k,1689) - lu(k,553) * lu(k,1673) - lu(k,1690) = lu(k,1690) - lu(k,554) * lu(k,1673) - lu(k,1692) = lu(k,1692) - lu(k,555) * lu(k,1673) - lu(k,1694) = lu(k,1694) - lu(k,556) * lu(k,1673) - lu(k,1698) = lu(k,1698) - lu(k,557) * lu(k,1673) - lu(k,1699) = lu(k,1699) - lu(k,558) * lu(k,1673) - lu(k,1700) = lu(k,1700) - lu(k,559) * lu(k,1673) - lu(k,1702) = lu(k,1702) - lu(k,560) * lu(k,1673) - lu(k,1703) = lu(k,1703) - lu(k,561) * lu(k,1673) - lu(k,1707) = lu(k,1707) - lu(k,562) * lu(k,1673) - lu(k,1709) = lu(k,1709) - lu(k,563) * lu(k,1673) - lu(k,1959) = lu(k,1959) - lu(k,551) * lu(k,1948) - lu(k,1964) = lu(k,1964) - lu(k,552) * lu(k,1948) - lu(k,1965) = - lu(k,553) * lu(k,1948) - lu(k,1966) = - lu(k,554) * lu(k,1948) - lu(k,1968) = - lu(k,555) * lu(k,1948) - lu(k,1970) = lu(k,1970) - lu(k,556) * lu(k,1948) - lu(k,1974) = lu(k,1974) - lu(k,557) * lu(k,1948) - lu(k,1975) = - lu(k,558) * lu(k,1948) - lu(k,1976) = - lu(k,559) * lu(k,1948) - lu(k,1978) = lu(k,1978) - lu(k,560) * lu(k,1948) - lu(k,1979) = lu(k,1979) - lu(k,561) * lu(k,1948) - lu(k,1983) = lu(k,1983) - lu(k,562) * lu(k,1948) - lu(k,1985) = lu(k,1985) - lu(k,563) * lu(k,1948) - lu(k,2064) = lu(k,2064) - lu(k,551) * lu(k,2052) - lu(k,2069) = lu(k,2069) - lu(k,552) * lu(k,2052) - lu(k,2070) = lu(k,2070) - lu(k,553) * lu(k,2052) - lu(k,2071) = lu(k,2071) - lu(k,554) * lu(k,2052) - lu(k,2073) = lu(k,2073) - lu(k,555) * lu(k,2052) - lu(k,2075) = lu(k,2075) - lu(k,556) * lu(k,2052) - lu(k,2079) = lu(k,2079) - lu(k,557) * lu(k,2052) - lu(k,2080) = lu(k,2080) - lu(k,558) * lu(k,2052) - lu(k,2081) = lu(k,2081) - lu(k,559) * lu(k,2052) - lu(k,2083) = lu(k,2083) - lu(k,560) * lu(k,2052) - lu(k,2084) = lu(k,2084) - lu(k,561) * lu(k,2052) - lu(k,2088) = lu(k,2088) - lu(k,562) * lu(k,2052) - lu(k,2090) = lu(k,2090) - lu(k,563) * lu(k,2052) - lu(k,564) = 1._r8 / lu(k,564) - lu(k,565) = lu(k,565) * lu(k,564) - lu(k,566) = lu(k,566) * lu(k,564) - lu(k,567) = lu(k,567) * lu(k,564) - lu(k,568) = lu(k,568) * lu(k,564) - lu(k,569) = lu(k,569) * lu(k,564) - lu(k,570) = lu(k,570) * lu(k,564) - lu(k,571) = lu(k,571) * lu(k,564) - lu(k,572) = lu(k,572) * lu(k,564) - lu(k,573) = lu(k,573) * lu(k,564) - lu(k,574) = lu(k,574) * lu(k,564) - lu(k,575) = lu(k,575) * lu(k,564) - lu(k,576) = lu(k,576) * lu(k,564) - lu(k,577) = lu(k,577) * lu(k,564) - lu(k,578) = lu(k,578) * lu(k,564) - lu(k,579) = lu(k,579) * lu(k,564) - lu(k,863) = lu(k,863) - lu(k,565) * lu(k,862) - lu(k,869) = lu(k,869) - lu(k,566) * lu(k,862) - lu(k,870) = lu(k,870) - lu(k,567) * lu(k,862) - lu(k,871) = lu(k,871) - lu(k,568) * lu(k,862) - lu(k,872) = lu(k,872) - lu(k,569) * lu(k,862) - lu(k,874) = lu(k,874) - lu(k,570) * lu(k,862) - lu(k,876) = lu(k,876) - lu(k,571) * lu(k,862) - lu(k,877) = lu(k,877) - lu(k,572) * lu(k,862) - lu(k,878) = lu(k,878) - lu(k,573) * lu(k,862) - lu(k,879) = lu(k,879) - lu(k,574) * lu(k,862) - lu(k,880) = lu(k,880) - lu(k,575) * lu(k,862) - lu(k,881) = - lu(k,576) * lu(k,862) - lu(k,884) = lu(k,884) - lu(k,577) * lu(k,862) - lu(k,885) = lu(k,885) - lu(k,578) * lu(k,862) - lu(k,886) = lu(k,886) - lu(k,579) * lu(k,862) - lu(k,1139) = lu(k,1139) - lu(k,565) * lu(k,1138) - lu(k,1153) = lu(k,1153) - lu(k,566) * lu(k,1138) - lu(k,1154) = lu(k,1154) - lu(k,567) * lu(k,1138) - lu(k,1155) = lu(k,1155) - lu(k,568) * lu(k,1138) - lu(k,1157) = lu(k,1157) - lu(k,569) * lu(k,1138) - lu(k,1159) = lu(k,1159) - lu(k,570) * lu(k,1138) - lu(k,1161) = lu(k,1161) - lu(k,571) * lu(k,1138) - lu(k,1163) = lu(k,1163) - lu(k,572) * lu(k,1138) - lu(k,1164) = lu(k,1164) - lu(k,573) * lu(k,1138) - lu(k,1165) = lu(k,1165) - lu(k,574) * lu(k,1138) - lu(k,1166) = lu(k,1166) - lu(k,575) * lu(k,1138) - lu(k,1167) = lu(k,1167) - lu(k,576) * lu(k,1138) - lu(k,1172) = lu(k,1172) - lu(k,577) * lu(k,1138) - lu(k,1173) = lu(k,1173) - lu(k,578) * lu(k,1138) - lu(k,1174) = lu(k,1174) - lu(k,579) * lu(k,1138) - lu(k,1183) = lu(k,1183) - lu(k,565) * lu(k,1182) - lu(k,1196) = lu(k,1196) - lu(k,566) * lu(k,1182) - lu(k,1197) = lu(k,1197) - lu(k,567) * lu(k,1182) - lu(k,1198) = lu(k,1198) - lu(k,568) * lu(k,1182) - lu(k,1200) = lu(k,1200) - lu(k,569) * lu(k,1182) - lu(k,1202) = lu(k,1202) - lu(k,570) * lu(k,1182) - lu(k,1204) = lu(k,1204) - lu(k,571) * lu(k,1182) - lu(k,1206) = lu(k,1206) - lu(k,572) * lu(k,1182) - lu(k,1207) = lu(k,1207) - lu(k,573) * lu(k,1182) - lu(k,1208) = lu(k,1208) - lu(k,574) * lu(k,1182) - lu(k,1209) = lu(k,1209) - lu(k,575) * lu(k,1182) - lu(k,1210) = lu(k,1210) - lu(k,576) * lu(k,1182) - lu(k,1215) = lu(k,1215) - lu(k,577) * lu(k,1182) - lu(k,1216) = lu(k,1216) - lu(k,578) * lu(k,1182) - lu(k,1217) = lu(k,1217) - lu(k,579) * lu(k,1182) - lu(k,1226) = lu(k,1226) - lu(k,565) * lu(k,1225) - lu(k,1239) = lu(k,1239) - lu(k,566) * lu(k,1225) - lu(k,1240) = lu(k,1240) - lu(k,567) * lu(k,1225) - lu(k,1241) = lu(k,1241) - lu(k,568) * lu(k,1225) - lu(k,1243) = lu(k,1243) - lu(k,569) * lu(k,1225) - lu(k,1245) = lu(k,1245) - lu(k,570) * lu(k,1225) - lu(k,1247) = lu(k,1247) - lu(k,571) * lu(k,1225) - lu(k,1249) = lu(k,1249) - lu(k,572) * lu(k,1225) - lu(k,1250) = lu(k,1250) - lu(k,573) * lu(k,1225) - lu(k,1251) = lu(k,1251) - lu(k,574) * lu(k,1225) - lu(k,1252) = lu(k,1252) - lu(k,575) * lu(k,1225) - lu(k,1253) = lu(k,1253) - lu(k,576) * lu(k,1225) - lu(k,1258) = lu(k,1258) - lu(k,577) * lu(k,1225) - lu(k,1259) = lu(k,1259) - lu(k,578) * lu(k,1225) - lu(k,1260) = lu(k,1260) - lu(k,579) * lu(k,1225) - lu(k,1310) = lu(k,1310) - lu(k,565) * lu(k,1309) - lu(k,1323) = lu(k,1323) - lu(k,566) * lu(k,1309) - lu(k,1324) = lu(k,1324) - lu(k,567) * lu(k,1309) - lu(k,1325) = lu(k,1325) - lu(k,568) * lu(k,1309) - lu(k,1327) = lu(k,1327) - lu(k,569) * lu(k,1309) - lu(k,1329) = lu(k,1329) - lu(k,570) * lu(k,1309) - lu(k,1331) = lu(k,1331) - lu(k,571) * lu(k,1309) - lu(k,1333) = lu(k,1333) - lu(k,572) * lu(k,1309) - lu(k,1334) = lu(k,1334) - lu(k,573) * lu(k,1309) - lu(k,1335) = lu(k,1335) - lu(k,574) * lu(k,1309) - lu(k,1336) = lu(k,1336) - lu(k,575) * lu(k,1309) - lu(k,1337) = lu(k,1337) - lu(k,576) * lu(k,1309) - lu(k,1342) = lu(k,1342) - lu(k,577) * lu(k,1309) - lu(k,1343) = lu(k,1343) - lu(k,578) * lu(k,1309) - lu(k,1344) = lu(k,1344) - lu(k,579) * lu(k,1309) - lu(k,1508) = lu(k,1508) - lu(k,565) * lu(k,1507) - lu(k,1521) = - lu(k,566) * lu(k,1507) - lu(k,1522) = - lu(k,567) * lu(k,1507) - lu(k,1523) = - lu(k,568) * lu(k,1507) - lu(k,1525) = - lu(k,569) * lu(k,1507) - lu(k,1527) = lu(k,1527) - lu(k,570) * lu(k,1507) - lu(k,1529) = lu(k,1529) - lu(k,571) * lu(k,1507) - lu(k,1531) = - lu(k,572) * lu(k,1507) - lu(k,1532) = - lu(k,573) * lu(k,1507) - lu(k,1533) = - lu(k,574) * lu(k,1507) - lu(k,1534) = lu(k,1534) - lu(k,575) * lu(k,1507) - lu(k,1535) = lu(k,1535) - lu(k,576) * lu(k,1507) - lu(k,1540) = lu(k,1540) - lu(k,577) * lu(k,1507) - lu(k,1541) = lu(k,1541) - lu(k,578) * lu(k,1507) - lu(k,1542) = lu(k,1542) - lu(k,579) * lu(k,1507) - lu(k,1588) = lu(k,1588) - lu(k,565) * lu(k,1587) - lu(k,1602) = lu(k,1602) - lu(k,566) * lu(k,1587) - lu(k,1603) = lu(k,1603) - lu(k,567) * lu(k,1587) - lu(k,1604) = lu(k,1604) - lu(k,568) * lu(k,1587) - lu(k,1606) = lu(k,1606) - lu(k,569) * lu(k,1587) - lu(k,1608) = lu(k,1608) - lu(k,570) * lu(k,1587) - lu(k,1610) = lu(k,1610) - lu(k,571) * lu(k,1587) - lu(k,1612) = lu(k,1612) - lu(k,572) * lu(k,1587) - lu(k,1613) = lu(k,1613) - lu(k,573) * lu(k,1587) - lu(k,1614) = lu(k,1614) - lu(k,574) * lu(k,1587) - lu(k,1615) = lu(k,1615) - lu(k,575) * lu(k,1587) - lu(k,1616) = lu(k,1616) - lu(k,576) * lu(k,1587) - lu(k,1621) = lu(k,1621) - lu(k,577) * lu(k,1587) - lu(k,1622) = lu(k,1622) - lu(k,578) * lu(k,1587) - lu(k,1623) = lu(k,1623) - lu(k,579) * lu(k,1587) - lu(k,1632) = lu(k,1632) - lu(k,565) * lu(k,1631) - lu(k,1645) = lu(k,1645) - lu(k,566) * lu(k,1631) - lu(k,1646) = lu(k,1646) - lu(k,567) * lu(k,1631) - lu(k,1647) = lu(k,1647) - lu(k,568) * lu(k,1631) - lu(k,1649) = lu(k,1649) - lu(k,569) * lu(k,1631) - lu(k,1651) = lu(k,1651) - lu(k,570) * lu(k,1631) - lu(k,1653) = lu(k,1653) - lu(k,571) * lu(k,1631) - lu(k,1655) = lu(k,1655) - lu(k,572) * lu(k,1631) - lu(k,1656) = lu(k,1656) - lu(k,573) * lu(k,1631) - lu(k,1657) = lu(k,1657) - lu(k,574) * lu(k,1631) - lu(k,1658) = lu(k,1658) - lu(k,575) * lu(k,1631) - lu(k,1659) = lu(k,1659) - lu(k,576) * lu(k,1631) - lu(k,1664) = lu(k,1664) - lu(k,577) * lu(k,1631) - lu(k,1665) = lu(k,1665) - lu(k,578) * lu(k,1631) - lu(k,1666) = lu(k,1666) - lu(k,579) * lu(k,1631) - lu(k,1675) = lu(k,1675) - lu(k,565) * lu(k,1674) - lu(k,1688) = lu(k,1688) - lu(k,566) * lu(k,1674) - lu(k,1689) = lu(k,1689) - lu(k,567) * lu(k,1674) - lu(k,1690) = lu(k,1690) - lu(k,568) * lu(k,1674) - lu(k,1692) = lu(k,1692) - lu(k,569) * lu(k,1674) - lu(k,1694) = lu(k,1694) - lu(k,570) * lu(k,1674) - lu(k,1696) = lu(k,1696) - lu(k,571) * lu(k,1674) - lu(k,1698) = lu(k,1698) - lu(k,572) * lu(k,1674) - lu(k,1699) = lu(k,1699) - lu(k,573) * lu(k,1674) - lu(k,1700) = lu(k,1700) - lu(k,574) * lu(k,1674) - lu(k,1701) = lu(k,1701) - lu(k,575) * lu(k,1674) - lu(k,1702) = lu(k,1702) - lu(k,576) * lu(k,1674) - lu(k,1707) = lu(k,1707) - lu(k,577) * lu(k,1674) - lu(k,1708) = lu(k,1708) - lu(k,578) * lu(k,1674) - lu(k,1709) = lu(k,1709) - lu(k,579) * lu(k,1674) - lu(k,1996) = - lu(k,565) * lu(k,1994) - lu(k,2009) = lu(k,2009) - lu(k,566) * lu(k,1994) - lu(k,2010) = lu(k,2010) - lu(k,567) * lu(k,1994) - lu(k,2011) = lu(k,2011) - lu(k,568) * lu(k,1994) - lu(k,2013) = lu(k,2013) - lu(k,569) * lu(k,1994) - lu(k,2015) = lu(k,2015) - lu(k,570) * lu(k,1994) - lu(k,2017) = lu(k,2017) - lu(k,571) * lu(k,1994) - lu(k,2019) = lu(k,2019) - lu(k,572) * lu(k,1994) - lu(k,2020) = lu(k,2020) - lu(k,573) * lu(k,1994) - lu(k,2021) = lu(k,2021) - lu(k,574) * lu(k,1994) - lu(k,2022) = lu(k,2022) - lu(k,575) * lu(k,1994) - lu(k,2023) = lu(k,2023) - lu(k,576) * lu(k,1994) - lu(k,2028) = lu(k,2028) - lu(k,577) * lu(k,1994) - lu(k,2029) = lu(k,2029) - lu(k,578) * lu(k,1994) - lu(k,2030) = lu(k,2030) - lu(k,579) * lu(k,1994) - lu(k,582) = 1._r8 / lu(k,582) - lu(k,583) = lu(k,583) * lu(k,582) - lu(k,584) = lu(k,584) * lu(k,582) - lu(k,585) = lu(k,585) * lu(k,582) - lu(k,586) = lu(k,586) * lu(k,582) - lu(k,587) = lu(k,587) * lu(k,582) - lu(k,588) = lu(k,588) * lu(k,582) - lu(k,589) = lu(k,589) * lu(k,582) - lu(k,590) = lu(k,590) * lu(k,582) - lu(k,591) = lu(k,591) * lu(k,582) - lu(k,592) = lu(k,592) * lu(k,582) - lu(k,593) = lu(k,593) * lu(k,582) - lu(k,715) = lu(k,715) - lu(k,583) * lu(k,714) - lu(k,716) = - lu(k,584) * lu(k,714) - lu(k,717) = - lu(k,585) * lu(k,714) - lu(k,718) = lu(k,718) - lu(k,586) * lu(k,714) - lu(k,719) = lu(k,719) - lu(k,587) * lu(k,714) - lu(k,721) = - lu(k,588) * lu(k,714) - lu(k,722) = lu(k,722) - lu(k,589) * lu(k,714) - lu(k,723) = lu(k,723) - lu(k,590) * lu(k,714) - lu(k,727) = lu(k,727) - lu(k,591) * lu(k,714) - lu(k,729) = lu(k,729) - lu(k,592) * lu(k,714) - lu(k,732) = lu(k,732) - lu(k,593) * lu(k,714) - lu(k,737) = lu(k,737) - lu(k,583) * lu(k,735) - lu(k,738) = lu(k,738) - lu(k,584) * lu(k,735) - lu(k,739) = lu(k,739) - lu(k,585) * lu(k,735) - lu(k,740) = lu(k,740) - lu(k,586) * lu(k,735) - lu(k,741) = lu(k,741) - lu(k,587) * lu(k,735) - lu(k,744) = lu(k,744) - lu(k,588) * lu(k,735) - lu(k,745) = lu(k,745) - lu(k,589) * lu(k,735) - lu(k,746) = - lu(k,590) * lu(k,735) - lu(k,750) = lu(k,750) - lu(k,591) * lu(k,735) - lu(k,754) = - lu(k,592) * lu(k,735) - lu(k,757) = lu(k,757) - lu(k,593) * lu(k,735) - lu(k,785) = lu(k,785) - lu(k,583) * lu(k,783) - lu(k,786) = lu(k,786) - lu(k,584) * lu(k,783) - lu(k,787) = lu(k,787) - lu(k,585) * lu(k,783) - lu(k,788) = lu(k,788) - lu(k,586) * lu(k,783) - lu(k,789) = lu(k,789) - lu(k,587) * lu(k,783) - lu(k,793) = lu(k,793) - lu(k,588) * lu(k,783) - lu(k,794) = lu(k,794) - lu(k,589) * lu(k,783) - lu(k,795) = lu(k,795) - lu(k,590) * lu(k,783) - lu(k,801) = lu(k,801) - lu(k,591) * lu(k,783) - lu(k,805) = lu(k,805) - lu(k,592) * lu(k,783) - lu(k,808) = lu(k,808) - lu(k,593) * lu(k,783) - lu(k,897) = lu(k,897) - lu(k,583) * lu(k,895) - lu(k,898) = lu(k,898) - lu(k,584) * lu(k,895) - lu(k,899) = lu(k,899) - lu(k,585) * lu(k,895) - lu(k,900) = lu(k,900) - lu(k,586) * lu(k,895) - lu(k,901) = lu(k,901) - lu(k,587) * lu(k,895) - lu(k,905) = - lu(k,588) * lu(k,895) - lu(k,907) = lu(k,907) - lu(k,589) * lu(k,895) - lu(k,908) = lu(k,908) - lu(k,590) * lu(k,895) - lu(k,914) = lu(k,914) - lu(k,591) * lu(k,895) - lu(k,918) = lu(k,918) - lu(k,592) * lu(k,895) - lu(k,921) = lu(k,921) - lu(k,593) * lu(k,895) - lu(k,980) = lu(k,980) - lu(k,583) * lu(k,978) - lu(k,981) = lu(k,981) - lu(k,584) * lu(k,978) - lu(k,982) = lu(k,982) - lu(k,585) * lu(k,978) - lu(k,983) = lu(k,983) - lu(k,586) * lu(k,978) - lu(k,984) = lu(k,984) - lu(k,587) * lu(k,978) - lu(k,989) = lu(k,989) - lu(k,588) * lu(k,978) - lu(k,991) = lu(k,991) - lu(k,589) * lu(k,978) - lu(k,992) = lu(k,992) - lu(k,590) * lu(k,978) - lu(k,998) = lu(k,998) - lu(k,591) * lu(k,978) - lu(k,1002) = lu(k,1002) - lu(k,592) * lu(k,978) - lu(k,1005) = lu(k,1005) - lu(k,593) * lu(k,978) - lu(k,1093) = lu(k,1093) - lu(k,583) * lu(k,1092) - lu(k,1094) = lu(k,1094) - lu(k,584) * lu(k,1092) - lu(k,1095) = - lu(k,585) * lu(k,1092) - lu(k,1099) = lu(k,1099) - lu(k,586) * lu(k,1092) - lu(k,1101) = lu(k,1101) - lu(k,587) * lu(k,1092) - lu(k,1108) = lu(k,1108) - lu(k,588) * lu(k,1092) - lu(k,1110) = lu(k,1110) - lu(k,589) * lu(k,1092) - lu(k,1111) = lu(k,1111) - lu(k,590) * lu(k,1092) - lu(k,1119) = lu(k,1119) - lu(k,591) * lu(k,1092) - lu(k,1123) = lu(k,1123) - lu(k,592) * lu(k,1092) - lu(k,1126) = lu(k,1126) - lu(k,593) * lu(k,1092) - lu(k,1371) = lu(k,1371) - lu(k,583) * lu(k,1368) - lu(k,1372) = lu(k,1372) - lu(k,584) * lu(k,1368) - lu(k,1373) = lu(k,1373) - lu(k,585) * lu(k,1368) - lu(k,1377) = lu(k,1377) - lu(k,586) * lu(k,1368) - lu(k,1379) = lu(k,1379) - lu(k,587) * lu(k,1368) - lu(k,1386) = lu(k,1386) - lu(k,588) * lu(k,1368) - lu(k,1388) = lu(k,1388) - lu(k,589) * lu(k,1368) - lu(k,1389) = lu(k,1389) - lu(k,590) * lu(k,1368) - lu(k,1397) = lu(k,1397) - lu(k,591) * lu(k,1368) - lu(k,1401) = lu(k,1401) - lu(k,592) * lu(k,1368) - lu(k,1404) = lu(k,1404) - lu(k,593) * lu(k,1368) - lu(k,1421) = lu(k,1421) - lu(k,583) * lu(k,1419) - lu(k,1422) = - lu(k,584) * lu(k,1419) - lu(k,1423) = lu(k,1423) - lu(k,585) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,586) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,587) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,588) * lu(k,1419) - lu(k,1437) = lu(k,1437) - lu(k,589) * lu(k,1419) - lu(k,1438) = lu(k,1438) - lu(k,590) * lu(k,1419) - lu(k,1446) = lu(k,1446) - lu(k,591) * lu(k,1419) - lu(k,1450) = lu(k,1450) - lu(k,592) * lu(k,1419) - lu(k,1453) = lu(k,1453) - lu(k,593) * lu(k,1419) - lu(k,1468) = - lu(k,583) * lu(k,1466) - lu(k,1469) = lu(k,1469) - lu(k,584) * lu(k,1466) - lu(k,1470) = lu(k,1470) - lu(k,585) * lu(k,1466) - lu(k,1474) = lu(k,1474) - lu(k,586) * lu(k,1466) - lu(k,1476) = lu(k,1476) - lu(k,587) * lu(k,1466) - lu(k,1483) = lu(k,1483) - lu(k,588) * lu(k,1466) - lu(k,1485) = lu(k,1485) - lu(k,589) * lu(k,1466) - lu(k,1486) = lu(k,1486) - lu(k,590) * lu(k,1466) - lu(k,1494) = lu(k,1494) - lu(k,591) * lu(k,1466) - lu(k,1498) = lu(k,1498) - lu(k,592) * lu(k,1466) - lu(k,1501) = lu(k,1501) - lu(k,593) * lu(k,1466) - lu(k,1719) = lu(k,1719) - lu(k,583) * lu(k,1715) - lu(k,1720) = lu(k,1720) - lu(k,584) * lu(k,1715) - lu(k,1721) = - lu(k,585) * lu(k,1715) - lu(k,1723) = lu(k,1723) - lu(k,586) * lu(k,1715) - lu(k,1725) = lu(k,1725) - lu(k,587) * lu(k,1715) - lu(k,1731) = lu(k,1731) - lu(k,588) * lu(k,1715) - lu(k,1733) = lu(k,1733) - lu(k,589) * lu(k,1715) - lu(k,1734) = lu(k,1734) - lu(k,590) * lu(k,1715) - lu(k,1742) = lu(k,1742) - lu(k,591) * lu(k,1715) - lu(k,1746) = lu(k,1746) - lu(k,592) * lu(k,1715) - lu(k,1749) = lu(k,1749) - lu(k,593) * lu(k,1715) - lu(k,1801) = lu(k,1801) - lu(k,583) * lu(k,1795) - lu(k,1802) = - lu(k,584) * lu(k,1795) - lu(k,1803) = lu(k,1803) - lu(k,585) * lu(k,1795) - lu(k,1806) = lu(k,1806) - lu(k,586) * lu(k,1795) - lu(k,1808) = lu(k,1808) - lu(k,587) * lu(k,1795) - lu(k,1815) = lu(k,1815) - lu(k,588) * lu(k,1795) - lu(k,1817) = lu(k,1817) - lu(k,589) * lu(k,1795) - lu(k,1818) = lu(k,1818) - lu(k,590) * lu(k,1795) - lu(k,1826) = lu(k,1826) - lu(k,591) * lu(k,1795) - lu(k,1830) = lu(k,1830) - lu(k,592) * lu(k,1795) - lu(k,1833) = lu(k,1833) - lu(k,593) * lu(k,1795) - lu(k,1911) = lu(k,1911) - lu(k,583) * lu(k,1909) - lu(k,1912) = - lu(k,584) * lu(k,1909) - lu(k,1913) = lu(k,1913) - lu(k,585) * lu(k,1909) - lu(k,1916) = lu(k,1916) - lu(k,586) * lu(k,1909) - lu(k,1918) = lu(k,1918) - lu(k,587) * lu(k,1909) - lu(k,1925) = lu(k,1925) - lu(k,588) * lu(k,1909) - lu(k,1927) = lu(k,1927) - lu(k,589) * lu(k,1909) - lu(k,1928) = lu(k,1928) - lu(k,590) * lu(k,1909) - lu(k,1936) = lu(k,1936) - lu(k,591) * lu(k,1909) - lu(k,1940) = lu(k,1940) - lu(k,592) * lu(k,1909) - lu(k,1943) = lu(k,1943) - lu(k,593) * lu(k,1909) - lu(k,1953) = lu(k,1953) - lu(k,583) * lu(k,1949) - lu(k,1954) = lu(k,1954) - lu(k,584) * lu(k,1949) - lu(k,1955) = lu(k,1955) - lu(k,585) * lu(k,1949) - lu(k,1958) = lu(k,1958) - lu(k,586) * lu(k,1949) - lu(k,1960) = lu(k,1960) - lu(k,587) * lu(k,1949) - lu(k,1967) = lu(k,1967) - lu(k,588) * lu(k,1949) - lu(k,1969) = lu(k,1969) - lu(k,589) * lu(k,1949) - lu(k,1970) = lu(k,1970) - lu(k,590) * lu(k,1949) - lu(k,1978) = lu(k,1978) - lu(k,591) * lu(k,1949) - lu(k,1982) = lu(k,1982) - lu(k,592) * lu(k,1949) - lu(k,1985) = lu(k,1985) - lu(k,593) * lu(k,1949) - lu(k,1997) = lu(k,1997) - lu(k,583) * lu(k,1995) - lu(k,1998) = - lu(k,584) * lu(k,1995) - lu(k,1999) = lu(k,1999) - lu(k,585) * lu(k,1995) - lu(k,2003) = lu(k,2003) - lu(k,586) * lu(k,1995) - lu(k,2005) = lu(k,2005) - lu(k,587) * lu(k,1995) - lu(k,2012) = lu(k,2012) - lu(k,588) * lu(k,1995) - lu(k,2014) = lu(k,2014) - lu(k,589) * lu(k,1995) - lu(k,2015) = lu(k,2015) - lu(k,590) * lu(k,1995) - lu(k,2023) = lu(k,2023) - lu(k,591) * lu(k,1995) - lu(k,2027) = - lu(k,592) * lu(k,1995) - lu(k,2030) = lu(k,2030) - lu(k,593) * lu(k,1995) - lu(k,2058) = lu(k,2058) - lu(k,583) * lu(k,2053) - lu(k,2059) = lu(k,2059) - lu(k,584) * lu(k,2053) - lu(k,2060) = lu(k,2060) - lu(k,585) * lu(k,2053) - lu(k,2063) = lu(k,2063) - lu(k,586) * lu(k,2053) - lu(k,2065) = lu(k,2065) - lu(k,587) * lu(k,2053) - lu(k,2072) = lu(k,2072) - lu(k,588) * lu(k,2053) - lu(k,2074) = lu(k,2074) - lu(k,589) * lu(k,2053) - lu(k,2075) = lu(k,2075) - lu(k,590) * lu(k,2053) - lu(k,2083) = lu(k,2083) - lu(k,591) * lu(k,2053) - lu(k,2087) = lu(k,2087) - lu(k,592) * lu(k,2053) - lu(k,2090) = lu(k,2090) - lu(k,593) * lu(k,2053) + lu(k,506) = 1._r8 / lu(k,506) + lu(k,507) = lu(k,507) * lu(k,506) + lu(k,508) = lu(k,508) * lu(k,506) + lu(k,509) = lu(k,509) * lu(k,506) + lu(k,510) = lu(k,510) * lu(k,506) + lu(k,511) = lu(k,511) * lu(k,506) + lu(k,512) = lu(k,512) * lu(k,506) + lu(k,513) = lu(k,513) * lu(k,506) + lu(k,514) = lu(k,514) * lu(k,506) + lu(k,515) = lu(k,515) * lu(k,506) + lu(k,516) = lu(k,516) * lu(k,506) + lu(k,517) = lu(k,517) * lu(k,506) + lu(k,518) = lu(k,518) * lu(k,506) + lu(k,519) = lu(k,519) * lu(k,506) + lu(k,520) = lu(k,520) * lu(k,506) + lu(k,671) = lu(k,671) - lu(k,507) * lu(k,669) + lu(k,676) = lu(k,676) - lu(k,508) * lu(k,669) + lu(k,677) = lu(k,677) - lu(k,509) * lu(k,669) + lu(k,678) = lu(k,678) - lu(k,510) * lu(k,669) + lu(k,679) = lu(k,679) - lu(k,511) * lu(k,669) + lu(k,680) = lu(k,680) - lu(k,512) * lu(k,669) + lu(k,681) = lu(k,681) - lu(k,513) * lu(k,669) + lu(k,682) = lu(k,682) - lu(k,514) * lu(k,669) + lu(k,683) = lu(k,683) - lu(k,515) * lu(k,669) + lu(k,684) = lu(k,684) - lu(k,516) * lu(k,669) + lu(k,685) = lu(k,685) - lu(k,517) * lu(k,669) + lu(k,687) = lu(k,687) - lu(k,518) * lu(k,669) + lu(k,688) = lu(k,688) - lu(k,519) * lu(k,669) + lu(k,689) = lu(k,689) - lu(k,520) * lu(k,669) + lu(k,1142) = lu(k,1142) - lu(k,507) * lu(k,1135) + lu(k,1154) = lu(k,1154) - lu(k,508) * lu(k,1135) + lu(k,1155) = lu(k,1155) - lu(k,509) * lu(k,1135) + lu(k,1157) = lu(k,1157) - lu(k,510) * lu(k,1135) + lu(k,1158) = lu(k,1158) - lu(k,511) * lu(k,1135) + lu(k,1159) = lu(k,1159) - lu(k,512) * lu(k,1135) + lu(k,1160) = lu(k,1160) - lu(k,513) * lu(k,1135) + lu(k,1164) = lu(k,1164) - lu(k,514) * lu(k,1135) + lu(k,1165) = lu(k,1165) - lu(k,515) * lu(k,1135) + lu(k,1166) = lu(k,1166) - lu(k,516) * lu(k,1135) + lu(k,1168) = lu(k,1168) - lu(k,517) * lu(k,1135) + lu(k,1172) = lu(k,1172) - lu(k,518) * lu(k,1135) + lu(k,1173) = lu(k,1173) - lu(k,519) * lu(k,1135) + lu(k,1175) = lu(k,1175) - lu(k,520) * lu(k,1135) + lu(k,1186) = lu(k,1186) - lu(k,507) * lu(k,1179) + lu(k,1197) = lu(k,1197) - lu(k,508) * lu(k,1179) + lu(k,1198) = lu(k,1198) - lu(k,509) * lu(k,1179) + lu(k,1200) = lu(k,1200) - lu(k,510) * lu(k,1179) + lu(k,1201) = lu(k,1201) - lu(k,511) * lu(k,1179) + lu(k,1202) = lu(k,1202) - lu(k,512) * lu(k,1179) + lu(k,1203) = lu(k,1203) - lu(k,513) * lu(k,1179) + lu(k,1207) = lu(k,1207) - lu(k,514) * lu(k,1179) + lu(k,1208) = lu(k,1208) - lu(k,515) * lu(k,1179) + lu(k,1209) = lu(k,1209) - lu(k,516) * lu(k,1179) + lu(k,1211) = lu(k,1211) - lu(k,517) * lu(k,1179) + lu(k,1215) = lu(k,1215) - lu(k,518) * lu(k,1179) + lu(k,1216) = lu(k,1216) - lu(k,519) * lu(k,1179) + lu(k,1218) = lu(k,1218) - lu(k,520) * lu(k,1179) + lu(k,1270) = lu(k,1270) - lu(k,507) * lu(k,1263) + lu(k,1281) = lu(k,1281) - lu(k,508) * lu(k,1263) + lu(k,1282) = lu(k,1282) - lu(k,509) * lu(k,1263) + lu(k,1284) = lu(k,1284) - lu(k,510) * lu(k,1263) + lu(k,1285) = lu(k,1285) - lu(k,511) * lu(k,1263) + lu(k,1286) = lu(k,1286) - lu(k,512) * lu(k,1263) + lu(k,1287) = lu(k,1287) - lu(k,513) * lu(k,1263) + lu(k,1291) = lu(k,1291) - lu(k,514) * lu(k,1263) + lu(k,1292) = lu(k,1292) - lu(k,515) * lu(k,1263) + lu(k,1293) = lu(k,1293) - lu(k,516) * lu(k,1263) + lu(k,1295) = lu(k,1295) - lu(k,517) * lu(k,1263) + lu(k,1299) = lu(k,1299) - lu(k,518) * lu(k,1263) + lu(k,1300) = lu(k,1300) - lu(k,519) * lu(k,1263) + lu(k,1302) = lu(k,1302) - lu(k,520) * lu(k,1263) + lu(k,1312) = lu(k,1312) - lu(k,507) * lu(k,1305) + lu(k,1323) = lu(k,1323) - lu(k,508) * lu(k,1305) + lu(k,1324) = lu(k,1324) - lu(k,509) * lu(k,1305) + lu(k,1326) = lu(k,1326) - lu(k,510) * lu(k,1305) + lu(k,1327) = lu(k,1327) - lu(k,511) * lu(k,1305) + lu(k,1328) = lu(k,1328) - lu(k,512) * lu(k,1305) + lu(k,1329) = lu(k,1329) - lu(k,513) * lu(k,1305) + lu(k,1333) = lu(k,1333) - lu(k,514) * lu(k,1305) + lu(k,1334) = lu(k,1334) - lu(k,515) * lu(k,1305) + lu(k,1335) = lu(k,1335) - lu(k,516) * lu(k,1305) + lu(k,1337) = lu(k,1337) - lu(k,517) * lu(k,1305) + lu(k,1341) = lu(k,1341) - lu(k,518) * lu(k,1305) + lu(k,1342) = lu(k,1342) - lu(k,519) * lu(k,1305) + lu(k,1344) = lu(k,1344) - lu(k,520) * lu(k,1305) + lu(k,1415) = lu(k,1415) - lu(k,507) * lu(k,1408) + lu(k,1426) = lu(k,1426) - lu(k,508) * lu(k,1408) + lu(k,1427) = lu(k,1427) - lu(k,509) * lu(k,1408) + lu(k,1429) = lu(k,1429) - lu(k,510) * lu(k,1408) + lu(k,1430) = lu(k,1430) - lu(k,511) * lu(k,1408) + lu(k,1431) = lu(k,1431) - lu(k,512) * lu(k,1408) + lu(k,1432) = lu(k,1432) - lu(k,513) * lu(k,1408) + lu(k,1436) = lu(k,1436) - lu(k,514) * lu(k,1408) + lu(k,1437) = lu(k,1437) - lu(k,515) * lu(k,1408) + lu(k,1438) = lu(k,1438) - lu(k,516) * lu(k,1408) + lu(k,1440) = lu(k,1440) - lu(k,517) * lu(k,1408) + lu(k,1444) = lu(k,1444) - lu(k,518) * lu(k,1408) + lu(k,1445) = lu(k,1445) - lu(k,519) * lu(k,1408) + lu(k,1447) = lu(k,1447) - lu(k,520) * lu(k,1408) + lu(k,1584) = lu(k,1584) - lu(k,507) * lu(k,1577) + lu(k,1596) = lu(k,1596) - lu(k,508) * lu(k,1577) + lu(k,1597) = lu(k,1597) - lu(k,509) * lu(k,1577) + lu(k,1599) = lu(k,1599) - lu(k,510) * lu(k,1577) + lu(k,1600) = lu(k,1600) - lu(k,511) * lu(k,1577) + lu(k,1601) = lu(k,1601) - lu(k,512) * lu(k,1577) + lu(k,1602) = lu(k,1602) - lu(k,513) * lu(k,1577) + lu(k,1606) = lu(k,1606) - lu(k,514) * lu(k,1577) + lu(k,1607) = lu(k,1607) - lu(k,515) * lu(k,1577) + lu(k,1608) = lu(k,1608) - lu(k,516) * lu(k,1577) + lu(k,1610) = lu(k,1610) - lu(k,517) * lu(k,1577) + lu(k,1614) = lu(k,1614) - lu(k,518) * lu(k,1577) + lu(k,1615) = lu(k,1615) - lu(k,519) * lu(k,1577) + lu(k,1617) = lu(k,1617) - lu(k,520) * lu(k,1577) + lu(k,1628) = lu(k,1628) - lu(k,507) * lu(k,1621) + lu(k,1639) = lu(k,1639) - lu(k,508) * lu(k,1621) + lu(k,1640) = lu(k,1640) - lu(k,509) * lu(k,1621) + lu(k,1642) = lu(k,1642) - lu(k,510) * lu(k,1621) + lu(k,1643) = lu(k,1643) - lu(k,511) * lu(k,1621) + lu(k,1644) = lu(k,1644) - lu(k,512) * lu(k,1621) + lu(k,1645) = lu(k,1645) - lu(k,513) * lu(k,1621) + lu(k,1649) = lu(k,1649) - lu(k,514) * lu(k,1621) + lu(k,1650) = lu(k,1650) - lu(k,515) * lu(k,1621) + lu(k,1651) = lu(k,1651) - lu(k,516) * lu(k,1621) + lu(k,1653) = lu(k,1653) - lu(k,517) * lu(k,1621) + lu(k,1657) = lu(k,1657) - lu(k,518) * lu(k,1621) + lu(k,1658) = lu(k,1658) - lu(k,519) * lu(k,1621) + lu(k,1660) = lu(k,1660) - lu(k,520) * lu(k,1621) + lu(k,2059) = lu(k,2059) - lu(k,507) * lu(k,2053) + lu(k,2072) = lu(k,2072) - lu(k,508) * lu(k,2053) + lu(k,2073) = lu(k,2073) - lu(k,509) * lu(k,2053) + lu(k,2075) = lu(k,2075) - lu(k,510) * lu(k,2053) + lu(k,2076) = lu(k,2076) - lu(k,511) * lu(k,2053) + lu(k,2077) = lu(k,2077) - lu(k,512) * lu(k,2053) + lu(k,2078) = lu(k,2078) - lu(k,513) * lu(k,2053) + lu(k,2082) = lu(k,2082) - lu(k,514) * lu(k,2053) + lu(k,2083) = lu(k,2083) - lu(k,515) * lu(k,2053) + lu(k,2084) = lu(k,2084) - lu(k,516) * lu(k,2053) + lu(k,2086) = lu(k,2086) - lu(k,517) * lu(k,2053) + lu(k,2090) = lu(k,2090) - lu(k,518) * lu(k,2053) + lu(k,2091) = lu(k,2091) - lu(k,519) * lu(k,2053) + lu(k,2093) = lu(k,2093) - lu(k,520) * lu(k,2053) + lu(k,521) = 1._r8 / lu(k,521) + lu(k,522) = lu(k,522) * lu(k,521) + lu(k,523) = lu(k,523) * lu(k,521) + lu(k,524) = lu(k,524) * lu(k,521) + lu(k,525) = lu(k,525) * lu(k,521) + lu(k,526) = lu(k,526) * lu(k,521) + lu(k,527) = lu(k,527) * lu(k,521) + lu(k,528) = lu(k,528) * lu(k,521) + lu(k,529) = lu(k,529) * lu(k,521) + lu(k,530) = lu(k,530) * lu(k,521) + lu(k,531) = lu(k,531) * lu(k,521) + lu(k,532) = lu(k,532) * lu(k,521) + lu(k,533) = lu(k,533) * lu(k,521) + lu(k,534) = lu(k,534) * lu(k,521) + lu(k,535) = lu(k,535) * lu(k,521) + lu(k,538) = lu(k,538) - lu(k,522) * lu(k,536) + lu(k,539) = lu(k,539) - lu(k,523) * lu(k,536) + lu(k,540) = lu(k,540) - lu(k,524) * lu(k,536) + lu(k,541) = lu(k,541) - lu(k,525) * lu(k,536) + lu(k,542) = lu(k,542) - lu(k,526) * lu(k,536) + lu(k,543) = lu(k,543) - lu(k,527) * lu(k,536) + lu(k,544) = lu(k,544) - lu(k,528) * lu(k,536) + lu(k,545) = lu(k,545) - lu(k,529) * lu(k,536) + lu(k,546) = lu(k,546) - lu(k,530) * lu(k,536) + lu(k,547) = lu(k,547) - lu(k,531) * lu(k,536) + lu(k,548) = lu(k,548) - lu(k,532) * lu(k,536) + lu(k,549) = lu(k,549) - lu(k,533) * lu(k,536) + lu(k,550) = lu(k,550) - lu(k,534) * lu(k,536) + lu(k,551) = lu(k,551) - lu(k,535) * lu(k,536) + lu(k,813) = lu(k,813) - lu(k,522) * lu(k,811) + lu(k,817) = lu(k,817) - lu(k,523) * lu(k,811) + lu(k,818) = lu(k,818) - lu(k,524) * lu(k,811) + lu(k,819) = lu(k,819) - lu(k,525) * lu(k,811) + lu(k,820) = lu(k,820) - lu(k,526) * lu(k,811) + lu(k,821) = lu(k,821) - lu(k,527) * lu(k,811) + lu(k,822) = lu(k,822) - lu(k,528) * lu(k,811) + lu(k,824) = lu(k,824) - lu(k,529) * lu(k,811) + lu(k,825) = lu(k,825) - lu(k,530) * lu(k,811) + lu(k,826) = lu(k,826) - lu(k,531) * lu(k,811) + lu(k,828) = lu(k,828) - lu(k,532) * lu(k,811) + lu(k,829) = lu(k,829) - lu(k,533) * lu(k,811) + lu(k,830) = lu(k,830) - lu(k,534) * lu(k,811) + lu(k,831) = lu(k,831) - lu(k,535) * lu(k,811) + lu(k,1145) = lu(k,1145) - lu(k,522) * lu(k,1136) + lu(k,1154) = lu(k,1154) - lu(k,523) * lu(k,1136) + lu(k,1155) = lu(k,1155) - lu(k,524) * lu(k,1136) + lu(k,1157) = lu(k,1157) - lu(k,525) * lu(k,1136) + lu(k,1158) = lu(k,1158) - lu(k,526) * lu(k,1136) + lu(k,1160) = lu(k,1160) - lu(k,527) * lu(k,1136) + lu(k,1161) = lu(k,1161) - lu(k,528) * lu(k,1136) + lu(k,1164) = lu(k,1164) - lu(k,529) * lu(k,1136) + lu(k,1165) = lu(k,1165) - lu(k,530) * lu(k,1136) + lu(k,1168) = lu(k,1168) - lu(k,531) * lu(k,1136) + lu(k,1172) = lu(k,1172) - lu(k,532) * lu(k,1136) + lu(k,1173) = lu(k,1173) - lu(k,533) * lu(k,1136) + lu(k,1174) = lu(k,1174) - lu(k,534) * lu(k,1136) + lu(k,1175) = lu(k,1175) - lu(k,535) * lu(k,1136) + lu(k,1188) = lu(k,1188) - lu(k,522) * lu(k,1180) + lu(k,1197) = lu(k,1197) - lu(k,523) * lu(k,1180) + lu(k,1198) = lu(k,1198) - lu(k,524) * lu(k,1180) + lu(k,1200) = lu(k,1200) - lu(k,525) * lu(k,1180) + lu(k,1201) = lu(k,1201) - lu(k,526) * lu(k,1180) + lu(k,1203) = lu(k,1203) - lu(k,527) * lu(k,1180) + lu(k,1204) = lu(k,1204) - lu(k,528) * lu(k,1180) + lu(k,1207) = lu(k,1207) - lu(k,529) * lu(k,1180) + lu(k,1208) = lu(k,1208) - lu(k,530) * lu(k,1180) + lu(k,1211) = lu(k,1211) - lu(k,531) * lu(k,1180) + lu(k,1215) = lu(k,1215) - lu(k,532) * lu(k,1180) + lu(k,1216) = lu(k,1216) - lu(k,533) * lu(k,1180) + lu(k,1217) = lu(k,1217) - lu(k,534) * lu(k,1180) + lu(k,1218) = lu(k,1218) - lu(k,535) * lu(k,1180) + lu(k,1272) = lu(k,1272) - lu(k,522) * lu(k,1264) + lu(k,1281) = lu(k,1281) - lu(k,523) * lu(k,1264) + lu(k,1282) = lu(k,1282) - lu(k,524) * lu(k,1264) + lu(k,1284) = lu(k,1284) - lu(k,525) * lu(k,1264) + lu(k,1285) = lu(k,1285) - lu(k,526) * lu(k,1264) + lu(k,1287) = lu(k,1287) - lu(k,527) * lu(k,1264) + lu(k,1288) = lu(k,1288) - lu(k,528) * lu(k,1264) + lu(k,1291) = lu(k,1291) - lu(k,529) * lu(k,1264) + lu(k,1292) = lu(k,1292) - lu(k,530) * lu(k,1264) + lu(k,1295) = lu(k,1295) - lu(k,531) * lu(k,1264) + lu(k,1299) = lu(k,1299) - lu(k,532) * lu(k,1264) + lu(k,1300) = lu(k,1300) - lu(k,533) * lu(k,1264) + lu(k,1301) = lu(k,1301) - lu(k,534) * lu(k,1264) + lu(k,1302) = lu(k,1302) - lu(k,535) * lu(k,1264) + lu(k,1314) = lu(k,1314) - lu(k,522) * lu(k,1306) + lu(k,1323) = lu(k,1323) - lu(k,523) * lu(k,1306) + lu(k,1324) = lu(k,1324) - lu(k,524) * lu(k,1306) + lu(k,1326) = lu(k,1326) - lu(k,525) * lu(k,1306) + lu(k,1327) = lu(k,1327) - lu(k,526) * lu(k,1306) + lu(k,1329) = lu(k,1329) - lu(k,527) * lu(k,1306) + lu(k,1330) = lu(k,1330) - lu(k,528) * lu(k,1306) + lu(k,1333) = lu(k,1333) - lu(k,529) * lu(k,1306) + lu(k,1334) = lu(k,1334) - lu(k,530) * lu(k,1306) + lu(k,1337) = lu(k,1337) - lu(k,531) * lu(k,1306) + lu(k,1341) = lu(k,1341) - lu(k,532) * lu(k,1306) + lu(k,1342) = lu(k,1342) - lu(k,533) * lu(k,1306) + lu(k,1343) = lu(k,1343) - lu(k,534) * lu(k,1306) + lu(k,1344) = lu(k,1344) - lu(k,535) * lu(k,1306) + lu(k,1417) = lu(k,1417) - lu(k,522) * lu(k,1409) + lu(k,1426) = lu(k,1426) - lu(k,523) * lu(k,1409) + lu(k,1427) = lu(k,1427) - lu(k,524) * lu(k,1409) + lu(k,1429) = lu(k,1429) - lu(k,525) * lu(k,1409) + lu(k,1430) = lu(k,1430) - lu(k,526) * lu(k,1409) + lu(k,1432) = lu(k,1432) - lu(k,527) * lu(k,1409) + lu(k,1433) = lu(k,1433) - lu(k,528) * lu(k,1409) + lu(k,1436) = lu(k,1436) - lu(k,529) * lu(k,1409) + lu(k,1437) = lu(k,1437) - lu(k,530) * lu(k,1409) + lu(k,1440) = lu(k,1440) - lu(k,531) * lu(k,1409) + lu(k,1444) = lu(k,1444) - lu(k,532) * lu(k,1409) + lu(k,1445) = lu(k,1445) - lu(k,533) * lu(k,1409) + lu(k,1446) = lu(k,1446) - lu(k,534) * lu(k,1409) + lu(k,1447) = lu(k,1447) - lu(k,535) * lu(k,1409) + lu(k,1587) = lu(k,1587) - lu(k,522) * lu(k,1578) + lu(k,1596) = lu(k,1596) - lu(k,523) * lu(k,1578) + lu(k,1597) = lu(k,1597) - lu(k,524) * lu(k,1578) + lu(k,1599) = lu(k,1599) - lu(k,525) * lu(k,1578) + lu(k,1600) = lu(k,1600) - lu(k,526) * lu(k,1578) + lu(k,1602) = lu(k,1602) - lu(k,527) * lu(k,1578) + lu(k,1603) = lu(k,1603) - lu(k,528) * lu(k,1578) + lu(k,1606) = lu(k,1606) - lu(k,529) * lu(k,1578) + lu(k,1607) = lu(k,1607) - lu(k,530) * lu(k,1578) + lu(k,1610) = lu(k,1610) - lu(k,531) * lu(k,1578) + lu(k,1614) = lu(k,1614) - lu(k,532) * lu(k,1578) + lu(k,1615) = lu(k,1615) - lu(k,533) * lu(k,1578) + lu(k,1616) = lu(k,1616) - lu(k,534) * lu(k,1578) + lu(k,1617) = lu(k,1617) - lu(k,535) * lu(k,1578) + lu(k,1630) = lu(k,1630) - lu(k,522) * lu(k,1622) + lu(k,1639) = lu(k,1639) - lu(k,523) * lu(k,1622) + lu(k,1640) = lu(k,1640) - lu(k,524) * lu(k,1622) + lu(k,1642) = lu(k,1642) - lu(k,525) * lu(k,1622) + lu(k,1643) = lu(k,1643) - lu(k,526) * lu(k,1622) + lu(k,1645) = lu(k,1645) - lu(k,527) * lu(k,1622) + lu(k,1646) = lu(k,1646) - lu(k,528) * lu(k,1622) + lu(k,1649) = lu(k,1649) - lu(k,529) * lu(k,1622) + lu(k,1650) = lu(k,1650) - lu(k,530) * lu(k,1622) + lu(k,1653) = lu(k,1653) - lu(k,531) * lu(k,1622) + lu(k,1657) = lu(k,1657) - lu(k,532) * lu(k,1622) + lu(k,1658) = lu(k,1658) - lu(k,533) * lu(k,1622) + lu(k,1659) = lu(k,1659) - lu(k,534) * lu(k,1622) + lu(k,1660) = lu(k,1660) - lu(k,535) * lu(k,1622) + lu(k,2003) = lu(k,2003) - lu(k,522) * lu(k,1995) + lu(k,2012) = - lu(k,523) * lu(k,1995) + lu(k,2013) = - lu(k,524) * lu(k,1995) + lu(k,2015) = - lu(k,525) * lu(k,1995) + lu(k,2016) = - lu(k,526) * lu(k,1995) + lu(k,2018) = - lu(k,527) * lu(k,1995) + lu(k,2019) = lu(k,2019) - lu(k,528) * lu(k,1995) + lu(k,2022) = - lu(k,529) * lu(k,1995) + lu(k,2023) = - lu(k,530) * lu(k,1995) + lu(k,2026) = lu(k,2026) - lu(k,531) * lu(k,1995) + lu(k,2030) = - lu(k,532) * lu(k,1995) + lu(k,2031) = lu(k,2031) - lu(k,533) * lu(k,1995) + lu(k,2032) = lu(k,2032) - lu(k,534) * lu(k,1995) + lu(k,2033) = lu(k,2033) - lu(k,535) * lu(k,1995) + lu(k,537) = 1._r8 / lu(k,537) + lu(k,538) = lu(k,538) * lu(k,537) + lu(k,539) = lu(k,539) * lu(k,537) + lu(k,540) = lu(k,540) * lu(k,537) + lu(k,541) = lu(k,541) * lu(k,537) + lu(k,542) = lu(k,542) * lu(k,537) + lu(k,543) = lu(k,543) * lu(k,537) + lu(k,544) = lu(k,544) * lu(k,537) + lu(k,545) = lu(k,545) * lu(k,537) + lu(k,546) = lu(k,546) * lu(k,537) + lu(k,547) = lu(k,547) * lu(k,537) + lu(k,548) = lu(k,548) * lu(k,537) + lu(k,549) = lu(k,549) * lu(k,537) + lu(k,550) = lu(k,550) * lu(k,537) + lu(k,551) = lu(k,551) * lu(k,537) + lu(k,813) = lu(k,813) - lu(k,538) * lu(k,812) + lu(k,817) = lu(k,817) - lu(k,539) * lu(k,812) + lu(k,818) = lu(k,818) - lu(k,540) * lu(k,812) + lu(k,819) = lu(k,819) - lu(k,541) * lu(k,812) + lu(k,820) = lu(k,820) - lu(k,542) * lu(k,812) + lu(k,821) = lu(k,821) - lu(k,543) * lu(k,812) + lu(k,822) = lu(k,822) - lu(k,544) * lu(k,812) + lu(k,824) = lu(k,824) - lu(k,545) * lu(k,812) + lu(k,825) = lu(k,825) - lu(k,546) * lu(k,812) + lu(k,826) = lu(k,826) - lu(k,547) * lu(k,812) + lu(k,828) = lu(k,828) - lu(k,548) * lu(k,812) + lu(k,829) = lu(k,829) - lu(k,549) * lu(k,812) + lu(k,830) = lu(k,830) - lu(k,550) * lu(k,812) + lu(k,831) = lu(k,831) - lu(k,551) * lu(k,812) + lu(k,1145) = lu(k,1145) - lu(k,538) * lu(k,1137) + lu(k,1154) = lu(k,1154) - lu(k,539) * lu(k,1137) + lu(k,1155) = lu(k,1155) - lu(k,540) * lu(k,1137) + lu(k,1157) = lu(k,1157) - lu(k,541) * lu(k,1137) + lu(k,1158) = lu(k,1158) - lu(k,542) * lu(k,1137) + lu(k,1160) = lu(k,1160) - lu(k,543) * lu(k,1137) + lu(k,1161) = lu(k,1161) - lu(k,544) * lu(k,1137) + lu(k,1164) = lu(k,1164) - lu(k,545) * lu(k,1137) + lu(k,1165) = lu(k,1165) - lu(k,546) * lu(k,1137) + lu(k,1168) = lu(k,1168) - lu(k,547) * lu(k,1137) + lu(k,1172) = lu(k,1172) - lu(k,548) * lu(k,1137) + lu(k,1173) = lu(k,1173) - lu(k,549) * lu(k,1137) + lu(k,1174) = lu(k,1174) - lu(k,550) * lu(k,1137) + lu(k,1175) = lu(k,1175) - lu(k,551) * lu(k,1137) + lu(k,1188) = lu(k,1188) - lu(k,538) * lu(k,1181) + lu(k,1197) = lu(k,1197) - lu(k,539) * lu(k,1181) + lu(k,1198) = lu(k,1198) - lu(k,540) * lu(k,1181) + lu(k,1200) = lu(k,1200) - lu(k,541) * lu(k,1181) + lu(k,1201) = lu(k,1201) - lu(k,542) * lu(k,1181) + lu(k,1203) = lu(k,1203) - lu(k,543) * lu(k,1181) + lu(k,1204) = lu(k,1204) - lu(k,544) * lu(k,1181) + lu(k,1207) = lu(k,1207) - lu(k,545) * lu(k,1181) + lu(k,1208) = lu(k,1208) - lu(k,546) * lu(k,1181) + lu(k,1211) = lu(k,1211) - lu(k,547) * lu(k,1181) + lu(k,1215) = lu(k,1215) - lu(k,548) * lu(k,1181) + lu(k,1216) = lu(k,1216) - lu(k,549) * lu(k,1181) + lu(k,1217) = lu(k,1217) - lu(k,550) * lu(k,1181) + lu(k,1218) = lu(k,1218) - lu(k,551) * lu(k,1181) + lu(k,1272) = lu(k,1272) - lu(k,538) * lu(k,1265) + lu(k,1281) = lu(k,1281) - lu(k,539) * lu(k,1265) + lu(k,1282) = lu(k,1282) - lu(k,540) * lu(k,1265) + lu(k,1284) = lu(k,1284) - lu(k,541) * lu(k,1265) + lu(k,1285) = lu(k,1285) - lu(k,542) * lu(k,1265) + lu(k,1287) = lu(k,1287) - lu(k,543) * lu(k,1265) + lu(k,1288) = lu(k,1288) - lu(k,544) * lu(k,1265) + lu(k,1291) = lu(k,1291) - lu(k,545) * lu(k,1265) + lu(k,1292) = lu(k,1292) - lu(k,546) * lu(k,1265) + lu(k,1295) = lu(k,1295) - lu(k,547) * lu(k,1265) + lu(k,1299) = lu(k,1299) - lu(k,548) * lu(k,1265) + lu(k,1300) = lu(k,1300) - lu(k,549) * lu(k,1265) + lu(k,1301) = lu(k,1301) - lu(k,550) * lu(k,1265) + lu(k,1302) = lu(k,1302) - lu(k,551) * lu(k,1265) + lu(k,1314) = lu(k,1314) - lu(k,538) * lu(k,1307) + lu(k,1323) = lu(k,1323) - lu(k,539) * lu(k,1307) + lu(k,1324) = lu(k,1324) - lu(k,540) * lu(k,1307) + lu(k,1326) = lu(k,1326) - lu(k,541) * lu(k,1307) + lu(k,1327) = lu(k,1327) - lu(k,542) * lu(k,1307) + lu(k,1329) = lu(k,1329) - lu(k,543) * lu(k,1307) + lu(k,1330) = lu(k,1330) - lu(k,544) * lu(k,1307) + lu(k,1333) = lu(k,1333) - lu(k,545) * lu(k,1307) + lu(k,1334) = lu(k,1334) - lu(k,546) * lu(k,1307) + lu(k,1337) = lu(k,1337) - lu(k,547) * lu(k,1307) + lu(k,1341) = lu(k,1341) - lu(k,548) * lu(k,1307) + lu(k,1342) = lu(k,1342) - lu(k,549) * lu(k,1307) + lu(k,1343) = lu(k,1343) - lu(k,550) * lu(k,1307) + lu(k,1344) = lu(k,1344) - lu(k,551) * lu(k,1307) + lu(k,1417) = lu(k,1417) - lu(k,538) * lu(k,1410) + lu(k,1426) = lu(k,1426) - lu(k,539) * lu(k,1410) + lu(k,1427) = lu(k,1427) - lu(k,540) * lu(k,1410) + lu(k,1429) = lu(k,1429) - lu(k,541) * lu(k,1410) + lu(k,1430) = lu(k,1430) - lu(k,542) * lu(k,1410) + lu(k,1432) = lu(k,1432) - lu(k,543) * lu(k,1410) + lu(k,1433) = lu(k,1433) - lu(k,544) * lu(k,1410) + lu(k,1436) = lu(k,1436) - lu(k,545) * lu(k,1410) + lu(k,1437) = lu(k,1437) - lu(k,546) * lu(k,1410) + lu(k,1440) = lu(k,1440) - lu(k,547) * lu(k,1410) + lu(k,1444) = lu(k,1444) - lu(k,548) * lu(k,1410) + lu(k,1445) = lu(k,1445) - lu(k,549) * lu(k,1410) + lu(k,1446) = lu(k,1446) - lu(k,550) * lu(k,1410) + lu(k,1447) = lu(k,1447) - lu(k,551) * lu(k,1410) + lu(k,1587) = lu(k,1587) - lu(k,538) * lu(k,1579) + lu(k,1596) = lu(k,1596) - lu(k,539) * lu(k,1579) + lu(k,1597) = lu(k,1597) - lu(k,540) * lu(k,1579) + lu(k,1599) = lu(k,1599) - lu(k,541) * lu(k,1579) + lu(k,1600) = lu(k,1600) - lu(k,542) * lu(k,1579) + lu(k,1602) = lu(k,1602) - lu(k,543) * lu(k,1579) + lu(k,1603) = lu(k,1603) - lu(k,544) * lu(k,1579) + lu(k,1606) = lu(k,1606) - lu(k,545) * lu(k,1579) + lu(k,1607) = lu(k,1607) - lu(k,546) * lu(k,1579) + lu(k,1610) = lu(k,1610) - lu(k,547) * lu(k,1579) + lu(k,1614) = lu(k,1614) - lu(k,548) * lu(k,1579) + lu(k,1615) = lu(k,1615) - lu(k,549) * lu(k,1579) + lu(k,1616) = lu(k,1616) - lu(k,550) * lu(k,1579) + lu(k,1617) = lu(k,1617) - lu(k,551) * lu(k,1579) + lu(k,1630) = lu(k,1630) - lu(k,538) * lu(k,1623) + lu(k,1639) = lu(k,1639) - lu(k,539) * lu(k,1623) + lu(k,1640) = lu(k,1640) - lu(k,540) * lu(k,1623) + lu(k,1642) = lu(k,1642) - lu(k,541) * lu(k,1623) + lu(k,1643) = lu(k,1643) - lu(k,542) * lu(k,1623) + lu(k,1645) = lu(k,1645) - lu(k,543) * lu(k,1623) + lu(k,1646) = lu(k,1646) - lu(k,544) * lu(k,1623) + lu(k,1649) = lu(k,1649) - lu(k,545) * lu(k,1623) + lu(k,1650) = lu(k,1650) - lu(k,546) * lu(k,1623) + lu(k,1653) = lu(k,1653) - lu(k,547) * lu(k,1623) + lu(k,1657) = lu(k,1657) - lu(k,548) * lu(k,1623) + lu(k,1658) = lu(k,1658) - lu(k,549) * lu(k,1623) + lu(k,1659) = lu(k,1659) - lu(k,550) * lu(k,1623) + lu(k,1660) = lu(k,1660) - lu(k,551) * lu(k,1623) + lu(k,2003) = lu(k,2003) - lu(k,538) * lu(k,1996) + lu(k,2012) = lu(k,2012) - lu(k,539) * lu(k,1996) + lu(k,2013) = lu(k,2013) - lu(k,540) * lu(k,1996) + lu(k,2015) = lu(k,2015) - lu(k,541) * lu(k,1996) + lu(k,2016) = lu(k,2016) - lu(k,542) * lu(k,1996) + lu(k,2018) = lu(k,2018) - lu(k,543) * lu(k,1996) + lu(k,2019) = lu(k,2019) - lu(k,544) * lu(k,1996) + lu(k,2022) = lu(k,2022) - lu(k,545) * lu(k,1996) + lu(k,2023) = lu(k,2023) - lu(k,546) * lu(k,1996) + lu(k,2026) = lu(k,2026) - lu(k,547) * lu(k,1996) + lu(k,2030) = lu(k,2030) - lu(k,548) * lu(k,1996) + lu(k,2031) = lu(k,2031) - lu(k,549) * lu(k,1996) + lu(k,2032) = lu(k,2032) - lu(k,550) * lu(k,1996) + lu(k,2033) = lu(k,2033) - lu(k,551) * lu(k,1996) + lu(k,2064) = lu(k,2064) - lu(k,538) * lu(k,2054) + lu(k,2072) = lu(k,2072) - lu(k,539) * lu(k,2054) + lu(k,2073) = lu(k,2073) - lu(k,540) * lu(k,2054) + lu(k,2075) = lu(k,2075) - lu(k,541) * lu(k,2054) + lu(k,2076) = lu(k,2076) - lu(k,542) * lu(k,2054) + lu(k,2078) = lu(k,2078) - lu(k,543) * lu(k,2054) + lu(k,2079) = lu(k,2079) - lu(k,544) * lu(k,2054) + lu(k,2082) = lu(k,2082) - lu(k,545) * lu(k,2054) + lu(k,2083) = lu(k,2083) - lu(k,546) * lu(k,2054) + lu(k,2086) = lu(k,2086) - lu(k,547) * lu(k,2054) + lu(k,2090) = lu(k,2090) - lu(k,548) * lu(k,2054) + lu(k,2091) = lu(k,2091) - lu(k,549) * lu(k,2054) + lu(k,2092) = lu(k,2092) - lu(k,550) * lu(k,2054) + lu(k,2093) = lu(k,2093) - lu(k,551) * lu(k,2054) end do end subroutine lu_fac14 subroutine lu_fac15( avec_len, lu ) @@ -3541,385 +3065,506 @@ subroutine lu_fac15( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,594) = 1._r8 / lu(k,594) - lu(k,595) = lu(k,595) * lu(k,594) - lu(k,596) = lu(k,596) * lu(k,594) - lu(k,597) = lu(k,597) * lu(k,594) - lu(k,598) = lu(k,598) * lu(k,594) - lu(k,599) = lu(k,599) * lu(k,594) - lu(k,600) = lu(k,600) * lu(k,594) - lu(k,601) = lu(k,601) * lu(k,594) - lu(k,602) = lu(k,602) * lu(k,594) - lu(k,603) = lu(k,603) * lu(k,594) - lu(k,604) = lu(k,604) * lu(k,594) - lu(k,605) = lu(k,605) * lu(k,594) - lu(k,606) = lu(k,606) * lu(k,594) - lu(k,607) = lu(k,607) * lu(k,594) - lu(k,608) = lu(k,608) * lu(k,594) - lu(k,834) = - lu(k,595) * lu(k,831) - lu(k,836) = lu(k,836) - lu(k,596) * lu(k,831) - lu(k,838) = lu(k,838) - lu(k,597) * lu(k,831) - lu(k,839) = - lu(k,598) * lu(k,831) - lu(k,844) = lu(k,844) - lu(k,599) * lu(k,831) - lu(k,846) = lu(k,846) - lu(k,600) * lu(k,831) - lu(k,847) = lu(k,847) - lu(k,601) * lu(k,831) - lu(k,850) = lu(k,850) - lu(k,602) * lu(k,831) - lu(k,854) = lu(k,854) - lu(k,603) * lu(k,831) - lu(k,855) = lu(k,855) - lu(k,604) * lu(k,831) - lu(k,856) = - lu(k,605) * lu(k,831) - lu(k,857) = - lu(k,606) * lu(k,831) - lu(k,858) = lu(k,858) - lu(k,607) * lu(k,831) - lu(k,859) = lu(k,859) - lu(k,608) * lu(k,831) - lu(k,1011) = lu(k,1011) - lu(k,595) * lu(k,1007) - lu(k,1012) = lu(k,1012) - lu(k,596) * lu(k,1007) - lu(k,1014) = lu(k,1014) - lu(k,597) * lu(k,1007) - lu(k,1015) = - lu(k,598) * lu(k,1007) - lu(k,1020) = lu(k,1020) - lu(k,599) * lu(k,1007) - lu(k,1022) = lu(k,1022) - lu(k,600) * lu(k,1007) - lu(k,1023) = lu(k,1023) - lu(k,601) * lu(k,1007) - lu(k,1026) = lu(k,1026) - lu(k,602) * lu(k,1007) - lu(k,1031) = lu(k,1031) - lu(k,603) * lu(k,1007) - lu(k,1032) = lu(k,1032) - lu(k,604) * lu(k,1007) - lu(k,1033) = lu(k,1033) - lu(k,605) * lu(k,1007) - lu(k,1034) = lu(k,1034) - lu(k,606) * lu(k,1007) - lu(k,1035) = - lu(k,607) * lu(k,1007) - lu(k,1036) = lu(k,1036) - lu(k,608) * lu(k,1007) - lu(k,1274) = - lu(k,595) * lu(k,1271) - lu(k,1276) = - lu(k,596) * lu(k,1271) - lu(k,1278) = lu(k,1278) - lu(k,597) * lu(k,1271) - lu(k,1279) = lu(k,1279) - lu(k,598) * lu(k,1271) - lu(k,1284) = lu(k,1284) - lu(k,599) * lu(k,1271) - lu(k,1286) = lu(k,1286) - lu(k,600) * lu(k,1271) - lu(k,1287) = lu(k,1287) - lu(k,601) * lu(k,1271) - lu(k,1290) = lu(k,1290) - lu(k,602) * lu(k,1271) - lu(k,1295) = lu(k,1295) - lu(k,603) * lu(k,1271) - lu(k,1296) = lu(k,1296) - lu(k,604) * lu(k,1271) - lu(k,1297) = lu(k,1297) - lu(k,605) * lu(k,1271) - lu(k,1298) = lu(k,1298) - lu(k,606) * lu(k,1271) - lu(k,1299) = lu(k,1299) - lu(k,607) * lu(k,1271) - lu(k,1300) = lu(k,1300) - lu(k,608) * lu(k,1271) - lu(k,1376) = lu(k,1376) - lu(k,595) * lu(k,1369) - lu(k,1378) = lu(k,1378) - lu(k,596) * lu(k,1369) - lu(k,1380) = lu(k,1380) - lu(k,597) * lu(k,1369) - lu(k,1381) = lu(k,1381) - lu(k,598) * lu(k,1369) - lu(k,1386) = lu(k,1386) - lu(k,599) * lu(k,1369) - lu(k,1388) = lu(k,1388) - lu(k,600) * lu(k,1369) - lu(k,1389) = lu(k,1389) - lu(k,601) * lu(k,1369) - lu(k,1392) = lu(k,1392) - lu(k,602) * lu(k,1369) - lu(k,1397) = lu(k,1397) - lu(k,603) * lu(k,1369) - lu(k,1398) = lu(k,1398) - lu(k,604) * lu(k,1369) - lu(k,1399) = lu(k,1399) - lu(k,605) * lu(k,1369) - lu(k,1400) = lu(k,1400) - lu(k,606) * lu(k,1369) - lu(k,1401) = lu(k,1401) - lu(k,607) * lu(k,1369) - lu(k,1402) = lu(k,1402) - lu(k,608) * lu(k,1369) - lu(k,1425) = - lu(k,595) * lu(k,1420) - lu(k,1427) = - lu(k,596) * lu(k,1420) - lu(k,1429) = lu(k,1429) - lu(k,597) * lu(k,1420) - lu(k,1430) = lu(k,1430) - lu(k,598) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,599) * lu(k,1420) - lu(k,1437) = lu(k,1437) - lu(k,600) * lu(k,1420) - lu(k,1438) = lu(k,1438) - lu(k,601) * lu(k,1420) - lu(k,1441) = lu(k,1441) - lu(k,602) * lu(k,1420) - lu(k,1446) = lu(k,1446) - lu(k,603) * lu(k,1420) - lu(k,1447) = lu(k,1447) - lu(k,604) * lu(k,1420) - lu(k,1448) = - lu(k,605) * lu(k,1420) - lu(k,1449) = lu(k,1449) - lu(k,606) * lu(k,1420) - lu(k,1450) = lu(k,1450) - lu(k,607) * lu(k,1420) - lu(k,1451) = lu(k,1451) - lu(k,608) * lu(k,1420) - lu(k,1550) = lu(k,1550) - lu(k,595) * lu(k,1547) - lu(k,1552) = lu(k,1552) - lu(k,596) * lu(k,1547) - lu(k,1554) = - lu(k,597) * lu(k,1547) - lu(k,1555) = lu(k,1555) - lu(k,598) * lu(k,1547) - lu(k,1560) = lu(k,1560) - lu(k,599) * lu(k,1547) - lu(k,1562) = lu(k,1562) - lu(k,600) * lu(k,1547) - lu(k,1563) = lu(k,1563) - lu(k,601) * lu(k,1547) - lu(k,1566) = lu(k,1566) - lu(k,602) * lu(k,1547) - lu(k,1571) = lu(k,1571) - lu(k,603) * lu(k,1547) - lu(k,1572) = lu(k,1572) - lu(k,604) * lu(k,1547) - lu(k,1573) = - lu(k,605) * lu(k,1547) - lu(k,1574) = lu(k,1574) - lu(k,606) * lu(k,1547) - lu(k,1575) = lu(k,1575) - lu(k,607) * lu(k,1547) - lu(k,1576) = lu(k,1576) - lu(k,608) * lu(k,1547) - lu(k,1757) = - lu(k,595) * lu(k,1751) - lu(k,1759) = lu(k,1759) - lu(k,596) * lu(k,1751) - lu(k,1761) = lu(k,1761) - lu(k,597) * lu(k,1751) - lu(k,1762) = lu(k,1762) - lu(k,598) * lu(k,1751) - lu(k,1767) = lu(k,1767) - lu(k,599) * lu(k,1751) - lu(k,1769) = lu(k,1769) - lu(k,600) * lu(k,1751) - lu(k,1770) = lu(k,1770) - lu(k,601) * lu(k,1751) - lu(k,1773) = lu(k,1773) - lu(k,602) * lu(k,1751) - lu(k,1778) = lu(k,1778) - lu(k,603) * lu(k,1751) - lu(k,1779) = - lu(k,604) * lu(k,1751) - lu(k,1780) = lu(k,1780) - lu(k,605) * lu(k,1751) - lu(k,1781) = - lu(k,606) * lu(k,1751) - lu(k,1782) = lu(k,1782) - lu(k,607) * lu(k,1751) - lu(k,1783) = lu(k,1783) - lu(k,608) * lu(k,1751) - lu(k,1805) = lu(k,1805) - lu(k,595) * lu(k,1796) - lu(k,1807) = lu(k,1807) - lu(k,596) * lu(k,1796) - lu(k,1809) = lu(k,1809) - lu(k,597) * lu(k,1796) - lu(k,1810) = lu(k,1810) - lu(k,598) * lu(k,1796) - lu(k,1815) = lu(k,1815) - lu(k,599) * lu(k,1796) - lu(k,1817) = lu(k,1817) - lu(k,600) * lu(k,1796) - lu(k,1818) = lu(k,1818) - lu(k,601) * lu(k,1796) - lu(k,1821) = lu(k,1821) - lu(k,602) * lu(k,1796) - lu(k,1826) = lu(k,1826) - lu(k,603) * lu(k,1796) - lu(k,1827) = lu(k,1827) - lu(k,604) * lu(k,1796) - lu(k,1828) = lu(k,1828) - lu(k,605) * lu(k,1796) - lu(k,1829) = lu(k,1829) - lu(k,606) * lu(k,1796) - lu(k,1830) = lu(k,1830) - lu(k,607) * lu(k,1796) - lu(k,1831) = lu(k,1831) - lu(k,608) * lu(k,1796) - lu(k,1838) = - lu(k,595) * lu(k,1836) - lu(k,1840) = lu(k,1840) - lu(k,596) * lu(k,1836) - lu(k,1842) = - lu(k,597) * lu(k,1836) - lu(k,1843) = lu(k,1843) - lu(k,598) * lu(k,1836) - lu(k,1848) = lu(k,1848) - lu(k,599) * lu(k,1836) - lu(k,1850) = lu(k,1850) - lu(k,600) * lu(k,1836) - lu(k,1851) = lu(k,1851) - lu(k,601) * lu(k,1836) - lu(k,1854) = - lu(k,602) * lu(k,1836) - lu(k,1859) = lu(k,1859) - lu(k,603) * lu(k,1836) - lu(k,1860) = lu(k,1860) - lu(k,604) * lu(k,1836) - lu(k,1861) = lu(k,1861) - lu(k,605) * lu(k,1836) - lu(k,1862) = - lu(k,606) * lu(k,1836) - lu(k,1863) = lu(k,1863) - lu(k,607) * lu(k,1836) - lu(k,1864) = lu(k,1864) - lu(k,608) * lu(k,1836) - lu(k,1874) = lu(k,1874) - lu(k,595) * lu(k,1869) - lu(k,1876) = lu(k,1876) - lu(k,596) * lu(k,1869) - lu(k,1878) = lu(k,1878) - lu(k,597) * lu(k,1869) - lu(k,1879) = lu(k,1879) - lu(k,598) * lu(k,1869) - lu(k,1884) = lu(k,1884) - lu(k,599) * lu(k,1869) - lu(k,1886) = lu(k,1886) - lu(k,600) * lu(k,1869) - lu(k,1887) = lu(k,1887) - lu(k,601) * lu(k,1869) - lu(k,1890) = lu(k,1890) - lu(k,602) * lu(k,1869) - lu(k,1895) = lu(k,1895) - lu(k,603) * lu(k,1869) - lu(k,1896) = lu(k,1896) - lu(k,604) * lu(k,1869) - lu(k,1897) = lu(k,1897) - lu(k,605) * lu(k,1869) - lu(k,1898) = lu(k,1898) - lu(k,606) * lu(k,1869) - lu(k,1899) = lu(k,1899) - lu(k,607) * lu(k,1869) - lu(k,1900) = lu(k,1900) - lu(k,608) * lu(k,1869) - lu(k,1915) = lu(k,1915) - lu(k,595) * lu(k,1910) - lu(k,1917) = lu(k,1917) - lu(k,596) * lu(k,1910) - lu(k,1919) = - lu(k,597) * lu(k,1910) - lu(k,1920) = lu(k,1920) - lu(k,598) * lu(k,1910) - lu(k,1925) = lu(k,1925) - lu(k,599) * lu(k,1910) - lu(k,1927) = lu(k,1927) - lu(k,600) * lu(k,1910) - lu(k,1928) = lu(k,1928) - lu(k,601) * lu(k,1910) - lu(k,1931) = lu(k,1931) - lu(k,602) * lu(k,1910) - lu(k,1936) = lu(k,1936) - lu(k,603) * lu(k,1910) - lu(k,1937) = lu(k,1937) - lu(k,604) * lu(k,1910) - lu(k,1938) = lu(k,1938) - lu(k,605) * lu(k,1910) - lu(k,1939) = lu(k,1939) - lu(k,606) * lu(k,1910) - lu(k,1940) = lu(k,1940) - lu(k,607) * lu(k,1910) - lu(k,1941) = lu(k,1941) - lu(k,608) * lu(k,1910) - lu(k,1957) = lu(k,1957) - lu(k,595) * lu(k,1950) - lu(k,1959) = lu(k,1959) - lu(k,596) * lu(k,1950) - lu(k,1961) = lu(k,1961) - lu(k,597) * lu(k,1950) - lu(k,1962) = lu(k,1962) - lu(k,598) * lu(k,1950) - lu(k,1967) = lu(k,1967) - lu(k,599) * lu(k,1950) - lu(k,1969) = lu(k,1969) - lu(k,600) * lu(k,1950) - lu(k,1970) = lu(k,1970) - lu(k,601) * lu(k,1950) - lu(k,1973) = - lu(k,602) * lu(k,1950) - lu(k,1978) = lu(k,1978) - lu(k,603) * lu(k,1950) - lu(k,1979) = lu(k,1979) - lu(k,604) * lu(k,1950) - lu(k,1980) = - lu(k,605) * lu(k,1950) - lu(k,1981) = lu(k,1981) - lu(k,606) * lu(k,1950) - lu(k,1982) = lu(k,1982) - lu(k,607) * lu(k,1950) - lu(k,1983) = lu(k,1983) - lu(k,608) * lu(k,1950) - lu(k,609) = 1._r8 / lu(k,609) - lu(k,610) = lu(k,610) * lu(k,609) - lu(k,611) = lu(k,611) * lu(k,609) - lu(k,612) = lu(k,612) * lu(k,609) - lu(k,613) = lu(k,613) * lu(k,609) - lu(k,614) = lu(k,614) * lu(k,609) - lu(k,615) = lu(k,615) * lu(k,609) - lu(k,616) = lu(k,616) * lu(k,609) - lu(k,617) = lu(k,617) * lu(k,609) - lu(k,618) = lu(k,618) * lu(k,609) - lu(k,619) = lu(k,619) * lu(k,609) - lu(k,620) = lu(k,620) * lu(k,609) - lu(k,621) = lu(k,621) * lu(k,609) - lu(k,622) = lu(k,622) * lu(k,609) - lu(k,627) = - lu(k,610) * lu(k,624) - lu(k,628) = lu(k,628) - lu(k,611) * lu(k,624) - lu(k,629) = lu(k,629) - lu(k,612) * lu(k,624) - lu(k,630) = lu(k,630) - lu(k,613) * lu(k,624) - lu(k,631) = lu(k,631) - lu(k,614) * lu(k,624) - lu(k,633) = lu(k,633) - lu(k,615) * lu(k,624) - lu(k,634) = lu(k,634) - lu(k,616) * lu(k,624) - lu(k,635) = lu(k,635) - lu(k,617) * lu(k,624) - lu(k,636) = lu(k,636) - lu(k,618) * lu(k,624) - lu(k,637) = lu(k,637) - lu(k,619) * lu(k,624) - lu(k,638) = lu(k,638) - lu(k,620) * lu(k,624) - lu(k,641) = lu(k,641) - lu(k,621) * lu(k,624) - lu(k,642) = lu(k,642) - lu(k,622) * lu(k,624) - lu(k,692) = lu(k,692) - lu(k,610) * lu(k,689) - lu(k,693) = lu(k,693) - lu(k,611) * lu(k,689) - lu(k,694) = lu(k,694) - lu(k,612) * lu(k,689) - lu(k,695) = lu(k,695) - lu(k,613) * lu(k,689) - lu(k,696) = lu(k,696) - lu(k,614) * lu(k,689) - lu(k,698) = lu(k,698) - lu(k,615) * lu(k,689) - lu(k,699) = lu(k,699) - lu(k,616) * lu(k,689) - lu(k,700) = lu(k,700) - lu(k,617) * lu(k,689) - lu(k,701) = lu(k,701) - lu(k,618) * lu(k,689) - lu(k,702) = lu(k,702) - lu(k,619) * lu(k,689) - lu(k,703) = lu(k,703) - lu(k,620) * lu(k,689) - lu(k,706) = lu(k,706) - lu(k,621) * lu(k,689) - lu(k,707) = lu(k,707) - lu(k,622) * lu(k,689) - lu(k,866) = lu(k,866) - lu(k,610) * lu(k,863) - lu(k,869) = lu(k,869) - lu(k,611) * lu(k,863) - lu(k,870) = lu(k,870) - lu(k,612) * lu(k,863) - lu(k,871) = lu(k,871) - lu(k,613) * lu(k,863) - lu(k,872) = lu(k,872) - lu(k,614) * lu(k,863) - lu(k,874) = lu(k,874) - lu(k,615) * lu(k,863) - lu(k,876) = lu(k,876) - lu(k,616) * lu(k,863) - lu(k,877) = lu(k,877) - lu(k,617) * lu(k,863) - lu(k,878) = lu(k,878) - lu(k,618) * lu(k,863) - lu(k,879) = lu(k,879) - lu(k,619) * lu(k,863) - lu(k,880) = lu(k,880) - lu(k,620) * lu(k,863) - lu(k,884) = lu(k,884) - lu(k,621) * lu(k,863) - lu(k,886) = lu(k,886) - lu(k,622) * lu(k,863) - lu(k,1146) = lu(k,1146) - lu(k,610) * lu(k,1139) - lu(k,1153) = lu(k,1153) - lu(k,611) * lu(k,1139) - lu(k,1154) = lu(k,1154) - lu(k,612) * lu(k,1139) - lu(k,1155) = lu(k,1155) - lu(k,613) * lu(k,1139) - lu(k,1157) = lu(k,1157) - lu(k,614) * lu(k,1139) - lu(k,1159) = lu(k,1159) - lu(k,615) * lu(k,1139) - lu(k,1161) = lu(k,1161) - lu(k,616) * lu(k,1139) - lu(k,1163) = lu(k,1163) - lu(k,617) * lu(k,1139) - lu(k,1164) = lu(k,1164) - lu(k,618) * lu(k,1139) - lu(k,1165) = lu(k,1165) - lu(k,619) * lu(k,1139) - lu(k,1166) = lu(k,1166) - lu(k,620) * lu(k,1139) - lu(k,1172) = lu(k,1172) - lu(k,621) * lu(k,1139) - lu(k,1174) = lu(k,1174) - lu(k,622) * lu(k,1139) - lu(k,1189) = lu(k,1189) - lu(k,610) * lu(k,1183) - lu(k,1196) = lu(k,1196) - lu(k,611) * lu(k,1183) - lu(k,1197) = lu(k,1197) - lu(k,612) * lu(k,1183) - lu(k,1198) = lu(k,1198) - lu(k,613) * lu(k,1183) - lu(k,1200) = lu(k,1200) - lu(k,614) * lu(k,1183) - lu(k,1202) = lu(k,1202) - lu(k,615) * lu(k,1183) - lu(k,1204) = lu(k,1204) - lu(k,616) * lu(k,1183) - lu(k,1206) = lu(k,1206) - lu(k,617) * lu(k,1183) - lu(k,1207) = lu(k,1207) - lu(k,618) * lu(k,1183) - lu(k,1208) = lu(k,1208) - lu(k,619) * lu(k,1183) - lu(k,1209) = lu(k,1209) - lu(k,620) * lu(k,1183) - lu(k,1215) = lu(k,1215) - lu(k,621) * lu(k,1183) - lu(k,1217) = lu(k,1217) - lu(k,622) * lu(k,1183) - lu(k,1232) = lu(k,1232) - lu(k,610) * lu(k,1226) - lu(k,1239) = lu(k,1239) - lu(k,611) * lu(k,1226) - lu(k,1240) = lu(k,1240) - lu(k,612) * lu(k,1226) - lu(k,1241) = lu(k,1241) - lu(k,613) * lu(k,1226) - lu(k,1243) = lu(k,1243) - lu(k,614) * lu(k,1226) - lu(k,1245) = lu(k,1245) - lu(k,615) * lu(k,1226) - lu(k,1247) = lu(k,1247) - lu(k,616) * lu(k,1226) - lu(k,1249) = lu(k,1249) - lu(k,617) * lu(k,1226) - lu(k,1250) = lu(k,1250) - lu(k,618) * lu(k,1226) - lu(k,1251) = lu(k,1251) - lu(k,619) * lu(k,1226) - lu(k,1252) = lu(k,1252) - lu(k,620) * lu(k,1226) - lu(k,1258) = lu(k,1258) - lu(k,621) * lu(k,1226) - lu(k,1260) = lu(k,1260) - lu(k,622) * lu(k,1226) - lu(k,1316) = lu(k,1316) - lu(k,610) * lu(k,1310) - lu(k,1323) = lu(k,1323) - lu(k,611) * lu(k,1310) - lu(k,1324) = lu(k,1324) - lu(k,612) * lu(k,1310) - lu(k,1325) = lu(k,1325) - lu(k,613) * lu(k,1310) - lu(k,1327) = lu(k,1327) - lu(k,614) * lu(k,1310) - lu(k,1329) = lu(k,1329) - lu(k,615) * lu(k,1310) - lu(k,1331) = lu(k,1331) - lu(k,616) * lu(k,1310) - lu(k,1333) = lu(k,1333) - lu(k,617) * lu(k,1310) - lu(k,1334) = lu(k,1334) - lu(k,618) * lu(k,1310) - lu(k,1335) = lu(k,1335) - lu(k,619) * lu(k,1310) - lu(k,1336) = lu(k,1336) - lu(k,620) * lu(k,1310) - lu(k,1342) = lu(k,1342) - lu(k,621) * lu(k,1310) - lu(k,1344) = lu(k,1344) - lu(k,622) * lu(k,1310) - lu(k,1514) = lu(k,1514) - lu(k,610) * lu(k,1508) - lu(k,1521) = lu(k,1521) - lu(k,611) * lu(k,1508) - lu(k,1522) = lu(k,1522) - lu(k,612) * lu(k,1508) - lu(k,1523) = lu(k,1523) - lu(k,613) * lu(k,1508) - lu(k,1525) = lu(k,1525) - lu(k,614) * lu(k,1508) - lu(k,1527) = lu(k,1527) - lu(k,615) * lu(k,1508) - lu(k,1529) = lu(k,1529) - lu(k,616) * lu(k,1508) - lu(k,1531) = lu(k,1531) - lu(k,617) * lu(k,1508) - lu(k,1532) = lu(k,1532) - lu(k,618) * lu(k,1508) - lu(k,1533) = lu(k,1533) - lu(k,619) * lu(k,1508) - lu(k,1534) = lu(k,1534) - lu(k,620) * lu(k,1508) - lu(k,1540) = lu(k,1540) - lu(k,621) * lu(k,1508) - lu(k,1542) = lu(k,1542) - lu(k,622) * lu(k,1508) - lu(k,1595) = lu(k,1595) - lu(k,610) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,611) * lu(k,1588) - lu(k,1603) = lu(k,1603) - lu(k,612) * lu(k,1588) - lu(k,1604) = lu(k,1604) - lu(k,613) * lu(k,1588) - lu(k,1606) = lu(k,1606) - lu(k,614) * lu(k,1588) - lu(k,1608) = lu(k,1608) - lu(k,615) * lu(k,1588) - lu(k,1610) = lu(k,1610) - lu(k,616) * lu(k,1588) - lu(k,1612) = lu(k,1612) - lu(k,617) * lu(k,1588) - lu(k,1613) = lu(k,1613) - lu(k,618) * lu(k,1588) - lu(k,1614) = lu(k,1614) - lu(k,619) * lu(k,1588) - lu(k,1615) = lu(k,1615) - lu(k,620) * lu(k,1588) - lu(k,1621) = lu(k,1621) - lu(k,621) * lu(k,1588) - lu(k,1623) = lu(k,1623) - lu(k,622) * lu(k,1588) - lu(k,1638) = lu(k,1638) - lu(k,610) * lu(k,1632) - lu(k,1645) = lu(k,1645) - lu(k,611) * lu(k,1632) - lu(k,1646) = lu(k,1646) - lu(k,612) * lu(k,1632) - lu(k,1647) = lu(k,1647) - lu(k,613) * lu(k,1632) - lu(k,1649) = lu(k,1649) - lu(k,614) * lu(k,1632) - lu(k,1651) = lu(k,1651) - lu(k,615) * lu(k,1632) - lu(k,1653) = lu(k,1653) - lu(k,616) * lu(k,1632) - lu(k,1655) = lu(k,1655) - lu(k,617) * lu(k,1632) - lu(k,1656) = lu(k,1656) - lu(k,618) * lu(k,1632) - lu(k,1657) = lu(k,1657) - lu(k,619) * lu(k,1632) - lu(k,1658) = lu(k,1658) - lu(k,620) * lu(k,1632) - lu(k,1664) = lu(k,1664) - lu(k,621) * lu(k,1632) - lu(k,1666) = lu(k,1666) - lu(k,622) * lu(k,1632) - lu(k,1681) = lu(k,1681) - lu(k,610) * lu(k,1675) - lu(k,1688) = lu(k,1688) - lu(k,611) * lu(k,1675) - lu(k,1689) = lu(k,1689) - lu(k,612) * lu(k,1675) - lu(k,1690) = lu(k,1690) - lu(k,613) * lu(k,1675) - lu(k,1692) = lu(k,1692) - lu(k,614) * lu(k,1675) - lu(k,1694) = lu(k,1694) - lu(k,615) * lu(k,1675) - lu(k,1696) = lu(k,1696) - lu(k,616) * lu(k,1675) - lu(k,1698) = lu(k,1698) - lu(k,617) * lu(k,1675) - lu(k,1699) = lu(k,1699) - lu(k,618) * lu(k,1675) - lu(k,1700) = lu(k,1700) - lu(k,619) * lu(k,1675) - lu(k,1701) = lu(k,1701) - lu(k,620) * lu(k,1675) - lu(k,1707) = lu(k,1707) - lu(k,621) * lu(k,1675) - lu(k,1709) = lu(k,1709) - lu(k,622) * lu(k,1675) - lu(k,1722) = - lu(k,610) * lu(k,1716) - lu(k,1728) = - lu(k,611) * lu(k,1716) - lu(k,1729) = - lu(k,612) * lu(k,1716) - lu(k,1730) = - lu(k,613) * lu(k,1716) - lu(k,1732) = - lu(k,614) * lu(k,1716) - lu(k,1734) = lu(k,1734) - lu(k,615) * lu(k,1716) - lu(k,1736) = lu(k,1736) - lu(k,616) * lu(k,1716) - lu(k,1738) = - lu(k,617) * lu(k,1716) - lu(k,1739) = lu(k,1739) - lu(k,618) * lu(k,1716) - lu(k,1740) = lu(k,1740) - lu(k,619) * lu(k,1716) - lu(k,1741) = lu(k,1741) - lu(k,620) * lu(k,1716) - lu(k,1747) = lu(k,1747) - lu(k,621) * lu(k,1716) - lu(k,1749) = lu(k,1749) - lu(k,622) * lu(k,1716) - lu(k,1805) = lu(k,1805) - lu(k,610) * lu(k,1797) - lu(k,1812) = lu(k,1812) - lu(k,611) * lu(k,1797) - lu(k,1813) = - lu(k,612) * lu(k,1797) - lu(k,1814) = - lu(k,613) * lu(k,1797) - lu(k,1816) = - lu(k,614) * lu(k,1797) - lu(k,1818) = lu(k,1818) - lu(k,615) * lu(k,1797) - lu(k,1820) = lu(k,1820) - lu(k,616) * lu(k,1797) - lu(k,1822) = lu(k,1822) - lu(k,617) * lu(k,1797) - lu(k,1823) = lu(k,1823) - lu(k,618) * lu(k,1797) - lu(k,1824) = lu(k,1824) - lu(k,619) * lu(k,1797) - lu(k,1825) = lu(k,1825) - lu(k,620) * lu(k,1797) - lu(k,1831) = lu(k,1831) - lu(k,621) * lu(k,1797) - lu(k,1833) = lu(k,1833) - lu(k,622) * lu(k,1797) - lu(k,2002) = lu(k,2002) - lu(k,610) * lu(k,1996) - lu(k,2009) = lu(k,2009) - lu(k,611) * lu(k,1996) - lu(k,2010) = lu(k,2010) - lu(k,612) * lu(k,1996) - lu(k,2011) = lu(k,2011) - lu(k,613) * lu(k,1996) - lu(k,2013) = lu(k,2013) - lu(k,614) * lu(k,1996) - lu(k,2015) = lu(k,2015) - lu(k,615) * lu(k,1996) - lu(k,2017) = lu(k,2017) - lu(k,616) * lu(k,1996) - lu(k,2019) = lu(k,2019) - lu(k,617) * lu(k,1996) - lu(k,2020) = lu(k,2020) - lu(k,618) * lu(k,1996) - lu(k,2021) = lu(k,2021) - lu(k,619) * lu(k,1996) - lu(k,2022) = lu(k,2022) - lu(k,620) * lu(k,1996) - lu(k,2028) = lu(k,2028) - lu(k,621) * lu(k,1996) - lu(k,2030) = lu(k,2030) - lu(k,622) * lu(k,1996) + lu(k,552) = 1._r8 / lu(k,552) + lu(k,553) = lu(k,553) * lu(k,552) + lu(k,554) = lu(k,554) * lu(k,552) + lu(k,555) = lu(k,555) * lu(k,552) + lu(k,556) = lu(k,556) * lu(k,552) + lu(k,557) = lu(k,557) * lu(k,552) + lu(k,558) = lu(k,558) * lu(k,552) + lu(k,559) = lu(k,559) * lu(k,552) + lu(k,560) = lu(k,560) * lu(k,552) + lu(k,561) = lu(k,561) * lu(k,552) + lu(k,562) = lu(k,562) * lu(k,552) + lu(k,563) = lu(k,563) * lu(k,552) + lu(k,564) = lu(k,564) * lu(k,552) + lu(k,565) = lu(k,565) * lu(k,552) + lu(k,674) = lu(k,674) - lu(k,553) * lu(k,670) + lu(k,676) = lu(k,676) - lu(k,554) * lu(k,670) + lu(k,677) = lu(k,677) - lu(k,555) * lu(k,670) + lu(k,678) = lu(k,678) - lu(k,556) * lu(k,670) + lu(k,679) = lu(k,679) - lu(k,557) * lu(k,670) + lu(k,681) = lu(k,681) - lu(k,558) * lu(k,670) + lu(k,682) = lu(k,682) - lu(k,559) * lu(k,670) + lu(k,683) = lu(k,683) - lu(k,560) * lu(k,670) + lu(k,685) = lu(k,685) - lu(k,561) * lu(k,670) + lu(k,686) = lu(k,686) - lu(k,562) * lu(k,670) + lu(k,687) = lu(k,687) - lu(k,563) * lu(k,670) + lu(k,688) = lu(k,688) - lu(k,564) * lu(k,670) + lu(k,689) = lu(k,689) - lu(k,565) * lu(k,670) + lu(k,928) = lu(k,928) - lu(k,553) * lu(k,925) + lu(k,932) = lu(k,932) - lu(k,554) * lu(k,925) + lu(k,933) = lu(k,933) - lu(k,555) * lu(k,925) + lu(k,935) = lu(k,935) - lu(k,556) * lu(k,925) + lu(k,936) = lu(k,936) - lu(k,557) * lu(k,925) + lu(k,938) = lu(k,938) - lu(k,558) * lu(k,925) + lu(k,941) = lu(k,941) - lu(k,559) * lu(k,925) + lu(k,942) = lu(k,942) - lu(k,560) * lu(k,925) + lu(k,944) = lu(k,944) - lu(k,561) * lu(k,925) + lu(k,945) = lu(k,945) - lu(k,562) * lu(k,925) + lu(k,947) = lu(k,947) - lu(k,563) * lu(k,925) + lu(k,948) = lu(k,948) - lu(k,564) * lu(k,925) + lu(k,950) = lu(k,950) - lu(k,565) * lu(k,925) + lu(k,1149) = lu(k,1149) - lu(k,553) * lu(k,1138) + lu(k,1154) = lu(k,1154) - lu(k,554) * lu(k,1138) + lu(k,1155) = lu(k,1155) - lu(k,555) * lu(k,1138) + lu(k,1157) = lu(k,1157) - lu(k,556) * lu(k,1138) + lu(k,1158) = lu(k,1158) - lu(k,557) * lu(k,1138) + lu(k,1160) = lu(k,1160) - lu(k,558) * lu(k,1138) + lu(k,1164) = lu(k,1164) - lu(k,559) * lu(k,1138) + lu(k,1165) = lu(k,1165) - lu(k,560) * lu(k,1138) + lu(k,1168) = lu(k,1168) - lu(k,561) * lu(k,1138) + lu(k,1169) = lu(k,1169) - lu(k,562) * lu(k,1138) + lu(k,1172) = lu(k,1172) - lu(k,563) * lu(k,1138) + lu(k,1173) = lu(k,1173) - lu(k,564) * lu(k,1138) + lu(k,1175) = lu(k,1175) - lu(k,565) * lu(k,1138) + lu(k,1192) = lu(k,1192) - lu(k,553) * lu(k,1182) + lu(k,1197) = lu(k,1197) - lu(k,554) * lu(k,1182) + lu(k,1198) = lu(k,1198) - lu(k,555) * lu(k,1182) + lu(k,1200) = lu(k,1200) - lu(k,556) * lu(k,1182) + lu(k,1201) = lu(k,1201) - lu(k,557) * lu(k,1182) + lu(k,1203) = lu(k,1203) - lu(k,558) * lu(k,1182) + lu(k,1207) = lu(k,1207) - lu(k,559) * lu(k,1182) + lu(k,1208) = lu(k,1208) - lu(k,560) * lu(k,1182) + lu(k,1211) = lu(k,1211) - lu(k,561) * lu(k,1182) + lu(k,1212) = lu(k,1212) - lu(k,562) * lu(k,1182) + lu(k,1215) = lu(k,1215) - lu(k,563) * lu(k,1182) + lu(k,1216) = lu(k,1216) - lu(k,564) * lu(k,1182) + lu(k,1218) = lu(k,1218) - lu(k,565) * lu(k,1182) + lu(k,1276) = lu(k,1276) - lu(k,553) * lu(k,1266) + lu(k,1281) = lu(k,1281) - lu(k,554) * lu(k,1266) + lu(k,1282) = lu(k,1282) - lu(k,555) * lu(k,1266) + lu(k,1284) = lu(k,1284) - lu(k,556) * lu(k,1266) + lu(k,1285) = lu(k,1285) - lu(k,557) * lu(k,1266) + lu(k,1287) = lu(k,1287) - lu(k,558) * lu(k,1266) + lu(k,1291) = lu(k,1291) - lu(k,559) * lu(k,1266) + lu(k,1292) = lu(k,1292) - lu(k,560) * lu(k,1266) + lu(k,1295) = lu(k,1295) - lu(k,561) * lu(k,1266) + lu(k,1296) = lu(k,1296) - lu(k,562) * lu(k,1266) + lu(k,1299) = lu(k,1299) - lu(k,563) * lu(k,1266) + lu(k,1300) = lu(k,1300) - lu(k,564) * lu(k,1266) + lu(k,1302) = lu(k,1302) - lu(k,565) * lu(k,1266) + lu(k,1318) = lu(k,1318) - lu(k,553) * lu(k,1308) + lu(k,1323) = lu(k,1323) - lu(k,554) * lu(k,1308) + lu(k,1324) = lu(k,1324) - lu(k,555) * lu(k,1308) + lu(k,1326) = lu(k,1326) - lu(k,556) * lu(k,1308) + lu(k,1327) = lu(k,1327) - lu(k,557) * lu(k,1308) + lu(k,1329) = lu(k,1329) - lu(k,558) * lu(k,1308) + lu(k,1333) = lu(k,1333) - lu(k,559) * lu(k,1308) + lu(k,1334) = lu(k,1334) - lu(k,560) * lu(k,1308) + lu(k,1337) = lu(k,1337) - lu(k,561) * lu(k,1308) + lu(k,1338) = lu(k,1338) - lu(k,562) * lu(k,1308) + lu(k,1341) = lu(k,1341) - lu(k,563) * lu(k,1308) + lu(k,1342) = lu(k,1342) - lu(k,564) * lu(k,1308) + lu(k,1344) = lu(k,1344) - lu(k,565) * lu(k,1308) + lu(k,1421) = lu(k,1421) - lu(k,553) * lu(k,1411) + lu(k,1426) = lu(k,1426) - lu(k,554) * lu(k,1411) + lu(k,1427) = lu(k,1427) - lu(k,555) * lu(k,1411) + lu(k,1429) = lu(k,1429) - lu(k,556) * lu(k,1411) + lu(k,1430) = lu(k,1430) - lu(k,557) * lu(k,1411) + lu(k,1432) = lu(k,1432) - lu(k,558) * lu(k,1411) + lu(k,1436) = lu(k,1436) - lu(k,559) * lu(k,1411) + lu(k,1437) = lu(k,1437) - lu(k,560) * lu(k,1411) + lu(k,1440) = lu(k,1440) - lu(k,561) * lu(k,1411) + lu(k,1441) = lu(k,1441) - lu(k,562) * lu(k,1411) + lu(k,1444) = lu(k,1444) - lu(k,563) * lu(k,1411) + lu(k,1445) = lu(k,1445) - lu(k,564) * lu(k,1411) + lu(k,1447) = lu(k,1447) - lu(k,565) * lu(k,1411) + lu(k,1591) = lu(k,1591) - lu(k,553) * lu(k,1580) + lu(k,1596) = lu(k,1596) - lu(k,554) * lu(k,1580) + lu(k,1597) = lu(k,1597) - lu(k,555) * lu(k,1580) + lu(k,1599) = lu(k,1599) - lu(k,556) * lu(k,1580) + lu(k,1600) = lu(k,1600) - lu(k,557) * lu(k,1580) + lu(k,1602) = lu(k,1602) - lu(k,558) * lu(k,1580) + lu(k,1606) = lu(k,1606) - lu(k,559) * lu(k,1580) + lu(k,1607) = lu(k,1607) - lu(k,560) * lu(k,1580) + lu(k,1610) = lu(k,1610) - lu(k,561) * lu(k,1580) + lu(k,1611) = lu(k,1611) - lu(k,562) * lu(k,1580) + lu(k,1614) = lu(k,1614) - lu(k,563) * lu(k,1580) + lu(k,1615) = lu(k,1615) - lu(k,564) * lu(k,1580) + lu(k,1617) = lu(k,1617) - lu(k,565) * lu(k,1580) + lu(k,1634) = lu(k,1634) - lu(k,553) * lu(k,1624) + lu(k,1639) = lu(k,1639) - lu(k,554) * lu(k,1624) + lu(k,1640) = lu(k,1640) - lu(k,555) * lu(k,1624) + lu(k,1642) = lu(k,1642) - lu(k,556) * lu(k,1624) + lu(k,1643) = lu(k,1643) - lu(k,557) * lu(k,1624) + lu(k,1645) = lu(k,1645) - lu(k,558) * lu(k,1624) + lu(k,1649) = lu(k,1649) - lu(k,559) * lu(k,1624) + lu(k,1650) = lu(k,1650) - lu(k,560) * lu(k,1624) + lu(k,1653) = lu(k,1653) - lu(k,561) * lu(k,1624) + lu(k,1654) = lu(k,1654) - lu(k,562) * lu(k,1624) + lu(k,1657) = lu(k,1657) - lu(k,563) * lu(k,1624) + lu(k,1658) = lu(k,1658) - lu(k,564) * lu(k,1624) + lu(k,1660) = lu(k,1660) - lu(k,565) * lu(k,1624) + lu(k,1962) = lu(k,1962) - lu(k,553) * lu(k,1951) + lu(k,1967) = lu(k,1967) - lu(k,554) * lu(k,1951) + lu(k,1968) = - lu(k,555) * lu(k,1951) + lu(k,1970) = - lu(k,556) * lu(k,1951) + lu(k,1971) = - lu(k,557) * lu(k,1951) + lu(k,1973) = - lu(k,558) * lu(k,1951) + lu(k,1977) = lu(k,1977) - lu(k,559) * lu(k,1951) + lu(k,1978) = - lu(k,560) * lu(k,1951) + lu(k,1981) = lu(k,1981) - lu(k,561) * lu(k,1951) + lu(k,1982) = lu(k,1982) - lu(k,562) * lu(k,1951) + lu(k,1985) = lu(k,1985) - lu(k,563) * lu(k,1951) + lu(k,1986) = lu(k,1986) - lu(k,564) * lu(k,1951) + lu(k,1988) = lu(k,1988) - lu(k,565) * lu(k,1951) + lu(k,2067) = lu(k,2067) - lu(k,553) * lu(k,2055) + lu(k,2072) = lu(k,2072) - lu(k,554) * lu(k,2055) + lu(k,2073) = lu(k,2073) - lu(k,555) * lu(k,2055) + lu(k,2075) = lu(k,2075) - lu(k,556) * lu(k,2055) + lu(k,2076) = lu(k,2076) - lu(k,557) * lu(k,2055) + lu(k,2078) = lu(k,2078) - lu(k,558) * lu(k,2055) + lu(k,2082) = lu(k,2082) - lu(k,559) * lu(k,2055) + lu(k,2083) = lu(k,2083) - lu(k,560) * lu(k,2055) + lu(k,2086) = lu(k,2086) - lu(k,561) * lu(k,2055) + lu(k,2087) = lu(k,2087) - lu(k,562) * lu(k,2055) + lu(k,2090) = lu(k,2090) - lu(k,563) * lu(k,2055) + lu(k,2091) = lu(k,2091) - lu(k,564) * lu(k,2055) + lu(k,2093) = lu(k,2093) - lu(k,565) * lu(k,2055) + lu(k,566) = 1._r8 / lu(k,566) + lu(k,567) = lu(k,567) * lu(k,566) + lu(k,568) = lu(k,568) * lu(k,566) + lu(k,569) = lu(k,569) * lu(k,566) + lu(k,570) = lu(k,570) * lu(k,566) + lu(k,571) = lu(k,571) * lu(k,566) + lu(k,572) = lu(k,572) * lu(k,566) + lu(k,573) = lu(k,573) * lu(k,566) + lu(k,574) = lu(k,574) * lu(k,566) + lu(k,575) = lu(k,575) * lu(k,566) + lu(k,576) = lu(k,576) * lu(k,566) + lu(k,577) = lu(k,577) * lu(k,566) + lu(k,578) = lu(k,578) * lu(k,566) + lu(k,579) = lu(k,579) * lu(k,566) + lu(k,580) = lu(k,580) * lu(k,566) + lu(k,581) = lu(k,581) * lu(k,566) + lu(k,865) = lu(k,865) - lu(k,567) * lu(k,864) + lu(k,871) = lu(k,871) - lu(k,568) * lu(k,864) + lu(k,872) = lu(k,872) - lu(k,569) * lu(k,864) + lu(k,874) = lu(k,874) - lu(k,570) * lu(k,864) + lu(k,875) = lu(k,875) - lu(k,571) * lu(k,864) + lu(k,877) = lu(k,877) - lu(k,572) * lu(k,864) + lu(k,879) = lu(k,879) - lu(k,573) * lu(k,864) + lu(k,880) = lu(k,880) - lu(k,574) * lu(k,864) + lu(k,881) = lu(k,881) - lu(k,575) * lu(k,864) + lu(k,882) = lu(k,882) - lu(k,576) * lu(k,864) + lu(k,883) = - lu(k,577) * lu(k,864) + lu(k,885) = lu(k,885) - lu(k,578) * lu(k,864) + lu(k,886) = lu(k,886) - lu(k,579) * lu(k,864) + lu(k,887) = lu(k,887) - lu(k,580) * lu(k,864) + lu(k,888) = lu(k,888) - lu(k,581) * lu(k,864) + lu(k,1140) = lu(k,1140) - lu(k,567) * lu(k,1139) + lu(k,1154) = lu(k,1154) - lu(k,568) * lu(k,1139) + lu(k,1155) = lu(k,1155) - lu(k,569) * lu(k,1139) + lu(k,1157) = lu(k,1157) - lu(k,570) * lu(k,1139) + lu(k,1158) = lu(k,1158) - lu(k,571) * lu(k,1139) + lu(k,1160) = lu(k,1160) - lu(k,572) * lu(k,1139) + lu(k,1162) = lu(k,1162) - lu(k,573) * lu(k,1139) + lu(k,1164) = lu(k,1164) - lu(k,574) * lu(k,1139) + lu(k,1165) = lu(k,1165) - lu(k,575) * lu(k,1139) + lu(k,1167) = lu(k,1167) - lu(k,576) * lu(k,1139) + lu(k,1168) = lu(k,1168) - lu(k,577) * lu(k,1139) + lu(k,1172) = lu(k,1172) - lu(k,578) * lu(k,1139) + lu(k,1173) = lu(k,1173) - lu(k,579) * lu(k,1139) + lu(k,1174) = lu(k,1174) - lu(k,580) * lu(k,1139) + lu(k,1175) = lu(k,1175) - lu(k,581) * lu(k,1139) + lu(k,1184) = lu(k,1184) - lu(k,567) * lu(k,1183) + lu(k,1197) = lu(k,1197) - lu(k,568) * lu(k,1183) + lu(k,1198) = lu(k,1198) - lu(k,569) * lu(k,1183) + lu(k,1200) = lu(k,1200) - lu(k,570) * lu(k,1183) + lu(k,1201) = lu(k,1201) - lu(k,571) * lu(k,1183) + lu(k,1203) = lu(k,1203) - lu(k,572) * lu(k,1183) + lu(k,1205) = lu(k,1205) - lu(k,573) * lu(k,1183) + lu(k,1207) = lu(k,1207) - lu(k,574) * lu(k,1183) + lu(k,1208) = lu(k,1208) - lu(k,575) * lu(k,1183) + lu(k,1210) = lu(k,1210) - lu(k,576) * lu(k,1183) + lu(k,1211) = lu(k,1211) - lu(k,577) * lu(k,1183) + lu(k,1215) = lu(k,1215) - lu(k,578) * lu(k,1183) + lu(k,1216) = lu(k,1216) - lu(k,579) * lu(k,1183) + lu(k,1217) = lu(k,1217) - lu(k,580) * lu(k,1183) + lu(k,1218) = lu(k,1218) - lu(k,581) * lu(k,1183) + lu(k,1268) = lu(k,1268) - lu(k,567) * lu(k,1267) + lu(k,1281) = lu(k,1281) - lu(k,568) * lu(k,1267) + lu(k,1282) = lu(k,1282) - lu(k,569) * lu(k,1267) + lu(k,1284) = lu(k,1284) - lu(k,570) * lu(k,1267) + lu(k,1285) = lu(k,1285) - lu(k,571) * lu(k,1267) + lu(k,1287) = lu(k,1287) - lu(k,572) * lu(k,1267) + lu(k,1289) = lu(k,1289) - lu(k,573) * lu(k,1267) + lu(k,1291) = lu(k,1291) - lu(k,574) * lu(k,1267) + lu(k,1292) = lu(k,1292) - lu(k,575) * lu(k,1267) + lu(k,1294) = lu(k,1294) - lu(k,576) * lu(k,1267) + lu(k,1295) = lu(k,1295) - lu(k,577) * lu(k,1267) + lu(k,1299) = lu(k,1299) - lu(k,578) * lu(k,1267) + lu(k,1300) = lu(k,1300) - lu(k,579) * lu(k,1267) + lu(k,1301) = lu(k,1301) - lu(k,580) * lu(k,1267) + lu(k,1302) = lu(k,1302) - lu(k,581) * lu(k,1267) + lu(k,1310) = lu(k,1310) - lu(k,567) * lu(k,1309) + lu(k,1323) = lu(k,1323) - lu(k,568) * lu(k,1309) + lu(k,1324) = lu(k,1324) - lu(k,569) * lu(k,1309) + lu(k,1326) = lu(k,1326) - lu(k,570) * lu(k,1309) + lu(k,1327) = lu(k,1327) - lu(k,571) * lu(k,1309) + lu(k,1329) = lu(k,1329) - lu(k,572) * lu(k,1309) + lu(k,1331) = lu(k,1331) - lu(k,573) * lu(k,1309) + lu(k,1333) = lu(k,1333) - lu(k,574) * lu(k,1309) + lu(k,1334) = lu(k,1334) - lu(k,575) * lu(k,1309) + lu(k,1336) = lu(k,1336) - lu(k,576) * lu(k,1309) + lu(k,1337) = lu(k,1337) - lu(k,577) * lu(k,1309) + lu(k,1341) = lu(k,1341) - lu(k,578) * lu(k,1309) + lu(k,1342) = lu(k,1342) - lu(k,579) * lu(k,1309) + lu(k,1343) = lu(k,1343) - lu(k,580) * lu(k,1309) + lu(k,1344) = lu(k,1344) - lu(k,581) * lu(k,1309) + lu(k,1413) = lu(k,1413) - lu(k,567) * lu(k,1412) + lu(k,1426) = lu(k,1426) - lu(k,568) * lu(k,1412) + lu(k,1427) = lu(k,1427) - lu(k,569) * lu(k,1412) + lu(k,1429) = lu(k,1429) - lu(k,570) * lu(k,1412) + lu(k,1430) = lu(k,1430) - lu(k,571) * lu(k,1412) + lu(k,1432) = lu(k,1432) - lu(k,572) * lu(k,1412) + lu(k,1434) = lu(k,1434) - lu(k,573) * lu(k,1412) + lu(k,1436) = lu(k,1436) - lu(k,574) * lu(k,1412) + lu(k,1437) = lu(k,1437) - lu(k,575) * lu(k,1412) + lu(k,1439) = lu(k,1439) - lu(k,576) * lu(k,1412) + lu(k,1440) = lu(k,1440) - lu(k,577) * lu(k,1412) + lu(k,1444) = lu(k,1444) - lu(k,578) * lu(k,1412) + lu(k,1445) = lu(k,1445) - lu(k,579) * lu(k,1412) + lu(k,1446) = lu(k,1446) - lu(k,580) * lu(k,1412) + lu(k,1447) = lu(k,1447) - lu(k,581) * lu(k,1412) + lu(k,1502) = lu(k,1502) - lu(k,567) * lu(k,1501) + lu(k,1515) = - lu(k,568) * lu(k,1501) + lu(k,1516) = - lu(k,569) * lu(k,1501) + lu(k,1518) = - lu(k,570) * lu(k,1501) + lu(k,1519) = - lu(k,571) * lu(k,1501) + lu(k,1521) = - lu(k,572) * lu(k,1501) + lu(k,1523) = lu(k,1523) - lu(k,573) * lu(k,1501) + lu(k,1525) = - lu(k,574) * lu(k,1501) + lu(k,1526) = - lu(k,575) * lu(k,1501) + lu(k,1528) = lu(k,1528) - lu(k,576) * lu(k,1501) + lu(k,1529) = lu(k,1529) - lu(k,577) * lu(k,1501) + lu(k,1533) = lu(k,1533) - lu(k,578) * lu(k,1501) + lu(k,1534) = lu(k,1534) - lu(k,579) * lu(k,1501) + lu(k,1535) = lu(k,1535) - lu(k,580) * lu(k,1501) + lu(k,1536) = lu(k,1536) - lu(k,581) * lu(k,1501) + lu(k,1582) = lu(k,1582) - lu(k,567) * lu(k,1581) + lu(k,1596) = lu(k,1596) - lu(k,568) * lu(k,1581) + lu(k,1597) = lu(k,1597) - lu(k,569) * lu(k,1581) + lu(k,1599) = lu(k,1599) - lu(k,570) * lu(k,1581) + lu(k,1600) = lu(k,1600) - lu(k,571) * lu(k,1581) + lu(k,1602) = lu(k,1602) - lu(k,572) * lu(k,1581) + lu(k,1604) = lu(k,1604) - lu(k,573) * lu(k,1581) + lu(k,1606) = lu(k,1606) - lu(k,574) * lu(k,1581) + lu(k,1607) = lu(k,1607) - lu(k,575) * lu(k,1581) + lu(k,1609) = lu(k,1609) - lu(k,576) * lu(k,1581) + lu(k,1610) = lu(k,1610) - lu(k,577) * lu(k,1581) + lu(k,1614) = lu(k,1614) - lu(k,578) * lu(k,1581) + lu(k,1615) = lu(k,1615) - lu(k,579) * lu(k,1581) + lu(k,1616) = lu(k,1616) - lu(k,580) * lu(k,1581) + lu(k,1617) = lu(k,1617) - lu(k,581) * lu(k,1581) + lu(k,1626) = lu(k,1626) - lu(k,567) * lu(k,1625) + lu(k,1639) = lu(k,1639) - lu(k,568) * lu(k,1625) + lu(k,1640) = lu(k,1640) - lu(k,569) * lu(k,1625) + lu(k,1642) = lu(k,1642) - lu(k,570) * lu(k,1625) + lu(k,1643) = lu(k,1643) - lu(k,571) * lu(k,1625) + lu(k,1645) = lu(k,1645) - lu(k,572) * lu(k,1625) + lu(k,1647) = lu(k,1647) - lu(k,573) * lu(k,1625) + lu(k,1649) = lu(k,1649) - lu(k,574) * lu(k,1625) + lu(k,1650) = lu(k,1650) - lu(k,575) * lu(k,1625) + lu(k,1652) = lu(k,1652) - lu(k,576) * lu(k,1625) + lu(k,1653) = lu(k,1653) - lu(k,577) * lu(k,1625) + lu(k,1657) = lu(k,1657) - lu(k,578) * lu(k,1625) + lu(k,1658) = lu(k,1658) - lu(k,579) * lu(k,1625) + lu(k,1659) = lu(k,1659) - lu(k,580) * lu(k,1625) + lu(k,1660) = lu(k,1660) - lu(k,581) * lu(k,1625) + lu(k,1999) = - lu(k,567) * lu(k,1997) + lu(k,2012) = lu(k,2012) - lu(k,568) * lu(k,1997) + lu(k,2013) = lu(k,2013) - lu(k,569) * lu(k,1997) + lu(k,2015) = lu(k,2015) - lu(k,570) * lu(k,1997) + lu(k,2016) = lu(k,2016) - lu(k,571) * lu(k,1997) + lu(k,2018) = lu(k,2018) - lu(k,572) * lu(k,1997) + lu(k,2020) = lu(k,2020) - lu(k,573) * lu(k,1997) + lu(k,2022) = lu(k,2022) - lu(k,574) * lu(k,1997) + lu(k,2023) = lu(k,2023) - lu(k,575) * lu(k,1997) + lu(k,2025) = lu(k,2025) - lu(k,576) * lu(k,1997) + lu(k,2026) = lu(k,2026) - lu(k,577) * lu(k,1997) + lu(k,2030) = lu(k,2030) - lu(k,578) * lu(k,1997) + lu(k,2031) = lu(k,2031) - lu(k,579) * lu(k,1997) + lu(k,2032) = lu(k,2032) - lu(k,580) * lu(k,1997) + lu(k,2033) = lu(k,2033) - lu(k,581) * lu(k,1997) + lu(k,584) = 1._r8 / lu(k,584) + lu(k,585) = lu(k,585) * lu(k,584) + lu(k,586) = lu(k,586) * lu(k,584) + lu(k,587) = lu(k,587) * lu(k,584) + lu(k,588) = lu(k,588) * lu(k,584) + lu(k,589) = lu(k,589) * lu(k,584) + lu(k,590) = lu(k,590) * lu(k,584) + lu(k,591) = lu(k,591) * lu(k,584) + lu(k,592) = lu(k,592) * lu(k,584) + lu(k,593) = lu(k,593) * lu(k,584) + lu(k,594) = lu(k,594) * lu(k,584) + lu(k,595) = lu(k,595) * lu(k,584) + lu(k,717) = lu(k,717) - lu(k,585) * lu(k,716) + lu(k,718) = - lu(k,586) * lu(k,716) + lu(k,719) = - lu(k,587) * lu(k,716) + lu(k,720) = lu(k,720) - lu(k,588) * lu(k,716) + lu(k,721) = lu(k,721) - lu(k,589) * lu(k,716) + lu(k,723) = lu(k,723) - lu(k,590) * lu(k,716) + lu(k,724) = lu(k,724) - lu(k,591) * lu(k,716) + lu(k,727) = - lu(k,592) * lu(k,716) + lu(k,729) = lu(k,729) - lu(k,593) * lu(k,716) + lu(k,731) = lu(k,731) - lu(k,594) * lu(k,716) + lu(k,734) = lu(k,734) - lu(k,595) * lu(k,716) + lu(k,739) = lu(k,739) - lu(k,585) * lu(k,737) + lu(k,740) = lu(k,740) - lu(k,586) * lu(k,737) + lu(k,741) = lu(k,741) - lu(k,587) * lu(k,737) + lu(k,742) = lu(k,742) - lu(k,588) * lu(k,737) + lu(k,743) = lu(k,743) - lu(k,589) * lu(k,737) + lu(k,746) = - lu(k,590) * lu(k,737) + lu(k,747) = lu(k,747) - lu(k,591) * lu(k,737) + lu(k,750) = lu(k,750) - lu(k,592) * lu(k,737) + lu(k,752) = lu(k,752) - lu(k,593) * lu(k,737) + lu(k,756) = - lu(k,594) * lu(k,737) + lu(k,759) = lu(k,759) - lu(k,595) * lu(k,737) + lu(k,787) = lu(k,787) - lu(k,585) * lu(k,785) + lu(k,788) = lu(k,788) - lu(k,586) * lu(k,785) + lu(k,789) = lu(k,789) - lu(k,587) * lu(k,785) + lu(k,790) = lu(k,790) - lu(k,588) * lu(k,785) + lu(k,791) = lu(k,791) - lu(k,589) * lu(k,785) + lu(k,794) = lu(k,794) - lu(k,590) * lu(k,785) + lu(k,795) = lu(k,795) - lu(k,591) * lu(k,785) + lu(k,801) = lu(k,801) - lu(k,592) * lu(k,785) + lu(k,803) = lu(k,803) - lu(k,593) * lu(k,785) + lu(k,807) = lu(k,807) - lu(k,594) * lu(k,785) + lu(k,810) = lu(k,810) - lu(k,595) * lu(k,785) + lu(k,899) = lu(k,899) - lu(k,585) * lu(k,897) + lu(k,900) = lu(k,900) - lu(k,586) * lu(k,897) + lu(k,901) = lu(k,901) - lu(k,587) * lu(k,897) + lu(k,902) = lu(k,902) - lu(k,588) * lu(k,897) + lu(k,903) = lu(k,903) - lu(k,589) * lu(k,897) + lu(k,906) = lu(k,906) - lu(k,590) * lu(k,897) + lu(k,908) = lu(k,908) - lu(k,591) * lu(k,897) + lu(k,914) = - lu(k,592) * lu(k,897) + lu(k,916) = lu(k,916) - lu(k,593) * lu(k,897) + lu(k,920) = lu(k,920) - lu(k,594) * lu(k,897) + lu(k,923) = lu(k,923) - lu(k,595) * lu(k,897) + lu(k,982) = lu(k,982) - lu(k,585) * lu(k,980) + lu(k,983) = lu(k,983) - lu(k,586) * lu(k,980) + lu(k,984) = lu(k,984) - lu(k,587) * lu(k,980) + lu(k,985) = lu(k,985) - lu(k,588) * lu(k,980) + lu(k,986) = lu(k,986) - lu(k,589) * lu(k,980) + lu(k,990) = lu(k,990) - lu(k,590) * lu(k,980) + lu(k,992) = lu(k,992) - lu(k,591) * lu(k,980) + lu(k,998) = lu(k,998) - lu(k,592) * lu(k,980) + lu(k,1000) = lu(k,1000) - lu(k,593) * lu(k,980) + lu(k,1004) = lu(k,1004) - lu(k,594) * lu(k,980) + lu(k,1007) = lu(k,1007) - lu(k,595) * lu(k,980) + lu(k,1095) = lu(k,1095) - lu(k,585) * lu(k,1094) + lu(k,1096) = lu(k,1096) - lu(k,586) * lu(k,1094) + lu(k,1097) = - lu(k,587) * lu(k,1094) + lu(k,1101) = lu(k,1101) - lu(k,588) * lu(k,1094) + lu(k,1103) = lu(k,1103) - lu(k,589) * lu(k,1094) + lu(k,1109) = lu(k,1109) - lu(k,590) * lu(k,1094) + lu(k,1112) = lu(k,1112) - lu(k,591) * lu(k,1094) + lu(k,1119) = lu(k,1119) - lu(k,592) * lu(k,1094) + lu(k,1121) = lu(k,1121) - lu(k,593) * lu(k,1094) + lu(k,1125) = lu(k,1125) - lu(k,594) * lu(k,1094) + lu(k,1128) = lu(k,1128) - lu(k,595) * lu(k,1094) + lu(k,1227) = lu(k,1227) - lu(k,585) * lu(k,1225) + lu(k,1228) = - lu(k,586) * lu(k,1225) + lu(k,1229) = lu(k,1229) - lu(k,587) * lu(k,1225) + lu(k,1232) = lu(k,1232) - lu(k,588) * lu(k,1225) + lu(k,1234) = lu(k,1234) - lu(k,589) * lu(k,1225) + lu(k,1240) = lu(k,1240) - lu(k,590) * lu(k,1225) + lu(k,1243) = lu(k,1243) - lu(k,591) * lu(k,1225) + lu(k,1250) = lu(k,1250) - lu(k,592) * lu(k,1225) + lu(k,1252) = lu(k,1252) - lu(k,593) * lu(k,1225) + lu(k,1256) = lu(k,1256) - lu(k,594) * lu(k,1225) + lu(k,1259) = lu(k,1259) - lu(k,595) * lu(k,1225) + lu(k,1371) = lu(k,1371) - lu(k,585) * lu(k,1368) + lu(k,1372) = lu(k,1372) - lu(k,586) * lu(k,1368) + lu(k,1373) = lu(k,1373) - lu(k,587) * lu(k,1368) + lu(k,1377) = lu(k,1377) - lu(k,588) * lu(k,1368) + lu(k,1379) = lu(k,1379) - lu(k,589) * lu(k,1368) + lu(k,1385) = lu(k,1385) - lu(k,590) * lu(k,1368) + lu(k,1388) = lu(k,1388) - lu(k,591) * lu(k,1368) + lu(k,1395) = lu(k,1395) - lu(k,592) * lu(k,1368) + lu(k,1397) = lu(k,1397) - lu(k,593) * lu(k,1368) + lu(k,1401) = lu(k,1401) - lu(k,594) * lu(k,1368) + lu(k,1404) = lu(k,1404) - lu(k,595) * lu(k,1368) + lu(k,1462) = - lu(k,585) * lu(k,1460) + lu(k,1463) = lu(k,1463) - lu(k,586) * lu(k,1460) + lu(k,1464) = lu(k,1464) - lu(k,587) * lu(k,1460) + lu(k,1468) = lu(k,1468) - lu(k,588) * lu(k,1460) + lu(k,1470) = lu(k,1470) - lu(k,589) * lu(k,1460) + lu(k,1476) = lu(k,1476) - lu(k,590) * lu(k,1460) + lu(k,1479) = lu(k,1479) - lu(k,591) * lu(k,1460) + lu(k,1486) = lu(k,1486) - lu(k,592) * lu(k,1460) + lu(k,1488) = lu(k,1488) - lu(k,593) * lu(k,1460) + lu(k,1492) = lu(k,1492) - lu(k,594) * lu(k,1460) + lu(k,1495) = lu(k,1495) - lu(k,595) * lu(k,1460) + lu(k,1712) = lu(k,1712) - lu(k,585) * lu(k,1708) + lu(k,1713) = lu(k,1713) - lu(k,586) * lu(k,1708) + lu(k,1714) = - lu(k,587) * lu(k,1708) + lu(k,1716) = lu(k,1716) - lu(k,588) * lu(k,1708) + lu(k,1718) = lu(k,1718) - lu(k,589) * lu(k,1708) + lu(k,1723) = lu(k,1723) - lu(k,590) * lu(k,1708) + lu(k,1726) = lu(k,1726) - lu(k,591) * lu(k,1708) + lu(k,1733) = lu(k,1733) - lu(k,592) * lu(k,1708) + lu(k,1735) = lu(k,1735) - lu(k,593) * lu(k,1708) + lu(k,1739) = lu(k,1739) - lu(k,594) * lu(k,1708) + lu(k,1742) = lu(k,1742) - lu(k,595) * lu(k,1708) + lu(k,1794) = lu(k,1794) - lu(k,585) * lu(k,1788) + lu(k,1795) = - lu(k,586) * lu(k,1788) + lu(k,1796) = lu(k,1796) - lu(k,587) * lu(k,1788) + lu(k,1799) = lu(k,1799) - lu(k,588) * lu(k,1788) + lu(k,1801) = lu(k,1801) - lu(k,589) * lu(k,1788) + lu(k,1807) = lu(k,1807) - lu(k,590) * lu(k,1788) + lu(k,1810) = lu(k,1810) - lu(k,591) * lu(k,1788) + lu(k,1817) = lu(k,1817) - lu(k,592) * lu(k,1788) + lu(k,1819) = lu(k,1819) - lu(k,593) * lu(k,1788) + lu(k,1823) = lu(k,1823) - lu(k,594) * lu(k,1788) + lu(k,1826) = lu(k,1826) - lu(k,595) * lu(k,1788) + lu(k,1912) = lu(k,1912) - lu(k,585) * lu(k,1910) + lu(k,1913) = - lu(k,586) * lu(k,1910) + lu(k,1914) = lu(k,1914) - lu(k,587) * lu(k,1910) + lu(k,1917) = lu(k,1917) - lu(k,588) * lu(k,1910) + lu(k,1919) = lu(k,1919) - lu(k,589) * lu(k,1910) + lu(k,1925) = lu(k,1925) - lu(k,590) * lu(k,1910) + lu(k,1928) = lu(k,1928) - lu(k,591) * lu(k,1910) + lu(k,1935) = lu(k,1935) - lu(k,592) * lu(k,1910) + lu(k,1937) = lu(k,1937) - lu(k,593) * lu(k,1910) + lu(k,1941) = lu(k,1941) - lu(k,594) * lu(k,1910) + lu(k,1944) = lu(k,1944) - lu(k,595) * lu(k,1910) + lu(k,1956) = lu(k,1956) - lu(k,585) * lu(k,1952) + lu(k,1957) = lu(k,1957) - lu(k,586) * lu(k,1952) + lu(k,1958) = lu(k,1958) - lu(k,587) * lu(k,1952) + lu(k,1961) = lu(k,1961) - lu(k,588) * lu(k,1952) + lu(k,1963) = lu(k,1963) - lu(k,589) * lu(k,1952) + lu(k,1969) = lu(k,1969) - lu(k,590) * lu(k,1952) + lu(k,1972) = lu(k,1972) - lu(k,591) * lu(k,1952) + lu(k,1979) = lu(k,1979) - lu(k,592) * lu(k,1952) + lu(k,1981) = lu(k,1981) - lu(k,593) * lu(k,1952) + lu(k,1985) = lu(k,1985) - lu(k,594) * lu(k,1952) + lu(k,1988) = lu(k,1988) - lu(k,595) * lu(k,1952) + lu(k,2000) = lu(k,2000) - lu(k,585) * lu(k,1998) + lu(k,2001) = - lu(k,586) * lu(k,1998) + lu(k,2002) = lu(k,2002) - lu(k,587) * lu(k,1998) + lu(k,2006) = lu(k,2006) - lu(k,588) * lu(k,1998) + lu(k,2008) = lu(k,2008) - lu(k,589) * lu(k,1998) + lu(k,2014) = - lu(k,590) * lu(k,1998) + lu(k,2017) = lu(k,2017) - lu(k,591) * lu(k,1998) + lu(k,2024) = lu(k,2024) - lu(k,592) * lu(k,1998) + lu(k,2026) = lu(k,2026) - lu(k,593) * lu(k,1998) + lu(k,2030) = lu(k,2030) - lu(k,594) * lu(k,1998) + lu(k,2033) = lu(k,2033) - lu(k,595) * lu(k,1998) + lu(k,2061) = lu(k,2061) - lu(k,585) * lu(k,2056) + lu(k,2062) = lu(k,2062) - lu(k,586) * lu(k,2056) + lu(k,2063) = lu(k,2063) - lu(k,587) * lu(k,2056) + lu(k,2066) = lu(k,2066) - lu(k,588) * lu(k,2056) + lu(k,2068) = lu(k,2068) - lu(k,589) * lu(k,2056) + lu(k,2074) = lu(k,2074) - lu(k,590) * lu(k,2056) + lu(k,2077) = lu(k,2077) - lu(k,591) * lu(k,2056) + lu(k,2084) = lu(k,2084) - lu(k,592) * lu(k,2056) + lu(k,2086) = lu(k,2086) - lu(k,593) * lu(k,2056) + lu(k,2090) = lu(k,2090) - lu(k,594) * lu(k,2056) + lu(k,2093) = lu(k,2093) - lu(k,595) * lu(k,2056) end do end subroutine lu_fac15 subroutine lu_fac16( avec_len, lu ) @@ -3936,421 +3581,385 @@ subroutine lu_fac16( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,625) = 1._r8 / lu(k,625) - lu(k,626) = lu(k,626) * lu(k,625) - lu(k,627) = lu(k,627) * lu(k,625) - lu(k,628) = lu(k,628) * lu(k,625) - lu(k,629) = lu(k,629) * lu(k,625) - lu(k,630) = lu(k,630) * lu(k,625) - lu(k,631) = lu(k,631) * lu(k,625) - lu(k,632) = lu(k,632) * lu(k,625) - lu(k,633) = lu(k,633) * lu(k,625) - lu(k,634) = lu(k,634) * lu(k,625) - lu(k,635) = lu(k,635) * lu(k,625) - lu(k,636) = lu(k,636) * lu(k,625) - lu(k,637) = lu(k,637) * lu(k,625) - lu(k,638) = lu(k,638) * lu(k,625) - lu(k,639) = lu(k,639) * lu(k,625) - lu(k,640) = lu(k,640) * lu(k,625) - lu(k,641) = lu(k,641) * lu(k,625) - lu(k,642) = lu(k,642) * lu(k,625) - lu(k,691) = lu(k,691) - lu(k,626) * lu(k,690) - lu(k,692) = lu(k,692) - lu(k,627) * lu(k,690) - lu(k,693) = lu(k,693) - lu(k,628) * lu(k,690) - lu(k,694) = lu(k,694) - lu(k,629) * lu(k,690) - lu(k,695) = lu(k,695) - lu(k,630) * lu(k,690) - lu(k,696) = lu(k,696) - lu(k,631) * lu(k,690) - lu(k,697) = lu(k,697) - lu(k,632) * lu(k,690) - lu(k,698) = lu(k,698) - lu(k,633) * lu(k,690) - lu(k,699) = lu(k,699) - lu(k,634) * lu(k,690) - lu(k,700) = lu(k,700) - lu(k,635) * lu(k,690) - lu(k,701) = lu(k,701) - lu(k,636) * lu(k,690) - lu(k,702) = lu(k,702) - lu(k,637) * lu(k,690) - lu(k,703) = lu(k,703) - lu(k,638) * lu(k,690) - lu(k,704) = lu(k,704) - lu(k,639) * lu(k,690) - lu(k,705) = lu(k,705) - lu(k,640) * lu(k,690) - lu(k,706) = lu(k,706) - lu(k,641) * lu(k,690) - lu(k,707) = lu(k,707) - lu(k,642) * lu(k,690) - lu(k,1142) = lu(k,1142) - lu(k,626) * lu(k,1140) - lu(k,1146) = lu(k,1146) - lu(k,627) * lu(k,1140) - lu(k,1153) = lu(k,1153) - lu(k,628) * lu(k,1140) - lu(k,1154) = lu(k,1154) - lu(k,629) * lu(k,1140) - lu(k,1155) = lu(k,1155) - lu(k,630) * lu(k,1140) - lu(k,1157) = lu(k,1157) - lu(k,631) * lu(k,1140) - lu(k,1158) = lu(k,1158) - lu(k,632) * lu(k,1140) - lu(k,1159) = lu(k,1159) - lu(k,633) * lu(k,1140) - lu(k,1161) = lu(k,1161) - lu(k,634) * lu(k,1140) - lu(k,1163) = lu(k,1163) - lu(k,635) * lu(k,1140) - lu(k,1164) = lu(k,1164) - lu(k,636) * lu(k,1140) - lu(k,1165) = lu(k,1165) - lu(k,637) * lu(k,1140) - lu(k,1166) = lu(k,1166) - lu(k,638) * lu(k,1140) - lu(k,1167) = lu(k,1167) - lu(k,639) * lu(k,1140) - lu(k,1168) = lu(k,1168) - lu(k,640) * lu(k,1140) - lu(k,1172) = lu(k,1172) - lu(k,641) * lu(k,1140) - lu(k,1174) = lu(k,1174) - lu(k,642) * lu(k,1140) - lu(k,1186) = lu(k,1186) - lu(k,626) * lu(k,1184) - lu(k,1189) = lu(k,1189) - lu(k,627) * lu(k,1184) - lu(k,1196) = lu(k,1196) - lu(k,628) * lu(k,1184) - lu(k,1197) = lu(k,1197) - lu(k,629) * lu(k,1184) - lu(k,1198) = lu(k,1198) - lu(k,630) * lu(k,1184) - lu(k,1200) = lu(k,1200) - lu(k,631) * lu(k,1184) - lu(k,1201) = lu(k,1201) - lu(k,632) * lu(k,1184) - lu(k,1202) = lu(k,1202) - lu(k,633) * lu(k,1184) - lu(k,1204) = lu(k,1204) - lu(k,634) * lu(k,1184) - lu(k,1206) = lu(k,1206) - lu(k,635) * lu(k,1184) - lu(k,1207) = lu(k,1207) - lu(k,636) * lu(k,1184) - lu(k,1208) = lu(k,1208) - lu(k,637) * lu(k,1184) - lu(k,1209) = lu(k,1209) - lu(k,638) * lu(k,1184) - lu(k,1210) = lu(k,1210) - lu(k,639) * lu(k,1184) - lu(k,1211) = lu(k,1211) - lu(k,640) * lu(k,1184) - lu(k,1215) = lu(k,1215) - lu(k,641) * lu(k,1184) - lu(k,1217) = lu(k,1217) - lu(k,642) * lu(k,1184) - lu(k,1229) = lu(k,1229) - lu(k,626) * lu(k,1227) - lu(k,1232) = lu(k,1232) - lu(k,627) * lu(k,1227) - lu(k,1239) = lu(k,1239) - lu(k,628) * lu(k,1227) - lu(k,1240) = lu(k,1240) - lu(k,629) * lu(k,1227) - lu(k,1241) = lu(k,1241) - lu(k,630) * lu(k,1227) - lu(k,1243) = lu(k,1243) - lu(k,631) * lu(k,1227) - lu(k,1244) = lu(k,1244) - lu(k,632) * lu(k,1227) - lu(k,1245) = lu(k,1245) - lu(k,633) * lu(k,1227) - lu(k,1247) = lu(k,1247) - lu(k,634) * lu(k,1227) - lu(k,1249) = lu(k,1249) - lu(k,635) * lu(k,1227) - lu(k,1250) = lu(k,1250) - lu(k,636) * lu(k,1227) - lu(k,1251) = lu(k,1251) - lu(k,637) * lu(k,1227) - lu(k,1252) = lu(k,1252) - lu(k,638) * lu(k,1227) - lu(k,1253) = lu(k,1253) - lu(k,639) * lu(k,1227) - lu(k,1254) = lu(k,1254) - lu(k,640) * lu(k,1227) - lu(k,1258) = lu(k,1258) - lu(k,641) * lu(k,1227) - lu(k,1260) = lu(k,1260) - lu(k,642) * lu(k,1227) - lu(k,1313) = lu(k,1313) - lu(k,626) * lu(k,1311) - lu(k,1316) = lu(k,1316) - lu(k,627) * lu(k,1311) - lu(k,1323) = lu(k,1323) - lu(k,628) * lu(k,1311) - lu(k,1324) = lu(k,1324) - lu(k,629) * lu(k,1311) - lu(k,1325) = lu(k,1325) - lu(k,630) * lu(k,1311) - lu(k,1327) = lu(k,1327) - lu(k,631) * lu(k,1311) - lu(k,1328) = lu(k,1328) - lu(k,632) * lu(k,1311) - lu(k,1329) = lu(k,1329) - lu(k,633) * lu(k,1311) - lu(k,1331) = lu(k,1331) - lu(k,634) * lu(k,1311) - lu(k,1333) = lu(k,1333) - lu(k,635) * lu(k,1311) - lu(k,1334) = lu(k,1334) - lu(k,636) * lu(k,1311) - lu(k,1335) = lu(k,1335) - lu(k,637) * lu(k,1311) - lu(k,1336) = lu(k,1336) - lu(k,638) * lu(k,1311) - lu(k,1337) = lu(k,1337) - lu(k,639) * lu(k,1311) - lu(k,1338) = lu(k,1338) - lu(k,640) * lu(k,1311) - lu(k,1342) = lu(k,1342) - lu(k,641) * lu(k,1311) - lu(k,1344) = lu(k,1344) - lu(k,642) * lu(k,1311) - lu(k,1591) = lu(k,1591) - lu(k,626) * lu(k,1589) - lu(k,1595) = lu(k,1595) - lu(k,627) * lu(k,1589) - lu(k,1602) = lu(k,1602) - lu(k,628) * lu(k,1589) - lu(k,1603) = lu(k,1603) - lu(k,629) * lu(k,1589) - lu(k,1604) = lu(k,1604) - lu(k,630) * lu(k,1589) - lu(k,1606) = lu(k,1606) - lu(k,631) * lu(k,1589) - lu(k,1607) = lu(k,1607) - lu(k,632) * lu(k,1589) - lu(k,1608) = lu(k,1608) - lu(k,633) * lu(k,1589) - lu(k,1610) = lu(k,1610) - lu(k,634) * lu(k,1589) - lu(k,1612) = lu(k,1612) - lu(k,635) * lu(k,1589) - lu(k,1613) = lu(k,1613) - lu(k,636) * lu(k,1589) - lu(k,1614) = lu(k,1614) - lu(k,637) * lu(k,1589) - lu(k,1615) = lu(k,1615) - lu(k,638) * lu(k,1589) - lu(k,1616) = lu(k,1616) - lu(k,639) * lu(k,1589) - lu(k,1617) = lu(k,1617) - lu(k,640) * lu(k,1589) - lu(k,1621) = lu(k,1621) - lu(k,641) * lu(k,1589) - lu(k,1623) = lu(k,1623) - lu(k,642) * lu(k,1589) - lu(k,1635) = lu(k,1635) - lu(k,626) * lu(k,1633) - lu(k,1638) = lu(k,1638) - lu(k,627) * lu(k,1633) - lu(k,1645) = lu(k,1645) - lu(k,628) * lu(k,1633) - lu(k,1646) = lu(k,1646) - lu(k,629) * lu(k,1633) - lu(k,1647) = lu(k,1647) - lu(k,630) * lu(k,1633) - lu(k,1649) = lu(k,1649) - lu(k,631) * lu(k,1633) - lu(k,1650) = lu(k,1650) - lu(k,632) * lu(k,1633) - lu(k,1651) = lu(k,1651) - lu(k,633) * lu(k,1633) - lu(k,1653) = lu(k,1653) - lu(k,634) * lu(k,1633) - lu(k,1655) = lu(k,1655) - lu(k,635) * lu(k,1633) - lu(k,1656) = lu(k,1656) - lu(k,636) * lu(k,1633) - lu(k,1657) = lu(k,1657) - lu(k,637) * lu(k,1633) - lu(k,1658) = lu(k,1658) - lu(k,638) * lu(k,1633) - lu(k,1659) = lu(k,1659) - lu(k,639) * lu(k,1633) - lu(k,1660) = lu(k,1660) - lu(k,640) * lu(k,1633) - lu(k,1664) = lu(k,1664) - lu(k,641) * lu(k,1633) - lu(k,1666) = lu(k,1666) - lu(k,642) * lu(k,1633) - lu(k,1678) = lu(k,1678) - lu(k,626) * lu(k,1676) - lu(k,1681) = lu(k,1681) - lu(k,627) * lu(k,1676) - lu(k,1688) = lu(k,1688) - lu(k,628) * lu(k,1676) - lu(k,1689) = lu(k,1689) - lu(k,629) * lu(k,1676) - lu(k,1690) = lu(k,1690) - lu(k,630) * lu(k,1676) - lu(k,1692) = lu(k,1692) - lu(k,631) * lu(k,1676) - lu(k,1693) = lu(k,1693) - lu(k,632) * lu(k,1676) - lu(k,1694) = lu(k,1694) - lu(k,633) * lu(k,1676) - lu(k,1696) = lu(k,1696) - lu(k,634) * lu(k,1676) - lu(k,1698) = lu(k,1698) - lu(k,635) * lu(k,1676) - lu(k,1699) = lu(k,1699) - lu(k,636) * lu(k,1676) - lu(k,1700) = lu(k,1700) - lu(k,637) * lu(k,1676) - lu(k,1701) = lu(k,1701) - lu(k,638) * lu(k,1676) - lu(k,1702) = lu(k,1702) - lu(k,639) * lu(k,1676) - lu(k,1703) = lu(k,1703) - lu(k,640) * lu(k,1676) - lu(k,1707) = lu(k,1707) - lu(k,641) * lu(k,1676) - lu(k,1709) = lu(k,1709) - lu(k,642) * lu(k,1676) - lu(k,1718) = lu(k,1718) - lu(k,626) * lu(k,1717) - lu(k,1722) = lu(k,1722) - lu(k,627) * lu(k,1717) - lu(k,1728) = lu(k,1728) - lu(k,628) * lu(k,1717) - lu(k,1729) = lu(k,1729) - lu(k,629) * lu(k,1717) - lu(k,1730) = lu(k,1730) - lu(k,630) * lu(k,1717) - lu(k,1732) = lu(k,1732) - lu(k,631) * lu(k,1717) - lu(k,1733) = lu(k,1733) - lu(k,632) * lu(k,1717) - lu(k,1734) = lu(k,1734) - lu(k,633) * lu(k,1717) - lu(k,1736) = lu(k,1736) - lu(k,634) * lu(k,1717) - lu(k,1738) = lu(k,1738) - lu(k,635) * lu(k,1717) - lu(k,1739) = lu(k,1739) - lu(k,636) * lu(k,1717) - lu(k,1740) = lu(k,1740) - lu(k,637) * lu(k,1717) - lu(k,1741) = lu(k,1741) - lu(k,638) * lu(k,1717) - lu(k,1742) = lu(k,1742) - lu(k,639) * lu(k,1717) - lu(k,1743) = lu(k,1743) - lu(k,640) * lu(k,1717) - lu(k,1747) = lu(k,1747) - lu(k,641) * lu(k,1717) - lu(k,1749) = lu(k,1749) - lu(k,642) * lu(k,1717) - lu(k,1800) = lu(k,1800) - lu(k,626) * lu(k,1798) - lu(k,1805) = lu(k,1805) - lu(k,627) * lu(k,1798) - lu(k,1812) = lu(k,1812) - lu(k,628) * lu(k,1798) - lu(k,1813) = lu(k,1813) - lu(k,629) * lu(k,1798) - lu(k,1814) = lu(k,1814) - lu(k,630) * lu(k,1798) - lu(k,1816) = lu(k,1816) - lu(k,631) * lu(k,1798) - lu(k,1817) = lu(k,1817) - lu(k,632) * lu(k,1798) - lu(k,1818) = lu(k,1818) - lu(k,633) * lu(k,1798) - lu(k,1820) = lu(k,1820) - lu(k,634) * lu(k,1798) - lu(k,1822) = lu(k,1822) - lu(k,635) * lu(k,1798) - lu(k,1823) = lu(k,1823) - lu(k,636) * lu(k,1798) - lu(k,1824) = lu(k,1824) - lu(k,637) * lu(k,1798) - lu(k,1825) = lu(k,1825) - lu(k,638) * lu(k,1798) - lu(k,1826) = lu(k,1826) - lu(k,639) * lu(k,1798) - lu(k,1827) = lu(k,1827) - lu(k,640) * lu(k,1798) - lu(k,1831) = lu(k,1831) - lu(k,641) * lu(k,1798) - lu(k,1833) = lu(k,1833) - lu(k,642) * lu(k,1798) - lu(k,2057) = lu(k,2057) - lu(k,626) * lu(k,2054) - lu(k,2062) = lu(k,2062) - lu(k,627) * lu(k,2054) - lu(k,2069) = lu(k,2069) - lu(k,628) * lu(k,2054) - lu(k,2070) = lu(k,2070) - lu(k,629) * lu(k,2054) - lu(k,2071) = lu(k,2071) - lu(k,630) * lu(k,2054) - lu(k,2073) = lu(k,2073) - lu(k,631) * lu(k,2054) - lu(k,2074) = lu(k,2074) - lu(k,632) * lu(k,2054) - lu(k,2075) = lu(k,2075) - lu(k,633) * lu(k,2054) - lu(k,2077) = lu(k,2077) - lu(k,634) * lu(k,2054) - lu(k,2079) = lu(k,2079) - lu(k,635) * lu(k,2054) - lu(k,2080) = lu(k,2080) - lu(k,636) * lu(k,2054) - lu(k,2081) = lu(k,2081) - lu(k,637) * lu(k,2054) - lu(k,2082) = lu(k,2082) - lu(k,638) * lu(k,2054) - lu(k,2083) = lu(k,2083) - lu(k,639) * lu(k,2054) - lu(k,2084) = lu(k,2084) - lu(k,640) * lu(k,2054) - lu(k,2088) = lu(k,2088) - lu(k,641) * lu(k,2054) - lu(k,2090) = lu(k,2090) - lu(k,642) * lu(k,2054) - lu(k,647) = 1._r8 / lu(k,647) - lu(k,648) = lu(k,648) * lu(k,647) - lu(k,649) = lu(k,649) * lu(k,647) - lu(k,650) = lu(k,650) * lu(k,647) - lu(k,651) = lu(k,651) * lu(k,647) - lu(k,652) = lu(k,652) * lu(k,647) - lu(k,653) = lu(k,653) * lu(k,647) - lu(k,654) = lu(k,654) * lu(k,647) - lu(k,655) = lu(k,655) * lu(k,647) - lu(k,656) = lu(k,656) * lu(k,647) - lu(k,657) = lu(k,657) * lu(k,647) - lu(k,658) = lu(k,658) * lu(k,647) - lu(k,659) = lu(k,659) * lu(k,647) - lu(k,660) = lu(k,660) * lu(k,647) - lu(k,661) = lu(k,661) * lu(k,647) - lu(k,662) = lu(k,662) * lu(k,647) - lu(k,663) = lu(k,663) * lu(k,647) - lu(k,664) = lu(k,664) * lu(k,647) - lu(k,665) = lu(k,665) * lu(k,647) - lu(k,666) = lu(k,666) * lu(k,647) - lu(k,738) = lu(k,738) - lu(k,648) * lu(k,736) - lu(k,739) = lu(k,739) - lu(k,649) * lu(k,736) - lu(k,740) = lu(k,740) - lu(k,650) * lu(k,736) - lu(k,741) = lu(k,741) - lu(k,651) * lu(k,736) - lu(k,742) = - lu(k,652) * lu(k,736) - lu(k,743) = - lu(k,653) * lu(k,736) - lu(k,744) = lu(k,744) - lu(k,654) * lu(k,736) - lu(k,745) = lu(k,745) - lu(k,655) * lu(k,736) - lu(k,746) = lu(k,746) - lu(k,656) * lu(k,736) - lu(k,747) = lu(k,747) - lu(k,657) * lu(k,736) - lu(k,748) = lu(k,748) - lu(k,658) * lu(k,736) - lu(k,749) = lu(k,749) - lu(k,659) * lu(k,736) - lu(k,750) = lu(k,750) - lu(k,660) * lu(k,736) - lu(k,751) = - lu(k,661) * lu(k,736) - lu(k,752) = - lu(k,662) * lu(k,736) - lu(k,753) = - lu(k,663) * lu(k,736) - lu(k,755) = - lu(k,664) * lu(k,736) - lu(k,756) = lu(k,756) - lu(k,665) * lu(k,736) - lu(k,757) = lu(k,757) - lu(k,666) * lu(k,736) - lu(k,786) = lu(k,786) - lu(k,648) * lu(k,784) - lu(k,787) = lu(k,787) - lu(k,649) * lu(k,784) - lu(k,788) = lu(k,788) - lu(k,650) * lu(k,784) - lu(k,789) = lu(k,789) - lu(k,651) * lu(k,784) - lu(k,790) = lu(k,790) - lu(k,652) * lu(k,784) - lu(k,791) = lu(k,791) - lu(k,653) * lu(k,784) - lu(k,793) = lu(k,793) - lu(k,654) * lu(k,784) - lu(k,794) = lu(k,794) - lu(k,655) * lu(k,784) - lu(k,795) = lu(k,795) - lu(k,656) * lu(k,784) - lu(k,796) = lu(k,796) - lu(k,657) * lu(k,784) - lu(k,797) = lu(k,797) - lu(k,658) * lu(k,784) - lu(k,800) = lu(k,800) - lu(k,659) * lu(k,784) - lu(k,801) = lu(k,801) - lu(k,660) * lu(k,784) - lu(k,802) = lu(k,802) - lu(k,661) * lu(k,784) - lu(k,803) = - lu(k,662) * lu(k,784) - lu(k,804) = lu(k,804) - lu(k,663) * lu(k,784) - lu(k,806) = lu(k,806) - lu(k,664) * lu(k,784) - lu(k,807) = lu(k,807) - lu(k,665) * lu(k,784) - lu(k,808) = lu(k,808) - lu(k,666) * lu(k,784) - lu(k,898) = lu(k,898) - lu(k,648) * lu(k,896) - lu(k,899) = lu(k,899) - lu(k,649) * lu(k,896) - lu(k,900) = lu(k,900) - lu(k,650) * lu(k,896) - lu(k,901) = lu(k,901) - lu(k,651) * lu(k,896) - lu(k,902) = lu(k,902) - lu(k,652) * lu(k,896) - lu(k,903) = lu(k,903) - lu(k,653) * lu(k,896) - lu(k,905) = lu(k,905) - lu(k,654) * lu(k,896) - lu(k,907) = lu(k,907) - lu(k,655) * lu(k,896) - lu(k,908) = lu(k,908) - lu(k,656) * lu(k,896) - lu(k,909) = lu(k,909) - lu(k,657) * lu(k,896) - lu(k,910) = - lu(k,658) * lu(k,896) - lu(k,913) = lu(k,913) - lu(k,659) * lu(k,896) - lu(k,914) = lu(k,914) - lu(k,660) * lu(k,896) - lu(k,915) = lu(k,915) - lu(k,661) * lu(k,896) - lu(k,916) = - lu(k,662) * lu(k,896) - lu(k,917) = - lu(k,663) * lu(k,896) - lu(k,919) = lu(k,919) - lu(k,664) * lu(k,896) - lu(k,920) = lu(k,920) - lu(k,665) * lu(k,896) - lu(k,921) = lu(k,921) - lu(k,666) * lu(k,896) - lu(k,981) = lu(k,981) - lu(k,648) * lu(k,979) - lu(k,982) = lu(k,982) - lu(k,649) * lu(k,979) - lu(k,983) = lu(k,983) - lu(k,650) * lu(k,979) - lu(k,984) = lu(k,984) - lu(k,651) * lu(k,979) - lu(k,985) = lu(k,985) - lu(k,652) * lu(k,979) - lu(k,986) = lu(k,986) - lu(k,653) * lu(k,979) - lu(k,989) = lu(k,989) - lu(k,654) * lu(k,979) - lu(k,991) = lu(k,991) - lu(k,655) * lu(k,979) - lu(k,992) = lu(k,992) - lu(k,656) * lu(k,979) - lu(k,993) = lu(k,993) - lu(k,657) * lu(k,979) - lu(k,994) = lu(k,994) - lu(k,658) * lu(k,979) - lu(k,997) = lu(k,997) - lu(k,659) * lu(k,979) - lu(k,998) = lu(k,998) - lu(k,660) * lu(k,979) - lu(k,999) = lu(k,999) - lu(k,661) * lu(k,979) - lu(k,1000) = - lu(k,662) * lu(k,979) - lu(k,1001) = - lu(k,663) * lu(k,979) - lu(k,1003) = lu(k,1003) - lu(k,664) * lu(k,979) - lu(k,1004) = lu(k,1004) - lu(k,665) * lu(k,979) - lu(k,1005) = lu(k,1005) - lu(k,666) * lu(k,979) - lu(k,1372) = lu(k,1372) - lu(k,648) * lu(k,1370) - lu(k,1373) = lu(k,1373) - lu(k,649) * lu(k,1370) - lu(k,1377) = lu(k,1377) - lu(k,650) * lu(k,1370) - lu(k,1379) = lu(k,1379) - lu(k,651) * lu(k,1370) - lu(k,1381) = lu(k,1381) - lu(k,652) * lu(k,1370) - lu(k,1382) = lu(k,1382) - lu(k,653) * lu(k,1370) - lu(k,1386) = lu(k,1386) - lu(k,654) * lu(k,1370) - lu(k,1388) = lu(k,1388) - lu(k,655) * lu(k,1370) - lu(k,1389) = lu(k,1389) - lu(k,656) * lu(k,1370) - lu(k,1390) = lu(k,1390) - lu(k,657) * lu(k,1370) - lu(k,1391) = lu(k,1391) - lu(k,658) * lu(k,1370) - lu(k,1396) = lu(k,1396) - lu(k,659) * lu(k,1370) - lu(k,1397) = lu(k,1397) - lu(k,660) * lu(k,1370) - lu(k,1398) = lu(k,1398) - lu(k,661) * lu(k,1370) - lu(k,1399) = lu(k,1399) - lu(k,662) * lu(k,1370) - lu(k,1400) = lu(k,1400) - lu(k,663) * lu(k,1370) - lu(k,1402) = lu(k,1402) - lu(k,664) * lu(k,1370) - lu(k,1403) = lu(k,1403) - lu(k,665) * lu(k,1370) - lu(k,1404) = lu(k,1404) - lu(k,666) * lu(k,1370) - lu(k,1469) = lu(k,1469) - lu(k,648) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,649) * lu(k,1467) - lu(k,1474) = lu(k,1474) - lu(k,650) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,651) * lu(k,1467) - lu(k,1478) = - lu(k,652) * lu(k,1467) - lu(k,1479) = lu(k,1479) - lu(k,653) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,654) * lu(k,1467) - lu(k,1485) = lu(k,1485) - lu(k,655) * lu(k,1467) - lu(k,1486) = lu(k,1486) - lu(k,656) * lu(k,1467) - lu(k,1487) = lu(k,1487) - lu(k,657) * lu(k,1467) - lu(k,1488) = lu(k,1488) - lu(k,658) * lu(k,1467) - lu(k,1493) = lu(k,1493) - lu(k,659) * lu(k,1467) - lu(k,1494) = lu(k,1494) - lu(k,660) * lu(k,1467) - lu(k,1495) = lu(k,1495) - lu(k,661) * lu(k,1467) - lu(k,1496) = lu(k,1496) - lu(k,662) * lu(k,1467) - lu(k,1497) = lu(k,1497) - lu(k,663) * lu(k,1467) - lu(k,1499) = lu(k,1499) - lu(k,664) * lu(k,1467) - lu(k,1500) = lu(k,1500) - lu(k,665) * lu(k,1467) - lu(k,1501) = lu(k,1501) - lu(k,666) * lu(k,1467) - lu(k,1511) = lu(k,1511) - lu(k,648) * lu(k,1509) - lu(k,1512) = lu(k,1512) - lu(k,649) * lu(k,1509) - lu(k,1515) = lu(k,1515) - lu(k,650) * lu(k,1509) - lu(k,1517) = lu(k,1517) - lu(k,651) * lu(k,1509) - lu(k,1519) = - lu(k,652) * lu(k,1509) - lu(k,1520) = lu(k,1520) - lu(k,653) * lu(k,1509) - lu(k,1524) = lu(k,1524) - lu(k,654) * lu(k,1509) - lu(k,1526) = lu(k,1526) - lu(k,655) * lu(k,1509) - lu(k,1527) = lu(k,1527) - lu(k,656) * lu(k,1509) - lu(k,1528) = lu(k,1528) - lu(k,657) * lu(k,1509) - lu(k,1529) = lu(k,1529) - lu(k,658) * lu(k,1509) - lu(k,1534) = lu(k,1534) - lu(k,659) * lu(k,1509) - lu(k,1535) = lu(k,1535) - lu(k,660) * lu(k,1509) - lu(k,1536) = lu(k,1536) - lu(k,661) * lu(k,1509) - lu(k,1537) = - lu(k,662) * lu(k,1509) - lu(k,1538) = lu(k,1538) - lu(k,663) * lu(k,1509) - lu(k,1540) = lu(k,1540) - lu(k,664) * lu(k,1509) - lu(k,1541) = lu(k,1541) - lu(k,665) * lu(k,1509) - lu(k,1542) = lu(k,1542) - lu(k,666) * lu(k,1509) - lu(k,1753) = - lu(k,648) * lu(k,1752) - lu(k,1754) = - lu(k,649) * lu(k,1752) - lu(k,1758) = lu(k,1758) - lu(k,650) * lu(k,1752) - lu(k,1760) = lu(k,1760) - lu(k,651) * lu(k,1752) - lu(k,1762) = lu(k,1762) - lu(k,652) * lu(k,1752) - lu(k,1763) = - lu(k,653) * lu(k,1752) - lu(k,1767) = lu(k,1767) - lu(k,654) * lu(k,1752) - lu(k,1769) = lu(k,1769) - lu(k,655) * lu(k,1752) - lu(k,1770) = lu(k,1770) - lu(k,656) * lu(k,1752) - lu(k,1771) = - lu(k,657) * lu(k,1752) - lu(k,1772) = - lu(k,658) * lu(k,1752) - lu(k,1777) = - lu(k,659) * lu(k,1752) - lu(k,1778) = lu(k,1778) - lu(k,660) * lu(k,1752) - lu(k,1779) = lu(k,1779) - lu(k,661) * lu(k,1752) - lu(k,1780) = lu(k,1780) - lu(k,662) * lu(k,1752) - lu(k,1781) = lu(k,1781) - lu(k,663) * lu(k,1752) - lu(k,1783) = lu(k,1783) - lu(k,664) * lu(k,1752) - lu(k,1784) = lu(k,1784) - lu(k,665) * lu(k,1752) - lu(k,1785) = lu(k,1785) - lu(k,666) * lu(k,1752) - lu(k,1871) = - lu(k,648) * lu(k,1870) - lu(k,1872) = - lu(k,649) * lu(k,1870) - lu(k,1875) = - lu(k,650) * lu(k,1870) - lu(k,1877) = lu(k,1877) - lu(k,651) * lu(k,1870) - lu(k,1879) = lu(k,1879) - lu(k,652) * lu(k,1870) - lu(k,1880) = lu(k,1880) - lu(k,653) * lu(k,1870) - lu(k,1884) = lu(k,1884) - lu(k,654) * lu(k,1870) - lu(k,1886) = lu(k,1886) - lu(k,655) * lu(k,1870) - lu(k,1887) = lu(k,1887) - lu(k,656) * lu(k,1870) - lu(k,1888) = lu(k,1888) - lu(k,657) * lu(k,1870) - lu(k,1889) = lu(k,1889) - lu(k,658) * lu(k,1870) - lu(k,1894) = - lu(k,659) * lu(k,1870) - lu(k,1895) = lu(k,1895) - lu(k,660) * lu(k,1870) - lu(k,1896) = lu(k,1896) - lu(k,661) * lu(k,1870) - lu(k,1897) = lu(k,1897) - lu(k,662) * lu(k,1870) - lu(k,1898) = lu(k,1898) - lu(k,663) * lu(k,1870) - lu(k,1900) = lu(k,1900) - lu(k,664) * lu(k,1870) - lu(k,1901) = lu(k,1901) - lu(k,665) * lu(k,1870) - lu(k,1902) = lu(k,1902) - lu(k,666) * lu(k,1870) - lu(k,2059) = lu(k,2059) - lu(k,648) * lu(k,2055) - lu(k,2060) = lu(k,2060) - lu(k,649) * lu(k,2055) - lu(k,2063) = lu(k,2063) - lu(k,650) * lu(k,2055) - lu(k,2065) = lu(k,2065) - lu(k,651) * lu(k,2055) - lu(k,2067) = lu(k,2067) - lu(k,652) * lu(k,2055) - lu(k,2068) = lu(k,2068) - lu(k,653) * lu(k,2055) - lu(k,2072) = lu(k,2072) - lu(k,654) * lu(k,2055) - lu(k,2074) = lu(k,2074) - lu(k,655) * lu(k,2055) - lu(k,2075) = lu(k,2075) - lu(k,656) * lu(k,2055) - lu(k,2076) = lu(k,2076) - lu(k,657) * lu(k,2055) - lu(k,2077) = lu(k,2077) - lu(k,658) * lu(k,2055) - lu(k,2082) = lu(k,2082) - lu(k,659) * lu(k,2055) - lu(k,2083) = lu(k,2083) - lu(k,660) * lu(k,2055) - lu(k,2084) = lu(k,2084) - lu(k,661) * lu(k,2055) - lu(k,2085) = lu(k,2085) - lu(k,662) * lu(k,2055) - lu(k,2086) = lu(k,2086) - lu(k,663) * lu(k,2055) - lu(k,2088) = lu(k,2088) - lu(k,664) * lu(k,2055) - lu(k,2089) = lu(k,2089) - lu(k,665) * lu(k,2055) - lu(k,2090) = lu(k,2090) - lu(k,666) * lu(k,2055) + lu(k,596) = 1._r8 / lu(k,596) + lu(k,597) = lu(k,597) * lu(k,596) + lu(k,598) = lu(k,598) * lu(k,596) + lu(k,599) = lu(k,599) * lu(k,596) + lu(k,600) = lu(k,600) * lu(k,596) + lu(k,601) = lu(k,601) * lu(k,596) + lu(k,602) = lu(k,602) * lu(k,596) + lu(k,603) = lu(k,603) * lu(k,596) + lu(k,604) = lu(k,604) * lu(k,596) + lu(k,605) = lu(k,605) * lu(k,596) + lu(k,606) = lu(k,606) * lu(k,596) + lu(k,607) = lu(k,607) * lu(k,596) + lu(k,608) = lu(k,608) * lu(k,596) + lu(k,609) = lu(k,609) * lu(k,596) + lu(k,610) = lu(k,610) * lu(k,596) + lu(k,836) = - lu(k,597) * lu(k,833) + lu(k,838) = lu(k,838) - lu(k,598) * lu(k,833) + lu(k,840) = lu(k,840) - lu(k,599) * lu(k,833) + lu(k,841) = - lu(k,600) * lu(k,833) + lu(k,845) = lu(k,845) - lu(k,601) * lu(k,833) + lu(k,848) = lu(k,848) - lu(k,602) * lu(k,833) + lu(k,852) = lu(k,852) - lu(k,603) * lu(k,833) + lu(k,855) = lu(k,855) - lu(k,604) * lu(k,833) + lu(k,856) = lu(k,856) - lu(k,605) * lu(k,833) + lu(k,857) = lu(k,857) - lu(k,606) * lu(k,833) + lu(k,858) = - lu(k,607) * lu(k,833) + lu(k,859) = - lu(k,608) * lu(k,833) + lu(k,860) = lu(k,860) - lu(k,609) * lu(k,833) + lu(k,861) = lu(k,861) - lu(k,610) * lu(k,833) + lu(k,1013) = lu(k,1013) - lu(k,597) * lu(k,1009) + lu(k,1014) = lu(k,1014) - lu(k,598) * lu(k,1009) + lu(k,1016) = lu(k,1016) - lu(k,599) * lu(k,1009) + lu(k,1017) = - lu(k,600) * lu(k,1009) + lu(k,1021) = - lu(k,601) * lu(k,1009) + lu(k,1024) = lu(k,1024) - lu(k,602) * lu(k,1009) + lu(k,1028) = lu(k,1028) - lu(k,603) * lu(k,1009) + lu(k,1031) = lu(k,1031) - lu(k,604) * lu(k,1009) + lu(k,1033) = lu(k,1033) - lu(k,605) * lu(k,1009) + lu(k,1034) = lu(k,1034) - lu(k,606) * lu(k,1009) + lu(k,1035) = lu(k,1035) - lu(k,607) * lu(k,1009) + lu(k,1036) = lu(k,1036) - lu(k,608) * lu(k,1009) + lu(k,1037) = lu(k,1037) - lu(k,609) * lu(k,1009) + lu(k,1038) = lu(k,1038) - lu(k,610) * lu(k,1009) + lu(k,1231) = lu(k,1231) - lu(k,597) * lu(k,1226) + lu(k,1233) = lu(k,1233) - lu(k,598) * lu(k,1226) + lu(k,1235) = - lu(k,599) * lu(k,1226) + lu(k,1236) = lu(k,1236) - lu(k,600) * lu(k,1226) + lu(k,1240) = lu(k,1240) - lu(k,601) * lu(k,1226) + lu(k,1243) = lu(k,1243) - lu(k,602) * lu(k,1226) + lu(k,1247) = lu(k,1247) - lu(k,603) * lu(k,1226) + lu(k,1250) = lu(k,1250) - lu(k,604) * lu(k,1226) + lu(k,1252) = lu(k,1252) - lu(k,605) * lu(k,1226) + lu(k,1253) = lu(k,1253) - lu(k,606) * lu(k,1226) + lu(k,1254) = lu(k,1254) - lu(k,607) * lu(k,1226) + lu(k,1255) = lu(k,1255) - lu(k,608) * lu(k,1226) + lu(k,1256) = lu(k,1256) - lu(k,609) * lu(k,1226) + lu(k,1257) = lu(k,1257) - lu(k,610) * lu(k,1226) + lu(k,1376) = lu(k,1376) - lu(k,597) * lu(k,1369) + lu(k,1378) = lu(k,1378) - lu(k,598) * lu(k,1369) + lu(k,1380) = lu(k,1380) - lu(k,599) * lu(k,1369) + lu(k,1381) = lu(k,1381) - lu(k,600) * lu(k,1369) + lu(k,1385) = lu(k,1385) - lu(k,601) * lu(k,1369) + lu(k,1388) = lu(k,1388) - lu(k,602) * lu(k,1369) + lu(k,1392) = lu(k,1392) - lu(k,603) * lu(k,1369) + lu(k,1395) = lu(k,1395) - lu(k,604) * lu(k,1369) + lu(k,1397) = lu(k,1397) - lu(k,605) * lu(k,1369) + lu(k,1398) = lu(k,1398) - lu(k,606) * lu(k,1369) + lu(k,1399) = lu(k,1399) - lu(k,607) * lu(k,1369) + lu(k,1400) = lu(k,1400) - lu(k,608) * lu(k,1369) + lu(k,1401) = lu(k,1401) - lu(k,609) * lu(k,1369) + lu(k,1402) = lu(k,1402) - lu(k,610) * lu(k,1369) + lu(k,1544) = lu(k,1544) - lu(k,597) * lu(k,1541) + lu(k,1546) = lu(k,1546) - lu(k,598) * lu(k,1541) + lu(k,1548) = - lu(k,599) * lu(k,1541) + lu(k,1549) = lu(k,1549) - lu(k,600) * lu(k,1541) + lu(k,1553) = lu(k,1553) - lu(k,601) * lu(k,1541) + lu(k,1556) = lu(k,1556) - lu(k,602) * lu(k,1541) + lu(k,1560) = lu(k,1560) - lu(k,603) * lu(k,1541) + lu(k,1563) = lu(k,1563) - lu(k,604) * lu(k,1541) + lu(k,1565) = lu(k,1565) - lu(k,605) * lu(k,1541) + lu(k,1566) = lu(k,1566) - lu(k,606) * lu(k,1541) + lu(k,1567) = - lu(k,607) * lu(k,1541) + lu(k,1568) = lu(k,1568) - lu(k,608) * lu(k,1541) + lu(k,1569) = lu(k,1569) - lu(k,609) * lu(k,1541) + lu(k,1570) = lu(k,1570) - lu(k,610) * lu(k,1541) + lu(k,1674) = - lu(k,597) * lu(k,1671) + lu(k,1676) = - lu(k,598) * lu(k,1671) + lu(k,1678) = lu(k,1678) - lu(k,599) * lu(k,1671) + lu(k,1679) = lu(k,1679) - lu(k,600) * lu(k,1671) + lu(k,1683) = lu(k,1683) - lu(k,601) * lu(k,1671) + lu(k,1686) = lu(k,1686) - lu(k,602) * lu(k,1671) + lu(k,1690) = lu(k,1690) - lu(k,603) * lu(k,1671) + lu(k,1693) = lu(k,1693) - lu(k,604) * lu(k,1671) + lu(k,1695) = lu(k,1695) - lu(k,605) * lu(k,1671) + lu(k,1696) = lu(k,1696) - lu(k,606) * lu(k,1671) + lu(k,1697) = lu(k,1697) - lu(k,607) * lu(k,1671) + lu(k,1698) = lu(k,1698) - lu(k,608) * lu(k,1671) + lu(k,1699) = lu(k,1699) - lu(k,609) * lu(k,1671) + lu(k,1700) = lu(k,1700) - lu(k,610) * lu(k,1671) + lu(k,1750) = - lu(k,597) * lu(k,1744) + lu(k,1752) = lu(k,1752) - lu(k,598) * lu(k,1744) + lu(k,1754) = lu(k,1754) - lu(k,599) * lu(k,1744) + lu(k,1755) = lu(k,1755) - lu(k,600) * lu(k,1744) + lu(k,1759) = lu(k,1759) - lu(k,601) * lu(k,1744) + lu(k,1762) = lu(k,1762) - lu(k,602) * lu(k,1744) + lu(k,1766) = lu(k,1766) - lu(k,603) * lu(k,1744) + lu(k,1769) = lu(k,1769) - lu(k,604) * lu(k,1744) + lu(k,1771) = lu(k,1771) - lu(k,605) * lu(k,1744) + lu(k,1772) = - lu(k,606) * lu(k,1744) + lu(k,1773) = lu(k,1773) - lu(k,607) * lu(k,1744) + lu(k,1774) = - lu(k,608) * lu(k,1744) + lu(k,1775) = lu(k,1775) - lu(k,609) * lu(k,1744) + lu(k,1776) = lu(k,1776) - lu(k,610) * lu(k,1744) + lu(k,1798) = lu(k,1798) - lu(k,597) * lu(k,1789) + lu(k,1800) = lu(k,1800) - lu(k,598) * lu(k,1789) + lu(k,1802) = lu(k,1802) - lu(k,599) * lu(k,1789) + lu(k,1803) = lu(k,1803) - lu(k,600) * lu(k,1789) + lu(k,1807) = lu(k,1807) - lu(k,601) * lu(k,1789) + lu(k,1810) = lu(k,1810) - lu(k,602) * lu(k,1789) + lu(k,1814) = lu(k,1814) - lu(k,603) * lu(k,1789) + lu(k,1817) = lu(k,1817) - lu(k,604) * lu(k,1789) + lu(k,1819) = lu(k,1819) - lu(k,605) * lu(k,1789) + lu(k,1820) = lu(k,1820) - lu(k,606) * lu(k,1789) + lu(k,1821) = lu(k,1821) - lu(k,607) * lu(k,1789) + lu(k,1822) = lu(k,1822) - lu(k,608) * lu(k,1789) + lu(k,1823) = lu(k,1823) - lu(k,609) * lu(k,1789) + lu(k,1824) = lu(k,1824) - lu(k,610) * lu(k,1789) + lu(k,1831) = - lu(k,597) * lu(k,1829) + lu(k,1833) = lu(k,1833) - lu(k,598) * lu(k,1829) + lu(k,1835) = - lu(k,599) * lu(k,1829) + lu(k,1836) = lu(k,1836) - lu(k,600) * lu(k,1829) + lu(k,1840) = lu(k,1840) - lu(k,601) * lu(k,1829) + lu(k,1843) = lu(k,1843) - lu(k,602) * lu(k,1829) + lu(k,1847) = - lu(k,603) * lu(k,1829) + lu(k,1850) = lu(k,1850) - lu(k,604) * lu(k,1829) + lu(k,1852) = lu(k,1852) - lu(k,605) * lu(k,1829) + lu(k,1853) = lu(k,1853) - lu(k,606) * lu(k,1829) + lu(k,1854) = lu(k,1854) - lu(k,607) * lu(k,1829) + lu(k,1855) = - lu(k,608) * lu(k,1829) + lu(k,1856) = lu(k,1856) - lu(k,609) * lu(k,1829) + lu(k,1857) = lu(k,1857) - lu(k,610) * lu(k,1829) + lu(k,1867) = lu(k,1867) - lu(k,597) * lu(k,1862) + lu(k,1869) = lu(k,1869) - lu(k,598) * lu(k,1862) + lu(k,1871) = lu(k,1871) - lu(k,599) * lu(k,1862) + lu(k,1872) = lu(k,1872) - lu(k,600) * lu(k,1862) + lu(k,1876) = lu(k,1876) - lu(k,601) * lu(k,1862) + lu(k,1879) = lu(k,1879) - lu(k,602) * lu(k,1862) + lu(k,1883) = lu(k,1883) - lu(k,603) * lu(k,1862) + lu(k,1886) = lu(k,1886) - lu(k,604) * lu(k,1862) + lu(k,1888) = lu(k,1888) - lu(k,605) * lu(k,1862) + lu(k,1889) = lu(k,1889) - lu(k,606) * lu(k,1862) + lu(k,1890) = lu(k,1890) - lu(k,607) * lu(k,1862) + lu(k,1891) = lu(k,1891) - lu(k,608) * lu(k,1862) + lu(k,1892) = lu(k,1892) - lu(k,609) * lu(k,1862) + lu(k,1893) = lu(k,1893) - lu(k,610) * lu(k,1862) + lu(k,1916) = - lu(k,597) * lu(k,1911) + lu(k,1918) = - lu(k,598) * lu(k,1911) + lu(k,1920) = lu(k,1920) - lu(k,599) * lu(k,1911) + lu(k,1921) = lu(k,1921) - lu(k,600) * lu(k,1911) + lu(k,1925) = lu(k,1925) - lu(k,601) * lu(k,1911) + lu(k,1928) = lu(k,1928) - lu(k,602) * lu(k,1911) + lu(k,1932) = lu(k,1932) - lu(k,603) * lu(k,1911) + lu(k,1935) = lu(k,1935) - lu(k,604) * lu(k,1911) + lu(k,1937) = lu(k,1937) - lu(k,605) * lu(k,1911) + lu(k,1938) = lu(k,1938) - lu(k,606) * lu(k,1911) + lu(k,1939) = - lu(k,607) * lu(k,1911) + lu(k,1940) = lu(k,1940) - lu(k,608) * lu(k,1911) + lu(k,1941) = lu(k,1941) - lu(k,609) * lu(k,1911) + lu(k,1942) = lu(k,1942) - lu(k,610) * lu(k,1911) + lu(k,1960) = lu(k,1960) - lu(k,597) * lu(k,1953) + lu(k,1962) = lu(k,1962) - lu(k,598) * lu(k,1953) + lu(k,1964) = lu(k,1964) - lu(k,599) * lu(k,1953) + lu(k,1965) = lu(k,1965) - lu(k,600) * lu(k,1953) + lu(k,1969) = lu(k,1969) - lu(k,601) * lu(k,1953) + lu(k,1972) = lu(k,1972) - lu(k,602) * lu(k,1953) + lu(k,1976) = - lu(k,603) * lu(k,1953) + lu(k,1979) = lu(k,1979) - lu(k,604) * lu(k,1953) + lu(k,1981) = lu(k,1981) - lu(k,605) * lu(k,1953) + lu(k,1982) = lu(k,1982) - lu(k,606) * lu(k,1953) + lu(k,1983) = - lu(k,607) * lu(k,1953) + lu(k,1984) = lu(k,1984) - lu(k,608) * lu(k,1953) + lu(k,1985) = lu(k,1985) - lu(k,609) * lu(k,1953) + lu(k,1986) = lu(k,1986) - lu(k,610) * lu(k,1953) + lu(k,611) = 1._r8 / lu(k,611) + lu(k,612) = lu(k,612) * lu(k,611) + lu(k,613) = lu(k,613) * lu(k,611) + lu(k,614) = lu(k,614) * lu(k,611) + lu(k,615) = lu(k,615) * lu(k,611) + lu(k,616) = lu(k,616) * lu(k,611) + lu(k,617) = lu(k,617) * lu(k,611) + lu(k,618) = lu(k,618) * lu(k,611) + lu(k,619) = lu(k,619) * lu(k,611) + lu(k,620) = lu(k,620) * lu(k,611) + lu(k,621) = lu(k,621) * lu(k,611) + lu(k,622) = lu(k,622) * lu(k,611) + lu(k,623) = lu(k,623) * lu(k,611) + lu(k,624) = lu(k,624) * lu(k,611) + lu(k,629) = - lu(k,612) * lu(k,626) + lu(k,630) = lu(k,630) - lu(k,613) * lu(k,626) + lu(k,631) = lu(k,631) - lu(k,614) * lu(k,626) + lu(k,632) = lu(k,632) - lu(k,615) * lu(k,626) + lu(k,633) = lu(k,633) - lu(k,616) * lu(k,626) + lu(k,635) = lu(k,635) - lu(k,617) * lu(k,626) + lu(k,636) = lu(k,636) - lu(k,618) * lu(k,626) + lu(k,637) = lu(k,637) - lu(k,619) * lu(k,626) + lu(k,638) = lu(k,638) - lu(k,620) * lu(k,626) + lu(k,639) = lu(k,639) - lu(k,621) * lu(k,626) + lu(k,642) = lu(k,642) - lu(k,622) * lu(k,626) + lu(k,643) = lu(k,643) - lu(k,623) * lu(k,626) + lu(k,644) = lu(k,644) - lu(k,624) * lu(k,626) + lu(k,694) = lu(k,694) - lu(k,612) * lu(k,691) + lu(k,695) = lu(k,695) - lu(k,613) * lu(k,691) + lu(k,696) = lu(k,696) - lu(k,614) * lu(k,691) + lu(k,697) = lu(k,697) - lu(k,615) * lu(k,691) + lu(k,698) = lu(k,698) - lu(k,616) * lu(k,691) + lu(k,700) = lu(k,700) - lu(k,617) * lu(k,691) + lu(k,701) = lu(k,701) - lu(k,618) * lu(k,691) + lu(k,702) = lu(k,702) - lu(k,619) * lu(k,691) + lu(k,703) = lu(k,703) - lu(k,620) * lu(k,691) + lu(k,704) = lu(k,704) - lu(k,621) * lu(k,691) + lu(k,707) = lu(k,707) - lu(k,622) * lu(k,691) + lu(k,708) = lu(k,708) - lu(k,623) * lu(k,691) + lu(k,709) = lu(k,709) - lu(k,624) * lu(k,691) + lu(k,868) = lu(k,868) - lu(k,612) * lu(k,865) + lu(k,871) = lu(k,871) - lu(k,613) * lu(k,865) + lu(k,872) = lu(k,872) - lu(k,614) * lu(k,865) + lu(k,874) = lu(k,874) - lu(k,615) * lu(k,865) + lu(k,875) = lu(k,875) - lu(k,616) * lu(k,865) + lu(k,877) = lu(k,877) - lu(k,617) * lu(k,865) + lu(k,879) = lu(k,879) - lu(k,618) * lu(k,865) + lu(k,880) = lu(k,880) - lu(k,619) * lu(k,865) + lu(k,881) = lu(k,881) - lu(k,620) * lu(k,865) + lu(k,882) = lu(k,882) - lu(k,621) * lu(k,865) + lu(k,885) = lu(k,885) - lu(k,622) * lu(k,865) + lu(k,886) = lu(k,886) - lu(k,623) * lu(k,865) + lu(k,888) = lu(k,888) - lu(k,624) * lu(k,865) + lu(k,1147) = lu(k,1147) - lu(k,612) * lu(k,1140) + lu(k,1154) = lu(k,1154) - lu(k,613) * lu(k,1140) + lu(k,1155) = lu(k,1155) - lu(k,614) * lu(k,1140) + lu(k,1157) = lu(k,1157) - lu(k,615) * lu(k,1140) + lu(k,1158) = lu(k,1158) - lu(k,616) * lu(k,1140) + lu(k,1160) = lu(k,1160) - lu(k,617) * lu(k,1140) + lu(k,1162) = lu(k,1162) - lu(k,618) * lu(k,1140) + lu(k,1164) = lu(k,1164) - lu(k,619) * lu(k,1140) + lu(k,1165) = lu(k,1165) - lu(k,620) * lu(k,1140) + lu(k,1167) = lu(k,1167) - lu(k,621) * lu(k,1140) + lu(k,1172) = lu(k,1172) - lu(k,622) * lu(k,1140) + lu(k,1173) = lu(k,1173) - lu(k,623) * lu(k,1140) + lu(k,1175) = lu(k,1175) - lu(k,624) * lu(k,1140) + lu(k,1190) = lu(k,1190) - lu(k,612) * lu(k,1184) + lu(k,1197) = lu(k,1197) - lu(k,613) * lu(k,1184) + lu(k,1198) = lu(k,1198) - lu(k,614) * lu(k,1184) + lu(k,1200) = lu(k,1200) - lu(k,615) * lu(k,1184) + lu(k,1201) = lu(k,1201) - lu(k,616) * lu(k,1184) + lu(k,1203) = lu(k,1203) - lu(k,617) * lu(k,1184) + lu(k,1205) = lu(k,1205) - lu(k,618) * lu(k,1184) + lu(k,1207) = lu(k,1207) - lu(k,619) * lu(k,1184) + lu(k,1208) = lu(k,1208) - lu(k,620) * lu(k,1184) + lu(k,1210) = lu(k,1210) - lu(k,621) * lu(k,1184) + lu(k,1215) = lu(k,1215) - lu(k,622) * lu(k,1184) + lu(k,1216) = lu(k,1216) - lu(k,623) * lu(k,1184) + lu(k,1218) = lu(k,1218) - lu(k,624) * lu(k,1184) + lu(k,1274) = lu(k,1274) - lu(k,612) * lu(k,1268) + lu(k,1281) = lu(k,1281) - lu(k,613) * lu(k,1268) + lu(k,1282) = lu(k,1282) - lu(k,614) * lu(k,1268) + lu(k,1284) = lu(k,1284) - lu(k,615) * lu(k,1268) + lu(k,1285) = lu(k,1285) - lu(k,616) * lu(k,1268) + lu(k,1287) = lu(k,1287) - lu(k,617) * lu(k,1268) + lu(k,1289) = lu(k,1289) - lu(k,618) * lu(k,1268) + lu(k,1291) = lu(k,1291) - lu(k,619) * lu(k,1268) + lu(k,1292) = lu(k,1292) - lu(k,620) * lu(k,1268) + lu(k,1294) = lu(k,1294) - lu(k,621) * lu(k,1268) + lu(k,1299) = lu(k,1299) - lu(k,622) * lu(k,1268) + lu(k,1300) = lu(k,1300) - lu(k,623) * lu(k,1268) + lu(k,1302) = lu(k,1302) - lu(k,624) * lu(k,1268) + lu(k,1316) = lu(k,1316) - lu(k,612) * lu(k,1310) + lu(k,1323) = lu(k,1323) - lu(k,613) * lu(k,1310) + lu(k,1324) = lu(k,1324) - lu(k,614) * lu(k,1310) + lu(k,1326) = lu(k,1326) - lu(k,615) * lu(k,1310) + lu(k,1327) = lu(k,1327) - lu(k,616) * lu(k,1310) + lu(k,1329) = lu(k,1329) - lu(k,617) * lu(k,1310) + lu(k,1331) = lu(k,1331) - lu(k,618) * lu(k,1310) + lu(k,1333) = lu(k,1333) - lu(k,619) * lu(k,1310) + lu(k,1334) = lu(k,1334) - lu(k,620) * lu(k,1310) + lu(k,1336) = lu(k,1336) - lu(k,621) * lu(k,1310) + lu(k,1341) = lu(k,1341) - lu(k,622) * lu(k,1310) + lu(k,1342) = lu(k,1342) - lu(k,623) * lu(k,1310) + lu(k,1344) = lu(k,1344) - lu(k,624) * lu(k,1310) + lu(k,1419) = lu(k,1419) - lu(k,612) * lu(k,1413) + lu(k,1426) = lu(k,1426) - lu(k,613) * lu(k,1413) + lu(k,1427) = lu(k,1427) - lu(k,614) * lu(k,1413) + lu(k,1429) = lu(k,1429) - lu(k,615) * lu(k,1413) + lu(k,1430) = lu(k,1430) - lu(k,616) * lu(k,1413) + lu(k,1432) = lu(k,1432) - lu(k,617) * lu(k,1413) + lu(k,1434) = lu(k,1434) - lu(k,618) * lu(k,1413) + lu(k,1436) = lu(k,1436) - lu(k,619) * lu(k,1413) + lu(k,1437) = lu(k,1437) - lu(k,620) * lu(k,1413) + lu(k,1439) = lu(k,1439) - lu(k,621) * lu(k,1413) + lu(k,1444) = lu(k,1444) - lu(k,622) * lu(k,1413) + lu(k,1445) = lu(k,1445) - lu(k,623) * lu(k,1413) + lu(k,1447) = lu(k,1447) - lu(k,624) * lu(k,1413) + lu(k,1508) = lu(k,1508) - lu(k,612) * lu(k,1502) + lu(k,1515) = lu(k,1515) - lu(k,613) * lu(k,1502) + lu(k,1516) = lu(k,1516) - lu(k,614) * lu(k,1502) + lu(k,1518) = lu(k,1518) - lu(k,615) * lu(k,1502) + lu(k,1519) = lu(k,1519) - lu(k,616) * lu(k,1502) + lu(k,1521) = lu(k,1521) - lu(k,617) * lu(k,1502) + lu(k,1523) = lu(k,1523) - lu(k,618) * lu(k,1502) + lu(k,1525) = lu(k,1525) - lu(k,619) * lu(k,1502) + lu(k,1526) = lu(k,1526) - lu(k,620) * lu(k,1502) + lu(k,1528) = lu(k,1528) - lu(k,621) * lu(k,1502) + lu(k,1533) = lu(k,1533) - lu(k,622) * lu(k,1502) + lu(k,1534) = lu(k,1534) - lu(k,623) * lu(k,1502) + lu(k,1536) = lu(k,1536) - lu(k,624) * lu(k,1502) + lu(k,1589) = lu(k,1589) - lu(k,612) * lu(k,1582) + lu(k,1596) = lu(k,1596) - lu(k,613) * lu(k,1582) + lu(k,1597) = lu(k,1597) - lu(k,614) * lu(k,1582) + lu(k,1599) = lu(k,1599) - lu(k,615) * lu(k,1582) + lu(k,1600) = lu(k,1600) - lu(k,616) * lu(k,1582) + lu(k,1602) = lu(k,1602) - lu(k,617) * lu(k,1582) + lu(k,1604) = lu(k,1604) - lu(k,618) * lu(k,1582) + lu(k,1606) = lu(k,1606) - lu(k,619) * lu(k,1582) + lu(k,1607) = lu(k,1607) - lu(k,620) * lu(k,1582) + lu(k,1609) = lu(k,1609) - lu(k,621) * lu(k,1582) + lu(k,1614) = lu(k,1614) - lu(k,622) * lu(k,1582) + lu(k,1615) = lu(k,1615) - lu(k,623) * lu(k,1582) + lu(k,1617) = lu(k,1617) - lu(k,624) * lu(k,1582) + lu(k,1632) = lu(k,1632) - lu(k,612) * lu(k,1626) + lu(k,1639) = lu(k,1639) - lu(k,613) * lu(k,1626) + lu(k,1640) = lu(k,1640) - lu(k,614) * lu(k,1626) + lu(k,1642) = lu(k,1642) - lu(k,615) * lu(k,1626) + lu(k,1643) = lu(k,1643) - lu(k,616) * lu(k,1626) + lu(k,1645) = lu(k,1645) - lu(k,617) * lu(k,1626) + lu(k,1647) = lu(k,1647) - lu(k,618) * lu(k,1626) + lu(k,1649) = lu(k,1649) - lu(k,619) * lu(k,1626) + lu(k,1650) = lu(k,1650) - lu(k,620) * lu(k,1626) + lu(k,1652) = lu(k,1652) - lu(k,621) * lu(k,1626) + lu(k,1657) = lu(k,1657) - lu(k,622) * lu(k,1626) + lu(k,1658) = lu(k,1658) - lu(k,623) * lu(k,1626) + lu(k,1660) = lu(k,1660) - lu(k,624) * lu(k,1626) + lu(k,1715) = - lu(k,612) * lu(k,1709) + lu(k,1721) = - lu(k,613) * lu(k,1709) + lu(k,1722) = - lu(k,614) * lu(k,1709) + lu(k,1724) = lu(k,1724) - lu(k,615) * lu(k,1709) + lu(k,1725) = - lu(k,616) * lu(k,1709) + lu(k,1727) = lu(k,1727) - lu(k,617) * lu(k,1709) + lu(k,1729) = lu(k,1729) - lu(k,618) * lu(k,1709) + lu(k,1731) = - lu(k,619) * lu(k,1709) + lu(k,1732) = - lu(k,620) * lu(k,1709) + lu(k,1734) = lu(k,1734) - lu(k,621) * lu(k,1709) + lu(k,1739) = lu(k,1739) - lu(k,622) * lu(k,1709) + lu(k,1740) = lu(k,1740) - lu(k,623) * lu(k,1709) + lu(k,1742) = lu(k,1742) - lu(k,624) * lu(k,1709) + lu(k,1798) = lu(k,1798) - lu(k,612) * lu(k,1790) + lu(k,1805) = lu(k,1805) - lu(k,613) * lu(k,1790) + lu(k,1806) = - lu(k,614) * lu(k,1790) + lu(k,1808) = lu(k,1808) - lu(k,615) * lu(k,1790) + lu(k,1809) = - lu(k,616) * lu(k,1790) + lu(k,1811) = lu(k,1811) - lu(k,617) * lu(k,1790) + lu(k,1813) = lu(k,1813) - lu(k,618) * lu(k,1790) + lu(k,1815) = lu(k,1815) - lu(k,619) * lu(k,1790) + lu(k,1816) = - lu(k,620) * lu(k,1790) + lu(k,1818) = lu(k,1818) - lu(k,621) * lu(k,1790) + lu(k,1823) = lu(k,1823) - lu(k,622) * lu(k,1790) + lu(k,1824) = lu(k,1824) - lu(k,623) * lu(k,1790) + lu(k,1826) = lu(k,1826) - lu(k,624) * lu(k,1790) + lu(k,2005) = lu(k,2005) - lu(k,612) * lu(k,1999) + lu(k,2012) = lu(k,2012) - lu(k,613) * lu(k,1999) + lu(k,2013) = lu(k,2013) - lu(k,614) * lu(k,1999) + lu(k,2015) = lu(k,2015) - lu(k,615) * lu(k,1999) + lu(k,2016) = lu(k,2016) - lu(k,616) * lu(k,1999) + lu(k,2018) = lu(k,2018) - lu(k,617) * lu(k,1999) + lu(k,2020) = lu(k,2020) - lu(k,618) * lu(k,1999) + lu(k,2022) = lu(k,2022) - lu(k,619) * lu(k,1999) + lu(k,2023) = lu(k,2023) - lu(k,620) * lu(k,1999) + lu(k,2025) = lu(k,2025) - lu(k,621) * lu(k,1999) + lu(k,2030) = lu(k,2030) - lu(k,622) * lu(k,1999) + lu(k,2031) = lu(k,2031) - lu(k,623) * lu(k,1999) + lu(k,2033) = lu(k,2033) - lu(k,624) * lu(k,1999) end do end subroutine lu_fac16 subroutine lu_fac17( avec_len, lu ) @@ -4367,720 +3976,421 @@ subroutine lu_fac17( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,669) = 1._r8 / lu(k,669) - lu(k,670) = lu(k,670) * lu(k,669) - lu(k,671) = lu(k,671) * lu(k,669) - lu(k,672) = lu(k,672) * lu(k,669) - lu(k,673) = lu(k,673) * lu(k,669) - lu(k,674) = lu(k,674) * lu(k,669) - lu(k,675) = lu(k,675) * lu(k,669) - lu(k,676) = lu(k,676) * lu(k,669) - lu(k,677) = lu(k,677) * lu(k,669) - lu(k,678) = lu(k,678) * lu(k,669) - lu(k,679) = lu(k,679) * lu(k,669) - lu(k,680) = lu(k,680) * lu(k,669) - lu(k,681) = lu(k,681) * lu(k,669) - lu(k,682) = lu(k,682) * lu(k,669) - lu(k,683) = lu(k,683) * lu(k,669) - lu(k,684) = lu(k,684) * lu(k,669) - lu(k,685) = lu(k,685) * lu(k,669) - lu(k,686) = lu(k,686) * lu(k,669) - lu(k,687) = lu(k,687) * lu(k,669) - lu(k,1009) = - lu(k,670) * lu(k,1008) - lu(k,1011) = lu(k,1011) - lu(k,671) * lu(k,1008) - lu(k,1012) = lu(k,1012) - lu(k,672) * lu(k,1008) - lu(k,1014) = lu(k,1014) - lu(k,673) * lu(k,1008) - lu(k,1017) = lu(k,1017) - lu(k,674) * lu(k,1008) - lu(k,1018) = lu(k,1018) - lu(k,675) * lu(k,1008) - lu(k,1019) = lu(k,1019) - lu(k,676) * lu(k,1008) - lu(k,1020) = lu(k,1020) - lu(k,677) * lu(k,1008) - lu(k,1021) = lu(k,1021) - lu(k,678) * lu(k,1008) - lu(k,1022) = lu(k,1022) - lu(k,679) * lu(k,1008) - lu(k,1023) = lu(k,1023) - lu(k,680) * lu(k,1008) - lu(k,1027) = lu(k,1027) - lu(k,681) * lu(k,1008) - lu(k,1028) = lu(k,1028) - lu(k,682) * lu(k,1008) - lu(k,1029) = lu(k,1029) - lu(k,683) * lu(k,1008) - lu(k,1031) = lu(k,1031) - lu(k,684) * lu(k,1008) - lu(k,1032) = lu(k,1032) - lu(k,685) * lu(k,1008) - lu(k,1036) = lu(k,1036) - lu(k,686) * lu(k,1008) - lu(k,1038) = lu(k,1038) - lu(k,687) * lu(k,1008) - lu(k,1142) = lu(k,1142) - lu(k,670) * lu(k,1141) - lu(k,1146) = lu(k,1146) - lu(k,671) * lu(k,1141) - lu(k,1148) = lu(k,1148) - lu(k,672) * lu(k,1141) - lu(k,1150) = lu(k,1150) - lu(k,673) * lu(k,1141) - lu(k,1153) = lu(k,1153) - lu(k,674) * lu(k,1141) - lu(k,1154) = lu(k,1154) - lu(k,675) * lu(k,1141) - lu(k,1155) = lu(k,1155) - lu(k,676) * lu(k,1141) - lu(k,1156) = lu(k,1156) - lu(k,677) * lu(k,1141) - lu(k,1157) = lu(k,1157) - lu(k,678) * lu(k,1141) - lu(k,1158) = lu(k,1158) - lu(k,679) * lu(k,1141) - lu(k,1159) = lu(k,1159) - lu(k,680) * lu(k,1141) - lu(k,1163) = lu(k,1163) - lu(k,681) * lu(k,1141) - lu(k,1164) = lu(k,1164) - lu(k,682) * lu(k,1141) - lu(k,1165) = lu(k,1165) - lu(k,683) * lu(k,1141) - lu(k,1167) = lu(k,1167) - lu(k,684) * lu(k,1141) - lu(k,1168) = lu(k,1168) - lu(k,685) * lu(k,1141) - lu(k,1172) = lu(k,1172) - lu(k,686) * lu(k,1141) - lu(k,1174) = lu(k,1174) - lu(k,687) * lu(k,1141) - lu(k,1186) = lu(k,1186) - lu(k,670) * lu(k,1185) - lu(k,1189) = lu(k,1189) - lu(k,671) * lu(k,1185) - lu(k,1191) = lu(k,1191) - lu(k,672) * lu(k,1185) - lu(k,1193) = lu(k,1193) - lu(k,673) * lu(k,1185) - lu(k,1196) = lu(k,1196) - lu(k,674) * lu(k,1185) - lu(k,1197) = lu(k,1197) - lu(k,675) * lu(k,1185) - lu(k,1198) = lu(k,1198) - lu(k,676) * lu(k,1185) - lu(k,1199) = lu(k,1199) - lu(k,677) * lu(k,1185) - lu(k,1200) = lu(k,1200) - lu(k,678) * lu(k,1185) - lu(k,1201) = lu(k,1201) - lu(k,679) * lu(k,1185) - lu(k,1202) = lu(k,1202) - lu(k,680) * lu(k,1185) - lu(k,1206) = lu(k,1206) - lu(k,681) * lu(k,1185) - lu(k,1207) = lu(k,1207) - lu(k,682) * lu(k,1185) - lu(k,1208) = lu(k,1208) - lu(k,683) * lu(k,1185) - lu(k,1210) = lu(k,1210) - lu(k,684) * lu(k,1185) - lu(k,1211) = lu(k,1211) - lu(k,685) * lu(k,1185) - lu(k,1215) = lu(k,1215) - lu(k,686) * lu(k,1185) - lu(k,1217) = lu(k,1217) - lu(k,687) * lu(k,1185) - lu(k,1229) = lu(k,1229) - lu(k,670) * lu(k,1228) - lu(k,1232) = lu(k,1232) - lu(k,671) * lu(k,1228) - lu(k,1234) = lu(k,1234) - lu(k,672) * lu(k,1228) - lu(k,1236) = lu(k,1236) - lu(k,673) * lu(k,1228) - lu(k,1239) = lu(k,1239) - lu(k,674) * lu(k,1228) - lu(k,1240) = lu(k,1240) - lu(k,675) * lu(k,1228) - lu(k,1241) = lu(k,1241) - lu(k,676) * lu(k,1228) - lu(k,1242) = lu(k,1242) - lu(k,677) * lu(k,1228) - lu(k,1243) = lu(k,1243) - lu(k,678) * lu(k,1228) - lu(k,1244) = lu(k,1244) - lu(k,679) * lu(k,1228) - lu(k,1245) = lu(k,1245) - lu(k,680) * lu(k,1228) - lu(k,1249) = lu(k,1249) - lu(k,681) * lu(k,1228) - lu(k,1250) = lu(k,1250) - lu(k,682) * lu(k,1228) - lu(k,1251) = lu(k,1251) - lu(k,683) * lu(k,1228) - lu(k,1253) = lu(k,1253) - lu(k,684) * lu(k,1228) - lu(k,1254) = lu(k,1254) - lu(k,685) * lu(k,1228) - lu(k,1258) = lu(k,1258) - lu(k,686) * lu(k,1228) - lu(k,1260) = lu(k,1260) - lu(k,687) * lu(k,1228) - lu(k,1313) = lu(k,1313) - lu(k,670) * lu(k,1312) - lu(k,1316) = lu(k,1316) - lu(k,671) * lu(k,1312) - lu(k,1318) = lu(k,1318) - lu(k,672) * lu(k,1312) - lu(k,1320) = lu(k,1320) - lu(k,673) * lu(k,1312) - lu(k,1323) = lu(k,1323) - lu(k,674) * lu(k,1312) - lu(k,1324) = lu(k,1324) - lu(k,675) * lu(k,1312) - lu(k,1325) = lu(k,1325) - lu(k,676) * lu(k,1312) - lu(k,1326) = lu(k,1326) - lu(k,677) * lu(k,1312) - lu(k,1327) = lu(k,1327) - lu(k,678) * lu(k,1312) - lu(k,1328) = lu(k,1328) - lu(k,679) * lu(k,1312) - lu(k,1329) = lu(k,1329) - lu(k,680) * lu(k,1312) - lu(k,1333) = lu(k,1333) - lu(k,681) * lu(k,1312) - lu(k,1334) = lu(k,1334) - lu(k,682) * lu(k,1312) - lu(k,1335) = lu(k,1335) - lu(k,683) * lu(k,1312) - lu(k,1337) = lu(k,1337) - lu(k,684) * lu(k,1312) - lu(k,1338) = lu(k,1338) - lu(k,685) * lu(k,1312) - lu(k,1342) = lu(k,1342) - lu(k,686) * lu(k,1312) - lu(k,1344) = lu(k,1344) - lu(k,687) * lu(k,1312) - lu(k,1591) = lu(k,1591) - lu(k,670) * lu(k,1590) - lu(k,1595) = lu(k,1595) - lu(k,671) * lu(k,1590) - lu(k,1597) = lu(k,1597) - lu(k,672) * lu(k,1590) - lu(k,1599) = lu(k,1599) - lu(k,673) * lu(k,1590) - lu(k,1602) = lu(k,1602) - lu(k,674) * lu(k,1590) - lu(k,1603) = lu(k,1603) - lu(k,675) * lu(k,1590) - lu(k,1604) = lu(k,1604) - lu(k,676) * lu(k,1590) - lu(k,1605) = lu(k,1605) - lu(k,677) * lu(k,1590) - lu(k,1606) = lu(k,1606) - lu(k,678) * lu(k,1590) - lu(k,1607) = lu(k,1607) - lu(k,679) * lu(k,1590) - lu(k,1608) = lu(k,1608) - lu(k,680) * lu(k,1590) - lu(k,1612) = lu(k,1612) - lu(k,681) * lu(k,1590) - lu(k,1613) = lu(k,1613) - lu(k,682) * lu(k,1590) - lu(k,1614) = lu(k,1614) - lu(k,683) * lu(k,1590) - lu(k,1616) = lu(k,1616) - lu(k,684) * lu(k,1590) - lu(k,1617) = lu(k,1617) - lu(k,685) * lu(k,1590) - lu(k,1621) = lu(k,1621) - lu(k,686) * lu(k,1590) - lu(k,1623) = lu(k,1623) - lu(k,687) * lu(k,1590) - lu(k,1635) = lu(k,1635) - lu(k,670) * lu(k,1634) - lu(k,1638) = lu(k,1638) - lu(k,671) * lu(k,1634) - lu(k,1640) = lu(k,1640) - lu(k,672) * lu(k,1634) - lu(k,1642) = lu(k,1642) - lu(k,673) * lu(k,1634) - lu(k,1645) = lu(k,1645) - lu(k,674) * lu(k,1634) - lu(k,1646) = lu(k,1646) - lu(k,675) * lu(k,1634) - lu(k,1647) = lu(k,1647) - lu(k,676) * lu(k,1634) - lu(k,1648) = lu(k,1648) - lu(k,677) * lu(k,1634) - lu(k,1649) = lu(k,1649) - lu(k,678) * lu(k,1634) - lu(k,1650) = lu(k,1650) - lu(k,679) * lu(k,1634) - lu(k,1651) = lu(k,1651) - lu(k,680) * lu(k,1634) - lu(k,1655) = lu(k,1655) - lu(k,681) * lu(k,1634) - lu(k,1656) = lu(k,1656) - lu(k,682) * lu(k,1634) - lu(k,1657) = lu(k,1657) - lu(k,683) * lu(k,1634) - lu(k,1659) = lu(k,1659) - lu(k,684) * lu(k,1634) - lu(k,1660) = lu(k,1660) - lu(k,685) * lu(k,1634) - lu(k,1664) = lu(k,1664) - lu(k,686) * lu(k,1634) - lu(k,1666) = lu(k,1666) - lu(k,687) * lu(k,1634) - lu(k,1678) = lu(k,1678) - lu(k,670) * lu(k,1677) - lu(k,1681) = lu(k,1681) - lu(k,671) * lu(k,1677) - lu(k,1683) = lu(k,1683) - lu(k,672) * lu(k,1677) - lu(k,1685) = lu(k,1685) - lu(k,673) * lu(k,1677) - lu(k,1688) = lu(k,1688) - lu(k,674) * lu(k,1677) - lu(k,1689) = lu(k,1689) - lu(k,675) * lu(k,1677) - lu(k,1690) = lu(k,1690) - lu(k,676) * lu(k,1677) - lu(k,1691) = lu(k,1691) - lu(k,677) * lu(k,1677) - lu(k,1692) = lu(k,1692) - lu(k,678) * lu(k,1677) - lu(k,1693) = lu(k,1693) - lu(k,679) * lu(k,1677) - lu(k,1694) = lu(k,1694) - lu(k,680) * lu(k,1677) - lu(k,1698) = lu(k,1698) - lu(k,681) * lu(k,1677) - lu(k,1699) = lu(k,1699) - lu(k,682) * lu(k,1677) - lu(k,1700) = lu(k,1700) - lu(k,683) * lu(k,1677) - lu(k,1702) = lu(k,1702) - lu(k,684) * lu(k,1677) - lu(k,1703) = lu(k,1703) - lu(k,685) * lu(k,1677) - lu(k,1707) = lu(k,1707) - lu(k,686) * lu(k,1677) - lu(k,1709) = lu(k,1709) - lu(k,687) * lu(k,1677) - lu(k,1800) = lu(k,1800) - lu(k,670) * lu(k,1799) - lu(k,1805) = lu(k,1805) - lu(k,671) * lu(k,1799) - lu(k,1807) = lu(k,1807) - lu(k,672) * lu(k,1799) - lu(k,1809) = lu(k,1809) - lu(k,673) * lu(k,1799) - lu(k,1812) = lu(k,1812) - lu(k,674) * lu(k,1799) - lu(k,1813) = lu(k,1813) - lu(k,675) * lu(k,1799) - lu(k,1814) = lu(k,1814) - lu(k,676) * lu(k,1799) - lu(k,1815) = lu(k,1815) - lu(k,677) * lu(k,1799) - lu(k,1816) = lu(k,1816) - lu(k,678) * lu(k,1799) - lu(k,1817) = lu(k,1817) - lu(k,679) * lu(k,1799) - lu(k,1818) = lu(k,1818) - lu(k,680) * lu(k,1799) - lu(k,1822) = lu(k,1822) - lu(k,681) * lu(k,1799) - lu(k,1823) = lu(k,1823) - lu(k,682) * lu(k,1799) - lu(k,1824) = lu(k,1824) - lu(k,683) * lu(k,1799) - lu(k,1826) = lu(k,1826) - lu(k,684) * lu(k,1799) - lu(k,1827) = lu(k,1827) - lu(k,685) * lu(k,1799) - lu(k,1831) = lu(k,1831) - lu(k,686) * lu(k,1799) - lu(k,1833) = lu(k,1833) - lu(k,687) * lu(k,1799) - lu(k,1952) = - lu(k,670) * lu(k,1951) - lu(k,1957) = lu(k,1957) - lu(k,671) * lu(k,1951) - lu(k,1959) = lu(k,1959) - lu(k,672) * lu(k,1951) - lu(k,1961) = lu(k,1961) - lu(k,673) * lu(k,1951) - lu(k,1964) = lu(k,1964) - lu(k,674) * lu(k,1951) - lu(k,1965) = lu(k,1965) - lu(k,675) * lu(k,1951) - lu(k,1966) = lu(k,1966) - lu(k,676) * lu(k,1951) - lu(k,1967) = lu(k,1967) - lu(k,677) * lu(k,1951) - lu(k,1968) = lu(k,1968) - lu(k,678) * lu(k,1951) - lu(k,1969) = lu(k,1969) - lu(k,679) * lu(k,1951) - lu(k,1970) = lu(k,1970) - lu(k,680) * lu(k,1951) - lu(k,1974) = lu(k,1974) - lu(k,681) * lu(k,1951) - lu(k,1975) = lu(k,1975) - lu(k,682) * lu(k,1951) - lu(k,1976) = lu(k,1976) - lu(k,683) * lu(k,1951) - lu(k,1978) = lu(k,1978) - lu(k,684) * lu(k,1951) - lu(k,1979) = lu(k,1979) - lu(k,685) * lu(k,1951) - lu(k,1983) = lu(k,1983) - lu(k,686) * lu(k,1951) - lu(k,1985) = lu(k,1985) - lu(k,687) * lu(k,1951) - lu(k,2057) = lu(k,2057) - lu(k,670) * lu(k,2056) - lu(k,2062) = lu(k,2062) - lu(k,671) * lu(k,2056) - lu(k,2064) = lu(k,2064) - lu(k,672) * lu(k,2056) - lu(k,2066) = lu(k,2066) - lu(k,673) * lu(k,2056) - lu(k,2069) = lu(k,2069) - lu(k,674) * lu(k,2056) - lu(k,2070) = lu(k,2070) - lu(k,675) * lu(k,2056) - lu(k,2071) = lu(k,2071) - lu(k,676) * lu(k,2056) - lu(k,2072) = lu(k,2072) - lu(k,677) * lu(k,2056) - lu(k,2073) = lu(k,2073) - lu(k,678) * lu(k,2056) - lu(k,2074) = lu(k,2074) - lu(k,679) * lu(k,2056) - lu(k,2075) = lu(k,2075) - lu(k,680) * lu(k,2056) - lu(k,2079) = lu(k,2079) - lu(k,681) * lu(k,2056) - lu(k,2080) = lu(k,2080) - lu(k,682) * lu(k,2056) - lu(k,2081) = lu(k,2081) - lu(k,683) * lu(k,2056) - lu(k,2083) = lu(k,2083) - lu(k,684) * lu(k,2056) - lu(k,2084) = lu(k,2084) - lu(k,685) * lu(k,2056) - lu(k,2088) = lu(k,2088) - lu(k,686) * lu(k,2056) - lu(k,2090) = lu(k,2090) - lu(k,687) * lu(k,2056) - lu(k,691) = 1._r8 / lu(k,691) - lu(k,692) = lu(k,692) * lu(k,691) - lu(k,693) = lu(k,693) * lu(k,691) - lu(k,694) = lu(k,694) * lu(k,691) - lu(k,695) = lu(k,695) * lu(k,691) - lu(k,696) = lu(k,696) * lu(k,691) - lu(k,697) = lu(k,697) * lu(k,691) - lu(k,698) = lu(k,698) * lu(k,691) - lu(k,699) = lu(k,699) * lu(k,691) - lu(k,700) = lu(k,700) * lu(k,691) - lu(k,701) = lu(k,701) * lu(k,691) - lu(k,702) = lu(k,702) * lu(k,691) - lu(k,703) = lu(k,703) * lu(k,691) - lu(k,704) = lu(k,704) * lu(k,691) - lu(k,705) = lu(k,705) * lu(k,691) - lu(k,706) = lu(k,706) * lu(k,691) - lu(k,707) = lu(k,707) * lu(k,691) - lu(k,866) = lu(k,866) - lu(k,692) * lu(k,864) - lu(k,869) = lu(k,869) - lu(k,693) * lu(k,864) - lu(k,870) = lu(k,870) - lu(k,694) * lu(k,864) - lu(k,871) = lu(k,871) - lu(k,695) * lu(k,864) - lu(k,872) = lu(k,872) - lu(k,696) * lu(k,864) - lu(k,873) = lu(k,873) - lu(k,697) * lu(k,864) - lu(k,874) = lu(k,874) - lu(k,698) * lu(k,864) - lu(k,876) = lu(k,876) - lu(k,699) * lu(k,864) - lu(k,877) = lu(k,877) - lu(k,700) * lu(k,864) - lu(k,878) = lu(k,878) - lu(k,701) * lu(k,864) - lu(k,879) = lu(k,879) - lu(k,702) * lu(k,864) - lu(k,880) = lu(k,880) - lu(k,703) * lu(k,864) - lu(k,881) = lu(k,881) - lu(k,704) * lu(k,864) - lu(k,882) = - lu(k,705) * lu(k,864) - lu(k,884) = lu(k,884) - lu(k,706) * lu(k,864) - lu(k,886) = lu(k,886) - lu(k,707) * lu(k,864) - lu(k,1011) = lu(k,1011) - lu(k,692) * lu(k,1009) - lu(k,1017) = lu(k,1017) - lu(k,693) * lu(k,1009) - lu(k,1018) = lu(k,1018) - lu(k,694) * lu(k,1009) - lu(k,1019) = lu(k,1019) - lu(k,695) * lu(k,1009) - lu(k,1021) = lu(k,1021) - lu(k,696) * lu(k,1009) - lu(k,1022) = lu(k,1022) - lu(k,697) * lu(k,1009) - lu(k,1023) = lu(k,1023) - lu(k,698) * lu(k,1009) - lu(k,1025) = lu(k,1025) - lu(k,699) * lu(k,1009) - lu(k,1027) = lu(k,1027) - lu(k,700) * lu(k,1009) - lu(k,1028) = lu(k,1028) - lu(k,701) * lu(k,1009) - lu(k,1029) = lu(k,1029) - lu(k,702) * lu(k,1009) - lu(k,1030) = - lu(k,703) * lu(k,1009) - lu(k,1031) = lu(k,1031) - lu(k,704) * lu(k,1009) - lu(k,1032) = lu(k,1032) - lu(k,705) * lu(k,1009) - lu(k,1036) = lu(k,1036) - lu(k,706) * lu(k,1009) - lu(k,1038) = lu(k,1038) - lu(k,707) * lu(k,1009) - lu(k,1146) = lu(k,1146) - lu(k,692) * lu(k,1142) - lu(k,1153) = lu(k,1153) - lu(k,693) * lu(k,1142) - lu(k,1154) = lu(k,1154) - lu(k,694) * lu(k,1142) - lu(k,1155) = lu(k,1155) - lu(k,695) * lu(k,1142) - lu(k,1157) = lu(k,1157) - lu(k,696) * lu(k,1142) - lu(k,1158) = lu(k,1158) - lu(k,697) * lu(k,1142) - lu(k,1159) = lu(k,1159) - lu(k,698) * lu(k,1142) - lu(k,1161) = lu(k,1161) - lu(k,699) * lu(k,1142) - lu(k,1163) = lu(k,1163) - lu(k,700) * lu(k,1142) - lu(k,1164) = lu(k,1164) - lu(k,701) * lu(k,1142) - lu(k,1165) = lu(k,1165) - lu(k,702) * lu(k,1142) - lu(k,1166) = lu(k,1166) - lu(k,703) * lu(k,1142) - lu(k,1167) = lu(k,1167) - lu(k,704) * lu(k,1142) - lu(k,1168) = lu(k,1168) - lu(k,705) * lu(k,1142) - lu(k,1172) = lu(k,1172) - lu(k,706) * lu(k,1142) - lu(k,1174) = lu(k,1174) - lu(k,707) * lu(k,1142) - lu(k,1189) = lu(k,1189) - lu(k,692) * lu(k,1186) - lu(k,1196) = lu(k,1196) - lu(k,693) * lu(k,1186) - lu(k,1197) = lu(k,1197) - lu(k,694) * lu(k,1186) - lu(k,1198) = lu(k,1198) - lu(k,695) * lu(k,1186) - lu(k,1200) = lu(k,1200) - lu(k,696) * lu(k,1186) - lu(k,1201) = lu(k,1201) - lu(k,697) * lu(k,1186) - lu(k,1202) = lu(k,1202) - lu(k,698) * lu(k,1186) - lu(k,1204) = lu(k,1204) - lu(k,699) * lu(k,1186) - lu(k,1206) = lu(k,1206) - lu(k,700) * lu(k,1186) - lu(k,1207) = lu(k,1207) - lu(k,701) * lu(k,1186) - lu(k,1208) = lu(k,1208) - lu(k,702) * lu(k,1186) - lu(k,1209) = lu(k,1209) - lu(k,703) * lu(k,1186) - lu(k,1210) = lu(k,1210) - lu(k,704) * lu(k,1186) - lu(k,1211) = lu(k,1211) - lu(k,705) * lu(k,1186) - lu(k,1215) = lu(k,1215) - lu(k,706) * lu(k,1186) - lu(k,1217) = lu(k,1217) - lu(k,707) * lu(k,1186) - lu(k,1232) = lu(k,1232) - lu(k,692) * lu(k,1229) - lu(k,1239) = lu(k,1239) - lu(k,693) * lu(k,1229) - lu(k,1240) = lu(k,1240) - lu(k,694) * lu(k,1229) - lu(k,1241) = lu(k,1241) - lu(k,695) * lu(k,1229) - lu(k,1243) = lu(k,1243) - lu(k,696) * lu(k,1229) - lu(k,1244) = lu(k,1244) - lu(k,697) * lu(k,1229) - lu(k,1245) = lu(k,1245) - lu(k,698) * lu(k,1229) - lu(k,1247) = lu(k,1247) - lu(k,699) * lu(k,1229) - lu(k,1249) = lu(k,1249) - lu(k,700) * lu(k,1229) - lu(k,1250) = lu(k,1250) - lu(k,701) * lu(k,1229) - lu(k,1251) = lu(k,1251) - lu(k,702) * lu(k,1229) - lu(k,1252) = lu(k,1252) - lu(k,703) * lu(k,1229) - lu(k,1253) = lu(k,1253) - lu(k,704) * lu(k,1229) - lu(k,1254) = lu(k,1254) - lu(k,705) * lu(k,1229) - lu(k,1258) = lu(k,1258) - lu(k,706) * lu(k,1229) - lu(k,1260) = lu(k,1260) - lu(k,707) * lu(k,1229) - lu(k,1316) = lu(k,1316) - lu(k,692) * lu(k,1313) - lu(k,1323) = lu(k,1323) - lu(k,693) * lu(k,1313) - lu(k,1324) = lu(k,1324) - lu(k,694) * lu(k,1313) - lu(k,1325) = lu(k,1325) - lu(k,695) * lu(k,1313) - lu(k,1327) = lu(k,1327) - lu(k,696) * lu(k,1313) - lu(k,1328) = lu(k,1328) - lu(k,697) * lu(k,1313) - lu(k,1329) = lu(k,1329) - lu(k,698) * lu(k,1313) - lu(k,1331) = lu(k,1331) - lu(k,699) * lu(k,1313) - lu(k,1333) = lu(k,1333) - lu(k,700) * lu(k,1313) - lu(k,1334) = lu(k,1334) - lu(k,701) * lu(k,1313) - lu(k,1335) = lu(k,1335) - lu(k,702) * lu(k,1313) - lu(k,1336) = lu(k,1336) - lu(k,703) * lu(k,1313) - lu(k,1337) = lu(k,1337) - lu(k,704) * lu(k,1313) - lu(k,1338) = lu(k,1338) - lu(k,705) * lu(k,1313) - lu(k,1342) = lu(k,1342) - lu(k,706) * lu(k,1313) - lu(k,1344) = lu(k,1344) - lu(k,707) * lu(k,1313) - lu(k,1514) = lu(k,1514) - lu(k,692) * lu(k,1510) - lu(k,1521) = lu(k,1521) - lu(k,693) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,694) * lu(k,1510) - lu(k,1523) = lu(k,1523) - lu(k,695) * lu(k,1510) - lu(k,1525) = lu(k,1525) - lu(k,696) * lu(k,1510) - lu(k,1526) = lu(k,1526) - lu(k,697) * lu(k,1510) - lu(k,1527) = lu(k,1527) - lu(k,698) * lu(k,1510) - lu(k,1529) = lu(k,1529) - lu(k,699) * lu(k,1510) - lu(k,1531) = lu(k,1531) - lu(k,700) * lu(k,1510) - lu(k,1532) = lu(k,1532) - lu(k,701) * lu(k,1510) - lu(k,1533) = lu(k,1533) - lu(k,702) * lu(k,1510) - lu(k,1534) = lu(k,1534) - lu(k,703) * lu(k,1510) - lu(k,1535) = lu(k,1535) - lu(k,704) * lu(k,1510) - lu(k,1536) = lu(k,1536) - lu(k,705) * lu(k,1510) - lu(k,1540) = lu(k,1540) - lu(k,706) * lu(k,1510) - lu(k,1542) = lu(k,1542) - lu(k,707) * lu(k,1510) - lu(k,1595) = lu(k,1595) - lu(k,692) * lu(k,1591) - lu(k,1602) = lu(k,1602) - lu(k,693) * lu(k,1591) - lu(k,1603) = lu(k,1603) - lu(k,694) * lu(k,1591) - lu(k,1604) = lu(k,1604) - lu(k,695) * lu(k,1591) - lu(k,1606) = lu(k,1606) - lu(k,696) * lu(k,1591) - lu(k,1607) = lu(k,1607) - lu(k,697) * lu(k,1591) - lu(k,1608) = lu(k,1608) - lu(k,698) * lu(k,1591) - lu(k,1610) = lu(k,1610) - lu(k,699) * lu(k,1591) - lu(k,1612) = lu(k,1612) - lu(k,700) * lu(k,1591) - lu(k,1613) = lu(k,1613) - lu(k,701) * lu(k,1591) - lu(k,1614) = lu(k,1614) - lu(k,702) * lu(k,1591) - lu(k,1615) = lu(k,1615) - lu(k,703) * lu(k,1591) - lu(k,1616) = lu(k,1616) - lu(k,704) * lu(k,1591) - lu(k,1617) = lu(k,1617) - lu(k,705) * lu(k,1591) - lu(k,1621) = lu(k,1621) - lu(k,706) * lu(k,1591) - lu(k,1623) = lu(k,1623) - lu(k,707) * lu(k,1591) - lu(k,1638) = lu(k,1638) - lu(k,692) * lu(k,1635) - lu(k,1645) = lu(k,1645) - lu(k,693) * lu(k,1635) - lu(k,1646) = lu(k,1646) - lu(k,694) * lu(k,1635) - lu(k,1647) = lu(k,1647) - lu(k,695) * lu(k,1635) - lu(k,1649) = lu(k,1649) - lu(k,696) * lu(k,1635) - lu(k,1650) = lu(k,1650) - lu(k,697) * lu(k,1635) - lu(k,1651) = lu(k,1651) - lu(k,698) * lu(k,1635) - lu(k,1653) = lu(k,1653) - lu(k,699) * lu(k,1635) - lu(k,1655) = lu(k,1655) - lu(k,700) * lu(k,1635) - lu(k,1656) = lu(k,1656) - lu(k,701) * lu(k,1635) - lu(k,1657) = lu(k,1657) - lu(k,702) * lu(k,1635) - lu(k,1658) = lu(k,1658) - lu(k,703) * lu(k,1635) - lu(k,1659) = lu(k,1659) - lu(k,704) * lu(k,1635) - lu(k,1660) = lu(k,1660) - lu(k,705) * lu(k,1635) - lu(k,1664) = lu(k,1664) - lu(k,706) * lu(k,1635) - lu(k,1666) = lu(k,1666) - lu(k,707) * lu(k,1635) - lu(k,1681) = lu(k,1681) - lu(k,692) * lu(k,1678) - lu(k,1688) = lu(k,1688) - lu(k,693) * lu(k,1678) - lu(k,1689) = lu(k,1689) - lu(k,694) * lu(k,1678) - lu(k,1690) = lu(k,1690) - lu(k,695) * lu(k,1678) - lu(k,1692) = lu(k,1692) - lu(k,696) * lu(k,1678) - lu(k,1693) = lu(k,1693) - lu(k,697) * lu(k,1678) - lu(k,1694) = lu(k,1694) - lu(k,698) * lu(k,1678) - lu(k,1696) = lu(k,1696) - lu(k,699) * lu(k,1678) - lu(k,1698) = lu(k,1698) - lu(k,700) * lu(k,1678) - lu(k,1699) = lu(k,1699) - lu(k,701) * lu(k,1678) - lu(k,1700) = lu(k,1700) - lu(k,702) * lu(k,1678) - lu(k,1701) = lu(k,1701) - lu(k,703) * lu(k,1678) - lu(k,1702) = lu(k,1702) - lu(k,704) * lu(k,1678) - lu(k,1703) = lu(k,1703) - lu(k,705) * lu(k,1678) - lu(k,1707) = lu(k,1707) - lu(k,706) * lu(k,1678) - lu(k,1709) = lu(k,1709) - lu(k,707) * lu(k,1678) - lu(k,1722) = lu(k,1722) - lu(k,692) * lu(k,1718) - lu(k,1728) = lu(k,1728) - lu(k,693) * lu(k,1718) - lu(k,1729) = lu(k,1729) - lu(k,694) * lu(k,1718) - lu(k,1730) = lu(k,1730) - lu(k,695) * lu(k,1718) - lu(k,1732) = lu(k,1732) - lu(k,696) * lu(k,1718) - lu(k,1733) = lu(k,1733) - lu(k,697) * lu(k,1718) - lu(k,1734) = lu(k,1734) - lu(k,698) * lu(k,1718) - lu(k,1736) = lu(k,1736) - lu(k,699) * lu(k,1718) - lu(k,1738) = lu(k,1738) - lu(k,700) * lu(k,1718) - lu(k,1739) = lu(k,1739) - lu(k,701) * lu(k,1718) - lu(k,1740) = lu(k,1740) - lu(k,702) * lu(k,1718) - lu(k,1741) = lu(k,1741) - lu(k,703) * lu(k,1718) - lu(k,1742) = lu(k,1742) - lu(k,704) * lu(k,1718) - lu(k,1743) = lu(k,1743) - lu(k,705) * lu(k,1718) - lu(k,1747) = lu(k,1747) - lu(k,706) * lu(k,1718) - lu(k,1749) = lu(k,1749) - lu(k,707) * lu(k,1718) - lu(k,1805) = lu(k,1805) - lu(k,692) * lu(k,1800) - lu(k,1812) = lu(k,1812) - lu(k,693) * lu(k,1800) - lu(k,1813) = lu(k,1813) - lu(k,694) * lu(k,1800) - lu(k,1814) = lu(k,1814) - lu(k,695) * lu(k,1800) - lu(k,1816) = lu(k,1816) - lu(k,696) * lu(k,1800) - lu(k,1817) = lu(k,1817) - lu(k,697) * lu(k,1800) - lu(k,1818) = lu(k,1818) - lu(k,698) * lu(k,1800) - lu(k,1820) = lu(k,1820) - lu(k,699) * lu(k,1800) - lu(k,1822) = lu(k,1822) - lu(k,700) * lu(k,1800) - lu(k,1823) = lu(k,1823) - lu(k,701) * lu(k,1800) - lu(k,1824) = lu(k,1824) - lu(k,702) * lu(k,1800) - lu(k,1825) = lu(k,1825) - lu(k,703) * lu(k,1800) - lu(k,1826) = lu(k,1826) - lu(k,704) * lu(k,1800) - lu(k,1827) = lu(k,1827) - lu(k,705) * lu(k,1800) - lu(k,1831) = lu(k,1831) - lu(k,706) * lu(k,1800) - lu(k,1833) = lu(k,1833) - lu(k,707) * lu(k,1800) - lu(k,1957) = lu(k,1957) - lu(k,692) * lu(k,1952) - lu(k,1964) = lu(k,1964) - lu(k,693) * lu(k,1952) - lu(k,1965) = lu(k,1965) - lu(k,694) * lu(k,1952) - lu(k,1966) = lu(k,1966) - lu(k,695) * lu(k,1952) - lu(k,1968) = lu(k,1968) - lu(k,696) * lu(k,1952) - lu(k,1969) = lu(k,1969) - lu(k,697) * lu(k,1952) - lu(k,1970) = lu(k,1970) - lu(k,698) * lu(k,1952) - lu(k,1972) = - lu(k,699) * lu(k,1952) - lu(k,1974) = lu(k,1974) - lu(k,700) * lu(k,1952) - lu(k,1975) = lu(k,1975) - lu(k,701) * lu(k,1952) - lu(k,1976) = lu(k,1976) - lu(k,702) * lu(k,1952) - lu(k,1977) = lu(k,1977) - lu(k,703) * lu(k,1952) - lu(k,1978) = lu(k,1978) - lu(k,704) * lu(k,1952) - lu(k,1979) = lu(k,1979) - lu(k,705) * lu(k,1952) - lu(k,1983) = lu(k,1983) - lu(k,706) * lu(k,1952) - lu(k,1985) = lu(k,1985) - lu(k,707) * lu(k,1952) - lu(k,2062) = lu(k,2062) - lu(k,692) * lu(k,2057) - lu(k,2069) = lu(k,2069) - lu(k,693) * lu(k,2057) - lu(k,2070) = lu(k,2070) - lu(k,694) * lu(k,2057) - lu(k,2071) = lu(k,2071) - lu(k,695) * lu(k,2057) - lu(k,2073) = lu(k,2073) - lu(k,696) * lu(k,2057) - lu(k,2074) = lu(k,2074) - lu(k,697) * lu(k,2057) - lu(k,2075) = lu(k,2075) - lu(k,698) * lu(k,2057) - lu(k,2077) = lu(k,2077) - lu(k,699) * lu(k,2057) - lu(k,2079) = lu(k,2079) - lu(k,700) * lu(k,2057) - lu(k,2080) = lu(k,2080) - lu(k,701) * lu(k,2057) - lu(k,2081) = lu(k,2081) - lu(k,702) * lu(k,2057) - lu(k,2082) = lu(k,2082) - lu(k,703) * lu(k,2057) - lu(k,2083) = lu(k,2083) - lu(k,704) * lu(k,2057) - lu(k,2084) = lu(k,2084) - lu(k,705) * lu(k,2057) - lu(k,2088) = lu(k,2088) - lu(k,706) * lu(k,2057) - lu(k,2090) = lu(k,2090) - lu(k,707) * lu(k,2057) - lu(k,715) = 1._r8 / lu(k,715) - lu(k,716) = lu(k,716) * lu(k,715) - lu(k,717) = lu(k,717) * lu(k,715) - lu(k,718) = lu(k,718) * lu(k,715) - lu(k,719) = lu(k,719) * lu(k,715) - lu(k,720) = lu(k,720) * lu(k,715) - lu(k,721) = lu(k,721) * lu(k,715) - lu(k,722) = lu(k,722) * lu(k,715) - lu(k,723) = lu(k,723) * lu(k,715) - lu(k,724) = lu(k,724) * lu(k,715) - lu(k,725) = lu(k,725) * lu(k,715) - lu(k,726) = lu(k,726) * lu(k,715) - lu(k,727) = lu(k,727) * lu(k,715) - lu(k,728) = lu(k,728) * lu(k,715) - lu(k,729) = lu(k,729) * lu(k,715) - lu(k,730) = lu(k,730) * lu(k,715) - lu(k,731) = lu(k,731) * lu(k,715) - lu(k,732) = lu(k,732) * lu(k,715) - lu(k,738) = lu(k,738) - lu(k,716) * lu(k,737) - lu(k,739) = lu(k,739) - lu(k,717) * lu(k,737) - lu(k,740) = lu(k,740) - lu(k,718) * lu(k,737) - lu(k,741) = lu(k,741) - lu(k,719) * lu(k,737) - lu(k,743) = lu(k,743) - lu(k,720) * lu(k,737) - lu(k,744) = lu(k,744) - lu(k,721) * lu(k,737) - lu(k,745) = lu(k,745) - lu(k,722) * lu(k,737) - lu(k,746) = lu(k,746) - lu(k,723) * lu(k,737) - lu(k,747) = lu(k,747) - lu(k,724) * lu(k,737) - lu(k,748) = lu(k,748) - lu(k,725) * lu(k,737) - lu(k,749) = lu(k,749) - lu(k,726) * lu(k,737) - lu(k,750) = lu(k,750) - lu(k,727) * lu(k,737) - lu(k,751) = lu(k,751) - lu(k,728) * lu(k,737) - lu(k,754) = lu(k,754) - lu(k,729) * lu(k,737) - lu(k,755) = lu(k,755) - lu(k,730) * lu(k,737) - lu(k,756) = lu(k,756) - lu(k,731) * lu(k,737) - lu(k,757) = lu(k,757) - lu(k,732) * lu(k,737) - lu(k,786) = lu(k,786) - lu(k,716) * lu(k,785) - lu(k,787) = lu(k,787) - lu(k,717) * lu(k,785) - lu(k,788) = lu(k,788) - lu(k,718) * lu(k,785) - lu(k,789) = lu(k,789) - lu(k,719) * lu(k,785) - lu(k,791) = lu(k,791) - lu(k,720) * lu(k,785) - lu(k,793) = lu(k,793) - lu(k,721) * lu(k,785) - lu(k,794) = lu(k,794) - lu(k,722) * lu(k,785) - lu(k,795) = lu(k,795) - lu(k,723) * lu(k,785) - lu(k,796) = lu(k,796) - lu(k,724) * lu(k,785) - lu(k,797) = lu(k,797) - lu(k,725) * lu(k,785) - lu(k,800) = lu(k,800) - lu(k,726) * lu(k,785) - lu(k,801) = lu(k,801) - lu(k,727) * lu(k,785) - lu(k,802) = lu(k,802) - lu(k,728) * lu(k,785) - lu(k,805) = lu(k,805) - lu(k,729) * lu(k,785) - lu(k,806) = lu(k,806) - lu(k,730) * lu(k,785) - lu(k,807) = lu(k,807) - lu(k,731) * lu(k,785) - lu(k,808) = lu(k,808) - lu(k,732) * lu(k,785) - lu(k,898) = lu(k,898) - lu(k,716) * lu(k,897) - lu(k,899) = lu(k,899) - lu(k,717) * lu(k,897) - lu(k,900) = lu(k,900) - lu(k,718) * lu(k,897) - lu(k,901) = lu(k,901) - lu(k,719) * lu(k,897) - lu(k,903) = lu(k,903) - lu(k,720) * lu(k,897) - lu(k,905) = lu(k,905) - lu(k,721) * lu(k,897) - lu(k,907) = lu(k,907) - lu(k,722) * lu(k,897) - lu(k,908) = lu(k,908) - lu(k,723) * lu(k,897) - lu(k,909) = lu(k,909) - lu(k,724) * lu(k,897) - lu(k,910) = lu(k,910) - lu(k,725) * lu(k,897) - lu(k,913) = lu(k,913) - lu(k,726) * lu(k,897) - lu(k,914) = lu(k,914) - lu(k,727) * lu(k,897) - lu(k,915) = lu(k,915) - lu(k,728) * lu(k,897) - lu(k,918) = lu(k,918) - lu(k,729) * lu(k,897) - lu(k,919) = lu(k,919) - lu(k,730) * lu(k,897) - lu(k,920) = lu(k,920) - lu(k,731) * lu(k,897) - lu(k,921) = lu(k,921) - lu(k,732) * lu(k,897) - lu(k,981) = lu(k,981) - lu(k,716) * lu(k,980) - lu(k,982) = lu(k,982) - lu(k,717) * lu(k,980) - lu(k,983) = lu(k,983) - lu(k,718) * lu(k,980) - lu(k,984) = lu(k,984) - lu(k,719) * lu(k,980) - lu(k,986) = lu(k,986) - lu(k,720) * lu(k,980) - lu(k,989) = lu(k,989) - lu(k,721) * lu(k,980) - lu(k,991) = lu(k,991) - lu(k,722) * lu(k,980) - lu(k,992) = lu(k,992) - lu(k,723) * lu(k,980) - lu(k,993) = lu(k,993) - lu(k,724) * lu(k,980) - lu(k,994) = lu(k,994) - lu(k,725) * lu(k,980) - lu(k,997) = lu(k,997) - lu(k,726) * lu(k,980) - lu(k,998) = lu(k,998) - lu(k,727) * lu(k,980) - lu(k,999) = lu(k,999) - lu(k,728) * lu(k,980) - lu(k,1002) = lu(k,1002) - lu(k,729) * lu(k,980) - lu(k,1003) = lu(k,1003) - lu(k,730) * lu(k,980) - lu(k,1004) = lu(k,1004) - lu(k,731) * lu(k,980) - lu(k,1005) = lu(k,1005) - lu(k,732) * lu(k,980) - lu(k,1094) = lu(k,1094) - lu(k,716) * lu(k,1093) - lu(k,1095) = lu(k,1095) - lu(k,717) * lu(k,1093) - lu(k,1099) = lu(k,1099) - lu(k,718) * lu(k,1093) - lu(k,1101) = lu(k,1101) - lu(k,719) * lu(k,1093) - lu(k,1104) = lu(k,1104) - lu(k,720) * lu(k,1093) - lu(k,1108) = lu(k,1108) - lu(k,721) * lu(k,1093) - lu(k,1110) = lu(k,1110) - lu(k,722) * lu(k,1093) - lu(k,1111) = lu(k,1111) - lu(k,723) * lu(k,1093) - lu(k,1112) = lu(k,1112) - lu(k,724) * lu(k,1093) - lu(k,1113) = lu(k,1113) - lu(k,725) * lu(k,1093) - lu(k,1118) = lu(k,1118) - lu(k,726) * lu(k,1093) - lu(k,1119) = lu(k,1119) - lu(k,727) * lu(k,1093) - lu(k,1120) = lu(k,1120) - lu(k,728) * lu(k,1093) - lu(k,1123) = lu(k,1123) - lu(k,729) * lu(k,1093) - lu(k,1124) = lu(k,1124) - lu(k,730) * lu(k,1093) - lu(k,1125) = lu(k,1125) - lu(k,731) * lu(k,1093) - lu(k,1126) = lu(k,1126) - lu(k,732) * lu(k,1093) - lu(k,1372) = lu(k,1372) - lu(k,716) * lu(k,1371) - lu(k,1373) = lu(k,1373) - lu(k,717) * lu(k,1371) - lu(k,1377) = lu(k,1377) - lu(k,718) * lu(k,1371) - lu(k,1379) = lu(k,1379) - lu(k,719) * lu(k,1371) - lu(k,1382) = lu(k,1382) - lu(k,720) * lu(k,1371) - lu(k,1386) = lu(k,1386) - lu(k,721) * lu(k,1371) - lu(k,1388) = lu(k,1388) - lu(k,722) * lu(k,1371) - lu(k,1389) = lu(k,1389) - lu(k,723) * lu(k,1371) - lu(k,1390) = lu(k,1390) - lu(k,724) * lu(k,1371) - lu(k,1391) = lu(k,1391) - lu(k,725) * lu(k,1371) - lu(k,1396) = lu(k,1396) - lu(k,726) * lu(k,1371) - lu(k,1397) = lu(k,1397) - lu(k,727) * lu(k,1371) - lu(k,1398) = lu(k,1398) - lu(k,728) * lu(k,1371) - lu(k,1401) = lu(k,1401) - lu(k,729) * lu(k,1371) - lu(k,1402) = lu(k,1402) - lu(k,730) * lu(k,1371) - lu(k,1403) = lu(k,1403) - lu(k,731) * lu(k,1371) - lu(k,1404) = lu(k,1404) - lu(k,732) * lu(k,1371) - lu(k,1422) = lu(k,1422) - lu(k,716) * lu(k,1421) - lu(k,1423) = lu(k,1423) - lu(k,717) * lu(k,1421) - lu(k,1426) = lu(k,1426) - lu(k,718) * lu(k,1421) - lu(k,1428) = lu(k,1428) - lu(k,719) * lu(k,1421) - lu(k,1431) = lu(k,1431) - lu(k,720) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,721) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,722) * lu(k,1421) - lu(k,1438) = lu(k,1438) - lu(k,723) * lu(k,1421) - lu(k,1439) = lu(k,1439) - lu(k,724) * lu(k,1421) - lu(k,1440) = - lu(k,725) * lu(k,1421) - lu(k,1445) = - lu(k,726) * lu(k,1421) - lu(k,1446) = lu(k,1446) - lu(k,727) * lu(k,1421) - lu(k,1447) = lu(k,1447) - lu(k,728) * lu(k,1421) - lu(k,1450) = lu(k,1450) - lu(k,729) * lu(k,1421) - lu(k,1451) = lu(k,1451) - lu(k,730) * lu(k,1421) - lu(k,1452) = - lu(k,731) * lu(k,1421) - lu(k,1453) = lu(k,1453) - lu(k,732) * lu(k,1421) - lu(k,1469) = lu(k,1469) - lu(k,716) * lu(k,1468) - lu(k,1470) = lu(k,1470) - lu(k,717) * lu(k,1468) - lu(k,1474) = lu(k,1474) - lu(k,718) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1468) - lu(k,1479) = lu(k,1479) - lu(k,720) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,721) * lu(k,1468) - lu(k,1485) = lu(k,1485) - lu(k,722) * lu(k,1468) - lu(k,1486) = lu(k,1486) - lu(k,723) * lu(k,1468) - lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1468) - lu(k,1488) = lu(k,1488) - lu(k,725) * lu(k,1468) - lu(k,1493) = lu(k,1493) - lu(k,726) * lu(k,1468) - lu(k,1494) = lu(k,1494) - lu(k,727) * lu(k,1468) - lu(k,1495) = lu(k,1495) - lu(k,728) * lu(k,1468) - lu(k,1498) = lu(k,1498) - lu(k,729) * lu(k,1468) - lu(k,1499) = lu(k,1499) - lu(k,730) * lu(k,1468) - lu(k,1500) = lu(k,1500) - lu(k,731) * lu(k,1468) - lu(k,1501) = lu(k,1501) - lu(k,732) * lu(k,1468) - lu(k,1720) = lu(k,1720) - lu(k,716) * lu(k,1719) - lu(k,1721) = lu(k,1721) - lu(k,717) * lu(k,1719) - lu(k,1723) = lu(k,1723) - lu(k,718) * lu(k,1719) - lu(k,1725) = lu(k,1725) - lu(k,719) * lu(k,1719) - lu(k,1727) = lu(k,1727) - lu(k,720) * lu(k,1719) - lu(k,1731) = lu(k,1731) - lu(k,721) * lu(k,1719) - lu(k,1733) = lu(k,1733) - lu(k,722) * lu(k,1719) - lu(k,1734) = lu(k,1734) - lu(k,723) * lu(k,1719) - lu(k,1735) = lu(k,1735) - lu(k,724) * lu(k,1719) - lu(k,1736) = lu(k,1736) - lu(k,725) * lu(k,1719) - lu(k,1741) = lu(k,1741) - lu(k,726) * lu(k,1719) - lu(k,1742) = lu(k,1742) - lu(k,727) * lu(k,1719) - lu(k,1743) = lu(k,1743) - lu(k,728) * lu(k,1719) - lu(k,1746) = lu(k,1746) - lu(k,729) * lu(k,1719) - lu(k,1747) = lu(k,1747) - lu(k,730) * lu(k,1719) - lu(k,1748) = - lu(k,731) * lu(k,1719) - lu(k,1749) = lu(k,1749) - lu(k,732) * lu(k,1719) - lu(k,1802) = lu(k,1802) - lu(k,716) * lu(k,1801) - lu(k,1803) = lu(k,1803) - lu(k,717) * lu(k,1801) - lu(k,1806) = lu(k,1806) - lu(k,718) * lu(k,1801) - lu(k,1808) = lu(k,1808) - lu(k,719) * lu(k,1801) - lu(k,1811) = lu(k,1811) - lu(k,720) * lu(k,1801) - lu(k,1815) = lu(k,1815) - lu(k,721) * lu(k,1801) - lu(k,1817) = lu(k,1817) - lu(k,722) * lu(k,1801) - lu(k,1818) = lu(k,1818) - lu(k,723) * lu(k,1801) - lu(k,1819) = lu(k,1819) - lu(k,724) * lu(k,1801) - lu(k,1820) = lu(k,1820) - lu(k,725) * lu(k,1801) - lu(k,1825) = lu(k,1825) - lu(k,726) * lu(k,1801) - lu(k,1826) = lu(k,1826) - lu(k,727) * lu(k,1801) - lu(k,1827) = lu(k,1827) - lu(k,728) * lu(k,1801) - lu(k,1830) = lu(k,1830) - lu(k,729) * lu(k,1801) - lu(k,1831) = lu(k,1831) - lu(k,730) * lu(k,1801) - lu(k,1832) = lu(k,1832) - lu(k,731) * lu(k,1801) - lu(k,1833) = lu(k,1833) - lu(k,732) * lu(k,1801) - lu(k,1912) = lu(k,1912) - lu(k,716) * lu(k,1911) - lu(k,1913) = lu(k,1913) - lu(k,717) * lu(k,1911) - lu(k,1916) = lu(k,1916) - lu(k,718) * lu(k,1911) - lu(k,1918) = lu(k,1918) - lu(k,719) * lu(k,1911) - lu(k,1921) = lu(k,1921) - lu(k,720) * lu(k,1911) - lu(k,1925) = lu(k,1925) - lu(k,721) * lu(k,1911) - lu(k,1927) = lu(k,1927) - lu(k,722) * lu(k,1911) - lu(k,1928) = lu(k,1928) - lu(k,723) * lu(k,1911) - lu(k,1929) = lu(k,1929) - lu(k,724) * lu(k,1911) - lu(k,1930) = - lu(k,725) * lu(k,1911) - lu(k,1935) = lu(k,1935) - lu(k,726) * lu(k,1911) - lu(k,1936) = lu(k,1936) - lu(k,727) * lu(k,1911) - lu(k,1937) = lu(k,1937) - lu(k,728) * lu(k,1911) - lu(k,1940) = lu(k,1940) - lu(k,729) * lu(k,1911) - lu(k,1941) = lu(k,1941) - lu(k,730) * lu(k,1911) - lu(k,1942) = - lu(k,731) * lu(k,1911) - lu(k,1943) = lu(k,1943) - lu(k,732) * lu(k,1911) - lu(k,1954) = lu(k,1954) - lu(k,716) * lu(k,1953) - lu(k,1955) = lu(k,1955) - lu(k,717) * lu(k,1953) - lu(k,1958) = lu(k,1958) - lu(k,718) * lu(k,1953) - lu(k,1960) = lu(k,1960) - lu(k,719) * lu(k,1953) - lu(k,1963) = lu(k,1963) - lu(k,720) * lu(k,1953) - lu(k,1967) = lu(k,1967) - lu(k,721) * lu(k,1953) - lu(k,1969) = lu(k,1969) - lu(k,722) * lu(k,1953) - lu(k,1970) = lu(k,1970) - lu(k,723) * lu(k,1953) - lu(k,1971) = lu(k,1971) - lu(k,724) * lu(k,1953) - lu(k,1972) = lu(k,1972) - lu(k,725) * lu(k,1953) - lu(k,1977) = lu(k,1977) - lu(k,726) * lu(k,1953) - lu(k,1978) = lu(k,1978) - lu(k,727) * lu(k,1953) - lu(k,1979) = lu(k,1979) - lu(k,728) * lu(k,1953) - lu(k,1982) = lu(k,1982) - lu(k,729) * lu(k,1953) - lu(k,1983) = lu(k,1983) - lu(k,730) * lu(k,1953) - lu(k,1984) = - lu(k,731) * lu(k,1953) - lu(k,1985) = lu(k,1985) - lu(k,732) * lu(k,1953) - lu(k,1998) = lu(k,1998) - lu(k,716) * lu(k,1997) - lu(k,1999) = lu(k,1999) - lu(k,717) * lu(k,1997) - lu(k,2003) = lu(k,2003) - lu(k,718) * lu(k,1997) - lu(k,2005) = lu(k,2005) - lu(k,719) * lu(k,1997) - lu(k,2008) = lu(k,2008) - lu(k,720) * lu(k,1997) - lu(k,2012) = lu(k,2012) - lu(k,721) * lu(k,1997) - lu(k,2014) = lu(k,2014) - lu(k,722) * lu(k,1997) - lu(k,2015) = lu(k,2015) - lu(k,723) * lu(k,1997) - lu(k,2016) = lu(k,2016) - lu(k,724) * lu(k,1997) - lu(k,2017) = lu(k,2017) - lu(k,725) * lu(k,1997) - lu(k,2022) = lu(k,2022) - lu(k,726) * lu(k,1997) - lu(k,2023) = lu(k,2023) - lu(k,727) * lu(k,1997) - lu(k,2024) = lu(k,2024) - lu(k,728) * lu(k,1997) - lu(k,2027) = lu(k,2027) - lu(k,729) * lu(k,1997) - lu(k,2028) = lu(k,2028) - lu(k,730) * lu(k,1997) - lu(k,2029) = lu(k,2029) - lu(k,731) * lu(k,1997) - lu(k,2030) = lu(k,2030) - lu(k,732) * lu(k,1997) - lu(k,2059) = lu(k,2059) - lu(k,716) * lu(k,2058) - lu(k,2060) = lu(k,2060) - lu(k,717) * lu(k,2058) - lu(k,2063) = lu(k,2063) - lu(k,718) * lu(k,2058) - lu(k,2065) = lu(k,2065) - lu(k,719) * lu(k,2058) - lu(k,2068) = lu(k,2068) - lu(k,720) * lu(k,2058) - lu(k,2072) = lu(k,2072) - lu(k,721) * lu(k,2058) - lu(k,2074) = lu(k,2074) - lu(k,722) * lu(k,2058) - lu(k,2075) = lu(k,2075) - lu(k,723) * lu(k,2058) - lu(k,2076) = lu(k,2076) - lu(k,724) * lu(k,2058) - lu(k,2077) = lu(k,2077) - lu(k,725) * lu(k,2058) - lu(k,2082) = lu(k,2082) - lu(k,726) * lu(k,2058) - lu(k,2083) = lu(k,2083) - lu(k,727) * lu(k,2058) - lu(k,2084) = lu(k,2084) - lu(k,728) * lu(k,2058) - lu(k,2087) = lu(k,2087) - lu(k,729) * lu(k,2058) - lu(k,2088) = lu(k,2088) - lu(k,730) * lu(k,2058) - lu(k,2089) = lu(k,2089) - lu(k,731) * lu(k,2058) - lu(k,2090) = lu(k,2090) - lu(k,732) * lu(k,2058) + lu(k,627) = 1._r8 / lu(k,627) + lu(k,628) = lu(k,628) * lu(k,627) + lu(k,629) = lu(k,629) * lu(k,627) + lu(k,630) = lu(k,630) * lu(k,627) + lu(k,631) = lu(k,631) * lu(k,627) + lu(k,632) = lu(k,632) * lu(k,627) + lu(k,633) = lu(k,633) * lu(k,627) + lu(k,634) = lu(k,634) * lu(k,627) + lu(k,635) = lu(k,635) * lu(k,627) + lu(k,636) = lu(k,636) * lu(k,627) + lu(k,637) = lu(k,637) * lu(k,627) + lu(k,638) = lu(k,638) * lu(k,627) + lu(k,639) = lu(k,639) * lu(k,627) + lu(k,640) = lu(k,640) * lu(k,627) + lu(k,641) = lu(k,641) * lu(k,627) + lu(k,642) = lu(k,642) * lu(k,627) + lu(k,643) = lu(k,643) * lu(k,627) + lu(k,644) = lu(k,644) * lu(k,627) + lu(k,693) = lu(k,693) - lu(k,628) * lu(k,692) + lu(k,694) = lu(k,694) - lu(k,629) * lu(k,692) + lu(k,695) = lu(k,695) - lu(k,630) * lu(k,692) + lu(k,696) = lu(k,696) - lu(k,631) * lu(k,692) + lu(k,697) = lu(k,697) - lu(k,632) * lu(k,692) + lu(k,698) = lu(k,698) - lu(k,633) * lu(k,692) + lu(k,699) = lu(k,699) - lu(k,634) * lu(k,692) + lu(k,700) = lu(k,700) - lu(k,635) * lu(k,692) + lu(k,701) = lu(k,701) - lu(k,636) * lu(k,692) + lu(k,702) = lu(k,702) - lu(k,637) * lu(k,692) + lu(k,703) = lu(k,703) - lu(k,638) * lu(k,692) + lu(k,704) = lu(k,704) - lu(k,639) * lu(k,692) + lu(k,705) = lu(k,705) - lu(k,640) * lu(k,692) + lu(k,706) = lu(k,706) - lu(k,641) * lu(k,692) + lu(k,707) = lu(k,707) - lu(k,642) * lu(k,692) + lu(k,708) = lu(k,708) - lu(k,643) * lu(k,692) + lu(k,709) = lu(k,709) - lu(k,644) * lu(k,692) + lu(k,1143) = lu(k,1143) - lu(k,628) * lu(k,1141) + lu(k,1147) = lu(k,1147) - lu(k,629) * lu(k,1141) + lu(k,1154) = lu(k,1154) - lu(k,630) * lu(k,1141) + lu(k,1155) = lu(k,1155) - lu(k,631) * lu(k,1141) + lu(k,1157) = lu(k,1157) - lu(k,632) * lu(k,1141) + lu(k,1158) = lu(k,1158) - lu(k,633) * lu(k,1141) + lu(k,1159) = lu(k,1159) - lu(k,634) * lu(k,1141) + lu(k,1160) = lu(k,1160) - lu(k,635) * lu(k,1141) + lu(k,1162) = lu(k,1162) - lu(k,636) * lu(k,1141) + lu(k,1164) = lu(k,1164) - lu(k,637) * lu(k,1141) + lu(k,1165) = lu(k,1165) - lu(k,638) * lu(k,1141) + lu(k,1167) = lu(k,1167) - lu(k,639) * lu(k,1141) + lu(k,1168) = lu(k,1168) - lu(k,640) * lu(k,1141) + lu(k,1169) = lu(k,1169) - lu(k,641) * lu(k,1141) + lu(k,1172) = lu(k,1172) - lu(k,642) * lu(k,1141) + lu(k,1173) = lu(k,1173) - lu(k,643) * lu(k,1141) + lu(k,1175) = lu(k,1175) - lu(k,644) * lu(k,1141) + lu(k,1187) = lu(k,1187) - lu(k,628) * lu(k,1185) + lu(k,1190) = lu(k,1190) - lu(k,629) * lu(k,1185) + lu(k,1197) = lu(k,1197) - lu(k,630) * lu(k,1185) + lu(k,1198) = lu(k,1198) - lu(k,631) * lu(k,1185) + lu(k,1200) = lu(k,1200) - lu(k,632) * lu(k,1185) + lu(k,1201) = lu(k,1201) - lu(k,633) * lu(k,1185) + lu(k,1202) = lu(k,1202) - lu(k,634) * lu(k,1185) + lu(k,1203) = lu(k,1203) - lu(k,635) * lu(k,1185) + lu(k,1205) = lu(k,1205) - lu(k,636) * lu(k,1185) + lu(k,1207) = lu(k,1207) - lu(k,637) * lu(k,1185) + lu(k,1208) = lu(k,1208) - lu(k,638) * lu(k,1185) + lu(k,1210) = lu(k,1210) - lu(k,639) * lu(k,1185) + lu(k,1211) = lu(k,1211) - lu(k,640) * lu(k,1185) + lu(k,1212) = lu(k,1212) - lu(k,641) * lu(k,1185) + lu(k,1215) = lu(k,1215) - lu(k,642) * lu(k,1185) + lu(k,1216) = lu(k,1216) - lu(k,643) * lu(k,1185) + lu(k,1218) = lu(k,1218) - lu(k,644) * lu(k,1185) + lu(k,1271) = lu(k,1271) - lu(k,628) * lu(k,1269) + lu(k,1274) = lu(k,1274) - lu(k,629) * lu(k,1269) + lu(k,1281) = lu(k,1281) - lu(k,630) * lu(k,1269) + lu(k,1282) = lu(k,1282) - lu(k,631) * lu(k,1269) + lu(k,1284) = lu(k,1284) - lu(k,632) * lu(k,1269) + lu(k,1285) = lu(k,1285) - lu(k,633) * lu(k,1269) + lu(k,1286) = lu(k,1286) - lu(k,634) * lu(k,1269) + lu(k,1287) = lu(k,1287) - lu(k,635) * lu(k,1269) + lu(k,1289) = lu(k,1289) - lu(k,636) * lu(k,1269) + lu(k,1291) = lu(k,1291) - lu(k,637) * lu(k,1269) + lu(k,1292) = lu(k,1292) - lu(k,638) * lu(k,1269) + lu(k,1294) = lu(k,1294) - lu(k,639) * lu(k,1269) + lu(k,1295) = lu(k,1295) - lu(k,640) * lu(k,1269) + lu(k,1296) = lu(k,1296) - lu(k,641) * lu(k,1269) + lu(k,1299) = lu(k,1299) - lu(k,642) * lu(k,1269) + lu(k,1300) = lu(k,1300) - lu(k,643) * lu(k,1269) + lu(k,1302) = lu(k,1302) - lu(k,644) * lu(k,1269) + lu(k,1313) = lu(k,1313) - lu(k,628) * lu(k,1311) + lu(k,1316) = lu(k,1316) - lu(k,629) * lu(k,1311) + lu(k,1323) = lu(k,1323) - lu(k,630) * lu(k,1311) + lu(k,1324) = lu(k,1324) - lu(k,631) * lu(k,1311) + lu(k,1326) = lu(k,1326) - lu(k,632) * lu(k,1311) + lu(k,1327) = lu(k,1327) - lu(k,633) * lu(k,1311) + lu(k,1328) = lu(k,1328) - lu(k,634) * lu(k,1311) + lu(k,1329) = lu(k,1329) - lu(k,635) * lu(k,1311) + lu(k,1331) = lu(k,1331) - lu(k,636) * lu(k,1311) + lu(k,1333) = lu(k,1333) - lu(k,637) * lu(k,1311) + lu(k,1334) = lu(k,1334) - lu(k,638) * lu(k,1311) + lu(k,1336) = lu(k,1336) - lu(k,639) * lu(k,1311) + lu(k,1337) = lu(k,1337) - lu(k,640) * lu(k,1311) + lu(k,1338) = lu(k,1338) - lu(k,641) * lu(k,1311) + lu(k,1341) = lu(k,1341) - lu(k,642) * lu(k,1311) + lu(k,1342) = lu(k,1342) - lu(k,643) * lu(k,1311) + lu(k,1344) = lu(k,1344) - lu(k,644) * lu(k,1311) + lu(k,1416) = lu(k,1416) - lu(k,628) * lu(k,1414) + lu(k,1419) = lu(k,1419) - lu(k,629) * lu(k,1414) + lu(k,1426) = lu(k,1426) - lu(k,630) * lu(k,1414) + lu(k,1427) = lu(k,1427) - lu(k,631) * lu(k,1414) + lu(k,1429) = lu(k,1429) - lu(k,632) * lu(k,1414) + lu(k,1430) = lu(k,1430) - lu(k,633) * lu(k,1414) + lu(k,1431) = lu(k,1431) - lu(k,634) * lu(k,1414) + lu(k,1432) = lu(k,1432) - lu(k,635) * lu(k,1414) + lu(k,1434) = lu(k,1434) - lu(k,636) * lu(k,1414) + lu(k,1436) = lu(k,1436) - lu(k,637) * lu(k,1414) + lu(k,1437) = lu(k,1437) - lu(k,638) * lu(k,1414) + lu(k,1439) = lu(k,1439) - lu(k,639) * lu(k,1414) + lu(k,1440) = lu(k,1440) - lu(k,640) * lu(k,1414) + lu(k,1441) = lu(k,1441) - lu(k,641) * lu(k,1414) + lu(k,1444) = lu(k,1444) - lu(k,642) * lu(k,1414) + lu(k,1445) = lu(k,1445) - lu(k,643) * lu(k,1414) + lu(k,1447) = lu(k,1447) - lu(k,644) * lu(k,1414) + lu(k,1585) = lu(k,1585) - lu(k,628) * lu(k,1583) + lu(k,1589) = lu(k,1589) - lu(k,629) * lu(k,1583) + lu(k,1596) = lu(k,1596) - lu(k,630) * lu(k,1583) + lu(k,1597) = lu(k,1597) - lu(k,631) * lu(k,1583) + lu(k,1599) = lu(k,1599) - lu(k,632) * lu(k,1583) + lu(k,1600) = lu(k,1600) - lu(k,633) * lu(k,1583) + lu(k,1601) = lu(k,1601) - lu(k,634) * lu(k,1583) + lu(k,1602) = lu(k,1602) - lu(k,635) * lu(k,1583) + lu(k,1604) = lu(k,1604) - lu(k,636) * lu(k,1583) + lu(k,1606) = lu(k,1606) - lu(k,637) * lu(k,1583) + lu(k,1607) = lu(k,1607) - lu(k,638) * lu(k,1583) + lu(k,1609) = lu(k,1609) - lu(k,639) * lu(k,1583) + lu(k,1610) = lu(k,1610) - lu(k,640) * lu(k,1583) + lu(k,1611) = lu(k,1611) - lu(k,641) * lu(k,1583) + lu(k,1614) = lu(k,1614) - lu(k,642) * lu(k,1583) + lu(k,1615) = lu(k,1615) - lu(k,643) * lu(k,1583) + lu(k,1617) = lu(k,1617) - lu(k,644) * lu(k,1583) + lu(k,1629) = lu(k,1629) - lu(k,628) * lu(k,1627) + lu(k,1632) = lu(k,1632) - lu(k,629) * lu(k,1627) + lu(k,1639) = lu(k,1639) - lu(k,630) * lu(k,1627) + lu(k,1640) = lu(k,1640) - lu(k,631) * lu(k,1627) + lu(k,1642) = lu(k,1642) - lu(k,632) * lu(k,1627) + lu(k,1643) = lu(k,1643) - lu(k,633) * lu(k,1627) + lu(k,1644) = lu(k,1644) - lu(k,634) * lu(k,1627) + lu(k,1645) = lu(k,1645) - lu(k,635) * lu(k,1627) + lu(k,1647) = lu(k,1647) - lu(k,636) * lu(k,1627) + lu(k,1649) = lu(k,1649) - lu(k,637) * lu(k,1627) + lu(k,1650) = lu(k,1650) - lu(k,638) * lu(k,1627) + lu(k,1652) = lu(k,1652) - lu(k,639) * lu(k,1627) + lu(k,1653) = lu(k,1653) - lu(k,640) * lu(k,1627) + lu(k,1654) = lu(k,1654) - lu(k,641) * lu(k,1627) + lu(k,1657) = lu(k,1657) - lu(k,642) * lu(k,1627) + lu(k,1658) = lu(k,1658) - lu(k,643) * lu(k,1627) + lu(k,1660) = lu(k,1660) - lu(k,644) * lu(k,1627) + lu(k,1711) = lu(k,1711) - lu(k,628) * lu(k,1710) + lu(k,1715) = lu(k,1715) - lu(k,629) * lu(k,1710) + lu(k,1721) = lu(k,1721) - lu(k,630) * lu(k,1710) + lu(k,1722) = lu(k,1722) - lu(k,631) * lu(k,1710) + lu(k,1724) = lu(k,1724) - lu(k,632) * lu(k,1710) + lu(k,1725) = lu(k,1725) - lu(k,633) * lu(k,1710) + lu(k,1726) = lu(k,1726) - lu(k,634) * lu(k,1710) + lu(k,1727) = lu(k,1727) - lu(k,635) * lu(k,1710) + lu(k,1729) = lu(k,1729) - lu(k,636) * lu(k,1710) + lu(k,1731) = lu(k,1731) - lu(k,637) * lu(k,1710) + lu(k,1732) = lu(k,1732) - lu(k,638) * lu(k,1710) + lu(k,1734) = lu(k,1734) - lu(k,639) * lu(k,1710) + lu(k,1735) = lu(k,1735) - lu(k,640) * lu(k,1710) + lu(k,1736) = lu(k,1736) - lu(k,641) * lu(k,1710) + lu(k,1739) = lu(k,1739) - lu(k,642) * lu(k,1710) + lu(k,1740) = lu(k,1740) - lu(k,643) * lu(k,1710) + lu(k,1742) = lu(k,1742) - lu(k,644) * lu(k,1710) + lu(k,1793) = lu(k,1793) - lu(k,628) * lu(k,1791) + lu(k,1798) = lu(k,1798) - lu(k,629) * lu(k,1791) + lu(k,1805) = lu(k,1805) - lu(k,630) * lu(k,1791) + lu(k,1806) = lu(k,1806) - lu(k,631) * lu(k,1791) + lu(k,1808) = lu(k,1808) - lu(k,632) * lu(k,1791) + lu(k,1809) = lu(k,1809) - lu(k,633) * lu(k,1791) + lu(k,1810) = lu(k,1810) - lu(k,634) * lu(k,1791) + lu(k,1811) = lu(k,1811) - lu(k,635) * lu(k,1791) + lu(k,1813) = lu(k,1813) - lu(k,636) * lu(k,1791) + lu(k,1815) = lu(k,1815) - lu(k,637) * lu(k,1791) + lu(k,1816) = lu(k,1816) - lu(k,638) * lu(k,1791) + lu(k,1818) = lu(k,1818) - lu(k,639) * lu(k,1791) + lu(k,1819) = lu(k,1819) - lu(k,640) * lu(k,1791) + lu(k,1820) = lu(k,1820) - lu(k,641) * lu(k,1791) + lu(k,1823) = lu(k,1823) - lu(k,642) * lu(k,1791) + lu(k,1824) = lu(k,1824) - lu(k,643) * lu(k,1791) + lu(k,1826) = lu(k,1826) - lu(k,644) * lu(k,1791) + lu(k,2060) = lu(k,2060) - lu(k,628) * lu(k,2057) + lu(k,2065) = lu(k,2065) - lu(k,629) * lu(k,2057) + lu(k,2072) = lu(k,2072) - lu(k,630) * lu(k,2057) + lu(k,2073) = lu(k,2073) - lu(k,631) * lu(k,2057) + lu(k,2075) = lu(k,2075) - lu(k,632) * lu(k,2057) + lu(k,2076) = lu(k,2076) - lu(k,633) * lu(k,2057) + lu(k,2077) = lu(k,2077) - lu(k,634) * lu(k,2057) + lu(k,2078) = lu(k,2078) - lu(k,635) * lu(k,2057) + lu(k,2080) = lu(k,2080) - lu(k,636) * lu(k,2057) + lu(k,2082) = lu(k,2082) - lu(k,637) * lu(k,2057) + lu(k,2083) = lu(k,2083) - lu(k,638) * lu(k,2057) + lu(k,2085) = lu(k,2085) - lu(k,639) * lu(k,2057) + lu(k,2086) = lu(k,2086) - lu(k,640) * lu(k,2057) + lu(k,2087) = lu(k,2087) - lu(k,641) * lu(k,2057) + lu(k,2090) = lu(k,2090) - lu(k,642) * lu(k,2057) + lu(k,2091) = lu(k,2091) - lu(k,643) * lu(k,2057) + lu(k,2093) = lu(k,2093) - lu(k,644) * lu(k,2057) + lu(k,649) = 1._r8 / lu(k,649) + lu(k,650) = lu(k,650) * lu(k,649) + lu(k,651) = lu(k,651) * lu(k,649) + lu(k,652) = lu(k,652) * lu(k,649) + lu(k,653) = lu(k,653) * lu(k,649) + lu(k,654) = lu(k,654) * lu(k,649) + lu(k,655) = lu(k,655) * lu(k,649) + lu(k,656) = lu(k,656) * lu(k,649) + lu(k,657) = lu(k,657) * lu(k,649) + lu(k,658) = lu(k,658) * lu(k,649) + lu(k,659) = lu(k,659) * lu(k,649) + lu(k,660) = lu(k,660) * lu(k,649) + lu(k,661) = lu(k,661) * lu(k,649) + lu(k,662) = lu(k,662) * lu(k,649) + lu(k,663) = lu(k,663) * lu(k,649) + lu(k,664) = lu(k,664) * lu(k,649) + lu(k,665) = lu(k,665) * lu(k,649) + lu(k,666) = lu(k,666) * lu(k,649) + lu(k,667) = lu(k,667) * lu(k,649) + lu(k,668) = lu(k,668) * lu(k,649) + lu(k,740) = lu(k,740) - lu(k,650) * lu(k,738) + lu(k,741) = lu(k,741) - lu(k,651) * lu(k,738) + lu(k,742) = lu(k,742) - lu(k,652) * lu(k,738) + lu(k,743) = lu(k,743) - lu(k,653) * lu(k,738) + lu(k,744) = - lu(k,654) * lu(k,738) + lu(k,745) = - lu(k,655) * lu(k,738) + lu(k,747) = lu(k,747) - lu(k,656) * lu(k,738) + lu(k,748) = lu(k,748) - lu(k,657) * lu(k,738) + lu(k,749) = lu(k,749) - lu(k,658) * lu(k,738) + lu(k,750) = lu(k,750) - lu(k,659) * lu(k,738) + lu(k,751) = lu(k,751) - lu(k,660) * lu(k,738) + lu(k,752) = lu(k,752) - lu(k,661) * lu(k,738) + lu(k,753) = - lu(k,662) * lu(k,738) + lu(k,754) = - lu(k,663) * lu(k,738) + lu(k,755) = - lu(k,664) * lu(k,738) + lu(k,756) = lu(k,756) - lu(k,665) * lu(k,738) + lu(k,757) = - lu(k,666) * lu(k,738) + lu(k,758) = lu(k,758) - lu(k,667) * lu(k,738) + lu(k,759) = lu(k,759) - lu(k,668) * lu(k,738) + lu(k,788) = lu(k,788) - lu(k,650) * lu(k,786) + lu(k,789) = lu(k,789) - lu(k,651) * lu(k,786) + lu(k,790) = lu(k,790) - lu(k,652) * lu(k,786) + lu(k,791) = lu(k,791) - lu(k,653) * lu(k,786) + lu(k,792) = lu(k,792) - lu(k,654) * lu(k,786) + lu(k,793) = lu(k,793) - lu(k,655) * lu(k,786) + lu(k,795) = lu(k,795) - lu(k,656) * lu(k,786) + lu(k,796) = lu(k,796) - lu(k,657) * lu(k,786) + lu(k,797) = lu(k,797) - lu(k,658) * lu(k,786) + lu(k,801) = lu(k,801) - lu(k,659) * lu(k,786) + lu(k,802) = lu(k,802) - lu(k,660) * lu(k,786) + lu(k,803) = lu(k,803) - lu(k,661) * lu(k,786) + lu(k,804) = lu(k,804) - lu(k,662) * lu(k,786) + lu(k,805) = - lu(k,663) * lu(k,786) + lu(k,806) = lu(k,806) - lu(k,664) * lu(k,786) + lu(k,807) = lu(k,807) - lu(k,665) * lu(k,786) + lu(k,808) = lu(k,808) - lu(k,666) * lu(k,786) + lu(k,809) = lu(k,809) - lu(k,667) * lu(k,786) + lu(k,810) = lu(k,810) - lu(k,668) * lu(k,786) + lu(k,900) = lu(k,900) - lu(k,650) * lu(k,898) + lu(k,901) = lu(k,901) - lu(k,651) * lu(k,898) + lu(k,902) = lu(k,902) - lu(k,652) * lu(k,898) + lu(k,903) = lu(k,903) - lu(k,653) * lu(k,898) + lu(k,904) = lu(k,904) - lu(k,654) * lu(k,898) + lu(k,905) = lu(k,905) - lu(k,655) * lu(k,898) + lu(k,908) = lu(k,908) - lu(k,656) * lu(k,898) + lu(k,909) = lu(k,909) - lu(k,657) * lu(k,898) + lu(k,910) = - lu(k,658) * lu(k,898) + lu(k,914) = lu(k,914) - lu(k,659) * lu(k,898) + lu(k,915) = lu(k,915) - lu(k,660) * lu(k,898) + lu(k,916) = lu(k,916) - lu(k,661) * lu(k,898) + lu(k,917) = lu(k,917) - lu(k,662) * lu(k,898) + lu(k,918) = - lu(k,663) * lu(k,898) + lu(k,919) = - lu(k,664) * lu(k,898) + lu(k,920) = lu(k,920) - lu(k,665) * lu(k,898) + lu(k,921) = lu(k,921) - lu(k,666) * lu(k,898) + lu(k,922) = lu(k,922) - lu(k,667) * lu(k,898) + lu(k,923) = lu(k,923) - lu(k,668) * lu(k,898) + lu(k,983) = lu(k,983) - lu(k,650) * lu(k,981) + lu(k,984) = lu(k,984) - lu(k,651) * lu(k,981) + lu(k,985) = lu(k,985) - lu(k,652) * lu(k,981) + lu(k,986) = lu(k,986) - lu(k,653) * lu(k,981) + lu(k,987) = lu(k,987) - lu(k,654) * lu(k,981) + lu(k,988) = lu(k,988) - lu(k,655) * lu(k,981) + lu(k,992) = lu(k,992) - lu(k,656) * lu(k,981) + lu(k,993) = lu(k,993) - lu(k,657) * lu(k,981) + lu(k,994) = lu(k,994) - lu(k,658) * lu(k,981) + lu(k,998) = lu(k,998) - lu(k,659) * lu(k,981) + lu(k,999) = lu(k,999) - lu(k,660) * lu(k,981) + lu(k,1000) = lu(k,1000) - lu(k,661) * lu(k,981) + lu(k,1001) = lu(k,1001) - lu(k,662) * lu(k,981) + lu(k,1002) = - lu(k,663) * lu(k,981) + lu(k,1003) = - lu(k,664) * lu(k,981) + lu(k,1004) = lu(k,1004) - lu(k,665) * lu(k,981) + lu(k,1005) = lu(k,1005) - lu(k,666) * lu(k,981) + lu(k,1006) = lu(k,1006) - lu(k,667) * lu(k,981) + lu(k,1007) = lu(k,1007) - lu(k,668) * lu(k,981) + lu(k,1372) = lu(k,1372) - lu(k,650) * lu(k,1370) + lu(k,1373) = lu(k,1373) - lu(k,651) * lu(k,1370) + lu(k,1377) = lu(k,1377) - lu(k,652) * lu(k,1370) + lu(k,1379) = lu(k,1379) - lu(k,653) * lu(k,1370) + lu(k,1381) = lu(k,1381) - lu(k,654) * lu(k,1370) + lu(k,1382) = lu(k,1382) - lu(k,655) * lu(k,1370) + lu(k,1388) = lu(k,1388) - lu(k,656) * lu(k,1370) + lu(k,1390) = lu(k,1390) - lu(k,657) * lu(k,1370) + lu(k,1391) = lu(k,1391) - lu(k,658) * lu(k,1370) + lu(k,1395) = lu(k,1395) - lu(k,659) * lu(k,1370) + lu(k,1396) = lu(k,1396) - lu(k,660) * lu(k,1370) + lu(k,1397) = lu(k,1397) - lu(k,661) * lu(k,1370) + lu(k,1398) = lu(k,1398) - lu(k,662) * lu(k,1370) + lu(k,1399) = lu(k,1399) - lu(k,663) * lu(k,1370) + lu(k,1400) = lu(k,1400) - lu(k,664) * lu(k,1370) + lu(k,1401) = lu(k,1401) - lu(k,665) * lu(k,1370) + lu(k,1402) = lu(k,1402) - lu(k,666) * lu(k,1370) + lu(k,1403) = lu(k,1403) - lu(k,667) * lu(k,1370) + lu(k,1404) = lu(k,1404) - lu(k,668) * lu(k,1370) + lu(k,1463) = lu(k,1463) - lu(k,650) * lu(k,1461) + lu(k,1464) = lu(k,1464) - lu(k,651) * lu(k,1461) + lu(k,1468) = lu(k,1468) - lu(k,652) * lu(k,1461) + lu(k,1470) = lu(k,1470) - lu(k,653) * lu(k,1461) + lu(k,1472) = - lu(k,654) * lu(k,1461) + lu(k,1473) = lu(k,1473) - lu(k,655) * lu(k,1461) + lu(k,1479) = lu(k,1479) - lu(k,656) * lu(k,1461) + lu(k,1481) = lu(k,1481) - lu(k,657) * lu(k,1461) + lu(k,1482) = lu(k,1482) - lu(k,658) * lu(k,1461) + lu(k,1486) = lu(k,1486) - lu(k,659) * lu(k,1461) + lu(k,1487) = lu(k,1487) - lu(k,660) * lu(k,1461) + lu(k,1488) = lu(k,1488) - lu(k,661) * lu(k,1461) + lu(k,1489) = lu(k,1489) - lu(k,662) * lu(k,1461) + lu(k,1490) = lu(k,1490) - lu(k,663) * lu(k,1461) + lu(k,1491) = lu(k,1491) - lu(k,664) * lu(k,1461) + lu(k,1492) = lu(k,1492) - lu(k,665) * lu(k,1461) + lu(k,1493) = lu(k,1493) - lu(k,666) * lu(k,1461) + lu(k,1494) = lu(k,1494) - lu(k,667) * lu(k,1461) + lu(k,1495) = lu(k,1495) - lu(k,668) * lu(k,1461) + lu(k,1505) = lu(k,1505) - lu(k,650) * lu(k,1503) + lu(k,1506) = lu(k,1506) - lu(k,651) * lu(k,1503) + lu(k,1509) = lu(k,1509) - lu(k,652) * lu(k,1503) + lu(k,1511) = lu(k,1511) - lu(k,653) * lu(k,1503) + lu(k,1513) = - lu(k,654) * lu(k,1503) + lu(k,1514) = lu(k,1514) - lu(k,655) * lu(k,1503) + lu(k,1520) = lu(k,1520) - lu(k,656) * lu(k,1503) + lu(k,1522) = lu(k,1522) - lu(k,657) * lu(k,1503) + lu(k,1523) = lu(k,1523) - lu(k,658) * lu(k,1503) + lu(k,1527) = lu(k,1527) - lu(k,659) * lu(k,1503) + lu(k,1528) = lu(k,1528) - lu(k,660) * lu(k,1503) + lu(k,1529) = lu(k,1529) - lu(k,661) * lu(k,1503) + lu(k,1530) = lu(k,1530) - lu(k,662) * lu(k,1503) + lu(k,1531) = - lu(k,663) * lu(k,1503) + lu(k,1532) = lu(k,1532) - lu(k,664) * lu(k,1503) + lu(k,1533) = lu(k,1533) - lu(k,665) * lu(k,1503) + lu(k,1534) = lu(k,1534) - lu(k,666) * lu(k,1503) + lu(k,1535) = lu(k,1535) - lu(k,667) * lu(k,1503) + lu(k,1536) = lu(k,1536) - lu(k,668) * lu(k,1503) + lu(k,1746) = - lu(k,650) * lu(k,1745) + lu(k,1747) = - lu(k,651) * lu(k,1745) + lu(k,1751) = lu(k,1751) - lu(k,652) * lu(k,1745) + lu(k,1753) = lu(k,1753) - lu(k,653) * lu(k,1745) + lu(k,1755) = lu(k,1755) - lu(k,654) * lu(k,1745) + lu(k,1756) = - lu(k,655) * lu(k,1745) + lu(k,1762) = lu(k,1762) - lu(k,656) * lu(k,1745) + lu(k,1764) = - lu(k,657) * lu(k,1745) + lu(k,1765) = - lu(k,658) * lu(k,1745) + lu(k,1769) = lu(k,1769) - lu(k,659) * lu(k,1745) + lu(k,1770) = - lu(k,660) * lu(k,1745) + lu(k,1771) = lu(k,1771) - lu(k,661) * lu(k,1745) + lu(k,1772) = lu(k,1772) - lu(k,662) * lu(k,1745) + lu(k,1773) = lu(k,1773) - lu(k,663) * lu(k,1745) + lu(k,1774) = lu(k,1774) - lu(k,664) * lu(k,1745) + lu(k,1775) = lu(k,1775) - lu(k,665) * lu(k,1745) + lu(k,1776) = lu(k,1776) - lu(k,666) * lu(k,1745) + lu(k,1777) = lu(k,1777) - lu(k,667) * lu(k,1745) + lu(k,1778) = lu(k,1778) - lu(k,668) * lu(k,1745) + lu(k,1864) = - lu(k,650) * lu(k,1863) + lu(k,1865) = - lu(k,651) * lu(k,1863) + lu(k,1868) = - lu(k,652) * lu(k,1863) + lu(k,1870) = lu(k,1870) - lu(k,653) * lu(k,1863) + lu(k,1872) = lu(k,1872) - lu(k,654) * lu(k,1863) + lu(k,1873) = lu(k,1873) - lu(k,655) * lu(k,1863) + lu(k,1879) = lu(k,1879) - lu(k,656) * lu(k,1863) + lu(k,1881) = lu(k,1881) - lu(k,657) * lu(k,1863) + lu(k,1882) = lu(k,1882) - lu(k,658) * lu(k,1863) + lu(k,1886) = lu(k,1886) - lu(k,659) * lu(k,1863) + lu(k,1887) = - lu(k,660) * lu(k,1863) + lu(k,1888) = lu(k,1888) - lu(k,661) * lu(k,1863) + lu(k,1889) = lu(k,1889) - lu(k,662) * lu(k,1863) + lu(k,1890) = lu(k,1890) - lu(k,663) * lu(k,1863) + lu(k,1891) = lu(k,1891) - lu(k,664) * lu(k,1863) + lu(k,1892) = lu(k,1892) - lu(k,665) * lu(k,1863) + lu(k,1893) = lu(k,1893) - lu(k,666) * lu(k,1863) + lu(k,1894) = lu(k,1894) - lu(k,667) * lu(k,1863) + lu(k,1895) = lu(k,1895) - lu(k,668) * lu(k,1863) + lu(k,2062) = lu(k,2062) - lu(k,650) * lu(k,2058) + lu(k,2063) = lu(k,2063) - lu(k,651) * lu(k,2058) + lu(k,2066) = lu(k,2066) - lu(k,652) * lu(k,2058) + lu(k,2068) = lu(k,2068) - lu(k,653) * lu(k,2058) + lu(k,2070) = lu(k,2070) - lu(k,654) * lu(k,2058) + lu(k,2071) = lu(k,2071) - lu(k,655) * lu(k,2058) + lu(k,2077) = lu(k,2077) - lu(k,656) * lu(k,2058) + lu(k,2079) = lu(k,2079) - lu(k,657) * lu(k,2058) + lu(k,2080) = lu(k,2080) - lu(k,658) * lu(k,2058) + lu(k,2084) = lu(k,2084) - lu(k,659) * lu(k,2058) + lu(k,2085) = lu(k,2085) - lu(k,660) * lu(k,2058) + lu(k,2086) = lu(k,2086) - lu(k,661) * lu(k,2058) + lu(k,2087) = lu(k,2087) - lu(k,662) * lu(k,2058) + lu(k,2088) = lu(k,2088) - lu(k,663) * lu(k,2058) + lu(k,2089) = lu(k,2089) - lu(k,664) * lu(k,2058) + lu(k,2090) = lu(k,2090) - lu(k,665) * lu(k,2058) + lu(k,2091) = lu(k,2091) - lu(k,666) * lu(k,2058) + lu(k,2092) = lu(k,2092) - lu(k,667) * lu(k,2058) + lu(k,2093) = lu(k,2093) - lu(k,668) * lu(k,2058) end do end subroutine lu_fac17 subroutine lu_fac18( avec_len, lu ) @@ -5097,751 +4407,720 @@ subroutine lu_fac18( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,738) = 1._r8 / lu(k,738) - lu(k,739) = lu(k,739) * lu(k,738) - lu(k,740) = lu(k,740) * lu(k,738) - lu(k,741) = lu(k,741) * lu(k,738) - lu(k,742) = lu(k,742) * lu(k,738) - lu(k,743) = lu(k,743) * lu(k,738) - lu(k,744) = lu(k,744) * lu(k,738) - lu(k,745) = lu(k,745) * lu(k,738) - lu(k,746) = lu(k,746) * lu(k,738) - lu(k,747) = lu(k,747) * lu(k,738) - lu(k,748) = lu(k,748) * lu(k,738) - lu(k,749) = lu(k,749) * lu(k,738) - lu(k,750) = lu(k,750) * lu(k,738) - lu(k,751) = lu(k,751) * lu(k,738) - lu(k,752) = lu(k,752) * lu(k,738) - lu(k,753) = lu(k,753) * lu(k,738) - lu(k,754) = lu(k,754) * lu(k,738) - lu(k,755) = lu(k,755) * lu(k,738) - lu(k,756) = lu(k,756) * lu(k,738) - lu(k,757) = lu(k,757) * lu(k,738) - lu(k,787) = lu(k,787) - lu(k,739) * lu(k,786) - lu(k,788) = lu(k,788) - lu(k,740) * lu(k,786) - lu(k,789) = lu(k,789) - lu(k,741) * lu(k,786) - lu(k,790) = lu(k,790) - lu(k,742) * lu(k,786) - lu(k,791) = lu(k,791) - lu(k,743) * lu(k,786) - lu(k,793) = lu(k,793) - lu(k,744) * lu(k,786) - lu(k,794) = lu(k,794) - lu(k,745) * lu(k,786) - lu(k,795) = lu(k,795) - lu(k,746) * lu(k,786) - lu(k,796) = lu(k,796) - lu(k,747) * lu(k,786) - lu(k,797) = lu(k,797) - lu(k,748) * lu(k,786) - lu(k,800) = lu(k,800) - lu(k,749) * lu(k,786) - lu(k,801) = lu(k,801) - lu(k,750) * lu(k,786) - lu(k,802) = lu(k,802) - lu(k,751) * lu(k,786) - lu(k,803) = lu(k,803) - lu(k,752) * lu(k,786) - lu(k,804) = lu(k,804) - lu(k,753) * lu(k,786) - lu(k,805) = lu(k,805) - lu(k,754) * lu(k,786) - lu(k,806) = lu(k,806) - lu(k,755) * lu(k,786) - lu(k,807) = lu(k,807) - lu(k,756) * lu(k,786) - lu(k,808) = lu(k,808) - lu(k,757) * lu(k,786) - lu(k,899) = lu(k,899) - lu(k,739) * lu(k,898) - lu(k,900) = lu(k,900) - lu(k,740) * lu(k,898) - lu(k,901) = lu(k,901) - lu(k,741) * lu(k,898) - lu(k,902) = lu(k,902) - lu(k,742) * lu(k,898) - lu(k,903) = lu(k,903) - lu(k,743) * lu(k,898) - lu(k,905) = lu(k,905) - lu(k,744) * lu(k,898) - lu(k,907) = lu(k,907) - lu(k,745) * lu(k,898) - lu(k,908) = lu(k,908) - lu(k,746) * lu(k,898) - lu(k,909) = lu(k,909) - lu(k,747) * lu(k,898) - lu(k,910) = lu(k,910) - lu(k,748) * lu(k,898) - lu(k,913) = lu(k,913) - lu(k,749) * lu(k,898) - lu(k,914) = lu(k,914) - lu(k,750) * lu(k,898) - lu(k,915) = lu(k,915) - lu(k,751) * lu(k,898) - lu(k,916) = lu(k,916) - lu(k,752) * lu(k,898) - lu(k,917) = lu(k,917) - lu(k,753) * lu(k,898) - lu(k,918) = lu(k,918) - lu(k,754) * lu(k,898) - lu(k,919) = lu(k,919) - lu(k,755) * lu(k,898) - lu(k,920) = lu(k,920) - lu(k,756) * lu(k,898) - lu(k,921) = lu(k,921) - lu(k,757) * lu(k,898) - lu(k,982) = lu(k,982) - lu(k,739) * lu(k,981) - lu(k,983) = lu(k,983) - lu(k,740) * lu(k,981) - lu(k,984) = lu(k,984) - lu(k,741) * lu(k,981) - lu(k,985) = lu(k,985) - lu(k,742) * lu(k,981) - lu(k,986) = lu(k,986) - lu(k,743) * lu(k,981) - lu(k,989) = lu(k,989) - lu(k,744) * lu(k,981) - lu(k,991) = lu(k,991) - lu(k,745) * lu(k,981) - lu(k,992) = lu(k,992) - lu(k,746) * lu(k,981) - lu(k,993) = lu(k,993) - lu(k,747) * lu(k,981) - lu(k,994) = lu(k,994) - lu(k,748) * lu(k,981) - lu(k,997) = lu(k,997) - lu(k,749) * lu(k,981) - lu(k,998) = lu(k,998) - lu(k,750) * lu(k,981) - lu(k,999) = lu(k,999) - lu(k,751) * lu(k,981) - lu(k,1000) = lu(k,1000) - lu(k,752) * lu(k,981) - lu(k,1001) = lu(k,1001) - lu(k,753) * lu(k,981) - lu(k,1002) = lu(k,1002) - lu(k,754) * lu(k,981) - lu(k,1003) = lu(k,1003) - lu(k,755) * lu(k,981) - lu(k,1004) = lu(k,1004) - lu(k,756) * lu(k,981) - lu(k,1005) = lu(k,1005) - lu(k,757) * lu(k,981) - lu(k,1095) = lu(k,1095) - lu(k,739) * lu(k,1094) - lu(k,1099) = lu(k,1099) - lu(k,740) * lu(k,1094) - lu(k,1101) = lu(k,1101) - lu(k,741) * lu(k,1094) - lu(k,1103) = - lu(k,742) * lu(k,1094) - lu(k,1104) = lu(k,1104) - lu(k,743) * lu(k,1094) - lu(k,1108) = lu(k,1108) - lu(k,744) * lu(k,1094) - lu(k,1110) = lu(k,1110) - lu(k,745) * lu(k,1094) - lu(k,1111) = lu(k,1111) - lu(k,746) * lu(k,1094) - lu(k,1112) = lu(k,1112) - lu(k,747) * lu(k,1094) - lu(k,1113) = lu(k,1113) - lu(k,748) * lu(k,1094) - lu(k,1118) = lu(k,1118) - lu(k,749) * lu(k,1094) - lu(k,1119) = lu(k,1119) - lu(k,750) * lu(k,1094) - lu(k,1120) = lu(k,1120) - lu(k,751) * lu(k,1094) - lu(k,1121) = lu(k,1121) - lu(k,752) * lu(k,1094) - lu(k,1122) = lu(k,1122) - lu(k,753) * lu(k,1094) - lu(k,1123) = lu(k,1123) - lu(k,754) * lu(k,1094) - lu(k,1124) = lu(k,1124) - lu(k,755) * lu(k,1094) - lu(k,1125) = lu(k,1125) - lu(k,756) * lu(k,1094) - lu(k,1126) = lu(k,1126) - lu(k,757) * lu(k,1094) - lu(k,1373) = lu(k,1373) - lu(k,739) * lu(k,1372) - lu(k,1377) = lu(k,1377) - lu(k,740) * lu(k,1372) - lu(k,1379) = lu(k,1379) - lu(k,741) * lu(k,1372) - lu(k,1381) = lu(k,1381) - lu(k,742) * lu(k,1372) - lu(k,1382) = lu(k,1382) - lu(k,743) * lu(k,1372) - lu(k,1386) = lu(k,1386) - lu(k,744) * lu(k,1372) - lu(k,1388) = lu(k,1388) - lu(k,745) * lu(k,1372) - lu(k,1389) = lu(k,1389) - lu(k,746) * lu(k,1372) - lu(k,1390) = lu(k,1390) - lu(k,747) * lu(k,1372) - lu(k,1391) = lu(k,1391) - lu(k,748) * lu(k,1372) - lu(k,1396) = lu(k,1396) - lu(k,749) * lu(k,1372) - lu(k,1397) = lu(k,1397) - lu(k,750) * lu(k,1372) - lu(k,1398) = lu(k,1398) - lu(k,751) * lu(k,1372) - lu(k,1399) = lu(k,1399) - lu(k,752) * lu(k,1372) - lu(k,1400) = lu(k,1400) - lu(k,753) * lu(k,1372) - lu(k,1401) = lu(k,1401) - lu(k,754) * lu(k,1372) - lu(k,1402) = lu(k,1402) - lu(k,755) * lu(k,1372) - lu(k,1403) = lu(k,1403) - lu(k,756) * lu(k,1372) - lu(k,1404) = lu(k,1404) - lu(k,757) * lu(k,1372) - lu(k,1423) = lu(k,1423) - lu(k,739) * lu(k,1422) - lu(k,1426) = lu(k,1426) - lu(k,740) * lu(k,1422) - lu(k,1428) = lu(k,1428) - lu(k,741) * lu(k,1422) - lu(k,1430) = lu(k,1430) - lu(k,742) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,743) * lu(k,1422) - lu(k,1435) = lu(k,1435) - lu(k,744) * lu(k,1422) - lu(k,1437) = lu(k,1437) - lu(k,745) * lu(k,1422) - lu(k,1438) = lu(k,1438) - lu(k,746) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,747) * lu(k,1422) - lu(k,1440) = lu(k,1440) - lu(k,748) * lu(k,1422) - lu(k,1445) = lu(k,1445) - lu(k,749) * lu(k,1422) - lu(k,1446) = lu(k,1446) - lu(k,750) * lu(k,1422) - lu(k,1447) = lu(k,1447) - lu(k,751) * lu(k,1422) - lu(k,1448) = lu(k,1448) - lu(k,752) * lu(k,1422) - lu(k,1449) = lu(k,1449) - lu(k,753) * lu(k,1422) - lu(k,1450) = lu(k,1450) - lu(k,754) * lu(k,1422) - lu(k,1451) = lu(k,1451) - lu(k,755) * lu(k,1422) - lu(k,1452) = lu(k,1452) - lu(k,756) * lu(k,1422) - lu(k,1453) = lu(k,1453) - lu(k,757) * lu(k,1422) - lu(k,1470) = lu(k,1470) - lu(k,739) * lu(k,1469) - lu(k,1474) = lu(k,1474) - lu(k,740) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,741) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,742) * lu(k,1469) - lu(k,1479) = lu(k,1479) - lu(k,743) * lu(k,1469) - lu(k,1483) = lu(k,1483) - lu(k,744) * lu(k,1469) - lu(k,1485) = lu(k,1485) - lu(k,745) * lu(k,1469) - lu(k,1486) = lu(k,1486) - lu(k,746) * lu(k,1469) - lu(k,1487) = lu(k,1487) - lu(k,747) * lu(k,1469) - lu(k,1488) = lu(k,1488) - lu(k,748) * lu(k,1469) - lu(k,1493) = lu(k,1493) - lu(k,749) * lu(k,1469) - lu(k,1494) = lu(k,1494) - lu(k,750) * lu(k,1469) - lu(k,1495) = lu(k,1495) - lu(k,751) * lu(k,1469) - lu(k,1496) = lu(k,1496) - lu(k,752) * lu(k,1469) - lu(k,1497) = lu(k,1497) - lu(k,753) * lu(k,1469) - lu(k,1498) = lu(k,1498) - lu(k,754) * lu(k,1469) - lu(k,1499) = lu(k,1499) - lu(k,755) * lu(k,1469) - lu(k,1500) = lu(k,1500) - lu(k,756) * lu(k,1469) - lu(k,1501) = lu(k,1501) - lu(k,757) * lu(k,1469) - lu(k,1512) = lu(k,1512) - lu(k,739) * lu(k,1511) - lu(k,1515) = lu(k,1515) - lu(k,740) * lu(k,1511) - lu(k,1517) = lu(k,1517) - lu(k,741) * lu(k,1511) - lu(k,1519) = lu(k,1519) - lu(k,742) * lu(k,1511) - lu(k,1520) = lu(k,1520) - lu(k,743) * lu(k,1511) - lu(k,1524) = lu(k,1524) - lu(k,744) * lu(k,1511) - lu(k,1526) = lu(k,1526) - lu(k,745) * lu(k,1511) - lu(k,1527) = lu(k,1527) - lu(k,746) * lu(k,1511) - lu(k,1528) = lu(k,1528) - lu(k,747) * lu(k,1511) - lu(k,1529) = lu(k,1529) - lu(k,748) * lu(k,1511) - lu(k,1534) = lu(k,1534) - lu(k,749) * lu(k,1511) - lu(k,1535) = lu(k,1535) - lu(k,750) * lu(k,1511) - lu(k,1536) = lu(k,1536) - lu(k,751) * lu(k,1511) - lu(k,1537) = lu(k,1537) - lu(k,752) * lu(k,1511) - lu(k,1538) = lu(k,1538) - lu(k,753) * lu(k,1511) - lu(k,1539) = - lu(k,754) * lu(k,1511) - lu(k,1540) = lu(k,1540) - lu(k,755) * lu(k,1511) - lu(k,1541) = lu(k,1541) - lu(k,756) * lu(k,1511) - lu(k,1542) = lu(k,1542) - lu(k,757) * lu(k,1511) - lu(k,1721) = lu(k,1721) - lu(k,739) * lu(k,1720) - lu(k,1723) = lu(k,1723) - lu(k,740) * lu(k,1720) - lu(k,1725) = lu(k,1725) - lu(k,741) * lu(k,1720) - lu(k,1726) = - lu(k,742) * lu(k,1720) - lu(k,1727) = lu(k,1727) - lu(k,743) * lu(k,1720) - lu(k,1731) = lu(k,1731) - lu(k,744) * lu(k,1720) - lu(k,1733) = lu(k,1733) - lu(k,745) * lu(k,1720) - lu(k,1734) = lu(k,1734) - lu(k,746) * lu(k,1720) - lu(k,1735) = lu(k,1735) - lu(k,747) * lu(k,1720) - lu(k,1736) = lu(k,1736) - lu(k,748) * lu(k,1720) - lu(k,1741) = lu(k,1741) - lu(k,749) * lu(k,1720) - lu(k,1742) = lu(k,1742) - lu(k,750) * lu(k,1720) - lu(k,1743) = lu(k,1743) - lu(k,751) * lu(k,1720) - lu(k,1744) = - lu(k,752) * lu(k,1720) - lu(k,1745) = - lu(k,753) * lu(k,1720) - lu(k,1746) = lu(k,1746) - lu(k,754) * lu(k,1720) - lu(k,1747) = lu(k,1747) - lu(k,755) * lu(k,1720) - lu(k,1748) = lu(k,1748) - lu(k,756) * lu(k,1720) - lu(k,1749) = lu(k,1749) - lu(k,757) * lu(k,1720) - lu(k,1754) = lu(k,1754) - lu(k,739) * lu(k,1753) - lu(k,1758) = lu(k,1758) - lu(k,740) * lu(k,1753) - lu(k,1760) = lu(k,1760) - lu(k,741) * lu(k,1753) - lu(k,1762) = lu(k,1762) - lu(k,742) * lu(k,1753) - lu(k,1763) = lu(k,1763) - lu(k,743) * lu(k,1753) - lu(k,1767) = lu(k,1767) - lu(k,744) * lu(k,1753) - lu(k,1769) = lu(k,1769) - lu(k,745) * lu(k,1753) - lu(k,1770) = lu(k,1770) - lu(k,746) * lu(k,1753) - lu(k,1771) = lu(k,1771) - lu(k,747) * lu(k,1753) - lu(k,1772) = lu(k,1772) - lu(k,748) * lu(k,1753) - lu(k,1777) = lu(k,1777) - lu(k,749) * lu(k,1753) - lu(k,1778) = lu(k,1778) - lu(k,750) * lu(k,1753) - lu(k,1779) = lu(k,1779) - lu(k,751) * lu(k,1753) - lu(k,1780) = lu(k,1780) - lu(k,752) * lu(k,1753) - lu(k,1781) = lu(k,1781) - lu(k,753) * lu(k,1753) - lu(k,1782) = lu(k,1782) - lu(k,754) * lu(k,1753) - lu(k,1783) = lu(k,1783) - lu(k,755) * lu(k,1753) - lu(k,1784) = lu(k,1784) - lu(k,756) * lu(k,1753) - lu(k,1785) = lu(k,1785) - lu(k,757) * lu(k,1753) - lu(k,1803) = lu(k,1803) - lu(k,739) * lu(k,1802) - lu(k,1806) = lu(k,1806) - lu(k,740) * lu(k,1802) - lu(k,1808) = lu(k,1808) - lu(k,741) * lu(k,1802) - lu(k,1810) = lu(k,1810) - lu(k,742) * lu(k,1802) - lu(k,1811) = lu(k,1811) - lu(k,743) * lu(k,1802) - lu(k,1815) = lu(k,1815) - lu(k,744) * lu(k,1802) - lu(k,1817) = lu(k,1817) - lu(k,745) * lu(k,1802) - lu(k,1818) = lu(k,1818) - lu(k,746) * lu(k,1802) - lu(k,1819) = lu(k,1819) - lu(k,747) * lu(k,1802) - lu(k,1820) = lu(k,1820) - lu(k,748) * lu(k,1802) - lu(k,1825) = lu(k,1825) - lu(k,749) * lu(k,1802) - lu(k,1826) = lu(k,1826) - lu(k,750) * lu(k,1802) - lu(k,1827) = lu(k,1827) - lu(k,751) * lu(k,1802) - lu(k,1828) = lu(k,1828) - lu(k,752) * lu(k,1802) - lu(k,1829) = lu(k,1829) - lu(k,753) * lu(k,1802) - lu(k,1830) = lu(k,1830) - lu(k,754) * lu(k,1802) - lu(k,1831) = lu(k,1831) - lu(k,755) * lu(k,1802) - lu(k,1832) = lu(k,1832) - lu(k,756) * lu(k,1802) - lu(k,1833) = lu(k,1833) - lu(k,757) * lu(k,1802) - lu(k,1872) = lu(k,1872) - lu(k,739) * lu(k,1871) - lu(k,1875) = lu(k,1875) - lu(k,740) * lu(k,1871) - lu(k,1877) = lu(k,1877) - lu(k,741) * lu(k,1871) - lu(k,1879) = lu(k,1879) - lu(k,742) * lu(k,1871) - lu(k,1880) = lu(k,1880) - lu(k,743) * lu(k,1871) - lu(k,1884) = lu(k,1884) - lu(k,744) * lu(k,1871) - lu(k,1886) = lu(k,1886) - lu(k,745) * lu(k,1871) - lu(k,1887) = lu(k,1887) - lu(k,746) * lu(k,1871) - lu(k,1888) = lu(k,1888) - lu(k,747) * lu(k,1871) - lu(k,1889) = lu(k,1889) - lu(k,748) * lu(k,1871) - lu(k,1894) = lu(k,1894) - lu(k,749) * lu(k,1871) - lu(k,1895) = lu(k,1895) - lu(k,750) * lu(k,1871) - lu(k,1896) = lu(k,1896) - lu(k,751) * lu(k,1871) - lu(k,1897) = lu(k,1897) - lu(k,752) * lu(k,1871) - lu(k,1898) = lu(k,1898) - lu(k,753) * lu(k,1871) - lu(k,1899) = lu(k,1899) - lu(k,754) * lu(k,1871) - lu(k,1900) = lu(k,1900) - lu(k,755) * lu(k,1871) - lu(k,1901) = lu(k,1901) - lu(k,756) * lu(k,1871) - lu(k,1902) = lu(k,1902) - lu(k,757) * lu(k,1871) - lu(k,1913) = lu(k,1913) - lu(k,739) * lu(k,1912) - lu(k,1916) = lu(k,1916) - lu(k,740) * lu(k,1912) - lu(k,1918) = lu(k,1918) - lu(k,741) * lu(k,1912) - lu(k,1920) = lu(k,1920) - lu(k,742) * lu(k,1912) - lu(k,1921) = lu(k,1921) - lu(k,743) * lu(k,1912) - lu(k,1925) = lu(k,1925) - lu(k,744) * lu(k,1912) - lu(k,1927) = lu(k,1927) - lu(k,745) * lu(k,1912) - lu(k,1928) = lu(k,1928) - lu(k,746) * lu(k,1912) - lu(k,1929) = lu(k,1929) - lu(k,747) * lu(k,1912) - lu(k,1930) = lu(k,1930) - lu(k,748) * lu(k,1912) - lu(k,1935) = lu(k,1935) - lu(k,749) * lu(k,1912) - lu(k,1936) = lu(k,1936) - lu(k,750) * lu(k,1912) - lu(k,1937) = lu(k,1937) - lu(k,751) * lu(k,1912) - lu(k,1938) = lu(k,1938) - lu(k,752) * lu(k,1912) - lu(k,1939) = lu(k,1939) - lu(k,753) * lu(k,1912) - lu(k,1940) = lu(k,1940) - lu(k,754) * lu(k,1912) - lu(k,1941) = lu(k,1941) - lu(k,755) * lu(k,1912) - lu(k,1942) = lu(k,1942) - lu(k,756) * lu(k,1912) - lu(k,1943) = lu(k,1943) - lu(k,757) * lu(k,1912) - lu(k,1955) = lu(k,1955) - lu(k,739) * lu(k,1954) - lu(k,1958) = lu(k,1958) - lu(k,740) * lu(k,1954) - lu(k,1960) = lu(k,1960) - lu(k,741) * lu(k,1954) - lu(k,1962) = lu(k,1962) - lu(k,742) * lu(k,1954) - lu(k,1963) = lu(k,1963) - lu(k,743) * lu(k,1954) - lu(k,1967) = lu(k,1967) - lu(k,744) * lu(k,1954) - lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1954) - lu(k,1970) = lu(k,1970) - lu(k,746) * lu(k,1954) - lu(k,1971) = lu(k,1971) - lu(k,747) * lu(k,1954) - lu(k,1972) = lu(k,1972) - lu(k,748) * lu(k,1954) - lu(k,1977) = lu(k,1977) - lu(k,749) * lu(k,1954) - lu(k,1978) = lu(k,1978) - lu(k,750) * lu(k,1954) - lu(k,1979) = lu(k,1979) - lu(k,751) * lu(k,1954) - lu(k,1980) = lu(k,1980) - lu(k,752) * lu(k,1954) - lu(k,1981) = lu(k,1981) - lu(k,753) * lu(k,1954) - lu(k,1982) = lu(k,1982) - lu(k,754) * lu(k,1954) - lu(k,1983) = lu(k,1983) - lu(k,755) * lu(k,1954) - lu(k,1984) = lu(k,1984) - lu(k,756) * lu(k,1954) - lu(k,1985) = lu(k,1985) - lu(k,757) * lu(k,1954) - lu(k,1999) = lu(k,1999) - lu(k,739) * lu(k,1998) - lu(k,2003) = lu(k,2003) - lu(k,740) * lu(k,1998) - lu(k,2005) = lu(k,2005) - lu(k,741) * lu(k,1998) - lu(k,2007) = - lu(k,742) * lu(k,1998) - lu(k,2008) = lu(k,2008) - lu(k,743) * lu(k,1998) - lu(k,2012) = lu(k,2012) - lu(k,744) * lu(k,1998) - lu(k,2014) = lu(k,2014) - lu(k,745) * lu(k,1998) - lu(k,2015) = lu(k,2015) - lu(k,746) * lu(k,1998) - lu(k,2016) = lu(k,2016) - lu(k,747) * lu(k,1998) - lu(k,2017) = lu(k,2017) - lu(k,748) * lu(k,1998) - lu(k,2022) = lu(k,2022) - lu(k,749) * lu(k,1998) - lu(k,2023) = lu(k,2023) - lu(k,750) * lu(k,1998) - lu(k,2024) = lu(k,2024) - lu(k,751) * lu(k,1998) - lu(k,2025) = lu(k,2025) - lu(k,752) * lu(k,1998) - lu(k,2026) = lu(k,2026) - lu(k,753) * lu(k,1998) - lu(k,2027) = lu(k,2027) - lu(k,754) * lu(k,1998) - lu(k,2028) = lu(k,2028) - lu(k,755) * lu(k,1998) - lu(k,2029) = lu(k,2029) - lu(k,756) * lu(k,1998) - lu(k,2030) = lu(k,2030) - lu(k,757) * lu(k,1998) - lu(k,2060) = lu(k,2060) - lu(k,739) * lu(k,2059) - lu(k,2063) = lu(k,2063) - lu(k,740) * lu(k,2059) - lu(k,2065) = lu(k,2065) - lu(k,741) * lu(k,2059) - lu(k,2067) = lu(k,2067) - lu(k,742) * lu(k,2059) - lu(k,2068) = lu(k,2068) - lu(k,743) * lu(k,2059) - lu(k,2072) = lu(k,2072) - lu(k,744) * lu(k,2059) - lu(k,2074) = lu(k,2074) - lu(k,745) * lu(k,2059) - lu(k,2075) = lu(k,2075) - lu(k,746) * lu(k,2059) - lu(k,2076) = lu(k,2076) - lu(k,747) * lu(k,2059) - lu(k,2077) = lu(k,2077) - lu(k,748) * lu(k,2059) - lu(k,2082) = lu(k,2082) - lu(k,749) * lu(k,2059) - lu(k,2083) = lu(k,2083) - lu(k,750) * lu(k,2059) - lu(k,2084) = lu(k,2084) - lu(k,751) * lu(k,2059) - lu(k,2085) = lu(k,2085) - lu(k,752) * lu(k,2059) - lu(k,2086) = lu(k,2086) - lu(k,753) * lu(k,2059) - lu(k,2087) = lu(k,2087) - lu(k,754) * lu(k,2059) - lu(k,2088) = lu(k,2088) - lu(k,755) * lu(k,2059) - lu(k,2089) = lu(k,2089) - lu(k,756) * lu(k,2059) - lu(k,2090) = lu(k,2090) - lu(k,757) * lu(k,2059) - lu(k,787) = 1._r8 / lu(k,787) - lu(k,788) = lu(k,788) * lu(k,787) - lu(k,789) = lu(k,789) * lu(k,787) - lu(k,790) = lu(k,790) * lu(k,787) - lu(k,791) = lu(k,791) * lu(k,787) - lu(k,792) = lu(k,792) * lu(k,787) - lu(k,793) = lu(k,793) * lu(k,787) - lu(k,794) = lu(k,794) * lu(k,787) - lu(k,795) = lu(k,795) * lu(k,787) - lu(k,796) = lu(k,796) * lu(k,787) - lu(k,797) = lu(k,797) * lu(k,787) - lu(k,798) = lu(k,798) * lu(k,787) - lu(k,799) = lu(k,799) * lu(k,787) - lu(k,800) = lu(k,800) * lu(k,787) - lu(k,801) = lu(k,801) * lu(k,787) - lu(k,802) = lu(k,802) * lu(k,787) - lu(k,803) = lu(k,803) * lu(k,787) - lu(k,804) = lu(k,804) * lu(k,787) - lu(k,805) = lu(k,805) * lu(k,787) - lu(k,806) = lu(k,806) * lu(k,787) - lu(k,807) = lu(k,807) * lu(k,787) - lu(k,808) = lu(k,808) * lu(k,787) - lu(k,900) = lu(k,900) - lu(k,788) * lu(k,899) - lu(k,901) = lu(k,901) - lu(k,789) * lu(k,899) - lu(k,902) = lu(k,902) - lu(k,790) * lu(k,899) - lu(k,903) = lu(k,903) - lu(k,791) * lu(k,899) - lu(k,904) = lu(k,904) - lu(k,792) * lu(k,899) - lu(k,905) = lu(k,905) - lu(k,793) * lu(k,899) - lu(k,907) = lu(k,907) - lu(k,794) * lu(k,899) - lu(k,908) = lu(k,908) - lu(k,795) * lu(k,899) - lu(k,909) = lu(k,909) - lu(k,796) * lu(k,899) - lu(k,910) = lu(k,910) - lu(k,797) * lu(k,899) - lu(k,911) = - lu(k,798) * lu(k,899) - lu(k,912) = - lu(k,799) * lu(k,899) - lu(k,913) = lu(k,913) - lu(k,800) * lu(k,899) - lu(k,914) = lu(k,914) - lu(k,801) * lu(k,899) - lu(k,915) = lu(k,915) - lu(k,802) * lu(k,899) - lu(k,916) = lu(k,916) - lu(k,803) * lu(k,899) - lu(k,917) = lu(k,917) - lu(k,804) * lu(k,899) - lu(k,918) = lu(k,918) - lu(k,805) * lu(k,899) - lu(k,919) = lu(k,919) - lu(k,806) * lu(k,899) - lu(k,920) = lu(k,920) - lu(k,807) * lu(k,899) - lu(k,921) = lu(k,921) - lu(k,808) * lu(k,899) - lu(k,983) = lu(k,983) - lu(k,788) * lu(k,982) - lu(k,984) = lu(k,984) - lu(k,789) * lu(k,982) - lu(k,985) = lu(k,985) - lu(k,790) * lu(k,982) - lu(k,986) = lu(k,986) - lu(k,791) * lu(k,982) - lu(k,988) = lu(k,988) - lu(k,792) * lu(k,982) - lu(k,989) = lu(k,989) - lu(k,793) * lu(k,982) - lu(k,991) = lu(k,991) - lu(k,794) * lu(k,982) - lu(k,992) = lu(k,992) - lu(k,795) * lu(k,982) - lu(k,993) = lu(k,993) - lu(k,796) * lu(k,982) - lu(k,994) = lu(k,994) - lu(k,797) * lu(k,982) - lu(k,995) = - lu(k,798) * lu(k,982) - lu(k,996) = lu(k,996) - lu(k,799) * lu(k,982) - lu(k,997) = lu(k,997) - lu(k,800) * lu(k,982) - lu(k,998) = lu(k,998) - lu(k,801) * lu(k,982) - lu(k,999) = lu(k,999) - lu(k,802) * lu(k,982) - lu(k,1000) = lu(k,1000) - lu(k,803) * lu(k,982) - lu(k,1001) = lu(k,1001) - lu(k,804) * lu(k,982) - lu(k,1002) = lu(k,1002) - lu(k,805) * lu(k,982) - lu(k,1003) = lu(k,1003) - lu(k,806) * lu(k,982) - lu(k,1004) = lu(k,1004) - lu(k,807) * lu(k,982) - lu(k,1005) = lu(k,1005) - lu(k,808) * lu(k,982) - lu(k,1056) = lu(k,1056) - lu(k,788) * lu(k,1055) - lu(k,1057) = lu(k,1057) - lu(k,789) * lu(k,1055) - lu(k,1058) = lu(k,1058) - lu(k,790) * lu(k,1055) - lu(k,1059) = - lu(k,791) * lu(k,1055) - lu(k,1062) = lu(k,1062) - lu(k,792) * lu(k,1055) - lu(k,1063) = lu(k,1063) - lu(k,793) * lu(k,1055) - lu(k,1065) = lu(k,1065) - lu(k,794) * lu(k,1055) - lu(k,1066) = lu(k,1066) - lu(k,795) * lu(k,1055) - lu(k,1067) = - lu(k,796) * lu(k,1055) - lu(k,1068) = - lu(k,797) * lu(k,1055) - lu(k,1069) = lu(k,1069) - lu(k,798) * lu(k,1055) - lu(k,1070) = lu(k,1070) - lu(k,799) * lu(k,1055) - lu(k,1073) = - lu(k,800) * lu(k,1055) - lu(k,1074) = lu(k,1074) - lu(k,801) * lu(k,1055) - lu(k,1075) = lu(k,1075) - lu(k,802) * lu(k,1055) - lu(k,1076) = - lu(k,803) * lu(k,1055) - lu(k,1077) = lu(k,1077) - lu(k,804) * lu(k,1055) - lu(k,1078) = lu(k,1078) - lu(k,805) * lu(k,1055) - lu(k,1079) = lu(k,1079) - lu(k,806) * lu(k,1055) - lu(k,1080) = - lu(k,807) * lu(k,1055) - lu(k,1081) = lu(k,1081) - lu(k,808) * lu(k,1055) - lu(k,1099) = lu(k,1099) - lu(k,788) * lu(k,1095) - lu(k,1101) = lu(k,1101) - lu(k,789) * lu(k,1095) - lu(k,1103) = lu(k,1103) - lu(k,790) * lu(k,1095) - lu(k,1104) = lu(k,1104) - lu(k,791) * lu(k,1095) - lu(k,1107) = - lu(k,792) * lu(k,1095) - lu(k,1108) = lu(k,1108) - lu(k,793) * lu(k,1095) - lu(k,1110) = lu(k,1110) - lu(k,794) * lu(k,1095) - lu(k,1111) = lu(k,1111) - lu(k,795) * lu(k,1095) - lu(k,1112) = lu(k,1112) - lu(k,796) * lu(k,1095) - lu(k,1113) = lu(k,1113) - lu(k,797) * lu(k,1095) - lu(k,1114) = lu(k,1114) - lu(k,798) * lu(k,1095) - lu(k,1115) = - lu(k,799) * lu(k,1095) - lu(k,1118) = lu(k,1118) - lu(k,800) * lu(k,1095) - lu(k,1119) = lu(k,1119) - lu(k,801) * lu(k,1095) - lu(k,1120) = lu(k,1120) - lu(k,802) * lu(k,1095) - lu(k,1121) = lu(k,1121) - lu(k,803) * lu(k,1095) - lu(k,1122) = lu(k,1122) - lu(k,804) * lu(k,1095) - lu(k,1123) = lu(k,1123) - lu(k,805) * lu(k,1095) - lu(k,1124) = lu(k,1124) - lu(k,806) * lu(k,1095) - lu(k,1125) = lu(k,1125) - lu(k,807) * lu(k,1095) - lu(k,1126) = lu(k,1126) - lu(k,808) * lu(k,1095) - lu(k,1147) = lu(k,1147) - lu(k,788) * lu(k,1143) - lu(k,1149) = lu(k,1149) - lu(k,789) * lu(k,1143) - lu(k,1151) = lu(k,1151) - lu(k,790) * lu(k,1143) - lu(k,1152) = - lu(k,791) * lu(k,1143) - lu(k,1155) = lu(k,1155) - lu(k,792) * lu(k,1143) - lu(k,1156) = lu(k,1156) - lu(k,793) * lu(k,1143) - lu(k,1158) = lu(k,1158) - lu(k,794) * lu(k,1143) - lu(k,1159) = lu(k,1159) - lu(k,795) * lu(k,1143) - lu(k,1160) = lu(k,1160) - lu(k,796) * lu(k,1143) - lu(k,1161) = lu(k,1161) - lu(k,797) * lu(k,1143) - lu(k,1162) = lu(k,1162) - lu(k,798) * lu(k,1143) - lu(k,1163) = lu(k,1163) - lu(k,799) * lu(k,1143) - lu(k,1166) = lu(k,1166) - lu(k,800) * lu(k,1143) - lu(k,1167) = lu(k,1167) - lu(k,801) * lu(k,1143) - lu(k,1168) = lu(k,1168) - lu(k,802) * lu(k,1143) - lu(k,1169) = - lu(k,803) * lu(k,1143) - lu(k,1170) = - lu(k,804) * lu(k,1143) - lu(k,1171) = - lu(k,805) * lu(k,1143) - lu(k,1172) = lu(k,1172) - lu(k,806) * lu(k,1143) - lu(k,1173) = lu(k,1173) - lu(k,807) * lu(k,1143) - lu(k,1174) = lu(k,1174) - lu(k,808) * lu(k,1143) - lu(k,1275) = lu(k,1275) - lu(k,788) * lu(k,1272) - lu(k,1277) = lu(k,1277) - lu(k,789) * lu(k,1272) - lu(k,1279) = lu(k,1279) - lu(k,790) * lu(k,1272) - lu(k,1280) = - lu(k,791) * lu(k,1272) - lu(k,1283) = lu(k,1283) - lu(k,792) * lu(k,1272) - lu(k,1284) = lu(k,1284) - lu(k,793) * lu(k,1272) - lu(k,1286) = lu(k,1286) - lu(k,794) * lu(k,1272) - lu(k,1287) = lu(k,1287) - lu(k,795) * lu(k,1272) - lu(k,1288) = - lu(k,796) * lu(k,1272) - lu(k,1289) = - lu(k,797) * lu(k,1272) - lu(k,1290) = lu(k,1290) - lu(k,798) * lu(k,1272) - lu(k,1291) = lu(k,1291) - lu(k,799) * lu(k,1272) - lu(k,1294) = - lu(k,800) * lu(k,1272) - lu(k,1295) = lu(k,1295) - lu(k,801) * lu(k,1272) - lu(k,1296) = lu(k,1296) - lu(k,802) * lu(k,1272) - lu(k,1297) = lu(k,1297) - lu(k,803) * lu(k,1272) - lu(k,1298) = lu(k,1298) - lu(k,804) * lu(k,1272) - lu(k,1299) = lu(k,1299) - lu(k,805) * lu(k,1272) - lu(k,1300) = lu(k,1300) - lu(k,806) * lu(k,1272) - lu(k,1301) = - lu(k,807) * lu(k,1272) - lu(k,1302) = lu(k,1302) - lu(k,808) * lu(k,1272) - lu(k,1377) = lu(k,1377) - lu(k,788) * lu(k,1373) - lu(k,1379) = lu(k,1379) - lu(k,789) * lu(k,1373) - lu(k,1381) = lu(k,1381) - lu(k,790) * lu(k,1373) - lu(k,1382) = lu(k,1382) - lu(k,791) * lu(k,1373) - lu(k,1385) = lu(k,1385) - lu(k,792) * lu(k,1373) - lu(k,1386) = lu(k,1386) - lu(k,793) * lu(k,1373) - lu(k,1388) = lu(k,1388) - lu(k,794) * lu(k,1373) - lu(k,1389) = lu(k,1389) - lu(k,795) * lu(k,1373) - lu(k,1390) = lu(k,1390) - lu(k,796) * lu(k,1373) - lu(k,1391) = lu(k,1391) - lu(k,797) * lu(k,1373) - lu(k,1392) = lu(k,1392) - lu(k,798) * lu(k,1373) - lu(k,1393) = lu(k,1393) - lu(k,799) * lu(k,1373) - lu(k,1396) = lu(k,1396) - lu(k,800) * lu(k,1373) - lu(k,1397) = lu(k,1397) - lu(k,801) * lu(k,1373) - lu(k,1398) = lu(k,1398) - lu(k,802) * lu(k,1373) - lu(k,1399) = lu(k,1399) - lu(k,803) * lu(k,1373) - lu(k,1400) = lu(k,1400) - lu(k,804) * lu(k,1373) - lu(k,1401) = lu(k,1401) - lu(k,805) * lu(k,1373) - lu(k,1402) = lu(k,1402) - lu(k,806) * lu(k,1373) - lu(k,1403) = lu(k,1403) - lu(k,807) * lu(k,1373) - lu(k,1404) = lu(k,1404) - lu(k,808) * lu(k,1373) - lu(k,1426) = lu(k,1426) - lu(k,788) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,789) * lu(k,1423) - lu(k,1430) = lu(k,1430) - lu(k,790) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,791) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,792) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,793) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,794) * lu(k,1423) - lu(k,1438) = lu(k,1438) - lu(k,795) * lu(k,1423) - lu(k,1439) = lu(k,1439) - lu(k,796) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,797) * lu(k,1423) - lu(k,1441) = lu(k,1441) - lu(k,798) * lu(k,1423) - lu(k,1442) = lu(k,1442) - lu(k,799) * lu(k,1423) - lu(k,1445) = lu(k,1445) - lu(k,800) * lu(k,1423) - lu(k,1446) = lu(k,1446) - lu(k,801) * lu(k,1423) - lu(k,1447) = lu(k,1447) - lu(k,802) * lu(k,1423) - lu(k,1448) = lu(k,1448) - lu(k,803) * lu(k,1423) - lu(k,1449) = lu(k,1449) - lu(k,804) * lu(k,1423) - lu(k,1450) = lu(k,1450) - lu(k,805) * lu(k,1423) - lu(k,1451) = lu(k,1451) - lu(k,806) * lu(k,1423) - lu(k,1452) = lu(k,1452) - lu(k,807) * lu(k,1423) - lu(k,1453) = lu(k,1453) - lu(k,808) * lu(k,1423) - lu(k,1474) = lu(k,1474) - lu(k,788) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,789) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,790) * lu(k,1470) - lu(k,1479) = lu(k,1479) - lu(k,791) * lu(k,1470) - lu(k,1482) = - lu(k,792) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,793) * lu(k,1470) - lu(k,1485) = lu(k,1485) - lu(k,794) * lu(k,1470) - lu(k,1486) = lu(k,1486) - lu(k,795) * lu(k,1470) - lu(k,1487) = lu(k,1487) - lu(k,796) * lu(k,1470) - lu(k,1488) = lu(k,1488) - lu(k,797) * lu(k,1470) - lu(k,1489) = lu(k,1489) - lu(k,798) * lu(k,1470) - lu(k,1490) = - lu(k,799) * lu(k,1470) - lu(k,1493) = lu(k,1493) - lu(k,800) * lu(k,1470) - lu(k,1494) = lu(k,1494) - lu(k,801) * lu(k,1470) - lu(k,1495) = lu(k,1495) - lu(k,802) * lu(k,1470) - lu(k,1496) = lu(k,1496) - lu(k,803) * lu(k,1470) - lu(k,1497) = lu(k,1497) - lu(k,804) * lu(k,1470) - lu(k,1498) = lu(k,1498) - lu(k,805) * lu(k,1470) - lu(k,1499) = lu(k,1499) - lu(k,806) * lu(k,1470) - lu(k,1500) = lu(k,1500) - lu(k,807) * lu(k,1470) - lu(k,1501) = lu(k,1501) - lu(k,808) * lu(k,1470) - lu(k,1515) = lu(k,1515) - lu(k,788) * lu(k,1512) - lu(k,1517) = lu(k,1517) - lu(k,789) * lu(k,1512) - lu(k,1519) = lu(k,1519) - lu(k,790) * lu(k,1512) - lu(k,1520) = lu(k,1520) - lu(k,791) * lu(k,1512) - lu(k,1523) = lu(k,1523) - lu(k,792) * lu(k,1512) - lu(k,1524) = lu(k,1524) - lu(k,793) * lu(k,1512) - lu(k,1526) = lu(k,1526) - lu(k,794) * lu(k,1512) - lu(k,1527) = lu(k,1527) - lu(k,795) * lu(k,1512) - lu(k,1528) = lu(k,1528) - lu(k,796) * lu(k,1512) - lu(k,1529) = lu(k,1529) - lu(k,797) * lu(k,1512) - lu(k,1530) = lu(k,1530) - lu(k,798) * lu(k,1512) - lu(k,1531) = lu(k,1531) - lu(k,799) * lu(k,1512) - lu(k,1534) = lu(k,1534) - lu(k,800) * lu(k,1512) - lu(k,1535) = lu(k,1535) - lu(k,801) * lu(k,1512) - lu(k,1536) = lu(k,1536) - lu(k,802) * lu(k,1512) - lu(k,1537) = lu(k,1537) - lu(k,803) * lu(k,1512) - lu(k,1538) = lu(k,1538) - lu(k,804) * lu(k,1512) - lu(k,1539) = lu(k,1539) - lu(k,805) * lu(k,1512) - lu(k,1540) = lu(k,1540) - lu(k,806) * lu(k,1512) - lu(k,1541) = lu(k,1541) - lu(k,807) * lu(k,1512) - lu(k,1542) = lu(k,1542) - lu(k,808) * lu(k,1512) - lu(k,1596) = lu(k,1596) - lu(k,788) * lu(k,1592) - lu(k,1598) = lu(k,1598) - lu(k,789) * lu(k,1592) - lu(k,1600) = lu(k,1600) - lu(k,790) * lu(k,1592) - lu(k,1601) = - lu(k,791) * lu(k,1592) - lu(k,1604) = lu(k,1604) - lu(k,792) * lu(k,1592) - lu(k,1605) = lu(k,1605) - lu(k,793) * lu(k,1592) - lu(k,1607) = lu(k,1607) - lu(k,794) * lu(k,1592) - lu(k,1608) = lu(k,1608) - lu(k,795) * lu(k,1592) - lu(k,1609) = lu(k,1609) - lu(k,796) * lu(k,1592) - lu(k,1610) = lu(k,1610) - lu(k,797) * lu(k,1592) - lu(k,1611) = lu(k,1611) - lu(k,798) * lu(k,1592) - lu(k,1612) = lu(k,1612) - lu(k,799) * lu(k,1592) - lu(k,1615) = lu(k,1615) - lu(k,800) * lu(k,1592) - lu(k,1616) = lu(k,1616) - lu(k,801) * lu(k,1592) - lu(k,1617) = lu(k,1617) - lu(k,802) * lu(k,1592) - lu(k,1618) = - lu(k,803) * lu(k,1592) - lu(k,1619) = lu(k,1619) - lu(k,804) * lu(k,1592) - lu(k,1620) = lu(k,1620) - lu(k,805) * lu(k,1592) - lu(k,1621) = lu(k,1621) - lu(k,806) * lu(k,1592) - lu(k,1622) = lu(k,1622) - lu(k,807) * lu(k,1592) - lu(k,1623) = lu(k,1623) - lu(k,808) * lu(k,1592) - lu(k,1723) = lu(k,1723) - lu(k,788) * lu(k,1721) - lu(k,1725) = lu(k,1725) - lu(k,789) * lu(k,1721) - lu(k,1726) = lu(k,1726) - lu(k,790) * lu(k,1721) - lu(k,1727) = lu(k,1727) - lu(k,791) * lu(k,1721) - lu(k,1730) = lu(k,1730) - lu(k,792) * lu(k,1721) - lu(k,1731) = lu(k,1731) - lu(k,793) * lu(k,1721) - lu(k,1733) = lu(k,1733) - lu(k,794) * lu(k,1721) - lu(k,1734) = lu(k,1734) - lu(k,795) * lu(k,1721) - lu(k,1735) = lu(k,1735) - lu(k,796) * lu(k,1721) - lu(k,1736) = lu(k,1736) - lu(k,797) * lu(k,1721) - lu(k,1737) = - lu(k,798) * lu(k,1721) - lu(k,1738) = lu(k,1738) - lu(k,799) * lu(k,1721) - lu(k,1741) = lu(k,1741) - lu(k,800) * lu(k,1721) - lu(k,1742) = lu(k,1742) - lu(k,801) * lu(k,1721) - lu(k,1743) = lu(k,1743) - lu(k,802) * lu(k,1721) - lu(k,1744) = lu(k,1744) - lu(k,803) * lu(k,1721) - lu(k,1745) = lu(k,1745) - lu(k,804) * lu(k,1721) - lu(k,1746) = lu(k,1746) - lu(k,805) * lu(k,1721) - lu(k,1747) = lu(k,1747) - lu(k,806) * lu(k,1721) - lu(k,1748) = lu(k,1748) - lu(k,807) * lu(k,1721) - lu(k,1749) = lu(k,1749) - lu(k,808) * lu(k,1721) - lu(k,1758) = lu(k,1758) - lu(k,788) * lu(k,1754) - lu(k,1760) = lu(k,1760) - lu(k,789) * lu(k,1754) - lu(k,1762) = lu(k,1762) - lu(k,790) * lu(k,1754) - lu(k,1763) = lu(k,1763) - lu(k,791) * lu(k,1754) - lu(k,1766) = lu(k,1766) - lu(k,792) * lu(k,1754) - lu(k,1767) = lu(k,1767) - lu(k,793) * lu(k,1754) - lu(k,1769) = lu(k,1769) - lu(k,794) * lu(k,1754) - lu(k,1770) = lu(k,1770) - lu(k,795) * lu(k,1754) - lu(k,1771) = lu(k,1771) - lu(k,796) * lu(k,1754) - lu(k,1772) = lu(k,1772) - lu(k,797) * lu(k,1754) - lu(k,1773) = lu(k,1773) - lu(k,798) * lu(k,1754) - lu(k,1774) = - lu(k,799) * lu(k,1754) - lu(k,1777) = lu(k,1777) - lu(k,800) * lu(k,1754) - lu(k,1778) = lu(k,1778) - lu(k,801) * lu(k,1754) - lu(k,1779) = lu(k,1779) - lu(k,802) * lu(k,1754) - lu(k,1780) = lu(k,1780) - lu(k,803) * lu(k,1754) - lu(k,1781) = lu(k,1781) - lu(k,804) * lu(k,1754) - lu(k,1782) = lu(k,1782) - lu(k,805) * lu(k,1754) - lu(k,1783) = lu(k,1783) - lu(k,806) * lu(k,1754) - lu(k,1784) = lu(k,1784) - lu(k,807) * lu(k,1754) - lu(k,1785) = lu(k,1785) - lu(k,808) * lu(k,1754) - lu(k,1806) = lu(k,1806) - lu(k,788) * lu(k,1803) - lu(k,1808) = lu(k,1808) - lu(k,789) * lu(k,1803) - lu(k,1810) = lu(k,1810) - lu(k,790) * lu(k,1803) - lu(k,1811) = lu(k,1811) - lu(k,791) * lu(k,1803) - lu(k,1814) = lu(k,1814) - lu(k,792) * lu(k,1803) - lu(k,1815) = lu(k,1815) - lu(k,793) * lu(k,1803) - lu(k,1817) = lu(k,1817) - lu(k,794) * lu(k,1803) - lu(k,1818) = lu(k,1818) - lu(k,795) * lu(k,1803) - lu(k,1819) = lu(k,1819) - lu(k,796) * lu(k,1803) - lu(k,1820) = lu(k,1820) - lu(k,797) * lu(k,1803) - lu(k,1821) = lu(k,1821) - lu(k,798) * lu(k,1803) - lu(k,1822) = lu(k,1822) - lu(k,799) * lu(k,1803) - lu(k,1825) = lu(k,1825) - lu(k,800) * lu(k,1803) - lu(k,1826) = lu(k,1826) - lu(k,801) * lu(k,1803) - lu(k,1827) = lu(k,1827) - lu(k,802) * lu(k,1803) - lu(k,1828) = lu(k,1828) - lu(k,803) * lu(k,1803) - lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1803) - lu(k,1830) = lu(k,1830) - lu(k,805) * lu(k,1803) - lu(k,1831) = lu(k,1831) - lu(k,806) * lu(k,1803) - lu(k,1832) = lu(k,1832) - lu(k,807) * lu(k,1803) - lu(k,1833) = lu(k,1833) - lu(k,808) * lu(k,1803) - lu(k,1875) = lu(k,1875) - lu(k,788) * lu(k,1872) - lu(k,1877) = lu(k,1877) - lu(k,789) * lu(k,1872) - lu(k,1879) = lu(k,1879) - lu(k,790) * lu(k,1872) - lu(k,1880) = lu(k,1880) - lu(k,791) * lu(k,1872) - lu(k,1883) = lu(k,1883) - lu(k,792) * lu(k,1872) - lu(k,1884) = lu(k,1884) - lu(k,793) * lu(k,1872) - lu(k,1886) = lu(k,1886) - lu(k,794) * lu(k,1872) - lu(k,1887) = lu(k,1887) - lu(k,795) * lu(k,1872) - lu(k,1888) = lu(k,1888) - lu(k,796) * lu(k,1872) - lu(k,1889) = lu(k,1889) - lu(k,797) * lu(k,1872) - lu(k,1890) = lu(k,1890) - lu(k,798) * lu(k,1872) - lu(k,1891) = lu(k,1891) - lu(k,799) * lu(k,1872) - lu(k,1894) = lu(k,1894) - lu(k,800) * lu(k,1872) - lu(k,1895) = lu(k,1895) - lu(k,801) * lu(k,1872) - lu(k,1896) = lu(k,1896) - lu(k,802) * lu(k,1872) - lu(k,1897) = lu(k,1897) - lu(k,803) * lu(k,1872) - lu(k,1898) = lu(k,1898) - lu(k,804) * lu(k,1872) - lu(k,1899) = lu(k,1899) - lu(k,805) * lu(k,1872) - lu(k,1900) = lu(k,1900) - lu(k,806) * lu(k,1872) - lu(k,1901) = lu(k,1901) - lu(k,807) * lu(k,1872) - lu(k,1902) = lu(k,1902) - lu(k,808) * lu(k,1872) - lu(k,1916) = lu(k,1916) - lu(k,788) * lu(k,1913) - lu(k,1918) = lu(k,1918) - lu(k,789) * lu(k,1913) - lu(k,1920) = lu(k,1920) - lu(k,790) * lu(k,1913) - lu(k,1921) = lu(k,1921) - lu(k,791) * lu(k,1913) - lu(k,1924) = lu(k,1924) - lu(k,792) * lu(k,1913) - lu(k,1925) = lu(k,1925) - lu(k,793) * lu(k,1913) - lu(k,1927) = lu(k,1927) - lu(k,794) * lu(k,1913) - lu(k,1928) = lu(k,1928) - lu(k,795) * lu(k,1913) - lu(k,1929) = lu(k,1929) - lu(k,796) * lu(k,1913) - lu(k,1930) = lu(k,1930) - lu(k,797) * lu(k,1913) - lu(k,1931) = lu(k,1931) - lu(k,798) * lu(k,1913) - lu(k,1932) = lu(k,1932) - lu(k,799) * lu(k,1913) - lu(k,1935) = lu(k,1935) - lu(k,800) * lu(k,1913) - lu(k,1936) = lu(k,1936) - lu(k,801) * lu(k,1913) - lu(k,1937) = lu(k,1937) - lu(k,802) * lu(k,1913) - lu(k,1938) = lu(k,1938) - lu(k,803) * lu(k,1913) - lu(k,1939) = lu(k,1939) - lu(k,804) * lu(k,1913) - lu(k,1940) = lu(k,1940) - lu(k,805) * lu(k,1913) - lu(k,1941) = lu(k,1941) - lu(k,806) * lu(k,1913) - lu(k,1942) = lu(k,1942) - lu(k,807) * lu(k,1913) - lu(k,1943) = lu(k,1943) - lu(k,808) * lu(k,1913) - lu(k,1958) = lu(k,1958) - lu(k,788) * lu(k,1955) - lu(k,1960) = lu(k,1960) - lu(k,789) * lu(k,1955) - lu(k,1962) = lu(k,1962) - lu(k,790) * lu(k,1955) - lu(k,1963) = lu(k,1963) - lu(k,791) * lu(k,1955) - lu(k,1966) = lu(k,1966) - lu(k,792) * lu(k,1955) - lu(k,1967) = lu(k,1967) - lu(k,793) * lu(k,1955) - lu(k,1969) = lu(k,1969) - lu(k,794) * lu(k,1955) - lu(k,1970) = lu(k,1970) - lu(k,795) * lu(k,1955) - lu(k,1971) = lu(k,1971) - lu(k,796) * lu(k,1955) - lu(k,1972) = lu(k,1972) - lu(k,797) * lu(k,1955) - lu(k,1973) = lu(k,1973) - lu(k,798) * lu(k,1955) - lu(k,1974) = lu(k,1974) - lu(k,799) * lu(k,1955) - lu(k,1977) = lu(k,1977) - lu(k,800) * lu(k,1955) - lu(k,1978) = lu(k,1978) - lu(k,801) * lu(k,1955) - lu(k,1979) = lu(k,1979) - lu(k,802) * lu(k,1955) - lu(k,1980) = lu(k,1980) - lu(k,803) * lu(k,1955) - lu(k,1981) = lu(k,1981) - lu(k,804) * lu(k,1955) - lu(k,1982) = lu(k,1982) - lu(k,805) * lu(k,1955) - lu(k,1983) = lu(k,1983) - lu(k,806) * lu(k,1955) - lu(k,1984) = lu(k,1984) - lu(k,807) * lu(k,1955) - lu(k,1985) = lu(k,1985) - lu(k,808) * lu(k,1955) - lu(k,2003) = lu(k,2003) - lu(k,788) * lu(k,1999) - lu(k,2005) = lu(k,2005) - lu(k,789) * lu(k,1999) - lu(k,2007) = lu(k,2007) - lu(k,790) * lu(k,1999) - lu(k,2008) = lu(k,2008) - lu(k,791) * lu(k,1999) - lu(k,2011) = lu(k,2011) - lu(k,792) * lu(k,1999) - lu(k,2012) = lu(k,2012) - lu(k,793) * lu(k,1999) - lu(k,2014) = lu(k,2014) - lu(k,794) * lu(k,1999) - lu(k,2015) = lu(k,2015) - lu(k,795) * lu(k,1999) - lu(k,2016) = lu(k,2016) - lu(k,796) * lu(k,1999) - lu(k,2017) = lu(k,2017) - lu(k,797) * lu(k,1999) - lu(k,2018) = lu(k,2018) - lu(k,798) * lu(k,1999) - lu(k,2019) = lu(k,2019) - lu(k,799) * lu(k,1999) - lu(k,2022) = lu(k,2022) - lu(k,800) * lu(k,1999) - lu(k,2023) = lu(k,2023) - lu(k,801) * lu(k,1999) - lu(k,2024) = lu(k,2024) - lu(k,802) * lu(k,1999) - lu(k,2025) = lu(k,2025) - lu(k,803) * lu(k,1999) - lu(k,2026) = lu(k,2026) - lu(k,804) * lu(k,1999) - lu(k,2027) = lu(k,2027) - lu(k,805) * lu(k,1999) - lu(k,2028) = lu(k,2028) - lu(k,806) * lu(k,1999) - lu(k,2029) = lu(k,2029) - lu(k,807) * lu(k,1999) - lu(k,2030) = lu(k,2030) - lu(k,808) * lu(k,1999) - lu(k,2063) = lu(k,2063) - lu(k,788) * lu(k,2060) - lu(k,2065) = lu(k,2065) - lu(k,789) * lu(k,2060) - lu(k,2067) = lu(k,2067) - lu(k,790) * lu(k,2060) - lu(k,2068) = lu(k,2068) - lu(k,791) * lu(k,2060) - lu(k,2071) = lu(k,2071) - lu(k,792) * lu(k,2060) - lu(k,2072) = lu(k,2072) - lu(k,793) * lu(k,2060) - lu(k,2074) = lu(k,2074) - lu(k,794) * lu(k,2060) - lu(k,2075) = lu(k,2075) - lu(k,795) * lu(k,2060) - lu(k,2076) = lu(k,2076) - lu(k,796) * lu(k,2060) - lu(k,2077) = lu(k,2077) - lu(k,797) * lu(k,2060) - lu(k,2078) = lu(k,2078) - lu(k,798) * lu(k,2060) - lu(k,2079) = lu(k,2079) - lu(k,799) * lu(k,2060) - lu(k,2082) = lu(k,2082) - lu(k,800) * lu(k,2060) - lu(k,2083) = lu(k,2083) - lu(k,801) * lu(k,2060) - lu(k,2084) = lu(k,2084) - lu(k,802) * lu(k,2060) - lu(k,2085) = lu(k,2085) - lu(k,803) * lu(k,2060) - lu(k,2086) = lu(k,2086) - lu(k,804) * lu(k,2060) - lu(k,2087) = lu(k,2087) - lu(k,805) * lu(k,2060) - lu(k,2088) = lu(k,2088) - lu(k,806) * lu(k,2060) - lu(k,2089) = lu(k,2089) - lu(k,807) * lu(k,2060) - lu(k,2090) = lu(k,2090) - lu(k,808) * lu(k,2060) + lu(k,671) = 1._r8 / lu(k,671) + lu(k,672) = lu(k,672) * lu(k,671) + lu(k,673) = lu(k,673) * lu(k,671) + lu(k,674) = lu(k,674) * lu(k,671) + lu(k,675) = lu(k,675) * lu(k,671) + lu(k,676) = lu(k,676) * lu(k,671) + lu(k,677) = lu(k,677) * lu(k,671) + lu(k,678) = lu(k,678) * lu(k,671) + lu(k,679) = lu(k,679) * lu(k,671) + lu(k,680) = lu(k,680) * lu(k,671) + lu(k,681) = lu(k,681) * lu(k,671) + lu(k,682) = lu(k,682) * lu(k,671) + lu(k,683) = lu(k,683) * lu(k,671) + lu(k,684) = lu(k,684) * lu(k,671) + lu(k,685) = lu(k,685) * lu(k,671) + lu(k,686) = lu(k,686) * lu(k,671) + lu(k,687) = lu(k,687) * lu(k,671) + lu(k,688) = lu(k,688) * lu(k,671) + lu(k,689) = lu(k,689) * lu(k,671) + lu(k,1011) = - lu(k,672) * lu(k,1010) + lu(k,1013) = lu(k,1013) - lu(k,673) * lu(k,1010) + lu(k,1014) = lu(k,1014) - lu(k,674) * lu(k,1010) + lu(k,1016) = lu(k,1016) - lu(k,675) * lu(k,1010) + lu(k,1019) = lu(k,1019) - lu(k,676) * lu(k,1010) + lu(k,1020) = lu(k,1020) - lu(k,677) * lu(k,1010) + lu(k,1022) = lu(k,1022) - lu(k,678) * lu(k,1010) + lu(k,1023) = lu(k,1023) - lu(k,679) * lu(k,1010) + lu(k,1024) = lu(k,1024) - lu(k,680) * lu(k,1010) + lu(k,1025) = lu(k,1025) - lu(k,681) * lu(k,1010) + lu(k,1029) = lu(k,1029) - lu(k,682) * lu(k,1010) + lu(k,1030) = lu(k,1030) - lu(k,683) * lu(k,1010) + lu(k,1031) = lu(k,1031) - lu(k,684) * lu(k,1010) + lu(k,1033) = lu(k,1033) - lu(k,685) * lu(k,1010) + lu(k,1034) = lu(k,1034) - lu(k,686) * lu(k,1010) + lu(k,1037) = lu(k,1037) - lu(k,687) * lu(k,1010) + lu(k,1038) = lu(k,1038) - lu(k,688) * lu(k,1010) + lu(k,1040) = lu(k,1040) - lu(k,689) * lu(k,1010) + lu(k,1143) = lu(k,1143) - lu(k,672) * lu(k,1142) + lu(k,1147) = lu(k,1147) - lu(k,673) * lu(k,1142) + lu(k,1149) = lu(k,1149) - lu(k,674) * lu(k,1142) + lu(k,1151) = lu(k,1151) - lu(k,675) * lu(k,1142) + lu(k,1154) = lu(k,1154) - lu(k,676) * lu(k,1142) + lu(k,1155) = lu(k,1155) - lu(k,677) * lu(k,1142) + lu(k,1157) = lu(k,1157) - lu(k,678) * lu(k,1142) + lu(k,1158) = lu(k,1158) - lu(k,679) * lu(k,1142) + lu(k,1159) = lu(k,1159) - lu(k,680) * lu(k,1142) + lu(k,1160) = lu(k,1160) - lu(k,681) * lu(k,1142) + lu(k,1164) = lu(k,1164) - lu(k,682) * lu(k,1142) + lu(k,1165) = lu(k,1165) - lu(k,683) * lu(k,1142) + lu(k,1166) = lu(k,1166) - lu(k,684) * lu(k,1142) + lu(k,1168) = lu(k,1168) - lu(k,685) * lu(k,1142) + lu(k,1169) = lu(k,1169) - lu(k,686) * lu(k,1142) + lu(k,1172) = lu(k,1172) - lu(k,687) * lu(k,1142) + lu(k,1173) = lu(k,1173) - lu(k,688) * lu(k,1142) + lu(k,1175) = lu(k,1175) - lu(k,689) * lu(k,1142) + lu(k,1187) = lu(k,1187) - lu(k,672) * lu(k,1186) + lu(k,1190) = lu(k,1190) - lu(k,673) * lu(k,1186) + lu(k,1192) = lu(k,1192) - lu(k,674) * lu(k,1186) + lu(k,1194) = lu(k,1194) - lu(k,675) * lu(k,1186) + lu(k,1197) = lu(k,1197) - lu(k,676) * lu(k,1186) + lu(k,1198) = lu(k,1198) - lu(k,677) * lu(k,1186) + lu(k,1200) = lu(k,1200) - lu(k,678) * lu(k,1186) + lu(k,1201) = lu(k,1201) - lu(k,679) * lu(k,1186) + lu(k,1202) = lu(k,1202) - lu(k,680) * lu(k,1186) + lu(k,1203) = lu(k,1203) - lu(k,681) * lu(k,1186) + lu(k,1207) = lu(k,1207) - lu(k,682) * lu(k,1186) + lu(k,1208) = lu(k,1208) - lu(k,683) * lu(k,1186) + lu(k,1209) = lu(k,1209) - lu(k,684) * lu(k,1186) + lu(k,1211) = lu(k,1211) - lu(k,685) * lu(k,1186) + lu(k,1212) = lu(k,1212) - lu(k,686) * lu(k,1186) + lu(k,1215) = lu(k,1215) - lu(k,687) * lu(k,1186) + lu(k,1216) = lu(k,1216) - lu(k,688) * lu(k,1186) + lu(k,1218) = lu(k,1218) - lu(k,689) * lu(k,1186) + lu(k,1271) = lu(k,1271) - lu(k,672) * lu(k,1270) + lu(k,1274) = lu(k,1274) - lu(k,673) * lu(k,1270) + lu(k,1276) = lu(k,1276) - lu(k,674) * lu(k,1270) + lu(k,1278) = lu(k,1278) - lu(k,675) * lu(k,1270) + lu(k,1281) = lu(k,1281) - lu(k,676) * lu(k,1270) + lu(k,1282) = lu(k,1282) - lu(k,677) * lu(k,1270) + lu(k,1284) = lu(k,1284) - lu(k,678) * lu(k,1270) + lu(k,1285) = lu(k,1285) - lu(k,679) * lu(k,1270) + lu(k,1286) = lu(k,1286) - lu(k,680) * lu(k,1270) + lu(k,1287) = lu(k,1287) - lu(k,681) * lu(k,1270) + lu(k,1291) = lu(k,1291) - lu(k,682) * lu(k,1270) + lu(k,1292) = lu(k,1292) - lu(k,683) * lu(k,1270) + lu(k,1293) = lu(k,1293) - lu(k,684) * lu(k,1270) + lu(k,1295) = lu(k,1295) - lu(k,685) * lu(k,1270) + lu(k,1296) = lu(k,1296) - lu(k,686) * lu(k,1270) + lu(k,1299) = lu(k,1299) - lu(k,687) * lu(k,1270) + lu(k,1300) = lu(k,1300) - lu(k,688) * lu(k,1270) + lu(k,1302) = lu(k,1302) - lu(k,689) * lu(k,1270) + lu(k,1313) = lu(k,1313) - lu(k,672) * lu(k,1312) + lu(k,1316) = lu(k,1316) - lu(k,673) * lu(k,1312) + lu(k,1318) = lu(k,1318) - lu(k,674) * lu(k,1312) + lu(k,1320) = lu(k,1320) - lu(k,675) * lu(k,1312) + lu(k,1323) = lu(k,1323) - lu(k,676) * lu(k,1312) + lu(k,1324) = lu(k,1324) - lu(k,677) * lu(k,1312) + lu(k,1326) = lu(k,1326) - lu(k,678) * lu(k,1312) + lu(k,1327) = lu(k,1327) - lu(k,679) * lu(k,1312) + lu(k,1328) = lu(k,1328) - lu(k,680) * lu(k,1312) + lu(k,1329) = lu(k,1329) - lu(k,681) * lu(k,1312) + lu(k,1333) = lu(k,1333) - lu(k,682) * lu(k,1312) + lu(k,1334) = lu(k,1334) - lu(k,683) * lu(k,1312) + lu(k,1335) = lu(k,1335) - lu(k,684) * lu(k,1312) + lu(k,1337) = lu(k,1337) - lu(k,685) * lu(k,1312) + lu(k,1338) = lu(k,1338) - lu(k,686) * lu(k,1312) + lu(k,1341) = lu(k,1341) - lu(k,687) * lu(k,1312) + lu(k,1342) = lu(k,1342) - lu(k,688) * lu(k,1312) + lu(k,1344) = lu(k,1344) - lu(k,689) * lu(k,1312) + lu(k,1416) = lu(k,1416) - lu(k,672) * lu(k,1415) + lu(k,1419) = lu(k,1419) - lu(k,673) * lu(k,1415) + lu(k,1421) = lu(k,1421) - lu(k,674) * lu(k,1415) + lu(k,1423) = lu(k,1423) - lu(k,675) * lu(k,1415) + lu(k,1426) = lu(k,1426) - lu(k,676) * lu(k,1415) + lu(k,1427) = lu(k,1427) - lu(k,677) * lu(k,1415) + lu(k,1429) = lu(k,1429) - lu(k,678) * lu(k,1415) + lu(k,1430) = lu(k,1430) - lu(k,679) * lu(k,1415) + lu(k,1431) = lu(k,1431) - lu(k,680) * lu(k,1415) + lu(k,1432) = lu(k,1432) - lu(k,681) * lu(k,1415) + lu(k,1436) = lu(k,1436) - lu(k,682) * lu(k,1415) + lu(k,1437) = lu(k,1437) - lu(k,683) * lu(k,1415) + lu(k,1438) = lu(k,1438) - lu(k,684) * lu(k,1415) + lu(k,1440) = lu(k,1440) - lu(k,685) * lu(k,1415) + lu(k,1441) = lu(k,1441) - lu(k,686) * lu(k,1415) + lu(k,1444) = lu(k,1444) - lu(k,687) * lu(k,1415) + lu(k,1445) = lu(k,1445) - lu(k,688) * lu(k,1415) + lu(k,1447) = lu(k,1447) - lu(k,689) * lu(k,1415) + lu(k,1585) = lu(k,1585) - lu(k,672) * lu(k,1584) + lu(k,1589) = lu(k,1589) - lu(k,673) * lu(k,1584) + lu(k,1591) = lu(k,1591) - lu(k,674) * lu(k,1584) + lu(k,1593) = lu(k,1593) - lu(k,675) * lu(k,1584) + lu(k,1596) = lu(k,1596) - lu(k,676) * lu(k,1584) + lu(k,1597) = lu(k,1597) - lu(k,677) * lu(k,1584) + lu(k,1599) = lu(k,1599) - lu(k,678) * lu(k,1584) + lu(k,1600) = lu(k,1600) - lu(k,679) * lu(k,1584) + lu(k,1601) = lu(k,1601) - lu(k,680) * lu(k,1584) + lu(k,1602) = lu(k,1602) - lu(k,681) * lu(k,1584) + lu(k,1606) = lu(k,1606) - lu(k,682) * lu(k,1584) + lu(k,1607) = lu(k,1607) - lu(k,683) * lu(k,1584) + lu(k,1608) = lu(k,1608) - lu(k,684) * lu(k,1584) + lu(k,1610) = lu(k,1610) - lu(k,685) * lu(k,1584) + lu(k,1611) = lu(k,1611) - lu(k,686) * lu(k,1584) + lu(k,1614) = lu(k,1614) - lu(k,687) * lu(k,1584) + lu(k,1615) = lu(k,1615) - lu(k,688) * lu(k,1584) + lu(k,1617) = lu(k,1617) - lu(k,689) * lu(k,1584) + lu(k,1629) = lu(k,1629) - lu(k,672) * lu(k,1628) + lu(k,1632) = lu(k,1632) - lu(k,673) * lu(k,1628) + lu(k,1634) = lu(k,1634) - lu(k,674) * lu(k,1628) + lu(k,1636) = lu(k,1636) - lu(k,675) * lu(k,1628) + lu(k,1639) = lu(k,1639) - lu(k,676) * lu(k,1628) + lu(k,1640) = lu(k,1640) - lu(k,677) * lu(k,1628) + lu(k,1642) = lu(k,1642) - lu(k,678) * lu(k,1628) + lu(k,1643) = lu(k,1643) - lu(k,679) * lu(k,1628) + lu(k,1644) = lu(k,1644) - lu(k,680) * lu(k,1628) + lu(k,1645) = lu(k,1645) - lu(k,681) * lu(k,1628) + lu(k,1649) = lu(k,1649) - lu(k,682) * lu(k,1628) + lu(k,1650) = lu(k,1650) - lu(k,683) * lu(k,1628) + lu(k,1651) = lu(k,1651) - lu(k,684) * lu(k,1628) + lu(k,1653) = lu(k,1653) - lu(k,685) * lu(k,1628) + lu(k,1654) = lu(k,1654) - lu(k,686) * lu(k,1628) + lu(k,1657) = lu(k,1657) - lu(k,687) * lu(k,1628) + lu(k,1658) = lu(k,1658) - lu(k,688) * lu(k,1628) + lu(k,1660) = lu(k,1660) - lu(k,689) * lu(k,1628) + lu(k,1793) = lu(k,1793) - lu(k,672) * lu(k,1792) + lu(k,1798) = lu(k,1798) - lu(k,673) * lu(k,1792) + lu(k,1800) = lu(k,1800) - lu(k,674) * lu(k,1792) + lu(k,1802) = lu(k,1802) - lu(k,675) * lu(k,1792) + lu(k,1805) = lu(k,1805) - lu(k,676) * lu(k,1792) + lu(k,1806) = lu(k,1806) - lu(k,677) * lu(k,1792) + lu(k,1808) = lu(k,1808) - lu(k,678) * lu(k,1792) + lu(k,1809) = lu(k,1809) - lu(k,679) * lu(k,1792) + lu(k,1810) = lu(k,1810) - lu(k,680) * lu(k,1792) + lu(k,1811) = lu(k,1811) - lu(k,681) * lu(k,1792) + lu(k,1815) = lu(k,1815) - lu(k,682) * lu(k,1792) + lu(k,1816) = lu(k,1816) - lu(k,683) * lu(k,1792) + lu(k,1817) = lu(k,1817) - lu(k,684) * lu(k,1792) + lu(k,1819) = lu(k,1819) - lu(k,685) * lu(k,1792) + lu(k,1820) = lu(k,1820) - lu(k,686) * lu(k,1792) + lu(k,1823) = lu(k,1823) - lu(k,687) * lu(k,1792) + lu(k,1824) = lu(k,1824) - lu(k,688) * lu(k,1792) + lu(k,1826) = lu(k,1826) - lu(k,689) * lu(k,1792) + lu(k,1955) = - lu(k,672) * lu(k,1954) + lu(k,1960) = lu(k,1960) - lu(k,673) * lu(k,1954) + lu(k,1962) = lu(k,1962) - lu(k,674) * lu(k,1954) + lu(k,1964) = lu(k,1964) - lu(k,675) * lu(k,1954) + lu(k,1967) = lu(k,1967) - lu(k,676) * lu(k,1954) + lu(k,1968) = lu(k,1968) - lu(k,677) * lu(k,1954) + lu(k,1970) = lu(k,1970) - lu(k,678) * lu(k,1954) + lu(k,1971) = lu(k,1971) - lu(k,679) * lu(k,1954) + lu(k,1972) = lu(k,1972) - lu(k,680) * lu(k,1954) + lu(k,1973) = lu(k,1973) - lu(k,681) * lu(k,1954) + lu(k,1977) = lu(k,1977) - lu(k,682) * lu(k,1954) + lu(k,1978) = lu(k,1978) - lu(k,683) * lu(k,1954) + lu(k,1979) = lu(k,1979) - lu(k,684) * lu(k,1954) + lu(k,1981) = lu(k,1981) - lu(k,685) * lu(k,1954) + lu(k,1982) = lu(k,1982) - lu(k,686) * lu(k,1954) + lu(k,1985) = lu(k,1985) - lu(k,687) * lu(k,1954) + lu(k,1986) = lu(k,1986) - lu(k,688) * lu(k,1954) + lu(k,1988) = lu(k,1988) - lu(k,689) * lu(k,1954) + lu(k,2060) = lu(k,2060) - lu(k,672) * lu(k,2059) + lu(k,2065) = lu(k,2065) - lu(k,673) * lu(k,2059) + lu(k,2067) = lu(k,2067) - lu(k,674) * lu(k,2059) + lu(k,2069) = lu(k,2069) - lu(k,675) * lu(k,2059) + lu(k,2072) = lu(k,2072) - lu(k,676) * lu(k,2059) + lu(k,2073) = lu(k,2073) - lu(k,677) * lu(k,2059) + lu(k,2075) = lu(k,2075) - lu(k,678) * lu(k,2059) + lu(k,2076) = lu(k,2076) - lu(k,679) * lu(k,2059) + lu(k,2077) = lu(k,2077) - lu(k,680) * lu(k,2059) + lu(k,2078) = lu(k,2078) - lu(k,681) * lu(k,2059) + lu(k,2082) = lu(k,2082) - lu(k,682) * lu(k,2059) + lu(k,2083) = lu(k,2083) - lu(k,683) * lu(k,2059) + lu(k,2084) = lu(k,2084) - lu(k,684) * lu(k,2059) + lu(k,2086) = lu(k,2086) - lu(k,685) * lu(k,2059) + lu(k,2087) = lu(k,2087) - lu(k,686) * lu(k,2059) + lu(k,2090) = lu(k,2090) - lu(k,687) * lu(k,2059) + lu(k,2091) = lu(k,2091) - lu(k,688) * lu(k,2059) + lu(k,2093) = lu(k,2093) - lu(k,689) * lu(k,2059) + lu(k,693) = 1._r8 / lu(k,693) + lu(k,694) = lu(k,694) * lu(k,693) + lu(k,695) = lu(k,695) * lu(k,693) + lu(k,696) = lu(k,696) * lu(k,693) + lu(k,697) = lu(k,697) * lu(k,693) + lu(k,698) = lu(k,698) * lu(k,693) + lu(k,699) = lu(k,699) * lu(k,693) + lu(k,700) = lu(k,700) * lu(k,693) + lu(k,701) = lu(k,701) * lu(k,693) + lu(k,702) = lu(k,702) * lu(k,693) + lu(k,703) = lu(k,703) * lu(k,693) + lu(k,704) = lu(k,704) * lu(k,693) + lu(k,705) = lu(k,705) * lu(k,693) + lu(k,706) = lu(k,706) * lu(k,693) + lu(k,707) = lu(k,707) * lu(k,693) + lu(k,708) = lu(k,708) * lu(k,693) + lu(k,709) = lu(k,709) * lu(k,693) + lu(k,868) = lu(k,868) - lu(k,694) * lu(k,866) + lu(k,871) = lu(k,871) - lu(k,695) * lu(k,866) + lu(k,872) = lu(k,872) - lu(k,696) * lu(k,866) + lu(k,874) = lu(k,874) - lu(k,697) * lu(k,866) + lu(k,875) = lu(k,875) - lu(k,698) * lu(k,866) + lu(k,876) = lu(k,876) - lu(k,699) * lu(k,866) + lu(k,877) = lu(k,877) - lu(k,700) * lu(k,866) + lu(k,879) = lu(k,879) - lu(k,701) * lu(k,866) + lu(k,880) = lu(k,880) - lu(k,702) * lu(k,866) + lu(k,881) = lu(k,881) - lu(k,703) * lu(k,866) + lu(k,882) = lu(k,882) - lu(k,704) * lu(k,866) + lu(k,883) = lu(k,883) - lu(k,705) * lu(k,866) + lu(k,884) = - lu(k,706) * lu(k,866) + lu(k,885) = lu(k,885) - lu(k,707) * lu(k,866) + lu(k,886) = lu(k,886) - lu(k,708) * lu(k,866) + lu(k,888) = lu(k,888) - lu(k,709) * lu(k,866) + lu(k,1013) = lu(k,1013) - lu(k,694) * lu(k,1011) + lu(k,1019) = lu(k,1019) - lu(k,695) * lu(k,1011) + lu(k,1020) = lu(k,1020) - lu(k,696) * lu(k,1011) + lu(k,1022) = lu(k,1022) - lu(k,697) * lu(k,1011) + lu(k,1023) = lu(k,1023) - lu(k,698) * lu(k,1011) + lu(k,1024) = lu(k,1024) - lu(k,699) * lu(k,1011) + lu(k,1025) = lu(k,1025) - lu(k,700) * lu(k,1011) + lu(k,1027) = lu(k,1027) - lu(k,701) * lu(k,1011) + lu(k,1029) = lu(k,1029) - lu(k,702) * lu(k,1011) + lu(k,1030) = lu(k,1030) - lu(k,703) * lu(k,1011) + lu(k,1032) = - lu(k,704) * lu(k,1011) + lu(k,1033) = lu(k,1033) - lu(k,705) * lu(k,1011) + lu(k,1034) = lu(k,1034) - lu(k,706) * lu(k,1011) + lu(k,1037) = lu(k,1037) - lu(k,707) * lu(k,1011) + lu(k,1038) = lu(k,1038) - lu(k,708) * lu(k,1011) + lu(k,1040) = lu(k,1040) - lu(k,709) * lu(k,1011) + lu(k,1147) = lu(k,1147) - lu(k,694) * lu(k,1143) + lu(k,1154) = lu(k,1154) - lu(k,695) * lu(k,1143) + lu(k,1155) = lu(k,1155) - lu(k,696) * lu(k,1143) + lu(k,1157) = lu(k,1157) - lu(k,697) * lu(k,1143) + lu(k,1158) = lu(k,1158) - lu(k,698) * lu(k,1143) + lu(k,1159) = lu(k,1159) - lu(k,699) * lu(k,1143) + lu(k,1160) = lu(k,1160) - lu(k,700) * lu(k,1143) + lu(k,1162) = lu(k,1162) - lu(k,701) * lu(k,1143) + lu(k,1164) = lu(k,1164) - lu(k,702) * lu(k,1143) + lu(k,1165) = lu(k,1165) - lu(k,703) * lu(k,1143) + lu(k,1167) = lu(k,1167) - lu(k,704) * lu(k,1143) + lu(k,1168) = lu(k,1168) - lu(k,705) * lu(k,1143) + lu(k,1169) = lu(k,1169) - lu(k,706) * lu(k,1143) + lu(k,1172) = lu(k,1172) - lu(k,707) * lu(k,1143) + lu(k,1173) = lu(k,1173) - lu(k,708) * lu(k,1143) + lu(k,1175) = lu(k,1175) - lu(k,709) * lu(k,1143) + lu(k,1190) = lu(k,1190) - lu(k,694) * lu(k,1187) + lu(k,1197) = lu(k,1197) - lu(k,695) * lu(k,1187) + lu(k,1198) = lu(k,1198) - lu(k,696) * lu(k,1187) + lu(k,1200) = lu(k,1200) - lu(k,697) * lu(k,1187) + lu(k,1201) = lu(k,1201) - lu(k,698) * lu(k,1187) + lu(k,1202) = lu(k,1202) - lu(k,699) * lu(k,1187) + lu(k,1203) = lu(k,1203) - lu(k,700) * lu(k,1187) + lu(k,1205) = lu(k,1205) - lu(k,701) * lu(k,1187) + lu(k,1207) = lu(k,1207) - lu(k,702) * lu(k,1187) + lu(k,1208) = lu(k,1208) - lu(k,703) * lu(k,1187) + lu(k,1210) = lu(k,1210) - lu(k,704) * lu(k,1187) + lu(k,1211) = lu(k,1211) - lu(k,705) * lu(k,1187) + lu(k,1212) = lu(k,1212) - lu(k,706) * lu(k,1187) + lu(k,1215) = lu(k,1215) - lu(k,707) * lu(k,1187) + lu(k,1216) = lu(k,1216) - lu(k,708) * lu(k,1187) + lu(k,1218) = lu(k,1218) - lu(k,709) * lu(k,1187) + lu(k,1274) = lu(k,1274) - lu(k,694) * lu(k,1271) + lu(k,1281) = lu(k,1281) - lu(k,695) * lu(k,1271) + lu(k,1282) = lu(k,1282) - lu(k,696) * lu(k,1271) + lu(k,1284) = lu(k,1284) - lu(k,697) * lu(k,1271) + lu(k,1285) = lu(k,1285) - lu(k,698) * lu(k,1271) + lu(k,1286) = lu(k,1286) - lu(k,699) * lu(k,1271) + lu(k,1287) = lu(k,1287) - lu(k,700) * lu(k,1271) + lu(k,1289) = lu(k,1289) - lu(k,701) * lu(k,1271) + lu(k,1291) = lu(k,1291) - lu(k,702) * lu(k,1271) + lu(k,1292) = lu(k,1292) - lu(k,703) * lu(k,1271) + lu(k,1294) = lu(k,1294) - lu(k,704) * lu(k,1271) + lu(k,1295) = lu(k,1295) - lu(k,705) * lu(k,1271) + lu(k,1296) = lu(k,1296) - lu(k,706) * lu(k,1271) + lu(k,1299) = lu(k,1299) - lu(k,707) * lu(k,1271) + lu(k,1300) = lu(k,1300) - lu(k,708) * lu(k,1271) + lu(k,1302) = lu(k,1302) - lu(k,709) * lu(k,1271) + lu(k,1316) = lu(k,1316) - lu(k,694) * lu(k,1313) + lu(k,1323) = lu(k,1323) - lu(k,695) * lu(k,1313) + lu(k,1324) = lu(k,1324) - lu(k,696) * lu(k,1313) + lu(k,1326) = lu(k,1326) - lu(k,697) * lu(k,1313) + lu(k,1327) = lu(k,1327) - lu(k,698) * lu(k,1313) + lu(k,1328) = lu(k,1328) - lu(k,699) * lu(k,1313) + lu(k,1329) = lu(k,1329) - lu(k,700) * lu(k,1313) + lu(k,1331) = lu(k,1331) - lu(k,701) * lu(k,1313) + lu(k,1333) = lu(k,1333) - lu(k,702) * lu(k,1313) + lu(k,1334) = lu(k,1334) - lu(k,703) * lu(k,1313) + lu(k,1336) = lu(k,1336) - lu(k,704) * lu(k,1313) + lu(k,1337) = lu(k,1337) - lu(k,705) * lu(k,1313) + lu(k,1338) = lu(k,1338) - lu(k,706) * lu(k,1313) + lu(k,1341) = lu(k,1341) - lu(k,707) * lu(k,1313) + lu(k,1342) = lu(k,1342) - lu(k,708) * lu(k,1313) + lu(k,1344) = lu(k,1344) - lu(k,709) * lu(k,1313) + lu(k,1419) = lu(k,1419) - lu(k,694) * lu(k,1416) + lu(k,1426) = lu(k,1426) - lu(k,695) * lu(k,1416) + lu(k,1427) = lu(k,1427) - lu(k,696) * lu(k,1416) + lu(k,1429) = lu(k,1429) - lu(k,697) * lu(k,1416) + lu(k,1430) = lu(k,1430) - lu(k,698) * lu(k,1416) + lu(k,1431) = lu(k,1431) - lu(k,699) * lu(k,1416) + lu(k,1432) = lu(k,1432) - lu(k,700) * lu(k,1416) + lu(k,1434) = lu(k,1434) - lu(k,701) * lu(k,1416) + lu(k,1436) = lu(k,1436) - lu(k,702) * lu(k,1416) + lu(k,1437) = lu(k,1437) - lu(k,703) * lu(k,1416) + lu(k,1439) = lu(k,1439) - lu(k,704) * lu(k,1416) + lu(k,1440) = lu(k,1440) - lu(k,705) * lu(k,1416) + lu(k,1441) = lu(k,1441) - lu(k,706) * lu(k,1416) + lu(k,1444) = lu(k,1444) - lu(k,707) * lu(k,1416) + lu(k,1445) = lu(k,1445) - lu(k,708) * lu(k,1416) + lu(k,1447) = lu(k,1447) - lu(k,709) * lu(k,1416) + lu(k,1508) = lu(k,1508) - lu(k,694) * lu(k,1504) + lu(k,1515) = lu(k,1515) - lu(k,695) * lu(k,1504) + lu(k,1516) = lu(k,1516) - lu(k,696) * lu(k,1504) + lu(k,1518) = lu(k,1518) - lu(k,697) * lu(k,1504) + lu(k,1519) = lu(k,1519) - lu(k,698) * lu(k,1504) + lu(k,1520) = lu(k,1520) - lu(k,699) * lu(k,1504) + lu(k,1521) = lu(k,1521) - lu(k,700) * lu(k,1504) + lu(k,1523) = lu(k,1523) - lu(k,701) * lu(k,1504) + lu(k,1525) = lu(k,1525) - lu(k,702) * lu(k,1504) + lu(k,1526) = lu(k,1526) - lu(k,703) * lu(k,1504) + lu(k,1528) = lu(k,1528) - lu(k,704) * lu(k,1504) + lu(k,1529) = lu(k,1529) - lu(k,705) * lu(k,1504) + lu(k,1530) = lu(k,1530) - lu(k,706) * lu(k,1504) + lu(k,1533) = lu(k,1533) - lu(k,707) * lu(k,1504) + lu(k,1534) = lu(k,1534) - lu(k,708) * lu(k,1504) + lu(k,1536) = lu(k,1536) - lu(k,709) * lu(k,1504) + lu(k,1589) = lu(k,1589) - lu(k,694) * lu(k,1585) + lu(k,1596) = lu(k,1596) - lu(k,695) * lu(k,1585) + lu(k,1597) = lu(k,1597) - lu(k,696) * lu(k,1585) + lu(k,1599) = lu(k,1599) - lu(k,697) * lu(k,1585) + lu(k,1600) = lu(k,1600) - lu(k,698) * lu(k,1585) + lu(k,1601) = lu(k,1601) - lu(k,699) * lu(k,1585) + lu(k,1602) = lu(k,1602) - lu(k,700) * lu(k,1585) + lu(k,1604) = lu(k,1604) - lu(k,701) * lu(k,1585) + lu(k,1606) = lu(k,1606) - lu(k,702) * lu(k,1585) + lu(k,1607) = lu(k,1607) - lu(k,703) * lu(k,1585) + lu(k,1609) = lu(k,1609) - lu(k,704) * lu(k,1585) + lu(k,1610) = lu(k,1610) - lu(k,705) * lu(k,1585) + lu(k,1611) = lu(k,1611) - lu(k,706) * lu(k,1585) + lu(k,1614) = lu(k,1614) - lu(k,707) * lu(k,1585) + lu(k,1615) = lu(k,1615) - lu(k,708) * lu(k,1585) + lu(k,1617) = lu(k,1617) - lu(k,709) * lu(k,1585) + lu(k,1632) = lu(k,1632) - lu(k,694) * lu(k,1629) + lu(k,1639) = lu(k,1639) - lu(k,695) * lu(k,1629) + lu(k,1640) = lu(k,1640) - lu(k,696) * lu(k,1629) + lu(k,1642) = lu(k,1642) - lu(k,697) * lu(k,1629) + lu(k,1643) = lu(k,1643) - lu(k,698) * lu(k,1629) + lu(k,1644) = lu(k,1644) - lu(k,699) * lu(k,1629) + lu(k,1645) = lu(k,1645) - lu(k,700) * lu(k,1629) + lu(k,1647) = lu(k,1647) - lu(k,701) * lu(k,1629) + lu(k,1649) = lu(k,1649) - lu(k,702) * lu(k,1629) + lu(k,1650) = lu(k,1650) - lu(k,703) * lu(k,1629) + lu(k,1652) = lu(k,1652) - lu(k,704) * lu(k,1629) + lu(k,1653) = lu(k,1653) - lu(k,705) * lu(k,1629) + lu(k,1654) = lu(k,1654) - lu(k,706) * lu(k,1629) + lu(k,1657) = lu(k,1657) - lu(k,707) * lu(k,1629) + lu(k,1658) = lu(k,1658) - lu(k,708) * lu(k,1629) + lu(k,1660) = lu(k,1660) - lu(k,709) * lu(k,1629) + lu(k,1715) = lu(k,1715) - lu(k,694) * lu(k,1711) + lu(k,1721) = lu(k,1721) - lu(k,695) * lu(k,1711) + lu(k,1722) = lu(k,1722) - lu(k,696) * lu(k,1711) + lu(k,1724) = lu(k,1724) - lu(k,697) * lu(k,1711) + lu(k,1725) = lu(k,1725) - lu(k,698) * lu(k,1711) + lu(k,1726) = lu(k,1726) - lu(k,699) * lu(k,1711) + lu(k,1727) = lu(k,1727) - lu(k,700) * lu(k,1711) + lu(k,1729) = lu(k,1729) - lu(k,701) * lu(k,1711) + lu(k,1731) = lu(k,1731) - lu(k,702) * lu(k,1711) + lu(k,1732) = lu(k,1732) - lu(k,703) * lu(k,1711) + lu(k,1734) = lu(k,1734) - lu(k,704) * lu(k,1711) + lu(k,1735) = lu(k,1735) - lu(k,705) * lu(k,1711) + lu(k,1736) = lu(k,1736) - lu(k,706) * lu(k,1711) + lu(k,1739) = lu(k,1739) - lu(k,707) * lu(k,1711) + lu(k,1740) = lu(k,1740) - lu(k,708) * lu(k,1711) + lu(k,1742) = lu(k,1742) - lu(k,709) * lu(k,1711) + lu(k,1798) = lu(k,1798) - lu(k,694) * lu(k,1793) + lu(k,1805) = lu(k,1805) - lu(k,695) * lu(k,1793) + lu(k,1806) = lu(k,1806) - lu(k,696) * lu(k,1793) + lu(k,1808) = lu(k,1808) - lu(k,697) * lu(k,1793) + lu(k,1809) = lu(k,1809) - lu(k,698) * lu(k,1793) + lu(k,1810) = lu(k,1810) - lu(k,699) * lu(k,1793) + lu(k,1811) = lu(k,1811) - lu(k,700) * lu(k,1793) + lu(k,1813) = lu(k,1813) - lu(k,701) * lu(k,1793) + lu(k,1815) = lu(k,1815) - lu(k,702) * lu(k,1793) + lu(k,1816) = lu(k,1816) - lu(k,703) * lu(k,1793) + lu(k,1818) = lu(k,1818) - lu(k,704) * lu(k,1793) + lu(k,1819) = lu(k,1819) - lu(k,705) * lu(k,1793) + lu(k,1820) = lu(k,1820) - lu(k,706) * lu(k,1793) + lu(k,1823) = lu(k,1823) - lu(k,707) * lu(k,1793) + lu(k,1824) = lu(k,1824) - lu(k,708) * lu(k,1793) + lu(k,1826) = lu(k,1826) - lu(k,709) * lu(k,1793) + lu(k,1960) = lu(k,1960) - lu(k,694) * lu(k,1955) + lu(k,1967) = lu(k,1967) - lu(k,695) * lu(k,1955) + lu(k,1968) = lu(k,1968) - lu(k,696) * lu(k,1955) + lu(k,1970) = lu(k,1970) - lu(k,697) * lu(k,1955) + lu(k,1971) = lu(k,1971) - lu(k,698) * lu(k,1955) + lu(k,1972) = lu(k,1972) - lu(k,699) * lu(k,1955) + lu(k,1973) = lu(k,1973) - lu(k,700) * lu(k,1955) + lu(k,1975) = - lu(k,701) * lu(k,1955) + lu(k,1977) = lu(k,1977) - lu(k,702) * lu(k,1955) + lu(k,1978) = lu(k,1978) - lu(k,703) * lu(k,1955) + lu(k,1980) = lu(k,1980) - lu(k,704) * lu(k,1955) + lu(k,1981) = lu(k,1981) - lu(k,705) * lu(k,1955) + lu(k,1982) = lu(k,1982) - lu(k,706) * lu(k,1955) + lu(k,1985) = lu(k,1985) - lu(k,707) * lu(k,1955) + lu(k,1986) = lu(k,1986) - lu(k,708) * lu(k,1955) + lu(k,1988) = lu(k,1988) - lu(k,709) * lu(k,1955) + lu(k,2065) = lu(k,2065) - lu(k,694) * lu(k,2060) + lu(k,2072) = lu(k,2072) - lu(k,695) * lu(k,2060) + lu(k,2073) = lu(k,2073) - lu(k,696) * lu(k,2060) + lu(k,2075) = lu(k,2075) - lu(k,697) * lu(k,2060) + lu(k,2076) = lu(k,2076) - lu(k,698) * lu(k,2060) + lu(k,2077) = lu(k,2077) - lu(k,699) * lu(k,2060) + lu(k,2078) = lu(k,2078) - lu(k,700) * lu(k,2060) + lu(k,2080) = lu(k,2080) - lu(k,701) * lu(k,2060) + lu(k,2082) = lu(k,2082) - lu(k,702) * lu(k,2060) + lu(k,2083) = lu(k,2083) - lu(k,703) * lu(k,2060) + lu(k,2085) = lu(k,2085) - lu(k,704) * lu(k,2060) + lu(k,2086) = lu(k,2086) - lu(k,705) * lu(k,2060) + lu(k,2087) = lu(k,2087) - lu(k,706) * lu(k,2060) + lu(k,2090) = lu(k,2090) - lu(k,707) * lu(k,2060) + lu(k,2091) = lu(k,2091) - lu(k,708) * lu(k,2060) + lu(k,2093) = lu(k,2093) - lu(k,709) * lu(k,2060) + lu(k,717) = 1._r8 / lu(k,717) + lu(k,718) = lu(k,718) * lu(k,717) + lu(k,719) = lu(k,719) * lu(k,717) + lu(k,720) = lu(k,720) * lu(k,717) + lu(k,721) = lu(k,721) * lu(k,717) + lu(k,722) = lu(k,722) * lu(k,717) + lu(k,723) = lu(k,723) * lu(k,717) + lu(k,724) = lu(k,724) * lu(k,717) + lu(k,725) = lu(k,725) * lu(k,717) + lu(k,726) = lu(k,726) * lu(k,717) + lu(k,727) = lu(k,727) * lu(k,717) + lu(k,728) = lu(k,728) * lu(k,717) + lu(k,729) = lu(k,729) * lu(k,717) + lu(k,730) = lu(k,730) * lu(k,717) + lu(k,731) = lu(k,731) * lu(k,717) + lu(k,732) = lu(k,732) * lu(k,717) + lu(k,733) = lu(k,733) * lu(k,717) + lu(k,734) = lu(k,734) * lu(k,717) + lu(k,740) = lu(k,740) - lu(k,718) * lu(k,739) + lu(k,741) = lu(k,741) - lu(k,719) * lu(k,739) + lu(k,742) = lu(k,742) - lu(k,720) * lu(k,739) + lu(k,743) = lu(k,743) - lu(k,721) * lu(k,739) + lu(k,745) = lu(k,745) - lu(k,722) * lu(k,739) + lu(k,746) = lu(k,746) - lu(k,723) * lu(k,739) + lu(k,747) = lu(k,747) - lu(k,724) * lu(k,739) + lu(k,748) = lu(k,748) - lu(k,725) * lu(k,739) + lu(k,749) = lu(k,749) - lu(k,726) * lu(k,739) + lu(k,750) = lu(k,750) - lu(k,727) * lu(k,739) + lu(k,751) = lu(k,751) - lu(k,728) * lu(k,739) + lu(k,752) = lu(k,752) - lu(k,729) * lu(k,739) + lu(k,753) = lu(k,753) - lu(k,730) * lu(k,739) + lu(k,756) = lu(k,756) - lu(k,731) * lu(k,739) + lu(k,757) = lu(k,757) - lu(k,732) * lu(k,739) + lu(k,758) = lu(k,758) - lu(k,733) * lu(k,739) + lu(k,759) = lu(k,759) - lu(k,734) * lu(k,739) + lu(k,788) = lu(k,788) - lu(k,718) * lu(k,787) + lu(k,789) = lu(k,789) - lu(k,719) * lu(k,787) + lu(k,790) = lu(k,790) - lu(k,720) * lu(k,787) + lu(k,791) = lu(k,791) - lu(k,721) * lu(k,787) + lu(k,793) = lu(k,793) - lu(k,722) * lu(k,787) + lu(k,794) = lu(k,794) - lu(k,723) * lu(k,787) + lu(k,795) = lu(k,795) - lu(k,724) * lu(k,787) + lu(k,796) = lu(k,796) - lu(k,725) * lu(k,787) + lu(k,797) = lu(k,797) - lu(k,726) * lu(k,787) + lu(k,801) = lu(k,801) - lu(k,727) * lu(k,787) + lu(k,802) = lu(k,802) - lu(k,728) * lu(k,787) + lu(k,803) = lu(k,803) - lu(k,729) * lu(k,787) + lu(k,804) = lu(k,804) - lu(k,730) * lu(k,787) + lu(k,807) = lu(k,807) - lu(k,731) * lu(k,787) + lu(k,808) = lu(k,808) - lu(k,732) * lu(k,787) + lu(k,809) = lu(k,809) - lu(k,733) * lu(k,787) + lu(k,810) = lu(k,810) - lu(k,734) * lu(k,787) + lu(k,900) = lu(k,900) - lu(k,718) * lu(k,899) + lu(k,901) = lu(k,901) - lu(k,719) * lu(k,899) + lu(k,902) = lu(k,902) - lu(k,720) * lu(k,899) + lu(k,903) = lu(k,903) - lu(k,721) * lu(k,899) + lu(k,905) = lu(k,905) - lu(k,722) * lu(k,899) + lu(k,906) = lu(k,906) - lu(k,723) * lu(k,899) + lu(k,908) = lu(k,908) - lu(k,724) * lu(k,899) + lu(k,909) = lu(k,909) - lu(k,725) * lu(k,899) + lu(k,910) = lu(k,910) - lu(k,726) * lu(k,899) + lu(k,914) = lu(k,914) - lu(k,727) * lu(k,899) + lu(k,915) = lu(k,915) - lu(k,728) * lu(k,899) + lu(k,916) = lu(k,916) - lu(k,729) * lu(k,899) + lu(k,917) = lu(k,917) - lu(k,730) * lu(k,899) + lu(k,920) = lu(k,920) - lu(k,731) * lu(k,899) + lu(k,921) = lu(k,921) - lu(k,732) * lu(k,899) + lu(k,922) = lu(k,922) - lu(k,733) * lu(k,899) + lu(k,923) = lu(k,923) - lu(k,734) * lu(k,899) + lu(k,983) = lu(k,983) - lu(k,718) * lu(k,982) + lu(k,984) = lu(k,984) - lu(k,719) * lu(k,982) + lu(k,985) = lu(k,985) - lu(k,720) * lu(k,982) + lu(k,986) = lu(k,986) - lu(k,721) * lu(k,982) + lu(k,988) = lu(k,988) - lu(k,722) * lu(k,982) + lu(k,990) = lu(k,990) - lu(k,723) * lu(k,982) + lu(k,992) = lu(k,992) - lu(k,724) * lu(k,982) + lu(k,993) = lu(k,993) - lu(k,725) * lu(k,982) + lu(k,994) = lu(k,994) - lu(k,726) * lu(k,982) + lu(k,998) = lu(k,998) - lu(k,727) * lu(k,982) + lu(k,999) = lu(k,999) - lu(k,728) * lu(k,982) + lu(k,1000) = lu(k,1000) - lu(k,729) * lu(k,982) + lu(k,1001) = lu(k,1001) - lu(k,730) * lu(k,982) + lu(k,1004) = lu(k,1004) - lu(k,731) * lu(k,982) + lu(k,1005) = lu(k,1005) - lu(k,732) * lu(k,982) + lu(k,1006) = lu(k,1006) - lu(k,733) * lu(k,982) + lu(k,1007) = lu(k,1007) - lu(k,734) * lu(k,982) + lu(k,1096) = lu(k,1096) - lu(k,718) * lu(k,1095) + lu(k,1097) = lu(k,1097) - lu(k,719) * lu(k,1095) + lu(k,1101) = lu(k,1101) - lu(k,720) * lu(k,1095) + lu(k,1103) = lu(k,1103) - lu(k,721) * lu(k,1095) + lu(k,1106) = lu(k,1106) - lu(k,722) * lu(k,1095) + lu(k,1109) = lu(k,1109) - lu(k,723) * lu(k,1095) + lu(k,1112) = lu(k,1112) - lu(k,724) * lu(k,1095) + lu(k,1114) = lu(k,1114) - lu(k,725) * lu(k,1095) + lu(k,1115) = lu(k,1115) - lu(k,726) * lu(k,1095) + lu(k,1119) = lu(k,1119) - lu(k,727) * lu(k,1095) + lu(k,1120) = lu(k,1120) - lu(k,728) * lu(k,1095) + lu(k,1121) = lu(k,1121) - lu(k,729) * lu(k,1095) + lu(k,1122) = lu(k,1122) - lu(k,730) * lu(k,1095) + lu(k,1125) = lu(k,1125) - lu(k,731) * lu(k,1095) + lu(k,1126) = lu(k,1126) - lu(k,732) * lu(k,1095) + lu(k,1127) = lu(k,1127) - lu(k,733) * lu(k,1095) + lu(k,1128) = lu(k,1128) - lu(k,734) * lu(k,1095) + lu(k,1228) = lu(k,1228) - lu(k,718) * lu(k,1227) + lu(k,1229) = lu(k,1229) - lu(k,719) * lu(k,1227) + lu(k,1232) = lu(k,1232) - lu(k,720) * lu(k,1227) + lu(k,1234) = lu(k,1234) - lu(k,721) * lu(k,1227) + lu(k,1237) = lu(k,1237) - lu(k,722) * lu(k,1227) + lu(k,1240) = lu(k,1240) - lu(k,723) * lu(k,1227) + lu(k,1243) = lu(k,1243) - lu(k,724) * lu(k,1227) + lu(k,1245) = lu(k,1245) - lu(k,725) * lu(k,1227) + lu(k,1246) = - lu(k,726) * lu(k,1227) + lu(k,1250) = lu(k,1250) - lu(k,727) * lu(k,1227) + lu(k,1251) = lu(k,1251) - lu(k,728) * lu(k,1227) + lu(k,1252) = lu(k,1252) - lu(k,729) * lu(k,1227) + lu(k,1253) = lu(k,1253) - lu(k,730) * lu(k,1227) + lu(k,1256) = lu(k,1256) - lu(k,731) * lu(k,1227) + lu(k,1257) = lu(k,1257) - lu(k,732) * lu(k,1227) + lu(k,1258) = - lu(k,733) * lu(k,1227) + lu(k,1259) = lu(k,1259) - lu(k,734) * lu(k,1227) + lu(k,1372) = lu(k,1372) - lu(k,718) * lu(k,1371) + lu(k,1373) = lu(k,1373) - lu(k,719) * lu(k,1371) + lu(k,1377) = lu(k,1377) - lu(k,720) * lu(k,1371) + lu(k,1379) = lu(k,1379) - lu(k,721) * lu(k,1371) + lu(k,1382) = lu(k,1382) - lu(k,722) * lu(k,1371) + lu(k,1385) = lu(k,1385) - lu(k,723) * lu(k,1371) + lu(k,1388) = lu(k,1388) - lu(k,724) * lu(k,1371) + lu(k,1390) = lu(k,1390) - lu(k,725) * lu(k,1371) + lu(k,1391) = lu(k,1391) - lu(k,726) * lu(k,1371) + lu(k,1395) = lu(k,1395) - lu(k,727) * lu(k,1371) + lu(k,1396) = lu(k,1396) - lu(k,728) * lu(k,1371) + lu(k,1397) = lu(k,1397) - lu(k,729) * lu(k,1371) + lu(k,1398) = lu(k,1398) - lu(k,730) * lu(k,1371) + lu(k,1401) = lu(k,1401) - lu(k,731) * lu(k,1371) + lu(k,1402) = lu(k,1402) - lu(k,732) * lu(k,1371) + lu(k,1403) = lu(k,1403) - lu(k,733) * lu(k,1371) + lu(k,1404) = lu(k,1404) - lu(k,734) * lu(k,1371) + lu(k,1463) = lu(k,1463) - lu(k,718) * lu(k,1462) + lu(k,1464) = lu(k,1464) - lu(k,719) * lu(k,1462) + lu(k,1468) = lu(k,1468) - lu(k,720) * lu(k,1462) + lu(k,1470) = lu(k,1470) - lu(k,721) * lu(k,1462) + lu(k,1473) = lu(k,1473) - lu(k,722) * lu(k,1462) + lu(k,1476) = lu(k,1476) - lu(k,723) * lu(k,1462) + lu(k,1479) = lu(k,1479) - lu(k,724) * lu(k,1462) + lu(k,1481) = lu(k,1481) - lu(k,725) * lu(k,1462) + lu(k,1482) = lu(k,1482) - lu(k,726) * lu(k,1462) + lu(k,1486) = lu(k,1486) - lu(k,727) * lu(k,1462) + lu(k,1487) = lu(k,1487) - lu(k,728) * lu(k,1462) + lu(k,1488) = lu(k,1488) - lu(k,729) * lu(k,1462) + lu(k,1489) = lu(k,1489) - lu(k,730) * lu(k,1462) + lu(k,1492) = lu(k,1492) - lu(k,731) * lu(k,1462) + lu(k,1493) = lu(k,1493) - lu(k,732) * lu(k,1462) + lu(k,1494) = lu(k,1494) - lu(k,733) * lu(k,1462) + lu(k,1495) = lu(k,1495) - lu(k,734) * lu(k,1462) + lu(k,1713) = lu(k,1713) - lu(k,718) * lu(k,1712) + lu(k,1714) = lu(k,1714) - lu(k,719) * lu(k,1712) + lu(k,1716) = lu(k,1716) - lu(k,720) * lu(k,1712) + lu(k,1718) = lu(k,1718) - lu(k,721) * lu(k,1712) + lu(k,1720) = lu(k,1720) - lu(k,722) * lu(k,1712) + lu(k,1723) = lu(k,1723) - lu(k,723) * lu(k,1712) + lu(k,1726) = lu(k,1726) - lu(k,724) * lu(k,1712) + lu(k,1728) = lu(k,1728) - lu(k,725) * lu(k,1712) + lu(k,1729) = lu(k,1729) - lu(k,726) * lu(k,1712) + lu(k,1733) = lu(k,1733) - lu(k,727) * lu(k,1712) + lu(k,1734) = lu(k,1734) - lu(k,728) * lu(k,1712) + lu(k,1735) = lu(k,1735) - lu(k,729) * lu(k,1712) + lu(k,1736) = lu(k,1736) - lu(k,730) * lu(k,1712) + lu(k,1739) = lu(k,1739) - lu(k,731) * lu(k,1712) + lu(k,1740) = lu(k,1740) - lu(k,732) * lu(k,1712) + lu(k,1741) = - lu(k,733) * lu(k,1712) + lu(k,1742) = lu(k,1742) - lu(k,734) * lu(k,1712) + lu(k,1795) = lu(k,1795) - lu(k,718) * lu(k,1794) + lu(k,1796) = lu(k,1796) - lu(k,719) * lu(k,1794) + lu(k,1799) = lu(k,1799) - lu(k,720) * lu(k,1794) + lu(k,1801) = lu(k,1801) - lu(k,721) * lu(k,1794) + lu(k,1804) = lu(k,1804) - lu(k,722) * lu(k,1794) + lu(k,1807) = lu(k,1807) - lu(k,723) * lu(k,1794) + lu(k,1810) = lu(k,1810) - lu(k,724) * lu(k,1794) + lu(k,1812) = lu(k,1812) - lu(k,725) * lu(k,1794) + lu(k,1813) = lu(k,1813) - lu(k,726) * lu(k,1794) + lu(k,1817) = lu(k,1817) - lu(k,727) * lu(k,1794) + lu(k,1818) = lu(k,1818) - lu(k,728) * lu(k,1794) + lu(k,1819) = lu(k,1819) - lu(k,729) * lu(k,1794) + lu(k,1820) = lu(k,1820) - lu(k,730) * lu(k,1794) + lu(k,1823) = lu(k,1823) - lu(k,731) * lu(k,1794) + lu(k,1824) = lu(k,1824) - lu(k,732) * lu(k,1794) + lu(k,1825) = lu(k,1825) - lu(k,733) * lu(k,1794) + lu(k,1826) = lu(k,1826) - lu(k,734) * lu(k,1794) + lu(k,1913) = lu(k,1913) - lu(k,718) * lu(k,1912) + lu(k,1914) = lu(k,1914) - lu(k,719) * lu(k,1912) + lu(k,1917) = lu(k,1917) - lu(k,720) * lu(k,1912) + lu(k,1919) = lu(k,1919) - lu(k,721) * lu(k,1912) + lu(k,1922) = lu(k,1922) - lu(k,722) * lu(k,1912) + lu(k,1925) = lu(k,1925) - lu(k,723) * lu(k,1912) + lu(k,1928) = lu(k,1928) - lu(k,724) * lu(k,1912) + lu(k,1930) = lu(k,1930) - lu(k,725) * lu(k,1912) + lu(k,1931) = - lu(k,726) * lu(k,1912) + lu(k,1935) = lu(k,1935) - lu(k,727) * lu(k,1912) + lu(k,1936) = - lu(k,728) * lu(k,1912) + lu(k,1937) = lu(k,1937) - lu(k,729) * lu(k,1912) + lu(k,1938) = lu(k,1938) - lu(k,730) * lu(k,1912) + lu(k,1941) = lu(k,1941) - lu(k,731) * lu(k,1912) + lu(k,1942) = lu(k,1942) - lu(k,732) * lu(k,1912) + lu(k,1943) = - lu(k,733) * lu(k,1912) + lu(k,1944) = lu(k,1944) - lu(k,734) * lu(k,1912) + lu(k,1957) = lu(k,1957) - lu(k,718) * lu(k,1956) + lu(k,1958) = lu(k,1958) - lu(k,719) * lu(k,1956) + lu(k,1961) = lu(k,1961) - lu(k,720) * lu(k,1956) + lu(k,1963) = lu(k,1963) - lu(k,721) * lu(k,1956) + lu(k,1966) = lu(k,1966) - lu(k,722) * lu(k,1956) + lu(k,1969) = lu(k,1969) - lu(k,723) * lu(k,1956) + lu(k,1972) = lu(k,1972) - lu(k,724) * lu(k,1956) + lu(k,1974) = lu(k,1974) - lu(k,725) * lu(k,1956) + lu(k,1975) = lu(k,1975) - lu(k,726) * lu(k,1956) + lu(k,1979) = lu(k,1979) - lu(k,727) * lu(k,1956) + lu(k,1980) = lu(k,1980) - lu(k,728) * lu(k,1956) + lu(k,1981) = lu(k,1981) - lu(k,729) * lu(k,1956) + lu(k,1982) = lu(k,1982) - lu(k,730) * lu(k,1956) + lu(k,1985) = lu(k,1985) - lu(k,731) * lu(k,1956) + lu(k,1986) = lu(k,1986) - lu(k,732) * lu(k,1956) + lu(k,1987) = - lu(k,733) * lu(k,1956) + lu(k,1988) = lu(k,1988) - lu(k,734) * lu(k,1956) + lu(k,2001) = lu(k,2001) - lu(k,718) * lu(k,2000) + lu(k,2002) = lu(k,2002) - lu(k,719) * lu(k,2000) + lu(k,2006) = lu(k,2006) - lu(k,720) * lu(k,2000) + lu(k,2008) = lu(k,2008) - lu(k,721) * lu(k,2000) + lu(k,2011) = lu(k,2011) - lu(k,722) * lu(k,2000) + lu(k,2014) = lu(k,2014) - lu(k,723) * lu(k,2000) + lu(k,2017) = lu(k,2017) - lu(k,724) * lu(k,2000) + lu(k,2019) = lu(k,2019) - lu(k,725) * lu(k,2000) + lu(k,2020) = lu(k,2020) - lu(k,726) * lu(k,2000) + lu(k,2024) = lu(k,2024) - lu(k,727) * lu(k,2000) + lu(k,2025) = lu(k,2025) - lu(k,728) * lu(k,2000) + lu(k,2026) = lu(k,2026) - lu(k,729) * lu(k,2000) + lu(k,2027) = lu(k,2027) - lu(k,730) * lu(k,2000) + lu(k,2030) = lu(k,2030) - lu(k,731) * lu(k,2000) + lu(k,2031) = lu(k,2031) - lu(k,732) * lu(k,2000) + lu(k,2032) = lu(k,2032) - lu(k,733) * lu(k,2000) + lu(k,2033) = lu(k,2033) - lu(k,734) * lu(k,2000) + lu(k,2062) = lu(k,2062) - lu(k,718) * lu(k,2061) + lu(k,2063) = lu(k,2063) - lu(k,719) * lu(k,2061) + lu(k,2066) = lu(k,2066) - lu(k,720) * lu(k,2061) + lu(k,2068) = lu(k,2068) - lu(k,721) * lu(k,2061) + lu(k,2071) = lu(k,2071) - lu(k,722) * lu(k,2061) + lu(k,2074) = lu(k,2074) - lu(k,723) * lu(k,2061) + lu(k,2077) = lu(k,2077) - lu(k,724) * lu(k,2061) + lu(k,2079) = lu(k,2079) - lu(k,725) * lu(k,2061) + lu(k,2080) = lu(k,2080) - lu(k,726) * lu(k,2061) + lu(k,2084) = lu(k,2084) - lu(k,727) * lu(k,2061) + lu(k,2085) = lu(k,2085) - lu(k,728) * lu(k,2061) + lu(k,2086) = lu(k,2086) - lu(k,729) * lu(k,2061) + lu(k,2087) = lu(k,2087) - lu(k,730) * lu(k,2061) + lu(k,2090) = lu(k,2090) - lu(k,731) * lu(k,2061) + lu(k,2091) = lu(k,2091) - lu(k,732) * lu(k,2061) + lu(k,2092) = lu(k,2092) - lu(k,733) * lu(k,2061) + lu(k,2093) = lu(k,2093) - lu(k,734) * lu(k,2061) end do end subroutine lu_fac18 subroutine lu_fac19( avec_len, lu ) @@ -5858,916 +5137,751 @@ subroutine lu_fac19( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,811) = 1._r8 / lu(k,811) - lu(k,812) = lu(k,812) * lu(k,811) - lu(k,813) = lu(k,813) * lu(k,811) - lu(k,814) = lu(k,814) * lu(k,811) - lu(k,815) = lu(k,815) * lu(k,811) - lu(k,816) = lu(k,816) * lu(k,811) - lu(k,817) = lu(k,817) * lu(k,811) - lu(k,818) = lu(k,818) * lu(k,811) - lu(k,819) = lu(k,819) * lu(k,811) - lu(k,820) = lu(k,820) * lu(k,811) - lu(k,821) = lu(k,821) * lu(k,811) - lu(k,822) = lu(k,822) * lu(k,811) - lu(k,823) = lu(k,823) * lu(k,811) - lu(k,824) = lu(k,824) * lu(k,811) - lu(k,825) = lu(k,825) * lu(k,811) - lu(k,826) = lu(k,826) * lu(k,811) - lu(k,827) = lu(k,827) * lu(k,811) - lu(k,828) = lu(k,828) * lu(k,811) - lu(k,829) = lu(k,829) * lu(k,811) - lu(k,834) = lu(k,834) - lu(k,812) * lu(k,832) - lu(k,836) = lu(k,836) - lu(k,813) * lu(k,832) - lu(k,839) = lu(k,839) - lu(k,814) * lu(k,832) - lu(k,841) = lu(k,841) - lu(k,815) * lu(k,832) - lu(k,842) = lu(k,842) - lu(k,816) * lu(k,832) - lu(k,843) = lu(k,843) - lu(k,817) * lu(k,832) - lu(k,845) = lu(k,845) - lu(k,818) * lu(k,832) - lu(k,847) = lu(k,847) - lu(k,819) * lu(k,832) - lu(k,848) = lu(k,848) - lu(k,820) * lu(k,832) - lu(k,849) = - lu(k,821) * lu(k,832) - lu(k,851) = lu(k,851) - lu(k,822) * lu(k,832) - lu(k,852) = lu(k,852) - lu(k,823) * lu(k,832) - lu(k,853) = lu(k,853) - lu(k,824) * lu(k,832) - lu(k,854) = lu(k,854) - lu(k,825) * lu(k,832) - lu(k,855) = lu(k,855) - lu(k,826) * lu(k,832) - lu(k,859) = lu(k,859) - lu(k,827) * lu(k,832) - lu(k,860) = lu(k,860) - lu(k,828) * lu(k,832) - lu(k,861) = lu(k,861) - lu(k,829) * lu(k,832) - lu(k,866) = lu(k,866) - lu(k,812) * lu(k,865) - lu(k,867) = lu(k,867) - lu(k,813) * lu(k,865) - lu(k,868) = lu(k,868) - lu(k,814) * lu(k,865) - lu(k,869) = lu(k,869) - lu(k,815) * lu(k,865) - lu(k,870) = lu(k,870) - lu(k,816) * lu(k,865) - lu(k,871) = lu(k,871) - lu(k,817) * lu(k,865) - lu(k,872) = lu(k,872) - lu(k,818) * lu(k,865) - lu(k,874) = lu(k,874) - lu(k,819) * lu(k,865) - lu(k,875) = - lu(k,820) * lu(k,865) - lu(k,876) = lu(k,876) - lu(k,821) * lu(k,865) - lu(k,877) = lu(k,877) - lu(k,822) * lu(k,865) - lu(k,878) = lu(k,878) - lu(k,823) * lu(k,865) - lu(k,879) = lu(k,879) - lu(k,824) * lu(k,865) - lu(k,881) = lu(k,881) - lu(k,825) * lu(k,865) - lu(k,882) = lu(k,882) - lu(k,826) * lu(k,865) - lu(k,884) = lu(k,884) - lu(k,827) * lu(k,865) - lu(k,885) = lu(k,885) - lu(k,828) * lu(k,865) - lu(k,886) = lu(k,886) - lu(k,829) * lu(k,865) - lu(k,925) = lu(k,925) - lu(k,812) * lu(k,924) - lu(k,926) = lu(k,926) - lu(k,813) * lu(k,924) - lu(k,928) = lu(k,928) - lu(k,814) * lu(k,924) - lu(k,930) = lu(k,930) - lu(k,815) * lu(k,924) - lu(k,931) = lu(k,931) - lu(k,816) * lu(k,924) - lu(k,932) = lu(k,932) - lu(k,817) * lu(k,924) - lu(k,933) = lu(k,933) - lu(k,818) * lu(k,924) - lu(k,935) = lu(k,935) - lu(k,819) * lu(k,924) - lu(k,936) = lu(k,936) - lu(k,820) * lu(k,924) - lu(k,937) = lu(k,937) - lu(k,821) * lu(k,924) - lu(k,938) = lu(k,938) - lu(k,822) * lu(k,924) - lu(k,939) = lu(k,939) - lu(k,823) * lu(k,924) - lu(k,940) = lu(k,940) - lu(k,824) * lu(k,924) - lu(k,942) = lu(k,942) - lu(k,825) * lu(k,924) - lu(k,943) = lu(k,943) - lu(k,826) * lu(k,924) - lu(k,946) = lu(k,946) - lu(k,827) * lu(k,924) - lu(k,947) = lu(k,947) - lu(k,828) * lu(k,924) - lu(k,948) = lu(k,948) - lu(k,829) * lu(k,924) - lu(k,1011) = lu(k,1011) - lu(k,812) * lu(k,1010) - lu(k,1012) = lu(k,1012) - lu(k,813) * lu(k,1010) - lu(k,1015) = lu(k,1015) - lu(k,814) * lu(k,1010) - lu(k,1017) = lu(k,1017) - lu(k,815) * lu(k,1010) - lu(k,1018) = lu(k,1018) - lu(k,816) * lu(k,1010) - lu(k,1019) = lu(k,1019) - lu(k,817) * lu(k,1010) - lu(k,1021) = lu(k,1021) - lu(k,818) * lu(k,1010) - lu(k,1023) = lu(k,1023) - lu(k,819) * lu(k,1010) - lu(k,1024) = lu(k,1024) - lu(k,820) * lu(k,1010) - lu(k,1025) = lu(k,1025) - lu(k,821) * lu(k,1010) - lu(k,1027) = lu(k,1027) - lu(k,822) * lu(k,1010) - lu(k,1028) = lu(k,1028) - lu(k,823) * lu(k,1010) - lu(k,1029) = lu(k,1029) - lu(k,824) * lu(k,1010) - lu(k,1031) = lu(k,1031) - lu(k,825) * lu(k,1010) - lu(k,1032) = lu(k,1032) - lu(k,826) * lu(k,1010) - lu(k,1036) = lu(k,1036) - lu(k,827) * lu(k,1010) - lu(k,1037) = - lu(k,828) * lu(k,1010) - lu(k,1038) = lu(k,1038) - lu(k,829) * lu(k,1010) - lu(k,1098) = - lu(k,812) * lu(k,1096) - lu(k,1100) = lu(k,1100) - lu(k,813) * lu(k,1096) - lu(k,1103) = lu(k,1103) - lu(k,814) * lu(k,1096) - lu(k,1105) = - lu(k,815) * lu(k,1096) - lu(k,1106) = - lu(k,816) * lu(k,1096) - lu(k,1107) = lu(k,1107) - lu(k,817) * lu(k,1096) - lu(k,1109) = - lu(k,818) * lu(k,1096) - lu(k,1111) = lu(k,1111) - lu(k,819) * lu(k,1096) - lu(k,1112) = lu(k,1112) - lu(k,820) * lu(k,1096) - lu(k,1113) = lu(k,1113) - lu(k,821) * lu(k,1096) - lu(k,1115) = lu(k,1115) - lu(k,822) * lu(k,1096) - lu(k,1116) = - lu(k,823) * lu(k,1096) - lu(k,1117) = - lu(k,824) * lu(k,1096) - lu(k,1119) = lu(k,1119) - lu(k,825) * lu(k,1096) - lu(k,1120) = lu(k,1120) - lu(k,826) * lu(k,1096) - lu(k,1124) = lu(k,1124) - lu(k,827) * lu(k,1096) - lu(k,1125) = lu(k,1125) - lu(k,828) * lu(k,1096) - lu(k,1126) = lu(k,1126) - lu(k,829) * lu(k,1096) - lu(k,1146) = lu(k,1146) - lu(k,812) * lu(k,1144) - lu(k,1148) = lu(k,1148) - lu(k,813) * lu(k,1144) - lu(k,1151) = lu(k,1151) - lu(k,814) * lu(k,1144) - lu(k,1153) = lu(k,1153) - lu(k,815) * lu(k,1144) - lu(k,1154) = lu(k,1154) - lu(k,816) * lu(k,1144) - lu(k,1155) = lu(k,1155) - lu(k,817) * lu(k,1144) - lu(k,1157) = lu(k,1157) - lu(k,818) * lu(k,1144) - lu(k,1159) = lu(k,1159) - lu(k,819) * lu(k,1144) - lu(k,1160) = lu(k,1160) - lu(k,820) * lu(k,1144) - lu(k,1161) = lu(k,1161) - lu(k,821) * lu(k,1144) - lu(k,1163) = lu(k,1163) - lu(k,822) * lu(k,1144) - lu(k,1164) = lu(k,1164) - lu(k,823) * lu(k,1144) - lu(k,1165) = lu(k,1165) - lu(k,824) * lu(k,1144) - lu(k,1167) = lu(k,1167) - lu(k,825) * lu(k,1144) - lu(k,1168) = lu(k,1168) - lu(k,826) * lu(k,1144) - lu(k,1172) = lu(k,1172) - lu(k,827) * lu(k,1144) - lu(k,1173) = lu(k,1173) - lu(k,828) * lu(k,1144) - lu(k,1174) = lu(k,1174) - lu(k,829) * lu(k,1144) - lu(k,1189) = lu(k,1189) - lu(k,812) * lu(k,1187) - lu(k,1191) = lu(k,1191) - lu(k,813) * lu(k,1187) - lu(k,1194) = lu(k,1194) - lu(k,814) * lu(k,1187) - lu(k,1196) = lu(k,1196) - lu(k,815) * lu(k,1187) - lu(k,1197) = lu(k,1197) - lu(k,816) * lu(k,1187) - lu(k,1198) = lu(k,1198) - lu(k,817) * lu(k,1187) - lu(k,1200) = lu(k,1200) - lu(k,818) * lu(k,1187) - lu(k,1202) = lu(k,1202) - lu(k,819) * lu(k,1187) - lu(k,1203) = lu(k,1203) - lu(k,820) * lu(k,1187) - lu(k,1204) = lu(k,1204) - lu(k,821) * lu(k,1187) - lu(k,1206) = lu(k,1206) - lu(k,822) * lu(k,1187) - lu(k,1207) = lu(k,1207) - lu(k,823) * lu(k,1187) - lu(k,1208) = lu(k,1208) - lu(k,824) * lu(k,1187) - lu(k,1210) = lu(k,1210) - lu(k,825) * lu(k,1187) - lu(k,1211) = lu(k,1211) - lu(k,826) * lu(k,1187) - lu(k,1215) = lu(k,1215) - lu(k,827) * lu(k,1187) - lu(k,1216) = lu(k,1216) - lu(k,828) * lu(k,1187) - lu(k,1217) = lu(k,1217) - lu(k,829) * lu(k,1187) - lu(k,1232) = lu(k,1232) - lu(k,812) * lu(k,1230) - lu(k,1234) = lu(k,1234) - lu(k,813) * lu(k,1230) - lu(k,1237) = lu(k,1237) - lu(k,814) * lu(k,1230) - lu(k,1239) = lu(k,1239) - lu(k,815) * lu(k,1230) - lu(k,1240) = lu(k,1240) - lu(k,816) * lu(k,1230) - lu(k,1241) = lu(k,1241) - lu(k,817) * lu(k,1230) - lu(k,1243) = lu(k,1243) - lu(k,818) * lu(k,1230) - lu(k,1245) = lu(k,1245) - lu(k,819) * lu(k,1230) - lu(k,1246) = lu(k,1246) - lu(k,820) * lu(k,1230) - lu(k,1247) = lu(k,1247) - lu(k,821) * lu(k,1230) - lu(k,1249) = lu(k,1249) - lu(k,822) * lu(k,1230) - lu(k,1250) = lu(k,1250) - lu(k,823) * lu(k,1230) - lu(k,1251) = lu(k,1251) - lu(k,824) * lu(k,1230) - lu(k,1253) = lu(k,1253) - lu(k,825) * lu(k,1230) - lu(k,1254) = lu(k,1254) - lu(k,826) * lu(k,1230) - lu(k,1258) = lu(k,1258) - lu(k,827) * lu(k,1230) - lu(k,1259) = lu(k,1259) - lu(k,828) * lu(k,1230) - lu(k,1260) = lu(k,1260) - lu(k,829) * lu(k,1230) - lu(k,1316) = lu(k,1316) - lu(k,812) * lu(k,1314) - lu(k,1318) = lu(k,1318) - lu(k,813) * lu(k,1314) - lu(k,1321) = lu(k,1321) - lu(k,814) * lu(k,1314) - lu(k,1323) = lu(k,1323) - lu(k,815) * lu(k,1314) - lu(k,1324) = lu(k,1324) - lu(k,816) * lu(k,1314) - lu(k,1325) = lu(k,1325) - lu(k,817) * lu(k,1314) - lu(k,1327) = lu(k,1327) - lu(k,818) * lu(k,1314) - lu(k,1329) = lu(k,1329) - lu(k,819) * lu(k,1314) - lu(k,1330) = lu(k,1330) - lu(k,820) * lu(k,1314) - lu(k,1331) = lu(k,1331) - lu(k,821) * lu(k,1314) - lu(k,1333) = lu(k,1333) - lu(k,822) * lu(k,1314) - lu(k,1334) = lu(k,1334) - lu(k,823) * lu(k,1314) - lu(k,1335) = lu(k,1335) - lu(k,824) * lu(k,1314) - lu(k,1337) = lu(k,1337) - lu(k,825) * lu(k,1314) - lu(k,1338) = lu(k,1338) - lu(k,826) * lu(k,1314) - lu(k,1342) = lu(k,1342) - lu(k,827) * lu(k,1314) - lu(k,1343) = lu(k,1343) - lu(k,828) * lu(k,1314) - lu(k,1344) = lu(k,1344) - lu(k,829) * lu(k,1314) - lu(k,1376) = lu(k,1376) - lu(k,812) * lu(k,1374) - lu(k,1378) = lu(k,1378) - lu(k,813) * lu(k,1374) - lu(k,1381) = lu(k,1381) - lu(k,814) * lu(k,1374) - lu(k,1383) = lu(k,1383) - lu(k,815) * lu(k,1374) - lu(k,1384) = - lu(k,816) * lu(k,1374) - lu(k,1385) = lu(k,1385) - lu(k,817) * lu(k,1374) - lu(k,1387) = - lu(k,818) * lu(k,1374) - lu(k,1389) = lu(k,1389) - lu(k,819) * lu(k,1374) - lu(k,1390) = lu(k,1390) - lu(k,820) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,821) * lu(k,1374) - lu(k,1393) = lu(k,1393) - lu(k,822) * lu(k,1374) - lu(k,1394) = - lu(k,823) * lu(k,1374) - lu(k,1395) = - lu(k,824) * lu(k,1374) - lu(k,1397) = lu(k,1397) - lu(k,825) * lu(k,1374) - lu(k,1398) = lu(k,1398) - lu(k,826) * lu(k,1374) - lu(k,1402) = lu(k,1402) - lu(k,827) * lu(k,1374) - lu(k,1403) = lu(k,1403) - lu(k,828) * lu(k,1374) - lu(k,1404) = lu(k,1404) - lu(k,829) * lu(k,1374) - lu(k,1473) = - lu(k,812) * lu(k,1471) - lu(k,1475) = lu(k,1475) - lu(k,813) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,814) * lu(k,1471) - lu(k,1480) = - lu(k,815) * lu(k,1471) - lu(k,1481) = - lu(k,816) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,817) * lu(k,1471) - lu(k,1484) = - lu(k,818) * lu(k,1471) - lu(k,1486) = lu(k,1486) - lu(k,819) * lu(k,1471) - lu(k,1487) = lu(k,1487) - lu(k,820) * lu(k,1471) - lu(k,1488) = lu(k,1488) - lu(k,821) * lu(k,1471) - lu(k,1490) = lu(k,1490) - lu(k,822) * lu(k,1471) - lu(k,1491) = - lu(k,823) * lu(k,1471) - lu(k,1492) = - lu(k,824) * lu(k,1471) - lu(k,1494) = lu(k,1494) - lu(k,825) * lu(k,1471) - lu(k,1495) = lu(k,1495) - lu(k,826) * lu(k,1471) - lu(k,1499) = lu(k,1499) - lu(k,827) * lu(k,1471) - lu(k,1500) = lu(k,1500) - lu(k,828) * lu(k,1471) - lu(k,1501) = lu(k,1501) - lu(k,829) * lu(k,1471) - lu(k,1514) = lu(k,1514) - lu(k,812) * lu(k,1513) - lu(k,1516) = lu(k,1516) - lu(k,813) * lu(k,1513) - lu(k,1519) = lu(k,1519) - lu(k,814) * lu(k,1513) - lu(k,1521) = lu(k,1521) - lu(k,815) * lu(k,1513) - lu(k,1522) = lu(k,1522) - lu(k,816) * lu(k,1513) - lu(k,1523) = lu(k,1523) - lu(k,817) * lu(k,1513) - lu(k,1525) = lu(k,1525) - lu(k,818) * lu(k,1513) - lu(k,1527) = lu(k,1527) - lu(k,819) * lu(k,1513) - lu(k,1528) = lu(k,1528) - lu(k,820) * lu(k,1513) - lu(k,1529) = lu(k,1529) - lu(k,821) * lu(k,1513) - lu(k,1531) = lu(k,1531) - lu(k,822) * lu(k,1513) - lu(k,1532) = lu(k,1532) - lu(k,823) * lu(k,1513) - lu(k,1533) = lu(k,1533) - lu(k,824) * lu(k,1513) - lu(k,1535) = lu(k,1535) - lu(k,825) * lu(k,1513) - lu(k,1536) = lu(k,1536) - lu(k,826) * lu(k,1513) - lu(k,1540) = lu(k,1540) - lu(k,827) * lu(k,1513) - lu(k,1541) = lu(k,1541) - lu(k,828) * lu(k,1513) - lu(k,1542) = lu(k,1542) - lu(k,829) * lu(k,1513) - lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1548) - lu(k,1552) = lu(k,1552) - lu(k,813) * lu(k,1548) - lu(k,1555) = lu(k,1555) - lu(k,814) * lu(k,1548) - lu(k,1557) = lu(k,1557) - lu(k,815) * lu(k,1548) - lu(k,1558) = lu(k,1558) - lu(k,816) * lu(k,1548) - lu(k,1559) = lu(k,1559) - lu(k,817) * lu(k,1548) - lu(k,1561) = lu(k,1561) - lu(k,818) * lu(k,1548) - lu(k,1563) = lu(k,1563) - lu(k,819) * lu(k,1548) - lu(k,1564) = lu(k,1564) - lu(k,820) * lu(k,1548) - lu(k,1565) = lu(k,1565) - lu(k,821) * lu(k,1548) - lu(k,1567) = lu(k,1567) - lu(k,822) * lu(k,1548) - lu(k,1568) = lu(k,1568) - lu(k,823) * lu(k,1548) - lu(k,1569) = lu(k,1569) - lu(k,824) * lu(k,1548) - lu(k,1571) = lu(k,1571) - lu(k,825) * lu(k,1548) - lu(k,1572) = lu(k,1572) - lu(k,826) * lu(k,1548) - lu(k,1576) = lu(k,1576) - lu(k,827) * lu(k,1548) - lu(k,1577) = lu(k,1577) - lu(k,828) * lu(k,1548) - lu(k,1578) = lu(k,1578) - lu(k,829) * lu(k,1548) - lu(k,1595) = lu(k,1595) - lu(k,812) * lu(k,1593) - lu(k,1597) = lu(k,1597) - lu(k,813) * lu(k,1593) - lu(k,1600) = lu(k,1600) - lu(k,814) * lu(k,1593) - lu(k,1602) = lu(k,1602) - lu(k,815) * lu(k,1593) - lu(k,1603) = lu(k,1603) - lu(k,816) * lu(k,1593) - lu(k,1604) = lu(k,1604) - lu(k,817) * lu(k,1593) - lu(k,1606) = lu(k,1606) - lu(k,818) * lu(k,1593) - lu(k,1608) = lu(k,1608) - lu(k,819) * lu(k,1593) - lu(k,1609) = lu(k,1609) - lu(k,820) * lu(k,1593) - lu(k,1610) = lu(k,1610) - lu(k,821) * lu(k,1593) - lu(k,1612) = lu(k,1612) - lu(k,822) * lu(k,1593) - lu(k,1613) = lu(k,1613) - lu(k,823) * lu(k,1593) - lu(k,1614) = lu(k,1614) - lu(k,824) * lu(k,1593) - lu(k,1616) = lu(k,1616) - lu(k,825) * lu(k,1593) - lu(k,1617) = lu(k,1617) - lu(k,826) * lu(k,1593) - lu(k,1621) = lu(k,1621) - lu(k,827) * lu(k,1593) - lu(k,1622) = lu(k,1622) - lu(k,828) * lu(k,1593) - lu(k,1623) = lu(k,1623) - lu(k,829) * lu(k,1593) - lu(k,1638) = lu(k,1638) - lu(k,812) * lu(k,1636) - lu(k,1640) = lu(k,1640) - lu(k,813) * lu(k,1636) - lu(k,1643) = lu(k,1643) - lu(k,814) * lu(k,1636) - lu(k,1645) = lu(k,1645) - lu(k,815) * lu(k,1636) - lu(k,1646) = lu(k,1646) - lu(k,816) * lu(k,1636) - lu(k,1647) = lu(k,1647) - lu(k,817) * lu(k,1636) - lu(k,1649) = lu(k,1649) - lu(k,818) * lu(k,1636) - lu(k,1651) = lu(k,1651) - lu(k,819) * lu(k,1636) - lu(k,1652) = lu(k,1652) - lu(k,820) * lu(k,1636) - lu(k,1653) = lu(k,1653) - lu(k,821) * lu(k,1636) - lu(k,1655) = lu(k,1655) - lu(k,822) * lu(k,1636) - lu(k,1656) = lu(k,1656) - lu(k,823) * lu(k,1636) - lu(k,1657) = lu(k,1657) - lu(k,824) * lu(k,1636) - lu(k,1659) = lu(k,1659) - lu(k,825) * lu(k,1636) - lu(k,1660) = lu(k,1660) - lu(k,826) * lu(k,1636) - lu(k,1664) = lu(k,1664) - lu(k,827) * lu(k,1636) - lu(k,1665) = lu(k,1665) - lu(k,828) * lu(k,1636) - lu(k,1666) = lu(k,1666) - lu(k,829) * lu(k,1636) - lu(k,1681) = lu(k,1681) - lu(k,812) * lu(k,1679) - lu(k,1683) = lu(k,1683) - lu(k,813) * lu(k,1679) - lu(k,1686) = lu(k,1686) - lu(k,814) * lu(k,1679) - lu(k,1688) = lu(k,1688) - lu(k,815) * lu(k,1679) - lu(k,1689) = lu(k,1689) - lu(k,816) * lu(k,1679) - lu(k,1690) = lu(k,1690) - lu(k,817) * lu(k,1679) - lu(k,1692) = lu(k,1692) - lu(k,818) * lu(k,1679) - lu(k,1694) = lu(k,1694) - lu(k,819) * lu(k,1679) - lu(k,1695) = lu(k,1695) - lu(k,820) * lu(k,1679) - lu(k,1696) = lu(k,1696) - lu(k,821) * lu(k,1679) - lu(k,1698) = lu(k,1698) - lu(k,822) * lu(k,1679) - lu(k,1699) = lu(k,1699) - lu(k,823) * lu(k,1679) - lu(k,1700) = lu(k,1700) - lu(k,824) * lu(k,1679) - lu(k,1702) = lu(k,1702) - lu(k,825) * lu(k,1679) - lu(k,1703) = lu(k,1703) - lu(k,826) * lu(k,1679) - lu(k,1707) = lu(k,1707) - lu(k,827) * lu(k,1679) - lu(k,1708) = lu(k,1708) - lu(k,828) * lu(k,1679) - lu(k,1709) = lu(k,1709) - lu(k,829) * lu(k,1679) - lu(k,1757) = lu(k,1757) - lu(k,812) * lu(k,1755) - lu(k,1759) = lu(k,1759) - lu(k,813) * lu(k,1755) - lu(k,1762) = lu(k,1762) - lu(k,814) * lu(k,1755) - lu(k,1764) = - lu(k,815) * lu(k,1755) - lu(k,1765) = - lu(k,816) * lu(k,1755) - lu(k,1766) = lu(k,1766) - lu(k,817) * lu(k,1755) - lu(k,1768) = lu(k,1768) - lu(k,818) * lu(k,1755) - lu(k,1770) = lu(k,1770) - lu(k,819) * lu(k,1755) - lu(k,1771) = lu(k,1771) - lu(k,820) * lu(k,1755) - lu(k,1772) = lu(k,1772) - lu(k,821) * lu(k,1755) - lu(k,1774) = lu(k,1774) - lu(k,822) * lu(k,1755) - lu(k,1775) = - lu(k,823) * lu(k,1755) - lu(k,1776) = - lu(k,824) * lu(k,1755) - lu(k,1778) = lu(k,1778) - lu(k,825) * lu(k,1755) - lu(k,1779) = lu(k,1779) - lu(k,826) * lu(k,1755) - lu(k,1783) = lu(k,1783) - lu(k,827) * lu(k,1755) - lu(k,1784) = lu(k,1784) - lu(k,828) * lu(k,1755) - lu(k,1785) = lu(k,1785) - lu(k,829) * lu(k,1755) - lu(k,1805) = lu(k,1805) - lu(k,812) * lu(k,1804) - lu(k,1807) = lu(k,1807) - lu(k,813) * lu(k,1804) - lu(k,1810) = lu(k,1810) - lu(k,814) * lu(k,1804) - lu(k,1812) = lu(k,1812) - lu(k,815) * lu(k,1804) - lu(k,1813) = lu(k,1813) - lu(k,816) * lu(k,1804) - lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1804) - lu(k,1816) = lu(k,1816) - lu(k,818) * lu(k,1804) - lu(k,1818) = lu(k,1818) - lu(k,819) * lu(k,1804) - lu(k,1819) = lu(k,1819) - lu(k,820) * lu(k,1804) - lu(k,1820) = lu(k,1820) - lu(k,821) * lu(k,1804) - lu(k,1822) = lu(k,1822) - lu(k,822) * lu(k,1804) - lu(k,1823) = lu(k,1823) - lu(k,823) * lu(k,1804) - lu(k,1824) = lu(k,1824) - lu(k,824) * lu(k,1804) - lu(k,1826) = lu(k,1826) - lu(k,825) * lu(k,1804) - lu(k,1827) = lu(k,1827) - lu(k,826) * lu(k,1804) - lu(k,1831) = lu(k,1831) - lu(k,827) * lu(k,1804) - lu(k,1832) = lu(k,1832) - lu(k,828) * lu(k,1804) - lu(k,1833) = lu(k,1833) - lu(k,829) * lu(k,1804) - lu(k,1838) = lu(k,1838) - lu(k,812) * lu(k,1837) - lu(k,1840) = lu(k,1840) - lu(k,813) * lu(k,1837) - lu(k,1843) = lu(k,1843) - lu(k,814) * lu(k,1837) - lu(k,1845) = lu(k,1845) - lu(k,815) * lu(k,1837) - lu(k,1846) = lu(k,1846) - lu(k,816) * lu(k,1837) - lu(k,1847) = lu(k,1847) - lu(k,817) * lu(k,1837) - lu(k,1849) = lu(k,1849) - lu(k,818) * lu(k,1837) - lu(k,1851) = lu(k,1851) - lu(k,819) * lu(k,1837) - lu(k,1852) = lu(k,1852) - lu(k,820) * lu(k,1837) - lu(k,1853) = - lu(k,821) * lu(k,1837) - lu(k,1855) = lu(k,1855) - lu(k,822) * lu(k,1837) - lu(k,1856) = lu(k,1856) - lu(k,823) * lu(k,1837) - lu(k,1857) = lu(k,1857) - lu(k,824) * lu(k,1837) - lu(k,1859) = lu(k,1859) - lu(k,825) * lu(k,1837) - lu(k,1860) = lu(k,1860) - lu(k,826) * lu(k,1837) - lu(k,1864) = lu(k,1864) - lu(k,827) * lu(k,1837) - lu(k,1865) = lu(k,1865) - lu(k,828) * lu(k,1837) - lu(k,1866) = lu(k,1866) - lu(k,829) * lu(k,1837) - lu(k,1874) = lu(k,1874) - lu(k,812) * lu(k,1873) - lu(k,1876) = lu(k,1876) - lu(k,813) * lu(k,1873) - lu(k,1879) = lu(k,1879) - lu(k,814) * lu(k,1873) - lu(k,1881) = - lu(k,815) * lu(k,1873) - lu(k,1882) = - lu(k,816) * lu(k,1873) - lu(k,1883) = lu(k,1883) - lu(k,817) * lu(k,1873) - lu(k,1885) = - lu(k,818) * lu(k,1873) - lu(k,1887) = lu(k,1887) - lu(k,819) * lu(k,1873) - lu(k,1888) = lu(k,1888) - lu(k,820) * lu(k,1873) - lu(k,1889) = lu(k,1889) - lu(k,821) * lu(k,1873) - lu(k,1891) = lu(k,1891) - lu(k,822) * lu(k,1873) - lu(k,1892) = - lu(k,823) * lu(k,1873) - lu(k,1893) = - lu(k,824) * lu(k,1873) - lu(k,1895) = lu(k,1895) - lu(k,825) * lu(k,1873) - lu(k,1896) = lu(k,1896) - lu(k,826) * lu(k,1873) - lu(k,1900) = lu(k,1900) - lu(k,827) * lu(k,1873) - lu(k,1901) = lu(k,1901) - lu(k,828) * lu(k,1873) - lu(k,1902) = lu(k,1902) - lu(k,829) * lu(k,1873) - lu(k,1957) = lu(k,1957) - lu(k,812) * lu(k,1956) - lu(k,1959) = lu(k,1959) - lu(k,813) * lu(k,1956) - lu(k,1962) = lu(k,1962) - lu(k,814) * lu(k,1956) - lu(k,1964) = lu(k,1964) - lu(k,815) * lu(k,1956) - lu(k,1965) = lu(k,1965) - lu(k,816) * lu(k,1956) - lu(k,1966) = lu(k,1966) - lu(k,817) * lu(k,1956) - lu(k,1968) = lu(k,1968) - lu(k,818) * lu(k,1956) - lu(k,1970) = lu(k,1970) - lu(k,819) * lu(k,1956) - lu(k,1971) = lu(k,1971) - lu(k,820) * lu(k,1956) - lu(k,1972) = lu(k,1972) - lu(k,821) * lu(k,1956) - lu(k,1974) = lu(k,1974) - lu(k,822) * lu(k,1956) - lu(k,1975) = lu(k,1975) - lu(k,823) * lu(k,1956) - lu(k,1976) = lu(k,1976) - lu(k,824) * lu(k,1956) - lu(k,1978) = lu(k,1978) - lu(k,825) * lu(k,1956) - lu(k,1979) = lu(k,1979) - lu(k,826) * lu(k,1956) - lu(k,1983) = lu(k,1983) - lu(k,827) * lu(k,1956) - lu(k,1984) = lu(k,1984) - lu(k,828) * lu(k,1956) - lu(k,1985) = lu(k,1985) - lu(k,829) * lu(k,1956) - lu(k,2002) = lu(k,2002) - lu(k,812) * lu(k,2000) - lu(k,2004) = lu(k,2004) - lu(k,813) * lu(k,2000) - lu(k,2007) = lu(k,2007) - lu(k,814) * lu(k,2000) - lu(k,2009) = lu(k,2009) - lu(k,815) * lu(k,2000) - lu(k,2010) = lu(k,2010) - lu(k,816) * lu(k,2000) - lu(k,2011) = lu(k,2011) - lu(k,817) * lu(k,2000) - lu(k,2013) = lu(k,2013) - lu(k,818) * lu(k,2000) - lu(k,2015) = lu(k,2015) - lu(k,819) * lu(k,2000) - lu(k,2016) = lu(k,2016) - lu(k,820) * lu(k,2000) - lu(k,2017) = lu(k,2017) - lu(k,821) * lu(k,2000) - lu(k,2019) = lu(k,2019) - lu(k,822) * lu(k,2000) - lu(k,2020) = lu(k,2020) - lu(k,823) * lu(k,2000) - lu(k,2021) = lu(k,2021) - lu(k,824) * lu(k,2000) - lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2000) - lu(k,2024) = lu(k,2024) - lu(k,826) * lu(k,2000) - lu(k,2028) = lu(k,2028) - lu(k,827) * lu(k,2000) - lu(k,2029) = lu(k,2029) - lu(k,828) * lu(k,2000) - lu(k,2030) = lu(k,2030) - lu(k,829) * lu(k,2000) - lu(k,2062) = lu(k,2062) - lu(k,812) * lu(k,2061) - lu(k,2064) = lu(k,2064) - lu(k,813) * lu(k,2061) - lu(k,2067) = lu(k,2067) - lu(k,814) * lu(k,2061) - lu(k,2069) = lu(k,2069) - lu(k,815) * lu(k,2061) - lu(k,2070) = lu(k,2070) - lu(k,816) * lu(k,2061) - lu(k,2071) = lu(k,2071) - lu(k,817) * lu(k,2061) - lu(k,2073) = lu(k,2073) - lu(k,818) * lu(k,2061) - lu(k,2075) = lu(k,2075) - lu(k,819) * lu(k,2061) - lu(k,2076) = lu(k,2076) - lu(k,820) * lu(k,2061) - lu(k,2077) = lu(k,2077) - lu(k,821) * lu(k,2061) - lu(k,2079) = lu(k,2079) - lu(k,822) * lu(k,2061) - lu(k,2080) = lu(k,2080) - lu(k,823) * lu(k,2061) - lu(k,2081) = lu(k,2081) - lu(k,824) * lu(k,2061) - lu(k,2083) = lu(k,2083) - lu(k,825) * lu(k,2061) - lu(k,2084) = lu(k,2084) - lu(k,826) * lu(k,2061) - lu(k,2088) = lu(k,2088) - lu(k,827) * lu(k,2061) - lu(k,2089) = lu(k,2089) - lu(k,828) * lu(k,2061) - lu(k,2090) = lu(k,2090) - lu(k,829) * lu(k,2061) - lu(k,833) = 1._r8 / lu(k,833) - lu(k,834) = lu(k,834) * lu(k,833) - lu(k,835) = lu(k,835) * lu(k,833) - lu(k,836) = lu(k,836) * lu(k,833) - lu(k,837) = lu(k,837) * lu(k,833) - lu(k,838) = lu(k,838) * lu(k,833) - lu(k,839) = lu(k,839) * lu(k,833) - lu(k,840) = lu(k,840) * lu(k,833) - lu(k,841) = lu(k,841) * lu(k,833) - lu(k,842) = lu(k,842) * lu(k,833) - lu(k,843) = lu(k,843) * lu(k,833) - lu(k,844) = lu(k,844) * lu(k,833) - lu(k,845) = lu(k,845) * lu(k,833) - lu(k,846) = lu(k,846) * lu(k,833) - lu(k,847) = lu(k,847) * lu(k,833) - lu(k,848) = lu(k,848) * lu(k,833) - lu(k,849) = lu(k,849) * lu(k,833) - lu(k,850) = lu(k,850) * lu(k,833) - lu(k,851) = lu(k,851) * lu(k,833) - lu(k,852) = lu(k,852) * lu(k,833) - lu(k,853) = lu(k,853) * lu(k,833) - lu(k,854) = lu(k,854) * lu(k,833) - lu(k,855) = lu(k,855) * lu(k,833) - lu(k,856) = lu(k,856) * lu(k,833) - lu(k,857) = lu(k,857) * lu(k,833) - lu(k,858) = lu(k,858) * lu(k,833) - lu(k,859) = lu(k,859) * lu(k,833) - lu(k,860) = lu(k,860) * lu(k,833) - lu(k,861) = lu(k,861) * lu(k,833) - lu(k,1098) = lu(k,1098) - lu(k,834) * lu(k,1097) - lu(k,1099) = lu(k,1099) - lu(k,835) * lu(k,1097) - lu(k,1100) = lu(k,1100) - lu(k,836) * lu(k,1097) - lu(k,1101) = lu(k,1101) - lu(k,837) * lu(k,1097) - lu(k,1102) = lu(k,1102) - lu(k,838) * lu(k,1097) - lu(k,1103) = lu(k,1103) - lu(k,839) * lu(k,1097) - lu(k,1104) = lu(k,1104) - lu(k,840) * lu(k,1097) - lu(k,1105) = lu(k,1105) - lu(k,841) * lu(k,1097) - lu(k,1106) = lu(k,1106) - lu(k,842) * lu(k,1097) - lu(k,1107) = lu(k,1107) - lu(k,843) * lu(k,1097) - lu(k,1108) = lu(k,1108) - lu(k,844) * lu(k,1097) - lu(k,1109) = lu(k,1109) - lu(k,845) * lu(k,1097) - lu(k,1110) = lu(k,1110) - lu(k,846) * lu(k,1097) - lu(k,1111) = lu(k,1111) - lu(k,847) * lu(k,1097) - lu(k,1112) = lu(k,1112) - lu(k,848) * lu(k,1097) - lu(k,1113) = lu(k,1113) - lu(k,849) * lu(k,1097) - lu(k,1114) = lu(k,1114) - lu(k,850) * lu(k,1097) - lu(k,1115) = lu(k,1115) - lu(k,851) * lu(k,1097) - lu(k,1116) = lu(k,1116) - lu(k,852) * lu(k,1097) - lu(k,1117) = lu(k,1117) - lu(k,853) * lu(k,1097) - lu(k,1119) = lu(k,1119) - lu(k,854) * lu(k,1097) - lu(k,1120) = lu(k,1120) - lu(k,855) * lu(k,1097) - lu(k,1121) = lu(k,1121) - lu(k,856) * lu(k,1097) - lu(k,1122) = lu(k,1122) - lu(k,857) * lu(k,1097) - lu(k,1123) = lu(k,1123) - lu(k,858) * lu(k,1097) - lu(k,1124) = lu(k,1124) - lu(k,859) * lu(k,1097) - lu(k,1125) = lu(k,1125) - lu(k,860) * lu(k,1097) - lu(k,1126) = lu(k,1126) - lu(k,861) * lu(k,1097) - lu(k,1146) = lu(k,1146) - lu(k,834) * lu(k,1145) - lu(k,1147) = lu(k,1147) - lu(k,835) * lu(k,1145) - lu(k,1148) = lu(k,1148) - lu(k,836) * lu(k,1145) - lu(k,1149) = lu(k,1149) - lu(k,837) * lu(k,1145) - lu(k,1150) = lu(k,1150) - lu(k,838) * lu(k,1145) - lu(k,1151) = lu(k,1151) - lu(k,839) * lu(k,1145) - lu(k,1152) = lu(k,1152) - lu(k,840) * lu(k,1145) - lu(k,1153) = lu(k,1153) - lu(k,841) * lu(k,1145) - lu(k,1154) = lu(k,1154) - lu(k,842) * lu(k,1145) - lu(k,1155) = lu(k,1155) - lu(k,843) * lu(k,1145) - lu(k,1156) = lu(k,1156) - lu(k,844) * lu(k,1145) - lu(k,1157) = lu(k,1157) - lu(k,845) * lu(k,1145) - lu(k,1158) = lu(k,1158) - lu(k,846) * lu(k,1145) - lu(k,1159) = lu(k,1159) - lu(k,847) * lu(k,1145) - lu(k,1160) = lu(k,1160) - lu(k,848) * lu(k,1145) - lu(k,1161) = lu(k,1161) - lu(k,849) * lu(k,1145) - lu(k,1162) = lu(k,1162) - lu(k,850) * lu(k,1145) - lu(k,1163) = lu(k,1163) - lu(k,851) * lu(k,1145) - lu(k,1164) = lu(k,1164) - lu(k,852) * lu(k,1145) - lu(k,1165) = lu(k,1165) - lu(k,853) * lu(k,1145) - lu(k,1167) = lu(k,1167) - lu(k,854) * lu(k,1145) - lu(k,1168) = lu(k,1168) - lu(k,855) * lu(k,1145) - lu(k,1169) = lu(k,1169) - lu(k,856) * lu(k,1145) - lu(k,1170) = lu(k,1170) - lu(k,857) * lu(k,1145) - lu(k,1171) = lu(k,1171) - lu(k,858) * lu(k,1145) - lu(k,1172) = lu(k,1172) - lu(k,859) * lu(k,1145) - lu(k,1173) = lu(k,1173) - lu(k,860) * lu(k,1145) - lu(k,1174) = lu(k,1174) - lu(k,861) * lu(k,1145) - lu(k,1189) = lu(k,1189) - lu(k,834) * lu(k,1188) - lu(k,1190) = - lu(k,835) * lu(k,1188) - lu(k,1191) = lu(k,1191) - lu(k,836) * lu(k,1188) - lu(k,1192) = lu(k,1192) - lu(k,837) * lu(k,1188) - lu(k,1193) = lu(k,1193) - lu(k,838) * lu(k,1188) - lu(k,1194) = lu(k,1194) - lu(k,839) * lu(k,1188) - lu(k,1195) = - lu(k,840) * lu(k,1188) - lu(k,1196) = lu(k,1196) - lu(k,841) * lu(k,1188) - lu(k,1197) = lu(k,1197) - lu(k,842) * lu(k,1188) - lu(k,1198) = lu(k,1198) - lu(k,843) * lu(k,1188) - lu(k,1199) = lu(k,1199) - lu(k,844) * lu(k,1188) - lu(k,1200) = lu(k,1200) - lu(k,845) * lu(k,1188) - lu(k,1201) = lu(k,1201) - lu(k,846) * lu(k,1188) - lu(k,1202) = lu(k,1202) - lu(k,847) * lu(k,1188) - lu(k,1203) = lu(k,1203) - lu(k,848) * lu(k,1188) - lu(k,1204) = lu(k,1204) - lu(k,849) * lu(k,1188) - lu(k,1205) = lu(k,1205) - lu(k,850) * lu(k,1188) - lu(k,1206) = lu(k,1206) - lu(k,851) * lu(k,1188) - lu(k,1207) = lu(k,1207) - lu(k,852) * lu(k,1188) - lu(k,1208) = lu(k,1208) - lu(k,853) * lu(k,1188) - lu(k,1210) = lu(k,1210) - lu(k,854) * lu(k,1188) - lu(k,1211) = lu(k,1211) - lu(k,855) * lu(k,1188) - lu(k,1212) = - lu(k,856) * lu(k,1188) - lu(k,1213) = - lu(k,857) * lu(k,1188) - lu(k,1214) = - lu(k,858) * lu(k,1188) - lu(k,1215) = lu(k,1215) - lu(k,859) * lu(k,1188) - lu(k,1216) = lu(k,1216) - lu(k,860) * lu(k,1188) - lu(k,1217) = lu(k,1217) - lu(k,861) * lu(k,1188) - lu(k,1232) = lu(k,1232) - lu(k,834) * lu(k,1231) - lu(k,1233) = - lu(k,835) * lu(k,1231) - lu(k,1234) = lu(k,1234) - lu(k,836) * lu(k,1231) - lu(k,1235) = lu(k,1235) - lu(k,837) * lu(k,1231) - lu(k,1236) = lu(k,1236) - lu(k,838) * lu(k,1231) - lu(k,1237) = lu(k,1237) - lu(k,839) * lu(k,1231) - lu(k,1238) = - lu(k,840) * lu(k,1231) - lu(k,1239) = lu(k,1239) - lu(k,841) * lu(k,1231) - lu(k,1240) = lu(k,1240) - lu(k,842) * lu(k,1231) - lu(k,1241) = lu(k,1241) - lu(k,843) * lu(k,1231) - lu(k,1242) = lu(k,1242) - lu(k,844) * lu(k,1231) - lu(k,1243) = lu(k,1243) - lu(k,845) * lu(k,1231) - lu(k,1244) = lu(k,1244) - lu(k,846) * lu(k,1231) - lu(k,1245) = lu(k,1245) - lu(k,847) * lu(k,1231) - lu(k,1246) = lu(k,1246) - lu(k,848) * lu(k,1231) - lu(k,1247) = lu(k,1247) - lu(k,849) * lu(k,1231) - lu(k,1248) = lu(k,1248) - lu(k,850) * lu(k,1231) - lu(k,1249) = lu(k,1249) - lu(k,851) * lu(k,1231) - lu(k,1250) = lu(k,1250) - lu(k,852) * lu(k,1231) - lu(k,1251) = lu(k,1251) - lu(k,853) * lu(k,1231) - lu(k,1253) = lu(k,1253) - lu(k,854) * lu(k,1231) - lu(k,1254) = lu(k,1254) - lu(k,855) * lu(k,1231) - lu(k,1255) = - lu(k,856) * lu(k,1231) - lu(k,1256) = - lu(k,857) * lu(k,1231) - lu(k,1257) = - lu(k,858) * lu(k,1231) - lu(k,1258) = lu(k,1258) - lu(k,859) * lu(k,1231) - lu(k,1259) = lu(k,1259) - lu(k,860) * lu(k,1231) - lu(k,1260) = lu(k,1260) - lu(k,861) * lu(k,1231) - lu(k,1274) = lu(k,1274) - lu(k,834) * lu(k,1273) - lu(k,1275) = lu(k,1275) - lu(k,835) * lu(k,1273) - lu(k,1276) = lu(k,1276) - lu(k,836) * lu(k,1273) - lu(k,1277) = lu(k,1277) - lu(k,837) * lu(k,1273) - lu(k,1278) = lu(k,1278) - lu(k,838) * lu(k,1273) - lu(k,1279) = lu(k,1279) - lu(k,839) * lu(k,1273) - lu(k,1280) = lu(k,1280) - lu(k,840) * lu(k,1273) - lu(k,1281) = lu(k,1281) - lu(k,841) * lu(k,1273) - lu(k,1282) = lu(k,1282) - lu(k,842) * lu(k,1273) - lu(k,1283) = lu(k,1283) - lu(k,843) * lu(k,1273) - lu(k,1284) = lu(k,1284) - lu(k,844) * lu(k,1273) - lu(k,1285) = lu(k,1285) - lu(k,845) * lu(k,1273) - lu(k,1286) = lu(k,1286) - lu(k,846) * lu(k,1273) - lu(k,1287) = lu(k,1287) - lu(k,847) * lu(k,1273) - lu(k,1288) = lu(k,1288) - lu(k,848) * lu(k,1273) - lu(k,1289) = lu(k,1289) - lu(k,849) * lu(k,1273) - lu(k,1290) = lu(k,1290) - lu(k,850) * lu(k,1273) - lu(k,1291) = lu(k,1291) - lu(k,851) * lu(k,1273) - lu(k,1292) = lu(k,1292) - lu(k,852) * lu(k,1273) - lu(k,1293) = lu(k,1293) - lu(k,853) * lu(k,1273) - lu(k,1295) = lu(k,1295) - lu(k,854) * lu(k,1273) - lu(k,1296) = lu(k,1296) - lu(k,855) * lu(k,1273) - lu(k,1297) = lu(k,1297) - lu(k,856) * lu(k,1273) - lu(k,1298) = lu(k,1298) - lu(k,857) * lu(k,1273) - lu(k,1299) = lu(k,1299) - lu(k,858) * lu(k,1273) - lu(k,1300) = lu(k,1300) - lu(k,859) * lu(k,1273) - lu(k,1301) = lu(k,1301) - lu(k,860) * lu(k,1273) - lu(k,1302) = lu(k,1302) - lu(k,861) * lu(k,1273) - lu(k,1316) = lu(k,1316) - lu(k,834) * lu(k,1315) - lu(k,1317) = lu(k,1317) - lu(k,835) * lu(k,1315) - lu(k,1318) = lu(k,1318) - lu(k,836) * lu(k,1315) - lu(k,1319) = lu(k,1319) - lu(k,837) * lu(k,1315) - lu(k,1320) = lu(k,1320) - lu(k,838) * lu(k,1315) - lu(k,1321) = lu(k,1321) - lu(k,839) * lu(k,1315) - lu(k,1322) = - lu(k,840) * lu(k,1315) - lu(k,1323) = lu(k,1323) - lu(k,841) * lu(k,1315) - lu(k,1324) = lu(k,1324) - lu(k,842) * lu(k,1315) - lu(k,1325) = lu(k,1325) - lu(k,843) * lu(k,1315) - lu(k,1326) = lu(k,1326) - lu(k,844) * lu(k,1315) - lu(k,1327) = lu(k,1327) - lu(k,845) * lu(k,1315) - lu(k,1328) = lu(k,1328) - lu(k,846) * lu(k,1315) - lu(k,1329) = lu(k,1329) - lu(k,847) * lu(k,1315) - lu(k,1330) = lu(k,1330) - lu(k,848) * lu(k,1315) - lu(k,1331) = lu(k,1331) - lu(k,849) * lu(k,1315) - lu(k,1332) = lu(k,1332) - lu(k,850) * lu(k,1315) - lu(k,1333) = lu(k,1333) - lu(k,851) * lu(k,1315) - lu(k,1334) = lu(k,1334) - lu(k,852) * lu(k,1315) - lu(k,1335) = lu(k,1335) - lu(k,853) * lu(k,1315) - lu(k,1337) = lu(k,1337) - lu(k,854) * lu(k,1315) - lu(k,1338) = lu(k,1338) - lu(k,855) * lu(k,1315) - lu(k,1339) = - lu(k,856) * lu(k,1315) - lu(k,1340) = - lu(k,857) * lu(k,1315) - lu(k,1341) = - lu(k,858) * lu(k,1315) - lu(k,1342) = lu(k,1342) - lu(k,859) * lu(k,1315) - lu(k,1343) = lu(k,1343) - lu(k,860) * lu(k,1315) - lu(k,1344) = lu(k,1344) - lu(k,861) * lu(k,1315) - lu(k,1376) = lu(k,1376) - lu(k,834) * lu(k,1375) - lu(k,1377) = lu(k,1377) - lu(k,835) * lu(k,1375) - lu(k,1378) = lu(k,1378) - lu(k,836) * lu(k,1375) - lu(k,1379) = lu(k,1379) - lu(k,837) * lu(k,1375) - lu(k,1380) = lu(k,1380) - lu(k,838) * lu(k,1375) - lu(k,1381) = lu(k,1381) - lu(k,839) * lu(k,1375) - lu(k,1382) = lu(k,1382) - lu(k,840) * lu(k,1375) - lu(k,1383) = lu(k,1383) - lu(k,841) * lu(k,1375) - lu(k,1384) = lu(k,1384) - lu(k,842) * lu(k,1375) - lu(k,1385) = lu(k,1385) - lu(k,843) * lu(k,1375) - lu(k,1386) = lu(k,1386) - lu(k,844) * lu(k,1375) - lu(k,1387) = lu(k,1387) - lu(k,845) * lu(k,1375) - lu(k,1388) = lu(k,1388) - lu(k,846) * lu(k,1375) - lu(k,1389) = lu(k,1389) - lu(k,847) * lu(k,1375) - lu(k,1390) = lu(k,1390) - lu(k,848) * lu(k,1375) - lu(k,1391) = lu(k,1391) - lu(k,849) * lu(k,1375) - lu(k,1392) = lu(k,1392) - lu(k,850) * lu(k,1375) - lu(k,1393) = lu(k,1393) - lu(k,851) * lu(k,1375) - lu(k,1394) = lu(k,1394) - lu(k,852) * lu(k,1375) - lu(k,1395) = lu(k,1395) - lu(k,853) * lu(k,1375) - lu(k,1397) = lu(k,1397) - lu(k,854) * lu(k,1375) - lu(k,1398) = lu(k,1398) - lu(k,855) * lu(k,1375) - lu(k,1399) = lu(k,1399) - lu(k,856) * lu(k,1375) - lu(k,1400) = lu(k,1400) - lu(k,857) * lu(k,1375) - lu(k,1401) = lu(k,1401) - lu(k,858) * lu(k,1375) - lu(k,1402) = lu(k,1402) - lu(k,859) * lu(k,1375) - lu(k,1403) = lu(k,1403) - lu(k,860) * lu(k,1375) - lu(k,1404) = lu(k,1404) - lu(k,861) * lu(k,1375) - lu(k,1425) = lu(k,1425) - lu(k,834) * lu(k,1424) - lu(k,1426) = lu(k,1426) - lu(k,835) * lu(k,1424) - lu(k,1427) = lu(k,1427) - lu(k,836) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,837) * lu(k,1424) - lu(k,1429) = lu(k,1429) - lu(k,838) * lu(k,1424) - lu(k,1430) = lu(k,1430) - lu(k,839) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,840) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,841) * lu(k,1424) - lu(k,1433) = - lu(k,842) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,843) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,844) * lu(k,1424) - lu(k,1436) = - lu(k,845) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,846) * lu(k,1424) - lu(k,1438) = lu(k,1438) - lu(k,847) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,848) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,849) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,850) * lu(k,1424) - lu(k,1442) = lu(k,1442) - lu(k,851) * lu(k,1424) - lu(k,1443) = - lu(k,852) * lu(k,1424) - lu(k,1444) = - lu(k,853) * lu(k,1424) - lu(k,1446) = lu(k,1446) - lu(k,854) * lu(k,1424) - lu(k,1447) = lu(k,1447) - lu(k,855) * lu(k,1424) - lu(k,1448) = lu(k,1448) - lu(k,856) * lu(k,1424) - lu(k,1449) = lu(k,1449) - lu(k,857) * lu(k,1424) - lu(k,1450) = lu(k,1450) - lu(k,858) * lu(k,1424) - lu(k,1451) = lu(k,1451) - lu(k,859) * lu(k,1424) - lu(k,1452) = lu(k,1452) - lu(k,860) * lu(k,1424) - lu(k,1453) = lu(k,1453) - lu(k,861) * lu(k,1424) - lu(k,1473) = lu(k,1473) - lu(k,834) * lu(k,1472) - lu(k,1474) = lu(k,1474) - lu(k,835) * lu(k,1472) - lu(k,1475) = lu(k,1475) - lu(k,836) * lu(k,1472) - lu(k,1476) = lu(k,1476) - lu(k,837) * lu(k,1472) - lu(k,1477) = lu(k,1477) - lu(k,838) * lu(k,1472) - lu(k,1478) = lu(k,1478) - lu(k,839) * lu(k,1472) - lu(k,1479) = lu(k,1479) - lu(k,840) * lu(k,1472) - lu(k,1480) = lu(k,1480) - lu(k,841) * lu(k,1472) - lu(k,1481) = lu(k,1481) - lu(k,842) * lu(k,1472) - lu(k,1482) = lu(k,1482) - lu(k,843) * lu(k,1472) - lu(k,1483) = lu(k,1483) - lu(k,844) * lu(k,1472) - lu(k,1484) = lu(k,1484) - lu(k,845) * lu(k,1472) - lu(k,1485) = lu(k,1485) - lu(k,846) * lu(k,1472) - lu(k,1486) = lu(k,1486) - lu(k,847) * lu(k,1472) - lu(k,1487) = lu(k,1487) - lu(k,848) * lu(k,1472) - lu(k,1488) = lu(k,1488) - lu(k,849) * lu(k,1472) - lu(k,1489) = lu(k,1489) - lu(k,850) * lu(k,1472) - lu(k,1490) = lu(k,1490) - lu(k,851) * lu(k,1472) - lu(k,1491) = lu(k,1491) - lu(k,852) * lu(k,1472) - lu(k,1492) = lu(k,1492) - lu(k,853) * lu(k,1472) - lu(k,1494) = lu(k,1494) - lu(k,854) * lu(k,1472) - lu(k,1495) = lu(k,1495) - lu(k,855) * lu(k,1472) - lu(k,1496) = lu(k,1496) - lu(k,856) * lu(k,1472) - lu(k,1497) = lu(k,1497) - lu(k,857) * lu(k,1472) - lu(k,1498) = lu(k,1498) - lu(k,858) * lu(k,1472) - lu(k,1499) = lu(k,1499) - lu(k,859) * lu(k,1472) - lu(k,1500) = lu(k,1500) - lu(k,860) * lu(k,1472) - lu(k,1501) = lu(k,1501) - lu(k,861) * lu(k,1472) - lu(k,1550) = lu(k,1550) - lu(k,834) * lu(k,1549) - lu(k,1551) = lu(k,1551) - lu(k,835) * lu(k,1549) - lu(k,1552) = lu(k,1552) - lu(k,836) * lu(k,1549) - lu(k,1553) = lu(k,1553) - lu(k,837) * lu(k,1549) - lu(k,1554) = lu(k,1554) - lu(k,838) * lu(k,1549) - lu(k,1555) = lu(k,1555) - lu(k,839) * lu(k,1549) - lu(k,1556) = lu(k,1556) - lu(k,840) * lu(k,1549) - lu(k,1557) = lu(k,1557) - lu(k,841) * lu(k,1549) - lu(k,1558) = lu(k,1558) - lu(k,842) * lu(k,1549) - lu(k,1559) = lu(k,1559) - lu(k,843) * lu(k,1549) - lu(k,1560) = lu(k,1560) - lu(k,844) * lu(k,1549) - lu(k,1561) = lu(k,1561) - lu(k,845) * lu(k,1549) - lu(k,1562) = lu(k,1562) - lu(k,846) * lu(k,1549) - lu(k,1563) = lu(k,1563) - lu(k,847) * lu(k,1549) - lu(k,1564) = lu(k,1564) - lu(k,848) * lu(k,1549) - lu(k,1565) = lu(k,1565) - lu(k,849) * lu(k,1549) - lu(k,1566) = lu(k,1566) - lu(k,850) * lu(k,1549) - lu(k,1567) = lu(k,1567) - lu(k,851) * lu(k,1549) - lu(k,1568) = lu(k,1568) - lu(k,852) * lu(k,1549) - lu(k,1569) = lu(k,1569) - lu(k,853) * lu(k,1549) - lu(k,1571) = lu(k,1571) - lu(k,854) * lu(k,1549) - lu(k,1572) = lu(k,1572) - lu(k,855) * lu(k,1549) - lu(k,1573) = lu(k,1573) - lu(k,856) * lu(k,1549) - lu(k,1574) = lu(k,1574) - lu(k,857) * lu(k,1549) - lu(k,1575) = lu(k,1575) - lu(k,858) * lu(k,1549) - lu(k,1576) = lu(k,1576) - lu(k,859) * lu(k,1549) - lu(k,1577) = lu(k,1577) - lu(k,860) * lu(k,1549) - lu(k,1578) = lu(k,1578) - lu(k,861) * lu(k,1549) - lu(k,1595) = lu(k,1595) - lu(k,834) * lu(k,1594) - lu(k,1596) = lu(k,1596) - lu(k,835) * lu(k,1594) - lu(k,1597) = lu(k,1597) - lu(k,836) * lu(k,1594) - lu(k,1598) = lu(k,1598) - lu(k,837) * lu(k,1594) - lu(k,1599) = lu(k,1599) - lu(k,838) * lu(k,1594) - lu(k,1600) = lu(k,1600) - lu(k,839) * lu(k,1594) - lu(k,1601) = lu(k,1601) - lu(k,840) * lu(k,1594) - lu(k,1602) = lu(k,1602) - lu(k,841) * lu(k,1594) - lu(k,1603) = lu(k,1603) - lu(k,842) * lu(k,1594) - lu(k,1604) = lu(k,1604) - lu(k,843) * lu(k,1594) - lu(k,1605) = lu(k,1605) - lu(k,844) * lu(k,1594) - lu(k,1606) = lu(k,1606) - lu(k,845) * lu(k,1594) - lu(k,1607) = lu(k,1607) - lu(k,846) * lu(k,1594) - lu(k,1608) = lu(k,1608) - lu(k,847) * lu(k,1594) - lu(k,1609) = lu(k,1609) - lu(k,848) * lu(k,1594) - lu(k,1610) = lu(k,1610) - lu(k,849) * lu(k,1594) - lu(k,1611) = lu(k,1611) - lu(k,850) * lu(k,1594) - lu(k,1612) = lu(k,1612) - lu(k,851) * lu(k,1594) - lu(k,1613) = lu(k,1613) - lu(k,852) * lu(k,1594) - lu(k,1614) = lu(k,1614) - lu(k,853) * lu(k,1594) - lu(k,1616) = lu(k,1616) - lu(k,854) * lu(k,1594) - lu(k,1617) = lu(k,1617) - lu(k,855) * lu(k,1594) - lu(k,1618) = lu(k,1618) - lu(k,856) * lu(k,1594) - lu(k,1619) = lu(k,1619) - lu(k,857) * lu(k,1594) - lu(k,1620) = lu(k,1620) - lu(k,858) * lu(k,1594) - lu(k,1621) = lu(k,1621) - lu(k,859) * lu(k,1594) - lu(k,1622) = lu(k,1622) - lu(k,860) * lu(k,1594) - lu(k,1623) = lu(k,1623) - lu(k,861) * lu(k,1594) - lu(k,1638) = lu(k,1638) - lu(k,834) * lu(k,1637) - lu(k,1639) = - lu(k,835) * lu(k,1637) - lu(k,1640) = lu(k,1640) - lu(k,836) * lu(k,1637) - lu(k,1641) = lu(k,1641) - lu(k,837) * lu(k,1637) - lu(k,1642) = lu(k,1642) - lu(k,838) * lu(k,1637) - lu(k,1643) = lu(k,1643) - lu(k,839) * lu(k,1637) - lu(k,1644) = - lu(k,840) * lu(k,1637) - lu(k,1645) = lu(k,1645) - lu(k,841) * lu(k,1637) - lu(k,1646) = lu(k,1646) - lu(k,842) * lu(k,1637) - lu(k,1647) = lu(k,1647) - lu(k,843) * lu(k,1637) - lu(k,1648) = lu(k,1648) - lu(k,844) * lu(k,1637) - lu(k,1649) = lu(k,1649) - lu(k,845) * lu(k,1637) - lu(k,1650) = lu(k,1650) - lu(k,846) * lu(k,1637) - lu(k,1651) = lu(k,1651) - lu(k,847) * lu(k,1637) - lu(k,1652) = lu(k,1652) - lu(k,848) * lu(k,1637) - lu(k,1653) = lu(k,1653) - lu(k,849) * lu(k,1637) - lu(k,1654) = lu(k,1654) - lu(k,850) * lu(k,1637) - lu(k,1655) = lu(k,1655) - lu(k,851) * lu(k,1637) - lu(k,1656) = lu(k,1656) - lu(k,852) * lu(k,1637) - lu(k,1657) = lu(k,1657) - lu(k,853) * lu(k,1637) - lu(k,1659) = lu(k,1659) - lu(k,854) * lu(k,1637) - lu(k,1660) = lu(k,1660) - lu(k,855) * lu(k,1637) - lu(k,1661) = - lu(k,856) * lu(k,1637) - lu(k,1662) = - lu(k,857) * lu(k,1637) - lu(k,1663) = - lu(k,858) * lu(k,1637) - lu(k,1664) = lu(k,1664) - lu(k,859) * lu(k,1637) - lu(k,1665) = lu(k,1665) - lu(k,860) * lu(k,1637) - lu(k,1666) = lu(k,1666) - lu(k,861) * lu(k,1637) - lu(k,1681) = lu(k,1681) - lu(k,834) * lu(k,1680) - lu(k,1682) = - lu(k,835) * lu(k,1680) - lu(k,1683) = lu(k,1683) - lu(k,836) * lu(k,1680) - lu(k,1684) = lu(k,1684) - lu(k,837) * lu(k,1680) - lu(k,1685) = lu(k,1685) - lu(k,838) * lu(k,1680) - lu(k,1686) = lu(k,1686) - lu(k,839) * lu(k,1680) - lu(k,1687) = - lu(k,840) * lu(k,1680) - lu(k,1688) = lu(k,1688) - lu(k,841) * lu(k,1680) - lu(k,1689) = lu(k,1689) - lu(k,842) * lu(k,1680) - lu(k,1690) = lu(k,1690) - lu(k,843) * lu(k,1680) - lu(k,1691) = lu(k,1691) - lu(k,844) * lu(k,1680) - lu(k,1692) = lu(k,1692) - lu(k,845) * lu(k,1680) - lu(k,1693) = lu(k,1693) - lu(k,846) * lu(k,1680) - lu(k,1694) = lu(k,1694) - lu(k,847) * lu(k,1680) - lu(k,1695) = lu(k,1695) - lu(k,848) * lu(k,1680) - lu(k,1696) = lu(k,1696) - lu(k,849) * lu(k,1680) - lu(k,1697) = lu(k,1697) - lu(k,850) * lu(k,1680) - lu(k,1698) = lu(k,1698) - lu(k,851) * lu(k,1680) - lu(k,1699) = lu(k,1699) - lu(k,852) * lu(k,1680) - lu(k,1700) = lu(k,1700) - lu(k,853) * lu(k,1680) - lu(k,1702) = lu(k,1702) - lu(k,854) * lu(k,1680) - lu(k,1703) = lu(k,1703) - lu(k,855) * lu(k,1680) - lu(k,1704) = - lu(k,856) * lu(k,1680) - lu(k,1705) = - lu(k,857) * lu(k,1680) - lu(k,1706) = - lu(k,858) * lu(k,1680) - lu(k,1707) = lu(k,1707) - lu(k,859) * lu(k,1680) - lu(k,1708) = lu(k,1708) - lu(k,860) * lu(k,1680) - lu(k,1709) = lu(k,1709) - lu(k,861) * lu(k,1680) - lu(k,1757) = lu(k,1757) - lu(k,834) * lu(k,1756) - lu(k,1758) = lu(k,1758) - lu(k,835) * lu(k,1756) - lu(k,1759) = lu(k,1759) - lu(k,836) * lu(k,1756) - lu(k,1760) = lu(k,1760) - lu(k,837) * lu(k,1756) - lu(k,1761) = lu(k,1761) - lu(k,838) * lu(k,1756) - lu(k,1762) = lu(k,1762) - lu(k,839) * lu(k,1756) - lu(k,1763) = lu(k,1763) - lu(k,840) * lu(k,1756) - lu(k,1764) = lu(k,1764) - lu(k,841) * lu(k,1756) - lu(k,1765) = lu(k,1765) - lu(k,842) * lu(k,1756) - lu(k,1766) = lu(k,1766) - lu(k,843) * lu(k,1756) - lu(k,1767) = lu(k,1767) - lu(k,844) * lu(k,1756) - lu(k,1768) = lu(k,1768) - lu(k,845) * lu(k,1756) - lu(k,1769) = lu(k,1769) - lu(k,846) * lu(k,1756) - lu(k,1770) = lu(k,1770) - lu(k,847) * lu(k,1756) - lu(k,1771) = lu(k,1771) - lu(k,848) * lu(k,1756) - lu(k,1772) = lu(k,1772) - lu(k,849) * lu(k,1756) - lu(k,1773) = lu(k,1773) - lu(k,850) * lu(k,1756) - lu(k,1774) = lu(k,1774) - lu(k,851) * lu(k,1756) - lu(k,1775) = lu(k,1775) - lu(k,852) * lu(k,1756) - lu(k,1776) = lu(k,1776) - lu(k,853) * lu(k,1756) - lu(k,1778) = lu(k,1778) - lu(k,854) * lu(k,1756) - lu(k,1779) = lu(k,1779) - lu(k,855) * lu(k,1756) - lu(k,1780) = lu(k,1780) - lu(k,856) * lu(k,1756) - lu(k,1781) = lu(k,1781) - lu(k,857) * lu(k,1756) - lu(k,1782) = lu(k,1782) - lu(k,858) * lu(k,1756) - lu(k,1783) = lu(k,1783) - lu(k,859) * lu(k,1756) - lu(k,1784) = lu(k,1784) - lu(k,860) * lu(k,1756) - lu(k,1785) = lu(k,1785) - lu(k,861) * lu(k,1756) - lu(k,1915) = lu(k,1915) - lu(k,834) * lu(k,1914) - lu(k,1916) = lu(k,1916) - lu(k,835) * lu(k,1914) - lu(k,1917) = lu(k,1917) - lu(k,836) * lu(k,1914) - lu(k,1918) = lu(k,1918) - lu(k,837) * lu(k,1914) - lu(k,1919) = lu(k,1919) - lu(k,838) * lu(k,1914) - lu(k,1920) = lu(k,1920) - lu(k,839) * lu(k,1914) - lu(k,1921) = lu(k,1921) - lu(k,840) * lu(k,1914) - lu(k,1922) = - lu(k,841) * lu(k,1914) - lu(k,1923) = - lu(k,842) * lu(k,1914) - lu(k,1924) = lu(k,1924) - lu(k,843) * lu(k,1914) - lu(k,1925) = lu(k,1925) - lu(k,844) * lu(k,1914) - lu(k,1926) = - lu(k,845) * lu(k,1914) - lu(k,1927) = lu(k,1927) - lu(k,846) * lu(k,1914) - lu(k,1928) = lu(k,1928) - lu(k,847) * lu(k,1914) - lu(k,1929) = lu(k,1929) - lu(k,848) * lu(k,1914) - lu(k,1930) = lu(k,1930) - lu(k,849) * lu(k,1914) - lu(k,1931) = lu(k,1931) - lu(k,850) * lu(k,1914) - lu(k,1932) = lu(k,1932) - lu(k,851) * lu(k,1914) - lu(k,1933) = - lu(k,852) * lu(k,1914) - lu(k,1934) = - lu(k,853) * lu(k,1914) - lu(k,1936) = lu(k,1936) - lu(k,854) * lu(k,1914) - lu(k,1937) = lu(k,1937) - lu(k,855) * lu(k,1914) - lu(k,1938) = lu(k,1938) - lu(k,856) * lu(k,1914) - lu(k,1939) = lu(k,1939) - lu(k,857) * lu(k,1914) - lu(k,1940) = lu(k,1940) - lu(k,858) * lu(k,1914) - lu(k,1941) = lu(k,1941) - lu(k,859) * lu(k,1914) - lu(k,1942) = lu(k,1942) - lu(k,860) * lu(k,1914) - lu(k,1943) = lu(k,1943) - lu(k,861) * lu(k,1914) - lu(k,2002) = lu(k,2002) - lu(k,834) * lu(k,2001) - lu(k,2003) = lu(k,2003) - lu(k,835) * lu(k,2001) - lu(k,2004) = lu(k,2004) - lu(k,836) * lu(k,2001) - lu(k,2005) = lu(k,2005) - lu(k,837) * lu(k,2001) - lu(k,2006) = - lu(k,838) * lu(k,2001) - lu(k,2007) = lu(k,2007) - lu(k,839) * lu(k,2001) - lu(k,2008) = lu(k,2008) - lu(k,840) * lu(k,2001) - lu(k,2009) = lu(k,2009) - lu(k,841) * lu(k,2001) - lu(k,2010) = lu(k,2010) - lu(k,842) * lu(k,2001) - lu(k,2011) = lu(k,2011) - lu(k,843) * lu(k,2001) - lu(k,2012) = lu(k,2012) - lu(k,844) * lu(k,2001) - lu(k,2013) = lu(k,2013) - lu(k,845) * lu(k,2001) - lu(k,2014) = lu(k,2014) - lu(k,846) * lu(k,2001) - lu(k,2015) = lu(k,2015) - lu(k,847) * lu(k,2001) - lu(k,2016) = lu(k,2016) - lu(k,848) * lu(k,2001) - lu(k,2017) = lu(k,2017) - lu(k,849) * lu(k,2001) - lu(k,2018) = lu(k,2018) - lu(k,850) * lu(k,2001) - lu(k,2019) = lu(k,2019) - lu(k,851) * lu(k,2001) - lu(k,2020) = lu(k,2020) - lu(k,852) * lu(k,2001) - lu(k,2021) = lu(k,2021) - lu(k,853) * lu(k,2001) - lu(k,2023) = lu(k,2023) - lu(k,854) * lu(k,2001) - lu(k,2024) = lu(k,2024) - lu(k,855) * lu(k,2001) - lu(k,2025) = lu(k,2025) - lu(k,856) * lu(k,2001) - lu(k,2026) = lu(k,2026) - lu(k,857) * lu(k,2001) - lu(k,2027) = lu(k,2027) - lu(k,858) * lu(k,2001) - lu(k,2028) = lu(k,2028) - lu(k,859) * lu(k,2001) - lu(k,2029) = lu(k,2029) - lu(k,860) * lu(k,2001) - lu(k,2030) = lu(k,2030) - lu(k,861) * lu(k,2001) + lu(k,740) = 1._r8 / lu(k,740) + lu(k,741) = lu(k,741) * lu(k,740) + lu(k,742) = lu(k,742) * lu(k,740) + lu(k,743) = lu(k,743) * lu(k,740) + lu(k,744) = lu(k,744) * lu(k,740) + lu(k,745) = lu(k,745) * lu(k,740) + lu(k,746) = lu(k,746) * lu(k,740) + lu(k,747) = lu(k,747) * lu(k,740) + lu(k,748) = lu(k,748) * lu(k,740) + lu(k,749) = lu(k,749) * lu(k,740) + lu(k,750) = lu(k,750) * lu(k,740) + lu(k,751) = lu(k,751) * lu(k,740) + lu(k,752) = lu(k,752) * lu(k,740) + lu(k,753) = lu(k,753) * lu(k,740) + lu(k,754) = lu(k,754) * lu(k,740) + lu(k,755) = lu(k,755) * lu(k,740) + lu(k,756) = lu(k,756) * lu(k,740) + lu(k,757) = lu(k,757) * lu(k,740) + lu(k,758) = lu(k,758) * lu(k,740) + lu(k,759) = lu(k,759) * lu(k,740) + lu(k,789) = lu(k,789) - lu(k,741) * lu(k,788) + lu(k,790) = lu(k,790) - lu(k,742) * lu(k,788) + lu(k,791) = lu(k,791) - lu(k,743) * lu(k,788) + lu(k,792) = lu(k,792) - lu(k,744) * lu(k,788) + lu(k,793) = lu(k,793) - lu(k,745) * lu(k,788) + lu(k,794) = lu(k,794) - lu(k,746) * lu(k,788) + lu(k,795) = lu(k,795) - lu(k,747) * lu(k,788) + lu(k,796) = lu(k,796) - lu(k,748) * lu(k,788) + lu(k,797) = lu(k,797) - lu(k,749) * lu(k,788) + lu(k,801) = lu(k,801) - lu(k,750) * lu(k,788) + lu(k,802) = lu(k,802) - lu(k,751) * lu(k,788) + lu(k,803) = lu(k,803) - lu(k,752) * lu(k,788) + lu(k,804) = lu(k,804) - lu(k,753) * lu(k,788) + lu(k,805) = lu(k,805) - lu(k,754) * lu(k,788) + lu(k,806) = lu(k,806) - lu(k,755) * lu(k,788) + lu(k,807) = lu(k,807) - lu(k,756) * lu(k,788) + lu(k,808) = lu(k,808) - lu(k,757) * lu(k,788) + lu(k,809) = lu(k,809) - lu(k,758) * lu(k,788) + lu(k,810) = lu(k,810) - lu(k,759) * lu(k,788) + lu(k,901) = lu(k,901) - lu(k,741) * lu(k,900) + lu(k,902) = lu(k,902) - lu(k,742) * lu(k,900) + lu(k,903) = lu(k,903) - lu(k,743) * lu(k,900) + lu(k,904) = lu(k,904) - lu(k,744) * lu(k,900) + lu(k,905) = lu(k,905) - lu(k,745) * lu(k,900) + lu(k,906) = lu(k,906) - lu(k,746) * lu(k,900) + lu(k,908) = lu(k,908) - lu(k,747) * lu(k,900) + lu(k,909) = lu(k,909) - lu(k,748) * lu(k,900) + lu(k,910) = lu(k,910) - lu(k,749) * lu(k,900) + lu(k,914) = lu(k,914) - lu(k,750) * lu(k,900) + lu(k,915) = lu(k,915) - lu(k,751) * lu(k,900) + lu(k,916) = lu(k,916) - lu(k,752) * lu(k,900) + lu(k,917) = lu(k,917) - lu(k,753) * lu(k,900) + lu(k,918) = lu(k,918) - lu(k,754) * lu(k,900) + lu(k,919) = lu(k,919) - lu(k,755) * lu(k,900) + lu(k,920) = lu(k,920) - lu(k,756) * lu(k,900) + lu(k,921) = lu(k,921) - lu(k,757) * lu(k,900) + lu(k,922) = lu(k,922) - lu(k,758) * lu(k,900) + lu(k,923) = lu(k,923) - lu(k,759) * lu(k,900) + lu(k,984) = lu(k,984) - lu(k,741) * lu(k,983) + lu(k,985) = lu(k,985) - lu(k,742) * lu(k,983) + lu(k,986) = lu(k,986) - lu(k,743) * lu(k,983) + lu(k,987) = lu(k,987) - lu(k,744) * lu(k,983) + lu(k,988) = lu(k,988) - lu(k,745) * lu(k,983) + lu(k,990) = lu(k,990) - lu(k,746) * lu(k,983) + lu(k,992) = lu(k,992) - lu(k,747) * lu(k,983) + lu(k,993) = lu(k,993) - lu(k,748) * lu(k,983) + lu(k,994) = lu(k,994) - lu(k,749) * lu(k,983) + lu(k,998) = lu(k,998) - lu(k,750) * lu(k,983) + lu(k,999) = lu(k,999) - lu(k,751) * lu(k,983) + lu(k,1000) = lu(k,1000) - lu(k,752) * lu(k,983) + lu(k,1001) = lu(k,1001) - lu(k,753) * lu(k,983) + lu(k,1002) = lu(k,1002) - lu(k,754) * lu(k,983) + lu(k,1003) = lu(k,1003) - lu(k,755) * lu(k,983) + lu(k,1004) = lu(k,1004) - lu(k,756) * lu(k,983) + lu(k,1005) = lu(k,1005) - lu(k,757) * lu(k,983) + lu(k,1006) = lu(k,1006) - lu(k,758) * lu(k,983) + lu(k,1007) = lu(k,1007) - lu(k,759) * lu(k,983) + lu(k,1097) = lu(k,1097) - lu(k,741) * lu(k,1096) + lu(k,1101) = lu(k,1101) - lu(k,742) * lu(k,1096) + lu(k,1103) = lu(k,1103) - lu(k,743) * lu(k,1096) + lu(k,1105) = - lu(k,744) * lu(k,1096) + lu(k,1106) = lu(k,1106) - lu(k,745) * lu(k,1096) + lu(k,1109) = lu(k,1109) - lu(k,746) * lu(k,1096) + lu(k,1112) = lu(k,1112) - lu(k,747) * lu(k,1096) + lu(k,1114) = lu(k,1114) - lu(k,748) * lu(k,1096) + lu(k,1115) = lu(k,1115) - lu(k,749) * lu(k,1096) + lu(k,1119) = lu(k,1119) - lu(k,750) * lu(k,1096) + lu(k,1120) = lu(k,1120) - lu(k,751) * lu(k,1096) + lu(k,1121) = lu(k,1121) - lu(k,752) * lu(k,1096) + lu(k,1122) = lu(k,1122) - lu(k,753) * lu(k,1096) + lu(k,1123) = lu(k,1123) - lu(k,754) * lu(k,1096) + lu(k,1124) = lu(k,1124) - lu(k,755) * lu(k,1096) + lu(k,1125) = lu(k,1125) - lu(k,756) * lu(k,1096) + lu(k,1126) = lu(k,1126) - lu(k,757) * lu(k,1096) + lu(k,1127) = lu(k,1127) - lu(k,758) * lu(k,1096) + lu(k,1128) = lu(k,1128) - lu(k,759) * lu(k,1096) + lu(k,1229) = lu(k,1229) - lu(k,741) * lu(k,1228) + lu(k,1232) = lu(k,1232) - lu(k,742) * lu(k,1228) + lu(k,1234) = lu(k,1234) - lu(k,743) * lu(k,1228) + lu(k,1236) = lu(k,1236) - lu(k,744) * lu(k,1228) + lu(k,1237) = lu(k,1237) - lu(k,745) * lu(k,1228) + lu(k,1240) = lu(k,1240) - lu(k,746) * lu(k,1228) + lu(k,1243) = lu(k,1243) - lu(k,747) * lu(k,1228) + lu(k,1245) = lu(k,1245) - lu(k,748) * lu(k,1228) + lu(k,1246) = lu(k,1246) - lu(k,749) * lu(k,1228) + lu(k,1250) = lu(k,1250) - lu(k,750) * lu(k,1228) + lu(k,1251) = lu(k,1251) - lu(k,751) * lu(k,1228) + lu(k,1252) = lu(k,1252) - lu(k,752) * lu(k,1228) + lu(k,1253) = lu(k,1253) - lu(k,753) * lu(k,1228) + lu(k,1254) = lu(k,1254) - lu(k,754) * lu(k,1228) + lu(k,1255) = lu(k,1255) - lu(k,755) * lu(k,1228) + lu(k,1256) = lu(k,1256) - lu(k,756) * lu(k,1228) + lu(k,1257) = lu(k,1257) - lu(k,757) * lu(k,1228) + lu(k,1258) = lu(k,1258) - lu(k,758) * lu(k,1228) + lu(k,1259) = lu(k,1259) - lu(k,759) * lu(k,1228) + lu(k,1373) = lu(k,1373) - lu(k,741) * lu(k,1372) + lu(k,1377) = lu(k,1377) - lu(k,742) * lu(k,1372) + lu(k,1379) = lu(k,1379) - lu(k,743) * lu(k,1372) + lu(k,1381) = lu(k,1381) - lu(k,744) * lu(k,1372) + lu(k,1382) = lu(k,1382) - lu(k,745) * lu(k,1372) + lu(k,1385) = lu(k,1385) - lu(k,746) * lu(k,1372) + lu(k,1388) = lu(k,1388) - lu(k,747) * lu(k,1372) + lu(k,1390) = lu(k,1390) - lu(k,748) * lu(k,1372) + lu(k,1391) = lu(k,1391) - lu(k,749) * lu(k,1372) + lu(k,1395) = lu(k,1395) - lu(k,750) * lu(k,1372) + lu(k,1396) = lu(k,1396) - lu(k,751) * lu(k,1372) + lu(k,1397) = lu(k,1397) - lu(k,752) * lu(k,1372) + lu(k,1398) = lu(k,1398) - lu(k,753) * lu(k,1372) + lu(k,1399) = lu(k,1399) - lu(k,754) * lu(k,1372) + lu(k,1400) = lu(k,1400) - lu(k,755) * lu(k,1372) + lu(k,1401) = lu(k,1401) - lu(k,756) * lu(k,1372) + lu(k,1402) = lu(k,1402) - lu(k,757) * lu(k,1372) + lu(k,1403) = lu(k,1403) - lu(k,758) * lu(k,1372) + lu(k,1404) = lu(k,1404) - lu(k,759) * lu(k,1372) + lu(k,1464) = lu(k,1464) - lu(k,741) * lu(k,1463) + lu(k,1468) = lu(k,1468) - lu(k,742) * lu(k,1463) + lu(k,1470) = lu(k,1470) - lu(k,743) * lu(k,1463) + lu(k,1472) = lu(k,1472) - lu(k,744) * lu(k,1463) + lu(k,1473) = lu(k,1473) - lu(k,745) * lu(k,1463) + lu(k,1476) = lu(k,1476) - lu(k,746) * lu(k,1463) + lu(k,1479) = lu(k,1479) - lu(k,747) * lu(k,1463) + lu(k,1481) = lu(k,1481) - lu(k,748) * lu(k,1463) + lu(k,1482) = lu(k,1482) - lu(k,749) * lu(k,1463) + lu(k,1486) = lu(k,1486) - lu(k,750) * lu(k,1463) + lu(k,1487) = lu(k,1487) - lu(k,751) * lu(k,1463) + lu(k,1488) = lu(k,1488) - lu(k,752) * lu(k,1463) + lu(k,1489) = lu(k,1489) - lu(k,753) * lu(k,1463) + lu(k,1490) = lu(k,1490) - lu(k,754) * lu(k,1463) + lu(k,1491) = lu(k,1491) - lu(k,755) * lu(k,1463) + lu(k,1492) = lu(k,1492) - lu(k,756) * lu(k,1463) + lu(k,1493) = lu(k,1493) - lu(k,757) * lu(k,1463) + lu(k,1494) = lu(k,1494) - lu(k,758) * lu(k,1463) + lu(k,1495) = lu(k,1495) - lu(k,759) * lu(k,1463) + lu(k,1506) = lu(k,1506) - lu(k,741) * lu(k,1505) + lu(k,1509) = lu(k,1509) - lu(k,742) * lu(k,1505) + lu(k,1511) = lu(k,1511) - lu(k,743) * lu(k,1505) + lu(k,1513) = lu(k,1513) - lu(k,744) * lu(k,1505) + lu(k,1514) = lu(k,1514) - lu(k,745) * lu(k,1505) + lu(k,1517) = - lu(k,746) * lu(k,1505) + lu(k,1520) = lu(k,1520) - lu(k,747) * lu(k,1505) + lu(k,1522) = lu(k,1522) - lu(k,748) * lu(k,1505) + lu(k,1523) = lu(k,1523) - lu(k,749) * lu(k,1505) + lu(k,1527) = lu(k,1527) - lu(k,750) * lu(k,1505) + lu(k,1528) = lu(k,1528) - lu(k,751) * lu(k,1505) + lu(k,1529) = lu(k,1529) - lu(k,752) * lu(k,1505) + lu(k,1530) = lu(k,1530) - lu(k,753) * lu(k,1505) + lu(k,1531) = lu(k,1531) - lu(k,754) * lu(k,1505) + lu(k,1532) = lu(k,1532) - lu(k,755) * lu(k,1505) + lu(k,1533) = lu(k,1533) - lu(k,756) * lu(k,1505) + lu(k,1534) = lu(k,1534) - lu(k,757) * lu(k,1505) + lu(k,1535) = lu(k,1535) - lu(k,758) * lu(k,1505) + lu(k,1536) = lu(k,1536) - lu(k,759) * lu(k,1505) + lu(k,1714) = lu(k,1714) - lu(k,741) * lu(k,1713) + lu(k,1716) = lu(k,1716) - lu(k,742) * lu(k,1713) + lu(k,1718) = lu(k,1718) - lu(k,743) * lu(k,1713) + lu(k,1719) = - lu(k,744) * lu(k,1713) + lu(k,1720) = lu(k,1720) - lu(k,745) * lu(k,1713) + lu(k,1723) = lu(k,1723) - lu(k,746) * lu(k,1713) + lu(k,1726) = lu(k,1726) - lu(k,747) * lu(k,1713) + lu(k,1728) = lu(k,1728) - lu(k,748) * lu(k,1713) + lu(k,1729) = lu(k,1729) - lu(k,749) * lu(k,1713) + lu(k,1733) = lu(k,1733) - lu(k,750) * lu(k,1713) + lu(k,1734) = lu(k,1734) - lu(k,751) * lu(k,1713) + lu(k,1735) = lu(k,1735) - lu(k,752) * lu(k,1713) + lu(k,1736) = lu(k,1736) - lu(k,753) * lu(k,1713) + lu(k,1737) = - lu(k,754) * lu(k,1713) + lu(k,1738) = - lu(k,755) * lu(k,1713) + lu(k,1739) = lu(k,1739) - lu(k,756) * lu(k,1713) + lu(k,1740) = lu(k,1740) - lu(k,757) * lu(k,1713) + lu(k,1741) = lu(k,1741) - lu(k,758) * lu(k,1713) + lu(k,1742) = lu(k,1742) - lu(k,759) * lu(k,1713) + lu(k,1747) = lu(k,1747) - lu(k,741) * lu(k,1746) + lu(k,1751) = lu(k,1751) - lu(k,742) * lu(k,1746) + lu(k,1753) = lu(k,1753) - lu(k,743) * lu(k,1746) + lu(k,1755) = lu(k,1755) - lu(k,744) * lu(k,1746) + lu(k,1756) = lu(k,1756) - lu(k,745) * lu(k,1746) + lu(k,1759) = lu(k,1759) - lu(k,746) * lu(k,1746) + lu(k,1762) = lu(k,1762) - lu(k,747) * lu(k,1746) + lu(k,1764) = lu(k,1764) - lu(k,748) * lu(k,1746) + lu(k,1765) = lu(k,1765) - lu(k,749) * lu(k,1746) + lu(k,1769) = lu(k,1769) - lu(k,750) * lu(k,1746) + lu(k,1770) = lu(k,1770) - lu(k,751) * lu(k,1746) + lu(k,1771) = lu(k,1771) - lu(k,752) * lu(k,1746) + lu(k,1772) = lu(k,1772) - lu(k,753) * lu(k,1746) + lu(k,1773) = lu(k,1773) - lu(k,754) * lu(k,1746) + lu(k,1774) = lu(k,1774) - lu(k,755) * lu(k,1746) + lu(k,1775) = lu(k,1775) - lu(k,756) * lu(k,1746) + lu(k,1776) = lu(k,1776) - lu(k,757) * lu(k,1746) + lu(k,1777) = lu(k,1777) - lu(k,758) * lu(k,1746) + lu(k,1778) = lu(k,1778) - lu(k,759) * lu(k,1746) + lu(k,1796) = lu(k,1796) - lu(k,741) * lu(k,1795) + lu(k,1799) = lu(k,1799) - lu(k,742) * lu(k,1795) + lu(k,1801) = lu(k,1801) - lu(k,743) * lu(k,1795) + lu(k,1803) = lu(k,1803) - lu(k,744) * lu(k,1795) + lu(k,1804) = lu(k,1804) - lu(k,745) * lu(k,1795) + lu(k,1807) = lu(k,1807) - lu(k,746) * lu(k,1795) + lu(k,1810) = lu(k,1810) - lu(k,747) * lu(k,1795) + lu(k,1812) = lu(k,1812) - lu(k,748) * lu(k,1795) + lu(k,1813) = lu(k,1813) - lu(k,749) * lu(k,1795) + lu(k,1817) = lu(k,1817) - lu(k,750) * lu(k,1795) + lu(k,1818) = lu(k,1818) - lu(k,751) * lu(k,1795) + lu(k,1819) = lu(k,1819) - lu(k,752) * lu(k,1795) + lu(k,1820) = lu(k,1820) - lu(k,753) * lu(k,1795) + lu(k,1821) = lu(k,1821) - lu(k,754) * lu(k,1795) + lu(k,1822) = lu(k,1822) - lu(k,755) * lu(k,1795) + lu(k,1823) = lu(k,1823) - lu(k,756) * lu(k,1795) + lu(k,1824) = lu(k,1824) - lu(k,757) * lu(k,1795) + lu(k,1825) = lu(k,1825) - lu(k,758) * lu(k,1795) + lu(k,1826) = lu(k,1826) - lu(k,759) * lu(k,1795) + lu(k,1865) = lu(k,1865) - lu(k,741) * lu(k,1864) + lu(k,1868) = lu(k,1868) - lu(k,742) * lu(k,1864) + lu(k,1870) = lu(k,1870) - lu(k,743) * lu(k,1864) + lu(k,1872) = lu(k,1872) - lu(k,744) * lu(k,1864) + lu(k,1873) = lu(k,1873) - lu(k,745) * lu(k,1864) + lu(k,1876) = lu(k,1876) - lu(k,746) * lu(k,1864) + lu(k,1879) = lu(k,1879) - lu(k,747) * lu(k,1864) + lu(k,1881) = lu(k,1881) - lu(k,748) * lu(k,1864) + lu(k,1882) = lu(k,1882) - lu(k,749) * lu(k,1864) + lu(k,1886) = lu(k,1886) - lu(k,750) * lu(k,1864) + lu(k,1887) = lu(k,1887) - lu(k,751) * lu(k,1864) + lu(k,1888) = lu(k,1888) - lu(k,752) * lu(k,1864) + lu(k,1889) = lu(k,1889) - lu(k,753) * lu(k,1864) + lu(k,1890) = lu(k,1890) - lu(k,754) * lu(k,1864) + lu(k,1891) = lu(k,1891) - lu(k,755) * lu(k,1864) + lu(k,1892) = lu(k,1892) - lu(k,756) * lu(k,1864) + lu(k,1893) = lu(k,1893) - lu(k,757) * lu(k,1864) + lu(k,1894) = lu(k,1894) - lu(k,758) * lu(k,1864) + lu(k,1895) = lu(k,1895) - lu(k,759) * lu(k,1864) + lu(k,1914) = lu(k,1914) - lu(k,741) * lu(k,1913) + lu(k,1917) = lu(k,1917) - lu(k,742) * lu(k,1913) + lu(k,1919) = lu(k,1919) - lu(k,743) * lu(k,1913) + lu(k,1921) = lu(k,1921) - lu(k,744) * lu(k,1913) + lu(k,1922) = lu(k,1922) - lu(k,745) * lu(k,1913) + lu(k,1925) = lu(k,1925) - lu(k,746) * lu(k,1913) + lu(k,1928) = lu(k,1928) - lu(k,747) * lu(k,1913) + lu(k,1930) = lu(k,1930) - lu(k,748) * lu(k,1913) + lu(k,1931) = lu(k,1931) - lu(k,749) * lu(k,1913) + lu(k,1935) = lu(k,1935) - lu(k,750) * lu(k,1913) + lu(k,1936) = lu(k,1936) - lu(k,751) * lu(k,1913) + lu(k,1937) = lu(k,1937) - lu(k,752) * lu(k,1913) + lu(k,1938) = lu(k,1938) - lu(k,753) * lu(k,1913) + lu(k,1939) = lu(k,1939) - lu(k,754) * lu(k,1913) + lu(k,1940) = lu(k,1940) - lu(k,755) * lu(k,1913) + lu(k,1941) = lu(k,1941) - lu(k,756) * lu(k,1913) + lu(k,1942) = lu(k,1942) - lu(k,757) * lu(k,1913) + lu(k,1943) = lu(k,1943) - lu(k,758) * lu(k,1913) + lu(k,1944) = lu(k,1944) - lu(k,759) * lu(k,1913) + lu(k,1958) = lu(k,1958) - lu(k,741) * lu(k,1957) + lu(k,1961) = lu(k,1961) - lu(k,742) * lu(k,1957) + lu(k,1963) = lu(k,1963) - lu(k,743) * lu(k,1957) + lu(k,1965) = lu(k,1965) - lu(k,744) * lu(k,1957) + lu(k,1966) = lu(k,1966) - lu(k,745) * lu(k,1957) + lu(k,1969) = lu(k,1969) - lu(k,746) * lu(k,1957) + lu(k,1972) = lu(k,1972) - lu(k,747) * lu(k,1957) + lu(k,1974) = lu(k,1974) - lu(k,748) * lu(k,1957) + lu(k,1975) = lu(k,1975) - lu(k,749) * lu(k,1957) + lu(k,1979) = lu(k,1979) - lu(k,750) * lu(k,1957) + lu(k,1980) = lu(k,1980) - lu(k,751) * lu(k,1957) + lu(k,1981) = lu(k,1981) - lu(k,752) * lu(k,1957) + lu(k,1982) = lu(k,1982) - lu(k,753) * lu(k,1957) + lu(k,1983) = lu(k,1983) - lu(k,754) * lu(k,1957) + lu(k,1984) = lu(k,1984) - lu(k,755) * lu(k,1957) + lu(k,1985) = lu(k,1985) - lu(k,756) * lu(k,1957) + lu(k,1986) = lu(k,1986) - lu(k,757) * lu(k,1957) + lu(k,1987) = lu(k,1987) - lu(k,758) * lu(k,1957) + lu(k,1988) = lu(k,1988) - lu(k,759) * lu(k,1957) + lu(k,2002) = lu(k,2002) - lu(k,741) * lu(k,2001) + lu(k,2006) = lu(k,2006) - lu(k,742) * lu(k,2001) + lu(k,2008) = lu(k,2008) - lu(k,743) * lu(k,2001) + lu(k,2010) = - lu(k,744) * lu(k,2001) + lu(k,2011) = lu(k,2011) - lu(k,745) * lu(k,2001) + lu(k,2014) = lu(k,2014) - lu(k,746) * lu(k,2001) + lu(k,2017) = lu(k,2017) - lu(k,747) * lu(k,2001) + lu(k,2019) = lu(k,2019) - lu(k,748) * lu(k,2001) + lu(k,2020) = lu(k,2020) - lu(k,749) * lu(k,2001) + lu(k,2024) = lu(k,2024) - lu(k,750) * lu(k,2001) + lu(k,2025) = lu(k,2025) - lu(k,751) * lu(k,2001) + lu(k,2026) = lu(k,2026) - lu(k,752) * lu(k,2001) + lu(k,2027) = lu(k,2027) - lu(k,753) * lu(k,2001) + lu(k,2028) = lu(k,2028) - lu(k,754) * lu(k,2001) + lu(k,2029) = lu(k,2029) - lu(k,755) * lu(k,2001) + lu(k,2030) = lu(k,2030) - lu(k,756) * lu(k,2001) + lu(k,2031) = lu(k,2031) - lu(k,757) * lu(k,2001) + lu(k,2032) = lu(k,2032) - lu(k,758) * lu(k,2001) + lu(k,2033) = lu(k,2033) - lu(k,759) * lu(k,2001) + lu(k,2063) = lu(k,2063) - lu(k,741) * lu(k,2062) + lu(k,2066) = lu(k,2066) - lu(k,742) * lu(k,2062) + lu(k,2068) = lu(k,2068) - lu(k,743) * lu(k,2062) + lu(k,2070) = lu(k,2070) - lu(k,744) * lu(k,2062) + lu(k,2071) = lu(k,2071) - lu(k,745) * lu(k,2062) + lu(k,2074) = lu(k,2074) - lu(k,746) * lu(k,2062) + lu(k,2077) = lu(k,2077) - lu(k,747) * lu(k,2062) + lu(k,2079) = lu(k,2079) - lu(k,748) * lu(k,2062) + lu(k,2080) = lu(k,2080) - lu(k,749) * lu(k,2062) + lu(k,2084) = lu(k,2084) - lu(k,750) * lu(k,2062) + lu(k,2085) = lu(k,2085) - lu(k,751) * lu(k,2062) + lu(k,2086) = lu(k,2086) - lu(k,752) * lu(k,2062) + lu(k,2087) = lu(k,2087) - lu(k,753) * lu(k,2062) + lu(k,2088) = lu(k,2088) - lu(k,754) * lu(k,2062) + lu(k,2089) = lu(k,2089) - lu(k,755) * lu(k,2062) + lu(k,2090) = lu(k,2090) - lu(k,756) * lu(k,2062) + lu(k,2091) = lu(k,2091) - lu(k,757) * lu(k,2062) + lu(k,2092) = lu(k,2092) - lu(k,758) * lu(k,2062) + lu(k,2093) = lu(k,2093) - lu(k,759) * lu(k,2062) + lu(k,789) = 1._r8 / lu(k,789) + lu(k,790) = lu(k,790) * lu(k,789) + lu(k,791) = lu(k,791) * lu(k,789) + lu(k,792) = lu(k,792) * lu(k,789) + lu(k,793) = lu(k,793) * lu(k,789) + lu(k,794) = lu(k,794) * lu(k,789) + lu(k,795) = lu(k,795) * lu(k,789) + lu(k,796) = lu(k,796) * lu(k,789) + lu(k,797) = lu(k,797) * lu(k,789) + lu(k,798) = lu(k,798) * lu(k,789) + lu(k,799) = lu(k,799) * lu(k,789) + lu(k,800) = lu(k,800) * lu(k,789) + lu(k,801) = lu(k,801) * lu(k,789) + lu(k,802) = lu(k,802) * lu(k,789) + lu(k,803) = lu(k,803) * lu(k,789) + lu(k,804) = lu(k,804) * lu(k,789) + lu(k,805) = lu(k,805) * lu(k,789) + lu(k,806) = lu(k,806) * lu(k,789) + lu(k,807) = lu(k,807) * lu(k,789) + lu(k,808) = lu(k,808) * lu(k,789) + lu(k,809) = lu(k,809) * lu(k,789) + lu(k,810) = lu(k,810) * lu(k,789) + lu(k,902) = lu(k,902) - lu(k,790) * lu(k,901) + lu(k,903) = lu(k,903) - lu(k,791) * lu(k,901) + lu(k,904) = lu(k,904) - lu(k,792) * lu(k,901) + lu(k,905) = lu(k,905) - lu(k,793) * lu(k,901) + lu(k,906) = lu(k,906) - lu(k,794) * lu(k,901) + lu(k,908) = lu(k,908) - lu(k,795) * lu(k,901) + lu(k,909) = lu(k,909) - lu(k,796) * lu(k,901) + lu(k,910) = lu(k,910) - lu(k,797) * lu(k,901) + lu(k,911) = - lu(k,798) * lu(k,901) + lu(k,912) = - lu(k,799) * lu(k,901) + lu(k,913) = lu(k,913) - lu(k,800) * lu(k,901) + lu(k,914) = lu(k,914) - lu(k,801) * lu(k,901) + lu(k,915) = lu(k,915) - lu(k,802) * lu(k,901) + lu(k,916) = lu(k,916) - lu(k,803) * lu(k,901) + lu(k,917) = lu(k,917) - lu(k,804) * lu(k,901) + lu(k,918) = lu(k,918) - lu(k,805) * lu(k,901) + lu(k,919) = lu(k,919) - lu(k,806) * lu(k,901) + lu(k,920) = lu(k,920) - lu(k,807) * lu(k,901) + lu(k,921) = lu(k,921) - lu(k,808) * lu(k,901) + lu(k,922) = lu(k,922) - lu(k,809) * lu(k,901) + lu(k,923) = lu(k,923) - lu(k,810) * lu(k,901) + lu(k,985) = lu(k,985) - lu(k,790) * lu(k,984) + lu(k,986) = lu(k,986) - lu(k,791) * lu(k,984) + lu(k,987) = lu(k,987) - lu(k,792) * lu(k,984) + lu(k,988) = lu(k,988) - lu(k,793) * lu(k,984) + lu(k,990) = lu(k,990) - lu(k,794) * lu(k,984) + lu(k,992) = lu(k,992) - lu(k,795) * lu(k,984) + lu(k,993) = lu(k,993) - lu(k,796) * lu(k,984) + lu(k,994) = lu(k,994) - lu(k,797) * lu(k,984) + lu(k,995) = - lu(k,798) * lu(k,984) + lu(k,996) = lu(k,996) - lu(k,799) * lu(k,984) + lu(k,997) = lu(k,997) - lu(k,800) * lu(k,984) + lu(k,998) = lu(k,998) - lu(k,801) * lu(k,984) + lu(k,999) = lu(k,999) - lu(k,802) * lu(k,984) + lu(k,1000) = lu(k,1000) - lu(k,803) * lu(k,984) + lu(k,1001) = lu(k,1001) - lu(k,804) * lu(k,984) + lu(k,1002) = lu(k,1002) - lu(k,805) * lu(k,984) + lu(k,1003) = lu(k,1003) - lu(k,806) * lu(k,984) + lu(k,1004) = lu(k,1004) - lu(k,807) * lu(k,984) + lu(k,1005) = lu(k,1005) - lu(k,808) * lu(k,984) + lu(k,1006) = lu(k,1006) - lu(k,809) * lu(k,984) + lu(k,1007) = lu(k,1007) - lu(k,810) * lu(k,984) + lu(k,1058) = lu(k,1058) - lu(k,790) * lu(k,1057) + lu(k,1059) = lu(k,1059) - lu(k,791) * lu(k,1057) + lu(k,1060) = lu(k,1060) - lu(k,792) * lu(k,1057) + lu(k,1061) = - lu(k,793) * lu(k,1057) + lu(k,1064) = lu(k,1064) - lu(k,794) * lu(k,1057) + lu(k,1067) = lu(k,1067) - lu(k,795) * lu(k,1057) + lu(k,1069) = - lu(k,796) * lu(k,1057) + lu(k,1070) = - lu(k,797) * lu(k,1057) + lu(k,1071) = lu(k,1071) - lu(k,798) * lu(k,1057) + lu(k,1072) = lu(k,1072) - lu(k,799) * lu(k,1057) + lu(k,1073) = lu(k,1073) - lu(k,800) * lu(k,1057) + lu(k,1074) = lu(k,1074) - lu(k,801) * lu(k,1057) + lu(k,1075) = - lu(k,802) * lu(k,1057) + lu(k,1076) = lu(k,1076) - lu(k,803) * lu(k,1057) + lu(k,1077) = lu(k,1077) - lu(k,804) * lu(k,1057) + lu(k,1078) = - lu(k,805) * lu(k,1057) + lu(k,1079) = lu(k,1079) - lu(k,806) * lu(k,1057) + lu(k,1080) = lu(k,1080) - lu(k,807) * lu(k,1057) + lu(k,1081) = lu(k,1081) - lu(k,808) * lu(k,1057) + lu(k,1082) = - lu(k,809) * lu(k,1057) + lu(k,1083) = lu(k,1083) - lu(k,810) * lu(k,1057) + lu(k,1101) = lu(k,1101) - lu(k,790) * lu(k,1097) + lu(k,1103) = lu(k,1103) - lu(k,791) * lu(k,1097) + lu(k,1105) = lu(k,1105) - lu(k,792) * lu(k,1097) + lu(k,1106) = lu(k,1106) - lu(k,793) * lu(k,1097) + lu(k,1109) = lu(k,1109) - lu(k,794) * lu(k,1097) + lu(k,1112) = lu(k,1112) - lu(k,795) * lu(k,1097) + lu(k,1114) = lu(k,1114) - lu(k,796) * lu(k,1097) + lu(k,1115) = lu(k,1115) - lu(k,797) * lu(k,1097) + lu(k,1116) = lu(k,1116) - lu(k,798) * lu(k,1097) + lu(k,1117) = - lu(k,799) * lu(k,1097) + lu(k,1118) = - lu(k,800) * lu(k,1097) + lu(k,1119) = lu(k,1119) - lu(k,801) * lu(k,1097) + lu(k,1120) = lu(k,1120) - lu(k,802) * lu(k,1097) + lu(k,1121) = lu(k,1121) - lu(k,803) * lu(k,1097) + lu(k,1122) = lu(k,1122) - lu(k,804) * lu(k,1097) + lu(k,1123) = lu(k,1123) - lu(k,805) * lu(k,1097) + lu(k,1124) = lu(k,1124) - lu(k,806) * lu(k,1097) + lu(k,1125) = lu(k,1125) - lu(k,807) * lu(k,1097) + lu(k,1126) = lu(k,1126) - lu(k,808) * lu(k,1097) + lu(k,1127) = lu(k,1127) - lu(k,809) * lu(k,1097) + lu(k,1128) = lu(k,1128) - lu(k,810) * lu(k,1097) + lu(k,1148) = lu(k,1148) - lu(k,790) * lu(k,1144) + lu(k,1150) = lu(k,1150) - lu(k,791) * lu(k,1144) + lu(k,1152) = lu(k,1152) - lu(k,792) * lu(k,1144) + lu(k,1153) = - lu(k,793) * lu(k,1144) + lu(k,1156) = - lu(k,794) * lu(k,1144) + lu(k,1159) = lu(k,1159) - lu(k,795) * lu(k,1144) + lu(k,1161) = lu(k,1161) - lu(k,796) * lu(k,1144) + lu(k,1162) = lu(k,1162) - lu(k,797) * lu(k,1144) + lu(k,1163) = lu(k,1163) - lu(k,798) * lu(k,1144) + lu(k,1164) = lu(k,1164) - lu(k,799) * lu(k,1144) + lu(k,1165) = lu(k,1165) - lu(k,800) * lu(k,1144) + lu(k,1166) = lu(k,1166) - lu(k,801) * lu(k,1144) + lu(k,1167) = lu(k,1167) - lu(k,802) * lu(k,1144) + lu(k,1168) = lu(k,1168) - lu(k,803) * lu(k,1144) + lu(k,1169) = lu(k,1169) - lu(k,804) * lu(k,1144) + lu(k,1170) = - lu(k,805) * lu(k,1144) + lu(k,1171) = - lu(k,806) * lu(k,1144) + lu(k,1172) = lu(k,1172) - lu(k,807) * lu(k,1144) + lu(k,1173) = lu(k,1173) - lu(k,808) * lu(k,1144) + lu(k,1174) = lu(k,1174) - lu(k,809) * lu(k,1144) + lu(k,1175) = lu(k,1175) - lu(k,810) * lu(k,1144) + lu(k,1232) = lu(k,1232) - lu(k,790) * lu(k,1229) + lu(k,1234) = lu(k,1234) - lu(k,791) * lu(k,1229) + lu(k,1236) = lu(k,1236) - lu(k,792) * lu(k,1229) + lu(k,1237) = lu(k,1237) - lu(k,793) * lu(k,1229) + lu(k,1240) = lu(k,1240) - lu(k,794) * lu(k,1229) + lu(k,1243) = lu(k,1243) - lu(k,795) * lu(k,1229) + lu(k,1245) = lu(k,1245) - lu(k,796) * lu(k,1229) + lu(k,1246) = lu(k,1246) - lu(k,797) * lu(k,1229) + lu(k,1247) = lu(k,1247) - lu(k,798) * lu(k,1229) + lu(k,1248) = lu(k,1248) - lu(k,799) * lu(k,1229) + lu(k,1249) = lu(k,1249) - lu(k,800) * lu(k,1229) + lu(k,1250) = lu(k,1250) - lu(k,801) * lu(k,1229) + lu(k,1251) = lu(k,1251) - lu(k,802) * lu(k,1229) + lu(k,1252) = lu(k,1252) - lu(k,803) * lu(k,1229) + lu(k,1253) = lu(k,1253) - lu(k,804) * lu(k,1229) + lu(k,1254) = lu(k,1254) - lu(k,805) * lu(k,1229) + lu(k,1255) = lu(k,1255) - lu(k,806) * lu(k,1229) + lu(k,1256) = lu(k,1256) - lu(k,807) * lu(k,1229) + lu(k,1257) = lu(k,1257) - lu(k,808) * lu(k,1229) + lu(k,1258) = lu(k,1258) - lu(k,809) * lu(k,1229) + lu(k,1259) = lu(k,1259) - lu(k,810) * lu(k,1229) + lu(k,1377) = lu(k,1377) - lu(k,790) * lu(k,1373) + lu(k,1379) = lu(k,1379) - lu(k,791) * lu(k,1373) + lu(k,1381) = lu(k,1381) - lu(k,792) * lu(k,1373) + lu(k,1382) = lu(k,1382) - lu(k,793) * lu(k,1373) + lu(k,1385) = lu(k,1385) - lu(k,794) * lu(k,1373) + lu(k,1388) = lu(k,1388) - lu(k,795) * lu(k,1373) + lu(k,1390) = lu(k,1390) - lu(k,796) * lu(k,1373) + lu(k,1391) = lu(k,1391) - lu(k,797) * lu(k,1373) + lu(k,1392) = lu(k,1392) - lu(k,798) * lu(k,1373) + lu(k,1393) = lu(k,1393) - lu(k,799) * lu(k,1373) + lu(k,1394) = lu(k,1394) - lu(k,800) * lu(k,1373) + lu(k,1395) = lu(k,1395) - lu(k,801) * lu(k,1373) + lu(k,1396) = lu(k,1396) - lu(k,802) * lu(k,1373) + lu(k,1397) = lu(k,1397) - lu(k,803) * lu(k,1373) + lu(k,1398) = lu(k,1398) - lu(k,804) * lu(k,1373) + lu(k,1399) = lu(k,1399) - lu(k,805) * lu(k,1373) + lu(k,1400) = lu(k,1400) - lu(k,806) * lu(k,1373) + lu(k,1401) = lu(k,1401) - lu(k,807) * lu(k,1373) + lu(k,1402) = lu(k,1402) - lu(k,808) * lu(k,1373) + lu(k,1403) = lu(k,1403) - lu(k,809) * lu(k,1373) + lu(k,1404) = lu(k,1404) - lu(k,810) * lu(k,1373) + lu(k,1468) = lu(k,1468) - lu(k,790) * lu(k,1464) + lu(k,1470) = lu(k,1470) - lu(k,791) * lu(k,1464) + lu(k,1472) = lu(k,1472) - lu(k,792) * lu(k,1464) + lu(k,1473) = lu(k,1473) - lu(k,793) * lu(k,1464) + lu(k,1476) = lu(k,1476) - lu(k,794) * lu(k,1464) + lu(k,1479) = lu(k,1479) - lu(k,795) * lu(k,1464) + lu(k,1481) = lu(k,1481) - lu(k,796) * lu(k,1464) + lu(k,1482) = lu(k,1482) - lu(k,797) * lu(k,1464) + lu(k,1483) = lu(k,1483) - lu(k,798) * lu(k,1464) + lu(k,1484) = - lu(k,799) * lu(k,1464) + lu(k,1485) = - lu(k,800) * lu(k,1464) + lu(k,1486) = lu(k,1486) - lu(k,801) * lu(k,1464) + lu(k,1487) = lu(k,1487) - lu(k,802) * lu(k,1464) + lu(k,1488) = lu(k,1488) - lu(k,803) * lu(k,1464) + lu(k,1489) = lu(k,1489) - lu(k,804) * lu(k,1464) + lu(k,1490) = lu(k,1490) - lu(k,805) * lu(k,1464) + lu(k,1491) = lu(k,1491) - lu(k,806) * lu(k,1464) + lu(k,1492) = lu(k,1492) - lu(k,807) * lu(k,1464) + lu(k,1493) = lu(k,1493) - lu(k,808) * lu(k,1464) + lu(k,1494) = lu(k,1494) - lu(k,809) * lu(k,1464) + lu(k,1495) = lu(k,1495) - lu(k,810) * lu(k,1464) + lu(k,1509) = lu(k,1509) - lu(k,790) * lu(k,1506) + lu(k,1511) = lu(k,1511) - lu(k,791) * lu(k,1506) + lu(k,1513) = lu(k,1513) - lu(k,792) * lu(k,1506) + lu(k,1514) = lu(k,1514) - lu(k,793) * lu(k,1506) + lu(k,1517) = lu(k,1517) - lu(k,794) * lu(k,1506) + lu(k,1520) = lu(k,1520) - lu(k,795) * lu(k,1506) + lu(k,1522) = lu(k,1522) - lu(k,796) * lu(k,1506) + lu(k,1523) = lu(k,1523) - lu(k,797) * lu(k,1506) + lu(k,1524) = lu(k,1524) - lu(k,798) * lu(k,1506) + lu(k,1525) = lu(k,1525) - lu(k,799) * lu(k,1506) + lu(k,1526) = lu(k,1526) - lu(k,800) * lu(k,1506) + lu(k,1527) = lu(k,1527) - lu(k,801) * lu(k,1506) + lu(k,1528) = lu(k,1528) - lu(k,802) * lu(k,1506) + lu(k,1529) = lu(k,1529) - lu(k,803) * lu(k,1506) + lu(k,1530) = lu(k,1530) - lu(k,804) * lu(k,1506) + lu(k,1531) = lu(k,1531) - lu(k,805) * lu(k,1506) + lu(k,1532) = lu(k,1532) - lu(k,806) * lu(k,1506) + lu(k,1533) = lu(k,1533) - lu(k,807) * lu(k,1506) + lu(k,1534) = lu(k,1534) - lu(k,808) * lu(k,1506) + lu(k,1535) = lu(k,1535) - lu(k,809) * lu(k,1506) + lu(k,1536) = lu(k,1536) - lu(k,810) * lu(k,1506) + lu(k,1590) = lu(k,1590) - lu(k,790) * lu(k,1586) + lu(k,1592) = lu(k,1592) - lu(k,791) * lu(k,1586) + lu(k,1594) = lu(k,1594) - lu(k,792) * lu(k,1586) + lu(k,1595) = - lu(k,793) * lu(k,1586) + lu(k,1598) = lu(k,1598) - lu(k,794) * lu(k,1586) + lu(k,1601) = lu(k,1601) - lu(k,795) * lu(k,1586) + lu(k,1603) = lu(k,1603) - lu(k,796) * lu(k,1586) + lu(k,1604) = lu(k,1604) - lu(k,797) * lu(k,1586) + lu(k,1605) = lu(k,1605) - lu(k,798) * lu(k,1586) + lu(k,1606) = lu(k,1606) - lu(k,799) * lu(k,1586) + lu(k,1607) = lu(k,1607) - lu(k,800) * lu(k,1586) + lu(k,1608) = lu(k,1608) - lu(k,801) * lu(k,1586) + lu(k,1609) = lu(k,1609) - lu(k,802) * lu(k,1586) + lu(k,1610) = lu(k,1610) - lu(k,803) * lu(k,1586) + lu(k,1611) = lu(k,1611) - lu(k,804) * lu(k,1586) + lu(k,1612) = - lu(k,805) * lu(k,1586) + lu(k,1613) = lu(k,1613) - lu(k,806) * lu(k,1586) + lu(k,1614) = lu(k,1614) - lu(k,807) * lu(k,1586) + lu(k,1615) = lu(k,1615) - lu(k,808) * lu(k,1586) + lu(k,1616) = lu(k,1616) - lu(k,809) * lu(k,1586) + lu(k,1617) = lu(k,1617) - lu(k,810) * lu(k,1586) + lu(k,1675) = lu(k,1675) - lu(k,790) * lu(k,1672) + lu(k,1677) = lu(k,1677) - lu(k,791) * lu(k,1672) + lu(k,1679) = lu(k,1679) - lu(k,792) * lu(k,1672) + lu(k,1680) = - lu(k,793) * lu(k,1672) + lu(k,1683) = lu(k,1683) - lu(k,794) * lu(k,1672) + lu(k,1686) = lu(k,1686) - lu(k,795) * lu(k,1672) + lu(k,1688) = - lu(k,796) * lu(k,1672) + lu(k,1689) = - lu(k,797) * lu(k,1672) + lu(k,1690) = lu(k,1690) - lu(k,798) * lu(k,1672) + lu(k,1691) = lu(k,1691) - lu(k,799) * lu(k,1672) + lu(k,1692) = lu(k,1692) - lu(k,800) * lu(k,1672) + lu(k,1693) = lu(k,1693) - lu(k,801) * lu(k,1672) + lu(k,1694) = - lu(k,802) * lu(k,1672) + lu(k,1695) = lu(k,1695) - lu(k,803) * lu(k,1672) + lu(k,1696) = lu(k,1696) - lu(k,804) * lu(k,1672) + lu(k,1697) = lu(k,1697) - lu(k,805) * lu(k,1672) + lu(k,1698) = lu(k,1698) - lu(k,806) * lu(k,1672) + lu(k,1699) = lu(k,1699) - lu(k,807) * lu(k,1672) + lu(k,1700) = lu(k,1700) - lu(k,808) * lu(k,1672) + lu(k,1701) = - lu(k,809) * lu(k,1672) + lu(k,1702) = lu(k,1702) - lu(k,810) * lu(k,1672) + lu(k,1716) = lu(k,1716) - lu(k,790) * lu(k,1714) + lu(k,1718) = lu(k,1718) - lu(k,791) * lu(k,1714) + lu(k,1719) = lu(k,1719) - lu(k,792) * lu(k,1714) + lu(k,1720) = lu(k,1720) - lu(k,793) * lu(k,1714) + lu(k,1723) = lu(k,1723) - lu(k,794) * lu(k,1714) + lu(k,1726) = lu(k,1726) - lu(k,795) * lu(k,1714) + lu(k,1728) = lu(k,1728) - lu(k,796) * lu(k,1714) + lu(k,1729) = lu(k,1729) - lu(k,797) * lu(k,1714) + lu(k,1730) = - lu(k,798) * lu(k,1714) + lu(k,1731) = lu(k,1731) - lu(k,799) * lu(k,1714) + lu(k,1732) = lu(k,1732) - lu(k,800) * lu(k,1714) + lu(k,1733) = lu(k,1733) - lu(k,801) * lu(k,1714) + lu(k,1734) = lu(k,1734) - lu(k,802) * lu(k,1714) + lu(k,1735) = lu(k,1735) - lu(k,803) * lu(k,1714) + lu(k,1736) = lu(k,1736) - lu(k,804) * lu(k,1714) + lu(k,1737) = lu(k,1737) - lu(k,805) * lu(k,1714) + lu(k,1738) = lu(k,1738) - lu(k,806) * lu(k,1714) + lu(k,1739) = lu(k,1739) - lu(k,807) * lu(k,1714) + lu(k,1740) = lu(k,1740) - lu(k,808) * lu(k,1714) + lu(k,1741) = lu(k,1741) - lu(k,809) * lu(k,1714) + lu(k,1742) = lu(k,1742) - lu(k,810) * lu(k,1714) + lu(k,1751) = lu(k,1751) - lu(k,790) * lu(k,1747) + lu(k,1753) = lu(k,1753) - lu(k,791) * lu(k,1747) + lu(k,1755) = lu(k,1755) - lu(k,792) * lu(k,1747) + lu(k,1756) = lu(k,1756) - lu(k,793) * lu(k,1747) + lu(k,1759) = lu(k,1759) - lu(k,794) * lu(k,1747) + lu(k,1762) = lu(k,1762) - lu(k,795) * lu(k,1747) + lu(k,1764) = lu(k,1764) - lu(k,796) * lu(k,1747) + lu(k,1765) = lu(k,1765) - lu(k,797) * lu(k,1747) + lu(k,1766) = lu(k,1766) - lu(k,798) * lu(k,1747) + lu(k,1767) = - lu(k,799) * lu(k,1747) + lu(k,1768) = lu(k,1768) - lu(k,800) * lu(k,1747) + lu(k,1769) = lu(k,1769) - lu(k,801) * lu(k,1747) + lu(k,1770) = lu(k,1770) - lu(k,802) * lu(k,1747) + lu(k,1771) = lu(k,1771) - lu(k,803) * lu(k,1747) + lu(k,1772) = lu(k,1772) - lu(k,804) * lu(k,1747) + lu(k,1773) = lu(k,1773) - lu(k,805) * lu(k,1747) + lu(k,1774) = lu(k,1774) - lu(k,806) * lu(k,1747) + lu(k,1775) = lu(k,1775) - lu(k,807) * lu(k,1747) + lu(k,1776) = lu(k,1776) - lu(k,808) * lu(k,1747) + lu(k,1777) = lu(k,1777) - lu(k,809) * lu(k,1747) + lu(k,1778) = lu(k,1778) - lu(k,810) * lu(k,1747) + lu(k,1799) = lu(k,1799) - lu(k,790) * lu(k,1796) + lu(k,1801) = lu(k,1801) - lu(k,791) * lu(k,1796) + lu(k,1803) = lu(k,1803) - lu(k,792) * lu(k,1796) + lu(k,1804) = lu(k,1804) - lu(k,793) * lu(k,1796) + lu(k,1807) = lu(k,1807) - lu(k,794) * lu(k,1796) + lu(k,1810) = lu(k,1810) - lu(k,795) * lu(k,1796) + lu(k,1812) = lu(k,1812) - lu(k,796) * lu(k,1796) + lu(k,1813) = lu(k,1813) - lu(k,797) * lu(k,1796) + lu(k,1814) = lu(k,1814) - lu(k,798) * lu(k,1796) + lu(k,1815) = lu(k,1815) - lu(k,799) * lu(k,1796) + lu(k,1816) = lu(k,1816) - lu(k,800) * lu(k,1796) + lu(k,1817) = lu(k,1817) - lu(k,801) * lu(k,1796) + lu(k,1818) = lu(k,1818) - lu(k,802) * lu(k,1796) + lu(k,1819) = lu(k,1819) - lu(k,803) * lu(k,1796) + lu(k,1820) = lu(k,1820) - lu(k,804) * lu(k,1796) + lu(k,1821) = lu(k,1821) - lu(k,805) * lu(k,1796) + lu(k,1822) = lu(k,1822) - lu(k,806) * lu(k,1796) + lu(k,1823) = lu(k,1823) - lu(k,807) * lu(k,1796) + lu(k,1824) = lu(k,1824) - lu(k,808) * lu(k,1796) + lu(k,1825) = lu(k,1825) - lu(k,809) * lu(k,1796) + lu(k,1826) = lu(k,1826) - lu(k,810) * lu(k,1796) + lu(k,1868) = lu(k,1868) - lu(k,790) * lu(k,1865) + lu(k,1870) = lu(k,1870) - lu(k,791) * lu(k,1865) + lu(k,1872) = lu(k,1872) - lu(k,792) * lu(k,1865) + lu(k,1873) = lu(k,1873) - lu(k,793) * lu(k,1865) + lu(k,1876) = lu(k,1876) - lu(k,794) * lu(k,1865) + lu(k,1879) = lu(k,1879) - lu(k,795) * lu(k,1865) + lu(k,1881) = lu(k,1881) - lu(k,796) * lu(k,1865) + lu(k,1882) = lu(k,1882) - lu(k,797) * lu(k,1865) + lu(k,1883) = lu(k,1883) - lu(k,798) * lu(k,1865) + lu(k,1884) = lu(k,1884) - lu(k,799) * lu(k,1865) + lu(k,1885) = lu(k,1885) - lu(k,800) * lu(k,1865) + lu(k,1886) = lu(k,1886) - lu(k,801) * lu(k,1865) + lu(k,1887) = lu(k,1887) - lu(k,802) * lu(k,1865) + lu(k,1888) = lu(k,1888) - lu(k,803) * lu(k,1865) + lu(k,1889) = lu(k,1889) - lu(k,804) * lu(k,1865) + lu(k,1890) = lu(k,1890) - lu(k,805) * lu(k,1865) + lu(k,1891) = lu(k,1891) - lu(k,806) * lu(k,1865) + lu(k,1892) = lu(k,1892) - lu(k,807) * lu(k,1865) + lu(k,1893) = lu(k,1893) - lu(k,808) * lu(k,1865) + lu(k,1894) = lu(k,1894) - lu(k,809) * lu(k,1865) + lu(k,1895) = lu(k,1895) - lu(k,810) * lu(k,1865) + lu(k,1917) = lu(k,1917) - lu(k,790) * lu(k,1914) + lu(k,1919) = lu(k,1919) - lu(k,791) * lu(k,1914) + lu(k,1921) = lu(k,1921) - lu(k,792) * lu(k,1914) + lu(k,1922) = lu(k,1922) - lu(k,793) * lu(k,1914) + lu(k,1925) = lu(k,1925) - lu(k,794) * lu(k,1914) + lu(k,1928) = lu(k,1928) - lu(k,795) * lu(k,1914) + lu(k,1930) = lu(k,1930) - lu(k,796) * lu(k,1914) + lu(k,1931) = lu(k,1931) - lu(k,797) * lu(k,1914) + lu(k,1932) = lu(k,1932) - lu(k,798) * lu(k,1914) + lu(k,1933) = lu(k,1933) - lu(k,799) * lu(k,1914) + lu(k,1934) = lu(k,1934) - lu(k,800) * lu(k,1914) + lu(k,1935) = lu(k,1935) - lu(k,801) * lu(k,1914) + lu(k,1936) = lu(k,1936) - lu(k,802) * lu(k,1914) + lu(k,1937) = lu(k,1937) - lu(k,803) * lu(k,1914) + lu(k,1938) = lu(k,1938) - lu(k,804) * lu(k,1914) + lu(k,1939) = lu(k,1939) - lu(k,805) * lu(k,1914) + lu(k,1940) = lu(k,1940) - lu(k,806) * lu(k,1914) + lu(k,1941) = lu(k,1941) - lu(k,807) * lu(k,1914) + lu(k,1942) = lu(k,1942) - lu(k,808) * lu(k,1914) + lu(k,1943) = lu(k,1943) - lu(k,809) * lu(k,1914) + lu(k,1944) = lu(k,1944) - lu(k,810) * lu(k,1914) + lu(k,1961) = lu(k,1961) - lu(k,790) * lu(k,1958) + lu(k,1963) = lu(k,1963) - lu(k,791) * lu(k,1958) + lu(k,1965) = lu(k,1965) - lu(k,792) * lu(k,1958) + lu(k,1966) = lu(k,1966) - lu(k,793) * lu(k,1958) + lu(k,1969) = lu(k,1969) - lu(k,794) * lu(k,1958) + lu(k,1972) = lu(k,1972) - lu(k,795) * lu(k,1958) + lu(k,1974) = lu(k,1974) - lu(k,796) * lu(k,1958) + lu(k,1975) = lu(k,1975) - lu(k,797) * lu(k,1958) + lu(k,1976) = lu(k,1976) - lu(k,798) * lu(k,1958) + lu(k,1977) = lu(k,1977) - lu(k,799) * lu(k,1958) + lu(k,1978) = lu(k,1978) - lu(k,800) * lu(k,1958) + lu(k,1979) = lu(k,1979) - lu(k,801) * lu(k,1958) + lu(k,1980) = lu(k,1980) - lu(k,802) * lu(k,1958) + lu(k,1981) = lu(k,1981) - lu(k,803) * lu(k,1958) + lu(k,1982) = lu(k,1982) - lu(k,804) * lu(k,1958) + lu(k,1983) = lu(k,1983) - lu(k,805) * lu(k,1958) + lu(k,1984) = lu(k,1984) - lu(k,806) * lu(k,1958) + lu(k,1985) = lu(k,1985) - lu(k,807) * lu(k,1958) + lu(k,1986) = lu(k,1986) - lu(k,808) * lu(k,1958) + lu(k,1987) = lu(k,1987) - lu(k,809) * lu(k,1958) + lu(k,1988) = lu(k,1988) - lu(k,810) * lu(k,1958) + lu(k,2006) = lu(k,2006) - lu(k,790) * lu(k,2002) + lu(k,2008) = lu(k,2008) - lu(k,791) * lu(k,2002) + lu(k,2010) = lu(k,2010) - lu(k,792) * lu(k,2002) + lu(k,2011) = lu(k,2011) - lu(k,793) * lu(k,2002) + lu(k,2014) = lu(k,2014) - lu(k,794) * lu(k,2002) + lu(k,2017) = lu(k,2017) - lu(k,795) * lu(k,2002) + lu(k,2019) = lu(k,2019) - lu(k,796) * lu(k,2002) + lu(k,2020) = lu(k,2020) - lu(k,797) * lu(k,2002) + lu(k,2021) = lu(k,2021) - lu(k,798) * lu(k,2002) + lu(k,2022) = lu(k,2022) - lu(k,799) * lu(k,2002) + lu(k,2023) = lu(k,2023) - lu(k,800) * lu(k,2002) + lu(k,2024) = lu(k,2024) - lu(k,801) * lu(k,2002) + lu(k,2025) = lu(k,2025) - lu(k,802) * lu(k,2002) + lu(k,2026) = lu(k,2026) - lu(k,803) * lu(k,2002) + lu(k,2027) = lu(k,2027) - lu(k,804) * lu(k,2002) + lu(k,2028) = lu(k,2028) - lu(k,805) * lu(k,2002) + lu(k,2029) = lu(k,2029) - lu(k,806) * lu(k,2002) + lu(k,2030) = lu(k,2030) - lu(k,807) * lu(k,2002) + lu(k,2031) = lu(k,2031) - lu(k,808) * lu(k,2002) + lu(k,2032) = lu(k,2032) - lu(k,809) * lu(k,2002) + lu(k,2033) = lu(k,2033) - lu(k,810) * lu(k,2002) + lu(k,2066) = lu(k,2066) - lu(k,790) * lu(k,2063) + lu(k,2068) = lu(k,2068) - lu(k,791) * lu(k,2063) + lu(k,2070) = lu(k,2070) - lu(k,792) * lu(k,2063) + lu(k,2071) = lu(k,2071) - lu(k,793) * lu(k,2063) + lu(k,2074) = lu(k,2074) - lu(k,794) * lu(k,2063) + lu(k,2077) = lu(k,2077) - lu(k,795) * lu(k,2063) + lu(k,2079) = lu(k,2079) - lu(k,796) * lu(k,2063) + lu(k,2080) = lu(k,2080) - lu(k,797) * lu(k,2063) + lu(k,2081) = lu(k,2081) - lu(k,798) * lu(k,2063) + lu(k,2082) = lu(k,2082) - lu(k,799) * lu(k,2063) + lu(k,2083) = lu(k,2083) - lu(k,800) * lu(k,2063) + lu(k,2084) = lu(k,2084) - lu(k,801) * lu(k,2063) + lu(k,2085) = lu(k,2085) - lu(k,802) * lu(k,2063) + lu(k,2086) = lu(k,2086) - lu(k,803) * lu(k,2063) + lu(k,2087) = lu(k,2087) - lu(k,804) * lu(k,2063) + lu(k,2088) = lu(k,2088) - lu(k,805) * lu(k,2063) + lu(k,2089) = lu(k,2089) - lu(k,806) * lu(k,2063) + lu(k,2090) = lu(k,2090) - lu(k,807) * lu(k,2063) + lu(k,2091) = lu(k,2091) - lu(k,808) * lu(k,2063) + lu(k,2092) = lu(k,2092) - lu(k,809) * lu(k,2063) + lu(k,2093) = lu(k,2093) - lu(k,810) * lu(k,2063) end do end subroutine lu_fac19 subroutine lu_fac20( avec_len, lu ) @@ -6784,1628 +5898,2554 @@ subroutine lu_fac20( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,866) = 1._r8 / lu(k,866) - lu(k,867) = lu(k,867) * lu(k,866) - lu(k,868) = lu(k,868) * lu(k,866) - lu(k,869) = lu(k,869) * lu(k,866) - lu(k,870) = lu(k,870) * lu(k,866) - lu(k,871) = lu(k,871) * lu(k,866) - lu(k,872) = lu(k,872) * lu(k,866) - lu(k,873) = lu(k,873) * lu(k,866) - lu(k,874) = lu(k,874) * lu(k,866) - lu(k,875) = lu(k,875) * lu(k,866) - lu(k,876) = lu(k,876) * lu(k,866) - lu(k,877) = lu(k,877) * lu(k,866) - lu(k,878) = lu(k,878) * lu(k,866) - lu(k,879) = lu(k,879) * lu(k,866) - lu(k,880) = lu(k,880) * lu(k,866) - lu(k,881) = lu(k,881) * lu(k,866) - lu(k,882) = lu(k,882) * lu(k,866) - lu(k,883) = lu(k,883) * lu(k,866) - lu(k,884) = lu(k,884) * lu(k,866) - lu(k,885) = lu(k,885) * lu(k,866) - lu(k,886) = lu(k,886) * lu(k,866) - lu(k,926) = lu(k,926) - lu(k,867) * lu(k,925) - lu(k,928) = lu(k,928) - lu(k,868) * lu(k,925) - lu(k,930) = lu(k,930) - lu(k,869) * lu(k,925) - lu(k,931) = lu(k,931) - lu(k,870) * lu(k,925) - lu(k,932) = lu(k,932) - lu(k,871) * lu(k,925) - lu(k,933) = lu(k,933) - lu(k,872) * lu(k,925) - lu(k,934) = - lu(k,873) * lu(k,925) - lu(k,935) = lu(k,935) - lu(k,874) * lu(k,925) - lu(k,936) = lu(k,936) - lu(k,875) * lu(k,925) - lu(k,937) = lu(k,937) - lu(k,876) * lu(k,925) - lu(k,938) = lu(k,938) - lu(k,877) * lu(k,925) - lu(k,939) = lu(k,939) - lu(k,878) * lu(k,925) - lu(k,940) = lu(k,940) - lu(k,879) * lu(k,925) - lu(k,941) = lu(k,941) - lu(k,880) * lu(k,925) - lu(k,942) = lu(k,942) - lu(k,881) * lu(k,925) - lu(k,943) = lu(k,943) - lu(k,882) * lu(k,925) - lu(k,945) = lu(k,945) - lu(k,883) * lu(k,925) - lu(k,946) = lu(k,946) - lu(k,884) * lu(k,925) - lu(k,947) = lu(k,947) - lu(k,885) * lu(k,925) - lu(k,948) = lu(k,948) - lu(k,886) * lu(k,925) - lu(k,1012) = lu(k,1012) - lu(k,867) * lu(k,1011) - lu(k,1015) = lu(k,1015) - lu(k,868) * lu(k,1011) - lu(k,1017) = lu(k,1017) - lu(k,869) * lu(k,1011) - lu(k,1018) = lu(k,1018) - lu(k,870) * lu(k,1011) - lu(k,1019) = lu(k,1019) - lu(k,871) * lu(k,1011) - lu(k,1021) = lu(k,1021) - lu(k,872) * lu(k,1011) - lu(k,1022) = lu(k,1022) - lu(k,873) * lu(k,1011) - lu(k,1023) = lu(k,1023) - lu(k,874) * lu(k,1011) - lu(k,1024) = lu(k,1024) - lu(k,875) * lu(k,1011) - lu(k,1025) = lu(k,1025) - lu(k,876) * lu(k,1011) - lu(k,1027) = lu(k,1027) - lu(k,877) * lu(k,1011) - lu(k,1028) = lu(k,1028) - lu(k,878) * lu(k,1011) - lu(k,1029) = lu(k,1029) - lu(k,879) * lu(k,1011) - lu(k,1030) = lu(k,1030) - lu(k,880) * lu(k,1011) - lu(k,1031) = lu(k,1031) - lu(k,881) * lu(k,1011) - lu(k,1032) = lu(k,1032) - lu(k,882) * lu(k,1011) - lu(k,1035) = lu(k,1035) - lu(k,883) * lu(k,1011) - lu(k,1036) = lu(k,1036) - lu(k,884) * lu(k,1011) - lu(k,1037) = lu(k,1037) - lu(k,885) * lu(k,1011) - lu(k,1038) = lu(k,1038) - lu(k,886) * lu(k,1011) - lu(k,1100) = lu(k,1100) - lu(k,867) * lu(k,1098) - lu(k,1103) = lu(k,1103) - lu(k,868) * lu(k,1098) - lu(k,1105) = lu(k,1105) - lu(k,869) * lu(k,1098) - lu(k,1106) = lu(k,1106) - lu(k,870) * lu(k,1098) - lu(k,1107) = lu(k,1107) - lu(k,871) * lu(k,1098) - lu(k,1109) = lu(k,1109) - lu(k,872) * lu(k,1098) - lu(k,1110) = lu(k,1110) - lu(k,873) * lu(k,1098) - lu(k,1111) = lu(k,1111) - lu(k,874) * lu(k,1098) - lu(k,1112) = lu(k,1112) - lu(k,875) * lu(k,1098) - lu(k,1113) = lu(k,1113) - lu(k,876) * lu(k,1098) - lu(k,1115) = lu(k,1115) - lu(k,877) * lu(k,1098) - lu(k,1116) = lu(k,1116) - lu(k,878) * lu(k,1098) - lu(k,1117) = lu(k,1117) - lu(k,879) * lu(k,1098) - lu(k,1118) = lu(k,1118) - lu(k,880) * lu(k,1098) - lu(k,1119) = lu(k,1119) - lu(k,881) * lu(k,1098) - lu(k,1120) = lu(k,1120) - lu(k,882) * lu(k,1098) - lu(k,1123) = lu(k,1123) - lu(k,883) * lu(k,1098) - lu(k,1124) = lu(k,1124) - lu(k,884) * lu(k,1098) - lu(k,1125) = lu(k,1125) - lu(k,885) * lu(k,1098) - lu(k,1126) = lu(k,1126) - lu(k,886) * lu(k,1098) - lu(k,1148) = lu(k,1148) - lu(k,867) * lu(k,1146) - lu(k,1151) = lu(k,1151) - lu(k,868) * lu(k,1146) - lu(k,1153) = lu(k,1153) - lu(k,869) * lu(k,1146) - lu(k,1154) = lu(k,1154) - lu(k,870) * lu(k,1146) - lu(k,1155) = lu(k,1155) - lu(k,871) * lu(k,1146) - lu(k,1157) = lu(k,1157) - lu(k,872) * lu(k,1146) - lu(k,1158) = lu(k,1158) - lu(k,873) * lu(k,1146) - lu(k,1159) = lu(k,1159) - lu(k,874) * lu(k,1146) - lu(k,1160) = lu(k,1160) - lu(k,875) * lu(k,1146) - lu(k,1161) = lu(k,1161) - lu(k,876) * lu(k,1146) - lu(k,1163) = lu(k,1163) - lu(k,877) * lu(k,1146) - lu(k,1164) = lu(k,1164) - lu(k,878) * lu(k,1146) - lu(k,1165) = lu(k,1165) - lu(k,879) * lu(k,1146) - lu(k,1166) = lu(k,1166) - lu(k,880) * lu(k,1146) - lu(k,1167) = lu(k,1167) - lu(k,881) * lu(k,1146) - lu(k,1168) = lu(k,1168) - lu(k,882) * lu(k,1146) - lu(k,1171) = lu(k,1171) - lu(k,883) * lu(k,1146) - lu(k,1172) = lu(k,1172) - lu(k,884) * lu(k,1146) - lu(k,1173) = lu(k,1173) - lu(k,885) * lu(k,1146) - lu(k,1174) = lu(k,1174) - lu(k,886) * lu(k,1146) - lu(k,1191) = lu(k,1191) - lu(k,867) * lu(k,1189) - lu(k,1194) = lu(k,1194) - lu(k,868) * lu(k,1189) - lu(k,1196) = lu(k,1196) - lu(k,869) * lu(k,1189) - lu(k,1197) = lu(k,1197) - lu(k,870) * lu(k,1189) - lu(k,1198) = lu(k,1198) - lu(k,871) * lu(k,1189) - lu(k,1200) = lu(k,1200) - lu(k,872) * lu(k,1189) - lu(k,1201) = lu(k,1201) - lu(k,873) * lu(k,1189) - lu(k,1202) = lu(k,1202) - lu(k,874) * lu(k,1189) - lu(k,1203) = lu(k,1203) - lu(k,875) * lu(k,1189) - lu(k,1204) = lu(k,1204) - lu(k,876) * lu(k,1189) - lu(k,1206) = lu(k,1206) - lu(k,877) * lu(k,1189) - lu(k,1207) = lu(k,1207) - lu(k,878) * lu(k,1189) - lu(k,1208) = lu(k,1208) - lu(k,879) * lu(k,1189) - lu(k,1209) = lu(k,1209) - lu(k,880) * lu(k,1189) - lu(k,1210) = lu(k,1210) - lu(k,881) * lu(k,1189) - lu(k,1211) = lu(k,1211) - lu(k,882) * lu(k,1189) - lu(k,1214) = lu(k,1214) - lu(k,883) * lu(k,1189) - lu(k,1215) = lu(k,1215) - lu(k,884) * lu(k,1189) - lu(k,1216) = lu(k,1216) - lu(k,885) * lu(k,1189) - lu(k,1217) = lu(k,1217) - lu(k,886) * lu(k,1189) - lu(k,1234) = lu(k,1234) - lu(k,867) * lu(k,1232) - lu(k,1237) = lu(k,1237) - lu(k,868) * lu(k,1232) - lu(k,1239) = lu(k,1239) - lu(k,869) * lu(k,1232) - lu(k,1240) = lu(k,1240) - lu(k,870) * lu(k,1232) - lu(k,1241) = lu(k,1241) - lu(k,871) * lu(k,1232) - lu(k,1243) = lu(k,1243) - lu(k,872) * lu(k,1232) - lu(k,1244) = lu(k,1244) - lu(k,873) * lu(k,1232) - lu(k,1245) = lu(k,1245) - lu(k,874) * lu(k,1232) - lu(k,1246) = lu(k,1246) - lu(k,875) * lu(k,1232) - lu(k,1247) = lu(k,1247) - lu(k,876) * lu(k,1232) - lu(k,1249) = lu(k,1249) - lu(k,877) * lu(k,1232) - lu(k,1250) = lu(k,1250) - lu(k,878) * lu(k,1232) - lu(k,1251) = lu(k,1251) - lu(k,879) * lu(k,1232) - lu(k,1252) = lu(k,1252) - lu(k,880) * lu(k,1232) - lu(k,1253) = lu(k,1253) - lu(k,881) * lu(k,1232) - lu(k,1254) = lu(k,1254) - lu(k,882) * lu(k,1232) - lu(k,1257) = lu(k,1257) - lu(k,883) * lu(k,1232) - lu(k,1258) = lu(k,1258) - lu(k,884) * lu(k,1232) - lu(k,1259) = lu(k,1259) - lu(k,885) * lu(k,1232) - lu(k,1260) = lu(k,1260) - lu(k,886) * lu(k,1232) - lu(k,1276) = lu(k,1276) - lu(k,867) * lu(k,1274) - lu(k,1279) = lu(k,1279) - lu(k,868) * lu(k,1274) - lu(k,1281) = lu(k,1281) - lu(k,869) * lu(k,1274) - lu(k,1282) = lu(k,1282) - lu(k,870) * lu(k,1274) - lu(k,1283) = lu(k,1283) - lu(k,871) * lu(k,1274) - lu(k,1285) = lu(k,1285) - lu(k,872) * lu(k,1274) - lu(k,1286) = lu(k,1286) - lu(k,873) * lu(k,1274) - lu(k,1287) = lu(k,1287) - lu(k,874) * lu(k,1274) - lu(k,1288) = lu(k,1288) - lu(k,875) * lu(k,1274) - lu(k,1289) = lu(k,1289) - lu(k,876) * lu(k,1274) - lu(k,1291) = lu(k,1291) - lu(k,877) * lu(k,1274) - lu(k,1292) = lu(k,1292) - lu(k,878) * lu(k,1274) - lu(k,1293) = lu(k,1293) - lu(k,879) * lu(k,1274) - lu(k,1294) = lu(k,1294) - lu(k,880) * lu(k,1274) - lu(k,1295) = lu(k,1295) - lu(k,881) * lu(k,1274) - lu(k,1296) = lu(k,1296) - lu(k,882) * lu(k,1274) - lu(k,1299) = lu(k,1299) - lu(k,883) * lu(k,1274) - lu(k,1300) = lu(k,1300) - lu(k,884) * lu(k,1274) - lu(k,1301) = lu(k,1301) - lu(k,885) * lu(k,1274) - lu(k,1302) = lu(k,1302) - lu(k,886) * lu(k,1274) - lu(k,1318) = lu(k,1318) - lu(k,867) * lu(k,1316) - lu(k,1321) = lu(k,1321) - lu(k,868) * lu(k,1316) - lu(k,1323) = lu(k,1323) - lu(k,869) * lu(k,1316) - lu(k,1324) = lu(k,1324) - lu(k,870) * lu(k,1316) - lu(k,1325) = lu(k,1325) - lu(k,871) * lu(k,1316) - lu(k,1327) = lu(k,1327) - lu(k,872) * lu(k,1316) - lu(k,1328) = lu(k,1328) - lu(k,873) * lu(k,1316) - lu(k,1329) = lu(k,1329) - lu(k,874) * lu(k,1316) - lu(k,1330) = lu(k,1330) - lu(k,875) * lu(k,1316) - lu(k,1331) = lu(k,1331) - lu(k,876) * lu(k,1316) - lu(k,1333) = lu(k,1333) - lu(k,877) * lu(k,1316) - lu(k,1334) = lu(k,1334) - lu(k,878) * lu(k,1316) - lu(k,1335) = lu(k,1335) - lu(k,879) * lu(k,1316) - lu(k,1336) = lu(k,1336) - lu(k,880) * lu(k,1316) - lu(k,1337) = lu(k,1337) - lu(k,881) * lu(k,1316) - lu(k,1338) = lu(k,1338) - lu(k,882) * lu(k,1316) - lu(k,1341) = lu(k,1341) - lu(k,883) * lu(k,1316) - lu(k,1342) = lu(k,1342) - lu(k,884) * lu(k,1316) - lu(k,1343) = lu(k,1343) - lu(k,885) * lu(k,1316) - lu(k,1344) = lu(k,1344) - lu(k,886) * lu(k,1316) - lu(k,1378) = lu(k,1378) - lu(k,867) * lu(k,1376) - lu(k,1381) = lu(k,1381) - lu(k,868) * lu(k,1376) - lu(k,1383) = lu(k,1383) - lu(k,869) * lu(k,1376) - lu(k,1384) = lu(k,1384) - lu(k,870) * lu(k,1376) - lu(k,1385) = lu(k,1385) - lu(k,871) * lu(k,1376) - lu(k,1387) = lu(k,1387) - lu(k,872) * lu(k,1376) - lu(k,1388) = lu(k,1388) - lu(k,873) * lu(k,1376) - lu(k,1389) = lu(k,1389) - lu(k,874) * lu(k,1376) - lu(k,1390) = lu(k,1390) - lu(k,875) * lu(k,1376) - lu(k,1391) = lu(k,1391) - lu(k,876) * lu(k,1376) - lu(k,1393) = lu(k,1393) - lu(k,877) * lu(k,1376) - lu(k,1394) = lu(k,1394) - lu(k,878) * lu(k,1376) - lu(k,1395) = lu(k,1395) - lu(k,879) * lu(k,1376) - lu(k,1396) = lu(k,1396) - lu(k,880) * lu(k,1376) - lu(k,1397) = lu(k,1397) - lu(k,881) * lu(k,1376) - lu(k,1398) = lu(k,1398) - lu(k,882) * lu(k,1376) - lu(k,1401) = lu(k,1401) - lu(k,883) * lu(k,1376) - lu(k,1402) = lu(k,1402) - lu(k,884) * lu(k,1376) - lu(k,1403) = lu(k,1403) - lu(k,885) * lu(k,1376) - lu(k,1404) = lu(k,1404) - lu(k,886) * lu(k,1376) - lu(k,1427) = lu(k,1427) - lu(k,867) * lu(k,1425) - lu(k,1430) = lu(k,1430) - lu(k,868) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,869) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,870) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,871) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,872) * lu(k,1425) - lu(k,1437) = lu(k,1437) - lu(k,873) * lu(k,1425) - lu(k,1438) = lu(k,1438) - lu(k,874) * lu(k,1425) - lu(k,1439) = lu(k,1439) - lu(k,875) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,876) * lu(k,1425) - lu(k,1442) = lu(k,1442) - lu(k,877) * lu(k,1425) - lu(k,1443) = lu(k,1443) - lu(k,878) * lu(k,1425) - lu(k,1444) = lu(k,1444) - lu(k,879) * lu(k,1425) - lu(k,1445) = lu(k,1445) - lu(k,880) * lu(k,1425) - lu(k,1446) = lu(k,1446) - lu(k,881) * lu(k,1425) - lu(k,1447) = lu(k,1447) - lu(k,882) * lu(k,1425) - lu(k,1450) = lu(k,1450) - lu(k,883) * lu(k,1425) - lu(k,1451) = lu(k,1451) - lu(k,884) * lu(k,1425) - lu(k,1452) = lu(k,1452) - lu(k,885) * lu(k,1425) - lu(k,1453) = lu(k,1453) - lu(k,886) * lu(k,1425) - lu(k,1475) = lu(k,1475) - lu(k,867) * lu(k,1473) - lu(k,1478) = lu(k,1478) - lu(k,868) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,869) * lu(k,1473) - lu(k,1481) = lu(k,1481) - lu(k,870) * lu(k,1473) - lu(k,1482) = lu(k,1482) - lu(k,871) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,872) * lu(k,1473) - lu(k,1485) = lu(k,1485) - lu(k,873) * lu(k,1473) - lu(k,1486) = lu(k,1486) - lu(k,874) * lu(k,1473) - lu(k,1487) = lu(k,1487) - lu(k,875) * lu(k,1473) - lu(k,1488) = lu(k,1488) - lu(k,876) * lu(k,1473) - lu(k,1490) = lu(k,1490) - lu(k,877) * lu(k,1473) - lu(k,1491) = lu(k,1491) - lu(k,878) * lu(k,1473) - lu(k,1492) = lu(k,1492) - lu(k,879) * lu(k,1473) - lu(k,1493) = lu(k,1493) - lu(k,880) * lu(k,1473) - lu(k,1494) = lu(k,1494) - lu(k,881) * lu(k,1473) - lu(k,1495) = lu(k,1495) - lu(k,882) * lu(k,1473) - lu(k,1498) = lu(k,1498) - lu(k,883) * lu(k,1473) - lu(k,1499) = lu(k,1499) - lu(k,884) * lu(k,1473) - lu(k,1500) = lu(k,1500) - lu(k,885) * lu(k,1473) - lu(k,1501) = lu(k,1501) - lu(k,886) * lu(k,1473) - lu(k,1516) = lu(k,1516) - lu(k,867) * lu(k,1514) - lu(k,1519) = lu(k,1519) - lu(k,868) * lu(k,1514) - lu(k,1521) = lu(k,1521) - lu(k,869) * lu(k,1514) - lu(k,1522) = lu(k,1522) - lu(k,870) * lu(k,1514) - lu(k,1523) = lu(k,1523) - lu(k,871) * lu(k,1514) - lu(k,1525) = lu(k,1525) - lu(k,872) * lu(k,1514) - lu(k,1526) = lu(k,1526) - lu(k,873) * lu(k,1514) - lu(k,1527) = lu(k,1527) - lu(k,874) * lu(k,1514) - lu(k,1528) = lu(k,1528) - lu(k,875) * lu(k,1514) - lu(k,1529) = lu(k,1529) - lu(k,876) * lu(k,1514) - lu(k,1531) = lu(k,1531) - lu(k,877) * lu(k,1514) - lu(k,1532) = lu(k,1532) - lu(k,878) * lu(k,1514) - lu(k,1533) = lu(k,1533) - lu(k,879) * lu(k,1514) - lu(k,1534) = lu(k,1534) - lu(k,880) * lu(k,1514) - lu(k,1535) = lu(k,1535) - lu(k,881) * lu(k,1514) - lu(k,1536) = lu(k,1536) - lu(k,882) * lu(k,1514) - lu(k,1539) = lu(k,1539) - lu(k,883) * lu(k,1514) - lu(k,1540) = lu(k,1540) - lu(k,884) * lu(k,1514) - lu(k,1541) = lu(k,1541) - lu(k,885) * lu(k,1514) - lu(k,1542) = lu(k,1542) - lu(k,886) * lu(k,1514) - lu(k,1552) = lu(k,1552) - lu(k,867) * lu(k,1550) - lu(k,1555) = lu(k,1555) - lu(k,868) * lu(k,1550) - lu(k,1557) = lu(k,1557) - lu(k,869) * lu(k,1550) - lu(k,1558) = lu(k,1558) - lu(k,870) * lu(k,1550) - lu(k,1559) = lu(k,1559) - lu(k,871) * lu(k,1550) - lu(k,1561) = lu(k,1561) - lu(k,872) * lu(k,1550) - lu(k,1562) = lu(k,1562) - lu(k,873) * lu(k,1550) - lu(k,1563) = lu(k,1563) - lu(k,874) * lu(k,1550) - lu(k,1564) = lu(k,1564) - lu(k,875) * lu(k,1550) - lu(k,1565) = lu(k,1565) - lu(k,876) * lu(k,1550) - lu(k,1567) = lu(k,1567) - lu(k,877) * lu(k,1550) - lu(k,1568) = lu(k,1568) - lu(k,878) * lu(k,1550) - lu(k,1569) = lu(k,1569) - lu(k,879) * lu(k,1550) - lu(k,1570) = - lu(k,880) * lu(k,1550) - lu(k,1571) = lu(k,1571) - lu(k,881) * lu(k,1550) - lu(k,1572) = lu(k,1572) - lu(k,882) * lu(k,1550) - lu(k,1575) = lu(k,1575) - lu(k,883) * lu(k,1550) - lu(k,1576) = lu(k,1576) - lu(k,884) * lu(k,1550) - lu(k,1577) = lu(k,1577) - lu(k,885) * lu(k,1550) - lu(k,1578) = lu(k,1578) - lu(k,886) * lu(k,1550) - lu(k,1597) = lu(k,1597) - lu(k,867) * lu(k,1595) - lu(k,1600) = lu(k,1600) - lu(k,868) * lu(k,1595) - lu(k,1602) = lu(k,1602) - lu(k,869) * lu(k,1595) - lu(k,1603) = lu(k,1603) - lu(k,870) * lu(k,1595) - lu(k,1604) = lu(k,1604) - lu(k,871) * lu(k,1595) - lu(k,1606) = lu(k,1606) - lu(k,872) * lu(k,1595) - lu(k,1607) = lu(k,1607) - lu(k,873) * lu(k,1595) - lu(k,1608) = lu(k,1608) - lu(k,874) * lu(k,1595) - lu(k,1609) = lu(k,1609) - lu(k,875) * lu(k,1595) - lu(k,1610) = lu(k,1610) - lu(k,876) * lu(k,1595) - lu(k,1612) = lu(k,1612) - lu(k,877) * lu(k,1595) - lu(k,1613) = lu(k,1613) - lu(k,878) * lu(k,1595) - lu(k,1614) = lu(k,1614) - lu(k,879) * lu(k,1595) - lu(k,1615) = lu(k,1615) - lu(k,880) * lu(k,1595) - lu(k,1616) = lu(k,1616) - lu(k,881) * lu(k,1595) - lu(k,1617) = lu(k,1617) - lu(k,882) * lu(k,1595) - lu(k,1620) = lu(k,1620) - lu(k,883) * lu(k,1595) - lu(k,1621) = lu(k,1621) - lu(k,884) * lu(k,1595) - lu(k,1622) = lu(k,1622) - lu(k,885) * lu(k,1595) - lu(k,1623) = lu(k,1623) - lu(k,886) * lu(k,1595) - lu(k,1640) = lu(k,1640) - lu(k,867) * lu(k,1638) - lu(k,1643) = lu(k,1643) - lu(k,868) * lu(k,1638) - lu(k,1645) = lu(k,1645) - lu(k,869) * lu(k,1638) - lu(k,1646) = lu(k,1646) - lu(k,870) * lu(k,1638) - lu(k,1647) = lu(k,1647) - lu(k,871) * lu(k,1638) - lu(k,1649) = lu(k,1649) - lu(k,872) * lu(k,1638) - lu(k,1650) = lu(k,1650) - lu(k,873) * lu(k,1638) - lu(k,1651) = lu(k,1651) - lu(k,874) * lu(k,1638) - lu(k,1652) = lu(k,1652) - lu(k,875) * lu(k,1638) - lu(k,1653) = lu(k,1653) - lu(k,876) * lu(k,1638) - lu(k,1655) = lu(k,1655) - lu(k,877) * lu(k,1638) - lu(k,1656) = lu(k,1656) - lu(k,878) * lu(k,1638) - lu(k,1657) = lu(k,1657) - lu(k,879) * lu(k,1638) - lu(k,1658) = lu(k,1658) - lu(k,880) * lu(k,1638) - lu(k,1659) = lu(k,1659) - lu(k,881) * lu(k,1638) - lu(k,1660) = lu(k,1660) - lu(k,882) * lu(k,1638) - lu(k,1663) = lu(k,1663) - lu(k,883) * lu(k,1638) - lu(k,1664) = lu(k,1664) - lu(k,884) * lu(k,1638) - lu(k,1665) = lu(k,1665) - lu(k,885) * lu(k,1638) - lu(k,1666) = lu(k,1666) - lu(k,886) * lu(k,1638) - lu(k,1683) = lu(k,1683) - lu(k,867) * lu(k,1681) - lu(k,1686) = lu(k,1686) - lu(k,868) * lu(k,1681) - lu(k,1688) = lu(k,1688) - lu(k,869) * lu(k,1681) - lu(k,1689) = lu(k,1689) - lu(k,870) * lu(k,1681) - lu(k,1690) = lu(k,1690) - lu(k,871) * lu(k,1681) - lu(k,1692) = lu(k,1692) - lu(k,872) * lu(k,1681) - lu(k,1693) = lu(k,1693) - lu(k,873) * lu(k,1681) - lu(k,1694) = lu(k,1694) - lu(k,874) * lu(k,1681) - lu(k,1695) = lu(k,1695) - lu(k,875) * lu(k,1681) - lu(k,1696) = lu(k,1696) - lu(k,876) * lu(k,1681) - lu(k,1698) = lu(k,1698) - lu(k,877) * lu(k,1681) - lu(k,1699) = lu(k,1699) - lu(k,878) * lu(k,1681) - lu(k,1700) = lu(k,1700) - lu(k,879) * lu(k,1681) - lu(k,1701) = lu(k,1701) - lu(k,880) * lu(k,1681) - lu(k,1702) = lu(k,1702) - lu(k,881) * lu(k,1681) - lu(k,1703) = lu(k,1703) - lu(k,882) * lu(k,1681) - lu(k,1706) = lu(k,1706) - lu(k,883) * lu(k,1681) - lu(k,1707) = lu(k,1707) - lu(k,884) * lu(k,1681) - lu(k,1708) = lu(k,1708) - lu(k,885) * lu(k,1681) - lu(k,1709) = lu(k,1709) - lu(k,886) * lu(k,1681) - lu(k,1724) = - lu(k,867) * lu(k,1722) - lu(k,1726) = lu(k,1726) - lu(k,868) * lu(k,1722) - lu(k,1728) = lu(k,1728) - lu(k,869) * lu(k,1722) - lu(k,1729) = lu(k,1729) - lu(k,870) * lu(k,1722) - lu(k,1730) = lu(k,1730) - lu(k,871) * lu(k,1722) - lu(k,1732) = lu(k,1732) - lu(k,872) * lu(k,1722) - lu(k,1733) = lu(k,1733) - lu(k,873) * lu(k,1722) - lu(k,1734) = lu(k,1734) - lu(k,874) * lu(k,1722) - lu(k,1735) = lu(k,1735) - lu(k,875) * lu(k,1722) - lu(k,1736) = lu(k,1736) - lu(k,876) * lu(k,1722) - lu(k,1738) = lu(k,1738) - lu(k,877) * lu(k,1722) - lu(k,1739) = lu(k,1739) - lu(k,878) * lu(k,1722) - lu(k,1740) = lu(k,1740) - lu(k,879) * lu(k,1722) - lu(k,1741) = lu(k,1741) - lu(k,880) * lu(k,1722) - lu(k,1742) = lu(k,1742) - lu(k,881) * lu(k,1722) - lu(k,1743) = lu(k,1743) - lu(k,882) * lu(k,1722) - lu(k,1746) = lu(k,1746) - lu(k,883) * lu(k,1722) - lu(k,1747) = lu(k,1747) - lu(k,884) * lu(k,1722) - lu(k,1748) = lu(k,1748) - lu(k,885) * lu(k,1722) - lu(k,1749) = lu(k,1749) - lu(k,886) * lu(k,1722) - lu(k,1759) = lu(k,1759) - lu(k,867) * lu(k,1757) - lu(k,1762) = lu(k,1762) - lu(k,868) * lu(k,1757) - lu(k,1764) = lu(k,1764) - lu(k,869) * lu(k,1757) - lu(k,1765) = lu(k,1765) - lu(k,870) * lu(k,1757) - lu(k,1766) = lu(k,1766) - lu(k,871) * lu(k,1757) - lu(k,1768) = lu(k,1768) - lu(k,872) * lu(k,1757) - lu(k,1769) = lu(k,1769) - lu(k,873) * lu(k,1757) - lu(k,1770) = lu(k,1770) - lu(k,874) * lu(k,1757) - lu(k,1771) = lu(k,1771) - lu(k,875) * lu(k,1757) - lu(k,1772) = lu(k,1772) - lu(k,876) * lu(k,1757) - lu(k,1774) = lu(k,1774) - lu(k,877) * lu(k,1757) - lu(k,1775) = lu(k,1775) - lu(k,878) * lu(k,1757) - lu(k,1776) = lu(k,1776) - lu(k,879) * lu(k,1757) - lu(k,1777) = lu(k,1777) - lu(k,880) * lu(k,1757) - lu(k,1778) = lu(k,1778) - lu(k,881) * lu(k,1757) - lu(k,1779) = lu(k,1779) - lu(k,882) * lu(k,1757) - lu(k,1782) = lu(k,1782) - lu(k,883) * lu(k,1757) - lu(k,1783) = lu(k,1783) - lu(k,884) * lu(k,1757) - lu(k,1784) = lu(k,1784) - lu(k,885) * lu(k,1757) - lu(k,1785) = lu(k,1785) - lu(k,886) * lu(k,1757) - lu(k,1807) = lu(k,1807) - lu(k,867) * lu(k,1805) - lu(k,1810) = lu(k,1810) - lu(k,868) * lu(k,1805) - lu(k,1812) = lu(k,1812) - lu(k,869) * lu(k,1805) - lu(k,1813) = lu(k,1813) - lu(k,870) * lu(k,1805) - lu(k,1814) = lu(k,1814) - lu(k,871) * lu(k,1805) - lu(k,1816) = lu(k,1816) - lu(k,872) * lu(k,1805) - lu(k,1817) = lu(k,1817) - lu(k,873) * lu(k,1805) - lu(k,1818) = lu(k,1818) - lu(k,874) * lu(k,1805) - lu(k,1819) = lu(k,1819) - lu(k,875) * lu(k,1805) - lu(k,1820) = lu(k,1820) - lu(k,876) * lu(k,1805) - lu(k,1822) = lu(k,1822) - lu(k,877) * lu(k,1805) - lu(k,1823) = lu(k,1823) - lu(k,878) * lu(k,1805) - lu(k,1824) = lu(k,1824) - lu(k,879) * lu(k,1805) - lu(k,1825) = lu(k,1825) - lu(k,880) * lu(k,1805) - lu(k,1826) = lu(k,1826) - lu(k,881) * lu(k,1805) - lu(k,1827) = lu(k,1827) - lu(k,882) * lu(k,1805) - lu(k,1830) = lu(k,1830) - lu(k,883) * lu(k,1805) - lu(k,1831) = lu(k,1831) - lu(k,884) * lu(k,1805) - lu(k,1832) = lu(k,1832) - lu(k,885) * lu(k,1805) - lu(k,1833) = lu(k,1833) - lu(k,886) * lu(k,1805) - lu(k,1840) = lu(k,1840) - lu(k,867) * lu(k,1838) - lu(k,1843) = lu(k,1843) - lu(k,868) * lu(k,1838) - lu(k,1845) = lu(k,1845) - lu(k,869) * lu(k,1838) - lu(k,1846) = lu(k,1846) - lu(k,870) * lu(k,1838) - lu(k,1847) = lu(k,1847) - lu(k,871) * lu(k,1838) - lu(k,1849) = lu(k,1849) - lu(k,872) * lu(k,1838) - lu(k,1850) = lu(k,1850) - lu(k,873) * lu(k,1838) - lu(k,1851) = lu(k,1851) - lu(k,874) * lu(k,1838) - lu(k,1852) = lu(k,1852) - lu(k,875) * lu(k,1838) - lu(k,1853) = lu(k,1853) - lu(k,876) * lu(k,1838) - lu(k,1855) = lu(k,1855) - lu(k,877) * lu(k,1838) - lu(k,1856) = lu(k,1856) - lu(k,878) * lu(k,1838) - lu(k,1857) = lu(k,1857) - lu(k,879) * lu(k,1838) - lu(k,1858) = - lu(k,880) * lu(k,1838) - lu(k,1859) = lu(k,1859) - lu(k,881) * lu(k,1838) - lu(k,1860) = lu(k,1860) - lu(k,882) * lu(k,1838) - lu(k,1863) = lu(k,1863) - lu(k,883) * lu(k,1838) - lu(k,1864) = lu(k,1864) - lu(k,884) * lu(k,1838) - lu(k,1865) = lu(k,1865) - lu(k,885) * lu(k,1838) - lu(k,1866) = lu(k,1866) - lu(k,886) * lu(k,1838) - lu(k,1876) = lu(k,1876) - lu(k,867) * lu(k,1874) - lu(k,1879) = lu(k,1879) - lu(k,868) * lu(k,1874) - lu(k,1881) = lu(k,1881) - lu(k,869) * lu(k,1874) - lu(k,1882) = lu(k,1882) - lu(k,870) * lu(k,1874) - lu(k,1883) = lu(k,1883) - lu(k,871) * lu(k,1874) - lu(k,1885) = lu(k,1885) - lu(k,872) * lu(k,1874) - lu(k,1886) = lu(k,1886) - lu(k,873) * lu(k,1874) - lu(k,1887) = lu(k,1887) - lu(k,874) * lu(k,1874) - lu(k,1888) = lu(k,1888) - lu(k,875) * lu(k,1874) - lu(k,1889) = lu(k,1889) - lu(k,876) * lu(k,1874) - lu(k,1891) = lu(k,1891) - lu(k,877) * lu(k,1874) - lu(k,1892) = lu(k,1892) - lu(k,878) * lu(k,1874) - lu(k,1893) = lu(k,1893) - lu(k,879) * lu(k,1874) - lu(k,1894) = lu(k,1894) - lu(k,880) * lu(k,1874) - lu(k,1895) = lu(k,1895) - lu(k,881) * lu(k,1874) - lu(k,1896) = lu(k,1896) - lu(k,882) * lu(k,1874) - lu(k,1899) = lu(k,1899) - lu(k,883) * lu(k,1874) - lu(k,1900) = lu(k,1900) - lu(k,884) * lu(k,1874) - lu(k,1901) = lu(k,1901) - lu(k,885) * lu(k,1874) - lu(k,1902) = lu(k,1902) - lu(k,886) * lu(k,1874) - lu(k,1917) = lu(k,1917) - lu(k,867) * lu(k,1915) - lu(k,1920) = lu(k,1920) - lu(k,868) * lu(k,1915) - lu(k,1922) = lu(k,1922) - lu(k,869) * lu(k,1915) - lu(k,1923) = lu(k,1923) - lu(k,870) * lu(k,1915) - lu(k,1924) = lu(k,1924) - lu(k,871) * lu(k,1915) - lu(k,1926) = lu(k,1926) - lu(k,872) * lu(k,1915) - lu(k,1927) = lu(k,1927) - lu(k,873) * lu(k,1915) - lu(k,1928) = lu(k,1928) - lu(k,874) * lu(k,1915) - lu(k,1929) = lu(k,1929) - lu(k,875) * lu(k,1915) - lu(k,1930) = lu(k,1930) - lu(k,876) * lu(k,1915) - lu(k,1932) = lu(k,1932) - lu(k,877) * lu(k,1915) - lu(k,1933) = lu(k,1933) - lu(k,878) * lu(k,1915) - lu(k,1934) = lu(k,1934) - lu(k,879) * lu(k,1915) - lu(k,1935) = lu(k,1935) - lu(k,880) * lu(k,1915) - lu(k,1936) = lu(k,1936) - lu(k,881) * lu(k,1915) - lu(k,1937) = lu(k,1937) - lu(k,882) * lu(k,1915) - lu(k,1940) = lu(k,1940) - lu(k,883) * lu(k,1915) - lu(k,1941) = lu(k,1941) - lu(k,884) * lu(k,1915) - lu(k,1942) = lu(k,1942) - lu(k,885) * lu(k,1915) - lu(k,1943) = lu(k,1943) - lu(k,886) * lu(k,1915) - lu(k,1959) = lu(k,1959) - lu(k,867) * lu(k,1957) - lu(k,1962) = lu(k,1962) - lu(k,868) * lu(k,1957) - lu(k,1964) = lu(k,1964) - lu(k,869) * lu(k,1957) - lu(k,1965) = lu(k,1965) - lu(k,870) * lu(k,1957) - lu(k,1966) = lu(k,1966) - lu(k,871) * lu(k,1957) - lu(k,1968) = lu(k,1968) - lu(k,872) * lu(k,1957) - lu(k,1969) = lu(k,1969) - lu(k,873) * lu(k,1957) - lu(k,1970) = lu(k,1970) - lu(k,874) * lu(k,1957) - lu(k,1971) = lu(k,1971) - lu(k,875) * lu(k,1957) - lu(k,1972) = lu(k,1972) - lu(k,876) * lu(k,1957) - lu(k,1974) = lu(k,1974) - lu(k,877) * lu(k,1957) - lu(k,1975) = lu(k,1975) - lu(k,878) * lu(k,1957) - lu(k,1976) = lu(k,1976) - lu(k,879) * lu(k,1957) - lu(k,1977) = lu(k,1977) - lu(k,880) * lu(k,1957) - lu(k,1978) = lu(k,1978) - lu(k,881) * lu(k,1957) - lu(k,1979) = lu(k,1979) - lu(k,882) * lu(k,1957) - lu(k,1982) = lu(k,1982) - lu(k,883) * lu(k,1957) - lu(k,1983) = lu(k,1983) - lu(k,884) * lu(k,1957) - lu(k,1984) = lu(k,1984) - lu(k,885) * lu(k,1957) - lu(k,1985) = lu(k,1985) - lu(k,886) * lu(k,1957) - lu(k,2004) = lu(k,2004) - lu(k,867) * lu(k,2002) - lu(k,2007) = lu(k,2007) - lu(k,868) * lu(k,2002) - lu(k,2009) = lu(k,2009) - lu(k,869) * lu(k,2002) - lu(k,2010) = lu(k,2010) - lu(k,870) * lu(k,2002) - lu(k,2011) = lu(k,2011) - lu(k,871) * lu(k,2002) - lu(k,2013) = lu(k,2013) - lu(k,872) * lu(k,2002) - lu(k,2014) = lu(k,2014) - lu(k,873) * lu(k,2002) - lu(k,2015) = lu(k,2015) - lu(k,874) * lu(k,2002) - lu(k,2016) = lu(k,2016) - lu(k,875) * lu(k,2002) - lu(k,2017) = lu(k,2017) - lu(k,876) * lu(k,2002) - lu(k,2019) = lu(k,2019) - lu(k,877) * lu(k,2002) - lu(k,2020) = lu(k,2020) - lu(k,878) * lu(k,2002) - lu(k,2021) = lu(k,2021) - lu(k,879) * lu(k,2002) - lu(k,2022) = lu(k,2022) - lu(k,880) * lu(k,2002) - lu(k,2023) = lu(k,2023) - lu(k,881) * lu(k,2002) - lu(k,2024) = lu(k,2024) - lu(k,882) * lu(k,2002) - lu(k,2027) = lu(k,2027) - lu(k,883) * lu(k,2002) - lu(k,2028) = lu(k,2028) - lu(k,884) * lu(k,2002) - lu(k,2029) = lu(k,2029) - lu(k,885) * lu(k,2002) - lu(k,2030) = lu(k,2030) - lu(k,886) * lu(k,2002) - lu(k,2064) = lu(k,2064) - lu(k,867) * lu(k,2062) - lu(k,2067) = lu(k,2067) - lu(k,868) * lu(k,2062) - lu(k,2069) = lu(k,2069) - lu(k,869) * lu(k,2062) - lu(k,2070) = lu(k,2070) - lu(k,870) * lu(k,2062) - lu(k,2071) = lu(k,2071) - lu(k,871) * lu(k,2062) - lu(k,2073) = lu(k,2073) - lu(k,872) * lu(k,2062) - lu(k,2074) = lu(k,2074) - lu(k,873) * lu(k,2062) - lu(k,2075) = lu(k,2075) - lu(k,874) * lu(k,2062) - lu(k,2076) = lu(k,2076) - lu(k,875) * lu(k,2062) - lu(k,2077) = lu(k,2077) - lu(k,876) * lu(k,2062) - lu(k,2079) = lu(k,2079) - lu(k,877) * lu(k,2062) - lu(k,2080) = lu(k,2080) - lu(k,878) * lu(k,2062) - lu(k,2081) = lu(k,2081) - lu(k,879) * lu(k,2062) - lu(k,2082) = lu(k,2082) - lu(k,880) * lu(k,2062) - lu(k,2083) = lu(k,2083) - lu(k,881) * lu(k,2062) - lu(k,2084) = lu(k,2084) - lu(k,882) * lu(k,2062) - lu(k,2087) = lu(k,2087) - lu(k,883) * lu(k,2062) - lu(k,2088) = lu(k,2088) - lu(k,884) * lu(k,2062) - lu(k,2089) = lu(k,2089) - lu(k,885) * lu(k,2062) - lu(k,2090) = lu(k,2090) - lu(k,886) * lu(k,2062) - lu(k,900) = 1._r8 / lu(k,900) - lu(k,901) = lu(k,901) * lu(k,900) - lu(k,902) = lu(k,902) * lu(k,900) - lu(k,903) = lu(k,903) * lu(k,900) - lu(k,904) = lu(k,904) * lu(k,900) - lu(k,905) = lu(k,905) * lu(k,900) - lu(k,906) = lu(k,906) * lu(k,900) - lu(k,907) = lu(k,907) * lu(k,900) - lu(k,908) = lu(k,908) * lu(k,900) - lu(k,909) = lu(k,909) * lu(k,900) - lu(k,910) = lu(k,910) * lu(k,900) - lu(k,911) = lu(k,911) * lu(k,900) - lu(k,912) = lu(k,912) * lu(k,900) - lu(k,913) = lu(k,913) * lu(k,900) - lu(k,914) = lu(k,914) * lu(k,900) - lu(k,915) = lu(k,915) * lu(k,900) - lu(k,916) = lu(k,916) * lu(k,900) - lu(k,917) = lu(k,917) * lu(k,900) - lu(k,918) = lu(k,918) * lu(k,900) - lu(k,919) = lu(k,919) * lu(k,900) - lu(k,920) = lu(k,920) * lu(k,900) - lu(k,921) = lu(k,921) * lu(k,900) - lu(k,984) = lu(k,984) - lu(k,901) * lu(k,983) - lu(k,985) = lu(k,985) - lu(k,902) * lu(k,983) - lu(k,986) = lu(k,986) - lu(k,903) * lu(k,983) - lu(k,988) = lu(k,988) - lu(k,904) * lu(k,983) - lu(k,989) = lu(k,989) - lu(k,905) * lu(k,983) - lu(k,990) = lu(k,990) - lu(k,906) * lu(k,983) - lu(k,991) = lu(k,991) - lu(k,907) * lu(k,983) - lu(k,992) = lu(k,992) - lu(k,908) * lu(k,983) - lu(k,993) = lu(k,993) - lu(k,909) * lu(k,983) - lu(k,994) = lu(k,994) - lu(k,910) * lu(k,983) - lu(k,995) = lu(k,995) - lu(k,911) * lu(k,983) - lu(k,996) = lu(k,996) - lu(k,912) * lu(k,983) - lu(k,997) = lu(k,997) - lu(k,913) * lu(k,983) - lu(k,998) = lu(k,998) - lu(k,914) * lu(k,983) - lu(k,999) = lu(k,999) - lu(k,915) * lu(k,983) - lu(k,1000) = lu(k,1000) - lu(k,916) * lu(k,983) - lu(k,1001) = lu(k,1001) - lu(k,917) * lu(k,983) - lu(k,1002) = lu(k,1002) - lu(k,918) * lu(k,983) - lu(k,1003) = lu(k,1003) - lu(k,919) * lu(k,983) - lu(k,1004) = lu(k,1004) - lu(k,920) * lu(k,983) - lu(k,1005) = lu(k,1005) - lu(k,921) * lu(k,983) - lu(k,1057) = lu(k,1057) - lu(k,901) * lu(k,1056) - lu(k,1058) = lu(k,1058) - lu(k,902) * lu(k,1056) - lu(k,1059) = lu(k,1059) - lu(k,903) * lu(k,1056) - lu(k,1062) = lu(k,1062) - lu(k,904) * lu(k,1056) - lu(k,1063) = lu(k,1063) - lu(k,905) * lu(k,1056) - lu(k,1064) = lu(k,1064) - lu(k,906) * lu(k,1056) - lu(k,1065) = lu(k,1065) - lu(k,907) * lu(k,1056) - lu(k,1066) = lu(k,1066) - lu(k,908) * lu(k,1056) - lu(k,1067) = lu(k,1067) - lu(k,909) * lu(k,1056) - lu(k,1068) = lu(k,1068) - lu(k,910) * lu(k,1056) - lu(k,1069) = lu(k,1069) - lu(k,911) * lu(k,1056) - lu(k,1070) = lu(k,1070) - lu(k,912) * lu(k,1056) - lu(k,1073) = lu(k,1073) - lu(k,913) * lu(k,1056) - lu(k,1074) = lu(k,1074) - lu(k,914) * lu(k,1056) - lu(k,1075) = lu(k,1075) - lu(k,915) * lu(k,1056) - lu(k,1076) = lu(k,1076) - lu(k,916) * lu(k,1056) - lu(k,1077) = lu(k,1077) - lu(k,917) * lu(k,1056) - lu(k,1078) = lu(k,1078) - lu(k,918) * lu(k,1056) - lu(k,1079) = lu(k,1079) - lu(k,919) * lu(k,1056) - lu(k,1080) = lu(k,1080) - lu(k,920) * lu(k,1056) - lu(k,1081) = lu(k,1081) - lu(k,921) * lu(k,1056) - lu(k,1101) = lu(k,1101) - lu(k,901) * lu(k,1099) - lu(k,1103) = lu(k,1103) - lu(k,902) * lu(k,1099) - lu(k,1104) = lu(k,1104) - lu(k,903) * lu(k,1099) - lu(k,1107) = lu(k,1107) - lu(k,904) * lu(k,1099) - lu(k,1108) = lu(k,1108) - lu(k,905) * lu(k,1099) - lu(k,1109) = lu(k,1109) - lu(k,906) * lu(k,1099) - lu(k,1110) = lu(k,1110) - lu(k,907) * lu(k,1099) - lu(k,1111) = lu(k,1111) - lu(k,908) * lu(k,1099) - lu(k,1112) = lu(k,1112) - lu(k,909) * lu(k,1099) - lu(k,1113) = lu(k,1113) - lu(k,910) * lu(k,1099) - lu(k,1114) = lu(k,1114) - lu(k,911) * lu(k,1099) - lu(k,1115) = lu(k,1115) - lu(k,912) * lu(k,1099) - lu(k,1118) = lu(k,1118) - lu(k,913) * lu(k,1099) - lu(k,1119) = lu(k,1119) - lu(k,914) * lu(k,1099) - lu(k,1120) = lu(k,1120) - lu(k,915) * lu(k,1099) - lu(k,1121) = lu(k,1121) - lu(k,916) * lu(k,1099) - lu(k,1122) = lu(k,1122) - lu(k,917) * lu(k,1099) - lu(k,1123) = lu(k,1123) - lu(k,918) * lu(k,1099) - lu(k,1124) = lu(k,1124) - lu(k,919) * lu(k,1099) - lu(k,1125) = lu(k,1125) - lu(k,920) * lu(k,1099) - lu(k,1126) = lu(k,1126) - lu(k,921) * lu(k,1099) - lu(k,1149) = lu(k,1149) - lu(k,901) * lu(k,1147) - lu(k,1151) = lu(k,1151) - lu(k,902) * lu(k,1147) - lu(k,1152) = lu(k,1152) - lu(k,903) * lu(k,1147) - lu(k,1155) = lu(k,1155) - lu(k,904) * lu(k,1147) - lu(k,1156) = lu(k,1156) - lu(k,905) * lu(k,1147) - lu(k,1157) = lu(k,1157) - lu(k,906) * lu(k,1147) - lu(k,1158) = lu(k,1158) - lu(k,907) * lu(k,1147) - lu(k,1159) = lu(k,1159) - lu(k,908) * lu(k,1147) - lu(k,1160) = lu(k,1160) - lu(k,909) * lu(k,1147) - lu(k,1161) = lu(k,1161) - lu(k,910) * lu(k,1147) - lu(k,1162) = lu(k,1162) - lu(k,911) * lu(k,1147) - lu(k,1163) = lu(k,1163) - lu(k,912) * lu(k,1147) - lu(k,1166) = lu(k,1166) - lu(k,913) * lu(k,1147) - lu(k,1167) = lu(k,1167) - lu(k,914) * lu(k,1147) - lu(k,1168) = lu(k,1168) - lu(k,915) * lu(k,1147) - lu(k,1169) = lu(k,1169) - lu(k,916) * lu(k,1147) - lu(k,1170) = lu(k,1170) - lu(k,917) * lu(k,1147) - lu(k,1171) = lu(k,1171) - lu(k,918) * lu(k,1147) - lu(k,1172) = lu(k,1172) - lu(k,919) * lu(k,1147) - lu(k,1173) = lu(k,1173) - lu(k,920) * lu(k,1147) - lu(k,1174) = lu(k,1174) - lu(k,921) * lu(k,1147) - lu(k,1192) = lu(k,1192) - lu(k,901) * lu(k,1190) - lu(k,1194) = lu(k,1194) - lu(k,902) * lu(k,1190) - lu(k,1195) = lu(k,1195) - lu(k,903) * lu(k,1190) - lu(k,1198) = lu(k,1198) - lu(k,904) * lu(k,1190) - lu(k,1199) = lu(k,1199) - lu(k,905) * lu(k,1190) - lu(k,1200) = lu(k,1200) - lu(k,906) * lu(k,1190) - lu(k,1201) = lu(k,1201) - lu(k,907) * lu(k,1190) - lu(k,1202) = lu(k,1202) - lu(k,908) * lu(k,1190) - lu(k,1203) = lu(k,1203) - lu(k,909) * lu(k,1190) - lu(k,1204) = lu(k,1204) - lu(k,910) * lu(k,1190) - lu(k,1205) = lu(k,1205) - lu(k,911) * lu(k,1190) - lu(k,1206) = lu(k,1206) - lu(k,912) * lu(k,1190) - lu(k,1209) = lu(k,1209) - lu(k,913) * lu(k,1190) - lu(k,1210) = lu(k,1210) - lu(k,914) * lu(k,1190) - lu(k,1211) = lu(k,1211) - lu(k,915) * lu(k,1190) - lu(k,1212) = lu(k,1212) - lu(k,916) * lu(k,1190) - lu(k,1213) = lu(k,1213) - lu(k,917) * lu(k,1190) - lu(k,1214) = lu(k,1214) - lu(k,918) * lu(k,1190) - lu(k,1215) = lu(k,1215) - lu(k,919) * lu(k,1190) - lu(k,1216) = lu(k,1216) - lu(k,920) * lu(k,1190) - lu(k,1217) = lu(k,1217) - lu(k,921) * lu(k,1190) - lu(k,1235) = lu(k,1235) - lu(k,901) * lu(k,1233) - lu(k,1237) = lu(k,1237) - lu(k,902) * lu(k,1233) - lu(k,1238) = lu(k,1238) - lu(k,903) * lu(k,1233) - lu(k,1241) = lu(k,1241) - lu(k,904) * lu(k,1233) - lu(k,1242) = lu(k,1242) - lu(k,905) * lu(k,1233) - lu(k,1243) = lu(k,1243) - lu(k,906) * lu(k,1233) - lu(k,1244) = lu(k,1244) - lu(k,907) * lu(k,1233) - lu(k,1245) = lu(k,1245) - lu(k,908) * lu(k,1233) - lu(k,1246) = lu(k,1246) - lu(k,909) * lu(k,1233) - lu(k,1247) = lu(k,1247) - lu(k,910) * lu(k,1233) - lu(k,1248) = lu(k,1248) - lu(k,911) * lu(k,1233) - lu(k,1249) = lu(k,1249) - lu(k,912) * lu(k,1233) - lu(k,1252) = lu(k,1252) - lu(k,913) * lu(k,1233) - lu(k,1253) = lu(k,1253) - lu(k,914) * lu(k,1233) - lu(k,1254) = lu(k,1254) - lu(k,915) * lu(k,1233) - lu(k,1255) = lu(k,1255) - lu(k,916) * lu(k,1233) - lu(k,1256) = lu(k,1256) - lu(k,917) * lu(k,1233) - lu(k,1257) = lu(k,1257) - lu(k,918) * lu(k,1233) - lu(k,1258) = lu(k,1258) - lu(k,919) * lu(k,1233) - lu(k,1259) = lu(k,1259) - lu(k,920) * lu(k,1233) - lu(k,1260) = lu(k,1260) - lu(k,921) * lu(k,1233) - lu(k,1277) = lu(k,1277) - lu(k,901) * lu(k,1275) - lu(k,1279) = lu(k,1279) - lu(k,902) * lu(k,1275) - lu(k,1280) = lu(k,1280) - lu(k,903) * lu(k,1275) - lu(k,1283) = lu(k,1283) - lu(k,904) * lu(k,1275) - lu(k,1284) = lu(k,1284) - lu(k,905) * lu(k,1275) - lu(k,1285) = lu(k,1285) - lu(k,906) * lu(k,1275) - lu(k,1286) = lu(k,1286) - lu(k,907) * lu(k,1275) - lu(k,1287) = lu(k,1287) - lu(k,908) * lu(k,1275) + lu(k,813) = 1._r8 / lu(k,813) + lu(k,814) = lu(k,814) * lu(k,813) + lu(k,815) = lu(k,815) * lu(k,813) + lu(k,816) = lu(k,816) * lu(k,813) + lu(k,817) = lu(k,817) * lu(k,813) + lu(k,818) = lu(k,818) * lu(k,813) + lu(k,819) = lu(k,819) * lu(k,813) + lu(k,820) = lu(k,820) * lu(k,813) + lu(k,821) = lu(k,821) * lu(k,813) + lu(k,822) = lu(k,822) * lu(k,813) + lu(k,823) = lu(k,823) * lu(k,813) + lu(k,824) = lu(k,824) * lu(k,813) + lu(k,825) = lu(k,825) * lu(k,813) + lu(k,826) = lu(k,826) * lu(k,813) + lu(k,827) = lu(k,827) * lu(k,813) + lu(k,828) = lu(k,828) * lu(k,813) + lu(k,829) = lu(k,829) * lu(k,813) + lu(k,830) = lu(k,830) * lu(k,813) + lu(k,831) = lu(k,831) * lu(k,813) + lu(k,836) = lu(k,836) - lu(k,814) * lu(k,834) + lu(k,838) = lu(k,838) - lu(k,815) * lu(k,834) + lu(k,841) = lu(k,841) - lu(k,816) * lu(k,834) + lu(k,843) = lu(k,843) - lu(k,817) * lu(k,834) + lu(k,844) = lu(k,844) - lu(k,818) * lu(k,834) + lu(k,846) = lu(k,846) - lu(k,819) * lu(k,834) + lu(k,847) = lu(k,847) - lu(k,820) * lu(k,834) + lu(k,849) = lu(k,849) - lu(k,821) * lu(k,834) + lu(k,850) = lu(k,850) - lu(k,822) * lu(k,834) + lu(k,851) = - lu(k,823) * lu(k,834) + lu(k,853) = lu(k,853) - lu(k,824) * lu(k,834) + lu(k,854) = lu(k,854) - lu(k,825) * lu(k,834) + lu(k,856) = lu(k,856) - lu(k,826) * lu(k,834) + lu(k,857) = lu(k,857) - lu(k,827) * lu(k,834) + lu(k,860) = lu(k,860) - lu(k,828) * lu(k,834) + lu(k,861) = lu(k,861) - lu(k,829) * lu(k,834) + lu(k,862) = lu(k,862) - lu(k,830) * lu(k,834) + lu(k,863) = lu(k,863) - lu(k,831) * lu(k,834) + lu(k,868) = lu(k,868) - lu(k,814) * lu(k,867) + lu(k,869) = lu(k,869) - lu(k,815) * lu(k,867) + lu(k,870) = lu(k,870) - lu(k,816) * lu(k,867) + lu(k,871) = lu(k,871) - lu(k,817) * lu(k,867) + lu(k,872) = lu(k,872) - lu(k,818) * lu(k,867) + lu(k,874) = lu(k,874) - lu(k,819) * lu(k,867) + lu(k,875) = lu(k,875) - lu(k,820) * lu(k,867) + lu(k,877) = lu(k,877) - lu(k,821) * lu(k,867) + lu(k,878) = - lu(k,822) * lu(k,867) + lu(k,879) = lu(k,879) - lu(k,823) * lu(k,867) + lu(k,880) = lu(k,880) - lu(k,824) * lu(k,867) + lu(k,881) = lu(k,881) - lu(k,825) * lu(k,867) + lu(k,883) = lu(k,883) - lu(k,826) * lu(k,867) + lu(k,884) = lu(k,884) - lu(k,827) * lu(k,867) + lu(k,885) = lu(k,885) - lu(k,828) * lu(k,867) + lu(k,886) = lu(k,886) - lu(k,829) * lu(k,867) + lu(k,887) = lu(k,887) - lu(k,830) * lu(k,867) + lu(k,888) = lu(k,888) - lu(k,831) * lu(k,867) + lu(k,927) = lu(k,927) - lu(k,814) * lu(k,926) + lu(k,928) = lu(k,928) - lu(k,815) * lu(k,926) + lu(k,930) = lu(k,930) - lu(k,816) * lu(k,926) + lu(k,932) = lu(k,932) - lu(k,817) * lu(k,926) + lu(k,933) = lu(k,933) - lu(k,818) * lu(k,926) + lu(k,935) = lu(k,935) - lu(k,819) * lu(k,926) + lu(k,936) = lu(k,936) - lu(k,820) * lu(k,926) + lu(k,938) = lu(k,938) - lu(k,821) * lu(k,926) + lu(k,939) = lu(k,939) - lu(k,822) * lu(k,926) + lu(k,940) = lu(k,940) - lu(k,823) * lu(k,926) + lu(k,941) = lu(k,941) - lu(k,824) * lu(k,926) + lu(k,942) = lu(k,942) - lu(k,825) * lu(k,926) + lu(k,944) = lu(k,944) - lu(k,826) * lu(k,926) + lu(k,945) = lu(k,945) - lu(k,827) * lu(k,926) + lu(k,947) = lu(k,947) - lu(k,828) * lu(k,926) + lu(k,948) = lu(k,948) - lu(k,829) * lu(k,926) + lu(k,949) = lu(k,949) - lu(k,830) * lu(k,926) + lu(k,950) = lu(k,950) - lu(k,831) * lu(k,926) + lu(k,1013) = lu(k,1013) - lu(k,814) * lu(k,1012) + lu(k,1014) = lu(k,1014) - lu(k,815) * lu(k,1012) + lu(k,1017) = lu(k,1017) - lu(k,816) * lu(k,1012) + lu(k,1019) = lu(k,1019) - lu(k,817) * lu(k,1012) + lu(k,1020) = lu(k,1020) - lu(k,818) * lu(k,1012) + lu(k,1022) = lu(k,1022) - lu(k,819) * lu(k,1012) + lu(k,1023) = lu(k,1023) - lu(k,820) * lu(k,1012) + lu(k,1025) = lu(k,1025) - lu(k,821) * lu(k,1012) + lu(k,1026) = lu(k,1026) - lu(k,822) * lu(k,1012) + lu(k,1027) = lu(k,1027) - lu(k,823) * lu(k,1012) + lu(k,1029) = lu(k,1029) - lu(k,824) * lu(k,1012) + lu(k,1030) = lu(k,1030) - lu(k,825) * lu(k,1012) + lu(k,1033) = lu(k,1033) - lu(k,826) * lu(k,1012) + lu(k,1034) = lu(k,1034) - lu(k,827) * lu(k,1012) + lu(k,1037) = lu(k,1037) - lu(k,828) * lu(k,1012) + lu(k,1038) = lu(k,1038) - lu(k,829) * lu(k,1012) + lu(k,1039) = - lu(k,830) * lu(k,1012) + lu(k,1040) = lu(k,1040) - lu(k,831) * lu(k,1012) + lu(k,1100) = - lu(k,814) * lu(k,1098) + lu(k,1102) = lu(k,1102) - lu(k,815) * lu(k,1098) + lu(k,1105) = lu(k,1105) - lu(k,816) * lu(k,1098) + lu(k,1107) = - lu(k,817) * lu(k,1098) + lu(k,1108) = - lu(k,818) * lu(k,1098) + lu(k,1110) = - lu(k,819) * lu(k,1098) + lu(k,1111) = - lu(k,820) * lu(k,1098) + lu(k,1113) = - lu(k,821) * lu(k,1098) + lu(k,1114) = lu(k,1114) - lu(k,822) * lu(k,1098) + lu(k,1115) = lu(k,1115) - lu(k,823) * lu(k,1098) + lu(k,1117) = lu(k,1117) - lu(k,824) * lu(k,1098) + lu(k,1118) = lu(k,1118) - lu(k,825) * lu(k,1098) + lu(k,1121) = lu(k,1121) - lu(k,826) * lu(k,1098) + lu(k,1122) = lu(k,1122) - lu(k,827) * lu(k,1098) + lu(k,1125) = lu(k,1125) - lu(k,828) * lu(k,1098) + lu(k,1126) = lu(k,1126) - lu(k,829) * lu(k,1098) + lu(k,1127) = lu(k,1127) - lu(k,830) * lu(k,1098) + lu(k,1128) = lu(k,1128) - lu(k,831) * lu(k,1098) + lu(k,1147) = lu(k,1147) - lu(k,814) * lu(k,1145) + lu(k,1149) = lu(k,1149) - lu(k,815) * lu(k,1145) + lu(k,1152) = lu(k,1152) - lu(k,816) * lu(k,1145) + lu(k,1154) = lu(k,1154) - lu(k,817) * lu(k,1145) + lu(k,1155) = lu(k,1155) - lu(k,818) * lu(k,1145) + lu(k,1157) = lu(k,1157) - lu(k,819) * lu(k,1145) + lu(k,1158) = lu(k,1158) - lu(k,820) * lu(k,1145) + lu(k,1160) = lu(k,1160) - lu(k,821) * lu(k,1145) + lu(k,1161) = lu(k,1161) - lu(k,822) * lu(k,1145) + lu(k,1162) = lu(k,1162) - lu(k,823) * lu(k,1145) + lu(k,1164) = lu(k,1164) - lu(k,824) * lu(k,1145) + lu(k,1165) = lu(k,1165) - lu(k,825) * lu(k,1145) + lu(k,1168) = lu(k,1168) - lu(k,826) * lu(k,1145) + lu(k,1169) = lu(k,1169) - lu(k,827) * lu(k,1145) + lu(k,1172) = lu(k,1172) - lu(k,828) * lu(k,1145) + lu(k,1173) = lu(k,1173) - lu(k,829) * lu(k,1145) + lu(k,1174) = lu(k,1174) - lu(k,830) * lu(k,1145) + lu(k,1175) = lu(k,1175) - lu(k,831) * lu(k,1145) + lu(k,1190) = lu(k,1190) - lu(k,814) * lu(k,1188) + lu(k,1192) = lu(k,1192) - lu(k,815) * lu(k,1188) + lu(k,1195) = lu(k,1195) - lu(k,816) * lu(k,1188) + lu(k,1197) = lu(k,1197) - lu(k,817) * lu(k,1188) + lu(k,1198) = lu(k,1198) - lu(k,818) * lu(k,1188) + lu(k,1200) = lu(k,1200) - lu(k,819) * lu(k,1188) + lu(k,1201) = lu(k,1201) - lu(k,820) * lu(k,1188) + lu(k,1203) = lu(k,1203) - lu(k,821) * lu(k,1188) + lu(k,1204) = lu(k,1204) - lu(k,822) * lu(k,1188) + lu(k,1205) = lu(k,1205) - lu(k,823) * lu(k,1188) + lu(k,1207) = lu(k,1207) - lu(k,824) * lu(k,1188) + lu(k,1208) = lu(k,1208) - lu(k,825) * lu(k,1188) + lu(k,1211) = lu(k,1211) - lu(k,826) * lu(k,1188) + lu(k,1212) = lu(k,1212) - lu(k,827) * lu(k,1188) + lu(k,1215) = lu(k,1215) - lu(k,828) * lu(k,1188) + lu(k,1216) = lu(k,1216) - lu(k,829) * lu(k,1188) + lu(k,1217) = lu(k,1217) - lu(k,830) * lu(k,1188) + lu(k,1218) = lu(k,1218) - lu(k,831) * lu(k,1188) + lu(k,1274) = lu(k,1274) - lu(k,814) * lu(k,1272) + lu(k,1276) = lu(k,1276) - lu(k,815) * lu(k,1272) + lu(k,1279) = lu(k,1279) - lu(k,816) * lu(k,1272) + lu(k,1281) = lu(k,1281) - lu(k,817) * lu(k,1272) + lu(k,1282) = lu(k,1282) - lu(k,818) * lu(k,1272) + lu(k,1284) = lu(k,1284) - lu(k,819) * lu(k,1272) + lu(k,1285) = lu(k,1285) - lu(k,820) * lu(k,1272) + lu(k,1287) = lu(k,1287) - lu(k,821) * lu(k,1272) + lu(k,1288) = lu(k,1288) - lu(k,822) * lu(k,1272) + lu(k,1289) = lu(k,1289) - lu(k,823) * lu(k,1272) + lu(k,1291) = lu(k,1291) - lu(k,824) * lu(k,1272) + lu(k,1292) = lu(k,1292) - lu(k,825) * lu(k,1272) + lu(k,1295) = lu(k,1295) - lu(k,826) * lu(k,1272) + lu(k,1296) = lu(k,1296) - lu(k,827) * lu(k,1272) + lu(k,1299) = lu(k,1299) - lu(k,828) * lu(k,1272) + lu(k,1300) = lu(k,1300) - lu(k,829) * lu(k,1272) + lu(k,1301) = lu(k,1301) - lu(k,830) * lu(k,1272) + lu(k,1302) = lu(k,1302) - lu(k,831) * lu(k,1272) + lu(k,1316) = lu(k,1316) - lu(k,814) * lu(k,1314) + lu(k,1318) = lu(k,1318) - lu(k,815) * lu(k,1314) + lu(k,1321) = lu(k,1321) - lu(k,816) * lu(k,1314) + lu(k,1323) = lu(k,1323) - lu(k,817) * lu(k,1314) + lu(k,1324) = lu(k,1324) - lu(k,818) * lu(k,1314) + lu(k,1326) = lu(k,1326) - lu(k,819) * lu(k,1314) + lu(k,1327) = lu(k,1327) - lu(k,820) * lu(k,1314) + lu(k,1329) = lu(k,1329) - lu(k,821) * lu(k,1314) + lu(k,1330) = lu(k,1330) - lu(k,822) * lu(k,1314) + lu(k,1331) = lu(k,1331) - lu(k,823) * lu(k,1314) + lu(k,1333) = lu(k,1333) - lu(k,824) * lu(k,1314) + lu(k,1334) = lu(k,1334) - lu(k,825) * lu(k,1314) + lu(k,1337) = lu(k,1337) - lu(k,826) * lu(k,1314) + lu(k,1338) = lu(k,1338) - lu(k,827) * lu(k,1314) + lu(k,1341) = lu(k,1341) - lu(k,828) * lu(k,1314) + lu(k,1342) = lu(k,1342) - lu(k,829) * lu(k,1314) + lu(k,1343) = lu(k,1343) - lu(k,830) * lu(k,1314) + lu(k,1344) = lu(k,1344) - lu(k,831) * lu(k,1314) + lu(k,1376) = lu(k,1376) - lu(k,814) * lu(k,1374) + lu(k,1378) = lu(k,1378) - lu(k,815) * lu(k,1374) + lu(k,1381) = lu(k,1381) - lu(k,816) * lu(k,1374) + lu(k,1383) = lu(k,1383) - lu(k,817) * lu(k,1374) + lu(k,1384) = - lu(k,818) * lu(k,1374) + lu(k,1386) = - lu(k,819) * lu(k,1374) + lu(k,1387) = - lu(k,820) * lu(k,1374) + lu(k,1389) = - lu(k,821) * lu(k,1374) + lu(k,1390) = lu(k,1390) - lu(k,822) * lu(k,1374) + lu(k,1391) = lu(k,1391) - lu(k,823) * lu(k,1374) + lu(k,1393) = lu(k,1393) - lu(k,824) * lu(k,1374) + lu(k,1394) = lu(k,1394) - lu(k,825) * lu(k,1374) + lu(k,1397) = lu(k,1397) - lu(k,826) * lu(k,1374) + lu(k,1398) = lu(k,1398) - lu(k,827) * lu(k,1374) + lu(k,1401) = lu(k,1401) - lu(k,828) * lu(k,1374) + lu(k,1402) = lu(k,1402) - lu(k,829) * lu(k,1374) + lu(k,1403) = lu(k,1403) - lu(k,830) * lu(k,1374) + lu(k,1404) = lu(k,1404) - lu(k,831) * lu(k,1374) + lu(k,1419) = lu(k,1419) - lu(k,814) * lu(k,1417) + lu(k,1421) = lu(k,1421) - lu(k,815) * lu(k,1417) + lu(k,1424) = lu(k,1424) - lu(k,816) * lu(k,1417) + lu(k,1426) = lu(k,1426) - lu(k,817) * lu(k,1417) + lu(k,1427) = lu(k,1427) - lu(k,818) * lu(k,1417) + lu(k,1429) = lu(k,1429) - lu(k,819) * lu(k,1417) + lu(k,1430) = lu(k,1430) - lu(k,820) * lu(k,1417) + lu(k,1432) = lu(k,1432) - lu(k,821) * lu(k,1417) + lu(k,1433) = lu(k,1433) - lu(k,822) * lu(k,1417) + lu(k,1434) = lu(k,1434) - lu(k,823) * lu(k,1417) + lu(k,1436) = lu(k,1436) - lu(k,824) * lu(k,1417) + lu(k,1437) = lu(k,1437) - lu(k,825) * lu(k,1417) + lu(k,1440) = lu(k,1440) - lu(k,826) * lu(k,1417) + lu(k,1441) = lu(k,1441) - lu(k,827) * lu(k,1417) + lu(k,1444) = lu(k,1444) - lu(k,828) * lu(k,1417) + lu(k,1445) = lu(k,1445) - lu(k,829) * lu(k,1417) + lu(k,1446) = lu(k,1446) - lu(k,830) * lu(k,1417) + lu(k,1447) = lu(k,1447) - lu(k,831) * lu(k,1417) + lu(k,1467) = - lu(k,814) * lu(k,1465) + lu(k,1469) = lu(k,1469) - lu(k,815) * lu(k,1465) + lu(k,1472) = lu(k,1472) - lu(k,816) * lu(k,1465) + lu(k,1474) = - lu(k,817) * lu(k,1465) + lu(k,1475) = - lu(k,818) * lu(k,1465) + lu(k,1477) = - lu(k,819) * lu(k,1465) + lu(k,1478) = - lu(k,820) * lu(k,1465) + lu(k,1480) = - lu(k,821) * lu(k,1465) + lu(k,1481) = lu(k,1481) - lu(k,822) * lu(k,1465) + lu(k,1482) = lu(k,1482) - lu(k,823) * lu(k,1465) + lu(k,1484) = lu(k,1484) - lu(k,824) * lu(k,1465) + lu(k,1485) = lu(k,1485) - lu(k,825) * lu(k,1465) + lu(k,1488) = lu(k,1488) - lu(k,826) * lu(k,1465) + lu(k,1489) = lu(k,1489) - lu(k,827) * lu(k,1465) + lu(k,1492) = lu(k,1492) - lu(k,828) * lu(k,1465) + lu(k,1493) = lu(k,1493) - lu(k,829) * lu(k,1465) + lu(k,1494) = lu(k,1494) - lu(k,830) * lu(k,1465) + lu(k,1495) = lu(k,1495) - lu(k,831) * lu(k,1465) + lu(k,1508) = lu(k,1508) - lu(k,814) * lu(k,1507) + lu(k,1510) = lu(k,1510) - lu(k,815) * lu(k,1507) + lu(k,1513) = lu(k,1513) - lu(k,816) * lu(k,1507) + lu(k,1515) = lu(k,1515) - lu(k,817) * lu(k,1507) + lu(k,1516) = lu(k,1516) - lu(k,818) * lu(k,1507) + lu(k,1518) = lu(k,1518) - lu(k,819) * lu(k,1507) + lu(k,1519) = lu(k,1519) - lu(k,820) * lu(k,1507) + lu(k,1521) = lu(k,1521) - lu(k,821) * lu(k,1507) + lu(k,1522) = lu(k,1522) - lu(k,822) * lu(k,1507) + lu(k,1523) = lu(k,1523) - lu(k,823) * lu(k,1507) + lu(k,1525) = lu(k,1525) - lu(k,824) * lu(k,1507) + lu(k,1526) = lu(k,1526) - lu(k,825) * lu(k,1507) + lu(k,1529) = lu(k,1529) - lu(k,826) * lu(k,1507) + lu(k,1530) = lu(k,1530) - lu(k,827) * lu(k,1507) + lu(k,1533) = lu(k,1533) - lu(k,828) * lu(k,1507) + lu(k,1534) = lu(k,1534) - lu(k,829) * lu(k,1507) + lu(k,1535) = lu(k,1535) - lu(k,830) * lu(k,1507) + lu(k,1536) = lu(k,1536) - lu(k,831) * lu(k,1507) + lu(k,1544) = lu(k,1544) - lu(k,814) * lu(k,1542) + lu(k,1546) = lu(k,1546) - lu(k,815) * lu(k,1542) + lu(k,1549) = lu(k,1549) - lu(k,816) * lu(k,1542) + lu(k,1551) = lu(k,1551) - lu(k,817) * lu(k,1542) + lu(k,1552) = lu(k,1552) - lu(k,818) * lu(k,1542) + lu(k,1554) = lu(k,1554) - lu(k,819) * lu(k,1542) + lu(k,1555) = lu(k,1555) - lu(k,820) * lu(k,1542) + lu(k,1557) = lu(k,1557) - lu(k,821) * lu(k,1542) + lu(k,1558) = lu(k,1558) - lu(k,822) * lu(k,1542) + lu(k,1559) = lu(k,1559) - lu(k,823) * lu(k,1542) + lu(k,1561) = lu(k,1561) - lu(k,824) * lu(k,1542) + lu(k,1562) = lu(k,1562) - lu(k,825) * lu(k,1542) + lu(k,1565) = lu(k,1565) - lu(k,826) * lu(k,1542) + lu(k,1566) = lu(k,1566) - lu(k,827) * lu(k,1542) + lu(k,1569) = lu(k,1569) - lu(k,828) * lu(k,1542) + lu(k,1570) = lu(k,1570) - lu(k,829) * lu(k,1542) + lu(k,1571) = lu(k,1571) - lu(k,830) * lu(k,1542) + lu(k,1572) = lu(k,1572) - lu(k,831) * lu(k,1542) + lu(k,1589) = lu(k,1589) - lu(k,814) * lu(k,1587) + lu(k,1591) = lu(k,1591) - lu(k,815) * lu(k,1587) + lu(k,1594) = lu(k,1594) - lu(k,816) * lu(k,1587) + lu(k,1596) = lu(k,1596) - lu(k,817) * lu(k,1587) + lu(k,1597) = lu(k,1597) - lu(k,818) * lu(k,1587) + lu(k,1599) = lu(k,1599) - lu(k,819) * lu(k,1587) + lu(k,1600) = lu(k,1600) - lu(k,820) * lu(k,1587) + lu(k,1602) = lu(k,1602) - lu(k,821) * lu(k,1587) + lu(k,1603) = lu(k,1603) - lu(k,822) * lu(k,1587) + lu(k,1604) = lu(k,1604) - lu(k,823) * lu(k,1587) + lu(k,1606) = lu(k,1606) - lu(k,824) * lu(k,1587) + lu(k,1607) = lu(k,1607) - lu(k,825) * lu(k,1587) + lu(k,1610) = lu(k,1610) - lu(k,826) * lu(k,1587) + lu(k,1611) = lu(k,1611) - lu(k,827) * lu(k,1587) + lu(k,1614) = lu(k,1614) - lu(k,828) * lu(k,1587) + lu(k,1615) = lu(k,1615) - lu(k,829) * lu(k,1587) + lu(k,1616) = lu(k,1616) - lu(k,830) * lu(k,1587) + lu(k,1617) = lu(k,1617) - lu(k,831) * lu(k,1587) + lu(k,1632) = lu(k,1632) - lu(k,814) * lu(k,1630) + lu(k,1634) = lu(k,1634) - lu(k,815) * lu(k,1630) + lu(k,1637) = lu(k,1637) - lu(k,816) * lu(k,1630) + lu(k,1639) = lu(k,1639) - lu(k,817) * lu(k,1630) + lu(k,1640) = lu(k,1640) - lu(k,818) * lu(k,1630) + lu(k,1642) = lu(k,1642) - lu(k,819) * lu(k,1630) + lu(k,1643) = lu(k,1643) - lu(k,820) * lu(k,1630) + lu(k,1645) = lu(k,1645) - lu(k,821) * lu(k,1630) + lu(k,1646) = lu(k,1646) - lu(k,822) * lu(k,1630) + lu(k,1647) = lu(k,1647) - lu(k,823) * lu(k,1630) + lu(k,1649) = lu(k,1649) - lu(k,824) * lu(k,1630) + lu(k,1650) = lu(k,1650) - lu(k,825) * lu(k,1630) + lu(k,1653) = lu(k,1653) - lu(k,826) * lu(k,1630) + lu(k,1654) = lu(k,1654) - lu(k,827) * lu(k,1630) + lu(k,1657) = lu(k,1657) - lu(k,828) * lu(k,1630) + lu(k,1658) = lu(k,1658) - lu(k,829) * lu(k,1630) + lu(k,1659) = lu(k,1659) - lu(k,830) * lu(k,1630) + lu(k,1660) = lu(k,1660) - lu(k,831) * lu(k,1630) + lu(k,1750) = lu(k,1750) - lu(k,814) * lu(k,1748) + lu(k,1752) = lu(k,1752) - lu(k,815) * lu(k,1748) + lu(k,1755) = lu(k,1755) - lu(k,816) * lu(k,1748) + lu(k,1757) = - lu(k,817) * lu(k,1748) + lu(k,1758) = - lu(k,818) * lu(k,1748) + lu(k,1760) = - lu(k,819) * lu(k,1748) + lu(k,1761) = lu(k,1761) - lu(k,820) * lu(k,1748) + lu(k,1763) = - lu(k,821) * lu(k,1748) + lu(k,1764) = lu(k,1764) - lu(k,822) * lu(k,1748) + lu(k,1765) = lu(k,1765) - lu(k,823) * lu(k,1748) + lu(k,1767) = lu(k,1767) - lu(k,824) * lu(k,1748) + lu(k,1768) = lu(k,1768) - lu(k,825) * lu(k,1748) + lu(k,1771) = lu(k,1771) - lu(k,826) * lu(k,1748) + lu(k,1772) = lu(k,1772) - lu(k,827) * lu(k,1748) + lu(k,1775) = lu(k,1775) - lu(k,828) * lu(k,1748) + lu(k,1776) = lu(k,1776) - lu(k,829) * lu(k,1748) + lu(k,1777) = lu(k,1777) - lu(k,830) * lu(k,1748) + lu(k,1778) = lu(k,1778) - lu(k,831) * lu(k,1748) + lu(k,1798) = lu(k,1798) - lu(k,814) * lu(k,1797) + lu(k,1800) = lu(k,1800) - lu(k,815) * lu(k,1797) + lu(k,1803) = lu(k,1803) - lu(k,816) * lu(k,1797) + lu(k,1805) = lu(k,1805) - lu(k,817) * lu(k,1797) + lu(k,1806) = lu(k,1806) - lu(k,818) * lu(k,1797) + lu(k,1808) = lu(k,1808) - lu(k,819) * lu(k,1797) + lu(k,1809) = lu(k,1809) - lu(k,820) * lu(k,1797) + lu(k,1811) = lu(k,1811) - lu(k,821) * lu(k,1797) + lu(k,1812) = lu(k,1812) - lu(k,822) * lu(k,1797) + lu(k,1813) = lu(k,1813) - lu(k,823) * lu(k,1797) + lu(k,1815) = lu(k,1815) - lu(k,824) * lu(k,1797) + lu(k,1816) = lu(k,1816) - lu(k,825) * lu(k,1797) + lu(k,1819) = lu(k,1819) - lu(k,826) * lu(k,1797) + lu(k,1820) = lu(k,1820) - lu(k,827) * lu(k,1797) + lu(k,1823) = lu(k,1823) - lu(k,828) * lu(k,1797) + lu(k,1824) = lu(k,1824) - lu(k,829) * lu(k,1797) + lu(k,1825) = lu(k,1825) - lu(k,830) * lu(k,1797) + lu(k,1826) = lu(k,1826) - lu(k,831) * lu(k,1797) + lu(k,1831) = lu(k,1831) - lu(k,814) * lu(k,1830) + lu(k,1833) = lu(k,1833) - lu(k,815) * lu(k,1830) + lu(k,1836) = lu(k,1836) - lu(k,816) * lu(k,1830) + lu(k,1838) = lu(k,1838) - lu(k,817) * lu(k,1830) + lu(k,1839) = lu(k,1839) - lu(k,818) * lu(k,1830) + lu(k,1841) = lu(k,1841) - lu(k,819) * lu(k,1830) + lu(k,1842) = lu(k,1842) - lu(k,820) * lu(k,1830) + lu(k,1844) = lu(k,1844) - lu(k,821) * lu(k,1830) + lu(k,1845) = lu(k,1845) - lu(k,822) * lu(k,1830) + lu(k,1846) = - lu(k,823) * lu(k,1830) + lu(k,1848) = lu(k,1848) - lu(k,824) * lu(k,1830) + lu(k,1849) = lu(k,1849) - lu(k,825) * lu(k,1830) + lu(k,1852) = lu(k,1852) - lu(k,826) * lu(k,1830) + lu(k,1853) = lu(k,1853) - lu(k,827) * lu(k,1830) + lu(k,1856) = lu(k,1856) - lu(k,828) * lu(k,1830) + lu(k,1857) = lu(k,1857) - lu(k,829) * lu(k,1830) + lu(k,1858) = lu(k,1858) - lu(k,830) * lu(k,1830) + lu(k,1859) = lu(k,1859) - lu(k,831) * lu(k,1830) + lu(k,1867) = lu(k,1867) - lu(k,814) * lu(k,1866) + lu(k,1869) = lu(k,1869) - lu(k,815) * lu(k,1866) + lu(k,1872) = lu(k,1872) - lu(k,816) * lu(k,1866) + lu(k,1874) = - lu(k,817) * lu(k,1866) + lu(k,1875) = - lu(k,818) * lu(k,1866) + lu(k,1877) = - lu(k,819) * lu(k,1866) + lu(k,1878) = - lu(k,820) * lu(k,1866) + lu(k,1880) = - lu(k,821) * lu(k,1866) + lu(k,1881) = lu(k,1881) - lu(k,822) * lu(k,1866) + lu(k,1882) = lu(k,1882) - lu(k,823) * lu(k,1866) + lu(k,1884) = lu(k,1884) - lu(k,824) * lu(k,1866) + lu(k,1885) = lu(k,1885) - lu(k,825) * lu(k,1866) + lu(k,1888) = lu(k,1888) - lu(k,826) * lu(k,1866) + lu(k,1889) = lu(k,1889) - lu(k,827) * lu(k,1866) + lu(k,1892) = lu(k,1892) - lu(k,828) * lu(k,1866) + lu(k,1893) = lu(k,1893) - lu(k,829) * lu(k,1866) + lu(k,1894) = lu(k,1894) - lu(k,830) * lu(k,1866) + lu(k,1895) = lu(k,1895) - lu(k,831) * lu(k,1866) + lu(k,1960) = lu(k,1960) - lu(k,814) * lu(k,1959) + lu(k,1962) = lu(k,1962) - lu(k,815) * lu(k,1959) + lu(k,1965) = lu(k,1965) - lu(k,816) * lu(k,1959) + lu(k,1967) = lu(k,1967) - lu(k,817) * lu(k,1959) + lu(k,1968) = lu(k,1968) - lu(k,818) * lu(k,1959) + lu(k,1970) = lu(k,1970) - lu(k,819) * lu(k,1959) + lu(k,1971) = lu(k,1971) - lu(k,820) * lu(k,1959) + lu(k,1973) = lu(k,1973) - lu(k,821) * lu(k,1959) + lu(k,1974) = lu(k,1974) - lu(k,822) * lu(k,1959) + lu(k,1975) = lu(k,1975) - lu(k,823) * lu(k,1959) + lu(k,1977) = lu(k,1977) - lu(k,824) * lu(k,1959) + lu(k,1978) = lu(k,1978) - lu(k,825) * lu(k,1959) + lu(k,1981) = lu(k,1981) - lu(k,826) * lu(k,1959) + lu(k,1982) = lu(k,1982) - lu(k,827) * lu(k,1959) + lu(k,1985) = lu(k,1985) - lu(k,828) * lu(k,1959) + lu(k,1986) = lu(k,1986) - lu(k,829) * lu(k,1959) + lu(k,1987) = lu(k,1987) - lu(k,830) * lu(k,1959) + lu(k,1988) = lu(k,1988) - lu(k,831) * lu(k,1959) + lu(k,2005) = lu(k,2005) - lu(k,814) * lu(k,2003) + lu(k,2007) = lu(k,2007) - lu(k,815) * lu(k,2003) + lu(k,2010) = lu(k,2010) - lu(k,816) * lu(k,2003) + lu(k,2012) = lu(k,2012) - lu(k,817) * lu(k,2003) + lu(k,2013) = lu(k,2013) - lu(k,818) * lu(k,2003) + lu(k,2015) = lu(k,2015) - lu(k,819) * lu(k,2003) + lu(k,2016) = lu(k,2016) - lu(k,820) * lu(k,2003) + lu(k,2018) = lu(k,2018) - lu(k,821) * lu(k,2003) + lu(k,2019) = lu(k,2019) - lu(k,822) * lu(k,2003) + lu(k,2020) = lu(k,2020) - lu(k,823) * lu(k,2003) + lu(k,2022) = lu(k,2022) - lu(k,824) * lu(k,2003) + lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2003) + lu(k,2026) = lu(k,2026) - lu(k,826) * lu(k,2003) + lu(k,2027) = lu(k,2027) - lu(k,827) * lu(k,2003) + lu(k,2030) = lu(k,2030) - lu(k,828) * lu(k,2003) + lu(k,2031) = lu(k,2031) - lu(k,829) * lu(k,2003) + lu(k,2032) = lu(k,2032) - lu(k,830) * lu(k,2003) + lu(k,2033) = lu(k,2033) - lu(k,831) * lu(k,2003) + lu(k,2065) = lu(k,2065) - lu(k,814) * lu(k,2064) + lu(k,2067) = lu(k,2067) - lu(k,815) * lu(k,2064) + lu(k,2070) = lu(k,2070) - lu(k,816) * lu(k,2064) + lu(k,2072) = lu(k,2072) - lu(k,817) * lu(k,2064) + lu(k,2073) = lu(k,2073) - lu(k,818) * lu(k,2064) + lu(k,2075) = lu(k,2075) - lu(k,819) * lu(k,2064) + lu(k,2076) = lu(k,2076) - lu(k,820) * lu(k,2064) + lu(k,2078) = lu(k,2078) - lu(k,821) * lu(k,2064) + lu(k,2079) = lu(k,2079) - lu(k,822) * lu(k,2064) + lu(k,2080) = lu(k,2080) - lu(k,823) * lu(k,2064) + lu(k,2082) = lu(k,2082) - lu(k,824) * lu(k,2064) + lu(k,2083) = lu(k,2083) - lu(k,825) * lu(k,2064) + lu(k,2086) = lu(k,2086) - lu(k,826) * lu(k,2064) + lu(k,2087) = lu(k,2087) - lu(k,827) * lu(k,2064) + lu(k,2090) = lu(k,2090) - lu(k,828) * lu(k,2064) + lu(k,2091) = lu(k,2091) - lu(k,829) * lu(k,2064) + lu(k,2092) = lu(k,2092) - lu(k,830) * lu(k,2064) + lu(k,2093) = lu(k,2093) - lu(k,831) * lu(k,2064) + lu(k,835) = 1._r8 / lu(k,835) + lu(k,836) = lu(k,836) * lu(k,835) + lu(k,837) = lu(k,837) * lu(k,835) + lu(k,838) = lu(k,838) * lu(k,835) + lu(k,839) = lu(k,839) * lu(k,835) + lu(k,840) = lu(k,840) * lu(k,835) + lu(k,841) = lu(k,841) * lu(k,835) + lu(k,842) = lu(k,842) * lu(k,835) + lu(k,843) = lu(k,843) * lu(k,835) + lu(k,844) = lu(k,844) * lu(k,835) + lu(k,845) = lu(k,845) * lu(k,835) + lu(k,846) = lu(k,846) * lu(k,835) + lu(k,847) = lu(k,847) * lu(k,835) + lu(k,848) = lu(k,848) * lu(k,835) + lu(k,849) = lu(k,849) * lu(k,835) + lu(k,850) = lu(k,850) * lu(k,835) + lu(k,851) = lu(k,851) * lu(k,835) + lu(k,852) = lu(k,852) * lu(k,835) + lu(k,853) = lu(k,853) * lu(k,835) + lu(k,854) = lu(k,854) * lu(k,835) + lu(k,855) = lu(k,855) * lu(k,835) + lu(k,856) = lu(k,856) * lu(k,835) + lu(k,857) = lu(k,857) * lu(k,835) + lu(k,858) = lu(k,858) * lu(k,835) + lu(k,859) = lu(k,859) * lu(k,835) + lu(k,860) = lu(k,860) * lu(k,835) + lu(k,861) = lu(k,861) * lu(k,835) + lu(k,862) = lu(k,862) * lu(k,835) + lu(k,863) = lu(k,863) * lu(k,835) + lu(k,1100) = lu(k,1100) - lu(k,836) * lu(k,1099) + lu(k,1101) = lu(k,1101) - lu(k,837) * lu(k,1099) + lu(k,1102) = lu(k,1102) - lu(k,838) * lu(k,1099) + lu(k,1103) = lu(k,1103) - lu(k,839) * lu(k,1099) + lu(k,1104) = lu(k,1104) - lu(k,840) * lu(k,1099) + lu(k,1105) = lu(k,1105) - lu(k,841) * lu(k,1099) + lu(k,1106) = lu(k,1106) - lu(k,842) * lu(k,1099) + lu(k,1107) = lu(k,1107) - lu(k,843) * lu(k,1099) + lu(k,1108) = lu(k,1108) - lu(k,844) * lu(k,1099) + lu(k,1109) = lu(k,1109) - lu(k,845) * lu(k,1099) + lu(k,1110) = lu(k,1110) - lu(k,846) * lu(k,1099) + lu(k,1111) = lu(k,1111) - lu(k,847) * lu(k,1099) + lu(k,1112) = lu(k,1112) - lu(k,848) * lu(k,1099) + lu(k,1113) = lu(k,1113) - lu(k,849) * lu(k,1099) + lu(k,1114) = lu(k,1114) - lu(k,850) * lu(k,1099) + lu(k,1115) = lu(k,1115) - lu(k,851) * lu(k,1099) + lu(k,1116) = lu(k,1116) - lu(k,852) * lu(k,1099) + lu(k,1117) = lu(k,1117) - lu(k,853) * lu(k,1099) + lu(k,1118) = lu(k,1118) - lu(k,854) * lu(k,1099) + lu(k,1119) = lu(k,1119) - lu(k,855) * lu(k,1099) + lu(k,1121) = lu(k,1121) - lu(k,856) * lu(k,1099) + lu(k,1122) = lu(k,1122) - lu(k,857) * lu(k,1099) + lu(k,1123) = lu(k,1123) - lu(k,858) * lu(k,1099) + lu(k,1124) = lu(k,1124) - lu(k,859) * lu(k,1099) + lu(k,1125) = lu(k,1125) - lu(k,860) * lu(k,1099) + lu(k,1126) = lu(k,1126) - lu(k,861) * lu(k,1099) + lu(k,1127) = lu(k,1127) - lu(k,862) * lu(k,1099) + lu(k,1128) = lu(k,1128) - lu(k,863) * lu(k,1099) + lu(k,1147) = lu(k,1147) - lu(k,836) * lu(k,1146) + lu(k,1148) = lu(k,1148) - lu(k,837) * lu(k,1146) + lu(k,1149) = lu(k,1149) - lu(k,838) * lu(k,1146) + lu(k,1150) = lu(k,1150) - lu(k,839) * lu(k,1146) + lu(k,1151) = lu(k,1151) - lu(k,840) * lu(k,1146) + lu(k,1152) = lu(k,1152) - lu(k,841) * lu(k,1146) + lu(k,1153) = lu(k,1153) - lu(k,842) * lu(k,1146) + lu(k,1154) = lu(k,1154) - lu(k,843) * lu(k,1146) + lu(k,1155) = lu(k,1155) - lu(k,844) * lu(k,1146) + lu(k,1156) = lu(k,1156) - lu(k,845) * lu(k,1146) + lu(k,1157) = lu(k,1157) - lu(k,846) * lu(k,1146) + lu(k,1158) = lu(k,1158) - lu(k,847) * lu(k,1146) + lu(k,1159) = lu(k,1159) - lu(k,848) * lu(k,1146) + lu(k,1160) = lu(k,1160) - lu(k,849) * lu(k,1146) + lu(k,1161) = lu(k,1161) - lu(k,850) * lu(k,1146) + lu(k,1162) = lu(k,1162) - lu(k,851) * lu(k,1146) + lu(k,1163) = lu(k,1163) - lu(k,852) * lu(k,1146) + lu(k,1164) = lu(k,1164) - lu(k,853) * lu(k,1146) + lu(k,1165) = lu(k,1165) - lu(k,854) * lu(k,1146) + lu(k,1166) = lu(k,1166) - lu(k,855) * lu(k,1146) + lu(k,1168) = lu(k,1168) - lu(k,856) * lu(k,1146) + lu(k,1169) = lu(k,1169) - lu(k,857) * lu(k,1146) + lu(k,1170) = lu(k,1170) - lu(k,858) * lu(k,1146) + lu(k,1171) = lu(k,1171) - lu(k,859) * lu(k,1146) + lu(k,1172) = lu(k,1172) - lu(k,860) * lu(k,1146) + lu(k,1173) = lu(k,1173) - lu(k,861) * lu(k,1146) + lu(k,1174) = lu(k,1174) - lu(k,862) * lu(k,1146) + lu(k,1175) = lu(k,1175) - lu(k,863) * lu(k,1146) + lu(k,1190) = lu(k,1190) - lu(k,836) * lu(k,1189) + lu(k,1191) = - lu(k,837) * lu(k,1189) + lu(k,1192) = lu(k,1192) - lu(k,838) * lu(k,1189) + lu(k,1193) = lu(k,1193) - lu(k,839) * lu(k,1189) + lu(k,1194) = lu(k,1194) - lu(k,840) * lu(k,1189) + lu(k,1195) = lu(k,1195) - lu(k,841) * lu(k,1189) + lu(k,1196) = - lu(k,842) * lu(k,1189) + lu(k,1197) = lu(k,1197) - lu(k,843) * lu(k,1189) + lu(k,1198) = lu(k,1198) - lu(k,844) * lu(k,1189) + lu(k,1199) = - lu(k,845) * lu(k,1189) + lu(k,1200) = lu(k,1200) - lu(k,846) * lu(k,1189) + lu(k,1201) = lu(k,1201) - lu(k,847) * lu(k,1189) + lu(k,1202) = lu(k,1202) - lu(k,848) * lu(k,1189) + lu(k,1203) = lu(k,1203) - lu(k,849) * lu(k,1189) + lu(k,1204) = lu(k,1204) - lu(k,850) * lu(k,1189) + lu(k,1205) = lu(k,1205) - lu(k,851) * lu(k,1189) + lu(k,1206) = lu(k,1206) - lu(k,852) * lu(k,1189) + lu(k,1207) = lu(k,1207) - lu(k,853) * lu(k,1189) + lu(k,1208) = lu(k,1208) - lu(k,854) * lu(k,1189) + lu(k,1209) = lu(k,1209) - lu(k,855) * lu(k,1189) + lu(k,1211) = lu(k,1211) - lu(k,856) * lu(k,1189) + lu(k,1212) = lu(k,1212) - lu(k,857) * lu(k,1189) + lu(k,1213) = - lu(k,858) * lu(k,1189) + lu(k,1214) = - lu(k,859) * lu(k,1189) + lu(k,1215) = lu(k,1215) - lu(k,860) * lu(k,1189) + lu(k,1216) = lu(k,1216) - lu(k,861) * lu(k,1189) + lu(k,1217) = lu(k,1217) - lu(k,862) * lu(k,1189) + lu(k,1218) = lu(k,1218) - lu(k,863) * lu(k,1189) + lu(k,1231) = lu(k,1231) - lu(k,836) * lu(k,1230) + lu(k,1232) = lu(k,1232) - lu(k,837) * lu(k,1230) + lu(k,1233) = lu(k,1233) - lu(k,838) * lu(k,1230) + lu(k,1234) = lu(k,1234) - lu(k,839) * lu(k,1230) + lu(k,1235) = lu(k,1235) - lu(k,840) * lu(k,1230) + lu(k,1236) = lu(k,1236) - lu(k,841) * lu(k,1230) + lu(k,1237) = lu(k,1237) - lu(k,842) * lu(k,1230) + lu(k,1238) = - lu(k,843) * lu(k,1230) + lu(k,1239) = - lu(k,844) * lu(k,1230) + lu(k,1240) = lu(k,1240) - lu(k,845) * lu(k,1230) + lu(k,1241) = - lu(k,846) * lu(k,1230) + lu(k,1242) = - lu(k,847) * lu(k,1230) + lu(k,1243) = lu(k,1243) - lu(k,848) * lu(k,1230) + lu(k,1244) = - lu(k,849) * lu(k,1230) + lu(k,1245) = lu(k,1245) - lu(k,850) * lu(k,1230) + lu(k,1246) = lu(k,1246) - lu(k,851) * lu(k,1230) + lu(k,1247) = lu(k,1247) - lu(k,852) * lu(k,1230) + lu(k,1248) = lu(k,1248) - lu(k,853) * lu(k,1230) + lu(k,1249) = lu(k,1249) - lu(k,854) * lu(k,1230) + lu(k,1250) = lu(k,1250) - lu(k,855) * lu(k,1230) + lu(k,1252) = lu(k,1252) - lu(k,856) * lu(k,1230) + lu(k,1253) = lu(k,1253) - lu(k,857) * lu(k,1230) + lu(k,1254) = lu(k,1254) - lu(k,858) * lu(k,1230) + lu(k,1255) = lu(k,1255) - lu(k,859) * lu(k,1230) + lu(k,1256) = lu(k,1256) - lu(k,860) * lu(k,1230) + lu(k,1257) = lu(k,1257) - lu(k,861) * lu(k,1230) + lu(k,1258) = lu(k,1258) - lu(k,862) * lu(k,1230) + lu(k,1259) = lu(k,1259) - lu(k,863) * lu(k,1230) + lu(k,1274) = lu(k,1274) - lu(k,836) * lu(k,1273) + lu(k,1275) = - lu(k,837) * lu(k,1273) + lu(k,1276) = lu(k,1276) - lu(k,838) * lu(k,1273) + lu(k,1277) = lu(k,1277) - lu(k,839) * lu(k,1273) + lu(k,1278) = lu(k,1278) - lu(k,840) * lu(k,1273) + lu(k,1279) = lu(k,1279) - lu(k,841) * lu(k,1273) + lu(k,1280) = - lu(k,842) * lu(k,1273) + lu(k,1281) = lu(k,1281) - lu(k,843) * lu(k,1273) + lu(k,1282) = lu(k,1282) - lu(k,844) * lu(k,1273) + lu(k,1283) = - lu(k,845) * lu(k,1273) + lu(k,1284) = lu(k,1284) - lu(k,846) * lu(k,1273) + lu(k,1285) = lu(k,1285) - lu(k,847) * lu(k,1273) + lu(k,1286) = lu(k,1286) - lu(k,848) * lu(k,1273) + lu(k,1287) = lu(k,1287) - lu(k,849) * lu(k,1273) + lu(k,1288) = lu(k,1288) - lu(k,850) * lu(k,1273) + lu(k,1289) = lu(k,1289) - lu(k,851) * lu(k,1273) + lu(k,1290) = lu(k,1290) - lu(k,852) * lu(k,1273) + lu(k,1291) = lu(k,1291) - lu(k,853) * lu(k,1273) + lu(k,1292) = lu(k,1292) - lu(k,854) * lu(k,1273) + lu(k,1293) = lu(k,1293) - lu(k,855) * lu(k,1273) + lu(k,1295) = lu(k,1295) - lu(k,856) * lu(k,1273) + lu(k,1296) = lu(k,1296) - lu(k,857) * lu(k,1273) + lu(k,1297) = - lu(k,858) * lu(k,1273) + lu(k,1298) = - lu(k,859) * lu(k,1273) + lu(k,1299) = lu(k,1299) - lu(k,860) * lu(k,1273) + lu(k,1300) = lu(k,1300) - lu(k,861) * lu(k,1273) + lu(k,1301) = lu(k,1301) - lu(k,862) * lu(k,1273) + lu(k,1302) = lu(k,1302) - lu(k,863) * lu(k,1273) + lu(k,1316) = lu(k,1316) - lu(k,836) * lu(k,1315) + lu(k,1317) = lu(k,1317) - lu(k,837) * lu(k,1315) + lu(k,1318) = lu(k,1318) - lu(k,838) * lu(k,1315) + lu(k,1319) = lu(k,1319) - lu(k,839) * lu(k,1315) + lu(k,1320) = lu(k,1320) - lu(k,840) * lu(k,1315) + lu(k,1321) = lu(k,1321) - lu(k,841) * lu(k,1315) + lu(k,1322) = - lu(k,842) * lu(k,1315) + lu(k,1323) = lu(k,1323) - lu(k,843) * lu(k,1315) + lu(k,1324) = lu(k,1324) - lu(k,844) * lu(k,1315) + lu(k,1325) = - lu(k,845) * lu(k,1315) + lu(k,1326) = lu(k,1326) - lu(k,846) * lu(k,1315) + lu(k,1327) = lu(k,1327) - lu(k,847) * lu(k,1315) + lu(k,1328) = lu(k,1328) - lu(k,848) * lu(k,1315) + lu(k,1329) = lu(k,1329) - lu(k,849) * lu(k,1315) + lu(k,1330) = lu(k,1330) - lu(k,850) * lu(k,1315) + lu(k,1331) = lu(k,1331) - lu(k,851) * lu(k,1315) + lu(k,1332) = lu(k,1332) - lu(k,852) * lu(k,1315) + lu(k,1333) = lu(k,1333) - lu(k,853) * lu(k,1315) + lu(k,1334) = lu(k,1334) - lu(k,854) * lu(k,1315) + lu(k,1335) = lu(k,1335) - lu(k,855) * lu(k,1315) + lu(k,1337) = lu(k,1337) - lu(k,856) * lu(k,1315) + lu(k,1338) = lu(k,1338) - lu(k,857) * lu(k,1315) + lu(k,1339) = - lu(k,858) * lu(k,1315) + lu(k,1340) = - lu(k,859) * lu(k,1315) + lu(k,1341) = lu(k,1341) - lu(k,860) * lu(k,1315) + lu(k,1342) = lu(k,1342) - lu(k,861) * lu(k,1315) + lu(k,1343) = lu(k,1343) - lu(k,862) * lu(k,1315) + lu(k,1344) = lu(k,1344) - lu(k,863) * lu(k,1315) + lu(k,1376) = lu(k,1376) - lu(k,836) * lu(k,1375) + lu(k,1377) = lu(k,1377) - lu(k,837) * lu(k,1375) + lu(k,1378) = lu(k,1378) - lu(k,838) * lu(k,1375) + lu(k,1379) = lu(k,1379) - lu(k,839) * lu(k,1375) + lu(k,1380) = lu(k,1380) - lu(k,840) * lu(k,1375) + lu(k,1381) = lu(k,1381) - lu(k,841) * lu(k,1375) + lu(k,1382) = lu(k,1382) - lu(k,842) * lu(k,1375) + lu(k,1383) = lu(k,1383) - lu(k,843) * lu(k,1375) + lu(k,1384) = lu(k,1384) - lu(k,844) * lu(k,1375) + lu(k,1385) = lu(k,1385) - lu(k,845) * lu(k,1375) + lu(k,1386) = lu(k,1386) - lu(k,846) * lu(k,1375) + lu(k,1387) = lu(k,1387) - lu(k,847) * lu(k,1375) + lu(k,1388) = lu(k,1388) - lu(k,848) * lu(k,1375) + lu(k,1389) = lu(k,1389) - lu(k,849) * lu(k,1375) + lu(k,1390) = lu(k,1390) - lu(k,850) * lu(k,1375) + lu(k,1391) = lu(k,1391) - lu(k,851) * lu(k,1375) + lu(k,1392) = lu(k,1392) - lu(k,852) * lu(k,1375) + lu(k,1393) = lu(k,1393) - lu(k,853) * lu(k,1375) + lu(k,1394) = lu(k,1394) - lu(k,854) * lu(k,1375) + lu(k,1395) = lu(k,1395) - lu(k,855) * lu(k,1375) + lu(k,1397) = lu(k,1397) - lu(k,856) * lu(k,1375) + lu(k,1398) = lu(k,1398) - lu(k,857) * lu(k,1375) + lu(k,1399) = lu(k,1399) - lu(k,858) * lu(k,1375) + lu(k,1400) = lu(k,1400) - lu(k,859) * lu(k,1375) + lu(k,1401) = lu(k,1401) - lu(k,860) * lu(k,1375) + lu(k,1402) = lu(k,1402) - lu(k,861) * lu(k,1375) + lu(k,1403) = lu(k,1403) - lu(k,862) * lu(k,1375) + lu(k,1404) = lu(k,1404) - lu(k,863) * lu(k,1375) + lu(k,1419) = lu(k,1419) - lu(k,836) * lu(k,1418) + lu(k,1420) = - lu(k,837) * lu(k,1418) + lu(k,1421) = lu(k,1421) - lu(k,838) * lu(k,1418) + lu(k,1422) = lu(k,1422) - lu(k,839) * lu(k,1418) + lu(k,1423) = lu(k,1423) - lu(k,840) * lu(k,1418) + lu(k,1424) = lu(k,1424) - lu(k,841) * lu(k,1418) + lu(k,1425) = - lu(k,842) * lu(k,1418) + lu(k,1426) = lu(k,1426) - lu(k,843) * lu(k,1418) + lu(k,1427) = lu(k,1427) - lu(k,844) * lu(k,1418) + lu(k,1428) = - lu(k,845) * lu(k,1418) + lu(k,1429) = lu(k,1429) - lu(k,846) * lu(k,1418) + lu(k,1430) = lu(k,1430) - lu(k,847) * lu(k,1418) + lu(k,1431) = lu(k,1431) - lu(k,848) * lu(k,1418) + lu(k,1432) = lu(k,1432) - lu(k,849) * lu(k,1418) + lu(k,1433) = lu(k,1433) - lu(k,850) * lu(k,1418) + lu(k,1434) = lu(k,1434) - lu(k,851) * lu(k,1418) + lu(k,1435) = lu(k,1435) - lu(k,852) * lu(k,1418) + lu(k,1436) = lu(k,1436) - lu(k,853) * lu(k,1418) + lu(k,1437) = lu(k,1437) - lu(k,854) * lu(k,1418) + lu(k,1438) = lu(k,1438) - lu(k,855) * lu(k,1418) + lu(k,1440) = lu(k,1440) - lu(k,856) * lu(k,1418) + lu(k,1441) = lu(k,1441) - lu(k,857) * lu(k,1418) + lu(k,1442) = - lu(k,858) * lu(k,1418) + lu(k,1443) = - lu(k,859) * lu(k,1418) + lu(k,1444) = lu(k,1444) - lu(k,860) * lu(k,1418) + lu(k,1445) = lu(k,1445) - lu(k,861) * lu(k,1418) + lu(k,1446) = lu(k,1446) - lu(k,862) * lu(k,1418) + lu(k,1447) = lu(k,1447) - lu(k,863) * lu(k,1418) + lu(k,1467) = lu(k,1467) - lu(k,836) * lu(k,1466) + lu(k,1468) = lu(k,1468) - lu(k,837) * lu(k,1466) + lu(k,1469) = lu(k,1469) - lu(k,838) * lu(k,1466) + lu(k,1470) = lu(k,1470) - lu(k,839) * lu(k,1466) + lu(k,1471) = lu(k,1471) - lu(k,840) * lu(k,1466) + lu(k,1472) = lu(k,1472) - lu(k,841) * lu(k,1466) + lu(k,1473) = lu(k,1473) - lu(k,842) * lu(k,1466) + lu(k,1474) = lu(k,1474) - lu(k,843) * lu(k,1466) + lu(k,1475) = lu(k,1475) - lu(k,844) * lu(k,1466) + lu(k,1476) = lu(k,1476) - lu(k,845) * lu(k,1466) + lu(k,1477) = lu(k,1477) - lu(k,846) * lu(k,1466) + lu(k,1478) = lu(k,1478) - lu(k,847) * lu(k,1466) + lu(k,1479) = lu(k,1479) - lu(k,848) * lu(k,1466) + lu(k,1480) = lu(k,1480) - lu(k,849) * lu(k,1466) + lu(k,1481) = lu(k,1481) - lu(k,850) * lu(k,1466) + lu(k,1482) = lu(k,1482) - lu(k,851) * lu(k,1466) + lu(k,1483) = lu(k,1483) - lu(k,852) * lu(k,1466) + lu(k,1484) = lu(k,1484) - lu(k,853) * lu(k,1466) + lu(k,1485) = lu(k,1485) - lu(k,854) * lu(k,1466) + lu(k,1486) = lu(k,1486) - lu(k,855) * lu(k,1466) + lu(k,1488) = lu(k,1488) - lu(k,856) * lu(k,1466) + lu(k,1489) = lu(k,1489) - lu(k,857) * lu(k,1466) + lu(k,1490) = lu(k,1490) - lu(k,858) * lu(k,1466) + lu(k,1491) = lu(k,1491) - lu(k,859) * lu(k,1466) + lu(k,1492) = lu(k,1492) - lu(k,860) * lu(k,1466) + lu(k,1493) = lu(k,1493) - lu(k,861) * lu(k,1466) + lu(k,1494) = lu(k,1494) - lu(k,862) * lu(k,1466) + lu(k,1495) = lu(k,1495) - lu(k,863) * lu(k,1466) + lu(k,1544) = lu(k,1544) - lu(k,836) * lu(k,1543) + lu(k,1545) = lu(k,1545) - lu(k,837) * lu(k,1543) + lu(k,1546) = lu(k,1546) - lu(k,838) * lu(k,1543) + lu(k,1547) = lu(k,1547) - lu(k,839) * lu(k,1543) + lu(k,1548) = lu(k,1548) - lu(k,840) * lu(k,1543) + lu(k,1549) = lu(k,1549) - lu(k,841) * lu(k,1543) + lu(k,1550) = lu(k,1550) - lu(k,842) * lu(k,1543) + lu(k,1551) = lu(k,1551) - lu(k,843) * lu(k,1543) + lu(k,1552) = lu(k,1552) - lu(k,844) * lu(k,1543) + lu(k,1553) = lu(k,1553) - lu(k,845) * lu(k,1543) + lu(k,1554) = lu(k,1554) - lu(k,846) * lu(k,1543) + lu(k,1555) = lu(k,1555) - lu(k,847) * lu(k,1543) + lu(k,1556) = lu(k,1556) - lu(k,848) * lu(k,1543) + lu(k,1557) = lu(k,1557) - lu(k,849) * lu(k,1543) + lu(k,1558) = lu(k,1558) - lu(k,850) * lu(k,1543) + lu(k,1559) = lu(k,1559) - lu(k,851) * lu(k,1543) + lu(k,1560) = lu(k,1560) - lu(k,852) * lu(k,1543) + lu(k,1561) = lu(k,1561) - lu(k,853) * lu(k,1543) + lu(k,1562) = lu(k,1562) - lu(k,854) * lu(k,1543) + lu(k,1563) = lu(k,1563) - lu(k,855) * lu(k,1543) + lu(k,1565) = lu(k,1565) - lu(k,856) * lu(k,1543) + lu(k,1566) = lu(k,1566) - lu(k,857) * lu(k,1543) + lu(k,1567) = lu(k,1567) - lu(k,858) * lu(k,1543) + lu(k,1568) = lu(k,1568) - lu(k,859) * lu(k,1543) + lu(k,1569) = lu(k,1569) - lu(k,860) * lu(k,1543) + lu(k,1570) = lu(k,1570) - lu(k,861) * lu(k,1543) + lu(k,1571) = lu(k,1571) - lu(k,862) * lu(k,1543) + lu(k,1572) = lu(k,1572) - lu(k,863) * lu(k,1543) + lu(k,1589) = lu(k,1589) - lu(k,836) * lu(k,1588) + lu(k,1590) = lu(k,1590) - lu(k,837) * lu(k,1588) + lu(k,1591) = lu(k,1591) - lu(k,838) * lu(k,1588) + lu(k,1592) = lu(k,1592) - lu(k,839) * lu(k,1588) + lu(k,1593) = lu(k,1593) - lu(k,840) * lu(k,1588) + lu(k,1594) = lu(k,1594) - lu(k,841) * lu(k,1588) + lu(k,1595) = lu(k,1595) - lu(k,842) * lu(k,1588) + lu(k,1596) = lu(k,1596) - lu(k,843) * lu(k,1588) + lu(k,1597) = lu(k,1597) - lu(k,844) * lu(k,1588) + lu(k,1598) = lu(k,1598) - lu(k,845) * lu(k,1588) + lu(k,1599) = lu(k,1599) - lu(k,846) * lu(k,1588) + lu(k,1600) = lu(k,1600) - lu(k,847) * lu(k,1588) + lu(k,1601) = lu(k,1601) - lu(k,848) * lu(k,1588) + lu(k,1602) = lu(k,1602) - lu(k,849) * lu(k,1588) + lu(k,1603) = lu(k,1603) - lu(k,850) * lu(k,1588) + lu(k,1604) = lu(k,1604) - lu(k,851) * lu(k,1588) + lu(k,1605) = lu(k,1605) - lu(k,852) * lu(k,1588) + lu(k,1606) = lu(k,1606) - lu(k,853) * lu(k,1588) + lu(k,1607) = lu(k,1607) - lu(k,854) * lu(k,1588) + lu(k,1608) = lu(k,1608) - lu(k,855) * lu(k,1588) + lu(k,1610) = lu(k,1610) - lu(k,856) * lu(k,1588) + lu(k,1611) = lu(k,1611) - lu(k,857) * lu(k,1588) + lu(k,1612) = lu(k,1612) - lu(k,858) * lu(k,1588) + lu(k,1613) = lu(k,1613) - lu(k,859) * lu(k,1588) + lu(k,1614) = lu(k,1614) - lu(k,860) * lu(k,1588) + lu(k,1615) = lu(k,1615) - lu(k,861) * lu(k,1588) + lu(k,1616) = lu(k,1616) - lu(k,862) * lu(k,1588) + lu(k,1617) = lu(k,1617) - lu(k,863) * lu(k,1588) + lu(k,1632) = lu(k,1632) - lu(k,836) * lu(k,1631) + lu(k,1633) = - lu(k,837) * lu(k,1631) + lu(k,1634) = lu(k,1634) - lu(k,838) * lu(k,1631) + lu(k,1635) = lu(k,1635) - lu(k,839) * lu(k,1631) + lu(k,1636) = lu(k,1636) - lu(k,840) * lu(k,1631) + lu(k,1637) = lu(k,1637) - lu(k,841) * lu(k,1631) + lu(k,1638) = - lu(k,842) * lu(k,1631) + lu(k,1639) = lu(k,1639) - lu(k,843) * lu(k,1631) + lu(k,1640) = lu(k,1640) - lu(k,844) * lu(k,1631) + lu(k,1641) = - lu(k,845) * lu(k,1631) + lu(k,1642) = lu(k,1642) - lu(k,846) * lu(k,1631) + lu(k,1643) = lu(k,1643) - lu(k,847) * lu(k,1631) + lu(k,1644) = lu(k,1644) - lu(k,848) * lu(k,1631) + lu(k,1645) = lu(k,1645) - lu(k,849) * lu(k,1631) + lu(k,1646) = lu(k,1646) - lu(k,850) * lu(k,1631) + lu(k,1647) = lu(k,1647) - lu(k,851) * lu(k,1631) + lu(k,1648) = lu(k,1648) - lu(k,852) * lu(k,1631) + lu(k,1649) = lu(k,1649) - lu(k,853) * lu(k,1631) + lu(k,1650) = lu(k,1650) - lu(k,854) * lu(k,1631) + lu(k,1651) = lu(k,1651) - lu(k,855) * lu(k,1631) + lu(k,1653) = lu(k,1653) - lu(k,856) * lu(k,1631) + lu(k,1654) = lu(k,1654) - lu(k,857) * lu(k,1631) + lu(k,1655) = - lu(k,858) * lu(k,1631) + lu(k,1656) = - lu(k,859) * lu(k,1631) + lu(k,1657) = lu(k,1657) - lu(k,860) * lu(k,1631) + lu(k,1658) = lu(k,1658) - lu(k,861) * lu(k,1631) + lu(k,1659) = lu(k,1659) - lu(k,862) * lu(k,1631) + lu(k,1660) = lu(k,1660) - lu(k,863) * lu(k,1631) + lu(k,1674) = lu(k,1674) - lu(k,836) * lu(k,1673) + lu(k,1675) = lu(k,1675) - lu(k,837) * lu(k,1673) + lu(k,1676) = lu(k,1676) - lu(k,838) * lu(k,1673) + lu(k,1677) = lu(k,1677) - lu(k,839) * lu(k,1673) + lu(k,1678) = lu(k,1678) - lu(k,840) * lu(k,1673) + lu(k,1679) = lu(k,1679) - lu(k,841) * lu(k,1673) + lu(k,1680) = lu(k,1680) - lu(k,842) * lu(k,1673) + lu(k,1681) = lu(k,1681) - lu(k,843) * lu(k,1673) + lu(k,1682) = lu(k,1682) - lu(k,844) * lu(k,1673) + lu(k,1683) = lu(k,1683) - lu(k,845) * lu(k,1673) + lu(k,1684) = lu(k,1684) - lu(k,846) * lu(k,1673) + lu(k,1685) = lu(k,1685) - lu(k,847) * lu(k,1673) + lu(k,1686) = lu(k,1686) - lu(k,848) * lu(k,1673) + lu(k,1687) = lu(k,1687) - lu(k,849) * lu(k,1673) + lu(k,1688) = lu(k,1688) - lu(k,850) * lu(k,1673) + lu(k,1689) = lu(k,1689) - lu(k,851) * lu(k,1673) + lu(k,1690) = lu(k,1690) - lu(k,852) * lu(k,1673) + lu(k,1691) = lu(k,1691) - lu(k,853) * lu(k,1673) + lu(k,1692) = lu(k,1692) - lu(k,854) * lu(k,1673) + lu(k,1693) = lu(k,1693) - lu(k,855) * lu(k,1673) + lu(k,1695) = lu(k,1695) - lu(k,856) * lu(k,1673) + lu(k,1696) = lu(k,1696) - lu(k,857) * lu(k,1673) + lu(k,1697) = lu(k,1697) - lu(k,858) * lu(k,1673) + lu(k,1698) = lu(k,1698) - lu(k,859) * lu(k,1673) + lu(k,1699) = lu(k,1699) - lu(k,860) * lu(k,1673) + lu(k,1700) = lu(k,1700) - lu(k,861) * lu(k,1673) + lu(k,1701) = lu(k,1701) - lu(k,862) * lu(k,1673) + lu(k,1702) = lu(k,1702) - lu(k,863) * lu(k,1673) + lu(k,1750) = lu(k,1750) - lu(k,836) * lu(k,1749) + lu(k,1751) = lu(k,1751) - lu(k,837) * lu(k,1749) + lu(k,1752) = lu(k,1752) - lu(k,838) * lu(k,1749) + lu(k,1753) = lu(k,1753) - lu(k,839) * lu(k,1749) + lu(k,1754) = lu(k,1754) - lu(k,840) * lu(k,1749) + lu(k,1755) = lu(k,1755) - lu(k,841) * lu(k,1749) + lu(k,1756) = lu(k,1756) - lu(k,842) * lu(k,1749) + lu(k,1757) = lu(k,1757) - lu(k,843) * lu(k,1749) + lu(k,1758) = lu(k,1758) - lu(k,844) * lu(k,1749) + lu(k,1759) = lu(k,1759) - lu(k,845) * lu(k,1749) + lu(k,1760) = lu(k,1760) - lu(k,846) * lu(k,1749) + lu(k,1761) = lu(k,1761) - lu(k,847) * lu(k,1749) + lu(k,1762) = lu(k,1762) - lu(k,848) * lu(k,1749) + lu(k,1763) = lu(k,1763) - lu(k,849) * lu(k,1749) + lu(k,1764) = lu(k,1764) - lu(k,850) * lu(k,1749) + lu(k,1765) = lu(k,1765) - lu(k,851) * lu(k,1749) + lu(k,1766) = lu(k,1766) - lu(k,852) * lu(k,1749) + lu(k,1767) = lu(k,1767) - lu(k,853) * lu(k,1749) + lu(k,1768) = lu(k,1768) - lu(k,854) * lu(k,1749) + lu(k,1769) = lu(k,1769) - lu(k,855) * lu(k,1749) + lu(k,1771) = lu(k,1771) - lu(k,856) * lu(k,1749) + lu(k,1772) = lu(k,1772) - lu(k,857) * lu(k,1749) + lu(k,1773) = lu(k,1773) - lu(k,858) * lu(k,1749) + lu(k,1774) = lu(k,1774) - lu(k,859) * lu(k,1749) + lu(k,1775) = lu(k,1775) - lu(k,860) * lu(k,1749) + lu(k,1776) = lu(k,1776) - lu(k,861) * lu(k,1749) + lu(k,1777) = lu(k,1777) - lu(k,862) * lu(k,1749) + lu(k,1778) = lu(k,1778) - lu(k,863) * lu(k,1749) + lu(k,1916) = lu(k,1916) - lu(k,836) * lu(k,1915) + lu(k,1917) = lu(k,1917) - lu(k,837) * lu(k,1915) + lu(k,1918) = lu(k,1918) - lu(k,838) * lu(k,1915) + lu(k,1919) = lu(k,1919) - lu(k,839) * lu(k,1915) + lu(k,1920) = lu(k,1920) - lu(k,840) * lu(k,1915) + lu(k,1921) = lu(k,1921) - lu(k,841) * lu(k,1915) + lu(k,1922) = lu(k,1922) - lu(k,842) * lu(k,1915) + lu(k,1923) = lu(k,1923) - lu(k,843) * lu(k,1915) + lu(k,1924) = - lu(k,844) * lu(k,1915) + lu(k,1925) = lu(k,1925) - lu(k,845) * lu(k,1915) + lu(k,1926) = - lu(k,846) * lu(k,1915) + lu(k,1927) = - lu(k,847) * lu(k,1915) + lu(k,1928) = lu(k,1928) - lu(k,848) * lu(k,1915) + lu(k,1929) = - lu(k,849) * lu(k,1915) + lu(k,1930) = lu(k,1930) - lu(k,850) * lu(k,1915) + lu(k,1931) = lu(k,1931) - lu(k,851) * lu(k,1915) + lu(k,1932) = lu(k,1932) - lu(k,852) * lu(k,1915) + lu(k,1933) = lu(k,1933) - lu(k,853) * lu(k,1915) + lu(k,1934) = lu(k,1934) - lu(k,854) * lu(k,1915) + lu(k,1935) = lu(k,1935) - lu(k,855) * lu(k,1915) + lu(k,1937) = lu(k,1937) - lu(k,856) * lu(k,1915) + lu(k,1938) = lu(k,1938) - lu(k,857) * lu(k,1915) + lu(k,1939) = lu(k,1939) - lu(k,858) * lu(k,1915) + lu(k,1940) = lu(k,1940) - lu(k,859) * lu(k,1915) + lu(k,1941) = lu(k,1941) - lu(k,860) * lu(k,1915) + lu(k,1942) = lu(k,1942) - lu(k,861) * lu(k,1915) + lu(k,1943) = lu(k,1943) - lu(k,862) * lu(k,1915) + lu(k,1944) = lu(k,1944) - lu(k,863) * lu(k,1915) + lu(k,2005) = lu(k,2005) - lu(k,836) * lu(k,2004) + lu(k,2006) = lu(k,2006) - lu(k,837) * lu(k,2004) + lu(k,2007) = lu(k,2007) - lu(k,838) * lu(k,2004) + lu(k,2008) = lu(k,2008) - lu(k,839) * lu(k,2004) + lu(k,2009) = - lu(k,840) * lu(k,2004) + lu(k,2010) = lu(k,2010) - lu(k,841) * lu(k,2004) + lu(k,2011) = lu(k,2011) - lu(k,842) * lu(k,2004) + lu(k,2012) = lu(k,2012) - lu(k,843) * lu(k,2004) + lu(k,2013) = lu(k,2013) - lu(k,844) * lu(k,2004) + lu(k,2014) = lu(k,2014) - lu(k,845) * lu(k,2004) + lu(k,2015) = lu(k,2015) - lu(k,846) * lu(k,2004) + lu(k,2016) = lu(k,2016) - lu(k,847) * lu(k,2004) + lu(k,2017) = lu(k,2017) - lu(k,848) * lu(k,2004) + lu(k,2018) = lu(k,2018) - lu(k,849) * lu(k,2004) + lu(k,2019) = lu(k,2019) - lu(k,850) * lu(k,2004) + lu(k,2020) = lu(k,2020) - lu(k,851) * lu(k,2004) + lu(k,2021) = lu(k,2021) - lu(k,852) * lu(k,2004) + lu(k,2022) = lu(k,2022) - lu(k,853) * lu(k,2004) + lu(k,2023) = lu(k,2023) - lu(k,854) * lu(k,2004) + lu(k,2024) = lu(k,2024) - lu(k,855) * lu(k,2004) + lu(k,2026) = lu(k,2026) - lu(k,856) * lu(k,2004) + lu(k,2027) = lu(k,2027) - lu(k,857) * lu(k,2004) + lu(k,2028) = lu(k,2028) - lu(k,858) * lu(k,2004) + lu(k,2029) = lu(k,2029) - lu(k,859) * lu(k,2004) + lu(k,2030) = lu(k,2030) - lu(k,860) * lu(k,2004) + lu(k,2031) = lu(k,2031) - lu(k,861) * lu(k,2004) + lu(k,2032) = lu(k,2032) - lu(k,862) * lu(k,2004) + lu(k,2033) = lu(k,2033) - lu(k,863) * lu(k,2004) + end do + end subroutine lu_fac20 + subroutine lu_fac21( avec_len, lu ) + use chem_mods, only : nzcnt + use shr_kind_mod, only : r8 => shr_kind_r8 + implicit none +!----------------------------------------------------------------------- +! ... dummy args +!----------------------------------------------------------------------- + integer, intent(in) :: avec_len + real(r8), intent(inout) :: lu(veclen,nzcnt) +!----------------------------------------------------------------------- +! ... local variables +!----------------------------------------------------------------------- + integer :: k + do k = 1,avec_len + lu(k,868) = 1._r8 / lu(k,868) + lu(k,869) = lu(k,869) * lu(k,868) + lu(k,870) = lu(k,870) * lu(k,868) + lu(k,871) = lu(k,871) * lu(k,868) + lu(k,872) = lu(k,872) * lu(k,868) + lu(k,873) = lu(k,873) * lu(k,868) + lu(k,874) = lu(k,874) * lu(k,868) + lu(k,875) = lu(k,875) * lu(k,868) + lu(k,876) = lu(k,876) * lu(k,868) + lu(k,877) = lu(k,877) * lu(k,868) + lu(k,878) = lu(k,878) * lu(k,868) + lu(k,879) = lu(k,879) * lu(k,868) + lu(k,880) = lu(k,880) * lu(k,868) + lu(k,881) = lu(k,881) * lu(k,868) + lu(k,882) = lu(k,882) * lu(k,868) + lu(k,883) = lu(k,883) * lu(k,868) + lu(k,884) = lu(k,884) * lu(k,868) + lu(k,885) = lu(k,885) * lu(k,868) + lu(k,886) = lu(k,886) * lu(k,868) + lu(k,887) = lu(k,887) * lu(k,868) + lu(k,888) = lu(k,888) * lu(k,868) + lu(k,928) = lu(k,928) - lu(k,869) * lu(k,927) + lu(k,930) = lu(k,930) - lu(k,870) * lu(k,927) + lu(k,932) = lu(k,932) - lu(k,871) * lu(k,927) + lu(k,933) = lu(k,933) - lu(k,872) * lu(k,927) + lu(k,934) = lu(k,934) - lu(k,873) * lu(k,927) + lu(k,935) = lu(k,935) - lu(k,874) * lu(k,927) + lu(k,936) = lu(k,936) - lu(k,875) * lu(k,927) + lu(k,937) = - lu(k,876) * lu(k,927) + lu(k,938) = lu(k,938) - lu(k,877) * lu(k,927) + lu(k,939) = lu(k,939) - lu(k,878) * lu(k,927) + lu(k,940) = lu(k,940) - lu(k,879) * lu(k,927) + lu(k,941) = lu(k,941) - lu(k,880) * lu(k,927) + lu(k,942) = lu(k,942) - lu(k,881) * lu(k,927) + lu(k,943) = lu(k,943) - lu(k,882) * lu(k,927) + lu(k,944) = lu(k,944) - lu(k,883) * lu(k,927) + lu(k,945) = lu(k,945) - lu(k,884) * lu(k,927) + lu(k,947) = lu(k,947) - lu(k,885) * lu(k,927) + lu(k,948) = lu(k,948) - lu(k,886) * lu(k,927) + lu(k,949) = lu(k,949) - lu(k,887) * lu(k,927) + lu(k,950) = lu(k,950) - lu(k,888) * lu(k,927) + lu(k,1014) = lu(k,1014) - lu(k,869) * lu(k,1013) + lu(k,1017) = lu(k,1017) - lu(k,870) * lu(k,1013) + lu(k,1019) = lu(k,1019) - lu(k,871) * lu(k,1013) + lu(k,1020) = lu(k,1020) - lu(k,872) * lu(k,1013) + lu(k,1021) = lu(k,1021) - lu(k,873) * lu(k,1013) + lu(k,1022) = lu(k,1022) - lu(k,874) * lu(k,1013) + lu(k,1023) = lu(k,1023) - lu(k,875) * lu(k,1013) + lu(k,1024) = lu(k,1024) - lu(k,876) * lu(k,1013) + lu(k,1025) = lu(k,1025) - lu(k,877) * lu(k,1013) + lu(k,1026) = lu(k,1026) - lu(k,878) * lu(k,1013) + lu(k,1027) = lu(k,1027) - lu(k,879) * lu(k,1013) + lu(k,1029) = lu(k,1029) - lu(k,880) * lu(k,1013) + lu(k,1030) = lu(k,1030) - lu(k,881) * lu(k,1013) + lu(k,1032) = lu(k,1032) - lu(k,882) * lu(k,1013) + lu(k,1033) = lu(k,1033) - lu(k,883) * lu(k,1013) + lu(k,1034) = lu(k,1034) - lu(k,884) * lu(k,1013) + lu(k,1037) = lu(k,1037) - lu(k,885) * lu(k,1013) + lu(k,1038) = lu(k,1038) - lu(k,886) * lu(k,1013) + lu(k,1039) = lu(k,1039) - lu(k,887) * lu(k,1013) + lu(k,1040) = lu(k,1040) - lu(k,888) * lu(k,1013) + lu(k,1102) = lu(k,1102) - lu(k,869) * lu(k,1100) + lu(k,1105) = lu(k,1105) - lu(k,870) * lu(k,1100) + lu(k,1107) = lu(k,1107) - lu(k,871) * lu(k,1100) + lu(k,1108) = lu(k,1108) - lu(k,872) * lu(k,1100) + lu(k,1109) = lu(k,1109) - lu(k,873) * lu(k,1100) + lu(k,1110) = lu(k,1110) - lu(k,874) * lu(k,1100) + lu(k,1111) = lu(k,1111) - lu(k,875) * lu(k,1100) + lu(k,1112) = lu(k,1112) - lu(k,876) * lu(k,1100) + lu(k,1113) = lu(k,1113) - lu(k,877) * lu(k,1100) + lu(k,1114) = lu(k,1114) - lu(k,878) * lu(k,1100) + lu(k,1115) = lu(k,1115) - lu(k,879) * lu(k,1100) + lu(k,1117) = lu(k,1117) - lu(k,880) * lu(k,1100) + lu(k,1118) = lu(k,1118) - lu(k,881) * lu(k,1100) + lu(k,1120) = lu(k,1120) - lu(k,882) * lu(k,1100) + lu(k,1121) = lu(k,1121) - lu(k,883) * lu(k,1100) + lu(k,1122) = lu(k,1122) - lu(k,884) * lu(k,1100) + lu(k,1125) = lu(k,1125) - lu(k,885) * lu(k,1100) + lu(k,1126) = lu(k,1126) - lu(k,886) * lu(k,1100) + lu(k,1127) = lu(k,1127) - lu(k,887) * lu(k,1100) + lu(k,1128) = lu(k,1128) - lu(k,888) * lu(k,1100) + lu(k,1149) = lu(k,1149) - lu(k,869) * lu(k,1147) + lu(k,1152) = lu(k,1152) - lu(k,870) * lu(k,1147) + lu(k,1154) = lu(k,1154) - lu(k,871) * lu(k,1147) + lu(k,1155) = lu(k,1155) - lu(k,872) * lu(k,1147) + lu(k,1156) = lu(k,1156) - lu(k,873) * lu(k,1147) + lu(k,1157) = lu(k,1157) - lu(k,874) * lu(k,1147) + lu(k,1158) = lu(k,1158) - lu(k,875) * lu(k,1147) + lu(k,1159) = lu(k,1159) - lu(k,876) * lu(k,1147) + lu(k,1160) = lu(k,1160) - lu(k,877) * lu(k,1147) + lu(k,1161) = lu(k,1161) - lu(k,878) * lu(k,1147) + lu(k,1162) = lu(k,1162) - lu(k,879) * lu(k,1147) + lu(k,1164) = lu(k,1164) - lu(k,880) * lu(k,1147) + lu(k,1165) = lu(k,1165) - lu(k,881) * lu(k,1147) + lu(k,1167) = lu(k,1167) - lu(k,882) * lu(k,1147) + lu(k,1168) = lu(k,1168) - lu(k,883) * lu(k,1147) + lu(k,1169) = lu(k,1169) - lu(k,884) * lu(k,1147) + lu(k,1172) = lu(k,1172) - lu(k,885) * lu(k,1147) + lu(k,1173) = lu(k,1173) - lu(k,886) * lu(k,1147) + lu(k,1174) = lu(k,1174) - lu(k,887) * lu(k,1147) + lu(k,1175) = lu(k,1175) - lu(k,888) * lu(k,1147) + lu(k,1192) = lu(k,1192) - lu(k,869) * lu(k,1190) + lu(k,1195) = lu(k,1195) - lu(k,870) * lu(k,1190) + lu(k,1197) = lu(k,1197) - lu(k,871) * lu(k,1190) + lu(k,1198) = lu(k,1198) - lu(k,872) * lu(k,1190) + lu(k,1199) = lu(k,1199) - lu(k,873) * lu(k,1190) + lu(k,1200) = lu(k,1200) - lu(k,874) * lu(k,1190) + lu(k,1201) = lu(k,1201) - lu(k,875) * lu(k,1190) + lu(k,1202) = lu(k,1202) - lu(k,876) * lu(k,1190) + lu(k,1203) = lu(k,1203) - lu(k,877) * lu(k,1190) + lu(k,1204) = lu(k,1204) - lu(k,878) * lu(k,1190) + lu(k,1205) = lu(k,1205) - lu(k,879) * lu(k,1190) + lu(k,1207) = lu(k,1207) - lu(k,880) * lu(k,1190) + lu(k,1208) = lu(k,1208) - lu(k,881) * lu(k,1190) + lu(k,1210) = lu(k,1210) - lu(k,882) * lu(k,1190) + lu(k,1211) = lu(k,1211) - lu(k,883) * lu(k,1190) + lu(k,1212) = lu(k,1212) - lu(k,884) * lu(k,1190) + lu(k,1215) = lu(k,1215) - lu(k,885) * lu(k,1190) + lu(k,1216) = lu(k,1216) - lu(k,886) * lu(k,1190) + lu(k,1217) = lu(k,1217) - lu(k,887) * lu(k,1190) + lu(k,1218) = lu(k,1218) - lu(k,888) * lu(k,1190) + lu(k,1233) = lu(k,1233) - lu(k,869) * lu(k,1231) + lu(k,1236) = lu(k,1236) - lu(k,870) * lu(k,1231) + lu(k,1238) = lu(k,1238) - lu(k,871) * lu(k,1231) + lu(k,1239) = lu(k,1239) - lu(k,872) * lu(k,1231) + lu(k,1240) = lu(k,1240) - lu(k,873) * lu(k,1231) + lu(k,1241) = lu(k,1241) - lu(k,874) * lu(k,1231) + lu(k,1242) = lu(k,1242) - lu(k,875) * lu(k,1231) + lu(k,1243) = lu(k,1243) - lu(k,876) * lu(k,1231) + lu(k,1244) = lu(k,1244) - lu(k,877) * lu(k,1231) + lu(k,1245) = lu(k,1245) - lu(k,878) * lu(k,1231) + lu(k,1246) = lu(k,1246) - lu(k,879) * lu(k,1231) + lu(k,1248) = lu(k,1248) - lu(k,880) * lu(k,1231) + lu(k,1249) = lu(k,1249) - lu(k,881) * lu(k,1231) + lu(k,1251) = lu(k,1251) - lu(k,882) * lu(k,1231) + lu(k,1252) = lu(k,1252) - lu(k,883) * lu(k,1231) + lu(k,1253) = lu(k,1253) - lu(k,884) * lu(k,1231) + lu(k,1256) = lu(k,1256) - lu(k,885) * lu(k,1231) + lu(k,1257) = lu(k,1257) - lu(k,886) * lu(k,1231) + lu(k,1258) = lu(k,1258) - lu(k,887) * lu(k,1231) + lu(k,1259) = lu(k,1259) - lu(k,888) * lu(k,1231) + lu(k,1276) = lu(k,1276) - lu(k,869) * lu(k,1274) + lu(k,1279) = lu(k,1279) - lu(k,870) * lu(k,1274) + lu(k,1281) = lu(k,1281) - lu(k,871) * lu(k,1274) + lu(k,1282) = lu(k,1282) - lu(k,872) * lu(k,1274) + lu(k,1283) = lu(k,1283) - lu(k,873) * lu(k,1274) + lu(k,1284) = lu(k,1284) - lu(k,874) * lu(k,1274) + lu(k,1285) = lu(k,1285) - lu(k,875) * lu(k,1274) + lu(k,1286) = lu(k,1286) - lu(k,876) * lu(k,1274) + lu(k,1287) = lu(k,1287) - lu(k,877) * lu(k,1274) + lu(k,1288) = lu(k,1288) - lu(k,878) * lu(k,1274) + lu(k,1289) = lu(k,1289) - lu(k,879) * lu(k,1274) + lu(k,1291) = lu(k,1291) - lu(k,880) * lu(k,1274) + lu(k,1292) = lu(k,1292) - lu(k,881) * lu(k,1274) + lu(k,1294) = lu(k,1294) - lu(k,882) * lu(k,1274) + lu(k,1295) = lu(k,1295) - lu(k,883) * lu(k,1274) + lu(k,1296) = lu(k,1296) - lu(k,884) * lu(k,1274) + lu(k,1299) = lu(k,1299) - lu(k,885) * lu(k,1274) + lu(k,1300) = lu(k,1300) - lu(k,886) * lu(k,1274) + lu(k,1301) = lu(k,1301) - lu(k,887) * lu(k,1274) + lu(k,1302) = lu(k,1302) - lu(k,888) * lu(k,1274) + lu(k,1318) = lu(k,1318) - lu(k,869) * lu(k,1316) + lu(k,1321) = lu(k,1321) - lu(k,870) * lu(k,1316) + lu(k,1323) = lu(k,1323) - lu(k,871) * lu(k,1316) + lu(k,1324) = lu(k,1324) - lu(k,872) * lu(k,1316) + lu(k,1325) = lu(k,1325) - lu(k,873) * lu(k,1316) + lu(k,1326) = lu(k,1326) - lu(k,874) * lu(k,1316) + lu(k,1327) = lu(k,1327) - lu(k,875) * lu(k,1316) + lu(k,1328) = lu(k,1328) - lu(k,876) * lu(k,1316) + lu(k,1329) = lu(k,1329) - lu(k,877) * lu(k,1316) + lu(k,1330) = lu(k,1330) - lu(k,878) * lu(k,1316) + lu(k,1331) = lu(k,1331) - lu(k,879) * lu(k,1316) + lu(k,1333) = lu(k,1333) - lu(k,880) * lu(k,1316) + lu(k,1334) = lu(k,1334) - lu(k,881) * lu(k,1316) + lu(k,1336) = lu(k,1336) - lu(k,882) * lu(k,1316) + lu(k,1337) = lu(k,1337) - lu(k,883) * lu(k,1316) + lu(k,1338) = lu(k,1338) - lu(k,884) * lu(k,1316) + lu(k,1341) = lu(k,1341) - lu(k,885) * lu(k,1316) + lu(k,1342) = lu(k,1342) - lu(k,886) * lu(k,1316) + lu(k,1343) = lu(k,1343) - lu(k,887) * lu(k,1316) + lu(k,1344) = lu(k,1344) - lu(k,888) * lu(k,1316) + lu(k,1378) = lu(k,1378) - lu(k,869) * lu(k,1376) + lu(k,1381) = lu(k,1381) - lu(k,870) * lu(k,1376) + lu(k,1383) = lu(k,1383) - lu(k,871) * lu(k,1376) + lu(k,1384) = lu(k,1384) - lu(k,872) * lu(k,1376) + lu(k,1385) = lu(k,1385) - lu(k,873) * lu(k,1376) + lu(k,1386) = lu(k,1386) - lu(k,874) * lu(k,1376) + lu(k,1387) = lu(k,1387) - lu(k,875) * lu(k,1376) + lu(k,1388) = lu(k,1388) - lu(k,876) * lu(k,1376) + lu(k,1389) = lu(k,1389) - lu(k,877) * lu(k,1376) + lu(k,1390) = lu(k,1390) - lu(k,878) * lu(k,1376) + lu(k,1391) = lu(k,1391) - lu(k,879) * lu(k,1376) + lu(k,1393) = lu(k,1393) - lu(k,880) * lu(k,1376) + lu(k,1394) = lu(k,1394) - lu(k,881) * lu(k,1376) + lu(k,1396) = lu(k,1396) - lu(k,882) * lu(k,1376) + lu(k,1397) = lu(k,1397) - lu(k,883) * lu(k,1376) + lu(k,1398) = lu(k,1398) - lu(k,884) * lu(k,1376) + lu(k,1401) = lu(k,1401) - lu(k,885) * lu(k,1376) + lu(k,1402) = lu(k,1402) - lu(k,886) * lu(k,1376) + lu(k,1403) = lu(k,1403) - lu(k,887) * lu(k,1376) + lu(k,1404) = lu(k,1404) - lu(k,888) * lu(k,1376) + lu(k,1421) = lu(k,1421) - lu(k,869) * lu(k,1419) + lu(k,1424) = lu(k,1424) - lu(k,870) * lu(k,1419) + lu(k,1426) = lu(k,1426) - lu(k,871) * lu(k,1419) + lu(k,1427) = lu(k,1427) - lu(k,872) * lu(k,1419) + lu(k,1428) = lu(k,1428) - lu(k,873) * lu(k,1419) + lu(k,1429) = lu(k,1429) - lu(k,874) * lu(k,1419) + lu(k,1430) = lu(k,1430) - lu(k,875) * lu(k,1419) + lu(k,1431) = lu(k,1431) - lu(k,876) * lu(k,1419) + lu(k,1432) = lu(k,1432) - lu(k,877) * lu(k,1419) + lu(k,1433) = lu(k,1433) - lu(k,878) * lu(k,1419) + lu(k,1434) = lu(k,1434) - lu(k,879) * lu(k,1419) + lu(k,1436) = lu(k,1436) - lu(k,880) * lu(k,1419) + lu(k,1437) = lu(k,1437) - lu(k,881) * lu(k,1419) + lu(k,1439) = lu(k,1439) - lu(k,882) * lu(k,1419) + lu(k,1440) = lu(k,1440) - lu(k,883) * lu(k,1419) + lu(k,1441) = lu(k,1441) - lu(k,884) * lu(k,1419) + lu(k,1444) = lu(k,1444) - lu(k,885) * lu(k,1419) + lu(k,1445) = lu(k,1445) - lu(k,886) * lu(k,1419) + lu(k,1446) = lu(k,1446) - lu(k,887) * lu(k,1419) + lu(k,1447) = lu(k,1447) - lu(k,888) * lu(k,1419) + lu(k,1469) = lu(k,1469) - lu(k,869) * lu(k,1467) + lu(k,1472) = lu(k,1472) - lu(k,870) * lu(k,1467) + lu(k,1474) = lu(k,1474) - lu(k,871) * lu(k,1467) + lu(k,1475) = lu(k,1475) - lu(k,872) * lu(k,1467) + lu(k,1476) = lu(k,1476) - lu(k,873) * lu(k,1467) + lu(k,1477) = lu(k,1477) - lu(k,874) * lu(k,1467) + lu(k,1478) = lu(k,1478) - lu(k,875) * lu(k,1467) + lu(k,1479) = lu(k,1479) - lu(k,876) * lu(k,1467) + lu(k,1480) = lu(k,1480) - lu(k,877) * lu(k,1467) + lu(k,1481) = lu(k,1481) - lu(k,878) * lu(k,1467) + lu(k,1482) = lu(k,1482) - lu(k,879) * lu(k,1467) + lu(k,1484) = lu(k,1484) - lu(k,880) * lu(k,1467) + lu(k,1485) = lu(k,1485) - lu(k,881) * lu(k,1467) + lu(k,1487) = lu(k,1487) - lu(k,882) * lu(k,1467) + lu(k,1488) = lu(k,1488) - lu(k,883) * lu(k,1467) + lu(k,1489) = lu(k,1489) - lu(k,884) * lu(k,1467) + lu(k,1492) = lu(k,1492) - lu(k,885) * lu(k,1467) + lu(k,1493) = lu(k,1493) - lu(k,886) * lu(k,1467) + lu(k,1494) = lu(k,1494) - lu(k,887) * lu(k,1467) + lu(k,1495) = lu(k,1495) - lu(k,888) * lu(k,1467) + lu(k,1510) = lu(k,1510) - lu(k,869) * lu(k,1508) + lu(k,1513) = lu(k,1513) - lu(k,870) * lu(k,1508) + lu(k,1515) = lu(k,1515) - lu(k,871) * lu(k,1508) + lu(k,1516) = lu(k,1516) - lu(k,872) * lu(k,1508) + lu(k,1517) = lu(k,1517) - lu(k,873) * lu(k,1508) + lu(k,1518) = lu(k,1518) - lu(k,874) * lu(k,1508) + lu(k,1519) = lu(k,1519) - lu(k,875) * lu(k,1508) + lu(k,1520) = lu(k,1520) - lu(k,876) * lu(k,1508) + lu(k,1521) = lu(k,1521) - lu(k,877) * lu(k,1508) + lu(k,1522) = lu(k,1522) - lu(k,878) * lu(k,1508) + lu(k,1523) = lu(k,1523) - lu(k,879) * lu(k,1508) + lu(k,1525) = lu(k,1525) - lu(k,880) * lu(k,1508) + lu(k,1526) = lu(k,1526) - lu(k,881) * lu(k,1508) + lu(k,1528) = lu(k,1528) - lu(k,882) * lu(k,1508) + lu(k,1529) = lu(k,1529) - lu(k,883) * lu(k,1508) + lu(k,1530) = lu(k,1530) - lu(k,884) * lu(k,1508) + lu(k,1533) = lu(k,1533) - lu(k,885) * lu(k,1508) + lu(k,1534) = lu(k,1534) - lu(k,886) * lu(k,1508) + lu(k,1535) = lu(k,1535) - lu(k,887) * lu(k,1508) + lu(k,1536) = lu(k,1536) - lu(k,888) * lu(k,1508) + lu(k,1546) = lu(k,1546) - lu(k,869) * lu(k,1544) + lu(k,1549) = lu(k,1549) - lu(k,870) * lu(k,1544) + lu(k,1551) = lu(k,1551) - lu(k,871) * lu(k,1544) + lu(k,1552) = lu(k,1552) - lu(k,872) * lu(k,1544) + lu(k,1553) = lu(k,1553) - lu(k,873) * lu(k,1544) + lu(k,1554) = lu(k,1554) - lu(k,874) * lu(k,1544) + lu(k,1555) = lu(k,1555) - lu(k,875) * lu(k,1544) + lu(k,1556) = lu(k,1556) - lu(k,876) * lu(k,1544) + lu(k,1557) = lu(k,1557) - lu(k,877) * lu(k,1544) + lu(k,1558) = lu(k,1558) - lu(k,878) * lu(k,1544) + lu(k,1559) = lu(k,1559) - lu(k,879) * lu(k,1544) + lu(k,1561) = lu(k,1561) - lu(k,880) * lu(k,1544) + lu(k,1562) = lu(k,1562) - lu(k,881) * lu(k,1544) + lu(k,1564) = - lu(k,882) * lu(k,1544) + lu(k,1565) = lu(k,1565) - lu(k,883) * lu(k,1544) + lu(k,1566) = lu(k,1566) - lu(k,884) * lu(k,1544) + lu(k,1569) = lu(k,1569) - lu(k,885) * lu(k,1544) + lu(k,1570) = lu(k,1570) - lu(k,886) * lu(k,1544) + lu(k,1571) = lu(k,1571) - lu(k,887) * lu(k,1544) + lu(k,1572) = lu(k,1572) - lu(k,888) * lu(k,1544) + lu(k,1591) = lu(k,1591) - lu(k,869) * lu(k,1589) + lu(k,1594) = lu(k,1594) - lu(k,870) * lu(k,1589) + lu(k,1596) = lu(k,1596) - lu(k,871) * lu(k,1589) + lu(k,1597) = lu(k,1597) - lu(k,872) * lu(k,1589) + lu(k,1598) = lu(k,1598) - lu(k,873) * lu(k,1589) + lu(k,1599) = lu(k,1599) - lu(k,874) * lu(k,1589) + lu(k,1600) = lu(k,1600) - lu(k,875) * lu(k,1589) + lu(k,1601) = lu(k,1601) - lu(k,876) * lu(k,1589) + lu(k,1602) = lu(k,1602) - lu(k,877) * lu(k,1589) + lu(k,1603) = lu(k,1603) - lu(k,878) * lu(k,1589) + lu(k,1604) = lu(k,1604) - lu(k,879) * lu(k,1589) + lu(k,1606) = lu(k,1606) - lu(k,880) * lu(k,1589) + lu(k,1607) = lu(k,1607) - lu(k,881) * lu(k,1589) + lu(k,1609) = lu(k,1609) - lu(k,882) * lu(k,1589) + lu(k,1610) = lu(k,1610) - lu(k,883) * lu(k,1589) + lu(k,1611) = lu(k,1611) - lu(k,884) * lu(k,1589) + lu(k,1614) = lu(k,1614) - lu(k,885) * lu(k,1589) + lu(k,1615) = lu(k,1615) - lu(k,886) * lu(k,1589) + lu(k,1616) = lu(k,1616) - lu(k,887) * lu(k,1589) + lu(k,1617) = lu(k,1617) - lu(k,888) * lu(k,1589) + lu(k,1634) = lu(k,1634) - lu(k,869) * lu(k,1632) + lu(k,1637) = lu(k,1637) - lu(k,870) * lu(k,1632) + lu(k,1639) = lu(k,1639) - lu(k,871) * lu(k,1632) + lu(k,1640) = lu(k,1640) - lu(k,872) * lu(k,1632) + lu(k,1641) = lu(k,1641) - lu(k,873) * lu(k,1632) + lu(k,1642) = lu(k,1642) - lu(k,874) * lu(k,1632) + lu(k,1643) = lu(k,1643) - lu(k,875) * lu(k,1632) + lu(k,1644) = lu(k,1644) - lu(k,876) * lu(k,1632) + lu(k,1645) = lu(k,1645) - lu(k,877) * lu(k,1632) + lu(k,1646) = lu(k,1646) - lu(k,878) * lu(k,1632) + lu(k,1647) = lu(k,1647) - lu(k,879) * lu(k,1632) + lu(k,1649) = lu(k,1649) - lu(k,880) * lu(k,1632) + lu(k,1650) = lu(k,1650) - lu(k,881) * lu(k,1632) + lu(k,1652) = lu(k,1652) - lu(k,882) * lu(k,1632) + lu(k,1653) = lu(k,1653) - lu(k,883) * lu(k,1632) + lu(k,1654) = lu(k,1654) - lu(k,884) * lu(k,1632) + lu(k,1657) = lu(k,1657) - lu(k,885) * lu(k,1632) + lu(k,1658) = lu(k,1658) - lu(k,886) * lu(k,1632) + lu(k,1659) = lu(k,1659) - lu(k,887) * lu(k,1632) + lu(k,1660) = lu(k,1660) - lu(k,888) * lu(k,1632) + lu(k,1676) = lu(k,1676) - lu(k,869) * lu(k,1674) + lu(k,1679) = lu(k,1679) - lu(k,870) * lu(k,1674) + lu(k,1681) = lu(k,1681) - lu(k,871) * lu(k,1674) + lu(k,1682) = lu(k,1682) - lu(k,872) * lu(k,1674) + lu(k,1683) = lu(k,1683) - lu(k,873) * lu(k,1674) + lu(k,1684) = lu(k,1684) - lu(k,874) * lu(k,1674) + lu(k,1685) = lu(k,1685) - lu(k,875) * lu(k,1674) + lu(k,1686) = lu(k,1686) - lu(k,876) * lu(k,1674) + lu(k,1687) = lu(k,1687) - lu(k,877) * lu(k,1674) + lu(k,1688) = lu(k,1688) - lu(k,878) * lu(k,1674) + lu(k,1689) = lu(k,1689) - lu(k,879) * lu(k,1674) + lu(k,1691) = lu(k,1691) - lu(k,880) * lu(k,1674) + lu(k,1692) = lu(k,1692) - lu(k,881) * lu(k,1674) + lu(k,1694) = lu(k,1694) - lu(k,882) * lu(k,1674) + lu(k,1695) = lu(k,1695) - lu(k,883) * lu(k,1674) + lu(k,1696) = lu(k,1696) - lu(k,884) * lu(k,1674) + lu(k,1699) = lu(k,1699) - lu(k,885) * lu(k,1674) + lu(k,1700) = lu(k,1700) - lu(k,886) * lu(k,1674) + lu(k,1701) = lu(k,1701) - lu(k,887) * lu(k,1674) + lu(k,1702) = lu(k,1702) - lu(k,888) * lu(k,1674) + lu(k,1717) = - lu(k,869) * lu(k,1715) + lu(k,1719) = lu(k,1719) - lu(k,870) * lu(k,1715) + lu(k,1721) = lu(k,1721) - lu(k,871) * lu(k,1715) + lu(k,1722) = lu(k,1722) - lu(k,872) * lu(k,1715) + lu(k,1723) = lu(k,1723) - lu(k,873) * lu(k,1715) + lu(k,1724) = lu(k,1724) - lu(k,874) * lu(k,1715) + lu(k,1725) = lu(k,1725) - lu(k,875) * lu(k,1715) + lu(k,1726) = lu(k,1726) - lu(k,876) * lu(k,1715) + lu(k,1727) = lu(k,1727) - lu(k,877) * lu(k,1715) + lu(k,1728) = lu(k,1728) - lu(k,878) * lu(k,1715) + lu(k,1729) = lu(k,1729) - lu(k,879) * lu(k,1715) + lu(k,1731) = lu(k,1731) - lu(k,880) * lu(k,1715) + lu(k,1732) = lu(k,1732) - lu(k,881) * lu(k,1715) + lu(k,1734) = lu(k,1734) - lu(k,882) * lu(k,1715) + lu(k,1735) = lu(k,1735) - lu(k,883) * lu(k,1715) + lu(k,1736) = lu(k,1736) - lu(k,884) * lu(k,1715) + lu(k,1739) = lu(k,1739) - lu(k,885) * lu(k,1715) + lu(k,1740) = lu(k,1740) - lu(k,886) * lu(k,1715) + lu(k,1741) = lu(k,1741) - lu(k,887) * lu(k,1715) + lu(k,1742) = lu(k,1742) - lu(k,888) * lu(k,1715) + lu(k,1752) = lu(k,1752) - lu(k,869) * lu(k,1750) + lu(k,1755) = lu(k,1755) - lu(k,870) * lu(k,1750) + lu(k,1757) = lu(k,1757) - lu(k,871) * lu(k,1750) + lu(k,1758) = lu(k,1758) - lu(k,872) * lu(k,1750) + lu(k,1759) = lu(k,1759) - lu(k,873) * lu(k,1750) + lu(k,1760) = lu(k,1760) - lu(k,874) * lu(k,1750) + lu(k,1761) = lu(k,1761) - lu(k,875) * lu(k,1750) + lu(k,1762) = lu(k,1762) - lu(k,876) * lu(k,1750) + lu(k,1763) = lu(k,1763) - lu(k,877) * lu(k,1750) + lu(k,1764) = lu(k,1764) - lu(k,878) * lu(k,1750) + lu(k,1765) = lu(k,1765) - lu(k,879) * lu(k,1750) + lu(k,1767) = lu(k,1767) - lu(k,880) * lu(k,1750) + lu(k,1768) = lu(k,1768) - lu(k,881) * lu(k,1750) + lu(k,1770) = lu(k,1770) - lu(k,882) * lu(k,1750) + lu(k,1771) = lu(k,1771) - lu(k,883) * lu(k,1750) + lu(k,1772) = lu(k,1772) - lu(k,884) * lu(k,1750) + lu(k,1775) = lu(k,1775) - lu(k,885) * lu(k,1750) + lu(k,1776) = lu(k,1776) - lu(k,886) * lu(k,1750) + lu(k,1777) = lu(k,1777) - lu(k,887) * lu(k,1750) + lu(k,1778) = lu(k,1778) - lu(k,888) * lu(k,1750) + lu(k,1800) = lu(k,1800) - lu(k,869) * lu(k,1798) + lu(k,1803) = lu(k,1803) - lu(k,870) * lu(k,1798) + lu(k,1805) = lu(k,1805) - lu(k,871) * lu(k,1798) + lu(k,1806) = lu(k,1806) - lu(k,872) * lu(k,1798) + lu(k,1807) = lu(k,1807) - lu(k,873) * lu(k,1798) + lu(k,1808) = lu(k,1808) - lu(k,874) * lu(k,1798) + lu(k,1809) = lu(k,1809) - lu(k,875) * lu(k,1798) + lu(k,1810) = lu(k,1810) - lu(k,876) * lu(k,1798) + lu(k,1811) = lu(k,1811) - lu(k,877) * lu(k,1798) + lu(k,1812) = lu(k,1812) - lu(k,878) * lu(k,1798) + lu(k,1813) = lu(k,1813) - lu(k,879) * lu(k,1798) + lu(k,1815) = lu(k,1815) - lu(k,880) * lu(k,1798) + lu(k,1816) = lu(k,1816) - lu(k,881) * lu(k,1798) + lu(k,1818) = lu(k,1818) - lu(k,882) * lu(k,1798) + lu(k,1819) = lu(k,1819) - lu(k,883) * lu(k,1798) + lu(k,1820) = lu(k,1820) - lu(k,884) * lu(k,1798) + lu(k,1823) = lu(k,1823) - lu(k,885) * lu(k,1798) + lu(k,1824) = lu(k,1824) - lu(k,886) * lu(k,1798) + lu(k,1825) = lu(k,1825) - lu(k,887) * lu(k,1798) + lu(k,1826) = lu(k,1826) - lu(k,888) * lu(k,1798) + lu(k,1833) = lu(k,1833) - lu(k,869) * lu(k,1831) + lu(k,1836) = lu(k,1836) - lu(k,870) * lu(k,1831) + lu(k,1838) = lu(k,1838) - lu(k,871) * lu(k,1831) + lu(k,1839) = lu(k,1839) - lu(k,872) * lu(k,1831) + lu(k,1840) = lu(k,1840) - lu(k,873) * lu(k,1831) + lu(k,1841) = lu(k,1841) - lu(k,874) * lu(k,1831) + lu(k,1842) = lu(k,1842) - lu(k,875) * lu(k,1831) + lu(k,1843) = lu(k,1843) - lu(k,876) * lu(k,1831) + lu(k,1844) = lu(k,1844) - lu(k,877) * lu(k,1831) + lu(k,1845) = lu(k,1845) - lu(k,878) * lu(k,1831) + lu(k,1846) = lu(k,1846) - lu(k,879) * lu(k,1831) + lu(k,1848) = lu(k,1848) - lu(k,880) * lu(k,1831) + lu(k,1849) = lu(k,1849) - lu(k,881) * lu(k,1831) + lu(k,1851) = - lu(k,882) * lu(k,1831) + lu(k,1852) = lu(k,1852) - lu(k,883) * lu(k,1831) + lu(k,1853) = lu(k,1853) - lu(k,884) * lu(k,1831) + lu(k,1856) = lu(k,1856) - lu(k,885) * lu(k,1831) + lu(k,1857) = lu(k,1857) - lu(k,886) * lu(k,1831) + lu(k,1858) = lu(k,1858) - lu(k,887) * lu(k,1831) + lu(k,1859) = lu(k,1859) - lu(k,888) * lu(k,1831) + lu(k,1869) = lu(k,1869) - lu(k,869) * lu(k,1867) + lu(k,1872) = lu(k,1872) - lu(k,870) * lu(k,1867) + lu(k,1874) = lu(k,1874) - lu(k,871) * lu(k,1867) + lu(k,1875) = lu(k,1875) - lu(k,872) * lu(k,1867) + lu(k,1876) = lu(k,1876) - lu(k,873) * lu(k,1867) + lu(k,1877) = lu(k,1877) - lu(k,874) * lu(k,1867) + lu(k,1878) = lu(k,1878) - lu(k,875) * lu(k,1867) + lu(k,1879) = lu(k,1879) - lu(k,876) * lu(k,1867) + lu(k,1880) = lu(k,1880) - lu(k,877) * lu(k,1867) + lu(k,1881) = lu(k,1881) - lu(k,878) * lu(k,1867) + lu(k,1882) = lu(k,1882) - lu(k,879) * lu(k,1867) + lu(k,1884) = lu(k,1884) - lu(k,880) * lu(k,1867) + lu(k,1885) = lu(k,1885) - lu(k,881) * lu(k,1867) + lu(k,1887) = lu(k,1887) - lu(k,882) * lu(k,1867) + lu(k,1888) = lu(k,1888) - lu(k,883) * lu(k,1867) + lu(k,1889) = lu(k,1889) - lu(k,884) * lu(k,1867) + lu(k,1892) = lu(k,1892) - lu(k,885) * lu(k,1867) + lu(k,1893) = lu(k,1893) - lu(k,886) * lu(k,1867) + lu(k,1894) = lu(k,1894) - lu(k,887) * lu(k,1867) + lu(k,1895) = lu(k,1895) - lu(k,888) * lu(k,1867) + lu(k,1918) = lu(k,1918) - lu(k,869) * lu(k,1916) + lu(k,1921) = lu(k,1921) - lu(k,870) * lu(k,1916) + lu(k,1923) = lu(k,1923) - lu(k,871) * lu(k,1916) + lu(k,1924) = lu(k,1924) - lu(k,872) * lu(k,1916) + lu(k,1925) = lu(k,1925) - lu(k,873) * lu(k,1916) + lu(k,1926) = lu(k,1926) - lu(k,874) * lu(k,1916) + lu(k,1927) = lu(k,1927) - lu(k,875) * lu(k,1916) + lu(k,1928) = lu(k,1928) - lu(k,876) * lu(k,1916) + lu(k,1929) = lu(k,1929) - lu(k,877) * lu(k,1916) + lu(k,1930) = lu(k,1930) - lu(k,878) * lu(k,1916) + lu(k,1931) = lu(k,1931) - lu(k,879) * lu(k,1916) + lu(k,1933) = lu(k,1933) - lu(k,880) * lu(k,1916) + lu(k,1934) = lu(k,1934) - lu(k,881) * lu(k,1916) + lu(k,1936) = lu(k,1936) - lu(k,882) * lu(k,1916) + lu(k,1937) = lu(k,1937) - lu(k,883) * lu(k,1916) + lu(k,1938) = lu(k,1938) - lu(k,884) * lu(k,1916) + lu(k,1941) = lu(k,1941) - lu(k,885) * lu(k,1916) + lu(k,1942) = lu(k,1942) - lu(k,886) * lu(k,1916) + lu(k,1943) = lu(k,1943) - lu(k,887) * lu(k,1916) + lu(k,1944) = lu(k,1944) - lu(k,888) * lu(k,1916) + lu(k,1962) = lu(k,1962) - lu(k,869) * lu(k,1960) + lu(k,1965) = lu(k,1965) - lu(k,870) * lu(k,1960) + lu(k,1967) = lu(k,1967) - lu(k,871) * lu(k,1960) + lu(k,1968) = lu(k,1968) - lu(k,872) * lu(k,1960) + lu(k,1969) = lu(k,1969) - lu(k,873) * lu(k,1960) + lu(k,1970) = lu(k,1970) - lu(k,874) * lu(k,1960) + lu(k,1971) = lu(k,1971) - lu(k,875) * lu(k,1960) + lu(k,1972) = lu(k,1972) - lu(k,876) * lu(k,1960) + lu(k,1973) = lu(k,1973) - lu(k,877) * lu(k,1960) + lu(k,1974) = lu(k,1974) - lu(k,878) * lu(k,1960) + lu(k,1975) = lu(k,1975) - lu(k,879) * lu(k,1960) + lu(k,1977) = lu(k,1977) - lu(k,880) * lu(k,1960) + lu(k,1978) = lu(k,1978) - lu(k,881) * lu(k,1960) + lu(k,1980) = lu(k,1980) - lu(k,882) * lu(k,1960) + lu(k,1981) = lu(k,1981) - lu(k,883) * lu(k,1960) + lu(k,1982) = lu(k,1982) - lu(k,884) * lu(k,1960) + lu(k,1985) = lu(k,1985) - lu(k,885) * lu(k,1960) + lu(k,1986) = lu(k,1986) - lu(k,886) * lu(k,1960) + lu(k,1987) = lu(k,1987) - lu(k,887) * lu(k,1960) + lu(k,1988) = lu(k,1988) - lu(k,888) * lu(k,1960) + lu(k,2007) = lu(k,2007) - lu(k,869) * lu(k,2005) + lu(k,2010) = lu(k,2010) - lu(k,870) * lu(k,2005) + lu(k,2012) = lu(k,2012) - lu(k,871) * lu(k,2005) + lu(k,2013) = lu(k,2013) - lu(k,872) * lu(k,2005) + lu(k,2014) = lu(k,2014) - lu(k,873) * lu(k,2005) + lu(k,2015) = lu(k,2015) - lu(k,874) * lu(k,2005) + lu(k,2016) = lu(k,2016) - lu(k,875) * lu(k,2005) + lu(k,2017) = lu(k,2017) - lu(k,876) * lu(k,2005) + lu(k,2018) = lu(k,2018) - lu(k,877) * lu(k,2005) + lu(k,2019) = lu(k,2019) - lu(k,878) * lu(k,2005) + lu(k,2020) = lu(k,2020) - lu(k,879) * lu(k,2005) + lu(k,2022) = lu(k,2022) - lu(k,880) * lu(k,2005) + lu(k,2023) = lu(k,2023) - lu(k,881) * lu(k,2005) + lu(k,2025) = lu(k,2025) - lu(k,882) * lu(k,2005) + lu(k,2026) = lu(k,2026) - lu(k,883) * lu(k,2005) + lu(k,2027) = lu(k,2027) - lu(k,884) * lu(k,2005) + lu(k,2030) = lu(k,2030) - lu(k,885) * lu(k,2005) + lu(k,2031) = lu(k,2031) - lu(k,886) * lu(k,2005) + lu(k,2032) = lu(k,2032) - lu(k,887) * lu(k,2005) + lu(k,2033) = lu(k,2033) - lu(k,888) * lu(k,2005) + lu(k,2067) = lu(k,2067) - lu(k,869) * lu(k,2065) + lu(k,2070) = lu(k,2070) - lu(k,870) * lu(k,2065) + lu(k,2072) = lu(k,2072) - lu(k,871) * lu(k,2065) + lu(k,2073) = lu(k,2073) - lu(k,872) * lu(k,2065) + lu(k,2074) = lu(k,2074) - lu(k,873) * lu(k,2065) + lu(k,2075) = lu(k,2075) - lu(k,874) * lu(k,2065) + lu(k,2076) = lu(k,2076) - lu(k,875) * lu(k,2065) + lu(k,2077) = lu(k,2077) - lu(k,876) * lu(k,2065) + lu(k,2078) = lu(k,2078) - lu(k,877) * lu(k,2065) + lu(k,2079) = lu(k,2079) - lu(k,878) * lu(k,2065) + lu(k,2080) = lu(k,2080) - lu(k,879) * lu(k,2065) + lu(k,2082) = lu(k,2082) - lu(k,880) * lu(k,2065) + lu(k,2083) = lu(k,2083) - lu(k,881) * lu(k,2065) + lu(k,2085) = lu(k,2085) - lu(k,882) * lu(k,2065) + lu(k,2086) = lu(k,2086) - lu(k,883) * lu(k,2065) + lu(k,2087) = lu(k,2087) - lu(k,884) * lu(k,2065) + lu(k,2090) = lu(k,2090) - lu(k,885) * lu(k,2065) + lu(k,2091) = lu(k,2091) - lu(k,886) * lu(k,2065) + lu(k,2092) = lu(k,2092) - lu(k,887) * lu(k,2065) + lu(k,2093) = lu(k,2093) - lu(k,888) * lu(k,2065) + lu(k,902) = 1._r8 / lu(k,902) + lu(k,903) = lu(k,903) * lu(k,902) + lu(k,904) = lu(k,904) * lu(k,902) + lu(k,905) = lu(k,905) * lu(k,902) + lu(k,906) = lu(k,906) * lu(k,902) + lu(k,907) = lu(k,907) * lu(k,902) + lu(k,908) = lu(k,908) * lu(k,902) + lu(k,909) = lu(k,909) * lu(k,902) + lu(k,910) = lu(k,910) * lu(k,902) + lu(k,911) = lu(k,911) * lu(k,902) + lu(k,912) = lu(k,912) * lu(k,902) + lu(k,913) = lu(k,913) * lu(k,902) + lu(k,914) = lu(k,914) * lu(k,902) + lu(k,915) = lu(k,915) * lu(k,902) + lu(k,916) = lu(k,916) * lu(k,902) + lu(k,917) = lu(k,917) * lu(k,902) + lu(k,918) = lu(k,918) * lu(k,902) + lu(k,919) = lu(k,919) * lu(k,902) + lu(k,920) = lu(k,920) * lu(k,902) + lu(k,921) = lu(k,921) * lu(k,902) + lu(k,922) = lu(k,922) * lu(k,902) + lu(k,923) = lu(k,923) * lu(k,902) + lu(k,986) = lu(k,986) - lu(k,903) * lu(k,985) + lu(k,987) = lu(k,987) - lu(k,904) * lu(k,985) + lu(k,988) = lu(k,988) - lu(k,905) * lu(k,985) + lu(k,990) = lu(k,990) - lu(k,906) * lu(k,985) + lu(k,991) = lu(k,991) - lu(k,907) * lu(k,985) + lu(k,992) = lu(k,992) - lu(k,908) * lu(k,985) + lu(k,993) = lu(k,993) - lu(k,909) * lu(k,985) + lu(k,994) = lu(k,994) - lu(k,910) * lu(k,985) + lu(k,995) = lu(k,995) - lu(k,911) * lu(k,985) + lu(k,996) = lu(k,996) - lu(k,912) * lu(k,985) + lu(k,997) = lu(k,997) - lu(k,913) * lu(k,985) + lu(k,998) = lu(k,998) - lu(k,914) * lu(k,985) + lu(k,999) = lu(k,999) - lu(k,915) * lu(k,985) + lu(k,1000) = lu(k,1000) - lu(k,916) * lu(k,985) + lu(k,1001) = lu(k,1001) - lu(k,917) * lu(k,985) + lu(k,1002) = lu(k,1002) - lu(k,918) * lu(k,985) + lu(k,1003) = lu(k,1003) - lu(k,919) * lu(k,985) + lu(k,1004) = lu(k,1004) - lu(k,920) * lu(k,985) + lu(k,1005) = lu(k,1005) - lu(k,921) * lu(k,985) + lu(k,1006) = lu(k,1006) - lu(k,922) * lu(k,985) + lu(k,1007) = lu(k,1007) - lu(k,923) * lu(k,985) + lu(k,1059) = lu(k,1059) - lu(k,903) * lu(k,1058) + lu(k,1060) = lu(k,1060) - lu(k,904) * lu(k,1058) + lu(k,1061) = lu(k,1061) - lu(k,905) * lu(k,1058) + lu(k,1064) = lu(k,1064) - lu(k,906) * lu(k,1058) + lu(k,1066) = lu(k,1066) - lu(k,907) * lu(k,1058) + lu(k,1067) = lu(k,1067) - lu(k,908) * lu(k,1058) + lu(k,1069) = lu(k,1069) - lu(k,909) * lu(k,1058) + lu(k,1070) = lu(k,1070) - lu(k,910) * lu(k,1058) + lu(k,1071) = lu(k,1071) - lu(k,911) * lu(k,1058) + lu(k,1072) = lu(k,1072) - lu(k,912) * lu(k,1058) + lu(k,1073) = lu(k,1073) - lu(k,913) * lu(k,1058) + lu(k,1074) = lu(k,1074) - lu(k,914) * lu(k,1058) + lu(k,1075) = lu(k,1075) - lu(k,915) * lu(k,1058) + lu(k,1076) = lu(k,1076) - lu(k,916) * lu(k,1058) + lu(k,1077) = lu(k,1077) - lu(k,917) * lu(k,1058) + lu(k,1078) = lu(k,1078) - lu(k,918) * lu(k,1058) + lu(k,1079) = lu(k,1079) - lu(k,919) * lu(k,1058) + lu(k,1080) = lu(k,1080) - lu(k,920) * lu(k,1058) + lu(k,1081) = lu(k,1081) - lu(k,921) * lu(k,1058) + lu(k,1082) = lu(k,1082) - lu(k,922) * lu(k,1058) + lu(k,1083) = lu(k,1083) - lu(k,923) * lu(k,1058) + lu(k,1103) = lu(k,1103) - lu(k,903) * lu(k,1101) + lu(k,1105) = lu(k,1105) - lu(k,904) * lu(k,1101) + lu(k,1106) = lu(k,1106) - lu(k,905) * lu(k,1101) + lu(k,1109) = lu(k,1109) - lu(k,906) * lu(k,1101) + lu(k,1111) = lu(k,1111) - lu(k,907) * lu(k,1101) + lu(k,1112) = lu(k,1112) - lu(k,908) * lu(k,1101) + lu(k,1114) = lu(k,1114) - lu(k,909) * lu(k,1101) + lu(k,1115) = lu(k,1115) - lu(k,910) * lu(k,1101) + lu(k,1116) = lu(k,1116) - lu(k,911) * lu(k,1101) + lu(k,1117) = lu(k,1117) - lu(k,912) * lu(k,1101) + lu(k,1118) = lu(k,1118) - lu(k,913) * lu(k,1101) + lu(k,1119) = lu(k,1119) - lu(k,914) * lu(k,1101) + lu(k,1120) = lu(k,1120) - lu(k,915) * lu(k,1101) + lu(k,1121) = lu(k,1121) - lu(k,916) * lu(k,1101) + lu(k,1122) = lu(k,1122) - lu(k,917) * lu(k,1101) + lu(k,1123) = lu(k,1123) - lu(k,918) * lu(k,1101) + lu(k,1124) = lu(k,1124) - lu(k,919) * lu(k,1101) + lu(k,1125) = lu(k,1125) - lu(k,920) * lu(k,1101) + lu(k,1126) = lu(k,1126) - lu(k,921) * lu(k,1101) + lu(k,1127) = lu(k,1127) - lu(k,922) * lu(k,1101) + lu(k,1128) = lu(k,1128) - lu(k,923) * lu(k,1101) + lu(k,1150) = lu(k,1150) - lu(k,903) * lu(k,1148) + lu(k,1152) = lu(k,1152) - lu(k,904) * lu(k,1148) + lu(k,1153) = lu(k,1153) - lu(k,905) * lu(k,1148) + lu(k,1156) = lu(k,1156) - lu(k,906) * lu(k,1148) + lu(k,1158) = lu(k,1158) - lu(k,907) * lu(k,1148) + lu(k,1159) = lu(k,1159) - lu(k,908) * lu(k,1148) + lu(k,1161) = lu(k,1161) - lu(k,909) * lu(k,1148) + lu(k,1162) = lu(k,1162) - lu(k,910) * lu(k,1148) + lu(k,1163) = lu(k,1163) - lu(k,911) * lu(k,1148) + lu(k,1164) = lu(k,1164) - lu(k,912) * lu(k,1148) + lu(k,1165) = lu(k,1165) - lu(k,913) * lu(k,1148) + lu(k,1166) = lu(k,1166) - lu(k,914) * lu(k,1148) + lu(k,1167) = lu(k,1167) - lu(k,915) * lu(k,1148) + lu(k,1168) = lu(k,1168) - lu(k,916) * lu(k,1148) + lu(k,1169) = lu(k,1169) - lu(k,917) * lu(k,1148) + lu(k,1170) = lu(k,1170) - lu(k,918) * lu(k,1148) + lu(k,1171) = lu(k,1171) - lu(k,919) * lu(k,1148) + lu(k,1172) = lu(k,1172) - lu(k,920) * lu(k,1148) + lu(k,1173) = lu(k,1173) - lu(k,921) * lu(k,1148) + lu(k,1174) = lu(k,1174) - lu(k,922) * lu(k,1148) + lu(k,1175) = lu(k,1175) - lu(k,923) * lu(k,1148) + lu(k,1193) = lu(k,1193) - lu(k,903) * lu(k,1191) + lu(k,1195) = lu(k,1195) - lu(k,904) * lu(k,1191) + lu(k,1196) = lu(k,1196) - lu(k,905) * lu(k,1191) + lu(k,1199) = lu(k,1199) - lu(k,906) * lu(k,1191) + lu(k,1201) = lu(k,1201) - lu(k,907) * lu(k,1191) + lu(k,1202) = lu(k,1202) - lu(k,908) * lu(k,1191) + lu(k,1204) = lu(k,1204) - lu(k,909) * lu(k,1191) + lu(k,1205) = lu(k,1205) - lu(k,910) * lu(k,1191) + lu(k,1206) = lu(k,1206) - lu(k,911) * lu(k,1191) + lu(k,1207) = lu(k,1207) - lu(k,912) * lu(k,1191) + lu(k,1208) = lu(k,1208) - lu(k,913) * lu(k,1191) + lu(k,1209) = lu(k,1209) - lu(k,914) * lu(k,1191) + lu(k,1210) = lu(k,1210) - lu(k,915) * lu(k,1191) + lu(k,1211) = lu(k,1211) - lu(k,916) * lu(k,1191) + lu(k,1212) = lu(k,1212) - lu(k,917) * lu(k,1191) + lu(k,1213) = lu(k,1213) - lu(k,918) * lu(k,1191) + lu(k,1214) = lu(k,1214) - lu(k,919) * lu(k,1191) + lu(k,1215) = lu(k,1215) - lu(k,920) * lu(k,1191) + lu(k,1216) = lu(k,1216) - lu(k,921) * lu(k,1191) + lu(k,1217) = lu(k,1217) - lu(k,922) * lu(k,1191) + lu(k,1218) = lu(k,1218) - lu(k,923) * lu(k,1191) + lu(k,1234) = lu(k,1234) - lu(k,903) * lu(k,1232) + lu(k,1236) = lu(k,1236) - lu(k,904) * lu(k,1232) + lu(k,1237) = lu(k,1237) - lu(k,905) * lu(k,1232) + lu(k,1240) = lu(k,1240) - lu(k,906) * lu(k,1232) + lu(k,1242) = lu(k,1242) - lu(k,907) * lu(k,1232) + lu(k,1243) = lu(k,1243) - lu(k,908) * lu(k,1232) + lu(k,1245) = lu(k,1245) - lu(k,909) * lu(k,1232) + lu(k,1246) = lu(k,1246) - lu(k,910) * lu(k,1232) + lu(k,1247) = lu(k,1247) - lu(k,911) * lu(k,1232) + lu(k,1248) = lu(k,1248) - lu(k,912) * lu(k,1232) + lu(k,1249) = lu(k,1249) - lu(k,913) * lu(k,1232) + lu(k,1250) = lu(k,1250) - lu(k,914) * lu(k,1232) + lu(k,1251) = lu(k,1251) - lu(k,915) * lu(k,1232) + lu(k,1252) = lu(k,1252) - lu(k,916) * lu(k,1232) + lu(k,1253) = lu(k,1253) - lu(k,917) * lu(k,1232) + lu(k,1254) = lu(k,1254) - lu(k,918) * lu(k,1232) + lu(k,1255) = lu(k,1255) - lu(k,919) * lu(k,1232) + lu(k,1256) = lu(k,1256) - lu(k,920) * lu(k,1232) + lu(k,1257) = lu(k,1257) - lu(k,921) * lu(k,1232) + lu(k,1258) = lu(k,1258) - lu(k,922) * lu(k,1232) + lu(k,1259) = lu(k,1259) - lu(k,923) * lu(k,1232) + lu(k,1277) = lu(k,1277) - lu(k,903) * lu(k,1275) + lu(k,1279) = lu(k,1279) - lu(k,904) * lu(k,1275) + lu(k,1280) = lu(k,1280) - lu(k,905) * lu(k,1275) + lu(k,1283) = lu(k,1283) - lu(k,906) * lu(k,1275) + lu(k,1285) = lu(k,1285) - lu(k,907) * lu(k,1275) + lu(k,1286) = lu(k,1286) - lu(k,908) * lu(k,1275) lu(k,1288) = lu(k,1288) - lu(k,909) * lu(k,1275) lu(k,1289) = lu(k,1289) - lu(k,910) * lu(k,1275) lu(k,1290) = lu(k,1290) - lu(k,911) * lu(k,1275) lu(k,1291) = lu(k,1291) - lu(k,912) * lu(k,1275) - lu(k,1294) = lu(k,1294) - lu(k,913) * lu(k,1275) - lu(k,1295) = lu(k,1295) - lu(k,914) * lu(k,1275) - lu(k,1296) = lu(k,1296) - lu(k,915) * lu(k,1275) - lu(k,1297) = lu(k,1297) - lu(k,916) * lu(k,1275) - lu(k,1298) = lu(k,1298) - lu(k,917) * lu(k,1275) - lu(k,1299) = lu(k,1299) - lu(k,918) * lu(k,1275) - lu(k,1300) = lu(k,1300) - lu(k,919) * lu(k,1275) - lu(k,1301) = lu(k,1301) - lu(k,920) * lu(k,1275) - lu(k,1302) = lu(k,1302) - lu(k,921) * lu(k,1275) - lu(k,1319) = lu(k,1319) - lu(k,901) * lu(k,1317) - lu(k,1321) = lu(k,1321) - lu(k,902) * lu(k,1317) - lu(k,1322) = lu(k,1322) - lu(k,903) * lu(k,1317) - lu(k,1325) = lu(k,1325) - lu(k,904) * lu(k,1317) - lu(k,1326) = lu(k,1326) - lu(k,905) * lu(k,1317) - lu(k,1327) = lu(k,1327) - lu(k,906) * lu(k,1317) - lu(k,1328) = lu(k,1328) - lu(k,907) * lu(k,1317) - lu(k,1329) = lu(k,1329) - lu(k,908) * lu(k,1317) + lu(k,1292) = lu(k,1292) - lu(k,913) * lu(k,1275) + lu(k,1293) = lu(k,1293) - lu(k,914) * lu(k,1275) + lu(k,1294) = lu(k,1294) - lu(k,915) * lu(k,1275) + lu(k,1295) = lu(k,1295) - lu(k,916) * lu(k,1275) + lu(k,1296) = lu(k,1296) - lu(k,917) * lu(k,1275) + lu(k,1297) = lu(k,1297) - lu(k,918) * lu(k,1275) + lu(k,1298) = lu(k,1298) - lu(k,919) * lu(k,1275) + lu(k,1299) = lu(k,1299) - lu(k,920) * lu(k,1275) + lu(k,1300) = lu(k,1300) - lu(k,921) * lu(k,1275) + lu(k,1301) = lu(k,1301) - lu(k,922) * lu(k,1275) + lu(k,1302) = lu(k,1302) - lu(k,923) * lu(k,1275) + lu(k,1319) = lu(k,1319) - lu(k,903) * lu(k,1317) + lu(k,1321) = lu(k,1321) - lu(k,904) * lu(k,1317) + lu(k,1322) = lu(k,1322) - lu(k,905) * lu(k,1317) + lu(k,1325) = lu(k,1325) - lu(k,906) * lu(k,1317) + lu(k,1327) = lu(k,1327) - lu(k,907) * lu(k,1317) + lu(k,1328) = lu(k,1328) - lu(k,908) * lu(k,1317) lu(k,1330) = lu(k,1330) - lu(k,909) * lu(k,1317) lu(k,1331) = lu(k,1331) - lu(k,910) * lu(k,1317) lu(k,1332) = lu(k,1332) - lu(k,911) * lu(k,1317) lu(k,1333) = lu(k,1333) - lu(k,912) * lu(k,1317) - lu(k,1336) = lu(k,1336) - lu(k,913) * lu(k,1317) - lu(k,1337) = lu(k,1337) - lu(k,914) * lu(k,1317) - lu(k,1338) = lu(k,1338) - lu(k,915) * lu(k,1317) - lu(k,1339) = lu(k,1339) - lu(k,916) * lu(k,1317) - lu(k,1340) = lu(k,1340) - lu(k,917) * lu(k,1317) - lu(k,1341) = lu(k,1341) - lu(k,918) * lu(k,1317) - lu(k,1342) = lu(k,1342) - lu(k,919) * lu(k,1317) - lu(k,1343) = lu(k,1343) - lu(k,920) * lu(k,1317) - lu(k,1344) = lu(k,1344) - lu(k,921) * lu(k,1317) - lu(k,1379) = lu(k,1379) - lu(k,901) * lu(k,1377) - lu(k,1381) = lu(k,1381) - lu(k,902) * lu(k,1377) - lu(k,1382) = lu(k,1382) - lu(k,903) * lu(k,1377) - lu(k,1385) = lu(k,1385) - lu(k,904) * lu(k,1377) - lu(k,1386) = lu(k,1386) - lu(k,905) * lu(k,1377) - lu(k,1387) = lu(k,1387) - lu(k,906) * lu(k,1377) - lu(k,1388) = lu(k,1388) - lu(k,907) * lu(k,1377) - lu(k,1389) = lu(k,1389) - lu(k,908) * lu(k,1377) + lu(k,1334) = lu(k,1334) - lu(k,913) * lu(k,1317) + lu(k,1335) = lu(k,1335) - lu(k,914) * lu(k,1317) + lu(k,1336) = lu(k,1336) - lu(k,915) * lu(k,1317) + lu(k,1337) = lu(k,1337) - lu(k,916) * lu(k,1317) + lu(k,1338) = lu(k,1338) - lu(k,917) * lu(k,1317) + lu(k,1339) = lu(k,1339) - lu(k,918) * lu(k,1317) + lu(k,1340) = lu(k,1340) - lu(k,919) * lu(k,1317) + lu(k,1341) = lu(k,1341) - lu(k,920) * lu(k,1317) + lu(k,1342) = lu(k,1342) - lu(k,921) * lu(k,1317) + lu(k,1343) = lu(k,1343) - lu(k,922) * lu(k,1317) + lu(k,1344) = lu(k,1344) - lu(k,923) * lu(k,1317) + lu(k,1379) = lu(k,1379) - lu(k,903) * lu(k,1377) + lu(k,1381) = lu(k,1381) - lu(k,904) * lu(k,1377) + lu(k,1382) = lu(k,1382) - lu(k,905) * lu(k,1377) + lu(k,1385) = lu(k,1385) - lu(k,906) * lu(k,1377) + lu(k,1387) = lu(k,1387) - lu(k,907) * lu(k,1377) + lu(k,1388) = lu(k,1388) - lu(k,908) * lu(k,1377) lu(k,1390) = lu(k,1390) - lu(k,909) * lu(k,1377) lu(k,1391) = lu(k,1391) - lu(k,910) * lu(k,1377) lu(k,1392) = lu(k,1392) - lu(k,911) * lu(k,1377) lu(k,1393) = lu(k,1393) - lu(k,912) * lu(k,1377) - lu(k,1396) = lu(k,1396) - lu(k,913) * lu(k,1377) - lu(k,1397) = lu(k,1397) - lu(k,914) * lu(k,1377) - lu(k,1398) = lu(k,1398) - lu(k,915) * lu(k,1377) - lu(k,1399) = lu(k,1399) - lu(k,916) * lu(k,1377) - lu(k,1400) = lu(k,1400) - lu(k,917) * lu(k,1377) - lu(k,1401) = lu(k,1401) - lu(k,918) * lu(k,1377) - lu(k,1402) = lu(k,1402) - lu(k,919) * lu(k,1377) - lu(k,1403) = lu(k,1403) - lu(k,920) * lu(k,1377) - lu(k,1404) = lu(k,1404) - lu(k,921) * lu(k,1377) - lu(k,1428) = lu(k,1428) - lu(k,901) * lu(k,1426) - lu(k,1430) = lu(k,1430) - lu(k,902) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,903) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,904) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,905) * lu(k,1426) - lu(k,1436) = lu(k,1436) - lu(k,906) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,907) * lu(k,1426) - lu(k,1438) = lu(k,1438) - lu(k,908) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,909) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,910) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,911) * lu(k,1426) - lu(k,1442) = lu(k,1442) - lu(k,912) * lu(k,1426) - lu(k,1445) = lu(k,1445) - lu(k,913) * lu(k,1426) - lu(k,1446) = lu(k,1446) - lu(k,914) * lu(k,1426) - lu(k,1447) = lu(k,1447) - lu(k,915) * lu(k,1426) - lu(k,1448) = lu(k,1448) - lu(k,916) * lu(k,1426) - lu(k,1449) = lu(k,1449) - lu(k,917) * lu(k,1426) - lu(k,1450) = lu(k,1450) - lu(k,918) * lu(k,1426) - lu(k,1451) = lu(k,1451) - lu(k,919) * lu(k,1426) - lu(k,1452) = lu(k,1452) - lu(k,920) * lu(k,1426) - lu(k,1453) = lu(k,1453) - lu(k,921) * lu(k,1426) - lu(k,1476) = lu(k,1476) - lu(k,901) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,902) * lu(k,1474) - lu(k,1479) = lu(k,1479) - lu(k,903) * lu(k,1474) - lu(k,1482) = lu(k,1482) - lu(k,904) * lu(k,1474) - lu(k,1483) = lu(k,1483) - lu(k,905) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,906) * lu(k,1474) - lu(k,1485) = lu(k,1485) - lu(k,907) * lu(k,1474) - lu(k,1486) = lu(k,1486) - lu(k,908) * lu(k,1474) - lu(k,1487) = lu(k,1487) - lu(k,909) * lu(k,1474) - lu(k,1488) = lu(k,1488) - lu(k,910) * lu(k,1474) - lu(k,1489) = lu(k,1489) - lu(k,911) * lu(k,1474) - lu(k,1490) = lu(k,1490) - lu(k,912) * lu(k,1474) - lu(k,1493) = lu(k,1493) - lu(k,913) * lu(k,1474) - lu(k,1494) = lu(k,1494) - lu(k,914) * lu(k,1474) - lu(k,1495) = lu(k,1495) - lu(k,915) * lu(k,1474) - lu(k,1496) = lu(k,1496) - lu(k,916) * lu(k,1474) - lu(k,1497) = lu(k,1497) - lu(k,917) * lu(k,1474) - lu(k,1498) = lu(k,1498) - lu(k,918) * lu(k,1474) - lu(k,1499) = lu(k,1499) - lu(k,919) * lu(k,1474) - lu(k,1500) = lu(k,1500) - lu(k,920) * lu(k,1474) - lu(k,1501) = lu(k,1501) - lu(k,921) * lu(k,1474) - lu(k,1517) = lu(k,1517) - lu(k,901) * lu(k,1515) - lu(k,1519) = lu(k,1519) - lu(k,902) * lu(k,1515) - lu(k,1520) = lu(k,1520) - lu(k,903) * lu(k,1515) - lu(k,1523) = lu(k,1523) - lu(k,904) * lu(k,1515) - lu(k,1524) = lu(k,1524) - lu(k,905) * lu(k,1515) - lu(k,1525) = lu(k,1525) - lu(k,906) * lu(k,1515) - lu(k,1526) = lu(k,1526) - lu(k,907) * lu(k,1515) - lu(k,1527) = lu(k,1527) - lu(k,908) * lu(k,1515) - lu(k,1528) = lu(k,1528) - lu(k,909) * lu(k,1515) - lu(k,1529) = lu(k,1529) - lu(k,910) * lu(k,1515) - lu(k,1530) = lu(k,1530) - lu(k,911) * lu(k,1515) - lu(k,1531) = lu(k,1531) - lu(k,912) * lu(k,1515) - lu(k,1534) = lu(k,1534) - lu(k,913) * lu(k,1515) - lu(k,1535) = lu(k,1535) - lu(k,914) * lu(k,1515) - lu(k,1536) = lu(k,1536) - lu(k,915) * lu(k,1515) - lu(k,1537) = lu(k,1537) - lu(k,916) * lu(k,1515) - lu(k,1538) = lu(k,1538) - lu(k,917) * lu(k,1515) - lu(k,1539) = lu(k,1539) - lu(k,918) * lu(k,1515) - lu(k,1540) = lu(k,1540) - lu(k,919) * lu(k,1515) - lu(k,1541) = lu(k,1541) - lu(k,920) * lu(k,1515) - lu(k,1542) = lu(k,1542) - lu(k,921) * lu(k,1515) - lu(k,1553) = lu(k,1553) - lu(k,901) * lu(k,1551) - lu(k,1555) = lu(k,1555) - lu(k,902) * lu(k,1551) - lu(k,1556) = lu(k,1556) - lu(k,903) * lu(k,1551) - lu(k,1559) = lu(k,1559) - lu(k,904) * lu(k,1551) - lu(k,1560) = lu(k,1560) - lu(k,905) * lu(k,1551) - lu(k,1561) = lu(k,1561) - lu(k,906) * lu(k,1551) - lu(k,1562) = lu(k,1562) - lu(k,907) * lu(k,1551) - lu(k,1563) = lu(k,1563) - lu(k,908) * lu(k,1551) - lu(k,1564) = lu(k,1564) - lu(k,909) * lu(k,1551) - lu(k,1565) = lu(k,1565) - lu(k,910) * lu(k,1551) - lu(k,1566) = lu(k,1566) - lu(k,911) * lu(k,1551) - lu(k,1567) = lu(k,1567) - lu(k,912) * lu(k,1551) - lu(k,1570) = lu(k,1570) - lu(k,913) * lu(k,1551) - lu(k,1571) = lu(k,1571) - lu(k,914) * lu(k,1551) - lu(k,1572) = lu(k,1572) - lu(k,915) * lu(k,1551) - lu(k,1573) = lu(k,1573) - lu(k,916) * lu(k,1551) - lu(k,1574) = lu(k,1574) - lu(k,917) * lu(k,1551) - lu(k,1575) = lu(k,1575) - lu(k,918) * lu(k,1551) - lu(k,1576) = lu(k,1576) - lu(k,919) * lu(k,1551) - lu(k,1577) = lu(k,1577) - lu(k,920) * lu(k,1551) - lu(k,1578) = lu(k,1578) - lu(k,921) * lu(k,1551) - lu(k,1598) = lu(k,1598) - lu(k,901) * lu(k,1596) - lu(k,1600) = lu(k,1600) - lu(k,902) * lu(k,1596) - lu(k,1601) = lu(k,1601) - lu(k,903) * lu(k,1596) - lu(k,1604) = lu(k,1604) - lu(k,904) * lu(k,1596) - lu(k,1605) = lu(k,1605) - lu(k,905) * lu(k,1596) - lu(k,1606) = lu(k,1606) - lu(k,906) * lu(k,1596) - lu(k,1607) = lu(k,1607) - lu(k,907) * lu(k,1596) - lu(k,1608) = lu(k,1608) - lu(k,908) * lu(k,1596) - lu(k,1609) = lu(k,1609) - lu(k,909) * lu(k,1596) - lu(k,1610) = lu(k,1610) - lu(k,910) * lu(k,1596) - lu(k,1611) = lu(k,1611) - lu(k,911) * lu(k,1596) - lu(k,1612) = lu(k,1612) - lu(k,912) * lu(k,1596) - lu(k,1615) = lu(k,1615) - lu(k,913) * lu(k,1596) - lu(k,1616) = lu(k,1616) - lu(k,914) * lu(k,1596) - lu(k,1617) = lu(k,1617) - lu(k,915) * lu(k,1596) - lu(k,1618) = lu(k,1618) - lu(k,916) * lu(k,1596) - lu(k,1619) = lu(k,1619) - lu(k,917) * lu(k,1596) - lu(k,1620) = lu(k,1620) - lu(k,918) * lu(k,1596) - lu(k,1621) = lu(k,1621) - lu(k,919) * lu(k,1596) - lu(k,1622) = lu(k,1622) - lu(k,920) * lu(k,1596) - lu(k,1623) = lu(k,1623) - lu(k,921) * lu(k,1596) - lu(k,1641) = lu(k,1641) - lu(k,901) * lu(k,1639) - lu(k,1643) = lu(k,1643) - lu(k,902) * lu(k,1639) - lu(k,1644) = lu(k,1644) - lu(k,903) * lu(k,1639) - lu(k,1647) = lu(k,1647) - lu(k,904) * lu(k,1639) - lu(k,1648) = lu(k,1648) - lu(k,905) * lu(k,1639) - lu(k,1649) = lu(k,1649) - lu(k,906) * lu(k,1639) - lu(k,1650) = lu(k,1650) - lu(k,907) * lu(k,1639) - lu(k,1651) = lu(k,1651) - lu(k,908) * lu(k,1639) - lu(k,1652) = lu(k,1652) - lu(k,909) * lu(k,1639) - lu(k,1653) = lu(k,1653) - lu(k,910) * lu(k,1639) - lu(k,1654) = lu(k,1654) - lu(k,911) * lu(k,1639) - lu(k,1655) = lu(k,1655) - lu(k,912) * lu(k,1639) - lu(k,1658) = lu(k,1658) - lu(k,913) * lu(k,1639) - lu(k,1659) = lu(k,1659) - lu(k,914) * lu(k,1639) - lu(k,1660) = lu(k,1660) - lu(k,915) * lu(k,1639) - lu(k,1661) = lu(k,1661) - lu(k,916) * lu(k,1639) - lu(k,1662) = lu(k,1662) - lu(k,917) * lu(k,1639) - lu(k,1663) = lu(k,1663) - lu(k,918) * lu(k,1639) - lu(k,1664) = lu(k,1664) - lu(k,919) * lu(k,1639) - lu(k,1665) = lu(k,1665) - lu(k,920) * lu(k,1639) - lu(k,1666) = lu(k,1666) - lu(k,921) * lu(k,1639) - lu(k,1684) = lu(k,1684) - lu(k,901) * lu(k,1682) - lu(k,1686) = lu(k,1686) - lu(k,902) * lu(k,1682) - lu(k,1687) = lu(k,1687) - lu(k,903) * lu(k,1682) - lu(k,1690) = lu(k,1690) - lu(k,904) * lu(k,1682) - lu(k,1691) = lu(k,1691) - lu(k,905) * lu(k,1682) - lu(k,1692) = lu(k,1692) - lu(k,906) * lu(k,1682) - lu(k,1693) = lu(k,1693) - lu(k,907) * lu(k,1682) - lu(k,1694) = lu(k,1694) - lu(k,908) * lu(k,1682) - lu(k,1695) = lu(k,1695) - lu(k,909) * lu(k,1682) - lu(k,1696) = lu(k,1696) - lu(k,910) * lu(k,1682) - lu(k,1697) = lu(k,1697) - lu(k,911) * lu(k,1682) - lu(k,1698) = lu(k,1698) - lu(k,912) * lu(k,1682) - lu(k,1701) = lu(k,1701) - lu(k,913) * lu(k,1682) - lu(k,1702) = lu(k,1702) - lu(k,914) * lu(k,1682) - lu(k,1703) = lu(k,1703) - lu(k,915) * lu(k,1682) - lu(k,1704) = lu(k,1704) - lu(k,916) * lu(k,1682) - lu(k,1705) = lu(k,1705) - lu(k,917) * lu(k,1682) - lu(k,1706) = lu(k,1706) - lu(k,918) * lu(k,1682) - lu(k,1707) = lu(k,1707) - lu(k,919) * lu(k,1682) - lu(k,1708) = lu(k,1708) - lu(k,920) * lu(k,1682) - lu(k,1709) = lu(k,1709) - lu(k,921) * lu(k,1682) - lu(k,1725) = lu(k,1725) - lu(k,901) * lu(k,1723) - lu(k,1726) = lu(k,1726) - lu(k,902) * lu(k,1723) - lu(k,1727) = lu(k,1727) - lu(k,903) * lu(k,1723) - lu(k,1730) = lu(k,1730) - lu(k,904) * lu(k,1723) - lu(k,1731) = lu(k,1731) - lu(k,905) * lu(k,1723) - lu(k,1732) = lu(k,1732) - lu(k,906) * lu(k,1723) - lu(k,1733) = lu(k,1733) - lu(k,907) * lu(k,1723) - lu(k,1734) = lu(k,1734) - lu(k,908) * lu(k,1723) - lu(k,1735) = lu(k,1735) - lu(k,909) * lu(k,1723) - lu(k,1736) = lu(k,1736) - lu(k,910) * lu(k,1723) - lu(k,1737) = lu(k,1737) - lu(k,911) * lu(k,1723) - lu(k,1738) = lu(k,1738) - lu(k,912) * lu(k,1723) - lu(k,1741) = lu(k,1741) - lu(k,913) * lu(k,1723) - lu(k,1742) = lu(k,1742) - lu(k,914) * lu(k,1723) - lu(k,1743) = lu(k,1743) - lu(k,915) * lu(k,1723) - lu(k,1744) = lu(k,1744) - lu(k,916) * lu(k,1723) - lu(k,1745) = lu(k,1745) - lu(k,917) * lu(k,1723) - lu(k,1746) = lu(k,1746) - lu(k,918) * lu(k,1723) - lu(k,1747) = lu(k,1747) - lu(k,919) * lu(k,1723) - lu(k,1748) = lu(k,1748) - lu(k,920) * lu(k,1723) - lu(k,1749) = lu(k,1749) - lu(k,921) * lu(k,1723) - lu(k,1760) = lu(k,1760) - lu(k,901) * lu(k,1758) - lu(k,1762) = lu(k,1762) - lu(k,902) * lu(k,1758) - lu(k,1763) = lu(k,1763) - lu(k,903) * lu(k,1758) - lu(k,1766) = lu(k,1766) - lu(k,904) * lu(k,1758) - lu(k,1767) = lu(k,1767) - lu(k,905) * lu(k,1758) - lu(k,1768) = lu(k,1768) - lu(k,906) * lu(k,1758) - lu(k,1769) = lu(k,1769) - lu(k,907) * lu(k,1758) - lu(k,1770) = lu(k,1770) - lu(k,908) * lu(k,1758) - lu(k,1771) = lu(k,1771) - lu(k,909) * lu(k,1758) - lu(k,1772) = lu(k,1772) - lu(k,910) * lu(k,1758) - lu(k,1773) = lu(k,1773) - lu(k,911) * lu(k,1758) - lu(k,1774) = lu(k,1774) - lu(k,912) * lu(k,1758) - lu(k,1777) = lu(k,1777) - lu(k,913) * lu(k,1758) - lu(k,1778) = lu(k,1778) - lu(k,914) * lu(k,1758) - lu(k,1779) = lu(k,1779) - lu(k,915) * lu(k,1758) - lu(k,1780) = lu(k,1780) - lu(k,916) * lu(k,1758) - lu(k,1781) = lu(k,1781) - lu(k,917) * lu(k,1758) - lu(k,1782) = lu(k,1782) - lu(k,918) * lu(k,1758) - lu(k,1783) = lu(k,1783) - lu(k,919) * lu(k,1758) - lu(k,1784) = lu(k,1784) - lu(k,920) * lu(k,1758) - lu(k,1785) = lu(k,1785) - lu(k,921) * lu(k,1758) - lu(k,1808) = lu(k,1808) - lu(k,901) * lu(k,1806) - lu(k,1810) = lu(k,1810) - lu(k,902) * lu(k,1806) - lu(k,1811) = lu(k,1811) - lu(k,903) * lu(k,1806) - lu(k,1814) = lu(k,1814) - lu(k,904) * lu(k,1806) - lu(k,1815) = lu(k,1815) - lu(k,905) * lu(k,1806) - lu(k,1816) = lu(k,1816) - lu(k,906) * lu(k,1806) - lu(k,1817) = lu(k,1817) - lu(k,907) * lu(k,1806) - lu(k,1818) = lu(k,1818) - lu(k,908) * lu(k,1806) - lu(k,1819) = lu(k,1819) - lu(k,909) * lu(k,1806) - lu(k,1820) = lu(k,1820) - lu(k,910) * lu(k,1806) - lu(k,1821) = lu(k,1821) - lu(k,911) * lu(k,1806) - lu(k,1822) = lu(k,1822) - lu(k,912) * lu(k,1806) - lu(k,1825) = lu(k,1825) - lu(k,913) * lu(k,1806) - lu(k,1826) = lu(k,1826) - lu(k,914) * lu(k,1806) - lu(k,1827) = lu(k,1827) - lu(k,915) * lu(k,1806) - lu(k,1828) = lu(k,1828) - lu(k,916) * lu(k,1806) - lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1806) - lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1806) - lu(k,1831) = lu(k,1831) - lu(k,919) * lu(k,1806) - lu(k,1832) = lu(k,1832) - lu(k,920) * lu(k,1806) - lu(k,1833) = lu(k,1833) - lu(k,921) * lu(k,1806) - lu(k,1841) = lu(k,1841) - lu(k,901) * lu(k,1839) - lu(k,1843) = lu(k,1843) - lu(k,902) * lu(k,1839) - lu(k,1844) = lu(k,1844) - lu(k,903) * lu(k,1839) - lu(k,1847) = lu(k,1847) - lu(k,904) * lu(k,1839) - lu(k,1848) = lu(k,1848) - lu(k,905) * lu(k,1839) - lu(k,1849) = lu(k,1849) - lu(k,906) * lu(k,1839) - lu(k,1850) = lu(k,1850) - lu(k,907) * lu(k,1839) - lu(k,1851) = lu(k,1851) - lu(k,908) * lu(k,1839) - lu(k,1852) = lu(k,1852) - lu(k,909) * lu(k,1839) - lu(k,1853) = lu(k,1853) - lu(k,910) * lu(k,1839) - lu(k,1854) = lu(k,1854) - lu(k,911) * lu(k,1839) - lu(k,1855) = lu(k,1855) - lu(k,912) * lu(k,1839) - lu(k,1858) = lu(k,1858) - lu(k,913) * lu(k,1839) - lu(k,1859) = lu(k,1859) - lu(k,914) * lu(k,1839) - lu(k,1860) = lu(k,1860) - lu(k,915) * lu(k,1839) - lu(k,1861) = lu(k,1861) - lu(k,916) * lu(k,1839) - lu(k,1862) = lu(k,1862) - lu(k,917) * lu(k,1839) - lu(k,1863) = lu(k,1863) - lu(k,918) * lu(k,1839) - lu(k,1864) = lu(k,1864) - lu(k,919) * lu(k,1839) - lu(k,1865) = lu(k,1865) - lu(k,920) * lu(k,1839) - lu(k,1866) = lu(k,1866) - lu(k,921) * lu(k,1839) - lu(k,1877) = lu(k,1877) - lu(k,901) * lu(k,1875) - lu(k,1879) = lu(k,1879) - lu(k,902) * lu(k,1875) - lu(k,1880) = lu(k,1880) - lu(k,903) * lu(k,1875) - lu(k,1883) = lu(k,1883) - lu(k,904) * lu(k,1875) - lu(k,1884) = lu(k,1884) - lu(k,905) * lu(k,1875) - lu(k,1885) = lu(k,1885) - lu(k,906) * lu(k,1875) - lu(k,1886) = lu(k,1886) - lu(k,907) * lu(k,1875) - lu(k,1887) = lu(k,1887) - lu(k,908) * lu(k,1875) - lu(k,1888) = lu(k,1888) - lu(k,909) * lu(k,1875) - lu(k,1889) = lu(k,1889) - lu(k,910) * lu(k,1875) - lu(k,1890) = lu(k,1890) - lu(k,911) * lu(k,1875) - lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1875) - lu(k,1894) = lu(k,1894) - lu(k,913) * lu(k,1875) - lu(k,1895) = lu(k,1895) - lu(k,914) * lu(k,1875) - lu(k,1896) = lu(k,1896) - lu(k,915) * lu(k,1875) - lu(k,1897) = lu(k,1897) - lu(k,916) * lu(k,1875) - lu(k,1898) = lu(k,1898) - lu(k,917) * lu(k,1875) - lu(k,1899) = lu(k,1899) - lu(k,918) * lu(k,1875) - lu(k,1900) = lu(k,1900) - lu(k,919) * lu(k,1875) - lu(k,1901) = lu(k,1901) - lu(k,920) * lu(k,1875) - lu(k,1902) = lu(k,1902) - lu(k,921) * lu(k,1875) - lu(k,1918) = lu(k,1918) - lu(k,901) * lu(k,1916) - lu(k,1920) = lu(k,1920) - lu(k,902) * lu(k,1916) - lu(k,1921) = lu(k,1921) - lu(k,903) * lu(k,1916) - lu(k,1924) = lu(k,1924) - lu(k,904) * lu(k,1916) - lu(k,1925) = lu(k,1925) - lu(k,905) * lu(k,1916) - lu(k,1926) = lu(k,1926) - lu(k,906) * lu(k,1916) - lu(k,1927) = lu(k,1927) - lu(k,907) * lu(k,1916) - lu(k,1928) = lu(k,1928) - lu(k,908) * lu(k,1916) - lu(k,1929) = lu(k,1929) - lu(k,909) * lu(k,1916) - lu(k,1930) = lu(k,1930) - lu(k,910) * lu(k,1916) - lu(k,1931) = lu(k,1931) - lu(k,911) * lu(k,1916) - lu(k,1932) = lu(k,1932) - lu(k,912) * lu(k,1916) - lu(k,1935) = lu(k,1935) - lu(k,913) * lu(k,1916) - lu(k,1936) = lu(k,1936) - lu(k,914) * lu(k,1916) - lu(k,1937) = lu(k,1937) - lu(k,915) * lu(k,1916) - lu(k,1938) = lu(k,1938) - lu(k,916) * lu(k,1916) - lu(k,1939) = lu(k,1939) - lu(k,917) * lu(k,1916) - lu(k,1940) = lu(k,1940) - lu(k,918) * lu(k,1916) - lu(k,1941) = lu(k,1941) - lu(k,919) * lu(k,1916) - lu(k,1942) = lu(k,1942) - lu(k,920) * lu(k,1916) - lu(k,1943) = lu(k,1943) - lu(k,921) * lu(k,1916) - lu(k,1960) = lu(k,1960) - lu(k,901) * lu(k,1958) - lu(k,1962) = lu(k,1962) - lu(k,902) * lu(k,1958) - lu(k,1963) = lu(k,1963) - lu(k,903) * lu(k,1958) - lu(k,1966) = lu(k,1966) - lu(k,904) * lu(k,1958) - lu(k,1967) = lu(k,1967) - lu(k,905) * lu(k,1958) - lu(k,1968) = lu(k,1968) - lu(k,906) * lu(k,1958) - lu(k,1969) = lu(k,1969) - lu(k,907) * lu(k,1958) - lu(k,1970) = lu(k,1970) - lu(k,908) * lu(k,1958) - lu(k,1971) = lu(k,1971) - lu(k,909) * lu(k,1958) - lu(k,1972) = lu(k,1972) - lu(k,910) * lu(k,1958) - lu(k,1973) = lu(k,1973) - lu(k,911) * lu(k,1958) - lu(k,1974) = lu(k,1974) - lu(k,912) * lu(k,1958) - lu(k,1977) = lu(k,1977) - lu(k,913) * lu(k,1958) - lu(k,1978) = lu(k,1978) - lu(k,914) * lu(k,1958) - lu(k,1979) = lu(k,1979) - lu(k,915) * lu(k,1958) - lu(k,1980) = lu(k,1980) - lu(k,916) * lu(k,1958) - lu(k,1981) = lu(k,1981) - lu(k,917) * lu(k,1958) - lu(k,1982) = lu(k,1982) - lu(k,918) * lu(k,1958) - lu(k,1983) = lu(k,1983) - lu(k,919) * lu(k,1958) - lu(k,1984) = lu(k,1984) - lu(k,920) * lu(k,1958) - lu(k,1985) = lu(k,1985) - lu(k,921) * lu(k,1958) - lu(k,2005) = lu(k,2005) - lu(k,901) * lu(k,2003) - lu(k,2007) = lu(k,2007) - lu(k,902) * lu(k,2003) - lu(k,2008) = lu(k,2008) - lu(k,903) * lu(k,2003) - lu(k,2011) = lu(k,2011) - lu(k,904) * lu(k,2003) - lu(k,2012) = lu(k,2012) - lu(k,905) * lu(k,2003) - lu(k,2013) = lu(k,2013) - lu(k,906) * lu(k,2003) - lu(k,2014) = lu(k,2014) - lu(k,907) * lu(k,2003) - lu(k,2015) = lu(k,2015) - lu(k,908) * lu(k,2003) - lu(k,2016) = lu(k,2016) - lu(k,909) * lu(k,2003) - lu(k,2017) = lu(k,2017) - lu(k,910) * lu(k,2003) - lu(k,2018) = lu(k,2018) - lu(k,911) * lu(k,2003) - lu(k,2019) = lu(k,2019) - lu(k,912) * lu(k,2003) - lu(k,2022) = lu(k,2022) - lu(k,913) * lu(k,2003) - lu(k,2023) = lu(k,2023) - lu(k,914) * lu(k,2003) - lu(k,2024) = lu(k,2024) - lu(k,915) * lu(k,2003) - lu(k,2025) = lu(k,2025) - lu(k,916) * lu(k,2003) - lu(k,2026) = lu(k,2026) - lu(k,917) * lu(k,2003) - lu(k,2027) = lu(k,2027) - lu(k,918) * lu(k,2003) - lu(k,2028) = lu(k,2028) - lu(k,919) * lu(k,2003) - lu(k,2029) = lu(k,2029) - lu(k,920) * lu(k,2003) - lu(k,2030) = lu(k,2030) - lu(k,921) * lu(k,2003) - lu(k,2065) = lu(k,2065) - lu(k,901) * lu(k,2063) - lu(k,2067) = lu(k,2067) - lu(k,902) * lu(k,2063) - lu(k,2068) = lu(k,2068) - lu(k,903) * lu(k,2063) - lu(k,2071) = lu(k,2071) - lu(k,904) * lu(k,2063) - lu(k,2072) = lu(k,2072) - lu(k,905) * lu(k,2063) - lu(k,2073) = lu(k,2073) - lu(k,906) * lu(k,2063) - lu(k,2074) = lu(k,2074) - lu(k,907) * lu(k,2063) - lu(k,2075) = lu(k,2075) - lu(k,908) * lu(k,2063) - lu(k,2076) = lu(k,2076) - lu(k,909) * lu(k,2063) - lu(k,2077) = lu(k,2077) - lu(k,910) * lu(k,2063) - lu(k,2078) = lu(k,2078) - lu(k,911) * lu(k,2063) - lu(k,2079) = lu(k,2079) - lu(k,912) * lu(k,2063) - lu(k,2082) = lu(k,2082) - lu(k,913) * lu(k,2063) - lu(k,2083) = lu(k,2083) - lu(k,914) * lu(k,2063) - lu(k,2084) = lu(k,2084) - lu(k,915) * lu(k,2063) - lu(k,2085) = lu(k,2085) - lu(k,916) * lu(k,2063) - lu(k,2086) = lu(k,2086) - lu(k,917) * lu(k,2063) - lu(k,2087) = lu(k,2087) - lu(k,918) * lu(k,2063) - lu(k,2088) = lu(k,2088) - lu(k,919) * lu(k,2063) - lu(k,2089) = lu(k,2089) - lu(k,920) * lu(k,2063) - lu(k,2090) = lu(k,2090) - lu(k,921) * lu(k,2063) - lu(k,926) = 1._r8 / lu(k,926) - lu(k,927) = lu(k,927) * lu(k,926) - lu(k,928) = lu(k,928) * lu(k,926) - lu(k,929) = lu(k,929) * lu(k,926) - lu(k,930) = lu(k,930) * lu(k,926) - lu(k,931) = lu(k,931) * lu(k,926) - lu(k,932) = lu(k,932) * lu(k,926) - lu(k,933) = lu(k,933) * lu(k,926) - lu(k,934) = lu(k,934) * lu(k,926) - lu(k,935) = lu(k,935) * lu(k,926) - lu(k,936) = lu(k,936) * lu(k,926) - lu(k,937) = lu(k,937) * lu(k,926) - lu(k,938) = lu(k,938) * lu(k,926) - lu(k,939) = lu(k,939) * lu(k,926) - lu(k,940) = lu(k,940) * lu(k,926) - lu(k,941) = lu(k,941) * lu(k,926) - lu(k,942) = lu(k,942) * lu(k,926) - lu(k,943) = lu(k,943) * lu(k,926) - lu(k,944) = lu(k,944) * lu(k,926) - lu(k,945) = lu(k,945) * lu(k,926) - lu(k,946) = lu(k,946) * lu(k,926) - lu(k,947) = lu(k,947) * lu(k,926) - lu(k,948) = lu(k,948) * lu(k,926) - lu(k,1013) = lu(k,1013) - lu(k,927) * lu(k,1012) - lu(k,1015) = lu(k,1015) - lu(k,928) * lu(k,1012) - lu(k,1016) = lu(k,1016) - lu(k,929) * lu(k,1012) - lu(k,1017) = lu(k,1017) - lu(k,930) * lu(k,1012) - lu(k,1018) = lu(k,1018) - lu(k,931) * lu(k,1012) - lu(k,1019) = lu(k,1019) - lu(k,932) * lu(k,1012) - lu(k,1021) = lu(k,1021) - lu(k,933) * lu(k,1012) - lu(k,1022) = lu(k,1022) - lu(k,934) * lu(k,1012) - lu(k,1023) = lu(k,1023) - lu(k,935) * lu(k,1012) - lu(k,1024) = lu(k,1024) - lu(k,936) * lu(k,1012) - lu(k,1025) = lu(k,1025) - lu(k,937) * lu(k,1012) - lu(k,1027) = lu(k,1027) - lu(k,938) * lu(k,1012) - lu(k,1028) = lu(k,1028) - lu(k,939) * lu(k,1012) - lu(k,1029) = lu(k,1029) - lu(k,940) * lu(k,1012) - lu(k,1030) = lu(k,1030) - lu(k,941) * lu(k,1012) - lu(k,1031) = lu(k,1031) - lu(k,942) * lu(k,1012) - lu(k,1032) = lu(k,1032) - lu(k,943) * lu(k,1012) - lu(k,1033) = lu(k,1033) - lu(k,944) * lu(k,1012) - lu(k,1035) = lu(k,1035) - lu(k,945) * lu(k,1012) - lu(k,1036) = lu(k,1036) - lu(k,946) * lu(k,1012) - lu(k,1037) = lu(k,1037) - lu(k,947) * lu(k,1012) - lu(k,1038) = lu(k,1038) - lu(k,948) * lu(k,1012) - lu(k,1101) = lu(k,1101) - lu(k,927) * lu(k,1100) - lu(k,1103) = lu(k,1103) - lu(k,928) * lu(k,1100) - lu(k,1104) = lu(k,1104) - lu(k,929) * lu(k,1100) - lu(k,1105) = lu(k,1105) - lu(k,930) * lu(k,1100) - lu(k,1106) = lu(k,1106) - lu(k,931) * lu(k,1100) - lu(k,1107) = lu(k,1107) - lu(k,932) * lu(k,1100) - lu(k,1109) = lu(k,1109) - lu(k,933) * lu(k,1100) - lu(k,1110) = lu(k,1110) - lu(k,934) * lu(k,1100) - lu(k,1111) = lu(k,1111) - lu(k,935) * lu(k,1100) - lu(k,1112) = lu(k,1112) - lu(k,936) * lu(k,1100) - lu(k,1113) = lu(k,1113) - lu(k,937) * lu(k,1100) - lu(k,1115) = lu(k,1115) - lu(k,938) * lu(k,1100) - lu(k,1116) = lu(k,1116) - lu(k,939) * lu(k,1100) - lu(k,1117) = lu(k,1117) - lu(k,940) * lu(k,1100) - lu(k,1118) = lu(k,1118) - lu(k,941) * lu(k,1100) - lu(k,1119) = lu(k,1119) - lu(k,942) * lu(k,1100) - lu(k,1120) = lu(k,1120) - lu(k,943) * lu(k,1100) - lu(k,1121) = lu(k,1121) - lu(k,944) * lu(k,1100) - lu(k,1123) = lu(k,1123) - lu(k,945) * lu(k,1100) - lu(k,1124) = lu(k,1124) - lu(k,946) * lu(k,1100) - lu(k,1125) = lu(k,1125) - lu(k,947) * lu(k,1100) - lu(k,1126) = lu(k,1126) - lu(k,948) * lu(k,1100) - lu(k,1149) = lu(k,1149) - lu(k,927) * lu(k,1148) - lu(k,1151) = lu(k,1151) - lu(k,928) * lu(k,1148) - lu(k,1152) = lu(k,1152) - lu(k,929) * lu(k,1148) - lu(k,1153) = lu(k,1153) - lu(k,930) * lu(k,1148) - lu(k,1154) = lu(k,1154) - lu(k,931) * lu(k,1148) - lu(k,1155) = lu(k,1155) - lu(k,932) * lu(k,1148) - lu(k,1157) = lu(k,1157) - lu(k,933) * lu(k,1148) - lu(k,1158) = lu(k,1158) - lu(k,934) * lu(k,1148) - lu(k,1159) = lu(k,1159) - lu(k,935) * lu(k,1148) - lu(k,1160) = lu(k,1160) - lu(k,936) * lu(k,1148) - lu(k,1161) = lu(k,1161) - lu(k,937) * lu(k,1148) - lu(k,1163) = lu(k,1163) - lu(k,938) * lu(k,1148) - lu(k,1164) = lu(k,1164) - lu(k,939) * lu(k,1148) - lu(k,1165) = lu(k,1165) - lu(k,940) * lu(k,1148) - lu(k,1166) = lu(k,1166) - lu(k,941) * lu(k,1148) - lu(k,1167) = lu(k,1167) - lu(k,942) * lu(k,1148) - lu(k,1168) = lu(k,1168) - lu(k,943) * lu(k,1148) - lu(k,1169) = lu(k,1169) - lu(k,944) * lu(k,1148) - lu(k,1171) = lu(k,1171) - lu(k,945) * lu(k,1148) - lu(k,1172) = lu(k,1172) - lu(k,946) * lu(k,1148) - lu(k,1173) = lu(k,1173) - lu(k,947) * lu(k,1148) - lu(k,1174) = lu(k,1174) - lu(k,948) * lu(k,1148) - lu(k,1192) = lu(k,1192) - lu(k,927) * lu(k,1191) - lu(k,1194) = lu(k,1194) - lu(k,928) * lu(k,1191) - lu(k,1195) = lu(k,1195) - lu(k,929) * lu(k,1191) - lu(k,1196) = lu(k,1196) - lu(k,930) * lu(k,1191) - lu(k,1197) = lu(k,1197) - lu(k,931) * lu(k,1191) - lu(k,1198) = lu(k,1198) - lu(k,932) * lu(k,1191) - lu(k,1200) = lu(k,1200) - lu(k,933) * lu(k,1191) - lu(k,1201) = lu(k,1201) - lu(k,934) * lu(k,1191) - lu(k,1202) = lu(k,1202) - lu(k,935) * lu(k,1191) - lu(k,1203) = lu(k,1203) - lu(k,936) * lu(k,1191) - lu(k,1204) = lu(k,1204) - lu(k,937) * lu(k,1191) - lu(k,1206) = lu(k,1206) - lu(k,938) * lu(k,1191) - lu(k,1207) = lu(k,1207) - lu(k,939) * lu(k,1191) - lu(k,1208) = lu(k,1208) - lu(k,940) * lu(k,1191) - lu(k,1209) = lu(k,1209) - lu(k,941) * lu(k,1191) - lu(k,1210) = lu(k,1210) - lu(k,942) * lu(k,1191) - lu(k,1211) = lu(k,1211) - lu(k,943) * lu(k,1191) - lu(k,1212) = lu(k,1212) - lu(k,944) * lu(k,1191) - lu(k,1214) = lu(k,1214) - lu(k,945) * lu(k,1191) - lu(k,1215) = lu(k,1215) - lu(k,946) * lu(k,1191) - lu(k,1216) = lu(k,1216) - lu(k,947) * lu(k,1191) - lu(k,1217) = lu(k,1217) - lu(k,948) * lu(k,1191) - lu(k,1235) = lu(k,1235) - lu(k,927) * lu(k,1234) - lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1234) - lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1234) - lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1234) - lu(k,1240) = lu(k,1240) - lu(k,931) * lu(k,1234) - lu(k,1241) = lu(k,1241) - lu(k,932) * lu(k,1234) - lu(k,1243) = lu(k,1243) - lu(k,933) * lu(k,1234) - lu(k,1244) = lu(k,1244) - lu(k,934) * lu(k,1234) - lu(k,1245) = lu(k,1245) - lu(k,935) * lu(k,1234) - lu(k,1246) = lu(k,1246) - lu(k,936) * lu(k,1234) - lu(k,1247) = lu(k,1247) - lu(k,937) * lu(k,1234) - lu(k,1249) = lu(k,1249) - lu(k,938) * lu(k,1234) - lu(k,1250) = lu(k,1250) - lu(k,939) * lu(k,1234) - lu(k,1251) = lu(k,1251) - lu(k,940) * lu(k,1234) - lu(k,1252) = lu(k,1252) - lu(k,941) * lu(k,1234) - lu(k,1253) = lu(k,1253) - lu(k,942) * lu(k,1234) - lu(k,1254) = lu(k,1254) - lu(k,943) * lu(k,1234) - lu(k,1255) = lu(k,1255) - lu(k,944) * lu(k,1234) - lu(k,1257) = lu(k,1257) - lu(k,945) * lu(k,1234) - lu(k,1258) = lu(k,1258) - lu(k,946) * lu(k,1234) - lu(k,1259) = lu(k,1259) - lu(k,947) * lu(k,1234) - lu(k,1260) = lu(k,1260) - lu(k,948) * lu(k,1234) - lu(k,1277) = lu(k,1277) - lu(k,927) * lu(k,1276) - lu(k,1279) = lu(k,1279) - lu(k,928) * lu(k,1276) - lu(k,1280) = lu(k,1280) - lu(k,929) * lu(k,1276) - lu(k,1281) = lu(k,1281) - lu(k,930) * lu(k,1276) - lu(k,1282) = lu(k,1282) - lu(k,931) * lu(k,1276) - lu(k,1283) = lu(k,1283) - lu(k,932) * lu(k,1276) - lu(k,1285) = lu(k,1285) - lu(k,933) * lu(k,1276) - lu(k,1286) = lu(k,1286) - lu(k,934) * lu(k,1276) - lu(k,1287) = lu(k,1287) - lu(k,935) * lu(k,1276) - lu(k,1288) = lu(k,1288) - lu(k,936) * lu(k,1276) - lu(k,1289) = lu(k,1289) - lu(k,937) * lu(k,1276) - lu(k,1291) = lu(k,1291) - lu(k,938) * lu(k,1276) - lu(k,1292) = lu(k,1292) - lu(k,939) * lu(k,1276) - lu(k,1293) = lu(k,1293) - lu(k,940) * lu(k,1276) - lu(k,1294) = lu(k,1294) - lu(k,941) * lu(k,1276) - lu(k,1295) = lu(k,1295) - lu(k,942) * lu(k,1276) - lu(k,1296) = lu(k,1296) - lu(k,943) * lu(k,1276) - lu(k,1297) = lu(k,1297) - lu(k,944) * lu(k,1276) - lu(k,1299) = lu(k,1299) - lu(k,945) * lu(k,1276) - lu(k,1300) = lu(k,1300) - lu(k,946) * lu(k,1276) - lu(k,1301) = lu(k,1301) - lu(k,947) * lu(k,1276) - lu(k,1302) = lu(k,1302) - lu(k,948) * lu(k,1276) - lu(k,1319) = lu(k,1319) - lu(k,927) * lu(k,1318) - lu(k,1321) = lu(k,1321) - lu(k,928) * lu(k,1318) - lu(k,1322) = lu(k,1322) - lu(k,929) * lu(k,1318) - lu(k,1323) = lu(k,1323) - lu(k,930) * lu(k,1318) - lu(k,1324) = lu(k,1324) - lu(k,931) * lu(k,1318) - lu(k,1325) = lu(k,1325) - lu(k,932) * lu(k,1318) - lu(k,1327) = lu(k,1327) - lu(k,933) * lu(k,1318) - lu(k,1328) = lu(k,1328) - lu(k,934) * lu(k,1318) - lu(k,1329) = lu(k,1329) - lu(k,935) * lu(k,1318) - lu(k,1330) = lu(k,1330) - lu(k,936) * lu(k,1318) - lu(k,1331) = lu(k,1331) - lu(k,937) * lu(k,1318) - lu(k,1333) = lu(k,1333) - lu(k,938) * lu(k,1318) - lu(k,1334) = lu(k,1334) - lu(k,939) * lu(k,1318) - lu(k,1335) = lu(k,1335) - lu(k,940) * lu(k,1318) - lu(k,1336) = lu(k,1336) - lu(k,941) * lu(k,1318) - lu(k,1337) = lu(k,1337) - lu(k,942) * lu(k,1318) - lu(k,1338) = lu(k,1338) - lu(k,943) * lu(k,1318) - lu(k,1339) = lu(k,1339) - lu(k,944) * lu(k,1318) - lu(k,1341) = lu(k,1341) - lu(k,945) * lu(k,1318) - lu(k,1342) = lu(k,1342) - lu(k,946) * lu(k,1318) - lu(k,1343) = lu(k,1343) - lu(k,947) * lu(k,1318) - lu(k,1344) = lu(k,1344) - lu(k,948) * lu(k,1318) - lu(k,1379) = lu(k,1379) - lu(k,927) * lu(k,1378) - lu(k,1381) = lu(k,1381) - lu(k,928) * lu(k,1378) - lu(k,1382) = lu(k,1382) - lu(k,929) * lu(k,1378) - lu(k,1383) = lu(k,1383) - lu(k,930) * lu(k,1378) - lu(k,1384) = lu(k,1384) - lu(k,931) * lu(k,1378) - lu(k,1385) = lu(k,1385) - lu(k,932) * lu(k,1378) - lu(k,1387) = lu(k,1387) - lu(k,933) * lu(k,1378) - lu(k,1388) = lu(k,1388) - lu(k,934) * lu(k,1378) - lu(k,1389) = lu(k,1389) - lu(k,935) * lu(k,1378) - lu(k,1390) = lu(k,1390) - lu(k,936) * lu(k,1378) - lu(k,1391) = lu(k,1391) - lu(k,937) * lu(k,1378) - lu(k,1393) = lu(k,1393) - lu(k,938) * lu(k,1378) - lu(k,1394) = lu(k,1394) - lu(k,939) * lu(k,1378) - lu(k,1395) = lu(k,1395) - lu(k,940) * lu(k,1378) - lu(k,1396) = lu(k,1396) - lu(k,941) * lu(k,1378) - lu(k,1397) = lu(k,1397) - lu(k,942) * lu(k,1378) - lu(k,1398) = lu(k,1398) - lu(k,943) * lu(k,1378) - lu(k,1399) = lu(k,1399) - lu(k,944) * lu(k,1378) - lu(k,1401) = lu(k,1401) - lu(k,945) * lu(k,1378) - lu(k,1402) = lu(k,1402) - lu(k,946) * lu(k,1378) - lu(k,1403) = lu(k,1403) - lu(k,947) * lu(k,1378) - lu(k,1404) = lu(k,1404) - lu(k,948) * lu(k,1378) - lu(k,1428) = lu(k,1428) - lu(k,927) * lu(k,1427) - lu(k,1430) = lu(k,1430) - lu(k,928) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,929) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,930) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,931) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,932) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,933) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,934) * lu(k,1427) - lu(k,1438) = lu(k,1438) - lu(k,935) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,936) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,937) * lu(k,1427) - lu(k,1442) = lu(k,1442) - lu(k,938) * lu(k,1427) - lu(k,1443) = lu(k,1443) - lu(k,939) * lu(k,1427) - lu(k,1444) = lu(k,1444) - lu(k,940) * lu(k,1427) - lu(k,1445) = lu(k,1445) - lu(k,941) * lu(k,1427) - lu(k,1446) = lu(k,1446) - lu(k,942) * lu(k,1427) - lu(k,1447) = lu(k,1447) - lu(k,943) * lu(k,1427) - lu(k,1448) = lu(k,1448) - lu(k,944) * lu(k,1427) - lu(k,1450) = lu(k,1450) - lu(k,945) * lu(k,1427) - lu(k,1451) = lu(k,1451) - lu(k,946) * lu(k,1427) - lu(k,1452) = lu(k,1452) - lu(k,947) * lu(k,1427) - lu(k,1453) = lu(k,1453) - lu(k,948) * lu(k,1427) - lu(k,1476) = lu(k,1476) - lu(k,927) * lu(k,1475) - lu(k,1478) = lu(k,1478) - lu(k,928) * lu(k,1475) - lu(k,1479) = lu(k,1479) - lu(k,929) * lu(k,1475) - lu(k,1480) = lu(k,1480) - lu(k,930) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,931) * lu(k,1475) - lu(k,1482) = lu(k,1482) - lu(k,932) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,933) * lu(k,1475) - lu(k,1485) = lu(k,1485) - lu(k,934) * lu(k,1475) - lu(k,1486) = lu(k,1486) - lu(k,935) * lu(k,1475) - lu(k,1487) = lu(k,1487) - lu(k,936) * lu(k,1475) - lu(k,1488) = lu(k,1488) - lu(k,937) * lu(k,1475) - lu(k,1490) = lu(k,1490) - lu(k,938) * lu(k,1475) - lu(k,1491) = lu(k,1491) - lu(k,939) * lu(k,1475) - lu(k,1492) = lu(k,1492) - lu(k,940) * lu(k,1475) - lu(k,1493) = lu(k,1493) - lu(k,941) * lu(k,1475) - lu(k,1494) = lu(k,1494) - lu(k,942) * lu(k,1475) - lu(k,1495) = lu(k,1495) - lu(k,943) * lu(k,1475) - lu(k,1496) = lu(k,1496) - lu(k,944) * lu(k,1475) - lu(k,1498) = lu(k,1498) - lu(k,945) * lu(k,1475) - lu(k,1499) = lu(k,1499) - lu(k,946) * lu(k,1475) - lu(k,1500) = lu(k,1500) - lu(k,947) * lu(k,1475) - lu(k,1501) = lu(k,1501) - lu(k,948) * lu(k,1475) - lu(k,1517) = lu(k,1517) - lu(k,927) * lu(k,1516) - lu(k,1519) = lu(k,1519) - lu(k,928) * lu(k,1516) - lu(k,1520) = lu(k,1520) - lu(k,929) * lu(k,1516) - lu(k,1521) = lu(k,1521) - lu(k,930) * lu(k,1516) - lu(k,1522) = lu(k,1522) - lu(k,931) * lu(k,1516) - lu(k,1523) = lu(k,1523) - lu(k,932) * lu(k,1516) - lu(k,1525) = lu(k,1525) - lu(k,933) * lu(k,1516) - lu(k,1526) = lu(k,1526) - lu(k,934) * lu(k,1516) - lu(k,1527) = lu(k,1527) - lu(k,935) * lu(k,1516) - lu(k,1528) = lu(k,1528) - lu(k,936) * lu(k,1516) - lu(k,1529) = lu(k,1529) - lu(k,937) * lu(k,1516) - lu(k,1531) = lu(k,1531) - lu(k,938) * lu(k,1516) - lu(k,1532) = lu(k,1532) - lu(k,939) * lu(k,1516) - lu(k,1533) = lu(k,1533) - lu(k,940) * lu(k,1516) - lu(k,1534) = lu(k,1534) - lu(k,941) * lu(k,1516) - lu(k,1535) = lu(k,1535) - lu(k,942) * lu(k,1516) - lu(k,1536) = lu(k,1536) - lu(k,943) * lu(k,1516) - lu(k,1537) = lu(k,1537) - lu(k,944) * lu(k,1516) - lu(k,1539) = lu(k,1539) - lu(k,945) * lu(k,1516) - lu(k,1540) = lu(k,1540) - lu(k,946) * lu(k,1516) - lu(k,1541) = lu(k,1541) - lu(k,947) * lu(k,1516) - lu(k,1542) = lu(k,1542) - lu(k,948) * lu(k,1516) - lu(k,1553) = lu(k,1553) - lu(k,927) * lu(k,1552) - lu(k,1555) = lu(k,1555) - lu(k,928) * lu(k,1552) - lu(k,1556) = lu(k,1556) - lu(k,929) * lu(k,1552) - lu(k,1557) = lu(k,1557) - lu(k,930) * lu(k,1552) - lu(k,1558) = lu(k,1558) - lu(k,931) * lu(k,1552) - lu(k,1559) = lu(k,1559) - lu(k,932) * lu(k,1552) - lu(k,1561) = lu(k,1561) - lu(k,933) * lu(k,1552) - lu(k,1562) = lu(k,1562) - lu(k,934) * lu(k,1552) - lu(k,1563) = lu(k,1563) - lu(k,935) * lu(k,1552) - lu(k,1564) = lu(k,1564) - lu(k,936) * lu(k,1552) - lu(k,1565) = lu(k,1565) - lu(k,937) * lu(k,1552) - lu(k,1567) = lu(k,1567) - lu(k,938) * lu(k,1552) - lu(k,1568) = lu(k,1568) - lu(k,939) * lu(k,1552) - lu(k,1569) = lu(k,1569) - lu(k,940) * lu(k,1552) - lu(k,1570) = lu(k,1570) - lu(k,941) * lu(k,1552) - lu(k,1571) = lu(k,1571) - lu(k,942) * lu(k,1552) - lu(k,1572) = lu(k,1572) - lu(k,943) * lu(k,1552) - lu(k,1573) = lu(k,1573) - lu(k,944) * lu(k,1552) - lu(k,1575) = lu(k,1575) - lu(k,945) * lu(k,1552) - lu(k,1576) = lu(k,1576) - lu(k,946) * lu(k,1552) - lu(k,1577) = lu(k,1577) - lu(k,947) * lu(k,1552) - lu(k,1578) = lu(k,1578) - lu(k,948) * lu(k,1552) - lu(k,1598) = lu(k,1598) - lu(k,927) * lu(k,1597) - lu(k,1600) = lu(k,1600) - lu(k,928) * lu(k,1597) - lu(k,1601) = lu(k,1601) - lu(k,929) * lu(k,1597) - lu(k,1602) = lu(k,1602) - lu(k,930) * lu(k,1597) - lu(k,1603) = lu(k,1603) - lu(k,931) * lu(k,1597) - lu(k,1604) = lu(k,1604) - lu(k,932) * lu(k,1597) - lu(k,1606) = lu(k,1606) - lu(k,933) * lu(k,1597) - lu(k,1607) = lu(k,1607) - lu(k,934) * lu(k,1597) - lu(k,1608) = lu(k,1608) - lu(k,935) * lu(k,1597) - lu(k,1609) = lu(k,1609) - lu(k,936) * lu(k,1597) - lu(k,1610) = lu(k,1610) - lu(k,937) * lu(k,1597) - lu(k,1612) = lu(k,1612) - lu(k,938) * lu(k,1597) - lu(k,1613) = lu(k,1613) - lu(k,939) * lu(k,1597) - lu(k,1614) = lu(k,1614) - lu(k,940) * lu(k,1597) - lu(k,1615) = lu(k,1615) - lu(k,941) * lu(k,1597) - lu(k,1616) = lu(k,1616) - lu(k,942) * lu(k,1597) - lu(k,1617) = lu(k,1617) - lu(k,943) * lu(k,1597) - lu(k,1618) = lu(k,1618) - lu(k,944) * lu(k,1597) - lu(k,1620) = lu(k,1620) - lu(k,945) * lu(k,1597) - lu(k,1621) = lu(k,1621) - lu(k,946) * lu(k,1597) - lu(k,1622) = lu(k,1622) - lu(k,947) * lu(k,1597) - lu(k,1623) = lu(k,1623) - lu(k,948) * lu(k,1597) - lu(k,1641) = lu(k,1641) - lu(k,927) * lu(k,1640) - lu(k,1643) = lu(k,1643) - lu(k,928) * lu(k,1640) - lu(k,1644) = lu(k,1644) - lu(k,929) * lu(k,1640) - lu(k,1645) = lu(k,1645) - lu(k,930) * lu(k,1640) - lu(k,1646) = lu(k,1646) - lu(k,931) * lu(k,1640) - lu(k,1647) = lu(k,1647) - lu(k,932) * lu(k,1640) - lu(k,1649) = lu(k,1649) - lu(k,933) * lu(k,1640) - lu(k,1650) = lu(k,1650) - lu(k,934) * lu(k,1640) - lu(k,1651) = lu(k,1651) - lu(k,935) * lu(k,1640) - lu(k,1652) = lu(k,1652) - lu(k,936) * lu(k,1640) - lu(k,1653) = lu(k,1653) - lu(k,937) * lu(k,1640) - lu(k,1655) = lu(k,1655) - lu(k,938) * lu(k,1640) - lu(k,1656) = lu(k,1656) - lu(k,939) * lu(k,1640) - lu(k,1657) = lu(k,1657) - lu(k,940) * lu(k,1640) - lu(k,1658) = lu(k,1658) - lu(k,941) * lu(k,1640) - lu(k,1659) = lu(k,1659) - lu(k,942) * lu(k,1640) - lu(k,1660) = lu(k,1660) - lu(k,943) * lu(k,1640) - lu(k,1661) = lu(k,1661) - lu(k,944) * lu(k,1640) - lu(k,1663) = lu(k,1663) - lu(k,945) * lu(k,1640) - lu(k,1664) = lu(k,1664) - lu(k,946) * lu(k,1640) - lu(k,1665) = lu(k,1665) - lu(k,947) * lu(k,1640) - lu(k,1666) = lu(k,1666) - lu(k,948) * lu(k,1640) - lu(k,1684) = lu(k,1684) - lu(k,927) * lu(k,1683) - lu(k,1686) = lu(k,1686) - lu(k,928) * lu(k,1683) - lu(k,1687) = lu(k,1687) - lu(k,929) * lu(k,1683) - lu(k,1688) = lu(k,1688) - lu(k,930) * lu(k,1683) - lu(k,1689) = lu(k,1689) - lu(k,931) * lu(k,1683) - lu(k,1690) = lu(k,1690) - lu(k,932) * lu(k,1683) - lu(k,1692) = lu(k,1692) - lu(k,933) * lu(k,1683) - lu(k,1693) = lu(k,1693) - lu(k,934) * lu(k,1683) - lu(k,1694) = lu(k,1694) - lu(k,935) * lu(k,1683) - lu(k,1695) = lu(k,1695) - lu(k,936) * lu(k,1683) - lu(k,1696) = lu(k,1696) - lu(k,937) * lu(k,1683) - lu(k,1698) = lu(k,1698) - lu(k,938) * lu(k,1683) - lu(k,1699) = lu(k,1699) - lu(k,939) * lu(k,1683) - lu(k,1700) = lu(k,1700) - lu(k,940) * lu(k,1683) - lu(k,1701) = lu(k,1701) - lu(k,941) * lu(k,1683) - lu(k,1702) = lu(k,1702) - lu(k,942) * lu(k,1683) - lu(k,1703) = lu(k,1703) - lu(k,943) * lu(k,1683) - lu(k,1704) = lu(k,1704) - lu(k,944) * lu(k,1683) - lu(k,1706) = lu(k,1706) - lu(k,945) * lu(k,1683) - lu(k,1707) = lu(k,1707) - lu(k,946) * lu(k,1683) - lu(k,1708) = lu(k,1708) - lu(k,947) * lu(k,1683) - lu(k,1709) = lu(k,1709) - lu(k,948) * lu(k,1683) - lu(k,1725) = lu(k,1725) - lu(k,927) * lu(k,1724) - lu(k,1726) = lu(k,1726) - lu(k,928) * lu(k,1724) - lu(k,1727) = lu(k,1727) - lu(k,929) * lu(k,1724) - lu(k,1728) = lu(k,1728) - lu(k,930) * lu(k,1724) - lu(k,1729) = lu(k,1729) - lu(k,931) * lu(k,1724) - lu(k,1730) = lu(k,1730) - lu(k,932) * lu(k,1724) - lu(k,1732) = lu(k,1732) - lu(k,933) * lu(k,1724) - lu(k,1733) = lu(k,1733) - lu(k,934) * lu(k,1724) - lu(k,1734) = lu(k,1734) - lu(k,935) * lu(k,1724) - lu(k,1735) = lu(k,1735) - lu(k,936) * lu(k,1724) - lu(k,1736) = lu(k,1736) - lu(k,937) * lu(k,1724) - lu(k,1738) = lu(k,1738) - lu(k,938) * lu(k,1724) - lu(k,1739) = lu(k,1739) - lu(k,939) * lu(k,1724) - lu(k,1740) = lu(k,1740) - lu(k,940) * lu(k,1724) - lu(k,1741) = lu(k,1741) - lu(k,941) * lu(k,1724) - lu(k,1742) = lu(k,1742) - lu(k,942) * lu(k,1724) - lu(k,1743) = lu(k,1743) - lu(k,943) * lu(k,1724) - lu(k,1744) = lu(k,1744) - lu(k,944) * lu(k,1724) - lu(k,1746) = lu(k,1746) - lu(k,945) * lu(k,1724) - lu(k,1747) = lu(k,1747) - lu(k,946) * lu(k,1724) - lu(k,1748) = lu(k,1748) - lu(k,947) * lu(k,1724) - lu(k,1749) = lu(k,1749) - lu(k,948) * lu(k,1724) - lu(k,1760) = lu(k,1760) - lu(k,927) * lu(k,1759) - lu(k,1762) = lu(k,1762) - lu(k,928) * lu(k,1759) - lu(k,1763) = lu(k,1763) - lu(k,929) * lu(k,1759) - lu(k,1764) = lu(k,1764) - lu(k,930) * lu(k,1759) - lu(k,1765) = lu(k,1765) - lu(k,931) * lu(k,1759) - lu(k,1766) = lu(k,1766) - lu(k,932) * lu(k,1759) - lu(k,1768) = lu(k,1768) - lu(k,933) * lu(k,1759) - lu(k,1769) = lu(k,1769) - lu(k,934) * lu(k,1759) - lu(k,1770) = lu(k,1770) - lu(k,935) * lu(k,1759) - lu(k,1771) = lu(k,1771) - lu(k,936) * lu(k,1759) - lu(k,1772) = lu(k,1772) - lu(k,937) * lu(k,1759) - lu(k,1774) = lu(k,1774) - lu(k,938) * lu(k,1759) - lu(k,1775) = lu(k,1775) - lu(k,939) * lu(k,1759) - lu(k,1776) = lu(k,1776) - lu(k,940) * lu(k,1759) - lu(k,1777) = lu(k,1777) - lu(k,941) * lu(k,1759) - lu(k,1778) = lu(k,1778) - lu(k,942) * lu(k,1759) - lu(k,1779) = lu(k,1779) - lu(k,943) * lu(k,1759) - lu(k,1780) = lu(k,1780) - lu(k,944) * lu(k,1759) - lu(k,1782) = lu(k,1782) - lu(k,945) * lu(k,1759) - lu(k,1783) = lu(k,1783) - lu(k,946) * lu(k,1759) - lu(k,1784) = lu(k,1784) - lu(k,947) * lu(k,1759) - lu(k,1785) = lu(k,1785) - lu(k,948) * lu(k,1759) - lu(k,1808) = lu(k,1808) - lu(k,927) * lu(k,1807) - lu(k,1810) = lu(k,1810) - lu(k,928) * lu(k,1807) - lu(k,1811) = lu(k,1811) - lu(k,929) * lu(k,1807) - lu(k,1812) = lu(k,1812) - lu(k,930) * lu(k,1807) - lu(k,1813) = lu(k,1813) - lu(k,931) * lu(k,1807) - lu(k,1814) = lu(k,1814) - lu(k,932) * lu(k,1807) - lu(k,1816) = lu(k,1816) - lu(k,933) * lu(k,1807) - lu(k,1817) = lu(k,1817) - lu(k,934) * lu(k,1807) - lu(k,1818) = lu(k,1818) - lu(k,935) * lu(k,1807) - lu(k,1819) = lu(k,1819) - lu(k,936) * lu(k,1807) - lu(k,1820) = lu(k,1820) - lu(k,937) * lu(k,1807) - lu(k,1822) = lu(k,1822) - lu(k,938) * lu(k,1807) - lu(k,1823) = lu(k,1823) - lu(k,939) * lu(k,1807) - lu(k,1824) = lu(k,1824) - lu(k,940) * lu(k,1807) - lu(k,1825) = lu(k,1825) - lu(k,941) * lu(k,1807) - lu(k,1826) = lu(k,1826) - lu(k,942) * lu(k,1807) - lu(k,1827) = lu(k,1827) - lu(k,943) * lu(k,1807) - lu(k,1828) = lu(k,1828) - lu(k,944) * lu(k,1807) - lu(k,1830) = lu(k,1830) - lu(k,945) * lu(k,1807) - lu(k,1831) = lu(k,1831) - lu(k,946) * lu(k,1807) - lu(k,1832) = lu(k,1832) - lu(k,947) * lu(k,1807) - lu(k,1833) = lu(k,1833) - lu(k,948) * lu(k,1807) - lu(k,1841) = lu(k,1841) - lu(k,927) * lu(k,1840) - lu(k,1843) = lu(k,1843) - lu(k,928) * lu(k,1840) - lu(k,1844) = lu(k,1844) - lu(k,929) * lu(k,1840) - lu(k,1845) = lu(k,1845) - lu(k,930) * lu(k,1840) - lu(k,1846) = lu(k,1846) - lu(k,931) * lu(k,1840) - lu(k,1847) = lu(k,1847) - lu(k,932) * lu(k,1840) - lu(k,1849) = lu(k,1849) - lu(k,933) * lu(k,1840) - lu(k,1850) = lu(k,1850) - lu(k,934) * lu(k,1840) - lu(k,1851) = lu(k,1851) - lu(k,935) * lu(k,1840) - lu(k,1852) = lu(k,1852) - lu(k,936) * lu(k,1840) - lu(k,1853) = lu(k,1853) - lu(k,937) * lu(k,1840) - lu(k,1855) = lu(k,1855) - lu(k,938) * lu(k,1840) - lu(k,1856) = lu(k,1856) - lu(k,939) * lu(k,1840) - lu(k,1857) = lu(k,1857) - lu(k,940) * lu(k,1840) - lu(k,1858) = lu(k,1858) - lu(k,941) * lu(k,1840) - lu(k,1859) = lu(k,1859) - lu(k,942) * lu(k,1840) - lu(k,1860) = lu(k,1860) - lu(k,943) * lu(k,1840) - lu(k,1861) = lu(k,1861) - lu(k,944) * lu(k,1840) - lu(k,1863) = lu(k,1863) - lu(k,945) * lu(k,1840) - lu(k,1864) = lu(k,1864) - lu(k,946) * lu(k,1840) - lu(k,1865) = lu(k,1865) - lu(k,947) * lu(k,1840) - lu(k,1866) = lu(k,1866) - lu(k,948) * lu(k,1840) - lu(k,1877) = lu(k,1877) - lu(k,927) * lu(k,1876) - lu(k,1879) = lu(k,1879) - lu(k,928) * lu(k,1876) - lu(k,1880) = lu(k,1880) - lu(k,929) * lu(k,1876) - lu(k,1881) = lu(k,1881) - lu(k,930) * lu(k,1876) - lu(k,1882) = lu(k,1882) - lu(k,931) * lu(k,1876) - lu(k,1883) = lu(k,1883) - lu(k,932) * lu(k,1876) - lu(k,1885) = lu(k,1885) - lu(k,933) * lu(k,1876) - lu(k,1886) = lu(k,1886) - lu(k,934) * lu(k,1876) - lu(k,1887) = lu(k,1887) - lu(k,935) * lu(k,1876) - lu(k,1888) = lu(k,1888) - lu(k,936) * lu(k,1876) - lu(k,1889) = lu(k,1889) - lu(k,937) * lu(k,1876) - lu(k,1891) = lu(k,1891) - lu(k,938) * lu(k,1876) - lu(k,1892) = lu(k,1892) - lu(k,939) * lu(k,1876) - lu(k,1893) = lu(k,1893) - lu(k,940) * lu(k,1876) - lu(k,1894) = lu(k,1894) - lu(k,941) * lu(k,1876) - lu(k,1895) = lu(k,1895) - lu(k,942) * lu(k,1876) - lu(k,1896) = lu(k,1896) - lu(k,943) * lu(k,1876) - lu(k,1897) = lu(k,1897) - lu(k,944) * lu(k,1876) - lu(k,1899) = lu(k,1899) - lu(k,945) * lu(k,1876) - lu(k,1900) = lu(k,1900) - lu(k,946) * lu(k,1876) - lu(k,1901) = lu(k,1901) - lu(k,947) * lu(k,1876) - lu(k,1902) = lu(k,1902) - lu(k,948) * lu(k,1876) - lu(k,1918) = lu(k,1918) - lu(k,927) * lu(k,1917) - lu(k,1920) = lu(k,1920) - lu(k,928) * lu(k,1917) - lu(k,1921) = lu(k,1921) - lu(k,929) * lu(k,1917) - lu(k,1922) = lu(k,1922) - lu(k,930) * lu(k,1917) - lu(k,1923) = lu(k,1923) - lu(k,931) * lu(k,1917) - lu(k,1924) = lu(k,1924) - lu(k,932) * lu(k,1917) - lu(k,1926) = lu(k,1926) - lu(k,933) * lu(k,1917) - lu(k,1927) = lu(k,1927) - lu(k,934) * lu(k,1917) - lu(k,1928) = lu(k,1928) - lu(k,935) * lu(k,1917) - lu(k,1929) = lu(k,1929) - lu(k,936) * lu(k,1917) - lu(k,1930) = lu(k,1930) - lu(k,937) * lu(k,1917) - lu(k,1932) = lu(k,1932) - lu(k,938) * lu(k,1917) - lu(k,1933) = lu(k,1933) - lu(k,939) * lu(k,1917) - lu(k,1934) = lu(k,1934) - lu(k,940) * lu(k,1917) - lu(k,1935) = lu(k,1935) - lu(k,941) * lu(k,1917) - lu(k,1936) = lu(k,1936) - lu(k,942) * lu(k,1917) - lu(k,1937) = lu(k,1937) - lu(k,943) * lu(k,1917) - lu(k,1938) = lu(k,1938) - lu(k,944) * lu(k,1917) - lu(k,1940) = lu(k,1940) - lu(k,945) * lu(k,1917) - lu(k,1941) = lu(k,1941) - lu(k,946) * lu(k,1917) - lu(k,1942) = lu(k,1942) - lu(k,947) * lu(k,1917) - lu(k,1943) = lu(k,1943) - lu(k,948) * lu(k,1917) - lu(k,1960) = lu(k,1960) - lu(k,927) * lu(k,1959) - lu(k,1962) = lu(k,1962) - lu(k,928) * lu(k,1959) - lu(k,1963) = lu(k,1963) - lu(k,929) * lu(k,1959) - lu(k,1964) = lu(k,1964) - lu(k,930) * lu(k,1959) - lu(k,1965) = lu(k,1965) - lu(k,931) * lu(k,1959) - lu(k,1966) = lu(k,1966) - lu(k,932) * lu(k,1959) - lu(k,1968) = lu(k,1968) - lu(k,933) * lu(k,1959) - lu(k,1969) = lu(k,1969) - lu(k,934) * lu(k,1959) - lu(k,1970) = lu(k,1970) - lu(k,935) * lu(k,1959) - lu(k,1971) = lu(k,1971) - lu(k,936) * lu(k,1959) - lu(k,1972) = lu(k,1972) - lu(k,937) * lu(k,1959) - lu(k,1974) = lu(k,1974) - lu(k,938) * lu(k,1959) - lu(k,1975) = lu(k,1975) - lu(k,939) * lu(k,1959) - lu(k,1976) = lu(k,1976) - lu(k,940) * lu(k,1959) - lu(k,1977) = lu(k,1977) - lu(k,941) * lu(k,1959) - lu(k,1978) = lu(k,1978) - lu(k,942) * lu(k,1959) - lu(k,1979) = lu(k,1979) - lu(k,943) * lu(k,1959) - lu(k,1980) = lu(k,1980) - lu(k,944) * lu(k,1959) - lu(k,1982) = lu(k,1982) - lu(k,945) * lu(k,1959) - lu(k,1983) = lu(k,1983) - lu(k,946) * lu(k,1959) - lu(k,1984) = lu(k,1984) - lu(k,947) * lu(k,1959) - lu(k,1985) = lu(k,1985) - lu(k,948) * lu(k,1959) - lu(k,2005) = lu(k,2005) - lu(k,927) * lu(k,2004) - lu(k,2007) = lu(k,2007) - lu(k,928) * lu(k,2004) - lu(k,2008) = lu(k,2008) - lu(k,929) * lu(k,2004) - lu(k,2009) = lu(k,2009) - lu(k,930) * lu(k,2004) - lu(k,2010) = lu(k,2010) - lu(k,931) * lu(k,2004) - lu(k,2011) = lu(k,2011) - lu(k,932) * lu(k,2004) - lu(k,2013) = lu(k,2013) - lu(k,933) * lu(k,2004) - lu(k,2014) = lu(k,2014) - lu(k,934) * lu(k,2004) - lu(k,2015) = lu(k,2015) - lu(k,935) * lu(k,2004) - lu(k,2016) = lu(k,2016) - lu(k,936) * lu(k,2004) - lu(k,2017) = lu(k,2017) - lu(k,937) * lu(k,2004) - lu(k,2019) = lu(k,2019) - lu(k,938) * lu(k,2004) - lu(k,2020) = lu(k,2020) - lu(k,939) * lu(k,2004) - lu(k,2021) = lu(k,2021) - lu(k,940) * lu(k,2004) - lu(k,2022) = lu(k,2022) - lu(k,941) * lu(k,2004) - lu(k,2023) = lu(k,2023) - lu(k,942) * lu(k,2004) - lu(k,2024) = lu(k,2024) - lu(k,943) * lu(k,2004) - lu(k,2025) = lu(k,2025) - lu(k,944) * lu(k,2004) - lu(k,2027) = lu(k,2027) - lu(k,945) * lu(k,2004) - lu(k,2028) = lu(k,2028) - lu(k,946) * lu(k,2004) - lu(k,2029) = lu(k,2029) - lu(k,947) * lu(k,2004) - lu(k,2030) = lu(k,2030) - lu(k,948) * lu(k,2004) - lu(k,2065) = lu(k,2065) - lu(k,927) * lu(k,2064) - lu(k,2067) = lu(k,2067) - lu(k,928) * lu(k,2064) - lu(k,2068) = lu(k,2068) - lu(k,929) * lu(k,2064) - lu(k,2069) = lu(k,2069) - lu(k,930) * lu(k,2064) - lu(k,2070) = lu(k,2070) - lu(k,931) * lu(k,2064) - lu(k,2071) = lu(k,2071) - lu(k,932) * lu(k,2064) - lu(k,2073) = lu(k,2073) - lu(k,933) * lu(k,2064) - lu(k,2074) = lu(k,2074) - lu(k,934) * lu(k,2064) - lu(k,2075) = lu(k,2075) - lu(k,935) * lu(k,2064) - lu(k,2076) = lu(k,2076) - lu(k,936) * lu(k,2064) - lu(k,2077) = lu(k,2077) - lu(k,937) * lu(k,2064) - lu(k,2079) = lu(k,2079) - lu(k,938) * lu(k,2064) - lu(k,2080) = lu(k,2080) - lu(k,939) * lu(k,2064) - lu(k,2081) = lu(k,2081) - lu(k,940) * lu(k,2064) - lu(k,2082) = lu(k,2082) - lu(k,941) * lu(k,2064) - lu(k,2083) = lu(k,2083) - lu(k,942) * lu(k,2064) - lu(k,2084) = lu(k,2084) - lu(k,943) * lu(k,2064) - lu(k,2085) = lu(k,2085) - lu(k,944) * lu(k,2064) - lu(k,2087) = lu(k,2087) - lu(k,945) * lu(k,2064) - lu(k,2088) = lu(k,2088) - lu(k,946) * lu(k,2064) - lu(k,2089) = lu(k,2089) - lu(k,947) * lu(k,2064) - lu(k,2090) = lu(k,2090) - lu(k,948) * lu(k,2064) + lu(k,1394) = lu(k,1394) - lu(k,913) * lu(k,1377) + lu(k,1395) = lu(k,1395) - lu(k,914) * lu(k,1377) + lu(k,1396) = lu(k,1396) - lu(k,915) * lu(k,1377) + lu(k,1397) = lu(k,1397) - lu(k,916) * lu(k,1377) + lu(k,1398) = lu(k,1398) - lu(k,917) * lu(k,1377) + lu(k,1399) = lu(k,1399) - lu(k,918) * lu(k,1377) + lu(k,1400) = lu(k,1400) - lu(k,919) * lu(k,1377) + lu(k,1401) = lu(k,1401) - lu(k,920) * lu(k,1377) + lu(k,1402) = lu(k,1402) - lu(k,921) * lu(k,1377) + lu(k,1403) = lu(k,1403) - lu(k,922) * lu(k,1377) + lu(k,1404) = lu(k,1404) - lu(k,923) * lu(k,1377) + lu(k,1422) = lu(k,1422) - lu(k,903) * lu(k,1420) + lu(k,1424) = lu(k,1424) - lu(k,904) * lu(k,1420) + lu(k,1425) = lu(k,1425) - lu(k,905) * lu(k,1420) + lu(k,1428) = lu(k,1428) - lu(k,906) * lu(k,1420) + lu(k,1430) = lu(k,1430) - lu(k,907) * lu(k,1420) + lu(k,1431) = lu(k,1431) - lu(k,908) * lu(k,1420) + lu(k,1433) = lu(k,1433) - lu(k,909) * lu(k,1420) + lu(k,1434) = lu(k,1434) - lu(k,910) * lu(k,1420) + lu(k,1435) = lu(k,1435) - lu(k,911) * lu(k,1420) + lu(k,1436) = lu(k,1436) - lu(k,912) * lu(k,1420) + lu(k,1437) = lu(k,1437) - lu(k,913) * lu(k,1420) + lu(k,1438) = lu(k,1438) - lu(k,914) * lu(k,1420) + lu(k,1439) = lu(k,1439) - lu(k,915) * lu(k,1420) + lu(k,1440) = lu(k,1440) - lu(k,916) * lu(k,1420) + lu(k,1441) = lu(k,1441) - lu(k,917) * lu(k,1420) + lu(k,1442) = lu(k,1442) - lu(k,918) * lu(k,1420) + lu(k,1443) = lu(k,1443) - lu(k,919) * lu(k,1420) + lu(k,1444) = lu(k,1444) - lu(k,920) * lu(k,1420) + lu(k,1445) = lu(k,1445) - lu(k,921) * lu(k,1420) + lu(k,1446) = lu(k,1446) - lu(k,922) * lu(k,1420) + lu(k,1447) = lu(k,1447) - lu(k,923) * lu(k,1420) + lu(k,1470) = lu(k,1470) - lu(k,903) * lu(k,1468) + lu(k,1472) = lu(k,1472) - lu(k,904) * lu(k,1468) + lu(k,1473) = lu(k,1473) - lu(k,905) * lu(k,1468) + lu(k,1476) = lu(k,1476) - lu(k,906) * lu(k,1468) + lu(k,1478) = lu(k,1478) - lu(k,907) * lu(k,1468) + lu(k,1479) = lu(k,1479) - lu(k,908) * lu(k,1468) + lu(k,1481) = lu(k,1481) - lu(k,909) * lu(k,1468) + lu(k,1482) = lu(k,1482) - lu(k,910) * lu(k,1468) + lu(k,1483) = lu(k,1483) - lu(k,911) * lu(k,1468) + lu(k,1484) = lu(k,1484) - lu(k,912) * lu(k,1468) + lu(k,1485) = lu(k,1485) - lu(k,913) * lu(k,1468) + lu(k,1486) = lu(k,1486) - lu(k,914) * lu(k,1468) + lu(k,1487) = lu(k,1487) - lu(k,915) * lu(k,1468) + lu(k,1488) = lu(k,1488) - lu(k,916) * lu(k,1468) + lu(k,1489) = lu(k,1489) - lu(k,917) * lu(k,1468) + lu(k,1490) = lu(k,1490) - lu(k,918) * lu(k,1468) + lu(k,1491) = lu(k,1491) - lu(k,919) * lu(k,1468) + lu(k,1492) = lu(k,1492) - lu(k,920) * lu(k,1468) + lu(k,1493) = lu(k,1493) - lu(k,921) * lu(k,1468) + lu(k,1494) = lu(k,1494) - lu(k,922) * lu(k,1468) + lu(k,1495) = lu(k,1495) - lu(k,923) * lu(k,1468) + lu(k,1511) = lu(k,1511) - lu(k,903) * lu(k,1509) + lu(k,1513) = lu(k,1513) - lu(k,904) * lu(k,1509) + lu(k,1514) = lu(k,1514) - lu(k,905) * lu(k,1509) + lu(k,1517) = lu(k,1517) - lu(k,906) * lu(k,1509) + lu(k,1519) = lu(k,1519) - lu(k,907) * lu(k,1509) + lu(k,1520) = lu(k,1520) - lu(k,908) * lu(k,1509) + lu(k,1522) = lu(k,1522) - lu(k,909) * lu(k,1509) + lu(k,1523) = lu(k,1523) - lu(k,910) * lu(k,1509) + lu(k,1524) = lu(k,1524) - lu(k,911) * lu(k,1509) + lu(k,1525) = lu(k,1525) - lu(k,912) * lu(k,1509) + lu(k,1526) = lu(k,1526) - lu(k,913) * lu(k,1509) + lu(k,1527) = lu(k,1527) - lu(k,914) * lu(k,1509) + lu(k,1528) = lu(k,1528) - lu(k,915) * lu(k,1509) + lu(k,1529) = lu(k,1529) - lu(k,916) * lu(k,1509) + lu(k,1530) = lu(k,1530) - lu(k,917) * lu(k,1509) + lu(k,1531) = lu(k,1531) - lu(k,918) * lu(k,1509) + lu(k,1532) = lu(k,1532) - lu(k,919) * lu(k,1509) + lu(k,1533) = lu(k,1533) - lu(k,920) * lu(k,1509) + lu(k,1534) = lu(k,1534) - lu(k,921) * lu(k,1509) + lu(k,1535) = lu(k,1535) - lu(k,922) * lu(k,1509) + lu(k,1536) = lu(k,1536) - lu(k,923) * lu(k,1509) + lu(k,1547) = lu(k,1547) - lu(k,903) * lu(k,1545) + lu(k,1549) = lu(k,1549) - lu(k,904) * lu(k,1545) + lu(k,1550) = lu(k,1550) - lu(k,905) * lu(k,1545) + lu(k,1553) = lu(k,1553) - lu(k,906) * lu(k,1545) + lu(k,1555) = lu(k,1555) - lu(k,907) * lu(k,1545) + lu(k,1556) = lu(k,1556) - lu(k,908) * lu(k,1545) + lu(k,1558) = lu(k,1558) - lu(k,909) * lu(k,1545) + lu(k,1559) = lu(k,1559) - lu(k,910) * lu(k,1545) + lu(k,1560) = lu(k,1560) - lu(k,911) * lu(k,1545) + lu(k,1561) = lu(k,1561) - lu(k,912) * lu(k,1545) + lu(k,1562) = lu(k,1562) - lu(k,913) * lu(k,1545) + lu(k,1563) = lu(k,1563) - lu(k,914) * lu(k,1545) + lu(k,1564) = lu(k,1564) - lu(k,915) * lu(k,1545) + lu(k,1565) = lu(k,1565) - lu(k,916) * lu(k,1545) + lu(k,1566) = lu(k,1566) - lu(k,917) * lu(k,1545) + lu(k,1567) = lu(k,1567) - lu(k,918) * lu(k,1545) + lu(k,1568) = lu(k,1568) - lu(k,919) * lu(k,1545) + lu(k,1569) = lu(k,1569) - lu(k,920) * lu(k,1545) + lu(k,1570) = lu(k,1570) - lu(k,921) * lu(k,1545) + lu(k,1571) = lu(k,1571) - lu(k,922) * lu(k,1545) + lu(k,1572) = lu(k,1572) - lu(k,923) * lu(k,1545) + lu(k,1592) = lu(k,1592) - lu(k,903) * lu(k,1590) + lu(k,1594) = lu(k,1594) - lu(k,904) * lu(k,1590) + lu(k,1595) = lu(k,1595) - lu(k,905) * lu(k,1590) + lu(k,1598) = lu(k,1598) - lu(k,906) * lu(k,1590) + lu(k,1600) = lu(k,1600) - lu(k,907) * lu(k,1590) + lu(k,1601) = lu(k,1601) - lu(k,908) * lu(k,1590) + lu(k,1603) = lu(k,1603) - lu(k,909) * lu(k,1590) + lu(k,1604) = lu(k,1604) - lu(k,910) * lu(k,1590) + lu(k,1605) = lu(k,1605) - lu(k,911) * lu(k,1590) + lu(k,1606) = lu(k,1606) - lu(k,912) * lu(k,1590) + lu(k,1607) = lu(k,1607) - lu(k,913) * lu(k,1590) + lu(k,1608) = lu(k,1608) - lu(k,914) * lu(k,1590) + lu(k,1609) = lu(k,1609) - lu(k,915) * lu(k,1590) + lu(k,1610) = lu(k,1610) - lu(k,916) * lu(k,1590) + lu(k,1611) = lu(k,1611) - lu(k,917) * lu(k,1590) + lu(k,1612) = lu(k,1612) - lu(k,918) * lu(k,1590) + lu(k,1613) = lu(k,1613) - lu(k,919) * lu(k,1590) + lu(k,1614) = lu(k,1614) - lu(k,920) * lu(k,1590) + lu(k,1615) = lu(k,1615) - lu(k,921) * lu(k,1590) + lu(k,1616) = lu(k,1616) - lu(k,922) * lu(k,1590) + lu(k,1617) = lu(k,1617) - lu(k,923) * lu(k,1590) + lu(k,1635) = lu(k,1635) - lu(k,903) * lu(k,1633) + lu(k,1637) = lu(k,1637) - lu(k,904) * lu(k,1633) + lu(k,1638) = lu(k,1638) - lu(k,905) * lu(k,1633) + lu(k,1641) = lu(k,1641) - lu(k,906) * lu(k,1633) + lu(k,1643) = lu(k,1643) - lu(k,907) * lu(k,1633) + lu(k,1644) = lu(k,1644) - lu(k,908) * lu(k,1633) + lu(k,1646) = lu(k,1646) - lu(k,909) * lu(k,1633) + lu(k,1647) = lu(k,1647) - lu(k,910) * lu(k,1633) + lu(k,1648) = lu(k,1648) - lu(k,911) * lu(k,1633) + lu(k,1649) = lu(k,1649) - lu(k,912) * lu(k,1633) + lu(k,1650) = lu(k,1650) - lu(k,913) * lu(k,1633) + lu(k,1651) = lu(k,1651) - lu(k,914) * lu(k,1633) + lu(k,1652) = lu(k,1652) - lu(k,915) * lu(k,1633) + lu(k,1653) = lu(k,1653) - lu(k,916) * lu(k,1633) + lu(k,1654) = lu(k,1654) - lu(k,917) * lu(k,1633) + lu(k,1655) = lu(k,1655) - lu(k,918) * lu(k,1633) + lu(k,1656) = lu(k,1656) - lu(k,919) * lu(k,1633) + lu(k,1657) = lu(k,1657) - lu(k,920) * lu(k,1633) + lu(k,1658) = lu(k,1658) - lu(k,921) * lu(k,1633) + lu(k,1659) = lu(k,1659) - lu(k,922) * lu(k,1633) + lu(k,1660) = lu(k,1660) - lu(k,923) * lu(k,1633) + lu(k,1677) = lu(k,1677) - lu(k,903) * lu(k,1675) + lu(k,1679) = lu(k,1679) - lu(k,904) * lu(k,1675) + lu(k,1680) = lu(k,1680) - lu(k,905) * lu(k,1675) + lu(k,1683) = lu(k,1683) - lu(k,906) * lu(k,1675) + lu(k,1685) = lu(k,1685) - lu(k,907) * lu(k,1675) + lu(k,1686) = lu(k,1686) - lu(k,908) * lu(k,1675) + lu(k,1688) = lu(k,1688) - lu(k,909) * lu(k,1675) + lu(k,1689) = lu(k,1689) - lu(k,910) * lu(k,1675) + lu(k,1690) = lu(k,1690) - lu(k,911) * lu(k,1675) + lu(k,1691) = lu(k,1691) - lu(k,912) * lu(k,1675) + lu(k,1692) = lu(k,1692) - lu(k,913) * lu(k,1675) + lu(k,1693) = lu(k,1693) - lu(k,914) * lu(k,1675) + lu(k,1694) = lu(k,1694) - lu(k,915) * lu(k,1675) + lu(k,1695) = lu(k,1695) - lu(k,916) * lu(k,1675) + lu(k,1696) = lu(k,1696) - lu(k,917) * lu(k,1675) + lu(k,1697) = lu(k,1697) - lu(k,918) * lu(k,1675) + lu(k,1698) = lu(k,1698) - lu(k,919) * lu(k,1675) + lu(k,1699) = lu(k,1699) - lu(k,920) * lu(k,1675) + lu(k,1700) = lu(k,1700) - lu(k,921) * lu(k,1675) + lu(k,1701) = lu(k,1701) - lu(k,922) * lu(k,1675) + lu(k,1702) = lu(k,1702) - lu(k,923) * lu(k,1675) + lu(k,1718) = lu(k,1718) - lu(k,903) * lu(k,1716) + lu(k,1719) = lu(k,1719) - lu(k,904) * lu(k,1716) + lu(k,1720) = lu(k,1720) - lu(k,905) * lu(k,1716) + lu(k,1723) = lu(k,1723) - lu(k,906) * lu(k,1716) + lu(k,1725) = lu(k,1725) - lu(k,907) * lu(k,1716) + lu(k,1726) = lu(k,1726) - lu(k,908) * lu(k,1716) + lu(k,1728) = lu(k,1728) - lu(k,909) * lu(k,1716) + lu(k,1729) = lu(k,1729) - lu(k,910) * lu(k,1716) + lu(k,1730) = lu(k,1730) - lu(k,911) * lu(k,1716) + lu(k,1731) = lu(k,1731) - lu(k,912) * lu(k,1716) + lu(k,1732) = lu(k,1732) - lu(k,913) * lu(k,1716) + lu(k,1733) = lu(k,1733) - lu(k,914) * lu(k,1716) + lu(k,1734) = lu(k,1734) - lu(k,915) * lu(k,1716) + lu(k,1735) = lu(k,1735) - lu(k,916) * lu(k,1716) + lu(k,1736) = lu(k,1736) - lu(k,917) * lu(k,1716) + lu(k,1737) = lu(k,1737) - lu(k,918) * lu(k,1716) + lu(k,1738) = lu(k,1738) - lu(k,919) * lu(k,1716) + lu(k,1739) = lu(k,1739) - lu(k,920) * lu(k,1716) + lu(k,1740) = lu(k,1740) - lu(k,921) * lu(k,1716) + lu(k,1741) = lu(k,1741) - lu(k,922) * lu(k,1716) + lu(k,1742) = lu(k,1742) - lu(k,923) * lu(k,1716) + lu(k,1753) = lu(k,1753) - lu(k,903) * lu(k,1751) + lu(k,1755) = lu(k,1755) - lu(k,904) * lu(k,1751) + lu(k,1756) = lu(k,1756) - lu(k,905) * lu(k,1751) + lu(k,1759) = lu(k,1759) - lu(k,906) * lu(k,1751) + lu(k,1761) = lu(k,1761) - lu(k,907) * lu(k,1751) + lu(k,1762) = lu(k,1762) - lu(k,908) * lu(k,1751) + lu(k,1764) = lu(k,1764) - lu(k,909) * lu(k,1751) + lu(k,1765) = lu(k,1765) - lu(k,910) * lu(k,1751) + lu(k,1766) = lu(k,1766) - lu(k,911) * lu(k,1751) + lu(k,1767) = lu(k,1767) - lu(k,912) * lu(k,1751) + lu(k,1768) = lu(k,1768) - lu(k,913) * lu(k,1751) + lu(k,1769) = lu(k,1769) - lu(k,914) * lu(k,1751) + lu(k,1770) = lu(k,1770) - lu(k,915) * lu(k,1751) + lu(k,1771) = lu(k,1771) - lu(k,916) * lu(k,1751) + lu(k,1772) = lu(k,1772) - lu(k,917) * lu(k,1751) + lu(k,1773) = lu(k,1773) - lu(k,918) * lu(k,1751) + lu(k,1774) = lu(k,1774) - lu(k,919) * lu(k,1751) + lu(k,1775) = lu(k,1775) - lu(k,920) * lu(k,1751) + lu(k,1776) = lu(k,1776) - lu(k,921) * lu(k,1751) + lu(k,1777) = lu(k,1777) - lu(k,922) * lu(k,1751) + lu(k,1778) = lu(k,1778) - lu(k,923) * lu(k,1751) + lu(k,1801) = lu(k,1801) - lu(k,903) * lu(k,1799) + lu(k,1803) = lu(k,1803) - lu(k,904) * lu(k,1799) + lu(k,1804) = lu(k,1804) - lu(k,905) * lu(k,1799) + lu(k,1807) = lu(k,1807) - lu(k,906) * lu(k,1799) + lu(k,1809) = lu(k,1809) - lu(k,907) * lu(k,1799) + lu(k,1810) = lu(k,1810) - lu(k,908) * lu(k,1799) + lu(k,1812) = lu(k,1812) - lu(k,909) * lu(k,1799) + lu(k,1813) = lu(k,1813) - lu(k,910) * lu(k,1799) + lu(k,1814) = lu(k,1814) - lu(k,911) * lu(k,1799) + lu(k,1815) = lu(k,1815) - lu(k,912) * lu(k,1799) + lu(k,1816) = lu(k,1816) - lu(k,913) * lu(k,1799) + lu(k,1817) = lu(k,1817) - lu(k,914) * lu(k,1799) + lu(k,1818) = lu(k,1818) - lu(k,915) * lu(k,1799) + lu(k,1819) = lu(k,1819) - lu(k,916) * lu(k,1799) + lu(k,1820) = lu(k,1820) - lu(k,917) * lu(k,1799) + lu(k,1821) = lu(k,1821) - lu(k,918) * lu(k,1799) + lu(k,1822) = lu(k,1822) - lu(k,919) * lu(k,1799) + lu(k,1823) = lu(k,1823) - lu(k,920) * lu(k,1799) + lu(k,1824) = lu(k,1824) - lu(k,921) * lu(k,1799) + lu(k,1825) = lu(k,1825) - lu(k,922) * lu(k,1799) + lu(k,1826) = lu(k,1826) - lu(k,923) * lu(k,1799) + lu(k,1834) = lu(k,1834) - lu(k,903) * lu(k,1832) + lu(k,1836) = lu(k,1836) - lu(k,904) * lu(k,1832) + lu(k,1837) = lu(k,1837) - lu(k,905) * lu(k,1832) + lu(k,1840) = lu(k,1840) - lu(k,906) * lu(k,1832) + lu(k,1842) = lu(k,1842) - lu(k,907) * lu(k,1832) + lu(k,1843) = lu(k,1843) - lu(k,908) * lu(k,1832) + lu(k,1845) = lu(k,1845) - lu(k,909) * lu(k,1832) + lu(k,1846) = lu(k,1846) - lu(k,910) * lu(k,1832) + lu(k,1847) = lu(k,1847) - lu(k,911) * lu(k,1832) + lu(k,1848) = lu(k,1848) - lu(k,912) * lu(k,1832) + lu(k,1849) = lu(k,1849) - lu(k,913) * lu(k,1832) + lu(k,1850) = lu(k,1850) - lu(k,914) * lu(k,1832) + lu(k,1851) = lu(k,1851) - lu(k,915) * lu(k,1832) + lu(k,1852) = lu(k,1852) - lu(k,916) * lu(k,1832) + lu(k,1853) = lu(k,1853) - lu(k,917) * lu(k,1832) + lu(k,1854) = lu(k,1854) - lu(k,918) * lu(k,1832) + lu(k,1855) = lu(k,1855) - lu(k,919) * lu(k,1832) + lu(k,1856) = lu(k,1856) - lu(k,920) * lu(k,1832) + lu(k,1857) = lu(k,1857) - lu(k,921) * lu(k,1832) + lu(k,1858) = lu(k,1858) - lu(k,922) * lu(k,1832) + lu(k,1859) = lu(k,1859) - lu(k,923) * lu(k,1832) + lu(k,1870) = lu(k,1870) - lu(k,903) * lu(k,1868) + lu(k,1872) = lu(k,1872) - lu(k,904) * lu(k,1868) + lu(k,1873) = lu(k,1873) - lu(k,905) * lu(k,1868) + lu(k,1876) = lu(k,1876) - lu(k,906) * lu(k,1868) + lu(k,1878) = lu(k,1878) - lu(k,907) * lu(k,1868) + lu(k,1879) = lu(k,1879) - lu(k,908) * lu(k,1868) + lu(k,1881) = lu(k,1881) - lu(k,909) * lu(k,1868) + lu(k,1882) = lu(k,1882) - lu(k,910) * lu(k,1868) + lu(k,1883) = lu(k,1883) - lu(k,911) * lu(k,1868) + lu(k,1884) = lu(k,1884) - lu(k,912) * lu(k,1868) + lu(k,1885) = lu(k,1885) - lu(k,913) * lu(k,1868) + lu(k,1886) = lu(k,1886) - lu(k,914) * lu(k,1868) + lu(k,1887) = lu(k,1887) - lu(k,915) * lu(k,1868) + lu(k,1888) = lu(k,1888) - lu(k,916) * lu(k,1868) + lu(k,1889) = lu(k,1889) - lu(k,917) * lu(k,1868) + lu(k,1890) = lu(k,1890) - lu(k,918) * lu(k,1868) + lu(k,1891) = lu(k,1891) - lu(k,919) * lu(k,1868) + lu(k,1892) = lu(k,1892) - lu(k,920) * lu(k,1868) + lu(k,1893) = lu(k,1893) - lu(k,921) * lu(k,1868) + lu(k,1894) = lu(k,1894) - lu(k,922) * lu(k,1868) + lu(k,1895) = lu(k,1895) - lu(k,923) * lu(k,1868) + lu(k,1919) = lu(k,1919) - lu(k,903) * lu(k,1917) + lu(k,1921) = lu(k,1921) - lu(k,904) * lu(k,1917) + lu(k,1922) = lu(k,1922) - lu(k,905) * lu(k,1917) + lu(k,1925) = lu(k,1925) - lu(k,906) * lu(k,1917) + lu(k,1927) = lu(k,1927) - lu(k,907) * lu(k,1917) + lu(k,1928) = lu(k,1928) - lu(k,908) * lu(k,1917) + lu(k,1930) = lu(k,1930) - lu(k,909) * lu(k,1917) + lu(k,1931) = lu(k,1931) - lu(k,910) * lu(k,1917) + lu(k,1932) = lu(k,1932) - lu(k,911) * lu(k,1917) + lu(k,1933) = lu(k,1933) - lu(k,912) * lu(k,1917) + lu(k,1934) = lu(k,1934) - lu(k,913) * lu(k,1917) + lu(k,1935) = lu(k,1935) - lu(k,914) * lu(k,1917) + lu(k,1936) = lu(k,1936) - lu(k,915) * lu(k,1917) + lu(k,1937) = lu(k,1937) - lu(k,916) * lu(k,1917) + lu(k,1938) = lu(k,1938) - lu(k,917) * lu(k,1917) + lu(k,1939) = lu(k,1939) - lu(k,918) * lu(k,1917) + lu(k,1940) = lu(k,1940) - lu(k,919) * lu(k,1917) + lu(k,1941) = lu(k,1941) - lu(k,920) * lu(k,1917) + lu(k,1942) = lu(k,1942) - lu(k,921) * lu(k,1917) + lu(k,1943) = lu(k,1943) - lu(k,922) * lu(k,1917) + lu(k,1944) = lu(k,1944) - lu(k,923) * lu(k,1917) + lu(k,1963) = lu(k,1963) - lu(k,903) * lu(k,1961) + lu(k,1965) = lu(k,1965) - lu(k,904) * lu(k,1961) + lu(k,1966) = lu(k,1966) - lu(k,905) * lu(k,1961) + lu(k,1969) = lu(k,1969) - lu(k,906) * lu(k,1961) + lu(k,1971) = lu(k,1971) - lu(k,907) * lu(k,1961) + lu(k,1972) = lu(k,1972) - lu(k,908) * lu(k,1961) + lu(k,1974) = lu(k,1974) - lu(k,909) * lu(k,1961) + lu(k,1975) = lu(k,1975) - lu(k,910) * lu(k,1961) + lu(k,1976) = lu(k,1976) - lu(k,911) * lu(k,1961) + lu(k,1977) = lu(k,1977) - lu(k,912) * lu(k,1961) + lu(k,1978) = lu(k,1978) - lu(k,913) * lu(k,1961) + lu(k,1979) = lu(k,1979) - lu(k,914) * lu(k,1961) + lu(k,1980) = lu(k,1980) - lu(k,915) * lu(k,1961) + lu(k,1981) = lu(k,1981) - lu(k,916) * lu(k,1961) + lu(k,1982) = lu(k,1982) - lu(k,917) * lu(k,1961) + lu(k,1983) = lu(k,1983) - lu(k,918) * lu(k,1961) + lu(k,1984) = lu(k,1984) - lu(k,919) * lu(k,1961) + lu(k,1985) = lu(k,1985) - lu(k,920) * lu(k,1961) + lu(k,1986) = lu(k,1986) - lu(k,921) * lu(k,1961) + lu(k,1987) = lu(k,1987) - lu(k,922) * lu(k,1961) + lu(k,1988) = lu(k,1988) - lu(k,923) * lu(k,1961) + lu(k,2008) = lu(k,2008) - lu(k,903) * lu(k,2006) + lu(k,2010) = lu(k,2010) - lu(k,904) * lu(k,2006) + lu(k,2011) = lu(k,2011) - lu(k,905) * lu(k,2006) + lu(k,2014) = lu(k,2014) - lu(k,906) * lu(k,2006) + lu(k,2016) = lu(k,2016) - lu(k,907) * lu(k,2006) + lu(k,2017) = lu(k,2017) - lu(k,908) * lu(k,2006) + lu(k,2019) = lu(k,2019) - lu(k,909) * lu(k,2006) + lu(k,2020) = lu(k,2020) - lu(k,910) * lu(k,2006) + lu(k,2021) = lu(k,2021) - lu(k,911) * lu(k,2006) + lu(k,2022) = lu(k,2022) - lu(k,912) * lu(k,2006) + lu(k,2023) = lu(k,2023) - lu(k,913) * lu(k,2006) + lu(k,2024) = lu(k,2024) - lu(k,914) * lu(k,2006) + lu(k,2025) = lu(k,2025) - lu(k,915) * lu(k,2006) + lu(k,2026) = lu(k,2026) - lu(k,916) * lu(k,2006) + lu(k,2027) = lu(k,2027) - lu(k,917) * lu(k,2006) + lu(k,2028) = lu(k,2028) - lu(k,918) * lu(k,2006) + lu(k,2029) = lu(k,2029) - lu(k,919) * lu(k,2006) + lu(k,2030) = lu(k,2030) - lu(k,920) * lu(k,2006) + lu(k,2031) = lu(k,2031) - lu(k,921) * lu(k,2006) + lu(k,2032) = lu(k,2032) - lu(k,922) * lu(k,2006) + lu(k,2033) = lu(k,2033) - lu(k,923) * lu(k,2006) + lu(k,2068) = lu(k,2068) - lu(k,903) * lu(k,2066) + lu(k,2070) = lu(k,2070) - lu(k,904) * lu(k,2066) + lu(k,2071) = lu(k,2071) - lu(k,905) * lu(k,2066) + lu(k,2074) = lu(k,2074) - lu(k,906) * lu(k,2066) + lu(k,2076) = lu(k,2076) - lu(k,907) * lu(k,2066) + lu(k,2077) = lu(k,2077) - lu(k,908) * lu(k,2066) + lu(k,2079) = lu(k,2079) - lu(k,909) * lu(k,2066) + lu(k,2080) = lu(k,2080) - lu(k,910) * lu(k,2066) + lu(k,2081) = lu(k,2081) - lu(k,911) * lu(k,2066) + lu(k,2082) = lu(k,2082) - lu(k,912) * lu(k,2066) + lu(k,2083) = lu(k,2083) - lu(k,913) * lu(k,2066) + lu(k,2084) = lu(k,2084) - lu(k,914) * lu(k,2066) + lu(k,2085) = lu(k,2085) - lu(k,915) * lu(k,2066) + lu(k,2086) = lu(k,2086) - lu(k,916) * lu(k,2066) + lu(k,2087) = lu(k,2087) - lu(k,917) * lu(k,2066) + lu(k,2088) = lu(k,2088) - lu(k,918) * lu(k,2066) + lu(k,2089) = lu(k,2089) - lu(k,919) * lu(k,2066) + lu(k,2090) = lu(k,2090) - lu(k,920) * lu(k,2066) + lu(k,2091) = lu(k,2091) - lu(k,921) * lu(k,2066) + lu(k,2092) = lu(k,2092) - lu(k,922) * lu(k,2066) + lu(k,2093) = lu(k,2093) - lu(k,923) * lu(k,2066) + lu(k,928) = 1._r8 / lu(k,928) + lu(k,929) = lu(k,929) * lu(k,928) + lu(k,930) = lu(k,930) * lu(k,928) + lu(k,931) = lu(k,931) * lu(k,928) + lu(k,932) = lu(k,932) * lu(k,928) + lu(k,933) = lu(k,933) * lu(k,928) + lu(k,934) = lu(k,934) * lu(k,928) + lu(k,935) = lu(k,935) * lu(k,928) + lu(k,936) = lu(k,936) * lu(k,928) + lu(k,937) = lu(k,937) * lu(k,928) + lu(k,938) = lu(k,938) * lu(k,928) + lu(k,939) = lu(k,939) * lu(k,928) + lu(k,940) = lu(k,940) * lu(k,928) + lu(k,941) = lu(k,941) * lu(k,928) + lu(k,942) = lu(k,942) * lu(k,928) + lu(k,943) = lu(k,943) * lu(k,928) + lu(k,944) = lu(k,944) * lu(k,928) + lu(k,945) = lu(k,945) * lu(k,928) + lu(k,946) = lu(k,946) * lu(k,928) + lu(k,947) = lu(k,947) * lu(k,928) + lu(k,948) = lu(k,948) * lu(k,928) + lu(k,949) = lu(k,949) * lu(k,928) + lu(k,950) = lu(k,950) * lu(k,928) + lu(k,1015) = lu(k,1015) - lu(k,929) * lu(k,1014) + lu(k,1017) = lu(k,1017) - lu(k,930) * lu(k,1014) + lu(k,1018) = lu(k,1018) - lu(k,931) * lu(k,1014) + lu(k,1019) = lu(k,1019) - lu(k,932) * lu(k,1014) + lu(k,1020) = lu(k,1020) - lu(k,933) * lu(k,1014) + lu(k,1021) = lu(k,1021) - lu(k,934) * lu(k,1014) + lu(k,1022) = lu(k,1022) - lu(k,935) * lu(k,1014) + lu(k,1023) = lu(k,1023) - lu(k,936) * lu(k,1014) + lu(k,1024) = lu(k,1024) - lu(k,937) * lu(k,1014) + lu(k,1025) = lu(k,1025) - lu(k,938) * lu(k,1014) + lu(k,1026) = lu(k,1026) - lu(k,939) * lu(k,1014) + lu(k,1027) = lu(k,1027) - lu(k,940) * lu(k,1014) + lu(k,1029) = lu(k,1029) - lu(k,941) * lu(k,1014) + lu(k,1030) = lu(k,1030) - lu(k,942) * lu(k,1014) + lu(k,1032) = lu(k,1032) - lu(k,943) * lu(k,1014) + lu(k,1033) = lu(k,1033) - lu(k,944) * lu(k,1014) + lu(k,1034) = lu(k,1034) - lu(k,945) * lu(k,1014) + lu(k,1035) = lu(k,1035) - lu(k,946) * lu(k,1014) + lu(k,1037) = lu(k,1037) - lu(k,947) * lu(k,1014) + lu(k,1038) = lu(k,1038) - lu(k,948) * lu(k,1014) + lu(k,1039) = lu(k,1039) - lu(k,949) * lu(k,1014) + lu(k,1040) = lu(k,1040) - lu(k,950) * lu(k,1014) + lu(k,1103) = lu(k,1103) - lu(k,929) * lu(k,1102) + lu(k,1105) = lu(k,1105) - lu(k,930) * lu(k,1102) + lu(k,1106) = lu(k,1106) - lu(k,931) * lu(k,1102) + lu(k,1107) = lu(k,1107) - lu(k,932) * lu(k,1102) + lu(k,1108) = lu(k,1108) - lu(k,933) * lu(k,1102) + lu(k,1109) = lu(k,1109) - lu(k,934) * lu(k,1102) + lu(k,1110) = lu(k,1110) - lu(k,935) * lu(k,1102) + lu(k,1111) = lu(k,1111) - lu(k,936) * lu(k,1102) + lu(k,1112) = lu(k,1112) - lu(k,937) * lu(k,1102) + lu(k,1113) = lu(k,1113) - lu(k,938) * lu(k,1102) + lu(k,1114) = lu(k,1114) - lu(k,939) * lu(k,1102) + lu(k,1115) = lu(k,1115) - lu(k,940) * lu(k,1102) + lu(k,1117) = lu(k,1117) - lu(k,941) * lu(k,1102) + lu(k,1118) = lu(k,1118) - lu(k,942) * lu(k,1102) + lu(k,1120) = lu(k,1120) - lu(k,943) * lu(k,1102) + lu(k,1121) = lu(k,1121) - lu(k,944) * lu(k,1102) + lu(k,1122) = lu(k,1122) - lu(k,945) * lu(k,1102) + lu(k,1123) = lu(k,1123) - lu(k,946) * lu(k,1102) + lu(k,1125) = lu(k,1125) - lu(k,947) * lu(k,1102) + lu(k,1126) = lu(k,1126) - lu(k,948) * lu(k,1102) + lu(k,1127) = lu(k,1127) - lu(k,949) * lu(k,1102) + lu(k,1128) = lu(k,1128) - lu(k,950) * lu(k,1102) + lu(k,1150) = lu(k,1150) - lu(k,929) * lu(k,1149) + lu(k,1152) = lu(k,1152) - lu(k,930) * lu(k,1149) + lu(k,1153) = lu(k,1153) - lu(k,931) * lu(k,1149) + lu(k,1154) = lu(k,1154) - lu(k,932) * lu(k,1149) + lu(k,1155) = lu(k,1155) - lu(k,933) * lu(k,1149) + lu(k,1156) = lu(k,1156) - lu(k,934) * lu(k,1149) + lu(k,1157) = lu(k,1157) - lu(k,935) * lu(k,1149) + lu(k,1158) = lu(k,1158) - lu(k,936) * lu(k,1149) + lu(k,1159) = lu(k,1159) - lu(k,937) * lu(k,1149) + lu(k,1160) = lu(k,1160) - lu(k,938) * lu(k,1149) + lu(k,1161) = lu(k,1161) - lu(k,939) * lu(k,1149) + lu(k,1162) = lu(k,1162) - lu(k,940) * lu(k,1149) + lu(k,1164) = lu(k,1164) - lu(k,941) * lu(k,1149) + lu(k,1165) = lu(k,1165) - lu(k,942) * lu(k,1149) + lu(k,1167) = lu(k,1167) - lu(k,943) * lu(k,1149) + lu(k,1168) = lu(k,1168) - lu(k,944) * lu(k,1149) + lu(k,1169) = lu(k,1169) - lu(k,945) * lu(k,1149) + lu(k,1170) = lu(k,1170) - lu(k,946) * lu(k,1149) + lu(k,1172) = lu(k,1172) - lu(k,947) * lu(k,1149) + lu(k,1173) = lu(k,1173) - lu(k,948) * lu(k,1149) + lu(k,1174) = lu(k,1174) - lu(k,949) * lu(k,1149) + lu(k,1175) = lu(k,1175) - lu(k,950) * lu(k,1149) + lu(k,1193) = lu(k,1193) - lu(k,929) * lu(k,1192) + lu(k,1195) = lu(k,1195) - lu(k,930) * lu(k,1192) + lu(k,1196) = lu(k,1196) - lu(k,931) * lu(k,1192) + lu(k,1197) = lu(k,1197) - lu(k,932) * lu(k,1192) + lu(k,1198) = lu(k,1198) - lu(k,933) * lu(k,1192) + lu(k,1199) = lu(k,1199) - lu(k,934) * lu(k,1192) + lu(k,1200) = lu(k,1200) - lu(k,935) * lu(k,1192) + lu(k,1201) = lu(k,1201) - lu(k,936) * lu(k,1192) + lu(k,1202) = lu(k,1202) - lu(k,937) * lu(k,1192) + lu(k,1203) = lu(k,1203) - lu(k,938) * lu(k,1192) + lu(k,1204) = lu(k,1204) - lu(k,939) * lu(k,1192) + lu(k,1205) = lu(k,1205) - lu(k,940) * lu(k,1192) + lu(k,1207) = lu(k,1207) - lu(k,941) * lu(k,1192) + lu(k,1208) = lu(k,1208) - lu(k,942) * lu(k,1192) + lu(k,1210) = lu(k,1210) - lu(k,943) * lu(k,1192) + lu(k,1211) = lu(k,1211) - lu(k,944) * lu(k,1192) + lu(k,1212) = lu(k,1212) - lu(k,945) * lu(k,1192) + lu(k,1213) = lu(k,1213) - lu(k,946) * lu(k,1192) + lu(k,1215) = lu(k,1215) - lu(k,947) * lu(k,1192) + lu(k,1216) = lu(k,1216) - lu(k,948) * lu(k,1192) + lu(k,1217) = lu(k,1217) - lu(k,949) * lu(k,1192) + lu(k,1218) = lu(k,1218) - lu(k,950) * lu(k,1192) + lu(k,1234) = lu(k,1234) - lu(k,929) * lu(k,1233) + lu(k,1236) = lu(k,1236) - lu(k,930) * lu(k,1233) + lu(k,1237) = lu(k,1237) - lu(k,931) * lu(k,1233) + lu(k,1238) = lu(k,1238) - lu(k,932) * lu(k,1233) + lu(k,1239) = lu(k,1239) - lu(k,933) * lu(k,1233) + lu(k,1240) = lu(k,1240) - lu(k,934) * lu(k,1233) + lu(k,1241) = lu(k,1241) - lu(k,935) * lu(k,1233) + lu(k,1242) = lu(k,1242) - lu(k,936) * lu(k,1233) + lu(k,1243) = lu(k,1243) - lu(k,937) * lu(k,1233) + lu(k,1244) = lu(k,1244) - lu(k,938) * lu(k,1233) + lu(k,1245) = lu(k,1245) - lu(k,939) * lu(k,1233) + lu(k,1246) = lu(k,1246) - lu(k,940) * lu(k,1233) + lu(k,1248) = lu(k,1248) - lu(k,941) * lu(k,1233) + lu(k,1249) = lu(k,1249) - lu(k,942) * lu(k,1233) + lu(k,1251) = lu(k,1251) - lu(k,943) * lu(k,1233) + lu(k,1252) = lu(k,1252) - lu(k,944) * lu(k,1233) + lu(k,1253) = lu(k,1253) - lu(k,945) * lu(k,1233) + lu(k,1254) = lu(k,1254) - lu(k,946) * lu(k,1233) + lu(k,1256) = lu(k,1256) - lu(k,947) * lu(k,1233) + lu(k,1257) = lu(k,1257) - lu(k,948) * lu(k,1233) + lu(k,1258) = lu(k,1258) - lu(k,949) * lu(k,1233) + lu(k,1259) = lu(k,1259) - lu(k,950) * lu(k,1233) + lu(k,1277) = lu(k,1277) - lu(k,929) * lu(k,1276) + lu(k,1279) = lu(k,1279) - lu(k,930) * lu(k,1276) + lu(k,1280) = lu(k,1280) - lu(k,931) * lu(k,1276) + lu(k,1281) = lu(k,1281) - lu(k,932) * lu(k,1276) + lu(k,1282) = lu(k,1282) - lu(k,933) * lu(k,1276) + lu(k,1283) = lu(k,1283) - lu(k,934) * lu(k,1276) + lu(k,1284) = lu(k,1284) - lu(k,935) * lu(k,1276) + lu(k,1285) = lu(k,1285) - lu(k,936) * lu(k,1276) + lu(k,1286) = lu(k,1286) - lu(k,937) * lu(k,1276) + lu(k,1287) = lu(k,1287) - lu(k,938) * lu(k,1276) + lu(k,1288) = lu(k,1288) - lu(k,939) * lu(k,1276) + lu(k,1289) = lu(k,1289) - lu(k,940) * lu(k,1276) + lu(k,1291) = lu(k,1291) - lu(k,941) * lu(k,1276) + lu(k,1292) = lu(k,1292) - lu(k,942) * lu(k,1276) + lu(k,1294) = lu(k,1294) - lu(k,943) * lu(k,1276) + lu(k,1295) = lu(k,1295) - lu(k,944) * lu(k,1276) + lu(k,1296) = lu(k,1296) - lu(k,945) * lu(k,1276) + lu(k,1297) = lu(k,1297) - lu(k,946) * lu(k,1276) + lu(k,1299) = lu(k,1299) - lu(k,947) * lu(k,1276) + lu(k,1300) = lu(k,1300) - lu(k,948) * lu(k,1276) + lu(k,1301) = lu(k,1301) - lu(k,949) * lu(k,1276) + lu(k,1302) = lu(k,1302) - lu(k,950) * lu(k,1276) + lu(k,1319) = lu(k,1319) - lu(k,929) * lu(k,1318) + lu(k,1321) = lu(k,1321) - lu(k,930) * lu(k,1318) + lu(k,1322) = lu(k,1322) - lu(k,931) * lu(k,1318) + lu(k,1323) = lu(k,1323) - lu(k,932) * lu(k,1318) + lu(k,1324) = lu(k,1324) - lu(k,933) * lu(k,1318) + lu(k,1325) = lu(k,1325) - lu(k,934) * lu(k,1318) + lu(k,1326) = lu(k,1326) - lu(k,935) * lu(k,1318) + lu(k,1327) = lu(k,1327) - lu(k,936) * lu(k,1318) + lu(k,1328) = lu(k,1328) - lu(k,937) * lu(k,1318) + lu(k,1329) = lu(k,1329) - lu(k,938) * lu(k,1318) + lu(k,1330) = lu(k,1330) - lu(k,939) * lu(k,1318) + lu(k,1331) = lu(k,1331) - lu(k,940) * lu(k,1318) + lu(k,1333) = lu(k,1333) - lu(k,941) * lu(k,1318) + lu(k,1334) = lu(k,1334) - lu(k,942) * lu(k,1318) + lu(k,1336) = lu(k,1336) - lu(k,943) * lu(k,1318) + lu(k,1337) = lu(k,1337) - lu(k,944) * lu(k,1318) + lu(k,1338) = lu(k,1338) - lu(k,945) * lu(k,1318) + lu(k,1339) = lu(k,1339) - lu(k,946) * lu(k,1318) + lu(k,1341) = lu(k,1341) - lu(k,947) * lu(k,1318) + lu(k,1342) = lu(k,1342) - lu(k,948) * lu(k,1318) + lu(k,1343) = lu(k,1343) - lu(k,949) * lu(k,1318) + lu(k,1344) = lu(k,1344) - lu(k,950) * lu(k,1318) + lu(k,1379) = lu(k,1379) - lu(k,929) * lu(k,1378) + lu(k,1381) = lu(k,1381) - lu(k,930) * lu(k,1378) + lu(k,1382) = lu(k,1382) - lu(k,931) * lu(k,1378) + lu(k,1383) = lu(k,1383) - lu(k,932) * lu(k,1378) + lu(k,1384) = lu(k,1384) - lu(k,933) * lu(k,1378) + lu(k,1385) = lu(k,1385) - lu(k,934) * lu(k,1378) + lu(k,1386) = lu(k,1386) - lu(k,935) * lu(k,1378) + lu(k,1387) = lu(k,1387) - lu(k,936) * lu(k,1378) + lu(k,1388) = lu(k,1388) - lu(k,937) * lu(k,1378) + lu(k,1389) = lu(k,1389) - lu(k,938) * lu(k,1378) + lu(k,1390) = lu(k,1390) - lu(k,939) * lu(k,1378) + lu(k,1391) = lu(k,1391) - lu(k,940) * lu(k,1378) + lu(k,1393) = lu(k,1393) - lu(k,941) * lu(k,1378) + lu(k,1394) = lu(k,1394) - lu(k,942) * lu(k,1378) + lu(k,1396) = lu(k,1396) - lu(k,943) * lu(k,1378) + lu(k,1397) = lu(k,1397) - lu(k,944) * lu(k,1378) + lu(k,1398) = lu(k,1398) - lu(k,945) * lu(k,1378) + lu(k,1399) = lu(k,1399) - lu(k,946) * lu(k,1378) + lu(k,1401) = lu(k,1401) - lu(k,947) * lu(k,1378) + lu(k,1402) = lu(k,1402) - lu(k,948) * lu(k,1378) + lu(k,1403) = lu(k,1403) - lu(k,949) * lu(k,1378) + lu(k,1404) = lu(k,1404) - lu(k,950) * lu(k,1378) + lu(k,1422) = lu(k,1422) - lu(k,929) * lu(k,1421) + lu(k,1424) = lu(k,1424) - lu(k,930) * lu(k,1421) + lu(k,1425) = lu(k,1425) - lu(k,931) * lu(k,1421) + lu(k,1426) = lu(k,1426) - lu(k,932) * lu(k,1421) + lu(k,1427) = lu(k,1427) - lu(k,933) * lu(k,1421) + lu(k,1428) = lu(k,1428) - lu(k,934) * lu(k,1421) + lu(k,1429) = lu(k,1429) - lu(k,935) * lu(k,1421) + lu(k,1430) = lu(k,1430) - lu(k,936) * lu(k,1421) + lu(k,1431) = lu(k,1431) - lu(k,937) * lu(k,1421) + lu(k,1432) = lu(k,1432) - lu(k,938) * lu(k,1421) + lu(k,1433) = lu(k,1433) - lu(k,939) * lu(k,1421) + lu(k,1434) = lu(k,1434) - lu(k,940) * lu(k,1421) + lu(k,1436) = lu(k,1436) - lu(k,941) * lu(k,1421) + lu(k,1437) = lu(k,1437) - lu(k,942) * lu(k,1421) + lu(k,1439) = lu(k,1439) - lu(k,943) * lu(k,1421) + lu(k,1440) = lu(k,1440) - lu(k,944) * lu(k,1421) + lu(k,1441) = lu(k,1441) - lu(k,945) * lu(k,1421) + lu(k,1442) = lu(k,1442) - lu(k,946) * lu(k,1421) + lu(k,1444) = lu(k,1444) - lu(k,947) * lu(k,1421) + lu(k,1445) = lu(k,1445) - lu(k,948) * lu(k,1421) + lu(k,1446) = lu(k,1446) - lu(k,949) * lu(k,1421) + lu(k,1447) = lu(k,1447) - lu(k,950) * lu(k,1421) + lu(k,1470) = lu(k,1470) - lu(k,929) * lu(k,1469) + lu(k,1472) = lu(k,1472) - lu(k,930) * lu(k,1469) + lu(k,1473) = lu(k,1473) - lu(k,931) * lu(k,1469) + lu(k,1474) = lu(k,1474) - lu(k,932) * lu(k,1469) + lu(k,1475) = lu(k,1475) - lu(k,933) * lu(k,1469) + lu(k,1476) = lu(k,1476) - lu(k,934) * lu(k,1469) + lu(k,1477) = lu(k,1477) - lu(k,935) * lu(k,1469) + lu(k,1478) = lu(k,1478) - lu(k,936) * lu(k,1469) + lu(k,1479) = lu(k,1479) - lu(k,937) * lu(k,1469) + lu(k,1480) = lu(k,1480) - lu(k,938) * lu(k,1469) + lu(k,1481) = lu(k,1481) - lu(k,939) * lu(k,1469) + lu(k,1482) = lu(k,1482) - lu(k,940) * lu(k,1469) + lu(k,1484) = lu(k,1484) - lu(k,941) * lu(k,1469) + lu(k,1485) = lu(k,1485) - lu(k,942) * lu(k,1469) + lu(k,1487) = lu(k,1487) - lu(k,943) * lu(k,1469) + lu(k,1488) = lu(k,1488) - lu(k,944) * lu(k,1469) + lu(k,1489) = lu(k,1489) - lu(k,945) * lu(k,1469) + lu(k,1490) = lu(k,1490) - lu(k,946) * lu(k,1469) + lu(k,1492) = lu(k,1492) - lu(k,947) * lu(k,1469) + lu(k,1493) = lu(k,1493) - lu(k,948) * lu(k,1469) + lu(k,1494) = lu(k,1494) - lu(k,949) * lu(k,1469) + lu(k,1495) = lu(k,1495) - lu(k,950) * lu(k,1469) + lu(k,1511) = lu(k,1511) - lu(k,929) * lu(k,1510) + lu(k,1513) = lu(k,1513) - lu(k,930) * lu(k,1510) + lu(k,1514) = lu(k,1514) - lu(k,931) * lu(k,1510) + lu(k,1515) = lu(k,1515) - lu(k,932) * lu(k,1510) + lu(k,1516) = lu(k,1516) - lu(k,933) * lu(k,1510) + lu(k,1517) = lu(k,1517) - lu(k,934) * lu(k,1510) + lu(k,1518) = lu(k,1518) - lu(k,935) * lu(k,1510) + lu(k,1519) = lu(k,1519) - lu(k,936) * lu(k,1510) + lu(k,1520) = lu(k,1520) - lu(k,937) * lu(k,1510) + lu(k,1521) = lu(k,1521) - lu(k,938) * lu(k,1510) + lu(k,1522) = lu(k,1522) - lu(k,939) * lu(k,1510) + lu(k,1523) = lu(k,1523) - lu(k,940) * lu(k,1510) + lu(k,1525) = lu(k,1525) - lu(k,941) * lu(k,1510) + lu(k,1526) = lu(k,1526) - lu(k,942) * lu(k,1510) + lu(k,1528) = lu(k,1528) - lu(k,943) * lu(k,1510) + lu(k,1529) = lu(k,1529) - lu(k,944) * lu(k,1510) + lu(k,1530) = lu(k,1530) - lu(k,945) * lu(k,1510) + lu(k,1531) = lu(k,1531) - lu(k,946) * lu(k,1510) + lu(k,1533) = lu(k,1533) - lu(k,947) * lu(k,1510) + lu(k,1534) = lu(k,1534) - lu(k,948) * lu(k,1510) + lu(k,1535) = lu(k,1535) - lu(k,949) * lu(k,1510) + lu(k,1536) = lu(k,1536) - lu(k,950) * lu(k,1510) + lu(k,1547) = lu(k,1547) - lu(k,929) * lu(k,1546) + lu(k,1549) = lu(k,1549) - lu(k,930) * lu(k,1546) + lu(k,1550) = lu(k,1550) - lu(k,931) * lu(k,1546) + lu(k,1551) = lu(k,1551) - lu(k,932) * lu(k,1546) + lu(k,1552) = lu(k,1552) - lu(k,933) * lu(k,1546) + lu(k,1553) = lu(k,1553) - lu(k,934) * lu(k,1546) + lu(k,1554) = lu(k,1554) - lu(k,935) * lu(k,1546) + lu(k,1555) = lu(k,1555) - lu(k,936) * lu(k,1546) + lu(k,1556) = lu(k,1556) - lu(k,937) * lu(k,1546) + lu(k,1557) = lu(k,1557) - lu(k,938) * lu(k,1546) + lu(k,1558) = lu(k,1558) - lu(k,939) * lu(k,1546) + lu(k,1559) = lu(k,1559) - lu(k,940) * lu(k,1546) + lu(k,1561) = lu(k,1561) - lu(k,941) * lu(k,1546) + lu(k,1562) = lu(k,1562) - lu(k,942) * lu(k,1546) + lu(k,1564) = lu(k,1564) - lu(k,943) * lu(k,1546) + lu(k,1565) = lu(k,1565) - lu(k,944) * lu(k,1546) + lu(k,1566) = lu(k,1566) - lu(k,945) * lu(k,1546) + lu(k,1567) = lu(k,1567) - lu(k,946) * lu(k,1546) + lu(k,1569) = lu(k,1569) - lu(k,947) * lu(k,1546) + lu(k,1570) = lu(k,1570) - lu(k,948) * lu(k,1546) + lu(k,1571) = lu(k,1571) - lu(k,949) * lu(k,1546) + lu(k,1572) = lu(k,1572) - lu(k,950) * lu(k,1546) + lu(k,1592) = lu(k,1592) - lu(k,929) * lu(k,1591) + lu(k,1594) = lu(k,1594) - lu(k,930) * lu(k,1591) + lu(k,1595) = lu(k,1595) - lu(k,931) * lu(k,1591) + lu(k,1596) = lu(k,1596) - lu(k,932) * lu(k,1591) + lu(k,1597) = lu(k,1597) - lu(k,933) * lu(k,1591) + lu(k,1598) = lu(k,1598) - lu(k,934) * lu(k,1591) + lu(k,1599) = lu(k,1599) - lu(k,935) * lu(k,1591) + lu(k,1600) = lu(k,1600) - lu(k,936) * lu(k,1591) + lu(k,1601) = lu(k,1601) - lu(k,937) * lu(k,1591) + lu(k,1602) = lu(k,1602) - lu(k,938) * lu(k,1591) + lu(k,1603) = lu(k,1603) - lu(k,939) * lu(k,1591) + lu(k,1604) = lu(k,1604) - lu(k,940) * lu(k,1591) + lu(k,1606) = lu(k,1606) - lu(k,941) * lu(k,1591) + lu(k,1607) = lu(k,1607) - lu(k,942) * lu(k,1591) + lu(k,1609) = lu(k,1609) - lu(k,943) * lu(k,1591) + lu(k,1610) = lu(k,1610) - lu(k,944) * lu(k,1591) + lu(k,1611) = lu(k,1611) - lu(k,945) * lu(k,1591) + lu(k,1612) = lu(k,1612) - lu(k,946) * lu(k,1591) + lu(k,1614) = lu(k,1614) - lu(k,947) * lu(k,1591) + lu(k,1615) = lu(k,1615) - lu(k,948) * lu(k,1591) + lu(k,1616) = lu(k,1616) - lu(k,949) * lu(k,1591) + lu(k,1617) = lu(k,1617) - lu(k,950) * lu(k,1591) + lu(k,1635) = lu(k,1635) - lu(k,929) * lu(k,1634) + lu(k,1637) = lu(k,1637) - lu(k,930) * lu(k,1634) + lu(k,1638) = lu(k,1638) - lu(k,931) * lu(k,1634) + lu(k,1639) = lu(k,1639) - lu(k,932) * lu(k,1634) + lu(k,1640) = lu(k,1640) - lu(k,933) * lu(k,1634) + lu(k,1641) = lu(k,1641) - lu(k,934) * lu(k,1634) + lu(k,1642) = lu(k,1642) - lu(k,935) * lu(k,1634) + lu(k,1643) = lu(k,1643) - lu(k,936) * lu(k,1634) + lu(k,1644) = lu(k,1644) - lu(k,937) * lu(k,1634) + lu(k,1645) = lu(k,1645) - lu(k,938) * lu(k,1634) + lu(k,1646) = lu(k,1646) - lu(k,939) * lu(k,1634) + lu(k,1647) = lu(k,1647) - lu(k,940) * lu(k,1634) + lu(k,1649) = lu(k,1649) - lu(k,941) * lu(k,1634) + lu(k,1650) = lu(k,1650) - lu(k,942) * lu(k,1634) + lu(k,1652) = lu(k,1652) - lu(k,943) * lu(k,1634) + lu(k,1653) = lu(k,1653) - lu(k,944) * lu(k,1634) + lu(k,1654) = lu(k,1654) - lu(k,945) * lu(k,1634) + lu(k,1655) = lu(k,1655) - lu(k,946) * lu(k,1634) + lu(k,1657) = lu(k,1657) - lu(k,947) * lu(k,1634) + lu(k,1658) = lu(k,1658) - lu(k,948) * lu(k,1634) + lu(k,1659) = lu(k,1659) - lu(k,949) * lu(k,1634) + lu(k,1660) = lu(k,1660) - lu(k,950) * lu(k,1634) + lu(k,1677) = lu(k,1677) - lu(k,929) * lu(k,1676) + lu(k,1679) = lu(k,1679) - lu(k,930) * lu(k,1676) + lu(k,1680) = lu(k,1680) - lu(k,931) * lu(k,1676) + lu(k,1681) = lu(k,1681) - lu(k,932) * lu(k,1676) + lu(k,1682) = lu(k,1682) - lu(k,933) * lu(k,1676) + lu(k,1683) = lu(k,1683) - lu(k,934) * lu(k,1676) + lu(k,1684) = lu(k,1684) - lu(k,935) * lu(k,1676) + lu(k,1685) = lu(k,1685) - lu(k,936) * lu(k,1676) + lu(k,1686) = lu(k,1686) - lu(k,937) * lu(k,1676) + lu(k,1687) = lu(k,1687) - lu(k,938) * lu(k,1676) + lu(k,1688) = lu(k,1688) - lu(k,939) * lu(k,1676) + lu(k,1689) = lu(k,1689) - lu(k,940) * lu(k,1676) + lu(k,1691) = lu(k,1691) - lu(k,941) * lu(k,1676) + lu(k,1692) = lu(k,1692) - lu(k,942) * lu(k,1676) + lu(k,1694) = lu(k,1694) - lu(k,943) * lu(k,1676) + lu(k,1695) = lu(k,1695) - lu(k,944) * lu(k,1676) + lu(k,1696) = lu(k,1696) - lu(k,945) * lu(k,1676) + lu(k,1697) = lu(k,1697) - lu(k,946) * lu(k,1676) + lu(k,1699) = lu(k,1699) - lu(k,947) * lu(k,1676) + lu(k,1700) = lu(k,1700) - lu(k,948) * lu(k,1676) + lu(k,1701) = lu(k,1701) - lu(k,949) * lu(k,1676) + lu(k,1702) = lu(k,1702) - lu(k,950) * lu(k,1676) + lu(k,1718) = lu(k,1718) - lu(k,929) * lu(k,1717) + lu(k,1719) = lu(k,1719) - lu(k,930) * lu(k,1717) + lu(k,1720) = lu(k,1720) - lu(k,931) * lu(k,1717) + lu(k,1721) = lu(k,1721) - lu(k,932) * lu(k,1717) + lu(k,1722) = lu(k,1722) - lu(k,933) * lu(k,1717) + lu(k,1723) = lu(k,1723) - lu(k,934) * lu(k,1717) + lu(k,1724) = lu(k,1724) - lu(k,935) * lu(k,1717) + lu(k,1725) = lu(k,1725) - lu(k,936) * lu(k,1717) + lu(k,1726) = lu(k,1726) - lu(k,937) * lu(k,1717) + lu(k,1727) = lu(k,1727) - lu(k,938) * lu(k,1717) + lu(k,1728) = lu(k,1728) - lu(k,939) * lu(k,1717) + lu(k,1729) = lu(k,1729) - lu(k,940) * lu(k,1717) + lu(k,1731) = lu(k,1731) - lu(k,941) * lu(k,1717) + lu(k,1732) = lu(k,1732) - lu(k,942) * lu(k,1717) + lu(k,1734) = lu(k,1734) - lu(k,943) * lu(k,1717) + lu(k,1735) = lu(k,1735) - lu(k,944) * lu(k,1717) + lu(k,1736) = lu(k,1736) - lu(k,945) * lu(k,1717) + lu(k,1737) = lu(k,1737) - lu(k,946) * lu(k,1717) + lu(k,1739) = lu(k,1739) - lu(k,947) * lu(k,1717) + lu(k,1740) = lu(k,1740) - lu(k,948) * lu(k,1717) + lu(k,1741) = lu(k,1741) - lu(k,949) * lu(k,1717) + lu(k,1742) = lu(k,1742) - lu(k,950) * lu(k,1717) + lu(k,1753) = lu(k,1753) - lu(k,929) * lu(k,1752) + lu(k,1755) = lu(k,1755) - lu(k,930) * lu(k,1752) + lu(k,1756) = lu(k,1756) - lu(k,931) * lu(k,1752) + lu(k,1757) = lu(k,1757) - lu(k,932) * lu(k,1752) + lu(k,1758) = lu(k,1758) - lu(k,933) * lu(k,1752) + lu(k,1759) = lu(k,1759) - lu(k,934) * lu(k,1752) + lu(k,1760) = lu(k,1760) - lu(k,935) * lu(k,1752) + lu(k,1761) = lu(k,1761) - lu(k,936) * lu(k,1752) + lu(k,1762) = lu(k,1762) - lu(k,937) * lu(k,1752) + lu(k,1763) = lu(k,1763) - lu(k,938) * lu(k,1752) + lu(k,1764) = lu(k,1764) - lu(k,939) * lu(k,1752) + lu(k,1765) = lu(k,1765) - lu(k,940) * lu(k,1752) + lu(k,1767) = lu(k,1767) - lu(k,941) * lu(k,1752) + lu(k,1768) = lu(k,1768) - lu(k,942) * lu(k,1752) + lu(k,1770) = lu(k,1770) - lu(k,943) * lu(k,1752) + lu(k,1771) = lu(k,1771) - lu(k,944) * lu(k,1752) + lu(k,1772) = lu(k,1772) - lu(k,945) * lu(k,1752) + lu(k,1773) = lu(k,1773) - lu(k,946) * lu(k,1752) + lu(k,1775) = lu(k,1775) - lu(k,947) * lu(k,1752) + lu(k,1776) = lu(k,1776) - lu(k,948) * lu(k,1752) + lu(k,1777) = lu(k,1777) - lu(k,949) * lu(k,1752) + lu(k,1778) = lu(k,1778) - lu(k,950) * lu(k,1752) + lu(k,1801) = lu(k,1801) - lu(k,929) * lu(k,1800) + lu(k,1803) = lu(k,1803) - lu(k,930) * lu(k,1800) + lu(k,1804) = lu(k,1804) - lu(k,931) * lu(k,1800) + lu(k,1805) = lu(k,1805) - lu(k,932) * lu(k,1800) + lu(k,1806) = lu(k,1806) - lu(k,933) * lu(k,1800) + lu(k,1807) = lu(k,1807) - lu(k,934) * lu(k,1800) + lu(k,1808) = lu(k,1808) - lu(k,935) * lu(k,1800) + lu(k,1809) = lu(k,1809) - lu(k,936) * lu(k,1800) + lu(k,1810) = lu(k,1810) - lu(k,937) * lu(k,1800) + lu(k,1811) = lu(k,1811) - lu(k,938) * lu(k,1800) + lu(k,1812) = lu(k,1812) - lu(k,939) * lu(k,1800) + lu(k,1813) = lu(k,1813) - lu(k,940) * lu(k,1800) + lu(k,1815) = lu(k,1815) - lu(k,941) * lu(k,1800) + lu(k,1816) = lu(k,1816) - lu(k,942) * lu(k,1800) + lu(k,1818) = lu(k,1818) - lu(k,943) * lu(k,1800) + lu(k,1819) = lu(k,1819) - lu(k,944) * lu(k,1800) + lu(k,1820) = lu(k,1820) - lu(k,945) * lu(k,1800) + lu(k,1821) = lu(k,1821) - lu(k,946) * lu(k,1800) + lu(k,1823) = lu(k,1823) - lu(k,947) * lu(k,1800) + lu(k,1824) = lu(k,1824) - lu(k,948) * lu(k,1800) + lu(k,1825) = lu(k,1825) - lu(k,949) * lu(k,1800) + lu(k,1826) = lu(k,1826) - lu(k,950) * lu(k,1800) + lu(k,1834) = lu(k,1834) - lu(k,929) * lu(k,1833) + lu(k,1836) = lu(k,1836) - lu(k,930) * lu(k,1833) + lu(k,1837) = lu(k,1837) - lu(k,931) * lu(k,1833) + lu(k,1838) = lu(k,1838) - lu(k,932) * lu(k,1833) + lu(k,1839) = lu(k,1839) - lu(k,933) * lu(k,1833) + lu(k,1840) = lu(k,1840) - lu(k,934) * lu(k,1833) + lu(k,1841) = lu(k,1841) - lu(k,935) * lu(k,1833) + lu(k,1842) = lu(k,1842) - lu(k,936) * lu(k,1833) + lu(k,1843) = lu(k,1843) - lu(k,937) * lu(k,1833) + lu(k,1844) = lu(k,1844) - lu(k,938) * lu(k,1833) + lu(k,1845) = lu(k,1845) - lu(k,939) * lu(k,1833) + lu(k,1846) = lu(k,1846) - lu(k,940) * lu(k,1833) + lu(k,1848) = lu(k,1848) - lu(k,941) * lu(k,1833) + lu(k,1849) = lu(k,1849) - lu(k,942) * lu(k,1833) + lu(k,1851) = lu(k,1851) - lu(k,943) * lu(k,1833) + lu(k,1852) = lu(k,1852) - lu(k,944) * lu(k,1833) + lu(k,1853) = lu(k,1853) - lu(k,945) * lu(k,1833) + lu(k,1854) = lu(k,1854) - lu(k,946) * lu(k,1833) + lu(k,1856) = lu(k,1856) - lu(k,947) * lu(k,1833) + lu(k,1857) = lu(k,1857) - lu(k,948) * lu(k,1833) + lu(k,1858) = lu(k,1858) - lu(k,949) * lu(k,1833) + lu(k,1859) = lu(k,1859) - lu(k,950) * lu(k,1833) + lu(k,1870) = lu(k,1870) - lu(k,929) * lu(k,1869) + lu(k,1872) = lu(k,1872) - lu(k,930) * lu(k,1869) + lu(k,1873) = lu(k,1873) - lu(k,931) * lu(k,1869) + lu(k,1874) = lu(k,1874) - lu(k,932) * lu(k,1869) + lu(k,1875) = lu(k,1875) - lu(k,933) * lu(k,1869) + lu(k,1876) = lu(k,1876) - lu(k,934) * lu(k,1869) + lu(k,1877) = lu(k,1877) - lu(k,935) * lu(k,1869) + lu(k,1878) = lu(k,1878) - lu(k,936) * lu(k,1869) + lu(k,1879) = lu(k,1879) - lu(k,937) * lu(k,1869) + lu(k,1880) = lu(k,1880) - lu(k,938) * lu(k,1869) + lu(k,1881) = lu(k,1881) - lu(k,939) * lu(k,1869) + lu(k,1882) = lu(k,1882) - lu(k,940) * lu(k,1869) + lu(k,1884) = lu(k,1884) - lu(k,941) * lu(k,1869) + lu(k,1885) = lu(k,1885) - lu(k,942) * lu(k,1869) + lu(k,1887) = lu(k,1887) - lu(k,943) * lu(k,1869) + lu(k,1888) = lu(k,1888) - lu(k,944) * lu(k,1869) + lu(k,1889) = lu(k,1889) - lu(k,945) * lu(k,1869) + lu(k,1890) = lu(k,1890) - lu(k,946) * lu(k,1869) + lu(k,1892) = lu(k,1892) - lu(k,947) * lu(k,1869) + lu(k,1893) = lu(k,1893) - lu(k,948) * lu(k,1869) + lu(k,1894) = lu(k,1894) - lu(k,949) * lu(k,1869) + lu(k,1895) = lu(k,1895) - lu(k,950) * lu(k,1869) + lu(k,1919) = lu(k,1919) - lu(k,929) * lu(k,1918) + lu(k,1921) = lu(k,1921) - lu(k,930) * lu(k,1918) + lu(k,1922) = lu(k,1922) - lu(k,931) * lu(k,1918) + lu(k,1923) = lu(k,1923) - lu(k,932) * lu(k,1918) + lu(k,1924) = lu(k,1924) - lu(k,933) * lu(k,1918) + lu(k,1925) = lu(k,1925) - lu(k,934) * lu(k,1918) + lu(k,1926) = lu(k,1926) - lu(k,935) * lu(k,1918) + lu(k,1927) = lu(k,1927) - lu(k,936) * lu(k,1918) + lu(k,1928) = lu(k,1928) - lu(k,937) * lu(k,1918) + lu(k,1929) = lu(k,1929) - lu(k,938) * lu(k,1918) + lu(k,1930) = lu(k,1930) - lu(k,939) * lu(k,1918) + lu(k,1931) = lu(k,1931) - lu(k,940) * lu(k,1918) + lu(k,1933) = lu(k,1933) - lu(k,941) * lu(k,1918) + lu(k,1934) = lu(k,1934) - lu(k,942) * lu(k,1918) + lu(k,1936) = lu(k,1936) - lu(k,943) * lu(k,1918) + lu(k,1937) = lu(k,1937) - lu(k,944) * lu(k,1918) + lu(k,1938) = lu(k,1938) - lu(k,945) * lu(k,1918) + lu(k,1939) = lu(k,1939) - lu(k,946) * lu(k,1918) + lu(k,1941) = lu(k,1941) - lu(k,947) * lu(k,1918) + lu(k,1942) = lu(k,1942) - lu(k,948) * lu(k,1918) + lu(k,1943) = lu(k,1943) - lu(k,949) * lu(k,1918) + lu(k,1944) = lu(k,1944) - lu(k,950) * lu(k,1918) + lu(k,1963) = lu(k,1963) - lu(k,929) * lu(k,1962) + lu(k,1965) = lu(k,1965) - lu(k,930) * lu(k,1962) + lu(k,1966) = lu(k,1966) - lu(k,931) * lu(k,1962) + lu(k,1967) = lu(k,1967) - lu(k,932) * lu(k,1962) + lu(k,1968) = lu(k,1968) - lu(k,933) * lu(k,1962) + lu(k,1969) = lu(k,1969) - lu(k,934) * lu(k,1962) + lu(k,1970) = lu(k,1970) - lu(k,935) * lu(k,1962) + lu(k,1971) = lu(k,1971) - lu(k,936) * lu(k,1962) + lu(k,1972) = lu(k,1972) - lu(k,937) * lu(k,1962) + lu(k,1973) = lu(k,1973) - lu(k,938) * lu(k,1962) + lu(k,1974) = lu(k,1974) - lu(k,939) * lu(k,1962) + lu(k,1975) = lu(k,1975) - lu(k,940) * lu(k,1962) + lu(k,1977) = lu(k,1977) - lu(k,941) * lu(k,1962) + lu(k,1978) = lu(k,1978) - lu(k,942) * lu(k,1962) + lu(k,1980) = lu(k,1980) - lu(k,943) * lu(k,1962) + lu(k,1981) = lu(k,1981) - lu(k,944) * lu(k,1962) + lu(k,1982) = lu(k,1982) - lu(k,945) * lu(k,1962) + lu(k,1983) = lu(k,1983) - lu(k,946) * lu(k,1962) + lu(k,1985) = lu(k,1985) - lu(k,947) * lu(k,1962) + lu(k,1986) = lu(k,1986) - lu(k,948) * lu(k,1962) + lu(k,1987) = lu(k,1987) - lu(k,949) * lu(k,1962) + lu(k,1988) = lu(k,1988) - lu(k,950) * lu(k,1962) + lu(k,2008) = lu(k,2008) - lu(k,929) * lu(k,2007) + lu(k,2010) = lu(k,2010) - lu(k,930) * lu(k,2007) + lu(k,2011) = lu(k,2011) - lu(k,931) * lu(k,2007) + lu(k,2012) = lu(k,2012) - lu(k,932) * lu(k,2007) + lu(k,2013) = lu(k,2013) - lu(k,933) * lu(k,2007) + lu(k,2014) = lu(k,2014) - lu(k,934) * lu(k,2007) + lu(k,2015) = lu(k,2015) - lu(k,935) * lu(k,2007) + lu(k,2016) = lu(k,2016) - lu(k,936) * lu(k,2007) + lu(k,2017) = lu(k,2017) - lu(k,937) * lu(k,2007) + lu(k,2018) = lu(k,2018) - lu(k,938) * lu(k,2007) + lu(k,2019) = lu(k,2019) - lu(k,939) * lu(k,2007) + lu(k,2020) = lu(k,2020) - lu(k,940) * lu(k,2007) + lu(k,2022) = lu(k,2022) - lu(k,941) * lu(k,2007) + lu(k,2023) = lu(k,2023) - lu(k,942) * lu(k,2007) + lu(k,2025) = lu(k,2025) - lu(k,943) * lu(k,2007) + lu(k,2026) = lu(k,2026) - lu(k,944) * lu(k,2007) + lu(k,2027) = lu(k,2027) - lu(k,945) * lu(k,2007) + lu(k,2028) = lu(k,2028) - lu(k,946) * lu(k,2007) + lu(k,2030) = lu(k,2030) - lu(k,947) * lu(k,2007) + lu(k,2031) = lu(k,2031) - lu(k,948) * lu(k,2007) + lu(k,2032) = lu(k,2032) - lu(k,949) * lu(k,2007) + lu(k,2033) = lu(k,2033) - lu(k,950) * lu(k,2007) + lu(k,2068) = lu(k,2068) - lu(k,929) * lu(k,2067) + lu(k,2070) = lu(k,2070) - lu(k,930) * lu(k,2067) + lu(k,2071) = lu(k,2071) - lu(k,931) * lu(k,2067) + lu(k,2072) = lu(k,2072) - lu(k,932) * lu(k,2067) + lu(k,2073) = lu(k,2073) - lu(k,933) * lu(k,2067) + lu(k,2074) = lu(k,2074) - lu(k,934) * lu(k,2067) + lu(k,2075) = lu(k,2075) - lu(k,935) * lu(k,2067) + lu(k,2076) = lu(k,2076) - lu(k,936) * lu(k,2067) + lu(k,2077) = lu(k,2077) - lu(k,937) * lu(k,2067) + lu(k,2078) = lu(k,2078) - lu(k,938) * lu(k,2067) + lu(k,2079) = lu(k,2079) - lu(k,939) * lu(k,2067) + lu(k,2080) = lu(k,2080) - lu(k,940) * lu(k,2067) + lu(k,2082) = lu(k,2082) - lu(k,941) * lu(k,2067) + lu(k,2083) = lu(k,2083) - lu(k,942) * lu(k,2067) + lu(k,2085) = lu(k,2085) - lu(k,943) * lu(k,2067) + lu(k,2086) = lu(k,2086) - lu(k,944) * lu(k,2067) + lu(k,2087) = lu(k,2087) - lu(k,945) * lu(k,2067) + lu(k,2088) = lu(k,2088) - lu(k,946) * lu(k,2067) + lu(k,2090) = lu(k,2090) - lu(k,947) * lu(k,2067) + lu(k,2091) = lu(k,2091) - lu(k,948) * lu(k,2067) + lu(k,2092) = lu(k,2092) - lu(k,949) * lu(k,2067) + lu(k,2093) = lu(k,2093) - lu(k,950) * lu(k,2067) end do - end subroutine lu_fac20 - subroutine lu_fac21( avec_len, lu ) + end subroutine lu_fac21 + subroutine lu_fac22( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -8419,1662 +8459,1662 @@ subroutine lu_fac21( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,984) = 1._r8 / lu(k,984) - lu(k,985) = lu(k,985) * lu(k,984) - lu(k,986) = lu(k,986) * lu(k,984) - lu(k,987) = lu(k,987) * lu(k,984) - lu(k,988) = lu(k,988) * lu(k,984) - lu(k,989) = lu(k,989) * lu(k,984) - lu(k,990) = lu(k,990) * lu(k,984) - lu(k,991) = lu(k,991) * lu(k,984) - lu(k,992) = lu(k,992) * lu(k,984) - lu(k,993) = lu(k,993) * lu(k,984) - lu(k,994) = lu(k,994) * lu(k,984) - lu(k,995) = lu(k,995) * lu(k,984) - lu(k,996) = lu(k,996) * lu(k,984) - lu(k,997) = lu(k,997) * lu(k,984) - lu(k,998) = lu(k,998) * lu(k,984) - lu(k,999) = lu(k,999) * lu(k,984) - lu(k,1000) = lu(k,1000) * lu(k,984) - lu(k,1001) = lu(k,1001) * lu(k,984) - lu(k,1002) = lu(k,1002) * lu(k,984) - lu(k,1003) = lu(k,1003) * lu(k,984) - lu(k,1004) = lu(k,1004) * lu(k,984) - lu(k,1005) = lu(k,1005) * lu(k,984) - lu(k,1015) = lu(k,1015) - lu(k,985) * lu(k,1013) - lu(k,1016) = lu(k,1016) - lu(k,986) * lu(k,1013) - lu(k,1017) = lu(k,1017) - lu(k,987) * lu(k,1013) - lu(k,1019) = lu(k,1019) - lu(k,988) * lu(k,1013) - lu(k,1020) = lu(k,1020) - lu(k,989) * lu(k,1013) - lu(k,1021) = lu(k,1021) - lu(k,990) * lu(k,1013) - lu(k,1022) = lu(k,1022) - lu(k,991) * lu(k,1013) - lu(k,1023) = lu(k,1023) - lu(k,992) * lu(k,1013) - lu(k,1024) = lu(k,1024) - lu(k,993) * lu(k,1013) - lu(k,1025) = lu(k,1025) - lu(k,994) * lu(k,1013) - lu(k,1026) = lu(k,1026) - lu(k,995) * lu(k,1013) - lu(k,1027) = lu(k,1027) - lu(k,996) * lu(k,1013) - lu(k,1030) = lu(k,1030) - lu(k,997) * lu(k,1013) - lu(k,1031) = lu(k,1031) - lu(k,998) * lu(k,1013) - lu(k,1032) = lu(k,1032) - lu(k,999) * lu(k,1013) - lu(k,1033) = lu(k,1033) - lu(k,1000) * lu(k,1013) - lu(k,1034) = lu(k,1034) - lu(k,1001) * lu(k,1013) - lu(k,1035) = lu(k,1035) - lu(k,1002) * lu(k,1013) - lu(k,1036) = lu(k,1036) - lu(k,1003) * lu(k,1013) - lu(k,1037) = lu(k,1037) - lu(k,1004) * lu(k,1013) - lu(k,1038) = lu(k,1038) - lu(k,1005) * lu(k,1013) - lu(k,1058) = lu(k,1058) - lu(k,985) * lu(k,1057) - lu(k,1059) = lu(k,1059) - lu(k,986) * lu(k,1057) - lu(k,1060) = lu(k,1060) - lu(k,987) * lu(k,1057) - lu(k,1062) = lu(k,1062) - lu(k,988) * lu(k,1057) - lu(k,1063) = lu(k,1063) - lu(k,989) * lu(k,1057) - lu(k,1064) = lu(k,1064) - lu(k,990) * lu(k,1057) - lu(k,1065) = lu(k,1065) - lu(k,991) * lu(k,1057) - lu(k,1066) = lu(k,1066) - lu(k,992) * lu(k,1057) - lu(k,1067) = lu(k,1067) - lu(k,993) * lu(k,1057) - lu(k,1068) = lu(k,1068) - lu(k,994) * lu(k,1057) - lu(k,1069) = lu(k,1069) - lu(k,995) * lu(k,1057) - lu(k,1070) = lu(k,1070) - lu(k,996) * lu(k,1057) - lu(k,1073) = lu(k,1073) - lu(k,997) * lu(k,1057) - lu(k,1074) = lu(k,1074) - lu(k,998) * lu(k,1057) - lu(k,1075) = lu(k,1075) - lu(k,999) * lu(k,1057) - lu(k,1076) = lu(k,1076) - lu(k,1000) * lu(k,1057) - lu(k,1077) = lu(k,1077) - lu(k,1001) * lu(k,1057) - lu(k,1078) = lu(k,1078) - lu(k,1002) * lu(k,1057) - lu(k,1079) = lu(k,1079) - lu(k,1003) * lu(k,1057) - lu(k,1080) = lu(k,1080) - lu(k,1004) * lu(k,1057) - lu(k,1081) = lu(k,1081) - lu(k,1005) * lu(k,1057) - lu(k,1103) = lu(k,1103) - lu(k,985) * lu(k,1101) - lu(k,1104) = lu(k,1104) - lu(k,986) * lu(k,1101) - lu(k,1105) = lu(k,1105) - lu(k,987) * lu(k,1101) - lu(k,1107) = lu(k,1107) - lu(k,988) * lu(k,1101) - lu(k,1108) = lu(k,1108) - lu(k,989) * lu(k,1101) - lu(k,1109) = lu(k,1109) - lu(k,990) * lu(k,1101) - lu(k,1110) = lu(k,1110) - lu(k,991) * lu(k,1101) - lu(k,1111) = lu(k,1111) - lu(k,992) * lu(k,1101) - lu(k,1112) = lu(k,1112) - lu(k,993) * lu(k,1101) - lu(k,1113) = lu(k,1113) - lu(k,994) * lu(k,1101) - lu(k,1114) = lu(k,1114) - lu(k,995) * lu(k,1101) - lu(k,1115) = lu(k,1115) - lu(k,996) * lu(k,1101) - lu(k,1118) = lu(k,1118) - lu(k,997) * lu(k,1101) - lu(k,1119) = lu(k,1119) - lu(k,998) * lu(k,1101) - lu(k,1120) = lu(k,1120) - lu(k,999) * lu(k,1101) - lu(k,1121) = lu(k,1121) - lu(k,1000) * lu(k,1101) - lu(k,1122) = lu(k,1122) - lu(k,1001) * lu(k,1101) - lu(k,1123) = lu(k,1123) - lu(k,1002) * lu(k,1101) - lu(k,1124) = lu(k,1124) - lu(k,1003) * lu(k,1101) - lu(k,1125) = lu(k,1125) - lu(k,1004) * lu(k,1101) - lu(k,1126) = lu(k,1126) - lu(k,1005) * lu(k,1101) - lu(k,1151) = lu(k,1151) - lu(k,985) * lu(k,1149) - lu(k,1152) = lu(k,1152) - lu(k,986) * lu(k,1149) - lu(k,1153) = lu(k,1153) - lu(k,987) * lu(k,1149) - lu(k,1155) = lu(k,1155) - lu(k,988) * lu(k,1149) - lu(k,1156) = lu(k,1156) - lu(k,989) * lu(k,1149) - lu(k,1157) = lu(k,1157) - lu(k,990) * lu(k,1149) - lu(k,1158) = lu(k,1158) - lu(k,991) * lu(k,1149) - lu(k,1159) = lu(k,1159) - lu(k,992) * lu(k,1149) - lu(k,1160) = lu(k,1160) - lu(k,993) * lu(k,1149) - lu(k,1161) = lu(k,1161) - lu(k,994) * lu(k,1149) - lu(k,1162) = lu(k,1162) - lu(k,995) * lu(k,1149) - lu(k,1163) = lu(k,1163) - lu(k,996) * lu(k,1149) - lu(k,1166) = lu(k,1166) - lu(k,997) * lu(k,1149) - lu(k,1167) = lu(k,1167) - lu(k,998) * lu(k,1149) - lu(k,1168) = lu(k,1168) - lu(k,999) * lu(k,1149) - lu(k,1169) = lu(k,1169) - lu(k,1000) * lu(k,1149) - lu(k,1170) = lu(k,1170) - lu(k,1001) * lu(k,1149) - lu(k,1171) = lu(k,1171) - lu(k,1002) * lu(k,1149) - lu(k,1172) = lu(k,1172) - lu(k,1003) * lu(k,1149) - lu(k,1173) = lu(k,1173) - lu(k,1004) * lu(k,1149) - lu(k,1174) = lu(k,1174) - lu(k,1005) * lu(k,1149) - lu(k,1194) = lu(k,1194) - lu(k,985) * lu(k,1192) - lu(k,1195) = lu(k,1195) - lu(k,986) * lu(k,1192) - lu(k,1196) = lu(k,1196) - lu(k,987) * lu(k,1192) - lu(k,1198) = lu(k,1198) - lu(k,988) * lu(k,1192) - lu(k,1199) = lu(k,1199) - lu(k,989) * lu(k,1192) - lu(k,1200) = lu(k,1200) - lu(k,990) * lu(k,1192) - lu(k,1201) = lu(k,1201) - lu(k,991) * lu(k,1192) - lu(k,1202) = lu(k,1202) - lu(k,992) * lu(k,1192) - lu(k,1203) = lu(k,1203) - lu(k,993) * lu(k,1192) - lu(k,1204) = lu(k,1204) - lu(k,994) * lu(k,1192) - lu(k,1205) = lu(k,1205) - lu(k,995) * lu(k,1192) - lu(k,1206) = lu(k,1206) - lu(k,996) * lu(k,1192) - lu(k,1209) = lu(k,1209) - lu(k,997) * lu(k,1192) - lu(k,1210) = lu(k,1210) - lu(k,998) * lu(k,1192) - lu(k,1211) = lu(k,1211) - lu(k,999) * lu(k,1192) - lu(k,1212) = lu(k,1212) - lu(k,1000) * lu(k,1192) - lu(k,1213) = lu(k,1213) - lu(k,1001) * lu(k,1192) - lu(k,1214) = lu(k,1214) - lu(k,1002) * lu(k,1192) - lu(k,1215) = lu(k,1215) - lu(k,1003) * lu(k,1192) - lu(k,1216) = lu(k,1216) - lu(k,1004) * lu(k,1192) - lu(k,1217) = lu(k,1217) - lu(k,1005) * lu(k,1192) - lu(k,1237) = lu(k,1237) - lu(k,985) * lu(k,1235) - lu(k,1238) = lu(k,1238) - lu(k,986) * lu(k,1235) - lu(k,1239) = lu(k,1239) - lu(k,987) * lu(k,1235) - lu(k,1241) = lu(k,1241) - lu(k,988) * lu(k,1235) - lu(k,1242) = lu(k,1242) - lu(k,989) * lu(k,1235) - lu(k,1243) = lu(k,1243) - lu(k,990) * lu(k,1235) - lu(k,1244) = lu(k,1244) - lu(k,991) * lu(k,1235) - lu(k,1245) = lu(k,1245) - lu(k,992) * lu(k,1235) - lu(k,1246) = lu(k,1246) - lu(k,993) * lu(k,1235) - lu(k,1247) = lu(k,1247) - lu(k,994) * lu(k,1235) - lu(k,1248) = lu(k,1248) - lu(k,995) * lu(k,1235) - lu(k,1249) = lu(k,1249) - lu(k,996) * lu(k,1235) - lu(k,1252) = lu(k,1252) - lu(k,997) * lu(k,1235) - lu(k,1253) = lu(k,1253) - lu(k,998) * lu(k,1235) - lu(k,1254) = lu(k,1254) - lu(k,999) * lu(k,1235) - lu(k,1255) = lu(k,1255) - lu(k,1000) * lu(k,1235) - lu(k,1256) = lu(k,1256) - lu(k,1001) * lu(k,1235) - lu(k,1257) = lu(k,1257) - lu(k,1002) * lu(k,1235) - lu(k,1258) = lu(k,1258) - lu(k,1003) * lu(k,1235) - lu(k,1259) = lu(k,1259) - lu(k,1004) * lu(k,1235) - lu(k,1260) = lu(k,1260) - lu(k,1005) * lu(k,1235) - lu(k,1279) = lu(k,1279) - lu(k,985) * lu(k,1277) - lu(k,1280) = lu(k,1280) - lu(k,986) * lu(k,1277) - lu(k,1281) = lu(k,1281) - lu(k,987) * lu(k,1277) - lu(k,1283) = lu(k,1283) - lu(k,988) * lu(k,1277) - lu(k,1284) = lu(k,1284) - lu(k,989) * lu(k,1277) - lu(k,1285) = lu(k,1285) - lu(k,990) * lu(k,1277) - lu(k,1286) = lu(k,1286) - lu(k,991) * lu(k,1277) - lu(k,1287) = lu(k,1287) - lu(k,992) * lu(k,1277) + lu(k,986) = 1._r8 / lu(k,986) + lu(k,987) = lu(k,987) * lu(k,986) + lu(k,988) = lu(k,988) * lu(k,986) + lu(k,989) = lu(k,989) * lu(k,986) + lu(k,990) = lu(k,990) * lu(k,986) + lu(k,991) = lu(k,991) * lu(k,986) + lu(k,992) = lu(k,992) * lu(k,986) + lu(k,993) = lu(k,993) * lu(k,986) + lu(k,994) = lu(k,994) * lu(k,986) + lu(k,995) = lu(k,995) * lu(k,986) + lu(k,996) = lu(k,996) * lu(k,986) + lu(k,997) = lu(k,997) * lu(k,986) + lu(k,998) = lu(k,998) * lu(k,986) + lu(k,999) = lu(k,999) * lu(k,986) + lu(k,1000) = lu(k,1000) * lu(k,986) + lu(k,1001) = lu(k,1001) * lu(k,986) + lu(k,1002) = lu(k,1002) * lu(k,986) + lu(k,1003) = lu(k,1003) * lu(k,986) + lu(k,1004) = lu(k,1004) * lu(k,986) + lu(k,1005) = lu(k,1005) * lu(k,986) + lu(k,1006) = lu(k,1006) * lu(k,986) + lu(k,1007) = lu(k,1007) * lu(k,986) + lu(k,1017) = lu(k,1017) - lu(k,987) * lu(k,1015) + lu(k,1018) = lu(k,1018) - lu(k,988) * lu(k,1015) + lu(k,1019) = lu(k,1019) - lu(k,989) * lu(k,1015) + lu(k,1021) = lu(k,1021) - lu(k,990) * lu(k,1015) + lu(k,1023) = lu(k,1023) - lu(k,991) * lu(k,1015) + lu(k,1024) = lu(k,1024) - lu(k,992) * lu(k,1015) + lu(k,1026) = lu(k,1026) - lu(k,993) * lu(k,1015) + lu(k,1027) = lu(k,1027) - lu(k,994) * lu(k,1015) + lu(k,1028) = lu(k,1028) - lu(k,995) * lu(k,1015) + lu(k,1029) = lu(k,1029) - lu(k,996) * lu(k,1015) + lu(k,1030) = lu(k,1030) - lu(k,997) * lu(k,1015) + lu(k,1031) = lu(k,1031) - lu(k,998) * lu(k,1015) + lu(k,1032) = lu(k,1032) - lu(k,999) * lu(k,1015) + lu(k,1033) = lu(k,1033) - lu(k,1000) * lu(k,1015) + lu(k,1034) = lu(k,1034) - lu(k,1001) * lu(k,1015) + lu(k,1035) = lu(k,1035) - lu(k,1002) * lu(k,1015) + lu(k,1036) = lu(k,1036) - lu(k,1003) * lu(k,1015) + lu(k,1037) = lu(k,1037) - lu(k,1004) * lu(k,1015) + lu(k,1038) = lu(k,1038) - lu(k,1005) * lu(k,1015) + lu(k,1039) = lu(k,1039) - lu(k,1006) * lu(k,1015) + lu(k,1040) = lu(k,1040) - lu(k,1007) * lu(k,1015) + lu(k,1060) = lu(k,1060) - lu(k,987) * lu(k,1059) + lu(k,1061) = lu(k,1061) - lu(k,988) * lu(k,1059) + lu(k,1062) = lu(k,1062) - lu(k,989) * lu(k,1059) + lu(k,1064) = lu(k,1064) - lu(k,990) * lu(k,1059) + lu(k,1066) = lu(k,1066) - lu(k,991) * lu(k,1059) + lu(k,1067) = lu(k,1067) - lu(k,992) * lu(k,1059) + lu(k,1069) = lu(k,1069) - lu(k,993) * lu(k,1059) + lu(k,1070) = lu(k,1070) - lu(k,994) * lu(k,1059) + lu(k,1071) = lu(k,1071) - lu(k,995) * lu(k,1059) + lu(k,1072) = lu(k,1072) - lu(k,996) * lu(k,1059) + lu(k,1073) = lu(k,1073) - lu(k,997) * lu(k,1059) + lu(k,1074) = lu(k,1074) - lu(k,998) * lu(k,1059) + lu(k,1075) = lu(k,1075) - lu(k,999) * lu(k,1059) + lu(k,1076) = lu(k,1076) - lu(k,1000) * lu(k,1059) + lu(k,1077) = lu(k,1077) - lu(k,1001) * lu(k,1059) + lu(k,1078) = lu(k,1078) - lu(k,1002) * lu(k,1059) + lu(k,1079) = lu(k,1079) - lu(k,1003) * lu(k,1059) + lu(k,1080) = lu(k,1080) - lu(k,1004) * lu(k,1059) + lu(k,1081) = lu(k,1081) - lu(k,1005) * lu(k,1059) + lu(k,1082) = lu(k,1082) - lu(k,1006) * lu(k,1059) + lu(k,1083) = lu(k,1083) - lu(k,1007) * lu(k,1059) + lu(k,1105) = lu(k,1105) - lu(k,987) * lu(k,1103) + lu(k,1106) = lu(k,1106) - lu(k,988) * lu(k,1103) + lu(k,1107) = lu(k,1107) - lu(k,989) * lu(k,1103) + lu(k,1109) = lu(k,1109) - lu(k,990) * lu(k,1103) + lu(k,1111) = lu(k,1111) - lu(k,991) * lu(k,1103) + lu(k,1112) = lu(k,1112) - lu(k,992) * lu(k,1103) + lu(k,1114) = lu(k,1114) - lu(k,993) * lu(k,1103) + lu(k,1115) = lu(k,1115) - lu(k,994) * lu(k,1103) + lu(k,1116) = lu(k,1116) - lu(k,995) * lu(k,1103) + lu(k,1117) = lu(k,1117) - lu(k,996) * lu(k,1103) + lu(k,1118) = lu(k,1118) - lu(k,997) * lu(k,1103) + lu(k,1119) = lu(k,1119) - lu(k,998) * lu(k,1103) + lu(k,1120) = lu(k,1120) - lu(k,999) * lu(k,1103) + lu(k,1121) = lu(k,1121) - lu(k,1000) * lu(k,1103) + lu(k,1122) = lu(k,1122) - lu(k,1001) * lu(k,1103) + lu(k,1123) = lu(k,1123) - lu(k,1002) * lu(k,1103) + lu(k,1124) = lu(k,1124) - lu(k,1003) * lu(k,1103) + lu(k,1125) = lu(k,1125) - lu(k,1004) * lu(k,1103) + lu(k,1126) = lu(k,1126) - lu(k,1005) * lu(k,1103) + lu(k,1127) = lu(k,1127) - lu(k,1006) * lu(k,1103) + lu(k,1128) = lu(k,1128) - lu(k,1007) * lu(k,1103) + lu(k,1152) = lu(k,1152) - lu(k,987) * lu(k,1150) + lu(k,1153) = lu(k,1153) - lu(k,988) * lu(k,1150) + lu(k,1154) = lu(k,1154) - lu(k,989) * lu(k,1150) + lu(k,1156) = lu(k,1156) - lu(k,990) * lu(k,1150) + lu(k,1158) = lu(k,1158) - lu(k,991) * lu(k,1150) + lu(k,1159) = lu(k,1159) - lu(k,992) * lu(k,1150) + lu(k,1161) = lu(k,1161) - lu(k,993) * lu(k,1150) + lu(k,1162) = lu(k,1162) - lu(k,994) * lu(k,1150) + lu(k,1163) = lu(k,1163) - lu(k,995) * lu(k,1150) + lu(k,1164) = lu(k,1164) - lu(k,996) * lu(k,1150) + lu(k,1165) = lu(k,1165) - lu(k,997) * lu(k,1150) + lu(k,1166) = lu(k,1166) - lu(k,998) * lu(k,1150) + lu(k,1167) = lu(k,1167) - lu(k,999) * lu(k,1150) + lu(k,1168) = lu(k,1168) - lu(k,1000) * lu(k,1150) + lu(k,1169) = lu(k,1169) - lu(k,1001) * lu(k,1150) + lu(k,1170) = lu(k,1170) - lu(k,1002) * lu(k,1150) + lu(k,1171) = lu(k,1171) - lu(k,1003) * lu(k,1150) + lu(k,1172) = lu(k,1172) - lu(k,1004) * lu(k,1150) + lu(k,1173) = lu(k,1173) - lu(k,1005) * lu(k,1150) + lu(k,1174) = lu(k,1174) - lu(k,1006) * lu(k,1150) + lu(k,1175) = lu(k,1175) - lu(k,1007) * lu(k,1150) + lu(k,1195) = lu(k,1195) - lu(k,987) * lu(k,1193) + lu(k,1196) = lu(k,1196) - lu(k,988) * lu(k,1193) + lu(k,1197) = lu(k,1197) - lu(k,989) * lu(k,1193) + lu(k,1199) = lu(k,1199) - lu(k,990) * lu(k,1193) + lu(k,1201) = lu(k,1201) - lu(k,991) * lu(k,1193) + lu(k,1202) = lu(k,1202) - lu(k,992) * lu(k,1193) + lu(k,1204) = lu(k,1204) - lu(k,993) * lu(k,1193) + lu(k,1205) = lu(k,1205) - lu(k,994) * lu(k,1193) + lu(k,1206) = lu(k,1206) - lu(k,995) * lu(k,1193) + lu(k,1207) = lu(k,1207) - lu(k,996) * lu(k,1193) + lu(k,1208) = lu(k,1208) - lu(k,997) * lu(k,1193) + lu(k,1209) = lu(k,1209) - lu(k,998) * lu(k,1193) + lu(k,1210) = lu(k,1210) - lu(k,999) * lu(k,1193) + lu(k,1211) = lu(k,1211) - lu(k,1000) * lu(k,1193) + lu(k,1212) = lu(k,1212) - lu(k,1001) * lu(k,1193) + lu(k,1213) = lu(k,1213) - lu(k,1002) * lu(k,1193) + lu(k,1214) = lu(k,1214) - lu(k,1003) * lu(k,1193) + lu(k,1215) = lu(k,1215) - lu(k,1004) * lu(k,1193) + lu(k,1216) = lu(k,1216) - lu(k,1005) * lu(k,1193) + lu(k,1217) = lu(k,1217) - lu(k,1006) * lu(k,1193) + lu(k,1218) = lu(k,1218) - lu(k,1007) * lu(k,1193) + lu(k,1236) = lu(k,1236) - lu(k,987) * lu(k,1234) + lu(k,1237) = lu(k,1237) - lu(k,988) * lu(k,1234) + lu(k,1238) = lu(k,1238) - lu(k,989) * lu(k,1234) + lu(k,1240) = lu(k,1240) - lu(k,990) * lu(k,1234) + lu(k,1242) = lu(k,1242) - lu(k,991) * lu(k,1234) + lu(k,1243) = lu(k,1243) - lu(k,992) * lu(k,1234) + lu(k,1245) = lu(k,1245) - lu(k,993) * lu(k,1234) + lu(k,1246) = lu(k,1246) - lu(k,994) * lu(k,1234) + lu(k,1247) = lu(k,1247) - lu(k,995) * lu(k,1234) + lu(k,1248) = lu(k,1248) - lu(k,996) * lu(k,1234) + lu(k,1249) = lu(k,1249) - lu(k,997) * lu(k,1234) + lu(k,1250) = lu(k,1250) - lu(k,998) * lu(k,1234) + lu(k,1251) = lu(k,1251) - lu(k,999) * lu(k,1234) + lu(k,1252) = lu(k,1252) - lu(k,1000) * lu(k,1234) + lu(k,1253) = lu(k,1253) - lu(k,1001) * lu(k,1234) + lu(k,1254) = lu(k,1254) - lu(k,1002) * lu(k,1234) + lu(k,1255) = lu(k,1255) - lu(k,1003) * lu(k,1234) + lu(k,1256) = lu(k,1256) - lu(k,1004) * lu(k,1234) + lu(k,1257) = lu(k,1257) - lu(k,1005) * lu(k,1234) + lu(k,1258) = lu(k,1258) - lu(k,1006) * lu(k,1234) + lu(k,1259) = lu(k,1259) - lu(k,1007) * lu(k,1234) + lu(k,1279) = lu(k,1279) - lu(k,987) * lu(k,1277) + lu(k,1280) = lu(k,1280) - lu(k,988) * lu(k,1277) + lu(k,1281) = lu(k,1281) - lu(k,989) * lu(k,1277) + lu(k,1283) = lu(k,1283) - lu(k,990) * lu(k,1277) + lu(k,1285) = lu(k,1285) - lu(k,991) * lu(k,1277) + lu(k,1286) = lu(k,1286) - lu(k,992) * lu(k,1277) lu(k,1288) = lu(k,1288) - lu(k,993) * lu(k,1277) lu(k,1289) = lu(k,1289) - lu(k,994) * lu(k,1277) lu(k,1290) = lu(k,1290) - lu(k,995) * lu(k,1277) lu(k,1291) = lu(k,1291) - lu(k,996) * lu(k,1277) - lu(k,1294) = lu(k,1294) - lu(k,997) * lu(k,1277) - lu(k,1295) = lu(k,1295) - lu(k,998) * lu(k,1277) - lu(k,1296) = lu(k,1296) - lu(k,999) * lu(k,1277) - lu(k,1297) = lu(k,1297) - lu(k,1000) * lu(k,1277) - lu(k,1298) = lu(k,1298) - lu(k,1001) * lu(k,1277) - lu(k,1299) = lu(k,1299) - lu(k,1002) * lu(k,1277) - lu(k,1300) = lu(k,1300) - lu(k,1003) * lu(k,1277) - lu(k,1301) = lu(k,1301) - lu(k,1004) * lu(k,1277) - lu(k,1302) = lu(k,1302) - lu(k,1005) * lu(k,1277) - lu(k,1321) = lu(k,1321) - lu(k,985) * lu(k,1319) - lu(k,1322) = lu(k,1322) - lu(k,986) * lu(k,1319) - lu(k,1323) = lu(k,1323) - lu(k,987) * lu(k,1319) - lu(k,1325) = lu(k,1325) - lu(k,988) * lu(k,1319) - lu(k,1326) = lu(k,1326) - lu(k,989) * lu(k,1319) - lu(k,1327) = lu(k,1327) - lu(k,990) * lu(k,1319) - lu(k,1328) = lu(k,1328) - lu(k,991) * lu(k,1319) - lu(k,1329) = lu(k,1329) - lu(k,992) * lu(k,1319) + lu(k,1292) = lu(k,1292) - lu(k,997) * lu(k,1277) + lu(k,1293) = lu(k,1293) - lu(k,998) * lu(k,1277) + lu(k,1294) = lu(k,1294) - lu(k,999) * lu(k,1277) + lu(k,1295) = lu(k,1295) - lu(k,1000) * lu(k,1277) + lu(k,1296) = lu(k,1296) - lu(k,1001) * lu(k,1277) + lu(k,1297) = lu(k,1297) - lu(k,1002) * lu(k,1277) + lu(k,1298) = lu(k,1298) - lu(k,1003) * lu(k,1277) + lu(k,1299) = lu(k,1299) - lu(k,1004) * lu(k,1277) + lu(k,1300) = lu(k,1300) - lu(k,1005) * lu(k,1277) + lu(k,1301) = lu(k,1301) - lu(k,1006) * lu(k,1277) + lu(k,1302) = lu(k,1302) - lu(k,1007) * lu(k,1277) + lu(k,1321) = lu(k,1321) - lu(k,987) * lu(k,1319) + lu(k,1322) = lu(k,1322) - lu(k,988) * lu(k,1319) + lu(k,1323) = lu(k,1323) - lu(k,989) * lu(k,1319) + lu(k,1325) = lu(k,1325) - lu(k,990) * lu(k,1319) + lu(k,1327) = lu(k,1327) - lu(k,991) * lu(k,1319) + lu(k,1328) = lu(k,1328) - lu(k,992) * lu(k,1319) lu(k,1330) = lu(k,1330) - lu(k,993) * lu(k,1319) lu(k,1331) = lu(k,1331) - lu(k,994) * lu(k,1319) lu(k,1332) = lu(k,1332) - lu(k,995) * lu(k,1319) lu(k,1333) = lu(k,1333) - lu(k,996) * lu(k,1319) - lu(k,1336) = lu(k,1336) - lu(k,997) * lu(k,1319) - lu(k,1337) = lu(k,1337) - lu(k,998) * lu(k,1319) - lu(k,1338) = lu(k,1338) - lu(k,999) * lu(k,1319) - lu(k,1339) = lu(k,1339) - lu(k,1000) * lu(k,1319) - lu(k,1340) = lu(k,1340) - lu(k,1001) * lu(k,1319) - lu(k,1341) = lu(k,1341) - lu(k,1002) * lu(k,1319) - lu(k,1342) = lu(k,1342) - lu(k,1003) * lu(k,1319) - lu(k,1343) = lu(k,1343) - lu(k,1004) * lu(k,1319) - lu(k,1344) = lu(k,1344) - lu(k,1005) * lu(k,1319) - lu(k,1381) = lu(k,1381) - lu(k,985) * lu(k,1379) - lu(k,1382) = lu(k,1382) - lu(k,986) * lu(k,1379) - lu(k,1383) = lu(k,1383) - lu(k,987) * lu(k,1379) - lu(k,1385) = lu(k,1385) - lu(k,988) * lu(k,1379) - lu(k,1386) = lu(k,1386) - lu(k,989) * lu(k,1379) - lu(k,1387) = lu(k,1387) - lu(k,990) * lu(k,1379) - lu(k,1388) = lu(k,1388) - lu(k,991) * lu(k,1379) - lu(k,1389) = lu(k,1389) - lu(k,992) * lu(k,1379) + lu(k,1334) = lu(k,1334) - lu(k,997) * lu(k,1319) + lu(k,1335) = lu(k,1335) - lu(k,998) * lu(k,1319) + lu(k,1336) = lu(k,1336) - lu(k,999) * lu(k,1319) + lu(k,1337) = lu(k,1337) - lu(k,1000) * lu(k,1319) + lu(k,1338) = lu(k,1338) - lu(k,1001) * lu(k,1319) + lu(k,1339) = lu(k,1339) - lu(k,1002) * lu(k,1319) + lu(k,1340) = lu(k,1340) - lu(k,1003) * lu(k,1319) + lu(k,1341) = lu(k,1341) - lu(k,1004) * lu(k,1319) + lu(k,1342) = lu(k,1342) - lu(k,1005) * lu(k,1319) + lu(k,1343) = lu(k,1343) - lu(k,1006) * lu(k,1319) + lu(k,1344) = lu(k,1344) - lu(k,1007) * lu(k,1319) + lu(k,1381) = lu(k,1381) - lu(k,987) * lu(k,1379) + lu(k,1382) = lu(k,1382) - lu(k,988) * lu(k,1379) + lu(k,1383) = lu(k,1383) - lu(k,989) * lu(k,1379) + lu(k,1385) = lu(k,1385) - lu(k,990) * lu(k,1379) + lu(k,1387) = lu(k,1387) - lu(k,991) * lu(k,1379) + lu(k,1388) = lu(k,1388) - lu(k,992) * lu(k,1379) lu(k,1390) = lu(k,1390) - lu(k,993) * lu(k,1379) lu(k,1391) = lu(k,1391) - lu(k,994) * lu(k,1379) lu(k,1392) = lu(k,1392) - lu(k,995) * lu(k,1379) lu(k,1393) = lu(k,1393) - lu(k,996) * lu(k,1379) - lu(k,1396) = lu(k,1396) - lu(k,997) * lu(k,1379) - lu(k,1397) = lu(k,1397) - lu(k,998) * lu(k,1379) - lu(k,1398) = lu(k,1398) - lu(k,999) * lu(k,1379) - lu(k,1399) = lu(k,1399) - lu(k,1000) * lu(k,1379) - lu(k,1400) = lu(k,1400) - lu(k,1001) * lu(k,1379) - lu(k,1401) = lu(k,1401) - lu(k,1002) * lu(k,1379) - lu(k,1402) = lu(k,1402) - lu(k,1003) * lu(k,1379) - lu(k,1403) = lu(k,1403) - lu(k,1004) * lu(k,1379) - lu(k,1404) = lu(k,1404) - lu(k,1005) * lu(k,1379) - lu(k,1430) = lu(k,1430) - lu(k,985) * lu(k,1428) - lu(k,1431) = lu(k,1431) - lu(k,986) * lu(k,1428) - lu(k,1432) = lu(k,1432) - lu(k,987) * lu(k,1428) - lu(k,1434) = lu(k,1434) - lu(k,988) * lu(k,1428) - lu(k,1435) = lu(k,1435) - lu(k,989) * lu(k,1428) - lu(k,1436) = lu(k,1436) - lu(k,990) * lu(k,1428) - lu(k,1437) = lu(k,1437) - lu(k,991) * lu(k,1428) - lu(k,1438) = lu(k,1438) - lu(k,992) * lu(k,1428) - lu(k,1439) = lu(k,1439) - lu(k,993) * lu(k,1428) - lu(k,1440) = lu(k,1440) - lu(k,994) * lu(k,1428) - lu(k,1441) = lu(k,1441) - lu(k,995) * lu(k,1428) - lu(k,1442) = lu(k,1442) - lu(k,996) * lu(k,1428) - lu(k,1445) = lu(k,1445) - lu(k,997) * lu(k,1428) - lu(k,1446) = lu(k,1446) - lu(k,998) * lu(k,1428) - lu(k,1447) = lu(k,1447) - lu(k,999) * lu(k,1428) - lu(k,1448) = lu(k,1448) - lu(k,1000) * lu(k,1428) - lu(k,1449) = lu(k,1449) - lu(k,1001) * lu(k,1428) - lu(k,1450) = lu(k,1450) - lu(k,1002) * lu(k,1428) - lu(k,1451) = lu(k,1451) - lu(k,1003) * lu(k,1428) - lu(k,1452) = lu(k,1452) - lu(k,1004) * lu(k,1428) - lu(k,1453) = lu(k,1453) - lu(k,1005) * lu(k,1428) - lu(k,1478) = lu(k,1478) - lu(k,985) * lu(k,1476) - lu(k,1479) = lu(k,1479) - lu(k,986) * lu(k,1476) - lu(k,1480) = lu(k,1480) - lu(k,987) * lu(k,1476) - lu(k,1482) = lu(k,1482) - lu(k,988) * lu(k,1476) - lu(k,1483) = lu(k,1483) - lu(k,989) * lu(k,1476) - lu(k,1484) = lu(k,1484) - lu(k,990) * lu(k,1476) - lu(k,1485) = lu(k,1485) - lu(k,991) * lu(k,1476) - lu(k,1486) = lu(k,1486) - lu(k,992) * lu(k,1476) - lu(k,1487) = lu(k,1487) - lu(k,993) * lu(k,1476) - lu(k,1488) = lu(k,1488) - lu(k,994) * lu(k,1476) - lu(k,1489) = lu(k,1489) - lu(k,995) * lu(k,1476) - lu(k,1490) = lu(k,1490) - lu(k,996) * lu(k,1476) - lu(k,1493) = lu(k,1493) - lu(k,997) * lu(k,1476) - lu(k,1494) = lu(k,1494) - lu(k,998) * lu(k,1476) - lu(k,1495) = lu(k,1495) - lu(k,999) * lu(k,1476) - lu(k,1496) = lu(k,1496) - lu(k,1000) * lu(k,1476) - lu(k,1497) = lu(k,1497) - lu(k,1001) * lu(k,1476) - lu(k,1498) = lu(k,1498) - lu(k,1002) * lu(k,1476) - lu(k,1499) = lu(k,1499) - lu(k,1003) * lu(k,1476) - lu(k,1500) = lu(k,1500) - lu(k,1004) * lu(k,1476) - lu(k,1501) = lu(k,1501) - lu(k,1005) * lu(k,1476) - lu(k,1519) = lu(k,1519) - lu(k,985) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,986) * lu(k,1517) - lu(k,1521) = lu(k,1521) - lu(k,987) * lu(k,1517) - lu(k,1523) = lu(k,1523) - lu(k,988) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,989) * lu(k,1517) - lu(k,1525) = lu(k,1525) - lu(k,990) * lu(k,1517) - lu(k,1526) = lu(k,1526) - lu(k,991) * lu(k,1517) - lu(k,1527) = lu(k,1527) - lu(k,992) * lu(k,1517) - lu(k,1528) = lu(k,1528) - lu(k,993) * lu(k,1517) - lu(k,1529) = lu(k,1529) - lu(k,994) * lu(k,1517) - lu(k,1530) = lu(k,1530) - lu(k,995) * lu(k,1517) - lu(k,1531) = lu(k,1531) - lu(k,996) * lu(k,1517) - lu(k,1534) = lu(k,1534) - lu(k,997) * lu(k,1517) - lu(k,1535) = lu(k,1535) - lu(k,998) * lu(k,1517) - lu(k,1536) = lu(k,1536) - lu(k,999) * lu(k,1517) - lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1517) - lu(k,1538) = lu(k,1538) - lu(k,1001) * lu(k,1517) - lu(k,1539) = lu(k,1539) - lu(k,1002) * lu(k,1517) - lu(k,1540) = lu(k,1540) - lu(k,1003) * lu(k,1517) - lu(k,1541) = lu(k,1541) - lu(k,1004) * lu(k,1517) - lu(k,1542) = lu(k,1542) - lu(k,1005) * lu(k,1517) - lu(k,1555) = lu(k,1555) - lu(k,985) * lu(k,1553) - lu(k,1556) = lu(k,1556) - lu(k,986) * lu(k,1553) - lu(k,1557) = lu(k,1557) - lu(k,987) * lu(k,1553) - lu(k,1559) = lu(k,1559) - lu(k,988) * lu(k,1553) - lu(k,1560) = lu(k,1560) - lu(k,989) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,990) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,991) * lu(k,1553) - lu(k,1563) = lu(k,1563) - lu(k,992) * lu(k,1553) - lu(k,1564) = lu(k,1564) - lu(k,993) * lu(k,1553) - lu(k,1565) = lu(k,1565) - lu(k,994) * lu(k,1553) - lu(k,1566) = lu(k,1566) - lu(k,995) * lu(k,1553) - lu(k,1567) = lu(k,1567) - lu(k,996) * lu(k,1553) - lu(k,1570) = lu(k,1570) - lu(k,997) * lu(k,1553) - lu(k,1571) = lu(k,1571) - lu(k,998) * lu(k,1553) - lu(k,1572) = lu(k,1572) - lu(k,999) * lu(k,1553) - lu(k,1573) = lu(k,1573) - lu(k,1000) * lu(k,1553) - lu(k,1574) = lu(k,1574) - lu(k,1001) * lu(k,1553) - lu(k,1575) = lu(k,1575) - lu(k,1002) * lu(k,1553) - lu(k,1576) = lu(k,1576) - lu(k,1003) * lu(k,1553) - lu(k,1577) = lu(k,1577) - lu(k,1004) * lu(k,1553) - lu(k,1578) = lu(k,1578) - lu(k,1005) * lu(k,1553) - lu(k,1600) = lu(k,1600) - lu(k,985) * lu(k,1598) - lu(k,1601) = lu(k,1601) - lu(k,986) * lu(k,1598) - lu(k,1602) = lu(k,1602) - lu(k,987) * lu(k,1598) - lu(k,1604) = lu(k,1604) - lu(k,988) * lu(k,1598) - lu(k,1605) = lu(k,1605) - lu(k,989) * lu(k,1598) - lu(k,1606) = lu(k,1606) - lu(k,990) * lu(k,1598) - lu(k,1607) = lu(k,1607) - lu(k,991) * lu(k,1598) - lu(k,1608) = lu(k,1608) - lu(k,992) * lu(k,1598) - lu(k,1609) = lu(k,1609) - lu(k,993) * lu(k,1598) - lu(k,1610) = lu(k,1610) - lu(k,994) * lu(k,1598) - lu(k,1611) = lu(k,1611) - lu(k,995) * lu(k,1598) - lu(k,1612) = lu(k,1612) - lu(k,996) * lu(k,1598) - lu(k,1615) = lu(k,1615) - lu(k,997) * lu(k,1598) - lu(k,1616) = lu(k,1616) - lu(k,998) * lu(k,1598) - lu(k,1617) = lu(k,1617) - lu(k,999) * lu(k,1598) - lu(k,1618) = lu(k,1618) - lu(k,1000) * lu(k,1598) - lu(k,1619) = lu(k,1619) - lu(k,1001) * lu(k,1598) - lu(k,1620) = lu(k,1620) - lu(k,1002) * lu(k,1598) - lu(k,1621) = lu(k,1621) - lu(k,1003) * lu(k,1598) - lu(k,1622) = lu(k,1622) - lu(k,1004) * lu(k,1598) - lu(k,1623) = lu(k,1623) - lu(k,1005) * lu(k,1598) - lu(k,1643) = lu(k,1643) - lu(k,985) * lu(k,1641) - lu(k,1644) = lu(k,1644) - lu(k,986) * lu(k,1641) - lu(k,1645) = lu(k,1645) - lu(k,987) * lu(k,1641) - lu(k,1647) = lu(k,1647) - lu(k,988) * lu(k,1641) - lu(k,1648) = lu(k,1648) - lu(k,989) * lu(k,1641) - lu(k,1649) = lu(k,1649) - lu(k,990) * lu(k,1641) - lu(k,1650) = lu(k,1650) - lu(k,991) * lu(k,1641) - lu(k,1651) = lu(k,1651) - lu(k,992) * lu(k,1641) - lu(k,1652) = lu(k,1652) - lu(k,993) * lu(k,1641) - lu(k,1653) = lu(k,1653) - lu(k,994) * lu(k,1641) - lu(k,1654) = lu(k,1654) - lu(k,995) * lu(k,1641) - lu(k,1655) = lu(k,1655) - lu(k,996) * lu(k,1641) - lu(k,1658) = lu(k,1658) - lu(k,997) * lu(k,1641) - lu(k,1659) = lu(k,1659) - lu(k,998) * lu(k,1641) - lu(k,1660) = lu(k,1660) - lu(k,999) * lu(k,1641) - lu(k,1661) = lu(k,1661) - lu(k,1000) * lu(k,1641) - lu(k,1662) = lu(k,1662) - lu(k,1001) * lu(k,1641) - lu(k,1663) = lu(k,1663) - lu(k,1002) * lu(k,1641) - lu(k,1664) = lu(k,1664) - lu(k,1003) * lu(k,1641) - lu(k,1665) = lu(k,1665) - lu(k,1004) * lu(k,1641) - lu(k,1666) = lu(k,1666) - lu(k,1005) * lu(k,1641) - lu(k,1686) = lu(k,1686) - lu(k,985) * lu(k,1684) - lu(k,1687) = lu(k,1687) - lu(k,986) * lu(k,1684) - lu(k,1688) = lu(k,1688) - lu(k,987) * lu(k,1684) - lu(k,1690) = lu(k,1690) - lu(k,988) * lu(k,1684) - lu(k,1691) = lu(k,1691) - lu(k,989) * lu(k,1684) - lu(k,1692) = lu(k,1692) - lu(k,990) * lu(k,1684) - lu(k,1693) = lu(k,1693) - lu(k,991) * lu(k,1684) - lu(k,1694) = lu(k,1694) - lu(k,992) * lu(k,1684) - lu(k,1695) = lu(k,1695) - lu(k,993) * lu(k,1684) - lu(k,1696) = lu(k,1696) - lu(k,994) * lu(k,1684) - lu(k,1697) = lu(k,1697) - lu(k,995) * lu(k,1684) - lu(k,1698) = lu(k,1698) - lu(k,996) * lu(k,1684) - lu(k,1701) = lu(k,1701) - lu(k,997) * lu(k,1684) - lu(k,1702) = lu(k,1702) - lu(k,998) * lu(k,1684) - lu(k,1703) = lu(k,1703) - lu(k,999) * lu(k,1684) - lu(k,1704) = lu(k,1704) - lu(k,1000) * lu(k,1684) - lu(k,1705) = lu(k,1705) - lu(k,1001) * lu(k,1684) - lu(k,1706) = lu(k,1706) - lu(k,1002) * lu(k,1684) - lu(k,1707) = lu(k,1707) - lu(k,1003) * lu(k,1684) - lu(k,1708) = lu(k,1708) - lu(k,1004) * lu(k,1684) - lu(k,1709) = lu(k,1709) - lu(k,1005) * lu(k,1684) - lu(k,1726) = lu(k,1726) - lu(k,985) * lu(k,1725) - lu(k,1727) = lu(k,1727) - lu(k,986) * lu(k,1725) - lu(k,1728) = lu(k,1728) - lu(k,987) * lu(k,1725) - lu(k,1730) = lu(k,1730) - lu(k,988) * lu(k,1725) - lu(k,1731) = lu(k,1731) - lu(k,989) * lu(k,1725) - lu(k,1732) = lu(k,1732) - lu(k,990) * lu(k,1725) - lu(k,1733) = lu(k,1733) - lu(k,991) * lu(k,1725) - lu(k,1734) = lu(k,1734) - lu(k,992) * lu(k,1725) - lu(k,1735) = lu(k,1735) - lu(k,993) * lu(k,1725) - lu(k,1736) = lu(k,1736) - lu(k,994) * lu(k,1725) - lu(k,1737) = lu(k,1737) - lu(k,995) * lu(k,1725) - lu(k,1738) = lu(k,1738) - lu(k,996) * lu(k,1725) - lu(k,1741) = lu(k,1741) - lu(k,997) * lu(k,1725) - lu(k,1742) = lu(k,1742) - lu(k,998) * lu(k,1725) - lu(k,1743) = lu(k,1743) - lu(k,999) * lu(k,1725) - lu(k,1744) = lu(k,1744) - lu(k,1000) * lu(k,1725) - lu(k,1745) = lu(k,1745) - lu(k,1001) * lu(k,1725) - lu(k,1746) = lu(k,1746) - lu(k,1002) * lu(k,1725) - lu(k,1747) = lu(k,1747) - lu(k,1003) * lu(k,1725) - lu(k,1748) = lu(k,1748) - lu(k,1004) * lu(k,1725) - lu(k,1749) = lu(k,1749) - lu(k,1005) * lu(k,1725) - lu(k,1762) = lu(k,1762) - lu(k,985) * lu(k,1760) - lu(k,1763) = lu(k,1763) - lu(k,986) * lu(k,1760) - lu(k,1764) = lu(k,1764) - lu(k,987) * lu(k,1760) - lu(k,1766) = lu(k,1766) - lu(k,988) * lu(k,1760) - lu(k,1767) = lu(k,1767) - lu(k,989) * lu(k,1760) - lu(k,1768) = lu(k,1768) - lu(k,990) * lu(k,1760) - lu(k,1769) = lu(k,1769) - lu(k,991) * lu(k,1760) - lu(k,1770) = lu(k,1770) - lu(k,992) * lu(k,1760) - lu(k,1771) = lu(k,1771) - lu(k,993) * lu(k,1760) - lu(k,1772) = lu(k,1772) - lu(k,994) * lu(k,1760) - lu(k,1773) = lu(k,1773) - lu(k,995) * lu(k,1760) - lu(k,1774) = lu(k,1774) - lu(k,996) * lu(k,1760) - lu(k,1777) = lu(k,1777) - lu(k,997) * lu(k,1760) - lu(k,1778) = lu(k,1778) - lu(k,998) * lu(k,1760) - lu(k,1779) = lu(k,1779) - lu(k,999) * lu(k,1760) - lu(k,1780) = lu(k,1780) - lu(k,1000) * lu(k,1760) - lu(k,1781) = lu(k,1781) - lu(k,1001) * lu(k,1760) - lu(k,1782) = lu(k,1782) - lu(k,1002) * lu(k,1760) - lu(k,1783) = lu(k,1783) - lu(k,1003) * lu(k,1760) - lu(k,1784) = lu(k,1784) - lu(k,1004) * lu(k,1760) - lu(k,1785) = lu(k,1785) - lu(k,1005) * lu(k,1760) - lu(k,1810) = lu(k,1810) - lu(k,985) * lu(k,1808) - lu(k,1811) = lu(k,1811) - lu(k,986) * lu(k,1808) - lu(k,1812) = lu(k,1812) - lu(k,987) * lu(k,1808) - lu(k,1814) = lu(k,1814) - lu(k,988) * lu(k,1808) - lu(k,1815) = lu(k,1815) - lu(k,989) * lu(k,1808) - lu(k,1816) = lu(k,1816) - lu(k,990) * lu(k,1808) - lu(k,1817) = lu(k,1817) - lu(k,991) * lu(k,1808) - lu(k,1818) = lu(k,1818) - lu(k,992) * lu(k,1808) - lu(k,1819) = lu(k,1819) - lu(k,993) * lu(k,1808) - lu(k,1820) = lu(k,1820) - lu(k,994) * lu(k,1808) - lu(k,1821) = lu(k,1821) - lu(k,995) * lu(k,1808) - lu(k,1822) = lu(k,1822) - lu(k,996) * lu(k,1808) - lu(k,1825) = lu(k,1825) - lu(k,997) * lu(k,1808) - lu(k,1826) = lu(k,1826) - lu(k,998) * lu(k,1808) - lu(k,1827) = lu(k,1827) - lu(k,999) * lu(k,1808) - lu(k,1828) = lu(k,1828) - lu(k,1000) * lu(k,1808) - lu(k,1829) = lu(k,1829) - lu(k,1001) * lu(k,1808) - lu(k,1830) = lu(k,1830) - lu(k,1002) * lu(k,1808) - lu(k,1831) = lu(k,1831) - lu(k,1003) * lu(k,1808) - lu(k,1832) = lu(k,1832) - lu(k,1004) * lu(k,1808) - lu(k,1833) = lu(k,1833) - lu(k,1005) * lu(k,1808) - lu(k,1843) = lu(k,1843) - lu(k,985) * lu(k,1841) - lu(k,1844) = lu(k,1844) - lu(k,986) * lu(k,1841) - lu(k,1845) = lu(k,1845) - lu(k,987) * lu(k,1841) - lu(k,1847) = lu(k,1847) - lu(k,988) * lu(k,1841) - lu(k,1848) = lu(k,1848) - lu(k,989) * lu(k,1841) - lu(k,1849) = lu(k,1849) - lu(k,990) * lu(k,1841) - lu(k,1850) = lu(k,1850) - lu(k,991) * lu(k,1841) - lu(k,1851) = lu(k,1851) - lu(k,992) * lu(k,1841) - lu(k,1852) = lu(k,1852) - lu(k,993) * lu(k,1841) - lu(k,1853) = lu(k,1853) - lu(k,994) * lu(k,1841) - lu(k,1854) = lu(k,1854) - lu(k,995) * lu(k,1841) - lu(k,1855) = lu(k,1855) - lu(k,996) * lu(k,1841) - lu(k,1858) = lu(k,1858) - lu(k,997) * lu(k,1841) - lu(k,1859) = lu(k,1859) - lu(k,998) * lu(k,1841) - lu(k,1860) = lu(k,1860) - lu(k,999) * lu(k,1841) - lu(k,1861) = lu(k,1861) - lu(k,1000) * lu(k,1841) - lu(k,1862) = lu(k,1862) - lu(k,1001) * lu(k,1841) - lu(k,1863) = lu(k,1863) - lu(k,1002) * lu(k,1841) - lu(k,1864) = lu(k,1864) - lu(k,1003) * lu(k,1841) - lu(k,1865) = lu(k,1865) - lu(k,1004) * lu(k,1841) - lu(k,1866) = lu(k,1866) - lu(k,1005) * lu(k,1841) - lu(k,1879) = lu(k,1879) - lu(k,985) * lu(k,1877) - lu(k,1880) = lu(k,1880) - lu(k,986) * lu(k,1877) - lu(k,1881) = lu(k,1881) - lu(k,987) * lu(k,1877) - lu(k,1883) = lu(k,1883) - lu(k,988) * lu(k,1877) - lu(k,1884) = lu(k,1884) - lu(k,989) * lu(k,1877) - lu(k,1885) = lu(k,1885) - lu(k,990) * lu(k,1877) - lu(k,1886) = lu(k,1886) - lu(k,991) * lu(k,1877) - lu(k,1887) = lu(k,1887) - lu(k,992) * lu(k,1877) - lu(k,1888) = lu(k,1888) - lu(k,993) * lu(k,1877) - lu(k,1889) = lu(k,1889) - lu(k,994) * lu(k,1877) - lu(k,1890) = lu(k,1890) - lu(k,995) * lu(k,1877) - lu(k,1891) = lu(k,1891) - lu(k,996) * lu(k,1877) - lu(k,1894) = lu(k,1894) - lu(k,997) * lu(k,1877) - lu(k,1895) = lu(k,1895) - lu(k,998) * lu(k,1877) - lu(k,1896) = lu(k,1896) - lu(k,999) * lu(k,1877) - lu(k,1897) = lu(k,1897) - lu(k,1000) * lu(k,1877) - lu(k,1898) = lu(k,1898) - lu(k,1001) * lu(k,1877) - lu(k,1899) = lu(k,1899) - lu(k,1002) * lu(k,1877) - lu(k,1900) = lu(k,1900) - lu(k,1003) * lu(k,1877) - lu(k,1901) = lu(k,1901) - lu(k,1004) * lu(k,1877) - lu(k,1902) = lu(k,1902) - lu(k,1005) * lu(k,1877) - lu(k,1920) = lu(k,1920) - lu(k,985) * lu(k,1918) - lu(k,1921) = lu(k,1921) - lu(k,986) * lu(k,1918) - lu(k,1922) = lu(k,1922) - lu(k,987) * lu(k,1918) - lu(k,1924) = lu(k,1924) - lu(k,988) * lu(k,1918) - lu(k,1925) = lu(k,1925) - lu(k,989) * lu(k,1918) - lu(k,1926) = lu(k,1926) - lu(k,990) * lu(k,1918) - lu(k,1927) = lu(k,1927) - lu(k,991) * lu(k,1918) - lu(k,1928) = lu(k,1928) - lu(k,992) * lu(k,1918) - lu(k,1929) = lu(k,1929) - lu(k,993) * lu(k,1918) - lu(k,1930) = lu(k,1930) - lu(k,994) * lu(k,1918) - lu(k,1931) = lu(k,1931) - lu(k,995) * lu(k,1918) - lu(k,1932) = lu(k,1932) - lu(k,996) * lu(k,1918) - lu(k,1935) = lu(k,1935) - lu(k,997) * lu(k,1918) - lu(k,1936) = lu(k,1936) - lu(k,998) * lu(k,1918) - lu(k,1937) = lu(k,1937) - lu(k,999) * lu(k,1918) - lu(k,1938) = lu(k,1938) - lu(k,1000) * lu(k,1918) - lu(k,1939) = lu(k,1939) - lu(k,1001) * lu(k,1918) - lu(k,1940) = lu(k,1940) - lu(k,1002) * lu(k,1918) - lu(k,1941) = lu(k,1941) - lu(k,1003) * lu(k,1918) - lu(k,1942) = lu(k,1942) - lu(k,1004) * lu(k,1918) - lu(k,1943) = lu(k,1943) - lu(k,1005) * lu(k,1918) - lu(k,1962) = lu(k,1962) - lu(k,985) * lu(k,1960) - lu(k,1963) = lu(k,1963) - lu(k,986) * lu(k,1960) - lu(k,1964) = lu(k,1964) - lu(k,987) * lu(k,1960) - lu(k,1966) = lu(k,1966) - lu(k,988) * lu(k,1960) - lu(k,1967) = lu(k,1967) - lu(k,989) * lu(k,1960) - lu(k,1968) = lu(k,1968) - lu(k,990) * lu(k,1960) - lu(k,1969) = lu(k,1969) - lu(k,991) * lu(k,1960) - lu(k,1970) = lu(k,1970) - lu(k,992) * lu(k,1960) - lu(k,1971) = lu(k,1971) - lu(k,993) * lu(k,1960) - lu(k,1972) = lu(k,1972) - lu(k,994) * lu(k,1960) - lu(k,1973) = lu(k,1973) - lu(k,995) * lu(k,1960) - lu(k,1974) = lu(k,1974) - lu(k,996) * lu(k,1960) - lu(k,1977) = lu(k,1977) - lu(k,997) * lu(k,1960) - lu(k,1978) = lu(k,1978) - lu(k,998) * lu(k,1960) - lu(k,1979) = lu(k,1979) - lu(k,999) * lu(k,1960) - lu(k,1980) = lu(k,1980) - lu(k,1000) * lu(k,1960) - lu(k,1981) = lu(k,1981) - lu(k,1001) * lu(k,1960) - lu(k,1982) = lu(k,1982) - lu(k,1002) * lu(k,1960) - lu(k,1983) = lu(k,1983) - lu(k,1003) * lu(k,1960) - lu(k,1984) = lu(k,1984) - lu(k,1004) * lu(k,1960) - lu(k,1985) = lu(k,1985) - lu(k,1005) * lu(k,1960) - lu(k,2007) = lu(k,2007) - lu(k,985) * lu(k,2005) - lu(k,2008) = lu(k,2008) - lu(k,986) * lu(k,2005) - lu(k,2009) = lu(k,2009) - lu(k,987) * lu(k,2005) - lu(k,2011) = lu(k,2011) - lu(k,988) * lu(k,2005) - lu(k,2012) = lu(k,2012) - lu(k,989) * lu(k,2005) - lu(k,2013) = lu(k,2013) - lu(k,990) * lu(k,2005) - lu(k,2014) = lu(k,2014) - lu(k,991) * lu(k,2005) - lu(k,2015) = lu(k,2015) - lu(k,992) * lu(k,2005) - lu(k,2016) = lu(k,2016) - lu(k,993) * lu(k,2005) - lu(k,2017) = lu(k,2017) - lu(k,994) * lu(k,2005) - lu(k,2018) = lu(k,2018) - lu(k,995) * lu(k,2005) - lu(k,2019) = lu(k,2019) - lu(k,996) * lu(k,2005) - lu(k,2022) = lu(k,2022) - lu(k,997) * lu(k,2005) - lu(k,2023) = lu(k,2023) - lu(k,998) * lu(k,2005) - lu(k,2024) = lu(k,2024) - lu(k,999) * lu(k,2005) - lu(k,2025) = lu(k,2025) - lu(k,1000) * lu(k,2005) - lu(k,2026) = lu(k,2026) - lu(k,1001) * lu(k,2005) - lu(k,2027) = lu(k,2027) - lu(k,1002) * lu(k,2005) - lu(k,2028) = lu(k,2028) - lu(k,1003) * lu(k,2005) - lu(k,2029) = lu(k,2029) - lu(k,1004) * lu(k,2005) - lu(k,2030) = lu(k,2030) - lu(k,1005) * lu(k,2005) - lu(k,2067) = lu(k,2067) - lu(k,985) * lu(k,2065) - lu(k,2068) = lu(k,2068) - lu(k,986) * lu(k,2065) - lu(k,2069) = lu(k,2069) - lu(k,987) * lu(k,2065) - lu(k,2071) = lu(k,2071) - lu(k,988) * lu(k,2065) - lu(k,2072) = lu(k,2072) - lu(k,989) * lu(k,2065) - lu(k,2073) = lu(k,2073) - lu(k,990) * lu(k,2065) - lu(k,2074) = lu(k,2074) - lu(k,991) * lu(k,2065) - lu(k,2075) = lu(k,2075) - lu(k,992) * lu(k,2065) - lu(k,2076) = lu(k,2076) - lu(k,993) * lu(k,2065) - lu(k,2077) = lu(k,2077) - lu(k,994) * lu(k,2065) - lu(k,2078) = lu(k,2078) - lu(k,995) * lu(k,2065) - lu(k,2079) = lu(k,2079) - lu(k,996) * lu(k,2065) - lu(k,2082) = lu(k,2082) - lu(k,997) * lu(k,2065) - lu(k,2083) = lu(k,2083) - lu(k,998) * lu(k,2065) - lu(k,2084) = lu(k,2084) - lu(k,999) * lu(k,2065) - lu(k,2085) = lu(k,2085) - lu(k,1000) * lu(k,2065) - lu(k,2086) = lu(k,2086) - lu(k,1001) * lu(k,2065) - lu(k,2087) = lu(k,2087) - lu(k,1002) * lu(k,2065) - lu(k,2088) = lu(k,2088) - lu(k,1003) * lu(k,2065) - lu(k,2089) = lu(k,2089) - lu(k,1004) * lu(k,2065) - lu(k,2090) = lu(k,2090) - lu(k,1005) * lu(k,2065) - lu(k,1014) = 1._r8 / lu(k,1014) - lu(k,1015) = lu(k,1015) * lu(k,1014) - lu(k,1016) = lu(k,1016) * lu(k,1014) - lu(k,1017) = lu(k,1017) * lu(k,1014) - lu(k,1018) = lu(k,1018) * lu(k,1014) - lu(k,1019) = lu(k,1019) * lu(k,1014) - lu(k,1020) = lu(k,1020) * lu(k,1014) - lu(k,1021) = lu(k,1021) * lu(k,1014) - lu(k,1022) = lu(k,1022) * lu(k,1014) - lu(k,1023) = lu(k,1023) * lu(k,1014) - lu(k,1024) = lu(k,1024) * lu(k,1014) - lu(k,1025) = lu(k,1025) * lu(k,1014) - lu(k,1026) = lu(k,1026) * lu(k,1014) - lu(k,1027) = lu(k,1027) * lu(k,1014) - lu(k,1028) = lu(k,1028) * lu(k,1014) - lu(k,1029) = lu(k,1029) * lu(k,1014) - lu(k,1030) = lu(k,1030) * lu(k,1014) - lu(k,1031) = lu(k,1031) * lu(k,1014) - lu(k,1032) = lu(k,1032) * lu(k,1014) - lu(k,1033) = lu(k,1033) * lu(k,1014) - lu(k,1034) = lu(k,1034) * lu(k,1014) - lu(k,1035) = lu(k,1035) * lu(k,1014) - lu(k,1036) = lu(k,1036) * lu(k,1014) - lu(k,1037) = lu(k,1037) * lu(k,1014) - lu(k,1038) = lu(k,1038) * lu(k,1014) - lu(k,1103) = lu(k,1103) - lu(k,1015) * lu(k,1102) - lu(k,1104) = lu(k,1104) - lu(k,1016) * lu(k,1102) - lu(k,1105) = lu(k,1105) - lu(k,1017) * lu(k,1102) - lu(k,1106) = lu(k,1106) - lu(k,1018) * lu(k,1102) - lu(k,1107) = lu(k,1107) - lu(k,1019) * lu(k,1102) - lu(k,1108) = lu(k,1108) - lu(k,1020) * lu(k,1102) - lu(k,1109) = lu(k,1109) - lu(k,1021) * lu(k,1102) - lu(k,1110) = lu(k,1110) - lu(k,1022) * lu(k,1102) - lu(k,1111) = lu(k,1111) - lu(k,1023) * lu(k,1102) - lu(k,1112) = lu(k,1112) - lu(k,1024) * lu(k,1102) - lu(k,1113) = lu(k,1113) - lu(k,1025) * lu(k,1102) - lu(k,1114) = lu(k,1114) - lu(k,1026) * lu(k,1102) - lu(k,1115) = lu(k,1115) - lu(k,1027) * lu(k,1102) - lu(k,1116) = lu(k,1116) - lu(k,1028) * lu(k,1102) - lu(k,1117) = lu(k,1117) - lu(k,1029) * lu(k,1102) - lu(k,1118) = lu(k,1118) - lu(k,1030) * lu(k,1102) - lu(k,1119) = lu(k,1119) - lu(k,1031) * lu(k,1102) - lu(k,1120) = lu(k,1120) - lu(k,1032) * lu(k,1102) - lu(k,1121) = lu(k,1121) - lu(k,1033) * lu(k,1102) - lu(k,1122) = lu(k,1122) - lu(k,1034) * lu(k,1102) - lu(k,1123) = lu(k,1123) - lu(k,1035) * lu(k,1102) - lu(k,1124) = lu(k,1124) - lu(k,1036) * lu(k,1102) - lu(k,1125) = lu(k,1125) - lu(k,1037) * lu(k,1102) - lu(k,1126) = lu(k,1126) - lu(k,1038) * lu(k,1102) - lu(k,1151) = lu(k,1151) - lu(k,1015) * lu(k,1150) - lu(k,1152) = lu(k,1152) - lu(k,1016) * lu(k,1150) - lu(k,1153) = lu(k,1153) - lu(k,1017) * lu(k,1150) - lu(k,1154) = lu(k,1154) - lu(k,1018) * lu(k,1150) - lu(k,1155) = lu(k,1155) - lu(k,1019) * lu(k,1150) - lu(k,1156) = lu(k,1156) - lu(k,1020) * lu(k,1150) - lu(k,1157) = lu(k,1157) - lu(k,1021) * lu(k,1150) - lu(k,1158) = lu(k,1158) - lu(k,1022) * lu(k,1150) - lu(k,1159) = lu(k,1159) - lu(k,1023) * lu(k,1150) - lu(k,1160) = lu(k,1160) - lu(k,1024) * lu(k,1150) - lu(k,1161) = lu(k,1161) - lu(k,1025) * lu(k,1150) - lu(k,1162) = lu(k,1162) - lu(k,1026) * lu(k,1150) - lu(k,1163) = lu(k,1163) - lu(k,1027) * lu(k,1150) - lu(k,1164) = lu(k,1164) - lu(k,1028) * lu(k,1150) - lu(k,1165) = lu(k,1165) - lu(k,1029) * lu(k,1150) - lu(k,1166) = lu(k,1166) - lu(k,1030) * lu(k,1150) - lu(k,1167) = lu(k,1167) - lu(k,1031) * lu(k,1150) - lu(k,1168) = lu(k,1168) - lu(k,1032) * lu(k,1150) - lu(k,1169) = lu(k,1169) - lu(k,1033) * lu(k,1150) - lu(k,1170) = lu(k,1170) - lu(k,1034) * lu(k,1150) - lu(k,1171) = lu(k,1171) - lu(k,1035) * lu(k,1150) - lu(k,1172) = lu(k,1172) - lu(k,1036) * lu(k,1150) - lu(k,1173) = lu(k,1173) - lu(k,1037) * lu(k,1150) - lu(k,1174) = lu(k,1174) - lu(k,1038) * lu(k,1150) - lu(k,1194) = lu(k,1194) - lu(k,1015) * lu(k,1193) - lu(k,1195) = lu(k,1195) - lu(k,1016) * lu(k,1193) - lu(k,1196) = lu(k,1196) - lu(k,1017) * lu(k,1193) - lu(k,1197) = lu(k,1197) - lu(k,1018) * lu(k,1193) - lu(k,1198) = lu(k,1198) - lu(k,1019) * lu(k,1193) - lu(k,1199) = lu(k,1199) - lu(k,1020) * lu(k,1193) - lu(k,1200) = lu(k,1200) - lu(k,1021) * lu(k,1193) - lu(k,1201) = lu(k,1201) - lu(k,1022) * lu(k,1193) - lu(k,1202) = lu(k,1202) - lu(k,1023) * lu(k,1193) - lu(k,1203) = lu(k,1203) - lu(k,1024) * lu(k,1193) - lu(k,1204) = lu(k,1204) - lu(k,1025) * lu(k,1193) - lu(k,1205) = lu(k,1205) - lu(k,1026) * lu(k,1193) - lu(k,1206) = lu(k,1206) - lu(k,1027) * lu(k,1193) - lu(k,1207) = lu(k,1207) - lu(k,1028) * lu(k,1193) - lu(k,1208) = lu(k,1208) - lu(k,1029) * lu(k,1193) - lu(k,1209) = lu(k,1209) - lu(k,1030) * lu(k,1193) - lu(k,1210) = lu(k,1210) - lu(k,1031) * lu(k,1193) - lu(k,1211) = lu(k,1211) - lu(k,1032) * lu(k,1193) - lu(k,1212) = lu(k,1212) - lu(k,1033) * lu(k,1193) - lu(k,1213) = lu(k,1213) - lu(k,1034) * lu(k,1193) - lu(k,1214) = lu(k,1214) - lu(k,1035) * lu(k,1193) - lu(k,1215) = lu(k,1215) - lu(k,1036) * lu(k,1193) - lu(k,1216) = lu(k,1216) - lu(k,1037) * lu(k,1193) - lu(k,1217) = lu(k,1217) - lu(k,1038) * lu(k,1193) - lu(k,1237) = lu(k,1237) - lu(k,1015) * lu(k,1236) - lu(k,1238) = lu(k,1238) - lu(k,1016) * lu(k,1236) - lu(k,1239) = lu(k,1239) - lu(k,1017) * lu(k,1236) - lu(k,1240) = lu(k,1240) - lu(k,1018) * lu(k,1236) - lu(k,1241) = lu(k,1241) - lu(k,1019) * lu(k,1236) - lu(k,1242) = lu(k,1242) - lu(k,1020) * lu(k,1236) - lu(k,1243) = lu(k,1243) - lu(k,1021) * lu(k,1236) - lu(k,1244) = lu(k,1244) - lu(k,1022) * lu(k,1236) - lu(k,1245) = lu(k,1245) - lu(k,1023) * lu(k,1236) - lu(k,1246) = lu(k,1246) - lu(k,1024) * lu(k,1236) - lu(k,1247) = lu(k,1247) - lu(k,1025) * lu(k,1236) - lu(k,1248) = lu(k,1248) - lu(k,1026) * lu(k,1236) - lu(k,1249) = lu(k,1249) - lu(k,1027) * lu(k,1236) - lu(k,1250) = lu(k,1250) - lu(k,1028) * lu(k,1236) - lu(k,1251) = lu(k,1251) - lu(k,1029) * lu(k,1236) - lu(k,1252) = lu(k,1252) - lu(k,1030) * lu(k,1236) - lu(k,1253) = lu(k,1253) - lu(k,1031) * lu(k,1236) - lu(k,1254) = lu(k,1254) - lu(k,1032) * lu(k,1236) - lu(k,1255) = lu(k,1255) - lu(k,1033) * lu(k,1236) - lu(k,1256) = lu(k,1256) - lu(k,1034) * lu(k,1236) - lu(k,1257) = lu(k,1257) - lu(k,1035) * lu(k,1236) - lu(k,1258) = lu(k,1258) - lu(k,1036) * lu(k,1236) - lu(k,1259) = lu(k,1259) - lu(k,1037) * lu(k,1236) - lu(k,1260) = lu(k,1260) - lu(k,1038) * lu(k,1236) - lu(k,1279) = lu(k,1279) - lu(k,1015) * lu(k,1278) - lu(k,1280) = lu(k,1280) - lu(k,1016) * lu(k,1278) - lu(k,1281) = lu(k,1281) - lu(k,1017) * lu(k,1278) - lu(k,1282) = lu(k,1282) - lu(k,1018) * lu(k,1278) - lu(k,1283) = lu(k,1283) - lu(k,1019) * lu(k,1278) - lu(k,1284) = lu(k,1284) - lu(k,1020) * lu(k,1278) - lu(k,1285) = lu(k,1285) - lu(k,1021) * lu(k,1278) - lu(k,1286) = lu(k,1286) - lu(k,1022) * lu(k,1278) - lu(k,1287) = lu(k,1287) - lu(k,1023) * lu(k,1278) - lu(k,1288) = lu(k,1288) - lu(k,1024) * lu(k,1278) - lu(k,1289) = lu(k,1289) - lu(k,1025) * lu(k,1278) - lu(k,1290) = lu(k,1290) - lu(k,1026) * lu(k,1278) - lu(k,1291) = lu(k,1291) - lu(k,1027) * lu(k,1278) - lu(k,1292) = lu(k,1292) - lu(k,1028) * lu(k,1278) - lu(k,1293) = lu(k,1293) - lu(k,1029) * lu(k,1278) - lu(k,1294) = lu(k,1294) - lu(k,1030) * lu(k,1278) - lu(k,1295) = lu(k,1295) - lu(k,1031) * lu(k,1278) - lu(k,1296) = lu(k,1296) - lu(k,1032) * lu(k,1278) - lu(k,1297) = lu(k,1297) - lu(k,1033) * lu(k,1278) - lu(k,1298) = lu(k,1298) - lu(k,1034) * lu(k,1278) - lu(k,1299) = lu(k,1299) - lu(k,1035) * lu(k,1278) - lu(k,1300) = lu(k,1300) - lu(k,1036) * lu(k,1278) - lu(k,1301) = lu(k,1301) - lu(k,1037) * lu(k,1278) - lu(k,1302) = lu(k,1302) - lu(k,1038) * lu(k,1278) - lu(k,1321) = lu(k,1321) - lu(k,1015) * lu(k,1320) - lu(k,1322) = lu(k,1322) - lu(k,1016) * lu(k,1320) - lu(k,1323) = lu(k,1323) - lu(k,1017) * lu(k,1320) - lu(k,1324) = lu(k,1324) - lu(k,1018) * lu(k,1320) - lu(k,1325) = lu(k,1325) - lu(k,1019) * lu(k,1320) - lu(k,1326) = lu(k,1326) - lu(k,1020) * lu(k,1320) - lu(k,1327) = lu(k,1327) - lu(k,1021) * lu(k,1320) - lu(k,1328) = lu(k,1328) - lu(k,1022) * lu(k,1320) - lu(k,1329) = lu(k,1329) - lu(k,1023) * lu(k,1320) - lu(k,1330) = lu(k,1330) - lu(k,1024) * lu(k,1320) - lu(k,1331) = lu(k,1331) - lu(k,1025) * lu(k,1320) - lu(k,1332) = lu(k,1332) - lu(k,1026) * lu(k,1320) - lu(k,1333) = lu(k,1333) - lu(k,1027) * lu(k,1320) - lu(k,1334) = lu(k,1334) - lu(k,1028) * lu(k,1320) - lu(k,1335) = lu(k,1335) - lu(k,1029) * lu(k,1320) - lu(k,1336) = lu(k,1336) - lu(k,1030) * lu(k,1320) - lu(k,1337) = lu(k,1337) - lu(k,1031) * lu(k,1320) - lu(k,1338) = lu(k,1338) - lu(k,1032) * lu(k,1320) - lu(k,1339) = lu(k,1339) - lu(k,1033) * lu(k,1320) - lu(k,1340) = lu(k,1340) - lu(k,1034) * lu(k,1320) - lu(k,1341) = lu(k,1341) - lu(k,1035) * lu(k,1320) - lu(k,1342) = lu(k,1342) - lu(k,1036) * lu(k,1320) - lu(k,1343) = lu(k,1343) - lu(k,1037) * lu(k,1320) - lu(k,1344) = lu(k,1344) - lu(k,1038) * lu(k,1320) - lu(k,1381) = lu(k,1381) - lu(k,1015) * lu(k,1380) - lu(k,1382) = lu(k,1382) - lu(k,1016) * lu(k,1380) - lu(k,1383) = lu(k,1383) - lu(k,1017) * lu(k,1380) - lu(k,1384) = lu(k,1384) - lu(k,1018) * lu(k,1380) - lu(k,1385) = lu(k,1385) - lu(k,1019) * lu(k,1380) - lu(k,1386) = lu(k,1386) - lu(k,1020) * lu(k,1380) - lu(k,1387) = lu(k,1387) - lu(k,1021) * lu(k,1380) - lu(k,1388) = lu(k,1388) - lu(k,1022) * lu(k,1380) - lu(k,1389) = lu(k,1389) - lu(k,1023) * lu(k,1380) - lu(k,1390) = lu(k,1390) - lu(k,1024) * lu(k,1380) - lu(k,1391) = lu(k,1391) - lu(k,1025) * lu(k,1380) - lu(k,1392) = lu(k,1392) - lu(k,1026) * lu(k,1380) - lu(k,1393) = lu(k,1393) - lu(k,1027) * lu(k,1380) - lu(k,1394) = lu(k,1394) - lu(k,1028) * lu(k,1380) - lu(k,1395) = lu(k,1395) - lu(k,1029) * lu(k,1380) - lu(k,1396) = lu(k,1396) - lu(k,1030) * lu(k,1380) - lu(k,1397) = lu(k,1397) - lu(k,1031) * lu(k,1380) - lu(k,1398) = lu(k,1398) - lu(k,1032) * lu(k,1380) - lu(k,1399) = lu(k,1399) - lu(k,1033) * lu(k,1380) - lu(k,1400) = lu(k,1400) - lu(k,1034) * lu(k,1380) - lu(k,1401) = lu(k,1401) - lu(k,1035) * lu(k,1380) - lu(k,1402) = lu(k,1402) - lu(k,1036) * lu(k,1380) - lu(k,1403) = lu(k,1403) - lu(k,1037) * lu(k,1380) - lu(k,1404) = lu(k,1404) - lu(k,1038) * lu(k,1380) - lu(k,1430) = lu(k,1430) - lu(k,1015) * lu(k,1429) - lu(k,1431) = lu(k,1431) - lu(k,1016) * lu(k,1429) - lu(k,1432) = lu(k,1432) - lu(k,1017) * lu(k,1429) - lu(k,1433) = lu(k,1433) - lu(k,1018) * lu(k,1429) - lu(k,1434) = lu(k,1434) - lu(k,1019) * lu(k,1429) - lu(k,1435) = lu(k,1435) - lu(k,1020) * lu(k,1429) - lu(k,1436) = lu(k,1436) - lu(k,1021) * lu(k,1429) - lu(k,1437) = lu(k,1437) - lu(k,1022) * lu(k,1429) - lu(k,1438) = lu(k,1438) - lu(k,1023) * lu(k,1429) - lu(k,1439) = lu(k,1439) - lu(k,1024) * lu(k,1429) - lu(k,1440) = lu(k,1440) - lu(k,1025) * lu(k,1429) - lu(k,1441) = lu(k,1441) - lu(k,1026) * lu(k,1429) - lu(k,1442) = lu(k,1442) - lu(k,1027) * lu(k,1429) - lu(k,1443) = lu(k,1443) - lu(k,1028) * lu(k,1429) - lu(k,1444) = lu(k,1444) - lu(k,1029) * lu(k,1429) - lu(k,1445) = lu(k,1445) - lu(k,1030) * lu(k,1429) - lu(k,1446) = lu(k,1446) - lu(k,1031) * lu(k,1429) - lu(k,1447) = lu(k,1447) - lu(k,1032) * lu(k,1429) - lu(k,1448) = lu(k,1448) - lu(k,1033) * lu(k,1429) - lu(k,1449) = lu(k,1449) - lu(k,1034) * lu(k,1429) - lu(k,1450) = lu(k,1450) - lu(k,1035) * lu(k,1429) - lu(k,1451) = lu(k,1451) - lu(k,1036) * lu(k,1429) - lu(k,1452) = lu(k,1452) - lu(k,1037) * lu(k,1429) - lu(k,1453) = lu(k,1453) - lu(k,1038) * lu(k,1429) - lu(k,1478) = lu(k,1478) - lu(k,1015) * lu(k,1477) - lu(k,1479) = lu(k,1479) - lu(k,1016) * lu(k,1477) - lu(k,1480) = lu(k,1480) - lu(k,1017) * lu(k,1477) - lu(k,1481) = lu(k,1481) - lu(k,1018) * lu(k,1477) - lu(k,1482) = lu(k,1482) - lu(k,1019) * lu(k,1477) - lu(k,1483) = lu(k,1483) - lu(k,1020) * lu(k,1477) - lu(k,1484) = lu(k,1484) - lu(k,1021) * lu(k,1477) - lu(k,1485) = lu(k,1485) - lu(k,1022) * lu(k,1477) - lu(k,1486) = lu(k,1486) - lu(k,1023) * lu(k,1477) - lu(k,1487) = lu(k,1487) - lu(k,1024) * lu(k,1477) - lu(k,1488) = lu(k,1488) - lu(k,1025) * lu(k,1477) - lu(k,1489) = lu(k,1489) - lu(k,1026) * lu(k,1477) - lu(k,1490) = lu(k,1490) - lu(k,1027) * lu(k,1477) - lu(k,1491) = lu(k,1491) - lu(k,1028) * lu(k,1477) - lu(k,1492) = lu(k,1492) - lu(k,1029) * lu(k,1477) - lu(k,1493) = lu(k,1493) - lu(k,1030) * lu(k,1477) - lu(k,1494) = lu(k,1494) - lu(k,1031) * lu(k,1477) - lu(k,1495) = lu(k,1495) - lu(k,1032) * lu(k,1477) - lu(k,1496) = lu(k,1496) - lu(k,1033) * lu(k,1477) - lu(k,1497) = lu(k,1497) - lu(k,1034) * lu(k,1477) - lu(k,1498) = lu(k,1498) - lu(k,1035) * lu(k,1477) - lu(k,1499) = lu(k,1499) - lu(k,1036) * lu(k,1477) - lu(k,1500) = lu(k,1500) - lu(k,1037) * lu(k,1477) - lu(k,1501) = lu(k,1501) - lu(k,1038) * lu(k,1477) - lu(k,1519) = lu(k,1519) - lu(k,1015) * lu(k,1518) - lu(k,1520) = lu(k,1520) - lu(k,1016) * lu(k,1518) - lu(k,1521) = lu(k,1521) - lu(k,1017) * lu(k,1518) - lu(k,1522) = lu(k,1522) - lu(k,1018) * lu(k,1518) - lu(k,1523) = lu(k,1523) - lu(k,1019) * lu(k,1518) - lu(k,1524) = lu(k,1524) - lu(k,1020) * lu(k,1518) - lu(k,1525) = lu(k,1525) - lu(k,1021) * lu(k,1518) - lu(k,1526) = lu(k,1526) - lu(k,1022) * lu(k,1518) - lu(k,1527) = lu(k,1527) - lu(k,1023) * lu(k,1518) - lu(k,1528) = lu(k,1528) - lu(k,1024) * lu(k,1518) - lu(k,1529) = lu(k,1529) - lu(k,1025) * lu(k,1518) - lu(k,1530) = lu(k,1530) - lu(k,1026) * lu(k,1518) - lu(k,1531) = lu(k,1531) - lu(k,1027) * lu(k,1518) - lu(k,1532) = lu(k,1532) - lu(k,1028) * lu(k,1518) - lu(k,1533) = lu(k,1533) - lu(k,1029) * lu(k,1518) - lu(k,1534) = lu(k,1534) - lu(k,1030) * lu(k,1518) - lu(k,1535) = lu(k,1535) - lu(k,1031) * lu(k,1518) - lu(k,1536) = lu(k,1536) - lu(k,1032) * lu(k,1518) - lu(k,1537) = lu(k,1537) - lu(k,1033) * lu(k,1518) - lu(k,1538) = lu(k,1538) - lu(k,1034) * lu(k,1518) - lu(k,1539) = lu(k,1539) - lu(k,1035) * lu(k,1518) - lu(k,1540) = lu(k,1540) - lu(k,1036) * lu(k,1518) - lu(k,1541) = lu(k,1541) - lu(k,1037) * lu(k,1518) - lu(k,1542) = lu(k,1542) - lu(k,1038) * lu(k,1518) - lu(k,1555) = lu(k,1555) - lu(k,1015) * lu(k,1554) - lu(k,1556) = lu(k,1556) - lu(k,1016) * lu(k,1554) - lu(k,1557) = lu(k,1557) - lu(k,1017) * lu(k,1554) - lu(k,1558) = lu(k,1558) - lu(k,1018) * lu(k,1554) - lu(k,1559) = lu(k,1559) - lu(k,1019) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,1020) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,1021) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,1022) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,1023) * lu(k,1554) - lu(k,1564) = lu(k,1564) - lu(k,1024) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,1025) * lu(k,1554) - lu(k,1566) = lu(k,1566) - lu(k,1026) * lu(k,1554) - lu(k,1567) = lu(k,1567) - lu(k,1027) * lu(k,1554) - lu(k,1568) = lu(k,1568) - lu(k,1028) * lu(k,1554) - lu(k,1569) = lu(k,1569) - lu(k,1029) * lu(k,1554) - lu(k,1570) = lu(k,1570) - lu(k,1030) * lu(k,1554) - lu(k,1571) = lu(k,1571) - lu(k,1031) * lu(k,1554) - lu(k,1572) = lu(k,1572) - lu(k,1032) * lu(k,1554) - lu(k,1573) = lu(k,1573) - lu(k,1033) * lu(k,1554) - lu(k,1574) = lu(k,1574) - lu(k,1034) * lu(k,1554) - lu(k,1575) = lu(k,1575) - lu(k,1035) * lu(k,1554) - lu(k,1576) = lu(k,1576) - lu(k,1036) * lu(k,1554) - lu(k,1577) = lu(k,1577) - lu(k,1037) * lu(k,1554) - lu(k,1578) = lu(k,1578) - lu(k,1038) * lu(k,1554) - lu(k,1600) = lu(k,1600) - lu(k,1015) * lu(k,1599) - lu(k,1601) = lu(k,1601) - lu(k,1016) * lu(k,1599) - lu(k,1602) = lu(k,1602) - lu(k,1017) * lu(k,1599) - lu(k,1603) = lu(k,1603) - lu(k,1018) * lu(k,1599) - lu(k,1604) = lu(k,1604) - lu(k,1019) * lu(k,1599) - lu(k,1605) = lu(k,1605) - lu(k,1020) * lu(k,1599) - lu(k,1606) = lu(k,1606) - lu(k,1021) * lu(k,1599) - lu(k,1607) = lu(k,1607) - lu(k,1022) * lu(k,1599) - lu(k,1608) = lu(k,1608) - lu(k,1023) * lu(k,1599) - lu(k,1609) = lu(k,1609) - lu(k,1024) * lu(k,1599) - lu(k,1610) = lu(k,1610) - lu(k,1025) * lu(k,1599) - lu(k,1611) = lu(k,1611) - lu(k,1026) * lu(k,1599) - lu(k,1612) = lu(k,1612) - lu(k,1027) * lu(k,1599) - lu(k,1613) = lu(k,1613) - lu(k,1028) * lu(k,1599) - lu(k,1614) = lu(k,1614) - lu(k,1029) * lu(k,1599) - lu(k,1615) = lu(k,1615) - lu(k,1030) * lu(k,1599) - lu(k,1616) = lu(k,1616) - lu(k,1031) * lu(k,1599) - lu(k,1617) = lu(k,1617) - lu(k,1032) * lu(k,1599) - lu(k,1618) = lu(k,1618) - lu(k,1033) * lu(k,1599) - lu(k,1619) = lu(k,1619) - lu(k,1034) * lu(k,1599) - lu(k,1620) = lu(k,1620) - lu(k,1035) * lu(k,1599) - lu(k,1621) = lu(k,1621) - lu(k,1036) * lu(k,1599) - lu(k,1622) = lu(k,1622) - lu(k,1037) * lu(k,1599) - lu(k,1623) = lu(k,1623) - lu(k,1038) * lu(k,1599) - lu(k,1643) = lu(k,1643) - lu(k,1015) * lu(k,1642) - lu(k,1644) = lu(k,1644) - lu(k,1016) * lu(k,1642) - lu(k,1645) = lu(k,1645) - lu(k,1017) * lu(k,1642) - lu(k,1646) = lu(k,1646) - lu(k,1018) * lu(k,1642) - lu(k,1647) = lu(k,1647) - lu(k,1019) * lu(k,1642) - lu(k,1648) = lu(k,1648) - lu(k,1020) * lu(k,1642) - lu(k,1649) = lu(k,1649) - lu(k,1021) * lu(k,1642) - lu(k,1650) = lu(k,1650) - lu(k,1022) * lu(k,1642) - lu(k,1651) = lu(k,1651) - lu(k,1023) * lu(k,1642) - lu(k,1652) = lu(k,1652) - lu(k,1024) * lu(k,1642) - lu(k,1653) = lu(k,1653) - lu(k,1025) * lu(k,1642) - lu(k,1654) = lu(k,1654) - lu(k,1026) * lu(k,1642) - lu(k,1655) = lu(k,1655) - lu(k,1027) * lu(k,1642) - lu(k,1656) = lu(k,1656) - lu(k,1028) * lu(k,1642) - lu(k,1657) = lu(k,1657) - lu(k,1029) * lu(k,1642) - lu(k,1658) = lu(k,1658) - lu(k,1030) * lu(k,1642) - lu(k,1659) = lu(k,1659) - lu(k,1031) * lu(k,1642) - lu(k,1660) = lu(k,1660) - lu(k,1032) * lu(k,1642) - lu(k,1661) = lu(k,1661) - lu(k,1033) * lu(k,1642) - lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1642) - lu(k,1663) = lu(k,1663) - lu(k,1035) * lu(k,1642) - lu(k,1664) = lu(k,1664) - lu(k,1036) * lu(k,1642) - lu(k,1665) = lu(k,1665) - lu(k,1037) * lu(k,1642) - lu(k,1666) = lu(k,1666) - lu(k,1038) * lu(k,1642) - lu(k,1686) = lu(k,1686) - lu(k,1015) * lu(k,1685) - lu(k,1687) = lu(k,1687) - lu(k,1016) * lu(k,1685) - lu(k,1688) = lu(k,1688) - lu(k,1017) * lu(k,1685) - lu(k,1689) = lu(k,1689) - lu(k,1018) * lu(k,1685) - lu(k,1690) = lu(k,1690) - lu(k,1019) * lu(k,1685) - lu(k,1691) = lu(k,1691) - lu(k,1020) * lu(k,1685) - lu(k,1692) = lu(k,1692) - lu(k,1021) * lu(k,1685) - lu(k,1693) = lu(k,1693) - lu(k,1022) * lu(k,1685) - lu(k,1694) = lu(k,1694) - lu(k,1023) * lu(k,1685) - lu(k,1695) = lu(k,1695) - lu(k,1024) * lu(k,1685) - lu(k,1696) = lu(k,1696) - lu(k,1025) * lu(k,1685) - lu(k,1697) = lu(k,1697) - lu(k,1026) * lu(k,1685) - lu(k,1698) = lu(k,1698) - lu(k,1027) * lu(k,1685) - lu(k,1699) = lu(k,1699) - lu(k,1028) * lu(k,1685) - lu(k,1700) = lu(k,1700) - lu(k,1029) * lu(k,1685) - lu(k,1701) = lu(k,1701) - lu(k,1030) * lu(k,1685) - lu(k,1702) = lu(k,1702) - lu(k,1031) * lu(k,1685) - lu(k,1703) = lu(k,1703) - lu(k,1032) * lu(k,1685) - lu(k,1704) = lu(k,1704) - lu(k,1033) * lu(k,1685) - lu(k,1705) = lu(k,1705) - lu(k,1034) * lu(k,1685) - lu(k,1706) = lu(k,1706) - lu(k,1035) * lu(k,1685) - lu(k,1707) = lu(k,1707) - lu(k,1036) * lu(k,1685) - lu(k,1708) = lu(k,1708) - lu(k,1037) * lu(k,1685) - lu(k,1709) = lu(k,1709) - lu(k,1038) * lu(k,1685) - lu(k,1762) = lu(k,1762) - lu(k,1015) * lu(k,1761) - lu(k,1763) = lu(k,1763) - lu(k,1016) * lu(k,1761) - lu(k,1764) = lu(k,1764) - lu(k,1017) * lu(k,1761) - lu(k,1765) = lu(k,1765) - lu(k,1018) * lu(k,1761) - lu(k,1766) = lu(k,1766) - lu(k,1019) * lu(k,1761) - lu(k,1767) = lu(k,1767) - lu(k,1020) * lu(k,1761) - lu(k,1768) = lu(k,1768) - lu(k,1021) * lu(k,1761) - lu(k,1769) = lu(k,1769) - lu(k,1022) * lu(k,1761) - lu(k,1770) = lu(k,1770) - lu(k,1023) * lu(k,1761) - lu(k,1771) = lu(k,1771) - lu(k,1024) * lu(k,1761) - lu(k,1772) = lu(k,1772) - lu(k,1025) * lu(k,1761) - lu(k,1773) = lu(k,1773) - lu(k,1026) * lu(k,1761) - lu(k,1774) = lu(k,1774) - lu(k,1027) * lu(k,1761) - lu(k,1775) = lu(k,1775) - lu(k,1028) * lu(k,1761) - lu(k,1776) = lu(k,1776) - lu(k,1029) * lu(k,1761) - lu(k,1777) = lu(k,1777) - lu(k,1030) * lu(k,1761) - lu(k,1778) = lu(k,1778) - lu(k,1031) * lu(k,1761) - lu(k,1779) = lu(k,1779) - lu(k,1032) * lu(k,1761) - lu(k,1780) = lu(k,1780) - lu(k,1033) * lu(k,1761) - lu(k,1781) = lu(k,1781) - lu(k,1034) * lu(k,1761) - lu(k,1782) = lu(k,1782) - lu(k,1035) * lu(k,1761) - lu(k,1783) = lu(k,1783) - lu(k,1036) * lu(k,1761) - lu(k,1784) = lu(k,1784) - lu(k,1037) * lu(k,1761) - lu(k,1785) = lu(k,1785) - lu(k,1038) * lu(k,1761) - lu(k,1810) = lu(k,1810) - lu(k,1015) * lu(k,1809) - lu(k,1811) = lu(k,1811) - lu(k,1016) * lu(k,1809) - lu(k,1812) = lu(k,1812) - lu(k,1017) * lu(k,1809) - lu(k,1813) = lu(k,1813) - lu(k,1018) * lu(k,1809) - lu(k,1814) = lu(k,1814) - lu(k,1019) * lu(k,1809) - lu(k,1815) = lu(k,1815) - lu(k,1020) * lu(k,1809) - lu(k,1816) = lu(k,1816) - lu(k,1021) * lu(k,1809) - lu(k,1817) = lu(k,1817) - lu(k,1022) * lu(k,1809) - lu(k,1818) = lu(k,1818) - lu(k,1023) * lu(k,1809) - lu(k,1819) = lu(k,1819) - lu(k,1024) * lu(k,1809) - lu(k,1820) = lu(k,1820) - lu(k,1025) * lu(k,1809) - lu(k,1821) = lu(k,1821) - lu(k,1026) * lu(k,1809) - lu(k,1822) = lu(k,1822) - lu(k,1027) * lu(k,1809) - lu(k,1823) = lu(k,1823) - lu(k,1028) * lu(k,1809) - lu(k,1824) = lu(k,1824) - lu(k,1029) * lu(k,1809) - lu(k,1825) = lu(k,1825) - lu(k,1030) * lu(k,1809) - lu(k,1826) = lu(k,1826) - lu(k,1031) * lu(k,1809) - lu(k,1827) = lu(k,1827) - lu(k,1032) * lu(k,1809) - lu(k,1828) = lu(k,1828) - lu(k,1033) * lu(k,1809) - lu(k,1829) = lu(k,1829) - lu(k,1034) * lu(k,1809) - lu(k,1830) = lu(k,1830) - lu(k,1035) * lu(k,1809) - lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1809) - lu(k,1832) = lu(k,1832) - lu(k,1037) * lu(k,1809) - lu(k,1833) = lu(k,1833) - lu(k,1038) * lu(k,1809) - lu(k,1843) = lu(k,1843) - lu(k,1015) * lu(k,1842) - lu(k,1844) = lu(k,1844) - lu(k,1016) * lu(k,1842) - lu(k,1845) = lu(k,1845) - lu(k,1017) * lu(k,1842) - lu(k,1846) = lu(k,1846) - lu(k,1018) * lu(k,1842) - lu(k,1847) = lu(k,1847) - lu(k,1019) * lu(k,1842) - lu(k,1848) = lu(k,1848) - lu(k,1020) * lu(k,1842) - lu(k,1849) = lu(k,1849) - lu(k,1021) * lu(k,1842) - lu(k,1850) = lu(k,1850) - lu(k,1022) * lu(k,1842) - lu(k,1851) = lu(k,1851) - lu(k,1023) * lu(k,1842) - lu(k,1852) = lu(k,1852) - lu(k,1024) * lu(k,1842) - lu(k,1853) = lu(k,1853) - lu(k,1025) * lu(k,1842) - lu(k,1854) = lu(k,1854) - lu(k,1026) * lu(k,1842) - lu(k,1855) = lu(k,1855) - lu(k,1027) * lu(k,1842) - lu(k,1856) = lu(k,1856) - lu(k,1028) * lu(k,1842) - lu(k,1857) = lu(k,1857) - lu(k,1029) * lu(k,1842) - lu(k,1858) = lu(k,1858) - lu(k,1030) * lu(k,1842) - lu(k,1859) = lu(k,1859) - lu(k,1031) * lu(k,1842) - lu(k,1860) = lu(k,1860) - lu(k,1032) * lu(k,1842) - lu(k,1861) = lu(k,1861) - lu(k,1033) * lu(k,1842) - lu(k,1862) = lu(k,1862) - lu(k,1034) * lu(k,1842) - lu(k,1863) = lu(k,1863) - lu(k,1035) * lu(k,1842) - lu(k,1864) = lu(k,1864) - lu(k,1036) * lu(k,1842) - lu(k,1865) = lu(k,1865) - lu(k,1037) * lu(k,1842) - lu(k,1866) = lu(k,1866) - lu(k,1038) * lu(k,1842) - lu(k,1879) = lu(k,1879) - lu(k,1015) * lu(k,1878) - lu(k,1880) = lu(k,1880) - lu(k,1016) * lu(k,1878) - lu(k,1881) = lu(k,1881) - lu(k,1017) * lu(k,1878) - lu(k,1882) = lu(k,1882) - lu(k,1018) * lu(k,1878) - lu(k,1883) = lu(k,1883) - lu(k,1019) * lu(k,1878) - lu(k,1884) = lu(k,1884) - lu(k,1020) * lu(k,1878) - lu(k,1885) = lu(k,1885) - lu(k,1021) * lu(k,1878) - lu(k,1886) = lu(k,1886) - lu(k,1022) * lu(k,1878) - lu(k,1887) = lu(k,1887) - lu(k,1023) * lu(k,1878) - lu(k,1888) = lu(k,1888) - lu(k,1024) * lu(k,1878) - lu(k,1889) = lu(k,1889) - lu(k,1025) * lu(k,1878) - lu(k,1890) = lu(k,1890) - lu(k,1026) * lu(k,1878) - lu(k,1891) = lu(k,1891) - lu(k,1027) * lu(k,1878) - lu(k,1892) = lu(k,1892) - lu(k,1028) * lu(k,1878) - lu(k,1893) = lu(k,1893) - lu(k,1029) * lu(k,1878) - lu(k,1894) = lu(k,1894) - lu(k,1030) * lu(k,1878) - lu(k,1895) = lu(k,1895) - lu(k,1031) * lu(k,1878) - lu(k,1896) = lu(k,1896) - lu(k,1032) * lu(k,1878) - lu(k,1897) = lu(k,1897) - lu(k,1033) * lu(k,1878) - lu(k,1898) = lu(k,1898) - lu(k,1034) * lu(k,1878) - lu(k,1899) = lu(k,1899) - lu(k,1035) * lu(k,1878) - lu(k,1900) = lu(k,1900) - lu(k,1036) * lu(k,1878) - lu(k,1901) = lu(k,1901) - lu(k,1037) * lu(k,1878) - lu(k,1902) = lu(k,1902) - lu(k,1038) * lu(k,1878) - lu(k,1920) = lu(k,1920) - lu(k,1015) * lu(k,1919) - lu(k,1921) = lu(k,1921) - lu(k,1016) * lu(k,1919) - lu(k,1922) = lu(k,1922) - lu(k,1017) * lu(k,1919) - lu(k,1923) = lu(k,1923) - lu(k,1018) * lu(k,1919) - lu(k,1924) = lu(k,1924) - lu(k,1019) * lu(k,1919) - lu(k,1925) = lu(k,1925) - lu(k,1020) * lu(k,1919) - lu(k,1926) = lu(k,1926) - lu(k,1021) * lu(k,1919) - lu(k,1927) = lu(k,1927) - lu(k,1022) * lu(k,1919) - lu(k,1928) = lu(k,1928) - lu(k,1023) * lu(k,1919) - lu(k,1929) = lu(k,1929) - lu(k,1024) * lu(k,1919) - lu(k,1930) = lu(k,1930) - lu(k,1025) * lu(k,1919) - lu(k,1931) = lu(k,1931) - lu(k,1026) * lu(k,1919) - lu(k,1932) = lu(k,1932) - lu(k,1027) * lu(k,1919) - lu(k,1933) = lu(k,1933) - lu(k,1028) * lu(k,1919) - lu(k,1934) = lu(k,1934) - lu(k,1029) * lu(k,1919) - lu(k,1935) = lu(k,1935) - lu(k,1030) * lu(k,1919) - lu(k,1936) = lu(k,1936) - lu(k,1031) * lu(k,1919) - lu(k,1937) = lu(k,1937) - lu(k,1032) * lu(k,1919) - lu(k,1938) = lu(k,1938) - lu(k,1033) * lu(k,1919) - lu(k,1939) = lu(k,1939) - lu(k,1034) * lu(k,1919) - lu(k,1940) = lu(k,1940) - lu(k,1035) * lu(k,1919) - lu(k,1941) = lu(k,1941) - lu(k,1036) * lu(k,1919) - lu(k,1942) = lu(k,1942) - lu(k,1037) * lu(k,1919) - lu(k,1943) = lu(k,1943) - lu(k,1038) * lu(k,1919) - lu(k,1962) = lu(k,1962) - lu(k,1015) * lu(k,1961) - lu(k,1963) = lu(k,1963) - lu(k,1016) * lu(k,1961) - lu(k,1964) = lu(k,1964) - lu(k,1017) * lu(k,1961) - lu(k,1965) = lu(k,1965) - lu(k,1018) * lu(k,1961) - lu(k,1966) = lu(k,1966) - lu(k,1019) * lu(k,1961) - lu(k,1967) = lu(k,1967) - lu(k,1020) * lu(k,1961) - lu(k,1968) = lu(k,1968) - lu(k,1021) * lu(k,1961) - lu(k,1969) = lu(k,1969) - lu(k,1022) * lu(k,1961) - lu(k,1970) = lu(k,1970) - lu(k,1023) * lu(k,1961) - lu(k,1971) = lu(k,1971) - lu(k,1024) * lu(k,1961) - lu(k,1972) = lu(k,1972) - lu(k,1025) * lu(k,1961) - lu(k,1973) = lu(k,1973) - lu(k,1026) * lu(k,1961) - lu(k,1974) = lu(k,1974) - lu(k,1027) * lu(k,1961) - lu(k,1975) = lu(k,1975) - lu(k,1028) * lu(k,1961) - lu(k,1976) = lu(k,1976) - lu(k,1029) * lu(k,1961) - lu(k,1977) = lu(k,1977) - lu(k,1030) * lu(k,1961) - lu(k,1978) = lu(k,1978) - lu(k,1031) * lu(k,1961) - lu(k,1979) = lu(k,1979) - lu(k,1032) * lu(k,1961) - lu(k,1980) = lu(k,1980) - lu(k,1033) * lu(k,1961) - lu(k,1981) = lu(k,1981) - lu(k,1034) * lu(k,1961) - lu(k,1982) = lu(k,1982) - lu(k,1035) * lu(k,1961) - lu(k,1983) = lu(k,1983) - lu(k,1036) * lu(k,1961) - lu(k,1984) = lu(k,1984) - lu(k,1037) * lu(k,1961) - lu(k,1985) = lu(k,1985) - lu(k,1038) * lu(k,1961) - lu(k,2007) = lu(k,2007) - lu(k,1015) * lu(k,2006) - lu(k,2008) = lu(k,2008) - lu(k,1016) * lu(k,2006) - lu(k,2009) = lu(k,2009) - lu(k,1017) * lu(k,2006) - lu(k,2010) = lu(k,2010) - lu(k,1018) * lu(k,2006) - lu(k,2011) = lu(k,2011) - lu(k,1019) * lu(k,2006) - lu(k,2012) = lu(k,2012) - lu(k,1020) * lu(k,2006) - lu(k,2013) = lu(k,2013) - lu(k,1021) * lu(k,2006) - lu(k,2014) = lu(k,2014) - lu(k,1022) * lu(k,2006) - lu(k,2015) = lu(k,2015) - lu(k,1023) * lu(k,2006) - lu(k,2016) = lu(k,2016) - lu(k,1024) * lu(k,2006) - lu(k,2017) = lu(k,2017) - lu(k,1025) * lu(k,2006) - lu(k,2018) = lu(k,2018) - lu(k,1026) * lu(k,2006) - lu(k,2019) = lu(k,2019) - lu(k,1027) * lu(k,2006) - lu(k,2020) = lu(k,2020) - lu(k,1028) * lu(k,2006) - lu(k,2021) = lu(k,2021) - lu(k,1029) * lu(k,2006) - lu(k,2022) = lu(k,2022) - lu(k,1030) * lu(k,2006) - lu(k,2023) = lu(k,2023) - lu(k,1031) * lu(k,2006) - lu(k,2024) = lu(k,2024) - lu(k,1032) * lu(k,2006) - lu(k,2025) = lu(k,2025) - lu(k,1033) * lu(k,2006) - lu(k,2026) = lu(k,2026) - lu(k,1034) * lu(k,2006) - lu(k,2027) = lu(k,2027) - lu(k,1035) * lu(k,2006) - lu(k,2028) = lu(k,2028) - lu(k,1036) * lu(k,2006) - lu(k,2029) = lu(k,2029) - lu(k,1037) * lu(k,2006) - lu(k,2030) = lu(k,2030) - lu(k,1038) * lu(k,2006) - lu(k,2067) = lu(k,2067) - lu(k,1015) * lu(k,2066) - lu(k,2068) = lu(k,2068) - lu(k,1016) * lu(k,2066) - lu(k,2069) = lu(k,2069) - lu(k,1017) * lu(k,2066) - lu(k,2070) = lu(k,2070) - lu(k,1018) * lu(k,2066) - lu(k,2071) = lu(k,2071) - lu(k,1019) * lu(k,2066) - lu(k,2072) = lu(k,2072) - lu(k,1020) * lu(k,2066) - lu(k,2073) = lu(k,2073) - lu(k,1021) * lu(k,2066) - lu(k,2074) = lu(k,2074) - lu(k,1022) * lu(k,2066) - lu(k,2075) = lu(k,2075) - lu(k,1023) * lu(k,2066) - lu(k,2076) = lu(k,2076) - lu(k,1024) * lu(k,2066) - lu(k,2077) = lu(k,2077) - lu(k,1025) * lu(k,2066) - lu(k,2078) = lu(k,2078) - lu(k,1026) * lu(k,2066) - lu(k,2079) = lu(k,2079) - lu(k,1027) * lu(k,2066) - lu(k,2080) = lu(k,2080) - lu(k,1028) * lu(k,2066) - lu(k,2081) = lu(k,2081) - lu(k,1029) * lu(k,2066) - lu(k,2082) = lu(k,2082) - lu(k,1030) * lu(k,2066) - lu(k,2083) = lu(k,2083) - lu(k,1031) * lu(k,2066) - lu(k,2084) = lu(k,2084) - lu(k,1032) * lu(k,2066) - lu(k,2085) = lu(k,2085) - lu(k,1033) * lu(k,2066) - lu(k,2086) = lu(k,2086) - lu(k,1034) * lu(k,2066) - lu(k,2087) = lu(k,2087) - lu(k,1035) * lu(k,2066) - lu(k,2088) = lu(k,2088) - lu(k,1036) * lu(k,2066) - lu(k,2089) = lu(k,2089) - lu(k,1037) * lu(k,2066) - lu(k,2090) = lu(k,2090) - lu(k,1038) * lu(k,2066) - lu(k,1058) = 1._r8 / lu(k,1058) - lu(k,1059) = lu(k,1059) * lu(k,1058) - lu(k,1060) = lu(k,1060) * lu(k,1058) - lu(k,1061) = lu(k,1061) * lu(k,1058) - lu(k,1062) = lu(k,1062) * lu(k,1058) - lu(k,1063) = lu(k,1063) * lu(k,1058) - lu(k,1064) = lu(k,1064) * lu(k,1058) - lu(k,1065) = lu(k,1065) * lu(k,1058) - lu(k,1066) = lu(k,1066) * lu(k,1058) - lu(k,1067) = lu(k,1067) * lu(k,1058) - lu(k,1068) = lu(k,1068) * lu(k,1058) - lu(k,1069) = lu(k,1069) * lu(k,1058) - lu(k,1070) = lu(k,1070) * lu(k,1058) - lu(k,1071) = lu(k,1071) * lu(k,1058) - lu(k,1072) = lu(k,1072) * lu(k,1058) - lu(k,1073) = lu(k,1073) * lu(k,1058) - lu(k,1074) = lu(k,1074) * lu(k,1058) - lu(k,1075) = lu(k,1075) * lu(k,1058) - lu(k,1076) = lu(k,1076) * lu(k,1058) - lu(k,1077) = lu(k,1077) * lu(k,1058) - lu(k,1078) = lu(k,1078) * lu(k,1058) - lu(k,1079) = lu(k,1079) * lu(k,1058) - lu(k,1080) = lu(k,1080) * lu(k,1058) - lu(k,1081) = lu(k,1081) * lu(k,1058) - lu(k,1104) = lu(k,1104) - lu(k,1059) * lu(k,1103) - lu(k,1105) = lu(k,1105) - lu(k,1060) * lu(k,1103) - lu(k,1106) = lu(k,1106) - lu(k,1061) * lu(k,1103) - lu(k,1107) = lu(k,1107) - lu(k,1062) * lu(k,1103) - lu(k,1108) = lu(k,1108) - lu(k,1063) * lu(k,1103) - lu(k,1109) = lu(k,1109) - lu(k,1064) * lu(k,1103) - lu(k,1110) = lu(k,1110) - lu(k,1065) * lu(k,1103) - lu(k,1111) = lu(k,1111) - lu(k,1066) * lu(k,1103) - lu(k,1112) = lu(k,1112) - lu(k,1067) * lu(k,1103) - lu(k,1113) = lu(k,1113) - lu(k,1068) * lu(k,1103) - lu(k,1114) = lu(k,1114) - lu(k,1069) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,1070) * lu(k,1103) - lu(k,1116) = lu(k,1116) - lu(k,1071) * lu(k,1103) - lu(k,1117) = lu(k,1117) - lu(k,1072) * lu(k,1103) - lu(k,1118) = lu(k,1118) - lu(k,1073) * lu(k,1103) - lu(k,1119) = lu(k,1119) - lu(k,1074) * lu(k,1103) - lu(k,1120) = lu(k,1120) - lu(k,1075) * lu(k,1103) - lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1103) - lu(k,1122) = lu(k,1122) - lu(k,1077) * lu(k,1103) - lu(k,1123) = lu(k,1123) - lu(k,1078) * lu(k,1103) - lu(k,1124) = lu(k,1124) - lu(k,1079) * lu(k,1103) - lu(k,1125) = lu(k,1125) - lu(k,1080) * lu(k,1103) - lu(k,1126) = lu(k,1126) - lu(k,1081) * lu(k,1103) - lu(k,1152) = lu(k,1152) - lu(k,1059) * lu(k,1151) - lu(k,1153) = lu(k,1153) - lu(k,1060) * lu(k,1151) - lu(k,1154) = lu(k,1154) - lu(k,1061) * lu(k,1151) - lu(k,1155) = lu(k,1155) - lu(k,1062) * lu(k,1151) - lu(k,1156) = lu(k,1156) - lu(k,1063) * lu(k,1151) - lu(k,1157) = lu(k,1157) - lu(k,1064) * lu(k,1151) - lu(k,1158) = lu(k,1158) - lu(k,1065) * lu(k,1151) - lu(k,1159) = lu(k,1159) - lu(k,1066) * lu(k,1151) - lu(k,1160) = lu(k,1160) - lu(k,1067) * lu(k,1151) - lu(k,1161) = lu(k,1161) - lu(k,1068) * lu(k,1151) - lu(k,1162) = lu(k,1162) - lu(k,1069) * lu(k,1151) - lu(k,1163) = lu(k,1163) - lu(k,1070) * lu(k,1151) - lu(k,1164) = lu(k,1164) - lu(k,1071) * lu(k,1151) - lu(k,1165) = lu(k,1165) - lu(k,1072) * lu(k,1151) - lu(k,1166) = lu(k,1166) - lu(k,1073) * lu(k,1151) - lu(k,1167) = lu(k,1167) - lu(k,1074) * lu(k,1151) - lu(k,1168) = lu(k,1168) - lu(k,1075) * lu(k,1151) - lu(k,1169) = lu(k,1169) - lu(k,1076) * lu(k,1151) - lu(k,1170) = lu(k,1170) - lu(k,1077) * lu(k,1151) - lu(k,1171) = lu(k,1171) - lu(k,1078) * lu(k,1151) - lu(k,1172) = lu(k,1172) - lu(k,1079) * lu(k,1151) - lu(k,1173) = lu(k,1173) - lu(k,1080) * lu(k,1151) - lu(k,1174) = lu(k,1174) - lu(k,1081) * lu(k,1151) - lu(k,1195) = lu(k,1195) - lu(k,1059) * lu(k,1194) - lu(k,1196) = lu(k,1196) - lu(k,1060) * lu(k,1194) - lu(k,1197) = lu(k,1197) - lu(k,1061) * lu(k,1194) - lu(k,1198) = lu(k,1198) - lu(k,1062) * lu(k,1194) - lu(k,1199) = lu(k,1199) - lu(k,1063) * lu(k,1194) - lu(k,1200) = lu(k,1200) - lu(k,1064) * lu(k,1194) - lu(k,1201) = lu(k,1201) - lu(k,1065) * lu(k,1194) - lu(k,1202) = lu(k,1202) - lu(k,1066) * lu(k,1194) - lu(k,1203) = lu(k,1203) - lu(k,1067) * lu(k,1194) - lu(k,1204) = lu(k,1204) - lu(k,1068) * lu(k,1194) - lu(k,1205) = lu(k,1205) - lu(k,1069) * lu(k,1194) - lu(k,1206) = lu(k,1206) - lu(k,1070) * lu(k,1194) - lu(k,1207) = lu(k,1207) - lu(k,1071) * lu(k,1194) - lu(k,1208) = lu(k,1208) - lu(k,1072) * lu(k,1194) - lu(k,1209) = lu(k,1209) - lu(k,1073) * lu(k,1194) - lu(k,1210) = lu(k,1210) - lu(k,1074) * lu(k,1194) - lu(k,1211) = lu(k,1211) - lu(k,1075) * lu(k,1194) - lu(k,1212) = lu(k,1212) - lu(k,1076) * lu(k,1194) - lu(k,1213) = lu(k,1213) - lu(k,1077) * lu(k,1194) - lu(k,1214) = lu(k,1214) - lu(k,1078) * lu(k,1194) - lu(k,1215) = lu(k,1215) - lu(k,1079) * lu(k,1194) - lu(k,1216) = lu(k,1216) - lu(k,1080) * lu(k,1194) - lu(k,1217) = lu(k,1217) - lu(k,1081) * lu(k,1194) - lu(k,1238) = lu(k,1238) - lu(k,1059) * lu(k,1237) - lu(k,1239) = lu(k,1239) - lu(k,1060) * lu(k,1237) - lu(k,1240) = lu(k,1240) - lu(k,1061) * lu(k,1237) - lu(k,1241) = lu(k,1241) - lu(k,1062) * lu(k,1237) - lu(k,1242) = lu(k,1242) - lu(k,1063) * lu(k,1237) - lu(k,1243) = lu(k,1243) - lu(k,1064) * lu(k,1237) - lu(k,1244) = lu(k,1244) - lu(k,1065) * lu(k,1237) - lu(k,1245) = lu(k,1245) - lu(k,1066) * lu(k,1237) - lu(k,1246) = lu(k,1246) - lu(k,1067) * lu(k,1237) - lu(k,1247) = lu(k,1247) - lu(k,1068) * lu(k,1237) - lu(k,1248) = lu(k,1248) - lu(k,1069) * lu(k,1237) - lu(k,1249) = lu(k,1249) - lu(k,1070) * lu(k,1237) - lu(k,1250) = lu(k,1250) - lu(k,1071) * lu(k,1237) - lu(k,1251) = lu(k,1251) - lu(k,1072) * lu(k,1237) - lu(k,1252) = lu(k,1252) - lu(k,1073) * lu(k,1237) - lu(k,1253) = lu(k,1253) - lu(k,1074) * lu(k,1237) - lu(k,1254) = lu(k,1254) - lu(k,1075) * lu(k,1237) - lu(k,1255) = lu(k,1255) - lu(k,1076) * lu(k,1237) - lu(k,1256) = lu(k,1256) - lu(k,1077) * lu(k,1237) - lu(k,1257) = lu(k,1257) - lu(k,1078) * lu(k,1237) - lu(k,1258) = lu(k,1258) - lu(k,1079) * lu(k,1237) - lu(k,1259) = lu(k,1259) - lu(k,1080) * lu(k,1237) - lu(k,1260) = lu(k,1260) - lu(k,1081) * lu(k,1237) - lu(k,1280) = lu(k,1280) - lu(k,1059) * lu(k,1279) - lu(k,1281) = lu(k,1281) - lu(k,1060) * lu(k,1279) - lu(k,1282) = lu(k,1282) - lu(k,1061) * lu(k,1279) - lu(k,1283) = lu(k,1283) - lu(k,1062) * lu(k,1279) - lu(k,1284) = lu(k,1284) - lu(k,1063) * lu(k,1279) - lu(k,1285) = lu(k,1285) - lu(k,1064) * lu(k,1279) - lu(k,1286) = lu(k,1286) - lu(k,1065) * lu(k,1279) - lu(k,1287) = lu(k,1287) - lu(k,1066) * lu(k,1279) - lu(k,1288) = lu(k,1288) - lu(k,1067) * lu(k,1279) - lu(k,1289) = lu(k,1289) - lu(k,1068) * lu(k,1279) - lu(k,1290) = lu(k,1290) - lu(k,1069) * lu(k,1279) - lu(k,1291) = lu(k,1291) - lu(k,1070) * lu(k,1279) - lu(k,1292) = lu(k,1292) - lu(k,1071) * lu(k,1279) - lu(k,1293) = lu(k,1293) - lu(k,1072) * lu(k,1279) - lu(k,1294) = lu(k,1294) - lu(k,1073) * lu(k,1279) - lu(k,1295) = lu(k,1295) - lu(k,1074) * lu(k,1279) - lu(k,1296) = lu(k,1296) - lu(k,1075) * lu(k,1279) - lu(k,1297) = lu(k,1297) - lu(k,1076) * lu(k,1279) - lu(k,1298) = lu(k,1298) - lu(k,1077) * lu(k,1279) - lu(k,1299) = lu(k,1299) - lu(k,1078) * lu(k,1279) - lu(k,1300) = lu(k,1300) - lu(k,1079) * lu(k,1279) - lu(k,1301) = lu(k,1301) - lu(k,1080) * lu(k,1279) - lu(k,1302) = lu(k,1302) - lu(k,1081) * lu(k,1279) - lu(k,1322) = lu(k,1322) - lu(k,1059) * lu(k,1321) - lu(k,1323) = lu(k,1323) - lu(k,1060) * lu(k,1321) - lu(k,1324) = lu(k,1324) - lu(k,1061) * lu(k,1321) - lu(k,1325) = lu(k,1325) - lu(k,1062) * lu(k,1321) - lu(k,1326) = lu(k,1326) - lu(k,1063) * lu(k,1321) - lu(k,1327) = lu(k,1327) - lu(k,1064) * lu(k,1321) - lu(k,1328) = lu(k,1328) - lu(k,1065) * lu(k,1321) - lu(k,1329) = lu(k,1329) - lu(k,1066) * lu(k,1321) - lu(k,1330) = lu(k,1330) - lu(k,1067) * lu(k,1321) - lu(k,1331) = lu(k,1331) - lu(k,1068) * lu(k,1321) - lu(k,1332) = lu(k,1332) - lu(k,1069) * lu(k,1321) - lu(k,1333) = lu(k,1333) - lu(k,1070) * lu(k,1321) - lu(k,1334) = lu(k,1334) - lu(k,1071) * lu(k,1321) - lu(k,1335) = lu(k,1335) - lu(k,1072) * lu(k,1321) - lu(k,1336) = lu(k,1336) - lu(k,1073) * lu(k,1321) - lu(k,1337) = lu(k,1337) - lu(k,1074) * lu(k,1321) - lu(k,1338) = lu(k,1338) - lu(k,1075) * lu(k,1321) - lu(k,1339) = lu(k,1339) - lu(k,1076) * lu(k,1321) - lu(k,1340) = lu(k,1340) - lu(k,1077) * lu(k,1321) - lu(k,1341) = lu(k,1341) - lu(k,1078) * lu(k,1321) - lu(k,1342) = lu(k,1342) - lu(k,1079) * lu(k,1321) - lu(k,1343) = lu(k,1343) - lu(k,1080) * lu(k,1321) - lu(k,1344) = lu(k,1344) - lu(k,1081) * lu(k,1321) - lu(k,1382) = lu(k,1382) - lu(k,1059) * lu(k,1381) - lu(k,1383) = lu(k,1383) - lu(k,1060) * lu(k,1381) - lu(k,1384) = lu(k,1384) - lu(k,1061) * lu(k,1381) - lu(k,1385) = lu(k,1385) - lu(k,1062) * lu(k,1381) - lu(k,1386) = lu(k,1386) - lu(k,1063) * lu(k,1381) - lu(k,1387) = lu(k,1387) - lu(k,1064) * lu(k,1381) - lu(k,1388) = lu(k,1388) - lu(k,1065) * lu(k,1381) - lu(k,1389) = lu(k,1389) - lu(k,1066) * lu(k,1381) - lu(k,1390) = lu(k,1390) - lu(k,1067) * lu(k,1381) - lu(k,1391) = lu(k,1391) - lu(k,1068) * lu(k,1381) - lu(k,1392) = lu(k,1392) - lu(k,1069) * lu(k,1381) - lu(k,1393) = lu(k,1393) - lu(k,1070) * lu(k,1381) - lu(k,1394) = lu(k,1394) - lu(k,1071) * lu(k,1381) - lu(k,1395) = lu(k,1395) - lu(k,1072) * lu(k,1381) - lu(k,1396) = lu(k,1396) - lu(k,1073) * lu(k,1381) - lu(k,1397) = lu(k,1397) - lu(k,1074) * lu(k,1381) - lu(k,1398) = lu(k,1398) - lu(k,1075) * lu(k,1381) - lu(k,1399) = lu(k,1399) - lu(k,1076) * lu(k,1381) - lu(k,1400) = lu(k,1400) - lu(k,1077) * lu(k,1381) - lu(k,1401) = lu(k,1401) - lu(k,1078) * lu(k,1381) - lu(k,1402) = lu(k,1402) - lu(k,1079) * lu(k,1381) - lu(k,1403) = lu(k,1403) - lu(k,1080) * lu(k,1381) - lu(k,1404) = lu(k,1404) - lu(k,1081) * lu(k,1381) - lu(k,1431) = lu(k,1431) - lu(k,1059) * lu(k,1430) - lu(k,1432) = lu(k,1432) - lu(k,1060) * lu(k,1430) - lu(k,1433) = lu(k,1433) - lu(k,1061) * lu(k,1430) - lu(k,1434) = lu(k,1434) - lu(k,1062) * lu(k,1430) - lu(k,1435) = lu(k,1435) - lu(k,1063) * lu(k,1430) - lu(k,1436) = lu(k,1436) - lu(k,1064) * lu(k,1430) - lu(k,1437) = lu(k,1437) - lu(k,1065) * lu(k,1430) - lu(k,1438) = lu(k,1438) - lu(k,1066) * lu(k,1430) - lu(k,1439) = lu(k,1439) - lu(k,1067) * lu(k,1430) - lu(k,1440) = lu(k,1440) - lu(k,1068) * lu(k,1430) - lu(k,1441) = lu(k,1441) - lu(k,1069) * lu(k,1430) - lu(k,1442) = lu(k,1442) - lu(k,1070) * lu(k,1430) - lu(k,1443) = lu(k,1443) - lu(k,1071) * lu(k,1430) - lu(k,1444) = lu(k,1444) - lu(k,1072) * lu(k,1430) - lu(k,1445) = lu(k,1445) - lu(k,1073) * lu(k,1430) - lu(k,1446) = lu(k,1446) - lu(k,1074) * lu(k,1430) - lu(k,1447) = lu(k,1447) - lu(k,1075) * lu(k,1430) - lu(k,1448) = lu(k,1448) - lu(k,1076) * lu(k,1430) - lu(k,1449) = lu(k,1449) - lu(k,1077) * lu(k,1430) - lu(k,1450) = lu(k,1450) - lu(k,1078) * lu(k,1430) - lu(k,1451) = lu(k,1451) - lu(k,1079) * lu(k,1430) - lu(k,1452) = lu(k,1452) - lu(k,1080) * lu(k,1430) - lu(k,1453) = lu(k,1453) - lu(k,1081) * lu(k,1430) - lu(k,1479) = lu(k,1479) - lu(k,1059) * lu(k,1478) - lu(k,1480) = lu(k,1480) - lu(k,1060) * lu(k,1478) - lu(k,1481) = lu(k,1481) - lu(k,1061) * lu(k,1478) - lu(k,1482) = lu(k,1482) - lu(k,1062) * lu(k,1478) - lu(k,1483) = lu(k,1483) - lu(k,1063) * lu(k,1478) - lu(k,1484) = lu(k,1484) - lu(k,1064) * lu(k,1478) - lu(k,1485) = lu(k,1485) - lu(k,1065) * lu(k,1478) - lu(k,1486) = lu(k,1486) - lu(k,1066) * lu(k,1478) - lu(k,1487) = lu(k,1487) - lu(k,1067) * lu(k,1478) - lu(k,1488) = lu(k,1488) - lu(k,1068) * lu(k,1478) - lu(k,1489) = lu(k,1489) - lu(k,1069) * lu(k,1478) - lu(k,1490) = lu(k,1490) - lu(k,1070) * lu(k,1478) - lu(k,1491) = lu(k,1491) - lu(k,1071) * lu(k,1478) - lu(k,1492) = lu(k,1492) - lu(k,1072) * lu(k,1478) - lu(k,1493) = lu(k,1493) - lu(k,1073) * lu(k,1478) - lu(k,1494) = lu(k,1494) - lu(k,1074) * lu(k,1478) - lu(k,1495) = lu(k,1495) - lu(k,1075) * lu(k,1478) - lu(k,1496) = lu(k,1496) - lu(k,1076) * lu(k,1478) - lu(k,1497) = lu(k,1497) - lu(k,1077) * lu(k,1478) - lu(k,1498) = lu(k,1498) - lu(k,1078) * lu(k,1478) - lu(k,1499) = lu(k,1499) - lu(k,1079) * lu(k,1478) - lu(k,1500) = lu(k,1500) - lu(k,1080) * lu(k,1478) - lu(k,1501) = lu(k,1501) - lu(k,1081) * lu(k,1478) - lu(k,1520) = lu(k,1520) - lu(k,1059) * lu(k,1519) - lu(k,1521) = lu(k,1521) - lu(k,1060) * lu(k,1519) - lu(k,1522) = lu(k,1522) - lu(k,1061) * lu(k,1519) - lu(k,1523) = lu(k,1523) - lu(k,1062) * lu(k,1519) - lu(k,1524) = lu(k,1524) - lu(k,1063) * lu(k,1519) - lu(k,1525) = lu(k,1525) - lu(k,1064) * lu(k,1519) - lu(k,1526) = lu(k,1526) - lu(k,1065) * lu(k,1519) - lu(k,1527) = lu(k,1527) - lu(k,1066) * lu(k,1519) - lu(k,1528) = lu(k,1528) - lu(k,1067) * lu(k,1519) - lu(k,1529) = lu(k,1529) - lu(k,1068) * lu(k,1519) - lu(k,1530) = lu(k,1530) - lu(k,1069) * lu(k,1519) - lu(k,1531) = lu(k,1531) - lu(k,1070) * lu(k,1519) - lu(k,1532) = lu(k,1532) - lu(k,1071) * lu(k,1519) - lu(k,1533) = lu(k,1533) - lu(k,1072) * lu(k,1519) - lu(k,1534) = lu(k,1534) - lu(k,1073) * lu(k,1519) - lu(k,1535) = lu(k,1535) - lu(k,1074) * lu(k,1519) - lu(k,1536) = lu(k,1536) - lu(k,1075) * lu(k,1519) - lu(k,1537) = lu(k,1537) - lu(k,1076) * lu(k,1519) - lu(k,1538) = lu(k,1538) - lu(k,1077) * lu(k,1519) - lu(k,1539) = lu(k,1539) - lu(k,1078) * lu(k,1519) - lu(k,1540) = lu(k,1540) - lu(k,1079) * lu(k,1519) - lu(k,1541) = lu(k,1541) - lu(k,1080) * lu(k,1519) - lu(k,1542) = lu(k,1542) - lu(k,1081) * lu(k,1519) - lu(k,1556) = lu(k,1556) - lu(k,1059) * lu(k,1555) - lu(k,1557) = lu(k,1557) - lu(k,1060) * lu(k,1555) - lu(k,1558) = lu(k,1558) - lu(k,1061) * lu(k,1555) - lu(k,1559) = lu(k,1559) - lu(k,1062) * lu(k,1555) - lu(k,1560) = lu(k,1560) - lu(k,1063) * lu(k,1555) - lu(k,1561) = lu(k,1561) - lu(k,1064) * lu(k,1555) - lu(k,1562) = lu(k,1562) - lu(k,1065) * lu(k,1555) - lu(k,1563) = lu(k,1563) - lu(k,1066) * lu(k,1555) - lu(k,1564) = lu(k,1564) - lu(k,1067) * lu(k,1555) - lu(k,1565) = lu(k,1565) - lu(k,1068) * lu(k,1555) - lu(k,1566) = lu(k,1566) - lu(k,1069) * lu(k,1555) - lu(k,1567) = lu(k,1567) - lu(k,1070) * lu(k,1555) - lu(k,1568) = lu(k,1568) - lu(k,1071) * lu(k,1555) - lu(k,1569) = lu(k,1569) - lu(k,1072) * lu(k,1555) - lu(k,1570) = lu(k,1570) - lu(k,1073) * lu(k,1555) - lu(k,1571) = lu(k,1571) - lu(k,1074) * lu(k,1555) - lu(k,1572) = lu(k,1572) - lu(k,1075) * lu(k,1555) - lu(k,1573) = lu(k,1573) - lu(k,1076) * lu(k,1555) - lu(k,1574) = lu(k,1574) - lu(k,1077) * lu(k,1555) - lu(k,1575) = lu(k,1575) - lu(k,1078) * lu(k,1555) - lu(k,1576) = lu(k,1576) - lu(k,1079) * lu(k,1555) - lu(k,1577) = lu(k,1577) - lu(k,1080) * lu(k,1555) - lu(k,1578) = lu(k,1578) - lu(k,1081) * lu(k,1555) - lu(k,1601) = lu(k,1601) - lu(k,1059) * lu(k,1600) - lu(k,1602) = lu(k,1602) - lu(k,1060) * lu(k,1600) - lu(k,1603) = lu(k,1603) - lu(k,1061) * lu(k,1600) - lu(k,1604) = lu(k,1604) - lu(k,1062) * lu(k,1600) - lu(k,1605) = lu(k,1605) - lu(k,1063) * lu(k,1600) - lu(k,1606) = lu(k,1606) - lu(k,1064) * lu(k,1600) - lu(k,1607) = lu(k,1607) - lu(k,1065) * lu(k,1600) - lu(k,1608) = lu(k,1608) - lu(k,1066) * lu(k,1600) - lu(k,1609) = lu(k,1609) - lu(k,1067) * lu(k,1600) - lu(k,1610) = lu(k,1610) - lu(k,1068) * lu(k,1600) - lu(k,1611) = lu(k,1611) - lu(k,1069) * lu(k,1600) - lu(k,1612) = lu(k,1612) - lu(k,1070) * lu(k,1600) - lu(k,1613) = lu(k,1613) - lu(k,1071) * lu(k,1600) - lu(k,1614) = lu(k,1614) - lu(k,1072) * lu(k,1600) - lu(k,1615) = lu(k,1615) - lu(k,1073) * lu(k,1600) - lu(k,1616) = lu(k,1616) - lu(k,1074) * lu(k,1600) - lu(k,1617) = lu(k,1617) - lu(k,1075) * lu(k,1600) - lu(k,1618) = lu(k,1618) - lu(k,1076) * lu(k,1600) - lu(k,1619) = lu(k,1619) - lu(k,1077) * lu(k,1600) - lu(k,1620) = lu(k,1620) - lu(k,1078) * lu(k,1600) - lu(k,1621) = lu(k,1621) - lu(k,1079) * lu(k,1600) - lu(k,1622) = lu(k,1622) - lu(k,1080) * lu(k,1600) - lu(k,1623) = lu(k,1623) - lu(k,1081) * lu(k,1600) - lu(k,1644) = lu(k,1644) - lu(k,1059) * lu(k,1643) - lu(k,1645) = lu(k,1645) - lu(k,1060) * lu(k,1643) - lu(k,1646) = lu(k,1646) - lu(k,1061) * lu(k,1643) - lu(k,1647) = lu(k,1647) - lu(k,1062) * lu(k,1643) - lu(k,1648) = lu(k,1648) - lu(k,1063) * lu(k,1643) - lu(k,1649) = lu(k,1649) - lu(k,1064) * lu(k,1643) - lu(k,1650) = lu(k,1650) - lu(k,1065) * lu(k,1643) - lu(k,1651) = lu(k,1651) - lu(k,1066) * lu(k,1643) - lu(k,1652) = lu(k,1652) - lu(k,1067) * lu(k,1643) - lu(k,1653) = lu(k,1653) - lu(k,1068) * lu(k,1643) - lu(k,1654) = lu(k,1654) - lu(k,1069) * lu(k,1643) - lu(k,1655) = lu(k,1655) - lu(k,1070) * lu(k,1643) - lu(k,1656) = lu(k,1656) - lu(k,1071) * lu(k,1643) - lu(k,1657) = lu(k,1657) - lu(k,1072) * lu(k,1643) - lu(k,1658) = lu(k,1658) - lu(k,1073) * lu(k,1643) - lu(k,1659) = lu(k,1659) - lu(k,1074) * lu(k,1643) - lu(k,1660) = lu(k,1660) - lu(k,1075) * lu(k,1643) - lu(k,1661) = lu(k,1661) - lu(k,1076) * lu(k,1643) - lu(k,1662) = lu(k,1662) - lu(k,1077) * lu(k,1643) - lu(k,1663) = lu(k,1663) - lu(k,1078) * lu(k,1643) - lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1643) - lu(k,1665) = lu(k,1665) - lu(k,1080) * lu(k,1643) - lu(k,1666) = lu(k,1666) - lu(k,1081) * lu(k,1643) - lu(k,1687) = lu(k,1687) - lu(k,1059) * lu(k,1686) - lu(k,1688) = lu(k,1688) - lu(k,1060) * lu(k,1686) - lu(k,1689) = lu(k,1689) - lu(k,1061) * lu(k,1686) - lu(k,1690) = lu(k,1690) - lu(k,1062) * lu(k,1686) - lu(k,1691) = lu(k,1691) - lu(k,1063) * lu(k,1686) - lu(k,1692) = lu(k,1692) - lu(k,1064) * lu(k,1686) - lu(k,1693) = lu(k,1693) - lu(k,1065) * lu(k,1686) - lu(k,1694) = lu(k,1694) - lu(k,1066) * lu(k,1686) - lu(k,1695) = lu(k,1695) - lu(k,1067) * lu(k,1686) - lu(k,1696) = lu(k,1696) - lu(k,1068) * lu(k,1686) - lu(k,1697) = lu(k,1697) - lu(k,1069) * lu(k,1686) - lu(k,1698) = lu(k,1698) - lu(k,1070) * lu(k,1686) - lu(k,1699) = lu(k,1699) - lu(k,1071) * lu(k,1686) - lu(k,1700) = lu(k,1700) - lu(k,1072) * lu(k,1686) - lu(k,1701) = lu(k,1701) - lu(k,1073) * lu(k,1686) - lu(k,1702) = lu(k,1702) - lu(k,1074) * lu(k,1686) - lu(k,1703) = lu(k,1703) - lu(k,1075) * lu(k,1686) - lu(k,1704) = lu(k,1704) - lu(k,1076) * lu(k,1686) - lu(k,1705) = lu(k,1705) - lu(k,1077) * lu(k,1686) - lu(k,1706) = lu(k,1706) - lu(k,1078) * lu(k,1686) - lu(k,1707) = lu(k,1707) - lu(k,1079) * lu(k,1686) - lu(k,1708) = lu(k,1708) - lu(k,1080) * lu(k,1686) - lu(k,1709) = lu(k,1709) - lu(k,1081) * lu(k,1686) - lu(k,1727) = lu(k,1727) - lu(k,1059) * lu(k,1726) - lu(k,1728) = lu(k,1728) - lu(k,1060) * lu(k,1726) - lu(k,1729) = lu(k,1729) - lu(k,1061) * lu(k,1726) - lu(k,1730) = lu(k,1730) - lu(k,1062) * lu(k,1726) - lu(k,1731) = lu(k,1731) - lu(k,1063) * lu(k,1726) - lu(k,1732) = lu(k,1732) - lu(k,1064) * lu(k,1726) - lu(k,1733) = lu(k,1733) - lu(k,1065) * lu(k,1726) - lu(k,1734) = lu(k,1734) - lu(k,1066) * lu(k,1726) - lu(k,1735) = lu(k,1735) - lu(k,1067) * lu(k,1726) - lu(k,1736) = lu(k,1736) - lu(k,1068) * lu(k,1726) - lu(k,1737) = lu(k,1737) - lu(k,1069) * lu(k,1726) - lu(k,1738) = lu(k,1738) - lu(k,1070) * lu(k,1726) - lu(k,1739) = lu(k,1739) - lu(k,1071) * lu(k,1726) - lu(k,1740) = lu(k,1740) - lu(k,1072) * lu(k,1726) - lu(k,1741) = lu(k,1741) - lu(k,1073) * lu(k,1726) - lu(k,1742) = lu(k,1742) - lu(k,1074) * lu(k,1726) - lu(k,1743) = lu(k,1743) - lu(k,1075) * lu(k,1726) - lu(k,1744) = lu(k,1744) - lu(k,1076) * lu(k,1726) - lu(k,1745) = lu(k,1745) - lu(k,1077) * lu(k,1726) - lu(k,1746) = lu(k,1746) - lu(k,1078) * lu(k,1726) - lu(k,1747) = lu(k,1747) - lu(k,1079) * lu(k,1726) - lu(k,1748) = lu(k,1748) - lu(k,1080) * lu(k,1726) - lu(k,1749) = lu(k,1749) - lu(k,1081) * lu(k,1726) - lu(k,1763) = lu(k,1763) - lu(k,1059) * lu(k,1762) - lu(k,1764) = lu(k,1764) - lu(k,1060) * lu(k,1762) - lu(k,1765) = lu(k,1765) - lu(k,1061) * lu(k,1762) - lu(k,1766) = lu(k,1766) - lu(k,1062) * lu(k,1762) - lu(k,1767) = lu(k,1767) - lu(k,1063) * lu(k,1762) - lu(k,1768) = lu(k,1768) - lu(k,1064) * lu(k,1762) - lu(k,1769) = lu(k,1769) - lu(k,1065) * lu(k,1762) - lu(k,1770) = lu(k,1770) - lu(k,1066) * lu(k,1762) - lu(k,1771) = lu(k,1771) - lu(k,1067) * lu(k,1762) - lu(k,1772) = lu(k,1772) - lu(k,1068) * lu(k,1762) - lu(k,1773) = lu(k,1773) - lu(k,1069) * lu(k,1762) - lu(k,1774) = lu(k,1774) - lu(k,1070) * lu(k,1762) - lu(k,1775) = lu(k,1775) - lu(k,1071) * lu(k,1762) - lu(k,1776) = lu(k,1776) - lu(k,1072) * lu(k,1762) - lu(k,1777) = lu(k,1777) - lu(k,1073) * lu(k,1762) - lu(k,1778) = lu(k,1778) - lu(k,1074) * lu(k,1762) - lu(k,1779) = lu(k,1779) - lu(k,1075) * lu(k,1762) - lu(k,1780) = lu(k,1780) - lu(k,1076) * lu(k,1762) - lu(k,1781) = lu(k,1781) - lu(k,1077) * lu(k,1762) - lu(k,1782) = lu(k,1782) - lu(k,1078) * lu(k,1762) - lu(k,1783) = lu(k,1783) - lu(k,1079) * lu(k,1762) - lu(k,1784) = lu(k,1784) - lu(k,1080) * lu(k,1762) - lu(k,1785) = lu(k,1785) - lu(k,1081) * lu(k,1762) - lu(k,1811) = lu(k,1811) - lu(k,1059) * lu(k,1810) - lu(k,1812) = lu(k,1812) - lu(k,1060) * lu(k,1810) - lu(k,1813) = lu(k,1813) - lu(k,1061) * lu(k,1810) - lu(k,1814) = lu(k,1814) - lu(k,1062) * lu(k,1810) - lu(k,1815) = lu(k,1815) - lu(k,1063) * lu(k,1810) - lu(k,1816) = lu(k,1816) - lu(k,1064) * lu(k,1810) - lu(k,1817) = lu(k,1817) - lu(k,1065) * lu(k,1810) - lu(k,1818) = lu(k,1818) - lu(k,1066) * lu(k,1810) - lu(k,1819) = lu(k,1819) - lu(k,1067) * lu(k,1810) - lu(k,1820) = lu(k,1820) - lu(k,1068) * lu(k,1810) - lu(k,1821) = lu(k,1821) - lu(k,1069) * lu(k,1810) - lu(k,1822) = lu(k,1822) - lu(k,1070) * lu(k,1810) - lu(k,1823) = lu(k,1823) - lu(k,1071) * lu(k,1810) - lu(k,1824) = lu(k,1824) - lu(k,1072) * lu(k,1810) - lu(k,1825) = lu(k,1825) - lu(k,1073) * lu(k,1810) - lu(k,1826) = lu(k,1826) - lu(k,1074) * lu(k,1810) - lu(k,1827) = lu(k,1827) - lu(k,1075) * lu(k,1810) - lu(k,1828) = lu(k,1828) - lu(k,1076) * lu(k,1810) - lu(k,1829) = lu(k,1829) - lu(k,1077) * lu(k,1810) - lu(k,1830) = lu(k,1830) - lu(k,1078) * lu(k,1810) - lu(k,1831) = lu(k,1831) - lu(k,1079) * lu(k,1810) - lu(k,1832) = lu(k,1832) - lu(k,1080) * lu(k,1810) - lu(k,1833) = lu(k,1833) - lu(k,1081) * lu(k,1810) - lu(k,1844) = lu(k,1844) - lu(k,1059) * lu(k,1843) - lu(k,1845) = lu(k,1845) - lu(k,1060) * lu(k,1843) - lu(k,1846) = lu(k,1846) - lu(k,1061) * lu(k,1843) - lu(k,1847) = lu(k,1847) - lu(k,1062) * lu(k,1843) - lu(k,1848) = lu(k,1848) - lu(k,1063) * lu(k,1843) - lu(k,1849) = lu(k,1849) - lu(k,1064) * lu(k,1843) - lu(k,1850) = lu(k,1850) - lu(k,1065) * lu(k,1843) - lu(k,1851) = lu(k,1851) - lu(k,1066) * lu(k,1843) - lu(k,1852) = lu(k,1852) - lu(k,1067) * lu(k,1843) - lu(k,1853) = lu(k,1853) - lu(k,1068) * lu(k,1843) - lu(k,1854) = lu(k,1854) - lu(k,1069) * lu(k,1843) - lu(k,1855) = lu(k,1855) - lu(k,1070) * lu(k,1843) - lu(k,1856) = lu(k,1856) - lu(k,1071) * lu(k,1843) - lu(k,1857) = lu(k,1857) - lu(k,1072) * lu(k,1843) - lu(k,1858) = lu(k,1858) - lu(k,1073) * lu(k,1843) - lu(k,1859) = lu(k,1859) - lu(k,1074) * lu(k,1843) - lu(k,1860) = lu(k,1860) - lu(k,1075) * lu(k,1843) - lu(k,1861) = lu(k,1861) - lu(k,1076) * lu(k,1843) - lu(k,1862) = lu(k,1862) - lu(k,1077) * lu(k,1843) - lu(k,1863) = lu(k,1863) - lu(k,1078) * lu(k,1843) - lu(k,1864) = lu(k,1864) - lu(k,1079) * lu(k,1843) - lu(k,1865) = lu(k,1865) - lu(k,1080) * lu(k,1843) - lu(k,1866) = lu(k,1866) - lu(k,1081) * lu(k,1843) - lu(k,1880) = lu(k,1880) - lu(k,1059) * lu(k,1879) - lu(k,1881) = lu(k,1881) - lu(k,1060) * lu(k,1879) - lu(k,1882) = lu(k,1882) - lu(k,1061) * lu(k,1879) - lu(k,1883) = lu(k,1883) - lu(k,1062) * lu(k,1879) - lu(k,1884) = lu(k,1884) - lu(k,1063) * lu(k,1879) - lu(k,1885) = lu(k,1885) - lu(k,1064) * lu(k,1879) - lu(k,1886) = lu(k,1886) - lu(k,1065) * lu(k,1879) - lu(k,1887) = lu(k,1887) - lu(k,1066) * lu(k,1879) - lu(k,1888) = lu(k,1888) - lu(k,1067) * lu(k,1879) - lu(k,1889) = lu(k,1889) - lu(k,1068) * lu(k,1879) - lu(k,1890) = lu(k,1890) - lu(k,1069) * lu(k,1879) - lu(k,1891) = lu(k,1891) - lu(k,1070) * lu(k,1879) - lu(k,1892) = lu(k,1892) - lu(k,1071) * lu(k,1879) - lu(k,1893) = lu(k,1893) - lu(k,1072) * lu(k,1879) - lu(k,1894) = lu(k,1894) - lu(k,1073) * lu(k,1879) - lu(k,1895) = lu(k,1895) - lu(k,1074) * lu(k,1879) - lu(k,1896) = lu(k,1896) - lu(k,1075) * lu(k,1879) - lu(k,1897) = lu(k,1897) - lu(k,1076) * lu(k,1879) - lu(k,1898) = lu(k,1898) - lu(k,1077) * lu(k,1879) - lu(k,1899) = lu(k,1899) - lu(k,1078) * lu(k,1879) - lu(k,1900) = lu(k,1900) - lu(k,1079) * lu(k,1879) - lu(k,1901) = lu(k,1901) - lu(k,1080) * lu(k,1879) - lu(k,1902) = lu(k,1902) - lu(k,1081) * lu(k,1879) - lu(k,1921) = lu(k,1921) - lu(k,1059) * lu(k,1920) - lu(k,1922) = lu(k,1922) - lu(k,1060) * lu(k,1920) - lu(k,1923) = lu(k,1923) - lu(k,1061) * lu(k,1920) - lu(k,1924) = lu(k,1924) - lu(k,1062) * lu(k,1920) - lu(k,1925) = lu(k,1925) - lu(k,1063) * lu(k,1920) - lu(k,1926) = lu(k,1926) - lu(k,1064) * lu(k,1920) - lu(k,1927) = lu(k,1927) - lu(k,1065) * lu(k,1920) - lu(k,1928) = lu(k,1928) - lu(k,1066) * lu(k,1920) - lu(k,1929) = lu(k,1929) - lu(k,1067) * lu(k,1920) - lu(k,1930) = lu(k,1930) - lu(k,1068) * lu(k,1920) - lu(k,1931) = lu(k,1931) - lu(k,1069) * lu(k,1920) - lu(k,1932) = lu(k,1932) - lu(k,1070) * lu(k,1920) - lu(k,1933) = lu(k,1933) - lu(k,1071) * lu(k,1920) - lu(k,1934) = lu(k,1934) - lu(k,1072) * lu(k,1920) - lu(k,1935) = lu(k,1935) - lu(k,1073) * lu(k,1920) - lu(k,1936) = lu(k,1936) - lu(k,1074) * lu(k,1920) - lu(k,1937) = lu(k,1937) - lu(k,1075) * lu(k,1920) - lu(k,1938) = lu(k,1938) - lu(k,1076) * lu(k,1920) - lu(k,1939) = lu(k,1939) - lu(k,1077) * lu(k,1920) - lu(k,1940) = lu(k,1940) - lu(k,1078) * lu(k,1920) - lu(k,1941) = lu(k,1941) - lu(k,1079) * lu(k,1920) - lu(k,1942) = lu(k,1942) - lu(k,1080) * lu(k,1920) - lu(k,1943) = lu(k,1943) - lu(k,1081) * lu(k,1920) - lu(k,1963) = lu(k,1963) - lu(k,1059) * lu(k,1962) - lu(k,1964) = lu(k,1964) - lu(k,1060) * lu(k,1962) - lu(k,1965) = lu(k,1965) - lu(k,1061) * lu(k,1962) - lu(k,1966) = lu(k,1966) - lu(k,1062) * lu(k,1962) - lu(k,1967) = lu(k,1967) - lu(k,1063) * lu(k,1962) - lu(k,1968) = lu(k,1968) - lu(k,1064) * lu(k,1962) - lu(k,1969) = lu(k,1969) - lu(k,1065) * lu(k,1962) - lu(k,1970) = lu(k,1970) - lu(k,1066) * lu(k,1962) - lu(k,1971) = lu(k,1971) - lu(k,1067) * lu(k,1962) - lu(k,1972) = lu(k,1972) - lu(k,1068) * lu(k,1962) - lu(k,1973) = lu(k,1973) - lu(k,1069) * lu(k,1962) - lu(k,1974) = lu(k,1974) - lu(k,1070) * lu(k,1962) - lu(k,1975) = lu(k,1975) - lu(k,1071) * lu(k,1962) - lu(k,1976) = lu(k,1976) - lu(k,1072) * lu(k,1962) - lu(k,1977) = lu(k,1977) - lu(k,1073) * lu(k,1962) - lu(k,1978) = lu(k,1978) - lu(k,1074) * lu(k,1962) - lu(k,1979) = lu(k,1979) - lu(k,1075) * lu(k,1962) - lu(k,1980) = lu(k,1980) - lu(k,1076) * lu(k,1962) - lu(k,1981) = lu(k,1981) - lu(k,1077) * lu(k,1962) - lu(k,1982) = lu(k,1982) - lu(k,1078) * lu(k,1962) - lu(k,1983) = lu(k,1983) - lu(k,1079) * lu(k,1962) - lu(k,1984) = lu(k,1984) - lu(k,1080) * lu(k,1962) - lu(k,1985) = lu(k,1985) - lu(k,1081) * lu(k,1962) - lu(k,2008) = lu(k,2008) - lu(k,1059) * lu(k,2007) - lu(k,2009) = lu(k,2009) - lu(k,1060) * lu(k,2007) - lu(k,2010) = lu(k,2010) - lu(k,1061) * lu(k,2007) - lu(k,2011) = lu(k,2011) - lu(k,1062) * lu(k,2007) - lu(k,2012) = lu(k,2012) - lu(k,1063) * lu(k,2007) - lu(k,2013) = lu(k,2013) - lu(k,1064) * lu(k,2007) - lu(k,2014) = lu(k,2014) - lu(k,1065) * lu(k,2007) - lu(k,2015) = lu(k,2015) - lu(k,1066) * lu(k,2007) - lu(k,2016) = lu(k,2016) - lu(k,1067) * lu(k,2007) - lu(k,2017) = lu(k,2017) - lu(k,1068) * lu(k,2007) - lu(k,2018) = lu(k,2018) - lu(k,1069) * lu(k,2007) - lu(k,2019) = lu(k,2019) - lu(k,1070) * lu(k,2007) - lu(k,2020) = lu(k,2020) - lu(k,1071) * lu(k,2007) - lu(k,2021) = lu(k,2021) - lu(k,1072) * lu(k,2007) - lu(k,2022) = lu(k,2022) - lu(k,1073) * lu(k,2007) - lu(k,2023) = lu(k,2023) - lu(k,1074) * lu(k,2007) - lu(k,2024) = lu(k,2024) - lu(k,1075) * lu(k,2007) - lu(k,2025) = lu(k,2025) - lu(k,1076) * lu(k,2007) - lu(k,2026) = lu(k,2026) - lu(k,1077) * lu(k,2007) - lu(k,2027) = lu(k,2027) - lu(k,1078) * lu(k,2007) - lu(k,2028) = lu(k,2028) - lu(k,1079) * lu(k,2007) - lu(k,2029) = lu(k,2029) - lu(k,1080) * lu(k,2007) - lu(k,2030) = lu(k,2030) - lu(k,1081) * lu(k,2007) - lu(k,2068) = lu(k,2068) - lu(k,1059) * lu(k,2067) - lu(k,2069) = lu(k,2069) - lu(k,1060) * lu(k,2067) - lu(k,2070) = lu(k,2070) - lu(k,1061) * lu(k,2067) - lu(k,2071) = lu(k,2071) - lu(k,1062) * lu(k,2067) - lu(k,2072) = lu(k,2072) - lu(k,1063) * lu(k,2067) - lu(k,2073) = lu(k,2073) - lu(k,1064) * lu(k,2067) - lu(k,2074) = lu(k,2074) - lu(k,1065) * lu(k,2067) - lu(k,2075) = lu(k,2075) - lu(k,1066) * lu(k,2067) - lu(k,2076) = lu(k,2076) - lu(k,1067) * lu(k,2067) - lu(k,2077) = lu(k,2077) - lu(k,1068) * lu(k,2067) - lu(k,2078) = lu(k,2078) - lu(k,1069) * lu(k,2067) - lu(k,2079) = lu(k,2079) - lu(k,1070) * lu(k,2067) - lu(k,2080) = lu(k,2080) - lu(k,1071) * lu(k,2067) - lu(k,2081) = lu(k,2081) - lu(k,1072) * lu(k,2067) - lu(k,2082) = lu(k,2082) - lu(k,1073) * lu(k,2067) - lu(k,2083) = lu(k,2083) - lu(k,1074) * lu(k,2067) - lu(k,2084) = lu(k,2084) - lu(k,1075) * lu(k,2067) - lu(k,2085) = lu(k,2085) - lu(k,1076) * lu(k,2067) - lu(k,2086) = lu(k,2086) - lu(k,1077) * lu(k,2067) - lu(k,2087) = lu(k,2087) - lu(k,1078) * lu(k,2067) - lu(k,2088) = lu(k,2088) - lu(k,1079) * lu(k,2067) - lu(k,2089) = lu(k,2089) - lu(k,1080) * lu(k,2067) - lu(k,2090) = lu(k,2090) - lu(k,1081) * lu(k,2067) + lu(k,1394) = lu(k,1394) - lu(k,997) * lu(k,1379) + lu(k,1395) = lu(k,1395) - lu(k,998) * lu(k,1379) + lu(k,1396) = lu(k,1396) - lu(k,999) * lu(k,1379) + lu(k,1397) = lu(k,1397) - lu(k,1000) * lu(k,1379) + lu(k,1398) = lu(k,1398) - lu(k,1001) * lu(k,1379) + lu(k,1399) = lu(k,1399) - lu(k,1002) * lu(k,1379) + lu(k,1400) = lu(k,1400) - lu(k,1003) * lu(k,1379) + lu(k,1401) = lu(k,1401) - lu(k,1004) * lu(k,1379) + lu(k,1402) = lu(k,1402) - lu(k,1005) * lu(k,1379) + lu(k,1403) = lu(k,1403) - lu(k,1006) * lu(k,1379) + lu(k,1404) = lu(k,1404) - lu(k,1007) * lu(k,1379) + lu(k,1424) = lu(k,1424) - lu(k,987) * lu(k,1422) + lu(k,1425) = lu(k,1425) - lu(k,988) * lu(k,1422) + lu(k,1426) = lu(k,1426) - lu(k,989) * lu(k,1422) + lu(k,1428) = lu(k,1428) - lu(k,990) * lu(k,1422) + lu(k,1430) = lu(k,1430) - lu(k,991) * lu(k,1422) + lu(k,1431) = lu(k,1431) - lu(k,992) * lu(k,1422) + lu(k,1433) = lu(k,1433) - lu(k,993) * lu(k,1422) + lu(k,1434) = lu(k,1434) - lu(k,994) * lu(k,1422) + lu(k,1435) = lu(k,1435) - lu(k,995) * lu(k,1422) + lu(k,1436) = lu(k,1436) - lu(k,996) * lu(k,1422) + lu(k,1437) = lu(k,1437) - lu(k,997) * lu(k,1422) + lu(k,1438) = lu(k,1438) - lu(k,998) * lu(k,1422) + lu(k,1439) = lu(k,1439) - lu(k,999) * lu(k,1422) + lu(k,1440) = lu(k,1440) - lu(k,1000) * lu(k,1422) + lu(k,1441) = lu(k,1441) - lu(k,1001) * lu(k,1422) + lu(k,1442) = lu(k,1442) - lu(k,1002) * lu(k,1422) + lu(k,1443) = lu(k,1443) - lu(k,1003) * lu(k,1422) + lu(k,1444) = lu(k,1444) - lu(k,1004) * lu(k,1422) + lu(k,1445) = lu(k,1445) - lu(k,1005) * lu(k,1422) + lu(k,1446) = lu(k,1446) - lu(k,1006) * lu(k,1422) + lu(k,1447) = lu(k,1447) - lu(k,1007) * lu(k,1422) + lu(k,1472) = lu(k,1472) - lu(k,987) * lu(k,1470) + lu(k,1473) = lu(k,1473) - lu(k,988) * lu(k,1470) + lu(k,1474) = lu(k,1474) - lu(k,989) * lu(k,1470) + lu(k,1476) = lu(k,1476) - lu(k,990) * lu(k,1470) + lu(k,1478) = lu(k,1478) - lu(k,991) * lu(k,1470) + lu(k,1479) = lu(k,1479) - lu(k,992) * lu(k,1470) + lu(k,1481) = lu(k,1481) - lu(k,993) * lu(k,1470) + lu(k,1482) = lu(k,1482) - lu(k,994) * lu(k,1470) + lu(k,1483) = lu(k,1483) - lu(k,995) * lu(k,1470) + lu(k,1484) = lu(k,1484) - lu(k,996) * lu(k,1470) + lu(k,1485) = lu(k,1485) - lu(k,997) * lu(k,1470) + lu(k,1486) = lu(k,1486) - lu(k,998) * lu(k,1470) + lu(k,1487) = lu(k,1487) - lu(k,999) * lu(k,1470) + lu(k,1488) = lu(k,1488) - lu(k,1000) * lu(k,1470) + lu(k,1489) = lu(k,1489) - lu(k,1001) * lu(k,1470) + lu(k,1490) = lu(k,1490) - lu(k,1002) * lu(k,1470) + lu(k,1491) = lu(k,1491) - lu(k,1003) * lu(k,1470) + lu(k,1492) = lu(k,1492) - lu(k,1004) * lu(k,1470) + lu(k,1493) = lu(k,1493) - lu(k,1005) * lu(k,1470) + lu(k,1494) = lu(k,1494) - lu(k,1006) * lu(k,1470) + lu(k,1495) = lu(k,1495) - lu(k,1007) * lu(k,1470) + lu(k,1513) = lu(k,1513) - lu(k,987) * lu(k,1511) + lu(k,1514) = lu(k,1514) - lu(k,988) * lu(k,1511) + lu(k,1515) = lu(k,1515) - lu(k,989) * lu(k,1511) + lu(k,1517) = lu(k,1517) - lu(k,990) * lu(k,1511) + lu(k,1519) = lu(k,1519) - lu(k,991) * lu(k,1511) + lu(k,1520) = lu(k,1520) - lu(k,992) * lu(k,1511) + lu(k,1522) = lu(k,1522) - lu(k,993) * lu(k,1511) + lu(k,1523) = lu(k,1523) - lu(k,994) * lu(k,1511) + lu(k,1524) = lu(k,1524) - lu(k,995) * lu(k,1511) + lu(k,1525) = lu(k,1525) - lu(k,996) * lu(k,1511) + lu(k,1526) = lu(k,1526) - lu(k,997) * lu(k,1511) + lu(k,1527) = lu(k,1527) - lu(k,998) * lu(k,1511) + lu(k,1528) = lu(k,1528) - lu(k,999) * lu(k,1511) + lu(k,1529) = lu(k,1529) - lu(k,1000) * lu(k,1511) + lu(k,1530) = lu(k,1530) - lu(k,1001) * lu(k,1511) + lu(k,1531) = lu(k,1531) - lu(k,1002) * lu(k,1511) + lu(k,1532) = lu(k,1532) - lu(k,1003) * lu(k,1511) + lu(k,1533) = lu(k,1533) - lu(k,1004) * lu(k,1511) + lu(k,1534) = lu(k,1534) - lu(k,1005) * lu(k,1511) + lu(k,1535) = lu(k,1535) - lu(k,1006) * lu(k,1511) + lu(k,1536) = lu(k,1536) - lu(k,1007) * lu(k,1511) + lu(k,1549) = lu(k,1549) - lu(k,987) * lu(k,1547) + lu(k,1550) = lu(k,1550) - lu(k,988) * lu(k,1547) + lu(k,1551) = lu(k,1551) - lu(k,989) * lu(k,1547) + lu(k,1553) = lu(k,1553) - lu(k,990) * lu(k,1547) + lu(k,1555) = lu(k,1555) - lu(k,991) * lu(k,1547) + lu(k,1556) = lu(k,1556) - lu(k,992) * lu(k,1547) + lu(k,1558) = lu(k,1558) - lu(k,993) * lu(k,1547) + lu(k,1559) = lu(k,1559) - lu(k,994) * lu(k,1547) + lu(k,1560) = lu(k,1560) - lu(k,995) * lu(k,1547) + lu(k,1561) = lu(k,1561) - lu(k,996) * lu(k,1547) + lu(k,1562) = lu(k,1562) - lu(k,997) * lu(k,1547) + lu(k,1563) = lu(k,1563) - lu(k,998) * lu(k,1547) + lu(k,1564) = lu(k,1564) - lu(k,999) * lu(k,1547) + lu(k,1565) = lu(k,1565) - lu(k,1000) * lu(k,1547) + lu(k,1566) = lu(k,1566) - lu(k,1001) * lu(k,1547) + lu(k,1567) = lu(k,1567) - lu(k,1002) * lu(k,1547) + lu(k,1568) = lu(k,1568) - lu(k,1003) * lu(k,1547) + lu(k,1569) = lu(k,1569) - lu(k,1004) * lu(k,1547) + lu(k,1570) = lu(k,1570) - lu(k,1005) * lu(k,1547) + lu(k,1571) = lu(k,1571) - lu(k,1006) * lu(k,1547) + lu(k,1572) = lu(k,1572) - lu(k,1007) * lu(k,1547) + lu(k,1594) = lu(k,1594) - lu(k,987) * lu(k,1592) + lu(k,1595) = lu(k,1595) - lu(k,988) * lu(k,1592) + lu(k,1596) = lu(k,1596) - lu(k,989) * lu(k,1592) + lu(k,1598) = lu(k,1598) - lu(k,990) * lu(k,1592) + lu(k,1600) = lu(k,1600) - lu(k,991) * lu(k,1592) + lu(k,1601) = lu(k,1601) - lu(k,992) * lu(k,1592) + lu(k,1603) = lu(k,1603) - lu(k,993) * lu(k,1592) + lu(k,1604) = lu(k,1604) - lu(k,994) * lu(k,1592) + lu(k,1605) = lu(k,1605) - lu(k,995) * lu(k,1592) + lu(k,1606) = lu(k,1606) - lu(k,996) * lu(k,1592) + lu(k,1607) = lu(k,1607) - lu(k,997) * lu(k,1592) + lu(k,1608) = lu(k,1608) - lu(k,998) * lu(k,1592) + lu(k,1609) = lu(k,1609) - lu(k,999) * lu(k,1592) + lu(k,1610) = lu(k,1610) - lu(k,1000) * lu(k,1592) + lu(k,1611) = lu(k,1611) - lu(k,1001) * lu(k,1592) + lu(k,1612) = lu(k,1612) - lu(k,1002) * lu(k,1592) + lu(k,1613) = lu(k,1613) - lu(k,1003) * lu(k,1592) + lu(k,1614) = lu(k,1614) - lu(k,1004) * lu(k,1592) + lu(k,1615) = lu(k,1615) - lu(k,1005) * lu(k,1592) + lu(k,1616) = lu(k,1616) - lu(k,1006) * lu(k,1592) + lu(k,1617) = lu(k,1617) - lu(k,1007) * lu(k,1592) + lu(k,1637) = lu(k,1637) - lu(k,987) * lu(k,1635) + lu(k,1638) = lu(k,1638) - lu(k,988) * lu(k,1635) + lu(k,1639) = lu(k,1639) - lu(k,989) * lu(k,1635) + lu(k,1641) = lu(k,1641) - lu(k,990) * lu(k,1635) + lu(k,1643) = lu(k,1643) - lu(k,991) * lu(k,1635) + lu(k,1644) = lu(k,1644) - lu(k,992) * lu(k,1635) + lu(k,1646) = lu(k,1646) - lu(k,993) * lu(k,1635) + lu(k,1647) = lu(k,1647) - lu(k,994) * lu(k,1635) + lu(k,1648) = lu(k,1648) - lu(k,995) * lu(k,1635) + lu(k,1649) = lu(k,1649) - lu(k,996) * lu(k,1635) + lu(k,1650) = lu(k,1650) - lu(k,997) * lu(k,1635) + lu(k,1651) = lu(k,1651) - lu(k,998) * lu(k,1635) + lu(k,1652) = lu(k,1652) - lu(k,999) * lu(k,1635) + lu(k,1653) = lu(k,1653) - lu(k,1000) * lu(k,1635) + lu(k,1654) = lu(k,1654) - lu(k,1001) * lu(k,1635) + lu(k,1655) = lu(k,1655) - lu(k,1002) * lu(k,1635) + lu(k,1656) = lu(k,1656) - lu(k,1003) * lu(k,1635) + lu(k,1657) = lu(k,1657) - lu(k,1004) * lu(k,1635) + lu(k,1658) = lu(k,1658) - lu(k,1005) * lu(k,1635) + lu(k,1659) = lu(k,1659) - lu(k,1006) * lu(k,1635) + lu(k,1660) = lu(k,1660) - lu(k,1007) * lu(k,1635) + lu(k,1679) = lu(k,1679) - lu(k,987) * lu(k,1677) + lu(k,1680) = lu(k,1680) - lu(k,988) * lu(k,1677) + lu(k,1681) = lu(k,1681) - lu(k,989) * lu(k,1677) + lu(k,1683) = lu(k,1683) - lu(k,990) * lu(k,1677) + lu(k,1685) = lu(k,1685) - lu(k,991) * lu(k,1677) + lu(k,1686) = lu(k,1686) - lu(k,992) * lu(k,1677) + lu(k,1688) = lu(k,1688) - lu(k,993) * lu(k,1677) + lu(k,1689) = lu(k,1689) - lu(k,994) * lu(k,1677) + lu(k,1690) = lu(k,1690) - lu(k,995) * lu(k,1677) + lu(k,1691) = lu(k,1691) - lu(k,996) * lu(k,1677) + lu(k,1692) = lu(k,1692) - lu(k,997) * lu(k,1677) + lu(k,1693) = lu(k,1693) - lu(k,998) * lu(k,1677) + lu(k,1694) = lu(k,1694) - lu(k,999) * lu(k,1677) + lu(k,1695) = lu(k,1695) - lu(k,1000) * lu(k,1677) + lu(k,1696) = lu(k,1696) - lu(k,1001) * lu(k,1677) + lu(k,1697) = lu(k,1697) - lu(k,1002) * lu(k,1677) + lu(k,1698) = lu(k,1698) - lu(k,1003) * lu(k,1677) + lu(k,1699) = lu(k,1699) - lu(k,1004) * lu(k,1677) + lu(k,1700) = lu(k,1700) - lu(k,1005) * lu(k,1677) + lu(k,1701) = lu(k,1701) - lu(k,1006) * lu(k,1677) + lu(k,1702) = lu(k,1702) - lu(k,1007) * lu(k,1677) + lu(k,1719) = lu(k,1719) - lu(k,987) * lu(k,1718) + lu(k,1720) = lu(k,1720) - lu(k,988) * lu(k,1718) + lu(k,1721) = lu(k,1721) - lu(k,989) * lu(k,1718) + lu(k,1723) = lu(k,1723) - lu(k,990) * lu(k,1718) + lu(k,1725) = lu(k,1725) - lu(k,991) * lu(k,1718) + lu(k,1726) = lu(k,1726) - lu(k,992) * lu(k,1718) + lu(k,1728) = lu(k,1728) - lu(k,993) * lu(k,1718) + lu(k,1729) = lu(k,1729) - lu(k,994) * lu(k,1718) + lu(k,1730) = lu(k,1730) - lu(k,995) * lu(k,1718) + lu(k,1731) = lu(k,1731) - lu(k,996) * lu(k,1718) + lu(k,1732) = lu(k,1732) - lu(k,997) * lu(k,1718) + lu(k,1733) = lu(k,1733) - lu(k,998) * lu(k,1718) + lu(k,1734) = lu(k,1734) - lu(k,999) * lu(k,1718) + lu(k,1735) = lu(k,1735) - lu(k,1000) * lu(k,1718) + lu(k,1736) = lu(k,1736) - lu(k,1001) * lu(k,1718) + lu(k,1737) = lu(k,1737) - lu(k,1002) * lu(k,1718) + lu(k,1738) = lu(k,1738) - lu(k,1003) * lu(k,1718) + lu(k,1739) = lu(k,1739) - lu(k,1004) * lu(k,1718) + lu(k,1740) = lu(k,1740) - lu(k,1005) * lu(k,1718) + lu(k,1741) = lu(k,1741) - lu(k,1006) * lu(k,1718) + lu(k,1742) = lu(k,1742) - lu(k,1007) * lu(k,1718) + lu(k,1755) = lu(k,1755) - lu(k,987) * lu(k,1753) + lu(k,1756) = lu(k,1756) - lu(k,988) * lu(k,1753) + lu(k,1757) = lu(k,1757) - lu(k,989) * lu(k,1753) + lu(k,1759) = lu(k,1759) - lu(k,990) * lu(k,1753) + lu(k,1761) = lu(k,1761) - lu(k,991) * lu(k,1753) + lu(k,1762) = lu(k,1762) - lu(k,992) * lu(k,1753) + lu(k,1764) = lu(k,1764) - lu(k,993) * lu(k,1753) + lu(k,1765) = lu(k,1765) - lu(k,994) * lu(k,1753) + lu(k,1766) = lu(k,1766) - lu(k,995) * lu(k,1753) + lu(k,1767) = lu(k,1767) - lu(k,996) * lu(k,1753) + lu(k,1768) = lu(k,1768) - lu(k,997) * lu(k,1753) + lu(k,1769) = lu(k,1769) - lu(k,998) * lu(k,1753) + lu(k,1770) = lu(k,1770) - lu(k,999) * lu(k,1753) + lu(k,1771) = lu(k,1771) - lu(k,1000) * lu(k,1753) + lu(k,1772) = lu(k,1772) - lu(k,1001) * lu(k,1753) + lu(k,1773) = lu(k,1773) - lu(k,1002) * lu(k,1753) + lu(k,1774) = lu(k,1774) - lu(k,1003) * lu(k,1753) + lu(k,1775) = lu(k,1775) - lu(k,1004) * lu(k,1753) + lu(k,1776) = lu(k,1776) - lu(k,1005) * lu(k,1753) + lu(k,1777) = lu(k,1777) - lu(k,1006) * lu(k,1753) + lu(k,1778) = lu(k,1778) - lu(k,1007) * lu(k,1753) + lu(k,1803) = lu(k,1803) - lu(k,987) * lu(k,1801) + lu(k,1804) = lu(k,1804) - lu(k,988) * lu(k,1801) + lu(k,1805) = lu(k,1805) - lu(k,989) * lu(k,1801) + lu(k,1807) = lu(k,1807) - lu(k,990) * lu(k,1801) + lu(k,1809) = lu(k,1809) - lu(k,991) * lu(k,1801) + lu(k,1810) = lu(k,1810) - lu(k,992) * lu(k,1801) + lu(k,1812) = lu(k,1812) - lu(k,993) * lu(k,1801) + lu(k,1813) = lu(k,1813) - lu(k,994) * lu(k,1801) + lu(k,1814) = lu(k,1814) - lu(k,995) * lu(k,1801) + lu(k,1815) = lu(k,1815) - lu(k,996) * lu(k,1801) + lu(k,1816) = lu(k,1816) - lu(k,997) * lu(k,1801) + lu(k,1817) = lu(k,1817) - lu(k,998) * lu(k,1801) + lu(k,1818) = lu(k,1818) - lu(k,999) * lu(k,1801) + lu(k,1819) = lu(k,1819) - lu(k,1000) * lu(k,1801) + lu(k,1820) = lu(k,1820) - lu(k,1001) * lu(k,1801) + lu(k,1821) = lu(k,1821) - lu(k,1002) * lu(k,1801) + lu(k,1822) = lu(k,1822) - lu(k,1003) * lu(k,1801) + lu(k,1823) = lu(k,1823) - lu(k,1004) * lu(k,1801) + lu(k,1824) = lu(k,1824) - lu(k,1005) * lu(k,1801) + lu(k,1825) = lu(k,1825) - lu(k,1006) * lu(k,1801) + lu(k,1826) = lu(k,1826) - lu(k,1007) * lu(k,1801) + lu(k,1836) = lu(k,1836) - lu(k,987) * lu(k,1834) + lu(k,1837) = lu(k,1837) - lu(k,988) * lu(k,1834) + lu(k,1838) = lu(k,1838) - lu(k,989) * lu(k,1834) + lu(k,1840) = lu(k,1840) - lu(k,990) * lu(k,1834) + lu(k,1842) = lu(k,1842) - lu(k,991) * lu(k,1834) + lu(k,1843) = lu(k,1843) - lu(k,992) * lu(k,1834) + lu(k,1845) = lu(k,1845) - lu(k,993) * lu(k,1834) + lu(k,1846) = lu(k,1846) - lu(k,994) * lu(k,1834) + lu(k,1847) = lu(k,1847) - lu(k,995) * lu(k,1834) + lu(k,1848) = lu(k,1848) - lu(k,996) * lu(k,1834) + lu(k,1849) = lu(k,1849) - lu(k,997) * lu(k,1834) + lu(k,1850) = lu(k,1850) - lu(k,998) * lu(k,1834) + lu(k,1851) = lu(k,1851) - lu(k,999) * lu(k,1834) + lu(k,1852) = lu(k,1852) - lu(k,1000) * lu(k,1834) + lu(k,1853) = lu(k,1853) - lu(k,1001) * lu(k,1834) + lu(k,1854) = lu(k,1854) - lu(k,1002) * lu(k,1834) + lu(k,1855) = lu(k,1855) - lu(k,1003) * lu(k,1834) + lu(k,1856) = lu(k,1856) - lu(k,1004) * lu(k,1834) + lu(k,1857) = lu(k,1857) - lu(k,1005) * lu(k,1834) + lu(k,1858) = lu(k,1858) - lu(k,1006) * lu(k,1834) + lu(k,1859) = lu(k,1859) - lu(k,1007) * lu(k,1834) + lu(k,1872) = lu(k,1872) - lu(k,987) * lu(k,1870) + lu(k,1873) = lu(k,1873) - lu(k,988) * lu(k,1870) + lu(k,1874) = lu(k,1874) - lu(k,989) * lu(k,1870) + lu(k,1876) = lu(k,1876) - lu(k,990) * lu(k,1870) + lu(k,1878) = lu(k,1878) - lu(k,991) * lu(k,1870) + lu(k,1879) = lu(k,1879) - lu(k,992) * lu(k,1870) + lu(k,1881) = lu(k,1881) - lu(k,993) * lu(k,1870) + lu(k,1882) = lu(k,1882) - lu(k,994) * lu(k,1870) + lu(k,1883) = lu(k,1883) - lu(k,995) * lu(k,1870) + lu(k,1884) = lu(k,1884) - lu(k,996) * lu(k,1870) + lu(k,1885) = lu(k,1885) - lu(k,997) * lu(k,1870) + lu(k,1886) = lu(k,1886) - lu(k,998) * lu(k,1870) + lu(k,1887) = lu(k,1887) - lu(k,999) * lu(k,1870) + lu(k,1888) = lu(k,1888) - lu(k,1000) * lu(k,1870) + lu(k,1889) = lu(k,1889) - lu(k,1001) * lu(k,1870) + lu(k,1890) = lu(k,1890) - lu(k,1002) * lu(k,1870) + lu(k,1891) = lu(k,1891) - lu(k,1003) * lu(k,1870) + lu(k,1892) = lu(k,1892) - lu(k,1004) * lu(k,1870) + lu(k,1893) = lu(k,1893) - lu(k,1005) * lu(k,1870) + lu(k,1894) = lu(k,1894) - lu(k,1006) * lu(k,1870) + lu(k,1895) = lu(k,1895) - lu(k,1007) * lu(k,1870) + lu(k,1921) = lu(k,1921) - lu(k,987) * lu(k,1919) + lu(k,1922) = lu(k,1922) - lu(k,988) * lu(k,1919) + lu(k,1923) = lu(k,1923) - lu(k,989) * lu(k,1919) + lu(k,1925) = lu(k,1925) - lu(k,990) * lu(k,1919) + lu(k,1927) = lu(k,1927) - lu(k,991) * lu(k,1919) + lu(k,1928) = lu(k,1928) - lu(k,992) * lu(k,1919) + lu(k,1930) = lu(k,1930) - lu(k,993) * lu(k,1919) + lu(k,1931) = lu(k,1931) - lu(k,994) * lu(k,1919) + lu(k,1932) = lu(k,1932) - lu(k,995) * lu(k,1919) + lu(k,1933) = lu(k,1933) - lu(k,996) * lu(k,1919) + lu(k,1934) = lu(k,1934) - lu(k,997) * lu(k,1919) + lu(k,1935) = lu(k,1935) - lu(k,998) * lu(k,1919) + lu(k,1936) = lu(k,1936) - lu(k,999) * lu(k,1919) + lu(k,1937) = lu(k,1937) - lu(k,1000) * lu(k,1919) + lu(k,1938) = lu(k,1938) - lu(k,1001) * lu(k,1919) + lu(k,1939) = lu(k,1939) - lu(k,1002) * lu(k,1919) + lu(k,1940) = lu(k,1940) - lu(k,1003) * lu(k,1919) + lu(k,1941) = lu(k,1941) - lu(k,1004) * lu(k,1919) + lu(k,1942) = lu(k,1942) - lu(k,1005) * lu(k,1919) + lu(k,1943) = lu(k,1943) - lu(k,1006) * lu(k,1919) + lu(k,1944) = lu(k,1944) - lu(k,1007) * lu(k,1919) + lu(k,1965) = lu(k,1965) - lu(k,987) * lu(k,1963) + lu(k,1966) = lu(k,1966) - lu(k,988) * lu(k,1963) + lu(k,1967) = lu(k,1967) - lu(k,989) * lu(k,1963) + lu(k,1969) = lu(k,1969) - lu(k,990) * lu(k,1963) + lu(k,1971) = lu(k,1971) - lu(k,991) * lu(k,1963) + lu(k,1972) = lu(k,1972) - lu(k,992) * lu(k,1963) + lu(k,1974) = lu(k,1974) - lu(k,993) * lu(k,1963) + lu(k,1975) = lu(k,1975) - lu(k,994) * lu(k,1963) + lu(k,1976) = lu(k,1976) - lu(k,995) * lu(k,1963) + lu(k,1977) = lu(k,1977) - lu(k,996) * lu(k,1963) + lu(k,1978) = lu(k,1978) - lu(k,997) * lu(k,1963) + lu(k,1979) = lu(k,1979) - lu(k,998) * lu(k,1963) + lu(k,1980) = lu(k,1980) - lu(k,999) * lu(k,1963) + lu(k,1981) = lu(k,1981) - lu(k,1000) * lu(k,1963) + lu(k,1982) = lu(k,1982) - lu(k,1001) * lu(k,1963) + lu(k,1983) = lu(k,1983) - lu(k,1002) * lu(k,1963) + lu(k,1984) = lu(k,1984) - lu(k,1003) * lu(k,1963) + lu(k,1985) = lu(k,1985) - lu(k,1004) * lu(k,1963) + lu(k,1986) = lu(k,1986) - lu(k,1005) * lu(k,1963) + lu(k,1987) = lu(k,1987) - lu(k,1006) * lu(k,1963) + lu(k,1988) = lu(k,1988) - lu(k,1007) * lu(k,1963) + lu(k,2010) = lu(k,2010) - lu(k,987) * lu(k,2008) + lu(k,2011) = lu(k,2011) - lu(k,988) * lu(k,2008) + lu(k,2012) = lu(k,2012) - lu(k,989) * lu(k,2008) + lu(k,2014) = lu(k,2014) - lu(k,990) * lu(k,2008) + lu(k,2016) = lu(k,2016) - lu(k,991) * lu(k,2008) + lu(k,2017) = lu(k,2017) - lu(k,992) * lu(k,2008) + lu(k,2019) = lu(k,2019) - lu(k,993) * lu(k,2008) + lu(k,2020) = lu(k,2020) - lu(k,994) * lu(k,2008) + lu(k,2021) = lu(k,2021) - lu(k,995) * lu(k,2008) + lu(k,2022) = lu(k,2022) - lu(k,996) * lu(k,2008) + lu(k,2023) = lu(k,2023) - lu(k,997) * lu(k,2008) + lu(k,2024) = lu(k,2024) - lu(k,998) * lu(k,2008) + lu(k,2025) = lu(k,2025) - lu(k,999) * lu(k,2008) + lu(k,2026) = lu(k,2026) - lu(k,1000) * lu(k,2008) + lu(k,2027) = lu(k,2027) - lu(k,1001) * lu(k,2008) + lu(k,2028) = lu(k,2028) - lu(k,1002) * lu(k,2008) + lu(k,2029) = lu(k,2029) - lu(k,1003) * lu(k,2008) + lu(k,2030) = lu(k,2030) - lu(k,1004) * lu(k,2008) + lu(k,2031) = lu(k,2031) - lu(k,1005) * lu(k,2008) + lu(k,2032) = lu(k,2032) - lu(k,1006) * lu(k,2008) + lu(k,2033) = lu(k,2033) - lu(k,1007) * lu(k,2008) + lu(k,2070) = lu(k,2070) - lu(k,987) * lu(k,2068) + lu(k,2071) = lu(k,2071) - lu(k,988) * lu(k,2068) + lu(k,2072) = lu(k,2072) - lu(k,989) * lu(k,2068) + lu(k,2074) = lu(k,2074) - lu(k,990) * lu(k,2068) + lu(k,2076) = lu(k,2076) - lu(k,991) * lu(k,2068) + lu(k,2077) = lu(k,2077) - lu(k,992) * lu(k,2068) + lu(k,2079) = lu(k,2079) - lu(k,993) * lu(k,2068) + lu(k,2080) = lu(k,2080) - lu(k,994) * lu(k,2068) + lu(k,2081) = lu(k,2081) - lu(k,995) * lu(k,2068) + lu(k,2082) = lu(k,2082) - lu(k,996) * lu(k,2068) + lu(k,2083) = lu(k,2083) - lu(k,997) * lu(k,2068) + lu(k,2084) = lu(k,2084) - lu(k,998) * lu(k,2068) + lu(k,2085) = lu(k,2085) - lu(k,999) * lu(k,2068) + lu(k,2086) = lu(k,2086) - lu(k,1000) * lu(k,2068) + lu(k,2087) = lu(k,2087) - lu(k,1001) * lu(k,2068) + lu(k,2088) = lu(k,2088) - lu(k,1002) * lu(k,2068) + lu(k,2089) = lu(k,2089) - lu(k,1003) * lu(k,2068) + lu(k,2090) = lu(k,2090) - lu(k,1004) * lu(k,2068) + lu(k,2091) = lu(k,2091) - lu(k,1005) * lu(k,2068) + lu(k,2092) = lu(k,2092) - lu(k,1006) * lu(k,2068) + lu(k,2093) = lu(k,2093) - lu(k,1007) * lu(k,2068) + lu(k,1016) = 1._r8 / lu(k,1016) + lu(k,1017) = lu(k,1017) * lu(k,1016) + lu(k,1018) = lu(k,1018) * lu(k,1016) + lu(k,1019) = lu(k,1019) * lu(k,1016) + lu(k,1020) = lu(k,1020) * lu(k,1016) + lu(k,1021) = lu(k,1021) * lu(k,1016) + lu(k,1022) = lu(k,1022) * lu(k,1016) + lu(k,1023) = lu(k,1023) * lu(k,1016) + lu(k,1024) = lu(k,1024) * lu(k,1016) + lu(k,1025) = lu(k,1025) * lu(k,1016) + lu(k,1026) = lu(k,1026) * lu(k,1016) + lu(k,1027) = lu(k,1027) * lu(k,1016) + lu(k,1028) = lu(k,1028) * lu(k,1016) + lu(k,1029) = lu(k,1029) * lu(k,1016) + lu(k,1030) = lu(k,1030) * lu(k,1016) + lu(k,1031) = lu(k,1031) * lu(k,1016) + lu(k,1032) = lu(k,1032) * lu(k,1016) + lu(k,1033) = lu(k,1033) * lu(k,1016) + lu(k,1034) = lu(k,1034) * lu(k,1016) + lu(k,1035) = lu(k,1035) * lu(k,1016) + lu(k,1036) = lu(k,1036) * lu(k,1016) + lu(k,1037) = lu(k,1037) * lu(k,1016) + lu(k,1038) = lu(k,1038) * lu(k,1016) + lu(k,1039) = lu(k,1039) * lu(k,1016) + lu(k,1040) = lu(k,1040) * lu(k,1016) + lu(k,1105) = lu(k,1105) - lu(k,1017) * lu(k,1104) + lu(k,1106) = lu(k,1106) - lu(k,1018) * lu(k,1104) + lu(k,1107) = lu(k,1107) - lu(k,1019) * lu(k,1104) + lu(k,1108) = lu(k,1108) - lu(k,1020) * lu(k,1104) + lu(k,1109) = lu(k,1109) - lu(k,1021) * lu(k,1104) + lu(k,1110) = lu(k,1110) - lu(k,1022) * lu(k,1104) + lu(k,1111) = lu(k,1111) - lu(k,1023) * lu(k,1104) + lu(k,1112) = lu(k,1112) - lu(k,1024) * lu(k,1104) + lu(k,1113) = lu(k,1113) - lu(k,1025) * lu(k,1104) + lu(k,1114) = lu(k,1114) - lu(k,1026) * lu(k,1104) + lu(k,1115) = lu(k,1115) - lu(k,1027) * lu(k,1104) + lu(k,1116) = lu(k,1116) - lu(k,1028) * lu(k,1104) + lu(k,1117) = lu(k,1117) - lu(k,1029) * lu(k,1104) + lu(k,1118) = lu(k,1118) - lu(k,1030) * lu(k,1104) + lu(k,1119) = lu(k,1119) - lu(k,1031) * lu(k,1104) + lu(k,1120) = lu(k,1120) - lu(k,1032) * lu(k,1104) + lu(k,1121) = lu(k,1121) - lu(k,1033) * lu(k,1104) + lu(k,1122) = lu(k,1122) - lu(k,1034) * lu(k,1104) + lu(k,1123) = lu(k,1123) - lu(k,1035) * lu(k,1104) + lu(k,1124) = lu(k,1124) - lu(k,1036) * lu(k,1104) + lu(k,1125) = lu(k,1125) - lu(k,1037) * lu(k,1104) + lu(k,1126) = lu(k,1126) - lu(k,1038) * lu(k,1104) + lu(k,1127) = lu(k,1127) - lu(k,1039) * lu(k,1104) + lu(k,1128) = lu(k,1128) - lu(k,1040) * lu(k,1104) + lu(k,1152) = lu(k,1152) - lu(k,1017) * lu(k,1151) + lu(k,1153) = lu(k,1153) - lu(k,1018) * lu(k,1151) + lu(k,1154) = lu(k,1154) - lu(k,1019) * lu(k,1151) + lu(k,1155) = lu(k,1155) - lu(k,1020) * lu(k,1151) + lu(k,1156) = lu(k,1156) - lu(k,1021) * lu(k,1151) + lu(k,1157) = lu(k,1157) - lu(k,1022) * lu(k,1151) + lu(k,1158) = lu(k,1158) - lu(k,1023) * lu(k,1151) + lu(k,1159) = lu(k,1159) - lu(k,1024) * lu(k,1151) + lu(k,1160) = lu(k,1160) - lu(k,1025) * lu(k,1151) + lu(k,1161) = lu(k,1161) - lu(k,1026) * lu(k,1151) + lu(k,1162) = lu(k,1162) - lu(k,1027) * lu(k,1151) + lu(k,1163) = lu(k,1163) - lu(k,1028) * lu(k,1151) + lu(k,1164) = lu(k,1164) - lu(k,1029) * lu(k,1151) + lu(k,1165) = lu(k,1165) - lu(k,1030) * lu(k,1151) + lu(k,1166) = lu(k,1166) - lu(k,1031) * lu(k,1151) + lu(k,1167) = lu(k,1167) - lu(k,1032) * lu(k,1151) + lu(k,1168) = lu(k,1168) - lu(k,1033) * lu(k,1151) + lu(k,1169) = lu(k,1169) - lu(k,1034) * lu(k,1151) + lu(k,1170) = lu(k,1170) - lu(k,1035) * lu(k,1151) + lu(k,1171) = lu(k,1171) - lu(k,1036) * lu(k,1151) + lu(k,1172) = lu(k,1172) - lu(k,1037) * lu(k,1151) + lu(k,1173) = lu(k,1173) - lu(k,1038) * lu(k,1151) + lu(k,1174) = lu(k,1174) - lu(k,1039) * lu(k,1151) + lu(k,1175) = lu(k,1175) - lu(k,1040) * lu(k,1151) + lu(k,1195) = lu(k,1195) - lu(k,1017) * lu(k,1194) + lu(k,1196) = lu(k,1196) - lu(k,1018) * lu(k,1194) + lu(k,1197) = lu(k,1197) - lu(k,1019) * lu(k,1194) + lu(k,1198) = lu(k,1198) - lu(k,1020) * lu(k,1194) + lu(k,1199) = lu(k,1199) - lu(k,1021) * lu(k,1194) + lu(k,1200) = lu(k,1200) - lu(k,1022) * lu(k,1194) + lu(k,1201) = lu(k,1201) - lu(k,1023) * lu(k,1194) + lu(k,1202) = lu(k,1202) - lu(k,1024) * lu(k,1194) + lu(k,1203) = lu(k,1203) - lu(k,1025) * lu(k,1194) + lu(k,1204) = lu(k,1204) - lu(k,1026) * lu(k,1194) + lu(k,1205) = lu(k,1205) - lu(k,1027) * lu(k,1194) + lu(k,1206) = lu(k,1206) - lu(k,1028) * lu(k,1194) + lu(k,1207) = lu(k,1207) - lu(k,1029) * lu(k,1194) + lu(k,1208) = lu(k,1208) - lu(k,1030) * lu(k,1194) + lu(k,1209) = lu(k,1209) - lu(k,1031) * lu(k,1194) + lu(k,1210) = lu(k,1210) - lu(k,1032) * lu(k,1194) + lu(k,1211) = lu(k,1211) - lu(k,1033) * lu(k,1194) + lu(k,1212) = lu(k,1212) - lu(k,1034) * lu(k,1194) + lu(k,1213) = lu(k,1213) - lu(k,1035) * lu(k,1194) + lu(k,1214) = lu(k,1214) - lu(k,1036) * lu(k,1194) + lu(k,1215) = lu(k,1215) - lu(k,1037) * lu(k,1194) + lu(k,1216) = lu(k,1216) - lu(k,1038) * lu(k,1194) + lu(k,1217) = lu(k,1217) - lu(k,1039) * lu(k,1194) + lu(k,1218) = lu(k,1218) - lu(k,1040) * lu(k,1194) + lu(k,1236) = lu(k,1236) - lu(k,1017) * lu(k,1235) + lu(k,1237) = lu(k,1237) - lu(k,1018) * lu(k,1235) + lu(k,1238) = lu(k,1238) - lu(k,1019) * lu(k,1235) + lu(k,1239) = lu(k,1239) - lu(k,1020) * lu(k,1235) + lu(k,1240) = lu(k,1240) - lu(k,1021) * lu(k,1235) + lu(k,1241) = lu(k,1241) - lu(k,1022) * lu(k,1235) + lu(k,1242) = lu(k,1242) - lu(k,1023) * lu(k,1235) + lu(k,1243) = lu(k,1243) - lu(k,1024) * lu(k,1235) + lu(k,1244) = lu(k,1244) - lu(k,1025) * lu(k,1235) + lu(k,1245) = lu(k,1245) - lu(k,1026) * lu(k,1235) + lu(k,1246) = lu(k,1246) - lu(k,1027) * lu(k,1235) + lu(k,1247) = lu(k,1247) - lu(k,1028) * lu(k,1235) + lu(k,1248) = lu(k,1248) - lu(k,1029) * lu(k,1235) + lu(k,1249) = lu(k,1249) - lu(k,1030) * lu(k,1235) + lu(k,1250) = lu(k,1250) - lu(k,1031) * lu(k,1235) + lu(k,1251) = lu(k,1251) - lu(k,1032) * lu(k,1235) + lu(k,1252) = lu(k,1252) - lu(k,1033) * lu(k,1235) + lu(k,1253) = lu(k,1253) - lu(k,1034) * lu(k,1235) + lu(k,1254) = lu(k,1254) - lu(k,1035) * lu(k,1235) + lu(k,1255) = lu(k,1255) - lu(k,1036) * lu(k,1235) + lu(k,1256) = lu(k,1256) - lu(k,1037) * lu(k,1235) + lu(k,1257) = lu(k,1257) - lu(k,1038) * lu(k,1235) + lu(k,1258) = lu(k,1258) - lu(k,1039) * lu(k,1235) + lu(k,1259) = lu(k,1259) - lu(k,1040) * lu(k,1235) + lu(k,1279) = lu(k,1279) - lu(k,1017) * lu(k,1278) + lu(k,1280) = lu(k,1280) - lu(k,1018) * lu(k,1278) + lu(k,1281) = lu(k,1281) - lu(k,1019) * lu(k,1278) + lu(k,1282) = lu(k,1282) - lu(k,1020) * lu(k,1278) + lu(k,1283) = lu(k,1283) - lu(k,1021) * lu(k,1278) + lu(k,1284) = lu(k,1284) - lu(k,1022) * lu(k,1278) + lu(k,1285) = lu(k,1285) - lu(k,1023) * lu(k,1278) + lu(k,1286) = lu(k,1286) - lu(k,1024) * lu(k,1278) + lu(k,1287) = lu(k,1287) - lu(k,1025) * lu(k,1278) + lu(k,1288) = lu(k,1288) - lu(k,1026) * lu(k,1278) + lu(k,1289) = lu(k,1289) - lu(k,1027) * lu(k,1278) + lu(k,1290) = lu(k,1290) - lu(k,1028) * lu(k,1278) + lu(k,1291) = lu(k,1291) - lu(k,1029) * lu(k,1278) + lu(k,1292) = lu(k,1292) - lu(k,1030) * lu(k,1278) + lu(k,1293) = lu(k,1293) - lu(k,1031) * lu(k,1278) + lu(k,1294) = lu(k,1294) - lu(k,1032) * lu(k,1278) + lu(k,1295) = lu(k,1295) - lu(k,1033) * lu(k,1278) + lu(k,1296) = lu(k,1296) - lu(k,1034) * lu(k,1278) + lu(k,1297) = lu(k,1297) - lu(k,1035) * lu(k,1278) + lu(k,1298) = lu(k,1298) - lu(k,1036) * lu(k,1278) + lu(k,1299) = lu(k,1299) - lu(k,1037) * lu(k,1278) + lu(k,1300) = lu(k,1300) - lu(k,1038) * lu(k,1278) + lu(k,1301) = lu(k,1301) - lu(k,1039) * lu(k,1278) + lu(k,1302) = lu(k,1302) - lu(k,1040) * lu(k,1278) + lu(k,1321) = lu(k,1321) - lu(k,1017) * lu(k,1320) + lu(k,1322) = lu(k,1322) - lu(k,1018) * lu(k,1320) + lu(k,1323) = lu(k,1323) - lu(k,1019) * lu(k,1320) + lu(k,1324) = lu(k,1324) - lu(k,1020) * lu(k,1320) + lu(k,1325) = lu(k,1325) - lu(k,1021) * lu(k,1320) + lu(k,1326) = lu(k,1326) - lu(k,1022) * lu(k,1320) + lu(k,1327) = lu(k,1327) - lu(k,1023) * lu(k,1320) + lu(k,1328) = lu(k,1328) - lu(k,1024) * lu(k,1320) + lu(k,1329) = lu(k,1329) - lu(k,1025) * lu(k,1320) + lu(k,1330) = lu(k,1330) - lu(k,1026) * lu(k,1320) + lu(k,1331) = lu(k,1331) - lu(k,1027) * lu(k,1320) + lu(k,1332) = lu(k,1332) - lu(k,1028) * lu(k,1320) + lu(k,1333) = lu(k,1333) - lu(k,1029) * lu(k,1320) + lu(k,1334) = lu(k,1334) - lu(k,1030) * lu(k,1320) + lu(k,1335) = lu(k,1335) - lu(k,1031) * lu(k,1320) + lu(k,1336) = lu(k,1336) - lu(k,1032) * lu(k,1320) + lu(k,1337) = lu(k,1337) - lu(k,1033) * lu(k,1320) + lu(k,1338) = lu(k,1338) - lu(k,1034) * lu(k,1320) + lu(k,1339) = lu(k,1339) - lu(k,1035) * lu(k,1320) + lu(k,1340) = lu(k,1340) - lu(k,1036) * lu(k,1320) + lu(k,1341) = lu(k,1341) - lu(k,1037) * lu(k,1320) + lu(k,1342) = lu(k,1342) - lu(k,1038) * lu(k,1320) + lu(k,1343) = lu(k,1343) - lu(k,1039) * lu(k,1320) + lu(k,1344) = lu(k,1344) - lu(k,1040) * lu(k,1320) + lu(k,1381) = lu(k,1381) - lu(k,1017) * lu(k,1380) + lu(k,1382) = lu(k,1382) - lu(k,1018) * lu(k,1380) + lu(k,1383) = lu(k,1383) - lu(k,1019) * lu(k,1380) + lu(k,1384) = lu(k,1384) - lu(k,1020) * lu(k,1380) + lu(k,1385) = lu(k,1385) - lu(k,1021) * lu(k,1380) + lu(k,1386) = lu(k,1386) - lu(k,1022) * lu(k,1380) + lu(k,1387) = lu(k,1387) - lu(k,1023) * lu(k,1380) + lu(k,1388) = lu(k,1388) - lu(k,1024) * lu(k,1380) + lu(k,1389) = lu(k,1389) - lu(k,1025) * lu(k,1380) + lu(k,1390) = lu(k,1390) - lu(k,1026) * lu(k,1380) + lu(k,1391) = lu(k,1391) - lu(k,1027) * lu(k,1380) + lu(k,1392) = lu(k,1392) - lu(k,1028) * lu(k,1380) + lu(k,1393) = lu(k,1393) - lu(k,1029) * lu(k,1380) + lu(k,1394) = lu(k,1394) - lu(k,1030) * lu(k,1380) + lu(k,1395) = lu(k,1395) - lu(k,1031) * lu(k,1380) + lu(k,1396) = lu(k,1396) - lu(k,1032) * lu(k,1380) + lu(k,1397) = lu(k,1397) - lu(k,1033) * lu(k,1380) + lu(k,1398) = lu(k,1398) - lu(k,1034) * lu(k,1380) + lu(k,1399) = lu(k,1399) - lu(k,1035) * lu(k,1380) + lu(k,1400) = lu(k,1400) - lu(k,1036) * lu(k,1380) + lu(k,1401) = lu(k,1401) - lu(k,1037) * lu(k,1380) + lu(k,1402) = lu(k,1402) - lu(k,1038) * lu(k,1380) + lu(k,1403) = lu(k,1403) - lu(k,1039) * lu(k,1380) + lu(k,1404) = lu(k,1404) - lu(k,1040) * lu(k,1380) + lu(k,1424) = lu(k,1424) - lu(k,1017) * lu(k,1423) + lu(k,1425) = lu(k,1425) - lu(k,1018) * lu(k,1423) + lu(k,1426) = lu(k,1426) - lu(k,1019) * lu(k,1423) + lu(k,1427) = lu(k,1427) - lu(k,1020) * lu(k,1423) + lu(k,1428) = lu(k,1428) - lu(k,1021) * lu(k,1423) + lu(k,1429) = lu(k,1429) - lu(k,1022) * lu(k,1423) + lu(k,1430) = lu(k,1430) - lu(k,1023) * lu(k,1423) + lu(k,1431) = lu(k,1431) - lu(k,1024) * lu(k,1423) + lu(k,1432) = lu(k,1432) - lu(k,1025) * lu(k,1423) + lu(k,1433) = lu(k,1433) - lu(k,1026) * lu(k,1423) + lu(k,1434) = lu(k,1434) - lu(k,1027) * lu(k,1423) + lu(k,1435) = lu(k,1435) - lu(k,1028) * lu(k,1423) + lu(k,1436) = lu(k,1436) - lu(k,1029) * lu(k,1423) + lu(k,1437) = lu(k,1437) - lu(k,1030) * lu(k,1423) + lu(k,1438) = lu(k,1438) - lu(k,1031) * lu(k,1423) + lu(k,1439) = lu(k,1439) - lu(k,1032) * lu(k,1423) + lu(k,1440) = lu(k,1440) - lu(k,1033) * lu(k,1423) + lu(k,1441) = lu(k,1441) - lu(k,1034) * lu(k,1423) + lu(k,1442) = lu(k,1442) - lu(k,1035) * lu(k,1423) + lu(k,1443) = lu(k,1443) - lu(k,1036) * lu(k,1423) + lu(k,1444) = lu(k,1444) - lu(k,1037) * lu(k,1423) + lu(k,1445) = lu(k,1445) - lu(k,1038) * lu(k,1423) + lu(k,1446) = lu(k,1446) - lu(k,1039) * lu(k,1423) + lu(k,1447) = lu(k,1447) - lu(k,1040) * lu(k,1423) + lu(k,1472) = lu(k,1472) - lu(k,1017) * lu(k,1471) + lu(k,1473) = lu(k,1473) - lu(k,1018) * lu(k,1471) + lu(k,1474) = lu(k,1474) - lu(k,1019) * lu(k,1471) + lu(k,1475) = lu(k,1475) - lu(k,1020) * lu(k,1471) + lu(k,1476) = lu(k,1476) - lu(k,1021) * lu(k,1471) + lu(k,1477) = lu(k,1477) - lu(k,1022) * lu(k,1471) + lu(k,1478) = lu(k,1478) - lu(k,1023) * lu(k,1471) + lu(k,1479) = lu(k,1479) - lu(k,1024) * lu(k,1471) + lu(k,1480) = lu(k,1480) - lu(k,1025) * lu(k,1471) + lu(k,1481) = lu(k,1481) - lu(k,1026) * lu(k,1471) + lu(k,1482) = lu(k,1482) - lu(k,1027) * lu(k,1471) + lu(k,1483) = lu(k,1483) - lu(k,1028) * lu(k,1471) + lu(k,1484) = lu(k,1484) - lu(k,1029) * lu(k,1471) + lu(k,1485) = lu(k,1485) - lu(k,1030) * lu(k,1471) + lu(k,1486) = lu(k,1486) - lu(k,1031) * lu(k,1471) + lu(k,1487) = lu(k,1487) - lu(k,1032) * lu(k,1471) + lu(k,1488) = lu(k,1488) - lu(k,1033) * lu(k,1471) + lu(k,1489) = lu(k,1489) - lu(k,1034) * lu(k,1471) + lu(k,1490) = lu(k,1490) - lu(k,1035) * lu(k,1471) + lu(k,1491) = lu(k,1491) - lu(k,1036) * lu(k,1471) + lu(k,1492) = lu(k,1492) - lu(k,1037) * lu(k,1471) + lu(k,1493) = lu(k,1493) - lu(k,1038) * lu(k,1471) + lu(k,1494) = lu(k,1494) - lu(k,1039) * lu(k,1471) + lu(k,1495) = lu(k,1495) - lu(k,1040) * lu(k,1471) + lu(k,1513) = lu(k,1513) - lu(k,1017) * lu(k,1512) + lu(k,1514) = lu(k,1514) - lu(k,1018) * lu(k,1512) + lu(k,1515) = lu(k,1515) - lu(k,1019) * lu(k,1512) + lu(k,1516) = lu(k,1516) - lu(k,1020) * lu(k,1512) + lu(k,1517) = lu(k,1517) - lu(k,1021) * lu(k,1512) + lu(k,1518) = lu(k,1518) - lu(k,1022) * lu(k,1512) + lu(k,1519) = lu(k,1519) - lu(k,1023) * lu(k,1512) + lu(k,1520) = lu(k,1520) - lu(k,1024) * lu(k,1512) + lu(k,1521) = lu(k,1521) - lu(k,1025) * lu(k,1512) + lu(k,1522) = lu(k,1522) - lu(k,1026) * lu(k,1512) + lu(k,1523) = lu(k,1523) - lu(k,1027) * lu(k,1512) + lu(k,1524) = lu(k,1524) - lu(k,1028) * lu(k,1512) + lu(k,1525) = lu(k,1525) - lu(k,1029) * lu(k,1512) + lu(k,1526) = lu(k,1526) - lu(k,1030) * lu(k,1512) + lu(k,1527) = lu(k,1527) - lu(k,1031) * lu(k,1512) + lu(k,1528) = lu(k,1528) - lu(k,1032) * lu(k,1512) + lu(k,1529) = lu(k,1529) - lu(k,1033) * lu(k,1512) + lu(k,1530) = lu(k,1530) - lu(k,1034) * lu(k,1512) + lu(k,1531) = lu(k,1531) - lu(k,1035) * lu(k,1512) + lu(k,1532) = lu(k,1532) - lu(k,1036) * lu(k,1512) + lu(k,1533) = lu(k,1533) - lu(k,1037) * lu(k,1512) + lu(k,1534) = lu(k,1534) - lu(k,1038) * lu(k,1512) + lu(k,1535) = lu(k,1535) - lu(k,1039) * lu(k,1512) + lu(k,1536) = lu(k,1536) - lu(k,1040) * lu(k,1512) + lu(k,1549) = lu(k,1549) - lu(k,1017) * lu(k,1548) + lu(k,1550) = lu(k,1550) - lu(k,1018) * lu(k,1548) + lu(k,1551) = lu(k,1551) - lu(k,1019) * lu(k,1548) + lu(k,1552) = lu(k,1552) - lu(k,1020) * lu(k,1548) + lu(k,1553) = lu(k,1553) - lu(k,1021) * lu(k,1548) + lu(k,1554) = lu(k,1554) - lu(k,1022) * lu(k,1548) + lu(k,1555) = lu(k,1555) - lu(k,1023) * lu(k,1548) + lu(k,1556) = lu(k,1556) - lu(k,1024) * lu(k,1548) + lu(k,1557) = lu(k,1557) - lu(k,1025) * lu(k,1548) + lu(k,1558) = lu(k,1558) - lu(k,1026) * lu(k,1548) + lu(k,1559) = lu(k,1559) - lu(k,1027) * lu(k,1548) + lu(k,1560) = lu(k,1560) - lu(k,1028) * lu(k,1548) + lu(k,1561) = lu(k,1561) - lu(k,1029) * lu(k,1548) + lu(k,1562) = lu(k,1562) - lu(k,1030) * lu(k,1548) + lu(k,1563) = lu(k,1563) - lu(k,1031) * lu(k,1548) + lu(k,1564) = lu(k,1564) - lu(k,1032) * lu(k,1548) + lu(k,1565) = lu(k,1565) - lu(k,1033) * lu(k,1548) + lu(k,1566) = lu(k,1566) - lu(k,1034) * lu(k,1548) + lu(k,1567) = lu(k,1567) - lu(k,1035) * lu(k,1548) + lu(k,1568) = lu(k,1568) - lu(k,1036) * lu(k,1548) + lu(k,1569) = lu(k,1569) - lu(k,1037) * lu(k,1548) + lu(k,1570) = lu(k,1570) - lu(k,1038) * lu(k,1548) + lu(k,1571) = lu(k,1571) - lu(k,1039) * lu(k,1548) + lu(k,1572) = lu(k,1572) - lu(k,1040) * lu(k,1548) + lu(k,1594) = lu(k,1594) - lu(k,1017) * lu(k,1593) + lu(k,1595) = lu(k,1595) - lu(k,1018) * lu(k,1593) + lu(k,1596) = lu(k,1596) - lu(k,1019) * lu(k,1593) + lu(k,1597) = lu(k,1597) - lu(k,1020) * lu(k,1593) + lu(k,1598) = lu(k,1598) - lu(k,1021) * lu(k,1593) + lu(k,1599) = lu(k,1599) - lu(k,1022) * lu(k,1593) + lu(k,1600) = lu(k,1600) - lu(k,1023) * lu(k,1593) + lu(k,1601) = lu(k,1601) - lu(k,1024) * lu(k,1593) + lu(k,1602) = lu(k,1602) - lu(k,1025) * lu(k,1593) + lu(k,1603) = lu(k,1603) - lu(k,1026) * lu(k,1593) + lu(k,1604) = lu(k,1604) - lu(k,1027) * lu(k,1593) + lu(k,1605) = lu(k,1605) - lu(k,1028) * lu(k,1593) + lu(k,1606) = lu(k,1606) - lu(k,1029) * lu(k,1593) + lu(k,1607) = lu(k,1607) - lu(k,1030) * lu(k,1593) + lu(k,1608) = lu(k,1608) - lu(k,1031) * lu(k,1593) + lu(k,1609) = lu(k,1609) - lu(k,1032) * lu(k,1593) + lu(k,1610) = lu(k,1610) - lu(k,1033) * lu(k,1593) + lu(k,1611) = lu(k,1611) - lu(k,1034) * lu(k,1593) + lu(k,1612) = lu(k,1612) - lu(k,1035) * lu(k,1593) + lu(k,1613) = lu(k,1613) - lu(k,1036) * lu(k,1593) + lu(k,1614) = lu(k,1614) - lu(k,1037) * lu(k,1593) + lu(k,1615) = lu(k,1615) - lu(k,1038) * lu(k,1593) + lu(k,1616) = lu(k,1616) - lu(k,1039) * lu(k,1593) + lu(k,1617) = lu(k,1617) - lu(k,1040) * lu(k,1593) + lu(k,1637) = lu(k,1637) - lu(k,1017) * lu(k,1636) + lu(k,1638) = lu(k,1638) - lu(k,1018) * lu(k,1636) + lu(k,1639) = lu(k,1639) - lu(k,1019) * lu(k,1636) + lu(k,1640) = lu(k,1640) - lu(k,1020) * lu(k,1636) + lu(k,1641) = lu(k,1641) - lu(k,1021) * lu(k,1636) + lu(k,1642) = lu(k,1642) - lu(k,1022) * lu(k,1636) + lu(k,1643) = lu(k,1643) - lu(k,1023) * lu(k,1636) + lu(k,1644) = lu(k,1644) - lu(k,1024) * lu(k,1636) + lu(k,1645) = lu(k,1645) - lu(k,1025) * lu(k,1636) + lu(k,1646) = lu(k,1646) - lu(k,1026) * lu(k,1636) + lu(k,1647) = lu(k,1647) - lu(k,1027) * lu(k,1636) + lu(k,1648) = lu(k,1648) - lu(k,1028) * lu(k,1636) + lu(k,1649) = lu(k,1649) - lu(k,1029) * lu(k,1636) + lu(k,1650) = lu(k,1650) - lu(k,1030) * lu(k,1636) + lu(k,1651) = lu(k,1651) - lu(k,1031) * lu(k,1636) + lu(k,1652) = lu(k,1652) - lu(k,1032) * lu(k,1636) + lu(k,1653) = lu(k,1653) - lu(k,1033) * lu(k,1636) + lu(k,1654) = lu(k,1654) - lu(k,1034) * lu(k,1636) + lu(k,1655) = lu(k,1655) - lu(k,1035) * lu(k,1636) + lu(k,1656) = lu(k,1656) - lu(k,1036) * lu(k,1636) + lu(k,1657) = lu(k,1657) - lu(k,1037) * lu(k,1636) + lu(k,1658) = lu(k,1658) - lu(k,1038) * lu(k,1636) + lu(k,1659) = lu(k,1659) - lu(k,1039) * lu(k,1636) + lu(k,1660) = lu(k,1660) - lu(k,1040) * lu(k,1636) + lu(k,1679) = lu(k,1679) - lu(k,1017) * lu(k,1678) + lu(k,1680) = lu(k,1680) - lu(k,1018) * lu(k,1678) + lu(k,1681) = lu(k,1681) - lu(k,1019) * lu(k,1678) + lu(k,1682) = lu(k,1682) - lu(k,1020) * lu(k,1678) + lu(k,1683) = lu(k,1683) - lu(k,1021) * lu(k,1678) + lu(k,1684) = lu(k,1684) - lu(k,1022) * lu(k,1678) + lu(k,1685) = lu(k,1685) - lu(k,1023) * lu(k,1678) + lu(k,1686) = lu(k,1686) - lu(k,1024) * lu(k,1678) + lu(k,1687) = lu(k,1687) - lu(k,1025) * lu(k,1678) + lu(k,1688) = lu(k,1688) - lu(k,1026) * lu(k,1678) + lu(k,1689) = lu(k,1689) - lu(k,1027) * lu(k,1678) + lu(k,1690) = lu(k,1690) - lu(k,1028) * lu(k,1678) + lu(k,1691) = lu(k,1691) - lu(k,1029) * lu(k,1678) + lu(k,1692) = lu(k,1692) - lu(k,1030) * lu(k,1678) + lu(k,1693) = lu(k,1693) - lu(k,1031) * lu(k,1678) + lu(k,1694) = lu(k,1694) - lu(k,1032) * lu(k,1678) + lu(k,1695) = lu(k,1695) - lu(k,1033) * lu(k,1678) + lu(k,1696) = lu(k,1696) - lu(k,1034) * lu(k,1678) + lu(k,1697) = lu(k,1697) - lu(k,1035) * lu(k,1678) + lu(k,1698) = lu(k,1698) - lu(k,1036) * lu(k,1678) + lu(k,1699) = lu(k,1699) - lu(k,1037) * lu(k,1678) + lu(k,1700) = lu(k,1700) - lu(k,1038) * lu(k,1678) + lu(k,1701) = lu(k,1701) - lu(k,1039) * lu(k,1678) + lu(k,1702) = lu(k,1702) - lu(k,1040) * lu(k,1678) + lu(k,1755) = lu(k,1755) - lu(k,1017) * lu(k,1754) + lu(k,1756) = lu(k,1756) - lu(k,1018) * lu(k,1754) + lu(k,1757) = lu(k,1757) - lu(k,1019) * lu(k,1754) + lu(k,1758) = lu(k,1758) - lu(k,1020) * lu(k,1754) + lu(k,1759) = lu(k,1759) - lu(k,1021) * lu(k,1754) + lu(k,1760) = lu(k,1760) - lu(k,1022) * lu(k,1754) + lu(k,1761) = lu(k,1761) - lu(k,1023) * lu(k,1754) + lu(k,1762) = lu(k,1762) - lu(k,1024) * lu(k,1754) + lu(k,1763) = lu(k,1763) - lu(k,1025) * lu(k,1754) + lu(k,1764) = lu(k,1764) - lu(k,1026) * lu(k,1754) + lu(k,1765) = lu(k,1765) - lu(k,1027) * lu(k,1754) + lu(k,1766) = lu(k,1766) - lu(k,1028) * lu(k,1754) + lu(k,1767) = lu(k,1767) - lu(k,1029) * lu(k,1754) + lu(k,1768) = lu(k,1768) - lu(k,1030) * lu(k,1754) + lu(k,1769) = lu(k,1769) - lu(k,1031) * lu(k,1754) + lu(k,1770) = lu(k,1770) - lu(k,1032) * lu(k,1754) + lu(k,1771) = lu(k,1771) - lu(k,1033) * lu(k,1754) + lu(k,1772) = lu(k,1772) - lu(k,1034) * lu(k,1754) + lu(k,1773) = lu(k,1773) - lu(k,1035) * lu(k,1754) + lu(k,1774) = lu(k,1774) - lu(k,1036) * lu(k,1754) + lu(k,1775) = lu(k,1775) - lu(k,1037) * lu(k,1754) + lu(k,1776) = lu(k,1776) - lu(k,1038) * lu(k,1754) + lu(k,1777) = lu(k,1777) - lu(k,1039) * lu(k,1754) + lu(k,1778) = lu(k,1778) - lu(k,1040) * lu(k,1754) + lu(k,1803) = lu(k,1803) - lu(k,1017) * lu(k,1802) + lu(k,1804) = lu(k,1804) - lu(k,1018) * lu(k,1802) + lu(k,1805) = lu(k,1805) - lu(k,1019) * lu(k,1802) + lu(k,1806) = lu(k,1806) - lu(k,1020) * lu(k,1802) + lu(k,1807) = lu(k,1807) - lu(k,1021) * lu(k,1802) + lu(k,1808) = lu(k,1808) - lu(k,1022) * lu(k,1802) + lu(k,1809) = lu(k,1809) - lu(k,1023) * lu(k,1802) + lu(k,1810) = lu(k,1810) - lu(k,1024) * lu(k,1802) + lu(k,1811) = lu(k,1811) - lu(k,1025) * lu(k,1802) + lu(k,1812) = lu(k,1812) - lu(k,1026) * lu(k,1802) + lu(k,1813) = lu(k,1813) - lu(k,1027) * lu(k,1802) + lu(k,1814) = lu(k,1814) - lu(k,1028) * lu(k,1802) + lu(k,1815) = lu(k,1815) - lu(k,1029) * lu(k,1802) + lu(k,1816) = lu(k,1816) - lu(k,1030) * lu(k,1802) + lu(k,1817) = lu(k,1817) - lu(k,1031) * lu(k,1802) + lu(k,1818) = lu(k,1818) - lu(k,1032) * lu(k,1802) + lu(k,1819) = lu(k,1819) - lu(k,1033) * lu(k,1802) + lu(k,1820) = lu(k,1820) - lu(k,1034) * lu(k,1802) + lu(k,1821) = lu(k,1821) - lu(k,1035) * lu(k,1802) + lu(k,1822) = lu(k,1822) - lu(k,1036) * lu(k,1802) + lu(k,1823) = lu(k,1823) - lu(k,1037) * lu(k,1802) + lu(k,1824) = lu(k,1824) - lu(k,1038) * lu(k,1802) + lu(k,1825) = lu(k,1825) - lu(k,1039) * lu(k,1802) + lu(k,1826) = lu(k,1826) - lu(k,1040) * lu(k,1802) + lu(k,1836) = lu(k,1836) - lu(k,1017) * lu(k,1835) + lu(k,1837) = lu(k,1837) - lu(k,1018) * lu(k,1835) + lu(k,1838) = lu(k,1838) - lu(k,1019) * lu(k,1835) + lu(k,1839) = lu(k,1839) - lu(k,1020) * lu(k,1835) + lu(k,1840) = lu(k,1840) - lu(k,1021) * lu(k,1835) + lu(k,1841) = lu(k,1841) - lu(k,1022) * lu(k,1835) + lu(k,1842) = lu(k,1842) - lu(k,1023) * lu(k,1835) + lu(k,1843) = lu(k,1843) - lu(k,1024) * lu(k,1835) + lu(k,1844) = lu(k,1844) - lu(k,1025) * lu(k,1835) + lu(k,1845) = lu(k,1845) - lu(k,1026) * lu(k,1835) + lu(k,1846) = lu(k,1846) - lu(k,1027) * lu(k,1835) + lu(k,1847) = lu(k,1847) - lu(k,1028) * lu(k,1835) + lu(k,1848) = lu(k,1848) - lu(k,1029) * lu(k,1835) + lu(k,1849) = lu(k,1849) - lu(k,1030) * lu(k,1835) + lu(k,1850) = lu(k,1850) - lu(k,1031) * lu(k,1835) + lu(k,1851) = lu(k,1851) - lu(k,1032) * lu(k,1835) + lu(k,1852) = lu(k,1852) - lu(k,1033) * lu(k,1835) + lu(k,1853) = lu(k,1853) - lu(k,1034) * lu(k,1835) + lu(k,1854) = lu(k,1854) - lu(k,1035) * lu(k,1835) + lu(k,1855) = lu(k,1855) - lu(k,1036) * lu(k,1835) + lu(k,1856) = lu(k,1856) - lu(k,1037) * lu(k,1835) + lu(k,1857) = lu(k,1857) - lu(k,1038) * lu(k,1835) + lu(k,1858) = lu(k,1858) - lu(k,1039) * lu(k,1835) + lu(k,1859) = lu(k,1859) - lu(k,1040) * lu(k,1835) + lu(k,1872) = lu(k,1872) - lu(k,1017) * lu(k,1871) + lu(k,1873) = lu(k,1873) - lu(k,1018) * lu(k,1871) + lu(k,1874) = lu(k,1874) - lu(k,1019) * lu(k,1871) + lu(k,1875) = lu(k,1875) - lu(k,1020) * lu(k,1871) + lu(k,1876) = lu(k,1876) - lu(k,1021) * lu(k,1871) + lu(k,1877) = lu(k,1877) - lu(k,1022) * lu(k,1871) + lu(k,1878) = lu(k,1878) - lu(k,1023) * lu(k,1871) + lu(k,1879) = lu(k,1879) - lu(k,1024) * lu(k,1871) + lu(k,1880) = lu(k,1880) - lu(k,1025) * lu(k,1871) + lu(k,1881) = lu(k,1881) - lu(k,1026) * lu(k,1871) + lu(k,1882) = lu(k,1882) - lu(k,1027) * lu(k,1871) + lu(k,1883) = lu(k,1883) - lu(k,1028) * lu(k,1871) + lu(k,1884) = lu(k,1884) - lu(k,1029) * lu(k,1871) + lu(k,1885) = lu(k,1885) - lu(k,1030) * lu(k,1871) + lu(k,1886) = lu(k,1886) - lu(k,1031) * lu(k,1871) + lu(k,1887) = lu(k,1887) - lu(k,1032) * lu(k,1871) + lu(k,1888) = lu(k,1888) - lu(k,1033) * lu(k,1871) + lu(k,1889) = lu(k,1889) - lu(k,1034) * lu(k,1871) + lu(k,1890) = lu(k,1890) - lu(k,1035) * lu(k,1871) + lu(k,1891) = lu(k,1891) - lu(k,1036) * lu(k,1871) + lu(k,1892) = lu(k,1892) - lu(k,1037) * lu(k,1871) + lu(k,1893) = lu(k,1893) - lu(k,1038) * lu(k,1871) + lu(k,1894) = lu(k,1894) - lu(k,1039) * lu(k,1871) + lu(k,1895) = lu(k,1895) - lu(k,1040) * lu(k,1871) + lu(k,1921) = lu(k,1921) - lu(k,1017) * lu(k,1920) + lu(k,1922) = lu(k,1922) - lu(k,1018) * lu(k,1920) + lu(k,1923) = lu(k,1923) - lu(k,1019) * lu(k,1920) + lu(k,1924) = lu(k,1924) - lu(k,1020) * lu(k,1920) + lu(k,1925) = lu(k,1925) - lu(k,1021) * lu(k,1920) + lu(k,1926) = lu(k,1926) - lu(k,1022) * lu(k,1920) + lu(k,1927) = lu(k,1927) - lu(k,1023) * lu(k,1920) + lu(k,1928) = lu(k,1928) - lu(k,1024) * lu(k,1920) + lu(k,1929) = lu(k,1929) - lu(k,1025) * lu(k,1920) + lu(k,1930) = lu(k,1930) - lu(k,1026) * lu(k,1920) + lu(k,1931) = lu(k,1931) - lu(k,1027) * lu(k,1920) + lu(k,1932) = lu(k,1932) - lu(k,1028) * lu(k,1920) + lu(k,1933) = lu(k,1933) - lu(k,1029) * lu(k,1920) + lu(k,1934) = lu(k,1934) - lu(k,1030) * lu(k,1920) + lu(k,1935) = lu(k,1935) - lu(k,1031) * lu(k,1920) + lu(k,1936) = lu(k,1936) - lu(k,1032) * lu(k,1920) + lu(k,1937) = lu(k,1937) - lu(k,1033) * lu(k,1920) + lu(k,1938) = lu(k,1938) - lu(k,1034) * lu(k,1920) + lu(k,1939) = lu(k,1939) - lu(k,1035) * lu(k,1920) + lu(k,1940) = lu(k,1940) - lu(k,1036) * lu(k,1920) + lu(k,1941) = lu(k,1941) - lu(k,1037) * lu(k,1920) + lu(k,1942) = lu(k,1942) - lu(k,1038) * lu(k,1920) + lu(k,1943) = lu(k,1943) - lu(k,1039) * lu(k,1920) + lu(k,1944) = lu(k,1944) - lu(k,1040) * lu(k,1920) + lu(k,1965) = lu(k,1965) - lu(k,1017) * lu(k,1964) + lu(k,1966) = lu(k,1966) - lu(k,1018) * lu(k,1964) + lu(k,1967) = lu(k,1967) - lu(k,1019) * lu(k,1964) + lu(k,1968) = lu(k,1968) - lu(k,1020) * lu(k,1964) + lu(k,1969) = lu(k,1969) - lu(k,1021) * lu(k,1964) + lu(k,1970) = lu(k,1970) - lu(k,1022) * lu(k,1964) + lu(k,1971) = lu(k,1971) - lu(k,1023) * lu(k,1964) + lu(k,1972) = lu(k,1972) - lu(k,1024) * lu(k,1964) + lu(k,1973) = lu(k,1973) - lu(k,1025) * lu(k,1964) + lu(k,1974) = lu(k,1974) - lu(k,1026) * lu(k,1964) + lu(k,1975) = lu(k,1975) - lu(k,1027) * lu(k,1964) + lu(k,1976) = lu(k,1976) - lu(k,1028) * lu(k,1964) + lu(k,1977) = lu(k,1977) - lu(k,1029) * lu(k,1964) + lu(k,1978) = lu(k,1978) - lu(k,1030) * lu(k,1964) + lu(k,1979) = lu(k,1979) - lu(k,1031) * lu(k,1964) + lu(k,1980) = lu(k,1980) - lu(k,1032) * lu(k,1964) + lu(k,1981) = lu(k,1981) - lu(k,1033) * lu(k,1964) + lu(k,1982) = lu(k,1982) - lu(k,1034) * lu(k,1964) + lu(k,1983) = lu(k,1983) - lu(k,1035) * lu(k,1964) + lu(k,1984) = lu(k,1984) - lu(k,1036) * lu(k,1964) + lu(k,1985) = lu(k,1985) - lu(k,1037) * lu(k,1964) + lu(k,1986) = lu(k,1986) - lu(k,1038) * lu(k,1964) + lu(k,1987) = lu(k,1987) - lu(k,1039) * lu(k,1964) + lu(k,1988) = lu(k,1988) - lu(k,1040) * lu(k,1964) + lu(k,2010) = lu(k,2010) - lu(k,1017) * lu(k,2009) + lu(k,2011) = lu(k,2011) - lu(k,1018) * lu(k,2009) + lu(k,2012) = lu(k,2012) - lu(k,1019) * lu(k,2009) + lu(k,2013) = lu(k,2013) - lu(k,1020) * lu(k,2009) + lu(k,2014) = lu(k,2014) - lu(k,1021) * lu(k,2009) + lu(k,2015) = lu(k,2015) - lu(k,1022) * lu(k,2009) + lu(k,2016) = lu(k,2016) - lu(k,1023) * lu(k,2009) + lu(k,2017) = lu(k,2017) - lu(k,1024) * lu(k,2009) + lu(k,2018) = lu(k,2018) - lu(k,1025) * lu(k,2009) + lu(k,2019) = lu(k,2019) - lu(k,1026) * lu(k,2009) + lu(k,2020) = lu(k,2020) - lu(k,1027) * lu(k,2009) + lu(k,2021) = lu(k,2021) - lu(k,1028) * lu(k,2009) + lu(k,2022) = lu(k,2022) - lu(k,1029) * lu(k,2009) + lu(k,2023) = lu(k,2023) - lu(k,1030) * lu(k,2009) + lu(k,2024) = lu(k,2024) - lu(k,1031) * lu(k,2009) + lu(k,2025) = lu(k,2025) - lu(k,1032) * lu(k,2009) + lu(k,2026) = lu(k,2026) - lu(k,1033) * lu(k,2009) + lu(k,2027) = lu(k,2027) - lu(k,1034) * lu(k,2009) + lu(k,2028) = lu(k,2028) - lu(k,1035) * lu(k,2009) + lu(k,2029) = lu(k,2029) - lu(k,1036) * lu(k,2009) + lu(k,2030) = lu(k,2030) - lu(k,1037) * lu(k,2009) + lu(k,2031) = lu(k,2031) - lu(k,1038) * lu(k,2009) + lu(k,2032) = lu(k,2032) - lu(k,1039) * lu(k,2009) + lu(k,2033) = lu(k,2033) - lu(k,1040) * lu(k,2009) + lu(k,2070) = lu(k,2070) - lu(k,1017) * lu(k,2069) + lu(k,2071) = lu(k,2071) - lu(k,1018) * lu(k,2069) + lu(k,2072) = lu(k,2072) - lu(k,1019) * lu(k,2069) + lu(k,2073) = lu(k,2073) - lu(k,1020) * lu(k,2069) + lu(k,2074) = lu(k,2074) - lu(k,1021) * lu(k,2069) + lu(k,2075) = lu(k,2075) - lu(k,1022) * lu(k,2069) + lu(k,2076) = lu(k,2076) - lu(k,1023) * lu(k,2069) + lu(k,2077) = lu(k,2077) - lu(k,1024) * lu(k,2069) + lu(k,2078) = lu(k,2078) - lu(k,1025) * lu(k,2069) + lu(k,2079) = lu(k,2079) - lu(k,1026) * lu(k,2069) + lu(k,2080) = lu(k,2080) - lu(k,1027) * lu(k,2069) + lu(k,2081) = lu(k,2081) - lu(k,1028) * lu(k,2069) + lu(k,2082) = lu(k,2082) - lu(k,1029) * lu(k,2069) + lu(k,2083) = lu(k,2083) - lu(k,1030) * lu(k,2069) + lu(k,2084) = lu(k,2084) - lu(k,1031) * lu(k,2069) + lu(k,2085) = lu(k,2085) - lu(k,1032) * lu(k,2069) + lu(k,2086) = lu(k,2086) - lu(k,1033) * lu(k,2069) + lu(k,2087) = lu(k,2087) - lu(k,1034) * lu(k,2069) + lu(k,2088) = lu(k,2088) - lu(k,1035) * lu(k,2069) + lu(k,2089) = lu(k,2089) - lu(k,1036) * lu(k,2069) + lu(k,2090) = lu(k,2090) - lu(k,1037) * lu(k,2069) + lu(k,2091) = lu(k,2091) - lu(k,1038) * lu(k,2069) + lu(k,2092) = lu(k,2092) - lu(k,1039) * lu(k,2069) + lu(k,2093) = lu(k,2093) - lu(k,1040) * lu(k,2069) + lu(k,1060) = 1._r8 / lu(k,1060) + lu(k,1061) = lu(k,1061) * lu(k,1060) + lu(k,1062) = lu(k,1062) * lu(k,1060) + lu(k,1063) = lu(k,1063) * lu(k,1060) + lu(k,1064) = lu(k,1064) * lu(k,1060) + lu(k,1065) = lu(k,1065) * lu(k,1060) + lu(k,1066) = lu(k,1066) * lu(k,1060) + lu(k,1067) = lu(k,1067) * lu(k,1060) + lu(k,1068) = lu(k,1068) * lu(k,1060) + lu(k,1069) = lu(k,1069) * lu(k,1060) + lu(k,1070) = lu(k,1070) * lu(k,1060) + lu(k,1071) = lu(k,1071) * lu(k,1060) + lu(k,1072) = lu(k,1072) * lu(k,1060) + lu(k,1073) = lu(k,1073) * lu(k,1060) + lu(k,1074) = lu(k,1074) * lu(k,1060) + lu(k,1075) = lu(k,1075) * lu(k,1060) + lu(k,1076) = lu(k,1076) * lu(k,1060) + lu(k,1077) = lu(k,1077) * lu(k,1060) + lu(k,1078) = lu(k,1078) * lu(k,1060) + lu(k,1079) = lu(k,1079) * lu(k,1060) + lu(k,1080) = lu(k,1080) * lu(k,1060) + lu(k,1081) = lu(k,1081) * lu(k,1060) + lu(k,1082) = lu(k,1082) * lu(k,1060) + lu(k,1083) = lu(k,1083) * lu(k,1060) + lu(k,1106) = lu(k,1106) - lu(k,1061) * lu(k,1105) + lu(k,1107) = lu(k,1107) - lu(k,1062) * lu(k,1105) + lu(k,1108) = lu(k,1108) - lu(k,1063) * lu(k,1105) + lu(k,1109) = lu(k,1109) - lu(k,1064) * lu(k,1105) + lu(k,1110) = lu(k,1110) - lu(k,1065) * lu(k,1105) + lu(k,1111) = lu(k,1111) - lu(k,1066) * lu(k,1105) + lu(k,1112) = lu(k,1112) - lu(k,1067) * lu(k,1105) + lu(k,1113) = lu(k,1113) - lu(k,1068) * lu(k,1105) + lu(k,1114) = lu(k,1114) - lu(k,1069) * lu(k,1105) + lu(k,1115) = lu(k,1115) - lu(k,1070) * lu(k,1105) + lu(k,1116) = lu(k,1116) - lu(k,1071) * lu(k,1105) + lu(k,1117) = lu(k,1117) - lu(k,1072) * lu(k,1105) + lu(k,1118) = lu(k,1118) - lu(k,1073) * lu(k,1105) + lu(k,1119) = lu(k,1119) - lu(k,1074) * lu(k,1105) + lu(k,1120) = lu(k,1120) - lu(k,1075) * lu(k,1105) + lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1105) + lu(k,1122) = lu(k,1122) - lu(k,1077) * lu(k,1105) + lu(k,1123) = lu(k,1123) - lu(k,1078) * lu(k,1105) + lu(k,1124) = lu(k,1124) - lu(k,1079) * lu(k,1105) + lu(k,1125) = lu(k,1125) - lu(k,1080) * lu(k,1105) + lu(k,1126) = lu(k,1126) - lu(k,1081) * lu(k,1105) + lu(k,1127) = lu(k,1127) - lu(k,1082) * lu(k,1105) + lu(k,1128) = lu(k,1128) - lu(k,1083) * lu(k,1105) + lu(k,1153) = lu(k,1153) - lu(k,1061) * lu(k,1152) + lu(k,1154) = lu(k,1154) - lu(k,1062) * lu(k,1152) + lu(k,1155) = lu(k,1155) - lu(k,1063) * lu(k,1152) + lu(k,1156) = lu(k,1156) - lu(k,1064) * lu(k,1152) + lu(k,1157) = lu(k,1157) - lu(k,1065) * lu(k,1152) + lu(k,1158) = lu(k,1158) - lu(k,1066) * lu(k,1152) + lu(k,1159) = lu(k,1159) - lu(k,1067) * lu(k,1152) + lu(k,1160) = lu(k,1160) - lu(k,1068) * lu(k,1152) + lu(k,1161) = lu(k,1161) - lu(k,1069) * lu(k,1152) + lu(k,1162) = lu(k,1162) - lu(k,1070) * lu(k,1152) + lu(k,1163) = lu(k,1163) - lu(k,1071) * lu(k,1152) + lu(k,1164) = lu(k,1164) - lu(k,1072) * lu(k,1152) + lu(k,1165) = lu(k,1165) - lu(k,1073) * lu(k,1152) + lu(k,1166) = lu(k,1166) - lu(k,1074) * lu(k,1152) + lu(k,1167) = lu(k,1167) - lu(k,1075) * lu(k,1152) + lu(k,1168) = lu(k,1168) - lu(k,1076) * lu(k,1152) + lu(k,1169) = lu(k,1169) - lu(k,1077) * lu(k,1152) + lu(k,1170) = lu(k,1170) - lu(k,1078) * lu(k,1152) + lu(k,1171) = lu(k,1171) - lu(k,1079) * lu(k,1152) + lu(k,1172) = lu(k,1172) - lu(k,1080) * lu(k,1152) + lu(k,1173) = lu(k,1173) - lu(k,1081) * lu(k,1152) + lu(k,1174) = lu(k,1174) - lu(k,1082) * lu(k,1152) + lu(k,1175) = lu(k,1175) - lu(k,1083) * lu(k,1152) + lu(k,1196) = lu(k,1196) - lu(k,1061) * lu(k,1195) + lu(k,1197) = lu(k,1197) - lu(k,1062) * lu(k,1195) + lu(k,1198) = lu(k,1198) - lu(k,1063) * lu(k,1195) + lu(k,1199) = lu(k,1199) - lu(k,1064) * lu(k,1195) + lu(k,1200) = lu(k,1200) - lu(k,1065) * lu(k,1195) + lu(k,1201) = lu(k,1201) - lu(k,1066) * lu(k,1195) + lu(k,1202) = lu(k,1202) - lu(k,1067) * lu(k,1195) + lu(k,1203) = lu(k,1203) - lu(k,1068) * lu(k,1195) + lu(k,1204) = lu(k,1204) - lu(k,1069) * lu(k,1195) + lu(k,1205) = lu(k,1205) - lu(k,1070) * lu(k,1195) + lu(k,1206) = lu(k,1206) - lu(k,1071) * lu(k,1195) + lu(k,1207) = lu(k,1207) - lu(k,1072) * lu(k,1195) + lu(k,1208) = lu(k,1208) - lu(k,1073) * lu(k,1195) + lu(k,1209) = lu(k,1209) - lu(k,1074) * lu(k,1195) + lu(k,1210) = lu(k,1210) - lu(k,1075) * lu(k,1195) + lu(k,1211) = lu(k,1211) - lu(k,1076) * lu(k,1195) + lu(k,1212) = lu(k,1212) - lu(k,1077) * lu(k,1195) + lu(k,1213) = lu(k,1213) - lu(k,1078) * lu(k,1195) + lu(k,1214) = lu(k,1214) - lu(k,1079) * lu(k,1195) + lu(k,1215) = lu(k,1215) - lu(k,1080) * lu(k,1195) + lu(k,1216) = lu(k,1216) - lu(k,1081) * lu(k,1195) + lu(k,1217) = lu(k,1217) - lu(k,1082) * lu(k,1195) + lu(k,1218) = lu(k,1218) - lu(k,1083) * lu(k,1195) + lu(k,1237) = lu(k,1237) - lu(k,1061) * lu(k,1236) + lu(k,1238) = lu(k,1238) - lu(k,1062) * lu(k,1236) + lu(k,1239) = lu(k,1239) - lu(k,1063) * lu(k,1236) + lu(k,1240) = lu(k,1240) - lu(k,1064) * lu(k,1236) + lu(k,1241) = lu(k,1241) - lu(k,1065) * lu(k,1236) + lu(k,1242) = lu(k,1242) - lu(k,1066) * lu(k,1236) + lu(k,1243) = lu(k,1243) - lu(k,1067) * lu(k,1236) + lu(k,1244) = lu(k,1244) - lu(k,1068) * lu(k,1236) + lu(k,1245) = lu(k,1245) - lu(k,1069) * lu(k,1236) + lu(k,1246) = lu(k,1246) - lu(k,1070) * lu(k,1236) + lu(k,1247) = lu(k,1247) - lu(k,1071) * lu(k,1236) + lu(k,1248) = lu(k,1248) - lu(k,1072) * lu(k,1236) + lu(k,1249) = lu(k,1249) - lu(k,1073) * lu(k,1236) + lu(k,1250) = lu(k,1250) - lu(k,1074) * lu(k,1236) + lu(k,1251) = lu(k,1251) - lu(k,1075) * lu(k,1236) + lu(k,1252) = lu(k,1252) - lu(k,1076) * lu(k,1236) + lu(k,1253) = lu(k,1253) - lu(k,1077) * lu(k,1236) + lu(k,1254) = lu(k,1254) - lu(k,1078) * lu(k,1236) + lu(k,1255) = lu(k,1255) - lu(k,1079) * lu(k,1236) + lu(k,1256) = lu(k,1256) - lu(k,1080) * lu(k,1236) + lu(k,1257) = lu(k,1257) - lu(k,1081) * lu(k,1236) + lu(k,1258) = lu(k,1258) - lu(k,1082) * lu(k,1236) + lu(k,1259) = lu(k,1259) - lu(k,1083) * lu(k,1236) + lu(k,1280) = lu(k,1280) - lu(k,1061) * lu(k,1279) + lu(k,1281) = lu(k,1281) - lu(k,1062) * lu(k,1279) + lu(k,1282) = lu(k,1282) - lu(k,1063) * lu(k,1279) + lu(k,1283) = lu(k,1283) - lu(k,1064) * lu(k,1279) + lu(k,1284) = lu(k,1284) - lu(k,1065) * lu(k,1279) + lu(k,1285) = lu(k,1285) - lu(k,1066) * lu(k,1279) + lu(k,1286) = lu(k,1286) - lu(k,1067) * lu(k,1279) + lu(k,1287) = lu(k,1287) - lu(k,1068) * lu(k,1279) + lu(k,1288) = lu(k,1288) - lu(k,1069) * lu(k,1279) + lu(k,1289) = lu(k,1289) - lu(k,1070) * lu(k,1279) + lu(k,1290) = lu(k,1290) - lu(k,1071) * lu(k,1279) + lu(k,1291) = lu(k,1291) - lu(k,1072) * lu(k,1279) + lu(k,1292) = lu(k,1292) - lu(k,1073) * lu(k,1279) + lu(k,1293) = lu(k,1293) - lu(k,1074) * lu(k,1279) + lu(k,1294) = lu(k,1294) - lu(k,1075) * lu(k,1279) + lu(k,1295) = lu(k,1295) - lu(k,1076) * lu(k,1279) + lu(k,1296) = lu(k,1296) - lu(k,1077) * lu(k,1279) + lu(k,1297) = lu(k,1297) - lu(k,1078) * lu(k,1279) + lu(k,1298) = lu(k,1298) - lu(k,1079) * lu(k,1279) + lu(k,1299) = lu(k,1299) - lu(k,1080) * lu(k,1279) + lu(k,1300) = lu(k,1300) - lu(k,1081) * lu(k,1279) + lu(k,1301) = lu(k,1301) - lu(k,1082) * lu(k,1279) + lu(k,1302) = lu(k,1302) - lu(k,1083) * lu(k,1279) + lu(k,1322) = lu(k,1322) - lu(k,1061) * lu(k,1321) + lu(k,1323) = lu(k,1323) - lu(k,1062) * lu(k,1321) + lu(k,1324) = lu(k,1324) - lu(k,1063) * lu(k,1321) + lu(k,1325) = lu(k,1325) - lu(k,1064) * lu(k,1321) + lu(k,1326) = lu(k,1326) - lu(k,1065) * lu(k,1321) + lu(k,1327) = lu(k,1327) - lu(k,1066) * lu(k,1321) + lu(k,1328) = lu(k,1328) - lu(k,1067) * lu(k,1321) + lu(k,1329) = lu(k,1329) - lu(k,1068) * lu(k,1321) + lu(k,1330) = lu(k,1330) - lu(k,1069) * lu(k,1321) + lu(k,1331) = lu(k,1331) - lu(k,1070) * lu(k,1321) + lu(k,1332) = lu(k,1332) - lu(k,1071) * lu(k,1321) + lu(k,1333) = lu(k,1333) - lu(k,1072) * lu(k,1321) + lu(k,1334) = lu(k,1334) - lu(k,1073) * lu(k,1321) + lu(k,1335) = lu(k,1335) - lu(k,1074) * lu(k,1321) + lu(k,1336) = lu(k,1336) - lu(k,1075) * lu(k,1321) + lu(k,1337) = lu(k,1337) - lu(k,1076) * lu(k,1321) + lu(k,1338) = lu(k,1338) - lu(k,1077) * lu(k,1321) + lu(k,1339) = lu(k,1339) - lu(k,1078) * lu(k,1321) + lu(k,1340) = lu(k,1340) - lu(k,1079) * lu(k,1321) + lu(k,1341) = lu(k,1341) - lu(k,1080) * lu(k,1321) + lu(k,1342) = lu(k,1342) - lu(k,1081) * lu(k,1321) + lu(k,1343) = lu(k,1343) - lu(k,1082) * lu(k,1321) + lu(k,1344) = lu(k,1344) - lu(k,1083) * lu(k,1321) + lu(k,1382) = lu(k,1382) - lu(k,1061) * lu(k,1381) + lu(k,1383) = lu(k,1383) - lu(k,1062) * lu(k,1381) + lu(k,1384) = lu(k,1384) - lu(k,1063) * lu(k,1381) + lu(k,1385) = lu(k,1385) - lu(k,1064) * lu(k,1381) + lu(k,1386) = lu(k,1386) - lu(k,1065) * lu(k,1381) + lu(k,1387) = lu(k,1387) - lu(k,1066) * lu(k,1381) + lu(k,1388) = lu(k,1388) - lu(k,1067) * lu(k,1381) + lu(k,1389) = lu(k,1389) - lu(k,1068) * lu(k,1381) + lu(k,1390) = lu(k,1390) - lu(k,1069) * lu(k,1381) + lu(k,1391) = lu(k,1391) - lu(k,1070) * lu(k,1381) + lu(k,1392) = lu(k,1392) - lu(k,1071) * lu(k,1381) + lu(k,1393) = lu(k,1393) - lu(k,1072) * lu(k,1381) + lu(k,1394) = lu(k,1394) - lu(k,1073) * lu(k,1381) + lu(k,1395) = lu(k,1395) - lu(k,1074) * lu(k,1381) + lu(k,1396) = lu(k,1396) - lu(k,1075) * lu(k,1381) + lu(k,1397) = lu(k,1397) - lu(k,1076) * lu(k,1381) + lu(k,1398) = lu(k,1398) - lu(k,1077) * lu(k,1381) + lu(k,1399) = lu(k,1399) - lu(k,1078) * lu(k,1381) + lu(k,1400) = lu(k,1400) - lu(k,1079) * lu(k,1381) + lu(k,1401) = lu(k,1401) - lu(k,1080) * lu(k,1381) + lu(k,1402) = lu(k,1402) - lu(k,1081) * lu(k,1381) + lu(k,1403) = lu(k,1403) - lu(k,1082) * lu(k,1381) + lu(k,1404) = lu(k,1404) - lu(k,1083) * lu(k,1381) + lu(k,1425) = lu(k,1425) - lu(k,1061) * lu(k,1424) + lu(k,1426) = lu(k,1426) - lu(k,1062) * lu(k,1424) + lu(k,1427) = lu(k,1427) - lu(k,1063) * lu(k,1424) + lu(k,1428) = lu(k,1428) - lu(k,1064) * lu(k,1424) + lu(k,1429) = lu(k,1429) - lu(k,1065) * lu(k,1424) + lu(k,1430) = lu(k,1430) - lu(k,1066) * lu(k,1424) + lu(k,1431) = lu(k,1431) - lu(k,1067) * lu(k,1424) + lu(k,1432) = lu(k,1432) - lu(k,1068) * lu(k,1424) + lu(k,1433) = lu(k,1433) - lu(k,1069) * lu(k,1424) + lu(k,1434) = lu(k,1434) - lu(k,1070) * lu(k,1424) + lu(k,1435) = lu(k,1435) - lu(k,1071) * lu(k,1424) + lu(k,1436) = lu(k,1436) - lu(k,1072) * lu(k,1424) + lu(k,1437) = lu(k,1437) - lu(k,1073) * lu(k,1424) + lu(k,1438) = lu(k,1438) - lu(k,1074) * lu(k,1424) + lu(k,1439) = lu(k,1439) - lu(k,1075) * lu(k,1424) + lu(k,1440) = lu(k,1440) - lu(k,1076) * lu(k,1424) + lu(k,1441) = lu(k,1441) - lu(k,1077) * lu(k,1424) + lu(k,1442) = lu(k,1442) - lu(k,1078) * lu(k,1424) + lu(k,1443) = lu(k,1443) - lu(k,1079) * lu(k,1424) + lu(k,1444) = lu(k,1444) - lu(k,1080) * lu(k,1424) + lu(k,1445) = lu(k,1445) - lu(k,1081) * lu(k,1424) + lu(k,1446) = lu(k,1446) - lu(k,1082) * lu(k,1424) + lu(k,1447) = lu(k,1447) - lu(k,1083) * lu(k,1424) + lu(k,1473) = lu(k,1473) - lu(k,1061) * lu(k,1472) + lu(k,1474) = lu(k,1474) - lu(k,1062) * lu(k,1472) + lu(k,1475) = lu(k,1475) - lu(k,1063) * lu(k,1472) + lu(k,1476) = lu(k,1476) - lu(k,1064) * lu(k,1472) + lu(k,1477) = lu(k,1477) - lu(k,1065) * lu(k,1472) + lu(k,1478) = lu(k,1478) - lu(k,1066) * lu(k,1472) + lu(k,1479) = lu(k,1479) - lu(k,1067) * lu(k,1472) + lu(k,1480) = lu(k,1480) - lu(k,1068) * lu(k,1472) + lu(k,1481) = lu(k,1481) - lu(k,1069) * lu(k,1472) + lu(k,1482) = lu(k,1482) - lu(k,1070) * lu(k,1472) + lu(k,1483) = lu(k,1483) - lu(k,1071) * lu(k,1472) + lu(k,1484) = lu(k,1484) - lu(k,1072) * lu(k,1472) + lu(k,1485) = lu(k,1485) - lu(k,1073) * lu(k,1472) + lu(k,1486) = lu(k,1486) - lu(k,1074) * lu(k,1472) + lu(k,1487) = lu(k,1487) - lu(k,1075) * lu(k,1472) + lu(k,1488) = lu(k,1488) - lu(k,1076) * lu(k,1472) + lu(k,1489) = lu(k,1489) - lu(k,1077) * lu(k,1472) + lu(k,1490) = lu(k,1490) - lu(k,1078) * lu(k,1472) + lu(k,1491) = lu(k,1491) - lu(k,1079) * lu(k,1472) + lu(k,1492) = lu(k,1492) - lu(k,1080) * lu(k,1472) + lu(k,1493) = lu(k,1493) - lu(k,1081) * lu(k,1472) + lu(k,1494) = lu(k,1494) - lu(k,1082) * lu(k,1472) + lu(k,1495) = lu(k,1495) - lu(k,1083) * lu(k,1472) + lu(k,1514) = lu(k,1514) - lu(k,1061) * lu(k,1513) + lu(k,1515) = lu(k,1515) - lu(k,1062) * lu(k,1513) + lu(k,1516) = lu(k,1516) - lu(k,1063) * lu(k,1513) + lu(k,1517) = lu(k,1517) - lu(k,1064) * lu(k,1513) + lu(k,1518) = lu(k,1518) - lu(k,1065) * lu(k,1513) + lu(k,1519) = lu(k,1519) - lu(k,1066) * lu(k,1513) + lu(k,1520) = lu(k,1520) - lu(k,1067) * lu(k,1513) + lu(k,1521) = lu(k,1521) - lu(k,1068) * lu(k,1513) + lu(k,1522) = lu(k,1522) - lu(k,1069) * lu(k,1513) + lu(k,1523) = lu(k,1523) - lu(k,1070) * lu(k,1513) + lu(k,1524) = lu(k,1524) - lu(k,1071) * lu(k,1513) + lu(k,1525) = lu(k,1525) - lu(k,1072) * lu(k,1513) + lu(k,1526) = lu(k,1526) - lu(k,1073) * lu(k,1513) + lu(k,1527) = lu(k,1527) - lu(k,1074) * lu(k,1513) + lu(k,1528) = lu(k,1528) - lu(k,1075) * lu(k,1513) + lu(k,1529) = lu(k,1529) - lu(k,1076) * lu(k,1513) + lu(k,1530) = lu(k,1530) - lu(k,1077) * lu(k,1513) + lu(k,1531) = lu(k,1531) - lu(k,1078) * lu(k,1513) + lu(k,1532) = lu(k,1532) - lu(k,1079) * lu(k,1513) + lu(k,1533) = lu(k,1533) - lu(k,1080) * lu(k,1513) + lu(k,1534) = lu(k,1534) - lu(k,1081) * lu(k,1513) + lu(k,1535) = lu(k,1535) - lu(k,1082) * lu(k,1513) + lu(k,1536) = lu(k,1536) - lu(k,1083) * lu(k,1513) + lu(k,1550) = lu(k,1550) - lu(k,1061) * lu(k,1549) + lu(k,1551) = lu(k,1551) - lu(k,1062) * lu(k,1549) + lu(k,1552) = lu(k,1552) - lu(k,1063) * lu(k,1549) + lu(k,1553) = lu(k,1553) - lu(k,1064) * lu(k,1549) + lu(k,1554) = lu(k,1554) - lu(k,1065) * lu(k,1549) + lu(k,1555) = lu(k,1555) - lu(k,1066) * lu(k,1549) + lu(k,1556) = lu(k,1556) - lu(k,1067) * lu(k,1549) + lu(k,1557) = lu(k,1557) - lu(k,1068) * lu(k,1549) + lu(k,1558) = lu(k,1558) - lu(k,1069) * lu(k,1549) + lu(k,1559) = lu(k,1559) - lu(k,1070) * lu(k,1549) + lu(k,1560) = lu(k,1560) - lu(k,1071) * lu(k,1549) + lu(k,1561) = lu(k,1561) - lu(k,1072) * lu(k,1549) + lu(k,1562) = lu(k,1562) - lu(k,1073) * lu(k,1549) + lu(k,1563) = lu(k,1563) - lu(k,1074) * lu(k,1549) + lu(k,1564) = lu(k,1564) - lu(k,1075) * lu(k,1549) + lu(k,1565) = lu(k,1565) - lu(k,1076) * lu(k,1549) + lu(k,1566) = lu(k,1566) - lu(k,1077) * lu(k,1549) + lu(k,1567) = lu(k,1567) - lu(k,1078) * lu(k,1549) + lu(k,1568) = lu(k,1568) - lu(k,1079) * lu(k,1549) + lu(k,1569) = lu(k,1569) - lu(k,1080) * lu(k,1549) + lu(k,1570) = lu(k,1570) - lu(k,1081) * lu(k,1549) + lu(k,1571) = lu(k,1571) - lu(k,1082) * lu(k,1549) + lu(k,1572) = lu(k,1572) - lu(k,1083) * lu(k,1549) + lu(k,1595) = lu(k,1595) - lu(k,1061) * lu(k,1594) + lu(k,1596) = lu(k,1596) - lu(k,1062) * lu(k,1594) + lu(k,1597) = lu(k,1597) - lu(k,1063) * lu(k,1594) + lu(k,1598) = lu(k,1598) - lu(k,1064) * lu(k,1594) + lu(k,1599) = lu(k,1599) - lu(k,1065) * lu(k,1594) + lu(k,1600) = lu(k,1600) - lu(k,1066) * lu(k,1594) + lu(k,1601) = lu(k,1601) - lu(k,1067) * lu(k,1594) + lu(k,1602) = lu(k,1602) - lu(k,1068) * lu(k,1594) + lu(k,1603) = lu(k,1603) - lu(k,1069) * lu(k,1594) + lu(k,1604) = lu(k,1604) - lu(k,1070) * lu(k,1594) + lu(k,1605) = lu(k,1605) - lu(k,1071) * lu(k,1594) + lu(k,1606) = lu(k,1606) - lu(k,1072) * lu(k,1594) + lu(k,1607) = lu(k,1607) - lu(k,1073) * lu(k,1594) + lu(k,1608) = lu(k,1608) - lu(k,1074) * lu(k,1594) + lu(k,1609) = lu(k,1609) - lu(k,1075) * lu(k,1594) + lu(k,1610) = lu(k,1610) - lu(k,1076) * lu(k,1594) + lu(k,1611) = lu(k,1611) - lu(k,1077) * lu(k,1594) + lu(k,1612) = lu(k,1612) - lu(k,1078) * lu(k,1594) + lu(k,1613) = lu(k,1613) - lu(k,1079) * lu(k,1594) + lu(k,1614) = lu(k,1614) - lu(k,1080) * lu(k,1594) + lu(k,1615) = lu(k,1615) - lu(k,1081) * lu(k,1594) + lu(k,1616) = lu(k,1616) - lu(k,1082) * lu(k,1594) + lu(k,1617) = lu(k,1617) - lu(k,1083) * lu(k,1594) + lu(k,1638) = lu(k,1638) - lu(k,1061) * lu(k,1637) + lu(k,1639) = lu(k,1639) - lu(k,1062) * lu(k,1637) + lu(k,1640) = lu(k,1640) - lu(k,1063) * lu(k,1637) + lu(k,1641) = lu(k,1641) - lu(k,1064) * lu(k,1637) + lu(k,1642) = lu(k,1642) - lu(k,1065) * lu(k,1637) + lu(k,1643) = lu(k,1643) - lu(k,1066) * lu(k,1637) + lu(k,1644) = lu(k,1644) - lu(k,1067) * lu(k,1637) + lu(k,1645) = lu(k,1645) - lu(k,1068) * lu(k,1637) + lu(k,1646) = lu(k,1646) - lu(k,1069) * lu(k,1637) + lu(k,1647) = lu(k,1647) - lu(k,1070) * lu(k,1637) + lu(k,1648) = lu(k,1648) - lu(k,1071) * lu(k,1637) + lu(k,1649) = lu(k,1649) - lu(k,1072) * lu(k,1637) + lu(k,1650) = lu(k,1650) - lu(k,1073) * lu(k,1637) + lu(k,1651) = lu(k,1651) - lu(k,1074) * lu(k,1637) + lu(k,1652) = lu(k,1652) - lu(k,1075) * lu(k,1637) + lu(k,1653) = lu(k,1653) - lu(k,1076) * lu(k,1637) + lu(k,1654) = lu(k,1654) - lu(k,1077) * lu(k,1637) + lu(k,1655) = lu(k,1655) - lu(k,1078) * lu(k,1637) + lu(k,1656) = lu(k,1656) - lu(k,1079) * lu(k,1637) + lu(k,1657) = lu(k,1657) - lu(k,1080) * lu(k,1637) + lu(k,1658) = lu(k,1658) - lu(k,1081) * lu(k,1637) + lu(k,1659) = lu(k,1659) - lu(k,1082) * lu(k,1637) + lu(k,1660) = lu(k,1660) - lu(k,1083) * lu(k,1637) + lu(k,1680) = lu(k,1680) - lu(k,1061) * lu(k,1679) + lu(k,1681) = lu(k,1681) - lu(k,1062) * lu(k,1679) + lu(k,1682) = lu(k,1682) - lu(k,1063) * lu(k,1679) + lu(k,1683) = lu(k,1683) - lu(k,1064) * lu(k,1679) + lu(k,1684) = lu(k,1684) - lu(k,1065) * lu(k,1679) + lu(k,1685) = lu(k,1685) - lu(k,1066) * lu(k,1679) + lu(k,1686) = lu(k,1686) - lu(k,1067) * lu(k,1679) + lu(k,1687) = lu(k,1687) - lu(k,1068) * lu(k,1679) + lu(k,1688) = lu(k,1688) - lu(k,1069) * lu(k,1679) + lu(k,1689) = lu(k,1689) - lu(k,1070) * lu(k,1679) + lu(k,1690) = lu(k,1690) - lu(k,1071) * lu(k,1679) + lu(k,1691) = lu(k,1691) - lu(k,1072) * lu(k,1679) + lu(k,1692) = lu(k,1692) - lu(k,1073) * lu(k,1679) + lu(k,1693) = lu(k,1693) - lu(k,1074) * lu(k,1679) + lu(k,1694) = lu(k,1694) - lu(k,1075) * lu(k,1679) + lu(k,1695) = lu(k,1695) - lu(k,1076) * lu(k,1679) + lu(k,1696) = lu(k,1696) - lu(k,1077) * lu(k,1679) + lu(k,1697) = lu(k,1697) - lu(k,1078) * lu(k,1679) + lu(k,1698) = lu(k,1698) - lu(k,1079) * lu(k,1679) + lu(k,1699) = lu(k,1699) - lu(k,1080) * lu(k,1679) + lu(k,1700) = lu(k,1700) - lu(k,1081) * lu(k,1679) + lu(k,1701) = lu(k,1701) - lu(k,1082) * lu(k,1679) + lu(k,1702) = lu(k,1702) - lu(k,1083) * lu(k,1679) + lu(k,1720) = lu(k,1720) - lu(k,1061) * lu(k,1719) + lu(k,1721) = lu(k,1721) - lu(k,1062) * lu(k,1719) + lu(k,1722) = lu(k,1722) - lu(k,1063) * lu(k,1719) + lu(k,1723) = lu(k,1723) - lu(k,1064) * lu(k,1719) + lu(k,1724) = lu(k,1724) - lu(k,1065) * lu(k,1719) + lu(k,1725) = lu(k,1725) - lu(k,1066) * lu(k,1719) + lu(k,1726) = lu(k,1726) - lu(k,1067) * lu(k,1719) + lu(k,1727) = lu(k,1727) - lu(k,1068) * lu(k,1719) + lu(k,1728) = lu(k,1728) - lu(k,1069) * lu(k,1719) + lu(k,1729) = lu(k,1729) - lu(k,1070) * lu(k,1719) + lu(k,1730) = lu(k,1730) - lu(k,1071) * lu(k,1719) + lu(k,1731) = lu(k,1731) - lu(k,1072) * lu(k,1719) + lu(k,1732) = lu(k,1732) - lu(k,1073) * lu(k,1719) + lu(k,1733) = lu(k,1733) - lu(k,1074) * lu(k,1719) + lu(k,1734) = lu(k,1734) - lu(k,1075) * lu(k,1719) + lu(k,1735) = lu(k,1735) - lu(k,1076) * lu(k,1719) + lu(k,1736) = lu(k,1736) - lu(k,1077) * lu(k,1719) + lu(k,1737) = lu(k,1737) - lu(k,1078) * lu(k,1719) + lu(k,1738) = lu(k,1738) - lu(k,1079) * lu(k,1719) + lu(k,1739) = lu(k,1739) - lu(k,1080) * lu(k,1719) + lu(k,1740) = lu(k,1740) - lu(k,1081) * lu(k,1719) + lu(k,1741) = lu(k,1741) - lu(k,1082) * lu(k,1719) + lu(k,1742) = lu(k,1742) - lu(k,1083) * lu(k,1719) + lu(k,1756) = lu(k,1756) - lu(k,1061) * lu(k,1755) + lu(k,1757) = lu(k,1757) - lu(k,1062) * lu(k,1755) + lu(k,1758) = lu(k,1758) - lu(k,1063) * lu(k,1755) + lu(k,1759) = lu(k,1759) - lu(k,1064) * lu(k,1755) + lu(k,1760) = lu(k,1760) - lu(k,1065) * lu(k,1755) + lu(k,1761) = lu(k,1761) - lu(k,1066) * lu(k,1755) + lu(k,1762) = lu(k,1762) - lu(k,1067) * lu(k,1755) + lu(k,1763) = lu(k,1763) - lu(k,1068) * lu(k,1755) + lu(k,1764) = lu(k,1764) - lu(k,1069) * lu(k,1755) + lu(k,1765) = lu(k,1765) - lu(k,1070) * lu(k,1755) + lu(k,1766) = lu(k,1766) - lu(k,1071) * lu(k,1755) + lu(k,1767) = lu(k,1767) - lu(k,1072) * lu(k,1755) + lu(k,1768) = lu(k,1768) - lu(k,1073) * lu(k,1755) + lu(k,1769) = lu(k,1769) - lu(k,1074) * lu(k,1755) + lu(k,1770) = lu(k,1770) - lu(k,1075) * lu(k,1755) + lu(k,1771) = lu(k,1771) - lu(k,1076) * lu(k,1755) + lu(k,1772) = lu(k,1772) - lu(k,1077) * lu(k,1755) + lu(k,1773) = lu(k,1773) - lu(k,1078) * lu(k,1755) + lu(k,1774) = lu(k,1774) - lu(k,1079) * lu(k,1755) + lu(k,1775) = lu(k,1775) - lu(k,1080) * lu(k,1755) + lu(k,1776) = lu(k,1776) - lu(k,1081) * lu(k,1755) + lu(k,1777) = lu(k,1777) - lu(k,1082) * lu(k,1755) + lu(k,1778) = lu(k,1778) - lu(k,1083) * lu(k,1755) + lu(k,1804) = lu(k,1804) - lu(k,1061) * lu(k,1803) + lu(k,1805) = lu(k,1805) - lu(k,1062) * lu(k,1803) + lu(k,1806) = lu(k,1806) - lu(k,1063) * lu(k,1803) + lu(k,1807) = lu(k,1807) - lu(k,1064) * lu(k,1803) + lu(k,1808) = lu(k,1808) - lu(k,1065) * lu(k,1803) + lu(k,1809) = lu(k,1809) - lu(k,1066) * lu(k,1803) + lu(k,1810) = lu(k,1810) - lu(k,1067) * lu(k,1803) + lu(k,1811) = lu(k,1811) - lu(k,1068) * lu(k,1803) + lu(k,1812) = lu(k,1812) - lu(k,1069) * lu(k,1803) + lu(k,1813) = lu(k,1813) - lu(k,1070) * lu(k,1803) + lu(k,1814) = lu(k,1814) - lu(k,1071) * lu(k,1803) + lu(k,1815) = lu(k,1815) - lu(k,1072) * lu(k,1803) + lu(k,1816) = lu(k,1816) - lu(k,1073) * lu(k,1803) + lu(k,1817) = lu(k,1817) - lu(k,1074) * lu(k,1803) + lu(k,1818) = lu(k,1818) - lu(k,1075) * lu(k,1803) + lu(k,1819) = lu(k,1819) - lu(k,1076) * lu(k,1803) + lu(k,1820) = lu(k,1820) - lu(k,1077) * lu(k,1803) + lu(k,1821) = lu(k,1821) - lu(k,1078) * lu(k,1803) + lu(k,1822) = lu(k,1822) - lu(k,1079) * lu(k,1803) + lu(k,1823) = lu(k,1823) - lu(k,1080) * lu(k,1803) + lu(k,1824) = lu(k,1824) - lu(k,1081) * lu(k,1803) + lu(k,1825) = lu(k,1825) - lu(k,1082) * lu(k,1803) + lu(k,1826) = lu(k,1826) - lu(k,1083) * lu(k,1803) + lu(k,1837) = lu(k,1837) - lu(k,1061) * lu(k,1836) + lu(k,1838) = lu(k,1838) - lu(k,1062) * lu(k,1836) + lu(k,1839) = lu(k,1839) - lu(k,1063) * lu(k,1836) + lu(k,1840) = lu(k,1840) - lu(k,1064) * lu(k,1836) + lu(k,1841) = lu(k,1841) - lu(k,1065) * lu(k,1836) + lu(k,1842) = lu(k,1842) - lu(k,1066) * lu(k,1836) + lu(k,1843) = lu(k,1843) - lu(k,1067) * lu(k,1836) + lu(k,1844) = lu(k,1844) - lu(k,1068) * lu(k,1836) + lu(k,1845) = lu(k,1845) - lu(k,1069) * lu(k,1836) + lu(k,1846) = lu(k,1846) - lu(k,1070) * lu(k,1836) + lu(k,1847) = lu(k,1847) - lu(k,1071) * lu(k,1836) + lu(k,1848) = lu(k,1848) - lu(k,1072) * lu(k,1836) + lu(k,1849) = lu(k,1849) - lu(k,1073) * lu(k,1836) + lu(k,1850) = lu(k,1850) - lu(k,1074) * lu(k,1836) + lu(k,1851) = lu(k,1851) - lu(k,1075) * lu(k,1836) + lu(k,1852) = lu(k,1852) - lu(k,1076) * lu(k,1836) + lu(k,1853) = lu(k,1853) - lu(k,1077) * lu(k,1836) + lu(k,1854) = lu(k,1854) - lu(k,1078) * lu(k,1836) + lu(k,1855) = lu(k,1855) - lu(k,1079) * lu(k,1836) + lu(k,1856) = lu(k,1856) - lu(k,1080) * lu(k,1836) + lu(k,1857) = lu(k,1857) - lu(k,1081) * lu(k,1836) + lu(k,1858) = lu(k,1858) - lu(k,1082) * lu(k,1836) + lu(k,1859) = lu(k,1859) - lu(k,1083) * lu(k,1836) + lu(k,1873) = lu(k,1873) - lu(k,1061) * lu(k,1872) + lu(k,1874) = lu(k,1874) - lu(k,1062) * lu(k,1872) + lu(k,1875) = lu(k,1875) - lu(k,1063) * lu(k,1872) + lu(k,1876) = lu(k,1876) - lu(k,1064) * lu(k,1872) + lu(k,1877) = lu(k,1877) - lu(k,1065) * lu(k,1872) + lu(k,1878) = lu(k,1878) - lu(k,1066) * lu(k,1872) + lu(k,1879) = lu(k,1879) - lu(k,1067) * lu(k,1872) + lu(k,1880) = lu(k,1880) - lu(k,1068) * lu(k,1872) + lu(k,1881) = lu(k,1881) - lu(k,1069) * lu(k,1872) + lu(k,1882) = lu(k,1882) - lu(k,1070) * lu(k,1872) + lu(k,1883) = lu(k,1883) - lu(k,1071) * lu(k,1872) + lu(k,1884) = lu(k,1884) - lu(k,1072) * lu(k,1872) + lu(k,1885) = lu(k,1885) - lu(k,1073) * lu(k,1872) + lu(k,1886) = lu(k,1886) - lu(k,1074) * lu(k,1872) + lu(k,1887) = lu(k,1887) - lu(k,1075) * lu(k,1872) + lu(k,1888) = lu(k,1888) - lu(k,1076) * lu(k,1872) + lu(k,1889) = lu(k,1889) - lu(k,1077) * lu(k,1872) + lu(k,1890) = lu(k,1890) - lu(k,1078) * lu(k,1872) + lu(k,1891) = lu(k,1891) - lu(k,1079) * lu(k,1872) + lu(k,1892) = lu(k,1892) - lu(k,1080) * lu(k,1872) + lu(k,1893) = lu(k,1893) - lu(k,1081) * lu(k,1872) + lu(k,1894) = lu(k,1894) - lu(k,1082) * lu(k,1872) + lu(k,1895) = lu(k,1895) - lu(k,1083) * lu(k,1872) + lu(k,1922) = lu(k,1922) - lu(k,1061) * lu(k,1921) + lu(k,1923) = lu(k,1923) - lu(k,1062) * lu(k,1921) + lu(k,1924) = lu(k,1924) - lu(k,1063) * lu(k,1921) + lu(k,1925) = lu(k,1925) - lu(k,1064) * lu(k,1921) + lu(k,1926) = lu(k,1926) - lu(k,1065) * lu(k,1921) + lu(k,1927) = lu(k,1927) - lu(k,1066) * lu(k,1921) + lu(k,1928) = lu(k,1928) - lu(k,1067) * lu(k,1921) + lu(k,1929) = lu(k,1929) - lu(k,1068) * lu(k,1921) + lu(k,1930) = lu(k,1930) - lu(k,1069) * lu(k,1921) + lu(k,1931) = lu(k,1931) - lu(k,1070) * lu(k,1921) + lu(k,1932) = lu(k,1932) - lu(k,1071) * lu(k,1921) + lu(k,1933) = lu(k,1933) - lu(k,1072) * lu(k,1921) + lu(k,1934) = lu(k,1934) - lu(k,1073) * lu(k,1921) + lu(k,1935) = lu(k,1935) - lu(k,1074) * lu(k,1921) + lu(k,1936) = lu(k,1936) - lu(k,1075) * lu(k,1921) + lu(k,1937) = lu(k,1937) - lu(k,1076) * lu(k,1921) + lu(k,1938) = lu(k,1938) - lu(k,1077) * lu(k,1921) + lu(k,1939) = lu(k,1939) - lu(k,1078) * lu(k,1921) + lu(k,1940) = lu(k,1940) - lu(k,1079) * lu(k,1921) + lu(k,1941) = lu(k,1941) - lu(k,1080) * lu(k,1921) + lu(k,1942) = lu(k,1942) - lu(k,1081) * lu(k,1921) + lu(k,1943) = lu(k,1943) - lu(k,1082) * lu(k,1921) + lu(k,1944) = lu(k,1944) - lu(k,1083) * lu(k,1921) + lu(k,1966) = lu(k,1966) - lu(k,1061) * lu(k,1965) + lu(k,1967) = lu(k,1967) - lu(k,1062) * lu(k,1965) + lu(k,1968) = lu(k,1968) - lu(k,1063) * lu(k,1965) + lu(k,1969) = lu(k,1969) - lu(k,1064) * lu(k,1965) + lu(k,1970) = lu(k,1970) - lu(k,1065) * lu(k,1965) + lu(k,1971) = lu(k,1971) - lu(k,1066) * lu(k,1965) + lu(k,1972) = lu(k,1972) - lu(k,1067) * lu(k,1965) + lu(k,1973) = lu(k,1973) - lu(k,1068) * lu(k,1965) + lu(k,1974) = lu(k,1974) - lu(k,1069) * lu(k,1965) + lu(k,1975) = lu(k,1975) - lu(k,1070) * lu(k,1965) + lu(k,1976) = lu(k,1976) - lu(k,1071) * lu(k,1965) + lu(k,1977) = lu(k,1977) - lu(k,1072) * lu(k,1965) + lu(k,1978) = lu(k,1978) - lu(k,1073) * lu(k,1965) + lu(k,1979) = lu(k,1979) - lu(k,1074) * lu(k,1965) + lu(k,1980) = lu(k,1980) - lu(k,1075) * lu(k,1965) + lu(k,1981) = lu(k,1981) - lu(k,1076) * lu(k,1965) + lu(k,1982) = lu(k,1982) - lu(k,1077) * lu(k,1965) + lu(k,1983) = lu(k,1983) - lu(k,1078) * lu(k,1965) + lu(k,1984) = lu(k,1984) - lu(k,1079) * lu(k,1965) + lu(k,1985) = lu(k,1985) - lu(k,1080) * lu(k,1965) + lu(k,1986) = lu(k,1986) - lu(k,1081) * lu(k,1965) + lu(k,1987) = lu(k,1987) - lu(k,1082) * lu(k,1965) + lu(k,1988) = lu(k,1988) - lu(k,1083) * lu(k,1965) + lu(k,2011) = lu(k,2011) - lu(k,1061) * lu(k,2010) + lu(k,2012) = lu(k,2012) - lu(k,1062) * lu(k,2010) + lu(k,2013) = lu(k,2013) - lu(k,1063) * lu(k,2010) + lu(k,2014) = lu(k,2014) - lu(k,1064) * lu(k,2010) + lu(k,2015) = lu(k,2015) - lu(k,1065) * lu(k,2010) + lu(k,2016) = lu(k,2016) - lu(k,1066) * lu(k,2010) + lu(k,2017) = lu(k,2017) - lu(k,1067) * lu(k,2010) + lu(k,2018) = lu(k,2018) - lu(k,1068) * lu(k,2010) + lu(k,2019) = lu(k,2019) - lu(k,1069) * lu(k,2010) + lu(k,2020) = lu(k,2020) - lu(k,1070) * lu(k,2010) + lu(k,2021) = lu(k,2021) - lu(k,1071) * lu(k,2010) + lu(k,2022) = lu(k,2022) - lu(k,1072) * lu(k,2010) + lu(k,2023) = lu(k,2023) - lu(k,1073) * lu(k,2010) + lu(k,2024) = lu(k,2024) - lu(k,1074) * lu(k,2010) + lu(k,2025) = lu(k,2025) - lu(k,1075) * lu(k,2010) + lu(k,2026) = lu(k,2026) - lu(k,1076) * lu(k,2010) + lu(k,2027) = lu(k,2027) - lu(k,1077) * lu(k,2010) + lu(k,2028) = lu(k,2028) - lu(k,1078) * lu(k,2010) + lu(k,2029) = lu(k,2029) - lu(k,1079) * lu(k,2010) + lu(k,2030) = lu(k,2030) - lu(k,1080) * lu(k,2010) + lu(k,2031) = lu(k,2031) - lu(k,1081) * lu(k,2010) + lu(k,2032) = lu(k,2032) - lu(k,1082) * lu(k,2010) + lu(k,2033) = lu(k,2033) - lu(k,1083) * lu(k,2010) + lu(k,2071) = lu(k,2071) - lu(k,1061) * lu(k,2070) + lu(k,2072) = lu(k,2072) - lu(k,1062) * lu(k,2070) + lu(k,2073) = lu(k,2073) - lu(k,1063) * lu(k,2070) + lu(k,2074) = lu(k,2074) - lu(k,1064) * lu(k,2070) + lu(k,2075) = lu(k,2075) - lu(k,1065) * lu(k,2070) + lu(k,2076) = lu(k,2076) - lu(k,1066) * lu(k,2070) + lu(k,2077) = lu(k,2077) - lu(k,1067) * lu(k,2070) + lu(k,2078) = lu(k,2078) - lu(k,1068) * lu(k,2070) + lu(k,2079) = lu(k,2079) - lu(k,1069) * lu(k,2070) + lu(k,2080) = lu(k,2080) - lu(k,1070) * lu(k,2070) + lu(k,2081) = lu(k,2081) - lu(k,1071) * lu(k,2070) + lu(k,2082) = lu(k,2082) - lu(k,1072) * lu(k,2070) + lu(k,2083) = lu(k,2083) - lu(k,1073) * lu(k,2070) + lu(k,2084) = lu(k,2084) - lu(k,1074) * lu(k,2070) + lu(k,2085) = lu(k,2085) - lu(k,1075) * lu(k,2070) + lu(k,2086) = lu(k,2086) - lu(k,1076) * lu(k,2070) + lu(k,2087) = lu(k,2087) - lu(k,1077) * lu(k,2070) + lu(k,2088) = lu(k,2088) - lu(k,1078) * lu(k,2070) + lu(k,2089) = lu(k,2089) - lu(k,1079) * lu(k,2070) + lu(k,2090) = lu(k,2090) - lu(k,1080) * lu(k,2070) + lu(k,2091) = lu(k,2091) - lu(k,1081) * lu(k,2070) + lu(k,2092) = lu(k,2092) - lu(k,1082) * lu(k,2070) + lu(k,2093) = lu(k,2093) - lu(k,1083) * lu(k,2070) end do - end subroutine lu_fac21 - subroutine lu_fac22( avec_len, lu ) + end subroutine lu_fac22 + subroutine lu_fac23( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -10088,1400 +10128,1400 @@ subroutine lu_fac22( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1104) = 1._r8 / lu(k,1104) - lu(k,1105) = lu(k,1105) * lu(k,1104) - lu(k,1106) = lu(k,1106) * lu(k,1104) - lu(k,1107) = lu(k,1107) * lu(k,1104) - lu(k,1108) = lu(k,1108) * lu(k,1104) - lu(k,1109) = lu(k,1109) * lu(k,1104) - lu(k,1110) = lu(k,1110) * lu(k,1104) - lu(k,1111) = lu(k,1111) * lu(k,1104) - lu(k,1112) = lu(k,1112) * lu(k,1104) - lu(k,1113) = lu(k,1113) * lu(k,1104) - lu(k,1114) = lu(k,1114) * lu(k,1104) - lu(k,1115) = lu(k,1115) * lu(k,1104) - lu(k,1116) = lu(k,1116) * lu(k,1104) - lu(k,1117) = lu(k,1117) * lu(k,1104) - lu(k,1118) = lu(k,1118) * lu(k,1104) - lu(k,1119) = lu(k,1119) * lu(k,1104) - lu(k,1120) = lu(k,1120) * lu(k,1104) - lu(k,1121) = lu(k,1121) * lu(k,1104) - lu(k,1122) = lu(k,1122) * lu(k,1104) - lu(k,1123) = lu(k,1123) * lu(k,1104) - lu(k,1124) = lu(k,1124) * lu(k,1104) - lu(k,1125) = lu(k,1125) * lu(k,1104) - lu(k,1126) = lu(k,1126) * lu(k,1104) - lu(k,1153) = lu(k,1153) - lu(k,1105) * lu(k,1152) - lu(k,1154) = lu(k,1154) - lu(k,1106) * lu(k,1152) - lu(k,1155) = lu(k,1155) - lu(k,1107) * lu(k,1152) - lu(k,1156) = lu(k,1156) - lu(k,1108) * lu(k,1152) - lu(k,1157) = lu(k,1157) - lu(k,1109) * lu(k,1152) - lu(k,1158) = lu(k,1158) - lu(k,1110) * lu(k,1152) - lu(k,1159) = lu(k,1159) - lu(k,1111) * lu(k,1152) - lu(k,1160) = lu(k,1160) - lu(k,1112) * lu(k,1152) - lu(k,1161) = lu(k,1161) - lu(k,1113) * lu(k,1152) - lu(k,1162) = lu(k,1162) - lu(k,1114) * lu(k,1152) - lu(k,1163) = lu(k,1163) - lu(k,1115) * lu(k,1152) - lu(k,1164) = lu(k,1164) - lu(k,1116) * lu(k,1152) - lu(k,1165) = lu(k,1165) - lu(k,1117) * lu(k,1152) - lu(k,1166) = lu(k,1166) - lu(k,1118) * lu(k,1152) - lu(k,1167) = lu(k,1167) - lu(k,1119) * lu(k,1152) - lu(k,1168) = lu(k,1168) - lu(k,1120) * lu(k,1152) - lu(k,1169) = lu(k,1169) - lu(k,1121) * lu(k,1152) - lu(k,1170) = lu(k,1170) - lu(k,1122) * lu(k,1152) - lu(k,1171) = lu(k,1171) - lu(k,1123) * lu(k,1152) - lu(k,1172) = lu(k,1172) - lu(k,1124) * lu(k,1152) - lu(k,1173) = lu(k,1173) - lu(k,1125) * lu(k,1152) - lu(k,1174) = lu(k,1174) - lu(k,1126) * lu(k,1152) - lu(k,1196) = lu(k,1196) - lu(k,1105) * lu(k,1195) - lu(k,1197) = lu(k,1197) - lu(k,1106) * lu(k,1195) - lu(k,1198) = lu(k,1198) - lu(k,1107) * lu(k,1195) - lu(k,1199) = lu(k,1199) - lu(k,1108) * lu(k,1195) - lu(k,1200) = lu(k,1200) - lu(k,1109) * lu(k,1195) - lu(k,1201) = lu(k,1201) - lu(k,1110) * lu(k,1195) - lu(k,1202) = lu(k,1202) - lu(k,1111) * lu(k,1195) - lu(k,1203) = lu(k,1203) - lu(k,1112) * lu(k,1195) - lu(k,1204) = lu(k,1204) - lu(k,1113) * lu(k,1195) - lu(k,1205) = lu(k,1205) - lu(k,1114) * lu(k,1195) - lu(k,1206) = lu(k,1206) - lu(k,1115) * lu(k,1195) - lu(k,1207) = lu(k,1207) - lu(k,1116) * lu(k,1195) - lu(k,1208) = lu(k,1208) - lu(k,1117) * lu(k,1195) - lu(k,1209) = lu(k,1209) - lu(k,1118) * lu(k,1195) - lu(k,1210) = lu(k,1210) - lu(k,1119) * lu(k,1195) - lu(k,1211) = lu(k,1211) - lu(k,1120) * lu(k,1195) - lu(k,1212) = lu(k,1212) - lu(k,1121) * lu(k,1195) - lu(k,1213) = lu(k,1213) - lu(k,1122) * lu(k,1195) - lu(k,1214) = lu(k,1214) - lu(k,1123) * lu(k,1195) - lu(k,1215) = lu(k,1215) - lu(k,1124) * lu(k,1195) - lu(k,1216) = lu(k,1216) - lu(k,1125) * lu(k,1195) - lu(k,1217) = lu(k,1217) - lu(k,1126) * lu(k,1195) - lu(k,1239) = lu(k,1239) - lu(k,1105) * lu(k,1238) - lu(k,1240) = lu(k,1240) - lu(k,1106) * lu(k,1238) - lu(k,1241) = lu(k,1241) - lu(k,1107) * lu(k,1238) - lu(k,1242) = lu(k,1242) - lu(k,1108) * lu(k,1238) - lu(k,1243) = lu(k,1243) - lu(k,1109) * lu(k,1238) - lu(k,1244) = lu(k,1244) - lu(k,1110) * lu(k,1238) - lu(k,1245) = lu(k,1245) - lu(k,1111) * lu(k,1238) - lu(k,1246) = lu(k,1246) - lu(k,1112) * lu(k,1238) - lu(k,1247) = lu(k,1247) - lu(k,1113) * lu(k,1238) - lu(k,1248) = lu(k,1248) - lu(k,1114) * lu(k,1238) - lu(k,1249) = lu(k,1249) - lu(k,1115) * lu(k,1238) - lu(k,1250) = lu(k,1250) - lu(k,1116) * lu(k,1238) - lu(k,1251) = lu(k,1251) - lu(k,1117) * lu(k,1238) - lu(k,1252) = lu(k,1252) - lu(k,1118) * lu(k,1238) - lu(k,1253) = lu(k,1253) - lu(k,1119) * lu(k,1238) - lu(k,1254) = lu(k,1254) - lu(k,1120) * lu(k,1238) - lu(k,1255) = lu(k,1255) - lu(k,1121) * lu(k,1238) - lu(k,1256) = lu(k,1256) - lu(k,1122) * lu(k,1238) - lu(k,1257) = lu(k,1257) - lu(k,1123) * lu(k,1238) - lu(k,1258) = lu(k,1258) - lu(k,1124) * lu(k,1238) - lu(k,1259) = lu(k,1259) - lu(k,1125) * lu(k,1238) - lu(k,1260) = lu(k,1260) - lu(k,1126) * lu(k,1238) - lu(k,1281) = lu(k,1281) - lu(k,1105) * lu(k,1280) - lu(k,1282) = lu(k,1282) - lu(k,1106) * lu(k,1280) - lu(k,1283) = lu(k,1283) - lu(k,1107) * lu(k,1280) - lu(k,1284) = lu(k,1284) - lu(k,1108) * lu(k,1280) - lu(k,1285) = lu(k,1285) - lu(k,1109) * lu(k,1280) - lu(k,1286) = lu(k,1286) - lu(k,1110) * lu(k,1280) - lu(k,1287) = lu(k,1287) - lu(k,1111) * lu(k,1280) - lu(k,1288) = lu(k,1288) - lu(k,1112) * lu(k,1280) - lu(k,1289) = lu(k,1289) - lu(k,1113) * lu(k,1280) - lu(k,1290) = lu(k,1290) - lu(k,1114) * lu(k,1280) - lu(k,1291) = lu(k,1291) - lu(k,1115) * lu(k,1280) - lu(k,1292) = lu(k,1292) - lu(k,1116) * lu(k,1280) - lu(k,1293) = lu(k,1293) - lu(k,1117) * lu(k,1280) - lu(k,1294) = lu(k,1294) - lu(k,1118) * lu(k,1280) - lu(k,1295) = lu(k,1295) - lu(k,1119) * lu(k,1280) - lu(k,1296) = lu(k,1296) - lu(k,1120) * lu(k,1280) - lu(k,1297) = lu(k,1297) - lu(k,1121) * lu(k,1280) - lu(k,1298) = lu(k,1298) - lu(k,1122) * lu(k,1280) - lu(k,1299) = lu(k,1299) - lu(k,1123) * lu(k,1280) - lu(k,1300) = lu(k,1300) - lu(k,1124) * lu(k,1280) - lu(k,1301) = lu(k,1301) - lu(k,1125) * lu(k,1280) - lu(k,1302) = lu(k,1302) - lu(k,1126) * lu(k,1280) - lu(k,1323) = lu(k,1323) - lu(k,1105) * lu(k,1322) - lu(k,1324) = lu(k,1324) - lu(k,1106) * lu(k,1322) - lu(k,1325) = lu(k,1325) - lu(k,1107) * lu(k,1322) - lu(k,1326) = lu(k,1326) - lu(k,1108) * lu(k,1322) - lu(k,1327) = lu(k,1327) - lu(k,1109) * lu(k,1322) - lu(k,1328) = lu(k,1328) - lu(k,1110) * lu(k,1322) - lu(k,1329) = lu(k,1329) - lu(k,1111) * lu(k,1322) - lu(k,1330) = lu(k,1330) - lu(k,1112) * lu(k,1322) - lu(k,1331) = lu(k,1331) - lu(k,1113) * lu(k,1322) - lu(k,1332) = lu(k,1332) - lu(k,1114) * lu(k,1322) - lu(k,1333) = lu(k,1333) - lu(k,1115) * lu(k,1322) - lu(k,1334) = lu(k,1334) - lu(k,1116) * lu(k,1322) - lu(k,1335) = lu(k,1335) - lu(k,1117) * lu(k,1322) - lu(k,1336) = lu(k,1336) - lu(k,1118) * lu(k,1322) - lu(k,1337) = lu(k,1337) - lu(k,1119) * lu(k,1322) - lu(k,1338) = lu(k,1338) - lu(k,1120) * lu(k,1322) - lu(k,1339) = lu(k,1339) - lu(k,1121) * lu(k,1322) - lu(k,1340) = lu(k,1340) - lu(k,1122) * lu(k,1322) - lu(k,1341) = lu(k,1341) - lu(k,1123) * lu(k,1322) - lu(k,1342) = lu(k,1342) - lu(k,1124) * lu(k,1322) - lu(k,1343) = lu(k,1343) - lu(k,1125) * lu(k,1322) - lu(k,1344) = lu(k,1344) - lu(k,1126) * lu(k,1322) - lu(k,1383) = lu(k,1383) - lu(k,1105) * lu(k,1382) - lu(k,1384) = lu(k,1384) - lu(k,1106) * lu(k,1382) - lu(k,1385) = lu(k,1385) - lu(k,1107) * lu(k,1382) - lu(k,1386) = lu(k,1386) - lu(k,1108) * lu(k,1382) - lu(k,1387) = lu(k,1387) - lu(k,1109) * lu(k,1382) - lu(k,1388) = lu(k,1388) - lu(k,1110) * lu(k,1382) - lu(k,1389) = lu(k,1389) - lu(k,1111) * lu(k,1382) - lu(k,1390) = lu(k,1390) - lu(k,1112) * lu(k,1382) - lu(k,1391) = lu(k,1391) - lu(k,1113) * lu(k,1382) - lu(k,1392) = lu(k,1392) - lu(k,1114) * lu(k,1382) - lu(k,1393) = lu(k,1393) - lu(k,1115) * lu(k,1382) - lu(k,1394) = lu(k,1394) - lu(k,1116) * lu(k,1382) - lu(k,1395) = lu(k,1395) - lu(k,1117) * lu(k,1382) - lu(k,1396) = lu(k,1396) - lu(k,1118) * lu(k,1382) - lu(k,1397) = lu(k,1397) - lu(k,1119) * lu(k,1382) - lu(k,1398) = lu(k,1398) - lu(k,1120) * lu(k,1382) - lu(k,1399) = lu(k,1399) - lu(k,1121) * lu(k,1382) - lu(k,1400) = lu(k,1400) - lu(k,1122) * lu(k,1382) - lu(k,1401) = lu(k,1401) - lu(k,1123) * lu(k,1382) - lu(k,1402) = lu(k,1402) - lu(k,1124) * lu(k,1382) - lu(k,1403) = lu(k,1403) - lu(k,1125) * lu(k,1382) - lu(k,1404) = lu(k,1404) - lu(k,1126) * lu(k,1382) - lu(k,1432) = lu(k,1432) - lu(k,1105) * lu(k,1431) - lu(k,1433) = lu(k,1433) - lu(k,1106) * lu(k,1431) - lu(k,1434) = lu(k,1434) - lu(k,1107) * lu(k,1431) - lu(k,1435) = lu(k,1435) - lu(k,1108) * lu(k,1431) - lu(k,1436) = lu(k,1436) - lu(k,1109) * lu(k,1431) - lu(k,1437) = lu(k,1437) - lu(k,1110) * lu(k,1431) - lu(k,1438) = lu(k,1438) - lu(k,1111) * lu(k,1431) - lu(k,1439) = lu(k,1439) - lu(k,1112) * lu(k,1431) - lu(k,1440) = lu(k,1440) - lu(k,1113) * lu(k,1431) - lu(k,1441) = lu(k,1441) - lu(k,1114) * lu(k,1431) - lu(k,1442) = lu(k,1442) - lu(k,1115) * lu(k,1431) - lu(k,1443) = lu(k,1443) - lu(k,1116) * lu(k,1431) - lu(k,1444) = lu(k,1444) - lu(k,1117) * lu(k,1431) - lu(k,1445) = lu(k,1445) - lu(k,1118) * lu(k,1431) - lu(k,1446) = lu(k,1446) - lu(k,1119) * lu(k,1431) - lu(k,1447) = lu(k,1447) - lu(k,1120) * lu(k,1431) - lu(k,1448) = lu(k,1448) - lu(k,1121) * lu(k,1431) - lu(k,1449) = lu(k,1449) - lu(k,1122) * lu(k,1431) - lu(k,1450) = lu(k,1450) - lu(k,1123) * lu(k,1431) - lu(k,1451) = lu(k,1451) - lu(k,1124) * lu(k,1431) - lu(k,1452) = lu(k,1452) - lu(k,1125) * lu(k,1431) - lu(k,1453) = lu(k,1453) - lu(k,1126) * lu(k,1431) - lu(k,1480) = lu(k,1480) - lu(k,1105) * lu(k,1479) - lu(k,1481) = lu(k,1481) - lu(k,1106) * lu(k,1479) - lu(k,1482) = lu(k,1482) - lu(k,1107) * lu(k,1479) - lu(k,1483) = lu(k,1483) - lu(k,1108) * lu(k,1479) - lu(k,1484) = lu(k,1484) - lu(k,1109) * lu(k,1479) - lu(k,1485) = lu(k,1485) - lu(k,1110) * lu(k,1479) - lu(k,1486) = lu(k,1486) - lu(k,1111) * lu(k,1479) - lu(k,1487) = lu(k,1487) - lu(k,1112) * lu(k,1479) - lu(k,1488) = lu(k,1488) - lu(k,1113) * lu(k,1479) - lu(k,1489) = lu(k,1489) - lu(k,1114) * lu(k,1479) - lu(k,1490) = lu(k,1490) - lu(k,1115) * lu(k,1479) - lu(k,1491) = lu(k,1491) - lu(k,1116) * lu(k,1479) - lu(k,1492) = lu(k,1492) - lu(k,1117) * lu(k,1479) - lu(k,1493) = lu(k,1493) - lu(k,1118) * lu(k,1479) - lu(k,1494) = lu(k,1494) - lu(k,1119) * lu(k,1479) - lu(k,1495) = lu(k,1495) - lu(k,1120) * lu(k,1479) - lu(k,1496) = lu(k,1496) - lu(k,1121) * lu(k,1479) - lu(k,1497) = lu(k,1497) - lu(k,1122) * lu(k,1479) - lu(k,1498) = lu(k,1498) - lu(k,1123) * lu(k,1479) - lu(k,1499) = lu(k,1499) - lu(k,1124) * lu(k,1479) - lu(k,1500) = lu(k,1500) - lu(k,1125) * lu(k,1479) - lu(k,1501) = lu(k,1501) - lu(k,1126) * lu(k,1479) - lu(k,1521) = lu(k,1521) - lu(k,1105) * lu(k,1520) - lu(k,1522) = lu(k,1522) - lu(k,1106) * lu(k,1520) - lu(k,1523) = lu(k,1523) - lu(k,1107) * lu(k,1520) - lu(k,1524) = lu(k,1524) - lu(k,1108) * lu(k,1520) - lu(k,1525) = lu(k,1525) - lu(k,1109) * lu(k,1520) - lu(k,1526) = lu(k,1526) - lu(k,1110) * lu(k,1520) - lu(k,1527) = lu(k,1527) - lu(k,1111) * lu(k,1520) - lu(k,1528) = lu(k,1528) - lu(k,1112) * lu(k,1520) - lu(k,1529) = lu(k,1529) - lu(k,1113) * lu(k,1520) - lu(k,1530) = lu(k,1530) - lu(k,1114) * lu(k,1520) - lu(k,1531) = lu(k,1531) - lu(k,1115) * lu(k,1520) - lu(k,1532) = lu(k,1532) - lu(k,1116) * lu(k,1520) - lu(k,1533) = lu(k,1533) - lu(k,1117) * lu(k,1520) - lu(k,1534) = lu(k,1534) - lu(k,1118) * lu(k,1520) - lu(k,1535) = lu(k,1535) - lu(k,1119) * lu(k,1520) - lu(k,1536) = lu(k,1536) - lu(k,1120) * lu(k,1520) - lu(k,1537) = lu(k,1537) - lu(k,1121) * lu(k,1520) - lu(k,1538) = lu(k,1538) - lu(k,1122) * lu(k,1520) - lu(k,1539) = lu(k,1539) - lu(k,1123) * lu(k,1520) - lu(k,1540) = lu(k,1540) - lu(k,1124) * lu(k,1520) - lu(k,1541) = lu(k,1541) - lu(k,1125) * lu(k,1520) - lu(k,1542) = lu(k,1542) - lu(k,1126) * lu(k,1520) - lu(k,1557) = lu(k,1557) - lu(k,1105) * lu(k,1556) - lu(k,1558) = lu(k,1558) - lu(k,1106) * lu(k,1556) - lu(k,1559) = lu(k,1559) - lu(k,1107) * lu(k,1556) - lu(k,1560) = lu(k,1560) - lu(k,1108) * lu(k,1556) - lu(k,1561) = lu(k,1561) - lu(k,1109) * lu(k,1556) - lu(k,1562) = lu(k,1562) - lu(k,1110) * lu(k,1556) - lu(k,1563) = lu(k,1563) - lu(k,1111) * lu(k,1556) - lu(k,1564) = lu(k,1564) - lu(k,1112) * lu(k,1556) - lu(k,1565) = lu(k,1565) - lu(k,1113) * lu(k,1556) - lu(k,1566) = lu(k,1566) - lu(k,1114) * lu(k,1556) - lu(k,1567) = lu(k,1567) - lu(k,1115) * lu(k,1556) - lu(k,1568) = lu(k,1568) - lu(k,1116) * lu(k,1556) - lu(k,1569) = lu(k,1569) - lu(k,1117) * lu(k,1556) - lu(k,1570) = lu(k,1570) - lu(k,1118) * lu(k,1556) - lu(k,1571) = lu(k,1571) - lu(k,1119) * lu(k,1556) - lu(k,1572) = lu(k,1572) - lu(k,1120) * lu(k,1556) - lu(k,1573) = lu(k,1573) - lu(k,1121) * lu(k,1556) - lu(k,1574) = lu(k,1574) - lu(k,1122) * lu(k,1556) - lu(k,1575) = lu(k,1575) - lu(k,1123) * lu(k,1556) - lu(k,1576) = lu(k,1576) - lu(k,1124) * lu(k,1556) - lu(k,1577) = lu(k,1577) - lu(k,1125) * lu(k,1556) - lu(k,1578) = lu(k,1578) - lu(k,1126) * lu(k,1556) - lu(k,1602) = lu(k,1602) - lu(k,1105) * lu(k,1601) - lu(k,1603) = lu(k,1603) - lu(k,1106) * lu(k,1601) - lu(k,1604) = lu(k,1604) - lu(k,1107) * lu(k,1601) - lu(k,1605) = lu(k,1605) - lu(k,1108) * lu(k,1601) - lu(k,1606) = lu(k,1606) - lu(k,1109) * lu(k,1601) - lu(k,1607) = lu(k,1607) - lu(k,1110) * lu(k,1601) - lu(k,1608) = lu(k,1608) - lu(k,1111) * lu(k,1601) - lu(k,1609) = lu(k,1609) - lu(k,1112) * lu(k,1601) - lu(k,1610) = lu(k,1610) - lu(k,1113) * lu(k,1601) - lu(k,1611) = lu(k,1611) - lu(k,1114) * lu(k,1601) - lu(k,1612) = lu(k,1612) - lu(k,1115) * lu(k,1601) - lu(k,1613) = lu(k,1613) - lu(k,1116) * lu(k,1601) - lu(k,1614) = lu(k,1614) - lu(k,1117) * lu(k,1601) - lu(k,1615) = lu(k,1615) - lu(k,1118) * lu(k,1601) - lu(k,1616) = lu(k,1616) - lu(k,1119) * lu(k,1601) - lu(k,1617) = lu(k,1617) - lu(k,1120) * lu(k,1601) - lu(k,1618) = lu(k,1618) - lu(k,1121) * lu(k,1601) - lu(k,1619) = lu(k,1619) - lu(k,1122) * lu(k,1601) - lu(k,1620) = lu(k,1620) - lu(k,1123) * lu(k,1601) - lu(k,1621) = lu(k,1621) - lu(k,1124) * lu(k,1601) - lu(k,1622) = lu(k,1622) - lu(k,1125) * lu(k,1601) - lu(k,1623) = lu(k,1623) - lu(k,1126) * lu(k,1601) - lu(k,1645) = lu(k,1645) - lu(k,1105) * lu(k,1644) - lu(k,1646) = lu(k,1646) - lu(k,1106) * lu(k,1644) - lu(k,1647) = lu(k,1647) - lu(k,1107) * lu(k,1644) - lu(k,1648) = lu(k,1648) - lu(k,1108) * lu(k,1644) - lu(k,1649) = lu(k,1649) - lu(k,1109) * lu(k,1644) - lu(k,1650) = lu(k,1650) - lu(k,1110) * lu(k,1644) - lu(k,1651) = lu(k,1651) - lu(k,1111) * lu(k,1644) - lu(k,1652) = lu(k,1652) - lu(k,1112) * lu(k,1644) - lu(k,1653) = lu(k,1653) - lu(k,1113) * lu(k,1644) - lu(k,1654) = lu(k,1654) - lu(k,1114) * lu(k,1644) - lu(k,1655) = lu(k,1655) - lu(k,1115) * lu(k,1644) - lu(k,1656) = lu(k,1656) - lu(k,1116) * lu(k,1644) - lu(k,1657) = lu(k,1657) - lu(k,1117) * lu(k,1644) - lu(k,1658) = lu(k,1658) - lu(k,1118) * lu(k,1644) - lu(k,1659) = lu(k,1659) - lu(k,1119) * lu(k,1644) - lu(k,1660) = lu(k,1660) - lu(k,1120) * lu(k,1644) - lu(k,1661) = lu(k,1661) - lu(k,1121) * lu(k,1644) - lu(k,1662) = lu(k,1662) - lu(k,1122) * lu(k,1644) - lu(k,1663) = lu(k,1663) - lu(k,1123) * lu(k,1644) - lu(k,1664) = lu(k,1664) - lu(k,1124) * lu(k,1644) - lu(k,1665) = lu(k,1665) - lu(k,1125) * lu(k,1644) - lu(k,1666) = lu(k,1666) - lu(k,1126) * lu(k,1644) - lu(k,1688) = lu(k,1688) - lu(k,1105) * lu(k,1687) - lu(k,1689) = lu(k,1689) - lu(k,1106) * lu(k,1687) - lu(k,1690) = lu(k,1690) - lu(k,1107) * lu(k,1687) - lu(k,1691) = lu(k,1691) - lu(k,1108) * lu(k,1687) - lu(k,1692) = lu(k,1692) - lu(k,1109) * lu(k,1687) - lu(k,1693) = lu(k,1693) - lu(k,1110) * lu(k,1687) - lu(k,1694) = lu(k,1694) - lu(k,1111) * lu(k,1687) - lu(k,1695) = lu(k,1695) - lu(k,1112) * lu(k,1687) - lu(k,1696) = lu(k,1696) - lu(k,1113) * lu(k,1687) - lu(k,1697) = lu(k,1697) - lu(k,1114) * lu(k,1687) - lu(k,1698) = lu(k,1698) - lu(k,1115) * lu(k,1687) - lu(k,1699) = lu(k,1699) - lu(k,1116) * lu(k,1687) - lu(k,1700) = lu(k,1700) - lu(k,1117) * lu(k,1687) - lu(k,1701) = lu(k,1701) - lu(k,1118) * lu(k,1687) - lu(k,1702) = lu(k,1702) - lu(k,1119) * lu(k,1687) - lu(k,1703) = lu(k,1703) - lu(k,1120) * lu(k,1687) - lu(k,1704) = lu(k,1704) - lu(k,1121) * lu(k,1687) - lu(k,1705) = lu(k,1705) - lu(k,1122) * lu(k,1687) - lu(k,1706) = lu(k,1706) - lu(k,1123) * lu(k,1687) - lu(k,1707) = lu(k,1707) - lu(k,1124) * lu(k,1687) - lu(k,1708) = lu(k,1708) - lu(k,1125) * lu(k,1687) - lu(k,1709) = lu(k,1709) - lu(k,1126) * lu(k,1687) - lu(k,1728) = lu(k,1728) - lu(k,1105) * lu(k,1727) - lu(k,1729) = lu(k,1729) - lu(k,1106) * lu(k,1727) - lu(k,1730) = lu(k,1730) - lu(k,1107) * lu(k,1727) - lu(k,1731) = lu(k,1731) - lu(k,1108) * lu(k,1727) - lu(k,1732) = lu(k,1732) - lu(k,1109) * lu(k,1727) - lu(k,1733) = lu(k,1733) - lu(k,1110) * lu(k,1727) - lu(k,1734) = lu(k,1734) - lu(k,1111) * lu(k,1727) - lu(k,1735) = lu(k,1735) - lu(k,1112) * lu(k,1727) - lu(k,1736) = lu(k,1736) - lu(k,1113) * lu(k,1727) - lu(k,1737) = lu(k,1737) - lu(k,1114) * lu(k,1727) - lu(k,1738) = lu(k,1738) - lu(k,1115) * lu(k,1727) - lu(k,1739) = lu(k,1739) - lu(k,1116) * lu(k,1727) - lu(k,1740) = lu(k,1740) - lu(k,1117) * lu(k,1727) - lu(k,1741) = lu(k,1741) - lu(k,1118) * lu(k,1727) - lu(k,1742) = lu(k,1742) - lu(k,1119) * lu(k,1727) - lu(k,1743) = lu(k,1743) - lu(k,1120) * lu(k,1727) - lu(k,1744) = lu(k,1744) - lu(k,1121) * lu(k,1727) - lu(k,1745) = lu(k,1745) - lu(k,1122) * lu(k,1727) - lu(k,1746) = lu(k,1746) - lu(k,1123) * lu(k,1727) - lu(k,1747) = lu(k,1747) - lu(k,1124) * lu(k,1727) - lu(k,1748) = lu(k,1748) - lu(k,1125) * lu(k,1727) - lu(k,1749) = lu(k,1749) - lu(k,1126) * lu(k,1727) - lu(k,1764) = lu(k,1764) - lu(k,1105) * lu(k,1763) - lu(k,1765) = lu(k,1765) - lu(k,1106) * lu(k,1763) - lu(k,1766) = lu(k,1766) - lu(k,1107) * lu(k,1763) - lu(k,1767) = lu(k,1767) - lu(k,1108) * lu(k,1763) - lu(k,1768) = lu(k,1768) - lu(k,1109) * lu(k,1763) - lu(k,1769) = lu(k,1769) - lu(k,1110) * lu(k,1763) - lu(k,1770) = lu(k,1770) - lu(k,1111) * lu(k,1763) - lu(k,1771) = lu(k,1771) - lu(k,1112) * lu(k,1763) - lu(k,1772) = lu(k,1772) - lu(k,1113) * lu(k,1763) - lu(k,1773) = lu(k,1773) - lu(k,1114) * lu(k,1763) - lu(k,1774) = lu(k,1774) - lu(k,1115) * lu(k,1763) - lu(k,1775) = lu(k,1775) - lu(k,1116) * lu(k,1763) - lu(k,1776) = lu(k,1776) - lu(k,1117) * lu(k,1763) - lu(k,1777) = lu(k,1777) - lu(k,1118) * lu(k,1763) - lu(k,1778) = lu(k,1778) - lu(k,1119) * lu(k,1763) - lu(k,1779) = lu(k,1779) - lu(k,1120) * lu(k,1763) - lu(k,1780) = lu(k,1780) - lu(k,1121) * lu(k,1763) - lu(k,1781) = lu(k,1781) - lu(k,1122) * lu(k,1763) - lu(k,1782) = lu(k,1782) - lu(k,1123) * lu(k,1763) - lu(k,1783) = lu(k,1783) - lu(k,1124) * lu(k,1763) - lu(k,1784) = lu(k,1784) - lu(k,1125) * lu(k,1763) - lu(k,1785) = lu(k,1785) - lu(k,1126) * lu(k,1763) - lu(k,1812) = lu(k,1812) - lu(k,1105) * lu(k,1811) - lu(k,1813) = lu(k,1813) - lu(k,1106) * lu(k,1811) - lu(k,1814) = lu(k,1814) - lu(k,1107) * lu(k,1811) - lu(k,1815) = lu(k,1815) - lu(k,1108) * lu(k,1811) - lu(k,1816) = lu(k,1816) - lu(k,1109) * lu(k,1811) - lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1811) - lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1811) - lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1811) - lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1811) - lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1811) - lu(k,1822) = lu(k,1822) - lu(k,1115) * lu(k,1811) - lu(k,1823) = lu(k,1823) - lu(k,1116) * lu(k,1811) - lu(k,1824) = lu(k,1824) - lu(k,1117) * lu(k,1811) - lu(k,1825) = lu(k,1825) - lu(k,1118) * lu(k,1811) - lu(k,1826) = lu(k,1826) - lu(k,1119) * lu(k,1811) - lu(k,1827) = lu(k,1827) - lu(k,1120) * lu(k,1811) - lu(k,1828) = lu(k,1828) - lu(k,1121) * lu(k,1811) - lu(k,1829) = lu(k,1829) - lu(k,1122) * lu(k,1811) - lu(k,1830) = lu(k,1830) - lu(k,1123) * lu(k,1811) - lu(k,1831) = lu(k,1831) - lu(k,1124) * lu(k,1811) - lu(k,1832) = lu(k,1832) - lu(k,1125) * lu(k,1811) - lu(k,1833) = lu(k,1833) - lu(k,1126) * lu(k,1811) - lu(k,1845) = lu(k,1845) - lu(k,1105) * lu(k,1844) - lu(k,1846) = lu(k,1846) - lu(k,1106) * lu(k,1844) - lu(k,1847) = lu(k,1847) - lu(k,1107) * lu(k,1844) - lu(k,1848) = lu(k,1848) - lu(k,1108) * lu(k,1844) - lu(k,1849) = lu(k,1849) - lu(k,1109) * lu(k,1844) - lu(k,1850) = lu(k,1850) - lu(k,1110) * lu(k,1844) - lu(k,1851) = lu(k,1851) - lu(k,1111) * lu(k,1844) - lu(k,1852) = lu(k,1852) - lu(k,1112) * lu(k,1844) - lu(k,1853) = lu(k,1853) - lu(k,1113) * lu(k,1844) - lu(k,1854) = lu(k,1854) - lu(k,1114) * lu(k,1844) - lu(k,1855) = lu(k,1855) - lu(k,1115) * lu(k,1844) - lu(k,1856) = lu(k,1856) - lu(k,1116) * lu(k,1844) - lu(k,1857) = lu(k,1857) - lu(k,1117) * lu(k,1844) - lu(k,1858) = lu(k,1858) - lu(k,1118) * lu(k,1844) - lu(k,1859) = lu(k,1859) - lu(k,1119) * lu(k,1844) - lu(k,1860) = lu(k,1860) - lu(k,1120) * lu(k,1844) - lu(k,1861) = lu(k,1861) - lu(k,1121) * lu(k,1844) - lu(k,1862) = lu(k,1862) - lu(k,1122) * lu(k,1844) - lu(k,1863) = lu(k,1863) - lu(k,1123) * lu(k,1844) - lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1844) - lu(k,1865) = lu(k,1865) - lu(k,1125) * lu(k,1844) - lu(k,1866) = lu(k,1866) - lu(k,1126) * lu(k,1844) - lu(k,1881) = lu(k,1881) - lu(k,1105) * lu(k,1880) - lu(k,1882) = lu(k,1882) - lu(k,1106) * lu(k,1880) - lu(k,1883) = lu(k,1883) - lu(k,1107) * lu(k,1880) - lu(k,1884) = lu(k,1884) - lu(k,1108) * lu(k,1880) - lu(k,1885) = lu(k,1885) - lu(k,1109) * lu(k,1880) - lu(k,1886) = lu(k,1886) - lu(k,1110) * lu(k,1880) - lu(k,1887) = lu(k,1887) - lu(k,1111) * lu(k,1880) - lu(k,1888) = lu(k,1888) - lu(k,1112) * lu(k,1880) - lu(k,1889) = lu(k,1889) - lu(k,1113) * lu(k,1880) - lu(k,1890) = lu(k,1890) - lu(k,1114) * lu(k,1880) - lu(k,1891) = lu(k,1891) - lu(k,1115) * lu(k,1880) - lu(k,1892) = lu(k,1892) - lu(k,1116) * lu(k,1880) - lu(k,1893) = lu(k,1893) - lu(k,1117) * lu(k,1880) - lu(k,1894) = lu(k,1894) - lu(k,1118) * lu(k,1880) - lu(k,1895) = lu(k,1895) - lu(k,1119) * lu(k,1880) - lu(k,1896) = lu(k,1896) - lu(k,1120) * lu(k,1880) - lu(k,1897) = lu(k,1897) - lu(k,1121) * lu(k,1880) - lu(k,1898) = lu(k,1898) - lu(k,1122) * lu(k,1880) - lu(k,1899) = lu(k,1899) - lu(k,1123) * lu(k,1880) - lu(k,1900) = lu(k,1900) - lu(k,1124) * lu(k,1880) - lu(k,1901) = lu(k,1901) - lu(k,1125) * lu(k,1880) - lu(k,1902) = lu(k,1902) - lu(k,1126) * lu(k,1880) - lu(k,1922) = lu(k,1922) - lu(k,1105) * lu(k,1921) - lu(k,1923) = lu(k,1923) - lu(k,1106) * lu(k,1921) - lu(k,1924) = lu(k,1924) - lu(k,1107) * lu(k,1921) - lu(k,1925) = lu(k,1925) - lu(k,1108) * lu(k,1921) - lu(k,1926) = lu(k,1926) - lu(k,1109) * lu(k,1921) - lu(k,1927) = lu(k,1927) - lu(k,1110) * lu(k,1921) - lu(k,1928) = lu(k,1928) - lu(k,1111) * lu(k,1921) - lu(k,1929) = lu(k,1929) - lu(k,1112) * lu(k,1921) - lu(k,1930) = lu(k,1930) - lu(k,1113) * lu(k,1921) - lu(k,1931) = lu(k,1931) - lu(k,1114) * lu(k,1921) - lu(k,1932) = lu(k,1932) - lu(k,1115) * lu(k,1921) - lu(k,1933) = lu(k,1933) - lu(k,1116) * lu(k,1921) - lu(k,1934) = lu(k,1934) - lu(k,1117) * lu(k,1921) - lu(k,1935) = lu(k,1935) - lu(k,1118) * lu(k,1921) - lu(k,1936) = lu(k,1936) - lu(k,1119) * lu(k,1921) - lu(k,1937) = lu(k,1937) - lu(k,1120) * lu(k,1921) - lu(k,1938) = lu(k,1938) - lu(k,1121) * lu(k,1921) - lu(k,1939) = lu(k,1939) - lu(k,1122) * lu(k,1921) - lu(k,1940) = lu(k,1940) - lu(k,1123) * lu(k,1921) - lu(k,1941) = lu(k,1941) - lu(k,1124) * lu(k,1921) - lu(k,1942) = lu(k,1942) - lu(k,1125) * lu(k,1921) - lu(k,1943) = lu(k,1943) - lu(k,1126) * lu(k,1921) - lu(k,1964) = lu(k,1964) - lu(k,1105) * lu(k,1963) - lu(k,1965) = lu(k,1965) - lu(k,1106) * lu(k,1963) - lu(k,1966) = lu(k,1966) - lu(k,1107) * lu(k,1963) - lu(k,1967) = lu(k,1967) - lu(k,1108) * lu(k,1963) - lu(k,1968) = lu(k,1968) - lu(k,1109) * lu(k,1963) - lu(k,1969) = lu(k,1969) - lu(k,1110) * lu(k,1963) - lu(k,1970) = lu(k,1970) - lu(k,1111) * lu(k,1963) - lu(k,1971) = lu(k,1971) - lu(k,1112) * lu(k,1963) - lu(k,1972) = lu(k,1972) - lu(k,1113) * lu(k,1963) - lu(k,1973) = lu(k,1973) - lu(k,1114) * lu(k,1963) - lu(k,1974) = lu(k,1974) - lu(k,1115) * lu(k,1963) - lu(k,1975) = lu(k,1975) - lu(k,1116) * lu(k,1963) - lu(k,1976) = lu(k,1976) - lu(k,1117) * lu(k,1963) - lu(k,1977) = lu(k,1977) - lu(k,1118) * lu(k,1963) - lu(k,1978) = lu(k,1978) - lu(k,1119) * lu(k,1963) - lu(k,1979) = lu(k,1979) - lu(k,1120) * lu(k,1963) - lu(k,1980) = lu(k,1980) - lu(k,1121) * lu(k,1963) - lu(k,1981) = lu(k,1981) - lu(k,1122) * lu(k,1963) - lu(k,1982) = lu(k,1982) - lu(k,1123) * lu(k,1963) - lu(k,1983) = lu(k,1983) - lu(k,1124) * lu(k,1963) - lu(k,1984) = lu(k,1984) - lu(k,1125) * lu(k,1963) - lu(k,1985) = lu(k,1985) - lu(k,1126) * lu(k,1963) - lu(k,2009) = lu(k,2009) - lu(k,1105) * lu(k,2008) - lu(k,2010) = lu(k,2010) - lu(k,1106) * lu(k,2008) - lu(k,2011) = lu(k,2011) - lu(k,1107) * lu(k,2008) - lu(k,2012) = lu(k,2012) - lu(k,1108) * lu(k,2008) - lu(k,2013) = lu(k,2013) - lu(k,1109) * lu(k,2008) - lu(k,2014) = lu(k,2014) - lu(k,1110) * lu(k,2008) - lu(k,2015) = lu(k,2015) - lu(k,1111) * lu(k,2008) - lu(k,2016) = lu(k,2016) - lu(k,1112) * lu(k,2008) - lu(k,2017) = lu(k,2017) - lu(k,1113) * lu(k,2008) - lu(k,2018) = lu(k,2018) - lu(k,1114) * lu(k,2008) - lu(k,2019) = lu(k,2019) - lu(k,1115) * lu(k,2008) - lu(k,2020) = lu(k,2020) - lu(k,1116) * lu(k,2008) - lu(k,2021) = lu(k,2021) - lu(k,1117) * lu(k,2008) - lu(k,2022) = lu(k,2022) - lu(k,1118) * lu(k,2008) - lu(k,2023) = lu(k,2023) - lu(k,1119) * lu(k,2008) - lu(k,2024) = lu(k,2024) - lu(k,1120) * lu(k,2008) - lu(k,2025) = lu(k,2025) - lu(k,1121) * lu(k,2008) - lu(k,2026) = lu(k,2026) - lu(k,1122) * lu(k,2008) - lu(k,2027) = lu(k,2027) - lu(k,1123) * lu(k,2008) - lu(k,2028) = lu(k,2028) - lu(k,1124) * lu(k,2008) - lu(k,2029) = lu(k,2029) - lu(k,1125) * lu(k,2008) - lu(k,2030) = lu(k,2030) - lu(k,1126) * lu(k,2008) - lu(k,2069) = lu(k,2069) - lu(k,1105) * lu(k,2068) - lu(k,2070) = lu(k,2070) - lu(k,1106) * lu(k,2068) - lu(k,2071) = lu(k,2071) - lu(k,1107) * lu(k,2068) - lu(k,2072) = lu(k,2072) - lu(k,1108) * lu(k,2068) - lu(k,2073) = lu(k,2073) - lu(k,1109) * lu(k,2068) - lu(k,2074) = lu(k,2074) - lu(k,1110) * lu(k,2068) - lu(k,2075) = lu(k,2075) - lu(k,1111) * lu(k,2068) - lu(k,2076) = lu(k,2076) - lu(k,1112) * lu(k,2068) - lu(k,2077) = lu(k,2077) - lu(k,1113) * lu(k,2068) - lu(k,2078) = lu(k,2078) - lu(k,1114) * lu(k,2068) - lu(k,2079) = lu(k,2079) - lu(k,1115) * lu(k,2068) - lu(k,2080) = lu(k,2080) - lu(k,1116) * lu(k,2068) - lu(k,2081) = lu(k,2081) - lu(k,1117) * lu(k,2068) - lu(k,2082) = lu(k,2082) - lu(k,1118) * lu(k,2068) - lu(k,2083) = lu(k,2083) - lu(k,1119) * lu(k,2068) - lu(k,2084) = lu(k,2084) - lu(k,1120) * lu(k,2068) - lu(k,2085) = lu(k,2085) - lu(k,1121) * lu(k,2068) - lu(k,2086) = lu(k,2086) - lu(k,1122) * lu(k,2068) - lu(k,2087) = lu(k,2087) - lu(k,1123) * lu(k,2068) - lu(k,2088) = lu(k,2088) - lu(k,1124) * lu(k,2068) - lu(k,2089) = lu(k,2089) - lu(k,1125) * lu(k,2068) - lu(k,2090) = lu(k,2090) - lu(k,1126) * lu(k,2068) - lu(k,1153) = 1._r8 / lu(k,1153) - lu(k,1154) = lu(k,1154) * lu(k,1153) - lu(k,1155) = lu(k,1155) * lu(k,1153) - lu(k,1156) = lu(k,1156) * lu(k,1153) - lu(k,1157) = lu(k,1157) * lu(k,1153) - lu(k,1158) = lu(k,1158) * lu(k,1153) - lu(k,1159) = lu(k,1159) * lu(k,1153) - lu(k,1160) = lu(k,1160) * lu(k,1153) - lu(k,1161) = lu(k,1161) * lu(k,1153) - lu(k,1162) = lu(k,1162) * lu(k,1153) - lu(k,1163) = lu(k,1163) * lu(k,1153) - lu(k,1164) = lu(k,1164) * lu(k,1153) - lu(k,1165) = lu(k,1165) * lu(k,1153) - lu(k,1166) = lu(k,1166) * lu(k,1153) - lu(k,1167) = lu(k,1167) * lu(k,1153) - lu(k,1168) = lu(k,1168) * lu(k,1153) - lu(k,1169) = lu(k,1169) * lu(k,1153) - lu(k,1170) = lu(k,1170) * lu(k,1153) - lu(k,1171) = lu(k,1171) * lu(k,1153) - lu(k,1172) = lu(k,1172) * lu(k,1153) - lu(k,1173) = lu(k,1173) * lu(k,1153) - lu(k,1174) = lu(k,1174) * lu(k,1153) - lu(k,1197) = lu(k,1197) - lu(k,1154) * lu(k,1196) - lu(k,1198) = lu(k,1198) - lu(k,1155) * lu(k,1196) - lu(k,1199) = lu(k,1199) - lu(k,1156) * lu(k,1196) - lu(k,1200) = lu(k,1200) - lu(k,1157) * lu(k,1196) - lu(k,1201) = lu(k,1201) - lu(k,1158) * lu(k,1196) - lu(k,1202) = lu(k,1202) - lu(k,1159) * lu(k,1196) - lu(k,1203) = lu(k,1203) - lu(k,1160) * lu(k,1196) - lu(k,1204) = lu(k,1204) - lu(k,1161) * lu(k,1196) - lu(k,1205) = lu(k,1205) - lu(k,1162) * lu(k,1196) - lu(k,1206) = lu(k,1206) - lu(k,1163) * lu(k,1196) - lu(k,1207) = lu(k,1207) - lu(k,1164) * lu(k,1196) - lu(k,1208) = lu(k,1208) - lu(k,1165) * lu(k,1196) - lu(k,1209) = lu(k,1209) - lu(k,1166) * lu(k,1196) - lu(k,1210) = lu(k,1210) - lu(k,1167) * lu(k,1196) - lu(k,1211) = lu(k,1211) - lu(k,1168) * lu(k,1196) - lu(k,1212) = lu(k,1212) - lu(k,1169) * lu(k,1196) - lu(k,1213) = lu(k,1213) - lu(k,1170) * lu(k,1196) - lu(k,1214) = lu(k,1214) - lu(k,1171) * lu(k,1196) - lu(k,1215) = lu(k,1215) - lu(k,1172) * lu(k,1196) - lu(k,1216) = lu(k,1216) - lu(k,1173) * lu(k,1196) - lu(k,1217) = lu(k,1217) - lu(k,1174) * lu(k,1196) - lu(k,1240) = lu(k,1240) - lu(k,1154) * lu(k,1239) - lu(k,1241) = lu(k,1241) - lu(k,1155) * lu(k,1239) - lu(k,1242) = lu(k,1242) - lu(k,1156) * lu(k,1239) - lu(k,1243) = lu(k,1243) - lu(k,1157) * lu(k,1239) - lu(k,1244) = lu(k,1244) - lu(k,1158) * lu(k,1239) - lu(k,1245) = lu(k,1245) - lu(k,1159) * lu(k,1239) - lu(k,1246) = lu(k,1246) - lu(k,1160) * lu(k,1239) - lu(k,1247) = lu(k,1247) - lu(k,1161) * lu(k,1239) - lu(k,1248) = lu(k,1248) - lu(k,1162) * lu(k,1239) - lu(k,1249) = lu(k,1249) - lu(k,1163) * lu(k,1239) - lu(k,1250) = lu(k,1250) - lu(k,1164) * lu(k,1239) - lu(k,1251) = lu(k,1251) - lu(k,1165) * lu(k,1239) - lu(k,1252) = lu(k,1252) - lu(k,1166) * lu(k,1239) - lu(k,1253) = lu(k,1253) - lu(k,1167) * lu(k,1239) - lu(k,1254) = lu(k,1254) - lu(k,1168) * lu(k,1239) - lu(k,1255) = lu(k,1255) - lu(k,1169) * lu(k,1239) - lu(k,1256) = lu(k,1256) - lu(k,1170) * lu(k,1239) - lu(k,1257) = lu(k,1257) - lu(k,1171) * lu(k,1239) - lu(k,1258) = lu(k,1258) - lu(k,1172) * lu(k,1239) - lu(k,1259) = lu(k,1259) - lu(k,1173) * lu(k,1239) - lu(k,1260) = lu(k,1260) - lu(k,1174) * lu(k,1239) - lu(k,1282) = lu(k,1282) - lu(k,1154) * lu(k,1281) - lu(k,1283) = lu(k,1283) - lu(k,1155) * lu(k,1281) - lu(k,1284) = lu(k,1284) - lu(k,1156) * lu(k,1281) - lu(k,1285) = lu(k,1285) - lu(k,1157) * lu(k,1281) - lu(k,1286) = lu(k,1286) - lu(k,1158) * lu(k,1281) - lu(k,1287) = lu(k,1287) - lu(k,1159) * lu(k,1281) - lu(k,1288) = lu(k,1288) - lu(k,1160) * lu(k,1281) - lu(k,1289) = lu(k,1289) - lu(k,1161) * lu(k,1281) - lu(k,1290) = lu(k,1290) - lu(k,1162) * lu(k,1281) - lu(k,1291) = lu(k,1291) - lu(k,1163) * lu(k,1281) - lu(k,1292) = lu(k,1292) - lu(k,1164) * lu(k,1281) - lu(k,1293) = lu(k,1293) - lu(k,1165) * lu(k,1281) - lu(k,1294) = lu(k,1294) - lu(k,1166) * lu(k,1281) - lu(k,1295) = lu(k,1295) - lu(k,1167) * lu(k,1281) - lu(k,1296) = lu(k,1296) - lu(k,1168) * lu(k,1281) - lu(k,1297) = lu(k,1297) - lu(k,1169) * lu(k,1281) - lu(k,1298) = lu(k,1298) - lu(k,1170) * lu(k,1281) - lu(k,1299) = lu(k,1299) - lu(k,1171) * lu(k,1281) - lu(k,1300) = lu(k,1300) - lu(k,1172) * lu(k,1281) - lu(k,1301) = lu(k,1301) - lu(k,1173) * lu(k,1281) - lu(k,1302) = lu(k,1302) - lu(k,1174) * lu(k,1281) - lu(k,1324) = lu(k,1324) - lu(k,1154) * lu(k,1323) - lu(k,1325) = lu(k,1325) - lu(k,1155) * lu(k,1323) - lu(k,1326) = lu(k,1326) - lu(k,1156) * lu(k,1323) - lu(k,1327) = lu(k,1327) - lu(k,1157) * lu(k,1323) - lu(k,1328) = lu(k,1328) - lu(k,1158) * lu(k,1323) - lu(k,1329) = lu(k,1329) - lu(k,1159) * lu(k,1323) - lu(k,1330) = lu(k,1330) - lu(k,1160) * lu(k,1323) - lu(k,1331) = lu(k,1331) - lu(k,1161) * lu(k,1323) - lu(k,1332) = lu(k,1332) - lu(k,1162) * lu(k,1323) - lu(k,1333) = lu(k,1333) - lu(k,1163) * lu(k,1323) - lu(k,1334) = lu(k,1334) - lu(k,1164) * lu(k,1323) - lu(k,1335) = lu(k,1335) - lu(k,1165) * lu(k,1323) - lu(k,1336) = lu(k,1336) - lu(k,1166) * lu(k,1323) - lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1323) - lu(k,1338) = lu(k,1338) - lu(k,1168) * lu(k,1323) - lu(k,1339) = lu(k,1339) - lu(k,1169) * lu(k,1323) - lu(k,1340) = lu(k,1340) - lu(k,1170) * lu(k,1323) - lu(k,1341) = lu(k,1341) - lu(k,1171) * lu(k,1323) - lu(k,1342) = lu(k,1342) - lu(k,1172) * lu(k,1323) - lu(k,1343) = lu(k,1343) - lu(k,1173) * lu(k,1323) - lu(k,1344) = lu(k,1344) - lu(k,1174) * lu(k,1323) - lu(k,1384) = lu(k,1384) - lu(k,1154) * lu(k,1383) - lu(k,1385) = lu(k,1385) - lu(k,1155) * lu(k,1383) - lu(k,1386) = lu(k,1386) - lu(k,1156) * lu(k,1383) - lu(k,1387) = lu(k,1387) - lu(k,1157) * lu(k,1383) - lu(k,1388) = lu(k,1388) - lu(k,1158) * lu(k,1383) - lu(k,1389) = lu(k,1389) - lu(k,1159) * lu(k,1383) - lu(k,1390) = lu(k,1390) - lu(k,1160) * lu(k,1383) - lu(k,1391) = lu(k,1391) - lu(k,1161) * lu(k,1383) - lu(k,1392) = lu(k,1392) - lu(k,1162) * lu(k,1383) - lu(k,1393) = lu(k,1393) - lu(k,1163) * lu(k,1383) - lu(k,1394) = lu(k,1394) - lu(k,1164) * lu(k,1383) - lu(k,1395) = lu(k,1395) - lu(k,1165) * lu(k,1383) - lu(k,1396) = lu(k,1396) - lu(k,1166) * lu(k,1383) - lu(k,1397) = lu(k,1397) - lu(k,1167) * lu(k,1383) - lu(k,1398) = lu(k,1398) - lu(k,1168) * lu(k,1383) - lu(k,1399) = lu(k,1399) - lu(k,1169) * lu(k,1383) - lu(k,1400) = lu(k,1400) - lu(k,1170) * lu(k,1383) - lu(k,1401) = lu(k,1401) - lu(k,1171) * lu(k,1383) - lu(k,1402) = lu(k,1402) - lu(k,1172) * lu(k,1383) - lu(k,1403) = lu(k,1403) - lu(k,1173) * lu(k,1383) - lu(k,1404) = lu(k,1404) - lu(k,1174) * lu(k,1383) - lu(k,1433) = lu(k,1433) - lu(k,1154) * lu(k,1432) - lu(k,1434) = lu(k,1434) - lu(k,1155) * lu(k,1432) - lu(k,1435) = lu(k,1435) - lu(k,1156) * lu(k,1432) - lu(k,1436) = lu(k,1436) - lu(k,1157) * lu(k,1432) - lu(k,1437) = lu(k,1437) - lu(k,1158) * lu(k,1432) - lu(k,1438) = lu(k,1438) - lu(k,1159) * lu(k,1432) - lu(k,1439) = lu(k,1439) - lu(k,1160) * lu(k,1432) - lu(k,1440) = lu(k,1440) - lu(k,1161) * lu(k,1432) - lu(k,1441) = lu(k,1441) - lu(k,1162) * lu(k,1432) - lu(k,1442) = lu(k,1442) - lu(k,1163) * lu(k,1432) - lu(k,1443) = lu(k,1443) - lu(k,1164) * lu(k,1432) - lu(k,1444) = lu(k,1444) - lu(k,1165) * lu(k,1432) - lu(k,1445) = lu(k,1445) - lu(k,1166) * lu(k,1432) - lu(k,1446) = lu(k,1446) - lu(k,1167) * lu(k,1432) - lu(k,1447) = lu(k,1447) - lu(k,1168) * lu(k,1432) - lu(k,1448) = lu(k,1448) - lu(k,1169) * lu(k,1432) - lu(k,1449) = lu(k,1449) - lu(k,1170) * lu(k,1432) - lu(k,1450) = lu(k,1450) - lu(k,1171) * lu(k,1432) - lu(k,1451) = lu(k,1451) - lu(k,1172) * lu(k,1432) - lu(k,1452) = lu(k,1452) - lu(k,1173) * lu(k,1432) - lu(k,1453) = lu(k,1453) - lu(k,1174) * lu(k,1432) - lu(k,1481) = lu(k,1481) - lu(k,1154) * lu(k,1480) - lu(k,1482) = lu(k,1482) - lu(k,1155) * lu(k,1480) - lu(k,1483) = lu(k,1483) - lu(k,1156) * lu(k,1480) - lu(k,1484) = lu(k,1484) - lu(k,1157) * lu(k,1480) - lu(k,1485) = lu(k,1485) - lu(k,1158) * lu(k,1480) - lu(k,1486) = lu(k,1486) - lu(k,1159) * lu(k,1480) - lu(k,1487) = lu(k,1487) - lu(k,1160) * lu(k,1480) - lu(k,1488) = lu(k,1488) - lu(k,1161) * lu(k,1480) - lu(k,1489) = lu(k,1489) - lu(k,1162) * lu(k,1480) - lu(k,1490) = lu(k,1490) - lu(k,1163) * lu(k,1480) - lu(k,1491) = lu(k,1491) - lu(k,1164) * lu(k,1480) - lu(k,1492) = lu(k,1492) - lu(k,1165) * lu(k,1480) - lu(k,1493) = lu(k,1493) - lu(k,1166) * lu(k,1480) - lu(k,1494) = lu(k,1494) - lu(k,1167) * lu(k,1480) - lu(k,1495) = lu(k,1495) - lu(k,1168) * lu(k,1480) - lu(k,1496) = lu(k,1496) - lu(k,1169) * lu(k,1480) - lu(k,1497) = lu(k,1497) - lu(k,1170) * lu(k,1480) - lu(k,1498) = lu(k,1498) - lu(k,1171) * lu(k,1480) - lu(k,1499) = lu(k,1499) - lu(k,1172) * lu(k,1480) - lu(k,1500) = lu(k,1500) - lu(k,1173) * lu(k,1480) - lu(k,1501) = lu(k,1501) - lu(k,1174) * lu(k,1480) - lu(k,1522) = lu(k,1522) - lu(k,1154) * lu(k,1521) - lu(k,1523) = lu(k,1523) - lu(k,1155) * lu(k,1521) - lu(k,1524) = lu(k,1524) - lu(k,1156) * lu(k,1521) - lu(k,1525) = lu(k,1525) - lu(k,1157) * lu(k,1521) - lu(k,1526) = lu(k,1526) - lu(k,1158) * lu(k,1521) - lu(k,1527) = lu(k,1527) - lu(k,1159) * lu(k,1521) - lu(k,1528) = lu(k,1528) - lu(k,1160) * lu(k,1521) - lu(k,1529) = lu(k,1529) - lu(k,1161) * lu(k,1521) - lu(k,1530) = lu(k,1530) - lu(k,1162) * lu(k,1521) - lu(k,1531) = lu(k,1531) - lu(k,1163) * lu(k,1521) - lu(k,1532) = lu(k,1532) - lu(k,1164) * lu(k,1521) - lu(k,1533) = lu(k,1533) - lu(k,1165) * lu(k,1521) - lu(k,1534) = lu(k,1534) - lu(k,1166) * lu(k,1521) - lu(k,1535) = lu(k,1535) - lu(k,1167) * lu(k,1521) - lu(k,1536) = lu(k,1536) - lu(k,1168) * lu(k,1521) - lu(k,1537) = lu(k,1537) - lu(k,1169) * lu(k,1521) - lu(k,1538) = lu(k,1538) - lu(k,1170) * lu(k,1521) - lu(k,1539) = lu(k,1539) - lu(k,1171) * lu(k,1521) - lu(k,1540) = lu(k,1540) - lu(k,1172) * lu(k,1521) - lu(k,1541) = lu(k,1541) - lu(k,1173) * lu(k,1521) - lu(k,1542) = lu(k,1542) - lu(k,1174) * lu(k,1521) - lu(k,1558) = lu(k,1558) - lu(k,1154) * lu(k,1557) - lu(k,1559) = lu(k,1559) - lu(k,1155) * lu(k,1557) - lu(k,1560) = lu(k,1560) - lu(k,1156) * lu(k,1557) - lu(k,1561) = lu(k,1561) - lu(k,1157) * lu(k,1557) - lu(k,1562) = lu(k,1562) - lu(k,1158) * lu(k,1557) - lu(k,1563) = lu(k,1563) - lu(k,1159) * lu(k,1557) - lu(k,1564) = lu(k,1564) - lu(k,1160) * lu(k,1557) - lu(k,1565) = lu(k,1565) - lu(k,1161) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,1162) * lu(k,1557) - lu(k,1567) = lu(k,1567) - lu(k,1163) * lu(k,1557) - lu(k,1568) = lu(k,1568) - lu(k,1164) * lu(k,1557) - lu(k,1569) = lu(k,1569) - lu(k,1165) * lu(k,1557) - lu(k,1570) = lu(k,1570) - lu(k,1166) * lu(k,1557) - lu(k,1571) = lu(k,1571) - lu(k,1167) * lu(k,1557) - lu(k,1572) = lu(k,1572) - lu(k,1168) * lu(k,1557) - lu(k,1573) = lu(k,1573) - lu(k,1169) * lu(k,1557) - lu(k,1574) = lu(k,1574) - lu(k,1170) * lu(k,1557) - lu(k,1575) = lu(k,1575) - lu(k,1171) * lu(k,1557) - lu(k,1576) = lu(k,1576) - lu(k,1172) * lu(k,1557) - lu(k,1577) = lu(k,1577) - lu(k,1173) * lu(k,1557) - lu(k,1578) = lu(k,1578) - lu(k,1174) * lu(k,1557) - lu(k,1603) = lu(k,1603) - lu(k,1154) * lu(k,1602) - lu(k,1604) = lu(k,1604) - lu(k,1155) * lu(k,1602) - lu(k,1605) = lu(k,1605) - lu(k,1156) * lu(k,1602) - lu(k,1606) = lu(k,1606) - lu(k,1157) * lu(k,1602) - lu(k,1607) = lu(k,1607) - lu(k,1158) * lu(k,1602) - lu(k,1608) = lu(k,1608) - lu(k,1159) * lu(k,1602) - lu(k,1609) = lu(k,1609) - lu(k,1160) * lu(k,1602) - lu(k,1610) = lu(k,1610) - lu(k,1161) * lu(k,1602) - lu(k,1611) = lu(k,1611) - lu(k,1162) * lu(k,1602) - lu(k,1612) = lu(k,1612) - lu(k,1163) * lu(k,1602) - lu(k,1613) = lu(k,1613) - lu(k,1164) * lu(k,1602) - lu(k,1614) = lu(k,1614) - lu(k,1165) * lu(k,1602) - lu(k,1615) = lu(k,1615) - lu(k,1166) * lu(k,1602) - lu(k,1616) = lu(k,1616) - lu(k,1167) * lu(k,1602) - lu(k,1617) = lu(k,1617) - lu(k,1168) * lu(k,1602) - lu(k,1618) = lu(k,1618) - lu(k,1169) * lu(k,1602) - lu(k,1619) = lu(k,1619) - lu(k,1170) * lu(k,1602) - lu(k,1620) = lu(k,1620) - lu(k,1171) * lu(k,1602) - lu(k,1621) = lu(k,1621) - lu(k,1172) * lu(k,1602) - lu(k,1622) = lu(k,1622) - lu(k,1173) * lu(k,1602) - lu(k,1623) = lu(k,1623) - lu(k,1174) * lu(k,1602) - lu(k,1646) = lu(k,1646) - lu(k,1154) * lu(k,1645) - lu(k,1647) = lu(k,1647) - lu(k,1155) * lu(k,1645) - lu(k,1648) = lu(k,1648) - lu(k,1156) * lu(k,1645) - lu(k,1649) = lu(k,1649) - lu(k,1157) * lu(k,1645) - lu(k,1650) = lu(k,1650) - lu(k,1158) * lu(k,1645) - lu(k,1651) = lu(k,1651) - lu(k,1159) * lu(k,1645) - lu(k,1652) = lu(k,1652) - lu(k,1160) * lu(k,1645) - lu(k,1653) = lu(k,1653) - lu(k,1161) * lu(k,1645) - lu(k,1654) = lu(k,1654) - lu(k,1162) * lu(k,1645) - lu(k,1655) = lu(k,1655) - lu(k,1163) * lu(k,1645) - lu(k,1656) = lu(k,1656) - lu(k,1164) * lu(k,1645) - lu(k,1657) = lu(k,1657) - lu(k,1165) * lu(k,1645) - lu(k,1658) = lu(k,1658) - lu(k,1166) * lu(k,1645) - lu(k,1659) = lu(k,1659) - lu(k,1167) * lu(k,1645) - lu(k,1660) = lu(k,1660) - lu(k,1168) * lu(k,1645) - lu(k,1661) = lu(k,1661) - lu(k,1169) * lu(k,1645) - lu(k,1662) = lu(k,1662) - lu(k,1170) * lu(k,1645) - lu(k,1663) = lu(k,1663) - lu(k,1171) * lu(k,1645) - lu(k,1664) = lu(k,1664) - lu(k,1172) * lu(k,1645) - lu(k,1665) = lu(k,1665) - lu(k,1173) * lu(k,1645) - lu(k,1666) = lu(k,1666) - lu(k,1174) * lu(k,1645) - lu(k,1689) = lu(k,1689) - lu(k,1154) * lu(k,1688) - lu(k,1690) = lu(k,1690) - lu(k,1155) * lu(k,1688) - lu(k,1691) = lu(k,1691) - lu(k,1156) * lu(k,1688) - lu(k,1692) = lu(k,1692) - lu(k,1157) * lu(k,1688) - lu(k,1693) = lu(k,1693) - lu(k,1158) * lu(k,1688) - lu(k,1694) = lu(k,1694) - lu(k,1159) * lu(k,1688) - lu(k,1695) = lu(k,1695) - lu(k,1160) * lu(k,1688) - lu(k,1696) = lu(k,1696) - lu(k,1161) * lu(k,1688) - lu(k,1697) = lu(k,1697) - lu(k,1162) * lu(k,1688) - lu(k,1698) = lu(k,1698) - lu(k,1163) * lu(k,1688) - lu(k,1699) = lu(k,1699) - lu(k,1164) * lu(k,1688) - lu(k,1700) = lu(k,1700) - lu(k,1165) * lu(k,1688) - lu(k,1701) = lu(k,1701) - lu(k,1166) * lu(k,1688) - lu(k,1702) = lu(k,1702) - lu(k,1167) * lu(k,1688) - lu(k,1703) = lu(k,1703) - lu(k,1168) * lu(k,1688) - lu(k,1704) = lu(k,1704) - lu(k,1169) * lu(k,1688) - lu(k,1705) = lu(k,1705) - lu(k,1170) * lu(k,1688) - lu(k,1706) = lu(k,1706) - lu(k,1171) * lu(k,1688) - lu(k,1707) = lu(k,1707) - lu(k,1172) * lu(k,1688) - lu(k,1708) = lu(k,1708) - lu(k,1173) * lu(k,1688) - lu(k,1709) = lu(k,1709) - lu(k,1174) * lu(k,1688) - lu(k,1729) = lu(k,1729) - lu(k,1154) * lu(k,1728) - lu(k,1730) = lu(k,1730) - lu(k,1155) * lu(k,1728) - lu(k,1731) = lu(k,1731) - lu(k,1156) * lu(k,1728) - lu(k,1732) = lu(k,1732) - lu(k,1157) * lu(k,1728) - lu(k,1733) = lu(k,1733) - lu(k,1158) * lu(k,1728) - lu(k,1734) = lu(k,1734) - lu(k,1159) * lu(k,1728) - lu(k,1735) = lu(k,1735) - lu(k,1160) * lu(k,1728) - lu(k,1736) = lu(k,1736) - lu(k,1161) * lu(k,1728) - lu(k,1737) = lu(k,1737) - lu(k,1162) * lu(k,1728) - lu(k,1738) = lu(k,1738) - lu(k,1163) * lu(k,1728) - lu(k,1739) = lu(k,1739) - lu(k,1164) * lu(k,1728) - lu(k,1740) = lu(k,1740) - lu(k,1165) * lu(k,1728) - lu(k,1741) = lu(k,1741) - lu(k,1166) * lu(k,1728) - lu(k,1742) = lu(k,1742) - lu(k,1167) * lu(k,1728) - lu(k,1743) = lu(k,1743) - lu(k,1168) * lu(k,1728) - lu(k,1744) = lu(k,1744) - lu(k,1169) * lu(k,1728) - lu(k,1745) = lu(k,1745) - lu(k,1170) * lu(k,1728) - lu(k,1746) = lu(k,1746) - lu(k,1171) * lu(k,1728) - lu(k,1747) = lu(k,1747) - lu(k,1172) * lu(k,1728) - lu(k,1748) = lu(k,1748) - lu(k,1173) * lu(k,1728) - lu(k,1749) = lu(k,1749) - lu(k,1174) * lu(k,1728) - lu(k,1765) = lu(k,1765) - lu(k,1154) * lu(k,1764) - lu(k,1766) = lu(k,1766) - lu(k,1155) * lu(k,1764) - lu(k,1767) = lu(k,1767) - lu(k,1156) * lu(k,1764) - lu(k,1768) = lu(k,1768) - lu(k,1157) * lu(k,1764) - lu(k,1769) = lu(k,1769) - lu(k,1158) * lu(k,1764) - lu(k,1770) = lu(k,1770) - lu(k,1159) * lu(k,1764) - lu(k,1771) = lu(k,1771) - lu(k,1160) * lu(k,1764) - lu(k,1772) = lu(k,1772) - lu(k,1161) * lu(k,1764) - lu(k,1773) = lu(k,1773) - lu(k,1162) * lu(k,1764) - lu(k,1774) = lu(k,1774) - lu(k,1163) * lu(k,1764) - lu(k,1775) = lu(k,1775) - lu(k,1164) * lu(k,1764) - lu(k,1776) = lu(k,1776) - lu(k,1165) * lu(k,1764) - lu(k,1777) = lu(k,1777) - lu(k,1166) * lu(k,1764) - lu(k,1778) = lu(k,1778) - lu(k,1167) * lu(k,1764) - lu(k,1779) = lu(k,1779) - lu(k,1168) * lu(k,1764) - lu(k,1780) = lu(k,1780) - lu(k,1169) * lu(k,1764) - lu(k,1781) = lu(k,1781) - lu(k,1170) * lu(k,1764) - lu(k,1782) = lu(k,1782) - lu(k,1171) * lu(k,1764) - lu(k,1783) = lu(k,1783) - lu(k,1172) * lu(k,1764) - lu(k,1784) = lu(k,1784) - lu(k,1173) * lu(k,1764) - lu(k,1785) = lu(k,1785) - lu(k,1174) * lu(k,1764) - lu(k,1813) = lu(k,1813) - lu(k,1154) * lu(k,1812) - lu(k,1814) = lu(k,1814) - lu(k,1155) * lu(k,1812) - lu(k,1815) = lu(k,1815) - lu(k,1156) * lu(k,1812) - lu(k,1816) = lu(k,1816) - lu(k,1157) * lu(k,1812) - lu(k,1817) = lu(k,1817) - lu(k,1158) * lu(k,1812) - lu(k,1818) = lu(k,1818) - lu(k,1159) * lu(k,1812) - lu(k,1819) = lu(k,1819) - lu(k,1160) * lu(k,1812) - lu(k,1820) = lu(k,1820) - lu(k,1161) * lu(k,1812) - lu(k,1821) = lu(k,1821) - lu(k,1162) * lu(k,1812) - lu(k,1822) = lu(k,1822) - lu(k,1163) * lu(k,1812) - lu(k,1823) = lu(k,1823) - lu(k,1164) * lu(k,1812) - lu(k,1824) = lu(k,1824) - lu(k,1165) * lu(k,1812) - lu(k,1825) = lu(k,1825) - lu(k,1166) * lu(k,1812) - lu(k,1826) = lu(k,1826) - lu(k,1167) * lu(k,1812) - lu(k,1827) = lu(k,1827) - lu(k,1168) * lu(k,1812) - lu(k,1828) = lu(k,1828) - lu(k,1169) * lu(k,1812) - lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1812) - lu(k,1830) = lu(k,1830) - lu(k,1171) * lu(k,1812) - lu(k,1831) = lu(k,1831) - lu(k,1172) * lu(k,1812) - lu(k,1832) = lu(k,1832) - lu(k,1173) * lu(k,1812) - lu(k,1833) = lu(k,1833) - lu(k,1174) * lu(k,1812) - lu(k,1846) = lu(k,1846) - lu(k,1154) * lu(k,1845) - lu(k,1847) = lu(k,1847) - lu(k,1155) * lu(k,1845) - lu(k,1848) = lu(k,1848) - lu(k,1156) * lu(k,1845) - lu(k,1849) = lu(k,1849) - lu(k,1157) * lu(k,1845) - lu(k,1850) = lu(k,1850) - lu(k,1158) * lu(k,1845) - lu(k,1851) = lu(k,1851) - lu(k,1159) * lu(k,1845) - lu(k,1852) = lu(k,1852) - lu(k,1160) * lu(k,1845) - lu(k,1853) = lu(k,1853) - lu(k,1161) * lu(k,1845) - lu(k,1854) = lu(k,1854) - lu(k,1162) * lu(k,1845) - lu(k,1855) = lu(k,1855) - lu(k,1163) * lu(k,1845) - lu(k,1856) = lu(k,1856) - lu(k,1164) * lu(k,1845) - lu(k,1857) = lu(k,1857) - lu(k,1165) * lu(k,1845) - lu(k,1858) = lu(k,1858) - lu(k,1166) * lu(k,1845) - lu(k,1859) = lu(k,1859) - lu(k,1167) * lu(k,1845) - lu(k,1860) = lu(k,1860) - lu(k,1168) * lu(k,1845) - lu(k,1861) = lu(k,1861) - lu(k,1169) * lu(k,1845) - lu(k,1862) = lu(k,1862) - lu(k,1170) * lu(k,1845) - lu(k,1863) = lu(k,1863) - lu(k,1171) * lu(k,1845) - lu(k,1864) = lu(k,1864) - lu(k,1172) * lu(k,1845) - lu(k,1865) = lu(k,1865) - lu(k,1173) * lu(k,1845) - lu(k,1866) = lu(k,1866) - lu(k,1174) * lu(k,1845) - lu(k,1882) = lu(k,1882) - lu(k,1154) * lu(k,1881) - lu(k,1883) = lu(k,1883) - lu(k,1155) * lu(k,1881) - lu(k,1884) = lu(k,1884) - lu(k,1156) * lu(k,1881) - lu(k,1885) = lu(k,1885) - lu(k,1157) * lu(k,1881) - lu(k,1886) = lu(k,1886) - lu(k,1158) * lu(k,1881) - lu(k,1887) = lu(k,1887) - lu(k,1159) * lu(k,1881) - lu(k,1888) = lu(k,1888) - lu(k,1160) * lu(k,1881) - lu(k,1889) = lu(k,1889) - lu(k,1161) * lu(k,1881) - lu(k,1890) = lu(k,1890) - lu(k,1162) * lu(k,1881) - lu(k,1891) = lu(k,1891) - lu(k,1163) * lu(k,1881) - lu(k,1892) = lu(k,1892) - lu(k,1164) * lu(k,1881) - lu(k,1893) = lu(k,1893) - lu(k,1165) * lu(k,1881) - lu(k,1894) = lu(k,1894) - lu(k,1166) * lu(k,1881) - lu(k,1895) = lu(k,1895) - lu(k,1167) * lu(k,1881) - lu(k,1896) = lu(k,1896) - lu(k,1168) * lu(k,1881) - lu(k,1897) = lu(k,1897) - lu(k,1169) * lu(k,1881) - lu(k,1898) = lu(k,1898) - lu(k,1170) * lu(k,1881) - lu(k,1899) = lu(k,1899) - lu(k,1171) * lu(k,1881) - lu(k,1900) = lu(k,1900) - lu(k,1172) * lu(k,1881) - lu(k,1901) = lu(k,1901) - lu(k,1173) * lu(k,1881) - lu(k,1902) = lu(k,1902) - lu(k,1174) * lu(k,1881) - lu(k,1923) = lu(k,1923) - lu(k,1154) * lu(k,1922) - lu(k,1924) = lu(k,1924) - lu(k,1155) * lu(k,1922) - lu(k,1925) = lu(k,1925) - lu(k,1156) * lu(k,1922) - lu(k,1926) = lu(k,1926) - lu(k,1157) * lu(k,1922) - lu(k,1927) = lu(k,1927) - lu(k,1158) * lu(k,1922) - lu(k,1928) = lu(k,1928) - lu(k,1159) * lu(k,1922) - lu(k,1929) = lu(k,1929) - lu(k,1160) * lu(k,1922) - lu(k,1930) = lu(k,1930) - lu(k,1161) * lu(k,1922) - lu(k,1931) = lu(k,1931) - lu(k,1162) * lu(k,1922) - lu(k,1932) = lu(k,1932) - lu(k,1163) * lu(k,1922) - lu(k,1933) = lu(k,1933) - lu(k,1164) * lu(k,1922) - lu(k,1934) = lu(k,1934) - lu(k,1165) * lu(k,1922) - lu(k,1935) = lu(k,1935) - lu(k,1166) * lu(k,1922) - lu(k,1936) = lu(k,1936) - lu(k,1167) * lu(k,1922) - lu(k,1937) = lu(k,1937) - lu(k,1168) * lu(k,1922) - lu(k,1938) = lu(k,1938) - lu(k,1169) * lu(k,1922) - lu(k,1939) = lu(k,1939) - lu(k,1170) * lu(k,1922) - lu(k,1940) = lu(k,1940) - lu(k,1171) * lu(k,1922) - lu(k,1941) = lu(k,1941) - lu(k,1172) * lu(k,1922) - lu(k,1942) = lu(k,1942) - lu(k,1173) * lu(k,1922) - lu(k,1943) = lu(k,1943) - lu(k,1174) * lu(k,1922) - lu(k,1965) = lu(k,1965) - lu(k,1154) * lu(k,1964) - lu(k,1966) = lu(k,1966) - lu(k,1155) * lu(k,1964) - lu(k,1967) = lu(k,1967) - lu(k,1156) * lu(k,1964) - lu(k,1968) = lu(k,1968) - lu(k,1157) * lu(k,1964) - lu(k,1969) = lu(k,1969) - lu(k,1158) * lu(k,1964) - lu(k,1970) = lu(k,1970) - lu(k,1159) * lu(k,1964) - lu(k,1971) = lu(k,1971) - lu(k,1160) * lu(k,1964) - lu(k,1972) = lu(k,1972) - lu(k,1161) * lu(k,1964) - lu(k,1973) = lu(k,1973) - lu(k,1162) * lu(k,1964) - lu(k,1974) = lu(k,1974) - lu(k,1163) * lu(k,1964) - lu(k,1975) = lu(k,1975) - lu(k,1164) * lu(k,1964) - lu(k,1976) = lu(k,1976) - lu(k,1165) * lu(k,1964) - lu(k,1977) = lu(k,1977) - lu(k,1166) * lu(k,1964) - lu(k,1978) = lu(k,1978) - lu(k,1167) * lu(k,1964) - lu(k,1979) = lu(k,1979) - lu(k,1168) * lu(k,1964) - lu(k,1980) = lu(k,1980) - lu(k,1169) * lu(k,1964) - lu(k,1981) = lu(k,1981) - lu(k,1170) * lu(k,1964) - lu(k,1982) = lu(k,1982) - lu(k,1171) * lu(k,1964) - lu(k,1983) = lu(k,1983) - lu(k,1172) * lu(k,1964) - lu(k,1984) = lu(k,1984) - lu(k,1173) * lu(k,1964) - lu(k,1985) = lu(k,1985) - lu(k,1174) * lu(k,1964) - lu(k,2010) = lu(k,2010) - lu(k,1154) * lu(k,2009) - lu(k,2011) = lu(k,2011) - lu(k,1155) * lu(k,2009) - lu(k,2012) = lu(k,2012) - lu(k,1156) * lu(k,2009) - lu(k,2013) = lu(k,2013) - lu(k,1157) * lu(k,2009) - lu(k,2014) = lu(k,2014) - lu(k,1158) * lu(k,2009) - lu(k,2015) = lu(k,2015) - lu(k,1159) * lu(k,2009) - lu(k,2016) = lu(k,2016) - lu(k,1160) * lu(k,2009) - lu(k,2017) = lu(k,2017) - lu(k,1161) * lu(k,2009) - lu(k,2018) = lu(k,2018) - lu(k,1162) * lu(k,2009) - lu(k,2019) = lu(k,2019) - lu(k,1163) * lu(k,2009) - lu(k,2020) = lu(k,2020) - lu(k,1164) * lu(k,2009) - lu(k,2021) = lu(k,2021) - lu(k,1165) * lu(k,2009) - lu(k,2022) = lu(k,2022) - lu(k,1166) * lu(k,2009) - lu(k,2023) = lu(k,2023) - lu(k,1167) * lu(k,2009) - lu(k,2024) = lu(k,2024) - lu(k,1168) * lu(k,2009) - lu(k,2025) = lu(k,2025) - lu(k,1169) * lu(k,2009) - lu(k,2026) = lu(k,2026) - lu(k,1170) * lu(k,2009) - lu(k,2027) = lu(k,2027) - lu(k,1171) * lu(k,2009) - lu(k,2028) = lu(k,2028) - lu(k,1172) * lu(k,2009) - lu(k,2029) = lu(k,2029) - lu(k,1173) * lu(k,2009) - lu(k,2030) = lu(k,2030) - lu(k,1174) * lu(k,2009) - lu(k,2070) = lu(k,2070) - lu(k,1154) * lu(k,2069) - lu(k,2071) = lu(k,2071) - lu(k,1155) * lu(k,2069) - lu(k,2072) = lu(k,2072) - lu(k,1156) * lu(k,2069) - lu(k,2073) = lu(k,2073) - lu(k,1157) * lu(k,2069) - lu(k,2074) = lu(k,2074) - lu(k,1158) * lu(k,2069) - lu(k,2075) = lu(k,2075) - lu(k,1159) * lu(k,2069) - lu(k,2076) = lu(k,2076) - lu(k,1160) * lu(k,2069) - lu(k,2077) = lu(k,2077) - lu(k,1161) * lu(k,2069) - lu(k,2078) = lu(k,2078) - lu(k,1162) * lu(k,2069) - lu(k,2079) = lu(k,2079) - lu(k,1163) * lu(k,2069) - lu(k,2080) = lu(k,2080) - lu(k,1164) * lu(k,2069) - lu(k,2081) = lu(k,2081) - lu(k,1165) * lu(k,2069) - lu(k,2082) = lu(k,2082) - lu(k,1166) * lu(k,2069) - lu(k,2083) = lu(k,2083) - lu(k,1167) * lu(k,2069) - lu(k,2084) = lu(k,2084) - lu(k,1168) * lu(k,2069) - lu(k,2085) = lu(k,2085) - lu(k,1169) * lu(k,2069) - lu(k,2086) = lu(k,2086) - lu(k,1170) * lu(k,2069) - lu(k,2087) = lu(k,2087) - lu(k,1171) * lu(k,2069) - lu(k,2088) = lu(k,2088) - lu(k,1172) * lu(k,2069) - lu(k,2089) = lu(k,2089) - lu(k,1173) * lu(k,2069) - lu(k,2090) = lu(k,2090) - lu(k,1174) * lu(k,2069) - lu(k,1197) = 1._r8 / lu(k,1197) - lu(k,1198) = lu(k,1198) * lu(k,1197) - lu(k,1199) = lu(k,1199) * lu(k,1197) - lu(k,1200) = lu(k,1200) * lu(k,1197) - lu(k,1201) = lu(k,1201) * lu(k,1197) - lu(k,1202) = lu(k,1202) * lu(k,1197) - lu(k,1203) = lu(k,1203) * lu(k,1197) - lu(k,1204) = lu(k,1204) * lu(k,1197) - lu(k,1205) = lu(k,1205) * lu(k,1197) - lu(k,1206) = lu(k,1206) * lu(k,1197) - lu(k,1207) = lu(k,1207) * lu(k,1197) - lu(k,1208) = lu(k,1208) * lu(k,1197) - lu(k,1209) = lu(k,1209) * lu(k,1197) - lu(k,1210) = lu(k,1210) * lu(k,1197) - lu(k,1211) = lu(k,1211) * lu(k,1197) - lu(k,1212) = lu(k,1212) * lu(k,1197) - lu(k,1213) = lu(k,1213) * lu(k,1197) - lu(k,1214) = lu(k,1214) * lu(k,1197) - lu(k,1215) = lu(k,1215) * lu(k,1197) - lu(k,1216) = lu(k,1216) * lu(k,1197) - lu(k,1217) = lu(k,1217) * lu(k,1197) - lu(k,1241) = lu(k,1241) - lu(k,1198) * lu(k,1240) - lu(k,1242) = lu(k,1242) - lu(k,1199) * lu(k,1240) - lu(k,1243) = lu(k,1243) - lu(k,1200) * lu(k,1240) - lu(k,1244) = lu(k,1244) - lu(k,1201) * lu(k,1240) - lu(k,1245) = lu(k,1245) - lu(k,1202) * lu(k,1240) - lu(k,1246) = lu(k,1246) - lu(k,1203) * lu(k,1240) - lu(k,1247) = lu(k,1247) - lu(k,1204) * lu(k,1240) - lu(k,1248) = lu(k,1248) - lu(k,1205) * lu(k,1240) - lu(k,1249) = lu(k,1249) - lu(k,1206) * lu(k,1240) - lu(k,1250) = lu(k,1250) - lu(k,1207) * lu(k,1240) - lu(k,1251) = lu(k,1251) - lu(k,1208) * lu(k,1240) - lu(k,1252) = lu(k,1252) - lu(k,1209) * lu(k,1240) - lu(k,1253) = lu(k,1253) - lu(k,1210) * lu(k,1240) - lu(k,1254) = lu(k,1254) - lu(k,1211) * lu(k,1240) - lu(k,1255) = lu(k,1255) - lu(k,1212) * lu(k,1240) - lu(k,1256) = lu(k,1256) - lu(k,1213) * lu(k,1240) - lu(k,1257) = lu(k,1257) - lu(k,1214) * lu(k,1240) - lu(k,1258) = lu(k,1258) - lu(k,1215) * lu(k,1240) - lu(k,1259) = lu(k,1259) - lu(k,1216) * lu(k,1240) - lu(k,1260) = lu(k,1260) - lu(k,1217) * lu(k,1240) - lu(k,1283) = lu(k,1283) - lu(k,1198) * lu(k,1282) - lu(k,1284) = lu(k,1284) - lu(k,1199) * lu(k,1282) - lu(k,1285) = lu(k,1285) - lu(k,1200) * lu(k,1282) - lu(k,1286) = lu(k,1286) - lu(k,1201) * lu(k,1282) - lu(k,1287) = lu(k,1287) - lu(k,1202) * lu(k,1282) - lu(k,1288) = lu(k,1288) - lu(k,1203) * lu(k,1282) - lu(k,1289) = lu(k,1289) - lu(k,1204) * lu(k,1282) - lu(k,1290) = lu(k,1290) - lu(k,1205) * lu(k,1282) - lu(k,1291) = lu(k,1291) - lu(k,1206) * lu(k,1282) - lu(k,1292) = lu(k,1292) - lu(k,1207) * lu(k,1282) - lu(k,1293) = lu(k,1293) - lu(k,1208) * lu(k,1282) - lu(k,1294) = lu(k,1294) - lu(k,1209) * lu(k,1282) - lu(k,1295) = lu(k,1295) - lu(k,1210) * lu(k,1282) - lu(k,1296) = lu(k,1296) - lu(k,1211) * lu(k,1282) - lu(k,1297) = lu(k,1297) - lu(k,1212) * lu(k,1282) - lu(k,1298) = lu(k,1298) - lu(k,1213) * lu(k,1282) - lu(k,1299) = lu(k,1299) - lu(k,1214) * lu(k,1282) - lu(k,1300) = lu(k,1300) - lu(k,1215) * lu(k,1282) - lu(k,1301) = lu(k,1301) - lu(k,1216) * lu(k,1282) - lu(k,1302) = lu(k,1302) - lu(k,1217) * lu(k,1282) - lu(k,1325) = lu(k,1325) - lu(k,1198) * lu(k,1324) - lu(k,1326) = lu(k,1326) - lu(k,1199) * lu(k,1324) - lu(k,1327) = lu(k,1327) - lu(k,1200) * lu(k,1324) - lu(k,1328) = lu(k,1328) - lu(k,1201) * lu(k,1324) - lu(k,1329) = lu(k,1329) - lu(k,1202) * lu(k,1324) - lu(k,1330) = lu(k,1330) - lu(k,1203) * lu(k,1324) - lu(k,1331) = lu(k,1331) - lu(k,1204) * lu(k,1324) - lu(k,1332) = lu(k,1332) - lu(k,1205) * lu(k,1324) - lu(k,1333) = lu(k,1333) - lu(k,1206) * lu(k,1324) - lu(k,1334) = lu(k,1334) - lu(k,1207) * lu(k,1324) - lu(k,1335) = lu(k,1335) - lu(k,1208) * lu(k,1324) - lu(k,1336) = lu(k,1336) - lu(k,1209) * lu(k,1324) - lu(k,1337) = lu(k,1337) - lu(k,1210) * lu(k,1324) - lu(k,1338) = lu(k,1338) - lu(k,1211) * lu(k,1324) - lu(k,1339) = lu(k,1339) - lu(k,1212) * lu(k,1324) - lu(k,1340) = lu(k,1340) - lu(k,1213) * lu(k,1324) - lu(k,1341) = lu(k,1341) - lu(k,1214) * lu(k,1324) - lu(k,1342) = lu(k,1342) - lu(k,1215) * lu(k,1324) - lu(k,1343) = lu(k,1343) - lu(k,1216) * lu(k,1324) - lu(k,1344) = lu(k,1344) - lu(k,1217) * lu(k,1324) - lu(k,1385) = lu(k,1385) - lu(k,1198) * lu(k,1384) - lu(k,1386) = lu(k,1386) - lu(k,1199) * lu(k,1384) - lu(k,1387) = lu(k,1387) - lu(k,1200) * lu(k,1384) - lu(k,1388) = lu(k,1388) - lu(k,1201) * lu(k,1384) - lu(k,1389) = lu(k,1389) - lu(k,1202) * lu(k,1384) - lu(k,1390) = lu(k,1390) - lu(k,1203) * lu(k,1384) - lu(k,1391) = lu(k,1391) - lu(k,1204) * lu(k,1384) - lu(k,1392) = lu(k,1392) - lu(k,1205) * lu(k,1384) - lu(k,1393) = lu(k,1393) - lu(k,1206) * lu(k,1384) - lu(k,1394) = lu(k,1394) - lu(k,1207) * lu(k,1384) - lu(k,1395) = lu(k,1395) - lu(k,1208) * lu(k,1384) - lu(k,1396) = lu(k,1396) - lu(k,1209) * lu(k,1384) - lu(k,1397) = lu(k,1397) - lu(k,1210) * lu(k,1384) - lu(k,1398) = lu(k,1398) - lu(k,1211) * lu(k,1384) - lu(k,1399) = lu(k,1399) - lu(k,1212) * lu(k,1384) - lu(k,1400) = lu(k,1400) - lu(k,1213) * lu(k,1384) - lu(k,1401) = lu(k,1401) - lu(k,1214) * lu(k,1384) - lu(k,1402) = lu(k,1402) - lu(k,1215) * lu(k,1384) - lu(k,1403) = lu(k,1403) - lu(k,1216) * lu(k,1384) - lu(k,1404) = lu(k,1404) - lu(k,1217) * lu(k,1384) - lu(k,1434) = lu(k,1434) - lu(k,1198) * lu(k,1433) - lu(k,1435) = lu(k,1435) - lu(k,1199) * lu(k,1433) - lu(k,1436) = lu(k,1436) - lu(k,1200) * lu(k,1433) - lu(k,1437) = lu(k,1437) - lu(k,1201) * lu(k,1433) - lu(k,1438) = lu(k,1438) - lu(k,1202) * lu(k,1433) - lu(k,1439) = lu(k,1439) - lu(k,1203) * lu(k,1433) - lu(k,1440) = lu(k,1440) - lu(k,1204) * lu(k,1433) - lu(k,1441) = lu(k,1441) - lu(k,1205) * lu(k,1433) - lu(k,1442) = lu(k,1442) - lu(k,1206) * lu(k,1433) - lu(k,1443) = lu(k,1443) - lu(k,1207) * lu(k,1433) - lu(k,1444) = lu(k,1444) - lu(k,1208) * lu(k,1433) - lu(k,1445) = lu(k,1445) - lu(k,1209) * lu(k,1433) - lu(k,1446) = lu(k,1446) - lu(k,1210) * lu(k,1433) - lu(k,1447) = lu(k,1447) - lu(k,1211) * lu(k,1433) - lu(k,1448) = lu(k,1448) - lu(k,1212) * lu(k,1433) - lu(k,1449) = lu(k,1449) - lu(k,1213) * lu(k,1433) - lu(k,1450) = lu(k,1450) - lu(k,1214) * lu(k,1433) - lu(k,1451) = lu(k,1451) - lu(k,1215) * lu(k,1433) - lu(k,1452) = lu(k,1452) - lu(k,1216) * lu(k,1433) - lu(k,1453) = lu(k,1453) - lu(k,1217) * lu(k,1433) - lu(k,1482) = lu(k,1482) - lu(k,1198) * lu(k,1481) - lu(k,1483) = lu(k,1483) - lu(k,1199) * lu(k,1481) - lu(k,1484) = lu(k,1484) - lu(k,1200) * lu(k,1481) - lu(k,1485) = lu(k,1485) - lu(k,1201) * lu(k,1481) - lu(k,1486) = lu(k,1486) - lu(k,1202) * lu(k,1481) - lu(k,1487) = lu(k,1487) - lu(k,1203) * lu(k,1481) - lu(k,1488) = lu(k,1488) - lu(k,1204) * lu(k,1481) - lu(k,1489) = lu(k,1489) - lu(k,1205) * lu(k,1481) - lu(k,1490) = lu(k,1490) - lu(k,1206) * lu(k,1481) - lu(k,1491) = lu(k,1491) - lu(k,1207) * lu(k,1481) - lu(k,1492) = lu(k,1492) - lu(k,1208) * lu(k,1481) - lu(k,1493) = lu(k,1493) - lu(k,1209) * lu(k,1481) - lu(k,1494) = lu(k,1494) - lu(k,1210) * lu(k,1481) - lu(k,1495) = lu(k,1495) - lu(k,1211) * lu(k,1481) - lu(k,1496) = lu(k,1496) - lu(k,1212) * lu(k,1481) - lu(k,1497) = lu(k,1497) - lu(k,1213) * lu(k,1481) - lu(k,1498) = lu(k,1498) - lu(k,1214) * lu(k,1481) - lu(k,1499) = lu(k,1499) - lu(k,1215) * lu(k,1481) - lu(k,1500) = lu(k,1500) - lu(k,1216) * lu(k,1481) - lu(k,1501) = lu(k,1501) - lu(k,1217) * lu(k,1481) - lu(k,1523) = lu(k,1523) - lu(k,1198) * lu(k,1522) - lu(k,1524) = lu(k,1524) - lu(k,1199) * lu(k,1522) - lu(k,1525) = lu(k,1525) - lu(k,1200) * lu(k,1522) - lu(k,1526) = lu(k,1526) - lu(k,1201) * lu(k,1522) - lu(k,1527) = lu(k,1527) - lu(k,1202) * lu(k,1522) - lu(k,1528) = lu(k,1528) - lu(k,1203) * lu(k,1522) - lu(k,1529) = lu(k,1529) - lu(k,1204) * lu(k,1522) - lu(k,1530) = lu(k,1530) - lu(k,1205) * lu(k,1522) - lu(k,1531) = lu(k,1531) - lu(k,1206) * lu(k,1522) - lu(k,1532) = lu(k,1532) - lu(k,1207) * lu(k,1522) - lu(k,1533) = lu(k,1533) - lu(k,1208) * lu(k,1522) - lu(k,1534) = lu(k,1534) - lu(k,1209) * lu(k,1522) - lu(k,1535) = lu(k,1535) - lu(k,1210) * lu(k,1522) - lu(k,1536) = lu(k,1536) - lu(k,1211) * lu(k,1522) - lu(k,1537) = lu(k,1537) - lu(k,1212) * lu(k,1522) - lu(k,1538) = lu(k,1538) - lu(k,1213) * lu(k,1522) - lu(k,1539) = lu(k,1539) - lu(k,1214) * lu(k,1522) - lu(k,1540) = lu(k,1540) - lu(k,1215) * lu(k,1522) - lu(k,1541) = lu(k,1541) - lu(k,1216) * lu(k,1522) - lu(k,1542) = lu(k,1542) - lu(k,1217) * lu(k,1522) - lu(k,1559) = lu(k,1559) - lu(k,1198) * lu(k,1558) - lu(k,1560) = lu(k,1560) - lu(k,1199) * lu(k,1558) - lu(k,1561) = lu(k,1561) - lu(k,1200) * lu(k,1558) - lu(k,1562) = lu(k,1562) - lu(k,1201) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,1202) * lu(k,1558) - lu(k,1564) = lu(k,1564) - lu(k,1203) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,1204) * lu(k,1558) - lu(k,1566) = lu(k,1566) - lu(k,1205) * lu(k,1558) - lu(k,1567) = lu(k,1567) - lu(k,1206) * lu(k,1558) - lu(k,1568) = lu(k,1568) - lu(k,1207) * lu(k,1558) - lu(k,1569) = lu(k,1569) - lu(k,1208) * lu(k,1558) - lu(k,1570) = lu(k,1570) - lu(k,1209) * lu(k,1558) - lu(k,1571) = lu(k,1571) - lu(k,1210) * lu(k,1558) - lu(k,1572) = lu(k,1572) - lu(k,1211) * lu(k,1558) - lu(k,1573) = lu(k,1573) - lu(k,1212) * lu(k,1558) - lu(k,1574) = lu(k,1574) - lu(k,1213) * lu(k,1558) - lu(k,1575) = lu(k,1575) - lu(k,1214) * lu(k,1558) - lu(k,1576) = lu(k,1576) - lu(k,1215) * lu(k,1558) - lu(k,1577) = lu(k,1577) - lu(k,1216) * lu(k,1558) - lu(k,1578) = lu(k,1578) - lu(k,1217) * lu(k,1558) - lu(k,1604) = lu(k,1604) - lu(k,1198) * lu(k,1603) - lu(k,1605) = lu(k,1605) - lu(k,1199) * lu(k,1603) - lu(k,1606) = lu(k,1606) - lu(k,1200) * lu(k,1603) - lu(k,1607) = lu(k,1607) - lu(k,1201) * lu(k,1603) - lu(k,1608) = lu(k,1608) - lu(k,1202) * lu(k,1603) - lu(k,1609) = lu(k,1609) - lu(k,1203) * lu(k,1603) - lu(k,1610) = lu(k,1610) - lu(k,1204) * lu(k,1603) - lu(k,1611) = lu(k,1611) - lu(k,1205) * lu(k,1603) - lu(k,1612) = lu(k,1612) - lu(k,1206) * lu(k,1603) - lu(k,1613) = lu(k,1613) - lu(k,1207) * lu(k,1603) - lu(k,1614) = lu(k,1614) - lu(k,1208) * lu(k,1603) - lu(k,1615) = lu(k,1615) - lu(k,1209) * lu(k,1603) - lu(k,1616) = lu(k,1616) - lu(k,1210) * lu(k,1603) - lu(k,1617) = lu(k,1617) - lu(k,1211) * lu(k,1603) - lu(k,1618) = lu(k,1618) - lu(k,1212) * lu(k,1603) - lu(k,1619) = lu(k,1619) - lu(k,1213) * lu(k,1603) - lu(k,1620) = lu(k,1620) - lu(k,1214) * lu(k,1603) - lu(k,1621) = lu(k,1621) - lu(k,1215) * lu(k,1603) - lu(k,1622) = lu(k,1622) - lu(k,1216) * lu(k,1603) - lu(k,1623) = lu(k,1623) - lu(k,1217) * lu(k,1603) - lu(k,1647) = lu(k,1647) - lu(k,1198) * lu(k,1646) - lu(k,1648) = lu(k,1648) - lu(k,1199) * lu(k,1646) - lu(k,1649) = lu(k,1649) - lu(k,1200) * lu(k,1646) - lu(k,1650) = lu(k,1650) - lu(k,1201) * lu(k,1646) - lu(k,1651) = lu(k,1651) - lu(k,1202) * lu(k,1646) - lu(k,1652) = lu(k,1652) - lu(k,1203) * lu(k,1646) - lu(k,1653) = lu(k,1653) - lu(k,1204) * lu(k,1646) - lu(k,1654) = lu(k,1654) - lu(k,1205) * lu(k,1646) - lu(k,1655) = lu(k,1655) - lu(k,1206) * lu(k,1646) - lu(k,1656) = lu(k,1656) - lu(k,1207) * lu(k,1646) - lu(k,1657) = lu(k,1657) - lu(k,1208) * lu(k,1646) - lu(k,1658) = lu(k,1658) - lu(k,1209) * lu(k,1646) - lu(k,1659) = lu(k,1659) - lu(k,1210) * lu(k,1646) - lu(k,1660) = lu(k,1660) - lu(k,1211) * lu(k,1646) - lu(k,1661) = lu(k,1661) - lu(k,1212) * lu(k,1646) - lu(k,1662) = lu(k,1662) - lu(k,1213) * lu(k,1646) - lu(k,1663) = lu(k,1663) - lu(k,1214) * lu(k,1646) - lu(k,1664) = lu(k,1664) - lu(k,1215) * lu(k,1646) - lu(k,1665) = lu(k,1665) - lu(k,1216) * lu(k,1646) - lu(k,1666) = lu(k,1666) - lu(k,1217) * lu(k,1646) - lu(k,1690) = lu(k,1690) - lu(k,1198) * lu(k,1689) - lu(k,1691) = lu(k,1691) - lu(k,1199) * lu(k,1689) - lu(k,1692) = lu(k,1692) - lu(k,1200) * lu(k,1689) - lu(k,1693) = lu(k,1693) - lu(k,1201) * lu(k,1689) - lu(k,1694) = lu(k,1694) - lu(k,1202) * lu(k,1689) - lu(k,1695) = lu(k,1695) - lu(k,1203) * lu(k,1689) - lu(k,1696) = lu(k,1696) - lu(k,1204) * lu(k,1689) - lu(k,1697) = lu(k,1697) - lu(k,1205) * lu(k,1689) - lu(k,1698) = lu(k,1698) - lu(k,1206) * lu(k,1689) - lu(k,1699) = lu(k,1699) - lu(k,1207) * lu(k,1689) - lu(k,1700) = lu(k,1700) - lu(k,1208) * lu(k,1689) - lu(k,1701) = lu(k,1701) - lu(k,1209) * lu(k,1689) - lu(k,1702) = lu(k,1702) - lu(k,1210) * lu(k,1689) - lu(k,1703) = lu(k,1703) - lu(k,1211) * lu(k,1689) - lu(k,1704) = lu(k,1704) - lu(k,1212) * lu(k,1689) - lu(k,1705) = lu(k,1705) - lu(k,1213) * lu(k,1689) - lu(k,1706) = lu(k,1706) - lu(k,1214) * lu(k,1689) - lu(k,1707) = lu(k,1707) - lu(k,1215) * lu(k,1689) - lu(k,1708) = lu(k,1708) - lu(k,1216) * lu(k,1689) - lu(k,1709) = lu(k,1709) - lu(k,1217) * lu(k,1689) - lu(k,1730) = lu(k,1730) - lu(k,1198) * lu(k,1729) - lu(k,1731) = lu(k,1731) - lu(k,1199) * lu(k,1729) - lu(k,1732) = lu(k,1732) - lu(k,1200) * lu(k,1729) - lu(k,1733) = lu(k,1733) - lu(k,1201) * lu(k,1729) - lu(k,1734) = lu(k,1734) - lu(k,1202) * lu(k,1729) - lu(k,1735) = lu(k,1735) - lu(k,1203) * lu(k,1729) - lu(k,1736) = lu(k,1736) - lu(k,1204) * lu(k,1729) - lu(k,1737) = lu(k,1737) - lu(k,1205) * lu(k,1729) - lu(k,1738) = lu(k,1738) - lu(k,1206) * lu(k,1729) - lu(k,1739) = lu(k,1739) - lu(k,1207) * lu(k,1729) - lu(k,1740) = lu(k,1740) - lu(k,1208) * lu(k,1729) - lu(k,1741) = lu(k,1741) - lu(k,1209) * lu(k,1729) - lu(k,1742) = lu(k,1742) - lu(k,1210) * lu(k,1729) - lu(k,1743) = lu(k,1743) - lu(k,1211) * lu(k,1729) - lu(k,1744) = lu(k,1744) - lu(k,1212) * lu(k,1729) - lu(k,1745) = lu(k,1745) - lu(k,1213) * lu(k,1729) - lu(k,1746) = lu(k,1746) - lu(k,1214) * lu(k,1729) - lu(k,1747) = lu(k,1747) - lu(k,1215) * lu(k,1729) - lu(k,1748) = lu(k,1748) - lu(k,1216) * lu(k,1729) - lu(k,1749) = lu(k,1749) - lu(k,1217) * lu(k,1729) - lu(k,1766) = lu(k,1766) - lu(k,1198) * lu(k,1765) - lu(k,1767) = lu(k,1767) - lu(k,1199) * lu(k,1765) - lu(k,1768) = lu(k,1768) - lu(k,1200) * lu(k,1765) - lu(k,1769) = lu(k,1769) - lu(k,1201) * lu(k,1765) - lu(k,1770) = lu(k,1770) - lu(k,1202) * lu(k,1765) - lu(k,1771) = lu(k,1771) - lu(k,1203) * lu(k,1765) - lu(k,1772) = lu(k,1772) - lu(k,1204) * lu(k,1765) - lu(k,1773) = lu(k,1773) - lu(k,1205) * lu(k,1765) - lu(k,1774) = lu(k,1774) - lu(k,1206) * lu(k,1765) - lu(k,1775) = lu(k,1775) - lu(k,1207) * lu(k,1765) - lu(k,1776) = lu(k,1776) - lu(k,1208) * lu(k,1765) - lu(k,1777) = lu(k,1777) - lu(k,1209) * lu(k,1765) - lu(k,1778) = lu(k,1778) - lu(k,1210) * lu(k,1765) - lu(k,1779) = lu(k,1779) - lu(k,1211) * lu(k,1765) - lu(k,1780) = lu(k,1780) - lu(k,1212) * lu(k,1765) - lu(k,1781) = lu(k,1781) - lu(k,1213) * lu(k,1765) - lu(k,1782) = lu(k,1782) - lu(k,1214) * lu(k,1765) - lu(k,1783) = lu(k,1783) - lu(k,1215) * lu(k,1765) - lu(k,1784) = lu(k,1784) - lu(k,1216) * lu(k,1765) - lu(k,1785) = lu(k,1785) - lu(k,1217) * lu(k,1765) - lu(k,1814) = lu(k,1814) - lu(k,1198) * lu(k,1813) - lu(k,1815) = lu(k,1815) - lu(k,1199) * lu(k,1813) - lu(k,1816) = lu(k,1816) - lu(k,1200) * lu(k,1813) - lu(k,1817) = lu(k,1817) - lu(k,1201) * lu(k,1813) - lu(k,1818) = lu(k,1818) - lu(k,1202) * lu(k,1813) - lu(k,1819) = lu(k,1819) - lu(k,1203) * lu(k,1813) - lu(k,1820) = lu(k,1820) - lu(k,1204) * lu(k,1813) - lu(k,1821) = lu(k,1821) - lu(k,1205) * lu(k,1813) - lu(k,1822) = lu(k,1822) - lu(k,1206) * lu(k,1813) - lu(k,1823) = lu(k,1823) - lu(k,1207) * lu(k,1813) - lu(k,1824) = lu(k,1824) - lu(k,1208) * lu(k,1813) - lu(k,1825) = lu(k,1825) - lu(k,1209) * lu(k,1813) - lu(k,1826) = lu(k,1826) - lu(k,1210) * lu(k,1813) - lu(k,1827) = lu(k,1827) - lu(k,1211) * lu(k,1813) - lu(k,1828) = lu(k,1828) - lu(k,1212) * lu(k,1813) - lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1813) - lu(k,1830) = lu(k,1830) - lu(k,1214) * lu(k,1813) - lu(k,1831) = lu(k,1831) - lu(k,1215) * lu(k,1813) - lu(k,1832) = lu(k,1832) - lu(k,1216) * lu(k,1813) - lu(k,1833) = lu(k,1833) - lu(k,1217) * lu(k,1813) - lu(k,1847) = lu(k,1847) - lu(k,1198) * lu(k,1846) - lu(k,1848) = lu(k,1848) - lu(k,1199) * lu(k,1846) - lu(k,1849) = lu(k,1849) - lu(k,1200) * lu(k,1846) - lu(k,1850) = lu(k,1850) - lu(k,1201) * lu(k,1846) - lu(k,1851) = lu(k,1851) - lu(k,1202) * lu(k,1846) - lu(k,1852) = lu(k,1852) - lu(k,1203) * lu(k,1846) - lu(k,1853) = lu(k,1853) - lu(k,1204) * lu(k,1846) - lu(k,1854) = lu(k,1854) - lu(k,1205) * lu(k,1846) - lu(k,1855) = lu(k,1855) - lu(k,1206) * lu(k,1846) - lu(k,1856) = lu(k,1856) - lu(k,1207) * lu(k,1846) - lu(k,1857) = lu(k,1857) - lu(k,1208) * lu(k,1846) - lu(k,1858) = lu(k,1858) - lu(k,1209) * lu(k,1846) - lu(k,1859) = lu(k,1859) - lu(k,1210) * lu(k,1846) - lu(k,1860) = lu(k,1860) - lu(k,1211) * lu(k,1846) - lu(k,1861) = lu(k,1861) - lu(k,1212) * lu(k,1846) - lu(k,1862) = lu(k,1862) - lu(k,1213) * lu(k,1846) - lu(k,1863) = lu(k,1863) - lu(k,1214) * lu(k,1846) - lu(k,1864) = lu(k,1864) - lu(k,1215) * lu(k,1846) - lu(k,1865) = lu(k,1865) - lu(k,1216) * lu(k,1846) - lu(k,1866) = lu(k,1866) - lu(k,1217) * lu(k,1846) - lu(k,1883) = lu(k,1883) - lu(k,1198) * lu(k,1882) - lu(k,1884) = lu(k,1884) - lu(k,1199) * lu(k,1882) - lu(k,1885) = lu(k,1885) - lu(k,1200) * lu(k,1882) - lu(k,1886) = lu(k,1886) - lu(k,1201) * lu(k,1882) - lu(k,1887) = lu(k,1887) - lu(k,1202) * lu(k,1882) - lu(k,1888) = lu(k,1888) - lu(k,1203) * lu(k,1882) - lu(k,1889) = lu(k,1889) - lu(k,1204) * lu(k,1882) - lu(k,1890) = lu(k,1890) - lu(k,1205) * lu(k,1882) - lu(k,1891) = lu(k,1891) - lu(k,1206) * lu(k,1882) - lu(k,1892) = lu(k,1892) - lu(k,1207) * lu(k,1882) - lu(k,1893) = lu(k,1893) - lu(k,1208) * lu(k,1882) - lu(k,1894) = lu(k,1894) - lu(k,1209) * lu(k,1882) - lu(k,1895) = lu(k,1895) - lu(k,1210) * lu(k,1882) - lu(k,1896) = lu(k,1896) - lu(k,1211) * lu(k,1882) - lu(k,1897) = lu(k,1897) - lu(k,1212) * lu(k,1882) - lu(k,1898) = lu(k,1898) - lu(k,1213) * lu(k,1882) - lu(k,1899) = lu(k,1899) - lu(k,1214) * lu(k,1882) - lu(k,1900) = lu(k,1900) - lu(k,1215) * lu(k,1882) - lu(k,1901) = lu(k,1901) - lu(k,1216) * lu(k,1882) - lu(k,1902) = lu(k,1902) - lu(k,1217) * lu(k,1882) - lu(k,1924) = lu(k,1924) - lu(k,1198) * lu(k,1923) - lu(k,1925) = lu(k,1925) - lu(k,1199) * lu(k,1923) - lu(k,1926) = lu(k,1926) - lu(k,1200) * lu(k,1923) - lu(k,1927) = lu(k,1927) - lu(k,1201) * lu(k,1923) - lu(k,1928) = lu(k,1928) - lu(k,1202) * lu(k,1923) - lu(k,1929) = lu(k,1929) - lu(k,1203) * lu(k,1923) - lu(k,1930) = lu(k,1930) - lu(k,1204) * lu(k,1923) - lu(k,1931) = lu(k,1931) - lu(k,1205) * lu(k,1923) - lu(k,1932) = lu(k,1932) - lu(k,1206) * lu(k,1923) - lu(k,1933) = lu(k,1933) - lu(k,1207) * lu(k,1923) - lu(k,1934) = lu(k,1934) - lu(k,1208) * lu(k,1923) - lu(k,1935) = lu(k,1935) - lu(k,1209) * lu(k,1923) - lu(k,1936) = lu(k,1936) - lu(k,1210) * lu(k,1923) - lu(k,1937) = lu(k,1937) - lu(k,1211) * lu(k,1923) - lu(k,1938) = lu(k,1938) - lu(k,1212) * lu(k,1923) - lu(k,1939) = lu(k,1939) - lu(k,1213) * lu(k,1923) - lu(k,1940) = lu(k,1940) - lu(k,1214) * lu(k,1923) - lu(k,1941) = lu(k,1941) - lu(k,1215) * lu(k,1923) - lu(k,1942) = lu(k,1942) - lu(k,1216) * lu(k,1923) - lu(k,1943) = lu(k,1943) - lu(k,1217) * lu(k,1923) - lu(k,1966) = lu(k,1966) - lu(k,1198) * lu(k,1965) - lu(k,1967) = lu(k,1967) - lu(k,1199) * lu(k,1965) - lu(k,1968) = lu(k,1968) - lu(k,1200) * lu(k,1965) - lu(k,1969) = lu(k,1969) - lu(k,1201) * lu(k,1965) - lu(k,1970) = lu(k,1970) - lu(k,1202) * lu(k,1965) - lu(k,1971) = lu(k,1971) - lu(k,1203) * lu(k,1965) - lu(k,1972) = lu(k,1972) - lu(k,1204) * lu(k,1965) - lu(k,1973) = lu(k,1973) - lu(k,1205) * lu(k,1965) - lu(k,1974) = lu(k,1974) - lu(k,1206) * lu(k,1965) - lu(k,1975) = lu(k,1975) - lu(k,1207) * lu(k,1965) - lu(k,1976) = lu(k,1976) - lu(k,1208) * lu(k,1965) - lu(k,1977) = lu(k,1977) - lu(k,1209) * lu(k,1965) - lu(k,1978) = lu(k,1978) - lu(k,1210) * lu(k,1965) - lu(k,1979) = lu(k,1979) - lu(k,1211) * lu(k,1965) - lu(k,1980) = lu(k,1980) - lu(k,1212) * lu(k,1965) - lu(k,1981) = lu(k,1981) - lu(k,1213) * lu(k,1965) - lu(k,1982) = lu(k,1982) - lu(k,1214) * lu(k,1965) - lu(k,1983) = lu(k,1983) - lu(k,1215) * lu(k,1965) - lu(k,1984) = lu(k,1984) - lu(k,1216) * lu(k,1965) - lu(k,1985) = lu(k,1985) - lu(k,1217) * lu(k,1965) - lu(k,2011) = lu(k,2011) - lu(k,1198) * lu(k,2010) - lu(k,2012) = lu(k,2012) - lu(k,1199) * lu(k,2010) - lu(k,2013) = lu(k,2013) - lu(k,1200) * lu(k,2010) - lu(k,2014) = lu(k,2014) - lu(k,1201) * lu(k,2010) - lu(k,2015) = lu(k,2015) - lu(k,1202) * lu(k,2010) - lu(k,2016) = lu(k,2016) - lu(k,1203) * lu(k,2010) - lu(k,2017) = lu(k,2017) - lu(k,1204) * lu(k,2010) - lu(k,2018) = lu(k,2018) - lu(k,1205) * lu(k,2010) - lu(k,2019) = lu(k,2019) - lu(k,1206) * lu(k,2010) - lu(k,2020) = lu(k,2020) - lu(k,1207) * lu(k,2010) - lu(k,2021) = lu(k,2021) - lu(k,1208) * lu(k,2010) - lu(k,2022) = lu(k,2022) - lu(k,1209) * lu(k,2010) - lu(k,2023) = lu(k,2023) - lu(k,1210) * lu(k,2010) - lu(k,2024) = lu(k,2024) - lu(k,1211) * lu(k,2010) - lu(k,2025) = lu(k,2025) - lu(k,1212) * lu(k,2010) - lu(k,2026) = lu(k,2026) - lu(k,1213) * lu(k,2010) - lu(k,2027) = lu(k,2027) - lu(k,1214) * lu(k,2010) - lu(k,2028) = lu(k,2028) - lu(k,1215) * lu(k,2010) - lu(k,2029) = lu(k,2029) - lu(k,1216) * lu(k,2010) - lu(k,2030) = lu(k,2030) - lu(k,1217) * lu(k,2010) - lu(k,2071) = lu(k,2071) - lu(k,1198) * lu(k,2070) - lu(k,2072) = lu(k,2072) - lu(k,1199) * lu(k,2070) - lu(k,2073) = lu(k,2073) - lu(k,1200) * lu(k,2070) - lu(k,2074) = lu(k,2074) - lu(k,1201) * lu(k,2070) - lu(k,2075) = lu(k,2075) - lu(k,1202) * lu(k,2070) - lu(k,2076) = lu(k,2076) - lu(k,1203) * lu(k,2070) - lu(k,2077) = lu(k,2077) - lu(k,1204) * lu(k,2070) - lu(k,2078) = lu(k,2078) - lu(k,1205) * lu(k,2070) - lu(k,2079) = lu(k,2079) - lu(k,1206) * lu(k,2070) - lu(k,2080) = lu(k,2080) - lu(k,1207) * lu(k,2070) - lu(k,2081) = lu(k,2081) - lu(k,1208) * lu(k,2070) - lu(k,2082) = lu(k,2082) - lu(k,1209) * lu(k,2070) - lu(k,2083) = lu(k,2083) - lu(k,1210) * lu(k,2070) - lu(k,2084) = lu(k,2084) - lu(k,1211) * lu(k,2070) - lu(k,2085) = lu(k,2085) - lu(k,1212) * lu(k,2070) - lu(k,2086) = lu(k,2086) - lu(k,1213) * lu(k,2070) - lu(k,2087) = lu(k,2087) - lu(k,1214) * lu(k,2070) - lu(k,2088) = lu(k,2088) - lu(k,1215) * lu(k,2070) - lu(k,2089) = lu(k,2089) - lu(k,1216) * lu(k,2070) - lu(k,2090) = lu(k,2090) - lu(k,1217) * lu(k,2070) + lu(k,1106) = 1._r8 / lu(k,1106) + lu(k,1107) = lu(k,1107) * lu(k,1106) + lu(k,1108) = lu(k,1108) * lu(k,1106) + lu(k,1109) = lu(k,1109) * lu(k,1106) + lu(k,1110) = lu(k,1110) * lu(k,1106) + lu(k,1111) = lu(k,1111) * lu(k,1106) + lu(k,1112) = lu(k,1112) * lu(k,1106) + lu(k,1113) = lu(k,1113) * lu(k,1106) + lu(k,1114) = lu(k,1114) * lu(k,1106) + lu(k,1115) = lu(k,1115) * lu(k,1106) + lu(k,1116) = lu(k,1116) * lu(k,1106) + lu(k,1117) = lu(k,1117) * lu(k,1106) + lu(k,1118) = lu(k,1118) * lu(k,1106) + lu(k,1119) = lu(k,1119) * lu(k,1106) + lu(k,1120) = lu(k,1120) * lu(k,1106) + lu(k,1121) = lu(k,1121) * lu(k,1106) + lu(k,1122) = lu(k,1122) * lu(k,1106) + lu(k,1123) = lu(k,1123) * lu(k,1106) + lu(k,1124) = lu(k,1124) * lu(k,1106) + lu(k,1125) = lu(k,1125) * lu(k,1106) + lu(k,1126) = lu(k,1126) * lu(k,1106) + lu(k,1127) = lu(k,1127) * lu(k,1106) + lu(k,1128) = lu(k,1128) * lu(k,1106) + lu(k,1154) = lu(k,1154) - lu(k,1107) * lu(k,1153) + lu(k,1155) = lu(k,1155) - lu(k,1108) * lu(k,1153) + lu(k,1156) = lu(k,1156) - lu(k,1109) * lu(k,1153) + lu(k,1157) = lu(k,1157) - lu(k,1110) * lu(k,1153) + lu(k,1158) = lu(k,1158) - lu(k,1111) * lu(k,1153) + lu(k,1159) = lu(k,1159) - lu(k,1112) * lu(k,1153) + lu(k,1160) = lu(k,1160) - lu(k,1113) * lu(k,1153) + lu(k,1161) = lu(k,1161) - lu(k,1114) * lu(k,1153) + lu(k,1162) = lu(k,1162) - lu(k,1115) * lu(k,1153) + lu(k,1163) = lu(k,1163) - lu(k,1116) * lu(k,1153) + lu(k,1164) = lu(k,1164) - lu(k,1117) * lu(k,1153) + lu(k,1165) = lu(k,1165) - lu(k,1118) * lu(k,1153) + lu(k,1166) = lu(k,1166) - lu(k,1119) * lu(k,1153) + lu(k,1167) = lu(k,1167) - lu(k,1120) * lu(k,1153) + lu(k,1168) = lu(k,1168) - lu(k,1121) * lu(k,1153) + lu(k,1169) = lu(k,1169) - lu(k,1122) * lu(k,1153) + lu(k,1170) = lu(k,1170) - lu(k,1123) * lu(k,1153) + lu(k,1171) = lu(k,1171) - lu(k,1124) * lu(k,1153) + lu(k,1172) = lu(k,1172) - lu(k,1125) * lu(k,1153) + lu(k,1173) = lu(k,1173) - lu(k,1126) * lu(k,1153) + lu(k,1174) = lu(k,1174) - lu(k,1127) * lu(k,1153) + lu(k,1175) = lu(k,1175) - lu(k,1128) * lu(k,1153) + lu(k,1197) = lu(k,1197) - lu(k,1107) * lu(k,1196) + lu(k,1198) = lu(k,1198) - lu(k,1108) * lu(k,1196) + lu(k,1199) = lu(k,1199) - lu(k,1109) * lu(k,1196) + lu(k,1200) = lu(k,1200) - lu(k,1110) * lu(k,1196) + lu(k,1201) = lu(k,1201) - lu(k,1111) * lu(k,1196) + lu(k,1202) = lu(k,1202) - lu(k,1112) * lu(k,1196) + lu(k,1203) = lu(k,1203) - lu(k,1113) * lu(k,1196) + lu(k,1204) = lu(k,1204) - lu(k,1114) * lu(k,1196) + lu(k,1205) = lu(k,1205) - lu(k,1115) * lu(k,1196) + lu(k,1206) = lu(k,1206) - lu(k,1116) * lu(k,1196) + lu(k,1207) = lu(k,1207) - lu(k,1117) * lu(k,1196) + lu(k,1208) = lu(k,1208) - lu(k,1118) * lu(k,1196) + lu(k,1209) = lu(k,1209) - lu(k,1119) * lu(k,1196) + lu(k,1210) = lu(k,1210) - lu(k,1120) * lu(k,1196) + lu(k,1211) = lu(k,1211) - lu(k,1121) * lu(k,1196) + lu(k,1212) = lu(k,1212) - lu(k,1122) * lu(k,1196) + lu(k,1213) = lu(k,1213) - lu(k,1123) * lu(k,1196) + lu(k,1214) = lu(k,1214) - lu(k,1124) * lu(k,1196) + lu(k,1215) = lu(k,1215) - lu(k,1125) * lu(k,1196) + lu(k,1216) = lu(k,1216) - lu(k,1126) * lu(k,1196) + lu(k,1217) = lu(k,1217) - lu(k,1127) * lu(k,1196) + lu(k,1218) = lu(k,1218) - lu(k,1128) * lu(k,1196) + lu(k,1238) = lu(k,1238) - lu(k,1107) * lu(k,1237) + lu(k,1239) = lu(k,1239) - lu(k,1108) * lu(k,1237) + lu(k,1240) = lu(k,1240) - lu(k,1109) * lu(k,1237) + lu(k,1241) = lu(k,1241) - lu(k,1110) * lu(k,1237) + lu(k,1242) = lu(k,1242) - lu(k,1111) * lu(k,1237) + lu(k,1243) = lu(k,1243) - lu(k,1112) * lu(k,1237) + lu(k,1244) = lu(k,1244) - lu(k,1113) * lu(k,1237) + lu(k,1245) = lu(k,1245) - lu(k,1114) * lu(k,1237) + lu(k,1246) = lu(k,1246) - lu(k,1115) * lu(k,1237) + lu(k,1247) = lu(k,1247) - lu(k,1116) * lu(k,1237) + lu(k,1248) = lu(k,1248) - lu(k,1117) * lu(k,1237) + lu(k,1249) = lu(k,1249) - lu(k,1118) * lu(k,1237) + lu(k,1250) = lu(k,1250) - lu(k,1119) * lu(k,1237) + lu(k,1251) = lu(k,1251) - lu(k,1120) * lu(k,1237) + lu(k,1252) = lu(k,1252) - lu(k,1121) * lu(k,1237) + lu(k,1253) = lu(k,1253) - lu(k,1122) * lu(k,1237) + lu(k,1254) = lu(k,1254) - lu(k,1123) * lu(k,1237) + lu(k,1255) = lu(k,1255) - lu(k,1124) * lu(k,1237) + lu(k,1256) = lu(k,1256) - lu(k,1125) * lu(k,1237) + lu(k,1257) = lu(k,1257) - lu(k,1126) * lu(k,1237) + lu(k,1258) = lu(k,1258) - lu(k,1127) * lu(k,1237) + lu(k,1259) = lu(k,1259) - lu(k,1128) * lu(k,1237) + lu(k,1281) = lu(k,1281) - lu(k,1107) * lu(k,1280) + lu(k,1282) = lu(k,1282) - lu(k,1108) * lu(k,1280) + lu(k,1283) = lu(k,1283) - lu(k,1109) * lu(k,1280) + lu(k,1284) = lu(k,1284) - lu(k,1110) * lu(k,1280) + lu(k,1285) = lu(k,1285) - lu(k,1111) * lu(k,1280) + lu(k,1286) = lu(k,1286) - lu(k,1112) * lu(k,1280) + lu(k,1287) = lu(k,1287) - lu(k,1113) * lu(k,1280) + lu(k,1288) = lu(k,1288) - lu(k,1114) * lu(k,1280) + lu(k,1289) = lu(k,1289) - lu(k,1115) * lu(k,1280) + lu(k,1290) = lu(k,1290) - lu(k,1116) * lu(k,1280) + lu(k,1291) = lu(k,1291) - lu(k,1117) * lu(k,1280) + lu(k,1292) = lu(k,1292) - lu(k,1118) * lu(k,1280) + lu(k,1293) = lu(k,1293) - lu(k,1119) * lu(k,1280) + lu(k,1294) = lu(k,1294) - lu(k,1120) * lu(k,1280) + lu(k,1295) = lu(k,1295) - lu(k,1121) * lu(k,1280) + lu(k,1296) = lu(k,1296) - lu(k,1122) * lu(k,1280) + lu(k,1297) = lu(k,1297) - lu(k,1123) * lu(k,1280) + lu(k,1298) = lu(k,1298) - lu(k,1124) * lu(k,1280) + lu(k,1299) = lu(k,1299) - lu(k,1125) * lu(k,1280) + lu(k,1300) = lu(k,1300) - lu(k,1126) * lu(k,1280) + lu(k,1301) = lu(k,1301) - lu(k,1127) * lu(k,1280) + lu(k,1302) = lu(k,1302) - lu(k,1128) * lu(k,1280) + lu(k,1323) = lu(k,1323) - lu(k,1107) * lu(k,1322) + lu(k,1324) = lu(k,1324) - lu(k,1108) * lu(k,1322) + lu(k,1325) = lu(k,1325) - lu(k,1109) * lu(k,1322) + lu(k,1326) = lu(k,1326) - lu(k,1110) * lu(k,1322) + lu(k,1327) = lu(k,1327) - lu(k,1111) * lu(k,1322) + lu(k,1328) = lu(k,1328) - lu(k,1112) * lu(k,1322) + lu(k,1329) = lu(k,1329) - lu(k,1113) * lu(k,1322) + lu(k,1330) = lu(k,1330) - lu(k,1114) * lu(k,1322) + lu(k,1331) = lu(k,1331) - lu(k,1115) * lu(k,1322) + lu(k,1332) = lu(k,1332) - lu(k,1116) * lu(k,1322) + lu(k,1333) = lu(k,1333) - lu(k,1117) * lu(k,1322) + lu(k,1334) = lu(k,1334) - lu(k,1118) * lu(k,1322) + lu(k,1335) = lu(k,1335) - lu(k,1119) * lu(k,1322) + lu(k,1336) = lu(k,1336) - lu(k,1120) * lu(k,1322) + lu(k,1337) = lu(k,1337) - lu(k,1121) * lu(k,1322) + lu(k,1338) = lu(k,1338) - lu(k,1122) * lu(k,1322) + lu(k,1339) = lu(k,1339) - lu(k,1123) * lu(k,1322) + lu(k,1340) = lu(k,1340) - lu(k,1124) * lu(k,1322) + lu(k,1341) = lu(k,1341) - lu(k,1125) * lu(k,1322) + lu(k,1342) = lu(k,1342) - lu(k,1126) * lu(k,1322) + lu(k,1343) = lu(k,1343) - lu(k,1127) * lu(k,1322) + lu(k,1344) = lu(k,1344) - lu(k,1128) * lu(k,1322) + lu(k,1383) = lu(k,1383) - lu(k,1107) * lu(k,1382) + lu(k,1384) = lu(k,1384) - lu(k,1108) * lu(k,1382) + lu(k,1385) = lu(k,1385) - lu(k,1109) * lu(k,1382) + lu(k,1386) = lu(k,1386) - lu(k,1110) * lu(k,1382) + lu(k,1387) = lu(k,1387) - lu(k,1111) * lu(k,1382) + lu(k,1388) = lu(k,1388) - lu(k,1112) * lu(k,1382) + lu(k,1389) = lu(k,1389) - lu(k,1113) * lu(k,1382) + lu(k,1390) = lu(k,1390) - lu(k,1114) * lu(k,1382) + lu(k,1391) = lu(k,1391) - lu(k,1115) * lu(k,1382) + lu(k,1392) = lu(k,1392) - lu(k,1116) * lu(k,1382) + lu(k,1393) = lu(k,1393) - lu(k,1117) * lu(k,1382) + lu(k,1394) = lu(k,1394) - lu(k,1118) * lu(k,1382) + lu(k,1395) = lu(k,1395) - lu(k,1119) * lu(k,1382) + lu(k,1396) = lu(k,1396) - lu(k,1120) * lu(k,1382) + lu(k,1397) = lu(k,1397) - lu(k,1121) * lu(k,1382) + lu(k,1398) = lu(k,1398) - lu(k,1122) * lu(k,1382) + lu(k,1399) = lu(k,1399) - lu(k,1123) * lu(k,1382) + lu(k,1400) = lu(k,1400) - lu(k,1124) * lu(k,1382) + lu(k,1401) = lu(k,1401) - lu(k,1125) * lu(k,1382) + lu(k,1402) = lu(k,1402) - lu(k,1126) * lu(k,1382) + lu(k,1403) = lu(k,1403) - lu(k,1127) * lu(k,1382) + lu(k,1404) = lu(k,1404) - lu(k,1128) * lu(k,1382) + lu(k,1426) = lu(k,1426) - lu(k,1107) * lu(k,1425) + lu(k,1427) = lu(k,1427) - lu(k,1108) * lu(k,1425) + lu(k,1428) = lu(k,1428) - lu(k,1109) * lu(k,1425) + lu(k,1429) = lu(k,1429) - lu(k,1110) * lu(k,1425) + lu(k,1430) = lu(k,1430) - lu(k,1111) * lu(k,1425) + lu(k,1431) = lu(k,1431) - lu(k,1112) * lu(k,1425) + lu(k,1432) = lu(k,1432) - lu(k,1113) * lu(k,1425) + lu(k,1433) = lu(k,1433) - lu(k,1114) * lu(k,1425) + lu(k,1434) = lu(k,1434) - lu(k,1115) * lu(k,1425) + lu(k,1435) = lu(k,1435) - lu(k,1116) * lu(k,1425) + lu(k,1436) = lu(k,1436) - lu(k,1117) * lu(k,1425) + lu(k,1437) = lu(k,1437) - lu(k,1118) * lu(k,1425) + lu(k,1438) = lu(k,1438) - lu(k,1119) * lu(k,1425) + lu(k,1439) = lu(k,1439) - lu(k,1120) * lu(k,1425) + lu(k,1440) = lu(k,1440) - lu(k,1121) * lu(k,1425) + lu(k,1441) = lu(k,1441) - lu(k,1122) * lu(k,1425) + lu(k,1442) = lu(k,1442) - lu(k,1123) * lu(k,1425) + lu(k,1443) = lu(k,1443) - lu(k,1124) * lu(k,1425) + lu(k,1444) = lu(k,1444) - lu(k,1125) * lu(k,1425) + lu(k,1445) = lu(k,1445) - lu(k,1126) * lu(k,1425) + lu(k,1446) = lu(k,1446) - lu(k,1127) * lu(k,1425) + lu(k,1447) = lu(k,1447) - lu(k,1128) * lu(k,1425) + lu(k,1474) = lu(k,1474) - lu(k,1107) * lu(k,1473) + lu(k,1475) = lu(k,1475) - lu(k,1108) * lu(k,1473) + lu(k,1476) = lu(k,1476) - lu(k,1109) * lu(k,1473) + lu(k,1477) = lu(k,1477) - lu(k,1110) * lu(k,1473) + lu(k,1478) = lu(k,1478) - lu(k,1111) * lu(k,1473) + lu(k,1479) = lu(k,1479) - lu(k,1112) * lu(k,1473) + lu(k,1480) = lu(k,1480) - lu(k,1113) * lu(k,1473) + lu(k,1481) = lu(k,1481) - lu(k,1114) * lu(k,1473) + lu(k,1482) = lu(k,1482) - lu(k,1115) * lu(k,1473) + lu(k,1483) = lu(k,1483) - lu(k,1116) * lu(k,1473) + lu(k,1484) = lu(k,1484) - lu(k,1117) * lu(k,1473) + lu(k,1485) = lu(k,1485) - lu(k,1118) * lu(k,1473) + lu(k,1486) = lu(k,1486) - lu(k,1119) * lu(k,1473) + lu(k,1487) = lu(k,1487) - lu(k,1120) * lu(k,1473) + lu(k,1488) = lu(k,1488) - lu(k,1121) * lu(k,1473) + lu(k,1489) = lu(k,1489) - lu(k,1122) * lu(k,1473) + lu(k,1490) = lu(k,1490) - lu(k,1123) * lu(k,1473) + lu(k,1491) = lu(k,1491) - lu(k,1124) * lu(k,1473) + lu(k,1492) = lu(k,1492) - lu(k,1125) * lu(k,1473) + lu(k,1493) = lu(k,1493) - lu(k,1126) * lu(k,1473) + lu(k,1494) = lu(k,1494) - lu(k,1127) * lu(k,1473) + lu(k,1495) = lu(k,1495) - lu(k,1128) * lu(k,1473) + lu(k,1515) = lu(k,1515) - lu(k,1107) * lu(k,1514) + lu(k,1516) = lu(k,1516) - lu(k,1108) * lu(k,1514) + lu(k,1517) = lu(k,1517) - lu(k,1109) * lu(k,1514) + lu(k,1518) = lu(k,1518) - lu(k,1110) * lu(k,1514) + lu(k,1519) = lu(k,1519) - lu(k,1111) * lu(k,1514) + lu(k,1520) = lu(k,1520) - lu(k,1112) * lu(k,1514) + lu(k,1521) = lu(k,1521) - lu(k,1113) * lu(k,1514) + lu(k,1522) = lu(k,1522) - lu(k,1114) * lu(k,1514) + lu(k,1523) = lu(k,1523) - lu(k,1115) * lu(k,1514) + lu(k,1524) = lu(k,1524) - lu(k,1116) * lu(k,1514) + lu(k,1525) = lu(k,1525) - lu(k,1117) * lu(k,1514) + lu(k,1526) = lu(k,1526) - lu(k,1118) * lu(k,1514) + lu(k,1527) = lu(k,1527) - lu(k,1119) * lu(k,1514) + lu(k,1528) = lu(k,1528) - lu(k,1120) * lu(k,1514) + lu(k,1529) = lu(k,1529) - lu(k,1121) * lu(k,1514) + lu(k,1530) = lu(k,1530) - lu(k,1122) * lu(k,1514) + lu(k,1531) = lu(k,1531) - lu(k,1123) * lu(k,1514) + lu(k,1532) = lu(k,1532) - lu(k,1124) * lu(k,1514) + lu(k,1533) = lu(k,1533) - lu(k,1125) * lu(k,1514) + lu(k,1534) = lu(k,1534) - lu(k,1126) * lu(k,1514) + lu(k,1535) = lu(k,1535) - lu(k,1127) * lu(k,1514) + lu(k,1536) = lu(k,1536) - lu(k,1128) * lu(k,1514) + lu(k,1551) = lu(k,1551) - lu(k,1107) * lu(k,1550) + lu(k,1552) = lu(k,1552) - lu(k,1108) * lu(k,1550) + lu(k,1553) = lu(k,1553) - lu(k,1109) * lu(k,1550) + lu(k,1554) = lu(k,1554) - lu(k,1110) * lu(k,1550) + lu(k,1555) = lu(k,1555) - lu(k,1111) * lu(k,1550) + lu(k,1556) = lu(k,1556) - lu(k,1112) * lu(k,1550) + lu(k,1557) = lu(k,1557) - lu(k,1113) * lu(k,1550) + lu(k,1558) = lu(k,1558) - lu(k,1114) * lu(k,1550) + lu(k,1559) = lu(k,1559) - lu(k,1115) * lu(k,1550) + lu(k,1560) = lu(k,1560) - lu(k,1116) * lu(k,1550) + lu(k,1561) = lu(k,1561) - lu(k,1117) * lu(k,1550) + lu(k,1562) = lu(k,1562) - lu(k,1118) * lu(k,1550) + lu(k,1563) = lu(k,1563) - lu(k,1119) * lu(k,1550) + lu(k,1564) = lu(k,1564) - lu(k,1120) * lu(k,1550) + lu(k,1565) = lu(k,1565) - lu(k,1121) * lu(k,1550) + lu(k,1566) = lu(k,1566) - lu(k,1122) * lu(k,1550) + lu(k,1567) = lu(k,1567) - lu(k,1123) * lu(k,1550) + lu(k,1568) = lu(k,1568) - lu(k,1124) * lu(k,1550) + lu(k,1569) = lu(k,1569) - lu(k,1125) * lu(k,1550) + lu(k,1570) = lu(k,1570) - lu(k,1126) * lu(k,1550) + lu(k,1571) = lu(k,1571) - lu(k,1127) * lu(k,1550) + lu(k,1572) = lu(k,1572) - lu(k,1128) * lu(k,1550) + lu(k,1596) = lu(k,1596) - lu(k,1107) * lu(k,1595) + lu(k,1597) = lu(k,1597) - lu(k,1108) * lu(k,1595) + lu(k,1598) = lu(k,1598) - lu(k,1109) * lu(k,1595) + lu(k,1599) = lu(k,1599) - lu(k,1110) * lu(k,1595) + lu(k,1600) = lu(k,1600) - lu(k,1111) * lu(k,1595) + lu(k,1601) = lu(k,1601) - lu(k,1112) * lu(k,1595) + lu(k,1602) = lu(k,1602) - lu(k,1113) * lu(k,1595) + lu(k,1603) = lu(k,1603) - lu(k,1114) * lu(k,1595) + lu(k,1604) = lu(k,1604) - lu(k,1115) * lu(k,1595) + lu(k,1605) = lu(k,1605) - lu(k,1116) * lu(k,1595) + lu(k,1606) = lu(k,1606) - lu(k,1117) * lu(k,1595) + lu(k,1607) = lu(k,1607) - lu(k,1118) * lu(k,1595) + lu(k,1608) = lu(k,1608) - lu(k,1119) * lu(k,1595) + lu(k,1609) = lu(k,1609) - lu(k,1120) * lu(k,1595) + lu(k,1610) = lu(k,1610) - lu(k,1121) * lu(k,1595) + lu(k,1611) = lu(k,1611) - lu(k,1122) * lu(k,1595) + lu(k,1612) = lu(k,1612) - lu(k,1123) * lu(k,1595) + lu(k,1613) = lu(k,1613) - lu(k,1124) * lu(k,1595) + lu(k,1614) = lu(k,1614) - lu(k,1125) * lu(k,1595) + lu(k,1615) = lu(k,1615) - lu(k,1126) * lu(k,1595) + lu(k,1616) = lu(k,1616) - lu(k,1127) * lu(k,1595) + lu(k,1617) = lu(k,1617) - lu(k,1128) * lu(k,1595) + lu(k,1639) = lu(k,1639) - lu(k,1107) * lu(k,1638) + lu(k,1640) = lu(k,1640) - lu(k,1108) * lu(k,1638) + lu(k,1641) = lu(k,1641) - lu(k,1109) * lu(k,1638) + lu(k,1642) = lu(k,1642) - lu(k,1110) * lu(k,1638) + lu(k,1643) = lu(k,1643) - lu(k,1111) * lu(k,1638) + lu(k,1644) = lu(k,1644) - lu(k,1112) * lu(k,1638) + lu(k,1645) = lu(k,1645) - lu(k,1113) * lu(k,1638) + lu(k,1646) = lu(k,1646) - lu(k,1114) * lu(k,1638) + lu(k,1647) = lu(k,1647) - lu(k,1115) * lu(k,1638) + lu(k,1648) = lu(k,1648) - lu(k,1116) * lu(k,1638) + lu(k,1649) = lu(k,1649) - lu(k,1117) * lu(k,1638) + lu(k,1650) = lu(k,1650) - lu(k,1118) * lu(k,1638) + lu(k,1651) = lu(k,1651) - lu(k,1119) * lu(k,1638) + lu(k,1652) = lu(k,1652) - lu(k,1120) * lu(k,1638) + lu(k,1653) = lu(k,1653) - lu(k,1121) * lu(k,1638) + lu(k,1654) = lu(k,1654) - lu(k,1122) * lu(k,1638) + lu(k,1655) = lu(k,1655) - lu(k,1123) * lu(k,1638) + lu(k,1656) = lu(k,1656) - lu(k,1124) * lu(k,1638) + lu(k,1657) = lu(k,1657) - lu(k,1125) * lu(k,1638) + lu(k,1658) = lu(k,1658) - lu(k,1126) * lu(k,1638) + lu(k,1659) = lu(k,1659) - lu(k,1127) * lu(k,1638) + lu(k,1660) = lu(k,1660) - lu(k,1128) * lu(k,1638) + lu(k,1681) = lu(k,1681) - lu(k,1107) * lu(k,1680) + lu(k,1682) = lu(k,1682) - lu(k,1108) * lu(k,1680) + lu(k,1683) = lu(k,1683) - lu(k,1109) * lu(k,1680) + lu(k,1684) = lu(k,1684) - lu(k,1110) * lu(k,1680) + lu(k,1685) = lu(k,1685) - lu(k,1111) * lu(k,1680) + lu(k,1686) = lu(k,1686) - lu(k,1112) * lu(k,1680) + lu(k,1687) = lu(k,1687) - lu(k,1113) * lu(k,1680) + lu(k,1688) = lu(k,1688) - lu(k,1114) * lu(k,1680) + lu(k,1689) = lu(k,1689) - lu(k,1115) * lu(k,1680) + lu(k,1690) = lu(k,1690) - lu(k,1116) * lu(k,1680) + lu(k,1691) = lu(k,1691) - lu(k,1117) * lu(k,1680) + lu(k,1692) = lu(k,1692) - lu(k,1118) * lu(k,1680) + lu(k,1693) = lu(k,1693) - lu(k,1119) * lu(k,1680) + lu(k,1694) = lu(k,1694) - lu(k,1120) * lu(k,1680) + lu(k,1695) = lu(k,1695) - lu(k,1121) * lu(k,1680) + lu(k,1696) = lu(k,1696) - lu(k,1122) * lu(k,1680) + lu(k,1697) = lu(k,1697) - lu(k,1123) * lu(k,1680) + lu(k,1698) = lu(k,1698) - lu(k,1124) * lu(k,1680) + lu(k,1699) = lu(k,1699) - lu(k,1125) * lu(k,1680) + lu(k,1700) = lu(k,1700) - lu(k,1126) * lu(k,1680) + lu(k,1701) = lu(k,1701) - lu(k,1127) * lu(k,1680) + lu(k,1702) = lu(k,1702) - lu(k,1128) * lu(k,1680) + lu(k,1721) = lu(k,1721) - lu(k,1107) * lu(k,1720) + lu(k,1722) = lu(k,1722) - lu(k,1108) * lu(k,1720) + lu(k,1723) = lu(k,1723) - lu(k,1109) * lu(k,1720) + lu(k,1724) = lu(k,1724) - lu(k,1110) * lu(k,1720) + lu(k,1725) = lu(k,1725) - lu(k,1111) * lu(k,1720) + lu(k,1726) = lu(k,1726) - lu(k,1112) * lu(k,1720) + lu(k,1727) = lu(k,1727) - lu(k,1113) * lu(k,1720) + lu(k,1728) = lu(k,1728) - lu(k,1114) * lu(k,1720) + lu(k,1729) = lu(k,1729) - lu(k,1115) * lu(k,1720) + lu(k,1730) = lu(k,1730) - lu(k,1116) * lu(k,1720) + lu(k,1731) = lu(k,1731) - lu(k,1117) * lu(k,1720) + lu(k,1732) = lu(k,1732) - lu(k,1118) * lu(k,1720) + lu(k,1733) = lu(k,1733) - lu(k,1119) * lu(k,1720) + lu(k,1734) = lu(k,1734) - lu(k,1120) * lu(k,1720) + lu(k,1735) = lu(k,1735) - lu(k,1121) * lu(k,1720) + lu(k,1736) = lu(k,1736) - lu(k,1122) * lu(k,1720) + lu(k,1737) = lu(k,1737) - lu(k,1123) * lu(k,1720) + lu(k,1738) = lu(k,1738) - lu(k,1124) * lu(k,1720) + lu(k,1739) = lu(k,1739) - lu(k,1125) * lu(k,1720) + lu(k,1740) = lu(k,1740) - lu(k,1126) * lu(k,1720) + lu(k,1741) = lu(k,1741) - lu(k,1127) * lu(k,1720) + lu(k,1742) = lu(k,1742) - lu(k,1128) * lu(k,1720) + lu(k,1757) = lu(k,1757) - lu(k,1107) * lu(k,1756) + lu(k,1758) = lu(k,1758) - lu(k,1108) * lu(k,1756) + lu(k,1759) = lu(k,1759) - lu(k,1109) * lu(k,1756) + lu(k,1760) = lu(k,1760) - lu(k,1110) * lu(k,1756) + lu(k,1761) = lu(k,1761) - lu(k,1111) * lu(k,1756) + lu(k,1762) = lu(k,1762) - lu(k,1112) * lu(k,1756) + lu(k,1763) = lu(k,1763) - lu(k,1113) * lu(k,1756) + lu(k,1764) = lu(k,1764) - lu(k,1114) * lu(k,1756) + lu(k,1765) = lu(k,1765) - lu(k,1115) * lu(k,1756) + lu(k,1766) = lu(k,1766) - lu(k,1116) * lu(k,1756) + lu(k,1767) = lu(k,1767) - lu(k,1117) * lu(k,1756) + lu(k,1768) = lu(k,1768) - lu(k,1118) * lu(k,1756) + lu(k,1769) = lu(k,1769) - lu(k,1119) * lu(k,1756) + lu(k,1770) = lu(k,1770) - lu(k,1120) * lu(k,1756) + lu(k,1771) = lu(k,1771) - lu(k,1121) * lu(k,1756) + lu(k,1772) = lu(k,1772) - lu(k,1122) * lu(k,1756) + lu(k,1773) = lu(k,1773) - lu(k,1123) * lu(k,1756) + lu(k,1774) = lu(k,1774) - lu(k,1124) * lu(k,1756) + lu(k,1775) = lu(k,1775) - lu(k,1125) * lu(k,1756) + lu(k,1776) = lu(k,1776) - lu(k,1126) * lu(k,1756) + lu(k,1777) = lu(k,1777) - lu(k,1127) * lu(k,1756) + lu(k,1778) = lu(k,1778) - lu(k,1128) * lu(k,1756) + lu(k,1805) = lu(k,1805) - lu(k,1107) * lu(k,1804) + lu(k,1806) = lu(k,1806) - lu(k,1108) * lu(k,1804) + lu(k,1807) = lu(k,1807) - lu(k,1109) * lu(k,1804) + lu(k,1808) = lu(k,1808) - lu(k,1110) * lu(k,1804) + lu(k,1809) = lu(k,1809) - lu(k,1111) * lu(k,1804) + lu(k,1810) = lu(k,1810) - lu(k,1112) * lu(k,1804) + lu(k,1811) = lu(k,1811) - lu(k,1113) * lu(k,1804) + lu(k,1812) = lu(k,1812) - lu(k,1114) * lu(k,1804) + lu(k,1813) = lu(k,1813) - lu(k,1115) * lu(k,1804) + lu(k,1814) = lu(k,1814) - lu(k,1116) * lu(k,1804) + lu(k,1815) = lu(k,1815) - lu(k,1117) * lu(k,1804) + lu(k,1816) = lu(k,1816) - lu(k,1118) * lu(k,1804) + lu(k,1817) = lu(k,1817) - lu(k,1119) * lu(k,1804) + lu(k,1818) = lu(k,1818) - lu(k,1120) * lu(k,1804) + lu(k,1819) = lu(k,1819) - lu(k,1121) * lu(k,1804) + lu(k,1820) = lu(k,1820) - lu(k,1122) * lu(k,1804) + lu(k,1821) = lu(k,1821) - lu(k,1123) * lu(k,1804) + lu(k,1822) = lu(k,1822) - lu(k,1124) * lu(k,1804) + lu(k,1823) = lu(k,1823) - lu(k,1125) * lu(k,1804) + lu(k,1824) = lu(k,1824) - lu(k,1126) * lu(k,1804) + lu(k,1825) = lu(k,1825) - lu(k,1127) * lu(k,1804) + lu(k,1826) = lu(k,1826) - lu(k,1128) * lu(k,1804) + lu(k,1838) = lu(k,1838) - lu(k,1107) * lu(k,1837) + lu(k,1839) = lu(k,1839) - lu(k,1108) * lu(k,1837) + lu(k,1840) = lu(k,1840) - lu(k,1109) * lu(k,1837) + lu(k,1841) = lu(k,1841) - lu(k,1110) * lu(k,1837) + lu(k,1842) = lu(k,1842) - lu(k,1111) * lu(k,1837) + lu(k,1843) = lu(k,1843) - lu(k,1112) * lu(k,1837) + lu(k,1844) = lu(k,1844) - lu(k,1113) * lu(k,1837) + lu(k,1845) = lu(k,1845) - lu(k,1114) * lu(k,1837) + lu(k,1846) = lu(k,1846) - lu(k,1115) * lu(k,1837) + lu(k,1847) = lu(k,1847) - lu(k,1116) * lu(k,1837) + lu(k,1848) = lu(k,1848) - lu(k,1117) * lu(k,1837) + lu(k,1849) = lu(k,1849) - lu(k,1118) * lu(k,1837) + lu(k,1850) = lu(k,1850) - lu(k,1119) * lu(k,1837) + lu(k,1851) = lu(k,1851) - lu(k,1120) * lu(k,1837) + lu(k,1852) = lu(k,1852) - lu(k,1121) * lu(k,1837) + lu(k,1853) = lu(k,1853) - lu(k,1122) * lu(k,1837) + lu(k,1854) = lu(k,1854) - lu(k,1123) * lu(k,1837) + lu(k,1855) = lu(k,1855) - lu(k,1124) * lu(k,1837) + lu(k,1856) = lu(k,1856) - lu(k,1125) * lu(k,1837) + lu(k,1857) = lu(k,1857) - lu(k,1126) * lu(k,1837) + lu(k,1858) = lu(k,1858) - lu(k,1127) * lu(k,1837) + lu(k,1859) = lu(k,1859) - lu(k,1128) * lu(k,1837) + lu(k,1874) = lu(k,1874) - lu(k,1107) * lu(k,1873) + lu(k,1875) = lu(k,1875) - lu(k,1108) * lu(k,1873) + lu(k,1876) = lu(k,1876) - lu(k,1109) * lu(k,1873) + lu(k,1877) = lu(k,1877) - lu(k,1110) * lu(k,1873) + lu(k,1878) = lu(k,1878) - lu(k,1111) * lu(k,1873) + lu(k,1879) = lu(k,1879) - lu(k,1112) * lu(k,1873) + lu(k,1880) = lu(k,1880) - lu(k,1113) * lu(k,1873) + lu(k,1881) = lu(k,1881) - lu(k,1114) * lu(k,1873) + lu(k,1882) = lu(k,1882) - lu(k,1115) * lu(k,1873) + lu(k,1883) = lu(k,1883) - lu(k,1116) * lu(k,1873) + lu(k,1884) = lu(k,1884) - lu(k,1117) * lu(k,1873) + lu(k,1885) = lu(k,1885) - lu(k,1118) * lu(k,1873) + lu(k,1886) = lu(k,1886) - lu(k,1119) * lu(k,1873) + lu(k,1887) = lu(k,1887) - lu(k,1120) * lu(k,1873) + lu(k,1888) = lu(k,1888) - lu(k,1121) * lu(k,1873) + lu(k,1889) = lu(k,1889) - lu(k,1122) * lu(k,1873) + lu(k,1890) = lu(k,1890) - lu(k,1123) * lu(k,1873) + lu(k,1891) = lu(k,1891) - lu(k,1124) * lu(k,1873) + lu(k,1892) = lu(k,1892) - lu(k,1125) * lu(k,1873) + lu(k,1893) = lu(k,1893) - lu(k,1126) * lu(k,1873) + lu(k,1894) = lu(k,1894) - lu(k,1127) * lu(k,1873) + lu(k,1895) = lu(k,1895) - lu(k,1128) * lu(k,1873) + lu(k,1923) = lu(k,1923) - lu(k,1107) * lu(k,1922) + lu(k,1924) = lu(k,1924) - lu(k,1108) * lu(k,1922) + lu(k,1925) = lu(k,1925) - lu(k,1109) * lu(k,1922) + lu(k,1926) = lu(k,1926) - lu(k,1110) * lu(k,1922) + lu(k,1927) = lu(k,1927) - lu(k,1111) * lu(k,1922) + lu(k,1928) = lu(k,1928) - lu(k,1112) * lu(k,1922) + lu(k,1929) = lu(k,1929) - lu(k,1113) * lu(k,1922) + lu(k,1930) = lu(k,1930) - lu(k,1114) * lu(k,1922) + lu(k,1931) = lu(k,1931) - lu(k,1115) * lu(k,1922) + lu(k,1932) = lu(k,1932) - lu(k,1116) * lu(k,1922) + lu(k,1933) = lu(k,1933) - lu(k,1117) * lu(k,1922) + lu(k,1934) = lu(k,1934) - lu(k,1118) * lu(k,1922) + lu(k,1935) = lu(k,1935) - lu(k,1119) * lu(k,1922) + lu(k,1936) = lu(k,1936) - lu(k,1120) * lu(k,1922) + lu(k,1937) = lu(k,1937) - lu(k,1121) * lu(k,1922) + lu(k,1938) = lu(k,1938) - lu(k,1122) * lu(k,1922) + lu(k,1939) = lu(k,1939) - lu(k,1123) * lu(k,1922) + lu(k,1940) = lu(k,1940) - lu(k,1124) * lu(k,1922) + lu(k,1941) = lu(k,1941) - lu(k,1125) * lu(k,1922) + lu(k,1942) = lu(k,1942) - lu(k,1126) * lu(k,1922) + lu(k,1943) = lu(k,1943) - lu(k,1127) * lu(k,1922) + lu(k,1944) = lu(k,1944) - lu(k,1128) * lu(k,1922) + lu(k,1967) = lu(k,1967) - lu(k,1107) * lu(k,1966) + lu(k,1968) = lu(k,1968) - lu(k,1108) * lu(k,1966) + lu(k,1969) = lu(k,1969) - lu(k,1109) * lu(k,1966) + lu(k,1970) = lu(k,1970) - lu(k,1110) * lu(k,1966) + lu(k,1971) = lu(k,1971) - lu(k,1111) * lu(k,1966) + lu(k,1972) = lu(k,1972) - lu(k,1112) * lu(k,1966) + lu(k,1973) = lu(k,1973) - lu(k,1113) * lu(k,1966) + lu(k,1974) = lu(k,1974) - lu(k,1114) * lu(k,1966) + lu(k,1975) = lu(k,1975) - lu(k,1115) * lu(k,1966) + lu(k,1976) = lu(k,1976) - lu(k,1116) * lu(k,1966) + lu(k,1977) = lu(k,1977) - lu(k,1117) * lu(k,1966) + lu(k,1978) = lu(k,1978) - lu(k,1118) * lu(k,1966) + lu(k,1979) = lu(k,1979) - lu(k,1119) * lu(k,1966) + lu(k,1980) = lu(k,1980) - lu(k,1120) * lu(k,1966) + lu(k,1981) = lu(k,1981) - lu(k,1121) * lu(k,1966) + lu(k,1982) = lu(k,1982) - lu(k,1122) * lu(k,1966) + lu(k,1983) = lu(k,1983) - lu(k,1123) * lu(k,1966) + lu(k,1984) = lu(k,1984) - lu(k,1124) * lu(k,1966) + lu(k,1985) = lu(k,1985) - lu(k,1125) * lu(k,1966) + lu(k,1986) = lu(k,1986) - lu(k,1126) * lu(k,1966) + lu(k,1987) = lu(k,1987) - lu(k,1127) * lu(k,1966) + lu(k,1988) = lu(k,1988) - lu(k,1128) * lu(k,1966) + lu(k,2012) = lu(k,2012) - lu(k,1107) * lu(k,2011) + lu(k,2013) = lu(k,2013) - lu(k,1108) * lu(k,2011) + lu(k,2014) = lu(k,2014) - lu(k,1109) * lu(k,2011) + lu(k,2015) = lu(k,2015) - lu(k,1110) * lu(k,2011) + lu(k,2016) = lu(k,2016) - lu(k,1111) * lu(k,2011) + lu(k,2017) = lu(k,2017) - lu(k,1112) * lu(k,2011) + lu(k,2018) = lu(k,2018) - lu(k,1113) * lu(k,2011) + lu(k,2019) = lu(k,2019) - lu(k,1114) * lu(k,2011) + lu(k,2020) = lu(k,2020) - lu(k,1115) * lu(k,2011) + lu(k,2021) = lu(k,2021) - lu(k,1116) * lu(k,2011) + lu(k,2022) = lu(k,2022) - lu(k,1117) * lu(k,2011) + lu(k,2023) = lu(k,2023) - lu(k,1118) * lu(k,2011) + lu(k,2024) = lu(k,2024) - lu(k,1119) * lu(k,2011) + lu(k,2025) = lu(k,2025) - lu(k,1120) * lu(k,2011) + lu(k,2026) = lu(k,2026) - lu(k,1121) * lu(k,2011) + lu(k,2027) = lu(k,2027) - lu(k,1122) * lu(k,2011) + lu(k,2028) = lu(k,2028) - lu(k,1123) * lu(k,2011) + lu(k,2029) = lu(k,2029) - lu(k,1124) * lu(k,2011) + lu(k,2030) = lu(k,2030) - lu(k,1125) * lu(k,2011) + lu(k,2031) = lu(k,2031) - lu(k,1126) * lu(k,2011) + lu(k,2032) = lu(k,2032) - lu(k,1127) * lu(k,2011) + lu(k,2033) = lu(k,2033) - lu(k,1128) * lu(k,2011) + lu(k,2072) = lu(k,2072) - lu(k,1107) * lu(k,2071) + lu(k,2073) = lu(k,2073) - lu(k,1108) * lu(k,2071) + lu(k,2074) = lu(k,2074) - lu(k,1109) * lu(k,2071) + lu(k,2075) = lu(k,2075) - lu(k,1110) * lu(k,2071) + lu(k,2076) = lu(k,2076) - lu(k,1111) * lu(k,2071) + lu(k,2077) = lu(k,2077) - lu(k,1112) * lu(k,2071) + lu(k,2078) = lu(k,2078) - lu(k,1113) * lu(k,2071) + lu(k,2079) = lu(k,2079) - lu(k,1114) * lu(k,2071) + lu(k,2080) = lu(k,2080) - lu(k,1115) * lu(k,2071) + lu(k,2081) = lu(k,2081) - lu(k,1116) * lu(k,2071) + lu(k,2082) = lu(k,2082) - lu(k,1117) * lu(k,2071) + lu(k,2083) = lu(k,2083) - lu(k,1118) * lu(k,2071) + lu(k,2084) = lu(k,2084) - lu(k,1119) * lu(k,2071) + lu(k,2085) = lu(k,2085) - lu(k,1120) * lu(k,2071) + lu(k,2086) = lu(k,2086) - lu(k,1121) * lu(k,2071) + lu(k,2087) = lu(k,2087) - lu(k,1122) * lu(k,2071) + lu(k,2088) = lu(k,2088) - lu(k,1123) * lu(k,2071) + lu(k,2089) = lu(k,2089) - lu(k,1124) * lu(k,2071) + lu(k,2090) = lu(k,2090) - lu(k,1125) * lu(k,2071) + lu(k,2091) = lu(k,2091) - lu(k,1126) * lu(k,2071) + lu(k,2092) = lu(k,2092) - lu(k,1127) * lu(k,2071) + lu(k,2093) = lu(k,2093) - lu(k,1128) * lu(k,2071) + lu(k,1154) = 1._r8 / lu(k,1154) + lu(k,1155) = lu(k,1155) * lu(k,1154) + lu(k,1156) = lu(k,1156) * lu(k,1154) + lu(k,1157) = lu(k,1157) * lu(k,1154) + lu(k,1158) = lu(k,1158) * lu(k,1154) + lu(k,1159) = lu(k,1159) * lu(k,1154) + lu(k,1160) = lu(k,1160) * lu(k,1154) + lu(k,1161) = lu(k,1161) * lu(k,1154) + lu(k,1162) = lu(k,1162) * lu(k,1154) + lu(k,1163) = lu(k,1163) * lu(k,1154) + lu(k,1164) = lu(k,1164) * lu(k,1154) + lu(k,1165) = lu(k,1165) * lu(k,1154) + lu(k,1166) = lu(k,1166) * lu(k,1154) + lu(k,1167) = lu(k,1167) * lu(k,1154) + lu(k,1168) = lu(k,1168) * lu(k,1154) + lu(k,1169) = lu(k,1169) * lu(k,1154) + lu(k,1170) = lu(k,1170) * lu(k,1154) + lu(k,1171) = lu(k,1171) * lu(k,1154) + lu(k,1172) = lu(k,1172) * lu(k,1154) + lu(k,1173) = lu(k,1173) * lu(k,1154) + lu(k,1174) = lu(k,1174) * lu(k,1154) + lu(k,1175) = lu(k,1175) * lu(k,1154) + lu(k,1198) = lu(k,1198) - lu(k,1155) * lu(k,1197) + lu(k,1199) = lu(k,1199) - lu(k,1156) * lu(k,1197) + lu(k,1200) = lu(k,1200) - lu(k,1157) * lu(k,1197) + lu(k,1201) = lu(k,1201) - lu(k,1158) * lu(k,1197) + lu(k,1202) = lu(k,1202) - lu(k,1159) * lu(k,1197) + lu(k,1203) = lu(k,1203) - lu(k,1160) * lu(k,1197) + lu(k,1204) = lu(k,1204) - lu(k,1161) * lu(k,1197) + lu(k,1205) = lu(k,1205) - lu(k,1162) * lu(k,1197) + lu(k,1206) = lu(k,1206) - lu(k,1163) * lu(k,1197) + lu(k,1207) = lu(k,1207) - lu(k,1164) * lu(k,1197) + lu(k,1208) = lu(k,1208) - lu(k,1165) * lu(k,1197) + lu(k,1209) = lu(k,1209) - lu(k,1166) * lu(k,1197) + lu(k,1210) = lu(k,1210) - lu(k,1167) * lu(k,1197) + lu(k,1211) = lu(k,1211) - lu(k,1168) * lu(k,1197) + lu(k,1212) = lu(k,1212) - lu(k,1169) * lu(k,1197) + lu(k,1213) = lu(k,1213) - lu(k,1170) * lu(k,1197) + lu(k,1214) = lu(k,1214) - lu(k,1171) * lu(k,1197) + lu(k,1215) = lu(k,1215) - lu(k,1172) * lu(k,1197) + lu(k,1216) = lu(k,1216) - lu(k,1173) * lu(k,1197) + lu(k,1217) = lu(k,1217) - lu(k,1174) * lu(k,1197) + lu(k,1218) = lu(k,1218) - lu(k,1175) * lu(k,1197) + lu(k,1239) = lu(k,1239) - lu(k,1155) * lu(k,1238) + lu(k,1240) = lu(k,1240) - lu(k,1156) * lu(k,1238) + lu(k,1241) = lu(k,1241) - lu(k,1157) * lu(k,1238) + lu(k,1242) = lu(k,1242) - lu(k,1158) * lu(k,1238) + lu(k,1243) = lu(k,1243) - lu(k,1159) * lu(k,1238) + lu(k,1244) = lu(k,1244) - lu(k,1160) * lu(k,1238) + lu(k,1245) = lu(k,1245) - lu(k,1161) * lu(k,1238) + lu(k,1246) = lu(k,1246) - lu(k,1162) * lu(k,1238) + lu(k,1247) = lu(k,1247) - lu(k,1163) * lu(k,1238) + lu(k,1248) = lu(k,1248) - lu(k,1164) * lu(k,1238) + lu(k,1249) = lu(k,1249) - lu(k,1165) * lu(k,1238) + lu(k,1250) = lu(k,1250) - lu(k,1166) * lu(k,1238) + lu(k,1251) = lu(k,1251) - lu(k,1167) * lu(k,1238) + lu(k,1252) = lu(k,1252) - lu(k,1168) * lu(k,1238) + lu(k,1253) = lu(k,1253) - lu(k,1169) * lu(k,1238) + lu(k,1254) = lu(k,1254) - lu(k,1170) * lu(k,1238) + lu(k,1255) = lu(k,1255) - lu(k,1171) * lu(k,1238) + lu(k,1256) = lu(k,1256) - lu(k,1172) * lu(k,1238) + lu(k,1257) = lu(k,1257) - lu(k,1173) * lu(k,1238) + lu(k,1258) = lu(k,1258) - lu(k,1174) * lu(k,1238) + lu(k,1259) = lu(k,1259) - lu(k,1175) * lu(k,1238) + lu(k,1282) = lu(k,1282) - lu(k,1155) * lu(k,1281) + lu(k,1283) = lu(k,1283) - lu(k,1156) * lu(k,1281) + lu(k,1284) = lu(k,1284) - lu(k,1157) * lu(k,1281) + lu(k,1285) = lu(k,1285) - lu(k,1158) * lu(k,1281) + lu(k,1286) = lu(k,1286) - lu(k,1159) * lu(k,1281) + lu(k,1287) = lu(k,1287) - lu(k,1160) * lu(k,1281) + lu(k,1288) = lu(k,1288) - lu(k,1161) * lu(k,1281) + lu(k,1289) = lu(k,1289) - lu(k,1162) * lu(k,1281) + lu(k,1290) = lu(k,1290) - lu(k,1163) * lu(k,1281) + lu(k,1291) = lu(k,1291) - lu(k,1164) * lu(k,1281) + lu(k,1292) = lu(k,1292) - lu(k,1165) * lu(k,1281) + lu(k,1293) = lu(k,1293) - lu(k,1166) * lu(k,1281) + lu(k,1294) = lu(k,1294) - lu(k,1167) * lu(k,1281) + lu(k,1295) = lu(k,1295) - lu(k,1168) * lu(k,1281) + lu(k,1296) = lu(k,1296) - lu(k,1169) * lu(k,1281) + lu(k,1297) = lu(k,1297) - lu(k,1170) * lu(k,1281) + lu(k,1298) = lu(k,1298) - lu(k,1171) * lu(k,1281) + lu(k,1299) = lu(k,1299) - lu(k,1172) * lu(k,1281) + lu(k,1300) = lu(k,1300) - lu(k,1173) * lu(k,1281) + lu(k,1301) = lu(k,1301) - lu(k,1174) * lu(k,1281) + lu(k,1302) = lu(k,1302) - lu(k,1175) * lu(k,1281) + lu(k,1324) = lu(k,1324) - lu(k,1155) * lu(k,1323) + lu(k,1325) = lu(k,1325) - lu(k,1156) * lu(k,1323) + lu(k,1326) = lu(k,1326) - lu(k,1157) * lu(k,1323) + lu(k,1327) = lu(k,1327) - lu(k,1158) * lu(k,1323) + lu(k,1328) = lu(k,1328) - lu(k,1159) * lu(k,1323) + lu(k,1329) = lu(k,1329) - lu(k,1160) * lu(k,1323) + lu(k,1330) = lu(k,1330) - lu(k,1161) * lu(k,1323) + lu(k,1331) = lu(k,1331) - lu(k,1162) * lu(k,1323) + lu(k,1332) = lu(k,1332) - lu(k,1163) * lu(k,1323) + lu(k,1333) = lu(k,1333) - lu(k,1164) * lu(k,1323) + lu(k,1334) = lu(k,1334) - lu(k,1165) * lu(k,1323) + lu(k,1335) = lu(k,1335) - lu(k,1166) * lu(k,1323) + lu(k,1336) = lu(k,1336) - lu(k,1167) * lu(k,1323) + lu(k,1337) = lu(k,1337) - lu(k,1168) * lu(k,1323) + lu(k,1338) = lu(k,1338) - lu(k,1169) * lu(k,1323) + lu(k,1339) = lu(k,1339) - lu(k,1170) * lu(k,1323) + lu(k,1340) = lu(k,1340) - lu(k,1171) * lu(k,1323) + lu(k,1341) = lu(k,1341) - lu(k,1172) * lu(k,1323) + lu(k,1342) = lu(k,1342) - lu(k,1173) * lu(k,1323) + lu(k,1343) = lu(k,1343) - lu(k,1174) * lu(k,1323) + lu(k,1344) = lu(k,1344) - lu(k,1175) * lu(k,1323) + lu(k,1384) = lu(k,1384) - lu(k,1155) * lu(k,1383) + lu(k,1385) = lu(k,1385) - lu(k,1156) * lu(k,1383) + lu(k,1386) = lu(k,1386) - lu(k,1157) * lu(k,1383) + lu(k,1387) = lu(k,1387) - lu(k,1158) * lu(k,1383) + lu(k,1388) = lu(k,1388) - lu(k,1159) * lu(k,1383) + lu(k,1389) = lu(k,1389) - lu(k,1160) * lu(k,1383) + lu(k,1390) = lu(k,1390) - lu(k,1161) * lu(k,1383) + lu(k,1391) = lu(k,1391) - lu(k,1162) * lu(k,1383) + lu(k,1392) = lu(k,1392) - lu(k,1163) * lu(k,1383) + lu(k,1393) = lu(k,1393) - lu(k,1164) * lu(k,1383) + lu(k,1394) = lu(k,1394) - lu(k,1165) * lu(k,1383) + lu(k,1395) = lu(k,1395) - lu(k,1166) * lu(k,1383) + lu(k,1396) = lu(k,1396) - lu(k,1167) * lu(k,1383) + lu(k,1397) = lu(k,1397) - lu(k,1168) * lu(k,1383) + lu(k,1398) = lu(k,1398) - lu(k,1169) * lu(k,1383) + lu(k,1399) = lu(k,1399) - lu(k,1170) * lu(k,1383) + lu(k,1400) = lu(k,1400) - lu(k,1171) * lu(k,1383) + lu(k,1401) = lu(k,1401) - lu(k,1172) * lu(k,1383) + lu(k,1402) = lu(k,1402) - lu(k,1173) * lu(k,1383) + lu(k,1403) = lu(k,1403) - lu(k,1174) * lu(k,1383) + lu(k,1404) = lu(k,1404) - lu(k,1175) * lu(k,1383) + lu(k,1427) = lu(k,1427) - lu(k,1155) * lu(k,1426) + lu(k,1428) = lu(k,1428) - lu(k,1156) * lu(k,1426) + lu(k,1429) = lu(k,1429) - lu(k,1157) * lu(k,1426) + lu(k,1430) = lu(k,1430) - lu(k,1158) * lu(k,1426) + lu(k,1431) = lu(k,1431) - lu(k,1159) * lu(k,1426) + lu(k,1432) = lu(k,1432) - lu(k,1160) * lu(k,1426) + lu(k,1433) = lu(k,1433) - lu(k,1161) * lu(k,1426) + lu(k,1434) = lu(k,1434) - lu(k,1162) * lu(k,1426) + lu(k,1435) = lu(k,1435) - lu(k,1163) * lu(k,1426) + lu(k,1436) = lu(k,1436) - lu(k,1164) * lu(k,1426) + lu(k,1437) = lu(k,1437) - lu(k,1165) * lu(k,1426) + lu(k,1438) = lu(k,1438) - lu(k,1166) * lu(k,1426) + lu(k,1439) = lu(k,1439) - lu(k,1167) * lu(k,1426) + lu(k,1440) = lu(k,1440) - lu(k,1168) * lu(k,1426) + lu(k,1441) = lu(k,1441) - lu(k,1169) * lu(k,1426) + lu(k,1442) = lu(k,1442) - lu(k,1170) * lu(k,1426) + lu(k,1443) = lu(k,1443) - lu(k,1171) * lu(k,1426) + lu(k,1444) = lu(k,1444) - lu(k,1172) * lu(k,1426) + lu(k,1445) = lu(k,1445) - lu(k,1173) * lu(k,1426) + lu(k,1446) = lu(k,1446) - lu(k,1174) * lu(k,1426) + lu(k,1447) = lu(k,1447) - lu(k,1175) * lu(k,1426) + lu(k,1475) = lu(k,1475) - lu(k,1155) * lu(k,1474) + lu(k,1476) = lu(k,1476) - lu(k,1156) * lu(k,1474) + lu(k,1477) = lu(k,1477) - lu(k,1157) * lu(k,1474) + lu(k,1478) = lu(k,1478) - lu(k,1158) * lu(k,1474) + lu(k,1479) = lu(k,1479) - lu(k,1159) * lu(k,1474) + lu(k,1480) = lu(k,1480) - lu(k,1160) * lu(k,1474) + lu(k,1481) = lu(k,1481) - lu(k,1161) * lu(k,1474) + lu(k,1482) = lu(k,1482) - lu(k,1162) * lu(k,1474) + lu(k,1483) = lu(k,1483) - lu(k,1163) * lu(k,1474) + lu(k,1484) = lu(k,1484) - lu(k,1164) * lu(k,1474) + lu(k,1485) = lu(k,1485) - lu(k,1165) * lu(k,1474) + lu(k,1486) = lu(k,1486) - lu(k,1166) * lu(k,1474) + lu(k,1487) = lu(k,1487) - lu(k,1167) * lu(k,1474) + lu(k,1488) = lu(k,1488) - lu(k,1168) * lu(k,1474) + lu(k,1489) = lu(k,1489) - lu(k,1169) * lu(k,1474) + lu(k,1490) = lu(k,1490) - lu(k,1170) * lu(k,1474) + lu(k,1491) = lu(k,1491) - lu(k,1171) * lu(k,1474) + lu(k,1492) = lu(k,1492) - lu(k,1172) * lu(k,1474) + lu(k,1493) = lu(k,1493) - lu(k,1173) * lu(k,1474) + lu(k,1494) = lu(k,1494) - lu(k,1174) * lu(k,1474) + lu(k,1495) = lu(k,1495) - lu(k,1175) * lu(k,1474) + lu(k,1516) = lu(k,1516) - lu(k,1155) * lu(k,1515) + lu(k,1517) = lu(k,1517) - lu(k,1156) * lu(k,1515) + lu(k,1518) = lu(k,1518) - lu(k,1157) * lu(k,1515) + lu(k,1519) = lu(k,1519) - lu(k,1158) * lu(k,1515) + lu(k,1520) = lu(k,1520) - lu(k,1159) * lu(k,1515) + lu(k,1521) = lu(k,1521) - lu(k,1160) * lu(k,1515) + lu(k,1522) = lu(k,1522) - lu(k,1161) * lu(k,1515) + lu(k,1523) = lu(k,1523) - lu(k,1162) * lu(k,1515) + lu(k,1524) = lu(k,1524) - lu(k,1163) * lu(k,1515) + lu(k,1525) = lu(k,1525) - lu(k,1164) * lu(k,1515) + lu(k,1526) = lu(k,1526) - lu(k,1165) * lu(k,1515) + lu(k,1527) = lu(k,1527) - lu(k,1166) * lu(k,1515) + lu(k,1528) = lu(k,1528) - lu(k,1167) * lu(k,1515) + lu(k,1529) = lu(k,1529) - lu(k,1168) * lu(k,1515) + lu(k,1530) = lu(k,1530) - lu(k,1169) * lu(k,1515) + lu(k,1531) = lu(k,1531) - lu(k,1170) * lu(k,1515) + lu(k,1532) = lu(k,1532) - lu(k,1171) * lu(k,1515) + lu(k,1533) = lu(k,1533) - lu(k,1172) * lu(k,1515) + lu(k,1534) = lu(k,1534) - lu(k,1173) * lu(k,1515) + lu(k,1535) = lu(k,1535) - lu(k,1174) * lu(k,1515) + lu(k,1536) = lu(k,1536) - lu(k,1175) * lu(k,1515) + lu(k,1552) = lu(k,1552) - lu(k,1155) * lu(k,1551) + lu(k,1553) = lu(k,1553) - lu(k,1156) * lu(k,1551) + lu(k,1554) = lu(k,1554) - lu(k,1157) * lu(k,1551) + lu(k,1555) = lu(k,1555) - lu(k,1158) * lu(k,1551) + lu(k,1556) = lu(k,1556) - lu(k,1159) * lu(k,1551) + lu(k,1557) = lu(k,1557) - lu(k,1160) * lu(k,1551) + lu(k,1558) = lu(k,1558) - lu(k,1161) * lu(k,1551) + lu(k,1559) = lu(k,1559) - lu(k,1162) * lu(k,1551) + lu(k,1560) = lu(k,1560) - lu(k,1163) * lu(k,1551) + lu(k,1561) = lu(k,1561) - lu(k,1164) * lu(k,1551) + lu(k,1562) = lu(k,1562) - lu(k,1165) * lu(k,1551) + lu(k,1563) = lu(k,1563) - lu(k,1166) * lu(k,1551) + lu(k,1564) = lu(k,1564) - lu(k,1167) * lu(k,1551) + lu(k,1565) = lu(k,1565) - lu(k,1168) * lu(k,1551) + lu(k,1566) = lu(k,1566) - lu(k,1169) * lu(k,1551) + lu(k,1567) = lu(k,1567) - lu(k,1170) * lu(k,1551) + lu(k,1568) = lu(k,1568) - lu(k,1171) * lu(k,1551) + lu(k,1569) = lu(k,1569) - lu(k,1172) * lu(k,1551) + lu(k,1570) = lu(k,1570) - lu(k,1173) * lu(k,1551) + lu(k,1571) = lu(k,1571) - lu(k,1174) * lu(k,1551) + lu(k,1572) = lu(k,1572) - lu(k,1175) * lu(k,1551) + lu(k,1597) = lu(k,1597) - lu(k,1155) * lu(k,1596) + lu(k,1598) = lu(k,1598) - lu(k,1156) * lu(k,1596) + lu(k,1599) = lu(k,1599) - lu(k,1157) * lu(k,1596) + lu(k,1600) = lu(k,1600) - lu(k,1158) * lu(k,1596) + lu(k,1601) = lu(k,1601) - lu(k,1159) * lu(k,1596) + lu(k,1602) = lu(k,1602) - lu(k,1160) * lu(k,1596) + lu(k,1603) = lu(k,1603) - lu(k,1161) * lu(k,1596) + lu(k,1604) = lu(k,1604) - lu(k,1162) * lu(k,1596) + lu(k,1605) = lu(k,1605) - lu(k,1163) * lu(k,1596) + lu(k,1606) = lu(k,1606) - lu(k,1164) * lu(k,1596) + lu(k,1607) = lu(k,1607) - lu(k,1165) * lu(k,1596) + lu(k,1608) = lu(k,1608) - lu(k,1166) * lu(k,1596) + lu(k,1609) = lu(k,1609) - lu(k,1167) * lu(k,1596) + lu(k,1610) = lu(k,1610) - lu(k,1168) * lu(k,1596) + lu(k,1611) = lu(k,1611) - lu(k,1169) * lu(k,1596) + lu(k,1612) = lu(k,1612) - lu(k,1170) * lu(k,1596) + lu(k,1613) = lu(k,1613) - lu(k,1171) * lu(k,1596) + lu(k,1614) = lu(k,1614) - lu(k,1172) * lu(k,1596) + lu(k,1615) = lu(k,1615) - lu(k,1173) * lu(k,1596) + lu(k,1616) = lu(k,1616) - lu(k,1174) * lu(k,1596) + lu(k,1617) = lu(k,1617) - lu(k,1175) * lu(k,1596) + lu(k,1640) = lu(k,1640) - lu(k,1155) * lu(k,1639) + lu(k,1641) = lu(k,1641) - lu(k,1156) * lu(k,1639) + lu(k,1642) = lu(k,1642) - lu(k,1157) * lu(k,1639) + lu(k,1643) = lu(k,1643) - lu(k,1158) * lu(k,1639) + lu(k,1644) = lu(k,1644) - lu(k,1159) * lu(k,1639) + lu(k,1645) = lu(k,1645) - lu(k,1160) * lu(k,1639) + lu(k,1646) = lu(k,1646) - lu(k,1161) * lu(k,1639) + lu(k,1647) = lu(k,1647) - lu(k,1162) * lu(k,1639) + lu(k,1648) = lu(k,1648) - lu(k,1163) * lu(k,1639) + lu(k,1649) = lu(k,1649) - lu(k,1164) * lu(k,1639) + lu(k,1650) = lu(k,1650) - lu(k,1165) * lu(k,1639) + lu(k,1651) = lu(k,1651) - lu(k,1166) * lu(k,1639) + lu(k,1652) = lu(k,1652) - lu(k,1167) * lu(k,1639) + lu(k,1653) = lu(k,1653) - lu(k,1168) * lu(k,1639) + lu(k,1654) = lu(k,1654) - lu(k,1169) * lu(k,1639) + lu(k,1655) = lu(k,1655) - lu(k,1170) * lu(k,1639) + lu(k,1656) = lu(k,1656) - lu(k,1171) * lu(k,1639) + lu(k,1657) = lu(k,1657) - lu(k,1172) * lu(k,1639) + lu(k,1658) = lu(k,1658) - lu(k,1173) * lu(k,1639) + lu(k,1659) = lu(k,1659) - lu(k,1174) * lu(k,1639) + lu(k,1660) = lu(k,1660) - lu(k,1175) * lu(k,1639) + lu(k,1682) = lu(k,1682) - lu(k,1155) * lu(k,1681) + lu(k,1683) = lu(k,1683) - lu(k,1156) * lu(k,1681) + lu(k,1684) = lu(k,1684) - lu(k,1157) * lu(k,1681) + lu(k,1685) = lu(k,1685) - lu(k,1158) * lu(k,1681) + lu(k,1686) = lu(k,1686) - lu(k,1159) * lu(k,1681) + lu(k,1687) = lu(k,1687) - lu(k,1160) * lu(k,1681) + lu(k,1688) = lu(k,1688) - lu(k,1161) * lu(k,1681) + lu(k,1689) = lu(k,1689) - lu(k,1162) * lu(k,1681) + lu(k,1690) = lu(k,1690) - lu(k,1163) * lu(k,1681) + lu(k,1691) = lu(k,1691) - lu(k,1164) * lu(k,1681) + lu(k,1692) = lu(k,1692) - lu(k,1165) * lu(k,1681) + lu(k,1693) = lu(k,1693) - lu(k,1166) * lu(k,1681) + lu(k,1694) = lu(k,1694) - lu(k,1167) * lu(k,1681) + lu(k,1695) = lu(k,1695) - lu(k,1168) * lu(k,1681) + lu(k,1696) = lu(k,1696) - lu(k,1169) * lu(k,1681) + lu(k,1697) = lu(k,1697) - lu(k,1170) * lu(k,1681) + lu(k,1698) = lu(k,1698) - lu(k,1171) * lu(k,1681) + lu(k,1699) = lu(k,1699) - lu(k,1172) * lu(k,1681) + lu(k,1700) = lu(k,1700) - lu(k,1173) * lu(k,1681) + lu(k,1701) = lu(k,1701) - lu(k,1174) * lu(k,1681) + lu(k,1702) = lu(k,1702) - lu(k,1175) * lu(k,1681) + lu(k,1722) = lu(k,1722) - lu(k,1155) * lu(k,1721) + lu(k,1723) = lu(k,1723) - lu(k,1156) * lu(k,1721) + lu(k,1724) = lu(k,1724) - lu(k,1157) * lu(k,1721) + lu(k,1725) = lu(k,1725) - lu(k,1158) * lu(k,1721) + lu(k,1726) = lu(k,1726) - lu(k,1159) * lu(k,1721) + lu(k,1727) = lu(k,1727) - lu(k,1160) * lu(k,1721) + lu(k,1728) = lu(k,1728) - lu(k,1161) * lu(k,1721) + lu(k,1729) = lu(k,1729) - lu(k,1162) * lu(k,1721) + lu(k,1730) = lu(k,1730) - lu(k,1163) * lu(k,1721) + lu(k,1731) = lu(k,1731) - lu(k,1164) * lu(k,1721) + lu(k,1732) = lu(k,1732) - lu(k,1165) * lu(k,1721) + lu(k,1733) = lu(k,1733) - lu(k,1166) * lu(k,1721) + lu(k,1734) = lu(k,1734) - lu(k,1167) * lu(k,1721) + lu(k,1735) = lu(k,1735) - lu(k,1168) * lu(k,1721) + lu(k,1736) = lu(k,1736) - lu(k,1169) * lu(k,1721) + lu(k,1737) = lu(k,1737) - lu(k,1170) * lu(k,1721) + lu(k,1738) = lu(k,1738) - lu(k,1171) * lu(k,1721) + lu(k,1739) = lu(k,1739) - lu(k,1172) * lu(k,1721) + lu(k,1740) = lu(k,1740) - lu(k,1173) * lu(k,1721) + lu(k,1741) = lu(k,1741) - lu(k,1174) * lu(k,1721) + lu(k,1742) = lu(k,1742) - lu(k,1175) * lu(k,1721) + lu(k,1758) = lu(k,1758) - lu(k,1155) * lu(k,1757) + lu(k,1759) = lu(k,1759) - lu(k,1156) * lu(k,1757) + lu(k,1760) = lu(k,1760) - lu(k,1157) * lu(k,1757) + lu(k,1761) = lu(k,1761) - lu(k,1158) * lu(k,1757) + lu(k,1762) = lu(k,1762) - lu(k,1159) * lu(k,1757) + lu(k,1763) = lu(k,1763) - lu(k,1160) * lu(k,1757) + lu(k,1764) = lu(k,1764) - lu(k,1161) * lu(k,1757) + lu(k,1765) = lu(k,1765) - lu(k,1162) * lu(k,1757) + lu(k,1766) = lu(k,1766) - lu(k,1163) * lu(k,1757) + lu(k,1767) = lu(k,1767) - lu(k,1164) * lu(k,1757) + lu(k,1768) = lu(k,1768) - lu(k,1165) * lu(k,1757) + lu(k,1769) = lu(k,1769) - lu(k,1166) * lu(k,1757) + lu(k,1770) = lu(k,1770) - lu(k,1167) * lu(k,1757) + lu(k,1771) = lu(k,1771) - lu(k,1168) * lu(k,1757) + lu(k,1772) = lu(k,1772) - lu(k,1169) * lu(k,1757) + lu(k,1773) = lu(k,1773) - lu(k,1170) * lu(k,1757) + lu(k,1774) = lu(k,1774) - lu(k,1171) * lu(k,1757) + lu(k,1775) = lu(k,1775) - lu(k,1172) * lu(k,1757) + lu(k,1776) = lu(k,1776) - lu(k,1173) * lu(k,1757) + lu(k,1777) = lu(k,1777) - lu(k,1174) * lu(k,1757) + lu(k,1778) = lu(k,1778) - lu(k,1175) * lu(k,1757) + lu(k,1806) = lu(k,1806) - lu(k,1155) * lu(k,1805) + lu(k,1807) = lu(k,1807) - lu(k,1156) * lu(k,1805) + lu(k,1808) = lu(k,1808) - lu(k,1157) * lu(k,1805) + lu(k,1809) = lu(k,1809) - lu(k,1158) * lu(k,1805) + lu(k,1810) = lu(k,1810) - lu(k,1159) * lu(k,1805) + lu(k,1811) = lu(k,1811) - lu(k,1160) * lu(k,1805) + lu(k,1812) = lu(k,1812) - lu(k,1161) * lu(k,1805) + lu(k,1813) = lu(k,1813) - lu(k,1162) * lu(k,1805) + lu(k,1814) = lu(k,1814) - lu(k,1163) * lu(k,1805) + lu(k,1815) = lu(k,1815) - lu(k,1164) * lu(k,1805) + lu(k,1816) = lu(k,1816) - lu(k,1165) * lu(k,1805) + lu(k,1817) = lu(k,1817) - lu(k,1166) * lu(k,1805) + lu(k,1818) = lu(k,1818) - lu(k,1167) * lu(k,1805) + lu(k,1819) = lu(k,1819) - lu(k,1168) * lu(k,1805) + lu(k,1820) = lu(k,1820) - lu(k,1169) * lu(k,1805) + lu(k,1821) = lu(k,1821) - lu(k,1170) * lu(k,1805) + lu(k,1822) = lu(k,1822) - lu(k,1171) * lu(k,1805) + lu(k,1823) = lu(k,1823) - lu(k,1172) * lu(k,1805) + lu(k,1824) = lu(k,1824) - lu(k,1173) * lu(k,1805) + lu(k,1825) = lu(k,1825) - lu(k,1174) * lu(k,1805) + lu(k,1826) = lu(k,1826) - lu(k,1175) * lu(k,1805) + lu(k,1839) = lu(k,1839) - lu(k,1155) * lu(k,1838) + lu(k,1840) = lu(k,1840) - lu(k,1156) * lu(k,1838) + lu(k,1841) = lu(k,1841) - lu(k,1157) * lu(k,1838) + lu(k,1842) = lu(k,1842) - lu(k,1158) * lu(k,1838) + lu(k,1843) = lu(k,1843) - lu(k,1159) * lu(k,1838) + lu(k,1844) = lu(k,1844) - lu(k,1160) * lu(k,1838) + lu(k,1845) = lu(k,1845) - lu(k,1161) * lu(k,1838) + lu(k,1846) = lu(k,1846) - lu(k,1162) * lu(k,1838) + lu(k,1847) = lu(k,1847) - lu(k,1163) * lu(k,1838) + lu(k,1848) = lu(k,1848) - lu(k,1164) * lu(k,1838) + lu(k,1849) = lu(k,1849) - lu(k,1165) * lu(k,1838) + lu(k,1850) = lu(k,1850) - lu(k,1166) * lu(k,1838) + lu(k,1851) = lu(k,1851) - lu(k,1167) * lu(k,1838) + lu(k,1852) = lu(k,1852) - lu(k,1168) * lu(k,1838) + lu(k,1853) = lu(k,1853) - lu(k,1169) * lu(k,1838) + lu(k,1854) = lu(k,1854) - lu(k,1170) * lu(k,1838) + lu(k,1855) = lu(k,1855) - lu(k,1171) * lu(k,1838) + lu(k,1856) = lu(k,1856) - lu(k,1172) * lu(k,1838) + lu(k,1857) = lu(k,1857) - lu(k,1173) * lu(k,1838) + lu(k,1858) = lu(k,1858) - lu(k,1174) * lu(k,1838) + lu(k,1859) = lu(k,1859) - lu(k,1175) * lu(k,1838) + lu(k,1875) = lu(k,1875) - lu(k,1155) * lu(k,1874) + lu(k,1876) = lu(k,1876) - lu(k,1156) * lu(k,1874) + lu(k,1877) = lu(k,1877) - lu(k,1157) * lu(k,1874) + lu(k,1878) = lu(k,1878) - lu(k,1158) * lu(k,1874) + lu(k,1879) = lu(k,1879) - lu(k,1159) * lu(k,1874) + lu(k,1880) = lu(k,1880) - lu(k,1160) * lu(k,1874) + lu(k,1881) = lu(k,1881) - lu(k,1161) * lu(k,1874) + lu(k,1882) = lu(k,1882) - lu(k,1162) * lu(k,1874) + lu(k,1883) = lu(k,1883) - lu(k,1163) * lu(k,1874) + lu(k,1884) = lu(k,1884) - lu(k,1164) * lu(k,1874) + lu(k,1885) = lu(k,1885) - lu(k,1165) * lu(k,1874) + lu(k,1886) = lu(k,1886) - lu(k,1166) * lu(k,1874) + lu(k,1887) = lu(k,1887) - lu(k,1167) * lu(k,1874) + lu(k,1888) = lu(k,1888) - lu(k,1168) * lu(k,1874) + lu(k,1889) = lu(k,1889) - lu(k,1169) * lu(k,1874) + lu(k,1890) = lu(k,1890) - lu(k,1170) * lu(k,1874) + lu(k,1891) = lu(k,1891) - lu(k,1171) * lu(k,1874) + lu(k,1892) = lu(k,1892) - lu(k,1172) * lu(k,1874) + lu(k,1893) = lu(k,1893) - lu(k,1173) * lu(k,1874) + lu(k,1894) = lu(k,1894) - lu(k,1174) * lu(k,1874) + lu(k,1895) = lu(k,1895) - lu(k,1175) * lu(k,1874) + lu(k,1924) = lu(k,1924) - lu(k,1155) * lu(k,1923) + lu(k,1925) = lu(k,1925) - lu(k,1156) * lu(k,1923) + lu(k,1926) = lu(k,1926) - lu(k,1157) * lu(k,1923) + lu(k,1927) = lu(k,1927) - lu(k,1158) * lu(k,1923) + lu(k,1928) = lu(k,1928) - lu(k,1159) * lu(k,1923) + lu(k,1929) = lu(k,1929) - lu(k,1160) * lu(k,1923) + lu(k,1930) = lu(k,1930) - lu(k,1161) * lu(k,1923) + lu(k,1931) = lu(k,1931) - lu(k,1162) * lu(k,1923) + lu(k,1932) = lu(k,1932) - lu(k,1163) * lu(k,1923) + lu(k,1933) = lu(k,1933) - lu(k,1164) * lu(k,1923) + lu(k,1934) = lu(k,1934) - lu(k,1165) * lu(k,1923) + lu(k,1935) = lu(k,1935) - lu(k,1166) * lu(k,1923) + lu(k,1936) = lu(k,1936) - lu(k,1167) * lu(k,1923) + lu(k,1937) = lu(k,1937) - lu(k,1168) * lu(k,1923) + lu(k,1938) = lu(k,1938) - lu(k,1169) * lu(k,1923) + lu(k,1939) = lu(k,1939) - lu(k,1170) * lu(k,1923) + lu(k,1940) = lu(k,1940) - lu(k,1171) * lu(k,1923) + lu(k,1941) = lu(k,1941) - lu(k,1172) * lu(k,1923) + lu(k,1942) = lu(k,1942) - lu(k,1173) * lu(k,1923) + lu(k,1943) = lu(k,1943) - lu(k,1174) * lu(k,1923) + lu(k,1944) = lu(k,1944) - lu(k,1175) * lu(k,1923) + lu(k,1968) = lu(k,1968) - lu(k,1155) * lu(k,1967) + lu(k,1969) = lu(k,1969) - lu(k,1156) * lu(k,1967) + lu(k,1970) = lu(k,1970) - lu(k,1157) * lu(k,1967) + lu(k,1971) = lu(k,1971) - lu(k,1158) * lu(k,1967) + lu(k,1972) = lu(k,1972) - lu(k,1159) * lu(k,1967) + lu(k,1973) = lu(k,1973) - lu(k,1160) * lu(k,1967) + lu(k,1974) = lu(k,1974) - lu(k,1161) * lu(k,1967) + lu(k,1975) = lu(k,1975) - lu(k,1162) * lu(k,1967) + lu(k,1976) = lu(k,1976) - lu(k,1163) * lu(k,1967) + lu(k,1977) = lu(k,1977) - lu(k,1164) * lu(k,1967) + lu(k,1978) = lu(k,1978) - lu(k,1165) * lu(k,1967) + lu(k,1979) = lu(k,1979) - lu(k,1166) * lu(k,1967) + lu(k,1980) = lu(k,1980) - lu(k,1167) * lu(k,1967) + lu(k,1981) = lu(k,1981) - lu(k,1168) * lu(k,1967) + lu(k,1982) = lu(k,1982) - lu(k,1169) * lu(k,1967) + lu(k,1983) = lu(k,1983) - lu(k,1170) * lu(k,1967) + lu(k,1984) = lu(k,1984) - lu(k,1171) * lu(k,1967) + lu(k,1985) = lu(k,1985) - lu(k,1172) * lu(k,1967) + lu(k,1986) = lu(k,1986) - lu(k,1173) * lu(k,1967) + lu(k,1987) = lu(k,1987) - lu(k,1174) * lu(k,1967) + lu(k,1988) = lu(k,1988) - lu(k,1175) * lu(k,1967) + lu(k,2013) = lu(k,2013) - lu(k,1155) * lu(k,2012) + lu(k,2014) = lu(k,2014) - lu(k,1156) * lu(k,2012) + lu(k,2015) = lu(k,2015) - lu(k,1157) * lu(k,2012) + lu(k,2016) = lu(k,2016) - lu(k,1158) * lu(k,2012) + lu(k,2017) = lu(k,2017) - lu(k,1159) * lu(k,2012) + lu(k,2018) = lu(k,2018) - lu(k,1160) * lu(k,2012) + lu(k,2019) = lu(k,2019) - lu(k,1161) * lu(k,2012) + lu(k,2020) = lu(k,2020) - lu(k,1162) * lu(k,2012) + lu(k,2021) = lu(k,2021) - lu(k,1163) * lu(k,2012) + lu(k,2022) = lu(k,2022) - lu(k,1164) * lu(k,2012) + lu(k,2023) = lu(k,2023) - lu(k,1165) * lu(k,2012) + lu(k,2024) = lu(k,2024) - lu(k,1166) * lu(k,2012) + lu(k,2025) = lu(k,2025) - lu(k,1167) * lu(k,2012) + lu(k,2026) = lu(k,2026) - lu(k,1168) * lu(k,2012) + lu(k,2027) = lu(k,2027) - lu(k,1169) * lu(k,2012) + lu(k,2028) = lu(k,2028) - lu(k,1170) * lu(k,2012) + lu(k,2029) = lu(k,2029) - lu(k,1171) * lu(k,2012) + lu(k,2030) = lu(k,2030) - lu(k,1172) * lu(k,2012) + lu(k,2031) = lu(k,2031) - lu(k,1173) * lu(k,2012) + lu(k,2032) = lu(k,2032) - lu(k,1174) * lu(k,2012) + lu(k,2033) = lu(k,2033) - lu(k,1175) * lu(k,2012) + lu(k,2073) = lu(k,2073) - lu(k,1155) * lu(k,2072) + lu(k,2074) = lu(k,2074) - lu(k,1156) * lu(k,2072) + lu(k,2075) = lu(k,2075) - lu(k,1157) * lu(k,2072) + lu(k,2076) = lu(k,2076) - lu(k,1158) * lu(k,2072) + lu(k,2077) = lu(k,2077) - lu(k,1159) * lu(k,2072) + lu(k,2078) = lu(k,2078) - lu(k,1160) * lu(k,2072) + lu(k,2079) = lu(k,2079) - lu(k,1161) * lu(k,2072) + lu(k,2080) = lu(k,2080) - lu(k,1162) * lu(k,2072) + lu(k,2081) = lu(k,2081) - lu(k,1163) * lu(k,2072) + lu(k,2082) = lu(k,2082) - lu(k,1164) * lu(k,2072) + lu(k,2083) = lu(k,2083) - lu(k,1165) * lu(k,2072) + lu(k,2084) = lu(k,2084) - lu(k,1166) * lu(k,2072) + lu(k,2085) = lu(k,2085) - lu(k,1167) * lu(k,2072) + lu(k,2086) = lu(k,2086) - lu(k,1168) * lu(k,2072) + lu(k,2087) = lu(k,2087) - lu(k,1169) * lu(k,2072) + lu(k,2088) = lu(k,2088) - lu(k,1170) * lu(k,2072) + lu(k,2089) = lu(k,2089) - lu(k,1171) * lu(k,2072) + lu(k,2090) = lu(k,2090) - lu(k,1172) * lu(k,2072) + lu(k,2091) = lu(k,2091) - lu(k,1173) * lu(k,2072) + lu(k,2092) = lu(k,2092) - lu(k,1174) * lu(k,2072) + lu(k,2093) = lu(k,2093) - lu(k,1175) * lu(k,2072) + lu(k,1198) = 1._r8 / lu(k,1198) + lu(k,1199) = lu(k,1199) * lu(k,1198) + lu(k,1200) = lu(k,1200) * lu(k,1198) + lu(k,1201) = lu(k,1201) * lu(k,1198) + lu(k,1202) = lu(k,1202) * lu(k,1198) + lu(k,1203) = lu(k,1203) * lu(k,1198) + lu(k,1204) = lu(k,1204) * lu(k,1198) + lu(k,1205) = lu(k,1205) * lu(k,1198) + lu(k,1206) = lu(k,1206) * lu(k,1198) + lu(k,1207) = lu(k,1207) * lu(k,1198) + lu(k,1208) = lu(k,1208) * lu(k,1198) + lu(k,1209) = lu(k,1209) * lu(k,1198) + lu(k,1210) = lu(k,1210) * lu(k,1198) + lu(k,1211) = lu(k,1211) * lu(k,1198) + lu(k,1212) = lu(k,1212) * lu(k,1198) + lu(k,1213) = lu(k,1213) * lu(k,1198) + lu(k,1214) = lu(k,1214) * lu(k,1198) + lu(k,1215) = lu(k,1215) * lu(k,1198) + lu(k,1216) = lu(k,1216) * lu(k,1198) + lu(k,1217) = lu(k,1217) * lu(k,1198) + lu(k,1218) = lu(k,1218) * lu(k,1198) + lu(k,1240) = lu(k,1240) - lu(k,1199) * lu(k,1239) + lu(k,1241) = lu(k,1241) - lu(k,1200) * lu(k,1239) + lu(k,1242) = lu(k,1242) - lu(k,1201) * lu(k,1239) + lu(k,1243) = lu(k,1243) - lu(k,1202) * lu(k,1239) + lu(k,1244) = lu(k,1244) - lu(k,1203) * lu(k,1239) + lu(k,1245) = lu(k,1245) - lu(k,1204) * lu(k,1239) + lu(k,1246) = lu(k,1246) - lu(k,1205) * lu(k,1239) + lu(k,1247) = lu(k,1247) - lu(k,1206) * lu(k,1239) + lu(k,1248) = lu(k,1248) - lu(k,1207) * lu(k,1239) + lu(k,1249) = lu(k,1249) - lu(k,1208) * lu(k,1239) + lu(k,1250) = lu(k,1250) - lu(k,1209) * lu(k,1239) + lu(k,1251) = lu(k,1251) - lu(k,1210) * lu(k,1239) + lu(k,1252) = lu(k,1252) - lu(k,1211) * lu(k,1239) + lu(k,1253) = lu(k,1253) - lu(k,1212) * lu(k,1239) + lu(k,1254) = lu(k,1254) - lu(k,1213) * lu(k,1239) + lu(k,1255) = lu(k,1255) - lu(k,1214) * lu(k,1239) + lu(k,1256) = lu(k,1256) - lu(k,1215) * lu(k,1239) + lu(k,1257) = lu(k,1257) - lu(k,1216) * lu(k,1239) + lu(k,1258) = lu(k,1258) - lu(k,1217) * lu(k,1239) + lu(k,1259) = lu(k,1259) - lu(k,1218) * lu(k,1239) + lu(k,1283) = lu(k,1283) - lu(k,1199) * lu(k,1282) + lu(k,1284) = lu(k,1284) - lu(k,1200) * lu(k,1282) + lu(k,1285) = lu(k,1285) - lu(k,1201) * lu(k,1282) + lu(k,1286) = lu(k,1286) - lu(k,1202) * lu(k,1282) + lu(k,1287) = lu(k,1287) - lu(k,1203) * lu(k,1282) + lu(k,1288) = lu(k,1288) - lu(k,1204) * lu(k,1282) + lu(k,1289) = lu(k,1289) - lu(k,1205) * lu(k,1282) + lu(k,1290) = lu(k,1290) - lu(k,1206) * lu(k,1282) + lu(k,1291) = lu(k,1291) - lu(k,1207) * lu(k,1282) + lu(k,1292) = lu(k,1292) - lu(k,1208) * lu(k,1282) + lu(k,1293) = lu(k,1293) - lu(k,1209) * lu(k,1282) + lu(k,1294) = lu(k,1294) - lu(k,1210) * lu(k,1282) + lu(k,1295) = lu(k,1295) - lu(k,1211) * lu(k,1282) + lu(k,1296) = lu(k,1296) - lu(k,1212) * lu(k,1282) + lu(k,1297) = lu(k,1297) - lu(k,1213) * lu(k,1282) + lu(k,1298) = lu(k,1298) - lu(k,1214) * lu(k,1282) + lu(k,1299) = lu(k,1299) - lu(k,1215) * lu(k,1282) + lu(k,1300) = lu(k,1300) - lu(k,1216) * lu(k,1282) + lu(k,1301) = lu(k,1301) - lu(k,1217) * lu(k,1282) + lu(k,1302) = lu(k,1302) - lu(k,1218) * lu(k,1282) + lu(k,1325) = lu(k,1325) - lu(k,1199) * lu(k,1324) + lu(k,1326) = lu(k,1326) - lu(k,1200) * lu(k,1324) + lu(k,1327) = lu(k,1327) - lu(k,1201) * lu(k,1324) + lu(k,1328) = lu(k,1328) - lu(k,1202) * lu(k,1324) + lu(k,1329) = lu(k,1329) - lu(k,1203) * lu(k,1324) + lu(k,1330) = lu(k,1330) - lu(k,1204) * lu(k,1324) + lu(k,1331) = lu(k,1331) - lu(k,1205) * lu(k,1324) + lu(k,1332) = lu(k,1332) - lu(k,1206) * lu(k,1324) + lu(k,1333) = lu(k,1333) - lu(k,1207) * lu(k,1324) + lu(k,1334) = lu(k,1334) - lu(k,1208) * lu(k,1324) + lu(k,1335) = lu(k,1335) - lu(k,1209) * lu(k,1324) + lu(k,1336) = lu(k,1336) - lu(k,1210) * lu(k,1324) + lu(k,1337) = lu(k,1337) - lu(k,1211) * lu(k,1324) + lu(k,1338) = lu(k,1338) - lu(k,1212) * lu(k,1324) + lu(k,1339) = lu(k,1339) - lu(k,1213) * lu(k,1324) + lu(k,1340) = lu(k,1340) - lu(k,1214) * lu(k,1324) + lu(k,1341) = lu(k,1341) - lu(k,1215) * lu(k,1324) + lu(k,1342) = lu(k,1342) - lu(k,1216) * lu(k,1324) + lu(k,1343) = lu(k,1343) - lu(k,1217) * lu(k,1324) + lu(k,1344) = lu(k,1344) - lu(k,1218) * lu(k,1324) + lu(k,1385) = lu(k,1385) - lu(k,1199) * lu(k,1384) + lu(k,1386) = lu(k,1386) - lu(k,1200) * lu(k,1384) + lu(k,1387) = lu(k,1387) - lu(k,1201) * lu(k,1384) + lu(k,1388) = lu(k,1388) - lu(k,1202) * lu(k,1384) + lu(k,1389) = lu(k,1389) - lu(k,1203) * lu(k,1384) + lu(k,1390) = lu(k,1390) - lu(k,1204) * lu(k,1384) + lu(k,1391) = lu(k,1391) - lu(k,1205) * lu(k,1384) + lu(k,1392) = lu(k,1392) - lu(k,1206) * lu(k,1384) + lu(k,1393) = lu(k,1393) - lu(k,1207) * lu(k,1384) + lu(k,1394) = lu(k,1394) - lu(k,1208) * lu(k,1384) + lu(k,1395) = lu(k,1395) - lu(k,1209) * lu(k,1384) + lu(k,1396) = lu(k,1396) - lu(k,1210) * lu(k,1384) + lu(k,1397) = lu(k,1397) - lu(k,1211) * lu(k,1384) + lu(k,1398) = lu(k,1398) - lu(k,1212) * lu(k,1384) + lu(k,1399) = lu(k,1399) - lu(k,1213) * lu(k,1384) + lu(k,1400) = lu(k,1400) - lu(k,1214) * lu(k,1384) + lu(k,1401) = lu(k,1401) - lu(k,1215) * lu(k,1384) + lu(k,1402) = lu(k,1402) - lu(k,1216) * lu(k,1384) + lu(k,1403) = lu(k,1403) - lu(k,1217) * lu(k,1384) + lu(k,1404) = lu(k,1404) - lu(k,1218) * lu(k,1384) + lu(k,1428) = lu(k,1428) - lu(k,1199) * lu(k,1427) + lu(k,1429) = lu(k,1429) - lu(k,1200) * lu(k,1427) + lu(k,1430) = lu(k,1430) - lu(k,1201) * lu(k,1427) + lu(k,1431) = lu(k,1431) - lu(k,1202) * lu(k,1427) + lu(k,1432) = lu(k,1432) - lu(k,1203) * lu(k,1427) + lu(k,1433) = lu(k,1433) - lu(k,1204) * lu(k,1427) + lu(k,1434) = lu(k,1434) - lu(k,1205) * lu(k,1427) + lu(k,1435) = lu(k,1435) - lu(k,1206) * lu(k,1427) + lu(k,1436) = lu(k,1436) - lu(k,1207) * lu(k,1427) + lu(k,1437) = lu(k,1437) - lu(k,1208) * lu(k,1427) + lu(k,1438) = lu(k,1438) - lu(k,1209) * lu(k,1427) + lu(k,1439) = lu(k,1439) - lu(k,1210) * lu(k,1427) + lu(k,1440) = lu(k,1440) - lu(k,1211) * lu(k,1427) + lu(k,1441) = lu(k,1441) - lu(k,1212) * lu(k,1427) + lu(k,1442) = lu(k,1442) - lu(k,1213) * lu(k,1427) + lu(k,1443) = lu(k,1443) - lu(k,1214) * lu(k,1427) + lu(k,1444) = lu(k,1444) - lu(k,1215) * lu(k,1427) + lu(k,1445) = lu(k,1445) - lu(k,1216) * lu(k,1427) + lu(k,1446) = lu(k,1446) - lu(k,1217) * lu(k,1427) + lu(k,1447) = lu(k,1447) - lu(k,1218) * lu(k,1427) + lu(k,1476) = lu(k,1476) - lu(k,1199) * lu(k,1475) + lu(k,1477) = lu(k,1477) - lu(k,1200) * lu(k,1475) + lu(k,1478) = lu(k,1478) - lu(k,1201) * lu(k,1475) + lu(k,1479) = lu(k,1479) - lu(k,1202) * lu(k,1475) + lu(k,1480) = lu(k,1480) - lu(k,1203) * lu(k,1475) + lu(k,1481) = lu(k,1481) - lu(k,1204) * lu(k,1475) + lu(k,1482) = lu(k,1482) - lu(k,1205) * lu(k,1475) + lu(k,1483) = lu(k,1483) - lu(k,1206) * lu(k,1475) + lu(k,1484) = lu(k,1484) - lu(k,1207) * lu(k,1475) + lu(k,1485) = lu(k,1485) - lu(k,1208) * lu(k,1475) + lu(k,1486) = lu(k,1486) - lu(k,1209) * lu(k,1475) + lu(k,1487) = lu(k,1487) - lu(k,1210) * lu(k,1475) + lu(k,1488) = lu(k,1488) - lu(k,1211) * lu(k,1475) + lu(k,1489) = lu(k,1489) - lu(k,1212) * lu(k,1475) + lu(k,1490) = lu(k,1490) - lu(k,1213) * lu(k,1475) + lu(k,1491) = lu(k,1491) - lu(k,1214) * lu(k,1475) + lu(k,1492) = lu(k,1492) - lu(k,1215) * lu(k,1475) + lu(k,1493) = lu(k,1493) - lu(k,1216) * lu(k,1475) + lu(k,1494) = lu(k,1494) - lu(k,1217) * lu(k,1475) + lu(k,1495) = lu(k,1495) - lu(k,1218) * lu(k,1475) + lu(k,1517) = lu(k,1517) - lu(k,1199) * lu(k,1516) + lu(k,1518) = lu(k,1518) - lu(k,1200) * lu(k,1516) + lu(k,1519) = lu(k,1519) - lu(k,1201) * lu(k,1516) + lu(k,1520) = lu(k,1520) - lu(k,1202) * lu(k,1516) + lu(k,1521) = lu(k,1521) - lu(k,1203) * lu(k,1516) + lu(k,1522) = lu(k,1522) - lu(k,1204) * lu(k,1516) + lu(k,1523) = lu(k,1523) - lu(k,1205) * lu(k,1516) + lu(k,1524) = lu(k,1524) - lu(k,1206) * lu(k,1516) + lu(k,1525) = lu(k,1525) - lu(k,1207) * lu(k,1516) + lu(k,1526) = lu(k,1526) - lu(k,1208) * lu(k,1516) + lu(k,1527) = lu(k,1527) - lu(k,1209) * lu(k,1516) + lu(k,1528) = lu(k,1528) - lu(k,1210) * lu(k,1516) + lu(k,1529) = lu(k,1529) - lu(k,1211) * lu(k,1516) + lu(k,1530) = lu(k,1530) - lu(k,1212) * lu(k,1516) + lu(k,1531) = lu(k,1531) - lu(k,1213) * lu(k,1516) + lu(k,1532) = lu(k,1532) - lu(k,1214) * lu(k,1516) + lu(k,1533) = lu(k,1533) - lu(k,1215) * lu(k,1516) + lu(k,1534) = lu(k,1534) - lu(k,1216) * lu(k,1516) + lu(k,1535) = lu(k,1535) - lu(k,1217) * lu(k,1516) + lu(k,1536) = lu(k,1536) - lu(k,1218) * lu(k,1516) + lu(k,1553) = lu(k,1553) - lu(k,1199) * lu(k,1552) + lu(k,1554) = lu(k,1554) - lu(k,1200) * lu(k,1552) + lu(k,1555) = lu(k,1555) - lu(k,1201) * lu(k,1552) + lu(k,1556) = lu(k,1556) - lu(k,1202) * lu(k,1552) + lu(k,1557) = lu(k,1557) - lu(k,1203) * lu(k,1552) + lu(k,1558) = lu(k,1558) - lu(k,1204) * lu(k,1552) + lu(k,1559) = lu(k,1559) - lu(k,1205) * lu(k,1552) + lu(k,1560) = lu(k,1560) - lu(k,1206) * lu(k,1552) + lu(k,1561) = lu(k,1561) - lu(k,1207) * lu(k,1552) + lu(k,1562) = lu(k,1562) - lu(k,1208) * lu(k,1552) + lu(k,1563) = lu(k,1563) - lu(k,1209) * lu(k,1552) + lu(k,1564) = lu(k,1564) - lu(k,1210) * lu(k,1552) + lu(k,1565) = lu(k,1565) - lu(k,1211) * lu(k,1552) + lu(k,1566) = lu(k,1566) - lu(k,1212) * lu(k,1552) + lu(k,1567) = lu(k,1567) - lu(k,1213) * lu(k,1552) + lu(k,1568) = lu(k,1568) - lu(k,1214) * lu(k,1552) + lu(k,1569) = lu(k,1569) - lu(k,1215) * lu(k,1552) + lu(k,1570) = lu(k,1570) - lu(k,1216) * lu(k,1552) + lu(k,1571) = lu(k,1571) - lu(k,1217) * lu(k,1552) + lu(k,1572) = lu(k,1572) - lu(k,1218) * lu(k,1552) + lu(k,1598) = lu(k,1598) - lu(k,1199) * lu(k,1597) + lu(k,1599) = lu(k,1599) - lu(k,1200) * lu(k,1597) + lu(k,1600) = lu(k,1600) - lu(k,1201) * lu(k,1597) + lu(k,1601) = lu(k,1601) - lu(k,1202) * lu(k,1597) + lu(k,1602) = lu(k,1602) - lu(k,1203) * lu(k,1597) + lu(k,1603) = lu(k,1603) - lu(k,1204) * lu(k,1597) + lu(k,1604) = lu(k,1604) - lu(k,1205) * lu(k,1597) + lu(k,1605) = lu(k,1605) - lu(k,1206) * lu(k,1597) + lu(k,1606) = lu(k,1606) - lu(k,1207) * lu(k,1597) + lu(k,1607) = lu(k,1607) - lu(k,1208) * lu(k,1597) + lu(k,1608) = lu(k,1608) - lu(k,1209) * lu(k,1597) + lu(k,1609) = lu(k,1609) - lu(k,1210) * lu(k,1597) + lu(k,1610) = lu(k,1610) - lu(k,1211) * lu(k,1597) + lu(k,1611) = lu(k,1611) - lu(k,1212) * lu(k,1597) + lu(k,1612) = lu(k,1612) - lu(k,1213) * lu(k,1597) + lu(k,1613) = lu(k,1613) - lu(k,1214) * lu(k,1597) + lu(k,1614) = lu(k,1614) - lu(k,1215) * lu(k,1597) + lu(k,1615) = lu(k,1615) - lu(k,1216) * lu(k,1597) + lu(k,1616) = lu(k,1616) - lu(k,1217) * lu(k,1597) + lu(k,1617) = lu(k,1617) - lu(k,1218) * lu(k,1597) + lu(k,1641) = lu(k,1641) - lu(k,1199) * lu(k,1640) + lu(k,1642) = lu(k,1642) - lu(k,1200) * lu(k,1640) + lu(k,1643) = lu(k,1643) - lu(k,1201) * lu(k,1640) + lu(k,1644) = lu(k,1644) - lu(k,1202) * lu(k,1640) + lu(k,1645) = lu(k,1645) - lu(k,1203) * lu(k,1640) + lu(k,1646) = lu(k,1646) - lu(k,1204) * lu(k,1640) + lu(k,1647) = lu(k,1647) - lu(k,1205) * lu(k,1640) + lu(k,1648) = lu(k,1648) - lu(k,1206) * lu(k,1640) + lu(k,1649) = lu(k,1649) - lu(k,1207) * lu(k,1640) + lu(k,1650) = lu(k,1650) - lu(k,1208) * lu(k,1640) + lu(k,1651) = lu(k,1651) - lu(k,1209) * lu(k,1640) + lu(k,1652) = lu(k,1652) - lu(k,1210) * lu(k,1640) + lu(k,1653) = lu(k,1653) - lu(k,1211) * lu(k,1640) + lu(k,1654) = lu(k,1654) - lu(k,1212) * lu(k,1640) + lu(k,1655) = lu(k,1655) - lu(k,1213) * lu(k,1640) + lu(k,1656) = lu(k,1656) - lu(k,1214) * lu(k,1640) + lu(k,1657) = lu(k,1657) - lu(k,1215) * lu(k,1640) + lu(k,1658) = lu(k,1658) - lu(k,1216) * lu(k,1640) + lu(k,1659) = lu(k,1659) - lu(k,1217) * lu(k,1640) + lu(k,1660) = lu(k,1660) - lu(k,1218) * lu(k,1640) + lu(k,1683) = lu(k,1683) - lu(k,1199) * lu(k,1682) + lu(k,1684) = lu(k,1684) - lu(k,1200) * lu(k,1682) + lu(k,1685) = lu(k,1685) - lu(k,1201) * lu(k,1682) + lu(k,1686) = lu(k,1686) - lu(k,1202) * lu(k,1682) + lu(k,1687) = lu(k,1687) - lu(k,1203) * lu(k,1682) + lu(k,1688) = lu(k,1688) - lu(k,1204) * lu(k,1682) + lu(k,1689) = lu(k,1689) - lu(k,1205) * lu(k,1682) + lu(k,1690) = lu(k,1690) - lu(k,1206) * lu(k,1682) + lu(k,1691) = lu(k,1691) - lu(k,1207) * lu(k,1682) + lu(k,1692) = lu(k,1692) - lu(k,1208) * lu(k,1682) + lu(k,1693) = lu(k,1693) - lu(k,1209) * lu(k,1682) + lu(k,1694) = lu(k,1694) - lu(k,1210) * lu(k,1682) + lu(k,1695) = lu(k,1695) - lu(k,1211) * lu(k,1682) + lu(k,1696) = lu(k,1696) - lu(k,1212) * lu(k,1682) + lu(k,1697) = lu(k,1697) - lu(k,1213) * lu(k,1682) + lu(k,1698) = lu(k,1698) - lu(k,1214) * lu(k,1682) + lu(k,1699) = lu(k,1699) - lu(k,1215) * lu(k,1682) + lu(k,1700) = lu(k,1700) - lu(k,1216) * lu(k,1682) + lu(k,1701) = lu(k,1701) - lu(k,1217) * lu(k,1682) + lu(k,1702) = lu(k,1702) - lu(k,1218) * lu(k,1682) + lu(k,1723) = lu(k,1723) - lu(k,1199) * lu(k,1722) + lu(k,1724) = lu(k,1724) - lu(k,1200) * lu(k,1722) + lu(k,1725) = lu(k,1725) - lu(k,1201) * lu(k,1722) + lu(k,1726) = lu(k,1726) - lu(k,1202) * lu(k,1722) + lu(k,1727) = lu(k,1727) - lu(k,1203) * lu(k,1722) + lu(k,1728) = lu(k,1728) - lu(k,1204) * lu(k,1722) + lu(k,1729) = lu(k,1729) - lu(k,1205) * lu(k,1722) + lu(k,1730) = lu(k,1730) - lu(k,1206) * lu(k,1722) + lu(k,1731) = lu(k,1731) - lu(k,1207) * lu(k,1722) + lu(k,1732) = lu(k,1732) - lu(k,1208) * lu(k,1722) + lu(k,1733) = lu(k,1733) - lu(k,1209) * lu(k,1722) + lu(k,1734) = lu(k,1734) - lu(k,1210) * lu(k,1722) + lu(k,1735) = lu(k,1735) - lu(k,1211) * lu(k,1722) + lu(k,1736) = lu(k,1736) - lu(k,1212) * lu(k,1722) + lu(k,1737) = lu(k,1737) - lu(k,1213) * lu(k,1722) + lu(k,1738) = lu(k,1738) - lu(k,1214) * lu(k,1722) + lu(k,1739) = lu(k,1739) - lu(k,1215) * lu(k,1722) + lu(k,1740) = lu(k,1740) - lu(k,1216) * lu(k,1722) + lu(k,1741) = lu(k,1741) - lu(k,1217) * lu(k,1722) + lu(k,1742) = lu(k,1742) - lu(k,1218) * lu(k,1722) + lu(k,1759) = lu(k,1759) - lu(k,1199) * lu(k,1758) + lu(k,1760) = lu(k,1760) - lu(k,1200) * lu(k,1758) + lu(k,1761) = lu(k,1761) - lu(k,1201) * lu(k,1758) + lu(k,1762) = lu(k,1762) - lu(k,1202) * lu(k,1758) + lu(k,1763) = lu(k,1763) - lu(k,1203) * lu(k,1758) + lu(k,1764) = lu(k,1764) - lu(k,1204) * lu(k,1758) + lu(k,1765) = lu(k,1765) - lu(k,1205) * lu(k,1758) + lu(k,1766) = lu(k,1766) - lu(k,1206) * lu(k,1758) + lu(k,1767) = lu(k,1767) - lu(k,1207) * lu(k,1758) + lu(k,1768) = lu(k,1768) - lu(k,1208) * lu(k,1758) + lu(k,1769) = lu(k,1769) - lu(k,1209) * lu(k,1758) + lu(k,1770) = lu(k,1770) - lu(k,1210) * lu(k,1758) + lu(k,1771) = lu(k,1771) - lu(k,1211) * lu(k,1758) + lu(k,1772) = lu(k,1772) - lu(k,1212) * lu(k,1758) + lu(k,1773) = lu(k,1773) - lu(k,1213) * lu(k,1758) + lu(k,1774) = lu(k,1774) - lu(k,1214) * lu(k,1758) + lu(k,1775) = lu(k,1775) - lu(k,1215) * lu(k,1758) + lu(k,1776) = lu(k,1776) - lu(k,1216) * lu(k,1758) + lu(k,1777) = lu(k,1777) - lu(k,1217) * lu(k,1758) + lu(k,1778) = lu(k,1778) - lu(k,1218) * lu(k,1758) + lu(k,1807) = lu(k,1807) - lu(k,1199) * lu(k,1806) + lu(k,1808) = lu(k,1808) - lu(k,1200) * lu(k,1806) + lu(k,1809) = lu(k,1809) - lu(k,1201) * lu(k,1806) + lu(k,1810) = lu(k,1810) - lu(k,1202) * lu(k,1806) + lu(k,1811) = lu(k,1811) - lu(k,1203) * lu(k,1806) + lu(k,1812) = lu(k,1812) - lu(k,1204) * lu(k,1806) + lu(k,1813) = lu(k,1813) - lu(k,1205) * lu(k,1806) + lu(k,1814) = lu(k,1814) - lu(k,1206) * lu(k,1806) + lu(k,1815) = lu(k,1815) - lu(k,1207) * lu(k,1806) + lu(k,1816) = lu(k,1816) - lu(k,1208) * lu(k,1806) + lu(k,1817) = lu(k,1817) - lu(k,1209) * lu(k,1806) + lu(k,1818) = lu(k,1818) - lu(k,1210) * lu(k,1806) + lu(k,1819) = lu(k,1819) - lu(k,1211) * lu(k,1806) + lu(k,1820) = lu(k,1820) - lu(k,1212) * lu(k,1806) + lu(k,1821) = lu(k,1821) - lu(k,1213) * lu(k,1806) + lu(k,1822) = lu(k,1822) - lu(k,1214) * lu(k,1806) + lu(k,1823) = lu(k,1823) - lu(k,1215) * lu(k,1806) + lu(k,1824) = lu(k,1824) - lu(k,1216) * lu(k,1806) + lu(k,1825) = lu(k,1825) - lu(k,1217) * lu(k,1806) + lu(k,1826) = lu(k,1826) - lu(k,1218) * lu(k,1806) + lu(k,1840) = lu(k,1840) - lu(k,1199) * lu(k,1839) + lu(k,1841) = lu(k,1841) - lu(k,1200) * lu(k,1839) + lu(k,1842) = lu(k,1842) - lu(k,1201) * lu(k,1839) + lu(k,1843) = lu(k,1843) - lu(k,1202) * lu(k,1839) + lu(k,1844) = lu(k,1844) - lu(k,1203) * lu(k,1839) + lu(k,1845) = lu(k,1845) - lu(k,1204) * lu(k,1839) + lu(k,1846) = lu(k,1846) - lu(k,1205) * lu(k,1839) + lu(k,1847) = lu(k,1847) - lu(k,1206) * lu(k,1839) + lu(k,1848) = lu(k,1848) - lu(k,1207) * lu(k,1839) + lu(k,1849) = lu(k,1849) - lu(k,1208) * lu(k,1839) + lu(k,1850) = lu(k,1850) - lu(k,1209) * lu(k,1839) + lu(k,1851) = lu(k,1851) - lu(k,1210) * lu(k,1839) + lu(k,1852) = lu(k,1852) - lu(k,1211) * lu(k,1839) + lu(k,1853) = lu(k,1853) - lu(k,1212) * lu(k,1839) + lu(k,1854) = lu(k,1854) - lu(k,1213) * lu(k,1839) + lu(k,1855) = lu(k,1855) - lu(k,1214) * lu(k,1839) + lu(k,1856) = lu(k,1856) - lu(k,1215) * lu(k,1839) + lu(k,1857) = lu(k,1857) - lu(k,1216) * lu(k,1839) + lu(k,1858) = lu(k,1858) - lu(k,1217) * lu(k,1839) + lu(k,1859) = lu(k,1859) - lu(k,1218) * lu(k,1839) + lu(k,1876) = lu(k,1876) - lu(k,1199) * lu(k,1875) + lu(k,1877) = lu(k,1877) - lu(k,1200) * lu(k,1875) + lu(k,1878) = lu(k,1878) - lu(k,1201) * lu(k,1875) + lu(k,1879) = lu(k,1879) - lu(k,1202) * lu(k,1875) + lu(k,1880) = lu(k,1880) - lu(k,1203) * lu(k,1875) + lu(k,1881) = lu(k,1881) - lu(k,1204) * lu(k,1875) + lu(k,1882) = lu(k,1882) - lu(k,1205) * lu(k,1875) + lu(k,1883) = lu(k,1883) - lu(k,1206) * lu(k,1875) + lu(k,1884) = lu(k,1884) - lu(k,1207) * lu(k,1875) + lu(k,1885) = lu(k,1885) - lu(k,1208) * lu(k,1875) + lu(k,1886) = lu(k,1886) - lu(k,1209) * lu(k,1875) + lu(k,1887) = lu(k,1887) - lu(k,1210) * lu(k,1875) + lu(k,1888) = lu(k,1888) - lu(k,1211) * lu(k,1875) + lu(k,1889) = lu(k,1889) - lu(k,1212) * lu(k,1875) + lu(k,1890) = lu(k,1890) - lu(k,1213) * lu(k,1875) + lu(k,1891) = lu(k,1891) - lu(k,1214) * lu(k,1875) + lu(k,1892) = lu(k,1892) - lu(k,1215) * lu(k,1875) + lu(k,1893) = lu(k,1893) - lu(k,1216) * lu(k,1875) + lu(k,1894) = lu(k,1894) - lu(k,1217) * lu(k,1875) + lu(k,1895) = lu(k,1895) - lu(k,1218) * lu(k,1875) + lu(k,1925) = lu(k,1925) - lu(k,1199) * lu(k,1924) + lu(k,1926) = lu(k,1926) - lu(k,1200) * lu(k,1924) + lu(k,1927) = lu(k,1927) - lu(k,1201) * lu(k,1924) + lu(k,1928) = lu(k,1928) - lu(k,1202) * lu(k,1924) + lu(k,1929) = lu(k,1929) - lu(k,1203) * lu(k,1924) + lu(k,1930) = lu(k,1930) - lu(k,1204) * lu(k,1924) + lu(k,1931) = lu(k,1931) - lu(k,1205) * lu(k,1924) + lu(k,1932) = lu(k,1932) - lu(k,1206) * lu(k,1924) + lu(k,1933) = lu(k,1933) - lu(k,1207) * lu(k,1924) + lu(k,1934) = lu(k,1934) - lu(k,1208) * lu(k,1924) + lu(k,1935) = lu(k,1935) - lu(k,1209) * lu(k,1924) + lu(k,1936) = lu(k,1936) - lu(k,1210) * lu(k,1924) + lu(k,1937) = lu(k,1937) - lu(k,1211) * lu(k,1924) + lu(k,1938) = lu(k,1938) - lu(k,1212) * lu(k,1924) + lu(k,1939) = lu(k,1939) - lu(k,1213) * lu(k,1924) + lu(k,1940) = lu(k,1940) - lu(k,1214) * lu(k,1924) + lu(k,1941) = lu(k,1941) - lu(k,1215) * lu(k,1924) + lu(k,1942) = lu(k,1942) - lu(k,1216) * lu(k,1924) + lu(k,1943) = lu(k,1943) - lu(k,1217) * lu(k,1924) + lu(k,1944) = lu(k,1944) - lu(k,1218) * lu(k,1924) + lu(k,1969) = lu(k,1969) - lu(k,1199) * lu(k,1968) + lu(k,1970) = lu(k,1970) - lu(k,1200) * lu(k,1968) + lu(k,1971) = lu(k,1971) - lu(k,1201) * lu(k,1968) + lu(k,1972) = lu(k,1972) - lu(k,1202) * lu(k,1968) + lu(k,1973) = lu(k,1973) - lu(k,1203) * lu(k,1968) + lu(k,1974) = lu(k,1974) - lu(k,1204) * lu(k,1968) + lu(k,1975) = lu(k,1975) - lu(k,1205) * lu(k,1968) + lu(k,1976) = lu(k,1976) - lu(k,1206) * lu(k,1968) + lu(k,1977) = lu(k,1977) - lu(k,1207) * lu(k,1968) + lu(k,1978) = lu(k,1978) - lu(k,1208) * lu(k,1968) + lu(k,1979) = lu(k,1979) - lu(k,1209) * lu(k,1968) + lu(k,1980) = lu(k,1980) - lu(k,1210) * lu(k,1968) + lu(k,1981) = lu(k,1981) - lu(k,1211) * lu(k,1968) + lu(k,1982) = lu(k,1982) - lu(k,1212) * lu(k,1968) + lu(k,1983) = lu(k,1983) - lu(k,1213) * lu(k,1968) + lu(k,1984) = lu(k,1984) - lu(k,1214) * lu(k,1968) + lu(k,1985) = lu(k,1985) - lu(k,1215) * lu(k,1968) + lu(k,1986) = lu(k,1986) - lu(k,1216) * lu(k,1968) + lu(k,1987) = lu(k,1987) - lu(k,1217) * lu(k,1968) + lu(k,1988) = lu(k,1988) - lu(k,1218) * lu(k,1968) + lu(k,2014) = lu(k,2014) - lu(k,1199) * lu(k,2013) + lu(k,2015) = lu(k,2015) - lu(k,1200) * lu(k,2013) + lu(k,2016) = lu(k,2016) - lu(k,1201) * lu(k,2013) + lu(k,2017) = lu(k,2017) - lu(k,1202) * lu(k,2013) + lu(k,2018) = lu(k,2018) - lu(k,1203) * lu(k,2013) + lu(k,2019) = lu(k,2019) - lu(k,1204) * lu(k,2013) + lu(k,2020) = lu(k,2020) - lu(k,1205) * lu(k,2013) + lu(k,2021) = lu(k,2021) - lu(k,1206) * lu(k,2013) + lu(k,2022) = lu(k,2022) - lu(k,1207) * lu(k,2013) + lu(k,2023) = lu(k,2023) - lu(k,1208) * lu(k,2013) + lu(k,2024) = lu(k,2024) - lu(k,1209) * lu(k,2013) + lu(k,2025) = lu(k,2025) - lu(k,1210) * lu(k,2013) + lu(k,2026) = lu(k,2026) - lu(k,1211) * lu(k,2013) + lu(k,2027) = lu(k,2027) - lu(k,1212) * lu(k,2013) + lu(k,2028) = lu(k,2028) - lu(k,1213) * lu(k,2013) + lu(k,2029) = lu(k,2029) - lu(k,1214) * lu(k,2013) + lu(k,2030) = lu(k,2030) - lu(k,1215) * lu(k,2013) + lu(k,2031) = lu(k,2031) - lu(k,1216) * lu(k,2013) + lu(k,2032) = lu(k,2032) - lu(k,1217) * lu(k,2013) + lu(k,2033) = lu(k,2033) - lu(k,1218) * lu(k,2013) + lu(k,2074) = lu(k,2074) - lu(k,1199) * lu(k,2073) + lu(k,2075) = lu(k,2075) - lu(k,1200) * lu(k,2073) + lu(k,2076) = lu(k,2076) - lu(k,1201) * lu(k,2073) + lu(k,2077) = lu(k,2077) - lu(k,1202) * lu(k,2073) + lu(k,2078) = lu(k,2078) - lu(k,1203) * lu(k,2073) + lu(k,2079) = lu(k,2079) - lu(k,1204) * lu(k,2073) + lu(k,2080) = lu(k,2080) - lu(k,1205) * lu(k,2073) + lu(k,2081) = lu(k,2081) - lu(k,1206) * lu(k,2073) + lu(k,2082) = lu(k,2082) - lu(k,1207) * lu(k,2073) + lu(k,2083) = lu(k,2083) - lu(k,1208) * lu(k,2073) + lu(k,2084) = lu(k,2084) - lu(k,1209) * lu(k,2073) + lu(k,2085) = lu(k,2085) - lu(k,1210) * lu(k,2073) + lu(k,2086) = lu(k,2086) - lu(k,1211) * lu(k,2073) + lu(k,2087) = lu(k,2087) - lu(k,1212) * lu(k,2073) + lu(k,2088) = lu(k,2088) - lu(k,1213) * lu(k,2073) + lu(k,2089) = lu(k,2089) - lu(k,1214) * lu(k,2073) + lu(k,2090) = lu(k,2090) - lu(k,1215) * lu(k,2073) + lu(k,2091) = lu(k,2091) - lu(k,1216) * lu(k,2073) + lu(k,2092) = lu(k,2092) - lu(k,1217) * lu(k,2073) + lu(k,2093) = lu(k,2093) - lu(k,1218) * lu(k,2073) end do - end subroutine lu_fac22 - subroutine lu_fac23( avec_len, lu ) + end subroutine lu_fac23 + subroutine lu_fac24( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -11495,387 +11535,387 @@ subroutine lu_fac23( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1241) = 1._r8 / lu(k,1241) - lu(k,1242) = lu(k,1242) * lu(k,1241) - lu(k,1243) = lu(k,1243) * lu(k,1241) - lu(k,1244) = lu(k,1244) * lu(k,1241) - lu(k,1245) = lu(k,1245) * lu(k,1241) - lu(k,1246) = lu(k,1246) * lu(k,1241) - lu(k,1247) = lu(k,1247) * lu(k,1241) - lu(k,1248) = lu(k,1248) * lu(k,1241) - lu(k,1249) = lu(k,1249) * lu(k,1241) - lu(k,1250) = lu(k,1250) * lu(k,1241) - lu(k,1251) = lu(k,1251) * lu(k,1241) - lu(k,1252) = lu(k,1252) * lu(k,1241) - lu(k,1253) = lu(k,1253) * lu(k,1241) - lu(k,1254) = lu(k,1254) * lu(k,1241) - lu(k,1255) = lu(k,1255) * lu(k,1241) - lu(k,1256) = lu(k,1256) * lu(k,1241) - lu(k,1257) = lu(k,1257) * lu(k,1241) - lu(k,1258) = lu(k,1258) * lu(k,1241) - lu(k,1259) = lu(k,1259) * lu(k,1241) - lu(k,1260) = lu(k,1260) * lu(k,1241) - lu(k,1284) = lu(k,1284) - lu(k,1242) * lu(k,1283) - lu(k,1285) = lu(k,1285) - lu(k,1243) * lu(k,1283) - lu(k,1286) = lu(k,1286) - lu(k,1244) * lu(k,1283) - lu(k,1287) = lu(k,1287) - lu(k,1245) * lu(k,1283) - lu(k,1288) = lu(k,1288) - lu(k,1246) * lu(k,1283) - lu(k,1289) = lu(k,1289) - lu(k,1247) * lu(k,1283) - lu(k,1290) = lu(k,1290) - lu(k,1248) * lu(k,1283) - lu(k,1291) = lu(k,1291) - lu(k,1249) * lu(k,1283) - lu(k,1292) = lu(k,1292) - lu(k,1250) * lu(k,1283) - lu(k,1293) = lu(k,1293) - lu(k,1251) * lu(k,1283) - lu(k,1294) = lu(k,1294) - lu(k,1252) * lu(k,1283) - lu(k,1295) = lu(k,1295) - lu(k,1253) * lu(k,1283) - lu(k,1296) = lu(k,1296) - lu(k,1254) * lu(k,1283) - lu(k,1297) = lu(k,1297) - lu(k,1255) * lu(k,1283) - lu(k,1298) = lu(k,1298) - lu(k,1256) * lu(k,1283) - lu(k,1299) = lu(k,1299) - lu(k,1257) * lu(k,1283) - lu(k,1300) = lu(k,1300) - lu(k,1258) * lu(k,1283) - lu(k,1301) = lu(k,1301) - lu(k,1259) * lu(k,1283) - lu(k,1302) = lu(k,1302) - lu(k,1260) * lu(k,1283) - lu(k,1326) = lu(k,1326) - lu(k,1242) * lu(k,1325) - lu(k,1327) = lu(k,1327) - lu(k,1243) * lu(k,1325) - lu(k,1328) = lu(k,1328) - lu(k,1244) * lu(k,1325) - lu(k,1329) = lu(k,1329) - lu(k,1245) * lu(k,1325) - lu(k,1330) = lu(k,1330) - lu(k,1246) * lu(k,1325) - lu(k,1331) = lu(k,1331) - lu(k,1247) * lu(k,1325) - lu(k,1332) = lu(k,1332) - lu(k,1248) * lu(k,1325) - lu(k,1333) = lu(k,1333) - lu(k,1249) * lu(k,1325) - lu(k,1334) = lu(k,1334) - lu(k,1250) * lu(k,1325) - lu(k,1335) = lu(k,1335) - lu(k,1251) * lu(k,1325) - lu(k,1336) = lu(k,1336) - lu(k,1252) * lu(k,1325) - lu(k,1337) = lu(k,1337) - lu(k,1253) * lu(k,1325) - lu(k,1338) = lu(k,1338) - lu(k,1254) * lu(k,1325) - lu(k,1339) = lu(k,1339) - lu(k,1255) * lu(k,1325) - lu(k,1340) = lu(k,1340) - lu(k,1256) * lu(k,1325) - lu(k,1341) = lu(k,1341) - lu(k,1257) * lu(k,1325) - lu(k,1342) = lu(k,1342) - lu(k,1258) * lu(k,1325) - lu(k,1343) = lu(k,1343) - lu(k,1259) * lu(k,1325) - lu(k,1344) = lu(k,1344) - lu(k,1260) * lu(k,1325) - lu(k,1386) = lu(k,1386) - lu(k,1242) * lu(k,1385) - lu(k,1387) = lu(k,1387) - lu(k,1243) * lu(k,1385) - lu(k,1388) = lu(k,1388) - lu(k,1244) * lu(k,1385) - lu(k,1389) = lu(k,1389) - lu(k,1245) * lu(k,1385) - lu(k,1390) = lu(k,1390) - lu(k,1246) * lu(k,1385) - lu(k,1391) = lu(k,1391) - lu(k,1247) * lu(k,1385) - lu(k,1392) = lu(k,1392) - lu(k,1248) * lu(k,1385) - lu(k,1393) = lu(k,1393) - lu(k,1249) * lu(k,1385) - lu(k,1394) = lu(k,1394) - lu(k,1250) * lu(k,1385) - lu(k,1395) = lu(k,1395) - lu(k,1251) * lu(k,1385) - lu(k,1396) = lu(k,1396) - lu(k,1252) * lu(k,1385) - lu(k,1397) = lu(k,1397) - lu(k,1253) * lu(k,1385) - lu(k,1398) = lu(k,1398) - lu(k,1254) * lu(k,1385) - lu(k,1399) = lu(k,1399) - lu(k,1255) * lu(k,1385) - lu(k,1400) = lu(k,1400) - lu(k,1256) * lu(k,1385) - lu(k,1401) = lu(k,1401) - lu(k,1257) * lu(k,1385) - lu(k,1402) = lu(k,1402) - lu(k,1258) * lu(k,1385) - lu(k,1403) = lu(k,1403) - lu(k,1259) * lu(k,1385) - lu(k,1404) = lu(k,1404) - lu(k,1260) * lu(k,1385) - lu(k,1435) = lu(k,1435) - lu(k,1242) * lu(k,1434) - lu(k,1436) = lu(k,1436) - lu(k,1243) * lu(k,1434) - lu(k,1437) = lu(k,1437) - lu(k,1244) * lu(k,1434) - lu(k,1438) = lu(k,1438) - lu(k,1245) * lu(k,1434) - lu(k,1439) = lu(k,1439) - lu(k,1246) * lu(k,1434) - lu(k,1440) = lu(k,1440) - lu(k,1247) * lu(k,1434) - lu(k,1441) = lu(k,1441) - lu(k,1248) * lu(k,1434) - lu(k,1442) = lu(k,1442) - lu(k,1249) * lu(k,1434) - lu(k,1443) = lu(k,1443) - lu(k,1250) * lu(k,1434) - lu(k,1444) = lu(k,1444) - lu(k,1251) * lu(k,1434) - lu(k,1445) = lu(k,1445) - lu(k,1252) * lu(k,1434) - lu(k,1446) = lu(k,1446) - lu(k,1253) * lu(k,1434) - lu(k,1447) = lu(k,1447) - lu(k,1254) * lu(k,1434) - lu(k,1448) = lu(k,1448) - lu(k,1255) * lu(k,1434) - lu(k,1449) = lu(k,1449) - lu(k,1256) * lu(k,1434) - lu(k,1450) = lu(k,1450) - lu(k,1257) * lu(k,1434) - lu(k,1451) = lu(k,1451) - lu(k,1258) * lu(k,1434) - lu(k,1452) = lu(k,1452) - lu(k,1259) * lu(k,1434) - lu(k,1453) = lu(k,1453) - lu(k,1260) * lu(k,1434) - lu(k,1483) = lu(k,1483) - lu(k,1242) * lu(k,1482) - lu(k,1484) = lu(k,1484) - lu(k,1243) * lu(k,1482) - lu(k,1485) = lu(k,1485) - lu(k,1244) * lu(k,1482) - lu(k,1486) = lu(k,1486) - lu(k,1245) * lu(k,1482) - lu(k,1487) = lu(k,1487) - lu(k,1246) * lu(k,1482) - lu(k,1488) = lu(k,1488) - lu(k,1247) * lu(k,1482) - lu(k,1489) = lu(k,1489) - lu(k,1248) * lu(k,1482) - lu(k,1490) = lu(k,1490) - lu(k,1249) * lu(k,1482) - lu(k,1491) = lu(k,1491) - lu(k,1250) * lu(k,1482) - lu(k,1492) = lu(k,1492) - lu(k,1251) * lu(k,1482) - lu(k,1493) = lu(k,1493) - lu(k,1252) * lu(k,1482) - lu(k,1494) = lu(k,1494) - lu(k,1253) * lu(k,1482) - lu(k,1495) = lu(k,1495) - lu(k,1254) * lu(k,1482) - lu(k,1496) = lu(k,1496) - lu(k,1255) * lu(k,1482) - lu(k,1497) = lu(k,1497) - lu(k,1256) * lu(k,1482) - lu(k,1498) = lu(k,1498) - lu(k,1257) * lu(k,1482) - lu(k,1499) = lu(k,1499) - lu(k,1258) * lu(k,1482) - lu(k,1500) = lu(k,1500) - lu(k,1259) * lu(k,1482) - lu(k,1501) = lu(k,1501) - lu(k,1260) * lu(k,1482) - lu(k,1524) = lu(k,1524) - lu(k,1242) * lu(k,1523) - lu(k,1525) = lu(k,1525) - lu(k,1243) * lu(k,1523) - lu(k,1526) = lu(k,1526) - lu(k,1244) * lu(k,1523) - lu(k,1527) = lu(k,1527) - lu(k,1245) * lu(k,1523) - lu(k,1528) = lu(k,1528) - lu(k,1246) * lu(k,1523) - lu(k,1529) = lu(k,1529) - lu(k,1247) * lu(k,1523) - lu(k,1530) = lu(k,1530) - lu(k,1248) * lu(k,1523) - lu(k,1531) = lu(k,1531) - lu(k,1249) * lu(k,1523) - lu(k,1532) = lu(k,1532) - lu(k,1250) * lu(k,1523) - lu(k,1533) = lu(k,1533) - lu(k,1251) * lu(k,1523) - lu(k,1534) = lu(k,1534) - lu(k,1252) * lu(k,1523) - lu(k,1535) = lu(k,1535) - lu(k,1253) * lu(k,1523) - lu(k,1536) = lu(k,1536) - lu(k,1254) * lu(k,1523) - lu(k,1537) = lu(k,1537) - lu(k,1255) * lu(k,1523) - lu(k,1538) = lu(k,1538) - lu(k,1256) * lu(k,1523) - lu(k,1539) = lu(k,1539) - lu(k,1257) * lu(k,1523) - lu(k,1540) = lu(k,1540) - lu(k,1258) * lu(k,1523) - lu(k,1541) = lu(k,1541) - lu(k,1259) * lu(k,1523) - lu(k,1542) = lu(k,1542) - lu(k,1260) * lu(k,1523) - lu(k,1560) = lu(k,1560) - lu(k,1242) * lu(k,1559) - lu(k,1561) = lu(k,1561) - lu(k,1243) * lu(k,1559) - lu(k,1562) = lu(k,1562) - lu(k,1244) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,1245) * lu(k,1559) - lu(k,1564) = lu(k,1564) - lu(k,1246) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,1247) * lu(k,1559) - lu(k,1566) = lu(k,1566) - lu(k,1248) * lu(k,1559) - lu(k,1567) = lu(k,1567) - lu(k,1249) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,1250) * lu(k,1559) - lu(k,1569) = lu(k,1569) - lu(k,1251) * lu(k,1559) - lu(k,1570) = lu(k,1570) - lu(k,1252) * lu(k,1559) - lu(k,1571) = lu(k,1571) - lu(k,1253) * lu(k,1559) - lu(k,1572) = lu(k,1572) - lu(k,1254) * lu(k,1559) - lu(k,1573) = lu(k,1573) - lu(k,1255) * lu(k,1559) - lu(k,1574) = lu(k,1574) - lu(k,1256) * lu(k,1559) - lu(k,1575) = lu(k,1575) - lu(k,1257) * lu(k,1559) - lu(k,1576) = lu(k,1576) - lu(k,1258) * lu(k,1559) - lu(k,1577) = lu(k,1577) - lu(k,1259) * lu(k,1559) - lu(k,1578) = lu(k,1578) - lu(k,1260) * lu(k,1559) - lu(k,1605) = lu(k,1605) - lu(k,1242) * lu(k,1604) - lu(k,1606) = lu(k,1606) - lu(k,1243) * lu(k,1604) - lu(k,1607) = lu(k,1607) - lu(k,1244) * lu(k,1604) - lu(k,1608) = lu(k,1608) - lu(k,1245) * lu(k,1604) - lu(k,1609) = lu(k,1609) - lu(k,1246) * lu(k,1604) - lu(k,1610) = lu(k,1610) - lu(k,1247) * lu(k,1604) - lu(k,1611) = lu(k,1611) - lu(k,1248) * lu(k,1604) - lu(k,1612) = lu(k,1612) - lu(k,1249) * lu(k,1604) - lu(k,1613) = lu(k,1613) - lu(k,1250) * lu(k,1604) - lu(k,1614) = lu(k,1614) - lu(k,1251) * lu(k,1604) - lu(k,1615) = lu(k,1615) - lu(k,1252) * lu(k,1604) - lu(k,1616) = lu(k,1616) - lu(k,1253) * lu(k,1604) - lu(k,1617) = lu(k,1617) - lu(k,1254) * lu(k,1604) - lu(k,1618) = lu(k,1618) - lu(k,1255) * lu(k,1604) - lu(k,1619) = lu(k,1619) - lu(k,1256) * lu(k,1604) - lu(k,1620) = lu(k,1620) - lu(k,1257) * lu(k,1604) - lu(k,1621) = lu(k,1621) - lu(k,1258) * lu(k,1604) - lu(k,1622) = lu(k,1622) - lu(k,1259) * lu(k,1604) - lu(k,1623) = lu(k,1623) - lu(k,1260) * lu(k,1604) - lu(k,1648) = lu(k,1648) - lu(k,1242) * lu(k,1647) - lu(k,1649) = lu(k,1649) - lu(k,1243) * lu(k,1647) - lu(k,1650) = lu(k,1650) - lu(k,1244) * lu(k,1647) - lu(k,1651) = lu(k,1651) - lu(k,1245) * lu(k,1647) - lu(k,1652) = lu(k,1652) - lu(k,1246) * lu(k,1647) - lu(k,1653) = lu(k,1653) - lu(k,1247) * lu(k,1647) - lu(k,1654) = lu(k,1654) - lu(k,1248) * lu(k,1647) - lu(k,1655) = lu(k,1655) - lu(k,1249) * lu(k,1647) - lu(k,1656) = lu(k,1656) - lu(k,1250) * lu(k,1647) - lu(k,1657) = lu(k,1657) - lu(k,1251) * lu(k,1647) - lu(k,1658) = lu(k,1658) - lu(k,1252) * lu(k,1647) - lu(k,1659) = lu(k,1659) - lu(k,1253) * lu(k,1647) - lu(k,1660) = lu(k,1660) - lu(k,1254) * lu(k,1647) - lu(k,1661) = lu(k,1661) - lu(k,1255) * lu(k,1647) - lu(k,1662) = lu(k,1662) - lu(k,1256) * lu(k,1647) - lu(k,1663) = lu(k,1663) - lu(k,1257) * lu(k,1647) - lu(k,1664) = lu(k,1664) - lu(k,1258) * lu(k,1647) - lu(k,1665) = lu(k,1665) - lu(k,1259) * lu(k,1647) - lu(k,1666) = lu(k,1666) - lu(k,1260) * lu(k,1647) - lu(k,1691) = lu(k,1691) - lu(k,1242) * lu(k,1690) - lu(k,1692) = lu(k,1692) - lu(k,1243) * lu(k,1690) - lu(k,1693) = lu(k,1693) - lu(k,1244) * lu(k,1690) - lu(k,1694) = lu(k,1694) - lu(k,1245) * lu(k,1690) - lu(k,1695) = lu(k,1695) - lu(k,1246) * lu(k,1690) - lu(k,1696) = lu(k,1696) - lu(k,1247) * lu(k,1690) - lu(k,1697) = lu(k,1697) - lu(k,1248) * lu(k,1690) - lu(k,1698) = lu(k,1698) - lu(k,1249) * lu(k,1690) - lu(k,1699) = lu(k,1699) - lu(k,1250) * lu(k,1690) - lu(k,1700) = lu(k,1700) - lu(k,1251) * lu(k,1690) - lu(k,1701) = lu(k,1701) - lu(k,1252) * lu(k,1690) - lu(k,1702) = lu(k,1702) - lu(k,1253) * lu(k,1690) - lu(k,1703) = lu(k,1703) - lu(k,1254) * lu(k,1690) - lu(k,1704) = lu(k,1704) - lu(k,1255) * lu(k,1690) - lu(k,1705) = lu(k,1705) - lu(k,1256) * lu(k,1690) - lu(k,1706) = lu(k,1706) - lu(k,1257) * lu(k,1690) - lu(k,1707) = lu(k,1707) - lu(k,1258) * lu(k,1690) - lu(k,1708) = lu(k,1708) - lu(k,1259) * lu(k,1690) - lu(k,1709) = lu(k,1709) - lu(k,1260) * lu(k,1690) - lu(k,1731) = lu(k,1731) - lu(k,1242) * lu(k,1730) - lu(k,1732) = lu(k,1732) - lu(k,1243) * lu(k,1730) - lu(k,1733) = lu(k,1733) - lu(k,1244) * lu(k,1730) - lu(k,1734) = lu(k,1734) - lu(k,1245) * lu(k,1730) - lu(k,1735) = lu(k,1735) - lu(k,1246) * lu(k,1730) - lu(k,1736) = lu(k,1736) - lu(k,1247) * lu(k,1730) - lu(k,1737) = lu(k,1737) - lu(k,1248) * lu(k,1730) - lu(k,1738) = lu(k,1738) - lu(k,1249) * lu(k,1730) - lu(k,1739) = lu(k,1739) - lu(k,1250) * lu(k,1730) - lu(k,1740) = lu(k,1740) - lu(k,1251) * lu(k,1730) - lu(k,1741) = lu(k,1741) - lu(k,1252) * lu(k,1730) - lu(k,1742) = lu(k,1742) - lu(k,1253) * lu(k,1730) - lu(k,1743) = lu(k,1743) - lu(k,1254) * lu(k,1730) - lu(k,1744) = lu(k,1744) - lu(k,1255) * lu(k,1730) - lu(k,1745) = lu(k,1745) - lu(k,1256) * lu(k,1730) - lu(k,1746) = lu(k,1746) - lu(k,1257) * lu(k,1730) - lu(k,1747) = lu(k,1747) - lu(k,1258) * lu(k,1730) - lu(k,1748) = lu(k,1748) - lu(k,1259) * lu(k,1730) - lu(k,1749) = lu(k,1749) - lu(k,1260) * lu(k,1730) - lu(k,1767) = lu(k,1767) - lu(k,1242) * lu(k,1766) - lu(k,1768) = lu(k,1768) - lu(k,1243) * lu(k,1766) - lu(k,1769) = lu(k,1769) - lu(k,1244) * lu(k,1766) - lu(k,1770) = lu(k,1770) - lu(k,1245) * lu(k,1766) - lu(k,1771) = lu(k,1771) - lu(k,1246) * lu(k,1766) - lu(k,1772) = lu(k,1772) - lu(k,1247) * lu(k,1766) - lu(k,1773) = lu(k,1773) - lu(k,1248) * lu(k,1766) - lu(k,1774) = lu(k,1774) - lu(k,1249) * lu(k,1766) - lu(k,1775) = lu(k,1775) - lu(k,1250) * lu(k,1766) - lu(k,1776) = lu(k,1776) - lu(k,1251) * lu(k,1766) - lu(k,1777) = lu(k,1777) - lu(k,1252) * lu(k,1766) - lu(k,1778) = lu(k,1778) - lu(k,1253) * lu(k,1766) - lu(k,1779) = lu(k,1779) - lu(k,1254) * lu(k,1766) - lu(k,1780) = lu(k,1780) - lu(k,1255) * lu(k,1766) - lu(k,1781) = lu(k,1781) - lu(k,1256) * lu(k,1766) - lu(k,1782) = lu(k,1782) - lu(k,1257) * lu(k,1766) - lu(k,1783) = lu(k,1783) - lu(k,1258) * lu(k,1766) - lu(k,1784) = lu(k,1784) - lu(k,1259) * lu(k,1766) - lu(k,1785) = lu(k,1785) - lu(k,1260) * lu(k,1766) - lu(k,1815) = lu(k,1815) - lu(k,1242) * lu(k,1814) - lu(k,1816) = lu(k,1816) - lu(k,1243) * lu(k,1814) - lu(k,1817) = lu(k,1817) - lu(k,1244) * lu(k,1814) - lu(k,1818) = lu(k,1818) - lu(k,1245) * lu(k,1814) - lu(k,1819) = lu(k,1819) - lu(k,1246) * lu(k,1814) - lu(k,1820) = lu(k,1820) - lu(k,1247) * lu(k,1814) - lu(k,1821) = lu(k,1821) - lu(k,1248) * lu(k,1814) - lu(k,1822) = lu(k,1822) - lu(k,1249) * lu(k,1814) - lu(k,1823) = lu(k,1823) - lu(k,1250) * lu(k,1814) - lu(k,1824) = lu(k,1824) - lu(k,1251) * lu(k,1814) - lu(k,1825) = lu(k,1825) - lu(k,1252) * lu(k,1814) - lu(k,1826) = lu(k,1826) - lu(k,1253) * lu(k,1814) - lu(k,1827) = lu(k,1827) - lu(k,1254) * lu(k,1814) - lu(k,1828) = lu(k,1828) - lu(k,1255) * lu(k,1814) - lu(k,1829) = lu(k,1829) - lu(k,1256) * lu(k,1814) - lu(k,1830) = lu(k,1830) - lu(k,1257) * lu(k,1814) - lu(k,1831) = lu(k,1831) - lu(k,1258) * lu(k,1814) - lu(k,1832) = lu(k,1832) - lu(k,1259) * lu(k,1814) - lu(k,1833) = lu(k,1833) - lu(k,1260) * lu(k,1814) - lu(k,1848) = lu(k,1848) - lu(k,1242) * lu(k,1847) - lu(k,1849) = lu(k,1849) - lu(k,1243) * lu(k,1847) - lu(k,1850) = lu(k,1850) - lu(k,1244) * lu(k,1847) - lu(k,1851) = lu(k,1851) - lu(k,1245) * lu(k,1847) - lu(k,1852) = lu(k,1852) - lu(k,1246) * lu(k,1847) - lu(k,1853) = lu(k,1853) - lu(k,1247) * lu(k,1847) - lu(k,1854) = lu(k,1854) - lu(k,1248) * lu(k,1847) - lu(k,1855) = lu(k,1855) - lu(k,1249) * lu(k,1847) - lu(k,1856) = lu(k,1856) - lu(k,1250) * lu(k,1847) - lu(k,1857) = lu(k,1857) - lu(k,1251) * lu(k,1847) - lu(k,1858) = lu(k,1858) - lu(k,1252) * lu(k,1847) - lu(k,1859) = lu(k,1859) - lu(k,1253) * lu(k,1847) - lu(k,1860) = lu(k,1860) - lu(k,1254) * lu(k,1847) - lu(k,1861) = lu(k,1861) - lu(k,1255) * lu(k,1847) - lu(k,1862) = lu(k,1862) - lu(k,1256) * lu(k,1847) - lu(k,1863) = lu(k,1863) - lu(k,1257) * lu(k,1847) - lu(k,1864) = lu(k,1864) - lu(k,1258) * lu(k,1847) - lu(k,1865) = lu(k,1865) - lu(k,1259) * lu(k,1847) - lu(k,1866) = lu(k,1866) - lu(k,1260) * lu(k,1847) - lu(k,1884) = lu(k,1884) - lu(k,1242) * lu(k,1883) - lu(k,1885) = lu(k,1885) - lu(k,1243) * lu(k,1883) - lu(k,1886) = lu(k,1886) - lu(k,1244) * lu(k,1883) - lu(k,1887) = lu(k,1887) - lu(k,1245) * lu(k,1883) - lu(k,1888) = lu(k,1888) - lu(k,1246) * lu(k,1883) - lu(k,1889) = lu(k,1889) - lu(k,1247) * lu(k,1883) - lu(k,1890) = lu(k,1890) - lu(k,1248) * lu(k,1883) - lu(k,1891) = lu(k,1891) - lu(k,1249) * lu(k,1883) - lu(k,1892) = lu(k,1892) - lu(k,1250) * lu(k,1883) - lu(k,1893) = lu(k,1893) - lu(k,1251) * lu(k,1883) - lu(k,1894) = lu(k,1894) - lu(k,1252) * lu(k,1883) - lu(k,1895) = lu(k,1895) - lu(k,1253) * lu(k,1883) - lu(k,1896) = lu(k,1896) - lu(k,1254) * lu(k,1883) - lu(k,1897) = lu(k,1897) - lu(k,1255) * lu(k,1883) - lu(k,1898) = lu(k,1898) - lu(k,1256) * lu(k,1883) - lu(k,1899) = lu(k,1899) - lu(k,1257) * lu(k,1883) - lu(k,1900) = lu(k,1900) - lu(k,1258) * lu(k,1883) - lu(k,1901) = lu(k,1901) - lu(k,1259) * lu(k,1883) - lu(k,1902) = lu(k,1902) - lu(k,1260) * lu(k,1883) - lu(k,1925) = lu(k,1925) - lu(k,1242) * lu(k,1924) - lu(k,1926) = lu(k,1926) - lu(k,1243) * lu(k,1924) - lu(k,1927) = lu(k,1927) - lu(k,1244) * lu(k,1924) - lu(k,1928) = lu(k,1928) - lu(k,1245) * lu(k,1924) - lu(k,1929) = lu(k,1929) - lu(k,1246) * lu(k,1924) - lu(k,1930) = lu(k,1930) - lu(k,1247) * lu(k,1924) - lu(k,1931) = lu(k,1931) - lu(k,1248) * lu(k,1924) - lu(k,1932) = lu(k,1932) - lu(k,1249) * lu(k,1924) - lu(k,1933) = lu(k,1933) - lu(k,1250) * lu(k,1924) - lu(k,1934) = lu(k,1934) - lu(k,1251) * lu(k,1924) - lu(k,1935) = lu(k,1935) - lu(k,1252) * lu(k,1924) - lu(k,1936) = lu(k,1936) - lu(k,1253) * lu(k,1924) - lu(k,1937) = lu(k,1937) - lu(k,1254) * lu(k,1924) - lu(k,1938) = lu(k,1938) - lu(k,1255) * lu(k,1924) - lu(k,1939) = lu(k,1939) - lu(k,1256) * lu(k,1924) - lu(k,1940) = lu(k,1940) - lu(k,1257) * lu(k,1924) - lu(k,1941) = lu(k,1941) - lu(k,1258) * lu(k,1924) - lu(k,1942) = lu(k,1942) - lu(k,1259) * lu(k,1924) - lu(k,1943) = lu(k,1943) - lu(k,1260) * lu(k,1924) - lu(k,1967) = lu(k,1967) - lu(k,1242) * lu(k,1966) - lu(k,1968) = lu(k,1968) - lu(k,1243) * lu(k,1966) - lu(k,1969) = lu(k,1969) - lu(k,1244) * lu(k,1966) - lu(k,1970) = lu(k,1970) - lu(k,1245) * lu(k,1966) - lu(k,1971) = lu(k,1971) - lu(k,1246) * lu(k,1966) - lu(k,1972) = lu(k,1972) - lu(k,1247) * lu(k,1966) - lu(k,1973) = lu(k,1973) - lu(k,1248) * lu(k,1966) - lu(k,1974) = lu(k,1974) - lu(k,1249) * lu(k,1966) - lu(k,1975) = lu(k,1975) - lu(k,1250) * lu(k,1966) - lu(k,1976) = lu(k,1976) - lu(k,1251) * lu(k,1966) - lu(k,1977) = lu(k,1977) - lu(k,1252) * lu(k,1966) - lu(k,1978) = lu(k,1978) - lu(k,1253) * lu(k,1966) - lu(k,1979) = lu(k,1979) - lu(k,1254) * lu(k,1966) - lu(k,1980) = lu(k,1980) - lu(k,1255) * lu(k,1966) - lu(k,1981) = lu(k,1981) - lu(k,1256) * lu(k,1966) - lu(k,1982) = lu(k,1982) - lu(k,1257) * lu(k,1966) - lu(k,1983) = lu(k,1983) - lu(k,1258) * lu(k,1966) - lu(k,1984) = lu(k,1984) - lu(k,1259) * lu(k,1966) - lu(k,1985) = lu(k,1985) - lu(k,1260) * lu(k,1966) - lu(k,2012) = lu(k,2012) - lu(k,1242) * lu(k,2011) - lu(k,2013) = lu(k,2013) - lu(k,1243) * lu(k,2011) - lu(k,2014) = lu(k,2014) - lu(k,1244) * lu(k,2011) - lu(k,2015) = lu(k,2015) - lu(k,1245) * lu(k,2011) - lu(k,2016) = lu(k,2016) - lu(k,1246) * lu(k,2011) - lu(k,2017) = lu(k,2017) - lu(k,1247) * lu(k,2011) - lu(k,2018) = lu(k,2018) - lu(k,1248) * lu(k,2011) - lu(k,2019) = lu(k,2019) - lu(k,1249) * lu(k,2011) - lu(k,2020) = lu(k,2020) - lu(k,1250) * lu(k,2011) - lu(k,2021) = lu(k,2021) - lu(k,1251) * lu(k,2011) - lu(k,2022) = lu(k,2022) - lu(k,1252) * lu(k,2011) - lu(k,2023) = lu(k,2023) - lu(k,1253) * lu(k,2011) - lu(k,2024) = lu(k,2024) - lu(k,1254) * lu(k,2011) - lu(k,2025) = lu(k,2025) - lu(k,1255) * lu(k,2011) - lu(k,2026) = lu(k,2026) - lu(k,1256) * lu(k,2011) - lu(k,2027) = lu(k,2027) - lu(k,1257) * lu(k,2011) - lu(k,2028) = lu(k,2028) - lu(k,1258) * lu(k,2011) - lu(k,2029) = lu(k,2029) - lu(k,1259) * lu(k,2011) - lu(k,2030) = lu(k,2030) - lu(k,1260) * lu(k,2011) - lu(k,2072) = lu(k,2072) - lu(k,1242) * lu(k,2071) - lu(k,2073) = lu(k,2073) - lu(k,1243) * lu(k,2071) - lu(k,2074) = lu(k,2074) - lu(k,1244) * lu(k,2071) - lu(k,2075) = lu(k,2075) - lu(k,1245) * lu(k,2071) - lu(k,2076) = lu(k,2076) - lu(k,1246) * lu(k,2071) - lu(k,2077) = lu(k,2077) - lu(k,1247) * lu(k,2071) - lu(k,2078) = lu(k,2078) - lu(k,1248) * lu(k,2071) - lu(k,2079) = lu(k,2079) - lu(k,1249) * lu(k,2071) - lu(k,2080) = lu(k,2080) - lu(k,1250) * lu(k,2071) - lu(k,2081) = lu(k,2081) - lu(k,1251) * lu(k,2071) - lu(k,2082) = lu(k,2082) - lu(k,1252) * lu(k,2071) - lu(k,2083) = lu(k,2083) - lu(k,1253) * lu(k,2071) - lu(k,2084) = lu(k,2084) - lu(k,1254) * lu(k,2071) - lu(k,2085) = lu(k,2085) - lu(k,1255) * lu(k,2071) - lu(k,2086) = lu(k,2086) - lu(k,1256) * lu(k,2071) - lu(k,2087) = lu(k,2087) - lu(k,1257) * lu(k,2071) - lu(k,2088) = lu(k,2088) - lu(k,1258) * lu(k,2071) - lu(k,2089) = lu(k,2089) - lu(k,1259) * lu(k,2071) - lu(k,2090) = lu(k,2090) - lu(k,1260) * lu(k,2071) + lu(k,1240) = 1._r8 / lu(k,1240) + lu(k,1241) = lu(k,1241) * lu(k,1240) + lu(k,1242) = lu(k,1242) * lu(k,1240) + lu(k,1243) = lu(k,1243) * lu(k,1240) + lu(k,1244) = lu(k,1244) * lu(k,1240) + lu(k,1245) = lu(k,1245) * lu(k,1240) + lu(k,1246) = lu(k,1246) * lu(k,1240) + lu(k,1247) = lu(k,1247) * lu(k,1240) + lu(k,1248) = lu(k,1248) * lu(k,1240) + lu(k,1249) = lu(k,1249) * lu(k,1240) + lu(k,1250) = lu(k,1250) * lu(k,1240) + lu(k,1251) = lu(k,1251) * lu(k,1240) + lu(k,1252) = lu(k,1252) * lu(k,1240) + lu(k,1253) = lu(k,1253) * lu(k,1240) + lu(k,1254) = lu(k,1254) * lu(k,1240) + lu(k,1255) = lu(k,1255) * lu(k,1240) + lu(k,1256) = lu(k,1256) * lu(k,1240) + lu(k,1257) = lu(k,1257) * lu(k,1240) + lu(k,1258) = lu(k,1258) * lu(k,1240) + lu(k,1259) = lu(k,1259) * lu(k,1240) + lu(k,1284) = lu(k,1284) - lu(k,1241) * lu(k,1283) + lu(k,1285) = lu(k,1285) - lu(k,1242) * lu(k,1283) + lu(k,1286) = lu(k,1286) - lu(k,1243) * lu(k,1283) + lu(k,1287) = lu(k,1287) - lu(k,1244) * lu(k,1283) + lu(k,1288) = lu(k,1288) - lu(k,1245) * lu(k,1283) + lu(k,1289) = lu(k,1289) - lu(k,1246) * lu(k,1283) + lu(k,1290) = lu(k,1290) - lu(k,1247) * lu(k,1283) + lu(k,1291) = lu(k,1291) - lu(k,1248) * lu(k,1283) + lu(k,1292) = lu(k,1292) - lu(k,1249) * lu(k,1283) + lu(k,1293) = lu(k,1293) - lu(k,1250) * lu(k,1283) + lu(k,1294) = lu(k,1294) - lu(k,1251) * lu(k,1283) + lu(k,1295) = lu(k,1295) - lu(k,1252) * lu(k,1283) + lu(k,1296) = lu(k,1296) - lu(k,1253) * lu(k,1283) + lu(k,1297) = lu(k,1297) - lu(k,1254) * lu(k,1283) + lu(k,1298) = lu(k,1298) - lu(k,1255) * lu(k,1283) + lu(k,1299) = lu(k,1299) - lu(k,1256) * lu(k,1283) + lu(k,1300) = lu(k,1300) - lu(k,1257) * lu(k,1283) + lu(k,1301) = lu(k,1301) - lu(k,1258) * lu(k,1283) + lu(k,1302) = lu(k,1302) - lu(k,1259) * lu(k,1283) + lu(k,1326) = lu(k,1326) - lu(k,1241) * lu(k,1325) + lu(k,1327) = lu(k,1327) - lu(k,1242) * lu(k,1325) + lu(k,1328) = lu(k,1328) - lu(k,1243) * lu(k,1325) + lu(k,1329) = lu(k,1329) - lu(k,1244) * lu(k,1325) + lu(k,1330) = lu(k,1330) - lu(k,1245) * lu(k,1325) + lu(k,1331) = lu(k,1331) - lu(k,1246) * lu(k,1325) + lu(k,1332) = lu(k,1332) - lu(k,1247) * lu(k,1325) + lu(k,1333) = lu(k,1333) - lu(k,1248) * lu(k,1325) + lu(k,1334) = lu(k,1334) - lu(k,1249) * lu(k,1325) + lu(k,1335) = lu(k,1335) - lu(k,1250) * lu(k,1325) + lu(k,1336) = lu(k,1336) - lu(k,1251) * lu(k,1325) + lu(k,1337) = lu(k,1337) - lu(k,1252) * lu(k,1325) + lu(k,1338) = lu(k,1338) - lu(k,1253) * lu(k,1325) + lu(k,1339) = lu(k,1339) - lu(k,1254) * lu(k,1325) + lu(k,1340) = lu(k,1340) - lu(k,1255) * lu(k,1325) + lu(k,1341) = lu(k,1341) - lu(k,1256) * lu(k,1325) + lu(k,1342) = lu(k,1342) - lu(k,1257) * lu(k,1325) + lu(k,1343) = lu(k,1343) - lu(k,1258) * lu(k,1325) + lu(k,1344) = lu(k,1344) - lu(k,1259) * lu(k,1325) + lu(k,1386) = lu(k,1386) - lu(k,1241) * lu(k,1385) + lu(k,1387) = lu(k,1387) - lu(k,1242) * lu(k,1385) + lu(k,1388) = lu(k,1388) - lu(k,1243) * lu(k,1385) + lu(k,1389) = lu(k,1389) - lu(k,1244) * lu(k,1385) + lu(k,1390) = lu(k,1390) - lu(k,1245) * lu(k,1385) + lu(k,1391) = lu(k,1391) - lu(k,1246) * lu(k,1385) + lu(k,1392) = lu(k,1392) - lu(k,1247) * lu(k,1385) + lu(k,1393) = lu(k,1393) - lu(k,1248) * lu(k,1385) + lu(k,1394) = lu(k,1394) - lu(k,1249) * lu(k,1385) + lu(k,1395) = lu(k,1395) - lu(k,1250) * lu(k,1385) + lu(k,1396) = lu(k,1396) - lu(k,1251) * lu(k,1385) + lu(k,1397) = lu(k,1397) - lu(k,1252) * lu(k,1385) + lu(k,1398) = lu(k,1398) - lu(k,1253) * lu(k,1385) + lu(k,1399) = lu(k,1399) - lu(k,1254) * lu(k,1385) + lu(k,1400) = lu(k,1400) - lu(k,1255) * lu(k,1385) + lu(k,1401) = lu(k,1401) - lu(k,1256) * lu(k,1385) + lu(k,1402) = lu(k,1402) - lu(k,1257) * lu(k,1385) + lu(k,1403) = lu(k,1403) - lu(k,1258) * lu(k,1385) + lu(k,1404) = lu(k,1404) - lu(k,1259) * lu(k,1385) + lu(k,1429) = lu(k,1429) - lu(k,1241) * lu(k,1428) + lu(k,1430) = lu(k,1430) - lu(k,1242) * lu(k,1428) + lu(k,1431) = lu(k,1431) - lu(k,1243) * lu(k,1428) + lu(k,1432) = lu(k,1432) - lu(k,1244) * lu(k,1428) + lu(k,1433) = lu(k,1433) - lu(k,1245) * lu(k,1428) + lu(k,1434) = lu(k,1434) - lu(k,1246) * lu(k,1428) + lu(k,1435) = lu(k,1435) - lu(k,1247) * lu(k,1428) + lu(k,1436) = lu(k,1436) - lu(k,1248) * lu(k,1428) + lu(k,1437) = lu(k,1437) - lu(k,1249) * lu(k,1428) + lu(k,1438) = lu(k,1438) - lu(k,1250) * lu(k,1428) + lu(k,1439) = lu(k,1439) - lu(k,1251) * lu(k,1428) + lu(k,1440) = lu(k,1440) - lu(k,1252) * lu(k,1428) + lu(k,1441) = lu(k,1441) - lu(k,1253) * lu(k,1428) + lu(k,1442) = lu(k,1442) - lu(k,1254) * lu(k,1428) + lu(k,1443) = lu(k,1443) - lu(k,1255) * lu(k,1428) + lu(k,1444) = lu(k,1444) - lu(k,1256) * lu(k,1428) + lu(k,1445) = lu(k,1445) - lu(k,1257) * lu(k,1428) + lu(k,1446) = lu(k,1446) - lu(k,1258) * lu(k,1428) + lu(k,1447) = lu(k,1447) - lu(k,1259) * lu(k,1428) + lu(k,1477) = lu(k,1477) - lu(k,1241) * lu(k,1476) + lu(k,1478) = lu(k,1478) - lu(k,1242) * lu(k,1476) + lu(k,1479) = lu(k,1479) - lu(k,1243) * lu(k,1476) + lu(k,1480) = lu(k,1480) - lu(k,1244) * lu(k,1476) + lu(k,1481) = lu(k,1481) - lu(k,1245) * lu(k,1476) + lu(k,1482) = lu(k,1482) - lu(k,1246) * lu(k,1476) + lu(k,1483) = lu(k,1483) - lu(k,1247) * lu(k,1476) + lu(k,1484) = lu(k,1484) - lu(k,1248) * lu(k,1476) + lu(k,1485) = lu(k,1485) - lu(k,1249) * lu(k,1476) + lu(k,1486) = lu(k,1486) - lu(k,1250) * lu(k,1476) + lu(k,1487) = lu(k,1487) - lu(k,1251) * lu(k,1476) + lu(k,1488) = lu(k,1488) - lu(k,1252) * lu(k,1476) + lu(k,1489) = lu(k,1489) - lu(k,1253) * lu(k,1476) + lu(k,1490) = lu(k,1490) - lu(k,1254) * lu(k,1476) + lu(k,1491) = lu(k,1491) - lu(k,1255) * lu(k,1476) + lu(k,1492) = lu(k,1492) - lu(k,1256) * lu(k,1476) + lu(k,1493) = lu(k,1493) - lu(k,1257) * lu(k,1476) + lu(k,1494) = lu(k,1494) - lu(k,1258) * lu(k,1476) + lu(k,1495) = lu(k,1495) - lu(k,1259) * lu(k,1476) + lu(k,1518) = lu(k,1518) - lu(k,1241) * lu(k,1517) + lu(k,1519) = lu(k,1519) - lu(k,1242) * lu(k,1517) + lu(k,1520) = lu(k,1520) - lu(k,1243) * lu(k,1517) + lu(k,1521) = lu(k,1521) - lu(k,1244) * lu(k,1517) + lu(k,1522) = lu(k,1522) - lu(k,1245) * lu(k,1517) + lu(k,1523) = lu(k,1523) - lu(k,1246) * lu(k,1517) + lu(k,1524) = lu(k,1524) - lu(k,1247) * lu(k,1517) + lu(k,1525) = lu(k,1525) - lu(k,1248) * lu(k,1517) + lu(k,1526) = lu(k,1526) - lu(k,1249) * lu(k,1517) + lu(k,1527) = lu(k,1527) - lu(k,1250) * lu(k,1517) + lu(k,1528) = lu(k,1528) - lu(k,1251) * lu(k,1517) + lu(k,1529) = lu(k,1529) - lu(k,1252) * lu(k,1517) + lu(k,1530) = lu(k,1530) - lu(k,1253) * lu(k,1517) + lu(k,1531) = lu(k,1531) - lu(k,1254) * lu(k,1517) + lu(k,1532) = lu(k,1532) - lu(k,1255) * lu(k,1517) + lu(k,1533) = lu(k,1533) - lu(k,1256) * lu(k,1517) + lu(k,1534) = lu(k,1534) - lu(k,1257) * lu(k,1517) + lu(k,1535) = lu(k,1535) - lu(k,1258) * lu(k,1517) + lu(k,1536) = lu(k,1536) - lu(k,1259) * lu(k,1517) + lu(k,1554) = lu(k,1554) - lu(k,1241) * lu(k,1553) + lu(k,1555) = lu(k,1555) - lu(k,1242) * lu(k,1553) + lu(k,1556) = lu(k,1556) - lu(k,1243) * lu(k,1553) + lu(k,1557) = lu(k,1557) - lu(k,1244) * lu(k,1553) + lu(k,1558) = lu(k,1558) - lu(k,1245) * lu(k,1553) + lu(k,1559) = lu(k,1559) - lu(k,1246) * lu(k,1553) + lu(k,1560) = lu(k,1560) - lu(k,1247) * lu(k,1553) + lu(k,1561) = lu(k,1561) - lu(k,1248) * lu(k,1553) + lu(k,1562) = lu(k,1562) - lu(k,1249) * lu(k,1553) + lu(k,1563) = lu(k,1563) - lu(k,1250) * lu(k,1553) + lu(k,1564) = lu(k,1564) - lu(k,1251) * lu(k,1553) + lu(k,1565) = lu(k,1565) - lu(k,1252) * lu(k,1553) + lu(k,1566) = lu(k,1566) - lu(k,1253) * lu(k,1553) + lu(k,1567) = lu(k,1567) - lu(k,1254) * lu(k,1553) + lu(k,1568) = lu(k,1568) - lu(k,1255) * lu(k,1553) + lu(k,1569) = lu(k,1569) - lu(k,1256) * lu(k,1553) + lu(k,1570) = lu(k,1570) - lu(k,1257) * lu(k,1553) + lu(k,1571) = lu(k,1571) - lu(k,1258) * lu(k,1553) + lu(k,1572) = lu(k,1572) - lu(k,1259) * lu(k,1553) + lu(k,1599) = lu(k,1599) - lu(k,1241) * lu(k,1598) + lu(k,1600) = lu(k,1600) - lu(k,1242) * lu(k,1598) + lu(k,1601) = lu(k,1601) - lu(k,1243) * lu(k,1598) + lu(k,1602) = lu(k,1602) - lu(k,1244) * lu(k,1598) + lu(k,1603) = lu(k,1603) - lu(k,1245) * lu(k,1598) + lu(k,1604) = lu(k,1604) - lu(k,1246) * lu(k,1598) + lu(k,1605) = lu(k,1605) - lu(k,1247) * lu(k,1598) + lu(k,1606) = lu(k,1606) - lu(k,1248) * lu(k,1598) + lu(k,1607) = lu(k,1607) - lu(k,1249) * lu(k,1598) + lu(k,1608) = lu(k,1608) - lu(k,1250) * lu(k,1598) + lu(k,1609) = lu(k,1609) - lu(k,1251) * lu(k,1598) + lu(k,1610) = lu(k,1610) - lu(k,1252) * lu(k,1598) + lu(k,1611) = lu(k,1611) - lu(k,1253) * lu(k,1598) + lu(k,1612) = lu(k,1612) - lu(k,1254) * lu(k,1598) + lu(k,1613) = lu(k,1613) - lu(k,1255) * lu(k,1598) + lu(k,1614) = lu(k,1614) - lu(k,1256) * lu(k,1598) + lu(k,1615) = lu(k,1615) - lu(k,1257) * lu(k,1598) + lu(k,1616) = lu(k,1616) - lu(k,1258) * lu(k,1598) + lu(k,1617) = lu(k,1617) - lu(k,1259) * lu(k,1598) + lu(k,1642) = lu(k,1642) - lu(k,1241) * lu(k,1641) + lu(k,1643) = lu(k,1643) - lu(k,1242) * lu(k,1641) + lu(k,1644) = lu(k,1644) - lu(k,1243) * lu(k,1641) + lu(k,1645) = lu(k,1645) - lu(k,1244) * lu(k,1641) + lu(k,1646) = lu(k,1646) - lu(k,1245) * lu(k,1641) + lu(k,1647) = lu(k,1647) - lu(k,1246) * lu(k,1641) + lu(k,1648) = lu(k,1648) - lu(k,1247) * lu(k,1641) + lu(k,1649) = lu(k,1649) - lu(k,1248) * lu(k,1641) + lu(k,1650) = lu(k,1650) - lu(k,1249) * lu(k,1641) + lu(k,1651) = lu(k,1651) - lu(k,1250) * lu(k,1641) + lu(k,1652) = lu(k,1652) - lu(k,1251) * lu(k,1641) + lu(k,1653) = lu(k,1653) - lu(k,1252) * lu(k,1641) + lu(k,1654) = lu(k,1654) - lu(k,1253) * lu(k,1641) + lu(k,1655) = lu(k,1655) - lu(k,1254) * lu(k,1641) + lu(k,1656) = lu(k,1656) - lu(k,1255) * lu(k,1641) + lu(k,1657) = lu(k,1657) - lu(k,1256) * lu(k,1641) + lu(k,1658) = lu(k,1658) - lu(k,1257) * lu(k,1641) + lu(k,1659) = lu(k,1659) - lu(k,1258) * lu(k,1641) + lu(k,1660) = lu(k,1660) - lu(k,1259) * lu(k,1641) + lu(k,1684) = lu(k,1684) - lu(k,1241) * lu(k,1683) + lu(k,1685) = lu(k,1685) - lu(k,1242) * lu(k,1683) + lu(k,1686) = lu(k,1686) - lu(k,1243) * lu(k,1683) + lu(k,1687) = lu(k,1687) - lu(k,1244) * lu(k,1683) + lu(k,1688) = lu(k,1688) - lu(k,1245) * lu(k,1683) + lu(k,1689) = lu(k,1689) - lu(k,1246) * lu(k,1683) + lu(k,1690) = lu(k,1690) - lu(k,1247) * lu(k,1683) + lu(k,1691) = lu(k,1691) - lu(k,1248) * lu(k,1683) + lu(k,1692) = lu(k,1692) - lu(k,1249) * lu(k,1683) + lu(k,1693) = lu(k,1693) - lu(k,1250) * lu(k,1683) + lu(k,1694) = lu(k,1694) - lu(k,1251) * lu(k,1683) + lu(k,1695) = lu(k,1695) - lu(k,1252) * lu(k,1683) + lu(k,1696) = lu(k,1696) - lu(k,1253) * lu(k,1683) + lu(k,1697) = lu(k,1697) - lu(k,1254) * lu(k,1683) + lu(k,1698) = lu(k,1698) - lu(k,1255) * lu(k,1683) + lu(k,1699) = lu(k,1699) - lu(k,1256) * lu(k,1683) + lu(k,1700) = lu(k,1700) - lu(k,1257) * lu(k,1683) + lu(k,1701) = lu(k,1701) - lu(k,1258) * lu(k,1683) + lu(k,1702) = lu(k,1702) - lu(k,1259) * lu(k,1683) + lu(k,1724) = lu(k,1724) - lu(k,1241) * lu(k,1723) + lu(k,1725) = lu(k,1725) - lu(k,1242) * lu(k,1723) + lu(k,1726) = lu(k,1726) - lu(k,1243) * lu(k,1723) + lu(k,1727) = lu(k,1727) - lu(k,1244) * lu(k,1723) + lu(k,1728) = lu(k,1728) - lu(k,1245) * lu(k,1723) + lu(k,1729) = lu(k,1729) - lu(k,1246) * lu(k,1723) + lu(k,1730) = lu(k,1730) - lu(k,1247) * lu(k,1723) + lu(k,1731) = lu(k,1731) - lu(k,1248) * lu(k,1723) + lu(k,1732) = lu(k,1732) - lu(k,1249) * lu(k,1723) + lu(k,1733) = lu(k,1733) - lu(k,1250) * lu(k,1723) + lu(k,1734) = lu(k,1734) - lu(k,1251) * lu(k,1723) + lu(k,1735) = lu(k,1735) - lu(k,1252) * lu(k,1723) + lu(k,1736) = lu(k,1736) - lu(k,1253) * lu(k,1723) + lu(k,1737) = lu(k,1737) - lu(k,1254) * lu(k,1723) + lu(k,1738) = lu(k,1738) - lu(k,1255) * lu(k,1723) + lu(k,1739) = lu(k,1739) - lu(k,1256) * lu(k,1723) + lu(k,1740) = lu(k,1740) - lu(k,1257) * lu(k,1723) + lu(k,1741) = lu(k,1741) - lu(k,1258) * lu(k,1723) + lu(k,1742) = lu(k,1742) - lu(k,1259) * lu(k,1723) + lu(k,1760) = lu(k,1760) - lu(k,1241) * lu(k,1759) + lu(k,1761) = lu(k,1761) - lu(k,1242) * lu(k,1759) + lu(k,1762) = lu(k,1762) - lu(k,1243) * lu(k,1759) + lu(k,1763) = lu(k,1763) - lu(k,1244) * lu(k,1759) + lu(k,1764) = lu(k,1764) - lu(k,1245) * lu(k,1759) + lu(k,1765) = lu(k,1765) - lu(k,1246) * lu(k,1759) + lu(k,1766) = lu(k,1766) - lu(k,1247) * lu(k,1759) + lu(k,1767) = lu(k,1767) - lu(k,1248) * lu(k,1759) + lu(k,1768) = lu(k,1768) - lu(k,1249) * lu(k,1759) + lu(k,1769) = lu(k,1769) - lu(k,1250) * lu(k,1759) + lu(k,1770) = lu(k,1770) - lu(k,1251) * lu(k,1759) + lu(k,1771) = lu(k,1771) - lu(k,1252) * lu(k,1759) + lu(k,1772) = lu(k,1772) - lu(k,1253) * lu(k,1759) + lu(k,1773) = lu(k,1773) - lu(k,1254) * lu(k,1759) + lu(k,1774) = lu(k,1774) - lu(k,1255) * lu(k,1759) + lu(k,1775) = lu(k,1775) - lu(k,1256) * lu(k,1759) + lu(k,1776) = lu(k,1776) - lu(k,1257) * lu(k,1759) + lu(k,1777) = lu(k,1777) - lu(k,1258) * lu(k,1759) + lu(k,1778) = lu(k,1778) - lu(k,1259) * lu(k,1759) + lu(k,1808) = lu(k,1808) - lu(k,1241) * lu(k,1807) + lu(k,1809) = lu(k,1809) - lu(k,1242) * lu(k,1807) + lu(k,1810) = lu(k,1810) - lu(k,1243) * lu(k,1807) + lu(k,1811) = lu(k,1811) - lu(k,1244) * lu(k,1807) + lu(k,1812) = lu(k,1812) - lu(k,1245) * lu(k,1807) + lu(k,1813) = lu(k,1813) - lu(k,1246) * lu(k,1807) + lu(k,1814) = lu(k,1814) - lu(k,1247) * lu(k,1807) + lu(k,1815) = lu(k,1815) - lu(k,1248) * lu(k,1807) + lu(k,1816) = lu(k,1816) - lu(k,1249) * lu(k,1807) + lu(k,1817) = lu(k,1817) - lu(k,1250) * lu(k,1807) + lu(k,1818) = lu(k,1818) - lu(k,1251) * lu(k,1807) + lu(k,1819) = lu(k,1819) - lu(k,1252) * lu(k,1807) + lu(k,1820) = lu(k,1820) - lu(k,1253) * lu(k,1807) + lu(k,1821) = lu(k,1821) - lu(k,1254) * lu(k,1807) + lu(k,1822) = lu(k,1822) - lu(k,1255) * lu(k,1807) + lu(k,1823) = lu(k,1823) - lu(k,1256) * lu(k,1807) + lu(k,1824) = lu(k,1824) - lu(k,1257) * lu(k,1807) + lu(k,1825) = lu(k,1825) - lu(k,1258) * lu(k,1807) + lu(k,1826) = lu(k,1826) - lu(k,1259) * lu(k,1807) + lu(k,1841) = lu(k,1841) - lu(k,1241) * lu(k,1840) + lu(k,1842) = lu(k,1842) - lu(k,1242) * lu(k,1840) + lu(k,1843) = lu(k,1843) - lu(k,1243) * lu(k,1840) + lu(k,1844) = lu(k,1844) - lu(k,1244) * lu(k,1840) + lu(k,1845) = lu(k,1845) - lu(k,1245) * lu(k,1840) + lu(k,1846) = lu(k,1846) - lu(k,1246) * lu(k,1840) + lu(k,1847) = lu(k,1847) - lu(k,1247) * lu(k,1840) + lu(k,1848) = lu(k,1848) - lu(k,1248) * lu(k,1840) + lu(k,1849) = lu(k,1849) - lu(k,1249) * lu(k,1840) + lu(k,1850) = lu(k,1850) - lu(k,1250) * lu(k,1840) + lu(k,1851) = lu(k,1851) - lu(k,1251) * lu(k,1840) + lu(k,1852) = lu(k,1852) - lu(k,1252) * lu(k,1840) + lu(k,1853) = lu(k,1853) - lu(k,1253) * lu(k,1840) + lu(k,1854) = lu(k,1854) - lu(k,1254) * lu(k,1840) + lu(k,1855) = lu(k,1855) - lu(k,1255) * lu(k,1840) + lu(k,1856) = lu(k,1856) - lu(k,1256) * lu(k,1840) + lu(k,1857) = lu(k,1857) - lu(k,1257) * lu(k,1840) + lu(k,1858) = lu(k,1858) - lu(k,1258) * lu(k,1840) + lu(k,1859) = lu(k,1859) - lu(k,1259) * lu(k,1840) + lu(k,1877) = lu(k,1877) - lu(k,1241) * lu(k,1876) + lu(k,1878) = lu(k,1878) - lu(k,1242) * lu(k,1876) + lu(k,1879) = lu(k,1879) - lu(k,1243) * lu(k,1876) + lu(k,1880) = lu(k,1880) - lu(k,1244) * lu(k,1876) + lu(k,1881) = lu(k,1881) - lu(k,1245) * lu(k,1876) + lu(k,1882) = lu(k,1882) - lu(k,1246) * lu(k,1876) + lu(k,1883) = lu(k,1883) - lu(k,1247) * lu(k,1876) + lu(k,1884) = lu(k,1884) - lu(k,1248) * lu(k,1876) + lu(k,1885) = lu(k,1885) - lu(k,1249) * lu(k,1876) + lu(k,1886) = lu(k,1886) - lu(k,1250) * lu(k,1876) + lu(k,1887) = lu(k,1887) - lu(k,1251) * lu(k,1876) + lu(k,1888) = lu(k,1888) - lu(k,1252) * lu(k,1876) + lu(k,1889) = lu(k,1889) - lu(k,1253) * lu(k,1876) + lu(k,1890) = lu(k,1890) - lu(k,1254) * lu(k,1876) + lu(k,1891) = lu(k,1891) - lu(k,1255) * lu(k,1876) + lu(k,1892) = lu(k,1892) - lu(k,1256) * lu(k,1876) + lu(k,1893) = lu(k,1893) - lu(k,1257) * lu(k,1876) + lu(k,1894) = lu(k,1894) - lu(k,1258) * lu(k,1876) + lu(k,1895) = lu(k,1895) - lu(k,1259) * lu(k,1876) + lu(k,1926) = lu(k,1926) - lu(k,1241) * lu(k,1925) + lu(k,1927) = lu(k,1927) - lu(k,1242) * lu(k,1925) + lu(k,1928) = lu(k,1928) - lu(k,1243) * lu(k,1925) + lu(k,1929) = lu(k,1929) - lu(k,1244) * lu(k,1925) + lu(k,1930) = lu(k,1930) - lu(k,1245) * lu(k,1925) + lu(k,1931) = lu(k,1931) - lu(k,1246) * lu(k,1925) + lu(k,1932) = lu(k,1932) - lu(k,1247) * lu(k,1925) + lu(k,1933) = lu(k,1933) - lu(k,1248) * lu(k,1925) + lu(k,1934) = lu(k,1934) - lu(k,1249) * lu(k,1925) + lu(k,1935) = lu(k,1935) - lu(k,1250) * lu(k,1925) + lu(k,1936) = lu(k,1936) - lu(k,1251) * lu(k,1925) + lu(k,1937) = lu(k,1937) - lu(k,1252) * lu(k,1925) + lu(k,1938) = lu(k,1938) - lu(k,1253) * lu(k,1925) + lu(k,1939) = lu(k,1939) - lu(k,1254) * lu(k,1925) + lu(k,1940) = lu(k,1940) - lu(k,1255) * lu(k,1925) + lu(k,1941) = lu(k,1941) - lu(k,1256) * lu(k,1925) + lu(k,1942) = lu(k,1942) - lu(k,1257) * lu(k,1925) + lu(k,1943) = lu(k,1943) - lu(k,1258) * lu(k,1925) + lu(k,1944) = lu(k,1944) - lu(k,1259) * lu(k,1925) + lu(k,1970) = lu(k,1970) - lu(k,1241) * lu(k,1969) + lu(k,1971) = lu(k,1971) - lu(k,1242) * lu(k,1969) + lu(k,1972) = lu(k,1972) - lu(k,1243) * lu(k,1969) + lu(k,1973) = lu(k,1973) - lu(k,1244) * lu(k,1969) + lu(k,1974) = lu(k,1974) - lu(k,1245) * lu(k,1969) + lu(k,1975) = lu(k,1975) - lu(k,1246) * lu(k,1969) + lu(k,1976) = lu(k,1976) - lu(k,1247) * lu(k,1969) + lu(k,1977) = lu(k,1977) - lu(k,1248) * lu(k,1969) + lu(k,1978) = lu(k,1978) - lu(k,1249) * lu(k,1969) + lu(k,1979) = lu(k,1979) - lu(k,1250) * lu(k,1969) + lu(k,1980) = lu(k,1980) - lu(k,1251) * lu(k,1969) + lu(k,1981) = lu(k,1981) - lu(k,1252) * lu(k,1969) + lu(k,1982) = lu(k,1982) - lu(k,1253) * lu(k,1969) + lu(k,1983) = lu(k,1983) - lu(k,1254) * lu(k,1969) + lu(k,1984) = lu(k,1984) - lu(k,1255) * lu(k,1969) + lu(k,1985) = lu(k,1985) - lu(k,1256) * lu(k,1969) + lu(k,1986) = lu(k,1986) - lu(k,1257) * lu(k,1969) + lu(k,1987) = lu(k,1987) - lu(k,1258) * lu(k,1969) + lu(k,1988) = lu(k,1988) - lu(k,1259) * lu(k,1969) + lu(k,2015) = lu(k,2015) - lu(k,1241) * lu(k,2014) + lu(k,2016) = lu(k,2016) - lu(k,1242) * lu(k,2014) + lu(k,2017) = lu(k,2017) - lu(k,1243) * lu(k,2014) + lu(k,2018) = lu(k,2018) - lu(k,1244) * lu(k,2014) + lu(k,2019) = lu(k,2019) - lu(k,1245) * lu(k,2014) + lu(k,2020) = lu(k,2020) - lu(k,1246) * lu(k,2014) + lu(k,2021) = lu(k,2021) - lu(k,1247) * lu(k,2014) + lu(k,2022) = lu(k,2022) - lu(k,1248) * lu(k,2014) + lu(k,2023) = lu(k,2023) - lu(k,1249) * lu(k,2014) + lu(k,2024) = lu(k,2024) - lu(k,1250) * lu(k,2014) + lu(k,2025) = lu(k,2025) - lu(k,1251) * lu(k,2014) + lu(k,2026) = lu(k,2026) - lu(k,1252) * lu(k,2014) + lu(k,2027) = lu(k,2027) - lu(k,1253) * lu(k,2014) + lu(k,2028) = lu(k,2028) - lu(k,1254) * lu(k,2014) + lu(k,2029) = lu(k,2029) - lu(k,1255) * lu(k,2014) + lu(k,2030) = lu(k,2030) - lu(k,1256) * lu(k,2014) + lu(k,2031) = lu(k,2031) - lu(k,1257) * lu(k,2014) + lu(k,2032) = lu(k,2032) - lu(k,1258) * lu(k,2014) + lu(k,2033) = lu(k,2033) - lu(k,1259) * lu(k,2014) + lu(k,2075) = lu(k,2075) - lu(k,1241) * lu(k,2074) + lu(k,2076) = lu(k,2076) - lu(k,1242) * lu(k,2074) + lu(k,2077) = lu(k,2077) - lu(k,1243) * lu(k,2074) + lu(k,2078) = lu(k,2078) - lu(k,1244) * lu(k,2074) + lu(k,2079) = lu(k,2079) - lu(k,1245) * lu(k,2074) + lu(k,2080) = lu(k,2080) - lu(k,1246) * lu(k,2074) + lu(k,2081) = lu(k,2081) - lu(k,1247) * lu(k,2074) + lu(k,2082) = lu(k,2082) - lu(k,1248) * lu(k,2074) + lu(k,2083) = lu(k,2083) - lu(k,1249) * lu(k,2074) + lu(k,2084) = lu(k,2084) - lu(k,1250) * lu(k,2074) + lu(k,2085) = lu(k,2085) - lu(k,1251) * lu(k,2074) + lu(k,2086) = lu(k,2086) - lu(k,1252) * lu(k,2074) + lu(k,2087) = lu(k,2087) - lu(k,1253) * lu(k,2074) + lu(k,2088) = lu(k,2088) - lu(k,1254) * lu(k,2074) + lu(k,2089) = lu(k,2089) - lu(k,1255) * lu(k,2074) + lu(k,2090) = lu(k,2090) - lu(k,1256) * lu(k,2074) + lu(k,2091) = lu(k,2091) - lu(k,1257) * lu(k,2074) + lu(k,2092) = lu(k,2092) - lu(k,1258) * lu(k,2074) + lu(k,2093) = lu(k,2093) - lu(k,1259) * lu(k,2074) lu(k,1284) = 1._r8 / lu(k,1284) lu(k,1285) = lu(k,1285) * lu(k,1284) lu(k,1286) = lu(k,1286) * lu(k,1284) @@ -11931,294 +11971,294 @@ subroutine lu_fac23( avec_len, lu ) lu(k,1402) = lu(k,1402) - lu(k,1300) * lu(k,1386) lu(k,1403) = lu(k,1403) - lu(k,1301) * lu(k,1386) lu(k,1404) = lu(k,1404) - lu(k,1302) * lu(k,1386) - lu(k,1436) = lu(k,1436) - lu(k,1285) * lu(k,1435) - lu(k,1437) = lu(k,1437) - lu(k,1286) * lu(k,1435) - lu(k,1438) = lu(k,1438) - lu(k,1287) * lu(k,1435) - lu(k,1439) = lu(k,1439) - lu(k,1288) * lu(k,1435) - lu(k,1440) = lu(k,1440) - lu(k,1289) * lu(k,1435) - lu(k,1441) = lu(k,1441) - lu(k,1290) * lu(k,1435) - lu(k,1442) = lu(k,1442) - lu(k,1291) * lu(k,1435) - lu(k,1443) = lu(k,1443) - lu(k,1292) * lu(k,1435) - lu(k,1444) = lu(k,1444) - lu(k,1293) * lu(k,1435) - lu(k,1445) = lu(k,1445) - lu(k,1294) * lu(k,1435) - lu(k,1446) = lu(k,1446) - lu(k,1295) * lu(k,1435) - lu(k,1447) = lu(k,1447) - lu(k,1296) * lu(k,1435) - lu(k,1448) = lu(k,1448) - lu(k,1297) * lu(k,1435) - lu(k,1449) = lu(k,1449) - lu(k,1298) * lu(k,1435) - lu(k,1450) = lu(k,1450) - lu(k,1299) * lu(k,1435) - lu(k,1451) = lu(k,1451) - lu(k,1300) * lu(k,1435) - lu(k,1452) = lu(k,1452) - lu(k,1301) * lu(k,1435) - lu(k,1453) = lu(k,1453) - lu(k,1302) * lu(k,1435) - lu(k,1484) = lu(k,1484) - lu(k,1285) * lu(k,1483) - lu(k,1485) = lu(k,1485) - lu(k,1286) * lu(k,1483) - lu(k,1486) = lu(k,1486) - lu(k,1287) * lu(k,1483) - lu(k,1487) = lu(k,1487) - lu(k,1288) * lu(k,1483) - lu(k,1488) = lu(k,1488) - lu(k,1289) * lu(k,1483) - lu(k,1489) = lu(k,1489) - lu(k,1290) * lu(k,1483) - lu(k,1490) = lu(k,1490) - lu(k,1291) * lu(k,1483) - lu(k,1491) = lu(k,1491) - lu(k,1292) * lu(k,1483) - lu(k,1492) = lu(k,1492) - lu(k,1293) * lu(k,1483) - lu(k,1493) = lu(k,1493) - lu(k,1294) * lu(k,1483) - lu(k,1494) = lu(k,1494) - lu(k,1295) * lu(k,1483) - lu(k,1495) = lu(k,1495) - lu(k,1296) * lu(k,1483) - lu(k,1496) = lu(k,1496) - lu(k,1297) * lu(k,1483) - lu(k,1497) = lu(k,1497) - lu(k,1298) * lu(k,1483) - lu(k,1498) = lu(k,1498) - lu(k,1299) * lu(k,1483) - lu(k,1499) = lu(k,1499) - lu(k,1300) * lu(k,1483) - lu(k,1500) = lu(k,1500) - lu(k,1301) * lu(k,1483) - lu(k,1501) = lu(k,1501) - lu(k,1302) * lu(k,1483) - lu(k,1525) = lu(k,1525) - lu(k,1285) * lu(k,1524) - lu(k,1526) = lu(k,1526) - lu(k,1286) * lu(k,1524) - lu(k,1527) = lu(k,1527) - lu(k,1287) * lu(k,1524) - lu(k,1528) = lu(k,1528) - lu(k,1288) * lu(k,1524) - lu(k,1529) = lu(k,1529) - lu(k,1289) * lu(k,1524) - lu(k,1530) = lu(k,1530) - lu(k,1290) * lu(k,1524) - lu(k,1531) = lu(k,1531) - lu(k,1291) * lu(k,1524) - lu(k,1532) = lu(k,1532) - lu(k,1292) * lu(k,1524) - lu(k,1533) = lu(k,1533) - lu(k,1293) * lu(k,1524) - lu(k,1534) = lu(k,1534) - lu(k,1294) * lu(k,1524) - lu(k,1535) = lu(k,1535) - lu(k,1295) * lu(k,1524) - lu(k,1536) = lu(k,1536) - lu(k,1296) * lu(k,1524) - lu(k,1537) = lu(k,1537) - lu(k,1297) * lu(k,1524) - lu(k,1538) = lu(k,1538) - lu(k,1298) * lu(k,1524) - lu(k,1539) = lu(k,1539) - lu(k,1299) * lu(k,1524) - lu(k,1540) = lu(k,1540) - lu(k,1300) * lu(k,1524) - lu(k,1541) = lu(k,1541) - lu(k,1301) * lu(k,1524) - lu(k,1542) = lu(k,1542) - lu(k,1302) * lu(k,1524) - lu(k,1561) = lu(k,1561) - lu(k,1285) * lu(k,1560) - lu(k,1562) = lu(k,1562) - lu(k,1286) * lu(k,1560) - lu(k,1563) = lu(k,1563) - lu(k,1287) * lu(k,1560) - lu(k,1564) = lu(k,1564) - lu(k,1288) * lu(k,1560) - lu(k,1565) = lu(k,1565) - lu(k,1289) * lu(k,1560) - lu(k,1566) = lu(k,1566) - lu(k,1290) * lu(k,1560) - lu(k,1567) = lu(k,1567) - lu(k,1291) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,1292) * lu(k,1560) - lu(k,1569) = lu(k,1569) - lu(k,1293) * lu(k,1560) - lu(k,1570) = lu(k,1570) - lu(k,1294) * lu(k,1560) - lu(k,1571) = lu(k,1571) - lu(k,1295) * lu(k,1560) - lu(k,1572) = lu(k,1572) - lu(k,1296) * lu(k,1560) - lu(k,1573) = lu(k,1573) - lu(k,1297) * lu(k,1560) - lu(k,1574) = lu(k,1574) - lu(k,1298) * lu(k,1560) - lu(k,1575) = lu(k,1575) - lu(k,1299) * lu(k,1560) - lu(k,1576) = lu(k,1576) - lu(k,1300) * lu(k,1560) - lu(k,1577) = lu(k,1577) - lu(k,1301) * lu(k,1560) - lu(k,1578) = lu(k,1578) - lu(k,1302) * lu(k,1560) - lu(k,1606) = lu(k,1606) - lu(k,1285) * lu(k,1605) - lu(k,1607) = lu(k,1607) - lu(k,1286) * lu(k,1605) - lu(k,1608) = lu(k,1608) - lu(k,1287) * lu(k,1605) - lu(k,1609) = lu(k,1609) - lu(k,1288) * lu(k,1605) - lu(k,1610) = lu(k,1610) - lu(k,1289) * lu(k,1605) - lu(k,1611) = lu(k,1611) - lu(k,1290) * lu(k,1605) - lu(k,1612) = lu(k,1612) - lu(k,1291) * lu(k,1605) - lu(k,1613) = lu(k,1613) - lu(k,1292) * lu(k,1605) - lu(k,1614) = lu(k,1614) - lu(k,1293) * lu(k,1605) - lu(k,1615) = lu(k,1615) - lu(k,1294) * lu(k,1605) - lu(k,1616) = lu(k,1616) - lu(k,1295) * lu(k,1605) - lu(k,1617) = lu(k,1617) - lu(k,1296) * lu(k,1605) - lu(k,1618) = lu(k,1618) - lu(k,1297) * lu(k,1605) - lu(k,1619) = lu(k,1619) - lu(k,1298) * lu(k,1605) - lu(k,1620) = lu(k,1620) - lu(k,1299) * lu(k,1605) - lu(k,1621) = lu(k,1621) - lu(k,1300) * lu(k,1605) - lu(k,1622) = lu(k,1622) - lu(k,1301) * lu(k,1605) - lu(k,1623) = lu(k,1623) - lu(k,1302) * lu(k,1605) - lu(k,1649) = lu(k,1649) - lu(k,1285) * lu(k,1648) - lu(k,1650) = lu(k,1650) - lu(k,1286) * lu(k,1648) - lu(k,1651) = lu(k,1651) - lu(k,1287) * lu(k,1648) - lu(k,1652) = lu(k,1652) - lu(k,1288) * lu(k,1648) - lu(k,1653) = lu(k,1653) - lu(k,1289) * lu(k,1648) - lu(k,1654) = lu(k,1654) - lu(k,1290) * lu(k,1648) - lu(k,1655) = lu(k,1655) - lu(k,1291) * lu(k,1648) - lu(k,1656) = lu(k,1656) - lu(k,1292) * lu(k,1648) - lu(k,1657) = lu(k,1657) - lu(k,1293) * lu(k,1648) - lu(k,1658) = lu(k,1658) - lu(k,1294) * lu(k,1648) - lu(k,1659) = lu(k,1659) - lu(k,1295) * lu(k,1648) - lu(k,1660) = lu(k,1660) - lu(k,1296) * lu(k,1648) - lu(k,1661) = lu(k,1661) - lu(k,1297) * lu(k,1648) - lu(k,1662) = lu(k,1662) - lu(k,1298) * lu(k,1648) - lu(k,1663) = lu(k,1663) - lu(k,1299) * lu(k,1648) - lu(k,1664) = lu(k,1664) - lu(k,1300) * lu(k,1648) - lu(k,1665) = lu(k,1665) - lu(k,1301) * lu(k,1648) - lu(k,1666) = lu(k,1666) - lu(k,1302) * lu(k,1648) - lu(k,1692) = lu(k,1692) - lu(k,1285) * lu(k,1691) - lu(k,1693) = lu(k,1693) - lu(k,1286) * lu(k,1691) - lu(k,1694) = lu(k,1694) - lu(k,1287) * lu(k,1691) - lu(k,1695) = lu(k,1695) - lu(k,1288) * lu(k,1691) - lu(k,1696) = lu(k,1696) - lu(k,1289) * lu(k,1691) - lu(k,1697) = lu(k,1697) - lu(k,1290) * lu(k,1691) - lu(k,1698) = lu(k,1698) - lu(k,1291) * lu(k,1691) - lu(k,1699) = lu(k,1699) - lu(k,1292) * lu(k,1691) - lu(k,1700) = lu(k,1700) - lu(k,1293) * lu(k,1691) - lu(k,1701) = lu(k,1701) - lu(k,1294) * lu(k,1691) - lu(k,1702) = lu(k,1702) - lu(k,1295) * lu(k,1691) - lu(k,1703) = lu(k,1703) - lu(k,1296) * lu(k,1691) - lu(k,1704) = lu(k,1704) - lu(k,1297) * lu(k,1691) - lu(k,1705) = lu(k,1705) - lu(k,1298) * lu(k,1691) - lu(k,1706) = lu(k,1706) - lu(k,1299) * lu(k,1691) - lu(k,1707) = lu(k,1707) - lu(k,1300) * lu(k,1691) - lu(k,1708) = lu(k,1708) - lu(k,1301) * lu(k,1691) - lu(k,1709) = lu(k,1709) - lu(k,1302) * lu(k,1691) - lu(k,1732) = lu(k,1732) - lu(k,1285) * lu(k,1731) - lu(k,1733) = lu(k,1733) - lu(k,1286) * lu(k,1731) - lu(k,1734) = lu(k,1734) - lu(k,1287) * lu(k,1731) - lu(k,1735) = lu(k,1735) - lu(k,1288) * lu(k,1731) - lu(k,1736) = lu(k,1736) - lu(k,1289) * lu(k,1731) - lu(k,1737) = lu(k,1737) - lu(k,1290) * lu(k,1731) - lu(k,1738) = lu(k,1738) - lu(k,1291) * lu(k,1731) - lu(k,1739) = lu(k,1739) - lu(k,1292) * lu(k,1731) - lu(k,1740) = lu(k,1740) - lu(k,1293) * lu(k,1731) - lu(k,1741) = lu(k,1741) - lu(k,1294) * lu(k,1731) - lu(k,1742) = lu(k,1742) - lu(k,1295) * lu(k,1731) - lu(k,1743) = lu(k,1743) - lu(k,1296) * lu(k,1731) - lu(k,1744) = lu(k,1744) - lu(k,1297) * lu(k,1731) - lu(k,1745) = lu(k,1745) - lu(k,1298) * lu(k,1731) - lu(k,1746) = lu(k,1746) - lu(k,1299) * lu(k,1731) - lu(k,1747) = lu(k,1747) - lu(k,1300) * lu(k,1731) - lu(k,1748) = lu(k,1748) - lu(k,1301) * lu(k,1731) - lu(k,1749) = lu(k,1749) - lu(k,1302) * lu(k,1731) - lu(k,1768) = lu(k,1768) - lu(k,1285) * lu(k,1767) - lu(k,1769) = lu(k,1769) - lu(k,1286) * lu(k,1767) - lu(k,1770) = lu(k,1770) - lu(k,1287) * lu(k,1767) - lu(k,1771) = lu(k,1771) - lu(k,1288) * lu(k,1767) - lu(k,1772) = lu(k,1772) - lu(k,1289) * lu(k,1767) - lu(k,1773) = lu(k,1773) - lu(k,1290) * lu(k,1767) - lu(k,1774) = lu(k,1774) - lu(k,1291) * lu(k,1767) - lu(k,1775) = lu(k,1775) - lu(k,1292) * lu(k,1767) - lu(k,1776) = lu(k,1776) - lu(k,1293) * lu(k,1767) - lu(k,1777) = lu(k,1777) - lu(k,1294) * lu(k,1767) - lu(k,1778) = lu(k,1778) - lu(k,1295) * lu(k,1767) - lu(k,1779) = lu(k,1779) - lu(k,1296) * lu(k,1767) - lu(k,1780) = lu(k,1780) - lu(k,1297) * lu(k,1767) - lu(k,1781) = lu(k,1781) - lu(k,1298) * lu(k,1767) - lu(k,1782) = lu(k,1782) - lu(k,1299) * lu(k,1767) - lu(k,1783) = lu(k,1783) - lu(k,1300) * lu(k,1767) - lu(k,1784) = lu(k,1784) - lu(k,1301) * lu(k,1767) - lu(k,1785) = lu(k,1785) - lu(k,1302) * lu(k,1767) - lu(k,1816) = lu(k,1816) - lu(k,1285) * lu(k,1815) - lu(k,1817) = lu(k,1817) - lu(k,1286) * lu(k,1815) - lu(k,1818) = lu(k,1818) - lu(k,1287) * lu(k,1815) - lu(k,1819) = lu(k,1819) - lu(k,1288) * lu(k,1815) - lu(k,1820) = lu(k,1820) - lu(k,1289) * lu(k,1815) - lu(k,1821) = lu(k,1821) - lu(k,1290) * lu(k,1815) - lu(k,1822) = lu(k,1822) - lu(k,1291) * lu(k,1815) - lu(k,1823) = lu(k,1823) - lu(k,1292) * lu(k,1815) - lu(k,1824) = lu(k,1824) - lu(k,1293) * lu(k,1815) - lu(k,1825) = lu(k,1825) - lu(k,1294) * lu(k,1815) - lu(k,1826) = lu(k,1826) - lu(k,1295) * lu(k,1815) - lu(k,1827) = lu(k,1827) - lu(k,1296) * lu(k,1815) - lu(k,1828) = lu(k,1828) - lu(k,1297) * lu(k,1815) - lu(k,1829) = lu(k,1829) - lu(k,1298) * lu(k,1815) - lu(k,1830) = lu(k,1830) - lu(k,1299) * lu(k,1815) - lu(k,1831) = lu(k,1831) - lu(k,1300) * lu(k,1815) - lu(k,1832) = lu(k,1832) - lu(k,1301) * lu(k,1815) - lu(k,1833) = lu(k,1833) - lu(k,1302) * lu(k,1815) - lu(k,1849) = lu(k,1849) - lu(k,1285) * lu(k,1848) - lu(k,1850) = lu(k,1850) - lu(k,1286) * lu(k,1848) - lu(k,1851) = lu(k,1851) - lu(k,1287) * lu(k,1848) - lu(k,1852) = lu(k,1852) - lu(k,1288) * lu(k,1848) - lu(k,1853) = lu(k,1853) - lu(k,1289) * lu(k,1848) - lu(k,1854) = lu(k,1854) - lu(k,1290) * lu(k,1848) - lu(k,1855) = lu(k,1855) - lu(k,1291) * lu(k,1848) - lu(k,1856) = lu(k,1856) - lu(k,1292) * lu(k,1848) - lu(k,1857) = lu(k,1857) - lu(k,1293) * lu(k,1848) - lu(k,1858) = lu(k,1858) - lu(k,1294) * lu(k,1848) - lu(k,1859) = lu(k,1859) - lu(k,1295) * lu(k,1848) - lu(k,1860) = lu(k,1860) - lu(k,1296) * lu(k,1848) - lu(k,1861) = lu(k,1861) - lu(k,1297) * lu(k,1848) - lu(k,1862) = lu(k,1862) - lu(k,1298) * lu(k,1848) - lu(k,1863) = lu(k,1863) - lu(k,1299) * lu(k,1848) - lu(k,1864) = lu(k,1864) - lu(k,1300) * lu(k,1848) - lu(k,1865) = lu(k,1865) - lu(k,1301) * lu(k,1848) - lu(k,1866) = lu(k,1866) - lu(k,1302) * lu(k,1848) - lu(k,1885) = lu(k,1885) - lu(k,1285) * lu(k,1884) - lu(k,1886) = lu(k,1886) - lu(k,1286) * lu(k,1884) - lu(k,1887) = lu(k,1887) - lu(k,1287) * lu(k,1884) - lu(k,1888) = lu(k,1888) - lu(k,1288) * lu(k,1884) - lu(k,1889) = lu(k,1889) - lu(k,1289) * lu(k,1884) - lu(k,1890) = lu(k,1890) - lu(k,1290) * lu(k,1884) - lu(k,1891) = lu(k,1891) - lu(k,1291) * lu(k,1884) - lu(k,1892) = lu(k,1892) - lu(k,1292) * lu(k,1884) - lu(k,1893) = lu(k,1893) - lu(k,1293) * lu(k,1884) - lu(k,1894) = lu(k,1894) - lu(k,1294) * lu(k,1884) - lu(k,1895) = lu(k,1895) - lu(k,1295) * lu(k,1884) - lu(k,1896) = lu(k,1896) - lu(k,1296) * lu(k,1884) - lu(k,1897) = lu(k,1897) - lu(k,1297) * lu(k,1884) - lu(k,1898) = lu(k,1898) - lu(k,1298) * lu(k,1884) - lu(k,1899) = lu(k,1899) - lu(k,1299) * lu(k,1884) - lu(k,1900) = lu(k,1900) - lu(k,1300) * lu(k,1884) - lu(k,1901) = lu(k,1901) - lu(k,1301) * lu(k,1884) - lu(k,1902) = lu(k,1902) - lu(k,1302) * lu(k,1884) - lu(k,1926) = lu(k,1926) - lu(k,1285) * lu(k,1925) - lu(k,1927) = lu(k,1927) - lu(k,1286) * lu(k,1925) - lu(k,1928) = lu(k,1928) - lu(k,1287) * lu(k,1925) - lu(k,1929) = lu(k,1929) - lu(k,1288) * lu(k,1925) - lu(k,1930) = lu(k,1930) - lu(k,1289) * lu(k,1925) - lu(k,1931) = lu(k,1931) - lu(k,1290) * lu(k,1925) - lu(k,1932) = lu(k,1932) - lu(k,1291) * lu(k,1925) - lu(k,1933) = lu(k,1933) - lu(k,1292) * lu(k,1925) - lu(k,1934) = lu(k,1934) - lu(k,1293) * lu(k,1925) - lu(k,1935) = lu(k,1935) - lu(k,1294) * lu(k,1925) - lu(k,1936) = lu(k,1936) - lu(k,1295) * lu(k,1925) - lu(k,1937) = lu(k,1937) - lu(k,1296) * lu(k,1925) - lu(k,1938) = lu(k,1938) - lu(k,1297) * lu(k,1925) - lu(k,1939) = lu(k,1939) - lu(k,1298) * lu(k,1925) - lu(k,1940) = lu(k,1940) - lu(k,1299) * lu(k,1925) - lu(k,1941) = lu(k,1941) - lu(k,1300) * lu(k,1925) - lu(k,1942) = lu(k,1942) - lu(k,1301) * lu(k,1925) - lu(k,1943) = lu(k,1943) - lu(k,1302) * lu(k,1925) - lu(k,1968) = lu(k,1968) - lu(k,1285) * lu(k,1967) - lu(k,1969) = lu(k,1969) - lu(k,1286) * lu(k,1967) - lu(k,1970) = lu(k,1970) - lu(k,1287) * lu(k,1967) - lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1967) - lu(k,1972) = lu(k,1972) - lu(k,1289) * lu(k,1967) - lu(k,1973) = lu(k,1973) - lu(k,1290) * lu(k,1967) - lu(k,1974) = lu(k,1974) - lu(k,1291) * lu(k,1967) - lu(k,1975) = lu(k,1975) - lu(k,1292) * lu(k,1967) - lu(k,1976) = lu(k,1976) - lu(k,1293) * lu(k,1967) - lu(k,1977) = lu(k,1977) - lu(k,1294) * lu(k,1967) - lu(k,1978) = lu(k,1978) - lu(k,1295) * lu(k,1967) - lu(k,1979) = lu(k,1979) - lu(k,1296) * lu(k,1967) - lu(k,1980) = lu(k,1980) - lu(k,1297) * lu(k,1967) - lu(k,1981) = lu(k,1981) - lu(k,1298) * lu(k,1967) - lu(k,1982) = lu(k,1982) - lu(k,1299) * lu(k,1967) - lu(k,1983) = lu(k,1983) - lu(k,1300) * lu(k,1967) - lu(k,1984) = lu(k,1984) - lu(k,1301) * lu(k,1967) - lu(k,1985) = lu(k,1985) - lu(k,1302) * lu(k,1967) - lu(k,2013) = lu(k,2013) - lu(k,1285) * lu(k,2012) - lu(k,2014) = lu(k,2014) - lu(k,1286) * lu(k,2012) - lu(k,2015) = lu(k,2015) - lu(k,1287) * lu(k,2012) - lu(k,2016) = lu(k,2016) - lu(k,1288) * lu(k,2012) - lu(k,2017) = lu(k,2017) - lu(k,1289) * lu(k,2012) - lu(k,2018) = lu(k,2018) - lu(k,1290) * lu(k,2012) - lu(k,2019) = lu(k,2019) - lu(k,1291) * lu(k,2012) - lu(k,2020) = lu(k,2020) - lu(k,1292) * lu(k,2012) - lu(k,2021) = lu(k,2021) - lu(k,1293) * lu(k,2012) - lu(k,2022) = lu(k,2022) - lu(k,1294) * lu(k,2012) - lu(k,2023) = lu(k,2023) - lu(k,1295) * lu(k,2012) - lu(k,2024) = lu(k,2024) - lu(k,1296) * lu(k,2012) - lu(k,2025) = lu(k,2025) - lu(k,1297) * lu(k,2012) - lu(k,2026) = lu(k,2026) - lu(k,1298) * lu(k,2012) - lu(k,2027) = lu(k,2027) - lu(k,1299) * lu(k,2012) - lu(k,2028) = lu(k,2028) - lu(k,1300) * lu(k,2012) - lu(k,2029) = lu(k,2029) - lu(k,1301) * lu(k,2012) - lu(k,2030) = lu(k,2030) - lu(k,1302) * lu(k,2012) - lu(k,2073) = lu(k,2073) - lu(k,1285) * lu(k,2072) - lu(k,2074) = lu(k,2074) - lu(k,1286) * lu(k,2072) - lu(k,2075) = lu(k,2075) - lu(k,1287) * lu(k,2072) - lu(k,2076) = lu(k,2076) - lu(k,1288) * lu(k,2072) - lu(k,2077) = lu(k,2077) - lu(k,1289) * lu(k,2072) - lu(k,2078) = lu(k,2078) - lu(k,1290) * lu(k,2072) - lu(k,2079) = lu(k,2079) - lu(k,1291) * lu(k,2072) - lu(k,2080) = lu(k,2080) - lu(k,1292) * lu(k,2072) - lu(k,2081) = lu(k,2081) - lu(k,1293) * lu(k,2072) - lu(k,2082) = lu(k,2082) - lu(k,1294) * lu(k,2072) - lu(k,2083) = lu(k,2083) - lu(k,1295) * lu(k,2072) - lu(k,2084) = lu(k,2084) - lu(k,1296) * lu(k,2072) - lu(k,2085) = lu(k,2085) - lu(k,1297) * lu(k,2072) - lu(k,2086) = lu(k,2086) - lu(k,1298) * lu(k,2072) - lu(k,2087) = lu(k,2087) - lu(k,1299) * lu(k,2072) - lu(k,2088) = lu(k,2088) - lu(k,1300) * lu(k,2072) - lu(k,2089) = lu(k,2089) - lu(k,1301) * lu(k,2072) - lu(k,2090) = lu(k,2090) - lu(k,1302) * lu(k,2072) + lu(k,1430) = lu(k,1430) - lu(k,1285) * lu(k,1429) + lu(k,1431) = lu(k,1431) - lu(k,1286) * lu(k,1429) + lu(k,1432) = lu(k,1432) - lu(k,1287) * lu(k,1429) + lu(k,1433) = lu(k,1433) - lu(k,1288) * lu(k,1429) + lu(k,1434) = lu(k,1434) - lu(k,1289) * lu(k,1429) + lu(k,1435) = lu(k,1435) - lu(k,1290) * lu(k,1429) + lu(k,1436) = lu(k,1436) - lu(k,1291) * lu(k,1429) + lu(k,1437) = lu(k,1437) - lu(k,1292) * lu(k,1429) + lu(k,1438) = lu(k,1438) - lu(k,1293) * lu(k,1429) + lu(k,1439) = lu(k,1439) - lu(k,1294) * lu(k,1429) + lu(k,1440) = lu(k,1440) - lu(k,1295) * lu(k,1429) + lu(k,1441) = lu(k,1441) - lu(k,1296) * lu(k,1429) + lu(k,1442) = lu(k,1442) - lu(k,1297) * lu(k,1429) + lu(k,1443) = lu(k,1443) - lu(k,1298) * lu(k,1429) + lu(k,1444) = lu(k,1444) - lu(k,1299) * lu(k,1429) + lu(k,1445) = lu(k,1445) - lu(k,1300) * lu(k,1429) + lu(k,1446) = lu(k,1446) - lu(k,1301) * lu(k,1429) + lu(k,1447) = lu(k,1447) - lu(k,1302) * lu(k,1429) + lu(k,1478) = lu(k,1478) - lu(k,1285) * lu(k,1477) + lu(k,1479) = lu(k,1479) - lu(k,1286) * lu(k,1477) + lu(k,1480) = lu(k,1480) - lu(k,1287) * lu(k,1477) + lu(k,1481) = lu(k,1481) - lu(k,1288) * lu(k,1477) + lu(k,1482) = lu(k,1482) - lu(k,1289) * lu(k,1477) + lu(k,1483) = lu(k,1483) - lu(k,1290) * lu(k,1477) + lu(k,1484) = lu(k,1484) - lu(k,1291) * lu(k,1477) + lu(k,1485) = lu(k,1485) - lu(k,1292) * lu(k,1477) + lu(k,1486) = lu(k,1486) - lu(k,1293) * lu(k,1477) + lu(k,1487) = lu(k,1487) - lu(k,1294) * lu(k,1477) + lu(k,1488) = lu(k,1488) - lu(k,1295) * lu(k,1477) + lu(k,1489) = lu(k,1489) - lu(k,1296) * lu(k,1477) + lu(k,1490) = lu(k,1490) - lu(k,1297) * lu(k,1477) + lu(k,1491) = lu(k,1491) - lu(k,1298) * lu(k,1477) + lu(k,1492) = lu(k,1492) - lu(k,1299) * lu(k,1477) + lu(k,1493) = lu(k,1493) - lu(k,1300) * lu(k,1477) + lu(k,1494) = lu(k,1494) - lu(k,1301) * lu(k,1477) + lu(k,1495) = lu(k,1495) - lu(k,1302) * lu(k,1477) + lu(k,1519) = lu(k,1519) - lu(k,1285) * lu(k,1518) + lu(k,1520) = lu(k,1520) - lu(k,1286) * lu(k,1518) + lu(k,1521) = lu(k,1521) - lu(k,1287) * lu(k,1518) + lu(k,1522) = lu(k,1522) - lu(k,1288) * lu(k,1518) + lu(k,1523) = lu(k,1523) - lu(k,1289) * lu(k,1518) + lu(k,1524) = lu(k,1524) - lu(k,1290) * lu(k,1518) + lu(k,1525) = lu(k,1525) - lu(k,1291) * lu(k,1518) + lu(k,1526) = lu(k,1526) - lu(k,1292) * lu(k,1518) + lu(k,1527) = lu(k,1527) - lu(k,1293) * lu(k,1518) + lu(k,1528) = lu(k,1528) - lu(k,1294) * lu(k,1518) + lu(k,1529) = lu(k,1529) - lu(k,1295) * lu(k,1518) + lu(k,1530) = lu(k,1530) - lu(k,1296) * lu(k,1518) + lu(k,1531) = lu(k,1531) - lu(k,1297) * lu(k,1518) + lu(k,1532) = lu(k,1532) - lu(k,1298) * lu(k,1518) + lu(k,1533) = lu(k,1533) - lu(k,1299) * lu(k,1518) + lu(k,1534) = lu(k,1534) - lu(k,1300) * lu(k,1518) + lu(k,1535) = lu(k,1535) - lu(k,1301) * lu(k,1518) + lu(k,1536) = lu(k,1536) - lu(k,1302) * lu(k,1518) + lu(k,1555) = lu(k,1555) - lu(k,1285) * lu(k,1554) + lu(k,1556) = lu(k,1556) - lu(k,1286) * lu(k,1554) + lu(k,1557) = lu(k,1557) - lu(k,1287) * lu(k,1554) + lu(k,1558) = lu(k,1558) - lu(k,1288) * lu(k,1554) + lu(k,1559) = lu(k,1559) - lu(k,1289) * lu(k,1554) + lu(k,1560) = lu(k,1560) - lu(k,1290) * lu(k,1554) + lu(k,1561) = lu(k,1561) - lu(k,1291) * lu(k,1554) + lu(k,1562) = lu(k,1562) - lu(k,1292) * lu(k,1554) + lu(k,1563) = lu(k,1563) - lu(k,1293) * lu(k,1554) + lu(k,1564) = lu(k,1564) - lu(k,1294) * lu(k,1554) + lu(k,1565) = lu(k,1565) - lu(k,1295) * lu(k,1554) + lu(k,1566) = lu(k,1566) - lu(k,1296) * lu(k,1554) + lu(k,1567) = lu(k,1567) - lu(k,1297) * lu(k,1554) + lu(k,1568) = lu(k,1568) - lu(k,1298) * lu(k,1554) + lu(k,1569) = lu(k,1569) - lu(k,1299) * lu(k,1554) + lu(k,1570) = lu(k,1570) - lu(k,1300) * lu(k,1554) + lu(k,1571) = lu(k,1571) - lu(k,1301) * lu(k,1554) + lu(k,1572) = lu(k,1572) - lu(k,1302) * lu(k,1554) + lu(k,1600) = lu(k,1600) - lu(k,1285) * lu(k,1599) + lu(k,1601) = lu(k,1601) - lu(k,1286) * lu(k,1599) + lu(k,1602) = lu(k,1602) - lu(k,1287) * lu(k,1599) + lu(k,1603) = lu(k,1603) - lu(k,1288) * lu(k,1599) + lu(k,1604) = lu(k,1604) - lu(k,1289) * lu(k,1599) + lu(k,1605) = lu(k,1605) - lu(k,1290) * lu(k,1599) + lu(k,1606) = lu(k,1606) - lu(k,1291) * lu(k,1599) + lu(k,1607) = lu(k,1607) - lu(k,1292) * lu(k,1599) + lu(k,1608) = lu(k,1608) - lu(k,1293) * lu(k,1599) + lu(k,1609) = lu(k,1609) - lu(k,1294) * lu(k,1599) + lu(k,1610) = lu(k,1610) - lu(k,1295) * lu(k,1599) + lu(k,1611) = lu(k,1611) - lu(k,1296) * lu(k,1599) + lu(k,1612) = lu(k,1612) - lu(k,1297) * lu(k,1599) + lu(k,1613) = lu(k,1613) - lu(k,1298) * lu(k,1599) + lu(k,1614) = lu(k,1614) - lu(k,1299) * lu(k,1599) + lu(k,1615) = lu(k,1615) - lu(k,1300) * lu(k,1599) + lu(k,1616) = lu(k,1616) - lu(k,1301) * lu(k,1599) + lu(k,1617) = lu(k,1617) - lu(k,1302) * lu(k,1599) + lu(k,1643) = lu(k,1643) - lu(k,1285) * lu(k,1642) + lu(k,1644) = lu(k,1644) - lu(k,1286) * lu(k,1642) + lu(k,1645) = lu(k,1645) - lu(k,1287) * lu(k,1642) + lu(k,1646) = lu(k,1646) - lu(k,1288) * lu(k,1642) + lu(k,1647) = lu(k,1647) - lu(k,1289) * lu(k,1642) + lu(k,1648) = lu(k,1648) - lu(k,1290) * lu(k,1642) + lu(k,1649) = lu(k,1649) - lu(k,1291) * lu(k,1642) + lu(k,1650) = lu(k,1650) - lu(k,1292) * lu(k,1642) + lu(k,1651) = lu(k,1651) - lu(k,1293) * lu(k,1642) + lu(k,1652) = lu(k,1652) - lu(k,1294) * lu(k,1642) + lu(k,1653) = lu(k,1653) - lu(k,1295) * lu(k,1642) + lu(k,1654) = lu(k,1654) - lu(k,1296) * lu(k,1642) + lu(k,1655) = lu(k,1655) - lu(k,1297) * lu(k,1642) + lu(k,1656) = lu(k,1656) - lu(k,1298) * lu(k,1642) + lu(k,1657) = lu(k,1657) - lu(k,1299) * lu(k,1642) + lu(k,1658) = lu(k,1658) - lu(k,1300) * lu(k,1642) + lu(k,1659) = lu(k,1659) - lu(k,1301) * lu(k,1642) + lu(k,1660) = lu(k,1660) - lu(k,1302) * lu(k,1642) + lu(k,1685) = lu(k,1685) - lu(k,1285) * lu(k,1684) + lu(k,1686) = lu(k,1686) - lu(k,1286) * lu(k,1684) + lu(k,1687) = lu(k,1687) - lu(k,1287) * lu(k,1684) + lu(k,1688) = lu(k,1688) - lu(k,1288) * lu(k,1684) + lu(k,1689) = lu(k,1689) - lu(k,1289) * lu(k,1684) + lu(k,1690) = lu(k,1690) - lu(k,1290) * lu(k,1684) + lu(k,1691) = lu(k,1691) - lu(k,1291) * lu(k,1684) + lu(k,1692) = lu(k,1692) - lu(k,1292) * lu(k,1684) + lu(k,1693) = lu(k,1693) - lu(k,1293) * lu(k,1684) + lu(k,1694) = lu(k,1694) - lu(k,1294) * lu(k,1684) + lu(k,1695) = lu(k,1695) - lu(k,1295) * lu(k,1684) + lu(k,1696) = lu(k,1696) - lu(k,1296) * lu(k,1684) + lu(k,1697) = lu(k,1697) - lu(k,1297) * lu(k,1684) + lu(k,1698) = lu(k,1698) - lu(k,1298) * lu(k,1684) + lu(k,1699) = lu(k,1699) - lu(k,1299) * lu(k,1684) + lu(k,1700) = lu(k,1700) - lu(k,1300) * lu(k,1684) + lu(k,1701) = lu(k,1701) - lu(k,1301) * lu(k,1684) + lu(k,1702) = lu(k,1702) - lu(k,1302) * lu(k,1684) + lu(k,1725) = lu(k,1725) - lu(k,1285) * lu(k,1724) + lu(k,1726) = lu(k,1726) - lu(k,1286) * lu(k,1724) + lu(k,1727) = lu(k,1727) - lu(k,1287) * lu(k,1724) + lu(k,1728) = lu(k,1728) - lu(k,1288) * lu(k,1724) + lu(k,1729) = lu(k,1729) - lu(k,1289) * lu(k,1724) + lu(k,1730) = lu(k,1730) - lu(k,1290) * lu(k,1724) + lu(k,1731) = lu(k,1731) - lu(k,1291) * lu(k,1724) + lu(k,1732) = lu(k,1732) - lu(k,1292) * lu(k,1724) + lu(k,1733) = lu(k,1733) - lu(k,1293) * lu(k,1724) + lu(k,1734) = lu(k,1734) - lu(k,1294) * lu(k,1724) + lu(k,1735) = lu(k,1735) - lu(k,1295) * lu(k,1724) + lu(k,1736) = lu(k,1736) - lu(k,1296) * lu(k,1724) + lu(k,1737) = lu(k,1737) - lu(k,1297) * lu(k,1724) + lu(k,1738) = lu(k,1738) - lu(k,1298) * lu(k,1724) + lu(k,1739) = lu(k,1739) - lu(k,1299) * lu(k,1724) + lu(k,1740) = lu(k,1740) - lu(k,1300) * lu(k,1724) + lu(k,1741) = lu(k,1741) - lu(k,1301) * lu(k,1724) + lu(k,1742) = lu(k,1742) - lu(k,1302) * lu(k,1724) + lu(k,1761) = lu(k,1761) - lu(k,1285) * lu(k,1760) + lu(k,1762) = lu(k,1762) - lu(k,1286) * lu(k,1760) + lu(k,1763) = lu(k,1763) - lu(k,1287) * lu(k,1760) + lu(k,1764) = lu(k,1764) - lu(k,1288) * lu(k,1760) + lu(k,1765) = lu(k,1765) - lu(k,1289) * lu(k,1760) + lu(k,1766) = lu(k,1766) - lu(k,1290) * lu(k,1760) + lu(k,1767) = lu(k,1767) - lu(k,1291) * lu(k,1760) + lu(k,1768) = lu(k,1768) - lu(k,1292) * lu(k,1760) + lu(k,1769) = lu(k,1769) - lu(k,1293) * lu(k,1760) + lu(k,1770) = lu(k,1770) - lu(k,1294) * lu(k,1760) + lu(k,1771) = lu(k,1771) - lu(k,1295) * lu(k,1760) + lu(k,1772) = lu(k,1772) - lu(k,1296) * lu(k,1760) + lu(k,1773) = lu(k,1773) - lu(k,1297) * lu(k,1760) + lu(k,1774) = lu(k,1774) - lu(k,1298) * lu(k,1760) + lu(k,1775) = lu(k,1775) - lu(k,1299) * lu(k,1760) + lu(k,1776) = lu(k,1776) - lu(k,1300) * lu(k,1760) + lu(k,1777) = lu(k,1777) - lu(k,1301) * lu(k,1760) + lu(k,1778) = lu(k,1778) - lu(k,1302) * lu(k,1760) + lu(k,1809) = lu(k,1809) - lu(k,1285) * lu(k,1808) + lu(k,1810) = lu(k,1810) - lu(k,1286) * lu(k,1808) + lu(k,1811) = lu(k,1811) - lu(k,1287) * lu(k,1808) + lu(k,1812) = lu(k,1812) - lu(k,1288) * lu(k,1808) + lu(k,1813) = lu(k,1813) - lu(k,1289) * lu(k,1808) + lu(k,1814) = lu(k,1814) - lu(k,1290) * lu(k,1808) + lu(k,1815) = lu(k,1815) - lu(k,1291) * lu(k,1808) + lu(k,1816) = lu(k,1816) - lu(k,1292) * lu(k,1808) + lu(k,1817) = lu(k,1817) - lu(k,1293) * lu(k,1808) + lu(k,1818) = lu(k,1818) - lu(k,1294) * lu(k,1808) + lu(k,1819) = lu(k,1819) - lu(k,1295) * lu(k,1808) + lu(k,1820) = lu(k,1820) - lu(k,1296) * lu(k,1808) + lu(k,1821) = lu(k,1821) - lu(k,1297) * lu(k,1808) + lu(k,1822) = lu(k,1822) - lu(k,1298) * lu(k,1808) + lu(k,1823) = lu(k,1823) - lu(k,1299) * lu(k,1808) + lu(k,1824) = lu(k,1824) - lu(k,1300) * lu(k,1808) + lu(k,1825) = lu(k,1825) - lu(k,1301) * lu(k,1808) + lu(k,1826) = lu(k,1826) - lu(k,1302) * lu(k,1808) + lu(k,1842) = lu(k,1842) - lu(k,1285) * lu(k,1841) + lu(k,1843) = lu(k,1843) - lu(k,1286) * lu(k,1841) + lu(k,1844) = lu(k,1844) - lu(k,1287) * lu(k,1841) + lu(k,1845) = lu(k,1845) - lu(k,1288) * lu(k,1841) + lu(k,1846) = lu(k,1846) - lu(k,1289) * lu(k,1841) + lu(k,1847) = lu(k,1847) - lu(k,1290) * lu(k,1841) + lu(k,1848) = lu(k,1848) - lu(k,1291) * lu(k,1841) + lu(k,1849) = lu(k,1849) - lu(k,1292) * lu(k,1841) + lu(k,1850) = lu(k,1850) - lu(k,1293) * lu(k,1841) + lu(k,1851) = lu(k,1851) - lu(k,1294) * lu(k,1841) + lu(k,1852) = lu(k,1852) - lu(k,1295) * lu(k,1841) + lu(k,1853) = lu(k,1853) - lu(k,1296) * lu(k,1841) + lu(k,1854) = lu(k,1854) - lu(k,1297) * lu(k,1841) + lu(k,1855) = lu(k,1855) - lu(k,1298) * lu(k,1841) + lu(k,1856) = lu(k,1856) - lu(k,1299) * lu(k,1841) + lu(k,1857) = lu(k,1857) - lu(k,1300) * lu(k,1841) + lu(k,1858) = lu(k,1858) - lu(k,1301) * lu(k,1841) + lu(k,1859) = lu(k,1859) - lu(k,1302) * lu(k,1841) + lu(k,1878) = lu(k,1878) - lu(k,1285) * lu(k,1877) + lu(k,1879) = lu(k,1879) - lu(k,1286) * lu(k,1877) + lu(k,1880) = lu(k,1880) - lu(k,1287) * lu(k,1877) + lu(k,1881) = lu(k,1881) - lu(k,1288) * lu(k,1877) + lu(k,1882) = lu(k,1882) - lu(k,1289) * lu(k,1877) + lu(k,1883) = lu(k,1883) - lu(k,1290) * lu(k,1877) + lu(k,1884) = lu(k,1884) - lu(k,1291) * lu(k,1877) + lu(k,1885) = lu(k,1885) - lu(k,1292) * lu(k,1877) + lu(k,1886) = lu(k,1886) - lu(k,1293) * lu(k,1877) + lu(k,1887) = lu(k,1887) - lu(k,1294) * lu(k,1877) + lu(k,1888) = lu(k,1888) - lu(k,1295) * lu(k,1877) + lu(k,1889) = lu(k,1889) - lu(k,1296) * lu(k,1877) + lu(k,1890) = lu(k,1890) - lu(k,1297) * lu(k,1877) + lu(k,1891) = lu(k,1891) - lu(k,1298) * lu(k,1877) + lu(k,1892) = lu(k,1892) - lu(k,1299) * lu(k,1877) + lu(k,1893) = lu(k,1893) - lu(k,1300) * lu(k,1877) + lu(k,1894) = lu(k,1894) - lu(k,1301) * lu(k,1877) + lu(k,1895) = lu(k,1895) - lu(k,1302) * lu(k,1877) + lu(k,1927) = lu(k,1927) - lu(k,1285) * lu(k,1926) + lu(k,1928) = lu(k,1928) - lu(k,1286) * lu(k,1926) + lu(k,1929) = lu(k,1929) - lu(k,1287) * lu(k,1926) + lu(k,1930) = lu(k,1930) - lu(k,1288) * lu(k,1926) + lu(k,1931) = lu(k,1931) - lu(k,1289) * lu(k,1926) + lu(k,1932) = lu(k,1932) - lu(k,1290) * lu(k,1926) + lu(k,1933) = lu(k,1933) - lu(k,1291) * lu(k,1926) + lu(k,1934) = lu(k,1934) - lu(k,1292) * lu(k,1926) + lu(k,1935) = lu(k,1935) - lu(k,1293) * lu(k,1926) + lu(k,1936) = lu(k,1936) - lu(k,1294) * lu(k,1926) + lu(k,1937) = lu(k,1937) - lu(k,1295) * lu(k,1926) + lu(k,1938) = lu(k,1938) - lu(k,1296) * lu(k,1926) + lu(k,1939) = lu(k,1939) - lu(k,1297) * lu(k,1926) + lu(k,1940) = lu(k,1940) - lu(k,1298) * lu(k,1926) + lu(k,1941) = lu(k,1941) - lu(k,1299) * lu(k,1926) + lu(k,1942) = lu(k,1942) - lu(k,1300) * lu(k,1926) + lu(k,1943) = lu(k,1943) - lu(k,1301) * lu(k,1926) + lu(k,1944) = lu(k,1944) - lu(k,1302) * lu(k,1926) + lu(k,1971) = lu(k,1971) - lu(k,1285) * lu(k,1970) + lu(k,1972) = lu(k,1972) - lu(k,1286) * lu(k,1970) + lu(k,1973) = lu(k,1973) - lu(k,1287) * lu(k,1970) + lu(k,1974) = lu(k,1974) - lu(k,1288) * lu(k,1970) + lu(k,1975) = lu(k,1975) - lu(k,1289) * lu(k,1970) + lu(k,1976) = lu(k,1976) - lu(k,1290) * lu(k,1970) + lu(k,1977) = lu(k,1977) - lu(k,1291) * lu(k,1970) + lu(k,1978) = lu(k,1978) - lu(k,1292) * lu(k,1970) + lu(k,1979) = lu(k,1979) - lu(k,1293) * lu(k,1970) + lu(k,1980) = lu(k,1980) - lu(k,1294) * lu(k,1970) + lu(k,1981) = lu(k,1981) - lu(k,1295) * lu(k,1970) + lu(k,1982) = lu(k,1982) - lu(k,1296) * lu(k,1970) + lu(k,1983) = lu(k,1983) - lu(k,1297) * lu(k,1970) + lu(k,1984) = lu(k,1984) - lu(k,1298) * lu(k,1970) + lu(k,1985) = lu(k,1985) - lu(k,1299) * lu(k,1970) + lu(k,1986) = lu(k,1986) - lu(k,1300) * lu(k,1970) + lu(k,1987) = lu(k,1987) - lu(k,1301) * lu(k,1970) + lu(k,1988) = lu(k,1988) - lu(k,1302) * lu(k,1970) + lu(k,2016) = lu(k,2016) - lu(k,1285) * lu(k,2015) + lu(k,2017) = lu(k,2017) - lu(k,1286) * lu(k,2015) + lu(k,2018) = lu(k,2018) - lu(k,1287) * lu(k,2015) + lu(k,2019) = lu(k,2019) - lu(k,1288) * lu(k,2015) + lu(k,2020) = lu(k,2020) - lu(k,1289) * lu(k,2015) + lu(k,2021) = lu(k,2021) - lu(k,1290) * lu(k,2015) + lu(k,2022) = lu(k,2022) - lu(k,1291) * lu(k,2015) + lu(k,2023) = lu(k,2023) - lu(k,1292) * lu(k,2015) + lu(k,2024) = lu(k,2024) - lu(k,1293) * lu(k,2015) + lu(k,2025) = lu(k,2025) - lu(k,1294) * lu(k,2015) + lu(k,2026) = lu(k,2026) - lu(k,1295) * lu(k,2015) + lu(k,2027) = lu(k,2027) - lu(k,1296) * lu(k,2015) + lu(k,2028) = lu(k,2028) - lu(k,1297) * lu(k,2015) + lu(k,2029) = lu(k,2029) - lu(k,1298) * lu(k,2015) + lu(k,2030) = lu(k,2030) - lu(k,1299) * lu(k,2015) + lu(k,2031) = lu(k,2031) - lu(k,1300) * lu(k,2015) + lu(k,2032) = lu(k,2032) - lu(k,1301) * lu(k,2015) + lu(k,2033) = lu(k,2033) - lu(k,1302) * lu(k,2015) + lu(k,2076) = lu(k,2076) - lu(k,1285) * lu(k,2075) + lu(k,2077) = lu(k,2077) - lu(k,1286) * lu(k,2075) + lu(k,2078) = lu(k,2078) - lu(k,1287) * lu(k,2075) + lu(k,2079) = lu(k,2079) - lu(k,1288) * lu(k,2075) + lu(k,2080) = lu(k,2080) - lu(k,1289) * lu(k,2075) + lu(k,2081) = lu(k,2081) - lu(k,1290) * lu(k,2075) + lu(k,2082) = lu(k,2082) - lu(k,1291) * lu(k,2075) + lu(k,2083) = lu(k,2083) - lu(k,1292) * lu(k,2075) + lu(k,2084) = lu(k,2084) - lu(k,1293) * lu(k,2075) + lu(k,2085) = lu(k,2085) - lu(k,1294) * lu(k,2075) + lu(k,2086) = lu(k,2086) - lu(k,1295) * lu(k,2075) + lu(k,2087) = lu(k,2087) - lu(k,1296) * lu(k,2075) + lu(k,2088) = lu(k,2088) - lu(k,1297) * lu(k,2075) + lu(k,2089) = lu(k,2089) - lu(k,1298) * lu(k,2075) + lu(k,2090) = lu(k,2090) - lu(k,1299) * lu(k,2075) + lu(k,2091) = lu(k,2091) - lu(k,1300) * lu(k,2075) + lu(k,2092) = lu(k,2092) - lu(k,1301) * lu(k,2075) + lu(k,2093) = lu(k,2093) - lu(k,1302) * lu(k,2075) lu(k,1327) = 1._r8 / lu(k,1327) lu(k,1328) = lu(k,1328) * lu(k,1327) lu(k,1329) = lu(k,1329) * lu(k,1327) @@ -12254,281 +12294,281 @@ subroutine lu_fac23( avec_len, lu ) lu(k,1402) = lu(k,1402) - lu(k,1342) * lu(k,1387) lu(k,1403) = lu(k,1403) - lu(k,1343) * lu(k,1387) lu(k,1404) = lu(k,1404) - lu(k,1344) * lu(k,1387) - lu(k,1437) = lu(k,1437) - lu(k,1328) * lu(k,1436) - lu(k,1438) = lu(k,1438) - lu(k,1329) * lu(k,1436) - lu(k,1439) = lu(k,1439) - lu(k,1330) * lu(k,1436) - lu(k,1440) = lu(k,1440) - lu(k,1331) * lu(k,1436) - lu(k,1441) = lu(k,1441) - lu(k,1332) * lu(k,1436) - lu(k,1442) = lu(k,1442) - lu(k,1333) * lu(k,1436) - lu(k,1443) = lu(k,1443) - lu(k,1334) * lu(k,1436) - lu(k,1444) = lu(k,1444) - lu(k,1335) * lu(k,1436) - lu(k,1445) = lu(k,1445) - lu(k,1336) * lu(k,1436) - lu(k,1446) = lu(k,1446) - lu(k,1337) * lu(k,1436) - lu(k,1447) = lu(k,1447) - lu(k,1338) * lu(k,1436) - lu(k,1448) = lu(k,1448) - lu(k,1339) * lu(k,1436) - lu(k,1449) = lu(k,1449) - lu(k,1340) * lu(k,1436) - lu(k,1450) = lu(k,1450) - lu(k,1341) * lu(k,1436) - lu(k,1451) = lu(k,1451) - lu(k,1342) * lu(k,1436) - lu(k,1452) = lu(k,1452) - lu(k,1343) * lu(k,1436) - lu(k,1453) = lu(k,1453) - lu(k,1344) * lu(k,1436) - lu(k,1485) = lu(k,1485) - lu(k,1328) * lu(k,1484) - lu(k,1486) = lu(k,1486) - lu(k,1329) * lu(k,1484) - lu(k,1487) = lu(k,1487) - lu(k,1330) * lu(k,1484) - lu(k,1488) = lu(k,1488) - lu(k,1331) * lu(k,1484) - lu(k,1489) = lu(k,1489) - lu(k,1332) * lu(k,1484) - lu(k,1490) = lu(k,1490) - lu(k,1333) * lu(k,1484) - lu(k,1491) = lu(k,1491) - lu(k,1334) * lu(k,1484) - lu(k,1492) = lu(k,1492) - lu(k,1335) * lu(k,1484) - lu(k,1493) = lu(k,1493) - lu(k,1336) * lu(k,1484) - lu(k,1494) = lu(k,1494) - lu(k,1337) * lu(k,1484) - lu(k,1495) = lu(k,1495) - lu(k,1338) * lu(k,1484) - lu(k,1496) = lu(k,1496) - lu(k,1339) * lu(k,1484) - lu(k,1497) = lu(k,1497) - lu(k,1340) * lu(k,1484) - lu(k,1498) = lu(k,1498) - lu(k,1341) * lu(k,1484) - lu(k,1499) = lu(k,1499) - lu(k,1342) * lu(k,1484) - lu(k,1500) = lu(k,1500) - lu(k,1343) * lu(k,1484) - lu(k,1501) = lu(k,1501) - lu(k,1344) * lu(k,1484) - lu(k,1526) = lu(k,1526) - lu(k,1328) * lu(k,1525) - lu(k,1527) = lu(k,1527) - lu(k,1329) * lu(k,1525) - lu(k,1528) = lu(k,1528) - lu(k,1330) * lu(k,1525) - lu(k,1529) = lu(k,1529) - lu(k,1331) * lu(k,1525) - lu(k,1530) = lu(k,1530) - lu(k,1332) * lu(k,1525) - lu(k,1531) = lu(k,1531) - lu(k,1333) * lu(k,1525) - lu(k,1532) = lu(k,1532) - lu(k,1334) * lu(k,1525) - lu(k,1533) = lu(k,1533) - lu(k,1335) * lu(k,1525) - lu(k,1534) = lu(k,1534) - lu(k,1336) * lu(k,1525) - lu(k,1535) = lu(k,1535) - lu(k,1337) * lu(k,1525) - lu(k,1536) = lu(k,1536) - lu(k,1338) * lu(k,1525) - lu(k,1537) = lu(k,1537) - lu(k,1339) * lu(k,1525) - lu(k,1538) = lu(k,1538) - lu(k,1340) * lu(k,1525) - lu(k,1539) = lu(k,1539) - lu(k,1341) * lu(k,1525) - lu(k,1540) = lu(k,1540) - lu(k,1342) * lu(k,1525) - lu(k,1541) = lu(k,1541) - lu(k,1343) * lu(k,1525) - lu(k,1542) = lu(k,1542) - lu(k,1344) * lu(k,1525) - lu(k,1562) = lu(k,1562) - lu(k,1328) * lu(k,1561) - lu(k,1563) = lu(k,1563) - lu(k,1329) * lu(k,1561) - lu(k,1564) = lu(k,1564) - lu(k,1330) * lu(k,1561) - lu(k,1565) = lu(k,1565) - lu(k,1331) * lu(k,1561) - lu(k,1566) = lu(k,1566) - lu(k,1332) * lu(k,1561) - lu(k,1567) = lu(k,1567) - lu(k,1333) * lu(k,1561) - lu(k,1568) = lu(k,1568) - lu(k,1334) * lu(k,1561) - lu(k,1569) = lu(k,1569) - lu(k,1335) * lu(k,1561) - lu(k,1570) = lu(k,1570) - lu(k,1336) * lu(k,1561) - lu(k,1571) = lu(k,1571) - lu(k,1337) * lu(k,1561) - lu(k,1572) = lu(k,1572) - lu(k,1338) * lu(k,1561) - lu(k,1573) = lu(k,1573) - lu(k,1339) * lu(k,1561) - lu(k,1574) = lu(k,1574) - lu(k,1340) * lu(k,1561) - lu(k,1575) = lu(k,1575) - lu(k,1341) * lu(k,1561) - lu(k,1576) = lu(k,1576) - lu(k,1342) * lu(k,1561) - lu(k,1577) = lu(k,1577) - lu(k,1343) * lu(k,1561) - lu(k,1578) = lu(k,1578) - lu(k,1344) * lu(k,1561) - lu(k,1607) = lu(k,1607) - lu(k,1328) * lu(k,1606) - lu(k,1608) = lu(k,1608) - lu(k,1329) * lu(k,1606) - lu(k,1609) = lu(k,1609) - lu(k,1330) * lu(k,1606) - lu(k,1610) = lu(k,1610) - lu(k,1331) * lu(k,1606) - lu(k,1611) = lu(k,1611) - lu(k,1332) * lu(k,1606) - lu(k,1612) = lu(k,1612) - lu(k,1333) * lu(k,1606) - lu(k,1613) = lu(k,1613) - lu(k,1334) * lu(k,1606) - lu(k,1614) = lu(k,1614) - lu(k,1335) * lu(k,1606) - lu(k,1615) = lu(k,1615) - lu(k,1336) * lu(k,1606) - lu(k,1616) = lu(k,1616) - lu(k,1337) * lu(k,1606) - lu(k,1617) = lu(k,1617) - lu(k,1338) * lu(k,1606) - lu(k,1618) = lu(k,1618) - lu(k,1339) * lu(k,1606) - lu(k,1619) = lu(k,1619) - lu(k,1340) * lu(k,1606) - lu(k,1620) = lu(k,1620) - lu(k,1341) * lu(k,1606) - lu(k,1621) = lu(k,1621) - lu(k,1342) * lu(k,1606) - lu(k,1622) = lu(k,1622) - lu(k,1343) * lu(k,1606) - lu(k,1623) = lu(k,1623) - lu(k,1344) * lu(k,1606) - lu(k,1650) = lu(k,1650) - lu(k,1328) * lu(k,1649) - lu(k,1651) = lu(k,1651) - lu(k,1329) * lu(k,1649) - lu(k,1652) = lu(k,1652) - lu(k,1330) * lu(k,1649) - lu(k,1653) = lu(k,1653) - lu(k,1331) * lu(k,1649) - lu(k,1654) = lu(k,1654) - lu(k,1332) * lu(k,1649) - lu(k,1655) = lu(k,1655) - lu(k,1333) * lu(k,1649) - lu(k,1656) = lu(k,1656) - lu(k,1334) * lu(k,1649) - lu(k,1657) = lu(k,1657) - lu(k,1335) * lu(k,1649) - lu(k,1658) = lu(k,1658) - lu(k,1336) * lu(k,1649) - lu(k,1659) = lu(k,1659) - lu(k,1337) * lu(k,1649) - lu(k,1660) = lu(k,1660) - lu(k,1338) * lu(k,1649) - lu(k,1661) = lu(k,1661) - lu(k,1339) * lu(k,1649) - lu(k,1662) = lu(k,1662) - lu(k,1340) * lu(k,1649) - lu(k,1663) = lu(k,1663) - lu(k,1341) * lu(k,1649) - lu(k,1664) = lu(k,1664) - lu(k,1342) * lu(k,1649) - lu(k,1665) = lu(k,1665) - lu(k,1343) * lu(k,1649) - lu(k,1666) = lu(k,1666) - lu(k,1344) * lu(k,1649) - lu(k,1693) = lu(k,1693) - lu(k,1328) * lu(k,1692) - lu(k,1694) = lu(k,1694) - lu(k,1329) * lu(k,1692) - lu(k,1695) = lu(k,1695) - lu(k,1330) * lu(k,1692) - lu(k,1696) = lu(k,1696) - lu(k,1331) * lu(k,1692) - lu(k,1697) = lu(k,1697) - lu(k,1332) * lu(k,1692) - lu(k,1698) = lu(k,1698) - lu(k,1333) * lu(k,1692) - lu(k,1699) = lu(k,1699) - lu(k,1334) * lu(k,1692) - lu(k,1700) = lu(k,1700) - lu(k,1335) * lu(k,1692) - lu(k,1701) = lu(k,1701) - lu(k,1336) * lu(k,1692) - lu(k,1702) = lu(k,1702) - lu(k,1337) * lu(k,1692) - lu(k,1703) = lu(k,1703) - lu(k,1338) * lu(k,1692) - lu(k,1704) = lu(k,1704) - lu(k,1339) * lu(k,1692) - lu(k,1705) = lu(k,1705) - lu(k,1340) * lu(k,1692) - lu(k,1706) = lu(k,1706) - lu(k,1341) * lu(k,1692) - lu(k,1707) = lu(k,1707) - lu(k,1342) * lu(k,1692) - lu(k,1708) = lu(k,1708) - lu(k,1343) * lu(k,1692) - lu(k,1709) = lu(k,1709) - lu(k,1344) * lu(k,1692) - lu(k,1733) = lu(k,1733) - lu(k,1328) * lu(k,1732) - lu(k,1734) = lu(k,1734) - lu(k,1329) * lu(k,1732) - lu(k,1735) = lu(k,1735) - lu(k,1330) * lu(k,1732) - lu(k,1736) = lu(k,1736) - lu(k,1331) * lu(k,1732) - lu(k,1737) = lu(k,1737) - lu(k,1332) * lu(k,1732) - lu(k,1738) = lu(k,1738) - lu(k,1333) * lu(k,1732) - lu(k,1739) = lu(k,1739) - lu(k,1334) * lu(k,1732) - lu(k,1740) = lu(k,1740) - lu(k,1335) * lu(k,1732) - lu(k,1741) = lu(k,1741) - lu(k,1336) * lu(k,1732) - lu(k,1742) = lu(k,1742) - lu(k,1337) * lu(k,1732) - lu(k,1743) = lu(k,1743) - lu(k,1338) * lu(k,1732) - lu(k,1744) = lu(k,1744) - lu(k,1339) * lu(k,1732) - lu(k,1745) = lu(k,1745) - lu(k,1340) * lu(k,1732) - lu(k,1746) = lu(k,1746) - lu(k,1341) * lu(k,1732) - lu(k,1747) = lu(k,1747) - lu(k,1342) * lu(k,1732) - lu(k,1748) = lu(k,1748) - lu(k,1343) * lu(k,1732) - lu(k,1749) = lu(k,1749) - lu(k,1344) * lu(k,1732) - lu(k,1769) = lu(k,1769) - lu(k,1328) * lu(k,1768) - lu(k,1770) = lu(k,1770) - lu(k,1329) * lu(k,1768) - lu(k,1771) = lu(k,1771) - lu(k,1330) * lu(k,1768) - lu(k,1772) = lu(k,1772) - lu(k,1331) * lu(k,1768) - lu(k,1773) = lu(k,1773) - lu(k,1332) * lu(k,1768) - lu(k,1774) = lu(k,1774) - lu(k,1333) * lu(k,1768) - lu(k,1775) = lu(k,1775) - lu(k,1334) * lu(k,1768) - lu(k,1776) = lu(k,1776) - lu(k,1335) * lu(k,1768) - lu(k,1777) = lu(k,1777) - lu(k,1336) * lu(k,1768) - lu(k,1778) = lu(k,1778) - lu(k,1337) * lu(k,1768) - lu(k,1779) = lu(k,1779) - lu(k,1338) * lu(k,1768) - lu(k,1780) = lu(k,1780) - lu(k,1339) * lu(k,1768) - lu(k,1781) = lu(k,1781) - lu(k,1340) * lu(k,1768) - lu(k,1782) = lu(k,1782) - lu(k,1341) * lu(k,1768) - lu(k,1783) = lu(k,1783) - lu(k,1342) * lu(k,1768) - lu(k,1784) = lu(k,1784) - lu(k,1343) * lu(k,1768) - lu(k,1785) = lu(k,1785) - lu(k,1344) * lu(k,1768) - lu(k,1817) = lu(k,1817) - lu(k,1328) * lu(k,1816) - lu(k,1818) = lu(k,1818) - lu(k,1329) * lu(k,1816) - lu(k,1819) = lu(k,1819) - lu(k,1330) * lu(k,1816) - lu(k,1820) = lu(k,1820) - lu(k,1331) * lu(k,1816) - lu(k,1821) = lu(k,1821) - lu(k,1332) * lu(k,1816) - lu(k,1822) = lu(k,1822) - lu(k,1333) * lu(k,1816) - lu(k,1823) = lu(k,1823) - lu(k,1334) * lu(k,1816) - lu(k,1824) = lu(k,1824) - lu(k,1335) * lu(k,1816) - lu(k,1825) = lu(k,1825) - lu(k,1336) * lu(k,1816) - lu(k,1826) = lu(k,1826) - lu(k,1337) * lu(k,1816) - lu(k,1827) = lu(k,1827) - lu(k,1338) * lu(k,1816) - lu(k,1828) = lu(k,1828) - lu(k,1339) * lu(k,1816) - lu(k,1829) = lu(k,1829) - lu(k,1340) * lu(k,1816) - lu(k,1830) = lu(k,1830) - lu(k,1341) * lu(k,1816) - lu(k,1831) = lu(k,1831) - lu(k,1342) * lu(k,1816) - lu(k,1832) = lu(k,1832) - lu(k,1343) * lu(k,1816) - lu(k,1833) = lu(k,1833) - lu(k,1344) * lu(k,1816) - lu(k,1850) = lu(k,1850) - lu(k,1328) * lu(k,1849) - lu(k,1851) = lu(k,1851) - lu(k,1329) * lu(k,1849) - lu(k,1852) = lu(k,1852) - lu(k,1330) * lu(k,1849) - lu(k,1853) = lu(k,1853) - lu(k,1331) * lu(k,1849) - lu(k,1854) = lu(k,1854) - lu(k,1332) * lu(k,1849) - lu(k,1855) = lu(k,1855) - lu(k,1333) * lu(k,1849) - lu(k,1856) = lu(k,1856) - lu(k,1334) * lu(k,1849) - lu(k,1857) = lu(k,1857) - lu(k,1335) * lu(k,1849) - lu(k,1858) = lu(k,1858) - lu(k,1336) * lu(k,1849) - lu(k,1859) = lu(k,1859) - lu(k,1337) * lu(k,1849) - lu(k,1860) = lu(k,1860) - lu(k,1338) * lu(k,1849) - lu(k,1861) = lu(k,1861) - lu(k,1339) * lu(k,1849) - lu(k,1862) = lu(k,1862) - lu(k,1340) * lu(k,1849) - lu(k,1863) = lu(k,1863) - lu(k,1341) * lu(k,1849) - lu(k,1864) = lu(k,1864) - lu(k,1342) * lu(k,1849) - lu(k,1865) = lu(k,1865) - lu(k,1343) * lu(k,1849) - lu(k,1866) = lu(k,1866) - lu(k,1344) * lu(k,1849) - lu(k,1886) = lu(k,1886) - lu(k,1328) * lu(k,1885) - lu(k,1887) = lu(k,1887) - lu(k,1329) * lu(k,1885) - lu(k,1888) = lu(k,1888) - lu(k,1330) * lu(k,1885) - lu(k,1889) = lu(k,1889) - lu(k,1331) * lu(k,1885) - lu(k,1890) = lu(k,1890) - lu(k,1332) * lu(k,1885) - lu(k,1891) = lu(k,1891) - lu(k,1333) * lu(k,1885) - lu(k,1892) = lu(k,1892) - lu(k,1334) * lu(k,1885) - lu(k,1893) = lu(k,1893) - lu(k,1335) * lu(k,1885) - lu(k,1894) = lu(k,1894) - lu(k,1336) * lu(k,1885) - lu(k,1895) = lu(k,1895) - lu(k,1337) * lu(k,1885) - lu(k,1896) = lu(k,1896) - lu(k,1338) * lu(k,1885) - lu(k,1897) = lu(k,1897) - lu(k,1339) * lu(k,1885) - lu(k,1898) = lu(k,1898) - lu(k,1340) * lu(k,1885) - lu(k,1899) = lu(k,1899) - lu(k,1341) * lu(k,1885) - lu(k,1900) = lu(k,1900) - lu(k,1342) * lu(k,1885) - lu(k,1901) = lu(k,1901) - lu(k,1343) * lu(k,1885) - lu(k,1902) = lu(k,1902) - lu(k,1344) * lu(k,1885) - lu(k,1927) = lu(k,1927) - lu(k,1328) * lu(k,1926) - lu(k,1928) = lu(k,1928) - lu(k,1329) * lu(k,1926) - lu(k,1929) = lu(k,1929) - lu(k,1330) * lu(k,1926) - lu(k,1930) = lu(k,1930) - lu(k,1331) * lu(k,1926) - lu(k,1931) = lu(k,1931) - lu(k,1332) * lu(k,1926) - lu(k,1932) = lu(k,1932) - lu(k,1333) * lu(k,1926) - lu(k,1933) = lu(k,1933) - lu(k,1334) * lu(k,1926) - lu(k,1934) = lu(k,1934) - lu(k,1335) * lu(k,1926) - lu(k,1935) = lu(k,1935) - lu(k,1336) * lu(k,1926) - lu(k,1936) = lu(k,1936) - lu(k,1337) * lu(k,1926) - lu(k,1937) = lu(k,1937) - lu(k,1338) * lu(k,1926) - lu(k,1938) = lu(k,1938) - lu(k,1339) * lu(k,1926) - lu(k,1939) = lu(k,1939) - lu(k,1340) * lu(k,1926) - lu(k,1940) = lu(k,1940) - lu(k,1341) * lu(k,1926) - lu(k,1941) = lu(k,1941) - lu(k,1342) * lu(k,1926) - lu(k,1942) = lu(k,1942) - lu(k,1343) * lu(k,1926) - lu(k,1943) = lu(k,1943) - lu(k,1344) * lu(k,1926) - lu(k,1969) = lu(k,1969) - lu(k,1328) * lu(k,1968) - lu(k,1970) = lu(k,1970) - lu(k,1329) * lu(k,1968) - lu(k,1971) = lu(k,1971) - lu(k,1330) * lu(k,1968) - lu(k,1972) = lu(k,1972) - lu(k,1331) * lu(k,1968) - lu(k,1973) = lu(k,1973) - lu(k,1332) * lu(k,1968) - lu(k,1974) = lu(k,1974) - lu(k,1333) * lu(k,1968) - lu(k,1975) = lu(k,1975) - lu(k,1334) * lu(k,1968) - lu(k,1976) = lu(k,1976) - lu(k,1335) * lu(k,1968) - lu(k,1977) = lu(k,1977) - lu(k,1336) * lu(k,1968) - lu(k,1978) = lu(k,1978) - lu(k,1337) * lu(k,1968) - lu(k,1979) = lu(k,1979) - lu(k,1338) * lu(k,1968) - lu(k,1980) = lu(k,1980) - lu(k,1339) * lu(k,1968) - lu(k,1981) = lu(k,1981) - lu(k,1340) * lu(k,1968) - lu(k,1982) = lu(k,1982) - lu(k,1341) * lu(k,1968) - lu(k,1983) = lu(k,1983) - lu(k,1342) * lu(k,1968) - lu(k,1984) = lu(k,1984) - lu(k,1343) * lu(k,1968) - lu(k,1985) = lu(k,1985) - lu(k,1344) * lu(k,1968) - lu(k,2014) = lu(k,2014) - lu(k,1328) * lu(k,2013) - lu(k,2015) = lu(k,2015) - lu(k,1329) * lu(k,2013) - lu(k,2016) = lu(k,2016) - lu(k,1330) * lu(k,2013) - lu(k,2017) = lu(k,2017) - lu(k,1331) * lu(k,2013) - lu(k,2018) = lu(k,2018) - lu(k,1332) * lu(k,2013) - lu(k,2019) = lu(k,2019) - lu(k,1333) * lu(k,2013) - lu(k,2020) = lu(k,2020) - lu(k,1334) * lu(k,2013) - lu(k,2021) = lu(k,2021) - lu(k,1335) * lu(k,2013) - lu(k,2022) = lu(k,2022) - lu(k,1336) * lu(k,2013) - lu(k,2023) = lu(k,2023) - lu(k,1337) * lu(k,2013) - lu(k,2024) = lu(k,2024) - lu(k,1338) * lu(k,2013) - lu(k,2025) = lu(k,2025) - lu(k,1339) * lu(k,2013) - lu(k,2026) = lu(k,2026) - lu(k,1340) * lu(k,2013) - lu(k,2027) = lu(k,2027) - lu(k,1341) * lu(k,2013) - lu(k,2028) = lu(k,2028) - lu(k,1342) * lu(k,2013) - lu(k,2029) = lu(k,2029) - lu(k,1343) * lu(k,2013) - lu(k,2030) = lu(k,2030) - lu(k,1344) * lu(k,2013) - lu(k,2074) = lu(k,2074) - lu(k,1328) * lu(k,2073) - lu(k,2075) = lu(k,2075) - lu(k,1329) * lu(k,2073) - lu(k,2076) = lu(k,2076) - lu(k,1330) * lu(k,2073) - lu(k,2077) = lu(k,2077) - lu(k,1331) * lu(k,2073) - lu(k,2078) = lu(k,2078) - lu(k,1332) * lu(k,2073) - lu(k,2079) = lu(k,2079) - lu(k,1333) * lu(k,2073) - lu(k,2080) = lu(k,2080) - lu(k,1334) * lu(k,2073) - lu(k,2081) = lu(k,2081) - lu(k,1335) * lu(k,2073) - lu(k,2082) = lu(k,2082) - lu(k,1336) * lu(k,2073) - lu(k,2083) = lu(k,2083) - lu(k,1337) * lu(k,2073) - lu(k,2084) = lu(k,2084) - lu(k,1338) * lu(k,2073) - lu(k,2085) = lu(k,2085) - lu(k,1339) * lu(k,2073) - lu(k,2086) = lu(k,2086) - lu(k,1340) * lu(k,2073) - lu(k,2087) = lu(k,2087) - lu(k,1341) * lu(k,2073) - lu(k,2088) = lu(k,2088) - lu(k,1342) * lu(k,2073) - lu(k,2089) = lu(k,2089) - lu(k,1343) * lu(k,2073) - lu(k,2090) = lu(k,2090) - lu(k,1344) * lu(k,2073) + lu(k,1431) = lu(k,1431) - lu(k,1328) * lu(k,1430) + lu(k,1432) = lu(k,1432) - lu(k,1329) * lu(k,1430) + lu(k,1433) = lu(k,1433) - lu(k,1330) * lu(k,1430) + lu(k,1434) = lu(k,1434) - lu(k,1331) * lu(k,1430) + lu(k,1435) = lu(k,1435) - lu(k,1332) * lu(k,1430) + lu(k,1436) = lu(k,1436) - lu(k,1333) * lu(k,1430) + lu(k,1437) = lu(k,1437) - lu(k,1334) * lu(k,1430) + lu(k,1438) = lu(k,1438) - lu(k,1335) * lu(k,1430) + lu(k,1439) = lu(k,1439) - lu(k,1336) * lu(k,1430) + lu(k,1440) = lu(k,1440) - lu(k,1337) * lu(k,1430) + lu(k,1441) = lu(k,1441) - lu(k,1338) * lu(k,1430) + lu(k,1442) = lu(k,1442) - lu(k,1339) * lu(k,1430) + lu(k,1443) = lu(k,1443) - lu(k,1340) * lu(k,1430) + lu(k,1444) = lu(k,1444) - lu(k,1341) * lu(k,1430) + lu(k,1445) = lu(k,1445) - lu(k,1342) * lu(k,1430) + lu(k,1446) = lu(k,1446) - lu(k,1343) * lu(k,1430) + lu(k,1447) = lu(k,1447) - lu(k,1344) * lu(k,1430) + lu(k,1479) = lu(k,1479) - lu(k,1328) * lu(k,1478) + lu(k,1480) = lu(k,1480) - lu(k,1329) * lu(k,1478) + lu(k,1481) = lu(k,1481) - lu(k,1330) * lu(k,1478) + lu(k,1482) = lu(k,1482) - lu(k,1331) * lu(k,1478) + lu(k,1483) = lu(k,1483) - lu(k,1332) * lu(k,1478) + lu(k,1484) = lu(k,1484) - lu(k,1333) * lu(k,1478) + lu(k,1485) = lu(k,1485) - lu(k,1334) * lu(k,1478) + lu(k,1486) = lu(k,1486) - lu(k,1335) * lu(k,1478) + lu(k,1487) = lu(k,1487) - lu(k,1336) * lu(k,1478) + lu(k,1488) = lu(k,1488) - lu(k,1337) * lu(k,1478) + lu(k,1489) = lu(k,1489) - lu(k,1338) * lu(k,1478) + lu(k,1490) = lu(k,1490) - lu(k,1339) * lu(k,1478) + lu(k,1491) = lu(k,1491) - lu(k,1340) * lu(k,1478) + lu(k,1492) = lu(k,1492) - lu(k,1341) * lu(k,1478) + lu(k,1493) = lu(k,1493) - lu(k,1342) * lu(k,1478) + lu(k,1494) = lu(k,1494) - lu(k,1343) * lu(k,1478) + lu(k,1495) = lu(k,1495) - lu(k,1344) * lu(k,1478) + lu(k,1520) = lu(k,1520) - lu(k,1328) * lu(k,1519) + lu(k,1521) = lu(k,1521) - lu(k,1329) * lu(k,1519) + lu(k,1522) = lu(k,1522) - lu(k,1330) * lu(k,1519) + lu(k,1523) = lu(k,1523) - lu(k,1331) * lu(k,1519) + lu(k,1524) = lu(k,1524) - lu(k,1332) * lu(k,1519) + lu(k,1525) = lu(k,1525) - lu(k,1333) * lu(k,1519) + lu(k,1526) = lu(k,1526) - lu(k,1334) * lu(k,1519) + lu(k,1527) = lu(k,1527) - lu(k,1335) * lu(k,1519) + lu(k,1528) = lu(k,1528) - lu(k,1336) * lu(k,1519) + lu(k,1529) = lu(k,1529) - lu(k,1337) * lu(k,1519) + lu(k,1530) = lu(k,1530) - lu(k,1338) * lu(k,1519) + lu(k,1531) = lu(k,1531) - lu(k,1339) * lu(k,1519) + lu(k,1532) = lu(k,1532) - lu(k,1340) * lu(k,1519) + lu(k,1533) = lu(k,1533) - lu(k,1341) * lu(k,1519) + lu(k,1534) = lu(k,1534) - lu(k,1342) * lu(k,1519) + lu(k,1535) = lu(k,1535) - lu(k,1343) * lu(k,1519) + lu(k,1536) = lu(k,1536) - lu(k,1344) * lu(k,1519) + lu(k,1556) = lu(k,1556) - lu(k,1328) * lu(k,1555) + lu(k,1557) = lu(k,1557) - lu(k,1329) * lu(k,1555) + lu(k,1558) = lu(k,1558) - lu(k,1330) * lu(k,1555) + lu(k,1559) = lu(k,1559) - lu(k,1331) * lu(k,1555) + lu(k,1560) = lu(k,1560) - lu(k,1332) * lu(k,1555) + lu(k,1561) = lu(k,1561) - lu(k,1333) * lu(k,1555) + lu(k,1562) = lu(k,1562) - lu(k,1334) * lu(k,1555) + lu(k,1563) = lu(k,1563) - lu(k,1335) * lu(k,1555) + lu(k,1564) = lu(k,1564) - lu(k,1336) * lu(k,1555) + lu(k,1565) = lu(k,1565) - lu(k,1337) * lu(k,1555) + lu(k,1566) = lu(k,1566) - lu(k,1338) * lu(k,1555) + lu(k,1567) = lu(k,1567) - lu(k,1339) * lu(k,1555) + lu(k,1568) = lu(k,1568) - lu(k,1340) * lu(k,1555) + lu(k,1569) = lu(k,1569) - lu(k,1341) * lu(k,1555) + lu(k,1570) = lu(k,1570) - lu(k,1342) * lu(k,1555) + lu(k,1571) = lu(k,1571) - lu(k,1343) * lu(k,1555) + lu(k,1572) = lu(k,1572) - lu(k,1344) * lu(k,1555) + lu(k,1601) = lu(k,1601) - lu(k,1328) * lu(k,1600) + lu(k,1602) = lu(k,1602) - lu(k,1329) * lu(k,1600) + lu(k,1603) = lu(k,1603) - lu(k,1330) * lu(k,1600) + lu(k,1604) = lu(k,1604) - lu(k,1331) * lu(k,1600) + lu(k,1605) = lu(k,1605) - lu(k,1332) * lu(k,1600) + lu(k,1606) = lu(k,1606) - lu(k,1333) * lu(k,1600) + lu(k,1607) = lu(k,1607) - lu(k,1334) * lu(k,1600) + lu(k,1608) = lu(k,1608) - lu(k,1335) * lu(k,1600) + lu(k,1609) = lu(k,1609) - lu(k,1336) * lu(k,1600) + lu(k,1610) = lu(k,1610) - lu(k,1337) * lu(k,1600) + lu(k,1611) = lu(k,1611) - lu(k,1338) * lu(k,1600) + lu(k,1612) = lu(k,1612) - lu(k,1339) * lu(k,1600) + lu(k,1613) = lu(k,1613) - lu(k,1340) * lu(k,1600) + lu(k,1614) = lu(k,1614) - lu(k,1341) * lu(k,1600) + lu(k,1615) = lu(k,1615) - lu(k,1342) * lu(k,1600) + lu(k,1616) = lu(k,1616) - lu(k,1343) * lu(k,1600) + lu(k,1617) = lu(k,1617) - lu(k,1344) * lu(k,1600) + lu(k,1644) = lu(k,1644) - lu(k,1328) * lu(k,1643) + lu(k,1645) = lu(k,1645) - lu(k,1329) * lu(k,1643) + lu(k,1646) = lu(k,1646) - lu(k,1330) * lu(k,1643) + lu(k,1647) = lu(k,1647) - lu(k,1331) * lu(k,1643) + lu(k,1648) = lu(k,1648) - lu(k,1332) * lu(k,1643) + lu(k,1649) = lu(k,1649) - lu(k,1333) * lu(k,1643) + lu(k,1650) = lu(k,1650) - lu(k,1334) * lu(k,1643) + lu(k,1651) = lu(k,1651) - lu(k,1335) * lu(k,1643) + lu(k,1652) = lu(k,1652) - lu(k,1336) * lu(k,1643) + lu(k,1653) = lu(k,1653) - lu(k,1337) * lu(k,1643) + lu(k,1654) = lu(k,1654) - lu(k,1338) * lu(k,1643) + lu(k,1655) = lu(k,1655) - lu(k,1339) * lu(k,1643) + lu(k,1656) = lu(k,1656) - lu(k,1340) * lu(k,1643) + lu(k,1657) = lu(k,1657) - lu(k,1341) * lu(k,1643) + lu(k,1658) = lu(k,1658) - lu(k,1342) * lu(k,1643) + lu(k,1659) = lu(k,1659) - lu(k,1343) * lu(k,1643) + lu(k,1660) = lu(k,1660) - lu(k,1344) * lu(k,1643) + lu(k,1686) = lu(k,1686) - lu(k,1328) * lu(k,1685) + lu(k,1687) = lu(k,1687) - lu(k,1329) * lu(k,1685) + lu(k,1688) = lu(k,1688) - lu(k,1330) * lu(k,1685) + lu(k,1689) = lu(k,1689) - lu(k,1331) * lu(k,1685) + lu(k,1690) = lu(k,1690) - lu(k,1332) * lu(k,1685) + lu(k,1691) = lu(k,1691) - lu(k,1333) * lu(k,1685) + lu(k,1692) = lu(k,1692) - lu(k,1334) * lu(k,1685) + lu(k,1693) = lu(k,1693) - lu(k,1335) * lu(k,1685) + lu(k,1694) = lu(k,1694) - lu(k,1336) * lu(k,1685) + lu(k,1695) = lu(k,1695) - lu(k,1337) * lu(k,1685) + lu(k,1696) = lu(k,1696) - lu(k,1338) * lu(k,1685) + lu(k,1697) = lu(k,1697) - lu(k,1339) * lu(k,1685) + lu(k,1698) = lu(k,1698) - lu(k,1340) * lu(k,1685) + lu(k,1699) = lu(k,1699) - lu(k,1341) * lu(k,1685) + lu(k,1700) = lu(k,1700) - lu(k,1342) * lu(k,1685) + lu(k,1701) = lu(k,1701) - lu(k,1343) * lu(k,1685) + lu(k,1702) = lu(k,1702) - lu(k,1344) * lu(k,1685) + lu(k,1726) = lu(k,1726) - lu(k,1328) * lu(k,1725) + lu(k,1727) = lu(k,1727) - lu(k,1329) * lu(k,1725) + lu(k,1728) = lu(k,1728) - lu(k,1330) * lu(k,1725) + lu(k,1729) = lu(k,1729) - lu(k,1331) * lu(k,1725) + lu(k,1730) = lu(k,1730) - lu(k,1332) * lu(k,1725) + lu(k,1731) = lu(k,1731) - lu(k,1333) * lu(k,1725) + lu(k,1732) = lu(k,1732) - lu(k,1334) * lu(k,1725) + lu(k,1733) = lu(k,1733) - lu(k,1335) * lu(k,1725) + lu(k,1734) = lu(k,1734) - lu(k,1336) * lu(k,1725) + lu(k,1735) = lu(k,1735) - lu(k,1337) * lu(k,1725) + lu(k,1736) = lu(k,1736) - lu(k,1338) * lu(k,1725) + lu(k,1737) = lu(k,1737) - lu(k,1339) * lu(k,1725) + lu(k,1738) = lu(k,1738) - lu(k,1340) * lu(k,1725) + lu(k,1739) = lu(k,1739) - lu(k,1341) * lu(k,1725) + lu(k,1740) = lu(k,1740) - lu(k,1342) * lu(k,1725) + lu(k,1741) = lu(k,1741) - lu(k,1343) * lu(k,1725) + lu(k,1742) = lu(k,1742) - lu(k,1344) * lu(k,1725) + lu(k,1762) = lu(k,1762) - lu(k,1328) * lu(k,1761) + lu(k,1763) = lu(k,1763) - lu(k,1329) * lu(k,1761) + lu(k,1764) = lu(k,1764) - lu(k,1330) * lu(k,1761) + lu(k,1765) = lu(k,1765) - lu(k,1331) * lu(k,1761) + lu(k,1766) = lu(k,1766) - lu(k,1332) * lu(k,1761) + lu(k,1767) = lu(k,1767) - lu(k,1333) * lu(k,1761) + lu(k,1768) = lu(k,1768) - lu(k,1334) * lu(k,1761) + lu(k,1769) = lu(k,1769) - lu(k,1335) * lu(k,1761) + lu(k,1770) = lu(k,1770) - lu(k,1336) * lu(k,1761) + lu(k,1771) = lu(k,1771) - lu(k,1337) * lu(k,1761) + lu(k,1772) = lu(k,1772) - lu(k,1338) * lu(k,1761) + lu(k,1773) = lu(k,1773) - lu(k,1339) * lu(k,1761) + lu(k,1774) = lu(k,1774) - lu(k,1340) * lu(k,1761) + lu(k,1775) = lu(k,1775) - lu(k,1341) * lu(k,1761) + lu(k,1776) = lu(k,1776) - lu(k,1342) * lu(k,1761) + lu(k,1777) = lu(k,1777) - lu(k,1343) * lu(k,1761) + lu(k,1778) = lu(k,1778) - lu(k,1344) * lu(k,1761) + lu(k,1810) = lu(k,1810) - lu(k,1328) * lu(k,1809) + lu(k,1811) = lu(k,1811) - lu(k,1329) * lu(k,1809) + lu(k,1812) = lu(k,1812) - lu(k,1330) * lu(k,1809) + lu(k,1813) = lu(k,1813) - lu(k,1331) * lu(k,1809) + lu(k,1814) = lu(k,1814) - lu(k,1332) * lu(k,1809) + lu(k,1815) = lu(k,1815) - lu(k,1333) * lu(k,1809) + lu(k,1816) = lu(k,1816) - lu(k,1334) * lu(k,1809) + lu(k,1817) = lu(k,1817) - lu(k,1335) * lu(k,1809) + lu(k,1818) = lu(k,1818) - lu(k,1336) * lu(k,1809) + lu(k,1819) = lu(k,1819) - lu(k,1337) * lu(k,1809) + lu(k,1820) = lu(k,1820) - lu(k,1338) * lu(k,1809) + lu(k,1821) = lu(k,1821) - lu(k,1339) * lu(k,1809) + lu(k,1822) = lu(k,1822) - lu(k,1340) * lu(k,1809) + lu(k,1823) = lu(k,1823) - lu(k,1341) * lu(k,1809) + lu(k,1824) = lu(k,1824) - lu(k,1342) * lu(k,1809) + lu(k,1825) = lu(k,1825) - lu(k,1343) * lu(k,1809) + lu(k,1826) = lu(k,1826) - lu(k,1344) * lu(k,1809) + lu(k,1843) = lu(k,1843) - lu(k,1328) * lu(k,1842) + lu(k,1844) = lu(k,1844) - lu(k,1329) * lu(k,1842) + lu(k,1845) = lu(k,1845) - lu(k,1330) * lu(k,1842) + lu(k,1846) = lu(k,1846) - lu(k,1331) * lu(k,1842) + lu(k,1847) = lu(k,1847) - lu(k,1332) * lu(k,1842) + lu(k,1848) = lu(k,1848) - lu(k,1333) * lu(k,1842) + lu(k,1849) = lu(k,1849) - lu(k,1334) * lu(k,1842) + lu(k,1850) = lu(k,1850) - lu(k,1335) * lu(k,1842) + lu(k,1851) = lu(k,1851) - lu(k,1336) * lu(k,1842) + lu(k,1852) = lu(k,1852) - lu(k,1337) * lu(k,1842) + lu(k,1853) = lu(k,1853) - lu(k,1338) * lu(k,1842) + lu(k,1854) = lu(k,1854) - lu(k,1339) * lu(k,1842) + lu(k,1855) = lu(k,1855) - lu(k,1340) * lu(k,1842) + lu(k,1856) = lu(k,1856) - lu(k,1341) * lu(k,1842) + lu(k,1857) = lu(k,1857) - lu(k,1342) * lu(k,1842) + lu(k,1858) = lu(k,1858) - lu(k,1343) * lu(k,1842) + lu(k,1859) = lu(k,1859) - lu(k,1344) * lu(k,1842) + lu(k,1879) = lu(k,1879) - lu(k,1328) * lu(k,1878) + lu(k,1880) = lu(k,1880) - lu(k,1329) * lu(k,1878) + lu(k,1881) = lu(k,1881) - lu(k,1330) * lu(k,1878) + lu(k,1882) = lu(k,1882) - lu(k,1331) * lu(k,1878) + lu(k,1883) = lu(k,1883) - lu(k,1332) * lu(k,1878) + lu(k,1884) = lu(k,1884) - lu(k,1333) * lu(k,1878) + lu(k,1885) = lu(k,1885) - lu(k,1334) * lu(k,1878) + lu(k,1886) = lu(k,1886) - lu(k,1335) * lu(k,1878) + lu(k,1887) = lu(k,1887) - lu(k,1336) * lu(k,1878) + lu(k,1888) = lu(k,1888) - lu(k,1337) * lu(k,1878) + lu(k,1889) = lu(k,1889) - lu(k,1338) * lu(k,1878) + lu(k,1890) = lu(k,1890) - lu(k,1339) * lu(k,1878) + lu(k,1891) = lu(k,1891) - lu(k,1340) * lu(k,1878) + lu(k,1892) = lu(k,1892) - lu(k,1341) * lu(k,1878) + lu(k,1893) = lu(k,1893) - lu(k,1342) * lu(k,1878) + lu(k,1894) = lu(k,1894) - lu(k,1343) * lu(k,1878) + lu(k,1895) = lu(k,1895) - lu(k,1344) * lu(k,1878) + lu(k,1928) = lu(k,1928) - lu(k,1328) * lu(k,1927) + lu(k,1929) = lu(k,1929) - lu(k,1329) * lu(k,1927) + lu(k,1930) = lu(k,1930) - lu(k,1330) * lu(k,1927) + lu(k,1931) = lu(k,1931) - lu(k,1331) * lu(k,1927) + lu(k,1932) = lu(k,1932) - lu(k,1332) * lu(k,1927) + lu(k,1933) = lu(k,1933) - lu(k,1333) * lu(k,1927) + lu(k,1934) = lu(k,1934) - lu(k,1334) * lu(k,1927) + lu(k,1935) = lu(k,1935) - lu(k,1335) * lu(k,1927) + lu(k,1936) = lu(k,1936) - lu(k,1336) * lu(k,1927) + lu(k,1937) = lu(k,1937) - lu(k,1337) * lu(k,1927) + lu(k,1938) = lu(k,1938) - lu(k,1338) * lu(k,1927) + lu(k,1939) = lu(k,1939) - lu(k,1339) * lu(k,1927) + lu(k,1940) = lu(k,1940) - lu(k,1340) * lu(k,1927) + lu(k,1941) = lu(k,1941) - lu(k,1341) * lu(k,1927) + lu(k,1942) = lu(k,1942) - lu(k,1342) * lu(k,1927) + lu(k,1943) = lu(k,1943) - lu(k,1343) * lu(k,1927) + lu(k,1944) = lu(k,1944) - lu(k,1344) * lu(k,1927) + lu(k,1972) = lu(k,1972) - lu(k,1328) * lu(k,1971) + lu(k,1973) = lu(k,1973) - lu(k,1329) * lu(k,1971) + lu(k,1974) = lu(k,1974) - lu(k,1330) * lu(k,1971) + lu(k,1975) = lu(k,1975) - lu(k,1331) * lu(k,1971) + lu(k,1976) = lu(k,1976) - lu(k,1332) * lu(k,1971) + lu(k,1977) = lu(k,1977) - lu(k,1333) * lu(k,1971) + lu(k,1978) = lu(k,1978) - lu(k,1334) * lu(k,1971) + lu(k,1979) = lu(k,1979) - lu(k,1335) * lu(k,1971) + lu(k,1980) = lu(k,1980) - lu(k,1336) * lu(k,1971) + lu(k,1981) = lu(k,1981) - lu(k,1337) * lu(k,1971) + lu(k,1982) = lu(k,1982) - lu(k,1338) * lu(k,1971) + lu(k,1983) = lu(k,1983) - lu(k,1339) * lu(k,1971) + lu(k,1984) = lu(k,1984) - lu(k,1340) * lu(k,1971) + lu(k,1985) = lu(k,1985) - lu(k,1341) * lu(k,1971) + lu(k,1986) = lu(k,1986) - lu(k,1342) * lu(k,1971) + lu(k,1987) = lu(k,1987) - lu(k,1343) * lu(k,1971) + lu(k,1988) = lu(k,1988) - lu(k,1344) * lu(k,1971) + lu(k,2017) = lu(k,2017) - lu(k,1328) * lu(k,2016) + lu(k,2018) = lu(k,2018) - lu(k,1329) * lu(k,2016) + lu(k,2019) = lu(k,2019) - lu(k,1330) * lu(k,2016) + lu(k,2020) = lu(k,2020) - lu(k,1331) * lu(k,2016) + lu(k,2021) = lu(k,2021) - lu(k,1332) * lu(k,2016) + lu(k,2022) = lu(k,2022) - lu(k,1333) * lu(k,2016) + lu(k,2023) = lu(k,2023) - lu(k,1334) * lu(k,2016) + lu(k,2024) = lu(k,2024) - lu(k,1335) * lu(k,2016) + lu(k,2025) = lu(k,2025) - lu(k,1336) * lu(k,2016) + lu(k,2026) = lu(k,2026) - lu(k,1337) * lu(k,2016) + lu(k,2027) = lu(k,2027) - lu(k,1338) * lu(k,2016) + lu(k,2028) = lu(k,2028) - lu(k,1339) * lu(k,2016) + lu(k,2029) = lu(k,2029) - lu(k,1340) * lu(k,2016) + lu(k,2030) = lu(k,2030) - lu(k,1341) * lu(k,2016) + lu(k,2031) = lu(k,2031) - lu(k,1342) * lu(k,2016) + lu(k,2032) = lu(k,2032) - lu(k,1343) * lu(k,2016) + lu(k,2033) = lu(k,2033) - lu(k,1344) * lu(k,2016) + lu(k,2077) = lu(k,2077) - lu(k,1328) * lu(k,2076) + lu(k,2078) = lu(k,2078) - lu(k,1329) * lu(k,2076) + lu(k,2079) = lu(k,2079) - lu(k,1330) * lu(k,2076) + lu(k,2080) = lu(k,2080) - lu(k,1331) * lu(k,2076) + lu(k,2081) = lu(k,2081) - lu(k,1332) * lu(k,2076) + lu(k,2082) = lu(k,2082) - lu(k,1333) * lu(k,2076) + lu(k,2083) = lu(k,2083) - lu(k,1334) * lu(k,2076) + lu(k,2084) = lu(k,2084) - lu(k,1335) * lu(k,2076) + lu(k,2085) = lu(k,2085) - lu(k,1336) * lu(k,2076) + lu(k,2086) = lu(k,2086) - lu(k,1337) * lu(k,2076) + lu(k,2087) = lu(k,2087) - lu(k,1338) * lu(k,2076) + lu(k,2088) = lu(k,2088) - lu(k,1339) * lu(k,2076) + lu(k,2089) = lu(k,2089) - lu(k,1340) * lu(k,2076) + lu(k,2090) = lu(k,2090) - lu(k,1341) * lu(k,2076) + lu(k,2091) = lu(k,2091) - lu(k,1342) * lu(k,2076) + lu(k,2092) = lu(k,2092) - lu(k,1343) * lu(k,2076) + lu(k,2093) = lu(k,2093) - lu(k,1344) * lu(k,2076) end do - end subroutine lu_fac23 - subroutine lu_fac24( avec_len, lu ) + end subroutine lu_fac24 + subroutine lu_fac25( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -12559,900 +12599,900 @@ subroutine lu_fac24( avec_len, lu ) lu(k,1402) = lu(k,1402) * lu(k,1388) lu(k,1403) = lu(k,1403) * lu(k,1388) lu(k,1404) = lu(k,1404) * lu(k,1388) - lu(k,1438) = lu(k,1438) - lu(k,1389) * lu(k,1437) - lu(k,1439) = lu(k,1439) - lu(k,1390) * lu(k,1437) - lu(k,1440) = lu(k,1440) - lu(k,1391) * lu(k,1437) - lu(k,1441) = lu(k,1441) - lu(k,1392) * lu(k,1437) - lu(k,1442) = lu(k,1442) - lu(k,1393) * lu(k,1437) - lu(k,1443) = lu(k,1443) - lu(k,1394) * lu(k,1437) - lu(k,1444) = lu(k,1444) - lu(k,1395) * lu(k,1437) - lu(k,1445) = lu(k,1445) - lu(k,1396) * lu(k,1437) - lu(k,1446) = lu(k,1446) - lu(k,1397) * lu(k,1437) - lu(k,1447) = lu(k,1447) - lu(k,1398) * lu(k,1437) - lu(k,1448) = lu(k,1448) - lu(k,1399) * lu(k,1437) - lu(k,1449) = lu(k,1449) - lu(k,1400) * lu(k,1437) - lu(k,1450) = lu(k,1450) - lu(k,1401) * lu(k,1437) - lu(k,1451) = lu(k,1451) - lu(k,1402) * lu(k,1437) - lu(k,1452) = lu(k,1452) - lu(k,1403) * lu(k,1437) - lu(k,1453) = lu(k,1453) - lu(k,1404) * lu(k,1437) - lu(k,1486) = lu(k,1486) - lu(k,1389) * lu(k,1485) - lu(k,1487) = lu(k,1487) - lu(k,1390) * lu(k,1485) - lu(k,1488) = lu(k,1488) - lu(k,1391) * lu(k,1485) - lu(k,1489) = lu(k,1489) - lu(k,1392) * lu(k,1485) - lu(k,1490) = lu(k,1490) - lu(k,1393) * lu(k,1485) - lu(k,1491) = lu(k,1491) - lu(k,1394) * lu(k,1485) - lu(k,1492) = lu(k,1492) - lu(k,1395) * lu(k,1485) - lu(k,1493) = lu(k,1493) - lu(k,1396) * lu(k,1485) - lu(k,1494) = lu(k,1494) - lu(k,1397) * lu(k,1485) - lu(k,1495) = lu(k,1495) - lu(k,1398) * lu(k,1485) - lu(k,1496) = lu(k,1496) - lu(k,1399) * lu(k,1485) - lu(k,1497) = lu(k,1497) - lu(k,1400) * lu(k,1485) - lu(k,1498) = lu(k,1498) - lu(k,1401) * lu(k,1485) - lu(k,1499) = lu(k,1499) - lu(k,1402) * lu(k,1485) - lu(k,1500) = lu(k,1500) - lu(k,1403) * lu(k,1485) - lu(k,1501) = lu(k,1501) - lu(k,1404) * lu(k,1485) - lu(k,1527) = lu(k,1527) - lu(k,1389) * lu(k,1526) - lu(k,1528) = lu(k,1528) - lu(k,1390) * lu(k,1526) - lu(k,1529) = lu(k,1529) - lu(k,1391) * lu(k,1526) - lu(k,1530) = lu(k,1530) - lu(k,1392) * lu(k,1526) - lu(k,1531) = lu(k,1531) - lu(k,1393) * lu(k,1526) - lu(k,1532) = lu(k,1532) - lu(k,1394) * lu(k,1526) - lu(k,1533) = lu(k,1533) - lu(k,1395) * lu(k,1526) - lu(k,1534) = lu(k,1534) - lu(k,1396) * lu(k,1526) - lu(k,1535) = lu(k,1535) - lu(k,1397) * lu(k,1526) - lu(k,1536) = lu(k,1536) - lu(k,1398) * lu(k,1526) - lu(k,1537) = lu(k,1537) - lu(k,1399) * lu(k,1526) - lu(k,1538) = lu(k,1538) - lu(k,1400) * lu(k,1526) - lu(k,1539) = lu(k,1539) - lu(k,1401) * lu(k,1526) - lu(k,1540) = lu(k,1540) - lu(k,1402) * lu(k,1526) - lu(k,1541) = lu(k,1541) - lu(k,1403) * lu(k,1526) - lu(k,1542) = lu(k,1542) - lu(k,1404) * lu(k,1526) - lu(k,1563) = lu(k,1563) - lu(k,1389) * lu(k,1562) - lu(k,1564) = lu(k,1564) - lu(k,1390) * lu(k,1562) - lu(k,1565) = lu(k,1565) - lu(k,1391) * lu(k,1562) - lu(k,1566) = lu(k,1566) - lu(k,1392) * lu(k,1562) - lu(k,1567) = lu(k,1567) - lu(k,1393) * lu(k,1562) - lu(k,1568) = lu(k,1568) - lu(k,1394) * lu(k,1562) - lu(k,1569) = lu(k,1569) - lu(k,1395) * lu(k,1562) - lu(k,1570) = lu(k,1570) - lu(k,1396) * lu(k,1562) - lu(k,1571) = lu(k,1571) - lu(k,1397) * lu(k,1562) - lu(k,1572) = lu(k,1572) - lu(k,1398) * lu(k,1562) - lu(k,1573) = lu(k,1573) - lu(k,1399) * lu(k,1562) - lu(k,1574) = lu(k,1574) - lu(k,1400) * lu(k,1562) - lu(k,1575) = lu(k,1575) - lu(k,1401) * lu(k,1562) - lu(k,1576) = lu(k,1576) - lu(k,1402) * lu(k,1562) - lu(k,1577) = lu(k,1577) - lu(k,1403) * lu(k,1562) - lu(k,1578) = lu(k,1578) - lu(k,1404) * lu(k,1562) - lu(k,1608) = lu(k,1608) - lu(k,1389) * lu(k,1607) - lu(k,1609) = lu(k,1609) - lu(k,1390) * lu(k,1607) - lu(k,1610) = lu(k,1610) - lu(k,1391) * lu(k,1607) - lu(k,1611) = lu(k,1611) - lu(k,1392) * lu(k,1607) - lu(k,1612) = lu(k,1612) - lu(k,1393) * lu(k,1607) - lu(k,1613) = lu(k,1613) - lu(k,1394) * lu(k,1607) - lu(k,1614) = lu(k,1614) - lu(k,1395) * lu(k,1607) - lu(k,1615) = lu(k,1615) - lu(k,1396) * lu(k,1607) - lu(k,1616) = lu(k,1616) - lu(k,1397) * lu(k,1607) - lu(k,1617) = lu(k,1617) - lu(k,1398) * lu(k,1607) - lu(k,1618) = lu(k,1618) - lu(k,1399) * lu(k,1607) - lu(k,1619) = lu(k,1619) - lu(k,1400) * lu(k,1607) - lu(k,1620) = lu(k,1620) - lu(k,1401) * lu(k,1607) - lu(k,1621) = lu(k,1621) - lu(k,1402) * lu(k,1607) - lu(k,1622) = lu(k,1622) - lu(k,1403) * lu(k,1607) - lu(k,1623) = lu(k,1623) - lu(k,1404) * lu(k,1607) - lu(k,1651) = lu(k,1651) - lu(k,1389) * lu(k,1650) - lu(k,1652) = lu(k,1652) - lu(k,1390) * lu(k,1650) - lu(k,1653) = lu(k,1653) - lu(k,1391) * lu(k,1650) - lu(k,1654) = lu(k,1654) - lu(k,1392) * lu(k,1650) - lu(k,1655) = lu(k,1655) - lu(k,1393) * lu(k,1650) - lu(k,1656) = lu(k,1656) - lu(k,1394) * lu(k,1650) - lu(k,1657) = lu(k,1657) - lu(k,1395) * lu(k,1650) - lu(k,1658) = lu(k,1658) - lu(k,1396) * lu(k,1650) - lu(k,1659) = lu(k,1659) - lu(k,1397) * lu(k,1650) - lu(k,1660) = lu(k,1660) - lu(k,1398) * lu(k,1650) - lu(k,1661) = lu(k,1661) - lu(k,1399) * lu(k,1650) - lu(k,1662) = lu(k,1662) - lu(k,1400) * lu(k,1650) - lu(k,1663) = lu(k,1663) - lu(k,1401) * lu(k,1650) - lu(k,1664) = lu(k,1664) - lu(k,1402) * lu(k,1650) - lu(k,1665) = lu(k,1665) - lu(k,1403) * lu(k,1650) - lu(k,1666) = lu(k,1666) - lu(k,1404) * lu(k,1650) - lu(k,1694) = lu(k,1694) - lu(k,1389) * lu(k,1693) - lu(k,1695) = lu(k,1695) - lu(k,1390) * lu(k,1693) - lu(k,1696) = lu(k,1696) - lu(k,1391) * lu(k,1693) - lu(k,1697) = lu(k,1697) - lu(k,1392) * lu(k,1693) - lu(k,1698) = lu(k,1698) - lu(k,1393) * lu(k,1693) - lu(k,1699) = lu(k,1699) - lu(k,1394) * lu(k,1693) - lu(k,1700) = lu(k,1700) - lu(k,1395) * lu(k,1693) - lu(k,1701) = lu(k,1701) - lu(k,1396) * lu(k,1693) - lu(k,1702) = lu(k,1702) - lu(k,1397) * lu(k,1693) - lu(k,1703) = lu(k,1703) - lu(k,1398) * lu(k,1693) - lu(k,1704) = lu(k,1704) - lu(k,1399) * lu(k,1693) - lu(k,1705) = lu(k,1705) - lu(k,1400) * lu(k,1693) - lu(k,1706) = lu(k,1706) - lu(k,1401) * lu(k,1693) - lu(k,1707) = lu(k,1707) - lu(k,1402) * lu(k,1693) - lu(k,1708) = lu(k,1708) - lu(k,1403) * lu(k,1693) - lu(k,1709) = lu(k,1709) - lu(k,1404) * lu(k,1693) - lu(k,1734) = lu(k,1734) - lu(k,1389) * lu(k,1733) - lu(k,1735) = lu(k,1735) - lu(k,1390) * lu(k,1733) - lu(k,1736) = lu(k,1736) - lu(k,1391) * lu(k,1733) - lu(k,1737) = lu(k,1737) - lu(k,1392) * lu(k,1733) - lu(k,1738) = lu(k,1738) - lu(k,1393) * lu(k,1733) - lu(k,1739) = lu(k,1739) - lu(k,1394) * lu(k,1733) - lu(k,1740) = lu(k,1740) - lu(k,1395) * lu(k,1733) - lu(k,1741) = lu(k,1741) - lu(k,1396) * lu(k,1733) - lu(k,1742) = lu(k,1742) - lu(k,1397) * lu(k,1733) - lu(k,1743) = lu(k,1743) - lu(k,1398) * lu(k,1733) - lu(k,1744) = lu(k,1744) - lu(k,1399) * lu(k,1733) - lu(k,1745) = lu(k,1745) - lu(k,1400) * lu(k,1733) - lu(k,1746) = lu(k,1746) - lu(k,1401) * lu(k,1733) - lu(k,1747) = lu(k,1747) - lu(k,1402) * lu(k,1733) - lu(k,1748) = lu(k,1748) - lu(k,1403) * lu(k,1733) - lu(k,1749) = lu(k,1749) - lu(k,1404) * lu(k,1733) - lu(k,1770) = lu(k,1770) - lu(k,1389) * lu(k,1769) - lu(k,1771) = lu(k,1771) - lu(k,1390) * lu(k,1769) - lu(k,1772) = lu(k,1772) - lu(k,1391) * lu(k,1769) - lu(k,1773) = lu(k,1773) - lu(k,1392) * lu(k,1769) - lu(k,1774) = lu(k,1774) - lu(k,1393) * lu(k,1769) - lu(k,1775) = lu(k,1775) - lu(k,1394) * lu(k,1769) - lu(k,1776) = lu(k,1776) - lu(k,1395) * lu(k,1769) - lu(k,1777) = lu(k,1777) - lu(k,1396) * lu(k,1769) - lu(k,1778) = lu(k,1778) - lu(k,1397) * lu(k,1769) - lu(k,1779) = lu(k,1779) - lu(k,1398) * lu(k,1769) - lu(k,1780) = lu(k,1780) - lu(k,1399) * lu(k,1769) - lu(k,1781) = lu(k,1781) - lu(k,1400) * lu(k,1769) - lu(k,1782) = lu(k,1782) - lu(k,1401) * lu(k,1769) - lu(k,1783) = lu(k,1783) - lu(k,1402) * lu(k,1769) - lu(k,1784) = lu(k,1784) - lu(k,1403) * lu(k,1769) - lu(k,1785) = lu(k,1785) - lu(k,1404) * lu(k,1769) - lu(k,1818) = lu(k,1818) - lu(k,1389) * lu(k,1817) - lu(k,1819) = lu(k,1819) - lu(k,1390) * lu(k,1817) - lu(k,1820) = lu(k,1820) - lu(k,1391) * lu(k,1817) - lu(k,1821) = lu(k,1821) - lu(k,1392) * lu(k,1817) - lu(k,1822) = lu(k,1822) - lu(k,1393) * lu(k,1817) - lu(k,1823) = lu(k,1823) - lu(k,1394) * lu(k,1817) - lu(k,1824) = lu(k,1824) - lu(k,1395) * lu(k,1817) - lu(k,1825) = lu(k,1825) - lu(k,1396) * lu(k,1817) - lu(k,1826) = lu(k,1826) - lu(k,1397) * lu(k,1817) - lu(k,1827) = lu(k,1827) - lu(k,1398) * lu(k,1817) - lu(k,1828) = lu(k,1828) - lu(k,1399) * lu(k,1817) - lu(k,1829) = lu(k,1829) - lu(k,1400) * lu(k,1817) - lu(k,1830) = lu(k,1830) - lu(k,1401) * lu(k,1817) - lu(k,1831) = lu(k,1831) - lu(k,1402) * lu(k,1817) - lu(k,1832) = lu(k,1832) - lu(k,1403) * lu(k,1817) - lu(k,1833) = lu(k,1833) - lu(k,1404) * lu(k,1817) - lu(k,1851) = lu(k,1851) - lu(k,1389) * lu(k,1850) - lu(k,1852) = lu(k,1852) - lu(k,1390) * lu(k,1850) - lu(k,1853) = lu(k,1853) - lu(k,1391) * lu(k,1850) - lu(k,1854) = lu(k,1854) - lu(k,1392) * lu(k,1850) - lu(k,1855) = lu(k,1855) - lu(k,1393) * lu(k,1850) - lu(k,1856) = lu(k,1856) - lu(k,1394) * lu(k,1850) - lu(k,1857) = lu(k,1857) - lu(k,1395) * lu(k,1850) - lu(k,1858) = lu(k,1858) - lu(k,1396) * lu(k,1850) - lu(k,1859) = lu(k,1859) - lu(k,1397) * lu(k,1850) - lu(k,1860) = lu(k,1860) - lu(k,1398) * lu(k,1850) - lu(k,1861) = lu(k,1861) - lu(k,1399) * lu(k,1850) - lu(k,1862) = lu(k,1862) - lu(k,1400) * lu(k,1850) - lu(k,1863) = lu(k,1863) - lu(k,1401) * lu(k,1850) - lu(k,1864) = lu(k,1864) - lu(k,1402) * lu(k,1850) - lu(k,1865) = lu(k,1865) - lu(k,1403) * lu(k,1850) - lu(k,1866) = lu(k,1866) - lu(k,1404) * lu(k,1850) - lu(k,1887) = lu(k,1887) - lu(k,1389) * lu(k,1886) - lu(k,1888) = lu(k,1888) - lu(k,1390) * lu(k,1886) - lu(k,1889) = lu(k,1889) - lu(k,1391) * lu(k,1886) - lu(k,1890) = lu(k,1890) - lu(k,1392) * lu(k,1886) - lu(k,1891) = lu(k,1891) - lu(k,1393) * lu(k,1886) - lu(k,1892) = lu(k,1892) - lu(k,1394) * lu(k,1886) - lu(k,1893) = lu(k,1893) - lu(k,1395) * lu(k,1886) - lu(k,1894) = lu(k,1894) - lu(k,1396) * lu(k,1886) - lu(k,1895) = lu(k,1895) - lu(k,1397) * lu(k,1886) - lu(k,1896) = lu(k,1896) - lu(k,1398) * lu(k,1886) - lu(k,1897) = lu(k,1897) - lu(k,1399) * lu(k,1886) - lu(k,1898) = lu(k,1898) - lu(k,1400) * lu(k,1886) - lu(k,1899) = lu(k,1899) - lu(k,1401) * lu(k,1886) - lu(k,1900) = lu(k,1900) - lu(k,1402) * lu(k,1886) - lu(k,1901) = lu(k,1901) - lu(k,1403) * lu(k,1886) - lu(k,1902) = lu(k,1902) - lu(k,1404) * lu(k,1886) - lu(k,1928) = lu(k,1928) - lu(k,1389) * lu(k,1927) - lu(k,1929) = lu(k,1929) - lu(k,1390) * lu(k,1927) - lu(k,1930) = lu(k,1930) - lu(k,1391) * lu(k,1927) - lu(k,1931) = lu(k,1931) - lu(k,1392) * lu(k,1927) - lu(k,1932) = lu(k,1932) - lu(k,1393) * lu(k,1927) - lu(k,1933) = lu(k,1933) - lu(k,1394) * lu(k,1927) - lu(k,1934) = lu(k,1934) - lu(k,1395) * lu(k,1927) - lu(k,1935) = lu(k,1935) - lu(k,1396) * lu(k,1927) - lu(k,1936) = lu(k,1936) - lu(k,1397) * lu(k,1927) - lu(k,1937) = lu(k,1937) - lu(k,1398) * lu(k,1927) - lu(k,1938) = lu(k,1938) - lu(k,1399) * lu(k,1927) - lu(k,1939) = lu(k,1939) - lu(k,1400) * lu(k,1927) - lu(k,1940) = lu(k,1940) - lu(k,1401) * lu(k,1927) - lu(k,1941) = lu(k,1941) - lu(k,1402) * lu(k,1927) - lu(k,1942) = lu(k,1942) - lu(k,1403) * lu(k,1927) - lu(k,1943) = lu(k,1943) - lu(k,1404) * lu(k,1927) - lu(k,1970) = lu(k,1970) - lu(k,1389) * lu(k,1969) - lu(k,1971) = lu(k,1971) - lu(k,1390) * lu(k,1969) - lu(k,1972) = lu(k,1972) - lu(k,1391) * lu(k,1969) - lu(k,1973) = lu(k,1973) - lu(k,1392) * lu(k,1969) - lu(k,1974) = lu(k,1974) - lu(k,1393) * lu(k,1969) - lu(k,1975) = lu(k,1975) - lu(k,1394) * lu(k,1969) - lu(k,1976) = lu(k,1976) - lu(k,1395) * lu(k,1969) - lu(k,1977) = lu(k,1977) - lu(k,1396) * lu(k,1969) - lu(k,1978) = lu(k,1978) - lu(k,1397) * lu(k,1969) - lu(k,1979) = lu(k,1979) - lu(k,1398) * lu(k,1969) - lu(k,1980) = lu(k,1980) - lu(k,1399) * lu(k,1969) - lu(k,1981) = lu(k,1981) - lu(k,1400) * lu(k,1969) - lu(k,1982) = lu(k,1982) - lu(k,1401) * lu(k,1969) - lu(k,1983) = lu(k,1983) - lu(k,1402) * lu(k,1969) - lu(k,1984) = lu(k,1984) - lu(k,1403) * lu(k,1969) - lu(k,1985) = lu(k,1985) - lu(k,1404) * lu(k,1969) - lu(k,2015) = lu(k,2015) - lu(k,1389) * lu(k,2014) - lu(k,2016) = lu(k,2016) - lu(k,1390) * lu(k,2014) - lu(k,2017) = lu(k,2017) - lu(k,1391) * lu(k,2014) - lu(k,2018) = lu(k,2018) - lu(k,1392) * lu(k,2014) - lu(k,2019) = lu(k,2019) - lu(k,1393) * lu(k,2014) - lu(k,2020) = lu(k,2020) - lu(k,1394) * lu(k,2014) - lu(k,2021) = lu(k,2021) - lu(k,1395) * lu(k,2014) - lu(k,2022) = lu(k,2022) - lu(k,1396) * lu(k,2014) - lu(k,2023) = lu(k,2023) - lu(k,1397) * lu(k,2014) - lu(k,2024) = lu(k,2024) - lu(k,1398) * lu(k,2014) - lu(k,2025) = lu(k,2025) - lu(k,1399) * lu(k,2014) - lu(k,2026) = lu(k,2026) - lu(k,1400) * lu(k,2014) - lu(k,2027) = lu(k,2027) - lu(k,1401) * lu(k,2014) - lu(k,2028) = lu(k,2028) - lu(k,1402) * lu(k,2014) - lu(k,2029) = lu(k,2029) - lu(k,1403) * lu(k,2014) - lu(k,2030) = lu(k,2030) - lu(k,1404) * lu(k,2014) - lu(k,2075) = lu(k,2075) - lu(k,1389) * lu(k,2074) - lu(k,2076) = lu(k,2076) - lu(k,1390) * lu(k,2074) - lu(k,2077) = lu(k,2077) - lu(k,1391) * lu(k,2074) - lu(k,2078) = lu(k,2078) - lu(k,1392) * lu(k,2074) - lu(k,2079) = lu(k,2079) - lu(k,1393) * lu(k,2074) - lu(k,2080) = lu(k,2080) - lu(k,1394) * lu(k,2074) - lu(k,2081) = lu(k,2081) - lu(k,1395) * lu(k,2074) - lu(k,2082) = lu(k,2082) - lu(k,1396) * lu(k,2074) - lu(k,2083) = lu(k,2083) - lu(k,1397) * lu(k,2074) - lu(k,2084) = lu(k,2084) - lu(k,1398) * lu(k,2074) - lu(k,2085) = lu(k,2085) - lu(k,1399) * lu(k,2074) - lu(k,2086) = lu(k,2086) - lu(k,1400) * lu(k,2074) - lu(k,2087) = lu(k,2087) - lu(k,1401) * lu(k,2074) - lu(k,2088) = lu(k,2088) - lu(k,1402) * lu(k,2074) - lu(k,2089) = lu(k,2089) - lu(k,1403) * lu(k,2074) - lu(k,2090) = lu(k,2090) - lu(k,1404) * lu(k,2074) - lu(k,1438) = 1._r8 / lu(k,1438) - lu(k,1439) = lu(k,1439) * lu(k,1438) - lu(k,1440) = lu(k,1440) * lu(k,1438) - lu(k,1441) = lu(k,1441) * lu(k,1438) - lu(k,1442) = lu(k,1442) * lu(k,1438) - lu(k,1443) = lu(k,1443) * lu(k,1438) - lu(k,1444) = lu(k,1444) * lu(k,1438) - lu(k,1445) = lu(k,1445) * lu(k,1438) - lu(k,1446) = lu(k,1446) * lu(k,1438) - lu(k,1447) = lu(k,1447) * lu(k,1438) - lu(k,1448) = lu(k,1448) * lu(k,1438) - lu(k,1449) = lu(k,1449) * lu(k,1438) - lu(k,1450) = lu(k,1450) * lu(k,1438) - lu(k,1451) = lu(k,1451) * lu(k,1438) - lu(k,1452) = lu(k,1452) * lu(k,1438) - lu(k,1453) = lu(k,1453) * lu(k,1438) - lu(k,1487) = lu(k,1487) - lu(k,1439) * lu(k,1486) - lu(k,1488) = lu(k,1488) - lu(k,1440) * lu(k,1486) - lu(k,1489) = lu(k,1489) - lu(k,1441) * lu(k,1486) - lu(k,1490) = lu(k,1490) - lu(k,1442) * lu(k,1486) - lu(k,1491) = lu(k,1491) - lu(k,1443) * lu(k,1486) - lu(k,1492) = lu(k,1492) - lu(k,1444) * lu(k,1486) - lu(k,1493) = lu(k,1493) - lu(k,1445) * lu(k,1486) - lu(k,1494) = lu(k,1494) - lu(k,1446) * lu(k,1486) - lu(k,1495) = lu(k,1495) - lu(k,1447) * lu(k,1486) - lu(k,1496) = lu(k,1496) - lu(k,1448) * lu(k,1486) - lu(k,1497) = lu(k,1497) - lu(k,1449) * lu(k,1486) - lu(k,1498) = lu(k,1498) - lu(k,1450) * lu(k,1486) - lu(k,1499) = lu(k,1499) - lu(k,1451) * lu(k,1486) - lu(k,1500) = lu(k,1500) - lu(k,1452) * lu(k,1486) - lu(k,1501) = lu(k,1501) - lu(k,1453) * lu(k,1486) - lu(k,1528) = lu(k,1528) - lu(k,1439) * lu(k,1527) - lu(k,1529) = lu(k,1529) - lu(k,1440) * lu(k,1527) - lu(k,1530) = lu(k,1530) - lu(k,1441) * lu(k,1527) - lu(k,1531) = lu(k,1531) - lu(k,1442) * lu(k,1527) - lu(k,1532) = lu(k,1532) - lu(k,1443) * lu(k,1527) - lu(k,1533) = lu(k,1533) - lu(k,1444) * lu(k,1527) - lu(k,1534) = lu(k,1534) - lu(k,1445) * lu(k,1527) - lu(k,1535) = lu(k,1535) - lu(k,1446) * lu(k,1527) - lu(k,1536) = lu(k,1536) - lu(k,1447) * lu(k,1527) - lu(k,1537) = lu(k,1537) - lu(k,1448) * lu(k,1527) - lu(k,1538) = lu(k,1538) - lu(k,1449) * lu(k,1527) - lu(k,1539) = lu(k,1539) - lu(k,1450) * lu(k,1527) - lu(k,1540) = lu(k,1540) - lu(k,1451) * lu(k,1527) - lu(k,1541) = lu(k,1541) - lu(k,1452) * lu(k,1527) - lu(k,1542) = lu(k,1542) - lu(k,1453) * lu(k,1527) - lu(k,1564) = lu(k,1564) - lu(k,1439) * lu(k,1563) - lu(k,1565) = lu(k,1565) - lu(k,1440) * lu(k,1563) - lu(k,1566) = lu(k,1566) - lu(k,1441) * lu(k,1563) - lu(k,1567) = lu(k,1567) - lu(k,1442) * lu(k,1563) - lu(k,1568) = lu(k,1568) - lu(k,1443) * lu(k,1563) - lu(k,1569) = lu(k,1569) - lu(k,1444) * lu(k,1563) - lu(k,1570) = lu(k,1570) - lu(k,1445) * lu(k,1563) - lu(k,1571) = lu(k,1571) - lu(k,1446) * lu(k,1563) - lu(k,1572) = lu(k,1572) - lu(k,1447) * lu(k,1563) - lu(k,1573) = lu(k,1573) - lu(k,1448) * lu(k,1563) - lu(k,1574) = lu(k,1574) - lu(k,1449) * lu(k,1563) - lu(k,1575) = lu(k,1575) - lu(k,1450) * lu(k,1563) - lu(k,1576) = lu(k,1576) - lu(k,1451) * lu(k,1563) - lu(k,1577) = lu(k,1577) - lu(k,1452) * lu(k,1563) - lu(k,1578) = lu(k,1578) - lu(k,1453) * lu(k,1563) - lu(k,1609) = lu(k,1609) - lu(k,1439) * lu(k,1608) - lu(k,1610) = lu(k,1610) - lu(k,1440) * lu(k,1608) - lu(k,1611) = lu(k,1611) - lu(k,1441) * lu(k,1608) - lu(k,1612) = lu(k,1612) - lu(k,1442) * lu(k,1608) - lu(k,1613) = lu(k,1613) - lu(k,1443) * lu(k,1608) - lu(k,1614) = lu(k,1614) - lu(k,1444) * lu(k,1608) - lu(k,1615) = lu(k,1615) - lu(k,1445) * lu(k,1608) - lu(k,1616) = lu(k,1616) - lu(k,1446) * lu(k,1608) - lu(k,1617) = lu(k,1617) - lu(k,1447) * lu(k,1608) - lu(k,1618) = lu(k,1618) - lu(k,1448) * lu(k,1608) - lu(k,1619) = lu(k,1619) - lu(k,1449) * lu(k,1608) - lu(k,1620) = lu(k,1620) - lu(k,1450) * lu(k,1608) - lu(k,1621) = lu(k,1621) - lu(k,1451) * lu(k,1608) - lu(k,1622) = lu(k,1622) - lu(k,1452) * lu(k,1608) - lu(k,1623) = lu(k,1623) - lu(k,1453) * lu(k,1608) - lu(k,1652) = lu(k,1652) - lu(k,1439) * lu(k,1651) - lu(k,1653) = lu(k,1653) - lu(k,1440) * lu(k,1651) - lu(k,1654) = lu(k,1654) - lu(k,1441) * lu(k,1651) - lu(k,1655) = lu(k,1655) - lu(k,1442) * lu(k,1651) - lu(k,1656) = lu(k,1656) - lu(k,1443) * lu(k,1651) - lu(k,1657) = lu(k,1657) - lu(k,1444) * lu(k,1651) - lu(k,1658) = lu(k,1658) - lu(k,1445) * lu(k,1651) - lu(k,1659) = lu(k,1659) - lu(k,1446) * lu(k,1651) - lu(k,1660) = lu(k,1660) - lu(k,1447) * lu(k,1651) - lu(k,1661) = lu(k,1661) - lu(k,1448) * lu(k,1651) - lu(k,1662) = lu(k,1662) - lu(k,1449) * lu(k,1651) - lu(k,1663) = lu(k,1663) - lu(k,1450) * lu(k,1651) - lu(k,1664) = lu(k,1664) - lu(k,1451) * lu(k,1651) - lu(k,1665) = lu(k,1665) - lu(k,1452) * lu(k,1651) - lu(k,1666) = lu(k,1666) - lu(k,1453) * lu(k,1651) - lu(k,1695) = lu(k,1695) - lu(k,1439) * lu(k,1694) - lu(k,1696) = lu(k,1696) - lu(k,1440) * lu(k,1694) - lu(k,1697) = lu(k,1697) - lu(k,1441) * lu(k,1694) - lu(k,1698) = lu(k,1698) - lu(k,1442) * lu(k,1694) - lu(k,1699) = lu(k,1699) - lu(k,1443) * lu(k,1694) - lu(k,1700) = lu(k,1700) - lu(k,1444) * lu(k,1694) - lu(k,1701) = lu(k,1701) - lu(k,1445) * lu(k,1694) - lu(k,1702) = lu(k,1702) - lu(k,1446) * lu(k,1694) - lu(k,1703) = lu(k,1703) - lu(k,1447) * lu(k,1694) - lu(k,1704) = lu(k,1704) - lu(k,1448) * lu(k,1694) - lu(k,1705) = lu(k,1705) - lu(k,1449) * lu(k,1694) - lu(k,1706) = lu(k,1706) - lu(k,1450) * lu(k,1694) - lu(k,1707) = lu(k,1707) - lu(k,1451) * lu(k,1694) - lu(k,1708) = lu(k,1708) - lu(k,1452) * lu(k,1694) - lu(k,1709) = lu(k,1709) - lu(k,1453) * lu(k,1694) - lu(k,1735) = lu(k,1735) - lu(k,1439) * lu(k,1734) - lu(k,1736) = lu(k,1736) - lu(k,1440) * lu(k,1734) - lu(k,1737) = lu(k,1737) - lu(k,1441) * lu(k,1734) - lu(k,1738) = lu(k,1738) - lu(k,1442) * lu(k,1734) - lu(k,1739) = lu(k,1739) - lu(k,1443) * lu(k,1734) - lu(k,1740) = lu(k,1740) - lu(k,1444) * lu(k,1734) - lu(k,1741) = lu(k,1741) - lu(k,1445) * lu(k,1734) - lu(k,1742) = lu(k,1742) - lu(k,1446) * lu(k,1734) - lu(k,1743) = lu(k,1743) - lu(k,1447) * lu(k,1734) - lu(k,1744) = lu(k,1744) - lu(k,1448) * lu(k,1734) - lu(k,1745) = lu(k,1745) - lu(k,1449) * lu(k,1734) - lu(k,1746) = lu(k,1746) - lu(k,1450) * lu(k,1734) - lu(k,1747) = lu(k,1747) - lu(k,1451) * lu(k,1734) - lu(k,1748) = lu(k,1748) - lu(k,1452) * lu(k,1734) - lu(k,1749) = lu(k,1749) - lu(k,1453) * lu(k,1734) - lu(k,1771) = lu(k,1771) - lu(k,1439) * lu(k,1770) - lu(k,1772) = lu(k,1772) - lu(k,1440) * lu(k,1770) - lu(k,1773) = lu(k,1773) - lu(k,1441) * lu(k,1770) - lu(k,1774) = lu(k,1774) - lu(k,1442) * lu(k,1770) - lu(k,1775) = lu(k,1775) - lu(k,1443) * lu(k,1770) - lu(k,1776) = lu(k,1776) - lu(k,1444) * lu(k,1770) - lu(k,1777) = lu(k,1777) - lu(k,1445) * lu(k,1770) - lu(k,1778) = lu(k,1778) - lu(k,1446) * lu(k,1770) - lu(k,1779) = lu(k,1779) - lu(k,1447) * lu(k,1770) - lu(k,1780) = lu(k,1780) - lu(k,1448) * lu(k,1770) - lu(k,1781) = lu(k,1781) - lu(k,1449) * lu(k,1770) - lu(k,1782) = lu(k,1782) - lu(k,1450) * lu(k,1770) - lu(k,1783) = lu(k,1783) - lu(k,1451) * lu(k,1770) - lu(k,1784) = lu(k,1784) - lu(k,1452) * lu(k,1770) - lu(k,1785) = lu(k,1785) - lu(k,1453) * lu(k,1770) - lu(k,1819) = lu(k,1819) - lu(k,1439) * lu(k,1818) - lu(k,1820) = lu(k,1820) - lu(k,1440) * lu(k,1818) - lu(k,1821) = lu(k,1821) - lu(k,1441) * lu(k,1818) - lu(k,1822) = lu(k,1822) - lu(k,1442) * lu(k,1818) - lu(k,1823) = lu(k,1823) - lu(k,1443) * lu(k,1818) - lu(k,1824) = lu(k,1824) - lu(k,1444) * lu(k,1818) - lu(k,1825) = lu(k,1825) - lu(k,1445) * lu(k,1818) - lu(k,1826) = lu(k,1826) - lu(k,1446) * lu(k,1818) - lu(k,1827) = lu(k,1827) - lu(k,1447) * lu(k,1818) - lu(k,1828) = lu(k,1828) - lu(k,1448) * lu(k,1818) - lu(k,1829) = lu(k,1829) - lu(k,1449) * lu(k,1818) - lu(k,1830) = lu(k,1830) - lu(k,1450) * lu(k,1818) - lu(k,1831) = lu(k,1831) - lu(k,1451) * lu(k,1818) - lu(k,1832) = lu(k,1832) - lu(k,1452) * lu(k,1818) - lu(k,1833) = lu(k,1833) - lu(k,1453) * lu(k,1818) - lu(k,1852) = lu(k,1852) - lu(k,1439) * lu(k,1851) - lu(k,1853) = lu(k,1853) - lu(k,1440) * lu(k,1851) - lu(k,1854) = lu(k,1854) - lu(k,1441) * lu(k,1851) - lu(k,1855) = lu(k,1855) - lu(k,1442) * lu(k,1851) - lu(k,1856) = lu(k,1856) - lu(k,1443) * lu(k,1851) - lu(k,1857) = lu(k,1857) - lu(k,1444) * lu(k,1851) - lu(k,1858) = lu(k,1858) - lu(k,1445) * lu(k,1851) - lu(k,1859) = lu(k,1859) - lu(k,1446) * lu(k,1851) - lu(k,1860) = lu(k,1860) - lu(k,1447) * lu(k,1851) - lu(k,1861) = lu(k,1861) - lu(k,1448) * lu(k,1851) - lu(k,1862) = lu(k,1862) - lu(k,1449) * lu(k,1851) - lu(k,1863) = lu(k,1863) - lu(k,1450) * lu(k,1851) - lu(k,1864) = lu(k,1864) - lu(k,1451) * lu(k,1851) - lu(k,1865) = lu(k,1865) - lu(k,1452) * lu(k,1851) - lu(k,1866) = lu(k,1866) - lu(k,1453) * lu(k,1851) - lu(k,1888) = lu(k,1888) - lu(k,1439) * lu(k,1887) - lu(k,1889) = lu(k,1889) - lu(k,1440) * lu(k,1887) - lu(k,1890) = lu(k,1890) - lu(k,1441) * lu(k,1887) - lu(k,1891) = lu(k,1891) - lu(k,1442) * lu(k,1887) - lu(k,1892) = lu(k,1892) - lu(k,1443) * lu(k,1887) - lu(k,1893) = lu(k,1893) - lu(k,1444) * lu(k,1887) - lu(k,1894) = lu(k,1894) - lu(k,1445) * lu(k,1887) - lu(k,1895) = lu(k,1895) - lu(k,1446) * lu(k,1887) - lu(k,1896) = lu(k,1896) - lu(k,1447) * lu(k,1887) - lu(k,1897) = lu(k,1897) - lu(k,1448) * lu(k,1887) - lu(k,1898) = lu(k,1898) - lu(k,1449) * lu(k,1887) - lu(k,1899) = lu(k,1899) - lu(k,1450) * lu(k,1887) - lu(k,1900) = lu(k,1900) - lu(k,1451) * lu(k,1887) - lu(k,1901) = lu(k,1901) - lu(k,1452) * lu(k,1887) - lu(k,1902) = lu(k,1902) - lu(k,1453) * lu(k,1887) - lu(k,1929) = lu(k,1929) - lu(k,1439) * lu(k,1928) - lu(k,1930) = lu(k,1930) - lu(k,1440) * lu(k,1928) - lu(k,1931) = lu(k,1931) - lu(k,1441) * lu(k,1928) - lu(k,1932) = lu(k,1932) - lu(k,1442) * lu(k,1928) - lu(k,1933) = lu(k,1933) - lu(k,1443) * lu(k,1928) - lu(k,1934) = lu(k,1934) - lu(k,1444) * lu(k,1928) - lu(k,1935) = lu(k,1935) - lu(k,1445) * lu(k,1928) - lu(k,1936) = lu(k,1936) - lu(k,1446) * lu(k,1928) - lu(k,1937) = lu(k,1937) - lu(k,1447) * lu(k,1928) - lu(k,1938) = lu(k,1938) - lu(k,1448) * lu(k,1928) - lu(k,1939) = lu(k,1939) - lu(k,1449) * lu(k,1928) - lu(k,1940) = lu(k,1940) - lu(k,1450) * lu(k,1928) - lu(k,1941) = lu(k,1941) - lu(k,1451) * lu(k,1928) - lu(k,1942) = lu(k,1942) - lu(k,1452) * lu(k,1928) - lu(k,1943) = lu(k,1943) - lu(k,1453) * lu(k,1928) - lu(k,1971) = lu(k,1971) - lu(k,1439) * lu(k,1970) - lu(k,1972) = lu(k,1972) - lu(k,1440) * lu(k,1970) - lu(k,1973) = lu(k,1973) - lu(k,1441) * lu(k,1970) - lu(k,1974) = lu(k,1974) - lu(k,1442) * lu(k,1970) - lu(k,1975) = lu(k,1975) - lu(k,1443) * lu(k,1970) - lu(k,1976) = lu(k,1976) - lu(k,1444) * lu(k,1970) - lu(k,1977) = lu(k,1977) - lu(k,1445) * lu(k,1970) - lu(k,1978) = lu(k,1978) - lu(k,1446) * lu(k,1970) - lu(k,1979) = lu(k,1979) - lu(k,1447) * lu(k,1970) - lu(k,1980) = lu(k,1980) - lu(k,1448) * lu(k,1970) - lu(k,1981) = lu(k,1981) - lu(k,1449) * lu(k,1970) - lu(k,1982) = lu(k,1982) - lu(k,1450) * lu(k,1970) - lu(k,1983) = lu(k,1983) - lu(k,1451) * lu(k,1970) - lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1970) - lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1970) - lu(k,2016) = lu(k,2016) - lu(k,1439) * lu(k,2015) - lu(k,2017) = lu(k,2017) - lu(k,1440) * lu(k,2015) - lu(k,2018) = lu(k,2018) - lu(k,1441) * lu(k,2015) - lu(k,2019) = lu(k,2019) - lu(k,1442) * lu(k,2015) - lu(k,2020) = lu(k,2020) - lu(k,1443) * lu(k,2015) - lu(k,2021) = lu(k,2021) - lu(k,1444) * lu(k,2015) - lu(k,2022) = lu(k,2022) - lu(k,1445) * lu(k,2015) - lu(k,2023) = lu(k,2023) - lu(k,1446) * lu(k,2015) - lu(k,2024) = lu(k,2024) - lu(k,1447) * lu(k,2015) - lu(k,2025) = lu(k,2025) - lu(k,1448) * lu(k,2015) - lu(k,2026) = lu(k,2026) - lu(k,1449) * lu(k,2015) - lu(k,2027) = lu(k,2027) - lu(k,1450) * lu(k,2015) - lu(k,2028) = lu(k,2028) - lu(k,1451) * lu(k,2015) - lu(k,2029) = lu(k,2029) - lu(k,1452) * lu(k,2015) - lu(k,2030) = lu(k,2030) - lu(k,1453) * lu(k,2015) - lu(k,2076) = lu(k,2076) - lu(k,1439) * lu(k,2075) - lu(k,2077) = lu(k,2077) - lu(k,1440) * lu(k,2075) - lu(k,2078) = lu(k,2078) - lu(k,1441) * lu(k,2075) - lu(k,2079) = lu(k,2079) - lu(k,1442) * lu(k,2075) - lu(k,2080) = lu(k,2080) - lu(k,1443) * lu(k,2075) - lu(k,2081) = lu(k,2081) - lu(k,1444) * lu(k,2075) - lu(k,2082) = lu(k,2082) - lu(k,1445) * lu(k,2075) - lu(k,2083) = lu(k,2083) - lu(k,1446) * lu(k,2075) - lu(k,2084) = lu(k,2084) - lu(k,1447) * lu(k,2075) - lu(k,2085) = lu(k,2085) - lu(k,1448) * lu(k,2075) - lu(k,2086) = lu(k,2086) - lu(k,1449) * lu(k,2075) - lu(k,2087) = lu(k,2087) - lu(k,1450) * lu(k,2075) - lu(k,2088) = lu(k,2088) - lu(k,1451) * lu(k,2075) - lu(k,2089) = lu(k,2089) - lu(k,1452) * lu(k,2075) - lu(k,2090) = lu(k,2090) - lu(k,1453) * lu(k,2075) - lu(k,1487) = 1._r8 / lu(k,1487) - lu(k,1488) = lu(k,1488) * lu(k,1487) - lu(k,1489) = lu(k,1489) * lu(k,1487) - lu(k,1490) = lu(k,1490) * lu(k,1487) - lu(k,1491) = lu(k,1491) * lu(k,1487) - lu(k,1492) = lu(k,1492) * lu(k,1487) - lu(k,1493) = lu(k,1493) * lu(k,1487) - lu(k,1494) = lu(k,1494) * lu(k,1487) - lu(k,1495) = lu(k,1495) * lu(k,1487) - lu(k,1496) = lu(k,1496) * lu(k,1487) - lu(k,1497) = lu(k,1497) * lu(k,1487) - lu(k,1498) = lu(k,1498) * lu(k,1487) - lu(k,1499) = lu(k,1499) * lu(k,1487) - lu(k,1500) = lu(k,1500) * lu(k,1487) - lu(k,1501) = lu(k,1501) * lu(k,1487) - lu(k,1529) = lu(k,1529) - lu(k,1488) * lu(k,1528) - lu(k,1530) = lu(k,1530) - lu(k,1489) * lu(k,1528) - lu(k,1531) = lu(k,1531) - lu(k,1490) * lu(k,1528) - lu(k,1532) = lu(k,1532) - lu(k,1491) * lu(k,1528) - lu(k,1533) = lu(k,1533) - lu(k,1492) * lu(k,1528) - lu(k,1534) = lu(k,1534) - lu(k,1493) * lu(k,1528) - lu(k,1535) = lu(k,1535) - lu(k,1494) * lu(k,1528) - lu(k,1536) = lu(k,1536) - lu(k,1495) * lu(k,1528) - lu(k,1537) = lu(k,1537) - lu(k,1496) * lu(k,1528) - lu(k,1538) = lu(k,1538) - lu(k,1497) * lu(k,1528) - lu(k,1539) = lu(k,1539) - lu(k,1498) * lu(k,1528) - lu(k,1540) = lu(k,1540) - lu(k,1499) * lu(k,1528) - lu(k,1541) = lu(k,1541) - lu(k,1500) * lu(k,1528) - lu(k,1542) = lu(k,1542) - lu(k,1501) * lu(k,1528) - lu(k,1565) = lu(k,1565) - lu(k,1488) * lu(k,1564) - lu(k,1566) = lu(k,1566) - lu(k,1489) * lu(k,1564) - lu(k,1567) = lu(k,1567) - lu(k,1490) * lu(k,1564) - lu(k,1568) = lu(k,1568) - lu(k,1491) * lu(k,1564) - lu(k,1569) = lu(k,1569) - lu(k,1492) * lu(k,1564) - lu(k,1570) = lu(k,1570) - lu(k,1493) * lu(k,1564) - lu(k,1571) = lu(k,1571) - lu(k,1494) * lu(k,1564) - lu(k,1572) = lu(k,1572) - lu(k,1495) * lu(k,1564) - lu(k,1573) = lu(k,1573) - lu(k,1496) * lu(k,1564) - lu(k,1574) = lu(k,1574) - lu(k,1497) * lu(k,1564) - lu(k,1575) = lu(k,1575) - lu(k,1498) * lu(k,1564) - lu(k,1576) = lu(k,1576) - lu(k,1499) * lu(k,1564) - lu(k,1577) = lu(k,1577) - lu(k,1500) * lu(k,1564) - lu(k,1578) = lu(k,1578) - lu(k,1501) * lu(k,1564) - lu(k,1610) = lu(k,1610) - lu(k,1488) * lu(k,1609) - lu(k,1611) = lu(k,1611) - lu(k,1489) * lu(k,1609) - lu(k,1612) = lu(k,1612) - lu(k,1490) * lu(k,1609) - lu(k,1613) = lu(k,1613) - lu(k,1491) * lu(k,1609) - lu(k,1614) = lu(k,1614) - lu(k,1492) * lu(k,1609) - lu(k,1615) = lu(k,1615) - lu(k,1493) * lu(k,1609) - lu(k,1616) = lu(k,1616) - lu(k,1494) * lu(k,1609) - lu(k,1617) = lu(k,1617) - lu(k,1495) * lu(k,1609) - lu(k,1618) = lu(k,1618) - lu(k,1496) * lu(k,1609) - lu(k,1619) = lu(k,1619) - lu(k,1497) * lu(k,1609) - lu(k,1620) = lu(k,1620) - lu(k,1498) * lu(k,1609) - lu(k,1621) = lu(k,1621) - lu(k,1499) * lu(k,1609) - lu(k,1622) = lu(k,1622) - lu(k,1500) * lu(k,1609) - lu(k,1623) = lu(k,1623) - lu(k,1501) * lu(k,1609) - lu(k,1653) = lu(k,1653) - lu(k,1488) * lu(k,1652) - lu(k,1654) = lu(k,1654) - lu(k,1489) * lu(k,1652) - lu(k,1655) = lu(k,1655) - lu(k,1490) * lu(k,1652) - lu(k,1656) = lu(k,1656) - lu(k,1491) * lu(k,1652) - lu(k,1657) = lu(k,1657) - lu(k,1492) * lu(k,1652) - lu(k,1658) = lu(k,1658) - lu(k,1493) * lu(k,1652) - lu(k,1659) = lu(k,1659) - lu(k,1494) * lu(k,1652) - lu(k,1660) = lu(k,1660) - lu(k,1495) * lu(k,1652) - lu(k,1661) = lu(k,1661) - lu(k,1496) * lu(k,1652) - lu(k,1662) = lu(k,1662) - lu(k,1497) * lu(k,1652) - lu(k,1663) = lu(k,1663) - lu(k,1498) * lu(k,1652) - lu(k,1664) = lu(k,1664) - lu(k,1499) * lu(k,1652) - lu(k,1665) = lu(k,1665) - lu(k,1500) * lu(k,1652) - lu(k,1666) = lu(k,1666) - lu(k,1501) * lu(k,1652) - lu(k,1696) = lu(k,1696) - lu(k,1488) * lu(k,1695) - lu(k,1697) = lu(k,1697) - lu(k,1489) * lu(k,1695) - lu(k,1698) = lu(k,1698) - lu(k,1490) * lu(k,1695) - lu(k,1699) = lu(k,1699) - lu(k,1491) * lu(k,1695) - lu(k,1700) = lu(k,1700) - lu(k,1492) * lu(k,1695) - lu(k,1701) = lu(k,1701) - lu(k,1493) * lu(k,1695) - lu(k,1702) = lu(k,1702) - lu(k,1494) * lu(k,1695) - lu(k,1703) = lu(k,1703) - lu(k,1495) * lu(k,1695) - lu(k,1704) = lu(k,1704) - lu(k,1496) * lu(k,1695) - lu(k,1705) = lu(k,1705) - lu(k,1497) * lu(k,1695) - lu(k,1706) = lu(k,1706) - lu(k,1498) * lu(k,1695) - lu(k,1707) = lu(k,1707) - lu(k,1499) * lu(k,1695) - lu(k,1708) = lu(k,1708) - lu(k,1500) * lu(k,1695) - lu(k,1709) = lu(k,1709) - lu(k,1501) * lu(k,1695) - lu(k,1736) = lu(k,1736) - lu(k,1488) * lu(k,1735) - lu(k,1737) = lu(k,1737) - lu(k,1489) * lu(k,1735) - lu(k,1738) = lu(k,1738) - lu(k,1490) * lu(k,1735) - lu(k,1739) = lu(k,1739) - lu(k,1491) * lu(k,1735) - lu(k,1740) = lu(k,1740) - lu(k,1492) * lu(k,1735) - lu(k,1741) = lu(k,1741) - lu(k,1493) * lu(k,1735) - lu(k,1742) = lu(k,1742) - lu(k,1494) * lu(k,1735) - lu(k,1743) = lu(k,1743) - lu(k,1495) * lu(k,1735) - lu(k,1744) = lu(k,1744) - lu(k,1496) * lu(k,1735) - lu(k,1745) = lu(k,1745) - lu(k,1497) * lu(k,1735) - lu(k,1746) = lu(k,1746) - lu(k,1498) * lu(k,1735) - lu(k,1747) = lu(k,1747) - lu(k,1499) * lu(k,1735) - lu(k,1748) = lu(k,1748) - lu(k,1500) * lu(k,1735) - lu(k,1749) = lu(k,1749) - lu(k,1501) * lu(k,1735) - lu(k,1772) = lu(k,1772) - lu(k,1488) * lu(k,1771) - lu(k,1773) = lu(k,1773) - lu(k,1489) * lu(k,1771) - lu(k,1774) = lu(k,1774) - lu(k,1490) * lu(k,1771) - lu(k,1775) = lu(k,1775) - lu(k,1491) * lu(k,1771) - lu(k,1776) = lu(k,1776) - lu(k,1492) * lu(k,1771) - lu(k,1777) = lu(k,1777) - lu(k,1493) * lu(k,1771) - lu(k,1778) = lu(k,1778) - lu(k,1494) * lu(k,1771) - lu(k,1779) = lu(k,1779) - lu(k,1495) * lu(k,1771) - lu(k,1780) = lu(k,1780) - lu(k,1496) * lu(k,1771) - lu(k,1781) = lu(k,1781) - lu(k,1497) * lu(k,1771) - lu(k,1782) = lu(k,1782) - lu(k,1498) * lu(k,1771) - lu(k,1783) = lu(k,1783) - lu(k,1499) * lu(k,1771) - lu(k,1784) = lu(k,1784) - lu(k,1500) * lu(k,1771) - lu(k,1785) = lu(k,1785) - lu(k,1501) * lu(k,1771) - lu(k,1820) = lu(k,1820) - lu(k,1488) * lu(k,1819) - lu(k,1821) = lu(k,1821) - lu(k,1489) * lu(k,1819) - lu(k,1822) = lu(k,1822) - lu(k,1490) * lu(k,1819) - lu(k,1823) = lu(k,1823) - lu(k,1491) * lu(k,1819) - lu(k,1824) = lu(k,1824) - lu(k,1492) * lu(k,1819) - lu(k,1825) = lu(k,1825) - lu(k,1493) * lu(k,1819) - lu(k,1826) = lu(k,1826) - lu(k,1494) * lu(k,1819) - lu(k,1827) = lu(k,1827) - lu(k,1495) * lu(k,1819) - lu(k,1828) = lu(k,1828) - lu(k,1496) * lu(k,1819) - lu(k,1829) = lu(k,1829) - lu(k,1497) * lu(k,1819) - lu(k,1830) = lu(k,1830) - lu(k,1498) * lu(k,1819) - lu(k,1831) = lu(k,1831) - lu(k,1499) * lu(k,1819) - lu(k,1832) = lu(k,1832) - lu(k,1500) * lu(k,1819) - lu(k,1833) = lu(k,1833) - lu(k,1501) * lu(k,1819) - lu(k,1853) = lu(k,1853) - lu(k,1488) * lu(k,1852) - lu(k,1854) = lu(k,1854) - lu(k,1489) * lu(k,1852) - lu(k,1855) = lu(k,1855) - lu(k,1490) * lu(k,1852) - lu(k,1856) = lu(k,1856) - lu(k,1491) * lu(k,1852) - lu(k,1857) = lu(k,1857) - lu(k,1492) * lu(k,1852) - lu(k,1858) = lu(k,1858) - lu(k,1493) * lu(k,1852) - lu(k,1859) = lu(k,1859) - lu(k,1494) * lu(k,1852) - lu(k,1860) = lu(k,1860) - lu(k,1495) * lu(k,1852) - lu(k,1861) = lu(k,1861) - lu(k,1496) * lu(k,1852) - lu(k,1862) = lu(k,1862) - lu(k,1497) * lu(k,1852) - lu(k,1863) = lu(k,1863) - lu(k,1498) * lu(k,1852) - lu(k,1864) = lu(k,1864) - lu(k,1499) * lu(k,1852) - lu(k,1865) = lu(k,1865) - lu(k,1500) * lu(k,1852) - lu(k,1866) = lu(k,1866) - lu(k,1501) * lu(k,1852) - lu(k,1889) = lu(k,1889) - lu(k,1488) * lu(k,1888) - lu(k,1890) = lu(k,1890) - lu(k,1489) * lu(k,1888) - lu(k,1891) = lu(k,1891) - lu(k,1490) * lu(k,1888) - lu(k,1892) = lu(k,1892) - lu(k,1491) * lu(k,1888) - lu(k,1893) = lu(k,1893) - lu(k,1492) * lu(k,1888) - lu(k,1894) = lu(k,1894) - lu(k,1493) * lu(k,1888) - lu(k,1895) = lu(k,1895) - lu(k,1494) * lu(k,1888) - lu(k,1896) = lu(k,1896) - lu(k,1495) * lu(k,1888) - lu(k,1897) = lu(k,1897) - lu(k,1496) * lu(k,1888) - lu(k,1898) = lu(k,1898) - lu(k,1497) * lu(k,1888) - lu(k,1899) = lu(k,1899) - lu(k,1498) * lu(k,1888) - lu(k,1900) = lu(k,1900) - lu(k,1499) * lu(k,1888) - lu(k,1901) = lu(k,1901) - lu(k,1500) * lu(k,1888) - lu(k,1902) = lu(k,1902) - lu(k,1501) * lu(k,1888) - lu(k,1930) = lu(k,1930) - lu(k,1488) * lu(k,1929) - lu(k,1931) = lu(k,1931) - lu(k,1489) * lu(k,1929) - lu(k,1932) = lu(k,1932) - lu(k,1490) * lu(k,1929) - lu(k,1933) = lu(k,1933) - lu(k,1491) * lu(k,1929) - lu(k,1934) = lu(k,1934) - lu(k,1492) * lu(k,1929) - lu(k,1935) = lu(k,1935) - lu(k,1493) * lu(k,1929) - lu(k,1936) = lu(k,1936) - lu(k,1494) * lu(k,1929) - lu(k,1937) = lu(k,1937) - lu(k,1495) * lu(k,1929) - lu(k,1938) = lu(k,1938) - lu(k,1496) * lu(k,1929) - lu(k,1939) = lu(k,1939) - lu(k,1497) * lu(k,1929) - lu(k,1940) = lu(k,1940) - lu(k,1498) * lu(k,1929) - lu(k,1941) = lu(k,1941) - lu(k,1499) * lu(k,1929) - lu(k,1942) = lu(k,1942) - lu(k,1500) * lu(k,1929) - lu(k,1943) = lu(k,1943) - lu(k,1501) * lu(k,1929) - lu(k,1972) = lu(k,1972) - lu(k,1488) * lu(k,1971) - lu(k,1973) = lu(k,1973) - lu(k,1489) * lu(k,1971) - lu(k,1974) = lu(k,1974) - lu(k,1490) * lu(k,1971) - lu(k,1975) = lu(k,1975) - lu(k,1491) * lu(k,1971) - lu(k,1976) = lu(k,1976) - lu(k,1492) * lu(k,1971) - lu(k,1977) = lu(k,1977) - lu(k,1493) * lu(k,1971) - lu(k,1978) = lu(k,1978) - lu(k,1494) * lu(k,1971) - lu(k,1979) = lu(k,1979) - lu(k,1495) * lu(k,1971) - lu(k,1980) = lu(k,1980) - lu(k,1496) * lu(k,1971) - lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1971) - lu(k,1982) = lu(k,1982) - lu(k,1498) * lu(k,1971) - lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1971) - lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1971) - lu(k,1985) = lu(k,1985) - lu(k,1501) * lu(k,1971) - lu(k,2017) = lu(k,2017) - lu(k,1488) * lu(k,2016) - lu(k,2018) = lu(k,2018) - lu(k,1489) * lu(k,2016) - lu(k,2019) = lu(k,2019) - lu(k,1490) * lu(k,2016) - lu(k,2020) = lu(k,2020) - lu(k,1491) * lu(k,2016) - lu(k,2021) = lu(k,2021) - lu(k,1492) * lu(k,2016) - lu(k,2022) = lu(k,2022) - lu(k,1493) * lu(k,2016) - lu(k,2023) = lu(k,2023) - lu(k,1494) * lu(k,2016) - lu(k,2024) = lu(k,2024) - lu(k,1495) * lu(k,2016) - lu(k,2025) = lu(k,2025) - lu(k,1496) * lu(k,2016) - lu(k,2026) = lu(k,2026) - lu(k,1497) * lu(k,2016) - lu(k,2027) = lu(k,2027) - lu(k,1498) * lu(k,2016) - lu(k,2028) = lu(k,2028) - lu(k,1499) * lu(k,2016) - lu(k,2029) = lu(k,2029) - lu(k,1500) * lu(k,2016) - lu(k,2030) = lu(k,2030) - lu(k,1501) * lu(k,2016) - lu(k,2077) = lu(k,2077) - lu(k,1488) * lu(k,2076) - lu(k,2078) = lu(k,2078) - lu(k,1489) * lu(k,2076) - lu(k,2079) = lu(k,2079) - lu(k,1490) * lu(k,2076) - lu(k,2080) = lu(k,2080) - lu(k,1491) * lu(k,2076) - lu(k,2081) = lu(k,2081) - lu(k,1492) * lu(k,2076) - lu(k,2082) = lu(k,2082) - lu(k,1493) * lu(k,2076) - lu(k,2083) = lu(k,2083) - lu(k,1494) * lu(k,2076) - lu(k,2084) = lu(k,2084) - lu(k,1495) * lu(k,2076) - lu(k,2085) = lu(k,2085) - lu(k,1496) * lu(k,2076) - lu(k,2086) = lu(k,2086) - lu(k,1497) * lu(k,2076) - lu(k,2087) = lu(k,2087) - lu(k,1498) * lu(k,2076) - lu(k,2088) = lu(k,2088) - lu(k,1499) * lu(k,2076) - lu(k,2089) = lu(k,2089) - lu(k,1500) * lu(k,2076) - lu(k,2090) = lu(k,2090) - lu(k,1501) * lu(k,2076) - lu(k,1529) = 1._r8 / lu(k,1529) - lu(k,1530) = lu(k,1530) * lu(k,1529) - lu(k,1531) = lu(k,1531) * lu(k,1529) - lu(k,1532) = lu(k,1532) * lu(k,1529) - lu(k,1533) = lu(k,1533) * lu(k,1529) - lu(k,1534) = lu(k,1534) * lu(k,1529) - lu(k,1535) = lu(k,1535) * lu(k,1529) - lu(k,1536) = lu(k,1536) * lu(k,1529) - lu(k,1537) = lu(k,1537) * lu(k,1529) - lu(k,1538) = lu(k,1538) * lu(k,1529) - lu(k,1539) = lu(k,1539) * lu(k,1529) - lu(k,1540) = lu(k,1540) * lu(k,1529) - lu(k,1541) = lu(k,1541) * lu(k,1529) - lu(k,1542) = lu(k,1542) * lu(k,1529) - lu(k,1566) = lu(k,1566) - lu(k,1530) * lu(k,1565) - lu(k,1567) = lu(k,1567) - lu(k,1531) * lu(k,1565) - lu(k,1568) = lu(k,1568) - lu(k,1532) * lu(k,1565) - lu(k,1569) = lu(k,1569) - lu(k,1533) * lu(k,1565) - lu(k,1570) = lu(k,1570) - lu(k,1534) * lu(k,1565) - lu(k,1571) = lu(k,1571) - lu(k,1535) * lu(k,1565) - lu(k,1572) = lu(k,1572) - lu(k,1536) * lu(k,1565) - lu(k,1573) = lu(k,1573) - lu(k,1537) * lu(k,1565) - lu(k,1574) = lu(k,1574) - lu(k,1538) * lu(k,1565) - lu(k,1575) = lu(k,1575) - lu(k,1539) * lu(k,1565) - lu(k,1576) = lu(k,1576) - lu(k,1540) * lu(k,1565) - lu(k,1577) = lu(k,1577) - lu(k,1541) * lu(k,1565) - lu(k,1578) = lu(k,1578) - lu(k,1542) * lu(k,1565) - lu(k,1611) = lu(k,1611) - lu(k,1530) * lu(k,1610) - lu(k,1612) = lu(k,1612) - lu(k,1531) * lu(k,1610) - lu(k,1613) = lu(k,1613) - lu(k,1532) * lu(k,1610) - lu(k,1614) = lu(k,1614) - lu(k,1533) * lu(k,1610) - lu(k,1615) = lu(k,1615) - lu(k,1534) * lu(k,1610) - lu(k,1616) = lu(k,1616) - lu(k,1535) * lu(k,1610) - lu(k,1617) = lu(k,1617) - lu(k,1536) * lu(k,1610) - lu(k,1618) = lu(k,1618) - lu(k,1537) * lu(k,1610) - lu(k,1619) = lu(k,1619) - lu(k,1538) * lu(k,1610) - lu(k,1620) = lu(k,1620) - lu(k,1539) * lu(k,1610) - lu(k,1621) = lu(k,1621) - lu(k,1540) * lu(k,1610) - lu(k,1622) = lu(k,1622) - lu(k,1541) * lu(k,1610) - lu(k,1623) = lu(k,1623) - lu(k,1542) * lu(k,1610) - lu(k,1654) = lu(k,1654) - lu(k,1530) * lu(k,1653) - lu(k,1655) = lu(k,1655) - lu(k,1531) * lu(k,1653) - lu(k,1656) = lu(k,1656) - lu(k,1532) * lu(k,1653) - lu(k,1657) = lu(k,1657) - lu(k,1533) * lu(k,1653) - lu(k,1658) = lu(k,1658) - lu(k,1534) * lu(k,1653) - lu(k,1659) = lu(k,1659) - lu(k,1535) * lu(k,1653) - lu(k,1660) = lu(k,1660) - lu(k,1536) * lu(k,1653) - lu(k,1661) = lu(k,1661) - lu(k,1537) * lu(k,1653) - lu(k,1662) = lu(k,1662) - lu(k,1538) * lu(k,1653) - lu(k,1663) = lu(k,1663) - lu(k,1539) * lu(k,1653) - lu(k,1664) = lu(k,1664) - lu(k,1540) * lu(k,1653) - lu(k,1665) = lu(k,1665) - lu(k,1541) * lu(k,1653) - lu(k,1666) = lu(k,1666) - lu(k,1542) * lu(k,1653) - lu(k,1697) = lu(k,1697) - lu(k,1530) * lu(k,1696) - lu(k,1698) = lu(k,1698) - lu(k,1531) * lu(k,1696) - lu(k,1699) = lu(k,1699) - lu(k,1532) * lu(k,1696) - lu(k,1700) = lu(k,1700) - lu(k,1533) * lu(k,1696) - lu(k,1701) = lu(k,1701) - lu(k,1534) * lu(k,1696) - lu(k,1702) = lu(k,1702) - lu(k,1535) * lu(k,1696) - lu(k,1703) = lu(k,1703) - lu(k,1536) * lu(k,1696) - lu(k,1704) = lu(k,1704) - lu(k,1537) * lu(k,1696) - lu(k,1705) = lu(k,1705) - lu(k,1538) * lu(k,1696) - lu(k,1706) = lu(k,1706) - lu(k,1539) * lu(k,1696) - lu(k,1707) = lu(k,1707) - lu(k,1540) * lu(k,1696) - lu(k,1708) = lu(k,1708) - lu(k,1541) * lu(k,1696) - lu(k,1709) = lu(k,1709) - lu(k,1542) * lu(k,1696) - lu(k,1737) = lu(k,1737) - lu(k,1530) * lu(k,1736) - lu(k,1738) = lu(k,1738) - lu(k,1531) * lu(k,1736) - lu(k,1739) = lu(k,1739) - lu(k,1532) * lu(k,1736) - lu(k,1740) = lu(k,1740) - lu(k,1533) * lu(k,1736) - lu(k,1741) = lu(k,1741) - lu(k,1534) * lu(k,1736) - lu(k,1742) = lu(k,1742) - lu(k,1535) * lu(k,1736) - lu(k,1743) = lu(k,1743) - lu(k,1536) * lu(k,1736) - lu(k,1744) = lu(k,1744) - lu(k,1537) * lu(k,1736) - lu(k,1745) = lu(k,1745) - lu(k,1538) * lu(k,1736) - lu(k,1746) = lu(k,1746) - lu(k,1539) * lu(k,1736) - lu(k,1747) = lu(k,1747) - lu(k,1540) * lu(k,1736) - lu(k,1748) = lu(k,1748) - lu(k,1541) * lu(k,1736) - lu(k,1749) = lu(k,1749) - lu(k,1542) * lu(k,1736) - lu(k,1773) = lu(k,1773) - lu(k,1530) * lu(k,1772) - lu(k,1774) = lu(k,1774) - lu(k,1531) * lu(k,1772) - lu(k,1775) = lu(k,1775) - lu(k,1532) * lu(k,1772) - lu(k,1776) = lu(k,1776) - lu(k,1533) * lu(k,1772) - lu(k,1777) = lu(k,1777) - lu(k,1534) * lu(k,1772) - lu(k,1778) = lu(k,1778) - lu(k,1535) * lu(k,1772) - lu(k,1779) = lu(k,1779) - lu(k,1536) * lu(k,1772) - lu(k,1780) = lu(k,1780) - lu(k,1537) * lu(k,1772) - lu(k,1781) = lu(k,1781) - lu(k,1538) * lu(k,1772) - lu(k,1782) = lu(k,1782) - lu(k,1539) * lu(k,1772) - lu(k,1783) = lu(k,1783) - lu(k,1540) * lu(k,1772) - lu(k,1784) = lu(k,1784) - lu(k,1541) * lu(k,1772) - lu(k,1785) = lu(k,1785) - lu(k,1542) * lu(k,1772) - lu(k,1821) = lu(k,1821) - lu(k,1530) * lu(k,1820) - lu(k,1822) = lu(k,1822) - lu(k,1531) * lu(k,1820) - lu(k,1823) = lu(k,1823) - lu(k,1532) * lu(k,1820) - lu(k,1824) = lu(k,1824) - lu(k,1533) * lu(k,1820) - lu(k,1825) = lu(k,1825) - lu(k,1534) * lu(k,1820) - lu(k,1826) = lu(k,1826) - lu(k,1535) * lu(k,1820) - lu(k,1827) = lu(k,1827) - lu(k,1536) * lu(k,1820) - lu(k,1828) = lu(k,1828) - lu(k,1537) * lu(k,1820) - lu(k,1829) = lu(k,1829) - lu(k,1538) * lu(k,1820) - lu(k,1830) = lu(k,1830) - lu(k,1539) * lu(k,1820) - lu(k,1831) = lu(k,1831) - lu(k,1540) * lu(k,1820) - lu(k,1832) = lu(k,1832) - lu(k,1541) * lu(k,1820) - lu(k,1833) = lu(k,1833) - lu(k,1542) * lu(k,1820) - lu(k,1854) = lu(k,1854) - lu(k,1530) * lu(k,1853) - lu(k,1855) = lu(k,1855) - lu(k,1531) * lu(k,1853) - lu(k,1856) = lu(k,1856) - lu(k,1532) * lu(k,1853) - lu(k,1857) = lu(k,1857) - lu(k,1533) * lu(k,1853) - lu(k,1858) = lu(k,1858) - lu(k,1534) * lu(k,1853) - lu(k,1859) = lu(k,1859) - lu(k,1535) * lu(k,1853) - lu(k,1860) = lu(k,1860) - lu(k,1536) * lu(k,1853) - lu(k,1861) = lu(k,1861) - lu(k,1537) * lu(k,1853) - lu(k,1862) = lu(k,1862) - lu(k,1538) * lu(k,1853) - lu(k,1863) = lu(k,1863) - lu(k,1539) * lu(k,1853) - lu(k,1864) = lu(k,1864) - lu(k,1540) * lu(k,1853) - lu(k,1865) = lu(k,1865) - lu(k,1541) * lu(k,1853) - lu(k,1866) = lu(k,1866) - lu(k,1542) * lu(k,1853) - lu(k,1890) = lu(k,1890) - lu(k,1530) * lu(k,1889) - lu(k,1891) = lu(k,1891) - lu(k,1531) * lu(k,1889) - lu(k,1892) = lu(k,1892) - lu(k,1532) * lu(k,1889) - lu(k,1893) = lu(k,1893) - lu(k,1533) * lu(k,1889) - lu(k,1894) = lu(k,1894) - lu(k,1534) * lu(k,1889) - lu(k,1895) = lu(k,1895) - lu(k,1535) * lu(k,1889) - lu(k,1896) = lu(k,1896) - lu(k,1536) * lu(k,1889) - lu(k,1897) = lu(k,1897) - lu(k,1537) * lu(k,1889) - lu(k,1898) = lu(k,1898) - lu(k,1538) * lu(k,1889) - lu(k,1899) = lu(k,1899) - lu(k,1539) * lu(k,1889) - lu(k,1900) = lu(k,1900) - lu(k,1540) * lu(k,1889) - lu(k,1901) = lu(k,1901) - lu(k,1541) * lu(k,1889) - lu(k,1902) = lu(k,1902) - lu(k,1542) * lu(k,1889) - lu(k,1931) = lu(k,1931) - lu(k,1530) * lu(k,1930) - lu(k,1932) = lu(k,1932) - lu(k,1531) * lu(k,1930) - lu(k,1933) = lu(k,1933) - lu(k,1532) * lu(k,1930) - lu(k,1934) = lu(k,1934) - lu(k,1533) * lu(k,1930) - lu(k,1935) = lu(k,1935) - lu(k,1534) * lu(k,1930) - lu(k,1936) = lu(k,1936) - lu(k,1535) * lu(k,1930) - lu(k,1937) = lu(k,1937) - lu(k,1536) * lu(k,1930) - lu(k,1938) = lu(k,1938) - lu(k,1537) * lu(k,1930) - lu(k,1939) = lu(k,1939) - lu(k,1538) * lu(k,1930) - lu(k,1940) = lu(k,1940) - lu(k,1539) * lu(k,1930) - lu(k,1941) = lu(k,1941) - lu(k,1540) * lu(k,1930) - lu(k,1942) = lu(k,1942) - lu(k,1541) * lu(k,1930) - lu(k,1943) = lu(k,1943) - lu(k,1542) * lu(k,1930) - lu(k,1973) = lu(k,1973) - lu(k,1530) * lu(k,1972) - lu(k,1974) = lu(k,1974) - lu(k,1531) * lu(k,1972) - lu(k,1975) = lu(k,1975) - lu(k,1532) * lu(k,1972) - lu(k,1976) = lu(k,1976) - lu(k,1533) * lu(k,1972) - lu(k,1977) = lu(k,1977) - lu(k,1534) * lu(k,1972) - lu(k,1978) = lu(k,1978) - lu(k,1535) * lu(k,1972) - lu(k,1979) = lu(k,1979) - lu(k,1536) * lu(k,1972) - lu(k,1980) = lu(k,1980) - lu(k,1537) * lu(k,1972) - lu(k,1981) = lu(k,1981) - lu(k,1538) * lu(k,1972) - lu(k,1982) = lu(k,1982) - lu(k,1539) * lu(k,1972) - lu(k,1983) = lu(k,1983) - lu(k,1540) * lu(k,1972) - lu(k,1984) = lu(k,1984) - lu(k,1541) * lu(k,1972) - lu(k,1985) = lu(k,1985) - lu(k,1542) * lu(k,1972) - lu(k,2018) = lu(k,2018) - lu(k,1530) * lu(k,2017) - lu(k,2019) = lu(k,2019) - lu(k,1531) * lu(k,2017) - lu(k,2020) = lu(k,2020) - lu(k,1532) * lu(k,2017) - lu(k,2021) = lu(k,2021) - lu(k,1533) * lu(k,2017) - lu(k,2022) = lu(k,2022) - lu(k,1534) * lu(k,2017) - lu(k,2023) = lu(k,2023) - lu(k,1535) * lu(k,2017) - lu(k,2024) = lu(k,2024) - lu(k,1536) * lu(k,2017) - lu(k,2025) = lu(k,2025) - lu(k,1537) * lu(k,2017) - lu(k,2026) = lu(k,2026) - lu(k,1538) * lu(k,2017) - lu(k,2027) = lu(k,2027) - lu(k,1539) * lu(k,2017) - lu(k,2028) = lu(k,2028) - lu(k,1540) * lu(k,2017) - lu(k,2029) = lu(k,2029) - lu(k,1541) * lu(k,2017) - lu(k,2030) = lu(k,2030) - lu(k,1542) * lu(k,2017) - lu(k,2078) = lu(k,2078) - lu(k,1530) * lu(k,2077) - lu(k,2079) = lu(k,2079) - lu(k,1531) * lu(k,2077) - lu(k,2080) = lu(k,2080) - lu(k,1532) * lu(k,2077) - lu(k,2081) = lu(k,2081) - lu(k,1533) * lu(k,2077) - lu(k,2082) = lu(k,2082) - lu(k,1534) * lu(k,2077) - lu(k,2083) = lu(k,2083) - lu(k,1535) * lu(k,2077) - lu(k,2084) = lu(k,2084) - lu(k,1536) * lu(k,2077) - lu(k,2085) = lu(k,2085) - lu(k,1537) * lu(k,2077) - lu(k,2086) = lu(k,2086) - lu(k,1538) * lu(k,2077) - lu(k,2087) = lu(k,2087) - lu(k,1539) * lu(k,2077) - lu(k,2088) = lu(k,2088) - lu(k,1540) * lu(k,2077) - lu(k,2089) = lu(k,2089) - lu(k,1541) * lu(k,2077) - lu(k,2090) = lu(k,2090) - lu(k,1542) * lu(k,2077) + lu(k,1432) = lu(k,1432) - lu(k,1389) * lu(k,1431) + lu(k,1433) = lu(k,1433) - lu(k,1390) * lu(k,1431) + lu(k,1434) = lu(k,1434) - lu(k,1391) * lu(k,1431) + lu(k,1435) = lu(k,1435) - lu(k,1392) * lu(k,1431) + lu(k,1436) = lu(k,1436) - lu(k,1393) * lu(k,1431) + lu(k,1437) = lu(k,1437) - lu(k,1394) * lu(k,1431) + lu(k,1438) = lu(k,1438) - lu(k,1395) * lu(k,1431) + lu(k,1439) = lu(k,1439) - lu(k,1396) * lu(k,1431) + lu(k,1440) = lu(k,1440) - lu(k,1397) * lu(k,1431) + lu(k,1441) = lu(k,1441) - lu(k,1398) * lu(k,1431) + lu(k,1442) = lu(k,1442) - lu(k,1399) * lu(k,1431) + lu(k,1443) = lu(k,1443) - lu(k,1400) * lu(k,1431) + lu(k,1444) = lu(k,1444) - lu(k,1401) * lu(k,1431) + lu(k,1445) = lu(k,1445) - lu(k,1402) * lu(k,1431) + lu(k,1446) = lu(k,1446) - lu(k,1403) * lu(k,1431) + lu(k,1447) = lu(k,1447) - lu(k,1404) * lu(k,1431) + lu(k,1480) = lu(k,1480) - lu(k,1389) * lu(k,1479) + lu(k,1481) = lu(k,1481) - lu(k,1390) * lu(k,1479) + lu(k,1482) = lu(k,1482) - lu(k,1391) * lu(k,1479) + lu(k,1483) = lu(k,1483) - lu(k,1392) * lu(k,1479) + lu(k,1484) = lu(k,1484) - lu(k,1393) * lu(k,1479) + lu(k,1485) = lu(k,1485) - lu(k,1394) * lu(k,1479) + lu(k,1486) = lu(k,1486) - lu(k,1395) * lu(k,1479) + lu(k,1487) = lu(k,1487) - lu(k,1396) * lu(k,1479) + lu(k,1488) = lu(k,1488) - lu(k,1397) * lu(k,1479) + lu(k,1489) = lu(k,1489) - lu(k,1398) * lu(k,1479) + lu(k,1490) = lu(k,1490) - lu(k,1399) * lu(k,1479) + lu(k,1491) = lu(k,1491) - lu(k,1400) * lu(k,1479) + lu(k,1492) = lu(k,1492) - lu(k,1401) * lu(k,1479) + lu(k,1493) = lu(k,1493) - lu(k,1402) * lu(k,1479) + lu(k,1494) = lu(k,1494) - lu(k,1403) * lu(k,1479) + lu(k,1495) = lu(k,1495) - lu(k,1404) * lu(k,1479) + lu(k,1521) = lu(k,1521) - lu(k,1389) * lu(k,1520) + lu(k,1522) = lu(k,1522) - lu(k,1390) * lu(k,1520) + lu(k,1523) = lu(k,1523) - lu(k,1391) * lu(k,1520) + lu(k,1524) = lu(k,1524) - lu(k,1392) * lu(k,1520) + lu(k,1525) = lu(k,1525) - lu(k,1393) * lu(k,1520) + lu(k,1526) = lu(k,1526) - lu(k,1394) * lu(k,1520) + lu(k,1527) = lu(k,1527) - lu(k,1395) * lu(k,1520) + lu(k,1528) = lu(k,1528) - lu(k,1396) * lu(k,1520) + lu(k,1529) = lu(k,1529) - lu(k,1397) * lu(k,1520) + lu(k,1530) = lu(k,1530) - lu(k,1398) * lu(k,1520) + lu(k,1531) = lu(k,1531) - lu(k,1399) * lu(k,1520) + lu(k,1532) = lu(k,1532) - lu(k,1400) * lu(k,1520) + lu(k,1533) = lu(k,1533) - lu(k,1401) * lu(k,1520) + lu(k,1534) = lu(k,1534) - lu(k,1402) * lu(k,1520) + lu(k,1535) = lu(k,1535) - lu(k,1403) * lu(k,1520) + lu(k,1536) = lu(k,1536) - lu(k,1404) * lu(k,1520) + lu(k,1557) = lu(k,1557) - lu(k,1389) * lu(k,1556) + lu(k,1558) = lu(k,1558) - lu(k,1390) * lu(k,1556) + lu(k,1559) = lu(k,1559) - lu(k,1391) * lu(k,1556) + lu(k,1560) = lu(k,1560) - lu(k,1392) * lu(k,1556) + lu(k,1561) = lu(k,1561) - lu(k,1393) * lu(k,1556) + lu(k,1562) = lu(k,1562) - lu(k,1394) * lu(k,1556) + lu(k,1563) = lu(k,1563) - lu(k,1395) * lu(k,1556) + lu(k,1564) = lu(k,1564) - lu(k,1396) * lu(k,1556) + lu(k,1565) = lu(k,1565) - lu(k,1397) * lu(k,1556) + lu(k,1566) = lu(k,1566) - lu(k,1398) * lu(k,1556) + lu(k,1567) = lu(k,1567) - lu(k,1399) * lu(k,1556) + lu(k,1568) = lu(k,1568) - lu(k,1400) * lu(k,1556) + lu(k,1569) = lu(k,1569) - lu(k,1401) * lu(k,1556) + lu(k,1570) = lu(k,1570) - lu(k,1402) * lu(k,1556) + lu(k,1571) = lu(k,1571) - lu(k,1403) * lu(k,1556) + lu(k,1572) = lu(k,1572) - lu(k,1404) * lu(k,1556) + lu(k,1602) = lu(k,1602) - lu(k,1389) * lu(k,1601) + lu(k,1603) = lu(k,1603) - lu(k,1390) * lu(k,1601) + lu(k,1604) = lu(k,1604) - lu(k,1391) * lu(k,1601) + lu(k,1605) = lu(k,1605) - lu(k,1392) * lu(k,1601) + lu(k,1606) = lu(k,1606) - lu(k,1393) * lu(k,1601) + lu(k,1607) = lu(k,1607) - lu(k,1394) * lu(k,1601) + lu(k,1608) = lu(k,1608) - lu(k,1395) * lu(k,1601) + lu(k,1609) = lu(k,1609) - lu(k,1396) * lu(k,1601) + lu(k,1610) = lu(k,1610) - lu(k,1397) * lu(k,1601) + lu(k,1611) = lu(k,1611) - lu(k,1398) * lu(k,1601) + lu(k,1612) = lu(k,1612) - lu(k,1399) * lu(k,1601) + lu(k,1613) = lu(k,1613) - lu(k,1400) * lu(k,1601) + lu(k,1614) = lu(k,1614) - lu(k,1401) * lu(k,1601) + lu(k,1615) = lu(k,1615) - lu(k,1402) * lu(k,1601) + lu(k,1616) = lu(k,1616) - lu(k,1403) * lu(k,1601) + lu(k,1617) = lu(k,1617) - lu(k,1404) * lu(k,1601) + lu(k,1645) = lu(k,1645) - lu(k,1389) * lu(k,1644) + lu(k,1646) = lu(k,1646) - lu(k,1390) * lu(k,1644) + lu(k,1647) = lu(k,1647) - lu(k,1391) * lu(k,1644) + lu(k,1648) = lu(k,1648) - lu(k,1392) * lu(k,1644) + lu(k,1649) = lu(k,1649) - lu(k,1393) * lu(k,1644) + lu(k,1650) = lu(k,1650) - lu(k,1394) * lu(k,1644) + lu(k,1651) = lu(k,1651) - lu(k,1395) * lu(k,1644) + lu(k,1652) = lu(k,1652) - lu(k,1396) * lu(k,1644) + lu(k,1653) = lu(k,1653) - lu(k,1397) * lu(k,1644) + lu(k,1654) = lu(k,1654) - lu(k,1398) * lu(k,1644) + lu(k,1655) = lu(k,1655) - lu(k,1399) * lu(k,1644) + lu(k,1656) = lu(k,1656) - lu(k,1400) * lu(k,1644) + lu(k,1657) = lu(k,1657) - lu(k,1401) * lu(k,1644) + lu(k,1658) = lu(k,1658) - lu(k,1402) * lu(k,1644) + lu(k,1659) = lu(k,1659) - lu(k,1403) * lu(k,1644) + lu(k,1660) = lu(k,1660) - lu(k,1404) * lu(k,1644) + lu(k,1687) = lu(k,1687) - lu(k,1389) * lu(k,1686) + lu(k,1688) = lu(k,1688) - lu(k,1390) * lu(k,1686) + lu(k,1689) = lu(k,1689) - lu(k,1391) * lu(k,1686) + lu(k,1690) = lu(k,1690) - lu(k,1392) * lu(k,1686) + lu(k,1691) = lu(k,1691) - lu(k,1393) * lu(k,1686) + lu(k,1692) = lu(k,1692) - lu(k,1394) * lu(k,1686) + lu(k,1693) = lu(k,1693) - lu(k,1395) * lu(k,1686) + lu(k,1694) = lu(k,1694) - lu(k,1396) * lu(k,1686) + lu(k,1695) = lu(k,1695) - lu(k,1397) * lu(k,1686) + lu(k,1696) = lu(k,1696) - lu(k,1398) * lu(k,1686) + lu(k,1697) = lu(k,1697) - lu(k,1399) * lu(k,1686) + lu(k,1698) = lu(k,1698) - lu(k,1400) * lu(k,1686) + lu(k,1699) = lu(k,1699) - lu(k,1401) * lu(k,1686) + lu(k,1700) = lu(k,1700) - lu(k,1402) * lu(k,1686) + lu(k,1701) = lu(k,1701) - lu(k,1403) * lu(k,1686) + lu(k,1702) = lu(k,1702) - lu(k,1404) * lu(k,1686) + lu(k,1727) = lu(k,1727) - lu(k,1389) * lu(k,1726) + lu(k,1728) = lu(k,1728) - lu(k,1390) * lu(k,1726) + lu(k,1729) = lu(k,1729) - lu(k,1391) * lu(k,1726) + lu(k,1730) = lu(k,1730) - lu(k,1392) * lu(k,1726) + lu(k,1731) = lu(k,1731) - lu(k,1393) * lu(k,1726) + lu(k,1732) = lu(k,1732) - lu(k,1394) * lu(k,1726) + lu(k,1733) = lu(k,1733) - lu(k,1395) * lu(k,1726) + lu(k,1734) = lu(k,1734) - lu(k,1396) * lu(k,1726) + lu(k,1735) = lu(k,1735) - lu(k,1397) * lu(k,1726) + lu(k,1736) = lu(k,1736) - lu(k,1398) * lu(k,1726) + lu(k,1737) = lu(k,1737) - lu(k,1399) * lu(k,1726) + lu(k,1738) = lu(k,1738) - lu(k,1400) * lu(k,1726) + lu(k,1739) = lu(k,1739) - lu(k,1401) * lu(k,1726) + lu(k,1740) = lu(k,1740) - lu(k,1402) * lu(k,1726) + lu(k,1741) = lu(k,1741) - lu(k,1403) * lu(k,1726) + lu(k,1742) = lu(k,1742) - lu(k,1404) * lu(k,1726) + lu(k,1763) = lu(k,1763) - lu(k,1389) * lu(k,1762) + lu(k,1764) = lu(k,1764) - lu(k,1390) * lu(k,1762) + lu(k,1765) = lu(k,1765) - lu(k,1391) * lu(k,1762) + lu(k,1766) = lu(k,1766) - lu(k,1392) * lu(k,1762) + lu(k,1767) = lu(k,1767) - lu(k,1393) * lu(k,1762) + lu(k,1768) = lu(k,1768) - lu(k,1394) * lu(k,1762) + lu(k,1769) = lu(k,1769) - lu(k,1395) * lu(k,1762) + lu(k,1770) = lu(k,1770) - lu(k,1396) * lu(k,1762) + lu(k,1771) = lu(k,1771) - lu(k,1397) * lu(k,1762) + lu(k,1772) = lu(k,1772) - lu(k,1398) * lu(k,1762) + lu(k,1773) = lu(k,1773) - lu(k,1399) * lu(k,1762) + lu(k,1774) = lu(k,1774) - lu(k,1400) * lu(k,1762) + lu(k,1775) = lu(k,1775) - lu(k,1401) * lu(k,1762) + lu(k,1776) = lu(k,1776) - lu(k,1402) * lu(k,1762) + lu(k,1777) = lu(k,1777) - lu(k,1403) * lu(k,1762) + lu(k,1778) = lu(k,1778) - lu(k,1404) * lu(k,1762) + lu(k,1811) = lu(k,1811) - lu(k,1389) * lu(k,1810) + lu(k,1812) = lu(k,1812) - lu(k,1390) * lu(k,1810) + lu(k,1813) = lu(k,1813) - lu(k,1391) * lu(k,1810) + lu(k,1814) = lu(k,1814) - lu(k,1392) * lu(k,1810) + lu(k,1815) = lu(k,1815) - lu(k,1393) * lu(k,1810) + lu(k,1816) = lu(k,1816) - lu(k,1394) * lu(k,1810) + lu(k,1817) = lu(k,1817) - lu(k,1395) * lu(k,1810) + lu(k,1818) = lu(k,1818) - lu(k,1396) * lu(k,1810) + lu(k,1819) = lu(k,1819) - lu(k,1397) * lu(k,1810) + lu(k,1820) = lu(k,1820) - lu(k,1398) * lu(k,1810) + lu(k,1821) = lu(k,1821) - lu(k,1399) * lu(k,1810) + lu(k,1822) = lu(k,1822) - lu(k,1400) * lu(k,1810) + lu(k,1823) = lu(k,1823) - lu(k,1401) * lu(k,1810) + lu(k,1824) = lu(k,1824) - lu(k,1402) * lu(k,1810) + lu(k,1825) = lu(k,1825) - lu(k,1403) * lu(k,1810) + lu(k,1826) = lu(k,1826) - lu(k,1404) * lu(k,1810) + lu(k,1844) = lu(k,1844) - lu(k,1389) * lu(k,1843) + lu(k,1845) = lu(k,1845) - lu(k,1390) * lu(k,1843) + lu(k,1846) = lu(k,1846) - lu(k,1391) * lu(k,1843) + lu(k,1847) = lu(k,1847) - lu(k,1392) * lu(k,1843) + lu(k,1848) = lu(k,1848) - lu(k,1393) * lu(k,1843) + lu(k,1849) = lu(k,1849) - lu(k,1394) * lu(k,1843) + lu(k,1850) = lu(k,1850) - lu(k,1395) * lu(k,1843) + lu(k,1851) = lu(k,1851) - lu(k,1396) * lu(k,1843) + lu(k,1852) = lu(k,1852) - lu(k,1397) * lu(k,1843) + lu(k,1853) = lu(k,1853) - lu(k,1398) * lu(k,1843) + lu(k,1854) = lu(k,1854) - lu(k,1399) * lu(k,1843) + lu(k,1855) = lu(k,1855) - lu(k,1400) * lu(k,1843) + lu(k,1856) = lu(k,1856) - lu(k,1401) * lu(k,1843) + lu(k,1857) = lu(k,1857) - lu(k,1402) * lu(k,1843) + lu(k,1858) = lu(k,1858) - lu(k,1403) * lu(k,1843) + lu(k,1859) = lu(k,1859) - lu(k,1404) * lu(k,1843) + lu(k,1880) = lu(k,1880) - lu(k,1389) * lu(k,1879) + lu(k,1881) = lu(k,1881) - lu(k,1390) * lu(k,1879) + lu(k,1882) = lu(k,1882) - lu(k,1391) * lu(k,1879) + lu(k,1883) = lu(k,1883) - lu(k,1392) * lu(k,1879) + lu(k,1884) = lu(k,1884) - lu(k,1393) * lu(k,1879) + lu(k,1885) = lu(k,1885) - lu(k,1394) * lu(k,1879) + lu(k,1886) = lu(k,1886) - lu(k,1395) * lu(k,1879) + lu(k,1887) = lu(k,1887) - lu(k,1396) * lu(k,1879) + lu(k,1888) = lu(k,1888) - lu(k,1397) * lu(k,1879) + lu(k,1889) = lu(k,1889) - lu(k,1398) * lu(k,1879) + lu(k,1890) = lu(k,1890) - lu(k,1399) * lu(k,1879) + lu(k,1891) = lu(k,1891) - lu(k,1400) * lu(k,1879) + lu(k,1892) = lu(k,1892) - lu(k,1401) * lu(k,1879) + lu(k,1893) = lu(k,1893) - lu(k,1402) * lu(k,1879) + lu(k,1894) = lu(k,1894) - lu(k,1403) * lu(k,1879) + lu(k,1895) = lu(k,1895) - lu(k,1404) * lu(k,1879) + lu(k,1929) = lu(k,1929) - lu(k,1389) * lu(k,1928) + lu(k,1930) = lu(k,1930) - lu(k,1390) * lu(k,1928) + lu(k,1931) = lu(k,1931) - lu(k,1391) * lu(k,1928) + lu(k,1932) = lu(k,1932) - lu(k,1392) * lu(k,1928) + lu(k,1933) = lu(k,1933) - lu(k,1393) * lu(k,1928) + lu(k,1934) = lu(k,1934) - lu(k,1394) * lu(k,1928) + lu(k,1935) = lu(k,1935) - lu(k,1395) * lu(k,1928) + lu(k,1936) = lu(k,1936) - lu(k,1396) * lu(k,1928) + lu(k,1937) = lu(k,1937) - lu(k,1397) * lu(k,1928) + lu(k,1938) = lu(k,1938) - lu(k,1398) * lu(k,1928) + lu(k,1939) = lu(k,1939) - lu(k,1399) * lu(k,1928) + lu(k,1940) = lu(k,1940) - lu(k,1400) * lu(k,1928) + lu(k,1941) = lu(k,1941) - lu(k,1401) * lu(k,1928) + lu(k,1942) = lu(k,1942) - lu(k,1402) * lu(k,1928) + lu(k,1943) = lu(k,1943) - lu(k,1403) * lu(k,1928) + lu(k,1944) = lu(k,1944) - lu(k,1404) * lu(k,1928) + lu(k,1973) = lu(k,1973) - lu(k,1389) * lu(k,1972) + lu(k,1974) = lu(k,1974) - lu(k,1390) * lu(k,1972) + lu(k,1975) = lu(k,1975) - lu(k,1391) * lu(k,1972) + lu(k,1976) = lu(k,1976) - lu(k,1392) * lu(k,1972) + lu(k,1977) = lu(k,1977) - lu(k,1393) * lu(k,1972) + lu(k,1978) = lu(k,1978) - lu(k,1394) * lu(k,1972) + lu(k,1979) = lu(k,1979) - lu(k,1395) * lu(k,1972) + lu(k,1980) = lu(k,1980) - lu(k,1396) * lu(k,1972) + lu(k,1981) = lu(k,1981) - lu(k,1397) * lu(k,1972) + lu(k,1982) = lu(k,1982) - lu(k,1398) * lu(k,1972) + lu(k,1983) = lu(k,1983) - lu(k,1399) * lu(k,1972) + lu(k,1984) = lu(k,1984) - lu(k,1400) * lu(k,1972) + lu(k,1985) = lu(k,1985) - lu(k,1401) * lu(k,1972) + lu(k,1986) = lu(k,1986) - lu(k,1402) * lu(k,1972) + lu(k,1987) = lu(k,1987) - lu(k,1403) * lu(k,1972) + lu(k,1988) = lu(k,1988) - lu(k,1404) * lu(k,1972) + lu(k,2018) = lu(k,2018) - lu(k,1389) * lu(k,2017) + lu(k,2019) = lu(k,2019) - lu(k,1390) * lu(k,2017) + lu(k,2020) = lu(k,2020) - lu(k,1391) * lu(k,2017) + lu(k,2021) = lu(k,2021) - lu(k,1392) * lu(k,2017) + lu(k,2022) = lu(k,2022) - lu(k,1393) * lu(k,2017) + lu(k,2023) = lu(k,2023) - lu(k,1394) * lu(k,2017) + lu(k,2024) = lu(k,2024) - lu(k,1395) * lu(k,2017) + lu(k,2025) = lu(k,2025) - lu(k,1396) * lu(k,2017) + lu(k,2026) = lu(k,2026) - lu(k,1397) * lu(k,2017) + lu(k,2027) = lu(k,2027) - lu(k,1398) * lu(k,2017) + lu(k,2028) = lu(k,2028) - lu(k,1399) * lu(k,2017) + lu(k,2029) = lu(k,2029) - lu(k,1400) * lu(k,2017) + lu(k,2030) = lu(k,2030) - lu(k,1401) * lu(k,2017) + lu(k,2031) = lu(k,2031) - lu(k,1402) * lu(k,2017) + lu(k,2032) = lu(k,2032) - lu(k,1403) * lu(k,2017) + lu(k,2033) = lu(k,2033) - lu(k,1404) * lu(k,2017) + lu(k,2078) = lu(k,2078) - lu(k,1389) * lu(k,2077) + lu(k,2079) = lu(k,2079) - lu(k,1390) * lu(k,2077) + lu(k,2080) = lu(k,2080) - lu(k,1391) * lu(k,2077) + lu(k,2081) = lu(k,2081) - lu(k,1392) * lu(k,2077) + lu(k,2082) = lu(k,2082) - lu(k,1393) * lu(k,2077) + lu(k,2083) = lu(k,2083) - lu(k,1394) * lu(k,2077) + lu(k,2084) = lu(k,2084) - lu(k,1395) * lu(k,2077) + lu(k,2085) = lu(k,2085) - lu(k,1396) * lu(k,2077) + lu(k,2086) = lu(k,2086) - lu(k,1397) * lu(k,2077) + lu(k,2087) = lu(k,2087) - lu(k,1398) * lu(k,2077) + lu(k,2088) = lu(k,2088) - lu(k,1399) * lu(k,2077) + lu(k,2089) = lu(k,2089) - lu(k,1400) * lu(k,2077) + lu(k,2090) = lu(k,2090) - lu(k,1401) * lu(k,2077) + lu(k,2091) = lu(k,2091) - lu(k,1402) * lu(k,2077) + lu(k,2092) = lu(k,2092) - lu(k,1403) * lu(k,2077) + lu(k,2093) = lu(k,2093) - lu(k,1404) * lu(k,2077) + lu(k,1432) = 1._r8 / lu(k,1432) + lu(k,1433) = lu(k,1433) * lu(k,1432) + lu(k,1434) = lu(k,1434) * lu(k,1432) + lu(k,1435) = lu(k,1435) * lu(k,1432) + lu(k,1436) = lu(k,1436) * lu(k,1432) + lu(k,1437) = lu(k,1437) * lu(k,1432) + lu(k,1438) = lu(k,1438) * lu(k,1432) + lu(k,1439) = lu(k,1439) * lu(k,1432) + lu(k,1440) = lu(k,1440) * lu(k,1432) + lu(k,1441) = lu(k,1441) * lu(k,1432) + lu(k,1442) = lu(k,1442) * lu(k,1432) + lu(k,1443) = lu(k,1443) * lu(k,1432) + lu(k,1444) = lu(k,1444) * lu(k,1432) + lu(k,1445) = lu(k,1445) * lu(k,1432) + lu(k,1446) = lu(k,1446) * lu(k,1432) + lu(k,1447) = lu(k,1447) * lu(k,1432) + lu(k,1481) = lu(k,1481) - lu(k,1433) * lu(k,1480) + lu(k,1482) = lu(k,1482) - lu(k,1434) * lu(k,1480) + lu(k,1483) = lu(k,1483) - lu(k,1435) * lu(k,1480) + lu(k,1484) = lu(k,1484) - lu(k,1436) * lu(k,1480) + lu(k,1485) = lu(k,1485) - lu(k,1437) * lu(k,1480) + lu(k,1486) = lu(k,1486) - lu(k,1438) * lu(k,1480) + lu(k,1487) = lu(k,1487) - lu(k,1439) * lu(k,1480) + lu(k,1488) = lu(k,1488) - lu(k,1440) * lu(k,1480) + lu(k,1489) = lu(k,1489) - lu(k,1441) * lu(k,1480) + lu(k,1490) = lu(k,1490) - lu(k,1442) * lu(k,1480) + lu(k,1491) = lu(k,1491) - lu(k,1443) * lu(k,1480) + lu(k,1492) = lu(k,1492) - lu(k,1444) * lu(k,1480) + lu(k,1493) = lu(k,1493) - lu(k,1445) * lu(k,1480) + lu(k,1494) = lu(k,1494) - lu(k,1446) * lu(k,1480) + lu(k,1495) = lu(k,1495) - lu(k,1447) * lu(k,1480) + lu(k,1522) = lu(k,1522) - lu(k,1433) * lu(k,1521) + lu(k,1523) = lu(k,1523) - lu(k,1434) * lu(k,1521) + lu(k,1524) = lu(k,1524) - lu(k,1435) * lu(k,1521) + lu(k,1525) = lu(k,1525) - lu(k,1436) * lu(k,1521) + lu(k,1526) = lu(k,1526) - lu(k,1437) * lu(k,1521) + lu(k,1527) = lu(k,1527) - lu(k,1438) * lu(k,1521) + lu(k,1528) = lu(k,1528) - lu(k,1439) * lu(k,1521) + lu(k,1529) = lu(k,1529) - lu(k,1440) * lu(k,1521) + lu(k,1530) = lu(k,1530) - lu(k,1441) * lu(k,1521) + lu(k,1531) = lu(k,1531) - lu(k,1442) * lu(k,1521) + lu(k,1532) = lu(k,1532) - lu(k,1443) * lu(k,1521) + lu(k,1533) = lu(k,1533) - lu(k,1444) * lu(k,1521) + lu(k,1534) = lu(k,1534) - lu(k,1445) * lu(k,1521) + lu(k,1535) = lu(k,1535) - lu(k,1446) * lu(k,1521) + lu(k,1536) = lu(k,1536) - lu(k,1447) * lu(k,1521) + lu(k,1558) = lu(k,1558) - lu(k,1433) * lu(k,1557) + lu(k,1559) = lu(k,1559) - lu(k,1434) * lu(k,1557) + lu(k,1560) = lu(k,1560) - lu(k,1435) * lu(k,1557) + lu(k,1561) = lu(k,1561) - lu(k,1436) * lu(k,1557) + lu(k,1562) = lu(k,1562) - lu(k,1437) * lu(k,1557) + lu(k,1563) = lu(k,1563) - lu(k,1438) * lu(k,1557) + lu(k,1564) = lu(k,1564) - lu(k,1439) * lu(k,1557) + lu(k,1565) = lu(k,1565) - lu(k,1440) * lu(k,1557) + lu(k,1566) = lu(k,1566) - lu(k,1441) * lu(k,1557) + lu(k,1567) = lu(k,1567) - lu(k,1442) * lu(k,1557) + lu(k,1568) = lu(k,1568) - lu(k,1443) * lu(k,1557) + lu(k,1569) = lu(k,1569) - lu(k,1444) * lu(k,1557) + lu(k,1570) = lu(k,1570) - lu(k,1445) * lu(k,1557) + lu(k,1571) = lu(k,1571) - lu(k,1446) * lu(k,1557) + lu(k,1572) = lu(k,1572) - lu(k,1447) * lu(k,1557) + lu(k,1603) = lu(k,1603) - lu(k,1433) * lu(k,1602) + lu(k,1604) = lu(k,1604) - lu(k,1434) * lu(k,1602) + lu(k,1605) = lu(k,1605) - lu(k,1435) * lu(k,1602) + lu(k,1606) = lu(k,1606) - lu(k,1436) * lu(k,1602) + lu(k,1607) = lu(k,1607) - lu(k,1437) * lu(k,1602) + lu(k,1608) = lu(k,1608) - lu(k,1438) * lu(k,1602) + lu(k,1609) = lu(k,1609) - lu(k,1439) * lu(k,1602) + lu(k,1610) = lu(k,1610) - lu(k,1440) * lu(k,1602) + lu(k,1611) = lu(k,1611) - lu(k,1441) * lu(k,1602) + lu(k,1612) = lu(k,1612) - lu(k,1442) * lu(k,1602) + lu(k,1613) = lu(k,1613) - lu(k,1443) * lu(k,1602) + lu(k,1614) = lu(k,1614) - lu(k,1444) * lu(k,1602) + lu(k,1615) = lu(k,1615) - lu(k,1445) * lu(k,1602) + lu(k,1616) = lu(k,1616) - lu(k,1446) * lu(k,1602) + lu(k,1617) = lu(k,1617) - lu(k,1447) * lu(k,1602) + lu(k,1646) = lu(k,1646) - lu(k,1433) * lu(k,1645) + lu(k,1647) = lu(k,1647) - lu(k,1434) * lu(k,1645) + lu(k,1648) = lu(k,1648) - lu(k,1435) * lu(k,1645) + lu(k,1649) = lu(k,1649) - lu(k,1436) * lu(k,1645) + lu(k,1650) = lu(k,1650) - lu(k,1437) * lu(k,1645) + lu(k,1651) = lu(k,1651) - lu(k,1438) * lu(k,1645) + lu(k,1652) = lu(k,1652) - lu(k,1439) * lu(k,1645) + lu(k,1653) = lu(k,1653) - lu(k,1440) * lu(k,1645) + lu(k,1654) = lu(k,1654) - lu(k,1441) * lu(k,1645) + lu(k,1655) = lu(k,1655) - lu(k,1442) * lu(k,1645) + lu(k,1656) = lu(k,1656) - lu(k,1443) * lu(k,1645) + lu(k,1657) = lu(k,1657) - lu(k,1444) * lu(k,1645) + lu(k,1658) = lu(k,1658) - lu(k,1445) * lu(k,1645) + lu(k,1659) = lu(k,1659) - lu(k,1446) * lu(k,1645) + lu(k,1660) = lu(k,1660) - lu(k,1447) * lu(k,1645) + lu(k,1688) = lu(k,1688) - lu(k,1433) * lu(k,1687) + lu(k,1689) = lu(k,1689) - lu(k,1434) * lu(k,1687) + lu(k,1690) = lu(k,1690) - lu(k,1435) * lu(k,1687) + lu(k,1691) = lu(k,1691) - lu(k,1436) * lu(k,1687) + lu(k,1692) = lu(k,1692) - lu(k,1437) * lu(k,1687) + lu(k,1693) = lu(k,1693) - lu(k,1438) * lu(k,1687) + lu(k,1694) = lu(k,1694) - lu(k,1439) * lu(k,1687) + lu(k,1695) = lu(k,1695) - lu(k,1440) * lu(k,1687) + lu(k,1696) = lu(k,1696) - lu(k,1441) * lu(k,1687) + lu(k,1697) = lu(k,1697) - lu(k,1442) * lu(k,1687) + lu(k,1698) = lu(k,1698) - lu(k,1443) * lu(k,1687) + lu(k,1699) = lu(k,1699) - lu(k,1444) * lu(k,1687) + lu(k,1700) = lu(k,1700) - lu(k,1445) * lu(k,1687) + lu(k,1701) = lu(k,1701) - lu(k,1446) * lu(k,1687) + lu(k,1702) = lu(k,1702) - lu(k,1447) * lu(k,1687) + lu(k,1728) = lu(k,1728) - lu(k,1433) * lu(k,1727) + lu(k,1729) = lu(k,1729) - lu(k,1434) * lu(k,1727) + lu(k,1730) = lu(k,1730) - lu(k,1435) * lu(k,1727) + lu(k,1731) = lu(k,1731) - lu(k,1436) * lu(k,1727) + lu(k,1732) = lu(k,1732) - lu(k,1437) * lu(k,1727) + lu(k,1733) = lu(k,1733) - lu(k,1438) * lu(k,1727) + lu(k,1734) = lu(k,1734) - lu(k,1439) * lu(k,1727) + lu(k,1735) = lu(k,1735) - lu(k,1440) * lu(k,1727) + lu(k,1736) = lu(k,1736) - lu(k,1441) * lu(k,1727) + lu(k,1737) = lu(k,1737) - lu(k,1442) * lu(k,1727) + lu(k,1738) = lu(k,1738) - lu(k,1443) * lu(k,1727) + lu(k,1739) = lu(k,1739) - lu(k,1444) * lu(k,1727) + lu(k,1740) = lu(k,1740) - lu(k,1445) * lu(k,1727) + lu(k,1741) = lu(k,1741) - lu(k,1446) * lu(k,1727) + lu(k,1742) = lu(k,1742) - lu(k,1447) * lu(k,1727) + lu(k,1764) = lu(k,1764) - lu(k,1433) * lu(k,1763) + lu(k,1765) = lu(k,1765) - lu(k,1434) * lu(k,1763) + lu(k,1766) = lu(k,1766) - lu(k,1435) * lu(k,1763) + lu(k,1767) = lu(k,1767) - lu(k,1436) * lu(k,1763) + lu(k,1768) = lu(k,1768) - lu(k,1437) * lu(k,1763) + lu(k,1769) = lu(k,1769) - lu(k,1438) * lu(k,1763) + lu(k,1770) = lu(k,1770) - lu(k,1439) * lu(k,1763) + lu(k,1771) = lu(k,1771) - lu(k,1440) * lu(k,1763) + lu(k,1772) = lu(k,1772) - lu(k,1441) * lu(k,1763) + lu(k,1773) = lu(k,1773) - lu(k,1442) * lu(k,1763) + lu(k,1774) = lu(k,1774) - lu(k,1443) * lu(k,1763) + lu(k,1775) = lu(k,1775) - lu(k,1444) * lu(k,1763) + lu(k,1776) = lu(k,1776) - lu(k,1445) * lu(k,1763) + lu(k,1777) = lu(k,1777) - lu(k,1446) * lu(k,1763) + lu(k,1778) = lu(k,1778) - lu(k,1447) * lu(k,1763) + lu(k,1812) = lu(k,1812) - lu(k,1433) * lu(k,1811) + lu(k,1813) = lu(k,1813) - lu(k,1434) * lu(k,1811) + lu(k,1814) = lu(k,1814) - lu(k,1435) * lu(k,1811) + lu(k,1815) = lu(k,1815) - lu(k,1436) * lu(k,1811) + lu(k,1816) = lu(k,1816) - lu(k,1437) * lu(k,1811) + lu(k,1817) = lu(k,1817) - lu(k,1438) * lu(k,1811) + lu(k,1818) = lu(k,1818) - lu(k,1439) * lu(k,1811) + lu(k,1819) = lu(k,1819) - lu(k,1440) * lu(k,1811) + lu(k,1820) = lu(k,1820) - lu(k,1441) * lu(k,1811) + lu(k,1821) = lu(k,1821) - lu(k,1442) * lu(k,1811) + lu(k,1822) = lu(k,1822) - lu(k,1443) * lu(k,1811) + lu(k,1823) = lu(k,1823) - lu(k,1444) * lu(k,1811) + lu(k,1824) = lu(k,1824) - lu(k,1445) * lu(k,1811) + lu(k,1825) = lu(k,1825) - lu(k,1446) * lu(k,1811) + lu(k,1826) = lu(k,1826) - lu(k,1447) * lu(k,1811) + lu(k,1845) = lu(k,1845) - lu(k,1433) * lu(k,1844) + lu(k,1846) = lu(k,1846) - lu(k,1434) * lu(k,1844) + lu(k,1847) = lu(k,1847) - lu(k,1435) * lu(k,1844) + lu(k,1848) = lu(k,1848) - lu(k,1436) * lu(k,1844) + lu(k,1849) = lu(k,1849) - lu(k,1437) * lu(k,1844) + lu(k,1850) = lu(k,1850) - lu(k,1438) * lu(k,1844) + lu(k,1851) = lu(k,1851) - lu(k,1439) * lu(k,1844) + lu(k,1852) = lu(k,1852) - lu(k,1440) * lu(k,1844) + lu(k,1853) = lu(k,1853) - lu(k,1441) * lu(k,1844) + lu(k,1854) = lu(k,1854) - lu(k,1442) * lu(k,1844) + lu(k,1855) = lu(k,1855) - lu(k,1443) * lu(k,1844) + lu(k,1856) = lu(k,1856) - lu(k,1444) * lu(k,1844) + lu(k,1857) = lu(k,1857) - lu(k,1445) * lu(k,1844) + lu(k,1858) = lu(k,1858) - lu(k,1446) * lu(k,1844) + lu(k,1859) = lu(k,1859) - lu(k,1447) * lu(k,1844) + lu(k,1881) = lu(k,1881) - lu(k,1433) * lu(k,1880) + lu(k,1882) = lu(k,1882) - lu(k,1434) * lu(k,1880) + lu(k,1883) = lu(k,1883) - lu(k,1435) * lu(k,1880) + lu(k,1884) = lu(k,1884) - lu(k,1436) * lu(k,1880) + lu(k,1885) = lu(k,1885) - lu(k,1437) * lu(k,1880) + lu(k,1886) = lu(k,1886) - lu(k,1438) * lu(k,1880) + lu(k,1887) = lu(k,1887) - lu(k,1439) * lu(k,1880) + lu(k,1888) = lu(k,1888) - lu(k,1440) * lu(k,1880) + lu(k,1889) = lu(k,1889) - lu(k,1441) * lu(k,1880) + lu(k,1890) = lu(k,1890) - lu(k,1442) * lu(k,1880) + lu(k,1891) = lu(k,1891) - lu(k,1443) * lu(k,1880) + lu(k,1892) = lu(k,1892) - lu(k,1444) * lu(k,1880) + lu(k,1893) = lu(k,1893) - lu(k,1445) * lu(k,1880) + lu(k,1894) = lu(k,1894) - lu(k,1446) * lu(k,1880) + lu(k,1895) = lu(k,1895) - lu(k,1447) * lu(k,1880) + lu(k,1930) = lu(k,1930) - lu(k,1433) * lu(k,1929) + lu(k,1931) = lu(k,1931) - lu(k,1434) * lu(k,1929) + lu(k,1932) = lu(k,1932) - lu(k,1435) * lu(k,1929) + lu(k,1933) = lu(k,1933) - lu(k,1436) * lu(k,1929) + lu(k,1934) = lu(k,1934) - lu(k,1437) * lu(k,1929) + lu(k,1935) = lu(k,1935) - lu(k,1438) * lu(k,1929) + lu(k,1936) = lu(k,1936) - lu(k,1439) * lu(k,1929) + lu(k,1937) = lu(k,1937) - lu(k,1440) * lu(k,1929) + lu(k,1938) = lu(k,1938) - lu(k,1441) * lu(k,1929) + lu(k,1939) = lu(k,1939) - lu(k,1442) * lu(k,1929) + lu(k,1940) = lu(k,1940) - lu(k,1443) * lu(k,1929) + lu(k,1941) = lu(k,1941) - lu(k,1444) * lu(k,1929) + lu(k,1942) = lu(k,1942) - lu(k,1445) * lu(k,1929) + lu(k,1943) = lu(k,1943) - lu(k,1446) * lu(k,1929) + lu(k,1944) = lu(k,1944) - lu(k,1447) * lu(k,1929) + lu(k,1974) = lu(k,1974) - lu(k,1433) * lu(k,1973) + lu(k,1975) = lu(k,1975) - lu(k,1434) * lu(k,1973) + lu(k,1976) = lu(k,1976) - lu(k,1435) * lu(k,1973) + lu(k,1977) = lu(k,1977) - lu(k,1436) * lu(k,1973) + lu(k,1978) = lu(k,1978) - lu(k,1437) * lu(k,1973) + lu(k,1979) = lu(k,1979) - lu(k,1438) * lu(k,1973) + lu(k,1980) = lu(k,1980) - lu(k,1439) * lu(k,1973) + lu(k,1981) = lu(k,1981) - lu(k,1440) * lu(k,1973) + lu(k,1982) = lu(k,1982) - lu(k,1441) * lu(k,1973) + lu(k,1983) = lu(k,1983) - lu(k,1442) * lu(k,1973) + lu(k,1984) = lu(k,1984) - lu(k,1443) * lu(k,1973) + lu(k,1985) = lu(k,1985) - lu(k,1444) * lu(k,1973) + lu(k,1986) = lu(k,1986) - lu(k,1445) * lu(k,1973) + lu(k,1987) = lu(k,1987) - lu(k,1446) * lu(k,1973) + lu(k,1988) = lu(k,1988) - lu(k,1447) * lu(k,1973) + lu(k,2019) = lu(k,2019) - lu(k,1433) * lu(k,2018) + lu(k,2020) = lu(k,2020) - lu(k,1434) * lu(k,2018) + lu(k,2021) = lu(k,2021) - lu(k,1435) * lu(k,2018) + lu(k,2022) = lu(k,2022) - lu(k,1436) * lu(k,2018) + lu(k,2023) = lu(k,2023) - lu(k,1437) * lu(k,2018) + lu(k,2024) = lu(k,2024) - lu(k,1438) * lu(k,2018) + lu(k,2025) = lu(k,2025) - lu(k,1439) * lu(k,2018) + lu(k,2026) = lu(k,2026) - lu(k,1440) * lu(k,2018) + lu(k,2027) = lu(k,2027) - lu(k,1441) * lu(k,2018) + lu(k,2028) = lu(k,2028) - lu(k,1442) * lu(k,2018) + lu(k,2029) = lu(k,2029) - lu(k,1443) * lu(k,2018) + lu(k,2030) = lu(k,2030) - lu(k,1444) * lu(k,2018) + lu(k,2031) = lu(k,2031) - lu(k,1445) * lu(k,2018) + lu(k,2032) = lu(k,2032) - lu(k,1446) * lu(k,2018) + lu(k,2033) = lu(k,2033) - lu(k,1447) * lu(k,2018) + lu(k,2079) = lu(k,2079) - lu(k,1433) * lu(k,2078) + lu(k,2080) = lu(k,2080) - lu(k,1434) * lu(k,2078) + lu(k,2081) = lu(k,2081) - lu(k,1435) * lu(k,2078) + lu(k,2082) = lu(k,2082) - lu(k,1436) * lu(k,2078) + lu(k,2083) = lu(k,2083) - lu(k,1437) * lu(k,2078) + lu(k,2084) = lu(k,2084) - lu(k,1438) * lu(k,2078) + lu(k,2085) = lu(k,2085) - lu(k,1439) * lu(k,2078) + lu(k,2086) = lu(k,2086) - lu(k,1440) * lu(k,2078) + lu(k,2087) = lu(k,2087) - lu(k,1441) * lu(k,2078) + lu(k,2088) = lu(k,2088) - lu(k,1442) * lu(k,2078) + lu(k,2089) = lu(k,2089) - lu(k,1443) * lu(k,2078) + lu(k,2090) = lu(k,2090) - lu(k,1444) * lu(k,2078) + lu(k,2091) = lu(k,2091) - lu(k,1445) * lu(k,2078) + lu(k,2092) = lu(k,2092) - lu(k,1446) * lu(k,2078) + lu(k,2093) = lu(k,2093) - lu(k,1447) * lu(k,2078) + lu(k,1481) = 1._r8 / lu(k,1481) + lu(k,1482) = lu(k,1482) * lu(k,1481) + lu(k,1483) = lu(k,1483) * lu(k,1481) + lu(k,1484) = lu(k,1484) * lu(k,1481) + lu(k,1485) = lu(k,1485) * lu(k,1481) + lu(k,1486) = lu(k,1486) * lu(k,1481) + lu(k,1487) = lu(k,1487) * lu(k,1481) + lu(k,1488) = lu(k,1488) * lu(k,1481) + lu(k,1489) = lu(k,1489) * lu(k,1481) + lu(k,1490) = lu(k,1490) * lu(k,1481) + lu(k,1491) = lu(k,1491) * lu(k,1481) + lu(k,1492) = lu(k,1492) * lu(k,1481) + lu(k,1493) = lu(k,1493) * lu(k,1481) + lu(k,1494) = lu(k,1494) * lu(k,1481) + lu(k,1495) = lu(k,1495) * lu(k,1481) + lu(k,1523) = lu(k,1523) - lu(k,1482) * lu(k,1522) + lu(k,1524) = lu(k,1524) - lu(k,1483) * lu(k,1522) + lu(k,1525) = lu(k,1525) - lu(k,1484) * lu(k,1522) + lu(k,1526) = lu(k,1526) - lu(k,1485) * lu(k,1522) + lu(k,1527) = lu(k,1527) - lu(k,1486) * lu(k,1522) + lu(k,1528) = lu(k,1528) - lu(k,1487) * lu(k,1522) + lu(k,1529) = lu(k,1529) - lu(k,1488) * lu(k,1522) + lu(k,1530) = lu(k,1530) - lu(k,1489) * lu(k,1522) + lu(k,1531) = lu(k,1531) - lu(k,1490) * lu(k,1522) + lu(k,1532) = lu(k,1532) - lu(k,1491) * lu(k,1522) + lu(k,1533) = lu(k,1533) - lu(k,1492) * lu(k,1522) + lu(k,1534) = lu(k,1534) - lu(k,1493) * lu(k,1522) + lu(k,1535) = lu(k,1535) - lu(k,1494) * lu(k,1522) + lu(k,1536) = lu(k,1536) - lu(k,1495) * lu(k,1522) + lu(k,1559) = lu(k,1559) - lu(k,1482) * lu(k,1558) + lu(k,1560) = lu(k,1560) - lu(k,1483) * lu(k,1558) + lu(k,1561) = lu(k,1561) - lu(k,1484) * lu(k,1558) + lu(k,1562) = lu(k,1562) - lu(k,1485) * lu(k,1558) + lu(k,1563) = lu(k,1563) - lu(k,1486) * lu(k,1558) + lu(k,1564) = lu(k,1564) - lu(k,1487) * lu(k,1558) + lu(k,1565) = lu(k,1565) - lu(k,1488) * lu(k,1558) + lu(k,1566) = lu(k,1566) - lu(k,1489) * lu(k,1558) + lu(k,1567) = lu(k,1567) - lu(k,1490) * lu(k,1558) + lu(k,1568) = lu(k,1568) - lu(k,1491) * lu(k,1558) + lu(k,1569) = lu(k,1569) - lu(k,1492) * lu(k,1558) + lu(k,1570) = lu(k,1570) - lu(k,1493) * lu(k,1558) + lu(k,1571) = lu(k,1571) - lu(k,1494) * lu(k,1558) + lu(k,1572) = lu(k,1572) - lu(k,1495) * lu(k,1558) + lu(k,1604) = lu(k,1604) - lu(k,1482) * lu(k,1603) + lu(k,1605) = lu(k,1605) - lu(k,1483) * lu(k,1603) + lu(k,1606) = lu(k,1606) - lu(k,1484) * lu(k,1603) + lu(k,1607) = lu(k,1607) - lu(k,1485) * lu(k,1603) + lu(k,1608) = lu(k,1608) - lu(k,1486) * lu(k,1603) + lu(k,1609) = lu(k,1609) - lu(k,1487) * lu(k,1603) + lu(k,1610) = lu(k,1610) - lu(k,1488) * lu(k,1603) + lu(k,1611) = lu(k,1611) - lu(k,1489) * lu(k,1603) + lu(k,1612) = lu(k,1612) - lu(k,1490) * lu(k,1603) + lu(k,1613) = lu(k,1613) - lu(k,1491) * lu(k,1603) + lu(k,1614) = lu(k,1614) - lu(k,1492) * lu(k,1603) + lu(k,1615) = lu(k,1615) - lu(k,1493) * lu(k,1603) + lu(k,1616) = lu(k,1616) - lu(k,1494) * lu(k,1603) + lu(k,1617) = lu(k,1617) - lu(k,1495) * lu(k,1603) + lu(k,1647) = lu(k,1647) - lu(k,1482) * lu(k,1646) + lu(k,1648) = lu(k,1648) - lu(k,1483) * lu(k,1646) + lu(k,1649) = lu(k,1649) - lu(k,1484) * lu(k,1646) + lu(k,1650) = lu(k,1650) - lu(k,1485) * lu(k,1646) + lu(k,1651) = lu(k,1651) - lu(k,1486) * lu(k,1646) + lu(k,1652) = lu(k,1652) - lu(k,1487) * lu(k,1646) + lu(k,1653) = lu(k,1653) - lu(k,1488) * lu(k,1646) + lu(k,1654) = lu(k,1654) - lu(k,1489) * lu(k,1646) + lu(k,1655) = lu(k,1655) - lu(k,1490) * lu(k,1646) + lu(k,1656) = lu(k,1656) - lu(k,1491) * lu(k,1646) + lu(k,1657) = lu(k,1657) - lu(k,1492) * lu(k,1646) + lu(k,1658) = lu(k,1658) - lu(k,1493) * lu(k,1646) + lu(k,1659) = lu(k,1659) - lu(k,1494) * lu(k,1646) + lu(k,1660) = lu(k,1660) - lu(k,1495) * lu(k,1646) + lu(k,1689) = lu(k,1689) - lu(k,1482) * lu(k,1688) + lu(k,1690) = lu(k,1690) - lu(k,1483) * lu(k,1688) + lu(k,1691) = lu(k,1691) - lu(k,1484) * lu(k,1688) + lu(k,1692) = lu(k,1692) - lu(k,1485) * lu(k,1688) + lu(k,1693) = lu(k,1693) - lu(k,1486) * lu(k,1688) + lu(k,1694) = lu(k,1694) - lu(k,1487) * lu(k,1688) + lu(k,1695) = lu(k,1695) - lu(k,1488) * lu(k,1688) + lu(k,1696) = lu(k,1696) - lu(k,1489) * lu(k,1688) + lu(k,1697) = lu(k,1697) - lu(k,1490) * lu(k,1688) + lu(k,1698) = lu(k,1698) - lu(k,1491) * lu(k,1688) + lu(k,1699) = lu(k,1699) - lu(k,1492) * lu(k,1688) + lu(k,1700) = lu(k,1700) - lu(k,1493) * lu(k,1688) + lu(k,1701) = lu(k,1701) - lu(k,1494) * lu(k,1688) + lu(k,1702) = lu(k,1702) - lu(k,1495) * lu(k,1688) + lu(k,1729) = lu(k,1729) - lu(k,1482) * lu(k,1728) + lu(k,1730) = lu(k,1730) - lu(k,1483) * lu(k,1728) + lu(k,1731) = lu(k,1731) - lu(k,1484) * lu(k,1728) + lu(k,1732) = lu(k,1732) - lu(k,1485) * lu(k,1728) + lu(k,1733) = lu(k,1733) - lu(k,1486) * lu(k,1728) + lu(k,1734) = lu(k,1734) - lu(k,1487) * lu(k,1728) + lu(k,1735) = lu(k,1735) - lu(k,1488) * lu(k,1728) + lu(k,1736) = lu(k,1736) - lu(k,1489) * lu(k,1728) + lu(k,1737) = lu(k,1737) - lu(k,1490) * lu(k,1728) + lu(k,1738) = lu(k,1738) - lu(k,1491) * lu(k,1728) + lu(k,1739) = lu(k,1739) - lu(k,1492) * lu(k,1728) + lu(k,1740) = lu(k,1740) - lu(k,1493) * lu(k,1728) + lu(k,1741) = lu(k,1741) - lu(k,1494) * lu(k,1728) + lu(k,1742) = lu(k,1742) - lu(k,1495) * lu(k,1728) + lu(k,1765) = lu(k,1765) - lu(k,1482) * lu(k,1764) + lu(k,1766) = lu(k,1766) - lu(k,1483) * lu(k,1764) + lu(k,1767) = lu(k,1767) - lu(k,1484) * lu(k,1764) + lu(k,1768) = lu(k,1768) - lu(k,1485) * lu(k,1764) + lu(k,1769) = lu(k,1769) - lu(k,1486) * lu(k,1764) + lu(k,1770) = lu(k,1770) - lu(k,1487) * lu(k,1764) + lu(k,1771) = lu(k,1771) - lu(k,1488) * lu(k,1764) + lu(k,1772) = lu(k,1772) - lu(k,1489) * lu(k,1764) + lu(k,1773) = lu(k,1773) - lu(k,1490) * lu(k,1764) + lu(k,1774) = lu(k,1774) - lu(k,1491) * lu(k,1764) + lu(k,1775) = lu(k,1775) - lu(k,1492) * lu(k,1764) + lu(k,1776) = lu(k,1776) - lu(k,1493) * lu(k,1764) + lu(k,1777) = lu(k,1777) - lu(k,1494) * lu(k,1764) + lu(k,1778) = lu(k,1778) - lu(k,1495) * lu(k,1764) + lu(k,1813) = lu(k,1813) - lu(k,1482) * lu(k,1812) + lu(k,1814) = lu(k,1814) - lu(k,1483) * lu(k,1812) + lu(k,1815) = lu(k,1815) - lu(k,1484) * lu(k,1812) + lu(k,1816) = lu(k,1816) - lu(k,1485) * lu(k,1812) + lu(k,1817) = lu(k,1817) - lu(k,1486) * lu(k,1812) + lu(k,1818) = lu(k,1818) - lu(k,1487) * lu(k,1812) + lu(k,1819) = lu(k,1819) - lu(k,1488) * lu(k,1812) + lu(k,1820) = lu(k,1820) - lu(k,1489) * lu(k,1812) + lu(k,1821) = lu(k,1821) - lu(k,1490) * lu(k,1812) + lu(k,1822) = lu(k,1822) - lu(k,1491) * lu(k,1812) + lu(k,1823) = lu(k,1823) - lu(k,1492) * lu(k,1812) + lu(k,1824) = lu(k,1824) - lu(k,1493) * lu(k,1812) + lu(k,1825) = lu(k,1825) - lu(k,1494) * lu(k,1812) + lu(k,1826) = lu(k,1826) - lu(k,1495) * lu(k,1812) + lu(k,1846) = lu(k,1846) - lu(k,1482) * lu(k,1845) + lu(k,1847) = lu(k,1847) - lu(k,1483) * lu(k,1845) + lu(k,1848) = lu(k,1848) - lu(k,1484) * lu(k,1845) + lu(k,1849) = lu(k,1849) - lu(k,1485) * lu(k,1845) + lu(k,1850) = lu(k,1850) - lu(k,1486) * lu(k,1845) + lu(k,1851) = lu(k,1851) - lu(k,1487) * lu(k,1845) + lu(k,1852) = lu(k,1852) - lu(k,1488) * lu(k,1845) + lu(k,1853) = lu(k,1853) - lu(k,1489) * lu(k,1845) + lu(k,1854) = lu(k,1854) - lu(k,1490) * lu(k,1845) + lu(k,1855) = lu(k,1855) - lu(k,1491) * lu(k,1845) + lu(k,1856) = lu(k,1856) - lu(k,1492) * lu(k,1845) + lu(k,1857) = lu(k,1857) - lu(k,1493) * lu(k,1845) + lu(k,1858) = lu(k,1858) - lu(k,1494) * lu(k,1845) + lu(k,1859) = lu(k,1859) - lu(k,1495) * lu(k,1845) + lu(k,1882) = lu(k,1882) - lu(k,1482) * lu(k,1881) + lu(k,1883) = lu(k,1883) - lu(k,1483) * lu(k,1881) + lu(k,1884) = lu(k,1884) - lu(k,1484) * lu(k,1881) + lu(k,1885) = lu(k,1885) - lu(k,1485) * lu(k,1881) + lu(k,1886) = lu(k,1886) - lu(k,1486) * lu(k,1881) + lu(k,1887) = lu(k,1887) - lu(k,1487) * lu(k,1881) + lu(k,1888) = lu(k,1888) - lu(k,1488) * lu(k,1881) + lu(k,1889) = lu(k,1889) - lu(k,1489) * lu(k,1881) + lu(k,1890) = lu(k,1890) - lu(k,1490) * lu(k,1881) + lu(k,1891) = lu(k,1891) - lu(k,1491) * lu(k,1881) + lu(k,1892) = lu(k,1892) - lu(k,1492) * lu(k,1881) + lu(k,1893) = lu(k,1893) - lu(k,1493) * lu(k,1881) + lu(k,1894) = lu(k,1894) - lu(k,1494) * lu(k,1881) + lu(k,1895) = lu(k,1895) - lu(k,1495) * lu(k,1881) + lu(k,1931) = lu(k,1931) - lu(k,1482) * lu(k,1930) + lu(k,1932) = lu(k,1932) - lu(k,1483) * lu(k,1930) + lu(k,1933) = lu(k,1933) - lu(k,1484) * lu(k,1930) + lu(k,1934) = lu(k,1934) - lu(k,1485) * lu(k,1930) + lu(k,1935) = lu(k,1935) - lu(k,1486) * lu(k,1930) + lu(k,1936) = lu(k,1936) - lu(k,1487) * lu(k,1930) + lu(k,1937) = lu(k,1937) - lu(k,1488) * lu(k,1930) + lu(k,1938) = lu(k,1938) - lu(k,1489) * lu(k,1930) + lu(k,1939) = lu(k,1939) - lu(k,1490) * lu(k,1930) + lu(k,1940) = lu(k,1940) - lu(k,1491) * lu(k,1930) + lu(k,1941) = lu(k,1941) - lu(k,1492) * lu(k,1930) + lu(k,1942) = lu(k,1942) - lu(k,1493) * lu(k,1930) + lu(k,1943) = lu(k,1943) - lu(k,1494) * lu(k,1930) + lu(k,1944) = lu(k,1944) - lu(k,1495) * lu(k,1930) + lu(k,1975) = lu(k,1975) - lu(k,1482) * lu(k,1974) + lu(k,1976) = lu(k,1976) - lu(k,1483) * lu(k,1974) + lu(k,1977) = lu(k,1977) - lu(k,1484) * lu(k,1974) + lu(k,1978) = lu(k,1978) - lu(k,1485) * lu(k,1974) + lu(k,1979) = lu(k,1979) - lu(k,1486) * lu(k,1974) + lu(k,1980) = lu(k,1980) - lu(k,1487) * lu(k,1974) + lu(k,1981) = lu(k,1981) - lu(k,1488) * lu(k,1974) + lu(k,1982) = lu(k,1982) - lu(k,1489) * lu(k,1974) + lu(k,1983) = lu(k,1983) - lu(k,1490) * lu(k,1974) + lu(k,1984) = lu(k,1984) - lu(k,1491) * lu(k,1974) + lu(k,1985) = lu(k,1985) - lu(k,1492) * lu(k,1974) + lu(k,1986) = lu(k,1986) - lu(k,1493) * lu(k,1974) + lu(k,1987) = lu(k,1987) - lu(k,1494) * lu(k,1974) + lu(k,1988) = lu(k,1988) - lu(k,1495) * lu(k,1974) + lu(k,2020) = lu(k,2020) - lu(k,1482) * lu(k,2019) + lu(k,2021) = lu(k,2021) - lu(k,1483) * lu(k,2019) + lu(k,2022) = lu(k,2022) - lu(k,1484) * lu(k,2019) + lu(k,2023) = lu(k,2023) - lu(k,1485) * lu(k,2019) + lu(k,2024) = lu(k,2024) - lu(k,1486) * lu(k,2019) + lu(k,2025) = lu(k,2025) - lu(k,1487) * lu(k,2019) + lu(k,2026) = lu(k,2026) - lu(k,1488) * lu(k,2019) + lu(k,2027) = lu(k,2027) - lu(k,1489) * lu(k,2019) + lu(k,2028) = lu(k,2028) - lu(k,1490) * lu(k,2019) + lu(k,2029) = lu(k,2029) - lu(k,1491) * lu(k,2019) + lu(k,2030) = lu(k,2030) - lu(k,1492) * lu(k,2019) + lu(k,2031) = lu(k,2031) - lu(k,1493) * lu(k,2019) + lu(k,2032) = lu(k,2032) - lu(k,1494) * lu(k,2019) + lu(k,2033) = lu(k,2033) - lu(k,1495) * lu(k,2019) + lu(k,2080) = lu(k,2080) - lu(k,1482) * lu(k,2079) + lu(k,2081) = lu(k,2081) - lu(k,1483) * lu(k,2079) + lu(k,2082) = lu(k,2082) - lu(k,1484) * lu(k,2079) + lu(k,2083) = lu(k,2083) - lu(k,1485) * lu(k,2079) + lu(k,2084) = lu(k,2084) - lu(k,1486) * lu(k,2079) + lu(k,2085) = lu(k,2085) - lu(k,1487) * lu(k,2079) + lu(k,2086) = lu(k,2086) - lu(k,1488) * lu(k,2079) + lu(k,2087) = lu(k,2087) - lu(k,1489) * lu(k,2079) + lu(k,2088) = lu(k,2088) - lu(k,1490) * lu(k,2079) + lu(k,2089) = lu(k,2089) - lu(k,1491) * lu(k,2079) + lu(k,2090) = lu(k,2090) - lu(k,1492) * lu(k,2079) + lu(k,2091) = lu(k,2091) - lu(k,1493) * lu(k,2079) + lu(k,2092) = lu(k,2092) - lu(k,1494) * lu(k,2079) + lu(k,2093) = lu(k,2093) - lu(k,1495) * lu(k,2079) + lu(k,1523) = 1._r8 / lu(k,1523) + lu(k,1524) = lu(k,1524) * lu(k,1523) + lu(k,1525) = lu(k,1525) * lu(k,1523) + lu(k,1526) = lu(k,1526) * lu(k,1523) + lu(k,1527) = lu(k,1527) * lu(k,1523) + lu(k,1528) = lu(k,1528) * lu(k,1523) + lu(k,1529) = lu(k,1529) * lu(k,1523) + lu(k,1530) = lu(k,1530) * lu(k,1523) + lu(k,1531) = lu(k,1531) * lu(k,1523) + lu(k,1532) = lu(k,1532) * lu(k,1523) + lu(k,1533) = lu(k,1533) * lu(k,1523) + lu(k,1534) = lu(k,1534) * lu(k,1523) + lu(k,1535) = lu(k,1535) * lu(k,1523) + lu(k,1536) = lu(k,1536) * lu(k,1523) + lu(k,1560) = lu(k,1560) - lu(k,1524) * lu(k,1559) + lu(k,1561) = lu(k,1561) - lu(k,1525) * lu(k,1559) + lu(k,1562) = lu(k,1562) - lu(k,1526) * lu(k,1559) + lu(k,1563) = lu(k,1563) - lu(k,1527) * lu(k,1559) + lu(k,1564) = lu(k,1564) - lu(k,1528) * lu(k,1559) + lu(k,1565) = lu(k,1565) - lu(k,1529) * lu(k,1559) + lu(k,1566) = lu(k,1566) - lu(k,1530) * lu(k,1559) + lu(k,1567) = lu(k,1567) - lu(k,1531) * lu(k,1559) + lu(k,1568) = lu(k,1568) - lu(k,1532) * lu(k,1559) + lu(k,1569) = lu(k,1569) - lu(k,1533) * lu(k,1559) + lu(k,1570) = lu(k,1570) - lu(k,1534) * lu(k,1559) + lu(k,1571) = lu(k,1571) - lu(k,1535) * lu(k,1559) + lu(k,1572) = lu(k,1572) - lu(k,1536) * lu(k,1559) + lu(k,1605) = lu(k,1605) - lu(k,1524) * lu(k,1604) + lu(k,1606) = lu(k,1606) - lu(k,1525) * lu(k,1604) + lu(k,1607) = lu(k,1607) - lu(k,1526) * lu(k,1604) + lu(k,1608) = lu(k,1608) - lu(k,1527) * lu(k,1604) + lu(k,1609) = lu(k,1609) - lu(k,1528) * lu(k,1604) + lu(k,1610) = lu(k,1610) - lu(k,1529) * lu(k,1604) + lu(k,1611) = lu(k,1611) - lu(k,1530) * lu(k,1604) + lu(k,1612) = lu(k,1612) - lu(k,1531) * lu(k,1604) + lu(k,1613) = lu(k,1613) - lu(k,1532) * lu(k,1604) + lu(k,1614) = lu(k,1614) - lu(k,1533) * lu(k,1604) + lu(k,1615) = lu(k,1615) - lu(k,1534) * lu(k,1604) + lu(k,1616) = lu(k,1616) - lu(k,1535) * lu(k,1604) + lu(k,1617) = lu(k,1617) - lu(k,1536) * lu(k,1604) + lu(k,1648) = lu(k,1648) - lu(k,1524) * lu(k,1647) + lu(k,1649) = lu(k,1649) - lu(k,1525) * lu(k,1647) + lu(k,1650) = lu(k,1650) - lu(k,1526) * lu(k,1647) + lu(k,1651) = lu(k,1651) - lu(k,1527) * lu(k,1647) + lu(k,1652) = lu(k,1652) - lu(k,1528) * lu(k,1647) + lu(k,1653) = lu(k,1653) - lu(k,1529) * lu(k,1647) + lu(k,1654) = lu(k,1654) - lu(k,1530) * lu(k,1647) + lu(k,1655) = lu(k,1655) - lu(k,1531) * lu(k,1647) + lu(k,1656) = lu(k,1656) - lu(k,1532) * lu(k,1647) + lu(k,1657) = lu(k,1657) - lu(k,1533) * lu(k,1647) + lu(k,1658) = lu(k,1658) - lu(k,1534) * lu(k,1647) + lu(k,1659) = lu(k,1659) - lu(k,1535) * lu(k,1647) + lu(k,1660) = lu(k,1660) - lu(k,1536) * lu(k,1647) + lu(k,1690) = lu(k,1690) - lu(k,1524) * lu(k,1689) + lu(k,1691) = lu(k,1691) - lu(k,1525) * lu(k,1689) + lu(k,1692) = lu(k,1692) - lu(k,1526) * lu(k,1689) + lu(k,1693) = lu(k,1693) - lu(k,1527) * lu(k,1689) + lu(k,1694) = lu(k,1694) - lu(k,1528) * lu(k,1689) + lu(k,1695) = lu(k,1695) - lu(k,1529) * lu(k,1689) + lu(k,1696) = lu(k,1696) - lu(k,1530) * lu(k,1689) + lu(k,1697) = lu(k,1697) - lu(k,1531) * lu(k,1689) + lu(k,1698) = lu(k,1698) - lu(k,1532) * lu(k,1689) + lu(k,1699) = lu(k,1699) - lu(k,1533) * lu(k,1689) + lu(k,1700) = lu(k,1700) - lu(k,1534) * lu(k,1689) + lu(k,1701) = lu(k,1701) - lu(k,1535) * lu(k,1689) + lu(k,1702) = lu(k,1702) - lu(k,1536) * lu(k,1689) + lu(k,1730) = lu(k,1730) - lu(k,1524) * lu(k,1729) + lu(k,1731) = lu(k,1731) - lu(k,1525) * lu(k,1729) + lu(k,1732) = lu(k,1732) - lu(k,1526) * lu(k,1729) + lu(k,1733) = lu(k,1733) - lu(k,1527) * lu(k,1729) + lu(k,1734) = lu(k,1734) - lu(k,1528) * lu(k,1729) + lu(k,1735) = lu(k,1735) - lu(k,1529) * lu(k,1729) + lu(k,1736) = lu(k,1736) - lu(k,1530) * lu(k,1729) + lu(k,1737) = lu(k,1737) - lu(k,1531) * lu(k,1729) + lu(k,1738) = lu(k,1738) - lu(k,1532) * lu(k,1729) + lu(k,1739) = lu(k,1739) - lu(k,1533) * lu(k,1729) + lu(k,1740) = lu(k,1740) - lu(k,1534) * lu(k,1729) + lu(k,1741) = lu(k,1741) - lu(k,1535) * lu(k,1729) + lu(k,1742) = lu(k,1742) - lu(k,1536) * lu(k,1729) + lu(k,1766) = lu(k,1766) - lu(k,1524) * lu(k,1765) + lu(k,1767) = lu(k,1767) - lu(k,1525) * lu(k,1765) + lu(k,1768) = lu(k,1768) - lu(k,1526) * lu(k,1765) + lu(k,1769) = lu(k,1769) - lu(k,1527) * lu(k,1765) + lu(k,1770) = lu(k,1770) - lu(k,1528) * lu(k,1765) + lu(k,1771) = lu(k,1771) - lu(k,1529) * lu(k,1765) + lu(k,1772) = lu(k,1772) - lu(k,1530) * lu(k,1765) + lu(k,1773) = lu(k,1773) - lu(k,1531) * lu(k,1765) + lu(k,1774) = lu(k,1774) - lu(k,1532) * lu(k,1765) + lu(k,1775) = lu(k,1775) - lu(k,1533) * lu(k,1765) + lu(k,1776) = lu(k,1776) - lu(k,1534) * lu(k,1765) + lu(k,1777) = lu(k,1777) - lu(k,1535) * lu(k,1765) + lu(k,1778) = lu(k,1778) - lu(k,1536) * lu(k,1765) + lu(k,1814) = lu(k,1814) - lu(k,1524) * lu(k,1813) + lu(k,1815) = lu(k,1815) - lu(k,1525) * lu(k,1813) + lu(k,1816) = lu(k,1816) - lu(k,1526) * lu(k,1813) + lu(k,1817) = lu(k,1817) - lu(k,1527) * lu(k,1813) + lu(k,1818) = lu(k,1818) - lu(k,1528) * lu(k,1813) + lu(k,1819) = lu(k,1819) - lu(k,1529) * lu(k,1813) + lu(k,1820) = lu(k,1820) - lu(k,1530) * lu(k,1813) + lu(k,1821) = lu(k,1821) - lu(k,1531) * lu(k,1813) + lu(k,1822) = lu(k,1822) - lu(k,1532) * lu(k,1813) + lu(k,1823) = lu(k,1823) - lu(k,1533) * lu(k,1813) + lu(k,1824) = lu(k,1824) - lu(k,1534) * lu(k,1813) + lu(k,1825) = lu(k,1825) - lu(k,1535) * lu(k,1813) + lu(k,1826) = lu(k,1826) - lu(k,1536) * lu(k,1813) + lu(k,1847) = lu(k,1847) - lu(k,1524) * lu(k,1846) + lu(k,1848) = lu(k,1848) - lu(k,1525) * lu(k,1846) + lu(k,1849) = lu(k,1849) - lu(k,1526) * lu(k,1846) + lu(k,1850) = lu(k,1850) - lu(k,1527) * lu(k,1846) + lu(k,1851) = lu(k,1851) - lu(k,1528) * lu(k,1846) + lu(k,1852) = lu(k,1852) - lu(k,1529) * lu(k,1846) + lu(k,1853) = lu(k,1853) - lu(k,1530) * lu(k,1846) + lu(k,1854) = lu(k,1854) - lu(k,1531) * lu(k,1846) + lu(k,1855) = lu(k,1855) - lu(k,1532) * lu(k,1846) + lu(k,1856) = lu(k,1856) - lu(k,1533) * lu(k,1846) + lu(k,1857) = lu(k,1857) - lu(k,1534) * lu(k,1846) + lu(k,1858) = lu(k,1858) - lu(k,1535) * lu(k,1846) + lu(k,1859) = lu(k,1859) - lu(k,1536) * lu(k,1846) + lu(k,1883) = lu(k,1883) - lu(k,1524) * lu(k,1882) + lu(k,1884) = lu(k,1884) - lu(k,1525) * lu(k,1882) + lu(k,1885) = lu(k,1885) - lu(k,1526) * lu(k,1882) + lu(k,1886) = lu(k,1886) - lu(k,1527) * lu(k,1882) + lu(k,1887) = lu(k,1887) - lu(k,1528) * lu(k,1882) + lu(k,1888) = lu(k,1888) - lu(k,1529) * lu(k,1882) + lu(k,1889) = lu(k,1889) - lu(k,1530) * lu(k,1882) + lu(k,1890) = lu(k,1890) - lu(k,1531) * lu(k,1882) + lu(k,1891) = lu(k,1891) - lu(k,1532) * lu(k,1882) + lu(k,1892) = lu(k,1892) - lu(k,1533) * lu(k,1882) + lu(k,1893) = lu(k,1893) - lu(k,1534) * lu(k,1882) + lu(k,1894) = lu(k,1894) - lu(k,1535) * lu(k,1882) + lu(k,1895) = lu(k,1895) - lu(k,1536) * lu(k,1882) + lu(k,1932) = lu(k,1932) - lu(k,1524) * lu(k,1931) + lu(k,1933) = lu(k,1933) - lu(k,1525) * lu(k,1931) + lu(k,1934) = lu(k,1934) - lu(k,1526) * lu(k,1931) + lu(k,1935) = lu(k,1935) - lu(k,1527) * lu(k,1931) + lu(k,1936) = lu(k,1936) - lu(k,1528) * lu(k,1931) + lu(k,1937) = lu(k,1937) - lu(k,1529) * lu(k,1931) + lu(k,1938) = lu(k,1938) - lu(k,1530) * lu(k,1931) + lu(k,1939) = lu(k,1939) - lu(k,1531) * lu(k,1931) + lu(k,1940) = lu(k,1940) - lu(k,1532) * lu(k,1931) + lu(k,1941) = lu(k,1941) - lu(k,1533) * lu(k,1931) + lu(k,1942) = lu(k,1942) - lu(k,1534) * lu(k,1931) + lu(k,1943) = lu(k,1943) - lu(k,1535) * lu(k,1931) + lu(k,1944) = lu(k,1944) - lu(k,1536) * lu(k,1931) + lu(k,1976) = lu(k,1976) - lu(k,1524) * lu(k,1975) + lu(k,1977) = lu(k,1977) - lu(k,1525) * lu(k,1975) + lu(k,1978) = lu(k,1978) - lu(k,1526) * lu(k,1975) + lu(k,1979) = lu(k,1979) - lu(k,1527) * lu(k,1975) + lu(k,1980) = lu(k,1980) - lu(k,1528) * lu(k,1975) + lu(k,1981) = lu(k,1981) - lu(k,1529) * lu(k,1975) + lu(k,1982) = lu(k,1982) - lu(k,1530) * lu(k,1975) + lu(k,1983) = lu(k,1983) - lu(k,1531) * lu(k,1975) + lu(k,1984) = lu(k,1984) - lu(k,1532) * lu(k,1975) + lu(k,1985) = lu(k,1985) - lu(k,1533) * lu(k,1975) + lu(k,1986) = lu(k,1986) - lu(k,1534) * lu(k,1975) + lu(k,1987) = lu(k,1987) - lu(k,1535) * lu(k,1975) + lu(k,1988) = lu(k,1988) - lu(k,1536) * lu(k,1975) + lu(k,2021) = lu(k,2021) - lu(k,1524) * lu(k,2020) + lu(k,2022) = lu(k,2022) - lu(k,1525) * lu(k,2020) + lu(k,2023) = lu(k,2023) - lu(k,1526) * lu(k,2020) + lu(k,2024) = lu(k,2024) - lu(k,1527) * lu(k,2020) + lu(k,2025) = lu(k,2025) - lu(k,1528) * lu(k,2020) + lu(k,2026) = lu(k,2026) - lu(k,1529) * lu(k,2020) + lu(k,2027) = lu(k,2027) - lu(k,1530) * lu(k,2020) + lu(k,2028) = lu(k,2028) - lu(k,1531) * lu(k,2020) + lu(k,2029) = lu(k,2029) - lu(k,1532) * lu(k,2020) + lu(k,2030) = lu(k,2030) - lu(k,1533) * lu(k,2020) + lu(k,2031) = lu(k,2031) - lu(k,1534) * lu(k,2020) + lu(k,2032) = lu(k,2032) - lu(k,1535) * lu(k,2020) + lu(k,2033) = lu(k,2033) - lu(k,1536) * lu(k,2020) + lu(k,2081) = lu(k,2081) - lu(k,1524) * lu(k,2080) + lu(k,2082) = lu(k,2082) - lu(k,1525) * lu(k,2080) + lu(k,2083) = lu(k,2083) - lu(k,1526) * lu(k,2080) + lu(k,2084) = lu(k,2084) - lu(k,1527) * lu(k,2080) + lu(k,2085) = lu(k,2085) - lu(k,1528) * lu(k,2080) + lu(k,2086) = lu(k,2086) - lu(k,1529) * lu(k,2080) + lu(k,2087) = lu(k,2087) - lu(k,1530) * lu(k,2080) + lu(k,2088) = lu(k,2088) - lu(k,1531) * lu(k,2080) + lu(k,2089) = lu(k,2089) - lu(k,1532) * lu(k,2080) + lu(k,2090) = lu(k,2090) - lu(k,1533) * lu(k,2080) + lu(k,2091) = lu(k,2091) - lu(k,1534) * lu(k,2080) + lu(k,2092) = lu(k,2092) - lu(k,1535) * lu(k,2080) + lu(k,2093) = lu(k,2093) - lu(k,1536) * lu(k,2080) end do - end subroutine lu_fac24 - subroutine lu_fac25( avec_len, lu ) + end subroutine lu_fac25 + subroutine lu_fac26( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -13466,574 +13506,574 @@ subroutine lu_fac25( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1566) = 1._r8 / lu(k,1566) - lu(k,1567) = lu(k,1567) * lu(k,1566) - lu(k,1568) = lu(k,1568) * lu(k,1566) - lu(k,1569) = lu(k,1569) * lu(k,1566) - lu(k,1570) = lu(k,1570) * lu(k,1566) - lu(k,1571) = lu(k,1571) * lu(k,1566) - lu(k,1572) = lu(k,1572) * lu(k,1566) - lu(k,1573) = lu(k,1573) * lu(k,1566) - lu(k,1574) = lu(k,1574) * lu(k,1566) - lu(k,1575) = lu(k,1575) * lu(k,1566) - lu(k,1576) = lu(k,1576) * lu(k,1566) - lu(k,1577) = lu(k,1577) * lu(k,1566) - lu(k,1578) = lu(k,1578) * lu(k,1566) - lu(k,1612) = lu(k,1612) - lu(k,1567) * lu(k,1611) - lu(k,1613) = lu(k,1613) - lu(k,1568) * lu(k,1611) - lu(k,1614) = lu(k,1614) - lu(k,1569) * lu(k,1611) - lu(k,1615) = lu(k,1615) - lu(k,1570) * lu(k,1611) - lu(k,1616) = lu(k,1616) - lu(k,1571) * lu(k,1611) - lu(k,1617) = lu(k,1617) - lu(k,1572) * lu(k,1611) - lu(k,1618) = lu(k,1618) - lu(k,1573) * lu(k,1611) - lu(k,1619) = lu(k,1619) - lu(k,1574) * lu(k,1611) - lu(k,1620) = lu(k,1620) - lu(k,1575) * lu(k,1611) - lu(k,1621) = lu(k,1621) - lu(k,1576) * lu(k,1611) - lu(k,1622) = lu(k,1622) - lu(k,1577) * lu(k,1611) - lu(k,1623) = lu(k,1623) - lu(k,1578) * lu(k,1611) - lu(k,1655) = lu(k,1655) - lu(k,1567) * lu(k,1654) - lu(k,1656) = lu(k,1656) - lu(k,1568) * lu(k,1654) - lu(k,1657) = lu(k,1657) - lu(k,1569) * lu(k,1654) - lu(k,1658) = lu(k,1658) - lu(k,1570) * lu(k,1654) - lu(k,1659) = lu(k,1659) - lu(k,1571) * lu(k,1654) - lu(k,1660) = lu(k,1660) - lu(k,1572) * lu(k,1654) - lu(k,1661) = lu(k,1661) - lu(k,1573) * lu(k,1654) - lu(k,1662) = lu(k,1662) - lu(k,1574) * lu(k,1654) - lu(k,1663) = lu(k,1663) - lu(k,1575) * lu(k,1654) - lu(k,1664) = lu(k,1664) - lu(k,1576) * lu(k,1654) - lu(k,1665) = lu(k,1665) - lu(k,1577) * lu(k,1654) - lu(k,1666) = lu(k,1666) - lu(k,1578) * lu(k,1654) - lu(k,1698) = lu(k,1698) - lu(k,1567) * lu(k,1697) - lu(k,1699) = lu(k,1699) - lu(k,1568) * lu(k,1697) - lu(k,1700) = lu(k,1700) - lu(k,1569) * lu(k,1697) - lu(k,1701) = lu(k,1701) - lu(k,1570) * lu(k,1697) - lu(k,1702) = lu(k,1702) - lu(k,1571) * lu(k,1697) - lu(k,1703) = lu(k,1703) - lu(k,1572) * lu(k,1697) - lu(k,1704) = lu(k,1704) - lu(k,1573) * lu(k,1697) - lu(k,1705) = lu(k,1705) - lu(k,1574) * lu(k,1697) - lu(k,1706) = lu(k,1706) - lu(k,1575) * lu(k,1697) - lu(k,1707) = lu(k,1707) - lu(k,1576) * lu(k,1697) - lu(k,1708) = lu(k,1708) - lu(k,1577) * lu(k,1697) - lu(k,1709) = lu(k,1709) - lu(k,1578) * lu(k,1697) - lu(k,1738) = lu(k,1738) - lu(k,1567) * lu(k,1737) - lu(k,1739) = lu(k,1739) - lu(k,1568) * lu(k,1737) - lu(k,1740) = lu(k,1740) - lu(k,1569) * lu(k,1737) - lu(k,1741) = lu(k,1741) - lu(k,1570) * lu(k,1737) - lu(k,1742) = lu(k,1742) - lu(k,1571) * lu(k,1737) - lu(k,1743) = lu(k,1743) - lu(k,1572) * lu(k,1737) - lu(k,1744) = lu(k,1744) - lu(k,1573) * lu(k,1737) - lu(k,1745) = lu(k,1745) - lu(k,1574) * lu(k,1737) - lu(k,1746) = lu(k,1746) - lu(k,1575) * lu(k,1737) - lu(k,1747) = lu(k,1747) - lu(k,1576) * lu(k,1737) - lu(k,1748) = lu(k,1748) - lu(k,1577) * lu(k,1737) - lu(k,1749) = lu(k,1749) - lu(k,1578) * lu(k,1737) - lu(k,1774) = lu(k,1774) - lu(k,1567) * lu(k,1773) - lu(k,1775) = lu(k,1775) - lu(k,1568) * lu(k,1773) - lu(k,1776) = lu(k,1776) - lu(k,1569) * lu(k,1773) - lu(k,1777) = lu(k,1777) - lu(k,1570) * lu(k,1773) - lu(k,1778) = lu(k,1778) - lu(k,1571) * lu(k,1773) - lu(k,1779) = lu(k,1779) - lu(k,1572) * lu(k,1773) - lu(k,1780) = lu(k,1780) - lu(k,1573) * lu(k,1773) - lu(k,1781) = lu(k,1781) - lu(k,1574) * lu(k,1773) - lu(k,1782) = lu(k,1782) - lu(k,1575) * lu(k,1773) - lu(k,1783) = lu(k,1783) - lu(k,1576) * lu(k,1773) - lu(k,1784) = lu(k,1784) - lu(k,1577) * lu(k,1773) - lu(k,1785) = lu(k,1785) - lu(k,1578) * lu(k,1773) - lu(k,1822) = lu(k,1822) - lu(k,1567) * lu(k,1821) - lu(k,1823) = lu(k,1823) - lu(k,1568) * lu(k,1821) - lu(k,1824) = lu(k,1824) - lu(k,1569) * lu(k,1821) - lu(k,1825) = lu(k,1825) - lu(k,1570) * lu(k,1821) - lu(k,1826) = lu(k,1826) - lu(k,1571) * lu(k,1821) - lu(k,1827) = lu(k,1827) - lu(k,1572) * lu(k,1821) - lu(k,1828) = lu(k,1828) - lu(k,1573) * lu(k,1821) - lu(k,1829) = lu(k,1829) - lu(k,1574) * lu(k,1821) - lu(k,1830) = lu(k,1830) - lu(k,1575) * lu(k,1821) - lu(k,1831) = lu(k,1831) - lu(k,1576) * lu(k,1821) - lu(k,1832) = lu(k,1832) - lu(k,1577) * lu(k,1821) - lu(k,1833) = lu(k,1833) - lu(k,1578) * lu(k,1821) - lu(k,1855) = lu(k,1855) - lu(k,1567) * lu(k,1854) - lu(k,1856) = lu(k,1856) - lu(k,1568) * lu(k,1854) - lu(k,1857) = lu(k,1857) - lu(k,1569) * lu(k,1854) - lu(k,1858) = lu(k,1858) - lu(k,1570) * lu(k,1854) - lu(k,1859) = lu(k,1859) - lu(k,1571) * lu(k,1854) - lu(k,1860) = lu(k,1860) - lu(k,1572) * lu(k,1854) - lu(k,1861) = lu(k,1861) - lu(k,1573) * lu(k,1854) - lu(k,1862) = lu(k,1862) - lu(k,1574) * lu(k,1854) - lu(k,1863) = lu(k,1863) - lu(k,1575) * lu(k,1854) - lu(k,1864) = lu(k,1864) - lu(k,1576) * lu(k,1854) - lu(k,1865) = lu(k,1865) - lu(k,1577) * lu(k,1854) - lu(k,1866) = lu(k,1866) - lu(k,1578) * lu(k,1854) - lu(k,1891) = lu(k,1891) - lu(k,1567) * lu(k,1890) - lu(k,1892) = lu(k,1892) - lu(k,1568) * lu(k,1890) - lu(k,1893) = lu(k,1893) - lu(k,1569) * lu(k,1890) - lu(k,1894) = lu(k,1894) - lu(k,1570) * lu(k,1890) - lu(k,1895) = lu(k,1895) - lu(k,1571) * lu(k,1890) - lu(k,1896) = lu(k,1896) - lu(k,1572) * lu(k,1890) - lu(k,1897) = lu(k,1897) - lu(k,1573) * lu(k,1890) - lu(k,1898) = lu(k,1898) - lu(k,1574) * lu(k,1890) - lu(k,1899) = lu(k,1899) - lu(k,1575) * lu(k,1890) - lu(k,1900) = lu(k,1900) - lu(k,1576) * lu(k,1890) - lu(k,1901) = lu(k,1901) - lu(k,1577) * lu(k,1890) - lu(k,1902) = lu(k,1902) - lu(k,1578) * lu(k,1890) - lu(k,1932) = lu(k,1932) - lu(k,1567) * lu(k,1931) - lu(k,1933) = lu(k,1933) - lu(k,1568) * lu(k,1931) - lu(k,1934) = lu(k,1934) - lu(k,1569) * lu(k,1931) - lu(k,1935) = lu(k,1935) - lu(k,1570) * lu(k,1931) - lu(k,1936) = lu(k,1936) - lu(k,1571) * lu(k,1931) - lu(k,1937) = lu(k,1937) - lu(k,1572) * lu(k,1931) - lu(k,1938) = lu(k,1938) - lu(k,1573) * lu(k,1931) - lu(k,1939) = lu(k,1939) - lu(k,1574) * lu(k,1931) - lu(k,1940) = lu(k,1940) - lu(k,1575) * lu(k,1931) - lu(k,1941) = lu(k,1941) - lu(k,1576) * lu(k,1931) - lu(k,1942) = lu(k,1942) - lu(k,1577) * lu(k,1931) - lu(k,1943) = lu(k,1943) - lu(k,1578) * lu(k,1931) - lu(k,1974) = lu(k,1974) - lu(k,1567) * lu(k,1973) - lu(k,1975) = lu(k,1975) - lu(k,1568) * lu(k,1973) - lu(k,1976) = lu(k,1976) - lu(k,1569) * lu(k,1973) - lu(k,1977) = lu(k,1977) - lu(k,1570) * lu(k,1973) - lu(k,1978) = lu(k,1978) - lu(k,1571) * lu(k,1973) - lu(k,1979) = lu(k,1979) - lu(k,1572) * lu(k,1973) - lu(k,1980) = lu(k,1980) - lu(k,1573) * lu(k,1973) - lu(k,1981) = lu(k,1981) - lu(k,1574) * lu(k,1973) - lu(k,1982) = lu(k,1982) - lu(k,1575) * lu(k,1973) - lu(k,1983) = lu(k,1983) - lu(k,1576) * lu(k,1973) - lu(k,1984) = lu(k,1984) - lu(k,1577) * lu(k,1973) - lu(k,1985) = lu(k,1985) - lu(k,1578) * lu(k,1973) - lu(k,2019) = lu(k,2019) - lu(k,1567) * lu(k,2018) - lu(k,2020) = lu(k,2020) - lu(k,1568) * lu(k,2018) - lu(k,2021) = lu(k,2021) - lu(k,1569) * lu(k,2018) - lu(k,2022) = lu(k,2022) - lu(k,1570) * lu(k,2018) - lu(k,2023) = lu(k,2023) - lu(k,1571) * lu(k,2018) - lu(k,2024) = lu(k,2024) - lu(k,1572) * lu(k,2018) - lu(k,2025) = lu(k,2025) - lu(k,1573) * lu(k,2018) - lu(k,2026) = lu(k,2026) - lu(k,1574) * lu(k,2018) - lu(k,2027) = lu(k,2027) - lu(k,1575) * lu(k,2018) - lu(k,2028) = lu(k,2028) - lu(k,1576) * lu(k,2018) - lu(k,2029) = lu(k,2029) - lu(k,1577) * lu(k,2018) - lu(k,2030) = lu(k,2030) - lu(k,1578) * lu(k,2018) - lu(k,2079) = lu(k,2079) - lu(k,1567) * lu(k,2078) - lu(k,2080) = lu(k,2080) - lu(k,1568) * lu(k,2078) - lu(k,2081) = lu(k,2081) - lu(k,1569) * lu(k,2078) - lu(k,2082) = lu(k,2082) - lu(k,1570) * lu(k,2078) - lu(k,2083) = lu(k,2083) - lu(k,1571) * lu(k,2078) - lu(k,2084) = lu(k,2084) - lu(k,1572) * lu(k,2078) - lu(k,2085) = lu(k,2085) - lu(k,1573) * lu(k,2078) - lu(k,2086) = lu(k,2086) - lu(k,1574) * lu(k,2078) - lu(k,2087) = lu(k,2087) - lu(k,1575) * lu(k,2078) - lu(k,2088) = lu(k,2088) - lu(k,1576) * lu(k,2078) - lu(k,2089) = lu(k,2089) - lu(k,1577) * lu(k,2078) - lu(k,2090) = lu(k,2090) - lu(k,1578) * lu(k,2078) - lu(k,1612) = 1._r8 / lu(k,1612) - lu(k,1613) = lu(k,1613) * lu(k,1612) - lu(k,1614) = lu(k,1614) * lu(k,1612) - lu(k,1615) = lu(k,1615) * lu(k,1612) - lu(k,1616) = lu(k,1616) * lu(k,1612) - lu(k,1617) = lu(k,1617) * lu(k,1612) - lu(k,1618) = lu(k,1618) * lu(k,1612) - lu(k,1619) = lu(k,1619) * lu(k,1612) - lu(k,1620) = lu(k,1620) * lu(k,1612) - lu(k,1621) = lu(k,1621) * lu(k,1612) - lu(k,1622) = lu(k,1622) * lu(k,1612) - lu(k,1623) = lu(k,1623) * lu(k,1612) - lu(k,1656) = lu(k,1656) - lu(k,1613) * lu(k,1655) - lu(k,1657) = lu(k,1657) - lu(k,1614) * lu(k,1655) - lu(k,1658) = lu(k,1658) - lu(k,1615) * lu(k,1655) - lu(k,1659) = lu(k,1659) - lu(k,1616) * lu(k,1655) - lu(k,1660) = lu(k,1660) - lu(k,1617) * lu(k,1655) - lu(k,1661) = lu(k,1661) - lu(k,1618) * lu(k,1655) - lu(k,1662) = lu(k,1662) - lu(k,1619) * lu(k,1655) - lu(k,1663) = lu(k,1663) - lu(k,1620) * lu(k,1655) - lu(k,1664) = lu(k,1664) - lu(k,1621) * lu(k,1655) - lu(k,1665) = lu(k,1665) - lu(k,1622) * lu(k,1655) - lu(k,1666) = lu(k,1666) - lu(k,1623) * lu(k,1655) - lu(k,1699) = lu(k,1699) - lu(k,1613) * lu(k,1698) - lu(k,1700) = lu(k,1700) - lu(k,1614) * lu(k,1698) - lu(k,1701) = lu(k,1701) - lu(k,1615) * lu(k,1698) - lu(k,1702) = lu(k,1702) - lu(k,1616) * lu(k,1698) - lu(k,1703) = lu(k,1703) - lu(k,1617) * lu(k,1698) - lu(k,1704) = lu(k,1704) - lu(k,1618) * lu(k,1698) - lu(k,1705) = lu(k,1705) - lu(k,1619) * lu(k,1698) - lu(k,1706) = lu(k,1706) - lu(k,1620) * lu(k,1698) - lu(k,1707) = lu(k,1707) - lu(k,1621) * lu(k,1698) - lu(k,1708) = lu(k,1708) - lu(k,1622) * lu(k,1698) - lu(k,1709) = lu(k,1709) - lu(k,1623) * lu(k,1698) - lu(k,1739) = lu(k,1739) - lu(k,1613) * lu(k,1738) - lu(k,1740) = lu(k,1740) - lu(k,1614) * lu(k,1738) - lu(k,1741) = lu(k,1741) - lu(k,1615) * lu(k,1738) - lu(k,1742) = lu(k,1742) - lu(k,1616) * lu(k,1738) - lu(k,1743) = lu(k,1743) - lu(k,1617) * lu(k,1738) - lu(k,1744) = lu(k,1744) - lu(k,1618) * lu(k,1738) - lu(k,1745) = lu(k,1745) - lu(k,1619) * lu(k,1738) - lu(k,1746) = lu(k,1746) - lu(k,1620) * lu(k,1738) - lu(k,1747) = lu(k,1747) - lu(k,1621) * lu(k,1738) - lu(k,1748) = lu(k,1748) - lu(k,1622) * lu(k,1738) - lu(k,1749) = lu(k,1749) - lu(k,1623) * lu(k,1738) - lu(k,1775) = lu(k,1775) - lu(k,1613) * lu(k,1774) - lu(k,1776) = lu(k,1776) - lu(k,1614) * lu(k,1774) - lu(k,1777) = lu(k,1777) - lu(k,1615) * lu(k,1774) - lu(k,1778) = lu(k,1778) - lu(k,1616) * lu(k,1774) - lu(k,1779) = lu(k,1779) - lu(k,1617) * lu(k,1774) - lu(k,1780) = lu(k,1780) - lu(k,1618) * lu(k,1774) - lu(k,1781) = lu(k,1781) - lu(k,1619) * lu(k,1774) - lu(k,1782) = lu(k,1782) - lu(k,1620) * lu(k,1774) - lu(k,1783) = lu(k,1783) - lu(k,1621) * lu(k,1774) - lu(k,1784) = lu(k,1784) - lu(k,1622) * lu(k,1774) - lu(k,1785) = lu(k,1785) - lu(k,1623) * lu(k,1774) - lu(k,1823) = lu(k,1823) - lu(k,1613) * lu(k,1822) - lu(k,1824) = lu(k,1824) - lu(k,1614) * lu(k,1822) - lu(k,1825) = lu(k,1825) - lu(k,1615) * lu(k,1822) - lu(k,1826) = lu(k,1826) - lu(k,1616) * lu(k,1822) - lu(k,1827) = lu(k,1827) - lu(k,1617) * lu(k,1822) - lu(k,1828) = lu(k,1828) - lu(k,1618) * lu(k,1822) - lu(k,1829) = lu(k,1829) - lu(k,1619) * lu(k,1822) - lu(k,1830) = lu(k,1830) - lu(k,1620) * lu(k,1822) - lu(k,1831) = lu(k,1831) - lu(k,1621) * lu(k,1822) - lu(k,1832) = lu(k,1832) - lu(k,1622) * lu(k,1822) - lu(k,1833) = lu(k,1833) - lu(k,1623) * lu(k,1822) - lu(k,1856) = lu(k,1856) - lu(k,1613) * lu(k,1855) - lu(k,1857) = lu(k,1857) - lu(k,1614) * lu(k,1855) - lu(k,1858) = lu(k,1858) - lu(k,1615) * lu(k,1855) - lu(k,1859) = lu(k,1859) - lu(k,1616) * lu(k,1855) - lu(k,1860) = lu(k,1860) - lu(k,1617) * lu(k,1855) - lu(k,1861) = lu(k,1861) - lu(k,1618) * lu(k,1855) - lu(k,1862) = lu(k,1862) - lu(k,1619) * lu(k,1855) - lu(k,1863) = lu(k,1863) - lu(k,1620) * lu(k,1855) - lu(k,1864) = lu(k,1864) - lu(k,1621) * lu(k,1855) - lu(k,1865) = lu(k,1865) - lu(k,1622) * lu(k,1855) - lu(k,1866) = lu(k,1866) - lu(k,1623) * lu(k,1855) - lu(k,1892) = lu(k,1892) - lu(k,1613) * lu(k,1891) - lu(k,1893) = lu(k,1893) - lu(k,1614) * lu(k,1891) - lu(k,1894) = lu(k,1894) - lu(k,1615) * lu(k,1891) - lu(k,1895) = lu(k,1895) - lu(k,1616) * lu(k,1891) - lu(k,1896) = lu(k,1896) - lu(k,1617) * lu(k,1891) - lu(k,1897) = lu(k,1897) - lu(k,1618) * lu(k,1891) - lu(k,1898) = lu(k,1898) - lu(k,1619) * lu(k,1891) - lu(k,1899) = lu(k,1899) - lu(k,1620) * lu(k,1891) - lu(k,1900) = lu(k,1900) - lu(k,1621) * lu(k,1891) - lu(k,1901) = lu(k,1901) - lu(k,1622) * lu(k,1891) - lu(k,1902) = lu(k,1902) - lu(k,1623) * lu(k,1891) - lu(k,1933) = lu(k,1933) - lu(k,1613) * lu(k,1932) - lu(k,1934) = lu(k,1934) - lu(k,1614) * lu(k,1932) - lu(k,1935) = lu(k,1935) - lu(k,1615) * lu(k,1932) - lu(k,1936) = lu(k,1936) - lu(k,1616) * lu(k,1932) - lu(k,1937) = lu(k,1937) - lu(k,1617) * lu(k,1932) - lu(k,1938) = lu(k,1938) - lu(k,1618) * lu(k,1932) - lu(k,1939) = lu(k,1939) - lu(k,1619) * lu(k,1932) - lu(k,1940) = lu(k,1940) - lu(k,1620) * lu(k,1932) - lu(k,1941) = lu(k,1941) - lu(k,1621) * lu(k,1932) - lu(k,1942) = lu(k,1942) - lu(k,1622) * lu(k,1932) - lu(k,1943) = lu(k,1943) - lu(k,1623) * lu(k,1932) - lu(k,1975) = lu(k,1975) - lu(k,1613) * lu(k,1974) - lu(k,1976) = lu(k,1976) - lu(k,1614) * lu(k,1974) - lu(k,1977) = lu(k,1977) - lu(k,1615) * lu(k,1974) - lu(k,1978) = lu(k,1978) - lu(k,1616) * lu(k,1974) - lu(k,1979) = lu(k,1979) - lu(k,1617) * lu(k,1974) - lu(k,1980) = lu(k,1980) - lu(k,1618) * lu(k,1974) - lu(k,1981) = lu(k,1981) - lu(k,1619) * lu(k,1974) - lu(k,1982) = lu(k,1982) - lu(k,1620) * lu(k,1974) - lu(k,1983) = lu(k,1983) - lu(k,1621) * lu(k,1974) - lu(k,1984) = lu(k,1984) - lu(k,1622) * lu(k,1974) - lu(k,1985) = lu(k,1985) - lu(k,1623) * lu(k,1974) - lu(k,2020) = lu(k,2020) - lu(k,1613) * lu(k,2019) - lu(k,2021) = lu(k,2021) - lu(k,1614) * lu(k,2019) - lu(k,2022) = lu(k,2022) - lu(k,1615) * lu(k,2019) - lu(k,2023) = lu(k,2023) - lu(k,1616) * lu(k,2019) - lu(k,2024) = lu(k,2024) - lu(k,1617) * lu(k,2019) - lu(k,2025) = lu(k,2025) - lu(k,1618) * lu(k,2019) - lu(k,2026) = lu(k,2026) - lu(k,1619) * lu(k,2019) - lu(k,2027) = lu(k,2027) - lu(k,1620) * lu(k,2019) - lu(k,2028) = lu(k,2028) - lu(k,1621) * lu(k,2019) - lu(k,2029) = lu(k,2029) - lu(k,1622) * lu(k,2019) - lu(k,2030) = lu(k,2030) - lu(k,1623) * lu(k,2019) - lu(k,2080) = lu(k,2080) - lu(k,1613) * lu(k,2079) - lu(k,2081) = lu(k,2081) - lu(k,1614) * lu(k,2079) - lu(k,2082) = lu(k,2082) - lu(k,1615) * lu(k,2079) - lu(k,2083) = lu(k,2083) - lu(k,1616) * lu(k,2079) - lu(k,2084) = lu(k,2084) - lu(k,1617) * lu(k,2079) - lu(k,2085) = lu(k,2085) - lu(k,1618) * lu(k,2079) - lu(k,2086) = lu(k,2086) - lu(k,1619) * lu(k,2079) - lu(k,2087) = lu(k,2087) - lu(k,1620) * lu(k,2079) - lu(k,2088) = lu(k,2088) - lu(k,1621) * lu(k,2079) - lu(k,2089) = lu(k,2089) - lu(k,1622) * lu(k,2079) - lu(k,2090) = lu(k,2090) - lu(k,1623) * lu(k,2079) - lu(k,1656) = 1._r8 / lu(k,1656) - lu(k,1657) = lu(k,1657) * lu(k,1656) - lu(k,1658) = lu(k,1658) * lu(k,1656) - lu(k,1659) = lu(k,1659) * lu(k,1656) - lu(k,1660) = lu(k,1660) * lu(k,1656) - lu(k,1661) = lu(k,1661) * lu(k,1656) - lu(k,1662) = lu(k,1662) * lu(k,1656) - lu(k,1663) = lu(k,1663) * lu(k,1656) - lu(k,1664) = lu(k,1664) * lu(k,1656) - lu(k,1665) = lu(k,1665) * lu(k,1656) - lu(k,1666) = lu(k,1666) * lu(k,1656) - lu(k,1700) = lu(k,1700) - lu(k,1657) * lu(k,1699) - lu(k,1701) = lu(k,1701) - lu(k,1658) * lu(k,1699) - lu(k,1702) = lu(k,1702) - lu(k,1659) * lu(k,1699) - lu(k,1703) = lu(k,1703) - lu(k,1660) * lu(k,1699) - lu(k,1704) = lu(k,1704) - lu(k,1661) * lu(k,1699) - lu(k,1705) = lu(k,1705) - lu(k,1662) * lu(k,1699) - lu(k,1706) = lu(k,1706) - lu(k,1663) * lu(k,1699) - lu(k,1707) = lu(k,1707) - lu(k,1664) * lu(k,1699) - lu(k,1708) = lu(k,1708) - lu(k,1665) * lu(k,1699) - lu(k,1709) = lu(k,1709) - lu(k,1666) * lu(k,1699) - lu(k,1740) = lu(k,1740) - lu(k,1657) * lu(k,1739) - lu(k,1741) = lu(k,1741) - lu(k,1658) * lu(k,1739) - lu(k,1742) = lu(k,1742) - lu(k,1659) * lu(k,1739) - lu(k,1743) = lu(k,1743) - lu(k,1660) * lu(k,1739) - lu(k,1744) = lu(k,1744) - lu(k,1661) * lu(k,1739) - lu(k,1745) = lu(k,1745) - lu(k,1662) * lu(k,1739) - lu(k,1746) = lu(k,1746) - lu(k,1663) * lu(k,1739) - lu(k,1747) = lu(k,1747) - lu(k,1664) * lu(k,1739) - lu(k,1748) = lu(k,1748) - lu(k,1665) * lu(k,1739) - lu(k,1749) = lu(k,1749) - lu(k,1666) * lu(k,1739) - lu(k,1776) = lu(k,1776) - lu(k,1657) * lu(k,1775) - lu(k,1777) = lu(k,1777) - lu(k,1658) * lu(k,1775) - lu(k,1778) = lu(k,1778) - lu(k,1659) * lu(k,1775) - lu(k,1779) = lu(k,1779) - lu(k,1660) * lu(k,1775) - lu(k,1780) = lu(k,1780) - lu(k,1661) * lu(k,1775) - lu(k,1781) = lu(k,1781) - lu(k,1662) * lu(k,1775) - lu(k,1782) = lu(k,1782) - lu(k,1663) * lu(k,1775) - lu(k,1783) = lu(k,1783) - lu(k,1664) * lu(k,1775) - lu(k,1784) = lu(k,1784) - lu(k,1665) * lu(k,1775) - lu(k,1785) = lu(k,1785) - lu(k,1666) * lu(k,1775) - lu(k,1824) = lu(k,1824) - lu(k,1657) * lu(k,1823) - lu(k,1825) = lu(k,1825) - lu(k,1658) * lu(k,1823) - lu(k,1826) = lu(k,1826) - lu(k,1659) * lu(k,1823) - lu(k,1827) = lu(k,1827) - lu(k,1660) * lu(k,1823) - lu(k,1828) = lu(k,1828) - lu(k,1661) * lu(k,1823) - lu(k,1829) = lu(k,1829) - lu(k,1662) * lu(k,1823) - lu(k,1830) = lu(k,1830) - lu(k,1663) * lu(k,1823) - lu(k,1831) = lu(k,1831) - lu(k,1664) * lu(k,1823) - lu(k,1832) = lu(k,1832) - lu(k,1665) * lu(k,1823) - lu(k,1833) = lu(k,1833) - lu(k,1666) * lu(k,1823) - lu(k,1857) = lu(k,1857) - lu(k,1657) * lu(k,1856) - lu(k,1858) = lu(k,1858) - lu(k,1658) * lu(k,1856) - lu(k,1859) = lu(k,1859) - lu(k,1659) * lu(k,1856) - lu(k,1860) = lu(k,1860) - lu(k,1660) * lu(k,1856) - lu(k,1861) = lu(k,1861) - lu(k,1661) * lu(k,1856) - lu(k,1862) = lu(k,1862) - lu(k,1662) * lu(k,1856) - lu(k,1863) = lu(k,1863) - lu(k,1663) * lu(k,1856) - lu(k,1864) = lu(k,1864) - lu(k,1664) * lu(k,1856) - lu(k,1865) = lu(k,1865) - lu(k,1665) * lu(k,1856) - lu(k,1866) = lu(k,1866) - lu(k,1666) * lu(k,1856) - lu(k,1893) = lu(k,1893) - lu(k,1657) * lu(k,1892) - lu(k,1894) = lu(k,1894) - lu(k,1658) * lu(k,1892) - lu(k,1895) = lu(k,1895) - lu(k,1659) * lu(k,1892) - lu(k,1896) = lu(k,1896) - lu(k,1660) * lu(k,1892) - lu(k,1897) = lu(k,1897) - lu(k,1661) * lu(k,1892) - lu(k,1898) = lu(k,1898) - lu(k,1662) * lu(k,1892) - lu(k,1899) = lu(k,1899) - lu(k,1663) * lu(k,1892) - lu(k,1900) = lu(k,1900) - lu(k,1664) * lu(k,1892) - lu(k,1901) = lu(k,1901) - lu(k,1665) * lu(k,1892) - lu(k,1902) = lu(k,1902) - lu(k,1666) * lu(k,1892) - lu(k,1934) = lu(k,1934) - lu(k,1657) * lu(k,1933) - lu(k,1935) = lu(k,1935) - lu(k,1658) * lu(k,1933) - lu(k,1936) = lu(k,1936) - lu(k,1659) * lu(k,1933) - lu(k,1937) = lu(k,1937) - lu(k,1660) * lu(k,1933) - lu(k,1938) = lu(k,1938) - lu(k,1661) * lu(k,1933) - lu(k,1939) = lu(k,1939) - lu(k,1662) * lu(k,1933) - lu(k,1940) = lu(k,1940) - lu(k,1663) * lu(k,1933) - lu(k,1941) = lu(k,1941) - lu(k,1664) * lu(k,1933) - lu(k,1942) = lu(k,1942) - lu(k,1665) * lu(k,1933) - lu(k,1943) = lu(k,1943) - lu(k,1666) * lu(k,1933) - lu(k,1976) = lu(k,1976) - lu(k,1657) * lu(k,1975) - lu(k,1977) = lu(k,1977) - lu(k,1658) * lu(k,1975) - lu(k,1978) = lu(k,1978) - lu(k,1659) * lu(k,1975) - lu(k,1979) = lu(k,1979) - lu(k,1660) * lu(k,1975) - lu(k,1980) = lu(k,1980) - lu(k,1661) * lu(k,1975) - lu(k,1981) = lu(k,1981) - lu(k,1662) * lu(k,1975) - lu(k,1982) = lu(k,1982) - lu(k,1663) * lu(k,1975) - lu(k,1983) = lu(k,1983) - lu(k,1664) * lu(k,1975) - lu(k,1984) = lu(k,1984) - lu(k,1665) * lu(k,1975) - lu(k,1985) = lu(k,1985) - lu(k,1666) * lu(k,1975) - lu(k,2021) = lu(k,2021) - lu(k,1657) * lu(k,2020) - lu(k,2022) = lu(k,2022) - lu(k,1658) * lu(k,2020) - lu(k,2023) = lu(k,2023) - lu(k,1659) * lu(k,2020) - lu(k,2024) = lu(k,2024) - lu(k,1660) * lu(k,2020) - lu(k,2025) = lu(k,2025) - lu(k,1661) * lu(k,2020) - lu(k,2026) = lu(k,2026) - lu(k,1662) * lu(k,2020) - lu(k,2027) = lu(k,2027) - lu(k,1663) * lu(k,2020) - lu(k,2028) = lu(k,2028) - lu(k,1664) * lu(k,2020) - lu(k,2029) = lu(k,2029) - lu(k,1665) * lu(k,2020) - lu(k,2030) = lu(k,2030) - lu(k,1666) * lu(k,2020) - lu(k,2081) = lu(k,2081) - lu(k,1657) * lu(k,2080) - lu(k,2082) = lu(k,2082) - lu(k,1658) * lu(k,2080) - lu(k,2083) = lu(k,2083) - lu(k,1659) * lu(k,2080) - lu(k,2084) = lu(k,2084) - lu(k,1660) * lu(k,2080) - lu(k,2085) = lu(k,2085) - lu(k,1661) * lu(k,2080) - lu(k,2086) = lu(k,2086) - lu(k,1662) * lu(k,2080) - lu(k,2087) = lu(k,2087) - lu(k,1663) * lu(k,2080) - lu(k,2088) = lu(k,2088) - lu(k,1664) * lu(k,2080) - lu(k,2089) = lu(k,2089) - lu(k,1665) * lu(k,2080) - lu(k,2090) = lu(k,2090) - lu(k,1666) * lu(k,2080) - lu(k,1700) = 1._r8 / lu(k,1700) - lu(k,1701) = lu(k,1701) * lu(k,1700) - lu(k,1702) = lu(k,1702) * lu(k,1700) - lu(k,1703) = lu(k,1703) * lu(k,1700) - lu(k,1704) = lu(k,1704) * lu(k,1700) - lu(k,1705) = lu(k,1705) * lu(k,1700) - lu(k,1706) = lu(k,1706) * lu(k,1700) - lu(k,1707) = lu(k,1707) * lu(k,1700) - lu(k,1708) = lu(k,1708) * lu(k,1700) - lu(k,1709) = lu(k,1709) * lu(k,1700) - lu(k,1741) = lu(k,1741) - lu(k,1701) * lu(k,1740) - lu(k,1742) = lu(k,1742) - lu(k,1702) * lu(k,1740) - lu(k,1743) = lu(k,1743) - lu(k,1703) * lu(k,1740) - lu(k,1744) = lu(k,1744) - lu(k,1704) * lu(k,1740) - lu(k,1745) = lu(k,1745) - lu(k,1705) * lu(k,1740) - lu(k,1746) = lu(k,1746) - lu(k,1706) * lu(k,1740) - lu(k,1747) = lu(k,1747) - lu(k,1707) * lu(k,1740) - lu(k,1748) = lu(k,1748) - lu(k,1708) * lu(k,1740) - lu(k,1749) = lu(k,1749) - lu(k,1709) * lu(k,1740) - lu(k,1777) = lu(k,1777) - lu(k,1701) * lu(k,1776) - lu(k,1778) = lu(k,1778) - lu(k,1702) * lu(k,1776) - lu(k,1779) = lu(k,1779) - lu(k,1703) * lu(k,1776) - lu(k,1780) = lu(k,1780) - lu(k,1704) * lu(k,1776) - lu(k,1781) = lu(k,1781) - lu(k,1705) * lu(k,1776) - lu(k,1782) = lu(k,1782) - lu(k,1706) * lu(k,1776) - lu(k,1783) = lu(k,1783) - lu(k,1707) * lu(k,1776) - lu(k,1784) = lu(k,1784) - lu(k,1708) * lu(k,1776) - lu(k,1785) = lu(k,1785) - lu(k,1709) * lu(k,1776) - lu(k,1825) = lu(k,1825) - lu(k,1701) * lu(k,1824) - lu(k,1826) = lu(k,1826) - lu(k,1702) * lu(k,1824) - lu(k,1827) = lu(k,1827) - lu(k,1703) * lu(k,1824) - lu(k,1828) = lu(k,1828) - lu(k,1704) * lu(k,1824) - lu(k,1829) = lu(k,1829) - lu(k,1705) * lu(k,1824) - lu(k,1830) = lu(k,1830) - lu(k,1706) * lu(k,1824) - lu(k,1831) = lu(k,1831) - lu(k,1707) * lu(k,1824) - lu(k,1832) = lu(k,1832) - lu(k,1708) * lu(k,1824) - lu(k,1833) = lu(k,1833) - lu(k,1709) * lu(k,1824) - lu(k,1858) = lu(k,1858) - lu(k,1701) * lu(k,1857) - lu(k,1859) = lu(k,1859) - lu(k,1702) * lu(k,1857) - lu(k,1860) = lu(k,1860) - lu(k,1703) * lu(k,1857) - lu(k,1861) = lu(k,1861) - lu(k,1704) * lu(k,1857) - lu(k,1862) = lu(k,1862) - lu(k,1705) * lu(k,1857) - lu(k,1863) = lu(k,1863) - lu(k,1706) * lu(k,1857) - lu(k,1864) = lu(k,1864) - lu(k,1707) * lu(k,1857) - lu(k,1865) = lu(k,1865) - lu(k,1708) * lu(k,1857) - lu(k,1866) = lu(k,1866) - lu(k,1709) * lu(k,1857) - lu(k,1894) = lu(k,1894) - lu(k,1701) * lu(k,1893) - lu(k,1895) = lu(k,1895) - lu(k,1702) * lu(k,1893) - lu(k,1896) = lu(k,1896) - lu(k,1703) * lu(k,1893) - lu(k,1897) = lu(k,1897) - lu(k,1704) * lu(k,1893) - lu(k,1898) = lu(k,1898) - lu(k,1705) * lu(k,1893) - lu(k,1899) = lu(k,1899) - lu(k,1706) * lu(k,1893) - lu(k,1900) = lu(k,1900) - lu(k,1707) * lu(k,1893) - lu(k,1901) = lu(k,1901) - lu(k,1708) * lu(k,1893) - lu(k,1902) = lu(k,1902) - lu(k,1709) * lu(k,1893) - lu(k,1935) = lu(k,1935) - lu(k,1701) * lu(k,1934) - lu(k,1936) = lu(k,1936) - lu(k,1702) * lu(k,1934) - lu(k,1937) = lu(k,1937) - lu(k,1703) * lu(k,1934) - lu(k,1938) = lu(k,1938) - lu(k,1704) * lu(k,1934) - lu(k,1939) = lu(k,1939) - lu(k,1705) * lu(k,1934) - lu(k,1940) = lu(k,1940) - lu(k,1706) * lu(k,1934) - lu(k,1941) = lu(k,1941) - lu(k,1707) * lu(k,1934) - lu(k,1942) = lu(k,1942) - lu(k,1708) * lu(k,1934) - lu(k,1943) = lu(k,1943) - lu(k,1709) * lu(k,1934) - lu(k,1977) = lu(k,1977) - lu(k,1701) * lu(k,1976) - lu(k,1978) = lu(k,1978) - lu(k,1702) * lu(k,1976) - lu(k,1979) = lu(k,1979) - lu(k,1703) * lu(k,1976) - lu(k,1980) = lu(k,1980) - lu(k,1704) * lu(k,1976) - lu(k,1981) = lu(k,1981) - lu(k,1705) * lu(k,1976) - lu(k,1982) = lu(k,1982) - lu(k,1706) * lu(k,1976) - lu(k,1983) = lu(k,1983) - lu(k,1707) * lu(k,1976) - lu(k,1984) = lu(k,1984) - lu(k,1708) * lu(k,1976) - lu(k,1985) = lu(k,1985) - lu(k,1709) * lu(k,1976) - lu(k,2022) = lu(k,2022) - lu(k,1701) * lu(k,2021) - lu(k,2023) = lu(k,2023) - lu(k,1702) * lu(k,2021) - lu(k,2024) = lu(k,2024) - lu(k,1703) * lu(k,2021) - lu(k,2025) = lu(k,2025) - lu(k,1704) * lu(k,2021) - lu(k,2026) = lu(k,2026) - lu(k,1705) * lu(k,2021) - lu(k,2027) = lu(k,2027) - lu(k,1706) * lu(k,2021) - lu(k,2028) = lu(k,2028) - lu(k,1707) * lu(k,2021) - lu(k,2029) = lu(k,2029) - lu(k,1708) * lu(k,2021) - lu(k,2030) = lu(k,2030) - lu(k,1709) * lu(k,2021) - lu(k,2082) = lu(k,2082) - lu(k,1701) * lu(k,2081) - lu(k,2083) = lu(k,2083) - lu(k,1702) * lu(k,2081) - lu(k,2084) = lu(k,2084) - lu(k,1703) * lu(k,2081) - lu(k,2085) = lu(k,2085) - lu(k,1704) * lu(k,2081) - lu(k,2086) = lu(k,2086) - lu(k,1705) * lu(k,2081) - lu(k,2087) = lu(k,2087) - lu(k,1706) * lu(k,2081) - lu(k,2088) = lu(k,2088) - lu(k,1707) * lu(k,2081) - lu(k,2089) = lu(k,2089) - lu(k,1708) * lu(k,2081) - lu(k,2090) = lu(k,2090) - lu(k,1709) * lu(k,2081) - lu(k,1741) = 1._r8 / lu(k,1741) - lu(k,1742) = lu(k,1742) * lu(k,1741) - lu(k,1743) = lu(k,1743) * lu(k,1741) - lu(k,1744) = lu(k,1744) * lu(k,1741) - lu(k,1745) = lu(k,1745) * lu(k,1741) - lu(k,1746) = lu(k,1746) * lu(k,1741) - lu(k,1747) = lu(k,1747) * lu(k,1741) - lu(k,1748) = lu(k,1748) * lu(k,1741) - lu(k,1749) = lu(k,1749) * lu(k,1741) - lu(k,1778) = lu(k,1778) - lu(k,1742) * lu(k,1777) - lu(k,1779) = lu(k,1779) - lu(k,1743) * lu(k,1777) - lu(k,1780) = lu(k,1780) - lu(k,1744) * lu(k,1777) - lu(k,1781) = lu(k,1781) - lu(k,1745) * lu(k,1777) - lu(k,1782) = lu(k,1782) - lu(k,1746) * lu(k,1777) - lu(k,1783) = lu(k,1783) - lu(k,1747) * lu(k,1777) - lu(k,1784) = lu(k,1784) - lu(k,1748) * lu(k,1777) - lu(k,1785) = lu(k,1785) - lu(k,1749) * lu(k,1777) - lu(k,1826) = lu(k,1826) - lu(k,1742) * lu(k,1825) - lu(k,1827) = lu(k,1827) - lu(k,1743) * lu(k,1825) - lu(k,1828) = lu(k,1828) - lu(k,1744) * lu(k,1825) - lu(k,1829) = lu(k,1829) - lu(k,1745) * lu(k,1825) - lu(k,1830) = lu(k,1830) - lu(k,1746) * lu(k,1825) - lu(k,1831) = lu(k,1831) - lu(k,1747) * lu(k,1825) - lu(k,1832) = lu(k,1832) - lu(k,1748) * lu(k,1825) - lu(k,1833) = lu(k,1833) - lu(k,1749) * lu(k,1825) - lu(k,1859) = lu(k,1859) - lu(k,1742) * lu(k,1858) - lu(k,1860) = lu(k,1860) - lu(k,1743) * lu(k,1858) - lu(k,1861) = lu(k,1861) - lu(k,1744) * lu(k,1858) - lu(k,1862) = lu(k,1862) - lu(k,1745) * lu(k,1858) - lu(k,1863) = lu(k,1863) - lu(k,1746) * lu(k,1858) - lu(k,1864) = lu(k,1864) - lu(k,1747) * lu(k,1858) - lu(k,1865) = lu(k,1865) - lu(k,1748) * lu(k,1858) - lu(k,1866) = lu(k,1866) - lu(k,1749) * lu(k,1858) - lu(k,1895) = lu(k,1895) - lu(k,1742) * lu(k,1894) - lu(k,1896) = lu(k,1896) - lu(k,1743) * lu(k,1894) - lu(k,1897) = lu(k,1897) - lu(k,1744) * lu(k,1894) - lu(k,1898) = lu(k,1898) - lu(k,1745) * lu(k,1894) - lu(k,1899) = lu(k,1899) - lu(k,1746) * lu(k,1894) - lu(k,1900) = lu(k,1900) - lu(k,1747) * lu(k,1894) - lu(k,1901) = lu(k,1901) - lu(k,1748) * lu(k,1894) - lu(k,1902) = lu(k,1902) - lu(k,1749) * lu(k,1894) - lu(k,1936) = lu(k,1936) - lu(k,1742) * lu(k,1935) - lu(k,1937) = lu(k,1937) - lu(k,1743) * lu(k,1935) - lu(k,1938) = lu(k,1938) - lu(k,1744) * lu(k,1935) - lu(k,1939) = lu(k,1939) - lu(k,1745) * lu(k,1935) - lu(k,1940) = lu(k,1940) - lu(k,1746) * lu(k,1935) - lu(k,1941) = lu(k,1941) - lu(k,1747) * lu(k,1935) - lu(k,1942) = lu(k,1942) - lu(k,1748) * lu(k,1935) - lu(k,1943) = lu(k,1943) - lu(k,1749) * lu(k,1935) - lu(k,1978) = lu(k,1978) - lu(k,1742) * lu(k,1977) - lu(k,1979) = lu(k,1979) - lu(k,1743) * lu(k,1977) - lu(k,1980) = lu(k,1980) - lu(k,1744) * lu(k,1977) - lu(k,1981) = lu(k,1981) - lu(k,1745) * lu(k,1977) - lu(k,1982) = lu(k,1982) - lu(k,1746) * lu(k,1977) - lu(k,1983) = lu(k,1983) - lu(k,1747) * lu(k,1977) - lu(k,1984) = lu(k,1984) - lu(k,1748) * lu(k,1977) - lu(k,1985) = lu(k,1985) - lu(k,1749) * lu(k,1977) - lu(k,2023) = lu(k,2023) - lu(k,1742) * lu(k,2022) - lu(k,2024) = lu(k,2024) - lu(k,1743) * lu(k,2022) - lu(k,2025) = lu(k,2025) - lu(k,1744) * lu(k,2022) - lu(k,2026) = lu(k,2026) - lu(k,1745) * lu(k,2022) - lu(k,2027) = lu(k,2027) - lu(k,1746) * lu(k,2022) - lu(k,2028) = lu(k,2028) - lu(k,1747) * lu(k,2022) - lu(k,2029) = lu(k,2029) - lu(k,1748) * lu(k,2022) - lu(k,2030) = lu(k,2030) - lu(k,1749) * lu(k,2022) - lu(k,2083) = lu(k,2083) - lu(k,1742) * lu(k,2082) - lu(k,2084) = lu(k,2084) - lu(k,1743) * lu(k,2082) - lu(k,2085) = lu(k,2085) - lu(k,1744) * lu(k,2082) - lu(k,2086) = lu(k,2086) - lu(k,1745) * lu(k,2082) - lu(k,2087) = lu(k,2087) - lu(k,1746) * lu(k,2082) - lu(k,2088) = lu(k,2088) - lu(k,1747) * lu(k,2082) - lu(k,2089) = lu(k,2089) - lu(k,1748) * lu(k,2082) - lu(k,2090) = lu(k,2090) - lu(k,1749) * lu(k,2082) + lu(k,1560) = 1._r8 / lu(k,1560) + lu(k,1561) = lu(k,1561) * lu(k,1560) + lu(k,1562) = lu(k,1562) * lu(k,1560) + lu(k,1563) = lu(k,1563) * lu(k,1560) + lu(k,1564) = lu(k,1564) * lu(k,1560) + lu(k,1565) = lu(k,1565) * lu(k,1560) + lu(k,1566) = lu(k,1566) * lu(k,1560) + lu(k,1567) = lu(k,1567) * lu(k,1560) + lu(k,1568) = lu(k,1568) * lu(k,1560) + lu(k,1569) = lu(k,1569) * lu(k,1560) + lu(k,1570) = lu(k,1570) * lu(k,1560) + lu(k,1571) = lu(k,1571) * lu(k,1560) + lu(k,1572) = lu(k,1572) * lu(k,1560) + lu(k,1606) = lu(k,1606) - lu(k,1561) * lu(k,1605) + lu(k,1607) = lu(k,1607) - lu(k,1562) * lu(k,1605) + lu(k,1608) = lu(k,1608) - lu(k,1563) * lu(k,1605) + lu(k,1609) = lu(k,1609) - lu(k,1564) * lu(k,1605) + lu(k,1610) = lu(k,1610) - lu(k,1565) * lu(k,1605) + lu(k,1611) = lu(k,1611) - lu(k,1566) * lu(k,1605) + lu(k,1612) = lu(k,1612) - lu(k,1567) * lu(k,1605) + lu(k,1613) = lu(k,1613) - lu(k,1568) * lu(k,1605) + lu(k,1614) = lu(k,1614) - lu(k,1569) * lu(k,1605) + lu(k,1615) = lu(k,1615) - lu(k,1570) * lu(k,1605) + lu(k,1616) = lu(k,1616) - lu(k,1571) * lu(k,1605) + lu(k,1617) = lu(k,1617) - lu(k,1572) * lu(k,1605) + lu(k,1649) = lu(k,1649) - lu(k,1561) * lu(k,1648) + lu(k,1650) = lu(k,1650) - lu(k,1562) * lu(k,1648) + lu(k,1651) = lu(k,1651) - lu(k,1563) * lu(k,1648) + lu(k,1652) = lu(k,1652) - lu(k,1564) * lu(k,1648) + lu(k,1653) = lu(k,1653) - lu(k,1565) * lu(k,1648) + lu(k,1654) = lu(k,1654) - lu(k,1566) * lu(k,1648) + lu(k,1655) = lu(k,1655) - lu(k,1567) * lu(k,1648) + lu(k,1656) = lu(k,1656) - lu(k,1568) * lu(k,1648) + lu(k,1657) = lu(k,1657) - lu(k,1569) * lu(k,1648) + lu(k,1658) = lu(k,1658) - lu(k,1570) * lu(k,1648) + lu(k,1659) = lu(k,1659) - lu(k,1571) * lu(k,1648) + lu(k,1660) = lu(k,1660) - lu(k,1572) * lu(k,1648) + lu(k,1691) = lu(k,1691) - lu(k,1561) * lu(k,1690) + lu(k,1692) = lu(k,1692) - lu(k,1562) * lu(k,1690) + lu(k,1693) = lu(k,1693) - lu(k,1563) * lu(k,1690) + lu(k,1694) = lu(k,1694) - lu(k,1564) * lu(k,1690) + lu(k,1695) = lu(k,1695) - lu(k,1565) * lu(k,1690) + lu(k,1696) = lu(k,1696) - lu(k,1566) * lu(k,1690) + lu(k,1697) = lu(k,1697) - lu(k,1567) * lu(k,1690) + lu(k,1698) = lu(k,1698) - lu(k,1568) * lu(k,1690) + lu(k,1699) = lu(k,1699) - lu(k,1569) * lu(k,1690) + lu(k,1700) = lu(k,1700) - lu(k,1570) * lu(k,1690) + lu(k,1701) = lu(k,1701) - lu(k,1571) * lu(k,1690) + lu(k,1702) = lu(k,1702) - lu(k,1572) * lu(k,1690) + lu(k,1731) = lu(k,1731) - lu(k,1561) * lu(k,1730) + lu(k,1732) = lu(k,1732) - lu(k,1562) * lu(k,1730) + lu(k,1733) = lu(k,1733) - lu(k,1563) * lu(k,1730) + lu(k,1734) = lu(k,1734) - lu(k,1564) * lu(k,1730) + lu(k,1735) = lu(k,1735) - lu(k,1565) * lu(k,1730) + lu(k,1736) = lu(k,1736) - lu(k,1566) * lu(k,1730) + lu(k,1737) = lu(k,1737) - lu(k,1567) * lu(k,1730) + lu(k,1738) = lu(k,1738) - lu(k,1568) * lu(k,1730) + lu(k,1739) = lu(k,1739) - lu(k,1569) * lu(k,1730) + lu(k,1740) = lu(k,1740) - lu(k,1570) * lu(k,1730) + lu(k,1741) = lu(k,1741) - lu(k,1571) * lu(k,1730) + lu(k,1742) = lu(k,1742) - lu(k,1572) * lu(k,1730) + lu(k,1767) = lu(k,1767) - lu(k,1561) * lu(k,1766) + lu(k,1768) = lu(k,1768) - lu(k,1562) * lu(k,1766) + lu(k,1769) = lu(k,1769) - lu(k,1563) * lu(k,1766) + lu(k,1770) = lu(k,1770) - lu(k,1564) * lu(k,1766) + lu(k,1771) = lu(k,1771) - lu(k,1565) * lu(k,1766) + lu(k,1772) = lu(k,1772) - lu(k,1566) * lu(k,1766) + lu(k,1773) = lu(k,1773) - lu(k,1567) * lu(k,1766) + lu(k,1774) = lu(k,1774) - lu(k,1568) * lu(k,1766) + lu(k,1775) = lu(k,1775) - lu(k,1569) * lu(k,1766) + lu(k,1776) = lu(k,1776) - lu(k,1570) * lu(k,1766) + lu(k,1777) = lu(k,1777) - lu(k,1571) * lu(k,1766) + lu(k,1778) = lu(k,1778) - lu(k,1572) * lu(k,1766) + lu(k,1815) = lu(k,1815) - lu(k,1561) * lu(k,1814) + lu(k,1816) = lu(k,1816) - lu(k,1562) * lu(k,1814) + lu(k,1817) = lu(k,1817) - lu(k,1563) * lu(k,1814) + lu(k,1818) = lu(k,1818) - lu(k,1564) * lu(k,1814) + lu(k,1819) = lu(k,1819) - lu(k,1565) * lu(k,1814) + lu(k,1820) = lu(k,1820) - lu(k,1566) * lu(k,1814) + lu(k,1821) = lu(k,1821) - lu(k,1567) * lu(k,1814) + lu(k,1822) = lu(k,1822) - lu(k,1568) * lu(k,1814) + lu(k,1823) = lu(k,1823) - lu(k,1569) * lu(k,1814) + lu(k,1824) = lu(k,1824) - lu(k,1570) * lu(k,1814) + lu(k,1825) = lu(k,1825) - lu(k,1571) * lu(k,1814) + lu(k,1826) = lu(k,1826) - lu(k,1572) * lu(k,1814) + lu(k,1848) = lu(k,1848) - lu(k,1561) * lu(k,1847) + lu(k,1849) = lu(k,1849) - lu(k,1562) * lu(k,1847) + lu(k,1850) = lu(k,1850) - lu(k,1563) * lu(k,1847) + lu(k,1851) = lu(k,1851) - lu(k,1564) * lu(k,1847) + lu(k,1852) = lu(k,1852) - lu(k,1565) * lu(k,1847) + lu(k,1853) = lu(k,1853) - lu(k,1566) * lu(k,1847) + lu(k,1854) = lu(k,1854) - lu(k,1567) * lu(k,1847) + lu(k,1855) = lu(k,1855) - lu(k,1568) * lu(k,1847) + lu(k,1856) = lu(k,1856) - lu(k,1569) * lu(k,1847) + lu(k,1857) = lu(k,1857) - lu(k,1570) * lu(k,1847) + lu(k,1858) = lu(k,1858) - lu(k,1571) * lu(k,1847) + lu(k,1859) = lu(k,1859) - lu(k,1572) * lu(k,1847) + lu(k,1884) = lu(k,1884) - lu(k,1561) * lu(k,1883) + lu(k,1885) = lu(k,1885) - lu(k,1562) * lu(k,1883) + lu(k,1886) = lu(k,1886) - lu(k,1563) * lu(k,1883) + lu(k,1887) = lu(k,1887) - lu(k,1564) * lu(k,1883) + lu(k,1888) = lu(k,1888) - lu(k,1565) * lu(k,1883) + lu(k,1889) = lu(k,1889) - lu(k,1566) * lu(k,1883) + lu(k,1890) = lu(k,1890) - lu(k,1567) * lu(k,1883) + lu(k,1891) = lu(k,1891) - lu(k,1568) * lu(k,1883) + lu(k,1892) = lu(k,1892) - lu(k,1569) * lu(k,1883) + lu(k,1893) = lu(k,1893) - lu(k,1570) * lu(k,1883) + lu(k,1894) = lu(k,1894) - lu(k,1571) * lu(k,1883) + lu(k,1895) = lu(k,1895) - lu(k,1572) * lu(k,1883) + lu(k,1933) = lu(k,1933) - lu(k,1561) * lu(k,1932) + lu(k,1934) = lu(k,1934) - lu(k,1562) * lu(k,1932) + lu(k,1935) = lu(k,1935) - lu(k,1563) * lu(k,1932) + lu(k,1936) = lu(k,1936) - lu(k,1564) * lu(k,1932) + lu(k,1937) = lu(k,1937) - lu(k,1565) * lu(k,1932) + lu(k,1938) = lu(k,1938) - lu(k,1566) * lu(k,1932) + lu(k,1939) = lu(k,1939) - lu(k,1567) * lu(k,1932) + lu(k,1940) = lu(k,1940) - lu(k,1568) * lu(k,1932) + lu(k,1941) = lu(k,1941) - lu(k,1569) * lu(k,1932) + lu(k,1942) = lu(k,1942) - lu(k,1570) * lu(k,1932) + lu(k,1943) = lu(k,1943) - lu(k,1571) * lu(k,1932) + lu(k,1944) = lu(k,1944) - lu(k,1572) * lu(k,1932) + lu(k,1977) = lu(k,1977) - lu(k,1561) * lu(k,1976) + lu(k,1978) = lu(k,1978) - lu(k,1562) * lu(k,1976) + lu(k,1979) = lu(k,1979) - lu(k,1563) * lu(k,1976) + lu(k,1980) = lu(k,1980) - lu(k,1564) * lu(k,1976) + lu(k,1981) = lu(k,1981) - lu(k,1565) * lu(k,1976) + lu(k,1982) = lu(k,1982) - lu(k,1566) * lu(k,1976) + lu(k,1983) = lu(k,1983) - lu(k,1567) * lu(k,1976) + lu(k,1984) = lu(k,1984) - lu(k,1568) * lu(k,1976) + lu(k,1985) = lu(k,1985) - lu(k,1569) * lu(k,1976) + lu(k,1986) = lu(k,1986) - lu(k,1570) * lu(k,1976) + lu(k,1987) = lu(k,1987) - lu(k,1571) * lu(k,1976) + lu(k,1988) = lu(k,1988) - lu(k,1572) * lu(k,1976) + lu(k,2022) = lu(k,2022) - lu(k,1561) * lu(k,2021) + lu(k,2023) = lu(k,2023) - lu(k,1562) * lu(k,2021) + lu(k,2024) = lu(k,2024) - lu(k,1563) * lu(k,2021) + lu(k,2025) = lu(k,2025) - lu(k,1564) * lu(k,2021) + lu(k,2026) = lu(k,2026) - lu(k,1565) * lu(k,2021) + lu(k,2027) = lu(k,2027) - lu(k,1566) * lu(k,2021) + lu(k,2028) = lu(k,2028) - lu(k,1567) * lu(k,2021) + lu(k,2029) = lu(k,2029) - lu(k,1568) * lu(k,2021) + lu(k,2030) = lu(k,2030) - lu(k,1569) * lu(k,2021) + lu(k,2031) = lu(k,2031) - lu(k,1570) * lu(k,2021) + lu(k,2032) = lu(k,2032) - lu(k,1571) * lu(k,2021) + lu(k,2033) = lu(k,2033) - lu(k,1572) * lu(k,2021) + lu(k,2082) = lu(k,2082) - lu(k,1561) * lu(k,2081) + lu(k,2083) = lu(k,2083) - lu(k,1562) * lu(k,2081) + lu(k,2084) = lu(k,2084) - lu(k,1563) * lu(k,2081) + lu(k,2085) = lu(k,2085) - lu(k,1564) * lu(k,2081) + lu(k,2086) = lu(k,2086) - lu(k,1565) * lu(k,2081) + lu(k,2087) = lu(k,2087) - lu(k,1566) * lu(k,2081) + lu(k,2088) = lu(k,2088) - lu(k,1567) * lu(k,2081) + lu(k,2089) = lu(k,2089) - lu(k,1568) * lu(k,2081) + lu(k,2090) = lu(k,2090) - lu(k,1569) * lu(k,2081) + lu(k,2091) = lu(k,2091) - lu(k,1570) * lu(k,2081) + lu(k,2092) = lu(k,2092) - lu(k,1571) * lu(k,2081) + lu(k,2093) = lu(k,2093) - lu(k,1572) * lu(k,2081) + lu(k,1606) = 1._r8 / lu(k,1606) + lu(k,1607) = lu(k,1607) * lu(k,1606) + lu(k,1608) = lu(k,1608) * lu(k,1606) + lu(k,1609) = lu(k,1609) * lu(k,1606) + lu(k,1610) = lu(k,1610) * lu(k,1606) + lu(k,1611) = lu(k,1611) * lu(k,1606) + lu(k,1612) = lu(k,1612) * lu(k,1606) + lu(k,1613) = lu(k,1613) * lu(k,1606) + lu(k,1614) = lu(k,1614) * lu(k,1606) + lu(k,1615) = lu(k,1615) * lu(k,1606) + lu(k,1616) = lu(k,1616) * lu(k,1606) + lu(k,1617) = lu(k,1617) * lu(k,1606) + lu(k,1650) = lu(k,1650) - lu(k,1607) * lu(k,1649) + lu(k,1651) = lu(k,1651) - lu(k,1608) * lu(k,1649) + lu(k,1652) = lu(k,1652) - lu(k,1609) * lu(k,1649) + lu(k,1653) = lu(k,1653) - lu(k,1610) * lu(k,1649) + lu(k,1654) = lu(k,1654) - lu(k,1611) * lu(k,1649) + lu(k,1655) = lu(k,1655) - lu(k,1612) * lu(k,1649) + lu(k,1656) = lu(k,1656) - lu(k,1613) * lu(k,1649) + lu(k,1657) = lu(k,1657) - lu(k,1614) * lu(k,1649) + lu(k,1658) = lu(k,1658) - lu(k,1615) * lu(k,1649) + lu(k,1659) = lu(k,1659) - lu(k,1616) * lu(k,1649) + lu(k,1660) = lu(k,1660) - lu(k,1617) * lu(k,1649) + lu(k,1692) = lu(k,1692) - lu(k,1607) * lu(k,1691) + lu(k,1693) = lu(k,1693) - lu(k,1608) * lu(k,1691) + lu(k,1694) = lu(k,1694) - lu(k,1609) * lu(k,1691) + lu(k,1695) = lu(k,1695) - lu(k,1610) * lu(k,1691) + lu(k,1696) = lu(k,1696) - lu(k,1611) * lu(k,1691) + lu(k,1697) = lu(k,1697) - lu(k,1612) * lu(k,1691) + lu(k,1698) = lu(k,1698) - lu(k,1613) * lu(k,1691) + lu(k,1699) = lu(k,1699) - lu(k,1614) * lu(k,1691) + lu(k,1700) = lu(k,1700) - lu(k,1615) * lu(k,1691) + lu(k,1701) = lu(k,1701) - lu(k,1616) * lu(k,1691) + lu(k,1702) = lu(k,1702) - lu(k,1617) * lu(k,1691) + lu(k,1732) = lu(k,1732) - lu(k,1607) * lu(k,1731) + lu(k,1733) = lu(k,1733) - lu(k,1608) * lu(k,1731) + lu(k,1734) = lu(k,1734) - lu(k,1609) * lu(k,1731) + lu(k,1735) = lu(k,1735) - lu(k,1610) * lu(k,1731) + lu(k,1736) = lu(k,1736) - lu(k,1611) * lu(k,1731) + lu(k,1737) = lu(k,1737) - lu(k,1612) * lu(k,1731) + lu(k,1738) = lu(k,1738) - lu(k,1613) * lu(k,1731) + lu(k,1739) = lu(k,1739) - lu(k,1614) * lu(k,1731) + lu(k,1740) = lu(k,1740) - lu(k,1615) * lu(k,1731) + lu(k,1741) = lu(k,1741) - lu(k,1616) * lu(k,1731) + lu(k,1742) = lu(k,1742) - lu(k,1617) * lu(k,1731) + lu(k,1768) = lu(k,1768) - lu(k,1607) * lu(k,1767) + lu(k,1769) = lu(k,1769) - lu(k,1608) * lu(k,1767) + lu(k,1770) = lu(k,1770) - lu(k,1609) * lu(k,1767) + lu(k,1771) = lu(k,1771) - lu(k,1610) * lu(k,1767) + lu(k,1772) = lu(k,1772) - lu(k,1611) * lu(k,1767) + lu(k,1773) = lu(k,1773) - lu(k,1612) * lu(k,1767) + lu(k,1774) = lu(k,1774) - lu(k,1613) * lu(k,1767) + lu(k,1775) = lu(k,1775) - lu(k,1614) * lu(k,1767) + lu(k,1776) = lu(k,1776) - lu(k,1615) * lu(k,1767) + lu(k,1777) = lu(k,1777) - lu(k,1616) * lu(k,1767) + lu(k,1778) = lu(k,1778) - lu(k,1617) * lu(k,1767) + lu(k,1816) = lu(k,1816) - lu(k,1607) * lu(k,1815) + lu(k,1817) = lu(k,1817) - lu(k,1608) * lu(k,1815) + lu(k,1818) = lu(k,1818) - lu(k,1609) * lu(k,1815) + lu(k,1819) = lu(k,1819) - lu(k,1610) * lu(k,1815) + lu(k,1820) = lu(k,1820) - lu(k,1611) * lu(k,1815) + lu(k,1821) = lu(k,1821) - lu(k,1612) * lu(k,1815) + lu(k,1822) = lu(k,1822) - lu(k,1613) * lu(k,1815) + lu(k,1823) = lu(k,1823) - lu(k,1614) * lu(k,1815) + lu(k,1824) = lu(k,1824) - lu(k,1615) * lu(k,1815) + lu(k,1825) = lu(k,1825) - lu(k,1616) * lu(k,1815) + lu(k,1826) = lu(k,1826) - lu(k,1617) * lu(k,1815) + lu(k,1849) = lu(k,1849) - lu(k,1607) * lu(k,1848) + lu(k,1850) = lu(k,1850) - lu(k,1608) * lu(k,1848) + lu(k,1851) = lu(k,1851) - lu(k,1609) * lu(k,1848) + lu(k,1852) = lu(k,1852) - lu(k,1610) * lu(k,1848) + lu(k,1853) = lu(k,1853) - lu(k,1611) * lu(k,1848) + lu(k,1854) = lu(k,1854) - lu(k,1612) * lu(k,1848) + lu(k,1855) = lu(k,1855) - lu(k,1613) * lu(k,1848) + lu(k,1856) = lu(k,1856) - lu(k,1614) * lu(k,1848) + lu(k,1857) = lu(k,1857) - lu(k,1615) * lu(k,1848) + lu(k,1858) = lu(k,1858) - lu(k,1616) * lu(k,1848) + lu(k,1859) = lu(k,1859) - lu(k,1617) * lu(k,1848) + lu(k,1885) = lu(k,1885) - lu(k,1607) * lu(k,1884) + lu(k,1886) = lu(k,1886) - lu(k,1608) * lu(k,1884) + lu(k,1887) = lu(k,1887) - lu(k,1609) * lu(k,1884) + lu(k,1888) = lu(k,1888) - lu(k,1610) * lu(k,1884) + lu(k,1889) = lu(k,1889) - lu(k,1611) * lu(k,1884) + lu(k,1890) = lu(k,1890) - lu(k,1612) * lu(k,1884) + lu(k,1891) = lu(k,1891) - lu(k,1613) * lu(k,1884) + lu(k,1892) = lu(k,1892) - lu(k,1614) * lu(k,1884) + lu(k,1893) = lu(k,1893) - lu(k,1615) * lu(k,1884) + lu(k,1894) = lu(k,1894) - lu(k,1616) * lu(k,1884) + lu(k,1895) = lu(k,1895) - lu(k,1617) * lu(k,1884) + lu(k,1934) = lu(k,1934) - lu(k,1607) * lu(k,1933) + lu(k,1935) = lu(k,1935) - lu(k,1608) * lu(k,1933) + lu(k,1936) = lu(k,1936) - lu(k,1609) * lu(k,1933) + lu(k,1937) = lu(k,1937) - lu(k,1610) * lu(k,1933) + lu(k,1938) = lu(k,1938) - lu(k,1611) * lu(k,1933) + lu(k,1939) = lu(k,1939) - lu(k,1612) * lu(k,1933) + lu(k,1940) = lu(k,1940) - lu(k,1613) * lu(k,1933) + lu(k,1941) = lu(k,1941) - lu(k,1614) * lu(k,1933) + lu(k,1942) = lu(k,1942) - lu(k,1615) * lu(k,1933) + lu(k,1943) = lu(k,1943) - lu(k,1616) * lu(k,1933) + lu(k,1944) = lu(k,1944) - lu(k,1617) * lu(k,1933) + lu(k,1978) = lu(k,1978) - lu(k,1607) * lu(k,1977) + lu(k,1979) = lu(k,1979) - lu(k,1608) * lu(k,1977) + lu(k,1980) = lu(k,1980) - lu(k,1609) * lu(k,1977) + lu(k,1981) = lu(k,1981) - lu(k,1610) * lu(k,1977) + lu(k,1982) = lu(k,1982) - lu(k,1611) * lu(k,1977) + lu(k,1983) = lu(k,1983) - lu(k,1612) * lu(k,1977) + lu(k,1984) = lu(k,1984) - lu(k,1613) * lu(k,1977) + lu(k,1985) = lu(k,1985) - lu(k,1614) * lu(k,1977) + lu(k,1986) = lu(k,1986) - lu(k,1615) * lu(k,1977) + lu(k,1987) = lu(k,1987) - lu(k,1616) * lu(k,1977) + lu(k,1988) = lu(k,1988) - lu(k,1617) * lu(k,1977) + lu(k,2023) = lu(k,2023) - lu(k,1607) * lu(k,2022) + lu(k,2024) = lu(k,2024) - lu(k,1608) * lu(k,2022) + lu(k,2025) = lu(k,2025) - lu(k,1609) * lu(k,2022) + lu(k,2026) = lu(k,2026) - lu(k,1610) * lu(k,2022) + lu(k,2027) = lu(k,2027) - lu(k,1611) * lu(k,2022) + lu(k,2028) = lu(k,2028) - lu(k,1612) * lu(k,2022) + lu(k,2029) = lu(k,2029) - lu(k,1613) * lu(k,2022) + lu(k,2030) = lu(k,2030) - lu(k,1614) * lu(k,2022) + lu(k,2031) = lu(k,2031) - lu(k,1615) * lu(k,2022) + lu(k,2032) = lu(k,2032) - lu(k,1616) * lu(k,2022) + lu(k,2033) = lu(k,2033) - lu(k,1617) * lu(k,2022) + lu(k,2083) = lu(k,2083) - lu(k,1607) * lu(k,2082) + lu(k,2084) = lu(k,2084) - lu(k,1608) * lu(k,2082) + lu(k,2085) = lu(k,2085) - lu(k,1609) * lu(k,2082) + lu(k,2086) = lu(k,2086) - lu(k,1610) * lu(k,2082) + lu(k,2087) = lu(k,2087) - lu(k,1611) * lu(k,2082) + lu(k,2088) = lu(k,2088) - lu(k,1612) * lu(k,2082) + lu(k,2089) = lu(k,2089) - lu(k,1613) * lu(k,2082) + lu(k,2090) = lu(k,2090) - lu(k,1614) * lu(k,2082) + lu(k,2091) = lu(k,2091) - lu(k,1615) * lu(k,2082) + lu(k,2092) = lu(k,2092) - lu(k,1616) * lu(k,2082) + lu(k,2093) = lu(k,2093) - lu(k,1617) * lu(k,2082) + lu(k,1650) = 1._r8 / lu(k,1650) + lu(k,1651) = lu(k,1651) * lu(k,1650) + lu(k,1652) = lu(k,1652) * lu(k,1650) + lu(k,1653) = lu(k,1653) * lu(k,1650) + lu(k,1654) = lu(k,1654) * lu(k,1650) + lu(k,1655) = lu(k,1655) * lu(k,1650) + lu(k,1656) = lu(k,1656) * lu(k,1650) + lu(k,1657) = lu(k,1657) * lu(k,1650) + lu(k,1658) = lu(k,1658) * lu(k,1650) + lu(k,1659) = lu(k,1659) * lu(k,1650) + lu(k,1660) = lu(k,1660) * lu(k,1650) + lu(k,1693) = lu(k,1693) - lu(k,1651) * lu(k,1692) + lu(k,1694) = lu(k,1694) - lu(k,1652) * lu(k,1692) + lu(k,1695) = lu(k,1695) - lu(k,1653) * lu(k,1692) + lu(k,1696) = lu(k,1696) - lu(k,1654) * lu(k,1692) + lu(k,1697) = lu(k,1697) - lu(k,1655) * lu(k,1692) + lu(k,1698) = lu(k,1698) - lu(k,1656) * lu(k,1692) + lu(k,1699) = lu(k,1699) - lu(k,1657) * lu(k,1692) + lu(k,1700) = lu(k,1700) - lu(k,1658) * lu(k,1692) + lu(k,1701) = lu(k,1701) - lu(k,1659) * lu(k,1692) + lu(k,1702) = lu(k,1702) - lu(k,1660) * lu(k,1692) + lu(k,1733) = lu(k,1733) - lu(k,1651) * lu(k,1732) + lu(k,1734) = lu(k,1734) - lu(k,1652) * lu(k,1732) + lu(k,1735) = lu(k,1735) - lu(k,1653) * lu(k,1732) + lu(k,1736) = lu(k,1736) - lu(k,1654) * lu(k,1732) + lu(k,1737) = lu(k,1737) - lu(k,1655) * lu(k,1732) + lu(k,1738) = lu(k,1738) - lu(k,1656) * lu(k,1732) + lu(k,1739) = lu(k,1739) - lu(k,1657) * lu(k,1732) + lu(k,1740) = lu(k,1740) - lu(k,1658) * lu(k,1732) + lu(k,1741) = lu(k,1741) - lu(k,1659) * lu(k,1732) + lu(k,1742) = lu(k,1742) - lu(k,1660) * lu(k,1732) + lu(k,1769) = lu(k,1769) - lu(k,1651) * lu(k,1768) + lu(k,1770) = lu(k,1770) - lu(k,1652) * lu(k,1768) + lu(k,1771) = lu(k,1771) - lu(k,1653) * lu(k,1768) + lu(k,1772) = lu(k,1772) - lu(k,1654) * lu(k,1768) + lu(k,1773) = lu(k,1773) - lu(k,1655) * lu(k,1768) + lu(k,1774) = lu(k,1774) - lu(k,1656) * lu(k,1768) + lu(k,1775) = lu(k,1775) - lu(k,1657) * lu(k,1768) + lu(k,1776) = lu(k,1776) - lu(k,1658) * lu(k,1768) + lu(k,1777) = lu(k,1777) - lu(k,1659) * lu(k,1768) + lu(k,1778) = lu(k,1778) - lu(k,1660) * lu(k,1768) + lu(k,1817) = lu(k,1817) - lu(k,1651) * lu(k,1816) + lu(k,1818) = lu(k,1818) - lu(k,1652) * lu(k,1816) + lu(k,1819) = lu(k,1819) - lu(k,1653) * lu(k,1816) + lu(k,1820) = lu(k,1820) - lu(k,1654) * lu(k,1816) + lu(k,1821) = lu(k,1821) - lu(k,1655) * lu(k,1816) + lu(k,1822) = lu(k,1822) - lu(k,1656) * lu(k,1816) + lu(k,1823) = lu(k,1823) - lu(k,1657) * lu(k,1816) + lu(k,1824) = lu(k,1824) - lu(k,1658) * lu(k,1816) + lu(k,1825) = lu(k,1825) - lu(k,1659) * lu(k,1816) + lu(k,1826) = lu(k,1826) - lu(k,1660) * lu(k,1816) + lu(k,1850) = lu(k,1850) - lu(k,1651) * lu(k,1849) + lu(k,1851) = lu(k,1851) - lu(k,1652) * lu(k,1849) + lu(k,1852) = lu(k,1852) - lu(k,1653) * lu(k,1849) + lu(k,1853) = lu(k,1853) - lu(k,1654) * lu(k,1849) + lu(k,1854) = lu(k,1854) - lu(k,1655) * lu(k,1849) + lu(k,1855) = lu(k,1855) - lu(k,1656) * lu(k,1849) + lu(k,1856) = lu(k,1856) - lu(k,1657) * lu(k,1849) + lu(k,1857) = lu(k,1857) - lu(k,1658) * lu(k,1849) + lu(k,1858) = lu(k,1858) - lu(k,1659) * lu(k,1849) + lu(k,1859) = lu(k,1859) - lu(k,1660) * lu(k,1849) + lu(k,1886) = lu(k,1886) - lu(k,1651) * lu(k,1885) + lu(k,1887) = lu(k,1887) - lu(k,1652) * lu(k,1885) + lu(k,1888) = lu(k,1888) - lu(k,1653) * lu(k,1885) + lu(k,1889) = lu(k,1889) - lu(k,1654) * lu(k,1885) + lu(k,1890) = lu(k,1890) - lu(k,1655) * lu(k,1885) + lu(k,1891) = lu(k,1891) - lu(k,1656) * lu(k,1885) + lu(k,1892) = lu(k,1892) - lu(k,1657) * lu(k,1885) + lu(k,1893) = lu(k,1893) - lu(k,1658) * lu(k,1885) + lu(k,1894) = lu(k,1894) - lu(k,1659) * lu(k,1885) + lu(k,1895) = lu(k,1895) - lu(k,1660) * lu(k,1885) + lu(k,1935) = lu(k,1935) - lu(k,1651) * lu(k,1934) + lu(k,1936) = lu(k,1936) - lu(k,1652) * lu(k,1934) + lu(k,1937) = lu(k,1937) - lu(k,1653) * lu(k,1934) + lu(k,1938) = lu(k,1938) - lu(k,1654) * lu(k,1934) + lu(k,1939) = lu(k,1939) - lu(k,1655) * lu(k,1934) + lu(k,1940) = lu(k,1940) - lu(k,1656) * lu(k,1934) + lu(k,1941) = lu(k,1941) - lu(k,1657) * lu(k,1934) + lu(k,1942) = lu(k,1942) - lu(k,1658) * lu(k,1934) + lu(k,1943) = lu(k,1943) - lu(k,1659) * lu(k,1934) + lu(k,1944) = lu(k,1944) - lu(k,1660) * lu(k,1934) + lu(k,1979) = lu(k,1979) - lu(k,1651) * lu(k,1978) + lu(k,1980) = lu(k,1980) - lu(k,1652) * lu(k,1978) + lu(k,1981) = lu(k,1981) - lu(k,1653) * lu(k,1978) + lu(k,1982) = lu(k,1982) - lu(k,1654) * lu(k,1978) + lu(k,1983) = lu(k,1983) - lu(k,1655) * lu(k,1978) + lu(k,1984) = lu(k,1984) - lu(k,1656) * lu(k,1978) + lu(k,1985) = lu(k,1985) - lu(k,1657) * lu(k,1978) + lu(k,1986) = lu(k,1986) - lu(k,1658) * lu(k,1978) + lu(k,1987) = lu(k,1987) - lu(k,1659) * lu(k,1978) + lu(k,1988) = lu(k,1988) - lu(k,1660) * lu(k,1978) + lu(k,2024) = lu(k,2024) - lu(k,1651) * lu(k,2023) + lu(k,2025) = lu(k,2025) - lu(k,1652) * lu(k,2023) + lu(k,2026) = lu(k,2026) - lu(k,1653) * lu(k,2023) + lu(k,2027) = lu(k,2027) - lu(k,1654) * lu(k,2023) + lu(k,2028) = lu(k,2028) - lu(k,1655) * lu(k,2023) + lu(k,2029) = lu(k,2029) - lu(k,1656) * lu(k,2023) + lu(k,2030) = lu(k,2030) - lu(k,1657) * lu(k,2023) + lu(k,2031) = lu(k,2031) - lu(k,1658) * lu(k,2023) + lu(k,2032) = lu(k,2032) - lu(k,1659) * lu(k,2023) + lu(k,2033) = lu(k,2033) - lu(k,1660) * lu(k,2023) + lu(k,2084) = lu(k,2084) - lu(k,1651) * lu(k,2083) + lu(k,2085) = lu(k,2085) - lu(k,1652) * lu(k,2083) + lu(k,2086) = lu(k,2086) - lu(k,1653) * lu(k,2083) + lu(k,2087) = lu(k,2087) - lu(k,1654) * lu(k,2083) + lu(k,2088) = lu(k,2088) - lu(k,1655) * lu(k,2083) + lu(k,2089) = lu(k,2089) - lu(k,1656) * lu(k,2083) + lu(k,2090) = lu(k,2090) - lu(k,1657) * lu(k,2083) + lu(k,2091) = lu(k,2091) - lu(k,1658) * lu(k,2083) + lu(k,2092) = lu(k,2092) - lu(k,1659) * lu(k,2083) + lu(k,2093) = lu(k,2093) - lu(k,1660) * lu(k,2083) + lu(k,1693) = 1._r8 / lu(k,1693) + lu(k,1694) = lu(k,1694) * lu(k,1693) + lu(k,1695) = lu(k,1695) * lu(k,1693) + lu(k,1696) = lu(k,1696) * lu(k,1693) + lu(k,1697) = lu(k,1697) * lu(k,1693) + lu(k,1698) = lu(k,1698) * lu(k,1693) + lu(k,1699) = lu(k,1699) * lu(k,1693) + lu(k,1700) = lu(k,1700) * lu(k,1693) + lu(k,1701) = lu(k,1701) * lu(k,1693) + lu(k,1702) = lu(k,1702) * lu(k,1693) + lu(k,1734) = lu(k,1734) - lu(k,1694) * lu(k,1733) + lu(k,1735) = lu(k,1735) - lu(k,1695) * lu(k,1733) + lu(k,1736) = lu(k,1736) - lu(k,1696) * lu(k,1733) + lu(k,1737) = lu(k,1737) - lu(k,1697) * lu(k,1733) + lu(k,1738) = lu(k,1738) - lu(k,1698) * lu(k,1733) + lu(k,1739) = lu(k,1739) - lu(k,1699) * lu(k,1733) + lu(k,1740) = lu(k,1740) - lu(k,1700) * lu(k,1733) + lu(k,1741) = lu(k,1741) - lu(k,1701) * lu(k,1733) + lu(k,1742) = lu(k,1742) - lu(k,1702) * lu(k,1733) + lu(k,1770) = lu(k,1770) - lu(k,1694) * lu(k,1769) + lu(k,1771) = lu(k,1771) - lu(k,1695) * lu(k,1769) + lu(k,1772) = lu(k,1772) - lu(k,1696) * lu(k,1769) + lu(k,1773) = lu(k,1773) - lu(k,1697) * lu(k,1769) + lu(k,1774) = lu(k,1774) - lu(k,1698) * lu(k,1769) + lu(k,1775) = lu(k,1775) - lu(k,1699) * lu(k,1769) + lu(k,1776) = lu(k,1776) - lu(k,1700) * lu(k,1769) + lu(k,1777) = lu(k,1777) - lu(k,1701) * lu(k,1769) + lu(k,1778) = lu(k,1778) - lu(k,1702) * lu(k,1769) + lu(k,1818) = lu(k,1818) - lu(k,1694) * lu(k,1817) + lu(k,1819) = lu(k,1819) - lu(k,1695) * lu(k,1817) + lu(k,1820) = lu(k,1820) - lu(k,1696) * lu(k,1817) + lu(k,1821) = lu(k,1821) - lu(k,1697) * lu(k,1817) + lu(k,1822) = lu(k,1822) - lu(k,1698) * lu(k,1817) + lu(k,1823) = lu(k,1823) - lu(k,1699) * lu(k,1817) + lu(k,1824) = lu(k,1824) - lu(k,1700) * lu(k,1817) + lu(k,1825) = lu(k,1825) - lu(k,1701) * lu(k,1817) + lu(k,1826) = lu(k,1826) - lu(k,1702) * lu(k,1817) + lu(k,1851) = lu(k,1851) - lu(k,1694) * lu(k,1850) + lu(k,1852) = lu(k,1852) - lu(k,1695) * lu(k,1850) + lu(k,1853) = lu(k,1853) - lu(k,1696) * lu(k,1850) + lu(k,1854) = lu(k,1854) - lu(k,1697) * lu(k,1850) + lu(k,1855) = lu(k,1855) - lu(k,1698) * lu(k,1850) + lu(k,1856) = lu(k,1856) - lu(k,1699) * lu(k,1850) + lu(k,1857) = lu(k,1857) - lu(k,1700) * lu(k,1850) + lu(k,1858) = lu(k,1858) - lu(k,1701) * lu(k,1850) + lu(k,1859) = lu(k,1859) - lu(k,1702) * lu(k,1850) + lu(k,1887) = lu(k,1887) - lu(k,1694) * lu(k,1886) + lu(k,1888) = lu(k,1888) - lu(k,1695) * lu(k,1886) + lu(k,1889) = lu(k,1889) - lu(k,1696) * lu(k,1886) + lu(k,1890) = lu(k,1890) - lu(k,1697) * lu(k,1886) + lu(k,1891) = lu(k,1891) - lu(k,1698) * lu(k,1886) + lu(k,1892) = lu(k,1892) - lu(k,1699) * lu(k,1886) + lu(k,1893) = lu(k,1893) - lu(k,1700) * lu(k,1886) + lu(k,1894) = lu(k,1894) - lu(k,1701) * lu(k,1886) + lu(k,1895) = lu(k,1895) - lu(k,1702) * lu(k,1886) + lu(k,1936) = lu(k,1936) - lu(k,1694) * lu(k,1935) + lu(k,1937) = lu(k,1937) - lu(k,1695) * lu(k,1935) + lu(k,1938) = lu(k,1938) - lu(k,1696) * lu(k,1935) + lu(k,1939) = lu(k,1939) - lu(k,1697) * lu(k,1935) + lu(k,1940) = lu(k,1940) - lu(k,1698) * lu(k,1935) + lu(k,1941) = lu(k,1941) - lu(k,1699) * lu(k,1935) + lu(k,1942) = lu(k,1942) - lu(k,1700) * lu(k,1935) + lu(k,1943) = lu(k,1943) - lu(k,1701) * lu(k,1935) + lu(k,1944) = lu(k,1944) - lu(k,1702) * lu(k,1935) + lu(k,1980) = lu(k,1980) - lu(k,1694) * lu(k,1979) + lu(k,1981) = lu(k,1981) - lu(k,1695) * lu(k,1979) + lu(k,1982) = lu(k,1982) - lu(k,1696) * lu(k,1979) + lu(k,1983) = lu(k,1983) - lu(k,1697) * lu(k,1979) + lu(k,1984) = lu(k,1984) - lu(k,1698) * lu(k,1979) + lu(k,1985) = lu(k,1985) - lu(k,1699) * lu(k,1979) + lu(k,1986) = lu(k,1986) - lu(k,1700) * lu(k,1979) + lu(k,1987) = lu(k,1987) - lu(k,1701) * lu(k,1979) + lu(k,1988) = lu(k,1988) - lu(k,1702) * lu(k,1979) + lu(k,2025) = lu(k,2025) - lu(k,1694) * lu(k,2024) + lu(k,2026) = lu(k,2026) - lu(k,1695) * lu(k,2024) + lu(k,2027) = lu(k,2027) - lu(k,1696) * lu(k,2024) + lu(k,2028) = lu(k,2028) - lu(k,1697) * lu(k,2024) + lu(k,2029) = lu(k,2029) - lu(k,1698) * lu(k,2024) + lu(k,2030) = lu(k,2030) - lu(k,1699) * lu(k,2024) + lu(k,2031) = lu(k,2031) - lu(k,1700) * lu(k,2024) + lu(k,2032) = lu(k,2032) - lu(k,1701) * lu(k,2024) + lu(k,2033) = lu(k,2033) - lu(k,1702) * lu(k,2024) + lu(k,2085) = lu(k,2085) - lu(k,1694) * lu(k,2084) + lu(k,2086) = lu(k,2086) - lu(k,1695) * lu(k,2084) + lu(k,2087) = lu(k,2087) - lu(k,1696) * lu(k,2084) + lu(k,2088) = lu(k,2088) - lu(k,1697) * lu(k,2084) + lu(k,2089) = lu(k,2089) - lu(k,1698) * lu(k,2084) + lu(k,2090) = lu(k,2090) - lu(k,1699) * lu(k,2084) + lu(k,2091) = lu(k,2091) - lu(k,1700) * lu(k,2084) + lu(k,2092) = lu(k,2092) - lu(k,1701) * lu(k,2084) + lu(k,2093) = lu(k,2093) - lu(k,1702) * lu(k,2084) + lu(k,1734) = 1._r8 / lu(k,1734) + lu(k,1735) = lu(k,1735) * lu(k,1734) + lu(k,1736) = lu(k,1736) * lu(k,1734) + lu(k,1737) = lu(k,1737) * lu(k,1734) + lu(k,1738) = lu(k,1738) * lu(k,1734) + lu(k,1739) = lu(k,1739) * lu(k,1734) + lu(k,1740) = lu(k,1740) * lu(k,1734) + lu(k,1741) = lu(k,1741) * lu(k,1734) + lu(k,1742) = lu(k,1742) * lu(k,1734) + lu(k,1771) = lu(k,1771) - lu(k,1735) * lu(k,1770) + lu(k,1772) = lu(k,1772) - lu(k,1736) * lu(k,1770) + lu(k,1773) = lu(k,1773) - lu(k,1737) * lu(k,1770) + lu(k,1774) = lu(k,1774) - lu(k,1738) * lu(k,1770) + lu(k,1775) = lu(k,1775) - lu(k,1739) * lu(k,1770) + lu(k,1776) = lu(k,1776) - lu(k,1740) * lu(k,1770) + lu(k,1777) = lu(k,1777) - lu(k,1741) * lu(k,1770) + lu(k,1778) = lu(k,1778) - lu(k,1742) * lu(k,1770) + lu(k,1819) = lu(k,1819) - lu(k,1735) * lu(k,1818) + lu(k,1820) = lu(k,1820) - lu(k,1736) * lu(k,1818) + lu(k,1821) = lu(k,1821) - lu(k,1737) * lu(k,1818) + lu(k,1822) = lu(k,1822) - lu(k,1738) * lu(k,1818) + lu(k,1823) = lu(k,1823) - lu(k,1739) * lu(k,1818) + lu(k,1824) = lu(k,1824) - lu(k,1740) * lu(k,1818) + lu(k,1825) = lu(k,1825) - lu(k,1741) * lu(k,1818) + lu(k,1826) = lu(k,1826) - lu(k,1742) * lu(k,1818) + lu(k,1852) = lu(k,1852) - lu(k,1735) * lu(k,1851) + lu(k,1853) = lu(k,1853) - lu(k,1736) * lu(k,1851) + lu(k,1854) = lu(k,1854) - lu(k,1737) * lu(k,1851) + lu(k,1855) = lu(k,1855) - lu(k,1738) * lu(k,1851) + lu(k,1856) = lu(k,1856) - lu(k,1739) * lu(k,1851) + lu(k,1857) = lu(k,1857) - lu(k,1740) * lu(k,1851) + lu(k,1858) = lu(k,1858) - lu(k,1741) * lu(k,1851) + lu(k,1859) = lu(k,1859) - lu(k,1742) * lu(k,1851) + lu(k,1888) = lu(k,1888) - lu(k,1735) * lu(k,1887) + lu(k,1889) = lu(k,1889) - lu(k,1736) * lu(k,1887) + lu(k,1890) = lu(k,1890) - lu(k,1737) * lu(k,1887) + lu(k,1891) = lu(k,1891) - lu(k,1738) * lu(k,1887) + lu(k,1892) = lu(k,1892) - lu(k,1739) * lu(k,1887) + lu(k,1893) = lu(k,1893) - lu(k,1740) * lu(k,1887) + lu(k,1894) = lu(k,1894) - lu(k,1741) * lu(k,1887) + lu(k,1895) = lu(k,1895) - lu(k,1742) * lu(k,1887) + lu(k,1937) = lu(k,1937) - lu(k,1735) * lu(k,1936) + lu(k,1938) = lu(k,1938) - lu(k,1736) * lu(k,1936) + lu(k,1939) = lu(k,1939) - lu(k,1737) * lu(k,1936) + lu(k,1940) = lu(k,1940) - lu(k,1738) * lu(k,1936) + lu(k,1941) = lu(k,1941) - lu(k,1739) * lu(k,1936) + lu(k,1942) = lu(k,1942) - lu(k,1740) * lu(k,1936) + lu(k,1943) = lu(k,1943) - lu(k,1741) * lu(k,1936) + lu(k,1944) = lu(k,1944) - lu(k,1742) * lu(k,1936) + lu(k,1981) = lu(k,1981) - lu(k,1735) * lu(k,1980) + lu(k,1982) = lu(k,1982) - lu(k,1736) * lu(k,1980) + lu(k,1983) = lu(k,1983) - lu(k,1737) * lu(k,1980) + lu(k,1984) = lu(k,1984) - lu(k,1738) * lu(k,1980) + lu(k,1985) = lu(k,1985) - lu(k,1739) * lu(k,1980) + lu(k,1986) = lu(k,1986) - lu(k,1740) * lu(k,1980) + lu(k,1987) = lu(k,1987) - lu(k,1741) * lu(k,1980) + lu(k,1988) = lu(k,1988) - lu(k,1742) * lu(k,1980) + lu(k,2026) = lu(k,2026) - lu(k,1735) * lu(k,2025) + lu(k,2027) = lu(k,2027) - lu(k,1736) * lu(k,2025) + lu(k,2028) = lu(k,2028) - lu(k,1737) * lu(k,2025) + lu(k,2029) = lu(k,2029) - lu(k,1738) * lu(k,2025) + lu(k,2030) = lu(k,2030) - lu(k,1739) * lu(k,2025) + lu(k,2031) = lu(k,2031) - lu(k,1740) * lu(k,2025) + lu(k,2032) = lu(k,2032) - lu(k,1741) * lu(k,2025) + lu(k,2033) = lu(k,2033) - lu(k,1742) * lu(k,2025) + lu(k,2086) = lu(k,2086) - lu(k,1735) * lu(k,2085) + lu(k,2087) = lu(k,2087) - lu(k,1736) * lu(k,2085) + lu(k,2088) = lu(k,2088) - lu(k,1737) * lu(k,2085) + lu(k,2089) = lu(k,2089) - lu(k,1738) * lu(k,2085) + lu(k,2090) = lu(k,2090) - lu(k,1739) * lu(k,2085) + lu(k,2091) = lu(k,2091) - lu(k,1740) * lu(k,2085) + lu(k,2092) = lu(k,2092) - lu(k,1741) * lu(k,2085) + lu(k,2093) = lu(k,2093) - lu(k,1742) * lu(k,2085) end do - end subroutine lu_fac25 - subroutine lu_fac26( avec_len, lu ) + end subroutine lu_fac26 + subroutine lu_fac27( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 implicit none @@ -14047,184 +14087,184 @@ subroutine lu_fac26( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1778) = 1._r8 / lu(k,1778) - lu(k,1779) = lu(k,1779) * lu(k,1778) - lu(k,1780) = lu(k,1780) * lu(k,1778) - lu(k,1781) = lu(k,1781) * lu(k,1778) - lu(k,1782) = lu(k,1782) * lu(k,1778) - lu(k,1783) = lu(k,1783) * lu(k,1778) - lu(k,1784) = lu(k,1784) * lu(k,1778) - lu(k,1785) = lu(k,1785) * lu(k,1778) - lu(k,1827) = lu(k,1827) - lu(k,1779) * lu(k,1826) - lu(k,1828) = lu(k,1828) - lu(k,1780) * lu(k,1826) - lu(k,1829) = lu(k,1829) - lu(k,1781) * lu(k,1826) - lu(k,1830) = lu(k,1830) - lu(k,1782) * lu(k,1826) - lu(k,1831) = lu(k,1831) - lu(k,1783) * lu(k,1826) - lu(k,1832) = lu(k,1832) - lu(k,1784) * lu(k,1826) - lu(k,1833) = lu(k,1833) - lu(k,1785) * lu(k,1826) - lu(k,1860) = lu(k,1860) - lu(k,1779) * lu(k,1859) - lu(k,1861) = lu(k,1861) - lu(k,1780) * lu(k,1859) - lu(k,1862) = lu(k,1862) - lu(k,1781) * lu(k,1859) - lu(k,1863) = lu(k,1863) - lu(k,1782) * lu(k,1859) - lu(k,1864) = lu(k,1864) - lu(k,1783) * lu(k,1859) - lu(k,1865) = lu(k,1865) - lu(k,1784) * lu(k,1859) - lu(k,1866) = lu(k,1866) - lu(k,1785) * lu(k,1859) - lu(k,1896) = lu(k,1896) - lu(k,1779) * lu(k,1895) - lu(k,1897) = lu(k,1897) - lu(k,1780) * lu(k,1895) - lu(k,1898) = lu(k,1898) - lu(k,1781) * lu(k,1895) - lu(k,1899) = lu(k,1899) - lu(k,1782) * lu(k,1895) - lu(k,1900) = lu(k,1900) - lu(k,1783) * lu(k,1895) - lu(k,1901) = lu(k,1901) - lu(k,1784) * lu(k,1895) - lu(k,1902) = lu(k,1902) - lu(k,1785) * lu(k,1895) - lu(k,1937) = lu(k,1937) - lu(k,1779) * lu(k,1936) - lu(k,1938) = lu(k,1938) - lu(k,1780) * lu(k,1936) - lu(k,1939) = lu(k,1939) - lu(k,1781) * lu(k,1936) - lu(k,1940) = lu(k,1940) - lu(k,1782) * lu(k,1936) - lu(k,1941) = lu(k,1941) - lu(k,1783) * lu(k,1936) - lu(k,1942) = lu(k,1942) - lu(k,1784) * lu(k,1936) - lu(k,1943) = lu(k,1943) - lu(k,1785) * lu(k,1936) - lu(k,1979) = lu(k,1979) - lu(k,1779) * lu(k,1978) - lu(k,1980) = lu(k,1980) - lu(k,1780) * lu(k,1978) - lu(k,1981) = lu(k,1981) - lu(k,1781) * lu(k,1978) - lu(k,1982) = lu(k,1982) - lu(k,1782) * lu(k,1978) - lu(k,1983) = lu(k,1983) - lu(k,1783) * lu(k,1978) - lu(k,1984) = lu(k,1984) - lu(k,1784) * lu(k,1978) - lu(k,1985) = lu(k,1985) - lu(k,1785) * lu(k,1978) - lu(k,2024) = lu(k,2024) - lu(k,1779) * lu(k,2023) - lu(k,2025) = lu(k,2025) - lu(k,1780) * lu(k,2023) - lu(k,2026) = lu(k,2026) - lu(k,1781) * lu(k,2023) - lu(k,2027) = lu(k,2027) - lu(k,1782) * lu(k,2023) - lu(k,2028) = lu(k,2028) - lu(k,1783) * lu(k,2023) - lu(k,2029) = lu(k,2029) - lu(k,1784) * lu(k,2023) - lu(k,2030) = lu(k,2030) - lu(k,1785) * lu(k,2023) - lu(k,2084) = lu(k,2084) - lu(k,1779) * lu(k,2083) - lu(k,2085) = lu(k,2085) - lu(k,1780) * lu(k,2083) - lu(k,2086) = lu(k,2086) - lu(k,1781) * lu(k,2083) - lu(k,2087) = lu(k,2087) - lu(k,1782) * lu(k,2083) - lu(k,2088) = lu(k,2088) - lu(k,1783) * lu(k,2083) - lu(k,2089) = lu(k,2089) - lu(k,1784) * lu(k,2083) - lu(k,2090) = lu(k,2090) - lu(k,1785) * lu(k,2083) - lu(k,1827) = 1._r8 / lu(k,1827) - lu(k,1828) = lu(k,1828) * lu(k,1827) - lu(k,1829) = lu(k,1829) * lu(k,1827) - lu(k,1830) = lu(k,1830) * lu(k,1827) - lu(k,1831) = lu(k,1831) * lu(k,1827) - lu(k,1832) = lu(k,1832) * lu(k,1827) - lu(k,1833) = lu(k,1833) * lu(k,1827) - lu(k,1861) = lu(k,1861) - lu(k,1828) * lu(k,1860) - lu(k,1862) = lu(k,1862) - lu(k,1829) * lu(k,1860) - lu(k,1863) = lu(k,1863) - lu(k,1830) * lu(k,1860) - lu(k,1864) = lu(k,1864) - lu(k,1831) * lu(k,1860) - lu(k,1865) = lu(k,1865) - lu(k,1832) * lu(k,1860) - lu(k,1866) = lu(k,1866) - lu(k,1833) * lu(k,1860) - lu(k,1897) = lu(k,1897) - lu(k,1828) * lu(k,1896) - lu(k,1898) = lu(k,1898) - lu(k,1829) * lu(k,1896) - lu(k,1899) = lu(k,1899) - lu(k,1830) * lu(k,1896) - lu(k,1900) = lu(k,1900) - lu(k,1831) * lu(k,1896) - lu(k,1901) = lu(k,1901) - lu(k,1832) * lu(k,1896) - lu(k,1902) = lu(k,1902) - lu(k,1833) * lu(k,1896) - lu(k,1938) = lu(k,1938) - lu(k,1828) * lu(k,1937) - lu(k,1939) = lu(k,1939) - lu(k,1829) * lu(k,1937) - lu(k,1940) = lu(k,1940) - lu(k,1830) * lu(k,1937) - lu(k,1941) = lu(k,1941) - lu(k,1831) * lu(k,1937) - lu(k,1942) = lu(k,1942) - lu(k,1832) * lu(k,1937) - lu(k,1943) = lu(k,1943) - lu(k,1833) * lu(k,1937) - lu(k,1980) = lu(k,1980) - lu(k,1828) * lu(k,1979) - lu(k,1981) = lu(k,1981) - lu(k,1829) * lu(k,1979) - lu(k,1982) = lu(k,1982) - lu(k,1830) * lu(k,1979) - lu(k,1983) = lu(k,1983) - lu(k,1831) * lu(k,1979) - lu(k,1984) = lu(k,1984) - lu(k,1832) * lu(k,1979) - lu(k,1985) = lu(k,1985) - lu(k,1833) * lu(k,1979) - lu(k,2025) = lu(k,2025) - lu(k,1828) * lu(k,2024) - lu(k,2026) = lu(k,2026) - lu(k,1829) * lu(k,2024) - lu(k,2027) = lu(k,2027) - lu(k,1830) * lu(k,2024) - lu(k,2028) = lu(k,2028) - lu(k,1831) * lu(k,2024) - lu(k,2029) = lu(k,2029) - lu(k,1832) * lu(k,2024) - lu(k,2030) = lu(k,2030) - lu(k,1833) * lu(k,2024) - lu(k,2085) = lu(k,2085) - lu(k,1828) * lu(k,2084) - lu(k,2086) = lu(k,2086) - lu(k,1829) * lu(k,2084) - lu(k,2087) = lu(k,2087) - lu(k,1830) * lu(k,2084) - lu(k,2088) = lu(k,2088) - lu(k,1831) * lu(k,2084) - lu(k,2089) = lu(k,2089) - lu(k,1832) * lu(k,2084) - lu(k,2090) = lu(k,2090) - lu(k,1833) * lu(k,2084) - lu(k,1861) = 1._r8 / lu(k,1861) - lu(k,1862) = lu(k,1862) * lu(k,1861) - lu(k,1863) = lu(k,1863) * lu(k,1861) - lu(k,1864) = lu(k,1864) * lu(k,1861) - lu(k,1865) = lu(k,1865) * lu(k,1861) - lu(k,1866) = lu(k,1866) * lu(k,1861) - lu(k,1898) = lu(k,1898) - lu(k,1862) * lu(k,1897) - lu(k,1899) = lu(k,1899) - lu(k,1863) * lu(k,1897) - lu(k,1900) = lu(k,1900) - lu(k,1864) * lu(k,1897) - lu(k,1901) = lu(k,1901) - lu(k,1865) * lu(k,1897) - lu(k,1902) = lu(k,1902) - lu(k,1866) * lu(k,1897) - lu(k,1939) = lu(k,1939) - lu(k,1862) * lu(k,1938) - lu(k,1940) = lu(k,1940) - lu(k,1863) * lu(k,1938) - lu(k,1941) = lu(k,1941) - lu(k,1864) * lu(k,1938) - lu(k,1942) = lu(k,1942) - lu(k,1865) * lu(k,1938) - lu(k,1943) = lu(k,1943) - lu(k,1866) * lu(k,1938) - lu(k,1981) = lu(k,1981) - lu(k,1862) * lu(k,1980) - lu(k,1982) = lu(k,1982) - lu(k,1863) * lu(k,1980) - lu(k,1983) = lu(k,1983) - lu(k,1864) * lu(k,1980) - lu(k,1984) = lu(k,1984) - lu(k,1865) * lu(k,1980) - lu(k,1985) = lu(k,1985) - lu(k,1866) * lu(k,1980) - lu(k,2026) = lu(k,2026) - lu(k,1862) * lu(k,2025) - lu(k,2027) = lu(k,2027) - lu(k,1863) * lu(k,2025) - lu(k,2028) = lu(k,2028) - lu(k,1864) * lu(k,2025) - lu(k,2029) = lu(k,2029) - lu(k,1865) * lu(k,2025) - lu(k,2030) = lu(k,2030) - lu(k,1866) * lu(k,2025) - lu(k,2086) = lu(k,2086) - lu(k,1862) * lu(k,2085) - lu(k,2087) = lu(k,2087) - lu(k,1863) * lu(k,2085) - lu(k,2088) = lu(k,2088) - lu(k,1864) * lu(k,2085) - lu(k,2089) = lu(k,2089) - lu(k,1865) * lu(k,2085) - lu(k,2090) = lu(k,2090) - lu(k,1866) * lu(k,2085) - lu(k,1898) = 1._r8 / lu(k,1898) - lu(k,1899) = lu(k,1899) * lu(k,1898) - lu(k,1900) = lu(k,1900) * lu(k,1898) - lu(k,1901) = lu(k,1901) * lu(k,1898) - lu(k,1902) = lu(k,1902) * lu(k,1898) - lu(k,1940) = lu(k,1940) - lu(k,1899) * lu(k,1939) - lu(k,1941) = lu(k,1941) - lu(k,1900) * lu(k,1939) - lu(k,1942) = lu(k,1942) - lu(k,1901) * lu(k,1939) - lu(k,1943) = lu(k,1943) - lu(k,1902) * lu(k,1939) - lu(k,1982) = lu(k,1982) - lu(k,1899) * lu(k,1981) - lu(k,1983) = lu(k,1983) - lu(k,1900) * lu(k,1981) - lu(k,1984) = lu(k,1984) - lu(k,1901) * lu(k,1981) - lu(k,1985) = lu(k,1985) - lu(k,1902) * lu(k,1981) - lu(k,2027) = lu(k,2027) - lu(k,1899) * lu(k,2026) - lu(k,2028) = lu(k,2028) - lu(k,1900) * lu(k,2026) - lu(k,2029) = lu(k,2029) - lu(k,1901) * lu(k,2026) - lu(k,2030) = lu(k,2030) - lu(k,1902) * lu(k,2026) - lu(k,2087) = lu(k,2087) - lu(k,1899) * lu(k,2086) - lu(k,2088) = lu(k,2088) - lu(k,1900) * lu(k,2086) - lu(k,2089) = lu(k,2089) - lu(k,1901) * lu(k,2086) - lu(k,2090) = lu(k,2090) - lu(k,1902) * lu(k,2086) - lu(k,1940) = 1._r8 / lu(k,1940) - lu(k,1941) = lu(k,1941) * lu(k,1940) - lu(k,1942) = lu(k,1942) * lu(k,1940) - lu(k,1943) = lu(k,1943) * lu(k,1940) - lu(k,1983) = lu(k,1983) - lu(k,1941) * lu(k,1982) - lu(k,1984) = lu(k,1984) - lu(k,1942) * lu(k,1982) - lu(k,1985) = lu(k,1985) - lu(k,1943) * lu(k,1982) - lu(k,2028) = lu(k,2028) - lu(k,1941) * lu(k,2027) - lu(k,2029) = lu(k,2029) - lu(k,1942) * lu(k,2027) - lu(k,2030) = lu(k,2030) - lu(k,1943) * lu(k,2027) - lu(k,2088) = lu(k,2088) - lu(k,1941) * lu(k,2087) - lu(k,2089) = lu(k,2089) - lu(k,1942) * lu(k,2087) - lu(k,2090) = lu(k,2090) - lu(k,1943) * lu(k,2087) - lu(k,1983) = 1._r8 / lu(k,1983) - lu(k,1984) = lu(k,1984) * lu(k,1983) - lu(k,1985) = lu(k,1985) * lu(k,1983) - lu(k,2029) = lu(k,2029) - lu(k,1984) * lu(k,2028) - lu(k,2030) = lu(k,2030) - lu(k,1985) * lu(k,2028) - lu(k,2089) = lu(k,2089) - lu(k,1984) * lu(k,2088) - lu(k,2090) = lu(k,2090) - lu(k,1985) * lu(k,2088) - lu(k,2029) = 1._r8 / lu(k,2029) - lu(k,2030) = lu(k,2030) * lu(k,2029) - lu(k,2090) = lu(k,2090) - lu(k,2030) * lu(k,2089) - lu(k,2090) = 1._r8 / lu(k,2090) + lu(k,1771) = 1._r8 / lu(k,1771) + lu(k,1772) = lu(k,1772) * lu(k,1771) + lu(k,1773) = lu(k,1773) * lu(k,1771) + lu(k,1774) = lu(k,1774) * lu(k,1771) + lu(k,1775) = lu(k,1775) * lu(k,1771) + lu(k,1776) = lu(k,1776) * lu(k,1771) + lu(k,1777) = lu(k,1777) * lu(k,1771) + lu(k,1778) = lu(k,1778) * lu(k,1771) + lu(k,1820) = lu(k,1820) - lu(k,1772) * lu(k,1819) + lu(k,1821) = lu(k,1821) - lu(k,1773) * lu(k,1819) + lu(k,1822) = lu(k,1822) - lu(k,1774) * lu(k,1819) + lu(k,1823) = lu(k,1823) - lu(k,1775) * lu(k,1819) + lu(k,1824) = lu(k,1824) - lu(k,1776) * lu(k,1819) + lu(k,1825) = lu(k,1825) - lu(k,1777) * lu(k,1819) + lu(k,1826) = lu(k,1826) - lu(k,1778) * lu(k,1819) + lu(k,1853) = lu(k,1853) - lu(k,1772) * lu(k,1852) + lu(k,1854) = lu(k,1854) - lu(k,1773) * lu(k,1852) + lu(k,1855) = lu(k,1855) - lu(k,1774) * lu(k,1852) + lu(k,1856) = lu(k,1856) - lu(k,1775) * lu(k,1852) + lu(k,1857) = lu(k,1857) - lu(k,1776) * lu(k,1852) + lu(k,1858) = lu(k,1858) - lu(k,1777) * lu(k,1852) + lu(k,1859) = lu(k,1859) - lu(k,1778) * lu(k,1852) + lu(k,1889) = lu(k,1889) - lu(k,1772) * lu(k,1888) + lu(k,1890) = lu(k,1890) - lu(k,1773) * lu(k,1888) + lu(k,1891) = lu(k,1891) - lu(k,1774) * lu(k,1888) + lu(k,1892) = lu(k,1892) - lu(k,1775) * lu(k,1888) + lu(k,1893) = lu(k,1893) - lu(k,1776) * lu(k,1888) + lu(k,1894) = lu(k,1894) - lu(k,1777) * lu(k,1888) + lu(k,1895) = lu(k,1895) - lu(k,1778) * lu(k,1888) + lu(k,1938) = lu(k,1938) - lu(k,1772) * lu(k,1937) + lu(k,1939) = lu(k,1939) - lu(k,1773) * lu(k,1937) + lu(k,1940) = lu(k,1940) - lu(k,1774) * lu(k,1937) + lu(k,1941) = lu(k,1941) - lu(k,1775) * lu(k,1937) + lu(k,1942) = lu(k,1942) - lu(k,1776) * lu(k,1937) + lu(k,1943) = lu(k,1943) - lu(k,1777) * lu(k,1937) + lu(k,1944) = lu(k,1944) - lu(k,1778) * lu(k,1937) + lu(k,1982) = lu(k,1982) - lu(k,1772) * lu(k,1981) + lu(k,1983) = lu(k,1983) - lu(k,1773) * lu(k,1981) + lu(k,1984) = lu(k,1984) - lu(k,1774) * lu(k,1981) + lu(k,1985) = lu(k,1985) - lu(k,1775) * lu(k,1981) + lu(k,1986) = lu(k,1986) - lu(k,1776) * lu(k,1981) + lu(k,1987) = lu(k,1987) - lu(k,1777) * lu(k,1981) + lu(k,1988) = lu(k,1988) - lu(k,1778) * lu(k,1981) + lu(k,2027) = lu(k,2027) - lu(k,1772) * lu(k,2026) + lu(k,2028) = lu(k,2028) - lu(k,1773) * lu(k,2026) + lu(k,2029) = lu(k,2029) - lu(k,1774) * lu(k,2026) + lu(k,2030) = lu(k,2030) - lu(k,1775) * lu(k,2026) + lu(k,2031) = lu(k,2031) - lu(k,1776) * lu(k,2026) + lu(k,2032) = lu(k,2032) - lu(k,1777) * lu(k,2026) + lu(k,2033) = lu(k,2033) - lu(k,1778) * lu(k,2026) + lu(k,2087) = lu(k,2087) - lu(k,1772) * lu(k,2086) + lu(k,2088) = lu(k,2088) - lu(k,1773) * lu(k,2086) + lu(k,2089) = lu(k,2089) - lu(k,1774) * lu(k,2086) + lu(k,2090) = lu(k,2090) - lu(k,1775) * lu(k,2086) + lu(k,2091) = lu(k,2091) - lu(k,1776) * lu(k,2086) + lu(k,2092) = lu(k,2092) - lu(k,1777) * lu(k,2086) + lu(k,2093) = lu(k,2093) - lu(k,1778) * lu(k,2086) + lu(k,1820) = 1._r8 / lu(k,1820) + lu(k,1821) = lu(k,1821) * lu(k,1820) + lu(k,1822) = lu(k,1822) * lu(k,1820) + lu(k,1823) = lu(k,1823) * lu(k,1820) + lu(k,1824) = lu(k,1824) * lu(k,1820) + lu(k,1825) = lu(k,1825) * lu(k,1820) + lu(k,1826) = lu(k,1826) * lu(k,1820) + lu(k,1854) = lu(k,1854) - lu(k,1821) * lu(k,1853) + lu(k,1855) = lu(k,1855) - lu(k,1822) * lu(k,1853) + lu(k,1856) = lu(k,1856) - lu(k,1823) * lu(k,1853) + lu(k,1857) = lu(k,1857) - lu(k,1824) * lu(k,1853) + lu(k,1858) = lu(k,1858) - lu(k,1825) * lu(k,1853) + lu(k,1859) = lu(k,1859) - lu(k,1826) * lu(k,1853) + lu(k,1890) = lu(k,1890) - lu(k,1821) * lu(k,1889) + lu(k,1891) = lu(k,1891) - lu(k,1822) * lu(k,1889) + lu(k,1892) = lu(k,1892) - lu(k,1823) * lu(k,1889) + lu(k,1893) = lu(k,1893) - lu(k,1824) * lu(k,1889) + lu(k,1894) = lu(k,1894) - lu(k,1825) * lu(k,1889) + lu(k,1895) = lu(k,1895) - lu(k,1826) * lu(k,1889) + lu(k,1939) = lu(k,1939) - lu(k,1821) * lu(k,1938) + lu(k,1940) = lu(k,1940) - lu(k,1822) * lu(k,1938) + lu(k,1941) = lu(k,1941) - lu(k,1823) * lu(k,1938) + lu(k,1942) = lu(k,1942) - lu(k,1824) * lu(k,1938) + lu(k,1943) = lu(k,1943) - lu(k,1825) * lu(k,1938) + lu(k,1944) = lu(k,1944) - lu(k,1826) * lu(k,1938) + lu(k,1983) = lu(k,1983) - lu(k,1821) * lu(k,1982) + lu(k,1984) = lu(k,1984) - lu(k,1822) * lu(k,1982) + lu(k,1985) = lu(k,1985) - lu(k,1823) * lu(k,1982) + lu(k,1986) = lu(k,1986) - lu(k,1824) * lu(k,1982) + lu(k,1987) = lu(k,1987) - lu(k,1825) * lu(k,1982) + lu(k,1988) = lu(k,1988) - lu(k,1826) * lu(k,1982) + lu(k,2028) = lu(k,2028) - lu(k,1821) * lu(k,2027) + lu(k,2029) = lu(k,2029) - lu(k,1822) * lu(k,2027) + lu(k,2030) = lu(k,2030) - lu(k,1823) * lu(k,2027) + lu(k,2031) = lu(k,2031) - lu(k,1824) * lu(k,2027) + lu(k,2032) = lu(k,2032) - lu(k,1825) * lu(k,2027) + lu(k,2033) = lu(k,2033) - lu(k,1826) * lu(k,2027) + lu(k,2088) = lu(k,2088) - lu(k,1821) * lu(k,2087) + lu(k,2089) = lu(k,2089) - lu(k,1822) * lu(k,2087) + lu(k,2090) = lu(k,2090) - lu(k,1823) * lu(k,2087) + lu(k,2091) = lu(k,2091) - lu(k,1824) * lu(k,2087) + lu(k,2092) = lu(k,2092) - lu(k,1825) * lu(k,2087) + lu(k,2093) = lu(k,2093) - lu(k,1826) * lu(k,2087) + lu(k,1854) = 1._r8 / lu(k,1854) + lu(k,1855) = lu(k,1855) * lu(k,1854) + lu(k,1856) = lu(k,1856) * lu(k,1854) + lu(k,1857) = lu(k,1857) * lu(k,1854) + lu(k,1858) = lu(k,1858) * lu(k,1854) + lu(k,1859) = lu(k,1859) * lu(k,1854) + lu(k,1891) = lu(k,1891) - lu(k,1855) * lu(k,1890) + lu(k,1892) = lu(k,1892) - lu(k,1856) * lu(k,1890) + lu(k,1893) = lu(k,1893) - lu(k,1857) * lu(k,1890) + lu(k,1894) = lu(k,1894) - lu(k,1858) * lu(k,1890) + lu(k,1895) = lu(k,1895) - lu(k,1859) * lu(k,1890) + lu(k,1940) = lu(k,1940) - lu(k,1855) * lu(k,1939) + lu(k,1941) = lu(k,1941) - lu(k,1856) * lu(k,1939) + lu(k,1942) = lu(k,1942) - lu(k,1857) * lu(k,1939) + lu(k,1943) = lu(k,1943) - lu(k,1858) * lu(k,1939) + lu(k,1944) = lu(k,1944) - lu(k,1859) * lu(k,1939) + lu(k,1984) = lu(k,1984) - lu(k,1855) * lu(k,1983) + lu(k,1985) = lu(k,1985) - lu(k,1856) * lu(k,1983) + lu(k,1986) = lu(k,1986) - lu(k,1857) * lu(k,1983) + lu(k,1987) = lu(k,1987) - lu(k,1858) * lu(k,1983) + lu(k,1988) = lu(k,1988) - lu(k,1859) * lu(k,1983) + lu(k,2029) = lu(k,2029) - lu(k,1855) * lu(k,2028) + lu(k,2030) = lu(k,2030) - lu(k,1856) * lu(k,2028) + lu(k,2031) = lu(k,2031) - lu(k,1857) * lu(k,2028) + lu(k,2032) = lu(k,2032) - lu(k,1858) * lu(k,2028) + lu(k,2033) = lu(k,2033) - lu(k,1859) * lu(k,2028) + lu(k,2089) = lu(k,2089) - lu(k,1855) * lu(k,2088) + lu(k,2090) = lu(k,2090) - lu(k,1856) * lu(k,2088) + lu(k,2091) = lu(k,2091) - lu(k,1857) * lu(k,2088) + lu(k,2092) = lu(k,2092) - lu(k,1858) * lu(k,2088) + lu(k,2093) = lu(k,2093) - lu(k,1859) * lu(k,2088) + lu(k,1891) = 1._r8 / lu(k,1891) + lu(k,1892) = lu(k,1892) * lu(k,1891) + lu(k,1893) = lu(k,1893) * lu(k,1891) + lu(k,1894) = lu(k,1894) * lu(k,1891) + lu(k,1895) = lu(k,1895) * lu(k,1891) + lu(k,1941) = lu(k,1941) - lu(k,1892) * lu(k,1940) + lu(k,1942) = lu(k,1942) - lu(k,1893) * lu(k,1940) + lu(k,1943) = lu(k,1943) - lu(k,1894) * lu(k,1940) + lu(k,1944) = lu(k,1944) - lu(k,1895) * lu(k,1940) + lu(k,1985) = lu(k,1985) - lu(k,1892) * lu(k,1984) + lu(k,1986) = lu(k,1986) - lu(k,1893) * lu(k,1984) + lu(k,1987) = lu(k,1987) - lu(k,1894) * lu(k,1984) + lu(k,1988) = lu(k,1988) - lu(k,1895) * lu(k,1984) + lu(k,2030) = lu(k,2030) - lu(k,1892) * lu(k,2029) + lu(k,2031) = lu(k,2031) - lu(k,1893) * lu(k,2029) + lu(k,2032) = lu(k,2032) - lu(k,1894) * lu(k,2029) + lu(k,2033) = lu(k,2033) - lu(k,1895) * lu(k,2029) + lu(k,2090) = lu(k,2090) - lu(k,1892) * lu(k,2089) + lu(k,2091) = lu(k,2091) - lu(k,1893) * lu(k,2089) + lu(k,2092) = lu(k,2092) - lu(k,1894) * lu(k,2089) + lu(k,2093) = lu(k,2093) - lu(k,1895) * lu(k,2089) + lu(k,1941) = 1._r8 / lu(k,1941) + lu(k,1942) = lu(k,1942) * lu(k,1941) + lu(k,1943) = lu(k,1943) * lu(k,1941) + lu(k,1944) = lu(k,1944) * lu(k,1941) + lu(k,1986) = lu(k,1986) - lu(k,1942) * lu(k,1985) + lu(k,1987) = lu(k,1987) - lu(k,1943) * lu(k,1985) + lu(k,1988) = lu(k,1988) - lu(k,1944) * lu(k,1985) + lu(k,2031) = lu(k,2031) - lu(k,1942) * lu(k,2030) + lu(k,2032) = lu(k,2032) - lu(k,1943) * lu(k,2030) + lu(k,2033) = lu(k,2033) - lu(k,1944) * lu(k,2030) + lu(k,2091) = lu(k,2091) - lu(k,1942) * lu(k,2090) + lu(k,2092) = lu(k,2092) - lu(k,1943) * lu(k,2090) + lu(k,2093) = lu(k,2093) - lu(k,1944) * lu(k,2090) + lu(k,1986) = 1._r8 / lu(k,1986) + lu(k,1987) = lu(k,1987) * lu(k,1986) + lu(k,1988) = lu(k,1988) * lu(k,1986) + lu(k,2032) = lu(k,2032) - lu(k,1987) * lu(k,2031) + lu(k,2033) = lu(k,2033) - lu(k,1988) * lu(k,2031) + lu(k,2092) = lu(k,2092) - lu(k,1987) * lu(k,2091) + lu(k,2093) = lu(k,2093) - lu(k,1988) * lu(k,2091) + lu(k,2032) = 1._r8 / lu(k,2032) + lu(k,2033) = lu(k,2033) * lu(k,2032) + lu(k,2093) = lu(k,2093) - lu(k,2033) * lu(k,2092) + lu(k,2093) = 1._r8 / lu(k,2093) end do - end subroutine lu_fac26 + end subroutine lu_fac27 subroutine lu_fac( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 @@ -14260,5 +14300,6 @@ subroutine lu_fac( avec_len, lu ) call lu_fac24( avec_len, lu ) call lu_fac25( avec_len, lu ) call lu_fac26( avec_len, lu ) + call lu_fac27( avec_len, lu ) end subroutine lu_fac end module mo_lu_factor diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_lu_solve.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_lu_solve.F90 index d82dc6a373..6e101f8862 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_lu_solve.F90 @@ -47,7 +47,7 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,108) = b(k,108) - lu(k,58) * b(k,34) b(k,125) = b(k,125) - lu(k,59) * b(k,34) b(k,39) = b(k,39) - lu(k,61) * b(k,35) - b(k,81) = b(k,81) - lu(k,62) * b(k,35) + b(k,80) = b(k,80) - lu(k,62) * b(k,35) b(k,99) = b(k,99) - lu(k,63) * b(k,35) b(k,108) = b(k,108) - lu(k,64) * b(k,35) b(k,39) = b(k,39) - lu(k,66) * b(k,36) @@ -55,43 +55,43 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,108) = b(k,108) - lu(k,68) * b(k,36) b(k,125) = b(k,125) - lu(k,69) * b(k,36) b(k,39) = b(k,39) - lu(k,71) * b(k,37) - b(k,81) = b(k,81) - lu(k,72) * b(k,37) + b(k,80) = b(k,80) - lu(k,72) * b(k,37) b(k,108) = b(k,108) - lu(k,73) * b(k,37) b(k,125) = b(k,125) - lu(k,74) * b(k,37) b(k,125) = b(k,125) - lu(k,76) * b(k,38) - b(k,81) = b(k,81) - lu(k,78) * b(k,39) + b(k,80) = b(k,80) - lu(k,78) * b(k,39) b(k,108) = b(k,108) - lu(k,79) * b(k,39) b(k,41) = b(k,41) - lu(k,81) * b(k,40) b(k,108) = b(k,108) - lu(k,82) * b(k,40) b(k,114) = b(k,114) - lu(k,83) * b(k,40) b(k,125) = b(k,125) - lu(k,84) * b(k,40) - b(k,81) = b(k,81) - lu(k,86) * b(k,41) + b(k,80) = b(k,80) - lu(k,86) * b(k,41) b(k,108) = b(k,108) - lu(k,87) * b(k,41) b(k,125) = b(k,125) - lu(k,88) * b(k,41) - b(k,81) = b(k,81) - lu(k,91) * b(k,42) + b(k,80) = b(k,80) - lu(k,91) * b(k,42) b(k,108) = b(k,108) - lu(k,92) * b(k,42) b(k,114) = b(k,114) - lu(k,93) * b(k,42) b(k,125) = b(k,125) - lu(k,94) * b(k,42) b(k,99) = b(k,99) - lu(k,96) * b(k,43) b(k,125) = b(k,125) - lu(k,97) * b(k,43) b(k,108) = b(k,108) - lu(k,99) * b(k,44) - b(k,124) = b(k,124) - lu(k,100) * b(k,44) + b(k,136) = b(k,136) - lu(k,100) * b(k,44) b(k,137) = b(k,137) - lu(k,101) * b(k,44) b(k,82) = b(k,82) - lu(k,104) * b(k,45) b(k,123) = b(k,123) - lu(k,105) * b(k,45) b(k,139) = b(k,139) - lu(k,106) * b(k,45) - b(k,126) = b(k,126) - lu(k,108) * b(k,46) - b(k,130) = b(k,130) - lu(k,109) * b(k,46) + b(k,121) = b(k,121) - lu(k,108) * b(k,46) + b(k,126) = b(k,126) - lu(k,109) * b(k,46) b(k,139) = b(k,139) - lu(k,110) * b(k,46) - b(k,126) = b(k,126) - lu(k,112) * b(k,47) - b(k,129) = b(k,129) - lu(k,113) * b(k,47) + b(k,124) = b(k,124) - lu(k,112) * b(k,47) + b(k,126) = b(k,126) - lu(k,113) * b(k,47) b(k,139) = b(k,139) - lu(k,114) * b(k,47) - b(k,81) = b(k,81) - lu(k,117) * b(k,48) + b(k,80) = b(k,80) - lu(k,117) * b(k,48) b(k,108) = b(k,108) - lu(k,118) * b(k,48) b(k,114) = b(k,114) - lu(k,119) * b(k,48) b(k,125) = b(k,125) - lu(k,120) * b(k,48) b(k,139) = b(k,139) - lu(k,121) * b(k,48) - b(k,81) = b(k,81) - lu(k,123) * b(k,49) + b(k,80) = b(k,80) - lu(k,123) * b(k,49) b(k,132) = b(k,132) - lu(k,124) * b(k,49) b(k,82) = b(k,82) - lu(k,126) * b(k,50) b(k,112) = b(k,112) - lu(k,127) * b(k,50) @@ -99,7 +99,7 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,126) = b(k,126) - lu(k,129) * b(k,50) b(k,131) = b(k,131) - lu(k,130) * b(k,50) b(k,85) = b(k,85) - lu(k,132) * b(k,51) - b(k,124) = b(k,124) - lu(k,133) * b(k,51) + b(k,136) = b(k,136) - lu(k,133) * b(k,51) b(k,82) = b(k,82) - lu(k,135) * b(k,52) b(k,92) = b(k,92) - lu(k,136) * b(k,52) b(k,117) = b(k,117) - lu(k,137) * b(k,52) @@ -135,14 +135,14 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,139) = b(k,139) - lu(k,172) * b(k,57) b(k,73) = b(k,73) - lu(k,174) * b(k,58) b(k,116) = b(k,116) - lu(k,175) * b(k,58) - b(k,120) = b(k,120) - lu(k,176) * b(k,58) + b(k,129) = b(k,129) - lu(k,176) * b(k,58) b(k,137) = b(k,137) - lu(k,177) * b(k,58) b(k,139) = b(k,139) - lu(k,178) * b(k,58) b(k,112) = b(k,112) - lu(k,180) * b(k,59) b(k,114) = b(k,114) - lu(k,181) * b(k,59) - b(k,124) = b(k,124) - lu(k,182) * b(k,59) - b(k,131) = b(k,131) - lu(k,183) * b(k,59) - b(k,133) = b(k,133) - lu(k,184) * b(k,59) + b(k,131) = b(k,131) - lu(k,182) * b(k,59) + b(k,133) = b(k,133) - lu(k,183) * b(k,59) + b(k,136) = b(k,136) - lu(k,184) * b(k,59) b(k,139) = b(k,139) - lu(k,185) * b(k,59) b(k,99) = b(k,99) - lu(k,187) * b(k,60) b(k,108) = b(k,108) - lu(k,188) * b(k,60) @@ -152,16 +152,16 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,139) = b(k,139) - lu(k,192) * b(k,60) b(k,62) = b(k,62) - lu(k,194) * b(k,61) b(k,66) = b(k,66) - lu(k,195) * b(k,61) - b(k,78) = b(k,78) - lu(k,196) * b(k,61) - b(k,86) = b(k,86) - lu(k,197) * b(k,61) + b(k,77) = b(k,77) - lu(k,196) * b(k,61) + b(k,87) = b(k,87) - lu(k,197) * b(k,61) b(k,123) = b(k,123) - lu(k,198) * b(k,61) b(k,137) = b(k,137) - lu(k,199) * b(k,61) b(k,66) = b(k,66) - lu(k,201) * b(k,62) - b(k,86) = b(k,86) - lu(k,202) * b(k,62) + b(k,87) = b(k,87) - lu(k,202) * b(k,62) b(k,123) = b(k,123) - lu(k,203) * b(k,62) - b(k,124) = b(k,124) - lu(k,204) * b(k,62) - b(k,128) = b(k,128) - lu(k,205) * b(k,62) - b(k,77) = b(k,77) - lu(k,207) * b(k,63) + b(k,128) = b(k,128) - lu(k,204) * b(k,62) + b(k,136) = b(k,136) - lu(k,205) * b(k,62) + b(k,76) = b(k,76) - lu(k,207) * b(k,63) b(k,99) = b(k,99) - lu(k,208) * b(k,63) b(k,106) = b(k,106) - lu(k,209) * b(k,63) b(k,123) = b(k,123) - lu(k,210) * b(k,63) @@ -182,45 +182,45 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,125) = b(k,125) - lu(k,227) * b(k,65) b(k,138) = b(k,138) - lu(k,228) * b(k,65) b(k,139) = b(k,139) - lu(k,229) * b(k,65) - b(k,76) = b(k,76) - lu(k,231) * b(k,66) - b(k,86) = b(k,86) - lu(k,232) * b(k,66) + b(k,81) = b(k,81) - lu(k,231) * b(k,66) + b(k,87) = b(k,87) - lu(k,232) * b(k,66) b(k,90) = b(k,90) - lu(k,233) * b(k,66) b(k,116) = b(k,116) - lu(k,234) * b(k,66) b(k,118) = b(k,118) - lu(k,235) * b(k,66) b(k,123) = b(k,123) - lu(k,236) * b(k,66) - b(k,124) = b(k,124) - lu(k,237) * b(k,66) - b(k,128) = b(k,128) - lu(k,238) * b(k,66) + b(k,128) = b(k,128) - lu(k,237) * b(k,66) + b(k,136) = b(k,136) - lu(k,238) * b(k,66) b(k,100) = b(k,100) - lu(k,240) * b(k,67) b(k,110) = b(k,110) - lu(k,241) * b(k,67) - b(k,121) = b(k,121) - lu(k,242) * b(k,67) - b(k,123) = b(k,123) - lu(k,243) * b(k,67) - b(k,124) = b(k,124) - lu(k,244) * b(k,67) - b(k,127) = b(k,127) - lu(k,245) * b(k,67) + b(k,123) = b(k,123) - lu(k,242) * b(k,67) + b(k,127) = b(k,127) - lu(k,243) * b(k,67) + b(k,130) = b(k,130) - lu(k,244) * b(k,67) + b(k,136) = b(k,136) - lu(k,245) * b(k,67) b(k,74) = b(k,74) - lu(k,247) * b(k,68) b(k,116) = b(k,116) - lu(k,248) * b(k,68) - b(k,120) = b(k,120) - lu(k,249) * b(k,68) + b(k,129) = b(k,129) - lu(k,249) * b(k,68) b(k,132) = b(k,132) - lu(k,250) * b(k,68) b(k,139) = b(k,139) - lu(k,251) * b(k,68) b(k,112) = b(k,112) - lu(k,253) * b(k,69) b(k,114) = b(k,114) - lu(k,254) * b(k,69) - b(k,121) = b(k,121) - lu(k,255) * b(k,69) + b(k,130) = b(k,130) - lu(k,255) * b(k,69) b(k,71) = b(k,71) - lu(k,257) * b(k,70) b(k,116) = b(k,116) - lu(k,258) * b(k,70) b(k,118) = b(k,118) - lu(k,259) * b(k,70) - b(k,121) = b(k,121) - lu(k,260) * b(k,70) - b(k,122) = b(k,122) - lu(k,261) * b(k,70) + b(k,122) = b(k,122) - lu(k,260) * b(k,70) + b(k,130) = b(k,130) - lu(k,261) * b(k,70) b(k,137) = b(k,137) - lu(k,262) * b(k,70) b(k,139) = b(k,139) - lu(k,263) * b(k,70) b(k,116) = b(k,116) - lu(k,265) * b(k,71) b(k,118) = b(k,118) - lu(k,266) * b(k,71) - b(k,121) = b(k,121) - lu(k,267) * b(k,71) - b(k,122) = b(k,122) - lu(k,268) * b(k,71) + b(k,122) = b(k,122) - lu(k,267) * b(k,71) + b(k,130) = b(k,130) - lu(k,268) * b(k,71) b(k,137) = b(k,137) - lu(k,269) * b(k,71) b(k,139) = b(k,139) - lu(k,270) * b(k,71) b(k,92) = b(k,92) - lu(k,272) * b(k,72) b(k,114) = b(k,114) - lu(k,273) * b(k,72) - b(k,123) = b(k,123) - lu(k,274) * b(k,72) - b(k,124) = b(k,124) - lu(k,275) * b(k,72) + b(k,120) = b(k,120) - lu(k,274) * b(k,72) + b(k,123) = b(k,123) - lu(k,275) * b(k,72) b(k,132) = b(k,132) - lu(k,276) * b(k,72) b(k,136) = b(k,136) - lu(k,277) * b(k,72) end do @@ -248,207 +248,208 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,137) = b(k,137) - lu(k,281) * b(k,73) b(k,139) = b(k,139) - lu(k,282) * b(k,73) b(k,116) = b(k,116) - lu(k,285) * b(k,74) - b(k,120) = b(k,120) - lu(k,286) * b(k,74) + b(k,129) = b(k,129) - lu(k,286) * b(k,74) b(k,132) = b(k,132) - lu(k,287) * b(k,74) b(k,139) = b(k,139) - lu(k,288) * b(k,74) b(k,114) = b(k,114) - lu(k,293) * b(k,75) b(k,116) = b(k,116) - lu(k,294) * b(k,75) - b(k,120) = b(k,120) - lu(k,295) * b(k,75) - b(k,124) = b(k,124) - lu(k,296) * b(k,75) - b(k,128) = b(k,128) - lu(k,297) * b(k,75) - b(k,132) = b(k,132) - lu(k,298) * b(k,75) + b(k,128) = b(k,128) - lu(k,295) * b(k,75) + b(k,129) = b(k,129) - lu(k,296) * b(k,75) + b(k,132) = b(k,132) - lu(k,297) * b(k,75) + b(k,136) = b(k,136) - lu(k,298) * b(k,75) b(k,139) = b(k,139) - lu(k,299) * b(k,75) - b(k,78) = b(k,78) - lu(k,301) * b(k,76) - b(k,86) = b(k,86) - lu(k,302) * b(k,76) - b(k,90) = b(k,90) - lu(k,303) * b(k,76) - b(k,108) = b(k,108) - lu(k,304) * b(k,76) + b(k,99) = b(k,99) - lu(k,302) * b(k,76) + b(k,106) = b(k,106) - lu(k,303) * b(k,76) + b(k,114) = b(k,114) - lu(k,304) * b(k,76) b(k,123) = b(k,123) - lu(k,305) * b(k,76) - b(k,124) = b(k,124) - lu(k,306) * b(k,76) - b(k,137) = b(k,137) - lu(k,307) * b(k,76) - b(k,99) = b(k,99) - lu(k,310) * b(k,77) - b(k,106) = b(k,106) - lu(k,311) * b(k,77) - b(k,114) = b(k,114) - lu(k,312) * b(k,77) + b(k,125) = b(k,125) - lu(k,306) * b(k,76) + b(k,138) = b(k,138) - lu(k,307) * b(k,76) + b(k,139) = b(k,139) - lu(k,308) * b(k,76) + b(k,87) = b(k,87) - lu(k,310) * b(k,77) + b(k,90) = b(k,90) - lu(k,311) * b(k,77) + b(k,118) = b(k,118) - lu(k,312) * b(k,77) b(k,123) = b(k,123) - lu(k,313) * b(k,77) - b(k,125) = b(k,125) - lu(k,314) * b(k,77) - b(k,138) = b(k,138) - lu(k,315) * b(k,77) - b(k,139) = b(k,139) - lu(k,316) * b(k,77) - b(k,86) = b(k,86) - lu(k,318) * b(k,78) - b(k,90) = b(k,90) - lu(k,319) * b(k,78) - b(k,118) = b(k,118) - lu(k,320) * b(k,78) + b(k,128) = b(k,128) - lu(k,314) * b(k,77) + b(k,136) = b(k,136) - lu(k,315) * b(k,77) + b(k,99) = b(k,99) - lu(k,317) * b(k,78) + b(k,106) = b(k,106) - lu(k,318) * b(k,78) + b(k,108) = b(k,108) - lu(k,319) * b(k,78) + b(k,114) = b(k,114) - lu(k,320) * b(k,78) b(k,123) = b(k,123) - lu(k,321) * b(k,78) - b(k,124) = b(k,124) - lu(k,322) * b(k,78) - b(k,128) = b(k,128) - lu(k,323) * b(k,78) - b(k,99) = b(k,99) - lu(k,325) * b(k,79) - b(k,106) = b(k,106) - lu(k,326) * b(k,79) - b(k,108) = b(k,108) - lu(k,327) * b(k,79) - b(k,114) = b(k,114) - lu(k,328) * b(k,79) - b(k,123) = b(k,123) - lu(k,329) * b(k,79) - b(k,132) = b(k,132) - lu(k,330) * b(k,79) + b(k,132) = b(k,132) - lu(k,322) * b(k,78) + b(k,139) = b(k,139) - lu(k,323) * b(k,78) + b(k,114) = b(k,114) - lu(k,326) * b(k,79) + b(k,117) = b(k,117) - lu(k,327) * b(k,79) + b(k,123) = b(k,123) - lu(k,328) * b(k,79) + b(k,125) = b(k,125) - lu(k,329) * b(k,79) + b(k,138) = b(k,138) - lu(k,330) * b(k,79) b(k,139) = b(k,139) - lu(k,331) * b(k,79) - b(k,114) = b(k,114) - lu(k,334) * b(k,80) - b(k,117) = b(k,117) - lu(k,335) * b(k,80) - b(k,123) = b(k,123) - lu(k,336) * b(k,80) - b(k,125) = b(k,125) - lu(k,337) * b(k,80) - b(k,138) = b(k,138) - lu(k,338) * b(k,80) - b(k,139) = b(k,139) - lu(k,339) * b(k,80) - b(k,88) = b(k,88) - lu(k,342) * b(k,81) - b(k,89) = b(k,89) - lu(k,343) * b(k,81) - b(k,103) = b(k,103) - lu(k,344) * b(k,81) - b(k,114) = b(k,114) - lu(k,345) * b(k,81) - b(k,126) = b(k,126) - lu(k,346) * b(k,81) - b(k,131) = b(k,131) - lu(k,347) * b(k,81) - b(k,132) = b(k,132) - lu(k,348) * b(k,81) - b(k,139) = b(k,139) - lu(k,349) * b(k,81) - b(k,92) = b(k,92) - lu(k,352) * b(k,82) - b(k,112) = b(k,112) - lu(k,353) * b(k,82) - b(k,114) = b(k,114) - lu(k,354) * b(k,82) - b(k,123) = b(k,123) - lu(k,355) * b(k,82) - b(k,139) = b(k,139) - lu(k,356) * b(k,82) - b(k,114) = b(k,114) - lu(k,360) * b(k,83) - b(k,117) = b(k,117) - lu(k,361) * b(k,83) - b(k,123) = b(k,123) - lu(k,362) * b(k,83) - b(k,125) = b(k,125) - lu(k,363) * b(k,83) - b(k,126) = b(k,126) - lu(k,364) * b(k,83) - b(k,131) = b(k,131) - lu(k,365) * b(k,83) - b(k,133) = b(k,133) - lu(k,366) * b(k,83) - b(k,138) = b(k,138) - lu(k,367) * b(k,83) - b(k,139) = b(k,139) - lu(k,368) * b(k,83) - b(k,109) = b(k,109) - lu(k,370) * b(k,84) - b(k,113) = b(k,113) - lu(k,371) * b(k,84) - b(k,123) = b(k,123) - lu(k,372) * b(k,84) - b(k,124) = b(k,124) - lu(k,373) * b(k,84) - b(k,125) = b(k,125) - lu(k,374) * b(k,84) - b(k,133) = b(k,133) - lu(k,375) * b(k,84) - b(k,137) = b(k,137) - lu(k,376) * b(k,84) - b(k,91) = b(k,91) - lu(k,378) * b(k,85) - b(k,116) = b(k,116) - lu(k,379) * b(k,85) - b(k,124) = b(k,124) - lu(k,380) * b(k,85) - b(k,127) = b(k,127) - lu(k,381) * b(k,85) - b(k,128) = b(k,128) - lu(k,382) * b(k,85) - b(k,135) = b(k,135) - lu(k,383) * b(k,85) - b(k,136) = b(k,136) - lu(k,384) * b(k,85) - b(k,90) = b(k,90) - lu(k,389) * b(k,86) - b(k,108) = b(k,108) - lu(k,390) * b(k,86) - b(k,112) = b(k,112) - lu(k,391) * b(k,86) - b(k,114) = b(k,114) - lu(k,392) * b(k,86) - b(k,118) = b(k,118) - lu(k,393) * b(k,86) - b(k,121) = b(k,121) - lu(k,394) * b(k,86) - b(k,123) = b(k,123) - lu(k,395) * b(k,86) - b(k,124) = b(k,124) - lu(k,396) * b(k,86) - b(k,128) = b(k,128) - lu(k,397) * b(k,86) - b(k,137) = b(k,137) - lu(k,398) * b(k,86) - b(k,101) = b(k,101) - lu(k,402) * b(k,87) - b(k,102) = b(k,102) - lu(k,403) * b(k,87) - b(k,105) = b(k,105) - lu(k,404) * b(k,87) - b(k,123) = b(k,123) - lu(k,405) * b(k,87) - b(k,126) = b(k,126) - lu(k,406) * b(k,87) - b(k,129) = b(k,129) - lu(k,407) * b(k,87) - b(k,130) = b(k,130) - lu(k,408) * b(k,87) - b(k,131) = b(k,131) - lu(k,409) * b(k,87) - b(k,133) = b(k,133) - lu(k,410) * b(k,87) - b(k,137) = b(k,137) - lu(k,411) * b(k,87) - b(k,139) = b(k,139) - lu(k,412) * b(k,87) - b(k,89) = b(k,89) - lu(k,417) * b(k,88) - b(k,103) = b(k,103) - lu(k,418) * b(k,88) - b(k,107) = b(k,107) - lu(k,419) * b(k,88) - b(k,108) = b(k,108) - lu(k,420) * b(k,88) - b(k,112) = b(k,112) - lu(k,421) * b(k,88) - b(k,114) = b(k,114) - lu(k,422) * b(k,88) - b(k,121) = b(k,121) - lu(k,423) * b(k,88) - b(k,123) = b(k,123) - lu(k,424) * b(k,88) - b(k,125) = b(k,125) - lu(k,425) * b(k,88) - b(k,126) = b(k,126) - lu(k,426) * b(k,88) - b(k,131) = b(k,131) - lu(k,427) * b(k,88) - b(k,132) = b(k,132) - lu(k,428) * b(k,88) - b(k,138) = b(k,138) - lu(k,429) * b(k,88) - b(k,139) = b(k,139) - lu(k,430) * b(k,88) - b(k,107) = b(k,107) - lu(k,433) * b(k,89) - b(k,112) = b(k,112) - lu(k,434) * b(k,89) - b(k,114) = b(k,114) - lu(k,435) * b(k,89) - b(k,117) = b(k,117) - lu(k,436) * b(k,89) - b(k,124) = b(k,124) - lu(k,437) * b(k,89) - b(k,125) = b(k,125) - lu(k,438) * b(k,89) - b(k,132) = b(k,132) - lu(k,439) * b(k,89) - b(k,133) = b(k,133) - lu(k,440) * b(k,89) - b(k,137) = b(k,137) - lu(k,441) * b(k,89) - b(k,139) = b(k,139) - lu(k,442) * b(k,89) - b(k,108) = b(k,108) - lu(k,447) * b(k,90) - b(k,112) = b(k,112) - lu(k,448) * b(k,90) - b(k,114) = b(k,114) - lu(k,449) * b(k,90) - b(k,116) = b(k,116) - lu(k,450) * b(k,90) - b(k,118) = b(k,118) - lu(k,451) * b(k,90) - b(k,121) = b(k,121) - lu(k,452) * b(k,90) - b(k,123) = b(k,123) - lu(k,453) * b(k,90) - b(k,124) = b(k,124) - lu(k,454) * b(k,90) + b(k,88) = b(k,88) - lu(k,334) * b(k,80) + b(k,89) = b(k,89) - lu(k,335) * b(k,80) + b(k,103) = b(k,103) - lu(k,336) * b(k,80) + b(k,114) = b(k,114) - lu(k,337) * b(k,80) + b(k,126) = b(k,126) - lu(k,338) * b(k,80) + b(k,131) = b(k,131) - lu(k,339) * b(k,80) + b(k,132) = b(k,132) - lu(k,340) * b(k,80) + b(k,139) = b(k,139) - lu(k,341) * b(k,80) + b(k,87) = b(k,87) - lu(k,344) * b(k,81) + b(k,90) = b(k,90) - lu(k,345) * b(k,81) + b(k,108) = b(k,108) - lu(k,346) * b(k,81) + b(k,118) = b(k,118) - lu(k,347) * b(k,81) + b(k,123) = b(k,123) - lu(k,348) * b(k,81) + b(k,128) = b(k,128) - lu(k,349) * b(k,81) + b(k,136) = b(k,136) - lu(k,350) * b(k,81) + b(k,137) = b(k,137) - lu(k,351) * b(k,81) + b(k,92) = b(k,92) - lu(k,354) * b(k,82) + b(k,112) = b(k,112) - lu(k,355) * b(k,82) + b(k,114) = b(k,114) - lu(k,356) * b(k,82) + b(k,123) = b(k,123) - lu(k,357) * b(k,82) + b(k,139) = b(k,139) - lu(k,358) * b(k,82) + b(k,114) = b(k,114) - lu(k,362) * b(k,83) + b(k,117) = b(k,117) - lu(k,363) * b(k,83) + b(k,123) = b(k,123) - lu(k,364) * b(k,83) + b(k,125) = b(k,125) - lu(k,365) * b(k,83) + b(k,126) = b(k,126) - lu(k,366) * b(k,83) + b(k,131) = b(k,131) - lu(k,367) * b(k,83) + b(k,133) = b(k,133) - lu(k,368) * b(k,83) + b(k,138) = b(k,138) - lu(k,369) * b(k,83) + b(k,139) = b(k,139) - lu(k,370) * b(k,83) + b(k,109) = b(k,109) - lu(k,372) * b(k,84) + b(k,113) = b(k,113) - lu(k,373) * b(k,84) + b(k,123) = b(k,123) - lu(k,374) * b(k,84) + b(k,125) = b(k,125) - lu(k,375) * b(k,84) + b(k,133) = b(k,133) - lu(k,376) * b(k,84) + b(k,136) = b(k,136) - lu(k,377) * b(k,84) + b(k,137) = b(k,137) - lu(k,378) * b(k,84) + b(k,91) = b(k,91) - lu(k,380) * b(k,85) + b(k,116) = b(k,116) - lu(k,381) * b(k,85) + b(k,120) = b(k,120) - lu(k,382) * b(k,85) + b(k,127) = b(k,127) - lu(k,383) * b(k,85) + b(k,128) = b(k,128) - lu(k,384) * b(k,85) + b(k,135) = b(k,135) - lu(k,385) * b(k,85) + b(k,136) = b(k,136) - lu(k,386) * b(k,85) + b(k,101) = b(k,101) - lu(k,390) * b(k,86) + b(k,102) = b(k,102) - lu(k,391) * b(k,86) + b(k,105) = b(k,105) - lu(k,392) * b(k,86) + b(k,121) = b(k,121) - lu(k,393) * b(k,86) + b(k,123) = b(k,123) - lu(k,394) * b(k,86) + b(k,124) = b(k,124) - lu(k,395) * b(k,86) + b(k,126) = b(k,126) - lu(k,396) * b(k,86) + b(k,131) = b(k,131) - lu(k,397) * b(k,86) + b(k,133) = b(k,133) - lu(k,398) * b(k,86) + b(k,137) = b(k,137) - lu(k,399) * b(k,86) + b(k,139) = b(k,139) - lu(k,400) * b(k,86) + b(k,90) = b(k,90) - lu(k,405) * b(k,87) + b(k,108) = b(k,108) - lu(k,406) * b(k,87) + b(k,112) = b(k,112) - lu(k,407) * b(k,87) + b(k,114) = b(k,114) - lu(k,408) * b(k,87) + b(k,118) = b(k,118) - lu(k,409) * b(k,87) + b(k,123) = b(k,123) - lu(k,410) * b(k,87) + b(k,128) = b(k,128) - lu(k,411) * b(k,87) + b(k,130) = b(k,130) - lu(k,412) * b(k,87) + b(k,136) = b(k,136) - lu(k,413) * b(k,87) + b(k,137) = b(k,137) - lu(k,414) * b(k,87) + b(k,89) = b(k,89) - lu(k,419) * b(k,88) + b(k,103) = b(k,103) - lu(k,420) * b(k,88) + b(k,107) = b(k,107) - lu(k,421) * b(k,88) + b(k,108) = b(k,108) - lu(k,422) * b(k,88) + b(k,112) = b(k,112) - lu(k,423) * b(k,88) + b(k,114) = b(k,114) - lu(k,424) * b(k,88) + b(k,123) = b(k,123) - lu(k,425) * b(k,88) + b(k,125) = b(k,125) - lu(k,426) * b(k,88) + b(k,126) = b(k,126) - lu(k,427) * b(k,88) + b(k,130) = b(k,130) - lu(k,428) * b(k,88) + b(k,131) = b(k,131) - lu(k,429) * b(k,88) + b(k,132) = b(k,132) - lu(k,430) * b(k,88) + b(k,138) = b(k,138) - lu(k,431) * b(k,88) + b(k,139) = b(k,139) - lu(k,432) * b(k,88) + b(k,107) = b(k,107) - lu(k,435) * b(k,89) + b(k,112) = b(k,112) - lu(k,436) * b(k,89) + b(k,114) = b(k,114) - lu(k,437) * b(k,89) + b(k,117) = b(k,117) - lu(k,438) * b(k,89) + b(k,125) = b(k,125) - lu(k,439) * b(k,89) + b(k,132) = b(k,132) - lu(k,440) * b(k,89) + b(k,133) = b(k,133) - lu(k,441) * b(k,89) + b(k,136) = b(k,136) - lu(k,442) * b(k,89) + b(k,137) = b(k,137) - lu(k,443) * b(k,89) + b(k,139) = b(k,139) - lu(k,444) * b(k,89) + b(k,108) = b(k,108) - lu(k,449) * b(k,90) + b(k,112) = b(k,112) - lu(k,450) * b(k,90) + b(k,114) = b(k,114) - lu(k,451) * b(k,90) + b(k,116) = b(k,116) - lu(k,452) * b(k,90) + b(k,118) = b(k,118) - lu(k,453) * b(k,90) + b(k,123) = b(k,123) - lu(k,454) * b(k,90) b(k,128) = b(k,128) - lu(k,455) * b(k,90) - b(k,132) = b(k,132) - lu(k,456) * b(k,90) - b(k,133) = b(k,133) - lu(k,457) * b(k,90) - b(k,137) = b(k,137) - lu(k,458) * b(k,90) - b(k,114) = b(k,114) - lu(k,462) * b(k,91) - b(k,116) = b(k,116) - lu(k,463) * b(k,91) - b(k,120) = b(k,120) - lu(k,464) * b(k,91) - b(k,123) = b(k,123) - lu(k,465) * b(k,91) - b(k,124) = b(k,124) - lu(k,466) * b(k,91) - b(k,127) = b(k,127) - lu(k,467) * b(k,91) - b(k,128) = b(k,128) - lu(k,468) * b(k,91) - b(k,132) = b(k,132) - lu(k,469) * b(k,91) - b(k,135) = b(k,135) - lu(k,470) * b(k,91) - b(k,136) = b(k,136) - lu(k,471) * b(k,91) - b(k,139) = b(k,139) - lu(k,472) * b(k,91) - b(k,99) = b(k,99) - lu(k,477) * b(k,92) - b(k,106) = b(k,106) - lu(k,478) * b(k,92) - b(k,112) = b(k,112) - lu(k,479) * b(k,92) - b(k,114) = b(k,114) - lu(k,480) * b(k,92) - b(k,117) = b(k,117) - lu(k,481) * b(k,92) - b(k,123) = b(k,123) - lu(k,482) * b(k,92) - b(k,124) = b(k,124) - lu(k,483) * b(k,92) - b(k,125) = b(k,125) - lu(k,484) * b(k,92) - b(k,132) = b(k,132) - lu(k,485) * b(k,92) - b(k,133) = b(k,133) - lu(k,486) * b(k,92) - b(k,136) = b(k,136) - lu(k,487) * b(k,92) - b(k,137) = b(k,137) - lu(k,488) * b(k,92) - b(k,139) = b(k,139) - lu(k,489) * b(k,92) - b(k,114) = b(k,114) - lu(k,491) * b(k,93) - b(k,118) = b(k,118) - lu(k,492) * b(k,93) - b(k,119) = b(k,119) - lu(k,493) * b(k,93) - b(k,120) = b(k,120) - lu(k,494) * b(k,93) - b(k,121) = b(k,121) - lu(k,495) * b(k,93) - b(k,122) = b(k,122) - lu(k,496) * b(k,93) - b(k,124) = b(k,124) - lu(k,497) * b(k,93) - b(k,128) = b(k,128) - lu(k,498) * b(k,93) - b(k,129) = b(k,129) - lu(k,499) * b(k,93) - b(k,130) = b(k,130) - lu(k,500) * b(k,93) - b(k,132) = b(k,132) - lu(k,501) * b(k,93) - b(k,137) = b(k,137) - lu(k,502) * b(k,93) - b(k,139) = b(k,139) - lu(k,503) * b(k,93) - b(k,104) = b(k,104) - lu(k,505) * b(k,94) - b(k,118) = b(k,118) - lu(k,506) * b(k,94) - b(k,119) = b(k,119) - lu(k,507) * b(k,94) - b(k,120) = b(k,120) - lu(k,508) * b(k,94) - b(k,121) = b(k,121) - lu(k,509) * b(k,94) - b(k,122) = b(k,122) - lu(k,510) * b(k,94) - b(k,123) = b(k,123) - lu(k,511) * b(k,94) - b(k,124) = b(k,124) - lu(k,512) * b(k,94) - b(k,128) = b(k,128) - lu(k,513) * b(k,94) - b(k,129) = b(k,129) - lu(k,514) * b(k,94) - b(k,130) = b(k,130) - lu(k,515) * b(k,94) - b(k,132) = b(k,132) - lu(k,516) * b(k,94) - b(k,137) = b(k,137) - lu(k,517) * b(k,94) - b(k,139) = b(k,139) - lu(k,518) * b(k,94) - b(k,109) = b(k,109) - lu(k,520) * b(k,95) - b(k,118) = b(k,118) - lu(k,521) * b(k,95) - b(k,119) = b(k,119) - lu(k,522) * b(k,95) - b(k,120) = b(k,120) - lu(k,523) * b(k,95) - b(k,122) = b(k,122) - lu(k,524) * b(k,95) - b(k,124) = b(k,124) - lu(k,525) * b(k,95) - b(k,125) = b(k,125) - lu(k,526) * b(k,95) - b(k,128) = b(k,128) - lu(k,527) * b(k,95) - b(k,129) = b(k,129) - lu(k,528) * b(k,95) - b(k,130) = b(k,130) - lu(k,529) * b(k,95) - b(k,132) = b(k,132) - lu(k,530) * b(k,95) - b(k,137) = b(k,137) - lu(k,531) * b(k,95) - b(k,138) = b(k,138) - lu(k,532) * b(k,95) - b(k,139) = b(k,139) - lu(k,533) * b(k,95) + b(k,130) = b(k,130) - lu(k,456) * b(k,90) + b(k,132) = b(k,132) - lu(k,457) * b(k,90) + b(k,133) = b(k,133) - lu(k,458) * b(k,90) + b(k,136) = b(k,136) - lu(k,459) * b(k,90) + b(k,137) = b(k,137) - lu(k,460) * b(k,90) + b(k,114) = b(k,114) - lu(k,464) * b(k,91) + b(k,116) = b(k,116) - lu(k,465) * b(k,91) + b(k,120) = b(k,120) - lu(k,466) * b(k,91) + b(k,123) = b(k,123) - lu(k,467) * b(k,91) + b(k,127) = b(k,127) - lu(k,468) * b(k,91) + b(k,128) = b(k,128) - lu(k,469) * b(k,91) + b(k,129) = b(k,129) - lu(k,470) * b(k,91) + b(k,132) = b(k,132) - lu(k,471) * b(k,91) + b(k,135) = b(k,135) - lu(k,472) * b(k,91) + b(k,136) = b(k,136) - lu(k,473) * b(k,91) + b(k,139) = b(k,139) - lu(k,474) * b(k,91) + b(k,99) = b(k,99) - lu(k,479) * b(k,92) + b(k,106) = b(k,106) - lu(k,480) * b(k,92) + b(k,112) = b(k,112) - lu(k,481) * b(k,92) + b(k,114) = b(k,114) - lu(k,482) * b(k,92) + b(k,117) = b(k,117) - lu(k,483) * b(k,92) + b(k,120) = b(k,120) - lu(k,484) * b(k,92) + b(k,123) = b(k,123) - lu(k,485) * b(k,92) + b(k,125) = b(k,125) - lu(k,486) * b(k,92) + b(k,132) = b(k,132) - lu(k,487) * b(k,92) + b(k,133) = b(k,133) - lu(k,488) * b(k,92) + b(k,136) = b(k,136) - lu(k,489) * b(k,92) + b(k,137) = b(k,137) - lu(k,490) * b(k,92) + b(k,139) = b(k,139) - lu(k,491) * b(k,92) + b(k,114) = b(k,114) - lu(k,493) * b(k,93) + b(k,118) = b(k,118) - lu(k,494) * b(k,93) + b(k,119) = b(k,119) - lu(k,495) * b(k,93) + b(k,121) = b(k,121) - lu(k,496) * b(k,93) + b(k,122) = b(k,122) - lu(k,497) * b(k,93) + b(k,124) = b(k,124) - lu(k,498) * b(k,93) + b(k,128) = b(k,128) - lu(k,499) * b(k,93) + b(k,129) = b(k,129) - lu(k,500) * b(k,93) + b(k,130) = b(k,130) - lu(k,501) * b(k,93) + b(k,132) = b(k,132) - lu(k,502) * b(k,93) + b(k,136) = b(k,136) - lu(k,503) * b(k,93) + b(k,137) = b(k,137) - lu(k,504) * b(k,93) + b(k,139) = b(k,139) - lu(k,505) * b(k,93) + b(k,104) = b(k,104) - lu(k,507) * b(k,94) + b(k,118) = b(k,118) - lu(k,508) * b(k,94) + b(k,119) = b(k,119) - lu(k,509) * b(k,94) + b(k,121) = b(k,121) - lu(k,510) * b(k,94) + b(k,122) = b(k,122) - lu(k,511) * b(k,94) + b(k,123) = b(k,123) - lu(k,512) * b(k,94) + b(k,124) = b(k,124) - lu(k,513) * b(k,94) + b(k,128) = b(k,128) - lu(k,514) * b(k,94) + b(k,129) = b(k,129) - lu(k,515) * b(k,94) + b(k,130) = b(k,130) - lu(k,516) * b(k,94) + b(k,132) = b(k,132) - lu(k,517) * b(k,94) + b(k,136) = b(k,136) - lu(k,518) * b(k,94) + b(k,137) = b(k,137) - lu(k,519) * b(k,94) + b(k,139) = b(k,139) - lu(k,520) * b(k,94) + b(k,109) = b(k,109) - lu(k,522) * b(k,95) + b(k,118) = b(k,118) - lu(k,523) * b(k,95) + b(k,119) = b(k,119) - lu(k,524) * b(k,95) + b(k,121) = b(k,121) - lu(k,525) * b(k,95) + b(k,122) = b(k,122) - lu(k,526) * b(k,95) + b(k,124) = b(k,124) - lu(k,527) * b(k,95) + b(k,125) = b(k,125) - lu(k,528) * b(k,95) + b(k,128) = b(k,128) - lu(k,529) * b(k,95) + b(k,129) = b(k,129) - lu(k,530) * b(k,95) + b(k,132) = b(k,132) - lu(k,531) * b(k,95) + b(k,136) = b(k,136) - lu(k,532) * b(k,95) + b(k,137) = b(k,137) - lu(k,533) * b(k,95) + b(k,138) = b(k,138) - lu(k,534) * b(k,95) + b(k,139) = b(k,139) - lu(k,535) * b(k,95) end do end subroutine lu_slv02 subroutine lu_slv03( avec_len, lu, b ) @@ -469,213 +470,213 @@ subroutine lu_slv03( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,109) = b(k,109) - lu(k,536) * b(k,96) - b(k,118) = b(k,118) - lu(k,537) * b(k,96) - b(k,119) = b(k,119) - lu(k,538) * b(k,96) - b(k,120) = b(k,120) - lu(k,539) * b(k,96) - b(k,122) = b(k,122) - lu(k,540) * b(k,96) - b(k,124) = b(k,124) - lu(k,541) * b(k,96) - b(k,125) = b(k,125) - lu(k,542) * b(k,96) - b(k,128) = b(k,128) - lu(k,543) * b(k,96) - b(k,129) = b(k,129) - lu(k,544) * b(k,96) - b(k,130) = b(k,130) - lu(k,545) * b(k,96) - b(k,132) = b(k,132) - lu(k,546) * b(k,96) - b(k,137) = b(k,137) - lu(k,547) * b(k,96) - b(k,138) = b(k,138) - lu(k,548) * b(k,96) - b(k,139) = b(k,139) - lu(k,549) * b(k,96) - b(k,113) = b(k,113) - lu(k,551) * b(k,97) - b(k,118) = b(k,118) - lu(k,552) * b(k,97) - b(k,119) = b(k,119) - lu(k,553) * b(k,97) - b(k,120) = b(k,120) - lu(k,554) * b(k,97) - b(k,122) = b(k,122) - lu(k,555) * b(k,97) - b(k,124) = b(k,124) - lu(k,556) * b(k,97) - b(k,128) = b(k,128) - lu(k,557) * b(k,97) - b(k,129) = b(k,129) - lu(k,558) * b(k,97) - b(k,130) = b(k,130) - lu(k,559) * b(k,97) - b(k,132) = b(k,132) - lu(k,560) * b(k,97) - b(k,133) = b(k,133) - lu(k,561) * b(k,97) - b(k,137) = b(k,137) - lu(k,562) * b(k,97) - b(k,139) = b(k,139) - lu(k,563) * b(k,97) - b(k,101) = b(k,101) - lu(k,565) * b(k,98) - b(k,118) = b(k,118) - lu(k,566) * b(k,98) - b(k,119) = b(k,119) - lu(k,567) * b(k,98) - b(k,120) = b(k,120) - lu(k,568) * b(k,98) - b(k,122) = b(k,122) - lu(k,569) * b(k,98) - b(k,124) = b(k,124) - lu(k,570) * b(k,98) - b(k,126) = b(k,126) - lu(k,571) * b(k,98) - b(k,128) = b(k,128) - lu(k,572) * b(k,98) - b(k,129) = b(k,129) - lu(k,573) * b(k,98) - b(k,130) = b(k,130) - lu(k,574) * b(k,98) - b(k,131) = b(k,131) - lu(k,575) * b(k,98) - b(k,132) = b(k,132) - lu(k,576) * b(k,98) - b(k,137) = b(k,137) - lu(k,577) * b(k,98) - b(k,138) = b(k,138) - lu(k,578) * b(k,98) - b(k,139) = b(k,139) - lu(k,579) * b(k,98) - b(k,106) = b(k,106) - lu(k,583) * b(k,99) - b(k,107) = b(k,107) - lu(k,584) * b(k,99) - b(k,108) = b(k,108) - lu(k,585) * b(k,99) - b(k,112) = b(k,112) - lu(k,586) * b(k,99) - b(k,114) = b(k,114) - lu(k,587) * b(k,99) - b(k,121) = b(k,121) - lu(k,588) * b(k,99) - b(k,123) = b(k,123) - lu(k,589) * b(k,99) - b(k,124) = b(k,124) - lu(k,590) * b(k,99) - b(k,132) = b(k,132) - lu(k,591) * b(k,99) - b(k,136) = b(k,136) - lu(k,592) * b(k,99) - b(k,139) = b(k,139) - lu(k,593) * b(k,99) - b(k,111) = b(k,111) - lu(k,595) * b(k,100) - b(k,113) = b(k,113) - lu(k,596) * b(k,100) - b(k,115) = b(k,115) - lu(k,597) * b(k,100) - b(k,116) = b(k,116) - lu(k,598) * b(k,100) - b(k,121) = b(k,121) - lu(k,599) * b(k,100) - b(k,123) = b(k,123) - lu(k,600) * b(k,100) - b(k,124) = b(k,124) - lu(k,601) * b(k,100) - b(k,127) = b(k,127) - lu(k,602) * b(k,100) - b(k,132) = b(k,132) - lu(k,603) * b(k,100) - b(k,133) = b(k,133) - lu(k,604) * b(k,100) - b(k,134) = b(k,134) - lu(k,605) * b(k,100) - b(k,135) = b(k,135) - lu(k,606) * b(k,100) - b(k,136) = b(k,136) - lu(k,607) * b(k,100) - b(k,137) = b(k,137) - lu(k,608) * b(k,100) - b(k,111) = b(k,111) - lu(k,610) * b(k,101) - b(k,118) = b(k,118) - lu(k,611) * b(k,101) - b(k,119) = b(k,119) - lu(k,612) * b(k,101) - b(k,120) = b(k,120) - lu(k,613) * b(k,101) - b(k,122) = b(k,122) - lu(k,614) * b(k,101) - b(k,124) = b(k,124) - lu(k,615) * b(k,101) - b(k,126) = b(k,126) - lu(k,616) * b(k,101) - b(k,128) = b(k,128) - lu(k,617) * b(k,101) - b(k,129) = b(k,129) - lu(k,618) * b(k,101) - b(k,130) = b(k,130) - lu(k,619) * b(k,101) - b(k,131) = b(k,131) - lu(k,620) * b(k,101) - b(k,137) = b(k,137) - lu(k,621) * b(k,101) - b(k,139) = b(k,139) - lu(k,622) * b(k,101) - b(k,105) = b(k,105) - lu(k,626) * b(k,102) - b(k,111) = b(k,111) - lu(k,627) * b(k,102) - b(k,118) = b(k,118) - lu(k,628) * b(k,102) - b(k,119) = b(k,119) - lu(k,629) * b(k,102) - b(k,120) = b(k,120) - lu(k,630) * b(k,102) - b(k,122) = b(k,122) - lu(k,631) * b(k,102) - b(k,123) = b(k,123) - lu(k,632) * b(k,102) - b(k,124) = b(k,124) - lu(k,633) * b(k,102) - b(k,126) = b(k,126) - lu(k,634) * b(k,102) - b(k,128) = b(k,128) - lu(k,635) * b(k,102) - b(k,129) = b(k,129) - lu(k,636) * b(k,102) - b(k,130) = b(k,130) - lu(k,637) * b(k,102) - b(k,131) = b(k,131) - lu(k,638) * b(k,102) - b(k,132) = b(k,132) - lu(k,639) * b(k,102) - b(k,133) = b(k,133) - lu(k,640) * b(k,102) - b(k,137) = b(k,137) - lu(k,641) * b(k,102) - b(k,139) = b(k,139) - lu(k,642) * b(k,102) - b(k,107) = b(k,107) - lu(k,648) * b(k,103) - b(k,108) = b(k,108) - lu(k,649) * b(k,103) - b(k,112) = b(k,112) - lu(k,650) * b(k,103) - b(k,114) = b(k,114) - lu(k,651) * b(k,103) - b(k,116) = b(k,116) - lu(k,652) * b(k,103) - b(k,117) = b(k,117) - lu(k,653) * b(k,103) - b(k,121) = b(k,121) - lu(k,654) * b(k,103) - b(k,123) = b(k,123) - lu(k,655) * b(k,103) - b(k,124) = b(k,124) - lu(k,656) * b(k,103) + b(k,109) = b(k,109) - lu(k,538) * b(k,96) + b(k,118) = b(k,118) - lu(k,539) * b(k,96) + b(k,119) = b(k,119) - lu(k,540) * b(k,96) + b(k,121) = b(k,121) - lu(k,541) * b(k,96) + b(k,122) = b(k,122) - lu(k,542) * b(k,96) + b(k,124) = b(k,124) - lu(k,543) * b(k,96) + b(k,125) = b(k,125) - lu(k,544) * b(k,96) + b(k,128) = b(k,128) - lu(k,545) * b(k,96) + b(k,129) = b(k,129) - lu(k,546) * b(k,96) + b(k,132) = b(k,132) - lu(k,547) * b(k,96) + b(k,136) = b(k,136) - lu(k,548) * b(k,96) + b(k,137) = b(k,137) - lu(k,549) * b(k,96) + b(k,138) = b(k,138) - lu(k,550) * b(k,96) + b(k,139) = b(k,139) - lu(k,551) * b(k,96) + b(k,113) = b(k,113) - lu(k,553) * b(k,97) + b(k,118) = b(k,118) - lu(k,554) * b(k,97) + b(k,119) = b(k,119) - lu(k,555) * b(k,97) + b(k,121) = b(k,121) - lu(k,556) * b(k,97) + b(k,122) = b(k,122) - lu(k,557) * b(k,97) + b(k,124) = b(k,124) - lu(k,558) * b(k,97) + b(k,128) = b(k,128) - lu(k,559) * b(k,97) + b(k,129) = b(k,129) - lu(k,560) * b(k,97) + b(k,132) = b(k,132) - lu(k,561) * b(k,97) + b(k,133) = b(k,133) - lu(k,562) * b(k,97) + b(k,136) = b(k,136) - lu(k,563) * b(k,97) + b(k,137) = b(k,137) - lu(k,564) * b(k,97) + b(k,139) = b(k,139) - lu(k,565) * b(k,97) + b(k,101) = b(k,101) - lu(k,567) * b(k,98) + b(k,118) = b(k,118) - lu(k,568) * b(k,98) + b(k,119) = b(k,119) - lu(k,569) * b(k,98) + b(k,121) = b(k,121) - lu(k,570) * b(k,98) + b(k,122) = b(k,122) - lu(k,571) * b(k,98) + b(k,124) = b(k,124) - lu(k,572) * b(k,98) + b(k,126) = b(k,126) - lu(k,573) * b(k,98) + b(k,128) = b(k,128) - lu(k,574) * b(k,98) + b(k,129) = b(k,129) - lu(k,575) * b(k,98) + b(k,131) = b(k,131) - lu(k,576) * b(k,98) + b(k,132) = b(k,132) - lu(k,577) * b(k,98) + b(k,136) = b(k,136) - lu(k,578) * b(k,98) + b(k,137) = b(k,137) - lu(k,579) * b(k,98) + b(k,138) = b(k,138) - lu(k,580) * b(k,98) + b(k,139) = b(k,139) - lu(k,581) * b(k,98) + b(k,106) = b(k,106) - lu(k,585) * b(k,99) + b(k,107) = b(k,107) - lu(k,586) * b(k,99) + b(k,108) = b(k,108) - lu(k,587) * b(k,99) + b(k,112) = b(k,112) - lu(k,588) * b(k,99) + b(k,114) = b(k,114) - lu(k,589) * b(k,99) + b(k,120) = b(k,120) - lu(k,590) * b(k,99) + b(k,123) = b(k,123) - lu(k,591) * b(k,99) + b(k,130) = b(k,130) - lu(k,592) * b(k,99) + b(k,132) = b(k,132) - lu(k,593) * b(k,99) + b(k,136) = b(k,136) - lu(k,594) * b(k,99) + b(k,139) = b(k,139) - lu(k,595) * b(k,99) + b(k,111) = b(k,111) - lu(k,597) * b(k,100) + b(k,113) = b(k,113) - lu(k,598) * b(k,100) + b(k,115) = b(k,115) - lu(k,599) * b(k,100) + b(k,116) = b(k,116) - lu(k,600) * b(k,100) + b(k,120) = b(k,120) - lu(k,601) * b(k,100) + b(k,123) = b(k,123) - lu(k,602) * b(k,100) + b(k,127) = b(k,127) - lu(k,603) * b(k,100) + b(k,130) = b(k,130) - lu(k,604) * b(k,100) + b(k,132) = b(k,132) - lu(k,605) * b(k,100) + b(k,133) = b(k,133) - lu(k,606) * b(k,100) + b(k,134) = b(k,134) - lu(k,607) * b(k,100) + b(k,135) = b(k,135) - lu(k,608) * b(k,100) + b(k,136) = b(k,136) - lu(k,609) * b(k,100) + b(k,137) = b(k,137) - lu(k,610) * b(k,100) + b(k,111) = b(k,111) - lu(k,612) * b(k,101) + b(k,118) = b(k,118) - lu(k,613) * b(k,101) + b(k,119) = b(k,119) - lu(k,614) * b(k,101) + b(k,121) = b(k,121) - lu(k,615) * b(k,101) + b(k,122) = b(k,122) - lu(k,616) * b(k,101) + b(k,124) = b(k,124) - lu(k,617) * b(k,101) + b(k,126) = b(k,126) - lu(k,618) * b(k,101) + b(k,128) = b(k,128) - lu(k,619) * b(k,101) + b(k,129) = b(k,129) - lu(k,620) * b(k,101) + b(k,131) = b(k,131) - lu(k,621) * b(k,101) + b(k,136) = b(k,136) - lu(k,622) * b(k,101) + b(k,137) = b(k,137) - lu(k,623) * b(k,101) + b(k,139) = b(k,139) - lu(k,624) * b(k,101) + b(k,105) = b(k,105) - lu(k,628) * b(k,102) + b(k,111) = b(k,111) - lu(k,629) * b(k,102) + b(k,118) = b(k,118) - lu(k,630) * b(k,102) + b(k,119) = b(k,119) - lu(k,631) * b(k,102) + b(k,121) = b(k,121) - lu(k,632) * b(k,102) + b(k,122) = b(k,122) - lu(k,633) * b(k,102) + b(k,123) = b(k,123) - lu(k,634) * b(k,102) + b(k,124) = b(k,124) - lu(k,635) * b(k,102) + b(k,126) = b(k,126) - lu(k,636) * b(k,102) + b(k,128) = b(k,128) - lu(k,637) * b(k,102) + b(k,129) = b(k,129) - lu(k,638) * b(k,102) + b(k,131) = b(k,131) - lu(k,639) * b(k,102) + b(k,132) = b(k,132) - lu(k,640) * b(k,102) + b(k,133) = b(k,133) - lu(k,641) * b(k,102) + b(k,136) = b(k,136) - lu(k,642) * b(k,102) + b(k,137) = b(k,137) - lu(k,643) * b(k,102) + b(k,139) = b(k,139) - lu(k,644) * b(k,102) + b(k,107) = b(k,107) - lu(k,650) * b(k,103) + b(k,108) = b(k,108) - lu(k,651) * b(k,103) + b(k,112) = b(k,112) - lu(k,652) * b(k,103) + b(k,114) = b(k,114) - lu(k,653) * b(k,103) + b(k,116) = b(k,116) - lu(k,654) * b(k,103) + b(k,117) = b(k,117) - lu(k,655) * b(k,103) + b(k,123) = b(k,123) - lu(k,656) * b(k,103) b(k,125) = b(k,125) - lu(k,657) * b(k,103) b(k,126) = b(k,126) - lu(k,658) * b(k,103) - b(k,131) = b(k,131) - lu(k,659) * b(k,103) - b(k,132) = b(k,132) - lu(k,660) * b(k,103) - b(k,133) = b(k,133) - lu(k,661) * b(k,103) - b(k,134) = b(k,134) - lu(k,662) * b(k,103) - b(k,135) = b(k,135) - lu(k,663) * b(k,103) - b(k,137) = b(k,137) - lu(k,664) * b(k,103) - b(k,138) = b(k,138) - lu(k,665) * b(k,103) - b(k,139) = b(k,139) - lu(k,666) * b(k,103) - b(k,105) = b(k,105) - lu(k,670) * b(k,104) - b(k,111) = b(k,111) - lu(k,671) * b(k,104) - b(k,113) = b(k,113) - lu(k,672) * b(k,104) - b(k,115) = b(k,115) - lu(k,673) * b(k,104) - b(k,118) = b(k,118) - lu(k,674) * b(k,104) - b(k,119) = b(k,119) - lu(k,675) * b(k,104) - b(k,120) = b(k,120) - lu(k,676) * b(k,104) - b(k,121) = b(k,121) - lu(k,677) * b(k,104) - b(k,122) = b(k,122) - lu(k,678) * b(k,104) - b(k,123) = b(k,123) - lu(k,679) * b(k,104) - b(k,124) = b(k,124) - lu(k,680) * b(k,104) - b(k,128) = b(k,128) - lu(k,681) * b(k,104) - b(k,129) = b(k,129) - lu(k,682) * b(k,104) - b(k,130) = b(k,130) - lu(k,683) * b(k,104) - b(k,132) = b(k,132) - lu(k,684) * b(k,104) - b(k,133) = b(k,133) - lu(k,685) * b(k,104) - b(k,137) = b(k,137) - lu(k,686) * b(k,104) - b(k,139) = b(k,139) - lu(k,687) * b(k,104) - b(k,111) = b(k,111) - lu(k,692) * b(k,105) - b(k,118) = b(k,118) - lu(k,693) * b(k,105) - b(k,119) = b(k,119) - lu(k,694) * b(k,105) - b(k,120) = b(k,120) - lu(k,695) * b(k,105) - b(k,122) = b(k,122) - lu(k,696) * b(k,105) - b(k,123) = b(k,123) - lu(k,697) * b(k,105) - b(k,124) = b(k,124) - lu(k,698) * b(k,105) - b(k,126) = b(k,126) - lu(k,699) * b(k,105) - b(k,128) = b(k,128) - lu(k,700) * b(k,105) - b(k,129) = b(k,129) - lu(k,701) * b(k,105) - b(k,130) = b(k,130) - lu(k,702) * b(k,105) - b(k,131) = b(k,131) - lu(k,703) * b(k,105) - b(k,132) = b(k,132) - lu(k,704) * b(k,105) - b(k,133) = b(k,133) - lu(k,705) * b(k,105) - b(k,137) = b(k,137) - lu(k,706) * b(k,105) - b(k,139) = b(k,139) - lu(k,707) * b(k,105) - b(k,107) = b(k,107) - lu(k,716) * b(k,106) - b(k,108) = b(k,108) - lu(k,717) * b(k,106) - b(k,112) = b(k,112) - lu(k,718) * b(k,106) - b(k,114) = b(k,114) - lu(k,719) * b(k,106) - b(k,117) = b(k,117) - lu(k,720) * b(k,106) - b(k,121) = b(k,121) - lu(k,721) * b(k,106) - b(k,123) = b(k,123) - lu(k,722) * b(k,106) - b(k,124) = b(k,124) - lu(k,723) * b(k,106) - b(k,125) = b(k,125) - lu(k,724) * b(k,106) - b(k,126) = b(k,126) - lu(k,725) * b(k,106) - b(k,131) = b(k,131) - lu(k,726) * b(k,106) - b(k,132) = b(k,132) - lu(k,727) * b(k,106) - b(k,133) = b(k,133) - lu(k,728) * b(k,106) - b(k,136) = b(k,136) - lu(k,729) * b(k,106) - b(k,137) = b(k,137) - lu(k,730) * b(k,106) - b(k,138) = b(k,138) - lu(k,731) * b(k,106) - b(k,139) = b(k,139) - lu(k,732) * b(k,106) - b(k,108) = b(k,108) - lu(k,739) * b(k,107) - b(k,112) = b(k,112) - lu(k,740) * b(k,107) - b(k,114) = b(k,114) - lu(k,741) * b(k,107) - b(k,116) = b(k,116) - lu(k,742) * b(k,107) - b(k,117) = b(k,117) - lu(k,743) * b(k,107) - b(k,121) = b(k,121) - lu(k,744) * b(k,107) - b(k,123) = b(k,123) - lu(k,745) * b(k,107) - b(k,124) = b(k,124) - lu(k,746) * b(k,107) - b(k,125) = b(k,125) - lu(k,747) * b(k,107) - b(k,126) = b(k,126) - lu(k,748) * b(k,107) - b(k,131) = b(k,131) - lu(k,749) * b(k,107) - b(k,132) = b(k,132) - lu(k,750) * b(k,107) - b(k,133) = b(k,133) - lu(k,751) * b(k,107) - b(k,134) = b(k,134) - lu(k,752) * b(k,107) - b(k,135) = b(k,135) - lu(k,753) * b(k,107) - b(k,136) = b(k,136) - lu(k,754) * b(k,107) - b(k,137) = b(k,137) - lu(k,755) * b(k,107) - b(k,138) = b(k,138) - lu(k,756) * b(k,107) - b(k,139) = b(k,139) - lu(k,757) * b(k,107) - b(k,112) = b(k,112) - lu(k,788) * b(k,108) - b(k,114) = b(k,114) - lu(k,789) * b(k,108) - b(k,116) = b(k,116) - lu(k,790) * b(k,108) - b(k,117) = b(k,117) - lu(k,791) * b(k,108) - b(k,120) = b(k,120) - lu(k,792) * b(k,108) - b(k,121) = b(k,121) - lu(k,793) * b(k,108) - b(k,123) = b(k,123) - lu(k,794) * b(k,108) - b(k,124) = b(k,124) - lu(k,795) * b(k,108) + b(k,130) = b(k,130) - lu(k,659) * b(k,103) + b(k,131) = b(k,131) - lu(k,660) * b(k,103) + b(k,132) = b(k,132) - lu(k,661) * b(k,103) + b(k,133) = b(k,133) - lu(k,662) * b(k,103) + b(k,134) = b(k,134) - lu(k,663) * b(k,103) + b(k,135) = b(k,135) - lu(k,664) * b(k,103) + b(k,136) = b(k,136) - lu(k,665) * b(k,103) + b(k,137) = b(k,137) - lu(k,666) * b(k,103) + b(k,138) = b(k,138) - lu(k,667) * b(k,103) + b(k,139) = b(k,139) - lu(k,668) * b(k,103) + b(k,105) = b(k,105) - lu(k,672) * b(k,104) + b(k,111) = b(k,111) - lu(k,673) * b(k,104) + b(k,113) = b(k,113) - lu(k,674) * b(k,104) + b(k,115) = b(k,115) - lu(k,675) * b(k,104) + b(k,118) = b(k,118) - lu(k,676) * b(k,104) + b(k,119) = b(k,119) - lu(k,677) * b(k,104) + b(k,121) = b(k,121) - lu(k,678) * b(k,104) + b(k,122) = b(k,122) - lu(k,679) * b(k,104) + b(k,123) = b(k,123) - lu(k,680) * b(k,104) + b(k,124) = b(k,124) - lu(k,681) * b(k,104) + b(k,128) = b(k,128) - lu(k,682) * b(k,104) + b(k,129) = b(k,129) - lu(k,683) * b(k,104) + b(k,130) = b(k,130) - lu(k,684) * b(k,104) + b(k,132) = b(k,132) - lu(k,685) * b(k,104) + b(k,133) = b(k,133) - lu(k,686) * b(k,104) + b(k,136) = b(k,136) - lu(k,687) * b(k,104) + b(k,137) = b(k,137) - lu(k,688) * b(k,104) + b(k,139) = b(k,139) - lu(k,689) * b(k,104) + b(k,111) = b(k,111) - lu(k,694) * b(k,105) + b(k,118) = b(k,118) - lu(k,695) * b(k,105) + b(k,119) = b(k,119) - lu(k,696) * b(k,105) + b(k,121) = b(k,121) - lu(k,697) * b(k,105) + b(k,122) = b(k,122) - lu(k,698) * b(k,105) + b(k,123) = b(k,123) - lu(k,699) * b(k,105) + b(k,124) = b(k,124) - lu(k,700) * b(k,105) + b(k,126) = b(k,126) - lu(k,701) * b(k,105) + b(k,128) = b(k,128) - lu(k,702) * b(k,105) + b(k,129) = b(k,129) - lu(k,703) * b(k,105) + b(k,131) = b(k,131) - lu(k,704) * b(k,105) + b(k,132) = b(k,132) - lu(k,705) * b(k,105) + b(k,133) = b(k,133) - lu(k,706) * b(k,105) + b(k,136) = b(k,136) - lu(k,707) * b(k,105) + b(k,137) = b(k,137) - lu(k,708) * b(k,105) + b(k,139) = b(k,139) - lu(k,709) * b(k,105) + b(k,107) = b(k,107) - lu(k,718) * b(k,106) + b(k,108) = b(k,108) - lu(k,719) * b(k,106) + b(k,112) = b(k,112) - lu(k,720) * b(k,106) + b(k,114) = b(k,114) - lu(k,721) * b(k,106) + b(k,117) = b(k,117) - lu(k,722) * b(k,106) + b(k,120) = b(k,120) - lu(k,723) * b(k,106) + b(k,123) = b(k,123) - lu(k,724) * b(k,106) + b(k,125) = b(k,125) - lu(k,725) * b(k,106) + b(k,126) = b(k,126) - lu(k,726) * b(k,106) + b(k,130) = b(k,130) - lu(k,727) * b(k,106) + b(k,131) = b(k,131) - lu(k,728) * b(k,106) + b(k,132) = b(k,132) - lu(k,729) * b(k,106) + b(k,133) = b(k,133) - lu(k,730) * b(k,106) + b(k,136) = b(k,136) - lu(k,731) * b(k,106) + b(k,137) = b(k,137) - lu(k,732) * b(k,106) + b(k,138) = b(k,138) - lu(k,733) * b(k,106) + b(k,139) = b(k,139) - lu(k,734) * b(k,106) + b(k,108) = b(k,108) - lu(k,741) * b(k,107) + b(k,112) = b(k,112) - lu(k,742) * b(k,107) + b(k,114) = b(k,114) - lu(k,743) * b(k,107) + b(k,116) = b(k,116) - lu(k,744) * b(k,107) + b(k,117) = b(k,117) - lu(k,745) * b(k,107) + b(k,120) = b(k,120) - lu(k,746) * b(k,107) + b(k,123) = b(k,123) - lu(k,747) * b(k,107) + b(k,125) = b(k,125) - lu(k,748) * b(k,107) + b(k,126) = b(k,126) - lu(k,749) * b(k,107) + b(k,130) = b(k,130) - lu(k,750) * b(k,107) + b(k,131) = b(k,131) - lu(k,751) * b(k,107) + b(k,132) = b(k,132) - lu(k,752) * b(k,107) + b(k,133) = b(k,133) - lu(k,753) * b(k,107) + b(k,134) = b(k,134) - lu(k,754) * b(k,107) + b(k,135) = b(k,135) - lu(k,755) * b(k,107) + b(k,136) = b(k,136) - lu(k,756) * b(k,107) + b(k,137) = b(k,137) - lu(k,757) * b(k,107) + b(k,138) = b(k,138) - lu(k,758) * b(k,107) + b(k,139) = b(k,139) - lu(k,759) * b(k,107) + b(k,112) = b(k,112) - lu(k,790) * b(k,108) + b(k,114) = b(k,114) - lu(k,791) * b(k,108) + b(k,116) = b(k,116) - lu(k,792) * b(k,108) + b(k,117) = b(k,117) - lu(k,793) * b(k,108) + b(k,120) = b(k,120) - lu(k,794) * b(k,108) + b(k,123) = b(k,123) - lu(k,795) * b(k,108) b(k,125) = b(k,125) - lu(k,796) * b(k,108) b(k,126) = b(k,126) - lu(k,797) * b(k,108) b(k,127) = b(k,127) - lu(k,798) * b(k,108) b(k,128) = b(k,128) - lu(k,799) * b(k,108) - b(k,131) = b(k,131) - lu(k,800) * b(k,108) - b(k,132) = b(k,132) - lu(k,801) * b(k,108) - b(k,133) = b(k,133) - lu(k,802) * b(k,108) - b(k,134) = b(k,134) - lu(k,803) * b(k,108) - b(k,135) = b(k,135) - lu(k,804) * b(k,108) - b(k,136) = b(k,136) - lu(k,805) * b(k,108) - b(k,137) = b(k,137) - lu(k,806) * b(k,108) - b(k,138) = b(k,138) - lu(k,807) * b(k,108) - b(k,139) = b(k,139) - lu(k,808) * b(k,108) + b(k,129) = b(k,129) - lu(k,800) * b(k,108) + b(k,130) = b(k,130) - lu(k,801) * b(k,108) + b(k,131) = b(k,131) - lu(k,802) * b(k,108) + b(k,132) = b(k,132) - lu(k,803) * b(k,108) + b(k,133) = b(k,133) - lu(k,804) * b(k,108) + b(k,134) = b(k,134) - lu(k,805) * b(k,108) + b(k,135) = b(k,135) - lu(k,806) * b(k,108) + b(k,136) = b(k,136) - lu(k,807) * b(k,108) + b(k,137) = b(k,137) - lu(k,808) * b(k,108) + b(k,138) = b(k,138) - lu(k,809) * b(k,108) + b(k,139) = b(k,139) - lu(k,810) * b(k,108) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -696,226 +697,226 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,111) = b(k,111) - lu(k,812) * b(k,109) - b(k,113) = b(k,113) - lu(k,813) * b(k,109) - b(k,116) = b(k,116) - lu(k,814) * b(k,109) - b(k,118) = b(k,118) - lu(k,815) * b(k,109) - b(k,119) = b(k,119) - lu(k,816) * b(k,109) - b(k,120) = b(k,120) - lu(k,817) * b(k,109) - b(k,122) = b(k,122) - lu(k,818) * b(k,109) - b(k,124) = b(k,124) - lu(k,819) * b(k,109) - b(k,125) = b(k,125) - lu(k,820) * b(k,109) - b(k,126) = b(k,126) - lu(k,821) * b(k,109) - b(k,128) = b(k,128) - lu(k,822) * b(k,109) - b(k,129) = b(k,129) - lu(k,823) * b(k,109) - b(k,130) = b(k,130) - lu(k,824) * b(k,109) - b(k,132) = b(k,132) - lu(k,825) * b(k,109) - b(k,133) = b(k,133) - lu(k,826) * b(k,109) - b(k,137) = b(k,137) - lu(k,827) * b(k,109) - b(k,138) = b(k,138) - lu(k,828) * b(k,109) - b(k,139) = b(k,139) - lu(k,829) * b(k,109) - b(k,111) = b(k,111) - lu(k,834) * b(k,110) - b(k,112) = b(k,112) - lu(k,835) * b(k,110) - b(k,113) = b(k,113) - lu(k,836) * b(k,110) - b(k,114) = b(k,114) - lu(k,837) * b(k,110) - b(k,115) = b(k,115) - lu(k,838) * b(k,110) - b(k,116) = b(k,116) - lu(k,839) * b(k,110) - b(k,117) = b(k,117) - lu(k,840) * b(k,110) - b(k,118) = b(k,118) - lu(k,841) * b(k,110) - b(k,119) = b(k,119) - lu(k,842) * b(k,110) - b(k,120) = b(k,120) - lu(k,843) * b(k,110) - b(k,121) = b(k,121) - lu(k,844) * b(k,110) - b(k,122) = b(k,122) - lu(k,845) * b(k,110) - b(k,123) = b(k,123) - lu(k,846) * b(k,110) - b(k,124) = b(k,124) - lu(k,847) * b(k,110) - b(k,125) = b(k,125) - lu(k,848) * b(k,110) - b(k,126) = b(k,126) - lu(k,849) * b(k,110) - b(k,127) = b(k,127) - lu(k,850) * b(k,110) - b(k,128) = b(k,128) - lu(k,851) * b(k,110) - b(k,129) = b(k,129) - lu(k,852) * b(k,110) - b(k,130) = b(k,130) - lu(k,853) * b(k,110) - b(k,132) = b(k,132) - lu(k,854) * b(k,110) - b(k,133) = b(k,133) - lu(k,855) * b(k,110) - b(k,134) = b(k,134) - lu(k,856) * b(k,110) - b(k,135) = b(k,135) - lu(k,857) * b(k,110) - b(k,136) = b(k,136) - lu(k,858) * b(k,110) - b(k,137) = b(k,137) - lu(k,859) * b(k,110) - b(k,138) = b(k,138) - lu(k,860) * b(k,110) - b(k,139) = b(k,139) - lu(k,861) * b(k,110) - b(k,113) = b(k,113) - lu(k,867) * b(k,111) - b(k,116) = b(k,116) - lu(k,868) * b(k,111) - b(k,118) = b(k,118) - lu(k,869) * b(k,111) - b(k,119) = b(k,119) - lu(k,870) * b(k,111) - b(k,120) = b(k,120) - lu(k,871) * b(k,111) - b(k,122) = b(k,122) - lu(k,872) * b(k,111) - b(k,123) = b(k,123) - lu(k,873) * b(k,111) - b(k,124) = b(k,124) - lu(k,874) * b(k,111) - b(k,125) = b(k,125) - lu(k,875) * b(k,111) - b(k,126) = b(k,126) - lu(k,876) * b(k,111) - b(k,128) = b(k,128) - lu(k,877) * b(k,111) - b(k,129) = b(k,129) - lu(k,878) * b(k,111) - b(k,130) = b(k,130) - lu(k,879) * b(k,111) - b(k,131) = b(k,131) - lu(k,880) * b(k,111) - b(k,132) = b(k,132) - lu(k,881) * b(k,111) - b(k,133) = b(k,133) - lu(k,882) * b(k,111) - b(k,136) = b(k,136) - lu(k,883) * b(k,111) - b(k,137) = b(k,137) - lu(k,884) * b(k,111) - b(k,138) = b(k,138) - lu(k,885) * b(k,111) - b(k,139) = b(k,139) - lu(k,886) * b(k,111) - b(k,114) = b(k,114) - lu(k,901) * b(k,112) - b(k,116) = b(k,116) - lu(k,902) * b(k,112) - b(k,117) = b(k,117) - lu(k,903) * b(k,112) - b(k,120) = b(k,120) - lu(k,904) * b(k,112) - b(k,121) = b(k,121) - lu(k,905) * b(k,112) - b(k,122) = b(k,122) - lu(k,906) * b(k,112) - b(k,123) = b(k,123) - lu(k,907) * b(k,112) - b(k,124) = b(k,124) - lu(k,908) * b(k,112) + b(k,111) = b(k,111) - lu(k,814) * b(k,109) + b(k,113) = b(k,113) - lu(k,815) * b(k,109) + b(k,116) = b(k,116) - lu(k,816) * b(k,109) + b(k,118) = b(k,118) - lu(k,817) * b(k,109) + b(k,119) = b(k,119) - lu(k,818) * b(k,109) + b(k,121) = b(k,121) - lu(k,819) * b(k,109) + b(k,122) = b(k,122) - lu(k,820) * b(k,109) + b(k,124) = b(k,124) - lu(k,821) * b(k,109) + b(k,125) = b(k,125) - lu(k,822) * b(k,109) + b(k,126) = b(k,126) - lu(k,823) * b(k,109) + b(k,128) = b(k,128) - lu(k,824) * b(k,109) + b(k,129) = b(k,129) - lu(k,825) * b(k,109) + b(k,132) = b(k,132) - lu(k,826) * b(k,109) + b(k,133) = b(k,133) - lu(k,827) * b(k,109) + b(k,136) = b(k,136) - lu(k,828) * b(k,109) + b(k,137) = b(k,137) - lu(k,829) * b(k,109) + b(k,138) = b(k,138) - lu(k,830) * b(k,109) + b(k,139) = b(k,139) - lu(k,831) * b(k,109) + b(k,111) = b(k,111) - lu(k,836) * b(k,110) + b(k,112) = b(k,112) - lu(k,837) * b(k,110) + b(k,113) = b(k,113) - lu(k,838) * b(k,110) + b(k,114) = b(k,114) - lu(k,839) * b(k,110) + b(k,115) = b(k,115) - lu(k,840) * b(k,110) + b(k,116) = b(k,116) - lu(k,841) * b(k,110) + b(k,117) = b(k,117) - lu(k,842) * b(k,110) + b(k,118) = b(k,118) - lu(k,843) * b(k,110) + b(k,119) = b(k,119) - lu(k,844) * b(k,110) + b(k,120) = b(k,120) - lu(k,845) * b(k,110) + b(k,121) = b(k,121) - lu(k,846) * b(k,110) + b(k,122) = b(k,122) - lu(k,847) * b(k,110) + b(k,123) = b(k,123) - lu(k,848) * b(k,110) + b(k,124) = b(k,124) - lu(k,849) * b(k,110) + b(k,125) = b(k,125) - lu(k,850) * b(k,110) + b(k,126) = b(k,126) - lu(k,851) * b(k,110) + b(k,127) = b(k,127) - lu(k,852) * b(k,110) + b(k,128) = b(k,128) - lu(k,853) * b(k,110) + b(k,129) = b(k,129) - lu(k,854) * b(k,110) + b(k,130) = b(k,130) - lu(k,855) * b(k,110) + b(k,132) = b(k,132) - lu(k,856) * b(k,110) + b(k,133) = b(k,133) - lu(k,857) * b(k,110) + b(k,134) = b(k,134) - lu(k,858) * b(k,110) + b(k,135) = b(k,135) - lu(k,859) * b(k,110) + b(k,136) = b(k,136) - lu(k,860) * b(k,110) + b(k,137) = b(k,137) - lu(k,861) * b(k,110) + b(k,138) = b(k,138) - lu(k,862) * b(k,110) + b(k,139) = b(k,139) - lu(k,863) * b(k,110) + b(k,113) = b(k,113) - lu(k,869) * b(k,111) + b(k,116) = b(k,116) - lu(k,870) * b(k,111) + b(k,118) = b(k,118) - lu(k,871) * b(k,111) + b(k,119) = b(k,119) - lu(k,872) * b(k,111) + b(k,120) = b(k,120) - lu(k,873) * b(k,111) + b(k,121) = b(k,121) - lu(k,874) * b(k,111) + b(k,122) = b(k,122) - lu(k,875) * b(k,111) + b(k,123) = b(k,123) - lu(k,876) * b(k,111) + b(k,124) = b(k,124) - lu(k,877) * b(k,111) + b(k,125) = b(k,125) - lu(k,878) * b(k,111) + b(k,126) = b(k,126) - lu(k,879) * b(k,111) + b(k,128) = b(k,128) - lu(k,880) * b(k,111) + b(k,129) = b(k,129) - lu(k,881) * b(k,111) + b(k,131) = b(k,131) - lu(k,882) * b(k,111) + b(k,132) = b(k,132) - lu(k,883) * b(k,111) + b(k,133) = b(k,133) - lu(k,884) * b(k,111) + b(k,136) = b(k,136) - lu(k,885) * b(k,111) + b(k,137) = b(k,137) - lu(k,886) * b(k,111) + b(k,138) = b(k,138) - lu(k,887) * b(k,111) + b(k,139) = b(k,139) - lu(k,888) * b(k,111) + b(k,114) = b(k,114) - lu(k,903) * b(k,112) + b(k,116) = b(k,116) - lu(k,904) * b(k,112) + b(k,117) = b(k,117) - lu(k,905) * b(k,112) + b(k,120) = b(k,120) - lu(k,906) * b(k,112) + b(k,122) = b(k,122) - lu(k,907) * b(k,112) + b(k,123) = b(k,123) - lu(k,908) * b(k,112) b(k,125) = b(k,125) - lu(k,909) * b(k,112) b(k,126) = b(k,126) - lu(k,910) * b(k,112) b(k,127) = b(k,127) - lu(k,911) * b(k,112) b(k,128) = b(k,128) - lu(k,912) * b(k,112) - b(k,131) = b(k,131) - lu(k,913) * b(k,112) - b(k,132) = b(k,132) - lu(k,914) * b(k,112) - b(k,133) = b(k,133) - lu(k,915) * b(k,112) - b(k,134) = b(k,134) - lu(k,916) * b(k,112) - b(k,135) = b(k,135) - lu(k,917) * b(k,112) - b(k,136) = b(k,136) - lu(k,918) * b(k,112) - b(k,137) = b(k,137) - lu(k,919) * b(k,112) - b(k,138) = b(k,138) - lu(k,920) * b(k,112) - b(k,139) = b(k,139) - lu(k,921) * b(k,112) - b(k,114) = b(k,114) - lu(k,927) * b(k,113) - b(k,116) = b(k,116) - lu(k,928) * b(k,113) - b(k,117) = b(k,117) - lu(k,929) * b(k,113) - b(k,118) = b(k,118) - lu(k,930) * b(k,113) - b(k,119) = b(k,119) - lu(k,931) * b(k,113) - b(k,120) = b(k,120) - lu(k,932) * b(k,113) - b(k,122) = b(k,122) - lu(k,933) * b(k,113) - b(k,123) = b(k,123) - lu(k,934) * b(k,113) - b(k,124) = b(k,124) - lu(k,935) * b(k,113) - b(k,125) = b(k,125) - lu(k,936) * b(k,113) - b(k,126) = b(k,126) - lu(k,937) * b(k,113) - b(k,128) = b(k,128) - lu(k,938) * b(k,113) - b(k,129) = b(k,129) - lu(k,939) * b(k,113) - b(k,130) = b(k,130) - lu(k,940) * b(k,113) - b(k,131) = b(k,131) - lu(k,941) * b(k,113) - b(k,132) = b(k,132) - lu(k,942) * b(k,113) - b(k,133) = b(k,133) - lu(k,943) * b(k,113) - b(k,134) = b(k,134) - lu(k,944) * b(k,113) - b(k,136) = b(k,136) - lu(k,945) * b(k,113) - b(k,137) = b(k,137) - lu(k,946) * b(k,113) - b(k,138) = b(k,138) - lu(k,947) * b(k,113) - b(k,139) = b(k,139) - lu(k,948) * b(k,113) - b(k,116) = b(k,116) - lu(k,985) * b(k,114) - b(k,117) = b(k,117) - lu(k,986) * b(k,114) - b(k,118) = b(k,118) - lu(k,987) * b(k,114) - b(k,120) = b(k,120) - lu(k,988) * b(k,114) - b(k,121) = b(k,121) - lu(k,989) * b(k,114) - b(k,122) = b(k,122) - lu(k,990) * b(k,114) - b(k,123) = b(k,123) - lu(k,991) * b(k,114) - b(k,124) = b(k,124) - lu(k,992) * b(k,114) + b(k,129) = b(k,129) - lu(k,913) * b(k,112) + b(k,130) = b(k,130) - lu(k,914) * b(k,112) + b(k,131) = b(k,131) - lu(k,915) * b(k,112) + b(k,132) = b(k,132) - lu(k,916) * b(k,112) + b(k,133) = b(k,133) - lu(k,917) * b(k,112) + b(k,134) = b(k,134) - lu(k,918) * b(k,112) + b(k,135) = b(k,135) - lu(k,919) * b(k,112) + b(k,136) = b(k,136) - lu(k,920) * b(k,112) + b(k,137) = b(k,137) - lu(k,921) * b(k,112) + b(k,138) = b(k,138) - lu(k,922) * b(k,112) + b(k,139) = b(k,139) - lu(k,923) * b(k,112) + b(k,114) = b(k,114) - lu(k,929) * b(k,113) + b(k,116) = b(k,116) - lu(k,930) * b(k,113) + b(k,117) = b(k,117) - lu(k,931) * b(k,113) + b(k,118) = b(k,118) - lu(k,932) * b(k,113) + b(k,119) = b(k,119) - lu(k,933) * b(k,113) + b(k,120) = b(k,120) - lu(k,934) * b(k,113) + b(k,121) = b(k,121) - lu(k,935) * b(k,113) + b(k,122) = b(k,122) - lu(k,936) * b(k,113) + b(k,123) = b(k,123) - lu(k,937) * b(k,113) + b(k,124) = b(k,124) - lu(k,938) * b(k,113) + b(k,125) = b(k,125) - lu(k,939) * b(k,113) + b(k,126) = b(k,126) - lu(k,940) * b(k,113) + b(k,128) = b(k,128) - lu(k,941) * b(k,113) + b(k,129) = b(k,129) - lu(k,942) * b(k,113) + b(k,131) = b(k,131) - lu(k,943) * b(k,113) + b(k,132) = b(k,132) - lu(k,944) * b(k,113) + b(k,133) = b(k,133) - lu(k,945) * b(k,113) + b(k,134) = b(k,134) - lu(k,946) * b(k,113) + b(k,136) = b(k,136) - lu(k,947) * b(k,113) + b(k,137) = b(k,137) - lu(k,948) * b(k,113) + b(k,138) = b(k,138) - lu(k,949) * b(k,113) + b(k,139) = b(k,139) - lu(k,950) * b(k,113) + b(k,116) = b(k,116) - lu(k,987) * b(k,114) + b(k,117) = b(k,117) - lu(k,988) * b(k,114) + b(k,118) = b(k,118) - lu(k,989) * b(k,114) + b(k,120) = b(k,120) - lu(k,990) * b(k,114) + b(k,122) = b(k,122) - lu(k,991) * b(k,114) + b(k,123) = b(k,123) - lu(k,992) * b(k,114) b(k,125) = b(k,125) - lu(k,993) * b(k,114) b(k,126) = b(k,126) - lu(k,994) * b(k,114) b(k,127) = b(k,127) - lu(k,995) * b(k,114) b(k,128) = b(k,128) - lu(k,996) * b(k,114) - b(k,131) = b(k,131) - lu(k,997) * b(k,114) - b(k,132) = b(k,132) - lu(k,998) * b(k,114) - b(k,133) = b(k,133) - lu(k,999) * b(k,114) - b(k,134) = b(k,134) - lu(k,1000) * b(k,114) - b(k,135) = b(k,135) - lu(k,1001) * b(k,114) - b(k,136) = b(k,136) - lu(k,1002) * b(k,114) - b(k,137) = b(k,137) - lu(k,1003) * b(k,114) - b(k,138) = b(k,138) - lu(k,1004) * b(k,114) - b(k,139) = b(k,139) - lu(k,1005) * b(k,114) - b(k,116) = b(k,116) - lu(k,1015) * b(k,115) - b(k,117) = b(k,117) - lu(k,1016) * b(k,115) - b(k,118) = b(k,118) - lu(k,1017) * b(k,115) - b(k,119) = b(k,119) - lu(k,1018) * b(k,115) - b(k,120) = b(k,120) - lu(k,1019) * b(k,115) - b(k,121) = b(k,121) - lu(k,1020) * b(k,115) - b(k,122) = b(k,122) - lu(k,1021) * b(k,115) - b(k,123) = b(k,123) - lu(k,1022) * b(k,115) - b(k,124) = b(k,124) - lu(k,1023) * b(k,115) - b(k,125) = b(k,125) - lu(k,1024) * b(k,115) - b(k,126) = b(k,126) - lu(k,1025) * b(k,115) - b(k,127) = b(k,127) - lu(k,1026) * b(k,115) - b(k,128) = b(k,128) - lu(k,1027) * b(k,115) - b(k,129) = b(k,129) - lu(k,1028) * b(k,115) - b(k,130) = b(k,130) - lu(k,1029) * b(k,115) - b(k,131) = b(k,131) - lu(k,1030) * b(k,115) - b(k,132) = b(k,132) - lu(k,1031) * b(k,115) - b(k,133) = b(k,133) - lu(k,1032) * b(k,115) - b(k,134) = b(k,134) - lu(k,1033) * b(k,115) - b(k,135) = b(k,135) - lu(k,1034) * b(k,115) - b(k,136) = b(k,136) - lu(k,1035) * b(k,115) - b(k,137) = b(k,137) - lu(k,1036) * b(k,115) - b(k,138) = b(k,138) - lu(k,1037) * b(k,115) - b(k,139) = b(k,139) - lu(k,1038) * b(k,115) - b(k,117) = b(k,117) - lu(k,1059) * b(k,116) - b(k,118) = b(k,118) - lu(k,1060) * b(k,116) - b(k,119) = b(k,119) - lu(k,1061) * b(k,116) - b(k,120) = b(k,120) - lu(k,1062) * b(k,116) - b(k,121) = b(k,121) - lu(k,1063) * b(k,116) - b(k,122) = b(k,122) - lu(k,1064) * b(k,116) - b(k,123) = b(k,123) - lu(k,1065) * b(k,116) - b(k,124) = b(k,124) - lu(k,1066) * b(k,116) - b(k,125) = b(k,125) - lu(k,1067) * b(k,116) - b(k,126) = b(k,126) - lu(k,1068) * b(k,116) - b(k,127) = b(k,127) - lu(k,1069) * b(k,116) - b(k,128) = b(k,128) - lu(k,1070) * b(k,116) - b(k,129) = b(k,129) - lu(k,1071) * b(k,116) - b(k,130) = b(k,130) - lu(k,1072) * b(k,116) - b(k,131) = b(k,131) - lu(k,1073) * b(k,116) - b(k,132) = b(k,132) - lu(k,1074) * b(k,116) - b(k,133) = b(k,133) - lu(k,1075) * b(k,116) - b(k,134) = b(k,134) - lu(k,1076) * b(k,116) - b(k,135) = b(k,135) - lu(k,1077) * b(k,116) - b(k,136) = b(k,136) - lu(k,1078) * b(k,116) - b(k,137) = b(k,137) - lu(k,1079) * b(k,116) - b(k,138) = b(k,138) - lu(k,1080) * b(k,116) - b(k,139) = b(k,139) - lu(k,1081) * b(k,116) - b(k,118) = b(k,118) - lu(k,1105) * b(k,117) - b(k,119) = b(k,119) - lu(k,1106) * b(k,117) - b(k,120) = b(k,120) - lu(k,1107) * b(k,117) - b(k,121) = b(k,121) - lu(k,1108) * b(k,117) - b(k,122) = b(k,122) - lu(k,1109) * b(k,117) - b(k,123) = b(k,123) - lu(k,1110) * b(k,117) - b(k,124) = b(k,124) - lu(k,1111) * b(k,117) - b(k,125) = b(k,125) - lu(k,1112) * b(k,117) - b(k,126) = b(k,126) - lu(k,1113) * b(k,117) - b(k,127) = b(k,127) - lu(k,1114) * b(k,117) - b(k,128) = b(k,128) - lu(k,1115) * b(k,117) - b(k,129) = b(k,129) - lu(k,1116) * b(k,117) - b(k,130) = b(k,130) - lu(k,1117) * b(k,117) - b(k,131) = b(k,131) - lu(k,1118) * b(k,117) - b(k,132) = b(k,132) - lu(k,1119) * b(k,117) - b(k,133) = b(k,133) - lu(k,1120) * b(k,117) - b(k,134) = b(k,134) - lu(k,1121) * b(k,117) - b(k,135) = b(k,135) - lu(k,1122) * b(k,117) - b(k,136) = b(k,136) - lu(k,1123) * b(k,117) - b(k,137) = b(k,137) - lu(k,1124) * b(k,117) - b(k,138) = b(k,138) - lu(k,1125) * b(k,117) - b(k,139) = b(k,139) - lu(k,1126) * b(k,117) - b(k,119) = b(k,119) - lu(k,1154) * b(k,118) - b(k,120) = b(k,120) - lu(k,1155) * b(k,118) - b(k,121) = b(k,121) - lu(k,1156) * b(k,118) - b(k,122) = b(k,122) - lu(k,1157) * b(k,118) - b(k,123) = b(k,123) - lu(k,1158) * b(k,118) - b(k,124) = b(k,124) - lu(k,1159) * b(k,118) - b(k,125) = b(k,125) - lu(k,1160) * b(k,118) - b(k,126) = b(k,126) - lu(k,1161) * b(k,118) - b(k,127) = b(k,127) - lu(k,1162) * b(k,118) - b(k,128) = b(k,128) - lu(k,1163) * b(k,118) - b(k,129) = b(k,129) - lu(k,1164) * b(k,118) - b(k,130) = b(k,130) - lu(k,1165) * b(k,118) - b(k,131) = b(k,131) - lu(k,1166) * b(k,118) - b(k,132) = b(k,132) - lu(k,1167) * b(k,118) - b(k,133) = b(k,133) - lu(k,1168) * b(k,118) - b(k,134) = b(k,134) - lu(k,1169) * b(k,118) - b(k,135) = b(k,135) - lu(k,1170) * b(k,118) - b(k,136) = b(k,136) - lu(k,1171) * b(k,118) - b(k,137) = b(k,137) - lu(k,1172) * b(k,118) - b(k,138) = b(k,138) - lu(k,1173) * b(k,118) - b(k,139) = b(k,139) - lu(k,1174) * b(k,118) + b(k,129) = b(k,129) - lu(k,997) * b(k,114) + b(k,130) = b(k,130) - lu(k,998) * b(k,114) + b(k,131) = b(k,131) - lu(k,999) * b(k,114) + b(k,132) = b(k,132) - lu(k,1000) * b(k,114) + b(k,133) = b(k,133) - lu(k,1001) * b(k,114) + b(k,134) = b(k,134) - lu(k,1002) * b(k,114) + b(k,135) = b(k,135) - lu(k,1003) * b(k,114) + b(k,136) = b(k,136) - lu(k,1004) * b(k,114) + b(k,137) = b(k,137) - lu(k,1005) * b(k,114) + b(k,138) = b(k,138) - lu(k,1006) * b(k,114) + b(k,139) = b(k,139) - lu(k,1007) * b(k,114) + b(k,116) = b(k,116) - lu(k,1017) * b(k,115) + b(k,117) = b(k,117) - lu(k,1018) * b(k,115) + b(k,118) = b(k,118) - lu(k,1019) * b(k,115) + b(k,119) = b(k,119) - lu(k,1020) * b(k,115) + b(k,120) = b(k,120) - lu(k,1021) * b(k,115) + b(k,121) = b(k,121) - lu(k,1022) * b(k,115) + b(k,122) = b(k,122) - lu(k,1023) * b(k,115) + b(k,123) = b(k,123) - lu(k,1024) * b(k,115) + b(k,124) = b(k,124) - lu(k,1025) * b(k,115) + b(k,125) = b(k,125) - lu(k,1026) * b(k,115) + b(k,126) = b(k,126) - lu(k,1027) * b(k,115) + b(k,127) = b(k,127) - lu(k,1028) * b(k,115) + b(k,128) = b(k,128) - lu(k,1029) * b(k,115) + b(k,129) = b(k,129) - lu(k,1030) * b(k,115) + b(k,130) = b(k,130) - lu(k,1031) * b(k,115) + b(k,131) = b(k,131) - lu(k,1032) * b(k,115) + b(k,132) = b(k,132) - lu(k,1033) * b(k,115) + b(k,133) = b(k,133) - lu(k,1034) * b(k,115) + b(k,134) = b(k,134) - lu(k,1035) * b(k,115) + b(k,135) = b(k,135) - lu(k,1036) * b(k,115) + b(k,136) = b(k,136) - lu(k,1037) * b(k,115) + b(k,137) = b(k,137) - lu(k,1038) * b(k,115) + b(k,138) = b(k,138) - lu(k,1039) * b(k,115) + b(k,139) = b(k,139) - lu(k,1040) * b(k,115) + b(k,117) = b(k,117) - lu(k,1061) * b(k,116) + b(k,118) = b(k,118) - lu(k,1062) * b(k,116) + b(k,119) = b(k,119) - lu(k,1063) * b(k,116) + b(k,120) = b(k,120) - lu(k,1064) * b(k,116) + b(k,121) = b(k,121) - lu(k,1065) * b(k,116) + b(k,122) = b(k,122) - lu(k,1066) * b(k,116) + b(k,123) = b(k,123) - lu(k,1067) * b(k,116) + b(k,124) = b(k,124) - lu(k,1068) * b(k,116) + b(k,125) = b(k,125) - lu(k,1069) * b(k,116) + b(k,126) = b(k,126) - lu(k,1070) * b(k,116) + b(k,127) = b(k,127) - lu(k,1071) * b(k,116) + b(k,128) = b(k,128) - lu(k,1072) * b(k,116) + b(k,129) = b(k,129) - lu(k,1073) * b(k,116) + b(k,130) = b(k,130) - lu(k,1074) * b(k,116) + b(k,131) = b(k,131) - lu(k,1075) * b(k,116) + b(k,132) = b(k,132) - lu(k,1076) * b(k,116) + b(k,133) = b(k,133) - lu(k,1077) * b(k,116) + b(k,134) = b(k,134) - lu(k,1078) * b(k,116) + b(k,135) = b(k,135) - lu(k,1079) * b(k,116) + b(k,136) = b(k,136) - lu(k,1080) * b(k,116) + b(k,137) = b(k,137) - lu(k,1081) * b(k,116) + b(k,138) = b(k,138) - lu(k,1082) * b(k,116) + b(k,139) = b(k,139) - lu(k,1083) * b(k,116) + b(k,118) = b(k,118) - lu(k,1107) * b(k,117) + b(k,119) = b(k,119) - lu(k,1108) * b(k,117) + b(k,120) = b(k,120) - lu(k,1109) * b(k,117) + b(k,121) = b(k,121) - lu(k,1110) * b(k,117) + b(k,122) = b(k,122) - lu(k,1111) * b(k,117) + b(k,123) = b(k,123) - lu(k,1112) * b(k,117) + b(k,124) = b(k,124) - lu(k,1113) * b(k,117) + b(k,125) = b(k,125) - lu(k,1114) * b(k,117) + b(k,126) = b(k,126) - lu(k,1115) * b(k,117) + b(k,127) = b(k,127) - lu(k,1116) * b(k,117) + b(k,128) = b(k,128) - lu(k,1117) * b(k,117) + b(k,129) = b(k,129) - lu(k,1118) * b(k,117) + b(k,130) = b(k,130) - lu(k,1119) * b(k,117) + b(k,131) = b(k,131) - lu(k,1120) * b(k,117) + b(k,132) = b(k,132) - lu(k,1121) * b(k,117) + b(k,133) = b(k,133) - lu(k,1122) * b(k,117) + b(k,134) = b(k,134) - lu(k,1123) * b(k,117) + b(k,135) = b(k,135) - lu(k,1124) * b(k,117) + b(k,136) = b(k,136) - lu(k,1125) * b(k,117) + b(k,137) = b(k,137) - lu(k,1126) * b(k,117) + b(k,138) = b(k,138) - lu(k,1127) * b(k,117) + b(k,139) = b(k,139) - lu(k,1128) * b(k,117) + b(k,119) = b(k,119) - lu(k,1155) * b(k,118) + b(k,120) = b(k,120) - lu(k,1156) * b(k,118) + b(k,121) = b(k,121) - lu(k,1157) * b(k,118) + b(k,122) = b(k,122) - lu(k,1158) * b(k,118) + b(k,123) = b(k,123) - lu(k,1159) * b(k,118) + b(k,124) = b(k,124) - lu(k,1160) * b(k,118) + b(k,125) = b(k,125) - lu(k,1161) * b(k,118) + b(k,126) = b(k,126) - lu(k,1162) * b(k,118) + b(k,127) = b(k,127) - lu(k,1163) * b(k,118) + b(k,128) = b(k,128) - lu(k,1164) * b(k,118) + b(k,129) = b(k,129) - lu(k,1165) * b(k,118) + b(k,130) = b(k,130) - lu(k,1166) * b(k,118) + b(k,131) = b(k,131) - lu(k,1167) * b(k,118) + b(k,132) = b(k,132) - lu(k,1168) * b(k,118) + b(k,133) = b(k,133) - lu(k,1169) * b(k,118) + b(k,134) = b(k,134) - lu(k,1170) * b(k,118) + b(k,135) = b(k,135) - lu(k,1171) * b(k,118) + b(k,136) = b(k,136) - lu(k,1172) * b(k,118) + b(k,137) = b(k,137) - lu(k,1173) * b(k,118) + b(k,138) = b(k,138) - lu(k,1174) * b(k,118) + b(k,139) = b(k,139) - lu(k,1175) * b(k,118) end do end subroutine lu_slv04 subroutine lu_slv05( avec_len, lu, b ) @@ -936,45 +937,45 @@ subroutine lu_slv05( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,120) = b(k,120) - lu(k,1198) * b(k,119) - b(k,121) = b(k,121) - lu(k,1199) * b(k,119) - b(k,122) = b(k,122) - lu(k,1200) * b(k,119) - b(k,123) = b(k,123) - lu(k,1201) * b(k,119) - b(k,124) = b(k,124) - lu(k,1202) * b(k,119) - b(k,125) = b(k,125) - lu(k,1203) * b(k,119) - b(k,126) = b(k,126) - lu(k,1204) * b(k,119) - b(k,127) = b(k,127) - lu(k,1205) * b(k,119) - b(k,128) = b(k,128) - lu(k,1206) * b(k,119) - b(k,129) = b(k,129) - lu(k,1207) * b(k,119) - b(k,130) = b(k,130) - lu(k,1208) * b(k,119) - b(k,131) = b(k,131) - lu(k,1209) * b(k,119) - b(k,132) = b(k,132) - lu(k,1210) * b(k,119) - b(k,133) = b(k,133) - lu(k,1211) * b(k,119) - b(k,134) = b(k,134) - lu(k,1212) * b(k,119) - b(k,135) = b(k,135) - lu(k,1213) * b(k,119) - b(k,136) = b(k,136) - lu(k,1214) * b(k,119) - b(k,137) = b(k,137) - lu(k,1215) * b(k,119) - b(k,138) = b(k,138) - lu(k,1216) * b(k,119) - b(k,139) = b(k,139) - lu(k,1217) * b(k,119) - b(k,121) = b(k,121) - lu(k,1242) * b(k,120) - b(k,122) = b(k,122) - lu(k,1243) * b(k,120) - b(k,123) = b(k,123) - lu(k,1244) * b(k,120) - b(k,124) = b(k,124) - lu(k,1245) * b(k,120) - b(k,125) = b(k,125) - lu(k,1246) * b(k,120) - b(k,126) = b(k,126) - lu(k,1247) * b(k,120) - b(k,127) = b(k,127) - lu(k,1248) * b(k,120) - b(k,128) = b(k,128) - lu(k,1249) * b(k,120) - b(k,129) = b(k,129) - lu(k,1250) * b(k,120) - b(k,130) = b(k,130) - lu(k,1251) * b(k,120) - b(k,131) = b(k,131) - lu(k,1252) * b(k,120) - b(k,132) = b(k,132) - lu(k,1253) * b(k,120) - b(k,133) = b(k,133) - lu(k,1254) * b(k,120) - b(k,134) = b(k,134) - lu(k,1255) * b(k,120) - b(k,135) = b(k,135) - lu(k,1256) * b(k,120) - b(k,136) = b(k,136) - lu(k,1257) * b(k,120) - b(k,137) = b(k,137) - lu(k,1258) * b(k,120) - b(k,138) = b(k,138) - lu(k,1259) * b(k,120) - b(k,139) = b(k,139) - lu(k,1260) * b(k,120) + b(k,120) = b(k,120) - lu(k,1199) * b(k,119) + b(k,121) = b(k,121) - lu(k,1200) * b(k,119) + b(k,122) = b(k,122) - lu(k,1201) * b(k,119) + b(k,123) = b(k,123) - lu(k,1202) * b(k,119) + b(k,124) = b(k,124) - lu(k,1203) * b(k,119) + b(k,125) = b(k,125) - lu(k,1204) * b(k,119) + b(k,126) = b(k,126) - lu(k,1205) * b(k,119) + b(k,127) = b(k,127) - lu(k,1206) * b(k,119) + b(k,128) = b(k,128) - lu(k,1207) * b(k,119) + b(k,129) = b(k,129) - lu(k,1208) * b(k,119) + b(k,130) = b(k,130) - lu(k,1209) * b(k,119) + b(k,131) = b(k,131) - lu(k,1210) * b(k,119) + b(k,132) = b(k,132) - lu(k,1211) * b(k,119) + b(k,133) = b(k,133) - lu(k,1212) * b(k,119) + b(k,134) = b(k,134) - lu(k,1213) * b(k,119) + b(k,135) = b(k,135) - lu(k,1214) * b(k,119) + b(k,136) = b(k,136) - lu(k,1215) * b(k,119) + b(k,137) = b(k,137) - lu(k,1216) * b(k,119) + b(k,138) = b(k,138) - lu(k,1217) * b(k,119) + b(k,139) = b(k,139) - lu(k,1218) * b(k,119) + b(k,121) = b(k,121) - lu(k,1241) * b(k,120) + b(k,122) = b(k,122) - lu(k,1242) * b(k,120) + b(k,123) = b(k,123) - lu(k,1243) * b(k,120) + b(k,124) = b(k,124) - lu(k,1244) * b(k,120) + b(k,125) = b(k,125) - lu(k,1245) * b(k,120) + b(k,126) = b(k,126) - lu(k,1246) * b(k,120) + b(k,127) = b(k,127) - lu(k,1247) * b(k,120) + b(k,128) = b(k,128) - lu(k,1248) * b(k,120) + b(k,129) = b(k,129) - lu(k,1249) * b(k,120) + b(k,130) = b(k,130) - lu(k,1250) * b(k,120) + b(k,131) = b(k,131) - lu(k,1251) * b(k,120) + b(k,132) = b(k,132) - lu(k,1252) * b(k,120) + b(k,133) = b(k,133) - lu(k,1253) * b(k,120) + b(k,134) = b(k,134) - lu(k,1254) * b(k,120) + b(k,135) = b(k,135) - lu(k,1255) * b(k,120) + b(k,136) = b(k,136) - lu(k,1256) * b(k,120) + b(k,137) = b(k,137) - lu(k,1257) * b(k,120) + b(k,138) = b(k,138) - lu(k,1258) * b(k,120) + b(k,139) = b(k,139) - lu(k,1259) * b(k,120) b(k,122) = b(k,122) - lu(k,1285) * b(k,121) b(k,123) = b(k,123) - lu(k,1286) * b(k,121) b(k,124) = b(k,124) - lu(k,1287) * b(k,121) @@ -1026,120 +1027,120 @@ subroutine lu_slv05( avec_len, lu, b ) b(k,137) = b(k,137) - lu(k,1402) * b(k,123) b(k,138) = b(k,138) - lu(k,1403) * b(k,123) b(k,139) = b(k,139) - lu(k,1404) * b(k,123) - b(k,125) = b(k,125) - lu(k,1439) * b(k,124) - b(k,126) = b(k,126) - lu(k,1440) * b(k,124) - b(k,127) = b(k,127) - lu(k,1441) * b(k,124) - b(k,128) = b(k,128) - lu(k,1442) * b(k,124) - b(k,129) = b(k,129) - lu(k,1443) * b(k,124) - b(k,130) = b(k,130) - lu(k,1444) * b(k,124) - b(k,131) = b(k,131) - lu(k,1445) * b(k,124) - b(k,132) = b(k,132) - lu(k,1446) * b(k,124) - b(k,133) = b(k,133) - lu(k,1447) * b(k,124) - b(k,134) = b(k,134) - lu(k,1448) * b(k,124) - b(k,135) = b(k,135) - lu(k,1449) * b(k,124) - b(k,136) = b(k,136) - lu(k,1450) * b(k,124) - b(k,137) = b(k,137) - lu(k,1451) * b(k,124) - b(k,138) = b(k,138) - lu(k,1452) * b(k,124) - b(k,139) = b(k,139) - lu(k,1453) * b(k,124) - b(k,126) = b(k,126) - lu(k,1488) * b(k,125) - b(k,127) = b(k,127) - lu(k,1489) * b(k,125) - b(k,128) = b(k,128) - lu(k,1490) * b(k,125) - b(k,129) = b(k,129) - lu(k,1491) * b(k,125) - b(k,130) = b(k,130) - lu(k,1492) * b(k,125) - b(k,131) = b(k,131) - lu(k,1493) * b(k,125) - b(k,132) = b(k,132) - lu(k,1494) * b(k,125) - b(k,133) = b(k,133) - lu(k,1495) * b(k,125) - b(k,134) = b(k,134) - lu(k,1496) * b(k,125) - b(k,135) = b(k,135) - lu(k,1497) * b(k,125) - b(k,136) = b(k,136) - lu(k,1498) * b(k,125) - b(k,137) = b(k,137) - lu(k,1499) * b(k,125) - b(k,138) = b(k,138) - lu(k,1500) * b(k,125) - b(k,139) = b(k,139) - lu(k,1501) * b(k,125) - b(k,127) = b(k,127) - lu(k,1530) * b(k,126) - b(k,128) = b(k,128) - lu(k,1531) * b(k,126) - b(k,129) = b(k,129) - lu(k,1532) * b(k,126) - b(k,130) = b(k,130) - lu(k,1533) * b(k,126) - b(k,131) = b(k,131) - lu(k,1534) * b(k,126) - b(k,132) = b(k,132) - lu(k,1535) * b(k,126) - b(k,133) = b(k,133) - lu(k,1536) * b(k,126) - b(k,134) = b(k,134) - lu(k,1537) * b(k,126) - b(k,135) = b(k,135) - lu(k,1538) * b(k,126) - b(k,136) = b(k,136) - lu(k,1539) * b(k,126) - b(k,137) = b(k,137) - lu(k,1540) * b(k,126) - b(k,138) = b(k,138) - lu(k,1541) * b(k,126) - b(k,139) = b(k,139) - lu(k,1542) * b(k,126) - b(k,128) = b(k,128) - lu(k,1567) * b(k,127) - b(k,129) = b(k,129) - lu(k,1568) * b(k,127) - b(k,130) = b(k,130) - lu(k,1569) * b(k,127) - b(k,131) = b(k,131) - lu(k,1570) * b(k,127) - b(k,132) = b(k,132) - lu(k,1571) * b(k,127) - b(k,133) = b(k,133) - lu(k,1572) * b(k,127) - b(k,134) = b(k,134) - lu(k,1573) * b(k,127) - b(k,135) = b(k,135) - lu(k,1574) * b(k,127) - b(k,136) = b(k,136) - lu(k,1575) * b(k,127) - b(k,137) = b(k,137) - lu(k,1576) * b(k,127) - b(k,138) = b(k,138) - lu(k,1577) * b(k,127) - b(k,139) = b(k,139) - lu(k,1578) * b(k,127) - b(k,129) = b(k,129) - lu(k,1613) * b(k,128) - b(k,130) = b(k,130) - lu(k,1614) * b(k,128) - b(k,131) = b(k,131) - lu(k,1615) * b(k,128) - b(k,132) = b(k,132) - lu(k,1616) * b(k,128) - b(k,133) = b(k,133) - lu(k,1617) * b(k,128) - b(k,134) = b(k,134) - lu(k,1618) * b(k,128) - b(k,135) = b(k,135) - lu(k,1619) * b(k,128) - b(k,136) = b(k,136) - lu(k,1620) * b(k,128) - b(k,137) = b(k,137) - lu(k,1621) * b(k,128) - b(k,138) = b(k,138) - lu(k,1622) * b(k,128) - b(k,139) = b(k,139) - lu(k,1623) * b(k,128) - b(k,130) = b(k,130) - lu(k,1657) * b(k,129) - b(k,131) = b(k,131) - lu(k,1658) * b(k,129) - b(k,132) = b(k,132) - lu(k,1659) * b(k,129) - b(k,133) = b(k,133) - lu(k,1660) * b(k,129) - b(k,134) = b(k,134) - lu(k,1661) * b(k,129) - b(k,135) = b(k,135) - lu(k,1662) * b(k,129) - b(k,136) = b(k,136) - lu(k,1663) * b(k,129) - b(k,137) = b(k,137) - lu(k,1664) * b(k,129) - b(k,138) = b(k,138) - lu(k,1665) * b(k,129) - b(k,139) = b(k,139) - lu(k,1666) * b(k,129) - b(k,131) = b(k,131) - lu(k,1701) * b(k,130) - b(k,132) = b(k,132) - lu(k,1702) * b(k,130) - b(k,133) = b(k,133) - lu(k,1703) * b(k,130) - b(k,134) = b(k,134) - lu(k,1704) * b(k,130) - b(k,135) = b(k,135) - lu(k,1705) * b(k,130) - b(k,136) = b(k,136) - lu(k,1706) * b(k,130) - b(k,137) = b(k,137) - lu(k,1707) * b(k,130) - b(k,138) = b(k,138) - lu(k,1708) * b(k,130) - b(k,139) = b(k,139) - lu(k,1709) * b(k,130) - b(k,132) = b(k,132) - lu(k,1742) * b(k,131) - b(k,133) = b(k,133) - lu(k,1743) * b(k,131) - b(k,134) = b(k,134) - lu(k,1744) * b(k,131) - b(k,135) = b(k,135) - lu(k,1745) * b(k,131) - b(k,136) = b(k,136) - lu(k,1746) * b(k,131) - b(k,137) = b(k,137) - lu(k,1747) * b(k,131) - b(k,138) = b(k,138) - lu(k,1748) * b(k,131) - b(k,139) = b(k,139) - lu(k,1749) * b(k,131) - b(k,133) = b(k,133) - lu(k,1779) * b(k,132) - b(k,134) = b(k,134) - lu(k,1780) * b(k,132) - b(k,135) = b(k,135) - lu(k,1781) * b(k,132) - b(k,136) = b(k,136) - lu(k,1782) * b(k,132) - b(k,137) = b(k,137) - lu(k,1783) * b(k,132) - b(k,138) = b(k,138) - lu(k,1784) * b(k,132) - b(k,139) = b(k,139) - lu(k,1785) * b(k,132) - b(k,134) = b(k,134) - lu(k,1828) * b(k,133) - b(k,135) = b(k,135) - lu(k,1829) * b(k,133) - b(k,136) = b(k,136) - lu(k,1830) * b(k,133) - b(k,137) = b(k,137) - lu(k,1831) * b(k,133) - b(k,138) = b(k,138) - lu(k,1832) * b(k,133) - b(k,139) = b(k,139) - lu(k,1833) * b(k,133) - b(k,135) = b(k,135) - lu(k,1862) * b(k,134) - b(k,136) = b(k,136) - lu(k,1863) * b(k,134) - b(k,137) = b(k,137) - lu(k,1864) * b(k,134) - b(k,138) = b(k,138) - lu(k,1865) * b(k,134) - b(k,139) = b(k,139) - lu(k,1866) * b(k,134) - b(k,136) = b(k,136) - lu(k,1899) * b(k,135) - b(k,137) = b(k,137) - lu(k,1900) * b(k,135) - b(k,138) = b(k,138) - lu(k,1901) * b(k,135) - b(k,139) = b(k,139) - lu(k,1902) * b(k,135) + b(k,125) = b(k,125) - lu(k,1433) * b(k,124) + b(k,126) = b(k,126) - lu(k,1434) * b(k,124) + b(k,127) = b(k,127) - lu(k,1435) * b(k,124) + b(k,128) = b(k,128) - lu(k,1436) * b(k,124) + b(k,129) = b(k,129) - lu(k,1437) * b(k,124) + b(k,130) = b(k,130) - lu(k,1438) * b(k,124) + b(k,131) = b(k,131) - lu(k,1439) * b(k,124) + b(k,132) = b(k,132) - lu(k,1440) * b(k,124) + b(k,133) = b(k,133) - lu(k,1441) * b(k,124) + b(k,134) = b(k,134) - lu(k,1442) * b(k,124) + b(k,135) = b(k,135) - lu(k,1443) * b(k,124) + b(k,136) = b(k,136) - lu(k,1444) * b(k,124) + b(k,137) = b(k,137) - lu(k,1445) * b(k,124) + b(k,138) = b(k,138) - lu(k,1446) * b(k,124) + b(k,139) = b(k,139) - lu(k,1447) * b(k,124) + b(k,126) = b(k,126) - lu(k,1482) * b(k,125) + b(k,127) = b(k,127) - lu(k,1483) * b(k,125) + b(k,128) = b(k,128) - lu(k,1484) * b(k,125) + b(k,129) = b(k,129) - lu(k,1485) * b(k,125) + b(k,130) = b(k,130) - lu(k,1486) * b(k,125) + b(k,131) = b(k,131) - lu(k,1487) * b(k,125) + b(k,132) = b(k,132) - lu(k,1488) * b(k,125) + b(k,133) = b(k,133) - lu(k,1489) * b(k,125) + b(k,134) = b(k,134) - lu(k,1490) * b(k,125) + b(k,135) = b(k,135) - lu(k,1491) * b(k,125) + b(k,136) = b(k,136) - lu(k,1492) * b(k,125) + b(k,137) = b(k,137) - lu(k,1493) * b(k,125) + b(k,138) = b(k,138) - lu(k,1494) * b(k,125) + b(k,139) = b(k,139) - lu(k,1495) * b(k,125) + b(k,127) = b(k,127) - lu(k,1524) * b(k,126) + b(k,128) = b(k,128) - lu(k,1525) * b(k,126) + b(k,129) = b(k,129) - lu(k,1526) * b(k,126) + b(k,130) = b(k,130) - lu(k,1527) * b(k,126) + b(k,131) = b(k,131) - lu(k,1528) * b(k,126) + b(k,132) = b(k,132) - lu(k,1529) * b(k,126) + b(k,133) = b(k,133) - lu(k,1530) * b(k,126) + b(k,134) = b(k,134) - lu(k,1531) * b(k,126) + b(k,135) = b(k,135) - lu(k,1532) * b(k,126) + b(k,136) = b(k,136) - lu(k,1533) * b(k,126) + b(k,137) = b(k,137) - lu(k,1534) * b(k,126) + b(k,138) = b(k,138) - lu(k,1535) * b(k,126) + b(k,139) = b(k,139) - lu(k,1536) * b(k,126) + b(k,128) = b(k,128) - lu(k,1561) * b(k,127) + b(k,129) = b(k,129) - lu(k,1562) * b(k,127) + b(k,130) = b(k,130) - lu(k,1563) * b(k,127) + b(k,131) = b(k,131) - lu(k,1564) * b(k,127) + b(k,132) = b(k,132) - lu(k,1565) * b(k,127) + b(k,133) = b(k,133) - lu(k,1566) * b(k,127) + b(k,134) = b(k,134) - lu(k,1567) * b(k,127) + b(k,135) = b(k,135) - lu(k,1568) * b(k,127) + b(k,136) = b(k,136) - lu(k,1569) * b(k,127) + b(k,137) = b(k,137) - lu(k,1570) * b(k,127) + b(k,138) = b(k,138) - lu(k,1571) * b(k,127) + b(k,139) = b(k,139) - lu(k,1572) * b(k,127) + b(k,129) = b(k,129) - lu(k,1607) * b(k,128) + b(k,130) = b(k,130) - lu(k,1608) * b(k,128) + b(k,131) = b(k,131) - lu(k,1609) * b(k,128) + b(k,132) = b(k,132) - lu(k,1610) * b(k,128) + b(k,133) = b(k,133) - lu(k,1611) * b(k,128) + b(k,134) = b(k,134) - lu(k,1612) * b(k,128) + b(k,135) = b(k,135) - lu(k,1613) * b(k,128) + b(k,136) = b(k,136) - lu(k,1614) * b(k,128) + b(k,137) = b(k,137) - lu(k,1615) * b(k,128) + b(k,138) = b(k,138) - lu(k,1616) * b(k,128) + b(k,139) = b(k,139) - lu(k,1617) * b(k,128) + b(k,130) = b(k,130) - lu(k,1651) * b(k,129) + b(k,131) = b(k,131) - lu(k,1652) * b(k,129) + b(k,132) = b(k,132) - lu(k,1653) * b(k,129) + b(k,133) = b(k,133) - lu(k,1654) * b(k,129) + b(k,134) = b(k,134) - lu(k,1655) * b(k,129) + b(k,135) = b(k,135) - lu(k,1656) * b(k,129) + b(k,136) = b(k,136) - lu(k,1657) * b(k,129) + b(k,137) = b(k,137) - lu(k,1658) * b(k,129) + b(k,138) = b(k,138) - lu(k,1659) * b(k,129) + b(k,139) = b(k,139) - lu(k,1660) * b(k,129) + b(k,131) = b(k,131) - lu(k,1694) * b(k,130) + b(k,132) = b(k,132) - lu(k,1695) * b(k,130) + b(k,133) = b(k,133) - lu(k,1696) * b(k,130) + b(k,134) = b(k,134) - lu(k,1697) * b(k,130) + b(k,135) = b(k,135) - lu(k,1698) * b(k,130) + b(k,136) = b(k,136) - lu(k,1699) * b(k,130) + b(k,137) = b(k,137) - lu(k,1700) * b(k,130) + b(k,138) = b(k,138) - lu(k,1701) * b(k,130) + b(k,139) = b(k,139) - lu(k,1702) * b(k,130) + b(k,132) = b(k,132) - lu(k,1735) * b(k,131) + b(k,133) = b(k,133) - lu(k,1736) * b(k,131) + b(k,134) = b(k,134) - lu(k,1737) * b(k,131) + b(k,135) = b(k,135) - lu(k,1738) * b(k,131) + b(k,136) = b(k,136) - lu(k,1739) * b(k,131) + b(k,137) = b(k,137) - lu(k,1740) * b(k,131) + b(k,138) = b(k,138) - lu(k,1741) * b(k,131) + b(k,139) = b(k,139) - lu(k,1742) * b(k,131) + b(k,133) = b(k,133) - lu(k,1772) * b(k,132) + b(k,134) = b(k,134) - lu(k,1773) * b(k,132) + b(k,135) = b(k,135) - lu(k,1774) * b(k,132) + b(k,136) = b(k,136) - lu(k,1775) * b(k,132) + b(k,137) = b(k,137) - lu(k,1776) * b(k,132) + b(k,138) = b(k,138) - lu(k,1777) * b(k,132) + b(k,139) = b(k,139) - lu(k,1778) * b(k,132) + b(k,134) = b(k,134) - lu(k,1821) * b(k,133) + b(k,135) = b(k,135) - lu(k,1822) * b(k,133) + b(k,136) = b(k,136) - lu(k,1823) * b(k,133) + b(k,137) = b(k,137) - lu(k,1824) * b(k,133) + b(k,138) = b(k,138) - lu(k,1825) * b(k,133) + b(k,139) = b(k,139) - lu(k,1826) * b(k,133) + b(k,135) = b(k,135) - lu(k,1855) * b(k,134) + b(k,136) = b(k,136) - lu(k,1856) * b(k,134) + b(k,137) = b(k,137) - lu(k,1857) * b(k,134) + b(k,138) = b(k,138) - lu(k,1858) * b(k,134) + b(k,139) = b(k,139) - lu(k,1859) * b(k,134) + b(k,136) = b(k,136) - lu(k,1892) * b(k,135) + b(k,137) = b(k,137) - lu(k,1893) * b(k,135) + b(k,138) = b(k,138) - lu(k,1894) * b(k,135) + b(k,139) = b(k,139) - lu(k,1895) * b(k,135) end do end subroutine lu_slv05 subroutine lu_slv06( avec_len, lu, b ) @@ -1160,12 +1161,12 @@ subroutine lu_slv06( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,137) = b(k,137) - lu(k,1941) * b(k,136) - b(k,138) = b(k,138) - lu(k,1942) * b(k,136) - b(k,139) = b(k,139) - lu(k,1943) * b(k,136) - b(k,138) = b(k,138) - lu(k,1984) * b(k,137) - b(k,139) = b(k,139) - lu(k,1985) * b(k,137) - b(k,139) = b(k,139) - lu(k,2030) * b(k,138) + b(k,137) = b(k,137) - lu(k,1942) * b(k,136) + b(k,138) = b(k,138) - lu(k,1943) * b(k,136) + b(k,139) = b(k,139) - lu(k,1944) * b(k,136) + b(k,138) = b(k,138) - lu(k,1987) * b(k,137) + b(k,139) = b(k,139) - lu(k,1988) * b(k,137) + b(k,139) = b(k,139) - lu(k,2033) * b(k,138) end do end subroutine lu_slv06 subroutine lu_slv07( avec_len, lu, b ) @@ -1189,220 +1190,230 @@ subroutine lu_slv07( avec_len, lu, b ) !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,139) = b(k,139) * lu(k,2090) - b(k,138) = b(k,138) - lu(k,2089) * b(k,139) - b(k,137) = b(k,137) - lu(k,2088) * b(k,139) - b(k,136) = b(k,136) - lu(k,2087) * b(k,139) - b(k,135) = b(k,135) - lu(k,2086) * b(k,139) - b(k,134) = b(k,134) - lu(k,2085) * b(k,139) - b(k,133) = b(k,133) - lu(k,2084) * b(k,139) - b(k,132) = b(k,132) - lu(k,2083) * b(k,139) - b(k,131) = b(k,131) - lu(k,2082) * b(k,139) - b(k,130) = b(k,130) - lu(k,2081) * b(k,139) - b(k,129) = b(k,129) - lu(k,2080) * b(k,139) - b(k,128) = b(k,128) - lu(k,2079) * b(k,139) - b(k,127) = b(k,127) - lu(k,2078) * b(k,139) - b(k,126) = b(k,126) - lu(k,2077) * b(k,139) - b(k,125) = b(k,125) - lu(k,2076) * b(k,139) - b(k,124) = b(k,124) - lu(k,2075) * b(k,139) - b(k,123) = b(k,123) - lu(k,2074) * b(k,139) - b(k,122) = b(k,122) - lu(k,2073) * b(k,139) - b(k,121) = b(k,121) - lu(k,2072) * b(k,139) - b(k,120) = b(k,120) - lu(k,2071) * b(k,139) - b(k,119) = b(k,119) - lu(k,2070) * b(k,139) - b(k,118) = b(k,118) - lu(k,2069) * b(k,139) - b(k,117) = b(k,117) - lu(k,2068) * b(k,139) - b(k,116) = b(k,116) - lu(k,2067) * b(k,139) - b(k,115) = b(k,115) - lu(k,2066) * b(k,139) - b(k,114) = b(k,114) - lu(k,2065) * b(k,139) - b(k,113) = b(k,113) - lu(k,2064) * b(k,139) - b(k,112) = b(k,112) - lu(k,2063) * b(k,139) - b(k,111) = b(k,111) - lu(k,2062) * b(k,139) - b(k,109) = b(k,109) - lu(k,2061) * b(k,139) - b(k,108) = b(k,108) - lu(k,2060) * b(k,139) - b(k,107) = b(k,107) - lu(k,2059) * b(k,139) - b(k,106) = b(k,106) - lu(k,2058) * b(k,139) - b(k,105) = b(k,105) - lu(k,2057) * b(k,139) - b(k,104) = b(k,104) - lu(k,2056) * b(k,139) - b(k,103) = b(k,103) - lu(k,2055) * b(k,139) - b(k,102) = b(k,102) - lu(k,2054) * b(k,139) - b(k,99) = b(k,99) - lu(k,2053) * b(k,139) - b(k,97) = b(k,97) - lu(k,2052) * b(k,139) - b(k,96) = b(k,96) - lu(k,2051) * b(k,139) - b(k,94) = b(k,94) - lu(k,2050) * b(k,139) - b(k,92) = b(k,92) - lu(k,2049) * b(k,139) - b(k,91) = b(k,91) - lu(k,2048) * b(k,139) - b(k,89) = b(k,89) - lu(k,2047) * b(k,139) - b(k,88) = b(k,88) - lu(k,2046) * b(k,139) - b(k,82) = b(k,82) - lu(k,2045) * b(k,139) - b(k,81) = b(k,81) - lu(k,2044) * b(k,139) - b(k,75) = b(k,75) - lu(k,2043) * b(k,139) - b(k,74) = b(k,74) - lu(k,2042) * b(k,139) - b(k,73) = b(k,73) - lu(k,2041) * b(k,139) - b(k,71) = b(k,71) - lu(k,2040) * b(k,139) - b(k,70) = b(k,70) - lu(k,2039) * b(k,139) - b(k,68) = b(k,68) - lu(k,2038) * b(k,139) - b(k,58) = b(k,58) - lu(k,2037) * b(k,139) - b(k,57) = b(k,57) - lu(k,2036) * b(k,139) - b(k,49) = b(k,49) - lu(k,2035) * b(k,139) - b(k,47) = b(k,47) - lu(k,2034) * b(k,139) - b(k,46) = b(k,46) - lu(k,2033) * b(k,139) - b(k,45) = b(k,45) - lu(k,2032) * b(k,139) - b(k,33) = b(k,33) - lu(k,2031) * b(k,139) - b(k,138) = b(k,138) * lu(k,2029) - b(k,137) = b(k,137) - lu(k,2028) * b(k,138) - b(k,136) = b(k,136) - lu(k,2027) * b(k,138) - b(k,135) = b(k,135) - lu(k,2026) * b(k,138) - b(k,134) = b(k,134) - lu(k,2025) * b(k,138) - b(k,133) = b(k,133) - lu(k,2024) * b(k,138) - b(k,132) = b(k,132) - lu(k,2023) * b(k,138) - b(k,131) = b(k,131) - lu(k,2022) * b(k,138) - b(k,130) = b(k,130) - lu(k,2021) * b(k,138) - b(k,129) = b(k,129) - lu(k,2020) * b(k,138) - b(k,128) = b(k,128) - lu(k,2019) * b(k,138) - b(k,127) = b(k,127) - lu(k,2018) * b(k,138) - b(k,126) = b(k,126) - lu(k,2017) * b(k,138) - b(k,125) = b(k,125) - lu(k,2016) * b(k,138) - b(k,124) = b(k,124) - lu(k,2015) * b(k,138) - b(k,123) = b(k,123) - lu(k,2014) * b(k,138) - b(k,122) = b(k,122) - lu(k,2013) * b(k,138) - b(k,121) = b(k,121) - lu(k,2012) * b(k,138) - b(k,120) = b(k,120) - lu(k,2011) * b(k,138) - b(k,119) = b(k,119) - lu(k,2010) * b(k,138) - b(k,118) = b(k,118) - lu(k,2009) * b(k,138) - b(k,117) = b(k,117) - lu(k,2008) * b(k,138) - b(k,116) = b(k,116) - lu(k,2007) * b(k,138) - b(k,115) = b(k,115) - lu(k,2006) * b(k,138) - b(k,114) = b(k,114) - lu(k,2005) * b(k,138) - b(k,113) = b(k,113) - lu(k,2004) * b(k,138) - b(k,112) = b(k,112) - lu(k,2003) * b(k,138) - b(k,111) = b(k,111) - lu(k,2002) * b(k,138) - b(k,110) = b(k,110) - lu(k,2001) * b(k,138) - b(k,109) = b(k,109) - lu(k,2000) * b(k,138) - b(k,108) = b(k,108) - lu(k,1999) * b(k,138) - b(k,107) = b(k,107) - lu(k,1998) * b(k,138) - b(k,106) = b(k,106) - lu(k,1997) * b(k,138) - b(k,101) = b(k,101) - lu(k,1996) * b(k,138) - b(k,99) = b(k,99) - lu(k,1995) * b(k,138) - b(k,98) = b(k,98) - lu(k,1994) * b(k,138) - b(k,96) = b(k,96) - lu(k,1993) * b(k,138) - b(k,95) = b(k,95) - lu(k,1992) * b(k,138) - b(k,83) = b(k,83) - lu(k,1991) * b(k,138) - b(k,80) = b(k,80) - lu(k,1990) * b(k,138) - b(k,77) = b(k,77) - lu(k,1989) * b(k,138) - b(k,73) = b(k,73) - lu(k,1988) * b(k,138) - b(k,43) = b(k,43) - lu(k,1987) * b(k,138) - b(k,38) = b(k,38) - lu(k,1986) * b(k,138) - b(k,137) = b(k,137) * lu(k,1983) - b(k,136) = b(k,136) - lu(k,1982) * b(k,137) - b(k,135) = b(k,135) - lu(k,1981) * b(k,137) - b(k,134) = b(k,134) - lu(k,1980) * b(k,137) - b(k,133) = b(k,133) - lu(k,1979) * b(k,137) - b(k,132) = b(k,132) - lu(k,1978) * b(k,137) - b(k,131) = b(k,131) - lu(k,1977) * b(k,137) - b(k,130) = b(k,130) - lu(k,1976) * b(k,137) - b(k,129) = b(k,129) - lu(k,1975) * b(k,137) - b(k,128) = b(k,128) - lu(k,1974) * b(k,137) - b(k,127) = b(k,127) - lu(k,1973) * b(k,137) - b(k,126) = b(k,126) - lu(k,1972) * b(k,137) - b(k,125) = b(k,125) - lu(k,1971) * b(k,137) - b(k,124) = b(k,124) - lu(k,1970) * b(k,137) - b(k,123) = b(k,123) - lu(k,1969) * b(k,137) - b(k,122) = b(k,122) - lu(k,1968) * b(k,137) - b(k,121) = b(k,121) - lu(k,1967) * b(k,137) - b(k,120) = b(k,120) - lu(k,1966) * b(k,137) - b(k,119) = b(k,119) - lu(k,1965) * b(k,137) - b(k,118) = b(k,118) - lu(k,1964) * b(k,137) - b(k,117) = b(k,117) - lu(k,1963) * b(k,137) - b(k,116) = b(k,116) - lu(k,1962) * b(k,137) - b(k,115) = b(k,115) - lu(k,1961) * b(k,137) - b(k,114) = b(k,114) - lu(k,1960) * b(k,137) - b(k,113) = b(k,113) - lu(k,1959) * b(k,137) - b(k,112) = b(k,112) - lu(k,1958) * b(k,137) - b(k,111) = b(k,111) - lu(k,1957) * b(k,137) - b(k,109) = b(k,109) - lu(k,1956) * b(k,137) - b(k,108) = b(k,108) - lu(k,1955) * b(k,137) - b(k,107) = b(k,107) - lu(k,1954) * b(k,137) - b(k,106) = b(k,106) - lu(k,1953) * b(k,137) - b(k,105) = b(k,105) - lu(k,1952) * b(k,137) - b(k,104) = b(k,104) - lu(k,1951) * b(k,137) - b(k,100) = b(k,100) - lu(k,1950) * b(k,137) - b(k,99) = b(k,99) - lu(k,1949) * b(k,137) - b(k,97) = b(k,97) - lu(k,1948) * b(k,137) - b(k,90) = b(k,90) - lu(k,1947) * b(k,137) - b(k,89) = b(k,89) - lu(k,1946) * b(k,137) - b(k,84) = b(k,84) - lu(k,1945) * b(k,137) - b(k,73) = b(k,73) - lu(k,1944) * b(k,137) - b(k,136) = b(k,136) * lu(k,1940) - b(k,135) = b(k,135) - lu(k,1939) * b(k,136) - b(k,134) = b(k,134) - lu(k,1938) * b(k,136) - b(k,133) = b(k,133) - lu(k,1937) * b(k,136) - b(k,132) = b(k,132) - lu(k,1936) * b(k,136) - b(k,131) = b(k,131) - lu(k,1935) * b(k,136) - b(k,130) = b(k,130) - lu(k,1934) * b(k,136) - b(k,129) = b(k,129) - lu(k,1933) * b(k,136) - b(k,128) = b(k,128) - lu(k,1932) * b(k,136) - b(k,127) = b(k,127) - lu(k,1931) * b(k,136) - b(k,126) = b(k,126) - lu(k,1930) * b(k,136) - b(k,125) = b(k,125) - lu(k,1929) * b(k,136) - b(k,124) = b(k,124) - lu(k,1928) * b(k,136) - b(k,123) = b(k,123) - lu(k,1927) * b(k,136) - b(k,122) = b(k,122) - lu(k,1926) * b(k,136) - b(k,121) = b(k,121) - lu(k,1925) * b(k,136) - b(k,120) = b(k,120) - lu(k,1924) * b(k,136) - b(k,119) = b(k,119) - lu(k,1923) * b(k,136) - b(k,118) = b(k,118) - lu(k,1922) * b(k,136) - b(k,117) = b(k,117) - lu(k,1921) * b(k,136) - b(k,116) = b(k,116) - lu(k,1920) * b(k,136) - b(k,115) = b(k,115) - lu(k,1919) * b(k,136) - b(k,114) = b(k,114) - lu(k,1918) * b(k,136) - b(k,113) = b(k,113) - lu(k,1917) * b(k,136) - b(k,112) = b(k,112) - lu(k,1916) * b(k,136) - b(k,111) = b(k,111) - lu(k,1915) * b(k,136) - b(k,110) = b(k,110) - lu(k,1914) * b(k,136) - b(k,108) = b(k,108) - lu(k,1913) * b(k,136) - b(k,107) = b(k,107) - lu(k,1912) * b(k,136) - b(k,106) = b(k,106) - lu(k,1911) * b(k,136) - b(k,100) = b(k,100) - lu(k,1910) * b(k,136) - b(k,99) = b(k,99) - lu(k,1909) * b(k,136) - b(k,92) = b(k,92) - lu(k,1908) * b(k,136) - b(k,91) = b(k,91) - lu(k,1907) * b(k,136) - b(k,85) = b(k,85) - lu(k,1906) * b(k,136) - b(k,82) = b(k,82) - lu(k,1905) * b(k,136) - b(k,72) = b(k,72) - lu(k,1904) * b(k,136) - b(k,51) = b(k,51) - lu(k,1903) * b(k,136) - b(k,135) = b(k,135) * lu(k,1898) - b(k,134) = b(k,134) - lu(k,1897) * b(k,135) - b(k,133) = b(k,133) - lu(k,1896) * b(k,135) - b(k,132) = b(k,132) - lu(k,1895) * b(k,135) - b(k,131) = b(k,131) - lu(k,1894) * b(k,135) - b(k,130) = b(k,130) - lu(k,1893) * b(k,135) - b(k,129) = b(k,129) - lu(k,1892) * b(k,135) - b(k,128) = b(k,128) - lu(k,1891) * b(k,135) - b(k,127) = b(k,127) - lu(k,1890) * b(k,135) - b(k,126) = b(k,126) - lu(k,1889) * b(k,135) - b(k,125) = b(k,125) - lu(k,1888) * b(k,135) - b(k,124) = b(k,124) - lu(k,1887) * b(k,135) - b(k,123) = b(k,123) - lu(k,1886) * b(k,135) - b(k,122) = b(k,122) - lu(k,1885) * b(k,135) - b(k,121) = b(k,121) - lu(k,1884) * b(k,135) - b(k,120) = b(k,120) - lu(k,1883) * b(k,135) - b(k,119) = b(k,119) - lu(k,1882) * b(k,135) - b(k,118) = b(k,118) - lu(k,1881) * b(k,135) - b(k,117) = b(k,117) - lu(k,1880) * b(k,135) - b(k,116) = b(k,116) - lu(k,1879) * b(k,135) - b(k,115) = b(k,115) - lu(k,1878) * b(k,135) - b(k,114) = b(k,114) - lu(k,1877) * b(k,135) - b(k,113) = b(k,113) - lu(k,1876) * b(k,135) - b(k,112) = b(k,112) - lu(k,1875) * b(k,135) - b(k,111) = b(k,111) - lu(k,1874) * b(k,135) - b(k,109) = b(k,109) - lu(k,1873) * b(k,135) - b(k,108) = b(k,108) - lu(k,1872) * b(k,135) - b(k,107) = b(k,107) - lu(k,1871) * b(k,135) - b(k,103) = b(k,103) - lu(k,1870) * b(k,135) - b(k,100) = b(k,100) - lu(k,1869) * b(k,135) - b(k,91) = b(k,91) - lu(k,1868) * b(k,135) - b(k,85) = b(k,85) - lu(k,1867) * b(k,135) + b(k,139) = b(k,139) * lu(k,2093) + b(k,138) = b(k,138) - lu(k,2092) * b(k,139) + b(k,137) = b(k,137) - lu(k,2091) * b(k,139) + b(k,136) = b(k,136) - lu(k,2090) * b(k,139) + b(k,135) = b(k,135) - lu(k,2089) * b(k,139) + b(k,134) = b(k,134) - lu(k,2088) * b(k,139) + b(k,133) = b(k,133) - lu(k,2087) * b(k,139) + b(k,132) = b(k,132) - lu(k,2086) * b(k,139) + b(k,131) = b(k,131) - lu(k,2085) * b(k,139) + b(k,130) = b(k,130) - lu(k,2084) * b(k,139) + b(k,129) = b(k,129) - lu(k,2083) * b(k,139) + b(k,128) = b(k,128) - lu(k,2082) * b(k,139) + b(k,127) = b(k,127) - lu(k,2081) * b(k,139) + b(k,126) = b(k,126) - lu(k,2080) * b(k,139) + b(k,125) = b(k,125) - lu(k,2079) * b(k,139) + b(k,124) = b(k,124) - lu(k,2078) * b(k,139) + b(k,123) = b(k,123) - lu(k,2077) * b(k,139) + b(k,122) = b(k,122) - lu(k,2076) * b(k,139) + b(k,121) = b(k,121) - lu(k,2075) * b(k,139) + b(k,120) = b(k,120) - lu(k,2074) * b(k,139) + b(k,119) = b(k,119) - lu(k,2073) * b(k,139) + b(k,118) = b(k,118) - lu(k,2072) * b(k,139) + b(k,117) = b(k,117) - lu(k,2071) * b(k,139) + b(k,116) = b(k,116) - lu(k,2070) * b(k,139) + b(k,115) = b(k,115) - lu(k,2069) * b(k,139) + b(k,114) = b(k,114) - lu(k,2068) * b(k,139) + b(k,113) = b(k,113) - lu(k,2067) * b(k,139) + b(k,112) = b(k,112) - lu(k,2066) * b(k,139) + b(k,111) = b(k,111) - lu(k,2065) * b(k,139) + b(k,109) = b(k,109) - lu(k,2064) * b(k,139) + b(k,108) = b(k,108) - lu(k,2063) * b(k,139) + b(k,107) = b(k,107) - lu(k,2062) * b(k,139) + b(k,106) = b(k,106) - lu(k,2061) * b(k,139) + b(k,105) = b(k,105) - lu(k,2060) * b(k,139) + b(k,104) = b(k,104) - lu(k,2059) * b(k,139) + b(k,103) = b(k,103) - lu(k,2058) * b(k,139) + b(k,102) = b(k,102) - lu(k,2057) * b(k,139) + b(k,99) = b(k,99) - lu(k,2056) * b(k,139) + b(k,97) = b(k,97) - lu(k,2055) * b(k,139) + b(k,96) = b(k,96) - lu(k,2054) * b(k,139) + b(k,94) = b(k,94) - lu(k,2053) * b(k,139) + b(k,92) = b(k,92) - lu(k,2052) * b(k,139) + b(k,91) = b(k,91) - lu(k,2051) * b(k,139) + b(k,89) = b(k,89) - lu(k,2050) * b(k,139) + b(k,88) = b(k,88) - lu(k,2049) * b(k,139) + b(k,82) = b(k,82) - lu(k,2048) * b(k,139) + b(k,80) = b(k,80) - lu(k,2047) * b(k,139) + b(k,75) = b(k,75) - lu(k,2046) * b(k,139) + b(k,74) = b(k,74) - lu(k,2045) * b(k,139) + b(k,73) = b(k,73) - lu(k,2044) * b(k,139) + b(k,71) = b(k,71) - lu(k,2043) * b(k,139) + b(k,70) = b(k,70) - lu(k,2042) * b(k,139) + b(k,68) = b(k,68) - lu(k,2041) * b(k,139) + b(k,58) = b(k,58) - lu(k,2040) * b(k,139) + b(k,57) = b(k,57) - lu(k,2039) * b(k,139) + b(k,49) = b(k,49) - lu(k,2038) * b(k,139) + b(k,47) = b(k,47) - lu(k,2037) * b(k,139) + b(k,46) = b(k,46) - lu(k,2036) * b(k,139) + b(k,45) = b(k,45) - lu(k,2035) * b(k,139) + b(k,33) = b(k,33) - lu(k,2034) * b(k,139) + b(k,138) = b(k,138) * lu(k,2032) + b(k,137) = b(k,137) - lu(k,2031) * b(k,138) + b(k,136) = b(k,136) - lu(k,2030) * b(k,138) + b(k,135) = b(k,135) - lu(k,2029) * b(k,138) + b(k,134) = b(k,134) - lu(k,2028) * b(k,138) + b(k,133) = b(k,133) - lu(k,2027) * b(k,138) + b(k,132) = b(k,132) - lu(k,2026) * b(k,138) + b(k,131) = b(k,131) - lu(k,2025) * b(k,138) + b(k,130) = b(k,130) - lu(k,2024) * b(k,138) + b(k,129) = b(k,129) - lu(k,2023) * b(k,138) + b(k,128) = b(k,128) - lu(k,2022) * b(k,138) + b(k,127) = b(k,127) - lu(k,2021) * b(k,138) + b(k,126) = b(k,126) - lu(k,2020) * b(k,138) + b(k,125) = b(k,125) - lu(k,2019) * b(k,138) + b(k,124) = b(k,124) - lu(k,2018) * b(k,138) + b(k,123) = b(k,123) - lu(k,2017) * b(k,138) + b(k,122) = b(k,122) - lu(k,2016) * b(k,138) + b(k,121) = b(k,121) - lu(k,2015) * b(k,138) + b(k,120) = b(k,120) - lu(k,2014) * b(k,138) + b(k,119) = b(k,119) - lu(k,2013) * b(k,138) + b(k,118) = b(k,118) - lu(k,2012) * b(k,138) + b(k,117) = b(k,117) - lu(k,2011) * b(k,138) + b(k,116) = b(k,116) - lu(k,2010) * b(k,138) + b(k,115) = b(k,115) - lu(k,2009) * b(k,138) + b(k,114) = b(k,114) - lu(k,2008) * b(k,138) + b(k,113) = b(k,113) - lu(k,2007) * b(k,138) + b(k,112) = b(k,112) - lu(k,2006) * b(k,138) + b(k,111) = b(k,111) - lu(k,2005) * b(k,138) + b(k,110) = b(k,110) - lu(k,2004) * b(k,138) + b(k,109) = b(k,109) - lu(k,2003) * b(k,138) + b(k,108) = b(k,108) - lu(k,2002) * b(k,138) + b(k,107) = b(k,107) - lu(k,2001) * b(k,138) + b(k,106) = b(k,106) - lu(k,2000) * b(k,138) + b(k,101) = b(k,101) - lu(k,1999) * b(k,138) + b(k,99) = b(k,99) - lu(k,1998) * b(k,138) + b(k,98) = b(k,98) - lu(k,1997) * b(k,138) + b(k,96) = b(k,96) - lu(k,1996) * b(k,138) + b(k,95) = b(k,95) - lu(k,1995) * b(k,138) + b(k,83) = b(k,83) - lu(k,1994) * b(k,138) + b(k,79) = b(k,79) - lu(k,1993) * b(k,138) + b(k,76) = b(k,76) - lu(k,1992) * b(k,138) + b(k,73) = b(k,73) - lu(k,1991) * b(k,138) + b(k,43) = b(k,43) - lu(k,1990) * b(k,138) + b(k,38) = b(k,38) - lu(k,1989) * b(k,138) + b(k,137) = b(k,137) * lu(k,1986) + b(k,136) = b(k,136) - lu(k,1985) * b(k,137) + b(k,135) = b(k,135) - lu(k,1984) * b(k,137) + b(k,134) = b(k,134) - lu(k,1983) * b(k,137) + b(k,133) = b(k,133) - lu(k,1982) * b(k,137) + b(k,132) = b(k,132) - lu(k,1981) * b(k,137) + b(k,131) = b(k,131) - lu(k,1980) * b(k,137) + b(k,130) = b(k,130) - lu(k,1979) * b(k,137) + b(k,129) = b(k,129) - lu(k,1978) * b(k,137) + b(k,128) = b(k,128) - lu(k,1977) * b(k,137) + b(k,127) = b(k,127) - lu(k,1976) * b(k,137) + b(k,126) = b(k,126) - lu(k,1975) * b(k,137) + b(k,125) = b(k,125) - lu(k,1974) * b(k,137) + b(k,124) = b(k,124) - lu(k,1973) * b(k,137) + b(k,123) = b(k,123) - lu(k,1972) * b(k,137) + b(k,122) = b(k,122) - lu(k,1971) * b(k,137) + b(k,121) = b(k,121) - lu(k,1970) * b(k,137) + b(k,120) = b(k,120) - lu(k,1969) * b(k,137) + b(k,119) = b(k,119) - lu(k,1968) * b(k,137) + b(k,118) = b(k,118) - lu(k,1967) * b(k,137) + b(k,117) = b(k,117) - lu(k,1966) * b(k,137) + b(k,116) = b(k,116) - lu(k,1965) * b(k,137) + b(k,115) = b(k,115) - lu(k,1964) * b(k,137) + b(k,114) = b(k,114) - lu(k,1963) * b(k,137) + b(k,113) = b(k,113) - lu(k,1962) * b(k,137) + b(k,112) = b(k,112) - lu(k,1961) * b(k,137) + b(k,111) = b(k,111) - lu(k,1960) * b(k,137) + b(k,109) = b(k,109) - lu(k,1959) * b(k,137) + b(k,108) = b(k,108) - lu(k,1958) * b(k,137) + b(k,107) = b(k,107) - lu(k,1957) * b(k,137) + b(k,106) = b(k,106) - lu(k,1956) * b(k,137) + b(k,105) = b(k,105) - lu(k,1955) * b(k,137) + b(k,104) = b(k,104) - lu(k,1954) * b(k,137) + b(k,100) = b(k,100) - lu(k,1953) * b(k,137) + b(k,99) = b(k,99) - lu(k,1952) * b(k,137) + b(k,97) = b(k,97) - lu(k,1951) * b(k,137) + b(k,90) = b(k,90) - lu(k,1950) * b(k,137) + b(k,89) = b(k,89) - lu(k,1949) * b(k,137) + b(k,87) = b(k,87) - lu(k,1948) * b(k,137) + b(k,84) = b(k,84) - lu(k,1947) * b(k,137) + b(k,81) = b(k,81) - lu(k,1946) * b(k,137) + b(k,73) = b(k,73) - lu(k,1945) * b(k,137) + b(k,136) = b(k,136) * lu(k,1941) + b(k,135) = b(k,135) - lu(k,1940) * b(k,136) + b(k,134) = b(k,134) - lu(k,1939) * b(k,136) + b(k,133) = b(k,133) - lu(k,1938) * b(k,136) + b(k,132) = b(k,132) - lu(k,1937) * b(k,136) + b(k,131) = b(k,131) - lu(k,1936) * b(k,136) + b(k,130) = b(k,130) - lu(k,1935) * b(k,136) + b(k,129) = b(k,129) - lu(k,1934) * b(k,136) + b(k,128) = b(k,128) - lu(k,1933) * b(k,136) + b(k,127) = b(k,127) - lu(k,1932) * b(k,136) + b(k,126) = b(k,126) - lu(k,1931) * b(k,136) + b(k,125) = b(k,125) - lu(k,1930) * b(k,136) + b(k,124) = b(k,124) - lu(k,1929) * b(k,136) + b(k,123) = b(k,123) - lu(k,1928) * b(k,136) + b(k,122) = b(k,122) - lu(k,1927) * b(k,136) + b(k,121) = b(k,121) - lu(k,1926) * b(k,136) + b(k,120) = b(k,120) - lu(k,1925) * b(k,136) + b(k,119) = b(k,119) - lu(k,1924) * b(k,136) + b(k,118) = b(k,118) - lu(k,1923) * b(k,136) + b(k,117) = b(k,117) - lu(k,1922) * b(k,136) + b(k,116) = b(k,116) - lu(k,1921) * b(k,136) + b(k,115) = b(k,115) - lu(k,1920) * b(k,136) + b(k,114) = b(k,114) - lu(k,1919) * b(k,136) + b(k,113) = b(k,113) - lu(k,1918) * b(k,136) + b(k,112) = b(k,112) - lu(k,1917) * b(k,136) + b(k,111) = b(k,111) - lu(k,1916) * b(k,136) + b(k,110) = b(k,110) - lu(k,1915) * b(k,136) + b(k,108) = b(k,108) - lu(k,1914) * b(k,136) + b(k,107) = b(k,107) - lu(k,1913) * b(k,136) + b(k,106) = b(k,106) - lu(k,1912) * b(k,136) + b(k,100) = b(k,100) - lu(k,1911) * b(k,136) + b(k,99) = b(k,99) - lu(k,1910) * b(k,136) + b(k,92) = b(k,92) - lu(k,1909) * b(k,136) + b(k,91) = b(k,91) - lu(k,1908) * b(k,136) + b(k,90) = b(k,90) - lu(k,1907) * b(k,136) + b(k,87) = b(k,87) - lu(k,1906) * b(k,136) + b(k,85) = b(k,85) - lu(k,1905) * b(k,136) + b(k,82) = b(k,82) - lu(k,1904) * b(k,136) + b(k,81) = b(k,81) - lu(k,1903) * b(k,136) + b(k,77) = b(k,77) - lu(k,1902) * b(k,136) + b(k,72) = b(k,72) - lu(k,1901) * b(k,136) + b(k,67) = b(k,67) - lu(k,1900) * b(k,136) + b(k,66) = b(k,66) - lu(k,1899) * b(k,136) + b(k,62) = b(k,62) - lu(k,1898) * b(k,136) + b(k,61) = b(k,61) - lu(k,1897) * b(k,136) + b(k,51) = b(k,51) - lu(k,1896) * b(k,136) + b(k,135) = b(k,135) * lu(k,1891) + b(k,134) = b(k,134) - lu(k,1890) * b(k,135) + b(k,133) = b(k,133) - lu(k,1889) * b(k,135) + b(k,132) = b(k,132) - lu(k,1888) * b(k,135) + b(k,131) = b(k,131) - lu(k,1887) * b(k,135) + b(k,130) = b(k,130) - lu(k,1886) * b(k,135) + b(k,129) = b(k,129) - lu(k,1885) * b(k,135) + b(k,128) = b(k,128) - lu(k,1884) * b(k,135) + b(k,127) = b(k,127) - lu(k,1883) * b(k,135) + b(k,126) = b(k,126) - lu(k,1882) * b(k,135) + b(k,125) = b(k,125) - lu(k,1881) * b(k,135) + b(k,124) = b(k,124) - lu(k,1880) * b(k,135) + b(k,123) = b(k,123) - lu(k,1879) * b(k,135) + b(k,122) = b(k,122) - lu(k,1878) * b(k,135) + b(k,121) = b(k,121) - lu(k,1877) * b(k,135) + b(k,120) = b(k,120) - lu(k,1876) * b(k,135) + b(k,119) = b(k,119) - lu(k,1875) * b(k,135) + b(k,118) = b(k,118) - lu(k,1874) * b(k,135) + b(k,117) = b(k,117) - lu(k,1873) * b(k,135) + b(k,116) = b(k,116) - lu(k,1872) * b(k,135) + b(k,115) = b(k,115) - lu(k,1871) * b(k,135) + b(k,114) = b(k,114) - lu(k,1870) * b(k,135) + b(k,113) = b(k,113) - lu(k,1869) * b(k,135) + b(k,112) = b(k,112) - lu(k,1868) * b(k,135) + b(k,111) = b(k,111) - lu(k,1867) * b(k,135) + b(k,109) = b(k,109) - lu(k,1866) * b(k,135) + b(k,108) = b(k,108) - lu(k,1865) * b(k,135) + b(k,107) = b(k,107) - lu(k,1864) * b(k,135) + b(k,103) = b(k,103) - lu(k,1863) * b(k,135) + b(k,100) = b(k,100) - lu(k,1862) * b(k,135) + b(k,91) = b(k,91) - lu(k,1861) * b(k,135) + b(k,85) = b(k,85) - lu(k,1860) * b(k,135) end do end subroutine lu_slv07 subroutine lu_slv08( avec_len, lu, b ) @@ -1423,238 +1434,237 @@ subroutine lu_slv08( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,134) = b(k,134) * lu(k,1861) - b(k,133) = b(k,133) - lu(k,1860) * b(k,134) - b(k,132) = b(k,132) - lu(k,1859) * b(k,134) - b(k,131) = b(k,131) - lu(k,1858) * b(k,134) - b(k,130) = b(k,130) - lu(k,1857) * b(k,134) - b(k,129) = b(k,129) - lu(k,1856) * b(k,134) - b(k,128) = b(k,128) - lu(k,1855) * b(k,134) - b(k,127) = b(k,127) - lu(k,1854) * b(k,134) - b(k,126) = b(k,126) - lu(k,1853) * b(k,134) - b(k,125) = b(k,125) - lu(k,1852) * b(k,134) - b(k,124) = b(k,124) - lu(k,1851) * b(k,134) - b(k,123) = b(k,123) - lu(k,1850) * b(k,134) - b(k,122) = b(k,122) - lu(k,1849) * b(k,134) - b(k,121) = b(k,121) - lu(k,1848) * b(k,134) - b(k,120) = b(k,120) - lu(k,1847) * b(k,134) - b(k,119) = b(k,119) - lu(k,1846) * b(k,134) - b(k,118) = b(k,118) - lu(k,1845) * b(k,134) - b(k,117) = b(k,117) - lu(k,1844) * b(k,134) - b(k,116) = b(k,116) - lu(k,1843) * b(k,134) - b(k,115) = b(k,115) - lu(k,1842) * b(k,134) - b(k,114) = b(k,114) - lu(k,1841) * b(k,134) - b(k,113) = b(k,113) - lu(k,1840) * b(k,134) - b(k,112) = b(k,112) - lu(k,1839) * b(k,134) - b(k,111) = b(k,111) - lu(k,1838) * b(k,134) - b(k,109) = b(k,109) - lu(k,1837) * b(k,134) - b(k,100) = b(k,100) - lu(k,1836) * b(k,134) - b(k,93) = b(k,93) - lu(k,1835) * b(k,134) - b(k,84) = b(k,84) - lu(k,1834) * b(k,134) - b(k,133) = b(k,133) * lu(k,1827) - b(k,132) = b(k,132) - lu(k,1826) * b(k,133) - b(k,131) = b(k,131) - lu(k,1825) * b(k,133) - b(k,130) = b(k,130) - lu(k,1824) * b(k,133) - b(k,129) = b(k,129) - lu(k,1823) * b(k,133) - b(k,128) = b(k,128) - lu(k,1822) * b(k,133) - b(k,127) = b(k,127) - lu(k,1821) * b(k,133) - b(k,126) = b(k,126) - lu(k,1820) * b(k,133) - b(k,125) = b(k,125) - lu(k,1819) * b(k,133) - b(k,124) = b(k,124) - lu(k,1818) * b(k,133) - b(k,123) = b(k,123) - lu(k,1817) * b(k,133) - b(k,122) = b(k,122) - lu(k,1816) * b(k,133) - b(k,121) = b(k,121) - lu(k,1815) * b(k,133) - b(k,120) = b(k,120) - lu(k,1814) * b(k,133) - b(k,119) = b(k,119) - lu(k,1813) * b(k,133) - b(k,118) = b(k,118) - lu(k,1812) * b(k,133) - b(k,117) = b(k,117) - lu(k,1811) * b(k,133) - b(k,116) = b(k,116) - lu(k,1810) * b(k,133) - b(k,115) = b(k,115) - lu(k,1809) * b(k,133) - b(k,114) = b(k,114) - lu(k,1808) * b(k,133) - b(k,113) = b(k,113) - lu(k,1807) * b(k,133) - b(k,112) = b(k,112) - lu(k,1806) * b(k,133) - b(k,111) = b(k,111) - lu(k,1805) * b(k,133) - b(k,109) = b(k,109) - lu(k,1804) * b(k,133) - b(k,108) = b(k,108) - lu(k,1803) * b(k,133) - b(k,107) = b(k,107) - lu(k,1802) * b(k,133) - b(k,106) = b(k,106) - lu(k,1801) * b(k,133) - b(k,105) = b(k,105) - lu(k,1800) * b(k,133) - b(k,104) = b(k,104) - lu(k,1799) * b(k,133) - b(k,102) = b(k,102) - lu(k,1798) * b(k,133) - b(k,101) = b(k,101) - lu(k,1797) * b(k,133) - b(k,100) = b(k,100) - lu(k,1796) * b(k,133) - b(k,99) = b(k,99) - lu(k,1795) * b(k,133) - b(k,92) = b(k,92) - lu(k,1794) * b(k,133) - b(k,90) = b(k,90) - lu(k,1793) * b(k,133) - b(k,87) = b(k,87) - lu(k,1792) * b(k,133) - b(k,83) = b(k,83) - lu(k,1791) * b(k,133) - b(k,82) = b(k,82) - lu(k,1790) * b(k,133) - b(k,77) = b(k,77) - lu(k,1789) * b(k,133) - b(k,63) = b(k,63) - lu(k,1788) * b(k,133) - b(k,59) = b(k,59) - lu(k,1787) * b(k,133) - b(k,44) = b(k,44) - lu(k,1786) * b(k,133) - b(k,132) = b(k,132) * lu(k,1778) - b(k,131) = b(k,131) - lu(k,1777) * b(k,132) - b(k,130) = b(k,130) - lu(k,1776) * b(k,132) - b(k,129) = b(k,129) - lu(k,1775) * b(k,132) - b(k,128) = b(k,128) - lu(k,1774) * b(k,132) - b(k,127) = b(k,127) - lu(k,1773) * b(k,132) - b(k,126) = b(k,126) - lu(k,1772) * b(k,132) - b(k,125) = b(k,125) - lu(k,1771) * b(k,132) - b(k,124) = b(k,124) - lu(k,1770) * b(k,132) - b(k,123) = b(k,123) - lu(k,1769) * b(k,132) - b(k,122) = b(k,122) - lu(k,1768) * b(k,132) - b(k,121) = b(k,121) - lu(k,1767) * b(k,132) - b(k,120) = b(k,120) - lu(k,1766) * b(k,132) - b(k,119) = b(k,119) - lu(k,1765) * b(k,132) - b(k,118) = b(k,118) - lu(k,1764) * b(k,132) - b(k,117) = b(k,117) - lu(k,1763) * b(k,132) - b(k,116) = b(k,116) - lu(k,1762) * b(k,132) - b(k,115) = b(k,115) - lu(k,1761) * b(k,132) - b(k,114) = b(k,114) - lu(k,1760) * b(k,132) - b(k,113) = b(k,113) - lu(k,1759) * b(k,132) - b(k,112) = b(k,112) - lu(k,1758) * b(k,132) - b(k,111) = b(k,111) - lu(k,1757) * b(k,132) - b(k,110) = b(k,110) - lu(k,1756) * b(k,132) - b(k,109) = b(k,109) - lu(k,1755) * b(k,132) - b(k,108) = b(k,108) - lu(k,1754) * b(k,132) - b(k,107) = b(k,107) - lu(k,1753) * b(k,132) - b(k,103) = b(k,103) - lu(k,1752) * b(k,132) - b(k,100) = b(k,100) - lu(k,1751) * b(k,132) - b(k,74) = b(k,74) - lu(k,1750) * b(k,132) - b(k,131) = b(k,131) * lu(k,1741) - b(k,130) = b(k,130) - lu(k,1740) * b(k,131) - b(k,129) = b(k,129) - lu(k,1739) * b(k,131) - b(k,128) = b(k,128) - lu(k,1738) * b(k,131) - b(k,127) = b(k,127) - lu(k,1737) * b(k,131) - b(k,126) = b(k,126) - lu(k,1736) * b(k,131) - b(k,125) = b(k,125) - lu(k,1735) * b(k,131) - b(k,124) = b(k,124) - lu(k,1734) * b(k,131) - b(k,123) = b(k,123) - lu(k,1733) * b(k,131) - b(k,122) = b(k,122) - lu(k,1732) * b(k,131) - b(k,121) = b(k,121) - lu(k,1731) * b(k,131) - b(k,120) = b(k,120) - lu(k,1730) * b(k,131) - b(k,119) = b(k,119) - lu(k,1729) * b(k,131) - b(k,118) = b(k,118) - lu(k,1728) * b(k,131) - b(k,117) = b(k,117) - lu(k,1727) * b(k,131) - b(k,116) = b(k,116) - lu(k,1726) * b(k,131) - b(k,114) = b(k,114) - lu(k,1725) * b(k,131) - b(k,113) = b(k,113) - lu(k,1724) * b(k,131) - b(k,112) = b(k,112) - lu(k,1723) * b(k,131) - b(k,111) = b(k,111) - lu(k,1722) * b(k,131) - b(k,108) = b(k,108) - lu(k,1721) * b(k,131) - b(k,107) = b(k,107) - lu(k,1720) * b(k,131) - b(k,106) = b(k,106) - lu(k,1719) * b(k,131) - b(k,105) = b(k,105) - lu(k,1718) * b(k,131) - b(k,102) = b(k,102) - lu(k,1717) * b(k,131) - b(k,101) = b(k,101) - lu(k,1716) * b(k,131) - b(k,99) = b(k,99) - lu(k,1715) * b(k,131) - b(k,92) = b(k,92) - lu(k,1714) * b(k,131) - b(k,87) = b(k,87) - lu(k,1713) * b(k,131) - b(k,82) = b(k,82) - lu(k,1712) * b(k,131) - b(k,69) = b(k,69) - lu(k,1711) * b(k,131) - b(k,50) = b(k,50) - lu(k,1710) * b(k,131) - b(k,130) = b(k,130) * lu(k,1700) - b(k,129) = b(k,129) - lu(k,1699) * b(k,130) - b(k,128) = b(k,128) - lu(k,1698) * b(k,130) - b(k,127) = b(k,127) - lu(k,1697) * b(k,130) - b(k,126) = b(k,126) - lu(k,1696) * b(k,130) - b(k,125) = b(k,125) - lu(k,1695) * b(k,130) - b(k,124) = b(k,124) - lu(k,1694) * b(k,130) - b(k,123) = b(k,123) - lu(k,1693) * b(k,130) - b(k,122) = b(k,122) - lu(k,1692) * b(k,130) - b(k,121) = b(k,121) - lu(k,1691) * b(k,130) - b(k,120) = b(k,120) - lu(k,1690) * b(k,130) - b(k,119) = b(k,119) - lu(k,1689) * b(k,130) - b(k,118) = b(k,118) - lu(k,1688) * b(k,130) - b(k,117) = b(k,117) - lu(k,1687) * b(k,130) - b(k,116) = b(k,116) - lu(k,1686) * b(k,130) - b(k,115) = b(k,115) - lu(k,1685) * b(k,130) - b(k,114) = b(k,114) - lu(k,1684) * b(k,130) - b(k,113) = b(k,113) - lu(k,1683) * b(k,130) - b(k,112) = b(k,112) - lu(k,1682) * b(k,130) - b(k,111) = b(k,111) - lu(k,1681) * b(k,130) - b(k,110) = b(k,110) - lu(k,1680) * b(k,130) - b(k,109) = b(k,109) - lu(k,1679) * b(k,130) - b(k,105) = b(k,105) - lu(k,1678) * b(k,130) - b(k,104) = b(k,104) - lu(k,1677) * b(k,130) - b(k,102) = b(k,102) - lu(k,1676) * b(k,130) - b(k,101) = b(k,101) - lu(k,1675) * b(k,130) - b(k,98) = b(k,98) - lu(k,1674) * b(k,130) - b(k,97) = b(k,97) - lu(k,1673) * b(k,130) - b(k,96) = b(k,96) - lu(k,1672) * b(k,130) - b(k,95) = b(k,95) - lu(k,1671) * b(k,130) - b(k,94) = b(k,94) - lu(k,1670) * b(k,130) - b(k,93) = b(k,93) - lu(k,1669) * b(k,130) - b(k,87) = b(k,87) - lu(k,1668) * b(k,130) - b(k,46) = b(k,46) - lu(k,1667) * b(k,130) - b(k,129) = b(k,129) * lu(k,1656) - b(k,128) = b(k,128) - lu(k,1655) * b(k,129) - b(k,127) = b(k,127) - lu(k,1654) * b(k,129) - b(k,126) = b(k,126) - lu(k,1653) * b(k,129) - b(k,125) = b(k,125) - lu(k,1652) * b(k,129) - b(k,124) = b(k,124) - lu(k,1651) * b(k,129) - b(k,123) = b(k,123) - lu(k,1650) * b(k,129) - b(k,122) = b(k,122) - lu(k,1649) * b(k,129) - b(k,121) = b(k,121) - lu(k,1648) * b(k,129) - b(k,120) = b(k,120) - lu(k,1647) * b(k,129) - b(k,119) = b(k,119) - lu(k,1646) * b(k,129) - b(k,118) = b(k,118) - lu(k,1645) * b(k,129) - b(k,117) = b(k,117) - lu(k,1644) * b(k,129) - b(k,116) = b(k,116) - lu(k,1643) * b(k,129) - b(k,115) = b(k,115) - lu(k,1642) * b(k,129) - b(k,114) = b(k,114) - lu(k,1641) * b(k,129) - b(k,113) = b(k,113) - lu(k,1640) * b(k,129) - b(k,112) = b(k,112) - lu(k,1639) * b(k,129) - b(k,111) = b(k,111) - lu(k,1638) * b(k,129) - b(k,110) = b(k,110) - lu(k,1637) * b(k,129) - b(k,109) = b(k,109) - lu(k,1636) * b(k,129) - b(k,105) = b(k,105) - lu(k,1635) * b(k,129) - b(k,104) = b(k,104) - lu(k,1634) * b(k,129) - b(k,102) = b(k,102) - lu(k,1633) * b(k,129) - b(k,101) = b(k,101) - lu(k,1632) * b(k,129) - b(k,98) = b(k,98) - lu(k,1631) * b(k,129) - b(k,97) = b(k,97) - lu(k,1630) * b(k,129) - b(k,96) = b(k,96) - lu(k,1629) * b(k,129) - b(k,95) = b(k,95) - lu(k,1628) * b(k,129) - b(k,94) = b(k,94) - lu(k,1627) * b(k,129) - b(k,93) = b(k,93) - lu(k,1626) * b(k,129) - b(k,87) = b(k,87) - lu(k,1625) * b(k,129) - b(k,47) = b(k,47) - lu(k,1624) * b(k,129) - b(k,128) = b(k,128) * lu(k,1612) - b(k,127) = b(k,127) - lu(k,1611) * b(k,128) - b(k,126) = b(k,126) - lu(k,1610) * b(k,128) - b(k,125) = b(k,125) - lu(k,1609) * b(k,128) - b(k,124) = b(k,124) - lu(k,1608) * b(k,128) - b(k,123) = b(k,123) - lu(k,1607) * b(k,128) - b(k,122) = b(k,122) - lu(k,1606) * b(k,128) - b(k,121) = b(k,121) - lu(k,1605) * b(k,128) - b(k,120) = b(k,120) - lu(k,1604) * b(k,128) - b(k,119) = b(k,119) - lu(k,1603) * b(k,128) - b(k,118) = b(k,118) - lu(k,1602) * b(k,128) - b(k,117) = b(k,117) - lu(k,1601) * b(k,128) - b(k,116) = b(k,116) - lu(k,1600) * b(k,128) - b(k,115) = b(k,115) - lu(k,1599) * b(k,128) - b(k,114) = b(k,114) - lu(k,1598) * b(k,128) - b(k,113) = b(k,113) - lu(k,1597) * b(k,128) - b(k,112) = b(k,112) - lu(k,1596) * b(k,128) - b(k,111) = b(k,111) - lu(k,1595) * b(k,128) - b(k,110) = b(k,110) - lu(k,1594) * b(k,128) - b(k,109) = b(k,109) - lu(k,1593) * b(k,128) - b(k,108) = b(k,108) - lu(k,1592) * b(k,128) - b(k,105) = b(k,105) - lu(k,1591) * b(k,128) - b(k,104) = b(k,104) - lu(k,1590) * b(k,128) - b(k,102) = b(k,102) - lu(k,1589) * b(k,128) - b(k,101) = b(k,101) - lu(k,1588) * b(k,128) - b(k,98) = b(k,98) - lu(k,1587) * b(k,128) - b(k,97) = b(k,97) - lu(k,1586) * b(k,128) - b(k,96) = b(k,96) - lu(k,1585) * b(k,128) - b(k,95) = b(k,95) - lu(k,1584) * b(k,128) - b(k,94) = b(k,94) - lu(k,1583) * b(k,128) - b(k,93) = b(k,93) - lu(k,1582) * b(k,128) - b(k,91) = b(k,91) - lu(k,1581) * b(k,128) - b(k,90) = b(k,90) - lu(k,1580) * b(k,128) - b(k,75) = b(k,75) - lu(k,1579) * b(k,128) + b(k,134) = b(k,134) * lu(k,1854) + b(k,133) = b(k,133) - lu(k,1853) * b(k,134) + b(k,132) = b(k,132) - lu(k,1852) * b(k,134) + b(k,131) = b(k,131) - lu(k,1851) * b(k,134) + b(k,130) = b(k,130) - lu(k,1850) * b(k,134) + b(k,129) = b(k,129) - lu(k,1849) * b(k,134) + b(k,128) = b(k,128) - lu(k,1848) * b(k,134) + b(k,127) = b(k,127) - lu(k,1847) * b(k,134) + b(k,126) = b(k,126) - lu(k,1846) * b(k,134) + b(k,125) = b(k,125) - lu(k,1845) * b(k,134) + b(k,124) = b(k,124) - lu(k,1844) * b(k,134) + b(k,123) = b(k,123) - lu(k,1843) * b(k,134) + b(k,122) = b(k,122) - lu(k,1842) * b(k,134) + b(k,121) = b(k,121) - lu(k,1841) * b(k,134) + b(k,120) = b(k,120) - lu(k,1840) * b(k,134) + b(k,119) = b(k,119) - lu(k,1839) * b(k,134) + b(k,118) = b(k,118) - lu(k,1838) * b(k,134) + b(k,117) = b(k,117) - lu(k,1837) * b(k,134) + b(k,116) = b(k,116) - lu(k,1836) * b(k,134) + b(k,115) = b(k,115) - lu(k,1835) * b(k,134) + b(k,114) = b(k,114) - lu(k,1834) * b(k,134) + b(k,113) = b(k,113) - lu(k,1833) * b(k,134) + b(k,112) = b(k,112) - lu(k,1832) * b(k,134) + b(k,111) = b(k,111) - lu(k,1831) * b(k,134) + b(k,109) = b(k,109) - lu(k,1830) * b(k,134) + b(k,100) = b(k,100) - lu(k,1829) * b(k,134) + b(k,93) = b(k,93) - lu(k,1828) * b(k,134) + b(k,84) = b(k,84) - lu(k,1827) * b(k,134) + b(k,133) = b(k,133) * lu(k,1820) + b(k,132) = b(k,132) - lu(k,1819) * b(k,133) + b(k,131) = b(k,131) - lu(k,1818) * b(k,133) + b(k,130) = b(k,130) - lu(k,1817) * b(k,133) + b(k,129) = b(k,129) - lu(k,1816) * b(k,133) + b(k,128) = b(k,128) - lu(k,1815) * b(k,133) + b(k,127) = b(k,127) - lu(k,1814) * b(k,133) + b(k,126) = b(k,126) - lu(k,1813) * b(k,133) + b(k,125) = b(k,125) - lu(k,1812) * b(k,133) + b(k,124) = b(k,124) - lu(k,1811) * b(k,133) + b(k,123) = b(k,123) - lu(k,1810) * b(k,133) + b(k,122) = b(k,122) - lu(k,1809) * b(k,133) + b(k,121) = b(k,121) - lu(k,1808) * b(k,133) + b(k,120) = b(k,120) - lu(k,1807) * b(k,133) + b(k,119) = b(k,119) - lu(k,1806) * b(k,133) + b(k,118) = b(k,118) - lu(k,1805) * b(k,133) + b(k,117) = b(k,117) - lu(k,1804) * b(k,133) + b(k,116) = b(k,116) - lu(k,1803) * b(k,133) + b(k,115) = b(k,115) - lu(k,1802) * b(k,133) + b(k,114) = b(k,114) - lu(k,1801) * b(k,133) + b(k,113) = b(k,113) - lu(k,1800) * b(k,133) + b(k,112) = b(k,112) - lu(k,1799) * b(k,133) + b(k,111) = b(k,111) - lu(k,1798) * b(k,133) + b(k,109) = b(k,109) - lu(k,1797) * b(k,133) + b(k,108) = b(k,108) - lu(k,1796) * b(k,133) + b(k,107) = b(k,107) - lu(k,1795) * b(k,133) + b(k,106) = b(k,106) - lu(k,1794) * b(k,133) + b(k,105) = b(k,105) - lu(k,1793) * b(k,133) + b(k,104) = b(k,104) - lu(k,1792) * b(k,133) + b(k,102) = b(k,102) - lu(k,1791) * b(k,133) + b(k,101) = b(k,101) - lu(k,1790) * b(k,133) + b(k,100) = b(k,100) - lu(k,1789) * b(k,133) + b(k,99) = b(k,99) - lu(k,1788) * b(k,133) + b(k,92) = b(k,92) - lu(k,1787) * b(k,133) + b(k,90) = b(k,90) - lu(k,1786) * b(k,133) + b(k,86) = b(k,86) - lu(k,1785) * b(k,133) + b(k,83) = b(k,83) - lu(k,1784) * b(k,133) + b(k,82) = b(k,82) - lu(k,1783) * b(k,133) + b(k,76) = b(k,76) - lu(k,1782) * b(k,133) + b(k,63) = b(k,63) - lu(k,1781) * b(k,133) + b(k,59) = b(k,59) - lu(k,1780) * b(k,133) + b(k,44) = b(k,44) - lu(k,1779) * b(k,133) + b(k,132) = b(k,132) * lu(k,1771) + b(k,131) = b(k,131) - lu(k,1770) * b(k,132) + b(k,130) = b(k,130) - lu(k,1769) * b(k,132) + b(k,129) = b(k,129) - lu(k,1768) * b(k,132) + b(k,128) = b(k,128) - lu(k,1767) * b(k,132) + b(k,127) = b(k,127) - lu(k,1766) * b(k,132) + b(k,126) = b(k,126) - lu(k,1765) * b(k,132) + b(k,125) = b(k,125) - lu(k,1764) * b(k,132) + b(k,124) = b(k,124) - lu(k,1763) * b(k,132) + b(k,123) = b(k,123) - lu(k,1762) * b(k,132) + b(k,122) = b(k,122) - lu(k,1761) * b(k,132) + b(k,121) = b(k,121) - lu(k,1760) * b(k,132) + b(k,120) = b(k,120) - lu(k,1759) * b(k,132) + b(k,119) = b(k,119) - lu(k,1758) * b(k,132) + b(k,118) = b(k,118) - lu(k,1757) * b(k,132) + b(k,117) = b(k,117) - lu(k,1756) * b(k,132) + b(k,116) = b(k,116) - lu(k,1755) * b(k,132) + b(k,115) = b(k,115) - lu(k,1754) * b(k,132) + b(k,114) = b(k,114) - lu(k,1753) * b(k,132) + b(k,113) = b(k,113) - lu(k,1752) * b(k,132) + b(k,112) = b(k,112) - lu(k,1751) * b(k,132) + b(k,111) = b(k,111) - lu(k,1750) * b(k,132) + b(k,110) = b(k,110) - lu(k,1749) * b(k,132) + b(k,109) = b(k,109) - lu(k,1748) * b(k,132) + b(k,108) = b(k,108) - lu(k,1747) * b(k,132) + b(k,107) = b(k,107) - lu(k,1746) * b(k,132) + b(k,103) = b(k,103) - lu(k,1745) * b(k,132) + b(k,100) = b(k,100) - lu(k,1744) * b(k,132) + b(k,74) = b(k,74) - lu(k,1743) * b(k,132) + b(k,131) = b(k,131) * lu(k,1734) + b(k,130) = b(k,130) - lu(k,1733) * b(k,131) + b(k,129) = b(k,129) - lu(k,1732) * b(k,131) + b(k,128) = b(k,128) - lu(k,1731) * b(k,131) + b(k,127) = b(k,127) - lu(k,1730) * b(k,131) + b(k,126) = b(k,126) - lu(k,1729) * b(k,131) + b(k,125) = b(k,125) - lu(k,1728) * b(k,131) + b(k,124) = b(k,124) - lu(k,1727) * b(k,131) + b(k,123) = b(k,123) - lu(k,1726) * b(k,131) + b(k,122) = b(k,122) - lu(k,1725) * b(k,131) + b(k,121) = b(k,121) - lu(k,1724) * b(k,131) + b(k,120) = b(k,120) - lu(k,1723) * b(k,131) + b(k,119) = b(k,119) - lu(k,1722) * b(k,131) + b(k,118) = b(k,118) - lu(k,1721) * b(k,131) + b(k,117) = b(k,117) - lu(k,1720) * b(k,131) + b(k,116) = b(k,116) - lu(k,1719) * b(k,131) + b(k,114) = b(k,114) - lu(k,1718) * b(k,131) + b(k,113) = b(k,113) - lu(k,1717) * b(k,131) + b(k,112) = b(k,112) - lu(k,1716) * b(k,131) + b(k,111) = b(k,111) - lu(k,1715) * b(k,131) + b(k,108) = b(k,108) - lu(k,1714) * b(k,131) + b(k,107) = b(k,107) - lu(k,1713) * b(k,131) + b(k,106) = b(k,106) - lu(k,1712) * b(k,131) + b(k,105) = b(k,105) - lu(k,1711) * b(k,131) + b(k,102) = b(k,102) - lu(k,1710) * b(k,131) + b(k,101) = b(k,101) - lu(k,1709) * b(k,131) + b(k,99) = b(k,99) - lu(k,1708) * b(k,131) + b(k,92) = b(k,92) - lu(k,1707) * b(k,131) + b(k,86) = b(k,86) - lu(k,1706) * b(k,131) + b(k,82) = b(k,82) - lu(k,1705) * b(k,131) + b(k,69) = b(k,69) - lu(k,1704) * b(k,131) + b(k,50) = b(k,50) - lu(k,1703) * b(k,131) + b(k,130) = b(k,130) * lu(k,1693) + b(k,129) = b(k,129) - lu(k,1692) * b(k,130) + b(k,128) = b(k,128) - lu(k,1691) * b(k,130) + b(k,127) = b(k,127) - lu(k,1690) * b(k,130) + b(k,126) = b(k,126) - lu(k,1689) * b(k,130) + b(k,125) = b(k,125) - lu(k,1688) * b(k,130) + b(k,124) = b(k,124) - lu(k,1687) * b(k,130) + b(k,123) = b(k,123) - lu(k,1686) * b(k,130) + b(k,122) = b(k,122) - lu(k,1685) * b(k,130) + b(k,121) = b(k,121) - lu(k,1684) * b(k,130) + b(k,120) = b(k,120) - lu(k,1683) * b(k,130) + b(k,119) = b(k,119) - lu(k,1682) * b(k,130) + b(k,118) = b(k,118) - lu(k,1681) * b(k,130) + b(k,117) = b(k,117) - lu(k,1680) * b(k,130) + b(k,116) = b(k,116) - lu(k,1679) * b(k,130) + b(k,115) = b(k,115) - lu(k,1678) * b(k,130) + b(k,114) = b(k,114) - lu(k,1677) * b(k,130) + b(k,113) = b(k,113) - lu(k,1676) * b(k,130) + b(k,112) = b(k,112) - lu(k,1675) * b(k,130) + b(k,111) = b(k,111) - lu(k,1674) * b(k,130) + b(k,110) = b(k,110) - lu(k,1673) * b(k,130) + b(k,108) = b(k,108) - lu(k,1672) * b(k,130) + b(k,100) = b(k,100) - lu(k,1671) * b(k,130) + b(k,93) = b(k,93) - lu(k,1670) * b(k,130) + b(k,91) = b(k,91) - lu(k,1669) * b(k,130) + b(k,90) = b(k,90) - lu(k,1668) * b(k,130) + b(k,87) = b(k,87) - lu(k,1667) * b(k,130) + b(k,85) = b(k,85) - lu(k,1666) * b(k,130) + b(k,71) = b(k,71) - lu(k,1665) * b(k,130) + b(k,70) = b(k,70) - lu(k,1664) * b(k,130) + b(k,69) = b(k,69) - lu(k,1663) * b(k,130) + b(k,67) = b(k,67) - lu(k,1662) * b(k,130) + b(k,51) = b(k,51) - lu(k,1661) * b(k,130) + b(k,129) = b(k,129) * lu(k,1650) + b(k,128) = b(k,128) - lu(k,1649) * b(k,129) + b(k,127) = b(k,127) - lu(k,1648) * b(k,129) + b(k,126) = b(k,126) - lu(k,1647) * b(k,129) + b(k,125) = b(k,125) - lu(k,1646) * b(k,129) + b(k,124) = b(k,124) - lu(k,1645) * b(k,129) + b(k,123) = b(k,123) - lu(k,1644) * b(k,129) + b(k,122) = b(k,122) - lu(k,1643) * b(k,129) + b(k,121) = b(k,121) - lu(k,1642) * b(k,129) + b(k,120) = b(k,120) - lu(k,1641) * b(k,129) + b(k,119) = b(k,119) - lu(k,1640) * b(k,129) + b(k,118) = b(k,118) - lu(k,1639) * b(k,129) + b(k,117) = b(k,117) - lu(k,1638) * b(k,129) + b(k,116) = b(k,116) - lu(k,1637) * b(k,129) + b(k,115) = b(k,115) - lu(k,1636) * b(k,129) + b(k,114) = b(k,114) - lu(k,1635) * b(k,129) + b(k,113) = b(k,113) - lu(k,1634) * b(k,129) + b(k,112) = b(k,112) - lu(k,1633) * b(k,129) + b(k,111) = b(k,111) - lu(k,1632) * b(k,129) + b(k,110) = b(k,110) - lu(k,1631) * b(k,129) + b(k,109) = b(k,109) - lu(k,1630) * b(k,129) + b(k,105) = b(k,105) - lu(k,1629) * b(k,129) + b(k,104) = b(k,104) - lu(k,1628) * b(k,129) + b(k,102) = b(k,102) - lu(k,1627) * b(k,129) + b(k,101) = b(k,101) - lu(k,1626) * b(k,129) + b(k,98) = b(k,98) - lu(k,1625) * b(k,129) + b(k,97) = b(k,97) - lu(k,1624) * b(k,129) + b(k,96) = b(k,96) - lu(k,1623) * b(k,129) + b(k,95) = b(k,95) - lu(k,1622) * b(k,129) + b(k,94) = b(k,94) - lu(k,1621) * b(k,129) + b(k,93) = b(k,93) - lu(k,1620) * b(k,129) + b(k,74) = b(k,74) - lu(k,1619) * b(k,129) + b(k,68) = b(k,68) - lu(k,1618) * b(k,129) + b(k,128) = b(k,128) * lu(k,1606) + b(k,127) = b(k,127) - lu(k,1605) * b(k,128) + b(k,126) = b(k,126) - lu(k,1604) * b(k,128) + b(k,125) = b(k,125) - lu(k,1603) * b(k,128) + b(k,124) = b(k,124) - lu(k,1602) * b(k,128) + b(k,123) = b(k,123) - lu(k,1601) * b(k,128) + b(k,122) = b(k,122) - lu(k,1600) * b(k,128) + b(k,121) = b(k,121) - lu(k,1599) * b(k,128) + b(k,120) = b(k,120) - lu(k,1598) * b(k,128) + b(k,119) = b(k,119) - lu(k,1597) * b(k,128) + b(k,118) = b(k,118) - lu(k,1596) * b(k,128) + b(k,117) = b(k,117) - lu(k,1595) * b(k,128) + b(k,116) = b(k,116) - lu(k,1594) * b(k,128) + b(k,115) = b(k,115) - lu(k,1593) * b(k,128) + b(k,114) = b(k,114) - lu(k,1592) * b(k,128) + b(k,113) = b(k,113) - lu(k,1591) * b(k,128) + b(k,112) = b(k,112) - lu(k,1590) * b(k,128) + b(k,111) = b(k,111) - lu(k,1589) * b(k,128) + b(k,110) = b(k,110) - lu(k,1588) * b(k,128) + b(k,109) = b(k,109) - lu(k,1587) * b(k,128) + b(k,108) = b(k,108) - lu(k,1586) * b(k,128) + b(k,105) = b(k,105) - lu(k,1585) * b(k,128) + b(k,104) = b(k,104) - lu(k,1584) * b(k,128) + b(k,102) = b(k,102) - lu(k,1583) * b(k,128) + b(k,101) = b(k,101) - lu(k,1582) * b(k,128) + b(k,98) = b(k,98) - lu(k,1581) * b(k,128) + b(k,97) = b(k,97) - lu(k,1580) * b(k,128) + b(k,96) = b(k,96) - lu(k,1579) * b(k,128) + b(k,95) = b(k,95) - lu(k,1578) * b(k,128) + b(k,94) = b(k,94) - lu(k,1577) * b(k,128) + b(k,93) = b(k,93) - lu(k,1576) * b(k,128) + b(k,91) = b(k,91) - lu(k,1575) * b(k,128) + b(k,90) = b(k,90) - lu(k,1574) * b(k,128) + b(k,75) = b(k,75) - lu(k,1573) * b(k,128) end do end subroutine lu_slv08 subroutine lu_slv09( avec_len, lu, b ) @@ -1675,126 +1685,120 @@ subroutine lu_slv09( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,127) = b(k,127) * lu(k,1566) - b(k,126) = b(k,126) - lu(k,1565) * b(k,127) - b(k,125) = b(k,125) - lu(k,1564) * b(k,127) - b(k,124) = b(k,124) - lu(k,1563) * b(k,127) - b(k,123) = b(k,123) - lu(k,1562) * b(k,127) - b(k,122) = b(k,122) - lu(k,1561) * b(k,127) - b(k,121) = b(k,121) - lu(k,1560) * b(k,127) - b(k,120) = b(k,120) - lu(k,1559) * b(k,127) - b(k,119) = b(k,119) - lu(k,1558) * b(k,127) - b(k,118) = b(k,118) - lu(k,1557) * b(k,127) - b(k,117) = b(k,117) - lu(k,1556) * b(k,127) - b(k,116) = b(k,116) - lu(k,1555) * b(k,127) - b(k,115) = b(k,115) - lu(k,1554) * b(k,127) - b(k,114) = b(k,114) - lu(k,1553) * b(k,127) - b(k,113) = b(k,113) - lu(k,1552) * b(k,127) - b(k,112) = b(k,112) - lu(k,1551) * b(k,127) - b(k,111) = b(k,111) - lu(k,1550) * b(k,127) - b(k,110) = b(k,110) - lu(k,1549) * b(k,127) - b(k,109) = b(k,109) - lu(k,1548) * b(k,127) - b(k,100) = b(k,100) - lu(k,1547) * b(k,127) - b(k,91) = b(k,91) - lu(k,1546) * b(k,127) - b(k,85) = b(k,85) - lu(k,1545) * b(k,127) - b(k,84) = b(k,84) - lu(k,1544) * b(k,127) - b(k,67) = b(k,67) - lu(k,1543) * b(k,127) - b(k,126) = b(k,126) * lu(k,1529) - b(k,125) = b(k,125) - lu(k,1528) * b(k,126) - b(k,124) = b(k,124) - lu(k,1527) * b(k,126) - b(k,123) = b(k,123) - lu(k,1526) * b(k,126) - b(k,122) = b(k,122) - lu(k,1525) * b(k,126) - b(k,121) = b(k,121) - lu(k,1524) * b(k,126) - b(k,120) = b(k,120) - lu(k,1523) * b(k,126) - b(k,119) = b(k,119) - lu(k,1522) * b(k,126) - b(k,118) = b(k,118) - lu(k,1521) * b(k,126) - b(k,117) = b(k,117) - lu(k,1520) * b(k,126) - b(k,116) = b(k,116) - lu(k,1519) * b(k,126) - b(k,115) = b(k,115) - lu(k,1518) * b(k,126) - b(k,114) = b(k,114) - lu(k,1517) * b(k,126) - b(k,113) = b(k,113) - lu(k,1516) * b(k,126) - b(k,112) = b(k,112) - lu(k,1515) * b(k,126) - b(k,111) = b(k,111) - lu(k,1514) * b(k,126) - b(k,109) = b(k,109) - lu(k,1513) * b(k,126) - b(k,108) = b(k,108) - lu(k,1512) * b(k,126) - b(k,107) = b(k,107) - lu(k,1511) * b(k,126) - b(k,105) = b(k,105) - lu(k,1510) * b(k,126) - b(k,103) = b(k,103) - lu(k,1509) * b(k,126) - b(k,101) = b(k,101) - lu(k,1508) * b(k,126) - b(k,98) = b(k,98) - lu(k,1507) * b(k,126) - b(k,89) = b(k,89) - lu(k,1506) * b(k,126) - b(k,88) = b(k,88) - lu(k,1505) * b(k,126) - b(k,81) = b(k,81) - lu(k,1504) * b(k,126) - b(k,73) = b(k,73) - lu(k,1503) * b(k,126) - b(k,49) = b(k,49) - lu(k,1502) * b(k,126) - b(k,125) = b(k,125) * lu(k,1487) - b(k,124) = b(k,124) - lu(k,1486) * b(k,125) - b(k,123) = b(k,123) - lu(k,1485) * b(k,125) - b(k,122) = b(k,122) - lu(k,1484) * b(k,125) - b(k,121) = b(k,121) - lu(k,1483) * b(k,125) - b(k,120) = b(k,120) - lu(k,1482) * b(k,125) - b(k,119) = b(k,119) - lu(k,1481) * b(k,125) - b(k,118) = b(k,118) - lu(k,1480) * b(k,125) - b(k,117) = b(k,117) - lu(k,1479) * b(k,125) - b(k,116) = b(k,116) - lu(k,1478) * b(k,125) - b(k,115) = b(k,115) - lu(k,1477) * b(k,125) - b(k,114) = b(k,114) - lu(k,1476) * b(k,125) - b(k,113) = b(k,113) - lu(k,1475) * b(k,125) - b(k,112) = b(k,112) - lu(k,1474) * b(k,125) - b(k,111) = b(k,111) - lu(k,1473) * b(k,125) - b(k,110) = b(k,110) - lu(k,1472) * b(k,125) - b(k,109) = b(k,109) - lu(k,1471) * b(k,125) - b(k,108) = b(k,108) - lu(k,1470) * b(k,125) - b(k,107) = b(k,107) - lu(k,1469) * b(k,125) - b(k,106) = b(k,106) - lu(k,1468) * b(k,125) - b(k,103) = b(k,103) - lu(k,1467) * b(k,125) - b(k,99) = b(k,99) - lu(k,1466) * b(k,125) - b(k,89) = b(k,89) - lu(k,1465) * b(k,125) - b(k,88) = b(k,88) - lu(k,1464) * b(k,125) - b(k,84) = b(k,84) - lu(k,1463) * b(k,125) - b(k,83) = b(k,83) - lu(k,1462) * b(k,125) - b(k,80) = b(k,80) - lu(k,1461) * b(k,125) - b(k,69) = b(k,69) - lu(k,1460) * b(k,125) - b(k,65) = b(k,65) - lu(k,1459) * b(k,125) - b(k,64) = b(k,64) - lu(k,1458) * b(k,125) - b(k,60) = b(k,60) - lu(k,1457) * b(k,125) - b(k,56) = b(k,56) - lu(k,1456) * b(k,125) - b(k,54) = b(k,54) - lu(k,1455) * b(k,125) - b(k,38) = b(k,38) - lu(k,1454) * b(k,125) - b(k,124) = b(k,124) * lu(k,1438) - b(k,123) = b(k,123) - lu(k,1437) * b(k,124) - b(k,122) = b(k,122) - lu(k,1436) * b(k,124) - b(k,121) = b(k,121) - lu(k,1435) * b(k,124) - b(k,120) = b(k,120) - lu(k,1434) * b(k,124) - b(k,119) = b(k,119) - lu(k,1433) * b(k,124) - b(k,118) = b(k,118) - lu(k,1432) * b(k,124) - b(k,117) = b(k,117) - lu(k,1431) * b(k,124) - b(k,116) = b(k,116) - lu(k,1430) * b(k,124) - b(k,115) = b(k,115) - lu(k,1429) * b(k,124) - b(k,114) = b(k,114) - lu(k,1428) * b(k,124) - b(k,113) = b(k,113) - lu(k,1427) * b(k,124) - b(k,112) = b(k,112) - lu(k,1426) * b(k,124) - b(k,111) = b(k,111) - lu(k,1425) * b(k,124) - b(k,110) = b(k,110) - lu(k,1424) * b(k,124) - b(k,108) = b(k,108) - lu(k,1423) * b(k,124) - b(k,107) = b(k,107) - lu(k,1422) * b(k,124) - b(k,106) = b(k,106) - lu(k,1421) * b(k,124) - b(k,100) = b(k,100) - lu(k,1420) * b(k,124) - b(k,99) = b(k,99) - lu(k,1419) * b(k,124) - b(k,92) = b(k,92) - lu(k,1418) * b(k,124) - b(k,91) = b(k,91) - lu(k,1417) * b(k,124) - b(k,90) = b(k,90) - lu(k,1416) * b(k,124) - b(k,86) = b(k,86) - lu(k,1415) * b(k,124) - b(k,85) = b(k,85) - lu(k,1414) * b(k,124) - b(k,82) = b(k,82) - lu(k,1413) * b(k,124) - b(k,78) = b(k,78) - lu(k,1412) * b(k,124) - b(k,76) = b(k,76) - lu(k,1411) * b(k,124) - b(k,72) = b(k,72) - lu(k,1410) * b(k,124) - b(k,67) = b(k,67) - lu(k,1409) * b(k,124) - b(k,66) = b(k,66) - lu(k,1408) * b(k,124) - b(k,62) = b(k,62) - lu(k,1407) * b(k,124) - b(k,61) = b(k,61) - lu(k,1406) * b(k,124) - b(k,51) = b(k,51) - lu(k,1405) * b(k,124) + b(k,127) = b(k,127) * lu(k,1560) + b(k,126) = b(k,126) - lu(k,1559) * b(k,127) + b(k,125) = b(k,125) - lu(k,1558) * b(k,127) + b(k,124) = b(k,124) - lu(k,1557) * b(k,127) + b(k,123) = b(k,123) - lu(k,1556) * b(k,127) + b(k,122) = b(k,122) - lu(k,1555) * b(k,127) + b(k,121) = b(k,121) - lu(k,1554) * b(k,127) + b(k,120) = b(k,120) - lu(k,1553) * b(k,127) + b(k,119) = b(k,119) - lu(k,1552) * b(k,127) + b(k,118) = b(k,118) - lu(k,1551) * b(k,127) + b(k,117) = b(k,117) - lu(k,1550) * b(k,127) + b(k,116) = b(k,116) - lu(k,1549) * b(k,127) + b(k,115) = b(k,115) - lu(k,1548) * b(k,127) + b(k,114) = b(k,114) - lu(k,1547) * b(k,127) + b(k,113) = b(k,113) - lu(k,1546) * b(k,127) + b(k,112) = b(k,112) - lu(k,1545) * b(k,127) + b(k,111) = b(k,111) - lu(k,1544) * b(k,127) + b(k,110) = b(k,110) - lu(k,1543) * b(k,127) + b(k,109) = b(k,109) - lu(k,1542) * b(k,127) + b(k,100) = b(k,100) - lu(k,1541) * b(k,127) + b(k,91) = b(k,91) - lu(k,1540) * b(k,127) + b(k,85) = b(k,85) - lu(k,1539) * b(k,127) + b(k,84) = b(k,84) - lu(k,1538) * b(k,127) + b(k,67) = b(k,67) - lu(k,1537) * b(k,127) + b(k,126) = b(k,126) * lu(k,1523) + b(k,125) = b(k,125) - lu(k,1522) * b(k,126) + b(k,124) = b(k,124) - lu(k,1521) * b(k,126) + b(k,123) = b(k,123) - lu(k,1520) * b(k,126) + b(k,122) = b(k,122) - lu(k,1519) * b(k,126) + b(k,121) = b(k,121) - lu(k,1518) * b(k,126) + b(k,120) = b(k,120) - lu(k,1517) * b(k,126) + b(k,119) = b(k,119) - lu(k,1516) * b(k,126) + b(k,118) = b(k,118) - lu(k,1515) * b(k,126) + b(k,117) = b(k,117) - lu(k,1514) * b(k,126) + b(k,116) = b(k,116) - lu(k,1513) * b(k,126) + b(k,115) = b(k,115) - lu(k,1512) * b(k,126) + b(k,114) = b(k,114) - lu(k,1511) * b(k,126) + b(k,113) = b(k,113) - lu(k,1510) * b(k,126) + b(k,112) = b(k,112) - lu(k,1509) * b(k,126) + b(k,111) = b(k,111) - lu(k,1508) * b(k,126) + b(k,109) = b(k,109) - lu(k,1507) * b(k,126) + b(k,108) = b(k,108) - lu(k,1506) * b(k,126) + b(k,107) = b(k,107) - lu(k,1505) * b(k,126) + b(k,105) = b(k,105) - lu(k,1504) * b(k,126) + b(k,103) = b(k,103) - lu(k,1503) * b(k,126) + b(k,101) = b(k,101) - lu(k,1502) * b(k,126) + b(k,98) = b(k,98) - lu(k,1501) * b(k,126) + b(k,89) = b(k,89) - lu(k,1500) * b(k,126) + b(k,88) = b(k,88) - lu(k,1499) * b(k,126) + b(k,80) = b(k,80) - lu(k,1498) * b(k,126) + b(k,73) = b(k,73) - lu(k,1497) * b(k,126) + b(k,49) = b(k,49) - lu(k,1496) * b(k,126) + b(k,125) = b(k,125) * lu(k,1481) + b(k,124) = b(k,124) - lu(k,1480) * b(k,125) + b(k,123) = b(k,123) - lu(k,1479) * b(k,125) + b(k,122) = b(k,122) - lu(k,1478) * b(k,125) + b(k,121) = b(k,121) - lu(k,1477) * b(k,125) + b(k,120) = b(k,120) - lu(k,1476) * b(k,125) + b(k,119) = b(k,119) - lu(k,1475) * b(k,125) + b(k,118) = b(k,118) - lu(k,1474) * b(k,125) + b(k,117) = b(k,117) - lu(k,1473) * b(k,125) + b(k,116) = b(k,116) - lu(k,1472) * b(k,125) + b(k,115) = b(k,115) - lu(k,1471) * b(k,125) + b(k,114) = b(k,114) - lu(k,1470) * b(k,125) + b(k,113) = b(k,113) - lu(k,1469) * b(k,125) + b(k,112) = b(k,112) - lu(k,1468) * b(k,125) + b(k,111) = b(k,111) - lu(k,1467) * b(k,125) + b(k,110) = b(k,110) - lu(k,1466) * b(k,125) + b(k,109) = b(k,109) - lu(k,1465) * b(k,125) + b(k,108) = b(k,108) - lu(k,1464) * b(k,125) + b(k,107) = b(k,107) - lu(k,1463) * b(k,125) + b(k,106) = b(k,106) - lu(k,1462) * b(k,125) + b(k,103) = b(k,103) - lu(k,1461) * b(k,125) + b(k,99) = b(k,99) - lu(k,1460) * b(k,125) + b(k,89) = b(k,89) - lu(k,1459) * b(k,125) + b(k,88) = b(k,88) - lu(k,1458) * b(k,125) + b(k,84) = b(k,84) - lu(k,1457) * b(k,125) + b(k,83) = b(k,83) - lu(k,1456) * b(k,125) + b(k,79) = b(k,79) - lu(k,1455) * b(k,125) + b(k,69) = b(k,69) - lu(k,1454) * b(k,125) + b(k,65) = b(k,65) - lu(k,1453) * b(k,125) + b(k,64) = b(k,64) - lu(k,1452) * b(k,125) + b(k,60) = b(k,60) - lu(k,1451) * b(k,125) + b(k,56) = b(k,56) - lu(k,1450) * b(k,125) + b(k,54) = b(k,54) - lu(k,1449) * b(k,125) + b(k,38) = b(k,38) - lu(k,1448) * b(k,125) + b(k,124) = b(k,124) * lu(k,1432) + b(k,123) = b(k,123) - lu(k,1431) * b(k,124) + b(k,122) = b(k,122) - lu(k,1430) * b(k,124) + b(k,121) = b(k,121) - lu(k,1429) * b(k,124) + b(k,120) = b(k,120) - lu(k,1428) * b(k,124) + b(k,119) = b(k,119) - lu(k,1427) * b(k,124) + b(k,118) = b(k,118) - lu(k,1426) * b(k,124) + b(k,117) = b(k,117) - lu(k,1425) * b(k,124) + b(k,116) = b(k,116) - lu(k,1424) * b(k,124) + b(k,115) = b(k,115) - lu(k,1423) * b(k,124) + b(k,114) = b(k,114) - lu(k,1422) * b(k,124) + b(k,113) = b(k,113) - lu(k,1421) * b(k,124) + b(k,112) = b(k,112) - lu(k,1420) * b(k,124) + b(k,111) = b(k,111) - lu(k,1419) * b(k,124) + b(k,110) = b(k,110) - lu(k,1418) * b(k,124) + b(k,109) = b(k,109) - lu(k,1417) * b(k,124) + b(k,105) = b(k,105) - lu(k,1416) * b(k,124) + b(k,104) = b(k,104) - lu(k,1415) * b(k,124) + b(k,102) = b(k,102) - lu(k,1414) * b(k,124) + b(k,101) = b(k,101) - lu(k,1413) * b(k,124) + b(k,98) = b(k,98) - lu(k,1412) * b(k,124) + b(k,97) = b(k,97) - lu(k,1411) * b(k,124) + b(k,96) = b(k,96) - lu(k,1410) * b(k,124) + b(k,95) = b(k,95) - lu(k,1409) * b(k,124) + b(k,94) = b(k,94) - lu(k,1408) * b(k,124) + b(k,93) = b(k,93) - lu(k,1407) * b(k,124) + b(k,86) = b(k,86) - lu(k,1406) * b(k,124) + b(k,47) = b(k,47) - lu(k,1405) * b(k,124) b(k,123) = b(k,123) * lu(k,1388) b(k,122) = b(k,122) - lu(k,1387) * b(k,123) b(k,121) = b(k,121) - lu(k,1386) * b(k,123) @@ -1819,12 +1823,12 @@ subroutine lu_slv09( avec_len, lu, b ) b(k,92) = b(k,92) - lu(k,1367) * b(k,123) b(k,91) = b(k,91) - lu(k,1366) * b(k,123) b(k,90) = b(k,90) - lu(k,1365) * b(k,123) - b(k,86) = b(k,86) - lu(k,1364) * b(k,123) + b(k,87) = b(k,87) - lu(k,1364) * b(k,123) b(k,85) = b(k,85) - lu(k,1363) * b(k,123) b(k,84) = b(k,84) - lu(k,1362) * b(k,123) b(k,83) = b(k,83) - lu(k,1361) * b(k,123) b(k,82) = b(k,82) - lu(k,1360) * b(k,123) - b(k,80) = b(k,80) - lu(k,1359) * b(k,123) + b(k,81) = b(k,81) - lu(k,1359) * b(k,123) b(k,79) = b(k,79) - lu(k,1358) * b(k,123) b(k,78) = b(k,78) - lu(k,1357) * b(k,123) b(k,77) = b(k,77) - lu(k,1356) * b(k,123) @@ -1876,18 +1880,19 @@ subroutine lu_slv09( avec_len, lu, b ) b(k,112) = b(k,112) - lu(k,1275) * b(k,121) b(k,111) = b(k,111) - lu(k,1274) * b(k,121) b(k,110) = b(k,110) - lu(k,1273) * b(k,121) - b(k,108) = b(k,108) - lu(k,1272) * b(k,121) - b(k,100) = b(k,100) - lu(k,1271) * b(k,121) - b(k,93) = b(k,93) - lu(k,1270) * b(k,121) - b(k,91) = b(k,91) - lu(k,1269) * b(k,121) - b(k,90) = b(k,90) - lu(k,1268) * b(k,121) - b(k,86) = b(k,86) - lu(k,1267) * b(k,121) - b(k,85) = b(k,85) - lu(k,1266) * b(k,121) - b(k,71) = b(k,71) - lu(k,1265) * b(k,121) - b(k,70) = b(k,70) - lu(k,1264) * b(k,121) - b(k,69) = b(k,69) - lu(k,1263) * b(k,121) - b(k,67) = b(k,67) - lu(k,1262) * b(k,121) - b(k,51) = b(k,51) - lu(k,1261) * b(k,121) + b(k,109) = b(k,109) - lu(k,1272) * b(k,121) + b(k,105) = b(k,105) - lu(k,1271) * b(k,121) + b(k,104) = b(k,104) - lu(k,1270) * b(k,121) + b(k,102) = b(k,102) - lu(k,1269) * b(k,121) + b(k,101) = b(k,101) - lu(k,1268) * b(k,121) + b(k,98) = b(k,98) - lu(k,1267) * b(k,121) + b(k,97) = b(k,97) - lu(k,1266) * b(k,121) + b(k,96) = b(k,96) - lu(k,1265) * b(k,121) + b(k,95) = b(k,95) - lu(k,1264) * b(k,121) + b(k,94) = b(k,94) - lu(k,1263) * b(k,121) + b(k,93) = b(k,93) - lu(k,1262) * b(k,121) + b(k,86) = b(k,86) - lu(k,1261) * b(k,121) + b(k,46) = b(k,46) - lu(k,1260) * b(k,121) end do end subroutine lu_slv09 subroutine lu_slv10( avec_len, lu, b ) @@ -1908,229 +1913,226 @@ subroutine lu_slv10( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,120) = b(k,120) * lu(k,1241) - b(k,119) = b(k,119) - lu(k,1240) * b(k,120) - b(k,118) = b(k,118) - lu(k,1239) * b(k,120) - b(k,117) = b(k,117) - lu(k,1238) * b(k,120) - b(k,116) = b(k,116) - lu(k,1237) * b(k,120) - b(k,115) = b(k,115) - lu(k,1236) * b(k,120) - b(k,114) = b(k,114) - lu(k,1235) * b(k,120) - b(k,113) = b(k,113) - lu(k,1234) * b(k,120) - b(k,112) = b(k,112) - lu(k,1233) * b(k,120) - b(k,111) = b(k,111) - lu(k,1232) * b(k,120) - b(k,110) = b(k,110) - lu(k,1231) * b(k,120) - b(k,109) = b(k,109) - lu(k,1230) * b(k,120) - b(k,105) = b(k,105) - lu(k,1229) * b(k,120) - b(k,104) = b(k,104) - lu(k,1228) * b(k,120) - b(k,102) = b(k,102) - lu(k,1227) * b(k,120) - b(k,101) = b(k,101) - lu(k,1226) * b(k,120) - b(k,98) = b(k,98) - lu(k,1225) * b(k,120) - b(k,97) = b(k,97) - lu(k,1224) * b(k,120) - b(k,96) = b(k,96) - lu(k,1223) * b(k,120) - b(k,95) = b(k,95) - lu(k,1222) * b(k,120) - b(k,94) = b(k,94) - lu(k,1221) * b(k,120) - b(k,93) = b(k,93) - lu(k,1220) * b(k,120) - b(k,74) = b(k,74) - lu(k,1219) * b(k,120) - b(k,68) = b(k,68) - lu(k,1218) * b(k,120) - b(k,119) = b(k,119) * lu(k,1197) - b(k,118) = b(k,118) - lu(k,1196) * b(k,119) - b(k,117) = b(k,117) - lu(k,1195) * b(k,119) - b(k,116) = b(k,116) - lu(k,1194) * b(k,119) - b(k,115) = b(k,115) - lu(k,1193) * b(k,119) - b(k,114) = b(k,114) - lu(k,1192) * b(k,119) - b(k,113) = b(k,113) - lu(k,1191) * b(k,119) - b(k,112) = b(k,112) - lu(k,1190) * b(k,119) - b(k,111) = b(k,111) - lu(k,1189) * b(k,119) - b(k,110) = b(k,110) - lu(k,1188) * b(k,119) - b(k,109) = b(k,109) - lu(k,1187) * b(k,119) - b(k,105) = b(k,105) - lu(k,1186) * b(k,119) - b(k,104) = b(k,104) - lu(k,1185) * b(k,119) - b(k,102) = b(k,102) - lu(k,1184) * b(k,119) - b(k,101) = b(k,101) - lu(k,1183) * b(k,119) - b(k,98) = b(k,98) - lu(k,1182) * b(k,119) - b(k,97) = b(k,97) - lu(k,1181) * b(k,119) - b(k,96) = b(k,96) - lu(k,1180) * b(k,119) - b(k,95) = b(k,95) - lu(k,1179) * b(k,119) - b(k,94) = b(k,94) - lu(k,1178) * b(k,119) - b(k,93) = b(k,93) - lu(k,1177) * b(k,119) - b(k,73) = b(k,73) - lu(k,1176) * b(k,119) - b(k,58) = b(k,58) - lu(k,1175) * b(k,119) - b(k,118) = b(k,118) * lu(k,1153) - b(k,117) = b(k,117) - lu(k,1152) * b(k,118) - b(k,116) = b(k,116) - lu(k,1151) * b(k,118) - b(k,115) = b(k,115) - lu(k,1150) * b(k,118) - b(k,114) = b(k,114) - lu(k,1149) * b(k,118) - b(k,113) = b(k,113) - lu(k,1148) * b(k,118) - b(k,112) = b(k,112) - lu(k,1147) * b(k,118) - b(k,111) = b(k,111) - lu(k,1146) * b(k,118) - b(k,110) = b(k,110) - lu(k,1145) * b(k,118) - b(k,109) = b(k,109) - lu(k,1144) * b(k,118) - b(k,108) = b(k,108) - lu(k,1143) * b(k,118) - b(k,105) = b(k,105) - lu(k,1142) * b(k,118) - b(k,104) = b(k,104) - lu(k,1141) * b(k,118) - b(k,102) = b(k,102) - lu(k,1140) * b(k,118) - b(k,101) = b(k,101) - lu(k,1139) * b(k,118) - b(k,98) = b(k,98) - lu(k,1138) * b(k,118) - b(k,97) = b(k,97) - lu(k,1137) * b(k,118) - b(k,96) = b(k,96) - lu(k,1136) * b(k,118) - b(k,95) = b(k,95) - lu(k,1135) * b(k,118) - b(k,94) = b(k,94) - lu(k,1134) * b(k,118) - b(k,93) = b(k,93) - lu(k,1133) * b(k,118) - b(k,90) = b(k,90) - lu(k,1132) * b(k,118) - b(k,86) = b(k,86) - lu(k,1131) * b(k,118) - b(k,78) = b(k,78) - lu(k,1130) * b(k,118) - b(k,76) = b(k,76) - lu(k,1129) * b(k,118) - b(k,71) = b(k,71) - lu(k,1128) * b(k,118) - b(k,70) = b(k,70) - lu(k,1127) * b(k,118) - b(k,117) = b(k,117) * lu(k,1104) - b(k,116) = b(k,116) - lu(k,1103) * b(k,117) - b(k,115) = b(k,115) - lu(k,1102) * b(k,117) - b(k,114) = b(k,114) - lu(k,1101) * b(k,117) - b(k,113) = b(k,113) - lu(k,1100) * b(k,117) - b(k,112) = b(k,112) - lu(k,1099) * b(k,117) - b(k,111) = b(k,111) - lu(k,1098) * b(k,117) - b(k,110) = b(k,110) - lu(k,1097) * b(k,117) - b(k,109) = b(k,109) - lu(k,1096) * b(k,117) - b(k,108) = b(k,108) - lu(k,1095) * b(k,117) - b(k,107) = b(k,107) - lu(k,1094) * b(k,117) - b(k,106) = b(k,106) - lu(k,1093) * b(k,117) - b(k,99) = b(k,99) - lu(k,1092) * b(k,117) - b(k,92) = b(k,92) - lu(k,1091) * b(k,117) - b(k,89) = b(k,89) - lu(k,1090) * b(k,117) - b(k,84) = b(k,84) - lu(k,1089) * b(k,117) - b(k,83) = b(k,83) - lu(k,1088) * b(k,117) - b(k,82) = b(k,82) - lu(k,1087) * b(k,117) - b(k,80) = b(k,80) - lu(k,1086) * b(k,117) - b(k,52) = b(k,52) - lu(k,1085) * b(k,117) - b(k,43) = b(k,43) - lu(k,1084) * b(k,117) - b(k,38) = b(k,38) - lu(k,1083) * b(k,117) - b(k,26) = b(k,26) - lu(k,1082) * b(k,117) - b(k,116) = b(k,116) * lu(k,1058) - b(k,114) = b(k,114) - lu(k,1057) * b(k,116) - b(k,112) = b(k,112) - lu(k,1056) * b(k,116) - b(k,108) = b(k,108) - lu(k,1055) * b(k,116) - b(k,91) = b(k,91) - lu(k,1054) * b(k,116) - b(k,90) = b(k,90) - lu(k,1053) * b(k,116) - b(k,86) = b(k,86) - lu(k,1052) * b(k,116) - b(k,78) = b(k,78) - lu(k,1051) * b(k,116) - b(k,76) = b(k,76) - lu(k,1050) * b(k,116) - b(k,75) = b(k,75) - lu(k,1049) * b(k,116) - b(k,74) = b(k,74) - lu(k,1048) * b(k,116) - b(k,73) = b(k,73) - lu(k,1047) * b(k,116) - b(k,71) = b(k,71) - lu(k,1046) * b(k,116) - b(k,70) = b(k,70) - lu(k,1045) * b(k,116) - b(k,68) = b(k,68) - lu(k,1044) * b(k,116) - b(k,66) = b(k,66) - lu(k,1043) * b(k,116) - b(k,62) = b(k,62) - lu(k,1042) * b(k,116) - b(k,61) = b(k,61) - lu(k,1041) * b(k,116) - b(k,58) = b(k,58) - lu(k,1040) * b(k,116) - b(k,57) = b(k,57) - lu(k,1039) * b(k,116) - b(k,115) = b(k,115) * lu(k,1014) - b(k,114) = b(k,114) - lu(k,1013) * b(k,115) - b(k,113) = b(k,113) - lu(k,1012) * b(k,115) - b(k,111) = b(k,111) - lu(k,1011) * b(k,115) - b(k,109) = b(k,109) - lu(k,1010) * b(k,115) - b(k,105) = b(k,105) - lu(k,1009) * b(k,115) - b(k,104) = b(k,104) - lu(k,1008) * b(k,115) - b(k,100) = b(k,100) - lu(k,1007) * b(k,115) - b(k,84) = b(k,84) - lu(k,1006) * b(k,115) - b(k,114) = b(k,114) * lu(k,984) - b(k,112) = b(k,112) - lu(k,983) * b(k,114) - b(k,108) = b(k,108) - lu(k,982) * b(k,114) - b(k,107) = b(k,107) - lu(k,981) * b(k,114) - b(k,106) = b(k,106) - lu(k,980) * b(k,114) - b(k,103) = b(k,103) - lu(k,979) * b(k,114) - b(k,99) = b(k,99) - lu(k,978) * b(k,114) - b(k,92) = b(k,92) - lu(k,977) * b(k,114) - b(k,90) = b(k,90) - lu(k,976) * b(k,114) - b(k,89) = b(k,89) - lu(k,975) * b(k,114) - b(k,88) = b(k,88) - lu(k,974) * b(k,114) - b(k,83) = b(k,83) - lu(k,973) * b(k,114) - b(k,82) = b(k,82) - lu(k,972) * b(k,114) - b(k,81) = b(k,81) - lu(k,971) * b(k,114) - b(k,80) = b(k,80) - lu(k,970) * b(k,114) - b(k,79) = b(k,79) - lu(k,969) * b(k,114) - b(k,74) = b(k,74) - lu(k,968) * b(k,114) - b(k,73) = b(k,73) - lu(k,967) * b(k,114) - b(k,72) = b(k,72) - lu(k,966) * b(k,114) - b(k,69) = b(k,69) - lu(k,965) * b(k,114) - b(k,65) = b(k,65) - lu(k,964) * b(k,114) - b(k,64) = b(k,64) - lu(k,963) * b(k,114) - b(k,60) = b(k,60) - lu(k,962) * b(k,114) - b(k,59) = b(k,59) - lu(k,961) * b(k,114) - b(k,56) = b(k,56) - lu(k,960) * b(k,114) - b(k,55) = b(k,55) - lu(k,959) * b(k,114) - b(k,54) = b(k,54) - lu(k,958) * b(k,114) - b(k,53) = b(k,53) - lu(k,957) * b(k,114) - b(k,50) = b(k,50) - lu(k,956) * b(k,114) - b(k,48) = b(k,48) - lu(k,955) * b(k,114) - b(k,45) = b(k,45) - lu(k,954) * b(k,114) - b(k,42) = b(k,42) - lu(k,953) * b(k,114) - b(k,41) = b(k,41) - lu(k,952) * b(k,114) - b(k,40) = b(k,40) - lu(k,951) * b(k,114) - b(k,39) = b(k,39) - lu(k,950) * b(k,114) - b(k,32) = b(k,32) - lu(k,949) * b(k,114) - b(k,113) = b(k,113) * lu(k,926) - b(k,111) = b(k,111) - lu(k,925) * b(k,113) - b(k,109) = b(k,109) - lu(k,924) * b(k,113) - b(k,97) = b(k,97) - lu(k,923) * b(k,113) - b(k,73) = b(k,73) - lu(k,922) * b(k,113) - b(k,112) = b(k,112) * lu(k,900) - b(k,108) = b(k,108) - lu(k,899) * b(k,112) - b(k,107) = b(k,107) - lu(k,898) * b(k,112) - b(k,106) = b(k,106) - lu(k,897) * b(k,112) - b(k,103) = b(k,103) - lu(k,896) * b(k,112) - b(k,99) = b(k,99) - lu(k,895) * b(k,112) - b(k,89) = b(k,89) - lu(k,894) * b(k,112) - b(k,80) = b(k,80) - lu(k,893) * b(k,112) - b(k,79) = b(k,79) - lu(k,892) * b(k,112) - b(k,77) = b(k,77) - lu(k,891) * b(k,112) - b(k,74) = b(k,74) - lu(k,890) * b(k,112) - b(k,64) = b(k,64) - lu(k,889) * b(k,112) - b(k,59) = b(k,59) - lu(k,888) * b(k,112) - b(k,55) = b(k,55) - lu(k,887) * b(k,112) - b(k,111) = b(k,111) * lu(k,866) - b(k,109) = b(k,109) - lu(k,865) * b(k,111) - b(k,105) = b(k,105) - lu(k,864) * b(k,111) - b(k,101) = b(k,101) - lu(k,863) * b(k,111) - b(k,98) = b(k,98) - lu(k,862) * b(k,111) - b(k,110) = b(k,110) * lu(k,833) - b(k,109) = b(k,109) - lu(k,832) * b(k,110) - b(k,100) = b(k,100) - lu(k,831) * b(k,110) - b(k,84) = b(k,84) - lu(k,830) * b(k,110) - b(k,109) = b(k,109) * lu(k,811) - b(k,96) = b(k,96) - lu(k,810) * b(k,109) - b(k,95) = b(k,95) - lu(k,809) * b(k,109) - b(k,108) = b(k,108) * lu(k,787) - b(k,107) = b(k,107) - lu(k,786) * b(k,108) - b(k,106) = b(k,106) - lu(k,785) * b(k,108) - b(k,103) = b(k,103) - lu(k,784) * b(k,108) - b(k,99) = b(k,99) - lu(k,783) * b(k,108) - b(k,91) = b(k,91) - lu(k,782) * b(k,108) - b(k,89) = b(k,89) - lu(k,781) * b(k,108) - b(k,88) = b(k,88) - lu(k,780) * b(k,108) - b(k,85) = b(k,85) - lu(k,779) * b(k,108) - b(k,81) = b(k,81) - lu(k,778) * b(k,108) - b(k,79) = b(k,79) - lu(k,777) * b(k,108) - b(k,65) = b(k,65) - lu(k,776) * b(k,108) - b(k,60) = b(k,60) - lu(k,775) * b(k,108) - b(k,56) = b(k,56) - lu(k,774) * b(k,108) - b(k,51) = b(k,51) - lu(k,773) * b(k,108) - b(k,48) = b(k,48) - lu(k,772) * b(k,108) - b(k,44) = b(k,44) - lu(k,771) * b(k,108) - b(k,42) = b(k,42) - lu(k,770) * b(k,108) - b(k,41) = b(k,41) - lu(k,769) * b(k,108) - b(k,40) = b(k,40) - lu(k,768) * b(k,108) - b(k,39) = b(k,39) - lu(k,767) * b(k,108) - b(k,37) = b(k,37) - lu(k,766) * b(k,108) - b(k,36) = b(k,36) - lu(k,765) * b(k,108) - b(k,35) = b(k,35) - lu(k,764) * b(k,108) - b(k,34) = b(k,34) - lu(k,763) * b(k,108) - b(k,31) = b(k,31) - lu(k,762) * b(k,108) - b(k,30) = b(k,30) - lu(k,761) * b(k,108) - b(k,29) = b(k,29) - lu(k,760) * b(k,108) - b(k,28) = b(k,28) - lu(k,759) * b(k,108) - b(k,27) = b(k,27) - lu(k,758) * b(k,108) + b(k,120) = b(k,120) * lu(k,1240) + b(k,119) = b(k,119) - lu(k,1239) * b(k,120) + b(k,118) = b(k,118) - lu(k,1238) * b(k,120) + b(k,117) = b(k,117) - lu(k,1237) * b(k,120) + b(k,116) = b(k,116) - lu(k,1236) * b(k,120) + b(k,115) = b(k,115) - lu(k,1235) * b(k,120) + b(k,114) = b(k,114) - lu(k,1234) * b(k,120) + b(k,113) = b(k,113) - lu(k,1233) * b(k,120) + b(k,112) = b(k,112) - lu(k,1232) * b(k,120) + b(k,111) = b(k,111) - lu(k,1231) * b(k,120) + b(k,110) = b(k,110) - lu(k,1230) * b(k,120) + b(k,108) = b(k,108) - lu(k,1229) * b(k,120) + b(k,107) = b(k,107) - lu(k,1228) * b(k,120) + b(k,106) = b(k,106) - lu(k,1227) * b(k,120) + b(k,100) = b(k,100) - lu(k,1226) * b(k,120) + b(k,99) = b(k,99) - lu(k,1225) * b(k,120) + b(k,92) = b(k,92) - lu(k,1224) * b(k,120) + b(k,91) = b(k,91) - lu(k,1223) * b(k,120) + b(k,85) = b(k,85) - lu(k,1222) * b(k,120) + b(k,82) = b(k,82) - lu(k,1221) * b(k,120) + b(k,72) = b(k,72) - lu(k,1220) * b(k,120) + b(k,51) = b(k,51) - lu(k,1219) * b(k,120) + b(k,119) = b(k,119) * lu(k,1198) + b(k,118) = b(k,118) - lu(k,1197) * b(k,119) + b(k,117) = b(k,117) - lu(k,1196) * b(k,119) + b(k,116) = b(k,116) - lu(k,1195) * b(k,119) + b(k,115) = b(k,115) - lu(k,1194) * b(k,119) + b(k,114) = b(k,114) - lu(k,1193) * b(k,119) + b(k,113) = b(k,113) - lu(k,1192) * b(k,119) + b(k,112) = b(k,112) - lu(k,1191) * b(k,119) + b(k,111) = b(k,111) - lu(k,1190) * b(k,119) + b(k,110) = b(k,110) - lu(k,1189) * b(k,119) + b(k,109) = b(k,109) - lu(k,1188) * b(k,119) + b(k,105) = b(k,105) - lu(k,1187) * b(k,119) + b(k,104) = b(k,104) - lu(k,1186) * b(k,119) + b(k,102) = b(k,102) - lu(k,1185) * b(k,119) + b(k,101) = b(k,101) - lu(k,1184) * b(k,119) + b(k,98) = b(k,98) - lu(k,1183) * b(k,119) + b(k,97) = b(k,97) - lu(k,1182) * b(k,119) + b(k,96) = b(k,96) - lu(k,1181) * b(k,119) + b(k,95) = b(k,95) - lu(k,1180) * b(k,119) + b(k,94) = b(k,94) - lu(k,1179) * b(k,119) + b(k,93) = b(k,93) - lu(k,1178) * b(k,119) + b(k,73) = b(k,73) - lu(k,1177) * b(k,119) + b(k,58) = b(k,58) - lu(k,1176) * b(k,119) + b(k,118) = b(k,118) * lu(k,1154) + b(k,117) = b(k,117) - lu(k,1153) * b(k,118) + b(k,116) = b(k,116) - lu(k,1152) * b(k,118) + b(k,115) = b(k,115) - lu(k,1151) * b(k,118) + b(k,114) = b(k,114) - lu(k,1150) * b(k,118) + b(k,113) = b(k,113) - lu(k,1149) * b(k,118) + b(k,112) = b(k,112) - lu(k,1148) * b(k,118) + b(k,111) = b(k,111) - lu(k,1147) * b(k,118) + b(k,110) = b(k,110) - lu(k,1146) * b(k,118) + b(k,109) = b(k,109) - lu(k,1145) * b(k,118) + b(k,108) = b(k,108) - lu(k,1144) * b(k,118) + b(k,105) = b(k,105) - lu(k,1143) * b(k,118) + b(k,104) = b(k,104) - lu(k,1142) * b(k,118) + b(k,102) = b(k,102) - lu(k,1141) * b(k,118) + b(k,101) = b(k,101) - lu(k,1140) * b(k,118) + b(k,98) = b(k,98) - lu(k,1139) * b(k,118) + b(k,97) = b(k,97) - lu(k,1138) * b(k,118) + b(k,96) = b(k,96) - lu(k,1137) * b(k,118) + b(k,95) = b(k,95) - lu(k,1136) * b(k,118) + b(k,94) = b(k,94) - lu(k,1135) * b(k,118) + b(k,93) = b(k,93) - lu(k,1134) * b(k,118) + b(k,90) = b(k,90) - lu(k,1133) * b(k,118) + b(k,87) = b(k,87) - lu(k,1132) * b(k,118) + b(k,81) = b(k,81) - lu(k,1131) * b(k,118) + b(k,71) = b(k,71) - lu(k,1130) * b(k,118) + b(k,70) = b(k,70) - lu(k,1129) * b(k,118) + b(k,117) = b(k,117) * lu(k,1106) + b(k,116) = b(k,116) - lu(k,1105) * b(k,117) + b(k,115) = b(k,115) - lu(k,1104) * b(k,117) + b(k,114) = b(k,114) - lu(k,1103) * b(k,117) + b(k,113) = b(k,113) - lu(k,1102) * b(k,117) + b(k,112) = b(k,112) - lu(k,1101) * b(k,117) + b(k,111) = b(k,111) - lu(k,1100) * b(k,117) + b(k,110) = b(k,110) - lu(k,1099) * b(k,117) + b(k,109) = b(k,109) - lu(k,1098) * b(k,117) + b(k,108) = b(k,108) - lu(k,1097) * b(k,117) + b(k,107) = b(k,107) - lu(k,1096) * b(k,117) + b(k,106) = b(k,106) - lu(k,1095) * b(k,117) + b(k,99) = b(k,99) - lu(k,1094) * b(k,117) + b(k,92) = b(k,92) - lu(k,1093) * b(k,117) + b(k,89) = b(k,89) - lu(k,1092) * b(k,117) + b(k,84) = b(k,84) - lu(k,1091) * b(k,117) + b(k,83) = b(k,83) - lu(k,1090) * b(k,117) + b(k,82) = b(k,82) - lu(k,1089) * b(k,117) + b(k,79) = b(k,79) - lu(k,1088) * b(k,117) + b(k,52) = b(k,52) - lu(k,1087) * b(k,117) + b(k,43) = b(k,43) - lu(k,1086) * b(k,117) + b(k,38) = b(k,38) - lu(k,1085) * b(k,117) + b(k,26) = b(k,26) - lu(k,1084) * b(k,117) + b(k,116) = b(k,116) * lu(k,1060) + b(k,114) = b(k,114) - lu(k,1059) * b(k,116) + b(k,112) = b(k,112) - lu(k,1058) * b(k,116) + b(k,108) = b(k,108) - lu(k,1057) * b(k,116) + b(k,91) = b(k,91) - lu(k,1056) * b(k,116) + b(k,90) = b(k,90) - lu(k,1055) * b(k,116) + b(k,87) = b(k,87) - lu(k,1054) * b(k,116) + b(k,81) = b(k,81) - lu(k,1053) * b(k,116) + b(k,77) = b(k,77) - lu(k,1052) * b(k,116) + b(k,75) = b(k,75) - lu(k,1051) * b(k,116) + b(k,74) = b(k,74) - lu(k,1050) * b(k,116) + b(k,73) = b(k,73) - lu(k,1049) * b(k,116) + b(k,71) = b(k,71) - lu(k,1048) * b(k,116) + b(k,70) = b(k,70) - lu(k,1047) * b(k,116) + b(k,68) = b(k,68) - lu(k,1046) * b(k,116) + b(k,66) = b(k,66) - lu(k,1045) * b(k,116) + b(k,62) = b(k,62) - lu(k,1044) * b(k,116) + b(k,61) = b(k,61) - lu(k,1043) * b(k,116) + b(k,58) = b(k,58) - lu(k,1042) * b(k,116) + b(k,57) = b(k,57) - lu(k,1041) * b(k,116) + b(k,115) = b(k,115) * lu(k,1016) + b(k,114) = b(k,114) - lu(k,1015) * b(k,115) + b(k,113) = b(k,113) - lu(k,1014) * b(k,115) + b(k,111) = b(k,111) - lu(k,1013) * b(k,115) + b(k,109) = b(k,109) - lu(k,1012) * b(k,115) + b(k,105) = b(k,105) - lu(k,1011) * b(k,115) + b(k,104) = b(k,104) - lu(k,1010) * b(k,115) + b(k,100) = b(k,100) - lu(k,1009) * b(k,115) + b(k,84) = b(k,84) - lu(k,1008) * b(k,115) + b(k,114) = b(k,114) * lu(k,986) + b(k,112) = b(k,112) - lu(k,985) * b(k,114) + b(k,108) = b(k,108) - lu(k,984) * b(k,114) + b(k,107) = b(k,107) - lu(k,983) * b(k,114) + b(k,106) = b(k,106) - lu(k,982) * b(k,114) + b(k,103) = b(k,103) - lu(k,981) * b(k,114) + b(k,99) = b(k,99) - lu(k,980) * b(k,114) + b(k,92) = b(k,92) - lu(k,979) * b(k,114) + b(k,90) = b(k,90) - lu(k,978) * b(k,114) + b(k,89) = b(k,89) - lu(k,977) * b(k,114) + b(k,88) = b(k,88) - lu(k,976) * b(k,114) + b(k,83) = b(k,83) - lu(k,975) * b(k,114) + b(k,82) = b(k,82) - lu(k,974) * b(k,114) + b(k,80) = b(k,80) - lu(k,973) * b(k,114) + b(k,79) = b(k,79) - lu(k,972) * b(k,114) + b(k,78) = b(k,78) - lu(k,971) * b(k,114) + b(k,74) = b(k,74) - lu(k,970) * b(k,114) + b(k,73) = b(k,73) - lu(k,969) * b(k,114) + b(k,72) = b(k,72) - lu(k,968) * b(k,114) + b(k,69) = b(k,69) - lu(k,967) * b(k,114) + b(k,65) = b(k,65) - lu(k,966) * b(k,114) + b(k,64) = b(k,64) - lu(k,965) * b(k,114) + b(k,60) = b(k,60) - lu(k,964) * b(k,114) + b(k,59) = b(k,59) - lu(k,963) * b(k,114) + b(k,56) = b(k,56) - lu(k,962) * b(k,114) + b(k,55) = b(k,55) - lu(k,961) * b(k,114) + b(k,54) = b(k,54) - lu(k,960) * b(k,114) + b(k,53) = b(k,53) - lu(k,959) * b(k,114) + b(k,50) = b(k,50) - lu(k,958) * b(k,114) + b(k,48) = b(k,48) - lu(k,957) * b(k,114) + b(k,45) = b(k,45) - lu(k,956) * b(k,114) + b(k,42) = b(k,42) - lu(k,955) * b(k,114) + b(k,41) = b(k,41) - lu(k,954) * b(k,114) + b(k,40) = b(k,40) - lu(k,953) * b(k,114) + b(k,39) = b(k,39) - lu(k,952) * b(k,114) + b(k,32) = b(k,32) - lu(k,951) * b(k,114) + b(k,113) = b(k,113) * lu(k,928) + b(k,111) = b(k,111) - lu(k,927) * b(k,113) + b(k,109) = b(k,109) - lu(k,926) * b(k,113) + b(k,97) = b(k,97) - lu(k,925) * b(k,113) + b(k,73) = b(k,73) - lu(k,924) * b(k,113) + b(k,112) = b(k,112) * lu(k,902) + b(k,108) = b(k,108) - lu(k,901) * b(k,112) + b(k,107) = b(k,107) - lu(k,900) * b(k,112) + b(k,106) = b(k,106) - lu(k,899) * b(k,112) + b(k,103) = b(k,103) - lu(k,898) * b(k,112) + b(k,99) = b(k,99) - lu(k,897) * b(k,112) + b(k,89) = b(k,89) - lu(k,896) * b(k,112) + b(k,79) = b(k,79) - lu(k,895) * b(k,112) + b(k,78) = b(k,78) - lu(k,894) * b(k,112) + b(k,76) = b(k,76) - lu(k,893) * b(k,112) + b(k,74) = b(k,74) - lu(k,892) * b(k,112) + b(k,64) = b(k,64) - lu(k,891) * b(k,112) + b(k,59) = b(k,59) - lu(k,890) * b(k,112) + b(k,55) = b(k,55) - lu(k,889) * b(k,112) + b(k,111) = b(k,111) * lu(k,868) + b(k,109) = b(k,109) - lu(k,867) * b(k,111) + b(k,105) = b(k,105) - lu(k,866) * b(k,111) + b(k,101) = b(k,101) - lu(k,865) * b(k,111) + b(k,98) = b(k,98) - lu(k,864) * b(k,111) + b(k,110) = b(k,110) * lu(k,835) + b(k,109) = b(k,109) - lu(k,834) * b(k,110) + b(k,100) = b(k,100) - lu(k,833) * b(k,110) + b(k,84) = b(k,84) - lu(k,832) * b(k,110) + b(k,109) = b(k,109) * lu(k,813) + b(k,96) = b(k,96) - lu(k,812) * b(k,109) + b(k,95) = b(k,95) - lu(k,811) * b(k,109) + b(k,108) = b(k,108) * lu(k,789) + b(k,107) = b(k,107) - lu(k,788) * b(k,108) + b(k,106) = b(k,106) - lu(k,787) * b(k,108) + b(k,103) = b(k,103) - lu(k,786) * b(k,108) + b(k,99) = b(k,99) - lu(k,785) * b(k,108) + b(k,91) = b(k,91) - lu(k,784) * b(k,108) + b(k,89) = b(k,89) - lu(k,783) * b(k,108) + b(k,88) = b(k,88) - lu(k,782) * b(k,108) + b(k,85) = b(k,85) - lu(k,781) * b(k,108) + b(k,80) = b(k,80) - lu(k,780) * b(k,108) + b(k,78) = b(k,78) - lu(k,779) * b(k,108) + b(k,65) = b(k,65) - lu(k,778) * b(k,108) + b(k,60) = b(k,60) - lu(k,777) * b(k,108) + b(k,56) = b(k,56) - lu(k,776) * b(k,108) + b(k,51) = b(k,51) - lu(k,775) * b(k,108) + b(k,48) = b(k,48) - lu(k,774) * b(k,108) + b(k,44) = b(k,44) - lu(k,773) * b(k,108) + b(k,42) = b(k,42) - lu(k,772) * b(k,108) + b(k,41) = b(k,41) - lu(k,771) * b(k,108) + b(k,40) = b(k,40) - lu(k,770) * b(k,108) + b(k,39) = b(k,39) - lu(k,769) * b(k,108) + b(k,37) = b(k,37) - lu(k,768) * b(k,108) + b(k,36) = b(k,36) - lu(k,767) * b(k,108) + b(k,35) = b(k,35) - lu(k,766) * b(k,108) + b(k,34) = b(k,34) - lu(k,765) * b(k,108) + b(k,31) = b(k,31) - lu(k,764) * b(k,108) + b(k,30) = b(k,30) - lu(k,763) * b(k,108) + b(k,29) = b(k,29) - lu(k,762) * b(k,108) + b(k,28) = b(k,28) - lu(k,761) * b(k,108) + b(k,27) = b(k,27) - lu(k,760) * b(k,108) end do end subroutine lu_slv10 subroutine lu_slv11( avec_len, lu, b ) @@ -2151,87 +2153,88 @@ subroutine lu_slv11( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,107) = b(k,107) * lu(k,738) - b(k,106) = b(k,106) - lu(k,737) * b(k,107) - b(k,103) = b(k,103) - lu(k,736) * b(k,107) - b(k,99) = b(k,99) - lu(k,735) * b(k,107) - b(k,79) = b(k,79) - lu(k,734) * b(k,107) - b(k,69) = b(k,69) - lu(k,733) * b(k,107) - b(k,106) = b(k,106) * lu(k,715) - b(k,99) = b(k,99) - lu(k,714) * b(k,106) - b(k,92) = b(k,92) - lu(k,713) * b(k,106) - b(k,82) = b(k,82) - lu(k,712) * b(k,106) - b(k,77) = b(k,77) - lu(k,711) * b(k,106) - b(k,63) = b(k,63) - lu(k,710) * b(k,106) - b(k,52) = b(k,52) - lu(k,709) * b(k,106) - b(k,43) = b(k,43) - lu(k,708) * b(k,106) - b(k,105) = b(k,105) * lu(k,691) - b(k,102) = b(k,102) - lu(k,690) * b(k,105) - b(k,101) = b(k,101) - lu(k,689) * b(k,105) - b(k,87) = b(k,87) - lu(k,688) * b(k,105) - b(k,104) = b(k,104) * lu(k,669) - b(k,97) = b(k,97) - lu(k,668) * b(k,104) - b(k,94) = b(k,94) - lu(k,667) * b(k,104) - b(k,103) = b(k,103) * lu(k,647) - b(k,89) = b(k,89) - lu(k,646) * b(k,103) - b(k,88) = b(k,88) - lu(k,645) * b(k,103) - b(k,81) = b(k,81) - lu(k,644) * b(k,103) - b(k,49) = b(k,49) - lu(k,643) * b(k,103) - b(k,102) = b(k,102) * lu(k,625) - b(k,101) = b(k,101) - lu(k,624) * b(k,102) - b(k,87) = b(k,87) - lu(k,623) * b(k,102) - b(k,101) = b(k,101) * lu(k,609) - b(k,100) = b(k,100) * lu(k,594) - b(k,99) = b(k,99) * lu(k,582) - b(k,79) = b(k,79) - lu(k,581) * b(k,99) - b(k,69) = b(k,69) - lu(k,580) * b(k,99) - b(k,98) = b(k,98) * lu(k,564) - b(k,97) = b(k,97) * lu(k,550) - b(k,96) = b(k,96) * lu(k,535) - b(k,95) = b(k,95) - lu(k,534) * b(k,96) - b(k,95) = b(k,95) * lu(k,519) - b(k,94) = b(k,94) * lu(k,504) - b(k,93) = b(k,93) * lu(k,490) - b(k,92) = b(k,92) * lu(k,476) - b(k,82) = b(k,82) - lu(k,475) * b(k,92) - b(k,72) = b(k,72) - lu(k,474) * b(k,92) - b(k,52) = b(k,52) - lu(k,473) * b(k,92) - b(k,91) = b(k,91) * lu(k,461) - b(k,85) = b(k,85) - lu(k,460) * b(k,91) - b(k,75) = b(k,75) - lu(k,459) * b(k,91) - b(k,90) = b(k,90) * lu(k,446) - b(k,86) = b(k,86) - lu(k,445) * b(k,90) - b(k,78) = b(k,78) - lu(k,444) * b(k,90) - b(k,44) = b(k,44) - lu(k,443) * b(k,90) - b(k,89) = b(k,89) * lu(k,432) - b(k,55) = b(k,55) - lu(k,431) * b(k,89) - b(k,88) = b(k,88) * lu(k,416) - b(k,81) = b(k,81) - lu(k,415) * b(k,88) - b(k,69) = b(k,69) - lu(k,414) * b(k,88) - b(k,49) = b(k,49) - lu(k,413) * b(k,88) - b(k,87) = b(k,87) * lu(k,401) - b(k,47) = b(k,47) - lu(k,400) * b(k,87) - b(k,46) = b(k,46) - lu(k,399) * b(k,87) - b(k,86) = b(k,86) * lu(k,388) - b(k,78) = b(k,78) - lu(k,387) * b(k,86) - b(k,76) = b(k,76) - lu(k,386) * b(k,86) - b(k,69) = b(k,69) - lu(k,385) * b(k,86) - b(k,85) = b(k,85) * lu(k,377) - b(k,84) = b(k,84) * lu(k,369) - b(k,83) = b(k,83) * lu(k,359) - b(k,80) = b(k,80) - lu(k,358) * b(k,83) - b(k,38) = b(k,38) - lu(k,357) * b(k,83) - b(k,82) = b(k,82) * lu(k,351) - b(k,45) = b(k,45) - lu(k,350) * b(k,82) - b(k,81) = b(k,81) * lu(k,341) - b(k,49) = b(k,49) - lu(k,340) * b(k,81) + b(k,107) = b(k,107) * lu(k,740) + b(k,106) = b(k,106) - lu(k,739) * b(k,107) + b(k,103) = b(k,103) - lu(k,738) * b(k,107) + b(k,99) = b(k,99) - lu(k,737) * b(k,107) + b(k,78) = b(k,78) - lu(k,736) * b(k,107) + b(k,69) = b(k,69) - lu(k,735) * b(k,107) + b(k,106) = b(k,106) * lu(k,717) + b(k,99) = b(k,99) - lu(k,716) * b(k,106) + b(k,92) = b(k,92) - lu(k,715) * b(k,106) + b(k,82) = b(k,82) - lu(k,714) * b(k,106) + b(k,76) = b(k,76) - lu(k,713) * b(k,106) + b(k,63) = b(k,63) - lu(k,712) * b(k,106) + b(k,52) = b(k,52) - lu(k,711) * b(k,106) + b(k,43) = b(k,43) - lu(k,710) * b(k,106) + b(k,105) = b(k,105) * lu(k,693) + b(k,102) = b(k,102) - lu(k,692) * b(k,105) + b(k,101) = b(k,101) - lu(k,691) * b(k,105) + b(k,86) = b(k,86) - lu(k,690) * b(k,105) + b(k,104) = b(k,104) * lu(k,671) + b(k,97) = b(k,97) - lu(k,670) * b(k,104) + b(k,94) = b(k,94) - lu(k,669) * b(k,104) + b(k,103) = b(k,103) * lu(k,649) + b(k,89) = b(k,89) - lu(k,648) * b(k,103) + b(k,88) = b(k,88) - lu(k,647) * b(k,103) + b(k,80) = b(k,80) - lu(k,646) * b(k,103) + b(k,49) = b(k,49) - lu(k,645) * b(k,103) + b(k,102) = b(k,102) * lu(k,627) + b(k,101) = b(k,101) - lu(k,626) * b(k,102) + b(k,86) = b(k,86) - lu(k,625) * b(k,102) + b(k,101) = b(k,101) * lu(k,611) + b(k,100) = b(k,100) * lu(k,596) + b(k,99) = b(k,99) * lu(k,584) + b(k,78) = b(k,78) - lu(k,583) * b(k,99) + b(k,69) = b(k,69) - lu(k,582) * b(k,99) + b(k,98) = b(k,98) * lu(k,566) + b(k,97) = b(k,97) * lu(k,552) + b(k,96) = b(k,96) * lu(k,537) + b(k,95) = b(k,95) - lu(k,536) * b(k,96) + b(k,95) = b(k,95) * lu(k,521) + b(k,94) = b(k,94) * lu(k,506) + b(k,93) = b(k,93) * lu(k,492) + b(k,92) = b(k,92) * lu(k,478) + b(k,82) = b(k,82) - lu(k,477) * b(k,92) + b(k,72) = b(k,72) - lu(k,476) * b(k,92) + b(k,52) = b(k,52) - lu(k,475) * b(k,92) + b(k,91) = b(k,91) * lu(k,463) + b(k,85) = b(k,85) - lu(k,462) * b(k,91) + b(k,75) = b(k,75) - lu(k,461) * b(k,91) + b(k,90) = b(k,90) * lu(k,448) + b(k,87) = b(k,87) - lu(k,447) * b(k,90) + b(k,77) = b(k,77) - lu(k,446) * b(k,90) + b(k,44) = b(k,44) - lu(k,445) * b(k,90) + b(k,89) = b(k,89) * lu(k,434) + b(k,55) = b(k,55) - lu(k,433) * b(k,89) + b(k,88) = b(k,88) * lu(k,418) + b(k,80) = b(k,80) - lu(k,417) * b(k,88) + b(k,69) = b(k,69) - lu(k,416) * b(k,88) + b(k,49) = b(k,49) - lu(k,415) * b(k,88) + b(k,87) = b(k,87) * lu(k,404) + b(k,81) = b(k,81) - lu(k,403) * b(k,87) + b(k,77) = b(k,77) - lu(k,402) * b(k,87) + b(k,69) = b(k,69) - lu(k,401) * b(k,87) + b(k,86) = b(k,86) * lu(k,389) + b(k,47) = b(k,47) - lu(k,388) * b(k,86) + b(k,46) = b(k,46) - lu(k,387) * b(k,86) + b(k,85) = b(k,85) * lu(k,379) + b(k,84) = b(k,84) * lu(k,371) + b(k,83) = b(k,83) * lu(k,361) + b(k,79) = b(k,79) - lu(k,360) * b(k,83) + b(k,38) = b(k,38) - lu(k,359) * b(k,83) + b(k,82) = b(k,82) * lu(k,353) + b(k,45) = b(k,45) - lu(k,352) * b(k,82) + b(k,81) = b(k,81) * lu(k,343) + b(k,77) = b(k,77) - lu(k,342) * b(k,81) b(k,80) = b(k,80) * lu(k,333) - b(k,38) = b(k,38) - lu(k,332) * b(k,80) - b(k,79) = b(k,79) * lu(k,324) - b(k,78) = b(k,78) * lu(k,317) + b(k,49) = b(k,49) - lu(k,332) * b(k,80) + b(k,79) = b(k,79) * lu(k,325) + b(k,38) = b(k,38) - lu(k,324) * b(k,79) + b(k,78) = b(k,78) * lu(k,316) b(k,77) = b(k,77) * lu(k,309) - b(k,43) = b(k,43) - lu(k,308) * b(k,77) - b(k,76) = b(k,76) * lu(k,300) + b(k,76) = b(k,76) * lu(k,301) + b(k,43) = b(k,43) - lu(k,300) * b(k,76) b(k,75) = b(k,75) * lu(k,292) b(k,74) = b(k,74) - lu(k,291) * b(k,75) b(k,68) = b(k,68) - lu(k,290) * b(k,75) diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_nln_matrix.F90 index a338a4d93a..8529491697 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_nln_matrix.F90 @@ -22,207 +22,207 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,582) = -(rxt(k,486)*y(k,17) + rxt(k,487)*y(k,101) + rxt(k,488)*y(k,73)) - mat(k,735) = -rxt(k,486)*y(k,3) - mat(k,895) = -rxt(k,487)*y(k,3) - mat(k,1909) = -rxt(k,488)*y(k,3) - mat(k,714) = 4.000_r8*rxt(k,489)*y(k,5) + (rxt(k,490)+rxt(k,491))*y(k,28) & - + rxt(k,494)*y(k,62) + rxt(k,497)*y(k,70) + rxt(k,548)*y(k,80) & - + rxt(k,498)*y(k,133) - mat(k,57) = rxt(k,476)*y(k,71) - mat(k,63) = rxt(k,502)*y(k,71) - mat(k,187) = 2.000_r8*rxt(k,513)*y(k,25) + 2.000_r8*rxt(k,525)*y(k,71) & - + 2.000_r8*rxt(k,514)*y(k,133) - mat(k,223) = rxt(k,515)*y(k,25) + rxt(k,526)*y(k,71) + rxt(k,516)*y(k,133) - mat(k,162) = 3.000_r8*rxt(k,520)*y(k,25) + 3.000_r8*rxt(k,503)*y(k,71) & - + 3.000_r8*rxt(k,521)*y(k,133) - mat(k,1466) = 2.000_r8*rxt(k,513)*y(k,16) + rxt(k,515)*y(k,18) & - + 3.000_r8*rxt(k,520)*y(k,24) - mat(k,1092) = (rxt(k,490)+rxt(k,491))*y(k,5) - mat(k,34) = 2.000_r8*rxt(k,504)*y(k,71) - mat(k,325) = rxt(k,499)*y(k,70) + rxt(k,505)*y(k,71) + rxt(k,500)*y(k,133) - mat(k,1949) = rxt(k,494)*y(k,5) - mat(k,1368) = rxt(k,497)*y(k,5) + rxt(k,499)*y(k,45) - mat(k,783) = rxt(k,476)*y(k,9) + rxt(k,502)*y(k,10) + 2.000_r8*rxt(k,525) & - *y(k,16) + rxt(k,526)*y(k,18) + 3.000_r8*rxt(k,503)*y(k,24) & - + 2.000_r8*rxt(k,504)*y(k,42) + rxt(k,505)*y(k,45) - mat(k,477) = rxt(k,548)*y(k,5) - mat(k,978) = rxt(k,498)*y(k,5) + 2.000_r8*rxt(k,514)*y(k,16) + rxt(k,516) & - *y(k,18) + 3.000_r8*rxt(k,521)*y(k,24) + rxt(k,500)*y(k,45) - mat(k,708) = rxt(k,492)*y(k,28) - mat(k,1084) = rxt(k,492)*y(k,5) - mat(k,1987) = (rxt(k,570)+rxt(k,575))*y(k,53) - mat(k,308) = (rxt(k,570)+rxt(k,575))*y(k,49) - mat(k,715) = -(4._r8*rxt(k,489)*y(k,5) + (rxt(k,490) + rxt(k,491) + rxt(k,492) & - ) * y(k,28) + rxt(k,493)*y(k,101) + rxt(k,494)*y(k,62) + rxt(k,495) & - *y(k,63) + rxt(k,497)*y(k,70) + rxt(k,498)*y(k,133) + rxt(k,548) & + mat(k,584) = -(rxt(k,488)*y(k,17) + rxt(k,489)*y(k,101) + rxt(k,490)*y(k,73)) + mat(k,737) = -rxt(k,488)*y(k,3) + mat(k,897) = -rxt(k,489)*y(k,3) + mat(k,1225) = -rxt(k,490)*y(k,3) + mat(k,716) = 4.000_r8*rxt(k,491)*y(k,5) + (rxt(k,492)+rxt(k,493))*y(k,28) & + + rxt(k,496)*y(k,62) + rxt(k,499)*y(k,70) + rxt(k,550)*y(k,80) & + + rxt(k,500)*y(k,133) + mat(k,57) = rxt(k,478)*y(k,71) + mat(k,63) = rxt(k,504)*y(k,71) + mat(k,187) = 2.000_r8*rxt(k,515)*y(k,25) + 2.000_r8*rxt(k,527)*y(k,71) & + + 2.000_r8*rxt(k,516)*y(k,133) + mat(k,223) = rxt(k,517)*y(k,25) + rxt(k,528)*y(k,71) + rxt(k,518)*y(k,133) + mat(k,162) = 3.000_r8*rxt(k,522)*y(k,25) + 3.000_r8*rxt(k,505)*y(k,71) & + + 3.000_r8*rxt(k,523)*y(k,133) + mat(k,1460) = 2.000_r8*rxt(k,515)*y(k,16) + rxt(k,517)*y(k,18) & + + 3.000_r8*rxt(k,522)*y(k,24) + mat(k,1094) = (rxt(k,492)+rxt(k,493))*y(k,5) + mat(k,34) = 2.000_r8*rxt(k,506)*y(k,71) + mat(k,317) = rxt(k,501)*y(k,70) + rxt(k,507)*y(k,71) + rxt(k,502)*y(k,133) + mat(k,1952) = rxt(k,496)*y(k,5) + mat(k,1368) = rxt(k,499)*y(k,5) + rxt(k,501)*y(k,45) + mat(k,785) = rxt(k,478)*y(k,9) + rxt(k,504)*y(k,10) + 2.000_r8*rxt(k,527) & + *y(k,16) + rxt(k,528)*y(k,18) + 3.000_r8*rxt(k,505)*y(k,24) & + + 2.000_r8*rxt(k,506)*y(k,42) + rxt(k,507)*y(k,45) + mat(k,479) = rxt(k,550)*y(k,5) + mat(k,980) = rxt(k,500)*y(k,5) + 2.000_r8*rxt(k,516)*y(k,16) + rxt(k,518) & + *y(k,18) + 3.000_r8*rxt(k,523)*y(k,24) + rxt(k,502)*y(k,45) + mat(k,710) = rxt(k,494)*y(k,28) + mat(k,1086) = rxt(k,494)*y(k,5) + mat(k,1990) = (rxt(k,572)+rxt(k,577))*y(k,53) + mat(k,300) = (rxt(k,572)+rxt(k,577))*y(k,49) + mat(k,717) = -(4._r8*rxt(k,491)*y(k,5) + (rxt(k,492) + rxt(k,493) + rxt(k,494) & + ) * y(k,28) + rxt(k,495)*y(k,101) + rxt(k,496)*y(k,62) + rxt(k,497) & + *y(k,63) + rxt(k,499)*y(k,70) + rxt(k,500)*y(k,133) + rxt(k,550) & *y(k,80)) - mat(k,1093) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,5) - mat(k,897) = -rxt(k,493)*y(k,5) - mat(k,1953) = -rxt(k,494)*y(k,5) - mat(k,1801) = -rxt(k,495)*y(k,5) - mat(k,1371) = -rxt(k,497)*y(k,5) - mat(k,980) = -rxt(k,498)*y(k,5) - mat(k,478) = -rxt(k,548)*y(k,5) - mat(k,583) = rxt(k,488)*y(k,73) - mat(k,209) = rxt(k,496)*y(k,70) - mat(k,326) = rxt(k,506)*y(k,71) - mat(k,311) = rxt(k,501)*y(k,70) - mat(k,1371) = mat(k,1371) + rxt(k,496)*y(k,6) + rxt(k,501)*y(k,53) - mat(k,785) = rxt(k,506)*y(k,45) - mat(k,1911) = rxt(k,488)*y(k,3) - mat(k,206) = -(rxt(k,496)*y(k,70)) - mat(k,1349) = -rxt(k,496)*y(k,6) - mat(k,710) = rxt(k,495)*y(k,63) - mat(k,1788) = rxt(k,495)*y(k,5) - mat(k,29) = -(rxt(k,475)*y(k,71)) - mat(k,758) = -rxt(k,475)*y(k,8) - mat(k,55) = -(rxt(k,476)*y(k,71)) - mat(k,763) = -rxt(k,476)*y(k,9) - mat(k,60) = -(rxt(k,502)*y(k,71)) - mat(k,764) = -rxt(k,502)*y(k,10) - mat(k,36) = -(rxt(k,477)*y(k,71)) - mat(k,760) = -rxt(k,477)*y(k,11) - mat(k,65) = -(rxt(k,478)*y(k,71)) - mat(k,765) = -rxt(k,478)*y(k,12) - mat(k,40) = -(rxt(k,479)*y(k,71)) - mat(k,761) = -rxt(k,479)*y(k,13) - mat(k,70) = -(rxt(k,480)*y(k,71)) - mat(k,766) = -rxt(k,480)*y(k,14) - mat(k,44) = -(rxt(k,481)*y(k,71)) - mat(k,762) = -rxt(k,481)*y(k,15) - mat(k,186) = -(rxt(k,513)*y(k,25) + rxt(k,514)*y(k,133) + rxt(k,525)*y(k,71)) - mat(k,1457) = -rxt(k,513)*y(k,16) - mat(k,962) = -rxt(k,514)*y(k,16) - mat(k,775) = -rxt(k,525)*y(k,16) - mat(k,738) = -(rxt(k,450)*y(k,25) + rxt(k,486)*y(k,3) + rxt(k,530)*y(k,64) & - + rxt(k,531)*y(k,70) + rxt(k,532)*y(k,133)) - mat(k,1469) = -rxt(k,450)*y(k,17) - mat(k,584) = -rxt(k,486)*y(k,17) - mat(k,1720) = -rxt(k,530)*y(k,17) - mat(k,1372) = -rxt(k,531)*y(k,17) - mat(k,981) = -rxt(k,532)*y(k,17) - mat(k,433) = rxt(k,457)*y(k,28) + rxt(k,534)*y(k,62) - mat(k,157) = .300_r8*rxt(k,535)*y(k,133) - mat(k,419) = (rxt(k,538)+rxt(k,539))*y(k,71) - mat(k,1094) = rxt(k,457)*y(k,21) - mat(k,1954) = rxt(k,534)*y(k,21) - mat(k,786) = (rxt(k,538)+rxt(k,539))*y(k,23) - mat(k,981) = mat(k,981) + .300_r8*rxt(k,535)*y(k,22) - mat(k,221) = -(rxt(k,515)*y(k,25) + rxt(k,516)*y(k,133) + rxt(k,526)*y(k,71)) - mat(k,1459) = -rxt(k,515)*y(k,18) - mat(k,964) = -rxt(k,516)*y(k,18) - mat(k,776) = -rxt(k,526)*y(k,18) - mat(k,48) = -(rxt(k,517)*y(k,133)) - mat(k,949) = -rxt(k,517)*y(k,19) - mat(k,147) = -(rxt(k,518)*y(k,25) + rxt(k,519)*y(k,133)) - mat(k,1455) = -rxt(k,518)*y(k,20) - mat(k,958) = -rxt(k,519)*y(k,20) - mat(k,432) = -(rxt(k,457)*y(k,28) + rxt(k,533)*y(k,101) + rxt(k,534)*y(k,62)) - mat(k,1090) = -rxt(k,457)*y(k,21) - mat(k,894) = -rxt(k,533)*y(k,21) - mat(k,1946) = -rxt(k,534)*y(k,21) - mat(k,156) = .700_r8*rxt(k,535)*y(k,133) - mat(k,417) = rxt(k,451)*y(k,25) + rxt(k,507)*y(k,39) + rxt(k,537)*y(k,71) & - + rxt(k,536)*y(k,133) - mat(k,1465) = rxt(k,451)*y(k,23) - mat(k,343) = rxt(k,507)*y(k,23) - mat(k,781) = rxt(k,537)*y(k,23) - mat(k,975) = .700_r8*rxt(k,535)*y(k,22) + rxt(k,536)*y(k,23) - mat(k,155) = -(rxt(k,535)*y(k,133)) - mat(k,959) = -rxt(k,535)*y(k,22) - mat(k,431) = rxt(k,533)*y(k,101) - mat(k,887) = rxt(k,533)*y(k,21) - mat(k,416) = -(rxt(k,451)*y(k,25) + rxt(k,507)*y(k,39) + rxt(k,536)*y(k,133) & - + (rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,71)) - mat(k,1464) = -rxt(k,451)*y(k,23) - mat(k,342) = -rxt(k,507)*y(k,23) - mat(k,974) = -rxt(k,536)*y(k,23) - mat(k,780) = -(rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,23) - mat(k,161) = -(rxt(k,503)*y(k,71) + rxt(k,520)*y(k,25) + rxt(k,521)*y(k,133)) - mat(k,774) = -rxt(k,503)*y(k,24) - mat(k,1456) = -rxt(k,520)*y(k,24) - mat(k,960) = -rxt(k,521)*y(k,24) - mat(k,1487) = -((rxt(k,114) + rxt(k,115)) * y(k,94) + rxt(k,127)*y(k,97) & + mat(k,1095) = -(rxt(k,492) + rxt(k,493) + rxt(k,494)) * y(k,5) + mat(k,899) = -rxt(k,495)*y(k,5) + mat(k,1956) = -rxt(k,496)*y(k,5) + mat(k,1794) = -rxt(k,497)*y(k,5) + mat(k,1371) = -rxt(k,499)*y(k,5) + mat(k,982) = -rxt(k,500)*y(k,5) + mat(k,480) = -rxt(k,550)*y(k,5) + mat(k,585) = rxt(k,490)*y(k,73) + mat(k,209) = rxt(k,498)*y(k,70) + mat(k,318) = rxt(k,508)*y(k,71) + mat(k,303) = rxt(k,503)*y(k,70) + mat(k,1371) = mat(k,1371) + rxt(k,498)*y(k,6) + rxt(k,503)*y(k,53) + mat(k,787) = rxt(k,508)*y(k,45) + mat(k,1227) = rxt(k,490)*y(k,3) + mat(k,206) = -(rxt(k,498)*y(k,70)) + mat(k,1349) = -rxt(k,498)*y(k,6) + mat(k,712) = rxt(k,497)*y(k,63) + mat(k,1781) = rxt(k,497)*y(k,5) + mat(k,29) = -(rxt(k,477)*y(k,71)) + mat(k,760) = -rxt(k,477)*y(k,8) + mat(k,55) = -(rxt(k,478)*y(k,71)) + mat(k,765) = -rxt(k,478)*y(k,9) + mat(k,60) = -(rxt(k,504)*y(k,71)) + mat(k,766) = -rxt(k,504)*y(k,10) + mat(k,36) = -(rxt(k,479)*y(k,71)) + mat(k,762) = -rxt(k,479)*y(k,11) + mat(k,65) = -(rxt(k,480)*y(k,71)) + mat(k,767) = -rxt(k,480)*y(k,12) + mat(k,40) = -(rxt(k,481)*y(k,71)) + mat(k,763) = -rxt(k,481)*y(k,13) + mat(k,70) = -(rxt(k,482)*y(k,71)) + mat(k,768) = -rxt(k,482)*y(k,14) + mat(k,44) = -(rxt(k,483)*y(k,71)) + mat(k,764) = -rxt(k,483)*y(k,15) + mat(k,186) = -(rxt(k,515)*y(k,25) + rxt(k,516)*y(k,133) + rxt(k,527)*y(k,71)) + mat(k,1451) = -rxt(k,515)*y(k,16) + mat(k,964) = -rxt(k,516)*y(k,16) + mat(k,777) = -rxt(k,527)*y(k,16) + mat(k,740) = -(rxt(k,452)*y(k,25) + rxt(k,488)*y(k,3) + rxt(k,532)*y(k,64) & + + rxt(k,533)*y(k,70) + rxt(k,534)*y(k,133)) + mat(k,1463) = -rxt(k,452)*y(k,17) + mat(k,586) = -rxt(k,488)*y(k,17) + mat(k,1713) = -rxt(k,532)*y(k,17) + mat(k,1372) = -rxt(k,533)*y(k,17) + mat(k,983) = -rxt(k,534)*y(k,17) + mat(k,435) = rxt(k,459)*y(k,28) + rxt(k,536)*y(k,62) + mat(k,157) = .300_r8*rxt(k,537)*y(k,133) + mat(k,421) = (rxt(k,540)+rxt(k,541))*y(k,71) + mat(k,1096) = rxt(k,459)*y(k,21) + mat(k,1957) = rxt(k,536)*y(k,21) + mat(k,788) = (rxt(k,540)+rxt(k,541))*y(k,23) + mat(k,983) = mat(k,983) + .300_r8*rxt(k,537)*y(k,22) + mat(k,221) = -(rxt(k,517)*y(k,25) + rxt(k,518)*y(k,133) + rxt(k,528)*y(k,71)) + mat(k,1453) = -rxt(k,517)*y(k,18) + mat(k,966) = -rxt(k,518)*y(k,18) + mat(k,778) = -rxt(k,528)*y(k,18) + mat(k,48) = -(rxt(k,519)*y(k,133)) + mat(k,951) = -rxt(k,519)*y(k,19) + mat(k,147) = -(rxt(k,520)*y(k,25) + rxt(k,521)*y(k,133)) + mat(k,1449) = -rxt(k,520)*y(k,20) + mat(k,960) = -rxt(k,521)*y(k,20) + mat(k,434) = -(rxt(k,459)*y(k,28) + rxt(k,535)*y(k,101) + rxt(k,536)*y(k,62)) + mat(k,1092) = -rxt(k,459)*y(k,21) + mat(k,896) = -rxt(k,535)*y(k,21) + mat(k,1949) = -rxt(k,536)*y(k,21) + mat(k,156) = .700_r8*rxt(k,537)*y(k,133) + mat(k,419) = rxt(k,453)*y(k,25) + rxt(k,509)*y(k,39) + rxt(k,539)*y(k,71) & + + rxt(k,538)*y(k,133) + mat(k,1459) = rxt(k,453)*y(k,23) + mat(k,335) = rxt(k,509)*y(k,23) + mat(k,783) = rxt(k,539)*y(k,23) + mat(k,977) = .700_r8*rxt(k,537)*y(k,22) + rxt(k,538)*y(k,23) + mat(k,155) = -(rxt(k,537)*y(k,133)) + mat(k,961) = -rxt(k,537)*y(k,22) + mat(k,433) = rxt(k,535)*y(k,101) + mat(k,889) = rxt(k,535)*y(k,21) + mat(k,418) = -(rxt(k,453)*y(k,25) + rxt(k,509)*y(k,39) + rxt(k,538)*y(k,133) & + + (rxt(k,539) + rxt(k,540) + rxt(k,541)) * y(k,71)) + mat(k,1458) = -rxt(k,453)*y(k,23) + mat(k,334) = -rxt(k,509)*y(k,23) + mat(k,976) = -rxt(k,538)*y(k,23) + mat(k,782) = -(rxt(k,539) + rxt(k,540) + rxt(k,541)) * y(k,23) + mat(k,161) = -(rxt(k,505)*y(k,71) + rxt(k,522)*y(k,25) + rxt(k,523)*y(k,133)) + mat(k,776) = -rxt(k,505)*y(k,24) + mat(k,1450) = -rxt(k,522)*y(k,24) + mat(k,962) = -rxt(k,523)*y(k,24) + mat(k,1481) = -((rxt(k,114) + rxt(k,115)) * y(k,94) + rxt(k,127)*y(k,97) & + rxt(k,285)*y(k,111) + rxt(k,314)*y(k,127) + rxt(k,341) & - *y(k,134) + rxt(k,350)*y(k,135) + rxt(k,450)*y(k,17) + rxt(k,451) & - *y(k,23) + rxt(k,452)*y(k,41) + rxt(k,453)*y(k,43) + (rxt(k,454) & - + rxt(k,455)) * y(k,101) + rxt(k,456)*y(k,73) + rxt(k,463) & - *y(k,29) + rxt(k,472)*y(k,54) + rxt(k,513)*y(k,16) + rxt(k,515) & - *y(k,18) + rxt(k,518)*y(k,20) + rxt(k,520)*y(k,24)) - mat(k,1024) = -(rxt(k,114) + rxt(k,115)) * y(k,25) - mat(k,848) = -rxt(k,127)*y(k,25) - mat(k,936) = -rxt(k,285)*y(k,25) - mat(k,1564) = -rxt(k,314)*y(k,25) - mat(k,1852) = -rxt(k,341)*y(k,25) - mat(k,1888) = -rxt(k,350)*y(k,25) - mat(k,747) = -rxt(k,450)*y(k,25) - mat(k,425) = -rxt(k,451)*y(k,25) - mat(k,657) = -rxt(k,452)*y(k,25) - mat(k,218) = -rxt(k,453)*y(k,25) - mat(k,909) = -(rxt(k,454) + rxt(k,455)) * y(k,25) - mat(k,1929) = -rxt(k,456)*y(k,25) - mat(k,363) = -rxt(k,463)*y(k,25) - mat(k,337) = -rxt(k,472)*y(k,25) - mat(k,190) = -rxt(k,513)*y(k,25) - mat(k,227) = -rxt(k,515)*y(k,25) - mat(k,152) = -rxt(k,518)*y(k,25) - mat(k,165) = -rxt(k,520)*y(k,25) - mat(k,724) = rxt(k,491)*y(k,28) - mat(k,31) = 4.000_r8*rxt(k,475)*y(k,71) - mat(k,59) = rxt(k,476)*y(k,71) - mat(k,39) = 2.000_r8*rxt(k,477)*y(k,71) - mat(k,69) = 2.000_r8*rxt(k,478)*y(k,71) - mat(k,43) = 2.000_r8*rxt(k,479)*y(k,71) - mat(k,74) = rxt(k,480)*y(k,71) - mat(k,47) = 2.000_r8*rxt(k,481)*y(k,71) - mat(k,50) = 3.000_r8*rxt(k,517)*y(k,133) - mat(k,152) = mat(k,152) + rxt(k,519)*y(k,133) - mat(k,438) = rxt(k,457)*y(k,28) - mat(k,1112) = rxt(k,491)*y(k,5) + rxt(k,457)*y(k,21) + (4.000_r8*rxt(k,458) & - +2.000_r8*rxt(k,460))*y(k,28) + rxt(k,462)*y(k,62) + rxt(k,467) & - *y(k,70) + rxt(k,549)*y(k,80) + rxt(k,468)*y(k,133) - mat(k,88) = rxt(k,512)*y(k,71) - mat(k,84) = rxt(k,527)*y(k,71) + rxt(k,522)*y(k,133) - mat(k,94) = rxt(k,528)*y(k,71) + rxt(k,523)*y(k,133) - mat(k,120) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133) - mat(k,2016) = rxt(k,470)*y(k,70) + rxt(k,482)*y(k,71) + rxt(k,471)*y(k,133) - mat(k,1971) = rxt(k,462)*y(k,28) + rxt(k,111)*y(k,93) - mat(k,1819) = rxt(k,110)*y(k,90) - mat(k,1390) = rxt(k,467)*y(k,28) + rxt(k,470)*y(k,49) - mat(k,796) = 4.000_r8*rxt(k,475)*y(k,8) + rxt(k,476)*y(k,9) & - + 2.000_r8*rxt(k,477)*y(k,11) + 2.000_r8*rxt(k,478)*y(k,12) & - + 2.000_r8*rxt(k,479)*y(k,13) + rxt(k,480)*y(k,14) & - + 2.000_r8*rxt(k,481)*y(k,15) + rxt(k,512)*y(k,34) + rxt(k,527) & - *y(k,46) + rxt(k,528)*y(k,47) + rxt(k,529)*y(k,48) + rxt(k,482) & + *y(k,134) + rxt(k,350)*y(k,135) + rxt(k,452)*y(k,17) + rxt(k,453) & + *y(k,23) + rxt(k,454)*y(k,41) + rxt(k,455)*y(k,43) + (rxt(k,456) & + + rxt(k,457)) * y(k,101) + rxt(k,458)*y(k,73) + rxt(k,465) & + *y(k,29) + rxt(k,474)*y(k,54) + rxt(k,515)*y(k,16) + rxt(k,517) & + *y(k,18) + rxt(k,520)*y(k,20) + rxt(k,522)*y(k,24)) + mat(k,1026) = -(rxt(k,114) + rxt(k,115)) * y(k,25) + mat(k,850) = -rxt(k,127)*y(k,25) + mat(k,939) = -rxt(k,285)*y(k,25) + mat(k,1558) = -rxt(k,314)*y(k,25) + mat(k,1845) = -rxt(k,341)*y(k,25) + mat(k,1881) = -rxt(k,350)*y(k,25) + mat(k,748) = -rxt(k,452)*y(k,25) + mat(k,426) = -rxt(k,453)*y(k,25) + mat(k,657) = -rxt(k,454)*y(k,25) + mat(k,218) = -rxt(k,455)*y(k,25) + mat(k,909) = -(rxt(k,456) + rxt(k,457)) * y(k,25) + mat(k,1245) = -rxt(k,458)*y(k,25) + mat(k,365) = -rxt(k,465)*y(k,25) + mat(k,329) = -rxt(k,474)*y(k,25) + mat(k,190) = -rxt(k,515)*y(k,25) + mat(k,227) = -rxt(k,517)*y(k,25) + mat(k,152) = -rxt(k,520)*y(k,25) + mat(k,165) = -rxt(k,522)*y(k,25) + mat(k,725) = rxt(k,493)*y(k,28) + mat(k,31) = 4.000_r8*rxt(k,477)*y(k,71) + mat(k,59) = rxt(k,478)*y(k,71) + mat(k,39) = 2.000_r8*rxt(k,479)*y(k,71) + mat(k,69) = 2.000_r8*rxt(k,480)*y(k,71) + mat(k,43) = 2.000_r8*rxt(k,481)*y(k,71) + mat(k,74) = rxt(k,482)*y(k,71) + mat(k,47) = 2.000_r8*rxt(k,483)*y(k,71) + mat(k,50) = 3.000_r8*rxt(k,519)*y(k,133) + mat(k,152) = mat(k,152) + rxt(k,521)*y(k,133) + mat(k,439) = rxt(k,459)*y(k,28) + mat(k,1114) = rxt(k,493)*y(k,5) + rxt(k,459)*y(k,21) + (4.000_r8*rxt(k,460) & + +2.000_r8*rxt(k,462))*y(k,28) + rxt(k,464)*y(k,62) + rxt(k,469) & + *y(k,70) + rxt(k,551)*y(k,80) + rxt(k,470)*y(k,133) + mat(k,88) = rxt(k,514)*y(k,71) + mat(k,84) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133) + mat(k,94) = rxt(k,530)*y(k,71) + rxt(k,525)*y(k,133) + mat(k,120) = rxt(k,531)*y(k,71) + rxt(k,526)*y(k,133) + mat(k,2019) = rxt(k,472)*y(k,70) + rxt(k,484)*y(k,71) + rxt(k,473)*y(k,133) + mat(k,1974) = rxt(k,464)*y(k,28) + rxt(k,111)*y(k,93) + mat(k,1812) = rxt(k,110)*y(k,90) + mat(k,1390) = rxt(k,469)*y(k,28) + rxt(k,472)*y(k,49) + mat(k,796) = 4.000_r8*rxt(k,477)*y(k,8) + rxt(k,478)*y(k,9) & + + 2.000_r8*rxt(k,479)*y(k,11) + 2.000_r8*rxt(k,480)*y(k,12) & + + 2.000_r8*rxt(k,481)*y(k,13) + rxt(k,482)*y(k,14) & + + 2.000_r8*rxt(k,483)*y(k,15) + rxt(k,514)*y(k,34) + rxt(k,529) & + *y(k,46) + rxt(k,530)*y(k,47) + rxt(k,531)*y(k,48) + rxt(k,484) & *y(k,49) - mat(k,484) = rxt(k,549)*y(k,28) - mat(k,820) = rxt(k,110)*y(k,63) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) & + mat(k,486) = rxt(k,551)*y(k,28) + mat(k,822) = rxt(k,110)*y(k,63) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) & + rxt(k,177)*y(k,107) + rxt(k,248)*y(k,118) + rxt(k,230) & *y(k,119) + rxt(k,212)*y(k,122) + rxt(k,154)*y(k,128) - mat(k,542) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107) & + mat(k,544) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107) & + rxt(k,252)*y(k,118) + rxt(k,234)*y(k,119) + rxt(k,217) & *y(k,122) + rxt(k,159)*y(k,128) - mat(k,526) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107) & + mat(k,528) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107) & + rxt(k,240)*y(k,118) + rxt(k,222)*y(k,119) + rxt(k,205) & *y(k,122) + rxt(k,257)*y(k,128) - mat(k,374) = rxt(k,111)*y(k,62) - mat(k,1246) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92) - mat(k,1695) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92) - mat(k,1652) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92) - mat(k,1160) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92) - mat(k,1203) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92) + mat(k,375) = rxt(k,111)*y(k,62) + mat(k,1646) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92) + mat(k,1288) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92) + mat(k,1433) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92) + mat(k,1161) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92) + mat(k,1204) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92) mat(k,1330) = rxt(k,212)*y(k,90) + rxt(k,217)*y(k,91) + rxt(k,205)*y(k,92) - mat(k,1609) = rxt(k,154)*y(k,90) + rxt(k,159)*y(k,91) + rxt(k,257)*y(k,92) - mat(k,993) = 3.000_r8*rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,468) & - *y(k,28) + rxt(k,522)*y(k,46) + rxt(k,523)*y(k,47) + rxt(k,524) & - *y(k,48) + rxt(k,471)*y(k,49) - mat(k,1454) = rxt(k,463)*y(k,29) - mat(k,1083) = 2.000_r8*rxt(k,459)*y(k,28) - mat(k,357) = rxt(k,463)*y(k,25) + (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,49) - mat(k,1986) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,29) + (rxt(k,563) & - +rxt(k,569)+rxt(k,574))*y(k,54) - mat(k,332) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,49) + mat(k,1603) = rxt(k,154)*y(k,90) + rxt(k,159)*y(k,91) + rxt(k,257)*y(k,92) + mat(k,993) = 3.000_r8*rxt(k,519)*y(k,19) + rxt(k,521)*y(k,20) + rxt(k,470) & + *y(k,28) + rxt(k,524)*y(k,46) + rxt(k,525)*y(k,47) + rxt(k,526) & + *y(k,48) + rxt(k,473)*y(k,49) + mat(k,1448) = rxt(k,465)*y(k,29) + mat(k,1085) = 2.000_r8*rxt(k,461)*y(k,28) + mat(k,359) = rxt(k,465)*y(k,25) + (rxt(k,570)+rxt(k,575)+rxt(k,580))*y(k,49) + mat(k,1989) = (rxt(k,570)+rxt(k,575)+rxt(k,580))*y(k,29) + (rxt(k,565) & + +rxt(k,571)+rxt(k,576))*y(k,54) + mat(k,324) = (rxt(k,565)+rxt(k,571)+rxt(k,576))*y(k,49) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -243,228 +243,228 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1082) = 2.000_r8*rxt(k,484)*y(k,28) - mat(k,1104) = -(rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97) + rxt(k,286)*y(k,111) & + mat(k,1084) = 2.000_r8*rxt(k,486)*y(k,28) + mat(k,1106) = -(rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97) + rxt(k,286)*y(k,111) & + rxt(k,315)*y(k,127) + rxt(k,342)*y(k,134) + rxt(k,351) & - *y(k,135) + rxt(k,457)*y(k,21) + (4._r8*rxt(k,458) & - + 4._r8*rxt(k,459) + 4._r8*rxt(k,460) + 4._r8*rxt(k,484) & - ) * y(k,28) + rxt(k,461)*y(k,101) + rxt(k,462)*y(k,62) + rxt(k,464) & - *y(k,63) + rxt(k,467)*y(k,70) + (rxt(k,468) + rxt(k,469) & - ) * y(k,133) + (rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,5) & - + rxt(k,549)*y(k,80)) - mat(k,1016) = -rxt(k,116)*y(k,28) - mat(k,840) = -rxt(k,128)*y(k,28) - mat(k,929) = -rxt(k,286)*y(k,28) - mat(k,1556) = -rxt(k,315)*y(k,28) - mat(k,1844) = -rxt(k,342)*y(k,28) - mat(k,1880) = -rxt(k,351)*y(k,28) - mat(k,436) = -rxt(k,457)*y(k,28) - mat(k,903) = -rxt(k,461)*y(k,28) - mat(k,1963) = -rxt(k,462)*y(k,28) - mat(k,1811) = -rxt(k,464)*y(k,28) - mat(k,1382) = -rxt(k,467)*y(k,28) - mat(k,986) = -(rxt(k,468) + rxt(k,469)) * y(k,28) - mat(k,720) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,28) - mat(k,481) = -rxt(k,549)*y(k,28) - mat(k,1479) = rxt(k,472)*y(k,54) + rxt(k,456)*y(k,73) + rxt(k,455)*y(k,101) - mat(k,361) = rxt(k,465)*y(k,70) - mat(k,2008) = rxt(k,483)*y(k,71) - mat(k,335) = rxt(k,472)*y(k,25) + rxt(k,473)*y(k,70) + rxt(k,474)*y(k,133) - mat(k,1382) = mat(k,1382) + rxt(k,465)*y(k,29) + rxt(k,473)*y(k,54) - mat(k,791) = rxt(k,483)*y(k,49) - mat(k,1921) = rxt(k,456)*y(k,25) - mat(k,137) = rxt(k,554)*y(k,80) - mat(k,481) = mat(k,481) + rxt(k,554)*y(k,74) - mat(k,903) = mat(k,903) + rxt(k,455)*y(k,25) - mat(k,986) = mat(k,986) + rxt(k,474)*y(k,54) - mat(k,359) = -(rxt(k,463)*y(k,25) + rxt(k,465)*y(k,70) + rxt(k,466)*y(k,133) & - + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,49)) - mat(k,1462) = -rxt(k,463)*y(k,29) - mat(k,1361) = -rxt(k,465)*y(k,29) - mat(k,973) = -rxt(k,466)*y(k,29) - mat(k,1991) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,29) - mat(k,1088) = rxt(k,464)*y(k,63) - mat(k,1791) = rxt(k,464)*y(k,28) - mat(k,252) = -(rxt(k,540)*y(k,133)) - mat(k,965) = -rxt(k,540)*y(k,31) - mat(k,580) = rxt(k,486)*y(k,17) - mat(k,733) = rxt(k,486)*y(k,3) + rxt(k,450)*y(k,25) + rxt(k,530)*y(k,64) & - + rxt(k,531)*y(k,70) + rxt(k,532)*y(k,133) - mat(k,148) = rxt(k,518)*y(k,25) - mat(k,1460) = rxt(k,450)*y(k,17) + rxt(k,518)*y(k,20) - mat(k,1263) = rxt(k,594)*y(k,136) - mat(k,1711) = rxt(k,530)*y(k,17) - mat(k,1353) = rxt(k,531)*y(k,17) + rxt(k,543)*y(k,75) - mat(k,140) = rxt(k,543)*y(k,70) + rxt(k,544)*y(k,133) - mat(k,965) = mat(k,965) + rxt(k,532)*y(k,17) + rxt(k,544)*y(k,75) - mat(k,385) = rxt(k,594)*y(k,32) - mat(k,1284) = -(rxt(k,312)*y(k,123) + rxt(k,316)*y(k,127) + rxt(k,330) & + *y(k,135) + rxt(k,459)*y(k,21) + (4._r8*rxt(k,460) & + + 4._r8*rxt(k,461) + 4._r8*rxt(k,462) + 4._r8*rxt(k,486) & + ) * y(k,28) + rxt(k,463)*y(k,101) + rxt(k,464)*y(k,62) + rxt(k,466) & + *y(k,63) + rxt(k,469)*y(k,70) + (rxt(k,470) + rxt(k,471) & + ) * y(k,133) + (rxt(k,492) + rxt(k,493) + rxt(k,494)) * y(k,5) & + + rxt(k,551)*y(k,80)) + mat(k,1018) = -rxt(k,116)*y(k,28) + mat(k,842) = -rxt(k,128)*y(k,28) + mat(k,931) = -rxt(k,286)*y(k,28) + mat(k,1550) = -rxt(k,315)*y(k,28) + mat(k,1837) = -rxt(k,342)*y(k,28) + mat(k,1873) = -rxt(k,351)*y(k,28) + mat(k,438) = -rxt(k,459)*y(k,28) + mat(k,905) = -rxt(k,463)*y(k,28) + mat(k,1966) = -rxt(k,464)*y(k,28) + mat(k,1804) = -rxt(k,466)*y(k,28) + mat(k,1382) = -rxt(k,469)*y(k,28) + mat(k,988) = -(rxt(k,470) + rxt(k,471)) * y(k,28) + mat(k,722) = -(rxt(k,492) + rxt(k,493) + rxt(k,494)) * y(k,28) + mat(k,483) = -rxt(k,551)*y(k,28) + mat(k,1473) = rxt(k,474)*y(k,54) + rxt(k,458)*y(k,73) + rxt(k,457)*y(k,101) + mat(k,363) = rxt(k,467)*y(k,70) + mat(k,2011) = rxt(k,485)*y(k,71) + mat(k,327) = rxt(k,474)*y(k,25) + rxt(k,475)*y(k,70) + rxt(k,476)*y(k,133) + mat(k,1382) = mat(k,1382) + rxt(k,467)*y(k,29) + rxt(k,475)*y(k,54) + mat(k,793) = rxt(k,485)*y(k,49) + mat(k,1237) = rxt(k,458)*y(k,25) + mat(k,137) = rxt(k,556)*y(k,80) + mat(k,483) = mat(k,483) + rxt(k,556)*y(k,74) + mat(k,905) = mat(k,905) + rxt(k,457)*y(k,25) + mat(k,988) = mat(k,988) + rxt(k,476)*y(k,54) + mat(k,361) = -(rxt(k,465)*y(k,25) + rxt(k,467)*y(k,70) + rxt(k,468)*y(k,133) & + + (rxt(k,570) + rxt(k,575) + rxt(k,580)) * y(k,49)) + mat(k,1456) = -rxt(k,465)*y(k,29) + mat(k,1361) = -rxt(k,467)*y(k,29) + mat(k,975) = -rxt(k,468)*y(k,29) + mat(k,1994) = -(rxt(k,570) + rxt(k,575) + rxt(k,580)) * y(k,29) + mat(k,1090) = rxt(k,466)*y(k,63) + mat(k,1784) = rxt(k,466)*y(k,28) + mat(k,252) = -(rxt(k,542)*y(k,133)) + mat(k,967) = -rxt(k,542)*y(k,31) + mat(k,582) = rxt(k,488)*y(k,17) + mat(k,735) = rxt(k,488)*y(k,3) + rxt(k,452)*y(k,25) + rxt(k,532)*y(k,64) & + + rxt(k,533)*y(k,70) + rxt(k,534)*y(k,133) + mat(k,148) = rxt(k,520)*y(k,25) + mat(k,1454) = rxt(k,452)*y(k,17) + rxt(k,520)*y(k,20) + mat(k,1663) = rxt(k,596)*y(k,136) + mat(k,1704) = rxt(k,532)*y(k,17) + mat(k,1353) = rxt(k,533)*y(k,17) + rxt(k,545)*y(k,75) + mat(k,140) = rxt(k,545)*y(k,70) + rxt(k,546)*y(k,133) + mat(k,967) = mat(k,967) + rxt(k,534)*y(k,17) + rxt(k,546)*y(k,75) + mat(k,401) = rxt(k,596)*y(k,32) + mat(k,1693) = -(rxt(k,312)*y(k,123) + rxt(k,316)*y(k,127) + rxt(k,330) & *y(k,130) + rxt(k,335)*y(k,131) + rxt(k,343)*y(k,134) + rxt(k,352) & - *y(k,135) + rxt(k,368)*y(k,118) + rxt(k,594)*y(k,136)) - mat(k,260) = -rxt(k,312)*y(k,32) - mat(k,1560) = -rxt(k,316)*y(k,32) - mat(k,599) = -rxt(k,330)*y(k,32) - mat(k,242) = -rxt(k,335)*y(k,32) - mat(k,1848) = -rxt(k,343)*y(k,32) - mat(k,1884) = -rxt(k,352)*y(k,32) - mat(k,1156) = -rxt(k,368)*y(k,32) - mat(k,394) = -rxt(k,594)*y(k,32) - mat(k,1483) = (rxt(k,114)+rxt(k,115))*y(k,94) + rxt(k,127)*y(k,97) - mat(k,1108) = rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97) - mat(k,255) = rxt(k,540)*y(k,133) - mat(k,1767) = rxt(k,117)*y(k,94) - mat(k,2012) = rxt(k,130)*y(k,97) - mat(k,1524) = rxt(k,124)*y(k,94) - mat(k,1967) = rxt(k,280)*y(k,94) + (rxt(k,122)+rxt(k,123))*y(k,96) - mat(k,1815) = rxt(k,281)*y(k,94) + (rxt(k,120)+rxt(k,121))*y(k,96) - mat(k,1386) = rxt(k,125)*y(k,94) - mat(k,1435) = rxt(k,126)*y(k,94) - mat(k,1925) = rxt(k,132)*y(k,97) - mat(k,1020) = (rxt(k,114)+rxt(k,115))*y(k,25) + rxt(k,116)*y(k,28) & + *y(k,135) + rxt(k,368)*y(k,118) + rxt(k,596)*y(k,136)) + mat(k,261) = -rxt(k,312)*y(k,32) + mat(k,1563) = -rxt(k,316)*y(k,32) + mat(k,604) = -rxt(k,330)*y(k,32) + mat(k,244) = -rxt(k,335)*y(k,32) + mat(k,1850) = -rxt(k,343)*y(k,32) + mat(k,1886) = -rxt(k,352)*y(k,32) + mat(k,1166) = -rxt(k,368)*y(k,32) + mat(k,412) = -rxt(k,596)*y(k,32) + mat(k,1486) = (rxt(k,114)+rxt(k,115))*y(k,94) + rxt(k,127)*y(k,97) + mat(k,1119) = rxt(k,116)*y(k,94) + rxt(k,128)*y(k,97) + mat(k,255) = rxt(k,542)*y(k,133) + mat(k,1769) = rxt(k,117)*y(k,94) + mat(k,2024) = rxt(k,130)*y(k,97) + mat(k,1527) = rxt(k,124)*y(k,94) + mat(k,1979) = rxt(k,280)*y(k,94) + (rxt(k,122)+rxt(k,123))*y(k,96) + mat(k,1817) = rxt(k,281)*y(k,94) + (rxt(k,120)+rxt(k,121))*y(k,96) + mat(k,1395) = rxt(k,125)*y(k,94) + mat(k,1935) = rxt(k,126)*y(k,94) + mat(k,1250) = rxt(k,132)*y(k,97) + mat(k,1031) = (rxt(k,114)+rxt(k,115))*y(k,25) + rxt(k,116)*y(k,28) & + rxt(k,117)*y(k,40) + rxt(k,124)*y(k,51) + rxt(k,280)*y(k,62) & + rxt(k,281)*y(k,63) + rxt(k,125)*y(k,70) + rxt(k,126)*y(k,72) & + rxt(k,186)*y(k,103) + (rxt(k,170)+rxt(k,258))*y(k,105) + ( & + rxt(k,168)+rxt(k,265))*y(k,107) + rxt(k,239)*y(k,118) & + rxt(k,221)*y(k,119) + rxt(k,204)*y(k,122) + rxt(k,256) & *y(k,128) - mat(k,509) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + mat(k,516) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + rxt(k,176)+rxt(k,259))*y(k,107) + rxt(k,246)*y(k,118) & + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) + rxt(k,153) & *y(k,128) - mat(k,677) = (rxt(k,122)+rxt(k,123))*y(k,62) + (rxt(k,120)+rxt(k,121)) & + mat(k,684) = (rxt(k,122)+rxt(k,123))*y(k,62) + (rxt(k,120)+rxt(k,121)) & *y(k,63) + rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260)) & *y(k,105) + (rxt(k,178)+rxt(k,261))*y(k,107) + rxt(k,249) & *y(k,118) + rxt(k,231)*y(k,119) + rxt(k,213)*y(k,122) & + rxt(k,155)*y(k,128) - mat(k,844) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,130)*y(k,49) & + mat(k,855) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,130)*y(k,49) & + rxt(k,132)*y(k,73) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) & + rxt(k,174)*y(k,107) + rxt(k,244)*y(k,118) + rxt(k,227) & *y(k,119) + rxt(k,209)*y(k,122) + rxt(k,151)*y(k,128) - mat(k,1063) = rxt(k,306)*y(k,121) - mat(k,495) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) & + mat(k,1074) = rxt(k,306)*y(k,121) + mat(k,501) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) & + rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207) & *y(k,122) + rxt(k,149)*y(k,128) - mat(k,1242) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) & + mat(k,1651) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) & + rxt(k,191)*y(k,97) + rxt(k,189)*y(k,100) - mat(k,1691) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) & + mat(k,1293) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) & *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96) + rxt(k,225)*y(k,97) & + rxt(k,203)*y(k,100) - mat(k,1648) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) & + mat(k,1438) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) & *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96) + rxt(k,174)*y(k,97) & + rxt(k,172)*y(k,100) - mat(k,1156) = mat(k,1156) + rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) & + mat(k,1166) = mat(k,1166) + rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) & + rxt(k,249)*y(k,96) + rxt(k,244)*y(k,97) + rxt(k,242)*y(k,100) - mat(k,1199) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) & + mat(k,1209) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) & + rxt(k,227)*y(k,97) + rxt(k,224)*y(k,100) - mat(k,267) = rxt(k,306)*y(k,98) + rxt(k,307)*y(k,139) - mat(k,1326) = rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) + rxt(k,213)*y(k,96) & + mat(k,268) = rxt(k,306)*y(k,98) + rxt(k,307)*y(k,139) + mat(k,1335) = rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) + rxt(k,213)*y(k,96) & + rxt(k,209)*y(k,97) + rxt(k,207)*y(k,100) - mat(k,1605) = rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) + rxt(k,155)*y(k,96) & + mat(k,1608) = rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) + rxt(k,155)*y(k,96) & + rxt(k,151)*y(k,97) + rxt(k,149)*y(k,100) - mat(k,989) = rxt(k,540)*y(k,31) - mat(k,2072) = rxt(k,307)*y(k,121) - mat(k,77) = -(rxt(k,511)*y(k,71)) - mat(k,767) = -rxt(k,511)*y(k,33) - mat(k,56) = rxt(k,476)*y(k,71) - mat(k,61) = rxt(k,502)*y(k,71) - mat(k,66) = rxt(k,478)*y(k,71) - mat(k,41) = 2.000_r8*rxt(k,479)*y(k,71) - mat(k,71) = 2.000_r8*rxt(k,480)*y(k,71) - mat(k,45) = rxt(k,481)*y(k,71) - mat(k,33) = 2.000_r8*rxt(k,504)*y(k,71) - mat(k,89) = rxt(k,528)*y(k,71) + rxt(k,523)*y(k,133) - mat(k,115) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133) - mat(k,767) = mat(k,767) + rxt(k,476)*y(k,9) + rxt(k,502)*y(k,10) + rxt(k,478) & - *y(k,12) + 2.000_r8*rxt(k,479)*y(k,13) + 2.000_r8*rxt(k,480) & - *y(k,14) + rxt(k,481)*y(k,15) + 2.000_r8*rxt(k,504)*y(k,42) & - + rxt(k,528)*y(k,47) + rxt(k,529)*y(k,48) - mat(k,950) = rxt(k,523)*y(k,47) + rxt(k,524)*y(k,48) - mat(k,85) = -(rxt(k,512)*y(k,71)) - mat(k,769) = -rxt(k,512)*y(k,34) - mat(k,37) = rxt(k,477)*y(k,71) - mat(k,67) = rxt(k,478)*y(k,71) - mat(k,81) = rxt(k,527)*y(k,71) + rxt(k,522)*y(k,133) - mat(k,769) = mat(k,769) + rxt(k,477)*y(k,11) + rxt(k,478)*y(k,12) & - + rxt(k,527)*y(k,46) - mat(k,952) = rxt(k,522)*y(k,46) - mat(k,125) = -(rxt(k,541)*y(k,64) + (rxt(k,542) + rxt(k,556)) * y(k,133)) - mat(k,1710) = -rxt(k,541)*y(k,35) - mat(k,956) = -(rxt(k,542) + rxt(k,556)) * y(k,35) - mat(k,341) = -(rxt(k,507)*y(k,23) + rxt(k,508)*y(k,41) + rxt(k,509)*y(k,139) & - + rxt(k,510)*y(k,51)) - mat(k,415) = -rxt(k,507)*y(k,39) - mat(k,644) = -rxt(k,508)*y(k,39) - mat(k,2044) = -rxt(k,509)*y(k,39) - mat(k,1504) = -rxt(k,510)*y(k,39) - mat(k,62) = rxt(k,502)*y(k,71) - mat(k,72) = rxt(k,480)*y(k,71) - mat(k,78) = 2.000_r8*rxt(k,511)*y(k,71) - mat(k,86) = rxt(k,512)*y(k,71) - mat(k,778) = rxt(k,502)*y(k,10) + rxt(k,480)*y(k,14) + 2.000_r8*rxt(k,511) & - *y(k,33) + rxt(k,512)*y(k,34) - mat(k,1778) = -(rxt(k,105)*y(k,90) + rxt(k,117)*y(k,94) + rxt(k,129)*y(k,97) & + mat(k,998) = rxt(k,542)*y(k,31) + mat(k,2084) = rxt(k,307)*y(k,121) + mat(k,77) = -(rxt(k,513)*y(k,71)) + mat(k,769) = -rxt(k,513)*y(k,33) + mat(k,56) = rxt(k,478)*y(k,71) + mat(k,61) = rxt(k,504)*y(k,71) + mat(k,66) = rxt(k,480)*y(k,71) + mat(k,41) = 2.000_r8*rxt(k,481)*y(k,71) + mat(k,71) = 2.000_r8*rxt(k,482)*y(k,71) + mat(k,45) = rxt(k,483)*y(k,71) + mat(k,33) = 2.000_r8*rxt(k,506)*y(k,71) + mat(k,89) = rxt(k,530)*y(k,71) + rxt(k,525)*y(k,133) + mat(k,115) = rxt(k,531)*y(k,71) + rxt(k,526)*y(k,133) + mat(k,769) = mat(k,769) + rxt(k,478)*y(k,9) + rxt(k,504)*y(k,10) + rxt(k,480) & + *y(k,12) + 2.000_r8*rxt(k,481)*y(k,13) + 2.000_r8*rxt(k,482) & + *y(k,14) + rxt(k,483)*y(k,15) + 2.000_r8*rxt(k,506)*y(k,42) & + + rxt(k,530)*y(k,47) + rxt(k,531)*y(k,48) + mat(k,952) = rxt(k,525)*y(k,47) + rxt(k,526)*y(k,48) + mat(k,85) = -(rxt(k,514)*y(k,71)) + mat(k,771) = -rxt(k,514)*y(k,34) + mat(k,37) = rxt(k,479)*y(k,71) + mat(k,67) = rxt(k,480)*y(k,71) + mat(k,81) = rxt(k,529)*y(k,71) + rxt(k,524)*y(k,133) + mat(k,771) = mat(k,771) + rxt(k,479)*y(k,11) + rxt(k,480)*y(k,12) & + + rxt(k,529)*y(k,46) + mat(k,954) = rxt(k,524)*y(k,46) + mat(k,125) = -(rxt(k,543)*y(k,64) + (rxt(k,544) + rxt(k,558)) * y(k,133)) + mat(k,1703) = -rxt(k,543)*y(k,35) + mat(k,958) = -(rxt(k,544) + rxt(k,558)) * y(k,35) + mat(k,333) = -(rxt(k,509)*y(k,23) + rxt(k,510)*y(k,41) + rxt(k,511)*y(k,139) & + + rxt(k,512)*y(k,51)) + mat(k,417) = -rxt(k,509)*y(k,39) + mat(k,646) = -rxt(k,510)*y(k,39) + mat(k,2047) = -rxt(k,511)*y(k,39) + mat(k,1498) = -rxt(k,512)*y(k,39) + mat(k,62) = rxt(k,504)*y(k,71) + mat(k,72) = rxt(k,482)*y(k,71) + mat(k,78) = 2.000_r8*rxt(k,513)*y(k,71) + mat(k,86) = rxt(k,514)*y(k,71) + mat(k,780) = rxt(k,504)*y(k,10) + rxt(k,482)*y(k,14) + 2.000_r8*rxt(k,513) & + *y(k,33) + rxt(k,514)*y(k,34) + mat(k,1771) = -(rxt(k,105)*y(k,90) + rxt(k,117)*y(k,94) + rxt(k,129)*y(k,97) & + rxt(k,287)*y(k,111) + rxt(k,309)*y(k,122) + rxt(k,317) & *y(k,127) + rxt(k,331)*y(k,130) + rxt(k,344)*y(k,134) + (rxt(k,408) & + rxt(k,409) + rxt(k,410)) * y(k,101) + rxt(k,411)*y(k,72) & + rxt(k,414)*y(k,73)) - mat(k,825) = -rxt(k,105)*y(k,40) - mat(k,1031) = -rxt(k,117)*y(k,40) - mat(k,854) = -rxt(k,129)*y(k,40) - mat(k,942) = -rxt(k,287)*y(k,40) + mat(k,826) = -rxt(k,105)*y(k,40) + mat(k,1033) = -rxt(k,117)*y(k,40) + mat(k,856) = -rxt(k,129)*y(k,40) + mat(k,944) = -rxt(k,287)*y(k,40) mat(k,1337) = -rxt(k,309)*y(k,40) - mat(k,1571) = -rxt(k,317)*y(k,40) - mat(k,603) = -rxt(k,331)*y(k,40) - mat(k,1859) = -rxt(k,344)*y(k,40) - mat(k,914) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,40) - mat(k,1446) = -rxt(k,411)*y(k,40) - mat(k,1936) = -rxt(k,414)*y(k,40) - mat(k,750) = rxt(k,532)*y(k,133) - mat(k,428) = rxt(k,538)*y(k,71) - mat(k,1494) = rxt(k,452)*y(k,41) - mat(k,348) = rxt(k,508)*y(k,41) - mat(k,660) = rxt(k,452)*y(k,25) + rxt(k,508)*y(k,39) + rxt(k,406)*y(k,70) & + mat(k,1565) = -rxt(k,317)*y(k,40) + mat(k,605) = -rxt(k,331)*y(k,40) + mat(k,1852) = -rxt(k,344)*y(k,40) + mat(k,916) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,40) + mat(k,1937) = -rxt(k,411)*y(k,40) + mat(k,1252) = -rxt(k,414)*y(k,40) + mat(k,752) = rxt(k,534)*y(k,133) + mat(k,430) = rxt(k,540)*y(k,71) + mat(k,1488) = rxt(k,454)*y(k,41) + mat(k,340) = rxt(k,510)*y(k,41) + mat(k,661) = rxt(k,454)*y(k,25) + rxt(k,510)*y(k,39) + rxt(k,406)*y(k,70) & + rxt(k,389)*y(k,71) + rxt(k,415)*y(k,133) + rxt(k,354)*y(k,135) - mat(k,330) = rxt(k,506)*y(k,71) - mat(k,2023) = rxt(k,483)*y(k,71) - mat(k,456) = rxt(k,438)*y(k,133) + mat(k,322) = rxt(k,508)*y(k,71) + mat(k,2026) = rxt(k,485)*y(k,71) + mat(k,457) = rxt(k,437)*y(k,133) mat(k,1397) = rxt(k,406)*y(k,41) + rxt(k,418)*y(k,133) - mat(k,801) = rxt(k,538)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,506)*y(k,45) & - + rxt(k,483)*y(k,49) - mat(k,146) = rxt(k,544)*y(k,133) - mat(k,276) = rxt(k,550)*y(k,133) - mat(k,485) = rxt(k,555)*y(k,133) - mat(k,825) = mat(k,825) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) & + mat(k,803) = rxt(k,540)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,508)*y(k,45) & + + rxt(k,485)*y(k,49) + mat(k,146) = rxt(k,546)*y(k,133) + mat(k,276) = rxt(k,552)*y(k,133) + mat(k,487) = rxt(k,557)*y(k,133) + mat(k,826) = mat(k,826) + rxt(k,195)*y(k,103) + rxt(k,147)*y(k,105) & + rxt(k,177)*y(k,107) - mat(k,546) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107) - mat(k,530) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107) - mat(k,1031) = mat(k,1031) + rxt(k,186)*y(k,103) + (rxt(k,170)+rxt(k,258)) & + mat(k,547) = rxt(k,199)*y(k,103) + rxt(k,164)*y(k,105) + rxt(k,182)*y(k,107) + mat(k,531) = rxt(k,187)*y(k,103) + rxt(k,181)*y(k,105) + rxt(k,169)*y(k,107) + mat(k,1033) = mat(k,1033) + rxt(k,186)*y(k,103) + (rxt(k,170)+rxt(k,258)) & *y(k,105) + (rxt(k,168)+rxt(k,265))*y(k,107) - mat(k,516) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + mat(k,517) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + rxt(k,176)+rxt(k,259))*y(k,107) - mat(k,684) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( & + mat(k,685) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( & + rxt(k,178)+rxt(k,261))*y(k,107) - mat(k,854) = mat(k,854) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) & + mat(k,856) = mat(k,856) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) & + rxt(k,174)*y(k,107) - mat(k,1074) = rxt(k,138)*y(k,99) + rxt(k,382)*y(k,102) + rxt(k,383)*y(k,103) & + mat(k,1076) = rxt(k,138)*y(k,99) + rxt(k,382)*y(k,102) + rxt(k,383)*y(k,103) & + rxt(k,141)*y(k,105) + rxt(k,144)*y(k,107) + rxt(k,381) & *y(k,108) mat(k,171) = rxt(k,138)*y(k,98) - mat(k,501) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) + mat(k,502) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) mat(k,250) = rxt(k,382)*y(k,98) - mat(k,1253) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92) & + mat(k,1653) = rxt(k,195)*y(k,90) + rxt(k,199)*y(k,91) + rxt(k,187)*y(k,92) & + rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) & + rxt(k,191)*y(k,97) + rxt(k,383)*y(k,98) + rxt(k,189)*y(k,100) & + rxt(k,201)*y(k,111) + rxt(k,197)*y(k,112) + rxt(k,200) & *y(k,114) + rxt(k,193)*y(k,115) + rxt(k,198)*y(k,116) & + rxt(k,190)*y(k,127) - mat(k,1702) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92) + ( & + mat(k,1295) = rxt(k,147)*y(k,90) + rxt(k,164)*y(k,91) + rxt(k,181)*y(k,92) + ( & + rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) & *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96) + rxt(k,225)*y(k,97) & + rxt(k,141)*y(k,98) + rxt(k,203)*y(k,100) + rxt(k,166)*y(k,111) & + rxt(k,162)*y(k,112) + rxt(k,165)*y(k,114) + (rxt(k,236) & +rxt(k,262))*y(k,115) + rxt(k,163)*y(k,116) + rxt(k,214) & *y(k,127) - mat(k,1659) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92) + ( & + mat(k,1440) = rxt(k,177)*y(k,90) + rxt(k,182)*y(k,91) + rxt(k,169)*y(k,92) + ( & + rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) & *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96) + rxt(k,174)*y(k,97) & + rxt(k,144)*y(k,98) + rxt(k,172)*y(k,100) + rxt(k,184)*y(k,111) & @@ -472,19 +472,19 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) +rxt(k,263))*y(k,115) + rxt(k,180)*y(k,116) + rxt(k,173) & *y(k,127) mat(k,287) = rxt(k,381)*y(k,98) - mat(k,942) = mat(k,942) + rxt(k,201)*y(k,103) + rxt(k,166)*y(k,105) & + mat(k,944) = mat(k,944) + rxt(k,201)*y(k,103) + rxt(k,166)*y(k,105) & + rxt(k,184)*y(k,107) - mat(k,560) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107) - mat(k,639) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107) - mat(k,704) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( & + mat(k,561) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107) + mat(k,640) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107) + mat(k,705) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( & + rxt(k,175)+rxt(k,263))*y(k,107) - mat(k,576) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107) - mat(k,1571) = mat(k,1571) + rxt(k,190)*y(k,103) + rxt(k,214)*y(k,105) & + mat(k,577) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107) + mat(k,1565) = mat(k,1565) + rxt(k,190)*y(k,103) + rxt(k,214)*y(k,105) & + rxt(k,173)*y(k,107) - mat(k,998) = rxt(k,532)*y(k,17) + rxt(k,415)*y(k,41) + rxt(k,438)*y(k,56) & - + rxt(k,418)*y(k,70) + rxt(k,544)*y(k,75) + rxt(k,550)*y(k,78) & - + rxt(k,555)*y(k,80) - mat(k,1895) = rxt(k,354)*y(k,41) + mat(k,1000) = rxt(k,534)*y(k,17) + rxt(k,415)*y(k,41) + rxt(k,437)*y(k,56) & + + rxt(k,418)*y(k,70) + rxt(k,546)*y(k,75) + rxt(k,552)*y(k,78) & + + rxt(k,557)*y(k,80) + mat(k,1888) = rxt(k,354)*y(k,41) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -505,207 +505,208 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,647) = -((rxt(k,353) + rxt(k,354)) * y(k,135) + rxt(k,389)*y(k,71) & - + rxt(k,406)*y(k,70) + rxt(k,415)*y(k,133) + rxt(k,452)*y(k,25) & - + rxt(k,508)*y(k,39)) - mat(k,1870) = -(rxt(k,353) + rxt(k,354)) * y(k,41) - mat(k,784) = -rxt(k,389)*y(k,41) + mat(k,649) = -((rxt(k,353) + rxt(k,354)) * y(k,135) + rxt(k,389)*y(k,71) & + + rxt(k,406)*y(k,70) + rxt(k,415)*y(k,133) + rxt(k,454)*y(k,25) & + + rxt(k,510)*y(k,39)) + mat(k,1863) = -(rxt(k,353) + rxt(k,354)) * y(k,41) + mat(k,786) = -rxt(k,389)*y(k,41) mat(k,1370) = -rxt(k,406)*y(k,41) - mat(k,979) = -rxt(k,415)*y(k,41) - mat(k,1467) = -rxt(k,452)*y(k,41) - mat(k,344) = -rxt(k,508)*y(k,41) - mat(k,418) = rxt(k,539)*y(k,71) - mat(k,1752) = rxt(k,408)*y(k,101) - mat(k,784) = mat(k,784) + rxt(k,539)*y(k,23) - mat(k,896) = rxt(k,408)*y(k,40) - mat(k,32) = -(rxt(k,504)*y(k,71)) - mat(k,759) = -rxt(k,504)*y(k,42) - mat(k,214) = -(rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133) + rxt(k,453)*y(k,25)) + mat(k,981) = -rxt(k,415)*y(k,41) + mat(k,1461) = -rxt(k,454)*y(k,41) + mat(k,336) = -rxt(k,510)*y(k,41) + mat(k,420) = rxt(k,541)*y(k,71) + mat(k,1745) = rxt(k,408)*y(k,101) + mat(k,786) = mat(k,786) + rxt(k,541)*y(k,23) + mat(k,898) = rxt(k,408)*y(k,40) + mat(k,32) = -(rxt(k,506)*y(k,71)) + mat(k,761) = -rxt(k,506)*y(k,42) + mat(k,214) = -(rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133) + rxt(k,455)*y(k,25)) mat(k,1350) = -rxt(k,407)*y(k,43) - mat(k,963) = -rxt(k,416)*y(k,43) - mat(k,1458) = -rxt(k,453)*y(k,43) - mat(k,889) = 2.000_r8*rxt(k,422)*y(k,101) - mat(k,963) = mat(k,963) + 2.000_r8*rxt(k,421)*y(k,133) - mat(k,102) = rxt(k,557)*y(k,139) - mat(k,2031) = rxt(k,557)*y(k,82) - mat(k,324) = -(rxt(k,499)*y(k,70) + rxt(k,500)*y(k,133) + (rxt(k,505) & - + rxt(k,506)) * y(k,71)) - mat(k,1358) = -rxt(k,499)*y(k,45) - mat(k,969) = -rxt(k,500)*y(k,45) - mat(k,777) = -(rxt(k,505) + rxt(k,506)) * y(k,45) - mat(k,581) = rxt(k,486)*y(k,17) + rxt(k,487)*y(k,101) - mat(k,734) = rxt(k,486)*y(k,3) - mat(k,892) = rxt(k,487)*y(k,3) - mat(k,80) = -(rxt(k,522)*y(k,133) + rxt(k,527)*y(k,71)) - mat(k,951) = -rxt(k,522)*y(k,46) - mat(k,768) = -rxt(k,527)*y(k,46) - mat(k,90) = -(rxt(k,523)*y(k,133) + rxt(k,528)*y(k,71)) - mat(k,953) = -rxt(k,523)*y(k,47) - mat(k,770) = -rxt(k,528)*y(k,47) - mat(k,116) = -(rxt(k,524)*y(k,133) + rxt(k,529)*y(k,71)) - mat(k,955) = -rxt(k,524)*y(k,48) - mat(k,772) = -rxt(k,529)*y(k,48) - mat(k,2029) = -(rxt(k,106)*y(k,91) + rxt(k,108)*y(k,90) + rxt(k,130)*y(k,97) & + mat(k,965) = -rxt(k,416)*y(k,43) + mat(k,1452) = -rxt(k,455)*y(k,43) + mat(k,891) = 2.000_r8*rxt(k,422)*y(k,101) + mat(k,965) = mat(k,965) + 2.000_r8*rxt(k,421)*y(k,133) + mat(k,102) = rxt(k,559)*y(k,139) + mat(k,2034) = rxt(k,559)*y(k,82) + mat(k,316) = -(rxt(k,501)*y(k,70) + rxt(k,502)*y(k,133) + (rxt(k,507) & + + rxt(k,508)) * y(k,71)) + mat(k,1357) = -rxt(k,501)*y(k,45) + mat(k,971) = -rxt(k,502)*y(k,45) + mat(k,779) = -(rxt(k,507) + rxt(k,508)) * y(k,45) + mat(k,583) = rxt(k,488)*y(k,17) + rxt(k,489)*y(k,101) + mat(k,736) = rxt(k,488)*y(k,3) + mat(k,894) = rxt(k,489)*y(k,3) + mat(k,80) = -(rxt(k,524)*y(k,133) + rxt(k,529)*y(k,71)) + mat(k,953) = -rxt(k,524)*y(k,46) + mat(k,770) = -rxt(k,529)*y(k,46) + mat(k,90) = -(rxt(k,525)*y(k,133) + rxt(k,530)*y(k,71)) + mat(k,955) = -rxt(k,525)*y(k,47) + mat(k,772) = -rxt(k,530)*y(k,47) + mat(k,116) = -(rxt(k,526)*y(k,133) + rxt(k,531)*y(k,71)) + mat(k,957) = -rxt(k,526)*y(k,48) + mat(k,774) = -rxt(k,531)*y(k,48) + mat(k,2032) = -(rxt(k,106)*y(k,91) + rxt(k,108)*y(k,90) + rxt(k,130)*y(k,97) & + (rxt(k,276) + rxt(k,298)) * y(k,113) + rxt(k,289)*y(k,111) & + rxt(k,318)*y(k,127) + rxt(k,345)*y(k,134) + rxt(k,356) & - *y(k,135) + rxt(k,470)*y(k,70) + rxt(k,471)*y(k,133) + (rxt(k,482) & - + rxt(k,483)) * y(k,71) + (rxt(k,563) + rxt(k,569) + rxt(k,574) & - ) * y(k,54) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,29) & - + (rxt(k,570) + rxt(k,575)) * y(k,53)) - mat(k,548) = -rxt(k,106)*y(k,49) - mat(k,828) = -rxt(k,108)*y(k,49) - mat(k,860) = -rxt(k,130)*y(k,49) - mat(k,885) = -(rxt(k,276) + rxt(k,298)) * y(k,49) - mat(k,947) = -rxt(k,289)*y(k,49) - mat(k,1577) = -rxt(k,318)*y(k,49) - mat(k,1865) = -rxt(k,345)*y(k,49) - mat(k,1901) = -rxt(k,356)*y(k,49) - mat(k,1403) = -rxt(k,470)*y(k,49) - mat(k,1004) = -rxt(k,471)*y(k,49) - mat(k,807) = -(rxt(k,482) + rxt(k,483)) * y(k,49) - mat(k,338) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,49) - mat(k,367) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,49) - mat(k,315) = -(rxt(k,570) + rxt(k,575)) * y(k,49) - mat(k,191) = rxt(k,513)*y(k,25) - mat(k,756) = rxt(k,450)*y(k,25) - mat(k,228) = rxt(k,515)*y(k,25) - mat(k,153) = 2.000_r8*rxt(k,518)*y(k,25) - mat(k,429) = rxt(k,451)*y(k,25) - mat(k,166) = rxt(k,520)*y(k,25) - mat(k,1500) = rxt(k,513)*y(k,16) + rxt(k,450)*y(k,17) + rxt(k,515)*y(k,18) & - + 2.000_r8*rxt(k,518)*y(k,20) + rxt(k,451)*y(k,23) + rxt(k,520) & - *y(k,24) + rxt(k,452)*y(k,41) + rxt(k,453)*y(k,43) + rxt(k,472) & - *y(k,54) + rxt(k,454)*y(k,101) - mat(k,1125) = rxt(k,469)*y(k,133) - mat(k,1784) = rxt(k,105)*y(k,90) - mat(k,665) = rxt(k,452)*y(k,25) - mat(k,219) = rxt(k,453)*y(k,25) - mat(k,1541) = rxt(k,109)*y(k,90) + rxt(k,299)*y(k,116) - mat(k,338) = mat(k,338) + rxt(k,472)*y(k,25) - mat(k,828) = mat(k,828) + rxt(k,105)*y(k,40) + rxt(k,109)*y(k,51) - mat(k,532) = rxt(k,187)*y(k,103) + (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,105) + ( & + *y(k,135) + rxt(k,472)*y(k,70) + rxt(k,473)*y(k,133) + (rxt(k,484) & + + rxt(k,485)) * y(k,71) + (rxt(k,565) + rxt(k,571) + rxt(k,576) & + ) * y(k,54) + (rxt(k,570) + rxt(k,575) + rxt(k,580)) * y(k,29) & + + (rxt(k,572) + rxt(k,577)) * y(k,53)) + mat(k,550) = -rxt(k,106)*y(k,49) + mat(k,830) = -rxt(k,108)*y(k,49) + mat(k,862) = -rxt(k,130)*y(k,49) + mat(k,887) = -(rxt(k,276) + rxt(k,298)) * y(k,49) + mat(k,949) = -rxt(k,289)*y(k,49) + mat(k,1571) = -rxt(k,318)*y(k,49) + mat(k,1858) = -rxt(k,345)*y(k,49) + mat(k,1894) = -rxt(k,356)*y(k,49) + mat(k,1403) = -rxt(k,472)*y(k,49) + mat(k,1006) = -rxt(k,473)*y(k,49) + mat(k,809) = -(rxt(k,484) + rxt(k,485)) * y(k,49) + mat(k,330) = -(rxt(k,565) + rxt(k,571) + rxt(k,576)) * y(k,49) + mat(k,369) = -(rxt(k,570) + rxt(k,575) + rxt(k,580)) * y(k,49) + mat(k,307) = -(rxt(k,572) + rxt(k,577)) * y(k,49) + mat(k,191) = rxt(k,515)*y(k,25) + mat(k,758) = rxt(k,452)*y(k,25) + mat(k,228) = rxt(k,517)*y(k,25) + mat(k,153) = 2.000_r8*rxt(k,520)*y(k,25) + mat(k,431) = rxt(k,453)*y(k,25) + mat(k,166) = rxt(k,522)*y(k,25) + mat(k,1494) = rxt(k,515)*y(k,16) + rxt(k,452)*y(k,17) + rxt(k,517)*y(k,18) & + + 2.000_r8*rxt(k,520)*y(k,20) + rxt(k,453)*y(k,23) + rxt(k,522) & + *y(k,24) + rxt(k,454)*y(k,41) + rxt(k,455)*y(k,43) + rxt(k,474) & + *y(k,54) + rxt(k,456)*y(k,101) + mat(k,1127) = rxt(k,471)*y(k,133) + mat(k,1777) = rxt(k,105)*y(k,90) + mat(k,667) = rxt(k,454)*y(k,25) + mat(k,219) = rxt(k,455)*y(k,25) + mat(k,1535) = rxt(k,109)*y(k,90) + rxt(k,299)*y(k,116) + mat(k,330) = mat(k,330) + rxt(k,474)*y(k,25) + mat(k,830) = mat(k,830) + rxt(k,105)*y(k,40) + rxt(k,109)*y(k,51) + mat(k,534) = rxt(k,187)*y(k,103) + (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,105) + ( & + rxt(k,169)+2.000_r8*rxt(k,268))*y(k,107) + rxt(k,240)*y(k,118) & + rxt(k,222)*y(k,119) + rxt(k,205)*y(k,122) + rxt(k,257) & *y(k,128) - mat(k,920) = rxt(k,454)*y(k,25) - mat(k,1259) = rxt(k,187)*y(k,92) + rxt(k,198)*y(k,116) - mat(k,1708) = (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,92) + rxt(k,163)*y(k,116) - mat(k,1665) = (rxt(k,169)+2.000_r8*rxt(k,268))*y(k,92) + rxt(k,180)*y(k,116) - mat(k,578) = rxt(k,299)*y(k,51) + rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) & + mat(k,922) = rxt(k,456)*y(k,25) + mat(k,1659) = rxt(k,187)*y(k,92) + rxt(k,198)*y(k,116) + mat(k,1301) = (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,92) + rxt(k,163)*y(k,116) + mat(k,1446) = (rxt(k,169)+2.000_r8*rxt(k,268))*y(k,92) + rxt(k,180)*y(k,116) + mat(k,580) = rxt(k,299)*y(k,51) + rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) & + rxt(k,180)*y(k,107) + rxt(k,251)*y(k,118) + rxt(k,233) & *y(k,119) + rxt(k,216)*y(k,122) + rxt(k,157)*y(k,128) - mat(k,1173) = rxt(k,240)*y(k,92) + rxt(k,251)*y(k,116) - mat(k,1216) = rxt(k,222)*y(k,92) + rxt(k,233)*y(k,116) + mat(k,1174) = rxt(k,240)*y(k,92) + rxt(k,251)*y(k,116) + mat(k,1217) = rxt(k,222)*y(k,92) + rxt(k,233)*y(k,116) mat(k,1343) = rxt(k,205)*y(k,92) + rxt(k,216)*y(k,116) - mat(k,1622) = rxt(k,257)*y(k,92) + rxt(k,157)*y(k,116) - mat(k,1004) = mat(k,1004) + rxt(k,469)*y(k,28) - mat(k,413) = rxt(k,507)*y(k,39) - mat(k,340) = rxt(k,507)*y(k,23) + rxt(k,508)*y(k,41) + rxt(k,510)*y(k,51) & - + rxt(k,509)*y(k,139) - mat(k,643) = rxt(k,508)*y(k,39) - mat(k,1502) = rxt(k,510)*y(k,39) - mat(k,2035) = rxt(k,509)*y(k,39) - mat(k,1529) = -(rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) + rxt(k,290)*y(k,111) & + mat(k,1616) = rxt(k,257)*y(k,92) + rxt(k,157)*y(k,116) + mat(k,1006) = mat(k,1006) + rxt(k,471)*y(k,28) + mat(k,415) = rxt(k,509)*y(k,39) + mat(k,332) = rxt(k,509)*y(k,23) + rxt(k,510)*y(k,41) + rxt(k,512)*y(k,51) & + + rxt(k,511)*y(k,139) + mat(k,645) = rxt(k,510)*y(k,39) + mat(k,1496) = rxt(k,512)*y(k,39) + mat(k,2038) = rxt(k,511)*y(k,39) + mat(k,1523) = -(rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) + rxt(k,290)*y(k,111) & + rxt(k,295)*y(k,115) + rxt(k,299)*y(k,116) + rxt(k,300) & - *y(k,113) + rxt(k,319)*y(k,127) + rxt(k,357)*y(k,135) + rxt(k,447) & - *y(k,133) + rxt(k,510)*y(k,39)) - mat(k,821) = -rxt(k,109)*y(k,51) - mat(k,1025) = -rxt(k,124)*y(k,51) - mat(k,937) = -rxt(k,290)*y(k,51) - mat(k,699) = -rxt(k,295)*y(k,51) - mat(k,571) = -rxt(k,299)*y(k,51) - mat(k,876) = -rxt(k,300)*y(k,51) - mat(k,1565) = -rxt(k,319)*y(k,51) - mat(k,1889) = -rxt(k,357)*y(k,51) - mat(k,994) = -rxt(k,447)*y(k,51) - mat(k,346) = -rxt(k,510)*y(k,51) - mat(k,748) = rxt(k,530)*y(k,64) - mat(k,364) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,49) - mat(k,129) = rxt(k,541)*y(k,64) - mat(k,2017) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,29) + rxt(k,298) & + *y(k,113) + rxt(k,319)*y(k,127) + rxt(k,357)*y(k,135) + rxt(k,446) & + *y(k,133) + rxt(k,512)*y(k,39)) + mat(k,823) = -rxt(k,109)*y(k,51) + mat(k,1027) = -rxt(k,124)*y(k,51) + mat(k,940) = -rxt(k,290)*y(k,51) + mat(k,701) = -rxt(k,295)*y(k,51) + mat(k,573) = -rxt(k,299)*y(k,51) + mat(k,879) = -rxt(k,300)*y(k,51) + mat(k,1559) = -rxt(k,319)*y(k,51) + mat(k,1882) = -rxt(k,357)*y(k,51) + mat(k,994) = -rxt(k,446)*y(k,51) + mat(k,338) = -rxt(k,512)*y(k,51) + mat(k,749) = rxt(k,532)*y(k,64) + mat(k,366) = (rxt(k,570)+rxt(k,575)+rxt(k,580))*y(k,49) + mat(k,129) = rxt(k,543)*y(k,64) + mat(k,2020) = (rxt(k,570)+rxt(k,575)+rxt(k,580))*y(k,29) + rxt(k,298) & *y(k,113) - mat(k,406) = rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293)*y(k,114) & + mat(k,396) = rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293)*y(k,114) & + rxt(k,297)*y(k,115) - mat(k,1820) = rxt(k,446)*y(k,133) - mat(k,1736) = rxt(k,530)*y(k,17) + rxt(k,541)*y(k,35) - mat(k,1247) = rxt(k,188)*y(k,113) + 2.000_r8*rxt(k,185)*y(k,117) - mat(k,108) = rxt(k,140)*y(k,139) - mat(k,1696) = rxt(k,142)*y(k,58) + (rxt(k,192)+rxt(k,264))*y(k,113) + ( & + mat(k,1813) = rxt(k,445)*y(k,133) + mat(k,1729) = rxt(k,532)*y(k,17) + rxt(k,543)*y(k,35) + mat(k,1647) = rxt(k,188)*y(k,113) + 2.000_r8*rxt(k,185)*y(k,117) + mat(k,109) = rxt(k,140)*y(k,139) + mat(k,1289) = rxt(k,142)*y(k,58) + (rxt(k,192)+rxt(k,264))*y(k,113) + ( & + 2.000_r8*rxt(k,146)+2.000_r8*rxt(k,269))*y(k,117) - mat(k,112) = rxt(k,143)*y(k,139) - mat(k,1653) = rxt(k,145)*y(k,58) + (rxt(k,171)+rxt(k,266))*y(k,113) + ( & + mat(k,113) = rxt(k,143)*y(k,139) + mat(k,1434) = rxt(k,145)*y(k,58) + (rxt(k,171)+rxt(k,266))*y(k,113) + ( & + 2.000_r8*rxt(k,167)+2.000_r8*rxt(k,270))*y(k,117) - mat(k,876) = mat(k,876) + rxt(k,298)*y(k,49) + rxt(k,188)*y(k,103) + ( & + mat(k,879) = mat(k,879) + rxt(k,298)*y(k,49) + rxt(k,188)*y(k,103) + ( & + rxt(k,192)+rxt(k,264))*y(k,105) + (rxt(k,171)+rxt(k,266)) & *y(k,107) - mat(k,634) = rxt(k,293)*y(k,58) - mat(k,699) = mat(k,699) + rxt(k,297)*y(k,58) - mat(k,616) = 2.000_r8*rxt(k,185)*y(k,103) + (2.000_r8*rxt(k,146) & + mat(k,636) = rxt(k,293)*y(k,58) + mat(k,701) = mat(k,701) + rxt(k,297)*y(k,58) + mat(k,618) = 2.000_r8*rxt(k,185)*y(k,103) + (2.000_r8*rxt(k,146) & +2.000_r8*rxt(k,269))*y(k,105) + (2.000_r8*rxt(k,167) & +2.000_r8*rxt(k,270))*y(k,107) + rxt(k,238)*y(k,118) & + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) + rxt(k,255) & *y(k,128) - mat(k,1161) = rxt(k,238)*y(k,117) - mat(k,1204) = rxt(k,220)*y(k,117) + mat(k,1162) = rxt(k,238)*y(k,117) + mat(k,1205) = rxt(k,220)*y(k,117) mat(k,1331) = rxt(k,202)*y(k,117) - mat(k,1610) = rxt(k,255)*y(k,117) - mat(k,994) = mat(k,994) + rxt(k,446)*y(k,63) - mat(k,2077) = rxt(k,140)*y(k,104) + rxt(k,143)*y(k,106) - mat(k,179) = -(rxt(k,423)*y(k,133)) - mat(k,961) = -rxt(k,423)*y(k,52) - mat(k,1787) = rxt(k,444)*y(k,101) - mat(k,888) = rxt(k,444)*y(k,63) - mat(k,309) = -(rxt(k,501)*y(k,70) + (rxt(k,570) + rxt(k,575)) * y(k,49)) - mat(k,1356) = -rxt(k,501)*y(k,53) - mat(k,1989) = -(rxt(k,570) + rxt(k,575)) * y(k,53) - mat(k,711) = rxt(k,493)*y(k,101) - mat(k,891) = rxt(k,493)*y(k,5) - mat(k,333) = -(rxt(k,472)*y(k,25) + rxt(k,473)*y(k,70) + rxt(k,474)*y(k,133) & - + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,49)) - mat(k,1461) = -rxt(k,472)*y(k,54) - mat(k,1359) = -rxt(k,473)*y(k,54) - mat(k,970) = -rxt(k,474)*y(k,54) - mat(k,1990) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,54) - mat(k,1086) = rxt(k,461)*y(k,101) - mat(k,358) = rxt(k,466)*y(k,133) - mat(k,893) = rxt(k,461)*y(k,28) - mat(k,970) = mat(k,970) + rxt(k,466)*y(k,29) + mat(k,1604) = rxt(k,255)*y(k,117) + mat(k,994) = mat(k,994) + rxt(k,445)*y(k,63) + mat(k,2080) = rxt(k,140)*y(k,104) + rxt(k,143)*y(k,106) + mat(k,179) = -(rxt(k,424)*y(k,133)) + mat(k,963) = -rxt(k,424)*y(k,52) + mat(k,1780) = rxt(k,443)*y(k,101) + mat(k,890) = rxt(k,443)*y(k,63) + mat(k,301) = -(rxt(k,503)*y(k,70) + (rxt(k,572) + rxt(k,577)) * y(k,49)) + mat(k,1355) = -rxt(k,503)*y(k,53) + mat(k,1992) = -(rxt(k,572) + rxt(k,577)) * y(k,53) + mat(k,713) = rxt(k,495)*y(k,101) + mat(k,893) = rxt(k,495)*y(k,5) + mat(k,325) = -(rxt(k,474)*y(k,25) + rxt(k,475)*y(k,70) + rxt(k,476)*y(k,133) & + + (rxt(k,565) + rxt(k,571) + rxt(k,576)) * y(k,49)) + mat(k,1455) = -rxt(k,474)*y(k,54) + mat(k,1358) = -rxt(k,475)*y(k,54) + mat(k,972) = -rxt(k,476)*y(k,54) + mat(k,1993) = -(rxt(k,565) + rxt(k,571) + rxt(k,576)) * y(k,54) + mat(k,1088) = rxt(k,463)*y(k,101) + mat(k,360) = rxt(k,468)*y(k,133) + mat(k,895) = rxt(k,463)*y(k,28) + mat(k,972) = mat(k,972) + rxt(k,468)*y(k,29) mat(k,278) = -(rxt(k,340)*y(k,133)) - mat(k,967) = -rxt(k,340)*y(k,55) - mat(k,1988) = rxt(k,289)*y(k,111) - mat(k,1503) = rxt(k,290)*y(k,111) - mat(k,1944) = rxt(k,349)*y(k,133) - mat(k,922) = rxt(k,289)*y(k,49) + rxt(k,290)*y(k,51) + mat(k,969) = -rxt(k,340)*y(k,55) + mat(k,1991) = rxt(k,289)*y(k,111) + mat(k,1497) = rxt(k,290)*y(k,111) + mat(k,1945) = rxt(k,349)*y(k,133) + mat(k,924) = rxt(k,289)*y(k,49) + rxt(k,290)*y(k,51) mat(k,174) = rxt(k,305)*y(k,139) - mat(k,967) = mat(k,967) + rxt(k,349)*y(k,62) - mat(k,2041) = rxt(k,305)*y(k,120) - mat(k,446) = -(rxt(k,426)*y(k,62) + (rxt(k,427) + rxt(k,428) + rxt(k,429) & - ) * y(k,63) + rxt(k,430)*y(k,72) + rxt(k,438)*y(k,133) + rxt(k,591) & + mat(k,969) = mat(k,969) + rxt(k,349)*y(k,62) + mat(k,2044) = rxt(k,305)*y(k,120) + mat(k,448) = -(rxt(k,426)*y(k,62) + (rxt(k,427) + rxt(k,428) + rxt(k,429) & + ) * y(k,63) + rxt(k,437)*y(k,133) + rxt(k,451)*y(k,72) + rxt(k,593) & *y(k,128)) - mat(k,1947) = -rxt(k,426)*y(k,56) - mat(k,1793) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,56) - mat(k,1416) = -rxt(k,430)*y(k,56) - mat(k,976) = -rxt(k,438)*y(k,56) - mat(k,1580) = -rxt(k,591)*y(k,56) - mat(k,1365) = rxt(k,424)*y(k,109) + rxt(k,588)*y(k,124) - mat(k,1416) = mat(k,1416) + rxt(k,589)*y(k,124) - mat(k,1053) = 1.100_r8*rxt(k,584)*y(k,110) + .200_r8*rxt(k,582)*y(k,118) - mat(k,303) = rxt(k,424)*y(k,70) - mat(k,233) = 1.100_r8*rxt(k,584)*y(k,98) - mat(k,1132) = .200_r8*rxt(k,582)*y(k,98) - mat(k,319) = rxt(k,588)*y(k,70) + rxt(k,589)*y(k,72) - mat(k,98) = -((rxt(k,442) + rxt(k,443)) * y(k,71)) - mat(k,771) = -(rxt(k,442) + rxt(k,443)) * y(k,57) - mat(k,443) = rxt(k,427)*y(k,63) - mat(k,1786) = rxt(k,427)*y(k,56) - mat(k,401) = -(rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293) & + mat(k,1950) = -rxt(k,426)*y(k,56) + mat(k,1786) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,56) + mat(k,978) = -rxt(k,437)*y(k,56) + mat(k,1907) = -rxt(k,451)*y(k,56) + mat(k,1574) = -rxt(k,593)*y(k,56) + mat(k,1365) = rxt(k,590)*y(k,124) + mat(k,1907) = mat(k,1907) + rxt(k,591)*y(k,124) + mat(k,1055) = rxt(k,448)*y(k,109) + 1.100_r8*rxt(k,586)*y(k,110) & + + .200_r8*rxt(k,584)*y(k,118) + mat(k,345) = rxt(k,448)*y(k,98) + mat(k,233) = 1.100_r8*rxt(k,586)*y(k,98) + mat(k,1133) = .200_r8*rxt(k,584)*y(k,98) + mat(k,311) = rxt(k,590)*y(k,70) + rxt(k,591)*y(k,72) + mat(k,98) = -((rxt(k,441) + rxt(k,442)) * y(k,71)) + mat(k,773) = -(rxt(k,441) + rxt(k,442)) * y(k,57) + mat(k,445) = rxt(k,427)*y(k,63) + mat(k,1779) = rxt(k,427)*y(k,56) + mat(k,389) = -(rxt(k,142)*y(k,105) + rxt(k,145)*y(k,107) + rxt(k,293) & *y(k,114) + rxt(k,297)*y(k,115)) - mat(k,1668) = -rxt(k,142)*y(k,58) - mat(k,1625) = -rxt(k,145)*y(k,58) - mat(k,623) = -rxt(k,293)*y(k,58) - mat(k,688) = -rxt(k,297)*y(k,58) - mat(k,1792) = rxt(k,445)*y(k,64) - mat(k,1713) = rxt(k,445)*y(k,63) + mat(k,1261) = -rxt(k,142)*y(k,58) + mat(k,1406) = -rxt(k,145)*y(k,58) + mat(k,625) = -rxt(k,293)*y(k,58) + mat(k,690) = -rxt(k,297)*y(k,58) + mat(k,1785) = rxt(k,444)*y(k,64) + mat(k,1706) = rxt(k,444)*y(k,63) end do end subroutine nlnmat03 subroutine nlnmat04( avec_len, mat, y, rxt ) @@ -726,65 +727,67 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1983) = -((rxt(k,111) + rxt(k,112)) * y(k,93) + (rxt(k,122) + rxt(k,123) & + mat(k,1986) = -((rxt(k,111) + rxt(k,112)) * y(k,93) + (rxt(k,122) + rxt(k,123) & ) * y(k,96) + rxt(k,136)*y(k,135) + (rxt(k,272) + rxt(k,279) & ) * y(k,130) + rxt(k,280)*y(k,94) + rxt(k,349)*y(k,133) & - + rxt(k,426)*y(k,56) + rxt(k,435)*y(k,64) + rxt(k,439)*y(k,101) & - + rxt(k,440)*y(k,73) + rxt(k,441)*y(k,70) + rxt(k,462)*y(k,28) & - + rxt(k,494)*y(k,5) + rxt(k,534)*y(k,21) + rxt(k,593)*y(k,128)) - mat(k,376) = -(rxt(k,111) + rxt(k,112)) * y(k,62) - mat(k,686) = -(rxt(k,122) + rxt(k,123)) * y(k,62) - mat(k,1900) = -rxt(k,136)*y(k,62) - mat(k,608) = -(rxt(k,272) + rxt(k,279)) * y(k,62) - mat(k,1036) = -rxt(k,280)*y(k,62) - mat(k,1003) = -rxt(k,349)*y(k,62) - mat(k,458) = -rxt(k,426)*y(k,62) - mat(k,1747) = -rxt(k,435)*y(k,62) - mat(k,919) = -rxt(k,439)*y(k,62) - mat(k,1941) = -rxt(k,440)*y(k,62) - mat(k,1402) = -rxt(k,441)*y(k,62) - mat(k,1124) = -rxt(k,462)*y(k,62) - mat(k,730) = -rxt(k,494)*y(k,62) - mat(k,441) = -rxt(k,534)*y(k,62) - mat(k,1621) = -rxt(k,593)*y(k,62) - mat(k,1783) = rxt(k,287)*y(k,111) + rxt(k,309)*y(k,122) - mat(k,458) = mat(k,458) + 2.000_r8*rxt(k,428)*y(k,63) + rxt(k,430)*y(k,72) & - + rxt(k,438)*y(k,133) - mat(k,101) = 2.000_r8*rxt(k,442)*y(k,71) - mat(k,1831) = 2.000_r8*rxt(k,428)*y(k,56) + rxt(k,431)*y(k,70) + rxt(k,551) & + + rxt(k,425)*y(k,109) + rxt(k,426)*y(k,56) + rxt(k,434)*y(k,64) & + + rxt(k,438)*y(k,101) + rxt(k,439)*y(k,73) + rxt(k,440)*y(k,70) & + + rxt(k,464)*y(k,28) + rxt(k,496)*y(k,5) + rxt(k,536)*y(k,21) & + + rxt(k,595)*y(k,128)) + mat(k,378) = -(rxt(k,111) + rxt(k,112)) * y(k,62) + mat(k,688) = -(rxt(k,122) + rxt(k,123)) * y(k,62) + mat(k,1893) = -rxt(k,136)*y(k,62) + mat(k,610) = -(rxt(k,272) + rxt(k,279)) * y(k,62) + mat(k,1038) = -rxt(k,280)*y(k,62) + mat(k,1005) = -rxt(k,349)*y(k,62) + mat(k,351) = -rxt(k,425)*y(k,62) + mat(k,460) = -rxt(k,426)*y(k,62) + mat(k,1740) = -rxt(k,434)*y(k,62) + mat(k,921) = -rxt(k,438)*y(k,62) + mat(k,1257) = -rxt(k,439)*y(k,62) + mat(k,1402) = -rxt(k,440)*y(k,62) + mat(k,1126) = -rxt(k,464)*y(k,62) + mat(k,732) = -rxt(k,496)*y(k,62) + mat(k,443) = -rxt(k,536)*y(k,62) + mat(k,1615) = -rxt(k,595)*y(k,62) + mat(k,1776) = rxt(k,287)*y(k,111) + rxt(k,309)*y(k,122) + mat(k,460) = mat(k,460) + 2.000_r8*rxt(k,428)*y(k,63) + rxt(k,451)*y(k,72) & + + rxt(k,437)*y(k,133) + mat(k,101) = 2.000_r8*rxt(k,441)*y(k,71) + mat(k,1824) = 2.000_r8*rxt(k,428)*y(k,56) + rxt(k,430)*y(k,70) + rxt(k,553) & *y(k,80) + rxt(k,291)*y(k,111) - mat(k,1402) = mat(k,1402) + rxt(k,431)*y(k,63) - mat(k,806) = 2.000_r8*rxt(k,442)*y(k,57) - mat(k,1451) = rxt(k,430)*y(k,56) + rxt(k,425)*y(k,109) - mat(k,488) = rxt(k,551)*y(k,63) - mat(k,827) = rxt(k,248)*y(k,118) + rxt(k,230)*y(k,119) + rxt(k,212)*y(k,122) - mat(k,547) = rxt(k,252)*y(k,118) + rxt(k,234)*y(k,119) + rxt(k,217)*y(k,122) - mat(k,531) = rxt(k,240)*y(k,118) + rxt(k,222)*y(k,119) + rxt(k,205)*y(k,122) - mat(k,1036) = mat(k,1036) + rxt(k,239)*y(k,118) + rxt(k,221)*y(k,119) & + mat(k,1402) = mat(k,1402) + rxt(k,430)*y(k,63) + mat(k,808) = 2.000_r8*rxt(k,441)*y(k,57) + mat(k,1942) = rxt(k,451)*y(k,56) + rxt(k,449)*y(k,109) + mat(k,490) = rxt(k,553)*y(k,63) + mat(k,829) = rxt(k,248)*y(k,118) + rxt(k,230)*y(k,119) + rxt(k,212)*y(k,122) + mat(k,549) = rxt(k,252)*y(k,118) + rxt(k,234)*y(k,119) + rxt(k,217)*y(k,122) + mat(k,533) = rxt(k,240)*y(k,118) + rxt(k,222)*y(k,119) + rxt(k,205)*y(k,122) + mat(k,1038) = mat(k,1038) + rxt(k,239)*y(k,118) + rxt(k,221)*y(k,119) & + rxt(k,204)*y(k,122) - mat(k,517) = rxt(k,246)*y(k,118) + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) - mat(k,686) = mat(k,686) + rxt(k,249)*y(k,118) + rxt(k,231)*y(k,119) & + mat(k,519) = rxt(k,246)*y(k,118) + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) + mat(k,688) = mat(k,688) + rxt(k,249)*y(k,118) + rxt(k,231)*y(k,119) & + rxt(k,213)*y(k,122) - mat(k,859) = rxt(k,244)*y(k,118) + rxt(k,227)*y(k,119) + rxt(k,209)*y(k,122) - mat(k,1079) = rxt(k,303)*y(k,119) + rxt(k,304)*y(k,120) + rxt(k,306)*y(k,121) & + mat(k,861) = rxt(k,244)*y(k,118) + rxt(k,227)*y(k,119) + rxt(k,209)*y(k,122) + mat(k,1081) = rxt(k,303)*y(k,119) + rxt(k,304)*y(k,120) + rxt(k,306)*y(k,121) & + rxt(k,308)*y(k,122) + rxt(k,384)*y(k,123) - mat(k,502) = rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207)*y(k,122) - mat(k,307) = rxt(k,425)*y(k,72) - mat(k,946) = rxt(k,287)*y(k,40) + rxt(k,291)*y(k,63) + rxt(k,254)*y(k,118) & + mat(k,504) = rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207)*y(k,122) + mat(k,351) = mat(k,351) + rxt(k,449)*y(k,72) + mat(k,948) = rxt(k,287)*y(k,40) + rxt(k,291)*y(k,63) + rxt(k,254)*y(k,118) & + rxt(k,237)*y(k,119) + rxt(k,219)*y(k,122) - mat(k,562) = rxt(k,250)*y(k,118) + rxt(k,232)*y(k,119) + rxt(k,215)*y(k,122) - mat(k,884) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122) - mat(k,641) = rxt(k,253)*y(k,118) + rxt(k,235)*y(k,119) + rxt(k,218)*y(k,122) - mat(k,706) = rxt(k,245)*y(k,118) + rxt(k,228)*y(k,119) + rxt(k,210)*y(k,122) - mat(k,577) = rxt(k,251)*y(k,118) + rxt(k,233)*y(k,119) + rxt(k,216)*y(k,122) - mat(k,621) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) - mat(k,1172) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92) & + mat(k,564) = rxt(k,250)*y(k,118) + rxt(k,232)*y(k,119) + rxt(k,215)*y(k,122) + mat(k,886) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122) + mat(k,643) = rxt(k,253)*y(k,118) + rxt(k,235)*y(k,119) + rxt(k,218)*y(k,122) + mat(k,708) = rxt(k,245)*y(k,118) + rxt(k,228)*y(k,119) + rxt(k,210)*y(k,122) + mat(k,579) = rxt(k,251)*y(k,118) + rxt(k,233)*y(k,119) + rxt(k,216)*y(k,122) + mat(k,623) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) + mat(k,1173) = rxt(k,248)*y(k,90) + rxt(k,252)*y(k,91) + rxt(k,240)*y(k,92) & + rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) + rxt(k,249)*y(k,96) & + rxt(k,244)*y(k,97) + rxt(k,242)*y(k,100) + rxt(k,254)*y(k,111) & + rxt(k,250)*y(k,112) + rxt(k,241)*y(k,113) + rxt(k,253) & *y(k,114) + rxt(k,245)*y(k,115) + rxt(k,251)*y(k,116) & + rxt(k,238)*y(k,117) + rxt(k,243)*y(k,127) - mat(k,1215) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92) & + mat(k,1216) = rxt(k,230)*y(k,90) + rxt(k,234)*y(k,91) + rxt(k,222)*y(k,92) & + rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) & + rxt(k,227)*y(k,97) + rxt(k,303)*y(k,98) + rxt(k,224)*y(k,100) & + rxt(k,237)*y(k,111) + rxt(k,232)*y(k,112) + rxt(k,223) & @@ -801,207 +804,208 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) + rxt(k,210)*y(k,115) + rxt(k,216)*y(k,116) + rxt(k,202) & *y(k,117) + rxt(k,208)*y(k,127) mat(k,262) = rxt(k,384)*y(k,98) - mat(k,1576) = rxt(k,243)*y(k,118) + rxt(k,226)*y(k,119) + rxt(k,208)*y(k,122) - mat(k,1003) = mat(k,1003) + rxt(k,438)*y(k,56) - mat(k,1827) = -(rxt(k,110)*y(k,90) + (rxt(k,120) + rxt(k,121)) * y(k,96) & + mat(k,1570) = rxt(k,243)*y(k,118) + rxt(k,226)*y(k,119) + rxt(k,208)*y(k,122) + mat(k,1005) = mat(k,1005) + rxt(k,437)*y(k,56) + mat(k,1820) = -(rxt(k,110)*y(k,90) + (rxt(k,120) + rxt(k,121)) * y(k,96) & + (rxt(k,277) + rxt(k,278)) * y(k,130) + rxt(k,281)*y(k,94) & + rxt(k,291)*y(k,111) + rxt(k,320)*y(k,127) + rxt(k,346) & *y(k,134) + rxt(k,359)*y(k,135) + (rxt(k,427) + rxt(k,428) & - + rxt(k,429)) * y(k,56) + (rxt(k,431) + rxt(k,433)) * y(k,70) & - + rxt(k,432)*y(k,73) + rxt(k,444)*y(k,101) + rxt(k,445)*y(k,64) & - + rxt(k,446)*y(k,133) + rxt(k,464)*y(k,28) + rxt(k,495)*y(k,5) & - + rxt(k,551)*y(k,80)) - mat(k,826) = -rxt(k,110)*y(k,63) - mat(k,685) = -(rxt(k,120) + rxt(k,121)) * y(k,63) - mat(k,604) = -(rxt(k,277) + rxt(k,278)) * y(k,63) - mat(k,1032) = -rxt(k,281)*y(k,63) - mat(k,943) = -rxt(k,291)*y(k,63) - mat(k,1572) = -rxt(k,320)*y(k,63) - mat(k,1860) = -rxt(k,346)*y(k,63) - mat(k,1896) = -rxt(k,359)*y(k,63) - mat(k,457) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,63) - mat(k,1398) = -(rxt(k,431) + rxt(k,433)) * y(k,63) - mat(k,1937) = -rxt(k,432)*y(k,63) - mat(k,915) = -rxt(k,444)*y(k,63) - mat(k,1743) = -rxt(k,445)*y(k,63) - mat(k,999) = -rxt(k,446)*y(k,63) - mat(k,1120) = -rxt(k,464)*y(k,63) - mat(k,728) = -rxt(k,495)*y(k,63) - mat(k,486) = -rxt(k,551)*y(k,63) - mat(k,728) = mat(k,728) + rxt(k,494)*y(k,62) - mat(k,440) = rxt(k,534)*y(k,62) - mat(k,1495) = rxt(k,285)*y(k,111) - mat(k,1120) = mat(k,1120) + rxt(k,462)*y(k,62) - mat(k,184) = rxt(k,423)*y(k,133) + + rxt(k,429)) * y(k,56) + (rxt(k,430) + rxt(k,432)) * y(k,70) & + + rxt(k,431)*y(k,73) + rxt(k,443)*y(k,101) + rxt(k,444)*y(k,64) & + + rxt(k,445)*y(k,133) + rxt(k,466)*y(k,28) + rxt(k,497)*y(k,5) & + + rxt(k,553)*y(k,80)) + mat(k,827) = -rxt(k,110)*y(k,63) + mat(k,686) = -(rxt(k,120) + rxt(k,121)) * y(k,63) + mat(k,606) = -(rxt(k,277) + rxt(k,278)) * y(k,63) + mat(k,1034) = -rxt(k,281)*y(k,63) + mat(k,945) = -rxt(k,291)*y(k,63) + mat(k,1566) = -rxt(k,320)*y(k,63) + mat(k,1853) = -rxt(k,346)*y(k,63) + mat(k,1889) = -rxt(k,359)*y(k,63) + mat(k,458) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,63) + mat(k,1398) = -(rxt(k,430) + rxt(k,432)) * y(k,63) + mat(k,1253) = -rxt(k,431)*y(k,63) + mat(k,917) = -rxt(k,443)*y(k,63) + mat(k,1736) = -rxt(k,444)*y(k,63) + mat(k,1001) = -rxt(k,445)*y(k,63) + mat(k,1122) = -rxt(k,466)*y(k,63) + mat(k,730) = -rxt(k,497)*y(k,63) + mat(k,488) = -rxt(k,553)*y(k,63) + mat(k,730) = mat(k,730) + rxt(k,496)*y(k,62) + mat(k,441) = rxt(k,536)*y(k,62) + mat(k,1489) = rxt(k,285)*y(k,111) + mat(k,1122) = mat(k,1122) + rxt(k,464)*y(k,62) + mat(k,183) = rxt(k,424)*y(k,133) mat(k,280) = rxt(k,340)*y(k,133) - mat(k,1979) = rxt(k,494)*y(k,5) + rxt(k,534)*y(k,21) + rxt(k,462)*y(k,28) & - + 2.000_r8*rxt(k,435)*y(k,64) + rxt(k,441)*y(k,70) + rxt(k,440) & - *y(k,73) + rxt(k,112)*y(k,93) + rxt(k,439)*y(k,101) + rxt(k,136) & + mat(k,1982) = rxt(k,496)*y(k,5) + rxt(k,536)*y(k,21) + rxt(k,464)*y(k,28) & + + 2.000_r8*rxt(k,434)*y(k,64) + rxt(k,440)*y(k,70) + rxt(k,439) & + *y(k,73) + rxt(k,112)*y(k,93) + rxt(k,438)*y(k,101) + rxt(k,136) & *y(k,135) - mat(k,1743) = mat(k,1743) + 2.000_r8*rxt(k,435)*y(k,62) + rxt(k,436)*y(k,70) & - + rxt(k,434)*y(k,101) + rxt(k,437)*y(k,133) - mat(k,1398) = mat(k,1398) + rxt(k,441)*y(k,62) + rxt(k,436)*y(k,64) - mat(k,1937) = mat(k,1937) + rxt(k,440)*y(k,62) - mat(k,375) = rxt(k,112)*y(k,62) - mat(k,915) = mat(k,915) + rxt(k,439)*y(k,62) + rxt(k,434)*y(k,64) - mat(k,1254) = rxt(k,201)*y(k,111) + rxt(k,197)*y(k,112) - mat(k,1703) = rxt(k,166)*y(k,111) + rxt(k,162)*y(k,112) - mat(k,1660) = rxt(k,184)*y(k,111) + rxt(k,179)*y(k,112) - mat(k,943) = mat(k,943) + rxt(k,285)*y(k,25) + rxt(k,201)*y(k,103) & + mat(k,1736) = mat(k,1736) + 2.000_r8*rxt(k,434)*y(k,62) + rxt(k,435)*y(k,70) & + + rxt(k,433)*y(k,101) + rxt(k,436)*y(k,133) + mat(k,1398) = mat(k,1398) + rxt(k,440)*y(k,62) + rxt(k,435)*y(k,64) + mat(k,1253) = mat(k,1253) + rxt(k,439)*y(k,62) + mat(k,376) = rxt(k,112)*y(k,62) + mat(k,917) = mat(k,917) + rxt(k,438)*y(k,62) + rxt(k,433)*y(k,64) + mat(k,1654) = rxt(k,201)*y(k,111) + rxt(k,197)*y(k,112) + mat(k,1296) = rxt(k,166)*y(k,111) + rxt(k,162)*y(k,112) + mat(k,1441) = rxt(k,184)*y(k,111) + rxt(k,179)*y(k,112) + mat(k,945) = mat(k,945) + rxt(k,285)*y(k,25) + rxt(k,201)*y(k,103) & + rxt(k,166)*y(k,105) + rxt(k,184)*y(k,107) + rxt(k,254) & *y(k,118) + rxt(k,237)*y(k,119) + rxt(k,219)*y(k,122) & + rxt(k,161)*y(k,128) - mat(k,561) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107) & + mat(k,562) = rxt(k,197)*y(k,103) + rxt(k,162)*y(k,105) + rxt(k,179)*y(k,107) & + rxt(k,250)*y(k,118) + rxt(k,232)*y(k,119) + rxt(k,215) & *y(k,122) + rxt(k,156)*y(k,128) - mat(k,1168) = rxt(k,254)*y(k,111) + rxt(k,250)*y(k,112) - mat(k,1211) = rxt(k,237)*y(k,111) + rxt(k,232)*y(k,112) + mat(k,1169) = rxt(k,254)*y(k,111) + rxt(k,250)*y(k,112) + mat(k,1212) = rxt(k,237)*y(k,111) + rxt(k,232)*y(k,112) mat(k,1338) = rxt(k,219)*y(k,111) + rxt(k,215)*y(k,112) + rxt(k,311)*y(k,133) - mat(k,1617) = rxt(k,161)*y(k,111) + rxt(k,156)*y(k,112) - mat(k,999) = mat(k,999) + rxt(k,423)*y(k,52) + rxt(k,340)*y(k,55) & - + rxt(k,437)*y(k,64) + rxt(k,311)*y(k,122) - mat(k,1896) = mat(k,1896) + rxt(k,136)*y(k,62) - mat(k,1741) = -(rxt(k,434)*y(k,101) + rxt(k,435)*y(k,62) + rxt(k,436)*y(k,70) & - + rxt(k,437)*y(k,133) + rxt(k,445)*y(k,63) + rxt(k,530)*y(k,17) & - + rxt(k,541)*y(k,35)) - mat(k,913) = -rxt(k,434)*y(k,64) - mat(k,1977) = -rxt(k,435)*y(k,64) - mat(k,1396) = -rxt(k,436)*y(k,64) - mat(k,997) = -rxt(k,437)*y(k,64) - mat(k,1825) = -rxt(k,445)*y(k,64) - mat(k,749) = -rxt(k,530)*y(k,64) - mat(k,130) = -rxt(k,541)*y(k,64) - mat(k,212) = rxt(k,496)*y(k,70) - mat(k,1493) = rxt(k,463)*y(k,29) - mat(k,1118) = rxt(k,286)*y(k,111) - mat(k,365) = rxt(k,463)*y(k,25) + rxt(k,465)*y(k,70) + rxt(k,466)*y(k,133) - mat(k,347) = rxt(k,510)*y(k,51) - mat(k,1534) = rxt(k,510)*y(k,39) + rxt(k,447)*y(k,133) - mat(k,1825) = mat(k,1825) + rxt(k,433)*y(k,70) + rxt(k,432)*y(k,73) - mat(k,1396) = mat(k,1396) + rxt(k,496)*y(k,6) + rxt(k,465)*y(k,29) & - + rxt(k,433)*y(k,63) - mat(k,1935) = rxt(k,432)*y(k,63) - mat(k,913) = mat(k,913) + rxt(k,310)*y(k,122) - mat(k,1252) = rxt(k,200)*y(k,114) + rxt(k,193)*y(k,115) + rxt(k,198)*y(k,116) - mat(k,1701) = rxt(k,165)*y(k,114) + (rxt(k,236)+rxt(k,262))*y(k,115) & + mat(k,1611) = rxt(k,161)*y(k,111) + rxt(k,156)*y(k,112) + mat(k,1001) = mat(k,1001) + rxt(k,424)*y(k,52) + rxt(k,340)*y(k,55) & + + rxt(k,436)*y(k,64) + rxt(k,311)*y(k,122) + mat(k,1889) = mat(k,1889) + rxt(k,136)*y(k,62) + mat(k,1734) = -(rxt(k,433)*y(k,101) + rxt(k,434)*y(k,62) + rxt(k,435)*y(k,70) & + + rxt(k,436)*y(k,133) + rxt(k,444)*y(k,63) + rxt(k,532)*y(k,17) & + + rxt(k,543)*y(k,35)) + mat(k,915) = -rxt(k,433)*y(k,64) + mat(k,1980) = -rxt(k,434)*y(k,64) + mat(k,1396) = -rxt(k,435)*y(k,64) + mat(k,999) = -rxt(k,436)*y(k,64) + mat(k,1818) = -rxt(k,444)*y(k,64) + mat(k,751) = -rxt(k,532)*y(k,64) + mat(k,130) = -rxt(k,543)*y(k,64) + mat(k,212) = rxt(k,498)*y(k,70) + mat(k,1487) = rxt(k,465)*y(k,29) + mat(k,1120) = rxt(k,286)*y(k,111) + mat(k,367) = rxt(k,465)*y(k,25) + rxt(k,467)*y(k,70) + rxt(k,468)*y(k,133) + mat(k,339) = rxt(k,512)*y(k,51) + mat(k,1528) = rxt(k,512)*y(k,39) + rxt(k,446)*y(k,133) + mat(k,1818) = mat(k,1818) + rxt(k,432)*y(k,70) + rxt(k,431)*y(k,73) + mat(k,1396) = mat(k,1396) + rxt(k,498)*y(k,6) + rxt(k,467)*y(k,29) & + + rxt(k,432)*y(k,63) + mat(k,1251) = rxt(k,431)*y(k,63) + mat(k,915) = mat(k,915) + rxt(k,310)*y(k,122) + mat(k,1652) = rxt(k,200)*y(k,114) + rxt(k,193)*y(k,115) + rxt(k,198)*y(k,116) + mat(k,1294) = rxt(k,165)*y(k,114) + (rxt(k,236)+rxt(k,262))*y(k,115) & + rxt(k,163)*y(k,116) - mat(k,1658) = rxt(k,183)*y(k,114) + (rxt(k,175)+rxt(k,263))*y(k,115) & + mat(k,1439) = rxt(k,183)*y(k,114) + (rxt(k,175)+rxt(k,263))*y(k,115) & + rxt(k,180)*y(k,116) - mat(k,941) = rxt(k,286)*y(k,28) - mat(k,880) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122) & + mat(k,943) = rxt(k,286)*y(k,28) + mat(k,882) = rxt(k,241)*y(k,118) + rxt(k,223)*y(k,119) + rxt(k,206)*y(k,122) & + rxt(k,148)*y(k,128) - mat(k,638) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107) & + mat(k,639) = rxt(k,200)*y(k,103) + rxt(k,165)*y(k,105) + rxt(k,183)*y(k,107) & + rxt(k,253)*y(k,118) + rxt(k,235)*y(k,119) + rxt(k,218) & *y(k,122) + rxt(k,160)*y(k,128) - mat(k,703) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( & + mat(k,704) = rxt(k,193)*y(k,103) + (rxt(k,236)+rxt(k,262))*y(k,105) + ( & + rxt(k,175)+rxt(k,263))*y(k,107) + rxt(k,245)*y(k,118) & + rxt(k,228)*y(k,119) + rxt(k,210)*y(k,122) + rxt(k,152) & *y(k,128) - mat(k,575) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107) & + mat(k,576) = rxt(k,198)*y(k,103) + rxt(k,163)*y(k,105) + rxt(k,180)*y(k,107) & + rxt(k,251)*y(k,118) + rxt(k,233)*y(k,119) + rxt(k,216) & *y(k,122) + rxt(k,157)*y(k,128) - mat(k,620) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) & + mat(k,621) = rxt(k,238)*y(k,118) + rxt(k,220)*y(k,119) + rxt(k,202)*y(k,122) & + rxt(k,255)*y(k,128) - mat(k,1166) = rxt(k,241)*y(k,113) + rxt(k,253)*y(k,114) + rxt(k,245)*y(k,115) & + mat(k,1167) = rxt(k,241)*y(k,113) + rxt(k,253)*y(k,114) + rxt(k,245)*y(k,115) & + rxt(k,251)*y(k,116) + rxt(k,238)*y(k,117) - mat(k,1209) = rxt(k,223)*y(k,113) + rxt(k,235)*y(k,114) + rxt(k,228)*y(k,115) & + mat(k,1210) = rxt(k,223)*y(k,113) + rxt(k,235)*y(k,114) + rxt(k,228)*y(k,115) & + rxt(k,233)*y(k,116) + rxt(k,220)*y(k,117) mat(k,1336) = rxt(k,310)*y(k,101) + rxt(k,206)*y(k,113) + rxt(k,218)*y(k,114) & + rxt(k,210)*y(k,115) + rxt(k,216)*y(k,116) + rxt(k,202) & *y(k,117) - mat(k,1615) = rxt(k,148)*y(k,113) + rxt(k,160)*y(k,114) + rxt(k,152)*y(k,115) & + mat(k,1609) = rxt(k,148)*y(k,113) + rxt(k,160)*y(k,114) + rxt(k,152)*y(k,115) & + rxt(k,157)*y(k,116) + rxt(k,255)*y(k,117) - mat(k,997) = mat(k,997) + rxt(k,466)*y(k,29) + rxt(k,447)*y(k,51) + mat(k,999) = mat(k,999) + rxt(k,468)*y(k,29) + rxt(k,446)*y(k,51) mat(k,1388) = -(rxt(k,113)*y(k,93) + rxt(k,125)*y(k,94) + rxt(k,131)*y(k,97) & + rxt(k,301)*y(k,113) + (rxt(k,324) + rxt(k,325)) * y(k,127) & + (rxt(k,333) + rxt(k,334)) * y(k,130) + rxt(k,336)*y(k,131) & + rxt(k,338)*y(k,132) + rxt(k,347)*y(k,134) + rxt(k,360) & *y(k,135) + rxt(k,403)*y(k,73) + 4._r8*rxt(k,404)*y(k,70) & + rxt(k,405)*y(k,72) + rxt(k,406)*y(k,41) + rxt(k,407)*y(k,43) & - + rxt(k,412)*y(k,101) + rxt(k,418)*y(k,133) + (rxt(k,431) & - + rxt(k,433)) * y(k,63) + rxt(k,436)*y(k,64) + rxt(k,441) & - *y(k,62) + rxt(k,465)*y(k,29) + rxt(k,467)*y(k,28) + rxt(k,470) & - *y(k,49) + rxt(k,473)*y(k,54) + rxt(k,496)*y(k,6) + rxt(k,497) & - *y(k,5) + rxt(k,499)*y(k,45) + rxt(k,501)*y(k,53) + rxt(k,531) & - *y(k,17) + rxt(k,543)*y(k,75) + (rxt(k,586) + rxt(k,587) & - ) * y(k,110) + rxt(k,588)*y(k,124)) - mat(k,372) = -rxt(k,113)*y(k,70) - mat(k,1022) = -rxt(k,125)*y(k,70) - mat(k,846) = -rxt(k,131)*y(k,70) - mat(k,873) = -rxt(k,301)*y(k,70) - mat(k,1562) = -(rxt(k,324) + rxt(k,325)) * y(k,70) - mat(k,600) = -(rxt(k,333) + rxt(k,334)) * y(k,70) - mat(k,243) = -rxt(k,336)*y(k,70) - mat(k,465) = -rxt(k,338)*y(k,70) - mat(k,1850) = -rxt(k,347)*y(k,70) - mat(k,1886) = -rxt(k,360)*y(k,70) - mat(k,1927) = -rxt(k,403)*y(k,70) - mat(k,1437) = -rxt(k,405)*y(k,70) - mat(k,655) = -rxt(k,406)*y(k,70) + + rxt(k,412)*y(k,101) + rxt(k,418)*y(k,133) + (rxt(k,430) & + + rxt(k,432)) * y(k,63) + rxt(k,435)*y(k,64) + rxt(k,440) & + *y(k,62) + rxt(k,467)*y(k,29) + rxt(k,469)*y(k,28) + rxt(k,472) & + *y(k,49) + rxt(k,475)*y(k,54) + rxt(k,498)*y(k,6) + rxt(k,499) & + *y(k,5) + rxt(k,501)*y(k,45) + rxt(k,503)*y(k,53) + rxt(k,533) & + *y(k,17) + rxt(k,545)*y(k,75) + (rxt(k,588) + rxt(k,589) & + ) * y(k,110) + rxt(k,590)*y(k,124)) + mat(k,374) = -rxt(k,113)*y(k,70) + mat(k,1024) = -rxt(k,125)*y(k,70) + mat(k,848) = -rxt(k,131)*y(k,70) + mat(k,876) = -rxt(k,301)*y(k,70) + mat(k,1556) = -(rxt(k,324) + rxt(k,325)) * y(k,70) + mat(k,602) = -(rxt(k,333) + rxt(k,334)) * y(k,70) + mat(k,242) = -rxt(k,336)*y(k,70) + mat(k,467) = -rxt(k,338)*y(k,70) + mat(k,1843) = -rxt(k,347)*y(k,70) + mat(k,1879) = -rxt(k,360)*y(k,70) + mat(k,1243) = -rxt(k,403)*y(k,70) + mat(k,1928) = -rxt(k,405)*y(k,70) + mat(k,656) = -rxt(k,406)*y(k,70) mat(k,217) = -rxt(k,407)*y(k,70) - mat(k,907) = -rxt(k,412)*y(k,70) - mat(k,991) = -rxt(k,418)*y(k,70) - mat(k,1817) = -(rxt(k,431) + rxt(k,433)) * y(k,70) - mat(k,1733) = -rxt(k,436)*y(k,70) - mat(k,1969) = -rxt(k,441)*y(k,70) - mat(k,362) = -rxt(k,465)*y(k,70) - mat(k,1110) = -rxt(k,467)*y(k,70) - mat(k,2014) = -rxt(k,470)*y(k,70) - mat(k,336) = -rxt(k,473)*y(k,70) - mat(k,210) = -rxt(k,496)*y(k,70) - mat(k,722) = -rxt(k,497)*y(k,70) - mat(k,329) = -rxt(k,499)*y(k,70) - mat(k,313) = -rxt(k,501)*y(k,70) - mat(k,745) = -rxt(k,531)*y(k,70) - mat(k,145) = -rxt(k,543)*y(k,70) - mat(k,236) = -(rxt(k,586) + rxt(k,587)) * y(k,70) - mat(k,321) = -rxt(k,588)*y(k,70) - mat(k,1485) = rxt(k,114)*y(k,94) + rxt(k,350)*y(k,135) - mat(k,1769) = rxt(k,410)*y(k,101) - mat(k,453) = rxt(k,426)*y(k,62) + rxt(k,427)*y(k,63) + rxt(k,430)*y(k,72) & - + rxt(k,591)*y(k,128) - mat(k,1969) = mat(k,1969) + rxt(k,426)*y(k,56) + rxt(k,272)*y(k,130) - mat(k,1817) = mat(k,1817) + rxt(k,427)*y(k,56) + rxt(k,359)*y(k,135) - mat(k,794) = (rxt(k,392)+rxt(k,393))*y(k,72) - mat(k,1437) = mat(k,1437) + rxt(k,430)*y(k,56) + (rxt(k,392)+rxt(k,393)) & - *y(k,71) + rxt(k,545)*y(k,78) + rxt(k,552)*y(k,80) + rxt(k,590) & - *y(k,124) + rxt(k,597)*y(k,136) + rxt(k,601)*y(k,137) - mat(k,1927) = mat(k,1927) + rxt(k,363)*y(k,135) - mat(k,274) = rxt(k,545)*y(k,72) - mat(k,482) = rxt(k,552)*y(k,72) - mat(k,1022) = mat(k,1022) + rxt(k,114)*y(k,25) + rxt(k,186)*y(k,103) + ( & + mat(k,908) = -rxt(k,412)*y(k,70) + mat(k,992) = -rxt(k,418)*y(k,70) + mat(k,1810) = -(rxt(k,430) + rxt(k,432)) * y(k,70) + mat(k,1726) = -rxt(k,435)*y(k,70) + mat(k,1972) = -rxt(k,440)*y(k,70) + mat(k,364) = -rxt(k,467)*y(k,70) + mat(k,1112) = -rxt(k,469)*y(k,70) + mat(k,2017) = -rxt(k,472)*y(k,70) + mat(k,328) = -rxt(k,475)*y(k,70) + mat(k,210) = -rxt(k,498)*y(k,70) + mat(k,724) = -rxt(k,499)*y(k,70) + mat(k,321) = -rxt(k,501)*y(k,70) + mat(k,305) = -rxt(k,503)*y(k,70) + mat(k,747) = -rxt(k,533)*y(k,70) + mat(k,145) = -rxt(k,545)*y(k,70) + mat(k,236) = -(rxt(k,588) + rxt(k,589)) * y(k,70) + mat(k,313) = -rxt(k,590)*y(k,70) + mat(k,1479) = rxt(k,114)*y(k,94) + rxt(k,350)*y(k,135) + mat(k,1762) = rxt(k,410)*y(k,101) + mat(k,454) = rxt(k,426)*y(k,62) + rxt(k,427)*y(k,63) + rxt(k,451)*y(k,72) & + + rxt(k,593)*y(k,128) + mat(k,1972) = mat(k,1972) + rxt(k,426)*y(k,56) + rxt(k,425)*y(k,109) & + + rxt(k,272)*y(k,130) + mat(k,1810) = mat(k,1810) + rxt(k,427)*y(k,56) + rxt(k,359)*y(k,135) + mat(k,795) = (rxt(k,392)+rxt(k,393))*y(k,72) + mat(k,1928) = mat(k,1928) + rxt(k,451)*y(k,56) + (rxt(k,392)+rxt(k,393)) & + *y(k,71) + rxt(k,547)*y(k,78) + rxt(k,554)*y(k,80) + rxt(k,592) & + *y(k,124) + rxt(k,599)*y(k,136) + rxt(k,603)*y(k,137) + mat(k,1243) = mat(k,1243) + rxt(k,363)*y(k,135) + mat(k,275) = rxt(k,547)*y(k,72) + mat(k,485) = rxt(k,554)*y(k,72) + mat(k,1024) = mat(k,1024) + rxt(k,114)*y(k,25) + rxt(k,186)*y(k,103) + ( & + rxt(k,170)+rxt(k,258))*y(k,105) + (rxt(k,168)+rxt(k,265)) & *y(k,107) + rxt(k,239)*y(k,118) + rxt(k,221)*y(k,119) & + rxt(k,204)*y(k,122) + rxt(k,256)*y(k,128) - mat(k,511) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + mat(k,512) = rxt(k,194)*y(k,103) + (rxt(k,247)+rxt(k,271))*y(k,105) + ( & + rxt(k,176)+rxt(k,259))*y(k,107) + rxt(k,246)*y(k,118) & + rxt(k,229)*y(k,119) + rxt(k,211)*y(k,122) + rxt(k,153) & *y(k,128) - mat(k,679) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( & + mat(k,680) = rxt(k,196)*y(k,103) + (rxt(k,158)+rxt(k,260))*y(k,105) + ( & + rxt(k,178)+rxt(k,261))*y(k,107) + rxt(k,249)*y(k,118) & + rxt(k,231)*y(k,119) + rxt(k,213)*y(k,122) + rxt(k,155) & *y(k,128) - mat(k,1065) = rxt(k,582)*y(k,118) + 1.150_r8*rxt(k,583)*y(k,128) - mat(k,907) = mat(k,907) + rxt(k,410)*y(k,40) - mat(k,1244) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) - mat(k,1693) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) & + mat(k,1067) = rxt(k,584)*y(k,118) + 1.150_r8*rxt(k,585)*y(k,128) + mat(k,908) = mat(k,908) + rxt(k,410)*y(k,40) + mat(k,1644) = rxt(k,186)*y(k,94) + rxt(k,194)*y(k,95) + rxt(k,196)*y(k,96) + mat(k,1286) = (rxt(k,170)+rxt(k,258))*y(k,94) + (rxt(k,247)+rxt(k,271)) & *y(k,95) + (rxt(k,158)+rxt(k,260))*y(k,96) - mat(k,1650) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) & + mat(k,1431) = (rxt(k,168)+rxt(k,265))*y(k,94) + (rxt(k,176)+rxt(k,259)) & *y(k,95) + (rxt(k,178)+rxt(k,261))*y(k,96) - mat(k,305) = rxt(k,596)*y(k,136) - mat(k,1158) = rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) + rxt(k,249)*y(k,96) & - + rxt(k,582)*y(k,98) - mat(k,1201) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) + mat(k,348) = rxt(k,425)*y(k,62) + rxt(k,598)*y(k,136) + mat(k,1159) = rxt(k,239)*y(k,94) + rxt(k,246)*y(k,95) + rxt(k,249)*y(k,96) & + + rxt(k,584)*y(k,98) + mat(k,1202) = rxt(k,221)*y(k,94) + rxt(k,229)*y(k,95) + rxt(k,231)*y(k,96) mat(k,1328) = rxt(k,204)*y(k,94) + rxt(k,211)*y(k,95) + rxt(k,213)*y(k,96) - mat(k,321) = mat(k,321) + rxt(k,590)*y(k,72) - mat(k,1607) = rxt(k,591)*y(k,56) + rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) & - + rxt(k,155)*y(k,96) + 1.150_r8*rxt(k,583)*y(k,98) - mat(k,600) = mat(k,600) + rxt(k,272)*y(k,62) - mat(k,991) = mat(k,991) + 2.000_r8*rxt(k,420)*y(k,133) - mat(k,1886) = mat(k,1886) + rxt(k,350)*y(k,25) + rxt(k,359)*y(k,63) & + mat(k,313) = mat(k,313) + rxt(k,592)*y(k,72) + mat(k,1601) = rxt(k,593)*y(k,56) + rxt(k,256)*y(k,94) + rxt(k,153)*y(k,95) & + + rxt(k,155)*y(k,96) + 1.150_r8*rxt(k,585)*y(k,98) + mat(k,602) = mat(k,602) + rxt(k,272)*y(k,62) + mat(k,992) = mat(k,992) + 2.000_r8*rxt(k,420)*y(k,133) + mat(k,1879) = mat(k,1879) + rxt(k,350)*y(k,25) + rxt(k,359)*y(k,63) & + rxt(k,363)*y(k,73) - mat(k,395) = rxt(k,597)*y(k,72) + rxt(k,596)*y(k,109) - mat(k,203) = rxt(k,601)*y(k,72) + mat(k,410) = rxt(k,599)*y(k,72) + rxt(k,598)*y(k,109) + mat(k,203) = rxt(k,603)*y(k,72) end do end subroutine nlnmat04 subroutine nlnmat05( avec_len, mat, y, rxt ) @@ -1022,227 +1026,227 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,787) = -(rxt(k,389)*y(k,41) + rxt(k,390)*y(k,139) + (rxt(k,392) & - + rxt(k,393)) * y(k,72) + rxt(k,394)*y(k,73) + (rxt(k,442) & - + rxt(k,443)) * y(k,57) + rxt(k,475)*y(k,8) + rxt(k,476)*y(k,9) & - + rxt(k,477)*y(k,11) + rxt(k,478)*y(k,12) + rxt(k,479)*y(k,13) & - + rxt(k,480)*y(k,14) + rxt(k,481)*y(k,15) + (rxt(k,482) & - + rxt(k,483)) * y(k,49) + rxt(k,502)*y(k,10) + rxt(k,503) & - *y(k,24) + rxt(k,504)*y(k,42) + (rxt(k,505) + rxt(k,506) & - ) * y(k,45) + rxt(k,511)*y(k,33) + rxt(k,512)*y(k,34) + rxt(k,525) & - *y(k,16) + rxt(k,526)*y(k,18) + rxt(k,527)*y(k,46) + rxt(k,528) & - *y(k,47) + rxt(k,529)*y(k,48) + (rxt(k,537) + rxt(k,538) & - + rxt(k,539)) * y(k,23)) - mat(k,649) = -rxt(k,389)*y(k,71) - mat(k,2060) = -rxt(k,390)*y(k,71) - mat(k,1423) = -(rxt(k,392) + rxt(k,393)) * y(k,71) - mat(k,1913) = -rxt(k,394)*y(k,71) - mat(k,99) = -(rxt(k,442) + rxt(k,443)) * y(k,71) - mat(k,30) = -rxt(k,475)*y(k,71) - mat(k,58) = -rxt(k,476)*y(k,71) - mat(k,38) = -rxt(k,477)*y(k,71) - mat(k,68) = -rxt(k,478)*y(k,71) - mat(k,42) = -rxt(k,479)*y(k,71) - mat(k,73) = -rxt(k,480)*y(k,71) - mat(k,46) = -rxt(k,481)*y(k,71) - mat(k,1999) = -(rxt(k,482) + rxt(k,483)) * y(k,71) - mat(k,64) = -rxt(k,502)*y(k,71) - mat(k,163) = -rxt(k,503)*y(k,71) - mat(k,35) = -rxt(k,504)*y(k,71) - mat(k,327) = -(rxt(k,505) + rxt(k,506)) * y(k,71) - mat(k,79) = -rxt(k,511)*y(k,71) - mat(k,87) = -rxt(k,512)*y(k,71) - mat(k,188) = -rxt(k,525)*y(k,71) - mat(k,224) = -rxt(k,526)*y(k,71) - mat(k,82) = -rxt(k,527)*y(k,71) - mat(k,92) = -rxt(k,528)*y(k,71) - mat(k,118) = -rxt(k,529)*y(k,71) - mat(k,420) = -(rxt(k,537) + rxt(k,538) + rxt(k,539)) * y(k,71) - mat(k,1423) = mat(k,1423) + rxt(k,425)*y(k,109) - mat(k,1055) = .850_r8*rxt(k,583)*y(k,128) - mat(k,304) = rxt(k,425)*y(k,72) - mat(k,1592) = .850_r8*rxt(k,583)*y(k,98) - mat(k,1438) = -(rxt(k,126)*y(k,94) + (rxt(k,133) + rxt(k,135)) * y(k,98) & + mat(k,789) = -(rxt(k,389)*y(k,41) + rxt(k,390)*y(k,139) + (rxt(k,392) & + + rxt(k,393)) * y(k,72) + rxt(k,394)*y(k,73) + (rxt(k,441) & + + rxt(k,442)) * y(k,57) + rxt(k,477)*y(k,8) + rxt(k,478)*y(k,9) & + + rxt(k,479)*y(k,11) + rxt(k,480)*y(k,12) + rxt(k,481)*y(k,13) & + + rxt(k,482)*y(k,14) + rxt(k,483)*y(k,15) + (rxt(k,484) & + + rxt(k,485)) * y(k,49) + rxt(k,504)*y(k,10) + rxt(k,505) & + *y(k,24) + rxt(k,506)*y(k,42) + (rxt(k,507) + rxt(k,508) & + ) * y(k,45) + rxt(k,513)*y(k,33) + rxt(k,514)*y(k,34) + rxt(k,527) & + *y(k,16) + rxt(k,528)*y(k,18) + rxt(k,529)*y(k,46) + rxt(k,530) & + *y(k,47) + rxt(k,531)*y(k,48) + (rxt(k,539) + rxt(k,540) & + + rxt(k,541)) * y(k,23)) + mat(k,651) = -rxt(k,389)*y(k,71) + mat(k,2063) = -rxt(k,390)*y(k,71) + mat(k,1914) = -(rxt(k,392) + rxt(k,393)) * y(k,71) + mat(k,1229) = -rxt(k,394)*y(k,71) + mat(k,99) = -(rxt(k,441) + rxt(k,442)) * y(k,71) + mat(k,30) = -rxt(k,477)*y(k,71) + mat(k,58) = -rxt(k,478)*y(k,71) + mat(k,38) = -rxt(k,479)*y(k,71) + mat(k,68) = -rxt(k,480)*y(k,71) + mat(k,42) = -rxt(k,481)*y(k,71) + mat(k,73) = -rxt(k,482)*y(k,71) + mat(k,46) = -rxt(k,483)*y(k,71) + mat(k,2002) = -(rxt(k,484) + rxt(k,485)) * y(k,71) + mat(k,64) = -rxt(k,504)*y(k,71) + mat(k,163) = -rxt(k,505)*y(k,71) + mat(k,35) = -rxt(k,506)*y(k,71) + mat(k,319) = -(rxt(k,507) + rxt(k,508)) * y(k,71) + mat(k,79) = -rxt(k,513)*y(k,71) + mat(k,87) = -rxt(k,514)*y(k,71) + mat(k,188) = -rxt(k,527)*y(k,71) + mat(k,224) = -rxt(k,528)*y(k,71) + mat(k,82) = -rxt(k,529)*y(k,71) + mat(k,92) = -rxt(k,530)*y(k,71) + mat(k,118) = -rxt(k,531)*y(k,71) + mat(k,422) = -(rxt(k,539) + rxt(k,540) + rxt(k,541)) * y(k,71) + mat(k,1914) = mat(k,1914) + rxt(k,449)*y(k,109) + mat(k,1057) = .850_r8*rxt(k,585)*y(k,128) + mat(k,346) = rxt(k,449)*y(k,72) + mat(k,1586) = .850_r8*rxt(k,585)*y(k,98) + mat(k,1941) = -(rxt(k,126)*y(k,94) + (rxt(k,133) + rxt(k,135)) * y(k,98) & + rxt(k,322)*y(k,127) + rxt(k,362)*y(k,135) + rxt(k,364) & *y(k,128) + rxt(k,392)*y(k,71) + rxt(k,397)*y(k,125) + rxt(k,405) & - *y(k,70) + rxt(k,411)*y(k,40) + rxt(k,425)*y(k,109) + rxt(k,430) & - *y(k,56) + rxt(k,545)*y(k,78) + rxt(k,552)*y(k,80) + rxt(k,585) & - *y(k,110) + (rxt(k,589) + rxt(k,590)) * y(k,124) + rxt(k,597) & - *y(k,136) + rxt(k,601)*y(k,137)) - mat(k,1023) = -rxt(k,126)*y(k,72) - mat(k,1066) = -(rxt(k,133) + rxt(k,135)) * y(k,72) - mat(k,1563) = -rxt(k,322)*y(k,72) - mat(k,1887) = -rxt(k,362)*y(k,72) - mat(k,1608) = -rxt(k,364)*y(k,72) - mat(k,795) = -rxt(k,392)*y(k,72) - mat(k,380) = -rxt(k,397)*y(k,72) - mat(k,1389) = -rxt(k,405)*y(k,72) - mat(k,1770) = -rxt(k,411)*y(k,72) - mat(k,306) = -rxt(k,425)*y(k,72) - mat(k,454) = -rxt(k,430)*y(k,72) - mat(k,275) = -rxt(k,545)*y(k,72) - mat(k,483) = -rxt(k,552)*y(k,72) - mat(k,237) = -rxt(k,585)*y(k,72) - mat(k,322) = -(rxt(k,589) + rxt(k,590)) * y(k,72) - mat(k,396) = -rxt(k,597)*y(k,72) - mat(k,204) = -rxt(k,601)*y(k,72) - mat(k,590) = rxt(k,488)*y(k,73) + rxt(k,487)*y(k,101) - mat(k,723) = 2.000_r8*rxt(k,489)*y(k,5) + (rxt(k,491)+rxt(k,492))*y(k,28) & - + rxt(k,497)*y(k,70) + rxt(k,493)*y(k,101) - mat(k,437) = rxt(k,533)*y(k,101) - mat(k,1486) = rxt(k,456)*y(k,73) + rxt(k,127)*y(k,97) + rxt(k,454)*y(k,101) & + *y(k,70) + rxt(k,411)*y(k,40) + rxt(k,449)*y(k,109) + rxt(k,451) & + *y(k,56) + rxt(k,547)*y(k,78) + rxt(k,554)*y(k,80) + rxt(k,587) & + *y(k,110) + (rxt(k,591) + rxt(k,592)) * y(k,124) + rxt(k,599) & + *y(k,136) + rxt(k,603)*y(k,137)) + mat(k,1037) = -rxt(k,126)*y(k,72) + mat(k,1080) = -(rxt(k,133) + rxt(k,135)) * y(k,72) + mat(k,1569) = -rxt(k,322)*y(k,72) + mat(k,1892) = -rxt(k,362)*y(k,72) + mat(k,1614) = -rxt(k,364)*y(k,72) + mat(k,807) = -rxt(k,392)*y(k,72) + mat(k,386) = -rxt(k,397)*y(k,72) + mat(k,1401) = -rxt(k,405)*y(k,72) + mat(k,1775) = -rxt(k,411)*y(k,72) + mat(k,350) = -rxt(k,449)*y(k,72) + mat(k,459) = -rxt(k,451)*y(k,72) + mat(k,277) = -rxt(k,547)*y(k,72) + mat(k,489) = -rxt(k,554)*y(k,72) + mat(k,238) = -rxt(k,587)*y(k,72) + mat(k,315) = -(rxt(k,591) + rxt(k,592)) * y(k,72) + mat(k,413) = -rxt(k,599)*y(k,72) + mat(k,205) = -rxt(k,603)*y(k,72) + mat(k,594) = rxt(k,490)*y(k,73) + rxt(k,489)*y(k,101) + mat(k,731) = 2.000_r8*rxt(k,491)*y(k,5) + (rxt(k,493)+rxt(k,494))*y(k,28) & + + rxt(k,499)*y(k,70) + rxt(k,495)*y(k,101) + mat(k,442) = rxt(k,535)*y(k,101) + mat(k,1492) = rxt(k,458)*y(k,73) + rxt(k,127)*y(k,97) + rxt(k,456)*y(k,101) & + rxt(k,314)*y(k,127) - mat(k,1111) = (rxt(k,491)+rxt(k,492))*y(k,5) + (2.000_r8*rxt(k,458) & - +2.000_r8*rxt(k,459))*y(k,28) + rxt(k,467)*y(k,70) + rxt(k,116) & - *y(k,94) + rxt(k,128)*y(k,97) + rxt(k,461)*y(k,101) + rxt(k,315) & - *y(k,127) + rxt(k,469)*y(k,133) + rxt(k,351)*y(k,135) - mat(k,1287) = rxt(k,330)*y(k,130) + rxt(k,335)*y(k,131) - mat(k,1770) = mat(k,1770) + rxt(k,414)*y(k,73) + rxt(k,408)*y(k,101) & + mat(k,1125) = (rxt(k,493)+rxt(k,494))*y(k,5) + (2.000_r8*rxt(k,460) & + +2.000_r8*rxt(k,461))*y(k,28) + rxt(k,469)*y(k,70) + rxt(k,116) & + *y(k,94) + rxt(k,128)*y(k,97) + rxt(k,463)*y(k,101) + rxt(k,315) & + *y(k,127) + rxt(k,471)*y(k,133) + rxt(k,351)*y(k,135) + mat(k,1699) = rxt(k,330)*y(k,130) + rxt(k,335)*y(k,131) + mat(k,1775) = mat(k,1775) + rxt(k,414)*y(k,73) + rxt(k,408)*y(k,101) & + rxt(k,331)*y(k,130) - mat(k,182) = rxt(k,423)*y(k,133) - mat(k,454) = mat(k,454) + rxt(k,429)*y(k,63) - mat(k,100) = rxt(k,443)*y(k,71) - mat(k,1970) = rxt(k,440)*y(k,73) + rxt(k,593)*y(k,128) + rxt(k,279)*y(k,130) - mat(k,1818) = rxt(k,429)*y(k,56) + rxt(k,431)*y(k,70) + rxt(k,432)*y(k,73) & + mat(k,184) = rxt(k,424)*y(k,133) + mat(k,459) = mat(k,459) + rxt(k,429)*y(k,63) + mat(k,100) = rxt(k,442)*y(k,71) + mat(k,1985) = rxt(k,439)*y(k,73) + rxt(k,595)*y(k,128) + rxt(k,279)*y(k,130) + mat(k,1823) = rxt(k,429)*y(k,56) + rxt(k,430)*y(k,70) + rxt(k,431)*y(k,73) & + rxt(k,320)*y(k,127) + rxt(k,277)*y(k,130) - mat(k,1734) = rxt(k,436)*y(k,70) + rxt(k,434)*y(k,101) - mat(k,1389) = mat(k,1389) + rxt(k,497)*y(k,5) + rxt(k,467)*y(k,28) & - + rxt(k,431)*y(k,63) + rxt(k,436)*y(k,64) + 2.000_r8*rxt(k,404) & + mat(k,1739) = rxt(k,435)*y(k,70) + rxt(k,433)*y(k,101) + mat(k,1401) = mat(k,1401) + rxt(k,499)*y(k,5) + rxt(k,469)*y(k,28) & + + rxt(k,430)*y(k,63) + rxt(k,435)*y(k,64) + 2.000_r8*rxt(k,404) & *y(k,70) + 2.000_r8*rxt(k,403)*y(k,73) + rxt(k,113)*y(k,93) & + rxt(k,131)*y(k,97) + rxt(k,412)*y(k,101) + rxt(k,301)*y(k,113) & + rxt(k,396)*y(k,125) + rxt(k,325)*y(k,127) + ( & + 2.000_r8*rxt(k,333)+rxt(k,334))*y(k,130) + rxt(k,336)*y(k,131) & + rxt(k,418)*y(k,133) + rxt(k,360)*y(k,135) - mat(k,795) = mat(k,795) + rxt(k,443)*y(k,57) + 2.000_r8*rxt(k,394)*y(k,73) - mat(k,1438) = mat(k,1438) + 2.000_r8*rxt(k,397)*y(k,125) - mat(k,1928) = rxt(k,488)*y(k,3) + rxt(k,456)*y(k,25) + rxt(k,414)*y(k,40) & - + rxt(k,440)*y(k,62) + rxt(k,432)*y(k,63) + 2.000_r8*rxt(k,403) & - *y(k,70) + 2.000_r8*rxt(k,394)*y(k,71) + rxt(k,547)*y(k,78) & - + rxt(k,553)*y(k,80) + rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) & + mat(k,807) = mat(k,807) + rxt(k,442)*y(k,57) + 2.000_r8*rxt(k,394)*y(k,73) + mat(k,1941) = mat(k,1941) + 2.000_r8*rxt(k,397)*y(k,125) + mat(k,1256) = rxt(k,490)*y(k,3) + rxt(k,458)*y(k,25) + rxt(k,414)*y(k,40) & + + rxt(k,439)*y(k,62) + rxt(k,431)*y(k,63) + 2.000_r8*rxt(k,403) & + *y(k,70) + 2.000_r8*rxt(k,394)*y(k,71) + rxt(k,549)*y(k,78) & + + rxt(k,555)*y(k,80) + rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) & + 2.000_r8*rxt(k,413)*y(k,101) + rxt(k,292)*y(k,111) & + 2.000_r8*rxt(k,302)*y(k,113) + rxt(k,323)*y(k,127) & + 3.000_r8*rxt(k,332)*y(k,130) + rxt(k,419)*y(k,133) - mat(k,275) = mat(k,275) + rxt(k,547)*y(k,73) - mat(k,483) = mat(k,483) + rxt(k,553)*y(k,73) - mat(k,819) = rxt(k,154)*y(k,128) - mat(k,541) = rxt(k,159)*y(k,128) - mat(k,525) = rxt(k,257)*y(k,128) - mat(k,373) = rxt(k,113)*y(k,70) - mat(k,1023) = mat(k,1023) + rxt(k,116)*y(k,28) + rxt(k,256)*y(k,128) - mat(k,512) = rxt(k,153)*y(k,128) - mat(k,680) = rxt(k,155)*y(k,128) - mat(k,847) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,131)*y(k,70) & + mat(k,277) = mat(k,277) + rxt(k,549)*y(k,73) + mat(k,489) = mat(k,489) + rxt(k,555)*y(k,73) + mat(k,828) = rxt(k,154)*y(k,128) + mat(k,548) = rxt(k,159)*y(k,128) + mat(k,532) = rxt(k,257)*y(k,128) + mat(k,377) = rxt(k,113)*y(k,70) + mat(k,1037) = mat(k,1037) + rxt(k,116)*y(k,28) + rxt(k,256)*y(k,128) + mat(k,518) = rxt(k,153)*y(k,128) + mat(k,687) = rxt(k,155)*y(k,128) + mat(k,860) = rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,131)*y(k,70) & + rxt(k,132)*y(k,73) + rxt(k,191)*y(k,103) + rxt(k,225)*y(k,105) & + rxt(k,174)*y(k,107) + rxt(k,244)*y(k,118) + rxt(k,227) & *y(k,119) + rxt(k,209)*y(k,122) + 2.000_r8*rxt(k,151)*y(k,128) - mat(k,1066) = mat(k,1066) + rxt(k,134)*y(k,73) + rxt(k,326)*y(k,129) & + mat(k,1080) = mat(k,1080) + rxt(k,134)*y(k,73) + rxt(k,326)*y(k,129) & + 2.000_r8*rxt(k,380)*y(k,132) - mat(k,497) = rxt(k,149)*y(k,128) - mat(k,908) = rxt(k,487)*y(k,3) + rxt(k,493)*y(k,5) + rxt(k,533)*y(k,21) & - + rxt(k,454)*y(k,25) + rxt(k,461)*y(k,28) + rxt(k,408)*y(k,40) & - + rxt(k,434)*y(k,64) + rxt(k,412)*y(k,70) + 2.000_r8*rxt(k,413) & + mat(k,503) = rxt(k,149)*y(k,128) + mat(k,920) = rxt(k,489)*y(k,3) + rxt(k,495)*y(k,5) + rxt(k,535)*y(k,21) & + + rxt(k,456)*y(k,25) + rxt(k,463)*y(k,28) + rxt(k,408)*y(k,40) & + + rxt(k,433)*y(k,64) + rxt(k,412)*y(k,70) + 2.000_r8*rxt(k,413) & *y(k,73) + 2.000_r8*rxt(k,422)*y(k,101) + rxt(k,417)*y(k,133) - mat(k,1245) = rxt(k,191)*y(k,97) + rxt(k,190)*y(k,127) - mat(k,1694) = rxt(k,225)*y(k,97) + rxt(k,214)*y(k,127) - mat(k,1651) = rxt(k,174)*y(k,97) + rxt(k,173)*y(k,127) - mat(k,935) = rxt(k,292)*y(k,73) + rxt(k,161)*y(k,128) - mat(k,556) = rxt(k,156)*y(k,128) - mat(k,874) = rxt(k,301)*y(k,70) + 2.000_r8*rxt(k,302)*y(k,73) + rxt(k,148) & + mat(k,1657) = rxt(k,191)*y(k,97) + rxt(k,190)*y(k,127) + mat(k,1299) = rxt(k,225)*y(k,97) + rxt(k,214)*y(k,127) + mat(k,1444) = rxt(k,174)*y(k,97) + rxt(k,173)*y(k,127) + mat(k,947) = rxt(k,292)*y(k,73) + rxt(k,161)*y(k,128) + mat(k,563) = rxt(k,156)*y(k,128) + mat(k,885) = rxt(k,301)*y(k,70) + 2.000_r8*rxt(k,302)*y(k,73) + rxt(k,148) & *y(k,128) - mat(k,633) = rxt(k,160)*y(k,128) - mat(k,698) = rxt(k,152)*y(k,128) - mat(k,570) = rxt(k,157)*y(k,128) - mat(k,615) = rxt(k,255)*y(k,128) - mat(k,1159) = rxt(k,244)*y(k,97) + rxt(k,243)*y(k,127) - mat(k,1202) = rxt(k,227)*y(k,97) + rxt(k,226)*y(k,127) - mat(k,1329) = rxt(k,209)*y(k,97) + rxt(k,208)*y(k,127) - mat(k,380) = mat(k,380) + rxt(k,396)*y(k,70) + 2.000_r8*rxt(k,397)*y(k,72) & + mat(k,642) = rxt(k,160)*y(k,128) + mat(k,707) = rxt(k,152)*y(k,128) + mat(k,578) = rxt(k,157)*y(k,128) + mat(k,622) = rxt(k,255)*y(k,128) + mat(k,1172) = rxt(k,244)*y(k,97) + rxt(k,243)*y(k,127) + mat(k,1215) = rxt(k,227)*y(k,97) + rxt(k,226)*y(k,127) + mat(k,1341) = rxt(k,209)*y(k,97) + rxt(k,208)*y(k,127) + mat(k,386) = mat(k,386) + rxt(k,396)*y(k,70) + 2.000_r8*rxt(k,397)*y(k,72) & + 2.000_r8*rxt(k,321)*y(k,127) + 2.000_r8*rxt(k,339)*y(k,132) - mat(k,1563) = mat(k,1563) + rxt(k,314)*y(k,25) + rxt(k,315)*y(k,28) & + mat(k,1569) = mat(k,1569) + rxt(k,314)*y(k,25) + rxt(k,315)*y(k,28) & + rxt(k,320)*y(k,63) + rxt(k,325)*y(k,70) + rxt(k,323)*y(k,73) & + rxt(k,190)*y(k,103) + rxt(k,214)*y(k,105) + rxt(k,173) & *y(k,107) + rxt(k,243)*y(k,118) + rxt(k,226)*y(k,119) & + rxt(k,208)*y(k,122) + 2.000_r8*rxt(k,321)*y(k,125) - mat(k,1608) = mat(k,1608) + rxt(k,593)*y(k,62) + rxt(k,154)*y(k,90) & + mat(k,1614) = mat(k,1614) + rxt(k,595)*y(k,62) + rxt(k,154)*y(k,90) & + rxt(k,159)*y(k,91) + rxt(k,257)*y(k,92) + rxt(k,256)*y(k,94) & + rxt(k,153)*y(k,95) + rxt(k,155)*y(k,96) + 2.000_r8*rxt(k,151) & *y(k,97) + rxt(k,149)*y(k,100) + rxt(k,161)*y(k,111) & + rxt(k,156)*y(k,112) + rxt(k,148)*y(k,113) + rxt(k,160) & *y(k,114) + rxt(k,152)*y(k,115) + rxt(k,157)*y(k,116) & + rxt(k,255)*y(k,117) - mat(k,296) = rxt(k,326)*y(k,98) + (rxt(k,327)+rxt(k,328))*y(k,139) - mat(k,601) = rxt(k,330)*y(k,32) + rxt(k,331)*y(k,40) + rxt(k,279)*y(k,62) & + mat(k,298) = rxt(k,326)*y(k,98) + (rxt(k,327)+rxt(k,328))*y(k,139) + mat(k,609) = rxt(k,330)*y(k,32) + rxt(k,331)*y(k,40) + rxt(k,279)*y(k,62) & + rxt(k,277)*y(k,63) + (2.000_r8*rxt(k,333)+rxt(k,334))*y(k,70) & + 3.000_r8*rxt(k,332)*y(k,73) - mat(k,244) = rxt(k,335)*y(k,32) + rxt(k,336)*y(k,70) - mat(k,466) = 2.000_r8*rxt(k,380)*y(k,98) + 2.000_r8*rxt(k,339)*y(k,125) & + mat(k,245) = rxt(k,335)*y(k,32) + rxt(k,336)*y(k,70) + mat(k,473) = 2.000_r8*rxt(k,380)*y(k,98) + 2.000_r8*rxt(k,339)*y(k,125) & + rxt(k,337)*y(k,139) - mat(k,992) = rxt(k,469)*y(k,28) + rxt(k,423)*y(k,52) + rxt(k,418)*y(k,70) & + mat(k,1004) = rxt(k,471)*y(k,28) + rxt(k,424)*y(k,52) + rxt(k,418)*y(k,70) & + rxt(k,419)*y(k,73) + rxt(k,417)*y(k,101) - mat(k,1887) = mat(k,1887) + rxt(k,351)*y(k,28) + rxt(k,360)*y(k,70) - mat(k,2075) = (rxt(k,327)+rxt(k,328))*y(k,129) + rxt(k,337)*y(k,132) - mat(k,1940) = -(rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) + rxt(k,292)*y(k,111) & + mat(k,1892) = mat(k,1892) + rxt(k,351)*y(k,28) + rxt(k,360)*y(k,70) + mat(k,2090) = (rxt(k,327)+rxt(k,328))*y(k,129) + rxt(k,337)*y(k,132) + mat(k,1240) = -(rxt(k,132)*y(k,97) + rxt(k,134)*y(k,98) + rxt(k,292)*y(k,111) & + rxt(k,302)*y(k,113) + rxt(k,323)*y(k,127) + rxt(k,332) & *y(k,130) + rxt(k,348)*y(k,134) + rxt(k,363)*y(k,135) + rxt(k,394) & *y(k,71) + rxt(k,403)*y(k,70) + rxt(k,413)*y(k,101) + rxt(k,414) & - *y(k,40) + rxt(k,419)*y(k,133) + rxt(k,432)*y(k,63) + rxt(k,440) & - *y(k,62) + rxt(k,456)*y(k,25) + rxt(k,488)*y(k,3) + rxt(k,547) & - *y(k,78) + rxt(k,553)*y(k,80)) - mat(k,858) = -rxt(k,132)*y(k,73) - mat(k,1078) = -rxt(k,134)*y(k,73) - mat(k,945) = -rxt(k,292)*y(k,73) - mat(k,883) = -rxt(k,302)*y(k,73) - mat(k,1575) = -rxt(k,323)*y(k,73) - mat(k,607) = -rxt(k,332)*y(k,73) - mat(k,1863) = -rxt(k,348)*y(k,73) - mat(k,1899) = -rxt(k,363)*y(k,73) - mat(k,805) = -rxt(k,394)*y(k,73) - mat(k,1401) = -rxt(k,403)*y(k,73) - mat(k,918) = -rxt(k,413)*y(k,73) - mat(k,1782) = -rxt(k,414)*y(k,73) - mat(k,1002) = -rxt(k,419)*y(k,73) - mat(k,1830) = -rxt(k,432)*y(k,73) - mat(k,1982) = -rxt(k,440)*y(k,73) - mat(k,1498) = -rxt(k,456)*y(k,73) - mat(k,592) = -rxt(k,488)*y(k,73) - mat(k,277) = -rxt(k,547)*y(k,73) - mat(k,487) = -rxt(k,553)*y(k,73) - mat(k,1830) = mat(k,1830) + rxt(k,278)*y(k,130) - mat(k,1401) = mat(k,1401) + rxt(k,405)*y(k,72) + rxt(k,324)*y(k,127) & + *y(k,40) + rxt(k,419)*y(k,133) + rxt(k,431)*y(k,63) + rxt(k,439) & + *y(k,62) + rxt(k,458)*y(k,25) + rxt(k,490)*y(k,3) + rxt(k,549) & + *y(k,78) + rxt(k,555)*y(k,80)) + mat(k,845) = -rxt(k,132)*y(k,73) + mat(k,1064) = -rxt(k,134)*y(k,73) + mat(k,934) = -rxt(k,292)*y(k,73) + mat(k,873) = -rxt(k,302)*y(k,73) + mat(k,1553) = -rxt(k,323)*y(k,73) + mat(k,601) = -rxt(k,332)*y(k,73) + mat(k,1840) = -rxt(k,348)*y(k,73) + mat(k,1876) = -rxt(k,363)*y(k,73) + mat(k,794) = -rxt(k,394)*y(k,73) + mat(k,1385) = -rxt(k,403)*y(k,73) + mat(k,906) = -rxt(k,413)*y(k,73) + mat(k,1759) = -rxt(k,414)*y(k,73) + mat(k,990) = -rxt(k,419)*y(k,73) + mat(k,1807) = -rxt(k,431)*y(k,73) + mat(k,1969) = -rxt(k,439)*y(k,73) + mat(k,1476) = -rxt(k,458)*y(k,73) + mat(k,590) = -rxt(k,490)*y(k,73) + mat(k,274) = -rxt(k,549)*y(k,73) + mat(k,484) = -rxt(k,555)*y(k,73) + mat(k,1807) = mat(k,1807) + rxt(k,278)*y(k,130) + mat(k,1385) = mat(k,1385) + rxt(k,405)*y(k,72) + rxt(k,324)*y(k,127) & + rxt(k,338)*y(k,132) - mat(k,1450) = rxt(k,405)*y(k,70) - mat(k,384) = rxt(k,361)*y(k,135) - mat(k,1575) = mat(k,1575) + rxt(k,324)*y(k,70) - mat(k,607) = mat(k,607) + rxt(k,278)*y(k,63) - mat(k,471) = rxt(k,338)*y(k,70) - mat(k,1899) = mat(k,1899) + rxt(k,361)*y(k,125) - mat(k,134) = -(rxt(k,554)*y(k,80)) - mat(k,473) = -rxt(k,554)*y(k,74) - mat(k,709) = rxt(k,490)*y(k,28) - mat(k,1085) = rxt(k,490)*y(k,5) + 2.000_r8*rxt(k,460)*y(k,28) - mat(k,139) = -(rxt(k,543)*y(k,70) + rxt(k,544)*y(k,133)) - mat(k,1346) = -rxt(k,543)*y(k,75) - mat(k,957) = -rxt(k,544)*y(k,75) - mat(k,271) = -(rxt(k,545)*y(k,72) + rxt(k,547)*y(k,73) + rxt(k,550)*y(k,133)) - mat(k,1410) = -rxt(k,545)*y(k,78) - mat(k,1904) = -rxt(k,547)*y(k,78) - mat(k,966) = -rxt(k,550)*y(k,78) - mat(k,476) = -(rxt(k,548)*y(k,5) + rxt(k,549)*y(k,28) + rxt(k,551)*y(k,63) & - + rxt(k,552)*y(k,72) + rxt(k,553)*y(k,73) + rxt(k,554)*y(k,74) & - + rxt(k,555)*y(k,133)) - mat(k,713) = -rxt(k,548)*y(k,80) - mat(k,1091) = -rxt(k,549)*y(k,80) - mat(k,1794) = -rxt(k,551)*y(k,80) - mat(k,1418) = -rxt(k,552)*y(k,80) - mat(k,1908) = -rxt(k,553)*y(k,80) - mat(k,136) = -rxt(k,554)*y(k,80) - mat(k,977) = -rxt(k,555)*y(k,80) - mat(k,1367) = rxt(k,543)*y(k,75) - mat(k,1418) = mat(k,1418) + rxt(k,545)*y(k,78) - mat(k,1908) = mat(k,1908) + rxt(k,547)*y(k,78) - mat(k,143) = rxt(k,543)*y(k,70) - mat(k,272) = rxt(k,545)*y(k,72) + rxt(k,547)*y(k,73) + rxt(k,550)*y(k,133) - mat(k,977) = mat(k,977) + rxt(k,550)*y(k,78) + mat(k,1925) = rxt(k,405)*y(k,70) + mat(k,382) = rxt(k,361)*y(k,135) + mat(k,1553) = mat(k,1553) + rxt(k,324)*y(k,70) + mat(k,601) = mat(k,601) + rxt(k,278)*y(k,63) + mat(k,466) = rxt(k,338)*y(k,70) + mat(k,1876) = mat(k,1876) + rxt(k,361)*y(k,125) + mat(k,134) = -(rxt(k,556)*y(k,80)) + mat(k,475) = -rxt(k,556)*y(k,74) + mat(k,711) = rxt(k,492)*y(k,28) + mat(k,1087) = rxt(k,492)*y(k,5) + 2.000_r8*rxt(k,462)*y(k,28) + mat(k,139) = -(rxt(k,545)*y(k,70) + rxt(k,546)*y(k,133)) + mat(k,1346) = -rxt(k,545)*y(k,75) + mat(k,959) = -rxt(k,546)*y(k,75) + mat(k,271) = -(rxt(k,547)*y(k,72) + rxt(k,549)*y(k,73) + rxt(k,552)*y(k,133)) + mat(k,1901) = -rxt(k,547)*y(k,78) + mat(k,1220) = -rxt(k,549)*y(k,78) + mat(k,968) = -rxt(k,552)*y(k,78) + mat(k,478) = -(rxt(k,550)*y(k,5) + rxt(k,551)*y(k,28) + rxt(k,553)*y(k,63) & + + rxt(k,554)*y(k,72) + rxt(k,555)*y(k,73) + rxt(k,556)*y(k,74) & + + rxt(k,557)*y(k,133)) + mat(k,715) = -rxt(k,550)*y(k,80) + mat(k,1093) = -rxt(k,551)*y(k,80) + mat(k,1787) = -rxt(k,553)*y(k,80) + mat(k,1909) = -rxt(k,554)*y(k,80) + mat(k,1224) = -rxt(k,555)*y(k,80) + mat(k,136) = -rxt(k,556)*y(k,80) + mat(k,979) = -rxt(k,557)*y(k,80) + mat(k,1367) = rxt(k,545)*y(k,75) + mat(k,1909) = mat(k,1909) + rxt(k,547)*y(k,78) + mat(k,1224) = mat(k,1224) + rxt(k,549)*y(k,78) + mat(k,143) = rxt(k,545)*y(k,70) + mat(k,272) = rxt(k,547)*y(k,72) + rxt(k,549)*y(k,73) + rxt(k,552)*y(k,133) + mat(k,979) = mat(k,979) + rxt(k,552)*y(k,78) end do end subroutine nlnmat05 subroutine nlnmat06( avec_len, mat, y, rxt ) @@ -1263,213 +1267,213 @@ subroutine nlnmat06( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,351) = -(rxt(k,546)*y(k,133)) - mat(k,972) = -rxt(k,546)*y(k,81) - mat(k,712) = rxt(k,548)*y(k,80) - mat(k,1087) = rxt(k,549)*y(k,80) - mat(k,126) = rxt(k,541)*y(k,64) + (rxt(k,542)+.500_r8*rxt(k,556))*y(k,133) - mat(k,1790) = rxt(k,551)*y(k,80) - mat(k,1712) = rxt(k,541)*y(k,35) - mat(k,1413) = rxt(k,552)*y(k,80) - mat(k,1905) = rxt(k,553)*y(k,80) - mat(k,135) = rxt(k,554)*y(k,80) - mat(k,142) = rxt(k,544)*y(k,133) - mat(k,475) = rxt(k,548)*y(k,5) + rxt(k,549)*y(k,28) + rxt(k,551)*y(k,63) & - + rxt(k,552)*y(k,72) + rxt(k,553)*y(k,73) + rxt(k,554)*y(k,74) & - + rxt(k,555)*y(k,133) - mat(k,972) = mat(k,972) + (rxt(k,542)+.500_r8*rxt(k,556))*y(k,35) & - + rxt(k,544)*y(k,75) + rxt(k,555)*y(k,80) - mat(k,103) = -(rxt(k,557)*y(k,139)) - mat(k,2032) = -rxt(k,557)*y(k,82) - mat(k,350) = rxt(k,546)*y(k,133) - mat(k,954) = rxt(k,546)*y(k,81) - mat(k,811) = -(rxt(k,105)*y(k,40) + rxt(k,107)*y(k,139) + rxt(k,108)*y(k,49) & + mat(k,353) = -(rxt(k,548)*y(k,133)) + mat(k,974) = -rxt(k,548)*y(k,81) + mat(k,714) = rxt(k,550)*y(k,80) + mat(k,1089) = rxt(k,551)*y(k,80) + mat(k,126) = rxt(k,543)*y(k,64) + (rxt(k,544)+.500_r8*rxt(k,558))*y(k,133) + mat(k,1783) = rxt(k,553)*y(k,80) + mat(k,1705) = rxt(k,543)*y(k,35) + mat(k,1904) = rxt(k,554)*y(k,80) + mat(k,1221) = rxt(k,555)*y(k,80) + mat(k,135) = rxt(k,556)*y(k,80) + mat(k,142) = rxt(k,546)*y(k,133) + mat(k,477) = rxt(k,550)*y(k,5) + rxt(k,551)*y(k,28) + rxt(k,553)*y(k,63) & + + rxt(k,554)*y(k,72) + rxt(k,555)*y(k,73) + rxt(k,556)*y(k,74) & + + rxt(k,557)*y(k,133) + mat(k,974) = mat(k,974) + (rxt(k,544)+.500_r8*rxt(k,558))*y(k,35) & + + rxt(k,546)*y(k,75) + rxt(k,557)*y(k,80) + mat(k,103) = -(rxt(k,559)*y(k,139)) + mat(k,2035) = -rxt(k,559)*y(k,82) + mat(k,352) = rxt(k,548)*y(k,133) + mat(k,956) = rxt(k,548)*y(k,81) + mat(k,813) = -(rxt(k,105)*y(k,40) + rxt(k,107)*y(k,139) + rxt(k,108)*y(k,49) & + rxt(k,109)*y(k,51) + rxt(k,110)*y(k,63) + rxt(k,147)*y(k,105) & + rxt(k,154)*y(k,128) + rxt(k,177)*y(k,107) + rxt(k,195) & *y(k,103) + rxt(k,212)*y(k,122) + rxt(k,230)*y(k,119) + rxt(k,248) & *y(k,118)) - mat(k,1755) = -rxt(k,105)*y(k,90) - mat(k,2061) = -rxt(k,107)*y(k,90) - mat(k,2000) = -rxt(k,108)*y(k,90) - mat(k,1513) = -rxt(k,109)*y(k,90) - mat(k,1804) = -rxt(k,110)*y(k,90) - mat(k,1679) = -rxt(k,147)*y(k,90) - mat(k,1593) = -rxt(k,154)*y(k,90) - mat(k,1636) = -rxt(k,177)*y(k,90) - mat(k,1230) = -rxt(k,195)*y(k,90) + mat(k,1748) = -rxt(k,105)*y(k,90) + mat(k,2064) = -rxt(k,107)*y(k,90) + mat(k,2003) = -rxt(k,108)*y(k,90) + mat(k,1507) = -rxt(k,109)*y(k,90) + mat(k,1797) = -rxt(k,110)*y(k,90) + mat(k,1272) = -rxt(k,147)*y(k,90) + mat(k,1587) = -rxt(k,154)*y(k,90) + mat(k,1417) = -rxt(k,177)*y(k,90) + mat(k,1630) = -rxt(k,195)*y(k,90) mat(k,1314) = -rxt(k,212)*y(k,90) - mat(k,1187) = -rxt(k,230)*y(k,90) - mat(k,1144) = -rxt(k,248)*y(k,90) - mat(k,1471) = rxt(k,114)*y(k,94) + rxt(k,127)*y(k,97) + rxt(k,285)*y(k,111) & + mat(k,1188) = -rxt(k,230)*y(k,90) + mat(k,1145) = -rxt(k,248)*y(k,90) + mat(k,1465) = rxt(k,114)*y(k,94) + rxt(k,127)*y(k,97) + rxt(k,285)*y(k,111) & + rxt(k,314)*y(k,127) + rxt(k,341)*y(k,134) + rxt(k,350) & *y(k,135) - mat(k,1096) = rxt(k,116)*y(k,94) + rxt(k,286)*y(k,111) + rxt(k,351)*y(k,135) - mat(k,2000) = mat(k,2000) + rxt(k,130)*y(k,97) + rxt(k,289)*y(k,111) & + mat(k,1098) = rxt(k,116)*y(k,94) + rxt(k,286)*y(k,111) + rxt(k,351)*y(k,135) + mat(k,2003) = mat(k,2003) + rxt(k,130)*y(k,97) + rxt(k,289)*y(k,111) & + rxt(k,298)*y(k,113) + rxt(k,318)*y(k,127) + rxt(k,345) & *y(k,134) + rxt(k,356)*y(k,135) - mat(k,1956) = rxt(k,112)*y(k,93) + mat(k,1959) = rxt(k,112)*y(k,93) mat(k,1374) = rxt(k,113)*y(k,93) - mat(k,370) = rxt(k,112)*y(k,62) + rxt(k,113)*y(k,70) - mat(k,1010) = rxt(k,114)*y(k,25) + rxt(k,116)*y(k,28) - mat(k,832) = rxt(k,127)*y(k,25) + rxt(k,130)*y(k,49) - mat(k,924) = rxt(k,285)*y(k,25) + rxt(k,286)*y(k,28) + rxt(k,289)*y(k,49) - mat(k,865) = rxt(k,298)*y(k,49) - mat(k,1548) = rxt(k,314)*y(k,25) + rxt(k,318)*y(k,49) - mat(k,1837) = rxt(k,341)*y(k,25) + rxt(k,345)*y(k,49) - mat(k,1873) = rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) + rxt(k,356)*y(k,49) - mat(k,535) = -(rxt(k,106)*y(k,49) + rxt(k,159)*y(k,128) + rxt(k,164)*y(k,105) & + mat(k,372) = rxt(k,112)*y(k,62) + rxt(k,113)*y(k,70) + mat(k,1012) = rxt(k,114)*y(k,25) + rxt(k,116)*y(k,28) + mat(k,834) = rxt(k,127)*y(k,25) + rxt(k,130)*y(k,49) + mat(k,926) = rxt(k,285)*y(k,25) + rxt(k,286)*y(k,28) + rxt(k,289)*y(k,49) + mat(k,867) = rxt(k,298)*y(k,49) + mat(k,1542) = rxt(k,314)*y(k,25) + rxt(k,318)*y(k,49) + mat(k,1830) = rxt(k,341)*y(k,25) + rxt(k,345)*y(k,49) + mat(k,1866) = rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) + rxt(k,356)*y(k,49) + mat(k,537) = -(rxt(k,106)*y(k,49) + rxt(k,159)*y(k,128) + rxt(k,164)*y(k,105) & + rxt(k,182)*y(k,107) + rxt(k,199)*y(k,103) + rxt(k,217) & *y(k,122) + rxt(k,234)*y(k,119) + rxt(k,252)*y(k,118)) - mat(k,1993) = -rxt(k,106)*y(k,91) - mat(k,1585) = -rxt(k,159)*y(k,91) - mat(k,1672) = -rxt(k,164)*y(k,91) - mat(k,1629) = -rxt(k,182)*y(k,91) - mat(k,1223) = -rxt(k,199)*y(k,91) + mat(k,1996) = -rxt(k,106)*y(k,91) + mat(k,1579) = -rxt(k,159)*y(k,91) + mat(k,1265) = -rxt(k,164)*y(k,91) + mat(k,1410) = -rxt(k,182)*y(k,91) + mat(k,1623) = -rxt(k,199)*y(k,91) mat(k,1307) = -rxt(k,217)*y(k,91) - mat(k,1180) = -rxt(k,234)*y(k,91) - mat(k,1136) = -rxt(k,252)*y(k,91) - mat(k,810) = rxt(k,107)*y(k,139) - mat(k,2051) = rxt(k,107)*y(k,90) - mat(k,519) = -((rxt(k,169) + rxt(k,268)) * y(k,107) + (rxt(k,181) + rxt(k,267) & + mat(k,1181) = -rxt(k,234)*y(k,91) + mat(k,1137) = -rxt(k,252)*y(k,91) + mat(k,812) = rxt(k,107)*y(k,139) + mat(k,2054) = rxt(k,107)*y(k,90) + mat(k,521) = -((rxt(k,169) + rxt(k,268)) * y(k,107) + (rxt(k,181) + rxt(k,267) & ) * y(k,105) + rxt(k,187)*y(k,103) + rxt(k,205)*y(k,122) & + rxt(k,222)*y(k,119) + rxt(k,240)*y(k,118) + rxt(k,257) & *y(k,128)) - mat(k,1628) = -(rxt(k,169) + rxt(k,268)) * y(k,92) - mat(k,1671) = -(rxt(k,181) + rxt(k,267)) * y(k,92) - mat(k,1222) = -rxt(k,187)*y(k,92) + mat(k,1409) = -(rxt(k,169) + rxt(k,268)) * y(k,92) + mat(k,1264) = -(rxt(k,181) + rxt(k,267)) * y(k,92) + mat(k,1622) = -rxt(k,187)*y(k,92) mat(k,1306) = -rxt(k,205)*y(k,92) - mat(k,1179) = -rxt(k,222)*y(k,92) - mat(k,1135) = -rxt(k,240)*y(k,92) - mat(k,1584) = -rxt(k,257)*y(k,92) - mat(k,1992) = rxt(k,108)*y(k,90) + rxt(k,106)*y(k,91) - mat(k,809) = rxt(k,108)*y(k,49) - mat(k,534) = rxt(k,106)*y(k,49) - mat(k,369) = -((rxt(k,111) + rxt(k,112)) * y(k,62) + rxt(k,113)*y(k,70)) - mat(k,1945) = -(rxt(k,111) + rxt(k,112)) * y(k,93) + mat(k,1180) = -rxt(k,222)*y(k,92) + mat(k,1136) = -rxt(k,240)*y(k,92) + mat(k,1578) = -rxt(k,257)*y(k,92) + mat(k,1995) = rxt(k,108)*y(k,90) + rxt(k,106)*y(k,91) + mat(k,811) = rxt(k,108)*y(k,49) + mat(k,536) = rxt(k,106)*y(k,49) + mat(k,371) = -((rxt(k,111) + rxt(k,112)) * y(k,62) + rxt(k,113)*y(k,70)) + mat(k,1947) = -(rxt(k,111) + rxt(k,112)) * y(k,93) mat(k,1362) = -rxt(k,113)*y(k,93) - mat(k,1463) = rxt(k,115)*y(k,94) - mat(k,1089) = rxt(k,128)*y(k,97) + rxt(k,315)*y(k,127) + rxt(k,342)*y(k,134) - mat(k,1006) = rxt(k,115)*y(k,25) - mat(k,830) = rxt(k,128)*y(k,28) - mat(k,1544) = rxt(k,315)*y(k,28) - mat(k,1834) = rxt(k,342)*y(k,28) - mat(k,1014) = -((rxt(k,114) + rxt(k,115)) * y(k,25) + rxt(k,116)*y(k,28) & + mat(k,1457) = rxt(k,115)*y(k,94) + mat(k,1091) = rxt(k,128)*y(k,97) + rxt(k,315)*y(k,127) + rxt(k,342)*y(k,134) + mat(k,1008) = rxt(k,115)*y(k,25) + mat(k,832) = rxt(k,128)*y(k,28) + mat(k,1538) = rxt(k,315)*y(k,28) + mat(k,1827) = rxt(k,342)*y(k,28) + mat(k,1016) = -((rxt(k,114) + rxt(k,115)) * y(k,25) + rxt(k,116)*y(k,28) & + rxt(k,117)*y(k,40) + rxt(k,119)*y(k,139) + rxt(k,124)*y(k,51) & + rxt(k,125)*y(k,70) + rxt(k,126)*y(k,72) + (rxt(k,168) & + rxt(k,265)) * y(k,107) + (rxt(k,170) + rxt(k,258)) * y(k,105) & + rxt(k,186)*y(k,103) + rxt(k,204)*y(k,122) + rxt(k,221) & *y(k,119) + rxt(k,239)*y(k,118) + rxt(k,256)*y(k,128) + rxt(k,280) & *y(k,62) + rxt(k,281)*y(k,63)) - mat(k,1477) = -(rxt(k,114) + rxt(k,115)) * y(k,94) - mat(k,1102) = -rxt(k,116)*y(k,94) - mat(k,1761) = -rxt(k,117)*y(k,94) - mat(k,2066) = -rxt(k,119)*y(k,94) - mat(k,1518) = -rxt(k,124)*y(k,94) + mat(k,1471) = -(rxt(k,114) + rxt(k,115)) * y(k,94) + mat(k,1104) = -rxt(k,116)*y(k,94) + mat(k,1754) = -rxt(k,117)*y(k,94) + mat(k,2069) = -rxt(k,119)*y(k,94) + mat(k,1512) = -rxt(k,124)*y(k,94) mat(k,1380) = -rxt(k,125)*y(k,94) - mat(k,1429) = -rxt(k,126)*y(k,94) - mat(k,1642) = -(rxt(k,168) + rxt(k,265)) * y(k,94) - mat(k,1685) = -(rxt(k,170) + rxt(k,258)) * y(k,94) - mat(k,1236) = -rxt(k,186)*y(k,94) + mat(k,1920) = -rxt(k,126)*y(k,94) + mat(k,1423) = -(rxt(k,168) + rxt(k,265)) * y(k,94) + mat(k,1278) = -(rxt(k,170) + rxt(k,258)) * y(k,94) + mat(k,1636) = -rxt(k,186)*y(k,94) mat(k,1320) = -rxt(k,204)*y(k,94) - mat(k,1193) = -rxt(k,221)*y(k,94) - mat(k,1150) = -rxt(k,239)*y(k,94) - mat(k,1599) = -rxt(k,256)*y(k,94) - mat(k,1961) = -rxt(k,280)*y(k,94) - mat(k,1809) = -rxt(k,281)*y(k,94) - mat(k,1278) = rxt(k,330)*y(k,130) + rxt(k,352)*y(k,135) - mat(k,1761) = mat(k,1761) + rxt(k,129)*y(k,97) + mat(k,1194) = -rxt(k,221)*y(k,94) + mat(k,1151) = -rxt(k,239)*y(k,94) + mat(k,1593) = -rxt(k,256)*y(k,94) + mat(k,1964) = -rxt(k,280)*y(k,94) + mat(k,1802) = -rxt(k,281)*y(k,94) + mat(k,1678) = rxt(k,330)*y(k,130) + rxt(k,352)*y(k,135) + mat(k,1754) = mat(k,1754) + rxt(k,129)*y(k,97) mat(k,1380) = mat(k,1380) + rxt(k,131)*y(k,97) - mat(k,838) = rxt(k,129)*y(k,40) + rxt(k,131)*y(k,70) - mat(k,597) = rxt(k,330)*y(k,32) - mat(k,1878) = rxt(k,352)*y(k,32) - mat(k,504) = -(rxt(k,153)*y(k,128) + (rxt(k,176) + rxt(k,259)) * y(k,107) & + mat(k,840) = rxt(k,129)*y(k,40) + rxt(k,131)*y(k,70) + mat(k,599) = rxt(k,330)*y(k,32) + mat(k,1871) = rxt(k,352)*y(k,32) + mat(k,506) = -(rxt(k,153)*y(k,128) + (rxt(k,176) + rxt(k,259)) * y(k,107) & + rxt(k,194)*y(k,103) + rxt(k,211)*y(k,122) + rxt(k,229) & *y(k,119) + rxt(k,246)*y(k,118) + (rxt(k,247) + rxt(k,271) & ) * y(k,105)) - mat(k,1583) = -rxt(k,153)*y(k,95) - mat(k,1627) = -(rxt(k,176) + rxt(k,259)) * y(k,95) - mat(k,1221) = -rxt(k,194)*y(k,95) + mat(k,1577) = -rxt(k,153)*y(k,95) + mat(k,1408) = -(rxt(k,176) + rxt(k,259)) * y(k,95) + mat(k,1621) = -rxt(k,194)*y(k,95) mat(k,1305) = -rxt(k,211)*y(k,95) - mat(k,1178) = -rxt(k,229)*y(k,95) - mat(k,1134) = -rxt(k,246)*y(k,95) - mat(k,1670) = -(rxt(k,247) + rxt(k,271)) * y(k,95) - mat(k,667) = rxt(k,118)*y(k,139) - mat(k,2050) = rxt(k,118)*y(k,96) - mat(k,669) = -(rxt(k,118)*y(k,139) + (rxt(k,120) + rxt(k,121)) * y(k,63) & + mat(k,1179) = -rxt(k,229)*y(k,95) + mat(k,1135) = -rxt(k,246)*y(k,95) + mat(k,1263) = -(rxt(k,247) + rxt(k,271)) * y(k,95) + mat(k,669) = rxt(k,118)*y(k,139) + mat(k,2053) = rxt(k,118)*y(k,96) + mat(k,671) = -(rxt(k,118)*y(k,139) + (rxt(k,120) + rxt(k,121)) * y(k,63) & + (rxt(k,122) + rxt(k,123)) * y(k,62) + rxt(k,155)*y(k,128) & + (rxt(k,158) + rxt(k,260)) * y(k,105) + (rxt(k,178) + rxt(k,261) & ) * y(k,107) + rxt(k,196)*y(k,103) + rxt(k,213)*y(k,122) & + rxt(k,231)*y(k,119) + rxt(k,249)*y(k,118)) - mat(k,2056) = -rxt(k,118)*y(k,96) - mat(k,1799) = -(rxt(k,120) + rxt(k,121)) * y(k,96) - mat(k,1951) = -(rxt(k,122) + rxt(k,123)) * y(k,96) - mat(k,1590) = -rxt(k,155)*y(k,96) - mat(k,1677) = -(rxt(k,158) + rxt(k,260)) * y(k,96) - mat(k,1634) = -(rxt(k,178) + rxt(k,261)) * y(k,96) - mat(k,1228) = -rxt(k,196)*y(k,96) + mat(k,2059) = -rxt(k,118)*y(k,96) + mat(k,1792) = -(rxt(k,120) + rxt(k,121)) * y(k,96) + mat(k,1954) = -(rxt(k,122) + rxt(k,123)) * y(k,96) + mat(k,1584) = -rxt(k,155)*y(k,96) + mat(k,1270) = -(rxt(k,158) + rxt(k,260)) * y(k,96) + mat(k,1415) = -(rxt(k,178) + rxt(k,261)) * y(k,96) + mat(k,1628) = -rxt(k,196)*y(k,96) mat(k,1312) = -rxt(k,213)*y(k,96) - mat(k,1185) = -rxt(k,231)*y(k,96) - mat(k,1141) = -rxt(k,249)*y(k,96) - mat(k,1008) = rxt(k,119)*y(k,139) - mat(k,2056) = mat(k,2056) + rxt(k,119)*y(k,94) - mat(k,833) = -(rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,129)*y(k,40) & + mat(k,1186) = -rxt(k,231)*y(k,96) + mat(k,1142) = -rxt(k,249)*y(k,96) + mat(k,1010) = rxt(k,119)*y(k,139) + mat(k,2059) = mat(k,2059) + rxt(k,119)*y(k,94) + mat(k,835) = -(rxt(k,127)*y(k,25) + rxt(k,128)*y(k,28) + rxt(k,129)*y(k,40) & + rxt(k,130)*y(k,49) + rxt(k,131)*y(k,70) + rxt(k,132)*y(k,73) & + rxt(k,151)*y(k,128) + rxt(k,174)*y(k,107) + rxt(k,191) & *y(k,103) + rxt(k,209)*y(k,122) + rxt(k,225)*y(k,105) + rxt(k,227) & *y(k,119) + rxt(k,244)*y(k,118)) - mat(k,1472) = -rxt(k,127)*y(k,97) - mat(k,1097) = -rxt(k,128)*y(k,97) - mat(k,1756) = -rxt(k,129)*y(k,97) - mat(k,2001) = -rxt(k,130)*y(k,97) + mat(k,1466) = -rxt(k,127)*y(k,97) + mat(k,1099) = -rxt(k,128)*y(k,97) + mat(k,1749) = -rxt(k,129)*y(k,97) + mat(k,2004) = -rxt(k,130)*y(k,97) mat(k,1375) = -rxt(k,131)*y(k,97) - mat(k,1914) = -rxt(k,132)*y(k,97) - mat(k,1594) = -rxt(k,151)*y(k,97) - mat(k,1637) = -rxt(k,174)*y(k,97) - mat(k,1231) = -rxt(k,191)*y(k,97) + mat(k,1230) = -rxt(k,132)*y(k,97) + mat(k,1588) = -rxt(k,151)*y(k,97) + mat(k,1418) = -rxt(k,174)*y(k,97) + mat(k,1631) = -rxt(k,191)*y(k,97) mat(k,1315) = -rxt(k,209)*y(k,97) - mat(k,1680) = -rxt(k,225)*y(k,97) - mat(k,1188) = -rxt(k,227)*y(k,97) - mat(k,1145) = -rxt(k,244)*y(k,97) - mat(k,1273) = rxt(k,316)*y(k,127) + rxt(k,335)*y(k,131) - mat(k,1549) = rxt(k,316)*y(k,32) + mat(k,1273) = -rxt(k,225)*y(k,97) + mat(k,1189) = -rxt(k,227)*y(k,97) + mat(k,1146) = -rxt(k,244)*y(k,97) + mat(k,1673) = rxt(k,316)*y(k,127) + rxt(k,335)*y(k,131) + mat(k,1543) = rxt(k,316)*y(k,32) mat(k,241) = rxt(k,335)*y(k,32) - mat(k,1058) = -((rxt(k,133) + rxt(k,135)) * y(k,72) + rxt(k,134)*y(k,73) & + mat(k,1060) = -((rxt(k,133) + rxt(k,135)) * y(k,72) + rxt(k,134)*y(k,73) & + rxt(k,138)*y(k,99) + rxt(k,141)*y(k,105) + rxt(k,144)*y(k,107) & + rxt(k,303)*y(k,119) + rxt(k,304)*y(k,120) + rxt(k,306) & *y(k,121) + rxt(k,308)*y(k,122) + rxt(k,326)*y(k,129) + rxt(k,380) & *y(k,132) + rxt(k,381)*y(k,108) + rxt(k,382)*y(k,102) + rxt(k,383) & - *y(k,103) + rxt(k,384)*y(k,123) + rxt(k,582)*y(k,118) + rxt(k,583) & - *y(k,128) + rxt(k,584)*y(k,110)) - mat(k,1430) = -(rxt(k,133) + rxt(k,135)) * y(k,98) - mat(k,1920) = -rxt(k,134)*y(k,98) + *y(k,103) + rxt(k,384)*y(k,123) + rxt(k,584)*y(k,118) + rxt(k,585) & + *y(k,128) + rxt(k,586)*y(k,110)) + mat(k,1921) = -(rxt(k,133) + rxt(k,135)) * y(k,98) + mat(k,1236) = -rxt(k,134)*y(k,98) mat(k,170) = -rxt(k,138)*y(k,98) - mat(k,1686) = -rxt(k,141)*y(k,98) - mat(k,1643) = -rxt(k,144)*y(k,98) - mat(k,1194) = -rxt(k,303)*y(k,98) + mat(k,1279) = -rxt(k,141)*y(k,98) + mat(k,1424) = -rxt(k,144)*y(k,98) + mat(k,1195) = -rxt(k,303)*y(k,98) mat(k,175) = -rxt(k,304)*y(k,98) mat(k,265) = -rxt(k,306)*y(k,98) mat(k,1321) = -rxt(k,308)*y(k,98) mat(k,294) = -rxt(k,326)*y(k,98) - mat(k,463) = -rxt(k,380)*y(k,98) + mat(k,465) = -rxt(k,380)*y(k,98) mat(k,285) = -rxt(k,381)*y(k,98) mat(k,248) = -rxt(k,382)*y(k,98) - mat(k,1237) = -rxt(k,383)*y(k,98) + mat(k,1637) = -rxt(k,383)*y(k,98) mat(k,258) = -rxt(k,384)*y(k,98) - mat(k,1151) = -rxt(k,582)*y(k,98) - mat(k,1600) = -rxt(k,583)*y(k,98) - mat(k,234) = -rxt(k,584)*y(k,98) - mat(k,1762) = rxt(k,105)*y(k,90) + rxt(k,317)*y(k,127) + rxt(k,344)*y(k,134) - mat(k,652) = rxt(k,353)*y(k,135) - mat(k,1962) = rxt(k,136)*y(k,135) + mat(k,1152) = -rxt(k,584)*y(k,98) + mat(k,1594) = -rxt(k,585)*y(k,98) + mat(k,234) = -rxt(k,586)*y(k,98) + mat(k,1755) = rxt(k,105)*y(k,90) + rxt(k,317)*y(k,127) + rxt(k,344)*y(k,134) + mat(k,654) = rxt(k,353)*y(k,135) + mat(k,1965) = rxt(k,136)*y(k,135) mat(k,1381) = rxt(k,324)*y(k,127) + rxt(k,333)*y(k,130) + rxt(k,347)*y(k,134) & + rxt(k,360)*y(k,135) - mat(k,1920) = mat(k,1920) + rxt(k,332)*y(k,130) - mat(k,814) = rxt(k,105)*y(k,40) - mat(k,379) = rxt(k,321)*y(k,127) + rxt(k,361)*y(k,135) - mat(k,1555) = rxt(k,317)*y(k,40) + rxt(k,324)*y(k,70) + rxt(k,321)*y(k,125) - mat(k,598) = rxt(k,333)*y(k,70) + rxt(k,332)*y(k,73) - mat(k,1843) = rxt(k,344)*y(k,40) + rxt(k,347)*y(k,70) - mat(k,1879) = rxt(k,353)*y(k,41) + rxt(k,136)*y(k,62) + rxt(k,360)*y(k,70) & + mat(k,1236) = mat(k,1236) + rxt(k,332)*y(k,130) + mat(k,816) = rxt(k,105)*y(k,40) + mat(k,381) = rxt(k,321)*y(k,127) + rxt(k,361)*y(k,135) + mat(k,1549) = rxt(k,317)*y(k,40) + rxt(k,324)*y(k,70) + rxt(k,321)*y(k,125) + mat(k,600) = rxt(k,333)*y(k,70) + rxt(k,332)*y(k,73) + mat(k,1836) = rxt(k,344)*y(k,40) + rxt(k,347)*y(k,70) + mat(k,1872) = rxt(k,353)*y(k,41) + rxt(k,136)*y(k,62) + rxt(k,360)*y(k,70) & + rxt(k,361)*y(k,125) end do end subroutine nlnmat06 @@ -1492,112 +1496,112 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) !---------------------------------------------- do k = 1,avec_len mat(k,167) = -(rxt(k,138)*y(k,98) + rxt(k,139)*y(k,139)) - mat(k,1039) = -rxt(k,138)*y(k,99) - mat(k,2036) = -rxt(k,139)*y(k,99) + mat(k,1041) = -rxt(k,138)*y(k,99) + mat(k,2039) = -rxt(k,139)*y(k,99) mat(k,289) = rxt(k,327)*y(k,139) - mat(k,2036) = mat(k,2036) + rxt(k,327)*y(k,129) - mat(k,490) = -(rxt(k,149)*y(k,128) + rxt(k,172)*y(k,107) + rxt(k,189) & + mat(k,2039) = mat(k,2039) + rxt(k,327)*y(k,129) + mat(k,492) = -(rxt(k,149)*y(k,128) + rxt(k,172)*y(k,107) + rxt(k,189) & *y(k,103) + rxt(k,203)*y(k,105) + rxt(k,207)*y(k,122) + rxt(k,224) & *y(k,119) + rxt(k,242)*y(k,118)) - mat(k,1582) = -rxt(k,149)*y(k,100) - mat(k,1626) = -rxt(k,172)*y(k,100) - mat(k,1220) = -rxt(k,189)*y(k,100) - mat(k,1669) = -rxt(k,203)*y(k,100) + mat(k,1576) = -rxt(k,149)*y(k,100) + mat(k,1407) = -rxt(k,172)*y(k,100) + mat(k,1620) = -rxt(k,189)*y(k,100) + mat(k,1262) = -rxt(k,203)*y(k,100) mat(k,1304) = -rxt(k,207)*y(k,100) - mat(k,1177) = -rxt(k,224)*y(k,100) - mat(k,1133) = -rxt(k,242)*y(k,100) - mat(k,1270) = rxt(k,343)*y(k,134) - mat(k,1835) = rxt(k,343)*y(k,32) - mat(k,900) = -(rxt(k,310)*y(k,122) + (rxt(k,408) + rxt(k,409) + rxt(k,410) & + mat(k,1178) = -rxt(k,224)*y(k,100) + mat(k,1134) = -rxt(k,242)*y(k,100) + mat(k,1670) = rxt(k,343)*y(k,134) + mat(k,1828) = rxt(k,343)*y(k,32) + mat(k,902) = -(rxt(k,310)*y(k,122) + (rxt(k,408) + rxt(k,409) + rxt(k,410) & ) * y(k,40) + rxt(k,412)*y(k,70) + rxt(k,413)*y(k,73) + rxt(k,417) & - *y(k,133) + 4._r8*rxt(k,422)*y(k,101) + rxt(k,434)*y(k,64) & - + rxt(k,439)*y(k,62) + rxt(k,444)*y(k,63) + (rxt(k,454) & - + rxt(k,455)) * y(k,25) + rxt(k,461)*y(k,28) + rxt(k,487)*y(k,3) & - + rxt(k,493)*y(k,5) + rxt(k,533)*y(k,21)) + *y(k,133) + 4._r8*rxt(k,422)*y(k,101) + rxt(k,433)*y(k,64) & + + rxt(k,438)*y(k,62) + rxt(k,443)*y(k,63) + (rxt(k,456) & + + rxt(k,457)) * y(k,25) + rxt(k,463)*y(k,28) + rxt(k,489)*y(k,3) & + + rxt(k,495)*y(k,5) + rxt(k,535)*y(k,21)) mat(k,1317) = -rxt(k,310)*y(k,101) - mat(k,1758) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,101) + mat(k,1751) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,101) mat(k,1377) = -rxt(k,412)*y(k,101) - mat(k,1916) = -rxt(k,413)*y(k,101) - mat(k,983) = -rxt(k,417)*y(k,101) - mat(k,1723) = -rxt(k,434)*y(k,101) - mat(k,1958) = -rxt(k,439)*y(k,101) - mat(k,1806) = -rxt(k,444)*y(k,101) - mat(k,1474) = -(rxt(k,454) + rxt(k,455)) * y(k,101) - mat(k,1099) = -rxt(k,461)*y(k,101) - mat(k,586) = -rxt(k,487)*y(k,101) - mat(k,718) = -rxt(k,493)*y(k,101) - mat(k,434) = -rxt(k,533)*y(k,101) - mat(k,586) = mat(k,586) + rxt(k,486)*y(k,17) - mat(k,718) = mat(k,718) + rxt(k,498)*y(k,133) - mat(k,740) = rxt(k,486)*y(k,3) + rxt(k,450)*y(k,25) + rxt(k,530)*y(k,64) & - + rxt(k,531)*y(k,70) - mat(k,225) = rxt(k,515)*y(k,25) + rxt(k,516)*y(k,133) - mat(k,150) = rxt(k,518)*y(k,25) + rxt(k,519)*y(k,133) - mat(k,434) = mat(k,434) + rxt(k,457)*y(k,28) + rxt(k,534)*y(k,62) - mat(k,421) = rxt(k,538)*y(k,71) - mat(k,1474) = mat(k,1474) + rxt(k,450)*y(k,17) + rxt(k,515)*y(k,18) & - + rxt(k,518)*y(k,20) + rxt(k,453)*y(k,43) - mat(k,1099) = mat(k,1099) + rxt(k,457)*y(k,21) + rxt(k,468)*y(k,133) - mat(k,253) = rxt(k,540)*y(k,133) - mat(k,127) = .500_r8*rxt(k,556)*y(k,133) - mat(k,1758) = mat(k,1758) + rxt(k,411)*y(k,72) + rxt(k,317)*y(k,127) - mat(k,215) = rxt(k,453)*y(k,25) + rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133) - mat(k,2003) = rxt(k,130)*y(k,97) + rxt(k,318)*y(k,127) - mat(k,1515) = rxt(k,319)*y(k,127) - mat(k,1958) = mat(k,1958) + rxt(k,534)*y(k,21) - mat(k,1723) = mat(k,1723) + rxt(k,530)*y(k,17) + rxt(k,437)*y(k,133) - mat(k,1377) = mat(k,1377) + rxt(k,531)*y(k,17) + rxt(k,407)*y(k,43) & + mat(k,1232) = -rxt(k,413)*y(k,101) + mat(k,985) = -rxt(k,417)*y(k,101) + mat(k,1716) = -rxt(k,433)*y(k,101) + mat(k,1961) = -rxt(k,438)*y(k,101) + mat(k,1799) = -rxt(k,443)*y(k,101) + mat(k,1468) = -(rxt(k,456) + rxt(k,457)) * y(k,101) + mat(k,1101) = -rxt(k,463)*y(k,101) + mat(k,588) = -rxt(k,489)*y(k,101) + mat(k,720) = -rxt(k,495)*y(k,101) + mat(k,436) = -rxt(k,535)*y(k,101) + mat(k,588) = mat(k,588) + rxt(k,488)*y(k,17) + mat(k,720) = mat(k,720) + rxt(k,500)*y(k,133) + mat(k,742) = rxt(k,488)*y(k,3) + rxt(k,452)*y(k,25) + rxt(k,532)*y(k,64) & + + rxt(k,533)*y(k,70) + mat(k,225) = rxt(k,517)*y(k,25) + rxt(k,518)*y(k,133) + mat(k,150) = rxt(k,520)*y(k,25) + rxt(k,521)*y(k,133) + mat(k,436) = mat(k,436) + rxt(k,459)*y(k,28) + rxt(k,536)*y(k,62) + mat(k,423) = rxt(k,540)*y(k,71) + mat(k,1468) = mat(k,1468) + rxt(k,452)*y(k,17) + rxt(k,517)*y(k,18) & + + rxt(k,520)*y(k,20) + rxt(k,455)*y(k,43) + mat(k,1101) = mat(k,1101) + rxt(k,459)*y(k,21) + rxt(k,470)*y(k,133) + mat(k,253) = rxt(k,542)*y(k,133) + mat(k,127) = .500_r8*rxt(k,558)*y(k,133) + mat(k,1751) = mat(k,1751) + rxt(k,411)*y(k,72) + rxt(k,317)*y(k,127) + mat(k,215) = rxt(k,455)*y(k,25) + rxt(k,407)*y(k,70) + rxt(k,416)*y(k,133) + mat(k,2006) = rxt(k,130)*y(k,97) + rxt(k,318)*y(k,127) + mat(k,1509) = rxt(k,319)*y(k,127) + mat(k,1961) = mat(k,1961) + rxt(k,536)*y(k,21) + mat(k,1716) = mat(k,1716) + rxt(k,532)*y(k,17) + rxt(k,436)*y(k,133) + mat(k,1377) = mat(k,1377) + rxt(k,533)*y(k,17) + rxt(k,407)*y(k,43) & + rxt(k,347)*y(k,134) - mat(k,788) = rxt(k,538)*y(k,23) - mat(k,1426) = rxt(k,411)*y(k,40) - mat(k,1916) = mat(k,1916) + rxt(k,419)*y(k,133) - mat(k,353) = rxt(k,546)*y(k,133) - mat(k,835) = rxt(k,130)*y(k,49) - mat(k,1551) = rxt(k,317)*y(k,40) + rxt(k,318)*y(k,49) + rxt(k,319)*y(k,51) - mat(k,983) = mat(k,983) + rxt(k,498)*y(k,5) + rxt(k,516)*y(k,18) + rxt(k,519) & - *y(k,20) + rxt(k,468)*y(k,28) + rxt(k,540)*y(k,31) & - + .500_r8*rxt(k,556)*y(k,35) + rxt(k,416)*y(k,43) + rxt(k,437) & - *y(k,64) + rxt(k,419)*y(k,73) + rxt(k,546)*y(k,81) - mat(k,1839) = rxt(k,347)*y(k,70) + mat(k,790) = rxt(k,540)*y(k,23) + mat(k,1917) = rxt(k,411)*y(k,40) + mat(k,1232) = mat(k,1232) + rxt(k,419)*y(k,133) + mat(k,355) = rxt(k,548)*y(k,133) + mat(k,837) = rxt(k,130)*y(k,49) + mat(k,1545) = rxt(k,317)*y(k,40) + rxt(k,318)*y(k,49) + rxt(k,319)*y(k,51) + mat(k,985) = mat(k,985) + rxt(k,500)*y(k,5) + rxt(k,518)*y(k,18) + rxt(k,521) & + *y(k,20) + rxt(k,470)*y(k,28) + rxt(k,542)*y(k,31) & + + .500_r8*rxt(k,558)*y(k,35) + rxt(k,416)*y(k,43) + rxt(k,436) & + *y(k,64) + rxt(k,419)*y(k,73) + rxt(k,548)*y(k,81) + mat(k,1832) = rxt(k,347)*y(k,70) mat(k,246) = -(rxt(k,374)*y(k,139) + rxt(k,382)*y(k,98)) - mat(k,2038) = -rxt(k,374)*y(k,102) - mat(k,1044) = -rxt(k,382)*y(k,102) + mat(k,2041) = -rxt(k,374)*y(k,102) + mat(k,1046) = -rxt(k,382)*y(k,102) mat(k,168) = rxt(k,139)*y(k,139) mat(k,283) = rxt(k,372)*y(k,139) - mat(k,2038) = mat(k,2038) + rxt(k,139)*y(k,99) + rxt(k,372)*y(k,108) - mat(k,1241) = -(rxt(k,185)*y(k,117) + rxt(k,186)*y(k,94) + rxt(k,187)*y(k,92) & + mat(k,2041) = mat(k,2041) + rxt(k,139)*y(k,99) + rxt(k,372)*y(k,108) + mat(k,1650) = -(rxt(k,185)*y(k,117) + rxt(k,186)*y(k,94) + rxt(k,187)*y(k,92) & + rxt(k,188)*y(k,113) + rxt(k,189)*y(k,100) + rxt(k,190) & *y(k,127) + rxt(k,191)*y(k,97) + rxt(k,193)*y(k,115) + rxt(k,194) & *y(k,95) + rxt(k,195)*y(k,90) + rxt(k,196)*y(k,96) + rxt(k,197) & *y(k,112) + rxt(k,198)*y(k,116) + rxt(k,199)*y(k,91) + rxt(k,200) & *y(k,114) + rxt(k,201)*y(k,111) + rxt(k,376)*y(k,139) + rxt(k,383) & *y(k,98)) - mat(k,613) = -rxt(k,185)*y(k,103) - mat(k,1019) = -rxt(k,186)*y(k,103) - mat(k,523) = -rxt(k,187)*y(k,103) - mat(k,871) = -rxt(k,188)*y(k,103) - mat(k,494) = -rxt(k,189)*y(k,103) - mat(k,1559) = -rxt(k,190)*y(k,103) - mat(k,843) = -rxt(k,191)*y(k,103) - mat(k,695) = -rxt(k,193)*y(k,103) - mat(k,508) = -rxt(k,194)*y(k,103) - mat(k,817) = -rxt(k,195)*y(k,103) - mat(k,676) = -rxt(k,196)*y(k,103) - mat(k,554) = -rxt(k,197)*y(k,103) - mat(k,568) = -rxt(k,198)*y(k,103) - mat(k,539) = -rxt(k,199)*y(k,103) - mat(k,630) = -rxt(k,200)*y(k,103) - mat(k,932) = -rxt(k,201)*y(k,103) - mat(k,2071) = -rxt(k,376)*y(k,103) - mat(k,1062) = -rxt(k,383)*y(k,103) + mat(k,620) = -rxt(k,185)*y(k,103) + mat(k,1030) = -rxt(k,186)*y(k,103) + mat(k,530) = -rxt(k,187)*y(k,103) + mat(k,881) = -rxt(k,188)*y(k,103) + mat(k,500) = -rxt(k,189)*y(k,103) + mat(k,1562) = -rxt(k,190)*y(k,103) + mat(k,854) = -rxt(k,191)*y(k,103) + mat(k,703) = -rxt(k,193)*y(k,103) + mat(k,515) = -rxt(k,194)*y(k,103) + mat(k,825) = -rxt(k,195)*y(k,103) + mat(k,683) = -rxt(k,196)*y(k,103) + mat(k,560) = -rxt(k,197)*y(k,103) + mat(k,575) = -rxt(k,198)*y(k,103) + mat(k,546) = -rxt(k,199)*y(k,103) + mat(k,638) = -rxt(k,200)*y(k,103) + mat(k,942) = -rxt(k,201)*y(k,103) + mat(k,2083) = -rxt(k,376)*y(k,103) + mat(k,1073) = -rxt(k,383)*y(k,103) mat(k,249) = rxt(k,374)*y(k,139) mat(k,176) = rxt(k,305)*y(k,139) - mat(k,2071) = mat(k,2071) + rxt(k,374)*y(k,102) + rxt(k,305)*y(k,120) + mat(k,2083) = mat(k,2083) + rxt(k,374)*y(k,102) + rxt(k,305)*y(k,120) mat(k,107) = -(rxt(k,140)*y(k,139)) - mat(k,2033) = -rxt(k,140)*y(k,104) - mat(k,399) = rxt(k,142)*y(k,105) - mat(k,1667) = rxt(k,142)*y(k,58) - mat(k,1700) = -(rxt(k,141)*y(k,98) + rxt(k,142)*y(k,58) + (rxt(k,146) & + mat(k,2036) = -rxt(k,140)*y(k,104) + mat(k,387) = rxt(k,142)*y(k,105) + mat(k,1260) = rxt(k,142)*y(k,58) + mat(k,1284) = -(rxt(k,141)*y(k,98) + rxt(k,142)*y(k,58) + (rxt(k,146) & + rxt(k,269)) * y(k,117) + rxt(k,147)*y(k,90) + (rxt(k,158) & + rxt(k,260)) * y(k,96) + rxt(k,162)*y(k,112) + rxt(k,163) & *y(k,116) + rxt(k,164)*y(k,91) + rxt(k,165)*y(k,114) + rxt(k,166) & @@ -1606,33 +1610,33 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) + rxt(k,203)*y(k,100) + rxt(k,214)*y(k,127) + rxt(k,225)*y(k,97) & + (rxt(k,236) + rxt(k,262)) * y(k,115) + (rxt(k,247) + rxt(k,271) & ) * y(k,95) + rxt(k,378)*y(k,139)) - mat(k,1072) = -rxt(k,141)*y(k,105) - mat(k,408) = -rxt(k,142)*y(k,105) - mat(k,619) = -(rxt(k,146) + rxt(k,269)) * y(k,105) - mat(k,824) = -rxt(k,147)*y(k,105) - mat(k,683) = -(rxt(k,158) + rxt(k,260)) * y(k,105) - mat(k,559) = -rxt(k,162)*y(k,105) - mat(k,574) = -rxt(k,163)*y(k,105) - mat(k,545) = -rxt(k,164)*y(k,105) - mat(k,637) = -rxt(k,165)*y(k,105) - mat(k,940) = -rxt(k,166)*y(k,105) - mat(k,1029) = -(rxt(k,170) + rxt(k,258)) * y(k,105) - mat(k,529) = -(rxt(k,181) + rxt(k,267)) * y(k,105) - mat(k,879) = -(rxt(k,192) + rxt(k,264)) * y(k,105) - mat(k,500) = -rxt(k,203)*y(k,105) - mat(k,1569) = -rxt(k,214)*y(k,105) - mat(k,853) = -rxt(k,225)*y(k,105) - mat(k,702) = -(rxt(k,236) + rxt(k,262)) * y(k,105) - mat(k,515) = -(rxt(k,247) + rxt(k,271)) * y(k,105) - mat(k,2081) = -rxt(k,378)*y(k,105) - mat(k,1251) = rxt(k,376)*y(k,139) - mat(k,109) = rxt(k,140)*y(k,139) - mat(k,2081) = mat(k,2081) + rxt(k,376)*y(k,103) + rxt(k,140)*y(k,104) + mat(k,1065) = -rxt(k,141)*y(k,105) + mat(k,393) = -rxt(k,142)*y(k,105) + mat(k,615) = -(rxt(k,146) + rxt(k,269)) * y(k,105) + mat(k,819) = -rxt(k,147)*y(k,105) + mat(k,678) = -(rxt(k,158) + rxt(k,260)) * y(k,105) + mat(k,556) = -rxt(k,162)*y(k,105) + mat(k,570) = -rxt(k,163)*y(k,105) + mat(k,541) = -rxt(k,164)*y(k,105) + mat(k,632) = -rxt(k,165)*y(k,105) + mat(k,935) = -rxt(k,166)*y(k,105) + mat(k,1022) = -(rxt(k,170) + rxt(k,258)) * y(k,105) + mat(k,525) = -(rxt(k,181) + rxt(k,267)) * y(k,105) + mat(k,874) = -(rxt(k,192) + rxt(k,264)) * y(k,105) + mat(k,496) = -rxt(k,203)*y(k,105) + mat(k,1554) = -rxt(k,214)*y(k,105) + mat(k,846) = -rxt(k,225)*y(k,105) + mat(k,697) = -(rxt(k,236) + rxt(k,262)) * y(k,105) + mat(k,510) = -(rxt(k,247) + rxt(k,271)) * y(k,105) + mat(k,2075) = -rxt(k,378)*y(k,105) + mat(k,1642) = rxt(k,376)*y(k,139) + mat(k,108) = rxt(k,140)*y(k,139) + mat(k,2075) = mat(k,2075) + rxt(k,376)*y(k,103) + rxt(k,140)*y(k,104) mat(k,111) = -(rxt(k,143)*y(k,139)) - mat(k,2034) = -rxt(k,143)*y(k,106) - mat(k,400) = rxt(k,145)*y(k,107) - mat(k,1624) = rxt(k,145)*y(k,58) - mat(k,1656) = -(rxt(k,144)*y(k,98) + rxt(k,145)*y(k,58) + (rxt(k,167) & + mat(k,2037) = -rxt(k,143)*y(k,106) + mat(k,388) = rxt(k,145)*y(k,107) + mat(k,1405) = rxt(k,145)*y(k,58) + mat(k,1432) = -(rxt(k,144)*y(k,98) + rxt(k,145)*y(k,58) + (rxt(k,167) & + rxt(k,270)) * y(k,117) + (rxt(k,168) + rxt(k,265)) * y(k,94) & + (rxt(k,169) + rxt(k,268)) * y(k,92) + (rxt(k,171) + rxt(k,266) & ) * y(k,113) + rxt(k,172)*y(k,100) + rxt(k,173)*y(k,127) & @@ -1641,86 +1645,89 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) + (rxt(k,178) + rxt(k,261)) * y(k,96) + rxt(k,179)*y(k,112) & + rxt(k,180)*y(k,116) + rxt(k,182)*y(k,91) + rxt(k,183)*y(k,114) & + rxt(k,184)*y(k,111)) - mat(k,1071) = -rxt(k,144)*y(k,107) - mat(k,407) = -rxt(k,145)*y(k,107) - mat(k,618) = -(rxt(k,167) + rxt(k,270)) * y(k,107) - mat(k,1028) = -(rxt(k,168) + rxt(k,265)) * y(k,107) - mat(k,528) = -(rxt(k,169) + rxt(k,268)) * y(k,107) - mat(k,878) = -(rxt(k,171) + rxt(k,266)) * y(k,107) - mat(k,499) = -rxt(k,172)*y(k,107) - mat(k,1568) = -rxt(k,173)*y(k,107) - mat(k,852) = -rxt(k,174)*y(k,107) - mat(k,701) = -(rxt(k,175) + rxt(k,263)) * y(k,107) - mat(k,514) = -(rxt(k,176) + rxt(k,259)) * y(k,107) - mat(k,823) = -rxt(k,177)*y(k,107) - mat(k,682) = -(rxt(k,178) + rxt(k,261)) * y(k,107) + mat(k,1068) = -rxt(k,144)*y(k,107) + mat(k,395) = -rxt(k,145)*y(k,107) + mat(k,617) = -(rxt(k,167) + rxt(k,270)) * y(k,107) + mat(k,1025) = -(rxt(k,168) + rxt(k,265)) * y(k,107) + mat(k,527) = -(rxt(k,169) + rxt(k,268)) * y(k,107) + mat(k,877) = -(rxt(k,171) + rxt(k,266)) * y(k,107) + mat(k,498) = -rxt(k,172)*y(k,107) + mat(k,1557) = -rxt(k,173)*y(k,107) + mat(k,849) = -rxt(k,174)*y(k,107) + mat(k,700) = -(rxt(k,175) + rxt(k,263)) * y(k,107) + mat(k,513) = -(rxt(k,176) + rxt(k,259)) * y(k,107) + mat(k,821) = -rxt(k,177)*y(k,107) + mat(k,681) = -(rxt(k,178) + rxt(k,261)) * y(k,107) mat(k,558) = -rxt(k,179)*y(k,107) - mat(k,573) = -rxt(k,180)*y(k,107) - mat(k,544) = -rxt(k,182)*y(k,107) - mat(k,636) = -rxt(k,183)*y(k,107) - mat(k,939) = -rxt(k,184)*y(k,107) - mat(k,1699) = rxt(k,378)*y(k,139) - mat(k,113) = rxt(k,143)*y(k,139) - mat(k,2080) = rxt(k,378)*y(k,105) + rxt(k,143)*y(k,106) + mat(k,572) = -rxt(k,180)*y(k,107) + mat(k,543) = -rxt(k,182)*y(k,107) + mat(k,635) = -rxt(k,183)*y(k,107) + mat(k,938) = -rxt(k,184)*y(k,107) + mat(k,1287) = rxt(k,378)*y(k,139) + mat(k,112) = rxt(k,143)*y(k,139) + mat(k,2078) = rxt(k,378)*y(k,105) + rxt(k,143)*y(k,106) mat(k,284) = -(rxt(k,372)*y(k,139) + rxt(k,381)*y(k,98)) - mat(k,2042) = -rxt(k,372)*y(k,108) - mat(k,1048) = -rxt(k,381)*y(k,108) - mat(k,1750) = rxt(k,309)*y(k,122) - mat(k,890) = rxt(k,310)*y(k,122) + mat(k,2045) = -rxt(k,372)*y(k,108) + mat(k,1050) = -rxt(k,381)*y(k,108) + mat(k,1743) = rxt(k,309)*y(k,122) + mat(k,892) = rxt(k,310)*y(k,122) mat(k,1303) = rxt(k,309)*y(k,40) + rxt(k,310)*y(k,101) + rxt(k,311)*y(k,133) mat(k,291) = rxt(k,328)*y(k,139) - mat(k,968) = rxt(k,311)*y(k,122) - mat(k,2042) = mat(k,2042) + rxt(k,328)*y(k,129) - mat(k,300) = -(rxt(k,424)*y(k,70) + rxt(k,425)*y(k,72) + rxt(k,596)*y(k,136)) - mat(k,1355) = -rxt(k,424)*y(k,109) - mat(k,1411) = -rxt(k,425)*y(k,109) - mat(k,386) = -rxt(k,596)*y(k,109) - mat(k,1355) = mat(k,1355) + rxt(k,586)*y(k,110) - mat(k,1050) = .900_r8*rxt(k,584)*y(k,110) + .800_r8*rxt(k,582)*y(k,118) - mat(k,231) = rxt(k,586)*y(k,70) + .900_r8*rxt(k,584)*y(k,98) - mat(k,1129) = .800_r8*rxt(k,582)*y(k,98) - mat(k,230) = -(rxt(k,584)*y(k,98) + rxt(k,585)*y(k,72) + (rxt(k,586) & - + rxt(k,587)) * y(k,70)) - mat(k,1043) = -rxt(k,584)*y(k,110) - mat(k,1408) = -rxt(k,585)*y(k,110) - mat(k,1351) = -(rxt(k,586) + rxt(k,587)) * y(k,110) - mat(k,926) = -(rxt(k,161)*y(k,128) + rxt(k,166)*y(k,105) + rxt(k,184) & + mat(k,970) = rxt(k,311)*y(k,122) + mat(k,2045) = mat(k,2045) + rxt(k,328)*y(k,129) + mat(k,343) = -(rxt(k,425)*y(k,62) + rxt(k,448)*y(k,98) + rxt(k,449)*y(k,72) & + + rxt(k,598)*y(k,136)) + mat(k,1946) = -rxt(k,425)*y(k,109) + mat(k,1053) = -rxt(k,448)*y(k,109) + mat(k,1903) = -rxt(k,449)*y(k,109) + mat(k,403) = -rxt(k,598)*y(k,109) + mat(k,1359) = rxt(k,588)*y(k,110) + mat(k,1053) = mat(k,1053) + .900_r8*rxt(k,586)*y(k,110) + .800_r8*rxt(k,584) & + *y(k,118) + mat(k,231) = rxt(k,588)*y(k,70) + .900_r8*rxt(k,586)*y(k,98) + mat(k,1131) = .800_r8*rxt(k,584)*y(k,98) + mat(k,230) = -(rxt(k,586)*y(k,98) + rxt(k,587)*y(k,72) + (rxt(k,588) & + + rxt(k,589)) * y(k,70)) + mat(k,1045) = -rxt(k,586)*y(k,110) + mat(k,1899) = -rxt(k,587)*y(k,110) + mat(k,1351) = -(rxt(k,588) + rxt(k,589)) * y(k,110) + mat(k,928) = -(rxt(k,161)*y(k,128) + rxt(k,166)*y(k,105) + rxt(k,184) & *y(k,107) + rxt(k,201)*y(k,103) + rxt(k,219)*y(k,122) + rxt(k,237) & *y(k,119) + rxt(k,254)*y(k,118) + rxt(k,285)*y(k,25) + rxt(k,286) & *y(k,28) + rxt(k,287)*y(k,40) + rxt(k,288)*y(k,139) + rxt(k,289) & *y(k,49) + rxt(k,290)*y(k,51) + rxt(k,291)*y(k,63) + rxt(k,292) & *y(k,73)) - mat(k,1597) = -rxt(k,161)*y(k,111) - mat(k,1683) = -rxt(k,166)*y(k,111) - mat(k,1640) = -rxt(k,184)*y(k,111) - mat(k,1234) = -rxt(k,201)*y(k,111) + mat(k,1591) = -rxt(k,161)*y(k,111) + mat(k,1276) = -rxt(k,166)*y(k,111) + mat(k,1421) = -rxt(k,184)*y(k,111) + mat(k,1634) = -rxt(k,201)*y(k,111) mat(k,1318) = -rxt(k,219)*y(k,111) - mat(k,1191) = -rxt(k,237)*y(k,111) - mat(k,1148) = -rxt(k,254)*y(k,111) - mat(k,1475) = -rxt(k,285)*y(k,111) - mat(k,1100) = -rxt(k,286)*y(k,111) - mat(k,1759) = -rxt(k,287)*y(k,111) - mat(k,2064) = -rxt(k,288)*y(k,111) - mat(k,2004) = -rxt(k,289)*y(k,111) - mat(k,1516) = -rxt(k,290)*y(k,111) - mat(k,1807) = -rxt(k,291)*y(k,111) - mat(k,1917) = -rxt(k,292)*y(k,111) - mat(k,1959) = rxt(k,111)*y(k,93) + rxt(k,280)*y(k,94) + rxt(k,123)*y(k,96) & + mat(k,1192) = -rxt(k,237)*y(k,111) + mat(k,1149) = -rxt(k,254)*y(k,111) + mat(k,1469) = -rxt(k,285)*y(k,111) + mat(k,1102) = -rxt(k,286)*y(k,111) + mat(k,1752) = -rxt(k,287)*y(k,111) + mat(k,2067) = -rxt(k,288)*y(k,111) + mat(k,2007) = -rxt(k,289)*y(k,111) + mat(k,1510) = -rxt(k,290)*y(k,111) + mat(k,1800) = -rxt(k,291)*y(k,111) + mat(k,1233) = -rxt(k,292)*y(k,111) + mat(k,1962) = rxt(k,111)*y(k,93) + rxt(k,280)*y(k,94) + rxt(k,123)*y(k,96) & + rxt(k,279)*y(k,130) - mat(k,1807) = mat(k,1807) + rxt(k,110)*y(k,90) + rxt(k,320)*y(k,127) & + mat(k,1800) = mat(k,1800) + rxt(k,110)*y(k,90) + rxt(k,320)*y(k,127) & + rxt(k,278)*y(k,130) + rxt(k,346)*y(k,134) + rxt(k,359) & *y(k,135) mat(k,1378) = rxt(k,301)*y(k,113) - mat(k,1917) = mat(k,1917) + rxt(k,302)*y(k,113) - mat(k,813) = rxt(k,110)*y(k,63) - mat(k,371) = rxt(k,111)*y(k,62) - mat(k,1012) = rxt(k,280)*y(k,62) - mat(k,672) = rxt(k,123)*y(k,62) - mat(k,867) = rxt(k,301)*y(k,70) + rxt(k,302)*y(k,73) - mat(k,1552) = rxt(k,320)*y(k,63) - mat(k,596) = rxt(k,279)*y(k,62) + rxt(k,278)*y(k,63) - mat(k,1840) = rxt(k,346)*y(k,63) - mat(k,1876) = rxt(k,359)*y(k,63) + mat(k,1233) = mat(k,1233) + rxt(k,302)*y(k,113) + mat(k,815) = rxt(k,110)*y(k,63) + mat(k,373) = rxt(k,111)*y(k,62) + mat(k,1014) = rxt(k,280)*y(k,62) + mat(k,674) = rxt(k,123)*y(k,62) + mat(k,869) = rxt(k,301)*y(k,70) + rxt(k,302)*y(k,73) + mat(k,1546) = rxt(k,320)*y(k,63) + mat(k,598) = rxt(k,279)*y(k,62) + rxt(k,278)*y(k,63) + mat(k,1833) = rxt(k,346)*y(k,63) + mat(k,1869) = rxt(k,359)*y(k,63) end do end subroutine nlnmat07 subroutine nlnmat08( avec_len, mat, y, rxt ) @@ -1741,184 +1748,184 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,550) = -(rxt(k,156)*y(k,128) + rxt(k,162)*y(k,105) + rxt(k,179) & + mat(k,552) = -(rxt(k,156)*y(k,128) + rxt(k,162)*y(k,105) + rxt(k,179) & *y(k,107) + rxt(k,197)*y(k,103) + rxt(k,215)*y(k,122) + rxt(k,232) & *y(k,119) + rxt(k,250)*y(k,118)) - mat(k,1586) = -rxt(k,156)*y(k,112) - mat(k,1673) = -rxt(k,162)*y(k,112) - mat(k,1630) = -rxt(k,179)*y(k,112) - mat(k,1224) = -rxt(k,197)*y(k,112) + mat(k,1580) = -rxt(k,156)*y(k,112) + mat(k,1266) = -rxt(k,162)*y(k,112) + mat(k,1411) = -rxt(k,179)*y(k,112) + mat(k,1624) = -rxt(k,197)*y(k,112) mat(k,1308) = -rxt(k,215)*y(k,112) - mat(k,1181) = -rxt(k,232)*y(k,112) - mat(k,1137) = -rxt(k,250)*y(k,112) - mat(k,1948) = rxt(k,122)*y(k,96) - mat(k,668) = rxt(k,122)*y(k,62) - mat(k,923) = rxt(k,288)*y(k,139) - mat(k,2052) = rxt(k,288)*y(k,111) - mat(k,866) = -(rxt(k,148)*y(k,128) + (rxt(k,171) + rxt(k,266)) * y(k,107) & + mat(k,1182) = -rxt(k,232)*y(k,112) + mat(k,1138) = -rxt(k,250)*y(k,112) + mat(k,1951) = rxt(k,122)*y(k,96) + mat(k,670) = rxt(k,122)*y(k,62) + mat(k,925) = rxt(k,288)*y(k,139) + mat(k,2055) = rxt(k,288)*y(k,111) + mat(k,868) = -(rxt(k,148)*y(k,128) + (rxt(k,171) + rxt(k,266)) * y(k,107) & + rxt(k,188)*y(k,103) + (rxt(k,192) + rxt(k,264)) * y(k,105) & + rxt(k,206)*y(k,122) + rxt(k,223)*y(k,119) + rxt(k,241) & *y(k,118) + (rxt(k,276) + rxt(k,298)) * y(k,49) + rxt(k,296) & *y(k,139) + rxt(k,300)*y(k,51) + rxt(k,301)*y(k,70) + rxt(k,302) & *y(k,73)) - mat(k,1595) = -rxt(k,148)*y(k,113) - mat(k,1638) = -(rxt(k,171) + rxt(k,266)) * y(k,113) - mat(k,1232) = -rxt(k,188)*y(k,113) - mat(k,1681) = -(rxt(k,192) + rxt(k,264)) * y(k,113) + mat(k,1589) = -rxt(k,148)*y(k,113) + mat(k,1419) = -(rxt(k,171) + rxt(k,266)) * y(k,113) + mat(k,1632) = -rxt(k,188)*y(k,113) + mat(k,1274) = -(rxt(k,192) + rxt(k,264)) * y(k,113) mat(k,1316) = -rxt(k,206)*y(k,113) - mat(k,1189) = -rxt(k,223)*y(k,113) - mat(k,1146) = -rxt(k,241)*y(k,113) - mat(k,2002) = -(rxt(k,276) + rxt(k,298)) * y(k,113) - mat(k,2062) = -rxt(k,296)*y(k,113) - mat(k,1514) = -rxt(k,300)*y(k,113) + mat(k,1190) = -rxt(k,223)*y(k,113) + mat(k,1147) = -rxt(k,241)*y(k,113) + mat(k,2005) = -(rxt(k,276) + rxt(k,298)) * y(k,113) + mat(k,2065) = -rxt(k,296)*y(k,113) + mat(k,1508) = -rxt(k,300)*y(k,113) mat(k,1376) = -rxt(k,301)*y(k,113) - mat(k,1915) = -rxt(k,302)*y(k,113) - mat(k,1514) = mat(k,1514) + rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) & + mat(k,1231) = -rxt(k,302)*y(k,113) + mat(k,1508) = mat(k,1508) + rxt(k,109)*y(k,90) + rxt(k,124)*y(k,94) & + rxt(k,290)*y(k,111) + rxt(k,319)*y(k,127) + rxt(k,357) & *y(k,135) - mat(k,1957) = rxt(k,272)*y(k,130) - mat(k,1805) = rxt(k,281)*y(k,94) + rxt(k,120)*y(k,96) + rxt(k,291)*y(k,111) & + mat(k,1960) = rxt(k,272)*y(k,130) + mat(k,1798) = rxt(k,281)*y(k,94) + rxt(k,120)*y(k,96) + rxt(k,291)*y(k,111) & + rxt(k,277)*y(k,130) - mat(k,1915) = mat(k,1915) + rxt(k,292)*y(k,111) - mat(k,812) = rxt(k,109)*y(k,51) - mat(k,1011) = rxt(k,124)*y(k,51) + rxt(k,281)*y(k,63) - mat(k,671) = rxt(k,120)*y(k,63) - mat(k,925) = rxt(k,290)*y(k,51) + rxt(k,291)*y(k,63) + rxt(k,292)*y(k,73) - mat(k,1550) = rxt(k,319)*y(k,51) - mat(k,595) = rxt(k,272)*y(k,62) + rxt(k,277)*y(k,63) - mat(k,1874) = rxt(k,357)*y(k,51) - mat(k,625) = -(rxt(k,160)*y(k,128) + rxt(k,165)*y(k,105) + rxt(k,183) & + mat(k,1231) = mat(k,1231) + rxt(k,292)*y(k,111) + mat(k,814) = rxt(k,109)*y(k,51) + mat(k,1013) = rxt(k,124)*y(k,51) + rxt(k,281)*y(k,63) + mat(k,673) = rxt(k,120)*y(k,63) + mat(k,927) = rxt(k,290)*y(k,51) + rxt(k,291)*y(k,63) + rxt(k,292)*y(k,73) + mat(k,1544) = rxt(k,319)*y(k,51) + mat(k,597) = rxt(k,272)*y(k,62) + rxt(k,277)*y(k,63) + mat(k,1867) = rxt(k,357)*y(k,51) + mat(k,627) = -(rxt(k,160)*y(k,128) + rxt(k,165)*y(k,105) + rxt(k,183) & *y(k,107) + rxt(k,200)*y(k,103) + rxt(k,218)*y(k,122) + rxt(k,235) & *y(k,119) + rxt(k,253)*y(k,118) + rxt(k,293)*y(k,58)) - mat(k,1589) = -rxt(k,160)*y(k,114) - mat(k,1676) = -rxt(k,165)*y(k,114) - mat(k,1633) = -rxt(k,183)*y(k,114) - mat(k,1227) = -rxt(k,200)*y(k,114) + mat(k,1583) = -rxt(k,160)*y(k,114) + mat(k,1269) = -rxt(k,165)*y(k,114) + mat(k,1414) = -rxt(k,183)*y(k,114) + mat(k,1627) = -rxt(k,200)*y(k,114) mat(k,1311) = -rxt(k,218)*y(k,114) - mat(k,1184) = -rxt(k,235)*y(k,114) - mat(k,1140) = -rxt(k,253)*y(k,114) - mat(k,403) = -rxt(k,293)*y(k,114) - mat(k,690) = rxt(k,294)*y(k,139) - mat(k,2054) = rxt(k,294)*y(k,115) - mat(k,691) = -(rxt(k,152)*y(k,128) + (rxt(k,175) + rxt(k,263)) * y(k,107) & + mat(k,1185) = -rxt(k,235)*y(k,114) + mat(k,1141) = -rxt(k,253)*y(k,114) + mat(k,391) = -rxt(k,293)*y(k,114) + mat(k,692) = rxt(k,294)*y(k,139) + mat(k,2057) = rxt(k,294)*y(k,115) + mat(k,693) = -(rxt(k,152)*y(k,128) + (rxt(k,175) + rxt(k,263)) * y(k,107) & + rxt(k,193)*y(k,103) + rxt(k,210)*y(k,122) + rxt(k,228) & *y(k,119) + (rxt(k,236) + rxt(k,262)) * y(k,105) + rxt(k,245) & *y(k,118) + rxt(k,294)*y(k,139) + rxt(k,295)*y(k,51) + rxt(k,297) & *y(k,58)) - mat(k,1591) = -rxt(k,152)*y(k,115) - mat(k,1635) = -(rxt(k,175) + rxt(k,263)) * y(k,115) - mat(k,1229) = -rxt(k,193)*y(k,115) + mat(k,1585) = -rxt(k,152)*y(k,115) + mat(k,1416) = -(rxt(k,175) + rxt(k,263)) * y(k,115) + mat(k,1629) = -rxt(k,193)*y(k,115) mat(k,1313) = -rxt(k,210)*y(k,115) - mat(k,1186) = -rxt(k,228)*y(k,115) - mat(k,1678) = -(rxt(k,236) + rxt(k,262)) * y(k,115) - mat(k,1142) = -rxt(k,245)*y(k,115) - mat(k,2057) = -rxt(k,294)*y(k,115) - mat(k,1510) = -rxt(k,295)*y(k,115) - mat(k,404) = -rxt(k,297)*y(k,115) - mat(k,1800) = rxt(k,121)*y(k,96) - mat(k,670) = rxt(k,121)*y(k,63) - mat(k,864) = rxt(k,296)*y(k,139) - mat(k,2057) = mat(k,2057) + rxt(k,296)*y(k,113) - mat(k,564) = -(rxt(k,157)*y(k,128) + rxt(k,163)*y(k,105) + rxt(k,180) & + mat(k,1187) = -rxt(k,228)*y(k,115) + mat(k,1271) = -(rxt(k,236) + rxt(k,262)) * y(k,115) + mat(k,1143) = -rxt(k,245)*y(k,115) + mat(k,2060) = -rxt(k,294)*y(k,115) + mat(k,1504) = -rxt(k,295)*y(k,115) + mat(k,392) = -rxt(k,297)*y(k,115) + mat(k,1793) = rxt(k,121)*y(k,96) + mat(k,672) = rxt(k,121)*y(k,63) + mat(k,866) = rxt(k,296)*y(k,139) + mat(k,2060) = mat(k,2060) + rxt(k,296)*y(k,113) + mat(k,566) = -(rxt(k,157)*y(k,128) + rxt(k,163)*y(k,105) + rxt(k,180) & *y(k,107) + rxt(k,198)*y(k,103) + rxt(k,216)*y(k,122) + rxt(k,233) & *y(k,119) + rxt(k,251)*y(k,118) + rxt(k,299)*y(k,51)) - mat(k,1587) = -rxt(k,157)*y(k,116) - mat(k,1674) = -rxt(k,163)*y(k,116) - mat(k,1631) = -rxt(k,180)*y(k,116) - mat(k,1225) = -rxt(k,198)*y(k,116) + mat(k,1581) = -rxt(k,157)*y(k,116) + mat(k,1267) = -rxt(k,163)*y(k,116) + mat(k,1412) = -rxt(k,180)*y(k,116) + mat(k,1625) = -rxt(k,198)*y(k,116) mat(k,1309) = -rxt(k,216)*y(k,116) - mat(k,1182) = -rxt(k,233)*y(k,116) - mat(k,1138) = -rxt(k,251)*y(k,116) - mat(k,1507) = -rxt(k,299)*y(k,116) - mat(k,1994) = rxt(k,276)*y(k,113) - mat(k,862) = rxt(k,276)*y(k,49) - mat(k,609) = -((rxt(k,146) + rxt(k,269)) * y(k,105) + (rxt(k,167) + rxt(k,270) & + mat(k,1183) = -rxt(k,233)*y(k,116) + mat(k,1139) = -rxt(k,251)*y(k,116) + mat(k,1501) = -rxt(k,299)*y(k,116) + mat(k,1997) = rxt(k,276)*y(k,113) + mat(k,864) = rxt(k,276)*y(k,49) + mat(k,611) = -((rxt(k,146) + rxt(k,269)) * y(k,105) + (rxt(k,167) + rxt(k,270) & ) * y(k,107) + rxt(k,185)*y(k,103) + rxt(k,202)*y(k,122) & + rxt(k,220)*y(k,119) + rxt(k,238)*y(k,118) + rxt(k,255) & *y(k,128)) - mat(k,1675) = -(rxt(k,146) + rxt(k,269)) * y(k,117) - mat(k,1632) = -(rxt(k,167) + rxt(k,270)) * y(k,117) - mat(k,1226) = -rxt(k,185)*y(k,117) + mat(k,1268) = -(rxt(k,146) + rxt(k,269)) * y(k,117) + mat(k,1413) = -(rxt(k,167) + rxt(k,270)) * y(k,117) + mat(k,1626) = -rxt(k,185)*y(k,117) mat(k,1310) = -rxt(k,202)*y(k,117) - mat(k,1183) = -rxt(k,220)*y(k,117) - mat(k,1139) = -rxt(k,238)*y(k,117) - mat(k,1588) = -rxt(k,255)*y(k,117) - mat(k,1508) = rxt(k,300)*y(k,113) + rxt(k,295)*y(k,115) + rxt(k,299)*y(k,116) - mat(k,402) = rxt(k,293)*y(k,114) + rxt(k,297)*y(k,115) - mat(k,863) = rxt(k,300)*y(k,51) - mat(k,624) = rxt(k,293)*y(k,58) - mat(k,689) = rxt(k,295)*y(k,51) + rxt(k,297)*y(k,58) - mat(k,565) = rxt(k,299)*y(k,51) - mat(k,1153) = -(rxt(k,238)*y(k,117) + rxt(k,239)*y(k,94) + rxt(k,240)*y(k,92) & + mat(k,1184) = -rxt(k,220)*y(k,117) + mat(k,1140) = -rxt(k,238)*y(k,117) + mat(k,1582) = -rxt(k,255)*y(k,117) + mat(k,1502) = rxt(k,300)*y(k,113) + rxt(k,295)*y(k,115) + rxt(k,299)*y(k,116) + mat(k,390) = rxt(k,293)*y(k,114) + rxt(k,297)*y(k,115) + mat(k,865) = rxt(k,300)*y(k,51) + mat(k,626) = rxt(k,293)*y(k,58) + mat(k,691) = rxt(k,295)*y(k,51) + rxt(k,297)*y(k,58) + mat(k,567) = rxt(k,299)*y(k,51) + mat(k,1154) = -(rxt(k,238)*y(k,117) + rxt(k,239)*y(k,94) + rxt(k,240)*y(k,92) & + rxt(k,241)*y(k,113) + rxt(k,242)*y(k,100) + rxt(k,243) & *y(k,127) + rxt(k,244)*y(k,97) + rxt(k,245)*y(k,115) + rxt(k,246) & *y(k,95) + rxt(k,248)*y(k,90) + rxt(k,249)*y(k,96) + rxt(k,250) & *y(k,112) + rxt(k,251)*y(k,116) + rxt(k,252)*y(k,91) + rxt(k,253) & *y(k,114) + rxt(k,254)*y(k,111) + rxt(k,365)*y(k,139) + rxt(k,368) & - *y(k,32) + rxt(k,582)*y(k,98)) - mat(k,611) = -rxt(k,238)*y(k,118) - mat(k,1017) = -rxt(k,239)*y(k,118) - mat(k,521) = -rxt(k,240)*y(k,118) - mat(k,869) = -rxt(k,241)*y(k,118) - mat(k,492) = -rxt(k,242)*y(k,118) - mat(k,1557) = -rxt(k,243)*y(k,118) - mat(k,841) = -rxt(k,244)*y(k,118) - mat(k,693) = -rxt(k,245)*y(k,118) - mat(k,506) = -rxt(k,246)*y(k,118) - mat(k,815) = -rxt(k,248)*y(k,118) - mat(k,674) = -rxt(k,249)*y(k,118) - mat(k,552) = -rxt(k,250)*y(k,118) - mat(k,566) = -rxt(k,251)*y(k,118) - mat(k,537) = -rxt(k,252)*y(k,118) - mat(k,628) = -rxt(k,253)*y(k,118) - mat(k,930) = -rxt(k,254)*y(k,118) - mat(k,2069) = -rxt(k,365)*y(k,118) - mat(k,1281) = -rxt(k,368)*y(k,118) - mat(k,1060) = -rxt(k,582)*y(k,118) - mat(k,451) = rxt(k,591)*y(k,128) - mat(k,1964) = rxt(k,593)*y(k,128) - mat(k,1383) = rxt(k,586)*y(k,110) - mat(k,1432) = rxt(k,590)*y(k,124) - mat(k,235) = rxt(k,586)*y(k,70) - mat(k,320) = rxt(k,590)*y(k,72) - mat(k,1602) = rxt(k,591)*y(k,56) + rxt(k,593)*y(k,62) - mat(k,1197) = -(rxt(k,220)*y(k,117) + rxt(k,221)*y(k,94) + rxt(k,222)*y(k,92) & + *y(k,32) + rxt(k,584)*y(k,98)) + mat(k,613) = -rxt(k,238)*y(k,118) + mat(k,1019) = -rxt(k,239)*y(k,118) + mat(k,523) = -rxt(k,240)*y(k,118) + mat(k,871) = -rxt(k,241)*y(k,118) + mat(k,494) = -rxt(k,242)*y(k,118) + mat(k,1551) = -rxt(k,243)*y(k,118) + mat(k,843) = -rxt(k,244)*y(k,118) + mat(k,695) = -rxt(k,245)*y(k,118) + mat(k,508) = -rxt(k,246)*y(k,118) + mat(k,817) = -rxt(k,248)*y(k,118) + mat(k,676) = -rxt(k,249)*y(k,118) + mat(k,554) = -rxt(k,250)*y(k,118) + mat(k,568) = -rxt(k,251)*y(k,118) + mat(k,539) = -rxt(k,252)*y(k,118) + mat(k,630) = -rxt(k,253)*y(k,118) + mat(k,932) = -rxt(k,254)*y(k,118) + mat(k,2072) = -rxt(k,365)*y(k,118) + mat(k,1681) = -rxt(k,368)*y(k,118) + mat(k,1062) = -rxt(k,584)*y(k,118) + mat(k,453) = rxt(k,593)*y(k,128) + mat(k,1967) = rxt(k,595)*y(k,128) + mat(k,1383) = rxt(k,588)*y(k,110) + mat(k,1923) = rxt(k,592)*y(k,124) + mat(k,235) = rxt(k,588)*y(k,70) + mat(k,312) = rxt(k,592)*y(k,72) + mat(k,1596) = rxt(k,593)*y(k,56) + rxt(k,595)*y(k,62) + mat(k,1198) = -(rxt(k,220)*y(k,117) + rxt(k,221)*y(k,94) + rxt(k,222)*y(k,92) & + rxt(k,223)*y(k,113) + rxt(k,224)*y(k,100) + rxt(k,226) & *y(k,127) + rxt(k,227)*y(k,97) + rxt(k,228)*y(k,115) + rxt(k,229) & *y(k,95) + rxt(k,230)*y(k,90) + rxt(k,231)*y(k,96) + rxt(k,232) & *y(k,112) + rxt(k,233)*y(k,116) + rxt(k,234)*y(k,91) + rxt(k,235) & *y(k,114) + rxt(k,237)*y(k,111) + rxt(k,303)*y(k,98) + rxt(k,367) & *y(k,139)) - mat(k,612) = -rxt(k,220)*y(k,119) - mat(k,1018) = -rxt(k,221)*y(k,119) - mat(k,522) = -rxt(k,222)*y(k,119) - mat(k,870) = -rxt(k,223)*y(k,119) - mat(k,493) = -rxt(k,224)*y(k,119) - mat(k,1558) = -rxt(k,226)*y(k,119) - mat(k,842) = -rxt(k,227)*y(k,119) - mat(k,694) = -rxt(k,228)*y(k,119) - mat(k,507) = -rxt(k,229)*y(k,119) - mat(k,816) = -rxt(k,230)*y(k,119) - mat(k,675) = -rxt(k,231)*y(k,119) - mat(k,553) = -rxt(k,232)*y(k,119) - mat(k,567) = -rxt(k,233)*y(k,119) - mat(k,538) = -rxt(k,234)*y(k,119) - mat(k,629) = -rxt(k,235)*y(k,119) - mat(k,931) = -rxt(k,237)*y(k,119) - mat(k,1061) = -rxt(k,303)*y(k,119) - mat(k,2070) = -rxt(k,367)*y(k,119) + mat(k,614) = -rxt(k,220)*y(k,119) + mat(k,1020) = -rxt(k,221)*y(k,119) + mat(k,524) = -rxt(k,222)*y(k,119) + mat(k,872) = -rxt(k,223)*y(k,119) + mat(k,495) = -rxt(k,224)*y(k,119) + mat(k,1552) = -rxt(k,226)*y(k,119) + mat(k,844) = -rxt(k,227)*y(k,119) + mat(k,696) = -rxt(k,228)*y(k,119) + mat(k,509) = -rxt(k,229)*y(k,119) + mat(k,818) = -rxt(k,230)*y(k,119) + mat(k,677) = -rxt(k,231)*y(k,119) + mat(k,555) = -rxt(k,232)*y(k,119) + mat(k,569) = -rxt(k,233)*y(k,119) + mat(k,540) = -rxt(k,234)*y(k,119) + mat(k,631) = -rxt(k,235)*y(k,119) + mat(k,933) = -rxt(k,237)*y(k,119) + mat(k,1063) = -rxt(k,303)*y(k,119) + mat(k,2073) = -rxt(k,367)*y(k,119) mat(k,1324) = rxt(k,366)*y(k,139) - mat(k,2070) = mat(k,2070) + rxt(k,366)*y(k,122) + mat(k,2073) = mat(k,2073) + rxt(k,366)*y(k,122) mat(k,173) = -(rxt(k,304)*y(k,98) + rxt(k,305)*y(k,139)) - mat(k,1040) = -rxt(k,304)*y(k,120) - mat(k,2037) = -rxt(k,305)*y(k,120) - mat(k,1175) = rxt(k,367)*y(k,139) - mat(k,2037) = mat(k,2037) + rxt(k,367)*y(k,119) + mat(k,1042) = -rxt(k,304)*y(k,120) + mat(k,2040) = -rxt(k,305)*y(k,120) + mat(k,1176) = rxt(k,367)*y(k,139) + mat(k,2040) = mat(k,2040) + rxt(k,367)*y(k,119) mat(k,264) = -(rxt(k,306)*y(k,98) + rxt(k,307)*y(k,139)) - mat(k,1046) = -rxt(k,306)*y(k,121) - mat(k,2040) = -rxt(k,307)*y(k,121) - mat(k,1265) = rxt(k,368)*y(k,118) + rxt(k,312)*y(k,123) - mat(k,1128) = rxt(k,368)*y(k,32) + mat(k,1048) = -rxt(k,306)*y(k,121) + mat(k,2043) = -rxt(k,307)*y(k,121) + mat(k,1665) = rxt(k,368)*y(k,118) + rxt(k,312)*y(k,123) + mat(k,1130) = rxt(k,368)*y(k,32) mat(k,257) = rxt(k,312)*y(k,32) mat(k,1327) = -(rxt(k,202)*y(k,117) + rxt(k,204)*y(k,94) + rxt(k,205)*y(k,92) & + rxt(k,206)*y(k,113) + rxt(k,207)*y(k,100) + rxt(k,208) & @@ -1928,31 +1935,31 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) *y(k,114) + rxt(k,219)*y(k,111) + rxt(k,308)*y(k,98) + rxt(k,309) & *y(k,40) + rxt(k,310)*y(k,101) + rxt(k,311)*y(k,133) + rxt(k,366) & *y(k,139)) - mat(k,614) = -rxt(k,202)*y(k,122) - mat(k,1021) = -rxt(k,204)*y(k,122) - mat(k,524) = -rxt(k,205)*y(k,122) - mat(k,872) = -rxt(k,206)*y(k,122) - mat(k,496) = -rxt(k,207)*y(k,122) - mat(k,1561) = -rxt(k,208)*y(k,122) - mat(k,845) = -rxt(k,209)*y(k,122) - mat(k,696) = -rxt(k,210)*y(k,122) - mat(k,510) = -rxt(k,211)*y(k,122) - mat(k,818) = -rxt(k,212)*y(k,122) - mat(k,678) = -rxt(k,213)*y(k,122) - mat(k,555) = -rxt(k,215)*y(k,122) - mat(k,569) = -rxt(k,216)*y(k,122) - mat(k,540) = -rxt(k,217)*y(k,122) - mat(k,631) = -rxt(k,218)*y(k,122) - mat(k,933) = -rxt(k,219)*y(k,122) - mat(k,1064) = -rxt(k,308)*y(k,122) - mat(k,1768) = -rxt(k,309)*y(k,122) - mat(k,906) = -rxt(k,310)*y(k,122) - mat(k,990) = -rxt(k,311)*y(k,122) - mat(k,2073) = -rxt(k,366)*y(k,122) - mat(k,1157) = rxt(k,365)*y(k,139) - mat(k,268) = rxt(k,307)*y(k,139) - mat(k,261) = rxt(k,313)*y(k,139) - mat(k,2073) = mat(k,2073) + rxt(k,365)*y(k,118) + rxt(k,307)*y(k,121) & + mat(k,616) = -rxt(k,202)*y(k,122) + mat(k,1023) = -rxt(k,204)*y(k,122) + mat(k,526) = -rxt(k,205)*y(k,122) + mat(k,875) = -rxt(k,206)*y(k,122) + mat(k,497) = -rxt(k,207)*y(k,122) + mat(k,1555) = -rxt(k,208)*y(k,122) + mat(k,847) = -rxt(k,209)*y(k,122) + mat(k,698) = -rxt(k,210)*y(k,122) + mat(k,511) = -rxt(k,211)*y(k,122) + mat(k,820) = -rxt(k,212)*y(k,122) + mat(k,679) = -rxt(k,213)*y(k,122) + mat(k,557) = -rxt(k,215)*y(k,122) + mat(k,571) = -rxt(k,216)*y(k,122) + mat(k,542) = -rxt(k,217)*y(k,122) + mat(k,633) = -rxt(k,218)*y(k,122) + mat(k,936) = -rxt(k,219)*y(k,122) + mat(k,1066) = -rxt(k,308)*y(k,122) + mat(k,1761) = -rxt(k,309)*y(k,122) + mat(k,907) = -rxt(k,310)*y(k,122) + mat(k,991) = -rxt(k,311)*y(k,122) + mat(k,2076) = -rxt(k,366)*y(k,122) + mat(k,1158) = rxt(k,365)*y(k,139) + mat(k,267) = rxt(k,307)*y(k,139) + mat(k,260) = rxt(k,313)*y(k,139) + mat(k,2076) = mat(k,2076) + rxt(k,365)*y(k,118) + rxt(k,307)*y(k,121) & + rxt(k,313)*y(k,123) end do end subroutine nlnmat08 @@ -1975,243 +1982,243 @@ subroutine nlnmat09( avec_len, mat, y, rxt ) !---------------------------------------------- do k = 1,avec_len mat(k,256) = -(rxt(k,312)*y(k,32) + rxt(k,313)*y(k,139) + rxt(k,384)*y(k,98)) - mat(k,1264) = -rxt(k,312)*y(k,123) - mat(k,2039) = -rxt(k,313)*y(k,123) - mat(k,1045) = -rxt(k,384)*y(k,123) - mat(k,317) = -(rxt(k,588)*y(k,70) + (rxt(k,589) + rxt(k,590)) * y(k,72)) - mat(k,1357) = -rxt(k,588)*y(k,124) - mat(k,1412) = -(rxt(k,589) + rxt(k,590)) * y(k,124) - mat(k,301) = rxt(k,596)*y(k,136) - mat(k,387) = rxt(k,596)*y(k,109) - mat(k,377) = -(rxt(k,321)*y(k,127) + rxt(k,339)*y(k,132) + rxt(k,361) & + mat(k,1664) = -rxt(k,312)*y(k,123) + mat(k,2042) = -rxt(k,313)*y(k,123) + mat(k,1047) = -rxt(k,384)*y(k,123) + mat(k,309) = -(rxt(k,590)*y(k,70) + (rxt(k,591) + rxt(k,592)) * y(k,72)) + mat(k,1356) = -rxt(k,590)*y(k,124) + mat(k,1902) = -(rxt(k,591) + rxt(k,592)) * y(k,124) + mat(k,342) = rxt(k,598)*y(k,136) + mat(k,402) = rxt(k,598)*y(k,109) + mat(k,379) = -(rxt(k,321)*y(k,127) + rxt(k,339)*y(k,132) + rxt(k,361) & *y(k,135) + rxt(k,396)*y(k,70) + rxt(k,397)*y(k,72)) - mat(k,1545) = -rxt(k,321)*y(k,125) - mat(k,460) = -rxt(k,339)*y(k,125) - mat(k,1867) = -rxt(k,361)*y(k,125) + mat(k,1539) = -rxt(k,321)*y(k,125) + mat(k,462) = -rxt(k,339)*y(k,125) + mat(k,1860) = -rxt(k,361)*y(k,125) mat(k,1363) = -rxt(k,396)*y(k,125) - mat(k,1414) = -rxt(k,397)*y(k,125) - mat(k,1266) = rxt(k,398)*y(k,126) + mat(k,1905) = -rxt(k,397)*y(k,125) + mat(k,1666) = rxt(k,398)*y(k,126) mat(k,1363) = mat(k,1363) + rxt(k,400)*y(k,126) - mat(k,1414) = mat(k,1414) + rxt(k,401)*y(k,126) - mat(k,1906) = rxt(k,402)*y(k,126) + mat(k,1905) = mat(k,1905) + rxt(k,401)*y(k,126) + mat(k,1222) = rxt(k,402)*y(k,126) mat(k,132) = rxt(k,398)*y(k,32) + rxt(k,400)*y(k,70) + rxt(k,401)*y(k,72) & + rxt(k,402)*y(k,73) mat(k,131) = -(rxt(k,398)*y(k,32) + rxt(k,400)*y(k,70) + rxt(k,401)*y(k,72) & + rxt(k,402)*y(k,73)) - mat(k,1261) = -rxt(k,398)*y(k,126) + mat(k,1661) = -rxt(k,398)*y(k,126) mat(k,1345) = -rxt(k,400)*y(k,126) - mat(k,1405) = -rxt(k,401)*y(k,126) - mat(k,1903) = -rxt(k,402)*y(k,126) - mat(k,773) = rxt(k,392)*y(k,72) - mat(k,1405) = mat(k,1405) + rxt(k,392)*y(k,71) - mat(k,1566) = -(rxt(k,150)*y(k,128) + rxt(k,173)*y(k,107) + rxt(k,190) & + mat(k,1896) = -rxt(k,401)*y(k,126) + mat(k,1219) = -rxt(k,402)*y(k,126) + mat(k,775) = rxt(k,392)*y(k,72) + mat(k,1896) = mat(k,1896) + rxt(k,392)*y(k,71) + mat(k,1560) = -(rxt(k,150)*y(k,128) + rxt(k,173)*y(k,107) + rxt(k,190) & *y(k,103) + rxt(k,208)*y(k,122) + rxt(k,214)*y(k,105) + rxt(k,226) & *y(k,119) + rxt(k,243)*y(k,118) + rxt(k,314)*y(k,25) + rxt(k,315) & *y(k,28) + rxt(k,316)*y(k,32) + rxt(k,317)*y(k,40) + rxt(k,318) & *y(k,49) + rxt(k,319)*y(k,51) + rxt(k,320)*y(k,63) + rxt(k,321) & *y(k,125) + rxt(k,322)*y(k,72) + rxt(k,323)*y(k,73) + (rxt(k,324) & + rxt(k,325)) * y(k,70)) - mat(k,1611) = -rxt(k,150)*y(k,127) - mat(k,1654) = -rxt(k,173)*y(k,127) - mat(k,1248) = -rxt(k,190)*y(k,127) + mat(k,1605) = -rxt(k,150)*y(k,127) + mat(k,1435) = -rxt(k,173)*y(k,127) + mat(k,1648) = -rxt(k,190)*y(k,127) mat(k,1332) = -rxt(k,208)*y(k,127) - mat(k,1697) = -rxt(k,214)*y(k,127) - mat(k,1205) = -rxt(k,226)*y(k,127) - mat(k,1162) = -rxt(k,243)*y(k,127) - mat(k,1489) = -rxt(k,314)*y(k,127) - mat(k,1114) = -rxt(k,315)*y(k,127) - mat(k,1290) = -rxt(k,316)*y(k,127) - mat(k,1773) = -rxt(k,317)*y(k,127) - mat(k,2018) = -rxt(k,318)*y(k,127) - mat(k,1530) = -rxt(k,319)*y(k,127) - mat(k,1821) = -rxt(k,320)*y(k,127) - mat(k,381) = -rxt(k,321)*y(k,127) - mat(k,1441) = -rxt(k,322)*y(k,127) - mat(k,1931) = -rxt(k,323)*y(k,127) + mat(k,1290) = -rxt(k,214)*y(k,127) + mat(k,1206) = -rxt(k,226)*y(k,127) + mat(k,1163) = -rxt(k,243)*y(k,127) + mat(k,1483) = -rxt(k,314)*y(k,127) + mat(k,1116) = -rxt(k,315)*y(k,127) + mat(k,1690) = -rxt(k,316)*y(k,127) + mat(k,1766) = -rxt(k,317)*y(k,127) + mat(k,2021) = -rxt(k,318)*y(k,127) + mat(k,1524) = -rxt(k,319)*y(k,127) + mat(k,1814) = -rxt(k,320)*y(k,127) + mat(k,383) = -rxt(k,321)*y(k,127) + mat(k,1932) = -rxt(k,322)*y(k,127) + mat(k,1247) = -rxt(k,323)*y(k,127) mat(k,1392) = -(rxt(k,324) + rxt(k,325)) * y(k,127) mat(k,1392) = mat(k,1392) + rxt(k,125)*y(k,94) + rxt(k,334)*y(k,130) - mat(k,1441) = mat(k,1441) + (rxt(k,133)+rxt(k,135))*y(k,98) - mat(k,1026) = rxt(k,125)*y(k,70) - mat(k,1069) = (rxt(k,133)+rxt(k,135))*y(k,72) - mat(k,602) = rxt(k,334)*y(k,70) - mat(k,1612) = -(rxt(k,148)*y(k,113) + rxt(k,149)*y(k,100) + rxt(k,150) & + mat(k,1932) = mat(k,1932) + (rxt(k,133)+rxt(k,135))*y(k,98) + mat(k,1028) = rxt(k,125)*y(k,70) + mat(k,1071) = (rxt(k,133)+rxt(k,135))*y(k,72) + mat(k,603) = rxt(k,334)*y(k,70) + mat(k,1606) = -(rxt(k,148)*y(k,113) + rxt(k,149)*y(k,100) + rxt(k,150) & *y(k,127) + rxt(k,151)*y(k,97) + rxt(k,152)*y(k,115) + rxt(k,153) & *y(k,95) + rxt(k,154)*y(k,90) + rxt(k,155)*y(k,96) + rxt(k,156) & *y(k,112) + rxt(k,157)*y(k,116) + rxt(k,159)*y(k,91) + rxt(k,160) & *y(k,114) + rxt(k,161)*y(k,111) + rxt(k,255)*y(k,117) + rxt(k,256) & *y(k,94) + rxt(k,257)*y(k,92) + rxt(k,329)*y(k,139) + rxt(k,364) & - *y(k,72) + rxt(k,583)*y(k,98) + rxt(k,591)*y(k,56) + rxt(k,593) & + *y(k,72) + rxt(k,585)*y(k,98) + rxt(k,593)*y(k,56) + rxt(k,595) & *y(k,62)) - mat(k,877) = -rxt(k,148)*y(k,128) - mat(k,498) = -rxt(k,149)*y(k,128) - mat(k,1567) = -rxt(k,150)*y(k,128) - mat(k,851) = -rxt(k,151)*y(k,128) - mat(k,700) = -rxt(k,152)*y(k,128) - mat(k,513) = -rxt(k,153)*y(k,128) - mat(k,822) = -rxt(k,154)*y(k,128) - mat(k,681) = -rxt(k,155)*y(k,128) - mat(k,557) = -rxt(k,156)*y(k,128) - mat(k,572) = -rxt(k,157)*y(k,128) - mat(k,543) = -rxt(k,159)*y(k,128) - mat(k,635) = -rxt(k,160)*y(k,128) - mat(k,938) = -rxt(k,161)*y(k,128) - mat(k,617) = -rxt(k,255)*y(k,128) - mat(k,1027) = -rxt(k,256)*y(k,128) - mat(k,527) = -rxt(k,257)*y(k,128) - mat(k,2079) = -rxt(k,329)*y(k,128) - mat(k,1442) = -rxt(k,364)*y(k,128) - mat(k,1070) = -rxt(k,583)*y(k,128) - mat(k,455) = -rxt(k,591)*y(k,128) - mat(k,1974) = -rxt(k,593)*y(k,128) - mat(k,1291) = rxt(k,594)*y(k,136) + mat(k,880) = -rxt(k,148)*y(k,128) + mat(k,499) = -rxt(k,149)*y(k,128) + mat(k,1561) = -rxt(k,150)*y(k,128) + mat(k,853) = -rxt(k,151)*y(k,128) + mat(k,702) = -rxt(k,152)*y(k,128) + mat(k,514) = -rxt(k,153)*y(k,128) + mat(k,824) = -rxt(k,154)*y(k,128) + mat(k,682) = -rxt(k,155)*y(k,128) + mat(k,559) = -rxt(k,156)*y(k,128) + mat(k,574) = -rxt(k,157)*y(k,128) + mat(k,545) = -rxt(k,159)*y(k,128) + mat(k,637) = -rxt(k,160)*y(k,128) + mat(k,941) = -rxt(k,161)*y(k,128) + mat(k,619) = -rxt(k,255)*y(k,128) + mat(k,1029) = -rxt(k,256)*y(k,128) + mat(k,529) = -rxt(k,257)*y(k,128) + mat(k,2082) = -rxt(k,329)*y(k,128) + mat(k,1933) = -rxt(k,364)*y(k,128) + mat(k,1072) = -rxt(k,585)*y(k,128) + mat(k,455) = -rxt(k,593)*y(k,128) + mat(k,1977) = -rxt(k,595)*y(k,128) + mat(k,1691) = rxt(k,596)*y(k,136) mat(k,1393) = rxt(k,338)*y(k,132) - mat(k,1442) = mat(k,1442) + rxt(k,585)*y(k,110) + rxt(k,589)*y(k,124) & - + rxt(k,597)*y(k,136) + rxt(k,601)*y(k,137) - mat(k,238) = rxt(k,585)*y(k,72) - mat(k,323) = rxt(k,589)*y(k,72) - mat(k,382) = rxt(k,339)*y(k,132) - mat(k,1567) = mat(k,1567) + 2.000_r8*rxt(k,150)*y(k,128) - mat(k,1612) = mat(k,1612) + 2.000_r8*rxt(k,150)*y(k,127) - mat(k,468) = rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125) - mat(k,397) = rxt(k,594)*y(k,32) + rxt(k,597)*y(k,72) - mat(k,205) = rxt(k,601)*y(k,72) + mat(k,1933) = mat(k,1933) + rxt(k,587)*y(k,110) + rxt(k,591)*y(k,124) & + + rxt(k,599)*y(k,136) + rxt(k,603)*y(k,137) + mat(k,237) = rxt(k,587)*y(k,72) + mat(k,314) = rxt(k,591)*y(k,72) + mat(k,384) = rxt(k,339)*y(k,132) + mat(k,1561) = mat(k,1561) + 2.000_r8*rxt(k,150)*y(k,128) + mat(k,1606) = mat(k,1606) + 2.000_r8*rxt(k,150)*y(k,127) + mat(k,469) = rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125) + mat(k,411) = rxt(k,596)*y(k,32) + rxt(k,599)*y(k,72) + mat(k,204) = rxt(k,603)*y(k,72) mat(k,292) = -(rxt(k,326)*y(k,98) + (rxt(k,327) + rxt(k,328)) * y(k,139)) - mat(k,1049) = -rxt(k,326)*y(k,129) - mat(k,2043) = -(rxt(k,327) + rxt(k,328)) * y(k,129) - mat(k,1579) = rxt(k,329)*y(k,139) - mat(k,459) = rxt(k,337)*y(k,139) - mat(k,2043) = mat(k,2043) + rxt(k,329)*y(k,128) + rxt(k,337)*y(k,132) - mat(k,594) = -((rxt(k,272) + rxt(k,279)) * y(k,62) + (rxt(k,277) + rxt(k,278) & + mat(k,1051) = -rxt(k,326)*y(k,129) + mat(k,2046) = -(rxt(k,327) + rxt(k,328)) * y(k,129) + mat(k,1573) = rxt(k,329)*y(k,139) + mat(k,461) = rxt(k,337)*y(k,139) + mat(k,2046) = mat(k,2046) + rxt(k,329)*y(k,128) + rxt(k,337)*y(k,132) + mat(k,596) = -((rxt(k,272) + rxt(k,279)) * y(k,62) + (rxt(k,277) + rxt(k,278) & ) * y(k,63) + rxt(k,330)*y(k,32) + rxt(k,331)*y(k,40) + rxt(k,332) & *y(k,73) + (rxt(k,333) + rxt(k,334)) * y(k,70)) - mat(k,1950) = -(rxt(k,272) + rxt(k,279)) * y(k,130) - mat(k,1796) = -(rxt(k,277) + rxt(k,278)) * y(k,130) - mat(k,1271) = -rxt(k,330)*y(k,130) - mat(k,1751) = -rxt(k,331)*y(k,130) - mat(k,1910) = -rxt(k,332)*y(k,130) + mat(k,1953) = -(rxt(k,272) + rxt(k,279)) * y(k,130) + mat(k,1789) = -(rxt(k,277) + rxt(k,278)) * y(k,130) + mat(k,1671) = -rxt(k,330)*y(k,130) + mat(k,1744) = -rxt(k,331)*y(k,130) + mat(k,1226) = -rxt(k,332)*y(k,130) mat(k,1369) = -(rxt(k,333) + rxt(k,334)) * y(k,130) mat(k,1369) = mat(k,1369) + rxt(k,336)*y(k,131) - mat(k,1420) = rxt(k,126)*y(k,94) + rxt(k,362)*y(k,135) - mat(k,1910) = mat(k,1910) + rxt(k,132)*y(k,97) + rxt(k,323)*y(k,127) & + mat(k,1911) = rxt(k,126)*y(k,94) + rxt(k,362)*y(k,135) + mat(k,1226) = mat(k,1226) + rxt(k,132)*y(k,97) + rxt(k,323)*y(k,127) & + rxt(k,348)*y(k,134) + rxt(k,363)*y(k,135) - mat(k,1007) = rxt(k,126)*y(k,72) - mat(k,831) = rxt(k,132)*y(k,73) - mat(k,1547) = rxt(k,323)*y(k,73) + mat(k,1009) = rxt(k,126)*y(k,72) + mat(k,833) = rxt(k,132)*y(k,73) + mat(k,1541) = rxt(k,323)*y(k,73) mat(k,240) = rxt(k,336)*y(k,70) - mat(k,1836) = rxt(k,348)*y(k,73) - mat(k,1869) = rxt(k,362)*y(k,72) + rxt(k,363)*y(k,73) + mat(k,1829) = rxt(k,348)*y(k,73) + mat(k,1862) = rxt(k,362)*y(k,72) + rxt(k,363)*y(k,73) mat(k,239) = -(rxt(k,335)*y(k,32) + rxt(k,336)*y(k,70)) - mat(k,1262) = -rxt(k,335)*y(k,131) + mat(k,1662) = -rxt(k,335)*y(k,131) mat(k,1352) = -rxt(k,336)*y(k,131) - mat(k,1409) = rxt(k,322)*y(k,127) - mat(k,1543) = rxt(k,322)*y(k,72) - mat(k,461) = -(rxt(k,337)*y(k,139) + rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125) & + mat(k,1900) = rxt(k,322)*y(k,127) + mat(k,1537) = rxt(k,322)*y(k,72) + mat(k,463) = -(rxt(k,337)*y(k,139) + rxt(k,338)*y(k,70) + rxt(k,339)*y(k,125) & + rxt(k,380)*y(k,98)) - mat(k,2048) = -rxt(k,337)*y(k,132) + mat(k,2051) = -rxt(k,337)*y(k,132) mat(k,1366) = -rxt(k,338)*y(k,132) - mat(k,378) = -rxt(k,339)*y(k,132) - mat(k,1054) = -rxt(k,380)*y(k,132) - mat(k,1417) = rxt(k,364)*y(k,128) - mat(k,1581) = rxt(k,364)*y(k,72) - mat(k,984) = -(rxt(k,311)*y(k,122) + rxt(k,340)*y(k,55) + rxt(k,349)*y(k,62) & + mat(k,380) = -rxt(k,339)*y(k,132) + mat(k,1056) = -rxt(k,380)*y(k,132) + mat(k,1908) = rxt(k,364)*y(k,128) + mat(k,1575) = rxt(k,364)*y(k,72) + mat(k,986) = -(rxt(k,311)*y(k,122) + rxt(k,340)*y(k,55) + rxt(k,349)*y(k,62) & + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,43) + rxt(k,417)*y(k,101) & + rxt(k,418)*y(k,70) + rxt(k,419)*y(k,73) + (4._r8*rxt(k,420) & - + 4._r8*rxt(k,421)) * y(k,133) + rxt(k,423)*y(k,52) + rxt(k,437) & - *y(k,64) + rxt(k,438)*y(k,56) + rxt(k,446)*y(k,63) + rxt(k,447) & - *y(k,51) + rxt(k,466)*y(k,29) + (rxt(k,468) + rxt(k,469) & - ) * y(k,28) + rxt(k,471)*y(k,49) + rxt(k,474)*y(k,54) + rxt(k,498) & - *y(k,5) + rxt(k,500)*y(k,45) + rxt(k,514)*y(k,16) + rxt(k,516) & - *y(k,18) + rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,521) & - *y(k,24) + rxt(k,522)*y(k,46) + rxt(k,523)*y(k,47) + rxt(k,524) & - *y(k,48) + rxt(k,532)*y(k,17) + rxt(k,535)*y(k,22) + rxt(k,536) & - *y(k,23) + rxt(k,540)*y(k,31) + (rxt(k,542) + rxt(k,556) & - ) * y(k,35) + rxt(k,544)*y(k,75) + rxt(k,546)*y(k,81) + rxt(k,550) & - *y(k,78) + rxt(k,555)*y(k,80)) + + 4._r8*rxt(k,421)) * y(k,133) + rxt(k,424)*y(k,52) + rxt(k,436) & + *y(k,64) + rxt(k,437)*y(k,56) + rxt(k,445)*y(k,63) + rxt(k,446) & + *y(k,51) + rxt(k,468)*y(k,29) + (rxt(k,470) + rxt(k,471) & + ) * y(k,28) + rxt(k,473)*y(k,49) + rxt(k,476)*y(k,54) + rxt(k,500) & + *y(k,5) + rxt(k,502)*y(k,45) + rxt(k,516)*y(k,16) + rxt(k,518) & + *y(k,18) + rxt(k,519)*y(k,19) + rxt(k,521)*y(k,20) + rxt(k,523) & + *y(k,24) + rxt(k,524)*y(k,46) + rxt(k,525)*y(k,47) + rxt(k,526) & + *y(k,48) + rxt(k,534)*y(k,17) + rxt(k,537)*y(k,22) + rxt(k,538) & + *y(k,23) + rxt(k,542)*y(k,31) + (rxt(k,544) + rxt(k,558) & + ) * y(k,35) + rxt(k,546)*y(k,75) + rxt(k,548)*y(k,81) + rxt(k,552) & + *y(k,78) + rxt(k,557)*y(k,80)) mat(k,1319) = -rxt(k,311)*y(k,133) mat(k,279) = -rxt(k,340)*y(k,133) - mat(k,1960) = -rxt(k,349)*y(k,133) - mat(k,651) = -rxt(k,415)*y(k,133) + mat(k,1963) = -rxt(k,349)*y(k,133) + mat(k,653) = -rxt(k,415)*y(k,133) mat(k,216) = -rxt(k,416)*y(k,133) - mat(k,901) = -rxt(k,417)*y(k,133) + mat(k,903) = -rxt(k,417)*y(k,133) mat(k,1379) = -rxt(k,418)*y(k,133) - mat(k,1918) = -rxt(k,419)*y(k,133) - mat(k,181) = -rxt(k,423)*y(k,133) - mat(k,1725) = -rxt(k,437)*y(k,133) - mat(k,449) = -rxt(k,438)*y(k,133) - mat(k,1808) = -rxt(k,446)*y(k,133) - mat(k,1517) = -rxt(k,447)*y(k,133) - mat(k,360) = -rxt(k,466)*y(k,133) - mat(k,1101) = -(rxt(k,468) + rxt(k,469)) * y(k,133) - mat(k,2005) = -rxt(k,471)*y(k,133) - mat(k,334) = -rxt(k,474)*y(k,133) - mat(k,719) = -rxt(k,498)*y(k,133) - mat(k,328) = -rxt(k,500)*y(k,133) - mat(k,189) = -rxt(k,514)*y(k,133) - mat(k,226) = -rxt(k,516)*y(k,133) - mat(k,49) = -rxt(k,517)*y(k,133) - mat(k,151) = -rxt(k,519)*y(k,133) - mat(k,164) = -rxt(k,521)*y(k,133) - mat(k,83) = -rxt(k,522)*y(k,133) - mat(k,93) = -rxt(k,523)*y(k,133) - mat(k,119) = -rxt(k,524)*y(k,133) - mat(k,741) = -rxt(k,532)*y(k,133) - mat(k,158) = -rxt(k,535)*y(k,133) - mat(k,422) = -rxt(k,536)*y(k,133) - mat(k,254) = -rxt(k,540)*y(k,133) - mat(k,128) = -(rxt(k,542) + rxt(k,556)) * y(k,133) - mat(k,144) = -rxt(k,544)*y(k,133) - mat(k,354) = -rxt(k,546)*y(k,133) - mat(k,273) = -rxt(k,550)*y(k,133) - mat(k,480) = -rxt(k,555)*y(k,133) - mat(k,741) = mat(k,741) + rxt(k,531)*y(k,70) - mat(k,158) = mat(k,158) + .300_r8*rxt(k,535)*y(k,133) - mat(k,422) = mat(k,422) + rxt(k,537)*y(k,71) - mat(k,1476) = rxt(k,455)*y(k,101) + rxt(k,341)*y(k,134) - mat(k,1101) = mat(k,1101) + rxt(k,342)*y(k,134) - mat(k,345) = rxt(k,509)*y(k,139) - mat(k,1760) = rxt(k,414)*y(k,73) + rxt(k,129)*y(k,97) + 2.000_r8*rxt(k,409) & + mat(k,1234) = -rxt(k,419)*y(k,133) + mat(k,181) = -rxt(k,424)*y(k,133) + mat(k,1718) = -rxt(k,436)*y(k,133) + mat(k,451) = -rxt(k,437)*y(k,133) + mat(k,1801) = -rxt(k,445)*y(k,133) + mat(k,1511) = -rxt(k,446)*y(k,133) + mat(k,362) = -rxt(k,468)*y(k,133) + mat(k,1103) = -(rxt(k,470) + rxt(k,471)) * y(k,133) + mat(k,2008) = -rxt(k,473)*y(k,133) + mat(k,326) = -rxt(k,476)*y(k,133) + mat(k,721) = -rxt(k,500)*y(k,133) + mat(k,320) = -rxt(k,502)*y(k,133) + mat(k,189) = -rxt(k,516)*y(k,133) + mat(k,226) = -rxt(k,518)*y(k,133) + mat(k,49) = -rxt(k,519)*y(k,133) + mat(k,151) = -rxt(k,521)*y(k,133) + mat(k,164) = -rxt(k,523)*y(k,133) + mat(k,83) = -rxt(k,524)*y(k,133) + mat(k,93) = -rxt(k,525)*y(k,133) + mat(k,119) = -rxt(k,526)*y(k,133) + mat(k,743) = -rxt(k,534)*y(k,133) + mat(k,158) = -rxt(k,537)*y(k,133) + mat(k,424) = -rxt(k,538)*y(k,133) + mat(k,254) = -rxt(k,542)*y(k,133) + mat(k,128) = -(rxt(k,544) + rxt(k,558)) * y(k,133) + mat(k,144) = -rxt(k,546)*y(k,133) + mat(k,356) = -rxt(k,548)*y(k,133) + mat(k,273) = -rxt(k,552)*y(k,133) + mat(k,482) = -rxt(k,557)*y(k,133) + mat(k,743) = mat(k,743) + rxt(k,533)*y(k,70) + mat(k,158) = mat(k,158) + .300_r8*rxt(k,537)*y(k,133) + mat(k,424) = mat(k,424) + rxt(k,539)*y(k,71) + mat(k,1470) = rxt(k,457)*y(k,101) + rxt(k,341)*y(k,134) + mat(k,1103) = mat(k,1103) + rxt(k,342)*y(k,134) + mat(k,337) = rxt(k,511)*y(k,139) + mat(k,1753) = rxt(k,414)*y(k,73) + rxt(k,129)*y(k,97) + 2.000_r8*rxt(k,409) & *y(k,101) - mat(k,651) = mat(k,651) + rxt(k,406)*y(k,70) + rxt(k,389)*y(k,71) + mat(k,653) = mat(k,653) + rxt(k,406)*y(k,70) + rxt(k,389)*y(k,71) mat(k,216) = mat(k,216) + rxt(k,407)*y(k,70) - mat(k,328) = mat(k,328) + rxt(k,499)*y(k,70) + rxt(k,505)*y(k,71) - mat(k,2005) = mat(k,2005) + rxt(k,470)*y(k,70) + rxt(k,482)*y(k,71) & + mat(k,320) = mat(k,320) + rxt(k,501)*y(k,70) + rxt(k,507)*y(k,71) + mat(k,2008) = mat(k,2008) + rxt(k,472)*y(k,70) + rxt(k,484)*y(k,71) & + rxt(k,356)*y(k,135) - mat(k,1517) = mat(k,1517) + rxt(k,124)*y(k,94) + rxt(k,357)*y(k,135) - mat(k,312) = rxt(k,501)*y(k,70) - mat(k,334) = mat(k,334) + rxt(k,473)*y(k,70) - mat(k,1960) = mat(k,1960) + rxt(k,439)*y(k,101) - mat(k,1808) = mat(k,1808) + rxt(k,346)*y(k,134) - mat(k,1725) = mat(k,1725) + rxt(k,434)*y(k,101) - mat(k,1379) = mat(k,1379) + rxt(k,531)*y(k,17) + rxt(k,406)*y(k,41) & - + rxt(k,407)*y(k,43) + rxt(k,499)*y(k,45) + rxt(k,470)*y(k,49) & - + rxt(k,501)*y(k,53) + rxt(k,473)*y(k,54) + rxt(k,412)*y(k,101) - mat(k,789) = rxt(k,537)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,505)*y(k,45) & - + rxt(k,482)*y(k,49) + 2.000_r8*rxt(k,390)*y(k,139) - mat(k,1918) = mat(k,1918) + rxt(k,414)*y(k,40) + rxt(k,413)*y(k,101) & + mat(k,1511) = mat(k,1511) + rxt(k,124)*y(k,94) + rxt(k,357)*y(k,135) + mat(k,304) = rxt(k,503)*y(k,70) + mat(k,326) = mat(k,326) + rxt(k,475)*y(k,70) + mat(k,1963) = mat(k,1963) + rxt(k,438)*y(k,101) + mat(k,1801) = mat(k,1801) + rxt(k,346)*y(k,134) + mat(k,1718) = mat(k,1718) + rxt(k,433)*y(k,101) + mat(k,1379) = mat(k,1379) + rxt(k,533)*y(k,17) + rxt(k,406)*y(k,41) & + + rxt(k,407)*y(k,43) + rxt(k,501)*y(k,45) + rxt(k,472)*y(k,49) & + + rxt(k,503)*y(k,53) + rxt(k,475)*y(k,54) + rxt(k,412)*y(k,101) + mat(k,791) = rxt(k,539)*y(k,23) + rxt(k,389)*y(k,41) + rxt(k,507)*y(k,45) & + + rxt(k,484)*y(k,49) + 2.000_r8*rxt(k,390)*y(k,139) + mat(k,1234) = mat(k,1234) + rxt(k,414)*y(k,40) + rxt(k,413)*y(k,101) & + rxt(k,348)*y(k,134) - mat(k,1013) = rxt(k,124)*y(k,51) - mat(k,837) = rxt(k,129)*y(k,40) - mat(k,1057) = rxt(k,138)*y(k,99) + mat(k,1015) = rxt(k,124)*y(k,51) + mat(k,839) = rxt(k,129)*y(k,40) + mat(k,1059) = rxt(k,138)*y(k,99) mat(k,169) = rxt(k,138)*y(k,98) + rxt(k,139)*y(k,139) - mat(k,491) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) & + mat(k,493) = rxt(k,189)*y(k,103) + rxt(k,203)*y(k,105) + rxt(k,172)*y(k,107) & + rxt(k,242)*y(k,118) + rxt(k,224)*y(k,119) + rxt(k,207) & *y(k,122) + rxt(k,149)*y(k,128) - mat(k,901) = mat(k,901) + rxt(k,455)*y(k,25) + 2.000_r8*rxt(k,409)*y(k,40) & - + rxt(k,439)*y(k,62) + rxt(k,434)*y(k,64) + rxt(k,412)*y(k,70) & + mat(k,903) = mat(k,903) + rxt(k,457)*y(k,25) + 2.000_r8*rxt(k,409)*y(k,40) & + + rxt(k,438)*y(k,62) + rxt(k,433)*y(k,64) + rxt(k,412)*y(k,70) & + rxt(k,413)*y(k,73) - mat(k,1235) = rxt(k,189)*y(k,100) - mat(k,1684) = rxt(k,203)*y(k,100) - mat(k,1641) = rxt(k,172)*y(k,100) - mat(k,1149) = rxt(k,242)*y(k,100) - mat(k,1192) = rxt(k,224)*y(k,100) + mat(k,1635) = rxt(k,189)*y(k,100) + mat(k,1277) = rxt(k,203)*y(k,100) + mat(k,1422) = rxt(k,172)*y(k,100) + mat(k,1150) = rxt(k,242)*y(k,100) + mat(k,1193) = rxt(k,224)*y(k,100) mat(k,1319) = mat(k,1319) + rxt(k,207)*y(k,100) - mat(k,1598) = rxt(k,149)*y(k,100) + mat(k,1592) = rxt(k,149)*y(k,100) mat(k,293) = rxt(k,328)*y(k,139) - mat(k,984) = mat(k,984) + .300_r8*rxt(k,535)*y(k,22) - mat(k,1841) = rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,346)*y(k,63) & + mat(k,986) = mat(k,986) + .300_r8*rxt(k,537)*y(k,22) + mat(k,1834) = rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,346)*y(k,63) & + rxt(k,348)*y(k,73) - mat(k,1877) = rxt(k,356)*y(k,49) + rxt(k,357)*y(k,51) + rxt(k,355)*y(k,139) - mat(k,2065) = rxt(k,509)*y(k,39) + 2.000_r8*rxt(k,390)*y(k,71) + rxt(k,139) & + mat(k,1870) = rxt(k,356)*y(k,49) + rxt(k,357)*y(k,51) + rxt(k,355)*y(k,139) + mat(k,2068) = rxt(k,511)*y(k,39) + 2.000_r8*rxt(k,390)*y(k,71) + rxt(k,139) & *y(k,99) + rxt(k,328)*y(k,129) + rxt(k,355)*y(k,135) end do end subroutine nlnmat09 @@ -2233,68 +2240,68 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1861) = -(rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,343)*y(k,32) & + mat(k,1854) = -(rxt(k,341)*y(k,25) + rxt(k,342)*y(k,28) + rxt(k,343)*y(k,32) & + rxt(k,344)*y(k,40) + rxt(k,345)*y(k,49) + rxt(k,346)*y(k,63) & + rxt(k,347)*y(k,70) + rxt(k,348)*y(k,73)) - mat(k,1496) = -rxt(k,341)*y(k,134) - mat(k,1121) = -rxt(k,342)*y(k,134) - mat(k,1297) = -rxt(k,343)*y(k,134) - mat(k,1780) = -rxt(k,344)*y(k,134) - mat(k,2025) = -rxt(k,345)*y(k,134) - mat(k,1828) = -rxt(k,346)*y(k,134) + mat(k,1490) = -rxt(k,341)*y(k,134) + mat(k,1123) = -rxt(k,342)*y(k,134) + mat(k,1697) = -rxt(k,343)*y(k,134) + mat(k,1773) = -rxt(k,344)*y(k,134) + mat(k,2028) = -rxt(k,345)*y(k,134) + mat(k,1821) = -rxt(k,346)*y(k,134) mat(k,1399) = -rxt(k,347)*y(k,134) - mat(k,1938) = -rxt(k,348)*y(k,134) - mat(k,1780) = mat(k,1780) + rxt(k,117)*y(k,94) + rxt(k,287)*y(k,111) & + mat(k,1254) = -rxt(k,348)*y(k,134) + mat(k,1773) = mat(k,1773) + rxt(k,117)*y(k,94) + rxt(k,287)*y(k,111) & + rxt(k,331)*y(k,130) - mat(k,662) = rxt(k,354)*y(k,135) - mat(k,1033) = rxt(k,117)*y(k,40) - mat(k,944) = rxt(k,287)*y(k,40) - mat(k,605) = rxt(k,331)*y(k,40) - mat(k,1897) = rxt(k,354)*y(k,41) + rxt(k,355)*y(k,139) - mat(k,2085) = rxt(k,355)*y(k,135) - mat(k,1898) = -(rxt(k,136)*y(k,62) + rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) & + mat(k,663) = rxt(k,354)*y(k,135) + mat(k,1035) = rxt(k,117)*y(k,40) + mat(k,946) = rxt(k,287)*y(k,40) + mat(k,607) = rxt(k,331)*y(k,40) + mat(k,1890) = rxt(k,354)*y(k,41) + rxt(k,355)*y(k,139) + mat(k,2088) = rxt(k,355)*y(k,135) + mat(k,1891) = -(rxt(k,136)*y(k,62) + rxt(k,350)*y(k,25) + rxt(k,351)*y(k,28) & + rxt(k,352)*y(k,32) + (rxt(k,353) + rxt(k,354)) * y(k,41) & + rxt(k,355)*y(k,139) + rxt(k,356)*y(k,49) + rxt(k,357)*y(k,51) & + rxt(k,359)*y(k,63) + rxt(k,360)*y(k,70) + rxt(k,361)*y(k,125) & + rxt(k,362)*y(k,72) + rxt(k,363)*y(k,73)) - mat(k,1981) = -rxt(k,136)*y(k,135) - mat(k,1497) = -rxt(k,350)*y(k,135) - mat(k,1122) = -rxt(k,351)*y(k,135) - mat(k,1298) = -rxt(k,352)*y(k,135) - mat(k,663) = -(rxt(k,353) + rxt(k,354)) * y(k,135) - mat(k,2086) = -rxt(k,355)*y(k,135) - mat(k,2026) = -rxt(k,356)*y(k,135) - mat(k,1538) = -rxt(k,357)*y(k,135) - mat(k,1829) = -rxt(k,359)*y(k,135) + mat(k,1984) = -rxt(k,136)*y(k,135) + mat(k,1491) = -rxt(k,350)*y(k,135) + mat(k,1124) = -rxt(k,351)*y(k,135) + mat(k,1698) = -rxt(k,352)*y(k,135) + mat(k,664) = -(rxt(k,353) + rxt(k,354)) * y(k,135) + mat(k,2089) = -rxt(k,355)*y(k,135) + mat(k,2029) = -rxt(k,356)*y(k,135) + mat(k,1532) = -rxt(k,357)*y(k,135) + mat(k,1822) = -rxt(k,359)*y(k,135) mat(k,1400) = -rxt(k,360)*y(k,135) - mat(k,383) = -rxt(k,361)*y(k,135) - mat(k,1449) = -rxt(k,362)*y(k,135) - mat(k,1939) = -rxt(k,363)*y(k,135) + mat(k,385) = -rxt(k,361)*y(k,135) + mat(k,1940) = -rxt(k,362)*y(k,135) + mat(k,1255) = -rxt(k,363)*y(k,135) mat(k,1400) = mat(k,1400) + rxt(k,325)*y(k,127) - mat(k,1939) = mat(k,1939) + rxt(k,134)*y(k,98) - mat(k,1077) = rxt(k,134)*y(k,73) - mat(k,1574) = rxt(k,325)*y(k,70) - mat(k,388) = -(rxt(k,594)*y(k,32) + rxt(k,596)*y(k,109) + rxt(k,597)*y(k,72)) - mat(k,1267) = -rxt(k,594)*y(k,136) - mat(k,302) = -rxt(k,596)*y(k,136) - mat(k,1415) = -rxt(k,597)*y(k,136) - mat(k,1364) = rxt(k,587)*y(k,110) + rxt(k,588)*y(k,124) + rxt(k,600)*y(k,137) & - + rxt(k,606)*y(k,138) - mat(k,1052) = rxt(k,598)*y(k,137) + rxt(k,603)*y(k,138) - mat(k,232) = rxt(k,587)*y(k,70) - mat(k,318) = rxt(k,588)*y(k,70) - mat(k,202) = rxt(k,600)*y(k,70) + rxt(k,598)*y(k,98) - mat(k,197) = rxt(k,606)*y(k,70) + rxt(k,603)*y(k,98) - mat(k,200) = -(rxt(k,598)*y(k,98) + rxt(k,600)*y(k,70) + rxt(k,601)*y(k,72)) - mat(k,1042) = -rxt(k,598)*y(k,137) - mat(k,1348) = -rxt(k,600)*y(k,137) - mat(k,1407) = -rxt(k,601)*y(k,137) - mat(k,1042) = mat(k,1042) + rxt(k,602)*y(k,138) - mat(k,194) = rxt(k,602)*y(k,98) - mat(k,193) = -((rxt(k,602) + rxt(k,603)) * y(k,98) + rxt(k,606)*y(k,70)) - mat(k,1041) = -(rxt(k,602) + rxt(k,603)) * y(k,138) - mat(k,1347) = -rxt(k,606)*y(k,138) - mat(k,2090) = -(rxt(k,107)*y(k,90) + rxt(k,118)*y(k,96) + rxt(k,119)*y(k,94) & + mat(k,1255) = mat(k,1255) + rxt(k,134)*y(k,98) + mat(k,1079) = rxt(k,134)*y(k,73) + mat(k,1568) = rxt(k,325)*y(k,70) + mat(k,404) = -(rxt(k,596)*y(k,32) + rxt(k,598)*y(k,109) + rxt(k,599)*y(k,72)) + mat(k,1667) = -rxt(k,596)*y(k,136) + mat(k,344) = -rxt(k,598)*y(k,136) + mat(k,1906) = -rxt(k,599)*y(k,136) + mat(k,1364) = rxt(k,589)*y(k,110) + rxt(k,590)*y(k,124) + rxt(k,602)*y(k,137) & + + rxt(k,608)*y(k,138) + mat(k,1054) = rxt(k,600)*y(k,137) + rxt(k,605)*y(k,138) + mat(k,232) = rxt(k,589)*y(k,70) + mat(k,310) = rxt(k,590)*y(k,70) + mat(k,202) = rxt(k,602)*y(k,70) + rxt(k,600)*y(k,98) + mat(k,197) = rxt(k,608)*y(k,70) + rxt(k,605)*y(k,98) + mat(k,200) = -(rxt(k,600)*y(k,98) + rxt(k,602)*y(k,70) + rxt(k,603)*y(k,72)) + mat(k,1044) = -rxt(k,600)*y(k,137) + mat(k,1348) = -rxt(k,602)*y(k,137) + mat(k,1898) = -rxt(k,603)*y(k,137) + mat(k,1044) = mat(k,1044) + rxt(k,604)*y(k,138) + mat(k,194) = rxt(k,604)*y(k,98) + mat(k,193) = -((rxt(k,604) + rxt(k,605)) * y(k,98) + rxt(k,608)*y(k,70)) + mat(k,1043) = -(rxt(k,604) + rxt(k,605)) * y(k,138) + mat(k,1347) = -rxt(k,608)*y(k,138) + mat(k,2093) = -(rxt(k,107)*y(k,90) + rxt(k,118)*y(k,96) + rxt(k,119)*y(k,94) & + rxt(k,139)*y(k,99) + rxt(k,140)*y(k,104) + rxt(k,143)*y(k,106) & + rxt(k,288)*y(k,111) + rxt(k,294)*y(k,115) + rxt(k,296) & *y(k,113) + rxt(k,305)*y(k,120) + rxt(k,307)*y(k,121) + rxt(k,313) & @@ -2302,98 +2309,98 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) *y(k,128) + rxt(k,337)*y(k,132) + rxt(k,355)*y(k,135) + rxt(k,365) & *y(k,118) + rxt(k,366)*y(k,122) + rxt(k,367)*y(k,119) + rxt(k,372) & *y(k,108) + rxt(k,374)*y(k,102) + rxt(k,376)*y(k,103) + rxt(k,378) & - *y(k,105) + rxt(k,390)*y(k,71) + rxt(k,509)*y(k,39) + rxt(k,557) & + *y(k,105) + rxt(k,390)*y(k,71) + rxt(k,511)*y(k,39) + rxt(k,559) & *y(k,82)) - mat(k,829) = -rxt(k,107)*y(k,139) - mat(k,687) = -rxt(k,118)*y(k,139) - mat(k,1038) = -rxt(k,119)*y(k,139) + mat(k,831) = -rxt(k,107)*y(k,139) + mat(k,689) = -rxt(k,118)*y(k,139) + mat(k,1040) = -rxt(k,119)*y(k,139) mat(k,172) = -rxt(k,139)*y(k,139) mat(k,110) = -rxt(k,140)*y(k,139) mat(k,114) = -rxt(k,143)*y(k,139) - mat(k,948) = -rxt(k,288)*y(k,139) - mat(k,707) = -rxt(k,294)*y(k,139) - mat(k,886) = -rxt(k,296)*y(k,139) + mat(k,950) = -rxt(k,288)*y(k,139) + mat(k,709) = -rxt(k,294)*y(k,139) + mat(k,888) = -rxt(k,296)*y(k,139) mat(k,178) = -rxt(k,305)*y(k,139) mat(k,270) = -rxt(k,307)*y(k,139) mat(k,263) = -rxt(k,313)*y(k,139) mat(k,299) = -(rxt(k,327) + rxt(k,328)) * y(k,139) - mat(k,1623) = -rxt(k,329)*y(k,139) - mat(k,472) = -rxt(k,337)*y(k,139) - mat(k,1902) = -rxt(k,355)*y(k,139) - mat(k,1174) = -rxt(k,365)*y(k,139) + mat(k,1617) = -rxt(k,329)*y(k,139) + mat(k,474) = -rxt(k,337)*y(k,139) + mat(k,1895) = -rxt(k,355)*y(k,139) + mat(k,1175) = -rxt(k,365)*y(k,139) mat(k,1344) = -rxt(k,366)*y(k,139) - mat(k,1217) = -rxt(k,367)*y(k,139) + mat(k,1218) = -rxt(k,367)*y(k,139) mat(k,288) = -rxt(k,372)*y(k,139) mat(k,251) = -rxt(k,374)*y(k,139) - mat(k,1260) = -rxt(k,376)*y(k,139) - mat(k,1709) = -rxt(k,378)*y(k,139) - mat(k,808) = -rxt(k,390)*y(k,139) - mat(k,349) = -rxt(k,509)*y(k,139) - mat(k,106) = -rxt(k,557)*y(k,139) - mat(k,192) = rxt(k,514)*y(k,133) - mat(k,757) = rxt(k,532)*y(k,133) - mat(k,229) = rxt(k,516)*y(k,133) - mat(k,51) = rxt(k,517)*y(k,133) - mat(k,154) = rxt(k,519)*y(k,133) - mat(k,160) = rxt(k,535)*y(k,133) - mat(k,430) = rxt(k,536)*y(k,133) - mat(k,1785) = rxt(k,410)*y(k,101) + rxt(k,344)*y(k,134) - mat(k,666) = rxt(k,415)*y(k,133) + rxt(k,353)*y(k,135) + mat(k,1660) = -rxt(k,376)*y(k,139) + mat(k,1302) = -rxt(k,378)*y(k,139) + mat(k,810) = -rxt(k,390)*y(k,139) + mat(k,341) = -rxt(k,511)*y(k,139) + mat(k,106) = -rxt(k,559)*y(k,139) + mat(k,192) = rxt(k,516)*y(k,133) + mat(k,759) = rxt(k,534)*y(k,133) + mat(k,229) = rxt(k,518)*y(k,133) + mat(k,51) = rxt(k,519)*y(k,133) + mat(k,154) = rxt(k,521)*y(k,133) + mat(k,160) = rxt(k,537)*y(k,133) + mat(k,432) = rxt(k,538)*y(k,133) + mat(k,1778) = rxt(k,410)*y(k,101) + rxt(k,344)*y(k,134) + mat(k,668) = rxt(k,415)*y(k,133) + rxt(k,353)*y(k,135) mat(k,220) = rxt(k,416)*y(k,133) - mat(k,331) = rxt(k,500)*y(k,133) - mat(k,121) = rxt(k,524)*y(k,133) - mat(k,2030) = (rxt(k,570)+rxt(k,575))*y(k,53) + (rxt(k,563)+rxt(k,569) & - +rxt(k,574))*y(k,54) + rxt(k,106)*y(k,91) + rxt(k,471)*y(k,133) & + mat(k,323) = rxt(k,502)*y(k,133) + mat(k,121) = rxt(k,526)*y(k,133) + mat(k,2033) = (rxt(k,572)+rxt(k,577))*y(k,53) + (rxt(k,565)+rxt(k,571) & + +rxt(k,576))*y(k,54) + rxt(k,106)*y(k,91) + rxt(k,473)*y(k,133) & + rxt(k,345)*y(k,134) - mat(k,1542) = rxt(k,295)*y(k,115) + rxt(k,447)*y(k,133) - mat(k,185) = rxt(k,423)*y(k,133) - mat(k,316) = (rxt(k,570)+rxt(k,575))*y(k,49) - mat(k,339) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,49) + rxt(k,474)*y(k,133) + mat(k,1536) = rxt(k,295)*y(k,115) + rxt(k,446)*y(k,133) + mat(k,185) = rxt(k,424)*y(k,133) + mat(k,308) = (rxt(k,572)+rxt(k,577))*y(k,49) + mat(k,331) = (rxt(k,565)+rxt(k,571)+rxt(k,576))*y(k,49) + rxt(k,476)*y(k,133) mat(k,282) = rxt(k,340)*y(k,133) - mat(k,412) = rxt(k,293)*y(k,114) - mat(k,1985) = rxt(k,123)*y(k,96) - mat(k,1833) = rxt(k,120)*y(k,96) - mat(k,829) = mat(k,829) + 3.000_r8*rxt(k,195)*y(k,103) + 4.000_r8*rxt(k,147) & + mat(k,400) = rxt(k,293)*y(k,114) + mat(k,1988) = rxt(k,123)*y(k,96) + mat(k,1826) = rxt(k,120)*y(k,96) + mat(k,831) = mat(k,831) + 3.000_r8*rxt(k,195)*y(k,103) + 4.000_r8*rxt(k,147) & *y(k,105) + 5.000_r8*rxt(k,177)*y(k,107) + 2.000_r8*rxt(k,230) & *y(k,119) + rxt(k,212)*y(k,122) - mat(k,549) = rxt(k,106)*y(k,49) + 4.000_r8*rxt(k,199)*y(k,103) & + mat(k,551) = rxt(k,106)*y(k,49) + 4.000_r8*rxt(k,199)*y(k,103) & + 5.000_r8*rxt(k,164)*y(k,105) + 6.000_r8*rxt(k,182)*y(k,107) & + rxt(k,252)*y(k,118) + 3.000_r8*rxt(k,234)*y(k,119) & + 2.000_r8*rxt(k,217)*y(k,122) + rxt(k,159)*y(k,128) - mat(k,533) = 3.000_r8*rxt(k,187)*y(k,103) + (4.000_r8*rxt(k,181) & + mat(k,535) = 3.000_r8*rxt(k,187)*y(k,103) + (4.000_r8*rxt(k,181) & +4.000_r8*rxt(k,267))*y(k,105) + (5.000_r8*rxt(k,169) & +5.000_r8*rxt(k,268))*y(k,107) + 2.000_r8*rxt(k,222)*y(k,119) & + rxt(k,205)*y(k,122) - mat(k,1038) = mat(k,1038) + 3.000_r8*rxt(k,186)*y(k,103) + ( & + mat(k,1040) = mat(k,1040) + 3.000_r8*rxt(k,186)*y(k,103) + ( & + 4.000_r8*rxt(k,170)+4.000_r8*rxt(k,258))*y(k,105) + ( & + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,265))*y(k,107) & + 2.000_r8*rxt(k,221)*y(k,119) + rxt(k,204)*y(k,122) - mat(k,518) = 5.000_r8*rxt(k,194)*y(k,103) + (6.000_r8*rxt(k,247) & + mat(k,520) = 5.000_r8*rxt(k,194)*y(k,103) + (6.000_r8*rxt(k,247) & +6.000_r8*rxt(k,271))*y(k,105) + (7.000_r8*rxt(k,176) & +7.000_r8*rxt(k,259))*y(k,107) + 2.000_r8*rxt(k,246)*y(k,118) & + 4.000_r8*rxt(k,229)*y(k,119) + 3.000_r8*rxt(k,211)*y(k,122) & + 2.000_r8*rxt(k,153)*y(k,128) - mat(k,687) = mat(k,687) + rxt(k,123)*y(k,62) + rxt(k,120)*y(k,63) & + mat(k,689) = mat(k,689) + rxt(k,123)*y(k,62) + rxt(k,120)*y(k,63) & + 4.000_r8*rxt(k,196)*y(k,103) + (5.000_r8*rxt(k,158) & +5.000_r8*rxt(k,260))*y(k,105) + (6.000_r8*rxt(k,178) & +6.000_r8*rxt(k,261))*y(k,107) + rxt(k,249)*y(k,118) & + 3.000_r8*rxt(k,231)*y(k,119) + 2.000_r8*rxt(k,213)*y(k,122) & + rxt(k,155)*y(k,128) - mat(k,861) = 3.000_r8*rxt(k,191)*y(k,103) + 4.000_r8*rxt(k,225)*y(k,105) & + mat(k,863) = 3.000_r8*rxt(k,191)*y(k,103) + 4.000_r8*rxt(k,225)*y(k,105) & + 5.000_r8*rxt(k,174)*y(k,107) + 2.000_r8*rxt(k,227)*y(k,119) & + rxt(k,209)*y(k,122) - mat(k,1081) = rxt(k,138)*y(k,99) + 2.000_r8*rxt(k,382)*y(k,102) & + mat(k,1083) = rxt(k,138)*y(k,99) + 2.000_r8*rxt(k,382)*y(k,102) & + 3.000_r8*rxt(k,383)*y(k,103) + 4.000_r8*rxt(k,141)*y(k,105) & + 5.000_r8*rxt(k,144)*y(k,107) + rxt(k,381)*y(k,108) & + 2.000_r8*rxt(k,303)*y(k,119) + 3.000_r8*rxt(k,304)*y(k,120) & + rxt(k,308)*y(k,122) + rxt(k,326)*y(k,129) mat(k,172) = mat(k,172) + rxt(k,138)*y(k,98) - mat(k,503) = 3.000_r8*rxt(k,189)*y(k,103) + 4.000_r8*rxt(k,203)*y(k,105) & + mat(k,505) = 3.000_r8*rxt(k,189)*y(k,103) + 4.000_r8*rxt(k,203)*y(k,105) & + 5.000_r8*rxt(k,172)*y(k,107) + 2.000_r8*rxt(k,224)*y(k,119) & + rxt(k,207)*y(k,122) - mat(k,921) = rxt(k,410)*y(k,40) + rxt(k,417)*y(k,133) + mat(k,923) = rxt(k,410)*y(k,40) + rxt(k,417)*y(k,133) mat(k,251) = mat(k,251) + 2.000_r8*rxt(k,382)*y(k,98) - mat(k,1260) = mat(k,1260) + 3.000_r8*rxt(k,195)*y(k,90) + 4.000_r8*rxt(k,199) & + mat(k,1660) = mat(k,1660) + 3.000_r8*rxt(k,195)*y(k,90) + 4.000_r8*rxt(k,199) & *y(k,91) + 3.000_r8*rxt(k,187)*y(k,92) + 3.000_r8*rxt(k,186) & *y(k,94) + 5.000_r8*rxt(k,194)*y(k,95) + 4.000_r8*rxt(k,196) & *y(k,96) + 3.000_r8*rxt(k,191)*y(k,97) + 3.000_r8*rxt(k,383) & @@ -2402,7 +2409,7 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) *y(k,113) + 5.000_r8*rxt(k,200)*y(k,114) + 4.000_r8*rxt(k,193) & *y(k,115) + 3.000_r8*rxt(k,198)*y(k,116) + 3.000_r8*rxt(k,185) & *y(k,117) + 3.000_r8*rxt(k,190)*y(k,127) - mat(k,1709) = mat(k,1709) + 4.000_r8*rxt(k,147)*y(k,90) + 5.000_r8*rxt(k,164) & + mat(k,1302) = mat(k,1302) + 4.000_r8*rxt(k,147)*y(k,90) + 5.000_r8*rxt(k,164) & *y(k,91) + (4.000_r8*rxt(k,181)+4.000_r8*rxt(k,267))*y(k,92) + ( & + 4.000_r8*rxt(k,170)+4.000_r8*rxt(k,258))*y(k,94) + ( & + 6.000_r8*rxt(k,247)+6.000_r8*rxt(k,271))*y(k,95) + ( & @@ -2414,7 +2421,7 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,115) & + 4.000_r8*rxt(k,163)*y(k,116) + (4.000_r8*rxt(k,146) & +4.000_r8*rxt(k,269))*y(k,117) + 4.000_r8*rxt(k,214)*y(k,127) - mat(k,1666) = 5.000_r8*rxt(k,177)*y(k,90) + 6.000_r8*rxt(k,182)*y(k,91) + ( & + mat(k,1447) = 5.000_r8*rxt(k,177)*y(k,90) + 6.000_r8*rxt(k,182)*y(k,91) + ( & + 5.000_r8*rxt(k,169)+5.000_r8*rxt(k,268))*y(k,92) + ( & + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,265))*y(k,94) + ( & + 7.000_r8*rxt(k,176)+7.000_r8*rxt(k,259))*y(k,95) + ( & @@ -2427,37 +2434,37 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) + 5.000_r8*rxt(k,180)*y(k,116) + (5.000_r8*rxt(k,167) & +5.000_r8*rxt(k,270))*y(k,117) + 5.000_r8*rxt(k,173)*y(k,127) mat(k,288) = mat(k,288) + rxt(k,381)*y(k,98) - mat(k,948) = mat(k,948) + 3.000_r8*rxt(k,201)*y(k,103) + 4.000_r8*rxt(k,166) & + mat(k,950) = mat(k,950) + 3.000_r8*rxt(k,201)*y(k,103) + 4.000_r8*rxt(k,166) & *y(k,105) + 5.000_r8*rxt(k,184)*y(k,107) + 2.000_r8*rxt(k,237) & *y(k,119) + rxt(k,219)*y(k,122) - mat(k,563) = 4.000_r8*rxt(k,197)*y(k,103) + 5.000_r8*rxt(k,162)*y(k,105) & + mat(k,565) = 4.000_r8*rxt(k,197)*y(k,103) + 5.000_r8*rxt(k,162)*y(k,105) & + 6.000_r8*rxt(k,179)*y(k,107) + rxt(k,250)*y(k,118) & + 3.000_r8*rxt(k,232)*y(k,119) + 2.000_r8*rxt(k,215)*y(k,122) & + rxt(k,156)*y(k,128) - mat(k,886) = mat(k,886) + 3.000_r8*rxt(k,188)*y(k,103) + (4.000_r8*rxt(k,192) & + mat(k,888) = mat(k,888) + 3.000_r8*rxt(k,188)*y(k,103) + (4.000_r8*rxt(k,192) & +4.000_r8*rxt(k,264))*y(k,105) + (5.000_r8*rxt(k,171) & +5.000_r8*rxt(k,266))*y(k,107) + 2.000_r8*rxt(k,223)*y(k,119) & + rxt(k,206)*y(k,122) - mat(k,642) = rxt(k,293)*y(k,58) + 5.000_r8*rxt(k,200)*y(k,103) & + mat(k,644) = rxt(k,293)*y(k,58) + 5.000_r8*rxt(k,200)*y(k,103) & + 6.000_r8*rxt(k,165)*y(k,105) + 7.000_r8*rxt(k,183)*y(k,107) & + 2.000_r8*rxt(k,253)*y(k,118) + 4.000_r8*rxt(k,235)*y(k,119) & + 3.000_r8*rxt(k,218)*y(k,122) + 2.000_r8*rxt(k,160)*y(k,128) - mat(k,707) = mat(k,707) + rxt(k,295)*y(k,51) + 4.000_r8*rxt(k,193)*y(k,103) + ( & + mat(k,709) = mat(k,709) + rxt(k,295)*y(k,51) + 4.000_r8*rxt(k,193)*y(k,103) + ( & + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,105) + ( & + 6.000_r8*rxt(k,175)+6.000_r8*rxt(k,263))*y(k,107) + rxt(k,245) & *y(k,118) + 3.000_r8*rxt(k,228)*y(k,119) + 2.000_r8*rxt(k,210) & *y(k,122) + rxt(k,152)*y(k,128) - mat(k,579) = 3.000_r8*rxt(k,198)*y(k,103) + 4.000_r8*rxt(k,163)*y(k,105) & + mat(k,581) = 3.000_r8*rxt(k,198)*y(k,103) + 4.000_r8*rxt(k,163)*y(k,105) & + 5.000_r8*rxt(k,180)*y(k,107) + 2.000_r8*rxt(k,233)*y(k,119) & + rxt(k,216)*y(k,122) - mat(k,622) = 3.000_r8*rxt(k,185)*y(k,103) + (4.000_r8*rxt(k,146) & + mat(k,624) = 3.000_r8*rxt(k,185)*y(k,103) + (4.000_r8*rxt(k,146) & +4.000_r8*rxt(k,269))*y(k,105) + (5.000_r8*rxt(k,167) & +5.000_r8*rxt(k,270))*y(k,107) + 2.000_r8*rxt(k,220)*y(k,119) & + rxt(k,202)*y(k,122) - mat(k,1174) = mat(k,1174) + rxt(k,252)*y(k,91) + 2.000_r8*rxt(k,246)*y(k,95) & + mat(k,1175) = mat(k,1175) + rxt(k,252)*y(k,91) + 2.000_r8*rxt(k,246)*y(k,95) & + rxt(k,249)*y(k,96) + rxt(k,250)*y(k,112) + 2.000_r8*rxt(k,253) & *y(k,114) + rxt(k,245)*y(k,115) - mat(k,1217) = mat(k,1217) + 2.000_r8*rxt(k,230)*y(k,90) + 3.000_r8*rxt(k,234) & + mat(k,1218) = mat(k,1218) + 2.000_r8*rxt(k,230)*y(k,90) + 3.000_r8*rxt(k,234) & *y(k,91) + 2.000_r8*rxt(k,222)*y(k,92) + 2.000_r8*rxt(k,221) & *y(k,94) + 4.000_r8*rxt(k,229)*y(k,95) + 3.000_r8*rxt(k,231) & *y(k,96) + 2.000_r8*rxt(k,227)*y(k,97) + 2.000_r8*rxt(k,303) & @@ -2475,22 +2482,22 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) + 3.000_r8*rxt(k,218)*y(k,114) + 2.000_r8*rxt(k,210)*y(k,115) & + rxt(k,216)*y(k,116) + rxt(k,202)*y(k,117) + rxt(k,208) & *y(k,127) - mat(k,1578) = 3.000_r8*rxt(k,190)*y(k,103) + 4.000_r8*rxt(k,214)*y(k,105) & + mat(k,1572) = 3.000_r8*rxt(k,190)*y(k,103) + 4.000_r8*rxt(k,214)*y(k,105) & + 5.000_r8*rxt(k,173)*y(k,107) + 2.000_r8*rxt(k,226)*y(k,119) & + rxt(k,208)*y(k,122) - mat(k,1623) = mat(k,1623) + rxt(k,159)*y(k,91) + 2.000_r8*rxt(k,153)*y(k,95) & + mat(k,1617) = mat(k,1617) + rxt(k,159)*y(k,91) + 2.000_r8*rxt(k,153)*y(k,95) & + rxt(k,155)*y(k,96) + rxt(k,156)*y(k,112) + 2.000_r8*rxt(k,160) & *y(k,114) + rxt(k,152)*y(k,115) mat(k,299) = mat(k,299) + rxt(k,326)*y(k,98) - mat(k,1005) = rxt(k,514)*y(k,16) + rxt(k,532)*y(k,17) + rxt(k,516)*y(k,18) & - + rxt(k,517)*y(k,19) + rxt(k,519)*y(k,20) + rxt(k,535)*y(k,22) & - + rxt(k,536)*y(k,23) + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,43) & - + rxt(k,500)*y(k,45) + rxt(k,524)*y(k,48) + rxt(k,471)*y(k,49) & - + rxt(k,447)*y(k,51) + rxt(k,423)*y(k,52) + rxt(k,474)*y(k,54) & + mat(k,1007) = rxt(k,516)*y(k,16) + rxt(k,534)*y(k,17) + rxt(k,518)*y(k,18) & + + rxt(k,519)*y(k,19) + rxt(k,521)*y(k,20) + rxt(k,537)*y(k,22) & + + rxt(k,538)*y(k,23) + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,43) & + + rxt(k,502)*y(k,45) + rxt(k,526)*y(k,48) + rxt(k,473)*y(k,49) & + + rxt(k,446)*y(k,51) + rxt(k,424)*y(k,52) + rxt(k,476)*y(k,54) & + rxt(k,340)*y(k,55) + rxt(k,417)*y(k,101) + 2.000_r8*rxt(k,420) & *y(k,133) - mat(k,1866) = rxt(k,344)*y(k,40) + rxt(k,345)*y(k,49) - mat(k,1902) = mat(k,1902) + rxt(k,353)*y(k,41) + mat(k,1859) = rxt(k,344)*y(k,40) + rxt(k,345)*y(k,49) + mat(k,1895) = mat(k,1895) + rxt(k,353)*y(k,41) end do end subroutine nlnmat10 subroutine nlnmat_finit( avec_len, mat, lmat, dti ) @@ -2627,8 +2634,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 179) = mat(k, 179) + lmat(k, 179) mat(k, 180) = lmat(k, 180) mat(k, 181) = mat(k, 181) + lmat(k, 181) - mat(k, 183) = lmat(k, 183) - mat(k, 184) = mat(k, 184) + lmat(k, 184) + mat(k, 182) = lmat(k, 182) + mat(k, 183) = mat(k, 183) + lmat(k, 183) mat(k, 186) = mat(k, 186) + lmat(k, 186) mat(k, 187) = mat(k, 187) + lmat(k, 187) mat(k, 193) = mat(k, 193) + lmat(k, 193) @@ -2656,8 +2663,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 223) = mat(k, 223) + lmat(k, 223) mat(k, 230) = mat(k, 230) + lmat(k, 230) mat(k, 239) = mat(k, 239) + lmat(k, 239) - mat(k, 244) = mat(k, 244) + lmat(k, 244) - mat(k, 245) = lmat(k, 245) + mat(k, 243) = lmat(k, 243) + mat(k, 245) = mat(k, 245) + lmat(k, 245) mat(k, 246) = mat(k, 246) + lmat(k, 246) mat(k, 247) = lmat(k, 247) mat(k, 251) = mat(k, 251) + lmat(k, 251) @@ -2666,667 +2673,670 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 259) = lmat(k, 259) mat(k, 264) = mat(k, 264) + lmat(k, 264) mat(k, 266) = lmat(k, 266) - mat(k, 267) = mat(k, 267) + lmat(k, 267) + mat(k, 268) = mat(k, 268) + lmat(k, 268) mat(k, 271) = mat(k, 271) + lmat(k, 271) mat(k, 278) = mat(k, 278) + lmat(k, 278) mat(k, 279) = mat(k, 279) + lmat(k, 279) mat(k, 281) = lmat(k, 281) mat(k, 284) = mat(k, 284) + lmat(k, 284) mat(k, 292) = mat(k, 292) + lmat(k, 292) - mat(k, 297) = lmat(k, 297) + mat(k, 295) = lmat(k, 295) mat(k, 299) = mat(k, 299) + lmat(k, 299) - mat(k, 300) = mat(k, 300) + lmat(k, 300) + mat(k, 301) = mat(k, 301) + lmat(k, 301) + mat(k, 302) = lmat(k, 302) + mat(k, 304) = mat(k, 304) + lmat(k, 304) mat(k, 309) = mat(k, 309) + lmat(k, 309) - mat(k, 310) = lmat(k, 310) - mat(k, 312) = mat(k, 312) + lmat(k, 312) + mat(k, 316) = mat(k, 316) + lmat(k, 316) mat(k, 317) = mat(k, 317) + lmat(k, 317) - mat(k, 324) = mat(k, 324) + lmat(k, 324) + mat(k, 322) = mat(k, 322) + lmat(k, 322) mat(k, 325) = mat(k, 325) + lmat(k, 325) - mat(k, 330) = mat(k, 330) + lmat(k, 330) + mat(k, 326) = mat(k, 326) + lmat(k, 326) + mat(k, 329) = mat(k, 329) + lmat(k, 329) mat(k, 333) = mat(k, 333) + lmat(k, 333) - mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 337) = mat(k, 337) + lmat(k, 337) - mat(k, 341) = mat(k, 341) + lmat(k, 341) - mat(k, 351) = mat(k, 351) + lmat(k, 351) - mat(k, 352) = lmat(k, 352) - mat(k, 355) = lmat(k, 355) - mat(k, 358) = mat(k, 358) + lmat(k, 358) - mat(k, 359) = mat(k, 359) + lmat(k, 359) + mat(k, 343) = mat(k, 343) + lmat(k, 343) + mat(k, 345) = mat(k, 345) + lmat(k, 345) + mat(k, 353) = mat(k, 353) + lmat(k, 353) + mat(k, 354) = lmat(k, 354) + mat(k, 357) = lmat(k, 357) + mat(k, 360) = mat(k, 360) + lmat(k, 360) mat(k, 361) = mat(k, 361) + lmat(k, 361) mat(k, 363) = mat(k, 363) + lmat(k, 363) - mat(k, 364) = mat(k, 364) + lmat(k, 364) mat(k, 365) = mat(k, 365) + lmat(k, 365) - mat(k, 366) = lmat(k, 366) - mat(k, 369) = mat(k, 369) + lmat(k, 369) - mat(k, 377) = mat(k, 377) + lmat(k, 377) - mat(k, 380) = mat(k, 380) + lmat(k, 380) - mat(k, 388) = mat(k, 388) + lmat(k, 388) - mat(k, 389) = lmat(k, 389) - mat(k, 393) = lmat(k, 393) - mat(k, 401) = mat(k, 401) + lmat(k, 401) + mat(k, 366) = mat(k, 366) + lmat(k, 366) + mat(k, 367) = mat(k, 367) + lmat(k, 367) + mat(k, 368) = lmat(k, 368) + mat(k, 371) = mat(k, 371) + lmat(k, 371) + mat(k, 379) = mat(k, 379) + lmat(k, 379) + mat(k, 386) = mat(k, 386) + lmat(k, 386) + mat(k, 389) = mat(k, 389) + lmat(k, 389) + mat(k, 394) = lmat(k, 394) + mat(k, 396) = mat(k, 396) + lmat(k, 396) + mat(k, 397) = lmat(k, 397) + mat(k, 398) = lmat(k, 398) + mat(k, 399) = lmat(k, 399) + mat(k, 404) = mat(k, 404) + lmat(k, 404) mat(k, 405) = lmat(k, 405) - mat(k, 406) = mat(k, 406) + lmat(k, 406) mat(k, 409) = lmat(k, 409) - mat(k, 410) = lmat(k, 410) - mat(k, 411) = lmat(k, 411) - mat(k, 414) = lmat(k, 414) - mat(k, 416) = mat(k, 416) + lmat(k, 416) - mat(k, 417) = mat(k, 417) + lmat(k, 417) + mat(k, 416) = lmat(k, 416) mat(k, 418) = mat(k, 418) + lmat(k, 418) mat(k, 419) = mat(k, 419) + lmat(k, 419) - mat(k, 422) = mat(k, 422) + lmat(k, 422) - mat(k, 423) = lmat(k, 423) - mat(k, 424) = lmat(k, 424) - mat(k, 428) = mat(k, 428) + lmat(k, 428) + mat(k, 420) = mat(k, 420) + lmat(k, 420) + mat(k, 421) = mat(k, 421) + lmat(k, 421) + mat(k, 424) = mat(k, 424) + lmat(k, 424) + mat(k, 425) = lmat(k, 425) + mat(k, 428) = lmat(k, 428) mat(k, 430) = mat(k, 430) + lmat(k, 430) mat(k, 432) = mat(k, 432) + lmat(k, 432) - mat(k, 444) = lmat(k, 444) - mat(k, 446) = mat(k, 446) + lmat(k, 446) - mat(k, 450) = lmat(k, 450) - mat(k, 461) = mat(k, 461) + lmat(k, 461) - mat(k, 474) = lmat(k, 474) - mat(k, 476) = mat(k, 476) + lmat(k, 476) - mat(k, 482) = mat(k, 482) + lmat(k, 482) - mat(k, 490) = mat(k, 490) + lmat(k, 490) - mat(k, 504) = mat(k, 504) + lmat(k, 504) - mat(k, 505) = lmat(k, 505) - mat(k, 518) = mat(k, 518) + lmat(k, 518) - mat(k, 519) = mat(k, 519) + lmat(k, 519) - mat(k, 520) = lmat(k, 520) - mat(k, 532) = mat(k, 532) + lmat(k, 532) - mat(k, 535) = mat(k, 535) + lmat(k, 535) - mat(k, 536) = lmat(k, 536) - mat(k, 549) = mat(k, 549) + lmat(k, 549) - mat(k, 550) = mat(k, 550) + lmat(k, 550) - mat(k, 551) = lmat(k, 551) - mat(k, 563) = mat(k, 563) + lmat(k, 563) - mat(k, 564) = mat(k, 564) + lmat(k, 564) - mat(k, 582) = mat(k, 582) + lmat(k, 582) - mat(k, 594) = mat(k, 594) + lmat(k, 594) - mat(k, 598) = mat(k, 598) + lmat(k, 598) + mat(k, 434) = mat(k, 434) + lmat(k, 434) + mat(k, 446) = lmat(k, 446) + mat(k, 448) = mat(k, 448) + lmat(k, 448) + mat(k, 452) = lmat(k, 452) + mat(k, 463) = mat(k, 463) + lmat(k, 463) + mat(k, 476) = lmat(k, 476) + mat(k, 478) = mat(k, 478) + lmat(k, 478) + mat(k, 485) = mat(k, 485) + lmat(k, 485) + mat(k, 492) = mat(k, 492) + lmat(k, 492) + mat(k, 506) = mat(k, 506) + lmat(k, 506) + mat(k, 507) = lmat(k, 507) + mat(k, 520) = mat(k, 520) + lmat(k, 520) + mat(k, 521) = mat(k, 521) + lmat(k, 521) + mat(k, 522) = lmat(k, 522) + mat(k, 534) = mat(k, 534) + lmat(k, 534) + mat(k, 537) = mat(k, 537) + lmat(k, 537) + mat(k, 538) = lmat(k, 538) + mat(k, 551) = mat(k, 551) + lmat(k, 551) + mat(k, 552) = mat(k, 552) + lmat(k, 552) + mat(k, 553) = lmat(k, 553) + mat(k, 565) = mat(k, 565) + lmat(k, 565) + mat(k, 566) = mat(k, 566) + lmat(k, 566) + mat(k, 584) = mat(k, 584) + lmat(k, 584) + mat(k, 596) = mat(k, 596) + lmat(k, 596) + mat(k, 600) = mat(k, 600) + lmat(k, 600) mat(k, 601) = mat(k, 601) + lmat(k, 601) - mat(k, 606) = lmat(k, 606) - mat(k, 607) = mat(k, 607) + lmat(k, 607) + mat(k, 608) = lmat(k, 608) mat(k, 609) = mat(k, 609) + lmat(k, 609) - mat(k, 610) = lmat(k, 610) - mat(k, 616) = mat(k, 616) + lmat(k, 616) - mat(k, 625) = mat(k, 625) + lmat(k, 625) - mat(k, 626) = lmat(k, 626) - mat(k, 642) = mat(k, 642) + lmat(k, 642) - mat(k, 647) = mat(k, 647) + lmat(k, 647) - mat(k, 669) = mat(k, 669) + lmat(k, 669) - mat(k, 673) = lmat(k, 673) - mat(k, 687) = mat(k, 687) + lmat(k, 687) - mat(k, 691) = mat(k, 691) + lmat(k, 691) - mat(k, 692) = lmat(k, 692) - mat(k, 707) = mat(k, 707) + lmat(k, 707) - mat(k, 714) = mat(k, 714) + lmat(k, 714) - mat(k, 715) = mat(k, 715) + lmat(k, 715) - mat(k, 722) = mat(k, 722) + lmat(k, 722) - mat(k, 733) = mat(k, 733) + lmat(k, 733) - mat(k, 736) = lmat(k, 736) - mat(k, 738) = mat(k, 738) + lmat(k, 738) - mat(k, 750) = mat(k, 750) + lmat(k, 750) - mat(k, 787) = mat(k, 787) + lmat(k, 787) - mat(k, 794) = mat(k, 794) + lmat(k, 794) - mat(k, 811) = mat(k, 811) + lmat(k, 811) - mat(k, 833) = mat(k, 833) + lmat(k, 833) - mat(k, 844) = mat(k, 844) + lmat(k, 844) - mat(k, 850) = lmat(k, 850) - mat(k, 866) = mat(k, 866) + lmat(k, 866) - mat(k, 868) = lmat(k, 868) - mat(k, 880) = mat(k, 880) + lmat(k, 880) - mat(k, 889) = mat(k, 889) + lmat(k, 889) - mat(k, 900) = mat(k, 900) + lmat(k, 900) - mat(k, 926) = mat(k, 926) + lmat(k, 926) - mat(k, 928) = lmat(k, 928) - mat(k, 943) = mat(k, 943) + lmat(k, 943) - mat(k, 984) = mat(k, 984) + lmat(k, 984) - mat(k,1014) = mat(k,1014) + lmat(k,1014) - mat(k,1020) = mat(k,1020) + lmat(k,1020) - mat(k,1034) = lmat(k,1034) - mat(k,1058) = mat(k,1058) + lmat(k,1058) - mat(k,1104) = mat(k,1104) + lmat(k,1104) - mat(k,1110) = mat(k,1110) + lmat(k,1110) + mat(k, 611) = mat(k, 611) + lmat(k, 611) + mat(k, 612) = lmat(k, 612) + mat(k, 618) = mat(k, 618) + lmat(k, 618) + mat(k, 627) = mat(k, 627) + lmat(k, 627) + mat(k, 628) = lmat(k, 628) + mat(k, 644) = mat(k, 644) + lmat(k, 644) + mat(k, 649) = mat(k, 649) + lmat(k, 649) + mat(k, 671) = mat(k, 671) + lmat(k, 671) + mat(k, 675) = lmat(k, 675) + mat(k, 689) = mat(k, 689) + lmat(k, 689) + mat(k, 693) = mat(k, 693) + lmat(k, 693) + mat(k, 694) = lmat(k, 694) + mat(k, 709) = mat(k, 709) + lmat(k, 709) + mat(k, 716) = mat(k, 716) + lmat(k, 716) + mat(k, 717) = mat(k, 717) + lmat(k, 717) + mat(k, 724) = mat(k, 724) + lmat(k, 724) + mat(k, 735) = mat(k, 735) + lmat(k, 735) + mat(k, 738) = lmat(k, 738) + mat(k, 740) = mat(k, 740) + lmat(k, 740) + mat(k, 752) = mat(k, 752) + lmat(k, 752) + mat(k, 789) = mat(k, 789) + lmat(k, 789) + mat(k, 795) = mat(k, 795) + lmat(k, 795) + mat(k, 813) = mat(k, 813) + lmat(k, 813) + mat(k, 835) = mat(k, 835) + lmat(k, 835) + mat(k, 852) = lmat(k, 852) + mat(k, 855) = mat(k, 855) + lmat(k, 855) + mat(k, 868) = mat(k, 868) + lmat(k, 868) + mat(k, 870) = lmat(k, 870) + mat(k, 882) = mat(k, 882) + lmat(k, 882) + mat(k, 891) = mat(k, 891) + lmat(k, 891) + mat(k, 902) = mat(k, 902) + lmat(k, 902) + mat(k, 928) = mat(k, 928) + lmat(k, 928) + mat(k, 930) = lmat(k, 930) + mat(k, 945) = mat(k, 945) + lmat(k, 945) + mat(k, 986) = mat(k, 986) + lmat(k, 986) + mat(k,1016) = mat(k,1016) + lmat(k,1016) + mat(k,1031) = mat(k,1031) + lmat(k,1031) + mat(k,1036) = lmat(k,1036) + mat(k,1060) = mat(k,1060) + lmat(k,1060) + mat(k,1106) = mat(k,1106) + lmat(k,1106) mat(k,1112) = mat(k,1112) + lmat(k,1112) - mat(k,1127) = lmat(k,1127) - mat(k,1153) = mat(k,1153) + lmat(k,1153) - mat(k,1197) = mat(k,1197) + lmat(k,1197) - mat(k,1218) = lmat(k,1218) - mat(k,1241) = mat(k,1241) + lmat(k,1241) - mat(k,1260) = mat(k,1260) + lmat(k,1260) - mat(k,1263) = mat(k,1263) + lmat(k,1263) + mat(k,1114) = mat(k,1114) + lmat(k,1114) + mat(k,1129) = lmat(k,1129) + mat(k,1154) = mat(k,1154) + lmat(k,1154) + mat(k,1198) = mat(k,1198) + lmat(k,1198) + mat(k,1222) = mat(k,1222) + lmat(k,1222) + mat(k,1229) = mat(k,1229) + lmat(k,1229) + mat(k,1240) = mat(k,1240) + lmat(k,1240) + mat(k,1243) = mat(k,1243) + lmat(k,1243) + mat(k,1256) = mat(k,1256) + lmat(k,1256) mat(k,1284) = mat(k,1284) + lmat(k,1284) - mat(k,1286) = lmat(k,1286) + mat(k,1292) = lmat(k,1292) + mat(k,1302) = mat(k,1302) + lmat(k,1302) mat(k,1327) = mat(k,1327) + lmat(k,1327) mat(k,1347) = mat(k,1347) + lmat(k,1347) mat(k,1348) = mat(k,1348) + lmat(k,1348) mat(k,1364) = mat(k,1364) + lmat(k,1364) mat(k,1381) = mat(k,1381) + lmat(k,1381) mat(k,1388) = mat(k,1388) + lmat(k,1388) - mat(k,1406) = lmat(k,1406) - mat(k,1407) = mat(k,1407) + lmat(k,1407) - mat(k,1415) = mat(k,1415) + lmat(k,1415) - mat(k,1423) = mat(k,1423) + lmat(k,1423) - mat(k,1430) = mat(k,1430) + lmat(k,1430) - mat(k,1437) = mat(k,1437) + lmat(k,1437) - mat(k,1438) = mat(k,1438) + lmat(k,1438) - mat(k,1442) = mat(k,1442) + lmat(k,1442) - mat(k,1487) = mat(k,1487) + lmat(k,1487) - mat(k,1517) = mat(k,1517) + lmat(k,1517) - mat(k,1529) = mat(k,1529) + lmat(k,1529) - mat(k,1536) = lmat(k,1536) - mat(k,1555) = mat(k,1555) + lmat(k,1555) - mat(k,1563) = mat(k,1563) + lmat(k,1563) - mat(k,1566) = mat(k,1566) + lmat(k,1566) - mat(k,1602) = mat(k,1602) + lmat(k,1602) - mat(k,1612) = mat(k,1612) + lmat(k,1612) - mat(k,1621) = mat(k,1621) + lmat(k,1621) - mat(k,1656) = mat(k,1656) + lmat(k,1656) - mat(k,1657) = lmat(k,1657) - mat(k,1666) = mat(k,1666) + lmat(k,1666) - mat(k,1690) = lmat(k,1690) - mat(k,1700) = mat(k,1700) + lmat(k,1700) - mat(k,1709) = mat(k,1709) + lmat(k,1709) - mat(k,1733) = mat(k,1733) + lmat(k,1733) + mat(k,1429) = lmat(k,1429) + mat(k,1432) = mat(k,1432) + lmat(k,1432) + mat(k,1447) = mat(k,1447) + lmat(k,1447) + mat(k,1481) = mat(k,1481) + lmat(k,1481) + mat(k,1511) = mat(k,1511) + lmat(k,1511) + mat(k,1523) = mat(k,1523) + lmat(k,1523) + mat(k,1530) = lmat(k,1530) + mat(k,1549) = mat(k,1549) + lmat(k,1549) + mat(k,1560) = mat(k,1560) + lmat(k,1560) + mat(k,1569) = mat(k,1569) + lmat(k,1569) + mat(k,1596) = mat(k,1596) + lmat(k,1596) + mat(k,1606) = mat(k,1606) + lmat(k,1606) + mat(k,1615) = mat(k,1615) + lmat(k,1615) + mat(k,1618) = lmat(k,1618) + mat(k,1650) = mat(k,1650) + lmat(k,1650) + mat(k,1660) = mat(k,1660) + lmat(k,1660) + mat(k,1663) = mat(k,1663) + lmat(k,1663) + mat(k,1686) = lmat(k,1686) + mat(k,1693) = mat(k,1693) + lmat(k,1693) + mat(k,1726) = mat(k,1726) + lmat(k,1726) + mat(k,1729) = mat(k,1729) + lmat(k,1729) mat(k,1734) = mat(k,1734) + lmat(k,1734) mat(k,1736) = mat(k,1736) + lmat(k,1736) - mat(k,1741) = mat(k,1741) + lmat(k,1741) - mat(k,1743) = mat(k,1743) + lmat(k,1743) - mat(k,1747) = mat(k,1747) + lmat(k,1747) - mat(k,1778) = mat(k,1778) + lmat(k,1778) - mat(k,1808) = mat(k,1808) + lmat(k,1808) - mat(k,1817) = mat(k,1817) + lmat(k,1817) + mat(k,1739) = mat(k,1739) + lmat(k,1739) + mat(k,1740) = mat(k,1740) + lmat(k,1740) + mat(k,1771) = mat(k,1771) + lmat(k,1771) + mat(k,1801) = mat(k,1801) + lmat(k,1801) + mat(k,1810) = mat(k,1810) + lmat(k,1810) + mat(k,1813) = mat(k,1813) + lmat(k,1813) mat(k,1820) = mat(k,1820) + lmat(k,1820) - mat(k,1827) = mat(k,1827) + lmat(k,1827) - mat(k,1831) = mat(k,1831) + lmat(k,1831) - mat(k,1841) = mat(k,1841) + lmat(k,1841) - mat(k,1843) = mat(k,1843) + lmat(k,1843) - mat(k,1861) = mat(k,1861) + lmat(k,1861) + mat(k,1824) = mat(k,1824) + lmat(k,1824) + mat(k,1834) = mat(k,1834) + lmat(k,1834) + mat(k,1836) = mat(k,1836) + lmat(k,1836) + mat(k,1854) = mat(k,1854) + lmat(k,1854) + mat(k,1872) = mat(k,1872) + lmat(k,1872) mat(k,1879) = mat(k,1879) + lmat(k,1879) - mat(k,1886) = mat(k,1886) + lmat(k,1886) + mat(k,1891) = mat(k,1891) + lmat(k,1891) + mat(k,1897) = lmat(k,1897) mat(k,1898) = mat(k,1898) + lmat(k,1898) mat(k,1906) = mat(k,1906) + lmat(k,1906) - mat(k,1913) = mat(k,1913) + lmat(k,1913) - mat(k,1927) = mat(k,1927) + lmat(k,1927) + mat(k,1914) = mat(k,1914) + lmat(k,1914) + mat(k,1921) = mat(k,1921) + lmat(k,1921) mat(k,1928) = mat(k,1928) + lmat(k,1928) - mat(k,1940) = mat(k,1940) + lmat(k,1940) - mat(k,1947) = mat(k,1947) + lmat(k,1947) - mat(k,1962) = mat(k,1962) + lmat(k,1962) - mat(k,1964) = mat(k,1964) + lmat(k,1964) - mat(k,1969) = mat(k,1969) + lmat(k,1969) - mat(k,1983) = mat(k,1983) + lmat(k,1983) - mat(k,2016) = mat(k,2016) + lmat(k,2016) - mat(k,2023) = mat(k,2023) + lmat(k,2023) - mat(k,2029) = mat(k,2029) + lmat(k,2029) - mat(k,2055) = lmat(k,2055) - mat(k,2060) = mat(k,2060) + lmat(k,2060) - mat(k,2065) = mat(k,2065) + lmat(k,2065) - mat(k,2074) = lmat(k,2074) - mat(k,2083) = lmat(k,2083) - mat(k,2090) = mat(k,2090) + lmat(k,2090) + mat(k,1933) = mat(k,1933) + lmat(k,1933) + mat(k,1941) = mat(k,1941) + lmat(k,1941) + mat(k,1950) = mat(k,1950) + lmat(k,1950) + mat(k,1965) = mat(k,1965) + lmat(k,1965) + mat(k,1967) = mat(k,1967) + lmat(k,1967) + mat(k,1972) = mat(k,1972) + lmat(k,1972) + mat(k,1986) = mat(k,1986) + lmat(k,1986) + mat(k,2019) = mat(k,2019) + lmat(k,2019) + mat(k,2026) = mat(k,2026) + lmat(k,2026) + mat(k,2032) = mat(k,2032) + lmat(k,2032) + mat(k,2058) = lmat(k,2058) + mat(k,2063) = mat(k,2063) + lmat(k,2063) + mat(k,2068) = mat(k,2068) + lmat(k,2068) + mat(k,2077) = lmat(k,2077) + mat(k,2086) = lmat(k,2086) + mat(k,2093) = mat(k,2093) + lmat(k,2093) mat(k, 91) = 0._r8 mat(k, 117) = 0._r8 mat(k, 286) = 0._r8 mat(k, 290) = 0._r8 - mat(k, 295) = 0._r8 - mat(k, 298) = 0._r8 - mat(k, 314) = 0._r8 - mat(k, 356) = 0._r8 - mat(k, 368) = 0._r8 - mat(k, 390) = 0._r8 - mat(k, 391) = 0._r8 - mat(k, 392) = 0._r8 - mat(k, 398) = 0._r8 - mat(k, 426) = 0._r8 + mat(k, 296) = 0._r8 + mat(k, 297) = 0._r8 + mat(k, 306) = 0._r8 + mat(k, 347) = 0._r8 + mat(k, 349) = 0._r8 + mat(k, 358) = 0._r8 + mat(k, 370) = 0._r8 + mat(k, 406) = 0._r8 + mat(k, 407) = 0._r8 + mat(k, 408) = 0._r8 + mat(k, 414) = 0._r8 mat(k, 427) = 0._r8 - mat(k, 435) = 0._r8 - mat(k, 439) = 0._r8 - mat(k, 442) = 0._r8 - mat(k, 445) = 0._r8 + mat(k, 429) = 0._r8 + mat(k, 437) = 0._r8 + mat(k, 440) = 0._r8 + mat(k, 444) = 0._r8 mat(k, 447) = 0._r8 - mat(k, 448) = 0._r8 - mat(k, 452) = 0._r8 - mat(k, 462) = 0._r8 + mat(k, 449) = 0._r8 + mat(k, 450) = 0._r8 + mat(k, 456) = 0._r8 mat(k, 464) = 0._r8 - mat(k, 467) = 0._r8 - mat(k, 469) = 0._r8 + mat(k, 468) = 0._r8 mat(k, 470) = 0._r8 - mat(k, 479) = 0._r8 - mat(k, 489) = 0._r8 - mat(k, 585) = 0._r8 + mat(k, 471) = 0._r8 + mat(k, 472) = 0._r8 + mat(k, 481) = 0._r8 + mat(k, 491) = 0._r8 mat(k, 587) = 0._r8 - mat(k, 588) = 0._r8 mat(k, 589) = 0._r8 mat(k, 591) = 0._r8 + mat(k, 592) = 0._r8 mat(k, 593) = 0._r8 - mat(k, 627) = 0._r8 - mat(k, 632) = 0._r8 - mat(k, 640) = 0._r8 - mat(k, 645) = 0._r8 - mat(k, 646) = 0._r8 + mat(k, 595) = 0._r8 + mat(k, 629) = 0._r8 + mat(k, 634) = 0._r8 + mat(k, 641) = 0._r8 + mat(k, 647) = 0._r8 mat(k, 648) = 0._r8 mat(k, 650) = 0._r8 - mat(k, 653) = 0._r8 - mat(k, 654) = 0._r8 - mat(k, 656) = 0._r8 + mat(k, 652) = 0._r8 + mat(k, 655) = 0._r8 mat(k, 658) = 0._r8 mat(k, 659) = 0._r8 - mat(k, 661) = 0._r8 - mat(k, 664) = 0._r8 - mat(k, 697) = 0._r8 - mat(k, 705) = 0._r8 - mat(k, 716) = 0._r8 - mat(k, 717) = 0._r8 - mat(k, 721) = 0._r8 - mat(k, 725) = 0._r8 + mat(k, 660) = 0._r8 + mat(k, 662) = 0._r8 + mat(k, 665) = 0._r8 + mat(k, 666) = 0._r8 + mat(k, 699) = 0._r8 + mat(k, 706) = 0._r8 + mat(k, 718) = 0._r8 + mat(k, 719) = 0._r8 + mat(k, 723) = 0._r8 mat(k, 726) = 0._r8 mat(k, 727) = 0._r8 + mat(k, 728) = 0._r8 mat(k, 729) = 0._r8 - mat(k, 731) = 0._r8 - mat(k, 732) = 0._r8 - mat(k, 737) = 0._r8 + mat(k, 733) = 0._r8 + mat(k, 734) = 0._r8 mat(k, 739) = 0._r8 - mat(k, 742) = 0._r8 - mat(k, 743) = 0._r8 + mat(k, 741) = 0._r8 mat(k, 744) = 0._r8 + mat(k, 745) = 0._r8 mat(k, 746) = 0._r8 - mat(k, 751) = 0._r8 - mat(k, 752) = 0._r8 + mat(k, 750) = 0._r8 mat(k, 753) = 0._r8 mat(k, 754) = 0._r8 mat(k, 755) = 0._r8 - mat(k, 779) = 0._r8 - mat(k, 782) = 0._r8 - mat(k, 790) = 0._r8 + mat(k, 756) = 0._r8 + mat(k, 757) = 0._r8 + mat(k, 781) = 0._r8 + mat(k, 784) = 0._r8 mat(k, 792) = 0._r8 - mat(k, 793) = 0._r8 mat(k, 797) = 0._r8 mat(k, 798) = 0._r8 mat(k, 799) = 0._r8 mat(k, 800) = 0._r8 + mat(k, 801) = 0._r8 mat(k, 802) = 0._r8 - mat(k, 803) = 0._r8 mat(k, 804) = 0._r8 - mat(k, 834) = 0._r8 + mat(k, 805) = 0._r8 + mat(k, 806) = 0._r8 mat(k, 836) = 0._r8 - mat(k, 839) = 0._r8 - mat(k, 849) = 0._r8 - mat(k, 855) = 0._r8 - mat(k, 856) = 0._r8 + mat(k, 838) = 0._r8 + mat(k, 841) = 0._r8 + mat(k, 851) = 0._r8 mat(k, 857) = 0._r8 - mat(k, 875) = 0._r8 - mat(k, 881) = 0._r8 - mat(k, 882) = 0._r8 - mat(k, 898) = 0._r8 - mat(k, 899) = 0._r8 - mat(k, 902) = 0._r8 + mat(k, 858) = 0._r8 + mat(k, 859) = 0._r8 + mat(k, 878) = 0._r8 + mat(k, 883) = 0._r8 + mat(k, 884) = 0._r8 + mat(k, 900) = 0._r8 + mat(k, 901) = 0._r8 mat(k, 904) = 0._r8 - mat(k, 905) = 0._r8 mat(k, 910) = 0._r8 mat(k, 911) = 0._r8 mat(k, 912) = 0._r8 - mat(k, 916) = 0._r8 - mat(k, 917) = 0._r8 - mat(k, 927) = 0._r8 - mat(k, 934) = 0._r8 - mat(k, 971) = 0._r8 - mat(k, 982) = 0._r8 - mat(k, 985) = 0._r8 + mat(k, 913) = 0._r8 + mat(k, 914) = 0._r8 + mat(k, 918) = 0._r8 + mat(k, 919) = 0._r8 + mat(k, 929) = 0._r8 + mat(k, 937) = 0._r8 + mat(k, 973) = 0._r8 + mat(k, 984) = 0._r8 mat(k, 987) = 0._r8 - mat(k, 988) = 0._r8 + mat(k, 989) = 0._r8 mat(k, 995) = 0._r8 mat(k, 996) = 0._r8 - mat(k,1000) = 0._r8 - mat(k,1001) = 0._r8 - mat(k,1009) = 0._r8 - mat(k,1015) = 0._r8 - mat(k,1030) = 0._r8 - mat(k,1035) = 0._r8 - mat(k,1037) = 0._r8 - mat(k,1047) = 0._r8 - mat(k,1051) = 0._r8 - mat(k,1056) = 0._r8 - mat(k,1059) = 0._r8 - mat(k,1067) = 0._r8 - mat(k,1068) = 0._r8 - mat(k,1073) = 0._r8 + mat(k, 997) = 0._r8 + mat(k,1002) = 0._r8 + mat(k,1003) = 0._r8 + mat(k,1011) = 0._r8 + mat(k,1017) = 0._r8 + mat(k,1021) = 0._r8 + mat(k,1032) = 0._r8 + mat(k,1039) = 0._r8 + mat(k,1049) = 0._r8 + mat(k,1052) = 0._r8 + mat(k,1058) = 0._r8 + mat(k,1061) = 0._r8 + mat(k,1069) = 0._r8 + mat(k,1070) = 0._r8 mat(k,1075) = 0._r8 - mat(k,1076) = 0._r8 - mat(k,1080) = 0._r8 - mat(k,1095) = 0._r8 - mat(k,1098) = 0._r8 - mat(k,1103) = 0._r8 + mat(k,1077) = 0._r8 + mat(k,1078) = 0._r8 + mat(k,1082) = 0._r8 + mat(k,1097) = 0._r8 + mat(k,1100) = 0._r8 mat(k,1105) = 0._r8 - mat(k,1106) = 0._r8 mat(k,1107) = 0._r8 + mat(k,1108) = 0._r8 mat(k,1109) = 0._r8 + mat(k,1110) = 0._r8 + mat(k,1111) = 0._r8 mat(k,1113) = 0._r8 mat(k,1115) = 0._r8 - mat(k,1116) = 0._r8 mat(k,1117) = 0._r8 - mat(k,1119) = 0._r8 - mat(k,1123) = 0._r8 - mat(k,1126) = 0._r8 - mat(k,1130) = 0._r8 - mat(k,1131) = 0._r8 - mat(k,1143) = 0._r8 - mat(k,1147) = 0._r8 - mat(k,1152) = 0._r8 - mat(k,1154) = 0._r8 + mat(k,1118) = 0._r8 + mat(k,1121) = 0._r8 + mat(k,1128) = 0._r8 + mat(k,1132) = 0._r8 + mat(k,1144) = 0._r8 + mat(k,1148) = 0._r8 + mat(k,1153) = 0._r8 mat(k,1155) = 0._r8 - mat(k,1163) = 0._r8 + mat(k,1156) = 0._r8 + mat(k,1157) = 0._r8 + mat(k,1160) = 0._r8 mat(k,1164) = 0._r8 mat(k,1165) = 0._r8 - mat(k,1167) = 0._r8 - mat(k,1169) = 0._r8 + mat(k,1168) = 0._r8 mat(k,1170) = 0._r8 mat(k,1171) = 0._r8 - mat(k,1176) = 0._r8 - mat(k,1190) = 0._r8 - mat(k,1195) = 0._r8 + mat(k,1177) = 0._r8 + mat(k,1191) = 0._r8 mat(k,1196) = 0._r8 - mat(k,1198) = 0._r8 + mat(k,1197) = 0._r8 + mat(k,1199) = 0._r8 mat(k,1200) = 0._r8 - mat(k,1206) = 0._r8 + mat(k,1201) = 0._r8 + mat(k,1203) = 0._r8 mat(k,1207) = 0._r8 mat(k,1208) = 0._r8 - mat(k,1210) = 0._r8 - mat(k,1212) = 0._r8 + mat(k,1211) = 0._r8 mat(k,1213) = 0._r8 mat(k,1214) = 0._r8 - mat(k,1219) = 0._r8 - mat(k,1233) = 0._r8 + mat(k,1223) = 0._r8 + mat(k,1228) = 0._r8 + mat(k,1235) = 0._r8 mat(k,1238) = 0._r8 mat(k,1239) = 0._r8 - mat(k,1240) = 0._r8 - mat(k,1243) = 0._r8 + mat(k,1241) = 0._r8 + mat(k,1242) = 0._r8 + mat(k,1244) = 0._r8 + mat(k,1246) = 0._r8 + mat(k,1248) = 0._r8 mat(k,1249) = 0._r8 - mat(k,1250) = 0._r8 - mat(k,1255) = 0._r8 - mat(k,1256) = 0._r8 - mat(k,1257) = 0._r8 mat(k,1258) = 0._r8 - mat(k,1268) = 0._r8 - mat(k,1269) = 0._r8 - mat(k,1272) = 0._r8 - mat(k,1274) = 0._r8 + mat(k,1259) = 0._r8 mat(k,1275) = 0._r8 - mat(k,1276) = 0._r8 - mat(k,1277) = 0._r8 - mat(k,1279) = 0._r8 mat(k,1280) = 0._r8 + mat(k,1281) = 0._r8 mat(k,1282) = 0._r8 mat(k,1283) = 0._r8 mat(k,1285) = 0._r8 - mat(k,1288) = 0._r8 - mat(k,1289) = 0._r8 - mat(k,1292) = 0._r8 - mat(k,1293) = 0._r8 - mat(k,1294) = 0._r8 - mat(k,1295) = 0._r8 - mat(k,1296) = 0._r8 - mat(k,1299) = 0._r8 + mat(k,1291) = 0._r8 + mat(k,1297) = 0._r8 + mat(k,1298) = 0._r8 mat(k,1300) = 0._r8 - mat(k,1301) = 0._r8 - mat(k,1302) = 0._r8 mat(k,1322) = 0._r8 mat(k,1323) = 0._r8 mat(k,1325) = 0._r8 + mat(k,1326) = 0._r8 + mat(k,1329) = 0._r8 mat(k,1333) = 0._r8 mat(k,1334) = 0._r8 - mat(k,1335) = 0._r8 mat(k,1339) = 0._r8 mat(k,1340) = 0._r8 - mat(k,1341) = 0._r8 mat(k,1354) = 0._r8 mat(k,1360) = 0._r8 mat(k,1373) = 0._r8 mat(k,1384) = 0._r8 - mat(k,1385) = 0._r8 + mat(k,1386) = 0._r8 mat(k,1387) = 0._r8 + mat(k,1389) = 0._r8 mat(k,1391) = 0._r8 mat(k,1394) = 0._r8 - mat(k,1395) = 0._r8 mat(k,1404) = 0._r8 - mat(k,1419) = 0._r8 - mat(k,1421) = 0._r8 - mat(k,1422) = 0._r8 - mat(k,1424) = 0._r8 + mat(k,1420) = 0._r8 mat(k,1425) = 0._r8 + mat(k,1426) = 0._r8 mat(k,1427) = 0._r8 mat(k,1428) = 0._r8 - mat(k,1431) = 0._r8 - mat(k,1433) = 0._r8 - mat(k,1434) = 0._r8 + mat(k,1430) = 0._r8 mat(k,1436) = 0._r8 - mat(k,1439) = 0._r8 - mat(k,1440) = 0._r8 + mat(k,1437) = 0._r8 + mat(k,1442) = 0._r8 mat(k,1443) = 0._r8 - mat(k,1444) = 0._r8 mat(k,1445) = 0._r8 - mat(k,1447) = 0._r8 - mat(k,1448) = 0._r8 - mat(k,1452) = 0._r8 - mat(k,1453) = 0._r8 - mat(k,1468) = 0._r8 - mat(k,1470) = 0._r8 - mat(k,1473) = 0._r8 + mat(k,1462) = 0._r8 + mat(k,1464) = 0._r8 + mat(k,1467) = 0._r8 + mat(k,1472) = 0._r8 + mat(k,1474) = 0._r8 + mat(k,1475) = 0._r8 + mat(k,1477) = 0._r8 mat(k,1478) = 0._r8 mat(k,1480) = 0._r8 - mat(k,1481) = 0._r8 mat(k,1482) = 0._r8 mat(k,1484) = 0._r8 - mat(k,1488) = 0._r8 - mat(k,1490) = 0._r8 - mat(k,1491) = 0._r8 - mat(k,1492) = 0._r8 + mat(k,1485) = 0._r8 + mat(k,1493) = 0._r8 + mat(k,1495) = 0._r8 mat(k,1499) = 0._r8 - mat(k,1501) = 0._r8 + mat(k,1500) = 0._r8 + mat(k,1503) = 0._r8 mat(k,1505) = 0._r8 mat(k,1506) = 0._r8 - mat(k,1509) = 0._r8 - mat(k,1511) = 0._r8 - mat(k,1512) = 0._r8 + mat(k,1513) = 0._r8 + mat(k,1514) = 0._r8 + mat(k,1515) = 0._r8 + mat(k,1516) = 0._r8 + mat(k,1517) = 0._r8 + mat(k,1518) = 0._r8 mat(k,1519) = 0._r8 mat(k,1520) = 0._r8 mat(k,1521) = 0._r8 mat(k,1522) = 0._r8 - mat(k,1523) = 0._r8 mat(k,1525) = 0._r8 mat(k,1526) = 0._r8 - mat(k,1527) = 0._r8 - mat(k,1528) = 0._r8 + mat(k,1529) = 0._r8 mat(k,1531) = 0._r8 - mat(k,1532) = 0._r8 mat(k,1533) = 0._r8 - mat(k,1535) = 0._r8 - mat(k,1537) = 0._r8 - mat(k,1539) = 0._r8 + mat(k,1534) = 0._r8 mat(k,1540) = 0._r8 - mat(k,1546) = 0._r8 - mat(k,1553) = 0._r8 - mat(k,1554) = 0._r8 - mat(k,1570) = 0._r8 - mat(k,1573) = 0._r8 - mat(k,1596) = 0._r8 - mat(k,1601) = 0._r8 - mat(k,1603) = 0._r8 - mat(k,1604) = 0._r8 - mat(k,1606) = 0._r8 + mat(k,1547) = 0._r8 + mat(k,1548) = 0._r8 + mat(k,1564) = 0._r8 + mat(k,1567) = 0._r8 + mat(k,1590) = 0._r8 + mat(k,1595) = 0._r8 + mat(k,1597) = 0._r8 + mat(k,1598) = 0._r8 + mat(k,1599) = 0._r8 + mat(k,1600) = 0._r8 + mat(k,1602) = 0._r8 + mat(k,1607) = 0._r8 + mat(k,1610) = 0._r8 + mat(k,1612) = 0._r8 mat(k,1613) = 0._r8 - mat(k,1614) = 0._r8 - mat(k,1616) = 0._r8 - mat(k,1618) = 0._r8 mat(k,1619) = 0._r8 - mat(k,1620) = 0._r8 + mat(k,1633) = 0._r8 + mat(k,1638) = 0._r8 mat(k,1639) = 0._r8 - mat(k,1644) = 0._r8 + mat(k,1640) = 0._r8 + mat(k,1641) = 0._r8 + mat(k,1643) = 0._r8 mat(k,1645) = 0._r8 - mat(k,1646) = 0._r8 - mat(k,1647) = 0._r8 mat(k,1649) = 0._r8 mat(k,1655) = 0._r8 - mat(k,1661) = 0._r8 - mat(k,1662) = 0._r8 - mat(k,1663) = 0._r8 - mat(k,1664) = 0._r8 + mat(k,1656) = 0._r8 + mat(k,1658) = 0._r8 + mat(k,1668) = 0._r8 + mat(k,1669) = 0._r8 + mat(k,1672) = 0._r8 + mat(k,1674) = 0._r8 + mat(k,1675) = 0._r8 + mat(k,1676) = 0._r8 + mat(k,1677) = 0._r8 + mat(k,1679) = 0._r8 + mat(k,1680) = 0._r8 mat(k,1682) = 0._r8 + mat(k,1683) = 0._r8 + mat(k,1684) = 0._r8 + mat(k,1685) = 0._r8 mat(k,1687) = 0._r8 mat(k,1688) = 0._r8 mat(k,1689) = 0._r8 mat(k,1692) = 0._r8 - mat(k,1698) = 0._r8 - mat(k,1704) = 0._r8 - mat(k,1705) = 0._r8 - mat(k,1706) = 0._r8 + mat(k,1694) = 0._r8 + mat(k,1695) = 0._r8 + mat(k,1696) = 0._r8 + mat(k,1700) = 0._r8 + mat(k,1701) = 0._r8 + mat(k,1702) = 0._r8 mat(k,1707) = 0._r8 + mat(k,1708) = 0._r8 + mat(k,1709) = 0._r8 + mat(k,1710) = 0._r8 + mat(k,1711) = 0._r8 + mat(k,1712) = 0._r8 mat(k,1714) = 0._r8 mat(k,1715) = 0._r8 - mat(k,1716) = 0._r8 mat(k,1717) = 0._r8 - mat(k,1718) = 0._r8 mat(k,1719) = 0._r8 + mat(k,1720) = 0._r8 mat(k,1721) = 0._r8 mat(k,1722) = 0._r8 + mat(k,1723) = 0._r8 mat(k,1724) = 0._r8 - mat(k,1726) = 0._r8 + mat(k,1725) = 0._r8 mat(k,1727) = 0._r8 mat(k,1728) = 0._r8 - mat(k,1729) = 0._r8 mat(k,1730) = 0._r8 mat(k,1731) = 0._r8 mat(k,1732) = 0._r8 + mat(k,1733) = 0._r8 mat(k,1735) = 0._r8 mat(k,1737) = 0._r8 mat(k,1738) = 0._r8 - mat(k,1739) = 0._r8 - mat(k,1740) = 0._r8 + mat(k,1741) = 0._r8 mat(k,1742) = 0._r8 - mat(k,1744) = 0._r8 - mat(k,1745) = 0._r8 mat(k,1746) = 0._r8 - mat(k,1748) = 0._r8 - mat(k,1749) = 0._r8 - mat(k,1753) = 0._r8 - mat(k,1754) = 0._r8 + mat(k,1747) = 0._r8 + mat(k,1750) = 0._r8 + mat(k,1756) = 0._r8 mat(k,1757) = 0._r8 + mat(k,1758) = 0._r8 + mat(k,1760) = 0._r8 mat(k,1763) = 0._r8 mat(k,1764) = 0._r8 mat(k,1765) = 0._r8 - mat(k,1766) = 0._r8 - mat(k,1771) = 0._r8 + mat(k,1767) = 0._r8 + mat(k,1768) = 0._r8 + mat(k,1770) = 0._r8 mat(k,1772) = 0._r8 mat(k,1774) = 0._r8 - mat(k,1775) = 0._r8 - mat(k,1776) = 0._r8 - mat(k,1777) = 0._r8 - mat(k,1779) = 0._r8 - mat(k,1781) = 0._r8 - mat(k,1789) = 0._r8 + mat(k,1782) = 0._r8 + mat(k,1788) = 0._r8 + mat(k,1790) = 0._r8 + mat(k,1791) = 0._r8 mat(k,1795) = 0._r8 - mat(k,1797) = 0._r8 - mat(k,1798) = 0._r8 - mat(k,1802) = 0._r8 + mat(k,1796) = 0._r8 mat(k,1803) = 0._r8 - mat(k,1810) = 0._r8 - mat(k,1812) = 0._r8 - mat(k,1813) = 0._r8 - mat(k,1814) = 0._r8 + mat(k,1805) = 0._r8 + mat(k,1806) = 0._r8 + mat(k,1808) = 0._r8 + mat(k,1809) = 0._r8 + mat(k,1811) = 0._r8 + mat(k,1815) = 0._r8 mat(k,1816) = 0._r8 - mat(k,1822) = 0._r8 - mat(k,1823) = 0._r8 - mat(k,1824) = 0._r8 - mat(k,1826) = 0._r8 - mat(k,1832) = 0._r8 + mat(k,1819) = 0._r8 + mat(k,1825) = 0._r8 + mat(k,1831) = 0._r8 + mat(k,1835) = 0._r8 mat(k,1838) = 0._r8 + mat(k,1839) = 0._r8 + mat(k,1841) = 0._r8 mat(k,1842) = 0._r8 - mat(k,1845) = 0._r8 + mat(k,1844) = 0._r8 mat(k,1846) = 0._r8 mat(k,1847) = 0._r8 + mat(k,1848) = 0._r8 mat(k,1849) = 0._r8 mat(k,1851) = 0._r8 - mat(k,1853) = 0._r8 - mat(k,1854) = 0._r8 mat(k,1855) = 0._r8 mat(k,1856) = 0._r8 mat(k,1857) = 0._r8 - mat(k,1858) = 0._r8 - mat(k,1862) = 0._r8 + mat(k,1861) = 0._r8 mat(k,1864) = 0._r8 + mat(k,1865) = 0._r8 mat(k,1868) = 0._r8 - mat(k,1871) = 0._r8 - mat(k,1872) = 0._r8 + mat(k,1874) = 0._r8 mat(k,1875) = 0._r8 - mat(k,1881) = 0._r8 - mat(k,1882) = 0._r8 + mat(k,1877) = 0._r8 + mat(k,1878) = 0._r8 + mat(k,1880) = 0._r8 mat(k,1883) = 0._r8 + mat(k,1884) = 0._r8 mat(k,1885) = 0._r8 - mat(k,1890) = 0._r8 - mat(k,1891) = 0._r8 - mat(k,1892) = 0._r8 - mat(k,1893) = 0._r8 - mat(k,1894) = 0._r8 - mat(k,1907) = 0._r8 + mat(k,1887) = 0._r8 + mat(k,1910) = 0._r8 mat(k,1912) = 0._r8 + mat(k,1913) = 0._r8 + mat(k,1915) = 0._r8 + mat(k,1916) = 0._r8 + mat(k,1918) = 0._r8 mat(k,1919) = 0._r8 mat(k,1922) = 0._r8 - mat(k,1923) = 0._r8 mat(k,1924) = 0._r8 mat(k,1926) = 0._r8 + mat(k,1927) = 0._r8 + mat(k,1929) = 0._r8 mat(k,1930) = 0._r8 - mat(k,1932) = 0._r8 - mat(k,1933) = 0._r8 + mat(k,1931) = 0._r8 mat(k,1934) = 0._r8 - mat(k,1942) = 0._r8 + mat(k,1936) = 0._r8 + mat(k,1938) = 0._r8 + mat(k,1939) = 0._r8 mat(k,1943) = 0._r8 - mat(k,1952) = 0._r8 + mat(k,1944) = 0._r8 + mat(k,1948) = 0._r8 mat(k,1955) = 0._r8 - mat(k,1965) = 0._r8 - mat(k,1966) = 0._r8 + mat(k,1958) = 0._r8 mat(k,1968) = 0._r8 - mat(k,1972) = 0._r8 + mat(k,1970) = 0._r8 + mat(k,1971) = 0._r8 mat(k,1973) = 0._r8 mat(k,1975) = 0._r8 mat(k,1976) = 0._r8 mat(k,1978) = 0._r8 - mat(k,1980) = 0._r8 - mat(k,1984) = 0._r8 - mat(k,1995) = 0._r8 - mat(k,1996) = 0._r8 - mat(k,1997) = 0._r8 + mat(k,1981) = 0._r8 + mat(k,1983) = 0._r8 + mat(k,1987) = 0._r8 mat(k,1998) = 0._r8 - mat(k,2006) = 0._r8 - mat(k,2007) = 0._r8 + mat(k,1999) = 0._r8 + mat(k,2000) = 0._r8 + mat(k,2001) = 0._r8 mat(k,2009) = 0._r8 mat(k,2010) = 0._r8 - mat(k,2011) = 0._r8 + mat(k,2012) = 0._r8 mat(k,2013) = 0._r8 + mat(k,2014) = 0._r8 mat(k,2015) = 0._r8 - mat(k,2019) = 0._r8 - mat(k,2020) = 0._r8 - mat(k,2021) = 0._r8 + mat(k,2016) = 0._r8 + mat(k,2018) = 0._r8 mat(k,2022) = 0._r8 - mat(k,2024) = 0._r8 + mat(k,2023) = 0._r8 + mat(k,2025) = 0._r8 mat(k,2027) = 0._r8 - mat(k,2028) = 0._r8 - mat(k,2045) = 0._r8 - mat(k,2046) = 0._r8 - mat(k,2047) = 0._r8 + mat(k,2030) = 0._r8 + mat(k,2031) = 0._r8 + mat(k,2048) = 0._r8 mat(k,2049) = 0._r8 - mat(k,2053) = 0._r8 - mat(k,2058) = 0._r8 - mat(k,2059) = 0._r8 - mat(k,2063) = 0._r8 - mat(k,2067) = 0._r8 - mat(k,2068) = 0._r8 - mat(k,2076) = 0._r8 - mat(k,2078) = 0._r8 - mat(k,2082) = 0._r8 - mat(k,2084) = 0._r8 + mat(k,2050) = 0._r8 + mat(k,2052) = 0._r8 + mat(k,2056) = 0._r8 + mat(k,2061) = 0._r8 + mat(k,2062) = 0._r8 + mat(k,2066) = 0._r8 + mat(k,2070) = 0._r8 + mat(k,2071) = 0._r8 + mat(k,2074) = 0._r8 + mat(k,2079) = 0._r8 + mat(k,2081) = 0._r8 + mat(k,2085) = 0._r8 mat(k,2087) = 0._r8 - mat(k,2088) = 0._r8 - mat(k,2089) = 0._r8 + mat(k,2091) = 0._r8 + mat(k,2092) = 0._r8 mat(k, 1) = mat(k, 1) - dti(k) mat(k, 2) = mat(k, 2) - dti(k) mat(k, 3) = mat(k, 3) - dti(k) @@ -3402,70 +3412,70 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 278) = mat(k, 278) - dti(k) mat(k, 284) = mat(k, 284) - dti(k) mat(k, 292) = mat(k, 292) - dti(k) - mat(k, 300) = mat(k, 300) - dti(k) + mat(k, 301) = mat(k, 301) - dti(k) mat(k, 309) = mat(k, 309) - dti(k) - mat(k, 317) = mat(k, 317) - dti(k) - mat(k, 324) = mat(k, 324) - dti(k) + mat(k, 316) = mat(k, 316) - dti(k) + mat(k, 325) = mat(k, 325) - dti(k) mat(k, 333) = mat(k, 333) - dti(k) - mat(k, 341) = mat(k, 341) - dti(k) - mat(k, 351) = mat(k, 351) - dti(k) - mat(k, 359) = mat(k, 359) - dti(k) - mat(k, 369) = mat(k, 369) - dti(k) - mat(k, 377) = mat(k, 377) - dti(k) - mat(k, 388) = mat(k, 388) - dti(k) - mat(k, 401) = mat(k, 401) - dti(k) - mat(k, 416) = mat(k, 416) - dti(k) - mat(k, 432) = mat(k, 432) - dti(k) - mat(k, 446) = mat(k, 446) - dti(k) - mat(k, 461) = mat(k, 461) - dti(k) - mat(k, 476) = mat(k, 476) - dti(k) - mat(k, 490) = mat(k, 490) - dti(k) - mat(k, 504) = mat(k, 504) - dti(k) - mat(k, 519) = mat(k, 519) - dti(k) - mat(k, 535) = mat(k, 535) - dti(k) - mat(k, 550) = mat(k, 550) - dti(k) - mat(k, 564) = mat(k, 564) - dti(k) - mat(k, 582) = mat(k, 582) - dti(k) - mat(k, 594) = mat(k, 594) - dti(k) - mat(k, 609) = mat(k, 609) - dti(k) - mat(k, 625) = mat(k, 625) - dti(k) - mat(k, 647) = mat(k, 647) - dti(k) - mat(k, 669) = mat(k, 669) - dti(k) - mat(k, 691) = mat(k, 691) - dti(k) - mat(k, 715) = mat(k, 715) - dti(k) - mat(k, 738) = mat(k, 738) - dti(k) - mat(k, 787) = mat(k, 787) - dti(k) - mat(k, 811) = mat(k, 811) - dti(k) - mat(k, 833) = mat(k, 833) - dti(k) - mat(k, 866) = mat(k, 866) - dti(k) - mat(k, 900) = mat(k, 900) - dti(k) - mat(k, 926) = mat(k, 926) - dti(k) - mat(k, 984) = mat(k, 984) - dti(k) - mat(k,1014) = mat(k,1014) - dti(k) - mat(k,1058) = mat(k,1058) - dti(k) - mat(k,1104) = mat(k,1104) - dti(k) - mat(k,1153) = mat(k,1153) - dti(k) - mat(k,1197) = mat(k,1197) - dti(k) - mat(k,1241) = mat(k,1241) - dti(k) + mat(k, 343) = mat(k, 343) - dti(k) + mat(k, 353) = mat(k, 353) - dti(k) + mat(k, 361) = mat(k, 361) - dti(k) + mat(k, 371) = mat(k, 371) - dti(k) + mat(k, 379) = mat(k, 379) - dti(k) + mat(k, 389) = mat(k, 389) - dti(k) + mat(k, 404) = mat(k, 404) - dti(k) + mat(k, 418) = mat(k, 418) - dti(k) + mat(k, 434) = mat(k, 434) - dti(k) + mat(k, 448) = mat(k, 448) - dti(k) + mat(k, 463) = mat(k, 463) - dti(k) + mat(k, 478) = mat(k, 478) - dti(k) + mat(k, 492) = mat(k, 492) - dti(k) + mat(k, 506) = mat(k, 506) - dti(k) + mat(k, 521) = mat(k, 521) - dti(k) + mat(k, 537) = mat(k, 537) - dti(k) + mat(k, 552) = mat(k, 552) - dti(k) + mat(k, 566) = mat(k, 566) - dti(k) + mat(k, 584) = mat(k, 584) - dti(k) + mat(k, 596) = mat(k, 596) - dti(k) + mat(k, 611) = mat(k, 611) - dti(k) + mat(k, 627) = mat(k, 627) - dti(k) + mat(k, 649) = mat(k, 649) - dti(k) + mat(k, 671) = mat(k, 671) - dti(k) + mat(k, 693) = mat(k, 693) - dti(k) + mat(k, 717) = mat(k, 717) - dti(k) + mat(k, 740) = mat(k, 740) - dti(k) + mat(k, 789) = mat(k, 789) - dti(k) + mat(k, 813) = mat(k, 813) - dti(k) + mat(k, 835) = mat(k, 835) - dti(k) + mat(k, 868) = mat(k, 868) - dti(k) + mat(k, 902) = mat(k, 902) - dti(k) + mat(k, 928) = mat(k, 928) - dti(k) + mat(k, 986) = mat(k, 986) - dti(k) + mat(k,1016) = mat(k,1016) - dti(k) + mat(k,1060) = mat(k,1060) - dti(k) + mat(k,1106) = mat(k,1106) - dti(k) + mat(k,1154) = mat(k,1154) - dti(k) + mat(k,1198) = mat(k,1198) - dti(k) + mat(k,1240) = mat(k,1240) - dti(k) mat(k,1284) = mat(k,1284) - dti(k) mat(k,1327) = mat(k,1327) - dti(k) mat(k,1388) = mat(k,1388) - dti(k) - mat(k,1438) = mat(k,1438) - dti(k) - mat(k,1487) = mat(k,1487) - dti(k) - mat(k,1529) = mat(k,1529) - dti(k) - mat(k,1566) = mat(k,1566) - dti(k) - mat(k,1612) = mat(k,1612) - dti(k) - mat(k,1656) = mat(k,1656) - dti(k) - mat(k,1700) = mat(k,1700) - dti(k) - mat(k,1741) = mat(k,1741) - dti(k) - mat(k,1778) = mat(k,1778) - dti(k) - mat(k,1827) = mat(k,1827) - dti(k) - mat(k,1861) = mat(k,1861) - dti(k) - mat(k,1898) = mat(k,1898) - dti(k) - mat(k,1940) = mat(k,1940) - dti(k) - mat(k,1983) = mat(k,1983) - dti(k) - mat(k,2029) = mat(k,2029) - dti(k) - mat(k,2090) = mat(k,2090) - dti(k) + mat(k,1432) = mat(k,1432) - dti(k) + mat(k,1481) = mat(k,1481) - dti(k) + mat(k,1523) = mat(k,1523) - dti(k) + mat(k,1560) = mat(k,1560) - dti(k) + mat(k,1606) = mat(k,1606) - dti(k) + mat(k,1650) = mat(k,1650) - dti(k) + mat(k,1693) = mat(k,1693) - dti(k) + mat(k,1734) = mat(k,1734) - dti(k) + mat(k,1771) = mat(k,1771) - dti(k) + mat(k,1820) = mat(k,1820) - dti(k) + mat(k,1854) = mat(k,1854) - dti(k) + mat(k,1891) = mat(k,1891) - dti(k) + mat(k,1941) = mat(k,1941) - dti(k) + mat(k,1986) = mat(k,1986) - dti(k) + mat(k,2032) = mat(k,2032) - dti(k) + mat(k,2093) = mat(k,2093) - dti(k) end do end subroutine nlnmat_finit subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_prod_loss.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_prod_loss.F90 index 992ad12ca5..4a24a328f9 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_prod_loss.F90 @@ -46,98 +46,98 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,1) = 0._r8 loss(k,2) = ( + het_rates(k,2))* y(k,2) prod(k,2) = 0._r8 - loss(k,99) = (rxt(k,486)* y(k,17) +rxt(k,488)* y(k,73) +rxt(k,487)* y(k,101) & + loss(k,99) = (rxt(k,488)* y(k,17) +rxt(k,490)* y(k,73) +rxt(k,489)* y(k,101) & + het_rates(k,3))* y(k,3) - prod(k,99) = (rxt(k,28) +2.000_r8*rxt(k,489)*y(k,5) +rxt(k,490)*y(k,28) + & - rxt(k,491)*y(k,28) +rxt(k,494)*y(k,62) +rxt(k,497)*y(k,70) + & - rxt(k,498)*y(k,133) +rxt(k,548)*y(k,80))*y(k,5) & - + (rxt(k,476)*y(k,9) +rxt(k,502)*y(k,10) + & - 3.000_r8*rxt(k,503)*y(k,24) +2.000_r8*rxt(k,504)*y(k,42) + & - rxt(k,505)*y(k,45) +2.000_r8*rxt(k,525)*y(k,16) +rxt(k,526)*y(k,18)) & - *y(k,71) + (rxt(k,500)*y(k,45) +2.000_r8*rxt(k,514)*y(k,16) + & - rxt(k,516)*y(k,18) +3.000_r8*rxt(k,521)*y(k,24))*y(k,133) & - + (2.000_r8*rxt(k,513)*y(k,16) +rxt(k,515)*y(k,18) + & - 3.000_r8*rxt(k,520)*y(k,24))*y(k,25) + (rxt(k,52) + & - rxt(k,499)*y(k,70))*y(k,45) +rxt(k,27)*y(k,4) +rxt(k,30)*y(k,6) & + prod(k,99) = (rxt(k,28) +2.000_r8*rxt(k,491)*y(k,5) +rxt(k,492)*y(k,28) + & + rxt(k,493)*y(k,28) +rxt(k,496)*y(k,62) +rxt(k,499)*y(k,70) + & + rxt(k,500)*y(k,133) +rxt(k,550)*y(k,80))*y(k,5) & + + (rxt(k,478)*y(k,9) +rxt(k,504)*y(k,10) + & + 3.000_r8*rxt(k,505)*y(k,24) +2.000_r8*rxt(k,506)*y(k,42) + & + rxt(k,507)*y(k,45) +2.000_r8*rxt(k,527)*y(k,16) +rxt(k,528)*y(k,18)) & + *y(k,71) + (rxt(k,502)*y(k,45) +2.000_r8*rxt(k,516)*y(k,16) + & + rxt(k,518)*y(k,18) +3.000_r8*rxt(k,523)*y(k,24))*y(k,133) & + + (2.000_r8*rxt(k,515)*y(k,16) +rxt(k,517)*y(k,18) + & + 3.000_r8*rxt(k,522)*y(k,24))*y(k,25) + (rxt(k,52) + & + rxt(k,501)*y(k,70))*y(k,45) +rxt(k,27)*y(k,4) +rxt(k,30)*y(k,6) & +rxt(k,32)*y(k,9) +rxt(k,33)*y(k,10) +2.000_r8*rxt(k,39)*y(k,16) & +rxt(k,40)*y(k,18) +3.000_r8*rxt(k,43)*y(k,24) +2.000_r8*rxt(k,51) & *y(k,42) +rxt(k,58)*y(k,53) loss(k,43) = ( + rxt(k,27) + het_rates(k,4))* y(k,4) - prod(k,43) = (rxt(k,570)*y(k,53) +rxt(k,575)*y(k,53))*y(k,49) & - +rxt(k,492)*y(k,28)*y(k,5) - loss(k,106) = (2._r8*rxt(k,489)* y(k,5) + (rxt(k,490) +rxt(k,491) + & - rxt(k,492))* y(k,28) +rxt(k,494)* y(k,62) +rxt(k,495)* y(k,63) & - +rxt(k,497)* y(k,70) +rxt(k,548)* y(k,80) +rxt(k,493)* y(k,101) & - +rxt(k,498)* y(k,133) + rxt(k,28) + het_rates(k,5))* y(k,5) - prod(k,106) = (rxt(k,29) +rxt(k,496)*y(k,70))*y(k,6) +rxt(k,488)*y(k,73) & - *y(k,3) +rxt(k,506)*y(k,71)*y(k,45) +rxt(k,501)*y(k,70)*y(k,53) - loss(k,63) = (rxt(k,496)* y(k,70) + rxt(k,29) + rxt(k,30) + rxt(k,564) & - + rxt(k,567) + rxt(k,572) + het_rates(k,6))* y(k,6) - prod(k,63) =rxt(k,495)*y(k,63)*y(k,5) + prod(k,43) = (rxt(k,572)*y(k,53) +rxt(k,577)*y(k,53))*y(k,49) & + +rxt(k,494)*y(k,28)*y(k,5) + loss(k,106) = (2._r8*rxt(k,491)* y(k,5) + (rxt(k,492) +rxt(k,493) + & + rxt(k,494))* y(k,28) +rxt(k,496)* y(k,62) +rxt(k,497)* y(k,63) & + +rxt(k,499)* y(k,70) +rxt(k,550)* y(k,80) +rxt(k,495)* y(k,101) & + +rxt(k,500)* y(k,133) + rxt(k,28) + het_rates(k,5))* y(k,5) + prod(k,106) = (rxt(k,29) +rxt(k,498)*y(k,70))*y(k,6) +rxt(k,490)*y(k,73) & + *y(k,3) +rxt(k,508)*y(k,71)*y(k,45) +rxt(k,503)*y(k,70)*y(k,53) + loss(k,63) = (rxt(k,498)* y(k,70) + rxt(k,29) + rxt(k,30) + rxt(k,566) & + + rxt(k,569) + rxt(k,574) + het_rates(k,6))* y(k,6) + prod(k,63) =rxt(k,497)*y(k,63)*y(k,5) loss(k,3) = ( + het_rates(k,7))* y(k,7) prod(k,3) = 0._r8 - loss(k,27) = (rxt(k,475)* y(k,71) + rxt(k,31) + het_rates(k,8))* y(k,8) + loss(k,27) = (rxt(k,477)* y(k,71) + rxt(k,31) + het_rates(k,8))* y(k,8) prod(k,27) = 0._r8 - loss(k,34) = (rxt(k,476)* y(k,71) + rxt(k,32) + het_rates(k,9))* y(k,9) + loss(k,34) = (rxt(k,478)* y(k,71) + rxt(k,32) + het_rates(k,9))* y(k,9) prod(k,34) = 0._r8 - loss(k,35) = (rxt(k,502)* y(k,71) + rxt(k,33) + het_rates(k,10))* y(k,10) + loss(k,35) = (rxt(k,504)* y(k,71) + rxt(k,33) + het_rates(k,10))* y(k,10) prod(k,35) = 0._r8 - loss(k,29) = (rxt(k,477)* y(k,71) + rxt(k,34) + het_rates(k,11))* y(k,11) + loss(k,29) = (rxt(k,479)* y(k,71) + rxt(k,34) + het_rates(k,11))* y(k,11) prod(k,29) = 0._r8 - loss(k,36) = (rxt(k,478)* y(k,71) + rxt(k,35) + het_rates(k,12))* y(k,12) + loss(k,36) = (rxt(k,480)* y(k,71) + rxt(k,35) + het_rates(k,12))* y(k,12) prod(k,36) = 0._r8 - loss(k,30) = (rxt(k,479)* y(k,71) + rxt(k,36) + het_rates(k,13))* y(k,13) + loss(k,30) = (rxt(k,481)* y(k,71) + rxt(k,36) + het_rates(k,13))* y(k,13) prod(k,30) = 0._r8 - loss(k,37) = (rxt(k,480)* y(k,71) + rxt(k,37) + het_rates(k,14))* y(k,14) + loss(k,37) = (rxt(k,482)* y(k,71) + rxt(k,37) + het_rates(k,14))* y(k,14) prod(k,37) = 0._r8 - loss(k,31) = (rxt(k,481)* y(k,71) + rxt(k,38) + het_rates(k,15))* y(k,15) + loss(k,31) = (rxt(k,483)* y(k,71) + rxt(k,38) + het_rates(k,15))* y(k,15) prod(k,31) = 0._r8 - loss(k,60) = (rxt(k,513)* y(k,25) +rxt(k,525)* y(k,71) +rxt(k,514)* y(k,133) & + loss(k,60) = (rxt(k,515)* y(k,25) +rxt(k,527)* y(k,71) +rxt(k,516)* y(k,133) & + rxt(k,39) + het_rates(k,16))* y(k,16) prod(k,60) = 0._r8 - loss(k,107) = (rxt(k,486)* y(k,3) +rxt(k,450)* y(k,25) +rxt(k,530)* y(k,64) & - +rxt(k,531)* y(k,70) +rxt(k,532)* y(k,133) + rxt(k,21) + rxt(k,22) & + loss(k,107) = (rxt(k,488)* y(k,3) +rxt(k,452)* y(k,25) +rxt(k,532)* y(k,64) & + +rxt(k,533)* y(k,70) +rxt(k,534)* y(k,133) + rxt(k,21) + rxt(k,22) & + het_rates(k,17))* y(k,17) - prod(k,107) = (.180_r8*rxt(k,25) +rxt(k,538)*y(k,71) +rxt(k,539)*y(k,71)) & - *y(k,23) + (rxt(k,457)*y(k,28) +rxt(k,534)*y(k,62))*y(k,21) & - + (rxt(k,23) +.300_r8*rxt(k,535)*y(k,133))*y(k,22) - loss(k,65) = (rxt(k,515)* y(k,25) +rxt(k,526)* y(k,71) +rxt(k,516)* y(k,133) & + prod(k,107) = (.180_r8*rxt(k,25) +rxt(k,540)*y(k,71) +rxt(k,541)*y(k,71)) & + *y(k,23) + (rxt(k,459)*y(k,28) +rxt(k,536)*y(k,62))*y(k,21) & + + (rxt(k,23) +.300_r8*rxt(k,537)*y(k,133))*y(k,22) + loss(k,65) = (rxt(k,517)* y(k,25) +rxt(k,528)* y(k,71) +rxt(k,518)* y(k,133) & + rxt(k,40) + het_rates(k,18))* y(k,18) prod(k,65) = 0._r8 - loss(k,32) = (rxt(k,517)* y(k,133) + rxt(k,41) + het_rates(k,19))* y(k,19) + loss(k,32) = (rxt(k,519)* y(k,133) + rxt(k,41) + het_rates(k,19))* y(k,19) prod(k,32) = 0._r8 - loss(k,54) = (rxt(k,518)* y(k,25) +rxt(k,519)* y(k,133) + rxt(k,42) & + loss(k,54) = (rxt(k,520)* y(k,25) +rxt(k,521)* y(k,133) + rxt(k,42) & + het_rates(k,20))* y(k,20) prod(k,54) = 0._r8 - loss(k,89) = (rxt(k,457)* y(k,28) +rxt(k,534)* y(k,62) +rxt(k,533)* y(k,101) & + loss(k,89) = (rxt(k,459)* y(k,28) +rxt(k,536)* y(k,62) +rxt(k,535)* y(k,101) & + het_rates(k,21))* y(k,21) - prod(k,89) = (rxt(k,24) +rxt(k,451)*y(k,25) +rxt(k,507)*y(k,39) + & - rxt(k,536)*y(k,133) +rxt(k,537)*y(k,71))*y(k,23) +rxt(k,40)*y(k,18) & - +rxt(k,42)*y(k,20) +.700_r8*rxt(k,535)*y(k,133)*y(k,22) - loss(k,55) = (rxt(k,535)* y(k,133) + rxt(k,23) + het_rates(k,22))* y(k,22) - prod(k,55) =rxt(k,533)*y(k,101)*y(k,21) - loss(k,88) = (rxt(k,451)* y(k,25) +rxt(k,507)* y(k,39) + (rxt(k,537) + & - rxt(k,538) +rxt(k,539))* y(k,71) +rxt(k,536)* y(k,133) + rxt(k,24) & + prod(k,89) = (rxt(k,24) +rxt(k,453)*y(k,25) +rxt(k,509)*y(k,39) + & + rxt(k,538)*y(k,133) +rxt(k,539)*y(k,71))*y(k,23) +rxt(k,40)*y(k,18) & + +rxt(k,42)*y(k,20) +.700_r8*rxt(k,537)*y(k,133)*y(k,22) + loss(k,55) = (rxt(k,537)* y(k,133) + rxt(k,23) + het_rates(k,22))* y(k,22) + prod(k,55) =rxt(k,535)*y(k,101)*y(k,21) + loss(k,88) = (rxt(k,453)* y(k,25) +rxt(k,509)* y(k,39) + (rxt(k,539) + & + rxt(k,540) +rxt(k,541))* y(k,71) +rxt(k,538)* y(k,133) + rxt(k,24) & + rxt(k,25) + het_rates(k,23))* y(k,23) prod(k,88) = 0._r8 - loss(k,56) = (rxt(k,520)* y(k,25) +rxt(k,503)* y(k,71) +rxt(k,521)* y(k,133) & + loss(k,56) = (rxt(k,522)* y(k,25) +rxt(k,505)* y(k,71) +rxt(k,523)* y(k,133) & + rxt(k,43) + het_rates(k,24))* y(k,24) prod(k,56) = 0._r8 - loss(k,125) = (rxt(k,513)* y(k,16) +rxt(k,450)* y(k,17) +rxt(k,515)* y(k,18) & - +rxt(k,518)* y(k,20) +rxt(k,451)* y(k,23) +rxt(k,520)* y(k,24) & - +rxt(k,463)* y(k,29) +rxt(k,452)* y(k,41) +rxt(k,453)* y(k,43) & - +rxt(k,472)* y(k,54) +rxt(k,456)* y(k,73) + (rxt(k,114) +rxt(k,115)) & - * y(k,94) +rxt(k,127)* y(k,97) + (rxt(k,454) +rxt(k,455))* y(k,101) & + loss(k,125) = (rxt(k,515)* y(k,16) +rxt(k,452)* y(k,17) +rxt(k,517)* y(k,18) & + +rxt(k,520)* y(k,20) +rxt(k,453)* y(k,23) +rxt(k,522)* y(k,24) & + +rxt(k,465)* y(k,29) +rxt(k,454)* y(k,41) +rxt(k,455)* y(k,43) & + +rxt(k,474)* y(k,54) +rxt(k,458)* y(k,73) + (rxt(k,114) +rxt(k,115)) & + * y(k,94) +rxt(k,127)* y(k,97) + (rxt(k,456) +rxt(k,457))* y(k,101) & +rxt(k,285)* y(k,111) +rxt(k,314)* y(k,127) +rxt(k,341)* y(k,134) & +rxt(k,350)* y(k,135) + het_rates(k,25))* y(k,25) - prod(k,125) = (4.000_r8*rxt(k,475)*y(k,8) +rxt(k,476)*y(k,9) + & - 2.000_r8*rxt(k,477)*y(k,11) +2.000_r8*rxt(k,478)*y(k,12) + & - 2.000_r8*rxt(k,479)*y(k,13) +rxt(k,480)*y(k,14) + & - 2.000_r8*rxt(k,481)*y(k,15) +rxt(k,482)*y(k,49) +rxt(k,512)*y(k,34) + & - rxt(k,527)*y(k,46) +rxt(k,528)*y(k,47) +rxt(k,529)*y(k,48))*y(k,71) & - + (rxt(k,46) +rxt(k,457)*y(k,21) +2.000_r8*rxt(k,458)*y(k,28) + & - rxt(k,460)*y(k,28) +rxt(k,462)*y(k,62) +rxt(k,467)*y(k,70) + & - rxt(k,468)*y(k,133) +rxt(k,491)*y(k,5) +rxt(k,549)*y(k,80))*y(k,28) & + prod(k,125) = (4.000_r8*rxt(k,477)*y(k,8) +rxt(k,478)*y(k,9) + & + 2.000_r8*rxt(k,479)*y(k,11) +2.000_r8*rxt(k,480)*y(k,12) + & + 2.000_r8*rxt(k,481)*y(k,13) +rxt(k,482)*y(k,14) + & + 2.000_r8*rxt(k,483)*y(k,15) +rxt(k,484)*y(k,49) +rxt(k,514)*y(k,34) + & + rxt(k,529)*y(k,46) +rxt(k,530)*y(k,47) +rxt(k,531)*y(k,48))*y(k,71) & + + (rxt(k,46) +rxt(k,459)*y(k,21) +2.000_r8*rxt(k,460)*y(k,28) + & + rxt(k,462)*y(k,28) +rxt(k,464)*y(k,62) +rxt(k,469)*y(k,70) + & + rxt(k,470)*y(k,133) +rxt(k,493)*y(k,5) +rxt(k,551)*y(k,80))*y(k,28) & + (rxt(k,110)*y(k,63) +rxt(k,147)*y(k,105) +rxt(k,154)*y(k,128) + & rxt(k,177)*y(k,107) +rxt(k,195)*y(k,103) +rxt(k,212)*y(k,122) + & rxt(k,230)*y(k,119) +rxt(k,248)*y(k,118))*y(k,90) & @@ -146,9 +146,9 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,252)*y(k,118))*y(k,91) + (rxt(k,169)*y(k,107) + & rxt(k,181)*y(k,105) +rxt(k,187)*y(k,103) +rxt(k,205)*y(k,122) + & rxt(k,222)*y(k,119) +rxt(k,240)*y(k,118) +rxt(k,257)*y(k,128)) & - *y(k,92) + (rxt(k,471)*y(k,49) +3.000_r8*rxt(k,517)*y(k,19) + & - rxt(k,519)*y(k,20) +rxt(k,522)*y(k,46) +rxt(k,523)*y(k,47) + & - rxt(k,524)*y(k,48))*y(k,133) + (rxt(k,56) +rxt(k,470)*y(k,70)) & + *y(k,92) + (rxt(k,473)*y(k,49) +3.000_r8*rxt(k,519)*y(k,19) + & + rxt(k,521)*y(k,20) +rxt(k,524)*y(k,46) +rxt(k,525)*y(k,47) + & + rxt(k,526)*y(k,48))*y(k,133) + (rxt(k,56) +rxt(k,472)*y(k,70)) & *y(k,49) +rxt(k,27)*y(k,4) +4.000_r8*rxt(k,31)*y(k,8) +rxt(k,32) & *y(k,9) +2.000_r8*rxt(k,34)*y(k,11) +2.000_r8*rxt(k,35)*y(k,12) & +2.000_r8*rxt(k,36)*y(k,13) +rxt(k,37)*y(k,14) +2.000_r8*rxt(k,38) & @@ -157,41 +157,41 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & *y(k,29) +rxt(k,50)*y(k,34) +rxt(k,53)*y(k,46) +rxt(k,54)*y(k,47) & +rxt(k,55)*y(k,48) +rxt(k,59)*y(k,54) +rxt(k,111)*y(k,93)*y(k,62) loss(k,38) = ( + rxt(k,44) + het_rates(k,26))* y(k,26) - prod(k,38) = (rxt(k,563)*y(k,54) +rxt(k,568)*y(k,29) +rxt(k,569)*y(k,54) + & - rxt(k,573)*y(k,29) +rxt(k,574)*y(k,54) +rxt(k,578)*y(k,29))*y(k,49) & - +rxt(k,463)*y(k,29)*y(k,25) +rxt(k,459)*y(k,28)*y(k,28) - loss(k,26) = ( + rxt(k,45) + rxt(k,485) + het_rates(k,27))* y(k,27) - prod(k,26) =rxt(k,484)*y(k,28)*y(k,28) - loss(k,117) = ((rxt(k,490) +rxt(k,491) +rxt(k,492))* y(k,5) +rxt(k,457) & - * y(k,21) + 2._r8*(rxt(k,458) +rxt(k,459) +rxt(k,460) +rxt(k,484)) & - * y(k,28) +rxt(k,462)* y(k,62) +rxt(k,464)* y(k,63) +rxt(k,467) & - * y(k,70) +rxt(k,549)* y(k,80) +rxt(k,116)* y(k,94) +rxt(k,128) & - * y(k,97) +rxt(k,461)* y(k,101) +rxt(k,286)* y(k,111) +rxt(k,315) & - * y(k,127) + (rxt(k,468) +rxt(k,469))* y(k,133) +rxt(k,342)* y(k,134) & + prod(k,38) = (rxt(k,565)*y(k,54) +rxt(k,570)*y(k,29) +rxt(k,571)*y(k,54) + & + rxt(k,575)*y(k,29) +rxt(k,576)*y(k,54) +rxt(k,580)*y(k,29))*y(k,49) & + +rxt(k,465)*y(k,29)*y(k,25) +rxt(k,461)*y(k,28)*y(k,28) + loss(k,26) = ( + rxt(k,45) + rxt(k,487) + het_rates(k,27))* y(k,27) + prod(k,26) =rxt(k,486)*y(k,28)*y(k,28) + loss(k,117) = ((rxt(k,492) +rxt(k,493) +rxt(k,494))* y(k,5) +rxt(k,459) & + * y(k,21) + 2._r8*(rxt(k,460) +rxt(k,461) +rxt(k,462) +rxt(k,486)) & + * y(k,28) +rxt(k,464)* y(k,62) +rxt(k,466)* y(k,63) +rxt(k,469) & + * y(k,70) +rxt(k,551)* y(k,80) +rxt(k,116)* y(k,94) +rxt(k,128) & + * y(k,97) +rxt(k,463)* y(k,101) +rxt(k,286)* y(k,111) +rxt(k,315) & + * y(k,127) + (rxt(k,470) +rxt(k,471))* y(k,133) +rxt(k,342)* y(k,134) & +rxt(k,351)* y(k,135) + rxt(k,46) + het_rates(k,28))* y(k,28) - prod(k,117) = (rxt(k,455)*y(k,101) +rxt(k,456)*y(k,73) +rxt(k,472)*y(k,54)) & - *y(k,25) + (rxt(k,48) +rxt(k,465)*y(k,70))*y(k,29) & - + (rxt(k,473)*y(k,70) +rxt(k,474)*y(k,133))*y(k,54) + (rxt(k,60) + & - rxt(k,554)*y(k,80))*y(k,74) +2.000_r8*rxt(k,485)*y(k,27) & - +rxt(k,483)*y(k,71)*y(k,49) - loss(k,83) = (rxt(k,463)* y(k,25) + (rxt(k,568) +rxt(k,573) +rxt(k,578)) & - * y(k,49) +rxt(k,465)* y(k,70) +rxt(k,466)* y(k,133) + rxt(k,47) & - + rxt(k,48) + rxt(k,566) + rxt(k,571) + rxt(k,577) & + prod(k,117) = (rxt(k,457)*y(k,101) +rxt(k,458)*y(k,73) +rxt(k,474)*y(k,54)) & + *y(k,25) + (rxt(k,48) +rxt(k,467)*y(k,70))*y(k,29) & + + (rxt(k,475)*y(k,70) +rxt(k,476)*y(k,133))*y(k,54) + (rxt(k,60) + & + rxt(k,556)*y(k,80))*y(k,74) +2.000_r8*rxt(k,487)*y(k,27) & + +rxt(k,485)*y(k,71)*y(k,49) + loss(k,83) = (rxt(k,465)* y(k,25) + (rxt(k,570) +rxt(k,575) +rxt(k,580)) & + * y(k,49) +rxt(k,467)* y(k,70) +rxt(k,468)* y(k,133) + rxt(k,47) & + + rxt(k,48) + rxt(k,568) + rxt(k,573) + rxt(k,579) & + het_rates(k,29))* y(k,29) - prod(k,83) =rxt(k,464)*y(k,63)*y(k,28) + prod(k,83) =rxt(k,466)*y(k,63)*y(k,28) loss(k,4) = ( + het_rates(k,30))* y(k,30) prod(k,4) = 0._r8 - loss(k,69) = (rxt(k,540)* y(k,133) + het_rates(k,31))* y(k,31) - prod(k,69) = (rxt(k,21) +rxt(k,22) +rxt(k,450)*y(k,25) +rxt(k,486)*y(k,3) + & - rxt(k,530)*y(k,64) +rxt(k,531)*y(k,70) +rxt(k,532)*y(k,133))*y(k,17) & - + (rxt(k,26) +rxt(k,62) +rxt(k,594)*y(k,136))*y(k,32) & - + (rxt(k,101) +rxt(k,543)*y(k,70) +rxt(k,544)*y(k,133))*y(k,75) & - +rxt(k,518)*y(k,25)*y(k,20) +.380_r8*rxt(k,25)*y(k,23) - loss(k,121) = (rxt(k,368)* y(k,118) +rxt(k,312)* y(k,123) +rxt(k,316) & + loss(k,69) = (rxt(k,542)* y(k,133) + het_rates(k,31))* y(k,31) + prod(k,69) = (rxt(k,21) +rxt(k,22) +rxt(k,452)*y(k,25) +rxt(k,488)*y(k,3) + & + rxt(k,532)*y(k,64) +rxt(k,533)*y(k,70) +rxt(k,534)*y(k,133))*y(k,17) & + + (rxt(k,26) +rxt(k,62) +rxt(k,596)*y(k,136))*y(k,32) & + + (rxt(k,101) +rxt(k,545)*y(k,70) +rxt(k,546)*y(k,133))*y(k,75) & + +rxt(k,520)*y(k,25)*y(k,20) +.380_r8*rxt(k,25)*y(k,23) + loss(k,130) = (rxt(k,368)* y(k,118) +rxt(k,312)* y(k,123) +rxt(k,316) & * y(k,127) +rxt(k,330)* y(k,130) +rxt(k,335)* y(k,131) +rxt(k,343) & - * y(k,134) +rxt(k,352)* y(k,135) +rxt(k,594)* y(k,136) + rxt(k,26) & + * y(k,134) +rxt(k,352)* y(k,135) +rxt(k,596)* y(k,136) + rxt(k,26) & + rxt(k,62) + het_rates(k,32))* y(k,32) - prod(k,121) = (rxt(k,63) +rxt(k,114)*y(k,25) +rxt(k,115)*y(k,25) + & + prod(k,130) = (rxt(k,63) +rxt(k,114)*y(k,25) +rxt(k,115)*y(k,25) + & rxt(k,116)*y(k,28) +rxt(k,117)*y(k,40) +rxt(k,124)*y(k,51) + & rxt(k,125)*y(k,70) +rxt(k,126)*y(k,72) +rxt(k,168)*y(k,107) + & rxt(k,170)*y(k,105) +rxt(k,186)*y(k,103) +rxt(k,204)*y(k,122) + & @@ -213,21 +213,21 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,172)*y(k,107) +rxt(k,189)*y(k,103) +rxt(k,203)*y(k,105) + & rxt(k,207)*y(k,122) +rxt(k,224)*y(k,119) +rxt(k,242)*y(k,118)) & *y(k,100) + (rxt(k,369) +rxt(k,306)*y(k,98) +rxt(k,307)*y(k,139)) & - *y(k,121) +.440_r8*rxt(k,25)*y(k,23) +rxt(k,540)*y(k,133)*y(k,31) - loss(k,39) = (rxt(k,511)* y(k,71) + rxt(k,49) + het_rates(k,33))* y(k,33) - prod(k,39) = (rxt(k,476)*y(k,9) +rxt(k,478)*y(k,12) + & - 2.000_r8*rxt(k,479)*y(k,13) +2.000_r8*rxt(k,480)*y(k,14) + & - rxt(k,481)*y(k,15) +rxt(k,502)*y(k,10) +2.000_r8*rxt(k,504)*y(k,42) + & - rxt(k,528)*y(k,47) +rxt(k,529)*y(k,48))*y(k,71) + (rxt(k,54) + & - rxt(k,523)*y(k,133))*y(k,47) + (rxt(k,55) +rxt(k,524)*y(k,133)) & + *y(k,121) +.440_r8*rxt(k,25)*y(k,23) +rxt(k,542)*y(k,133)*y(k,31) + loss(k,39) = (rxt(k,513)* y(k,71) + rxt(k,49) + het_rates(k,33))* y(k,33) + prod(k,39) = (rxt(k,478)*y(k,9) +rxt(k,480)*y(k,12) + & + 2.000_r8*rxt(k,481)*y(k,13) +2.000_r8*rxt(k,482)*y(k,14) + & + rxt(k,483)*y(k,15) +rxt(k,504)*y(k,10) +2.000_r8*rxt(k,506)*y(k,42) + & + rxt(k,530)*y(k,47) +rxt(k,531)*y(k,48))*y(k,71) + (rxt(k,54) + & + rxt(k,525)*y(k,133))*y(k,47) + (rxt(k,55) +rxt(k,526)*y(k,133)) & *y(k,48) +rxt(k,32)*y(k,9) +rxt(k,33)*y(k,10) +rxt(k,35)*y(k,12) & +2.000_r8*rxt(k,36)*y(k,13) +2.000_r8*rxt(k,37)*y(k,14) +rxt(k,38) & *y(k,15) +2.000_r8*rxt(k,51)*y(k,42) - loss(k,41) = (rxt(k,512)* y(k,71) + rxt(k,50) + het_rates(k,34))* y(k,34) - prod(k,41) = (rxt(k,53) +rxt(k,522)*y(k,133) +rxt(k,527)*y(k,71))*y(k,46) & - + (rxt(k,34) +rxt(k,477)*y(k,71))*y(k,11) + (rxt(k,35) + & - rxt(k,478)*y(k,71))*y(k,12) - loss(k,50) = (rxt(k,541)* y(k,64) + (rxt(k,542) +rxt(k,556))* y(k,133) & + loss(k,41) = (rxt(k,514)* y(k,71) + rxt(k,50) + het_rates(k,34))* y(k,34) + prod(k,41) = (rxt(k,53) +rxt(k,524)*y(k,133) +rxt(k,529)*y(k,71))*y(k,46) & + + (rxt(k,34) +rxt(k,479)*y(k,71))*y(k,11) + (rxt(k,35) + & + rxt(k,480)*y(k,71))*y(k,12) + loss(k,50) = (rxt(k,543)* y(k,64) + (rxt(k,544) +rxt(k,558))* y(k,133) & + het_rates(k,35))* y(k,35) prod(k,50) = 0._r8 loss(k,5) = ( + het_rates(k,36))* y(k,36) @@ -236,10 +236,10 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,6) = 0._r8 loss(k,7) = ( + het_rates(k,38))* y(k,38) prod(k,7) = 0._r8 - loss(k,81) = (rxt(k,507)* y(k,23) +rxt(k,508)* y(k,41) +rxt(k,510)* y(k,51) & - +rxt(k,509)* y(k,139) + het_rates(k,39))* y(k,39) - prod(k,81) = (rxt(k,480)*y(k,14) +rxt(k,502)*y(k,10) + & - 2.000_r8*rxt(k,511)*y(k,33) +rxt(k,512)*y(k,34))*y(k,71) +rxt(k,33) & + loss(k,80) = (rxt(k,509)* y(k,23) +rxt(k,510)* y(k,41) +rxt(k,512)* y(k,51) & + +rxt(k,511)* y(k,139) + het_rates(k,39))* y(k,39) + prod(k,80) = (rxt(k,482)*y(k,14) +rxt(k,504)*y(k,10) + & + 2.000_r8*rxt(k,513)*y(k,33) +rxt(k,514)*y(k,34))*y(k,71) +rxt(k,33) & *y(k,10) +rxt(k,37)*y(k,14) +2.000_r8*rxt(k,49)*y(k,33) +rxt(k,50) & *y(k,34) +rxt(k,57)*y(k,50) loss(k,132) = (rxt(k,411)* y(k,72) +rxt(k,414)* y(k,73) +rxt(k,105)* y(k,90) & @@ -266,51 +266,51 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,197)*y(k,112) +rxt(k,198)*y(k,116) +rxt(k,199)*y(k,91) + & rxt(k,200)*y(k,114) +rxt(k,201)*y(k,111) +rxt(k,383)*y(k,98)) & *y(k,103) + (rxt(k,415)*y(k,41) +rxt(k,418)*y(k,70) + & - rxt(k,438)*y(k,56) +rxt(k,532)*y(k,17) +rxt(k,544)*y(k,75) + & - rxt(k,550)*y(k,78) +rxt(k,555)*y(k,80))*y(k,133) & + rxt(k,437)*y(k,56) +rxt(k,534)*y(k,17) +rxt(k,546)*y(k,75) + & + rxt(k,552)*y(k,78) +rxt(k,557)*y(k,80))*y(k,133) & + (rxt(k,354)*y(k,135) +rxt(k,389)*y(k,71) +rxt(k,406)*y(k,70) + & - rxt(k,452)*y(k,25) +rxt(k,508)*y(k,39))*y(k,41) + (rxt(k,24) + & - .330_r8*rxt(k,25) +rxt(k,538)*y(k,71))*y(k,23) & + rxt(k,454)*y(k,25) +rxt(k,510)*y(k,39))*y(k,41) + (rxt(k,24) + & + .330_r8*rxt(k,25) +rxt(k,540)*y(k,71))*y(k,23) & + (rxt(k,138)*y(k,99) +rxt(k,381)*y(k,108) +rxt(k,382)*y(k,102)) & - *y(k,98) + (rxt(k,52) +rxt(k,506)*y(k,71))*y(k,45) + (rxt(k,56) + & - rxt(k,483)*y(k,71))*y(k,49) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,139) & + *y(k,98) + (rxt(k,52) +rxt(k,508)*y(k,71))*y(k,45) + (rxt(k,56) + & + rxt(k,485)*y(k,71))*y(k,49) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,139) & +2.000_r8*rxt(k,21)*y(k,17) +rxt(k,23)*y(k,22) +rxt(k,57)*y(k,50) - loss(k,103) = (rxt(k,452)* y(k,25) +rxt(k,508)* y(k,39) +rxt(k,406)* y(k,70) & + loss(k,103) = (rxt(k,454)* y(k,25) +rxt(k,510)* y(k,39) +rxt(k,406)* y(k,70) & +rxt(k,389)* y(k,71) +rxt(k,415)* y(k,133) + (rxt(k,353) + & rxt(k,354))* y(k,135) + het_rates(k,41))* y(k,41) - prod(k,103) = (1.440_r8*rxt(k,25) +rxt(k,539)*y(k,71))*y(k,23) +rxt(k,22) & + prod(k,103) = (1.440_r8*rxt(k,25) +rxt(k,541)*y(k,71))*y(k,23) +rxt(k,22) & *y(k,17) +rxt(k,408)*y(k,101)*y(k,40) +rxt(k,1)*y(k,139) - loss(k,28) = (rxt(k,504)* y(k,71) + rxt(k,51) + het_rates(k,42))* y(k,42) + loss(k,28) = (rxt(k,506)* y(k,71) + rxt(k,51) + het_rates(k,42))* y(k,42) prod(k,28) = 0._r8 - loss(k,64) = (rxt(k,453)* y(k,25) +rxt(k,407)* y(k,70) +rxt(k,416)* y(k,133) & + loss(k,64) = (rxt(k,455)* y(k,25) +rxt(k,407)* y(k,70) +rxt(k,416)* y(k,133) & + rxt(k,4) + het_rates(k,43))* y(k,43) - prod(k,64) = (.500_r8*rxt(k,558) +rxt(k,422)*y(k,101))*y(k,101) & + prod(k,64) = (.500_r8*rxt(k,560) +rxt(k,422)*y(k,101))*y(k,101) & +rxt(k,421)*y(k,133)*y(k,133) loss(k,33) = ( + rxt(k,100) + het_rates(k,44))* y(k,44) - prod(k,33) =rxt(k,557)*y(k,139)*y(k,82) - loss(k,79) = (rxt(k,499)* y(k,70) + (rxt(k,505) +rxt(k,506))* y(k,71) & - +rxt(k,500)* y(k,133) + rxt(k,52) + het_rates(k,45))* y(k,45) - prod(k,79) = (rxt(k,486)*y(k,17) +rxt(k,487)*y(k,101))*y(k,3) - loss(k,40) = (rxt(k,527)* y(k,71) +rxt(k,522)* y(k,133) + rxt(k,53) & + prod(k,33) =rxt(k,559)*y(k,139)*y(k,82) + loss(k,78) = (rxt(k,501)* y(k,70) + (rxt(k,507) +rxt(k,508))* y(k,71) & + +rxt(k,502)* y(k,133) + rxt(k,52) + het_rates(k,45))* y(k,45) + prod(k,78) = (rxt(k,488)*y(k,17) +rxt(k,489)*y(k,101))*y(k,3) + loss(k,40) = (rxt(k,529)* y(k,71) +rxt(k,524)* y(k,133) + rxt(k,53) & + het_rates(k,46))* y(k,46) prod(k,40) = 0._r8 - loss(k,42) = (rxt(k,528)* y(k,71) +rxt(k,523)* y(k,133) + rxt(k,54) & + loss(k,42) = (rxt(k,530)* y(k,71) +rxt(k,525)* y(k,133) + rxt(k,54) & + het_rates(k,47))* y(k,47) prod(k,42) = 0._r8 - loss(k,48) = (rxt(k,529)* y(k,71) +rxt(k,524)* y(k,133) + rxt(k,55) & + loss(k,48) = (rxt(k,531)* y(k,71) +rxt(k,526)* y(k,133) + rxt(k,55) & + het_rates(k,48))* y(k,48) prod(k,48) = 0._r8 - loss(k,138) = ((rxt(k,568) +rxt(k,573) +rxt(k,578))* y(k,29) + (rxt(k,570) + & - rxt(k,575))* y(k,53) + (rxt(k,563) +rxt(k,569) +rxt(k,574))* y(k,54) & - +rxt(k,470)* y(k,70) + (rxt(k,482) +rxt(k,483))* y(k,71) +rxt(k,108) & + loss(k,138) = ((rxt(k,570) +rxt(k,575) +rxt(k,580))* y(k,29) + (rxt(k,572) + & + rxt(k,577))* y(k,53) + (rxt(k,565) +rxt(k,571) +rxt(k,576))* y(k,54) & + +rxt(k,472)* y(k,70) + (rxt(k,484) +rxt(k,485))* y(k,71) +rxt(k,108) & * y(k,90) +rxt(k,106)* y(k,91) +rxt(k,130)* y(k,97) +rxt(k,289) & * y(k,111) + (rxt(k,276) +rxt(k,298))* y(k,113) +rxt(k,318)* y(k,127) & - +rxt(k,471)* y(k,133) +rxt(k,345)* y(k,134) +rxt(k,356)* y(k,135) & + +rxt(k,473)* y(k,133) +rxt(k,345)* y(k,134) +rxt(k,356)* y(k,135) & + rxt(k,56) + het_rates(k,49))* y(k,49) - prod(k,138) = (rxt(k,450)*y(k,17) +rxt(k,451)*y(k,23) +rxt(k,452)*y(k,41) + & - rxt(k,453)*y(k,43) +rxt(k,454)*y(k,101) +rxt(k,472)*y(k,54) + & - rxt(k,513)*y(k,16) +rxt(k,515)*y(k,18) +2.000_r8*rxt(k,518)*y(k,20) + & - rxt(k,520)*y(k,24))*y(k,25) + (rxt(k,386) +rxt(k,169)*y(k,107) + & + prod(k,138) = (rxt(k,452)*y(k,17) +rxt(k,453)*y(k,23) +rxt(k,454)*y(k,41) + & + rxt(k,455)*y(k,43) +rxt(k,456)*y(k,101) +rxt(k,474)*y(k,54) + & + rxt(k,515)*y(k,16) +rxt(k,517)*y(k,18) +2.000_r8*rxt(k,520)*y(k,20) + & + rxt(k,522)*y(k,24))*y(k,25) + (rxt(k,386) +rxt(k,169)*y(k,107) + & rxt(k,181)*y(k,105) +rxt(k,187)*y(k,103) +rxt(k,205)*y(k,122) + & rxt(k,222)*y(k,119) +rxt(k,240)*y(k,118) +rxt(k,257)*y(k,128) + & 2.000_r8*rxt(k,267)*y(k,105) +2.000_r8*rxt(k,268)*y(k,107))*y(k,92) & @@ -318,72 +318,72 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,198)*y(k,103) +rxt(k,216)*y(k,122) +rxt(k,233)*y(k,119) + & rxt(k,251)*y(k,118) +rxt(k,299)*y(k,51))*y(k,116) & + (rxt(k,105)*y(k,40) +rxt(k,109)*y(k,51))*y(k,90) & - +rxt(k,469)*y(k,133)*y(k,28) + +rxt(k,471)*y(k,133)*y(k,28) loss(k,49) = ( + rxt(k,57) + het_rates(k,50))* y(k,50) - prod(k,49) = (rxt(k,507)*y(k,23) +rxt(k,508)*y(k,41) +rxt(k,509)*y(k,139) + & - rxt(k,510)*y(k,51))*y(k,39) - loss(k,126) = (rxt(k,510)* y(k,39) +rxt(k,109)* y(k,90) +rxt(k,124)* y(k,94) & + prod(k,49) = (rxt(k,509)*y(k,23) +rxt(k,510)*y(k,41) +rxt(k,511)*y(k,139) + & + rxt(k,512)*y(k,51))*y(k,39) + loss(k,126) = (rxt(k,512)* y(k,39) +rxt(k,109)* y(k,90) +rxt(k,124)* y(k,94) & +rxt(k,290)* y(k,111) +rxt(k,300)* y(k,113) +rxt(k,295)* y(k,115) & - +rxt(k,299)* y(k,116) +rxt(k,319)* y(k,127) +rxt(k,447)* y(k,133) & + +rxt(k,299)* y(k,116) +rxt(k,319)* y(k,127) +rxt(k,446)* y(k,133) & +rxt(k,357)* y(k,135) + rxt(k,9) + het_rates(k,51))* y(k,51) prod(k,126) = (rxt(k,275) +2.000_r8*rxt(k,146)*y(k,105) + & 2.000_r8*rxt(k,167)*y(k,107) +2.000_r8*rxt(k,185)*y(k,103) + & rxt(k,202)*y(k,122) +rxt(k,220)*y(k,119) +rxt(k,238)*y(k,118) + & rxt(k,255)*y(k,128) +2.000_r8*rxt(k,269)*y(k,105) + & - 2.000_r8*rxt(k,270)*y(k,107))*y(k,117) + (2.000_r8*rxt(k,559) + & - 2.000_r8*rxt(k,562) +2.000_r8*rxt(k,565) +2.000_r8*rxt(k,576) + & + 2.000_r8*rxt(k,270)*y(k,107))*y(k,117) + (2.000_r8*rxt(k,561) + & + 2.000_r8*rxt(k,564) +2.000_r8*rxt(k,567) +2.000_r8*rxt(k,578) + & rxt(k,142)*y(k,105) +rxt(k,145)*y(k,107) +rxt(k,293)*y(k,114) + & - rxt(k,297)*y(k,115))*y(k,58) + (rxt(k,566) +rxt(k,571) +rxt(k,577) + & - rxt(k,568)*y(k,49) +rxt(k,573)*y(k,49) +rxt(k,578)*y(k,49))*y(k,29) & + rxt(k,297)*y(k,115))*y(k,58) + (rxt(k,568) +rxt(k,573) +rxt(k,579) + & + rxt(k,570)*y(k,49) +rxt(k,575)*y(k,49) +rxt(k,580)*y(k,49))*y(k,29) & + (rxt(k,171)*y(k,107) +rxt(k,188)*y(k,103) +rxt(k,192)*y(k,105) + & rxt(k,264)*y(k,105) +rxt(k,266)*y(k,107) +rxt(k,298)*y(k,49)) & - *y(k,113) + (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,6) & - + (rxt(k,561) +rxt(k,530)*y(k,17) +rxt(k,541)*y(k,35))*y(k,64) & - + (.500_r8*rxt(k,560) +rxt(k,446)*y(k,133))*y(k,63) & + *y(k,113) + (rxt(k,566) +rxt(k,569) +rxt(k,574))*y(k,6) & + + (rxt(k,563) +rxt(k,532)*y(k,17) +rxt(k,543)*y(k,35))*y(k,64) & + + (.500_r8*rxt(k,562) +rxt(k,445)*y(k,133))*y(k,63) & + (rxt(k,140)*y(k,104) +rxt(k,143)*y(k,106))*y(k,139) - loss(k,59) = (rxt(k,423)* y(k,133) + rxt(k,10) + rxt(k,11) + rxt(k,448) & + loss(k,59) = (rxt(k,424)* y(k,133) + rxt(k,10) + rxt(k,11) + rxt(k,447) & + het_rates(k,52))* y(k,52) - prod(k,59) =rxt(k,444)*y(k,101)*y(k,63) - loss(k,77) = ((rxt(k,570) +rxt(k,575))* y(k,49) +rxt(k,501)* y(k,70) & + prod(k,59) =rxt(k,443)*y(k,101)*y(k,63) + loss(k,76) = ((rxt(k,572) +rxt(k,577))* y(k,49) +rxt(k,503)* y(k,70) & + rxt(k,58) + het_rates(k,53))* y(k,53) - prod(k,77) = (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,6) +rxt(k,493)*y(k,101) & + prod(k,76) = (rxt(k,566) +rxt(k,569) +rxt(k,574))*y(k,6) +rxt(k,495)*y(k,101) & *y(k,5) - loss(k,80) = (rxt(k,472)* y(k,25) + (rxt(k,563) +rxt(k,569) +rxt(k,574)) & - * y(k,49) +rxt(k,473)* y(k,70) +rxt(k,474)* y(k,133) + rxt(k,59) & + loss(k,79) = (rxt(k,474)* y(k,25) + (rxt(k,565) +rxt(k,571) +rxt(k,576)) & + * y(k,49) +rxt(k,475)* y(k,70) +rxt(k,476)* y(k,133) + rxt(k,59) & + het_rates(k,54))* y(k,54) - prod(k,80) = (rxt(k,566) +rxt(k,571) +rxt(k,577) +rxt(k,466)*y(k,133)) & - *y(k,29) +rxt(k,461)*y(k,101)*y(k,28) + prod(k,79) = (rxt(k,568) +rxt(k,573) +rxt(k,579) +rxt(k,468)*y(k,133)) & + *y(k,29) +rxt(k,463)*y(k,101)*y(k,28) loss(k,73) = (rxt(k,340)* y(k,133) + rxt(k,12) + het_rates(k,55))* y(k,55) prod(k,73) = (rxt(k,289)*y(k,49) +rxt(k,290)*y(k,51))*y(k,111) & +rxt(k,349)*y(k,133)*y(k,62) +rxt(k,305)*y(k,139)*y(k,120) loss(k,90) = (rxt(k,426)* y(k,62) + (rxt(k,427) +rxt(k,428) +rxt(k,429)) & - * y(k,63) +rxt(k,430)* y(k,72) +rxt(k,591)* y(k,128) +rxt(k,438) & + * y(k,63) +rxt(k,451)* y(k,72) +rxt(k,593)* y(k,128) +rxt(k,437) & * y(k,133) + rxt(k,66) + het_rates(k,56))* y(k,56) - prod(k,90) = (rxt(k,424)*y(k,109) +rxt(k,588)*y(k,124))*y(k,70) & - + (.200_r8*rxt(k,582)*y(k,118) +1.100_r8*rxt(k,584)*y(k,110)) & - *y(k,98) +rxt(k,17)*y(k,62) +rxt(k,589)*y(k,124)*y(k,72) +rxt(k,595) & - *y(k,136) - loss(k,44) = ((rxt(k,442) +rxt(k,443))* y(k,71) + rxt(k,13) & + prod(k,90) = (rxt(k,448)*y(k,109) +.200_r8*rxt(k,584)*y(k,118) + & + 1.100_r8*rxt(k,586)*y(k,110))*y(k,98) + (rxt(k,590)*y(k,70) + & + rxt(k,591)*y(k,72))*y(k,124) +rxt(k,17)*y(k,62) +rxt(k,423)*y(k,109) & + +rxt(k,597)*y(k,136) + loss(k,44) = ((rxt(k,441) +rxt(k,442))* y(k,71) + rxt(k,13) & + het_rates(k,57))* y(k,57) prod(k,44) =rxt(k,427)*y(k,63)*y(k,56) - loss(k,87) = (rxt(k,142)* y(k,105) +rxt(k,145)* y(k,107) +rxt(k,293) & - * y(k,114) +rxt(k,297)* y(k,115) + rxt(k,14) + rxt(k,15) + rxt(k,449) & - + rxt(k,559) + rxt(k,562) + rxt(k,565) + rxt(k,576) & + loss(k,86) = (rxt(k,142)* y(k,105) +rxt(k,145)* y(k,107) +rxt(k,293) & + * y(k,114) +rxt(k,297)* y(k,115) + rxt(k,14) + rxt(k,15) + rxt(k,450) & + + rxt(k,561) + rxt(k,564) + rxt(k,567) + rxt(k,578) & + het_rates(k,58))* y(k,58) - prod(k,87) =rxt(k,445)*y(k,64)*y(k,63) + prod(k,86) =rxt(k,444)*y(k,64)*y(k,63) loss(k,8) = ( + het_rates(k,59))* y(k,59) prod(k,8) = 0._r8 loss(k,9) = ( + het_rates(k,60))* y(k,60) prod(k,9) = 0._r8 loss(k,10) = ( + het_rates(k,61))* y(k,61) prod(k,10) = 0._r8 - loss(k,137) = (rxt(k,494)* y(k,5) +rxt(k,534)* y(k,21) +rxt(k,462)* y(k,28) & - +rxt(k,426)* y(k,56) +rxt(k,435)* y(k,64) +rxt(k,441)* y(k,70) & - +rxt(k,440)* y(k,73) + (rxt(k,111) +rxt(k,112))* y(k,93) +rxt(k,280) & - * y(k,94) + (rxt(k,122) +rxt(k,123))* y(k,96) +rxt(k,439)* y(k,101) & - +rxt(k,593)* y(k,128) + (rxt(k,272) +rxt(k,279))* y(k,130) & - +rxt(k,349)* y(k,133) +rxt(k,136)* y(k,135) + rxt(k,16) + rxt(k,17) & - + het_rates(k,62))* y(k,62) + loss(k,137) = (rxt(k,496)* y(k,5) +rxt(k,536)* y(k,21) +rxt(k,464)* y(k,28) & + +rxt(k,426)* y(k,56) +rxt(k,434)* y(k,64) +rxt(k,440)* y(k,70) & + +rxt(k,439)* y(k,73) + (rxt(k,111) +rxt(k,112))* y(k,93) +rxt(k,280) & + * y(k,94) + (rxt(k,122) +rxt(k,123))* y(k,96) +rxt(k,438)* y(k,101) & + +rxt(k,425)* y(k,109) +rxt(k,595)* y(k,128) + (rxt(k,272) + & + rxt(k,279))* y(k,130) +rxt(k,349)* y(k,133) +rxt(k,136)* y(k,135) & + + rxt(k,16) + rxt(k,17) + het_rates(k,62))* y(k,62) prod(k,137) = (rxt(k,202)*y(k,117) +rxt(k,204)*y(k,94) +rxt(k,205)*y(k,92) + & rxt(k,206)*y(k,113) +rxt(k,207)*y(k,100) +rxt(k,208)*y(k,127) + & rxt(k,209)*y(k,97) +rxt(k,210)*y(k,115) +rxt(k,211)*y(k,95) + & @@ -401,40 +401,40 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,244)*y(k,97) +rxt(k,245)*y(k,115) +rxt(k,246)*y(k,95) + & rxt(k,248)*y(k,90) +rxt(k,249)*y(k,96) +rxt(k,250)*y(k,112) + & rxt(k,251)*y(k,116) +rxt(k,252)*y(k,91) +rxt(k,253)*y(k,114) + & - rxt(k,254)*y(k,111))*y(k,118) + (rxt(k,18) +.500_r8*rxt(k,560) + & + rxt(k,254)*y(k,111))*y(k,118) + (rxt(k,18) +.500_r8*rxt(k,562) + & rxt(k,291)*y(k,111) +2.000_r8*rxt(k,428)*y(k,56) + & - rxt(k,431)*y(k,70) +rxt(k,551)*y(k,80))*y(k,63) & + rxt(k,430)*y(k,70) +rxt(k,553)*y(k,80))*y(k,63) & + (rxt(k,304)*y(k,120) +rxt(k,306)*y(k,121) +rxt(k,384)*y(k,123)) & - *y(k,98) + (rxt(k,430)*y(k,72) +rxt(k,438)*y(k,133))*y(k,56) & + *y(k,98) + (rxt(k,437)*y(k,133) +rxt(k,451)*y(k,72))*y(k,56) & +rxt(k,287)*y(k,111)*y(k,40) +rxt(k,12)*y(k,55) & - +2.000_r8*rxt(k,442)*y(k,71)*y(k,57) +rxt(k,15)*y(k,58) +rxt(k,20) & - *y(k,64) +rxt(k,425)*y(k,109)*y(k,72) +rxt(k,592)*y(k,128) & - +rxt(k,605)*y(k,138) - loss(k,133) = (rxt(k,495)* y(k,5) +rxt(k,464)* y(k,28) + (rxt(k,427) + & - rxt(k,428) +rxt(k,429))* y(k,56) +rxt(k,445)* y(k,64) + (rxt(k,431) + & - rxt(k,433))* y(k,70) +rxt(k,432)* y(k,73) +rxt(k,551)* y(k,80) & + +2.000_r8*rxt(k,441)*y(k,71)*y(k,57) +rxt(k,15)*y(k,58) +rxt(k,20) & + *y(k,64) +rxt(k,449)*y(k,109)*y(k,72) +rxt(k,594)*y(k,128) & + +rxt(k,607)*y(k,138) + loss(k,133) = (rxt(k,497)* y(k,5) +rxt(k,466)* y(k,28) + (rxt(k,427) + & + rxt(k,428) +rxt(k,429))* y(k,56) +rxt(k,444)* y(k,64) + (rxt(k,430) + & + rxt(k,432))* y(k,70) +rxt(k,431)* y(k,73) +rxt(k,553)* y(k,80) & +rxt(k,110)* y(k,90) +rxt(k,281)* y(k,94) + (rxt(k,120) +rxt(k,121)) & - * y(k,96) +rxt(k,444)* y(k,101) +rxt(k,291)* y(k,111) +rxt(k,320) & - * y(k,127) + (rxt(k,277) +rxt(k,278))* y(k,130) +rxt(k,446)* y(k,133) & - +rxt(k,346)* y(k,134) +rxt(k,359)* y(k,135) + rxt(k,18) + rxt(k,560) & + * y(k,96) +rxt(k,443)* y(k,101) +rxt(k,291)* y(k,111) +rxt(k,320) & + * y(k,127) + (rxt(k,277) +rxt(k,278))* y(k,130) +rxt(k,445)* y(k,133) & + +rxt(k,346)* y(k,134) +rxt(k,359)* y(k,135) + rxt(k,18) + rxt(k,562) & + het_rates(k,63))* y(k,63) prod(k,133) = (rxt(k,112)*y(k,93) +rxt(k,136)*y(k,135) + & - 2.000_r8*rxt(k,435)*y(k,64) +rxt(k,439)*y(k,101) + & - rxt(k,440)*y(k,73) +rxt(k,441)*y(k,70) +rxt(k,462)*y(k,28) + & - rxt(k,494)*y(k,5) +rxt(k,534)*y(k,21))*y(k,62) + (rxt(k,75) + & + 2.000_r8*rxt(k,434)*y(k,64) +rxt(k,438)*y(k,101) + & + rxt(k,439)*y(k,73) +rxt(k,440)*y(k,70) +rxt(k,464)*y(k,28) + & + rxt(k,496)*y(k,5) +rxt(k,536)*y(k,21))*y(k,62) + (rxt(k,75) + & rxt(k,161)*y(k,128) +rxt(k,166)*y(k,105) +rxt(k,184)*y(k,107) + & rxt(k,201)*y(k,103) +rxt(k,219)*y(k,122) +rxt(k,237)*y(k,119) + & rxt(k,254)*y(k,118) +rxt(k,285)*y(k,25))*y(k,111) & + (rxt(k,156)*y(k,128) +rxt(k,162)*y(k,105) +rxt(k,179)*y(k,107) + & rxt(k,197)*y(k,103) +rxt(k,215)*y(k,122) +rxt(k,232)*y(k,119) + & - rxt(k,250)*y(k,118))*y(k,112) + (rxt(k,19) +rxt(k,434)*y(k,101) + & - rxt(k,436)*y(k,70) +rxt(k,437)*y(k,133))*y(k,64) + (rxt(k,11) + & - rxt(k,448) +rxt(k,423)*y(k,133))*y(k,52) + (rxt(k,14) +rxt(k,449)) & + rxt(k,250)*y(k,118))*y(k,112) + (rxt(k,19) +rxt(k,433)*y(k,101) + & + rxt(k,435)*y(k,70) +rxt(k,436)*y(k,133))*y(k,64) + (rxt(k,11) + & + rxt(k,447) +rxt(k,424)*y(k,133))*y(k,52) + (rxt(k,14) +rxt(k,450)) & *y(k,58) + (rxt(k,311)*y(k,122) +rxt(k,340)*y(k,55))*y(k,133) & +rxt(k,29)*y(k,6) +rxt(k,48)*y(k,29) +rxt(k,9)*y(k,51) - loss(k,131) = (rxt(k,530)* y(k,17) +rxt(k,541)* y(k,35) +rxt(k,435)* y(k,62) & - +rxt(k,445)* y(k,63) +rxt(k,436)* y(k,70) +rxt(k,434)* y(k,101) & - +rxt(k,437)* y(k,133) + rxt(k,19) + rxt(k,20) + rxt(k,561) & + loss(k,131) = (rxt(k,532)* y(k,17) +rxt(k,543)* y(k,35) +rxt(k,434)* y(k,62) & + +rxt(k,444)* y(k,63) +rxt(k,435)* y(k,70) +rxt(k,433)* y(k,101) & + +rxt(k,436)* y(k,133) + rxt(k,19) + rxt(k,20) + rxt(k,563) & + het_rates(k,64))* y(k,64) prod(k,131) = (rxt(k,152)*y(k,128) +rxt(k,175)*y(k,107) + & rxt(k,193)*y(k,103) +rxt(k,210)*y(k,122) +rxt(k,228)*y(k,119) + & @@ -446,13 +446,13 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,180)*y(k,107) +rxt(k,198)*y(k,103) +rxt(k,216)*y(k,122) + & rxt(k,233)*y(k,119) +rxt(k,251)*y(k,118))*y(k,116) + (rxt(k,76) + & rxt(k,148)*y(k,128) +rxt(k,206)*y(k,122) +rxt(k,223)*y(k,119) + & - rxt(k,241)*y(k,118))*y(k,113) + (rxt(k,47) +rxt(k,463)*y(k,25) + & - rxt(k,465)*y(k,70) +rxt(k,466)*y(k,133))*y(k,29) & + rxt(k,241)*y(k,118))*y(k,113) + (rxt(k,47) +rxt(k,465)*y(k,25) + & + rxt(k,467)*y(k,70) +rxt(k,468)*y(k,133))*y(k,29) & + (rxt(k,202)*y(k,122) +rxt(k,220)*y(k,119) +rxt(k,238)*y(k,118) + & - rxt(k,255)*y(k,128))*y(k,117) + (rxt(k,14) +rxt(k,15) +rxt(k,449)) & - *y(k,58) + (rxt(k,30) +rxt(k,496)*y(k,70))*y(k,6) & - + (rxt(k,447)*y(k,133) +rxt(k,510)*y(k,39))*y(k,51) & - + (rxt(k,432)*y(k,73) +rxt(k,433)*y(k,70))*y(k,63) & + rxt(k,255)*y(k,128))*y(k,117) + (rxt(k,14) +rxt(k,15) +rxt(k,450)) & + *y(k,58) + (rxt(k,30) +rxt(k,498)*y(k,70))*y(k,6) & + + (rxt(k,446)*y(k,133) +rxt(k,512)*y(k,39))*y(k,51) & + + (rxt(k,431)*y(k,73) +rxt(k,432)*y(k,70))*y(k,63) & +rxt(k,286)*y(k,111)*y(k,28) +rxt(k,10)*y(k,52) +rxt(k,310)*y(k,122) & *y(k,101) loss(k,11) = ( + het_rates(k,65))* y(k,65) @@ -465,15 +465,15 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,14) = 0._r8 loss(k,15) = ( + het_rates(k,69))* y(k,69) prod(k,15) = 0._r8 - loss(k,123) = (rxt(k,497)* y(k,5) +rxt(k,496)* y(k,6) +rxt(k,531)* y(k,17) & - +rxt(k,467)* y(k,28) +rxt(k,465)* y(k,29) +rxt(k,406)* y(k,41) & - +rxt(k,407)* y(k,43) +rxt(k,499)* y(k,45) +rxt(k,470)* y(k,49) & - +rxt(k,501)* y(k,53) +rxt(k,473)* y(k,54) +rxt(k,441)* y(k,62) & - + (rxt(k,431) +rxt(k,433))* y(k,63) +rxt(k,436)* y(k,64) & + loss(k,123) = (rxt(k,499)* y(k,5) +rxt(k,498)* y(k,6) +rxt(k,533)* y(k,17) & + +rxt(k,469)* y(k,28) +rxt(k,467)* y(k,29) +rxt(k,406)* y(k,41) & + +rxt(k,407)* y(k,43) +rxt(k,501)* y(k,45) +rxt(k,472)* y(k,49) & + +rxt(k,503)* y(k,53) +rxt(k,475)* y(k,54) +rxt(k,440)* y(k,62) & + + (rxt(k,430) +rxt(k,432))* y(k,63) +rxt(k,435)* y(k,64) & + 2._r8*rxt(k,404)* y(k,70) +rxt(k,405)* y(k,72) +rxt(k,403) & - * y(k,73) +rxt(k,543)* y(k,75) +rxt(k,113)* y(k,93) +rxt(k,125) & - * y(k,94) +rxt(k,131)* y(k,97) +rxt(k,412)* y(k,101) + (rxt(k,586) + & - rxt(k,587))* y(k,110) +rxt(k,301)* y(k,113) +rxt(k,588)* y(k,124) & + * y(k,73) +rxt(k,545)* y(k,75) +rxt(k,113)* y(k,93) +rxt(k,125) & + * y(k,94) +rxt(k,131)* y(k,97) +rxt(k,412)* y(k,101) + (rxt(k,588) + & + rxt(k,589))* y(k,110) +rxt(k,301)* y(k,113) +rxt(k,590)* y(k,124) & + (rxt(k,324) +rxt(k,325))* y(k,127) + (rxt(k,333) +rxt(k,334)) & * y(k,130) +rxt(k,336)* y(k,131) +rxt(k,338)* y(k,132) +rxt(k,418) & * y(k,133) +rxt(k,347)* y(k,134) +rxt(k,360)* y(k,135) + rxt(k,77) & @@ -482,8 +482,8 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,123) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,83) +rxt(k,85) +rxt(k,87) + & 2.000_r8*rxt(k,88) +2.000_r8*rxt(k,89) +rxt(k,90) +rxt(k,91) + & rxt(k,92) +rxt(k,392)*y(k,71) +rxt(k,393)*y(k,71) + & - rxt(k,430)*y(k,56) +rxt(k,545)*y(k,78) +rxt(k,552)*y(k,80) + & - rxt(k,590)*y(k,124) +rxt(k,597)*y(k,136) +rxt(k,601)*y(k,137)) & + rxt(k,451)*y(k,56) +rxt(k,547)*y(k,78) +rxt(k,554)*y(k,80) + & + rxt(k,592)*y(k,124) +rxt(k,599)*y(k,136) +rxt(k,603)*y(k,137)) & *y(k,72) + (rxt(k,114)*y(k,25) +rxt(k,168)*y(k,107) + & rxt(k,170)*y(k,105) +rxt(k,186)*y(k,103) +rxt(k,204)*y(k,122) + & rxt(k,221)*y(k,119) +rxt(k,239)*y(k,118) +rxt(k,256)*y(k,128) + & @@ -496,69 +496,69 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & rxt(k,231)*y(k,119) +rxt(k,249)*y(k,118) +rxt(k,260)*y(k,105) + & rxt(k,261)*y(k,107))*y(k,96) + (rxt(k,99) +rxt(k,358) + & rxt(k,350)*y(k,25) +rxt(k,359)*y(k,63) +rxt(k,363)*y(k,73))*y(k,135) & - + (rxt(k,426)*y(k,62) +rxt(k,427)*y(k,63) +rxt(k,591)*y(k,128)) & - *y(k,56) + (rxt(k,26) +rxt(k,62))*y(k,32) + (rxt(k,17) + & - rxt(k,272)*y(k,130))*y(k,62) + (rxt(k,582)*y(k,118) + & - 1.150_r8*rxt(k,583)*y(k,128))*y(k,98) +rxt(k,28)*y(k,5) & - +.180_r8*rxt(k,25)*y(k,23) +rxt(k,46)*y(k,28) +rxt(k,410)*y(k,101) & - *y(k,40) +rxt(k,15)*y(k,58) +rxt(k,18)*y(k,63) +rxt(k,19)*y(k,64) & - +rxt(k,391)*y(k,71) +rxt(k,8)*y(k,73) +rxt(k,60)*y(k,74) +rxt(k,102) & - *y(k,80) +rxt(k,103)*y(k,81) +rxt(k,104)*y(k,82) +rxt(k,596)*y(k,136) & - *y(k,109) +rxt(k,420)*y(k,133)*y(k,133) +rxt(k,599)*y(k,137) & - +rxt(k,604)*y(k,138) +rxt(k,2)*y(k,139) - loss(k,108) = (rxt(k,475)* y(k,8) +rxt(k,476)* y(k,9) +rxt(k,502)* y(k,10) & - +rxt(k,477)* y(k,11) +rxt(k,478)* y(k,12) +rxt(k,479)* y(k,13) & - +rxt(k,480)* y(k,14) +rxt(k,481)* y(k,15) +rxt(k,525)* y(k,16) & - +rxt(k,526)* y(k,18) + (rxt(k,537) +rxt(k,538) +rxt(k,539))* y(k,23) & - +rxt(k,503)* y(k,24) +rxt(k,511)* y(k,33) +rxt(k,512)* y(k,34) & - +rxt(k,389)* y(k,41) +rxt(k,504)* y(k,42) + (rxt(k,505) +rxt(k,506)) & - * y(k,45) +rxt(k,527)* y(k,46) +rxt(k,528)* y(k,47) +rxt(k,529) & - * y(k,48) + (rxt(k,482) +rxt(k,483))* y(k,49) + (rxt(k,442) + & - rxt(k,443))* y(k,57) + (rxt(k,392) +rxt(k,393))* y(k,72) +rxt(k,394) & + + (rxt(k,17) +rxt(k,272)*y(k,130) +rxt(k,425)*y(k,109) + & + rxt(k,426)*y(k,56))*y(k,62) + (rxt(k,26) +rxt(k,62))*y(k,32) & + + (rxt(k,427)*y(k,63) +rxt(k,593)*y(k,128))*y(k,56) & + + (rxt(k,584)*y(k,118) +1.150_r8*rxt(k,585)*y(k,128))*y(k,98) & + +rxt(k,28)*y(k,5) +.180_r8*rxt(k,25)*y(k,23) +rxt(k,46)*y(k,28) & + +rxt(k,410)*y(k,101)*y(k,40) +rxt(k,15)*y(k,58) +rxt(k,18)*y(k,63) & + +rxt(k,19)*y(k,64) +rxt(k,391)*y(k,71) +rxt(k,8)*y(k,73) +rxt(k,60) & + *y(k,74) +rxt(k,102)*y(k,80) +rxt(k,103)*y(k,81) +rxt(k,104)*y(k,82) & + +rxt(k,598)*y(k,136)*y(k,109) +rxt(k,420)*y(k,133)*y(k,133) & + +rxt(k,601)*y(k,137) +rxt(k,606)*y(k,138) +rxt(k,2)*y(k,139) + loss(k,108) = (rxt(k,477)* y(k,8) +rxt(k,478)* y(k,9) +rxt(k,504)* y(k,10) & + +rxt(k,479)* y(k,11) +rxt(k,480)* y(k,12) +rxt(k,481)* y(k,13) & + +rxt(k,482)* y(k,14) +rxt(k,483)* y(k,15) +rxt(k,527)* y(k,16) & + +rxt(k,528)* y(k,18) + (rxt(k,539) +rxt(k,540) +rxt(k,541))* y(k,23) & + +rxt(k,505)* y(k,24) +rxt(k,513)* y(k,33) +rxt(k,514)* y(k,34) & + +rxt(k,389)* y(k,41) +rxt(k,506)* y(k,42) + (rxt(k,507) +rxt(k,508)) & + * y(k,45) +rxt(k,529)* y(k,46) +rxt(k,530)* y(k,47) +rxt(k,531) & + * y(k,48) + (rxt(k,484) +rxt(k,485))* y(k,49) + (rxt(k,441) + & + rxt(k,442))* y(k,57) + (rxt(k,392) +rxt(k,393))* y(k,72) +rxt(k,394) & * y(k,73) +rxt(k,390)* y(k,139) + rxt(k,391) + het_rates(k,71)) & * y(k,71) - prod(k,108) = (rxt(k,6) +rxt(k,425)*y(k,109))*y(k,72) +rxt(k,13)*y(k,57) & - +rxt(k,7)*y(k,73) +.850_r8*rxt(k,583)*y(k,128)*y(k,98) +rxt(k,1) & + prod(k,108) = (rxt(k,6) +rxt(k,449)*y(k,109))*y(k,72) +rxt(k,13)*y(k,57) & + +rxt(k,7)*y(k,73) +.850_r8*rxt(k,585)*y(k,128)*y(k,98) +rxt(k,1) & *y(k,139) - loss(k,124) = (rxt(k,411)* y(k,40) +rxt(k,430)* y(k,56) +rxt(k,405)* y(k,70) & - +rxt(k,392)* y(k,71) +rxt(k,545)* y(k,78) +rxt(k,552)* y(k,80) & - +rxt(k,126)* y(k,94) + (rxt(k,133) +rxt(k,135))* y(k,98) +rxt(k,425) & - * y(k,109) +rxt(k,585)* y(k,110) + (rxt(k,589) +rxt(k,590))* y(k,124) & + loss(k,136) = (rxt(k,411)* y(k,40) +rxt(k,451)* y(k,56) +rxt(k,405)* y(k,70) & + +rxt(k,392)* y(k,71) +rxt(k,547)* y(k,78) +rxt(k,554)* y(k,80) & + +rxt(k,126)* y(k,94) + (rxt(k,133) +rxt(k,135))* y(k,98) +rxt(k,449) & + * y(k,109) +rxt(k,587)* y(k,110) + (rxt(k,591) +rxt(k,592))* y(k,124) & +rxt(k,397)* y(k,125) +rxt(k,322)* y(k,127) +rxt(k,364)* y(k,128) & - +rxt(k,362)* y(k,135) +rxt(k,597)* y(k,136) +rxt(k,601)* y(k,137) & + +rxt(k,362)* y(k,135) +rxt(k,599)* y(k,136) +rxt(k,603)* y(k,137) & + rxt(k,5) + rxt(k,6) + rxt(k,83) + rxt(k,84) + rxt(k,85) & + rxt(k,86) + rxt(k,87) + rxt(k,88) + rxt(k,89) + rxt(k,90) & + rxt(k,91) + rxt(k,92) + het_rates(k,72))* y(k,72) - prod(k,124) = (rxt(k,8) +rxt(k,132)*y(k,97) +rxt(k,134)*y(k,98) + & + prod(k,136) = (rxt(k,8) +rxt(k,132)*y(k,97) +rxt(k,134)*y(k,98) + & rxt(k,292)*y(k,111) +2.000_r8*rxt(k,302)*y(k,113) + & rxt(k,323)*y(k,127) +3.000_r8*rxt(k,332)*y(k,130) + & 2.000_r8*rxt(k,394)*y(k,71) +2.000_r8*rxt(k,403)*y(k,70) + & 2.000_r8*rxt(k,413)*y(k,101) +rxt(k,414)*y(k,40) + & - rxt(k,419)*y(k,133) +rxt(k,432)*y(k,63) +rxt(k,440)*y(k,62) + & - rxt(k,456)*y(k,25) +rxt(k,488)*y(k,3) +rxt(k,547)*y(k,78) + & - rxt(k,553)*y(k,80))*y(k,73) + (rxt(k,113)*y(k,93) + & + rxt(k,419)*y(k,133) +rxt(k,431)*y(k,63) +rxt(k,439)*y(k,62) + & + rxt(k,458)*y(k,25) +rxt(k,490)*y(k,3) +rxt(k,549)*y(k,78) + & + rxt(k,555)*y(k,80))*y(k,73) + (rxt(k,113)*y(k,93) + & rxt(k,131)*y(k,97) +rxt(k,301)*y(k,113) +rxt(k,325)*y(k,127) + & 2.000_r8*rxt(k,333)*y(k,130) +rxt(k,334)*y(k,130) + & rxt(k,336)*y(k,131) +rxt(k,360)*y(k,135) +rxt(k,396)*y(k,125) + & rxt(k,404)*y(k,70) +rxt(k,412)*y(k,101) +rxt(k,418)*y(k,133) + & - rxt(k,431)*y(k,63) +rxt(k,436)*y(k,64) +rxt(k,467)*y(k,28) + & - rxt(k,497)*y(k,5))*y(k,70) + (rxt(k,148)*y(k,113) + & + rxt(k,430)*y(k,63) +rxt(k,435)*y(k,64) +rxt(k,469)*y(k,28) + & + rxt(k,499)*y(k,5))*y(k,70) + (rxt(k,148)*y(k,113) + & rxt(k,149)*y(k,100) +2.000_r8*rxt(k,151)*y(k,97) + & rxt(k,152)*y(k,115) +rxt(k,153)*y(k,95) +rxt(k,154)*y(k,90) + & rxt(k,155)*y(k,96) +rxt(k,156)*y(k,112) +rxt(k,157)*y(k,116) + & rxt(k,159)*y(k,91) +rxt(k,160)*y(k,114) +rxt(k,161)*y(k,111) + & rxt(k,255)*y(k,117) +rxt(k,256)*y(k,94) +rxt(k,257)*y(k,92) + & - rxt(k,593)*y(k,62))*y(k,128) + (rxt(k,93) +rxt(k,137) + & + rxt(k,595)*y(k,62))*y(k,128) + (rxt(k,93) +rxt(k,137) + & rxt(k,173)*y(k,107) +rxt(k,190)*y(k,103) +rxt(k,208)*y(k,122) + & rxt(k,214)*y(k,105) +rxt(k,226)*y(k,119) +rxt(k,243)*y(k,118) + & rxt(k,314)*y(k,25) +rxt(k,315)*y(k,28) +rxt(k,320)*y(k,63) + & 2.000_r8*rxt(k,321)*y(k,125))*y(k,127) + (rxt(k,116)*y(k,94) + & - rxt(k,128)*y(k,97) +rxt(k,351)*y(k,135) +rxt(k,458)*y(k,28) + & - rxt(k,459)*y(k,28) +rxt(k,461)*y(k,101) +rxt(k,469)*y(k,133) + & - rxt(k,491)*y(k,5) +rxt(k,492)*y(k,5))*y(k,28) + (rxt(k,408)*y(k,40) + & - rxt(k,417)*y(k,133) +rxt(k,422)*y(k,101) +rxt(k,434)*y(k,64) + & - rxt(k,454)*y(k,25) +rxt(k,487)*y(k,3) +rxt(k,493)*y(k,5) + & - rxt(k,533)*y(k,21))*y(k,101) + (rxt(k,127)*y(k,25) + & + rxt(k,128)*y(k,97) +rxt(k,351)*y(k,135) +rxt(k,460)*y(k,28) + & + rxt(k,461)*y(k,28) +rxt(k,463)*y(k,101) +rxt(k,471)*y(k,133) + & + rxt(k,493)*y(k,5) +rxt(k,494)*y(k,5))*y(k,28) + (rxt(k,408)*y(k,40) + & + rxt(k,417)*y(k,133) +rxt(k,422)*y(k,101) +rxt(k,433)*y(k,64) + & + rxt(k,456)*y(k,25) +rxt(k,489)*y(k,3) +rxt(k,495)*y(k,5) + & + rxt(k,535)*y(k,21))*y(k,101) + (rxt(k,127)*y(k,25) + & rxt(k,174)*y(k,107) +rxt(k,191)*y(k,103) +rxt(k,209)*y(k,122) + & rxt(k,225)*y(k,105) +rxt(k,227)*y(k,119) +rxt(k,244)*y(k,118)) & *y(k,97) + (rxt(k,95) +rxt(k,277)*y(k,63) +rxt(k,279)*y(k,62) + & @@ -567,47 +567,47 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & 2.000_r8*rxt(k,397)*y(k,72))*y(k,125) + (rxt(k,326)*y(k,98) + & rxt(k,327)*y(k,139) +rxt(k,328)*y(k,139))*y(k,129) + (rxt(k,97) + & rxt(k,335)*y(k,32))*y(k,131) + (rxt(k,337)*y(k,139) + & - 2.000_r8*rxt(k,380)*y(k,98))*y(k,132) +rxt(k,489)*y(k,5)*y(k,5) & - +rxt(k,423)*y(k,133)*y(k,52) +rxt(k,429)*y(k,63)*y(k,56) & - +rxt(k,443)*y(k,71)*y(k,57) +rxt(k,20)*y(k,64) +rxt(k,388)*y(k,126) - loss(k,136) = (rxt(k,488)* y(k,3) +rxt(k,456)* y(k,25) +rxt(k,414)* y(k,40) & - +rxt(k,440)* y(k,62) +rxt(k,432)* y(k,63) +rxt(k,403)* y(k,70) & - +rxt(k,394)* y(k,71) +rxt(k,547)* y(k,78) +rxt(k,553)* y(k,80) & + 2.000_r8*rxt(k,380)*y(k,98))*y(k,132) +rxt(k,491)*y(k,5)*y(k,5) & + +rxt(k,424)*y(k,133)*y(k,52) +rxt(k,429)*y(k,63)*y(k,56) & + +rxt(k,442)*y(k,71)*y(k,57) +rxt(k,20)*y(k,64) +rxt(k,388)*y(k,126) + loss(k,120) = (rxt(k,490)* y(k,3) +rxt(k,458)* y(k,25) +rxt(k,414)* y(k,40) & + +rxt(k,439)* y(k,62) +rxt(k,431)* y(k,63) +rxt(k,403)* y(k,70) & + +rxt(k,394)* y(k,71) +rxt(k,549)* y(k,78) +rxt(k,555)* y(k,80) & +rxt(k,132)* y(k,97) +rxt(k,134)* y(k,98) +rxt(k,413)* y(k,101) & +rxt(k,292)* y(k,111) +rxt(k,302)* y(k,113) +rxt(k,323)* y(k,127) & +rxt(k,332)* y(k,130) +rxt(k,419)* y(k,133) +rxt(k,348)* y(k,134) & +rxt(k,363)* y(k,135) + rxt(k,7) + rxt(k,8) + het_rates(k,73)) & * y(k,73) - prod(k,136) = (rxt(k,324)*y(k,127) +rxt(k,338)*y(k,132) +rxt(k,405)*y(k,72)) & + prod(k,120) = (rxt(k,324)*y(k,127) +rxt(k,338)*y(k,132) +rxt(k,405)*y(k,72)) & *y(k,70) + (rxt(k,96) +rxt(k,278)*y(k,63))*y(k,130) & +rxt(k,361)*y(k,135)*y(k,125) - loss(k,52) = (rxt(k,554)* y(k,80) + rxt(k,60) + het_rates(k,74))* y(k,74) - prod(k,52) = (rxt(k,460)*y(k,28) +rxt(k,490)*y(k,5))*y(k,28) - loss(k,53) = (rxt(k,543)* y(k,70) +rxt(k,544)* y(k,133) + rxt(k,101) & + loss(k,52) = (rxt(k,556)* y(k,80) + rxt(k,60) + het_rates(k,74))* y(k,74) + prod(k,52) = (rxt(k,462)*y(k,28) +rxt(k,492)*y(k,5))*y(k,28) + loss(k,53) = (rxt(k,545)* y(k,70) +rxt(k,546)* y(k,133) + rxt(k,101) & + het_rates(k,75))* y(k,75) prod(k,53) = 0._r8 loss(k,16) = ( + het_rates(k,76))* y(k,76) prod(k,16) = 0._r8 loss(k,17) = ( + het_rates(k,77))* y(k,77) prod(k,17) = 0._r8 - loss(k,72) = (rxt(k,545)* y(k,72) +rxt(k,547)* y(k,73) +rxt(k,550)* y(k,133) & + loss(k,72) = (rxt(k,547)* y(k,72) +rxt(k,549)* y(k,73) +rxt(k,552)* y(k,133) & + het_rates(k,78))* y(k,78) prod(k,72) =rxt(k,101)*y(k,75) +rxt(k,102)*y(k,80) loss(k,18) = ( + rxt(k,61) + het_rates(k,79))* y(k,79) prod(k,18) = 0._r8 - loss(k,92) = (rxt(k,548)* y(k,5) +rxt(k,549)* y(k,28) +rxt(k,551)* y(k,63) & - +rxt(k,552)* y(k,72) +rxt(k,553)* y(k,73) +rxt(k,554)* y(k,74) & - +rxt(k,555)* y(k,133) + rxt(k,102) + het_rates(k,80))* y(k,80) - prod(k,92) = (rxt(k,545)*y(k,72) +rxt(k,547)*y(k,73) +rxt(k,550)*y(k,133)) & - *y(k,78) +rxt(k,543)*y(k,75)*y(k,70) +rxt(k,103)*y(k,81) - loss(k,82) = (rxt(k,546)* y(k,133) + rxt(k,103) + het_rates(k,81))* y(k,81) - prod(k,82) = (rxt(k,548)*y(k,5) +rxt(k,549)*y(k,28) +rxt(k,551)*y(k,63) + & - rxt(k,552)*y(k,72) +rxt(k,553)*y(k,73) +rxt(k,554)*y(k,74) + & - rxt(k,555)*y(k,133))*y(k,80) + (rxt(k,541)*y(k,64) + & - rxt(k,542)*y(k,133) +.500_r8*rxt(k,556)*y(k,133))*y(k,35) & - +rxt(k,544)*y(k,133)*y(k,75) +rxt(k,104)*y(k,82) - loss(k,45) = (rxt(k,557)* y(k,139) + rxt(k,104) + het_rates(k,82))* y(k,82) - prod(k,45) =rxt(k,100)*y(k,44) +rxt(k,546)*y(k,133)*y(k,81) + loss(k,92) = (rxt(k,550)* y(k,5) +rxt(k,551)* y(k,28) +rxt(k,553)* y(k,63) & + +rxt(k,554)* y(k,72) +rxt(k,555)* y(k,73) +rxt(k,556)* y(k,74) & + +rxt(k,557)* y(k,133) + rxt(k,102) + het_rates(k,80))* y(k,80) + prod(k,92) = (rxt(k,547)*y(k,72) +rxt(k,549)*y(k,73) +rxt(k,552)*y(k,133)) & + *y(k,78) +rxt(k,545)*y(k,75)*y(k,70) +rxt(k,103)*y(k,81) + loss(k,82) = (rxt(k,548)* y(k,133) + rxt(k,103) + het_rates(k,81))* y(k,81) + prod(k,82) = (rxt(k,550)*y(k,5) +rxt(k,551)*y(k,28) +rxt(k,553)*y(k,63) + & + rxt(k,554)*y(k,72) +rxt(k,555)*y(k,73) +rxt(k,556)*y(k,74) + & + rxt(k,557)*y(k,133))*y(k,80) + (rxt(k,543)*y(k,64) + & + rxt(k,544)*y(k,133) +.500_r8*rxt(k,558)*y(k,133))*y(k,35) & + +rxt(k,546)*y(k,133)*y(k,75) +rxt(k,104)*y(k,82) + loss(k,45) = (rxt(k,559)* y(k,139) + rxt(k,104) + het_rates(k,82))* y(k,82) + prod(k,45) =rxt(k,100)*y(k,44) +rxt(k,548)*y(k,133)*y(k,81) loss(k,19) = ( + het_rates(k,83))* y(k,83) prod(k,19) = 0._r8 loss(k,20) = ( + het_rates(k,84))* y(k,84) @@ -680,9 +680,9 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & loss(k,116) = ((rxt(k,133) +rxt(k,135))* y(k,72) +rxt(k,134)* y(k,73) & +rxt(k,138)* y(k,99) +rxt(k,382)* y(k,102) +rxt(k,383)* y(k,103) & +rxt(k,141)* y(k,105) +rxt(k,144)* y(k,107) +rxt(k,381)* y(k,108) & - +rxt(k,584)* y(k,110) +rxt(k,582)* y(k,118) +rxt(k,303)* y(k,119) & + +rxt(k,586)* y(k,110) +rxt(k,584)* y(k,118) +rxt(k,303)* y(k,119) & +rxt(k,304)* y(k,120) +rxt(k,306)* y(k,121) +rxt(k,308)* y(k,122) & - +rxt(k,384)* y(k,123) +rxt(k,583)* y(k,128) +rxt(k,326)* y(k,129) & + +rxt(k,384)* y(k,123) +rxt(k,585)* y(k,128) +rxt(k,326)* y(k,129) & +rxt(k,380)* y(k,132) + het_rates(k,98))* y(k,98) prod(k,116) = (rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) +rxt(k,81) + & rxt(k,82) +rxt(k,324)*y(k,127) +rxt(k,333)*y(k,130) + & @@ -701,41 +701,41 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & * y(k,107) +rxt(k,242)* y(k,118) +rxt(k,224)* y(k,119) +rxt(k,207) & * y(k,122) +rxt(k,149)* y(k,128) + het_rates(k,100))* y(k,100) prod(k,93) =rxt(k,343)*y(k,134)*y(k,32) - loss(k,112) = (rxt(k,487)* y(k,3) +rxt(k,493)* y(k,5) +rxt(k,533)* y(k,21) & - + (rxt(k,454) +rxt(k,455))* y(k,25) +rxt(k,461)* y(k,28) & - + (rxt(k,408) +rxt(k,409) +rxt(k,410))* y(k,40) +rxt(k,439)* y(k,62) & - +rxt(k,444)* y(k,63) +rxt(k,434)* y(k,64) +rxt(k,412)* y(k,70) & + loss(k,112) = (rxt(k,489)* y(k,3) +rxt(k,495)* y(k,5) +rxt(k,535)* y(k,21) & + + (rxt(k,456) +rxt(k,457))* y(k,25) +rxt(k,463)* y(k,28) & + + (rxt(k,408) +rxt(k,409) +rxt(k,410))* y(k,40) +rxt(k,438)* y(k,62) & + +rxt(k,443)* y(k,63) +rxt(k,433)* y(k,64) +rxt(k,412)* y(k,70) & +rxt(k,413)* y(k,73) + 2._r8*rxt(k,422)* y(k,101) +rxt(k,310) & - * y(k,122) +rxt(k,417)* y(k,133) + rxt(k,558) + het_rates(k,101)) & + * y(k,122) +rxt(k,417)* y(k,133) + rxt(k,560) + het_rates(k,101)) & * y(k,101) - prod(k,112) = (rxt(k,416)*y(k,43) +rxt(k,419)*y(k,73) +rxt(k,437)*y(k,64) + & - rxt(k,468)*y(k,28) +rxt(k,498)*y(k,5) +rxt(k,516)*y(k,18) + & - rxt(k,519)*y(k,20) +rxt(k,540)*y(k,31) +rxt(k,546)*y(k,81) + & - .500_r8*rxt(k,556)*y(k,35))*y(k,133) + (rxt(k,450)*y(k,25) + & - rxt(k,486)*y(k,3) +rxt(k,530)*y(k,64) +rxt(k,531)*y(k,70))*y(k,17) & - + (rxt(k,453)*y(k,43) +rxt(k,515)*y(k,18) +rxt(k,518)*y(k,20)) & + prod(k,112) = (rxt(k,416)*y(k,43) +rxt(k,419)*y(k,73) +rxt(k,436)*y(k,64) + & + rxt(k,470)*y(k,28) +rxt(k,500)*y(k,5) +rxt(k,518)*y(k,18) + & + rxt(k,521)*y(k,20) +rxt(k,542)*y(k,31) +rxt(k,548)*y(k,81) + & + .500_r8*rxt(k,558)*y(k,35))*y(k,133) + (rxt(k,452)*y(k,25) + & + rxt(k,488)*y(k,3) +rxt(k,532)*y(k,64) +rxt(k,533)*y(k,70))*y(k,17) & + + (rxt(k,455)*y(k,43) +rxt(k,517)*y(k,18) +rxt(k,520)*y(k,20)) & *y(k,25) + (rxt(k,317)*y(k,40) +rxt(k,318)*y(k,49) + & - rxt(k,319)*y(k,51))*y(k,127) + (rxt(k,457)*y(k,28) + & - rxt(k,534)*y(k,62))*y(k,21) + (rxt(k,11) +rxt(k,448))*y(k,52) & + rxt(k,319)*y(k,51))*y(k,127) + (rxt(k,459)*y(k,28) + & + rxt(k,536)*y(k,62))*y(k,21) + (rxt(k,11) +rxt(k,447))*y(k,52) & + (rxt(k,347)*y(k,134) +rxt(k,407)*y(k,43))*y(k,70) & - +rxt(k,538)*y(k,71)*y(k,23) +rxt(k,411)*y(k,72)*y(k,40) & + +rxt(k,540)*y(k,71)*y(k,23) +rxt(k,411)*y(k,72)*y(k,40) & +rxt(k,130)*y(k,97)*y(k,49) loss(k,68) = (rxt(k,382)* y(k,98) +rxt(k,374)* y(k,139) + rxt(k,373) & + het_rates(k,102))* y(k,102) prod(k,68) = (rxt(k,139)*y(k,99) +rxt(k,372)*y(k,108))*y(k,139) +rxt(k,375) & *y(k,103) - loss(k,120) = (rxt(k,195)* y(k,90) +rxt(k,199)* y(k,91) +rxt(k,187)* y(k,92) & + loss(k,129) = (rxt(k,195)* y(k,90) +rxt(k,199)* y(k,91) +rxt(k,187)* y(k,92) & +rxt(k,186)* y(k,94) +rxt(k,194)* y(k,95) +rxt(k,196)* y(k,96) & +rxt(k,191)* y(k,97) +rxt(k,383)* y(k,98) +rxt(k,189)* y(k,100) & +rxt(k,201)* y(k,111) +rxt(k,197)* y(k,112) +rxt(k,188)* y(k,113) & +rxt(k,200)* y(k,114) +rxt(k,193)* y(k,115) +rxt(k,198)* y(k,116) & +rxt(k,185)* y(k,117) +rxt(k,190)* y(k,127) +rxt(k,376)* y(k,139) & + rxt(k,375) + het_rates(k,103))* y(k,103) - prod(k,120) = (rxt(k,305)*y(k,120) +rxt(k,374)*y(k,102))*y(k,139) +rxt(k,377) & + prod(k,129) = (rxt(k,305)*y(k,120) +rxt(k,374)*y(k,102))*y(k,139) +rxt(k,377) & *y(k,105) loss(k,46) = (rxt(k,140)* y(k,139) + het_rates(k,104))* y(k,104) prod(k,46) =rxt(k,142)*y(k,105)*y(k,58) - loss(k,130) = (rxt(k,142)* y(k,58) +rxt(k,147)* y(k,90) +rxt(k,164)* y(k,91) & + loss(k,121) = (rxt(k,142)* y(k,58) +rxt(k,147)* y(k,90) +rxt(k,164)* y(k,91) & + (rxt(k,181) +rxt(k,267))* y(k,92) + (rxt(k,170) +rxt(k,258)) & * y(k,94) + (rxt(k,247) +rxt(k,271))* y(k,95) + (rxt(k,158) + & rxt(k,260))* y(k,96) +rxt(k,225)* y(k,97) +rxt(k,141)* y(k,98) & @@ -744,11 +744,11 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & + (rxt(k,236) +rxt(k,262))* y(k,115) +rxt(k,163)* y(k,116) & + (rxt(k,146) +rxt(k,269))* y(k,117) +rxt(k,214)* y(k,127) & +rxt(k,378)* y(k,139) + rxt(k,377) + het_rates(k,105))* y(k,105) - prod(k,130) = (rxt(k,140)*y(k,104) +rxt(k,376)*y(k,103))*y(k,139) +rxt(k,379) & + prod(k,121) = (rxt(k,140)*y(k,104) +rxt(k,376)*y(k,103))*y(k,139) +rxt(k,379) & *y(k,107) loss(k,47) = (rxt(k,143)* y(k,139) + het_rates(k,106))* y(k,106) prod(k,47) =rxt(k,145)*y(k,107)*y(k,58) - loss(k,129) = (rxt(k,145)* y(k,58) +rxt(k,177)* y(k,90) +rxt(k,182)* y(k,91) & + loss(k,124) = (rxt(k,145)* y(k,58) +rxt(k,177)* y(k,90) +rxt(k,182)* y(k,91) & + (rxt(k,169) +rxt(k,268))* y(k,92) + (rxt(k,168) +rxt(k,265)) & * y(k,94) + (rxt(k,176) +rxt(k,259))* y(k,95) + (rxt(k,178) + & rxt(k,261))* y(k,96) +rxt(k,174)* y(k,97) +rxt(k,144)* y(k,98) & @@ -757,18 +757,18 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & + (rxt(k,175) +rxt(k,263))* y(k,115) +rxt(k,180)* y(k,116) & + (rxt(k,167) +rxt(k,270))* y(k,117) +rxt(k,173)* y(k,127) & + rxt(k,379) + het_rates(k,107))* y(k,107) - prod(k,129) = (rxt(k,143)*y(k,106) +rxt(k,378)*y(k,105))*y(k,139) + prod(k,124) = (rxt(k,143)*y(k,106) +rxt(k,378)*y(k,105))*y(k,139) loss(k,74) = (rxt(k,381)* y(k,98) +rxt(k,372)* y(k,139) + het_rates(k,108)) & * y(k,108) prod(k,74) = (rxt(k,309)*y(k,40) +rxt(k,310)*y(k,101) +rxt(k,311)*y(k,133)) & *y(k,122) +rxt(k,373)*y(k,102) +rxt(k,328)*y(k,139)*y(k,129) - loss(k,76) = (rxt(k,424)* y(k,70) +rxt(k,425)* y(k,72) +rxt(k,596)* y(k,136) & - + het_rates(k,109))* y(k,109) - prod(k,76) = (.800_r8*rxt(k,582)*y(k,118) +.900_r8*rxt(k,584)*y(k,110)) & - *y(k,98) +rxt(k,586)*y(k,110)*y(k,70) - loss(k,66) = ((rxt(k,586) +rxt(k,587))* y(k,70) +rxt(k,585)* y(k,72) & - +rxt(k,584)* y(k,98) + het_rates(k,110))* y(k,110) - prod(k,66) =rxt(k,599)*y(k,137) +rxt(k,604)*y(k,138) + loss(k,81) = (rxt(k,425)* y(k,62) +rxt(k,449)* y(k,72) +rxt(k,448)* y(k,98) & + +rxt(k,598)* y(k,136) + rxt(k,423) + het_rates(k,109))* y(k,109) + prod(k,81) = (.800_r8*rxt(k,584)*y(k,118) +.900_r8*rxt(k,586)*y(k,110)) & + *y(k,98) +rxt(k,588)*y(k,110)*y(k,70) + loss(k,66) = ((rxt(k,588) +rxt(k,589))* y(k,70) +rxt(k,587)* y(k,72) & + +rxt(k,586)* y(k,98) + het_rates(k,110))* y(k,110) + prod(k,66) =rxt(k,601)*y(k,137) +rxt(k,606)*y(k,138) loss(k,113) = (rxt(k,285)* y(k,25) +rxt(k,286)* y(k,28) +rxt(k,287)* y(k,40) & +rxt(k,289)* y(k,49) +rxt(k,290)* y(k,51) +rxt(k,291)* y(k,63) & +rxt(k,292)* y(k,73) +rxt(k,201)* y(k,103) +rxt(k,166)* y(k,105) & @@ -822,14 +822,14 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & *y(k,51) + (rxt(k,293)*y(k,114) +rxt(k,297)*y(k,115))*y(k,58) loss(k,118) = (rxt(k,368)* y(k,32) +rxt(k,248)* y(k,90) +rxt(k,252)* y(k,91) & +rxt(k,240)* y(k,92) +rxt(k,239)* y(k,94) +rxt(k,246)* y(k,95) & - +rxt(k,249)* y(k,96) +rxt(k,244)* y(k,97) +rxt(k,582)* y(k,98) & + +rxt(k,249)* y(k,96) +rxt(k,244)* y(k,97) +rxt(k,584)* y(k,98) & +rxt(k,242)* y(k,100) +rxt(k,254)* y(k,111) +rxt(k,250)* y(k,112) & +rxt(k,241)* y(k,113) +rxt(k,253)* y(k,114) +rxt(k,245)* y(k,115) & +rxt(k,251)* y(k,116) +rxt(k,238)* y(k,117) +rxt(k,243)* y(k,127) & +rxt(k,365)* y(k,139) + rxt(k,370) + het_rates(k,118))* y(k,118) - prod(k,118) = (rxt(k,592) +rxt(k,591)*y(k,56) +rxt(k,593)*y(k,62))*y(k,128) & - +rxt(k,16)*y(k,62) +rxt(k,586)*y(k,110)*y(k,70) +rxt(k,590)*y(k,124) & - *y(k,72) +rxt(k,369)*y(k,121) +rxt(k,371)*y(k,123) +rxt(k,595) & + prod(k,118) = (rxt(k,594) +rxt(k,593)*y(k,56) +rxt(k,595)*y(k,62))*y(k,128) & + +rxt(k,16)*y(k,62) +rxt(k,588)*y(k,110)*y(k,70) +rxt(k,592)*y(k,124) & + *y(k,72) +rxt(k,369)*y(k,121) +rxt(k,371)*y(k,123) +rxt(k,597) & *y(k,136) loss(k,119) = (rxt(k,230)* y(k,90) +rxt(k,234)* y(k,91) +rxt(k,222)* y(k,92) & +rxt(k,221)* y(k,94) +rxt(k,229)* y(k,95) +rxt(k,231)* y(k,96) & @@ -858,9 +858,9 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & loss(k,70) = (rxt(k,312)* y(k,32) +rxt(k,384)* y(k,98) +rxt(k,313)* y(k,139) & + rxt(k,371) + het_rates(k,123))* y(k,123) prod(k,70) =rxt(k,370)*y(k,118) - loss(k,78) = (rxt(k,588)* y(k,70) + (rxt(k,589) +rxt(k,590))* y(k,72) & + loss(k,77) = (rxt(k,590)* y(k,70) + (rxt(k,591) +rxt(k,592))* y(k,72) & + het_rates(k,124))* y(k,124) - prod(k,78) =rxt(k,66)*y(k,56) +rxt(k,596)*y(k,136)*y(k,109) +rxt(k,605) & + prod(k,77) =rxt(k,66)*y(k,56) +rxt(k,598)*y(k,136)*y(k,109) +rxt(k,607) & *y(k,138) loss(k,85) = (rxt(k,396)* y(k,70) +rxt(k,397)* y(k,72) +rxt(k,321)* y(k,127) & +rxt(k,339)* y(k,132) +rxt(k,361)* y(k,135) + rxt(k,387) & @@ -881,18 +881,18 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,127) = (rxt(k,125)*y(k,94) +rxt(k,334)*y(k,130))*y(k,70) & + (rxt(k,133)*y(k,98) +rxt(k,135)*y(k,98))*y(k,72) +rxt(k,65) & *y(k,97) +rxt(k,97)*y(k,131) - loss(k,128) = (rxt(k,591)* y(k,56) +rxt(k,593)* y(k,62) +rxt(k,364)* y(k,72) & + loss(k,128) = (rxt(k,593)* y(k,56) +rxt(k,595)* y(k,62) +rxt(k,364)* y(k,72) & +rxt(k,154)* y(k,90) +rxt(k,159)* y(k,91) +rxt(k,257)* y(k,92) & +rxt(k,256)* y(k,94) +rxt(k,153)* y(k,95) +rxt(k,155)* y(k,96) & - +rxt(k,151)* y(k,97) +rxt(k,583)* y(k,98) +rxt(k,149)* y(k,100) & + +rxt(k,151)* y(k,97) +rxt(k,585)* y(k,98) +rxt(k,149)* y(k,100) & +rxt(k,161)* y(k,111) +rxt(k,156)* y(k,112) +rxt(k,148)* y(k,113) & +rxt(k,160)* y(k,114) +rxt(k,152)* y(k,115) +rxt(k,157)* y(k,116) & +rxt(k,255)* y(k,117) +rxt(k,150)* y(k,127) +rxt(k,329)* y(k,139) & - + rxt(k,592) + het_rates(k,128))* y(k,128) - prod(k,128) = (rxt(k,84) +rxt(k,86) +rxt(k,585)*y(k,110) + & - rxt(k,589)*y(k,124) +rxt(k,597)*y(k,136) +rxt(k,601)*y(k,137)) & + + rxt(k,594) + het_rates(k,128))* y(k,128) + prod(k,128) = (rxt(k,84) +rxt(k,86) +rxt(k,587)*y(k,110) + & + rxt(k,591)*y(k,124) +rxt(k,599)*y(k,136) +rxt(k,603)*y(k,137)) & *y(k,72) + (rxt(k,338)*y(k,70) +rxt(k,339)*y(k,125))*y(k,132) & - +rxt(k,594)*y(k,136)*y(k,32) +2.000_r8*rxt(k,150)*y(k,128)*y(k,127) & + +rxt(k,596)*y(k,136)*y(k,32) +2.000_r8*rxt(k,150)*y(k,128)*y(k,127) & +rxt(k,94)*y(k,129) loss(k,75) = (rxt(k,326)* y(k,98) + (rxt(k,327) +rxt(k,328))* y(k,139) & + rxt(k,94) + het_rates(k,129))* y(k,129) @@ -910,40 +910,40 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & loss(k,91) = (rxt(k,338)* y(k,70) +rxt(k,380)* y(k,98) +rxt(k,339)* y(k,125) & +rxt(k,337)* y(k,139) + het_rates(k,132))* y(k,132) prod(k,91) =rxt(k,364)*y(k,128)*y(k,72) - loss(k,114) = (rxt(k,498)* y(k,5) +rxt(k,514)* y(k,16) +rxt(k,532)* y(k,17) & - +rxt(k,516)* y(k,18) +rxt(k,517)* y(k,19) +rxt(k,519)* y(k,20) & - +rxt(k,535)* y(k,22) +rxt(k,536)* y(k,23) +rxt(k,521)* y(k,24) & - + (rxt(k,468) +rxt(k,469))* y(k,28) +rxt(k,466)* y(k,29) +rxt(k,540) & - * y(k,31) + (rxt(k,542) +rxt(k,556))* y(k,35) +rxt(k,415)* y(k,41) & - +rxt(k,416)* y(k,43) +rxt(k,500)* y(k,45) +rxt(k,522)* y(k,46) & - +rxt(k,523)* y(k,47) +rxt(k,524)* y(k,48) +rxt(k,471)* y(k,49) & - +rxt(k,447)* y(k,51) +rxt(k,423)* y(k,52) +rxt(k,474)* y(k,54) & - +rxt(k,340)* y(k,55) +rxt(k,438)* y(k,56) +rxt(k,349)* y(k,62) & - +rxt(k,446)* y(k,63) +rxt(k,437)* y(k,64) +rxt(k,418)* y(k,70) & - +rxt(k,419)* y(k,73) +rxt(k,544)* y(k,75) +rxt(k,550)* y(k,78) & - +rxt(k,555)* y(k,80) +rxt(k,546)* y(k,81) +rxt(k,417)* y(k,101) & + loss(k,114) = (rxt(k,500)* y(k,5) +rxt(k,516)* y(k,16) +rxt(k,534)* y(k,17) & + +rxt(k,518)* y(k,18) +rxt(k,519)* y(k,19) +rxt(k,521)* y(k,20) & + +rxt(k,537)* y(k,22) +rxt(k,538)* y(k,23) +rxt(k,523)* y(k,24) & + + (rxt(k,470) +rxt(k,471))* y(k,28) +rxt(k,468)* y(k,29) +rxt(k,542) & + * y(k,31) + (rxt(k,544) +rxt(k,558))* y(k,35) +rxt(k,415)* y(k,41) & + +rxt(k,416)* y(k,43) +rxt(k,502)* y(k,45) +rxt(k,524)* y(k,46) & + +rxt(k,525)* y(k,47) +rxt(k,526)* y(k,48) +rxt(k,473)* y(k,49) & + +rxt(k,446)* y(k,51) +rxt(k,424)* y(k,52) +rxt(k,476)* y(k,54) & + +rxt(k,340)* y(k,55) +rxt(k,437)* y(k,56) +rxt(k,349)* y(k,62) & + +rxt(k,445)* y(k,63) +rxt(k,436)* y(k,64) +rxt(k,418)* y(k,70) & + +rxt(k,419)* y(k,73) +rxt(k,546)* y(k,75) +rxt(k,552)* y(k,78) & + +rxt(k,557)* y(k,80) +rxt(k,548)* y(k,81) +rxt(k,417)* y(k,101) & +rxt(k,311)* y(k,122) + 2._r8*(rxt(k,420) +rxt(k,421))* y(k,133) & + het_rates(k,133))* y(k,133) prod(k,114) = (rxt(k,406)*y(k,41) +rxt(k,407)*y(k,43) +rxt(k,412)*y(k,101) + & - rxt(k,470)*y(k,49) +rxt(k,473)*y(k,54) +rxt(k,499)*y(k,45) + & - rxt(k,501)*y(k,53) +rxt(k,531)*y(k,17))*y(k,70) & + rxt(k,472)*y(k,49) +rxt(k,475)*y(k,54) +rxt(k,501)*y(k,45) + & + rxt(k,503)*y(k,53) +rxt(k,533)*y(k,17))*y(k,70) & + (rxt(k,149)*y(k,128) +rxt(k,172)*y(k,107) +rxt(k,189)*y(k,103) + & rxt(k,203)*y(k,105) +rxt(k,207)*y(k,122) +rxt(k,224)*y(k,119) + & rxt(k,242)*y(k,118))*y(k,100) + (rxt(k,3) +rxt(k,139)*y(k,99) + & rxt(k,328)*y(k,129) +rxt(k,355)*y(k,135) + & - 2.000_r8*rxt(k,390)*y(k,71) +rxt(k,509)*y(k,39))*y(k,139) & + 2.000_r8*rxt(k,390)*y(k,71) +rxt(k,511)*y(k,39))*y(k,139) & + (2.000_r8*rxt(k,409)*y(k,40) +rxt(k,413)*y(k,73) + & - rxt(k,434)*y(k,64) +rxt(k,439)*y(k,62) +rxt(k,455)*y(k,25))*y(k,101) & + rxt(k,433)*y(k,64) +rxt(k,438)*y(k,62) +rxt(k,457)*y(k,25))*y(k,101) & + (rxt(k,98) +rxt(k,341)*y(k,25) +rxt(k,342)*y(k,28) + & rxt(k,346)*y(k,63) +rxt(k,348)*y(k,73))*y(k,134) & - + (rxt(k,389)*y(k,41) +rxt(k,482)*y(k,49) +rxt(k,505)*y(k,45) + & - rxt(k,537)*y(k,23))*y(k,71) + (rxt(k,9) +rxt(k,124)*y(k,94) + & + + (rxt(k,389)*y(k,41) +rxt(k,484)*y(k,49) +rxt(k,507)*y(k,45) + & + rxt(k,539)*y(k,23))*y(k,71) + (rxt(k,9) +rxt(k,124)*y(k,94) + & rxt(k,357)*y(k,135))*y(k,51) + (rxt(k,23) + & - .300_r8*rxt(k,535)*y(k,133))*y(k,22) + (rxt(k,129)*y(k,97) + & + .300_r8*rxt(k,537)*y(k,133))*y(k,22) + (rxt(k,129)*y(k,97) + & rxt(k,414)*y(k,73))*y(k,40) +.330_r8*rxt(k,25)*y(k,23) & +2.000_r8*rxt(k,4)*y(k,43) +rxt(k,356)*y(k,135)*y(k,49) +rxt(k,10) & *y(k,52) +rxt(k,58)*y(k,53) +rxt(k,59)*y(k,54) +rxt(k,12)*y(k,55) & - +.500_r8*rxt(k,560)*y(k,63) +rxt(k,138)*y(k,99)*y(k,98) + +.500_r8*rxt(k,562)*y(k,63) +rxt(k,138)*y(k,99)*y(k,98) loss(k,134) = (rxt(k,341)* y(k,25) +rxt(k,342)* y(k,28) +rxt(k,343)* y(k,32) & +rxt(k,344)* y(k,40) +rxt(k,345)* y(k,49) +rxt(k,346)* y(k,63) & +rxt(k,347)* y(k,70) +rxt(k,348)* y(k,73) + rxt(k,98) & @@ -958,22 +958,22 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & + het_rates(k,135))* y(k,135) prod(k,135) =rxt(k,325)*y(k,127)*y(k,70) +rxt(k,134)*y(k,98)*y(k,73) & +rxt(k,63)*y(k,94) +rxt(k,95)*y(k,130) - loss(k,86) = (rxt(k,594)* y(k,32) +rxt(k,597)* y(k,72) +rxt(k,596)* y(k,109) & - + rxt(k,595) + het_rates(k,136))* y(k,136) - prod(k,86) = (rxt(k,77) +rxt(k,81) +rxt(k,587)*y(k,110) + & - rxt(k,588)*y(k,124) +rxt(k,600)*y(k,137) +rxt(k,606)*y(k,138)) & - *y(k,70) + (rxt(k,85) +rxt(k,87))*y(k,72) + (rxt(k,598)*y(k,137) + & - rxt(k,603)*y(k,138))*y(k,98) +rxt(k,580)*y(k,137) +rxt(k,579) & + loss(k,87) = (rxt(k,596)* y(k,32) +rxt(k,599)* y(k,72) +rxt(k,598)* y(k,109) & + + rxt(k,597) + het_rates(k,136))* y(k,136) + prod(k,87) = (rxt(k,77) +rxt(k,81) +rxt(k,589)*y(k,110) + & + rxt(k,590)*y(k,124) +rxt(k,602)*y(k,137) +rxt(k,608)*y(k,138)) & + *y(k,70) + (rxt(k,85) +rxt(k,87))*y(k,72) + (rxt(k,600)*y(k,137) + & + rxt(k,605)*y(k,138))*y(k,98) +rxt(k,582)*y(k,137) +rxt(k,581) & *y(k,138) - loss(k,62) = (rxt(k,600)* y(k,70) +rxt(k,601)* y(k,72) +rxt(k,598)* y(k,98) & - + rxt(k,580) + rxt(k,599) + het_rates(k,137))* y(k,137) + loss(k,62) = (rxt(k,602)* y(k,70) +rxt(k,603)* y(k,72) +rxt(k,600)* y(k,98) & + + rxt(k,582) + rxt(k,601) + het_rates(k,137))* y(k,137) prod(k,62) = (rxt(k,78) +rxt(k,82))*y(k,70) + (rxt(k,83) +rxt(k,92))*y(k,72) & - + (rxt(k,581) +rxt(k,602)*y(k,98))*y(k,138) - loss(k,61) = (rxt(k,606)* y(k,70) + (rxt(k,602) +rxt(k,603))* y(k,98) & - + rxt(k,579) + rxt(k,581) + rxt(k,604) + rxt(k,605) & + + (rxt(k,583) +rxt(k,604)*y(k,98))*y(k,138) + loss(k,61) = (rxt(k,608)* y(k,70) + (rxt(k,604) +rxt(k,605))* y(k,98) & + + rxt(k,581) + rxt(k,583) + rxt(k,606) + rxt(k,607) & + het_rates(k,138))* y(k,138) prod(k,61) = (rxt(k,79) +rxt(k,80))*y(k,70) + (rxt(k,90) +rxt(k,91))*y(k,72) - loss(k,139) = (rxt(k,509)* y(k,39) +rxt(k,390)* y(k,71) +rxt(k,557)* y(k,82) & + loss(k,139) = (rxt(k,511)* y(k,39) +rxt(k,390)* y(k,71) +rxt(k,559)* y(k,82) & +rxt(k,107)* y(k,90) +rxt(k,119)* y(k,94) +rxt(k,118)* y(k,96) & +rxt(k,139)* y(k,99) +rxt(k,374)* y(k,102) +rxt(k,376)* y(k,103) & +rxt(k,140)* y(k,104) +rxt(k,378)* y(k,105) +rxt(k,143)* y(k,106) & @@ -1018,11 +1018,11 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & 4.000_r8*rxt(k,199)*y(k,91) +5.000_r8*rxt(k,200)*y(k,114) + & 3.000_r8*rxt(k,201)*y(k,111) +3.000_r8*rxt(k,383)*y(k,98))*y(k,103) & + (rxt(k,340)*y(k,55) +rxt(k,415)*y(k,41) +rxt(k,416)*y(k,43) + & - rxt(k,417)*y(k,101) +rxt(k,420)*y(k,133) +rxt(k,423)*y(k,52) + & - rxt(k,447)*y(k,51) +rxt(k,471)*y(k,49) +rxt(k,474)*y(k,54) + & - rxt(k,500)*y(k,45) +rxt(k,514)*y(k,16) +rxt(k,516)*y(k,18) + & - rxt(k,517)*y(k,19) +rxt(k,519)*y(k,20) +rxt(k,524)*y(k,48) + & - rxt(k,532)*y(k,17) +rxt(k,535)*y(k,22) +rxt(k,536)*y(k,23))*y(k,133) & + rxt(k,417)*y(k,101) +rxt(k,420)*y(k,133) +rxt(k,424)*y(k,52) + & + rxt(k,446)*y(k,51) +rxt(k,473)*y(k,49) +rxt(k,476)*y(k,54) + & + rxt(k,502)*y(k,45) +rxt(k,516)*y(k,16) +rxt(k,518)*y(k,18) + & + rxt(k,519)*y(k,19) +rxt(k,521)*y(k,20) +rxt(k,526)*y(k,48) + & + rxt(k,534)*y(k,17) +rxt(k,537)*y(k,22) +rxt(k,538)*y(k,23))*y(k,133) & + (2.000_r8*rxt(k,220)*y(k,117) +2.000_r8*rxt(k,221)*y(k,94) + & 2.000_r8*rxt(k,222)*y(k,92) +2.000_r8*rxt(k,223)*y(k,113) + & 2.000_r8*rxt(k,224)*y(k,100) +2.000_r8*rxt(k,226)*y(k,127) + & @@ -1039,9 +1039,9 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & 2.000_r8*rxt(k,215)*y(k,112) +rxt(k,216)*y(k,116) + & 2.000_r8*rxt(k,217)*y(k,91) +3.000_r8*rxt(k,218)*y(k,114) + & rxt(k,219)*y(k,111) +rxt(k,308)*y(k,98))*y(k,122) & - + (rxt(k,106)*y(k,91) +rxt(k,345)*y(k,134) +rxt(k,563)*y(k,54) + & - rxt(k,569)*y(k,54) +rxt(k,570)*y(k,53) +rxt(k,574)*y(k,54) + & - rxt(k,575)*y(k,53))*y(k,49) + (rxt(k,64) +rxt(k,283) + & + + (rxt(k,106)*y(k,91) +rxt(k,345)*y(k,134) +rxt(k,565)*y(k,54) + & + rxt(k,571)*y(k,54) +rxt(k,572)*y(k,53) +rxt(k,576)*y(k,54) + & + rxt(k,577)*y(k,53))*y(k,49) + (rxt(k,64) +rxt(k,283) + & rxt(k,120)*y(k,63) +rxt(k,123)*y(k,62) +rxt(k,155)*y(k,128) + & rxt(k,249)*y(k,118))*y(k,96) + (rxt(k,138)*y(k,99) + & 3.000_r8*rxt(k,304)*y(k,120) +rxt(k,326)*y(k,129) + & diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_rxt_rates_conv.F90 index e43e8ab899..7e63b7efec 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_rxt_rates_conv.F90 @@ -430,189 +430,191 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 133)*sol(:ncol,:, 133) ! rate_const*OH*OH rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 133)*sol(:ncol,:, 133) ! rate_const*M*OH*OH rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 101)*sol(:ncol,:, 101) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 52)*sol(:ncol,:, 133) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 109)*sol(:ncol,:, 70) ! rate_const*N2D*O - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 109)*sol(:ncol,:, 72) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 109) ! rate_const*N2D + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 52)*sol(:ncol,:, 133) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 109)*sol(:ncol,:, 62) ! rate_const*N2D*NO rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 56)*sol(:ncol,:, 62) ! rate_const*N*NO rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2 rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2 rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 56)*sol(:ncol,:, 63) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 56)*sol(:ncol,:, 72) ! rate_const*N*O2 - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*NO2*O - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 63)*sol(:ncol,:, 73) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 64)*sol(:ncol,:, 101) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 64)*sol(:ncol,:, 62) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 64)*sol(:ncol,:, 70) ! rate_const*NO3*O - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 64)*sol(:ncol,:, 133) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 56)*sol(:ncol,:, 133) ! rate_const*N*OH - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 62)*sol(:ncol,:, 101) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 62)*sol(:ncol,:, 73) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 62)*sol(:ncol,:, 70) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*NO2*O + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 63)*sol(:ncol,:, 73) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 63)*sol(:ncol,:, 70) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 64)*sol(:ncol,:, 101) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 64)*sol(:ncol,:, 62) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 64)*sol(:ncol,:, 70) ! rate_const*NO3*O + rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 64)*sol(:ncol,:, 133) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 56)*sol(:ncol,:, 133) ! rate_const*N*OH + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 62)*sol(:ncol,:, 101) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 62)*sol(:ncol,:, 73) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 62)*sol(:ncol,:, 70) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*O1D*N2O rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 63)*sol(:ncol,:, 101) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 63)*sol(:ncol,:, 64) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 63)*sol(:ncol,:, 133) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 51)*sol(:ncol,:, 133) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 52) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 58) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 25)*sol(:ncol,:, 17) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 25)*sol(:ncol,:, 41) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 25)*sol(:ncol,:, 43) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 25)*sol(:ncol,:, 73) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 28)*sol(:ncol,:, 21) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 63)*sol(:ncol,:, 101) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 63)*sol(:ncol,:, 64) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 63)*sol(:ncol,:, 133) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 51)*sol(:ncol,:, 133) ! rate_const*HNO3*OH + rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 52) ! rate_const*M*HO2NO2 + rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 109)*sol(:ncol,:, 98) ! rate_const*N2D*e + rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 109)*sol(:ncol,:, 72) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 58) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 56)*sol(:ncol,:, 72) ! rate_const*N*O2 + rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 25)*sol(:ncol,:, 17) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 25)*sol(:ncol,:, 41) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 25)*sol(:ncol,:, 43) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 25)*sol(:ncol,:, 101) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 25)*sol(:ncol,:, 73) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 28)*sol(:ncol,:, 21) ! rate_const*CLO*CH3O2 rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 28)*sol(:ncol,:, 101) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 28)*sol(:ncol,:, 62) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 28)*sol(:ncol,:, 63) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 29)*sol(:ncol,:, 70) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 29)*sol(:ncol,:, 133) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 28)*sol(:ncol,:, 70) ! rate_const*CLO*O - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 49)*sol(:ncol,:, 70) ! rate_const*HCL*O - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 49)*sol(:ncol,:, 133) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 54)*sol(:ncol,:, 25) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 54)*sol(:ncol,:, 70) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 54)*sol(:ncol,:, 133) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 71)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 71)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 71)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 71)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 71)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 71)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 71)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 27) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 3)*sol(:ncol,:, 17) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 3)*sol(:ncol,:, 101) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 3)*sol(:ncol,:, 73) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 5)*sol(:ncol,:, 5) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 28)*sol(:ncol,:, 101) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 28)*sol(:ncol,:, 62) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 28)*sol(:ncol,:, 63) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 29)*sol(:ncol,:, 70) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 29)*sol(:ncol,:, 133) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 28)*sol(:ncol,:, 70) ! rate_const*CLO*O + rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 49)*sol(:ncol,:, 70) ! rate_const*HCL*O + rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 49)*sol(:ncol,:, 133) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 54)*sol(:ncol,:, 25) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 54)*sol(:ncol,:, 70) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 54)*sol(:ncol,:, 133) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 71)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 71)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 71)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 71)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 71)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 71)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 71)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 71)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 28)*sol(:ncol,:, 28) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 27) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 3)*sol(:ncol,:, 17) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 3)*sol(:ncol,:, 101) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 3)*sol(:ncol,:, 73) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 5)*sol(:ncol,:, 5) ! rate_const*BRO*BRO rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 5)*sol(:ncol,:, 101) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 5)*sol(:ncol,:, 62) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 5)*sol(:ncol,:, 63) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 6)*sol(:ncol,:, 70) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 5)*sol(:ncol,:, 70) ! rate_const*BRO*O - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 5)*sol(:ncol,:, 133) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 45)*sol(:ncol,:, 70) ! rate_const*HBR*O - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 45)*sol(:ncol,:, 133) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 53)*sol(:ncol,:, 70) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 71)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 71)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 71)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 39)*sol(:ncol,:, 23) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 39)*sol(:ncol,:, 41) ! rate_const*F*H2 - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 39)*sol(:ncol,:, 139) ! rate_const*F*H2O - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 39)*sol(:ncol,:, 51) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 71)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 71)*sol(:ncol,:, 34) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 16)*sol(:ncol,:, 25) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 16)*sol(:ncol,:, 133) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 18)*sol(:ncol,:, 25) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 18)*sol(:ncol,:, 133) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 19)*sol(:ncol,:, 133) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 20)*sol(:ncol,:, 25) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 20)*sol(:ncol,:, 133) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 24)*sol(:ncol,:, 25) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 24)*sol(:ncol,:, 133) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 46)*sol(:ncol,:, 133) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 47)*sol(:ncol,:, 133) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 48)*sol(:ncol,:, 133) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 71)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 71)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 71)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 71)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 71)*sol(:ncol,:, 48) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 17)*sol(:ncol,:, 64) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 17)*sol(:ncol,:, 70) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 17)*sol(:ncol,:, 133) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 21)*sol(:ncol,:, 101) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 21)*sol(:ncol,:, 62) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 22)*sol(:ncol,:, 133) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 23)*sol(:ncol,:, 133) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 5)*sol(:ncol,:, 28) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 5)*sol(:ncol,:, 101) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 5)*sol(:ncol,:, 62) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 5)*sol(:ncol,:, 63) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 6)*sol(:ncol,:, 70) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 5)*sol(:ncol,:, 70) ! rate_const*BRO*O + rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 5)*sol(:ncol,:, 133) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 45)*sol(:ncol,:, 70) ! rate_const*HBR*O + rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 45)*sol(:ncol,:, 133) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 53)*sol(:ncol,:, 70) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 71)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 71)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 71)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 71)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 39)*sol(:ncol,:, 23) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 39)*sol(:ncol,:, 41) ! rate_const*F*H2 + rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 39)*sol(:ncol,:, 139) ! rate_const*F*H2O + rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 39)*sol(:ncol,:, 51) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 71)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 71)*sol(:ncol,:, 34) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 16)*sol(:ncol,:, 25) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 16)*sol(:ncol,:, 133) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 18)*sol(:ncol,:, 25) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 18)*sol(:ncol,:, 133) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 19)*sol(:ncol,:, 133) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 20)*sol(:ncol,:, 25) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 20)*sol(:ncol,:, 133) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 24)*sol(:ncol,:, 25) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 24)*sol(:ncol,:, 133) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 46)*sol(:ncol,:, 133) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 47)*sol(:ncol,:, 133) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 48)*sol(:ncol,:, 133) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 71)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 71)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 71)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 71)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 71)*sol(:ncol,:, 48) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 17)*sol(:ncol,:, 64) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 17)*sol(:ncol,:, 70) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 17)*sol(:ncol,:, 133) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 21)*sol(:ncol,:, 101) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 21)*sol(:ncol,:, 62) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 22)*sol(:ncol,:, 133) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 23)*sol(:ncol,:, 133) ! rate_const*CH4*OH rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 31)*sol(:ncol,:, 133) ! rate_const*CO*OH - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 35)*sol(:ncol,:, 64) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 75)*sol(:ncol,:, 70) ! rate_const*OCS*O - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 75)*sol(:ncol,:, 133) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 78)*sol(:ncol,:, 72) ! rate_const*S*O2 - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 81)*sol(:ncol,:, 133) ! rate_const*M*SO2*OH - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 78)*sol(:ncol,:, 73) ! rate_const*S*O3 - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 80)*sol(:ncol,:, 5) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 80)*sol(:ncol,:, 28) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 78)*sol(:ncol,:, 133) ! rate_const*S*OH - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 80)*sol(:ncol,:, 63) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 80)*sol(:ncol,:, 72) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 80)*sol(:ncol,:, 73) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 80)*sol(:ncol,:, 74) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 80)*sol(:ncol,:, 133) ! rate_const*SO*OH - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 82)*sol(:ncol,:, 139) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 101) ! rate_const*HO2 - rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 58) ! rate_const*N2O5 - rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 63) ! rate_const*NO2 - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 64) ! rate_const*NO3 - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 58) ! rate_const*N2O5 - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 6) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 58) ! rate_const*N2O5 - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 29) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 6) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 29) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 6) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 58) ! rate_const*N2O5 - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 29) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 138) ! rate_const*Op2P - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 137) ! rate_const*Op2D + rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 71)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 31)*sol(:ncol,:, 133) ! rate_const*CO*OH + rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 35)*sol(:ncol,:, 64) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 75)*sol(:ncol,:, 70) ! rate_const*OCS*O + rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 75)*sol(:ncol,:, 133) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 78)*sol(:ncol,:, 72) ! rate_const*S*O2 + rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 81)*sol(:ncol,:, 133) ! rate_const*M*SO2*OH + rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 78)*sol(:ncol,:, 73) ! rate_const*S*O3 + rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 80)*sol(:ncol,:, 5) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 80)*sol(:ncol,:, 28) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 78)*sol(:ncol,:, 133) ! rate_const*S*OH + rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 80)*sol(:ncol,:, 63) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 80)*sol(:ncol,:, 72) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 80)*sol(:ncol,:, 73) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 80)*sol(:ncol,:, 74) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 80)*sol(:ncol,:, 133) ! rate_const*SO*OH + rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 35)*sol(:ncol,:, 133) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 82)*sol(:ncol,:, 139) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 101) ! rate_const*HO2 + rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 63) ! rate_const*NO2 + rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 64) ! rate_const*NO3 + rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 138) ! rate_const*Op2P - rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 118)*sol(:ncol,:, 98) ! rate_const*NOp*e - rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 128)*sol(:ncol,:, 98) ! rate_const*O2p*e - rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 110)*sol(:ncol,:, 98) ! rate_const*N2p*e - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 110)*sol(:ncol,:, 72) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O - rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O - rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 124)*sol(:ncol,:, 70) ! rate_const*Np*O - rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 128)*sol(:ncol,:, 56) ! rate_const*O2p*N - rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 128) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 128)*sol(:ncol,:, 62) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 136)*sol(:ncol,:, 32) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 136) ! rate_const*N2*Op - rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 136)*sol(:ncol,:, 109) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 136)*sol(:ncol,:, 72) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 137)*sol(:ncol,:, 98) ! rate_const*Op2D*e - rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 137) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 137)*sol(:ncol,:, 70) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 137)*sol(:ncol,:, 72) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 138) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 138) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 138)*sol(:ncol,:, 70) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 137) ! rate_const*Op2D + rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 138) ! rate_const*Op2P + rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 118)*sol(:ncol,:, 98) ! rate_const*NOp*e + rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 128)*sol(:ncol,:, 98) ! rate_const*O2p*e + rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 110)*sol(:ncol,:, 98) ! rate_const*N2p*e + rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 110)*sol(:ncol,:, 72) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O + rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*N2p*O + rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 124)*sol(:ncol,:, 70) ! rate_const*Np*O + rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 128)*sol(:ncol,:, 56) ! rate_const*O2p*N + rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 128) ! rate_const*N2*O2p + rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 128)*sol(:ncol,:, 62) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 136)*sol(:ncol,:, 32) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 136) ! rate_const*N2*Op + rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 136)*sol(:ncol,:, 109) ! rate_const*Op*N2D + rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 136)*sol(:ncol,:, 72) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 137)*sol(:ncol,:, 98) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 137) ! rate_const*N2*Op2D + rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 137)*sol(:ncol,:, 70) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 137)*sol(:ncol,:, 72) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 138)*sol(:ncol,:, 98) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 138) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 607) = rxt_rates(:ncol,:, 607)*sol(:ncol,:, 138) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 608) = rxt_rates(:ncol,:, 608)*sol(:ncol,:, 138)*sol(:ncol,:, 70) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_setrxt.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_setrxt.F90 index 211122efbc..f8d987cf56 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_setrxt.F90 @@ -164,62 +164,62 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,410) = 1.6e-12_r8 rate(:,416) = 1.8e-12_r8 rate(:,420) = 1.8e-12_r8 - rate(:,424) = 7e-13_r8 - rate(:,425) = 5e-12_r8 - rate(:,434) = 3.5e-12_r8 - rate(:,436) = 1.3e-11_r8 - rate(:,437) = 2.2e-11_r8 - rate(:,438) = 5e-11_r8 - rate(:,473) = 1.7e-13_r8 - rate(:,475) = 2.607e-10_r8 - rate(:,476) = 9.75e-11_r8 - rate(:,477) = 2.07e-10_r8 - rate(:,478) = 2.088e-10_r8 - rate(:,479) = 1.17e-10_r8 - rate(:,480) = 4.644e-11_r8 - rate(:,481) = 1.204e-10_r8 - rate(:,482) = 9.9e-11_r8 - rate(:,483) = 3.3e-12_r8 - rate(:,502) = 4.5e-11_r8 - rate(:,503) = 4.62e-10_r8 - rate(:,504) = 1.2e-10_r8 - rate(:,505) = 9e-11_r8 - rate(:,506) = 3e-11_r8 - rate(:,511) = 2.14e-11_r8 - rate(:,512) = 1.9e-10_r8 - rate(:,525) = 2.57e-10_r8 - rate(:,526) = 1.8e-10_r8 - rate(:,527) = 1.794e-10_r8 - rate(:,528) = 1.3e-10_r8 - rate(:,529) = 7.65e-11_r8 - rate(:,537) = 1.31e-10_r8 - rate(:,538) = 3.5e-11_r8 - rate(:,539) = 9e-12_r8 - rate(:,545) = 2.3e-12_r8 - rate(:,547) = 1.2e-11_r8 - rate(:,548) = 5.7e-11_r8 - rate(:,549) = 2.8e-11_r8 - rate(:,550) = 6.6e-11_r8 - rate(:,551) = 1.4e-11_r8 - rate(:,554) = 1.9e-12_r8 - rate(:,579) = 0.047_r8 - rate(:,580) = 7.7e-05_r8 - rate(:,581) = 0.171_r8 - rate(:,585) = 6e-11_r8 - rate(:,588) = 1e-12_r8 - rate(:,589) = 4e-10_r8 - rate(:,590) = 2e-10_r8 - rate(:,591) = 1e-10_r8 - rate(:,592) = 5e-16_r8 - rate(:,593) = 4.4e-10_r8 - rate(:,594) = 9e-10_r8 - rate(:,596) = 1.3e-10_r8 - rate(:,599) = 8e-10_r8 - rate(:,600) = 5e-12_r8 - rate(:,601) = 7e-10_r8 - rate(:,604) = 4.8e-10_r8 - rate(:,605) = 1e-10_r8 - rate(:,606) = 4e-10_r8 + rate(:,423) = 1.06e-05_r8 + rate(:,425) = 7e-11_r8 + rate(:,433) = 3.5e-12_r8 + rate(:,435) = 1.3e-11_r8 + rate(:,436) = 2.2e-11_r8 + rate(:,437) = 5e-11_r8 + rate(:,475) = 1.7e-13_r8 + rate(:,477) = 2.607e-10_r8 + rate(:,478) = 9.75e-11_r8 + rate(:,479) = 2.07e-10_r8 + rate(:,480) = 2.088e-10_r8 + rate(:,481) = 1.17e-10_r8 + rate(:,482) = 4.644e-11_r8 + rate(:,483) = 1.204e-10_r8 + rate(:,484) = 9.9e-11_r8 + rate(:,485) = 3.3e-12_r8 + rate(:,504) = 4.5e-11_r8 + rate(:,505) = 4.62e-10_r8 + rate(:,506) = 1.2e-10_r8 + rate(:,507) = 9e-11_r8 + rate(:,508) = 3e-11_r8 + rate(:,513) = 2.14e-11_r8 + rate(:,514) = 1.9e-10_r8 + rate(:,527) = 2.57e-10_r8 + rate(:,528) = 1.8e-10_r8 + rate(:,529) = 1.794e-10_r8 + rate(:,530) = 1.3e-10_r8 + rate(:,531) = 7.65e-11_r8 + rate(:,539) = 1.31e-10_r8 + rate(:,540) = 3.5e-11_r8 + rate(:,541) = 9e-12_r8 + rate(:,547) = 2.3e-12_r8 + rate(:,549) = 1.2e-11_r8 + rate(:,550) = 5.7e-11_r8 + rate(:,551) = 2.8e-11_r8 + rate(:,552) = 6.6e-11_r8 + rate(:,553) = 1.4e-11_r8 + rate(:,556) = 1.9e-12_r8 + rate(:,581) = 0.047_r8 + rate(:,582) = 7.7e-05_r8 + rate(:,583) = 0.171_r8 + rate(:,587) = 6e-11_r8 + rate(:,590) = 1e-12_r8 + rate(:,591) = 4e-10_r8 + rate(:,592) = 2e-10_r8 + rate(:,593) = 1e-10_r8 + rate(:,594) = 5e-16_r8 + rate(:,595) = 4.4e-10_r8 + rate(:,596) = 9e-10_r8 + rate(:,598) = 1.3e-10_r8 + rate(:,601) = 8e-10_r8 + rate(:,602) = 5e-12_r8 + rate(:,603) = 7e-10_r8 + rate(:,606) = 4.8e-10_r8 + rate(:,607) = 1e-10_r8 + rate(:,608) = 4e-10_r8 do n = 1,pver offset = (n-1)*ncol @@ -229,7 +229,7 @@ subroutine setrxt( rate, temp, m, ncol ) exp_fac(:) = exp( 250._r8 * itemp(:) ) rate(:,340) = 3e-12_r8 * exp_fac(:) rate(:,417) = 4.8e-11_r8 * exp_fac(:) - rate(:,498) = 1.7e-11_r8 * exp_fac(:) + rate(:,500) = 1.7e-11_r8 * exp_fac(:) rate(:,390) = 1.63e-10_r8 * exp( 60._r8 * itemp(:) ) rate(:,391) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) exp_fac(:) = exp( 55._r8 * itemp(:) ) @@ -243,140 +243,139 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,407) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) exp_fac(:) = exp( 200._r8 * itemp(:) ) rate(:,412) = 3e-11_r8 * exp_fac(:) - rate(:,500) = 5.5e-12_r8 * exp_fac(:) - rate(:,535) = 3.8e-12_r8 * exp_fac(:) + rate(:,502) = 5.5e-12_r8 * exp_fac(:) + rate(:,537) = 3.8e-12_r8 * exp_fac(:) rate(:,413) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) rate(:,414) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) rate(:,415) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) rate(:,418) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:,419) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,423) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) + rate(:,424) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) rate(:,426) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) rate(:,427) = 2.9e-12_r8 * exp_fac(:) rate(:,428) = 1.45e-12_r8 * exp_fac(:) rate(:,429) = 1.45e-12_r8 * exp_fac(:) - rate(:,430) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) - rate(:,431) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:,430) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) - rate(:,432) = 1.2e-13_r8 * exp_fac(:) - rate(:,458) = 3e-11_r8 * exp_fac(:) + rate(:,431) = 1.2e-13_r8 * exp_fac(:) + rate(:,460) = 3e-11_r8 * exp_fac(:) exp_fac(:) = exp( 125._r8 * itemp(:) ) - rate(:,435) = 1.7e-11_r8 * exp_fac(:) - rate(:,532) = 5.5e-12_r8 * exp_fac(:) + rate(:,434) = 1.7e-11_r8 * exp_fac(:) + rate(:,534) = 5.5e-12_r8 * exp_fac(:) exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,439) = 3.44e-12_r8 * exp_fac(:) - rate(:,491) = 2.3e-12_r8 * exp_fac(:) - rate(:,494) = 8.8e-12_r8 * exp_fac(:) + rate(:,438) = 3.44e-12_r8 * exp_fac(:) + rate(:,493) = 2.3e-12_r8 * exp_fac(:) + rate(:,496) = 8.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) - rate(:,440) = 3e-12_r8 * exp_fac(:) - rate(:,499) = 5.8e-12_r8 * exp_fac(:) + rate(:,439) = 3e-12_r8 * exp_fac(:) + rate(:,501) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) - rate(:,442) = 7.26e-11_r8 * exp_fac(:) - rate(:,443) = 4.64e-11_r8 * exp_fac(:) - rate(:,450) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,451) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,452) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,453) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,441) = 7.26e-11_r8 * exp_fac(:) + rate(:,442) = 4.64e-11_r8 * exp_fac(:) + rate(:,452) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,453) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,454) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,455) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,454) = 1.4e-11_r8 * exp_fac(:) - rate(:,468) = 7.4e-12_r8 * exp_fac(:) - rate(:,455) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,456) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,457) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,459) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,460) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,456) = 1.4e-11_r8 * exp_fac(:) + rate(:,470) = 7.4e-12_r8 * exp_fac(:) + rate(:,457) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,458) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,459) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,461) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,462) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,461) = 2.6e-12_r8 * exp_fac(:) - rate(:,462) = 6.4e-12_r8 * exp_fac(:) - rate(:,492) = 4.1e-13_r8 * exp_fac(:) - rate(:,463) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,463) = 2.6e-12_r8 * exp_fac(:) + rate(:,464) = 6.4e-12_r8 * exp_fac(:) + rate(:,494) = 4.1e-13_r8 * exp_fac(:) + rate(:,465) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,465) = 3.6e-12_r8 * exp_fac(:) - rate(:,514) = 2e-12_r8 * exp_fac(:) - rate(:,466) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,467) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,467) = 3.6e-12_r8 * exp_fac(:) + rate(:,516) = 2e-12_r8 * exp_fac(:) + rate(:,468) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,469) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,469) = 6e-13_r8 * exp_fac(:) - rate(:,489) = 1.5e-12_r8 * exp_fac(:) - rate(:,497) = 1.9e-11_r8 * exp_fac(:) - rate(:,470) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,471) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,472) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,471) = 6e-13_r8 * exp_fac(:) + rate(:,491) = 1.5e-12_r8 * exp_fac(:) + rate(:,499) = 1.9e-11_r8 * exp_fac(:) + rate(:,472) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,473) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,474) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,474) = 3e-12_r8 * exp_fac(:) - rate(:,508) = 1.4e-10_r8 * exp_fac(:) + rate(:,476) = 3e-12_r8 * exp_fac(:) + rate(:,510) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,486) = 1.7e-11_r8 * exp_fac(:) - rate(:,513) = 6.3e-12_r8 * exp_fac(:) - rate(:,487) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,488) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,490) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - rate(:,493) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,496) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,501) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,507) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,488) = 1.7e-11_r8 * exp_fac(:) + rate(:,515) = 6.3e-12_r8 * exp_fac(:) + rate(:,489) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,490) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,492) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,495) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,498) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,503) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,509) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,509) = 1.4e-11_r8 * exp_fac(:) - rate(:,511) = 2.14e-11_r8 * exp_fac(:) - rate(:,512) = 1.9e-10_r8 * exp_fac(:) - rate(:,525) = 2.57e-10_r8 * exp_fac(:) - rate(:,526) = 1.8e-10_r8 * exp_fac(:) - rate(:,527) = 1.794e-10_r8 * exp_fac(:) - rate(:,528) = 1.3e-10_r8 * exp_fac(:) - rate(:,529) = 7.65e-11_r8 * exp_fac(:) - rate(:,537) = 1.31e-10_r8 * exp_fac(:) - rate(:,538) = 3.5e-11_r8 * exp_fac(:) - rate(:,539) = 9e-12_r8 * exp_fac(:) - rate(:,545) = 2.3e-12_r8 * exp_fac(:) - rate(:,547) = 1.2e-11_r8 * exp_fac(:) - rate(:,548) = 5.7e-11_r8 * exp_fac(:) - rate(:,549) = 2.8e-11_r8 * exp_fac(:) - rate(:,550) = 6.6e-11_r8 * exp_fac(:) - rate(:,551) = 1.4e-11_r8 * exp_fac(:) - rate(:,554) = 1.9e-12_r8 * exp_fac(:) - rate(:,579) = 0.047_r8 * exp_fac(:) - rate(:,580) = 7.7e-05_r8 * exp_fac(:) - rate(:,581) = 0.171_r8 * exp_fac(:) - rate(:,585) = 6e-11_r8 * exp_fac(:) - rate(:,588) = 1e-12_r8 * exp_fac(:) - rate(:,589) = 4e-10_r8 * exp_fac(:) - rate(:,590) = 2e-10_r8 * exp_fac(:) - rate(:,591) = 1e-10_r8 * exp_fac(:) - rate(:,592) = 5e-16_r8 * exp_fac(:) - rate(:,593) = 4.4e-10_r8 * exp_fac(:) - rate(:,594) = 9e-10_r8 * exp_fac(:) - rate(:,596) = 1.3e-10_r8 * exp_fac(:) - rate(:,599) = 8e-10_r8 * exp_fac(:) - rate(:,600) = 5e-12_r8 * exp_fac(:) - rate(:,601) = 7e-10_r8 * exp_fac(:) - rate(:,604) = 4.8e-10_r8 * exp_fac(:) - rate(:,605) = 1e-10_r8 * exp_fac(:) - rate(:,606) = 4e-10_r8 * exp_fac(:) - rate(:,510) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) - rate(:,515) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,516) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) - rate(:,517) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) - rate(:,518) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) - rate(:,519) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,520) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,521) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,511) = 1.4e-11_r8 * exp_fac(:) + rate(:,513) = 2.14e-11_r8 * exp_fac(:) + rate(:,514) = 1.9e-10_r8 * exp_fac(:) + rate(:,527) = 2.57e-10_r8 * exp_fac(:) + rate(:,528) = 1.8e-10_r8 * exp_fac(:) + rate(:,529) = 1.794e-10_r8 * exp_fac(:) + rate(:,530) = 1.3e-10_r8 * exp_fac(:) + rate(:,531) = 7.65e-11_r8 * exp_fac(:) + rate(:,539) = 1.31e-10_r8 * exp_fac(:) + rate(:,540) = 3.5e-11_r8 * exp_fac(:) + rate(:,541) = 9e-12_r8 * exp_fac(:) + rate(:,547) = 2.3e-12_r8 * exp_fac(:) + rate(:,549) = 1.2e-11_r8 * exp_fac(:) + rate(:,550) = 5.7e-11_r8 * exp_fac(:) + rate(:,551) = 2.8e-11_r8 * exp_fac(:) + rate(:,552) = 6.6e-11_r8 * exp_fac(:) + rate(:,553) = 1.4e-11_r8 * exp_fac(:) + rate(:,556) = 1.9e-12_r8 * exp_fac(:) + rate(:,581) = 0.047_r8 * exp_fac(:) + rate(:,582) = 7.7e-05_r8 * exp_fac(:) + rate(:,583) = 0.171_r8 * exp_fac(:) + rate(:,587) = 6e-11_r8 * exp_fac(:) + rate(:,590) = 1e-12_r8 * exp_fac(:) + rate(:,591) = 4e-10_r8 * exp_fac(:) + rate(:,592) = 2e-10_r8 * exp_fac(:) + rate(:,593) = 1e-10_r8 * exp_fac(:) + rate(:,594) = 5e-16_r8 * exp_fac(:) + rate(:,595) = 4.4e-10_r8 * exp_fac(:) + rate(:,596) = 9e-10_r8 * exp_fac(:) + rate(:,598) = 1.3e-10_r8 * exp_fac(:) + rate(:,601) = 8e-10_r8 * exp_fac(:) + rate(:,602) = 5e-12_r8 * exp_fac(:) + rate(:,603) = 7e-10_r8 * exp_fac(:) + rate(:,606) = 4.8e-10_r8 * exp_fac(:) + rate(:,607) = 1e-10_r8 * exp_fac(:) + rate(:,608) = 4e-10_r8 * exp_fac(:) + rate(:,512) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) + rate(:,517) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,518) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,519) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) + rate(:,520) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) + rate(:,521) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) + rate(:,522) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) + rate(:,523) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,522) = 1.25e-12_r8 * exp_fac(:) - rate(:,531) = 3.4e-11_r8 * exp_fac(:) - rate(:,523) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,524) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,530) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,533) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) - rate(:,534) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) - rate(:,536) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - rate(:,541) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,542) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) - rate(:,543) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,544) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,552) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,553) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) - rate(:,555) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) + rate(:,524) = 1.25e-12_r8 * exp_fac(:) + rate(:,533) = 3.4e-11_r8 * exp_fac(:) + rate(:,525) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,526) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,532) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,535) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,536) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) + rate(:,538) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,543) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,544) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) + rate(:,545) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,546) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,554) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,555) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) + rate(:,557) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) @@ -396,39 +395,39 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 2.5e-31_r8 * itemp(:)**1.8_r8 kinf(:) = 2.2e-11_r8 * itemp(:)**0.7_r8 - call jpl( rate(:,433), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,432), m, 0.6_r8, ko, kinf, n ) ko(:) = 9e-32_r8 * itemp(:)**1.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,441), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,440), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 4e-12_r8 * itemp(:)**0.3_r8 - call jpl( rate(:,444), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,443), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.4e-30_r8 * itemp(:)**3._r8 kinf(:) = 1.6e-12_r8 * itemp(:)**(-0.1_r8) - call jpl( rate(:,445), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,444), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 kinf(:) = 2.8e-11_r8 - call jpl( rate(:,446), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,445), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,464), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,466), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-32_r8 * itemp(:)**3.6_r8 kinf(:) = 3.7e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,484), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,486), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.2e-31_r8 * itemp(:)**3.2_r8 kinf(:) = 6.9e-12_r8 * itemp(:)**2.9_r8 - call jpl( rate(:,495), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,497), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.9e-31_r8 * itemp(:)**4.1_r8 kinf(:) = 1.7e-12_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,546), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,548), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -471,24 +470,23 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,400) = 8e-14_r8 rate(:n,401) = 3.9e-17_r8 rate(:n,408) = 6.9e-12_r8 - rate(:n,424) = 7e-13_r8 - rate(:n,425) = 5e-12_r8 - rate(:n,579) = 0.047_r8 - rate(:n,580) = 7.7e-05_r8 - rate(:n,581) = 0.171_r8 - rate(:n,585) = 6e-11_r8 - rate(:n,588) = 1e-12_r8 - rate(:n,589) = 4e-10_r8 - rate(:n,590) = 2e-10_r8 - rate(:n,591) = 1e-10_r8 - rate(:n,593) = 4.4e-10_r8 - rate(:n,596) = 1.3e-10_r8 - rate(:n,599) = 8e-10_r8 - rate(:n,600) = 5e-12_r8 - rate(:n,601) = 7e-10_r8 - rate(:n,604) = 4.8e-10_r8 - rate(:n,605) = 1e-10_r8 - rate(:n,606) = 4e-10_r8 + rate(:n,425) = 7e-11_r8 + rate(:n,581) = 0.047_r8 + rate(:n,582) = 7.7e-05_r8 + rate(:n,583) = 0.171_r8 + rate(:n,587) = 6e-11_r8 + rate(:n,590) = 1e-12_r8 + rate(:n,591) = 4e-10_r8 + rate(:n,592) = 2e-10_r8 + rate(:n,593) = 1e-10_r8 + rate(:n,595) = 4.4e-10_r8 + rate(:n,598) = 1.3e-10_r8 + rate(:n,601) = 8e-10_r8 + rate(:n,602) = 5e-12_r8 + rate(:n,603) = 7e-10_r8 + rate(:n,606) = 4.8e-10_r8 + rate(:n,607) = 1e-10_r8 + rate(:n,608) = 4e-10_r8 do k = 1,kbot offset = (k-1)*ncol @@ -510,10 +508,9 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,418) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:n,419) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) rate(:n,426) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,430) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) - rate(:n,431) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,439) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) - rate(:n,440) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) + rate(:n,430) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:n,438) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) + rate(:n,439) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) diff --git a/src/chemistry/pp_waccm_mad_mam5/mo_sim_dat.F90 b/src/chemistry/pp_waccm_mad_mam5/mo_sim_dat.F90 index 1602f0bced..7fe9c30421 100644 --- a/src/chemistry/pp_waccm_mad_mam5/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_mad_mam5/mo_sim_dat.F90 @@ -33,7 +33,7 @@ subroutine set_sim_dat clscnt(:) = (/ 0, 0, 0, 139, 0 /) - cls_rxt_cnt(:,4) = (/ 8, 142, 456, 139 /) + cls_rxt_cnt(:,4) = (/ 8, 143, 457, 139 /) solsym(:139) = (/ 'bc_a1 ','bc_a4 ','BR ','BRCL ','BRO ', & 'BRONO2 ','BRY ','CCL4 ','CF2CLBR ','CF3BR ', & @@ -142,17 +142,17 @@ subroutine set_sim_dat permute(:139,4) = (/ 1, 2, 99, 43, 106, 63, 3, 27, 34, 35, & 29, 36, 30, 37, 31, 60, 107, 65, 32, 54, & 89, 55, 88, 56, 125, 38, 26, 117, 83, 4, & - 69, 121, 39, 41, 50, 5, 6, 7, 81, 132, & - 103, 28, 64, 33, 79, 40, 42, 48, 138, 49, & - 126, 59, 77, 80, 73, 90, 44, 87, 8, 9, & + 69, 130, 39, 41, 50, 5, 6, 7, 80, 132, & + 103, 28, 64, 33, 78, 40, 42, 48, 138, 49, & + 126, 59, 76, 79, 73, 90, 44, 86, 8, 9, & 10, 137, 133, 131, 11, 12, 13, 14, 15, 123, & - 108, 124, 136, 52, 53, 16, 17, 72, 18, 92, & + 108, 136, 120, 52, 53, 16, 17, 72, 18, 92, & 82, 45, 19, 20, 21, 22, 23, 24, 25, 109, & 96, 95, 84, 115, 94, 104, 110, 116, 57, 93, & - 112, 68, 120, 46, 130, 47, 129, 74, 76, 66, & + 112, 68, 129, 46, 121, 47, 124, 74, 81, 66, & 113, 97, 111, 102, 105, 98, 101, 118, 119, 58, & - 71, 122, 70, 78, 85, 51, 127, 128, 75, 100, & - 67, 91, 114, 134, 135, 86, 62, 61, 139 /) + 71, 122, 70, 77, 85, 51, 127, 128, 75, 100, & + 67, 91, 114, 134, 135, 87, 62, 61, 139 /) diag_map(:139) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & @@ -161,25 +161,25 @@ subroutine set_sim_dat 85, 90, 95, 98, 103, 107, 111, 116, 122, 125, & 131, 134, 139, 147, 155, 161, 167, 173, 179, 186, & 193, 200, 206, 214, 221, 230, 239, 246, 252, 256, & - 264, 271, 278, 284, 292, 300, 309, 317, 324, 333, & - 341, 351, 359, 369, 377, 388, 401, 416, 432, 446, & - 461, 476, 490, 504, 519, 535, 550, 564, 582, 594, & - 609, 625, 647, 669, 691, 715, 738, 787, 811, 833, & - 866, 900, 926, 984,1014,1058,1104,1153,1197,1241, & - 1284,1327,1388,1438,1487,1529,1566,1612,1656,1700, & - 1741,1778,1827,1861,1898,1940,1983,2029,2090 /) + 264, 271, 278, 284, 292, 301, 309, 316, 325, 333, & + 343, 353, 361, 371, 379, 389, 404, 418, 434, 448, & + 463, 478, 492, 506, 521, 537, 552, 566, 584, 596, & + 611, 627, 649, 671, 693, 717, 740, 789, 813, 835, & + 868, 902, 928, 986,1016,1060,1106,1154,1198,1240, & + 1284,1327,1388,1432,1481,1523,1560,1606,1650,1693, & + 1734,1771,1820,1854,1891,1941,1986,2032,2093 /) - extfrc_lst(: 25) = (/ 'so4_a2 ','DMS ','NO2 ','SO2 ','bc_a1 ', & - 'bc_a4 ','num_a1 ','num_a2 ','num_a4 ','num_a5 ', & - 'pom_a1 ','pom_a4 ','so4_a1 ','so4_a5 ','CO ', & - 'NO ','N ','N2D ','N2p ','OH ', & - 'Op ','e ','Np ','O ','O2p ' /) + extfrc_lst(: 23) = (/ 'CO ','bc_a4 ','SO2 ','NO2 ','bc_a1 ', & + 'NO ','pom_a1 ','DMS ','num_a1 ','num_a2 ', & + 'so4_a1 ','so4_a2 ','num_a4 ','pom_a4 ','O2p ', & + 'N2p ','Np ','N2D ','e ','N ', & + 'O ','OH ','Op ' /) - frc_from_dataset(: 25) = (/ .true., .true., .true., .true., .true., & + frc_from_dataset(: 23) = (/ .true., .true., .true., .true., .true., & .true., .true., .true., .true., .true., & - .true., .true., .true., .true., .true., & - .true., .false., .false., .false., .false., & - .false., .false., .false., .false., .false. /) + .true., .true., .true., .true., .false., & + .false., .false., .false., .false., .false., & + .false., .false., .false. /) inv_lst(: 2) = (/ 'M ', 'N2 ' /) @@ -421,20 +421,21 @@ subroutine set_sim_dat 'OH_HO2 ', 'OH_O ', & 'OH_O3 ', 'OH_OH ', & 'OH_OH_M ', 'usr_HO2_HO2 ', & - 'HO2NO2_OH ', 'N2D_O ', & - 'N2D_O2 ', 'N_NO ', & + 'agn2d ', 'HO2NO2_OH ', & + 'N2D_NO ', 'N_NO ', & 'N_NO2a ', 'N_NO2b ', & - 'N_NO2c ', 'N_O2 ', & - 'NO2_O ', 'NO2_O3 ', & - 'NO2_O_M ', 'NO3_HO2 ', & - 'NO3_NO ', 'NO3_O ', & - 'NO3_OH ', 'N_OH ', & - 'NO_HO2 ', 'NO_O3 ', & - 'NO_O_M ', 'O1D_N2Oa ', & - 'O1D_N2Ob ', 'tag_NO2_HO2 ', & - 'tag_NO2_NO3 ', 'tag_NO2_OH ', & - 'usr_HNO3_OH ', 'usr_HO2NO2_M ', & - 'usr_N2O5_M ', 'CL_CH2O ', & + 'N_NO2c ', 'NO2_O ', & + 'NO2_O3 ', 'NO2_O_M ', & + 'NO3_HO2 ', 'NO3_NO ', & + 'NO3_O ', 'NO3_OH ', & + 'N_OH ', 'NO_HO2 ', & + 'NO_O3 ', 'NO_O_M ', & + 'O1D_N2Oa ', 'O1D_N2Ob ', & + 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & + 'tag_NO2_OH ', 'usr_HNO3_OH ', & + 'usr_HO2NO2_M ', 'usr_N2D_e ', & + 'usr_N2D_O2 ', 'usr_N2O5_M ', & + 'usr_N_O2 ', 'CL_CH2O ', & 'CL_CH4 ', 'CL_H2 ', & 'CL_H2O2 ', 'CL_HO2a ', & 'CL_HO2b ', 'CL_O3 ', & @@ -508,9 +509,9 @@ subroutine set_sim_dat 'ion_O2p_N ', 'ion_O2p_N2 ', & 'ion_O2p_NO ', 'ion_Op_CO2 ', & 'ion_Op_N2 ', 'ion_Op_N2D ', & - 'ion_Op_O2 ', 'Op2D_e ', & - 'Op2D_N2 ', 'Op2D_O ' /) - rxt_tag_lst( 601: 606) = (/ 'Op2D_O2 ', 'Op2P_ea ', & + 'ion_Op_O2 ', 'Op2D_e ' /) + rxt_tag_lst( 601: 608) = (/ 'Op2D_N2 ', 'Op2D_O ', & + 'Op2D_O2 ', 'Op2P_ea ', & 'Op2P_eb ', 'Op2P_N2a ', & 'Op2P_N2b ', 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & @@ -573,7 +574,7 @@ subroutine set_sim_dat 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, & 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, & 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, & - 601, 602, 603, 604, 605, 606 /) + 601, 602, 603, 604, 605, 606, 607, 608 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -698,24 +699,24 @@ subroutine set_sim_dat 397, 399, 400, 401, 402, & 403, 404, 405, 408, 411, & 412, 413, 414, 417, 418, & - 419, 422, 424, 425, 426, & - 430, 431, 439, 440, 579, & - 580, 581, 582, 583, 584, & - 585, 586, 588, 589, 590, & - 591, 593, 595, 596, 597, & - 598, 599, 600, 601, 602, & - 603, 604, 605, 606 /) + 419, 422, 425, 426, 430, & + 438, 439, 448, 449, 451, & + 581, 582, 583, 584, 585, & + 586, 587, 588, 590, 591, & + 592, 593, 595, 597, 598, & + 599, 600, 601, 602, 603, & + 604, 605, 606, 607, 608 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & - 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & - 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & - 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & - 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & - 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & - 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) + 165.300000_r8, 165.510000_r8, 543.130000_r8, 313.750000_r8, 193.020000_r8, & + 34.470000_r8, 199.170000_r8, 229.610000_r8, 177.510000_r8, 133.750000_r8, & + 483.390000_r8, 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, & + 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, & + 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, & + 150.110000_r8, 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, & + 163.060000_r8, 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -752,26 +753,26 @@ subroutine set_sim_dat 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, & - 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & + 2, 2, 2, 2, 2, 2, 3, 2, 1, 2, & + 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & + 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 1, 1, 1, 1, 1, 2, 1, & - 1, 1, 1, 2, 2, 2, 1, 1, 2, 2, & - 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, & + 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, & + 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, & + 2, 2, 2, 1, 1, 2, 1, 1, 1, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2 /) + 2, 2, 2, 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.doc b/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.doc index d7023e909e..e52bae21db 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.doc +++ b/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.doc @@ -359,7 +359,7 @@ Class List jglyald ( 33) GLYALD + hv -> 2*HO2 + CO + CH2O rate = ** User defined ** ( 33) jglyoxal ( 34) GLYOXAL + hv -> 2*CO + 2*HO2 rate = ** User defined ** ( 34) jhyac ( 35) HYAC + hv -> CH3CO3 + HO2 + CH2O rate = ** User defined ** ( 35) - jisopooh ( 36) ISOPOOH + hv -> 0.402*MVK + 0.288*MACR + 0.69*CH2O + HO2 rate = ** User defined ** ( 36) + jisopooh ( 36) ISOPOOH + hv -> 0.7*MVK + 0.3*MACR + OH + CH2O + HO2 rate = ** User defined ** ( 36) jmacr_a ( 37) MACR + hv -> 1.34*HO2 + 0.66*MCO3 + 1.34*CH2O + 1.34*CH3CO3 rate = ** User defined ** ( 37) jmacr_b ( 38) MACR + hv -> 0.66*HO2 + 1.34*CO rate = ** User defined ** ( 38) jmpan ( 39) MPAN + hv -> MCO3 + NO2 rate = ** User defined ** ( 39) @@ -481,14 +481,14 @@ Class List ki=2.60E-11 f=0.60 usr_HO2_HO2 ( 37) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (151) - HO2NO2_OH ( 38) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (152) - N2D_O ( 39) N2D + O -> N + O rate = 7.00E-13 (153) - N2D_O2 ( 40) N2D + O2 -> NO + O1D rate = 5.00E-12 (154) - N_NO ( 41) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (155) - N_NO2a ( 42) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (156) - N_NO2b ( 43) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (157) - N_NO2c ( 44) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (158) - N_O2 ( 45) N + O2 -> NO + O rate = 3.30E-12*exp( -3150./t) (159) + agn2d ( 38) N2D -> N rate = 1.06E-05 (152) + HO2NO2_OH ( 39) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (153) + N2D_NO ( 40) N2D + NO -> N2 + O rate = 7.00E-11 (154) + N2D_O ( 41) N2D + O -> N + O rate = 7.00E-13 (155) + N_NO ( 42) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (156) + N_NO2a ( 43) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (157) + N_NO2b ( 44) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (158) + N_NO2c ( 45) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (159) NO2_O ( 46) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (160) NO2_O3 ( 47) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (161) NO2_O_M ( 48) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (162) @@ -517,328 +517,331 @@ Class List f=0.60 usr_HNO3_OH ( 62) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (176) usr_HO2NO2_M ( 63) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (177) - usr_N2O5_M ( 64) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (178) - CL_CH2O ( 65) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (179) - CL_CH4 ( 66) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (180) - CL_H2 ( 67) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (181) - CL_H2O2 ( 68) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (182) - CL_HO2a ( 69) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (183) - CL_HO2b ( 70) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (184) - CL_O3 ( 71) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (185) - CLO_CH3O2 ( 72) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (186) - CLO_CLOa ( 73) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (187) - CLO_CLOb ( 74) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (188) - CLO_CLOc ( 75) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (189) - CLO_HO2 ( 76) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (190) - CLO_NO ( 77) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (191) - CLONO2_CL ( 78) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (192) - CLO_NO2_M ( 79) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (193) + usr_N2D_e ( 64) N2D + e -> N + e rate = ** User defined ** (178) + usr_N2D_O2 ( 65) N2D + O2 -> NO + O1D rate = ** User defined ** (179) + usr_N2O5_M ( 66) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (180) + usr_N_O2 ( 67) N + O2 -> NO + O rate = ** User defined ** (181) + CL_CH2O ( 68) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (182) + CL_CH4 ( 69) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (183) + CL_H2 ( 70) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (184) + CL_H2O2 ( 71) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (185) + CL_HO2a ( 72) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (186) + CL_HO2b ( 73) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (187) + CL_O3 ( 74) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (188) + CLO_CH3O2 ( 75) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (189) + CLO_CLOa ( 76) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (190) + CLO_CLOb ( 77) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (191) + CLO_CLOc ( 78) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (192) + CLO_HO2 ( 79) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (193) + CLO_NO ( 80) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (194) + CLONO2_CL ( 81) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (195) + CLO_NO2_M ( 82) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (196) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O ( 80) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (194) - CLONO2_OH ( 81) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (195) - CLO_O ( 82) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (196) - CLO_OHa ( 83) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (197) - CLO_OHb ( 84) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (198) - HCL_O ( 85) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (199) - HCL_OH ( 86) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (200) - HOCL_CL ( 87) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (201) - HOCL_O ( 88) HOCL + O -> CLO + OH rate = 1.70E-13 (202) - HOCL_OH ( 89) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (203) - O1D_CCL4 ( 90) O1D + CCL4 -> 4*CL rate = 2.61E-10 (204) - O1D_CF2CLBR ( 91) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (205) - O1D_CFC11 ( 92) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (206) - O1D_CFC113 ( 93) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (207) - O1D_CFC114 ( 94) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (208) - O1D_CFC115 ( 95) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (209) - O1D_CFC12 ( 96) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (210) - O1D_HCLa ( 97) O1D + HCL -> CL + OH rate = 9.90E-11 (211) - O1D_HCLb ( 98) O1D + HCL -> CLO + H rate = 3.30E-12 (212) - tag_CLO_CLO_M ( 99) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (213) + CLONO2_O ( 83) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (197) + CLONO2_OH ( 84) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (198) + CLO_O ( 85) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (199) + CLO_OHa ( 86) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (200) + CLO_OHb ( 87) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (201) + HCL_O ( 88) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (202) + HCL_OH ( 89) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (203) + HOCL_CL ( 90) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (204) + HOCL_O ( 91) HOCL + O -> CLO + OH rate = 1.70E-13 (205) + HOCL_OH ( 92) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (206) + O1D_CCL4 ( 93) O1D + CCL4 -> 4*CL rate = 2.61E-10 (207) + O1D_CF2CLBR ( 94) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (208) + O1D_CFC11 ( 95) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (209) + O1D_CFC113 ( 96) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (210) + O1D_CFC114 ( 97) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (211) + O1D_CFC115 ( 98) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (212) + O1D_CFC12 ( 99) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (213) + O1D_HCLa (100) O1D + HCL -> CL + OH rate = 9.90E-11 (214) + O1D_HCLb (101) O1D + HCL -> CLO + H rate = 3.30E-12 (215) + tag_CLO_CLO_M (102) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (216) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M (100) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (214) - BR_CH2O (101) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (215) - BR_HO2 (102) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (216) - BR_O3 (103) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (217) - BRO_BRO (104) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (218) - BRO_CLOa (105) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (219) - BRO_CLOb (106) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (220) - BRO_CLOc (107) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (221) - BRO_HO2 (108) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (222) - BRO_NO (109) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (223) - BRO_NO2_M (110) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (224) + usr_CL2O2_M (103) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (217) + BR_CH2O (104) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (218) + BR_HO2 (105) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (219) + BR_O3 (106) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (220) + BRO_BRO (107) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (221) + BRO_CLOa (108) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (222) + BRO_CLOb (109) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (223) + BRO_CLOc (110) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (224) + BRO_HO2 (111) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (225) + BRO_NO (112) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (226) + BRO_NO2_M (113) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (227) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (111) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (225) - BRO_O (112) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (226) - BRO_OH (113) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (227) - HBR_O (114) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (228) - HBR_OH (115) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (229) - HOBR_O (116) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (230) - O1D_CF3BR (117) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (231) - O1D_CHBR3 (118) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (232) - O1D_H2402 (119) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (233) - O1D_HBRa (120) O1D + HBR -> BR + OH rate = 9.00E-11 (234) - O1D_HBRb (121) O1D + HBR -> BRO + H rate = 3.00E-11 (235) - F_CH4 (122) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (236) - F_H2 (123) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (237) - F_H2O (124) F + H2O -> HF + OH rate = 1.40E-11 (238) - F_HNO3 (125) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (239) - O1D_COF2 (126) O1D + COF2 -> 2*F rate = 2.14E-11 (240) - O1D_COFCL (127) O1D + COFCL -> F + CL rate = 1.90E-10 (241) - CH2BR2_CL (128) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (242) - CH2BR2_OH (129) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (243) - CH3BR_CL (130) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (244) - CH3BR_OH (131) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (245) - CH3CCL3_OH (132) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (246) - CH3CL_CL (133) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (247) - CH3CL_OH (134) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (248) - CHBR3_CL (135) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (249) - CHBR3_OH (136) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (250) - HCFC141B_OH (137) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (251) - HCFC142B_OH (138) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (252) - HCFC22_OH (139) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (253) - O1D_CH2BR2 (140) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (254) - O1D_CH3BR (141) O1D + CH3BR -> BR rate = 1.80E-10 (255) - O1D_HCFC141B (142) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (256) - O1D_HCFC142B (143) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (257) - O1D_HCFC22 (144) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (258) - CH2O_NO3 (145) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (259) - CH2O_O (146) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (260) - CH2O_OH (147) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (261) - CH3O2_CH3O2a (148) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (262) - CH3O2_CH3O2b (149) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (263) - CH3O2_HO2 (150) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (264) - CH3O2_NO (151) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (265) - CH3OH_OH (152) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (266) - CH3OOH_OH (153) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (267) - CH4_OH (154) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (268) - O1D_CH4a (155) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (269) - O1D_CH4b (156) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (270) - O1D_CH4c (157) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (271) - usr_CO_OH (158) CO + OH -> CO2 + HO2 rate = ** User defined ** (272) - C2H4_CL_M (159) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (273) + BRONO2_O (114) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (228) + BRO_O (115) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (229) + BRO_OH (116) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (230) + HBR_O (117) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (231) + HBR_OH (118) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (232) + HOBR_O (119) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (233) + O1D_CF3BR (120) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (234) + O1D_CHBR3 (121) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (235) + O1D_H2402 (122) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (236) + O1D_HBRa (123) O1D + HBR -> BR + OH rate = 9.00E-11 (237) + O1D_HBRb (124) O1D + HBR -> BRO + H rate = 3.00E-11 (238) + F_CH4 (125) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (239) + F_H2 (126) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (240) + F_H2O (127) F + H2O -> HF + OH rate = 1.40E-11 (241) + F_HNO3 (128) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (242) + O1D_COF2 (129) O1D + COF2 -> 2*F rate = 2.14E-11 (243) + O1D_COFCL (130) O1D + COFCL -> F + CL rate = 1.90E-10 (244) + CH2BR2_CL (131) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (245) + CH2BR2_OH (132) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (246) + CH3BR_CL (133) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (247) + CH3BR_OH (134) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (248) + CH3CCL3_OH (135) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (249) + CH3CL_CL (136) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1110./t) (250) + CH3CL_OH (137) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (251) + CHBR3_CL (138) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (252) + CHBR3_OH (139) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (253) + HCFC141B_OH (140) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (254) + HCFC142B_OH (141) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (255) + HCFC22_OH (142) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (256) + O1D_CH2BR2 (143) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (257) + O1D_CH3BR (144) O1D + CH3BR -> BR rate = 1.80E-10 (258) + O1D_HCFC141B (145) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (259) + O1D_HCFC142B (146) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (260) + O1D_HCFC22 (147) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (261) + CH2O_NO3 (148) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (262) + CH2O_O (149) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (263) + CH2O_OH (150) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (264) + CH3O2_CH3O2a (151) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (265) + CH3O2_CH3O2b (152) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (266) + CH3O2_HO2 (153) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (267) + CH3O2_NO (154) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (268) + CH3OH_OH (155) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (269) + CH3OOH_OH (156) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (270) + CH4_OH (157) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (271) + O1D_CH4a (158) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (272) + O1D_CH4b (159) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (273) + O1D_CH4c (160) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (274) + usr_CO_OH (161) CO + OH -> CO2 + HO2 rate = ** User defined ** (275) + C2H4_CL_M (162) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (276) ki=3.10E-10*(300/t) f=0.60 - C2H4_O3 (160) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*{HCOOH} + CH2O rate = 1.20E-14*exp( -2630./t) (274) - C2H5O2_C2H5O2 (161) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (275) - C2H5O2_CH3O2 (162) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (276) + C2H4_O3 (163) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*{HCOOH} + CH2O rate = 1.20E-14*exp( -2630./t) (277) + C2H5O2_C2H5O2 (164) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (278) + C2H5O2_CH3O2 (165) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (279) + 0.2*C2H5OH - C2H5O2_HO2 (163) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (277) - C2H5O2_NO (164) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (278) - C2H5OH_OH (165) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (279) - C2H5OOH_OH (166) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (280) - C2H6_CL (167) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (281) - C2H6_OH (168) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (282) - CH3CHO_NO3 (169) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (283) - CH3CHO_OH (170) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (284) - CH3CO3_CH3CO3 (171) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (285) - CH3CO3_CH3O2 (172) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (286) + C2H5O2_HO2 (166) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (280) + C2H5O2_NO (167) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (281) + C2H5OH_OH (168) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (282) + C2H5OOH_OH (169) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (283) + C2H6_CL (170) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (284) + C2H6_OH (171) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (285) + CH3CHO_NO3 (172) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (286) + CH3CHO_OH (173) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (287) + CH3CO3_CH3CO3 (174) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (288) + CH3CO3_CH3O2 (175) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (289) + 0.1*CH3COOH - CH3CO3_HO2 (173) CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH rate = 4.30E-13*exp( 1040./t) (287) + CH3CO3_HO2 (176) CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH rate = 4.30E-13*exp( 1040./t) (290) + 0.45*CH3O2 - CH3CO3_NO (174) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (288) - CH3COOH_OH (175) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (289) - CH3COOOH_OH (176) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (290) - EO2_HO2 (177) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (291) - EO2_NO (178) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (292) - EO_M (179) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (293) - EO_O2 (180) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (294) - GLYALD_OH (181) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (295) - GLYOXAL_OH (182) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (296) - PAN_OH (183) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (297) - tag_C2H4_OH (184) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (298) + CH3CO3_NO (177) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (291) + CH3COOH_OH (178) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (292) + CH3COOOH_OH (179) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (293) + EO2_HO2 (180) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (294) + EO2_NO (181) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (295) + EO_M (182) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (296) + EO_O2 (183) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (297) + GLYALD_OH (184) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (298) + GLYOXAL_OH (185) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (299) + PAN_OH (186) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (300) + tag_C2H4_OH (187) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (301) ki=9.00E-12*(300/t)**0.85 f=0.48 - tag_CH3CO3_NO2 (185) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (299) + tag_CH3CO3_NO2 (188) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (302) ki=9.50E-12*(300/t)**1.60 f=0.60 - usr_PAN_M (186) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (300) - C3H6_NO3 (187) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (301) - C3H6_O3 (188) C3H6 + O3 -> 0.5*CH2O + 0.12*{HCOOH} + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (302) + usr_PAN_M (189) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (303) + C3H6_NO3 (190) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (304) + C3H6_O3 (191) C3H6 + O3 -> 0.5*CH2O + 0.12*{HCOOH} + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (305) + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH - C3H7O2_CH3O2 (189) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 3.75E-13*exp( -40./t) (303) - C3H7O2_HO2 (190) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 7.50E-13*exp( 700./t) (304) - C3H7O2_NO (191) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 4.20E-12*exp( 180./t) (305) - C3H7OOH_OH (192) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (306) - C3H8_OH (193) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (307) - CH3COCHO_NO3 (194) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (308) - CH3COCHO_OH (195) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (309) - HYAC_OH (196) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (310) - NOA_OH (197) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (311) - PO2_HO2 (198) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (312) - PO2_NO (199) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (313) - POOH_OH (200) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (314) - RO2_CH3O2 (201) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (315) + C3H7O2_CH3O2 (192) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 3.75E-13*exp( -40./t) (306) + C3H7O2_HO2 (193) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 7.50E-13*exp( 700./t) (307) + C3H7O2_NO (194) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 2.70E-12*exp( 360./t) (308) + C3H7OOH_OH (195) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (309) + C3H8_OH (196) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (310) + CH3COCHO_NO3 (197) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (311) + CH3COCHO_OH (198) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (312) + HYAC_OH (199) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (313) + NOA_OH (200) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (314) + PO2_HO2 (201) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (315) + PO2_NO (202) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (316) + POOH_OH (203) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (317) + RO2_CH3O2 (204) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (318) + 0.5*CH3COCHO + 0.5*CH3OH - RO2_HO2 (202) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (316) - RO2_NO (203) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (317) - ROOH_OH (204) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (318) - tag_C3H6_OH (205) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (319) + RO2_HO2 (205) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (319) + RO2_NO (206) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (320) + ROOH_OH (207) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (321) + tag_C3H6_OH (208) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (322) ki=3.00E-11 f=0.50 - usr_CH3COCH3_OH (206) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (320) - MACRO2_CH3CO3 (207) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (321) + usr_CH3COCH3_OH (209) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (323) + MACRO2_CH3CO3 (210) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (324) + 0.53*GLYALD + 0.22*HYAC + 0.25*CH2O + 0.53*CH3CO3 - MACRO2_CH3O2 (208) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (322) + MACRO2_CH3O2 (211) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (325) + 0.26*GLYALD + 0.26*CH3CO3 + 0.25*CH3OH + 0.23*HYAC - MACRO2_HO2 (209) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (323) - MACRO2_NO3 (210) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (324) + MACRO2_HO2 (212) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (326) + MACRO2_NO3 (213) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (327) + 0.22*CO + 0.53*GLYALD + 0.22*HYAC + 0.53*CH3CO3 - MACRO2_NOa (211) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (325) + MACRO2_NOa (214) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (328) + 0.25*CH3COCHO + 0.53*CH3CO3 + 0.22*HYAC + 0.22*CO - MACRO2_NOb (212) MACRO2 + NO -> 0.8*ONITR rate = 1.30E-13*exp( 360./t) (326) - MACR_O3 (213) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (327) + MACRO2_NOb (215) MACRO2 + NO -> 0.8*ONITR rate = 1.30E-13*exp( 360./t) (329) + MACR_O3 (216) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (330) + 0.88*CH3COCHO + 0.33*{HCOOH} + 0.14*HO2 - MACR_OH (214) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (328) - MACROOH_OH (215) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (329) - MCO3_CH3CO3 (216) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (330) - MCO3_CH3O2 (217) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (331) - MCO3_HO2 (218) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (332) + MACR_OH (217) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (331) + MACROOH_OH (218) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (332) + MCO3_CH3CO3 (219) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (333) + MCO3_CH3O2 (220) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (334) + MCO3_HO2 (221) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (335) + 0.45*CO2 + 0.45*CH2O + 0.45*CH3CO3 - MCO3_MCO3 (219) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (333) - MCO3_NO (220) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (334) - MCO3_NO3 (221) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (335) - MPAN_OH_M (222) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (336) - + M + 0.5*NDEP ki=3.00E-11 + MCO3_MCO3 (222) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (336) + MCO3_NO (223) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (337) + MCO3_NO3 (224) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (338) + MPAN_OH_M (225) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (339) + + 0.5*NDEP + M ki=3.00E-11 f=0.50 - MVK_O3 (223) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (337) + MVK_O3 (226) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (340) + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*{HCOOH} - MVK_OH (224) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (338) - tag_MCO3_NO2 (225) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (339) + MVK_OH (227) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (341) + tag_MCO3_NO2 (228) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (342) ki=9.30E-12*(300/t)**1.50 f=0.60 - usr_MPAN_M (226) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (340) - BIGALK_OH (227) BIGALK + OH -> 1.67*C3H7O2 rate = 3.50E-12 (341) - HYDRALD_OH (228) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (342) - ISOP_NO3 (229) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (343) - ISOPNO3_HO2 (230) ISOPNO3 + HO2 -> 0.206*NO2 + 0.206*CH2O + 0.206*OH + 0.167*MACR rate = 8.00E-13*exp( 700./t) (344) + usr_MPAN_M (229) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (343) + BIGALK_OH (230) BIGALK + OH -> 1.67*C3H7O2 rate = 3.50E-12 (344) + HYDRALD_OH (231) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (345) + ISOP_NO3 (232) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (346) + ISOPNO3_HO2 (233) ISOPNO3 + HO2 -> 0.206*NO2 + 0.206*CH2O + 0.206*OH + 0.167*MACR rate = 8.00E-13*exp( 700./t) (347) + 0.039*MVK + 0.794*ONITR - ISOPNO3_NO (231) ISOPNO3 + NO -> 1.206*NO2 + 0.794*HO2 + 0.072*CH2O + 0.167*MACR rate = 2.70E-12*exp( 360./t) (345) + ISOPNO3_NO (234) ISOPNO3 + NO -> 1.206*NO2 + 0.794*HO2 + 0.072*CH2O + 0.167*MACR rate = 2.70E-12*exp( 360./t) (348) + 0.039*MVK + 0.794*ONITR - ISOPNO3_NO3 (232) ISOPNO3 + NO3 -> 1.206*NO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK rate = 2.40E-12 (346) + ISOPNO3_NO3 (235) ISOPNO3 + NO3 -> 1.206*NO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK rate = 2.40E-12 (349) + 0.794*ONITR + 0.794*HO2 - ISOPO2_CH3CO3 (233) ISOPO2 + CH3CO3 -> CH3O2 + HO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK rate = 1.40E-11 (347) + ISOPO2_CH3CO3 (236) ISOPO2 + CH3CO3 -> CH3O2 + HO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK rate = 1.40E-11 (350) + 0.4*HYDRALD - ISOPO2_CH3O2 (234) ISOPO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.2*CH2O + 0.19*MACR rate = 5.00E-13*exp( 400./t) (348) + ISOPO2_CH3O2 (237) ISOPO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.2*CH2O + 0.19*MACR rate = 5.00E-13*exp( 400./t) (351) + 0.26*MVK + 0.3*HYDRALD - ISOPO2_HO2 (235) ISOPO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (349) - ISOPO2_NO (236) ISOPO2 + NO -> 0.08*ONITR + 0.92*NO2 + 0.23*MACR + 0.32*MVK rate = 4.40E-12*exp( 180./t) (350) + ISOPO2_HO2 (238) ISOPO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (352) + ISOPO2_NO (239) ISOPO2 + NO -> 0.08*ONITR + 0.92*NO2 + 0.23*MACR + 0.32*MVK rate = 4.40E-12*exp( 180./t) (353) + 0.33*HYDRALD + 0.02*GLYOXAL + 0.02*GLYALD + 0.02*CH3COCHO + 0.02*HYAC + 0.55*CH2O + 0.92*HO2 - ISOPO2_NO3 (237) ISOPO2 + NO3 -> HO2 + NO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK rate = 2.40E-12 (351) + ISOPO2_NO3 (240) ISOPO2 + NO3 -> HO2 + NO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK rate = 2.40E-12 (354) + 0.4*HYDRALD - ISOP_O3 (238) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*{HCOOH} + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (352) + ISOP_O3 (241) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*{HCOOH} + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (355) + 0.37*HO2 + 0.91*CH2O + 0.08*CH3CO3 + 0.13*C3H6 + 0.05*CH3O2 - ISOP_OH (239) ISOP + OH -> ISOPO2 rate = 2.54E-11*exp( 410./t) (353) - ISOPOOH_OH (240) ISOPOOH + OH -> 0.8*XO2 + 0.2*ISOPO2 rate = 1.52E-11*exp( 200./t) (354) - ONITR_NO3 (241) ONITR + NO3 -> HO2 + NO2 + HYDRALD rate = 1.40E-12*exp( -1860./t) (355) - ONITR_OH (242) ONITR + OH -> HYDRALD + 0.4*NO2 + HO2 rate = 4.50E-11 (356) - XO2_CH3CO3 (243) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (357) + ISOP_OH (242) ISOP + OH -> ISOPO2 rate = 2.54E-11*exp( 410./t) (356) + ISOPOOH_OH (243) ISOPOOH + OH -> 0.8*XO2 + 0.2*ISOPO2 rate = 1.52E-11*exp( 200./t) (357) + ONITR_NO3 (244) ONITR + NO3 -> HO2 + NO2 + HYDRALD + NDEP rate = 1.40E-12*exp( -1860./t) (358) + ONITR_OH (245) ONITR + OH -> HYDRALD + 0.4*NO2 + HO2 + 0.6*NDEP rate = 4.50E-11 (359) + XO2_CH3CO3 (246) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (360) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD + CO2 - XO2_CH3O2 (244) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (358) + XO2_CH3O2 (247) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (361) + 0.1*GLYOXAL + 0.1*CH3COCHO + 0.1*HYAC + 0.1*GLYALD - XO2_HO2 (245) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (359) - XO2_NO (246) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (360) + XO2_HO2 (248) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (362) + XO2_NO (249) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (363) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD - XO2_NO3 (247) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (361) + XO2_NO3 (250) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (364) + 0.25*CH3COCHO + 0.25*GLYALD - XOOH_OH (248) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (362) - TERP_NO3 (249) TERP + NO3 -> 1.7*ISOPO2 + NO2 rate = 1.20E-12*exp( 490./t) (363) - TERP_O3 (250) TERP + O3 -> 1.122*MACR + 0.442*MVK + 0.765*O + 1.156*OH rate = 6.30E-16*exp( -580./t) (364) - TERP_OH (251) TERP + OH -> 1.64*ISOPO2 + 0.1*CH3COCH3 rate = 1.20E-11*exp( 440./t) (365) - DMS_NO3 (252) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (366) - DMS_OHa (253) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (367) - OCS_O (254) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (368) - OCS_OH (255) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (369) - S_O2 (256) S + O2 -> SO + O rate = 2.30E-12 (370) - SO2_OH_M (257) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (371) + XOOH_OH (251) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (365) + TERP_NO3 (252) TERP + NO3 -> 1.7*ISOPO2 + NO2 rate = 1.20E-12*exp( 490./t) (366) + TERP_O3 (253) TERP + O3 -> 1.122*MACR + 0.442*MVK + 0.765*O + 1.156*OH rate = 6.30E-16*exp( -580./t) (367) + TERP_OH (254) TERP + OH -> 1.64*ISOPO2 + 0.1*CH3COCH3 rate = 1.20E-11*exp( 440./t) (368) + DMS_NO3 (255) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (369) + DMS_OHa (256) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (370) + OCS_O (257) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (371) + OCS_OH (258) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (372) + S_O2 (259) S + O2 -> SO + O rate = 2.30E-12 (373) + SO2_OH_M (260) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (374) ki=1.70E-12*(300/t)**-0.20 f=0.60 - S_O3 (258) S + O3 -> SO + O2 rate = 1.20E-11 (372) - SO_BRO (259) SO + BRO -> SO2 + BR rate = 5.70E-11 (373) - SO_CLO (260) SO + CLO -> SO2 + CL rate = 2.80E-11 (374) - S_OH (261) S + OH -> SO + H rate = 6.60E-11 (375) - SO_NO2 (262) SO + NO2 -> SO2 + NO rate = 1.40E-11 (376) - SO_O2 (263) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (377) - SO_O3 (264) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (378) - SO_OCLO (265) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (379) - SO_OH (266) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (380) - usr_DMS_OH (267) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (381) - usr_SO3_H2O (268) SO3 + H2O -> H2SO4 rate = ** User defined ** (382) - NH3_OH (269) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (383) - usr_HO2_aer (270) HO2 -> H2O rate = ** User defined ** (384) - usr_N2O5_aer (271) N2O5 -> 2*HNO3 rate = ** User defined ** (385) - usr_NH4_strat_ta (272) NH4 -> NHDEP rate = 6.34E-08 (386) - usr_NO2_aer (273) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (387) - usr_NO3_aer (274) NO3 -> HNO3 rate = ** User defined ** (388) - usr_ONITR_aer (275) ONITR -> HNO3 rate = ** User defined ** (389) - SOAE_tau (276) SOAE -> SOAG rate = 1.16E-05 (390) - het1 (277) N2O5 -> 2*HNO3 rate = ** User defined ** (391) - het10 (278) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (392) - het11 (279) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (393) - het12 (280) N2O5 -> 2*HNO3 rate = ** User defined ** (394) - het13 (281) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (395) - het14 (282) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (396) - het15 (283) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (397) - het16 (284) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (398) - het17 (285) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (399) - het2 (286) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (400) - het3 (287) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (401) - het4 (288) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (402) - het5 (289) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (403) - het6 (290) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (404) - het7 (291) N2O5 -> 2*HNO3 rate = ** User defined ** (405) - het8 (292) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (406) - het9 (293) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (407) - ag247nm (294) Op2P -> Op rate = 4.70E-02 (408) - ag373nm (295) Op2D -> Op rate = 7.70E-05 (409) - ag732nm (296) Op2P -> Op2D rate = 1.71E-01 (410) - elec1 (297) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (411) - elec2 (298) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (412) - elec3 (299) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (413) - ion_N2p_O2 (300) N2p + O2 -> O2p + N2 rate = 6.00E-11 (414) - ion_N2p_Oa (301) N2p + O -> NOp + N2D rate = ** User defined ** (415) - ion_N2p_Ob (302) N2p + O -> Op + N2 rate = ** User defined ** (416) - ion_Np_O (303) Np + O -> Op + N rate = 1.00E-12 (417) - ion_Np_O2a (304) Np + O2 -> O2p + N rate = 4.00E-10 (418) - ion_Np_O2b (305) Np + O2 -> NOp + O rate = 2.00E-10 (419) - ion_O2p_N (306) O2p + N -> NOp + O rate = 1.00E-10 (420) - ion_O2p_N2 (307) O2p + N2 -> NOp + NO rate = 5.00E-16 (421) - ion_O2p_NO (308) O2p + NO -> NOp + O2 rate = 4.40E-10 (422) - ion_Op_CO2 (309) Op + CO2 -> O2p + CO rate = 9.00E-10 (423) - ion_Op_N2 (310) Op + N2 -> NOp + N rate = ** User defined ** (424) - ion_Op_N2D (311) Op + N2D -> Np + O rate = 1.30E-10 (425) - ion_Op_O2 (312) Op + O2 -> O2p + O rate = ** User defined ** (426) - Op2D_e (313) Op2D + e -> Op + e rate = ** User defined ** (427) - Op2D_N2 (314) Op2D + N2 -> N2p + O rate = 8.00E-10 (428) - Op2D_O (315) Op2D + O -> Op + O rate = 5.00E-12 (429) - Op2D_O2 (316) Op2D + O2 -> O2p + O rate = 7.00E-10 (430) - Op2P_ea (317) Op2P + e -> Op2D + e rate = ** User defined ** (431) - Op2P_eb (318) Op2P + e -> Op + e rate = ** User defined ** (432) - Op2P_N2a (319) Op2P + N2 -> N2p + O rate = 4.80E-10 (433) - Op2P_N2b (320) Op2P + N2 -> Np + NO rate = 1.00E-10 (434) - Op2P_O (321) Op2P + O -> Op + O rate = 4.00E-10 (435) + S_O3 (261) S + O3 -> SO + O2 rate = 1.20E-11 (375) + SO_BRO (262) SO + BRO -> SO2 + BR rate = 5.70E-11 (376) + SO_CLO (263) SO + CLO -> SO2 + CL rate = 2.80E-11 (377) + S_OH (264) S + OH -> SO + H rate = 6.60E-11 (378) + SO_NO2 (265) SO + NO2 -> SO2 + NO rate = 1.40E-11 (379) + SO_O2 (266) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (380) + SO_O3 (267) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (381) + SO_OCLO (268) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (382) + SO_OH (269) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (383) + usr_DMS_OH (270) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (384) + usr_SO3_H2O (271) SO3 + H2O -> H2SO4 rate = ** User defined ** (385) + NH3_OH (272) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (386) + usr_HO2_aer (273) HO2 -> H2O rate = ** User defined ** (387) + usr_N2O5_aer (274) N2O5 -> 2*HNO3 rate = ** User defined ** (388) + usr_NH4_strat_ta (275) NH4 -> NHDEP rate = 6.34E-08 (389) + usr_NO2_aer (276) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (390) + usr_NO3_aer (277) NO3 -> HNO3 rate = ** User defined ** (391) + usr_ONITR_aer (278) ONITR -> HNO3 rate = ** User defined ** (392) + SOAE_tau (279) SOAE -> SOAG rate = 1.16E-05 (393) + het1 (280) N2O5 -> 2*HNO3 rate = ** User defined ** (394) + het10 (281) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (395) + het11 (282) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (396) + het12 (283) N2O5 -> 2*HNO3 rate = ** User defined ** (397) + het13 (284) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (398) + het14 (285) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (399) + het15 (286) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (400) + het16 (287) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (401) + het17 (288) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (402) + het2 (289) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (403) + het3 (290) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (404) + het4 (291) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (405) + het5 (292) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (406) + het6 (293) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (407) + het7 (294) N2O5 -> 2*HNO3 rate = ** User defined ** (408) + het8 (295) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (409) + het9 (296) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (410) + ag247nm (297) Op2P -> Op rate = 4.70E-02 (411) + ag373nm (298) Op2D -> Op rate = 7.70E-05 (412) + ag732nm (299) Op2P -> Op2D rate = 1.71E-01 (413) + elec1 (300) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (414) + elec2 (301) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (415) + elec3 (302) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (416) + ion_N2p_O2 (303) N2p + O2 -> O2p + N2 rate = 6.00E-11 (417) + ion_N2p_Oa (304) N2p + O -> NOp + N2D rate = ** User defined ** (418) + ion_N2p_Ob (305) N2p + O -> Op + N2 rate = ** User defined ** (419) + ion_Np_O (306) Np + O -> Op + N rate = 1.00E-12 (420) + ion_Np_O2a (307) Np + O2 -> O2p + N rate = 4.00E-10 (421) + ion_Np_O2b (308) Np + O2 -> NOp + O rate = 2.00E-10 (422) + ion_O2p_N (309) O2p + N -> NOp + O rate = 1.00E-10 (423) + ion_O2p_N2 (310) O2p + N2 -> NOp + NO rate = 5.00E-16 (424) + ion_O2p_NO (311) O2p + NO -> NOp + O2 rate = 4.40E-10 (425) + ion_Op_CO2 (312) Op + CO2 -> O2p + CO rate = 9.00E-10 (426) + ion_Op_N2 (313) Op + N2 -> NOp + N rate = ** User defined ** (427) + ion_Op_N2D (314) Op + N2D -> Np + O rate = 1.30E-10 (428) + ion_Op_O2 (315) Op + O2 -> O2p + O rate = ** User defined ** (429) + Op2D_e (316) Op2D + e -> Op + e rate = ** User defined ** (430) + Op2D_N2 (317) Op2D + N2 -> N2p + O rate = 8.00E-10 (431) + Op2D_O (318) Op2D + O -> Op + O rate = 5.00E-12 (432) + Op2D_O2 (319) Op2D + O2 -> O2p + O rate = 7.00E-10 (433) + Op2P_ea (320) Op2P + e -> Op2D + e rate = ** User defined ** (434) + Op2P_eb (321) Op2P + e -> Op + e rate = ** User defined ** (435) + Op2P_N2a (322) Op2P + N2 -> N2p + O rate = 4.80E-10 (436) + Op2P_N2b (323) Op2P + N2 -> Np + NO rate = 1.00E-10 (437) + Op2P_O (324) Op2P + O -> Op + O rate = 4.00E-10 (438) Extraneous prod/loss species - ( 1) num_a1 (dataset) - ( 2) num_a2 (dataset) - ( 3) so4_a1 (dataset) - ( 4) so4_a2 (dataset) - ( 5) num_a4 (dataset) - ( 6) bc_a4 (dataset) - ( 7) pom_a4 (dataset) - ( 8) num_a5 (dataset) - ( 9) so4_a5 (dataset) - (10) CO (dataset) - (11) NO2 (dataset) - (12) NO (dataset) - (13) SO2 (dataset) + ( 1) CO (dataset) + ( 2) pom_a4 (dataset) + ( 3) so4_a5 (dataset) + ( 4) bc_a4 (dataset) + ( 5) SO2 (dataset) + ( 6) NO2 (dataset) + ( 7) NO (dataset) + ( 8) num_a1 (dataset) + ( 9) num_a2 (dataset) + (10) so4_a1 (dataset) + (11) so4_a2 (dataset) + (12) num_a5 (dataset) + (13) num_a4 (dataset) (14) O2p (15) N2p (16) Np @@ -853,274 +856,274 @@ Extraneous prod/loss species d(bc_a1)/dt = 0 d(bc_a4)/dt = 0 - d(BIGALK)/dt = - r227*OH*BIGALK + d(BIGALK)/dt = - r230*OH*BIGALK d(BR)/dt = j47*BRCL + j48*BRO + j50*BRONO2 + j52*CF2CLBR + j53*CF3BR + 2*j59*CH2BR2 + j60*CH3BR - + 3*j63*CHBR3 + 2*j71*H2402 + j72*HBR + j78*HOBR + r91*O1D*CF2CLBR + 2*r104*BRO*BRO - + r105*BRO*CLO + r106*BRO*CLO + r109*BRO*NO + r112*BRO*O + r113*BRO*OH + r114*HBR*O - + r115*HBR*OH + r117*O1D*CF3BR + 3*r118*O1D*CHBR3 + 2*r119*O1D*H2402 + r120*O1D*HBR - + 2*r128*CH2BR2*CL + 2*r129*CH2BR2*OH + r130*CH3BR*CL + r131*CH3BR*OH + 3*r135*CHBR3*CL - + 3*r136*CHBR3*OH + 2*r140*O1D*CH2BR2 + r141*O1D*CH3BR + r259*SO*BRO - - r101*CH2O*BR - r102*HO2*BR - r103*O3*BR - d(BRCL)/dt = r107*BRO*CLO + r285*HOBR*HCL + r290*HOBR*HCL + + 3*j63*CHBR3 + 2*j71*H2402 + j72*HBR + j78*HOBR + r94*O1D*CF2CLBR + 2*r107*BRO*BRO + + r108*BRO*CLO + r109*BRO*CLO + r112*BRO*NO + r115*BRO*O + r116*BRO*OH + r117*HBR*O + + r118*HBR*OH + r120*O1D*CF3BR + 3*r121*O1D*CHBR3 + 2*r122*O1D*H2402 + r123*O1D*HBR + + 2*r131*CH2BR2*CL + 2*r132*CH2BR2*OH + r133*CH3BR*CL + r134*CH3BR*OH + 3*r138*CHBR3*CL + + 3*r139*CHBR3*OH + 2*r143*O1D*CH2BR2 + r144*O1D*CH3BR + r262*SO*BRO + - r104*CH2O*BR - r105*HO2*BR - r106*O3*BR + d(BRCL)/dt = r110*BRO*CLO + r288*HOBR*HCL + r293*HOBR*HCL - j47*BRCL - d(BRO)/dt = j49*BRONO2 + r103*BR*O3 + r111*BRONO2*O + r116*HOBR*O + r121*O1D*HBR - - j48*BRO - 2*r104*BRO*BRO - r105*CLO*BRO - r106*CLO*BRO - r107*CLO*BRO - r108*HO2*BRO - - r109*NO*BRO - r110*M*NO2*BRO - r112*O*BRO - r113*OH*BRO - r259*SO*BRO - d(BRONO2)/dt = r110*M*BRO*NO2 - - j49*BRONO2 - j50*BRONO2 - r279*BRONO2 - r282*BRONO2 - r287*BRONO2 - r111*O*BRONO2 + d(BRO)/dt = j49*BRONO2 + r106*BR*O3 + r114*BRONO2*O + r119*HOBR*O + r124*O1D*HBR + - j48*BRO - 2*r107*BRO*BRO - r108*CLO*BRO - r109*CLO*BRO - r110*CLO*BRO - r111*HO2*BRO + - r112*NO*BRO - r113*M*NO2*BRO - r115*O*BRO - r116*OH*BRO - r262*SO*BRO + d(BRONO2)/dt = r113*M*BRO*NO2 + - j49*BRONO2 - j50*BRONO2 - r282*BRONO2 - r285*BRONO2 - r290*BRONO2 - r114*O*BRONO2 d(BRY)/dt = 0 - d(C2H4)/dt = - r159*M*CL*C2H4 - r160*O3*C2H4 - r184*M*OH*C2H4 - d(C2H5O2)/dt = .5*r166*C2H5OOH*OH + r167*C2H6*CL + r168*C2H6*OH - - 2*r161*C2H5O2*C2H5O2 - r162*CH3O2*C2H5O2 - r163*HO2*C2H5O2 - r164*NO*C2H5O2 - d(C2H5OH)/dt = .4*r161*C2H5O2*C2H5O2 + .2*r162*C2H5O2*CH3O2 - - r165*OH*C2H5OH - d(C2H5OOH)/dt = r163*C2H5O2*HO2 - - j20*C2H5OOH - r166*OH*C2H5OOH - d(C2H6)/dt = - r167*CL*C2H6 - r168*OH*C2H6 - d(C3H6)/dt = .7*j40*MVK + .13*r238*ISOP*O3 - - r187*NO3*C3H6 - r188*O3*C3H6 - r205*M*OH*C3H6 - d(C3H7O2)/dt = r192*C3H7OOH*OH + r193*C3H8*OH + 1.67*r227*BIGALK*OH - - r189*CH3O2*C3H7O2 - r190*HO2*C3H7O2 - r191*NO*C3H7O2 - d(C3H7OOH)/dt = r190*C3H7O2*HO2 - - j21*C3H7OOH - r192*OH*C3H7OOH - d(C3H8)/dt = - r193*OH*C3H8 - d(CCL4)/dt = - j51*CCL4 - r90*O1D*CCL4 - d(CF2CLBR)/dt = - j52*CF2CLBR - r91*O1D*CF2CLBR - d(CF3BR)/dt = - j53*CF3BR - r117*O1D*CF3BR - d(CFC11)/dt = - j54*CFC11 - r92*O1D*CFC11 - d(CFC113)/dt = - j55*CFC113 - r93*O1D*CFC113 - d(CFC114)/dt = - j56*CFC114 - r94*O1D*CFC114 - d(CFC115)/dt = - j57*CFC115 - r95*O1D*CFC115 - d(CFC12)/dt = - j58*CFC12 - r96*O1D*CFC12 - d(CH2BR2)/dt = - j59*CH2BR2 - r128*CL*CH2BR2 - r129*OH*CH2BR2 - r140*O1D*CH2BR2 - d(CH2O)/dt = j28*CH3OOH + .18*j29*CH4 + j33*GLYALD + j35*HYAC + .69*j36*ISOPOOH + 1.34*j37*MACR + j41*NOA - + j42*ONITR + j44*POOH + j45*ROOH + 2*r179*EO + r72*CLO*CH3O2 + 2*r148*CH3O2*CH3O2 - + r149*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + .3*r153*CH3OOH*OH + r156*O1D*CH4 - + r157*O1D*CH4 + r160*C2H4*O3 + .7*r162*C2H5O2*CH3O2 + r172*CH3CO3*CH3O2 + .5*r176*CH3COOOH*OH - + .5*r178*EO2*NO + .8*r181*GLYALD*OH + r183*PAN*OH + .5*r188*C3H6*O3 + r189*C3H7O2*CH3O2 - + r199*PO2*NO + .8*r201*RO2*CH3O2 + .15*r202*RO2*HO2 + r203*RO2*NO + .25*r207*MACRO2*CH3CO3 - + .88*r208*MACRO2*CH3O2 + .25*r210*MACRO2*NO3 + .25*r211*MACRO2*NO + .12*r213*MACR*O3 - + r216*MCO3*CH3CO3 + 2*r217*MCO3*CH3O2 + .45*r218*MCO3*HO2 + 2*r219*MCO3*MCO3 + r220*MCO3*NO - + r221*MCO3*NO3 + .5*r222*M*MPAN*OH + .6*r223*MVK*O3 + .206*r230*ISOPNO3*HO2 - + .072*r231*ISOPNO3*NO + .072*r232*ISOPNO3*NO3 + .6*r233*ISOPO2*CH3CO3 + 1.2*r234*ISOPO2*CH3O2 - + .55*r236*ISOPO2*NO + .6*r237*ISOPO2*NO3 + .91*r238*ISOP*O3 + .25*r243*XO2*CH3CO3 - + .8*r244*XO2*CH3O2 + .25*r246*XO2*NO - - j22*CH2O - j23*CH2O - r65*CL*CH2O - r101*BR*CH2O - r145*NO3*CH2O - r146*O*CH2O - - r147*OH*CH2O - d(CH3BR)/dt = - j60*CH3BR - r130*CL*CH3BR - r131*OH*CH3BR - r141*O1D*CH3BR - d(CH3CCL3)/dt = - j61*CH3CCL3 - r132*OH*CH3CCL3 - d(CH3CHO)/dt = j20*C2H5OOH + j44*POOH + 1.6*r161*C2H5O2*C2H5O2 + .8*r162*C2H5O2*CH3O2 + r164*C2H5O2*NO - + r165*C2H5OH*OH + .5*r166*C2H5OOH*OH + .5*r188*C3H6*O3 + .27*r191*C3H7O2*NO + r199*PO2*NO - + .1*r223*MVK*O3 - - j24*CH3CHO - r169*NO3*CH3CHO - r170*OH*CH3CHO - d(CH3CL)/dt = - j62*CH3CL - r133*CL*CH3CL - r134*OH*CH3CL + d(C2H4)/dt = - r162*M*CL*C2H4 - r163*O3*C2H4 - r187*M*OH*C2H4 + d(C2H5O2)/dt = .5*r169*C2H5OOH*OH + r170*C2H6*CL + r171*C2H6*OH + - 2*r164*C2H5O2*C2H5O2 - r165*CH3O2*C2H5O2 - r166*HO2*C2H5O2 - r167*NO*C2H5O2 + d(C2H5OH)/dt = .4*r164*C2H5O2*C2H5O2 + .2*r165*C2H5O2*CH3O2 + - r168*OH*C2H5OH + d(C2H5OOH)/dt = r166*C2H5O2*HO2 + - j20*C2H5OOH - r169*OH*C2H5OOH + d(C2H6)/dt = - r170*CL*C2H6 - r171*OH*C2H6 + d(C3H6)/dt = .7*j40*MVK + .13*r241*ISOP*O3 + - r190*NO3*C3H6 - r191*O3*C3H6 - r208*M*OH*C3H6 + d(C3H7O2)/dt = r195*C3H7OOH*OH + r196*C3H8*OH + 1.67*r230*BIGALK*OH + - r192*CH3O2*C3H7O2 - r193*HO2*C3H7O2 - r194*NO*C3H7O2 + d(C3H7OOH)/dt = r193*C3H7O2*HO2 + - j21*C3H7OOH - r195*OH*C3H7OOH + d(C3H8)/dt = - r196*OH*C3H8 + d(CCL4)/dt = - j51*CCL4 - r93*O1D*CCL4 + d(CF2CLBR)/dt = - j52*CF2CLBR - r94*O1D*CF2CLBR + d(CF3BR)/dt = - j53*CF3BR - r120*O1D*CF3BR + d(CFC11)/dt = - j54*CFC11 - r95*O1D*CFC11 + d(CFC113)/dt = - j55*CFC113 - r96*O1D*CFC113 + d(CFC114)/dt = - j56*CFC114 - r97*O1D*CFC114 + d(CFC115)/dt = - j57*CFC115 - r98*O1D*CFC115 + d(CFC12)/dt = - j58*CFC12 - r99*O1D*CFC12 + d(CH2BR2)/dt = - j59*CH2BR2 - r131*CL*CH2BR2 - r132*OH*CH2BR2 - r143*O1D*CH2BR2 + d(CH2O)/dt = j28*CH3OOH + .18*j29*CH4 + j33*GLYALD + j35*HYAC + j36*ISOPOOH + 1.34*j37*MACR + j41*NOA + + j42*ONITR + j44*POOH + j45*ROOH + 2*r182*EO + r75*CLO*CH3O2 + 2*r151*CH3O2*CH3O2 + + r152*CH3O2*CH3O2 + r154*CH3O2*NO + r155*CH3OH*OH + .3*r156*CH3OOH*OH + r159*O1D*CH4 + + r160*O1D*CH4 + r163*C2H4*O3 + .7*r165*C2H5O2*CH3O2 + r175*CH3CO3*CH3O2 + .5*r179*CH3COOOH*OH + + .5*r181*EO2*NO + .8*r184*GLYALD*OH + r186*PAN*OH + .5*r191*C3H6*O3 + r192*C3H7O2*CH3O2 + + r202*PO2*NO + .8*r204*RO2*CH3O2 + .15*r205*RO2*HO2 + r206*RO2*NO + .25*r210*MACRO2*CH3CO3 + + .88*r211*MACRO2*CH3O2 + .25*r213*MACRO2*NO3 + .25*r214*MACRO2*NO + .12*r216*MACR*O3 + + r219*MCO3*CH3CO3 + 2*r220*MCO3*CH3O2 + .45*r221*MCO3*HO2 + 2*r222*MCO3*MCO3 + r223*MCO3*NO + + r224*MCO3*NO3 + .5*r225*M*MPAN*OH + .6*r226*MVK*O3 + .206*r233*ISOPNO3*HO2 + + .072*r234*ISOPNO3*NO + .072*r235*ISOPNO3*NO3 + .6*r236*ISOPO2*CH3CO3 + 1.2*r237*ISOPO2*CH3O2 + + .55*r239*ISOPO2*NO + .6*r240*ISOPO2*NO3 + .91*r241*ISOP*O3 + .25*r246*XO2*CH3CO3 + + .8*r247*XO2*CH3O2 + .25*r249*XO2*NO + - j22*CH2O - j23*CH2O - r68*CL*CH2O - r104*BR*CH2O - r148*NO3*CH2O - r149*O*CH2O + - r150*OH*CH2O + d(CH3BR)/dt = - j60*CH3BR - r133*CL*CH3BR - r134*OH*CH3BR - r144*O1D*CH3BR + d(CH3CCL3)/dt = - j61*CH3CCL3 - r135*OH*CH3CCL3 + d(CH3CHO)/dt = j20*C2H5OOH + j44*POOH + 1.6*r164*C2H5O2*C2H5O2 + .8*r165*C2H5O2*CH3O2 + r167*C2H5O2*NO + + r168*C2H5OH*OH + .5*r169*C2H5OOH*OH + .5*r191*C3H6*O3 + .27*r194*C3H7O2*NO + r202*PO2*NO + + .1*r226*MVK*O3 + - j24*CH3CHO - r172*NO3*CH3CHO - r173*OH*CH3CHO + d(CH3CL)/dt = - j62*CH3CL - r136*CL*CH3CL - r137*OH*CH3CL d(CH3CO3)/dt = j25*CH3COCH3 + j26*CH3COCHO + j35*HYAC + 1.34*j37*MACR + .3*j40*MVK + j41*NOA + .6*j43*PAN - + j45*ROOH + r186*M*PAN + r169*CH3CHO*NO3 + r170*CH3CHO*OH + .5*r176*CH3COOOH*OH - + r194*CH3COCHO*NO3 + r195*CH3COCHO*OH + .3*r201*RO2*CH3O2 + .15*r202*RO2*HO2 + r203*RO2*NO - + .53*r207*MACRO2*CH3CO3 + .26*r208*MACRO2*CH3O2 + .53*r210*MACRO2*NO3 + .53*r211*MACRO2*NO - + .1*r213*MACR*O3 + r217*MCO3*CH3O2 + .45*r218*MCO3*HO2 + 2*r219*MCO3*MCO3 + r220*MCO3*NO - + r221*MCO3*NO3 + .28*r223*MVK*O3 + .08*r238*ISOP*O3 - - 2*r171*CH3CO3*CH3CO3 - r172*CH3O2*CH3CO3 - r173*HO2*CH3CO3 - r174*NO*CH3CO3 - - r185*M*NO2*CH3CO3 - r207*MACRO2*CH3CO3 - r233*ISOPO2*CH3CO3 - r243*XO2*CH3CO3 - d(CH3COCH3)/dt = .82*j21*C3H7OOH + .82*r189*C3H7O2*CH3O2 + .82*r191*C3H7O2*NO + .1*r251*TERP*OH - - j25*CH3COCH3 - r206*OH*CH3COCH3 - d(CH3COCHO)/dt = r196*HYAC*OH + r197*NOA*OH + .5*r201*RO2*CH3O2 + .25*r207*MACRO2*CH3CO3 - + .24*r208*MACRO2*CH3O2 + .25*r210*MACRO2*NO3 + .25*r211*MACRO2*NO + .88*r213*MACR*O3 - + .5*r223*MVK*O3 + .02*r236*ISOPO2*NO + .25*r243*XO2*CH3CO3 + .1*r244*XO2*CH3O2 - + .25*r246*XO2*NO + .25*r247*XO2*NO3 - - j26*CH3COCHO - r194*NO3*CH3COCHO - r195*OH*CH3COCHO - d(CH3COOH)/dt = .1*r172*CH3CO3*CH3O2 + .15*r173*CH3CO3*HO2 + .12*r188*C3H6*O3 + .15*r218*MCO3*HO2 - - r175*OH*CH3COOH - d(CH3COOOH)/dt = .4*r173*CH3CO3*HO2 + .4*r218*MCO3*HO2 - - j27*CH3COOOH - r176*OH*CH3COOOH + + j45*ROOH + r189*M*PAN + r172*CH3CHO*NO3 + r173*CH3CHO*OH + .5*r179*CH3COOOH*OH + + r197*CH3COCHO*NO3 + r198*CH3COCHO*OH + .3*r204*RO2*CH3O2 + .15*r205*RO2*HO2 + r206*RO2*NO + + .53*r210*MACRO2*CH3CO3 + .26*r211*MACRO2*CH3O2 + .53*r213*MACRO2*NO3 + .53*r214*MACRO2*NO + + .1*r216*MACR*O3 + r220*MCO3*CH3O2 + .45*r221*MCO3*HO2 + 2*r222*MCO3*MCO3 + r223*MCO3*NO + + r224*MCO3*NO3 + .28*r226*MVK*O3 + .08*r241*ISOP*O3 + - 2*r174*CH3CO3*CH3CO3 - r175*CH3O2*CH3CO3 - r176*HO2*CH3CO3 - r177*NO*CH3CO3 + - r188*M*NO2*CH3CO3 - r210*MACRO2*CH3CO3 - r236*ISOPO2*CH3CO3 - r246*XO2*CH3CO3 + d(CH3COCH3)/dt = .82*j21*C3H7OOH + .82*r192*C3H7O2*CH3O2 + .82*r194*C3H7O2*NO + .1*r254*TERP*OH + - j25*CH3COCH3 - r209*OH*CH3COCH3 + d(CH3COCHO)/dt = r199*HYAC*OH + r200*NOA*OH + .5*r204*RO2*CH3O2 + .25*r210*MACRO2*CH3CO3 + + .24*r211*MACRO2*CH3O2 + .25*r213*MACRO2*NO3 + .25*r214*MACRO2*NO + .88*r216*MACR*O3 + + .5*r226*MVK*O3 + .02*r239*ISOPO2*NO + .25*r246*XO2*CH3CO3 + .1*r247*XO2*CH3O2 + + .25*r249*XO2*NO + .25*r250*XO2*NO3 + - j26*CH3COCHO - r197*NO3*CH3COCHO - r198*OH*CH3COCHO + d(CH3COOH)/dt = .1*r175*CH3CO3*CH3O2 + .15*r176*CH3CO3*HO2 + .12*r191*C3H6*O3 + .15*r221*MCO3*HO2 + - r178*OH*CH3COOH + d(CH3COOOH)/dt = .4*r176*CH3CO3*HO2 + .4*r221*MCO3*HO2 + - j27*CH3COOOH - r179*OH*CH3COOOH d(CH3O2)/dt = j24*CH3CHO + j25*CH3COCH3 + j27*CH3COOOH + j30*CH4 + .3*j40*MVK + .4*j43*PAN + j60*CH3BR - + j62*CH3CL + r66*CL*CH4 + r122*F*CH4 + .7*r153*CH3OOH*OH + r154*CH4*OH + r155*O1D*CH4 - + 2*r171*CH3CO3*CH3CO3 + .9*r172*CH3CO3*CH3O2 + .45*r173*CH3CO3*HO2 + r174*CH3CO3*NO - + r175*CH3COOH*OH + .28*r188*C3H6*O3 + r207*MACRO2*CH3CO3 + r216*MCO3*CH3CO3 - + r233*ISOPO2*CH3CO3 + .05*r238*ISOP*O3 + r243*XO2*CH3CO3 - - r72*CLO*CH3O2 - 2*r148*CH3O2*CH3O2 - 2*r149*CH3O2*CH3O2 - r150*HO2*CH3O2 - r151*NO*CH3O2 - - r162*C2H5O2*CH3O2 - r172*CH3CO3*CH3O2 - r189*C3H7O2*CH3O2 - r201*RO2*CH3O2 - - r208*MACRO2*CH3O2 - r217*MCO3*CH3O2 - r234*ISOPO2*CH3O2 - r244*XO2*CH3O2 - d(CH3OH)/dt = r149*CH3O2*CH3O2 + .3*r162*C2H5O2*CH3O2 + .5*r201*RO2*CH3O2 + .25*r208*MACRO2*CH3O2 - + .25*r234*ISOPO2*CH3O2 + .3*r244*XO2*CH3O2 - - r152*OH*CH3OH - d(CH3OOH)/dt = r150*CH3O2*HO2 - - j28*CH3OOH - r153*OH*CH3OOH - d(CH4)/dt = .1*r188*C3H6*O3 - - j29*CH4 - j30*CH4 - r66*CL*CH4 - r122*F*CH4 - r154*OH*CH4 - r155*O1D*CH4 - r156*O1D*CH4 - - r157*O1D*CH4 - d(CHBR3)/dt = - j63*CHBR3 - r118*O1D*CHBR3 - r135*CL*CHBR3 - r136*OH*CHBR3 + + j62*CH3CL + r69*CL*CH4 + r125*F*CH4 + .7*r156*CH3OOH*OH + r157*CH4*OH + r158*O1D*CH4 + + 2*r174*CH3CO3*CH3CO3 + .9*r175*CH3CO3*CH3O2 + .45*r176*CH3CO3*HO2 + r177*CH3CO3*NO + + r178*CH3COOH*OH + .28*r191*C3H6*O3 + r210*MACRO2*CH3CO3 + r219*MCO3*CH3CO3 + + r236*ISOPO2*CH3CO3 + .05*r241*ISOP*O3 + r246*XO2*CH3CO3 + - r75*CLO*CH3O2 - 2*r151*CH3O2*CH3O2 - 2*r152*CH3O2*CH3O2 - r153*HO2*CH3O2 - r154*NO*CH3O2 + - r165*C2H5O2*CH3O2 - r175*CH3CO3*CH3O2 - r192*C3H7O2*CH3O2 - r204*RO2*CH3O2 + - r211*MACRO2*CH3O2 - r220*MCO3*CH3O2 - r237*ISOPO2*CH3O2 - r247*XO2*CH3O2 + d(CH3OH)/dt = r152*CH3O2*CH3O2 + .3*r165*C2H5O2*CH3O2 + .5*r204*RO2*CH3O2 + .25*r211*MACRO2*CH3O2 + + .25*r237*ISOPO2*CH3O2 + .3*r247*XO2*CH3O2 + - r155*OH*CH3OH + d(CH3OOH)/dt = r153*CH3O2*HO2 + - j28*CH3OOH - r156*OH*CH3OOH + d(CH4)/dt = .1*r191*C3H6*O3 + - j29*CH4 - j30*CH4 - r69*CL*CH4 - r125*F*CH4 - r157*OH*CH4 - r158*O1D*CH4 - r159*O1D*CH4 + - r160*O1D*CH4 + d(CHBR3)/dt = - j63*CHBR3 - r121*O1D*CHBR3 - r138*CL*CHBR3 - r139*OH*CHBR3 d(CL)/dt = j47*BRCL + 4*j51*CCL4 + j52*CF2CLBR + 2*j54*CFC11 + 2*j55*CFC113 + 2*j56*CFC114 + j57*CFC115 + 2*j58*CFC12 + 3*j61*CH3CCL3 + j62*CH3CL + 2*j64*CL2 + 2*j65*CL2O2 + j66*CLO + j67*CLONO2 - + j70*COFCL + j73*HCFC141B + j74*HCFC142B + j75*HCFC22 + j76*HCL + j79*HOCL + r72*CLO*CH3O2 - + 2*r73*CLO*CLO + r75*CLO*CLO + r77*CLO*NO + r82*CLO*O + r83*CLO*OH + r85*HCL*O + r86*HCL*OH - + 4*r90*O1D*CCL4 + r91*O1D*CF2CLBR + 2*r92*O1D*CFC11 + 2*r93*O1D*CFC113 + 2*r94*O1D*CFC114 - + r95*O1D*CFC115 + 2*r96*O1D*CFC12 + r97*O1D*HCL + r106*BRO*CLO + r127*O1D*COFCL - + 3*r132*CH3CCL3*OH + r134*CH3CL*OH + r137*HCFC141B*OH + r138*HCFC142B*OH + r139*HCFC22*OH - + r142*O1D*HCFC141B + r143*O1D*HCFC142B + r144*O1D*HCFC22 + r260*SO*CLO - - r65*CH2O*CL - r66*CH4*CL - r67*H2*CL - r68*H2O2*CL - r69*HO2*CL - r70*HO2*CL - r71*O3*CL - - r78*CLONO2*CL - r87*HOCL*CL - r128*CH2BR2*CL - r130*CH3BR*CL - r133*CH3CL*CL - r135*CHBR3*CL - - r167*C2H6*CL - d(CL2)/dt = r74*CLO*CLO + r78*CLONO2*CL + r278*HOCL*HCL + r283*CLONO2*HCL + r284*HOCL*HCL + r288*CLONO2*HCL - + r289*HOCL*HCL + r293*CLONO2*HCL + + j70*COFCL + j73*HCFC141B + j74*HCFC142B + j75*HCFC22 + j76*HCL + j79*HOCL + r75*CLO*CH3O2 + + 2*r76*CLO*CLO + r78*CLO*CLO + r80*CLO*NO + r85*CLO*O + r86*CLO*OH + r88*HCL*O + r89*HCL*OH + + 4*r93*O1D*CCL4 + r94*O1D*CF2CLBR + 2*r95*O1D*CFC11 + 2*r96*O1D*CFC113 + 2*r97*O1D*CFC114 + + r98*O1D*CFC115 + 2*r99*O1D*CFC12 + r100*O1D*HCL + r109*BRO*CLO + r130*O1D*COFCL + + 3*r135*CH3CCL3*OH + r137*CH3CL*OH + r140*HCFC141B*OH + r141*HCFC142B*OH + r142*HCFC22*OH + + r145*O1D*HCFC141B + r146*O1D*HCFC142B + r147*O1D*HCFC22 + r263*SO*CLO + - r68*CH2O*CL - r69*CH4*CL - r70*H2*CL - r71*H2O2*CL - r72*HO2*CL - r73*HO2*CL - r74*O3*CL + - r81*CLONO2*CL - r90*HOCL*CL - r131*CH2BR2*CL - r133*CH3BR*CL - r136*CH3CL*CL - r138*CHBR3*CL + - r170*C2H6*CL + d(CL2)/dt = r77*CLO*CLO + r81*CLONO2*CL + r281*HOCL*HCL + r286*CLONO2*HCL + r287*HOCL*HCL + r291*CLONO2*HCL + + r292*HOCL*HCL + r296*CLONO2*HCL - j64*CL2 - d(CL2O2)/dt = r99*M*CLO*CLO - - j65*CL2O2 - r100*M*CL2O2 - d(CLO)/dt = j68*CLONO2 + j80*OCLO + r100*M*CL2O2 + r100*M*CL2O2 + r70*CL*HO2 + r71*CL*O3 + r80*CLONO2*O - + r87*HOCL*CL + r88*HOCL*O + r89*HOCL*OH + r98*O1D*HCL + r265*SO*OCLO - - j66*CLO - r72*CH3O2*CLO - 2*r73*CLO*CLO - 2*r74*CLO*CLO - 2*r75*CLO*CLO - r76*HO2*CLO - - r77*NO*CLO - r79*M*NO2*CLO - r82*O*CLO - r83*OH*CLO - r84*OH*CLO - 2*r99*M*CLO*CLO - - r105*BRO*CLO - r106*BRO*CLO - r107*BRO*CLO - r260*SO*CLO - d(CLONO2)/dt = r79*M*CLO*NO2 - - j67*CLONO2 - j68*CLONO2 - r281*CLONO2 - r286*CLONO2 - r292*CLONO2 - r78*CL*CLONO2 - - r80*O*CLONO2 - r81*OH*CLONO2 - r283*HCL*CLONO2 - r288*HCL*CLONO2 - r293*HCL*CLONO2 + d(CL2O2)/dt = r102*M*CLO*CLO + - j65*CL2O2 - r103*M*CL2O2 + d(CLO)/dt = j68*CLONO2 + j80*OCLO + r103*M*CL2O2 + r103*M*CL2O2 + r73*CL*HO2 + r74*CL*O3 + r83*CLONO2*O + + r90*HOCL*CL + r91*HOCL*O + r92*HOCL*OH + r101*O1D*HCL + r268*SO*OCLO + - j66*CLO - r75*CH3O2*CLO - 2*r76*CLO*CLO - 2*r77*CLO*CLO - 2*r78*CLO*CLO - r79*HO2*CLO + - r80*NO*CLO - r82*M*NO2*CLO - r85*O*CLO - r86*OH*CLO - r87*OH*CLO - 2*r102*M*CLO*CLO + - r108*BRO*CLO - r109*BRO*CLO - r110*BRO*CLO - r263*SO*CLO + d(CLONO2)/dt = r82*M*CLO*NO2 + - j67*CLONO2 - j68*CLONO2 - r284*CLONO2 - r289*CLONO2 - r295*CLONO2 - r81*CL*CLONO2 + - r83*O*CLONO2 - r84*OH*CLONO2 - r286*HCL*CLONO2 - r291*HCL*CLONO2 - r296*HCL*CLONO2 d(CLY)/dt = 0 d(CO)/dt = j22*CH2O + j23*CH2O + j24*CH3CHO + j26*CH3COCHO + .38*j29*CH4 + j31*CO2 + j33*GLYALD - + 2*j34*GLYOXAL + 1.34*j38*MACR + .7*j40*MVK + j42*ONITR + j82*CO2 + j109*OCS + r65*CL*CH2O - + r101*BR*CH2O + r133*CH3CL*CL + r145*CH2O*NO3 + r146*CH2O*O + r147*CH2O*OH + .63*r160*C2H4*O3 - + r182*GLYOXAL*OH + .56*r188*C3H6*O3 + r194*CH3COCHO*NO3 + r195*CH3COCHO*OH - + .22*r207*MACRO2*CH3CO3 + .11*r208*MACRO2*CH3O2 + .22*r210*MACRO2*NO3 + .22*r211*MACRO2*NO - + .65*r213*MACR*O3 + .56*r223*MVK*O3 + .62*r238*ISOP*O3 + .25*r243*XO2*CH3CO3 + .2*r244*XO2*CH3O2 - + .25*r246*XO2*NO + .5*r247*XO2*NO3 + r254*OCS*O + r255*OCS*OH + r309*Op*CO2 - - r158*OH*CO - d(CO2)/dt = j27*CH3COOOH + .44*j29*CH4 + .4*j43*PAN + r158*CO*OH + 2*r171*CH3CO3*CH3CO3 - + .9*r172*CH3CO3*CH3O2 + r174*CH3CO3*NO + r175*CH3COOH*OH + .5*r176*CH3COOOH*OH - + .8*r181*GLYALD*OH + r182*GLYOXAL*OH + .2*r188*C3H6*O3 + 2*r216*MCO3*CH3CO3 + r217*MCO3*CH3O2 - + .45*r218*MCO3*HO2 + 2*r219*MCO3*MCO3 + .5*r222*M*MPAN*OH + .1*r223*MVK*O3 + r243*XO2*CH3CO3 - - j31*CO2 - j82*CO2 - r309*Op*CO2 + + 2*j34*GLYOXAL + 1.34*j38*MACR + .7*j40*MVK + j42*ONITR + j82*CO2 + j109*OCS + r68*CL*CH2O + + r104*BR*CH2O + r136*CH3CL*CL + r148*CH2O*NO3 + r149*CH2O*O + r150*CH2O*OH + .63*r163*C2H4*O3 + + r185*GLYOXAL*OH + .56*r191*C3H6*O3 + r197*CH3COCHO*NO3 + r198*CH3COCHO*OH + + .22*r210*MACRO2*CH3CO3 + .11*r211*MACRO2*CH3O2 + .22*r213*MACRO2*NO3 + .22*r214*MACRO2*NO + + .65*r216*MACR*O3 + .56*r226*MVK*O3 + .62*r241*ISOP*O3 + .25*r246*XO2*CH3CO3 + .2*r247*XO2*CH3O2 + + .25*r249*XO2*NO + .5*r250*XO2*NO3 + r257*OCS*O + r258*OCS*OH + r312*Op*CO2 + - r161*OH*CO + d(CO2)/dt = j27*CH3COOOH + .44*j29*CH4 + .4*j43*PAN + r161*CO*OH + 2*r174*CH3CO3*CH3CO3 + + .9*r175*CH3CO3*CH3O2 + r177*CH3CO3*NO + r178*CH3COOH*OH + .5*r179*CH3COOOH*OH + + .8*r184*GLYALD*OH + r185*GLYOXAL*OH + .2*r191*C3H6*O3 + 2*r219*MCO3*CH3CO3 + r220*MCO3*CH3O2 + + .45*r221*MCO3*HO2 + 2*r222*MCO3*MCO3 + .5*r225*M*MPAN*OH + .1*r226*MVK*O3 + r246*XO2*CH3CO3 + - j31*CO2 - j82*CO2 - r312*Op*CO2 d(COF2)/dt = j52*CF2CLBR + j53*CF3BR + j55*CFC113 + 2*j56*CFC114 + 2*j57*CFC115 + j58*CFC12 + 2*j71*H2402 - + j74*HCFC142B + j75*HCFC22 + r91*O1D*CF2CLBR + r93*O1D*CFC113 + 2*r94*O1D*CFC114 - + 2*r95*O1D*CFC115 + r96*O1D*CFC12 + r117*O1D*CF3BR + 2*r119*O1D*H2402 + r138*HCFC142B*OH - + r139*HCFC22*OH + r143*O1D*HCFC142B + r144*O1D*HCFC22 - - j69*COF2 - r126*O1D*COF2 - d(COFCL)/dt = j54*CFC11 + j55*CFC113 + j73*HCFC141B + r92*O1D*CFC11 + r93*O1D*CFC113 + r137*HCFC141B*OH - + r142*O1D*HCFC141B - - j70*COFCL - r127*O1D*COFCL - d(DMS)/dt = - r252*NO3*DMS - r253*OH*DMS - r267*OH*DMS + + j74*HCFC142B + j75*HCFC22 + r94*O1D*CF2CLBR + r96*O1D*CFC113 + 2*r97*O1D*CFC114 + + 2*r98*O1D*CFC115 + r99*O1D*CFC12 + r120*O1D*CF3BR + 2*r122*O1D*H2402 + r141*HCFC142B*OH + + r142*HCFC22*OH + r146*O1D*HCFC142B + r147*O1D*HCFC22 + - j69*COF2 - r129*O1D*COF2 + d(COFCL)/dt = j54*CFC11 + j55*CFC113 + j73*HCFC141B + r95*O1D*CFC11 + r96*O1D*CFC113 + r140*HCFC141B*OH + + r145*O1D*HCFC141B + - j70*COFCL - r130*O1D*COFCL + d(DMS)/dt = - r255*NO3*DMS - r256*OH*DMS - r270*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 - d(EO)/dt = j32*EOOH + .75*r178*EO2*NO - - r179*EO - r180*O2*EO - d(EO2)/dt = r184*M*C2H4*OH - - r177*HO2*EO2 - r178*NO*EO2 - d(EOOH)/dt = r177*EO2*HO2 + d(EO)/dt = j32*EOOH + .75*r181*EO2*NO + - r182*EO - r183*O2*EO + d(EO2)/dt = r187*M*C2H4*OH + - r180*HO2*EO2 - r181*NO*EO2 + d(EOOH)/dt = r180*EO2*HO2 - j32*EOOH - d(F)/dt = j53*CF3BR + j57*CFC115 + 2*j69*COF2 + j70*COFCL + j77*HF + r95*O1D*CFC115 + r117*O1D*CF3BR - + 2*r126*O1D*COF2 + r127*O1D*COFCL - - r122*CH4*F - r123*H2*F - r124*H2O*F - r125*HNO3*F - d(GLYALD)/dt = r180*EO*O2 + .53*r207*MACRO2*CH3CO3 + .26*r208*MACRO2*CH3O2 + .53*r210*MACRO2*NO3 - + .53*r211*MACRO2*NO + .02*r236*ISOPO2*NO + .25*r243*XO2*CH3CO3 + .1*r244*XO2*CH3O2 - + .25*r246*XO2*NO + .25*r247*XO2*NO3 - - j33*GLYALD - r181*OH*GLYALD - d(GLYOXAL)/dt = .2*r181*GLYALD*OH + .02*r236*ISOPO2*NO + .25*r243*XO2*CH3CO3 + .1*r244*XO2*CH3O2 - + .25*r246*XO2*NO + .25*r247*XO2*NO3 - - j34*GLYOXAL - r182*OH*GLYOXAL + d(F)/dt = j53*CF3BR + j57*CFC115 + 2*j69*COF2 + j70*COFCL + j77*HF + r98*O1D*CFC115 + r120*O1D*CF3BR + + 2*r129*O1D*COF2 + r130*O1D*COFCL + - r125*CH4*F - r126*H2*F - r127*H2O*F - r128*HNO3*F + d(GLYALD)/dt = r183*EO*O2 + .53*r210*MACRO2*CH3CO3 + .26*r211*MACRO2*CH3O2 + .53*r213*MACRO2*NO3 + + .53*r214*MACRO2*NO + .02*r239*ISOPO2*NO + .25*r246*XO2*CH3CO3 + .1*r247*XO2*CH3O2 + + .25*r249*XO2*NO + .25*r250*XO2*NO3 + - j33*GLYALD - r184*OH*GLYALD + d(GLYOXAL)/dt = .2*r184*GLYALD*OH + .02*r239*ISOPO2*NO + .25*r246*XO2*CH3CO3 + .1*r247*XO2*CH3O2 + + .25*r249*XO2*NO + .25*r250*XO2*NO3 + - j34*GLYOXAL - r185*OH*GLYOXAL d(H)/dt = j2*H2O + 2*j3*H2O + 2*j22*CH2O + j28*CH3OOH + .33*j29*CH4 + j30*CH4 + j72*HBR + j76*HCL + j77*HF - + r3*O1D*H2 + r21*H2*O + r30*OH*H2 + r33*OH*O + r53*N*OH + r67*CL*H2 + r98*O1D*HCL - + r121*O1D*HBR + r123*F*H2 + r147*CH2O*OH + r156*O1D*CH4 + r255*OCS*OH + r261*S*OH + r266*SO*OH + + r3*O1D*H2 + r21*H2*O + r30*OH*H2 + r33*OH*O + r53*N*OH + r70*CL*H2 + r101*O1D*HCL + + r124*O1D*HBR + r126*F*H2 + r150*CH2O*OH + r159*O1D*CH4 + r258*OCS*OH + r264*S*OH + r269*SO*OH - r23*HO2*H - r24*HO2*H - r25*HO2*H - r26*M*O2*H - r29*O3*H - d(H2)/dt = j1*H2O + j23*CH2O + 1.4400001*j29*CH4 + r23*H*HO2 + r157*O1D*CH4 - - r3*O1D*H2 - r21*O*H2 - r30*OH*H2 - r67*CL*H2 - r123*F*H2 - d(H2402)/dt = - j71*H2402 - r119*O1D*H2402 + d(H2)/dt = j1*H2O + j23*CH2O + 1.4400001*j29*CH4 + r23*H*HO2 + r160*O1D*CH4 + - r3*O1D*H2 - r21*O*H2 - r30*OH*H2 - r70*CL*H2 - r126*F*H2 + d(H2402)/dt = - j71*H2402 - r122*O1D*H2402 d(H2O2)/dt = r36*M*OH*OH + r37*HO2*HO2 - - j4*H2O2 - r22*O*H2O2 - r31*OH*H2O2 - r68*CL*H2O2 - d(H2SO4)/dt = r268*SO3*H2O + - j4*H2O2 - r22*O*H2O2 - r31*OH*H2O2 - r71*CL*H2O2 + d(H2SO4)/dt = r271*SO3*H2O - j108*H2SO4 - d(HBR)/dt = r101*BR*CH2O + r102*BR*HO2 - - j72*HBR - r114*O*HBR - r115*OH*HBR - r120*O1D*HBR - r121*O1D*HBR - d(HCFC141B)/dt = - j73*HCFC141B - r137*OH*HCFC141B - r142*O1D*HCFC141B - d(HCFC142B)/dt = - j74*HCFC142B - r138*OH*HCFC142B - r143*O1D*HCFC142B - d(HCFC22)/dt = - j75*HCFC22 - r139*OH*HCFC22 - r144*O1D*HCFC22 - d(HCL)/dt = r65*CL*CH2O + r66*CL*CH4 + r67*CL*H2 + r68*CL*H2O2 + r69*CL*HO2 + r84*CLO*OH + r87*HOCL*CL - + r128*CH2BR2*CL + r130*CH3BR*CL + 2*r133*CH3CL*CL + r135*CHBR3*CL + r167*C2H6*CL - - j76*HCL - r85*O*HCL - r86*OH*HCL - r97*O1D*HCL - r98*O1D*HCL - r278*HOCL*HCL - - r283*CLONO2*HCL - r284*HOCL*HCL - r285*HOBR*HCL - r288*CLONO2*HCL - r289*HOCL*HCL - - r290*HOBR*HCL - r293*CLONO2*HCL - d(HF)/dt = r122*F*CH4 + r123*F*H2 + r124*F*H2O + r125*F*HNO3 + d(HBR)/dt = r104*BR*CH2O + r105*BR*HO2 + - j72*HBR - r117*O*HBR - r118*OH*HBR - r123*O1D*HBR - r124*O1D*HBR + d(HCFC141B)/dt = - j73*HCFC141B - r140*OH*HCFC141B - r145*O1D*HCFC141B + d(HCFC142B)/dt = - j74*HCFC142B - r141*OH*HCFC142B - r146*O1D*HCFC142B + d(HCFC22)/dt = - j75*HCFC22 - r142*OH*HCFC22 - r147*O1D*HCFC22 + d(HCL)/dt = r68*CL*CH2O + r69*CL*CH4 + r70*CL*H2 + r71*CL*H2O2 + r72*CL*HO2 + r87*CLO*OH + r90*HOCL*CL + + r131*CH2BR2*CL + r133*CH3BR*CL + 2*r136*CH3CL*CL + r138*CHBR3*CL + r170*C2H6*CL + - j76*HCL - r88*O*HCL - r89*OH*HCL - r100*O1D*HCL - r101*O1D*HCL - r281*HOCL*HCL + - r286*CLONO2*HCL - r287*HOCL*HCL - r288*HOBR*HCL - r291*CLONO2*HCL - r292*HOCL*HCL + - r293*HOBR*HCL - r296*CLONO2*HCL + d(HF)/dt = r125*F*CH4 + r126*F*H2 + r127*F*H2O + r128*F*HNO3 - j77*HF - d(HNO3)/dt = 2*r271*N2O5 + .5*r273*NO2 + r274*NO3 + r275*ONITR + 2*r277*N2O5 + r279*BRONO2 + 2*r280*N2O5 - + r281*CLONO2 + r282*BRONO2 + r286*CLONO2 + r287*BRONO2 + 2*r291*N2O5 + r292*CLONO2 - + r61*M*NO2*OH + r145*CH2O*NO3 + r169*CH3CHO*NO3 + r194*CH3COCHO*NO3 + r252*DMS*NO3 - + r283*CLONO2*HCL + r288*CLONO2*HCL + r293*CLONO2*HCL - - j9*HNO3 - r62*OH*HNO3 - r125*F*HNO3 + d(HNO3)/dt = 2*r274*N2O5 + .5*r276*NO2 + r277*NO3 + r278*ONITR + 2*r280*N2O5 + r282*BRONO2 + 2*r283*N2O5 + + r284*CLONO2 + r285*BRONO2 + r289*CLONO2 + r290*BRONO2 + 2*r294*N2O5 + r295*CLONO2 + + r61*M*NO2*OH + r148*CH2O*NO3 + r172*CH3CHO*NO3 + r197*CH3COCHO*NO3 + r255*DMS*NO3 + + r286*CLONO2*HCL + r291*CLONO2*HCL + r296*CLONO2*HCL + - j9*HNO3 - r62*OH*HNO3 - r128*F*HNO3 d(HO2NO2)/dt = r59*M*NO2*HO2 - - j10*HO2NO2 - j11*HO2NO2 - r63*M*HO2NO2 - r38*OH*HO2NO2 - d(HOBR)/dt = r279*BRONO2 + r282*BRONO2 + r287*BRONO2 + r108*BRO*HO2 - - j78*HOBR - r116*O*HOBR - r285*HCL*HOBR - r290*HCL*HOBR - d(HOCL)/dt = r281*CLONO2 + r286*CLONO2 + r292*CLONO2 + r76*CLO*HO2 + r81*CLONO2*OH - - j79*HOCL - r87*CL*HOCL - r88*O*HOCL - r89*OH*HOCL - r278*HCL*HOCL - r284*HCL*HOCL - - r289*HCL*HOCL - d(HYAC)/dt = .5*r200*POOH*OH + .2*r201*RO2*CH3O2 + .22*r207*MACRO2*CH3CO3 + .23*r208*MACRO2*CH3O2 - + .22*r210*MACRO2*NO3 + .22*r211*MACRO2*NO + .5*r222*M*MPAN*OH + .02*r236*ISOPO2*NO - + .25*r243*XO2*CH3CO3 + .1*r244*XO2*CH3O2 + .25*r246*XO2*NO + .25*r247*XO2*NO3 - - j35*HYAC - r196*OH*HYAC - d(HYDRALD)/dt = .4*r233*ISOPO2*CH3CO3 + .3*r234*ISOPO2*CH3O2 + .33*r236*ISOPO2*NO + .4*r237*ISOPO2*NO3 - + r241*ONITR*NO3 + r242*ONITR*OH - - r228*OH*HYDRALD - d(ISOP)/dt = - r229*NO3*ISOP - r238*O3*ISOP - r239*OH*ISOP - d(ISOPNO3)/dt = r229*ISOP*NO3 - - r230*HO2*ISOPNO3 - r231*NO*ISOPNO3 - r232*NO3*ISOPNO3 - d(ISOPO2)/dt = r239*ISOP*OH + .2*r240*ISOPOOH*OH + 1.7*r249*TERP*NO3 + 1.64*r251*TERP*OH - - r233*CH3CO3*ISOPO2 - r234*CH3O2*ISOPO2 - r235*HO2*ISOPO2 - r236*NO*ISOPO2 - r237*NO3*ISOPO2 - d(ISOPOOH)/dt = r235*ISOPO2*HO2 - - j36*ISOPOOH - r240*OH*ISOPOOH - d(MACR)/dt = .288*j36*ISOPOOH + .167*r230*ISOPNO3*HO2 + .167*r231*ISOPNO3*NO + .167*r232*ISOPNO3*NO3 - + .25*r233*ISOPO2*CH3CO3 + .19*r234*ISOPO2*CH3O2 + .23*r236*ISOPO2*NO + .25*r237*ISOPO2*NO3 - + .3*r238*ISOP*O3 + 1.122*r250*TERP*O3 - - j37*MACR - j38*MACR - r213*O3*MACR - r214*OH*MACR - d(MACRO2)/dt = .5*r214*MACR*OH + .2*r215*MACROOH*OH + r224*MVK*OH - - r207*CH3CO3*MACRO2 - r208*CH3O2*MACRO2 - r209*HO2*MACRO2 - r210*NO3*MACRO2 - r211*NO*MACRO2 - - r212*NO*MACRO2 - d(MACROOH)/dt = r209*MACRO2*HO2 - - r215*OH*MACROOH - d(MCO3)/dt = .66*j37*MACR + j39*MPAN + r226*M*MPAN + .5*r214*MACR*OH + .5*r215*MACROOH*OH - - r216*CH3CO3*MCO3 - r217*CH3O2*MCO3 - r218*HO2*MCO3 - 2*r219*MCO3*MCO3 - r220*NO*MCO3 - - r221*NO3*MCO3 - r225*M*NO2*MCO3 - d(MPAN)/dt = r225*M*MCO3*NO2 - - j39*MPAN - r226*M*MPAN - r222*M*OH*MPAN - d(MVK)/dt = .402*j36*ISOPOOH + .039*r230*ISOPNO3*HO2 + .039*r231*ISOPNO3*NO + .039*r232*ISOPNO3*NO3 - + .35*r233*ISOPO2*CH3CO3 + .26*r234*ISOPO2*CH3O2 + .32*r236*ISOPO2*NO + .35*r237*ISOPO2*NO3 - + .2*r238*ISOP*O3 + .442*r250*TERP*O3 - - j40*MVK - r223*O3*MVK - r224*OH*MVK - d(N)/dt = .8*j85*N2 + .8*j86*N2 + j89*N2 + j90*N2 + j16*NO + r310*N2*Op + r39*N2D*O + .2*r297*NOp*e - + 1.1*r299*N2p*e + r303*Np*O + r304*Np*O2 - - j83*N - r41*NO*N - r42*NO2*N - r43*NO2*N - r44*NO2*N - r45*O2*N - r53*OH*N - r306*O2p*N - d(N2O)/dt = r42*N*NO2 + - j10*HO2NO2 - j11*HO2NO2 - r63*M*HO2NO2 - r39*OH*HO2NO2 + d(HOBR)/dt = r282*BRONO2 + r285*BRONO2 + r290*BRONO2 + r111*BRO*HO2 + - j78*HOBR - r119*O*HOBR - r288*HCL*HOBR - r293*HCL*HOBR + d(HOCL)/dt = r284*CLONO2 + r289*CLONO2 + r295*CLONO2 + r79*CLO*HO2 + r84*CLONO2*OH + - j79*HOCL - r90*CL*HOCL - r91*O*HOCL - r92*OH*HOCL - r281*HCL*HOCL - r287*HCL*HOCL + - r292*HCL*HOCL + d(HYAC)/dt = .5*r203*POOH*OH + .2*r204*RO2*CH3O2 + .22*r210*MACRO2*CH3CO3 + .23*r211*MACRO2*CH3O2 + + .22*r213*MACRO2*NO3 + .22*r214*MACRO2*NO + .5*r225*M*MPAN*OH + .02*r239*ISOPO2*NO + + .25*r246*XO2*CH3CO3 + .1*r247*XO2*CH3O2 + .25*r249*XO2*NO + .25*r250*XO2*NO3 + - j35*HYAC - r199*OH*HYAC + d(HYDRALD)/dt = .4*r236*ISOPO2*CH3CO3 + .3*r237*ISOPO2*CH3O2 + .33*r239*ISOPO2*NO + .4*r240*ISOPO2*NO3 + + r244*ONITR*NO3 + r245*ONITR*OH + - r231*OH*HYDRALD + d(ISOP)/dt = - r232*NO3*ISOP - r241*O3*ISOP - r242*OH*ISOP + d(ISOPNO3)/dt = r232*ISOP*NO3 + - r233*HO2*ISOPNO3 - r234*NO*ISOPNO3 - r235*NO3*ISOPNO3 + d(ISOPO2)/dt = r242*ISOP*OH + .2*r243*ISOPOOH*OH + 1.7*r252*TERP*NO3 + 1.64*r254*TERP*OH + - r236*CH3CO3*ISOPO2 - r237*CH3O2*ISOPO2 - r238*HO2*ISOPO2 - r239*NO*ISOPO2 - r240*NO3*ISOPO2 + d(ISOPOOH)/dt = r238*ISOPO2*HO2 + - j36*ISOPOOH - r243*OH*ISOPOOH + d(MACR)/dt = .3*j36*ISOPOOH + .167*r233*ISOPNO3*HO2 + .167*r234*ISOPNO3*NO + .167*r235*ISOPNO3*NO3 + + .25*r236*ISOPO2*CH3CO3 + .19*r237*ISOPO2*CH3O2 + .23*r239*ISOPO2*NO + .25*r240*ISOPO2*NO3 + + .3*r241*ISOP*O3 + 1.122*r253*TERP*O3 + - j37*MACR - j38*MACR - r216*O3*MACR - r217*OH*MACR + d(MACRO2)/dt = .5*r217*MACR*OH + .2*r218*MACROOH*OH + r227*MVK*OH + - r210*CH3CO3*MACRO2 - r211*CH3O2*MACRO2 - r212*HO2*MACRO2 - r213*NO3*MACRO2 - r214*NO*MACRO2 + - r215*NO*MACRO2 + d(MACROOH)/dt = r212*MACRO2*HO2 + - r218*OH*MACROOH + d(MCO3)/dt = .66*j37*MACR + j39*MPAN + r229*M*MPAN + .5*r217*MACR*OH + .5*r218*MACROOH*OH + - r219*CH3CO3*MCO3 - r220*CH3O2*MCO3 - r221*HO2*MCO3 - 2*r222*MCO3*MCO3 - r223*NO*MCO3 + - r224*NO3*MCO3 - r228*M*NO2*MCO3 + d(MPAN)/dt = r228*M*MCO3*NO2 + - j39*MPAN - r229*M*MPAN - r225*M*OH*MPAN + d(MVK)/dt = .7*j36*ISOPOOH + .039*r233*ISOPNO3*HO2 + .039*r234*ISOPNO3*NO + .039*r235*ISOPNO3*NO3 + + .35*r236*ISOPO2*CH3CO3 + .26*r237*ISOPO2*CH3O2 + .32*r239*ISOPO2*NO + .35*r240*ISOPO2*NO3 + + .2*r241*ISOP*O3 + .442*r253*TERP*O3 + - j40*MVK - r226*O3*MVK - r227*OH*MVK + d(N)/dt = .8*j85*N2 + .8*j86*N2 + j89*N2 + j90*N2 + j16*NO + r38*N2D + r313*N2*Op + r41*N2D*O + r64*N2D*e + + .2*r300*NOp*e + 1.1*r302*N2p*e + r306*Np*O + r307*Np*O2 + - j83*N - r42*NO*N - r43*NO2*N - r44*NO2*N - r45*NO2*N - r53*OH*N - r67*O2*N - r309*O2p*N + d(N2O)/dt = r43*N*NO2 - j12*N2O - r57*O1D*N2O - r58*O1D*N2O d(N2O5)/dt = r60*M*NO2*NO3 - - j13*N2O5 - j14*N2O5 - r64*M*N2O5 - r271*N2O5 - r277*N2O5 - r280*N2O5 - r291*N2O5 + - j13*N2O5 - j14*N2O5 - r66*M*N2O5 - r274*N2O5 - r280*N2O5 - r283*N2O5 - r294*N2O5 d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NH3)/dt = - r269*OH*NH3 - d(NH4)/dt = - r272*NH4 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r273*NO2 + r307*N2*O2p + r320*N2*Op2P + r40*N2D*O2 - + 2*r43*N*NO2 + r45*N*O2 + r46*NO2*O + r53*N*OH + 2*r57*O1D*N2O + r262*SO*NO2 - - j15*NO - j16*NO - r41*N*NO - r50*NO3*NO - r54*HO2*NO - r55*O3*NO - r56*M*O*NO - r77*CLO*NO - - r109*BRO*NO - r151*CH3O2*NO - r164*C2H5O2*NO - r174*CH3CO3*NO - r178*EO2*NO - r191*C3H7O2*NO - - r199*PO2*NO - r203*RO2*NO - r211*MACRO2*NO - r212*MACRO2*NO - r220*MCO3*NO - r231*ISOPNO3*NO - - r236*ISOPO2*NO - r246*XO2*NO - r308*O2p*NO + d(NH3)/dt = - r272*OH*NH3 + d(NH4)/dt = - r275*NH4 + d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r276*NO2 + r310*N2*O2p + r323*N2*Op2P + 2*r44*N*NO2 + + r46*NO2*O + r53*N*OH + 2*r57*O1D*N2O + r65*N2D*O2 + r67*N*O2 + r265*SO*NO2 + - j15*NO - j16*NO - r40*N2D*NO - r42*N*NO - r50*NO3*NO - r54*HO2*NO - r55*O3*NO - r56*M*O*NO + - r80*CLO*NO - r112*BRO*NO - r154*CH3O2*NO - r167*C2H5O2*NO - r177*CH3CO3*NO - r181*EO2*NO + - r194*C3H7O2*NO - r202*PO2*NO - r206*RO2*NO - r214*MACRO2*NO - r215*MACRO2*NO - r223*MCO3*NO + - r234*ISOPNO3*NO - r239*ISOPO2*NO - r249*XO2*NO - r311*O2p*NO d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j39*MPAN + j41*NOA + j42*ONITR + .6*j43*PAN - + j49*BRONO2 + j68*CLONO2 + r63*M*HO2NO2 + r64*M*N2O5 + r186*M*PAN + r226*M*MPAN - + r38*HO2NO2*OH + r49*NO3*HO2 + 2*r50*NO3*NO + r51*NO3*O + r52*NO3*OH + r54*NO*HO2 + r55*NO*O3 - + r56*M*NO*O + r77*CLO*NO + r109*BRO*NO + r151*CH3O2*NO + r164*C2H5O2*NO + r174*CH3CO3*NO - + r178*EO2*NO + r191*C3H7O2*NO + r197*NOA*OH + r199*PO2*NO + r203*RO2*NO + r210*MACRO2*NO3 - + r211*MACRO2*NO + r220*MCO3*NO + r221*MCO3*NO3 + .206*r230*ISOPNO3*HO2 + 1.206*r231*ISOPNO3*NO - + 1.206*r232*ISOPNO3*NO3 + .92*r236*ISOPO2*NO + r237*ISOPO2*NO3 + r241*ONITR*NO3 - + .4*r242*ONITR*OH + r246*XO2*NO + r247*XO2*NO3 + r249*TERP*NO3 - - j17*NO2 - r273*NO2 - r42*N*NO2 - r43*N*NO2 - r44*N*NO2 - r46*O*NO2 - r47*O3*NO2 - - r48*M*O*NO2 - r59*M*HO2*NO2 - r60*M*NO3*NO2 - r61*M*OH*NO2 - r79*M*CLO*NO2 - r110*M*BRO*NO2 - - r185*M*CH3CO3*NO2 - r225*M*MCO3*NO2 - r262*SO*NO2 - d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j43*PAN + j50*BRONO2 + j67*CLONO2 + r64*M*N2O5 - + r47*NO2*O3 + r48*M*NO2*O + r62*HNO3*OH + r78*CLONO2*CL + r80*CLONO2*O + r81*CLONO2*OH - + r111*BRONO2*O + r125*F*HNO3 + r183*PAN*OH + .5*r222*M*MPAN*OH - - j18*NO3 - j19*NO3 - r274*NO3 - r49*HO2*NO3 - r50*NO*NO3 - r51*O*NO3 - r52*OH*NO3 - - r60*M*NO2*NO3 - r145*CH2O*NO3 - r169*CH3CHO*NO3 - r187*C3H6*NO3 - r194*CH3COCHO*NO3 - - r210*MACRO2*NO3 - r221*MCO3*NO3 - r229*ISOP*NO3 - r232*ISOPNO3*NO3 - r237*ISOPO2*NO3 - - r241*ONITR*NO3 - r247*XO2*NO3 - r249*TERP*NO3 - r252*DMS*NO3 - d(NOA)/dt = r187*C3H6*NO3 - - j41*NOA - r197*OH*NOA + + j49*BRONO2 + j68*CLONO2 + r63*M*HO2NO2 + r66*M*N2O5 + r189*M*PAN + r229*M*MPAN + + r39*HO2NO2*OH + r49*NO3*HO2 + 2*r50*NO3*NO + r51*NO3*O + r52*NO3*OH + r54*NO*HO2 + r55*NO*O3 + + r56*M*NO*O + r80*CLO*NO + r112*BRO*NO + r154*CH3O2*NO + r167*C2H5O2*NO + r177*CH3CO3*NO + + r181*EO2*NO + r194*C3H7O2*NO + r200*NOA*OH + r202*PO2*NO + r206*RO2*NO + r213*MACRO2*NO3 + + r214*MACRO2*NO + r223*MCO3*NO + r224*MCO3*NO3 + .206*r233*ISOPNO3*HO2 + 1.206*r234*ISOPNO3*NO + + 1.206*r235*ISOPNO3*NO3 + .92*r239*ISOPO2*NO + r240*ISOPO2*NO3 + r244*ONITR*NO3 + + .4*r245*ONITR*OH + r249*XO2*NO + r250*XO2*NO3 + r252*TERP*NO3 + - j17*NO2 - r276*NO2 - r43*N*NO2 - r44*N*NO2 - r45*N*NO2 - r46*O*NO2 - r47*O3*NO2 + - r48*M*O*NO2 - r59*M*HO2*NO2 - r60*M*NO3*NO2 - r61*M*OH*NO2 - r82*M*CLO*NO2 - r113*M*BRO*NO2 + - r188*M*CH3CO3*NO2 - r228*M*MCO3*NO2 - r265*SO*NO2 + d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j43*PAN + j50*BRONO2 + j67*CLONO2 + r66*M*N2O5 + + r47*NO2*O3 + r48*M*NO2*O + r62*HNO3*OH + r81*CLONO2*CL + r83*CLONO2*O + r84*CLONO2*OH + + r114*BRONO2*O + r128*F*HNO3 + r186*PAN*OH + .5*r225*M*MPAN*OH + - j18*NO3 - j19*NO3 - r277*NO3 - r49*HO2*NO3 - r50*NO*NO3 - r51*O*NO3 - r52*OH*NO3 + - r60*M*NO2*NO3 - r148*CH2O*NO3 - r172*CH3CHO*NO3 - r190*C3H6*NO3 - r197*CH3COCHO*NO3 + - r213*MACRO2*NO3 - r224*MCO3*NO3 - r232*ISOP*NO3 - r235*ISOPNO3*NO3 - r240*ISOPO2*NO3 + - r244*ONITR*NO3 - r250*XO2*NO3 - r252*TERP*NO3 - r255*DMS*NO3 + d(NOA)/dt = r190*C3H6*NO3 + - j41*NOA - r200*OH*NOA d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -1129,152 +1132,153 @@ Extraneous prod/loss species d(O)/dt = j3*H2O + j5*O2 + 2*j6*O2 + j8*O3 + j14*N2O5 + j16*NO + j17*NO2 + j18*NO3 + .18*j29*CH4 + j31*CO2 + j48*BRO + j66*CLO + j80*OCLO + j82*CO2 + j98*O2 + 2*j99*O2 + j100*O2 + j101*O2 + j103*O2 + 2*j104*O2 + j105*O2 + j106*O2 + j110*SO + j111*SO2 + j112*SO3 + r5*N2*O1D - + r314*N2*Op2D + r319*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + 2*r9*O1D*O3 + r25*H*HO2 + r35*OH*OH - + r41*N*NO + r42*N*NO2 + r45*N*O2 + .765*r250*TERP*O3 + r256*S*O2 + r263*SO*O2 + r297*NOp*e - + 1.15*r298*O2p*e + r305*Np*O2 + r306*O2p*N + r311*Op*N2D + r312*Op*O2 + r316*Op2D*O2 + + r317*N2*Op2D + r322*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + 2*r9*O1D*O3 + r25*H*HO2 + r35*OH*OH + + r40*N2D*NO + r42*N*NO + r43*N*NO2 + r67*N*O2 + .765*r253*TERP*O3 + r259*S*O2 + r266*SO*O2 + + r300*NOp*e + 1.15*r301*O2p*e + r308*Np*O2 + r309*O2p*N + r314*Op*N2D + r315*Op*O2 + + r319*Op2D*O2 - j92*O - j93*O - j94*O - j95*O - j96*O - j97*O - r18*O3*O - 2*r19*M*O*O - r20*M*O2*O - r21*H2*O - r22*H2O2*O - r27*HO2*O - r33*OH*O - r46*NO2*O - r48*M*NO2*O - r51*NO3*O - - r56*M*NO*O - r80*CLONO2*O - r82*CLO*O - r85*HCL*O - r88*HOCL*O - r111*BRONO2*O - r112*BRO*O - - r114*HBR*O - r116*HOBR*O - r146*CH2O*O - r254*OCS*O - r301*N2p*O - r302*N2p*O - r303*Np*O + - r56*M*NO*O - r83*CLONO2*O - r85*CLO*O - r88*HCL*O - r91*HOCL*O - r114*BRONO2*O - r115*BRO*O + - r117*HBR*O - r119*HOBR*O - r149*CH2O*O - r257*OCS*O - r304*N2p*O - r305*N2p*O - r306*Np*O d(O2)/dt = j8*O3 + j19*NO3 + r1*O2_1D + r2*O2_1S + r10*N2*O2_1D + r8*O1D*O3 + r8*O1D*O3 + r9*O1D*O3 + r11*O2_1D*O + 2*r12*O2_1D*O2 + 2*r18*O*O3 + r19*M*O*O + r23*H*HO2 + r27*HO2*O + 2*r28*HO2*O3 - + r29*H*O3 + r32*OH*HO2 + r33*OH*O + r34*OH*O3 + r37*HO2*HO2 + r38*HO2NO2*OH + r44*N*NO2 - + r46*NO2*O + r47*NO2*O3 + r49*NO3*HO2 + r51*NO3*O + r55*NO*O3 + r58*O1D*N2O + r69*CL*HO2 - + r71*CL*O3 + r73*CLO*CLO + r74*CLO*CLO + r76*CLO*HO2 + r82*CLO*O + r84*CLO*OH + r102*BR*HO2 - + r103*BR*O3 + r104*BRO*BRO + r106*BRO*CLO + r107*BRO*CLO + r108*BRO*HO2 + r112*BRO*O - + r150*CH3O2*HO2 + r163*C2H5O2*HO2 + r190*C3H7O2*HO2 + r198*PO2*HO2 + r258*S*O3 + r264*SO*O3 - + r308*O2p*NO + + r29*H*O3 + r32*OH*HO2 + r33*OH*O + r34*OH*O3 + r37*HO2*HO2 + r39*HO2NO2*OH + r45*N*NO2 + + r46*NO2*O + r47*NO2*O3 + r49*NO3*HO2 + r51*NO3*O + r55*NO*O3 + r58*O1D*N2O + r72*CL*HO2 + + r74*CL*O3 + r76*CLO*CLO + r77*CLO*CLO + r79*CLO*HO2 + r85*CLO*O + r87*CLO*OH + r105*BR*HO2 + + r106*BR*O3 + r107*BRO*BRO + r109*BRO*CLO + r110*BRO*CLO + r111*BRO*HO2 + r115*BRO*O + + r153*CH3O2*HO2 + r166*C2H5O2*HO2 + r193*C3H7O2*HO2 + r201*PO2*HO2 + r261*S*O3 + r267*SO*O3 + + r311*O2p*NO - j5*O2 - j6*O2 - j98*O2 - j99*O2 - j100*O2 - j101*O2 - j102*O2 - j103*O2 - j104*O2 - j105*O2 - - j106*O2 - j107*O2 - r6*O1D*O2 - r12*O2_1D*O2 - r20*M*O*O2 - r26*M*H*O2 - r40*N2D*O2 - - r45*N*O2 - r180*EO*O2 - r256*S*O2 - r263*SO*O2 - r300*N2p*O2 - r304*Np*O2 - r305*Np*O2 - - r312*Op*O2 - r316*Op2D*O2 - d(O3)/dt = r20*M*O*O2 + .15*r173*CH3CO3*HO2 + .15*r218*MCO3*HO2 + - j106*O2 - j107*O2 - r6*O1D*O2 - r12*O2_1D*O2 - r20*M*O*O2 - r26*M*H*O2 - r65*N2D*O2 + - r67*N*O2 - r183*EO*O2 - r259*S*O2 - r266*SO*O2 - r303*N2p*O2 - r307*Np*O2 - r308*Np*O2 + - r315*Op*O2 - r319*Op2D*O2 + d(O3)/dt = r20*M*O*O2 + .15*r176*CH3CO3*HO2 + .15*r221*MCO3*HO2 - j7*O3 - j8*O3 - r8*O1D*O3 - r9*O1D*O3 - r18*O*O3 - r28*HO2*O3 - r29*H*O3 - r34*OH*O3 - - r47*NO2*O3 - r55*NO*O3 - r71*CL*O3 - r103*BR*O3 - r160*C2H4*O3 - r188*C3H6*O3 - r213*MACR*O3 - - r223*MVK*O3 - r238*ISOP*O3 - r250*TERP*O3 - r258*S*O3 - r264*SO*O3 - d(OCLO)/dt = r75*CLO*CLO + r105*BRO*CLO - - j80*OCLO - r265*SO*OCLO - d(OCS)/dt = - j109*OCS - r254*O*OCS - r255*OH*OCS + - r47*NO2*O3 - r55*NO*O3 - r74*CL*O3 - r106*BR*O3 - r163*C2H4*O3 - r191*C3H6*O3 - r216*MACR*O3 + - r226*MVK*O3 - r241*ISOP*O3 - r253*TERP*O3 - r261*S*O3 - r267*SO*O3 + d(OCLO)/dt = r78*CLO*CLO + r108*BRO*CLO + - j80*OCLO - r268*SO*OCLO + d(OCS)/dt = - j109*OCS - r257*O*OCS - r258*OH*OCS d(OH)/dt = j2*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j20*C2H5OOH + j21*C3H7OOH + j27*CH3COOOH - + j28*CH3OOH + .33*j29*CH4 + j32*EOOH + j44*POOH + j45*ROOH + j46*XOOH + j78*HOBR + j79*HOCL - + .5*r273*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r21*H2*O + r22*H2O2*O + 2*r24*H*HO2 + r27*HO2*O - + r28*HO2*O3 + r29*H*O3 + r49*NO3*HO2 + r54*NO*HO2 + r70*CL*HO2 + r85*HCL*O + r88*HOCL*O - + r97*O1D*HCL + r114*HBR*O + r116*HOBR*O + r120*O1D*HBR + r124*F*H2O + r146*CH2O*O - + .3*r153*CH3OOH*OH + r155*O1D*CH4 + .13*r160*C2H4*O3 + .5*r166*C2H5OOH*OH + .45*r173*CH3CO3*HO2 - + .36*r188*C3H6*O3 + .5*r200*POOH*OH + .15*r202*RO2*HO2 + .24*r213*MACR*O3 + .1*r215*MACROOH*OH - + .45*r218*MCO3*HO2 + .36*r223*MVK*O3 + .206*r230*ISOPNO3*HO2 + .32*r238*ISOP*O3 + .5*r248*XOOH*OH - + 1.156*r250*TERP*O3 + + j28*CH3OOH + .33*j29*CH4 + j32*EOOH + j36*ISOPOOH + j44*POOH + j45*ROOH + j46*XOOH + j78*HOBR + + j79*HOCL + .5*r276*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r21*H2*O + r22*H2O2*O + 2*r24*H*HO2 + + r27*HO2*O + r28*HO2*O3 + r29*H*O3 + r49*NO3*HO2 + r54*NO*HO2 + r73*CL*HO2 + r88*HCL*O + + r91*HOCL*O + r100*O1D*HCL + r117*HBR*O + r119*HOBR*O + r123*O1D*HBR + r127*F*H2O + r149*CH2O*O + + .3*r156*CH3OOH*OH + r158*O1D*CH4 + .13*r163*C2H4*O3 + .5*r169*C2H5OOH*OH + .45*r176*CH3CO3*HO2 + + .36*r191*C3H6*O3 + .5*r203*POOH*OH + .15*r205*RO2*HO2 + .24*r216*MACR*O3 + .1*r218*MACROOH*OH + + .45*r221*MCO3*HO2 + .36*r226*MVK*O3 + .206*r233*ISOPNO3*HO2 + .32*r241*ISOP*O3 + .5*r251*XOOH*OH + + 1.156*r253*TERP*O3 - r30*H2*OH - r31*H2O2*OH - r32*HO2*OH - r33*O*OH - r34*O3*OH - 2*r35*OH*OH - 2*r36*M*OH*OH - - r38*HO2NO2*OH - r52*NO3*OH - r53*N*OH - r61*M*NO2*OH - r62*HNO3*OH - r81*CLONO2*OH - - r83*CLO*OH - r84*CLO*OH - r86*HCL*OH - r89*HOCL*OH - r113*BRO*OH - r115*HBR*OH - - r129*CH2BR2*OH - r131*CH3BR*OH - r132*CH3CCL3*OH - r134*CH3CL*OH - r136*CHBR3*OH - - r137*HCFC141B*OH - r138*HCFC142B*OH - r139*HCFC22*OH - r147*CH2O*OH - r152*CH3OH*OH - - r153*CH3OOH*OH - r154*CH4*OH - r158*CO*OH - r165*C2H5OH*OH - r166*C2H5OOH*OH - r168*C2H6*OH - - r170*CH3CHO*OH - r175*CH3COOH*OH - r176*CH3COOOH*OH - r181*GLYALD*OH - r182*GLYOXAL*OH - - r183*PAN*OH - r184*M*C2H4*OH - r192*C3H7OOH*OH - r193*C3H8*OH - r195*CH3COCHO*OH - r196*HYAC*OH - - r197*NOA*OH - r200*POOH*OH - r204*ROOH*OH - r205*M*C3H6*OH - r206*CH3COCH3*OH - r214*MACR*OH - - r215*MACROOH*OH - r222*M*MPAN*OH - r224*MVK*OH - r227*BIGALK*OH - r228*HYDRALD*OH - - r239*ISOP*OH - r240*ISOPOOH*OH - r242*ONITR*OH - r248*XOOH*OH - r251*TERP*OH - r253*DMS*OH - - r255*OCS*OH - r257*M*SO2*OH - r261*S*OH - r266*SO*OH - r267*DMS*OH - r269*NH3*OH - d(ONITR)/dt = .8*r212*MACRO2*NO + .794*r230*ISOPNO3*HO2 + .794*r231*ISOPNO3*NO + .794*r232*ISOPNO3*NO3 - + .08*r236*ISOPO2*NO - - j42*ONITR - r275*ONITR - r241*NO3*ONITR - r242*OH*ONITR - d(PAN)/dt = r185*M*CH3CO3*NO2 - - j43*PAN - r186*M*PAN - r183*OH*PAN - d(PO2)/dt = .5*r200*POOH*OH + r205*M*C3H6*OH - - r198*HO2*PO2 - r199*NO*PO2 + - r39*HO2NO2*OH - r52*NO3*OH - r53*N*OH - r61*M*NO2*OH - r62*HNO3*OH - r84*CLONO2*OH + - r86*CLO*OH - r87*CLO*OH - r89*HCL*OH - r92*HOCL*OH - r116*BRO*OH - r118*HBR*OH + - r132*CH2BR2*OH - r134*CH3BR*OH - r135*CH3CCL3*OH - r137*CH3CL*OH - r139*CHBR3*OH + - r140*HCFC141B*OH - r141*HCFC142B*OH - r142*HCFC22*OH - r150*CH2O*OH - r155*CH3OH*OH + - r156*CH3OOH*OH - r157*CH4*OH - r161*CO*OH - r168*C2H5OH*OH - r169*C2H5OOH*OH - r171*C2H6*OH + - r173*CH3CHO*OH - r178*CH3COOH*OH - r179*CH3COOOH*OH - r184*GLYALD*OH - r185*GLYOXAL*OH + - r186*PAN*OH - r187*M*C2H4*OH - r195*C3H7OOH*OH - r196*C3H8*OH - r198*CH3COCHO*OH - r199*HYAC*OH + - r200*NOA*OH - r203*POOH*OH - r207*ROOH*OH - r208*M*C3H6*OH - r209*CH3COCH3*OH - r217*MACR*OH + - r218*MACROOH*OH - r225*M*MPAN*OH - r227*MVK*OH - r230*BIGALK*OH - r231*HYDRALD*OH + - r242*ISOP*OH - r243*ISOPOOH*OH - r245*ONITR*OH - r251*XOOH*OH - r254*TERP*OH - r256*DMS*OH + - r258*OCS*OH - r260*M*SO2*OH - r264*S*OH - r269*SO*OH - r270*DMS*OH - r272*NH3*OH + d(ONITR)/dt = .8*r215*MACRO2*NO + .794*r233*ISOPNO3*HO2 + .794*r234*ISOPNO3*NO + .794*r235*ISOPNO3*NO3 + + .08*r239*ISOPO2*NO + - j42*ONITR - r278*ONITR - r244*NO3*ONITR - r245*OH*ONITR + d(PAN)/dt = r188*M*CH3CO3*NO2 + - j43*PAN - r189*M*PAN - r186*OH*PAN + d(PO2)/dt = .5*r203*POOH*OH + r208*M*C3H6*OH + - r201*HO2*PO2 - r202*NO*PO2 d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 - d(POOH)/dt = r198*PO2*HO2 - - j44*POOH - r200*OH*POOH - d(RO2)/dt = r204*ROOH*OH + r206*CH3COCH3*OH - - r201*CH3O2*RO2 - r202*HO2*RO2 - r203*NO*RO2 - d(ROOH)/dt = .85*r202*RO2*HO2 - - j45*ROOH - r204*OH*ROOH + d(POOH)/dt = r201*PO2*HO2 + - j44*POOH - r203*OH*POOH + d(RO2)/dt = r207*ROOH*OH + r209*CH3COCH3*OH + - r204*CH3O2*RO2 - r205*HO2*RO2 - r206*NO*RO2 + d(ROOH)/dt = .85*r205*RO2*HO2 + - j45*ROOH - r207*OH*ROOH d(S)/dt = j109*OCS + j110*SO - - r256*O2*S - r258*O3*S - r261*OH*S + - r259*O2*S - r261*O3*S - r264*OH*S d(SF6)/dt = - j81*SF6 - d(SO)/dt = j111*SO2 + r254*OCS*O + r256*S*O2 + r258*S*O3 + r261*S*OH - - j110*SO - r259*BRO*SO - r260*CLO*SO - r262*NO2*SO - r263*O2*SO - r264*O3*SO - r265*OCLO*SO - - r266*OH*SO - d(SO2)/dt = j112*SO3 + r252*DMS*NO3 + r253*DMS*OH + r255*OCS*OH + r259*SO*BRO + r260*SO*CLO + r262*SO*NO2 - + r263*SO*O2 + r264*SO*O3 + r265*SO*OCLO + r266*SO*OH + .5*r267*DMS*OH - - j111*SO2 - r257*M*OH*SO2 - d(SO3)/dt = j108*H2SO4 + r257*M*SO2*OH - - j112*SO3 - r268*H2O*SO3 + d(SO)/dt = j111*SO2 + r257*OCS*O + r259*S*O2 + r261*S*O3 + r264*S*OH + - j110*SO - r262*BRO*SO - r263*CLO*SO - r265*NO2*SO - r266*O2*SO - r267*O3*SO - r268*OCLO*SO + - r269*OH*SO + d(SO2)/dt = j112*SO3 + r255*DMS*NO3 + r256*DMS*OH + r258*OCS*OH + r262*SO*BRO + r263*SO*CLO + r265*SO*NO2 + + r266*SO*O2 + r267*SO*O3 + r268*SO*OCLO + r269*SO*OH + .5*r270*DMS*OH + - j111*SO2 - r260*M*OH*SO2 + d(SO3)/dt = j108*H2SO4 + r260*M*SO2*OH + - j112*SO3 - r271*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 d(so4_a5)/dt = 0 d(soa_a1)/dt = - j113*soa_a1 d(soa_a2)/dt = - j114*soa_a2 - d(SOAE)/dt = - r276*SOAE - d(SOAG)/dt = r276*SOAE - d(TERP)/dt = - r249*NO3*TERP - r250*O3*TERP - r251*OH*TERP - d(XO2)/dt = r228*HYDRALD*OH + .8*r240*ISOPOOH*OH + .5*r248*XOOH*OH - - r243*CH3CO3*XO2 - r244*CH3O2*XO2 - r245*HO2*XO2 - r246*NO*XO2 - r247*NO3*XO2 - d(XOOH)/dt = r245*XO2*HO2 - - j46*XOOH - r248*OH*XOOH - d(NHDEP)/dt = r272*NH4 + r269*NH3*OH - d(NDEP)/dt = .5*r222*M*MPAN*OH + d(SOAE)/dt = - r279*SOAE + d(SOAG)/dt = r279*SOAE + d(TERP)/dt = - r252*NO3*TERP - r253*O3*TERP - r254*OH*TERP + d(XO2)/dt = r231*HYDRALD*OH + .8*r243*ISOPOOH*OH + .5*r251*XOOH*OH + - r246*CH3CO3*XO2 - r247*CH3O2*XO2 - r248*HO2*XO2 - r249*NO*XO2 - r250*NO3*XO2 + d(XOOH)/dt = r248*XO2*HO2 + - j46*XOOH - r251*OH*XOOH + d(NHDEP)/dt = r275*NH4 + r272*NH3*OH + d(NDEP)/dt = .5*r225*M*MPAN*OH + r244*ONITR*NO3 + .6*r245*ONITR*OH d(e)/dt = j84*N2 + j87*N2 + j88*N2 + j89*N2 + j90*N2 + j91*N2 + j15*NO + j83*N + j92*O + j93*O + j94*O + j95*O + j96*O + j97*O + j98*O2 + j100*O2 + j101*O2 + j102*O2 + j103*O2 + j105*O2 + j106*O2 + j107*O2 - - r297*NOp*e - r298*O2p*e - r299*N2p*e + - r300*NOp*e - r301*O2p*e - r302*N2p*e d(HO2)/dt = j11*HO2NO2 + j20*C2H5OOH + j21*C3H7OOH + j24*CH3CHO + j26*CH3COCHO + 2*j33*GLYALD + 2*j34*GLYOXAL + j35*HYAC + j36*ISOPOOH + 1.34*j37*MACR + .66*j38*MACR + j42*ONITR + j44*POOH - + r63*M*HO2NO2 + r179*EO + r22*H2O2*O + r26*M*H*O2 + r31*OH*H2O2 + r34*OH*O3 + r52*NO3*OH - + r65*CL*CH2O + r68*CL*H2O2 + r72*CLO*CH3O2 + r83*CLO*OH + r101*BR*CH2O + r113*BRO*OH - + r130*CH3BR*CL + r131*CH3BR*OH + r133*CH3CL*CL + r134*CH3CL*OH + r145*CH2O*NO3 + r146*CH2O*O - + 2*r148*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + r156*O1D*CH4 + r158*CO*OH - + .13*r160*C2H4*O3 + 1.2*r161*C2H5O2*C2H5O2 + r162*C2H5O2*CH3O2 + r164*C2H5O2*NO + r165*C2H5OH*OH - + .9*r172*CH3CO3*CH3O2 + .25*r178*EO2*NO + r180*EO*O2 + r181*GLYALD*OH + r182*GLYOXAL*OH - + .28*r188*C3H6*O3 + r189*C3H7O2*CH3O2 + r191*C3H7O2*NO + r196*HYAC*OH + r199*PO2*NO - + .3*r201*RO2*CH3O2 + .47*r207*MACRO2*CH3CO3 + .73*r208*MACRO2*CH3O2 + .47*r210*MACRO2*NO3 - + .47*r211*MACRO2*NO + .14*r213*MACR*O3 + .2*r215*MACROOH*OH + r217*MCO3*CH3O2 - + .5*r222*M*MPAN*OH + .28*r223*MVK*O3 + .794*r231*ISOPNO3*NO + .794*r232*ISOPNO3*NO3 - + r233*ISOPO2*CH3CO3 + r234*ISOPO2*CH3O2 + .92*r236*ISOPO2*NO + r237*ISOPO2*NO3 - + .37*r238*ISOP*O3 + r241*ONITR*NO3 + r242*ONITR*OH + r243*XO2*CH3CO3 + .8*r244*XO2*CH3O2 - + r246*XO2*NO + r247*XO2*NO3 + r257*M*SO2*OH + .5*r267*DMS*OH - - r270*HO2 - r23*H*HO2 - r24*H*HO2 - r25*H*HO2 - r27*O*HO2 - r28*O3*HO2 - r32*OH*HO2 - - 2*r37*HO2*HO2 - r49*NO3*HO2 - r54*NO*HO2 - r59*M*NO2*HO2 - r69*CL*HO2 - r70*CL*HO2 - - r76*CLO*HO2 - r102*BR*HO2 - r108*BRO*HO2 - r150*CH3O2*HO2 - r163*C2H5O2*HO2 - r173*CH3CO3*HO2 - - r177*EO2*HO2 - r190*C3H7O2*HO2 - r198*PO2*HO2 - r202*RO2*HO2 - r209*MACRO2*HO2 - r218*MCO3*HO2 - - r230*ISOPNO3*HO2 - r235*ISOPO2*HO2 - r245*XO2*HO2 - d(N2D)/dt = 1.2*j85*N2 + 1.2*j86*N2 + j87*N2 + j91*N2 + .8*r297*NOp*e + .9*r299*N2p*e + r301*N2p*O - - r39*O*N2D - r40*O2*N2D - r311*Op*N2D - d(N2p)/dt = j84*N2 + j88*N2 + r314*N2*Op2D + r319*N2*Op2P - - r299*e*N2p - r300*O2*N2p - r301*O*N2p - r302*O*N2p - d(NOp)/dt = j15*NO + r307*N2*O2p + r310*N2*Op + r301*N2p*O + r305*Np*O2 + r306*O2p*N + r308*O2p*NO - - r297*e*NOp - d(Np)/dt = j87*N2 + j89*N2 + j90*N2 + j91*N2 + j83*N + r320*N2*Op2P + r311*Op*N2D - - r303*O*Np - r304*O2*Np - r305*O2*Np - d(O1D)/dt = j1*H2O + j5*O2 + j7*O3 + j12*N2O + r40*N2D*O2 + .85*r298*O2p*e + + r63*M*HO2NO2 + r182*EO + r22*H2O2*O + r26*M*H*O2 + r31*OH*H2O2 + r34*OH*O3 + r52*NO3*OH + + r68*CL*CH2O + r71*CL*H2O2 + r75*CLO*CH3O2 + r86*CLO*OH + r104*BR*CH2O + r116*BRO*OH + + r133*CH3BR*CL + r134*CH3BR*OH + r136*CH3CL*CL + r137*CH3CL*OH + r148*CH2O*NO3 + r149*CH2O*O + + 2*r151*CH3O2*CH3O2 + r154*CH3O2*NO + r155*CH3OH*OH + r159*O1D*CH4 + r161*CO*OH + + .13*r163*C2H4*O3 + 1.2*r164*C2H5O2*C2H5O2 + r165*C2H5O2*CH3O2 + r167*C2H5O2*NO + r168*C2H5OH*OH + + .9*r175*CH3CO3*CH3O2 + .25*r181*EO2*NO + r183*EO*O2 + r184*GLYALD*OH + r185*GLYOXAL*OH + + .28*r191*C3H6*O3 + r192*C3H7O2*CH3O2 + r194*C3H7O2*NO + r199*HYAC*OH + r202*PO2*NO + + .3*r204*RO2*CH3O2 + .47*r210*MACRO2*CH3CO3 + .73*r211*MACRO2*CH3O2 + .47*r213*MACRO2*NO3 + + .47*r214*MACRO2*NO + .14*r216*MACR*O3 + .2*r218*MACROOH*OH + r220*MCO3*CH3O2 + + .5*r225*M*MPAN*OH + .28*r226*MVK*O3 + .794*r234*ISOPNO3*NO + .794*r235*ISOPNO3*NO3 + + r236*ISOPO2*CH3CO3 + r237*ISOPO2*CH3O2 + .92*r239*ISOPO2*NO + r240*ISOPO2*NO3 + + .37*r241*ISOP*O3 + r244*ONITR*NO3 + r245*ONITR*OH + r246*XO2*CH3CO3 + .8*r247*XO2*CH3O2 + + r249*XO2*NO + r250*XO2*NO3 + r260*M*SO2*OH + .5*r270*DMS*OH + - r273*HO2 - r23*H*HO2 - r24*H*HO2 - r25*H*HO2 - r27*O*HO2 - r28*O3*HO2 - r32*OH*HO2 + - 2*r37*HO2*HO2 - r49*NO3*HO2 - r54*NO*HO2 - r59*M*NO2*HO2 - r72*CL*HO2 - r73*CL*HO2 + - r79*CLO*HO2 - r105*BR*HO2 - r111*BRO*HO2 - r153*CH3O2*HO2 - r166*C2H5O2*HO2 - r176*CH3CO3*HO2 + - r180*EO2*HO2 - r193*C3H7O2*HO2 - r201*PO2*HO2 - r205*RO2*HO2 - r212*MACRO2*HO2 - r221*MCO3*HO2 + - r233*ISOPNO3*HO2 - r238*ISOPO2*HO2 - r248*XO2*HO2 + d(N2D)/dt = 1.2*j85*N2 + 1.2*j86*N2 + j87*N2 + j91*N2 + .8*r300*NOp*e + .9*r302*N2p*e + r304*N2p*O + - r38*N2D - r40*NO*N2D - r41*O*N2D - r64*e*N2D - r65*O2*N2D - r314*Op*N2D + d(N2p)/dt = j84*N2 + j88*N2 + r317*N2*Op2D + r322*N2*Op2P + - r302*e*N2p - r303*O2*N2p - r304*O*N2p - r305*O*N2p + d(NOp)/dt = j15*NO + r310*N2*O2p + r313*N2*Op + r304*N2p*O + r308*Np*O2 + r309*O2p*N + r311*O2p*NO + - r300*e*NOp + d(Np)/dt = j87*N2 + j89*N2 + j90*N2 + j91*N2 + j83*N + r323*N2*Op2P + r314*Op*N2D + - r306*O*Np - r307*O2*Np - r308*O2*Np + d(O1D)/dt = j1*H2O + j5*O2 + j7*O3 + j12*N2O + r65*N2D*O2 + .85*r301*O2p*e - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r9*O3*O1D - - r57*N2O*O1D - r58*N2O*O1D - r90*CCL4*O1D - r91*CF2CLBR*O1D - r92*CFC11*O1D - r93*CFC113*O1D - - r94*CFC114*O1D - r95*CFC115*O1D - r96*CFC12*O1D - r97*HCL*O1D - r98*HCL*O1D - r117*CF3BR*O1D - - r118*CHBR3*O1D - r119*H2402*O1D - r120*HBR*O1D - r121*HBR*O1D - r126*COF2*O1D - r127*COFCL*O1D - - r140*CH2BR2*O1D - r141*CH3BR*O1D - r142*HCFC141B*O1D - r143*HCFC142B*O1D - r144*HCFC22*O1D - - r155*CH4*O1D - r156*CH4*O1D - r157*CH4*O1D + - r57*N2O*O1D - r58*N2O*O1D - r93*CCL4*O1D - r94*CF2CLBR*O1D - r95*CFC11*O1D - r96*CFC113*O1D + - r97*CFC114*O1D - r98*CFC115*O1D - r99*CFC12*O1D - r100*HCL*O1D - r101*HCL*O1D - r120*CF3BR*O1D + - r121*CHBR3*O1D - r122*H2402*O1D - r123*HBR*O1D - r124*HBR*O1D - r129*COF2*O1D - r130*COFCL*O1D + - r143*CH2BR2*O1D - r144*CH3BR*O1D - r145*HCFC141B*O1D - r146*HCFC142B*O1D - r147*HCFC22*O1D + - r158*CH4*O1D - r159*CH4*O1D - r160*CH4*O1D d(O2_1D)/dt = j7*O3 + r14*N2*O2_1S + r13*O2_1S*CO2 + r15*O2_1S*O + r16*O2_1S*O2 + r17*O2_1S*O3 - r1*O2_1D - r10*N2*O2_1D - r11*O*O2_1D - r12*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - r2*O2_1S - r14*N2*O2_1S - r13*CO2*O2_1S - r15*O*O2_1S - r16*O2*O2_1S - r17*O3*O2_1S - d(O2p)/dt = j102*O2 + j107*O2 + r300*N2p*O2 + r304*Np*O2 + r309*Op*CO2 + r312*Op*O2 + r316*Op2D*O2 - - r307*N2*O2p - r298*e*O2p - r306*N*O2p - r308*NO*O2p - d(Op)/dt = j93*O + j97*O + j103*O2 + j106*O2 + r294*Op2P + r295*Op2D + r302*N2p*O + r303*Np*O - + r313*Op2D*e + r315*Op2D*O + r318*Op2P*e + r321*Op2P*O - - r310*N2*Op - r309*CO2*Op - r311*N2D*Op - r312*O2*Op - d(Op2D)/dt = j94*O + j95*O + j98*O2 + j100*O2 + r296*Op2P + r317*Op2P*e - - r295*Op2D - r314*N2*Op2D - r313*e*Op2D - r315*O*Op2D - r316*O2*Op2D + d(O2p)/dt = j102*O2 + j107*O2 + r303*N2p*O2 + r307*Np*O2 + r312*Op*CO2 + r315*Op*O2 + r319*Op2D*O2 + - r310*N2*O2p - r301*e*O2p - r309*N*O2p - r311*NO*O2p + d(Op)/dt = j93*O + j97*O + j103*O2 + j106*O2 + r297*Op2P + r298*Op2D + r305*N2p*O + r306*Np*O + + r316*Op2D*e + r318*Op2D*O + r321*Op2P*e + r324*Op2P*O + - r313*N2*Op - r312*CO2*Op - r314*N2D*Op - r315*O2*Op + d(Op2D)/dt = j94*O + j95*O + j98*O2 + j100*O2 + r299*Op2P + r320*Op2P*e + - r298*Op2D - r317*N2*Op2D - r316*e*Op2D - r318*O*Op2D - r319*O2*Op2D d(Op2P)/dt = j92*O + j96*O + j101*O2 + j105*O2 - - r294*Op2P - r296*Op2P - r319*N2*Op2P - r320*N2*Op2P - r317*e*Op2P - r318*e*Op2P - - r321*O*Op2P - d(H2O)/dt = .05*j29*CH4 + j108*H2SO4 + r270*HO2 + r25*H*HO2 + r30*OH*H2 + r31*OH*H2O2 + r32*OH*HO2 - + r35*OH*OH + r38*HO2NO2*OH + r62*HNO3*OH + r86*HCL*OH + r89*HOCL*OH + r115*HBR*OH - + r129*CH2BR2*OH + r131*CH3BR*OH + r132*CH3CCL3*OH + r134*CH3CL*OH + r139*HCFC22*OH - + r147*CH2O*OH + r153*CH3OOH*OH + r154*CH4*OH + r168*C2H6*OH + r170*CH3CHO*OH + r175*CH3COOH*OH - + r176*CH3COOOH*OH + r192*C3H7OOH*OH + r193*C3H8*OH + r195*CH3COCHO*OH + r200*POOH*OH - + r204*ROOH*OH + r206*CH3COCH3*OH + .5*r214*MACR*OH + r269*NH3*OH + r278*HOCL*HCL - + r284*HOCL*HCL + r285*HOBR*HCL + r289*HOCL*HCL + r290*HOBR*HCL - - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r124*F*H2O - r268*SO3*H2O + - r297*Op2P - r299*Op2P - r322*N2*Op2P - r323*N2*Op2P - r320*e*Op2P - r321*e*Op2P + - r324*O*Op2P + d(H2O)/dt = .05*j29*CH4 + j108*H2SO4 + r273*HO2 + r25*H*HO2 + r30*OH*H2 + r31*OH*H2O2 + r32*OH*HO2 + + r35*OH*OH + r39*HO2NO2*OH + r62*HNO3*OH + r89*HCL*OH + r92*HOCL*OH + r118*HBR*OH + + r132*CH2BR2*OH + r134*CH3BR*OH + r135*CH3CCL3*OH + r137*CH3CL*OH + r142*HCFC22*OH + + r150*CH2O*OH + r156*CH3OOH*OH + r157*CH4*OH + r171*C2H6*OH + r173*CH3CHO*OH + r178*CH3COOH*OH + + r179*CH3COOOH*OH + r195*C3H7OOH*OH + r196*C3H8*OH + r198*CH3COCHO*OH + r203*POOH*OH + + r207*ROOH*OH + r209*CH3COCH3*OH + .5*r217*MACR*OH + r272*NH3*OH + r281*HOCL*HCL + + r287*HOCL*HCL + r288*HOBR*HCL + r292*HOCL*HCL + r293*HOBR*HCL + - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r127*F*H2O - r271*SO3*H2O diff --git a/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.in b/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.in index 5aa09212db..76a92adb75 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.in +++ b/src/chemistry/pp_waccm_t4ma_mam5/chem_mech.in @@ -1,11 +1,11 @@ * Comments -* User-given Tag Description: T4MA_MAM5 -* Tag database identifier : MZ358_T4MA_20241002 -* Tag created by : lke +* User-given Tag Description: T4MA +* Tag database identifier : MZ363_T4MA_20250224 +* Tag created by : jz * Tag created from branch : T4MA -* Tag created on : 2024-10-02 16:02:50.816732-06 +* Tag created on : 2025-02-24 16:09:18.005168-07 * Comments for this tag follow: -* lke : 2024-10-02 : T4 simpler tropospheric chemistry with full Middle Atmosphere (Strat, Meso, Lower Therm), with MAM5 aerosols +* jz : 2025-02-24 : added extra five nitrogen reactions (3 of them are user reactions) SPECIES @@ -359,540 +359,543 @@ ********************************* *** odd-oxygen ********************************* -[jh2o_b] H2O + hv -> H2 + O1D -[jh2o_a] H2O + hv -> OH + H -[jh2o_c] H2O + hv -> 2*H + O -[jh2o2] H2O2 + hv -> 2*OH -[jo2_a=userdefined,] O2 + hv -> O + O1D -[jo2_b=userdefined,] O2 + hv -> 2*O -[jo3_a] O3 + hv -> O1D + O2_1D -[jo3_b] O3 + hv -> O + O2 +[jh2o_b] H2O + hv -> H2 + O1D +[jh2o_a] H2O + hv -> OH + H +[jh2o_c] H2O + hv -> 2*H + O +[jh2o2] H2O2 + hv -> 2*OH +[jo2_a=userdefined,] O2 + hv -> O + O1D +[jo2_b=userdefined,] O2 + hv -> 2*O +[jo3_a] O3 + hv -> O1D + O2_1D +[jo3_b] O3 + hv -> O + O2 ********************************* *** odd-nitrogen ********************************* -[jhno3] HNO3 + hv -> NO2 + OH -[jho2no2_a] HO2NO2 + hv -> OH + NO3 -[jho2no2_b] HO2NO2 + hv -> NO2 + HO2 -[jn2o] N2O + hv -> O1D + N2 -[jn2o5_a] N2O5 + hv -> NO2 + NO3 -[jn2o5_b] N2O5 + hv -> NO + O + NO3 -[jno_i] NO + hv -> NOp + e -[jno=userdefined,] NO + hv -> N + O -[jno2] NO2 + hv -> NO + O -[jno3_a] NO3 + hv -> NO2 + O -[jno3_b] NO3 + hv -> NO + O2 +[jhno3] HNO3 + hv -> NO2 + OH +[jho2no2_a] HO2NO2 + hv -> OH + NO3 +[jho2no2_b] HO2NO2 + hv -> NO2 + HO2 +[jn2o] N2O + hv -> O1D + N2 +[jn2o5_a] N2O5 + hv -> NO2 + NO3 +[jn2o5_b] N2O5 + hv -> NO + O + NO3 +[jno_i] NO + hv -> NOp + e +[jno=userdefined,] NO + hv -> N + O +[jno2] NO2 + hv -> NO + O +[jno3_a] NO3 + hv -> NO2 + O +[jno3_b] NO3 + hv -> NO + O2 ********************************* *** organics ********************************* -[jc2h5ooh->,jch3ooh] C2H5OOH + hv -> CH3CHO + HO2 + OH -[jc3h7ooh->,jch3ooh] C3H7OOH + hv -> 0.82*CH3COCH3 + OH + HO2 -[jch2o_a] CH2O + hv -> CO + 2*H -[jch2o_b] CH2O + hv -> CO + H2 -[jch3cho] CH3CHO + hv -> CH3O2 + CO + HO2 -[jacet] CH3COCH3 + hv -> CH3CO3 + CH3O2 -[jmgly] CH3COCHO + hv -> CH3CO3 + CO + HO2 -[jch3co3h->,0.28*jh2o2] CH3COOOH + hv -> CH3O2 + OH + CO2 -[jch3ooh] CH3OOH + hv -> CH2O + H + OH -[jch4_b] CH4 + hv -> 1.44*H2 + 0.18*CH2O + 0.18*O + 0.33*OH + 0.33*H + 0.44*CO2 + 0.38*CO + 0.05*H2O -[jch4_a] CH4 + hv -> H + CH3O2 -[jco2] CO2 + hv -> CO + O -[jeooh->,jch3ooh] EOOH + hv -> EO + OH -[jglyald] GLYALD + hv -> 2*HO2 + CO + CH2O -[jglyoxal->,jmgly] GLYOXAL + hv -> 2*CO + 2*HO2 -[jhyac] HYAC + hv -> CH3CO3 + HO2 + CH2O -[jisopooh->,jch3ooh] ISOPOOH + hv -> 0.402*MVK + 0.288*MACR + 0.69*CH2O + HO2 -[jmacr_a] MACR + hv -> 1.34*HO2 + 0.66*MCO3 + 1.34*CH2O + 1.34*CH3CO3 -[jmacr_b] MACR + hv -> 0.66*HO2 + 1.34*CO -[jmpan->,jpan] MPAN + hv -> MCO3 + NO2 -[jmvk] MVK + hv -> 0.7*C3H6 + 0.7*CO + 0.3*CH3O2 + 0.3*CH3CO3 -[jnoa->,jch2o_a] NOA + hv -> NO2 + CH2O + CH3CO3 -[jonitr->,jch3cho] ONITR + hv -> HO2 + CO + NO2 + CH2O -[jpan] PAN + hv -> 0.6*CH3CO3 + 0.6*NO2 + 0.4*CH3O2 + 0.4*NO3 + 0.4*CO2 -[jpooh->,jch3ooh] POOH + hv -> CH3CHO + CH2O + HO2 + OH -[jrooh->,jch3ooh] ROOH + hv -> CH3CO3 + CH2O + OH -[jxooh->,jch3ooh] XOOH + hv -> OH +[jc2h5ooh->,jch3ooh] C2H5OOH + hv -> CH3CHO + HO2 + OH +[jc3h7ooh->,jch3ooh] C3H7OOH + hv -> 0.82*CH3COCH3 + OH + HO2 +[jch2o_a] CH2O + hv -> CO + 2*H +[jch2o_b] CH2O + hv -> CO + H2 +[jch3cho] CH3CHO + hv -> CH3O2 + CO + HO2 +[jacet] CH3COCH3 + hv -> CH3CO3 + CH3O2 +[jmgly] CH3COCHO + hv -> CH3CO3 + CO + HO2 +[jch3co3h->,0.28*jh2o2] CH3COOOH + hv -> CH3O2 + OH + CO2 +[jch3ooh] CH3OOH + hv -> CH2O + H + OH +[jch4_b] CH4 + hv -> 1.44*H2 + 0.18*CH2O + 0.18*O + 0.33*OH + 0.33*H + 0.44*CO2 + 0.38*CO + 0.05*H2O +[jch4_a] CH4 + hv -> H + CH3O2 +[jco2] CO2 + hv -> CO + O +[jeooh->,jch3ooh] EOOH + hv -> EO + OH +[jglyald] GLYALD + hv -> 2*HO2 + CO + CH2O +[jglyoxal->,jmgly] GLYOXAL + hv -> 2*CO + 2*HO2 +[jhyac] HYAC + hv -> CH3CO3 + HO2 + CH2O +[jisopooh->,jch3ooh] ISOPOOH + hv -> 0.7*MVK + 0.3*MACR + OH + CH2O + HO2 +[jmacr_a] MACR + hv -> 1.34*HO2 + 0.66*MCO3 + 1.34*CH2O + 1.34*CH3CO3 +[jmacr_b] MACR + hv -> 0.66*HO2 + 1.34*CO +[jmpan->,jpan] MPAN + hv -> MCO3 + NO2 +[jmvk] MVK + hv -> 0.7*C3H6 + 0.7*CO + 0.3*CH3O2 + 0.3*CH3CO3 +[jnoa->,jch2o_a] NOA + hv -> NO2 + CH2O + CH3CO3 +[jonitr->,jch3cho] ONITR + hv -> HO2 + CO + NO2 + CH2O +[jpan] PAN + hv -> 0.6*CH3CO3 + 0.6*NO2 + 0.4*CH3O2 + 0.4*NO3 + 0.4*CO2 +[jpooh->,jch3ooh] POOH + hv -> CH3CHO + CH2O + HO2 + OH +[jrooh->,jch3ooh] ROOH + hv -> CH3CO3 + CH2O + OH +[jxooh->,jch3ooh] XOOH + hv -> OH ********************************* *** halogens ********************************* -[jbrcl] BRCL + hv -> BR + CL -[jbro] BRO + hv -> BR + O -[jbrono2_b] BRONO2 + hv -> BRO + NO2 -[jbrono2_a] BRONO2 + hv -> BR + NO3 -[jccl4] CCL4 + hv -> 4*CL -[jcf2clbr] CF2CLBR + hv -> BR + CL + COF2 -[jcf3br] CF3BR + hv -> BR + F + COF2 -[jcfcl3] CFC11 + hv -> 2*CL + COFCL -[jcfc113] CFC113 + hv -> 2*CL + COFCL + COF2 -[jcfc114] CFC114 + hv -> 2*CL + 2*COF2 -[jcfc115] CFC115 + hv -> CL + F + 2*COF2 -[jcf2cl2] CFC12 + hv -> 2*CL + COF2 -[jch2br2] CH2BR2 + hv -> 2*BR -[jch3br] CH3BR + hv -> BR + CH3O2 -[jch3ccl3] CH3CCL3 + hv -> 3*CL -[jch3cl] CH3CL + hv -> CL + CH3O2 -[jchbr3] CHBR3 + hv -> 3*BR -[jcl2] CL2 + hv -> 2*CL -[jcl2o2] CL2O2 + hv -> 2*CL -[jclo] CLO + hv -> CL + O -[jclono2_a] CLONO2 + hv -> CL + NO3 -[jclono2_b] CLONO2 + hv -> CLO + NO2 -[jcof2] COF2 + hv -> 2*F -[jcofcl] COFCL + hv -> F + CL -[jh2402] H2402 + hv -> 2*BR + 2*COF2 -[jhbr] HBR + hv -> BR + H -[jhcfc141b] HCFC141B + hv -> CL + COFCL -[jhcfc142b] HCFC142B + hv -> CL + COF2 -[jhcfc22] HCFC22 + hv -> CL + COF2 -[jhcl] HCL + hv -> H + CL -[jhf] HF + hv -> H + F -[jhobr] HOBR + hv -> BR + OH -[jhocl] HOCL + hv -> OH + CL -[joclo] OCLO + hv -> O + CLO -[jsf6] SF6 + hv -> sink +[jbrcl] BRCL + hv -> BR + CL +[jbro] BRO + hv -> BR + O +[jbrono2_b] BRONO2 + hv -> BRO + NO2 +[jbrono2_a] BRONO2 + hv -> BR + NO3 +[jccl4] CCL4 + hv -> 4*CL +[jcf2clbr] CF2CLBR + hv -> BR + CL + COF2 +[jcf3br] CF3BR + hv -> BR + F + COF2 +[jcfcl3] CFC11 + hv -> 2*CL + COFCL +[jcfc113] CFC113 + hv -> 2*CL + COFCL + COF2 +[jcfc114] CFC114 + hv -> 2*CL + 2*COF2 +[jcfc115] CFC115 + hv -> CL + F + 2*COF2 +[jcf2cl2] CFC12 + hv -> 2*CL + COF2 +[jch2br2] CH2BR2 + hv -> 2*BR +[jch3br] CH3BR + hv -> BR + CH3O2 +[jch3ccl3] CH3CCL3 + hv -> 3*CL +[jch3cl] CH3CL + hv -> CL + CH3O2 +[jchbr3] CHBR3 + hv -> 3*BR +[jcl2] CL2 + hv -> 2*CL +[jcl2o2] CL2O2 + hv -> 2*CL +[jclo] CLO + hv -> CL + O +[jclono2_a] CLONO2 + hv -> CL + NO3 +[jclono2_b] CLONO2 + hv -> CLO + NO2 +[jcof2] COF2 + hv -> 2*F +[jcofcl] COFCL + hv -> F + CL +[jh2402] H2402 + hv -> 2*BR + 2*COF2 +[jhbr] HBR + hv -> BR + H +[jhcfc141b] HCFC141B + hv -> CL + COFCL +[jhcfc142b] HCFC142B + hv -> CL + COF2 +[jhcfc22] HCFC22 + hv -> CL + COF2 +[jhcl] HCL + hv -> H + CL +[jhf] HF + hv -> H + F +[jhobr] HOBR + hv -> BR + OH +[jhocl] HOCL + hv -> OH + CL +[joclo] OCLO + hv -> O + CLO +[jsf6] SF6 + hv -> sink ********************************* *** ions ********************************* -[jeuv_26=userdefined,userdefined] CO2 + hv -> CO + O -[jeuv_4=userdefined,userdefined] N + hv -> Np + e -[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e -[jeuv_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_11=userdefined,userdefined] N2 + hv -> N2D + Np + e -[jeuv_6=userdefined,userdefined] N2 + hv -> N2p + e -[jeuv_10=userdefined,userdefined] N2 + hv -> N + Np + e -[jeuv_22=userdefined,userdefined] N2 + hv -> N + Np + e -[jeuv_23=userdefined,userdefined] N2 + hv -> N2D + Np + e -[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_14=userdefined,userdefined] O + hv -> Op + e -[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_1=userdefined,userdefined] O + hv -> Op + e -[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_26=userdefined,userdefined] CO2 + hv -> CO + O +[jeuv_4=userdefined,userdefined] N + hv -> Np + e +[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e +[jeuv_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_11=userdefined,userdefined] N2 + hv -> N2D + Np + e +[jeuv_6=userdefined,userdefined] N2 + hv -> N2p + e +[jeuv_10=userdefined,userdefined] N2 + hv -> N + Np + e +[jeuv_22=userdefined,userdefined] N2 + hv -> N + Np + e +[jeuv_23=userdefined,userdefined] N2 + hv -> N2D + Np + e +[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_14=userdefined,userdefined] O + hv -> Op + e +[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_1=userdefined,userdefined] O + hv -> Op + e +[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e ********************************* *** sulfur ********************************* -[jh2so4] H2SO4 + hv -> SO3 + H2O -[jocs] OCS + hv -> S + CO -[jso] SO + hv -> S + O -[jso2] SO2 + hv -> SO + O -[jso3] SO3 + hv -> SO2 + O +[jh2so4] H2SO4 + hv -> SO3 + H2O +[jocs] OCS + hv -> S + CO +[jso] SO + hv -> S + O +[jso2] SO2 + hv -> SO + O +[jso3] SO3 + hv -> SO2 + O ********************************* *** soa ********************************* -[jsoa_a1->,.0004*jno2] soa_a1 + hv -> -[jsoa_a2->,.0004*jno2] soa_a2 + hv -> +[jsoa_a1->,.0004*jno2] soa_a1 + hv -> +[jsoa_a2->,.0004*jno2] soa_a2 + hv -> End Photolysis Reactions ********************************* *** odd-oxygen ********************************* -[ag1] O2_1D -> O2 ; 0.000258 -[ag2] O2_1S -> O2 ; 0.085 -[O1D_H2] O1D + H2 -> H + OH ; 1.2e-10 -[O1D_H2O] O1D + H2O -> 2*OH ; 1.63e-10, 60 -[O1D_N2,cph=189.81] O1D + N2 -> O + N2 ; 2.15e-11, 110 -[O1D_O2,cph=32.91] O1D + O2 -> O + O2_1S ; 2.64e-11, 55 -[O1D_O2b,cph=189.81] O1D + O2 -> O + O2 ; 6.6e-12, 55 -[O1D_O3] O1D + O3 -> O2 + O2 ; 1.2e-10 -[O1D_O3a] O1D + O3 -> O2 + 2*O ; 1.2e-10 -[O2_1D_N2,cph=94.3] O2_1D + N2 -> O2 + N2 ; 1e-20 -[O2_1D_O,cph=94.3] O2_1D + O -> O2 + O ; 1.3e-16 -[O2_1D_O2,cph=94.3] O2_1D + O2 -> 2*O2 ; 3.6e-18, -220 -[O2_1S_CO2] O2_1S + CO2 -> O2_1D + CO2 ; 4.2e-13 -[O2_1S_N2,cph=62.6] O2_1S + N2 -> O2_1D + N2 ; 1.8e-15, 45 -[O2_1S_O,cph=62.6] O2_1S + O -> O2_1D + O ; 8e-14 -[O2_1S_O2,cph=62.6] O2_1S + O2 -> O2_1D + O2 ; 3.9e-17 -[O2_1S_O3,cph=62.6] O2_1S + O3 -> O2_1D + O3 ; 3.5e-11, -135 -[O_O3,cph=392.19] O + O3 -> 2*O2 ; 8e-12, -2060 -[usr_O_O,cph=493.58] O + O + M -> O2 + M -[usr_O_O2,cph=101.39] O + O2 + M -> O3 + M +[ag1] O2_1D -> O2 ; 0.000258 +[ag2] O2_1S -> O2 ; 0.085 +[O1D_H2] O1D + H2 -> H + OH ; 1.2e-10 +[O1D_H2O] O1D + H2O -> 2*OH ; 1.63e-10, 60 +[O1D_N2,cph=189.81] O1D + N2 -> O + N2 ; 2.15e-11, 110 +[O1D_O2,cph=32.91] O1D + O2 -> O + O2_1S ; 2.64e-11, 55 +[O1D_O2b,cph=189.81] O1D + O2 -> O + O2 ; 6.6e-12, 55 +[O1D_O3] O1D + O3 -> O2 + O2 ; 1.2e-10 +[O1D_O3a] O1D + O3 -> O2 + 2*O ; 1.2e-10 +[O2_1D_N2,cph=94.3] O2_1D + N2 -> O2 + N2 ; 1e-20 +[O2_1D_O,cph=94.3] O2_1D + O -> O2 + O ; 1.3e-16 +[O2_1D_O2,cph=94.3] O2_1D + O2 -> 2*O2 ; 3.6e-18, -220 +[O2_1S_CO2] O2_1S + CO2 -> O2_1D + CO2 ; 4.2e-13 +[O2_1S_N2,cph=62.6] O2_1S + N2 -> O2_1D + N2 ; 1.8e-15, 45 +[O2_1S_O,cph=62.6] O2_1S + O -> O2_1D + O ; 8e-14 +[O2_1S_O2,cph=62.6] O2_1S + O2 -> O2_1D + O2 ; 3.9e-17 +[O2_1S_O3,cph=62.6] O2_1S + O3 -> O2_1D + O3 ; 3.5e-11, -135 +[O_O3,cph=392.19] O + O3 -> 2*O2 ; 8e-12, -2060 +[usr_O_O,cph=493.58] O + O + M -> O2 + M +[usr_O_O2,cph=101.39] O + O2 + M -> O3 + M ********************************* *** odd-hydrogen ********************************* -[H2_O] H2 + O -> OH + H ; 1.6e-11, -4570 -[H2O2_O] H2O2 + O -> OH + HO2 ; 1.4e-12, -2000 -[H_HO2,cph=232.59] H + HO2 -> H2 + O2 ; 6.9e-12 -[H_HO2a] H + HO2 -> 2*OH ; 7.2e-11 -[H_HO2b] H + HO2 -> H2O + O ; 1.6e-12 -[H_O2,cph=203.4] H + O2 + M -> HO2 + M ; 5.3e-32, 1.8, 9.5e-11, -0.4, 0.6 -[HO2_O,cph=226.58] HO2 + O -> OH + O2 ; 3e-11, 200 -[HO2_O3,cph=120.1] HO2 + O3 -> OH + 2*O2 ; 1e-14, -490 -[H_O3,cph=194.71] H + O3 -> OH + O2 ; 1.4e-10, -470 -[OH_H2] OH + H2 -> H2O + H ; 2.8e-12, -1800 -[OH_H2O2] OH + H2O2 -> H2O + HO2 ; 1.8e-12 -[OH_HO2,cph=293.62] OH + HO2 -> H2O + O2 ; 4.8e-11, 250 -[OH_O,cph=67.67] OH + O -> H + O2 ; 1.8e-11, 180 -[OH_O3,cph=165.3] OH + O3 -> HO2 + O2 ; 1.7e-12, -940 -[OH_OH] OH + OH -> H2O + O ; 1.8e-12 -[OH_OH_M] OH + OH + M -> H2O2 + M ; 6.9e-31, 1, 2.6e-11, 0, 0.6 -[usr_HO2_HO2,cph=165.51] HO2 + HO2 -> H2O2 + O2 +[H2_O] H2 + O -> OH + H ; 1.6e-11, -4570 +[H2O2_O] H2O2 + O -> OH + HO2 ; 1.4e-12, -2000 +[H_HO2,cph=232.59] H + HO2 -> H2 + O2 ; 6.9e-12 +[H_HO2a] H + HO2 -> 2*OH ; 7.2e-11 +[H_HO2b] H + HO2 -> H2O + O ; 1.6e-12 +[H_O2,cph=203.4] H + O2 + M -> HO2 + M ; 5.3e-32, 1.8, 9.5e-11, -0.4, 0.6 +[HO2_O,cph=226.58] HO2 + O -> OH + O2 ; 3e-11, 200 +[HO2_O3,cph=120.1] HO2 + O3 -> OH + 2*O2 ; 1e-14, -490 +[H_O3,cph=194.71] H + O3 -> OH + O2 ; 1.4e-10, -470 +[OH_H2] OH + H2 -> H2O + H ; 2.8e-12, -1800 +[OH_H2O2] OH + H2O2 -> H2O + HO2 ; 1.8e-12 +[OH_HO2,cph=293.62] OH + HO2 -> H2O + O2 ; 4.8e-11, 250 +[OH_O,cph=67.67] OH + O -> H + O2 ; 1.8e-11, 180 +[OH_O3,cph=165.3] OH + O3 -> HO2 + O2 ; 1.7e-12, -940 +[OH_OH] OH + OH -> H2O + O ; 1.8e-12 +[OH_OH_M] OH + OH + M -> H2O2 + M ; 6.9e-31, 1, 2.6e-11, 0, 0.6 +[usr_HO2_HO2,cph=165.51] HO2 + HO2 -> H2O2 + O2 ********************************* *** odd-nitrogen ********************************* -[HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 -[N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 -[N2D_O2,cph=177.51] N2D + O2 -> NO + O1D ; 5e-12 -[N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 -[N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 -[N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 -[N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 -[N_O2,cph=133.75] N + O2 -> NO + O ; 3.3e-12, -3150 -[NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 -[NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 -[NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 -[NO3_HO2] NO3 + HO2 -> OH + NO2 + O2 ; 3.5e-12 -[NO3_NO] NO3 + NO -> 2*NO2 ; 1.7e-11, 125 -[NO3_O] NO3 + O -> NO2 + O2 ; 1.3e-11 -[NO3_OH] NO3 + OH -> HO2 + NO2 ; 2.2e-11 -[N_OH] N + OH -> NO + H ; 5e-11 -[NO_HO2,cph=34.47] NO + HO2 -> NO2 + OH ; 3.44e-12, 260 -[NO_O3,cph=199.17] NO + O3 -> NO2 + O2 ; 3e-12, -1500 -[NO_O_M] NO + O + M -> NO2 + M ; 9e-32, 1.5, 3e-11, 0, 0.6 -[O1D_N2Oa] O1D + N2O -> 2*NO ; 7.26e-11, 20 -[O1D_N2Ob] O1D + N2O -> N2 + O2 ; 4.64e-11, 20 -[tag_NO2_HO2] NO2 + HO2 + M -> HO2NO2 + M ; 1.9e-31, 3.4, 4e-12, 0.3, 0.6 -[tag_NO2_NO3] NO2 + NO3 + M -> N2O5 + M ; 2.4e-30, 3, 1.6e-12, -0.1, 0.6 -[tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 -[usr_HNO3_OH] HNO3 + OH -> NO3 + H2O -[usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M -[usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[agn2d] N2D -> N ; 1.06e-05 +[HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 +[N2D_NO,cph=543.13] N2D + NO -> N2 + O ; 7e-11 +[N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 +[N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 +[N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 +[N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 +[N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 +[NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 +[NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 +[NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 +[NO3_HO2] NO3 + HO2 -> OH + NO2 + O2 ; 3.5e-12 +[NO3_NO] NO3 + NO -> 2*NO2 ; 1.7e-11, 125 +[NO3_O] NO3 + O -> NO2 + O2 ; 1.3e-11 +[NO3_OH] NO3 + OH -> HO2 + NO2 ; 2.2e-11 +[N_OH] N + OH -> NO + H ; 5e-11 +[NO_HO2,cph=34.47] NO + HO2 -> NO2 + OH ; 3.44e-12, 260 +[NO_O3,cph=199.17] NO + O3 -> NO2 + O2 ; 3e-12, -1500 +[NO_O_M] NO + O + M -> NO2 + M ; 9e-32, 1.5, 3e-11, 0, 0.6 +[O1D_N2Oa] O1D + N2O -> 2*NO ; 7.26e-11, 20 +[O1D_N2Ob] O1D + N2O -> N2 + O2 ; 4.64e-11, 20 +[tag_NO2_HO2] NO2 + HO2 + M -> HO2NO2 + M ; 1.9e-31, 3.4, 4e-12, 0.3, 0.6 +[tag_NO2_NO3] NO2 + NO3 + M -> N2O5 + M ; 2.4e-30, 3, 1.6e-12, -0.1, 0.6 +[tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 +[usr_HNO3_OH] HNO3 + OH -> NO3 + H2O +[usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M +[usr_N2D_e,cph=229.61] N2D + e -> N + e +[usr_N2D_O2,cph=177.51] N2D + O2 -> NO + O1D +[usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[usr_N_O2,cph=133.75] N + O2 -> NO + O ********************************* *** odd-chlorine ********************************* -[CL_CH2O] CL + CH2O -> HCL + HO2 + CO ; 8.1e-11, -30 -[CL_CH4] CL + CH4 -> CH3O2 + HCL ; 7.1e-12, -1270 -[CL_H2] CL + H2 -> HCL + H ; 3.05e-11, -2270 -[CL_H2O2] CL + H2O2 -> HCL + HO2 ; 1.1e-11, -980 -[CL_HO2a] CL + HO2 -> HCL + O2 ; 1.4e-11, 270 -[CL_HO2b] CL + HO2 -> OH + CLO ; 3.6e-11, -375 -[CL_O3] CL + O3 -> CLO + O2 ; 2.3e-11, -200 -[CLO_CH3O2] CLO + CH3O2 -> CL + HO2 + CH2O ; 3.3e-12, -115 -[CLO_CLOa] CLO + CLO -> 2*CL + O2 ; 3e-11, -2450 -[CLO_CLOb] CLO + CLO -> CL2 + O2 ; 1e-12, -1590 -[CLO_CLOc] CLO + CLO -> CL + OCLO ; 3.5e-13, -1370 -[CLO_HO2] CLO + HO2 -> O2 + HOCL ; 2.6e-12, 290 -[CLO_NO] CLO + NO -> NO2 + CL ; 6.4e-12, 290 -[CLONO2_CL] CLONO2 + CL -> CL2 + NO3 ; 6.5e-12, 135 -[CLO_NO2_M] CLO + NO2 + M -> CLONO2 + M ; 1.8e-31, 3.4, 1.5e-11, 1.9, 0.6 -[CLONO2_O] CLONO2 + O -> CLO + NO3 ; 3.6e-12, -840 -[CLONO2_OH] CLONO2 + OH -> HOCL + NO3 ; 1.2e-12, -330 -[CLO_O] CLO + O -> CL + O2 ; 2.8e-11, 85 -[CLO_OHa] CLO + OH -> CL + HO2 ; 7.4e-12, 270 -[CLO_OHb] CLO + OH -> HCL + O2 ; 6e-13, 230 -[HCL_O] HCL + O -> CL + OH ; 1e-11, -3300 -[HCL_OH] HCL + OH -> H2O + CL ; 1.8e-12, -250 -[HOCL_CL] HOCL + CL -> HCL + CLO ; 3.4e-12, -130 -[HOCL_O] HOCL + O -> CLO + OH ; 1.7e-13 -[HOCL_OH] HOCL + OH -> H2O + CLO ; 3e-12, -500 -[O1D_CCL4] O1D + CCL4 -> 4*CL ; 2.607e-10 -[O1D_CF2CLBR] O1D + CF2CLBR -> CL + BR + COF2 ; 9.75e-11 -[O1D_CFC11] O1D + CFC11 -> 2*CL + COFCL ; 2.07e-10 -[O1D_CFC113] O1D + CFC113 -> 2*CL + COFCL + COF2 ; 2.088e-10 -[O1D_CFC114] O1D + CFC114 -> 2*CL + 2*COF2 ; 1.17e-10 -[O1D_CFC115] O1D + CFC115 -> CL + F + 2*COF2 ; 4.644e-11 -[O1D_CFC12] O1D + CFC12 -> 2*CL + COF2 ; 1.204e-10 -[O1D_HCLa] O1D + HCL -> CL + OH ; 9.9e-11 -[O1D_HCLb] O1D + HCL -> CLO + H ; 3.3e-12 -[tag_CLO_CLO_M] CLO + CLO + M -> CL2O2 + M ; 1.9e-32, 3.6, 3.7e-12, 1.6, 0.6 -[usr_CL2O2_M] CL2O2 + M -> CLO + CLO + M +[CL_CH2O] CL + CH2O -> HCL + HO2 + CO ; 8.1e-11, -30 +[CL_CH4] CL + CH4 -> CH3O2 + HCL ; 7.1e-12, -1270 +[CL_H2] CL + H2 -> HCL + H ; 3.05e-11, -2270 +[CL_H2O2] CL + H2O2 -> HCL + HO2 ; 1.1e-11, -980 +[CL_HO2a] CL + HO2 -> HCL + O2 ; 1.4e-11, 270 +[CL_HO2b] CL + HO2 -> OH + CLO ; 3.6e-11, -375 +[CL_O3] CL + O3 -> CLO + O2 ; 2.3e-11, -200 +[CLO_CH3O2] CLO + CH3O2 -> CL + HO2 + CH2O ; 3.3e-12, -115 +[CLO_CLOa] CLO + CLO -> 2*CL + O2 ; 3e-11, -2450 +[CLO_CLOb] CLO + CLO -> CL2 + O2 ; 1e-12, -1590 +[CLO_CLOc] CLO + CLO -> CL + OCLO ; 3.5e-13, -1370 +[CLO_HO2] CLO + HO2 -> O2 + HOCL ; 2.6e-12, 290 +[CLO_NO] CLO + NO -> NO2 + CL ; 6.4e-12, 290 +[CLONO2_CL] CLONO2 + CL -> CL2 + NO3 ; 6.5e-12, 135 +[CLO_NO2_M] CLO + NO2 + M -> CLONO2 + M ; 1.8e-31, 3.4, 1.5e-11, 1.9, 0.6 +[CLONO2_O] CLONO2 + O -> CLO + NO3 ; 3.6e-12, -840 +[CLONO2_OH] CLONO2 + OH -> HOCL + NO3 ; 1.2e-12, -330 +[CLO_O] CLO + O -> CL + O2 ; 2.8e-11, 85 +[CLO_OHa] CLO + OH -> CL + HO2 ; 7.4e-12, 270 +[CLO_OHb] CLO + OH -> HCL + O2 ; 6e-13, 230 +[HCL_O] HCL + O -> CL + OH ; 1e-11, -3300 +[HCL_OH] HCL + OH -> H2O + CL ; 1.8e-12, -250 +[HOCL_CL] HOCL + CL -> HCL + CLO ; 3.4e-12, -130 +[HOCL_O] HOCL + O -> CLO + OH ; 1.7e-13 +[HOCL_OH] HOCL + OH -> H2O + CLO ; 3e-12, -500 +[O1D_CCL4] O1D + CCL4 -> 4*CL ; 2.607e-10 +[O1D_CF2CLBR] O1D + CF2CLBR -> CL + BR + COF2 ; 9.75e-11 +[O1D_CFC11] O1D + CFC11 -> 2*CL + COFCL ; 2.07e-10 +[O1D_CFC113] O1D + CFC113 -> 2*CL + COFCL + COF2 ; 2.088e-10 +[O1D_CFC114] O1D + CFC114 -> 2*CL + 2*COF2 ; 1.17e-10 +[O1D_CFC115] O1D + CFC115 -> CL + F + 2*COF2 ; 4.644e-11 +[O1D_CFC12] O1D + CFC12 -> 2*CL + COF2 ; 1.204e-10 +[O1D_HCLa] O1D + HCL -> CL + OH ; 9.9e-11 +[O1D_HCLb] O1D + HCL -> CLO + H ; 3.3e-12 +[tag_CLO_CLO_M] CLO + CLO + M -> CL2O2 + M ; 1.9e-32, 3.6, 3.7e-12, 1.6, 0.6 +[usr_CL2O2_M] CL2O2 + M -> CLO + CLO + M ********************************* *** odd-bromine ********************************* -[BR_CH2O] BR + CH2O -> HBR + HO2 + CO ; 1.7e-11, -800 -[BR_HO2] BR + HO2 -> HBR + O2 ; 4.8e-12, -310 -[BR_O3] BR + O3 -> BRO + O2 ; 1.6e-11, -780 -[BRO_BRO] BRO + BRO -> 2*BR + O2 ; 1.5e-12, 230 -[BRO_CLOa] BRO + CLO -> BR + OCLO ; 9.5e-13, 550 -[BRO_CLOb] BRO + CLO -> BR + CL + O2 ; 2.3e-12, 260 -[BRO_CLOc] BRO + CLO -> BRCL + O2 ; 4.1e-13, 290 -[BRO_HO2] BRO + HO2 -> HOBR + O2 ; 4.5e-12, 460 -[BRO_NO] BRO + NO -> BR + NO2 ; 8.8e-12, 260 -[BRO_NO2_M] BRO + NO2 + M -> BRONO2 + M ; 5.2e-31, 3.2, 6.9e-12, 2.9, 0.6 -[BRONO2_O] BRONO2 + O -> BRO + NO3 ; 1.9e-11, 215 -[BRO_O] BRO + O -> BR + O2 ; 1.9e-11, 230 -[BRO_OH] BRO + OH -> BR + HO2 ; 1.7e-11, 250 -[HBR_O] HBR + O -> BR + OH ; 5.8e-12, -1500 -[HBR_OH] HBR + OH -> BR + H2O ; 5.5e-12, 200 -[HOBR_O] HOBR + O -> BRO + OH ; 1.2e-10, -430 -[O1D_CF3BR] O1D + CF3BR -> BR + F + COF2 ; 4.5e-11 -[O1D_CHBR3] O1D + CHBR3 -> 3*BR ; 4.62e-10 -[O1D_H2402] O1D + H2402 -> 2*BR + 2*COF2 ; 1.2e-10 -[O1D_HBRa] O1D + HBR -> BR + OH ; 9e-11 -[O1D_HBRb] O1D + HBR -> BRO + H ; 3e-11 +[BR_CH2O] BR + CH2O -> HBR + HO2 + CO ; 1.7e-11, -800 +[BR_HO2] BR + HO2 -> HBR + O2 ; 4.8e-12, -310 +[BR_O3] BR + O3 -> BRO + O2 ; 1.6e-11, -780 +[BRO_BRO] BRO + BRO -> 2*BR + O2 ; 1.5e-12, 230 +[BRO_CLOa] BRO + CLO -> BR + OCLO ; 9.5e-13, 550 +[BRO_CLOb] BRO + CLO -> BR + CL + O2 ; 2.3e-12, 260 +[BRO_CLOc] BRO + CLO -> BRCL + O2 ; 4.1e-13, 290 +[BRO_HO2] BRO + HO2 -> HOBR + O2 ; 4.5e-12, 460 +[BRO_NO] BRO + NO -> BR + NO2 ; 8.8e-12, 260 +[BRO_NO2_M] BRO + NO2 + M -> BRONO2 + M ; 5.2e-31, 3.2, 6.9e-12, 2.9, 0.6 +[BRONO2_O] BRONO2 + O -> BRO + NO3 ; 1.9e-11, 215 +[BRO_O] BRO + O -> BR + O2 ; 1.9e-11, 230 +[BRO_OH] BRO + OH -> BR + HO2 ; 1.7e-11, 250 +[HBR_O] HBR + O -> BR + OH ; 5.8e-12, -1500 +[HBR_OH] HBR + OH -> BR + H2O ; 5.5e-12, 200 +[HOBR_O] HOBR + O -> BRO + OH ; 1.2e-10, -430 +[O1D_CF3BR] O1D + CF3BR -> BR + F + COF2 ; 4.5e-11 +[O1D_CHBR3] O1D + CHBR3 -> 3*BR ; 4.62e-10 +[O1D_H2402] O1D + H2402 -> 2*BR + 2*COF2 ; 1.2e-10 +[O1D_HBRa] O1D + HBR -> BR + OH ; 9e-11 +[O1D_HBRb] O1D + HBR -> BRO + H ; 3e-11 ********************************* *** odd-fluorine ********************************* -[F_CH4] F + CH4 -> HF + CH3O2 ; 1.6e-10, -260 -[F_H2] F + H2 -> HF + H ; 1.4e-10, -500 -[F_H2O] F + H2O -> HF + OH ; 1.4e-11, 0 -[F_HNO3] F + HNO3 -> HF + NO3 ; 6e-12, 400 -[O1D_COF2] O1D + COF2 -> 2*F ; 2.14e-11 -[O1D_COFCL] O1D + COFCL -> F + CL ; 1.9e-10 +[F_CH4] F + CH4 -> HF + CH3O2 ; 1.6e-10, -260 +[F_H2] F + H2 -> HF + H ; 1.4e-10, -500 +[F_H2O] F + H2O -> HF + OH ; 1.4e-11, 0 +[F_HNO3] F + HNO3 -> HF + NO3 ; 6e-12, 400 +[O1D_COF2] O1D + COF2 -> 2*F ; 2.14e-11 +[O1D_COFCL] O1D + COFCL -> F + CL ; 1.9e-10 ********************************* *** organic-halogens ********************************* -[CH2BR2_CL] CH2BR2 + CL -> 2*BR + HCL ; 6.3e-12, -800 -[CH2BR2_OH] CH2BR2 + OH -> 2*BR + H2O ; 2e-12, -840 -[CH3BR_CL] CH3BR + CL -> HCL + HO2 + BR ; 1.46e-11, -1040 -[CH3BR_OH] CH3BR + OH -> BR + H2O + HO2 ; 1.42e-12, -1150 -[CH3CCL3_OH] CH3CCL3 + OH -> H2O + 3*CL ; 1.64e-12, -1520 -[CH3CL_CL] CH3CL + CL -> HO2 + CO + 2*HCL ; 2.03e-11, -1110 -[CH3CL_OH] CH3CL + OH -> CL + H2O + HO2 ; 1.96e-12, -1200 -[CHBR3_CL] CHBR3 + CL -> 3*BR + HCL ; 4.85e-12, -850 -[CHBR3_OH] CHBR3 + OH -> 3*BR ; 9e-13, -360 -[HCFC141B_OH] HCFC141B + OH -> CL + COFCL ; 1.25e-12, -1600 -[HCFC142B_OH] HCFC142B + OH -> CL + COF2 ; 1.3e-12, -1770 -[HCFC22_OH] HCFC22 + OH -> H2O + CL + COF2 ; 9.2e-13, -1560 -[O1D_CH2BR2] O1D + CH2BR2 -> 2*BR ; 2.57e-10 -[O1D_CH3BR] O1D + CH3BR -> BR ; 1.8e-10 -[O1D_HCFC141B] O1D + HCFC141B -> CL + COFCL ; 1.794e-10 -[O1D_HCFC142B] O1D + HCFC142B -> CL + COF2 ; 1.3e-10 -[O1D_HCFC22] O1D + HCFC22 -> CL + COF2 ; 7.65e-11 +[CH2BR2_CL] CH2BR2 + CL -> 2*BR + HCL ; 6.3e-12, -800 +[CH2BR2_OH] CH2BR2 + OH -> 2*BR + H2O ; 2e-12, -840 +[CH3BR_CL] CH3BR + CL -> HCL + HO2 + BR ; 1.46e-11, -1040 +[CH3BR_OH] CH3BR + OH -> BR + H2O + HO2 ; 1.42e-12, -1150 +[CH3CCL3_OH] CH3CCL3 + OH -> H2O + 3*CL ; 1.64e-12, -1520 +[CH3CL_CL] CH3CL + CL -> HO2 + CO + 2*HCL ; 2.03e-11, -1110 +[CH3CL_OH] CH3CL + OH -> CL + H2O + HO2 ; 1.96e-12, -1200 +[CHBR3_CL] CHBR3 + CL -> 3*BR + HCL ; 4.85e-12, -850 +[CHBR3_OH] CHBR3 + OH -> 3*BR ; 9e-13, -360 +[HCFC141B_OH] HCFC141B + OH -> CL + COFCL ; 1.25e-12, -1600 +[HCFC142B_OH] HCFC142B + OH -> CL + COF2 ; 1.3e-12, -1770 +[HCFC22_OH] HCFC22 + OH -> H2O + CL + COF2 ; 9.2e-13, -1560 +[O1D_CH2BR2] O1D + CH2BR2 -> 2*BR ; 2.57e-10 +[O1D_CH3BR] O1D + CH3BR -> BR ; 1.8e-10 +[O1D_HCFC141B] O1D + HCFC141B -> CL + COFCL ; 1.794e-10 +[O1D_HCFC142B] O1D + HCFC142B -> CL + COF2 ; 1.3e-10 +[O1D_HCFC22] O1D + HCFC22 -> CL + COF2 ; 7.65e-11 ********************************* *** C1 ********************************* -[CH2O_NO3] CH2O + NO3 -> CO + HO2 + HNO3 ; 6e-13, -2058 -[CH2O_O] CH2O + O -> HO2 + OH + CO ; 3.4e-11, -1600 -[CH2O_OH] CH2O + OH -> CO + H2O + H ; 5.5e-12, 125 -[CH3O2_CH3O2a] CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 ; 5e-13, -424 -[CH3O2_CH3O2b] CH3O2 + CH3O2 -> CH2O + CH3OH ; 1.9e-14, 706 -[CH3O2_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 -[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 -[CH3OH_OH] CH3OH + OH -> HO2 + CH2O ; 2.9e-12, -345 -[CH3OOH_OH] CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O ; 3.8e-12, 200 -[CH4_OH] CH4 + OH -> CH3O2 + H2O ; 2.45e-12, -1775 -[O1D_CH4a] O1D + CH4 -> CH3O2 + OH ; 1.31e-10 -[O1D_CH4b] O1D + CH4 -> CH2O + H + HO2 ; 3.5e-11 -[O1D_CH4c] O1D + CH4 -> CH2O + H2 ; 9e-12 -[usr_CO_OH] CO + OH -> CO2 + HO2 +[CH2O_NO3] CH2O + NO3 -> CO + HO2 + HNO3 ; 6e-13, -2058 +[CH2O_O] CH2O + O -> HO2 + OH + CO ; 3.4e-11, -1600 +[CH2O_OH] CH2O + OH -> CO + H2O + H ; 5.5e-12, 125 +[CH3O2_CH3O2a] CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 ; 5e-13, -424 +[CH3O2_CH3O2b] CH3O2 + CH3O2 -> CH2O + CH3OH ; 1.9e-14, 706 +[CH3O2_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 +[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 +[CH3OH_OH] CH3OH + OH -> HO2 + CH2O ; 2.9e-12, -345 +[CH3OOH_OH] CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O ; 3.8e-12, 200 +[CH4_OH] CH4 + OH -> CH3O2 + H2O ; 2.45e-12, -1775 +[O1D_CH4a] O1D + CH4 -> CH3O2 + OH ; 1.31e-10 +[O1D_CH4b] O1D + CH4 -> CH2O + H + HO2 ; 3.5e-11 +[O1D_CH4c] O1D + CH4 -> CH2O + H2 ; 9e-12 +[usr_CO_OH] CO + OH -> CO2 + HO2 ********************************* *** C2 ********************************* -[C2H4_CL_M] C2H4 + CL + M -> CL + M ; 1.6e-29, 3.3, 3.1e-10, 1, 0.6 -[C2H4_O3] C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O ; 1.2e-14, -2630 -[C2H5O2_C2H5O2] C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH ; 6.8e-14 -[C2H5O2_CH3O2] C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH + 0.2*C2H5OH ; 2e-13 -[C2H5O2_HO2] C2H5O2 + HO2 -> C2H5OOH + O2 ; 7.5e-13, 700 -[C2H5O2_NO] C2H5O2 + NO -> CH3CHO + HO2 + NO2 ; 2.6e-12, 365 -[C2H5OH_OH] C2H5OH + OH -> HO2 + CH3CHO ; 6.9e-12, -230 -[C2H5OOH_OH] C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH ; 3.8e-12, 200 -[C2H6_CL] C2H6 + CL -> HCL + C2H5O2 ; 7.2e-11, -70 -[C2H6_OH] C2H6 + OH -> C2H5O2 + H2O ; 7.66e-12, -1020 -[CH3CHO_NO3] CH3CHO + NO3 -> CH3CO3 + HNO3 ; 1.4e-12, -1900 -[CH3CHO_OH] CH3CHO + OH -> CH3CO3 + H2O ; 4.63e-12, 350 -[CH3CO3_CH3CO3] CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 ; 2.9e-12, 500 -[CH3CO3_CH3O2] CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 + 0.1*CH3COOH ; 2e-12, 500 -[CH3CO3_HO2] CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH + 0.45*CH3O2 ; 4.3e-13, 1040 -[CH3CO3_NO] CH3CO3 + NO -> CH3O2 + CO2 + NO2 ; 8.1e-12, 270 -[CH3COOH_OH] CH3COOH + OH -> CH3O2 + CO2 + H2O ; 3.15e-14, 920 -[CH3COOOH_OH] CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O ; 1e-12 -[EO2_HO2] EO2 + HO2 -> EOOH ; 7.5e-13, 700 -[EO2_NO] EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 ; 4.2e-12, 180 -[EO_M] EO -> 2*CH2O + HO2 ; 1.6e+11, -4150 -[EO_O2] EO + O2 -> GLYALD + HO2 ; 1e-14 -[GLYALD_OH] GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 ; 1e-11 -[GLYOXAL_OH] GLYOXAL + OH -> HO2 + CO + CO2 ; 1.15e-11 -[PAN_OH] PAN + OH -> CH2O + NO3 ; 4e-14 -[tag_C2H4_OH] C2H4 + OH + M -> EO2 + M ; 8.6e-29, 3.1, 9e-12, 0.85, 0.48 -[tag_CH3CO3_NO2] CH3CO3 + NO2 + M -> PAN + M ; 7.3e-29, 4.1, 9.5e-12, 1.6, 0.6 -[usr_PAN_M] PAN + M -> CH3CO3 + NO2 + M +[C2H4_CL_M] C2H4 + CL + M -> CL + M ; 1.6e-29, 3.3, 3.1e-10, 1, 0.6 +[C2H4_O3] C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O ; 1.2e-14, -2630 +[C2H5O2_C2H5O2] C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH ; 6.8e-14 +[C2H5O2_CH3O2] C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH + 0.2*C2H5OH ; 2e-13 +[C2H5O2_HO2] C2H5O2 + HO2 -> C2H5OOH + O2 ; 7.5e-13, 700 +[C2H5O2_NO] C2H5O2 + NO -> CH3CHO + HO2 + NO2 ; 2.6e-12, 365 +[C2H5OH_OH] C2H5OH + OH -> HO2 + CH3CHO ; 6.9e-12, -230 +[C2H5OOH_OH] C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH ; 3.8e-12, 200 +[C2H6_CL] C2H6 + CL -> HCL + C2H5O2 ; 7.2e-11, -70 +[C2H6_OH] C2H6 + OH -> C2H5O2 + H2O ; 7.66e-12, -1020 +[CH3CHO_NO3] CH3CHO + NO3 -> CH3CO3 + HNO3 ; 1.4e-12, -1900 +[CH3CHO_OH] CH3CHO + OH -> CH3CO3 + H2O ; 4.63e-12, 350 +[CH3CO3_CH3CO3] CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 ; 2.9e-12, 500 +[CH3CO3_CH3O2] CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 + 0.1*CH3COOH ; 2e-12, 500 +[CH3CO3_HO2] CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH + 0.45*CH3O2 ; 4.3e-13, 1040 +[CH3CO3_NO] CH3CO3 + NO -> CH3O2 + CO2 + NO2 ; 8.1e-12, 270 +[CH3COOH_OH] CH3COOH + OH -> CH3O2 + CO2 + H2O ; 3.15e-14, 920 +[CH3COOOH_OH] CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O ; 1e-12 +[EO2_HO2] EO2 + HO2 -> EOOH ; 7.5e-13, 700 +[EO2_NO] EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 ; 4.2e-12, 180 +[EO_M] EO -> 2*CH2O + HO2 ; 1.6e+11, -4150 +[EO_O2] EO + O2 -> GLYALD + HO2 ; 1e-14 +[GLYALD_OH] GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 ; 1e-11 +[GLYOXAL_OH] GLYOXAL + OH -> HO2 + CO + CO2 ; 1.15e-11 +[PAN_OH] PAN + OH -> CH2O + NO3 ; 4e-14 +[tag_C2H4_OH] C2H4 + OH + M -> EO2 + M ; 8.6e-29, 3.1, 9e-12, 0.85, 0.48 +[tag_CH3CO3_NO2] CH3CO3 + NO2 + M -> PAN + M ; 7.3e-29, 4.1, 9.5e-12, 1.6, 0.6 +[usr_PAN_M] PAN + M -> CH3CO3 + NO2 + M ********************************* *** C3 ********************************* -[C3H6_NO3] C3H6 + NO3 -> NOA ; 4.6e-13, -1156 -[C3H6_O3] C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH ; 6.5e-15, -1900 -[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 3.75e-13, -40 -[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 7.5e-13, 700 -[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 4.2e-12, 180 -[C3H7OOH_OH] C3H7OOH + OH -> H2O + C3H7O2 ; 3.8e-12, 200 -[C3H8_OH] C3H8 + OH -> C3H7O2 + H2O ; 9.19e-12, -630 -[CH3COCHO_NO3] CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 ; 1.4e-12, -1860 -[CH3COCHO_OH] CH3COCHO + OH -> CH3CO3 + CO + H2O ; 8.4e-13, 830 -[HYAC_OH] HYAC + OH -> CH3COCHO + HO2 ; 3e-12 -[NOA_OH] NOA + OH -> NO2 + CH3COCHO ; 6.7e-13 -[PO2_HO2] PO2 + HO2 -> POOH + O2 ; 7.5e-13, 700 -[PO2_NO] PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 ; 4.2e-12, 180 -[POOH_OH] POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O ; 3.8e-12, 200 -[RO2_CH3O2] RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC + 0.5*CH3COCHO + 0.5*CH3OH ; 7.1e-13, 500 -[RO2_HO2] RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 ; 8.6e-13, 700 -[RO2_NO] RO2 + NO -> CH3CO3 + CH2O + NO2 ; 2.9e-12, 300 -[ROOH_OH] ROOH + OH -> RO2 + H2O ; 3.8e-12, 200 -[tag_C3H6_OH] C3H6 + OH + M -> PO2 + M ; 8e-27, 3.5, 3e-11, 0, 0.5 -[usr_CH3COCH3_OH] CH3COCH3 + OH -> RO2 + H2O +[C3H6_NO3] C3H6 + NO3 -> NOA ; 4.6e-13, -1156 +[C3H6_O3] C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH ; 6.5e-15, -1900 +[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 3.75e-13, -40 +[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 7.5e-13, 700 +[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 2.7e-12, 360 +[C3H7OOH_OH] C3H7OOH + OH -> H2O + C3H7O2 ; 3.8e-12, 200 +[C3H8_OH] C3H8 + OH -> C3H7O2 + H2O ; 9.19e-12, -630 +[CH3COCHO_NO3] CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 ; 1.4e-12, -1860 +[CH3COCHO_OH] CH3COCHO + OH -> CH3CO3 + CO + H2O ; 8.4e-13, 830 +[HYAC_OH] HYAC + OH -> CH3COCHO + HO2 ; 3e-12 +[NOA_OH] NOA + OH -> NO2 + CH3COCHO ; 6.7e-13 +[PO2_HO2] PO2 + HO2 -> POOH + O2 ; 7.5e-13, 700 +[PO2_NO] PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 ; 4.2e-12, 180 +[POOH_OH] POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O ; 3.8e-12, 200 +[RO2_CH3O2] RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC + 0.5*CH3COCHO + 0.5*CH3OH ; 7.1e-13, 500 +[RO2_HO2] RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 ; 8.6e-13, 700 +[RO2_NO] RO2 + NO -> CH3CO3 + CH2O + NO2 ; 2.9e-12, 300 +[ROOH_OH] ROOH + OH -> RO2 + H2O ; 3.8e-12, 200 +[tag_C3H6_OH] C3H6 + OH + M -> PO2 + M ; 8e-27, 3.5, 3e-11, 0, 0.5 +[usr_CH3COCH3_OH] CH3COCH3 + OH -> RO2 + H2O ********************************* *** C4 ********************************* -[MACRO2_CH3CO3] MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 + 0.53*GLYALD + 0.22*HYAC + 0.25*CH2O + 0.53*CH3CO3 ; 1.4e-11 -[MACRO2_CH3O2] MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO + 0.26*GLYALD + 0.26*CH3CO3 + 0.25*CH3OH + 0.23*HYAC ; 5e-13, 400 -[MACRO2_HO2] MACRO2 + HO2 -> MACROOH ; 8e-13, 700 -[MACRO2_NO3] MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO + 0.22*CO + 0.53*GLYALD + 0.22*HYAC + 0.53*CH3CO3 ; 2.4e-12 -[MACRO2_NOa] MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD + 0.25*CH3COCHO + 0.53*CH3CO3 + 0.22*HYAC + 0.22*CO ; 2.7e-12, 360 -[MACRO2_NOb] MACRO2 + NO -> 0.8*ONITR ; 1.3e-13, 360 -[MACR_O3] MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 + 0.88*CH3COCHO + 0.33*HCOOH + 0.14*HO2 ; 1.5e-15, -2100 -[MACR_OH] MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 ; 9.6e-12, 360 -[MACROOH_OH] MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 ; 2.3e-11, 200 -[MCO3_CH3CO3] MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 ; 4.6e-12, 530 -[MCO3_CH3O2] MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 ; 2e-12, 500 -[MCO3_HO2] MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH + 0.45*CO2 + 0.45*CH2O + 0.45*CH3CO3 ; 4.3e-13, 1040 -[MCO3_MCO3] MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 ; 2.3e-12, 530 -[MCO3_NO] MCO3 + NO -> NO2 + CH2O + CH3CO3 ; 5.3e-12, 360 -[MCO3_NO3] MCO3 + NO3 -> NO2 + CH2O + CH3CO3 ; 5e-12 -[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + M + 0.5*NDEP ; 8e-27, 3.5, 3e-11, 0, 0.5 -[MVK_O3] MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH ; 8.5e-16, -1520 -[MVK_OH] MVK + OH -> MACRO2 ; 4.13e-12, 452 -[tag_MCO3_NO2] MCO3 + NO2 + M -> MPAN + M ; 9.7e-29, 5.6, 9.3e-12, 1.5, 0.6 -[usr_MPAN_M] MPAN + M -> MCO3 + NO2 + M +[MACRO2_CH3CO3] MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 + 0.53*GLYALD + 0.22*HYAC + 0.25*CH2O + 0.53*CH3CO3 ; 1.4e-11 +[MACRO2_CH3O2] MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO + 0.26*GLYALD + 0.26*CH3CO3 + 0.25*CH3OH + 0.23*HYAC ; 5e-13, 400 +[MACRO2_HO2] MACRO2 + HO2 -> MACROOH ; 8e-13, 700 +[MACRO2_NO3] MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO + 0.22*CO + 0.53*GLYALD + 0.22*HYAC + 0.53*CH3CO3 ; 2.4e-12 +[MACRO2_NOa] MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD + 0.25*CH3COCHO + 0.53*CH3CO3 + 0.22*HYAC + 0.22*CO ; 2.7e-12, 360 +[MACRO2_NOb] MACRO2 + NO -> 0.8*ONITR ; 1.3e-13, 360 +[MACR_O3] MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 + 0.88*CH3COCHO + 0.33*HCOOH + 0.14*HO2 ; 1.5e-15, -2100 +[MACR_OH] MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 ; 9.6e-12, 360 +[MACROOH_OH] MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 ; 2.3e-11, 200 +[MCO3_CH3CO3] MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 ; 4.6e-12, 530 +[MCO3_CH3O2] MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 ; 2e-12, 500 +[MCO3_HO2] MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH + 0.45*CO2 + 0.45*CH2O + 0.45*CH3CO3 ; 4.3e-13, 1040 +[MCO3_MCO3] MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 ; 2.3e-12, 530 +[MCO3_NO] MCO3 + NO -> NO2 + CH2O + CH3CO3 ; 5.3e-12, 360 +[MCO3_NO3] MCO3 + NO3 -> NO2 + CH2O + CH3CO3 ; 5e-12 +[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + 0.5*NDEP + M ; 8e-27, 3.5, 3e-11, 0, 0.5 +[MVK_O3] MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH ; 8.5e-16, -1520 +[MVK_OH] MVK + OH -> MACRO2 ; 4.13e-12, 452 +[tag_MCO3_NO2] MCO3 + NO2 + M -> MPAN + M ; 9.7e-29, 5.6, 9.3e-12, 1.5, 0.6 +[usr_MPAN_M] MPAN + M -> MCO3 + NO2 + M ********************************* *** C5 ********************************* -[BIGALK_OH] BIGALK + OH -> 1.67*C3H7O2 ; 3.5e-12 -[HYDRALD_OH] HYDRALD + OH -> XO2 ; 1.86e-11, 175 -[ISOP_NO3] ISOP + NO3 -> ISOPNO3 ; 3.03e-12, -446 -[ISOPNO3_HO2] ISOPNO3 + HO2 -> 0.206*NO2 + 0.206*CH2O + 0.206*OH + 0.167*MACR + 0.039*MVK + 0.794*ONITR ; 8e-13, 700 -[ISOPNO3_NO] ISOPNO3 + NO -> 1.206*NO2 + 0.794*HO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK + 0.794*ONITR ; 2.7e-12, 360 -[ISOPNO3_NO3] ISOPNO3 + NO3 -> 1.206*NO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK + 0.794*ONITR + 0.794*HO2 ; 2.4e-12 -[ISOPO2_CH3CO3] ISOPO2 + CH3CO3 -> CH3O2 + HO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK + 0.4*HYDRALD ; 1.4e-11 -[ISOPO2_CH3O2] ISOPO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.2*CH2O + 0.19*MACR + 0.26*MVK + 0.3*HYDRALD ; 5e-13, 400 -[ISOPO2_HO2] ISOPO2 + HO2 -> ISOPOOH ; 8e-13, 700 -[ISOPO2_NO] ISOPO2 + NO -> 0.08*ONITR + 0.92*NO2 + 0.23*MACR + 0.32*MVK + 0.33*HYDRALD + 0.02*GLYOXAL + 0.02*GLYALD + 0.02*CH3COCHO + 0.02*HYAC + 0.55*CH2O + 0.92*HO2 ; 4.4e-12, 180 -[ISOPO2_NO3] ISOPO2 + NO3 -> HO2 + NO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK + 0.4*HYDRALD ; 2.4e-12 -[ISOP_O3] ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH + 0.37*HO2 + 0.91*CH2O + 0.08*CH3CO3 + 0.13*C3H6 + 0.05*CH3O2 ; 1.05e-14, -2000 -[ISOP_OH] ISOP + OH -> ISOPO2 ; 2.54e-11, 410 -[ISOPOOH_OH] ISOPOOH + OH -> 0.8*XO2 + 0.2*ISOPO2 ; 1.52e-11, 200 -[ONITR_NO3] ONITR + NO3 -> HO2 + NO2 + HYDRALD ; 1.4e-12, -1860 -[ONITR_OH] ONITR + OH -> HYDRALD + 0.4*NO2 + HO2 ; 4.5e-11 -[XO2_CH3CO3] XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD + CO2 ; 1.3e-12, 640 -[XO2_CH3O2] XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO + 0.1*GLYOXAL + 0.1*CH3COCHO + 0.1*HYAC + 0.1*GLYALD ; 5e-13, 400 -[XO2_HO2] XO2 + HO2 -> XOOH ; 8e-13, 700 -[XO2_NO] XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD ; 2.7e-12, 360 -[XO2_NO3] XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL + 0.25*CH3COCHO + 0.25*GLYALD ; 2.4e-12 -[XOOH_OH] XOOH + OH -> 0.5*XO2 + 0.5*OH ; 1.52e-12, 200 +[BIGALK_OH] BIGALK + OH -> 1.67*C3H7O2 ; 3.5e-12 +[HYDRALD_OH] HYDRALD + OH -> XO2 ; 1.86e-11, 175 +[ISOP_NO3] ISOP + NO3 -> ISOPNO3 ; 3.03e-12, -446 +[ISOPNO3_HO2] ISOPNO3 + HO2 -> 0.206*NO2 + 0.206*CH2O + 0.206*OH + 0.167*MACR + 0.039*MVK + 0.794*ONITR ; 8e-13, 700 +[ISOPNO3_NO] ISOPNO3 + NO -> 1.206*NO2 + 0.794*HO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK + 0.794*ONITR ; 2.7e-12, 360 +[ISOPNO3_NO3] ISOPNO3 + NO3 -> 1.206*NO2 + 0.072*CH2O + 0.167*MACR + 0.039*MVK + 0.794*ONITR + 0.794*HO2 ; 2.4e-12 +[ISOPO2_CH3CO3] ISOPO2 + CH3CO3 -> CH3O2 + HO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK + 0.4*HYDRALD ; 1.4e-11 +[ISOPO2_CH3O2] ISOPO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.2*CH2O + 0.19*MACR + 0.26*MVK + 0.3*HYDRALD ; 5e-13, 400 +[ISOPO2_HO2] ISOPO2 + HO2 -> ISOPOOH ; 8e-13, 700 +[ISOPO2_NO] ISOPO2 + NO -> 0.08*ONITR + 0.92*NO2 + 0.23*MACR + 0.32*MVK + 0.33*HYDRALD + 0.02*GLYOXAL + 0.02*GLYALD + 0.02*CH3COCHO + 0.02*HYAC + 0.55*CH2O + 0.92*HO2 ; 4.4e-12, 180 +[ISOPO2_NO3] ISOPO2 + NO3 -> HO2 + NO2 + 0.6*CH2O + 0.25*MACR + 0.35*MVK + 0.4*HYDRALD ; 2.4e-12 +[ISOP_O3] ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH + 0.37*HO2 + 0.91*CH2O + 0.08*CH3CO3 + 0.13*C3H6 + 0.05*CH3O2 ; 1.05e-14, -2000 +[ISOP_OH] ISOP + OH -> ISOPO2 ; 2.54e-11, 410 +[ISOPOOH_OH] ISOPOOH + OH -> 0.8*XO2 + 0.2*ISOPO2 ; 1.52e-11, 200 +[ONITR_NO3] ONITR + NO3 -> HO2 + NO2 + HYDRALD + NDEP ; 1.4e-12, -1860 +[ONITR_OH] ONITR + OH -> HYDRALD + 0.4*NO2 + HO2 + 0.6*NDEP ; 4.5e-11 +[XO2_CH3CO3] XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD + CO2 ; 1.3e-12, 640 +[XO2_CH3O2] XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO + 0.1*GLYOXAL + 0.1*CH3COCHO + 0.1*HYAC + 0.1*GLYALD ; 5e-13, 400 +[XO2_HO2] XO2 + HO2 -> XOOH ; 8e-13, 700 +[XO2_NO] XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD ; 2.7e-12, 360 +[XO2_NO3] XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL + 0.25*CH3COCHO + 0.25*GLYALD ; 2.4e-12 +[XOOH_OH] XOOH + OH -> 0.5*XO2 + 0.5*OH ; 1.52e-12, 200 ********************************* *** C10 ********************************* -[TERP_NO3] TERP + NO3 -> 1.7*ISOPO2 + NO2 ; 1.2e-12, 490 -[TERP_O3] TERP + O3 -> 1.122*MACR + 0.442*MVK + 0.765*O + 1.156*OH ; 6.3e-16, -580 -[TERP_OH] TERP + OH -> 1.64*ISOPO2 + 0.1*CH3COCH3 ; 1.2e-11, 440 +[TERP_NO3] TERP + NO3 -> 1.7*ISOPO2 + NO2 ; 1.2e-12, 490 +[TERP_O3] TERP + O3 -> 1.122*MACR + 0.442*MVK + 0.765*O + 1.156*OH ; 6.3e-16, -580 +[TERP_OH] TERP + OH -> 1.64*ISOPO2 + 0.1*CH3COCH3 ; 1.2e-11, 440 ********************************* *** Sulfur ********************************* -[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 -[DMS_OHa] DMS + OH -> SO2 ; 1.1e-11, -280 -[OCS_O] OCS + O -> SO + CO ; 2.1e-11, -2200 -[OCS_OH] OCS + OH -> SO2 + CO + H ; 7.2e-14, -1070 -[S_O2] S + O2 -> SO + O ; 2.3e-12 -[SO2_OH_M] SO2 + OH + M -> SO3 + HO2 ; 2.9e-31, 4.1, 1.7e-12, -0.2, 0.6 -[S_O3] S + O3 -> SO + O2 ; 1.2e-11 -[SO_BRO] SO + BRO -> SO2 + BR ; 5.7e-11 -[SO_CLO] SO + CLO -> SO2 + CL ; 2.8e-11 -[S_OH] S + OH -> SO + H ; 6.6e-11 -[SO_NO2] SO + NO2 -> SO2 + NO ; 1.4e-11 -[SO_O2] SO + O2 -> SO2 + O ; 1.6e-13, -2280 -[SO_O3] SO + O3 -> SO2 + O2 ; 3.4e-12, -1100 -[SO_OCLO] SO + OCLO -> SO2 + CLO ; 1.9e-12 -[SO_OH] SO + OH -> SO2 + H ; 2.6e-11, 330 -[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 -[usr_SO3_H2O] SO3 + H2O -> H2SO4 +[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 +[DMS_OHa] DMS + OH -> SO2 ; 1.1e-11, -280 +[OCS_O] OCS + O -> SO + CO ; 2.1e-11, -2200 +[OCS_OH] OCS + OH -> SO2 + CO + H ; 7.2e-14, -1070 +[S_O2] S + O2 -> SO + O ; 2.3e-12 +[SO2_OH_M] SO2 + OH + M -> SO3 + HO2 ; 2.9e-31, 4.1, 1.7e-12, -0.2, 0.6 +[S_O3] S + O3 -> SO + O2 ; 1.2e-11 +[SO_BRO] SO + BRO -> SO2 + BR ; 5.7e-11 +[SO_CLO] SO + CLO -> SO2 + CL ; 2.8e-11 +[S_OH] S + OH -> SO + H ; 6.6e-11 +[SO_NO2] SO + NO2 -> SO2 + NO ; 1.4e-11 +[SO_O2] SO + O2 -> SO2 + O ; 1.6e-13, -2280 +[SO_O3] SO + O3 -> SO2 + O2 ; 3.4e-12, -1100 +[SO_OCLO] SO + OCLO -> SO2 + CLO ; 1.9e-12 +[SO_OH] SO + OH -> SO2 + H ; 2.6e-11, 330 +[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 +[usr_SO3_H2O] SO3 + H2O -> H2SO4 ********************************* *** Tropospheric Aerosol ********************************* -[NH3_OH] NH3 + OH -> H2O + 1*NHDEP ; 1.7e-12, -710 -[usr_HO2_aer] HO2 -> H2O -[usr_N2O5_aer] N2O5 -> 2*HNO3 -[usr_NH4_strat_tau] NH4 -> 1*NHDEP ; 6.34e-08 -[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 -[usr_NO3_aer] NO3 -> HNO3 -[usr_ONITR_aer] ONITR -> HNO3 +[NH3_OH] NH3 + OH -> H2O + 1*NHDEP ; 1.7e-12, -710 +[usr_HO2_aer] HO2 -> H2O +[usr_N2O5_aer] N2O5 -> 2*HNO3 +[usr_NH4_strat_tau] NH4 -> 1*NHDEP ; 6.34e-08 +[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 +[usr_NO3_aer] NO3 -> HNO3 +[usr_ONITR_aer] ONITR -> HNO3 ********************************* *** SOA ********************************* -[SOAE_tau] SOAE -> SOAG ; 1.157e-05 +[SOAE_tau] SOAE -> SOAG ; 1.157e-05 ********************************* *** Stratospheric Aerosol ********************************* -[het1] N2O5 -> 2*HNO3 -[het10] HOCL + HCL -> CL2 + H2O -[het11] BRONO2 -> HOBR + HNO3 -[het12] N2O5 -> 2*HNO3 -[het13] CLONO2 -> HOCL + HNO3 -[het14] BRONO2 -> HOBR + HNO3 -[het15] CLONO2 + HCL -> CL2 + HNO3 -[het16] HOCL + HCL -> CL2 + H2O -[het17] HOBR + HCL -> BRCL + H2O -[het2] CLONO2 -> HOCL + HNO3 -[het3] BRONO2 -> HOBR + HNO3 -[het4] CLONO2 + HCL -> CL2 + HNO3 -[het5] HOCL + HCL -> CL2 + H2O -[het6] HOBR + HCL -> BRCL + H2O -[het7] N2O5 -> 2*HNO3 -[het8] CLONO2 -> HOCL + HNO3 -[het9] CLONO2 + HCL -> CL2 + HNO3 +[het1] N2O5 -> 2*HNO3 +[het10] HOCL + HCL -> CL2 + H2O +[het11] BRONO2 -> HOBR + HNO3 +[het12] N2O5 -> 2*HNO3 +[het13] CLONO2 -> HOCL + HNO3 +[het14] BRONO2 -> HOBR + HNO3 +[het15] CLONO2 + HCL -> CL2 + HNO3 +[het16] HOCL + HCL -> CL2 + H2O +[het17] HOBR + HCL -> BRCL + H2O +[het2] CLONO2 -> HOCL + HNO3 +[het3] BRONO2 -> HOBR + HNO3 +[het4] CLONO2 + HCL -> CL2 + HNO3 +[het5] HOCL + HCL -> CL2 + H2O +[het6] HOBR + HCL -> BRCL + H2O +[het7] N2O5 -> 2*HNO3 +[het8] CLONO2 -> HOCL + HNO3 +[het9] CLONO2 + HCL -> CL2 + HNO3 ********************************* *** Ions ********************************* -[ag247nm,cph=483.39] Op2P -> Op ; 0.047 -[ag373nm,cph=321.3] Op2D -> Op ; 7.7e-05 -[ag732nm,cph=163.06] Op2P -> Op2D ; 0.171 -[elec1,cph=82.389] NOp + e -> 0.2*N + 0.8*N2D + O -[elec2,cph=508.95] O2p + e -> 1.15*O + 0.85*O1D -[elec3,cph=354.83] N2p + e -> 1.1*N + 0.9*N2D -[ion_N2p_O2,cph=339.59] N2p + O2 -> O2p + N2 ; 6e-11 -[ion_N2p_Oa,cph=67.53] N2p + O -> NOp + N2D -[ion_N2p_Ob] N2p + O -> Op + N2 -[ion_Np_O,cph=95.55] Np + O -> Op + N ; 1e-12 -[ion_Np_O2a,cph=239.84] Np + O2 -> O2p + N ; 4e-10 -[ion_Np_O2b,cph=646.28] Np + O2 -> NOp + O ; 2e-10 -[ion_O2p_N,cph=406.16] O2p + N -> NOp + O ; 1e-10 -[ion_O2p_N2] O2p + N2 -> NOp + NO ; 5e-16 -[ion_O2p_NO,cph=271.38] O2p + NO -> NOp + O2 ; 4.4e-10 -[ion_Op_CO2] Op + CO2 -> O2p + CO ; 9e-10 -[ion_Op_N2,cph=105.04] Op + N2 -> NOp + N -[ion_Op_N2D,cph=139.9] Op + N2D -> Np + O ; 1.3e-10 -[ion_Op_O2,cph=150.11] Op + O2 -> O2p + O -[Op2D_e,cph=319.37] Op2D + e -> Op + e -[Op2D_N2,cph=128.32] Op2D + N2 -> N2p + O ; 8e-10 -[Op2D_O,cph=319.36] Op2D + O -> Op + O ; 5e-12 -[Op2D_O2,cph=469.4] Op2D + O2 -> O2p + O ; 7e-10 -[Op2P_ea,cph=163.06] Op2P + e -> Op2D + e -[Op2P_eb,cph=482.43] Op2P + e -> Op + e -[Op2P_N2a,cph=291.38] Op2P + N2 -> N2p + O ; 4.8e-10 -[Op2P_N2b,cph=67.54] Op2P + N2 -> Np + NO ; 1e-10 -[Op2P_O,cph=501.72] Op2P + O -> Op + O ; 4e-10 +[ag247nm,cph=483.39] Op2P -> Op ; 0.047 +[ag373nm,cph=321.3] Op2D -> Op ; 7.7e-05 +[ag732nm,cph=163.06] Op2P -> Op2D ; 0.171 +[elec1,cph=82.389] NOp + e -> 0.2*N + 0.8*N2D + O +[elec2,cph=508.95] O2p + e -> 1.15*O + 0.85*O1D +[elec3,cph=354.83] N2p + e -> 1.1*N + 0.9*N2D +[ion_N2p_O2,cph=339.59] N2p + O2 -> O2p + N2 ; 6e-11 +[ion_N2p_Oa,cph=67.53] N2p + O -> NOp + N2D +[ion_N2p_Ob] N2p + O -> Op + N2 +[ion_Np_O,cph=95.55] Np + O -> Op + N ; 1e-12 +[ion_Np_O2a,cph=239.84] Np + O2 -> O2p + N ; 4e-10 +[ion_Np_O2b,cph=646.28] Np + O2 -> NOp + O ; 2e-10 +[ion_O2p_N,cph=406.16] O2p + N -> NOp + O ; 1e-10 +[ion_O2p_N2] O2p + N2 -> NOp + NO ; 5e-16 +[ion_O2p_NO,cph=271.38] O2p + NO -> NOp + O2 ; 4.4e-10 +[ion_Op_CO2] Op + CO2 -> O2p + CO ; 9e-10 +[ion_Op_N2,cph=105.04] Op + N2 -> NOp + N +[ion_Op_N2D,cph=139.9] Op + N2D -> Np + O ; 1.3e-10 +[ion_Op_O2,cph=150.11] Op + O2 -> O2p + O +[Op2D_e,cph=319.37] Op2D + e -> Op + e +[Op2D_N2,cph=128.32] Op2D + N2 -> N2p + O ; 8e-10 +[Op2D_O,cph=319.36] Op2D + O -> Op + O ; 5e-12 +[Op2D_O2,cph=469.4] Op2D + O2 -> O2p + O ; 7e-10 +[Op2P_ea,cph=163.06] Op2P + e -> Op2D + e +[Op2P_eb,cph=482.43] Op2P + e -> Op + e +[Op2P_N2a,cph=291.38] Op2P + N2 -> N2p + O ; 4.8e-10 +[Op2P_N2b,cph=67.54] Op2P + N2 -> Np + NO ; 1e-10 +[Op2P_O,cph=501.72] Op2P + O -> Op + O ; 4e-10 End Reactions Ext Forcing - num_a1 <- dataset - num_a2 <- dataset - so4_a1 <- dataset - so4_a2 <- dataset - num_a4 <- dataset - bc_a4 <- dataset - pom_a4 <- dataset - num_a5 <- dataset - so4_a5 <- dataset - CO <- dataset - NO2 <- dataset - NO <- dataset - SO2 <- dataset - O2p - N2p - Np - N2D - Op - N - e - OH + CO <- dataset + pom_a4 <- dataset + so4_a5 <- dataset + bc_a4 <- dataset + SO2 <- dataset + NO2 <- dataset + NO <- dataset + num_a1 <- dataset + num_a2 <- dataset + so4_a1 <- dataset + so4_a2 <- dataset + num_a5 <- dataset + num_a4 <- dataset + O2p + N2p + Np + N2D + Op + N + e + OH End Ext Forcing End Chemistry diff --git a/src/chemistry/pp_waccm_t4ma_mam5/chem_mods.F90 b/src/chemistry/pp_waccm_t4ma_mam5/chem_mods.F90 index 7f02d339ce..dfc36b128c 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/chem_mods.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/chem_mods.F90 @@ -6,8 +6,8 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 114, & ! number of photolysis reactions - rxntot = 435, & ! number of total reactions - gascnt = 321, & ! number of gas phase reactions + rxntot = 438, & ! number of total reactions + gascnt = 324, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 151, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species @@ -23,8 +23,8 @@ module chem_mods indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 435, & - enthalpy_cnt = 54, & + rxt_tag_cnt = 438, & + enthalpy_cnt = 56, & nslvd = 13 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 diff --git a/src/chemistry/pp_waccm_t4ma_mam5/m_rxt_id.F90 b/src/chemistry/pp_waccm_t4ma_mam5/m_rxt_id.F90 index 6f94e8e421..a429b2d00e 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/m_rxt_id.F90 @@ -151,14 +151,14 @@ module m_rxt_id integer, parameter :: rid_OH_OH = 149 integer, parameter :: rid_OH_OH_M = 150 integer, parameter :: rid_usr_HO2_HO2 = 151 - integer, parameter :: rid_HO2NO2_OH = 152 - integer, parameter :: rid_N2D_O = 153 - integer, parameter :: rid_N2D_O2 = 154 - integer, parameter :: rid_N_NO = 155 - integer, parameter :: rid_N_NO2a = 156 - integer, parameter :: rid_N_NO2b = 157 - integer, parameter :: rid_N_NO2c = 158 - integer, parameter :: rid_N_O2 = 159 + integer, parameter :: rid_agn2d = 152 + integer, parameter :: rid_HO2NO2_OH = 153 + integer, parameter :: rid_N2D_NO = 154 + integer, parameter :: rid_N2D_O = 155 + integer, parameter :: rid_N_NO = 156 + integer, parameter :: rid_N_NO2a = 157 + integer, parameter :: rid_N_NO2b = 158 + integer, parameter :: rid_N_NO2c = 159 integer, parameter :: rid_NO2_O = 160 integer, parameter :: rid_NO2_O3 = 161 integer, parameter :: rid_NO2_O_M = 162 @@ -177,262 +177,265 @@ module m_rxt_id integer, parameter :: rid_tag_NO2_OH = 175 integer, parameter :: rid_usr_HNO3_OH = 176 integer, parameter :: rid_usr_HO2NO2_M = 177 - integer, parameter :: rid_usr_N2O5_M = 178 - integer, parameter :: rid_CL_CH2O = 179 - integer, parameter :: rid_CL_CH4 = 180 - integer, parameter :: rid_CL_H2 = 181 - integer, parameter :: rid_CL_H2O2 = 182 - integer, parameter :: rid_CL_HO2a = 183 - integer, parameter :: rid_CL_HO2b = 184 - integer, parameter :: rid_CL_O3 = 185 - integer, parameter :: rid_CLO_CH3O2 = 186 - integer, parameter :: rid_CLO_CLOa = 187 - integer, parameter :: rid_CLO_CLOb = 188 - integer, parameter :: rid_CLO_CLOc = 189 - integer, parameter :: rid_CLO_HO2 = 190 - integer, parameter :: rid_CLO_NO = 191 - integer, parameter :: rid_CLONO2_CL = 192 - integer, parameter :: rid_CLO_NO2_M = 193 - integer, parameter :: rid_CLONO2_O = 194 - integer, parameter :: rid_CLONO2_OH = 195 - integer, parameter :: rid_CLO_O = 196 - integer, parameter :: rid_CLO_OHa = 197 - integer, parameter :: rid_CLO_OHb = 198 - integer, parameter :: rid_HCL_O = 199 - integer, parameter :: rid_HCL_OH = 200 - integer, parameter :: rid_HOCL_CL = 201 - integer, parameter :: rid_HOCL_O = 202 - integer, parameter :: rid_HOCL_OH = 203 - integer, parameter :: rid_O1D_CCL4 = 204 - integer, parameter :: rid_O1D_CF2CLBR = 205 - integer, parameter :: rid_O1D_CFC11 = 206 - integer, parameter :: rid_O1D_CFC113 = 207 - integer, parameter :: rid_O1D_CFC114 = 208 - integer, parameter :: rid_O1D_CFC115 = 209 - integer, parameter :: rid_O1D_CFC12 = 210 - integer, parameter :: rid_O1D_HCLa = 211 - integer, parameter :: rid_O1D_HCLb = 212 - integer, parameter :: rid_tag_CLO_CLO_M = 213 - integer, parameter :: rid_usr_CL2O2_M = 214 - integer, parameter :: rid_BR_CH2O = 215 - integer, parameter :: rid_BR_HO2 = 216 - integer, parameter :: rid_BR_O3 = 217 - integer, parameter :: rid_BRO_BRO = 218 - integer, parameter :: rid_BRO_CLOa = 219 - integer, parameter :: rid_BRO_CLOb = 220 - integer, parameter :: rid_BRO_CLOc = 221 - integer, parameter :: rid_BRO_HO2 = 222 - integer, parameter :: rid_BRO_NO = 223 - integer, parameter :: rid_BRO_NO2_M = 224 - integer, parameter :: rid_BRONO2_O = 225 - integer, parameter :: rid_BRO_O = 226 - integer, parameter :: rid_BRO_OH = 227 - integer, parameter :: rid_HBR_O = 228 - integer, parameter :: rid_HBR_OH = 229 - integer, parameter :: rid_HOBR_O = 230 - integer, parameter :: rid_O1D_CF3BR = 231 - integer, parameter :: rid_O1D_CHBR3 = 232 - integer, parameter :: rid_O1D_H2402 = 233 - integer, parameter :: rid_O1D_HBRa = 234 - integer, parameter :: rid_O1D_HBRb = 235 - integer, parameter :: rid_F_CH4 = 236 - integer, parameter :: rid_F_H2 = 237 - integer, parameter :: rid_F_H2O = 238 - integer, parameter :: rid_F_HNO3 = 239 - integer, parameter :: rid_O1D_COF2 = 240 - integer, parameter :: rid_O1D_COFCL = 241 - integer, parameter :: rid_CH2BR2_CL = 242 - integer, parameter :: rid_CH2BR2_OH = 243 - integer, parameter :: rid_CH3BR_CL = 244 - integer, parameter :: rid_CH3BR_OH = 245 - integer, parameter :: rid_CH3CCL3_OH = 246 - integer, parameter :: rid_CH3CL_CL = 247 - integer, parameter :: rid_CH3CL_OH = 248 - integer, parameter :: rid_CHBR3_CL = 249 - integer, parameter :: rid_CHBR3_OH = 250 - integer, parameter :: rid_HCFC141B_OH = 251 - integer, parameter :: rid_HCFC142B_OH = 252 - integer, parameter :: rid_HCFC22_OH = 253 - integer, parameter :: rid_O1D_CH2BR2 = 254 - integer, parameter :: rid_O1D_CH3BR = 255 - integer, parameter :: rid_O1D_HCFC141B = 256 - integer, parameter :: rid_O1D_HCFC142B = 257 - integer, parameter :: rid_O1D_HCFC22 = 258 - integer, parameter :: rid_CH2O_NO3 = 259 - integer, parameter :: rid_CH2O_O = 260 - integer, parameter :: rid_CH2O_OH = 261 - integer, parameter :: rid_CH3O2_CH3O2a = 262 - integer, parameter :: rid_CH3O2_CH3O2b = 263 - integer, parameter :: rid_CH3O2_HO2 = 264 - integer, parameter :: rid_CH3O2_NO = 265 - integer, parameter :: rid_CH3OH_OH = 266 - integer, parameter :: rid_CH3OOH_OH = 267 - integer, parameter :: rid_CH4_OH = 268 - integer, parameter :: rid_O1D_CH4a = 269 - integer, parameter :: rid_O1D_CH4b = 270 - integer, parameter :: rid_O1D_CH4c = 271 - integer, parameter :: rid_usr_CO_OH = 272 - integer, parameter :: rid_C2H4_CL_M = 273 - integer, parameter :: rid_C2H4_O3 = 274 - integer, parameter :: rid_C2H5O2_C2H5O2 = 275 - integer, parameter :: rid_C2H5O2_CH3O2 = 276 - integer, parameter :: rid_C2H5O2_HO2 = 277 - integer, parameter :: rid_C2H5O2_NO = 278 - integer, parameter :: rid_C2H5OH_OH = 279 - integer, parameter :: rid_C2H5OOH_OH = 280 - integer, parameter :: rid_C2H6_CL = 281 - integer, parameter :: rid_C2H6_OH = 282 - integer, parameter :: rid_CH3CHO_NO3 = 283 - integer, parameter :: rid_CH3CHO_OH = 284 - integer, parameter :: rid_CH3CO3_CH3CO3 = 285 - integer, parameter :: rid_CH3CO3_CH3O2 = 286 - integer, parameter :: rid_CH3CO3_HO2 = 287 - integer, parameter :: rid_CH3CO3_NO = 288 - integer, parameter :: rid_CH3COOH_OH = 289 - integer, parameter :: rid_CH3COOOH_OH = 290 - integer, parameter :: rid_EO2_HO2 = 291 - integer, parameter :: rid_EO2_NO = 292 - integer, parameter :: rid_EO_M = 293 - integer, parameter :: rid_EO_O2 = 294 - integer, parameter :: rid_GLYALD_OH = 295 - integer, parameter :: rid_GLYOXAL_OH = 296 - integer, parameter :: rid_PAN_OH = 297 - integer, parameter :: rid_tag_C2H4_OH = 298 - integer, parameter :: rid_tag_CH3CO3_NO2 = 299 - integer, parameter :: rid_usr_PAN_M = 300 - integer, parameter :: rid_C3H6_NO3 = 301 - integer, parameter :: rid_C3H6_O3 = 302 - integer, parameter :: rid_C3H7O2_CH3O2 = 303 - integer, parameter :: rid_C3H7O2_HO2 = 304 - integer, parameter :: rid_C3H7O2_NO = 305 - integer, parameter :: rid_C3H7OOH_OH = 306 - integer, parameter :: rid_C3H8_OH = 307 - integer, parameter :: rid_CH3COCHO_NO3 = 308 - integer, parameter :: rid_CH3COCHO_OH = 309 - integer, parameter :: rid_HYAC_OH = 310 - integer, parameter :: rid_NOA_OH = 311 - integer, parameter :: rid_PO2_HO2 = 312 - integer, parameter :: rid_PO2_NO = 313 - integer, parameter :: rid_POOH_OH = 314 - integer, parameter :: rid_RO2_CH3O2 = 315 - integer, parameter :: rid_RO2_HO2 = 316 - integer, parameter :: rid_RO2_NO = 317 - integer, parameter :: rid_ROOH_OH = 318 - integer, parameter :: rid_tag_C3H6_OH = 319 - integer, parameter :: rid_usr_CH3COCH3_OH = 320 - integer, parameter :: rid_MACRO2_CH3CO3 = 321 - integer, parameter :: rid_MACRO2_CH3O2 = 322 - integer, parameter :: rid_MACRO2_HO2 = 323 - integer, parameter :: rid_MACRO2_NO3 = 324 - integer, parameter :: rid_MACRO2_NOa = 325 - integer, parameter :: rid_MACRO2_NOb = 326 - integer, parameter :: rid_MACR_O3 = 327 - integer, parameter :: rid_MACR_OH = 328 - integer, parameter :: rid_MACROOH_OH = 329 - integer, parameter :: rid_MCO3_CH3CO3 = 330 - integer, parameter :: rid_MCO3_CH3O2 = 331 - integer, parameter :: rid_MCO3_HO2 = 332 - integer, parameter :: rid_MCO3_MCO3 = 333 - integer, parameter :: rid_MCO3_NO = 334 - integer, parameter :: rid_MCO3_NO3 = 335 - integer, parameter :: rid_MPAN_OH_M = 336 - integer, parameter :: rid_MVK_O3 = 337 - integer, parameter :: rid_MVK_OH = 338 - integer, parameter :: rid_tag_MCO3_NO2 = 339 - integer, parameter :: rid_usr_MPAN_M = 340 - integer, parameter :: rid_BIGALK_OH = 341 - integer, parameter :: rid_HYDRALD_OH = 342 - integer, parameter :: rid_ISOP_NO3 = 343 - integer, parameter :: rid_ISOPNO3_HO2 = 344 - integer, parameter :: rid_ISOPNO3_NO = 345 - integer, parameter :: rid_ISOPNO3_NO3 = 346 - integer, parameter :: rid_ISOPO2_CH3CO3 = 347 - integer, parameter :: rid_ISOPO2_CH3O2 = 348 - integer, parameter :: rid_ISOPO2_HO2 = 349 - integer, parameter :: rid_ISOPO2_NO = 350 - integer, parameter :: rid_ISOPO2_NO3 = 351 - integer, parameter :: rid_ISOP_O3 = 352 - integer, parameter :: rid_ISOP_OH = 353 - integer, parameter :: rid_ISOPOOH_OH = 354 - integer, parameter :: rid_ONITR_NO3 = 355 - integer, parameter :: rid_ONITR_OH = 356 - integer, parameter :: rid_XO2_CH3CO3 = 357 - integer, parameter :: rid_XO2_CH3O2 = 358 - integer, parameter :: rid_XO2_HO2 = 359 - integer, parameter :: rid_XO2_NO = 360 - integer, parameter :: rid_XO2_NO3 = 361 - integer, parameter :: rid_XOOH_OH = 362 - integer, parameter :: rid_TERP_NO3 = 363 - integer, parameter :: rid_TERP_O3 = 364 - integer, parameter :: rid_TERP_OH = 365 - integer, parameter :: rid_DMS_NO3 = 366 - integer, parameter :: rid_DMS_OHa = 367 - integer, parameter :: rid_OCS_O = 368 - integer, parameter :: rid_OCS_OH = 369 - integer, parameter :: rid_S_O2 = 370 - integer, parameter :: rid_SO2_OH_M = 371 - integer, parameter :: rid_S_O3 = 372 - integer, parameter :: rid_SO_BRO = 373 - integer, parameter :: rid_SO_CLO = 374 - integer, parameter :: rid_S_OH = 375 - integer, parameter :: rid_SO_NO2 = 376 - integer, parameter :: rid_SO_O2 = 377 - integer, parameter :: rid_SO_O3 = 378 - integer, parameter :: rid_SO_OCLO = 379 - integer, parameter :: rid_SO_OH = 380 - integer, parameter :: rid_usr_DMS_OH = 381 - integer, parameter :: rid_usr_SO3_H2O = 382 - integer, parameter :: rid_NH3_OH = 383 - integer, parameter :: rid_usr_HO2_aer = 384 - integer, parameter :: rid_usr_N2O5_aer = 385 - integer, parameter :: rid_usr_NH4_strat_tau = 386 - integer, parameter :: rid_usr_NO2_aer = 387 - integer, parameter :: rid_usr_NO3_aer = 388 - integer, parameter :: rid_usr_ONITR_aer = 389 - integer, parameter :: rid_SOAE_tau = 390 - integer, parameter :: rid_het1 = 391 - integer, parameter :: rid_het10 = 392 - integer, parameter :: rid_het11 = 393 - integer, parameter :: rid_het12 = 394 - integer, parameter :: rid_het13 = 395 - integer, parameter :: rid_het14 = 396 - integer, parameter :: rid_het15 = 397 - integer, parameter :: rid_het16 = 398 - integer, parameter :: rid_het17 = 399 - integer, parameter :: rid_het2 = 400 - integer, parameter :: rid_het3 = 401 - integer, parameter :: rid_het4 = 402 - integer, parameter :: rid_het5 = 403 - integer, parameter :: rid_het6 = 404 - integer, parameter :: rid_het7 = 405 - integer, parameter :: rid_het8 = 406 - integer, parameter :: rid_het9 = 407 - integer, parameter :: rid_ag247nm = 408 - integer, parameter :: rid_ag373nm = 409 - integer, parameter :: rid_ag732nm = 410 - integer, parameter :: rid_elec1 = 411 - integer, parameter :: rid_elec2 = 412 - integer, parameter :: rid_elec3 = 413 - integer, parameter :: rid_ion_N2p_O2 = 414 - integer, parameter :: rid_ion_N2p_Oa = 415 - integer, parameter :: rid_ion_N2p_Ob = 416 - integer, parameter :: rid_ion_Np_O = 417 - integer, parameter :: rid_ion_Np_O2a = 418 - integer, parameter :: rid_ion_Np_O2b = 419 - integer, parameter :: rid_ion_O2p_N = 420 - integer, parameter :: rid_ion_O2p_N2 = 421 - integer, parameter :: rid_ion_O2p_NO = 422 - integer, parameter :: rid_ion_Op_CO2 = 423 - integer, parameter :: rid_ion_Op_N2 = 424 - integer, parameter :: rid_ion_Op_N2D = 425 - integer, parameter :: rid_ion_Op_O2 = 426 - integer, parameter :: rid_Op2D_e = 427 - integer, parameter :: rid_Op2D_N2 = 428 - integer, parameter :: rid_Op2D_O = 429 - integer, parameter :: rid_Op2D_O2 = 430 - integer, parameter :: rid_Op2P_ea = 431 - integer, parameter :: rid_Op2P_eb = 432 - integer, parameter :: rid_Op2P_N2a = 433 - integer, parameter :: rid_Op2P_N2b = 434 - integer, parameter :: rid_Op2P_O = 435 + integer, parameter :: rid_usr_N2D_e = 178 + integer, parameter :: rid_usr_N2D_O2 = 179 + integer, parameter :: rid_usr_N2O5_M = 180 + integer, parameter :: rid_usr_N_O2 = 181 + integer, parameter :: rid_CL_CH2O = 182 + integer, parameter :: rid_CL_CH4 = 183 + integer, parameter :: rid_CL_H2 = 184 + integer, parameter :: rid_CL_H2O2 = 185 + integer, parameter :: rid_CL_HO2a = 186 + integer, parameter :: rid_CL_HO2b = 187 + integer, parameter :: rid_CL_O3 = 188 + integer, parameter :: rid_CLO_CH3O2 = 189 + integer, parameter :: rid_CLO_CLOa = 190 + integer, parameter :: rid_CLO_CLOb = 191 + integer, parameter :: rid_CLO_CLOc = 192 + integer, parameter :: rid_CLO_HO2 = 193 + integer, parameter :: rid_CLO_NO = 194 + integer, parameter :: rid_CLONO2_CL = 195 + integer, parameter :: rid_CLO_NO2_M = 196 + integer, parameter :: rid_CLONO2_O = 197 + integer, parameter :: rid_CLONO2_OH = 198 + integer, parameter :: rid_CLO_O = 199 + integer, parameter :: rid_CLO_OHa = 200 + integer, parameter :: rid_CLO_OHb = 201 + integer, parameter :: rid_HCL_O = 202 + integer, parameter :: rid_HCL_OH = 203 + integer, parameter :: rid_HOCL_CL = 204 + integer, parameter :: rid_HOCL_O = 205 + integer, parameter :: rid_HOCL_OH = 206 + integer, parameter :: rid_O1D_CCL4 = 207 + integer, parameter :: rid_O1D_CF2CLBR = 208 + integer, parameter :: rid_O1D_CFC11 = 209 + integer, parameter :: rid_O1D_CFC113 = 210 + integer, parameter :: rid_O1D_CFC114 = 211 + integer, parameter :: rid_O1D_CFC115 = 212 + integer, parameter :: rid_O1D_CFC12 = 213 + integer, parameter :: rid_O1D_HCLa = 214 + integer, parameter :: rid_O1D_HCLb = 215 + integer, parameter :: rid_tag_CLO_CLO_M = 216 + integer, parameter :: rid_usr_CL2O2_M = 217 + integer, parameter :: rid_BR_CH2O = 218 + integer, parameter :: rid_BR_HO2 = 219 + integer, parameter :: rid_BR_O3 = 220 + integer, parameter :: rid_BRO_BRO = 221 + integer, parameter :: rid_BRO_CLOa = 222 + integer, parameter :: rid_BRO_CLOb = 223 + integer, parameter :: rid_BRO_CLOc = 224 + integer, parameter :: rid_BRO_HO2 = 225 + integer, parameter :: rid_BRO_NO = 226 + integer, parameter :: rid_BRO_NO2_M = 227 + integer, parameter :: rid_BRONO2_O = 228 + integer, parameter :: rid_BRO_O = 229 + integer, parameter :: rid_BRO_OH = 230 + integer, parameter :: rid_HBR_O = 231 + integer, parameter :: rid_HBR_OH = 232 + integer, parameter :: rid_HOBR_O = 233 + integer, parameter :: rid_O1D_CF3BR = 234 + integer, parameter :: rid_O1D_CHBR3 = 235 + integer, parameter :: rid_O1D_H2402 = 236 + integer, parameter :: rid_O1D_HBRa = 237 + integer, parameter :: rid_O1D_HBRb = 238 + integer, parameter :: rid_F_CH4 = 239 + integer, parameter :: rid_F_H2 = 240 + integer, parameter :: rid_F_H2O = 241 + integer, parameter :: rid_F_HNO3 = 242 + integer, parameter :: rid_O1D_COF2 = 243 + integer, parameter :: rid_O1D_COFCL = 244 + integer, parameter :: rid_CH2BR2_CL = 245 + integer, parameter :: rid_CH2BR2_OH = 246 + integer, parameter :: rid_CH3BR_CL = 247 + integer, parameter :: rid_CH3BR_OH = 248 + integer, parameter :: rid_CH3CCL3_OH = 249 + integer, parameter :: rid_CH3CL_CL = 250 + integer, parameter :: rid_CH3CL_OH = 251 + integer, parameter :: rid_CHBR3_CL = 252 + integer, parameter :: rid_CHBR3_OH = 253 + integer, parameter :: rid_HCFC141B_OH = 254 + integer, parameter :: rid_HCFC142B_OH = 255 + integer, parameter :: rid_HCFC22_OH = 256 + integer, parameter :: rid_O1D_CH2BR2 = 257 + integer, parameter :: rid_O1D_CH3BR = 258 + integer, parameter :: rid_O1D_HCFC141B = 259 + integer, parameter :: rid_O1D_HCFC142B = 260 + integer, parameter :: rid_O1D_HCFC22 = 261 + integer, parameter :: rid_CH2O_NO3 = 262 + integer, parameter :: rid_CH2O_O = 263 + integer, parameter :: rid_CH2O_OH = 264 + integer, parameter :: rid_CH3O2_CH3O2a = 265 + integer, parameter :: rid_CH3O2_CH3O2b = 266 + integer, parameter :: rid_CH3O2_HO2 = 267 + integer, parameter :: rid_CH3O2_NO = 268 + integer, parameter :: rid_CH3OH_OH = 269 + integer, parameter :: rid_CH3OOH_OH = 270 + integer, parameter :: rid_CH4_OH = 271 + integer, parameter :: rid_O1D_CH4a = 272 + integer, parameter :: rid_O1D_CH4b = 273 + integer, parameter :: rid_O1D_CH4c = 274 + integer, parameter :: rid_usr_CO_OH = 275 + integer, parameter :: rid_C2H4_CL_M = 276 + integer, parameter :: rid_C2H4_O3 = 277 + integer, parameter :: rid_C2H5O2_C2H5O2 = 278 + integer, parameter :: rid_C2H5O2_CH3O2 = 279 + integer, parameter :: rid_C2H5O2_HO2 = 280 + integer, parameter :: rid_C2H5O2_NO = 281 + integer, parameter :: rid_C2H5OH_OH = 282 + integer, parameter :: rid_C2H5OOH_OH = 283 + integer, parameter :: rid_C2H6_CL = 284 + integer, parameter :: rid_C2H6_OH = 285 + integer, parameter :: rid_CH3CHO_NO3 = 286 + integer, parameter :: rid_CH3CHO_OH = 287 + integer, parameter :: rid_CH3CO3_CH3CO3 = 288 + integer, parameter :: rid_CH3CO3_CH3O2 = 289 + integer, parameter :: rid_CH3CO3_HO2 = 290 + integer, parameter :: rid_CH3CO3_NO = 291 + integer, parameter :: rid_CH3COOH_OH = 292 + integer, parameter :: rid_CH3COOOH_OH = 293 + integer, parameter :: rid_EO2_HO2 = 294 + integer, parameter :: rid_EO2_NO = 295 + integer, parameter :: rid_EO_M = 296 + integer, parameter :: rid_EO_O2 = 297 + integer, parameter :: rid_GLYALD_OH = 298 + integer, parameter :: rid_GLYOXAL_OH = 299 + integer, parameter :: rid_PAN_OH = 300 + integer, parameter :: rid_tag_C2H4_OH = 301 + integer, parameter :: rid_tag_CH3CO3_NO2 = 302 + integer, parameter :: rid_usr_PAN_M = 303 + integer, parameter :: rid_C3H6_NO3 = 304 + integer, parameter :: rid_C3H6_O3 = 305 + integer, parameter :: rid_C3H7O2_CH3O2 = 306 + integer, parameter :: rid_C3H7O2_HO2 = 307 + integer, parameter :: rid_C3H7O2_NO = 308 + integer, parameter :: rid_C3H7OOH_OH = 309 + integer, parameter :: rid_C3H8_OH = 310 + integer, parameter :: rid_CH3COCHO_NO3 = 311 + integer, parameter :: rid_CH3COCHO_OH = 312 + integer, parameter :: rid_HYAC_OH = 313 + integer, parameter :: rid_NOA_OH = 314 + integer, parameter :: rid_PO2_HO2 = 315 + integer, parameter :: rid_PO2_NO = 316 + integer, parameter :: rid_POOH_OH = 317 + integer, parameter :: rid_RO2_CH3O2 = 318 + integer, parameter :: rid_RO2_HO2 = 319 + integer, parameter :: rid_RO2_NO = 320 + integer, parameter :: rid_ROOH_OH = 321 + integer, parameter :: rid_tag_C3H6_OH = 322 + integer, parameter :: rid_usr_CH3COCH3_OH = 323 + integer, parameter :: rid_MACRO2_CH3CO3 = 324 + integer, parameter :: rid_MACRO2_CH3O2 = 325 + integer, parameter :: rid_MACRO2_HO2 = 326 + integer, parameter :: rid_MACRO2_NO3 = 327 + integer, parameter :: rid_MACRO2_NOa = 328 + integer, parameter :: rid_MACRO2_NOb = 329 + integer, parameter :: rid_MACR_O3 = 330 + integer, parameter :: rid_MACR_OH = 331 + integer, parameter :: rid_MACROOH_OH = 332 + integer, parameter :: rid_MCO3_CH3CO3 = 333 + integer, parameter :: rid_MCO3_CH3O2 = 334 + integer, parameter :: rid_MCO3_HO2 = 335 + integer, parameter :: rid_MCO3_MCO3 = 336 + integer, parameter :: rid_MCO3_NO = 337 + integer, parameter :: rid_MCO3_NO3 = 338 + integer, parameter :: rid_MPAN_OH_M = 339 + integer, parameter :: rid_MVK_O3 = 340 + integer, parameter :: rid_MVK_OH = 341 + integer, parameter :: rid_tag_MCO3_NO2 = 342 + integer, parameter :: rid_usr_MPAN_M = 343 + integer, parameter :: rid_BIGALK_OH = 344 + integer, parameter :: rid_HYDRALD_OH = 345 + integer, parameter :: rid_ISOP_NO3 = 346 + integer, parameter :: rid_ISOPNO3_HO2 = 347 + integer, parameter :: rid_ISOPNO3_NO = 348 + integer, parameter :: rid_ISOPNO3_NO3 = 349 + integer, parameter :: rid_ISOPO2_CH3CO3 = 350 + integer, parameter :: rid_ISOPO2_CH3O2 = 351 + integer, parameter :: rid_ISOPO2_HO2 = 352 + integer, parameter :: rid_ISOPO2_NO = 353 + integer, parameter :: rid_ISOPO2_NO3 = 354 + integer, parameter :: rid_ISOP_O3 = 355 + integer, parameter :: rid_ISOP_OH = 356 + integer, parameter :: rid_ISOPOOH_OH = 357 + integer, parameter :: rid_ONITR_NO3 = 358 + integer, parameter :: rid_ONITR_OH = 359 + integer, parameter :: rid_XO2_CH3CO3 = 360 + integer, parameter :: rid_XO2_CH3O2 = 361 + integer, parameter :: rid_XO2_HO2 = 362 + integer, parameter :: rid_XO2_NO = 363 + integer, parameter :: rid_XO2_NO3 = 364 + integer, parameter :: rid_XOOH_OH = 365 + integer, parameter :: rid_TERP_NO3 = 366 + integer, parameter :: rid_TERP_O3 = 367 + integer, parameter :: rid_TERP_OH = 368 + integer, parameter :: rid_DMS_NO3 = 369 + integer, parameter :: rid_DMS_OHa = 370 + integer, parameter :: rid_OCS_O = 371 + integer, parameter :: rid_OCS_OH = 372 + integer, parameter :: rid_S_O2 = 373 + integer, parameter :: rid_SO2_OH_M = 374 + integer, parameter :: rid_S_O3 = 375 + integer, parameter :: rid_SO_BRO = 376 + integer, parameter :: rid_SO_CLO = 377 + integer, parameter :: rid_S_OH = 378 + integer, parameter :: rid_SO_NO2 = 379 + integer, parameter :: rid_SO_O2 = 380 + integer, parameter :: rid_SO_O3 = 381 + integer, parameter :: rid_SO_OCLO = 382 + integer, parameter :: rid_SO_OH = 383 + integer, parameter :: rid_usr_DMS_OH = 384 + integer, parameter :: rid_usr_SO3_H2O = 385 + integer, parameter :: rid_NH3_OH = 386 + integer, parameter :: rid_usr_HO2_aer = 387 + integer, parameter :: rid_usr_N2O5_aer = 388 + integer, parameter :: rid_usr_NH4_strat_tau = 389 + integer, parameter :: rid_usr_NO2_aer = 390 + integer, parameter :: rid_usr_NO3_aer = 391 + integer, parameter :: rid_usr_ONITR_aer = 392 + integer, parameter :: rid_SOAE_tau = 393 + integer, parameter :: rid_het1 = 394 + integer, parameter :: rid_het10 = 395 + integer, parameter :: rid_het11 = 396 + integer, parameter :: rid_het12 = 397 + integer, parameter :: rid_het13 = 398 + integer, parameter :: rid_het14 = 399 + integer, parameter :: rid_het15 = 400 + integer, parameter :: rid_het16 = 401 + integer, parameter :: rid_het17 = 402 + integer, parameter :: rid_het2 = 403 + integer, parameter :: rid_het3 = 404 + integer, parameter :: rid_het4 = 405 + integer, parameter :: rid_het5 = 406 + integer, parameter :: rid_het6 = 407 + integer, parameter :: rid_het7 = 408 + integer, parameter :: rid_het8 = 409 + integer, parameter :: rid_het9 = 410 + integer, parameter :: rid_ag247nm = 411 + integer, parameter :: rid_ag373nm = 412 + integer, parameter :: rid_ag732nm = 413 + integer, parameter :: rid_elec1 = 414 + integer, parameter :: rid_elec2 = 415 + integer, parameter :: rid_elec3 = 416 + integer, parameter :: rid_ion_N2p_O2 = 417 + integer, parameter :: rid_ion_N2p_Oa = 418 + integer, parameter :: rid_ion_N2p_Ob = 419 + integer, parameter :: rid_ion_Np_O = 420 + integer, parameter :: rid_ion_Np_O2a = 421 + integer, parameter :: rid_ion_Np_O2b = 422 + integer, parameter :: rid_ion_O2p_N = 423 + integer, parameter :: rid_ion_O2p_N2 = 424 + integer, parameter :: rid_ion_O2p_NO = 425 + integer, parameter :: rid_ion_Op_CO2 = 426 + integer, parameter :: rid_ion_Op_N2 = 427 + integer, parameter :: rid_ion_Op_N2D = 428 + integer, parameter :: rid_ion_Op_O2 = 429 + integer, parameter :: rid_Op2D_e = 430 + integer, parameter :: rid_Op2D_N2 = 431 + integer, parameter :: rid_Op2D_O = 432 + integer, parameter :: rid_Op2D_O2 = 433 + integer, parameter :: rid_Op2P_ea = 434 + integer, parameter :: rid_Op2P_eb = 435 + integer, parameter :: rid_Op2P_N2a = 436 + integer, parameter :: rid_Op2P_N2b = 437 + integer, parameter :: rid_Op2P_O = 438 end module m_rxt_id diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_adjrxt.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_adjrxt.F90 index 0c49922d05..4de4c54dc3 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_adjrxt.F90 @@ -26,25 +26,25 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 174) = rate(:,:, 174) * inv(:,:, 1) rate(:,:, 175) = rate(:,:, 175) * inv(:,:, 1) rate(:,:, 177) = rate(:,:, 177) * inv(:,:, 1) - rate(:,:, 178) = rate(:,:, 178) * inv(:,:, 1) - rate(:,:, 193) = rate(:,:, 193) * inv(:,:, 1) - rate(:,:, 213) = rate(:,:, 213) * inv(:,:, 1) - rate(:,:, 214) = rate(:,:, 214) * inv(:,:, 1) - rate(:,:, 224) = rate(:,:, 224) * inv(:,:, 1) - rate(:,:, 273) = rate(:,:, 273) * inv(:,:, 1) - rate(:,:, 298) = rate(:,:, 298) * inv(:,:, 1) - rate(:,:, 299) = rate(:,:, 299) * inv(:,:, 1) - rate(:,:, 300) = rate(:,:, 300) * inv(:,:, 1) - rate(:,:, 319) = rate(:,:, 319) * inv(:,:, 1) - rate(:,:, 336) = rate(:,:, 336) * inv(:,:, 1) + rate(:,:, 180) = rate(:,:, 180) * inv(:,:, 1) + rate(:,:, 196) = rate(:,:, 196) * inv(:,:, 1) + rate(:,:, 216) = rate(:,:, 216) * inv(:,:, 1) + rate(:,:, 217) = rate(:,:, 217) * inv(:,:, 1) + rate(:,:, 227) = rate(:,:, 227) * inv(:,:, 1) + rate(:,:, 276) = rate(:,:, 276) * inv(:,:, 1) + rate(:,:, 301) = rate(:,:, 301) * inv(:,:, 1) + rate(:,:, 302) = rate(:,:, 302) * inv(:,:, 1) + rate(:,:, 303) = rate(:,:, 303) * inv(:,:, 1) + rate(:,:, 322) = rate(:,:, 322) * inv(:,:, 1) rate(:,:, 339) = rate(:,:, 339) * inv(:,:, 1) - rate(:,:, 340) = rate(:,:, 340) * inv(:,:, 1) - rate(:,:, 371) = rate(:,:, 371) * inv(:,:, 1) - rate(:,:, 421) = rate(:,:, 421) * inv(:,:, 2) + rate(:,:, 342) = rate(:,:, 342) * inv(:,:, 1) + rate(:,:, 343) = rate(:,:, 343) * inv(:,:, 1) + rate(:,:, 374) = rate(:,:, 374) * inv(:,:, 1) rate(:,:, 424) = rate(:,:, 424) * inv(:,:, 2) - rate(:,:, 428) = rate(:,:, 428) * inv(:,:, 2) - rate(:,:, 433) = rate(:,:, 433) * inv(:,:, 2) - rate(:,:, 434) = rate(:,:, 434) * inv(:,:, 2) + rate(:,:, 427) = rate(:,:, 427) * inv(:,:, 2) + rate(:,:, 431) = rate(:,:, 431) * inv(:,:, 2) + rate(:,:, 436) = rate(:,:, 436) * inv(:,:, 2) + rate(:,:, 437) = rate(:,:, 437) * inv(:,:, 2) rate(:,:, 117) = rate(:,:, 117) * m(:,:) rate(:,:, 118) = rate(:,:, 118) * m(:,:) rate(:,:, 120) = rate(:,:, 120) * m(:,:) @@ -77,7 +77,6 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 149) = rate(:,:, 149) * m(:,:) rate(:,:, 150) = rate(:,:, 150) * m(:,:) rate(:,:, 151) = rate(:,:, 151) * m(:,:) - rate(:,:, 152) = rate(:,:, 152) * m(:,:) rate(:,:, 153) = rate(:,:, 153) * m(:,:) rate(:,:, 154) = rate(:,:, 154) * m(:,:) rate(:,:, 155) = rate(:,:, 155) * m(:,:) @@ -102,8 +101,8 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 174) = rate(:,:, 174) * m(:,:) rate(:,:, 175) = rate(:,:, 175) * m(:,:) rate(:,:, 176) = rate(:,:, 176) * m(:,:) + rate(:,:, 178) = rate(:,:, 178) * m(:,:) rate(:,:, 179) = rate(:,:, 179) * m(:,:) - rate(:,:, 180) = rate(:,:, 180) * m(:,:) rate(:,:, 181) = rate(:,:, 181) * m(:,:) rate(:,:, 182) = rate(:,:, 182) * m(:,:) rate(:,:, 183) = rate(:,:, 183) * m(:,:) @@ -137,9 +136,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 211) = rate(:,:, 211) * m(:,:) rate(:,:, 212) = rate(:,:, 212) * m(:,:) rate(:,:, 213) = rate(:,:, 213) * m(:,:) + rate(:,:, 214) = rate(:,:, 214) * m(:,:) rate(:,:, 215) = rate(:,:, 215) * m(:,:) rate(:,:, 216) = rate(:,:, 216) * m(:,:) - rate(:,:, 217) = rate(:,:, 217) * m(:,:) rate(:,:, 218) = rate(:,:, 218) * m(:,:) rate(:,:, 219) = rate(:,:, 219) * m(:,:) rate(:,:, 220) = rate(:,:, 220) * m(:,:) @@ -215,15 +214,15 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 290) = rate(:,:, 290) * m(:,:) rate(:,:, 291) = rate(:,:, 291) * m(:,:) rate(:,:, 292) = rate(:,:, 292) * m(:,:) + rate(:,:, 293) = rate(:,:, 293) * m(:,:) rate(:,:, 294) = rate(:,:, 294) * m(:,:) rate(:,:, 295) = rate(:,:, 295) * m(:,:) - rate(:,:, 296) = rate(:,:, 296) * m(:,:) rate(:,:, 297) = rate(:,:, 297) * m(:,:) rate(:,:, 298) = rate(:,:, 298) * m(:,:) rate(:,:, 299) = rate(:,:, 299) * m(:,:) + rate(:,:, 300) = rate(:,:, 300) * m(:,:) rate(:,:, 301) = rate(:,:, 301) * m(:,:) rate(:,:, 302) = rate(:,:, 302) * m(:,:) - rate(:,:, 303) = rate(:,:, 303) * m(:,:) rate(:,:, 304) = rate(:,:, 304) * m(:,:) rate(:,:, 305) = rate(:,:, 305) * m(:,:) rate(:,:, 306) = rate(:,:, 306) * m(:,:) @@ -260,9 +259,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 337) = rate(:,:, 337) * m(:,:) rate(:,:, 338) = rate(:,:, 338) * m(:,:) rate(:,:, 339) = rate(:,:, 339) * m(:,:) + rate(:,:, 340) = rate(:,:, 340) * m(:,:) rate(:,:, 341) = rate(:,:, 341) * m(:,:) rate(:,:, 342) = rate(:,:, 342) * m(:,:) - rate(:,:, 343) = rate(:,:, 343) * m(:,:) rate(:,:, 344) = rate(:,:, 344) * m(:,:) rate(:,:, 345) = rate(:,:, 345) * m(:,:) rate(:,:, 346) = rate(:,:, 346) * m(:,:) @@ -303,17 +302,17 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 381) = rate(:,:, 381) * m(:,:) rate(:,:, 382) = rate(:,:, 382) * m(:,:) rate(:,:, 383) = rate(:,:, 383) * m(:,:) - rate(:,:, 392) = rate(:,:, 392) * m(:,:) - rate(:,:, 397) = rate(:,:, 397) * m(:,:) - rate(:,:, 398) = rate(:,:, 398) * m(:,:) - rate(:,:, 399) = rate(:,:, 399) * m(:,:) + rate(:,:, 384) = rate(:,:, 384) * m(:,:) + rate(:,:, 385) = rate(:,:, 385) * m(:,:) + rate(:,:, 386) = rate(:,:, 386) * m(:,:) + rate(:,:, 395) = rate(:,:, 395) * m(:,:) + rate(:,:, 400) = rate(:,:, 400) * m(:,:) + rate(:,:, 401) = rate(:,:, 401) * m(:,:) rate(:,:, 402) = rate(:,:, 402) * m(:,:) - rate(:,:, 403) = rate(:,:, 403) * m(:,:) - rate(:,:, 404) = rate(:,:, 404) * m(:,:) + rate(:,:, 405) = rate(:,:, 405) * m(:,:) + rate(:,:, 406) = rate(:,:, 406) * m(:,:) rate(:,:, 407) = rate(:,:, 407) * m(:,:) - rate(:,:, 411) = rate(:,:, 411) * m(:,:) - rate(:,:, 412) = rate(:,:, 412) * m(:,:) - rate(:,:, 413) = rate(:,:, 413) * m(:,:) + rate(:,:, 410) = rate(:,:, 410) * m(:,:) rate(:,:, 414) = rate(:,:, 414) * m(:,:) rate(:,:, 415) = rate(:,:, 415) * m(:,:) rate(:,:, 416) = rate(:,:, 416) * m(:,:) @@ -321,15 +320,18 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 418) = rate(:,:, 418) * m(:,:) rate(:,:, 419) = rate(:,:, 419) * m(:,:) rate(:,:, 420) = rate(:,:, 420) * m(:,:) + rate(:,:, 421) = rate(:,:, 421) * m(:,:) rate(:,:, 422) = rate(:,:, 422) * m(:,:) rate(:,:, 423) = rate(:,:, 423) * m(:,:) rate(:,:, 425) = rate(:,:, 425) * m(:,:) rate(:,:, 426) = rate(:,:, 426) * m(:,:) - rate(:,:, 427) = rate(:,:, 427) * m(:,:) + rate(:,:, 428) = rate(:,:, 428) * m(:,:) rate(:,:, 429) = rate(:,:, 429) * m(:,:) rate(:,:, 430) = rate(:,:, 430) * m(:,:) - rate(:,:, 431) = rate(:,:, 431) * m(:,:) rate(:,:, 432) = rate(:,:, 432) * m(:,:) + rate(:,:, 433) = rate(:,:, 433) * m(:,:) + rate(:,:, 434) = rate(:,:, 434) * m(:,:) rate(:,:, 435) = rate(:,:, 435) * m(:,:) + rate(:,:, 438) = rate(:,:, 438) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_indprd.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_indprd.F90 index 8895a8dfa9..c51b080ea8 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_indprd.F90 @@ -20,14 +20,15 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) ! ... "independent" production for Explicit species !-------------------------------------------------------------------- if( class == 1 ) then - prod(:,1) =rxt(:,383)*y(:,111)*y(:,95) +rxt(:,386)*y(:,96) - prod(:,2) =.500_r8*rxt(:,336)*y(:,111)*y(:,87) + prod(:,1) =rxt(:,386)*y(:,111)*y(:,95) +rxt(:,389)*y(:,96) + prod(:,2) = (.500_r8*rxt(:,339)*y(:,87) +.600_r8*rxt(:,359)*y(:,112)) & + *y(:,111) +rxt(:,358)*y(:,112)*y(:,99) !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then prod(:,1) = 0._r8 - prod(:,2) = + extfrc(:,6) + prod(:,2) = + extfrc(:,4) prod(:,29) = 0._r8 prod(:,131) = 0._r8 prod(:,49) = 0._r8 @@ -73,7 +74,7 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,134) = 0._r8 prod(:,111) = 0._r8 prod(:,4) = 0._r8 - prod(:,118) = + extfrc(:,10) + prod(:,118) = + extfrc(:,1) prod(:,127) = 0._r8 prod(:,48) = 0._r8 prod(:,51) = 0._r8 @@ -123,15 +124,15 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,10) = 0._r8 prod(:,30) = 0._r8 prod(:,11) = 0._r8 - prod(:,146) = + extfrc(:,12) - prod(:,135) = + extfrc(:,11) + prod(:,146) = + extfrc(:,7) + prod(:,135) = + extfrc(:,6) prod(:,141) = 0._r8 prod(:,67) = 0._r8 - prod(:,12) = + extfrc(:,1) - prod(:,13) = + extfrc(:,2) + prod(:,12) = + extfrc(:,8) + prod(:,13) = + extfrc(:,9) prod(:,14) = 0._r8 - prod(:,15) = + extfrc(:,5) - prod(:,16) = + extfrc(:,8) + prod(:,15) = + extfrc(:,13) + prod(:,16) = + extfrc(:,12) prod(:,145) = 0._r8 prod(:,132) = 0._r8 prod(:,138) = 0._r8 @@ -142,19 +143,19 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,79) = 0._r8 prod(:,96) = 0._r8 prod(:,17) = 0._r8 - prod(:,18) = + extfrc(:,7) + prod(:,18) = + extfrc(:,2) prod(:,81) = 0._r8 prod(:,113) = 0._r8 prod(:,70) = 0._r8 prod(:,90) = 0._r8 prod(:,19) = 0._r8 prod(:,129) = 0._r8 - prod(:,109) = + extfrc(:,13) + prod(:,109) = + extfrc(:,5) prod(:,55) = 0._r8 - prod(:,20) = + extfrc(:,3) - prod(:,21) = + extfrc(:,4) + prod(:,20) = + extfrc(:,10) + prod(:,21) = + extfrc(:,11) prod(:,22) = 0._r8 - prod(:,23) = + extfrc(:,9) + prod(:,23) = + extfrc(:,3) prod(:,24) = 0._r8 prod(:,25) = 0._r8 prod(:,26) = 0._r8 diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_lin_matrix.F90 index becd325df1..b40c92f0b7 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_lin_matrix.F90 @@ -41,7 +41,7 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,104) = -( rxt(k,47) + het_rates(k,5) ) mat(k,932) = -( rxt(k,48) + het_rates(k,6) ) mat(k,297) = rxt(k,49) - mat(k,294) = -( rxt(k,49) + rxt(k,50) + rxt(k,393) + rxt(k,396) + rxt(k,401) & + mat(k,294) = -( rxt(k,49) + rxt(k,50) + rxt(k,396) + rxt(k,399) + rxt(k,404) & + het_rates(k,7) ) mat(k,3) = -( het_rates(k,8) ) mat(k,239) = -( het_rates(k,9) ) @@ -68,13 +68,13 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,1523) = .180_r8*rxt(k,29) mat(k,610) = rxt(k,33) mat(k,616) = rxt(k,35) - mat(k,271) = .690_r8*rxt(k,36) + mat(k,271) = rxt(k,36) mat(k,660) = 1.340_r8*rxt(k,37) mat(k,201) = rxt(k,41) mat(k,588) = rxt(k,42) mat(k,290) = rxt(k,44) mat(k,218) = rxt(k,45) - mat(k,230) = 2.000_r8*rxt(k,293) + mat(k,230) = 2.000_r8*rxt(k,296) mat(k,325) = -( rxt(k,60) + het_rates(k,28) ) mat(k,45) = -( rxt(k,61) + het_rates(k,29) ) mat(k,640) = -( rxt(k,24) + het_rates(k,30) ) @@ -88,7 +88,7 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,658) = 1.340_r8*rxt(k,37) mat(k,746) = .300_r8*rxt(k,40) mat(k,199) = rxt(k,41) - mat(k,275) = .600_r8*rxt(k,43) + rxt(k,300) + mat(k,275) = .600_r8*rxt(k,43) + rxt(k,303) mat(k,217) = rxt(k,45) mat(k,394) = -( rxt(k,25) + het_rates(k,33) ) mat(k,204) = .820_r8*rxt(k,21) @@ -130,12 +130,12 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,868) = rxt(k,76) mat(k,454) = rxt(k,79) mat(k,91) = -( rxt(k,64) + het_rates(k,43) ) - mat(k,29) = -( rxt(k,65) + rxt(k,214) + het_rates(k,44) ) + mat(k,29) = -( rxt(k,65) + rxt(k,217) + het_rates(k,44) ) mat(k,959) = -( rxt(k,66) + het_rates(k,45) ) mat(k,575) = rxt(k,68) mat(k,176) = rxt(k,80) - mat(k,30) = 2.000_r8*rxt(k,214) - mat(k,573) = -( rxt(k,67) + rxt(k,68) + rxt(k,395) + rxt(k,400) + rxt(k,406) & + mat(k,30) = 2.000_r8*rxt(k,217) + mat(k,573) = -( rxt(k,67) + rxt(k,68) + rxt(k,398) + rxt(k,403) + rxt(k,409) & + het_rates(k,46) ) mat(k,4) = -( het_rates(k,47) ) mat(k,649) = -( het_rates(k,48) ) @@ -172,7 +172,7 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,5) = -( het_rates(k,53) ) mat(k,6) = -( het_rates(k,54) ) mat(k,7) = -( het_rates(k,55) ) - mat(k,227) = -( rxt(k,293) + het_rates(k,56) ) + mat(k,227) = -( rxt(k,296) + het_rates(k,56) ) mat(k,66) = rxt(k,32) mat(k,377) = -( het_rates(k,57) ) mat(k,65) = -( rxt(k,32) + het_rates(k,58) ) @@ -206,18 +206,18 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,860) = -( rxt(k,76) + het_rates(k,71) ) mat(k,148) = -( rxt(k,77) + het_rates(k,72) ) mat(k,1152) = -( rxt(k,9) + het_rates(k,73) ) - mat(k,153) = 2.000_r8*rxt(k,385) + 2.000_r8*rxt(k,391) + 2.000_r8*rxt(k,394) & - + 2.000_r8*rxt(k,405) - mat(k,1000) = .500_r8*rxt(k,387) - mat(k,1239) = rxt(k,388) - mat(k,590) = rxt(k,389) - mat(k,299) = rxt(k,393) + rxt(k,396) + rxt(k,401) - mat(k,577) = rxt(k,395) + rxt(k,400) + rxt(k,406) + mat(k,153) = 2.000_r8*rxt(k,388) + 2.000_r8*rxt(k,394) + 2.000_r8*rxt(k,397) & + + 2.000_r8*rxt(k,408) + mat(k,1000) = .500_r8*rxt(k,390) + mat(k,1239) = rxt(k,391) + mat(k,590) = rxt(k,392) + mat(k,299) = rxt(k,396) + rxt(k,399) + rxt(k,404) + mat(k,577) = rxt(k,398) + rxt(k,403) + rxt(k,409) mat(k,232) = -( rxt(k,10) + rxt(k,11) + rxt(k,177) + het_rates(k,74) ) mat(k,386) = -( rxt(k,78) + het_rates(k,75) ) - mat(k,295) = rxt(k,393) + rxt(k,396) + rxt(k,401) + mat(k,295) = rxt(k,396) + rxt(k,399) + rxt(k,404) mat(k,451) = -( rxt(k,79) + het_rates(k,76) ) - mat(k,572) = rxt(k,395) + rxt(k,400) + rxt(k,406) + mat(k,572) = rxt(k,398) + rxt(k,403) + rxt(k,409) mat(k,613) = -( rxt(k,35) + het_rates(k,77) ) mat(k,178) = -( het_rates(k,78) ) mat(k,473) = -( het_rates(k,79) ) @@ -247,46 +247,47 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) integer :: k do k = 1,avec_len mat(k,654) = -( rxt(k,37) + rxt(k,38) + het_rates(k,83) ) - mat(k,267) = .288_r8*rxt(k,36) + mat(k,267) = .300_r8*rxt(k,36) mat(k,726) = -( het_rates(k,84) ) mat(k,163) = -( het_rates(k,85) ) mat(k,765) = -( het_rates(k,86) ) mat(k,657) = .660_r8*rxt(k,37) - mat(k,304) = rxt(k,39) + rxt(k,340) - mat(k,302) = -( rxt(k,39) + rxt(k,340) + het_rates(k,87) ) + mat(k,304) = rxt(k,39) + rxt(k,343) + mat(k,302) = -( rxt(k,39) + rxt(k,343) + het_rates(k,87) ) mat(k,744) = -( rxt(k,40) + het_rates(k,88) ) - mat(k,270) = .402_r8*rxt(k,36) + mat(k,270) = .700_r8*rxt(k,36) mat(k,561) = -( rxt(k,83) + het_rates(k,89) ) mat(k,1477) = rxt(k,16) - mat(k,505) = rxt(k,424) + mat(k,540) = rxt(k,152) + mat(k,505) = rxt(k,427) mat(k,122) = -( rxt(k,12) + het_rates(k,90) ) - mat(k,151) = -( rxt(k,13) + rxt(k,14) + rxt(k,178) + rxt(k,385) + rxt(k,391) & - + rxt(k,394) + rxt(k,405) + het_rates(k,91) ) + mat(k,151) = -( rxt(k,13) + rxt(k,14) + rxt(k,180) + rxt(k,388) + rxt(k,394) & + + rxt(k,397) + rxt(k,408) + het_rates(k,91) ) mat(k,8) = -( het_rates(k,92) ) mat(k,9) = -( het_rates(k,93) ) mat(k,10) = -( het_rates(k,94) ) mat(k,35) = -( het_rates(k,95) ) - mat(k,11) = -( rxt(k,386) + het_rates(k,96) ) + mat(k,11) = -( rxt(k,389) + het_rates(k,96) ) mat(k,1508) = -( rxt(k,15) + rxt(k,16) + het_rates(k,97) ) mat(k,156) = rxt(k,14) - mat(k,1007) = rxt(k,17) + .500_r8*rxt(k,387) + mat(k,1007) = rxt(k,17) + .500_r8*rxt(k,390) mat(k,1246) = rxt(k,19) - mat(k,518) = rxt(k,421) - mat(k,259) = rxt(k,434) - mat(k,996) = -( rxt(k,17) + rxt(k,387) + het_rates(k,98) ) + mat(k,518) = rxt(k,424) + mat(k,259) = rxt(k,437) + mat(k,996) = -( rxt(k,17) + rxt(k,390) + het_rates(k,98) ) mat(k,1148) = rxt(k,9) mat(k,234) = rxt(k,11) + rxt(k,177) - mat(k,152) = rxt(k,13) + rxt(k,178) + mat(k,152) = rxt(k,13) + rxt(k,180) mat(k,1235) = rxt(k,18) - mat(k,306) = rxt(k,39) + rxt(k,340) + mat(k,306) = rxt(k,39) + rxt(k,343) mat(k,200) = rxt(k,41) mat(k,587) = rxt(k,42) - mat(k,277) = .600_r8*rxt(k,43) + rxt(k,300) + mat(k,277) = .600_r8*rxt(k,43) + rxt(k,303) mat(k,298) = rxt(k,49) mat(k,576) = rxt(k,68) - mat(k,1241) = -( rxt(k,18) + rxt(k,19) + rxt(k,388) + het_rates(k,99) ) + mat(k,1241) = -( rxt(k,18) + rxt(k,19) + rxt(k,391) + het_rates(k,99) ) mat(k,236) = rxt(k,10) - mat(k,154) = rxt(k,13) + rxt(k,14) + rxt(k,178) + mat(k,154) = rxt(k,13) + rxt(k,14) + rxt(k,180) mat(k,280) = .400_r8*rxt(k,43) mat(k,300) = rxt(k,50) mat(k,578) = rxt(k,67) @@ -316,8 +317,8 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,552) = rxt(k,111) mat(k,133) = rxt(k,112) mat(k,1287) = rxt(k,119) - mat(k,265) = rxt(k,428) - mat(k,258) = rxt(k,433) + mat(k,265) = rxt(k,431) + mat(k,258) = rxt(k,436) mat(k,909) = -( rxt(k,5) + rxt(k,6) + rxt(k,98) + rxt(k,99) + rxt(k,100) & + rxt(k,101) + rxt(k,102) + rxt(k,103) + rxt(k,104) + rxt(k,105) & + rxt(k,106) + rxt(k,107) + het_rates(k,107) ) @@ -339,14 +340,15 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,212) = rxt(k,28) mat(k,1531) = .330_r8*rxt(k,29) mat(k,67) = rxt(k,32) + mat(k,273) = rxt(k,36) mat(k,292) = rxt(k,44) mat(k,219) = rxt(k,45) mat(k,100) = rxt(k,46) mat(k,391) = rxt(k,78) mat(k,455) = rxt(k,79) - mat(k,1005) = .500_r8*rxt(k,387) - mat(k,584) = -( rxt(k,42) + rxt(k,389) + het_rates(k,112) ) - mat(k,274) = -( rxt(k,43) + rxt(k,300) + het_rates(k,113) ) + mat(k,1005) = .500_r8*rxt(k,390) + mat(k,584) = -( rxt(k,42) + rxt(k,392) + het_rates(k,112) ) + mat(k,274) = -( rxt(k,43) + rxt(k,303) + het_rates(k,113) ) mat(k,401) = -( het_rates(k,114) ) mat(k,17) = -( het_rates(k,115) ) mat(k,18) = -( het_rates(k,116) ) @@ -369,9 +371,9 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,23) = -( het_rates(k,128) ) mat(k,24) = -( rxt(k,113) + het_rates(k,129) ) mat(k,25) = -( rxt(k,114) + het_rates(k,130) ) - mat(k,26) = -( rxt(k,390) + het_rates(k,131) ) + mat(k,26) = -( rxt(k,393) + het_rates(k,131) ) mat(k,28) = -( het_rates(k,132) ) - mat(k,27) = rxt(k,390) + mat(k,27) = rxt(k,393) mat(k,343) = -( het_rates(k,133) ) mat(k,671) = -( het_rates(k,134) ) mat(k,98) = -( rxt(k,46) + het_rates(k,135) ) @@ -382,7 +384,7 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) + rxt(k,97) mat(k,900) = rxt(k,98) + rxt(k,100) + rxt(k,101) + rxt(k,102) + rxt(k,103) & + rxt(k,105) + rxt(k,106) + rxt(k,107) - mat(k,1081) = -( rxt(k,384) + het_rates(k,139) ) + mat(k,1081) = -( rxt(k,387) + het_rates(k,139) ) mat(k,235) = rxt(k,11) + rxt(k,177) mat(k,171) = rxt(k,20) mat(k,206) = rxt(k,21) @@ -395,18 +397,18 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,661) = 1.340_r8*rxt(k,37) + .660_r8*rxt(k,38) mat(k,589) = rxt(k,42) mat(k,291) = rxt(k,44) - mat(k,231) = rxt(k,293) - mat(k,539) = -( het_rates(k,140) ) + mat(k,231) = rxt(k,296) + mat(k,539) = -( rxt(k,152) + het_rates(k,140) ) mat(k,334) = -( het_rates(k,141) ) - mat(k,261) = rxt(k,428) - mat(k,255) = rxt(k,433) + mat(k,261) = rxt(k,431) + mat(k,255) = rxt(k,436) mat(k,370) = -( het_rates(k,142) ) mat(k,1467) = rxt(k,15) - mat(k,510) = rxt(k,421) - mat(k,499) = rxt(k,424) + mat(k,510) = rxt(k,424) + mat(k,499) = rxt(k,427) mat(k,442) = -( het_rates(k,143) ) mat(k,556) = rxt(k,83) - mat(k,256) = rxt(k,434) + mat(k,256) = rxt(k,437) mat(k,1284) = -( rxt(k,119) + het_rates(k,144) ) mat(k,1577) = rxt(k,1) mat(k,916) = rxt(k,5) @@ -416,25 +418,25 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) mat(k,1094) = rxt(k,7) mat(k,95) = rxt(k,128) mat(k,96) = -( rxt(k,116) + rxt(k,128) + het_rates(k,146) ) - mat(k,511) = -( rxt(k,421) + het_rates(k,147) ) + mat(k,511) = -( rxt(k,424) + het_rates(k,147) ) mat(k,899) = rxt(k,102) + rxt(k,107) - mat(k,501) = -( rxt(k,424) + het_rates(k,148) ) + mat(k,501) = -( rxt(k,427) + het_rates(k,148) ) mat(k,1433) = rxt(k,93) + rxt(k,97) mat(k,898) = rxt(k,103) + rxt(k,106) - mat(k,257) = rxt(k,408) - mat(k,262) = rxt(k,409) - mat(k,260) = -( rxt(k,409) + rxt(k,428) + het_rates(k,149) ) + mat(k,257) = rxt(k,411) + mat(k,262) = rxt(k,412) + mat(k,260) = -( rxt(k,412) + rxt(k,431) + het_rates(k,149) ) mat(k,1423) = rxt(k,94) + rxt(k,95) mat(k,893) = rxt(k,98) + rxt(k,100) - mat(k,254) = rxt(k,410) - mat(k,253) = -( rxt(k,408) + rxt(k,410) + rxt(k,433) + rxt(k,434) & + mat(k,254) = rxt(k,413) + mat(k,253) = -( rxt(k,411) + rxt(k,413) + rxt(k,436) + rxt(k,437) & + het_rates(k,150) ) mat(k,1422) = rxt(k,92) + rxt(k,96) mat(k,892) = rxt(k,101) + rxt(k,105) mat(k,1584) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,151) ) mat(k,1536) = .050_r8*rxt(k,29) mat(k,70) = rxt(k,108) - mat(k,1093) = rxt(k,384) + mat(k,1093) = rxt(k,387) end do end subroutine linmat02 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_lu_factor.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_lu_factor.F90 index 1789370893..0561e8ce8d 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_lu_factor.F90 @@ -1328,7 +1328,7 @@ subroutine lu_fac09( avec_len, lu ) lu(k,1438) = lu(k,1438) - lu(k,373) * lu(k,1428) lu(k,1459) = lu(k,1459) - lu(k,374) * lu(k,1428) lu(k,1475) = lu(k,1475) - lu(k,371) * lu(k,1467) - lu(k,1476) = - lu(k,372) * lu(k,1467) + lu(k,1476) = lu(k,1476) - lu(k,372) * lu(k,1467) lu(k,1477) = lu(k,1477) - lu(k,373) * lu(k,1467) lu(k,1507) = lu(k,1507) - lu(k,374) * lu(k,1467) lu(k,377) = 1._r8 / lu(k,377) diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_nln_matrix.F90 index d699560b13..42ca073f86 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_nln_matrix.F90 @@ -22,209 +22,209 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,32) = -(rxt(k,341)*y(k,111)) - mat(k,1330) = -rxt(k,341)*y(k,3) - mat(k,876) = -(rxt(k,215)*y(k,27) + rxt(k,216)*y(k,139) + rxt(k,217)*y(k,108)) - mat(k,1016) = -rxt(k,215)*y(k,4) - mat(k,1075) = -rxt(k,216)*y(k,4) - mat(k,1121) = -rxt(k,217)*y(k,4) - mat(k,930) = 4.000_r8*rxt(k,218)*y(k,6) + (rxt(k,219)+rxt(k,220))*y(k,45) & - + rxt(k,223)*y(k,97) + rxt(k,226)*y(k,106) + rxt(k,227)*y(k,111) & - + rxt(k,373)*y(k,122) - mat(k,73) = rxt(k,205)*y(k,144) - mat(k,79) = rxt(k,231)*y(k,144) - mat(k,248) = 2.000_r8*rxt(k,242)*y(k,42) + 2.000_r8*rxt(k,243)*y(k,111) & - + 2.000_r8*rxt(k,254)*y(k,144) - mat(k,327) = rxt(k,244)*y(k,42) + rxt(k,245)*y(k,111) + rxt(k,255)*y(k,144) - mat(k,223) = 3.000_r8*rxt(k,249)*y(k,42) + 3.000_r8*rxt(k,250)*y(k,111) & - + 3.000_r8*rxt(k,232)*y(k,144) - mat(k,1311) = 2.000_r8*rxt(k,242)*y(k,26) + rxt(k,244)*y(k,28) & - + 3.000_r8*rxt(k,249)*y(k,41) - mat(k,956) = (rxt(k,219)+rxt(k,220))*y(k,6) - mat(k,43) = 2.000_r8*rxt(k,233)*y(k,144) - mat(k,434) = rxt(k,228)*y(k,106) + rxt(k,229)*y(k,111) + rxt(k,234)*y(k,144) - mat(k,1493) = rxt(k,223)*y(k,6) - mat(k,1445) = rxt(k,226)*y(k,6) + rxt(k,228)*y(k,67) - mat(k,1400) = rxt(k,227)*y(k,6) + 2.000_r8*rxt(k,243)*y(k,26) + rxt(k,245) & - *y(k,28) + 3.000_r8*rxt(k,250)*y(k,41) + rxt(k,229)*y(k,67) - mat(k,842) = rxt(k,373)*y(k,6) - mat(k,1273) = rxt(k,205)*y(k,19) + rxt(k,231)*y(k,20) + 2.000_r8*rxt(k,254) & - *y(k,26) + rxt(k,255)*y(k,28) + 3.000_r8*rxt(k,232)*y(k,41) & - + 2.000_r8*rxt(k,233)*y(k,64) + rxt(k,234)*y(k,67) - mat(k,923) = rxt(k,221)*y(k,45) - mat(k,949) = rxt(k,221)*y(k,6) - mat(k,856) = (rxt(k,399)+rxt(k,404))*y(k,75) - mat(k,385) = (rxt(k,399)+rxt(k,404))*y(k,71) - mat(k,932) = -(4._r8*rxt(k,218)*y(k,6) + (rxt(k,219) + rxt(k,220) + rxt(k,221) & - ) * y(k,45) + rxt(k,222)*y(k,139) + rxt(k,223)*y(k,97) + rxt(k,224) & - *y(k,98) + rxt(k,226)*y(k,106) + rxt(k,227)*y(k,111) + rxt(k,373) & + mat(k,32) = -(rxt(k,344)*y(k,111)) + mat(k,1330) = -rxt(k,344)*y(k,3) + mat(k,876) = -(rxt(k,218)*y(k,27) + rxt(k,219)*y(k,139) + rxt(k,220)*y(k,108)) + mat(k,1016) = -rxt(k,218)*y(k,4) + mat(k,1075) = -rxt(k,219)*y(k,4) + mat(k,1121) = -rxt(k,220)*y(k,4) + mat(k,930) = 4.000_r8*rxt(k,221)*y(k,6) + (rxt(k,222)+rxt(k,223))*y(k,45) & + + rxt(k,226)*y(k,97) + rxt(k,229)*y(k,106) + rxt(k,230)*y(k,111) & + + rxt(k,376)*y(k,122) + mat(k,73) = rxt(k,208)*y(k,144) + mat(k,79) = rxt(k,234)*y(k,144) + mat(k,248) = 2.000_r8*rxt(k,245)*y(k,42) + 2.000_r8*rxt(k,246)*y(k,111) & + + 2.000_r8*rxt(k,257)*y(k,144) + mat(k,327) = rxt(k,247)*y(k,42) + rxt(k,248)*y(k,111) + rxt(k,258)*y(k,144) + mat(k,223) = 3.000_r8*rxt(k,252)*y(k,42) + 3.000_r8*rxt(k,253)*y(k,111) & + + 3.000_r8*rxt(k,235)*y(k,144) + mat(k,1311) = 2.000_r8*rxt(k,245)*y(k,26) + rxt(k,247)*y(k,28) & + + 3.000_r8*rxt(k,252)*y(k,41) + mat(k,956) = (rxt(k,222)+rxt(k,223))*y(k,6) + mat(k,43) = 2.000_r8*rxt(k,236)*y(k,144) + mat(k,434) = rxt(k,231)*y(k,106) + rxt(k,232)*y(k,111) + rxt(k,237)*y(k,144) + mat(k,1493) = rxt(k,226)*y(k,6) + mat(k,1445) = rxt(k,229)*y(k,6) + rxt(k,231)*y(k,67) + mat(k,1400) = rxt(k,230)*y(k,6) + 2.000_r8*rxt(k,246)*y(k,26) + rxt(k,248) & + *y(k,28) + 3.000_r8*rxt(k,253)*y(k,41) + rxt(k,232)*y(k,67) + mat(k,842) = rxt(k,376)*y(k,6) + mat(k,1273) = rxt(k,208)*y(k,19) + rxt(k,234)*y(k,20) + 2.000_r8*rxt(k,257) & + *y(k,26) + rxt(k,258)*y(k,28) + 3.000_r8*rxt(k,235)*y(k,41) & + + 2.000_r8*rxt(k,236)*y(k,64) + rxt(k,237)*y(k,67) + mat(k,923) = rxt(k,224)*y(k,45) + mat(k,949) = rxt(k,224)*y(k,6) + mat(k,856) = (rxt(k,402)+rxt(k,407))*y(k,75) + mat(k,385) = (rxt(k,402)+rxt(k,407))*y(k,71) + mat(k,932) = -(4._r8*rxt(k,221)*y(k,6) + (rxt(k,222) + rxt(k,223) + rxt(k,224) & + ) * y(k,45) + rxt(k,225)*y(k,139) + rxt(k,226)*y(k,97) + rxt(k,227) & + *y(k,98) + rxt(k,229)*y(k,106) + rxt(k,230)*y(k,111) + rxt(k,376) & *y(k,122)) - mat(k,958) = -(rxt(k,219) + rxt(k,220) + rxt(k,221)) * y(k,6) - mat(k,1077) = -rxt(k,222)*y(k,6) - mat(k,1495) = -rxt(k,223)*y(k,6) - mat(k,994) = -rxt(k,224)*y(k,6) - mat(k,1447) = -rxt(k,226)*y(k,6) - mat(k,1402) = -rxt(k,227)*y(k,6) - mat(k,844) = -rxt(k,373)*y(k,6) - mat(k,878) = rxt(k,217)*y(k,108) - mat(k,297) = rxt(k,225)*y(k,106) - mat(k,435) = rxt(k,235)*y(k,144) - mat(k,389) = rxt(k,230)*y(k,106) - mat(k,1447) = mat(k,1447) + rxt(k,225)*y(k,7) + rxt(k,230)*y(k,75) - mat(k,1123) = rxt(k,217)*y(k,4) - mat(k,1275) = rxt(k,235)*y(k,67) - mat(k,294) = -(rxt(k,225)*y(k,106)) - mat(k,1424) = -rxt(k,225)*y(k,7) - mat(k,925) = rxt(k,224)*y(k,98) - mat(k,978) = rxt(k,224)*y(k,6) - mat(k,239) = -(rxt(k,273)*y(k,42) + rxt(k,274)*y(k,108) + rxt(k,298)*y(k,111)) - mat(k,1296) = -rxt(k,273)*y(k,9) - mat(k,1096) = -rxt(k,274)*y(k,9) - mat(k,1355) = -rxt(k,298)*y(k,9) - mat(k,424) = -(4._r8*rxt(k,275)*y(k,10) + rxt(k,276)*y(k,37) + rxt(k,277) & - *y(k,139) + rxt(k,278)*y(k,97)) - mat(k,1170) = -rxt(k,276)*y(k,10) - mat(k,1054) = -rxt(k,277)*y(k,10) - mat(k,1472) = -rxt(k,278)*y(k,10) - mat(k,169) = .500_r8*rxt(k,280)*y(k,111) - mat(k,158) = rxt(k,281)*y(k,42) + rxt(k,282)*y(k,111) - mat(k,1301) = rxt(k,281)*y(k,13) - mat(k,1372) = .500_r8*rxt(k,280)*y(k,12) + rxt(k,282)*y(k,13) - mat(k,126) = -(rxt(k,279)*y(k,111)) - mat(k,1339) = -rxt(k,279)*y(k,11) - mat(k,421) = .800_r8*rxt(k,275)*y(k,10) + .200_r8*rxt(k,276)*y(k,37) - mat(k,1163) = .200_r8*rxt(k,276)*y(k,10) - mat(k,168) = -(rxt(k,280)*y(k,111)) - mat(k,1345) = -rxt(k,280)*y(k,12) - mat(k,422) = rxt(k,277)*y(k,139) - mat(k,1038) = rxt(k,277)*y(k,10) - mat(k,157) = -(rxt(k,281)*y(k,42) + rxt(k,282)*y(k,111)) - mat(k,1293) = -rxt(k,281)*y(k,13) - mat(k,1343) = -rxt(k,282)*y(k,13) - mat(k,623) = -(rxt(k,301)*y(k,99) + rxt(k,302)*y(k,108) + rxt(k,319)*y(k,111)) - mat(k,1218) = -rxt(k,301)*y(k,14) - mat(k,1108) = -rxt(k,302)*y(k,14) - mat(k,1385) = -rxt(k,319)*y(k,14) - mat(k,475) = .130_r8*rxt(k,352)*y(k,108) - mat(k,1108) = mat(k,1108) + .130_r8*rxt(k,352)*y(k,79) - mat(k,460) = -(rxt(k,303)*y(k,37) + rxt(k,304)*y(k,139) + rxt(k,305)*y(k,97)) - mat(k,1171) = -rxt(k,303)*y(k,15) - mat(k,1057) = -rxt(k,304)*y(k,15) - mat(k,1473) = -rxt(k,305)*y(k,15) - mat(k,33) = 1.670_r8*rxt(k,341)*y(k,111) - mat(k,205) = rxt(k,306)*y(k,111) - mat(k,50) = rxt(k,307)*y(k,111) - mat(k,1375) = 1.670_r8*rxt(k,341)*y(k,3) + rxt(k,306)*y(k,16) + rxt(k,307) & + mat(k,958) = -(rxt(k,222) + rxt(k,223) + rxt(k,224)) * y(k,6) + mat(k,1077) = -rxt(k,225)*y(k,6) + mat(k,1495) = -rxt(k,226)*y(k,6) + mat(k,994) = -rxt(k,227)*y(k,6) + mat(k,1447) = -rxt(k,229)*y(k,6) + mat(k,1402) = -rxt(k,230)*y(k,6) + mat(k,844) = -rxt(k,376)*y(k,6) + mat(k,878) = rxt(k,220)*y(k,108) + mat(k,297) = rxt(k,228)*y(k,106) + mat(k,435) = rxt(k,238)*y(k,144) + mat(k,389) = rxt(k,233)*y(k,106) + mat(k,1447) = mat(k,1447) + rxt(k,228)*y(k,7) + rxt(k,233)*y(k,75) + mat(k,1123) = rxt(k,220)*y(k,4) + mat(k,1275) = rxt(k,238)*y(k,67) + mat(k,294) = -(rxt(k,228)*y(k,106)) + mat(k,1424) = -rxt(k,228)*y(k,7) + mat(k,925) = rxt(k,227)*y(k,98) + mat(k,978) = rxt(k,227)*y(k,6) + mat(k,239) = -(rxt(k,276)*y(k,42) + rxt(k,277)*y(k,108) + rxt(k,301)*y(k,111)) + mat(k,1296) = -rxt(k,276)*y(k,9) + mat(k,1096) = -rxt(k,277)*y(k,9) + mat(k,1355) = -rxt(k,301)*y(k,9) + mat(k,424) = -(4._r8*rxt(k,278)*y(k,10) + rxt(k,279)*y(k,37) + rxt(k,280) & + *y(k,139) + rxt(k,281)*y(k,97)) + mat(k,1170) = -rxt(k,279)*y(k,10) + mat(k,1054) = -rxt(k,280)*y(k,10) + mat(k,1472) = -rxt(k,281)*y(k,10) + mat(k,169) = .500_r8*rxt(k,283)*y(k,111) + mat(k,158) = rxt(k,284)*y(k,42) + rxt(k,285)*y(k,111) + mat(k,1301) = rxt(k,284)*y(k,13) + mat(k,1372) = .500_r8*rxt(k,283)*y(k,12) + rxt(k,285)*y(k,13) + mat(k,126) = -(rxt(k,282)*y(k,111)) + mat(k,1339) = -rxt(k,282)*y(k,11) + mat(k,421) = .800_r8*rxt(k,278)*y(k,10) + .200_r8*rxt(k,279)*y(k,37) + mat(k,1163) = .200_r8*rxt(k,279)*y(k,10) + mat(k,168) = -(rxt(k,283)*y(k,111)) + mat(k,1345) = -rxt(k,283)*y(k,12) + mat(k,422) = rxt(k,280)*y(k,139) + mat(k,1038) = rxt(k,280)*y(k,10) + mat(k,157) = -(rxt(k,284)*y(k,42) + rxt(k,285)*y(k,111)) + mat(k,1293) = -rxt(k,284)*y(k,13) + mat(k,1343) = -rxt(k,285)*y(k,13) + mat(k,623) = -(rxt(k,304)*y(k,99) + rxt(k,305)*y(k,108) + rxt(k,322)*y(k,111)) + mat(k,1218) = -rxt(k,304)*y(k,14) + mat(k,1108) = -rxt(k,305)*y(k,14) + mat(k,1385) = -rxt(k,322)*y(k,14) + mat(k,475) = .130_r8*rxt(k,355)*y(k,108) + mat(k,1108) = mat(k,1108) + .130_r8*rxt(k,355)*y(k,79) + mat(k,460) = -(rxt(k,306)*y(k,37) + rxt(k,307)*y(k,139) + rxt(k,308)*y(k,97)) + mat(k,1171) = -rxt(k,306)*y(k,15) + mat(k,1057) = -rxt(k,307)*y(k,15) + mat(k,1473) = -rxt(k,308)*y(k,15) + mat(k,33) = 1.670_r8*rxt(k,344)*y(k,111) + mat(k,205) = rxt(k,309)*y(k,111) + mat(k,50) = rxt(k,310)*y(k,111) + mat(k,1375) = 1.670_r8*rxt(k,344)*y(k,3) + rxt(k,309)*y(k,16) + rxt(k,310) & *y(k,17) - mat(k,203) = -(rxt(k,306)*y(k,111)) - mat(k,1350) = -rxt(k,306)*y(k,16) - mat(k,458) = rxt(k,304)*y(k,139) - mat(k,1039) = rxt(k,304)*y(k,15) - mat(k,49) = -(rxt(k,307)*y(k,111)) - mat(k,1333) = -rxt(k,307)*y(k,17) - mat(k,38) = -(rxt(k,204)*y(k,144)) - mat(k,1250) = -rxt(k,204)*y(k,18) - mat(k,71) = -(rxt(k,205)*y(k,144)) - mat(k,1255) = -rxt(k,205)*y(k,19) - mat(k,76) = -(rxt(k,231)*y(k,144)) - mat(k,1256) = -rxt(k,231)*y(k,20) - mat(k,53) = -(rxt(k,206)*y(k,144)) - mat(k,1252) = -rxt(k,206)*y(k,21) - mat(k,81) = -(rxt(k,207)*y(k,144)) - mat(k,1257) = -rxt(k,207)*y(k,22) - mat(k,57) = -(rxt(k,208)*y(k,144)) - mat(k,1253) = -rxt(k,208)*y(k,23) - mat(k,86) = -(rxt(k,209)*y(k,144)) - mat(k,1258) = -rxt(k,209)*y(k,24) - mat(k,61) = -(rxt(k,210)*y(k,144)) - mat(k,1254) = -rxt(k,210)*y(k,25) - mat(k,246) = -(rxt(k,242)*y(k,42) + rxt(k,243)*y(k,111) + rxt(k,254)*y(k,144)) - mat(k,1297) = -rxt(k,242)*y(k,26) - mat(k,1356) = -rxt(k,243)*y(k,26) - mat(k,1267) = -rxt(k,254)*y(k,26) - mat(k,1021) = -(rxt(k,179)*y(k,42) + rxt(k,215)*y(k,4) + rxt(k,259)*y(k,99) & - + rxt(k,260)*y(k,106) + rxt(k,261)*y(k,111)) - mat(k,1316) = -rxt(k,179)*y(k,27) - mat(k,880) = -rxt(k,215)*y(k,27) - mat(k,1236) = -rxt(k,259)*y(k,27) - mat(k,1450) = -rxt(k,260)*y(k,27) - mat(k,1405) = -rxt(k,261)*y(k,27) - mat(k,242) = rxt(k,274)*y(k,108) - mat(k,428) = .700_r8*rxt(k,276)*y(k,37) - mat(k,631) = .500_r8*rxt(k,302)*y(k,108) - mat(k,466) = rxt(k,303)*y(k,37) - mat(k,797) = rxt(k,286)*y(k,37) + .600_r8*rxt(k,347)*y(k,81) & - + .250_r8*rxt(k,321)*y(k,84) + rxt(k,330)*y(k,86) & - + .250_r8*rxt(k,357)*y(k,134) - mat(k,321) = .500_r8*rxt(k,290)*y(k,111) - mat(k,1190) = .700_r8*rxt(k,276)*y(k,10) + rxt(k,303)*y(k,15) + rxt(k,286) & - *y(k,32) + (4.000_r8*rxt(k,262)+2.000_r8*rxt(k,263))*y(k,37) & - + rxt(k,186)*y(k,45) + 1.200_r8*rxt(k,348)*y(k,81) & - + .880_r8*rxt(k,322)*y(k,84) + 2.000_r8*rxt(k,331)*y(k,86) & - + rxt(k,265)*y(k,97) + .800_r8*rxt(k,315)*y(k,118) & - + .800_r8*rxt(k,358)*y(k,134) - mat(k,283) = rxt(k,266)*y(k,111) - mat(k,210) = .300_r8*rxt(k,267)*y(k,111) - mat(k,1523) = (rxt(k,270)+rxt(k,271))*y(k,144) - mat(k,961) = rxt(k,186)*y(k,37) - mat(k,381) = .500_r8*rxt(k,292)*y(k,97) - mat(k,610) = .800_r8*rxt(k,295)*y(k,111) - mat(k,482) = .910_r8*rxt(k,352)*y(k,108) - mat(k,416) = .072_r8*rxt(k,345)*y(k,97) + .072_r8*rxt(k,346)*y(k,99) & - + .206_r8*rxt(k,344)*y(k,139) - mat(k,709) = .600_r8*rxt(k,347)*y(k,32) + 1.200_r8*rxt(k,348)*y(k,37) & - + .550_r8*rxt(k,350)*y(k,97) + .600_r8*rxt(k,351)*y(k,99) - mat(k,660) = .120_r8*rxt(k,327)*y(k,108) - mat(k,731) = .250_r8*rxt(k,321)*y(k,32) + .880_r8*rxt(k,322)*y(k,37) & - + .250_r8*rxt(k,325)*y(k,97) + .250_r8*rxt(k,324)*y(k,99) - mat(k,769) = rxt(k,330)*y(k,32) + 2.000_r8*rxt(k,331)*y(k,37) & - + 4.000_r8*rxt(k,333)*y(k,86) + rxt(k,334)*y(k,97) + rxt(k,335) & - *y(k,99) + .450_r8*rxt(k,332)*y(k,139) - mat(k,307) = .500_r8*rxt(k,336)*y(k,111) - mat(k,750) = .600_r8*rxt(k,337)*y(k,108) - mat(k,1498) = rxt(k,265)*y(k,37) + .500_r8*rxt(k,292)*y(k,57) & - + .072_r8*rxt(k,345)*y(k,80) + .550_r8*rxt(k,350)*y(k,81) & - + .250_r8*rxt(k,325)*y(k,84) + rxt(k,334)*y(k,86) + rxt(k,313) & - *y(k,114) + rxt(k,317)*y(k,118) + .250_r8*rxt(k,360)*y(k,134) - mat(k,1236) = mat(k,1236) + .072_r8*rxt(k,346)*y(k,80) + .600_r8*rxt(k,351) & - *y(k,81) + .250_r8*rxt(k,324)*y(k,84) + rxt(k,335)*y(k,86) - mat(k,1126) = rxt(k,274)*y(k,9) + .500_r8*rxt(k,302)*y(k,14) & - + .910_r8*rxt(k,352)*y(k,79) + .120_r8*rxt(k,327)*y(k,83) & - + .600_r8*rxt(k,337)*y(k,88) - mat(k,1405) = mat(k,1405) + .500_r8*rxt(k,290)*y(k,36) + rxt(k,266)*y(k,38) & - + .300_r8*rxt(k,267)*y(k,39) + .800_r8*rxt(k,295)*y(k,60) & - + .500_r8*rxt(k,336)*y(k,87) + rxt(k,297)*y(k,113) - mat(k,278) = rxt(k,297)*y(k,111) - mat(k,406) = rxt(k,313)*y(k,97) - mat(k,600) = .800_r8*rxt(k,315)*y(k,37) + rxt(k,317)*y(k,97) & - + .150_r8*rxt(k,316)*y(k,139) - mat(k,676) = .250_r8*rxt(k,357)*y(k,32) + .800_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) - mat(k,1080) = .206_r8*rxt(k,344)*y(k,80) + .450_r8*rxt(k,332)*y(k,86) & - + .150_r8*rxt(k,316)*y(k,118) - mat(k,1278) = (rxt(k,270)+rxt(k,271))*y(k,40) - mat(k,325) = -(rxt(k,244)*y(k,42) + rxt(k,245)*y(k,111) + rxt(k,255)*y(k,144)) - mat(k,1299) = -rxt(k,244)*y(k,28) - mat(k,1364) = -rxt(k,245)*y(k,28) - mat(k,1268) = -rxt(k,255)*y(k,28) - mat(k,45) = -(rxt(k,246)*y(k,111)) - mat(k,1332) = -rxt(k,246)*y(k,29) - mat(k,640) = -(rxt(k,283)*y(k,99) + rxt(k,284)*y(k,111)) - mat(k,1219) = -rxt(k,283)*y(k,30) - mat(k,1386) = -rxt(k,284)*y(k,30) - mat(k,425) = 3.200_r8*rxt(k,275)*y(k,10) + .800_r8*rxt(k,276)*y(k,37) & - + rxt(k,278)*y(k,97) - mat(k,127) = rxt(k,279)*y(k,111) - mat(k,170) = .500_r8*rxt(k,280)*y(k,111) - mat(k,624) = .500_r8*rxt(k,302)*y(k,108) - mat(k,462) = .270_r8*rxt(k,305)*y(k,97) - mat(k,1175) = .800_r8*rxt(k,276)*y(k,10) - mat(k,740) = .100_r8*rxt(k,337)*y(k,108) - mat(k,1482) = rxt(k,278)*y(k,10) + .270_r8*rxt(k,305)*y(k,15) + rxt(k,313) & + mat(k,203) = -(rxt(k,309)*y(k,111)) + mat(k,1350) = -rxt(k,309)*y(k,16) + mat(k,458) = rxt(k,307)*y(k,139) + mat(k,1039) = rxt(k,307)*y(k,15) + mat(k,49) = -(rxt(k,310)*y(k,111)) + mat(k,1333) = -rxt(k,310)*y(k,17) + mat(k,38) = -(rxt(k,207)*y(k,144)) + mat(k,1250) = -rxt(k,207)*y(k,18) + mat(k,71) = -(rxt(k,208)*y(k,144)) + mat(k,1255) = -rxt(k,208)*y(k,19) + mat(k,76) = -(rxt(k,234)*y(k,144)) + mat(k,1256) = -rxt(k,234)*y(k,20) + mat(k,53) = -(rxt(k,209)*y(k,144)) + mat(k,1252) = -rxt(k,209)*y(k,21) + mat(k,81) = -(rxt(k,210)*y(k,144)) + mat(k,1257) = -rxt(k,210)*y(k,22) + mat(k,57) = -(rxt(k,211)*y(k,144)) + mat(k,1253) = -rxt(k,211)*y(k,23) + mat(k,86) = -(rxt(k,212)*y(k,144)) + mat(k,1258) = -rxt(k,212)*y(k,24) + mat(k,61) = -(rxt(k,213)*y(k,144)) + mat(k,1254) = -rxt(k,213)*y(k,25) + mat(k,246) = -(rxt(k,245)*y(k,42) + rxt(k,246)*y(k,111) + rxt(k,257)*y(k,144)) + mat(k,1297) = -rxt(k,245)*y(k,26) + mat(k,1356) = -rxt(k,246)*y(k,26) + mat(k,1267) = -rxt(k,257)*y(k,26) + mat(k,1021) = -(rxt(k,182)*y(k,42) + rxt(k,218)*y(k,4) + rxt(k,262)*y(k,99) & + + rxt(k,263)*y(k,106) + rxt(k,264)*y(k,111)) + mat(k,1316) = -rxt(k,182)*y(k,27) + mat(k,880) = -rxt(k,218)*y(k,27) + mat(k,1236) = -rxt(k,262)*y(k,27) + mat(k,1450) = -rxt(k,263)*y(k,27) + mat(k,1405) = -rxt(k,264)*y(k,27) + mat(k,242) = rxt(k,277)*y(k,108) + mat(k,428) = .700_r8*rxt(k,279)*y(k,37) + mat(k,631) = .500_r8*rxt(k,305)*y(k,108) + mat(k,466) = rxt(k,306)*y(k,37) + mat(k,797) = rxt(k,289)*y(k,37) + .600_r8*rxt(k,350)*y(k,81) & + + .250_r8*rxt(k,324)*y(k,84) + rxt(k,333)*y(k,86) & + + .250_r8*rxt(k,360)*y(k,134) + mat(k,321) = .500_r8*rxt(k,293)*y(k,111) + mat(k,1190) = .700_r8*rxt(k,279)*y(k,10) + rxt(k,306)*y(k,15) + rxt(k,289) & + *y(k,32) + (4.000_r8*rxt(k,265)+2.000_r8*rxt(k,266))*y(k,37) & + + rxt(k,189)*y(k,45) + 1.200_r8*rxt(k,351)*y(k,81) & + + .880_r8*rxt(k,325)*y(k,84) + 2.000_r8*rxt(k,334)*y(k,86) & + + rxt(k,268)*y(k,97) + .800_r8*rxt(k,318)*y(k,118) & + + .800_r8*rxt(k,361)*y(k,134) + mat(k,283) = rxt(k,269)*y(k,111) + mat(k,210) = .300_r8*rxt(k,270)*y(k,111) + mat(k,1523) = (rxt(k,273)+rxt(k,274))*y(k,144) + mat(k,961) = rxt(k,189)*y(k,37) + mat(k,381) = .500_r8*rxt(k,295)*y(k,97) + mat(k,610) = .800_r8*rxt(k,298)*y(k,111) + mat(k,482) = .910_r8*rxt(k,355)*y(k,108) + mat(k,416) = .072_r8*rxt(k,348)*y(k,97) + .072_r8*rxt(k,349)*y(k,99) & + + .206_r8*rxt(k,347)*y(k,139) + mat(k,709) = .600_r8*rxt(k,350)*y(k,32) + 1.200_r8*rxt(k,351)*y(k,37) & + + .550_r8*rxt(k,353)*y(k,97) + .600_r8*rxt(k,354)*y(k,99) + mat(k,660) = .120_r8*rxt(k,330)*y(k,108) + mat(k,731) = .250_r8*rxt(k,324)*y(k,32) + .880_r8*rxt(k,325)*y(k,37) & + + .250_r8*rxt(k,328)*y(k,97) + .250_r8*rxt(k,327)*y(k,99) + mat(k,769) = rxt(k,333)*y(k,32) + 2.000_r8*rxt(k,334)*y(k,37) & + + 4.000_r8*rxt(k,336)*y(k,86) + rxt(k,337)*y(k,97) + rxt(k,338) & + *y(k,99) + .450_r8*rxt(k,335)*y(k,139) + mat(k,307) = .500_r8*rxt(k,339)*y(k,111) + mat(k,750) = .600_r8*rxt(k,340)*y(k,108) + mat(k,1498) = rxt(k,268)*y(k,37) + .500_r8*rxt(k,295)*y(k,57) & + + .072_r8*rxt(k,348)*y(k,80) + .550_r8*rxt(k,353)*y(k,81) & + + .250_r8*rxt(k,328)*y(k,84) + rxt(k,337)*y(k,86) + rxt(k,316) & + *y(k,114) + rxt(k,320)*y(k,118) + .250_r8*rxt(k,363)*y(k,134) + mat(k,1236) = mat(k,1236) + .072_r8*rxt(k,349)*y(k,80) + .600_r8*rxt(k,354) & + *y(k,81) + .250_r8*rxt(k,327)*y(k,84) + rxt(k,338)*y(k,86) + mat(k,1126) = rxt(k,277)*y(k,9) + .500_r8*rxt(k,305)*y(k,14) & + + .910_r8*rxt(k,355)*y(k,79) + .120_r8*rxt(k,330)*y(k,83) & + + .600_r8*rxt(k,340)*y(k,88) + mat(k,1405) = mat(k,1405) + .500_r8*rxt(k,293)*y(k,36) + rxt(k,269)*y(k,38) & + + .300_r8*rxt(k,270)*y(k,39) + .800_r8*rxt(k,298)*y(k,60) & + + .500_r8*rxt(k,339)*y(k,87) + rxt(k,300)*y(k,113) + mat(k,278) = rxt(k,300)*y(k,111) + mat(k,406) = rxt(k,316)*y(k,97) + mat(k,600) = .800_r8*rxt(k,318)*y(k,37) + rxt(k,320)*y(k,97) & + + .150_r8*rxt(k,319)*y(k,139) + mat(k,676) = .250_r8*rxt(k,360)*y(k,32) + .800_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + mat(k,1080) = .206_r8*rxt(k,347)*y(k,80) + .450_r8*rxt(k,335)*y(k,86) & + + .150_r8*rxt(k,319)*y(k,118) + mat(k,1278) = (rxt(k,273)+rxt(k,274))*y(k,40) + mat(k,325) = -(rxt(k,247)*y(k,42) + rxt(k,248)*y(k,111) + rxt(k,258)*y(k,144)) + mat(k,1299) = -rxt(k,247)*y(k,28) + mat(k,1364) = -rxt(k,248)*y(k,28) + mat(k,1268) = -rxt(k,258)*y(k,28) + mat(k,45) = -(rxt(k,249)*y(k,111)) + mat(k,1332) = -rxt(k,249)*y(k,29) + mat(k,640) = -(rxt(k,286)*y(k,99) + rxt(k,287)*y(k,111)) + mat(k,1219) = -rxt(k,286)*y(k,30) + mat(k,1386) = -rxt(k,287)*y(k,30) + mat(k,425) = 3.200_r8*rxt(k,278)*y(k,10) + .800_r8*rxt(k,279)*y(k,37) & + + rxt(k,281)*y(k,97) + mat(k,127) = rxt(k,282)*y(k,111) + mat(k,170) = .500_r8*rxt(k,283)*y(k,111) + mat(k,624) = .500_r8*rxt(k,305)*y(k,108) + mat(k,462) = .270_r8*rxt(k,308)*y(k,97) + mat(k,1175) = .800_r8*rxt(k,279)*y(k,10) + mat(k,740) = .100_r8*rxt(k,340)*y(k,108) + mat(k,1482) = rxt(k,281)*y(k,10) + .270_r8*rxt(k,308)*y(k,15) + rxt(k,316) & *y(k,114) - mat(k,1109) = .500_r8*rxt(k,302)*y(k,14) + .100_r8*rxt(k,337)*y(k,88) - mat(k,1386) = mat(k,1386) + rxt(k,279)*y(k,11) + .500_r8*rxt(k,280)*y(k,12) - mat(k,403) = rxt(k,313)*y(k,97) + mat(k,1109) = .500_r8*rxt(k,305)*y(k,14) + .100_r8*rxt(k,340)*y(k,88) + mat(k,1386) = mat(k,1386) + rxt(k,282)*y(k,11) + .500_r8*rxt(k,283)*y(k,12) + mat(k,403) = rxt(k,316)*y(k,97) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -245,207 +245,207 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,189) = -(rxt(k,247)*y(k,42) + rxt(k,248)*y(k,111)) - mat(k,1294) = -rxt(k,247)*y(k,31) - mat(k,1348) = -rxt(k,248)*y(k,31) - mat(k,793) = -(4._r8*rxt(k,285)*y(k,32) + rxt(k,286)*y(k,37) + rxt(k,287) & - *y(k,139) + rxt(k,288)*y(k,97) + rxt(k,299)*y(k,98) + rxt(k,321) & - *y(k,84) + rxt(k,347)*y(k,81) + rxt(k,357)*y(k,134)) - mat(k,1184) = -rxt(k,286)*y(k,32) - mat(k,1071) = -rxt(k,287)*y(k,32) - mat(k,1491) = -rxt(k,288)*y(k,32) - mat(k,988) = -rxt(k,299)*y(k,32) - mat(k,728) = -rxt(k,321)*y(k,32) - mat(k,706) = -rxt(k,347)*y(k,32) - mat(k,673) = -rxt(k,357)*y(k,32) - mat(k,642) = rxt(k,283)*y(k,99) + rxt(k,284)*y(k,111) - mat(k,793) = mat(k,793) + .530_r8*rxt(k,321)*y(k,84) - mat(k,684) = rxt(k,308)*y(k,99) + rxt(k,309)*y(k,111) - mat(k,319) = .500_r8*rxt(k,290)*y(k,111) - mat(k,1184) = mat(k,1184) + .260_r8*rxt(k,322)*y(k,84) + rxt(k,331)*y(k,86) & - + .300_r8*rxt(k,315)*y(k,118) - mat(k,480) = .080_r8*rxt(k,352)*y(k,108) - mat(k,658) = .100_r8*rxt(k,327)*y(k,108) - mat(k,728) = mat(k,728) + .530_r8*rxt(k,321)*y(k,32) + .260_r8*rxt(k,322) & - *y(k,37) + .530_r8*rxt(k,325)*y(k,97) + .530_r8*rxt(k,324) & + mat(k,189) = -(rxt(k,250)*y(k,42) + rxt(k,251)*y(k,111)) + mat(k,1294) = -rxt(k,250)*y(k,31) + mat(k,1348) = -rxt(k,251)*y(k,31) + mat(k,793) = -(4._r8*rxt(k,288)*y(k,32) + rxt(k,289)*y(k,37) + rxt(k,290) & + *y(k,139) + rxt(k,291)*y(k,97) + rxt(k,302)*y(k,98) + rxt(k,324) & + *y(k,84) + rxt(k,350)*y(k,81) + rxt(k,360)*y(k,134)) + mat(k,1184) = -rxt(k,289)*y(k,32) + mat(k,1071) = -rxt(k,290)*y(k,32) + mat(k,1491) = -rxt(k,291)*y(k,32) + mat(k,988) = -rxt(k,302)*y(k,32) + mat(k,728) = -rxt(k,324)*y(k,32) + mat(k,706) = -rxt(k,350)*y(k,32) + mat(k,673) = -rxt(k,360)*y(k,32) + mat(k,642) = rxt(k,286)*y(k,99) + rxt(k,287)*y(k,111) + mat(k,793) = mat(k,793) + .530_r8*rxt(k,324)*y(k,84) + mat(k,684) = rxt(k,311)*y(k,99) + rxt(k,312)*y(k,111) + mat(k,319) = .500_r8*rxt(k,293)*y(k,111) + mat(k,1184) = mat(k,1184) + .260_r8*rxt(k,325)*y(k,84) + rxt(k,334)*y(k,86) & + + .300_r8*rxt(k,318)*y(k,118) + mat(k,480) = .080_r8*rxt(k,355)*y(k,108) + mat(k,658) = .100_r8*rxt(k,330)*y(k,108) + mat(k,728) = mat(k,728) + .530_r8*rxt(k,324)*y(k,32) + .260_r8*rxt(k,325) & + *y(k,37) + .530_r8*rxt(k,328)*y(k,97) + .530_r8*rxt(k,327) & *y(k,99) - mat(k,766) = rxt(k,331)*y(k,37) + 4.000_r8*rxt(k,333)*y(k,86) + rxt(k,334) & - *y(k,97) + rxt(k,335)*y(k,99) + .450_r8*rxt(k,332)*y(k,139) - mat(k,746) = .280_r8*rxt(k,337)*y(k,108) - mat(k,1491) = mat(k,1491) + .530_r8*rxt(k,325)*y(k,84) + rxt(k,334)*y(k,86) & - + rxt(k,317)*y(k,118) - mat(k,1228) = rxt(k,283)*y(k,30) + rxt(k,308)*y(k,34) + .530_r8*rxt(k,324) & - *y(k,84) + rxt(k,335)*y(k,86) - mat(k,1118) = .080_r8*rxt(k,352)*y(k,79) + .100_r8*rxt(k,327)*y(k,83) & - + .280_r8*rxt(k,337)*y(k,88) - mat(k,1395) = rxt(k,284)*y(k,30) + rxt(k,309)*y(k,34) + .500_r8*rxt(k,290) & + mat(k,766) = rxt(k,334)*y(k,37) + 4.000_r8*rxt(k,336)*y(k,86) + rxt(k,337) & + *y(k,97) + rxt(k,338)*y(k,99) + .450_r8*rxt(k,335)*y(k,139) + mat(k,746) = .280_r8*rxt(k,340)*y(k,108) + mat(k,1491) = mat(k,1491) + .530_r8*rxt(k,328)*y(k,84) + rxt(k,337)*y(k,86) & + + rxt(k,320)*y(k,118) + mat(k,1228) = rxt(k,286)*y(k,30) + rxt(k,311)*y(k,34) + .530_r8*rxt(k,327) & + *y(k,84) + rxt(k,338)*y(k,86) + mat(k,1118) = .080_r8*rxt(k,355)*y(k,79) + .100_r8*rxt(k,330)*y(k,83) & + + .280_r8*rxt(k,340)*y(k,88) + mat(k,1395) = rxt(k,287)*y(k,30) + rxt(k,312)*y(k,34) + .500_r8*rxt(k,293) & *y(k,36) - mat(k,598) = .300_r8*rxt(k,315)*y(k,37) + rxt(k,317)*y(k,97) & - + .150_r8*rxt(k,316)*y(k,139) - mat(k,1071) = mat(k,1071) + .450_r8*rxt(k,332)*y(k,86) + .150_r8*rxt(k,316) & + mat(k,598) = .300_r8*rxt(k,318)*y(k,37) + rxt(k,320)*y(k,97) & + + .150_r8*rxt(k,319)*y(k,139) + mat(k,1071) = mat(k,1071) + .450_r8*rxt(k,335)*y(k,86) + .150_r8*rxt(k,319) & *y(k,118) - mat(k,394) = -(rxt(k,320)*y(k,111)) - mat(k,1370) = -rxt(k,320)*y(k,33) - mat(k,459) = .820_r8*rxt(k,303)*y(k,37) + .820_r8*rxt(k,305)*y(k,97) - mat(k,1169) = .820_r8*rxt(k,303)*y(k,15) - mat(k,1469) = .820_r8*rxt(k,305)*y(k,15) - mat(k,1370) = mat(k,1370) + .100_r8*rxt(k,365)*y(k,133) - mat(k,344) = .100_r8*rxt(k,365)*y(k,111) - mat(k,683) = -(rxt(k,308)*y(k,99) + rxt(k,309)*y(k,111)) - mat(k,1223) = -rxt(k,308)*y(k,34) - mat(k,1390) = -rxt(k,309)*y(k,34) - mat(k,788) = .250_r8*rxt(k,321)*y(k,84) + .250_r8*rxt(k,357)*y(k,134) - mat(k,1179) = .240_r8*rxt(k,322)*y(k,84) + .500_r8*rxt(k,315)*y(k,118) & - + .100_r8*rxt(k,358)*y(k,134) - mat(k,614) = rxt(k,310)*y(k,111) - mat(k,701) = .020_r8*rxt(k,350)*y(k,97) - mat(k,655) = .880_r8*rxt(k,327)*y(k,108) - mat(k,725) = .250_r8*rxt(k,321)*y(k,32) + .240_r8*rxt(k,322)*y(k,37) & - + .250_r8*rxt(k,325)*y(k,97) + .250_r8*rxt(k,324)*y(k,99) - mat(k,742) = .500_r8*rxt(k,337)*y(k,108) - mat(k,1486) = .020_r8*rxt(k,350)*y(k,81) + .250_r8*rxt(k,325)*y(k,84) & - + .250_r8*rxt(k,360)*y(k,134) - mat(k,1223) = mat(k,1223) + .250_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,361) & + mat(k,394) = -(rxt(k,323)*y(k,111)) + mat(k,1370) = -rxt(k,323)*y(k,33) + mat(k,459) = .820_r8*rxt(k,306)*y(k,37) + .820_r8*rxt(k,308)*y(k,97) + mat(k,1169) = .820_r8*rxt(k,306)*y(k,15) + mat(k,1469) = .820_r8*rxt(k,308)*y(k,15) + mat(k,1370) = mat(k,1370) + .100_r8*rxt(k,368)*y(k,133) + mat(k,344) = .100_r8*rxt(k,368)*y(k,111) + mat(k,683) = -(rxt(k,311)*y(k,99) + rxt(k,312)*y(k,111)) + mat(k,1223) = -rxt(k,311)*y(k,34) + mat(k,1390) = -rxt(k,312)*y(k,34) + mat(k,788) = .250_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,360)*y(k,134) + mat(k,1179) = .240_r8*rxt(k,325)*y(k,84) + .500_r8*rxt(k,318)*y(k,118) & + + .100_r8*rxt(k,361)*y(k,134) + mat(k,614) = rxt(k,313)*y(k,111) + mat(k,701) = .020_r8*rxt(k,353)*y(k,97) + mat(k,655) = .880_r8*rxt(k,330)*y(k,108) + mat(k,725) = .250_r8*rxt(k,324)*y(k,32) + .240_r8*rxt(k,325)*y(k,37) & + + .250_r8*rxt(k,328)*y(k,97) + .250_r8*rxt(k,327)*y(k,99) + mat(k,742) = .500_r8*rxt(k,340)*y(k,108) + mat(k,1486) = .020_r8*rxt(k,353)*y(k,81) + .250_r8*rxt(k,328)*y(k,84) & + + .250_r8*rxt(k,363)*y(k,134) + mat(k,1223) = mat(k,1223) + .250_r8*rxt(k,327)*y(k,84) + .250_r8*rxt(k,364) & *y(k,134) - mat(k,198) = rxt(k,311)*y(k,111) - mat(k,1113) = .880_r8*rxt(k,327)*y(k,83) + .500_r8*rxt(k,337)*y(k,88) - mat(k,1390) = mat(k,1390) + rxt(k,310)*y(k,77) + rxt(k,311)*y(k,100) - mat(k,597) = .500_r8*rxt(k,315)*y(k,37) - mat(k,672) = .250_r8*rxt(k,357)*y(k,32) + .100_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) + .250_r8*rxt(k,361)*y(k,99) - mat(k,353) = -(rxt(k,289)*y(k,111)) - mat(k,1366) = -rxt(k,289)*y(k,35) - mat(k,620) = .120_r8*rxt(k,302)*y(k,108) - mat(k,781) = .100_r8*rxt(k,286)*y(k,37) + .150_r8*rxt(k,287)*y(k,139) - mat(k,1167) = .100_r8*rxt(k,286)*y(k,32) - mat(k,762) = .150_r8*rxt(k,332)*y(k,139) - mat(k,1098) = .120_r8*rxt(k,302)*y(k,14) - mat(k,1048) = .150_r8*rxt(k,287)*y(k,32) + .150_r8*rxt(k,332)*y(k,86) - mat(k,318) = -(rxt(k,290)*y(k,111)) - mat(k,1363) = -rxt(k,290)*y(k,36) - mat(k,780) = .400_r8*rxt(k,287)*y(k,139) - mat(k,761) = .400_r8*rxt(k,332)*y(k,139) - mat(k,1047) = .400_r8*rxt(k,287)*y(k,32) + .400_r8*rxt(k,332)*y(k,86) - mat(k,1194) = -(rxt(k,186)*y(k,45) + (4._r8*rxt(k,262) + 4._r8*rxt(k,263) & - ) * y(k,37) + rxt(k,264)*y(k,139) + rxt(k,265)*y(k,97) + rxt(k,276) & - *y(k,10) + rxt(k,286)*y(k,32) + rxt(k,303)*y(k,15) + rxt(k,315) & - *y(k,118) + rxt(k,322)*y(k,84) + rxt(k,331)*y(k,86) + rxt(k,348) & - *y(k,81) + rxt(k,358)*y(k,134)) - mat(k,965) = -rxt(k,186)*y(k,37) - mat(k,1084) = -rxt(k,264)*y(k,37) - mat(k,1502) = -rxt(k,265)*y(k,37) - mat(k,430) = -rxt(k,276)*y(k,37) - mat(k,801) = -rxt(k,286)*y(k,37) - mat(k,468) = -rxt(k,303)*y(k,37) - mat(k,602) = -rxt(k,315)*y(k,37) - mat(k,734) = -rxt(k,322)*y(k,37) - mat(k,773) = -rxt(k,331)*y(k,37) - mat(k,713) = -rxt(k,348)*y(k,37) - mat(k,678) = -rxt(k,358)*y(k,37) - mat(k,634) = .280_r8*rxt(k,302)*y(k,108) - mat(k,801) = mat(k,801) + 4.000_r8*rxt(k,285)*y(k,32) + .900_r8*rxt(k,286) & - *y(k,37) + rxt(k,347)*y(k,81) + rxt(k,321)*y(k,84) + rxt(k,330) & - *y(k,86) + rxt(k,288)*y(k,97) + rxt(k,357)*y(k,134) & - + .450_r8*rxt(k,287)*y(k,139) - mat(k,355) = rxt(k,289)*y(k,111) - mat(k,1194) = mat(k,1194) + .900_r8*rxt(k,286)*y(k,32) - mat(k,211) = .700_r8*rxt(k,267)*y(k,111) - mat(k,1527) = rxt(k,180)*y(k,42) + rxt(k,236)*y(k,59) + rxt(k,268)*y(k,111) & - + rxt(k,269)*y(k,144) - mat(k,1320) = rxt(k,180)*y(k,40) - mat(k,493) = rxt(k,236)*y(k,40) - mat(k,485) = .050_r8*rxt(k,352)*y(k,108) - mat(k,713) = mat(k,713) + rxt(k,347)*y(k,32) - mat(k,734) = mat(k,734) + rxt(k,321)*y(k,32) - mat(k,773) = mat(k,773) + rxt(k,330)*y(k,32) - mat(k,1502) = mat(k,1502) + rxt(k,288)*y(k,32) - mat(k,1130) = .280_r8*rxt(k,302)*y(k,14) + .050_r8*rxt(k,352)*y(k,79) - mat(k,1409) = rxt(k,289)*y(k,35) + .700_r8*rxt(k,267)*y(k,39) + rxt(k,268) & + mat(k,198) = rxt(k,314)*y(k,111) + mat(k,1113) = .880_r8*rxt(k,330)*y(k,83) + .500_r8*rxt(k,340)*y(k,88) + mat(k,1390) = mat(k,1390) + rxt(k,313)*y(k,77) + rxt(k,314)*y(k,100) + mat(k,597) = .500_r8*rxt(k,318)*y(k,37) + mat(k,672) = .250_r8*rxt(k,360)*y(k,32) + .100_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + .250_r8*rxt(k,364)*y(k,99) + mat(k,353) = -(rxt(k,292)*y(k,111)) + mat(k,1366) = -rxt(k,292)*y(k,35) + mat(k,620) = .120_r8*rxt(k,305)*y(k,108) + mat(k,781) = .100_r8*rxt(k,289)*y(k,37) + .150_r8*rxt(k,290)*y(k,139) + mat(k,1167) = .100_r8*rxt(k,289)*y(k,32) + mat(k,762) = .150_r8*rxt(k,335)*y(k,139) + mat(k,1098) = .120_r8*rxt(k,305)*y(k,14) + mat(k,1048) = .150_r8*rxt(k,290)*y(k,32) + .150_r8*rxt(k,335)*y(k,86) + mat(k,318) = -(rxt(k,293)*y(k,111)) + mat(k,1363) = -rxt(k,293)*y(k,36) + mat(k,780) = .400_r8*rxt(k,290)*y(k,139) + mat(k,761) = .400_r8*rxt(k,335)*y(k,139) + mat(k,1047) = .400_r8*rxt(k,290)*y(k,32) + .400_r8*rxt(k,335)*y(k,86) + mat(k,1194) = -(rxt(k,189)*y(k,45) + (4._r8*rxt(k,265) + 4._r8*rxt(k,266) & + ) * y(k,37) + rxt(k,267)*y(k,139) + rxt(k,268)*y(k,97) + rxt(k,279) & + *y(k,10) + rxt(k,289)*y(k,32) + rxt(k,306)*y(k,15) + rxt(k,318) & + *y(k,118) + rxt(k,325)*y(k,84) + rxt(k,334)*y(k,86) + rxt(k,351) & + *y(k,81) + rxt(k,361)*y(k,134)) + mat(k,965) = -rxt(k,189)*y(k,37) + mat(k,1084) = -rxt(k,267)*y(k,37) + mat(k,1502) = -rxt(k,268)*y(k,37) + mat(k,430) = -rxt(k,279)*y(k,37) + mat(k,801) = -rxt(k,289)*y(k,37) + mat(k,468) = -rxt(k,306)*y(k,37) + mat(k,602) = -rxt(k,318)*y(k,37) + mat(k,734) = -rxt(k,325)*y(k,37) + mat(k,773) = -rxt(k,334)*y(k,37) + mat(k,713) = -rxt(k,351)*y(k,37) + mat(k,678) = -rxt(k,361)*y(k,37) + mat(k,634) = .280_r8*rxt(k,305)*y(k,108) + mat(k,801) = mat(k,801) + 4.000_r8*rxt(k,288)*y(k,32) + .900_r8*rxt(k,289) & + *y(k,37) + rxt(k,350)*y(k,81) + rxt(k,324)*y(k,84) + rxt(k,333) & + *y(k,86) + rxt(k,291)*y(k,97) + rxt(k,360)*y(k,134) & + + .450_r8*rxt(k,290)*y(k,139) + mat(k,355) = rxt(k,292)*y(k,111) + mat(k,1194) = mat(k,1194) + .900_r8*rxt(k,289)*y(k,32) + mat(k,211) = .700_r8*rxt(k,270)*y(k,111) + mat(k,1527) = rxt(k,183)*y(k,42) + rxt(k,239)*y(k,59) + rxt(k,271)*y(k,111) & + + rxt(k,272)*y(k,144) + mat(k,1320) = rxt(k,183)*y(k,40) + mat(k,493) = rxt(k,239)*y(k,40) + mat(k,485) = .050_r8*rxt(k,355)*y(k,108) + mat(k,713) = mat(k,713) + rxt(k,350)*y(k,32) + mat(k,734) = mat(k,734) + rxt(k,324)*y(k,32) + mat(k,773) = mat(k,773) + rxt(k,333)*y(k,32) + mat(k,1502) = mat(k,1502) + rxt(k,291)*y(k,32) + mat(k,1130) = .280_r8*rxt(k,305)*y(k,14) + .050_r8*rxt(k,355)*y(k,79) + mat(k,1409) = rxt(k,292)*y(k,35) + .700_r8*rxt(k,270)*y(k,39) + rxt(k,271) & *y(k,40) - mat(k,678) = mat(k,678) + rxt(k,357)*y(k,32) - mat(k,1084) = mat(k,1084) + .450_r8*rxt(k,287)*y(k,32) - mat(k,1282) = rxt(k,269)*y(k,40) - mat(k,282) = -(rxt(k,266)*y(k,111)) - mat(k,1359) = -rxt(k,266)*y(k,38) - mat(k,423) = .300_r8*rxt(k,276)*y(k,37) - mat(k,1166) = .300_r8*rxt(k,276)*y(k,10) + 2.000_r8*rxt(k,263)*y(k,37) & - + .250_r8*rxt(k,348)*y(k,81) + .250_r8*rxt(k,322)*y(k,84) & - + .500_r8*rxt(k,315)*y(k,118) + .300_r8*rxt(k,358)*y(k,134) - mat(k,693) = .250_r8*rxt(k,348)*y(k,37) - mat(k,719) = .250_r8*rxt(k,322)*y(k,37) - mat(k,594) = .500_r8*rxt(k,315)*y(k,37) - mat(k,666) = .300_r8*rxt(k,358)*y(k,37) - mat(k,209) = -(rxt(k,267)*y(k,111)) - mat(k,1351) = -rxt(k,267)*y(k,39) - mat(k,1165) = rxt(k,264)*y(k,139) - mat(k,1040) = rxt(k,264)*y(k,37) - mat(k,1534) = -(rxt(k,180)*y(k,42) + rxt(k,236)*y(k,59) + rxt(k,268)*y(k,111) & - + (rxt(k,269) + rxt(k,270) + rxt(k,271)) * y(k,144)) - mat(k,1327) = -rxt(k,180)*y(k,40) - mat(k,496) = -rxt(k,236)*y(k,40) - mat(k,1416) = -rxt(k,268)*y(k,40) - mat(k,1289) = -(rxt(k,269) + rxt(k,270) + rxt(k,271)) * y(k,40) - mat(k,638) = .100_r8*rxt(k,302)*y(k,108) - mat(k,1137) = .100_r8*rxt(k,302)*y(k,14) - mat(k,221) = -(rxt(k,232)*y(k,144) + rxt(k,249)*y(k,42) + rxt(k,250)*y(k,111)) - mat(k,1266) = -rxt(k,232)*y(k,41) - mat(k,1295) = -rxt(k,249)*y(k,41) - mat(k,1353) = -rxt(k,250)*y(k,41) - mat(k,1323) = -(rxt(k,179)*y(k,27) + rxt(k,180)*y(k,40) + rxt(k,181)*y(k,63) & - + rxt(k,182)*y(k,65) + (rxt(k,183) + rxt(k,184)) * y(k,139) & - + rxt(k,185)*y(k,108) + rxt(k,192)*y(k,46) + rxt(k,201)*y(k,76) & - + rxt(k,242)*y(k,26) + rxt(k,244)*y(k,28) + rxt(k,247)*y(k,31) & - + rxt(k,249)*y(k,41) + rxt(k,281)*y(k,13)) - mat(k,1028) = -rxt(k,179)*y(k,42) - mat(k,1530) = -rxt(k,180)*y(k,42) - mat(k,832) = -rxt(k,181)*y(k,42) - mat(k,314) = -rxt(k,182)*y(k,42) - mat(k,1087) = -(rxt(k,183) + rxt(k,184)) * y(k,42) - mat(k,1133) = -rxt(k,185)*y(k,42) - mat(k,579) = -rxt(k,192)*y(k,42) - mat(k,454) = -rxt(k,201)*y(k,42) - mat(k,250) = -rxt(k,242)*y(k,42) - mat(k,331) = -rxt(k,244)*y(k,42) - mat(k,194) = -rxt(k,247)*y(k,42) - mat(k,225) = -rxt(k,249)*y(k,42) - mat(k,160) = -rxt(k,281)*y(k,42) - mat(k,941) = rxt(k,220)*y(k,45) - mat(k,40) = 4.000_r8*rxt(k,204)*y(k,144) - mat(k,75) = rxt(k,205)*y(k,144) - mat(k,56) = 2.000_r8*rxt(k,206)*y(k,144) - mat(k,85) = 2.000_r8*rxt(k,207)*y(k,144) - mat(k,60) = 2.000_r8*rxt(k,208)*y(k,144) - mat(k,90) = rxt(k,209)*y(k,144) - mat(k,64) = 2.000_r8*rxt(k,210)*y(k,144) - mat(k,46) = 3.000_r8*rxt(k,246)*y(k,111) - mat(k,194) = mat(k,194) + rxt(k,248)*y(k,111) - mat(k,1197) = rxt(k,186)*y(k,45) - mat(k,968) = rxt(k,220)*y(k,6) + rxt(k,186)*y(k,37) + (4.000_r8*rxt(k,187) & - +2.000_r8*rxt(k,189))*y(k,45) + rxt(k,191)*y(k,97) + rxt(k,196) & - *y(k,106) + rxt(k,197)*y(k,111) + rxt(k,374)*y(k,122) - mat(k,115) = rxt(k,241)*y(k,144) - mat(k,110) = rxt(k,251)*y(k,111) + rxt(k,256)*y(k,144) - mat(k,120) = rxt(k,252)*y(k,111) + rxt(k,257)*y(k,144) - mat(k,145) = rxt(k,253)*y(k,111) + rxt(k,258)*y(k,144) - mat(k,868) = rxt(k,199)*y(k,106) + rxt(k,200)*y(k,111) + rxt(k,211)*y(k,144) - mat(k,1505) = rxt(k,191)*y(k,45) - mat(k,1457) = rxt(k,196)*y(k,45) + rxt(k,199)*y(k,71) - mat(k,1412) = 3.000_r8*rxt(k,246)*y(k,29) + rxt(k,248)*y(k,31) + rxt(k,197) & - *y(k,45) + rxt(k,251)*y(k,68) + rxt(k,252)*y(k,69) + rxt(k,253) & - *y(k,70) + rxt(k,200)*y(k,71) - mat(k,849) = rxt(k,374)*y(k,45) - mat(k,1285) = 4.000_r8*rxt(k,204)*y(k,18) + rxt(k,205)*y(k,19) & - + 2.000_r8*rxt(k,206)*y(k,21) + 2.000_r8*rxt(k,207)*y(k,22) & - + 2.000_r8*rxt(k,208)*y(k,23) + rxt(k,209)*y(k,24) & - + 2.000_r8*rxt(k,210)*y(k,25) + rxt(k,241)*y(k,51) + rxt(k,256) & - *y(k,68) + rxt(k,257)*y(k,69) + rxt(k,258)*y(k,70) + rxt(k,211) & + mat(k,678) = mat(k,678) + rxt(k,360)*y(k,32) + mat(k,1084) = mat(k,1084) + .450_r8*rxt(k,290)*y(k,32) + mat(k,1282) = rxt(k,272)*y(k,40) + mat(k,282) = -(rxt(k,269)*y(k,111)) + mat(k,1359) = -rxt(k,269)*y(k,38) + mat(k,423) = .300_r8*rxt(k,279)*y(k,37) + mat(k,1166) = .300_r8*rxt(k,279)*y(k,10) + 2.000_r8*rxt(k,266)*y(k,37) & + + .250_r8*rxt(k,351)*y(k,81) + .250_r8*rxt(k,325)*y(k,84) & + + .500_r8*rxt(k,318)*y(k,118) + .300_r8*rxt(k,361)*y(k,134) + mat(k,693) = .250_r8*rxt(k,351)*y(k,37) + mat(k,719) = .250_r8*rxt(k,325)*y(k,37) + mat(k,594) = .500_r8*rxt(k,318)*y(k,37) + mat(k,666) = .300_r8*rxt(k,361)*y(k,37) + mat(k,209) = -(rxt(k,270)*y(k,111)) + mat(k,1351) = -rxt(k,270)*y(k,39) + mat(k,1165) = rxt(k,267)*y(k,139) + mat(k,1040) = rxt(k,267)*y(k,37) + mat(k,1534) = -(rxt(k,183)*y(k,42) + rxt(k,239)*y(k,59) + rxt(k,271)*y(k,111) & + + (rxt(k,272) + rxt(k,273) + rxt(k,274)) * y(k,144)) + mat(k,1327) = -rxt(k,183)*y(k,40) + mat(k,496) = -rxt(k,239)*y(k,40) + mat(k,1416) = -rxt(k,271)*y(k,40) + mat(k,1289) = -(rxt(k,272) + rxt(k,273) + rxt(k,274)) * y(k,40) + mat(k,638) = .100_r8*rxt(k,305)*y(k,108) + mat(k,1137) = .100_r8*rxt(k,305)*y(k,14) + mat(k,221) = -(rxt(k,235)*y(k,144) + rxt(k,252)*y(k,42) + rxt(k,253)*y(k,111)) + mat(k,1266) = -rxt(k,235)*y(k,41) + mat(k,1295) = -rxt(k,252)*y(k,41) + mat(k,1353) = -rxt(k,253)*y(k,41) + mat(k,1323) = -(rxt(k,182)*y(k,27) + rxt(k,183)*y(k,40) + rxt(k,184)*y(k,63) & + + rxt(k,185)*y(k,65) + (rxt(k,186) + rxt(k,187)) * y(k,139) & + + rxt(k,188)*y(k,108) + rxt(k,195)*y(k,46) + rxt(k,204)*y(k,76) & + + rxt(k,245)*y(k,26) + rxt(k,247)*y(k,28) + rxt(k,250)*y(k,31) & + + rxt(k,252)*y(k,41) + rxt(k,284)*y(k,13)) + mat(k,1028) = -rxt(k,182)*y(k,42) + mat(k,1530) = -rxt(k,183)*y(k,42) + mat(k,832) = -rxt(k,184)*y(k,42) + mat(k,314) = -rxt(k,185)*y(k,42) + mat(k,1087) = -(rxt(k,186) + rxt(k,187)) * y(k,42) + mat(k,1133) = -rxt(k,188)*y(k,42) + mat(k,579) = -rxt(k,195)*y(k,42) + mat(k,454) = -rxt(k,204)*y(k,42) + mat(k,250) = -rxt(k,245)*y(k,42) + mat(k,331) = -rxt(k,247)*y(k,42) + mat(k,194) = -rxt(k,250)*y(k,42) + mat(k,225) = -rxt(k,252)*y(k,42) + mat(k,160) = -rxt(k,284)*y(k,42) + mat(k,941) = rxt(k,223)*y(k,45) + mat(k,40) = 4.000_r8*rxt(k,207)*y(k,144) + mat(k,75) = rxt(k,208)*y(k,144) + mat(k,56) = 2.000_r8*rxt(k,209)*y(k,144) + mat(k,85) = 2.000_r8*rxt(k,210)*y(k,144) + mat(k,60) = 2.000_r8*rxt(k,211)*y(k,144) + mat(k,90) = rxt(k,212)*y(k,144) + mat(k,64) = 2.000_r8*rxt(k,213)*y(k,144) + mat(k,46) = 3.000_r8*rxt(k,249)*y(k,111) + mat(k,194) = mat(k,194) + rxt(k,251)*y(k,111) + mat(k,1197) = rxt(k,189)*y(k,45) + mat(k,968) = rxt(k,223)*y(k,6) + rxt(k,189)*y(k,37) + (4.000_r8*rxt(k,190) & + +2.000_r8*rxt(k,192))*y(k,45) + rxt(k,194)*y(k,97) + rxt(k,199) & + *y(k,106) + rxt(k,200)*y(k,111) + rxt(k,377)*y(k,122) + mat(k,115) = rxt(k,244)*y(k,144) + mat(k,110) = rxt(k,254)*y(k,111) + rxt(k,259)*y(k,144) + mat(k,120) = rxt(k,255)*y(k,111) + rxt(k,260)*y(k,144) + mat(k,145) = rxt(k,256)*y(k,111) + rxt(k,261)*y(k,144) + mat(k,868) = rxt(k,202)*y(k,106) + rxt(k,203)*y(k,111) + rxt(k,214)*y(k,144) + mat(k,1505) = rxt(k,194)*y(k,45) + mat(k,1457) = rxt(k,199)*y(k,45) + rxt(k,202)*y(k,71) + mat(k,1412) = 3.000_r8*rxt(k,249)*y(k,29) + rxt(k,251)*y(k,31) + rxt(k,200) & + *y(k,45) + rxt(k,254)*y(k,68) + rxt(k,255)*y(k,69) + rxt(k,256) & + *y(k,70) + rxt(k,203)*y(k,71) + mat(k,849) = rxt(k,377)*y(k,45) + mat(k,1285) = 4.000_r8*rxt(k,207)*y(k,18) + rxt(k,208)*y(k,19) & + + 2.000_r8*rxt(k,209)*y(k,21) + 2.000_r8*rxt(k,210)*y(k,22) & + + 2.000_r8*rxt(k,211)*y(k,23) + rxt(k,212)*y(k,24) & + + 2.000_r8*rxt(k,213)*y(k,25) + rxt(k,244)*y(k,51) + rxt(k,259) & + *y(k,68) + rxt(k,260)*y(k,69) + rxt(k,261)*y(k,70) + rxt(k,214) & *y(k,71) - mat(k,1292) = rxt(k,192)*y(k,46) - mat(k,948) = 2.000_r8*rxt(k,188)*y(k,45) - mat(k,571) = rxt(k,192)*y(k,42) + (rxt(k,397)+rxt(k,402)+rxt(k,407))*y(k,71) - mat(k,855) = (rxt(k,397)+rxt(k,402)+rxt(k,407))*y(k,46) + (rxt(k,392) & - +rxt(k,398)+rxt(k,403))*y(k,76) - mat(k,450) = (rxt(k,392)+rxt(k,398)+rxt(k,403))*y(k,71) + mat(k,1292) = rxt(k,195)*y(k,46) + mat(k,948) = 2.000_r8*rxt(k,191)*y(k,45) + mat(k,571) = rxt(k,195)*y(k,42) + (rxt(k,400)+rxt(k,405)+rxt(k,410))*y(k,71) + mat(k,855) = (rxt(k,400)+rxt(k,405)+rxt(k,410))*y(k,46) + (rxt(k,395) & + +rxt(k,401)+rxt(k,406))*y(k,76) + mat(k,450) = (rxt(k,395)+rxt(k,401)+rxt(k,406))*y(k,71) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -466,210 +466,210 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,947) = 2.000_r8*rxt(k,213)*y(k,45) - mat(k,959) = -(rxt(k,186)*y(k,37) + (4._r8*rxt(k,187) + 4._r8*rxt(k,188) & - + 4._r8*rxt(k,189) + 4._r8*rxt(k,213)) * y(k,45) + rxt(k,190) & - *y(k,139) + rxt(k,191)*y(k,97) + rxt(k,193)*y(k,98) + rxt(k,196) & - *y(k,106) + (rxt(k,197) + rxt(k,198)) * y(k,111) + (rxt(k,219) & - + rxt(k,220) + rxt(k,221)) * y(k,6) + rxt(k,374)*y(k,122)) - mat(k,1188) = -rxt(k,186)*y(k,45) - mat(k,1078) = -rxt(k,190)*y(k,45) - mat(k,1496) = -rxt(k,191)*y(k,45) - mat(k,995) = -rxt(k,193)*y(k,45) - mat(k,1448) = -rxt(k,196)*y(k,45) - mat(k,1403) = -(rxt(k,197) + rxt(k,198)) * y(k,45) - mat(k,933) = -(rxt(k,219) + rxt(k,220) + rxt(k,221)) * y(k,45) - mat(k,845) = -rxt(k,374)*y(k,45) - mat(k,1314) = rxt(k,201)*y(k,76) + rxt(k,185)*y(k,108) + rxt(k,184)*y(k,139) - mat(k,575) = rxt(k,194)*y(k,106) - mat(k,863) = rxt(k,212)*y(k,144) - mat(k,453) = rxt(k,201)*y(k,42) + rxt(k,202)*y(k,106) + rxt(k,203)*y(k,111) - mat(k,1448) = mat(k,1448) + rxt(k,194)*y(k,46) + rxt(k,202)*y(k,76) - mat(k,1124) = rxt(k,185)*y(k,42) - mat(k,176) = rxt(k,379)*y(k,122) - mat(k,1403) = mat(k,1403) + rxt(k,203)*y(k,76) - mat(k,845) = mat(k,845) + rxt(k,379)*y(k,109) - mat(k,1078) = mat(k,1078) + rxt(k,184)*y(k,42) - mat(k,1276) = rxt(k,212)*y(k,71) - mat(k,573) = -(rxt(k,192)*y(k,42) + rxt(k,194)*y(k,106) + rxt(k,195)*y(k,111) & - + (rxt(k,397) + rxt(k,402) + rxt(k,407)) * y(k,71)) - mat(k,1303) = -rxt(k,192)*y(k,46) - mat(k,1439) = -rxt(k,194)*y(k,46) - mat(k,1380) = -rxt(k,195)*y(k,46) - mat(k,859) = -(rxt(k,397) + rxt(k,402) + rxt(k,407)) * y(k,46) - mat(k,953) = rxt(k,193)*y(k,98) - mat(k,983) = rxt(k,193)*y(k,45) - mat(k,649) = -(rxt(k,272)*y(k,111)) - mat(k,1387) = -rxt(k,272)*y(k,48) - mat(k,874) = rxt(k,215)*y(k,27) - mat(k,241) = .630_r8*rxt(k,274)*y(k,108) - mat(k,625) = .560_r8*rxt(k,302)*y(k,108) - mat(k,1012) = rxt(k,215)*y(k,4) + rxt(k,179)*y(k,42) + rxt(k,259)*y(k,99) & - + rxt(k,260)*y(k,106) + rxt(k,261)*y(k,111) - mat(k,190) = rxt(k,247)*y(k,42) - mat(k,785) = .220_r8*rxt(k,321)*y(k,84) + .250_r8*rxt(k,357)*y(k,134) - mat(k,682) = rxt(k,308)*y(k,99) + rxt(k,309)*y(k,111) - mat(k,1176) = .110_r8*rxt(k,322)*y(k,84) + .200_r8*rxt(k,358)*y(k,134) - mat(k,1306) = rxt(k,179)*y(k,27) + rxt(k,247)*y(k,31) - mat(k,814) = rxt(k,423)*y(k,148) - mat(k,366) = rxt(k,296)*y(k,111) - mat(k,476) = .620_r8*rxt(k,352)*y(k,108) - mat(k,653) = .650_r8*rxt(k,327)*y(k,108) - mat(k,723) = .220_r8*rxt(k,321)*y(k,32) + .110_r8*rxt(k,322)*y(k,37) & - + .220_r8*rxt(k,325)*y(k,97) + .220_r8*rxt(k,324)*y(k,99) - mat(k,741) = .560_r8*rxt(k,337)*y(k,108) - mat(k,1483) = .220_r8*rxt(k,325)*y(k,84) + .250_r8*rxt(k,360)*y(k,134) - mat(k,1220) = rxt(k,259)*y(k,27) + rxt(k,308)*y(k,34) + .220_r8*rxt(k,324) & - *y(k,84) + .500_r8*rxt(k,361)*y(k,134) - mat(k,1440) = rxt(k,260)*y(k,27) + rxt(k,368)*y(k,110) - mat(k,1110) = .630_r8*rxt(k,274)*y(k,9) + .560_r8*rxt(k,302)*y(k,14) & - + .620_r8*rxt(k,352)*y(k,79) + .650_r8*rxt(k,327)*y(k,83) & - + .560_r8*rxt(k,337)*y(k,88) - mat(k,184) = rxt(k,368)*y(k,106) + rxt(k,369)*y(k,111) - mat(k,1387) = mat(k,1387) + rxt(k,261)*y(k,27) + rxt(k,309)*y(k,34) & - + rxt(k,296)*y(k,61) + rxt(k,369)*y(k,110) - mat(k,670) = .250_r8*rxt(k,357)*y(k,32) + .200_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) + .500_r8*rxt(k,361)*y(k,99) - mat(k,506) = rxt(k,423)*y(k,49) - mat(k,815) = -(rxt(k,423)*y(k,148)) - mat(k,507) = -rxt(k,423)*y(k,49) - mat(k,628) = .200_r8*rxt(k,302)*y(k,108) - mat(k,794) = 4.000_r8*rxt(k,285)*y(k,32) + .900_r8*rxt(k,286)*y(k,37) & - + 2.000_r8*rxt(k,330)*y(k,86) + rxt(k,288)*y(k,97) + rxt(k,357) & + mat(k,947) = 2.000_r8*rxt(k,216)*y(k,45) + mat(k,959) = -(rxt(k,189)*y(k,37) + (4._r8*rxt(k,190) + 4._r8*rxt(k,191) & + + 4._r8*rxt(k,192) + 4._r8*rxt(k,216)) * y(k,45) + rxt(k,193) & + *y(k,139) + rxt(k,194)*y(k,97) + rxt(k,196)*y(k,98) + rxt(k,199) & + *y(k,106) + (rxt(k,200) + rxt(k,201)) * y(k,111) + (rxt(k,222) & + + rxt(k,223) + rxt(k,224)) * y(k,6) + rxt(k,377)*y(k,122)) + mat(k,1188) = -rxt(k,189)*y(k,45) + mat(k,1078) = -rxt(k,193)*y(k,45) + mat(k,1496) = -rxt(k,194)*y(k,45) + mat(k,995) = -rxt(k,196)*y(k,45) + mat(k,1448) = -rxt(k,199)*y(k,45) + mat(k,1403) = -(rxt(k,200) + rxt(k,201)) * y(k,45) + mat(k,933) = -(rxt(k,222) + rxt(k,223) + rxt(k,224)) * y(k,45) + mat(k,845) = -rxt(k,377)*y(k,45) + mat(k,1314) = rxt(k,204)*y(k,76) + rxt(k,188)*y(k,108) + rxt(k,187)*y(k,139) + mat(k,575) = rxt(k,197)*y(k,106) + mat(k,863) = rxt(k,215)*y(k,144) + mat(k,453) = rxt(k,204)*y(k,42) + rxt(k,205)*y(k,106) + rxt(k,206)*y(k,111) + mat(k,1448) = mat(k,1448) + rxt(k,197)*y(k,46) + rxt(k,205)*y(k,76) + mat(k,1124) = rxt(k,188)*y(k,42) + mat(k,176) = rxt(k,382)*y(k,122) + mat(k,1403) = mat(k,1403) + rxt(k,206)*y(k,76) + mat(k,845) = mat(k,845) + rxt(k,382)*y(k,109) + mat(k,1078) = mat(k,1078) + rxt(k,187)*y(k,42) + mat(k,1276) = rxt(k,215)*y(k,71) + mat(k,573) = -(rxt(k,195)*y(k,42) + rxt(k,197)*y(k,106) + rxt(k,198)*y(k,111) & + + (rxt(k,400) + rxt(k,405) + rxt(k,410)) * y(k,71)) + mat(k,1303) = -rxt(k,195)*y(k,46) + mat(k,1439) = -rxt(k,197)*y(k,46) + mat(k,1380) = -rxt(k,198)*y(k,46) + mat(k,859) = -(rxt(k,400) + rxt(k,405) + rxt(k,410)) * y(k,46) + mat(k,953) = rxt(k,196)*y(k,98) + mat(k,983) = rxt(k,196)*y(k,45) + mat(k,649) = -(rxt(k,275)*y(k,111)) + mat(k,1387) = -rxt(k,275)*y(k,48) + mat(k,874) = rxt(k,218)*y(k,27) + mat(k,241) = .630_r8*rxt(k,277)*y(k,108) + mat(k,625) = .560_r8*rxt(k,305)*y(k,108) + mat(k,1012) = rxt(k,218)*y(k,4) + rxt(k,182)*y(k,42) + rxt(k,262)*y(k,99) & + + rxt(k,263)*y(k,106) + rxt(k,264)*y(k,111) + mat(k,190) = rxt(k,250)*y(k,42) + mat(k,785) = .220_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,360)*y(k,134) + mat(k,682) = rxt(k,311)*y(k,99) + rxt(k,312)*y(k,111) + mat(k,1176) = .110_r8*rxt(k,325)*y(k,84) + .200_r8*rxt(k,361)*y(k,134) + mat(k,1306) = rxt(k,182)*y(k,27) + rxt(k,250)*y(k,31) + mat(k,814) = rxt(k,426)*y(k,148) + mat(k,366) = rxt(k,299)*y(k,111) + mat(k,476) = .620_r8*rxt(k,355)*y(k,108) + mat(k,653) = .650_r8*rxt(k,330)*y(k,108) + mat(k,723) = .220_r8*rxt(k,324)*y(k,32) + .110_r8*rxt(k,325)*y(k,37) & + + .220_r8*rxt(k,328)*y(k,97) + .220_r8*rxt(k,327)*y(k,99) + mat(k,741) = .560_r8*rxt(k,340)*y(k,108) + mat(k,1483) = .220_r8*rxt(k,328)*y(k,84) + .250_r8*rxt(k,363)*y(k,134) + mat(k,1220) = rxt(k,262)*y(k,27) + rxt(k,311)*y(k,34) + .220_r8*rxt(k,327) & + *y(k,84) + .500_r8*rxt(k,364)*y(k,134) + mat(k,1440) = rxt(k,263)*y(k,27) + rxt(k,371)*y(k,110) + mat(k,1110) = .630_r8*rxt(k,277)*y(k,9) + .560_r8*rxt(k,305)*y(k,14) & + + .620_r8*rxt(k,355)*y(k,79) + .650_r8*rxt(k,330)*y(k,83) & + + .560_r8*rxt(k,340)*y(k,88) + mat(k,184) = rxt(k,371)*y(k,106) + rxt(k,372)*y(k,111) + mat(k,1387) = mat(k,1387) + rxt(k,264)*y(k,27) + rxt(k,312)*y(k,34) & + + rxt(k,299)*y(k,61) + rxt(k,372)*y(k,110) + mat(k,670) = .250_r8*rxt(k,360)*y(k,32) + .200_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + .500_r8*rxt(k,364)*y(k,99) + mat(k,506) = rxt(k,426)*y(k,49) + mat(k,815) = -(rxt(k,426)*y(k,148)) + mat(k,507) = -rxt(k,426)*y(k,49) + mat(k,628) = .200_r8*rxt(k,305)*y(k,108) + mat(k,794) = 4.000_r8*rxt(k,288)*y(k,32) + .900_r8*rxt(k,289)*y(k,37) & + + 2.000_r8*rxt(k,333)*y(k,86) + rxt(k,291)*y(k,97) + rxt(k,360) & *y(k,134) - mat(k,354) = rxt(k,289)*y(k,111) - mat(k,320) = .500_r8*rxt(k,290)*y(k,111) - mat(k,1185) = .900_r8*rxt(k,286)*y(k,32) + rxt(k,331)*y(k,86) - mat(k,650) = rxt(k,272)*y(k,111) - mat(k,609) = .800_r8*rxt(k,295)*y(k,111) - mat(k,367) = rxt(k,296)*y(k,111) - mat(k,767) = 2.000_r8*rxt(k,330)*y(k,32) + rxt(k,331)*y(k,37) & - + 4.000_r8*rxt(k,333)*y(k,86) + .450_r8*rxt(k,332)*y(k,139) - mat(k,305) = .500_r8*rxt(k,336)*y(k,111) - mat(k,747) = .100_r8*rxt(k,337)*y(k,108) - mat(k,1492) = rxt(k,288)*y(k,32) - mat(k,1119) = .200_r8*rxt(k,302)*y(k,14) + .100_r8*rxt(k,337)*y(k,88) - mat(k,1396) = rxt(k,289)*y(k,35) + .500_r8*rxt(k,290)*y(k,36) + rxt(k,272) & - *y(k,48) + .800_r8*rxt(k,295)*y(k,60) + rxt(k,296)*y(k,61) & - + .500_r8*rxt(k,336)*y(k,87) - mat(k,674) = rxt(k,357)*y(k,32) - mat(k,1072) = .450_r8*rxt(k,332)*y(k,86) - mat(k,101) = -(rxt(k,240)*y(k,144)) - mat(k,1260) = -rxt(k,240)*y(k,50) - mat(k,72) = rxt(k,205)*y(k,144) - mat(k,77) = rxt(k,231)*y(k,144) - mat(k,82) = rxt(k,207)*y(k,144) - mat(k,58) = 2.000_r8*rxt(k,208)*y(k,144) - mat(k,87) = 2.000_r8*rxt(k,209)*y(k,144) - mat(k,62) = rxt(k,210)*y(k,144) - mat(k,42) = 2.000_r8*rxt(k,233)*y(k,144) - mat(k,116) = rxt(k,252)*y(k,111) + rxt(k,257)*y(k,144) - mat(k,141) = rxt(k,253)*y(k,111) + rxt(k,258)*y(k,144) - mat(k,1335) = rxt(k,252)*y(k,69) + rxt(k,253)*y(k,70) - mat(k,1260) = mat(k,1260) + rxt(k,205)*y(k,19) + rxt(k,231)*y(k,20) & - + rxt(k,207)*y(k,22) + 2.000_r8*rxt(k,208)*y(k,23) & - + 2.000_r8*rxt(k,209)*y(k,24) + rxt(k,210)*y(k,25) & - + 2.000_r8*rxt(k,233)*y(k,64) + rxt(k,257)*y(k,69) + rxt(k,258) & + mat(k,354) = rxt(k,292)*y(k,111) + mat(k,320) = .500_r8*rxt(k,293)*y(k,111) + mat(k,1185) = .900_r8*rxt(k,289)*y(k,32) + rxt(k,334)*y(k,86) + mat(k,650) = rxt(k,275)*y(k,111) + mat(k,609) = .800_r8*rxt(k,298)*y(k,111) + mat(k,367) = rxt(k,299)*y(k,111) + mat(k,767) = 2.000_r8*rxt(k,333)*y(k,32) + rxt(k,334)*y(k,37) & + + 4.000_r8*rxt(k,336)*y(k,86) + .450_r8*rxt(k,335)*y(k,139) + mat(k,305) = .500_r8*rxt(k,339)*y(k,111) + mat(k,747) = .100_r8*rxt(k,340)*y(k,108) + mat(k,1492) = rxt(k,291)*y(k,32) + mat(k,1119) = .200_r8*rxt(k,305)*y(k,14) + .100_r8*rxt(k,340)*y(k,88) + mat(k,1396) = rxt(k,292)*y(k,35) + .500_r8*rxt(k,293)*y(k,36) + rxt(k,275) & + *y(k,48) + .800_r8*rxt(k,298)*y(k,60) + rxt(k,299)*y(k,61) & + + .500_r8*rxt(k,339)*y(k,87) + mat(k,674) = rxt(k,360)*y(k,32) + mat(k,1072) = .450_r8*rxt(k,335)*y(k,86) + mat(k,101) = -(rxt(k,243)*y(k,144)) + mat(k,1260) = -rxt(k,243)*y(k,50) + mat(k,72) = rxt(k,208)*y(k,144) + mat(k,77) = rxt(k,234)*y(k,144) + mat(k,82) = rxt(k,210)*y(k,144) + mat(k,58) = 2.000_r8*rxt(k,211)*y(k,144) + mat(k,87) = 2.000_r8*rxt(k,212)*y(k,144) + mat(k,62) = rxt(k,213)*y(k,144) + mat(k,42) = 2.000_r8*rxt(k,236)*y(k,144) + mat(k,116) = rxt(k,255)*y(k,111) + rxt(k,260)*y(k,144) + mat(k,141) = rxt(k,256)*y(k,111) + rxt(k,261)*y(k,144) + mat(k,1335) = rxt(k,255)*y(k,69) + rxt(k,256)*y(k,70) + mat(k,1260) = mat(k,1260) + rxt(k,208)*y(k,19) + rxt(k,234)*y(k,20) & + + rxt(k,210)*y(k,22) + 2.000_r8*rxt(k,211)*y(k,23) & + + 2.000_r8*rxt(k,212)*y(k,24) + rxt(k,213)*y(k,25) & + + 2.000_r8*rxt(k,236)*y(k,64) + rxt(k,260)*y(k,69) + rxt(k,261) & *y(k,70) - mat(k,112) = -(rxt(k,241)*y(k,144)) - mat(k,1262) = -rxt(k,241)*y(k,51) - mat(k,54) = rxt(k,206)*y(k,144) - mat(k,83) = rxt(k,207)*y(k,144) - mat(k,108) = rxt(k,251)*y(k,111) + rxt(k,256)*y(k,144) - mat(k,1337) = rxt(k,251)*y(k,68) - mat(k,1262) = mat(k,1262) + rxt(k,206)*y(k,21) + rxt(k,207)*y(k,22) & - + rxt(k,256)*y(k,68) - mat(k,135) = -(rxt(k,366)*y(k,99) + (rxt(k,367) + rxt(k,381)) * y(k,111)) - mat(k,1204) = -rxt(k,366)*y(k,52) - mat(k,1341) = -(rxt(k,367) + rxt(k,381)) * y(k,52) - mat(k,227) = -(rxt(k,294)*y(k,107)) - mat(k,891) = -rxt(k,294)*y(k,56) - mat(k,376) = .750_r8*rxt(k,292)*y(k,97) - mat(k,1465) = .750_r8*rxt(k,292)*y(k,57) - mat(k,377) = -(rxt(k,291)*y(k,139) + rxt(k,292)*y(k,97)) - mat(k,1049) = -rxt(k,291)*y(k,57) - mat(k,1468) = -rxt(k,292)*y(k,57) - mat(k,240) = rxt(k,298)*y(k,111) - mat(k,1369) = rxt(k,298)*y(k,9) - mat(k,375) = rxt(k,291)*y(k,139) - mat(k,1035) = rxt(k,291)*y(k,57) - mat(k,490) = -(rxt(k,236)*y(k,40) + rxt(k,237)*y(k,63) + rxt(k,238)*y(k,151) & - + rxt(k,239)*y(k,73)) - mat(k,1513) = -rxt(k,236)*y(k,59) - mat(k,825) = -rxt(k,237)*y(k,59) - mat(k,1561) = -rxt(k,238)*y(k,59) - mat(k,1141) = -rxt(k,239)*y(k,59) - mat(k,78) = rxt(k,231)*y(k,144) - mat(k,88) = rxt(k,209)*y(k,144) - mat(k,102) = 2.000_r8*rxt(k,240)*y(k,144) - mat(k,113) = rxt(k,241)*y(k,144) - mat(k,1270) = rxt(k,231)*y(k,20) + rxt(k,209)*y(k,24) + 2.000_r8*rxt(k,240) & - *y(k,50) + rxt(k,241)*y(k,51) - mat(k,607) = -(rxt(k,295)*y(k,111)) - mat(k,1383) = -rxt(k,295)*y(k,60) - mat(k,783) = .530_r8*rxt(k,321)*y(k,84) + .250_r8*rxt(k,357)*y(k,134) - mat(k,1173) = .260_r8*rxt(k,322)*y(k,84) + .100_r8*rxt(k,358)*y(k,134) - mat(k,228) = rxt(k,294)*y(k,107) - mat(k,696) = .020_r8*rxt(k,350)*y(k,97) - mat(k,721) = .530_r8*rxt(k,321)*y(k,32) + .260_r8*rxt(k,322)*y(k,37) & - + .530_r8*rxt(k,325)*y(k,97) + .530_r8*rxt(k,324)*y(k,99) - mat(k,1480) = .020_r8*rxt(k,350)*y(k,81) + .530_r8*rxt(k,325)*y(k,84) & - + .250_r8*rxt(k,360)*y(k,134) - mat(k,1216) = .530_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,361)*y(k,134) - mat(k,904) = rxt(k,294)*y(k,56) - mat(k,668) = .250_r8*rxt(k,357)*y(k,32) + .100_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) + .250_r8*rxt(k,361)*y(k,99) - mat(k,365) = -(rxt(k,296)*y(k,111)) - mat(k,1368) = -rxt(k,296)*y(k,61) - mat(k,782) = .250_r8*rxt(k,357)*y(k,134) - mat(k,1168) = .100_r8*rxt(k,358)*y(k,134) - mat(k,606) = .200_r8*rxt(k,295)*y(k,111) - mat(k,694) = .020_r8*rxt(k,350)*y(k,97) - mat(k,1466) = .020_r8*rxt(k,350)*y(k,81) + .250_r8*rxt(k,360)*y(k,134) - mat(k,1209) = .250_r8*rxt(k,361)*y(k,134) - mat(k,1368) = mat(k,1368) + .200_r8*rxt(k,295)*y(k,60) - mat(k,667) = .250_r8*rxt(k,357)*y(k,32) + .100_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) + .250_r8*rxt(k,361)*y(k,99) + mat(k,112) = -(rxt(k,244)*y(k,144)) + mat(k,1262) = -rxt(k,244)*y(k,51) + mat(k,54) = rxt(k,209)*y(k,144) + mat(k,83) = rxt(k,210)*y(k,144) + mat(k,108) = rxt(k,254)*y(k,111) + rxt(k,259)*y(k,144) + mat(k,1337) = rxt(k,254)*y(k,68) + mat(k,1262) = mat(k,1262) + rxt(k,209)*y(k,21) + rxt(k,210)*y(k,22) & + + rxt(k,259)*y(k,68) + mat(k,135) = -(rxt(k,369)*y(k,99) + (rxt(k,370) + rxt(k,384)) * y(k,111)) + mat(k,1204) = -rxt(k,369)*y(k,52) + mat(k,1341) = -(rxt(k,370) + rxt(k,384)) * y(k,52) + mat(k,227) = -(rxt(k,297)*y(k,107)) + mat(k,891) = -rxt(k,297)*y(k,56) + mat(k,376) = .750_r8*rxt(k,295)*y(k,97) + mat(k,1465) = .750_r8*rxt(k,295)*y(k,57) + mat(k,377) = -(rxt(k,294)*y(k,139) + rxt(k,295)*y(k,97)) + mat(k,1049) = -rxt(k,294)*y(k,57) + mat(k,1468) = -rxt(k,295)*y(k,57) + mat(k,240) = rxt(k,301)*y(k,111) + mat(k,1369) = rxt(k,301)*y(k,9) + mat(k,375) = rxt(k,294)*y(k,139) + mat(k,1035) = rxt(k,294)*y(k,57) + mat(k,490) = -(rxt(k,239)*y(k,40) + rxt(k,240)*y(k,63) + rxt(k,241)*y(k,151) & + + rxt(k,242)*y(k,73)) + mat(k,1513) = -rxt(k,239)*y(k,59) + mat(k,825) = -rxt(k,240)*y(k,59) + mat(k,1561) = -rxt(k,241)*y(k,59) + mat(k,1141) = -rxt(k,242)*y(k,59) + mat(k,78) = rxt(k,234)*y(k,144) + mat(k,88) = rxt(k,212)*y(k,144) + mat(k,102) = 2.000_r8*rxt(k,243)*y(k,144) + mat(k,113) = rxt(k,244)*y(k,144) + mat(k,1270) = rxt(k,234)*y(k,20) + rxt(k,212)*y(k,24) + 2.000_r8*rxt(k,243) & + *y(k,50) + rxt(k,244)*y(k,51) + mat(k,607) = -(rxt(k,298)*y(k,111)) + mat(k,1383) = -rxt(k,298)*y(k,60) + mat(k,783) = .530_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,360)*y(k,134) + mat(k,1173) = .260_r8*rxt(k,325)*y(k,84) + .100_r8*rxt(k,361)*y(k,134) + mat(k,228) = rxt(k,297)*y(k,107) + mat(k,696) = .020_r8*rxt(k,353)*y(k,97) + mat(k,721) = .530_r8*rxt(k,324)*y(k,32) + .260_r8*rxt(k,325)*y(k,37) & + + .530_r8*rxt(k,328)*y(k,97) + .530_r8*rxt(k,327)*y(k,99) + mat(k,1480) = .020_r8*rxt(k,353)*y(k,81) + .530_r8*rxt(k,328)*y(k,84) & + + .250_r8*rxt(k,363)*y(k,134) + mat(k,1216) = .530_r8*rxt(k,327)*y(k,84) + .250_r8*rxt(k,364)*y(k,134) + mat(k,904) = rxt(k,297)*y(k,56) + mat(k,668) = .250_r8*rxt(k,360)*y(k,32) + .100_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + .250_r8*rxt(k,364)*y(k,99) + mat(k,365) = -(rxt(k,299)*y(k,111)) + mat(k,1368) = -rxt(k,299)*y(k,61) + mat(k,782) = .250_r8*rxt(k,360)*y(k,134) + mat(k,1168) = .100_r8*rxt(k,361)*y(k,134) + mat(k,606) = .200_r8*rxt(k,298)*y(k,111) + mat(k,694) = .020_r8*rxt(k,353)*y(k,97) + mat(k,1466) = .020_r8*rxt(k,353)*y(k,81) + .250_r8*rxt(k,363)*y(k,134) + mat(k,1209) = .250_r8*rxt(k,364)*y(k,134) + mat(k,1368) = mat(k,1368) + .200_r8*rxt(k,298)*y(k,60) + mat(k,667) = .250_r8*rxt(k,360)*y(k,32) + .100_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + .250_r8*rxt(k,364)*y(k,99) mat(k,1556) = -((rxt(k,137) + rxt(k,138) + rxt(k,139)) * y(k,139) + rxt(k,140) & *y(k,107) + rxt(k,143)*y(k,108)) mat(k,1092) = -(rxt(k,137) + rxt(k,138) + rxt(k,139)) * y(k,62) mat(k,921) = -rxt(k,140)*y(k,62) mat(k,1138) = -rxt(k,143)*y(k,62) - mat(k,1033) = rxt(k,261)*y(k,111) - mat(k,1535) = rxt(k,270)*y(k,144) - mat(k,1328) = rxt(k,181)*y(k,63) - mat(k,497) = rxt(k,237)*y(k,63) - mat(k,836) = rxt(k,181)*y(k,42) + rxt(k,237)*y(k,59) + rxt(k,135)*y(k,106) & + mat(k,1033) = rxt(k,264)*y(k,111) + mat(k,1535) = rxt(k,273)*y(k,144) + mat(k,1328) = rxt(k,184)*y(k,63) + mat(k,497) = rxt(k,240)*y(k,63) + mat(k,836) = rxt(k,184)*y(k,42) + rxt(k,240)*y(k,59) + rxt(k,135)*y(k,106) & + rxt(k,144)*y(k,111) + rxt(k,117)*y(k,144) - mat(k,439) = rxt(k,235)*y(k,144) - mat(k,871) = rxt(k,212)*y(k,144) + mat(k,439) = rxt(k,238)*y(k,144) + mat(k,871) = rxt(k,215)*y(k,144) mat(k,570) = rxt(k,167)*y(k,111) mat(k,1462) = rxt(k,135)*y(k,63) + rxt(k,147)*y(k,111) - mat(k,188) = rxt(k,369)*y(k,111) - mat(k,1417) = rxt(k,261)*y(k,27) + rxt(k,144)*y(k,63) + rxt(k,167)*y(k,89) & - + rxt(k,147)*y(k,106) + rxt(k,369)*y(k,110) + rxt(k,375) & - *y(k,120) + rxt(k,380)*y(k,122) - mat(k,364) = rxt(k,375)*y(k,111) - mat(k,853) = rxt(k,380)*y(k,111) - mat(k,1290) = rxt(k,270)*y(k,40) + rxt(k,117)*y(k,63) + rxt(k,235)*y(k,67) & - + rxt(k,212)*y(k,71) + mat(k,188) = rxt(k,372)*y(k,111) + mat(k,1417) = rxt(k,264)*y(k,27) + rxt(k,144)*y(k,63) + rxt(k,167)*y(k,89) & + + rxt(k,147)*y(k,106) + rxt(k,372)*y(k,110) + rxt(k,378) & + *y(k,120) + rxt(k,383)*y(k,122) + mat(k,364) = rxt(k,378)*y(k,111) + mat(k,853) = rxt(k,383)*y(k,111) + mat(k,1290) = rxt(k,273)*y(k,40) + rxt(k,117)*y(k,63) + rxt(k,238)*y(k,67) & + + rxt(k,215)*y(k,71) mat(k,826) = -(rxt(k,117)*y(k,144) + rxt(k,135)*y(k,106) + rxt(k,144) & - *y(k,111) + rxt(k,181)*y(k,42) + rxt(k,237)*y(k,59)) + *y(k,111) + rxt(k,184)*y(k,42) + rxt(k,240)*y(k,59)) mat(k,1271) = -rxt(k,117)*y(k,63) mat(k,1442) = -rxt(k,135)*y(k,63) mat(k,1397) = -rxt(k,144)*y(k,63) - mat(k,1309) = -rxt(k,181)*y(k,63) - mat(k,491) = -rxt(k,237)*y(k,63) - mat(k,1516) = rxt(k,271)*y(k,144) + mat(k,1309) = -rxt(k,184)*y(k,63) + mat(k,491) = -rxt(k,240)*y(k,63) + mat(k,1516) = rxt(k,274)*y(k,144) mat(k,1537) = rxt(k,137)*y(k,139) mat(k,1073) = rxt(k,137)*y(k,62) - mat(k,1271) = mat(k,1271) + rxt(k,271)*y(k,40) - mat(k,41) = -(rxt(k,233)*y(k,144)) - mat(k,1251) = -rxt(k,233)*y(k,64) - mat(k,311) = -(rxt(k,136)*y(k,106) + rxt(k,145)*y(k,111) + rxt(k,182)*y(k,42)) + mat(k,1271) = mat(k,1271) + rxt(k,274)*y(k,40) + mat(k,41) = -(rxt(k,236)*y(k,144)) + mat(k,1251) = -rxt(k,236)*y(k,64) + mat(k,311) = -(rxt(k,136)*y(k,106) + rxt(k,145)*y(k,111) + rxt(k,185)*y(k,42)) mat(k,1425) = -rxt(k,136)*y(k,65) mat(k,1362) = -rxt(k,145)*y(k,65) - mat(k,1298) = -rxt(k,182)*y(k,65) + mat(k,1298) = -rxt(k,185)*y(k,65) mat(k,1362) = mat(k,1362) + 2.000_r8*rxt(k,150)*y(k,111) mat(k,1046) = 2.000_r8*rxt(k,151)*y(k,139) end do @@ -692,209 +692,209 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,130) = rxt(k,382)*y(k,151) - mat(k,1558) = rxt(k,382)*y(k,124) - mat(k,433) = -(rxt(k,228)*y(k,106) + rxt(k,229)*y(k,111) + (rxt(k,234) & - + rxt(k,235)) * y(k,144)) - mat(k,1430) = -rxt(k,228)*y(k,67) - mat(k,1373) = -rxt(k,229)*y(k,67) - mat(k,1269) = -(rxt(k,234) + rxt(k,235)) * y(k,67) - mat(k,873) = rxt(k,215)*y(k,27) + rxt(k,216)*y(k,139) - mat(k,1011) = rxt(k,215)*y(k,4) - mat(k,1055) = rxt(k,216)*y(k,4) - mat(k,107) = -(rxt(k,251)*y(k,111) + rxt(k,256)*y(k,144)) - mat(k,1336) = -rxt(k,251)*y(k,68) - mat(k,1261) = -rxt(k,256)*y(k,68) - mat(k,117) = -(rxt(k,252)*y(k,111) + rxt(k,257)*y(k,144)) - mat(k,1338) = -rxt(k,252)*y(k,69) - mat(k,1263) = -rxt(k,257)*y(k,69) - mat(k,142) = -(rxt(k,253)*y(k,111) + rxt(k,258)*y(k,144)) - mat(k,1342) = -rxt(k,253)*y(k,70) - mat(k,1265) = -rxt(k,258)*y(k,70) - mat(k,860) = -(rxt(k,199)*y(k,106) + rxt(k,200)*y(k,111) + (rxt(k,211) & - + rxt(k,212)) * y(k,144) + (rxt(k,392) + rxt(k,398) + rxt(k,403) & - ) * y(k,76) + (rxt(k,397) + rxt(k,402) + rxt(k,407)) * y(k,46) & - + (rxt(k,399) + rxt(k,404)) * y(k,75)) - mat(k,1444) = -rxt(k,199)*y(k,71) - mat(k,1399) = -rxt(k,200)*y(k,71) - mat(k,1272) = -(rxt(k,211) + rxt(k,212)) * y(k,71) - mat(k,452) = -(rxt(k,392) + rxt(k,398) + rxt(k,403)) * y(k,71) - mat(k,574) = -(rxt(k,397) + rxt(k,402) + rxt(k,407)) * y(k,71) - mat(k,387) = -(rxt(k,399) + rxt(k,404)) * y(k,71) - mat(k,159) = rxt(k,281)*y(k,42) - mat(k,247) = rxt(k,242)*y(k,42) - mat(k,1015) = rxt(k,179)*y(k,42) - mat(k,326) = rxt(k,244)*y(k,42) - mat(k,191) = 2.000_r8*rxt(k,247)*y(k,42) - mat(k,1517) = rxt(k,180)*y(k,42) - mat(k,222) = rxt(k,249)*y(k,42) - mat(k,1310) = rxt(k,281)*y(k,13) + rxt(k,242)*y(k,26) + rxt(k,179)*y(k,27) & - + rxt(k,244)*y(k,28) + 2.000_r8*rxt(k,247)*y(k,31) + rxt(k,180) & - *y(k,40) + rxt(k,249)*y(k,41) + rxt(k,181)*y(k,63) + rxt(k,182) & - *y(k,65) + rxt(k,201)*y(k,76) + rxt(k,183)*y(k,139) - mat(k,955) = rxt(k,198)*y(k,111) - mat(k,827) = rxt(k,181)*y(k,42) - mat(k,312) = rxt(k,182)*y(k,42) - mat(k,452) = mat(k,452) + rxt(k,201)*y(k,42) - mat(k,1399) = mat(k,1399) + rxt(k,198)*y(k,45) - mat(k,1074) = rxt(k,183)*y(k,42) - mat(k,1512) = rxt(k,236)*y(k,59) - mat(k,489) = rxt(k,236)*y(k,40) + rxt(k,237)*y(k,63) + rxt(k,239)*y(k,73) & - + rxt(k,238)*y(k,151) - mat(k,824) = rxt(k,237)*y(k,59) - mat(k,1140) = rxt(k,239)*y(k,59) - mat(k,1560) = rxt(k,238)*y(k,59) - mat(k,1152) = -(rxt(k,176)*y(k,111) + rxt(k,239)*y(k,59)) + mat(k,130) = rxt(k,385)*y(k,151) + mat(k,1558) = rxt(k,385)*y(k,124) + mat(k,433) = -(rxt(k,231)*y(k,106) + rxt(k,232)*y(k,111) + (rxt(k,237) & + + rxt(k,238)) * y(k,144)) + mat(k,1430) = -rxt(k,231)*y(k,67) + mat(k,1373) = -rxt(k,232)*y(k,67) + mat(k,1269) = -(rxt(k,237) + rxt(k,238)) * y(k,67) + mat(k,873) = rxt(k,218)*y(k,27) + rxt(k,219)*y(k,139) + mat(k,1011) = rxt(k,218)*y(k,4) + mat(k,1055) = rxt(k,219)*y(k,4) + mat(k,107) = -(rxt(k,254)*y(k,111) + rxt(k,259)*y(k,144)) + mat(k,1336) = -rxt(k,254)*y(k,68) + mat(k,1261) = -rxt(k,259)*y(k,68) + mat(k,117) = -(rxt(k,255)*y(k,111) + rxt(k,260)*y(k,144)) + mat(k,1338) = -rxt(k,255)*y(k,69) + mat(k,1263) = -rxt(k,260)*y(k,69) + mat(k,142) = -(rxt(k,256)*y(k,111) + rxt(k,261)*y(k,144)) + mat(k,1342) = -rxt(k,256)*y(k,70) + mat(k,1265) = -rxt(k,261)*y(k,70) + mat(k,860) = -(rxt(k,202)*y(k,106) + rxt(k,203)*y(k,111) + (rxt(k,214) & + + rxt(k,215)) * y(k,144) + (rxt(k,395) + rxt(k,401) + rxt(k,406) & + ) * y(k,76) + (rxt(k,400) + rxt(k,405) + rxt(k,410)) * y(k,46) & + + (rxt(k,402) + rxt(k,407)) * y(k,75)) + mat(k,1444) = -rxt(k,202)*y(k,71) + mat(k,1399) = -rxt(k,203)*y(k,71) + mat(k,1272) = -(rxt(k,214) + rxt(k,215)) * y(k,71) + mat(k,452) = -(rxt(k,395) + rxt(k,401) + rxt(k,406)) * y(k,71) + mat(k,574) = -(rxt(k,400) + rxt(k,405) + rxt(k,410)) * y(k,71) + mat(k,387) = -(rxt(k,402) + rxt(k,407)) * y(k,71) + mat(k,159) = rxt(k,284)*y(k,42) + mat(k,247) = rxt(k,245)*y(k,42) + mat(k,1015) = rxt(k,182)*y(k,42) + mat(k,326) = rxt(k,247)*y(k,42) + mat(k,191) = 2.000_r8*rxt(k,250)*y(k,42) + mat(k,1517) = rxt(k,183)*y(k,42) + mat(k,222) = rxt(k,252)*y(k,42) + mat(k,1310) = rxt(k,284)*y(k,13) + rxt(k,245)*y(k,26) + rxt(k,182)*y(k,27) & + + rxt(k,247)*y(k,28) + 2.000_r8*rxt(k,250)*y(k,31) + rxt(k,183) & + *y(k,40) + rxt(k,252)*y(k,41) + rxt(k,184)*y(k,63) + rxt(k,185) & + *y(k,65) + rxt(k,204)*y(k,76) + rxt(k,186)*y(k,139) + mat(k,955) = rxt(k,201)*y(k,111) + mat(k,827) = rxt(k,184)*y(k,42) + mat(k,312) = rxt(k,185)*y(k,42) + mat(k,452) = mat(k,452) + rxt(k,204)*y(k,42) + mat(k,1399) = mat(k,1399) + rxt(k,201)*y(k,45) + mat(k,1074) = rxt(k,186)*y(k,42) + mat(k,1512) = rxt(k,239)*y(k,59) + mat(k,489) = rxt(k,239)*y(k,40) + rxt(k,240)*y(k,63) + rxt(k,242)*y(k,73) & + + rxt(k,241)*y(k,151) + mat(k,824) = rxt(k,240)*y(k,59) + mat(k,1140) = rxt(k,242)*y(k,59) + mat(k,1560) = rxt(k,241)*y(k,59) + mat(k,1152) = -(rxt(k,176)*y(k,111) + rxt(k,242)*y(k,59)) mat(k,1408) = -rxt(k,176)*y(k,73) - mat(k,492) = -rxt(k,239)*y(k,73) - mat(k,1024) = rxt(k,259)*y(k,99) - mat(k,644) = rxt(k,283)*y(k,99) - mat(k,687) = rxt(k,308)*y(k,99) - mat(k,577) = (rxt(k,397)+rxt(k,402)+rxt(k,407))*y(k,71) - mat(k,138) = rxt(k,366)*y(k,99) - mat(k,865) = (rxt(k,397)+rxt(k,402)+rxt(k,407))*y(k,46) + mat(k,492) = -rxt(k,242)*y(k,73) + mat(k,1024) = rxt(k,262)*y(k,99) + mat(k,644) = rxt(k,286)*y(k,99) + mat(k,687) = rxt(k,311)*y(k,99) + mat(k,577) = (rxt(k,400)+rxt(k,405)+rxt(k,410))*y(k,71) + mat(k,138) = rxt(k,369)*y(k,99) + mat(k,865) = (rxt(k,400)+rxt(k,405)+rxt(k,410))*y(k,46) mat(k,1000) = rxt(k,175)*y(k,111) - mat(k,1239) = rxt(k,259)*y(k,27) + rxt(k,283)*y(k,30) + rxt(k,308)*y(k,34) & - + rxt(k,366)*y(k,52) + mat(k,1239) = rxt(k,262)*y(k,27) + rxt(k,286)*y(k,30) + rxt(k,311)*y(k,34) & + + rxt(k,369)*y(k,52) mat(k,1408) = mat(k,1408) + rxt(k,175)*y(k,98) - mat(k,232) = -(rxt(k,152)*y(k,111)) - mat(k,1354) = -rxt(k,152)*y(k,74) + mat(k,232) = -(rxt(k,153)*y(k,111)) + mat(k,1354) = -rxt(k,153)*y(k,74) mat(k,976) = rxt(k,173)*y(k,139) mat(k,1043) = rxt(k,173)*y(k,98) - mat(k,386) = -(rxt(k,230)*y(k,106) + (rxt(k,399) + rxt(k,404)) * y(k,71)) - mat(k,1429) = -rxt(k,230)*y(k,75) - mat(k,857) = -(rxt(k,399) + rxt(k,404)) * y(k,75) - mat(k,926) = rxt(k,222)*y(k,139) - mat(k,1050) = rxt(k,222)*y(k,6) - mat(k,451) = -(rxt(k,201)*y(k,42) + rxt(k,202)*y(k,106) + rxt(k,203)*y(k,111) & - + (rxt(k,392) + rxt(k,398) + rxt(k,403)) * y(k,71)) - mat(k,1302) = -rxt(k,201)*y(k,76) - mat(k,1432) = -rxt(k,202)*y(k,76) - mat(k,1374) = -rxt(k,203)*y(k,76) - mat(k,858) = -(rxt(k,392) + rxt(k,398) + rxt(k,403)) * y(k,76) - mat(k,951) = rxt(k,190)*y(k,139) - mat(k,572) = rxt(k,195)*y(k,111) - mat(k,1374) = mat(k,1374) + rxt(k,195)*y(k,46) - mat(k,1056) = rxt(k,190)*y(k,45) - mat(k,613) = -(rxt(k,310)*y(k,111)) - mat(k,1384) = -rxt(k,310)*y(k,77) - mat(k,784) = .220_r8*rxt(k,321)*y(k,84) + .250_r8*rxt(k,357)*y(k,134) - mat(k,1174) = .230_r8*rxt(k,322)*y(k,84) + .200_r8*rxt(k,315)*y(k,118) & - + .100_r8*rxt(k,358)*y(k,134) - mat(k,697) = .020_r8*rxt(k,350)*y(k,97) - mat(k,722) = .220_r8*rxt(k,321)*y(k,32) + .230_r8*rxt(k,322)*y(k,37) & - + .220_r8*rxt(k,325)*y(k,97) + .220_r8*rxt(k,324)*y(k,99) - mat(k,303) = .500_r8*rxt(k,336)*y(k,111) - mat(k,1481) = .020_r8*rxt(k,350)*y(k,81) + .220_r8*rxt(k,325)*y(k,84) & - + .250_r8*rxt(k,360)*y(k,134) - mat(k,1217) = .220_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,361)*y(k,134) - mat(k,1384) = mat(k,1384) + .500_r8*rxt(k,336)*y(k,87) + .500_r8*rxt(k,314) & + mat(k,386) = -(rxt(k,233)*y(k,106) + (rxt(k,402) + rxt(k,407)) * y(k,71)) + mat(k,1429) = -rxt(k,233)*y(k,75) + mat(k,857) = -(rxt(k,402) + rxt(k,407)) * y(k,75) + mat(k,926) = rxt(k,225)*y(k,139) + mat(k,1050) = rxt(k,225)*y(k,6) + mat(k,451) = -(rxt(k,204)*y(k,42) + rxt(k,205)*y(k,106) + rxt(k,206)*y(k,111) & + + (rxt(k,395) + rxt(k,401) + rxt(k,406)) * y(k,71)) + mat(k,1302) = -rxt(k,204)*y(k,76) + mat(k,1432) = -rxt(k,205)*y(k,76) + mat(k,1374) = -rxt(k,206)*y(k,76) + mat(k,858) = -(rxt(k,395) + rxt(k,401) + rxt(k,406)) * y(k,76) + mat(k,951) = rxt(k,193)*y(k,139) + mat(k,572) = rxt(k,198)*y(k,111) + mat(k,1374) = mat(k,1374) + rxt(k,198)*y(k,46) + mat(k,1056) = rxt(k,193)*y(k,45) + mat(k,613) = -(rxt(k,313)*y(k,111)) + mat(k,1384) = -rxt(k,313)*y(k,77) + mat(k,784) = .220_r8*rxt(k,324)*y(k,84) + .250_r8*rxt(k,360)*y(k,134) + mat(k,1174) = .230_r8*rxt(k,325)*y(k,84) + .200_r8*rxt(k,318)*y(k,118) & + + .100_r8*rxt(k,361)*y(k,134) + mat(k,697) = .020_r8*rxt(k,353)*y(k,97) + mat(k,722) = .220_r8*rxt(k,324)*y(k,32) + .230_r8*rxt(k,325)*y(k,37) & + + .220_r8*rxt(k,328)*y(k,97) + .220_r8*rxt(k,327)*y(k,99) + mat(k,303) = .500_r8*rxt(k,339)*y(k,111) + mat(k,1481) = .020_r8*rxt(k,353)*y(k,81) + .220_r8*rxt(k,328)*y(k,84) & + + .250_r8*rxt(k,363)*y(k,134) + mat(k,1217) = .220_r8*rxt(k,327)*y(k,84) + .250_r8*rxt(k,364)*y(k,134) + mat(k,1384) = mat(k,1384) + .500_r8*rxt(k,339)*y(k,87) + .500_r8*rxt(k,317) & *y(k,117) - mat(k,288) = .500_r8*rxt(k,314)*y(k,111) - mat(k,596) = .200_r8*rxt(k,315)*y(k,37) - mat(k,669) = .250_r8*rxt(k,357)*y(k,32) + .100_r8*rxt(k,358)*y(k,37) & - + .250_r8*rxt(k,360)*y(k,97) + .250_r8*rxt(k,361)*y(k,99) - mat(k,178) = -(rxt(k,342)*y(k,111)) - mat(k,1346) = -rxt(k,342)*y(k,78) - mat(k,778) = .400_r8*rxt(k,347)*y(k,81) - mat(k,1164) = .300_r8*rxt(k,348)*y(k,81) - mat(k,691) = .400_r8*rxt(k,347)*y(k,32) + .300_r8*rxt(k,348)*y(k,37) & - + .330_r8*rxt(k,350)*y(k,97) + .400_r8*rxt(k,351)*y(k,99) - mat(k,1464) = .330_r8*rxt(k,350)*y(k,81) - mat(k,1206) = .400_r8*rxt(k,351)*y(k,81) + rxt(k,355)*y(k,112) - mat(k,1346) = mat(k,1346) + rxt(k,356)*y(k,112) - mat(k,583) = rxt(k,355)*y(k,99) + rxt(k,356)*y(k,111) - mat(k,473) = -(rxt(k,343)*y(k,99) + rxt(k,352)*y(k,108) + rxt(k,353)*y(k,111)) - mat(k,1212) = -rxt(k,343)*y(k,79) - mat(k,1102) = -rxt(k,352)*y(k,79) - mat(k,1376) = -rxt(k,353)*y(k,79) - mat(k,411) = -(rxt(k,344)*y(k,139) + rxt(k,345)*y(k,97) + rxt(k,346)*y(k,99)) - mat(k,1053) = -rxt(k,344)*y(k,80) - mat(k,1471) = -rxt(k,345)*y(k,80) - mat(k,1211) = -rxt(k,346)*y(k,80) - mat(k,472) = rxt(k,343)*y(k,99) - mat(k,1211) = mat(k,1211) + rxt(k,343)*y(k,79) - mat(k,702) = -(rxt(k,347)*y(k,32) + rxt(k,348)*y(k,37) + rxt(k,349)*y(k,139) & - + rxt(k,350)*y(k,97) + rxt(k,351)*y(k,99)) - mat(k,789) = -rxt(k,347)*y(k,81) - mat(k,1180) = -rxt(k,348)*y(k,81) - mat(k,1067) = -rxt(k,349)*y(k,81) - mat(k,1487) = -rxt(k,350)*y(k,81) - mat(k,1224) = -rxt(k,351)*y(k,81) - mat(k,478) = rxt(k,353)*y(k,111) - mat(k,269) = .200_r8*rxt(k,354)*y(k,111) - mat(k,1224) = mat(k,1224) + 1.700_r8*rxt(k,363)*y(k,133) - mat(k,1391) = rxt(k,353)*y(k,79) + .200_r8*rxt(k,354)*y(k,82) & - + 1.640_r8*rxt(k,365)*y(k,133) - mat(k,346) = 1.700_r8*rxt(k,363)*y(k,99) + 1.640_r8*rxt(k,365)*y(k,111) - mat(k,266) = -(rxt(k,354)*y(k,111)) - mat(k,1357) = -rxt(k,354)*y(k,82) - mat(k,692) = rxt(k,349)*y(k,139) - mat(k,1044) = rxt(k,349)*y(k,81) - mat(k,654) = -(rxt(k,327)*y(k,108) + rxt(k,328)*y(k,111)) - mat(k,1111) = -rxt(k,327)*y(k,83) - mat(k,1388) = -rxt(k,328)*y(k,83) - mat(k,786) = .250_r8*rxt(k,347)*y(k,81) - mat(k,1177) = .190_r8*rxt(k,348)*y(k,81) - mat(k,477) = .300_r8*rxt(k,352)*y(k,108) - mat(k,413) = .167_r8*rxt(k,345)*y(k,97) + .167_r8*rxt(k,346)*y(k,99) & - + .167_r8*rxt(k,344)*y(k,139) - mat(k,699) = .250_r8*rxt(k,347)*y(k,32) + .190_r8*rxt(k,348)*y(k,37) & - + .230_r8*rxt(k,350)*y(k,97) + .250_r8*rxt(k,351)*y(k,99) - mat(k,1484) = .167_r8*rxt(k,345)*y(k,80) + .230_r8*rxt(k,350)*y(k,81) - mat(k,1221) = .167_r8*rxt(k,346)*y(k,80) + .250_r8*rxt(k,351)*y(k,81) - mat(k,1111) = mat(k,1111) + .300_r8*rxt(k,352)*y(k,79) + 1.122_r8*rxt(k,364) & + mat(k,288) = .500_r8*rxt(k,317)*y(k,111) + mat(k,596) = .200_r8*rxt(k,318)*y(k,37) + mat(k,669) = .250_r8*rxt(k,360)*y(k,32) + .100_r8*rxt(k,361)*y(k,37) & + + .250_r8*rxt(k,363)*y(k,97) + .250_r8*rxt(k,364)*y(k,99) + mat(k,178) = -(rxt(k,345)*y(k,111)) + mat(k,1346) = -rxt(k,345)*y(k,78) + mat(k,778) = .400_r8*rxt(k,350)*y(k,81) + mat(k,1164) = .300_r8*rxt(k,351)*y(k,81) + mat(k,691) = .400_r8*rxt(k,350)*y(k,32) + .300_r8*rxt(k,351)*y(k,37) & + + .330_r8*rxt(k,353)*y(k,97) + .400_r8*rxt(k,354)*y(k,99) + mat(k,1464) = .330_r8*rxt(k,353)*y(k,81) + mat(k,1206) = .400_r8*rxt(k,354)*y(k,81) + rxt(k,358)*y(k,112) + mat(k,1346) = mat(k,1346) + rxt(k,359)*y(k,112) + mat(k,583) = rxt(k,358)*y(k,99) + rxt(k,359)*y(k,111) + mat(k,473) = -(rxt(k,346)*y(k,99) + rxt(k,355)*y(k,108) + rxt(k,356)*y(k,111)) + mat(k,1212) = -rxt(k,346)*y(k,79) + mat(k,1102) = -rxt(k,355)*y(k,79) + mat(k,1376) = -rxt(k,356)*y(k,79) + mat(k,411) = -(rxt(k,347)*y(k,139) + rxt(k,348)*y(k,97) + rxt(k,349)*y(k,99)) + mat(k,1053) = -rxt(k,347)*y(k,80) + mat(k,1471) = -rxt(k,348)*y(k,80) + mat(k,1211) = -rxt(k,349)*y(k,80) + mat(k,472) = rxt(k,346)*y(k,99) + mat(k,1211) = mat(k,1211) + rxt(k,346)*y(k,79) + mat(k,702) = -(rxt(k,350)*y(k,32) + rxt(k,351)*y(k,37) + rxt(k,352)*y(k,139) & + + rxt(k,353)*y(k,97) + rxt(k,354)*y(k,99)) + mat(k,789) = -rxt(k,350)*y(k,81) + mat(k,1180) = -rxt(k,351)*y(k,81) + mat(k,1067) = -rxt(k,352)*y(k,81) + mat(k,1487) = -rxt(k,353)*y(k,81) + mat(k,1224) = -rxt(k,354)*y(k,81) + mat(k,478) = rxt(k,356)*y(k,111) + mat(k,269) = .200_r8*rxt(k,357)*y(k,111) + mat(k,1224) = mat(k,1224) + 1.700_r8*rxt(k,366)*y(k,133) + mat(k,1391) = rxt(k,356)*y(k,79) + .200_r8*rxt(k,357)*y(k,82) & + + 1.640_r8*rxt(k,368)*y(k,133) + mat(k,346) = 1.700_r8*rxt(k,366)*y(k,99) + 1.640_r8*rxt(k,368)*y(k,111) + mat(k,266) = -(rxt(k,357)*y(k,111)) + mat(k,1357) = -rxt(k,357)*y(k,82) + mat(k,692) = rxt(k,352)*y(k,139) + mat(k,1044) = rxt(k,352)*y(k,81) + mat(k,654) = -(rxt(k,330)*y(k,108) + rxt(k,331)*y(k,111)) + mat(k,1111) = -rxt(k,330)*y(k,83) + mat(k,1388) = -rxt(k,331)*y(k,83) + mat(k,786) = .250_r8*rxt(k,350)*y(k,81) + mat(k,1177) = .190_r8*rxt(k,351)*y(k,81) + mat(k,477) = .300_r8*rxt(k,355)*y(k,108) + mat(k,413) = .167_r8*rxt(k,348)*y(k,97) + .167_r8*rxt(k,349)*y(k,99) & + + .167_r8*rxt(k,347)*y(k,139) + mat(k,699) = .250_r8*rxt(k,350)*y(k,32) + .190_r8*rxt(k,351)*y(k,37) & + + .230_r8*rxt(k,353)*y(k,97) + .250_r8*rxt(k,354)*y(k,99) + mat(k,1484) = .167_r8*rxt(k,348)*y(k,80) + .230_r8*rxt(k,353)*y(k,81) + mat(k,1221) = .167_r8*rxt(k,349)*y(k,80) + .250_r8*rxt(k,354)*y(k,81) + mat(k,1111) = mat(k,1111) + .300_r8*rxt(k,355)*y(k,79) + 1.122_r8*rxt(k,367) & *y(k,133) - mat(k,345) = 1.122_r8*rxt(k,364)*y(k,108) - mat(k,1064) = .167_r8*rxt(k,344)*y(k,80) - mat(k,726) = -(rxt(k,321)*y(k,32) + rxt(k,322)*y(k,37) + rxt(k,323)*y(k,139) & - + rxt(k,324)*y(k,99) + (rxt(k,325) + rxt(k,326)) * y(k,97)) - mat(k,790) = -rxt(k,321)*y(k,84) - mat(k,1181) = -rxt(k,322)*y(k,84) - mat(k,1068) = -rxt(k,323)*y(k,84) - mat(k,1225) = -rxt(k,324)*y(k,84) - mat(k,1488) = -(rxt(k,325) + rxt(k,326)) * y(k,84) - mat(k,656) = .500_r8*rxt(k,328)*y(k,111) - mat(k,164) = .200_r8*rxt(k,329)*y(k,111) - mat(k,743) = rxt(k,338)*y(k,111) - mat(k,1392) = .500_r8*rxt(k,328)*y(k,83) + .200_r8*rxt(k,329)*y(k,85) & - + rxt(k,338)*y(k,88) - mat(k,163) = -(rxt(k,329)*y(k,111)) - mat(k,1344) = -rxt(k,329)*y(k,85) - mat(k,718) = rxt(k,323)*y(k,139) - mat(k,1037) = rxt(k,323)*y(k,84) - mat(k,765) = -(rxt(k,330)*y(k,32) + rxt(k,331)*y(k,37) + rxt(k,332)*y(k,139) & - + 4._r8*rxt(k,333)*y(k,86) + rxt(k,334)*y(k,97) + rxt(k,335) & - *y(k,99) + rxt(k,339)*y(k,98)) - mat(k,792) = -rxt(k,330)*y(k,86) - mat(k,1183) = -rxt(k,331)*y(k,86) - mat(k,1070) = -rxt(k,332)*y(k,86) - mat(k,1490) = -rxt(k,334)*y(k,86) - mat(k,1227) = -rxt(k,335)*y(k,86) - mat(k,987) = -rxt(k,339)*y(k,86) - mat(k,657) = .500_r8*rxt(k,328)*y(k,111) - mat(k,165) = .500_r8*rxt(k,329)*y(k,111) - mat(k,1394) = .500_r8*rxt(k,328)*y(k,83) + .500_r8*rxt(k,329)*y(k,85) - mat(k,302) = -(rxt(k,336)*y(k,111)) - mat(k,1361) = -rxt(k,336)*y(k,87) - mat(k,760) = rxt(k,339)*y(k,98) - mat(k,979) = rxt(k,339)*y(k,86) - mat(k,744) = -(rxt(k,337)*y(k,108) + rxt(k,338)*y(k,111)) - mat(k,1116) = -rxt(k,337)*y(k,88) - mat(k,1393) = -rxt(k,338)*y(k,88) - mat(k,791) = .350_r8*rxt(k,347)*y(k,81) - mat(k,1182) = .260_r8*rxt(k,348)*y(k,81) - mat(k,479) = .200_r8*rxt(k,352)*y(k,108) - mat(k,414) = .039_r8*rxt(k,345)*y(k,97) + .039_r8*rxt(k,346)*y(k,99) & - + .039_r8*rxt(k,344)*y(k,139) - mat(k,704) = .350_r8*rxt(k,347)*y(k,32) + .260_r8*rxt(k,348)*y(k,37) & - + .320_r8*rxt(k,350)*y(k,97) + .350_r8*rxt(k,351)*y(k,99) - mat(k,1489) = .039_r8*rxt(k,345)*y(k,80) + .320_r8*rxt(k,350)*y(k,81) - mat(k,1226) = .039_r8*rxt(k,346)*y(k,80) + .350_r8*rxt(k,351)*y(k,81) - mat(k,1116) = mat(k,1116) + .200_r8*rxt(k,352)*y(k,79) + .442_r8*rxt(k,364) & + mat(k,345) = 1.122_r8*rxt(k,367)*y(k,108) + mat(k,1064) = .167_r8*rxt(k,347)*y(k,80) + mat(k,726) = -(rxt(k,324)*y(k,32) + rxt(k,325)*y(k,37) + rxt(k,326)*y(k,139) & + + rxt(k,327)*y(k,99) + (rxt(k,328) + rxt(k,329)) * y(k,97)) + mat(k,790) = -rxt(k,324)*y(k,84) + mat(k,1181) = -rxt(k,325)*y(k,84) + mat(k,1068) = -rxt(k,326)*y(k,84) + mat(k,1225) = -rxt(k,327)*y(k,84) + mat(k,1488) = -(rxt(k,328) + rxt(k,329)) * y(k,84) + mat(k,656) = .500_r8*rxt(k,331)*y(k,111) + mat(k,164) = .200_r8*rxt(k,332)*y(k,111) + mat(k,743) = rxt(k,341)*y(k,111) + mat(k,1392) = .500_r8*rxt(k,331)*y(k,83) + .200_r8*rxt(k,332)*y(k,85) & + + rxt(k,341)*y(k,88) + mat(k,163) = -(rxt(k,332)*y(k,111)) + mat(k,1344) = -rxt(k,332)*y(k,85) + mat(k,718) = rxt(k,326)*y(k,139) + mat(k,1037) = rxt(k,326)*y(k,84) + mat(k,765) = -(rxt(k,333)*y(k,32) + rxt(k,334)*y(k,37) + rxt(k,335)*y(k,139) & + + 4._r8*rxt(k,336)*y(k,86) + rxt(k,337)*y(k,97) + rxt(k,338) & + *y(k,99) + rxt(k,342)*y(k,98)) + mat(k,792) = -rxt(k,333)*y(k,86) + mat(k,1183) = -rxt(k,334)*y(k,86) + mat(k,1070) = -rxt(k,335)*y(k,86) + mat(k,1490) = -rxt(k,337)*y(k,86) + mat(k,1227) = -rxt(k,338)*y(k,86) + mat(k,987) = -rxt(k,342)*y(k,86) + mat(k,657) = .500_r8*rxt(k,331)*y(k,111) + mat(k,165) = .500_r8*rxt(k,332)*y(k,111) + mat(k,1394) = .500_r8*rxt(k,331)*y(k,83) + .500_r8*rxt(k,332)*y(k,85) + mat(k,302) = -(rxt(k,339)*y(k,111)) + mat(k,1361) = -rxt(k,339)*y(k,87) + mat(k,760) = rxt(k,342)*y(k,98) + mat(k,979) = rxt(k,342)*y(k,86) + mat(k,744) = -(rxt(k,340)*y(k,108) + rxt(k,341)*y(k,111)) + mat(k,1116) = -rxt(k,340)*y(k,88) + mat(k,1393) = -rxt(k,341)*y(k,88) + mat(k,791) = .350_r8*rxt(k,350)*y(k,81) + mat(k,1182) = .260_r8*rxt(k,351)*y(k,81) + mat(k,479) = .200_r8*rxt(k,355)*y(k,108) + mat(k,414) = .039_r8*rxt(k,348)*y(k,97) + .039_r8*rxt(k,349)*y(k,99) & + + .039_r8*rxt(k,347)*y(k,139) + mat(k,704) = .350_r8*rxt(k,350)*y(k,32) + .260_r8*rxt(k,351)*y(k,37) & + + .320_r8*rxt(k,353)*y(k,97) + .350_r8*rxt(k,354)*y(k,99) + mat(k,1489) = .039_r8*rxt(k,348)*y(k,80) + .320_r8*rxt(k,353)*y(k,81) + mat(k,1226) = .039_r8*rxt(k,349)*y(k,80) + .350_r8*rxt(k,354)*y(k,81) + mat(k,1116) = mat(k,1116) + .200_r8*rxt(k,355)*y(k,79) + .442_r8*rxt(k,367) & *y(k,133) - mat(k,347) = .442_r8*rxt(k,364)*y(k,108) - mat(k,1069) = .039_r8*rxt(k,344)*y(k,80) + mat(k,347) = .442_r8*rxt(k,367)*y(k,108) + mat(k,1069) = .039_r8*rxt(k,347)*y(k,80) end do end subroutine nlnmat04 subroutine nlnmat05( avec_len, mat, y, rxt ) @@ -915,171 +915,173 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,561) = -(rxt(k,155)*y(k,97) + (rxt(k,156) + rxt(k,157) + rxt(k,158) & - ) * y(k,98) + rxt(k,159)*y(k,107) + rxt(k,167)*y(k,111) & - + rxt(k,420)*y(k,147)) - mat(k,1477) = -rxt(k,155)*y(k,89) - mat(k,982) = -(rxt(k,156) + rxt(k,157) + rxt(k,158)) * y(k,89) - mat(k,903) = -rxt(k,159)*y(k,89) + mat(k,561) = -(rxt(k,156)*y(k,97) + (rxt(k,157) + rxt(k,158) + rxt(k,159) & + ) * y(k,98) + rxt(k,167)*y(k,111) + rxt(k,181)*y(k,107) & + + rxt(k,423)*y(k,147)) + mat(k,1477) = -rxt(k,156)*y(k,89) + mat(k,982) = -(rxt(k,157) + rxt(k,158) + rxt(k,159)) * y(k,89) mat(k,1379) = -rxt(k,167)*y(k,89) - mat(k,514) = -rxt(k,420)*y(k,89) - mat(k,1438) = rxt(k,153)*y(k,140) + rxt(k,417)*y(k,143) - mat(k,903) = mat(k,903) + rxt(k,418)*y(k,143) - mat(k,528) = 1.100_r8*rxt(k,413)*y(k,141) + .200_r8*rxt(k,411)*y(k,142) - mat(k,540) = rxt(k,153)*y(k,106) - mat(k,340) = 1.100_r8*rxt(k,413)*y(k,138) - mat(k,373) = .200_r8*rxt(k,411)*y(k,138) - mat(k,447) = rxt(k,417)*y(k,106) + rxt(k,418)*y(k,107) + mat(k,903) = -rxt(k,181)*y(k,89) + mat(k,514) = -rxt(k,423)*y(k,89) + mat(k,1438) = rxt(k,155)*y(k,140) + rxt(k,420)*y(k,143) + mat(k,903) = mat(k,903) + rxt(k,421)*y(k,143) + mat(k,528) = rxt(k,178)*y(k,140) + 1.100_r8*rxt(k,416)*y(k,141) & + + .200_r8*rxt(k,414)*y(k,142) + mat(k,540) = rxt(k,155)*y(k,106) + rxt(k,178)*y(k,138) + mat(k,340) = 1.100_r8*rxt(k,416)*y(k,138) + mat(k,373) = .200_r8*rxt(k,414)*y(k,138) + mat(k,447) = rxt(k,420)*y(k,106) + rxt(k,421)*y(k,107) mat(k,122) = -((rxt(k,171) + rxt(k,172)) * y(k,144)) mat(k,1264) = -(rxt(k,171) + rxt(k,172)) * y(k,90) - mat(k,554) = rxt(k,156)*y(k,98) - mat(k,974) = rxt(k,156)*y(k,89) + mat(k,554) = rxt(k,157)*y(k,98) + mat(k,974) = rxt(k,157)*y(k,89) mat(k,975) = rxt(k,174)*y(k,99) mat(k,1205) = rxt(k,174)*y(k,98) - mat(k,35) = -(rxt(k,383)*y(k,111)) - mat(k,1331) = -rxt(k,383)*y(k,95) - mat(k,1508) = -(rxt(k,155)*y(k,89) + rxt(k,164)*y(k,99) + rxt(k,168)*y(k,139) & - + rxt(k,169)*y(k,108) + rxt(k,170)*y(k,106) + rxt(k,191)*y(k,45) & - + rxt(k,223)*y(k,6) + rxt(k,265)*y(k,37) + rxt(k,278)*y(k,10) & - + rxt(k,288)*y(k,32) + rxt(k,292)*y(k,57) + rxt(k,305)*y(k,15) & - + rxt(k,313)*y(k,114) + rxt(k,317)*y(k,118) + (rxt(k,325) & - + rxt(k,326)) * y(k,84) + rxt(k,334)*y(k,86) + rxt(k,345) & - *y(k,80) + rxt(k,350)*y(k,81) + rxt(k,360)*y(k,134) + rxt(k,422) & - *y(k,147)) - mat(k,569) = -rxt(k,155)*y(k,97) + mat(k,35) = -(rxt(k,386)*y(k,111)) + mat(k,1331) = -rxt(k,386)*y(k,95) + mat(k,1508) = -(rxt(k,154)*y(k,140) + rxt(k,156)*y(k,89) + rxt(k,164)*y(k,99) & + + rxt(k,168)*y(k,139) + rxt(k,169)*y(k,108) + rxt(k,170) & + *y(k,106) + rxt(k,194)*y(k,45) + rxt(k,226)*y(k,6) + rxt(k,268) & + *y(k,37) + rxt(k,281)*y(k,10) + rxt(k,291)*y(k,32) + rxt(k,295) & + *y(k,57) + rxt(k,308)*y(k,15) + rxt(k,316)*y(k,114) + rxt(k,320) & + *y(k,118) + (rxt(k,328) + rxt(k,329)) * y(k,84) + rxt(k,337) & + *y(k,86) + rxt(k,348)*y(k,80) + rxt(k,353)*y(k,81) + rxt(k,363) & + *y(k,134) + rxt(k,425)*y(k,147)) + mat(k,546) = -rxt(k,154)*y(k,97) + mat(k,569) = -rxt(k,156)*y(k,97) mat(k,1246) = -rxt(k,164)*y(k,97) mat(k,1090) = -rxt(k,168)*y(k,97) mat(k,1136) = -rxt(k,169)*y(k,97) mat(k,1460) = -rxt(k,170)*y(k,97) - mat(k,971) = -rxt(k,191)*y(k,97) - mat(k,944) = -rxt(k,223)*y(k,97) - mat(k,1200) = -rxt(k,265)*y(k,97) - mat(k,432) = -rxt(k,278)*y(k,97) - mat(k,804) = -rxt(k,288)*y(k,97) - mat(k,384) = -rxt(k,292)*y(k,97) - mat(k,470) = -rxt(k,305)*y(k,97) - mat(k,409) = -rxt(k,313)*y(k,97) - mat(k,604) = -rxt(k,317)*y(k,97) - mat(k,737) = -(rxt(k,325) + rxt(k,326)) * y(k,97) - mat(k,776) = -rxt(k,334)*y(k,97) - mat(k,420) = -rxt(k,345)*y(k,97) - mat(k,716) = -rxt(k,350)*y(k,97) - mat(k,681) = -rxt(k,360)*y(k,97) - mat(k,518) = -rxt(k,422)*y(k,97) - mat(k,569) = mat(k,569) + 2.000_r8*rxt(k,157)*y(k,98) + rxt(k,159)*y(k,107) & + mat(k,971) = -rxt(k,194)*y(k,97) + mat(k,944) = -rxt(k,226)*y(k,97) + mat(k,1200) = -rxt(k,268)*y(k,97) + mat(k,432) = -rxt(k,281)*y(k,97) + mat(k,804) = -rxt(k,291)*y(k,97) + mat(k,384) = -rxt(k,295)*y(k,97) + mat(k,470) = -rxt(k,308)*y(k,97) + mat(k,409) = -rxt(k,316)*y(k,97) + mat(k,604) = -rxt(k,320)*y(k,97) + mat(k,737) = -(rxt(k,328) + rxt(k,329)) * y(k,97) + mat(k,776) = -rxt(k,337)*y(k,97) + mat(k,420) = -rxt(k,348)*y(k,97) + mat(k,716) = -rxt(k,353)*y(k,97) + mat(k,681) = -rxt(k,363)*y(k,97) + mat(k,518) = -rxt(k,425)*y(k,97) + mat(k,569) = mat(k,569) + 2.000_r8*rxt(k,158)*y(k,98) + rxt(k,181)*y(k,107) & + rxt(k,167)*y(k,111) mat(k,125) = 2.000_r8*rxt(k,171)*y(k,144) - mat(k,1007) = 2.000_r8*rxt(k,157)*y(k,89) + rxt(k,160)*y(k,106) + rxt(k,376) & + mat(k,1007) = 2.000_r8*rxt(k,158)*y(k,89) + rxt(k,160)*y(k,106) + rxt(k,379) & *y(k,122) mat(k,1460) = mat(k,1460) + rxt(k,160)*y(k,98) - mat(k,920) = rxt(k,159)*y(k,89) + rxt(k,154)*y(k,140) + mat(k,920) = rxt(k,181)*y(k,89) + rxt(k,179)*y(k,140) mat(k,1415) = rxt(k,167)*y(k,89) - mat(k,852) = rxt(k,376)*y(k,98) - mat(k,546) = rxt(k,154)*y(k,107) + mat(k,852) = rxt(k,379)*y(k,98) + mat(k,546) = mat(k,546) + rxt(k,179)*y(k,107) mat(k,1288) = 2.000_r8*rxt(k,171)*y(k,90) - mat(k,996) = -((rxt(k,156) + rxt(k,157) + rxt(k,158)) * y(k,89) + (rxt(k,160) & + mat(k,996) = -((rxt(k,157) + rxt(k,158) + rxt(k,159)) * y(k,89) + (rxt(k,160) & + rxt(k,162)) * y(k,106) + rxt(k,161)*y(k,108) + rxt(k,173) & - *y(k,139) + rxt(k,174)*y(k,99) + rxt(k,175)*y(k,111) + rxt(k,193) & - *y(k,45) + rxt(k,224)*y(k,6) + rxt(k,299)*y(k,32) + rxt(k,339) & - *y(k,86) + rxt(k,376)*y(k,122)) - mat(k,565) = -(rxt(k,156) + rxt(k,157) + rxt(k,158)) * y(k,98) + *y(k,139) + rxt(k,174)*y(k,99) + rxt(k,175)*y(k,111) + rxt(k,196) & + *y(k,45) + rxt(k,227)*y(k,6) + rxt(k,302)*y(k,32) + rxt(k,342) & + *y(k,86) + rxt(k,379)*y(k,122)) + mat(k,565) = -(rxt(k,157) + rxt(k,158) + rxt(k,159)) * y(k,98) mat(k,1449) = -(rxt(k,160) + rxt(k,162)) * y(k,98) mat(k,1125) = -rxt(k,161)*y(k,98) mat(k,1079) = -rxt(k,173)*y(k,98) mat(k,1235) = -rxt(k,174)*y(k,98) mat(k,1404) = -rxt(k,175)*y(k,98) - mat(k,960) = -rxt(k,193)*y(k,98) - mat(k,934) = -rxt(k,224)*y(k,98) - mat(k,796) = -rxt(k,299)*y(k,98) - mat(k,768) = -rxt(k,339)*y(k,98) - mat(k,846) = -rxt(k,376)*y(k,98) - mat(k,934) = mat(k,934) + rxt(k,223)*y(k,97) - mat(k,427) = rxt(k,278)*y(k,97) - mat(k,465) = rxt(k,305)*y(k,97) - mat(k,796) = mat(k,796) + rxt(k,288)*y(k,97) - mat(k,1189) = rxt(k,265)*y(k,97) - mat(k,960) = mat(k,960) + rxt(k,191)*y(k,97) - mat(k,380) = rxt(k,292)*y(k,97) - mat(k,234) = rxt(k,152)*y(k,111) - mat(k,415) = 1.206_r8*rxt(k,345)*y(k,97) + 1.206_r8*rxt(k,346)*y(k,99) & - + .206_r8*rxt(k,344)*y(k,139) - mat(k,708) = .920_r8*rxt(k,350)*y(k,97) + rxt(k,351)*y(k,99) - mat(k,730) = rxt(k,325)*y(k,97) + rxt(k,324)*y(k,99) - mat(k,768) = mat(k,768) + rxt(k,334)*y(k,97) + rxt(k,335)*y(k,99) - mat(k,1497) = rxt(k,223)*y(k,6) + rxt(k,278)*y(k,10) + rxt(k,305)*y(k,15) & - + rxt(k,288)*y(k,32) + rxt(k,265)*y(k,37) + rxt(k,191)*y(k,45) & - + rxt(k,292)*y(k,57) + 1.206_r8*rxt(k,345)*y(k,80) & - + .920_r8*rxt(k,350)*y(k,81) + rxt(k,325)*y(k,84) + rxt(k,334) & + mat(k,960) = -rxt(k,196)*y(k,98) + mat(k,934) = -rxt(k,227)*y(k,98) + mat(k,796) = -rxt(k,302)*y(k,98) + mat(k,768) = -rxt(k,342)*y(k,98) + mat(k,846) = -rxt(k,379)*y(k,98) + mat(k,934) = mat(k,934) + rxt(k,226)*y(k,97) + mat(k,427) = rxt(k,281)*y(k,97) + mat(k,465) = rxt(k,308)*y(k,97) + mat(k,796) = mat(k,796) + rxt(k,291)*y(k,97) + mat(k,1189) = rxt(k,268)*y(k,97) + mat(k,960) = mat(k,960) + rxt(k,194)*y(k,97) + mat(k,380) = rxt(k,295)*y(k,97) + mat(k,234) = rxt(k,153)*y(k,111) + mat(k,415) = 1.206_r8*rxt(k,348)*y(k,97) + 1.206_r8*rxt(k,349)*y(k,99) & + + .206_r8*rxt(k,347)*y(k,139) + mat(k,708) = .920_r8*rxt(k,353)*y(k,97) + rxt(k,354)*y(k,99) + mat(k,730) = rxt(k,328)*y(k,97) + rxt(k,327)*y(k,99) + mat(k,768) = mat(k,768) + rxt(k,337)*y(k,97) + rxt(k,338)*y(k,99) + mat(k,1497) = rxt(k,226)*y(k,6) + rxt(k,281)*y(k,10) + rxt(k,308)*y(k,15) & + + rxt(k,291)*y(k,32) + rxt(k,268)*y(k,37) + rxt(k,194)*y(k,45) & + + rxt(k,295)*y(k,57) + 1.206_r8*rxt(k,348)*y(k,80) & + + .920_r8*rxt(k,353)*y(k,81) + rxt(k,328)*y(k,84) + rxt(k,337) & *y(k,86) + 2.000_r8*rxt(k,164)*y(k,99) + rxt(k,170)*y(k,106) & - + rxt(k,169)*y(k,108) + rxt(k,313)*y(k,114) + rxt(k,317) & - *y(k,118) + rxt(k,360)*y(k,134) + rxt(k,168)*y(k,139) - mat(k,1235) = mat(k,1235) + 1.206_r8*rxt(k,346)*y(k,80) + rxt(k,351)*y(k,81) & - + rxt(k,324)*y(k,84) + rxt(k,335)*y(k,86) + 2.000_r8*rxt(k,164) & + + rxt(k,169)*y(k,108) + rxt(k,316)*y(k,114) + rxt(k,320) & + *y(k,118) + rxt(k,363)*y(k,134) + rxt(k,168)*y(k,139) + mat(k,1235) = mat(k,1235) + 1.206_r8*rxt(k,349)*y(k,80) + rxt(k,354)*y(k,81) & + + rxt(k,327)*y(k,84) + rxt(k,338)*y(k,86) + 2.000_r8*rxt(k,164) & *y(k,97) + rxt(k,165)*y(k,106) + rxt(k,166)*y(k,111) & - + rxt(k,355)*y(k,112) + rxt(k,363)*y(k,133) + rxt(k,361) & + + rxt(k,358)*y(k,112) + rxt(k,366)*y(k,133) + rxt(k,364) & *y(k,134) + rxt(k,163)*y(k,139) - mat(k,200) = rxt(k,311)*y(k,111) + mat(k,200) = rxt(k,314)*y(k,111) mat(k,1449) = mat(k,1449) + rxt(k,170)*y(k,97) + rxt(k,165)*y(k,99) mat(k,1125) = mat(k,1125) + rxt(k,169)*y(k,97) - mat(k,1404) = mat(k,1404) + rxt(k,152)*y(k,74) + rxt(k,166)*y(k,99) & - + rxt(k,311)*y(k,100) + .400_r8*rxt(k,356)*y(k,112) - mat(k,587) = rxt(k,355)*y(k,99) + .400_r8*rxt(k,356)*y(k,111) - mat(k,405) = rxt(k,313)*y(k,97) - mat(k,599) = rxt(k,317)*y(k,97) - mat(k,348) = rxt(k,363)*y(k,99) - mat(k,675) = rxt(k,360)*y(k,97) + rxt(k,361)*y(k,99) - mat(k,1079) = mat(k,1079) + .206_r8*rxt(k,344)*y(k,80) + rxt(k,168)*y(k,97) & + mat(k,1404) = mat(k,1404) + rxt(k,153)*y(k,74) + rxt(k,166)*y(k,99) & + + rxt(k,314)*y(k,100) + .400_r8*rxt(k,359)*y(k,112) + mat(k,587) = rxt(k,358)*y(k,99) + .400_r8*rxt(k,359)*y(k,111) + mat(k,405) = rxt(k,316)*y(k,97) + mat(k,599) = rxt(k,320)*y(k,97) + mat(k,348) = rxt(k,366)*y(k,99) + mat(k,675) = rxt(k,363)*y(k,97) + rxt(k,364)*y(k,99) + mat(k,1079) = mat(k,1079) + .206_r8*rxt(k,347)*y(k,80) + rxt(k,168)*y(k,97) & + rxt(k,163)*y(k,99) mat(k,1241) = -(rxt(k,163)*y(k,139) + rxt(k,164)*y(k,97) + rxt(k,165) & - *y(k,106) + rxt(k,166)*y(k,111) + rxt(k,174)*y(k,98) + rxt(k,259) & - *y(k,27) + rxt(k,283)*y(k,30) + rxt(k,301)*y(k,14) + rxt(k,308) & - *y(k,34) + rxt(k,324)*y(k,84) + rxt(k,335)*y(k,86) + rxt(k,343) & - *y(k,79) + rxt(k,346)*y(k,80) + rxt(k,351)*y(k,81) + rxt(k,355) & - *y(k,112) + rxt(k,361)*y(k,134) + rxt(k,363)*y(k,133) + rxt(k,366) & + *y(k,106) + rxt(k,166)*y(k,111) + rxt(k,174)*y(k,98) + rxt(k,262) & + *y(k,27) + rxt(k,286)*y(k,30) + rxt(k,304)*y(k,14) + rxt(k,311) & + *y(k,34) + rxt(k,327)*y(k,84) + rxt(k,338)*y(k,86) + rxt(k,346) & + *y(k,79) + rxt(k,349)*y(k,80) + rxt(k,354)*y(k,81) + rxt(k,358) & + *y(k,112) + rxt(k,364)*y(k,134) + rxt(k,366)*y(k,133) + rxt(k,369) & *y(k,52)) mat(k,1085) = -rxt(k,163)*y(k,99) mat(k,1503) = -rxt(k,164)*y(k,99) mat(k,1455) = -rxt(k,165)*y(k,99) mat(k,1410) = -rxt(k,166)*y(k,99) mat(k,1002) = -rxt(k,174)*y(k,99) - mat(k,1026) = -rxt(k,259)*y(k,99) - mat(k,646) = -rxt(k,283)*y(k,99) - mat(k,635) = -rxt(k,301)*y(k,99) - mat(k,688) = -rxt(k,308)*y(k,99) - mat(k,735) = -rxt(k,324)*y(k,99) - mat(k,774) = -rxt(k,335)*y(k,99) - mat(k,486) = -rxt(k,343)*y(k,99) - mat(k,418) = -rxt(k,346)*y(k,99) - mat(k,714) = -rxt(k,351)*y(k,99) - mat(k,591) = -rxt(k,355)*y(k,99) - mat(k,679) = -rxt(k,361)*y(k,99) - mat(k,350) = -rxt(k,363)*y(k,99) - mat(k,139) = -rxt(k,366)*y(k,99) - mat(k,300) = rxt(k,225)*y(k,106) - mat(k,1321) = rxt(k,192)*y(k,46) - mat(k,578) = rxt(k,192)*y(k,42) + rxt(k,194)*y(k,106) + rxt(k,195)*y(k,111) - mat(k,494) = rxt(k,239)*y(k,73) - mat(k,1154) = rxt(k,239)*y(k,59) + rxt(k,176)*y(k,111) - mat(k,309) = .500_r8*rxt(k,336)*y(k,111) + mat(k,1026) = -rxt(k,262)*y(k,99) + mat(k,646) = -rxt(k,286)*y(k,99) + mat(k,635) = -rxt(k,304)*y(k,99) + mat(k,688) = -rxt(k,311)*y(k,99) + mat(k,735) = -rxt(k,327)*y(k,99) + mat(k,774) = -rxt(k,338)*y(k,99) + mat(k,486) = -rxt(k,346)*y(k,99) + mat(k,418) = -rxt(k,349)*y(k,99) + mat(k,714) = -rxt(k,354)*y(k,99) + mat(k,591) = -rxt(k,358)*y(k,99) + mat(k,679) = -rxt(k,364)*y(k,99) + mat(k,350) = -rxt(k,366)*y(k,99) + mat(k,139) = -rxt(k,369)*y(k,99) + mat(k,300) = rxt(k,228)*y(k,106) + mat(k,1321) = rxt(k,195)*y(k,46) + mat(k,578) = rxt(k,195)*y(k,42) + rxt(k,197)*y(k,106) + rxt(k,198)*y(k,111) + mat(k,494) = rxt(k,242)*y(k,73) + mat(k,1154) = rxt(k,242)*y(k,59) + rxt(k,176)*y(k,111) + mat(k,309) = .500_r8*rxt(k,339)*y(k,111) mat(k,1002) = mat(k,1002) + rxt(k,162)*y(k,106) + rxt(k,161)*y(k,108) - mat(k,1455) = mat(k,1455) + rxt(k,225)*y(k,7) + rxt(k,194)*y(k,46) & + mat(k,1455) = mat(k,1455) + rxt(k,228)*y(k,7) + rxt(k,197)*y(k,46) & + rxt(k,162)*y(k,98) mat(k,1131) = rxt(k,161)*y(k,98) - mat(k,1410) = mat(k,1410) + rxt(k,195)*y(k,46) + rxt(k,176)*y(k,73) & - + .500_r8*rxt(k,336)*y(k,87) + rxt(k,297)*y(k,113) - mat(k,280) = rxt(k,297)*y(k,111) - mat(k,197) = -(rxt(k,311)*y(k,111)) - mat(k,1349) = -rxt(k,311)*y(k,100) - mat(k,619) = rxt(k,301)*y(k,99) - mat(k,1207) = rxt(k,301)*y(k,14) + mat(k,1410) = mat(k,1410) + rxt(k,198)*y(k,46) + rxt(k,176)*y(k,73) & + + .500_r8*rxt(k,339)*y(k,87) + rxt(k,300)*y(k,113) + mat(k,280) = rxt(k,300)*y(k,111) + mat(k,197) = -(rxt(k,314)*y(k,111)) + mat(k,1349) = -rxt(k,314)*y(k,100) + mat(k,619) = rxt(k,304)*y(k,99) + mat(k,1207) = rxt(k,304)*y(k,14) mat(k,1459) = -(rxt(k,132)*y(k,108) + 4._r8*rxt(k,133)*y(k,106) + rxt(k,134) & *y(k,107) + rxt(k,135)*y(k,63) + rxt(k,136)*y(k,65) + rxt(k,141) & *y(k,139) + rxt(k,147)*y(k,111) + (rxt(k,160) + rxt(k,162) & - ) * y(k,98) + rxt(k,165)*y(k,99) + rxt(k,170)*y(k,97) + rxt(k,194) & - *y(k,46) + rxt(k,196)*y(k,45) + rxt(k,199)*y(k,71) + rxt(k,202) & - *y(k,76) + rxt(k,225)*y(k,7) + rxt(k,226)*y(k,6) + rxt(k,228) & - *y(k,67) + rxt(k,230)*y(k,75) + rxt(k,260)*y(k,27) + rxt(k,368) & - *y(k,110) + (rxt(k,415) + rxt(k,416)) * y(k,141) + rxt(k,417) & + ) * y(k,98) + rxt(k,165)*y(k,99) + rxt(k,170)*y(k,97) + rxt(k,197) & + *y(k,46) + rxt(k,199)*y(k,45) + rxt(k,202)*y(k,71) + rxt(k,205) & + *y(k,76) + rxt(k,228)*y(k,7) + rxt(k,229)*y(k,6) + rxt(k,231) & + *y(k,67) + rxt(k,233)*y(k,75) + rxt(k,263)*y(k,27) + rxt(k,371) & + *y(k,110) + (rxt(k,418) + rxt(k,419)) * y(k,141) + rxt(k,420) & *y(k,143)) mat(k,1135) = -rxt(k,132)*y(k,106) mat(k,919) = -rxt(k,134)*y(k,106) @@ -1090,42 +1092,42 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) mat(k,1006) = -(rxt(k,160) + rxt(k,162)) * y(k,106) mat(k,1245) = -rxt(k,165)*y(k,106) mat(k,1507) = -rxt(k,170)*y(k,106) - mat(k,581) = -rxt(k,194)*y(k,106) - mat(k,970) = -rxt(k,196)*y(k,106) - mat(k,870) = -rxt(k,199)*y(k,106) - mat(k,456) = -rxt(k,202)*y(k,106) - mat(k,301) = -rxt(k,225)*y(k,106) - mat(k,943) = -rxt(k,226)*y(k,106) - mat(k,438) = -rxt(k,228)*y(k,106) - mat(k,392) = -rxt(k,230)*y(k,106) - mat(k,1030) = -rxt(k,260)*y(k,106) - mat(k,187) = -rxt(k,368)*y(k,106) - mat(k,342) = -(rxt(k,415) + rxt(k,416)) * y(k,106) - mat(k,449) = -rxt(k,417)*y(k,106) + mat(k,581) = -rxt(k,197)*y(k,106) + mat(k,970) = -rxt(k,199)*y(k,106) + mat(k,870) = -rxt(k,202)*y(k,106) + mat(k,456) = -rxt(k,205)*y(k,106) + mat(k,301) = -rxt(k,228)*y(k,106) + mat(k,943) = -rxt(k,229)*y(k,106) + mat(k,438) = -rxt(k,231)*y(k,106) + mat(k,392) = -rxt(k,233)*y(k,106) + mat(k,1030) = -rxt(k,263)*y(k,106) + mat(k,187) = -rxt(k,371)*y(k,106) + mat(k,342) = -(rxt(k,418) + rxt(k,419)) * y(k,106) + mat(k,449) = -rxt(k,420)*y(k,106) mat(k,1553) = rxt(k,139)*y(k,139) - mat(k,568) = rxt(k,155)*y(k,97) + rxt(k,156)*y(k,98) + rxt(k,159)*y(k,107) & - + rxt(k,420)*y(k,147) - mat(k,1507) = mat(k,1507) + rxt(k,155)*y(k,89) - mat(k,1006) = mat(k,1006) + rxt(k,156)*y(k,89) - mat(k,919) = mat(k,919) + rxt(k,159)*y(k,89) + rxt(k,370)*y(k,120) & - + rxt(k,377)*y(k,122) + rxt(k,419)*y(k,143) + (rxt(k,120) & - +rxt(k,121))*y(k,144) + rxt(k,426)*y(k,148) + rxt(k,430) & + mat(k,568) = rxt(k,156)*y(k,97) + rxt(k,157)*y(k,98) + rxt(k,181)*y(k,107) & + + rxt(k,423)*y(k,147) + mat(k,1507) = mat(k,1507) + rxt(k,156)*y(k,89) + rxt(k,154)*y(k,140) + mat(k,1006) = mat(k,1006) + rxt(k,157)*y(k,89) + mat(k,919) = mat(k,919) + rxt(k,181)*y(k,89) + rxt(k,373)*y(k,120) & + + rxt(k,380)*y(k,122) + rxt(k,422)*y(k,143) + (rxt(k,120) & + +rxt(k,121))*y(k,144) + rxt(k,429)*y(k,148) + rxt(k,433) & *y(k,149) - mat(k,1135) = mat(k,1135) + .765_r8*rxt(k,364)*y(k,133) + 2.000_r8*rxt(k,123) & + mat(k,1135) = mat(k,1135) + .765_r8*rxt(k,367)*y(k,133) + 2.000_r8*rxt(k,123) & *y(k,144) mat(k,1414) = mat(k,1414) + 2.000_r8*rxt(k,149)*y(k,111) - mat(k,363) = rxt(k,370)*y(k,107) - mat(k,851) = rxt(k,377)*y(k,107) - mat(k,352) = .765_r8*rxt(k,364)*y(k,108) - mat(k,533) = rxt(k,411)*y(k,142) + 1.150_r8*rxt(k,412)*y(k,147) + mat(k,363) = rxt(k,373)*y(k,107) + mat(k,851) = rxt(k,380)*y(k,107) + mat(k,352) = .765_r8*rxt(k,367)*y(k,108) + mat(k,533) = rxt(k,414)*y(k,142) + 1.150_r8*rxt(k,415)*y(k,147) mat(k,1089) = mat(k,1089) + rxt(k,139)*y(k,62) - mat(k,545) = rxt(k,425)*y(k,148) - mat(k,374) = rxt(k,411)*y(k,138) - mat(k,449) = mat(k,449) + rxt(k,419)*y(k,107) + mat(k,545) = rxt(k,154)*y(k,97) + rxt(k,428)*y(k,148) + mat(k,374) = rxt(k,414)*y(k,138) + mat(k,449) = mat(k,449) + rxt(k,422)*y(k,107) mat(k,1287) = (rxt(k,120)+rxt(k,121))*y(k,107) + 2.000_r8*rxt(k,123)*y(k,108) - mat(k,517) = rxt(k,420)*y(k,89) + 1.150_r8*rxt(k,412)*y(k,138) - mat(k,509) = rxt(k,426)*y(k,107) + rxt(k,425)*y(k,140) - mat(k,265) = rxt(k,430)*y(k,107) + mat(k,517) = rxt(k,423)*y(k,89) + 1.150_r8*rxt(k,415)*y(k,138) + mat(k,509) = rxt(k,429)*y(k,107) + rxt(k,428)*y(k,140) + mat(k,265) = rxt(k,433)*y(k,107) end do end subroutine nlnmat05 subroutine nlnmat06( avec_len, mat, y, rxt ) @@ -1147,71 +1149,71 @@ subroutine nlnmat06( avec_len, mat, y, rxt ) !---------------------------------------------- do k = 1,avec_len mat(k,909) = -(rxt(k,120)*y(k,144) + rxt(k,126)*y(k,145) + rxt(k,134) & - *y(k,106) + rxt(k,140)*y(k,62) + rxt(k,154)*y(k,140) + rxt(k,159) & - *y(k,89) + rxt(k,294)*y(k,56) + rxt(k,370)*y(k,120) + rxt(k,377) & - *y(k,122) + rxt(k,414)*y(k,141) + (rxt(k,418) + rxt(k,419) & - ) * y(k,143) + rxt(k,426)*y(k,148) + rxt(k,430)*y(k,149)) + *y(k,106) + rxt(k,140)*y(k,62) + rxt(k,179)*y(k,140) + rxt(k,181) & + *y(k,89) + rxt(k,297)*y(k,56) + rxt(k,373)*y(k,120) + rxt(k,380) & + *y(k,122) + rxt(k,417)*y(k,141) + (rxt(k,421) + rxt(k,422) & + ) * y(k,143) + rxt(k,429)*y(k,148) + rxt(k,433)*y(k,149)) mat(k,1274) = -rxt(k,120)*y(k,107) mat(k,94) = -rxt(k,126)*y(k,107) mat(k,1446) = -rxt(k,134)*y(k,107) mat(k,1540) = -rxt(k,140)*y(k,107) - mat(k,543) = -rxt(k,154)*y(k,107) - mat(k,564) = -rxt(k,159)*y(k,107) - mat(k,229) = -rxt(k,294)*y(k,107) - mat(k,360) = -rxt(k,370)*y(k,107) - mat(k,843) = -rxt(k,377)*y(k,107) - mat(k,341) = -rxt(k,414)*y(k,107) - mat(k,448) = -(rxt(k,418) + rxt(k,419)) * y(k,107) - mat(k,508) = -rxt(k,426)*y(k,107) - mat(k,264) = -rxt(k,430)*y(k,107) - mat(k,877) = rxt(k,217)*y(k,108) + rxt(k,216)*y(k,139) - mat(k,931) = 2.000_r8*rxt(k,218)*y(k,6) + (rxt(k,220)+rxt(k,221))*y(k,45) & - + rxt(k,226)*y(k,106) + rxt(k,222)*y(k,139) - mat(k,426) = rxt(k,277)*y(k,139) - mat(k,464) = rxt(k,304)*y(k,139) - mat(k,1186) = rxt(k,264)*y(k,139) - mat(k,1312) = rxt(k,185)*y(k,108) + rxt(k,183)*y(k,139) - mat(k,957) = (rxt(k,220)+rxt(k,221))*y(k,6) + (2.000_r8*rxt(k,187) & - +2.000_r8*rxt(k,188))*y(k,45) + rxt(k,196)*y(k,106) & - + rxt(k,198)*y(k,111) + rxt(k,190)*y(k,139) + mat(k,543) = -rxt(k,179)*y(k,107) + mat(k,564) = -rxt(k,181)*y(k,107) + mat(k,229) = -rxt(k,297)*y(k,107) + mat(k,360) = -rxt(k,373)*y(k,107) + mat(k,843) = -rxt(k,380)*y(k,107) + mat(k,341) = -rxt(k,417)*y(k,107) + mat(k,448) = -(rxt(k,421) + rxt(k,422)) * y(k,107) + mat(k,508) = -rxt(k,429)*y(k,107) + mat(k,264) = -rxt(k,433)*y(k,107) + mat(k,877) = rxt(k,220)*y(k,108) + rxt(k,219)*y(k,139) + mat(k,931) = 2.000_r8*rxt(k,221)*y(k,6) + (rxt(k,223)+rxt(k,224))*y(k,45) & + + rxt(k,229)*y(k,106) + rxt(k,225)*y(k,139) + mat(k,426) = rxt(k,280)*y(k,139) + mat(k,464) = rxt(k,307)*y(k,139) + mat(k,1186) = rxt(k,267)*y(k,139) + mat(k,1312) = rxt(k,188)*y(k,108) + rxt(k,186)*y(k,139) + mat(k,957) = (rxt(k,223)+rxt(k,224))*y(k,6) + (2.000_r8*rxt(k,190) & + +2.000_r8*rxt(k,191))*y(k,45) + rxt(k,199)*y(k,106) & + + rxt(k,201)*y(k,111) + rxt(k,193)*y(k,139) mat(k,1540) = mat(k,1540) + rxt(k,143)*y(k,108) + rxt(k,137)*y(k,139) - mat(k,233) = rxt(k,152)*y(k,111) - mat(k,564) = mat(k,564) + rxt(k,158)*y(k,98) + mat(k,233) = rxt(k,153)*y(k,111) + mat(k,564) = mat(k,564) + rxt(k,159)*y(k,98) mat(k,123) = rxt(k,172)*y(k,144) - mat(k,1494) = rxt(k,169)*y(k,108) + rxt(k,422)*y(k,147) - mat(k,993) = rxt(k,158)*y(k,89) + rxt(k,160)*y(k,106) + rxt(k,161)*y(k,108) + mat(k,1494) = rxt(k,169)*y(k,108) + rxt(k,425)*y(k,147) + mat(k,993) = rxt(k,159)*y(k,89) + rxt(k,160)*y(k,106) + rxt(k,161)*y(k,108) mat(k,1232) = rxt(k,165)*y(k,106) + rxt(k,163)*y(k,139) - mat(k,1446) = mat(k,1446) + rxt(k,226)*y(k,6) + rxt(k,196)*y(k,45) & + mat(k,1446) = mat(k,1446) + rxt(k,229)*y(k,6) + rxt(k,199)*y(k,45) & + rxt(k,160)*y(k,98) + rxt(k,165)*y(k,99) + 2.000_r8*rxt(k,133) & *y(k,106) + 2.000_r8*rxt(k,132)*y(k,108) + rxt(k,147)*y(k,111) & + rxt(k,141)*y(k,139) + rxt(k,125)*y(k,145) mat(k,909) = mat(k,909) + 2.000_r8*rxt(k,126)*y(k,145) - mat(k,1122) = rxt(k,217)*y(k,4) + rxt(k,185)*y(k,42) + rxt(k,143)*y(k,62) & + mat(k,1122) = rxt(k,220)*y(k,4) + rxt(k,188)*y(k,42) + rxt(k,143)*y(k,62) & + rxt(k,169)*y(k,97) + rxt(k,161)*y(k,98) + 2.000_r8*rxt(k,132) & - *y(k,106) + rxt(k,148)*y(k,111) + rxt(k,372)*y(k,120) & - + rxt(k,378)*y(k,122) + 2.000_r8*rxt(k,142)*y(k,139) + ( & + *y(k,106) + rxt(k,148)*y(k,111) + rxt(k,375)*y(k,120) & + + rxt(k,381)*y(k,122) + 2.000_r8*rxt(k,142)*y(k,139) + ( & + 2.000_r8*rxt(k,122)+rxt(k,123))*y(k,144) - mat(k,1401) = rxt(k,198)*y(k,45) + rxt(k,152)*y(k,74) + rxt(k,147)*y(k,106) & + mat(k,1401) = rxt(k,201)*y(k,45) + rxt(k,153)*y(k,74) + rxt(k,147)*y(k,106) & + rxt(k,148)*y(k,108) + rxt(k,146)*y(k,139) - mat(k,404) = rxt(k,312)*y(k,139) - mat(k,360) = mat(k,360) + rxt(k,372)*y(k,108) - mat(k,843) = mat(k,843) + rxt(k,378)*y(k,108) - mat(k,1076) = rxt(k,216)*y(k,4) + rxt(k,222)*y(k,6) + rxt(k,277)*y(k,10) & - + rxt(k,304)*y(k,15) + rxt(k,264)*y(k,37) + rxt(k,183)*y(k,42) & - + rxt(k,190)*y(k,45) + rxt(k,137)*y(k,62) + rxt(k,163)*y(k,99) & + mat(k,404) = rxt(k,315)*y(k,139) + mat(k,360) = mat(k,360) + rxt(k,375)*y(k,108) + mat(k,843) = mat(k,843) + rxt(k,381)*y(k,108) + mat(k,1076) = rxt(k,219)*y(k,4) + rxt(k,225)*y(k,6) + rxt(k,280)*y(k,10) & + + rxt(k,307)*y(k,15) + rxt(k,267)*y(k,37) + rxt(k,186)*y(k,42) & + + rxt(k,193)*y(k,45) + rxt(k,137)*y(k,62) + rxt(k,163)*y(k,99) & + rxt(k,141)*y(k,106) + 2.000_r8*rxt(k,142)*y(k,108) & - + rxt(k,146)*y(k,111) + rxt(k,312)*y(k,114) & + + rxt(k,146)*y(k,111) + rxt(k,315)*y(k,114) & + 2.000_r8*rxt(k,151)*y(k,139) mat(k,1274) = mat(k,1274) + rxt(k,172)*y(k,90) + (2.000_r8*rxt(k,122) & +rxt(k,123))*y(k,108) mat(k,94) = mat(k,94) + rxt(k,125)*y(k,106) + 2.000_r8*rxt(k,126)*y(k,107) - mat(k,515) = rxt(k,422)*y(k,97) + mat(k,515) = rxt(k,425)*y(k,97) mat(k,1128) = -((rxt(k,122) + rxt(k,123)) * y(k,144) + rxt(k,132)*y(k,106) & + rxt(k,142)*y(k,139) + rxt(k,143)*y(k,62) + rxt(k,148)*y(k,111) & - + rxt(k,161)*y(k,98) + rxt(k,169)*y(k,97) + rxt(k,185)*y(k,42) & - + rxt(k,217)*y(k,4) + rxt(k,274)*y(k,9) + rxt(k,302)*y(k,14) & - + rxt(k,327)*y(k,83) + rxt(k,337)*y(k,88) + rxt(k,352)*y(k,79) & - + rxt(k,364)*y(k,133) + rxt(k,372)*y(k,120) + rxt(k,378) & + + rxt(k,161)*y(k,98) + rxt(k,169)*y(k,97) + rxt(k,188)*y(k,42) & + + rxt(k,220)*y(k,4) + rxt(k,277)*y(k,9) + rxt(k,305)*y(k,14) & + + rxt(k,330)*y(k,83) + rxt(k,340)*y(k,88) + rxt(k,355)*y(k,79) & + + rxt(k,367)*y(k,133) + rxt(k,375)*y(k,120) + rxt(k,381) & *y(k,122)) mat(k,1280) = -(rxt(k,122) + rxt(k,123)) * y(k,108) mat(k,1452) = -rxt(k,132)*y(k,108) @@ -1220,164 +1222,164 @@ subroutine nlnmat06( avec_len, mat, y, rxt ) mat(k,1407) = -rxt(k,148)*y(k,108) mat(k,999) = -rxt(k,161)*y(k,108) mat(k,1500) = -rxt(k,169)*y(k,108) - mat(k,1318) = -rxt(k,185)*y(k,108) - mat(k,882) = -rxt(k,217)*y(k,108) - mat(k,244) = -rxt(k,274)*y(k,108) - mat(k,633) = -rxt(k,302)*y(k,108) - mat(k,662) = -rxt(k,327)*y(k,108) - mat(k,752) = -rxt(k,337)*y(k,108) - mat(k,484) = -rxt(k,352)*y(k,108) - mat(k,349) = -rxt(k,364)*y(k,108) - mat(k,361) = -rxt(k,372)*y(k,108) - mat(k,848) = -rxt(k,378)*y(k,108) - mat(k,799) = .150_r8*rxt(k,287)*y(k,139) - mat(k,771) = .150_r8*rxt(k,332)*y(k,139) + mat(k,1318) = -rxt(k,188)*y(k,108) + mat(k,882) = -rxt(k,220)*y(k,108) + mat(k,244) = -rxt(k,277)*y(k,108) + mat(k,633) = -rxt(k,305)*y(k,108) + mat(k,662) = -rxt(k,330)*y(k,108) + mat(k,752) = -rxt(k,340)*y(k,108) + mat(k,484) = -rxt(k,355)*y(k,108) + mat(k,349) = -rxt(k,367)*y(k,108) + mat(k,361) = -rxt(k,375)*y(k,108) + mat(k,848) = -rxt(k,381)*y(k,108) + mat(k,799) = .150_r8*rxt(k,290)*y(k,139) + mat(k,771) = .150_r8*rxt(k,335)*y(k,139) mat(k,1452) = mat(k,1452) + rxt(k,134)*y(k,107) mat(k,915) = rxt(k,134)*y(k,106) - mat(k,1082) = mat(k,1082) + .150_r8*rxt(k,287)*y(k,32) + .150_r8*rxt(k,332) & + mat(k,1082) = mat(k,1082) + .150_r8*rxt(k,290)*y(k,32) + .150_r8*rxt(k,335) & *y(k,86) - mat(k,173) = -(rxt(k,379)*y(k,122)) - mat(k,838) = -rxt(k,379)*y(k,109) - mat(k,924) = rxt(k,219)*y(k,45) - mat(k,950) = rxt(k,219)*y(k,6) + 2.000_r8*rxt(k,189)*y(k,45) - mat(k,181) = -(rxt(k,368)*y(k,106) + rxt(k,369)*y(k,111)) - mat(k,1421) = -rxt(k,368)*y(k,110) - mat(k,1347) = -rxt(k,369)*y(k,110) + mat(k,173) = -(rxt(k,382)*y(k,122)) + mat(k,838) = -rxt(k,382)*y(k,109) + mat(k,924) = rxt(k,222)*y(k,45) + mat(k,950) = rxt(k,222)*y(k,6) + 2.000_r8*rxt(k,192)*y(k,45) + mat(k,181) = -(rxt(k,371)*y(k,106) + rxt(k,372)*y(k,111)) + mat(k,1421) = -rxt(k,371)*y(k,110) + mat(k,1347) = -rxt(k,372)*y(k,110) mat(k,1413) = -(rxt(k,144)*y(k,63) + rxt(k,145)*y(k,65) + rxt(k,146)*y(k,139) & + rxt(k,147)*y(k,106) + rxt(k,148)*y(k,108) + (4._r8*rxt(k,149) & - + 4._r8*rxt(k,150)) * y(k,111) + rxt(k,152)*y(k,74) + rxt(k,166) & + + 4._r8*rxt(k,150)) * y(k,111) + rxt(k,153)*y(k,74) + rxt(k,166) & *y(k,99) + rxt(k,167)*y(k,89) + rxt(k,175)*y(k,98) + rxt(k,176) & - *y(k,73) + rxt(k,195)*y(k,46) + (rxt(k,197) + rxt(k,198) & - ) * y(k,45) + rxt(k,200)*y(k,71) + rxt(k,203)*y(k,76) + rxt(k,227) & - *y(k,6) + rxt(k,229)*y(k,67) + rxt(k,243)*y(k,26) + rxt(k,245) & - *y(k,28) + rxt(k,246)*y(k,29) + rxt(k,248)*y(k,31) + rxt(k,250) & - *y(k,41) + rxt(k,251)*y(k,68) + rxt(k,252)*y(k,69) + rxt(k,253) & - *y(k,70) + rxt(k,261)*y(k,27) + rxt(k,266)*y(k,38) + rxt(k,267) & - *y(k,39) + rxt(k,268)*y(k,40) + rxt(k,272)*y(k,48) + rxt(k,279) & - *y(k,11) + rxt(k,280)*y(k,12) + rxt(k,282)*y(k,13) + rxt(k,284) & - *y(k,30) + rxt(k,289)*y(k,35) + rxt(k,290)*y(k,36) + rxt(k,295) & - *y(k,60) + rxt(k,296)*y(k,61) + rxt(k,297)*y(k,113) + rxt(k,298) & - *y(k,9) + rxt(k,306)*y(k,16) + rxt(k,307)*y(k,17) + rxt(k,309) & - *y(k,34) + rxt(k,310)*y(k,77) + rxt(k,311)*y(k,100) + rxt(k,314) & - *y(k,117) + rxt(k,318)*y(k,119) + rxt(k,319)*y(k,14) + rxt(k,320) & - *y(k,33) + rxt(k,328)*y(k,83) + rxt(k,329)*y(k,85) + rxt(k,336) & - *y(k,87) + rxt(k,338)*y(k,88) + rxt(k,341)*y(k,3) + rxt(k,342) & - *y(k,78) + rxt(k,353)*y(k,79) + rxt(k,354)*y(k,82) + rxt(k,356) & - *y(k,112) + rxt(k,362)*y(k,135) + rxt(k,365)*y(k,133) + (rxt(k,367) & - + rxt(k,381)) * y(k,52) + rxt(k,369)*y(k,110) + rxt(k,371) & - *y(k,123) + rxt(k,375)*y(k,120) + rxt(k,380)*y(k,122) + rxt(k,383) & + *y(k,73) + rxt(k,198)*y(k,46) + (rxt(k,200) + rxt(k,201) & + ) * y(k,45) + rxt(k,203)*y(k,71) + rxt(k,206)*y(k,76) + rxt(k,230) & + *y(k,6) + rxt(k,232)*y(k,67) + rxt(k,246)*y(k,26) + rxt(k,248) & + *y(k,28) + rxt(k,249)*y(k,29) + rxt(k,251)*y(k,31) + rxt(k,253) & + *y(k,41) + rxt(k,254)*y(k,68) + rxt(k,255)*y(k,69) + rxt(k,256) & + *y(k,70) + rxt(k,264)*y(k,27) + rxt(k,269)*y(k,38) + rxt(k,270) & + *y(k,39) + rxt(k,271)*y(k,40) + rxt(k,275)*y(k,48) + rxt(k,282) & + *y(k,11) + rxt(k,283)*y(k,12) + rxt(k,285)*y(k,13) + rxt(k,287) & + *y(k,30) + rxt(k,292)*y(k,35) + rxt(k,293)*y(k,36) + rxt(k,298) & + *y(k,60) + rxt(k,299)*y(k,61) + rxt(k,300)*y(k,113) + rxt(k,301) & + *y(k,9) + rxt(k,309)*y(k,16) + rxt(k,310)*y(k,17) + rxt(k,312) & + *y(k,34) + rxt(k,313)*y(k,77) + rxt(k,314)*y(k,100) + rxt(k,317) & + *y(k,117) + rxt(k,321)*y(k,119) + rxt(k,322)*y(k,14) + rxt(k,323) & + *y(k,33) + rxt(k,331)*y(k,83) + rxt(k,332)*y(k,85) + rxt(k,339) & + *y(k,87) + rxt(k,341)*y(k,88) + rxt(k,344)*y(k,3) + rxt(k,345) & + *y(k,78) + rxt(k,356)*y(k,79) + rxt(k,357)*y(k,82) + rxt(k,359) & + *y(k,112) + rxt(k,365)*y(k,135) + rxt(k,368)*y(k,133) + (rxt(k,370) & + + rxt(k,384)) * y(k,52) + rxt(k,372)*y(k,110) + rxt(k,374) & + *y(k,123) + rxt(k,378)*y(k,120) + rxt(k,383)*y(k,122) + rxt(k,386) & *y(k,95)) mat(k,833) = -rxt(k,144)*y(k,111) mat(k,315) = -rxt(k,145)*y(k,111) mat(k,1088) = -rxt(k,146)*y(k,111) mat(k,1458) = -rxt(k,147)*y(k,111) mat(k,1134) = -rxt(k,148)*y(k,111) - mat(k,237) = -rxt(k,152)*y(k,111) + mat(k,237) = -rxt(k,153)*y(k,111) mat(k,1244) = -rxt(k,166)*y(k,111) mat(k,567) = -rxt(k,167)*y(k,111) mat(k,1005) = -rxt(k,175)*y(k,111) mat(k,1157) = -rxt(k,176)*y(k,111) - mat(k,580) = -rxt(k,195)*y(k,111) - mat(k,969) = -(rxt(k,197) + rxt(k,198)) * y(k,111) - mat(k,869) = -rxt(k,200)*y(k,111) - mat(k,455) = -rxt(k,203)*y(k,111) - mat(k,942) = -rxt(k,227)*y(k,111) - mat(k,437) = -rxt(k,229)*y(k,111) - mat(k,251) = -rxt(k,243)*y(k,111) - mat(k,332) = -rxt(k,245)*y(k,111) - mat(k,47) = -rxt(k,246)*y(k,111) - mat(k,195) = -rxt(k,248)*y(k,111) - mat(k,226) = -rxt(k,250)*y(k,111) - mat(k,111) = -rxt(k,251)*y(k,111) - mat(k,121) = -rxt(k,252)*y(k,111) - mat(k,146) = -rxt(k,253)*y(k,111) - mat(k,1029) = -rxt(k,261)*y(k,111) - mat(k,285) = -rxt(k,266)*y(k,111) - mat(k,212) = -rxt(k,267)*y(k,111) - mat(k,1531) = -rxt(k,268)*y(k,111) - mat(k,652) = -rxt(k,272)*y(k,111) - mat(k,129) = -rxt(k,279)*y(k,111) - mat(k,172) = -rxt(k,280)*y(k,111) - mat(k,161) = -rxt(k,282)*y(k,111) - mat(k,647) = -rxt(k,284)*y(k,111) - mat(k,356) = -rxt(k,289)*y(k,111) - mat(k,323) = -rxt(k,290)*y(k,111) - mat(k,612) = -rxt(k,295)*y(k,111) - mat(k,369) = -rxt(k,296)*y(k,111) - mat(k,281) = -rxt(k,297)*y(k,111) - mat(k,245) = -rxt(k,298)*y(k,111) - mat(k,207) = -rxt(k,306)*y(k,111) - mat(k,51) = -rxt(k,307)*y(k,111) - mat(k,689) = -rxt(k,309)*y(k,111) - mat(k,618) = -rxt(k,310)*y(k,111) - mat(k,202) = -rxt(k,311)*y(k,111) - mat(k,292) = -rxt(k,314)*y(k,111) - mat(k,219) = -rxt(k,318)*y(k,111) - mat(k,636) = -rxt(k,319)*y(k,111) - mat(k,398) = -rxt(k,320)*y(k,111) - mat(k,663) = -rxt(k,328)*y(k,111) - mat(k,167) = -rxt(k,329)*y(k,111) - mat(k,310) = -rxt(k,336)*y(k,111) - mat(k,756) = -rxt(k,338)*y(k,111) - mat(k,34) = -rxt(k,341)*y(k,111) - mat(k,180) = -rxt(k,342)*y(k,111) - mat(k,487) = -rxt(k,353)*y(k,111) - mat(k,273) = -rxt(k,354)*y(k,111) - mat(k,592) = -rxt(k,356)*y(k,111) - mat(k,100) = -rxt(k,362)*y(k,111) - mat(k,351) = -rxt(k,365)*y(k,111) - mat(k,140) = -(rxt(k,367) + rxt(k,381)) * y(k,111) - mat(k,186) = -rxt(k,369)*y(k,111) - mat(k,551) = -rxt(k,371)*y(k,111) - mat(k,362) = -rxt(k,375)*y(k,111) - mat(k,850) = -rxt(k,380)*y(k,111) - mat(k,36) = -rxt(k,383)*y(k,111) - mat(k,245) = mat(k,245) + .130_r8*rxt(k,274)*y(k,108) - mat(k,172) = mat(k,172) + .500_r8*rxt(k,280)*y(k,111) - mat(k,636) = mat(k,636) + .360_r8*rxt(k,302)*y(k,108) - mat(k,1029) = mat(k,1029) + rxt(k,260)*y(k,106) - mat(k,803) = .450_r8*rxt(k,287)*y(k,139) - mat(k,212) = mat(k,212) + .300_r8*rxt(k,267)*y(k,111) - mat(k,1531) = mat(k,1531) + rxt(k,269)*y(k,144) - mat(k,1324) = rxt(k,184)*y(k,139) - mat(k,495) = rxt(k,238)*y(k,151) + mat(k,580) = -rxt(k,198)*y(k,111) + mat(k,969) = -(rxt(k,200) + rxt(k,201)) * y(k,111) + mat(k,869) = -rxt(k,203)*y(k,111) + mat(k,455) = -rxt(k,206)*y(k,111) + mat(k,942) = -rxt(k,230)*y(k,111) + mat(k,437) = -rxt(k,232)*y(k,111) + mat(k,251) = -rxt(k,246)*y(k,111) + mat(k,332) = -rxt(k,248)*y(k,111) + mat(k,47) = -rxt(k,249)*y(k,111) + mat(k,195) = -rxt(k,251)*y(k,111) + mat(k,226) = -rxt(k,253)*y(k,111) + mat(k,111) = -rxt(k,254)*y(k,111) + mat(k,121) = -rxt(k,255)*y(k,111) + mat(k,146) = -rxt(k,256)*y(k,111) + mat(k,1029) = -rxt(k,264)*y(k,111) + mat(k,285) = -rxt(k,269)*y(k,111) + mat(k,212) = -rxt(k,270)*y(k,111) + mat(k,1531) = -rxt(k,271)*y(k,111) + mat(k,652) = -rxt(k,275)*y(k,111) + mat(k,129) = -rxt(k,282)*y(k,111) + mat(k,172) = -rxt(k,283)*y(k,111) + mat(k,161) = -rxt(k,285)*y(k,111) + mat(k,647) = -rxt(k,287)*y(k,111) + mat(k,356) = -rxt(k,292)*y(k,111) + mat(k,323) = -rxt(k,293)*y(k,111) + mat(k,612) = -rxt(k,298)*y(k,111) + mat(k,369) = -rxt(k,299)*y(k,111) + mat(k,281) = -rxt(k,300)*y(k,111) + mat(k,245) = -rxt(k,301)*y(k,111) + mat(k,207) = -rxt(k,309)*y(k,111) + mat(k,51) = -rxt(k,310)*y(k,111) + mat(k,689) = -rxt(k,312)*y(k,111) + mat(k,618) = -rxt(k,313)*y(k,111) + mat(k,202) = -rxt(k,314)*y(k,111) + mat(k,292) = -rxt(k,317)*y(k,111) + mat(k,219) = -rxt(k,321)*y(k,111) + mat(k,636) = -rxt(k,322)*y(k,111) + mat(k,398) = -rxt(k,323)*y(k,111) + mat(k,663) = -rxt(k,331)*y(k,111) + mat(k,167) = -rxt(k,332)*y(k,111) + mat(k,310) = -rxt(k,339)*y(k,111) + mat(k,756) = -rxt(k,341)*y(k,111) + mat(k,34) = -rxt(k,344)*y(k,111) + mat(k,180) = -rxt(k,345)*y(k,111) + mat(k,487) = -rxt(k,356)*y(k,111) + mat(k,273) = -rxt(k,357)*y(k,111) + mat(k,592) = -rxt(k,359)*y(k,111) + mat(k,100) = -rxt(k,365)*y(k,111) + mat(k,351) = -rxt(k,368)*y(k,111) + mat(k,140) = -(rxt(k,370) + rxt(k,384)) * y(k,111) + mat(k,186) = -rxt(k,372)*y(k,111) + mat(k,551) = -rxt(k,374)*y(k,111) + mat(k,362) = -rxt(k,378)*y(k,111) + mat(k,850) = -rxt(k,383)*y(k,111) + mat(k,36) = -rxt(k,386)*y(k,111) + mat(k,245) = mat(k,245) + .130_r8*rxt(k,277)*y(k,108) + mat(k,172) = mat(k,172) + .500_r8*rxt(k,283)*y(k,111) + mat(k,636) = mat(k,636) + .360_r8*rxt(k,305)*y(k,108) + mat(k,1029) = mat(k,1029) + rxt(k,263)*y(k,106) + mat(k,803) = .450_r8*rxt(k,290)*y(k,139) + mat(k,212) = mat(k,212) + .300_r8*rxt(k,270)*y(k,111) + mat(k,1531) = mat(k,1531) + rxt(k,272)*y(k,144) + mat(k,1324) = rxt(k,187)*y(k,139) + mat(k,495) = rxt(k,241)*y(k,151) mat(k,1552) = rxt(k,143)*y(k,108) + 2.000_r8*rxt(k,138)*y(k,139) mat(k,833) = mat(k,833) + rxt(k,135)*y(k,106) + rxt(k,117)*y(k,144) mat(k,315) = mat(k,315) + rxt(k,136)*y(k,106) - mat(k,437) = mat(k,437) + rxt(k,228)*y(k,106) + rxt(k,234)*y(k,144) - mat(k,869) = mat(k,869) + rxt(k,199)*y(k,106) + rxt(k,211)*y(k,144) - mat(k,391) = rxt(k,230)*y(k,106) - mat(k,455) = mat(k,455) + rxt(k,202)*y(k,106) - mat(k,487) = mat(k,487) + .320_r8*rxt(k,352)*y(k,108) - mat(k,419) = .206_r8*rxt(k,344)*y(k,139) - mat(k,663) = mat(k,663) + .240_r8*rxt(k,327)*y(k,108) - mat(k,167) = mat(k,167) + .100_r8*rxt(k,329)*y(k,111) - mat(k,775) = .450_r8*rxt(k,332)*y(k,139) - mat(k,756) = mat(k,756) + .360_r8*rxt(k,337)*y(k,108) + mat(k,437) = mat(k,437) + rxt(k,231)*y(k,106) + rxt(k,237)*y(k,144) + mat(k,869) = mat(k,869) + rxt(k,202)*y(k,106) + rxt(k,214)*y(k,144) + mat(k,391) = rxt(k,233)*y(k,106) + mat(k,455) = mat(k,455) + rxt(k,205)*y(k,106) + mat(k,487) = mat(k,487) + .320_r8*rxt(k,355)*y(k,108) + mat(k,419) = .206_r8*rxt(k,347)*y(k,139) + mat(k,663) = mat(k,663) + .240_r8*rxt(k,330)*y(k,108) + mat(k,167) = mat(k,167) + .100_r8*rxt(k,332)*y(k,111) + mat(k,775) = .450_r8*rxt(k,335)*y(k,139) + mat(k,756) = mat(k,756) + .360_r8*rxt(k,340)*y(k,108) mat(k,1506) = rxt(k,168)*y(k,139) mat(k,1244) = mat(k,1244) + rxt(k,163)*y(k,139) - mat(k,1458) = mat(k,1458) + rxt(k,260)*y(k,27) + rxt(k,135)*y(k,63) & - + rxt(k,136)*y(k,65) + rxt(k,228)*y(k,67) + rxt(k,199)*y(k,71) & - + rxt(k,230)*y(k,75) + rxt(k,202)*y(k,76) + rxt(k,141)*y(k,139) - mat(k,1134) = mat(k,1134) + .130_r8*rxt(k,274)*y(k,9) + .360_r8*rxt(k,302) & - *y(k,14) + rxt(k,143)*y(k,62) + .320_r8*rxt(k,352)*y(k,79) & - + .240_r8*rxt(k,327)*y(k,83) + .360_r8*rxt(k,337)*y(k,88) & - + 1.156_r8*rxt(k,364)*y(k,133) + rxt(k,142)*y(k,139) - mat(k,1413) = mat(k,1413) + .500_r8*rxt(k,280)*y(k,12) + .300_r8*rxt(k,267) & - *y(k,39) + .100_r8*rxt(k,329)*y(k,85) + .500_r8*rxt(k,314) & - *y(k,117) + .500_r8*rxt(k,362)*y(k,135) - mat(k,292) = mat(k,292) + .500_r8*rxt(k,314)*y(k,111) - mat(k,603) = .150_r8*rxt(k,316)*y(k,139) - mat(k,351) = mat(k,351) + 1.156_r8*rxt(k,364)*y(k,108) - mat(k,100) = mat(k,100) + .500_r8*rxt(k,362)*y(k,111) - mat(k,1088) = mat(k,1088) + .450_r8*rxt(k,287)*y(k,32) + rxt(k,184)*y(k,42) & - + 2.000_r8*rxt(k,138)*y(k,62) + .206_r8*rxt(k,344)*y(k,80) & - + .450_r8*rxt(k,332)*y(k,86) + rxt(k,168)*y(k,97) + rxt(k,163) & + mat(k,1458) = mat(k,1458) + rxt(k,263)*y(k,27) + rxt(k,135)*y(k,63) & + + rxt(k,136)*y(k,65) + rxt(k,231)*y(k,67) + rxt(k,202)*y(k,71) & + + rxt(k,233)*y(k,75) + rxt(k,205)*y(k,76) + rxt(k,141)*y(k,139) + mat(k,1134) = mat(k,1134) + .130_r8*rxt(k,277)*y(k,9) + .360_r8*rxt(k,305) & + *y(k,14) + rxt(k,143)*y(k,62) + .320_r8*rxt(k,355)*y(k,79) & + + .240_r8*rxt(k,330)*y(k,83) + .360_r8*rxt(k,340)*y(k,88) & + + 1.156_r8*rxt(k,367)*y(k,133) + rxt(k,142)*y(k,139) + mat(k,1413) = mat(k,1413) + .500_r8*rxt(k,283)*y(k,12) + .300_r8*rxt(k,270) & + *y(k,39) + .100_r8*rxt(k,332)*y(k,85) + .500_r8*rxt(k,317) & + *y(k,117) + .500_r8*rxt(k,365)*y(k,135) + mat(k,292) = mat(k,292) + .500_r8*rxt(k,317)*y(k,111) + mat(k,603) = .150_r8*rxt(k,319)*y(k,139) + mat(k,351) = mat(k,351) + 1.156_r8*rxt(k,367)*y(k,108) + mat(k,100) = mat(k,100) + .500_r8*rxt(k,365)*y(k,111) + mat(k,1088) = mat(k,1088) + .450_r8*rxt(k,290)*y(k,32) + rxt(k,187)*y(k,42) & + + 2.000_r8*rxt(k,138)*y(k,62) + .206_r8*rxt(k,347)*y(k,80) & + + .450_r8*rxt(k,335)*y(k,86) + rxt(k,168)*y(k,97) + rxt(k,163) & *y(k,99) + rxt(k,141)*y(k,106) + rxt(k,142)*y(k,108) & - + .150_r8*rxt(k,316)*y(k,118) - mat(k,1286) = rxt(k,269)*y(k,40) + rxt(k,117)*y(k,63) + rxt(k,234)*y(k,67) & - + rxt(k,211)*y(k,71) + 2.000_r8*rxt(k,118)*y(k,151) - mat(k,1579) = rxt(k,238)*y(k,59) + 2.000_r8*rxt(k,118)*y(k,144) + + .150_r8*rxt(k,319)*y(k,118) + mat(k,1286) = rxt(k,272)*y(k,40) + rxt(k,117)*y(k,63) + rxt(k,237)*y(k,67) & + + rxt(k,214)*y(k,71) + 2.000_r8*rxt(k,118)*y(k,151) + mat(k,1579) = rxt(k,241)*y(k,59) + 2.000_r8*rxt(k,118)*y(k,144) end do end subroutine nlnmat06 subroutine nlnmat07( avec_len, mat, y, rxt ) @@ -1398,117 +1400,117 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,584) = -(rxt(k,355)*y(k,99) + rxt(k,356)*y(k,111)) - mat(k,1214) = -rxt(k,355)*y(k,112) - mat(k,1381) = -rxt(k,356)*y(k,112) - mat(k,412) = .794_r8*rxt(k,345)*y(k,97) + .794_r8*rxt(k,346)*y(k,99) & - + .794_r8*rxt(k,344)*y(k,139) - mat(k,695) = .080_r8*rxt(k,350)*y(k,97) - mat(k,720) = .800_r8*rxt(k,326)*y(k,97) - mat(k,1478) = .794_r8*rxt(k,345)*y(k,80) + .080_r8*rxt(k,350)*y(k,81) & - + .800_r8*rxt(k,326)*y(k,84) - mat(k,1214) = mat(k,1214) + .794_r8*rxt(k,346)*y(k,80) - mat(k,1058) = .794_r8*rxt(k,344)*y(k,80) - mat(k,274) = -(rxt(k,297)*y(k,111)) - mat(k,1358) = -rxt(k,297)*y(k,113) - mat(k,779) = rxt(k,299)*y(k,98) - mat(k,977) = rxt(k,299)*y(k,32) - mat(k,401) = -(rxt(k,312)*y(k,139) + rxt(k,313)*y(k,97)) - mat(k,1052) = -rxt(k,312)*y(k,114) - mat(k,1470) = -rxt(k,313)*y(k,114) - mat(k,621) = rxt(k,319)*y(k,111) - mat(k,1371) = rxt(k,319)*y(k,14) + .500_r8*rxt(k,314)*y(k,117) - mat(k,287) = .500_r8*rxt(k,314)*y(k,111) - mat(k,286) = -(rxt(k,314)*y(k,111)) - mat(k,1360) = -rxt(k,314)*y(k,117) - mat(k,400) = rxt(k,312)*y(k,139) - mat(k,1045) = rxt(k,312)*y(k,114) - mat(k,595) = -(rxt(k,315)*y(k,37) + rxt(k,316)*y(k,139) + rxt(k,317)*y(k,97)) - mat(k,1172) = -rxt(k,315)*y(k,118) - mat(k,1059) = -rxt(k,316)*y(k,118) - mat(k,1479) = -rxt(k,317)*y(k,118) - mat(k,395) = rxt(k,320)*y(k,111) - mat(k,1382) = rxt(k,320)*y(k,33) + rxt(k,318)*y(k,119) - mat(k,216) = rxt(k,318)*y(k,111) - mat(k,215) = -(rxt(k,318)*y(k,111)) - mat(k,1352) = -rxt(k,318)*y(k,119) - mat(k,593) = .850_r8*rxt(k,316)*y(k,139) - mat(k,1041) = .850_r8*rxt(k,316)*y(k,118) - mat(k,358) = -(rxt(k,370)*y(k,107) + rxt(k,372)*y(k,108) + rxt(k,375) & + mat(k,584) = -(rxt(k,358)*y(k,99) + rxt(k,359)*y(k,111)) + mat(k,1214) = -rxt(k,358)*y(k,112) + mat(k,1381) = -rxt(k,359)*y(k,112) + mat(k,412) = .794_r8*rxt(k,348)*y(k,97) + .794_r8*rxt(k,349)*y(k,99) & + + .794_r8*rxt(k,347)*y(k,139) + mat(k,695) = .080_r8*rxt(k,353)*y(k,97) + mat(k,720) = .800_r8*rxt(k,329)*y(k,97) + mat(k,1478) = .794_r8*rxt(k,348)*y(k,80) + .080_r8*rxt(k,353)*y(k,81) & + + .800_r8*rxt(k,329)*y(k,84) + mat(k,1214) = mat(k,1214) + .794_r8*rxt(k,349)*y(k,80) + mat(k,1058) = .794_r8*rxt(k,347)*y(k,80) + mat(k,274) = -(rxt(k,300)*y(k,111)) + mat(k,1358) = -rxt(k,300)*y(k,113) + mat(k,779) = rxt(k,302)*y(k,98) + mat(k,977) = rxt(k,302)*y(k,32) + mat(k,401) = -(rxt(k,315)*y(k,139) + rxt(k,316)*y(k,97)) + mat(k,1052) = -rxt(k,315)*y(k,114) + mat(k,1470) = -rxt(k,316)*y(k,114) + mat(k,621) = rxt(k,322)*y(k,111) + mat(k,1371) = rxt(k,322)*y(k,14) + .500_r8*rxt(k,317)*y(k,117) + mat(k,287) = .500_r8*rxt(k,317)*y(k,111) + mat(k,286) = -(rxt(k,317)*y(k,111)) + mat(k,1360) = -rxt(k,317)*y(k,117) + mat(k,400) = rxt(k,315)*y(k,139) + mat(k,1045) = rxt(k,315)*y(k,114) + mat(k,595) = -(rxt(k,318)*y(k,37) + rxt(k,319)*y(k,139) + rxt(k,320)*y(k,97)) + mat(k,1172) = -rxt(k,318)*y(k,118) + mat(k,1059) = -rxt(k,319)*y(k,118) + mat(k,1479) = -rxt(k,320)*y(k,118) + mat(k,395) = rxt(k,323)*y(k,111) + mat(k,1382) = rxt(k,323)*y(k,33) + rxt(k,321)*y(k,119) + mat(k,216) = rxt(k,321)*y(k,111) + mat(k,215) = -(rxt(k,321)*y(k,111)) + mat(k,1352) = -rxt(k,321)*y(k,119) + mat(k,593) = .850_r8*rxt(k,319)*y(k,139) + mat(k,1041) = .850_r8*rxt(k,319)*y(k,118) + mat(k,358) = -(rxt(k,373)*y(k,107) + rxt(k,375)*y(k,108) + rxt(k,378) & *y(k,111)) - mat(k,895) = -rxt(k,370)*y(k,120) - mat(k,1099) = -rxt(k,372)*y(k,120) - mat(k,1367) = -rxt(k,375)*y(k,120) - mat(k,841) = -(rxt(k,373)*y(k,6) + rxt(k,374)*y(k,45) + rxt(k,376)*y(k,98) & - + rxt(k,377)*y(k,107) + rxt(k,378)*y(k,108) + rxt(k,379) & - *y(k,109) + rxt(k,380)*y(k,111)) - mat(k,928) = -rxt(k,373)*y(k,122) - mat(k,954) = -rxt(k,374)*y(k,122) - mat(k,990) = -rxt(k,376)*y(k,122) - mat(k,907) = -rxt(k,377)*y(k,122) - mat(k,1120) = -rxt(k,378)*y(k,122) - mat(k,175) = -rxt(k,379)*y(k,122) - mat(k,1398) = -rxt(k,380)*y(k,122) - mat(k,1443) = rxt(k,368)*y(k,110) - mat(k,907) = mat(k,907) + rxt(k,370)*y(k,120) - mat(k,1120) = mat(k,1120) + rxt(k,372)*y(k,120) - mat(k,185) = rxt(k,368)*y(k,106) - mat(k,1398) = mat(k,1398) + rxt(k,375)*y(k,120) - mat(k,359) = rxt(k,370)*y(k,107) + rxt(k,372)*y(k,108) + rxt(k,375)*y(k,111) - mat(k,548) = -(rxt(k,371)*y(k,111)) - mat(k,1378) = -rxt(k,371)*y(k,123) - mat(k,927) = rxt(k,373)*y(k,122) - mat(k,952) = rxt(k,374)*y(k,122) - mat(k,136) = rxt(k,366)*y(k,99) + (rxt(k,367)+.500_r8*rxt(k,381))*y(k,111) - mat(k,981) = rxt(k,376)*y(k,122) - mat(k,1213) = rxt(k,366)*y(k,52) - mat(k,902) = rxt(k,377)*y(k,122) - mat(k,1103) = rxt(k,378)*y(k,122) - mat(k,174) = rxt(k,379)*y(k,122) - mat(k,183) = rxt(k,369)*y(k,111) - mat(k,1378) = mat(k,1378) + (rxt(k,367)+.500_r8*rxt(k,381))*y(k,52) & - + rxt(k,369)*y(k,110) + rxt(k,380)*y(k,122) - mat(k,840) = rxt(k,373)*y(k,6) + rxt(k,374)*y(k,45) + rxt(k,376)*y(k,98) & - + rxt(k,377)*y(k,107) + rxt(k,378)*y(k,108) + rxt(k,379) & - *y(k,109) + rxt(k,380)*y(k,111) - mat(k,131) = -(rxt(k,382)*y(k,151)) - mat(k,1559) = -rxt(k,382)*y(k,124) - mat(k,1340) = rxt(k,371)*y(k,123) - mat(k,547) = rxt(k,371)*y(k,111) - mat(k,343) = -(rxt(k,363)*y(k,99) + rxt(k,364)*y(k,108) + rxt(k,365)*y(k,111)) - mat(k,1208) = -rxt(k,363)*y(k,133) - mat(k,1097) = -rxt(k,364)*y(k,133) - mat(k,1365) = -rxt(k,365)*y(k,133) - mat(k,671) = -(rxt(k,357)*y(k,32) + rxt(k,358)*y(k,37) + rxt(k,359)*y(k,139) & - + rxt(k,360)*y(k,97) + rxt(k,361)*y(k,99)) - mat(k,787) = -rxt(k,357)*y(k,134) - mat(k,1178) = -rxt(k,358)*y(k,134) - mat(k,1065) = -rxt(k,359)*y(k,134) - mat(k,1485) = -rxt(k,360)*y(k,134) - mat(k,1222) = -rxt(k,361)*y(k,134) - mat(k,179) = rxt(k,342)*y(k,111) - mat(k,268) = .800_r8*rxt(k,354)*y(k,111) - mat(k,1389) = rxt(k,342)*y(k,78) + .800_r8*rxt(k,354)*y(k,82) & - + .500_r8*rxt(k,362)*y(k,135) - mat(k,99) = .500_r8*rxt(k,362)*y(k,111) - mat(k,98) = -(rxt(k,362)*y(k,111)) - mat(k,1334) = -rxt(k,362)*y(k,135) - mat(k,665) = rxt(k,359)*y(k,139) - mat(k,1036) = rxt(k,359)*y(k,134) - mat(k,526) = -(rxt(k,411)*y(k,142) + rxt(k,412)*y(k,147) + rxt(k,413) & + mat(k,895) = -rxt(k,373)*y(k,120) + mat(k,1099) = -rxt(k,375)*y(k,120) + mat(k,1367) = -rxt(k,378)*y(k,120) + mat(k,841) = -(rxt(k,376)*y(k,6) + rxt(k,377)*y(k,45) + rxt(k,379)*y(k,98) & + + rxt(k,380)*y(k,107) + rxt(k,381)*y(k,108) + rxt(k,382) & + *y(k,109) + rxt(k,383)*y(k,111)) + mat(k,928) = -rxt(k,376)*y(k,122) + mat(k,954) = -rxt(k,377)*y(k,122) + mat(k,990) = -rxt(k,379)*y(k,122) + mat(k,907) = -rxt(k,380)*y(k,122) + mat(k,1120) = -rxt(k,381)*y(k,122) + mat(k,175) = -rxt(k,382)*y(k,122) + mat(k,1398) = -rxt(k,383)*y(k,122) + mat(k,1443) = rxt(k,371)*y(k,110) + mat(k,907) = mat(k,907) + rxt(k,373)*y(k,120) + mat(k,1120) = mat(k,1120) + rxt(k,375)*y(k,120) + mat(k,185) = rxt(k,371)*y(k,106) + mat(k,1398) = mat(k,1398) + rxt(k,378)*y(k,120) + mat(k,359) = rxt(k,373)*y(k,107) + rxt(k,375)*y(k,108) + rxt(k,378)*y(k,111) + mat(k,548) = -(rxt(k,374)*y(k,111)) + mat(k,1378) = -rxt(k,374)*y(k,123) + mat(k,927) = rxt(k,376)*y(k,122) + mat(k,952) = rxt(k,377)*y(k,122) + mat(k,136) = rxt(k,369)*y(k,99) + (rxt(k,370)+.500_r8*rxt(k,384))*y(k,111) + mat(k,981) = rxt(k,379)*y(k,122) + mat(k,1213) = rxt(k,369)*y(k,52) + mat(k,902) = rxt(k,380)*y(k,122) + mat(k,1103) = rxt(k,381)*y(k,122) + mat(k,174) = rxt(k,382)*y(k,122) + mat(k,183) = rxt(k,372)*y(k,111) + mat(k,1378) = mat(k,1378) + (rxt(k,370)+.500_r8*rxt(k,384))*y(k,52) & + + rxt(k,372)*y(k,110) + rxt(k,383)*y(k,122) + mat(k,840) = rxt(k,376)*y(k,6) + rxt(k,377)*y(k,45) + rxt(k,379)*y(k,98) & + + rxt(k,380)*y(k,107) + rxt(k,381)*y(k,108) + rxt(k,382) & + *y(k,109) + rxt(k,383)*y(k,111) + mat(k,131) = -(rxt(k,385)*y(k,151)) + mat(k,1559) = -rxt(k,385)*y(k,124) + mat(k,1340) = rxt(k,374)*y(k,123) + mat(k,547) = rxt(k,374)*y(k,111) + mat(k,343) = -(rxt(k,366)*y(k,99) + rxt(k,367)*y(k,108) + rxt(k,368)*y(k,111)) + mat(k,1208) = -rxt(k,366)*y(k,133) + mat(k,1097) = -rxt(k,367)*y(k,133) + mat(k,1365) = -rxt(k,368)*y(k,133) + mat(k,671) = -(rxt(k,360)*y(k,32) + rxt(k,361)*y(k,37) + rxt(k,362)*y(k,139) & + + rxt(k,363)*y(k,97) + rxt(k,364)*y(k,99)) + mat(k,787) = -rxt(k,360)*y(k,134) + mat(k,1178) = -rxt(k,361)*y(k,134) + mat(k,1065) = -rxt(k,362)*y(k,134) + mat(k,1485) = -rxt(k,363)*y(k,134) + mat(k,1222) = -rxt(k,364)*y(k,134) + mat(k,179) = rxt(k,345)*y(k,111) + mat(k,268) = .800_r8*rxt(k,357)*y(k,111) + mat(k,1389) = rxt(k,345)*y(k,78) + .800_r8*rxt(k,357)*y(k,82) & + + .500_r8*rxt(k,365)*y(k,135) + mat(k,99) = .500_r8*rxt(k,365)*y(k,111) + mat(k,98) = -(rxt(k,365)*y(k,111)) + mat(k,1334) = -rxt(k,365)*y(k,135) + mat(k,665) = rxt(k,362)*y(k,139) + mat(k,1036) = rxt(k,362)*y(k,134) + mat(k,526) = -(rxt(k,414)*y(k,142) + rxt(k,415)*y(k,147) + rxt(k,416) & *y(k,141)) - mat(k,371) = -rxt(k,411)*y(k,138) - mat(k,512) = -rxt(k,412)*y(k,138) - mat(k,338) = -rxt(k,413)*y(k,138) + mat(k,371) = -rxt(k,414)*y(k,138) + mat(k,512) = -rxt(k,415)*y(k,138) + mat(k,338) = -rxt(k,416)*y(k,138) mat(k,1081) = -((rxt(k,137) + rxt(k,138) + rxt(k,139)) * y(k,62) + rxt(k,141) & *y(k,106) + rxt(k,142)*y(k,108) + rxt(k,146)*y(k,111) & + 4._r8*rxt(k,151)*y(k,139) + rxt(k,163)*y(k,99) + rxt(k,168) & - *y(k,97) + rxt(k,173)*y(k,98) + (rxt(k,183) + rxt(k,184) & - ) * y(k,42) + rxt(k,190)*y(k,45) + rxt(k,216)*y(k,4) + rxt(k,222) & - *y(k,6) + rxt(k,264)*y(k,37) + rxt(k,277)*y(k,10) + rxt(k,287) & - *y(k,32) + rxt(k,291)*y(k,57) + rxt(k,304)*y(k,15) + rxt(k,312) & - *y(k,114) + rxt(k,316)*y(k,118) + rxt(k,323)*y(k,84) + rxt(k,332) & - *y(k,86) + rxt(k,344)*y(k,80) + rxt(k,349)*y(k,81) + rxt(k,359) & + *y(k,97) + rxt(k,173)*y(k,98) + (rxt(k,186) + rxt(k,187) & + ) * y(k,42) + rxt(k,193)*y(k,45) + rxt(k,219)*y(k,4) + rxt(k,225) & + *y(k,6) + rxt(k,267)*y(k,37) + rxt(k,280)*y(k,10) + rxt(k,290) & + *y(k,32) + rxt(k,294)*y(k,57) + rxt(k,307)*y(k,15) + rxt(k,315) & + *y(k,114) + rxt(k,319)*y(k,118) + rxt(k,326)*y(k,84) + rxt(k,335) & + *y(k,86) + rxt(k,347)*y(k,80) + rxt(k,352)*y(k,81) + rxt(k,362) & *y(k,134)) mat(k,1545) = -(rxt(k,137) + rxt(k,138) + rxt(k,139)) * y(k,139) mat(k,1451) = -rxt(k,141)*y(k,139) @@ -1517,95 +1519,95 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) mat(k,1237) = -rxt(k,163)*y(k,139) mat(k,1499) = -rxt(k,168)*y(k,139) mat(k,998) = -rxt(k,173)*y(k,139) - mat(k,1317) = -(rxt(k,183) + rxt(k,184)) * y(k,139) - mat(k,962) = -rxt(k,190)*y(k,139) - mat(k,881) = -rxt(k,216)*y(k,139) - mat(k,936) = -rxt(k,222)*y(k,139) - mat(k,1191) = -rxt(k,264)*y(k,139) - mat(k,429) = -rxt(k,277)*y(k,139) - mat(k,798) = -rxt(k,287)*y(k,139) - mat(k,382) = -rxt(k,291)*y(k,139) - mat(k,467) = -rxt(k,304)*y(k,139) - mat(k,407) = -rxt(k,312)*y(k,139) - mat(k,601) = -rxt(k,316)*y(k,139) - mat(k,732) = -rxt(k,323)*y(k,139) - mat(k,770) = -rxt(k,332)*y(k,139) - mat(k,417) = -rxt(k,344)*y(k,139) - mat(k,710) = -rxt(k,349)*y(k,139) - mat(k,677) = -rxt(k,359)*y(k,139) - mat(k,881) = mat(k,881) + rxt(k,215)*y(k,27) - mat(k,936) = mat(k,936) + rxt(k,227)*y(k,111) - mat(k,243) = .130_r8*rxt(k,274)*y(k,108) - mat(k,429) = mat(k,429) + 2.400_r8*rxt(k,275)*y(k,10) + rxt(k,276)*y(k,37) & - + rxt(k,278)*y(k,97) - mat(k,128) = rxt(k,279)*y(k,111) - mat(k,632) = .280_r8*rxt(k,302)*y(k,108) - mat(k,467) = mat(k,467) + rxt(k,303)*y(k,37) + rxt(k,305)*y(k,97) - mat(k,1022) = rxt(k,215)*y(k,4) + rxt(k,179)*y(k,42) + rxt(k,259)*y(k,99) & - + rxt(k,260)*y(k,106) - mat(k,328) = rxt(k,244)*y(k,42) + rxt(k,245)*y(k,111) - mat(k,192) = rxt(k,247)*y(k,42) + rxt(k,248)*y(k,111) - mat(k,798) = mat(k,798) + .900_r8*rxt(k,286)*y(k,37) + rxt(k,347)*y(k,81) & - + .470_r8*rxt(k,321)*y(k,84) + rxt(k,357)*y(k,134) - mat(k,1191) = mat(k,1191) + rxt(k,276)*y(k,10) + rxt(k,303)*y(k,15) & - + .900_r8*rxt(k,286)*y(k,32) + 4.000_r8*rxt(k,262)*y(k,37) & - + rxt(k,186)*y(k,45) + rxt(k,348)*y(k,81) + .730_r8*rxt(k,322) & - *y(k,84) + rxt(k,331)*y(k,86) + rxt(k,265)*y(k,97) & - + .300_r8*rxt(k,315)*y(k,118) + .800_r8*rxt(k,358)*y(k,134) - mat(k,284) = rxt(k,266)*y(k,111) - mat(k,1524) = rxt(k,270)*y(k,144) - mat(k,1317) = mat(k,1317) + rxt(k,179)*y(k,27) + rxt(k,244)*y(k,28) & - + rxt(k,247)*y(k,31) + rxt(k,182)*y(k,65) - mat(k,962) = mat(k,962) + rxt(k,186)*y(k,37) + rxt(k,197)*y(k,111) - mat(k,651) = rxt(k,272)*y(k,111) - mat(k,137) = .500_r8*rxt(k,381)*y(k,111) - mat(k,231) = rxt(k,294)*y(k,107) - mat(k,382) = mat(k,382) + .250_r8*rxt(k,292)*y(k,97) - mat(k,611) = rxt(k,295)*y(k,111) - mat(k,368) = rxt(k,296)*y(k,111) + mat(k,1317) = -(rxt(k,186) + rxt(k,187)) * y(k,139) + mat(k,962) = -rxt(k,193)*y(k,139) + mat(k,881) = -rxt(k,219)*y(k,139) + mat(k,936) = -rxt(k,225)*y(k,139) + mat(k,1191) = -rxt(k,267)*y(k,139) + mat(k,429) = -rxt(k,280)*y(k,139) + mat(k,798) = -rxt(k,290)*y(k,139) + mat(k,382) = -rxt(k,294)*y(k,139) + mat(k,467) = -rxt(k,307)*y(k,139) + mat(k,407) = -rxt(k,315)*y(k,139) + mat(k,601) = -rxt(k,319)*y(k,139) + mat(k,732) = -rxt(k,326)*y(k,139) + mat(k,770) = -rxt(k,335)*y(k,139) + mat(k,417) = -rxt(k,347)*y(k,139) + mat(k,710) = -rxt(k,352)*y(k,139) + mat(k,677) = -rxt(k,362)*y(k,139) + mat(k,881) = mat(k,881) + rxt(k,218)*y(k,27) + mat(k,936) = mat(k,936) + rxt(k,230)*y(k,111) + mat(k,243) = .130_r8*rxt(k,277)*y(k,108) + mat(k,429) = mat(k,429) + 2.400_r8*rxt(k,278)*y(k,10) + rxt(k,279)*y(k,37) & + + rxt(k,281)*y(k,97) + mat(k,128) = rxt(k,282)*y(k,111) + mat(k,632) = .280_r8*rxt(k,305)*y(k,108) + mat(k,467) = mat(k,467) + rxt(k,306)*y(k,37) + rxt(k,308)*y(k,97) + mat(k,1022) = rxt(k,218)*y(k,4) + rxt(k,182)*y(k,42) + rxt(k,262)*y(k,99) & + + rxt(k,263)*y(k,106) + mat(k,328) = rxt(k,247)*y(k,42) + rxt(k,248)*y(k,111) + mat(k,192) = rxt(k,250)*y(k,42) + rxt(k,251)*y(k,111) + mat(k,798) = mat(k,798) + .900_r8*rxt(k,289)*y(k,37) + rxt(k,350)*y(k,81) & + + .470_r8*rxt(k,324)*y(k,84) + rxt(k,360)*y(k,134) + mat(k,1191) = mat(k,1191) + rxt(k,279)*y(k,10) + rxt(k,306)*y(k,15) & + + .900_r8*rxt(k,289)*y(k,32) + 4.000_r8*rxt(k,265)*y(k,37) & + + rxt(k,189)*y(k,45) + rxt(k,351)*y(k,81) + .730_r8*rxt(k,325) & + *y(k,84) + rxt(k,334)*y(k,86) + rxt(k,268)*y(k,97) & + + .300_r8*rxt(k,318)*y(k,118) + .800_r8*rxt(k,361)*y(k,134) + mat(k,284) = rxt(k,269)*y(k,111) + mat(k,1524) = rxt(k,273)*y(k,144) + mat(k,1317) = mat(k,1317) + rxt(k,182)*y(k,27) + rxt(k,247)*y(k,28) & + + rxt(k,250)*y(k,31) + rxt(k,185)*y(k,65) + mat(k,962) = mat(k,962) + rxt(k,189)*y(k,37) + rxt(k,200)*y(k,111) + mat(k,651) = rxt(k,275)*y(k,111) + mat(k,137) = .500_r8*rxt(k,384)*y(k,111) + mat(k,231) = rxt(k,297)*y(k,107) + mat(k,382) = mat(k,382) + .250_r8*rxt(k,295)*y(k,97) + mat(k,611) = rxt(k,298)*y(k,111) + mat(k,368) = rxt(k,299)*y(k,111) mat(k,1545) = mat(k,1545) + rxt(k,140)*y(k,107) - mat(k,313) = rxt(k,182)*y(k,42) + rxt(k,136)*y(k,106) + rxt(k,145)*y(k,111) - mat(k,617) = rxt(k,310)*y(k,111) - mat(k,483) = .370_r8*rxt(k,352)*y(k,108) - mat(k,417) = mat(k,417) + .794_r8*rxt(k,345)*y(k,97) + .794_r8*rxt(k,346) & + mat(k,313) = rxt(k,185)*y(k,42) + rxt(k,136)*y(k,106) + rxt(k,145)*y(k,111) + mat(k,617) = rxt(k,313)*y(k,111) + mat(k,483) = .370_r8*rxt(k,355)*y(k,108) + mat(k,417) = mat(k,417) + .794_r8*rxt(k,348)*y(k,97) + .794_r8*rxt(k,349) & *y(k,99) - mat(k,710) = mat(k,710) + rxt(k,347)*y(k,32) + rxt(k,348)*y(k,37) & - + .920_r8*rxt(k,350)*y(k,97) + rxt(k,351)*y(k,99) - mat(k,661) = .140_r8*rxt(k,327)*y(k,108) - mat(k,732) = mat(k,732) + .470_r8*rxt(k,321)*y(k,32) + .730_r8*rxt(k,322) & - *y(k,37) + .470_r8*rxt(k,325)*y(k,97) + .470_r8*rxt(k,324) & + mat(k,710) = mat(k,710) + rxt(k,350)*y(k,32) + rxt(k,351)*y(k,37) & + + .920_r8*rxt(k,353)*y(k,97) + rxt(k,354)*y(k,99) + mat(k,661) = .140_r8*rxt(k,330)*y(k,108) + mat(k,732) = mat(k,732) + .470_r8*rxt(k,324)*y(k,32) + .730_r8*rxt(k,325) & + *y(k,37) + .470_r8*rxt(k,328)*y(k,97) + .470_r8*rxt(k,327) & *y(k,99) - mat(k,166) = .200_r8*rxt(k,329)*y(k,111) - mat(k,770) = mat(k,770) + rxt(k,331)*y(k,37) - mat(k,308) = .500_r8*rxt(k,336)*y(k,111) - mat(k,751) = .280_r8*rxt(k,337)*y(k,108) - mat(k,1499) = mat(k,1499) + rxt(k,278)*y(k,10) + rxt(k,305)*y(k,15) & - + rxt(k,265)*y(k,37) + .250_r8*rxt(k,292)*y(k,57) & - + .794_r8*rxt(k,345)*y(k,80) + .920_r8*rxt(k,350)*y(k,81) & - + .470_r8*rxt(k,325)*y(k,84) + rxt(k,313)*y(k,114) + rxt(k,360) & + mat(k,166) = .200_r8*rxt(k,332)*y(k,111) + mat(k,770) = mat(k,770) + rxt(k,334)*y(k,37) + mat(k,308) = .500_r8*rxt(k,339)*y(k,111) + mat(k,751) = .280_r8*rxt(k,340)*y(k,108) + mat(k,1499) = mat(k,1499) + rxt(k,281)*y(k,10) + rxt(k,308)*y(k,15) & + + rxt(k,268)*y(k,37) + .250_r8*rxt(k,295)*y(k,57) & + + .794_r8*rxt(k,348)*y(k,80) + .920_r8*rxt(k,353)*y(k,81) & + + .470_r8*rxt(k,328)*y(k,84) + rxt(k,316)*y(k,114) + rxt(k,363) & *y(k,134) - mat(k,1237) = mat(k,1237) + rxt(k,259)*y(k,27) + .794_r8*rxt(k,346)*y(k,80) & - + rxt(k,351)*y(k,81) + .470_r8*rxt(k,324)*y(k,84) + rxt(k,166) & - *y(k,111) + rxt(k,355)*y(k,112) + rxt(k,361)*y(k,134) - mat(k,1451) = mat(k,1451) + rxt(k,260)*y(k,27) + rxt(k,136)*y(k,65) - mat(k,914) = rxt(k,294)*y(k,56) + rxt(k,140)*y(k,62) - mat(k,1127) = mat(k,1127) + .130_r8*rxt(k,274)*y(k,9) + .280_r8*rxt(k,302) & - *y(k,14) + .370_r8*rxt(k,352)*y(k,79) + .140_r8*rxt(k,327) & - *y(k,83) + .280_r8*rxt(k,337)*y(k,88) + rxt(k,148)*y(k,111) - mat(k,1406) = mat(k,1406) + rxt(k,227)*y(k,6) + rxt(k,279)*y(k,11) & - + rxt(k,245)*y(k,28) + rxt(k,248)*y(k,31) + rxt(k,266)*y(k,38) & - + rxt(k,197)*y(k,45) + rxt(k,272)*y(k,48) + .500_r8*rxt(k,381) & - *y(k,52) + rxt(k,295)*y(k,60) + rxt(k,296)*y(k,61) + rxt(k,145) & - *y(k,65) + rxt(k,310)*y(k,77) + .200_r8*rxt(k,329)*y(k,85) & - + .500_r8*rxt(k,336)*y(k,87) + rxt(k,166)*y(k,99) + rxt(k,148) & - *y(k,108) + rxt(k,356)*y(k,112) + rxt(k,371)*y(k,123) - mat(k,589) = rxt(k,355)*y(k,99) + rxt(k,356)*y(k,111) - mat(k,407) = mat(k,407) + rxt(k,313)*y(k,97) - mat(k,601) = mat(k,601) + .300_r8*rxt(k,315)*y(k,37) - mat(k,550) = rxt(k,371)*y(k,111) - mat(k,677) = mat(k,677) + rxt(k,357)*y(k,32) + .800_r8*rxt(k,358)*y(k,37) & - + rxt(k,360)*y(k,97) + rxt(k,361)*y(k,99) - mat(k,1279) = rxt(k,270)*y(k,40) + mat(k,1237) = mat(k,1237) + rxt(k,262)*y(k,27) + .794_r8*rxt(k,349)*y(k,80) & + + rxt(k,354)*y(k,81) + .470_r8*rxt(k,327)*y(k,84) + rxt(k,166) & + *y(k,111) + rxt(k,358)*y(k,112) + rxt(k,364)*y(k,134) + mat(k,1451) = mat(k,1451) + rxt(k,263)*y(k,27) + rxt(k,136)*y(k,65) + mat(k,914) = rxt(k,297)*y(k,56) + rxt(k,140)*y(k,62) + mat(k,1127) = mat(k,1127) + .130_r8*rxt(k,277)*y(k,9) + .280_r8*rxt(k,305) & + *y(k,14) + .370_r8*rxt(k,355)*y(k,79) + .140_r8*rxt(k,330) & + *y(k,83) + .280_r8*rxt(k,340)*y(k,88) + rxt(k,148)*y(k,111) + mat(k,1406) = mat(k,1406) + rxt(k,230)*y(k,6) + rxt(k,282)*y(k,11) & + + rxt(k,248)*y(k,28) + rxt(k,251)*y(k,31) + rxt(k,269)*y(k,38) & + + rxt(k,200)*y(k,45) + rxt(k,275)*y(k,48) + .500_r8*rxt(k,384) & + *y(k,52) + rxt(k,298)*y(k,60) + rxt(k,299)*y(k,61) + rxt(k,145) & + *y(k,65) + rxt(k,313)*y(k,77) + .200_r8*rxt(k,332)*y(k,85) & + + .500_r8*rxt(k,339)*y(k,87) + rxt(k,166)*y(k,99) + rxt(k,148) & + *y(k,108) + rxt(k,359)*y(k,112) + rxt(k,374)*y(k,123) + mat(k,589) = rxt(k,358)*y(k,99) + rxt(k,359)*y(k,111) + mat(k,407) = mat(k,407) + rxt(k,316)*y(k,97) + mat(k,601) = mat(k,601) + .300_r8*rxt(k,318)*y(k,37) + mat(k,550) = rxt(k,374)*y(k,111) + mat(k,677) = mat(k,677) + rxt(k,360)*y(k,32) + .800_r8*rxt(k,361)*y(k,37) & + + rxt(k,363)*y(k,97) + rxt(k,364)*y(k,99) + mat(k,1279) = rxt(k,273)*y(k,40) end do end subroutine nlnmat07 subroutine nlnmat08( avec_len, mat, y, rxt ) @@ -1626,74 +1628,77 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,539) = -(rxt(k,153)*y(k,106) + rxt(k,154)*y(k,107) + rxt(k,425) & - *y(k,148)) - mat(k,1436) = -rxt(k,153)*y(k,140) - mat(k,901) = -rxt(k,154)*y(k,140) - mat(k,504) = -rxt(k,425)*y(k,140) - mat(k,1436) = mat(k,1436) + rxt(k,415)*y(k,141) - mat(k,527) = .900_r8*rxt(k,413)*y(k,141) + .800_r8*rxt(k,411)*y(k,142) - mat(k,339) = rxt(k,415)*y(k,106) + .900_r8*rxt(k,413)*y(k,138) - mat(k,372) = .800_r8*rxt(k,411)*y(k,138) - mat(k,334) = -(rxt(k,413)*y(k,138) + rxt(k,414)*y(k,107) + (rxt(k,415) & - + rxt(k,416)) * y(k,106)) - mat(k,521) = -rxt(k,413)*y(k,141) - mat(k,894) = -rxt(k,414)*y(k,141) - mat(k,1426) = -(rxt(k,415) + rxt(k,416)) * y(k,141) - mat(k,370) = -(rxt(k,411)*y(k,138)) - mat(k,522) = -rxt(k,411)*y(k,142) - mat(k,555) = rxt(k,420)*y(k,147) - mat(k,1467) = rxt(k,422)*y(k,147) - mat(k,1428) = rxt(k,415)*y(k,141) - mat(k,896) = rxt(k,419)*y(k,143) - mat(k,335) = rxt(k,415)*y(k,106) - mat(k,441) = rxt(k,419)*y(k,107) - mat(k,510) = rxt(k,420)*y(k,89) + rxt(k,422)*y(k,97) - mat(k,442) = -(rxt(k,417)*y(k,106) + (rxt(k,418) + rxt(k,419)) * y(k,107)) - mat(k,1431) = -rxt(k,417)*y(k,143) - mat(k,897) = -(rxt(k,418) + rxt(k,419)) * y(k,143) - mat(k,535) = rxt(k,425)*y(k,148) - mat(k,500) = rxt(k,425)*y(k,140) + mat(k,539) = -(rxt(k,154)*y(k,97) + rxt(k,155)*y(k,106) + rxt(k,178)*y(k,138) & + + rxt(k,179)*y(k,107) + rxt(k,428)*y(k,148)) + mat(k,1476) = -rxt(k,154)*y(k,140) + mat(k,1436) = -rxt(k,155)*y(k,140) + mat(k,527) = -rxt(k,178)*y(k,140) + mat(k,901) = -rxt(k,179)*y(k,140) + mat(k,504) = -rxt(k,428)*y(k,140) + mat(k,1436) = mat(k,1436) + rxt(k,418)*y(k,141) + mat(k,527) = mat(k,527) + .900_r8*rxt(k,416)*y(k,141) + .800_r8*rxt(k,414) & + *y(k,142) + mat(k,339) = rxt(k,418)*y(k,106) + .900_r8*rxt(k,416)*y(k,138) + mat(k,372) = .800_r8*rxt(k,414)*y(k,138) + mat(k,334) = -(rxt(k,416)*y(k,138) + rxt(k,417)*y(k,107) + (rxt(k,418) & + + rxt(k,419)) * y(k,106)) + mat(k,521) = -rxt(k,416)*y(k,141) + mat(k,894) = -rxt(k,417)*y(k,141) + mat(k,1426) = -(rxt(k,418) + rxt(k,419)) * y(k,141) + mat(k,370) = -(rxt(k,414)*y(k,138)) + mat(k,522) = -rxt(k,414)*y(k,142) + mat(k,555) = rxt(k,423)*y(k,147) + mat(k,1467) = rxt(k,425)*y(k,147) + mat(k,1428) = rxt(k,418)*y(k,141) + mat(k,896) = rxt(k,422)*y(k,143) + mat(k,335) = rxt(k,418)*y(k,106) + mat(k,441) = rxt(k,422)*y(k,107) + mat(k,510) = rxt(k,423)*y(k,89) + rxt(k,425)*y(k,97) + mat(k,442) = -(rxt(k,420)*y(k,106) + (rxt(k,421) + rxt(k,422)) * y(k,107)) + mat(k,1431) = -rxt(k,420)*y(k,143) + mat(k,897) = -(rxt(k,421) + rxt(k,422)) * y(k,143) + mat(k,535) = rxt(k,428)*y(k,148) + mat(k,500) = rxt(k,428)*y(k,140) mat(k,1284) = -(rxt(k,117)*y(k,63) + rxt(k,118)*y(k,151) + (rxt(k,120) & + rxt(k,121)) * y(k,107) + (rxt(k,122) + rxt(k,123)) * y(k,108) & - + (rxt(k,171) + rxt(k,172)) * y(k,90) + rxt(k,204)*y(k,18) & - + rxt(k,205)*y(k,19) + rxt(k,206)*y(k,21) + rxt(k,207)*y(k,22) & - + rxt(k,208)*y(k,23) + rxt(k,209)*y(k,24) + rxt(k,210)*y(k,25) & - + (rxt(k,211) + rxt(k,212)) * y(k,71) + rxt(k,231)*y(k,20) & - + rxt(k,232)*y(k,41) + rxt(k,233)*y(k,64) + (rxt(k,234) & - + rxt(k,235)) * y(k,67) + rxt(k,240)*y(k,50) + rxt(k,241) & - *y(k,51) + rxt(k,254)*y(k,26) + rxt(k,255)*y(k,28) + rxt(k,256) & - *y(k,68) + rxt(k,257)*y(k,69) + rxt(k,258)*y(k,70) + (rxt(k,269) & - + rxt(k,270) + rxt(k,271)) * y(k,40)) + + (rxt(k,171) + rxt(k,172)) * y(k,90) + rxt(k,207)*y(k,18) & + + rxt(k,208)*y(k,19) + rxt(k,209)*y(k,21) + rxt(k,210)*y(k,22) & + + rxt(k,211)*y(k,23) + rxt(k,212)*y(k,24) + rxt(k,213)*y(k,25) & + + (rxt(k,214) + rxt(k,215)) * y(k,71) + rxt(k,234)*y(k,20) & + + rxt(k,235)*y(k,41) + rxt(k,236)*y(k,64) + (rxt(k,237) & + + rxt(k,238)) * y(k,67) + rxt(k,243)*y(k,50) + rxt(k,244) & + *y(k,51) + rxt(k,257)*y(k,26) + rxt(k,258)*y(k,28) + rxt(k,259) & + *y(k,68) + rxt(k,260)*y(k,69) + rxt(k,261)*y(k,70) + (rxt(k,272) & + + rxt(k,273) + rxt(k,274)) * y(k,40)) mat(k,831) = -rxt(k,117)*y(k,144) mat(k,1577) = -rxt(k,118)*y(k,144) mat(k,916) = -(rxt(k,120) + rxt(k,121)) * y(k,144) mat(k,1132) = -(rxt(k,122) + rxt(k,123)) * y(k,144) mat(k,124) = -(rxt(k,171) + rxt(k,172)) * y(k,144) - mat(k,39) = -rxt(k,204)*y(k,144) - mat(k,74) = -rxt(k,205)*y(k,144) - mat(k,55) = -rxt(k,206)*y(k,144) - mat(k,84) = -rxt(k,207)*y(k,144) - mat(k,59) = -rxt(k,208)*y(k,144) - mat(k,89) = -rxt(k,209)*y(k,144) - mat(k,63) = -rxt(k,210)*y(k,144) - mat(k,867) = -(rxt(k,211) + rxt(k,212)) * y(k,144) - mat(k,80) = -rxt(k,231)*y(k,144) - mat(k,224) = -rxt(k,232)*y(k,144) - mat(k,44) = -rxt(k,233)*y(k,144) - mat(k,436) = -(rxt(k,234) + rxt(k,235)) * y(k,144) - mat(k,103) = -rxt(k,240)*y(k,144) - mat(k,114) = -rxt(k,241)*y(k,144) - mat(k,249) = -rxt(k,254)*y(k,144) - mat(k,330) = -rxt(k,255)*y(k,144) - mat(k,109) = -rxt(k,256)*y(k,144) - mat(k,119) = -rxt(k,257)*y(k,144) - mat(k,144) = -rxt(k,258)*y(k,144) - mat(k,1529) = -(rxt(k,269) + rxt(k,270) + rxt(k,271)) * y(k,144) - mat(k,916) = mat(k,916) + rxt(k,154)*y(k,140) - mat(k,532) = .850_r8*rxt(k,412)*y(k,147) - mat(k,544) = rxt(k,154)*y(k,107) - mat(k,516) = .850_r8*rxt(k,412)*y(k,138) + mat(k,39) = -rxt(k,207)*y(k,144) + mat(k,74) = -rxt(k,208)*y(k,144) + mat(k,55) = -rxt(k,209)*y(k,144) + mat(k,84) = -rxt(k,210)*y(k,144) + mat(k,59) = -rxt(k,211)*y(k,144) + mat(k,89) = -rxt(k,212)*y(k,144) + mat(k,63) = -rxt(k,213)*y(k,144) + mat(k,867) = -(rxt(k,214) + rxt(k,215)) * y(k,144) + mat(k,80) = -rxt(k,234)*y(k,144) + mat(k,224) = -rxt(k,235)*y(k,144) + mat(k,44) = -rxt(k,236)*y(k,144) + mat(k,436) = -(rxt(k,237) + rxt(k,238)) * y(k,144) + mat(k,103) = -rxt(k,243)*y(k,144) + mat(k,114) = -rxt(k,244)*y(k,144) + mat(k,249) = -rxt(k,257)*y(k,144) + mat(k,330) = -rxt(k,258)*y(k,144) + mat(k,109) = -rxt(k,259)*y(k,144) + mat(k,119) = -rxt(k,260)*y(k,144) + mat(k,144) = -rxt(k,261)*y(k,144) + mat(k,1529) = -(rxt(k,272) + rxt(k,273) + rxt(k,274)) * y(k,144) + mat(k,916) = mat(k,916) + rxt(k,179)*y(k,140) + mat(k,532) = .850_r8*rxt(k,415)*y(k,147) + mat(k,544) = rxt(k,179)*y(k,107) + mat(k,516) = .850_r8*rxt(k,415)*y(k,138) mat(k,93) = -(rxt(k,125)*y(k,106) + rxt(k,126)*y(k,107)) mat(k,1419) = -rxt(k,125)*y(k,145) mat(k,889) = -rxt(k,126)*y(k,145) @@ -1711,84 +1716,84 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) mat(k,1095) = -rxt(k,131)*y(k,146) mat(k,890) = mat(k,890) + rxt(k,120)*y(k,144) mat(k,1259) = rxt(k,120)*y(k,107) - mat(k,511) = -(rxt(k,412)*y(k,138) + rxt(k,420)*y(k,89) + rxt(k,422)*y(k,97)) - mat(k,525) = -rxt(k,412)*y(k,147) - mat(k,558) = -rxt(k,420)*y(k,147) - mat(k,1474) = -rxt(k,422)*y(k,147) - mat(k,810) = rxt(k,423)*y(k,148) - mat(k,899) = rxt(k,414)*y(k,141) + rxt(k,418)*y(k,143) + rxt(k,426)*y(k,148) & - + rxt(k,430)*y(k,149) - mat(k,337) = rxt(k,414)*y(k,107) - mat(k,444) = rxt(k,418)*y(k,107) - mat(k,502) = rxt(k,423)*y(k,49) + rxt(k,426)*y(k,107) - mat(k,263) = rxt(k,430)*y(k,107) - mat(k,501) = -(rxt(k,423)*y(k,49) + rxt(k,425)*y(k,140) + rxt(k,426)*y(k,107)) - mat(k,809) = -rxt(k,423)*y(k,148) - mat(k,536) = -rxt(k,425)*y(k,148) - mat(k,898) = -rxt(k,426)*y(k,148) - mat(k,1433) = rxt(k,416)*y(k,141) + rxt(k,417)*y(k,143) + rxt(k,429)*y(k,149) & - + rxt(k,435)*y(k,150) - mat(k,524) = rxt(k,427)*y(k,149) + rxt(k,432)*y(k,150) - mat(k,336) = rxt(k,416)*y(k,106) - mat(k,443) = rxt(k,417)*y(k,106) - mat(k,262) = rxt(k,429)*y(k,106) + rxt(k,427)*y(k,138) - mat(k,257) = rxt(k,435)*y(k,106) + rxt(k,432)*y(k,138) - mat(k,260) = -(rxt(k,427)*y(k,138) + rxt(k,429)*y(k,106) + rxt(k,430) & + mat(k,511) = -(rxt(k,415)*y(k,138) + rxt(k,423)*y(k,89) + rxt(k,425)*y(k,97)) + mat(k,525) = -rxt(k,415)*y(k,147) + mat(k,558) = -rxt(k,423)*y(k,147) + mat(k,1474) = -rxt(k,425)*y(k,147) + mat(k,810) = rxt(k,426)*y(k,148) + mat(k,899) = rxt(k,417)*y(k,141) + rxt(k,421)*y(k,143) + rxt(k,429)*y(k,148) & + + rxt(k,433)*y(k,149) + mat(k,337) = rxt(k,417)*y(k,107) + mat(k,444) = rxt(k,421)*y(k,107) + mat(k,502) = rxt(k,426)*y(k,49) + rxt(k,429)*y(k,107) + mat(k,263) = rxt(k,433)*y(k,107) + mat(k,501) = -(rxt(k,426)*y(k,49) + rxt(k,428)*y(k,140) + rxt(k,429)*y(k,107)) + mat(k,809) = -rxt(k,426)*y(k,148) + mat(k,536) = -rxt(k,428)*y(k,148) + mat(k,898) = -rxt(k,429)*y(k,148) + mat(k,1433) = rxt(k,419)*y(k,141) + rxt(k,420)*y(k,143) + rxt(k,432)*y(k,149) & + + rxt(k,438)*y(k,150) + mat(k,524) = rxt(k,430)*y(k,149) + rxt(k,435)*y(k,150) + mat(k,336) = rxt(k,419)*y(k,106) + mat(k,443) = rxt(k,420)*y(k,106) + mat(k,262) = rxt(k,432)*y(k,106) + rxt(k,430)*y(k,138) + mat(k,257) = rxt(k,438)*y(k,106) + rxt(k,435)*y(k,138) + mat(k,260) = -(rxt(k,430)*y(k,138) + rxt(k,432)*y(k,106) + rxt(k,433) & *y(k,107)) - mat(k,520) = -rxt(k,427)*y(k,149) - mat(k,1423) = -rxt(k,429)*y(k,149) - mat(k,893) = -rxt(k,430)*y(k,149) - mat(k,520) = mat(k,520) + rxt(k,431)*y(k,150) - mat(k,254) = rxt(k,431)*y(k,138) - mat(k,253) = -((rxt(k,431) + rxt(k,432)) * y(k,138) + rxt(k,435)*y(k,106)) - mat(k,519) = -(rxt(k,431) + rxt(k,432)) * y(k,150) - mat(k,1422) = -rxt(k,435)*y(k,150) - mat(k,1584) = -(rxt(k,118)*y(k,144) + rxt(k,238)*y(k,59) + rxt(k,382) & + mat(k,520) = -rxt(k,430)*y(k,149) + mat(k,1423) = -rxt(k,432)*y(k,149) + mat(k,893) = -rxt(k,433)*y(k,149) + mat(k,520) = mat(k,520) + rxt(k,434)*y(k,150) + mat(k,254) = rxt(k,434)*y(k,138) + mat(k,253) = -((rxt(k,434) + rxt(k,435)) * y(k,138) + rxt(k,438)*y(k,106)) + mat(k,519) = -(rxt(k,434) + rxt(k,435)) * y(k,150) + mat(k,1422) = -rxt(k,438)*y(k,150) + mat(k,1584) = -(rxt(k,118)*y(k,144) + rxt(k,241)*y(k,59) + rxt(k,385) & *y(k,124)) mat(k,1291) = -rxt(k,118)*y(k,151) - mat(k,498) = -rxt(k,238)*y(k,151) - mat(k,134) = -rxt(k,382)*y(k,151) - mat(k,162) = rxt(k,282)*y(k,111) - mat(k,208) = rxt(k,306)*y(k,111) - mat(k,52) = rxt(k,307)*y(k,111) - mat(k,252) = rxt(k,243)*y(k,111) - mat(k,1034) = rxt(k,261)*y(k,111) - mat(k,333) = rxt(k,245)*y(k,111) - mat(k,48) = rxt(k,246)*y(k,111) - mat(k,648) = rxt(k,284)*y(k,111) - mat(k,196) = rxt(k,248)*y(k,111) - mat(k,399) = rxt(k,320)*y(k,111) - mat(k,690) = rxt(k,309)*y(k,111) - mat(k,357) = rxt(k,289)*y(k,111) - mat(k,324) = rxt(k,290)*y(k,111) - mat(k,214) = rxt(k,267)*y(k,111) - mat(k,1536) = rxt(k,268)*y(k,111) + mat(k,498) = -rxt(k,241)*y(k,151) + mat(k,134) = -rxt(k,385)*y(k,151) + mat(k,162) = rxt(k,285)*y(k,111) + mat(k,208) = rxt(k,309)*y(k,111) + mat(k,52) = rxt(k,310)*y(k,111) + mat(k,252) = rxt(k,246)*y(k,111) + mat(k,1034) = rxt(k,264)*y(k,111) + mat(k,333) = rxt(k,248)*y(k,111) + mat(k,48) = rxt(k,249)*y(k,111) + mat(k,648) = rxt(k,287)*y(k,111) + mat(k,196) = rxt(k,251)*y(k,111) + mat(k,399) = rxt(k,323)*y(k,111) + mat(k,690) = rxt(k,312)*y(k,111) + mat(k,357) = rxt(k,292)*y(k,111) + mat(k,324) = rxt(k,293)*y(k,111) + mat(k,214) = rxt(k,270)*y(k,111) + mat(k,1536) = rxt(k,271)*y(k,111) mat(k,1557) = rxt(k,139)*y(k,139) mat(k,837) = rxt(k,144)*y(k,111) mat(k,317) = rxt(k,145)*y(k,111) - mat(k,440) = rxt(k,229)*y(k,111) - mat(k,147) = rxt(k,253)*y(k,111) - mat(k,872) = (rxt(k,399)+rxt(k,404))*y(k,75) + (rxt(k,392)+rxt(k,398) & - +rxt(k,403))*y(k,76) + rxt(k,200)*y(k,111) + mat(k,440) = rxt(k,232)*y(k,111) + mat(k,147) = rxt(k,256)*y(k,111) + mat(k,872) = (rxt(k,402)+rxt(k,407))*y(k,75) + (rxt(k,395)+rxt(k,401) & + +rxt(k,406))*y(k,76) + rxt(k,203)*y(k,111) mat(k,1162) = rxt(k,176)*y(k,111) - mat(k,238) = rxt(k,152)*y(k,111) - mat(k,393) = (rxt(k,399)+rxt(k,404))*y(k,71) - mat(k,457) = (rxt(k,392)+rxt(k,398)+rxt(k,403))*y(k,71) + rxt(k,203)*y(k,111) - mat(k,664) = .500_r8*rxt(k,328)*y(k,111) - mat(k,37) = rxt(k,383)*y(k,111) - mat(k,1418) = rxt(k,282)*y(k,13) + rxt(k,306)*y(k,16) + rxt(k,307)*y(k,17) & - + rxt(k,243)*y(k,26) + rxt(k,261)*y(k,27) + rxt(k,245)*y(k,28) & - + rxt(k,246)*y(k,29) + rxt(k,284)*y(k,30) + rxt(k,248)*y(k,31) & - + rxt(k,320)*y(k,33) + rxt(k,309)*y(k,34) + rxt(k,289)*y(k,35) & - + rxt(k,290)*y(k,36) + rxt(k,267)*y(k,39) + rxt(k,268)*y(k,40) & - + rxt(k,144)*y(k,63) + rxt(k,145)*y(k,65) + rxt(k,229)*y(k,67) & - + rxt(k,253)*y(k,70) + rxt(k,200)*y(k,71) + rxt(k,176)*y(k,73) & - + rxt(k,152)*y(k,74) + rxt(k,203)*y(k,76) + .500_r8*rxt(k,328) & - *y(k,83) + rxt(k,383)*y(k,95) + 2.000_r8*rxt(k,149)*y(k,111) & - + rxt(k,314)*y(k,117) + rxt(k,318)*y(k,119) + rxt(k,146) & + mat(k,238) = rxt(k,153)*y(k,111) + mat(k,393) = (rxt(k,402)+rxt(k,407))*y(k,71) + mat(k,457) = (rxt(k,395)+rxt(k,401)+rxt(k,406))*y(k,71) + rxt(k,206)*y(k,111) + mat(k,664) = .500_r8*rxt(k,331)*y(k,111) + mat(k,37) = rxt(k,386)*y(k,111) + mat(k,1418) = rxt(k,285)*y(k,13) + rxt(k,309)*y(k,16) + rxt(k,310)*y(k,17) & + + rxt(k,246)*y(k,26) + rxt(k,264)*y(k,27) + rxt(k,248)*y(k,28) & + + rxt(k,249)*y(k,29) + rxt(k,287)*y(k,30) + rxt(k,251)*y(k,31) & + + rxt(k,323)*y(k,33) + rxt(k,312)*y(k,34) + rxt(k,292)*y(k,35) & + + rxt(k,293)*y(k,36) + rxt(k,270)*y(k,39) + rxt(k,271)*y(k,40) & + + rxt(k,144)*y(k,63) + rxt(k,145)*y(k,65) + rxt(k,232)*y(k,67) & + + rxt(k,256)*y(k,70) + rxt(k,203)*y(k,71) + rxt(k,176)*y(k,73) & + + rxt(k,153)*y(k,74) + rxt(k,206)*y(k,76) + .500_r8*rxt(k,331) & + *y(k,83) + rxt(k,386)*y(k,95) + 2.000_r8*rxt(k,149)*y(k,111) & + + rxt(k,317)*y(k,117) + rxt(k,321)*y(k,119) + rxt(k,146) & *y(k,139) - mat(k,293) = rxt(k,314)*y(k,111) - mat(k,220) = rxt(k,318)*y(k,111) + mat(k,293) = rxt(k,317)*y(k,111) + mat(k,220) = rxt(k,321)*y(k,111) mat(k,1093) = rxt(k,139)*y(k,62) + rxt(k,146)*y(k,111) end do end subroutine nlnmat08 @@ -1985,6 +1990,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 270) = lmat(k, 270) mat(k, 271) = lmat(k, 271) mat(k, 272) = lmat(k, 272) + mat(k, 273) = mat(k, 273) + lmat(k, 273) mat(k, 274) = mat(k, 274) + lmat(k, 274) mat(k, 275) = lmat(k, 275) mat(k, 276) = lmat(k, 276) @@ -2052,6 +2058,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 518) = mat(k, 518) + lmat(k, 518) mat(k, 526) = mat(k, 526) + lmat(k, 526) mat(k, 539) = mat(k, 539) + lmat(k, 539) + mat(k, 540) = mat(k, 540) + lmat(k, 540) mat(k, 548) = mat(k, 548) + lmat(k, 548) mat(k, 549) = lmat(k, 549) mat(k, 552) = lmat(k, 552) @@ -2433,7 +2440,6 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k,1456) = 0._r8 mat(k,1461) = 0._r8 mat(k,1463) = 0._r8 - mat(k,1476) = 0._r8 mat(k,1501) = 0._r8 mat(k,1504) = 0._r8 mat(k,1509) = 0._r8 diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_prod_loss.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_prod_loss.F90 index 924fa2a671..34417a31a7 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_prod_loss.F90 @@ -59,207 +59,207 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,1) = 0._r8 loss(k,2) = ( + het_rates(k,2))* y(k,2) prod(k,2) = 0._r8 - loss(k,29) = (rxt(k,341)* y(k,111) + het_rates(k,3))* y(k,3) + loss(k,29) = (rxt(k,344)* y(k,111) + het_rates(k,3))* y(k,3) prod(k,29) = 0._r8 - loss(k,131) = (rxt(k,215)* y(k,27) +rxt(k,217)* y(k,108) +rxt(k,216) & + loss(k,131) = (rxt(k,218)* y(k,27) +rxt(k,220)* y(k,108) +rxt(k,219) & * y(k,139) + het_rates(k,4))* y(k,4) - prod(k,131) = (rxt(k,48) +2.000_r8*rxt(k,218)*y(k,6) +rxt(k,219)*y(k,45) + & - rxt(k,220)*y(k,45) +rxt(k,223)*y(k,97) +rxt(k,226)*y(k,106) + & - rxt(k,227)*y(k,111) +rxt(k,373)*y(k,122))*y(k,6) & - + (rxt(k,205)*y(k,19) +rxt(k,231)*y(k,20) + & - 3.000_r8*rxt(k,232)*y(k,41) +2.000_r8*rxt(k,233)*y(k,64) + & - rxt(k,234)*y(k,67) +2.000_r8*rxt(k,254)*y(k,26) +rxt(k,255)*y(k,28)) & - *y(k,144) + (rxt(k,229)*y(k,67) +2.000_r8*rxt(k,243)*y(k,26) + & - rxt(k,245)*y(k,28) +3.000_r8*rxt(k,250)*y(k,41))*y(k,111) & - + (2.000_r8*rxt(k,242)*y(k,26) +rxt(k,244)*y(k,28) + & - 3.000_r8*rxt(k,249)*y(k,41))*y(k,42) + (rxt(k,72) + & - rxt(k,228)*y(k,106))*y(k,67) +rxt(k,47)*y(k,5) +rxt(k,50)*y(k,7) & + prod(k,131) = (rxt(k,48) +2.000_r8*rxt(k,221)*y(k,6) +rxt(k,222)*y(k,45) + & + rxt(k,223)*y(k,45) +rxt(k,226)*y(k,97) +rxt(k,229)*y(k,106) + & + rxt(k,230)*y(k,111) +rxt(k,376)*y(k,122))*y(k,6) & + + (rxt(k,208)*y(k,19) +rxt(k,234)*y(k,20) + & + 3.000_r8*rxt(k,235)*y(k,41) +2.000_r8*rxt(k,236)*y(k,64) + & + rxt(k,237)*y(k,67) +2.000_r8*rxt(k,257)*y(k,26) +rxt(k,258)*y(k,28)) & + *y(k,144) + (rxt(k,232)*y(k,67) +2.000_r8*rxt(k,246)*y(k,26) + & + rxt(k,248)*y(k,28) +3.000_r8*rxt(k,253)*y(k,41))*y(k,111) & + + (2.000_r8*rxt(k,245)*y(k,26) +rxt(k,247)*y(k,28) + & + 3.000_r8*rxt(k,252)*y(k,41))*y(k,42) + (rxt(k,72) + & + rxt(k,231)*y(k,106))*y(k,67) +rxt(k,47)*y(k,5) +rxt(k,50)*y(k,7) & +rxt(k,52)*y(k,19) +rxt(k,53)*y(k,20) +2.000_r8*rxt(k,59)*y(k,26) & +rxt(k,60)*y(k,28) +3.000_r8*rxt(k,63)*y(k,41) +2.000_r8*rxt(k,71) & *y(k,64) +rxt(k,78)*y(k,75) loss(k,49) = ( + rxt(k,47) + het_rates(k,5))* y(k,5) - prod(k,49) = (rxt(k,399)*y(k,75) +rxt(k,404)*y(k,75))*y(k,71) & - +rxt(k,221)*y(k,45)*y(k,6) - loss(k,133) = (2._r8*rxt(k,218)* y(k,6) + (rxt(k,219) +rxt(k,220) + & - rxt(k,221))* y(k,45) +rxt(k,223)* y(k,97) +rxt(k,224)* y(k,98) & - +rxt(k,226)* y(k,106) +rxt(k,227)* y(k,111) +rxt(k,373)* y(k,122) & - +rxt(k,222)* y(k,139) + rxt(k,48) + het_rates(k,6))* y(k,6) - prod(k,133) = (rxt(k,49) +rxt(k,225)*y(k,106))*y(k,7) +rxt(k,217)*y(k,108) & - *y(k,4) +rxt(k,235)*y(k,144)*y(k,67) +rxt(k,230)*y(k,106)*y(k,75) - loss(k,82) = (rxt(k,225)* y(k,106) + rxt(k,49) + rxt(k,50) + rxt(k,393) & - + rxt(k,396) + rxt(k,401) + het_rates(k,7))* y(k,7) - prod(k,82) =rxt(k,224)*y(k,98)*y(k,6) + prod(k,49) = (rxt(k,402)*y(k,75) +rxt(k,407)*y(k,75))*y(k,71) & + +rxt(k,224)*y(k,45)*y(k,6) + loss(k,133) = (2._r8*rxt(k,221)* y(k,6) + (rxt(k,222) +rxt(k,223) + & + rxt(k,224))* y(k,45) +rxt(k,226)* y(k,97) +rxt(k,227)* y(k,98) & + +rxt(k,229)* y(k,106) +rxt(k,230)* y(k,111) +rxt(k,376)* y(k,122) & + +rxt(k,225)* y(k,139) + rxt(k,48) + het_rates(k,6))* y(k,6) + prod(k,133) = (rxt(k,49) +rxt(k,228)*y(k,106))*y(k,7) +rxt(k,220)*y(k,108) & + *y(k,4) +rxt(k,238)*y(k,144)*y(k,67) +rxt(k,233)*y(k,106)*y(k,75) + loss(k,82) = (rxt(k,228)* y(k,106) + rxt(k,49) + rxt(k,50) + rxt(k,396) & + + rxt(k,399) + rxt(k,404) + het_rates(k,7))* y(k,7) + prod(k,82) =rxt(k,227)*y(k,98)*y(k,6) loss(k,3) = ( + het_rates(k,8))* y(k,8) prod(k,3) = 0._r8 - loss(k,74) = (rxt(k,273)* y(k,42) +rxt(k,274)* y(k,108) +rxt(k,298)* y(k,111) & + loss(k,74) = (rxt(k,276)* y(k,42) +rxt(k,277)* y(k,108) +rxt(k,301)* y(k,111) & + het_rates(k,9))* y(k,9) prod(k,74) = 0._r8 - loss(k,98) = (2._r8*rxt(k,275)* y(k,10) +rxt(k,276)* y(k,37) +rxt(k,278) & - * y(k,97) +rxt(k,277)* y(k,139) + het_rates(k,10))* y(k,10) - prod(k,98) = (rxt(k,281)*y(k,42) +rxt(k,282)*y(k,111))*y(k,13) & - +.500_r8*rxt(k,280)*y(k,111)*y(k,12) - loss(k,54) = (rxt(k,279)* y(k,111) + het_rates(k,11))* y(k,11) - prod(k,54) = (.400_r8*rxt(k,275)*y(k,10) +.200_r8*rxt(k,276)*y(k,37))*y(k,10) - loss(k,62) = (rxt(k,280)* y(k,111) + rxt(k,20) + het_rates(k,12))* y(k,12) - prod(k,62) =rxt(k,277)*y(k,139)*y(k,10) - loss(k,60) = (rxt(k,281)* y(k,42) +rxt(k,282)* y(k,111) + het_rates(k,13)) & + loss(k,98) = (2._r8*rxt(k,278)* y(k,10) +rxt(k,279)* y(k,37) +rxt(k,281) & + * y(k,97) +rxt(k,280)* y(k,139) + het_rates(k,10))* y(k,10) + prod(k,98) = (rxt(k,284)*y(k,42) +rxt(k,285)*y(k,111))*y(k,13) & + +.500_r8*rxt(k,283)*y(k,111)*y(k,12) + loss(k,54) = (rxt(k,282)* y(k,111) + het_rates(k,11))* y(k,11) + prod(k,54) = (.400_r8*rxt(k,278)*y(k,10) +.200_r8*rxt(k,279)*y(k,37))*y(k,10) + loss(k,62) = (rxt(k,283)* y(k,111) + rxt(k,20) + het_rates(k,12))* y(k,12) + prod(k,62) =rxt(k,280)*y(k,139)*y(k,10) + loss(k,60) = (rxt(k,284)* y(k,42) +rxt(k,285)* y(k,111) + het_rates(k,13)) & * y(k,13) prod(k,60) = 0._r8 - loss(k,116) = (rxt(k,301)* y(k,99) +rxt(k,302)* y(k,108) +rxt(k,319) & + loss(k,116) = (rxt(k,304)* y(k,99) +rxt(k,305)* y(k,108) +rxt(k,322) & * y(k,111) + het_rates(k,14))* y(k,14) - prod(k,116) =.130_r8*rxt(k,352)*y(k,108)*y(k,79) +.700_r8*rxt(k,40)*y(k,88) - loss(k,102) = (rxt(k,303)* y(k,37) +rxt(k,305)* y(k,97) +rxt(k,304)* y(k,139) & + prod(k,116) =.130_r8*rxt(k,355)*y(k,108)*y(k,79) +.700_r8*rxt(k,40)*y(k,88) + loss(k,102) = (rxt(k,306)* y(k,37) +rxt(k,308)* y(k,97) +rxt(k,307)* y(k,139) & + het_rates(k,15))* y(k,15) - prod(k,102) = (rxt(k,306)*y(k,16) +rxt(k,307)*y(k,17) + & - 1.670_r8*rxt(k,341)*y(k,3))*y(k,111) - loss(k,68) = (rxt(k,306)* y(k,111) + rxt(k,21) + het_rates(k,16))* y(k,16) - prod(k,68) =rxt(k,304)*y(k,139)*y(k,15) - loss(k,34) = (rxt(k,307)* y(k,111) + het_rates(k,17))* y(k,17) + prod(k,102) = (rxt(k,309)*y(k,16) +rxt(k,310)*y(k,17) + & + 1.670_r8*rxt(k,344)*y(k,3))*y(k,111) + loss(k,68) = (rxt(k,309)* y(k,111) + rxt(k,21) + het_rates(k,16))* y(k,16) + prod(k,68) =rxt(k,307)*y(k,139)*y(k,15) + loss(k,34) = (rxt(k,310)* y(k,111) + het_rates(k,17))* y(k,17) prod(k,34) = 0._r8 - loss(k,31) = (rxt(k,204)* y(k,144) + rxt(k,51) + het_rates(k,18))* y(k,18) + loss(k,31) = (rxt(k,207)* y(k,144) + rxt(k,51) + het_rates(k,18))* y(k,18) prod(k,31) = 0._r8 - loss(k,40) = (rxt(k,205)* y(k,144) + rxt(k,52) + het_rates(k,19))* y(k,19) + loss(k,40) = (rxt(k,208)* y(k,144) + rxt(k,52) + het_rates(k,19))* y(k,19) prod(k,40) = 0._r8 - loss(k,41) = (rxt(k,231)* y(k,144) + rxt(k,53) + het_rates(k,20))* y(k,20) + loss(k,41) = (rxt(k,234)* y(k,144) + rxt(k,53) + het_rates(k,20))* y(k,20) prod(k,41) = 0._r8 - loss(k,35) = (rxt(k,206)* y(k,144) + rxt(k,54) + het_rates(k,21))* y(k,21) + loss(k,35) = (rxt(k,209)* y(k,144) + rxt(k,54) + het_rates(k,21))* y(k,21) prod(k,35) = 0._r8 - loss(k,42) = (rxt(k,207)* y(k,144) + rxt(k,55) + het_rates(k,22))* y(k,22) + loss(k,42) = (rxt(k,210)* y(k,144) + rxt(k,55) + het_rates(k,22))* y(k,22) prod(k,42) = 0._r8 - loss(k,36) = (rxt(k,208)* y(k,144) + rxt(k,56) + het_rates(k,23))* y(k,23) + loss(k,36) = (rxt(k,211)* y(k,144) + rxt(k,56) + het_rates(k,23))* y(k,23) prod(k,36) = 0._r8 - loss(k,43) = (rxt(k,209)* y(k,144) + rxt(k,57) + het_rates(k,24))* y(k,24) + loss(k,43) = (rxt(k,212)* y(k,144) + rxt(k,57) + het_rates(k,24))* y(k,24) prod(k,43) = 0._r8 - loss(k,37) = (rxt(k,210)* y(k,144) + rxt(k,58) + het_rates(k,25))* y(k,25) + loss(k,37) = (rxt(k,213)* y(k,144) + rxt(k,58) + het_rates(k,25))* y(k,25) prod(k,37) = 0._r8 - loss(k,75) = (rxt(k,242)* y(k,42) +rxt(k,243)* y(k,111) +rxt(k,254)* y(k,144) & + loss(k,75) = (rxt(k,245)* y(k,42) +rxt(k,246)* y(k,111) +rxt(k,257)* y(k,144) & + rxt(k,59) + het_rates(k,26))* y(k,26) prod(k,75) = 0._r8 - loss(k,136) = (rxt(k,215)* y(k,4) +rxt(k,179)* y(k,42) +rxt(k,259)* y(k,99) & - +rxt(k,260)* y(k,106) +rxt(k,261)* y(k,111) + rxt(k,22) + rxt(k,23) & + loss(k,136) = (rxt(k,218)* y(k,4) +rxt(k,182)* y(k,42) +rxt(k,262)* y(k,99) & + +rxt(k,263)* y(k,106) +rxt(k,264)* y(k,111) + rxt(k,22) + rxt(k,23) & + het_rates(k,27))* y(k,27) - prod(k,136) = (rxt(k,186)*y(k,45) +2.000_r8*rxt(k,262)*y(k,37) + & - rxt(k,263)*y(k,37) +rxt(k,265)*y(k,97) +.700_r8*rxt(k,276)*y(k,10) + & - rxt(k,286)*y(k,32) +rxt(k,303)*y(k,15) +.800_r8*rxt(k,315)*y(k,118) + & - .880_r8*rxt(k,322)*y(k,84) +2.000_r8*rxt(k,331)*y(k,86) + & - 1.200_r8*rxt(k,348)*y(k,81) +.800_r8*rxt(k,358)*y(k,134))*y(k,37) & - + (.500_r8*rxt(k,292)*y(k,57) +rxt(k,313)*y(k,114) + & - rxt(k,317)*y(k,118) +.250_r8*rxt(k,325)*y(k,84) +rxt(k,334)*y(k,86) + & - .072_r8*rxt(k,345)*y(k,80) +.550_r8*rxt(k,350)*y(k,81) + & - .250_r8*rxt(k,360)*y(k,134))*y(k,97) + (rxt(k,266)*y(k,38) + & - .300_r8*rxt(k,267)*y(k,39) +.500_r8*rxt(k,290)*y(k,36) + & - .800_r8*rxt(k,295)*y(k,60) +rxt(k,297)*y(k,113) + & - .500_r8*rxt(k,336)*y(k,87))*y(k,111) + (rxt(k,274)*y(k,9) + & - .500_r8*rxt(k,302)*y(k,14) +.120_r8*rxt(k,327)*y(k,83) + & - .600_r8*rxt(k,337)*y(k,88) +.910_r8*rxt(k,352)*y(k,79))*y(k,108) & - + (.250_r8*rxt(k,321)*y(k,84) +rxt(k,330)*y(k,86) + & - .600_r8*rxt(k,347)*y(k,81) +.250_r8*rxt(k,357)*y(k,134))*y(k,32) & - + (.250_r8*rxt(k,324)*y(k,84) +rxt(k,335)*y(k,86) + & - .072_r8*rxt(k,346)*y(k,80) +.600_r8*rxt(k,351)*y(k,81))*y(k,99) & - + (.180_r8*rxt(k,29) +rxt(k,270)*y(k,144) +rxt(k,271)*y(k,144)) & - *y(k,40) + (.150_r8*rxt(k,316)*y(k,118) +.450_r8*rxt(k,332)*y(k,86) + & - .206_r8*rxt(k,344)*y(k,80))*y(k,139) +rxt(k,28)*y(k,39) & - +2.000_r8*rxt(k,293)*y(k,56) +rxt(k,33)*y(k,60) +rxt(k,35)*y(k,77) & - +.690_r8*rxt(k,36)*y(k,82) +1.340_r8*rxt(k,37)*y(k,83) & - +2.000_r8*rxt(k,333)*y(k,86)*y(k,86) +rxt(k,41)*y(k,100) +rxt(k,42) & + prod(k,136) = (rxt(k,189)*y(k,45) +2.000_r8*rxt(k,265)*y(k,37) + & + rxt(k,266)*y(k,37) +rxt(k,268)*y(k,97) +.700_r8*rxt(k,279)*y(k,10) + & + rxt(k,289)*y(k,32) +rxt(k,306)*y(k,15) +.800_r8*rxt(k,318)*y(k,118) + & + .880_r8*rxt(k,325)*y(k,84) +2.000_r8*rxt(k,334)*y(k,86) + & + 1.200_r8*rxt(k,351)*y(k,81) +.800_r8*rxt(k,361)*y(k,134))*y(k,37) & + + (.500_r8*rxt(k,295)*y(k,57) +rxt(k,316)*y(k,114) + & + rxt(k,320)*y(k,118) +.250_r8*rxt(k,328)*y(k,84) +rxt(k,337)*y(k,86) + & + .072_r8*rxt(k,348)*y(k,80) +.550_r8*rxt(k,353)*y(k,81) + & + .250_r8*rxt(k,363)*y(k,134))*y(k,97) + (rxt(k,269)*y(k,38) + & + .300_r8*rxt(k,270)*y(k,39) +.500_r8*rxt(k,293)*y(k,36) + & + .800_r8*rxt(k,298)*y(k,60) +rxt(k,300)*y(k,113) + & + .500_r8*rxt(k,339)*y(k,87))*y(k,111) + (rxt(k,277)*y(k,9) + & + .500_r8*rxt(k,305)*y(k,14) +.120_r8*rxt(k,330)*y(k,83) + & + .600_r8*rxt(k,340)*y(k,88) +.910_r8*rxt(k,355)*y(k,79))*y(k,108) & + + (.250_r8*rxt(k,324)*y(k,84) +rxt(k,333)*y(k,86) + & + .600_r8*rxt(k,350)*y(k,81) +.250_r8*rxt(k,360)*y(k,134))*y(k,32) & + + (.250_r8*rxt(k,327)*y(k,84) +rxt(k,338)*y(k,86) + & + .072_r8*rxt(k,349)*y(k,80) +.600_r8*rxt(k,354)*y(k,81))*y(k,99) & + + (.180_r8*rxt(k,29) +rxt(k,273)*y(k,144) +rxt(k,274)*y(k,144)) & + *y(k,40) + (.150_r8*rxt(k,319)*y(k,118) +.450_r8*rxt(k,335)*y(k,86) + & + .206_r8*rxt(k,347)*y(k,80))*y(k,139) +rxt(k,28)*y(k,39) & + +2.000_r8*rxt(k,296)*y(k,56) +rxt(k,33)*y(k,60) +rxt(k,35)*y(k,77) & + +rxt(k,36)*y(k,82) +1.340_r8*rxt(k,37)*y(k,83) & + +2.000_r8*rxt(k,336)*y(k,86)*y(k,86) +rxt(k,41)*y(k,100) +rxt(k,42) & *y(k,112) +rxt(k,44)*y(k,117) +rxt(k,45)*y(k,119) - loss(k,86) = (rxt(k,244)* y(k,42) +rxt(k,245)* y(k,111) +rxt(k,255)* y(k,144) & + loss(k,86) = (rxt(k,247)* y(k,42) +rxt(k,248)* y(k,111) +rxt(k,258)* y(k,144) & + rxt(k,60) + het_rates(k,28))* y(k,28) prod(k,86) = 0._r8 - loss(k,33) = (rxt(k,246)* y(k,111) + rxt(k,61) + het_rates(k,29))* y(k,29) + loss(k,33) = (rxt(k,249)* y(k,111) + rxt(k,61) + het_rates(k,29))* y(k,29) prod(k,33) = 0._r8 - loss(k,117) = (rxt(k,283)* y(k,99) +rxt(k,284)* y(k,111) + rxt(k,24) & + loss(k,117) = (rxt(k,286)* y(k,99) +rxt(k,287)* y(k,111) + rxt(k,24) & + het_rates(k,30))* y(k,30) - prod(k,117) = (1.600_r8*rxt(k,275)*y(k,10) +.800_r8*rxt(k,276)*y(k,37) + & - rxt(k,278)*y(k,97))*y(k,10) + (rxt(k,20) + & - .500_r8*rxt(k,280)*y(k,111))*y(k,12) + (.270_r8*rxt(k,305)*y(k,15) + & - rxt(k,313)*y(k,114))*y(k,97) + (.500_r8*rxt(k,302)*y(k,14) + & - .100_r8*rxt(k,337)*y(k,88))*y(k,108) +rxt(k,279)*y(k,111)*y(k,11) & + prod(k,117) = (1.600_r8*rxt(k,278)*y(k,10) +.800_r8*rxt(k,279)*y(k,37) + & + rxt(k,281)*y(k,97))*y(k,10) + (rxt(k,20) + & + .500_r8*rxt(k,283)*y(k,111))*y(k,12) + (.270_r8*rxt(k,308)*y(k,15) + & + rxt(k,316)*y(k,114))*y(k,97) + (.500_r8*rxt(k,305)*y(k,14) + & + .100_r8*rxt(k,340)*y(k,88))*y(k,108) +rxt(k,282)*y(k,111)*y(k,11) & +rxt(k,44)*y(k,117) - loss(k,66) = (rxt(k,247)* y(k,42) +rxt(k,248)* y(k,111) + rxt(k,62) & + loss(k,66) = (rxt(k,250)* y(k,42) +rxt(k,251)* y(k,111) + rxt(k,62) & + het_rates(k,31))* y(k,31) prod(k,66) = 0._r8 - loss(k,126) = (2._r8*rxt(k,285)* y(k,32) +rxt(k,286)* y(k,37) +rxt(k,347) & - * y(k,81) +rxt(k,321)* y(k,84) +rxt(k,288)* y(k,97) +rxt(k,299) & - * y(k,98) +rxt(k,357)* y(k,134) +rxt(k,287)* y(k,139) & + loss(k,126) = (2._r8*rxt(k,288)* y(k,32) +rxt(k,289)* y(k,37) +rxt(k,350) & + * y(k,81) +rxt(k,324)* y(k,84) +rxt(k,291)* y(k,97) +rxt(k,302) & + * y(k,98) +rxt(k,360)* y(k,134) +rxt(k,290)* y(k,139) & + het_rates(k,32))* y(k,32) - prod(k,126) = (rxt(k,331)*y(k,37) +.450_r8*rxt(k,332)*y(k,139) + & - 2.000_r8*rxt(k,333)*y(k,86) +rxt(k,334)*y(k,97) +rxt(k,335)*y(k,99)) & - *y(k,86) + (.530_r8*rxt(k,321)*y(k,32) +.260_r8*rxt(k,322)*y(k,37) + & - .530_r8*rxt(k,324)*y(k,99) +.530_r8*rxt(k,325)*y(k,97))*y(k,84) & - + (rxt(k,26) +rxt(k,308)*y(k,99) +rxt(k,309)*y(k,111))*y(k,34) & - + (.100_r8*rxt(k,327)*y(k,83) +.280_r8*rxt(k,337)*y(k,88) + & - .080_r8*rxt(k,352)*y(k,79))*y(k,108) + (.300_r8*rxt(k,315)*y(k,37) + & - .150_r8*rxt(k,316)*y(k,139) +rxt(k,317)*y(k,97))*y(k,118) & - + (rxt(k,283)*y(k,99) +rxt(k,284)*y(k,111))*y(k,30) & - + (.600_r8*rxt(k,43) +rxt(k,300))*y(k,113) +rxt(k,25)*y(k,33) & - +.500_r8*rxt(k,290)*y(k,111)*y(k,36) +rxt(k,35)*y(k,77) & + prod(k,126) = (rxt(k,334)*y(k,37) +.450_r8*rxt(k,335)*y(k,139) + & + 2.000_r8*rxt(k,336)*y(k,86) +rxt(k,337)*y(k,97) +rxt(k,338)*y(k,99)) & + *y(k,86) + (.530_r8*rxt(k,324)*y(k,32) +.260_r8*rxt(k,325)*y(k,37) + & + .530_r8*rxt(k,327)*y(k,99) +.530_r8*rxt(k,328)*y(k,97))*y(k,84) & + + (rxt(k,26) +rxt(k,311)*y(k,99) +rxt(k,312)*y(k,111))*y(k,34) & + + (.100_r8*rxt(k,330)*y(k,83) +.280_r8*rxt(k,340)*y(k,88) + & + .080_r8*rxt(k,355)*y(k,79))*y(k,108) + (.300_r8*rxt(k,318)*y(k,37) + & + .150_r8*rxt(k,319)*y(k,139) +rxt(k,320)*y(k,97))*y(k,118) & + + (rxt(k,286)*y(k,99) +rxt(k,287)*y(k,111))*y(k,30) & + + (.600_r8*rxt(k,43) +rxt(k,303))*y(k,113) +rxt(k,25)*y(k,33) & + +.500_r8*rxt(k,293)*y(k,111)*y(k,36) +rxt(k,35)*y(k,77) & +1.340_r8*rxt(k,37)*y(k,83) +.300_r8*rxt(k,40)*y(k,88) +rxt(k,41) & *y(k,100) +rxt(k,45)*y(k,119) - loss(k,95) = (rxt(k,320)* y(k,111) + rxt(k,25) + het_rates(k,33))* y(k,33) - prod(k,95) = (.820_r8*rxt(k,303)*y(k,37) +.820_r8*rxt(k,305)*y(k,97))*y(k,15) & - +.820_r8*rxt(k,21)*y(k,16) +.100_r8*rxt(k,365)*y(k,133)*y(k,111) - loss(k,121) = (rxt(k,308)* y(k,99) +rxt(k,309)* y(k,111) + rxt(k,26) & + loss(k,95) = (rxt(k,323)* y(k,111) + rxt(k,25) + het_rates(k,33))* y(k,33) + prod(k,95) = (.820_r8*rxt(k,306)*y(k,37) +.820_r8*rxt(k,308)*y(k,97))*y(k,15) & + +.820_r8*rxt(k,21)*y(k,16) +.100_r8*rxt(k,368)*y(k,133)*y(k,111) + loss(k,121) = (rxt(k,311)* y(k,99) +rxt(k,312)* y(k,111) + rxt(k,26) & + het_rates(k,34))* y(k,34) - prod(k,121) = (.250_r8*rxt(k,321)*y(k,32) +.240_r8*rxt(k,322)*y(k,37) + & - .250_r8*rxt(k,324)*y(k,99) +.250_r8*rxt(k,325)*y(k,97))*y(k,84) & - + (.250_r8*rxt(k,357)*y(k,32) +.100_r8*rxt(k,358)*y(k,37) + & - .250_r8*rxt(k,360)*y(k,97) +.250_r8*rxt(k,361)*y(k,99))*y(k,134) & - + (.880_r8*rxt(k,327)*y(k,83) +.500_r8*rxt(k,337)*y(k,88))*y(k,108) & - + (rxt(k,310)*y(k,77) +rxt(k,311)*y(k,100))*y(k,111) & - +.500_r8*rxt(k,315)*y(k,118)*y(k,37) +.020_r8*rxt(k,350)*y(k,97) & + prod(k,121) = (.250_r8*rxt(k,324)*y(k,32) +.240_r8*rxt(k,325)*y(k,37) + & + .250_r8*rxt(k,327)*y(k,99) +.250_r8*rxt(k,328)*y(k,97))*y(k,84) & + + (.250_r8*rxt(k,360)*y(k,32) +.100_r8*rxt(k,361)*y(k,37) + & + .250_r8*rxt(k,363)*y(k,97) +.250_r8*rxt(k,364)*y(k,99))*y(k,134) & + + (.880_r8*rxt(k,330)*y(k,83) +.500_r8*rxt(k,340)*y(k,88))*y(k,108) & + + (rxt(k,313)*y(k,77) +rxt(k,314)*y(k,100))*y(k,111) & + +.500_r8*rxt(k,318)*y(k,118)*y(k,37) +.020_r8*rxt(k,353)*y(k,97) & *y(k,81) - loss(k,89) = (rxt(k,289)* y(k,111) + het_rates(k,35))* y(k,35) - prod(k,89) = (.100_r8*rxt(k,286)*y(k,37) +.150_r8*rxt(k,287)*y(k,139)) & - *y(k,32) +.120_r8*rxt(k,302)*y(k,108)*y(k,14) & - +.150_r8*rxt(k,332)*y(k,139)*y(k,86) - loss(k,85) = (rxt(k,290)* y(k,111) + rxt(k,27) + het_rates(k,36))* y(k,36) - prod(k,85) = (.400_r8*rxt(k,287)*y(k,32) +.400_r8*rxt(k,332)*y(k,86)) & + loss(k,89) = (rxt(k,292)* y(k,111) + het_rates(k,35))* y(k,35) + prod(k,89) = (.100_r8*rxt(k,289)*y(k,37) +.150_r8*rxt(k,290)*y(k,139)) & + *y(k,32) +.120_r8*rxt(k,305)*y(k,108)*y(k,14) & + +.150_r8*rxt(k,335)*y(k,139)*y(k,86) + loss(k,85) = (rxt(k,293)* y(k,111) + rxt(k,27) + het_rates(k,36))* y(k,36) + prod(k,85) = (.400_r8*rxt(k,290)*y(k,32) +.400_r8*rxt(k,335)*y(k,86)) & *y(k,139) - loss(k,140) = (rxt(k,276)* y(k,10) +rxt(k,303)* y(k,15) +rxt(k,286)* y(k,32) & - + 2._r8*(rxt(k,262) +rxt(k,263))* y(k,37) +rxt(k,186)* y(k,45) & - +rxt(k,348)* y(k,81) +rxt(k,322)* y(k,84) +rxt(k,331)* y(k,86) & - +rxt(k,265)* y(k,97) +rxt(k,315)* y(k,118) +rxt(k,358)* y(k,134) & - +rxt(k,264)* y(k,139) + het_rates(k,37))* y(k,37) - prod(k,140) = (2.000_r8*rxt(k,285)*y(k,32) +.900_r8*rxt(k,286)*y(k,37) + & - .450_r8*rxt(k,287)*y(k,139) +rxt(k,288)*y(k,97) +rxt(k,321)*y(k,84) + & - rxt(k,330)*y(k,86) +rxt(k,347)*y(k,81) +rxt(k,357)*y(k,134))*y(k,32) & - + (rxt(k,30) +rxt(k,180)*y(k,42) +rxt(k,236)*y(k,59) + & - rxt(k,268)*y(k,111) +rxt(k,269)*y(k,144))*y(k,40) & - + (.280_r8*rxt(k,302)*y(k,14) +.050_r8*rxt(k,352)*y(k,79))*y(k,108) & - + (.700_r8*rxt(k,267)*y(k,39) +rxt(k,289)*y(k,35))*y(k,111) & + loss(k,140) = (rxt(k,279)* y(k,10) +rxt(k,306)* y(k,15) +rxt(k,289)* y(k,32) & + + 2._r8*(rxt(k,265) +rxt(k,266))* y(k,37) +rxt(k,189)* y(k,45) & + +rxt(k,351)* y(k,81) +rxt(k,325)* y(k,84) +rxt(k,334)* y(k,86) & + +rxt(k,268)* y(k,97) +rxt(k,318)* y(k,118) +rxt(k,361)* y(k,134) & + +rxt(k,267)* y(k,139) + het_rates(k,37))* y(k,37) + prod(k,140) = (2.000_r8*rxt(k,288)*y(k,32) +.900_r8*rxt(k,289)*y(k,37) + & + .450_r8*rxt(k,290)*y(k,139) +rxt(k,291)*y(k,97) +rxt(k,324)*y(k,84) + & + rxt(k,333)*y(k,86) +rxt(k,350)*y(k,81) +rxt(k,360)*y(k,134))*y(k,32) & + + (rxt(k,30) +rxt(k,183)*y(k,42) +rxt(k,239)*y(k,59) + & + rxt(k,271)*y(k,111) +rxt(k,272)*y(k,144))*y(k,40) & + + (.280_r8*rxt(k,305)*y(k,14) +.050_r8*rxt(k,355)*y(k,79))*y(k,108) & + + (.700_r8*rxt(k,270)*y(k,39) +rxt(k,292)*y(k,35))*y(k,111) & +rxt(k,60)*y(k,28) +rxt(k,24)*y(k,30) +rxt(k,62)*y(k,31) +rxt(k,25) & *y(k,33) +rxt(k,27)*y(k,36) +.300_r8*rxt(k,40)*y(k,88) & +.400_r8*rxt(k,43)*y(k,113) - loss(k,80) = (rxt(k,266)* y(k,111) + het_rates(k,38))* y(k,38) - prod(k,80) = (rxt(k,263)*y(k,37) +.300_r8*rxt(k,276)*y(k,10) + & - .500_r8*rxt(k,315)*y(k,118) +.250_r8*rxt(k,322)*y(k,84) + & - .250_r8*rxt(k,348)*y(k,81) +.300_r8*rxt(k,358)*y(k,134))*y(k,37) - loss(k,69) = (rxt(k,267)* y(k,111) + rxt(k,28) + het_rates(k,39))* y(k,39) - prod(k,69) =rxt(k,264)*y(k,139)*y(k,37) - loss(k,147) = (rxt(k,180)* y(k,42) +rxt(k,236)* y(k,59) +rxt(k,268)* y(k,111) & - + (rxt(k,269) +rxt(k,270) +rxt(k,271))* y(k,144) + rxt(k,29) & + loss(k,80) = (rxt(k,269)* y(k,111) + het_rates(k,38))* y(k,38) + prod(k,80) = (rxt(k,266)*y(k,37) +.300_r8*rxt(k,279)*y(k,10) + & + .500_r8*rxt(k,318)*y(k,118) +.250_r8*rxt(k,325)*y(k,84) + & + .250_r8*rxt(k,351)*y(k,81) +.300_r8*rxt(k,361)*y(k,134))*y(k,37) + loss(k,69) = (rxt(k,270)* y(k,111) + rxt(k,28) + het_rates(k,39))* y(k,39) + prod(k,69) =rxt(k,267)*y(k,139)*y(k,37) + loss(k,147) = (rxt(k,183)* y(k,42) +rxt(k,239)* y(k,59) +rxt(k,271)* y(k,111) & + + (rxt(k,272) +rxt(k,273) +rxt(k,274))* y(k,144) + rxt(k,29) & + rxt(k,30) + het_rates(k,40))* y(k,40) - prod(k,147) =.100_r8*rxt(k,302)*y(k,108)*y(k,14) - loss(k,71) = (rxt(k,249)* y(k,42) +rxt(k,250)* y(k,111) +rxt(k,232)* y(k,144) & + prod(k,147) =.100_r8*rxt(k,305)*y(k,108)*y(k,14) + loss(k,71) = (rxt(k,252)* y(k,42) +rxt(k,253)* y(k,111) +rxt(k,235)* y(k,144) & + rxt(k,63) + het_rates(k,41))* y(k,41) prod(k,71) = 0._r8 - loss(k,143) = (rxt(k,281)* y(k,13) +rxt(k,242)* y(k,26) +rxt(k,179)* y(k,27) & - +rxt(k,244)* y(k,28) +rxt(k,247)* y(k,31) +rxt(k,180)* y(k,40) & - +rxt(k,249)* y(k,41) +rxt(k,192)* y(k,46) +rxt(k,181)* y(k,63) & - +rxt(k,182)* y(k,65) +rxt(k,201)* y(k,76) +rxt(k,185)* y(k,108) & - + (rxt(k,183) +rxt(k,184))* y(k,139) + het_rates(k,42))* y(k,42) - prod(k,143) = (4.000_r8*rxt(k,204)*y(k,18) +rxt(k,205)*y(k,19) + & - 2.000_r8*rxt(k,206)*y(k,21) +2.000_r8*rxt(k,207)*y(k,22) + & - 2.000_r8*rxt(k,208)*y(k,23) +rxt(k,209)*y(k,24) + & - 2.000_r8*rxt(k,210)*y(k,25) +rxt(k,211)*y(k,71) +rxt(k,241)*y(k,51) + & - rxt(k,256)*y(k,68) +rxt(k,257)*y(k,69) +rxt(k,258)*y(k,70))*y(k,144) & - + (rxt(k,66) +rxt(k,186)*y(k,37) +2.000_r8*rxt(k,187)*y(k,45) + & - rxt(k,189)*y(k,45) +rxt(k,191)*y(k,97) +rxt(k,196)*y(k,106) + & - rxt(k,197)*y(k,111) +rxt(k,220)*y(k,6) +rxt(k,374)*y(k,122))*y(k,45) & - + (rxt(k,200)*y(k,71) +3.000_r8*rxt(k,246)*y(k,29) + & - rxt(k,248)*y(k,31) +rxt(k,251)*y(k,68) +rxt(k,252)*y(k,69) + & - rxt(k,253)*y(k,70))*y(k,111) + (rxt(k,76) +rxt(k,199)*y(k,106)) & + loss(k,143) = (rxt(k,284)* y(k,13) +rxt(k,245)* y(k,26) +rxt(k,182)* y(k,27) & + +rxt(k,247)* y(k,28) +rxt(k,250)* y(k,31) +rxt(k,183)* y(k,40) & + +rxt(k,252)* y(k,41) +rxt(k,195)* y(k,46) +rxt(k,184)* y(k,63) & + +rxt(k,185)* y(k,65) +rxt(k,204)* y(k,76) +rxt(k,188)* y(k,108) & + + (rxt(k,186) +rxt(k,187))* y(k,139) + het_rates(k,42))* y(k,42) + prod(k,143) = (4.000_r8*rxt(k,207)*y(k,18) +rxt(k,208)*y(k,19) + & + 2.000_r8*rxt(k,209)*y(k,21) +2.000_r8*rxt(k,210)*y(k,22) + & + 2.000_r8*rxt(k,211)*y(k,23) +rxt(k,212)*y(k,24) + & + 2.000_r8*rxt(k,213)*y(k,25) +rxt(k,214)*y(k,71) +rxt(k,244)*y(k,51) + & + rxt(k,259)*y(k,68) +rxt(k,260)*y(k,69) +rxt(k,261)*y(k,70))*y(k,144) & + + (rxt(k,66) +rxt(k,189)*y(k,37) +2.000_r8*rxt(k,190)*y(k,45) + & + rxt(k,192)*y(k,45) +rxt(k,194)*y(k,97) +rxt(k,199)*y(k,106) + & + rxt(k,200)*y(k,111) +rxt(k,223)*y(k,6) +rxt(k,377)*y(k,122))*y(k,45) & + + (rxt(k,203)*y(k,71) +3.000_r8*rxt(k,249)*y(k,29) + & + rxt(k,251)*y(k,31) +rxt(k,254)*y(k,68) +rxt(k,255)*y(k,69) + & + rxt(k,256)*y(k,70))*y(k,111) + (rxt(k,76) +rxt(k,202)*y(k,106)) & *y(k,71) +rxt(k,47)*y(k,5) +4.000_r8*rxt(k,51)*y(k,18) +rxt(k,52) & *y(k,19) +2.000_r8*rxt(k,54)*y(k,21) +2.000_r8*rxt(k,55)*y(k,22) & +2.000_r8*rxt(k,56)*y(k,23) +rxt(k,57)*y(k,24) +2.000_r8*rxt(k,58) & @@ -268,70 +268,70 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & *y(k,46) +rxt(k,70)*y(k,51) +rxt(k,73)*y(k,68) +rxt(k,74)*y(k,69) & +rxt(k,75)*y(k,70) +rxt(k,79)*y(k,76) loss(k,44) = ( + rxt(k,64) + het_rates(k,43))* y(k,43) - prod(k,44) = (rxt(k,392)*y(k,76) +rxt(k,397)*y(k,46) +rxt(k,398)*y(k,76) + & - rxt(k,402)*y(k,46) +rxt(k,403)*y(k,76) +rxt(k,407)*y(k,46))*y(k,71) & - +rxt(k,192)*y(k,46)*y(k,42) +rxt(k,188)*y(k,45)*y(k,45) - loss(k,28) = ( + rxt(k,65) + rxt(k,214) + het_rates(k,44))* y(k,44) - prod(k,28) =rxt(k,213)*y(k,45)*y(k,45) - loss(k,134) = ((rxt(k,219) +rxt(k,220) +rxt(k,221))* y(k,6) +rxt(k,186) & - * y(k,37) + 2._r8*(rxt(k,187) +rxt(k,188) +rxt(k,189) +rxt(k,213)) & - * y(k,45) +rxt(k,191)* y(k,97) +rxt(k,193)* y(k,98) +rxt(k,196) & - * y(k,106) + (rxt(k,197) +rxt(k,198))* y(k,111) +rxt(k,374)* y(k,122) & - +rxt(k,190)* y(k,139) + rxt(k,66) + het_rates(k,45))* y(k,45) - prod(k,134) = (rxt(k,184)*y(k,139) +rxt(k,185)*y(k,108) +rxt(k,201)*y(k,76)) & - *y(k,42) + (rxt(k,68) +rxt(k,194)*y(k,106))*y(k,46) & - + (rxt(k,202)*y(k,106) +rxt(k,203)*y(k,111))*y(k,76) + (rxt(k,80) + & - rxt(k,379)*y(k,122))*y(k,109) +2.000_r8*rxt(k,214)*y(k,44) & - +rxt(k,212)*y(k,144)*y(k,71) - loss(k,111) = (rxt(k,192)* y(k,42) + (rxt(k,397) +rxt(k,402) +rxt(k,407)) & - * y(k,71) +rxt(k,194)* y(k,106) +rxt(k,195)* y(k,111) + rxt(k,67) & - + rxt(k,68) + rxt(k,395) + rxt(k,400) + rxt(k,406) & + prod(k,44) = (rxt(k,395)*y(k,76) +rxt(k,400)*y(k,46) +rxt(k,401)*y(k,76) + & + rxt(k,405)*y(k,46) +rxt(k,406)*y(k,76) +rxt(k,410)*y(k,46))*y(k,71) & + +rxt(k,195)*y(k,46)*y(k,42) +rxt(k,191)*y(k,45)*y(k,45) + loss(k,28) = ( + rxt(k,65) + rxt(k,217) + het_rates(k,44))* y(k,44) + prod(k,28) =rxt(k,216)*y(k,45)*y(k,45) + loss(k,134) = ((rxt(k,222) +rxt(k,223) +rxt(k,224))* y(k,6) +rxt(k,189) & + * y(k,37) + 2._r8*(rxt(k,190) +rxt(k,191) +rxt(k,192) +rxt(k,216)) & + * y(k,45) +rxt(k,194)* y(k,97) +rxt(k,196)* y(k,98) +rxt(k,199) & + * y(k,106) + (rxt(k,200) +rxt(k,201))* y(k,111) +rxt(k,377)* y(k,122) & + +rxt(k,193)* y(k,139) + rxt(k,66) + het_rates(k,45))* y(k,45) + prod(k,134) = (rxt(k,187)*y(k,139) +rxt(k,188)*y(k,108) +rxt(k,204)*y(k,76)) & + *y(k,42) + (rxt(k,68) +rxt(k,197)*y(k,106))*y(k,46) & + + (rxt(k,205)*y(k,106) +rxt(k,206)*y(k,111))*y(k,76) + (rxt(k,80) + & + rxt(k,382)*y(k,122))*y(k,109) +2.000_r8*rxt(k,217)*y(k,44) & + +rxt(k,215)*y(k,144)*y(k,71) + loss(k,111) = (rxt(k,195)* y(k,42) + (rxt(k,400) +rxt(k,405) +rxt(k,410)) & + * y(k,71) +rxt(k,197)* y(k,106) +rxt(k,198)* y(k,111) + rxt(k,67) & + + rxt(k,68) + rxt(k,398) + rxt(k,403) + rxt(k,409) & + het_rates(k,46))* y(k,46) - prod(k,111) =rxt(k,193)*y(k,98)*y(k,45) + prod(k,111) =rxt(k,196)*y(k,98)*y(k,45) loss(k,4) = ( + het_rates(k,47))* y(k,47) prod(k,4) = 0._r8 - loss(k,118) = (rxt(k,272)* y(k,111) + het_rates(k,48))* y(k,48) - prod(k,118) = (rxt(k,22) +rxt(k,23) +rxt(k,179)*y(k,42) +rxt(k,215)*y(k,4) + & - rxt(k,259)*y(k,99) +rxt(k,260)*y(k,106) +rxt(k,261)*y(k,111))*y(k,27) & - + (.630_r8*rxt(k,274)*y(k,9) +.560_r8*rxt(k,302)*y(k,14) + & - .650_r8*rxt(k,327)*y(k,83) +.560_r8*rxt(k,337)*y(k,88) + & - .620_r8*rxt(k,352)*y(k,79))*y(k,108) + (.220_r8*rxt(k,321)*y(k,32) + & - .110_r8*rxt(k,322)*y(k,37) +.220_r8*rxt(k,324)*y(k,99) + & - .220_r8*rxt(k,325)*y(k,97))*y(k,84) + (.250_r8*rxt(k,357)*y(k,32) + & - .200_r8*rxt(k,358)*y(k,37) +.250_r8*rxt(k,360)*y(k,97) + & - .500_r8*rxt(k,361)*y(k,99))*y(k,134) + (rxt(k,26) + & - rxt(k,308)*y(k,99) +rxt(k,309)*y(k,111))*y(k,34) + (rxt(k,31) + & - rxt(k,82) +rxt(k,423)*y(k,148))*y(k,49) + (rxt(k,109) + & - rxt(k,368)*y(k,106) +rxt(k,369)*y(k,111))*y(k,110) & - + (2.000_r8*rxt(k,34) +rxt(k,296)*y(k,111))*y(k,61) +rxt(k,24) & - *y(k,30) +rxt(k,247)*y(k,42)*y(k,31) +.380_r8*rxt(k,29)*y(k,40) & + loss(k,118) = (rxt(k,275)* y(k,111) + het_rates(k,48))* y(k,48) + prod(k,118) = (rxt(k,22) +rxt(k,23) +rxt(k,182)*y(k,42) +rxt(k,218)*y(k,4) + & + rxt(k,262)*y(k,99) +rxt(k,263)*y(k,106) +rxt(k,264)*y(k,111))*y(k,27) & + + (.630_r8*rxt(k,277)*y(k,9) +.560_r8*rxt(k,305)*y(k,14) + & + .650_r8*rxt(k,330)*y(k,83) +.560_r8*rxt(k,340)*y(k,88) + & + .620_r8*rxt(k,355)*y(k,79))*y(k,108) + (.220_r8*rxt(k,324)*y(k,32) + & + .110_r8*rxt(k,325)*y(k,37) +.220_r8*rxt(k,327)*y(k,99) + & + .220_r8*rxt(k,328)*y(k,97))*y(k,84) + (.250_r8*rxt(k,360)*y(k,32) + & + .200_r8*rxt(k,361)*y(k,37) +.250_r8*rxt(k,363)*y(k,97) + & + .500_r8*rxt(k,364)*y(k,99))*y(k,134) + (rxt(k,26) + & + rxt(k,311)*y(k,99) +rxt(k,312)*y(k,111))*y(k,34) + (rxt(k,31) + & + rxt(k,82) +rxt(k,426)*y(k,148))*y(k,49) + (rxt(k,109) + & + rxt(k,371)*y(k,106) +rxt(k,372)*y(k,111))*y(k,110) & + + (2.000_r8*rxt(k,34) +rxt(k,299)*y(k,111))*y(k,61) +rxt(k,24) & + *y(k,30) +rxt(k,250)*y(k,42)*y(k,31) +.380_r8*rxt(k,29)*y(k,40) & +rxt(k,33)*y(k,60) +1.340_r8*rxt(k,38)*y(k,83) +.700_r8*rxt(k,40) & *y(k,88) +rxt(k,42)*y(k,112) - loss(k,127) = (rxt(k,423)* y(k,148) + rxt(k,31) + rxt(k,82) & + loss(k,127) = (rxt(k,426)* y(k,148) + rxt(k,31) + rxt(k,82) & + het_rates(k,49))* y(k,49) - prod(k,127) = (rxt(k,272)*y(k,48) +rxt(k,289)*y(k,35) + & - .500_r8*rxt(k,290)*y(k,36) +.800_r8*rxt(k,295)*y(k,60) + & - rxt(k,296)*y(k,61) +.500_r8*rxt(k,336)*y(k,87))*y(k,111) & - + (2.000_r8*rxt(k,285)*y(k,32) +.900_r8*rxt(k,286)*y(k,37) + & - rxt(k,288)*y(k,97) +2.000_r8*rxt(k,330)*y(k,86) +rxt(k,357)*y(k,134)) & - *y(k,32) + (rxt(k,331)*y(k,37) +.450_r8*rxt(k,332)*y(k,139) + & - 2.000_r8*rxt(k,333)*y(k,86))*y(k,86) + (.200_r8*rxt(k,302)*y(k,14) + & - .100_r8*rxt(k,337)*y(k,88))*y(k,108) +rxt(k,27)*y(k,36) & + prod(k,127) = (rxt(k,275)*y(k,48) +rxt(k,292)*y(k,35) + & + .500_r8*rxt(k,293)*y(k,36) +.800_r8*rxt(k,298)*y(k,60) + & + rxt(k,299)*y(k,61) +.500_r8*rxt(k,339)*y(k,87))*y(k,111) & + + (2.000_r8*rxt(k,288)*y(k,32) +.900_r8*rxt(k,289)*y(k,37) + & + rxt(k,291)*y(k,97) +2.000_r8*rxt(k,333)*y(k,86) +rxt(k,360)*y(k,134)) & + *y(k,32) + (rxt(k,334)*y(k,37) +.450_r8*rxt(k,335)*y(k,139) + & + 2.000_r8*rxt(k,336)*y(k,86))*y(k,86) + (.200_r8*rxt(k,305)*y(k,14) + & + .100_r8*rxt(k,340)*y(k,88))*y(k,108) +rxt(k,27)*y(k,36) & +.440_r8*rxt(k,29)*y(k,40) +.400_r8*rxt(k,43)*y(k,113) - loss(k,48) = (rxt(k,240)* y(k,144) + rxt(k,69) + het_rates(k,50))* y(k,50) - prod(k,48) = (rxt(k,205)*y(k,19) +rxt(k,207)*y(k,22) + & - 2.000_r8*rxt(k,208)*y(k,23) +2.000_r8*rxt(k,209)*y(k,24) + & - rxt(k,210)*y(k,25) +rxt(k,231)*y(k,20) +2.000_r8*rxt(k,233)*y(k,64) + & - rxt(k,257)*y(k,69) +rxt(k,258)*y(k,70))*y(k,144) + (rxt(k,74) + & - rxt(k,252)*y(k,111))*y(k,69) + (rxt(k,75) +rxt(k,253)*y(k,111)) & + loss(k,48) = (rxt(k,243)* y(k,144) + rxt(k,69) + het_rates(k,50))* y(k,50) + prod(k,48) = (rxt(k,208)*y(k,19) +rxt(k,210)*y(k,22) + & + 2.000_r8*rxt(k,211)*y(k,23) +2.000_r8*rxt(k,212)*y(k,24) + & + rxt(k,213)*y(k,25) +rxt(k,234)*y(k,20) +2.000_r8*rxt(k,236)*y(k,64) + & + rxt(k,260)*y(k,69) +rxt(k,261)*y(k,70))*y(k,144) + (rxt(k,74) + & + rxt(k,255)*y(k,111))*y(k,69) + (rxt(k,75) +rxt(k,256)*y(k,111)) & *y(k,70) +rxt(k,52)*y(k,19) +rxt(k,53)*y(k,20) +rxt(k,55)*y(k,22) & +2.000_r8*rxt(k,56)*y(k,23) +2.000_r8*rxt(k,57)*y(k,24) +rxt(k,58) & *y(k,25) +2.000_r8*rxt(k,71)*y(k,64) - loss(k,51) = (rxt(k,241)* y(k,144) + rxt(k,70) + het_rates(k,51))* y(k,51) - prod(k,51) = (rxt(k,73) +rxt(k,251)*y(k,111) +rxt(k,256)*y(k,144))*y(k,68) & - + (rxt(k,54) +rxt(k,206)*y(k,144))*y(k,21) + (rxt(k,55) + & - rxt(k,207)*y(k,144))*y(k,22) - loss(k,56) = (rxt(k,366)* y(k,99) + (rxt(k,367) +rxt(k,381))* y(k,111) & + loss(k,51) = (rxt(k,244)* y(k,144) + rxt(k,70) + het_rates(k,51))* y(k,51) + prod(k,51) = (rxt(k,73) +rxt(k,254)*y(k,111) +rxt(k,259)*y(k,144))*y(k,68) & + + (rxt(k,54) +rxt(k,209)*y(k,144))*y(k,21) + (rxt(k,55) + & + rxt(k,210)*y(k,144))*y(k,22) + loss(k,56) = (rxt(k,369)* y(k,99) + (rxt(k,370) +rxt(k,384))* y(k,111) & + het_rates(k,52))* y(k,52) prod(k,56) = 0._r8 loss(k,5) = ( + het_rates(k,53))* y(k,53) @@ -340,166 +340,166 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,6) = 0._r8 loss(k,7) = ( + het_rates(k,55))* y(k,55) prod(k,7) = 0._r8 - loss(k,72) = (rxt(k,294)* y(k,107) + rxt(k,293) + het_rates(k,56))* y(k,56) - prod(k,72) =.750_r8*rxt(k,292)*y(k,97)*y(k,57) +rxt(k,32)*y(k,58) - loss(k,93) = (rxt(k,292)* y(k,97) +rxt(k,291)* y(k,139) + het_rates(k,57)) & + loss(k,72) = (rxt(k,297)* y(k,107) + rxt(k,296) + het_rates(k,56))* y(k,56) + prod(k,72) =.750_r8*rxt(k,295)*y(k,97)*y(k,57) +rxt(k,32)*y(k,58) + loss(k,93) = (rxt(k,295)* y(k,97) +rxt(k,294)* y(k,139) + het_rates(k,57)) & * y(k,57) - prod(k,93) =rxt(k,298)*y(k,111)*y(k,9) + prod(k,93) =rxt(k,301)*y(k,111)*y(k,9) loss(k,38) = ( + rxt(k,32) + het_rates(k,58))* y(k,58) - prod(k,38) =rxt(k,291)*y(k,139)*y(k,57) - loss(k,104) = (rxt(k,236)* y(k,40) +rxt(k,237)* y(k,63) +rxt(k,239)* y(k,73) & - +rxt(k,238)* y(k,151) + het_rates(k,59))* y(k,59) - prod(k,104) = (rxt(k,209)*y(k,24) +rxt(k,231)*y(k,20) + & - 2.000_r8*rxt(k,240)*y(k,50) +rxt(k,241)*y(k,51))*y(k,144) +rxt(k,53) & + prod(k,38) =rxt(k,294)*y(k,139)*y(k,57) + loss(k,104) = (rxt(k,239)* y(k,40) +rxt(k,240)* y(k,63) +rxt(k,242)* y(k,73) & + +rxt(k,241)* y(k,151) + het_rates(k,59))* y(k,59) + prod(k,104) = (rxt(k,212)*y(k,24) +rxt(k,234)*y(k,20) + & + 2.000_r8*rxt(k,243)*y(k,50) +rxt(k,244)*y(k,51))*y(k,144) +rxt(k,53) & *y(k,20) +rxt(k,57)*y(k,24) +2.000_r8*rxt(k,69)*y(k,50) +rxt(k,70) & *y(k,51) +rxt(k,77)*y(k,72) - loss(k,114) = (rxt(k,295)* y(k,111) + rxt(k,33) + het_rates(k,60))* y(k,60) - prod(k,114) = (.530_r8*rxt(k,321)*y(k,32) +.260_r8*rxt(k,322)*y(k,37) + & - .530_r8*rxt(k,324)*y(k,99) +.530_r8*rxt(k,325)*y(k,97))*y(k,84) & - + (.250_r8*rxt(k,357)*y(k,32) +.100_r8*rxt(k,358)*y(k,37) + & - .250_r8*rxt(k,360)*y(k,97) +.250_r8*rxt(k,361)*y(k,99))*y(k,134) & - +rxt(k,294)*y(k,107)*y(k,56) +.020_r8*rxt(k,350)*y(k,97)*y(k,81) - loss(k,91) = (rxt(k,296)* y(k,111) + rxt(k,34) + het_rates(k,61))* y(k,61) - prod(k,91) = (.250_r8*rxt(k,357)*y(k,32) +.100_r8*rxt(k,358)*y(k,37) + & - .250_r8*rxt(k,360)*y(k,97) +.250_r8*rxt(k,361)*y(k,99))*y(k,134) & - +.200_r8*rxt(k,295)*y(k,111)*y(k,60) +.020_r8*rxt(k,350)*y(k,97) & + loss(k,114) = (rxt(k,298)* y(k,111) + rxt(k,33) + het_rates(k,60))* y(k,60) + prod(k,114) = (.530_r8*rxt(k,324)*y(k,32) +.260_r8*rxt(k,325)*y(k,37) + & + .530_r8*rxt(k,327)*y(k,99) +.530_r8*rxt(k,328)*y(k,97))*y(k,84) & + + (.250_r8*rxt(k,360)*y(k,32) +.100_r8*rxt(k,361)*y(k,37) + & + .250_r8*rxt(k,363)*y(k,97) +.250_r8*rxt(k,364)*y(k,99))*y(k,134) & + +rxt(k,297)*y(k,107)*y(k,56) +.020_r8*rxt(k,353)*y(k,97)*y(k,81) + loss(k,91) = (rxt(k,299)* y(k,111) + rxt(k,34) + het_rates(k,61))* y(k,61) + prod(k,91) = (.250_r8*rxt(k,360)*y(k,32) +.100_r8*rxt(k,361)*y(k,37) + & + .250_r8*rxt(k,363)*y(k,97) +.250_r8*rxt(k,364)*y(k,99))*y(k,134) & + +.200_r8*rxt(k,298)*y(k,111)*y(k,60) +.020_r8*rxt(k,353)*y(k,97) & *y(k,81) loss(k,148) = (rxt(k,140)* y(k,107) +rxt(k,143)* y(k,108) + (rxt(k,137) + & rxt(k,138) +rxt(k,139))* y(k,139) + het_rates(k,62))* y(k,62) prod(k,148) = (rxt(k,144)*y(k,63) +rxt(k,147)*y(k,106) +rxt(k,167)*y(k,89) + & - rxt(k,261)*y(k,27) +rxt(k,369)*y(k,110) +rxt(k,375)*y(k,120) + & - rxt(k,380)*y(k,122))*y(k,111) + (rxt(k,117)*y(k,144) + & - rxt(k,135)*y(k,106) +rxt(k,181)*y(k,42) +rxt(k,237)*y(k,59))*y(k,63) & - + (.330_r8*rxt(k,29) +rxt(k,30) +rxt(k,270)*y(k,144))*y(k,40) & - + (rxt(k,72) +rxt(k,235)*y(k,144))*y(k,67) + (rxt(k,76) + & - rxt(k,212)*y(k,144))*y(k,71) + (rxt(k,2) +2.000_r8*rxt(k,3))*y(k,151) & + rxt(k,264)*y(k,27) +rxt(k,372)*y(k,110) +rxt(k,378)*y(k,120) + & + rxt(k,383)*y(k,122))*y(k,111) + (rxt(k,117)*y(k,144) + & + rxt(k,135)*y(k,106) +rxt(k,184)*y(k,42) +rxt(k,240)*y(k,59))*y(k,63) & + + (.330_r8*rxt(k,29) +rxt(k,30) +rxt(k,273)*y(k,144))*y(k,40) & + + (rxt(k,72) +rxt(k,238)*y(k,144))*y(k,67) + (rxt(k,76) + & + rxt(k,215)*y(k,144))*y(k,71) + (rxt(k,2) +2.000_r8*rxt(k,3))*y(k,151) & +2.000_r8*rxt(k,22)*y(k,27) +rxt(k,28)*y(k,39) +rxt(k,77)*y(k,72) - loss(k,128) = (rxt(k,181)* y(k,42) +rxt(k,237)* y(k,59) +rxt(k,135)* y(k,106) & + loss(k,128) = (rxt(k,184)* y(k,42) +rxt(k,240)* y(k,59) +rxt(k,135)* y(k,106) & +rxt(k,144)* y(k,111) +rxt(k,117)* y(k,144) + het_rates(k,63)) & * y(k,63) - prod(k,128) = (1.440_r8*rxt(k,29) +rxt(k,271)*y(k,144))*y(k,40) +rxt(k,23) & + prod(k,128) = (1.440_r8*rxt(k,29) +rxt(k,274)*y(k,144))*y(k,40) +rxt(k,23) & *y(k,27) +rxt(k,137)*y(k,139)*y(k,62) +rxt(k,1)*y(k,151) - loss(k,32) = (rxt(k,233)* y(k,144) + rxt(k,71) + het_rates(k,64))* y(k,64) + loss(k,32) = (rxt(k,236)* y(k,144) + rxt(k,71) + het_rates(k,64))* y(k,64) prod(k,32) = 0._r8 - loss(k,84) = (rxt(k,182)* y(k,42) +rxt(k,136)* y(k,106) +rxt(k,145)* y(k,111) & + loss(k,84) = (rxt(k,185)* y(k,42) +rxt(k,136)* y(k,106) +rxt(k,145)* y(k,111) & + rxt(k,4) + het_rates(k,65))* y(k,65) prod(k,84) =rxt(k,150)*y(k,111)*y(k,111) +rxt(k,151)*y(k,139)*y(k,139) loss(k,39) = ( + rxt(k,108) + het_rates(k,66))* y(k,66) - prod(k,39) =rxt(k,382)*y(k,151)*y(k,124) - loss(k,99) = (rxt(k,228)* y(k,106) +rxt(k,229)* y(k,111) + (rxt(k,234) + & - rxt(k,235))* y(k,144) + rxt(k,72) + het_rates(k,67))* y(k,67) - prod(k,99) = (rxt(k,215)*y(k,27) +rxt(k,216)*y(k,139))*y(k,4) - loss(k,50) = (rxt(k,251)* y(k,111) +rxt(k,256)* y(k,144) + rxt(k,73) & + prod(k,39) =rxt(k,385)*y(k,151)*y(k,124) + loss(k,99) = (rxt(k,231)* y(k,106) +rxt(k,232)* y(k,111) + (rxt(k,237) + & + rxt(k,238))* y(k,144) + rxt(k,72) + het_rates(k,67))* y(k,67) + prod(k,99) = (rxt(k,218)*y(k,27) +rxt(k,219)*y(k,139))*y(k,4) + loss(k,50) = (rxt(k,254)* y(k,111) +rxt(k,259)* y(k,144) + rxt(k,73) & + het_rates(k,68))* y(k,68) prod(k,50) = 0._r8 - loss(k,52) = (rxt(k,252)* y(k,111) +rxt(k,257)* y(k,144) + rxt(k,74) & + loss(k,52) = (rxt(k,255)* y(k,111) +rxt(k,260)* y(k,144) + rxt(k,74) & + het_rates(k,69))* y(k,69) prod(k,52) = 0._r8 - loss(k,57) = (rxt(k,253)* y(k,111) +rxt(k,258)* y(k,144) + rxt(k,75) & + loss(k,57) = (rxt(k,256)* y(k,111) +rxt(k,261)* y(k,144) + rxt(k,75) & + het_rates(k,70))* y(k,70) prod(k,57) = 0._r8 - loss(k,130) = ((rxt(k,397) +rxt(k,402) +rxt(k,407))* y(k,46) + (rxt(k,399) + & - rxt(k,404))* y(k,75) + (rxt(k,392) +rxt(k,398) +rxt(k,403))* y(k,76) & - +rxt(k,199)* y(k,106) +rxt(k,200)* y(k,111) + (rxt(k,211) + & - rxt(k,212))* y(k,144) + rxt(k,76) + het_rates(k,71))* y(k,71) - prod(k,130) = (rxt(k,179)*y(k,27) +rxt(k,180)*y(k,40) +rxt(k,181)*y(k,63) + & - rxt(k,182)*y(k,65) +rxt(k,183)*y(k,139) +rxt(k,201)*y(k,76) + & - rxt(k,242)*y(k,26) +rxt(k,244)*y(k,28) +2.000_r8*rxt(k,247)*y(k,31) + & - rxt(k,249)*y(k,41) +rxt(k,281)*y(k,13))*y(k,42) +rxt(k,198)*y(k,111) & + loss(k,130) = ((rxt(k,400) +rxt(k,405) +rxt(k,410))* y(k,46) + (rxt(k,402) + & + rxt(k,407))* y(k,75) + (rxt(k,395) +rxt(k,401) +rxt(k,406))* y(k,76) & + +rxt(k,202)* y(k,106) +rxt(k,203)* y(k,111) + (rxt(k,214) + & + rxt(k,215))* y(k,144) + rxt(k,76) + het_rates(k,71))* y(k,71) + prod(k,130) = (rxt(k,182)*y(k,27) +rxt(k,183)*y(k,40) +rxt(k,184)*y(k,63) + & + rxt(k,185)*y(k,65) +rxt(k,186)*y(k,139) +rxt(k,204)*y(k,76) + & + rxt(k,245)*y(k,26) +rxt(k,247)*y(k,28) +2.000_r8*rxt(k,250)*y(k,31) + & + rxt(k,252)*y(k,41) +rxt(k,284)*y(k,13))*y(k,42) +rxt(k,201)*y(k,111) & *y(k,45) loss(k,58) = ( + rxt(k,77) + het_rates(k,72))* y(k,72) - prod(k,58) = (rxt(k,236)*y(k,40) +rxt(k,237)*y(k,63) +rxt(k,238)*y(k,151) + & - rxt(k,239)*y(k,73))*y(k,59) - loss(k,139) = (rxt(k,239)* y(k,59) +rxt(k,176)* y(k,111) + rxt(k,9) & + prod(k,58) = (rxt(k,239)*y(k,40) +rxt(k,240)*y(k,63) +rxt(k,241)*y(k,151) + & + rxt(k,242)*y(k,73))*y(k,59) + loss(k,139) = (rxt(k,242)* y(k,59) +rxt(k,176)* y(k,111) + rxt(k,9) & + het_rates(k,73))* y(k,73) - prod(k,139) = (rxt(k,395) +rxt(k,400) +rxt(k,406) +rxt(k,397)*y(k,71) + & - rxt(k,402)*y(k,71) +rxt(k,407)*y(k,71))*y(k,46) + (rxt(k,388) + & - rxt(k,259)*y(k,27) +rxt(k,283)*y(k,30) +rxt(k,308)*y(k,34) + & - rxt(k,366)*y(k,52))*y(k,99) + (2.000_r8*rxt(k,385) + & - 2.000_r8*rxt(k,391) +2.000_r8*rxt(k,394) +2.000_r8*rxt(k,405)) & - *y(k,91) + (rxt(k,393) +rxt(k,396) +rxt(k,401))*y(k,7) & - + (.500_r8*rxt(k,387) +rxt(k,175)*y(k,111))*y(k,98) +rxt(k,389) & + prod(k,139) = (rxt(k,398) +rxt(k,403) +rxt(k,409) +rxt(k,400)*y(k,71) + & + rxt(k,405)*y(k,71) +rxt(k,410)*y(k,71))*y(k,46) + (rxt(k,391) + & + rxt(k,262)*y(k,27) +rxt(k,286)*y(k,30) +rxt(k,311)*y(k,34) + & + rxt(k,369)*y(k,52))*y(k,99) + (2.000_r8*rxt(k,388) + & + 2.000_r8*rxt(k,394) +2.000_r8*rxt(k,397) +2.000_r8*rxt(k,408)) & + *y(k,91) + (rxt(k,396) +rxt(k,399) +rxt(k,404))*y(k,7) & + + (.500_r8*rxt(k,390) +rxt(k,175)*y(k,111))*y(k,98) +rxt(k,392) & *y(k,112) - loss(k,73) = (rxt(k,152)* y(k,111) + rxt(k,10) + rxt(k,11) + rxt(k,177) & + loss(k,73) = (rxt(k,153)* y(k,111) + rxt(k,10) + rxt(k,11) + rxt(k,177) & + het_rates(k,74))* y(k,74) prod(k,73) =rxt(k,173)*y(k,139)*y(k,98) - loss(k,94) = ((rxt(k,399) +rxt(k,404))* y(k,71) +rxt(k,230)* y(k,106) & + loss(k,94) = ((rxt(k,402) +rxt(k,407))* y(k,71) +rxt(k,233)* y(k,106) & + rxt(k,78) + het_rates(k,75))* y(k,75) - prod(k,94) = (rxt(k,393) +rxt(k,396) +rxt(k,401))*y(k,7) +rxt(k,222)*y(k,139) & + prod(k,94) = (rxt(k,396) +rxt(k,399) +rxt(k,404))*y(k,7) +rxt(k,225)*y(k,139) & *y(k,6) - loss(k,101) = (rxt(k,201)* y(k,42) + (rxt(k,392) +rxt(k,398) +rxt(k,403)) & - * y(k,71) +rxt(k,202)* y(k,106) +rxt(k,203)* y(k,111) + rxt(k,79) & + loss(k,101) = (rxt(k,204)* y(k,42) + (rxt(k,395) +rxt(k,401) +rxt(k,406)) & + * y(k,71) +rxt(k,205)* y(k,106) +rxt(k,206)* y(k,111) + rxt(k,79) & + het_rates(k,76))* y(k,76) - prod(k,101) = (rxt(k,395) +rxt(k,400) +rxt(k,406) +rxt(k,195)*y(k,111)) & - *y(k,46) +rxt(k,190)*y(k,139)*y(k,45) - loss(k,115) = (rxt(k,310)* y(k,111) + rxt(k,35) + het_rates(k,77))* y(k,77) - prod(k,115) = (.220_r8*rxt(k,321)*y(k,32) +.230_r8*rxt(k,322)*y(k,37) + & - .220_r8*rxt(k,324)*y(k,99) +.220_r8*rxt(k,325)*y(k,97))*y(k,84) & - + (.250_r8*rxt(k,357)*y(k,32) +.100_r8*rxt(k,358)*y(k,37) + & - .250_r8*rxt(k,360)*y(k,97) +.250_r8*rxt(k,361)*y(k,99))*y(k,134) & - + (.500_r8*rxt(k,314)*y(k,117) +.500_r8*rxt(k,336)*y(k,87))*y(k,111) & - +.200_r8*rxt(k,315)*y(k,118)*y(k,37) +.020_r8*rxt(k,350)*y(k,97) & + prod(k,101) = (rxt(k,398) +rxt(k,403) +rxt(k,409) +rxt(k,198)*y(k,111)) & + *y(k,46) +rxt(k,193)*y(k,139)*y(k,45) + loss(k,115) = (rxt(k,313)* y(k,111) + rxt(k,35) + het_rates(k,77))* y(k,77) + prod(k,115) = (.220_r8*rxt(k,324)*y(k,32) +.230_r8*rxt(k,325)*y(k,37) + & + .220_r8*rxt(k,327)*y(k,99) +.220_r8*rxt(k,328)*y(k,97))*y(k,84) & + + (.250_r8*rxt(k,360)*y(k,32) +.100_r8*rxt(k,361)*y(k,37) + & + .250_r8*rxt(k,363)*y(k,97) +.250_r8*rxt(k,364)*y(k,99))*y(k,134) & + + (.500_r8*rxt(k,317)*y(k,117) +.500_r8*rxt(k,339)*y(k,87))*y(k,111) & + +.200_r8*rxt(k,318)*y(k,118)*y(k,37) +.020_r8*rxt(k,353)*y(k,97) & *y(k,81) - loss(k,64) = (rxt(k,342)* y(k,111) + het_rates(k,78))* y(k,78) - prod(k,64) = (.400_r8*rxt(k,347)*y(k,32) +.300_r8*rxt(k,348)*y(k,37) + & - .330_r8*rxt(k,350)*y(k,97) +.400_r8*rxt(k,351)*y(k,99))*y(k,81) & - + (rxt(k,355)*y(k,99) +rxt(k,356)*y(k,111))*y(k,112) - loss(k,103) = (rxt(k,343)* y(k,99) +rxt(k,352)* y(k,108) +rxt(k,353) & + loss(k,64) = (rxt(k,345)* y(k,111) + het_rates(k,78))* y(k,78) + prod(k,64) = (.400_r8*rxt(k,350)*y(k,32) +.300_r8*rxt(k,351)*y(k,37) + & + .330_r8*rxt(k,353)*y(k,97) +.400_r8*rxt(k,354)*y(k,99))*y(k,81) & + + (rxt(k,358)*y(k,99) +rxt(k,359)*y(k,111))*y(k,112) + loss(k,103) = (rxt(k,346)* y(k,99) +rxt(k,355)* y(k,108) +rxt(k,356) & * y(k,111) + het_rates(k,79))* y(k,79) prod(k,103) = 0._r8 - loss(k,97) = (rxt(k,345)* y(k,97) +rxt(k,346)* y(k,99) +rxt(k,344)* y(k,139) & + loss(k,97) = (rxt(k,348)* y(k,97) +rxt(k,349)* y(k,99) +rxt(k,347)* y(k,139) & + het_rates(k,80))* y(k,80) - prod(k,97) =rxt(k,343)*y(k,99)*y(k,79) - loss(k,122) = (rxt(k,347)* y(k,32) +rxt(k,348)* y(k,37) +rxt(k,350)* y(k,97) & - +rxt(k,351)* y(k,99) +rxt(k,349)* y(k,139) + het_rates(k,81)) & + prod(k,97) =rxt(k,346)*y(k,99)*y(k,79) + loss(k,122) = (rxt(k,350)* y(k,32) +rxt(k,351)* y(k,37) +rxt(k,353)* y(k,97) & + +rxt(k,354)* y(k,99) +rxt(k,352)* y(k,139) + het_rates(k,81)) & * y(k,81) - prod(k,122) = (rxt(k,353)*y(k,79) +.200_r8*rxt(k,354)*y(k,82) + & - 1.640_r8*rxt(k,365)*y(k,133))*y(k,111) +1.700_r8*rxt(k,363)*y(k,133) & + prod(k,122) = (rxt(k,356)*y(k,79) +.200_r8*rxt(k,357)*y(k,82) + & + 1.640_r8*rxt(k,368)*y(k,133))*y(k,111) +1.700_r8*rxt(k,366)*y(k,133) & *y(k,99) - loss(k,78) = (rxt(k,354)* y(k,111) + rxt(k,36) + het_rates(k,82))* y(k,82) - prod(k,78) =rxt(k,349)*y(k,139)*y(k,81) - loss(k,119) = (rxt(k,327)* y(k,108) +rxt(k,328)* y(k,111) + rxt(k,37) & + loss(k,78) = (rxt(k,357)* y(k,111) + rxt(k,36) + het_rates(k,82))* y(k,82) + prod(k,78) =rxt(k,352)*y(k,139)*y(k,81) + loss(k,119) = (rxt(k,330)* y(k,108) +rxt(k,331)* y(k,111) + rxt(k,37) & + rxt(k,38) + het_rates(k,83))* y(k,83) - prod(k,119) = (.250_r8*rxt(k,347)*y(k,32) +.190_r8*rxt(k,348)*y(k,37) + & - .230_r8*rxt(k,350)*y(k,97) +.250_r8*rxt(k,351)*y(k,99))*y(k,81) & - + (.167_r8*rxt(k,344)*y(k,139) +.167_r8*rxt(k,345)*y(k,97) + & - .167_r8*rxt(k,346)*y(k,99))*y(k,80) + (.300_r8*rxt(k,352)*y(k,79) + & - 1.122_r8*rxt(k,364)*y(k,133))*y(k,108) +.288_r8*rxt(k,36)*y(k,82) - loss(k,123) = (rxt(k,321)* y(k,32) +rxt(k,322)* y(k,37) + (rxt(k,325) + & - rxt(k,326))* y(k,97) +rxt(k,324)* y(k,99) +rxt(k,323)* y(k,139) & + prod(k,119) = (.250_r8*rxt(k,350)*y(k,32) +.190_r8*rxt(k,351)*y(k,37) + & + .230_r8*rxt(k,353)*y(k,97) +.250_r8*rxt(k,354)*y(k,99))*y(k,81) & + + (.167_r8*rxt(k,347)*y(k,139) +.167_r8*rxt(k,348)*y(k,97) + & + .167_r8*rxt(k,349)*y(k,99))*y(k,80) + (.300_r8*rxt(k,355)*y(k,79) + & + 1.122_r8*rxt(k,367)*y(k,133))*y(k,108) +.300_r8*rxt(k,36)*y(k,82) + loss(k,123) = (rxt(k,324)* y(k,32) +rxt(k,325)* y(k,37) + (rxt(k,328) + & + rxt(k,329))* y(k,97) +rxt(k,327)* y(k,99) +rxt(k,326)* y(k,139) & + het_rates(k,84))* y(k,84) - prod(k,123) = (.500_r8*rxt(k,328)*y(k,83) +.200_r8*rxt(k,329)*y(k,85) + & - rxt(k,338)*y(k,88))*y(k,111) - loss(k,61) = (rxt(k,329)* y(k,111) + het_rates(k,85))* y(k,85) - prod(k,61) =rxt(k,323)*y(k,139)*y(k,84) - loss(k,125) = (rxt(k,330)* y(k,32) +rxt(k,331)* y(k,37) + 2._r8*rxt(k,333) & - * y(k,86) +rxt(k,334)* y(k,97) +rxt(k,339)* y(k,98) +rxt(k,335) & - * y(k,99) +rxt(k,332)* y(k,139) + het_rates(k,86))* y(k,86) - prod(k,125) = (.660_r8*rxt(k,37) +.500_r8*rxt(k,328)*y(k,111))*y(k,83) & - + (rxt(k,39) +rxt(k,340))*y(k,87) +.500_r8*rxt(k,329)*y(k,111) & + prod(k,123) = (.500_r8*rxt(k,331)*y(k,83) +.200_r8*rxt(k,332)*y(k,85) + & + rxt(k,341)*y(k,88))*y(k,111) + loss(k,61) = (rxt(k,332)* y(k,111) + het_rates(k,85))* y(k,85) + prod(k,61) =rxt(k,326)*y(k,139)*y(k,84) + loss(k,125) = (rxt(k,333)* y(k,32) +rxt(k,334)* y(k,37) + 2._r8*rxt(k,336) & + * y(k,86) +rxt(k,337)* y(k,97) +rxt(k,342)* y(k,98) +rxt(k,338) & + * y(k,99) +rxt(k,335)* y(k,139) + het_rates(k,86))* y(k,86) + prod(k,125) = (.660_r8*rxt(k,37) +.500_r8*rxt(k,331)*y(k,111))*y(k,83) & + + (rxt(k,39) +rxt(k,343))*y(k,87) +.500_r8*rxt(k,332)*y(k,111) & *y(k,85) - loss(k,83) = (rxt(k,336)* y(k,111) + rxt(k,39) + rxt(k,340) & + loss(k,83) = (rxt(k,339)* y(k,111) + rxt(k,39) + rxt(k,343) & + het_rates(k,87))* y(k,87) - prod(k,83) =rxt(k,339)*y(k,98)*y(k,86) - loss(k,124) = (rxt(k,337)* y(k,108) +rxt(k,338)* y(k,111) + rxt(k,40) & + prod(k,83) =rxt(k,342)*y(k,98)*y(k,86) + loss(k,124) = (rxt(k,340)* y(k,108) +rxt(k,341)* y(k,111) + rxt(k,40) & + het_rates(k,88))* y(k,88) - prod(k,124) = (.350_r8*rxt(k,347)*y(k,32) +.260_r8*rxt(k,348)*y(k,37) + & - .320_r8*rxt(k,350)*y(k,97) +.350_r8*rxt(k,351)*y(k,99))*y(k,81) & - + (.039_r8*rxt(k,344)*y(k,139) +.039_r8*rxt(k,345)*y(k,97) + & - .039_r8*rxt(k,346)*y(k,99))*y(k,80) + (.200_r8*rxt(k,352)*y(k,79) + & - .442_r8*rxt(k,364)*y(k,133))*y(k,108) +.402_r8*rxt(k,36)*y(k,82) - loss(k,110) = (rxt(k,155)* y(k,97) + (rxt(k,156) +rxt(k,157) +rxt(k,158)) & - * y(k,98) +rxt(k,159)* y(k,107) +rxt(k,167)* y(k,111) +rxt(k,420) & + prod(k,124) = (.350_r8*rxt(k,350)*y(k,32) +.260_r8*rxt(k,351)*y(k,37) + & + .320_r8*rxt(k,353)*y(k,97) +.350_r8*rxt(k,354)*y(k,99))*y(k,81) & + + (.039_r8*rxt(k,347)*y(k,139) +.039_r8*rxt(k,348)*y(k,97) + & + .039_r8*rxt(k,349)*y(k,99))*y(k,80) + (.200_r8*rxt(k,355)*y(k,79) + & + .442_r8*rxt(k,367)*y(k,133))*y(k,108) +.700_r8*rxt(k,36)*y(k,82) + loss(k,110) = (rxt(k,156)* y(k,97) + (rxt(k,157) +rxt(k,158) +rxt(k,159)) & + * y(k,98) +rxt(k,181)* y(k,107) +rxt(k,167)* y(k,111) +rxt(k,423) & * y(k,147) + rxt(k,83) + het_rates(k,89))* y(k,89) - prod(k,110) = (rxt(k,153)*y(k,140) +rxt(k,417)*y(k,143))*y(k,106) & - + (.200_r8*rxt(k,411)*y(k,142) +1.100_r8*rxt(k,413)*y(k,141)) & - *y(k,138) +rxt(k,16)*y(k,97) +rxt(k,418)*y(k,143)*y(k,107) & - +rxt(k,424)*y(k,148) + prod(k,110) = (rxt(k,178)*y(k,140) +.200_r8*rxt(k,414)*y(k,142) + & + 1.100_r8*rxt(k,416)*y(k,141))*y(k,138) + (rxt(k,155)*y(k,140) + & + rxt(k,420)*y(k,143))*y(k,106) +rxt(k,16)*y(k,97) +rxt(k,421)*y(k,143) & + *y(k,107) +rxt(k,152)*y(k,140) +rxt(k,427)*y(k,148) loss(k,53) = ((rxt(k,171) +rxt(k,172))* y(k,144) + rxt(k,12) & + het_rates(k,90))* y(k,90) - prod(k,53) =rxt(k,156)*y(k,98)*y(k,89) - loss(k,59) = ( + rxt(k,13) + rxt(k,14) + rxt(k,178) + rxt(k,385) + rxt(k,391) & - + rxt(k,394) + rxt(k,405) + het_rates(k,91))* y(k,91) + prod(k,53) =rxt(k,157)*y(k,98)*y(k,89) + loss(k,59) = ( + rxt(k,13) + rxt(k,14) + rxt(k,180) + rxt(k,388) + rxt(k,394) & + + rxt(k,397) + rxt(k,408) + het_rates(k,91))* y(k,91) prod(k,59) =rxt(k,174)*y(k,99)*y(k,98) loss(k,8) = ( + het_rates(k,92))* y(k,92) prod(k,8) = 0._r8 @@ -507,63 +507,63 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,9) = 0._r8 loss(k,10) = ( + het_rates(k,94))* y(k,94) prod(k,10) = 0._r8 - loss(k,30) = (rxt(k,383)* y(k,111) + het_rates(k,95))* y(k,95) + loss(k,30) = (rxt(k,386)* y(k,111) + het_rates(k,95))* y(k,95) prod(k,30) = 0._r8 - loss(k,11) = ( + rxt(k,386) + het_rates(k,96))* y(k,96) + loss(k,11) = ( + rxt(k,389) + het_rates(k,96))* y(k,96) prod(k,11) = 0._r8 - loss(k,146) = (rxt(k,223)* y(k,6) +rxt(k,278)* y(k,10) +rxt(k,305)* y(k,15) & - +rxt(k,288)* y(k,32) +rxt(k,265)* y(k,37) +rxt(k,191)* y(k,45) & - +rxt(k,292)* y(k,57) +rxt(k,345)* y(k,80) +rxt(k,350)* y(k,81) & - + (rxt(k,325) +rxt(k,326))* y(k,84) +rxt(k,334)* y(k,86) +rxt(k,155) & + loss(k,146) = (rxt(k,226)* y(k,6) +rxt(k,281)* y(k,10) +rxt(k,308)* y(k,15) & + +rxt(k,291)* y(k,32) +rxt(k,268)* y(k,37) +rxt(k,194)* y(k,45) & + +rxt(k,295)* y(k,57) +rxt(k,348)* y(k,80) +rxt(k,353)* y(k,81) & + + (rxt(k,328) +rxt(k,329))* y(k,84) +rxt(k,337)* y(k,86) +rxt(k,156) & * y(k,89) +rxt(k,164)* y(k,99) +rxt(k,170)* y(k,106) +rxt(k,169) & - * y(k,108) +rxt(k,313)* y(k,114) +rxt(k,317)* y(k,118) +rxt(k,360) & - * y(k,134) +rxt(k,168)* y(k,139) +rxt(k,422)* y(k,147) + rxt(k,15) & - + rxt(k,16) + het_rates(k,97))* y(k,97) - prod(k,146) = (rxt(k,17) +.500_r8*rxt(k,387) +2.000_r8*rxt(k,157)*y(k,89) + & - rxt(k,160)*y(k,106) +rxt(k,376)*y(k,122))*y(k,98) & - + (rxt(k,159)*y(k,107) +rxt(k,167)*y(k,111))*y(k,89) & + * y(k,108) +rxt(k,316)* y(k,114) +rxt(k,320)* y(k,118) +rxt(k,363) & + * y(k,134) +rxt(k,168)* y(k,139) +rxt(k,154)* y(k,140) +rxt(k,425) & + * y(k,147) + rxt(k,15) + rxt(k,16) + het_rates(k,97))* y(k,97) + prod(k,146) = (rxt(k,17) +.500_r8*rxt(k,390) +2.000_r8*rxt(k,158)*y(k,89) + & + rxt(k,160)*y(k,106) +rxt(k,379)*y(k,122))*y(k,98) & + + (rxt(k,167)*y(k,111) +rxt(k,181)*y(k,107))*y(k,89) & +2.000_r8*rxt(k,171)*y(k,144)*y(k,90) +rxt(k,14)*y(k,91) +rxt(k,19) & - *y(k,99) +rxt(k,154)*y(k,140)*y(k,107) +rxt(k,421)*y(k,147) & - +rxt(k,434)*y(k,150) - loss(k,135) = (rxt(k,224)* y(k,6) +rxt(k,299)* y(k,32) +rxt(k,193)* y(k,45) & - +rxt(k,339)* y(k,86) + (rxt(k,156) +rxt(k,157) +rxt(k,158))* y(k,89) & + *y(k,99) +rxt(k,179)*y(k,140)*y(k,107) +rxt(k,424)*y(k,147) & + +rxt(k,437)*y(k,150) + loss(k,135) = (rxt(k,227)* y(k,6) +rxt(k,302)* y(k,32) +rxt(k,196)* y(k,45) & + +rxt(k,342)* y(k,86) + (rxt(k,157) +rxt(k,158) +rxt(k,159))* y(k,89) & +rxt(k,174)* y(k,99) + (rxt(k,160) +rxt(k,162))* y(k,106) & - +rxt(k,161)* y(k,108) +rxt(k,175)* y(k,111) +rxt(k,376)* y(k,122) & - +rxt(k,173)* y(k,139) + rxt(k,17) + rxt(k,387) + het_rates(k,98)) & + +rxt(k,161)* y(k,108) +rxt(k,175)* y(k,111) +rxt(k,379)* y(k,122) & + +rxt(k,173)* y(k,139) + rxt(k,17) + rxt(k,390) + het_rates(k,98)) & * y(k,98) prod(k,135) = (2.000_r8*rxt(k,164)*y(k,99) +rxt(k,168)*y(k,139) + & - rxt(k,169)*y(k,108) +rxt(k,170)*y(k,106) +rxt(k,191)*y(k,45) + & - rxt(k,223)*y(k,6) +rxt(k,265)*y(k,37) +rxt(k,278)*y(k,10) + & - rxt(k,288)*y(k,32) +rxt(k,292)*y(k,57) +rxt(k,305)*y(k,15) + & - rxt(k,313)*y(k,114) +rxt(k,317)*y(k,118) +rxt(k,325)*y(k,84) + & - rxt(k,334)*y(k,86) +1.206_r8*rxt(k,345)*y(k,80) + & - .920_r8*rxt(k,350)*y(k,81) +rxt(k,360)*y(k,134))*y(k,97) & + rxt(k,169)*y(k,108) +rxt(k,170)*y(k,106) +rxt(k,194)*y(k,45) + & + rxt(k,226)*y(k,6) +rxt(k,268)*y(k,37) +rxt(k,281)*y(k,10) + & + rxt(k,291)*y(k,32) +rxt(k,295)*y(k,57) +rxt(k,308)*y(k,15) + & + rxt(k,316)*y(k,114) +rxt(k,320)*y(k,118) +rxt(k,328)*y(k,84) + & + rxt(k,337)*y(k,86) +1.206_r8*rxt(k,348)*y(k,80) + & + .920_r8*rxt(k,353)*y(k,81) +rxt(k,363)*y(k,134))*y(k,97) & + (rxt(k,18) +rxt(k,163)*y(k,139) +rxt(k,165)*y(k,106) + & - rxt(k,166)*y(k,111) +rxt(k,324)*y(k,84) +rxt(k,335)*y(k,86) + & - 1.206_r8*rxt(k,346)*y(k,80) +rxt(k,351)*y(k,81) + & - rxt(k,355)*y(k,112) +rxt(k,361)*y(k,134) +rxt(k,363)*y(k,133)) & - *y(k,99) + (rxt(k,11) +rxt(k,177) +rxt(k,152)*y(k,111))*y(k,74) & - + (rxt(k,39) +rxt(k,340))*y(k,87) + (rxt(k,13) +rxt(k,178))*y(k,91) & - + (rxt(k,41) +rxt(k,311)*y(k,111))*y(k,100) + (rxt(k,42) + & - .400_r8*rxt(k,356)*y(k,111))*y(k,112) + (.600_r8*rxt(k,43) + & - rxt(k,300))*y(k,113) +rxt(k,49)*y(k,7) +rxt(k,68)*y(k,46) +rxt(k,9) & - *y(k,73) +.206_r8*rxt(k,344)*y(k,139)*y(k,80) - loss(k,141) = (rxt(k,301)* y(k,14) +rxt(k,259)* y(k,27) +rxt(k,283)* y(k,30) & - +rxt(k,308)* y(k,34) +rxt(k,366)* y(k,52) +rxt(k,343)* y(k,79) & - +rxt(k,346)* y(k,80) +rxt(k,351)* y(k,81) +rxt(k,324)* y(k,84) & - +rxt(k,335)* y(k,86) +rxt(k,164)* y(k,97) +rxt(k,174)* y(k,98) & - +rxt(k,165)* y(k,106) +rxt(k,166)* y(k,111) +rxt(k,355)* y(k,112) & - +rxt(k,363)* y(k,133) +rxt(k,361)* y(k,134) +rxt(k,163)* y(k,139) & - + rxt(k,18) + rxt(k,19) + rxt(k,388) + het_rates(k,99))* y(k,99) - prod(k,141) = (rxt(k,67) +rxt(k,192)*y(k,42) +rxt(k,194)*y(k,106) + & - rxt(k,195)*y(k,111))*y(k,46) + (rxt(k,13) +rxt(k,14) +rxt(k,178)) & - *y(k,91) + (rxt(k,176)*y(k,73) +rxt(k,297)*y(k,113) + & - .500_r8*rxt(k,336)*y(k,87))*y(k,111) + (rxt(k,50) + & - rxt(k,225)*y(k,106))*y(k,7) + (rxt(k,161)*y(k,108) + & - rxt(k,162)*y(k,106))*y(k,98) +rxt(k,239)*y(k,73)*y(k,59) +rxt(k,10) & + rxt(k,166)*y(k,111) +rxt(k,327)*y(k,84) +rxt(k,338)*y(k,86) + & + 1.206_r8*rxt(k,349)*y(k,80) +rxt(k,354)*y(k,81) + & + rxt(k,358)*y(k,112) +rxt(k,364)*y(k,134) +rxt(k,366)*y(k,133)) & + *y(k,99) + (rxt(k,11) +rxt(k,177) +rxt(k,153)*y(k,111))*y(k,74) & + + (rxt(k,39) +rxt(k,343))*y(k,87) + (rxt(k,13) +rxt(k,180))*y(k,91) & + + (rxt(k,41) +rxt(k,314)*y(k,111))*y(k,100) + (rxt(k,42) + & + .400_r8*rxt(k,359)*y(k,111))*y(k,112) + (.600_r8*rxt(k,43) + & + rxt(k,303))*y(k,113) +rxt(k,49)*y(k,7) +rxt(k,68)*y(k,46) +rxt(k,9) & + *y(k,73) +.206_r8*rxt(k,347)*y(k,139)*y(k,80) + loss(k,141) = (rxt(k,304)* y(k,14) +rxt(k,262)* y(k,27) +rxt(k,286)* y(k,30) & + +rxt(k,311)* y(k,34) +rxt(k,369)* y(k,52) +rxt(k,346)* y(k,79) & + +rxt(k,349)* y(k,80) +rxt(k,354)* y(k,81) +rxt(k,327)* y(k,84) & + +rxt(k,338)* y(k,86) +rxt(k,164)* y(k,97) +rxt(k,174)* y(k,98) & + +rxt(k,165)* y(k,106) +rxt(k,166)* y(k,111) +rxt(k,358)* y(k,112) & + +rxt(k,366)* y(k,133) +rxt(k,364)* y(k,134) +rxt(k,163)* y(k,139) & + + rxt(k,18) + rxt(k,19) + rxt(k,391) + het_rates(k,99))* y(k,99) + prod(k,141) = (rxt(k,67) +rxt(k,195)*y(k,42) +rxt(k,197)*y(k,106) + & + rxt(k,198)*y(k,111))*y(k,46) + (rxt(k,13) +rxt(k,14) +rxt(k,180)) & + *y(k,91) + (rxt(k,176)*y(k,73) +rxt(k,300)*y(k,113) + & + .500_r8*rxt(k,339)*y(k,87))*y(k,111) + (rxt(k,50) + & + rxt(k,228)*y(k,106))*y(k,7) + (rxt(k,161)*y(k,108) + & + rxt(k,162)*y(k,106))*y(k,98) +rxt(k,242)*y(k,73)*y(k,59) +rxt(k,10) & *y(k,74) +.400_r8*rxt(k,43)*y(k,113) - loss(k,67) = (rxt(k,311)* y(k,111) + rxt(k,41) + het_rates(k,100))* y(k,100) - prod(k,67) =rxt(k,301)*y(k,99)*y(k,14) + loss(k,67) = (rxt(k,314)* y(k,111) + rxt(k,41) + het_rates(k,100))* y(k,100) + prod(k,67) =rxt(k,304)*y(k,99)*y(k,14) loss(k,12) = ( + het_rates(k,101))* y(k,101) prod(k,12) = 0._r8 loss(k,13) = ( + het_rates(k,102))* y(k,102) @@ -574,160 +574,160 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,15) = 0._r8 loss(k,16) = ( + het_rates(k,105))* y(k,105) prod(k,16) = 0._r8 - loss(k,145) = (rxt(k,226)* y(k,6) +rxt(k,225)* y(k,7) +rxt(k,260)* y(k,27) & - +rxt(k,196)* y(k,45) +rxt(k,194)* y(k,46) +rxt(k,135)* y(k,63) & - +rxt(k,136)* y(k,65) +rxt(k,228)* y(k,67) +rxt(k,199)* y(k,71) & - +rxt(k,230)* y(k,75) +rxt(k,202)* y(k,76) +rxt(k,170)* y(k,97) & + loss(k,145) = (rxt(k,229)* y(k,6) +rxt(k,228)* y(k,7) +rxt(k,263)* y(k,27) & + +rxt(k,199)* y(k,45) +rxt(k,197)* y(k,46) +rxt(k,135)* y(k,63) & + +rxt(k,136)* y(k,65) +rxt(k,231)* y(k,67) +rxt(k,202)* y(k,71) & + +rxt(k,233)* y(k,75) +rxt(k,205)* y(k,76) +rxt(k,170)* y(k,97) & + (rxt(k,160) +rxt(k,162))* y(k,98) +rxt(k,165)* y(k,99) & + 2._r8*rxt(k,133)* y(k,106) +rxt(k,134)* y(k,107) +rxt(k,132) & - * y(k,108) +rxt(k,368)* y(k,110) +rxt(k,147)* y(k,111) +rxt(k,141) & - * y(k,139) + (rxt(k,415) +rxt(k,416))* y(k,141) +rxt(k,417)* y(k,143) & + * y(k,108) +rxt(k,371)* y(k,110) +rxt(k,147)* y(k,111) +rxt(k,141) & + * y(k,139) + (rxt(k,418) +rxt(k,419))* y(k,141) +rxt(k,420)* y(k,143) & + rxt(k,92) + rxt(k,93) + rxt(k,94) + rxt(k,95) + rxt(k,96) & + rxt(k,97) + het_rates(k,106))* y(k,106) prod(k,145) = (rxt(k,5) +2.000_r8*rxt(k,6) +rxt(k,98) +2.000_r8*rxt(k,99) + & rxt(k,100) +rxt(k,101) +rxt(k,103) +2.000_r8*rxt(k,104) +rxt(k,105) + & rxt(k,106) +rxt(k,120)*y(k,144) +rxt(k,121)*y(k,144) + & - rxt(k,159)*y(k,89) +rxt(k,370)*y(k,120) +rxt(k,377)*y(k,122) + & - rxt(k,419)*y(k,143) +rxt(k,426)*y(k,148) +rxt(k,430)*y(k,149)) & - *y(k,107) + (rxt(k,155)*y(k,97) +rxt(k,156)*y(k,98) + & - rxt(k,420)*y(k,147))*y(k,89) + (rxt(k,8) + & - 2.000_r8*rxt(k,123)*y(k,144) +.765_r8*rxt(k,364)*y(k,133))*y(k,108) & - + (rxt(k,31) +rxt(k,82))*y(k,49) + (rxt(k,411)*y(k,142) + & - 1.150_r8*rxt(k,412)*y(k,147))*y(k,138) +rxt(k,48)*y(k,6) & - +.180_r8*rxt(k,29)*y(k,40) +rxt(k,66)*y(k,45) +rxt(k,139)*y(k,139) & - *y(k,62) +rxt(k,14)*y(k,91) +rxt(k,16)*y(k,97) +rxt(k,17)*y(k,98) & - +rxt(k,18)*y(k,99) +rxt(k,80)*y(k,109) +rxt(k,149)*y(k,111)*y(k,111) & - +rxt(k,110)*y(k,122) +rxt(k,111)*y(k,123) +rxt(k,112)*y(k,124) & - +rxt(k,425)*y(k,148)*y(k,140) +rxt(k,119)*y(k,144) +rxt(k,428) & - *y(k,149) +rxt(k,433)*y(k,150) +rxt(k,3)*y(k,151) - loss(k,132) = (rxt(k,294)* y(k,56) +rxt(k,140)* y(k,62) +rxt(k,159)* y(k,89) & - +rxt(k,134)* y(k,106) +rxt(k,370)* y(k,120) +rxt(k,377)* y(k,122) & - +rxt(k,154)* y(k,140) +rxt(k,414)* y(k,141) + (rxt(k,418) + & - rxt(k,419))* y(k,143) +rxt(k,120)* y(k,144) +rxt(k,126)* y(k,145) & - +rxt(k,426)* y(k,148) +rxt(k,430)* y(k,149) + rxt(k,5) + rxt(k,6) & + rxt(k,181)*y(k,89) +rxt(k,373)*y(k,120) +rxt(k,380)*y(k,122) + & + rxt(k,422)*y(k,143) +rxt(k,429)*y(k,148) +rxt(k,433)*y(k,149)) & + *y(k,107) + (rxt(k,156)*y(k,97) +rxt(k,157)*y(k,98) + & + rxt(k,423)*y(k,147))*y(k,89) + (rxt(k,8) + & + 2.000_r8*rxt(k,123)*y(k,144) +.765_r8*rxt(k,367)*y(k,133))*y(k,108) & + + (rxt(k,31) +rxt(k,82))*y(k,49) + (rxt(k,16) +rxt(k,154)*y(k,140)) & + *y(k,97) + (rxt(k,414)*y(k,142) +1.150_r8*rxt(k,415)*y(k,147)) & + *y(k,138) +rxt(k,48)*y(k,6) +.180_r8*rxt(k,29)*y(k,40) +rxt(k,66) & + *y(k,45) +rxt(k,139)*y(k,139)*y(k,62) +rxt(k,14)*y(k,91) +rxt(k,17) & + *y(k,98) +rxt(k,18)*y(k,99) +rxt(k,80)*y(k,109) +rxt(k,149)*y(k,111) & + *y(k,111) +rxt(k,110)*y(k,122) +rxt(k,111)*y(k,123) +rxt(k,112) & + *y(k,124) +rxt(k,428)*y(k,148)*y(k,140) +rxt(k,119)*y(k,144) & + +rxt(k,431)*y(k,149) +rxt(k,436)*y(k,150) +rxt(k,3)*y(k,151) + loss(k,132) = (rxt(k,297)* y(k,56) +rxt(k,140)* y(k,62) +rxt(k,181)* y(k,89) & + +rxt(k,134)* y(k,106) +rxt(k,373)* y(k,120) +rxt(k,380)* y(k,122) & + +rxt(k,179)* y(k,140) +rxt(k,417)* y(k,141) + (rxt(k,421) + & + rxt(k,422))* y(k,143) +rxt(k,120)* y(k,144) +rxt(k,126)* y(k,145) & + +rxt(k,429)* y(k,148) +rxt(k,433)* y(k,149) + rxt(k,5) + rxt(k,6) & + rxt(k,98) + rxt(k,99) + rxt(k,100) + rxt(k,101) + rxt(k,102) & + rxt(k,103) + rxt(k,104) + rxt(k,105) + rxt(k,106) + rxt(k,107) & + het_rates(k,107))* y(k,107) prod(k,132) = (rxt(k,137)*y(k,62) +rxt(k,141)*y(k,106) + & 2.000_r8*rxt(k,142)*y(k,108) +rxt(k,146)*y(k,111) + & - rxt(k,151)*y(k,139) +rxt(k,163)*y(k,99) +rxt(k,183)*y(k,42) + & - rxt(k,190)*y(k,45) +rxt(k,216)*y(k,4) +rxt(k,222)*y(k,6) + & - rxt(k,264)*y(k,37) +rxt(k,277)*y(k,10) +rxt(k,304)*y(k,15) + & - rxt(k,312)*y(k,114))*y(k,139) + (rxt(k,8) + & + rxt(k,151)*y(k,139) +rxt(k,163)*y(k,99) +rxt(k,186)*y(k,42) + & + rxt(k,193)*y(k,45) +rxt(k,219)*y(k,4) +rxt(k,225)*y(k,6) + & + rxt(k,267)*y(k,37) +rxt(k,280)*y(k,10) +rxt(k,307)*y(k,15) + & + rxt(k,315)*y(k,114))*y(k,139) + (rxt(k,8) + & 2.000_r8*rxt(k,122)*y(k,144) +rxt(k,123)*y(k,144) + & 2.000_r8*rxt(k,132)*y(k,106) +rxt(k,143)*y(k,62) + & rxt(k,148)*y(k,111) +rxt(k,161)*y(k,98) +rxt(k,169)*y(k,97) + & - rxt(k,185)*y(k,42) +rxt(k,217)*y(k,4) +rxt(k,372)*y(k,120) + & - rxt(k,378)*y(k,122))*y(k,108) + (rxt(k,125)*y(k,145) + & + rxt(k,188)*y(k,42) +rxt(k,220)*y(k,4) +rxt(k,375)*y(k,120) + & + rxt(k,381)*y(k,122))*y(k,108) + (rxt(k,125)*y(k,145) + & rxt(k,133)*y(k,106) +rxt(k,147)*y(k,111) +rxt(k,160)*y(k,98) + & - rxt(k,165)*y(k,99) +rxt(k,196)*y(k,45) +rxt(k,226)*y(k,6))*y(k,106) & - + (rxt(k,187)*y(k,45) +rxt(k,188)*y(k,45) +rxt(k,198)*y(k,111) + & - rxt(k,220)*y(k,6) +rxt(k,221)*y(k,6))*y(k,45) + (rxt(k,115) + & - rxt(k,124) +2.000_r8*rxt(k,126)*y(k,107))*y(k,145) +rxt(k,218)*y(k,6) & - *y(k,6) +rxt(k,152)*y(k,111)*y(k,74) +rxt(k,158)*y(k,98)*y(k,89) & - +rxt(k,172)*y(k,144)*y(k,90) +rxt(k,422)*y(k,147)*y(k,97) +rxt(k,19) & + rxt(k,165)*y(k,99) +rxt(k,199)*y(k,45) +rxt(k,229)*y(k,6))*y(k,106) & + + (rxt(k,190)*y(k,45) +rxt(k,191)*y(k,45) +rxt(k,201)*y(k,111) + & + rxt(k,223)*y(k,6) +rxt(k,224)*y(k,6))*y(k,45) + (rxt(k,115) + & + rxt(k,124) +2.000_r8*rxt(k,126)*y(k,107))*y(k,145) +rxt(k,221)*y(k,6) & + *y(k,6) +rxt(k,153)*y(k,111)*y(k,74) +rxt(k,159)*y(k,98)*y(k,89) & + +rxt(k,172)*y(k,144)*y(k,90) +rxt(k,425)*y(k,147)*y(k,97) +rxt(k,19) & *y(k,99) +rxt(k,116)*y(k,146) - loss(k,138) = (rxt(k,217)* y(k,4) +rxt(k,274)* y(k,9) +rxt(k,302)* y(k,14) & - +rxt(k,185)* y(k,42) +rxt(k,143)* y(k,62) +rxt(k,352)* y(k,79) & - +rxt(k,327)* y(k,83) +rxt(k,337)* y(k,88) +rxt(k,169)* y(k,97) & + loss(k,138) = (rxt(k,220)* y(k,4) +rxt(k,277)* y(k,9) +rxt(k,305)* y(k,14) & + +rxt(k,188)* y(k,42) +rxt(k,143)* y(k,62) +rxt(k,355)* y(k,79) & + +rxt(k,330)* y(k,83) +rxt(k,340)* y(k,88) +rxt(k,169)* y(k,97) & +rxt(k,161)* y(k,98) +rxt(k,132)* y(k,106) +rxt(k,148)* y(k,111) & - +rxt(k,372)* y(k,120) +rxt(k,378)* y(k,122) +rxt(k,364)* y(k,133) & + +rxt(k,375)* y(k,120) +rxt(k,381)* y(k,122) +rxt(k,367)* y(k,133) & +rxt(k,142)* y(k,139) + (rxt(k,122) +rxt(k,123))* y(k,144) & + rxt(k,7) + rxt(k,8) + het_rates(k,108))* y(k,108) - prod(k,138) = (.150_r8*rxt(k,287)*y(k,32) +.150_r8*rxt(k,332)*y(k,86)) & + prod(k,138) = (.150_r8*rxt(k,290)*y(k,32) +.150_r8*rxt(k,335)*y(k,86)) & *y(k,139) +rxt(k,134)*y(k,107)*y(k,106) - loss(k,63) = (rxt(k,379)* y(k,122) + rxt(k,80) + het_rates(k,109))* y(k,109) - prod(k,63) = (rxt(k,189)*y(k,45) +rxt(k,219)*y(k,6))*y(k,45) - loss(k,65) = (rxt(k,368)* y(k,106) +rxt(k,369)* y(k,111) + rxt(k,109) & + loss(k,63) = (rxt(k,382)* y(k,122) + rxt(k,80) + het_rates(k,109))* y(k,109) + prod(k,63) = (rxt(k,192)*y(k,45) +rxt(k,222)*y(k,6))*y(k,45) + loss(k,65) = (rxt(k,371)* y(k,106) +rxt(k,372)* y(k,111) + rxt(k,109) & + het_rates(k,110))* y(k,110) prod(k,65) = 0._r8 - loss(k,144) = (rxt(k,341)* y(k,3) +rxt(k,227)* y(k,6) +rxt(k,298)* y(k,9) & - +rxt(k,279)* y(k,11) +rxt(k,280)* y(k,12) +rxt(k,282)* y(k,13) & - +rxt(k,319)* y(k,14) +rxt(k,306)* y(k,16) +rxt(k,307)* y(k,17) & - +rxt(k,243)* y(k,26) +rxt(k,261)* y(k,27) +rxt(k,245)* y(k,28) & - +rxt(k,246)* y(k,29) +rxt(k,284)* y(k,30) +rxt(k,248)* y(k,31) & - +rxt(k,320)* y(k,33) +rxt(k,309)* y(k,34) +rxt(k,289)* y(k,35) & - +rxt(k,290)* y(k,36) +rxt(k,266)* y(k,38) +rxt(k,267)* y(k,39) & - +rxt(k,268)* y(k,40) +rxt(k,250)* y(k,41) + (rxt(k,197) +rxt(k,198)) & - * y(k,45) +rxt(k,195)* y(k,46) +rxt(k,272)* y(k,48) + (rxt(k,367) + & - rxt(k,381))* y(k,52) +rxt(k,295)* y(k,60) +rxt(k,296)* y(k,61) & - +rxt(k,144)* y(k,63) +rxt(k,145)* y(k,65) +rxt(k,229)* y(k,67) & - +rxt(k,251)* y(k,68) +rxt(k,252)* y(k,69) +rxt(k,253)* y(k,70) & - +rxt(k,200)* y(k,71) +rxt(k,176)* y(k,73) +rxt(k,152)* y(k,74) & - +rxt(k,203)* y(k,76) +rxt(k,310)* y(k,77) +rxt(k,342)* y(k,78) & - +rxt(k,353)* y(k,79) +rxt(k,354)* y(k,82) +rxt(k,328)* y(k,83) & - +rxt(k,329)* y(k,85) +rxt(k,336)* y(k,87) +rxt(k,338)* y(k,88) & - +rxt(k,167)* y(k,89) +rxt(k,383)* y(k,95) +rxt(k,175)* y(k,98) & - +rxt(k,166)* y(k,99) +rxt(k,311)* y(k,100) +rxt(k,147)* y(k,106) & - +rxt(k,148)* y(k,108) +rxt(k,369)* y(k,110) + 2._r8*(rxt(k,149) + & - rxt(k,150))* y(k,111) +rxt(k,356)* y(k,112) +rxt(k,297)* y(k,113) & - +rxt(k,314)* y(k,117) +rxt(k,318)* y(k,119) +rxt(k,375)* y(k,120) & - +rxt(k,380)* y(k,122) +rxt(k,371)* y(k,123) +rxt(k,365)* y(k,133) & - +rxt(k,362)* y(k,135) +rxt(k,146)* y(k,139) + het_rates(k,111)) & + loss(k,144) = (rxt(k,344)* y(k,3) +rxt(k,230)* y(k,6) +rxt(k,301)* y(k,9) & + +rxt(k,282)* y(k,11) +rxt(k,283)* y(k,12) +rxt(k,285)* y(k,13) & + +rxt(k,322)* y(k,14) +rxt(k,309)* y(k,16) +rxt(k,310)* y(k,17) & + +rxt(k,246)* y(k,26) +rxt(k,264)* y(k,27) +rxt(k,248)* y(k,28) & + +rxt(k,249)* y(k,29) +rxt(k,287)* y(k,30) +rxt(k,251)* y(k,31) & + +rxt(k,323)* y(k,33) +rxt(k,312)* y(k,34) +rxt(k,292)* y(k,35) & + +rxt(k,293)* y(k,36) +rxt(k,269)* y(k,38) +rxt(k,270)* y(k,39) & + +rxt(k,271)* y(k,40) +rxt(k,253)* y(k,41) + (rxt(k,200) +rxt(k,201)) & + * y(k,45) +rxt(k,198)* y(k,46) +rxt(k,275)* y(k,48) + (rxt(k,370) + & + rxt(k,384))* y(k,52) +rxt(k,298)* y(k,60) +rxt(k,299)* y(k,61) & + +rxt(k,144)* y(k,63) +rxt(k,145)* y(k,65) +rxt(k,232)* y(k,67) & + +rxt(k,254)* y(k,68) +rxt(k,255)* y(k,69) +rxt(k,256)* y(k,70) & + +rxt(k,203)* y(k,71) +rxt(k,176)* y(k,73) +rxt(k,153)* y(k,74) & + +rxt(k,206)* y(k,76) +rxt(k,313)* y(k,77) +rxt(k,345)* y(k,78) & + +rxt(k,356)* y(k,79) +rxt(k,357)* y(k,82) +rxt(k,331)* y(k,83) & + +rxt(k,332)* y(k,85) +rxt(k,339)* y(k,87) +rxt(k,341)* y(k,88) & + +rxt(k,167)* y(k,89) +rxt(k,386)* y(k,95) +rxt(k,175)* y(k,98) & + +rxt(k,166)* y(k,99) +rxt(k,314)* y(k,100) +rxt(k,147)* y(k,106) & + +rxt(k,148)* y(k,108) +rxt(k,372)* y(k,110) + 2._r8*(rxt(k,149) + & + rxt(k,150))* y(k,111) +rxt(k,359)* y(k,112) +rxt(k,300)* y(k,113) & + +rxt(k,317)* y(k,117) +rxt(k,321)* y(k,119) +rxt(k,378)* y(k,120) & + +rxt(k,383)* y(k,122) +rxt(k,374)* y(k,123) +rxt(k,368)* y(k,133) & + +rxt(k,365)* y(k,135) +rxt(k,146)* y(k,139) + het_rates(k,111)) & * y(k,111) prod(k,144) = (2.000_r8*rxt(k,138)*y(k,62) +rxt(k,141)*y(k,106) + & rxt(k,142)*y(k,108) +rxt(k,163)*y(k,99) +rxt(k,168)*y(k,97) + & - rxt(k,184)*y(k,42) +.450_r8*rxt(k,287)*y(k,32) + & - .150_r8*rxt(k,316)*y(k,118) +.450_r8*rxt(k,332)*y(k,86) + & - .206_r8*rxt(k,344)*y(k,80))*y(k,139) + (rxt(k,135)*y(k,63) + & - rxt(k,136)*y(k,65) +rxt(k,199)*y(k,71) +rxt(k,202)*y(k,76) + & - rxt(k,228)*y(k,67) +rxt(k,230)*y(k,75) +rxt(k,260)*y(k,27))*y(k,106) & - + (rxt(k,143)*y(k,62) +.130_r8*rxt(k,274)*y(k,9) + & - .360_r8*rxt(k,302)*y(k,14) +.240_r8*rxt(k,327)*y(k,83) + & - .360_r8*rxt(k,337)*y(k,88) +.320_r8*rxt(k,352)*y(k,79) + & - 1.156_r8*rxt(k,364)*y(k,133))*y(k,108) & - + (.300_r8*rxt(k,267)*y(k,39) +.500_r8*rxt(k,280)*y(k,12) + & - .500_r8*rxt(k,314)*y(k,117) +.100_r8*rxt(k,329)*y(k,85) + & - .500_r8*rxt(k,362)*y(k,135))*y(k,111) + (rxt(k,117)*y(k,63) + & - 2.000_r8*rxt(k,118)*y(k,151) +rxt(k,211)*y(k,71) + & - rxt(k,234)*y(k,67) +rxt(k,269)*y(k,40))*y(k,144) + (rxt(k,2) + & - rxt(k,238)*y(k,59))*y(k,151) +rxt(k,20)*y(k,12) +rxt(k,21)*y(k,16) & + rxt(k,187)*y(k,42) +.450_r8*rxt(k,290)*y(k,32) + & + .150_r8*rxt(k,319)*y(k,118) +.450_r8*rxt(k,335)*y(k,86) + & + .206_r8*rxt(k,347)*y(k,80))*y(k,139) + (rxt(k,135)*y(k,63) + & + rxt(k,136)*y(k,65) +rxt(k,202)*y(k,71) +rxt(k,205)*y(k,76) + & + rxt(k,231)*y(k,67) +rxt(k,233)*y(k,75) +rxt(k,263)*y(k,27))*y(k,106) & + + (rxt(k,143)*y(k,62) +.130_r8*rxt(k,277)*y(k,9) + & + .360_r8*rxt(k,305)*y(k,14) +.240_r8*rxt(k,330)*y(k,83) + & + .360_r8*rxt(k,340)*y(k,88) +.320_r8*rxt(k,355)*y(k,79) + & + 1.156_r8*rxt(k,367)*y(k,133))*y(k,108) & + + (.300_r8*rxt(k,270)*y(k,39) +.500_r8*rxt(k,283)*y(k,12) + & + .500_r8*rxt(k,317)*y(k,117) +.100_r8*rxt(k,332)*y(k,85) + & + .500_r8*rxt(k,365)*y(k,135))*y(k,111) + (rxt(k,117)*y(k,63) + & + 2.000_r8*rxt(k,118)*y(k,151) +rxt(k,214)*y(k,71) + & + rxt(k,237)*y(k,67) +rxt(k,272)*y(k,40))*y(k,144) + (rxt(k,2) + & + rxt(k,241)*y(k,59))*y(k,151) +rxt(k,20)*y(k,12) +rxt(k,21)*y(k,16) & +rxt(k,27)*y(k,36) +rxt(k,28)*y(k,39) +.330_r8*rxt(k,29)*y(k,40) & +rxt(k,32)*y(k,58) +2.000_r8*rxt(k,4)*y(k,65) +rxt(k,9)*y(k,73) & - +rxt(k,10)*y(k,74) +rxt(k,78)*y(k,75) +rxt(k,79)*y(k,76) & - +.500_r8*rxt(k,387)*y(k,98) +rxt(k,44)*y(k,117) +rxt(k,45)*y(k,119) & - +rxt(k,46)*y(k,135) - loss(k,112) = (rxt(k,355)* y(k,99) +rxt(k,356)* y(k,111) + rxt(k,42) & - + rxt(k,389) + het_rates(k,112))* y(k,112) - prod(k,112) = (.794_r8*rxt(k,344)*y(k,139) +.794_r8*rxt(k,345)*y(k,97) + & - .794_r8*rxt(k,346)*y(k,99))*y(k,80) + (.800_r8*rxt(k,326)*y(k,84) + & - .080_r8*rxt(k,350)*y(k,81))*y(k,97) - loss(k,79) = (rxt(k,297)* y(k,111) + rxt(k,43) + rxt(k,300) & + +rxt(k,10)*y(k,74) +rxt(k,78)*y(k,75) +rxt(k,79)*y(k,76) +rxt(k,36) & + *y(k,82) +.500_r8*rxt(k,390)*y(k,98) +rxt(k,44)*y(k,117) +rxt(k,45) & + *y(k,119) +rxt(k,46)*y(k,135) + loss(k,112) = (rxt(k,358)* y(k,99) +rxt(k,359)* y(k,111) + rxt(k,42) & + + rxt(k,392) + het_rates(k,112))* y(k,112) + prod(k,112) = (.794_r8*rxt(k,347)*y(k,139) +.794_r8*rxt(k,348)*y(k,97) + & + .794_r8*rxt(k,349)*y(k,99))*y(k,80) + (.800_r8*rxt(k,329)*y(k,84) + & + .080_r8*rxt(k,353)*y(k,81))*y(k,97) + loss(k,79) = (rxt(k,300)* y(k,111) + rxt(k,43) + rxt(k,303) & + het_rates(k,113))* y(k,113) - prod(k,79) =rxt(k,299)*y(k,98)*y(k,32) - loss(k,96) = (rxt(k,313)* y(k,97) +rxt(k,312)* y(k,139) + het_rates(k,114)) & + prod(k,79) =rxt(k,302)*y(k,98)*y(k,32) + loss(k,96) = (rxt(k,316)* y(k,97) +rxt(k,315)* y(k,139) + het_rates(k,114)) & * y(k,114) - prod(k,96) = (.500_r8*rxt(k,314)*y(k,117) +rxt(k,319)*y(k,14))*y(k,111) + prod(k,96) = (.500_r8*rxt(k,317)*y(k,117) +rxt(k,322)*y(k,14))*y(k,111) loss(k,17) = ( + het_rates(k,115))* y(k,115) prod(k,17) = 0._r8 loss(k,18) = ( + het_rates(k,116))* y(k,116) prod(k,18) = 0._r8 - loss(k,81) = (rxt(k,314)* y(k,111) + rxt(k,44) + het_rates(k,117))* y(k,117) - prod(k,81) =rxt(k,312)*y(k,139)*y(k,114) - loss(k,113) = (rxt(k,315)* y(k,37) +rxt(k,317)* y(k,97) +rxt(k,316)* y(k,139) & + loss(k,81) = (rxt(k,317)* y(k,111) + rxt(k,44) + het_rates(k,117))* y(k,117) + prod(k,81) =rxt(k,315)*y(k,139)*y(k,114) + loss(k,113) = (rxt(k,318)* y(k,37) +rxt(k,320)* y(k,97) +rxt(k,319)* y(k,139) & + het_rates(k,118))* y(k,118) - prod(k,113) = (rxt(k,318)*y(k,119) +rxt(k,320)*y(k,33))*y(k,111) - loss(k,70) = (rxt(k,318)* y(k,111) + rxt(k,45) + het_rates(k,119))* y(k,119) - prod(k,70) =.850_r8*rxt(k,316)*y(k,139)*y(k,118) - loss(k,90) = (rxt(k,370)* y(k,107) +rxt(k,372)* y(k,108) +rxt(k,375) & + prod(k,113) = (rxt(k,321)*y(k,119) +rxt(k,323)*y(k,33))*y(k,111) + loss(k,70) = (rxt(k,321)* y(k,111) + rxt(k,45) + het_rates(k,119))* y(k,119) + prod(k,70) =.850_r8*rxt(k,319)*y(k,139)*y(k,118) + loss(k,90) = (rxt(k,373)* y(k,107) +rxt(k,375)* y(k,108) +rxt(k,378) & * y(k,111) + het_rates(k,120))* y(k,120) prod(k,90) =rxt(k,109)*y(k,110) +rxt(k,110)*y(k,122) loss(k,19) = ( + rxt(k,81) + het_rates(k,121))* y(k,121) prod(k,19) = 0._r8 - loss(k,129) = (rxt(k,373)* y(k,6) +rxt(k,374)* y(k,45) +rxt(k,376)* y(k,98) & - +rxt(k,377)* y(k,107) +rxt(k,378)* y(k,108) +rxt(k,379)* y(k,109) & - +rxt(k,380)* y(k,111) + rxt(k,110) + het_rates(k,122))* y(k,122) - prod(k,129) = (rxt(k,370)*y(k,107) +rxt(k,372)*y(k,108) +rxt(k,375)*y(k,111)) & - *y(k,120) +rxt(k,368)*y(k,110)*y(k,106) +rxt(k,111)*y(k,123) - loss(k,109) = (rxt(k,371)* y(k,111) + rxt(k,111) + het_rates(k,123)) & + loss(k,129) = (rxt(k,376)* y(k,6) +rxt(k,377)* y(k,45) +rxt(k,379)* y(k,98) & + +rxt(k,380)* y(k,107) +rxt(k,381)* y(k,108) +rxt(k,382)* y(k,109) & + +rxt(k,383)* y(k,111) + rxt(k,110) + het_rates(k,122))* y(k,122) + prod(k,129) = (rxt(k,373)*y(k,107) +rxt(k,375)*y(k,108) +rxt(k,378)*y(k,111)) & + *y(k,120) +rxt(k,371)*y(k,110)*y(k,106) +rxt(k,111)*y(k,123) + loss(k,109) = (rxt(k,374)* y(k,111) + rxt(k,111) + het_rates(k,123)) & * y(k,123) - prod(k,109) = (rxt(k,373)*y(k,6) +rxt(k,374)*y(k,45) +rxt(k,376)*y(k,98) + & - rxt(k,377)*y(k,107) +rxt(k,378)*y(k,108) +rxt(k,379)*y(k,109) + & - rxt(k,380)*y(k,111))*y(k,122) + (rxt(k,366)*y(k,99) + & - rxt(k,367)*y(k,111) +.500_r8*rxt(k,381)*y(k,111))*y(k,52) & - +rxt(k,369)*y(k,111)*y(k,110) +rxt(k,112)*y(k,124) - loss(k,55) = (rxt(k,382)* y(k,151) + rxt(k,112) + het_rates(k,124))* y(k,124) - prod(k,55) =rxt(k,108)*y(k,66) +rxt(k,371)*y(k,123)*y(k,111) + prod(k,109) = (rxt(k,376)*y(k,6) +rxt(k,377)*y(k,45) +rxt(k,379)*y(k,98) + & + rxt(k,380)*y(k,107) +rxt(k,381)*y(k,108) +rxt(k,382)*y(k,109) + & + rxt(k,383)*y(k,111))*y(k,122) + (rxt(k,369)*y(k,99) + & + rxt(k,370)*y(k,111) +.500_r8*rxt(k,384)*y(k,111))*y(k,52) & + +rxt(k,372)*y(k,111)*y(k,110) +rxt(k,112)*y(k,124) + loss(k,55) = (rxt(k,385)* y(k,151) + rxt(k,112) + het_rates(k,124))* y(k,124) + prod(k,55) =rxt(k,108)*y(k,66) +rxt(k,374)*y(k,123)*y(k,111) loss(k,20) = ( + het_rates(k,125))* y(k,125) prod(k,20) = 0._r8 loss(k,21) = ( + het_rates(k,126))* y(k,126) @@ -740,95 +740,96 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,24) = 0._r8 loss(k,25) = ( + rxt(k,114) + het_rates(k,130))* y(k,130) prod(k,25) = 0._r8 - loss(k,26) = ( + rxt(k,390) + het_rates(k,131))* y(k,131) + loss(k,26) = ( + rxt(k,393) + het_rates(k,131))* y(k,131) prod(k,26) = 0._r8 loss(k,27) = ( + het_rates(k,132))* y(k,132) - prod(k,27) =rxt(k,390)*y(k,131) - loss(k,88) = (rxt(k,363)* y(k,99) +rxt(k,364)* y(k,108) +rxt(k,365)* y(k,111) & + prod(k,27) =rxt(k,393)*y(k,131) + loss(k,88) = (rxt(k,366)* y(k,99) +rxt(k,367)* y(k,108) +rxt(k,368)* y(k,111) & + het_rates(k,133))* y(k,133) prod(k,88) = 0._r8 - loss(k,120) = (rxt(k,357)* y(k,32) +rxt(k,358)* y(k,37) +rxt(k,360)* y(k,97) & - +rxt(k,361)* y(k,99) +rxt(k,359)* y(k,139) + het_rates(k,134)) & + loss(k,120) = (rxt(k,360)* y(k,32) +rxt(k,361)* y(k,37) +rxt(k,363)* y(k,97) & + +rxt(k,364)* y(k,99) +rxt(k,362)* y(k,139) + het_rates(k,134)) & * y(k,134) - prod(k,120) = (rxt(k,342)*y(k,78) +.800_r8*rxt(k,354)*y(k,82) + & - .500_r8*rxt(k,362)*y(k,135))*y(k,111) - loss(k,47) = (rxt(k,362)* y(k,111) + rxt(k,46) + het_rates(k,135))* y(k,135) - prod(k,47) =rxt(k,359)*y(k,139)*y(k,134) - loss(k,107) = (rxt(k,413)* y(k,141) +rxt(k,411)* y(k,142) +rxt(k,412) & + prod(k,120) = (rxt(k,345)*y(k,78) +.800_r8*rxt(k,357)*y(k,82) + & + .500_r8*rxt(k,365)*y(k,135))*y(k,111) + loss(k,47) = (rxt(k,365)* y(k,111) + rxt(k,46) + het_rates(k,135))* y(k,135) + prod(k,47) =rxt(k,362)*y(k,139)*y(k,134) + loss(k,107) = (rxt(k,416)* y(k,141) +rxt(k,414)* y(k,142) +rxt(k,415) & * y(k,147) + het_rates(k,138))* y(k,138) prod(k,107) = (rxt(k,98) +rxt(k,100) +rxt(k,101) +rxt(k,102) +rxt(k,103) + & rxt(k,105) +rxt(k,106) +rxt(k,107))*y(k,107) + (rxt(k,92) + & rxt(k,93) +rxt(k,94) +rxt(k,95) +rxt(k,96) +rxt(k,97))*y(k,106) & +rxt(k,83)*y(k,89) +rxt(k,15)*y(k,97) - loss(k,137) = (rxt(k,216)* y(k,4) +rxt(k,222)* y(k,6) +rxt(k,277)* y(k,10) & - +rxt(k,304)* y(k,15) +rxt(k,287)* y(k,32) +rxt(k,264)* y(k,37) & - + (rxt(k,183) +rxt(k,184))* y(k,42) +rxt(k,190)* y(k,45) +rxt(k,291) & - * y(k,57) + (rxt(k,137) +rxt(k,138) +rxt(k,139))* y(k,62) +rxt(k,344) & - * y(k,80) +rxt(k,349)* y(k,81) +rxt(k,323)* y(k,84) +rxt(k,332) & + loss(k,137) = (rxt(k,219)* y(k,4) +rxt(k,225)* y(k,6) +rxt(k,280)* y(k,10) & + +rxt(k,307)* y(k,15) +rxt(k,290)* y(k,32) +rxt(k,267)* y(k,37) & + + (rxt(k,186) +rxt(k,187))* y(k,42) +rxt(k,193)* y(k,45) +rxt(k,294) & + * y(k,57) + (rxt(k,137) +rxt(k,138) +rxt(k,139))* y(k,62) +rxt(k,347) & + * y(k,80) +rxt(k,352)* y(k,81) +rxt(k,326)* y(k,84) +rxt(k,335) & * y(k,86) +rxt(k,168)* y(k,97) +rxt(k,173)* y(k,98) +rxt(k,163) & * y(k,99) +rxt(k,141)* y(k,106) +rxt(k,142)* y(k,108) +rxt(k,146) & - * y(k,111) +rxt(k,312)* y(k,114) +rxt(k,316)* y(k,118) +rxt(k,359) & - * y(k,134) + 2._r8*rxt(k,151)* y(k,139) + rxt(k,384) & + * y(k,111) +rxt(k,315)* y(k,114) +rxt(k,319)* y(k,118) +rxt(k,362) & + * y(k,134) + 2._r8*rxt(k,151)* y(k,139) + rxt(k,387) & + het_rates(k,139))* y(k,139) prod(k,137) = (rxt(k,145)*y(k,65) +rxt(k,148)*y(k,108) +rxt(k,166)*y(k,99) + & - rxt(k,197)*y(k,45) +rxt(k,227)*y(k,6) +rxt(k,245)*y(k,28) + & - rxt(k,248)*y(k,31) +rxt(k,266)*y(k,38) +rxt(k,272)*y(k,48) + & - rxt(k,279)*y(k,11) +rxt(k,295)*y(k,60) +rxt(k,296)*y(k,61) + & - rxt(k,310)*y(k,77) +.200_r8*rxt(k,329)*y(k,85) + & - .500_r8*rxt(k,336)*y(k,87) +rxt(k,356)*y(k,112) + & - rxt(k,371)*y(k,123) +.500_r8*rxt(k,381)*y(k,52))*y(k,111) & - + (rxt(k,186)*y(k,45) +2.000_r8*rxt(k,262)*y(k,37) + & - rxt(k,265)*y(k,97) +rxt(k,276)*y(k,10) +.900_r8*rxt(k,286)*y(k,32) + & - rxt(k,303)*y(k,15) +.300_r8*rxt(k,315)*y(k,118) + & - .730_r8*rxt(k,322)*y(k,84) +rxt(k,331)*y(k,86) +rxt(k,348)*y(k,81) + & - .800_r8*rxt(k,358)*y(k,134))*y(k,37) + (rxt(k,278)*y(k,10) + & - .250_r8*rxt(k,292)*y(k,57) +rxt(k,305)*y(k,15) +rxt(k,313)*y(k,114) + & - .470_r8*rxt(k,325)*y(k,84) +.794_r8*rxt(k,345)*y(k,80) + & - .920_r8*rxt(k,350)*y(k,81) +rxt(k,360)*y(k,134))*y(k,97) & - + (rxt(k,259)*y(k,27) +.470_r8*rxt(k,324)*y(k,84) + & - .794_r8*rxt(k,346)*y(k,80) +rxt(k,351)*y(k,81) +rxt(k,355)*y(k,112) + & - rxt(k,361)*y(k,134))*y(k,99) + (.130_r8*rxt(k,274)*y(k,9) + & - .280_r8*rxt(k,302)*y(k,14) +.140_r8*rxt(k,327)*y(k,83) + & - .280_r8*rxt(k,337)*y(k,88) +.370_r8*rxt(k,352)*y(k,79))*y(k,108) & - + (rxt(k,179)*y(k,27) +rxt(k,182)*y(k,65) +rxt(k,244)*y(k,28) + & - rxt(k,247)*y(k,31))*y(k,42) + (.470_r8*rxt(k,321)*y(k,84) + & - rxt(k,347)*y(k,81) +rxt(k,357)*y(k,134))*y(k,32) & - + (rxt(k,215)*y(k,4) +rxt(k,260)*y(k,106))*y(k,27) + (rxt(k,293) + & - rxt(k,294)*y(k,107))*y(k,56) + (rxt(k,11) +rxt(k,177))*y(k,74) & + rxt(k,200)*y(k,45) +rxt(k,230)*y(k,6) +rxt(k,248)*y(k,28) + & + rxt(k,251)*y(k,31) +rxt(k,269)*y(k,38) +rxt(k,275)*y(k,48) + & + rxt(k,282)*y(k,11) +rxt(k,298)*y(k,60) +rxt(k,299)*y(k,61) + & + rxt(k,313)*y(k,77) +.200_r8*rxt(k,332)*y(k,85) + & + .500_r8*rxt(k,339)*y(k,87) +rxt(k,359)*y(k,112) + & + rxt(k,374)*y(k,123) +.500_r8*rxt(k,384)*y(k,52))*y(k,111) & + + (rxt(k,189)*y(k,45) +2.000_r8*rxt(k,265)*y(k,37) + & + rxt(k,268)*y(k,97) +rxt(k,279)*y(k,10) +.900_r8*rxt(k,289)*y(k,32) + & + rxt(k,306)*y(k,15) +.300_r8*rxt(k,318)*y(k,118) + & + .730_r8*rxt(k,325)*y(k,84) +rxt(k,334)*y(k,86) +rxt(k,351)*y(k,81) + & + .800_r8*rxt(k,361)*y(k,134))*y(k,37) + (rxt(k,281)*y(k,10) + & + .250_r8*rxt(k,295)*y(k,57) +rxt(k,308)*y(k,15) +rxt(k,316)*y(k,114) + & + .470_r8*rxt(k,328)*y(k,84) +.794_r8*rxt(k,348)*y(k,80) + & + .920_r8*rxt(k,353)*y(k,81) +rxt(k,363)*y(k,134))*y(k,97) & + + (rxt(k,262)*y(k,27) +.470_r8*rxt(k,327)*y(k,84) + & + .794_r8*rxt(k,349)*y(k,80) +rxt(k,354)*y(k,81) +rxt(k,358)*y(k,112) + & + rxt(k,364)*y(k,134))*y(k,99) + (.130_r8*rxt(k,277)*y(k,9) + & + .280_r8*rxt(k,305)*y(k,14) +.140_r8*rxt(k,330)*y(k,83) + & + .280_r8*rxt(k,340)*y(k,88) +.370_r8*rxt(k,355)*y(k,79))*y(k,108) & + + (rxt(k,182)*y(k,27) +rxt(k,185)*y(k,65) +rxt(k,247)*y(k,28) + & + rxt(k,250)*y(k,31))*y(k,42) + (.470_r8*rxt(k,324)*y(k,84) + & + rxt(k,350)*y(k,81) +rxt(k,360)*y(k,134))*y(k,32) & + + (rxt(k,218)*y(k,4) +rxt(k,263)*y(k,106))*y(k,27) + (rxt(k,296) + & + rxt(k,297)*y(k,107))*y(k,56) + (rxt(k,11) +rxt(k,177))*y(k,74) & + (1.340_r8*rxt(k,37) +.660_r8*rxt(k,38))*y(k,83) & - +1.200_r8*rxt(k,275)*y(k,10)*y(k,10) +rxt(k,20)*y(k,12) +rxt(k,21) & - *y(k,16) +rxt(k,24)*y(k,30) +rxt(k,26)*y(k,34) +rxt(k,270)*y(k,144) & + +1.200_r8*rxt(k,278)*y(k,10)*y(k,10) +rxt(k,20)*y(k,12) +rxt(k,21) & + *y(k,16) +rxt(k,24)*y(k,30) +rxt(k,26)*y(k,34) +rxt(k,273)*y(k,144) & *y(k,40) +2.000_r8*rxt(k,33)*y(k,60) +2.000_r8*rxt(k,34)*y(k,61) & +rxt(k,140)*y(k,107)*y(k,62) +rxt(k,136)*y(k,106)*y(k,65) +rxt(k,35) & *y(k,77) +rxt(k,36)*y(k,82) +rxt(k,42)*y(k,112) +rxt(k,44)*y(k,117) - loss(k,108) = (rxt(k,153)* y(k,106) +rxt(k,154)* y(k,107) +rxt(k,425) & - * y(k,148) + het_rates(k,140))* y(k,140) - prod(k,108) = (.800_r8*rxt(k,411)*y(k,142) +.900_r8*rxt(k,413)*y(k,141)) & - *y(k,138) +rxt(k,415)*y(k,141)*y(k,106) - loss(k,87) = ((rxt(k,415) +rxt(k,416))* y(k,106) +rxt(k,414)* y(k,107) & - +rxt(k,413)* y(k,138) + het_rates(k,141))* y(k,141) - prod(k,87) =rxt(k,428)*y(k,149) +rxt(k,433)*y(k,150) - loss(k,92) = (rxt(k,411)* y(k,138) + het_rates(k,142))* y(k,142) - prod(k,92) = (rxt(k,421) +rxt(k,420)*y(k,89) +rxt(k,422)*y(k,97))*y(k,147) & - +rxt(k,15)*y(k,97) +rxt(k,415)*y(k,141)*y(k,106) & - +rxt(k,419)*y(k,143)*y(k,107) +rxt(k,424)*y(k,148) - loss(k,100) = (rxt(k,417)* y(k,106) + (rxt(k,418) +rxt(k,419))* y(k,107) & + loss(k,108) = (rxt(k,154)* y(k,97) +rxt(k,155)* y(k,106) +rxt(k,179) & + * y(k,107) +rxt(k,178)* y(k,138) +rxt(k,428)* y(k,148) + rxt(k,152) & + + het_rates(k,140))* y(k,140) + prod(k,108) = (.800_r8*rxt(k,414)*y(k,142) +.900_r8*rxt(k,416)*y(k,141)) & + *y(k,138) +rxt(k,418)*y(k,141)*y(k,106) + loss(k,87) = ((rxt(k,418) +rxt(k,419))* y(k,106) +rxt(k,417)* y(k,107) & + +rxt(k,416)* y(k,138) + het_rates(k,141))* y(k,141) + prod(k,87) =rxt(k,431)*y(k,149) +rxt(k,436)*y(k,150) + loss(k,92) = (rxt(k,414)* y(k,138) + het_rates(k,142))* y(k,142) + prod(k,92) = (rxt(k,424) +rxt(k,423)*y(k,89) +rxt(k,425)*y(k,97))*y(k,147) & + +rxt(k,15)*y(k,97) +rxt(k,418)*y(k,141)*y(k,106) & + +rxt(k,422)*y(k,143)*y(k,107) +rxt(k,427)*y(k,148) + loss(k,100) = (rxt(k,420)* y(k,106) + (rxt(k,421) +rxt(k,422))* y(k,107) & + het_rates(k,143))* y(k,143) - prod(k,100) =rxt(k,83)*y(k,89) +rxt(k,425)*y(k,148)*y(k,140) +rxt(k,434) & + prod(k,100) =rxt(k,83)*y(k,89) +rxt(k,428)*y(k,148)*y(k,140) +rxt(k,437) & *y(k,150) - loss(k,142) = (rxt(k,204)* y(k,18) +rxt(k,205)* y(k,19) +rxt(k,231)* y(k,20) & - +rxt(k,206)* y(k,21) +rxt(k,207)* y(k,22) +rxt(k,208)* y(k,23) & - +rxt(k,209)* y(k,24) +rxt(k,210)* y(k,25) +rxt(k,254)* y(k,26) & - +rxt(k,255)* y(k,28) + (rxt(k,269) +rxt(k,270) +rxt(k,271))* y(k,40) & - +rxt(k,232)* y(k,41) +rxt(k,240)* y(k,50) +rxt(k,241)* y(k,51) & - +rxt(k,117)* y(k,63) +rxt(k,233)* y(k,64) + (rxt(k,234) +rxt(k,235)) & - * y(k,67) +rxt(k,256)* y(k,68) +rxt(k,257)* y(k,69) +rxt(k,258) & - * y(k,70) + (rxt(k,211) +rxt(k,212))* y(k,71) + (rxt(k,171) + & + loss(k,142) = (rxt(k,207)* y(k,18) +rxt(k,208)* y(k,19) +rxt(k,234)* y(k,20) & + +rxt(k,209)* y(k,21) +rxt(k,210)* y(k,22) +rxt(k,211)* y(k,23) & + +rxt(k,212)* y(k,24) +rxt(k,213)* y(k,25) +rxt(k,257)* y(k,26) & + +rxt(k,258)* y(k,28) + (rxt(k,272) +rxt(k,273) +rxt(k,274))* y(k,40) & + +rxt(k,235)* y(k,41) +rxt(k,243)* y(k,50) +rxt(k,244)* y(k,51) & + +rxt(k,117)* y(k,63) +rxt(k,236)* y(k,64) + (rxt(k,237) +rxt(k,238)) & + * y(k,67) +rxt(k,259)* y(k,68) +rxt(k,260)* y(k,69) +rxt(k,261) & + * y(k,70) + (rxt(k,214) +rxt(k,215))* y(k,71) + (rxt(k,171) + & rxt(k,172))* y(k,90) + (rxt(k,120) +rxt(k,121))* y(k,107) & + (rxt(k,122) +rxt(k,123))* y(k,108) +rxt(k,118)* y(k,151) & + rxt(k,119) + het_rates(k,144))* y(k,144) - prod(k,142) = (rxt(k,5) +rxt(k,154)*y(k,140))*y(k,107) +rxt(k,12)*y(k,90) & - +rxt(k,7)*y(k,108) +.850_r8*rxt(k,412)*y(k,147)*y(k,138) +rxt(k,1) & + prod(k,142) = (rxt(k,5) +rxt(k,179)*y(k,140))*y(k,107) +rxt(k,12)*y(k,90) & + +rxt(k,7)*y(k,108) +.850_r8*rxt(k,415)*y(k,147)*y(k,138) +rxt(k,1) & *y(k,151) loss(k,45) = (rxt(k,125)* y(k,106) +rxt(k,126)* y(k,107) + rxt(k,115) & + rxt(k,124) + het_rates(k,145))* y(k,145) @@ -838,42 +839,42 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & +rxt(k,131)* y(k,108) + rxt(k,116) + rxt(k,128) + het_rates(k,146)) & * y(k,146) prod(k,46) =rxt(k,120)*y(k,144)*y(k,107) - loss(k,106) = (rxt(k,420)* y(k,89) +rxt(k,422)* y(k,97) +rxt(k,412)* y(k,138) & - + rxt(k,421) + het_rates(k,147))* y(k,147) - prod(k,106) = (rxt(k,102) +rxt(k,107) +rxt(k,414)*y(k,141) + & - rxt(k,418)*y(k,143) +rxt(k,426)*y(k,148) +rxt(k,430)*y(k,149)) & - *y(k,107) +rxt(k,423)*y(k,148)*y(k,49) - loss(k,105) = (rxt(k,423)* y(k,49) +rxt(k,426)* y(k,107) +rxt(k,425) & - * y(k,140) + rxt(k,424) + het_rates(k,148))* y(k,148) - prod(k,105) = (rxt(k,93) +rxt(k,97) +rxt(k,416)*y(k,141) + & - rxt(k,417)*y(k,143) +rxt(k,429)*y(k,149) +rxt(k,435)*y(k,150)) & + loss(k,106) = (rxt(k,423)* y(k,89) +rxt(k,425)* y(k,97) +rxt(k,415)* y(k,138) & + + rxt(k,424) + het_rates(k,147))* y(k,147) + prod(k,106) = (rxt(k,102) +rxt(k,107) +rxt(k,417)*y(k,141) + & + rxt(k,421)*y(k,143) +rxt(k,429)*y(k,148) +rxt(k,433)*y(k,149)) & + *y(k,107) +rxt(k,426)*y(k,148)*y(k,49) + loss(k,105) = (rxt(k,426)* y(k,49) +rxt(k,429)* y(k,107) +rxt(k,428) & + * y(k,140) + rxt(k,427) + het_rates(k,148))* y(k,148) + prod(k,105) = (rxt(k,93) +rxt(k,97) +rxt(k,419)*y(k,141) + & + rxt(k,420)*y(k,143) +rxt(k,432)*y(k,149) +rxt(k,438)*y(k,150)) & *y(k,106) + (rxt(k,103) +rxt(k,106))*y(k,107) & - + (rxt(k,427)*y(k,149) +rxt(k,432)*y(k,150))*y(k,138) +rxt(k,409) & - *y(k,149) +rxt(k,408)*y(k,150) - loss(k,77) = (rxt(k,429)* y(k,106) +rxt(k,430)* y(k,107) +rxt(k,427) & - * y(k,138) + rxt(k,409) + rxt(k,428) + het_rates(k,149))* y(k,149) + + (rxt(k,430)*y(k,149) +rxt(k,435)*y(k,150))*y(k,138) +rxt(k,412) & + *y(k,149) +rxt(k,411)*y(k,150) + loss(k,77) = (rxt(k,432)* y(k,106) +rxt(k,433)* y(k,107) +rxt(k,430) & + * y(k,138) + rxt(k,412) + rxt(k,431) + het_rates(k,149))* y(k,149) prod(k,77) = (rxt(k,94) +rxt(k,95))*y(k,106) + (rxt(k,98) +rxt(k,100)) & - *y(k,107) + (rxt(k,410) +rxt(k,431)*y(k,138))*y(k,150) - loss(k,76) = (rxt(k,435)* y(k,106) + (rxt(k,431) +rxt(k,432))* y(k,138) & - + rxt(k,408) + rxt(k,410) + rxt(k,433) + rxt(k,434) & + *y(k,107) + (rxt(k,413) +rxt(k,434)*y(k,138))*y(k,150) + loss(k,76) = (rxt(k,438)* y(k,106) + (rxt(k,434) +rxt(k,435))* y(k,138) & + + rxt(k,411) + rxt(k,413) + rxt(k,436) + rxt(k,437) & + het_rates(k,150))* y(k,150) prod(k,76) = (rxt(k,92) +rxt(k,96))*y(k,106) + (rxt(k,101) +rxt(k,105)) & *y(k,107) - loss(k,149) = (rxt(k,238)* y(k,59) +rxt(k,382)* y(k,124) +rxt(k,118) & + loss(k,149) = (rxt(k,241)* y(k,59) +rxt(k,385)* y(k,124) +rxt(k,118) & * y(k,144) + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,151)) & * y(k,151) prod(k,149) = (rxt(k,144)*y(k,63) +rxt(k,145)*y(k,65) +rxt(k,146)*y(k,139) + & - rxt(k,149)*y(k,111) +rxt(k,152)*y(k,74) +rxt(k,176)*y(k,73) + & - rxt(k,200)*y(k,71) +rxt(k,203)*y(k,76) +rxt(k,229)*y(k,67) + & - rxt(k,243)*y(k,26) +rxt(k,245)*y(k,28) +rxt(k,246)*y(k,29) + & - rxt(k,248)*y(k,31) +rxt(k,253)*y(k,70) +rxt(k,261)*y(k,27) + & - rxt(k,267)*y(k,39) +rxt(k,268)*y(k,40) +rxt(k,282)*y(k,13) + & - rxt(k,284)*y(k,30) +rxt(k,289)*y(k,35) +rxt(k,290)*y(k,36) + & - rxt(k,306)*y(k,16) +rxt(k,307)*y(k,17) +rxt(k,309)*y(k,34) + & - rxt(k,314)*y(k,117) +rxt(k,318)*y(k,119) +rxt(k,320)*y(k,33) + & - .500_r8*rxt(k,328)*y(k,83) +rxt(k,383)*y(k,95))*y(k,111) & - + (rxt(k,392)*y(k,76) +rxt(k,398)*y(k,76) +rxt(k,399)*y(k,75) + & - rxt(k,403)*y(k,76) +rxt(k,404)*y(k,75))*y(k,71) + (rxt(k,384) + & + rxt(k,149)*y(k,111) +rxt(k,153)*y(k,74) +rxt(k,176)*y(k,73) + & + rxt(k,203)*y(k,71) +rxt(k,206)*y(k,76) +rxt(k,232)*y(k,67) + & + rxt(k,246)*y(k,26) +rxt(k,248)*y(k,28) +rxt(k,249)*y(k,29) + & + rxt(k,251)*y(k,31) +rxt(k,256)*y(k,70) +rxt(k,264)*y(k,27) + & + rxt(k,270)*y(k,39) +rxt(k,271)*y(k,40) +rxt(k,285)*y(k,13) + & + rxt(k,287)*y(k,30) +rxt(k,292)*y(k,35) +rxt(k,293)*y(k,36) + & + rxt(k,309)*y(k,16) +rxt(k,310)*y(k,17) +rxt(k,312)*y(k,34) + & + rxt(k,317)*y(k,117) +rxt(k,321)*y(k,119) +rxt(k,323)*y(k,33) + & + .500_r8*rxt(k,331)*y(k,83) +rxt(k,386)*y(k,95))*y(k,111) & + + (rxt(k,395)*y(k,76) +rxt(k,401)*y(k,76) +rxt(k,402)*y(k,75) + & + rxt(k,406)*y(k,76) +rxt(k,407)*y(k,75))*y(k,71) + (rxt(k,387) + & rxt(k,139)*y(k,62))*y(k,139) +.050_r8*rxt(k,29)*y(k,40) +rxt(k,108) & *y(k,66) end do diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_rxt_rates_conv.F90 index 173d842c37..4977fbf47d 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_rxt_rates_conv.F90 @@ -159,14 +159,14 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 111)*sol(:ncol,:, 111) ! rate_const*OH*OH rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 111)*sol(:ncol,:, 111) ! rate_const*M*OH*OH rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 139)*sol(:ncol,:, 139) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 74)*sol(:ncol,:, 111) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 140)*sol(:ncol,:, 106) ! rate_const*N2D*O - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 140)*sol(:ncol,:, 107) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 89)*sol(:ncol,:, 97) ! rate_const*N*NO - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 89)*sol(:ncol,:, 98) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 140) ! rate_const*N2D + rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 74)*sol(:ncol,:, 111) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 140)*sol(:ncol,:, 97) ! rate_const*N2D*NO + rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 140)*sol(:ncol,:, 106) ! rate_const*N2D*O + rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 89)*sol(:ncol,:, 97) ! rate_const*N*NO rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 89)*sol(:ncol,:, 98) ! rate_const*N*NO2 rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 89)*sol(:ncol,:, 98) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 89)*sol(:ncol,:, 107) ! rate_const*N*O2 + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 89)*sol(:ncol,:, 98) ! rate_const*N*NO2 rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 98)*sol(:ncol,:, 106) ! rate_const*NO2*O rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 98)*sol(:ncol,:, 108) ! rate_const*NO2*O3 rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 98)*sol(:ncol,:, 106) ! rate_const*M*NO2*O @@ -185,263 +185,266 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 98)*sol(:ncol,:, 111) ! rate_const*M*NO2*OH rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 73)*sol(:ncol,:, 111) ! rate_const*HNO3*OH rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 74) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 91) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 42)*sol(:ncol,:, 27) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 42)*sol(:ncol,:, 40) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 42)*sol(:ncol,:, 63) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 42)*sol(:ncol,:, 65) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 42)*sol(:ncol,:, 139) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 42)*sol(:ncol,:, 139) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 42)*sol(:ncol,:, 108) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 45)*sol(:ncol,:, 37) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 45)*sol(:ncol,:, 139) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 45)*sol(:ncol,:, 97) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 45)*sol(:ncol,:, 98) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 46)*sol(:ncol,:, 106) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 46)*sol(:ncol,:, 111) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 45)*sol(:ncol,:, 106) ! rate_const*CLO*O - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 45)*sol(:ncol,:, 111) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 45)*sol(:ncol,:, 111) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 71)*sol(:ncol,:, 106) ! rate_const*HCL*O - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 71)*sol(:ncol,:, 111) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 76)*sol(:ncol,:, 42) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 76)*sol(:ncol,:, 106) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 76)*sol(:ncol,:, 111) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 144)*sol(:ncol,:, 18) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 144)*sol(:ncol,:, 19) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 144)*sol(:ncol,:, 21) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 144)*sol(:ncol,:, 22) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 144)*sol(:ncol,:, 23) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 144)*sol(:ncol,:, 24) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 144)*sol(:ncol,:, 25) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 144)*sol(:ncol,:, 71) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 144)*sol(:ncol,:, 71) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 44) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 4)*sol(:ncol,:, 27) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 4)*sol(:ncol,:, 139) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 4)*sol(:ncol,:, 108) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 6)*sol(:ncol,:, 6) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 6)*sol(:ncol,:, 139) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 6)*sol(:ncol,:, 97) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 6)*sol(:ncol,:, 98) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 7)*sol(:ncol,:, 106) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 6)*sol(:ncol,:, 106) ! rate_const*BRO*O - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 6)*sol(:ncol,:, 111) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 67)*sol(:ncol,:, 106) ! rate_const*HBR*O - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 67)*sol(:ncol,:, 111) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 75)*sol(:ncol,:, 106) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 144)*sol(:ncol,:, 20) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 144)*sol(:ncol,:, 41) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 144)*sol(:ncol,:, 64) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 144)*sol(:ncol,:, 67) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 144)*sol(:ncol,:, 67) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 59)*sol(:ncol,:, 40) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 59)*sol(:ncol,:, 63) ! rate_const*F*H2 - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 59)*sol(:ncol,:, 151) ! rate_const*F*H2O - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 59)*sol(:ncol,:, 73) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 144)*sol(:ncol,:, 50) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 144)*sol(:ncol,:, 51) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 26)*sol(:ncol,:, 42) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 26)*sol(:ncol,:, 111) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 28)*sol(:ncol,:, 42) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 28)*sol(:ncol,:, 111) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 29)*sol(:ncol,:, 111) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 31)*sol(:ncol,:, 42) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 31)*sol(:ncol,:, 111) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 41)*sol(:ncol,:, 42) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 41)*sol(:ncol,:, 111) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 68)*sol(:ncol,:, 111) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 69)*sol(:ncol,:, 111) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 70)*sol(:ncol,:, 111) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 144)*sol(:ncol,:, 26) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 144)*sol(:ncol,:, 28) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 144)*sol(:ncol,:, 68) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 144)*sol(:ncol,:, 69) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 144)*sol(:ncol,:, 70) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 27)*sol(:ncol,:, 99) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 27)*sol(:ncol,:, 106) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 27)*sol(:ncol,:, 111) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 37)*sol(:ncol,:, 37) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 37)*sol(:ncol,:, 37) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 37)*sol(:ncol,:, 139) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 37)*sol(:ncol,:, 97) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 38)*sol(:ncol,:, 111) ! rate_const*CH3OH*OH - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 39)*sol(:ncol,:, 111) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 40)*sol(:ncol,:, 111) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 48)*sol(:ncol,:, 111) ! rate_const*CO*OH - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 9)*sol(:ncol,:, 42) ! rate_const*M*C2H4*CL - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 9)*sol(:ncol,:, 108) ! rate_const*C2H4*O3 - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 10)*sol(:ncol,:, 10) ! rate_const*C2H5O2*C2H5O2 - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 10)*sol(:ncol,:, 37) ! rate_const*C2H5O2*CH3O2 - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 10)*sol(:ncol,:, 139) ! rate_const*C2H5O2*HO2 - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 10)*sol(:ncol,:, 97) ! rate_const*C2H5O2*NO - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 11)*sol(:ncol,:, 111) ! rate_const*C2H5OH*OH - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 12)*sol(:ncol,:, 111) ! rate_const*C2H5OOH*OH - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 13)*sol(:ncol,:, 42) ! rate_const*C2H6*CL - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 13)*sol(:ncol,:, 111) ! rate_const*C2H6*OH - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 30)*sol(:ncol,:, 99) ! rate_const*CH3CHO*NO3 - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 30)*sol(:ncol,:, 111) ! rate_const*CH3CHO*OH - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 32)*sol(:ncol,:, 32) ! rate_const*CH3CO3*CH3CO3 - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 32)*sol(:ncol,:, 37) ! rate_const*CH3CO3*CH3O2 - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 32)*sol(:ncol,:, 139) ! rate_const*CH3CO3*HO2 - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 32)*sol(:ncol,:, 97) ! rate_const*CH3CO3*NO - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 35)*sol(:ncol,:, 111) ! rate_const*CH3COOH*OH - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 36)*sol(:ncol,:, 111) ! rate_const*CH3COOOH*OH - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 57)*sol(:ncol,:, 139) ! rate_const*EO2*HO2 - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 57)*sol(:ncol,:, 97) ! rate_const*EO2*NO - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 56) ! rate_const*EO - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 56)*sol(:ncol,:, 107) ! rate_const*EO*O2 - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 60)*sol(:ncol,:, 111) ! rate_const*GLYALD*OH - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 61)*sol(:ncol,:, 111) ! rate_const*GLYOXAL*OH - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 113)*sol(:ncol,:, 111) ! rate_const*PAN*OH - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 9)*sol(:ncol,:, 111) ! rate_const*M*C2H4*OH - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 32)*sol(:ncol,:, 98) ! rate_const*M*CH3CO3*NO2 - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 113) ! rate_const*M*PAN - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 14)*sol(:ncol,:, 99) ! rate_const*C3H6*NO3 - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 14)*sol(:ncol,:, 108) ! rate_const*C3H6*O3 - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 15)*sol(:ncol,:, 37) ! rate_const*C3H7O2*CH3O2 - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 15)*sol(:ncol,:, 139) ! rate_const*C3H7O2*HO2 - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 15)*sol(:ncol,:, 97) ! rate_const*C3H7O2*NO - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 16)*sol(:ncol,:, 111) ! rate_const*C3H7OOH*OH - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 17)*sol(:ncol,:, 111) ! rate_const*C3H8*OH - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 34)*sol(:ncol,:, 99) ! rate_const*CH3COCHO*NO3 - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 34)*sol(:ncol,:, 111) ! rate_const*CH3COCHO*OH - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 77)*sol(:ncol,:, 111) ! rate_const*HYAC*OH - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 100)*sol(:ncol,:, 111) ! rate_const*NOA*OH - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 114)*sol(:ncol,:, 139) ! rate_const*PO2*HO2 - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 114)*sol(:ncol,:, 97) ! rate_const*PO2*NO - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 117)*sol(:ncol,:, 111) ! rate_const*POOH*OH - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 118)*sol(:ncol,:, 37) ! rate_const*RO2*CH3O2 - rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 118)*sol(:ncol,:, 139) ! rate_const*RO2*HO2 - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 118)*sol(:ncol,:, 97) ! rate_const*RO2*NO - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 119)*sol(:ncol,:, 111) ! rate_const*ROOH*OH - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 14)*sol(:ncol,:, 111) ! rate_const*M*C3H6*OH - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 33)*sol(:ncol,:, 111) ! rate_const*CH3COCH3*OH - rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 84)*sol(:ncol,:, 32) ! rate_const*MACRO2*CH3CO3 - rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 84)*sol(:ncol,:, 37) ! rate_const*MACRO2*CH3O2 - rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 84)*sol(:ncol,:, 139) ! rate_const*MACRO2*HO2 - rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 84)*sol(:ncol,:, 99) ! rate_const*MACRO2*NO3 - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 84)*sol(:ncol,:, 97) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 84)*sol(:ncol,:, 97) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 83)*sol(:ncol,:, 108) ! rate_const*MACR*O3 - rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 83)*sol(:ncol,:, 111) ! rate_const*MACR*OH - rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 85)*sol(:ncol,:, 111) ! rate_const*MACROOH*OH - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 86)*sol(:ncol,:, 32) ! rate_const*MCO3*CH3CO3 - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 86)*sol(:ncol,:, 37) ! rate_const*MCO3*CH3O2 - rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 86)*sol(:ncol,:, 139) ! rate_const*MCO3*HO2 - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 86)*sol(:ncol,:, 86) ! rate_const*MCO3*MCO3 - rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 86)*sol(:ncol,:, 97) ! rate_const*MCO3*NO - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 86)*sol(:ncol,:, 99) ! rate_const*MCO3*NO3 - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 87)*sol(:ncol,:, 111) ! rate_const*M*MPAN*OH - rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 88)*sol(:ncol,:, 108) ! rate_const*MVK*O3 - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 88)*sol(:ncol,:, 111) ! rate_const*MVK*OH - rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 86)*sol(:ncol,:, 98) ! rate_const*M*MCO3*NO2 - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 87) ! rate_const*M*MPAN - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 3)*sol(:ncol,:, 111) ! rate_const*BIGALK*OH - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 78)*sol(:ncol,:, 111) ! rate_const*HYDRALD*OH - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 79)*sol(:ncol,:, 99) ! rate_const*ISOP*NO3 - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 80)*sol(:ncol,:, 139) ! rate_const*ISOPNO3*HO2 - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 80)*sol(:ncol,:, 97) ! rate_const*ISOPNO3*NO - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 80)*sol(:ncol,:, 99) ! rate_const*ISOPNO3*NO3 - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 81)*sol(:ncol,:, 32) ! rate_const*ISOPO2*CH3CO3 - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 81)*sol(:ncol,:, 37) ! rate_const*ISOPO2*CH3O2 - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 81)*sol(:ncol,:, 139) ! rate_const*ISOPO2*HO2 - rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 81)*sol(:ncol,:, 97) ! rate_const*ISOPO2*NO - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 81)*sol(:ncol,:, 99) ! rate_const*ISOPO2*NO3 - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 79)*sol(:ncol,:, 108) ! rate_const*ISOP*O3 - rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 79)*sol(:ncol,:, 111) ! rate_const*ISOP*OH - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 82)*sol(:ncol,:, 111) ! rate_const*ISOPOOH*OH - rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 112)*sol(:ncol,:, 99) ! rate_const*ONITR*NO3 - rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 112)*sol(:ncol,:, 111) ! rate_const*ONITR*OH - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 134)*sol(:ncol,:, 32) ! rate_const*XO2*CH3CO3 - rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 134)*sol(:ncol,:, 37) ! rate_const*XO2*CH3O2 - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 134)*sol(:ncol,:, 139) ! rate_const*XO2*HO2 - rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 134)*sol(:ncol,:, 97) ! rate_const*XO2*NO - rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 134)*sol(:ncol,:, 99) ! rate_const*XO2*NO3 - rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 135)*sol(:ncol,:, 111) ! rate_const*XOOH*OH - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 133)*sol(:ncol,:, 99) ! rate_const*TERP*NO3 - rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 133)*sol(:ncol,:, 108) ! rate_const*TERP*O3 - rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 133)*sol(:ncol,:, 111) ! rate_const*TERP*OH - rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 52)*sol(:ncol,:, 99) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 52)*sol(:ncol,:, 111) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 110)*sol(:ncol,:, 106) ! rate_const*OCS*O - rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 110)*sol(:ncol,:, 111) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 120)*sol(:ncol,:, 107) ! rate_const*S*O2 - rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 123)*sol(:ncol,:, 111) ! rate_const*M*SO2*OH - rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 120)*sol(:ncol,:, 108) ! rate_const*S*O3 - rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 122)*sol(:ncol,:, 6) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 122)*sol(:ncol,:, 45) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 120)*sol(:ncol,:, 111) ! rate_const*S*OH - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 122)*sol(:ncol,:, 98) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 122)*sol(:ncol,:, 107) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 122)*sol(:ncol,:, 108) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 122)*sol(:ncol,:, 109) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 122)*sol(:ncol,:, 111) ! rate_const*SO*OH - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 52)*sol(:ncol,:, 111) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 124)*sol(:ncol,:, 151) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 95)*sol(:ncol,:, 111) ! rate_const*NH3*OH - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 139) ! rate_const*HO2 - rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 91) ! rate_const*N2O5 - rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 96) ! rate_const*NH4 - rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 98) ! rate_const*NO2 - rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 99) ! rate_const*NO3 - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 112) ! rate_const*ONITR - rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 131) ! rate_const*SOAE - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 91) ! rate_const*N2O5 - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 7) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 140)*sol(:ncol,:, 138) ! rate_const*N2D*e + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 140)*sol(:ncol,:, 107) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 91) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 89)*sol(:ncol,:, 107) ! rate_const*N*O2 + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 42)*sol(:ncol,:, 27) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 42)*sol(:ncol,:, 40) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 42)*sol(:ncol,:, 63) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 42)*sol(:ncol,:, 65) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 42)*sol(:ncol,:, 139) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 42)*sol(:ncol,:, 139) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 42)*sol(:ncol,:, 108) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 45)*sol(:ncol,:, 37) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 45)*sol(:ncol,:, 139) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 45)*sol(:ncol,:, 97) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 45)*sol(:ncol,:, 98) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 46)*sol(:ncol,:, 106) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 46)*sol(:ncol,:, 111) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 45)*sol(:ncol,:, 106) ! rate_const*CLO*O + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 45)*sol(:ncol,:, 111) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 45)*sol(:ncol,:, 111) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 71)*sol(:ncol,:, 106) ! rate_const*HCL*O + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 71)*sol(:ncol,:, 111) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 76)*sol(:ncol,:, 42) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 76)*sol(:ncol,:, 106) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 76)*sol(:ncol,:, 111) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 144)*sol(:ncol,:, 18) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 144)*sol(:ncol,:, 19) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 144)*sol(:ncol,:, 21) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 144)*sol(:ncol,:, 22) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 144)*sol(:ncol,:, 23) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 144)*sol(:ncol,:, 24) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 144)*sol(:ncol,:, 25) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 144)*sol(:ncol,:, 71) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 144)*sol(:ncol,:, 71) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 45)*sol(:ncol,:, 45) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 44) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 4)*sol(:ncol,:, 27) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 4)*sol(:ncol,:, 139) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 4)*sol(:ncol,:, 108) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 6)*sol(:ncol,:, 6) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 6)*sol(:ncol,:, 45) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 6)*sol(:ncol,:, 139) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 6)*sol(:ncol,:, 97) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 6)*sol(:ncol,:, 98) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 7)*sol(:ncol,:, 106) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 6)*sol(:ncol,:, 106) ! rate_const*BRO*O + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 6)*sol(:ncol,:, 111) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 67)*sol(:ncol,:, 106) ! rate_const*HBR*O + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 67)*sol(:ncol,:, 111) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 75)*sol(:ncol,:, 106) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 144)*sol(:ncol,:, 20) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 144)*sol(:ncol,:, 41) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 144)*sol(:ncol,:, 64) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 144)*sol(:ncol,:, 67) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 144)*sol(:ncol,:, 67) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 59)*sol(:ncol,:, 40) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 59)*sol(:ncol,:, 63) ! rate_const*F*H2 + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 59)*sol(:ncol,:, 151) ! rate_const*F*H2O + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 59)*sol(:ncol,:, 73) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 144)*sol(:ncol,:, 50) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 144)*sol(:ncol,:, 51) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 26)*sol(:ncol,:, 42) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 26)*sol(:ncol,:, 111) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 28)*sol(:ncol,:, 42) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 28)*sol(:ncol,:, 111) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 29)*sol(:ncol,:, 111) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 31)*sol(:ncol,:, 42) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 31)*sol(:ncol,:, 111) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 41)*sol(:ncol,:, 42) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 41)*sol(:ncol,:, 111) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 68)*sol(:ncol,:, 111) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 69)*sol(:ncol,:, 111) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 70)*sol(:ncol,:, 111) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 144)*sol(:ncol,:, 26) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 144)*sol(:ncol,:, 28) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 144)*sol(:ncol,:, 68) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 144)*sol(:ncol,:, 69) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 144)*sol(:ncol,:, 70) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 27)*sol(:ncol,:, 99) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 27)*sol(:ncol,:, 106) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 27)*sol(:ncol,:, 111) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 37)*sol(:ncol,:, 37) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 37)*sol(:ncol,:, 37) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 37)*sol(:ncol,:, 139) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 37)*sol(:ncol,:, 97) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 38)*sol(:ncol,:, 111) ! rate_const*CH3OH*OH + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 39)*sol(:ncol,:, 111) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 40)*sol(:ncol,:, 111) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 144)*sol(:ncol,:, 40) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 48)*sol(:ncol,:, 111) ! rate_const*CO*OH + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 9)*sol(:ncol,:, 42) ! rate_const*M*C2H4*CL + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 9)*sol(:ncol,:, 108) ! rate_const*C2H4*O3 + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 10)*sol(:ncol,:, 10) ! rate_const*C2H5O2*C2H5O2 + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 10)*sol(:ncol,:, 37) ! rate_const*C2H5O2*CH3O2 + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 10)*sol(:ncol,:, 139) ! rate_const*C2H5O2*HO2 + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 10)*sol(:ncol,:, 97) ! rate_const*C2H5O2*NO + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 11)*sol(:ncol,:, 111) ! rate_const*C2H5OH*OH + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 12)*sol(:ncol,:, 111) ! rate_const*C2H5OOH*OH + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 13)*sol(:ncol,:, 42) ! rate_const*C2H6*CL + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 13)*sol(:ncol,:, 111) ! rate_const*C2H6*OH + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 30)*sol(:ncol,:, 99) ! rate_const*CH3CHO*NO3 + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 30)*sol(:ncol,:, 111) ! rate_const*CH3CHO*OH + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 32)*sol(:ncol,:, 32) ! rate_const*CH3CO3*CH3CO3 + rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 32)*sol(:ncol,:, 37) ! rate_const*CH3CO3*CH3O2 + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 32)*sol(:ncol,:, 139) ! rate_const*CH3CO3*HO2 + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 32)*sol(:ncol,:, 97) ! rate_const*CH3CO3*NO + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 35)*sol(:ncol,:, 111) ! rate_const*CH3COOH*OH + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 36)*sol(:ncol,:, 111) ! rate_const*CH3COOOH*OH + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 57)*sol(:ncol,:, 139) ! rate_const*EO2*HO2 + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 57)*sol(:ncol,:, 97) ! rate_const*EO2*NO + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 56) ! rate_const*EO + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 56)*sol(:ncol,:, 107) ! rate_const*EO*O2 + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 60)*sol(:ncol,:, 111) ! rate_const*GLYALD*OH + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 61)*sol(:ncol,:, 111) ! rate_const*GLYOXAL*OH + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 113)*sol(:ncol,:, 111) ! rate_const*PAN*OH + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 9)*sol(:ncol,:, 111) ! rate_const*M*C2H4*OH + rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 32)*sol(:ncol,:, 98) ! rate_const*M*CH3CO3*NO2 + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 113) ! rate_const*M*PAN + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 14)*sol(:ncol,:, 99) ! rate_const*C3H6*NO3 + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 14)*sol(:ncol,:, 108) ! rate_const*C3H6*O3 + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 15)*sol(:ncol,:, 37) ! rate_const*C3H7O2*CH3O2 + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 15)*sol(:ncol,:, 139) ! rate_const*C3H7O2*HO2 + rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 15)*sol(:ncol,:, 97) ! rate_const*C3H7O2*NO + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 16)*sol(:ncol,:, 111) ! rate_const*C3H7OOH*OH + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 17)*sol(:ncol,:, 111) ! rate_const*C3H8*OH + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 34)*sol(:ncol,:, 99) ! rate_const*CH3COCHO*NO3 + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 34)*sol(:ncol,:, 111) ! rate_const*CH3COCHO*OH + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 77)*sol(:ncol,:, 111) ! rate_const*HYAC*OH + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 100)*sol(:ncol,:, 111) ! rate_const*NOA*OH + rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 114)*sol(:ncol,:, 139) ! rate_const*PO2*HO2 + rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 114)*sol(:ncol,:, 97) ! rate_const*PO2*NO + rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 117)*sol(:ncol,:, 111) ! rate_const*POOH*OH + rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 118)*sol(:ncol,:, 37) ! rate_const*RO2*CH3O2 + rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 118)*sol(:ncol,:, 139) ! rate_const*RO2*HO2 + rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 118)*sol(:ncol,:, 97) ! rate_const*RO2*NO + rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 119)*sol(:ncol,:, 111) ! rate_const*ROOH*OH + rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 14)*sol(:ncol,:, 111) ! rate_const*M*C3H6*OH + rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 33)*sol(:ncol,:, 111) ! rate_const*CH3COCH3*OH + rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 84)*sol(:ncol,:, 32) ! rate_const*MACRO2*CH3CO3 + rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 84)*sol(:ncol,:, 37) ! rate_const*MACRO2*CH3O2 + rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 84)*sol(:ncol,:, 139) ! rate_const*MACRO2*HO2 + rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 84)*sol(:ncol,:, 99) ! rate_const*MACRO2*NO3 + rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 84)*sol(:ncol,:, 97) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 84)*sol(:ncol,:, 97) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 83)*sol(:ncol,:, 108) ! rate_const*MACR*O3 + rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 83)*sol(:ncol,:, 111) ! rate_const*MACR*OH + rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 85)*sol(:ncol,:, 111) ! rate_const*MACROOH*OH + rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 86)*sol(:ncol,:, 32) ! rate_const*MCO3*CH3CO3 + rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 86)*sol(:ncol,:, 37) ! rate_const*MCO3*CH3O2 + rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 86)*sol(:ncol,:, 139) ! rate_const*MCO3*HO2 + rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 86)*sol(:ncol,:, 86) ! rate_const*MCO3*MCO3 + rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 86)*sol(:ncol,:, 97) ! rate_const*MCO3*NO + rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 86)*sol(:ncol,:, 99) ! rate_const*MCO3*NO3 + rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 87)*sol(:ncol,:, 111) ! rate_const*M*MPAN*OH + rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 88)*sol(:ncol,:, 108) ! rate_const*MVK*O3 + rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 88)*sol(:ncol,:, 111) ! rate_const*MVK*OH + rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 86)*sol(:ncol,:, 98) ! rate_const*M*MCO3*NO2 + rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 87) ! rate_const*M*MPAN + rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 3)*sol(:ncol,:, 111) ! rate_const*BIGALK*OH + rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 78)*sol(:ncol,:, 111) ! rate_const*HYDRALD*OH + rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 79)*sol(:ncol,:, 99) ! rate_const*ISOP*NO3 + rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 80)*sol(:ncol,:, 139) ! rate_const*ISOPNO3*HO2 + rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 80)*sol(:ncol,:, 97) ! rate_const*ISOPNO3*NO + rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 80)*sol(:ncol,:, 99) ! rate_const*ISOPNO3*NO3 + rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 81)*sol(:ncol,:, 32) ! rate_const*ISOPO2*CH3CO3 + rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 81)*sol(:ncol,:, 37) ! rate_const*ISOPO2*CH3O2 + rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 81)*sol(:ncol,:, 139) ! rate_const*ISOPO2*HO2 + rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 81)*sol(:ncol,:, 97) ! rate_const*ISOPO2*NO + rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 81)*sol(:ncol,:, 99) ! rate_const*ISOPO2*NO3 + rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 79)*sol(:ncol,:, 108) ! rate_const*ISOP*O3 + rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 79)*sol(:ncol,:, 111) ! rate_const*ISOP*OH + rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 82)*sol(:ncol,:, 111) ! rate_const*ISOPOOH*OH + rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 112)*sol(:ncol,:, 99) ! rate_const*ONITR*NO3 + rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 112)*sol(:ncol,:, 111) ! rate_const*ONITR*OH + rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 134)*sol(:ncol,:, 32) ! rate_const*XO2*CH3CO3 + rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 134)*sol(:ncol,:, 37) ! rate_const*XO2*CH3O2 + rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 134)*sol(:ncol,:, 139) ! rate_const*XO2*HO2 + rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 134)*sol(:ncol,:, 97) ! rate_const*XO2*NO + rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 134)*sol(:ncol,:, 99) ! rate_const*XO2*NO3 + rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 135)*sol(:ncol,:, 111) ! rate_const*XOOH*OH + rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 133)*sol(:ncol,:, 99) ! rate_const*TERP*NO3 + rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 133)*sol(:ncol,:, 108) ! rate_const*TERP*O3 + rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 133)*sol(:ncol,:, 111) ! rate_const*TERP*OH + rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 52)*sol(:ncol,:, 99) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 52)*sol(:ncol,:, 111) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 110)*sol(:ncol,:, 106) ! rate_const*OCS*O + rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 110)*sol(:ncol,:, 111) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 120)*sol(:ncol,:, 107) ! rate_const*S*O2 + rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 123)*sol(:ncol,:, 111) ! rate_const*M*SO2*OH + rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 120)*sol(:ncol,:, 108) ! rate_const*S*O3 + rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 122)*sol(:ncol,:, 6) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 122)*sol(:ncol,:, 45) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 120)*sol(:ncol,:, 111) ! rate_const*S*OH + rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 122)*sol(:ncol,:, 98) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 122)*sol(:ncol,:, 107) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 122)*sol(:ncol,:, 108) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 122)*sol(:ncol,:, 109) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 122)*sol(:ncol,:, 111) ! rate_const*SO*OH + rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 52)*sol(:ncol,:, 111) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 124)*sol(:ncol,:, 151) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 95)*sol(:ncol,:, 111) ! rate_const*NH3*OH + rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 139) ! rate_const*HO2 + rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 91) ! rate_const*N2O5 + rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 96) ! rate_const*NH4 + rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 98) ! rate_const*NO2 + rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 99) ! rate_const*NO3 + rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 112) ! rate_const*ONITR + rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 131) ! rate_const*SOAE rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 91) ! rate_const*N2O5 - rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 46) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 7) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 75)*sol(:ncol,:, 71) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 46) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 7) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 75)*sol(:ncol,:, 71) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 91) ! rate_const*N2O5 - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 46) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 150) ! rate_const*Op2P - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 149) ! rate_const*Op2D - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 150) ! rate_const*Op2P - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 142)*sol(:ncol,:, 138) ! rate_const*NOp*e - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 147)*sol(:ncol,:, 138) ! rate_const*O2p*e - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 141)*sol(:ncol,:, 138) ! rate_const*N2p*e - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 141)*sol(:ncol,:, 107) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 141)*sol(:ncol,:, 106) ! rate_const*N2p*O - rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 141)*sol(:ncol,:, 106) ! rate_const*N2p*O - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 143)*sol(:ncol,:, 106) ! rate_const*Np*O - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 143)*sol(:ncol,:, 107) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 143)*sol(:ncol,:, 107) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 147)*sol(:ncol,:, 89) ! rate_const*O2p*N - rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 147) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 147)*sol(:ncol,:, 97) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 148)*sol(:ncol,:, 49) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 148) ! rate_const*N2*Op - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 148)*sol(:ncol,:, 140) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 148)*sol(:ncol,:, 107) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 149)*sol(:ncol,:, 138) ! rate_const*Op2D*e - rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 149) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 149)*sol(:ncol,:, 106) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 149)*sol(:ncol,:, 107) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 150)*sol(:ncol,:, 138) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 150)*sol(:ncol,:, 138) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 150) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 150) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 150)*sol(:ncol,:, 106) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 91) ! rate_const*N2O5 + rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 46) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 7) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 75)*sol(:ncol,:, 71) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 46) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 7) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 76)*sol(:ncol,:, 71) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 75)*sol(:ncol,:, 71) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 91) ! rate_const*N2O5 + rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 46) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 46)*sol(:ncol,:, 71) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 150) ! rate_const*Op2P + rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 149) ! rate_const*Op2D + rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 150) ! rate_const*Op2P + rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 142)*sol(:ncol,:, 138) ! rate_const*NOp*e + rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 147)*sol(:ncol,:, 138) ! rate_const*O2p*e + rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 141)*sol(:ncol,:, 138) ! rate_const*N2p*e + rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 141)*sol(:ncol,:, 107) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 141)*sol(:ncol,:, 106) ! rate_const*N2p*O + rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 141)*sol(:ncol,:, 106) ! rate_const*N2p*O + rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 143)*sol(:ncol,:, 106) ! rate_const*Np*O + rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 143)*sol(:ncol,:, 107) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 143)*sol(:ncol,:, 107) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 147)*sol(:ncol,:, 89) ! rate_const*O2p*N + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 147) ! rate_const*N2*O2p + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 147)*sol(:ncol,:, 97) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 148)*sol(:ncol,:, 49) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 148) ! rate_const*N2*Op + rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 148)*sol(:ncol,:, 140) ! rate_const*Op*N2D + rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 148)*sol(:ncol,:, 107) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 149)*sol(:ncol,:, 138) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 149) ! rate_const*N2*Op2D + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 149)*sol(:ncol,:, 106) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 149)*sol(:ncol,:, 107) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 150)*sol(:ncol,:, 138) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 150)*sol(:ncol,:, 138) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 150) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 150) ! rate_const*N2*Op2P + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 150)*sol(:ncol,:, 106) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_setrxt.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_setrxt.F90 index 9fafea5bbc..b9340f0e7a 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_setrxt.F90 @@ -52,82 +52,83 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,139) = 1.6e-12_r8 rate(:,145) = 1.8e-12_r8 rate(:,149) = 1.8e-12_r8 - rate(:,153) = 7e-13_r8 - rate(:,154) = 5e-12_r8 + rate(:,152) = 1.06e-05_r8 + rate(:,154) = 7e-11_r8 + rate(:,155) = 7e-13_r8 rate(:,163) = 3.5e-12_r8 rate(:,165) = 1.3e-11_r8 rate(:,166) = 2.2e-11_r8 rate(:,167) = 5e-11_r8 - rate(:,202) = 1.7e-13_r8 - rate(:,204) = 2.607e-10_r8 - rate(:,205) = 9.75e-11_r8 - rate(:,206) = 2.07e-10_r8 - rate(:,207) = 2.088e-10_r8 - rate(:,208) = 1.17e-10_r8 - rate(:,209) = 4.644e-11_r8 - rate(:,210) = 1.204e-10_r8 - rate(:,211) = 9.9e-11_r8 - rate(:,212) = 3.3e-12_r8 - rate(:,231) = 4.5e-11_r8 - rate(:,232) = 4.62e-10_r8 - rate(:,233) = 1.2e-10_r8 - rate(:,234) = 9e-11_r8 - rate(:,235) = 3e-11_r8 - rate(:,240) = 2.14e-11_r8 - rate(:,241) = 1.9e-10_r8 - rate(:,254) = 2.57e-10_r8 - rate(:,255) = 1.8e-10_r8 - rate(:,256) = 1.794e-10_r8 - rate(:,257) = 1.3e-10_r8 - rate(:,258) = 7.65e-11_r8 - rate(:,269) = 1.31e-10_r8 - rate(:,270) = 3.5e-11_r8 - rate(:,271) = 9e-12_r8 - rate(:,275) = 6.8e-14_r8 - rate(:,276) = 2e-13_r8 - rate(:,290) = 1e-12_r8 - rate(:,294) = 1e-14_r8 - rate(:,295) = 1e-11_r8 - rate(:,296) = 1.15e-11_r8 - rate(:,297) = 4e-14_r8 - rate(:,310) = 3e-12_r8 - rate(:,311) = 6.7e-13_r8 - rate(:,321) = 1.4e-11_r8 - rate(:,324) = 2.4e-12_r8 - rate(:,335) = 5e-12_r8 - rate(:,341) = 3.5e-12_r8 - rate(:,346) = 2.4e-12_r8 - rate(:,347) = 1.4e-11_r8 - rate(:,351) = 2.4e-12_r8 - rate(:,356) = 4.5e-11_r8 - rate(:,361) = 2.4e-12_r8 - rate(:,370) = 2.3e-12_r8 - rate(:,372) = 1.2e-11_r8 - rate(:,373) = 5.7e-11_r8 - rate(:,374) = 2.8e-11_r8 - rate(:,375) = 6.6e-11_r8 - rate(:,376) = 1.4e-11_r8 - rate(:,379) = 1.9e-12_r8 - rate(:,386) = 6.34e-08_r8 - rate(:,390) = 1.157e-05_r8 - rate(:,408) = 0.047_r8 - rate(:,409) = 7.7e-05_r8 - rate(:,410) = 0.171_r8 - rate(:,414) = 6e-11_r8 - rate(:,417) = 1e-12_r8 - rate(:,418) = 4e-10_r8 - rate(:,419) = 2e-10_r8 - rate(:,420) = 1e-10_r8 - rate(:,421) = 5e-16_r8 - rate(:,422) = 4.4e-10_r8 - rate(:,423) = 9e-10_r8 - rate(:,425) = 1.3e-10_r8 - rate(:,428) = 8e-10_r8 - rate(:,429) = 5e-12_r8 - rate(:,430) = 7e-10_r8 - rate(:,433) = 4.8e-10_r8 - rate(:,434) = 1e-10_r8 - rate(:,435) = 4e-10_r8 + rate(:,205) = 1.7e-13_r8 + rate(:,207) = 2.607e-10_r8 + rate(:,208) = 9.75e-11_r8 + rate(:,209) = 2.07e-10_r8 + rate(:,210) = 2.088e-10_r8 + rate(:,211) = 1.17e-10_r8 + rate(:,212) = 4.644e-11_r8 + rate(:,213) = 1.204e-10_r8 + rate(:,214) = 9.9e-11_r8 + rate(:,215) = 3.3e-12_r8 + rate(:,234) = 4.5e-11_r8 + rate(:,235) = 4.62e-10_r8 + rate(:,236) = 1.2e-10_r8 + rate(:,237) = 9e-11_r8 + rate(:,238) = 3e-11_r8 + rate(:,243) = 2.14e-11_r8 + rate(:,244) = 1.9e-10_r8 + rate(:,257) = 2.57e-10_r8 + rate(:,258) = 1.8e-10_r8 + rate(:,259) = 1.794e-10_r8 + rate(:,260) = 1.3e-10_r8 + rate(:,261) = 7.65e-11_r8 + rate(:,272) = 1.31e-10_r8 + rate(:,273) = 3.5e-11_r8 + rate(:,274) = 9e-12_r8 + rate(:,278) = 6.8e-14_r8 + rate(:,279) = 2e-13_r8 + rate(:,293) = 1e-12_r8 + rate(:,297) = 1e-14_r8 + rate(:,298) = 1e-11_r8 + rate(:,299) = 1.15e-11_r8 + rate(:,300) = 4e-14_r8 + rate(:,313) = 3e-12_r8 + rate(:,314) = 6.7e-13_r8 + rate(:,324) = 1.4e-11_r8 + rate(:,327) = 2.4e-12_r8 + rate(:,338) = 5e-12_r8 + rate(:,344) = 3.5e-12_r8 + rate(:,349) = 2.4e-12_r8 + rate(:,350) = 1.4e-11_r8 + rate(:,354) = 2.4e-12_r8 + rate(:,359) = 4.5e-11_r8 + rate(:,364) = 2.4e-12_r8 + rate(:,373) = 2.3e-12_r8 + rate(:,375) = 1.2e-11_r8 + rate(:,376) = 5.7e-11_r8 + rate(:,377) = 2.8e-11_r8 + rate(:,378) = 6.6e-11_r8 + rate(:,379) = 1.4e-11_r8 + rate(:,382) = 1.9e-12_r8 + rate(:,389) = 6.34e-08_r8 + rate(:,393) = 1.157e-05_r8 + rate(:,411) = 0.047_r8 + rate(:,412) = 7.7e-05_r8 + rate(:,413) = 0.171_r8 + rate(:,417) = 6e-11_r8 + rate(:,420) = 1e-12_r8 + rate(:,421) = 4e-10_r8 + rate(:,422) = 2e-10_r8 + rate(:,423) = 1e-10_r8 + rate(:,424) = 5e-16_r8 + rate(:,425) = 4.4e-10_r8 + rate(:,426) = 9e-10_r8 + rate(:,428) = 1.3e-10_r8 + rate(:,431) = 8e-10_r8 + rate(:,432) = 5e-12_r8 + rate(:,433) = 7e-10_r8 + rate(:,436) = 4.8e-10_r8 + rate(:,437) = 1e-10_r8 + rate(:,438) = 4e-10_r8 do n = 1,pver offset = (n-1)*ncol @@ -146,246 +147,245 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,135) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) exp_fac(:) = exp( -2000._r8 * itemp(:) ) rate(:,136) = 1.4e-12_r8 * exp_fac(:) - rate(:,352) = 1.05e-14_r8 * exp_fac(:) + rate(:,355) = 1.05e-14_r8 * exp_fac(:) exp_fac(:) = exp( 200._r8 * itemp(:) ) rate(:,141) = 3e-11_r8 * exp_fac(:) - rate(:,229) = 5.5e-12_r8 * exp_fac(:) - rate(:,267) = 3.8e-12_r8 * exp_fac(:) - rate(:,280) = 3.8e-12_r8 * exp_fac(:) - rate(:,306) = 3.8e-12_r8 * exp_fac(:) - rate(:,314) = 3.8e-12_r8 * exp_fac(:) - rate(:,318) = 3.8e-12_r8 * exp_fac(:) - rate(:,329) = 2.3e-11_r8 * exp_fac(:) - rate(:,354) = 1.52e-11_r8 * exp_fac(:) - rate(:,362) = 1.52e-12_r8 * exp_fac(:) + rate(:,232) = 5.5e-12_r8 * exp_fac(:) + rate(:,270) = 3.8e-12_r8 * exp_fac(:) + rate(:,283) = 3.8e-12_r8 * exp_fac(:) + rate(:,309) = 3.8e-12_r8 * exp_fac(:) + rate(:,317) = 3.8e-12_r8 * exp_fac(:) + rate(:,321) = 3.8e-12_r8 * exp_fac(:) + rate(:,332) = 2.3e-11_r8 * exp_fac(:) + rate(:,357) = 1.52e-11_r8 * exp_fac(:) + rate(:,365) = 1.52e-12_r8 * exp_fac(:) rate(:,142) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) rate(:,143) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) rate(:,144) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) exp_fac(:) = exp( 250._r8 * itemp(:) ) rate(:,146) = 4.8e-11_r8 * exp_fac(:) - rate(:,227) = 1.7e-11_r8 * exp_fac(:) + rate(:,230) = 1.7e-11_r8 * exp_fac(:) exp_fac(:) = exp( 180._r8 * itemp(:) ) rate(:,147) = 1.8e-11_r8 * exp_fac(:) - rate(:,292) = 4.2e-12_r8 * exp_fac(:) - rate(:,305) = 4.2e-12_r8 * exp_fac(:) - rate(:,313) = 4.2e-12_r8 * exp_fac(:) - rate(:,350) = 4.4e-12_r8 * exp_fac(:) + rate(:,295) = 4.2e-12_r8 * exp_fac(:) + rate(:,316) = 4.2e-12_r8 * exp_fac(:) + rate(:,353) = 4.4e-12_r8 * exp_fac(:) rate(:,148) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,152) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) - rate(:,155) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:,153) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) + rate(:,156) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,156) = 2.9e-12_r8 * exp_fac(:) - rate(:,157) = 1.45e-12_r8 * exp_fac(:) + rate(:,157) = 2.9e-12_r8 * exp_fac(:) rate(:,158) = 1.45e-12_r8 * exp_fac(:) - rate(:,159) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:,159) = 1.45e-12_r8 * exp_fac(:) rate(:,160) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) rate(:,161) = 1.2e-13_r8 * exp_fac(:) - rate(:,187) = 3e-11_r8 * exp_fac(:) + rate(:,190) = 3e-11_r8 * exp_fac(:) exp_fac(:) = exp( 125._r8 * itemp(:) ) rate(:,164) = 1.7e-11_r8 * exp_fac(:) - rate(:,261) = 5.5e-12_r8 * exp_fac(:) + rate(:,264) = 5.5e-12_r8 * exp_fac(:) exp_fac(:) = exp( 260._r8 * itemp(:) ) rate(:,168) = 3.44e-12_r8 * exp_fac(:) - rate(:,220) = 2.3e-12_r8 * exp_fac(:) - rate(:,223) = 8.8e-12_r8 * exp_fac(:) + rate(:,223) = 2.3e-12_r8 * exp_fac(:) + rate(:,226) = 8.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) rate(:,169) = 3e-12_r8 * exp_fac(:) - rate(:,228) = 5.8e-12_r8 * exp_fac(:) + rate(:,231) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) rate(:,171) = 7.26e-11_r8 * exp_fac(:) rate(:,172) = 4.64e-11_r8 * exp_fac(:) - rate(:,179) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,180) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,181) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,182) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,182) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,183) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,184) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,185) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,183) = 1.4e-11_r8 * exp_fac(:) - rate(:,197) = 7.4e-12_r8 * exp_fac(:) - rate(:,288) = 8.1e-12_r8 * exp_fac(:) - rate(:,184) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,185) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,186) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,188) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,189) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,186) = 1.4e-11_r8 * exp_fac(:) + rate(:,200) = 7.4e-12_r8 * exp_fac(:) + rate(:,291) = 8.1e-12_r8 * exp_fac(:) + rate(:,187) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,188) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,189) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,191) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,192) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,190) = 2.6e-12_r8 * exp_fac(:) - rate(:,191) = 6.4e-12_r8 * exp_fac(:) - rate(:,221) = 4.1e-13_r8 * exp_fac(:) - rate(:,192) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,193) = 2.6e-12_r8 * exp_fac(:) + rate(:,194) = 6.4e-12_r8 * exp_fac(:) + rate(:,224) = 4.1e-13_r8 * exp_fac(:) + rate(:,195) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,194) = 3.6e-12_r8 * exp_fac(:) - rate(:,243) = 2e-12_r8 * exp_fac(:) - rate(:,195) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,196) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,197) = 3.6e-12_r8 * exp_fac(:) + rate(:,246) = 2e-12_r8 * exp_fac(:) + rate(:,198) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,199) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,198) = 6e-13_r8 * exp_fac(:) - rate(:,218) = 1.5e-12_r8 * exp_fac(:) - rate(:,226) = 1.9e-11_r8 * exp_fac(:) - rate(:,199) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,200) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,201) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,201) = 6e-13_r8 * exp_fac(:) + rate(:,221) = 1.5e-12_r8 * exp_fac(:) + rate(:,229) = 1.9e-11_r8 * exp_fac(:) + rate(:,202) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,203) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,204) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,203) = 3e-12_r8 * exp_fac(:) - rate(:,237) = 1.4e-10_r8 * exp_fac(:) + rate(:,206) = 3e-12_r8 * exp_fac(:) + rate(:,240) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,215) = 1.7e-11_r8 * exp_fac(:) - rate(:,242) = 6.3e-12_r8 * exp_fac(:) - rate(:,216) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,217) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,219) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - rate(:,222) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,225) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,230) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,236) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,218) = 1.7e-11_r8 * exp_fac(:) + rate(:,245) = 6.3e-12_r8 * exp_fac(:) + rate(:,219) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,220) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,222) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,225) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,228) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,233) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,239) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,238) = 1.4e-11_r8 * exp_fac(:) - rate(:,240) = 2.14e-11_r8 * exp_fac(:) - rate(:,241) = 1.9e-10_r8 * exp_fac(:) - rate(:,254) = 2.57e-10_r8 * exp_fac(:) - rate(:,255) = 1.8e-10_r8 * exp_fac(:) - rate(:,256) = 1.794e-10_r8 * exp_fac(:) - rate(:,257) = 1.3e-10_r8 * exp_fac(:) - rate(:,258) = 7.65e-11_r8 * exp_fac(:) - rate(:,269) = 1.31e-10_r8 * exp_fac(:) - rate(:,270) = 3.5e-11_r8 * exp_fac(:) - rate(:,271) = 9e-12_r8 * exp_fac(:) - rate(:,275) = 6.8e-14_r8 * exp_fac(:) - rate(:,276) = 2e-13_r8 * exp_fac(:) - rate(:,290) = 1e-12_r8 * exp_fac(:) - rate(:,294) = 1e-14_r8 * exp_fac(:) - rate(:,295) = 1e-11_r8 * exp_fac(:) - rate(:,296) = 1.15e-11_r8 * exp_fac(:) - rate(:,297) = 4e-14_r8 * exp_fac(:) - rate(:,310) = 3e-12_r8 * exp_fac(:) - rate(:,311) = 6.7e-13_r8 * exp_fac(:) - rate(:,321) = 1.4e-11_r8 * exp_fac(:) - rate(:,324) = 2.4e-12_r8 * exp_fac(:) - rate(:,335) = 5e-12_r8 * exp_fac(:) - rate(:,341) = 3.5e-12_r8 * exp_fac(:) - rate(:,346) = 2.4e-12_r8 * exp_fac(:) - rate(:,347) = 1.4e-11_r8 * exp_fac(:) - rate(:,351) = 2.4e-12_r8 * exp_fac(:) - rate(:,356) = 4.5e-11_r8 * exp_fac(:) - rate(:,361) = 2.4e-12_r8 * exp_fac(:) - rate(:,370) = 2.3e-12_r8 * exp_fac(:) - rate(:,372) = 1.2e-11_r8 * exp_fac(:) - rate(:,373) = 5.7e-11_r8 * exp_fac(:) - rate(:,374) = 2.8e-11_r8 * exp_fac(:) - rate(:,375) = 6.6e-11_r8 * exp_fac(:) - rate(:,376) = 1.4e-11_r8 * exp_fac(:) - rate(:,379) = 1.9e-12_r8 * exp_fac(:) - rate(:,386) = 6.34e-08_r8 * exp_fac(:) - rate(:,390) = 1.157e-05_r8 * exp_fac(:) - rate(:,408) = 0.047_r8 * exp_fac(:) - rate(:,409) = 7.7e-05_r8 * exp_fac(:) - rate(:,410) = 0.171_r8 * exp_fac(:) - rate(:,414) = 6e-11_r8 * exp_fac(:) - rate(:,417) = 1e-12_r8 * exp_fac(:) - rate(:,418) = 4e-10_r8 * exp_fac(:) - rate(:,419) = 2e-10_r8 * exp_fac(:) - rate(:,420) = 1e-10_r8 * exp_fac(:) - rate(:,421) = 5e-16_r8 * exp_fac(:) - rate(:,422) = 4.4e-10_r8 * exp_fac(:) - rate(:,423) = 9e-10_r8 * exp_fac(:) - rate(:,425) = 1.3e-10_r8 * exp_fac(:) - rate(:,428) = 8e-10_r8 * exp_fac(:) - rate(:,429) = 5e-12_r8 * exp_fac(:) - rate(:,430) = 7e-10_r8 * exp_fac(:) - rate(:,433) = 4.8e-10_r8 * exp_fac(:) - rate(:,434) = 1e-10_r8 * exp_fac(:) - rate(:,435) = 4e-10_r8 * exp_fac(:) + rate(:,241) = 1.4e-11_r8 * exp_fac(:) + rate(:,243) = 2.14e-11_r8 * exp_fac(:) + rate(:,244) = 1.9e-10_r8 * exp_fac(:) + rate(:,257) = 2.57e-10_r8 * exp_fac(:) + rate(:,258) = 1.8e-10_r8 * exp_fac(:) + rate(:,259) = 1.794e-10_r8 * exp_fac(:) + rate(:,260) = 1.3e-10_r8 * exp_fac(:) + rate(:,261) = 7.65e-11_r8 * exp_fac(:) + rate(:,272) = 1.31e-10_r8 * exp_fac(:) + rate(:,273) = 3.5e-11_r8 * exp_fac(:) + rate(:,274) = 9e-12_r8 * exp_fac(:) + rate(:,278) = 6.8e-14_r8 * exp_fac(:) + rate(:,279) = 2e-13_r8 * exp_fac(:) + rate(:,293) = 1e-12_r8 * exp_fac(:) + rate(:,297) = 1e-14_r8 * exp_fac(:) + rate(:,298) = 1e-11_r8 * exp_fac(:) + rate(:,299) = 1.15e-11_r8 * exp_fac(:) + rate(:,300) = 4e-14_r8 * exp_fac(:) + rate(:,313) = 3e-12_r8 * exp_fac(:) + rate(:,314) = 6.7e-13_r8 * exp_fac(:) + rate(:,324) = 1.4e-11_r8 * exp_fac(:) + rate(:,327) = 2.4e-12_r8 * exp_fac(:) + rate(:,338) = 5e-12_r8 * exp_fac(:) + rate(:,344) = 3.5e-12_r8 * exp_fac(:) + rate(:,349) = 2.4e-12_r8 * exp_fac(:) + rate(:,350) = 1.4e-11_r8 * exp_fac(:) + rate(:,354) = 2.4e-12_r8 * exp_fac(:) + rate(:,359) = 4.5e-11_r8 * exp_fac(:) + rate(:,364) = 2.4e-12_r8 * exp_fac(:) + rate(:,373) = 2.3e-12_r8 * exp_fac(:) + rate(:,375) = 1.2e-11_r8 * exp_fac(:) + rate(:,376) = 5.7e-11_r8 * exp_fac(:) + rate(:,377) = 2.8e-11_r8 * exp_fac(:) + rate(:,378) = 6.6e-11_r8 * exp_fac(:) + rate(:,379) = 1.4e-11_r8 * exp_fac(:) + rate(:,382) = 1.9e-12_r8 * exp_fac(:) + rate(:,389) = 6.34e-08_r8 * exp_fac(:) + rate(:,393) = 1.157e-05_r8 * exp_fac(:) + rate(:,411) = 0.047_r8 * exp_fac(:) + rate(:,412) = 7.7e-05_r8 * exp_fac(:) + rate(:,413) = 0.171_r8 * exp_fac(:) + rate(:,417) = 6e-11_r8 * exp_fac(:) + rate(:,420) = 1e-12_r8 * exp_fac(:) + rate(:,421) = 4e-10_r8 * exp_fac(:) + rate(:,422) = 2e-10_r8 * exp_fac(:) + rate(:,423) = 1e-10_r8 * exp_fac(:) + rate(:,424) = 5e-16_r8 * exp_fac(:) + rate(:,425) = 4.4e-10_r8 * exp_fac(:) + rate(:,426) = 9e-10_r8 * exp_fac(:) + rate(:,428) = 1.3e-10_r8 * exp_fac(:) + rate(:,431) = 8e-10_r8 * exp_fac(:) + rate(:,432) = 5e-12_r8 * exp_fac(:) + rate(:,433) = 7e-10_r8 * exp_fac(:) + rate(:,436) = 4.8e-10_r8 * exp_fac(:) + rate(:,437) = 1e-10_r8 * exp_fac(:) + rate(:,438) = 4e-10_r8 * exp_fac(:) exp_fac(:) = exp( 400._r8 * itemp(:) ) - rate(:,239) = 6e-12_r8 * exp_fac(:) - rate(:,322) = 5e-13_r8 * exp_fac(:) - rate(:,348) = 5e-13_r8 * exp_fac(:) - rate(:,358) = 5e-13_r8 * exp_fac(:) - rate(:,244) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,245) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,242) = 6e-12_r8 * exp_fac(:) + rate(:,325) = 5e-13_r8 * exp_fac(:) + rate(:,351) = 5e-13_r8 * exp_fac(:) + rate(:,361) = 5e-13_r8 * exp_fac(:) + rate(:,247) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,248) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) exp_fac(:) = exp( -1520._r8 * itemp(:) ) - rate(:,246) = 1.64e-12_r8 * exp_fac(:) - rate(:,337) = 8.5e-16_r8 * exp_fac(:) - rate(:,247) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) - rate(:,248) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,249) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,250) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,249) = 1.64e-12_r8 * exp_fac(:) + rate(:,340) = 8.5e-16_r8 * exp_fac(:) + rate(:,250) = 2.03e-11_r8 * exp( -1110._r8 * itemp(:) ) + rate(:,251) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) + rate(:,252) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) + rate(:,253) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,251) = 1.25e-12_r8 * exp_fac(:) - rate(:,260) = 3.4e-11_r8 * exp_fac(:) - rate(:,252) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,253) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,259) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,262) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) - rate(:,263) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) - rate(:,264) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,254) = 1.25e-12_r8 * exp_fac(:) + rate(:,263) = 3.4e-11_r8 * exp_fac(:) + rate(:,255) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,256) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,262) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,265) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) + rate(:,266) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) + rate(:,267) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) exp_fac(:) = exp( 300._r8 * itemp(:) ) - rate(:,265) = 2.8e-12_r8 * exp_fac(:) - rate(:,317) = 2.9e-12_r8 * exp_fac(:) - rate(:,266) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) - rate(:,268) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - rate(:,274) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) + rate(:,268) = 2.8e-12_r8 * exp_fac(:) + rate(:,320) = 2.9e-12_r8 * exp_fac(:) + rate(:,269) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) + rate(:,271) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,277) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) exp_fac(:) = exp( 700._r8 * itemp(:) ) - rate(:,277) = 7.5e-13_r8 * exp_fac(:) - rate(:,291) = 7.5e-13_r8 * exp_fac(:) - rate(:,304) = 7.5e-13_r8 * exp_fac(:) - rate(:,312) = 7.5e-13_r8 * exp_fac(:) - rate(:,316) = 8.6e-13_r8 * exp_fac(:) - rate(:,323) = 8e-13_r8 * exp_fac(:) - rate(:,344) = 8e-13_r8 * exp_fac(:) - rate(:,349) = 8e-13_r8 * exp_fac(:) - rate(:,359) = 8e-13_r8 * exp_fac(:) - rate(:,278) = 2.6e-12_r8 * exp( 365._r8 * itemp(:) ) - rate(:,279) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) - rate(:,281) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) - rate(:,282) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) + rate(:,280) = 7.5e-13_r8 * exp_fac(:) + rate(:,294) = 7.5e-13_r8 * exp_fac(:) + rate(:,307) = 7.5e-13_r8 * exp_fac(:) + rate(:,315) = 7.5e-13_r8 * exp_fac(:) + rate(:,319) = 8.6e-13_r8 * exp_fac(:) + rate(:,326) = 8e-13_r8 * exp_fac(:) + rate(:,347) = 8e-13_r8 * exp_fac(:) + rate(:,352) = 8e-13_r8 * exp_fac(:) + rate(:,362) = 8e-13_r8 * exp_fac(:) + rate(:,281) = 2.6e-12_r8 * exp( 365._r8 * itemp(:) ) + rate(:,282) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) + rate(:,284) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) + rate(:,285) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) exp_fac(:) = exp( -1900._r8 * itemp(:) ) - rate(:,283) = 1.4e-12_r8 * exp_fac(:) - rate(:,302) = 6.5e-15_r8 * exp_fac(:) - rate(:,284) = 4.63e-12_r8 * exp( 350._r8 * itemp(:) ) + rate(:,286) = 1.4e-12_r8 * exp_fac(:) + rate(:,305) = 6.5e-15_r8 * exp_fac(:) + rate(:,287) = 4.63e-12_r8 * exp( 350._r8 * itemp(:) ) exp_fac(:) = exp( 500._r8 * itemp(:) ) - rate(:,285) = 2.9e-12_r8 * exp_fac(:) - rate(:,286) = 2e-12_r8 * exp_fac(:) - rate(:,315) = 7.1e-13_r8 * exp_fac(:) - rate(:,331) = 2e-12_r8 * exp_fac(:) + rate(:,288) = 2.9e-12_r8 * exp_fac(:) + rate(:,289) = 2e-12_r8 * exp_fac(:) + rate(:,318) = 7.1e-13_r8 * exp_fac(:) + rate(:,334) = 2e-12_r8 * exp_fac(:) exp_fac(:) = exp( 1040._r8 * itemp(:) ) - rate(:,287) = 4.3e-13_r8 * exp_fac(:) - rate(:,332) = 4.3e-13_r8 * exp_fac(:) - rate(:,289) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) - rate(:,293) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) - rate(:,301) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) - rate(:,303) = 3.75e-13_r8 * exp( -40._r8 * itemp(:) ) - rate(:,307) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) - exp_fac(:) = exp( -1860._r8 * itemp(:) ) - rate(:,308) = 1.4e-12_r8 * exp_fac(:) - rate(:,355) = 1.4e-12_r8 * exp_fac(:) - rate(:,309) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) + rate(:,290) = 4.3e-13_r8 * exp_fac(:) + rate(:,335) = 4.3e-13_r8 * exp_fac(:) + rate(:,292) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) + rate(:,296) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) + rate(:,304) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) + rate(:,306) = 3.75e-13_r8 * exp( -40._r8 * itemp(:) ) exp_fac(:) = exp( 360._r8 * itemp(:) ) - rate(:,325) = 2.7e-12_r8 * exp_fac(:) - rate(:,326) = 1.3e-13_r8 * exp_fac(:) - rate(:,328) = 9.6e-12_r8 * exp_fac(:) - rate(:,334) = 5.3e-12_r8 * exp_fac(:) - rate(:,345) = 2.7e-12_r8 * exp_fac(:) - rate(:,360) = 2.7e-12_r8 * exp_fac(:) - rate(:,327) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) + rate(:,308) = 2.7e-12_r8 * exp_fac(:) + rate(:,328) = 2.7e-12_r8 * exp_fac(:) + rate(:,329) = 1.3e-13_r8 * exp_fac(:) + rate(:,331) = 9.6e-12_r8 * exp_fac(:) + rate(:,337) = 5.3e-12_r8 * exp_fac(:) + rate(:,348) = 2.7e-12_r8 * exp_fac(:) + rate(:,363) = 2.7e-12_r8 * exp_fac(:) + rate(:,310) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) + exp_fac(:) = exp( -1860._r8 * itemp(:) ) + rate(:,311) = 1.4e-12_r8 * exp_fac(:) + rate(:,358) = 1.4e-12_r8 * exp_fac(:) + rate(:,312) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) + rate(:,330) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) exp_fac(:) = exp( 530._r8 * itemp(:) ) - rate(:,330) = 4.6e-12_r8 * exp_fac(:) - rate(:,333) = 2.3e-12_r8 * exp_fac(:) - rate(:,338) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) - rate(:,342) = 1.86e-11_r8 * exp( 175._r8 * itemp(:) ) - rate(:,343) = 3.03e-12_r8 * exp( -446._r8 * itemp(:) ) - rate(:,353) = 2.54e-11_r8 * exp( 410._r8 * itemp(:) ) - rate(:,357) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) - rate(:,363) = 1.2e-12_r8 * exp( 490._r8 * itemp(:) ) - rate(:,364) = 6.3e-16_r8 * exp( -580._r8 * itemp(:) ) - rate(:,365) = 1.2e-11_r8 * exp( 440._r8 * itemp(:) ) - rate(:,366) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,367) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) - rate(:,368) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,369) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,377) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,378) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) - rate(:,380) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) - rate(:,383) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) + rate(:,333) = 4.6e-12_r8 * exp_fac(:) + rate(:,336) = 2.3e-12_r8 * exp_fac(:) + rate(:,341) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) + rate(:,345) = 1.86e-11_r8 * exp( 175._r8 * itemp(:) ) + rate(:,346) = 3.03e-12_r8 * exp( -446._r8 * itemp(:) ) + rate(:,356) = 2.54e-11_r8 * exp( 410._r8 * itemp(:) ) + rate(:,360) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) + rate(:,366) = 1.2e-12_r8 * exp( 490._r8 * itemp(:) ) + rate(:,367) = 6.3e-16_r8 * exp( -580._r8 * itemp(:) ) + rate(:,368) = 1.2e-11_r8 * exp( 440._r8 * itemp(:) ) + rate(:,369) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,370) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) + rate(:,371) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,372) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,380) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,381) = 3.4e-12_r8 * exp( -1100._r8 * itemp(:) ) + rate(:,383) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) + rate(:,386) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) @@ -421,43 +421,43 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,193), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,196), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-32_r8 * itemp(:)**3.6_r8 kinf(:) = 3.7e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,213), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,216), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.2e-31_r8 * itemp(:)**3.2_r8 kinf(:) = 6.9e-12_r8 * itemp(:)**2.9_r8 - call jpl( rate(:,224), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,227), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.6e-29_r8 * itemp(:)**3.3_r8 kinf(:) = 3.1e-10_r8 * itemp(:) - call jpl( rate(:,273), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,276), m, 0.6_r8, ko, kinf, n ) ko(:) = 8.6e-29_r8 * itemp(:)**3.1_r8 kinf(:) = 9e-12_r8 * itemp(:)**0.85_r8 - call jpl( rate(:,298), m, 0.48_r8, ko, kinf, n ) + call jpl( rate(:,301), m, 0.48_r8, ko, kinf, n ) ko(:) = 7.3e-29_r8 * itemp(:)**4.1_r8 kinf(:) = 9.5e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,299), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,302), m, 0.6_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,319), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,322), m, 0.5_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,336), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,339), m, 0.5_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,339), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,342), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.9e-31_r8 * itemp(:)**4.1_r8 kinf(:) = 1.7e-12_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,371), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,374), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -500,24 +500,24 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,129) = 8e-14_r8 rate(:n,130) = 3.9e-17_r8 rate(:n,137) = 6.9e-12_r8 - rate(:n,153) = 7e-13_r8 - rate(:n,154) = 5e-12_r8 - rate(:n,408) = 0.047_r8 - rate(:n,409) = 7.7e-05_r8 - rate(:n,410) = 0.171_r8 - rate(:n,414) = 6e-11_r8 - rate(:n,417) = 1e-12_r8 - rate(:n,418) = 4e-10_r8 - rate(:n,419) = 2e-10_r8 - rate(:n,420) = 1e-10_r8 - rate(:n,422) = 4.4e-10_r8 - rate(:n,425) = 1.3e-10_r8 - rate(:n,428) = 8e-10_r8 - rate(:n,429) = 5e-12_r8 - rate(:n,430) = 7e-10_r8 - rate(:n,433) = 4.8e-10_r8 - rate(:n,434) = 1e-10_r8 - rate(:n,435) = 4e-10_r8 + rate(:n,154) = 7e-11_r8 + rate(:n,155) = 7e-13_r8 + rate(:n,411) = 0.047_r8 + rate(:n,412) = 7.7e-05_r8 + rate(:n,413) = 0.171_r8 + rate(:n,417) = 6e-11_r8 + rate(:n,420) = 1e-12_r8 + rate(:n,421) = 4e-10_r8 + rate(:n,422) = 2e-10_r8 + rate(:n,423) = 1e-10_r8 + rate(:n,425) = 4.4e-10_r8 + rate(:n,428) = 1.3e-10_r8 + rate(:n,431) = 8e-10_r8 + rate(:n,432) = 5e-12_r8 + rate(:n,433) = 7e-10_r8 + rate(:n,436) = 4.8e-10_r8 + rate(:n,437) = 1e-10_r8 + rate(:n,438) = 4e-10_r8 do k = 1,kbot offset = (k-1)*ncol @@ -538,8 +538,7 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,146) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) rate(:n,147) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:n,148) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,155) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,159) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:n,156) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) rate(:n,160) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) rate(:n,168) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) rate(:n,169) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) diff --git a/src/chemistry/pp_waccm_t4ma_mam5/mo_sim_dat.F90 b/src/chemistry/pp_waccm_t4ma_mam5/mo_sim_dat.F90 index 569a355dff..8093e0a808 100644 --- a/src/chemistry/pp_waccm_t4ma_mam5/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_t4ma_mam5/mo_sim_dat.F90 @@ -33,8 +33,8 @@ subroutine set_sim_dat clscnt(:) = (/ 2, 0, 0, 149, 0 /) - cls_rxt_cnt(:,1) = (/ 3, 0, 0, 2 /) - cls_rxt_cnt(:,4) = (/ 8, 141, 286, 149 /) + cls_rxt_cnt(:,1) = (/ 5, 0, 0, 2 /) + cls_rxt_cnt(:,4) = (/ 8, 142, 288, 149 /) solsym(:151) = (/ 'bc_a1 ','bc_a4 ','BIGALK ','BR ','BRCL ', & 'BRO ','BRONO2 ','BRY ','C2H4 ','C2H5O2 ', & @@ -183,9 +183,9 @@ subroutine set_sim_dat 876, 909, 932, 959, 996,1021,1081,1128,1152,1194, & 1241,1284,1323,1413,1459,1508,1534,1556,1584 /) - extfrc_lst(: 21) = (/ 'num_a1 ','num_a2 ','so4_a1 ','so4_a2 ','num_a4 ', & - 'bc_a4 ','pom_a4 ','num_a5 ','so4_a5 ','CO ', & - 'NO2 ','NO ','SO2 ','O2p ','N2p ', & + extfrc_lst(: 21) = (/ 'CO ','pom_a4 ','so4_a5 ','bc_a4 ','SO2 ', & + 'NO2 ','NO ','num_a1 ','num_a2 ','so4_a1 ', & + 'so4_a2 ','num_a5 ','num_a4 ','O2p ','N2p ', & 'Np ','N2D ','Op ','N ','e ', & 'OH ' /) @@ -292,11 +292,11 @@ subroutine set_sim_dat 'OH_H2O2 ', 'OH_HO2 ', & 'OH_O ', 'OH_O3 ', & 'OH_OH ', 'OH_OH_M ', & - 'usr_HO2_HO2 ', 'HO2NO2_OH ', & - 'N2D_O ', 'N2D_O2 ', & - 'N_NO ', 'N_NO2a ', & - 'N_NO2b ', 'N_NO2c ', & - 'N_O2 ', 'NO2_O ', & + 'usr_HO2_HO2 ', 'agn2d ', & + 'HO2NO2_OH ', 'N2D_NO ', & + 'N2D_O ', 'N_NO ', & + 'N_NO2a ', 'N_NO2b ', & + 'N_NO2c ', 'NO2_O ', & 'NO2_O3 ', 'NO2_O_M ', & 'NO3_HO2 ', 'NO3_NO ', & 'NO3_O ', 'NO3_OH ', & @@ -305,136 +305,137 @@ subroutine set_sim_dat 'O1D_N2Oa ', 'O1D_N2Ob ', & 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & 'tag_NO2_OH ', 'usr_HNO3_OH ', & - 'usr_HO2NO2_M ', 'usr_N2O5_M ', & - 'CL_CH2O ', 'CL_CH4 ', & - 'CL_H2 ', 'CL_H2O2 ', & - 'CL_HO2a ', 'CL_HO2b ', & - 'CL_O3 ', 'CLO_CH3O2 ', & - 'CLO_CLOa ', 'CLO_CLOb ', & - 'CLO_CLOc ', 'CLO_HO2 ', & - 'CLO_NO ', 'CLONO2_CL ', & - 'CLO_NO2_M ', 'CLONO2_O ', & - 'CLONO2_OH ', 'CLO_O ', & - 'CLO_OHa ', 'CLO_OHb ', & - 'HCL_O ', 'HCL_OH ' /) - rxt_tag_lst( 201: 400) = (/ 'HOCL_CL ', 'HOCL_O ', & - 'HOCL_OH ', 'O1D_CCL4 ', & - 'O1D_CF2CLBR ', 'O1D_CFC11 ', & - 'O1D_CFC113 ', 'O1D_CFC114 ', & - 'O1D_CFC115 ', 'O1D_CFC12 ', & - 'O1D_HCLa ', 'O1D_HCLb ', & - 'tag_CLO_CLO_M ', 'usr_CL2O2_M ', & - 'BR_CH2O ', 'BR_HO2 ', & - 'BR_O3 ', 'BRO_BRO ', & - 'BRO_CLOa ', 'BRO_CLOb ', & - 'BRO_CLOc ', 'BRO_HO2 ', & - 'BRO_NO ', 'BRO_NO2_M ', & - 'BRONO2_O ', 'BRO_O ', & - 'BRO_OH ', 'HBR_O ', & - 'HBR_OH ', 'HOBR_O ', & - 'O1D_CF3BR ', 'O1D_CHBR3 ', & - 'O1D_H2402 ', 'O1D_HBRa ', & - 'O1D_HBRb ', 'F_CH4 ', & - 'F_H2 ', 'F_H2O ', & - 'F_HNO3 ', 'O1D_COF2 ', & - 'O1D_COFCL ', 'CH2BR2_CL ', & - 'CH2BR2_OH ', 'CH3BR_CL ', & - 'CH3BR_OH ', 'CH3CCL3_OH ', & - 'CH3CL_CL ', 'CH3CL_OH ', & - 'CHBR3_CL ', 'CHBR3_OH ', & - 'HCFC141B_OH ', 'HCFC142B_OH ', & - 'HCFC22_OH ', 'O1D_CH2BR2 ', & - 'O1D_CH3BR ', 'O1D_HCFC141B ', & - 'O1D_HCFC142B ', 'O1D_HCFC22 ', & - 'CH2O_NO3 ', 'CH2O_O ', & - 'CH2O_OH ', 'CH3O2_CH3O2a ', & - 'CH3O2_CH3O2b ', 'CH3O2_HO2 ', & - 'CH3O2_NO ', 'CH3OH_OH ', & - 'CH3OOH_OH ', 'CH4_OH ', & - 'O1D_CH4a ', 'O1D_CH4b ', & - 'O1D_CH4c ', 'usr_CO_OH ', & - 'C2H4_CL_M ', 'C2H4_O3 ', & - 'C2H5O2_C2H5O2 ', 'C2H5O2_CH3O2 ', & - 'C2H5O2_HO2 ', 'C2H5O2_NO ', & - 'C2H5OH_OH ', 'C2H5OOH_OH ', & - 'C2H6_CL ', 'C2H6_OH ', & - 'CH3CHO_NO3 ', 'CH3CHO_OH ', & - 'CH3CO3_CH3CO3 ', 'CH3CO3_CH3O2 ', & - 'CH3CO3_HO2 ', 'CH3CO3_NO ', & - 'CH3COOH_OH ', 'CH3COOOH_OH ', & - 'EO2_HO2 ', 'EO2_NO ', & - 'EO_M ', 'EO_O2 ', & - 'GLYALD_OH ', 'GLYOXAL_OH ', & - 'PAN_OH ', 'tag_C2H4_OH ', & - 'tag_CH3CO3_NO2 ', 'usr_PAN_M ', & - 'C3H6_NO3 ', 'C3H6_O3 ', & - 'C3H7O2_CH3O2 ', 'C3H7O2_HO2 ', & - 'C3H7O2_NO ', 'C3H7OOH_OH ', & - 'C3H8_OH ', 'CH3COCHO_NO3 ', & - 'CH3COCHO_OH ', 'HYAC_OH ', & - 'NOA_OH ', 'PO2_HO2 ', & - 'PO2_NO ', 'POOH_OH ', & - 'RO2_CH3O2 ', 'RO2_HO2 ', & - 'RO2_NO ', 'ROOH_OH ', & - 'tag_C3H6_OH ', 'usr_CH3COCH3_OH ', & - 'MACRO2_CH3CO3 ', 'MACRO2_CH3O2 ', & - 'MACRO2_HO2 ', 'MACRO2_NO3 ', & - 'MACRO2_NOa ', 'MACRO2_NOb ', & - 'MACR_O3 ', 'MACR_OH ', & - 'MACROOH_OH ', 'MCO3_CH3CO3 ', & - 'MCO3_CH3O2 ', 'MCO3_HO2 ', & - 'MCO3_MCO3 ', 'MCO3_NO ', & - 'MCO3_NO3 ', 'MPAN_OH_M ', & - 'MVK_O3 ', 'MVK_OH ', & - 'tag_MCO3_NO2 ', 'usr_MPAN_M ', & - 'BIGALK_OH ', 'HYDRALD_OH ', & - 'ISOP_NO3 ', 'ISOPNO3_HO2 ', & - 'ISOPNO3_NO ', 'ISOPNO3_NO3 ', & - 'ISOPO2_CH3CO3 ', 'ISOPO2_CH3O2 ', & - 'ISOPO2_HO2 ', 'ISOPO2_NO ', & - 'ISOPO2_NO3 ', 'ISOP_O3 ', & - 'ISOP_OH ', 'ISOPOOH_OH ', & - 'ONITR_NO3 ', 'ONITR_OH ', & - 'XO2_CH3CO3 ', 'XO2_CH3O2 ', & - 'XO2_HO2 ', 'XO2_NO ', & - 'XO2_NO3 ', 'XOOH_OH ', & - 'TERP_NO3 ', 'TERP_O3 ', & - 'TERP_OH ', 'DMS_NO3 ', & - 'DMS_OHa ', 'OCS_O ', & - 'OCS_OH ', 'S_O2 ', & - 'SO2_OH_M ', 'S_O3 ', & - 'SO_BRO ', 'SO_CLO ', & - 'S_OH ', 'SO_NO2 ', & - 'SO_O2 ', 'SO_O3 ', & - 'SO_OCLO ', 'SO_OH ', & - 'usr_DMS_OH ', 'usr_SO3_H2O ', & - 'NH3_OH ', 'usr_HO2_aer ', & - 'usr_N2O5_aer ', 'usr_NH4_strat_tau ', & - 'usr_NO2_aer ', 'usr_NO3_aer ', & - 'usr_ONITR_aer ', 'SOAE_tau ', & - 'het1 ', 'het10 ', & - 'het11 ', 'het12 ', & - 'het13 ', 'het14 ', & - 'het15 ', 'het16 ', & - 'het17 ', 'het2 ' /) - rxt_tag_lst( 401: 435) = (/ 'het3 ', 'het4 ', & - 'het5 ', 'het6 ', & - 'het7 ', 'het8 ', & - 'het9 ', 'ag247nm ', & - 'ag373nm ', 'ag732nm ', & - 'elec1 ', 'elec2 ', & - 'elec3 ', 'ion_N2p_O2 ', & - 'ion_N2p_Oa ', 'ion_N2p_Ob ', & - 'ion_Np_O ', 'ion_Np_O2a ', & - 'ion_Np_O2b ', 'ion_O2p_N ', & - 'ion_O2p_N2 ', 'ion_O2p_NO ', & - 'ion_Op_CO2 ', 'ion_Op_N2 ', & - 'ion_Op_N2D ', 'ion_Op_O2 ', & - 'Op2D_e ', 'Op2D_N2 ', & - 'Op2D_O ', 'Op2D_O2 ', & - 'Op2P_ea ', 'Op2P_eb ', & - 'Op2P_N2a ', 'Op2P_N2b ', & - 'Op2P_O ' /) + 'usr_HO2NO2_M ', 'usr_N2D_e ', & + 'usr_N2D_O2 ', 'usr_N2O5_M ', & + 'usr_N_O2 ', 'CL_CH2O ', & + 'CL_CH4 ', 'CL_H2 ', & + 'CL_H2O2 ', 'CL_HO2a ', & + 'CL_HO2b ', 'CL_O3 ', & + 'CLO_CH3O2 ', 'CLO_CLOa ', & + 'CLO_CLOb ', 'CLO_CLOc ', & + 'CLO_HO2 ', 'CLO_NO ', & + 'CLONO2_CL ', 'CLO_NO2_M ', & + 'CLONO2_O ', 'CLONO2_OH ', & + 'CLO_O ', 'CLO_OHa ' /) + rxt_tag_lst( 201: 400) = (/ 'CLO_OHb ', 'HCL_O ', & + 'HCL_OH ', 'HOCL_CL ', & + 'HOCL_O ', 'HOCL_OH ', & + 'O1D_CCL4 ', 'O1D_CF2CLBR ', & + 'O1D_CFC11 ', 'O1D_CFC113 ', & + 'O1D_CFC114 ', 'O1D_CFC115 ', & + 'O1D_CFC12 ', 'O1D_HCLa ', & + 'O1D_HCLb ', 'tag_CLO_CLO_M ', & + 'usr_CL2O2_M ', 'BR_CH2O ', & + 'BR_HO2 ', 'BR_O3 ', & + 'BRO_BRO ', 'BRO_CLOa ', & + 'BRO_CLOb ', 'BRO_CLOc ', & + 'BRO_HO2 ', 'BRO_NO ', & + 'BRO_NO2_M ', 'BRONO2_O ', & + 'BRO_O ', 'BRO_OH ', & + 'HBR_O ', 'HBR_OH ', & + 'HOBR_O ', 'O1D_CF3BR ', & + 'O1D_CHBR3 ', 'O1D_H2402 ', & + 'O1D_HBRa ', 'O1D_HBRb ', & + 'F_CH4 ', 'F_H2 ', & + 'F_H2O ', 'F_HNO3 ', & + 'O1D_COF2 ', 'O1D_COFCL ', & + 'CH2BR2_CL ', 'CH2BR2_OH ', & + 'CH3BR_CL ', 'CH3BR_OH ', & + 'CH3CCL3_OH ', 'CH3CL_CL ', & + 'CH3CL_OH ', 'CHBR3_CL ', & + 'CHBR3_OH ', 'HCFC141B_OH ', & + 'HCFC142B_OH ', 'HCFC22_OH ', & + 'O1D_CH2BR2 ', 'O1D_CH3BR ', & + 'O1D_HCFC141B ', 'O1D_HCFC142B ', & + 'O1D_HCFC22 ', 'CH2O_NO3 ', & + 'CH2O_O ', 'CH2O_OH ', & + 'CH3O2_CH3O2a ', 'CH3O2_CH3O2b ', & + 'CH3O2_HO2 ', 'CH3O2_NO ', & + 'CH3OH_OH ', 'CH3OOH_OH ', & + 'CH4_OH ', 'O1D_CH4a ', & + 'O1D_CH4b ', 'O1D_CH4c ', & + 'usr_CO_OH ', 'C2H4_CL_M ', & + 'C2H4_O3 ', 'C2H5O2_C2H5O2 ', & + 'C2H5O2_CH3O2 ', 'C2H5O2_HO2 ', & + 'C2H5O2_NO ', 'C2H5OH_OH ', & + 'C2H5OOH_OH ', 'C2H6_CL ', & + 'C2H6_OH ', 'CH3CHO_NO3 ', & + 'CH3CHO_OH ', 'CH3CO3_CH3CO3 ', & + 'CH3CO3_CH3O2 ', 'CH3CO3_HO2 ', & + 'CH3CO3_NO ', 'CH3COOH_OH ', & + 'CH3COOOH_OH ', 'EO2_HO2 ', & + 'EO2_NO ', 'EO_M ', & + 'EO_O2 ', 'GLYALD_OH ', & + 'GLYOXAL_OH ', 'PAN_OH ', & + 'tag_C2H4_OH ', 'tag_CH3CO3_NO2 ', & + 'usr_PAN_M ', 'C3H6_NO3 ', & + 'C3H6_O3 ', 'C3H7O2_CH3O2 ', & + 'C3H7O2_HO2 ', 'C3H7O2_NO ', & + 'C3H7OOH_OH ', 'C3H8_OH ', & + 'CH3COCHO_NO3 ', 'CH3COCHO_OH ', & + 'HYAC_OH ', 'NOA_OH ', & + 'PO2_HO2 ', 'PO2_NO ', & + 'POOH_OH ', 'RO2_CH3O2 ', & + 'RO2_HO2 ', 'RO2_NO ', & + 'ROOH_OH ', 'tag_C3H6_OH ', & + 'usr_CH3COCH3_OH ', 'MACRO2_CH3CO3 ', & + 'MACRO2_CH3O2 ', 'MACRO2_HO2 ', & + 'MACRO2_NO3 ', 'MACRO2_NOa ', & + 'MACRO2_NOb ', 'MACR_O3 ', & + 'MACR_OH ', 'MACROOH_OH ', & + 'MCO3_CH3CO3 ', 'MCO3_CH3O2 ', & + 'MCO3_HO2 ', 'MCO3_MCO3 ', & + 'MCO3_NO ', 'MCO3_NO3 ', & + 'MPAN_OH_M ', 'MVK_O3 ', & + 'MVK_OH ', 'tag_MCO3_NO2 ', & + 'usr_MPAN_M ', 'BIGALK_OH ', & + 'HYDRALD_OH ', 'ISOP_NO3 ', & + 'ISOPNO3_HO2 ', 'ISOPNO3_NO ', & + 'ISOPNO3_NO3 ', 'ISOPO2_CH3CO3 ', & + 'ISOPO2_CH3O2 ', 'ISOPO2_HO2 ', & + 'ISOPO2_NO ', 'ISOPO2_NO3 ', & + 'ISOP_O3 ', 'ISOP_OH ', & + 'ISOPOOH_OH ', 'ONITR_NO3 ', & + 'ONITR_OH ', 'XO2_CH3CO3 ', & + 'XO2_CH3O2 ', 'XO2_HO2 ', & + 'XO2_NO ', 'XO2_NO3 ', & + 'XOOH_OH ', 'TERP_NO3 ', & + 'TERP_O3 ', 'TERP_OH ', & + 'DMS_NO3 ', 'DMS_OHa ', & + 'OCS_O ', 'OCS_OH ', & + 'S_O2 ', 'SO2_OH_M ', & + 'S_O3 ', 'SO_BRO ', & + 'SO_CLO ', 'S_OH ', & + 'SO_NO2 ', 'SO_O2 ', & + 'SO_O3 ', 'SO_OCLO ', & + 'SO_OH ', 'usr_DMS_OH ', & + 'usr_SO3_H2O ', 'NH3_OH ', & + 'usr_HO2_aer ', 'usr_N2O5_aer ', & + 'usr_NH4_strat_tau ', 'usr_NO2_aer ', & + 'usr_NO3_aer ', 'usr_ONITR_aer ', & + 'SOAE_tau ', 'het1 ', & + 'het10 ', 'het11 ', & + 'het12 ', 'het13 ', & + 'het14 ', 'het15 ' /) + rxt_tag_lst( 401: 438) = (/ 'het16 ', 'het17 ', & + 'het2 ', 'het3 ', & + 'het4 ', 'het5 ', & + 'het6 ', 'het7 ', & + 'het8 ', 'het9 ', & + 'ag247nm ', 'ag373nm ', & + 'ag732nm ', 'elec1 ', & + 'elec2 ', 'elec3 ', & + 'ion_N2p_O2 ', 'ion_N2p_Oa ', & + 'ion_N2p_Ob ', 'ion_Np_O ', & + 'ion_Np_O2a ', 'ion_Np_O2b ', & + 'ion_O2p_N ', 'ion_O2p_N2 ', & + 'ion_O2p_NO ', 'ion_Op_CO2 ', & + 'ion_Op_N2 ', 'ion_Op_N2D ', & + 'ion_Op_O2 ', 'Op2D_e ', & + 'Op2D_N2 ', 'Op2D_O ', & + 'Op2D_O2 ', 'Op2P_ea ', & + 'Op2P_eb ', 'Op2P_N2a ', & + 'Op2P_N2b ', 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -478,7 +479,7 @@ subroutine set_sim_dat 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, & 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, & 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, & - 431, 432, 433, 434, 435 /) + 431, 432, 433, 434, 435, 436, 437, 438 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -613,24 +614,26 @@ subroutine set_sim_dat 126, 128, 129, 130, 131, & 132, 133, 134, 137, 140, & 141, 142, 143, 146, 147, & - 148, 151, 153, 154, 155, & - 159, 160, 168, 169, 408, & - 409, 410, 411, 412, 413, & - 414, 415, 417, 418, 419, & - 420, 422, 424, 425, 426, & - 427, 428, 429, 430, 431, & - 432, 433, 434, 435 /) + 148, 151, 154, 155, 156, & + 160, 168, 169, 178, 179, & + 181, 411, 412, 413, 414, & + 415, 416, 417, 418, 420, & + 421, 422, 423, 425, 427, & + 428, 429, 430, 431, 432, & + 433, 434, 435, 436, 437, & + 438 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & - 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & - 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & - 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & - 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & - 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & - 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) + 165.300000_r8, 165.510000_r8, 543.130000_r8, 229.610000_r8, 313.750000_r8, & + 193.020000_r8, 34.470000_r8, 199.170000_r8, 229.610000_r8, 177.510000_r8, & + 133.750000_r8, 483.390000_r8, 321.300000_r8, 163.060000_r8, 82.389000_r8, & + 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & + 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & + 139.900000_r8, 150.110000_r8, 319.370000_r8, 128.320000_r8, 319.360000_r8, & + 469.400000_r8, 163.060000_r8, 482.430000_r8, 291.380000_r8, 67.540000_r8, & + 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -639,36 +642,36 @@ subroutine set_sim_dat num_rnts(:) = (/ 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, & 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 3, 2, 1, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, & 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & - 2, 2, 2, 3, 3, 2, 2, 2, 2, 2, & + 2, 1, 2, 2, 2, 2, 3, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & - 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, & - 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, & - 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, & + 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, & + 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, & + 2, 2, 2, 1, 1, 2, 1, 1, 1, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2 /) + 2, 2, 2, 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.doc b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.doc index 7bbe88ba1b..baad0f7822 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.doc +++ b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.doc @@ -674,562 +674,566 @@ Class List O1D_O2 ( 6) O1D + O2 -> O + O2_1S rate = 2.64E-11*exp( 55./t) (156) O1D_O2b ( 7) O1D + O2 -> O + O2 rate = 6.60E-12*exp( 55./t) (157) O1D_O3 ( 8) O1D + O3 -> O2 + O2 rate = 1.20E-10 (158) - O2_1D_N2 ( 9) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 (159) - O2_1D_O ( 10) O2_1D + O -> O2 + O rate = 1.30E-16 (160) - O2_1D_O2 ( 11) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (161) - O2_1S_CO2 ( 12) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (162) - O2_1S_N2 ( 13) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (163) - O2_1S_O ( 14) O2_1S + O -> O2_1D + O rate = 8.00E-14 (164) - O2_1S_O2 ( 15) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (165) - O2_1S_O3 ( 16) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (166) - O_O3 ( 17) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (167) - usr_O_O ( 18) O + O + M -> O2 + M rate = ** User defined ** (168) - usr_O_O2 ( 19) O + O2 + M -> O3 + M rate = ** User defined ** (169) - H2_O ( 20) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (170) - H2O2_O ( 21) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (171) - H_HO2 ( 22) H + HO2 -> H2 + O2 rate = 6.90E-12 (172) - H_HO2a ( 23) H + HO2 -> 2*OH rate = 7.20E-11 (173) - H_HO2b ( 24) H + HO2 -> H2O + O rate = 1.60E-12 (174) - H_O2 ( 25) H + O2 + M -> HO2 + M troe : ko=5.30E-32*(300/t)**1.80 (175) + O1D_O3a ( 9) O1D + O3 -> O2 + 2*O rate = 1.20E-10 (159) + O2_1D_N2 ( 10) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 (160) + O2_1D_O ( 11) O2_1D + O -> O2 + O rate = 1.30E-16 (161) + O2_1D_O2 ( 12) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (162) + O2_1S_CO2 ( 13) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (163) + O2_1S_N2 ( 14) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (164) + O2_1S_O ( 15) O2_1S + O -> O2_1D + O rate = 8.00E-14 (165) + O2_1S_O2 ( 16) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (166) + O2_1S_O3 ( 17) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (167) + O_O3 ( 18) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (168) + usr_O_O ( 19) O + O + M -> O2 + M rate = ** User defined ** (169) + usr_O_O2 ( 20) O + O2 + M -> O3 + M rate = ** User defined ** (170) + H2_O ( 21) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (171) + H2O2_O ( 22) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (172) + H_HO2 ( 23) H + HO2 -> H2 + O2 rate = 6.90E-12 (173) + H_HO2a ( 24) H + HO2 -> 2*OH rate = 7.20E-11 (174) + H_HO2b ( 25) H + HO2 -> H2O + O rate = 1.60E-12 (175) + H_O2 ( 26) H + O2 + M -> HO2 + M troe : ko=5.30E-32*(300/t)**1.80 (176) ki=9.50E-11*(300/t)**-0.40 f=0.60 - HO2_O ( 26) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (176) - HO2_O3 ( 27) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (177) - H_O3 ( 28) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (178) - OH_H2 ( 29) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (179) - OH_H2O2 ( 30) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (180) - OH_HO2 ( 31) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (181) - OH_O ( 32) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (182) - OH_O3 ( 33) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (183) - OH_OH ( 34) OH + OH -> H2O + O rate = 1.80E-12 (184) - OH_OH_M ( 35) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (185) + HO2_O ( 27) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (177) + HO2_O3 ( 28) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (178) + H_O3 ( 29) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (179) + OH_H2 ( 30) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (180) + OH_H2O2 ( 31) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (181) + OH_HO2 ( 32) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (182) + OH_O ( 33) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (183) + OH_O3 ( 34) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (184) + OH_OH ( 35) OH + OH -> H2O + O rate = 1.80E-12 (185) + OH_OH_M ( 36) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (186) ki=2.60E-11 f=0.60 - usr_HO2_HO2 ( 36) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (186) - HO2NO2_OH ( 37) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (187) - N2D_O ( 38) N2D + O -> N + O rate = 7.00E-13 (188) - N2D_O2 ( 39) N2D + O2 -> NO + O1D rate = 5.00E-12 (189) - N_NO ( 40) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (190) - N_NO2a ( 41) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (191) - N_NO2b ( 42) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (192) - N_NO2c ( 43) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (193) - N_O2 ( 44) N + O2 -> NO + O rate = 3.30E-12*exp( -3150./t) (194) - NO2_O ( 45) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (195) - NO2_O3 ( 46) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (196) - NO2_O_M ( 47) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (197) + usr_HO2_HO2 ( 37) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (187) + agn2d ( 38) N2D -> N rate = 1.06E-05 (188) + HO2NO2_OH ( 39) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (189) + N2D_NO ( 40) N2D + NO -> N2 + O rate = 7.00E-11 (190) + N2D_O ( 41) N2D + O -> N + O rate = 7.00E-13 (191) + N_NO ( 42) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (192) + N_NO2a ( 43) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (193) + N_NO2b ( 44) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (194) + N_NO2c ( 45) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (195) + NO2_O ( 46) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (196) + NO2_O3 ( 47) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (197) + NO2_O_M ( 48) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (198) ki=2.20E-11*(300/t)**0.70 f=0.60 - NO3_HO2 ( 48) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (198) - NO3_NO ( 49) NO3 + NO -> 2*NO2 rate = 1.70E-11*exp( 125./t) (199) - NO3_O ( 50) NO3 + O -> NO2 + O2 rate = 1.30E-11 (200) - NO3_OH ( 51) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (201) - N_OH ( 52) N + OH -> NO + H rate = 5.00E-11 (202) - NO_HO2 ( 53) NO + HO2 -> NO2 + OH rate = 3.44E-12*exp( 260./t) (203) - NO_O3 ( 54) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (204) - NO_O_M ( 55) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (205) + NO3_HO2 ( 49) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (199) + NO3_NO ( 50) NO3 + NO -> 2*NO2 rate = 1.70E-11*exp( 125./t) (200) + NO3_O ( 51) NO3 + O -> NO2 + O2 rate = 1.30E-11 (201) + NO3_OH ( 52) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (202) + N_OH ( 53) N + OH -> NO + H rate = 5.00E-11 (203) + NO_HO2 ( 54) NO + HO2 -> NO2 + OH rate = 3.44E-12*exp( 260./t) (204) + NO_O3 ( 55) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (205) + NO_O_M ( 56) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (206) ki=3.00E-11 f=0.60 - O1D_N2Oa ( 56) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (206) - O1D_N2Ob ( 57) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (207) - tag_NO2_HO2 ( 58) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (208) + O1D_N2Oa ( 57) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (207) + O1D_N2Ob ( 58) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (208) + tag_NO2_HO2 ( 59) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (209) ki=4.00E-12*(300/t)**0.30 f=0.60 - tag_NO2_NO3 ( 59) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (209) + tag_NO2_NO3 ( 60) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (210) ki=1.60E-12*(300/t)**-0.10 f=0.60 - tag_NO2_OH ( 60) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (210) + tag_NO2_OH ( 61) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (211) ki=2.80E-11 f=0.60 - usr_HNO3_OH ( 61) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (211) - usr_HO2NO2_M ( 62) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (212) - usr_N2O5_M ( 63) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (213) - CL_CH2O ( 64) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (214) - CL_CH4 ( 65) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (215) - CL_H2 ( 66) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (216) - CL_H2O2 ( 67) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (217) - CL_HO2a ( 68) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (218) - CL_HO2b ( 69) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (219) - CL_O3 ( 70) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (220) - CLO_CH3O2 ( 71) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (221) - CLO_CLOa ( 72) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (222) - CLO_CLOb ( 73) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (223) - CLO_CLOc ( 74) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (224) - CLO_HO2 ( 75) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (225) - CLO_NO ( 76) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (226) - CLONO2_CL ( 77) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (227) - CLO_NO2_M ( 78) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (228) + usr_HNO3_OH ( 62) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (212) + usr_HO2NO2_M ( 63) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (213) + usr_N2D_e ( 64) N2D + e -> N + e rate = ** User defined ** (214) + usr_N2D_O2 ( 65) N2D + O2 -> NO + O1D rate = ** User defined ** (215) + usr_N2O5_M ( 66) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (216) + usr_N_O2 ( 67) N + O2 -> NO + O rate = ** User defined ** (217) + CL_CH2O ( 68) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (218) + CL_CH4 ( 69) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (219) + CL_H2 ( 70) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (220) + CL_H2O2 ( 71) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (221) + CL_HO2a ( 72) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (222) + CL_HO2b ( 73) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (223) + CL_O3 ( 74) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (224) + CLO_CH3O2 ( 75) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (225) + CLO_CLOa ( 76) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (226) + CLO_CLOb ( 77) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (227) + CLO_CLOc ( 78) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (228) + CLO_HO2 ( 79) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (229) + CLO_NO ( 80) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (230) + CLONO2_CL ( 81) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (231) + CLO_NO2_M ( 82) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (232) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O ( 79) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (229) - CLONO2_OH ( 80) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (230) - CLO_O ( 81) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (231) - CLO_OHa ( 82) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (232) - CLO_OHb ( 83) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (233) - HCL_O ( 84) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (234) - HCL_OH ( 85) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (235) - HOCL_CL ( 86) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (236) - HOCL_O ( 87) HOCL + O -> CLO + OH rate = 1.70E-13 (237) - HOCL_OH ( 88) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (238) - O1D_CCL4 ( 89) O1D + CCL4 -> 4*CL rate = 2.61E-10 (239) - O1D_CF2CLBR ( 90) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (240) - O1D_CFC11 ( 91) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (241) - O1D_CFC113 ( 92) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (242) - O1D_CFC114 ( 93) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (243) - O1D_CFC115 ( 94) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (244) - O1D_CFC12 ( 95) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (245) - O1D_HCLa ( 96) O1D + HCL -> CL + OH rate = 9.90E-11 (246) - O1D_HCLb ( 97) O1D + HCL -> CLO + H rate = 3.30E-12 (247) - tag_CLO_CLO_M ( 98) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (248) + CLONO2_O ( 83) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (233) + CLONO2_OH ( 84) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (234) + CLO_O ( 85) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (235) + CLO_OHa ( 86) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (236) + CLO_OHb ( 87) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (237) + HCL_O ( 88) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (238) + HCL_OH ( 89) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (239) + HOCL_CL ( 90) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (240) + HOCL_O ( 91) HOCL + O -> CLO + OH rate = 1.70E-13 (241) + HOCL_OH ( 92) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (242) + O1D_CCL4 ( 93) O1D + CCL4 -> 4*CL rate = 2.61E-10 (243) + O1D_CF2CLBR ( 94) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (244) + O1D_CFC11 ( 95) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (245) + O1D_CFC113 ( 96) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (246) + O1D_CFC114 ( 97) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (247) + O1D_CFC115 ( 98) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (248) + O1D_CFC12 ( 99) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (249) + O1D_HCLa (100) O1D + HCL -> CL + OH rate = 9.90E-11 (250) + O1D_HCLb (101) O1D + HCL -> CLO + H rate = 3.30E-12 (251) + tag_CLO_CLO_M (102) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (252) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M ( 99) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (249) - BR_CH2O (100) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (250) - BR_HO2 (101) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (251) - BR_O3 (102) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (252) - BRO_BRO (103) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (253) - BRO_CLOa (104) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (254) - BRO_CLOb (105) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (255) - BRO_CLOc (106) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (256) - BRO_HO2 (107) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (257) - BRO_NO (108) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (258) - BRO_NO2_M (109) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (259) + usr_CL2O2_M (103) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (253) + BR_CH2O (104) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (254) + BR_HO2 (105) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (255) + BR_O3 (106) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (256) + BRO_BRO (107) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (257) + BRO_CLOa (108) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (258) + BRO_CLOb (109) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (259) + BRO_CLOc (110) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (260) + BRO_HO2 (111) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (261) + BRO_NO (112) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (262) + BRO_NO2_M (113) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (263) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (110) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (260) - BRO_O (111) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (261) - BRO_OH (112) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (262) - HBR_O (113) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (263) - HBR_OH (114) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (264) - HOBR_O (115) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (265) - O1D_CF3BR (116) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (266) - O1D_CHBR3 (117) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (267) - O1D_H2402 (118) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (268) - O1D_HBRa (119) O1D + HBR -> BR + OH rate = 9.00E-11 (269) - O1D_HBRb (120) O1D + HBR -> BRO + H rate = 3.00E-11 (270) - F_CH4 (121) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (271) - F_H2 (122) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (272) - F_H2O (123) F + H2O -> HF + OH rate = 1.40E-11 (273) - F_HNO3 (124) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (274) - O1D_COF2 (125) O1D + COF2 -> 2*F rate = 2.14E-11 (275) - O1D_COFCL (126) O1D + COFCL -> F + CL rate = 1.90E-10 (276) - CH2BR2_CL (127) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (277) - CH2BR2_OH (128) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (278) - CH3BR_CL (129) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (279) - CH3BR_OH (130) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (280) - CH3CCL3_OH (131) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (281) - CH3CL_CL (132) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (282) - CH3CL_OH (133) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (283) - CHBR3_CL (134) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (284) - CHBR3_OH (135) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (285) - HCFC141B_OH (136) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (286) - HCFC142B_OH (137) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (287) - HCFC22_OH (138) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (288) - O1D_CH2BR2 (139) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (289) - O1D_CH3BR (140) O1D + CH3BR -> BR rate = 1.80E-10 (290) - O1D_HCFC141B (141) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (291) - O1D_HCFC142B (142) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (292) - O1D_HCFC22 (143) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (293) - CH2O_HO2 (144) CH2O + HO2 -> HOCH2OO rate = 9.70E-15*exp( 625./t) (294) - CH2O_NO3 (145) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (295) - CH2O_O (146) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (296) - CH2O_OH (147) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (297) - CH3O2_CH3O2a (148) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (298) - CH3O2_CH3O2b (149) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (299) - CH3O2_HO2 (150) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (300) - CH3O2_NO (151) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (301) - CH3OH_OH (152) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (302) - CH3OOH_OH (153) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (303) - CH4_OH (154) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (304) - HCN_OH (155) HCN + OH + M -> HO2 + M troe : ko=6.10E-33*(300/t)**1.50 (305) + BRONO2_O (114) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (264) + BRO_O (115) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (265) + BRO_OH (116) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (266) + HBR_O (117) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (267) + HBR_OH (118) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (268) + HOBR_O (119) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (269) + O1D_CF3BR (120) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (270) + O1D_CHBR3 (121) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (271) + O1D_H2402 (122) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (272) + O1D_HBRa (123) O1D + HBR -> BR + OH rate = 9.00E-11 (273) + O1D_HBRb (124) O1D + HBR -> BRO + H rate = 3.00E-11 (274) + F_CH4 (125) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (275) + F_H2 (126) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (276) + F_H2O (127) F + H2O -> HF + OH rate = 1.40E-11 (277) + F_HNO3 (128) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (278) + O1D_COF2 (129) O1D + COF2 -> 2*F rate = 2.14E-11 (279) + O1D_COFCL (130) O1D + COFCL -> F + CL rate = 1.90E-10 (280) + CH2BR2_CL (131) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (281) + CH2BR2_OH (132) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (282) + CH3BR_CL (133) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (283) + CH3BR_OH (134) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (284) + CH3CCL3_OH (135) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (285) + CH3CL_CL (136) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (286) + CH3CL_OH (137) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (287) + CHBR3_CL (138) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (288) + CHBR3_OH (139) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (289) + HCFC141B_OH (140) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (290) + HCFC142B_OH (141) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (291) + HCFC22_OH (142) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (292) + O1D_CH2BR2 (143) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (293) + O1D_CH3BR (144) O1D + CH3BR -> BR rate = 1.80E-10 (294) + O1D_HCFC141B (145) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (295) + O1D_HCFC142B (146) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (296) + O1D_HCFC22 (147) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (297) + CH2O_HO2 (148) CH2O + HO2 -> HOCH2OO rate = 9.70E-15*exp( 625./t) (298) + CH2O_NO3 (149) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (299) + CH2O_O (150) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (300) + CH2O_OH (151) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (301) + CH3O2_CH3O2a (152) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (302) + CH3O2_CH3O2b (153) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (303) + CH3O2_HO2 (154) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (304) + CH3O2_NO (155) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (305) + CH3OH_OH (156) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (306) + CH3OOH_OH (157) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (307) + CH4_OH (158) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (308) + HCN_OH (159) HCN + OH + M -> HO2 + M troe : ko=6.10E-33*(300/t)**1.50 (309) ki=9.80E-15*(300/t)**-4.60 f=0.80 - HCOOH_OH (156) HCOOH + OH -> HO2 + CO2 + H2O rate = 4.00E-13 (306) - HOCH2OO_HO2 (157) HOCH2OO + HO2 -> HCOOH rate = 7.50E-13*exp( 700./t) (307) - HOCH2OO_M (158) HOCH2OO -> CH2O + HO2 rate = 2.40E+12*exp( -7000./t) (308) - HOCH2OO_NO (159) HOCH2OO + NO -> HCOOH + NO2 + HO2 rate = 2.60E-12*exp( 265./t) (309) - O1D_CH4a (160) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (310) - O1D_CH4b (161) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (311) - O1D_CH4c (162) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (312) - O1D_HCN (163) O1D + HCN -> OH rate = 1.08E-10*exp( 105./t) (313) - usr_CO_OH (164) CO + OH -> CO2 + HO2 rate = ** User defined ** (314) - C2H2_CL_M (165) C2H2 + CL + M -> CL + M troe : ko=5.20E-30*(300/t)**2.40 (315) + HCOOH_OH (160) HCOOH + OH -> HO2 + CO2 + H2O rate = 4.00E-13 (310) + HOCH2OO_HO2 (161) HOCH2OO + HO2 -> HCOOH rate = 7.50E-13*exp( 700./t) (311) + HOCH2OO_M (162) HOCH2OO -> CH2O + HO2 rate = 2.40E+12*exp( -7000./t) (312) + HOCH2OO_NO (163) HOCH2OO + NO -> HCOOH + NO2 + HO2 rate = 2.60E-12*exp( 265./t) (313) + O1D_CH4a (164) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (314) + O1D_CH4b (165) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (315) + O1D_CH4c (166) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (316) + O1D_HCN (167) O1D + HCN -> OH rate = 1.08E-10*exp( 105./t) (317) + usr_CO_OH (168) CO + OH -> CO2 + HO2 rate = ** User defined ** (318) + C2H2_CL_M (169) C2H2 + CL + M -> CL + M troe : ko=5.20E-30*(300/t)**2.40 (319) ki=2.20E-10*(300/t)**0.70 f=0.60 - C2H2_OH_M (166) C2H2 + OH + M -> 0.65*GLYOXAL + 0.65*OH + 0.35*HCOOH + 0.35*HO2 troe : ko=5.50E-30 (316) + C2H2_OH_M (170) C2H2 + OH + M -> 0.65*GLYOXAL + 0.65*OH + 0.35*HCOOH + 0.35*HO2 troe : ko=5.50E-30 (320) + 0.35*CO + M ki=8.30E-13*(300/t)**-2.00 f=0.60 - C2H4_CL_M (167) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (317) + C2H4_CL_M (171) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (321) ki=3.10E-10*(300/t) f=0.60 - C2H4_O3 (168) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O rate = 1.20E-14*exp( -2630./t) (318) - C2H5O2_C2H5O2 (169) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (319) - C2H5O2_CH3O2 (170) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (320) + C2H4_O3 (172) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O rate = 1.20E-14*exp( -2630./t) (322) + C2H5O2_C2H5O2 (173) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (323) + C2H5O2_CH3O2 (174) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (324) + 0.2*C2H5OH - C2H5O2_HO2 (171) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (321) - C2H5O2_NO (172) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (322) - C2H5OH_OH (173) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (323) - C2H5OOH_OH (174) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (324) - C2H6_CL (175) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (325) - C2H6_OH (176) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (326) - CH3CHO_NO3 (177) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (327) - CH3CHO_OH (178) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (328) - CH3CN_OH (179) CH3CN + OH -> HO2 rate = 7.80E-13*exp( -1050./t) (329) - CH3CO3_CH3CO3 (180) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (330) - CH3CO3_CH3O2 (181) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (331) + C2H5O2_HO2 (175) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (325) + C2H5O2_NO (176) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (326) + C2H5OH_OH (177) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (327) + C2H5OOH_OH (178) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (328) + C2H6_CL (179) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (329) + C2H6_OH (180) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (330) + CH3CHO_NO3 (181) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (331) + CH3CHO_OH (182) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (332) + CH3CN_OH (183) CH3CN + OH -> HO2 rate = 7.80E-13*exp( -1050./t) (333) + CH3CO3_CH3CO3 (184) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (334) + CH3CO3_CH3O2 (185) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (335) + 0.1*CH3COOH - CH3CO3_HO2 (182) CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH rate = 4.30E-13*exp( 1040./t) (332) - + 0.45*CH3O2 - CH3CO3_NO (183) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (333) - CH3COOH_OH (184) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (334) - CH3COOOH_OH (185) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (335) - EO2_HO2 (186) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (336) - EO2_NO (187) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (337) - EO_M (188) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (338) - EO_O2 (189) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (339) - GLYALD_OH (190) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (340) - GLYOXAL_OH (191) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (341) - PAN_OH (192) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (342) - tag_C2H4_OH (193) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (343) + CH3CO3_HO2 (186) CH3CO3 + HO2 -> 0.36*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.49*OH rate = 4.30E-13*exp( 1040./t) (336) + + 0.49*CH3O2 + 0.49*CO2 + CH3CO3_NO (187) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (337) + CH3COOH_OH (188) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (338) + CH3COOOH_OH (189) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (339) + EO2_HO2 (190) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (340) + EO2_NO (191) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (341) + EO_M (192) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (342) + EO_O2 (193) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (343) + GLYALD_OH (194) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (344) + GLYOXAL_OH (195) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (345) + PAN_OH (196) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (346) + tag_C2H4_OH (197) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (347) ki=9.00E-12*(300/t)**0.85 f=0.48 - tag_CH3CO3_NO2 (194) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (344) + tag_CH3CO3_NO2 (198) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (348) ki=9.50E-12*(300/t)**1.60 f=0.60 - usr_PAN_M (195) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (345) - C3H6_NO3 (196) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (346) - C3H6_O3 (197) C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (347) + usr_PAN_M (199) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (349) + C3H6_NO3 (200) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (350) + C3H6_O3 (201) C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (351) + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH - C3H7O2_CH3O2 (198) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 3.75E-13*exp( -40./t) (348) - C3H7O2_HO2 (199) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 7.50E-13*exp( 700./t) (349) - C3H7O2_NO (200) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 4.20E-12*exp( 180./t) (350) - C3H7OOH_OH (201) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (351) - C3H8_OH (202) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (352) - CH3COCHO_NO3 (203) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (353) - CH3COCHO_OH (204) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (354) - CL_C3H8 (205) CL + C3H8 -> C3H7O2 + HCL rate = 1.45E-10 (355) - HYAC_OH (206) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (356) - NOA_OH (207) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (357) - PO2_HO2 (208) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (358) - PO2_NO (209) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (359) - POOH_OH (210) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (360) - RO2_CH3O2 (211) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (361) + C3H7O2_CH3O2 (202) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 1.00E-13*exp( 557./t) (352) + C3H7O2_HO2 (203) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 1.41E-13*exp( 1300./t) (353) + C3H7O2_NO (204) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 2.70E-12*exp( 360./t) (354) + C3H7OOH_OH (205) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (355) + C3H8_OH (206) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (356) + CH3COCHO_NO3 (207) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (357) + CH3COCHO_OH (208) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (358) + CL_C3H8 (209) CL + C3H8 -> C3H7O2 + HCL rate = 1.45E-10 (359) + HYAC_OH (210) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (360) + NOA_OH (211) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (361) + PO2_HO2 (212) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (362) + PO2_NO (213) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (363) + POOH_OH (214) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (364) + RO2_CH3O2 (215) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (365) + 0.5*CH3COCHO + 0.5*CH3OH - RO2_HO2 (212) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (362) - RO2_NO (213) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (363) - ROOH_OH (214) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (364) - tag_C3H6_OH (215) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (365) + RO2_HO2 (216) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (366) + RO2_NO (217) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (367) + ROOH_OH (218) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (368) + tag_C3H6_OH (219) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (369) ki=3.00E-11 f=0.50 - usr_CH3COCH3_OH (216) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (366) - BIGENE_NO3 (217) BIGENE + NO3 -> NO2 + CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 rate = 3.50E-13 (367) - BIGENE_OH (218) BIGENE + OH -> ENEO2 rate = 5.40E-11 (368) - ENEO2_NO (219) ENEO2 + NO -> CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 + HO2 + NO2 rate = 4.80E-12*exp( 120./t) (369) - ENEO2_NOb (220) ENEO2 + NO -> HONITR rate = 5.10E-14*exp( 693./t) (370) - HONITR_OH (221) HONITR + OH -> ONITR + HO2 rate = 2.00E-12 (371) - MACRO2_CH3CO3 (222) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (372) + usr_CH3COCH3_OH (220) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (370) + BIGENE_NO3 (221) BIGENE + NO3 -> NO2 + CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 rate = 3.50E-13 (371) + BIGENE_OH (222) BIGENE + OH -> ENEO2 rate = 5.40E-11 (372) + ENEO2_NO (223) ENEO2 + NO -> CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 + HO2 + NO2 rate = 4.80E-12*exp( 120./t) (373) + ENEO2_NOb (224) ENEO2 + NO -> HONITR rate = 5.10E-14*exp( 693./t) (374) + HONITR_OH (225) HONITR + OH -> ONITR + HO2 rate = 2.00E-12 (375) + MACRO2_CH3CO3 (226) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (376) + 0.53*GLYALD + 0.22*HYAC + 0.25*CH2O + 0.53*CH3CO3 - MACRO2_CH3O2 (223) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (373) + MACRO2_CH3O2 (227) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (377) + 0.26*GLYALD + 0.26*CH3CO3 + 0.25*CH3OH + 0.23*HYAC - MACRO2_HO2 (224) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (374) - MACRO2_NO3 (225) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (375) + MACRO2_HO2 (228) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (378) + MACRO2_NO3 (229) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (379) + 0.22*CO + 0.53*GLYALD + 0.22*HYAC + 0.53*CH3CO3 - MACRO2_NOa (226) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (376) + MACRO2_NOa (230) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (380) + 0.25*CH3COCHO + 0.53*CH3CO3 + 0.22*HYAC + 0.22*CO - MACRO2_NOb (227) MACRO2 + NO -> HONITR rate = 1.30E-13*exp( 360./t) (377) - MACR_O3 (228) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (378) + MACRO2_NOb (231) MACRO2 + NO -> HONITR rate = 1.30E-13*exp( 360./t) (381) + MACR_O3 (232) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (382) + 0.88*CH3COCHO + 0.33*HCOOH + 0.14*HO2 - MACR_OH (229) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (379) - MACROOH_OH (230) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (380) - MCO3_CH3CO3 (231) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (381) - MCO3_CH3O2 (232) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (382) - MCO3_HO2 (233) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (383) + MACR_OH (233) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (383) + MACROOH_OH (234) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (384) + MCO3_CH3CO3 (235) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (385) + MCO3_CH3O2 (236) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (386) + MCO3_HO2 (237) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (387) + 0.45*CO2 + 0.45*CH2O + 0.45*CH3CO3 - MCO3_MCO3 (234) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (384) - MCO3_NO (235) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (385) - MCO3_NO3 (236) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (386) - MEKO2_HO2 (237) MEKO2 + HO2 -> 0.8*MEKOOH + 0.2*OH + 0.2*CH3CHO + 0.2*CH3CO3 rate = 7.50E-13*exp( 700./t) (387) - MEKO2_NO (238) MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 rate = 4.20E-12*exp( 180./t) (388) - MEK_OH (239) MEK + OH -> MEKO2 rate = 2.30E-12*exp( -170./t) (389) - MEKOOH_OH (240) MEKOOH + OH -> MEKO2 rate = 3.80E-12*exp( 200./t) (390) - MPAN_OH_M (241) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (391) - + M + 0.5*NDEP ki=3.00E-11 + MCO3_MCO3 (238) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (388) + MCO3_NO (239) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (389) + MCO3_NO3 (240) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (390) + MEKO2_HO2 (241) MEKO2 + HO2 -> 0.8*MEKOOH + 0.2*OH + 0.2*CH3CHO + 0.2*CH3CO3 rate = 7.50E-13*exp( 700./t) (391) + MEKO2_NO (242) MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 rate = 4.20E-12*exp( 180./t) (392) + MEK_OH (243) MEK + OH -> MEKO2 rate = 2.30E-12*exp( -170./t) (393) + MEKOOH_OH (244) MEKOOH + OH -> MEKO2 rate = 3.80E-12*exp( 200./t) (394) + MPAN_OH_M (245) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (395) + + 0.5*NDEP + M ki=3.00E-11 f=0.50 - MVK_O3 (242) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (392) + MVK_O3 (246) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (396) + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH - MVK_OH (243) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (393) - tag_MCO3_NO2 (244) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (394) + MVK_OH (247) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (397) + tag_MCO3_NO2 (248) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (398) ki=9.30E-12*(300/t)**1.50 f=0.60 - usr_MPAN_M (245) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (395) - ALKNIT_OH (246) ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 rate = 1.60E-12 (396) - ALKO2_HO2 (247) ALKO2 + HO2 -> ALKOOH rate = 7.50E-13*exp( 700./t) (397) - ALKO2_NO (248) ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK rate = 6.70E-12 (398) + usr_MPAN_M (249) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (399) + ALKNIT_OH (250) ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 rate = 2.20E-12 (400) + ALKO2_HO2 (251) ALKO2 + HO2 -> ALKOOH rate = 7.50E-13*exp( 700./t) (401) + ALKO2_NO (252) ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK rate = 6.70E-12 (402) + NO2 - ALKO2_NOb (249) ALKO2 + NO -> ALKNIT rate = 5.40E-14*exp( 870./t) (399) - ALKOOH_OH (250) ALKOOH + OH -> ALKO2 rate = 3.80E-12*exp( 200./t) (400) - BIGALK_OH (251) BIGALK + OH -> ALKO2 rate = 3.50E-12 (401) - HPALD_OH (252) HPALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (402) - HYDRALD_OH (253) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (403) - IEPOX_OH (254) IEPOX + OH -> XO2 rate = 1.30E-11 (404) - ISOPAO2_CH3CO3 (255) ISOPAO2 + CH3CO3 -> CH3O2 + HO2 + CH2O + 0.39*MACR + 0.61*MVK + CO2 rate = 1.40E-11 (405) - ISOPAO2_CH3O2 (256) ISOPAO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.5*CH2O + 0.31*MACR rate = 5.00E-13*exp( 400./t) (406) + ALKO2_NOb (253) ALKO2 + NO -> ALKNIT rate = 5.40E-14*exp( 870./t) (403) + ALKOOH_OH (254) ALKOOH + OH -> ALKO2 rate = 3.80E-12*exp( 200./t) (404) + BIGALK_OH (255) BIGALK + OH -> ALKO2 rate = 3.50E-12 (405) + HPALD_OH (256) HPALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (406) + HYDRALD_OH (257) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (407) + IEPOX_OH (258) IEPOX + OH -> XO2 rate = 1.30E-11 (408) + ISOPAO2_CH3CO3 (259) ISOPAO2 + CH3CO3 -> CH3O2 + HO2 + CH2O + 0.39*MACR + 0.61*MVK + CO2 rate = 1.40E-11 (409) + ISOPAO2_CH3O2 (260) ISOPAO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.5*CH2O + 0.31*MACR rate = 5.00E-13*exp( 400./t) (410) + 0.44*MVK - ISOPAO2_HO2 (257) ISOPAO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (407) - ISOPAO2_NO (258) ISOPAO2 + NO -> 0.08*ISOPNITA + 0.92*NO2 + 0.36*MACR + 0.56*MVK rate = 4.40E-12*exp( 180./t) (408) + ISOPAO2_HO2 (261) ISOPAO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (411) + ISOPAO2_NO (262) ISOPAO2 + NO -> 0.08*ISOPNITA + 0.92*NO2 + 0.36*MACR + 0.56*MVK rate = 4.40E-12*exp( 180./t) (412) + 0.92*CH2O + 0.92*HO2 - ISOPAO2_NO3 (259) ISOPAO2 + NO3 -> NO2 + 0.4*MACR + 0.6*MVK + CH2O + HO2 rate = 2.40E-12 (409) - ISOPBO2_CH3CO3 (260) ISOPBO2 + CH3CO3 -> HYDRALD + CH3O2 + HO2 rate = 1.40E-11 (410) - ISOPBO2_CH3O2 (261) ISOPBO2 + CH3O2 -> 0.25*CH3OH + HO2 + 0.75*CH2O + 0.75*HYDRALD rate = 5.00E-13*exp( 400./t) (411) - ISOPBO2_HO2 (262) ISOPBO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (412) - ISOPBO2_M (263) ISOPBO2 -> HPALD + HO2 rate = 1.60E+09*exp( -8300./t) (413) - ISOPBO2_NO (264) ISOPBO2 + NO -> 0.87*HYDRALD + 0.08*ISOPNITB + 0.92*NO2 + 0.92*HO2 rate = 4.40E-12*exp( 180./t) (414) + ISOPAO2_NO3 (263) ISOPAO2 + NO3 -> NO2 + 0.4*MACR + 0.6*MVK + CH2O + HO2 rate = 2.40E-12 (413) + ISOPBO2_CH3CO3 (264) ISOPBO2 + CH3CO3 -> HYDRALD + CH3O2 + HO2 rate = 1.40E-11 (414) + ISOPBO2_CH3O2 (265) ISOPBO2 + CH3O2 -> 0.25*CH3OH + HO2 + 0.75*CH2O + 0.75*HYDRALD rate = 5.00E-13*exp( 400./t) (415) + ISOPBO2_HO2 (266) ISOPBO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (416) + ISOPBO2_M (267) ISOPBO2 -> HPALD + HO2 rate = 1.60E+09*exp( -8300./t) (417) + ISOPBO2_NO (268) ISOPBO2 + NO -> 0.87*HYDRALD + 0.08*ISOPNITB + 0.92*NO2 + 0.92*HO2 rate = 4.40E-12*exp( 180./t) (418) + 0.05*GLYOXAL + 0.05*GLYALD + 0.05*CH3COCHO + 0.05*HYAC - ISOPBO2_NO3 (265) ISOPBO2 + NO3 -> NO2 + 0.95*HYDRALD + HO2 + 0.05*GLYOXAL rate = 2.40E-12 (415) + ISOPBO2_NO3 (269) ISOPBO2 + NO3 -> NO2 + 0.95*HYDRALD + HO2 + 0.05*GLYOXAL rate = 2.40E-12 (419) + 0.05*GLYALD + 0.05*CH3COCHO + 0.05*HYAC - ISOPNITA_OH (266) ISOPNITA + OH -> 0.7*HYAC + 0.7*GLYALD + 0.7*NO2 + 0.3*CH2O rate = 4.00E-11 (416) + ISOPNITA_OH (270) ISOPNITA + OH -> 0.7*HYAC + 0.7*GLYALD + 0.7*NO2 + 0.3*CH2O rate = 4.00E-11 (420) + 0.3*HONITR + 0.3*HO2 - ISOPNITB_OH (267) ISOPNITB + OH -> 0.5*HYAC + 0.5*GLYALD + 0.5*NOA + HO2 + 0.5*HONITR rate = 4.00E-11 (417) - ISOP_NO3 (268) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (418) - ISOPNO3_CH3CO3 (269) ISOPNO3 + CH3CO3 -> NC4CHO + CH3O2 + HO2 rate = 1.40E-11 (419) - ISOPNO3_CH3O2 (270) ISOPNO3 + CH3O2 -> 0.8*NC4CHO + 1.2*HO2 + 0.8*CH2O + 0.2*CH3OH rate = 5.00E-13*exp( 400./t) (420) + ISOPNITB_OH (271) ISOPNITB + OH -> 0.5*HYAC + 0.5*GLYALD + 0.5*NOA + HO2 + 0.5*HONITR rate = 4.00E-11 (421) + ISOP_NO3 (272) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (422) + ISOPNO3_CH3CO3 (273) ISOPNO3 + CH3CO3 -> NC4CHO + CH3O2 + HO2 rate = 1.40E-11 (423) + ISOPNO3_CH3O2 (274) ISOPNO3 + CH3O2 -> 0.8*NC4CHO + 1.2*HO2 + 0.8*CH2O + 0.2*CH3OH rate = 5.00E-13*exp( 400./t) (424) + 0.2*NC4CH2OH - ISOPNO3_HO2 (271) ISOPNO3 + HO2 -> ISOPNOOH rate = 8.00E-13*exp( 700./t) (421) - ISOPNO3_NO (272) ISOPNO3 + NO -> NC4CHO + NO2 + HO2 rate = 2.70E-12*exp( 360./t) (422) - ISOPNO3_NO3 (273) ISOPNO3 + NO3 -> NC4CHO + NO2 + HO2 rate = 2.40E-12 (423) - ISOPNOOH_OH (274) ISOPNOOH + OH -> NOA + HO2 rate = 4.00E-11 (424) - ISOP_O3 (275) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (425) + ISOPNO3_HO2 (275) ISOPNO3 + HO2 -> ISOPNOOH rate = 8.00E-13*exp( 700./t) (425) + ISOPNO3_NO (276) ISOPNO3 + NO -> NC4CHO + NO2 + HO2 rate = 2.70E-12*exp( 360./t) (426) + ISOPNO3_NO3 (277) ISOPNO3 + NO3 -> NC4CHO + NO2 + HO2 rate = 2.40E-12 (427) + ISOPNOOH_OH (278) ISOPNOOH + OH -> NOA + HO2 rate = 4.00E-11 (428) + ISOP_O3 (279) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (429) + 0.37*HO2 + 0.91*CH2O + 0.08*CH3CO3 + 0.13*C3H6 + 0.05*CH3O2 - ISOP_OH (276) ISOP + OH -> 0.6*ISOPAO2 + 0.4*ISOPBO2 rate = 2.54E-11*exp( 410./t) (426) - ISOPOOH_OH (277) ISOPOOH + OH -> 0.4*XO2 + 0.6*IEPOX + 0.6*OH rate = 1.52E-11*exp( 200./t) (427) - NC4CH2OH_OH (278) NC4CH2OH + OH -> GLYALD + NOA + HO2 rate = 7.00E-11 (428) - NC4CHO_OH (279) NC4CHO + OH -> GLYOXAL + NOA + HO2 rate = 1.00E-10 (429) - XO2_CH3CO3 (280) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (430) + ISOP_OH (280) ISOP + OH -> 0.6*ISOPAO2 + 0.4*ISOPBO2 rate = 2.54E-11*exp( 410./t) (430) + ISOPOOH_OH (281) ISOPOOH + OH -> 0.4*XO2 + 0.6*IEPOX + 0.6*OH rate = 1.52E-11*exp( 200./t) (431) + NC4CH2OH_OH (282) NC4CH2OH + OH -> GLYALD + NOA + HO2 rate = 7.00E-11 (432) + NC4CHO_OH (283) NC4CHO + OH -> GLYOXAL + NOA + HO2 rate = 1.00E-10 (433) + XO2_CH3CO3 (284) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (434) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD + CO2 - XO2_CH3O2 (281) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (431) + XO2_CH3O2 (285) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (435) + 0.1*GLYOXAL + 0.1*CH3COCHO + 0.1*HYAC + 0.1*GLYALD - XO2_HO2 (282) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (432) - XO2_NO (283) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (433) + XO2_HO2 (286) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (436) + XO2_NO (287) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (437) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD - XO2_NO3 (284) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (434) + XO2_NO3 (288) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (438) + 0.25*CH3COCHO + 0.25*GLYALD - XOOH_OH (285) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (435) - ACBZO2_HO2 (286) ACBZO2 + HO2 -> 0.4*C6H5O2 + 0.4*OH rate = 4.30E-13*exp( 1040./t) (436) - ACBZO2_NO (287) ACBZO2 + NO -> C6H5O2 + NO2 rate = 7.50E-12*exp( 290./t) (437) - BENZENE_OH (288) BENZENE + OH -> 0.53*PHENOL + 0.12*BEPOMUC + 0.65*HO2 + 0.35*BENZO2 rate = 2.30E-12*exp( -193./t) (438) - BENZO2_HO2 (289) BENZO2 + HO2 -> BENZOOH rate = 7.50E-13*exp( 700./t) (439) - BENZO2_NO (290) BENZO2 + NO -> NO2 + GLYOXAL + 0.5*BIGALD1 + HO2 rate = 2.60E-12*exp( 365./t) (440) - BENZOOH_OH (291) BENZOOH + OH -> BENZO2 rate = 3.80E-12*exp( 200./t) (441) - BZALD_OH (292) BZALD + OH -> ACBZO2 rate = 5.90E-12*exp( 225./t) (442) - BZOO_HO2 (293) BZOO + HO2 -> BZOOH rate = 7.50E-13*exp( 700./t) (443) - BZOOH_OH (294) BZOOH + OH -> BZOO rate = 3.80E-12*exp( 200./t) (444) - BZOO_NO (295) BZOO + NO -> BZALD + NO2 + HO2 rate = 2.60E-12*exp( 365./t) (445) - C6H5O2_HO2 (296) C6H5O2 + HO2 -> C6H5OOH rate = 7.50E-13*exp( 700./t) (446) - C6H5O2_NO (297) C6H5O2 + NO -> PHENO + NO2 rate = 2.60E-12*exp( 365./t) (447) - C6H5OOH_OH (298) C6H5OOH + OH -> C6H5O2 rate = 3.80E-12*exp( 200./t) (448) - CRESOL_OH (299) CRESOL + OH -> 0.2*PHENO2 + 0.73*HO2 + 0.07*PHENO rate = 4.70E-11 (449) - DICARBO2_HO2 (300) DICARBO2 + HO2 -> 0.4*OH + 0.07*HO2 + 0.07*CH3COCHO + 0.07*CO rate = 4.30E-13*exp( 1040./t) (450) + XOOH_OH (289) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (439) + ACBZO2_HO2 (290) ACBZO2 + HO2 -> 0.4*C6H5O2 + 0.4*OH rate = 4.30E-13*exp( 1040./t) (440) + ACBZO2_NO (291) ACBZO2 + NO -> C6H5O2 + NO2 rate = 7.50E-12*exp( 290./t) (441) + BENZENE_OH (292) BENZENE + OH -> 0.53*PHENOL + 0.12*BEPOMUC + 0.65*HO2 + 0.35*BENZO2 rate = 2.30E-12*exp( -193./t) (442) + BENZO2_HO2 (293) BENZO2 + HO2 -> BENZOOH rate = 7.50E-13*exp( 700./t) (443) + BENZO2_NO (294) BENZO2 + NO -> NO2 + GLYOXAL + 0.5*BIGALD1 + HO2 rate = 2.60E-12*exp( 365./t) (444) + BENZOOH_OH (295) BENZOOH + OH -> BENZO2 rate = 3.80E-12*exp( 200./t) (445) + BZALD_OH (296) BZALD + OH -> ACBZO2 rate = 5.90E-12*exp( 225./t) (446) + BZOO_HO2 (297) BZOO + HO2 -> BZOOH rate = 7.50E-13*exp( 700./t) (447) + BZOOH_OH (298) BZOOH + OH -> BZOO rate = 3.80E-12*exp( 200./t) (448) + BZOO_NO (299) BZOO + NO -> BZALD + NO2 + HO2 rate = 2.60E-12*exp( 365./t) (449) + C6H5O2_HO2 (300) C6H5O2 + HO2 -> C6H5OOH rate = 7.50E-13*exp( 700./t) (450) + C6H5O2_NO (301) C6H5O2 + NO -> PHENO + NO2 rate = 2.60E-12*exp( 365./t) (451) + C6H5OOH_OH (302) C6H5OOH + OH -> C6H5O2 rate = 3.80E-12*exp( 200./t) (452) + CRESOL_OH (303) CRESOL + OH -> 0.2*PHENO2 + 0.73*HO2 + 0.07*PHENO rate = 4.70E-11 (453) + DICARBO2_HO2 (304) DICARBO2 + HO2 -> 0.4*OH + 0.07*HO2 + 0.07*CH3COCHO + 0.07*CO rate = 4.30E-13*exp( 1040./t) (454) + 0.33*CH3O2 - DICARBO2_NO (301) DICARBO2 + NO -> NO2 + 0.17*HO2 + 0.17*CH3COCHO + 0.17*CO rate = 7.50E-12*exp( 290./t) (451) + DICARBO2_NO (305) DICARBO2 + NO -> NO2 + 0.17*HO2 + 0.17*CH3COCHO + 0.17*CO rate = 7.50E-12*exp( 290./t) (455) + 0.83*CH3O2 - DICARBO2_NO2 (302) DICARBO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (452) + DICARBO2_NO2 (306) DICARBO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (456) ki=9.30E-12*(300/t)**1.50 f=0.60 - MALO2_HO2 (303) MALO2 + HO2 -> 0.16*GLYOXAL + 0.16*HO2 + 0.16*CO rate = 4.30E-13*exp( 1040./t) (453) - MALO2_NO (304) MALO2 + NO -> 0.4*GLYOXAL + 0.4*HO2 + 0.4*CO + NO2 rate = 7.50E-12*exp( 290./t) (454) - MALO2_NO2 (305) MALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (455) + MALO2_HO2 (307) MALO2 + HO2 -> 0.16*GLYOXAL + 0.16*HO2 + 0.16*CO rate = 4.30E-13*exp( 1040./t) (457) + MALO2_NO (308) MALO2 + NO -> 0.4*GLYOXAL + 0.4*HO2 + 0.4*CO + NO2 rate = 7.50E-12*exp( 290./t) (458) + MALO2_NO2 (309) MALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (459) ki=9.30E-12*(300/t)**1.50 f=0.60 - MDIALO2_HO2 (306) MDIALO2 + HO2 -> 0.4*OH + 0.33*HO2 + 0.07*CH3COCHO + 0.14*CO rate = 4.30E-13*exp( 1040./t) (456) + MDIALO2_HO2 (310) MDIALO2 + HO2 -> 0.4*OH + 0.33*HO2 + 0.07*CH3COCHO + 0.14*CO rate = 4.30E-13*exp( 1040./t) (460) + 0.07*CH3O2 + 0.07*GLYOXAL - MDIALO2_NO (307) MDIALO2 + NO -> NO2 + 0.83*HO2 + 0.17*CH3COCHO + 0.35*CO rate = 7.50E-12*exp( 290./t) (457) + MDIALO2_NO (311) MDIALO2 + NO -> NO2 + 0.83*HO2 + 0.17*CH3COCHO + 0.35*CO rate = 7.50E-12*exp( 290./t) (461) + 0.17*CH3O2 + 0.17*GLYOXAL - MDIALO2_NO2 (308) MDIALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (458) + MDIALO2_NO2 (312) MDIALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (462) ki=9.30E-12*(300/t)**1.50 f=0.60 - PHENO2_HO2 (309) PHENO2 + HO2 -> PHENOOH rate = 7.50E-13*exp( 700./t) (459) - PHENO2_NO (310) PHENO2 + NO -> HO2 + 0.7*GLYOXAL + NO2 rate = 2.60E-12*exp( 365./t) (460) - PHENOL_OH (311) PHENOL + OH -> 0.14*PHENO2 + 0.8*HO2 + 0.06*PHENO rate = 4.70E-13*exp( 1220./t) (461) - PHENO_NO2 (312) PHENO + NO2 -> NDEP rate = 2.10E-12 (462) - PHENO_O3 (313) PHENO + O3 -> C6H5O2 rate = 2.80E-13 (463) - PHENOOH_OH (314) PHENOOH + OH -> PHENO2 rate = 3.80E-12*exp( 200./t) (464) - tag_ACBZO2_NO2 (315) ACBZO2 + NO2 + M -> PBZNIT + M troe : ko=9.70E-29*(300/t)**5.60 (465) + PHENO2_HO2 (313) PHENO2 + HO2 -> PHENOOH rate = 7.50E-13*exp( 700./t) (463) + PHENO2_NO (314) PHENO2 + NO -> HO2 + 0.7*GLYOXAL + NO2 rate = 2.60E-12*exp( 365./t) (464) + PHENOL_OH (315) PHENOL + OH -> 0.14*PHENO2 + 0.8*HO2 + 0.06*PHENO rate = 4.70E-13*exp( 1220./t) (465) + PHENO_NO2 (316) PHENO + NO2 -> NDEP rate = 2.10E-12 (466) + PHENO_O3 (317) PHENO + O3 -> C6H5O2 rate = 2.80E-13 (467) + PHENOOH_OH (318) PHENOOH + OH -> PHENO2 rate = 3.80E-12*exp( 200./t) (468) + tag_ACBZO2_NO2 (319) ACBZO2 + NO2 + M -> PBZNIT + M troe : ko=9.70E-29*(300/t)**5.60 (469) ki=9.30E-12*(300/t)**1.50 f=0.60 - TOLO2_HO2 (316) TOLO2 + HO2 -> TOLOOH rate = 7.50E-13*exp( 700./t) (466) - TOLO2_NO (317) TOLO2 + NO -> NO2 + 0.6*GLYOXAL + 0.4*CH3COCHO + HO2 + 0.2*BIGALD1 rate = 2.60E-12*exp( 365./t) (467) + TOLO2_HO2 (320) TOLO2 + HO2 -> TOLOOH rate = 7.50E-13*exp( 700./t) (470) + TOLO2_NO (321) TOLO2 + NO -> NO2 + 0.6*GLYOXAL + 0.4*CH3COCHO + HO2 + 0.2*BIGALD1 rate = 2.60E-12*exp( 365./t) (471) + 0.2*BIGALD2 + 0.2*BIGALD3 - TOLOOH_OH (318) TOLOOH + OH -> TOLO2 rate = 3.80E-12*exp( 200./t) (468) - TOLUENE_OH (319) TOLUENE + OH -> 0.18*CRESOL + 0.1*TEPOMUC + 0.07*BZOO + 0.65*TOLO2 rate = 1.70E-12*exp( 352./t) (469) + TOLOOH_OH (322) TOLOOH + OH -> TOLO2 rate = 3.80E-12*exp( 200./t) (472) + TOLUENE_OH (323) TOLUENE + OH -> 0.18*CRESOL + 0.1*TEPOMUC + 0.07*BZOO + 0.65*TOLO2 rate = 1.70E-12*exp( 352./t) (473) + 0.28*HO2 - usr_PBZNIT_M (320) PBZNIT + M -> ACBZO2 + NO2 + M rate = ** User defined ** (470) - XYLENES_OH (321) XYLENES + OH -> 0.15*XYLOL + 0.23*TEPOMUC + 0.06*BZOO rate = 1.70E-11 (471) + usr_PBZNIT_M (324) PBZNIT + M -> ACBZO2 + NO2 + M rate = ** User defined ** (474) + XYLENES_OH (325) XYLENES + OH -> 0.15*XYLOL + 0.23*TEPOMUC + 0.06*BZOO rate = 1.70E-11 (475) + 0.56*XYLENO2 + 0.38*HO2 - XYLENO2_HO2 (322) XYLENO2 + HO2 -> XYLENOOH rate = 7.50E-13*exp( 700./t) (472) - XYLENO2_NO (323) XYLENO2 + NO -> NO2 + HO2 + 0.34*GLYOXAL + 0.54*CH3COCHO rate = 2.60E-12*exp( 365./t) (473) + XYLENO2_HO2 (326) XYLENO2 + HO2 -> XYLENOOH rate = 7.50E-13*exp( 700./t) (476) + XYLENO2_NO (327) XYLENO2 + NO -> NO2 + HO2 + 0.34*GLYOXAL + 0.54*CH3COCHO rate = 2.60E-12*exp( 365./t) (477) + 0.06*BIGALD1 + 0.2*BIGALD2 + 0.15*BIGALD3 + 0.21*BIGALD4 - XYLENOOH_OH (324) XYLENOOH + OH -> XYLENO2 rate = 3.80E-12*exp( 200./t) (474) - XYLOLO2_HO2 (325) XYLOLO2 + HO2 -> XYLOLOOH rate = 7.50E-13*exp( 700./t) (475) - XYLOLO2_NO (326) XYLOLO2 + NO -> HO2 + NO2 + 0.17*GLYOXAL + 0.51*CH3COCHO rate = 2.60E-12*exp( 365./t) (476) - XYLOL_OH (327) XYLOL + OH -> 0.3*XYLOLO2 + 0.63*HO2 + 0.07*PHENO rate = 8.40E-11 (477) - XYLOLOOH_OH (328) XYLOLOOH + OH -> XYLOLO2 rate = 3.80E-12*exp( 200./t) (478) - BCARY_NO3 (329) BCARY + NO3 -> NTERPO2 rate = 1.90E-11 (479) - BCARY_O3 (330) BCARY + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 1.20E-14 (480) + XYLENOOH_OH (328) XYLENOOH + OH -> XYLENO2 rate = 3.80E-12*exp( 200./t) (478) + XYLOLO2_HO2 (329) XYLOLO2 + HO2 -> XYLOLOOH rate = 7.50E-13*exp( 700./t) (479) + XYLOLO2_NO (330) XYLOLO2 + NO -> HO2 + NO2 + 0.17*GLYOXAL + 0.51*CH3COCHO rate = 2.60E-12*exp( 365./t) (480) + XYLOL_OH (331) XYLOL + OH -> 0.3*XYLOLO2 + 0.63*HO2 + 0.07*PHENO rate = 8.40E-11 (481) + XYLOLOOH_OH (332) XYLOLOOH + OH -> XYLOLO2 rate = 3.80E-12*exp( 200./t) (482) + BCARY_NO3 (333) BCARY + NO3 -> NTERPO2 rate = 1.90E-11 (483) + BCARY_O3 (334) BCARY + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 1.20E-14 (484) + 0.23*CO + 0.27*CO2 + 0.52*CH3COCH3 + 0.34*CH2O + 0.1*BIGALD + 0.05*HCOOH + 0.05*BIGALK + 0.06*CH3CO3 + 0.06*RO2 - BCARY_OH (331) BCARY + OH -> TERPO2 rate = 2.00E-10 (481) - MTERP_NO3 (332) MTERP + NO3 -> NTERPO2 rate = 1.20E-12*exp( 490./t) (482) - MTERP_O3 (333) MTERP + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 6.30E-16*exp( -580./t) (483) + BCARY_OH (335) BCARY + OH -> TERPO2 rate = 2.00E-10 (485) + MTERP_NO3 (336) MTERP + NO3 -> NTERPO2 rate = 1.20E-12*exp( 490./t) (486) + MTERP_O3 (337) MTERP + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 6.30E-16*exp( -580./t) (487) + 0.23*CO + 0.27*CO2 + 0.52*CH3COCH3 + 0.34*CH2O + 0.1*BIGALD + 0.05*HCOOH + 0.05*BIGALK + 0.06*CH3CO3 + 0.06*RO2 - MTERP_OH (334) MTERP + OH -> TERPO2 rate = 1.20E-11*exp( 440./t) (484) - NTERPO2_CH3O2 (335) NTERPO2 + CH3O2 -> 0.5*TERPNIT + 0.75*CH2O + 0.25*CH3OH + 0.5*HO2 rate = 2.00E-12*exp( 500./t) (485) + MTERP_OH (338) MTERP + OH -> TERPO2 rate = 1.20E-11*exp( 440./t) (488) + NTERPO2_CH3O2 (339) NTERPO2 + CH3O2 -> 0.5*TERPNIT + 0.75*CH2O + 0.25*CH3OH + 0.5*HO2 rate = 2.00E-12*exp( 500./t) (489) + 0.5*TERPROD1 + 0.5*NO2 - NTERPO2_HO2 (336) NTERPO2 + HO2 -> NTERPOOH rate = 7.50E-13*exp( 700./t) (486) - NTERPO2_NO (337) NTERPO2 + NO -> 0.2*TERPNIT + 1.6*NO2 + 0.8*TERPROD1 + 0.2*NDEP rate = 4.20E-12*exp( 180./t) (487) - NTERPO2_NO3 (338) NTERPO2 + NO3 -> 2*NO2 + TERPROD1 rate = 2.40E-12 (488) - NTERPOOH_OH (339) NTERPOOH + OH -> NTERPO2 rate = 2.00E-11 (489) - TERP2O2_CH3O2 (340) TERP2O2 + CH3O2 -> TERPROD2 + 0.93*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (490) + NTERPO2_HO2 (340) NTERPO2 + HO2 -> NTERPOOH rate = 7.50E-13*exp( 700./t) (490) + NTERPO2_NO (341) NTERPO2 + NO -> 0.2*TERPNIT + 1.6*NO2 + 0.8*TERPROD1 + 0.2*NDEP rate = 4.20E-12*exp( 180./t) (491) + NTERPO2_NO3 (342) NTERPO2 + NO3 -> 2*NO2 + TERPROD1 rate = 2.40E-12 (492) + NTERPOOH_OH (343) NTERPOOH + OH -> NTERPO2 rate = 2.00E-11 (493) + TERP2O2_CH3O2 (344) TERP2O2 + CH3O2 -> TERPROD2 + 0.93*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (494) + 0.5*CO2 + 0.125*CO + 0.125*GLYALD + 0.15*CH3COCH3 - TERP2O2_HO2 (341) TERP2O2 + HO2 -> TERP2OOH rate = 7.50E-13*exp( 700./t) (491) - TERP2O2_NO (342) TERP2O2 + NO -> 0.1*ONITR + 0.9*NO2 + 0.34*CH2O + 0.27*CH3COCH3 rate = 4.20E-12*exp( 180./t) (492) + TERP2O2_HO2 (345) TERP2O2 + HO2 -> TERP2OOH rate = 7.50E-13*exp( 700./t) (495) + TERP2O2_NO (346) TERP2O2 + NO -> 0.1*ONITR + 0.9*NO2 + 0.34*CH2O + 0.27*CH3COCH3 rate = 4.20E-12*exp( 180./t) (496) + 0.225*CO + 0.9*CO2 + 0.9*TERPROD2 + 0.9*HO2 + 0.225*GLYALD - TERP2OOH_OH (343) TERP2OOH + OH -> TERP2O2 rate = 2.30E-11 (493) - TERPNIT_OH (344) TERPNIT + OH -> NO2 + TERPROD1 rate = 2.00E-11 (494) - TERPO2_CH3O2 (345) TERPO2 + CH3O2 -> TERPROD1 + 0.95*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (495) + TERP2OOH_OH (347) TERP2OOH + OH -> TERP2O2 rate = 2.30E-11 (497) + TERPNIT_OH (348) TERPNIT + OH -> NO2 + TERPROD1 rate = 2.00E-11 (498) + TERPO2_CH3O2 (349) TERPO2 + CH3O2 -> TERPROD1 + 0.95*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (499) + 0.025*CH3COCH3 - TERPO2_HO2 (346) TERPO2 + HO2 -> TERPOOH rate = 7.50E-13*exp( 700./t) (496) - TERPO2_NO (347) TERPO2 + NO -> 0.2*TERPNIT + 0.8*NO2 + 0.32*CH2O + 0.04*CH3COCH3 rate = 4.20E-12*exp( 180./t) (497) + TERPO2_HO2 (350) TERPO2 + HO2 -> TERPOOH rate = 7.50E-13*exp( 700./t) (500) + TERPO2_NO (351) TERPO2 + NO -> 0.2*TERPNIT + 0.8*NO2 + 0.32*CH2O + 0.04*CH3COCH3 rate = 4.20E-12*exp( 180./t) (501) + 0.8*TERPROD1 + 0.8*HO2 - TERPOOH_OH (348) TERPOOH + OH -> TERPO2 rate = 3.30E-11 (498) - TERPROD1_NO3 (349) TERPROD1 + NO3 -> 0.5*TERP2O2 + 0.5*NTERPO2 + 0.5*NDEP rate = 1.00E-12 (499) - TERPROD1_OH (350) TERPROD1 + OH -> TERP2O2 rate = 5.70E-11 (500) - TERPROD2_OH (351) TERPROD2 + OH -> 0.15*RO2 + 0.68*CH2O + 1.8*CO2 + 0.5*CH3COCH3 rate = 3.40E-11 (501) + TERPOOH_OH (352) TERPOOH + OH -> TERPO2 rate = 3.30E-11 (502) + TERPROD1_NO3 (353) TERPROD1 + NO3 -> 0.5*TERP2O2 + 0.5*NTERPO2 + 0.5*NDEP rate = 1.00E-12 (503) + TERPROD1_OH (354) TERPROD1 + OH -> TERP2O2 rate = 5.70E-11 (504) + TERPROD2_OH (355) TERPROD2 + OH -> 0.15*RO2 + 0.68*CH2O + 1.8*CO2 + 0.5*CH3COCH3 rate = 3.40E-11 (505) + 0.65*CH3CO3 + 0.2*HO2 + 0.7*CO - DMS_NO3 (352) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (502) - DMS_OHa (353) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (503) - OCS_O (354) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (504) - OCS_OH (355) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (505) - S_O2 (356) S + O2 -> SO + O rate = 2.30E-12 (506) - SO2_OH_M (357) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (507) + DMS_NO3 (356) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (506) + DMS_OHa (357) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (507) + OCS_O (358) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (508) + OCS_OH (359) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (509) + S_O2 (360) S + O2 -> SO + O rate = 2.30E-12 (510) + SO2_OH_M (361) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (511) ki=1.70E-12*(300/t)**-0.20 f=0.60 - S_O3 (358) S + O3 -> SO + O2 rate = 1.20E-11 (508) - SO_BRO (359) SO + BRO -> SO2 + BR rate = 5.70E-11 (509) - SO_CLO (360) SO + CLO -> SO2 + CL rate = 2.80E-11 (510) - S_OH (361) S + OH -> SO + H rate = 6.60E-11 (511) - SO_NO2 (362) SO + NO2 -> SO2 + NO rate = 1.40E-11 (512) - SO_O2 (363) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (513) - SO_O3 (364) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (514) - SO_OCLO (365) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (515) - SO_OH (366) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (516) - usr_DMS_OH (367) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (517) - usr_SO3_H2O (368) SO3 + H2O -> H2SO4 rate = ** User defined ** (518) - NH3_OH (369) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (519) - usr_GLYOXAL_aer (370) GLYOXAL -> SOAG0 rate = ** User defined ** (520) - usr_HO2_aer (371) HO2 -> H2O rate = ** User defined ** (521) - usr_HONITR_aer (372) HONITR -> HNO3 rate = ** User defined ** (522) - usr_ISOPNITA_aer (373) ISOPNITA -> HNO3 rate = ** User defined ** (523) - usr_ISOPNITB_aer (374) ISOPNITB -> HNO3 rate = ** User defined ** (524) - usr_N2O5_aer (375) N2O5 -> 2*HNO3 rate = ** User defined ** (525) - usr_NC4CH2OH_aer (376) NC4CH2OH -> HNO3 rate = ** User defined ** (526) - usr_NC4CHO_aer (377) NC4CHO -> HNO3 rate = ** User defined ** (527) - usr_NH4_strat_ta (378) NH4 -> NHDEP rate = 6.34E-08 (528) - usr_NO2_aer (379) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (529) - usr_NO3_aer (380) NO3 -> HNO3 rate = ** User defined ** (530) - usr_NTERPOOH_aer (381) NTERPOOH -> HNO3 rate = ** User defined ** (531) - usr_ONITR_aer (382) ONITR -> HNO3 rate = ** User defined ** (532) - usr_TERPNIT_aer (383) TERPNIT -> HNO3 rate = ** User defined ** (533) - BCARY_NO3_vbs (384) BCARY + NO3 -> BCARY + NO3 + 0.17493*SOAG3 + 0.59019*SOAG4 rate = 1.90E-11 (534) - BCARYO2_HO2_vbs (385) BCARYO2VBS + HO2 -> HO2 + 0.2202*SOAG0 + 0.2067*SOAG1 rate = 2.75E-13*exp( 1300./t) (535) + S_O3 (362) S + O3 -> SO + O2 rate = 1.20E-11 (512) + SO_BRO (363) SO + BRO -> SO2 + BR rate = 5.70E-11 (513) + SO_CLO (364) SO + CLO -> SO2 + CL rate = 2.80E-11 (514) + S_OH (365) S + OH -> SO + H rate = 6.60E-11 (515) + SO_NO2 (366) SO + NO2 -> SO2 + NO rate = 1.40E-11 (516) + SO_O2 (367) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (517) + SO_O3 (368) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (518) + SO_OCLO (369) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (519) + SO_OH (370) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (520) + usr_DMS_OH (371) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (521) + usr_SO3_H2O (372) SO3 + H2O -> H2SO4 rate = ** User defined ** (522) + NH3_OH (373) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (523) + usr_GLYOXAL_aer (374) GLYOXAL -> SOAG0 rate = ** User defined ** (524) + usr_HO2_aer (375) HO2 -> H2O rate = ** User defined ** (525) + usr_HONITR_aer (376) HONITR -> HNO3 rate = ** User defined ** (526) + usr_ISOPNITA_aer (377) ISOPNITA -> HNO3 rate = ** User defined ** (527) + usr_ISOPNITB_aer (378) ISOPNITB -> HNO3 rate = ** User defined ** (528) + usr_N2O5_aer (379) N2O5 -> 2*HNO3 rate = ** User defined ** (529) + usr_NC4CH2OH_aer (380) NC4CH2OH -> HNO3 rate = ** User defined ** (530) + usr_NC4CHO_aer (381) NC4CHO -> HNO3 rate = ** User defined ** (531) + usr_NH4_strat_ta (382) NH4 -> NHDEP rate = 6.34E-08 (532) + usr_NO2_aer (383) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (533) + usr_NO3_aer (384) NO3 -> HNO3 rate = ** User defined ** (534) + usr_NTERPOOH_aer (385) NTERPOOH -> HNO3 rate = ** User defined ** (535) + usr_ONITR_aer (386) ONITR -> HNO3 rate = ** User defined ** (536) + usr_TERPNIT_aer (387) TERPNIT -> HNO3 rate = ** User defined ** (537) + BCARY_NO3_vbs (388) BCARY + NO3 -> BCARY + NO3 + 0.17493*SOAG3 + 0.59019*SOAG4 rate = 1.90E-11 (538) + BCARYO2_HO2_vbs (389) BCARYO2VBS + HO2 -> HO2 + 0.2202*SOAG0 + 0.2067*SOAG1 rate = 2.75E-13*exp( 1300./t) (539) + 0.0653*SOAG2 + 0.1284*SOAG3 + 0.114*SOAG4 - BCARYO2_NO_vbs (386) BCARYO2VBS + NO -> NO + 0.1279*SOAG0 + 0.1792*SOAG1 + 0.0676*SOAG2 rate = 2.70E-12*exp( 360./t) (536) + BCARYO2_NO_vbs (390) BCARYO2VBS + NO -> NO + 0.1279*SOAG0 + 0.1792*SOAG1 + 0.0676*SOAG2 rate = 2.70E-12*exp( 360./t) (540) + 0.079*SOAG3 + 0.1254*SOAG4 - BCARY_O3_vbs (387) BCARY + O3 -> BCARY + O3 + 0.2202*SOAG0 + 0.2067*SOAG1 rate = 1.20E-14 (537) + BCARY_O3_vbs (391) BCARY + O3 -> BCARY + O3 + 0.2202*SOAG0 + 0.2067*SOAG1 rate = 1.20E-14 (541) + 0.0653*SOAG2 + 0.1284*SOAG3 + 0.114*SOAG4 - BCARY_OH_vbs (388) BCARY + OH -> BCARY + OH + BCARYO2VBS rate = 2.00E-10 (538) - BENZENE_OH_vbs (389) BENZENE + OH -> BENZENE + OH + BENZO2VBS rate = 2.30E-12*exp( -193./t) (539) - BENZO2_HO2_vbs (390) BENZO2VBS + HO2 -> HO2 + 0.0023*SOAG0 + 0.0008*SOAG1 + 0.0843*SOAG2 rate = 7.50E-13*exp( 700./t) (540) + BCARY_OH_vbs (392) BCARY + OH -> BCARY + OH + BCARYO2VBS rate = 2.00E-10 (542) + BENZENE_OH_vbs (393) BENZENE + OH -> BENZENE + OH + BENZO2VBS rate = 2.30E-12*exp( -193./t) (543) + BENZO2_HO2_vbs (394) BENZO2VBS + HO2 -> HO2 + 0.0023*SOAG0 + 0.0008*SOAG1 + 0.0843*SOAG2 rate = 7.50E-13*exp( 700./t) (544) + 0.0443*SOAG3 + 0.1621*SOAG4 - BENZO2_NO_vbs (391) BENZO2VBS + NO -> NO + 0.0097*SOAG0 + 0.0034*SOAG1 + 0.1579*SOAG2 rate = 2.60E-12*exp( 365./t) (541) + BENZO2_NO_vbs (395) BENZO2VBS + NO -> NO + 0.0097*SOAG0 + 0.0034*SOAG1 + 0.1579*SOAG2 rate = 2.60E-12*exp( 365./t) (545) + 0.0059*SOAG3 + 0.0536*SOAG4 - ISOP_NO3_vbs (392) ISOP + NO3 -> ISOP + NO3 + 0.059024*SOAG3 + 0.025024*SOAG4 rate = 3.03E-12*exp( -446./t) (542) - ISOPO2_HO2_vbs (393) ISOPO2VBS + HO2 -> HO2 + 0.0031*SOAG0 + 0.0035*SOAG1 + 0.0003*SOAG2 rate = 2.12E-13*exp( 1300./t) (543) + ISOP_NO3_vbs (396) ISOP + NO3 -> ISOP + NO3 + 0.059024*SOAG3 + 0.025024*SOAG4 rate = 3.03E-12*exp( -446./t) (546) + ISOPO2_HO2_vbs (397) ISOPO2VBS + HO2 -> HO2 + 0.0031*SOAG0 + 0.0035*SOAG1 + 0.0003*SOAG2 rate = 2.12E-13*exp( 1300./t) (547) + 0.0271*SOAG3 + 0.0474*SOAG4 - ISOPO2_NO_vbs (394) ISOPO2VBS + NO -> NO + 0.0003*SOAG0 + 0.0003*SOAG1 + 0.0073*SOAG2 rate = 2.70E-12*exp( 350./t) (544) + ISOPO2_NO_vbs (398) ISOPO2VBS + NO -> NO + 0.0003*SOAG0 + 0.0003*SOAG1 + 0.0073*SOAG2 rate = 2.70E-12*exp( 350./t) (548) + 0.0057*SOAG3 + 0.0623*SOAG4 - ISOP_O3_vbs (395) ISOP + O3 -> ISOP + O3 + 0.0033*SOAG3 rate = 1.05E-14*exp( -2000./t) (545) - ISOP_OH_vbs (396) ISOP + OH -> ISOP + OH + ISOPO2VBS rate = 2.54E-11*exp( 410./t) (546) - IVOCO2_HO2_vbs (397) IVOCO2VBS + HO2 -> HO2 + 0.2381*SOAG0 + 0.1308*SOAG1 + 0.0348*SOAG2 rate = 7.50E-13*exp( 700./t) (547) + ISOP_O3_vbs (399) ISOP + O3 -> ISOP + O3 + 0.0033*SOAG3 rate = 1.05E-14*exp( -2000./t) (549) + ISOP_OH_vbs (400) ISOP + OH -> ISOP + OH + ISOPO2VBS rate = 2.54E-11*exp( 410./t) (550) + IVOCO2_HO2_vbs (401) IVOCO2VBS + HO2 -> HO2 + 0.2381*SOAG0 + 0.1308*SOAG1 + 0.0348*SOAG2 rate = 7.50E-13*exp( 700./t) (551) + 0.0076*SOAG3 + 0.0113*SOAG4 - IVOCO2_NO_vbs (398) IVOCO2VBS + NO -> NO + 0.1056*SOAG0 + 0.1026*SOAG1 + 0.0521*SOAG2 rate = 2.60E-12*exp( 365./t) (548) + IVOCO2_NO_vbs (402) IVOCO2VBS + NO -> NO + 0.1056*SOAG0 + 0.1026*SOAG1 + 0.0521*SOAG2 rate = 2.60E-12*exp( 365./t) (552) + 0.0143*SOAG3 + 0.0166*SOAG4 - IVOC_OH_vbs (399) IVOC + OH -> OH + IVOCO2VBS rate = 1.34E-11 (549) - MTERP_NO3_vbs (400) MTERP + NO3 -> MTERP + NO3 + 0.17493*SOAG3 + 0.59019*SOAG4 rate = 1.20E-12*exp( 490./t) (550) - MTERPO2_HO2_vbs (401) MTERPO2VBS + HO2 -> HO2 + 0.0508*SOAG0 + 0.1149*SOAG1 rate = 2.60E-13*exp( 1300./t) (551) + IVOC_OH_vbs (403) IVOC + OH -> OH + IVOCO2VBS rate = 1.34E-11 (553) + MTERP_NO3_vbs (404) MTERP + NO3 -> MTERP + NO3 + 0.17493*SOAG3 + 0.59019*SOAG4 rate = 1.20E-12*exp( 490./t) (554) + MTERPO2_HO2_vbs (405) MTERPO2VBS + HO2 -> HO2 + 0.0508*SOAG0 + 0.1149*SOAG1 rate = 2.60E-13*exp( 1300./t) (555) + 0.0348*SOAG2 + 0.0554*SOAG3 + 0.1278*SOAG4 - MTERPO2_NO_vbs (402) MTERPO2VBS + NO -> NO + 0.0245*SOAG0 + 0.0082*SOAG1 + 0.0772*SOAG2 rate = 2.70E-12*exp( 360./t) (552) + MTERPO2_NO_vbs (406) MTERPO2VBS + NO -> NO + 0.0245*SOAG0 + 0.0082*SOAG1 + 0.0772*SOAG2 rate = 2.70E-12*exp( 360./t) (556) + 0.0332*SOAG3 + 0.13*SOAG4 - MTERP_O3_vbs (403) MTERP + O3 -> MTERP + O3 + 0.0508*SOAG0 + 0.1149*SOAG1 rate = 6.30E-16*exp( -580./t) (553) + MTERP_O3_vbs (407) MTERP + O3 -> MTERP + O3 + 0.0508*SOAG0 + 0.1149*SOAG1 rate = 6.30E-16*exp( -580./t) (557) + 0.0348*SOAG2 + 0.0554*SOAG3 + 0.1278*SOAG4 - MTERP_OH_vbs (404) MTERP + OH -> MTERP + OH + MTERPO2VBS rate = 1.20E-11*exp( 440./t) (554) - SVOC_OH (405) SVOC + OH -> OH + 0.5931*SOAG0 + 0.1534*SOAG1 + 0.0459*SOAG2 rate = 1.34E-11 (555) + MTERP_OH_vbs (408) MTERP + OH -> MTERP + OH + MTERPO2VBS rate = 1.20E-11*exp( 440./t) (558) + SVOC_OH (409) SVOC + OH -> OH + 0.5931*SOAG0 + 0.1534*SOAG1 + 0.0459*SOAG2 rate = 1.34E-11 (559) + 0.0085*SOAG3 + 0.0128*SOAG4 - TOLUENE_OH_vbs (406) TOLUENE + OH -> TOLUENE + OH + TOLUO2VBS rate = 1.70E-12*exp( 352./t) (556) - TOLUO2_HO2_vbs (407) TOLUO2VBS + HO2 -> HO2 + 0.1364*SOAG0 + 0.0101*SOAG1 + 0.0763*SOAG2 rate = 7.50E-13*exp( 700./t) (557) + TOLUENE_OH_vbs (410) TOLUENE + OH -> TOLUENE + OH + TOLUO2VBS rate = 1.70E-12*exp( 352./t) (560) + TOLUO2_HO2_vbs (411) TOLUO2VBS + HO2 -> HO2 + 0.1364*SOAG0 + 0.0101*SOAG1 + 0.0763*SOAG2 rate = 7.50E-13*exp( 700./t) (561) + 0.2157*SOAG3 + 0.0738*SOAG4 - TOLUO2_NO_vbs (408) TOLUO2VBS + NO -> NO + 0.0154*SOAG0 + 0.0452*SOAG1 + 0.0966*SOAG2 rate = 2.60E-12*exp( 365./t) (558) + TOLUO2_NO_vbs (412) TOLUO2VBS + NO -> NO + 0.0154*SOAG0 + 0.0452*SOAG1 + 0.0966*SOAG2 rate = 2.60E-12*exp( 365./t) (562) + 0.0073*SOAG3 + 0.238*SOAG4 - XYLENES_OH_vbs (409) XYLENES + OH -> XYLENES + OH + XYLEO2VBS rate = 1.70E-11 (559) - XYLEO2_HO2_vbs (410) XYLEO2VBS + HO2 -> HO2 + 0.1677*SOAG0 + 0.0174*SOAG1 + 0.086*SOAG2 rate = 7.50E-13*exp( 700./t) (560) + XYLENES_OH_vbs (413) XYLENES + OH -> XYLENES + OH + XYLEO2VBS rate = 1.70E-11 (563) + XYLEO2_HO2_vbs (414) XYLEO2VBS + HO2 -> HO2 + 0.1677*SOAG0 + 0.0174*SOAG1 + 0.086*SOAG2 rate = 7.50E-13*exp( 700./t) (564) + 0.0512*SOAG3 + 0.1598*SOAG4 - XYLEO2_NO_vbs (411) XYLEO2VBS + NO -> NO + 0.0063*SOAG0 + 0.0237*SOAG1 + 0.0025*SOAG2 rate = 2.60E-12*exp( 365./t) (561) + XYLEO2_NO_vbs (415) XYLEO2VBS + NO -> NO + 0.0063*SOAG0 + 0.0237*SOAG1 + 0.0025*SOAG2 rate = 2.60E-12*exp( 365./t) (565) + 0.011*SOAG3 + 0.1185*SOAG4 - het1 (412) N2O5 -> 2*HNO3 rate = ** User defined ** (562) - het10 (413) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (563) - het11 (414) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (564) - het12 (415) N2O5 -> 2*HNO3 rate = ** User defined ** (565) - het13 (416) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (566) - het14 (417) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (567) - het15 (418) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (568) - het16 (419) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (569) - het17 (420) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (570) - het2 (421) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (571) - het3 (422) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (572) - het4 (423) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (573) - het5 (424) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (574) - het6 (425) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (575) - het7 (426) N2O5 -> 2*HNO3 rate = ** User defined ** (576) - het8 (427) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (577) - het9 (428) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (578) - elec1 (429) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (579) - elec2 (430) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (580) - elec3 (431) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (581) - ion_N2p_O2 (432) N2p + O2 -> O2p + N2 rate = 6.00E-11 (582) - ion_N2p_Oa (433) N2p + O -> NOp + N2D rate = ** User defined ** (583) - ion_N2p_Ob (434) N2p + O -> Op + N2 rate = ** User defined ** (584) - ion_Np_O (435) Np + O -> Op + N rate = 1.00E-12 (585) - ion_Np_O2a (436) Np + O2 -> O2p + N rate = 4.00E-10 (586) - ion_Np_O2b (437) Np + O2 -> NOp + O rate = 2.00E-10 (587) - ion_O2p_N (438) O2p + N -> NOp + O rate = 1.00E-10 (588) - ion_O2p_N2 (439) O2p + N2 -> NOp + NO rate = 5.00E-16 (589) - ion_O2p_NO (440) O2p + NO -> NOp + O2 rate = 4.40E-10 (590) - ion_Op_CO2 (441) Op + CO2 -> O2p + CO rate = 9.00E-10 (591) - ion_Op_N2 (442) Op + N2 -> NOp + N rate = ** User defined ** (592) - ion_Op_O2 (443) Op + O2 -> O2p + O rate = ** User defined ** (593) - E90_tau (444) E90 -> {sink} rate = 1.29E-07 (594) - NH_50_tau (445) NH_50 -> (No products) rate = 2.31E-07 (595) - NH_5_tau (446) NH_5 -> (No products) rate = 2.31E-06 (596) - ST80_25_tau (447) ST80_25 -> (No products) rate = 4.63E-07 (597) + het1 (416) N2O5 -> 2*HNO3 rate = ** User defined ** (566) + het10 (417) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (567) + het11 (418) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (568) + het12 (419) N2O5 -> 2*HNO3 rate = ** User defined ** (569) + het13 (420) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (570) + het14 (421) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (571) + het15 (422) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (572) + het16 (423) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (573) + het17 (424) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (574) + het2 (425) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (575) + het3 (426) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (576) + het4 (427) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (577) + het5 (428) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (578) + het6 (429) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (579) + het7 (430) N2O5 -> 2*HNO3 rate = ** User defined ** (580) + het8 (431) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (581) + het9 (432) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (582) + elec1 (433) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (583) + elec2 (434) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (584) + elec3 (435) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (585) + ion_N2p_O2 (436) N2p + O2 -> O2p + N2 rate = 6.00E-11 (586) + ion_N2p_Oa (437) N2p + O -> NOp + N2D rate = ** User defined ** (587) + ion_N2p_Ob (438) N2p + O -> Op + N2 rate = ** User defined ** (588) + ion_Np_O (439) Np + O -> Op + N rate = 1.00E-12 (589) + ion_Np_O2a (440) Np + O2 -> O2p + N rate = 4.00E-10 (590) + ion_Np_O2b (441) Np + O2 -> NOp + O rate = 2.00E-10 (591) + ion_O2p_N (442) O2p + N -> NOp + O rate = 1.00E-10 (592) + ion_O2p_N2 (443) O2p + N2 -> NOp + NO rate = 5.00E-16 (593) + ion_O2p_NO (444) O2p + NO -> NOp + O2 rate = 4.40E-10 (594) + ion_Op_CO2 (445) Op + CO2 -> O2p + CO rate = 9.00E-10 (595) + ion_Op_N2 (446) Op + N2 -> NOp + N rate = ** User defined ** (596) + ion_Op_O2 (447) Op + O2 -> O2p + O rate = ** User defined ** (597) + E90_tau (448) E90 -> {sink} rate = 1.29E-07 (598) + NH_50_tau (449) NH_50 -> (No products) rate = 2.31E-07 (599) + NH_5_tau (450) NH_5 -> (No products) rate = 2.31E-06 (600) + ST80_25_tau (451) ST80_25 -> (No products) rate = 4.63E-07 (601) Extraneous prod/loss species ( 1) CO (dataset) @@ -1241,401 +1245,399 @@ Extraneous prod/loss species ( 7) num_a2 (dataset) ( 8) so4_a1 (dataset) ( 9) so4_a2 (dataset) - (10) num_a5 (dataset) - (11) so4_a5 (dataset) - (12) num_a4 (dataset) - (13) pom_a4 (dataset) - (14) bc_a4 (dataset) - (15) O2p - (16) N2p - (17) N2D - (18) AOA_NH - (19) N - (20) OH - (21) Op - (22) e + (10) num_a4 (dataset) + (11) pom_a4 (dataset) + (12) bc_a4 (dataset) + (13) O2p + (14) N2p + (15) N2D + (16) AOA_NH + (17) N + (18) OH + (19) Op + (20) e Equation Report - d(ALKNIT)/dt = r249*ALKO2*NO - - j20*ALKNIT - r246*OH*ALKNIT - d(ALKOOH)/dt = r247*ALKO2*HO2 - - j21*ALKOOH - r250*OH*ALKOOH + d(ALKNIT)/dt = r253*ALKO2*NO + - j20*ALKNIT - r250*OH*ALKNIT + d(ALKOOH)/dt = r251*ALKO2*HO2 + - j21*ALKOOH - r254*OH*ALKOOH d(AOA_NH)/dt = 0 d(bc_a1)/dt = 0 d(bc_a4)/dt = 0 - d(BCARY)/dt = - r329*NO3*BCARY - r330*O3*BCARY - r331*OH*BCARY - d(BENZENE)/dt = - r288*OH*BENZENE - d(BENZOOH)/dt = r289*BENZO2*HO2 - - j22*BENZOOH - r291*OH*BENZOOH - d(BEPOMUC)/dt = .12*r288*BENZENE*OH + d(BCARY)/dt = - r333*NO3*BCARY - r334*O3*BCARY - r335*OH*BCARY + d(BENZENE)/dt = - r292*OH*BENZENE + d(BENZOOH)/dt = r293*BENZO2*HO2 + - j22*BENZOOH - r295*OH*BENZOOH + d(BEPOMUC)/dt = .12*r292*BENZENE*OH - j23*BEPOMUC - d(BIGALD)/dt = .1*r330*BCARY*O3 + .1*r333*MTERP*O3 + d(BIGALD)/dt = .1*r334*BCARY*O3 + .1*r337*MTERP*O3 - j24*BIGALD - d(BIGALD1)/dt = .5*j22*BENZOOH + j23*BEPOMUC + .2*j71*TOLOOH + .06*j73*XYLENOOH + .5*r290*BENZO2*NO - + .2*r317*TOLO2*NO + .06*r323*XYLENO2*NO + d(BIGALD1)/dt = .5*j22*BENZOOH + j23*BEPOMUC + .2*j71*TOLOOH + .06*j73*XYLENOOH + .5*r294*BENZO2*NO + + .2*r321*TOLO2*NO + .06*r327*XYLENO2*NO - j25*BIGALD1 - d(BIGALD2)/dt = .2*j71*TOLOOH + .2*j73*XYLENOOH + .2*r317*TOLO2*NO + .2*r323*XYLENO2*NO + d(BIGALD2)/dt = .2*j71*TOLOOH + .2*j73*XYLENOOH + .2*r321*TOLO2*NO + .2*r327*XYLENO2*NO - j26*BIGALD2 - d(BIGALD3)/dt = j47*HPALD + j57*NC4CHO + .2*j71*TOLOOH + .15*j73*XYLENOOH + .2*r317*TOLO2*NO - + .15*r323*XYLENO2*NO + d(BIGALD3)/dt = j47*HPALD + j57*NC4CHO + .2*j71*TOLOOH + .15*j73*XYLENOOH + .2*r321*TOLO2*NO + + .15*r327*XYLENO2*NO - j27*BIGALD3 - d(BIGALD4)/dt = .21*j73*XYLENOOH + .21*r323*XYLENO2*NO + d(BIGALD4)/dt = .21*j73*XYLENOOH + .21*r327*XYLENO2*NO - j28*BIGALD4 - d(BIGALK)/dt = .05*r330*BCARY*O3 + .05*r333*MTERP*O3 - - r251*OH*BIGALK - d(BIGENE)/dt = - r217*NO3*BIGENE - r218*OH*BIGENE + d(BIGALK)/dt = .05*r334*BCARY*O3 + .05*r337*MTERP*O3 + - r255*OH*BIGALK + d(BIGENE)/dt = - r221*NO3*BIGENE - r222*OH*BIGENE d(BR)/dt = j75*BRCL + j76*BRO + j78*BRONO2 + j80*CF2CLBR + j81*CF3BR + 2*j87*CH2BR2 + j88*CH3BR - + 3*j91*CHBR3 + 2*j99*H2402 + j100*HBR + j106*HOBR + r90*O1D*CF2CLBR + 2*r103*BRO*BRO - + r104*BRO*CLO + r105*BRO*CLO + r108*BRO*NO + r111*BRO*O + r112*BRO*OH + r113*HBR*O - + r114*HBR*OH + r116*O1D*CF3BR + 3*r117*O1D*CHBR3 + 2*r118*O1D*H2402 + r119*O1D*HBR - + 2*r127*CH2BR2*CL + 2*r128*CH2BR2*OH + r129*CH3BR*CL + r130*CH3BR*OH + 3*r134*CHBR3*CL - + 3*r135*CHBR3*OH + 2*r139*O1D*CH2BR2 + r140*O1D*CH3BR + r359*SO*BRO - - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR - d(BRCL)/dt = r106*BRO*CLO + r420*HOBR*HCL + r425*HOBR*HCL + + 3*j91*CHBR3 + 2*j99*H2402 + j100*HBR + j106*HOBR + r94*O1D*CF2CLBR + 2*r107*BRO*BRO + + r108*BRO*CLO + r109*BRO*CLO + r112*BRO*NO + r115*BRO*O + r116*BRO*OH + r117*HBR*O + + r118*HBR*OH + r120*O1D*CF3BR + 3*r121*O1D*CHBR3 + 2*r122*O1D*H2402 + r123*O1D*HBR + + 2*r131*CH2BR2*CL + 2*r132*CH2BR2*OH + r133*CH3BR*CL + r134*CH3BR*OH + 3*r138*CHBR3*CL + + 3*r139*CHBR3*OH + 2*r143*O1D*CH2BR2 + r144*O1D*CH3BR + r363*SO*BRO + - r104*CH2O*BR - r105*HO2*BR - r106*O3*BR + d(BRCL)/dt = r110*BRO*CLO + r424*HOBR*HCL + r429*HOBR*HCL - j75*BRCL - d(BRO)/dt = j77*BRONO2 + r102*BR*O3 + r110*BRONO2*O + r115*HOBR*O + r120*O1D*HBR - - j76*BRO - 2*r103*BRO*BRO - r104*CLO*BRO - r105*CLO*BRO - r106*CLO*BRO - r107*HO2*BRO - - r108*NO*BRO - r109*M*NO2*BRO - r111*O*BRO - r112*OH*BRO - r359*SO*BRO - d(BRONO2)/dt = r109*M*BRO*NO2 - - j77*BRONO2 - j78*BRONO2 - r414*BRONO2 - r417*BRONO2 - r422*BRONO2 - r110*O*BRONO2 + d(BRO)/dt = j77*BRONO2 + r106*BR*O3 + r114*BRONO2*O + r119*HOBR*O + r124*O1D*HBR + - j76*BRO - 2*r107*BRO*BRO - r108*CLO*BRO - r109*CLO*BRO - r110*CLO*BRO - r111*HO2*BRO + - r112*NO*BRO - r113*M*NO2*BRO - r115*O*BRO - r116*OH*BRO - r363*SO*BRO + d(BRONO2)/dt = r113*M*BRO*NO2 + - j77*BRONO2 - j78*BRONO2 - r418*BRONO2 - r421*BRONO2 - r426*BRONO2 - r114*O*BRONO2 d(BRY)/dt = 0 - d(BZALD)/dt = j29*BZOOH + r295*BZOO*NO - - r292*OH*BZALD - d(BZOOH)/dt = r293*BZOO*HO2 - - j29*BZOOH - r294*OH*BZOOH - d(C2H2)/dt = - r165*M*CL*C2H2 - r166*M*OH*C2H2 - d(C2H4)/dt = - r167*M*CL*C2H4 - r168*O3*C2H4 - r193*M*OH*C2H4 - d(C2H5OH)/dt = .4*r169*C2H5O2*C2H5O2 + .2*r170*C2H5O2*CH3O2 - - r173*OH*C2H5OH - d(C2H5OOH)/dt = r171*C2H5O2*HO2 - - j30*C2H5OOH - r174*OH*C2H5OOH - d(C2H6)/dt = - r175*CL*C2H6 - r176*OH*C2H6 - d(C3H6)/dt = .7*j56*MVK + .13*r275*ISOP*O3 - - r196*NO3*C3H6 - r197*O3*C3H6 - r215*M*OH*C3H6 - d(C3H7OOH)/dt = r199*C3H7O2*HO2 - - j31*C3H7OOH - r201*OH*C3H7OOH - d(C3H8)/dt = - r202*OH*C3H8 - r205*CL*C3H8 - d(C6H5OOH)/dt = r296*C6H5O2*HO2 - - j32*C6H5OOH - r298*OH*C6H5OOH - d(CCL4)/dt = - j79*CCL4 - r89*O1D*CCL4 - d(CF2CLBR)/dt = - j80*CF2CLBR - r90*O1D*CF2CLBR - d(CF3BR)/dt = - j81*CF3BR - r116*O1D*CF3BR - d(CFC11)/dt = - j82*CFC11 - r91*O1D*CFC11 - d(CFC113)/dt = - j83*CFC113 - r92*O1D*CFC113 - d(CFC114)/dt = - j84*CFC114 - r93*O1D*CFC114 - d(CFC115)/dt = - j85*CFC115 - r94*O1D*CFC115 - d(CFC12)/dt = - j86*CFC12 - r95*O1D*CFC12 - d(CH2BR2)/dt = - j87*CH2BR2 - r127*CL*CH2BR2 - r128*OH*CH2BR2 - r139*O1D*CH2BR2 + d(BZALD)/dt = j29*BZOOH + r299*BZOO*NO + - r296*OH*BZALD + d(BZOOH)/dt = r297*BZOO*HO2 + - j29*BZOOH - r298*OH*BZOOH + d(C2H2)/dt = - r169*M*CL*C2H2 - r170*M*OH*C2H2 + d(C2H4)/dt = - r171*M*CL*C2H4 - r172*O3*C2H4 - r197*M*OH*C2H4 + d(C2H5OH)/dt = .4*r173*C2H5O2*C2H5O2 + .2*r174*C2H5O2*CH3O2 + - r177*OH*C2H5OH + d(C2H5OOH)/dt = r175*C2H5O2*HO2 + - j30*C2H5OOH - r178*OH*C2H5OOH + d(C2H6)/dt = - r179*CL*C2H6 - r180*OH*C2H6 + d(C3H6)/dt = .7*j56*MVK + .13*r279*ISOP*O3 + - r200*NO3*C3H6 - r201*O3*C3H6 - r219*M*OH*C3H6 + d(C3H7OOH)/dt = r203*C3H7O2*HO2 + - j31*C3H7OOH - r205*OH*C3H7OOH + d(C3H8)/dt = - r206*OH*C3H8 - r209*CL*C3H8 + d(C6H5OOH)/dt = r300*C6H5O2*HO2 + - j32*C6H5OOH - r302*OH*C6H5OOH + d(CCL4)/dt = - j79*CCL4 - r93*O1D*CCL4 + d(CF2CLBR)/dt = - j80*CF2CLBR - r94*O1D*CF2CLBR + d(CF3BR)/dt = - j81*CF3BR - r120*O1D*CF3BR + d(CFC11)/dt = - j82*CFC11 - r95*O1D*CFC11 + d(CFC113)/dt = - j83*CFC113 - r96*O1D*CFC113 + d(CFC114)/dt = - j84*CFC114 - r97*O1D*CFC114 + d(CFC115)/dt = - j85*CFC115 - r98*O1D*CFC115 + d(CFC12)/dt = - j86*CFC12 - r99*O1D*CFC12 + d(CH2BR2)/dt = - j87*CH2BR2 - r131*CL*CH2BR2 - r132*OH*CH2BR2 - r143*O1D*CH2BR2 d(CH2O)/dt = .1*j20*ALKNIT + .1*j21*ALKOOH + j39*CH3OOH + .18*j40*CH4 + j44*GLYALD + .33*j46*HONITR + j48*HYAC + j50*ISOPOOH + 1.34*j51*MACR + j58*NOA + j63*POOH + j64*ROOH + .375*j66*TERP2OOH - + .4*j68*TERPOOH + .68*j70*TERPROD2 + r158*HOCH2OO + 2*r188*EO + r71*CLO*CH3O2 - + 2*r148*CH3O2*CH3O2 + r149*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + .3*r153*CH3OOH*OH - + r161*O1D*CH4 + r162*O1D*CH4 + r168*C2H4*O3 + .7*r170*C2H5O2*CH3O2 + r181*CH3CO3*CH3O2 - + .5*r185*CH3COOOH*OH + .5*r187*EO2*NO + .8*r190*GLYALD*OH + r192*PAN*OH + .5*r197*C3H6*O3 - + r198*C3H7O2*CH3O2 + r209*PO2*NO + .8*r211*RO2*CH3O2 + .15*r212*RO2*HO2 + r213*RO2*NO - + .5*r217*BIGENE*NO3 + .5*r219*ENEO2*NO + .25*r222*MACRO2*CH3CO3 + .88*r223*MACRO2*CH3O2 - + .25*r225*MACRO2*NO3 + .25*r226*MACRO2*NO + .12*r228*MACR*O3 + r231*MCO3*CH3CO3 - + 2*r232*MCO3*CH3O2 + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + r235*MCO3*NO + r236*MCO3*NO3 - + .5*r241*M*MPAN*OH + .6*r242*MVK*O3 + .4*r246*ALKNIT*OH + .1*r248*ALKO2*NO - + r255*ISOPAO2*CH3CO3 + 1.5*r256*ISOPAO2*CH3O2 + .92*r258*ISOPAO2*NO + r259*ISOPAO2*NO3 - + .75*r261*ISOPBO2*CH3O2 + .3*r266*ISOPNITA*OH + .8*r270*ISOPNO3*CH3O2 + .91*r275*ISOP*O3 - + .25*r280*XO2*CH3CO3 + .8*r281*XO2*CH3O2 + .25*r283*XO2*NO + .34*r330*BCARY*O3 - + .34*r333*MTERP*O3 + .75*r335*NTERPO2*CH3O2 + .93*r340*TERP2O2*CH3O2 + .34*r342*TERP2O2*NO - + .95*r345*TERPO2*CH3O2 + .32*r347*TERPO2*NO + .68*r351*TERPROD2*OH - - j33*CH2O - j34*CH2O - r64*CL*CH2O - r100*BR*CH2O - r144*HO2*CH2O - r145*NO3*CH2O - - r146*O*CH2O - r147*OH*CH2O - d(CH3BR)/dt = - j88*CH3BR - r129*CL*CH3BR - r130*OH*CH3BR - r140*O1D*CH3BR - d(CH3CCL3)/dt = - j89*CH3CCL3 - r131*OH*CH3CCL3 + + .4*j68*TERPOOH + .68*j70*TERPROD2 + r162*HOCH2OO + 2*r192*EO + r75*CLO*CH3O2 + + 2*r152*CH3O2*CH3O2 + r153*CH3O2*CH3O2 + r155*CH3O2*NO + r156*CH3OH*OH + .3*r157*CH3OOH*OH + + r165*O1D*CH4 + r166*O1D*CH4 + r172*C2H4*O3 + .7*r174*C2H5O2*CH3O2 + r185*CH3CO3*CH3O2 + + .5*r189*CH3COOOH*OH + .5*r191*EO2*NO + .8*r194*GLYALD*OH + r196*PAN*OH + .5*r201*C3H6*O3 + + r202*C3H7O2*CH3O2 + r213*PO2*NO + .8*r215*RO2*CH3O2 + .15*r216*RO2*HO2 + r217*RO2*NO + + .5*r221*BIGENE*NO3 + .5*r223*ENEO2*NO + .25*r226*MACRO2*CH3CO3 + .88*r227*MACRO2*CH3O2 + + .25*r229*MACRO2*NO3 + .25*r230*MACRO2*NO + .12*r232*MACR*O3 + r235*MCO3*CH3CO3 + + 2*r236*MCO3*CH3O2 + .45*r237*MCO3*HO2 + 2*r238*MCO3*MCO3 + r239*MCO3*NO + r240*MCO3*NO3 + + .5*r245*M*MPAN*OH + .6*r246*MVK*O3 + .4*r250*ALKNIT*OH + .1*r252*ALKO2*NO + + r259*ISOPAO2*CH3CO3 + 1.5*r260*ISOPAO2*CH3O2 + .92*r262*ISOPAO2*NO + r263*ISOPAO2*NO3 + + .75*r265*ISOPBO2*CH3O2 + .3*r270*ISOPNITA*OH + .8*r274*ISOPNO3*CH3O2 + .91*r279*ISOP*O3 + + .25*r284*XO2*CH3CO3 + .8*r285*XO2*CH3O2 + .25*r287*XO2*NO + .34*r334*BCARY*O3 + + .34*r337*MTERP*O3 + .75*r339*NTERPO2*CH3O2 + .93*r344*TERP2O2*CH3O2 + .34*r346*TERP2O2*NO + + .95*r349*TERPO2*CH3O2 + .32*r351*TERPO2*NO + .68*r355*TERPROD2*OH + - j33*CH2O - j34*CH2O - r68*CL*CH2O - r104*BR*CH2O - r148*HO2*CH2O - r149*NO3*CH2O + - r150*O*CH2O - r151*OH*CH2O + d(CH3BR)/dt = - j88*CH3BR - r133*CL*CH3BR - r134*OH*CH3BR - r144*O1D*CH3BR + d(CH3CCL3)/dt = - j89*CH3CCL3 - r135*OH*CH3CCL3 d(CH3CHO)/dt = .4*j20*ALKNIT + .4*j21*ALKOOH + j30*C2H5OOH + .33*j46*HONITR + j54*MEKOOH + j63*POOH - + 1.6*r169*C2H5O2*C2H5O2 + .8*r170*C2H5O2*CH3O2 + r172*C2H5O2*NO + r173*C2H5OH*OH - + .5*r174*C2H5OOH*OH + .5*r197*C3H6*O3 + .27*r200*C3H7O2*NO + r209*PO2*NO + r217*BIGENE*NO3 - + r219*ENEO2*NO + .2*r237*MEKO2*HO2 + r238*MEKO2*NO + .1*r242*MVK*O3 + .8*r246*ALKNIT*OH - + .4*r248*ALKO2*NO - - j35*CH3CHO - r177*NO3*CH3CHO - r178*OH*CH3CHO - d(CH3CL)/dt = - j90*CH3CL - r132*CL*CH3CL - r133*OH*CH3CL - d(CH3CN)/dt = - r179*OH*CH3CN + + 1.6*r173*C2H5O2*C2H5O2 + .8*r174*C2H5O2*CH3O2 + r176*C2H5O2*NO + r177*C2H5OH*OH + + .5*r178*C2H5OOH*OH + .5*r201*C3H6*O3 + .27*r204*C3H7O2*NO + r213*PO2*NO + r221*BIGENE*NO3 + + r223*ENEO2*NO + .2*r241*MEKO2*HO2 + r242*MEKO2*NO + .1*r246*MVK*O3 + .8*r250*ALKNIT*OH + + .4*r252*ALKO2*NO + - j35*CH3CHO - r181*NO3*CH3CHO - r182*OH*CH3CHO + d(CH3CL)/dt = - j90*CH3CL - r136*CL*CH3CL - r137*OH*CH3CL + d(CH3CN)/dt = - r183*OH*CH3CN d(CH3COCH3)/dt = .25*j20*ALKNIT + .25*j21*ALKOOH + .82*j31*C3H7OOH + .17*j46*HONITR + .3*j66*TERP2OOH - + .05*j68*TERPOOH + .5*j70*TERPROD2 + .82*r198*C3H7O2*CH3O2 + .82*r200*C3H7O2*NO - + .5*r217*BIGENE*NO3 + .5*r219*ENEO2*NO + .8*r246*ALKNIT*OH + .25*r248*ALKO2*NO - + .52*r330*BCARY*O3 + .52*r333*MTERP*O3 + .15*r340*TERP2O2*CH3O2 + .27*r342*TERP2O2*NO - + .025*r345*TERPO2*CH3O2 + .04*r347*TERPO2*NO + .5*r351*TERPROD2*OH - - j36*CH3COCH3 - r216*OH*CH3COCH3 + + .05*j68*TERPOOH + .5*j70*TERPROD2 + .82*r202*C3H7O2*CH3O2 + .82*r204*C3H7O2*NO + + .5*r221*BIGENE*NO3 + .5*r223*ENEO2*NO + .8*r250*ALKNIT*OH + .25*r252*ALKO2*NO + + .52*r334*BCARY*O3 + .52*r337*MTERP*O3 + .15*r344*TERP2O2*CH3O2 + .27*r346*TERP2O2*NO + + .025*r349*TERPO2*CH3O2 + .04*r351*TERPO2*NO + .5*r355*TERPROD2*OH + - j36*CH3COCH3 - r220*OH*CH3COCH3 d(CH3COCHO)/dt = .18*j24*BIGALD + j28*BIGALD4 + .4*j71*TOLOOH + .54*j73*XYLENOOH + .51*j74*XYLOLOOH - + r206*HYAC*OH + r207*NOA*OH + .5*r211*RO2*CH3O2 + .25*r222*MACRO2*CH3CO3 - + .24*r223*MACRO2*CH3O2 + .25*r225*MACRO2*NO3 + .25*r226*MACRO2*NO + .88*r228*MACR*O3 - + .5*r242*MVK*O3 + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 + .25*r280*XO2*CH3CO3 - + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 + .07*r300*DICARBO2*HO2 - + .17*r301*DICARBO2*NO + .07*r306*MDIALO2*HO2 + .17*r307*MDIALO2*NO + .4*r317*TOLO2*NO - + .54*r323*XYLENO2*NO + .51*r326*XYLOLO2*NO - - j37*CH3COCHO - r203*NO3*CH3COCHO - r204*OH*CH3COCHO - d(CH3COOH)/dt = .1*r181*CH3CO3*CH3O2 + .15*r182*CH3CO3*HO2 + .12*r197*C3H6*O3 + .15*r233*MCO3*HO2 - - r184*OH*CH3COOH - d(CH3COOOH)/dt = .4*r182*CH3CO3*HO2 + .4*r233*MCO3*HO2 - - j38*CH3COOOH - r185*OH*CH3COOOH - d(CH3OH)/dt = r149*CH3O2*CH3O2 + .3*r170*C2H5O2*CH3O2 + .5*r211*RO2*CH3O2 + .25*r223*MACRO2*CH3O2 - + .25*r256*ISOPAO2*CH3O2 + .25*r261*ISOPBO2*CH3O2 + .2*r270*ISOPNO3*CH3O2 + .3*r281*XO2*CH3O2 - + .25*r335*NTERPO2*CH3O2 + .25*r340*TERP2O2*CH3O2 + .25*r345*TERPO2*CH3O2 - - r152*OH*CH3OH - d(CH3OOH)/dt = r150*CH3O2*HO2 - - j39*CH3OOH - r153*OH*CH3OOH - d(CH4)/dt = .1*r197*C3H6*O3 - - j40*CH4 - j41*CH4 - r65*CL*CH4 - r121*F*CH4 - r154*OH*CH4 - r160*O1D*CH4 - r161*O1D*CH4 - - r162*O1D*CH4 - d(CHBR3)/dt = - j91*CHBR3 - r117*O1D*CHBR3 - r134*CL*CHBR3 - r135*OH*CHBR3 + + r210*HYAC*OH + r211*NOA*OH + .5*r215*RO2*CH3O2 + .25*r226*MACRO2*CH3CO3 + + .24*r227*MACRO2*CH3O2 + .25*r229*MACRO2*NO3 + .25*r230*MACRO2*NO + .88*r232*MACR*O3 + + .5*r246*MVK*O3 + .05*r268*ISOPBO2*NO + .05*r269*ISOPBO2*NO3 + .25*r284*XO2*CH3CO3 + + .1*r285*XO2*CH3O2 + .25*r287*XO2*NO + .25*r288*XO2*NO3 + .07*r304*DICARBO2*HO2 + + .17*r305*DICARBO2*NO + .07*r310*MDIALO2*HO2 + .17*r311*MDIALO2*NO + .4*r321*TOLO2*NO + + .54*r327*XYLENO2*NO + .51*r330*XYLOLO2*NO + - j37*CH3COCHO - r207*NO3*CH3COCHO - r208*OH*CH3COCHO + d(CH3COOH)/dt = .1*r185*CH3CO3*CH3O2 + .15*r186*CH3CO3*HO2 + .12*r201*C3H6*O3 + .15*r237*MCO3*HO2 + - r188*OH*CH3COOH + d(CH3COOOH)/dt = .36*r186*CH3CO3*HO2 + .4*r237*MCO3*HO2 + - j38*CH3COOOH - r189*OH*CH3COOOH + d(CH3OH)/dt = r153*CH3O2*CH3O2 + .3*r174*C2H5O2*CH3O2 + .5*r215*RO2*CH3O2 + .25*r227*MACRO2*CH3O2 + + .25*r260*ISOPAO2*CH3O2 + .25*r265*ISOPBO2*CH3O2 + .2*r274*ISOPNO3*CH3O2 + .3*r285*XO2*CH3O2 + + .25*r339*NTERPO2*CH3O2 + .25*r344*TERP2O2*CH3O2 + .25*r349*TERPO2*CH3O2 + - r156*OH*CH3OH + d(CH3OOH)/dt = r154*CH3O2*HO2 + - j39*CH3OOH - r157*OH*CH3OOH + d(CH4)/dt = .1*r201*C3H6*O3 + - j40*CH4 - j41*CH4 - r69*CL*CH4 - r125*F*CH4 - r158*OH*CH4 - r164*O1D*CH4 - r165*O1D*CH4 + - r166*O1D*CH4 + d(CHBR3)/dt = - j91*CHBR3 - r121*O1D*CHBR3 - r138*CL*CHBR3 - r139*OH*CHBR3 d(CL)/dt = j75*BRCL + 4*j79*CCL4 + j80*CF2CLBR + 2*j82*CFC11 + 2*j83*CFC113 + 2*j84*CFC114 + j85*CFC115 + 2*j86*CFC12 + 3*j89*CH3CCL3 + j90*CH3CL + 2*j92*CL2 + 2*j93*CL2O2 + j94*CLO + j95*CLONO2 - + j98*COFCL + j101*HCFC141B + j102*HCFC142B + j103*HCFC22 + j104*HCL + j107*HOCL + r71*CLO*CH3O2 - + 2*r72*CLO*CLO + r74*CLO*CLO + r76*CLO*NO + r81*CLO*O + r82*CLO*OH + r84*HCL*O + r85*HCL*OH - + 4*r89*O1D*CCL4 + r90*O1D*CF2CLBR + 2*r91*O1D*CFC11 + 2*r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + r94*O1D*CFC115 + 2*r95*O1D*CFC12 + r96*O1D*HCL + r105*BRO*CLO + r126*O1D*COFCL - + 3*r131*CH3CCL3*OH + r133*CH3CL*OH + r136*HCFC141B*OH + r137*HCFC142B*OH + r138*HCFC22*OH - + r141*O1D*HCFC141B + r142*O1D*HCFC142B + r143*O1D*HCFC22 + r360*SO*CLO - - r64*CH2O*CL - r65*CH4*CL - r66*H2*CL - r67*H2O2*CL - r68*HO2*CL - r69*HO2*CL - r70*O3*CL - - r77*CLONO2*CL - r86*HOCL*CL - r127*CH2BR2*CL - r129*CH3BR*CL - r132*CH3CL*CL - r134*CHBR3*CL - - r175*C2H6*CL - r205*C3H8*CL - d(CL2)/dt = r73*CLO*CLO + r77*CLONO2*CL + r413*HOCL*HCL + r418*CLONO2*HCL + r419*HOCL*HCL + r423*CLONO2*HCL - + r424*HOCL*HCL + r428*CLONO2*HCL + + j98*COFCL + j101*HCFC141B + j102*HCFC142B + j103*HCFC22 + j104*HCL + j107*HOCL + r75*CLO*CH3O2 + + 2*r76*CLO*CLO + r78*CLO*CLO + r80*CLO*NO + r85*CLO*O + r86*CLO*OH + r88*HCL*O + r89*HCL*OH + + 4*r93*O1D*CCL4 + r94*O1D*CF2CLBR + 2*r95*O1D*CFC11 + 2*r96*O1D*CFC113 + 2*r97*O1D*CFC114 + + r98*O1D*CFC115 + 2*r99*O1D*CFC12 + r100*O1D*HCL + r109*BRO*CLO + r130*O1D*COFCL + + 3*r135*CH3CCL3*OH + r137*CH3CL*OH + r140*HCFC141B*OH + r141*HCFC142B*OH + r142*HCFC22*OH + + r145*O1D*HCFC141B + r146*O1D*HCFC142B + r147*O1D*HCFC22 + r364*SO*CLO + - r68*CH2O*CL - r69*CH4*CL - r70*H2*CL - r71*H2O2*CL - r72*HO2*CL - r73*HO2*CL - r74*O3*CL + - r81*CLONO2*CL - r90*HOCL*CL - r131*CH2BR2*CL - r133*CH3BR*CL - r136*CH3CL*CL - r138*CHBR3*CL + - r179*C2H6*CL - r209*C3H8*CL + d(CL2)/dt = r77*CLO*CLO + r81*CLONO2*CL + r417*HOCL*HCL + r422*CLONO2*HCL + r423*HOCL*HCL + r427*CLONO2*HCL + + r428*HOCL*HCL + r432*CLONO2*HCL - j92*CL2 - d(CL2O2)/dt = r98*M*CLO*CLO - - j93*CL2O2 - r99*M*CL2O2 - d(CLO)/dt = j96*CLONO2 + j108*OCLO + r99*M*CL2O2 + r99*M*CL2O2 + r69*CL*HO2 + r70*CL*O3 + r79*CLONO2*O - + r86*HOCL*CL + r87*HOCL*O + r88*HOCL*OH + r97*O1D*HCL + r365*SO*OCLO - - j94*CLO - r71*CH3O2*CLO - 2*r72*CLO*CLO - 2*r73*CLO*CLO - 2*r74*CLO*CLO - r75*HO2*CLO - - r76*NO*CLO - r78*M*NO2*CLO - r81*O*CLO - r82*OH*CLO - r83*OH*CLO - 2*r98*M*CLO*CLO - - r104*BRO*CLO - r105*BRO*CLO - r106*BRO*CLO - r360*SO*CLO - d(CLONO2)/dt = r78*M*CLO*NO2 - - j95*CLONO2 - j96*CLONO2 - r416*CLONO2 - r421*CLONO2 - r427*CLONO2 - r77*CL*CLONO2 - - r79*O*CLONO2 - r80*OH*CLONO2 - r418*HCL*CLONO2 - r423*HCL*CLONO2 - r428*HCL*CLONO2 + d(CL2O2)/dt = r102*M*CLO*CLO + - j93*CL2O2 - r103*M*CL2O2 + d(CLO)/dt = j96*CLONO2 + j108*OCLO + r103*M*CL2O2 + r103*M*CL2O2 + r73*CL*HO2 + r74*CL*O3 + r83*CLONO2*O + + r90*HOCL*CL + r91*HOCL*O + r92*HOCL*OH + r101*O1D*HCL + r369*SO*OCLO + - j94*CLO - r75*CH3O2*CLO - 2*r76*CLO*CLO - 2*r77*CLO*CLO - 2*r78*CLO*CLO - r79*HO2*CLO + - r80*NO*CLO - r82*M*NO2*CLO - r85*O*CLO - r86*OH*CLO - r87*OH*CLO - 2*r102*M*CLO*CLO + - r108*BRO*CLO - r109*BRO*CLO - r110*BRO*CLO - r364*SO*CLO + d(CLONO2)/dt = r82*M*CLO*NO2 + - j95*CLONO2 - j96*CLONO2 - r420*CLONO2 - r425*CLONO2 - r431*CLONO2 - r81*CL*CLONO2 + - r83*O*CLONO2 - r84*OH*CLONO2 - r422*HCL*CLONO2 - r427*HCL*CLONO2 - r432*HCL*CLONO2 d(CLY)/dt = 0 d(CO)/dt = 1.5*j23*BEPOMUC + .45*j24*BIGALD + .6*j27*BIGALD3 + j28*BIGALD4 + j33*CH2O + j34*CH2O + j35*CH3CHO + j37*CH3COCHO + .38*j40*CH4 + j42*CO2 + j44*GLYALD + 2*j45*GLYOXAL + .33*j46*HONITR + 1.34*j52*MACR + .7*j56*MVK + 1.5*j65*TEPOMUC + .25*j66*TERP2OOH + j69*TERPROD1 - + 1.7*j70*TERPROD2 + j110*CO2 + j137*OCS + r64*CL*CH2O + r100*BR*CH2O + r132*CH3CL*CL - + r145*CH2O*NO3 + r146*CH2O*O + r147*CH2O*OH + .35*r166*M*C2H2*OH + .63*r168*C2H4*O3 - + r191*GLYOXAL*OH + .56*r197*C3H6*O3 + r203*CH3COCHO*NO3 + r204*CH3COCHO*OH - + .22*r222*MACRO2*CH3CO3 + .11*r223*MACRO2*CH3O2 + .22*r225*MACRO2*NO3 + .22*r226*MACRO2*NO - + .65*r228*MACR*O3 + .56*r242*MVK*O3 + .62*r275*ISOP*O3 + .25*r280*XO2*CH3CO3 + .2*r281*XO2*CH3O2 - + .25*r283*XO2*NO + .5*r284*XO2*NO3 + .07*r300*DICARBO2*HO2 + .17*r301*DICARBO2*NO - + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO + .14*r306*MDIALO2*HO2 + .35*r307*MDIALO2*NO - + .23*r330*BCARY*O3 + .23*r333*MTERP*O3 + .125*r340*TERP2O2*CH3O2 + .225*r342*TERP2O2*NO - + .7*r351*TERPROD2*OH + r354*OCS*O + r355*OCS*OH + r441*Op*CO2 - - r164*OH*CO - d(CO2)/dt = j38*CH3COOOH + .44*j40*CH4 + .4*j61*PAN + j66*TERP2OOH + .8*j70*TERPROD2 + r156*HCOOH*OH - + r164*CO*OH + 2*r180*CH3CO3*CH3CO3 + .9*r181*CH3CO3*CH3O2 + r183*CH3CO3*NO + r184*CH3COOH*OH - + .5*r185*CH3COOOH*OH + .8*r190*GLYALD*OH + r191*GLYOXAL*OH + .2*r197*C3H6*O3 - + 2*r231*MCO3*CH3CO3 + r232*MCO3*CH3O2 + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + .5*r241*M*MPAN*OH - + .1*r242*MVK*O3 + r255*ISOPAO2*CH3CO3 + r280*XO2*CH3CO3 + .27*r330*BCARY*O3 + .27*r333*MTERP*O3 - + .5*r340*TERP2O2*CH3O2 + .9*r342*TERP2O2*NO + 1.8*r351*TERPROD2*OH - - j42*CO2 - j110*CO2 - r441*Op*CO2 + + 1.7*j70*TERPROD2 + j110*CO2 + j137*OCS + r68*CL*CH2O + r104*BR*CH2O + r136*CH3CL*CL + + r149*CH2O*NO3 + r150*CH2O*O + r151*CH2O*OH + .35*r170*M*C2H2*OH + .63*r172*C2H4*O3 + + r195*GLYOXAL*OH + .56*r201*C3H6*O3 + r207*CH3COCHO*NO3 + r208*CH3COCHO*OH + + .22*r226*MACRO2*CH3CO3 + .11*r227*MACRO2*CH3O2 + .22*r229*MACRO2*NO3 + .22*r230*MACRO2*NO + + .65*r232*MACR*O3 + .56*r246*MVK*O3 + .62*r279*ISOP*O3 + .25*r284*XO2*CH3CO3 + .2*r285*XO2*CH3O2 + + .25*r287*XO2*NO + .5*r288*XO2*NO3 + .07*r304*DICARBO2*HO2 + .17*r305*DICARBO2*NO + + .16*r307*MALO2*HO2 + .4*r308*MALO2*NO + .14*r310*MDIALO2*HO2 + .35*r311*MDIALO2*NO + + .23*r334*BCARY*O3 + .23*r337*MTERP*O3 + .125*r344*TERP2O2*CH3O2 + .225*r346*TERP2O2*NO + + .7*r355*TERPROD2*OH + r358*OCS*O + r359*OCS*OH + r445*Op*CO2 + - r168*OH*CO + d(CO2)/dt = j38*CH3COOOH + .44*j40*CH4 + .4*j61*PAN + j66*TERP2OOH + .8*j70*TERPROD2 + r160*HCOOH*OH + + r168*CO*OH + 2*r184*CH3CO3*CH3CO3 + .9*r185*CH3CO3*CH3O2 + .49*r186*CH3CO3*HO2 + r187*CH3CO3*NO + + r188*CH3COOH*OH + .5*r189*CH3COOOH*OH + .8*r194*GLYALD*OH + r195*GLYOXAL*OH + .2*r201*C3H6*O3 + + 2*r235*MCO3*CH3CO3 + r236*MCO3*CH3O2 + .45*r237*MCO3*HO2 + 2*r238*MCO3*MCO3 + .5*r245*M*MPAN*OH + + .1*r246*MVK*O3 + r259*ISOPAO2*CH3CO3 + r284*XO2*CH3CO3 + .27*r334*BCARY*O3 + .27*r337*MTERP*O3 + + .5*r344*TERP2O2*CH3O2 + .9*r346*TERP2O2*NO + 1.8*r355*TERPROD2*OH + - j42*CO2 - j110*CO2 - r445*Op*CO2 d(COF2)/dt = j80*CF2CLBR + j81*CF3BR + j83*CFC113 + 2*j84*CFC114 + 2*j85*CFC115 + j86*CFC12 + 2*j99*H2402 - + j102*HCFC142B + j103*HCFC22 + r90*O1D*CF2CLBR + r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + 2*r94*O1D*CFC115 + r95*O1D*CFC12 + r116*O1D*CF3BR + 2*r118*O1D*H2402 + r137*HCFC142B*OH - + r138*HCFC22*OH + r142*O1D*HCFC142B + r143*O1D*HCFC22 - - j97*COF2 - r125*O1D*COF2 - d(COFCL)/dt = j82*CFC11 + j83*CFC113 + j101*HCFC141B + r91*O1D*CFC11 + r92*O1D*CFC113 + r136*HCFC141B*OH - + r141*O1D*HCFC141B - - j98*COFCL - r126*O1D*COFCL - d(CRESOL)/dt = .18*r319*TOLUENE*OH - - r299*OH*CRESOL - d(DMS)/dt = - r352*NO3*DMS - r353*OH*DMS - r367*OH*DMS + + j102*HCFC142B + j103*HCFC22 + r94*O1D*CF2CLBR + r96*O1D*CFC113 + 2*r97*O1D*CFC114 + + 2*r98*O1D*CFC115 + r99*O1D*CFC12 + r120*O1D*CF3BR + 2*r122*O1D*H2402 + r141*HCFC142B*OH + + r142*HCFC22*OH + r146*O1D*HCFC142B + r147*O1D*HCFC22 + - j97*COF2 - r129*O1D*COF2 + d(COFCL)/dt = j82*CFC11 + j83*CFC113 + j101*HCFC141B + r95*O1D*CFC11 + r96*O1D*CFC113 + r140*HCFC141B*OH + + r145*O1D*HCFC141B + - j98*COFCL - r130*O1D*COFCL + d(CRESOL)/dt = .18*r323*TOLUENE*OH + - r303*OH*CRESOL + d(DMS)/dt = - r356*NO3*DMS - r357*OH*DMS - r371*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 - d(E90)/dt = - r444*E90 - d(EOOH)/dt = r186*EO2*HO2 + d(E90)/dt = - r448*E90 + d(EOOH)/dt = r190*EO2*HO2 - j43*EOOH - d(F)/dt = j81*CF3BR + j85*CFC115 + 2*j97*COF2 + j98*COFCL + j105*HF + r94*O1D*CFC115 + r116*O1D*CF3BR - + 2*r125*O1D*COF2 + r126*O1D*COFCL - - r121*CH4*F - r122*H2*F - r123*H2O*F - r124*HNO3*F - d(GLYALD)/dt = .33*j46*HONITR + .25*j66*TERP2OOH + r189*EO*O2 + .53*r222*MACRO2*CH3CO3 + .26*r223*MACRO2*CH3O2 - + .53*r225*MACRO2*NO3 + .53*r226*MACRO2*NO + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 - + .7*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH + r278*NC4CH2OH*OH + .25*r280*XO2*CH3CO3 - + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 + .125*r340*TERP2O2*CH3O2 - + .225*r342*TERP2O2*NO - - j44*GLYALD - r190*OH*GLYALD + d(F)/dt = j81*CF3BR + j85*CFC115 + 2*j97*COF2 + j98*COFCL + j105*HF + r98*O1D*CFC115 + r120*O1D*CF3BR + + 2*r129*O1D*COF2 + r130*O1D*COFCL + - r125*CH4*F - r126*H2*F - r127*H2O*F - r128*HNO3*F + d(GLYALD)/dt = .33*j46*HONITR + .25*j66*TERP2OOH + r193*EO*O2 + .53*r226*MACRO2*CH3CO3 + .26*r227*MACRO2*CH3O2 + + .53*r229*MACRO2*NO3 + .53*r230*MACRO2*NO + .05*r268*ISOPBO2*NO + .05*r269*ISOPBO2*NO3 + + .7*r270*ISOPNITA*OH + .5*r271*ISOPNITB*OH + r282*NC4CH2OH*OH + .25*r284*XO2*CH3CO3 + + .1*r285*XO2*CH3O2 + .25*r287*XO2*NO + .25*r288*XO2*NO3 + .125*r344*TERP2O2*CH3O2 + + .225*r346*TERP2O2*NO + - j44*GLYALD - r194*OH*GLYALD d(GLYOXAL)/dt = j22*BENZOOH + .13*j24*BIGALD + .7*j62*PHENOOH + .6*j71*TOLOOH + .34*j73*XYLENOOH - + .17*j74*XYLOLOOH + .65*r166*M*C2H2*OH + .2*r190*GLYALD*OH + .05*r264*ISOPBO2*NO - + .05*r265*ISOPBO2*NO3 + r279*NC4CHO*OH + .25*r280*XO2*CH3CO3 + .1*r281*XO2*CH3O2 - + .25*r283*XO2*NO + .25*r284*XO2*NO3 + r290*BENZO2*NO + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO - + .07*r306*MDIALO2*HO2 + .17*r307*MDIALO2*NO + .7*r310*PHENO2*NO + .6*r317*TOLO2*NO - + .34*r323*XYLENO2*NO + .17*r326*XYLOLO2*NO - - j45*GLYOXAL - r370*GLYOXAL - r191*OH*GLYOXAL + + .17*j74*XYLOLOOH + .65*r170*M*C2H2*OH + .2*r194*GLYALD*OH + .05*r268*ISOPBO2*NO + + .05*r269*ISOPBO2*NO3 + r283*NC4CHO*OH + .25*r284*XO2*CH3CO3 + .1*r285*XO2*CH3O2 + + .25*r287*XO2*NO + .25*r288*XO2*NO3 + r294*BENZO2*NO + .16*r307*MALO2*HO2 + .4*r308*MALO2*NO + + .07*r310*MDIALO2*HO2 + .17*r311*MDIALO2*NO + .7*r314*PHENO2*NO + .6*r321*TOLO2*NO + + .34*r327*XYLENO2*NO + .17*r330*XYLOLO2*NO + - j45*GLYOXAL - r374*GLYOXAL - r195*OH*GLYOXAL d(H)/dt = 2*j2*H2O + j3*H2O + 2*j34*CH2O + j39*CH3OOH + .33*j40*CH4 + j41*CH4 + j100*HBR + j104*HCL - + j105*HF + r3*O1D*H2 + r20*H2*O + r29*OH*H2 + r32*OH*O + r52*N*OH + r66*CL*H2 + r97*O1D*HCL - + r120*O1D*HBR + r122*F*H2 + r147*CH2O*OH + r161*O1D*CH4 + r355*OCS*OH + r361*S*OH + r366*SO*OH - - r22*HO2*H - r23*HO2*H - r24*HO2*H - r25*M*O2*H - r28*O3*H - d(H2)/dt = j1*H2O + j33*CH2O + 1.4400001*j40*CH4 + r22*H*HO2 + r162*O1D*CH4 - - r3*O1D*H2 - r20*O*H2 - r29*OH*H2 - r66*CL*H2 - r122*F*H2 - d(H2402)/dt = - j99*H2402 - r118*O1D*H2402 - d(H2O2)/dt = r35*M*OH*OH + r36*HO2*HO2 - - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r67*CL*H2O2 - d(H2SO4)/dt = r368*SO3*H2O + + j105*HF + r3*O1D*H2 + r21*H2*O + r30*OH*H2 + r33*OH*O + r53*N*OH + r70*CL*H2 + r101*O1D*HCL + + r124*O1D*HBR + r126*F*H2 + r151*CH2O*OH + r165*O1D*CH4 + r359*OCS*OH + r365*S*OH + r370*SO*OH + - r23*HO2*H - r24*HO2*H - r25*HO2*H - r26*M*O2*H - r29*O3*H + d(H2)/dt = j1*H2O + j33*CH2O + 1.4400001*j40*CH4 + r23*H*HO2 + r166*O1D*CH4 + - r3*O1D*H2 - r21*O*H2 - r30*OH*H2 - r70*CL*H2 - r126*F*H2 + d(H2402)/dt = - j99*H2402 - r122*O1D*H2402 + d(H2O2)/dt = r36*M*OH*OH + r37*HO2*HO2 + - j4*H2O2 - r22*O*H2O2 - r31*OH*H2O2 - r71*CL*H2O2 + d(H2SO4)/dt = r372*SO3*H2O - j136*H2SO4 - d(HBR)/dt = r100*BR*CH2O + r101*BR*HO2 - - j100*HBR - r113*O*HBR - r114*OH*HBR - r119*O1D*HBR - r120*O1D*HBR - d(HCFC141B)/dt = - j101*HCFC141B - r136*OH*HCFC141B - r141*O1D*HCFC141B - d(HCFC142B)/dt = - j102*HCFC142B - r137*OH*HCFC142B - r142*O1D*HCFC142B - d(HCFC22)/dt = - j103*HCFC22 - r138*OH*HCFC22 - r143*O1D*HCFC22 - d(HCL)/dt = r64*CL*CH2O + r65*CL*CH4 + r66*CL*H2 + r67*CL*H2O2 + r68*CL*HO2 + r83*CLO*OH + r86*HOCL*CL - + r127*CH2BR2*CL + r129*CH3BR*CL + 2*r132*CH3CL*CL + r134*CHBR3*CL + r175*C2H6*CL + r205*CL*C3H8 - - j104*HCL - r84*O*HCL - r85*OH*HCL - r96*O1D*HCL - r97*O1D*HCL - r413*HOCL*HCL - - r418*CLONO2*HCL - r419*HOCL*HCL - r420*HOBR*HCL - r423*CLONO2*HCL - r424*HOCL*HCL - - r425*HOBR*HCL - r428*CLONO2*HCL - d(HCN)/dt = - r155*M*OH*HCN - r163*O1D*HCN - d(HCOOH)/dt = r157*HOCH2OO*HO2 + r159*HOCH2OO*NO + .35*r166*M*C2H2*OH + .37*r168*C2H4*O3 + .12*r197*C3H6*O3 - + .33*r228*MACR*O3 + .12*r242*MVK*O3 + .11*r275*ISOP*O3 + .05*r330*BCARY*O3 + .05*r333*MTERP*O3 - - r156*OH*HCOOH - d(HF)/dt = r121*F*CH4 + r122*F*H2 + r123*F*H2O + r124*F*HNO3 + d(HBR)/dt = r104*BR*CH2O + r105*BR*HO2 + - j100*HBR - r117*O*HBR - r118*OH*HBR - r123*O1D*HBR - r124*O1D*HBR + d(HCFC141B)/dt = - j101*HCFC141B - r140*OH*HCFC141B - r145*O1D*HCFC141B + d(HCFC142B)/dt = - j102*HCFC142B - r141*OH*HCFC142B - r146*O1D*HCFC142B + d(HCFC22)/dt = - j103*HCFC22 - r142*OH*HCFC22 - r147*O1D*HCFC22 + d(HCL)/dt = r68*CL*CH2O + r69*CL*CH4 + r70*CL*H2 + r71*CL*H2O2 + r72*CL*HO2 + r87*CLO*OH + r90*HOCL*CL + + r131*CH2BR2*CL + r133*CH3BR*CL + 2*r136*CH3CL*CL + r138*CHBR3*CL + r179*C2H6*CL + r209*CL*C3H8 + - j104*HCL - r88*O*HCL - r89*OH*HCL - r100*O1D*HCL - r101*O1D*HCL - r417*HOCL*HCL + - r422*CLONO2*HCL - r423*HOCL*HCL - r424*HOBR*HCL - r427*CLONO2*HCL - r428*HOCL*HCL + - r429*HOBR*HCL - r432*CLONO2*HCL + d(HCN)/dt = - r159*M*OH*HCN - r167*O1D*HCN + d(HCOOH)/dt = r161*HOCH2OO*HO2 + r163*HOCH2OO*NO + .35*r170*M*C2H2*OH + .37*r172*C2H4*O3 + .12*r201*C3H6*O3 + + .33*r232*MACR*O3 + .12*r246*MVK*O3 + .11*r279*ISOP*O3 + .05*r334*BCARY*O3 + .05*r337*MTERP*O3 + - r160*OH*HCOOH + d(HF)/dt = r125*F*CH4 + r126*F*H2 + r127*F*H2O + r128*F*HNO3 - j105*HF - d(HNO3)/dt = r372*HONITR + r373*ISOPNITA + r374*ISOPNITB + 2*r375*N2O5 + r376*NC4CH2OH + r377*NC4CHO - + .5*r379*NO2 + r380*NO3 + r381*NTERPOOH + r382*ONITR + r383*TERPNIT + 2*r412*N2O5 - + r414*BRONO2 + 2*r415*N2O5 + r416*CLONO2 + r417*BRONO2 + r421*CLONO2 + r422*BRONO2 - + 2*r426*N2O5 + r427*CLONO2 + r60*M*NO2*OH + r145*CH2O*NO3 + r177*CH3CHO*NO3 - + r203*CH3COCHO*NO3 + r352*DMS*NO3 + r418*CLONO2*HCL + r423*CLONO2*HCL + r428*CLONO2*HCL - - j9*HNO3 - r61*OH*HNO3 - r124*F*HNO3 + d(HNO3)/dt = r376*HONITR + r377*ISOPNITA + r378*ISOPNITB + 2*r379*N2O5 + r380*NC4CH2OH + r381*NC4CHO + + .5*r383*NO2 + r384*NO3 + r385*NTERPOOH + r386*ONITR + r387*TERPNIT + 2*r416*N2O5 + + r418*BRONO2 + 2*r419*N2O5 + r420*CLONO2 + r421*BRONO2 + r425*CLONO2 + r426*BRONO2 + + 2*r430*N2O5 + r431*CLONO2 + r61*M*NO2*OH + r149*CH2O*NO3 + r181*CH3CHO*NO3 + + r207*CH3COCHO*NO3 + r356*DMS*NO3 + r422*CLONO2*HCL + r427*CLONO2*HCL + r432*CLONO2*HCL + - j9*HNO3 - r62*OH*HNO3 - r128*F*HNO3 d(HO2)/dt = j11*HO2NO2 + j20*ALKNIT + .9*j21*ALKOOH + j22*BENZOOH + 1.5*j23*BEPOMUC + .56*j24*BIGALD + j25*BIGALD1 + .6*j26*BIGALD2 + .6*j27*BIGALD3 + j28*BIGALD4 + j29*BZOOH + j30*C2H5OOH + j31*C3H7OOH + j35*CH3CHO + j37*CH3COCHO + 2*j44*GLYALD + 2*j45*GLYOXAL + .67*j46*HONITR + j47*HPALD + j48*HYAC + j49*ISOPNOOH + j50*ISOPOOH + 1.34*j51*MACR + .66*j52*MACR + j57*NC4CHO + j62*PHENOOH + j63*POOH + j65*TEPOMUC + j66*TERP2OOH + j67*TERPNIT + j68*TERPOOH - + j69*TERPROD1 + 1.2*j70*TERPROD2 + j71*TOLOOH + j73*XYLENOOH + j74*XYLOLOOH + r62*M*HO2NO2 - + r158*HOCH2OO + r188*EO + r263*ISOPBO2 + r21*H2O2*O + r25*M*H*O2 + r30*OH*H2O2 + r33*OH*O3 - + r51*NO3*OH + r64*CL*CH2O + r67*CL*H2O2 + r71*CLO*CH3O2 + r82*CLO*OH + r100*BR*CH2O - + r112*BRO*OH + r129*CH3BR*CL + r130*CH3BR*OH + r132*CH3CL*CL + r133*CH3CL*OH + r145*CH2O*NO3 - + r146*CH2O*O + 2*r148*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + r155*M*HCN*OH - + r156*HCOOH*OH + r159*HOCH2OO*NO + r161*O1D*CH4 + r164*CO*OH + .35*r166*M*C2H2*OH - + .13*r168*C2H4*O3 + 1.2*r169*C2H5O2*C2H5O2 + r170*C2H5O2*CH3O2 + r172*C2H5O2*NO + r173*C2H5OH*OH - + r179*CH3CN*OH + .9*r181*CH3CO3*CH3O2 + .25*r187*EO2*NO + r189*EO*O2 + r190*GLYALD*OH - + r191*GLYOXAL*OH + .28*r197*C3H6*O3 + r198*C3H7O2*CH3O2 + r200*C3H7O2*NO + r206*HYAC*OH - + r209*PO2*NO + .3*r211*RO2*CH3O2 + r219*ENEO2*NO + r221*HONITR*OH + .47*r222*MACRO2*CH3CO3 - + .73*r223*MACRO2*CH3O2 + .47*r225*MACRO2*NO3 + .47*r226*MACRO2*NO + .14*r228*MACR*O3 - + .2*r230*MACROOH*OH + r232*MCO3*CH3O2 + .5*r241*M*MPAN*OH + .28*r242*MVK*O3 + r248*ALKO2*NO - + r255*ISOPAO2*CH3CO3 + r256*ISOPAO2*CH3O2 + .92*r258*ISOPAO2*NO + r259*ISOPAO2*NO3 - + r260*ISOPBO2*CH3CO3 + r261*ISOPBO2*CH3O2 + .92*r264*ISOPBO2*NO + r265*ISOPBO2*NO3 - + .3*r266*ISOPNITA*OH + r267*ISOPNITB*OH + r269*ISOPNO3*CH3CO3 + 1.2*r270*ISOPNO3*CH3O2 - + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 + r274*ISOPNOOH*OH + .37*r275*ISOP*O3 + r278*NC4CH2OH*OH - + r279*NC4CHO*OH + r280*XO2*CH3CO3 + .8*r281*XO2*CH3O2 + r283*XO2*NO + r284*XO2*NO3 - + .65*r288*BENZENE*OH + r290*BENZO2*NO + r295*BZOO*NO + .73*r299*CRESOL*OH - + .07*r300*DICARBO2*HO2 + .17*r301*DICARBO2*NO + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO - + .33*r306*MDIALO2*HO2 + .83*r307*MDIALO2*NO + r310*PHENO2*NO + .8*r311*PHENOL*OH + r317*TOLO2*NO - + .28*r319*TOLUENE*OH + .38*r321*XYLENES*OH + r323*XYLENO2*NO + r326*XYLOLO2*NO - + .63*r327*XYLOL*OH + .57*r330*BCARY*O3 + .57*r333*MTERP*O3 + .5*r335*NTERPO2*CH3O2 - + r340*TERP2O2*CH3O2 + .9*r342*TERP2O2*NO + r345*TERPO2*CH3O2 + .8*r347*TERPO2*NO - + .2*r351*TERPROD2*OH + r357*M*SO2*OH + .5*r367*DMS*OH - - r371*HO2 - r22*H*HO2 - r23*H*HO2 - r24*H*HO2 - r26*O*HO2 - r27*O3*HO2 - r31*OH*HO2 - - 2*r36*HO2*HO2 - r48*NO3*HO2 - r53*NO*HO2 - r58*M*NO2*HO2 - r68*CL*HO2 - r69*CL*HO2 - - r75*CLO*HO2 - r101*BR*HO2 - r107*BRO*HO2 - r144*CH2O*HO2 - r150*CH3O2*HO2 - r157*HOCH2OO*HO2 - - r171*C2H5O2*HO2 - r182*CH3CO3*HO2 - r186*EO2*HO2 - r199*C3H7O2*HO2 - r208*PO2*HO2 - - r212*RO2*HO2 - r224*MACRO2*HO2 - r233*MCO3*HO2 - r237*MEKO2*HO2 - r247*ALKO2*HO2 - - r257*ISOPAO2*HO2 - r262*ISOPBO2*HO2 - r271*ISOPNO3*HO2 - r282*XO2*HO2 - r286*ACBZO2*HO2 - - r289*BENZO2*HO2 - r293*BZOO*HO2 - r296*C6H5O2*HO2 - r300*DICARBO2*HO2 - r303*MALO2*HO2 - - r306*MDIALO2*HO2 - r309*PHENO2*HO2 - r316*TOLO2*HO2 - r322*XYLENO2*HO2 - r325*XYLOLO2*HO2 - - r336*NTERPO2*HO2 - r341*TERP2O2*HO2 - r346*TERPO2*HO2 - d(HO2NO2)/dt = r58*M*NO2*HO2 - - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r37*OH*HO2NO2 - d(HOBR)/dt = r414*BRONO2 + r417*BRONO2 + r422*BRONO2 + r107*BRO*HO2 - - j106*HOBR - r115*O*HOBR - r420*HCL*HOBR - r425*HCL*HOBR - d(HOCL)/dt = r416*CLONO2 + r421*CLONO2 + r427*CLONO2 + r75*CLO*HO2 + r80*CLONO2*OH - - j107*HOCL - r86*CL*HOCL - r87*O*HOCL - r88*OH*HOCL - r413*HCL*HOCL - r419*HCL*HOCL - - r424*HCL*HOCL - d(HONITR)/dt = r220*ENEO2*NO + r227*MACRO2*NO + .3*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH - - j46*HONITR - r372*HONITR - r221*OH*HONITR - d(HPALD)/dt = r263*ISOPBO2 - - j47*HPALD - r252*OH*HPALD - d(HYAC)/dt = .17*j46*HONITR + .5*r210*POOH*OH + .2*r211*RO2*CH3O2 + .22*r222*MACRO2*CH3CO3 - + .23*r223*MACRO2*CH3O2 + .22*r225*MACRO2*NO3 + .22*r226*MACRO2*NO + .5*r241*M*MPAN*OH - + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 + .7*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH - + .25*r280*XO2*CH3CO3 + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 - - j48*HYAC - r206*OH*HYAC - d(HYDRALD)/dt = r260*ISOPBO2*CH3CO3 + .75*r261*ISOPBO2*CH3O2 + .87*r264*ISOPBO2*NO + .95*r265*ISOPBO2*NO3 - - r253*OH*HYDRALD - d(IEPOX)/dt = .6*r277*ISOPOOH*OH - - r254*OH*IEPOX - d(ISOP)/dt = - r268*NO3*ISOP - r275*O3*ISOP - r276*OH*ISOP - d(ISOPNITA)/dt = .08*r258*ISOPAO2*NO - - r373*ISOPNITA - r266*OH*ISOPNITA - d(ISOPNITB)/dt = .08*r264*ISOPBO2*NO - - r374*ISOPNITB - r267*OH*ISOPNITB - d(ISOPNOOH)/dt = r271*ISOPNO3*HO2 - - j49*ISOPNOOH - r274*OH*ISOPNOOH - d(ISOPOOH)/dt = j49*ISOPNOOH + r257*ISOPAO2*HO2 + r262*ISOPBO2*HO2 - - j50*ISOPOOH - r277*OH*ISOPOOH - d(IVOC)/dt = - r399*OH*IVOC - d(MACR)/dt = .3*j50*ISOPOOH + .39*r255*ISOPAO2*CH3CO3 + .31*r256*ISOPAO2*CH3O2 + .36*r258*ISOPAO2*NO - + .4*r259*ISOPAO2*NO3 + .3*r275*ISOP*O3 - - j51*MACR - j52*MACR - r228*O3*MACR - r229*OH*MACR - d(MACROOH)/dt = r224*MACRO2*HO2 - - r230*OH*MACROOH - d(MEK)/dt = .8*j20*ALKNIT + .8*j21*ALKOOH + .8*r248*ALKO2*NO - - j53*MEK - r239*OH*MEK - d(MEKOOH)/dt = .8*r237*MEKO2*HO2 - - j54*MEKOOH - r240*OH*MEKOOH - d(MPAN)/dt = r244*M*MCO3*NO2 - - j55*MPAN - r245*M*MPAN - r241*M*OH*MPAN - d(MTERP)/dt = - r332*NO3*MTERP - r333*O3*MTERP - r334*OH*MTERP - d(MVK)/dt = .7*j50*ISOPOOH + .61*r255*ISOPAO2*CH3CO3 + .44*r256*ISOPAO2*CH3O2 + .56*r258*ISOPAO2*NO - + .6*r259*ISOPAO2*NO3 + .2*r275*ISOP*O3 - - j56*MVK - r242*O3*MVK - r243*OH*MVK - d(N)/dt = .8*j112*N2 + j115*N2 + j116*N2 + .8*j118*N2 + j15*NO + r442*N2*Op + r38*N2D*O + .2*r429*NOp*e - + 1.1*r431*N2p*e + r435*Np*O + r436*Np*O2 - - j111*N - r40*NO*N - r41*NO2*N - r42*NO2*N - r43*NO2*N - r44*O2*N - r52*OH*N - r438*O2p*N - d(N2O)/dt = r41*N*NO2 - - j12*N2O - r56*O1D*N2O - r57*O1D*N2O - d(N2O5)/dt = r59*M*NO2*NO3 - - j13*N2O5 - j14*N2O5 - r63*M*N2O5 - r375*N2O5 - r412*N2O5 - r415*N2O5 - r426*N2O5 - d(NC4CH2OH)/dt = .2*r270*ISOPNO3*CH3O2 - - r376*NC4CH2OH - r278*OH*NC4CH2OH - d(NC4CHO)/dt = r269*ISOPNO3*CH3CO3 + .8*r270*ISOPNO3*CH3O2 + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 - - j57*NC4CHO - r377*NC4CHO - r279*OH*NC4CHO + + j69*TERPROD1 + 1.2*j70*TERPROD2 + j71*TOLOOH + j73*XYLENOOH + j74*XYLOLOOH + r63*M*HO2NO2 + + r162*HOCH2OO + r192*EO + r267*ISOPBO2 + r22*H2O2*O + r26*M*H*O2 + r31*OH*H2O2 + r34*OH*O3 + + r52*NO3*OH + r68*CL*CH2O + r71*CL*H2O2 + r75*CLO*CH3O2 + r86*CLO*OH + r104*BR*CH2O + + r116*BRO*OH + r133*CH3BR*CL + r134*CH3BR*OH + r136*CH3CL*CL + r137*CH3CL*OH + r149*CH2O*NO3 + + r150*CH2O*O + 2*r152*CH3O2*CH3O2 + r155*CH3O2*NO + r156*CH3OH*OH + r159*M*HCN*OH + + r160*HCOOH*OH + r163*HOCH2OO*NO + r165*O1D*CH4 + r168*CO*OH + .35*r170*M*C2H2*OH + + .13*r172*C2H4*O3 + 1.2*r173*C2H5O2*C2H5O2 + r174*C2H5O2*CH3O2 + r176*C2H5O2*NO + r177*C2H5OH*OH + + r183*CH3CN*OH + .9*r185*CH3CO3*CH3O2 + .25*r191*EO2*NO + r193*EO*O2 + r194*GLYALD*OH + + r195*GLYOXAL*OH + .28*r201*C3H6*O3 + r202*C3H7O2*CH3O2 + r204*C3H7O2*NO + r210*HYAC*OH + + r213*PO2*NO + .3*r215*RO2*CH3O2 + r223*ENEO2*NO + r225*HONITR*OH + .47*r226*MACRO2*CH3CO3 + + .73*r227*MACRO2*CH3O2 + .47*r229*MACRO2*NO3 + .47*r230*MACRO2*NO + .14*r232*MACR*O3 + + .2*r234*MACROOH*OH + r236*MCO3*CH3O2 + .5*r245*M*MPAN*OH + .28*r246*MVK*O3 + r252*ALKO2*NO + + r259*ISOPAO2*CH3CO3 + r260*ISOPAO2*CH3O2 + .92*r262*ISOPAO2*NO + r263*ISOPAO2*NO3 + + r264*ISOPBO2*CH3CO3 + r265*ISOPBO2*CH3O2 + .92*r268*ISOPBO2*NO + r269*ISOPBO2*NO3 + + .3*r270*ISOPNITA*OH + r271*ISOPNITB*OH + r273*ISOPNO3*CH3CO3 + 1.2*r274*ISOPNO3*CH3O2 + + r276*ISOPNO3*NO + r277*ISOPNO3*NO3 + r278*ISOPNOOH*OH + .37*r279*ISOP*O3 + r282*NC4CH2OH*OH + + r283*NC4CHO*OH + r284*XO2*CH3CO3 + .8*r285*XO2*CH3O2 + r287*XO2*NO + r288*XO2*NO3 + + .65*r292*BENZENE*OH + r294*BENZO2*NO + r299*BZOO*NO + .73*r303*CRESOL*OH + + .07*r304*DICARBO2*HO2 + .17*r305*DICARBO2*NO + .16*r307*MALO2*HO2 + .4*r308*MALO2*NO + + .33*r310*MDIALO2*HO2 + .83*r311*MDIALO2*NO + r314*PHENO2*NO + .8*r315*PHENOL*OH + r321*TOLO2*NO + + .28*r323*TOLUENE*OH + .38*r325*XYLENES*OH + r327*XYLENO2*NO + r330*XYLOLO2*NO + + .63*r331*XYLOL*OH + .57*r334*BCARY*O3 + .57*r337*MTERP*O3 + .5*r339*NTERPO2*CH3O2 + + r344*TERP2O2*CH3O2 + .9*r346*TERP2O2*NO + r349*TERPO2*CH3O2 + .8*r351*TERPO2*NO + + .2*r355*TERPROD2*OH + r361*M*SO2*OH + .5*r371*DMS*OH + - r375*HO2 - r23*H*HO2 - r24*H*HO2 - r25*H*HO2 - r27*O*HO2 - r28*O3*HO2 - r32*OH*HO2 + - 2*r37*HO2*HO2 - r49*NO3*HO2 - r54*NO*HO2 - r59*M*NO2*HO2 - r72*CL*HO2 - r73*CL*HO2 + - r79*CLO*HO2 - r105*BR*HO2 - r111*BRO*HO2 - r148*CH2O*HO2 - r154*CH3O2*HO2 - r161*HOCH2OO*HO2 + - r175*C2H5O2*HO2 - r186*CH3CO3*HO2 - r190*EO2*HO2 - r203*C3H7O2*HO2 - r212*PO2*HO2 + - r216*RO2*HO2 - r228*MACRO2*HO2 - r237*MCO3*HO2 - r241*MEKO2*HO2 - r251*ALKO2*HO2 + - r261*ISOPAO2*HO2 - r266*ISOPBO2*HO2 - r275*ISOPNO3*HO2 - r286*XO2*HO2 - r290*ACBZO2*HO2 + - r293*BENZO2*HO2 - r297*BZOO*HO2 - r300*C6H5O2*HO2 - r304*DICARBO2*HO2 - r307*MALO2*HO2 + - r310*MDIALO2*HO2 - r313*PHENO2*HO2 - r320*TOLO2*HO2 - r326*XYLENO2*HO2 - r329*XYLOLO2*HO2 + - r340*NTERPO2*HO2 - r345*TERP2O2*HO2 - r350*TERPO2*HO2 + d(HO2NO2)/dt = r59*M*NO2*HO2 + - j10*HO2NO2 - j11*HO2NO2 - r63*M*HO2NO2 - r39*OH*HO2NO2 + d(HOBR)/dt = r418*BRONO2 + r421*BRONO2 + r426*BRONO2 + r111*BRO*HO2 + - j106*HOBR - r119*O*HOBR - r424*HCL*HOBR - r429*HCL*HOBR + d(HOCL)/dt = r420*CLONO2 + r425*CLONO2 + r431*CLONO2 + r79*CLO*HO2 + r84*CLONO2*OH + - j107*HOCL - r90*CL*HOCL - r91*O*HOCL - r92*OH*HOCL - r417*HCL*HOCL - r423*HCL*HOCL + - r428*HCL*HOCL + d(HONITR)/dt = r224*ENEO2*NO + r231*MACRO2*NO + .3*r270*ISOPNITA*OH + .5*r271*ISOPNITB*OH + - j46*HONITR - r376*HONITR - r225*OH*HONITR + d(HPALD)/dt = r267*ISOPBO2 + - j47*HPALD - r256*OH*HPALD + d(HYAC)/dt = .17*j46*HONITR + .5*r214*POOH*OH + .2*r215*RO2*CH3O2 + .22*r226*MACRO2*CH3CO3 + + .23*r227*MACRO2*CH3O2 + .22*r229*MACRO2*NO3 + .22*r230*MACRO2*NO + .5*r245*M*MPAN*OH + + .05*r268*ISOPBO2*NO + .05*r269*ISOPBO2*NO3 + .7*r270*ISOPNITA*OH + .5*r271*ISOPNITB*OH + + .25*r284*XO2*CH3CO3 + .1*r285*XO2*CH3O2 + .25*r287*XO2*NO + .25*r288*XO2*NO3 + - j48*HYAC - r210*OH*HYAC + d(HYDRALD)/dt = r264*ISOPBO2*CH3CO3 + .75*r265*ISOPBO2*CH3O2 + .87*r268*ISOPBO2*NO + .95*r269*ISOPBO2*NO3 + - r257*OH*HYDRALD + d(IEPOX)/dt = .6*r281*ISOPOOH*OH + - r258*OH*IEPOX + d(ISOP)/dt = - r272*NO3*ISOP - r279*O3*ISOP - r280*OH*ISOP + d(ISOPNITA)/dt = .08*r262*ISOPAO2*NO + - r377*ISOPNITA - r270*OH*ISOPNITA + d(ISOPNITB)/dt = .08*r268*ISOPBO2*NO + - r378*ISOPNITB - r271*OH*ISOPNITB + d(ISOPNOOH)/dt = r275*ISOPNO3*HO2 + - j49*ISOPNOOH - r278*OH*ISOPNOOH + d(ISOPOOH)/dt = j49*ISOPNOOH + r261*ISOPAO2*HO2 + r266*ISOPBO2*HO2 + - j50*ISOPOOH - r281*OH*ISOPOOH + d(IVOC)/dt = - r403*OH*IVOC + d(MACR)/dt = .3*j50*ISOPOOH + .39*r259*ISOPAO2*CH3CO3 + .31*r260*ISOPAO2*CH3O2 + .36*r262*ISOPAO2*NO + + .4*r263*ISOPAO2*NO3 + .3*r279*ISOP*O3 + - j51*MACR - j52*MACR - r232*O3*MACR - r233*OH*MACR + d(MACROOH)/dt = r228*MACRO2*HO2 + - r234*OH*MACROOH + d(MEK)/dt = .8*j20*ALKNIT + .8*j21*ALKOOH + .8*r252*ALKO2*NO + - j53*MEK - r243*OH*MEK + d(MEKOOH)/dt = .8*r241*MEKO2*HO2 + - j54*MEKOOH - r244*OH*MEKOOH + d(MPAN)/dt = r248*M*MCO3*NO2 + - j55*MPAN - r249*M*MPAN - r245*M*OH*MPAN + d(MTERP)/dt = - r336*NO3*MTERP - r337*O3*MTERP - r338*OH*MTERP + d(MVK)/dt = .7*j50*ISOPOOH + .61*r259*ISOPAO2*CH3CO3 + .44*r260*ISOPAO2*CH3O2 + .56*r262*ISOPAO2*NO + + .6*r263*ISOPAO2*NO3 + .2*r279*ISOP*O3 + - j56*MVK - r246*O3*MVK - r247*OH*MVK + d(N)/dt = .8*j112*N2 + j115*N2 + j116*N2 + .8*j118*N2 + j15*NO + r38*N2D + r446*N2*Op + r41*N2D*O + + r64*N2D*e + .2*r433*NOp*e + 1.1*r435*N2p*e + r439*Np*O + r440*Np*O2 + - j111*N - r42*NO*N - r43*NO2*N - r44*NO2*N - r45*NO2*N - r53*OH*N - r67*O2*N - r442*O2p*N + d(N2O)/dt = r43*N*NO2 + - j12*N2O - r57*O1D*N2O - r58*O1D*N2O + d(N2O5)/dt = r60*M*NO2*NO3 + - j13*N2O5 - j14*N2O5 - r66*M*N2O5 - r379*N2O5 - r416*N2O5 - r419*N2O5 - r430*N2O5 + d(NC4CH2OH)/dt = .2*r274*ISOPNO3*CH3O2 + - r380*NC4CH2OH - r282*OH*NC4CH2OH + d(NC4CHO)/dt = r273*ISOPNO3*CH3CO3 + .8*r274*ISOPNO3*CH3O2 + r276*ISOPNO3*NO + r277*ISOPNO3*NO3 + - j57*NC4CHO - r381*NC4CHO - r283*OH*NC4CHO d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NH3)/dt = - r369*OH*NH3 - d(NH4)/dt = - r378*NH4 - d(NH_5)/dt = - r446*NH_5 - d(NH_50)/dt = - r445*NH_50 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r379*NO2 + r439*N2*O2p + r39*N2D*O2 + 2*r42*N*NO2 + r44*N*O2 - + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r362*SO*NO2 - - j15*NO - j16*NO - r40*N*NO - r49*NO3*NO - r53*HO2*NO - r54*O3*NO - r55*M*O*NO - r76*CLO*NO - - r108*BRO*NO - r151*CH3O2*NO - r159*HOCH2OO*NO - r172*C2H5O2*NO - r183*CH3CO3*NO - r187*EO2*NO - - r200*C3H7O2*NO - r209*PO2*NO - r213*RO2*NO - r219*ENEO2*NO - r220*ENEO2*NO - r226*MACRO2*NO - - r227*MACRO2*NO - r235*MCO3*NO - r238*MEKO2*NO - r248*ALKO2*NO - r249*ALKO2*NO - r258*ISOPAO2*NO - - r264*ISOPBO2*NO - r272*ISOPNO3*NO - r283*XO2*NO - r287*ACBZO2*NO - r290*BENZO2*NO - - r295*BZOO*NO - r297*C6H5O2*NO - r301*DICARBO2*NO - r304*MALO2*NO - r307*MDIALO2*NO - - r310*PHENO2*NO - r317*TOLO2*NO - r323*XYLENO2*NO - r326*XYLOLO2*NO - r337*NTERPO2*NO - - r342*TERP2O2*NO - r347*TERPO2*NO - r440*O2p*NO + d(NH3)/dt = - r373*OH*NH3 + d(NH4)/dt = - r382*NH4 + d(NH_5)/dt = - r450*NH_5 + d(NH_50)/dt = - r449*NH_50 + d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r383*NO2 + r443*N2*O2p + 2*r44*N*NO2 + r46*NO2*O + r53*N*OH + + 2*r57*O1D*N2O + r65*N2D*O2 + r67*N*O2 + r366*SO*NO2 + - j15*NO - j16*NO - r40*N2D*NO - r42*N*NO - r50*NO3*NO - r54*HO2*NO - r55*O3*NO - r56*M*O*NO + - r80*CLO*NO - r112*BRO*NO - r155*CH3O2*NO - r163*HOCH2OO*NO - r176*C2H5O2*NO - r187*CH3CO3*NO + - r191*EO2*NO - r204*C3H7O2*NO - r213*PO2*NO - r217*RO2*NO - r223*ENEO2*NO - r224*ENEO2*NO + - r230*MACRO2*NO - r231*MACRO2*NO - r239*MCO3*NO - r242*MEKO2*NO - r252*ALKO2*NO - r253*ALKO2*NO + - r262*ISOPAO2*NO - r268*ISOPBO2*NO - r276*ISOPNO3*NO - r287*XO2*NO - r291*ACBZO2*NO + - r294*BENZO2*NO - r299*BZOO*NO - r301*C6H5O2*NO - r305*DICARBO2*NO - r308*MALO2*NO + - r311*MDIALO2*NO - r314*PHENO2*NO - r321*TOLO2*NO - r327*XYLENO2*NO - r330*XYLOLO2*NO + - r341*NTERPO2*NO - r346*TERP2O2*NO - r351*TERPO2*NO - r444*O2p*NO d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j20*ALKNIT + j46*HONITR + j49*ISOPNOOH + j55*MPAN + j57*NC4CHO + j58*NOA + j59*NTERPOOH + j60*ONITR + .6*j61*PAN + j67*TERPNIT + j77*BRONO2 - + j96*CLONO2 + r62*M*HO2NO2 + r63*M*N2O5 + r195*M*PAN + r245*M*MPAN + r320*M*PBZNIT - + r37*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 - + r55*M*NO*O + r76*CLO*NO + r108*BRO*NO + r151*CH3O2*NO + r159*HOCH2OO*NO + r172*C2H5O2*NO - + r183*CH3CO3*NO + r187*EO2*NO + r200*C3H7O2*NO + r207*NOA*OH + r209*PO2*NO + r213*RO2*NO - + r217*BIGENE*NO3 + r219*ENEO2*NO + r225*MACRO2*NO3 + r226*MACRO2*NO + r235*MCO3*NO - + r236*MCO3*NO3 + r238*MEKO2*NO + r246*ALKNIT*OH + r248*ALKO2*NO + .92*r258*ISOPAO2*NO - + r259*ISOPAO2*NO3 + .92*r264*ISOPBO2*NO + r265*ISOPBO2*NO3 + .7*r266*ISOPNITA*OH - + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 + r283*XO2*NO + r284*XO2*NO3 + r287*ACBZO2*NO - + r290*BENZO2*NO + r295*BZOO*NO + r297*C6H5O2*NO + r301*DICARBO2*NO + r304*MALO2*NO - + r307*MDIALO2*NO + r310*PHENO2*NO + r317*TOLO2*NO + r323*XYLENO2*NO + r326*XYLOLO2*NO - + .5*r335*NTERPO2*CH3O2 + 1.6*r337*NTERPO2*NO + 2*r338*NTERPO2*NO3 + .9*r342*TERP2O2*NO - + r344*TERPNIT*OH + .8*r347*TERPO2*NO - - j17*NO2 - r379*NO2 - r41*N*NO2 - r42*N*NO2 - r43*N*NO2 - r45*O*NO2 - r46*O3*NO2 - - r47*M*O*NO2 - r58*M*HO2*NO2 - r59*M*NO3*NO2 - r60*M*OH*NO2 - r78*M*CLO*NO2 - r109*M*BRO*NO2 - - r194*M*CH3CO3*NO2 - r244*M*MCO3*NO2 - r302*M*DICARBO2*NO2 - r305*M*MALO2*NO2 - - r308*M*MDIALO2*NO2 - r312*PHENO*NO2 - r315*M*ACBZO2*NO2 - r362*SO*NO2 - d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j61*PAN + j78*BRONO2 + j95*CLONO2 + r63*M*N2O5 - + r46*NO2*O3 + r47*M*NO2*O + r61*HNO3*OH + r77*CLONO2*CL + r79*CLONO2*O + r80*CLONO2*OH - + r110*BRONO2*O + r124*F*HNO3 + r192*PAN*OH + .5*r241*M*MPAN*OH - - j18*NO3 - j19*NO3 - r380*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 - - r59*M*NO2*NO3 - r145*CH2O*NO3 - r177*CH3CHO*NO3 - r196*C3H6*NO3 - r203*CH3COCHO*NO3 - - r217*BIGENE*NO3 - r225*MACRO2*NO3 - r236*MCO3*NO3 - r259*ISOPAO2*NO3 - r265*ISOPBO2*NO3 - - r268*ISOP*NO3 - r273*ISOPNO3*NO3 - r284*XO2*NO3 - r329*BCARY*NO3 - r332*MTERP*NO3 - - r338*NTERPO2*NO3 - r349*TERPROD1*NO3 - r352*DMS*NO3 - d(NOA)/dt = r196*C3H6*NO3 + .5*r267*ISOPNITB*OH + r274*ISOPNOOH*OH + r278*NC4CH2OH*OH + r279*NC4CHO*OH - - j58*NOA - r207*OH*NOA - d(NTERPOOH)/dt = r336*NTERPO2*HO2 - - j59*NTERPOOH - r381*NTERPOOH - r339*OH*NTERPOOH + + j96*CLONO2 + r63*M*HO2NO2 + r66*M*N2O5 + r199*M*PAN + r249*M*MPAN + r324*M*PBZNIT + + r39*HO2NO2*OH + r49*NO3*HO2 + 2*r50*NO3*NO + r51*NO3*O + r52*NO3*OH + r54*NO*HO2 + r55*NO*O3 + + r56*M*NO*O + r80*CLO*NO + r112*BRO*NO + r155*CH3O2*NO + r163*HOCH2OO*NO + r176*C2H5O2*NO + + r187*CH3CO3*NO + r191*EO2*NO + r204*C3H7O2*NO + r211*NOA*OH + r213*PO2*NO + r217*RO2*NO + + r221*BIGENE*NO3 + r223*ENEO2*NO + r229*MACRO2*NO3 + r230*MACRO2*NO + r239*MCO3*NO + + r240*MCO3*NO3 + r242*MEKO2*NO + r250*ALKNIT*OH + r252*ALKO2*NO + .92*r262*ISOPAO2*NO + + r263*ISOPAO2*NO3 + .92*r268*ISOPBO2*NO + r269*ISOPBO2*NO3 + .7*r270*ISOPNITA*OH + + r276*ISOPNO3*NO + r277*ISOPNO3*NO3 + r287*XO2*NO + r288*XO2*NO3 + r291*ACBZO2*NO + + r294*BENZO2*NO + r299*BZOO*NO + r301*C6H5O2*NO + r305*DICARBO2*NO + r308*MALO2*NO + + r311*MDIALO2*NO + r314*PHENO2*NO + r321*TOLO2*NO + r327*XYLENO2*NO + r330*XYLOLO2*NO + + .5*r339*NTERPO2*CH3O2 + 1.6*r341*NTERPO2*NO + 2*r342*NTERPO2*NO3 + .9*r346*TERP2O2*NO + + r348*TERPNIT*OH + .8*r351*TERPO2*NO + - j17*NO2 - r383*NO2 - r43*N*NO2 - r44*N*NO2 - r45*N*NO2 - r46*O*NO2 - r47*O3*NO2 + - r48*M*O*NO2 - r59*M*HO2*NO2 - r60*M*NO3*NO2 - r61*M*OH*NO2 - r82*M*CLO*NO2 - r113*M*BRO*NO2 + - r198*M*CH3CO3*NO2 - r248*M*MCO3*NO2 - r306*M*DICARBO2*NO2 - r309*M*MALO2*NO2 + - r312*M*MDIALO2*NO2 - r316*PHENO*NO2 - r319*M*ACBZO2*NO2 - r366*SO*NO2 + d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j61*PAN + j78*BRONO2 + j95*CLONO2 + r66*M*N2O5 + + r47*NO2*O3 + r48*M*NO2*O + r62*HNO3*OH + r81*CLONO2*CL + r83*CLONO2*O + r84*CLONO2*OH + + r114*BRONO2*O + r128*F*HNO3 + r196*PAN*OH + .5*r245*M*MPAN*OH + - j18*NO3 - j19*NO3 - r384*NO3 - r49*HO2*NO3 - r50*NO*NO3 - r51*O*NO3 - r52*OH*NO3 + - r60*M*NO2*NO3 - r149*CH2O*NO3 - r181*CH3CHO*NO3 - r200*C3H6*NO3 - r207*CH3COCHO*NO3 + - r221*BIGENE*NO3 - r229*MACRO2*NO3 - r240*MCO3*NO3 - r263*ISOPAO2*NO3 - r269*ISOPBO2*NO3 + - r272*ISOP*NO3 - r277*ISOPNO3*NO3 - r288*XO2*NO3 - r333*BCARY*NO3 - r336*MTERP*NO3 + - r342*NTERPO2*NO3 - r353*TERPROD1*NO3 - r356*DMS*NO3 + d(NOA)/dt = r200*C3H6*NO3 + .5*r271*ISOPNITB*OH + r278*ISOPNOOH*OH + r282*NC4CH2OH*OH + r283*NC4CHO*OH + - j58*NOA - r211*OH*NOA + d(NTERPOOH)/dt = r340*NTERPO2*HO2 + - j59*NTERPOOH - r385*NTERPOOH - r343*OH*NTERPOOH d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -1644,60 +1646,63 @@ Extraneous prod/loss species d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j14*N2O5 + j15*NO + j17*NO2 + j18*NO3 + .18*j40*CH4 + j42*CO2 + j76*BRO + j94*CLO + j108*OCLO + j110*CO2 + j127*O2 + j128*O2 + j129*O2 + j131*O2 + j132*O2 + j133*O2 + 2*j134*O2 + 2*j135*O2 + j138*SO + j139*SO2 + j140*SO3 + r5*N2*O1D - + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 + r356*S*O2 - + r363*SO*O2 + r429*NOp*e + 1.15*r430*O2p*e + r437*Np*O2 + r438*O2p*N + r443*Op*O2 - - j120*O - j121*O - j122*O - j123*O - j124*O - j125*O - r17*O3*O - 2*r18*M*O*O - r19*M*O2*O - - r20*H2*O - r21*H2O2*O - r26*HO2*O - r32*OH*O - r45*NO2*O - r47*M*NO2*O - r50*NO3*O - - r55*M*NO*O - r79*CLONO2*O - r81*CLO*O - r84*HCL*O - r87*HOCL*O - r110*BRONO2*O - r111*BRO*O - - r113*HBR*O - r115*HOBR*O - r146*CH2O*O - r354*OCS*O - r433*N2p*O - r434*N2p*O - r435*Np*O - d(O2)/dt = j8*O3 + j19*NO3 + r1*O2_1D + r2*O2_1S + r9*N2*O2_1D + r8*O1D*O3 + r8*O1D*O3 + r10*O2_1D*O - + 2*r11*O2_1D*O2 + 2*r17*O*O3 + r18*M*O*O + r22*H*HO2 + r26*HO2*O + 2*r27*HO2*O3 + r28*H*O3 - + r31*OH*HO2 + r32*OH*O + r33*OH*O3 + r36*HO2*HO2 + r37*HO2NO2*OH + r43*N*NO2 + r45*NO2*O - + r46*NO2*O3 + r48*NO3*HO2 + r50*NO3*O + r54*NO*O3 + r57*O1D*N2O + r68*CL*HO2 + r70*CL*O3 - + r72*CLO*CLO + r73*CLO*CLO + r75*CLO*HO2 + r81*CLO*O + r83*CLO*OH + r101*BR*HO2 + r102*BR*O3 - + r103*BRO*BRO + r105*BRO*CLO + r106*BRO*CLO + r107*BRO*HO2 + r111*BRO*O + r150*CH3O2*HO2 - + r171*C2H5O2*HO2 + r199*C3H7O2*HO2 + r208*PO2*HO2 + r358*S*O3 + r364*SO*O3 + r440*O2p*NO + + r6*O1D*O2 + r7*O1D*O2 + 2*r9*O1D*O3 + r25*H*HO2 + r35*OH*OH + r40*N2D*NO + r42*N*NO + + r43*N*NO2 + r67*N*O2 + r360*S*O2 + r367*SO*O2 + r433*NOp*e + 1.15*r434*O2p*e + r441*Np*O2 + + r442*O2p*N + r447*Op*O2 + - j120*O - j121*O - j122*O - j123*O - j124*O - j125*O - r18*O3*O - 2*r19*M*O*O - r20*M*O2*O + - r21*H2*O - r22*H2O2*O - r27*HO2*O - r33*OH*O - r46*NO2*O - r48*M*NO2*O - r51*NO3*O + - r56*M*NO*O - r83*CLONO2*O - r85*CLO*O - r88*HCL*O - r91*HOCL*O - r114*BRONO2*O - r115*BRO*O + - r117*HBR*O - r119*HOBR*O - r150*CH2O*O - r358*OCS*O - r437*N2p*O - r438*N2p*O - r439*Np*O + d(O2)/dt = j8*O3 + j19*NO3 + r1*O2_1D + r2*O2_1S + r10*N2*O2_1D + r8*O1D*O3 + r8*O1D*O3 + r9*O1D*O3 + + r11*O2_1D*O + 2*r12*O2_1D*O2 + 2*r18*O*O3 + r19*M*O*O + r23*H*HO2 + r27*HO2*O + 2*r28*HO2*O3 + + r29*H*O3 + r32*OH*HO2 + r33*OH*O + r34*OH*O3 + r37*HO2*HO2 + r39*HO2NO2*OH + r45*N*NO2 + + r46*NO2*O + r47*NO2*O3 + r49*NO3*HO2 + r51*NO3*O + r55*NO*O3 + r58*O1D*N2O + r72*CL*HO2 + + r74*CL*O3 + r76*CLO*CLO + r77*CLO*CLO + r79*CLO*HO2 + r85*CLO*O + r87*CLO*OH + r105*BR*HO2 + + r106*BR*O3 + r107*BRO*BRO + r109*BRO*CLO + r110*BRO*CLO + r111*BRO*HO2 + r115*BRO*O + + r154*CH3O2*HO2 + r175*C2H5O2*HO2 + r203*C3H7O2*HO2 + r212*PO2*HO2 + r362*S*O3 + r368*SO*O3 + + r444*O2p*NO - j5*O2 - j6*O2 - j126*O2 - j127*O2 - j128*O2 - j129*O2 - j130*O2 - j131*O2 - j132*O2 - - j133*O2 - j134*O2 - j135*O2 - r6*O1D*O2 - r11*O2_1D*O2 - r19*M*O*O2 - r25*M*H*O2 - r39*N2D*O2 - - r44*N*O2 - r189*EO*O2 - r356*S*O2 - r363*SO*O2 - r432*N2p*O2 - r436*Np*O2 - r437*Np*O2 - - r443*Op*O2 - d(O3)/dt = r19*M*O*O2 + .15*r182*CH3CO3*HO2 + .15*r233*MCO3*HO2 - - j7*O3 - j8*O3 - r8*O1D*O3 - r17*O*O3 - r27*HO2*O3 - r28*H*O3 - r33*OH*O3 - r46*NO2*O3 - - r54*NO*O3 - r70*CL*O3 - r102*BR*O3 - r168*C2H4*O3 - r197*C3H6*O3 - r228*MACR*O3 - r242*MVK*O3 - - r275*ISOP*O3 - r313*PHENO*O3 - r330*BCARY*O3 - r333*MTERP*O3 - r358*S*O3 - r364*SO*O3 + - j133*O2 - j134*O2 - j135*O2 - r6*O1D*O2 - r12*O2_1D*O2 - r20*M*O*O2 - r26*M*H*O2 - r65*N2D*O2 + - r67*N*O2 - r193*EO*O2 - r360*S*O2 - r367*SO*O2 - r436*N2p*O2 - r440*Np*O2 - r441*Np*O2 + - r447*Op*O2 + d(O3)/dt = r20*M*O*O2 + .15*r186*CH3CO3*HO2 + .15*r237*MCO3*HO2 + - j7*O3 - j8*O3 - r8*O1D*O3 - r9*O1D*O3 - r18*O*O3 - r28*HO2*O3 - r29*H*O3 - r34*OH*O3 + - r47*NO2*O3 - r55*NO*O3 - r74*CL*O3 - r106*BR*O3 - r172*C2H4*O3 - r201*C3H6*O3 - r232*MACR*O3 + - r246*MVK*O3 - r279*ISOP*O3 - r317*PHENO*O3 - r334*BCARY*O3 - r337*MTERP*O3 - r362*S*O3 + - r368*SO*O3 d(O3S)/dt = 0 - d(OCLO)/dt = r74*CLO*CLO + r104*BRO*CLO - - j108*OCLO - r365*SO*OCLO - d(OCS)/dt = - j137*OCS - r354*O*OCS - r355*OH*OCS - d(ONITR)/dt = r221*HONITR*OH + .1*r342*TERP2O2*NO - - j60*ONITR - r382*ONITR - d(PAN)/dt = r194*M*CH3CO3*NO2 - - j61*PAN - r195*M*PAN - r192*OH*PAN - d(PBZNIT)/dt = r315*M*ACBZO2*NO2 - - r320*M*PBZNIT - d(PHENO)/dt = j32*C6H5OOH + r297*C6H5O2*NO + .07*r299*CRESOL*OH + .06*r311*PHENOL*OH + .07*r327*XYLOL*OH - - r312*NO2*PHENO - r313*O3*PHENO - d(PHENOL)/dt = .53*r288*BENZENE*OH - - r311*OH*PHENOL - d(PHENOOH)/dt = r309*PHENO2*HO2 - - j62*PHENOOH - r314*OH*PHENOOH + d(OCLO)/dt = r78*CLO*CLO + r108*BRO*CLO + - j108*OCLO - r369*SO*OCLO + d(OCS)/dt = - j137*OCS - r358*O*OCS - r359*OH*OCS + d(ONITR)/dt = r225*HONITR*OH + .1*r346*TERP2O2*NO + - j60*ONITR - r386*ONITR + d(PAN)/dt = r198*M*CH3CO3*NO2 + - j61*PAN - r199*M*PAN - r196*OH*PAN + d(PBZNIT)/dt = r319*M*ACBZO2*NO2 + - r324*M*PBZNIT + d(PHENO)/dt = j32*C6H5OOH + r301*C6H5O2*NO + .07*r303*CRESOL*OH + .06*r315*PHENOL*OH + .07*r331*XYLOL*OH + - r316*NO2*PHENO - r317*O3*PHENO + d(PHENOL)/dt = .53*r292*BENZENE*OH + - r315*OH*PHENOL + d(PHENOOH)/dt = r313*PHENO2*HO2 + - j62*PHENOOH - r318*OH*PHENOOH d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 - d(POOH)/dt = r208*PO2*HO2 - - j63*POOH - r210*OH*POOH - d(ROOH)/dt = .85*r212*RO2*HO2 - - j64*ROOH - r214*OH*ROOH + d(POOH)/dt = r212*PO2*HO2 + - j63*POOH - r214*OH*POOH + d(ROOH)/dt = .85*r216*RO2*HO2 + - j64*ROOH - r218*OH*ROOH d(S)/dt = j137*OCS + j138*SO - - r356*O2*S - r358*O3*S - r361*OH*S + - r360*O2*S - r362*O3*S - r365*OH*S d(SF6)/dt = - j109*SF6 - d(SO)/dt = j139*SO2 + r354*OCS*O + r356*S*O2 + r358*S*O3 + r361*S*OH - - j138*SO - r359*BRO*SO - r360*CLO*SO - r362*NO2*SO - r363*O2*SO - r364*O3*SO - r365*OCLO*SO - - r366*OH*SO - d(SO2)/dt = j140*SO3 + r352*DMS*NO3 + r353*DMS*OH + r355*OCS*OH + r359*SO*BRO + r360*SO*CLO + r362*SO*NO2 - + r363*SO*O2 + r364*SO*O3 + r365*SO*OCLO + r366*SO*OH + .5*r367*DMS*OH - - j139*SO2 - r357*M*OH*SO2 - d(SO3)/dt = j136*H2SO4 + r357*M*SO2*OH - - j140*SO3 - r368*H2O*SO3 + d(SO)/dt = j139*SO2 + r358*OCS*O + r360*S*O2 + r362*S*O3 + r365*S*OH + - j138*SO - r363*BRO*SO - r364*CLO*SO - r366*NO2*SO - r367*O2*SO - r368*O3*SO - r369*OCLO*SO + - r370*OH*SO + d(SO2)/dt = j140*SO3 + r356*DMS*NO3 + r357*DMS*OH + r359*OCS*OH + r363*SO*BRO + r364*SO*CLO + r366*SO*NO2 + + r367*SO*O2 + r368*SO*O3 + r369*SO*OCLO + r370*SO*OH + .5*r371*DMS*OH + - j139*SO2 - r361*M*OH*SO2 + d(SO3)/dt = j136*H2SO4 + r361*M*SO2*OH + - j140*SO3 - r372*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 @@ -1712,238 +1717,238 @@ Extraneous prod/loss species d(soa4_a2)/dt = - j148*soa4_a2 d(soa5_a1)/dt = - j149*soa5_a1 d(soa5_a2)/dt = - j150*soa5_a2 - d(SOAG0)/dt = r370*GLYOXAL + .2202*r385*BCARYO2VBS*HO2 + .1279*r386*BCARYO2VBS*NO + .2202*r387*BCARY*O3 - + .0023*r390*BENZO2VBS*HO2 + .0097*r391*BENZO2VBS*NO + .0031*r393*ISOPO2VBS*HO2 - + .0003*r394*ISOPO2VBS*NO + .2381*r397*IVOCO2VBS*HO2 + .1056*r398*IVOCO2VBS*NO - + .0508*r401*MTERPO2VBS*HO2 + .0245*r402*MTERPO2VBS*NO + .0508*r403*MTERP*O3 - + .5931*r405*SVOC*OH + .1364*r407*TOLUO2VBS*HO2 + .0154*r408*TOLUO2VBS*NO - + .1677*r410*XYLEO2VBS*HO2 + .0063*r411*XYLEO2VBS*NO - d(SOAG1)/dt = .2067*r385*BCARYO2VBS*HO2 + .1792*r386*BCARYO2VBS*NO + .2067*r387*BCARY*O3 - + .0008*r390*BENZO2VBS*HO2 + .0034*r391*BENZO2VBS*NO + .0035*r393*ISOPO2VBS*HO2 - + .0003*r394*ISOPO2VBS*NO + .1308*r397*IVOCO2VBS*HO2 + .1026*r398*IVOCO2VBS*NO - + .1149*r401*MTERPO2VBS*HO2 + .0082*r402*MTERPO2VBS*NO + .1149*r403*MTERP*O3 - + .1534*r405*SVOC*OH + .0101*r407*TOLUO2VBS*HO2 + .0452*r408*TOLUO2VBS*NO - + .0174*r410*XYLEO2VBS*HO2 + .0237*r411*XYLEO2VBS*NO - d(SOAG2)/dt = .0653*r385*BCARYO2VBS*HO2 + .0676*r386*BCARYO2VBS*NO + .0653*r387*BCARY*O3 - + .0843*r390*BENZO2VBS*HO2 + .1579*r391*BENZO2VBS*NO + .0003*r393*ISOPO2VBS*HO2 - + .0073*r394*ISOPO2VBS*NO + .0348*r397*IVOCO2VBS*HO2 + .0521*r398*IVOCO2VBS*NO - + .0348*r401*MTERPO2VBS*HO2 + .0772*r402*MTERPO2VBS*NO + .0348*r403*MTERP*O3 - + .0459*r405*SVOC*OH + .0763*r407*TOLUO2VBS*HO2 + .0966*r408*TOLUO2VBS*NO - + .086*r410*XYLEO2VBS*HO2 + .0025*r411*XYLEO2VBS*NO - d(SOAG3)/dt = .17493*r384*BCARY*NO3 + .1284*r385*BCARYO2VBS*HO2 + .079*r386*BCARYO2VBS*NO + .1284*r387*BCARY*O3 - + .0443*r390*BENZO2VBS*HO2 + .0059*r391*BENZO2VBS*NO + .059024*r392*ISOP*NO3 - + .0271*r393*ISOPO2VBS*HO2 + .0057*r394*ISOPO2VBS*NO + .0033*r395*ISOP*O3 - + .0076*r397*IVOCO2VBS*HO2 + .0143*r398*IVOCO2VBS*NO + .17493*r400*MTERP*NO3 - + .0554*r401*MTERPO2VBS*HO2 + .0332*r402*MTERPO2VBS*NO + .0554*r403*MTERP*O3 - + .0085*r405*SVOC*OH + .2157*r407*TOLUO2VBS*HO2 + .0073*r408*TOLUO2VBS*NO - + .0512*r410*XYLEO2VBS*HO2 + .011*r411*XYLEO2VBS*NO - d(SOAG4)/dt = .59019*r384*BCARY*NO3 + .114*r385*BCARYO2VBS*HO2 + .1254*r386*BCARYO2VBS*NO + .114*r387*BCARY*O3 - + .1621*r390*BENZO2VBS*HO2 + .0536*r391*BENZO2VBS*NO + .025024*r392*ISOP*NO3 - + .0474*r393*ISOPO2VBS*HO2 + .0623*r394*ISOPO2VBS*NO + .0113*r397*IVOCO2VBS*HO2 - + .0166*r398*IVOCO2VBS*NO + .59019*r400*MTERP*NO3 + .1278*r401*MTERPO2VBS*HO2 - + .13*r402*MTERPO2VBS*NO + .1278*r403*MTERP*O3 + .0128*r405*SVOC*OH + .0738*r407*TOLUO2VBS*HO2 - + .238*r408*TOLUO2VBS*NO + .1598*r410*XYLEO2VBS*HO2 + .1185*r411*XYLEO2VBS*NO - d(ST80_25)/dt = - r447*ST80_25 - d(SVOC)/dt = - r405*OH*SVOC - d(TEPOMUC)/dt = .1*r319*TOLUENE*OH + .23*r321*XYLENES*OH + d(SOAG0)/dt = r374*GLYOXAL + .2202*r389*BCARYO2VBS*HO2 + .1279*r390*BCARYO2VBS*NO + .2202*r391*BCARY*O3 + + .0023*r394*BENZO2VBS*HO2 + .0097*r395*BENZO2VBS*NO + .0031*r397*ISOPO2VBS*HO2 + + .0003*r398*ISOPO2VBS*NO + .2381*r401*IVOCO2VBS*HO2 + .1056*r402*IVOCO2VBS*NO + + .0508*r405*MTERPO2VBS*HO2 + .0245*r406*MTERPO2VBS*NO + .0508*r407*MTERP*O3 + + .5931*r409*SVOC*OH + .1364*r411*TOLUO2VBS*HO2 + .0154*r412*TOLUO2VBS*NO + + .1677*r414*XYLEO2VBS*HO2 + .0063*r415*XYLEO2VBS*NO + d(SOAG1)/dt = .2067*r389*BCARYO2VBS*HO2 + .1792*r390*BCARYO2VBS*NO + .2067*r391*BCARY*O3 + + .0008*r394*BENZO2VBS*HO2 + .0034*r395*BENZO2VBS*NO + .0035*r397*ISOPO2VBS*HO2 + + .0003*r398*ISOPO2VBS*NO + .1308*r401*IVOCO2VBS*HO2 + .1026*r402*IVOCO2VBS*NO + + .1149*r405*MTERPO2VBS*HO2 + .0082*r406*MTERPO2VBS*NO + .1149*r407*MTERP*O3 + + .1534*r409*SVOC*OH + .0101*r411*TOLUO2VBS*HO2 + .0452*r412*TOLUO2VBS*NO + + .0174*r414*XYLEO2VBS*HO2 + .0237*r415*XYLEO2VBS*NO + d(SOAG2)/dt = .0653*r389*BCARYO2VBS*HO2 + .0676*r390*BCARYO2VBS*NO + .0653*r391*BCARY*O3 + + .0843*r394*BENZO2VBS*HO2 + .1579*r395*BENZO2VBS*NO + .0003*r397*ISOPO2VBS*HO2 + + .0073*r398*ISOPO2VBS*NO + .0348*r401*IVOCO2VBS*HO2 + .0521*r402*IVOCO2VBS*NO + + .0348*r405*MTERPO2VBS*HO2 + .0772*r406*MTERPO2VBS*NO + .0348*r407*MTERP*O3 + + .0459*r409*SVOC*OH + .0763*r411*TOLUO2VBS*HO2 + .0966*r412*TOLUO2VBS*NO + + .086*r414*XYLEO2VBS*HO2 + .0025*r415*XYLEO2VBS*NO + d(SOAG3)/dt = .17493*r388*BCARY*NO3 + .1284*r389*BCARYO2VBS*HO2 + .079*r390*BCARYO2VBS*NO + .1284*r391*BCARY*O3 + + .0443*r394*BENZO2VBS*HO2 + .0059*r395*BENZO2VBS*NO + .059024*r396*ISOP*NO3 + + .0271*r397*ISOPO2VBS*HO2 + .0057*r398*ISOPO2VBS*NO + .0033*r399*ISOP*O3 + + .0076*r401*IVOCO2VBS*HO2 + .0143*r402*IVOCO2VBS*NO + .17493*r404*MTERP*NO3 + + .0554*r405*MTERPO2VBS*HO2 + .0332*r406*MTERPO2VBS*NO + .0554*r407*MTERP*O3 + + .0085*r409*SVOC*OH + .2157*r411*TOLUO2VBS*HO2 + .0073*r412*TOLUO2VBS*NO + + .0512*r414*XYLEO2VBS*HO2 + .011*r415*XYLEO2VBS*NO + d(SOAG4)/dt = .59019*r388*BCARY*NO3 + .114*r389*BCARYO2VBS*HO2 + .1254*r390*BCARYO2VBS*NO + .114*r391*BCARY*O3 + + .1621*r394*BENZO2VBS*HO2 + .0536*r395*BENZO2VBS*NO + .025024*r396*ISOP*NO3 + + .0474*r397*ISOPO2VBS*HO2 + .0623*r398*ISOPO2VBS*NO + .0113*r401*IVOCO2VBS*HO2 + + .0166*r402*IVOCO2VBS*NO + .59019*r404*MTERP*NO3 + .1278*r405*MTERPO2VBS*HO2 + + .13*r406*MTERPO2VBS*NO + .1278*r407*MTERP*O3 + .0128*r409*SVOC*OH + .0738*r411*TOLUO2VBS*HO2 + + .238*r412*TOLUO2VBS*NO + .1598*r414*XYLEO2VBS*HO2 + .1185*r415*XYLEO2VBS*NO + d(ST80_25)/dt = - r451*ST80_25 + d(SVOC)/dt = - r409*OH*SVOC + d(TEPOMUC)/dt = .1*r323*TOLUENE*OH + .23*r325*XYLENES*OH - j65*TEPOMUC - d(TERP2OOH)/dt = r341*TERP2O2*HO2 - - j66*TERP2OOH - r343*OH*TERP2OOH - d(TERPNIT)/dt = .5*r335*NTERPO2*CH3O2 + .2*r337*NTERPO2*NO + .2*r347*TERPO2*NO - - j67*TERPNIT - r383*TERPNIT - r344*OH*TERPNIT - d(TERPOOH)/dt = r346*TERPO2*HO2 - - j68*TERPOOH - r348*OH*TERPOOH - d(TERPROD1)/dt = j59*NTERPOOH + j67*TERPNIT + j68*TERPOOH + .33*r330*BCARY*O3 + .33*r333*MTERP*O3 - + .5*r335*NTERPO2*CH3O2 + .8*r337*NTERPO2*NO + r338*NTERPO2*NO3 + r344*TERPNIT*OH - + r345*TERPO2*CH3O2 + .8*r347*TERPO2*NO - - j69*TERPROD1 - r349*NO3*TERPROD1 - r350*OH*TERPROD1 - d(TERPROD2)/dt = j66*TERP2OOH + j69*TERPROD1 + .3*r330*BCARY*O3 + .3*r333*MTERP*O3 + r340*TERP2O2*CH3O2 - + .9*r342*TERP2O2*NO - - j70*TERPROD2 - r351*OH*TERPROD2 - d(TOLOOH)/dt = r316*TOLO2*HO2 - - j71*TOLOOH - r318*OH*TOLOOH - d(TOLUENE)/dt = - r319*OH*TOLUENE - d(XOOH)/dt = r282*XO2*HO2 - - j72*XOOH - r285*OH*XOOH - d(XYLENES)/dt = - r321*OH*XYLENES - d(XYLENOOH)/dt = r322*XYLENO2*HO2 - - j73*XYLENOOH - r324*OH*XYLENOOH - d(XYLOL)/dt = .15*r321*XYLENES*OH - - r327*OH*XYLOL - d(XYLOLOOH)/dt = r325*XYLOLO2*HO2 - - j74*XYLOLOOH - r328*OH*XYLOLOOH - d(NHDEP)/dt = r378*NH4 + r369*NH3*OH - d(NDEP)/dt = .5*r241*M*MPAN*OH + r302*M*DICARBO2*NO2 + r305*M*MALO2*NO2 + r308*M*MDIALO2*NO2 + r312*PHENO*NO2 - + .2*r337*NTERPO2*NO + .5*r349*TERPROD1*NO3 - d(ACBZO2)/dt = r320*M*PBZNIT + r292*BZALD*OH - - r286*HO2*ACBZO2 - r287*NO*ACBZO2 - r315*M*NO2*ACBZO2 - d(ALKO2)/dt = r250*ALKOOH*OH + r251*BIGALK*OH - - r247*HO2*ALKO2 - r248*NO*ALKO2 - r249*NO*ALKO2 - d(BCARYO2VBS)/dt = r388*BCARY*OH - - r385*HO2*BCARYO2VBS - r386*NO*BCARYO2VBS - d(BENZO2)/dt = .35*r288*BENZENE*OH + r291*BENZOOH*OH - - r289*HO2*BENZO2 - r290*NO*BENZO2 - d(BENZO2VBS)/dt = r389*BENZENE*OH - - r390*HO2*BENZO2VBS - r391*NO*BENZO2VBS - d(BZOO)/dt = r294*BZOOH*OH + .07*r319*TOLUENE*OH + .06*r321*XYLENES*OH - - r293*HO2*BZOO - r295*NO*BZOO - d(C2H5O2)/dt = j53*MEK + .5*r174*C2H5OOH*OH + r175*C2H6*CL + r176*C2H6*OH - - 2*r169*C2H5O2*C2H5O2 - r170*CH3O2*C2H5O2 - r171*HO2*C2H5O2 - r172*NO*C2H5O2 - d(C3H7O2)/dt = r201*C3H7OOH*OH + r202*C3H8*OH + r205*CL*C3H8 - - r198*CH3O2*C3H7O2 - r199*HO2*C3H7O2 - r200*NO*C3H7O2 - d(C6H5O2)/dt = .4*r286*ACBZO2*HO2 + r287*ACBZO2*NO + r298*C6H5OOH*OH + r313*PHENO*O3 - - r296*HO2*C6H5O2 - r297*NO*C6H5O2 + d(TERP2OOH)/dt = r345*TERP2O2*HO2 + - j66*TERP2OOH - r347*OH*TERP2OOH + d(TERPNIT)/dt = .5*r339*NTERPO2*CH3O2 + .2*r341*NTERPO2*NO + .2*r351*TERPO2*NO + - j67*TERPNIT - r387*TERPNIT - r348*OH*TERPNIT + d(TERPOOH)/dt = r350*TERPO2*HO2 + - j68*TERPOOH - r352*OH*TERPOOH + d(TERPROD1)/dt = j59*NTERPOOH + j67*TERPNIT + j68*TERPOOH + .33*r334*BCARY*O3 + .33*r337*MTERP*O3 + + .5*r339*NTERPO2*CH3O2 + .8*r341*NTERPO2*NO + r342*NTERPO2*NO3 + r348*TERPNIT*OH + + r349*TERPO2*CH3O2 + .8*r351*TERPO2*NO + - j69*TERPROD1 - r353*NO3*TERPROD1 - r354*OH*TERPROD1 + d(TERPROD2)/dt = j66*TERP2OOH + j69*TERPROD1 + .3*r334*BCARY*O3 + .3*r337*MTERP*O3 + r344*TERP2O2*CH3O2 + + .9*r346*TERP2O2*NO + - j70*TERPROD2 - r355*OH*TERPROD2 + d(TOLOOH)/dt = r320*TOLO2*HO2 + - j71*TOLOOH - r322*OH*TOLOOH + d(TOLUENE)/dt = - r323*OH*TOLUENE + d(XOOH)/dt = r286*XO2*HO2 + - j72*XOOH - r289*OH*XOOH + d(XYLENES)/dt = - r325*OH*XYLENES + d(XYLENOOH)/dt = r326*XYLENO2*HO2 + - j73*XYLENOOH - r328*OH*XYLENOOH + d(XYLOL)/dt = .15*r325*XYLENES*OH + - r331*OH*XYLOL + d(XYLOLOOH)/dt = r329*XYLOLO2*HO2 + - j74*XYLOLOOH - r332*OH*XYLOLOOH + d(NHDEP)/dt = r382*NH4 + r373*NH3*OH + d(NDEP)/dt = .5*r245*M*MPAN*OH + r306*M*DICARBO2*NO2 + r309*M*MALO2*NO2 + r312*M*MDIALO2*NO2 + r316*PHENO*NO2 + + .2*r341*NTERPO2*NO + .5*r353*TERPROD1*NO3 + d(ACBZO2)/dt = r324*M*PBZNIT + r296*BZALD*OH + - r290*HO2*ACBZO2 - r291*NO*ACBZO2 - r319*M*NO2*ACBZO2 + d(ALKO2)/dt = r254*ALKOOH*OH + r255*BIGALK*OH + - r251*HO2*ALKO2 - r252*NO*ALKO2 - r253*NO*ALKO2 + d(BCARYO2VBS)/dt = r392*BCARY*OH + - r389*HO2*BCARYO2VBS - r390*NO*BCARYO2VBS + d(BENZO2)/dt = .35*r292*BENZENE*OH + r295*BENZOOH*OH + - r293*HO2*BENZO2 - r294*NO*BENZO2 + d(BENZO2VBS)/dt = r393*BENZENE*OH + - r394*HO2*BENZO2VBS - r395*NO*BENZO2VBS + d(BZOO)/dt = r298*BZOOH*OH + .07*r323*TOLUENE*OH + .06*r325*XYLENES*OH + - r297*HO2*BZOO - r299*NO*BZOO + d(C2H5O2)/dt = j53*MEK + .5*r178*C2H5OOH*OH + r179*C2H6*CL + r180*C2H6*OH + - 2*r173*C2H5O2*C2H5O2 - r174*CH3O2*C2H5O2 - r175*HO2*C2H5O2 - r176*NO*C2H5O2 + d(C3H7O2)/dt = r205*C3H7OOH*OH + r206*C3H8*OH + r209*CL*C3H8 + - r202*CH3O2*C3H7O2 - r203*HO2*C3H7O2 - r204*NO*C3H7O2 + d(C6H5O2)/dt = .4*r290*ACBZO2*HO2 + r291*ACBZO2*NO + r302*C6H5OOH*OH + r317*PHENO*O3 + - r300*HO2*C6H5O2 - r301*NO*C6H5O2 d(CH3CO3)/dt = .13*j24*BIGALD + j28*BIGALD4 + j36*CH3COCH3 + j37*CH3COCHO + .33*j46*HONITR + j48*HYAC + 1.34*j51*MACR + j53*MEK + j54*MEKOOH + .3*j56*MVK + j58*NOA + .6*j61*PAN + j64*ROOH - + .5*j65*TEPOMUC + .65*j70*TERPROD2 + r195*M*PAN + r177*CH3CHO*NO3 + r178*CH3CHO*OH - + .5*r185*CH3COOOH*OH + r203*CH3COCHO*NO3 + r204*CH3COCHO*OH + .3*r211*RO2*CH3O2 - + .15*r212*RO2*HO2 + r213*RO2*NO + .53*r222*MACRO2*CH3CO3 + .26*r223*MACRO2*CH3O2 - + .53*r225*MACRO2*NO3 + .53*r226*MACRO2*NO + .1*r228*MACR*O3 + r232*MCO3*CH3O2 - + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + r235*MCO3*NO + r236*MCO3*NO3 + .2*r237*MEKO2*HO2 - + r238*MEKO2*NO + .28*r242*MVK*O3 + .08*r275*ISOP*O3 + .06*r330*BCARY*O3 + .06*r333*MTERP*O3 - + .65*r351*TERPROD2*OH - - 2*r180*CH3CO3*CH3CO3 - r181*CH3O2*CH3CO3 - r182*HO2*CH3CO3 - r183*NO*CH3CO3 - - r194*M*NO2*CH3CO3 - r222*MACRO2*CH3CO3 - r255*ISOPAO2*CH3CO3 - r260*ISOPBO2*CH3CO3 - - r269*ISOPNO3*CH3CO3 - r280*XO2*CH3CO3 + + .5*j65*TEPOMUC + .65*j70*TERPROD2 + r199*M*PAN + r181*CH3CHO*NO3 + r182*CH3CHO*OH + + .5*r189*CH3COOOH*OH + r207*CH3COCHO*NO3 + r208*CH3COCHO*OH + .3*r215*RO2*CH3O2 + + .15*r216*RO2*HO2 + r217*RO2*NO + .53*r226*MACRO2*CH3CO3 + .26*r227*MACRO2*CH3O2 + + .53*r229*MACRO2*NO3 + .53*r230*MACRO2*NO + .1*r232*MACR*O3 + r236*MCO3*CH3O2 + + .45*r237*MCO3*HO2 + 2*r238*MCO3*MCO3 + r239*MCO3*NO + r240*MCO3*NO3 + .2*r241*MEKO2*HO2 + + r242*MEKO2*NO + .28*r246*MVK*O3 + .08*r279*ISOP*O3 + .06*r334*BCARY*O3 + .06*r337*MTERP*O3 + + .65*r355*TERPROD2*OH + - 2*r184*CH3CO3*CH3CO3 - r185*CH3O2*CH3CO3 - r186*HO2*CH3CO3 - r187*NO*CH3CO3 + - r198*M*NO2*CH3CO3 - r226*MACRO2*CH3CO3 - r259*ISOPAO2*CH3CO3 - r264*ISOPBO2*CH3CO3 + - r273*ISOPNO3*CH3CO3 - r284*XO2*CH3CO3 d(CH3O2)/dt = j35*CH3CHO + j36*CH3COCH3 + j38*CH3COOOH + j41*CH4 + .3*j56*MVK + .4*j61*PAN + j88*CH3BR - + j90*CH3CL + r65*CL*CH4 + r121*F*CH4 + .7*r153*CH3OOH*OH + r154*CH4*OH + r160*O1D*CH4 - + 2*r180*CH3CO3*CH3CO3 + .9*r181*CH3CO3*CH3O2 + .45*r182*CH3CO3*HO2 + r183*CH3CO3*NO - + r184*CH3COOH*OH + .28*r197*C3H6*O3 + r222*MACRO2*CH3CO3 + r231*MCO3*CH3CO3 - + r255*ISOPAO2*CH3CO3 + r260*ISOPBO2*CH3CO3 + r269*ISOPNO3*CH3CO3 + .05*r275*ISOP*O3 - + r280*XO2*CH3CO3 + .33*r300*DICARBO2*HO2 + .83*r301*DICARBO2*NO + .07*r306*MDIALO2*HO2 - + .17*r307*MDIALO2*NO - - r71*CLO*CH3O2 - 2*r148*CH3O2*CH3O2 - 2*r149*CH3O2*CH3O2 - r150*HO2*CH3O2 - r151*NO*CH3O2 - - r170*C2H5O2*CH3O2 - r181*CH3CO3*CH3O2 - r198*C3H7O2*CH3O2 - r211*RO2*CH3O2 - - r223*MACRO2*CH3O2 - r232*MCO3*CH3O2 - r256*ISOPAO2*CH3O2 - r261*ISOPBO2*CH3O2 - - r270*ISOPNO3*CH3O2 - r281*XO2*CH3O2 - r335*NTERPO2*CH3O2 - r340*TERP2O2*CH3O2 - - r345*TERPO2*CH3O2 + + j90*CH3CL + r69*CL*CH4 + r125*F*CH4 + .7*r157*CH3OOH*OH + r158*CH4*OH + r164*O1D*CH4 + + 2*r184*CH3CO3*CH3CO3 + .9*r185*CH3CO3*CH3O2 + .49*r186*CH3CO3*HO2 + r187*CH3CO3*NO + + r188*CH3COOH*OH + .28*r201*C3H6*O3 + r226*MACRO2*CH3CO3 + r235*MCO3*CH3CO3 + + r259*ISOPAO2*CH3CO3 + r264*ISOPBO2*CH3CO3 + r273*ISOPNO3*CH3CO3 + .05*r279*ISOP*O3 + + r284*XO2*CH3CO3 + .33*r304*DICARBO2*HO2 + .83*r305*DICARBO2*NO + .07*r310*MDIALO2*HO2 + + .17*r311*MDIALO2*NO + - r75*CLO*CH3O2 - 2*r152*CH3O2*CH3O2 - 2*r153*CH3O2*CH3O2 - r154*HO2*CH3O2 - r155*NO*CH3O2 + - r174*C2H5O2*CH3O2 - r185*CH3CO3*CH3O2 - r202*C3H7O2*CH3O2 - r215*RO2*CH3O2 + - r227*MACRO2*CH3O2 - r236*MCO3*CH3O2 - r260*ISOPAO2*CH3O2 - r265*ISOPBO2*CH3O2 + - r274*ISOPNO3*CH3O2 - r285*XO2*CH3O2 - r339*NTERPO2*CH3O2 - r344*TERP2O2*CH3O2 + - r349*TERPO2*CH3O2 d(DICARBO2)/dt = .6*j26*BIGALD2 - - r300*HO2*DICARBO2 - r301*NO*DICARBO2 - r302*M*NO2*DICARBO2 + - r304*HO2*DICARBO2 - r305*NO*DICARBO2 - r306*M*NO2*DICARBO2 d(e)/dt = j113*N2 + j114*N2 + j115*N2 + j116*N2 + j117*N2 + j119*N2 + j16*NO + j111*N + j120*O + j121*O + j122*O + j123*O + j124*O + j125*O + j126*O2 + j127*O2 + j128*O2 + j129*O2 + j130*O2 + j131*O2 + j132*O2 + j133*O2 - - r429*NOp*e - r430*O2p*e - r431*N2p*e - d(ENEO2)/dt = r218*BIGENE*OH - - r219*NO*ENEO2 - r220*NO*ENEO2 - d(EO)/dt = j43*EOOH + .75*r187*EO2*NO - - r188*EO - r189*O2*EO - d(EO2)/dt = r193*M*C2H4*OH - - r186*HO2*EO2 - r187*NO*EO2 - d(HOCH2OO)/dt = r144*CH2O*HO2 - - r158*HOCH2OO - r157*HO2*HOCH2OO - r159*NO*HOCH2OO - d(ISOPAO2)/dt = .6*r276*ISOP*OH - - r255*CH3CO3*ISOPAO2 - r256*CH3O2*ISOPAO2 - r257*HO2*ISOPAO2 - r258*NO*ISOPAO2 - - r259*NO3*ISOPAO2 - d(ISOPBO2)/dt = .4*r276*ISOP*OH - - r263*ISOPBO2 - r260*CH3CO3*ISOPBO2 - r261*CH3O2*ISOPBO2 - r262*HO2*ISOPBO2 - - r264*NO*ISOPBO2 - r265*NO3*ISOPBO2 - d(ISOPNO3)/dt = r268*ISOP*NO3 - - r269*CH3CO3*ISOPNO3 - r270*CH3O2*ISOPNO3 - r271*HO2*ISOPNO3 - r272*NO*ISOPNO3 - - r273*NO3*ISOPNO3 - d(ISOPO2VBS)/dt = r396*ISOP*OH - - r393*HO2*ISOPO2VBS - r394*NO*ISOPO2VBS - d(IVOCO2VBS)/dt = r399*IVOC*OH - - r397*HO2*IVOCO2VBS - r398*NO*IVOCO2VBS - d(MACRO2)/dt = .5*r229*MACR*OH + .2*r230*MACROOH*OH + r243*MVK*OH - - r222*CH3CO3*MACRO2 - r223*CH3O2*MACRO2 - r224*HO2*MACRO2 - r225*NO3*MACRO2 - r226*NO*MACRO2 - - r227*NO*MACRO2 + - r433*NOp*e - r434*O2p*e - r435*N2p*e + d(ENEO2)/dt = r222*BIGENE*OH + - r223*NO*ENEO2 - r224*NO*ENEO2 + d(EO)/dt = j43*EOOH + .75*r191*EO2*NO + - r192*EO - r193*O2*EO + d(EO2)/dt = r197*M*C2H4*OH + - r190*HO2*EO2 - r191*NO*EO2 + d(HOCH2OO)/dt = r148*CH2O*HO2 + - r162*HOCH2OO - r161*HO2*HOCH2OO - r163*NO*HOCH2OO + d(ISOPAO2)/dt = .6*r280*ISOP*OH + - r259*CH3CO3*ISOPAO2 - r260*CH3O2*ISOPAO2 - r261*HO2*ISOPAO2 - r262*NO*ISOPAO2 + - r263*NO3*ISOPAO2 + d(ISOPBO2)/dt = .4*r280*ISOP*OH + - r267*ISOPBO2 - r264*CH3CO3*ISOPBO2 - r265*CH3O2*ISOPBO2 - r266*HO2*ISOPBO2 + - r268*NO*ISOPBO2 - r269*NO3*ISOPBO2 + d(ISOPNO3)/dt = r272*ISOP*NO3 + - r273*CH3CO3*ISOPNO3 - r274*CH3O2*ISOPNO3 - r275*HO2*ISOPNO3 - r276*NO*ISOPNO3 + - r277*NO3*ISOPNO3 + d(ISOPO2VBS)/dt = r400*ISOP*OH + - r397*HO2*ISOPO2VBS - r398*NO*ISOPO2VBS + d(IVOCO2VBS)/dt = r403*IVOC*OH + - r401*HO2*IVOCO2VBS - r402*NO*IVOCO2VBS + d(MACRO2)/dt = .5*r233*MACR*OH + .2*r234*MACROOH*OH + r247*MVK*OH + - r226*CH3CO3*MACRO2 - r227*CH3O2*MACRO2 - r228*HO2*MACRO2 - r229*NO3*MACRO2 - r230*NO*MACRO2 + - r231*NO*MACRO2 d(MALO2)/dt = .6*j25*BIGALD1 - - r303*HO2*MALO2 - r304*NO*MALO2 - r305*M*NO2*MALO2 - d(MCO3)/dt = .66*j51*MACR + j55*MPAN + r245*M*MPAN + .5*r229*MACR*OH + .5*r230*MACROOH*OH - - r231*CH3CO3*MCO3 - r232*CH3O2*MCO3 - r233*HO2*MCO3 - 2*r234*MCO3*MCO3 - r235*NO*MCO3 - - r236*NO3*MCO3 - r244*M*NO2*MCO3 + - r307*HO2*MALO2 - r308*NO*MALO2 - r309*M*NO2*MALO2 + d(MCO3)/dt = .66*j51*MACR + j55*MPAN + r249*M*MPAN + .5*r233*MACR*OH + .5*r234*MACROOH*OH + - r235*CH3CO3*MCO3 - r236*CH3O2*MCO3 - r237*HO2*MCO3 - 2*r238*MCO3*MCO3 - r239*NO*MCO3 + - r240*NO3*MCO3 - r248*M*NO2*MCO3 d(MDIALO2)/dt = .6*j27*BIGALD3 - - r306*HO2*MDIALO2 - r307*NO*MDIALO2 - r308*M*NO2*MDIALO2 - d(MEKO2)/dt = r239*MEK*OH + r240*MEKOOH*OH - - r237*HO2*MEKO2 - r238*NO*MEKO2 - d(MTERPO2VBS)/dt = r404*MTERP*OH - - r401*HO2*MTERPO2VBS - r402*NO*MTERPO2VBS - d(N2D)/dt = 1.2*j112*N2 + j113*N2 + j117*N2 + 1.2*j118*N2 + .8*r429*NOp*e + .9*r431*N2p*e + r433*N2p*O - - r38*O*N2D - r39*O2*N2D + - r310*HO2*MDIALO2 - r311*NO*MDIALO2 - r312*M*NO2*MDIALO2 + d(MEKO2)/dt = r243*MEK*OH + r244*MEKOOH*OH + - r241*HO2*MEKO2 - r242*NO*MEKO2 + d(MTERPO2VBS)/dt = r408*MTERP*OH + - r405*HO2*MTERPO2VBS - r406*NO*MTERPO2VBS + d(N2D)/dt = 1.2*j112*N2 + j113*N2 + j117*N2 + 1.2*j118*N2 + .8*r433*NOp*e + .9*r435*N2p*e + r437*N2p*O + - r38*N2D - r40*NO*N2D - r41*O*N2D - r64*e*N2D - r65*O2*N2D d(N2p)/dt = j114*N2 + j119*N2 - - r431*e*N2p - r432*O2*N2p - r433*O*N2p - r434*O*N2p - d(NOp)/dt = j16*NO + r439*N2*O2p + r442*N2*Op + r433*N2p*O + r437*Np*O2 + r438*O2p*N + r440*O2p*NO - - r429*e*NOp + - r435*e*N2p - r436*O2*N2p - r437*O*N2p - r438*O*N2p + d(NOp)/dt = j16*NO + r443*N2*O2p + r446*N2*Op + r437*N2p*O + r441*Np*O2 + r442*O2p*N + r444*O2p*NO + - r433*e*NOp d(Np)/dt = j113*N2 + j115*N2 + j116*N2 + j117*N2 + j111*N - - r435*O*Np - r436*O2*Np - r437*O2*Np - d(NTERPO2)/dt = r329*BCARY*NO3 + r332*MTERP*NO3 + r339*NTERPOOH*OH + .5*r349*TERPROD1*NO3 - - r335*CH3O2*NTERPO2 - r336*HO2*NTERPO2 - r337*NO*NTERPO2 - r338*NO3*NTERPO2 - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r430*O2p*e - - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r56*N2O*O1D - - r57*N2O*O1D - r89*CCL4*O1D - r90*CF2CLBR*O1D - r91*CFC11*O1D - r92*CFC113*O1D - r93*CFC114*O1D - - r94*CFC115*O1D - r95*CFC12*O1D - r96*HCL*O1D - r97*HCL*O1D - r116*CF3BR*O1D - r117*CHBR3*O1D - - r118*H2402*O1D - r119*HBR*O1D - r120*HBR*O1D - r125*COF2*O1D - r126*COFCL*O1D - - r139*CH2BR2*O1D - r140*CH3BR*O1D - r141*HCFC141B*O1D - r142*HCFC142B*O1D - r143*HCFC22*O1D - - r160*CH4*O1D - r161*CH4*O1D - r162*CH4*O1D - r163*HCN*O1D - d(O2_1D)/dt = j7*O3 + r13*N2*O2_1S + r12*O2_1S*CO2 + r14*O2_1S*O + r15*O2_1S*O2 + r16*O2_1S*O3 - - r1*O2_1D - r9*N2*O2_1D - r10*O*O2_1D - r11*O2*O2_1D + - r439*O*Np - r440*O2*Np - r441*O2*Np + d(NTERPO2)/dt = r333*BCARY*NO3 + r336*MTERP*NO3 + r343*NTERPOOH*OH + .5*r353*TERPROD1*NO3 + - r339*CH3O2*NTERPO2 - r340*HO2*NTERPO2 - r341*NO*NTERPO2 - r342*NO3*NTERPO2 + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r65*N2D*O2 + .85*r434*O2p*e + - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r9*O3*O1D + - r57*N2O*O1D - r58*N2O*O1D - r93*CCL4*O1D - r94*CF2CLBR*O1D - r95*CFC11*O1D - r96*CFC113*O1D + - r97*CFC114*O1D - r98*CFC115*O1D - r99*CFC12*O1D - r100*HCL*O1D - r101*HCL*O1D - r120*CF3BR*O1D + - r121*CHBR3*O1D - r122*H2402*O1D - r123*HBR*O1D - r124*HBR*O1D - r129*COF2*O1D - r130*COFCL*O1D + - r143*CH2BR2*O1D - r144*CH3BR*O1D - r145*HCFC141B*O1D - r146*HCFC142B*O1D - r147*HCFC22*O1D + - r164*CH4*O1D - r165*CH4*O1D - r166*CH4*O1D - r167*HCN*O1D + d(O2_1D)/dt = j7*O3 + r14*N2*O2_1S + r13*O2_1S*CO2 + r15*O2_1S*O + r16*O2_1S*O2 + r17*O2_1S*O3 + - r1*O2_1D - r10*N2*O2_1D - r11*O*O2_1D - r12*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - - r2*O2_1S - r13*N2*O2_1S - r12*CO2*O2_1S - r14*O*O2_1S - r15*O2*O2_1S - r16*O3*O2_1S - d(O2p)/dt = j126*O2 + j130*O2 + r432*N2p*O2 + r436*Np*O2 + r441*Op*CO2 + r443*Op*O2 - - r439*N2*O2p - r430*e*O2p - r438*N*O2p - r440*NO*O2p + - r2*O2_1S - r14*N2*O2_1S - r13*CO2*O2_1S - r15*O*O2_1S - r16*O2*O2_1S - r17*O3*O2_1S + d(O2p)/dt = j126*O2 + j130*O2 + r436*N2p*O2 + r440*Np*O2 + r445*Op*CO2 + r447*Op*O2 + - r443*N2*O2p - r434*e*O2p - r442*N*O2p - r444*NO*O2p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j21*ALKOOH + j22*BENZOOH + j29*BZOOH + j30*C2H5OOH + j31*C3H7OOH + j32*C6H5OOH + j38*CH3COOOH + j39*CH3OOH + .33*j40*CH4 + j43*EOOH + j47*HPALD + j50*ISOPOOH + j54*MEKOOH + j59*NTERPOOH + j62*PHENOOH + j63*POOH + j64*ROOH + j66*TERP2OOH + j68*TERPOOH + j71*TOLOOH + j72*XOOH + j73*XYLENOOH + j74*XYLOLOOH + j106*HOBR + j107*HOCL - + .5*r379*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O - + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r69*CL*HO2 + r84*HCL*O + r87*HOCL*O - + r96*O1D*HCL + r113*HBR*O + r115*HOBR*O + r119*O1D*HBR + r123*F*H2O + r146*CH2O*O - + .3*r153*CH3OOH*OH + r160*O1D*CH4 + r163*O1D*HCN + .65*r166*M*C2H2*OH + .13*r168*C2H4*O3 - + .5*r174*C2H5OOH*OH + .45*r182*CH3CO3*HO2 + .36*r197*C3H6*O3 + .5*r210*POOH*OH + .15*r212*RO2*HO2 - + .24*r228*MACR*O3 + .1*r230*MACROOH*OH + .45*r233*MCO3*HO2 + .2*r237*MEKO2*HO2 + .36*r242*MVK*O3 - + .32*r275*ISOP*O3 + .6*r277*ISOPOOH*OH + .5*r285*XOOH*OH + .4*r286*ACBZO2*HO2 - + .4*r300*DICARBO2*HO2 + .4*r306*MDIALO2*HO2 + .63*r330*BCARY*O3 + .63*r333*MTERP*O3 - - r29*H2*OH - r30*H2O2*OH - r31*HO2*OH - r32*O*OH - r33*O3*OH - 2*r34*OH*OH - 2*r35*M*OH*OH - - r37*HO2NO2*OH - r51*NO3*OH - r52*N*OH - r60*M*NO2*OH - r61*HNO3*OH - r80*CLONO2*OH - - r82*CLO*OH - r83*CLO*OH - r85*HCL*OH - r88*HOCL*OH - r112*BRO*OH - r114*HBR*OH - - r128*CH2BR2*OH - r130*CH3BR*OH - r131*CH3CCL3*OH - r133*CH3CL*OH - r135*CHBR3*OH - - r136*HCFC141B*OH - r137*HCFC142B*OH - r138*HCFC22*OH - r147*CH2O*OH - r152*CH3OH*OH - - r153*CH3OOH*OH - r154*CH4*OH - r155*M*HCN*OH - r156*HCOOH*OH - r164*CO*OH - r166*M*C2H2*OH - - r173*C2H5OH*OH - r174*C2H5OOH*OH - r176*C2H6*OH - r178*CH3CHO*OH - r179*CH3CN*OH - - r184*CH3COOH*OH - r185*CH3COOOH*OH - r190*GLYALD*OH - r191*GLYOXAL*OH - r192*PAN*OH - - r193*M*C2H4*OH - r201*C3H7OOH*OH - r202*C3H8*OH - r204*CH3COCHO*OH - r206*HYAC*OH - r207*NOA*OH - - r210*POOH*OH - r214*ROOH*OH - r215*M*C3H6*OH - r216*CH3COCH3*OH - r218*BIGENE*OH - - r221*HONITR*OH - r229*MACR*OH - r230*MACROOH*OH - r239*MEK*OH - r240*MEKOOH*OH - r241*M*MPAN*OH - - r243*MVK*OH - r246*ALKNIT*OH - r250*ALKOOH*OH - r251*BIGALK*OH - r252*HPALD*OH - - r253*HYDRALD*OH - r254*IEPOX*OH - r266*ISOPNITA*OH - r267*ISOPNITB*OH - r274*ISOPNOOH*OH - - r276*ISOP*OH - r277*ISOPOOH*OH - r278*NC4CH2OH*OH - r279*NC4CHO*OH - r285*XOOH*OH - - r288*BENZENE*OH - r291*BENZOOH*OH - r292*BZALD*OH - r294*BZOOH*OH - r298*C6H5OOH*OH - - r299*CRESOL*OH - r311*PHENOL*OH - r314*PHENOOH*OH - r318*TOLOOH*OH - r319*TOLUENE*OH - - r321*XYLENES*OH - r324*XYLENOOH*OH - r327*XYLOL*OH - r328*XYLOLOOH*OH - r331*BCARY*OH - - r334*MTERP*OH - r339*NTERPOOH*OH - r343*TERP2OOH*OH - r344*TERPNIT*OH - r348*TERPOOH*OH - - r350*TERPROD1*OH - r351*TERPROD2*OH - r353*DMS*OH - r355*OCS*OH - r357*M*SO2*OH - r361*S*OH - - r366*SO*OH - r367*DMS*OH - r369*NH3*OH + + .5*r383*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r21*H2*O + r22*H2O2*O + 2*r24*H*HO2 + r27*HO2*O + + r28*HO2*O3 + r29*H*O3 + r49*NO3*HO2 + r54*NO*HO2 + r73*CL*HO2 + r88*HCL*O + r91*HOCL*O + + r100*O1D*HCL + r117*HBR*O + r119*HOBR*O + r123*O1D*HBR + r127*F*H2O + r150*CH2O*O + + .3*r157*CH3OOH*OH + r164*O1D*CH4 + r167*O1D*HCN + .65*r170*M*C2H2*OH + .13*r172*C2H4*O3 + + .5*r178*C2H5OOH*OH + .49*r186*CH3CO3*HO2 + .36*r201*C3H6*O3 + .5*r214*POOH*OH + .15*r216*RO2*HO2 + + .24*r232*MACR*O3 + .1*r234*MACROOH*OH + .45*r237*MCO3*HO2 + .2*r241*MEKO2*HO2 + .36*r246*MVK*O3 + + .32*r279*ISOP*O3 + .6*r281*ISOPOOH*OH + .5*r289*XOOH*OH + .4*r290*ACBZO2*HO2 + + .4*r304*DICARBO2*HO2 + .4*r310*MDIALO2*HO2 + .63*r334*BCARY*O3 + .63*r337*MTERP*O3 + - r30*H2*OH - r31*H2O2*OH - r32*HO2*OH - r33*O*OH - r34*O3*OH - 2*r35*OH*OH - 2*r36*M*OH*OH + - r39*HO2NO2*OH - r52*NO3*OH - r53*N*OH - r61*M*NO2*OH - r62*HNO3*OH - r84*CLONO2*OH + - r86*CLO*OH - r87*CLO*OH - r89*HCL*OH - r92*HOCL*OH - r116*BRO*OH - r118*HBR*OH + - r132*CH2BR2*OH - r134*CH3BR*OH - r135*CH3CCL3*OH - r137*CH3CL*OH - r139*CHBR3*OH + - r140*HCFC141B*OH - r141*HCFC142B*OH - r142*HCFC22*OH - r151*CH2O*OH - r156*CH3OH*OH + - r157*CH3OOH*OH - r158*CH4*OH - r159*M*HCN*OH - r160*HCOOH*OH - r168*CO*OH - r170*M*C2H2*OH + - r177*C2H5OH*OH - r178*C2H5OOH*OH - r180*C2H6*OH - r182*CH3CHO*OH - r183*CH3CN*OH + - r188*CH3COOH*OH - r189*CH3COOOH*OH - r194*GLYALD*OH - r195*GLYOXAL*OH - r196*PAN*OH + - r197*M*C2H4*OH - r205*C3H7OOH*OH - r206*C3H8*OH - r208*CH3COCHO*OH - r210*HYAC*OH - r211*NOA*OH + - r214*POOH*OH - r218*ROOH*OH - r219*M*C3H6*OH - r220*CH3COCH3*OH - r222*BIGENE*OH + - r225*HONITR*OH - r233*MACR*OH - r234*MACROOH*OH - r243*MEK*OH - r244*MEKOOH*OH - r245*M*MPAN*OH + - r247*MVK*OH - r250*ALKNIT*OH - r254*ALKOOH*OH - r255*BIGALK*OH - r256*HPALD*OH + - r257*HYDRALD*OH - r258*IEPOX*OH - r270*ISOPNITA*OH - r271*ISOPNITB*OH - r278*ISOPNOOH*OH + - r280*ISOP*OH - r281*ISOPOOH*OH - r282*NC4CH2OH*OH - r283*NC4CHO*OH - r289*XOOH*OH + - r292*BENZENE*OH - r295*BENZOOH*OH - r296*BZALD*OH - r298*BZOOH*OH - r302*C6H5OOH*OH + - r303*CRESOL*OH - r315*PHENOL*OH - r318*PHENOOH*OH - r322*TOLOOH*OH - r323*TOLUENE*OH + - r325*XYLENES*OH - r328*XYLENOOH*OH - r331*XYLOL*OH - r332*XYLOLOOH*OH - r335*BCARY*OH + - r338*MTERP*OH - r343*NTERPOOH*OH - r347*TERP2OOH*OH - r348*TERPNIT*OH - r352*TERPOOH*OH + - r354*TERPROD1*OH - r355*TERPROD2*OH - r357*DMS*OH - r359*OCS*OH - r361*M*SO2*OH - r365*S*OH + - r370*SO*OH - r371*DMS*OH - r373*NH3*OH d(Op)/dt = j120*O + j121*O + j122*O + j123*O + j124*O + j125*O + j127*O2 + j128*O2 + j129*O2 + j131*O2 - + j132*O2 + j133*O2 + r434*N2p*O + r435*Np*O - - r442*N2*Op - r441*CO2*Op - r443*O2*Op - d(PHENO2)/dt = .2*r299*CRESOL*OH + .14*r311*PHENOL*OH + r314*PHENOOH*OH - - r309*HO2*PHENO2 - r310*NO*PHENO2 - d(PO2)/dt = .5*r210*POOH*OH + r215*M*C3H6*OH - - r208*HO2*PO2 - r209*NO*PO2 - d(RO2)/dt = .15*j70*TERPROD2 + r214*ROOH*OH + r216*CH3COCH3*OH + .06*r330*BCARY*O3 + .06*r333*MTERP*O3 - + .15*r351*TERPROD2*OH - - r211*CH3O2*RO2 - r212*HO2*RO2 - r213*NO*RO2 - d(TERP2O2)/dt = r343*TERP2OOH*OH + .5*r349*TERPROD1*NO3 + r350*TERPROD1*OH - - r340*CH3O2*TERP2O2 - r341*HO2*TERP2O2 - r342*NO*TERP2O2 - d(TERPO2)/dt = r331*BCARY*OH + r334*MTERP*OH + r348*TERPOOH*OH - - r345*CH3O2*TERPO2 - r346*HO2*TERPO2 - r347*NO*TERPO2 - d(TOLO2)/dt = r318*TOLOOH*OH + .65*r319*TOLUENE*OH - - r316*HO2*TOLO2 - r317*NO*TOLO2 - d(TOLUO2VBS)/dt = r406*TOLUENE*OH - - r407*HO2*TOLUO2VBS - r408*NO*TOLUO2VBS - d(XO2)/dt = r252*HPALD*OH + r253*HYDRALD*OH + r254*IEPOX*OH + .4*r277*ISOPOOH*OH + .5*r285*XOOH*OH - - r280*CH3CO3*XO2 - r281*CH3O2*XO2 - r282*HO2*XO2 - r283*NO*XO2 - r284*NO3*XO2 - d(XYLENO2)/dt = .56*r321*XYLENES*OH + r324*XYLENOOH*OH - - r322*HO2*XYLENO2 - r323*NO*XYLENO2 - d(XYLEO2VBS)/dt = r409*XYLENES*OH - - r410*HO2*XYLEO2VBS - r411*NO*XYLEO2VBS - d(XYLOLO2)/dt = .3*r327*XYLOL*OH + r328*XYLOLOOH*OH - - r325*HO2*XYLOLO2 - r326*NO*XYLOLO2 - d(H2O)/dt = .05*j40*CH4 + j136*H2SO4 + r371*HO2 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 - + r34*OH*OH + r37*HO2NO2*OH + r61*HNO3*OH + r85*HCL*OH + r88*HOCL*OH + r114*HBR*OH - + r128*CH2BR2*OH + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH - + r147*CH2O*OH + r153*CH3OOH*OH + r154*CH4*OH + r156*HCOOH*OH + r176*C2H6*OH + r178*CH3CHO*OH - + r184*CH3COOH*OH + r185*CH3COOOH*OH + r201*C3H7OOH*OH + r202*C3H8*OH + r204*CH3COCHO*OH - + r210*POOH*OH + r214*ROOH*OH + r216*CH3COCH3*OH + .5*r229*MACR*OH + r369*NH3*OH + r413*HOCL*HCL - + r419*HOCL*HCL + r420*HOBR*HCL + r424*HOCL*HCL + r425*HOBR*HCL - - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r123*F*H2O - r368*SO3*H2O + + j132*O2 + j133*O2 + r438*N2p*O + r439*Np*O + - r446*N2*Op - r445*CO2*Op - r447*O2*Op + d(PHENO2)/dt = .2*r303*CRESOL*OH + .14*r315*PHENOL*OH + r318*PHENOOH*OH + - r313*HO2*PHENO2 - r314*NO*PHENO2 + d(PO2)/dt = .5*r214*POOH*OH + r219*M*C3H6*OH + - r212*HO2*PO2 - r213*NO*PO2 + d(RO2)/dt = .15*j70*TERPROD2 + r218*ROOH*OH + r220*CH3COCH3*OH + .06*r334*BCARY*O3 + .06*r337*MTERP*O3 + + .15*r355*TERPROD2*OH + - r215*CH3O2*RO2 - r216*HO2*RO2 - r217*NO*RO2 + d(TERP2O2)/dt = r347*TERP2OOH*OH + .5*r353*TERPROD1*NO3 + r354*TERPROD1*OH + - r344*CH3O2*TERP2O2 - r345*HO2*TERP2O2 - r346*NO*TERP2O2 + d(TERPO2)/dt = r335*BCARY*OH + r338*MTERP*OH + r352*TERPOOH*OH + - r349*CH3O2*TERPO2 - r350*HO2*TERPO2 - r351*NO*TERPO2 + d(TOLO2)/dt = r322*TOLOOH*OH + .65*r323*TOLUENE*OH + - r320*HO2*TOLO2 - r321*NO*TOLO2 + d(TOLUO2VBS)/dt = r410*TOLUENE*OH + - r411*HO2*TOLUO2VBS - r412*NO*TOLUO2VBS + d(XO2)/dt = r256*HPALD*OH + r257*HYDRALD*OH + r258*IEPOX*OH + .4*r281*ISOPOOH*OH + .5*r289*XOOH*OH + - r284*CH3CO3*XO2 - r285*CH3O2*XO2 - r286*HO2*XO2 - r287*NO*XO2 - r288*NO3*XO2 + d(XYLENO2)/dt = .56*r325*XYLENES*OH + r328*XYLENOOH*OH + - r326*HO2*XYLENO2 - r327*NO*XYLENO2 + d(XYLEO2VBS)/dt = r413*XYLENES*OH + - r414*HO2*XYLEO2VBS - r415*NO*XYLEO2VBS + d(XYLOLO2)/dt = .3*r331*XYLOL*OH + r332*XYLOLOOH*OH + - r329*HO2*XYLOLO2 - r330*NO*XYLOLO2 + d(H2O)/dt = .05*j40*CH4 + j136*H2SO4 + r375*HO2 + r25*H*HO2 + r30*OH*H2 + r31*OH*H2O2 + r32*OH*HO2 + + r35*OH*OH + r39*HO2NO2*OH + r62*HNO3*OH + r89*HCL*OH + r92*HOCL*OH + r118*HBR*OH + + r132*CH2BR2*OH + r134*CH3BR*OH + r135*CH3CCL3*OH + r137*CH3CL*OH + r142*HCFC22*OH + + r151*CH2O*OH + r157*CH3OOH*OH + r158*CH4*OH + r160*HCOOH*OH + r180*C2H6*OH + r182*CH3CHO*OH + + r188*CH3COOH*OH + r189*CH3COOOH*OH + r205*C3H7OOH*OH + r206*C3H8*OH + r208*CH3COCHO*OH + + r214*POOH*OH + r218*ROOH*OH + r220*CH3COCH3*OH + .5*r233*MACR*OH + r373*NH3*OH + r417*HOCL*HCL + + r423*HOCL*HCL + r424*HOBR*HCL + r428*HOCL*HCL + r429*HOBR*HCL + - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r127*F*H2O - r372*SO3*H2O diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.in b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.in index 600a54cbf2..851e5b8f3f 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.in +++ b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mech.in @@ -1,11 +1,11 @@ * Comments -* User-given Tag Description: TSMLT1.2-simpleVBS -* Tag database identifier : MZ317_TSMLT1.2_simpleVBS_20221220 -* Tag created by : lke +* User-given Tag Description: MAM5 +* Tag database identifier : MZ365_TSMLT1.2_simpleVBS_20250225 +* Tag created by : jz * Tag created from branch : TSMLT1.2-simpleVBS -* Tag created on : 2022-12-20 13:51:46.133926-07 +* Tag created on : 2025-02-25 11:54:52.488691-07 * Comments for this tag follow: -* lke : 2022-12-20 : TSMLT1 with JPL19 updates, NOx-dependent VBS-SOA +* jz : 2025-02-25 : MAM5 SPECIES @@ -758,6 +758,7 @@ [O1D_O2,cph=32.91] O1D + O2 -> O + O2_1S ; 2.64e-11, 55 [O1D_O2b,cph=189.81] O1D + O2 -> O + O2 ; 6.6e-12, 55 [O1D_O3] O1D + O3 -> O2 + O2 ; 1.2e-10 +[O1D_O3a] O1D + O3 -> O2 + 2*O ; 1.2e-10 [O2_1D_N2,cph=94.3] O2_1D + N2 -> O2 + N2 ; 1e-20 [O2_1D_O,cph=94.3] O2_1D + O -> O2 + O ; 1.3e-16 [O2_1D_O2,cph=94.3] O2_1D + O2 -> 2*O2 ; 3.6e-18, -220 @@ -792,14 +793,14 @@ ********************************* *** odd-nitrogen ********************************* +[agn2d] N2D -> N ; 1.06e-05 [HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 +[N2D_NO,cph=543.13] N2D + NO -> N2 + O ; 7e-11 [N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 -[N2D_O2,cph=177.51] N2D + O2 -> NO + O1D ; 5e-12 [N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 [N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 [N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 [N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 -[N_O2,cph=133.75] N + O2 -> NO + O ; 3.3e-12, -3150 [NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 [NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 [NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 @@ -818,7 +819,10 @@ [tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 [usr_HNO3_OH] HNO3 + OH -> NO3 + H2O [usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M +[usr_N2D_e,cph=229.61] N2D + e -> N + e +[usr_N2D_O2,cph=177.51] N2D + O2 -> NO + O1D [usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[usr_N_O2,cph=133.75] N + O2 -> NO + O ********************************* *** odd-chlorine ********************************* @@ -955,7 +959,7 @@ [CH3CN_OH] CH3CN + OH -> HO2 ; 7.8e-13, -1050 [CH3CO3_CH3CO3] CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 ; 2.9e-12, 500 [CH3CO3_CH3O2] CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 + 0.1*CH3COOH ; 2e-12, 500 -[CH3CO3_HO2] CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH + 0.45*CH3O2 ; 4.3e-13, 1040 +[CH3CO3_HO2] CH3CO3 + HO2 -> 0.36*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.49*OH + 0.49*CH3O2 + 0.49*CO2 ; 4.3e-13, 1040 [CH3CO3_NO] CH3CO3 + NO -> CH3O2 + CO2 + NO2 ; 8.1e-12, 270 [CH3COOH_OH] CH3COOH + OH -> CH3O2 + CO2 + H2O ; 3.15e-14, 920 [CH3COOOH_OH] CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O ; 1e-12 @@ -974,9 +978,9 @@ ********************************* [C3H6_NO3] C3H6 + NO3 -> NOA ; 4.6e-13, -1156 [C3H6_O3] C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH ; 6.5e-15, -1900 -[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 3.75e-13, -40 -[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 7.5e-13, 700 -[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 4.2e-12, 180 +[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 1e-13, 557 +[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 1.41e-13, 1300 +[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 2.7e-12, 360 [C3H7OOH_OH] C3H7OOH + OH -> H2O + C3H7O2 ; 3.8e-12, 200 [C3H8_OH] C3H8 + OH -> C3H7O2 + H2O ; 9.19e-12, -630 [CH3COCHO_NO3] CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 ; 1.4e-12, -1860 @@ -1020,7 +1024,7 @@ [MEKO2_NO] MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 ; 4.2e-12, 180 [MEK_OH] MEK + OH -> MEKO2 ; 2.3e-12, -170 [MEKOOH_OH] MEKOOH + OH -> MEKO2 ; 3.8e-12, 200 -[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + M + 0.5*NDEP ; 8e-27, 3.5, 3e-11, 0, 0.5 +[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + 0.5*NDEP + M ; 8e-27, 3.5, 3e-11, 0, 0.5 [MVK_O3] MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH ; 8.5e-16, -1520 [MVK_OH] MVK + OH -> MACRO2 ; 4.13e-12, 452 [tag_MCO3_NO2] MCO3 + NO2 + M -> MPAN + M ; 9.7e-29, 5.6, 9.3e-12, 1.5, 0.6 @@ -1028,7 +1032,7 @@ ********************************* *** C5 ********************************* -[ALKNIT_OH] ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 ; 1.6e-12 +[ALKNIT_OH] ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 ; 2.2e-12 [ALKO2_HO2] ALKO2 + HO2 -> ALKOOH ; 7.5e-13, 700 [ALKO2_NO] ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK + NO2 ; 6.7e-12 [ALKO2_NOb] ALKO2 + NO -> ALKNIT ; 5.4e-14, 870 @@ -1266,8 +1270,6 @@ num_a2 <- dataset so4_a1 <- dataset so4_a2 <- dataset - num_a5 <- dataset - so4_a5 <- dataset num_a4 <- dataset pom_a4 <- dataset bc_a4 <- dataset diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mods.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mods.F90 index 9c772d9d67..b9f00cb4dc 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/chem_mods.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/chem_mods.F90 @@ -6,15 +6,15 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 150, & ! number of photolysis reactions - rxntot = 597, & ! number of total reactions - gascnt = 447, & ! number of gas phase reactions + rxntot = 601, & ! number of total reactions + gascnt = 451, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 241, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members nzcnt = 2449, & ! number of non-zero matrix entries - extcnt = 22, & ! number of species with external forcing + extcnt = 20, & ! number of species with external forcing clscnt1 = 2, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class clscnt3 = 0, & ! number of species in ebi class @@ -23,8 +23,8 @@ module chem_mods indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 597, & - enthalpy_cnt = 41, & + rxt_tag_cnt = 601, & + enthalpy_cnt = 43, & nslvd = 50 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/m_rxt_id.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/m_rxt_id.F90 index 4b7f2809d8..b165f4da63 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/m_rxt_id.F90 @@ -158,443 +158,447 @@ module m_rxt_id integer, parameter :: rid_O1D_O2 = 156 integer, parameter :: rid_O1D_O2b = 157 integer, parameter :: rid_O1D_O3 = 158 - integer, parameter :: rid_O2_1D_N2 = 159 - integer, parameter :: rid_O2_1D_O = 160 - integer, parameter :: rid_O2_1D_O2 = 161 - integer, parameter :: rid_O2_1S_CO2 = 162 - integer, parameter :: rid_O2_1S_N2 = 163 - integer, parameter :: rid_O2_1S_O = 164 - integer, parameter :: rid_O2_1S_O2 = 165 - integer, parameter :: rid_O2_1S_O3 = 166 - integer, parameter :: rid_O_O3 = 167 - integer, parameter :: rid_usr_O_O = 168 - integer, parameter :: rid_usr_O_O2 = 169 - integer, parameter :: rid_H2_O = 170 - integer, parameter :: rid_H2O2_O = 171 - integer, parameter :: rid_H_HO2 = 172 - integer, parameter :: rid_H_HO2a = 173 - integer, parameter :: rid_H_HO2b = 174 - integer, parameter :: rid_H_O2 = 175 - integer, parameter :: rid_HO2_O = 176 - integer, parameter :: rid_HO2_O3 = 177 - integer, parameter :: rid_H_O3 = 178 - integer, parameter :: rid_OH_H2 = 179 - integer, parameter :: rid_OH_H2O2 = 180 - integer, parameter :: rid_OH_HO2 = 181 - integer, parameter :: rid_OH_O = 182 - integer, parameter :: rid_OH_O3 = 183 - integer, parameter :: rid_OH_OH = 184 - integer, parameter :: rid_OH_OH_M = 185 - integer, parameter :: rid_usr_HO2_HO2 = 186 - integer, parameter :: rid_HO2NO2_OH = 187 - integer, parameter :: rid_N2D_O = 188 - integer, parameter :: rid_N2D_O2 = 189 - integer, parameter :: rid_N_NO = 190 - integer, parameter :: rid_N_NO2a = 191 - integer, parameter :: rid_N_NO2b = 192 - integer, parameter :: rid_N_NO2c = 193 - integer, parameter :: rid_N_O2 = 194 - integer, parameter :: rid_NO2_O = 195 - integer, parameter :: rid_NO2_O3 = 196 - integer, parameter :: rid_NO2_O_M = 197 - integer, parameter :: rid_NO3_HO2 = 198 - integer, parameter :: rid_NO3_NO = 199 - integer, parameter :: rid_NO3_O = 200 - integer, parameter :: rid_NO3_OH = 201 - integer, parameter :: rid_N_OH = 202 - integer, parameter :: rid_NO_HO2 = 203 - integer, parameter :: rid_NO_O3 = 204 - integer, parameter :: rid_NO_O_M = 205 - integer, parameter :: rid_O1D_N2Oa = 206 - integer, parameter :: rid_O1D_N2Ob = 207 - integer, parameter :: rid_tag_NO2_HO2 = 208 - integer, parameter :: rid_tag_NO2_NO3 = 209 - integer, parameter :: rid_tag_NO2_OH = 210 - integer, parameter :: rid_usr_HNO3_OH = 211 - integer, parameter :: rid_usr_HO2NO2_M = 212 - integer, parameter :: rid_usr_N2O5_M = 213 - integer, parameter :: rid_CL_CH2O = 214 - integer, parameter :: rid_CL_CH4 = 215 - integer, parameter :: rid_CL_H2 = 216 - integer, parameter :: rid_CL_H2O2 = 217 - integer, parameter :: rid_CL_HO2a = 218 - integer, parameter :: rid_CL_HO2b = 219 - integer, parameter :: rid_CL_O3 = 220 - integer, parameter :: rid_CLO_CH3O2 = 221 - integer, parameter :: rid_CLO_CLOa = 222 - integer, parameter :: rid_CLO_CLOb = 223 - integer, parameter :: rid_CLO_CLOc = 224 - integer, parameter :: rid_CLO_HO2 = 225 - integer, parameter :: rid_CLO_NO = 226 - integer, parameter :: rid_CLONO2_CL = 227 - integer, parameter :: rid_CLO_NO2_M = 228 - integer, parameter :: rid_CLONO2_O = 229 - integer, parameter :: rid_CLONO2_OH = 230 - integer, parameter :: rid_CLO_O = 231 - integer, parameter :: rid_CLO_OHa = 232 - integer, parameter :: rid_CLO_OHb = 233 - integer, parameter :: rid_HCL_O = 234 - integer, parameter :: rid_HCL_OH = 235 - integer, parameter :: rid_HOCL_CL = 236 - integer, parameter :: rid_HOCL_O = 237 - integer, parameter :: rid_HOCL_OH = 238 - integer, parameter :: rid_O1D_CCL4 = 239 - integer, parameter :: rid_O1D_CF2CLBR = 240 - integer, parameter :: rid_O1D_CFC11 = 241 - integer, parameter :: rid_O1D_CFC113 = 242 - integer, parameter :: rid_O1D_CFC114 = 243 - integer, parameter :: rid_O1D_CFC115 = 244 - integer, parameter :: rid_O1D_CFC12 = 245 - integer, parameter :: rid_O1D_HCLa = 246 - integer, parameter :: rid_O1D_HCLb = 247 - integer, parameter :: rid_tag_CLO_CLO_M = 248 - integer, parameter :: rid_usr_CL2O2_M = 249 - integer, parameter :: rid_BR_CH2O = 250 - integer, parameter :: rid_BR_HO2 = 251 - integer, parameter :: rid_BR_O3 = 252 - integer, parameter :: rid_BRO_BRO = 253 - integer, parameter :: rid_BRO_CLOa = 254 - integer, parameter :: rid_BRO_CLOb = 255 - integer, parameter :: rid_BRO_CLOc = 256 - integer, parameter :: rid_BRO_HO2 = 257 - integer, parameter :: rid_BRO_NO = 258 - integer, parameter :: rid_BRO_NO2_M = 259 - integer, parameter :: rid_BRONO2_O = 260 - integer, parameter :: rid_BRO_O = 261 - integer, parameter :: rid_BRO_OH = 262 - integer, parameter :: rid_HBR_O = 263 - integer, parameter :: rid_HBR_OH = 264 - integer, parameter :: rid_HOBR_O = 265 - integer, parameter :: rid_O1D_CF3BR = 266 - integer, parameter :: rid_O1D_CHBR3 = 267 - integer, parameter :: rid_O1D_H2402 = 268 - integer, parameter :: rid_O1D_HBRa = 269 - integer, parameter :: rid_O1D_HBRb = 270 - integer, parameter :: rid_F_CH4 = 271 - integer, parameter :: rid_F_H2 = 272 - integer, parameter :: rid_F_H2O = 273 - integer, parameter :: rid_F_HNO3 = 274 - integer, parameter :: rid_O1D_COF2 = 275 - integer, parameter :: rid_O1D_COFCL = 276 - integer, parameter :: rid_CH2BR2_CL = 277 - integer, parameter :: rid_CH2BR2_OH = 278 - integer, parameter :: rid_CH3BR_CL = 279 - integer, parameter :: rid_CH3BR_OH = 280 - integer, parameter :: rid_CH3CCL3_OH = 281 - integer, parameter :: rid_CH3CL_CL = 282 - integer, parameter :: rid_CH3CL_OH = 283 - integer, parameter :: rid_CHBR3_CL = 284 - integer, parameter :: rid_CHBR3_OH = 285 - integer, parameter :: rid_HCFC141B_OH = 286 - integer, parameter :: rid_HCFC142B_OH = 287 - integer, parameter :: rid_HCFC22_OH = 288 - integer, parameter :: rid_O1D_CH2BR2 = 289 - integer, parameter :: rid_O1D_CH3BR = 290 - integer, parameter :: rid_O1D_HCFC141B = 291 - integer, parameter :: rid_O1D_HCFC142B = 292 - integer, parameter :: rid_O1D_HCFC22 = 293 - integer, parameter :: rid_CH2O_HO2 = 294 - integer, parameter :: rid_CH2O_NO3 = 295 - integer, parameter :: rid_CH2O_O = 296 - integer, parameter :: rid_CH2O_OH = 297 - integer, parameter :: rid_CH3O2_CH3O2a = 298 - integer, parameter :: rid_CH3O2_CH3O2b = 299 - integer, parameter :: rid_CH3O2_HO2 = 300 - integer, parameter :: rid_CH3O2_NO = 301 - integer, parameter :: rid_CH3OH_OH = 302 - integer, parameter :: rid_CH3OOH_OH = 303 - integer, parameter :: rid_CH4_OH = 304 - integer, parameter :: rid_HCN_OH = 305 - integer, parameter :: rid_HCOOH_OH = 306 - integer, parameter :: rid_HOCH2OO_HO2 = 307 - integer, parameter :: rid_HOCH2OO_M = 308 - integer, parameter :: rid_HOCH2OO_NO = 309 - integer, parameter :: rid_O1D_CH4a = 310 - integer, parameter :: rid_O1D_CH4b = 311 - integer, parameter :: rid_O1D_CH4c = 312 - integer, parameter :: rid_O1D_HCN = 313 - integer, parameter :: rid_usr_CO_OH = 314 - integer, parameter :: rid_C2H2_CL_M = 315 - integer, parameter :: rid_C2H2_OH_M = 316 - integer, parameter :: rid_C2H4_CL_M = 317 - integer, parameter :: rid_C2H4_O3 = 318 - integer, parameter :: rid_C2H5O2_C2H5O2 = 319 - integer, parameter :: rid_C2H5O2_CH3O2 = 320 - integer, parameter :: rid_C2H5O2_HO2 = 321 - integer, parameter :: rid_C2H5O2_NO = 322 - integer, parameter :: rid_C2H5OH_OH = 323 - integer, parameter :: rid_C2H5OOH_OH = 324 - integer, parameter :: rid_C2H6_CL = 325 - integer, parameter :: rid_C2H6_OH = 326 - integer, parameter :: rid_CH3CHO_NO3 = 327 - integer, parameter :: rid_CH3CHO_OH = 328 - integer, parameter :: rid_CH3CN_OH = 329 - integer, parameter :: rid_CH3CO3_CH3CO3 = 330 - integer, parameter :: rid_CH3CO3_CH3O2 = 331 - integer, parameter :: rid_CH3CO3_HO2 = 332 - integer, parameter :: rid_CH3CO3_NO = 333 - integer, parameter :: rid_CH3COOH_OH = 334 - integer, parameter :: rid_CH3COOOH_OH = 335 - integer, parameter :: rid_EO2_HO2 = 336 - integer, parameter :: rid_EO2_NO = 337 - integer, parameter :: rid_EO_M = 338 - integer, parameter :: rid_EO_O2 = 339 - integer, parameter :: rid_GLYALD_OH = 340 - integer, parameter :: rid_GLYOXAL_OH = 341 - integer, parameter :: rid_PAN_OH = 342 - integer, parameter :: rid_tag_C2H4_OH = 343 - integer, parameter :: rid_tag_CH3CO3_NO2 = 344 - integer, parameter :: rid_usr_PAN_M = 345 - integer, parameter :: rid_C3H6_NO3 = 346 - integer, parameter :: rid_C3H6_O3 = 347 - integer, parameter :: rid_C3H7O2_CH3O2 = 348 - integer, parameter :: rid_C3H7O2_HO2 = 349 - integer, parameter :: rid_C3H7O2_NO = 350 - integer, parameter :: rid_C3H7OOH_OH = 351 - integer, parameter :: rid_C3H8_OH = 352 - integer, parameter :: rid_CH3COCHO_NO3 = 353 - integer, parameter :: rid_CH3COCHO_OH = 354 - integer, parameter :: rid_CL_C3H8 = 355 - integer, parameter :: rid_HYAC_OH = 356 - integer, parameter :: rid_NOA_OH = 357 - integer, parameter :: rid_PO2_HO2 = 358 - integer, parameter :: rid_PO2_NO = 359 - integer, parameter :: rid_POOH_OH = 360 - integer, parameter :: rid_RO2_CH3O2 = 361 - integer, parameter :: rid_RO2_HO2 = 362 - integer, parameter :: rid_RO2_NO = 363 - integer, parameter :: rid_ROOH_OH = 364 - integer, parameter :: rid_tag_C3H6_OH = 365 - integer, parameter :: rid_usr_CH3COCH3_OH = 366 - integer, parameter :: rid_BIGENE_NO3 = 367 - integer, parameter :: rid_BIGENE_OH = 368 - integer, parameter :: rid_ENEO2_NO = 369 - integer, parameter :: rid_ENEO2_NOb = 370 - integer, parameter :: rid_HONITR_OH = 371 - integer, parameter :: rid_MACRO2_CH3CO3 = 372 - integer, parameter :: rid_MACRO2_CH3O2 = 373 - integer, parameter :: rid_MACRO2_HO2 = 374 - integer, parameter :: rid_MACRO2_NO3 = 375 - integer, parameter :: rid_MACRO2_NOa = 376 - integer, parameter :: rid_MACRO2_NOb = 377 - integer, parameter :: rid_MACR_O3 = 378 - integer, parameter :: rid_MACR_OH = 379 - integer, parameter :: rid_MACROOH_OH = 380 - integer, parameter :: rid_MCO3_CH3CO3 = 381 - integer, parameter :: rid_MCO3_CH3O2 = 382 - integer, parameter :: rid_MCO3_HO2 = 383 - integer, parameter :: rid_MCO3_MCO3 = 384 - integer, parameter :: rid_MCO3_NO = 385 - integer, parameter :: rid_MCO3_NO3 = 386 - integer, parameter :: rid_MEKO2_HO2 = 387 - integer, parameter :: rid_MEKO2_NO = 388 - integer, parameter :: rid_MEK_OH = 389 - integer, parameter :: rid_MEKOOH_OH = 390 - integer, parameter :: rid_MPAN_OH_M = 391 - integer, parameter :: rid_MVK_O3 = 392 - integer, parameter :: rid_MVK_OH = 393 - integer, parameter :: rid_tag_MCO3_NO2 = 394 - integer, parameter :: rid_usr_MPAN_M = 395 - integer, parameter :: rid_ALKNIT_OH = 396 - integer, parameter :: rid_ALKO2_HO2 = 397 - integer, parameter :: rid_ALKO2_NO = 398 - integer, parameter :: rid_ALKO2_NOb = 399 - integer, parameter :: rid_ALKOOH_OH = 400 - integer, parameter :: rid_BIGALK_OH = 401 - integer, parameter :: rid_HPALD_OH = 402 - integer, parameter :: rid_HYDRALD_OH = 403 - integer, parameter :: rid_IEPOX_OH = 404 - integer, parameter :: rid_ISOPAO2_CH3CO3 = 405 - integer, parameter :: rid_ISOPAO2_CH3O2 = 406 - integer, parameter :: rid_ISOPAO2_HO2 = 407 - integer, parameter :: rid_ISOPAO2_NO = 408 - integer, parameter :: rid_ISOPAO2_NO3 = 409 - integer, parameter :: rid_ISOPBO2_CH3CO3 = 410 - integer, parameter :: rid_ISOPBO2_CH3O2 = 411 - integer, parameter :: rid_ISOPBO2_HO2 = 412 - integer, parameter :: rid_ISOPBO2_M = 413 - integer, parameter :: rid_ISOPBO2_NO = 414 - integer, parameter :: rid_ISOPBO2_NO3 = 415 - integer, parameter :: rid_ISOPNITA_OH = 416 - integer, parameter :: rid_ISOPNITB_OH = 417 - integer, parameter :: rid_ISOP_NO3 = 418 - integer, parameter :: rid_ISOPNO3_CH3CO3 = 419 - integer, parameter :: rid_ISOPNO3_CH3O2 = 420 - integer, parameter :: rid_ISOPNO3_HO2 = 421 - integer, parameter :: rid_ISOPNO3_NO = 422 - integer, parameter :: rid_ISOPNO3_NO3 = 423 - integer, parameter :: rid_ISOPNOOH_OH = 424 - integer, parameter :: rid_ISOP_O3 = 425 - integer, parameter :: rid_ISOP_OH = 426 - integer, parameter :: rid_ISOPOOH_OH = 427 - integer, parameter :: rid_NC4CH2OH_OH = 428 - integer, parameter :: rid_NC4CHO_OH = 429 - integer, parameter :: rid_XO2_CH3CO3 = 430 - integer, parameter :: rid_XO2_CH3O2 = 431 - integer, parameter :: rid_XO2_HO2 = 432 - integer, parameter :: rid_XO2_NO = 433 - integer, parameter :: rid_XO2_NO3 = 434 - integer, parameter :: rid_XOOH_OH = 435 - integer, parameter :: rid_ACBZO2_HO2 = 436 - integer, parameter :: rid_ACBZO2_NO = 437 - integer, parameter :: rid_BENZENE_OH = 438 - integer, parameter :: rid_BENZO2_HO2 = 439 - integer, parameter :: rid_BENZO2_NO = 440 - integer, parameter :: rid_BENZOOH_OH = 441 - integer, parameter :: rid_BZALD_OH = 442 - integer, parameter :: rid_BZOO_HO2 = 443 - integer, parameter :: rid_BZOOH_OH = 444 - integer, parameter :: rid_BZOO_NO = 445 - integer, parameter :: rid_C6H5O2_HO2 = 446 - integer, parameter :: rid_C6H5O2_NO = 447 - integer, parameter :: rid_C6H5OOH_OH = 448 - integer, parameter :: rid_CRESOL_OH = 449 - integer, parameter :: rid_DICARBO2_HO2 = 450 - integer, parameter :: rid_DICARBO2_NO = 451 - integer, parameter :: rid_DICARBO2_NO2 = 452 - integer, parameter :: rid_MALO2_HO2 = 453 - integer, parameter :: rid_MALO2_NO = 454 - integer, parameter :: rid_MALO2_NO2 = 455 - integer, parameter :: rid_MDIALO2_HO2 = 456 - integer, parameter :: rid_MDIALO2_NO = 457 - integer, parameter :: rid_MDIALO2_NO2 = 458 - integer, parameter :: rid_PHENO2_HO2 = 459 - integer, parameter :: rid_PHENO2_NO = 460 - integer, parameter :: rid_PHENOL_OH = 461 - integer, parameter :: rid_PHENO_NO2 = 462 - integer, parameter :: rid_PHENO_O3 = 463 - integer, parameter :: rid_PHENOOH_OH = 464 - integer, parameter :: rid_tag_ACBZO2_NO2 = 465 - integer, parameter :: rid_TOLO2_HO2 = 466 - integer, parameter :: rid_TOLO2_NO = 467 - integer, parameter :: rid_TOLOOH_OH = 468 - integer, parameter :: rid_TOLUENE_OH = 469 - integer, parameter :: rid_usr_PBZNIT_M = 470 - integer, parameter :: rid_XYLENES_OH = 471 - integer, parameter :: rid_XYLENO2_HO2 = 472 - integer, parameter :: rid_XYLENO2_NO = 473 - integer, parameter :: rid_XYLENOOH_OH = 474 - integer, parameter :: rid_XYLOLO2_HO2 = 475 - integer, parameter :: rid_XYLOLO2_NO = 476 - integer, parameter :: rid_XYLOL_OH = 477 - integer, parameter :: rid_XYLOLOOH_OH = 478 - integer, parameter :: rid_BCARY_NO3 = 479 - integer, parameter :: rid_BCARY_O3 = 480 - integer, parameter :: rid_BCARY_OH = 481 - integer, parameter :: rid_MTERP_NO3 = 482 - integer, parameter :: rid_MTERP_O3 = 483 - integer, parameter :: rid_MTERP_OH = 484 - integer, parameter :: rid_NTERPO2_CH3O2 = 485 - integer, parameter :: rid_NTERPO2_HO2 = 486 - integer, parameter :: rid_NTERPO2_NO = 487 - integer, parameter :: rid_NTERPO2_NO3 = 488 - integer, parameter :: rid_NTERPOOH_OH = 489 - integer, parameter :: rid_TERP2O2_CH3O2 = 490 - integer, parameter :: rid_TERP2O2_HO2 = 491 - integer, parameter :: rid_TERP2O2_NO = 492 - integer, parameter :: rid_TERP2OOH_OH = 493 - integer, parameter :: rid_TERPNIT_OH = 494 - integer, parameter :: rid_TERPO2_CH3O2 = 495 - integer, parameter :: rid_TERPO2_HO2 = 496 - integer, parameter :: rid_TERPO2_NO = 497 - integer, parameter :: rid_TERPOOH_OH = 498 - integer, parameter :: rid_TERPROD1_NO3 = 499 - integer, parameter :: rid_TERPROD1_OH = 500 - integer, parameter :: rid_TERPROD2_OH = 501 - integer, parameter :: rid_DMS_NO3 = 502 - integer, parameter :: rid_DMS_OHa = 503 - integer, parameter :: rid_OCS_O = 504 - integer, parameter :: rid_OCS_OH = 505 - integer, parameter :: rid_S_O2 = 506 - integer, parameter :: rid_SO2_OH_M = 507 - integer, parameter :: rid_S_O3 = 508 - integer, parameter :: rid_SO_BRO = 509 - integer, parameter :: rid_SO_CLO = 510 - integer, parameter :: rid_S_OH = 511 - integer, parameter :: rid_SO_NO2 = 512 - integer, parameter :: rid_SO_O2 = 513 - integer, parameter :: rid_SO_O3 = 514 - integer, parameter :: rid_SO_OCLO = 515 - integer, parameter :: rid_SO_OH = 516 - integer, parameter :: rid_usr_DMS_OH = 517 - integer, parameter :: rid_usr_SO3_H2O = 518 - integer, parameter :: rid_NH3_OH = 519 - integer, parameter :: rid_usr_GLYOXAL_aer = 520 - integer, parameter :: rid_usr_HO2_aer = 521 - integer, parameter :: rid_usr_HONITR_aer = 522 - integer, parameter :: rid_usr_ISOPNITA_aer = 523 - integer, parameter :: rid_usr_ISOPNITB_aer = 524 - integer, parameter :: rid_usr_N2O5_aer = 525 - integer, parameter :: rid_usr_NC4CH2OH_aer = 526 - integer, parameter :: rid_usr_NC4CHO_aer = 527 - integer, parameter :: rid_usr_NH4_strat_tau = 528 - integer, parameter :: rid_usr_NO2_aer = 529 - integer, parameter :: rid_usr_NO3_aer = 530 - integer, parameter :: rid_usr_NTERPOOH_aer = 531 - integer, parameter :: rid_usr_ONITR_aer = 532 - integer, parameter :: rid_usr_TERPNIT_aer = 533 - integer, parameter :: rid_BCARY_NO3_vbs = 534 - integer, parameter :: rid_BCARYO2_HO2_vbs = 535 - integer, parameter :: rid_BCARYO2_NO_vbs = 536 - integer, parameter :: rid_BCARY_O3_vbs = 537 - integer, parameter :: rid_BCARY_OH_vbs = 538 - integer, parameter :: rid_BENZENE_OH_vbs = 539 - integer, parameter :: rid_BENZO2_HO2_vbs = 540 - integer, parameter :: rid_BENZO2_NO_vbs = 541 - integer, parameter :: rid_ISOP_NO3_vbs = 542 - integer, parameter :: rid_ISOPO2_HO2_vbs = 543 - integer, parameter :: rid_ISOPO2_NO_vbs = 544 - integer, parameter :: rid_ISOP_O3_vbs = 545 - integer, parameter :: rid_ISOP_OH_vbs = 546 - integer, parameter :: rid_IVOCO2_HO2_vbs = 547 - integer, parameter :: rid_IVOCO2_NO_vbs = 548 - integer, parameter :: rid_IVOC_OH_vbs = 549 - integer, parameter :: rid_MTERP_NO3_vbs = 550 - integer, parameter :: rid_MTERPO2_HO2_vbs = 551 - integer, parameter :: rid_MTERPO2_NO_vbs = 552 - integer, parameter :: rid_MTERP_O3_vbs = 553 - integer, parameter :: rid_MTERP_OH_vbs = 554 - integer, parameter :: rid_SVOC_OH = 555 - integer, parameter :: rid_TOLUENE_OH_vbs = 556 - integer, parameter :: rid_TOLUO2_HO2_vbs = 557 - integer, parameter :: rid_TOLUO2_NO_vbs = 558 - integer, parameter :: rid_XYLENES_OH_vbs = 559 - integer, parameter :: rid_XYLEO2_HO2_vbs = 560 - integer, parameter :: rid_XYLEO2_NO_vbs = 561 - integer, parameter :: rid_het1 = 562 - integer, parameter :: rid_het10 = 563 - integer, parameter :: rid_het11 = 564 - integer, parameter :: rid_het12 = 565 - integer, parameter :: rid_het13 = 566 - integer, parameter :: rid_het14 = 567 - integer, parameter :: rid_het15 = 568 - integer, parameter :: rid_het16 = 569 - integer, parameter :: rid_het17 = 570 - integer, parameter :: rid_het2 = 571 - integer, parameter :: rid_het3 = 572 - integer, parameter :: rid_het4 = 573 - integer, parameter :: rid_het5 = 574 - integer, parameter :: rid_het6 = 575 - integer, parameter :: rid_het7 = 576 - integer, parameter :: rid_het8 = 577 - integer, parameter :: rid_het9 = 578 - integer, parameter :: rid_elec1 = 579 - integer, parameter :: rid_elec2 = 580 - integer, parameter :: rid_elec3 = 581 - integer, parameter :: rid_ion_N2p_O2 = 582 - integer, parameter :: rid_ion_N2p_Oa = 583 - integer, parameter :: rid_ion_N2p_Ob = 584 - integer, parameter :: rid_ion_Np_O = 585 - integer, parameter :: rid_ion_Np_O2a = 586 - integer, parameter :: rid_ion_Np_O2b = 587 - integer, parameter :: rid_ion_O2p_N = 588 - integer, parameter :: rid_ion_O2p_N2 = 589 - integer, parameter :: rid_ion_O2p_NO = 590 - integer, parameter :: rid_ion_Op_CO2 = 591 - integer, parameter :: rid_ion_Op_N2 = 592 - integer, parameter :: rid_ion_Op_O2 = 593 - integer, parameter :: rid_E90_tau = 594 - integer, parameter :: rid_NH_50_tau = 595 - integer, parameter :: rid_NH_5_tau = 596 - integer, parameter :: rid_ST80_25_tau = 597 + integer, parameter :: rid_O1D_O3a = 159 + integer, parameter :: rid_O2_1D_N2 = 160 + integer, parameter :: rid_O2_1D_O = 161 + integer, parameter :: rid_O2_1D_O2 = 162 + integer, parameter :: rid_O2_1S_CO2 = 163 + integer, parameter :: rid_O2_1S_N2 = 164 + integer, parameter :: rid_O2_1S_O = 165 + integer, parameter :: rid_O2_1S_O2 = 166 + integer, parameter :: rid_O2_1S_O3 = 167 + integer, parameter :: rid_O_O3 = 168 + integer, parameter :: rid_usr_O_O = 169 + integer, parameter :: rid_usr_O_O2 = 170 + integer, parameter :: rid_H2_O = 171 + integer, parameter :: rid_H2O2_O = 172 + integer, parameter :: rid_H_HO2 = 173 + integer, parameter :: rid_H_HO2a = 174 + integer, parameter :: rid_H_HO2b = 175 + integer, parameter :: rid_H_O2 = 176 + integer, parameter :: rid_HO2_O = 177 + integer, parameter :: rid_HO2_O3 = 178 + integer, parameter :: rid_H_O3 = 179 + integer, parameter :: rid_OH_H2 = 180 + integer, parameter :: rid_OH_H2O2 = 181 + integer, parameter :: rid_OH_HO2 = 182 + integer, parameter :: rid_OH_O = 183 + integer, parameter :: rid_OH_O3 = 184 + integer, parameter :: rid_OH_OH = 185 + integer, parameter :: rid_OH_OH_M = 186 + integer, parameter :: rid_usr_HO2_HO2 = 187 + integer, parameter :: rid_agn2d = 188 + integer, parameter :: rid_HO2NO2_OH = 189 + integer, parameter :: rid_N2D_NO = 190 + integer, parameter :: rid_N2D_O = 191 + integer, parameter :: rid_N_NO = 192 + integer, parameter :: rid_N_NO2a = 193 + integer, parameter :: rid_N_NO2b = 194 + integer, parameter :: rid_N_NO2c = 195 + integer, parameter :: rid_NO2_O = 196 + integer, parameter :: rid_NO2_O3 = 197 + integer, parameter :: rid_NO2_O_M = 198 + integer, parameter :: rid_NO3_HO2 = 199 + integer, parameter :: rid_NO3_NO = 200 + integer, parameter :: rid_NO3_O = 201 + integer, parameter :: rid_NO3_OH = 202 + integer, parameter :: rid_N_OH = 203 + integer, parameter :: rid_NO_HO2 = 204 + integer, parameter :: rid_NO_O3 = 205 + integer, parameter :: rid_NO_O_M = 206 + integer, parameter :: rid_O1D_N2Oa = 207 + integer, parameter :: rid_O1D_N2Ob = 208 + integer, parameter :: rid_tag_NO2_HO2 = 209 + integer, parameter :: rid_tag_NO2_NO3 = 210 + integer, parameter :: rid_tag_NO2_OH = 211 + integer, parameter :: rid_usr_HNO3_OH = 212 + integer, parameter :: rid_usr_HO2NO2_M = 213 + integer, parameter :: rid_usr_N2D_e = 214 + integer, parameter :: rid_usr_N2D_O2 = 215 + integer, parameter :: rid_usr_N2O5_M = 216 + integer, parameter :: rid_usr_N_O2 = 217 + integer, parameter :: rid_CL_CH2O = 218 + integer, parameter :: rid_CL_CH4 = 219 + integer, parameter :: rid_CL_H2 = 220 + integer, parameter :: rid_CL_H2O2 = 221 + integer, parameter :: rid_CL_HO2a = 222 + integer, parameter :: rid_CL_HO2b = 223 + integer, parameter :: rid_CL_O3 = 224 + integer, parameter :: rid_CLO_CH3O2 = 225 + integer, parameter :: rid_CLO_CLOa = 226 + integer, parameter :: rid_CLO_CLOb = 227 + integer, parameter :: rid_CLO_CLOc = 228 + integer, parameter :: rid_CLO_HO2 = 229 + integer, parameter :: rid_CLO_NO = 230 + integer, parameter :: rid_CLONO2_CL = 231 + integer, parameter :: rid_CLO_NO2_M = 232 + integer, parameter :: rid_CLONO2_O = 233 + integer, parameter :: rid_CLONO2_OH = 234 + integer, parameter :: rid_CLO_O = 235 + integer, parameter :: rid_CLO_OHa = 236 + integer, parameter :: rid_CLO_OHb = 237 + integer, parameter :: rid_HCL_O = 238 + integer, parameter :: rid_HCL_OH = 239 + integer, parameter :: rid_HOCL_CL = 240 + integer, parameter :: rid_HOCL_O = 241 + integer, parameter :: rid_HOCL_OH = 242 + integer, parameter :: rid_O1D_CCL4 = 243 + integer, parameter :: rid_O1D_CF2CLBR = 244 + integer, parameter :: rid_O1D_CFC11 = 245 + integer, parameter :: rid_O1D_CFC113 = 246 + integer, parameter :: rid_O1D_CFC114 = 247 + integer, parameter :: rid_O1D_CFC115 = 248 + integer, parameter :: rid_O1D_CFC12 = 249 + integer, parameter :: rid_O1D_HCLa = 250 + integer, parameter :: rid_O1D_HCLb = 251 + integer, parameter :: rid_tag_CLO_CLO_M = 252 + integer, parameter :: rid_usr_CL2O2_M = 253 + integer, parameter :: rid_BR_CH2O = 254 + integer, parameter :: rid_BR_HO2 = 255 + integer, parameter :: rid_BR_O3 = 256 + integer, parameter :: rid_BRO_BRO = 257 + integer, parameter :: rid_BRO_CLOa = 258 + integer, parameter :: rid_BRO_CLOb = 259 + integer, parameter :: rid_BRO_CLOc = 260 + integer, parameter :: rid_BRO_HO2 = 261 + integer, parameter :: rid_BRO_NO = 262 + integer, parameter :: rid_BRO_NO2_M = 263 + integer, parameter :: rid_BRONO2_O = 264 + integer, parameter :: rid_BRO_O = 265 + integer, parameter :: rid_BRO_OH = 266 + integer, parameter :: rid_HBR_O = 267 + integer, parameter :: rid_HBR_OH = 268 + integer, parameter :: rid_HOBR_O = 269 + integer, parameter :: rid_O1D_CF3BR = 270 + integer, parameter :: rid_O1D_CHBR3 = 271 + integer, parameter :: rid_O1D_H2402 = 272 + integer, parameter :: rid_O1D_HBRa = 273 + integer, parameter :: rid_O1D_HBRb = 274 + integer, parameter :: rid_F_CH4 = 275 + integer, parameter :: rid_F_H2 = 276 + integer, parameter :: rid_F_H2O = 277 + integer, parameter :: rid_F_HNO3 = 278 + integer, parameter :: rid_O1D_COF2 = 279 + integer, parameter :: rid_O1D_COFCL = 280 + integer, parameter :: rid_CH2BR2_CL = 281 + integer, parameter :: rid_CH2BR2_OH = 282 + integer, parameter :: rid_CH3BR_CL = 283 + integer, parameter :: rid_CH3BR_OH = 284 + integer, parameter :: rid_CH3CCL3_OH = 285 + integer, parameter :: rid_CH3CL_CL = 286 + integer, parameter :: rid_CH3CL_OH = 287 + integer, parameter :: rid_CHBR3_CL = 288 + integer, parameter :: rid_CHBR3_OH = 289 + integer, parameter :: rid_HCFC141B_OH = 290 + integer, parameter :: rid_HCFC142B_OH = 291 + integer, parameter :: rid_HCFC22_OH = 292 + integer, parameter :: rid_O1D_CH2BR2 = 293 + integer, parameter :: rid_O1D_CH3BR = 294 + integer, parameter :: rid_O1D_HCFC141B = 295 + integer, parameter :: rid_O1D_HCFC142B = 296 + integer, parameter :: rid_O1D_HCFC22 = 297 + integer, parameter :: rid_CH2O_HO2 = 298 + integer, parameter :: rid_CH2O_NO3 = 299 + integer, parameter :: rid_CH2O_O = 300 + integer, parameter :: rid_CH2O_OH = 301 + integer, parameter :: rid_CH3O2_CH3O2a = 302 + integer, parameter :: rid_CH3O2_CH3O2b = 303 + integer, parameter :: rid_CH3O2_HO2 = 304 + integer, parameter :: rid_CH3O2_NO = 305 + integer, parameter :: rid_CH3OH_OH = 306 + integer, parameter :: rid_CH3OOH_OH = 307 + integer, parameter :: rid_CH4_OH = 308 + integer, parameter :: rid_HCN_OH = 309 + integer, parameter :: rid_HCOOH_OH = 310 + integer, parameter :: rid_HOCH2OO_HO2 = 311 + integer, parameter :: rid_HOCH2OO_M = 312 + integer, parameter :: rid_HOCH2OO_NO = 313 + integer, parameter :: rid_O1D_CH4a = 314 + integer, parameter :: rid_O1D_CH4b = 315 + integer, parameter :: rid_O1D_CH4c = 316 + integer, parameter :: rid_O1D_HCN = 317 + integer, parameter :: rid_usr_CO_OH = 318 + integer, parameter :: rid_C2H2_CL_M = 319 + integer, parameter :: rid_C2H2_OH_M = 320 + integer, parameter :: rid_C2H4_CL_M = 321 + integer, parameter :: rid_C2H4_O3 = 322 + integer, parameter :: rid_C2H5O2_C2H5O2 = 323 + integer, parameter :: rid_C2H5O2_CH3O2 = 324 + integer, parameter :: rid_C2H5O2_HO2 = 325 + integer, parameter :: rid_C2H5O2_NO = 326 + integer, parameter :: rid_C2H5OH_OH = 327 + integer, parameter :: rid_C2H5OOH_OH = 328 + integer, parameter :: rid_C2H6_CL = 329 + integer, parameter :: rid_C2H6_OH = 330 + integer, parameter :: rid_CH3CHO_NO3 = 331 + integer, parameter :: rid_CH3CHO_OH = 332 + integer, parameter :: rid_CH3CN_OH = 333 + integer, parameter :: rid_CH3CO3_CH3CO3 = 334 + integer, parameter :: rid_CH3CO3_CH3O2 = 335 + integer, parameter :: rid_CH3CO3_HO2 = 336 + integer, parameter :: rid_CH3CO3_NO = 337 + integer, parameter :: rid_CH3COOH_OH = 338 + integer, parameter :: rid_CH3COOOH_OH = 339 + integer, parameter :: rid_EO2_HO2 = 340 + integer, parameter :: rid_EO2_NO = 341 + integer, parameter :: rid_EO_M = 342 + integer, parameter :: rid_EO_O2 = 343 + integer, parameter :: rid_GLYALD_OH = 344 + integer, parameter :: rid_GLYOXAL_OH = 345 + integer, parameter :: rid_PAN_OH = 346 + integer, parameter :: rid_tag_C2H4_OH = 347 + integer, parameter :: rid_tag_CH3CO3_NO2 = 348 + integer, parameter :: rid_usr_PAN_M = 349 + integer, parameter :: rid_C3H6_NO3 = 350 + integer, parameter :: rid_C3H6_O3 = 351 + integer, parameter :: rid_C3H7O2_CH3O2 = 352 + integer, parameter :: rid_C3H7O2_HO2 = 353 + integer, parameter :: rid_C3H7O2_NO = 354 + integer, parameter :: rid_C3H7OOH_OH = 355 + integer, parameter :: rid_C3H8_OH = 356 + integer, parameter :: rid_CH3COCHO_NO3 = 357 + integer, parameter :: rid_CH3COCHO_OH = 358 + integer, parameter :: rid_CL_C3H8 = 359 + integer, parameter :: rid_HYAC_OH = 360 + integer, parameter :: rid_NOA_OH = 361 + integer, parameter :: rid_PO2_HO2 = 362 + integer, parameter :: rid_PO2_NO = 363 + integer, parameter :: rid_POOH_OH = 364 + integer, parameter :: rid_RO2_CH3O2 = 365 + integer, parameter :: rid_RO2_HO2 = 366 + integer, parameter :: rid_RO2_NO = 367 + integer, parameter :: rid_ROOH_OH = 368 + integer, parameter :: rid_tag_C3H6_OH = 369 + integer, parameter :: rid_usr_CH3COCH3_OH = 370 + integer, parameter :: rid_BIGENE_NO3 = 371 + integer, parameter :: rid_BIGENE_OH = 372 + integer, parameter :: rid_ENEO2_NO = 373 + integer, parameter :: rid_ENEO2_NOb = 374 + integer, parameter :: rid_HONITR_OH = 375 + integer, parameter :: rid_MACRO2_CH3CO3 = 376 + integer, parameter :: rid_MACRO2_CH3O2 = 377 + integer, parameter :: rid_MACRO2_HO2 = 378 + integer, parameter :: rid_MACRO2_NO3 = 379 + integer, parameter :: rid_MACRO2_NOa = 380 + integer, parameter :: rid_MACRO2_NOb = 381 + integer, parameter :: rid_MACR_O3 = 382 + integer, parameter :: rid_MACR_OH = 383 + integer, parameter :: rid_MACROOH_OH = 384 + integer, parameter :: rid_MCO3_CH3CO3 = 385 + integer, parameter :: rid_MCO3_CH3O2 = 386 + integer, parameter :: rid_MCO3_HO2 = 387 + integer, parameter :: rid_MCO3_MCO3 = 388 + integer, parameter :: rid_MCO3_NO = 389 + integer, parameter :: rid_MCO3_NO3 = 390 + integer, parameter :: rid_MEKO2_HO2 = 391 + integer, parameter :: rid_MEKO2_NO = 392 + integer, parameter :: rid_MEK_OH = 393 + integer, parameter :: rid_MEKOOH_OH = 394 + integer, parameter :: rid_MPAN_OH_M = 395 + integer, parameter :: rid_MVK_O3 = 396 + integer, parameter :: rid_MVK_OH = 397 + integer, parameter :: rid_tag_MCO3_NO2 = 398 + integer, parameter :: rid_usr_MPAN_M = 399 + integer, parameter :: rid_ALKNIT_OH = 400 + integer, parameter :: rid_ALKO2_HO2 = 401 + integer, parameter :: rid_ALKO2_NO = 402 + integer, parameter :: rid_ALKO2_NOb = 403 + integer, parameter :: rid_ALKOOH_OH = 404 + integer, parameter :: rid_BIGALK_OH = 405 + integer, parameter :: rid_HPALD_OH = 406 + integer, parameter :: rid_HYDRALD_OH = 407 + integer, parameter :: rid_IEPOX_OH = 408 + integer, parameter :: rid_ISOPAO2_CH3CO3 = 409 + integer, parameter :: rid_ISOPAO2_CH3O2 = 410 + integer, parameter :: rid_ISOPAO2_HO2 = 411 + integer, parameter :: rid_ISOPAO2_NO = 412 + integer, parameter :: rid_ISOPAO2_NO3 = 413 + integer, parameter :: rid_ISOPBO2_CH3CO3 = 414 + integer, parameter :: rid_ISOPBO2_CH3O2 = 415 + integer, parameter :: rid_ISOPBO2_HO2 = 416 + integer, parameter :: rid_ISOPBO2_M = 417 + integer, parameter :: rid_ISOPBO2_NO = 418 + integer, parameter :: rid_ISOPBO2_NO3 = 419 + integer, parameter :: rid_ISOPNITA_OH = 420 + integer, parameter :: rid_ISOPNITB_OH = 421 + integer, parameter :: rid_ISOP_NO3 = 422 + integer, parameter :: rid_ISOPNO3_CH3CO3 = 423 + integer, parameter :: rid_ISOPNO3_CH3O2 = 424 + integer, parameter :: rid_ISOPNO3_HO2 = 425 + integer, parameter :: rid_ISOPNO3_NO = 426 + integer, parameter :: rid_ISOPNO3_NO3 = 427 + integer, parameter :: rid_ISOPNOOH_OH = 428 + integer, parameter :: rid_ISOP_O3 = 429 + integer, parameter :: rid_ISOP_OH = 430 + integer, parameter :: rid_ISOPOOH_OH = 431 + integer, parameter :: rid_NC4CH2OH_OH = 432 + integer, parameter :: rid_NC4CHO_OH = 433 + integer, parameter :: rid_XO2_CH3CO3 = 434 + integer, parameter :: rid_XO2_CH3O2 = 435 + integer, parameter :: rid_XO2_HO2 = 436 + integer, parameter :: rid_XO2_NO = 437 + integer, parameter :: rid_XO2_NO3 = 438 + integer, parameter :: rid_XOOH_OH = 439 + integer, parameter :: rid_ACBZO2_HO2 = 440 + integer, parameter :: rid_ACBZO2_NO = 441 + integer, parameter :: rid_BENZENE_OH = 442 + integer, parameter :: rid_BENZO2_HO2 = 443 + integer, parameter :: rid_BENZO2_NO = 444 + integer, parameter :: rid_BENZOOH_OH = 445 + integer, parameter :: rid_BZALD_OH = 446 + integer, parameter :: rid_BZOO_HO2 = 447 + integer, parameter :: rid_BZOOH_OH = 448 + integer, parameter :: rid_BZOO_NO = 449 + integer, parameter :: rid_C6H5O2_HO2 = 450 + integer, parameter :: rid_C6H5O2_NO = 451 + integer, parameter :: rid_C6H5OOH_OH = 452 + integer, parameter :: rid_CRESOL_OH = 453 + integer, parameter :: rid_DICARBO2_HO2 = 454 + integer, parameter :: rid_DICARBO2_NO = 455 + integer, parameter :: rid_DICARBO2_NO2 = 456 + integer, parameter :: rid_MALO2_HO2 = 457 + integer, parameter :: rid_MALO2_NO = 458 + integer, parameter :: rid_MALO2_NO2 = 459 + integer, parameter :: rid_MDIALO2_HO2 = 460 + integer, parameter :: rid_MDIALO2_NO = 461 + integer, parameter :: rid_MDIALO2_NO2 = 462 + integer, parameter :: rid_PHENO2_HO2 = 463 + integer, parameter :: rid_PHENO2_NO = 464 + integer, parameter :: rid_PHENOL_OH = 465 + integer, parameter :: rid_PHENO_NO2 = 466 + integer, parameter :: rid_PHENO_O3 = 467 + integer, parameter :: rid_PHENOOH_OH = 468 + integer, parameter :: rid_tag_ACBZO2_NO2 = 469 + integer, parameter :: rid_TOLO2_HO2 = 470 + integer, parameter :: rid_TOLO2_NO = 471 + integer, parameter :: rid_TOLOOH_OH = 472 + integer, parameter :: rid_TOLUENE_OH = 473 + integer, parameter :: rid_usr_PBZNIT_M = 474 + integer, parameter :: rid_XYLENES_OH = 475 + integer, parameter :: rid_XYLENO2_HO2 = 476 + integer, parameter :: rid_XYLENO2_NO = 477 + integer, parameter :: rid_XYLENOOH_OH = 478 + integer, parameter :: rid_XYLOLO2_HO2 = 479 + integer, parameter :: rid_XYLOLO2_NO = 480 + integer, parameter :: rid_XYLOL_OH = 481 + integer, parameter :: rid_XYLOLOOH_OH = 482 + integer, parameter :: rid_BCARY_NO3 = 483 + integer, parameter :: rid_BCARY_O3 = 484 + integer, parameter :: rid_BCARY_OH = 485 + integer, parameter :: rid_MTERP_NO3 = 486 + integer, parameter :: rid_MTERP_O3 = 487 + integer, parameter :: rid_MTERP_OH = 488 + integer, parameter :: rid_NTERPO2_CH3O2 = 489 + integer, parameter :: rid_NTERPO2_HO2 = 490 + integer, parameter :: rid_NTERPO2_NO = 491 + integer, parameter :: rid_NTERPO2_NO3 = 492 + integer, parameter :: rid_NTERPOOH_OH = 493 + integer, parameter :: rid_TERP2O2_CH3O2 = 494 + integer, parameter :: rid_TERP2O2_HO2 = 495 + integer, parameter :: rid_TERP2O2_NO = 496 + integer, parameter :: rid_TERP2OOH_OH = 497 + integer, parameter :: rid_TERPNIT_OH = 498 + integer, parameter :: rid_TERPO2_CH3O2 = 499 + integer, parameter :: rid_TERPO2_HO2 = 500 + integer, parameter :: rid_TERPO2_NO = 501 + integer, parameter :: rid_TERPOOH_OH = 502 + integer, parameter :: rid_TERPROD1_NO3 = 503 + integer, parameter :: rid_TERPROD1_OH = 504 + integer, parameter :: rid_TERPROD2_OH = 505 + integer, parameter :: rid_DMS_NO3 = 506 + integer, parameter :: rid_DMS_OHa = 507 + integer, parameter :: rid_OCS_O = 508 + integer, parameter :: rid_OCS_OH = 509 + integer, parameter :: rid_S_O2 = 510 + integer, parameter :: rid_SO2_OH_M = 511 + integer, parameter :: rid_S_O3 = 512 + integer, parameter :: rid_SO_BRO = 513 + integer, parameter :: rid_SO_CLO = 514 + integer, parameter :: rid_S_OH = 515 + integer, parameter :: rid_SO_NO2 = 516 + integer, parameter :: rid_SO_O2 = 517 + integer, parameter :: rid_SO_O3 = 518 + integer, parameter :: rid_SO_OCLO = 519 + integer, parameter :: rid_SO_OH = 520 + integer, parameter :: rid_usr_DMS_OH = 521 + integer, parameter :: rid_usr_SO3_H2O = 522 + integer, parameter :: rid_NH3_OH = 523 + integer, parameter :: rid_usr_GLYOXAL_aer = 524 + integer, parameter :: rid_usr_HO2_aer = 525 + integer, parameter :: rid_usr_HONITR_aer = 526 + integer, parameter :: rid_usr_ISOPNITA_aer = 527 + integer, parameter :: rid_usr_ISOPNITB_aer = 528 + integer, parameter :: rid_usr_N2O5_aer = 529 + integer, parameter :: rid_usr_NC4CH2OH_aer = 530 + integer, parameter :: rid_usr_NC4CHO_aer = 531 + integer, parameter :: rid_usr_NH4_strat_tau = 532 + integer, parameter :: rid_usr_NO2_aer = 533 + integer, parameter :: rid_usr_NO3_aer = 534 + integer, parameter :: rid_usr_NTERPOOH_aer = 535 + integer, parameter :: rid_usr_ONITR_aer = 536 + integer, parameter :: rid_usr_TERPNIT_aer = 537 + integer, parameter :: rid_BCARY_NO3_vbs = 538 + integer, parameter :: rid_BCARYO2_HO2_vbs = 539 + integer, parameter :: rid_BCARYO2_NO_vbs = 540 + integer, parameter :: rid_BCARY_O3_vbs = 541 + integer, parameter :: rid_BCARY_OH_vbs = 542 + integer, parameter :: rid_BENZENE_OH_vbs = 543 + integer, parameter :: rid_BENZO2_HO2_vbs = 544 + integer, parameter :: rid_BENZO2_NO_vbs = 545 + integer, parameter :: rid_ISOP_NO3_vbs = 546 + integer, parameter :: rid_ISOPO2_HO2_vbs = 547 + integer, parameter :: rid_ISOPO2_NO_vbs = 548 + integer, parameter :: rid_ISOP_O3_vbs = 549 + integer, parameter :: rid_ISOP_OH_vbs = 550 + integer, parameter :: rid_IVOCO2_HO2_vbs = 551 + integer, parameter :: rid_IVOCO2_NO_vbs = 552 + integer, parameter :: rid_IVOC_OH_vbs = 553 + integer, parameter :: rid_MTERP_NO3_vbs = 554 + integer, parameter :: rid_MTERPO2_HO2_vbs = 555 + integer, parameter :: rid_MTERPO2_NO_vbs = 556 + integer, parameter :: rid_MTERP_O3_vbs = 557 + integer, parameter :: rid_MTERP_OH_vbs = 558 + integer, parameter :: rid_SVOC_OH = 559 + integer, parameter :: rid_TOLUENE_OH_vbs = 560 + integer, parameter :: rid_TOLUO2_HO2_vbs = 561 + integer, parameter :: rid_TOLUO2_NO_vbs = 562 + integer, parameter :: rid_XYLENES_OH_vbs = 563 + integer, parameter :: rid_XYLEO2_HO2_vbs = 564 + integer, parameter :: rid_XYLEO2_NO_vbs = 565 + integer, parameter :: rid_het1 = 566 + integer, parameter :: rid_het10 = 567 + integer, parameter :: rid_het11 = 568 + integer, parameter :: rid_het12 = 569 + integer, parameter :: rid_het13 = 570 + integer, parameter :: rid_het14 = 571 + integer, parameter :: rid_het15 = 572 + integer, parameter :: rid_het16 = 573 + integer, parameter :: rid_het17 = 574 + integer, parameter :: rid_het2 = 575 + integer, parameter :: rid_het3 = 576 + integer, parameter :: rid_het4 = 577 + integer, parameter :: rid_het5 = 578 + integer, parameter :: rid_het6 = 579 + integer, parameter :: rid_het7 = 580 + integer, parameter :: rid_het8 = 581 + integer, parameter :: rid_het9 = 582 + integer, parameter :: rid_elec1 = 583 + integer, parameter :: rid_elec2 = 584 + integer, parameter :: rid_elec3 = 585 + integer, parameter :: rid_ion_N2p_O2 = 586 + integer, parameter :: rid_ion_N2p_Oa = 587 + integer, parameter :: rid_ion_N2p_Ob = 588 + integer, parameter :: rid_ion_Np_O = 589 + integer, parameter :: rid_ion_Np_O2a = 590 + integer, parameter :: rid_ion_Np_O2b = 591 + integer, parameter :: rid_ion_O2p_N = 592 + integer, parameter :: rid_ion_O2p_N2 = 593 + integer, parameter :: rid_ion_O2p_NO = 594 + integer, parameter :: rid_ion_Op_CO2 = 595 + integer, parameter :: rid_ion_Op_N2 = 596 + integer, parameter :: rid_ion_Op_O2 = 597 + integer, parameter :: rid_E90_tau = 598 + integer, parameter :: rid_NH_50_tau = 599 + integer, parameter :: rid_NH_5_tau = 600 + integer, parameter :: rid_ST80_25_tau = 601 end module m_rxt_id diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_adjrxt.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_adjrxt.F90 index a4ce68a0cf..f84c5cf297 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_adjrxt.F90 @@ -14,51 +14,51 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) real(r8), intent(in) :: m(ncol,nlev) real(r8), intent(inout) :: rate(ncol,nlev,rxntot) rate(:,:, 155) = rate(:,:, 155) * inv(:,:, 2) - rate(:,:, 159) = rate(:,:, 159) * inv(:,:, 2) - rate(:,:, 163) = rate(:,:, 163) * inv(:,:, 2) - rate(:,:, 168) = rate(:,:, 168) * inv(:,:, 1) + rate(:,:, 160) = rate(:,:, 160) * inv(:,:, 2) + rate(:,:, 164) = rate(:,:, 164) * inv(:,:, 2) rate(:,:, 169) = rate(:,:, 169) * inv(:,:, 1) - rate(:,:, 175) = rate(:,:, 175) * inv(:,:, 1) - rate(:,:, 185) = rate(:,:, 185) * inv(:,:, 1) - rate(:,:, 197) = rate(:,:, 197) * inv(:,:, 1) - rate(:,:, 205) = rate(:,:, 205) * inv(:,:, 1) - rate(:,:, 208) = rate(:,:, 208) * inv(:,:, 1) + rate(:,:, 170) = rate(:,:, 170) * inv(:,:, 1) + rate(:,:, 176) = rate(:,:, 176) * inv(:,:, 1) + rate(:,:, 186) = rate(:,:, 186) * inv(:,:, 1) + rate(:,:, 198) = rate(:,:, 198) * inv(:,:, 1) + rate(:,:, 206) = rate(:,:, 206) * inv(:,:, 1) rate(:,:, 209) = rate(:,:, 209) * inv(:,:, 1) rate(:,:, 210) = rate(:,:, 210) * inv(:,:, 1) - rate(:,:, 212) = rate(:,:, 212) * inv(:,:, 1) + rate(:,:, 211) = rate(:,:, 211) * inv(:,:, 1) rate(:,:, 213) = rate(:,:, 213) * inv(:,:, 1) - rate(:,:, 228) = rate(:,:, 228) * inv(:,:, 1) - rate(:,:, 248) = rate(:,:, 248) * inv(:,:, 1) - rate(:,:, 249) = rate(:,:, 249) * inv(:,:, 1) - rate(:,:, 259) = rate(:,:, 259) * inv(:,:, 1) - rate(:,:, 305) = rate(:,:, 305) * inv(:,:, 1) - rate(:,:, 315) = rate(:,:, 315) * inv(:,:, 1) - rate(:,:, 316) = rate(:,:, 316) * inv(:,:, 1) - rate(:,:, 317) = rate(:,:, 317) * inv(:,:, 1) - rate(:,:, 343) = rate(:,:, 343) * inv(:,:, 1) - rate(:,:, 344) = rate(:,:, 344) * inv(:,:, 1) - rate(:,:, 345) = rate(:,:, 345) * inv(:,:, 1) - rate(:,:, 365) = rate(:,:, 365) * inv(:,:, 1) - rate(:,:, 391) = rate(:,:, 391) * inv(:,:, 1) - rate(:,:, 394) = rate(:,:, 394) * inv(:,:, 1) + rate(:,:, 216) = rate(:,:, 216) * inv(:,:, 1) + rate(:,:, 232) = rate(:,:, 232) * inv(:,:, 1) + rate(:,:, 252) = rate(:,:, 252) * inv(:,:, 1) + rate(:,:, 253) = rate(:,:, 253) * inv(:,:, 1) + rate(:,:, 263) = rate(:,:, 263) * inv(:,:, 1) + rate(:,:, 309) = rate(:,:, 309) * inv(:,:, 1) + rate(:,:, 319) = rate(:,:, 319) * inv(:,:, 1) + rate(:,:, 320) = rate(:,:, 320) * inv(:,:, 1) + rate(:,:, 321) = rate(:,:, 321) * inv(:,:, 1) + rate(:,:, 347) = rate(:,:, 347) * inv(:,:, 1) + rate(:,:, 348) = rate(:,:, 348) * inv(:,:, 1) + rate(:,:, 349) = rate(:,:, 349) * inv(:,:, 1) + rate(:,:, 369) = rate(:,:, 369) * inv(:,:, 1) rate(:,:, 395) = rate(:,:, 395) * inv(:,:, 1) - rate(:,:, 452) = rate(:,:, 452) * inv(:,:, 1) - rate(:,:, 455) = rate(:,:, 455) * inv(:,:, 1) - rate(:,:, 458) = rate(:,:, 458) * inv(:,:, 1) - rate(:,:, 465) = rate(:,:, 465) * inv(:,:, 1) - rate(:,:, 470) = rate(:,:, 470) * inv(:,:, 1) - rate(:,:, 507) = rate(:,:, 507) * inv(:,:, 1) - rate(:,:, 589) = rate(:,:, 589) * inv(:,:, 2) - rate(:,:, 592) = rate(:,:, 592) * inv(:,:, 2) + rate(:,:, 398) = rate(:,:, 398) * inv(:,:, 1) + rate(:,:, 399) = rate(:,:, 399) * inv(:,:, 1) + rate(:,:, 456) = rate(:,:, 456) * inv(:,:, 1) + rate(:,:, 459) = rate(:,:, 459) * inv(:,:, 1) + rate(:,:, 462) = rate(:,:, 462) * inv(:,:, 1) + rate(:,:, 469) = rate(:,:, 469) * inv(:,:, 1) + rate(:,:, 474) = rate(:,:, 474) * inv(:,:, 1) + rate(:,:, 511) = rate(:,:, 511) * inv(:,:, 1) + rate(:,:, 593) = rate(:,:, 593) * inv(:,:, 2) + rate(:,:, 596) = rate(:,:, 596) * inv(:,:, 2) rate(:,:, 153) = rate(:,:, 153) * m(:,:) rate(:,:, 154) = rate(:,:, 154) * m(:,:) rate(:,:, 156) = rate(:,:, 156) * m(:,:) rate(:,:, 157) = rate(:,:, 157) * m(:,:) rate(:,:, 158) = rate(:,:, 158) * m(:,:) - rate(:,:, 160) = rate(:,:, 160) * m(:,:) + rate(:,:, 159) = rate(:,:, 159) * m(:,:) rate(:,:, 161) = rate(:,:, 161) * m(:,:) rate(:,:, 162) = rate(:,:, 162) * m(:,:) - rate(:,:, 164) = rate(:,:, 164) * m(:,:) + rate(:,:, 163) = rate(:,:, 163) * m(:,:) rate(:,:, 165) = rate(:,:, 165) * m(:,:) rate(:,:, 166) = rate(:,:, 166) * m(:,:) rate(:,:, 167) = rate(:,:, 167) * m(:,:) @@ -82,7 +82,6 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 185) = rate(:,:, 185) * m(:,:) rate(:,:, 186) = rate(:,:, 186) * m(:,:) rate(:,:, 187) = rate(:,:, 187) * m(:,:) - rate(:,:, 188) = rate(:,:, 188) * m(:,:) rate(:,:, 189) = rate(:,:, 189) * m(:,:) rate(:,:, 190) = rate(:,:, 190) * m(:,:) rate(:,:, 191) = rate(:,:, 191) * m(:,:) @@ -106,9 +105,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 209) = rate(:,:, 209) * m(:,:) rate(:,:, 210) = rate(:,:, 210) * m(:,:) rate(:,:, 211) = rate(:,:, 211) * m(:,:) + rate(:,:, 212) = rate(:,:, 212) * m(:,:) rate(:,:, 214) = rate(:,:, 214) * m(:,:) rate(:,:, 215) = rate(:,:, 215) * m(:,:) - rate(:,:, 216) = rate(:,:, 216) * m(:,:) rate(:,:, 217) = rate(:,:, 217) * m(:,:) rate(:,:, 218) = rate(:,:, 218) * m(:,:) rate(:,:, 219) = rate(:,:, 219) * m(:,:) @@ -141,10 +140,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 246) = rate(:,:, 246) * m(:,:) rate(:,:, 247) = rate(:,:, 247) * m(:,:) rate(:,:, 248) = rate(:,:, 248) * m(:,:) + rate(:,:, 249) = rate(:,:, 249) * m(:,:) rate(:,:, 250) = rate(:,:, 250) * m(:,:) rate(:,:, 251) = rate(:,:, 251) * m(:,:) rate(:,:, 252) = rate(:,:, 252) * m(:,:) - rate(:,:, 253) = rate(:,:, 253) * m(:,:) rate(:,:, 254) = rate(:,:, 254) * m(:,:) rate(:,:, 255) = rate(:,:, 255) * m(:,:) rate(:,:, 256) = rate(:,:, 256) * m(:,:) @@ -199,10 +198,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 305) = rate(:,:, 305) * m(:,:) rate(:,:, 306) = rate(:,:, 306) * m(:,:) rate(:,:, 307) = rate(:,:, 307) * m(:,:) + rate(:,:, 308) = rate(:,:, 308) * m(:,:) rate(:,:, 309) = rate(:,:, 309) * m(:,:) rate(:,:, 310) = rate(:,:, 310) * m(:,:) rate(:,:, 311) = rate(:,:, 311) * m(:,:) - rate(:,:, 312) = rate(:,:, 312) * m(:,:) rate(:,:, 313) = rate(:,:, 313) * m(:,:) rate(:,:, 314) = rate(:,:, 314) * m(:,:) rate(:,:, 315) = rate(:,:, 315) * m(:,:) @@ -228,16 +227,16 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 335) = rate(:,:, 335) * m(:,:) rate(:,:, 336) = rate(:,:, 336) * m(:,:) rate(:,:, 337) = rate(:,:, 337) * m(:,:) + rate(:,:, 338) = rate(:,:, 338) * m(:,:) rate(:,:, 339) = rate(:,:, 339) * m(:,:) rate(:,:, 340) = rate(:,:, 340) * m(:,:) rate(:,:, 341) = rate(:,:, 341) * m(:,:) - rate(:,:, 342) = rate(:,:, 342) * m(:,:) rate(:,:, 343) = rate(:,:, 343) * m(:,:) rate(:,:, 344) = rate(:,:, 344) * m(:,:) + rate(:,:, 345) = rate(:,:, 345) * m(:,:) rate(:,:, 346) = rate(:,:, 346) * m(:,:) rate(:,:, 347) = rate(:,:, 347) * m(:,:) rate(:,:, 348) = rate(:,:, 348) * m(:,:) - rate(:,:, 349) = rate(:,:, 349) * m(:,:) rate(:,:, 350) = rate(:,:, 350) * m(:,:) rate(:,:, 351) = rate(:,:, 351) * m(:,:) rate(:,:, 352) = rate(:,:, 352) * m(:,:) @@ -283,10 +282,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 392) = rate(:,:, 392) * m(:,:) rate(:,:, 393) = rate(:,:, 393) * m(:,:) rate(:,:, 394) = rate(:,:, 394) * m(:,:) + rate(:,:, 395) = rate(:,:, 395) * m(:,:) rate(:,:, 396) = rate(:,:, 396) * m(:,:) rate(:,:, 397) = rate(:,:, 397) * m(:,:) rate(:,:, 398) = rate(:,:, 398) * m(:,:) - rate(:,:, 399) = rate(:,:, 399) * m(:,:) rate(:,:, 400) = rate(:,:, 400) * m(:,:) rate(:,:, 401) = rate(:,:, 401) * m(:,:) rate(:,:, 402) = rate(:,:, 402) * m(:,:) @@ -300,10 +299,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 410) = rate(:,:, 410) * m(:,:) rate(:,:, 411) = rate(:,:, 411) * m(:,:) rate(:,:, 412) = rate(:,:, 412) * m(:,:) + rate(:,:, 413) = rate(:,:, 413) * m(:,:) rate(:,:, 414) = rate(:,:, 414) * m(:,:) rate(:,:, 415) = rate(:,:, 415) * m(:,:) rate(:,:, 416) = rate(:,:, 416) * m(:,:) - rate(:,:, 417) = rate(:,:, 417) * m(:,:) rate(:,:, 418) = rate(:,:, 418) * m(:,:) rate(:,:, 419) = rate(:,:, 419) * m(:,:) rate(:,:, 420) = rate(:,:, 420) * m(:,:) @@ -356,10 +355,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 467) = rate(:,:, 467) * m(:,:) rate(:,:, 468) = rate(:,:, 468) * m(:,:) rate(:,:, 469) = rate(:,:, 469) * m(:,:) + rate(:,:, 470) = rate(:,:, 470) * m(:,:) rate(:,:, 471) = rate(:,:, 471) * m(:,:) rate(:,:, 472) = rate(:,:, 472) * m(:,:) rate(:,:, 473) = rate(:,:, 473) * m(:,:) - rate(:,:, 474) = rate(:,:, 474) * m(:,:) rate(:,:, 475) = rate(:,:, 475) * m(:,:) rate(:,:, 476) = rate(:,:, 476) * m(:,:) rate(:,:, 477) = rate(:,:, 477) * m(:,:) @@ -405,10 +404,10 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 517) = rate(:,:, 517) * m(:,:) rate(:,:, 518) = rate(:,:, 518) * m(:,:) rate(:,:, 519) = rate(:,:, 519) * m(:,:) - rate(:,:, 534) = rate(:,:, 534) * m(:,:) - rate(:,:, 535) = rate(:,:, 535) * m(:,:) - rate(:,:, 536) = rate(:,:, 536) * m(:,:) - rate(:,:, 537) = rate(:,:, 537) * m(:,:) + rate(:,:, 520) = rate(:,:, 520) * m(:,:) + rate(:,:, 521) = rate(:,:, 521) * m(:,:) + rate(:,:, 522) = rate(:,:, 522) * m(:,:) + rate(:,:, 523) = rate(:,:, 523) * m(:,:) rate(:,:, 538) = rate(:,:, 538) * m(:,:) rate(:,:, 539) = rate(:,:, 539) * m(:,:) rate(:,:, 540) = rate(:,:, 540) * m(:,:) @@ -433,17 +432,17 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 559) = rate(:,:, 559) * m(:,:) rate(:,:, 560) = rate(:,:, 560) * m(:,:) rate(:,:, 561) = rate(:,:, 561) * m(:,:) + rate(:,:, 562) = rate(:,:, 562) * m(:,:) rate(:,:, 563) = rate(:,:, 563) * m(:,:) - rate(:,:, 568) = rate(:,:, 568) * m(:,:) - rate(:,:, 569) = rate(:,:, 569) * m(:,:) - rate(:,:, 570) = rate(:,:, 570) * m(:,:) + rate(:,:, 564) = rate(:,:, 564) * m(:,:) + rate(:,:, 565) = rate(:,:, 565) * m(:,:) + rate(:,:, 567) = rate(:,:, 567) * m(:,:) + rate(:,:, 572) = rate(:,:, 572) * m(:,:) rate(:,:, 573) = rate(:,:, 573) * m(:,:) rate(:,:, 574) = rate(:,:, 574) * m(:,:) - rate(:,:, 575) = rate(:,:, 575) * m(:,:) + rate(:,:, 577) = rate(:,:, 577) * m(:,:) rate(:,:, 578) = rate(:,:, 578) * m(:,:) rate(:,:, 579) = rate(:,:, 579) * m(:,:) - rate(:,:, 580) = rate(:,:, 580) * m(:,:) - rate(:,:, 581) = rate(:,:, 581) * m(:,:) rate(:,:, 582) = rate(:,:, 582) * m(:,:) rate(:,:, 583) = rate(:,:, 583) * m(:,:) rate(:,:, 584) = rate(:,:, 584) * m(:,:) @@ -451,8 +450,12 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 586) = rate(:,:, 586) * m(:,:) rate(:,:, 587) = rate(:,:, 587) * m(:,:) rate(:,:, 588) = rate(:,:, 588) * m(:,:) + rate(:,:, 589) = rate(:,:, 589) * m(:,:) rate(:,:, 590) = rate(:,:, 590) * m(:,:) rate(:,:, 591) = rate(:,:, 591) * m(:,:) - rate(:,:, 593) = rate(:,:, 593) * m(:,:) + rate(:,:, 592) = rate(:,:, 592) * m(:,:) + rate(:,:, 594) = rate(:,:, 594) * m(:,:) + rate(:,:, 595) = rate(:,:, 595) * m(:,:) + rate(:,:, 597) = rate(:,:, 597) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_indprd.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_indprd.F90 index 8478ca4bad..5c9a682964 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_indprd.F90 @@ -20,40 +20,40 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) ! ... "independent" production for Explicit species !-------------------------------------------------------------------- if( class == 1 ) then - prod(:,1) =rxt(:,519)*y(:,228)*y(:,120) +rxt(:,528)*y(:,121) - prod(:,2) = (rxt(:,452)*y(:,202) +rxt(:,455)*y(:,214) +rxt(:,458)*y(:,216) + & - rxt(:,462)*y(:,143))*y(:,125) +.500_r8*rxt(:,391)*y(:,228)*y(:,109) & - +.200_r8*rxt(:,487)*y(:,223)*y(:,124) +.500_r8*rxt(:,499)*y(:,180) & + prod(:,1) =rxt(:,523)*y(:,228)*y(:,120) +rxt(:,532)*y(:,121) + prod(:,2) = (rxt(:,456)*y(:,202) +rxt(:,459)*y(:,214) +rxt(:,462)*y(:,216) + & + rxt(:,466)*y(:,143))*y(:,125) +.500_r8*rxt(:,395)*y(:,228)*y(:,109) & + +.200_r8*rxt(:,491)*y(:,223)*y(:,124) +.500_r8*rxt(:,503)*y(:,180) & *y(:,126) !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then - prod(:,155) = 0._r8 + prod(:,156) = 0._r8 prod(:,159) = 0._r8 - prod(:,1) = + extfrc(:,18) + prod(:,1) = + extfrc(:,16) prod(:,2) = 0._r8 - prod(:,3) = + extfrc(:,14) - prod(:,188) = 0._r8 + prod(:,3) = + extfrc(:,12) + prod(:,189) = 0._r8 prod(:,71) = 0._r8 prod(:,122) = 0._r8 prod(:,72) = 0._r8 prod(:,116) = 0._r8 prod(:,130) = 0._r8 prod(:,98) = 0._r8 - prod(:,149) = 0._r8 + prod(:,148) = 0._r8 prod(:,108) = 0._r8 prod(:,85) = 0._r8 prod(:,113) = 0._r8 prod(:,221) = 0._r8 prod(:,86) = 0._r8 - prod(:,223) = 0._r8 - prod(:,145) = 0._r8 + prod(:,224) = 0._r8 + prod(:,144) = 0._r8 prod(:,4) = 0._r8 prod(:,88) = 0._r8 prod(:,111) = 0._r8 prod(:,100) = 0._r8 - prod(:,143) = 0._r8 + prod(:,142) = 0._r8 prod(:,95) = 0._r8 prod(:,112) = 0._r8 prod(:,102) = 0._r8 @@ -71,7 +71,7 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,61) = 0._r8 prod(:,133) = 0._r8 prod(:,229) = 0._r8 - prod(:,150) = 0._r8 + prod(:,149) = 0._r8 prod(:,62) = 0._r8 prod(:,200) = 0._r8 prod(:,115) = 0._r8 @@ -79,15 +79,15 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,195) = 0._r8 prod(:,210) = 0._r8 prod(:,161) = 0._r8 - prod(:,152) = 0._r8 + prod(:,151) = 0._r8 prod(:,173) = 0._r8 prod(:,128) = 0._r8 - prod(:,236) = 0._r8 + prod(:,223) = 0._r8 prod(:,117) = 0._r8 - prod(:,234) = 0._r8 + prod(:,227) = 0._r8 prod(:,74) = 0._r8 prod(:,54) = 0._r8 - prod(:,224) = 0._r8 + prod(:,233) = 0._r8 prod(:,187) = 0._r8 prod(:,5) = 0._r8 prod(:,201) = + extfrc(:,1) @@ -103,8 +103,8 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,63) = 0._r8 prod(:,184) = 0._r8 prod(:,202) = 0._r8 - prod(:,192) = 0._r8 - prod(:,233) = 0._r8 + prod(:,191) = 0._r8 + prod(:,234) = 0._r8 prod(:,218) = 0._r8 prod(:,58) = 0._r8 prod(:,147) = 0._r8 @@ -117,8 +117,8 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,77) = 0._r8 prod(:,183) = 0._r8 prod(:,99) = 0._r8 - prod(:,231) = 0._r8 prod(:,237) = 0._r8 + prod(:,236) = 0._r8 prod(:,132) = 0._r8 prod(:,169) = 0._r8 prod(:,175) = 0._r8 @@ -128,8 +128,8 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,107) = 0._r8 prod(:,65) = 0._r8 prod(:,179) = 0._r8 - prod(:,148) = 0._r8 - prod(:,144) = 0._r8 + prod(:,146) = 0._r8 + prod(:,143) = 0._r8 prod(:,120) = 0._r8 prod(:,162) = 0._r8 prod(:,50) = 0._r8 @@ -137,11 +137,11 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,105) = 0._r8 prod(:,138) = 0._r8 prod(:,106) = 0._r8 - prod(:,151) = 0._r8 - prod(:,190) = 0._r8 + prod(:,150) = 0._r8 + prod(:,188) = 0._r8 prod(:,214) = 0._r8 - prod(:,189) = (.800_r8*rxt(:,112) +rxt(:,115) +rxt(:,116) + & - .800_r8*rxt(:,118)) + extfrc(:,19) + prod(:,192) = (.800_r8*rxt(:,112) +rxt(:,115) +rxt(:,116) + & + .800_r8*rxt(:,118)) + extfrc(:,17) prod(:,93) = 0._r8 prod(:,97) = 0._r8 prod(:,124) = 0._r8 @@ -153,33 +153,33 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,13) = 0._r8 prod(:,14) = 0._r8 prod(:,15) = 0._r8 - prod(:,227) = + extfrc(:,5) + prod(:,230) = + extfrc(:,5) prod(:,228) = + extfrc(:,4) - prod(:,225) = 0._r8 + prod(:,235) = 0._r8 prod(:,180) = 0._r8 prod(:,118) = 0._r8 prod(:,16) = + extfrc(:,6) prod(:,17) = + extfrc(:,7) prod(:,18) = 0._r8 - prod(:,19) = + extfrc(:,12) - prod(:,20) = + extfrc(:,10) - prod(:,232) = 0._r8 + prod(:,19) = + extfrc(:,10) + prod(:,20) = 0._r8 + prod(:,231) = 0._r8 prod(:,222) = 0._r8 - prod(:,235) = 0._r8 + prod(:,232) = 0._r8 prod(:,21) = 0._r8 prod(:,109) = 0._r8 prod(:,114) = 0._r8 prod(:,87) = 0._r8 - prod(:,141) = 0._r8 + prod(:,140) = 0._r8 prod(:,66) = 0._r8 prod(:,131) = 0._r8 prod(:,73) = 0._r8 prod(:,110) = 0._r8 prod(:,22) = 0._r8 - prod(:,23) = + extfrc(:,13) - prod(:,142) = 0._r8 + prod(:,23) = + extfrc(:,11) + prod(:,141) = 0._r8 prod(:,119) = 0._r8 - prod(:,163) = 0._r8 + prod(:,164) = 0._r8 prod(:,24) = 0._r8 prod(:,219) = 0._r8 prod(:,186) = + extfrc(:,3) @@ -187,7 +187,7 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,25) = + extfrc(:,8) prod(:,26) = + extfrc(:,9) prod(:,27) = 0._r8 - prod(:,28) = + extfrc(:,11) + prod(:,28) = 0._r8 prod(:,29) = 0._r8 prod(:,30) = 0._r8 prod(:,31) = 0._r8 @@ -206,20 +206,20 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,44) = 0._r8 prod(:,45) = + extfrc(:,2) prod(:,80) = 0._r8 - prod(:,156) = 0._r8 + prod(:,157) = 0._r8 prod(:,153) = 0._r8 prod(:,134) = 0._r8 prod(:,194) = 0._r8 prod(:,198) = 0._r8 - prod(:,157) = 0._r8 + prod(:,158) = 0._r8 prod(:,78) = 0._r8 prod(:,81) = 0._r8 prod(:,82) = 0._r8 - prod(:,164) = 0._r8 + prod(:,163) = 0._r8 prod(:,83) = 0._r8 prod(:,123) = 0._r8 prod(:,139) = 0._r8 - prod(:,191) = 0._r8 + prod(:,190) = 0._r8 prod(:,46) = 0._r8 prod(:,135) = 0._r8 prod(:,47) = 0._r8 @@ -231,8 +231,8 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,238) = 0._r8 prod(:,168) = 0._r8 prod(:,178) = (rxt(:,113) +rxt(:,114) +rxt(:,115) +rxt(:,116) +rxt(:,117) + & - rxt(:,119)) + extfrc(:,22) - prod(:,146) = 0._r8 + rxt(:,119)) + extfrc(:,20) + prod(:,145) = 0._r8 prod(:,129) = 0._r8 prod(:,170) = 0._r8 prod(:,126) = 0._r8 @@ -247,18 +247,18 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,182) = 0._r8 prod(:,160) = 0._r8 prod(:,51) = 0._r8 - prod(:,140) = (1.200_r8*rxt(:,112) +rxt(:,113) +rxt(:,117) + & - 1.200_r8*rxt(:,118)) + extfrc(:,17) - prod(:,158) = (rxt(:,114) +rxt(:,119)) + extfrc(:,16) + prod(:,155) = (1.200_r8*rxt(:,112) +rxt(:,113) +rxt(:,117) + & + 1.200_r8*rxt(:,118)) + extfrc(:,15) + prod(:,152) = (rxt(:,114) +rxt(:,119)) + extfrc(:,14) prod(:,176) = 0._r8 prod(:,136) = (rxt(:,113) +rxt(:,115) +rxt(:,116) +rxt(:,117)) prod(:,197) = 0._r8 - prod(:,230) = 0._r8 + prod(:,225) = 0._r8 prod(:,75) = 0._r8 prod(:,76) = 0._r8 - prod(:,177) = + extfrc(:,15) - prod(:,226) = + extfrc(:,20) - prod(:,171) = + extfrc(:,21) + prod(:,177) = + extfrc(:,13) + prod(:,226) = + extfrc(:,18) + prod(:,171) = + extfrc(:,19) prod(:,127) = 0._r8 prod(:,172) = 0._r8 prod(:,206) = 0._r8 diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lin_matrix.F90 index 8741e8c3e9..9ab1bb2ae2 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lin_matrix.F90 @@ -23,12 +23,12 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,642) = -( rxt(k,20) + het_rates(k,1) ) - mat(k,687) = -( rxt(k,21) + het_rates(k,2) ) + mat(k,652) = -( rxt(k,20) + het_rates(k,1) ) + mat(k,686) = -( rxt(k,21) + het_rates(k,2) ) mat(k,1) = -( het_rates(k,3) ) mat(k,2) = -( het_rates(k,4) ) mat(k,3) = -( het_rates(k,5) ) - mat(k,974) = -( het_rates(k,6) ) + mat(k,1001) = -( het_rates(k,6) ) mat(k,160) = -( het_rates(k,7) ) mat(k,415) = -( rxt(k,22) + het_rates(k,8) ) mat(k,166) = -( rxt(k,23) + het_rates(k,9) ) @@ -36,48 +36,48 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,465) = -( rxt(k,25) + het_rates(k,11) ) mat(k,416) = .500_r8*rxt(k,22) mat(k,167) = rxt(k,23) - mat(k,663) = .200_r8*rxt(k,71) - mat(k,727) = .060_r8*rxt(k,73) + mat(k,673) = .200_r8*rxt(k,71) + mat(k,719) = .060_r8*rxt(k,73) mat(k,279) = -( rxt(k,26) + het_rates(k,12) ) - mat(k,662) = .200_r8*rxt(k,71) - mat(k,725) = .200_r8*rxt(k,73) - mat(k,598) = -( rxt(k,27) + het_rates(k,13) ) + mat(k,672) = .200_r8*rxt(k,71) + mat(k,717) = .200_r8*rxt(k,73) + mat(k,593) = -( rxt(k,27) + het_rates(k,13) ) mat(k,222) = rxt(k,47) - mat(k,1086) = rxt(k,57) - mat(k,664) = .200_r8*rxt(k,71) - mat(k,728) = .150_r8*rxt(k,73) + mat(k,1085) = rxt(k,57) + mat(k,674) = .200_r8*rxt(k,71) + mat(k,720) = .150_r8*rxt(k,73) mat(k,329) = -( rxt(k,28) + het_rates(k,14) ) - mat(k,726) = .210_r8*rxt(k,73) + mat(k,718) = .210_r8*rxt(k,73) mat(k,226) = -( het_rates(k,15) ) mat(k,355) = -( het_rates(k,16) ) - mat(k,1511) = -( het_rates(k,17) ) + mat(k,1510) = -( het_rates(k,17) ) mat(k,230) = rxt(k,75) - mat(k,1563) = rxt(k,76) - mat(k,568) = rxt(k,78) + mat(k,1587) = rxt(k,76) + mat(k,563) = rxt(k,78) mat(k,141) = rxt(k,80) mat(k,147) = rxt(k,81) mat(k,481) = 2.000_r8*rxt(k,87) - mat(k,604) = rxt(k,88) + mat(k,599) = rxt(k,88) mat(k,387) = 3.000_r8*rxt(k,91) mat(k,109) = 2.000_r8*rxt(k,99) - mat(k,829) = rxt(k,100) - mat(k,789) = rxt(k,106) + mat(k,828) = rxt(k,100) + mat(k,788) = rxt(k,106) mat(k,229) = -( rxt(k,75) + het_rates(k,18) ) - mat(k,1565) = -( rxt(k,76) + het_rates(k,19) ) - mat(k,569) = rxt(k,77) - mat(k,566) = -( rxt(k,77) + rxt(k,78) + rxt(k,564) + rxt(k,567) + rxt(k,572) & + mat(k,1589) = -( rxt(k,76) + het_rates(k,19) ) + mat(k,564) = rxt(k,77) + mat(k,561) = -( rxt(k,77) + rxt(k,78) + rxt(k,568) + rxt(k,571) + rxt(k,576) & + het_rates(k,20) ) mat(k,4) = -( het_rates(k,21) ) mat(k,235) = -( het_rates(k,22) ) mat(k,344) = rxt(k,29) mat(k,345) = -( rxt(k,29) + het_rates(k,23) ) mat(k,285) = -( het_rates(k,24) ) - mat(k,550) = -( het_rates(k,25) ) + mat(k,545) = -( het_rates(k,25) ) mat(k,265) = -( het_rates(k,26) ) mat(k,350) = -( rxt(k,30) + het_rates(k,27) ) mat(k,298) = -( het_rates(k,28) ) - mat(k,1133) = -( het_rates(k,29) ) - mat(k,1370) = .700_r8*rxt(k,56) + mat(k,1132) = -( het_rates(k,29) ) + mat(k,1369) = .700_r8*rxt(k,56) mat(k,409) = -( rxt(k,31) + het_rates(k,30) ) mat(k,304) = -( het_rates(k,31) ) mat(k,269) = -( rxt(k,32) + het_rates(k,32) ) @@ -90,56 +90,56 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,154) = -( rxt(k,85) + het_rates(k,39) ) mat(k,119) = -( rxt(k,86) + het_rates(k,40) ) mat(k,479) = -( rxt(k,87) + het_rates(k,41) ) - mat(k,1987) = -( rxt(k,33) + rxt(k,34) + het_rates(k,42) ) - mat(k,650) = .100_r8*rxt(k,20) - mat(k,695) = .100_r8*rxt(k,21) + mat(k,1918) = -( rxt(k,33) + rxt(k,34) + het_rates(k,42) ) + mat(k,660) = .100_r8*rxt(k,20) + mat(k,694) = .100_r8*rxt(k,21) mat(k,456) = rxt(k,39) - mat(k,2252) = .180_r8*rxt(k,40) - mat(k,1169) = rxt(k,44) - mat(k,1203) = .330_r8*rxt(k,46) - mat(k,1212) = rxt(k,48) - mat(k,716) = rxt(k,50) - mat(k,1276) = 1.340_r8*rxt(k,51) - mat(k,897) = rxt(k,58) - mat(k,547) = rxt(k,63) + mat(k,1569) = .180_r8*rxt(k,40) + mat(k,1168) = rxt(k,44) + mat(k,1201) = .330_r8*rxt(k,46) + mat(k,1211) = rxt(k,48) + mat(k,715) = rxt(k,50) + mat(k,1275) = 1.340_r8*rxt(k,51) + mat(k,896) = rxt(k,58) + mat(k,542) = rxt(k,63) mat(k,401) = rxt(k,64) - mat(k,660) = .375_r8*rxt(k,66) + mat(k,670) = .375_r8*rxt(k,66) mat(k,491) = .400_r8*rxt(k,68) - mat(k,1125) = .680_r8*rxt(k,70) - mat(k,445) = rxt(k,308) - mat(k,463) = 2.000_r8*rxt(k,338) - mat(k,602) = -( rxt(k,88) + het_rates(k,43) ) + mat(k,1124) = .680_r8*rxt(k,70) + mat(k,444) = rxt(k,312) + mat(k,463) = 2.000_r8*rxt(k,342) + mat(k,597) = -( rxt(k,88) + het_rates(k,43) ) mat(k,123) = -( rxt(k,89) + het_rates(k,44) ) - mat(k,1151) = -( rxt(k,35) + het_rates(k,45) ) - mat(k,646) = .400_r8*rxt(k,20) - mat(k,692) = .400_r8*rxt(k,21) + mat(k,1150) = -( rxt(k,35) + het_rates(k,45) ) + mat(k,656) = .400_r8*rxt(k,20) + mat(k,691) = .400_r8*rxt(k,21) mat(k,352) = rxt(k,30) - mat(k,1192) = .330_r8*rxt(k,46) + mat(k,1191) = .330_r8*rxt(k,46) mat(k,323) = rxt(k,54) - mat(k,544) = rxt(k,63) + mat(k,539) = rxt(k,63) mat(k,371) = -( rxt(k,90) + het_rates(k,46) ) mat(k,104) = -( het_rates(k,47) ) - mat(k,1080) = -( rxt(k,36) + het_rates(k,48) ) - mat(k,645) = .250_r8*rxt(k,20) - mat(k,691) = .250_r8*rxt(k,21) + mat(k,1079) = -( rxt(k,36) + het_rates(k,48) ) + mat(k,655) = .250_r8*rxt(k,20) + mat(k,690) = .250_r8*rxt(k,21) mat(k,411) = .820_r8*rxt(k,31) - mat(k,1191) = .170_r8*rxt(k,46) - mat(k,653) = .300_r8*rxt(k,66) + mat(k,1190) = .170_r8*rxt(k,46) + mat(k,663) = .300_r8*rxt(k,66) mat(k,489) = .050_r8*rxt(k,68) - mat(k,1118) = .500_r8*rxt(k,70) - mat(k,1281) = -( rxt(k,37) + het_rates(k,49) ) + mat(k,1117) = .500_r8*rxt(k,70) + mat(k,1280) = -( rxt(k,37) + het_rates(k,49) ) mat(k,382) = .180_r8*rxt(k,24) mat(k,331) = rxt(k,28) - mat(k,672) = .400_r8*rxt(k,71) - mat(k,736) = .540_r8*rxt(k,73) + mat(k,682) = .400_r8*rxt(k,71) + mat(k,728) = .540_r8*rxt(k,73) mat(k,424) = .510_r8*rxt(k,74) - mat(k,705) = -( het_rates(k,50) ) - mat(k,620) = -( rxt(k,38) + het_rates(k,51) ) - mat(k,824) = -( het_rates(k,52) ) + mat(k,704) = -( het_rates(k,50) ) + mat(k,615) = -( rxt(k,38) + het_rates(k,51) ) + mat(k,823) = -( het_rates(k,52) ) mat(k,454) = -( rxt(k,39) + het_rates(k,53) ) - mat(k,2259) = -( rxt(k,40) + rxt(k,41) + het_rates(k,54) ) + mat(k,1563) = -( rxt(k,40) + rxt(k,41) + het_rates(k,54) ) mat(k,385) = -( rxt(k,91) + het_rates(k,55) ) - mat(k,2168) = -( het_rates(k,56) ) + mat(k,1845) = -( het_rates(k,56) ) mat(k,231) = rxt(k,75) mat(k,103) = 4.000_r8*rxt(k,79) mat(k,143) = rxt(k,80) @@ -151,50 +151,50 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,125) = 3.000_r8*rxt(k,89) mat(k,375) = rxt(k,90) mat(k,176) = 2.000_r8*rxt(k,92) - mat(k,97) = 2.000_r8*rxt(k,93) - mat(k,1602) = rxt(k,94) - mat(k,963) = rxt(k,95) + mat(k,96) = 2.000_r8*rxt(k,93) + mat(k,2146) = rxt(k,94) + mat(k,957) = rxt(k,95) mat(k,249) = rxt(k,98) mat(k,245) = rxt(k,101) mat(k,255) = rxt(k,102) mat(k,296) = rxt(k,103) - mat(k,1506) = rxt(k,104) - mat(k,842) = rxt(k,107) + mat(k,1499) = rxt(k,104) + mat(k,839) = rxt(k,107) mat(k,175) = -( rxt(k,92) + het_rates(k,57) ) - mat(k,95) = -( rxt(k,93) + rxt(k,249) + het_rates(k,58) ) - mat(k,1592) = -( rxt(k,94) + het_rates(k,59) ) - mat(k,957) = rxt(k,96) - mat(k,337) = rxt(k,108) - mat(k,96) = 2.000_r8*rxt(k,249) - mat(k,955) = -( rxt(k,95) + rxt(k,96) + rxt(k,566) + rxt(k,571) + rxt(k,577) & + mat(k,95) = -( rxt(k,93) + rxt(k,253) + het_rates(k,58) ) + mat(k,2152) = -( rxt(k,94) + het_rates(k,59) ) + mat(k,960) = rxt(k,96) + mat(k,338) = rxt(k,108) + mat(k,97) = 2.000_r8*rxt(k,253) + mat(k,954) = -( rxt(k,95) + rxt(k,96) + rxt(k,570) + rxt(k,575) + rxt(k,581) & + het_rates(k,60) ) mat(k,5) = -( het_rates(k,61) ) - mat(k,1160) = -( het_rates(k,62) ) + mat(k,1159) = -( het_rates(k,62) ) mat(k,168) = 1.500_r8*rxt(k,23) mat(k,381) = .450_r8*rxt(k,24) - mat(k,600) = .600_r8*rxt(k,27) + mat(k,595) = .600_r8*rxt(k,27) mat(k,330) = rxt(k,28) - mat(k,1975) = rxt(k,33) + rxt(k,34) - mat(k,1152) = rxt(k,35) - mat(k,1280) = rxt(k,37) - mat(k,2240) = .380_r8*rxt(k,40) - mat(k,1449) = rxt(k,42) + rxt(k,110) - mat(k,1165) = rxt(k,44) - mat(k,1055) = 2.000_r8*rxt(k,45) - mat(k,1193) = .330_r8*rxt(k,46) - mat(k,1268) = 1.340_r8*rxt(k,52) - mat(k,1372) = .700_r8*rxt(k,56) + mat(k,1906) = rxt(k,33) + rxt(k,34) + mat(k,1151) = rxt(k,35) + mat(k,1279) = rxt(k,37) + mat(k,1557) = .380_r8*rxt(k,40) + mat(k,1448) = rxt(k,42) + rxt(k,110) + mat(k,1164) = rxt(k,44) + mat(k,1038) = 2.000_r8*rxt(k,45) + mat(k,1192) = .330_r8*rxt(k,46) + mat(k,1267) = 1.340_r8*rxt(k,52) + mat(k,1371) = .700_r8*rxt(k,56) mat(k,200) = 1.500_r8*rxt(k,65) - mat(k,655) = .250_r8*rxt(k,66) - mat(k,1075) = rxt(k,69) - mat(k,1120) = 1.700_r8*rxt(k,70) + mat(k,665) = .250_r8*rxt(k,66) + mat(k,1074) = rxt(k,69) + mat(k,1119) = 1.700_r8*rxt(k,70) mat(k,366) = rxt(k,137) - mat(k,1450) = -( rxt(k,42) + rxt(k,110) + het_rates(k,63) ) - mat(k,622) = rxt(k,38) - mat(k,2241) = .440_r8*rxt(k,40) - mat(k,536) = .400_r8*rxt(k,61) - mat(k,658) = rxt(k,66) - mat(k,1123) = .800_r8*rxt(k,70) + mat(k,1449) = -( rxt(k,42) + rxt(k,110) + het_rates(k,63) ) + mat(k,617) = rxt(k,38) + mat(k,1558) = .440_r8*rxt(k,40) + mat(k,531) = .400_r8*rxt(k,61) + mat(k,668) = rxt(k,66) + mat(k,1122) = .800_r8*rxt(k,70) mat(k,238) = -( rxt(k,97) + het_rates(k,64) ) mat(k,140) = rxt(k,80) mat(k,145) = rxt(k,81) @@ -214,17 +214,17 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) mat(k,6) = -( het_rates(k,68) ) mat(k,7) = -( het_rates(k,69) ) mat(k,8) = -( het_rates(k,70) ) - mat(k,9) = -( rxt(k,594) + het_rates(k,71) ) + mat(k,9) = -( rxt(k,598) + het_rates(k,71) ) mat(k,127) = -( rxt(k,43) + het_rates(k,72) ) - mat(k,925) = -( het_rates(k,73) ) + mat(k,924) = -( het_rates(k,73) ) mat(k,146) = rxt(k,81) mat(k,156) = rxt(k,85) mat(k,239) = 2.000_r8*rxt(k,97) mat(k,247) = rxt(k,98) mat(k,283) = rxt(k,105) - mat(k,1166) = -( rxt(k,44) + het_rates(k,74) ) - mat(k,1194) = .330_r8*rxt(k,46) - mat(k,656) = .250_r8*rxt(k,66) + mat(k,1165) = -( rxt(k,44) + het_rates(k,74) ) + mat(k,1193) = .330_r8*rxt(k,46) + mat(k,666) = .250_r8*rxt(k,66) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -247,205 +247,206 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,1054) = -( rxt(k,45) + rxt(k,520) + het_rates(k,75) ) + mat(k,1037) = -( rxt(k,45) + rxt(k,524) + het_rates(k,75) ) mat(k,418) = rxt(k,22) mat(k,380) = .130_r8*rxt(k,24) mat(k,341) = .700_r8*rxt(k,62) - mat(k,670) = .600_r8*rxt(k,71) - mat(k,734) = .340_r8*rxt(k,73) + mat(k,680) = .600_r8*rxt(k,71) + mat(k,726) = .340_r8*rxt(k,73) mat(k,423) = .170_r8*rxt(k,74) - mat(k,2121) = -( het_rates(k,76) ) - mat(k,2443) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,1991) = 2.000_r8*rxt(k,34) + mat(k,2174) = -( het_rates(k,76) ) + mat(k,2444) = 2.000_r8*rxt(k,2) + rxt(k,3) + mat(k,1923) = 2.000_r8*rxt(k,34) mat(k,457) = rxt(k,39) - mat(k,2256) = .330_r8*rxt(k,40) + rxt(k,41) - mat(k,834) = rxt(k,100) - mat(k,1505) = rxt(k,104) + mat(k,1574) = .330_r8*rxt(k,40) + rxt(k,41) + mat(k,833) = rxt(k,100) + mat(k,1503) = rxt(k,104) mat(k,284) = rxt(k,105) - mat(k,1461) = -( het_rates(k,77) ) + mat(k,1460) = -( het_rates(k,77) ) mat(k,2428) = rxt(k,1) - mat(k,1977) = rxt(k,33) - mat(k,2242) = 1.440_r8*rxt(k,40) + mat(k,1908) = rxt(k,33) + mat(k,1559) = 1.440_r8*rxt(k,40) mat(k,107) = -( rxt(k,99) + het_rates(k,78) ) - mat(k,582) = -( rxt(k,4) + het_rates(k,79) ) + mat(k,586) = -( rxt(k,4) + het_rates(k,79) ) mat(k,130) = -( rxt(k,136) + het_rates(k,80) ) - mat(k,828) = -( rxt(k,100) + het_rates(k,81) ) + mat(k,827) = -( rxt(k,100) + het_rates(k,81) ) mat(k,241) = -( rxt(k,101) + het_rates(k,82) ) mat(k,251) = -( rxt(k,102) + het_rates(k,83) ) mat(k,292) = -( rxt(k,103) + het_rates(k,84) ) - mat(k,1495) = -( rxt(k,104) + het_rates(k,85) ) + mat(k,1494) = -( rxt(k,104) + het_rates(k,85) ) mat(k,182) = -( het_rates(k,86) ) - mat(k,919) = -( het_rates(k,87) ) + mat(k,918) = -( het_rates(k,87) ) mat(k,282) = -( rxt(k,105) + het_rates(k,88) ) - mat(k,2055) = -( rxt(k,9) + het_rates(k,89) ) - mat(k,1204) = rxt(k,522) - mat(k,596) = rxt(k,523) - mat(k,564) = rxt(k,524) - mat(k,277) = 2.000_r8*rxt(k,525) + 2.000_r8*rxt(k,562) + 2.000_r8*rxt(k,565) & - + 2.000_r8*rxt(k,576) - mat(k,431) = rxt(k,526) - mat(k,1099) = rxt(k,527) - mat(k,1963) = .500_r8*rxt(k,529) - mat(k,1658) = rxt(k,530) - mat(k,396) = rxt(k,531) - mat(k,234) = rxt(k,532) - mat(k,631) = rxt(k,533) - mat(k,572) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,961) = rxt(k,566) + rxt(k,571) + rxt(k,577) - mat(k,2368) = -( rxt(k,521) + het_rates(k,90) ) - mat(k,477) = rxt(k,11) + rxt(k,212) - mat(k,651) = rxt(k,20) - mat(k,696) = .900_r8*rxt(k,21) + mat(k,2368) = -( rxt(k,9) + het_rates(k,89) ) + mat(k,1204) = rxt(k,526) + mat(k,585) = rxt(k,527) + mat(k,560) = rxt(k,528) + mat(k,278) = 2.000_r8*rxt(k,529) + 2.000_r8*rxt(k,566) + 2.000_r8*rxt(k,569) & + + 2.000_r8*rxt(k,580) + mat(k,432) = rxt(k,530) + mat(k,1099) = rxt(k,531) + mat(k,1900) = .500_r8*rxt(k,533) + mat(k,2237) = rxt(k,534) + mat(k,396) = rxt(k,535) + mat(k,234) = rxt(k,536) + mat(k,636) = rxt(k,537) + mat(k,568) = rxt(k,568) + rxt(k,571) + rxt(k,576) + mat(k,962) = rxt(k,570) + rxt(k,575) + rxt(k,581) + mat(k,2344) = -( rxt(k,525) + het_rates(k,90) ) + mat(k,477) = rxt(k,11) + rxt(k,213) + mat(k,661) = rxt(k,20) + mat(k,695) = .900_r8*rxt(k,21) mat(k,420) = rxt(k,22) mat(k,169) = 1.500_r8*rxt(k,23) mat(k,384) = .560_r8*rxt(k,24) mat(k,467) = rxt(k,25) mat(k,281) = .600_r8*rxt(k,26) - mat(k,601) = .600_r8*rxt(k,27) + mat(k,596) = .600_r8*rxt(k,27) mat(k,333) = rxt(k,28) mat(k,349) = rxt(k,29) mat(k,354) = rxt(k,30) mat(k,413) = rxt(k,31) - mat(k,1157) = rxt(k,35) - mat(k,1287) = rxt(k,37) - mat(k,1170) = 2.000_r8*rxt(k,44) - mat(k,1058) = 2.000_r8*rxt(k,45) - mat(k,1205) = .670_r8*rxt(k,46) + mat(k,1155) = rxt(k,35) + mat(k,1285) = rxt(k,37) + mat(k,1169) = 2.000_r8*rxt(k,44) + mat(k,1041) = 2.000_r8*rxt(k,45) + mat(k,1203) = .670_r8*rxt(k,46) mat(k,225) = rxt(k,47) - mat(k,1213) = rxt(k,48) + mat(k,1212) = rxt(k,48) mat(k,408) = rxt(k,49) - mat(k,717) = rxt(k,50) - mat(k,1278) = 1.340_r8*rxt(k,51) + .660_r8*rxt(k,52) - mat(k,1100) = rxt(k,57) + mat(k,716) = rxt(k,50) + mat(k,1277) = 1.340_r8*rxt(k,51) + .660_r8*rxt(k,52) + mat(k,1098) = rxt(k,57) mat(k,343) = rxt(k,62) - mat(k,548) = rxt(k,63) + mat(k,543) = rxt(k,63) mat(k,202) = rxt(k,65) - mat(k,661) = rxt(k,66) - mat(k,632) = rxt(k,67) + mat(k,671) = rxt(k,66) + mat(k,635) = rxt(k,67) mat(k,492) = rxt(k,68) - mat(k,1079) = rxt(k,69) - mat(k,1126) = 1.200_r8*rxt(k,70) - mat(k,674) = rxt(k,71) - mat(k,739) = rxt(k,73) + mat(k,1078) = rxt(k,69) + mat(k,1125) = 1.200_r8*rxt(k,70) + mat(k,684) = rxt(k,71) + mat(k,731) = rxt(k,73) mat(k,426) = rxt(k,74) - mat(k,446) = rxt(k,308) - mat(k,464) = rxt(k,338) - mat(k,1345) = rxt(k,413) - mat(k,472) = -( rxt(k,10) + rxt(k,11) + rxt(k,212) + het_rates(k,91) ) - mat(k,787) = -( rxt(k,106) + het_rates(k,92) ) - mat(k,567) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,837) = -( rxt(k,107) + het_rates(k,93) ) - mat(k,954) = rxt(k,566) + rxt(k,571) + rxt(k,577) - mat(k,1195) = -( rxt(k,46) + rxt(k,522) + het_rates(k,94) ) + mat(k,446) = rxt(k,312) + mat(k,464) = rxt(k,342) + mat(k,1343) = rxt(k,417) + mat(k,472) = -( rxt(k,10) + rxt(k,11) + rxt(k,213) + het_rates(k,91) ) + mat(k,786) = -( rxt(k,106) + het_rates(k,92) ) + mat(k,562) = rxt(k,568) + rxt(k,571) + rxt(k,576) + mat(k,836) = -( rxt(k,107) + het_rates(k,93) ) + mat(k,953) = rxt(k,570) + rxt(k,575) + rxt(k,581) + mat(k,1194) = -( rxt(k,46) + rxt(k,526) + het_rates(k,94) ) mat(k,221) = -( rxt(k,47) + het_rates(k,95) ) - mat(k,1315) = rxt(k,413) - mat(k,1208) = -( rxt(k,48) + het_rates(k,96) ) - mat(k,1196) = .170_r8*rxt(k,46) + mat(k,1314) = rxt(k,417) + mat(k,1207) = -( rxt(k,48) + het_rates(k,96) ) + mat(k,1195) = .170_r8*rxt(k,46) mat(k,326) = -( het_rates(k,97) ) mat(k,133) = -( het_rates(k,98) ) - mat(k,876) = -( het_rates(k,99) ) - mat(k,589) = -( rxt(k,523) + het_rates(k,100) ) - mat(k,558) = -( rxt(k,524) + het_rates(k,101) ) + mat(k,875) = -( het_rates(k,99) ) + mat(k,577) = -( rxt(k,527) + het_rates(k,100) ) + mat(k,553) = -( rxt(k,528) + het_rates(k,101) ) mat(k,403) = -( rxt(k,49) + het_rates(k,102) ) - mat(k,711) = -( rxt(k,50) + het_rates(k,103) ) + mat(k,710) = -( rxt(k,50) + het_rates(k,103) ) mat(k,404) = rxt(k,49) mat(k,76) = -( het_rates(k,104) ) - mat(k,1269) = -( rxt(k,51) + rxt(k,52) + het_rates(k,105) ) - mat(k,713) = .300_r8*rxt(k,50) + mat(k,1268) = -( rxt(k,51) + rxt(k,52) + het_rates(k,105) ) + mat(k,712) = .300_r8*rxt(k,50) mat(k,316) = -( het_rates(k,106) ) mat(k,517) = -( rxt(k,53) + het_rates(k,107) ) - mat(k,641) = .800_r8*rxt(k,20) - mat(k,686) = .800_r8*rxt(k,21) + mat(k,651) = .800_r8*rxt(k,20) + mat(k,685) = .800_r8*rxt(k,21) mat(k,321) = -( rxt(k,54) + het_rates(k,108) ) - mat(k,611) = -( rxt(k,55) + rxt(k,395) + het_rates(k,109) ) - mat(k,1018) = -( het_rates(k,110) ) - mat(k,1376) = -( rxt(k,56) + het_rates(k,111) ) - mat(k,714) = .700_r8*rxt(k,50) - mat(k,999) = -( rxt(k,111) + het_rates(k,112) ) - mat(k,1881) = rxt(k,15) - mat(k,808) = rxt(k,592) + mat(k,606) = -( rxt(k,55) + rxt(k,399) + het_rates(k,109) ) + mat(k,973) = -( het_rates(k,110) ) + mat(k,1375) = -( rxt(k,56) + het_rates(k,111) ) + mat(k,713) = .700_r8*rxt(k,50) + mat(k,1048) = -( rxt(k,111) + het_rates(k,112) ) + mat(k,1981) = rxt(k,15) + mat(k,646) = rxt(k,188) + mat(k,807) = rxt(k,596) mat(k,256) = -( rxt(k,12) + het_rates(k,113) ) - mat(k,273) = -( rxt(k,13) + rxt(k,14) + rxt(k,213) + rxt(k,525) + rxt(k,562) & - + rxt(k,565) + rxt(k,576) + het_rates(k,114) ) - mat(k,427) = -( rxt(k,526) + het_rates(k,115) ) - mat(k,1090) = -( rxt(k,57) + rxt(k,527) + het_rates(k,116) ) + mat(k,273) = -( rxt(k,13) + rxt(k,14) + rxt(k,216) + rxt(k,529) + rxt(k,566) & + + rxt(k,569) + rxt(k,580) + het_rates(k,114) ) + mat(k,427) = -( rxt(k,530) + het_rates(k,115) ) + mat(k,1089) = -( rxt(k,57) + rxt(k,531) + het_rates(k,116) ) mat(k,10) = -( het_rates(k,117) ) mat(k,11) = -( het_rates(k,118) ) mat(k,12) = -( het_rates(k,119) ) mat(k,98) = -( het_rates(k,120) ) - mat(k,13) = -( rxt(k,528) + het_rates(k,121) ) - mat(k,14) = -( rxt(k,596) + het_rates(k,122) ) - mat(k,15) = -( rxt(k,595) + het_rates(k,123) ) - mat(k,1914) = -( rxt(k,15) + rxt(k,16) + het_rates(k,124) ) + mat(k,13) = -( rxt(k,532) + het_rates(k,121) ) + mat(k,14) = -( rxt(k,600) + het_rates(k,122) ) + mat(k,15) = -( rxt(k,599) + het_rates(k,123) ) + mat(k,2015) = -( rxt(k,15) + rxt(k,16) + het_rates(k,124) ) mat(k,275) = rxt(k,14) - mat(k,1959) = rxt(k,17) + .500_r8*rxt(k,529) - mat(k,1654) = rxt(k,19) - mat(k,857) = rxt(k,589) - mat(k,1960) = -( rxt(k,17) + rxt(k,529) + het_rates(k,125) ) - mat(k,2052) = rxt(k,9) - mat(k,476) = rxt(k,11) + rxt(k,212) - mat(k,276) = rxt(k,13) + rxt(k,213) - mat(k,1655) = rxt(k,18) - mat(k,649) = rxt(k,20) - mat(k,1202) = rxt(k,46) + mat(k,1893) = rxt(k,17) + .500_r8*rxt(k,533) + mat(k,2230) = rxt(k,19) + mat(k,857) = rxt(k,593) + mat(k,1891) = -( rxt(k,17) + rxt(k,533) + het_rates(k,125) ) + mat(k,2359) = rxt(k,9) + mat(k,475) = rxt(k,11) + rxt(k,213) + mat(k,274) = rxt(k,13) + rxt(k,216) + mat(k,2228) = rxt(k,18) + mat(k,659) = rxt(k,20) + mat(k,1200) = rxt(k,46) mat(k,407) = rxt(k,49) - mat(k,617) = rxt(k,55) + rxt(k,395) - mat(k,1097) = rxt(k,57) - mat(k,896) = rxt(k,58) + mat(k,611) = rxt(k,55) + rxt(k,399) + mat(k,1095) = rxt(k,57) + mat(k,895) = rxt(k,58) mat(k,395) = rxt(k,59) mat(k,233) = rxt(k,60) - mat(k,539) = .600_r8*rxt(k,61) + rxt(k,345) - mat(k,630) = rxt(k,67) - mat(k,571) = rxt(k,77) - mat(k,960) = rxt(k,96) - mat(k,138) = rxt(k,470) - mat(k,1652) = -( rxt(k,18) + rxt(k,19) + rxt(k,530) + het_rates(k,126) ) - mat(k,474) = rxt(k,10) - mat(k,274) = rxt(k,13) + rxt(k,14) + rxt(k,213) - mat(k,537) = .400_r8*rxt(k,61) - mat(k,570) = rxt(k,78) - mat(k,958) = rxt(k,95) - mat(k,892) = -( rxt(k,58) + het_rates(k,127) ) - mat(k,391) = -( rxt(k,59) + rxt(k,531) + het_rates(k,128) ) + mat(k,533) = .600_r8*rxt(k,61) + rxt(k,349) + mat(k,634) = rxt(k,67) + mat(k,565) = rxt(k,77) + mat(k,958) = rxt(k,96) + mat(k,138) = rxt(k,474) + mat(k,2235) = -( rxt(k,18) + rxt(k,19) + rxt(k,534) + het_rates(k,126) ) + mat(k,476) = rxt(k,10) + mat(k,277) = rxt(k,13) + rxt(k,14) + rxt(k,216) + mat(k,535) = .400_r8*rxt(k,61) + mat(k,567) = rxt(k,78) + mat(k,961) = rxt(k,95) + mat(k,891) = -( rxt(k,58) + het_rates(k,127) ) + mat(k,391) = -( rxt(k,59) + rxt(k,535) + het_rates(k,128) ) mat(k,16) = -( het_rates(k,129) ) mat(k,17) = -( het_rates(k,130) ) mat(k,18) = -( het_rates(k,131) ) mat(k,19) = -( het_rates(k,132) ) mat(k,20) = -( het_rates(k,133) ) - mat(k,2099) = -( rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + mat(k,2059) = -( rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + rxt(k,125) + het_rates(k,134) ) - mat(k,2442) = rxt(k,2) - mat(k,1550) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,127) + rxt(k,128) + rxt(k,129) & + mat(k,2441) = rxt(k,2) + mat(k,1549) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,127) + rxt(k,128) + rxt(k,129) & + rxt(k,131) + rxt(k,132) + rxt(k,133) + 2.000_r8*rxt(k,134) & + 2.000_r8*rxt(k,135) - mat(k,2230) = rxt(k,8) - mat(k,278) = rxt(k,14) - mat(k,1919) = rxt(k,15) - mat(k,1964) = rxt(k,17) - mat(k,1659) = rxt(k,18) - mat(k,2255) = .180_r8*rxt(k,40) - mat(k,1456) = rxt(k,42) + rxt(k,110) - mat(k,1574) = rxt(k,76) - mat(k,1600) = rxt(k,94) - mat(k,338) = rxt(k,108) - mat(k,1484) = rxt(k,138) - mat(k,950) = rxt(k,139) + mat(k,2123) = rxt(k,8) + mat(k,276) = rxt(k,14) + mat(k,2016) = rxt(k,15) + mat(k,1894) = rxt(k,17) + mat(k,2231) = rxt(k,18) + mat(k,1571) = .180_r8*rxt(k,40) + mat(k,1455) = rxt(k,42) + rxt(k,110) + mat(k,1596) = rxt(k,76) + mat(k,2150) = rxt(k,94) + mat(k,337) = rxt(k,108) + mat(k,1483) = rxt(k,138) + mat(k,949) = rxt(k,139) mat(k,263) = rxt(k,140) - mat(k,2033) = rxt(k,155) - mat(k,1542) = -( rxt(k,5) + rxt(k,6) + rxt(k,126) + rxt(k,127) + rxt(k,128) & + mat(k,1638) = rxt(k,155) + mat(k,1541) = -( rxt(k,5) + rxt(k,6) + rxt(k,126) + rxt(k,127) + rxt(k,128) & + rxt(k,129) + rxt(k,130) + rxt(k,131) + rxt(k,132) + rxt(k,133) & + rxt(k,134) + rxt(k,135) + het_rates(k,135) ) - mat(k,2220) = rxt(k,8) - mat(k,1649) = rxt(k,19) - mat(k,178) = rxt(k,151) + rxt(k,159) + mat(k,2114) = rxt(k,8) + mat(k,2222) = rxt(k,19) + mat(k,178) = rxt(k,151) + rxt(k,160) mat(k,181) = rxt(k,152) - mat(k,2233) = -( rxt(k,7) + rxt(k,8) + het_rates(k,136) ) + mat(k,2124) = -( rxt(k,7) + rxt(k,8) + het_rates(k,136) ) mat(k,21) = -( het_rates(k,137) ) mat(k,334) = -( rxt(k,108) + het_rates(k,138) ) mat(k,363) = -( rxt(k,137) + het_rates(k,139) ) - mat(k,232) = -( rxt(k,60) + rxt(k,532) + het_rates(k,140) ) - mat(k,534) = -( rxt(k,61) + rxt(k,345) + het_rates(k,141) ) - mat(k,136) = -( rxt(k,470) + het_rates(k,142) ) + mat(k,232) = -( rxt(k,60) + rxt(k,536) + het_rates(k,140) ) + mat(k,529) = -( rxt(k,61) + rxt(k,349) + het_rates(k,141) ) + mat(k,136) = -( rxt(k,474) + het_rates(k,142) ) mat(k,468) = -( het_rates(k,143) ) mat(k,270) = rxt(k,32) end do @@ -474,15 +475,15 @@ subroutine linmat03( avec_len, mat, y, rxt, het_rates ) mat(k,339) = -( rxt(k,62) + het_rates(k,145) ) mat(k,22) = -( het_rates(k,146) ) mat(k,23) = -( het_rates(k,147) ) - mat(k,542) = -( rxt(k,63) + het_rates(k,148) ) + mat(k,537) = -( rxt(k,63) + het_rates(k,148) ) mat(k,397) = -( rxt(k,64) + het_rates(k,149) ) - mat(k,718) = -( het_rates(k,150) ) + mat(k,732) = -( het_rates(k,150) ) mat(k,364) = rxt(k,137) - mat(k,1474) = rxt(k,138) + mat(k,1473) = rxt(k,138) mat(k,24) = -( rxt(k,109) + het_rates(k,151) ) - mat(k,1476) = -( rxt(k,138) + het_rates(k,152) ) - mat(k,948) = rxt(k,139) - mat(k,947) = -( rxt(k,139) + het_rates(k,153) ) + mat(k,1475) = -( rxt(k,138) + het_rates(k,152) ) + mat(k,947) = rxt(k,139) + mat(k,946) = -( rxt(k,139) + het_rates(k,153) ) mat(k,262) = rxt(k,140) mat(k,261) = -( rxt(k,140) + het_rates(k,154) ) mat(k,131) = rxt(k,136) @@ -501,168 +502,168 @@ subroutine linmat03( avec_len, mat, y, rxt, het_rates ) mat(k,37) = -( rxt(k,149) + het_rates(k,167) ) mat(k,38) = -( rxt(k,150) + het_rates(k,168) ) mat(k,39) = -( het_rates(k,169) ) - mat(k,1053) = rxt(k,520) + mat(k,1036) = rxt(k,524) mat(k,40) = -( het_rates(k,170) ) mat(k,41) = -( het_rates(k,171) ) mat(k,42) = -( het_rates(k,172) ) mat(k,43) = -( het_rates(k,173) ) - mat(k,44) = -( rxt(k,597) + het_rates(k,174) ) + mat(k,44) = -( rxt(k,601) + het_rates(k,174) ) mat(k,50) = -( het_rates(k,175) ) mat(k,199) = -( rxt(k,65) + het_rates(k,176) ) - mat(k,652) = -( rxt(k,66) + het_rates(k,177) ) - mat(k,627) = -( rxt(k,67) + rxt(k,533) + het_rates(k,178) ) + mat(k,662) = -( rxt(k,66) + het_rates(k,177) ) + mat(k,631) = -( rxt(k,67) + rxt(k,537) + het_rates(k,178) ) mat(k,486) = -( rxt(k,68) + het_rates(k,179) ) - mat(k,1072) = -( rxt(k,69) + het_rates(k,180) ) + mat(k,1071) = -( rxt(k,69) + het_rates(k,180) ) mat(k,392) = rxt(k,59) - mat(k,628) = rxt(k,67) + mat(k,632) = rxt(k,67) mat(k,488) = rxt(k,68) - mat(k,1119) = -( rxt(k,70) + het_rates(k,181) ) - mat(k,654) = rxt(k,66) - mat(k,1074) = rxt(k,69) - mat(k,665) = -( rxt(k,71) + het_rates(k,182) ) + mat(k,1118) = -( rxt(k,70) + het_rates(k,181) ) + mat(k,664) = rxt(k,66) + mat(k,1073) = rxt(k,69) + mat(k,675) = -( rxt(k,71) + het_rates(k,182) ) mat(k,187) = -( het_rates(k,183) ) mat(k,203) = -( rxt(k,72) + het_rates(k,184) ) mat(k,208) = -( het_rates(k,185) ) - mat(k,729) = -( rxt(k,73) + het_rates(k,186) ) + mat(k,721) = -( rxt(k,73) + het_rates(k,186) ) mat(k,216) = -( het_rates(k,187) ) mat(k,421) = -( rxt(k,74) + het_rates(k,188) ) mat(k,523) = -( het_rates(k,191) ) - mat(k,137) = rxt(k,470) - mat(k,1042) = -( het_rates(k,192) ) + mat(k,137) = rxt(k,474) + mat(k,1025) = -( het_rates(k,192) ) mat(k,56) = -( het_rates(k,193) ) mat(k,495) = -( het_rates(k,194) ) mat(k,62) = -( het_rates(k,195) ) mat(k,435) = -( het_rates(k,196) ) - mat(k,901) = -( het_rates(k,197) ) + mat(k,900) = -( het_rates(k,197) ) mat(k,519) = rxt(k,53) - mat(k,935) = -( het_rates(k,198) ) - mat(k,635) = -( het_rates(k,199) ) - mat(k,1428) = -( het_rates(k,200) ) + mat(k,934) = -( het_rates(k,198) ) + mat(k,639) = -( het_rates(k,199) ) + mat(k,1427) = -( het_rates(k,200) ) mat(k,383) = .130_r8*rxt(k,24) mat(k,332) = rxt(k,28) - mat(k,1082) = rxt(k,36) - mat(k,1282) = rxt(k,37) - mat(k,1198) = .330_r8*rxt(k,46) - mat(k,1210) = rxt(k,48) - mat(k,1273) = 1.340_r8*rxt(k,51) + mat(k,1081) = rxt(k,36) + mat(k,1281) = rxt(k,37) + mat(k,1197) = .330_r8*rxt(k,46) + mat(k,1209) = rxt(k,48) + mat(k,1272) = 1.340_r8*rxt(k,51) mat(k,520) = rxt(k,53) mat(k,324) = rxt(k,54) - mat(k,1378) = .300_r8*rxt(k,56) - mat(k,894) = rxt(k,58) - mat(k,535) = .600_r8*rxt(k,61) + rxt(k,345) + mat(k,1377) = .300_r8*rxt(k,56) + mat(k,893) = rxt(k,58) + mat(k,530) = .600_r8*rxt(k,61) + rxt(k,349) mat(k,399) = rxt(k,64) mat(k,201) = .500_r8*rxt(k,65) - mat(k,1122) = .650_r8*rxt(k,70) + mat(k,1121) = .650_r8*rxt(k,70) mat(k,2421) = -( het_rates(k,201) ) - mat(k,1158) = rxt(k,35) - mat(k,1084) = rxt(k,36) - mat(k,625) = rxt(k,38) - mat(k,2261) = rxt(k,41) - mat(k,1390) = .300_r8*rxt(k,56) - mat(k,541) = .400_r8*rxt(k,61) - mat(k,609) = rxt(k,88) + mat(k,1157) = rxt(k,35) + mat(k,1083) = rxt(k,36) + mat(k,620) = rxt(k,38) + mat(k,1578) = rxt(k,41) + mat(k,1389) = .300_r8*rxt(k,56) + mat(k,536) = .400_r8*rxt(k,61) + mat(k,604) = rxt(k,88) mat(k,377) = rxt(k,90) - mat(k,778) = -( het_rates(k,202) ) + mat(k,777) = -( het_rates(k,202) ) mat(k,280) = .600_r8*rxt(k,26) - mat(k,865) = -( het_rates(k,203) ) - mat(k,1875) = rxt(k,16) - mat(k,998) = rxt(k,111) - mat(k,2079) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + mat(k,864) = -( het_rates(k,203) ) + mat(k,1973) = rxt(k,16) + mat(k,1047) = rxt(k,111) + mat(k,2040) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + rxt(k,125) - mat(k,1534) = rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + mat(k,1533) = rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + rxt(k,131) + rxt(k,132) + rxt(k,133) - mat(k,574) = -( het_rates(k,204) ) - mat(k,460) = -( rxt(k,338) + het_rates(k,205) ) + mat(k,569) = -( het_rates(k,204) ) + mat(k,460) = -( rxt(k,342) + het_rates(k,205) ) mat(k,128) = rxt(k,43) - mat(k,797) = -( het_rates(k,206) ) - mat(k,441) = -( rxt(k,308) + het_rates(k,207) ) - mat(k,1299) = -( het_rates(k,208) ) - mat(k,1332) = -( rxt(k,413) + het_rates(k,209) ) - mat(k,1253) = -( het_rates(k,210) ) + mat(k,796) = -( het_rates(k,206) ) + mat(k,441) = -( rxt(k,312) + het_rates(k,207) ) + mat(k,1298) = -( het_rates(k,208) ) + mat(k,1331) = -( rxt(k,417) + het_rates(k,209) ) + mat(k,1252) = -( het_rates(k,210) ) mat(k,68) = -( het_rates(k,211) ) mat(k,74) = -( het_rates(k,212) ) - mat(k,1356) = -( het_rates(k,213) ) - mat(k,740) = -( het_rates(k,214) ) + mat(k,1355) = -( het_rates(k,213) ) + mat(k,739) = -( het_rates(k,214) ) mat(k,466) = .600_r8*rxt(k,25) - mat(k,1397) = -( het_rates(k,215) ) - mat(k,1272) = .660_r8*rxt(k,51) - mat(k,613) = rxt(k,55) + rxt(k,395) - mat(k,910) = -( het_rates(k,216) ) - mat(k,599) = .600_r8*rxt(k,27) - mat(k,698) = -( het_rates(k,217) ) + mat(k,1396) = -( het_rates(k,215) ) + mat(k,1271) = .660_r8*rxt(k,51) + mat(k,608) = rxt(k,55) + rxt(k,399) + mat(k,909) = -( het_rates(k,216) ) + mat(k,594) = .600_r8*rxt(k,27) + mat(k,697) = -( het_rates(k,217) ) mat(k,82) = -( het_rates(k,218) ) - mat(k,529) = -( het_rates(k,219) ) - mat(k,676) = -( het_rates(k,220) ) - mat(k,845) = -( het_rates(k,221) ) - mat(k,1873) = rxt(k,16) - mat(k,852) = rxt(k,589) - mat(k,806) = rxt(k,592) + mat(k,645) = -( rxt(k,188) + het_rates(k,219) ) + mat(k,622) = -( het_rates(k,220) ) + mat(k,844) = -( het_rates(k,221) ) + mat(k,1971) = rxt(k,16) + mat(k,851) = rxt(k,593) + mat(k,805) = rxt(k,596) mat(k,502) = -( het_rates(k,222) ) - mat(k,994) = rxt(k,111) - mat(k,1106) = -( het_rates(k,223) ) - mat(k,2031) = -( rxt(k,155) + het_rates(k,224) ) - mat(k,2440) = rxt(k,1) - mat(k,1549) = rxt(k,6) - mat(k,2228) = rxt(k,7) - mat(k,259) = rxt(k,12) - mat(k,177) = -( rxt(k,151) + rxt(k,159) + het_rates(k,225) ) - mat(k,2179) = rxt(k,7) - mat(k,179) = rxt(k,163) - mat(k,180) = -( rxt(k,152) + rxt(k,163) + het_rates(k,226) ) - mat(k,853) = -( rxt(k,589) + het_rates(k,227) ) - mat(k,1533) = rxt(k,126) + rxt(k,130) - mat(k,1818) = -( het_rates(k,228) ) + mat(k,1043) = rxt(k,111) + mat(k,1105) = -( het_rates(k,223) ) + mat(k,1632) = -( rxt(k,155) + het_rates(k,224) ) + mat(k,2435) = rxt(k,1) + mat(k,1543) = rxt(k,6) + mat(k,2117) = rxt(k,7) + mat(k,258) = rxt(k,12) + mat(k,177) = -( rxt(k,151) + rxt(k,160) + het_rates(k,225) ) + mat(k,2073) = rxt(k,7) + mat(k,179) = rxt(k,164) + mat(k,180) = -( rxt(k,152) + rxt(k,164) + het_rates(k,226) ) + mat(k,852) = -( rxt(k,593) + het_rates(k,227) ) + mat(k,1532) = rxt(k,126) + rxt(k,130) + mat(k,1798) = -( het_rates(k,228) ) mat(k,2436) = rxt(k,3) - mat(k,584) = 2.000_r8*rxt(k,4) - mat(k,2050) = rxt(k,9) - mat(k,475) = rxt(k,10) - mat(k,694) = rxt(k,21) + mat(k,588) = 2.000_r8*rxt(k,4) + mat(k,2357) = rxt(k,9) + mat(k,474) = rxt(k,10) + mat(k,693) = rxt(k,21) mat(k,419) = rxt(k,22) mat(k,348) = rxt(k,29) mat(k,353) = rxt(k,30) mat(k,412) = rxt(k,31) mat(k,272) = rxt(k,32) - mat(k,623) = rxt(k,38) + mat(k,618) = rxt(k,38) mat(k,455) = rxt(k,39) - mat(k,2249) = .330_r8*rxt(k,40) + mat(k,1566) = .330_r8*rxt(k,40) mat(k,129) = rxt(k,43) mat(k,224) = rxt(k,47) - mat(k,715) = rxt(k,50) + mat(k,714) = rxt(k,50) mat(k,325) = rxt(k,54) mat(k,394) = rxt(k,59) mat(k,342) = rxt(k,62) - mat(k,546) = rxt(k,63) + mat(k,541) = rxt(k,63) mat(k,400) = rxt(k,64) - mat(k,659) = rxt(k,66) + mat(k,669) = rxt(k,66) mat(k,490) = rxt(k,68) - mat(k,673) = rxt(k,71) + mat(k,683) = rxt(k,71) mat(k,205) = rxt(k,72) - mat(k,738) = rxt(k,73) + mat(k,730) = rxt(k,73) mat(k,425) = rxt(k,74) - mat(k,791) = rxt(k,106) - mat(k,840) = rxt(k,107) - mat(k,1958) = .500_r8*rxt(k,529) - mat(k,805) = -( rxt(k,592) + het_rates(k,229) ) - mat(k,2074) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + mat(k,790) = rxt(k,106) + mat(k,838) = rxt(k,107) + mat(k,1889) = .500_r8*rxt(k,533) + mat(k,804) = -( rxt(k,596) + het_rates(k,229) ) + mat(k,2035) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + rxt(k,125) - mat(k,1531) = rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,131) + rxt(k,132) & + mat(k,1530) = rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,131) + rxt(k,132) & + rxt(k,133) mat(k,448) = -( het_rates(k,230) ) - mat(k,814) = -( het_rates(k,231) ) - mat(k,1217) = -( het_rates(k,232) ) - mat(k,1121) = .150_r8*rxt(k,70) - mat(k,1178) = -( het_rates(k,233) ) - mat(k,1062) = -( het_rates(k,234) ) - mat(k,751) = -( het_rates(k,235) ) + mat(k,813) = -( het_rates(k,231) ) + mat(k,1216) = -( het_rates(k,232) ) + mat(k,1120) = .150_r8*rxt(k,70) + mat(k,1177) = -( het_rates(k,233) ) + mat(k,1061) = -( het_rates(k,234) ) + mat(k,750) = -( het_rates(k,235) ) mat(k,88) = -( het_rates(k,236) ) - mat(k,1233) = -( het_rates(k,237) ) - mat(k,767) = -( het_rates(k,238) ) + mat(k,1232) = -( het_rates(k,237) ) + mat(k,766) = -( het_rates(k,238) ) mat(k,94) = -( het_rates(k,239) ) mat(k,510) = -( het_rates(k,240) ) mat(k,2449) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,241) ) - mat(k,2262) = .050_r8*rxt(k,40) + mat(k,1579) = .050_r8*rxt(k,40) mat(k,132) = rxt(k,136) - mat(k,2370) = rxt(k,521) + mat(k,2347) = rxt(k,525) end do end subroutine linmat03 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_factor.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_factor.F90 index 25fbdd405b..2ecb978c68 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_factor.F90 @@ -89,65 +89,65 @@ subroutine lu_fac02( avec_len, lu ) lu(k,95) = 1._r8 / lu(k,95) lu(k,96) = lu(k,96) * lu(k,95) lu(k,97) = lu(k,97) * lu(k,95) - lu(k,1592) = lu(k,1592) - lu(k,96) * lu(k,1580) - lu(k,1602) = lu(k,1602) - lu(k,97) * lu(k,1580) + lu(k,2146) = lu(k,2146) - lu(k,96) * lu(k,2132) + lu(k,2152) = lu(k,2152) - lu(k,97) * lu(k,2132) lu(k,98) = 1._r8 / lu(k,98) lu(k,99) = lu(k,99) * lu(k,98) lu(k,100) = lu(k,100) * lu(k,98) - lu(k,1818) = lu(k,1818) - lu(k,99) * lu(k,1681) - lu(k,1831) = lu(k,1831) - lu(k,100) * lu(k,1681) + lu(k,1798) = lu(k,1798) - lu(k,99) * lu(k,1661) + lu(k,1811) = lu(k,1811) - lu(k,100) * lu(k,1661) lu(k,101) = 1._r8 / lu(k,101) lu(k,102) = lu(k,102) * lu(k,101) lu(k,103) = lu(k,103) * lu(k,101) - lu(k,2031) = lu(k,2031) - lu(k,102) * lu(k,1998) - lu(k,2035) = lu(k,2035) - lu(k,103) * lu(k,1998) + lu(k,1632) = lu(k,1632) - lu(k,102) * lu(k,1604) + lu(k,1634) = lu(k,1634) - lu(k,103) * lu(k,1604) lu(k,104) = 1._r8 / lu(k,104) lu(k,105) = lu(k,105) * lu(k,104) lu(k,106) = lu(k,106) * lu(k,104) - lu(k,1818) = lu(k,1818) - lu(k,105) * lu(k,1682) - lu(k,1829) = lu(k,1829) - lu(k,106) * lu(k,1682) + lu(k,1798) = lu(k,1798) - lu(k,105) * lu(k,1662) + lu(k,1808) = lu(k,1808) - lu(k,106) * lu(k,1662) lu(k,107) = 1._r8 / lu(k,107) lu(k,108) = lu(k,108) * lu(k,107) lu(k,109) = lu(k,109) * lu(k,107) lu(k,110) = lu(k,110) * lu(k,107) - lu(k,2009) = lu(k,2009) - lu(k,108) * lu(k,1999) - lu(k,2022) = lu(k,2022) - lu(k,109) * lu(k,1999) - lu(k,2031) = lu(k,2031) - lu(k,110) * lu(k,1999) + lu(k,1615) = lu(k,1615) - lu(k,108) * lu(k,1605) + lu(k,1628) = lu(k,1628) - lu(k,109) * lu(k,1605) + lu(k,1632) = lu(k,1632) - lu(k,110) * lu(k,1605) lu(k,111) = 1._r8 / lu(k,111) lu(k,112) = lu(k,112) * lu(k,111) lu(k,113) = lu(k,113) * lu(k,111) lu(k,114) = lu(k,114) * lu(k,111) - lu(k,2011) = lu(k,2011) - lu(k,112) * lu(k,2000) - lu(k,2031) = lu(k,2031) - lu(k,113) * lu(k,2000) - lu(k,2035) = lu(k,2035) - lu(k,114) * lu(k,2000) + lu(k,1617) = lu(k,1617) - lu(k,112) * lu(k,1606) + lu(k,1632) = lu(k,1632) - lu(k,113) * lu(k,1606) + lu(k,1634) = lu(k,1634) - lu(k,114) * lu(k,1606) lu(k,115) = 1._r8 / lu(k,115) lu(k,116) = lu(k,116) * lu(k,115) lu(k,117) = lu(k,117) * lu(k,115) lu(k,118) = lu(k,118) * lu(k,115) - lu(k,2009) = lu(k,2009) - lu(k,116) * lu(k,2001) - lu(k,2031) = lu(k,2031) - lu(k,117) * lu(k,2001) - lu(k,2035) = lu(k,2035) - lu(k,118) * lu(k,2001) + lu(k,1615) = lu(k,1615) - lu(k,116) * lu(k,1607) + lu(k,1632) = lu(k,1632) - lu(k,117) * lu(k,1607) + lu(k,1634) = lu(k,1634) - lu(k,118) * lu(k,1607) lu(k,119) = 1._r8 / lu(k,119) lu(k,120) = lu(k,120) * lu(k,119) lu(k,121) = lu(k,121) * lu(k,119) lu(k,122) = lu(k,122) * lu(k,119) - lu(k,2009) = lu(k,2009) - lu(k,120) * lu(k,2002) - lu(k,2031) = lu(k,2031) - lu(k,121) * lu(k,2002) - lu(k,2035) = lu(k,2035) - lu(k,122) * lu(k,2002) + lu(k,1615) = lu(k,1615) - lu(k,120) * lu(k,1608) + lu(k,1632) = lu(k,1632) - lu(k,121) * lu(k,1608) + lu(k,1634) = lu(k,1634) - lu(k,122) * lu(k,1608) lu(k,123) = 1._r8 / lu(k,123) lu(k,124) = lu(k,124) * lu(k,123) lu(k,125) = lu(k,125) * lu(k,123) lu(k,126) = lu(k,126) * lu(k,123) - lu(k,1818) = lu(k,1818) - lu(k,124) * lu(k,1683) - lu(k,1826) = lu(k,1826) - lu(k,125) * lu(k,1683) - lu(k,1831) = lu(k,1831) - lu(k,126) * lu(k,1683) + lu(k,1798) = lu(k,1798) - lu(k,124) * lu(k,1663) + lu(k,1799) = lu(k,1799) - lu(k,125) * lu(k,1663) + lu(k,1811) = lu(k,1811) - lu(k,126) * lu(k,1663) lu(k,127) = 1._r8 / lu(k,127) lu(k,128) = lu(k,128) * lu(k,127) lu(k,129) = lu(k,129) * lu(k,127) - lu(k,796) = lu(k,796) - lu(k,128) * lu(k,795) - lu(k,800) = - lu(k,129) * lu(k,795) - lu(k,2293) = - lu(k,128) * lu(k,2275) - lu(k,2357) = lu(k,2357) - lu(k,129) * lu(k,2275) + lu(k,795) = lu(k,795) - lu(k,128) * lu(k,794) + lu(k,799) = - lu(k,129) * lu(k,794) + lu(k,2270) = - lu(k,128) * lu(k,2252) + lu(k,2334) = lu(k,2334) - lu(k,129) * lu(k,2252) lu(k,130) = 1._r8 / lu(k,130) lu(k,131) = lu(k,131) * lu(k,130) lu(k,132) = lu(k,132) * lu(k,130) @@ -158,26 +158,26 @@ subroutine lu_fac02( avec_len, lu ) lu(k,133) = 1._r8 / lu(k,133) lu(k,134) = lu(k,134) * lu(k,133) lu(k,135) = lu(k,135) * lu(k,133) - lu(k,712) = lu(k,712) - lu(k,134) * lu(k,710) - lu(k,715) = lu(k,715) - lu(k,135) * lu(k,710) - lu(k,1799) = lu(k,1799) - lu(k,134) * lu(k,1684) - lu(k,1818) = lu(k,1818) - lu(k,135) * lu(k,1684) + lu(k,711) = lu(k,711) - lu(k,134) * lu(k,709) + lu(k,714) = lu(k,714) - lu(k,135) * lu(k,709) + lu(k,1779) = lu(k,1779) - lu(k,134) * lu(k,1664) + lu(k,1798) = lu(k,1798) - lu(k,135) * lu(k,1664) lu(k,136) = 1._r8 / lu(k,136) lu(k,137) = lu(k,137) * lu(k,136) lu(k,138) = lu(k,138) * lu(k,136) lu(k,523) = lu(k,523) - lu(k,137) * lu(k,522) - lu(k,527) = lu(k,527) - lu(k,138) * lu(k,522) - lu(k,1932) = lu(k,1932) - lu(k,137) * lu(k,1927) - lu(k,1960) = lu(k,1960) - lu(k,138) * lu(k,1927) + lu(k,526) = lu(k,526) - lu(k,138) * lu(k,522) + lu(k,1863) = lu(k,1863) - lu(k,137) * lu(k,1858) + lu(k,1891) = lu(k,1891) - lu(k,138) * lu(k,1858) lu(k,139) = 1._r8 / lu(k,139) lu(k,140) = lu(k,140) * lu(k,139) lu(k,141) = lu(k,141) * lu(k,139) lu(k,142) = lu(k,142) * lu(k,139) lu(k,143) = lu(k,143) * lu(k,139) - lu(k,2009) = lu(k,2009) - lu(k,140) * lu(k,2003) - lu(k,2022) = lu(k,2022) - lu(k,141) * lu(k,2003) - lu(k,2031) = lu(k,2031) - lu(k,142) * lu(k,2003) - lu(k,2035) = lu(k,2035) - lu(k,143) * lu(k,2003) + lu(k,1615) = lu(k,1615) - lu(k,140) * lu(k,1609) + lu(k,1628) = lu(k,1628) - lu(k,141) * lu(k,1609) + lu(k,1632) = lu(k,1632) - lu(k,142) * lu(k,1609) + lu(k,1634) = lu(k,1634) - lu(k,143) * lu(k,1609) end do end subroutine lu_fac02 subroutine lu_fac03( avec_len, lu ) @@ -199,86 +199,86 @@ subroutine lu_fac03( avec_len, lu ) lu(k,146) = lu(k,146) * lu(k,144) lu(k,147) = lu(k,147) * lu(k,144) lu(k,148) = lu(k,148) * lu(k,144) - lu(k,2009) = lu(k,2009) - lu(k,145) * lu(k,2004) - lu(k,2019) = lu(k,2019) - lu(k,146) * lu(k,2004) - lu(k,2022) = lu(k,2022) - lu(k,147) * lu(k,2004) - lu(k,2031) = lu(k,2031) - lu(k,148) * lu(k,2004) + lu(k,1615) = lu(k,1615) - lu(k,145) * lu(k,1610) + lu(k,1625) = lu(k,1625) - lu(k,146) * lu(k,1610) + lu(k,1628) = lu(k,1628) - lu(k,147) * lu(k,1610) + lu(k,1632) = lu(k,1632) - lu(k,148) * lu(k,1610) lu(k,149) = 1._r8 / lu(k,149) lu(k,150) = lu(k,150) * lu(k,149) lu(k,151) = lu(k,151) * lu(k,149) lu(k,152) = lu(k,152) * lu(k,149) lu(k,153) = lu(k,153) * lu(k,149) - lu(k,2009) = lu(k,2009) - lu(k,150) * lu(k,2005) - lu(k,2011) = lu(k,2011) - lu(k,151) * lu(k,2005) - lu(k,2031) = lu(k,2031) - lu(k,152) * lu(k,2005) - lu(k,2035) = lu(k,2035) - lu(k,153) * lu(k,2005) + lu(k,1615) = lu(k,1615) - lu(k,150) * lu(k,1611) + lu(k,1617) = lu(k,1617) - lu(k,151) * lu(k,1611) + lu(k,1632) = lu(k,1632) - lu(k,152) * lu(k,1611) + lu(k,1634) = lu(k,1634) - lu(k,153) * lu(k,1611) lu(k,154) = 1._r8 / lu(k,154) lu(k,155) = lu(k,155) * lu(k,154) lu(k,156) = lu(k,156) * lu(k,154) lu(k,157) = lu(k,157) * lu(k,154) lu(k,158) = lu(k,158) * lu(k,154) - lu(k,2009) = lu(k,2009) - lu(k,155) * lu(k,2006) - lu(k,2019) = lu(k,2019) - lu(k,156) * lu(k,2006) - lu(k,2031) = lu(k,2031) - lu(k,157) * lu(k,2006) - lu(k,2035) = lu(k,2035) - lu(k,158) * lu(k,2006) + lu(k,1615) = lu(k,1615) - lu(k,155) * lu(k,1612) + lu(k,1625) = lu(k,1625) - lu(k,156) * lu(k,1612) + lu(k,1632) = lu(k,1632) - lu(k,157) * lu(k,1612) + lu(k,1634) = lu(k,1634) - lu(k,158) * lu(k,1612) lu(k,160) = 1._r8 / lu(k,160) lu(k,161) = lu(k,161) * lu(k,160) lu(k,162) = lu(k,162) * lu(k,160) lu(k,163) = lu(k,163) * lu(k,160) lu(k,164) = lu(k,164) * lu(k,160) lu(k,165) = lu(k,165) * lu(k,160) - lu(k,1686) = lu(k,1686) - lu(k,161) * lu(k,1685) - lu(k,1687) = lu(k,1687) - lu(k,162) * lu(k,1685) - lu(k,1736) = lu(k,1736) - lu(k,163) * lu(k,1685) - lu(k,1818) = lu(k,1818) - lu(k,164) * lu(k,1685) - lu(k,1829) = lu(k,1829) - lu(k,165) * lu(k,1685) + lu(k,1666) = lu(k,1666) - lu(k,161) * lu(k,1665) + lu(k,1667) = lu(k,1667) - lu(k,162) * lu(k,1665) + lu(k,1716) = lu(k,1716) - lu(k,163) * lu(k,1665) + lu(k,1798) = lu(k,1798) - lu(k,164) * lu(k,1665) + lu(k,1808) = lu(k,1808) - lu(k,165) * lu(k,1665) lu(k,166) = 1._r8 / lu(k,166) lu(k,167) = lu(k,167) * lu(k,166) lu(k,168) = lu(k,168) * lu(k,166) lu(k,169) = lu(k,169) * lu(k,166) - lu(k,1731) = - lu(k,167) * lu(k,1686) - lu(k,1793) = lu(k,1793) - lu(k,168) * lu(k,1686) - lu(k,1829) = lu(k,1829) - lu(k,169) * lu(k,1686) + lu(k,1711) = - lu(k,167) * lu(k,1666) + lu(k,1773) = lu(k,1773) - lu(k,168) * lu(k,1666) + lu(k,1808) = lu(k,1808) - lu(k,169) * lu(k,1666) lu(k,170) = 1._r8 / lu(k,170) lu(k,171) = lu(k,171) * lu(k,170) lu(k,172) = lu(k,172) * lu(k,170) lu(k,173) = lu(k,173) * lu(k,170) lu(k,174) = lu(k,174) * lu(k,170) - lu(k,1729) = lu(k,1729) - lu(k,171) * lu(k,1687) - lu(k,1732) = lu(k,1732) - lu(k,172) * lu(k,1687) - lu(k,1818) = lu(k,1818) - lu(k,173) * lu(k,1687) - lu(k,1829) = lu(k,1829) - lu(k,174) * lu(k,1687) + lu(k,1709) = lu(k,1709) - lu(k,171) * lu(k,1667) + lu(k,1712) = lu(k,1712) - lu(k,172) * lu(k,1667) + lu(k,1798) = lu(k,1798) - lu(k,173) * lu(k,1667) + lu(k,1808) = lu(k,1808) - lu(k,174) * lu(k,1667) lu(k,175) = 1._r8 / lu(k,175) lu(k,176) = lu(k,176) * lu(k,175) - lu(k,842) = lu(k,842) - lu(k,176) * lu(k,836) - lu(k,963) = lu(k,963) - lu(k,176) * lu(k,953) - lu(k,1506) = lu(k,1506) - lu(k,176) * lu(k,1490) - lu(k,1602) = lu(k,1602) - lu(k,176) * lu(k,1581) - lu(k,2168) = lu(k,2168) - lu(k,176) * lu(k,2128) + lu(k,839) = lu(k,839) - lu(k,176) * lu(k,835) + lu(k,957) = lu(k,957) - lu(k,176) * lu(k,952) + lu(k,1499) = lu(k,1499) - lu(k,176) * lu(k,1489) + lu(k,1845) = lu(k,1845) - lu(k,176) * lu(k,1812) + lu(k,2146) = lu(k,2146) - lu(k,176) * lu(k,2133) lu(k,177) = 1._r8 / lu(k,177) lu(k,178) = lu(k,178) * lu(k,177) lu(k,181) = lu(k,181) - lu(k,178) * lu(k,179) - lu(k,1451) = - lu(k,178) * lu(k,1442) - lu(k,1542) = lu(k,1542) - lu(k,178) * lu(k,1524) - lu(k,2089) = lu(k,2089) - lu(k,178) * lu(k,2064) - lu(k,2220) = lu(k,2220) - lu(k,178) * lu(k,2179) + lu(k,1450) = - lu(k,178) * lu(k,1441) + lu(k,1541) = lu(k,1541) - lu(k,178) * lu(k,1523) + lu(k,2050) = lu(k,2050) - lu(k,178) * lu(k,2025) + lu(k,2114) = lu(k,2114) - lu(k,178) * lu(k,2073) lu(k,180) = 1._r8 / lu(k,180) lu(k,181) = lu(k,181) * lu(k,180) - lu(k,1451) = lu(k,1451) - lu(k,181) * lu(k,1443) - lu(k,1542) = lu(k,1542) - lu(k,181) * lu(k,1525) - lu(k,2023) = lu(k,2023) - lu(k,181) * lu(k,2007) - lu(k,2089) = lu(k,2089) - lu(k,181) * lu(k,2065) - lu(k,2220) = lu(k,2220) - lu(k,181) * lu(k,2180) + lu(k,1450) = lu(k,1450) - lu(k,181) * lu(k,1442) + lu(k,1541) = lu(k,1541) - lu(k,181) * lu(k,1524) + lu(k,1629) = lu(k,1629) - lu(k,181) * lu(k,1613) + lu(k,2050) = lu(k,2050) - lu(k,181) * lu(k,2026) + lu(k,2114) = lu(k,2114) - lu(k,181) * lu(k,2074) lu(k,182) = 1._r8 / lu(k,182) lu(k,183) = lu(k,183) * lu(k,182) lu(k,184) = lu(k,184) * lu(k,182) lu(k,185) = lu(k,185) * lu(k,182) - lu(k,1818) = lu(k,1818) - lu(k,183) * lu(k,1688) - lu(k,1822) = - lu(k,184) * lu(k,1688) - lu(k,1829) = lu(k,1829) - lu(k,185) * lu(k,1688) - lu(k,2027) = lu(k,2027) - lu(k,183) * lu(k,2008) - lu(k,2031) = lu(k,2031) - lu(k,184) * lu(k,2008) - lu(k,2038) = lu(k,2038) - lu(k,185) * lu(k,2008) + lu(k,1632) = lu(k,1632) - lu(k,183) * lu(k,1614) + lu(k,1633) = lu(k,1633) - lu(k,184) * lu(k,1614) + lu(k,1643) = lu(k,1643) - lu(k,185) * lu(k,1614) + lu(k,1797) = - lu(k,183) * lu(k,1668) + lu(k,1798) = lu(k,1798) - lu(k,184) * lu(k,1668) + lu(k,1808) = lu(k,1808) - lu(k,185) * lu(k,1668) lu(k,187) = 1._r8 / lu(k,187) lu(k,188) = lu(k,188) * lu(k,187) lu(k,189) = lu(k,189) * lu(k,187) @@ -286,21 +286,21 @@ subroutine lu_fac03( avec_len, lu ) lu(k,191) = lu(k,191) * lu(k,187) lu(k,192) = lu(k,192) * lu(k,187) lu(k,193) = lu(k,193) * lu(k,187) - lu(k,1690) = lu(k,1690) - lu(k,188) * lu(k,1689) - lu(k,1691) = lu(k,1691) - lu(k,189) * lu(k,1689) - lu(k,1728) = lu(k,1728) - lu(k,190) * lu(k,1689) - lu(k,1763) = lu(k,1763) - lu(k,191) * lu(k,1689) - lu(k,1818) = lu(k,1818) - lu(k,192) * lu(k,1689) - lu(k,1829) = lu(k,1829) - lu(k,193) * lu(k,1689) + lu(k,1670) = lu(k,1670) - lu(k,188) * lu(k,1669) + lu(k,1671) = lu(k,1671) - lu(k,189) * lu(k,1669) + lu(k,1708) = lu(k,1708) - lu(k,190) * lu(k,1669) + lu(k,1743) = lu(k,1743) - lu(k,191) * lu(k,1669) + lu(k,1798) = lu(k,1798) - lu(k,192) * lu(k,1669) + lu(k,1808) = lu(k,1808) - lu(k,193) * lu(k,1669) lu(k,194) = 1._r8 / lu(k,194) lu(k,195) = lu(k,195) * lu(k,194) lu(k,196) = lu(k,196) * lu(k,194) lu(k,197) = lu(k,197) * lu(k,194) lu(k,198) = lu(k,198) * lu(k,194) - lu(k,1729) = lu(k,1729) - lu(k,195) * lu(k,1690) - lu(k,1732) = lu(k,1732) - lu(k,196) * lu(k,1690) - lu(k,1818) = lu(k,1818) - lu(k,197) * lu(k,1690) - lu(k,1829) = lu(k,1829) - lu(k,198) * lu(k,1690) + lu(k,1709) = lu(k,1709) - lu(k,195) * lu(k,1670) + lu(k,1712) = lu(k,1712) - lu(k,196) * lu(k,1670) + lu(k,1798) = lu(k,1798) - lu(k,197) * lu(k,1670) + lu(k,1808) = lu(k,1808) - lu(k,198) * lu(k,1670) end do end subroutine lu_fac03 subroutine lu_fac04( avec_len, lu ) @@ -324,18 +324,18 @@ subroutine lu_fac04( avec_len, lu ) lu(k,212) = - lu(k,200) * lu(k,207) lu(k,213) = - lu(k,201) * lu(k,207) lu(k,215) = lu(k,215) - lu(k,202) * lu(k,207) - lu(k,1793) = lu(k,1793) - lu(k,200) * lu(k,1691) - lu(k,1808) = lu(k,1808) - lu(k,201) * lu(k,1691) - lu(k,1829) = lu(k,1829) - lu(k,202) * lu(k,1691) + lu(k,1773) = lu(k,1773) - lu(k,200) * lu(k,1671) + lu(k,1788) = lu(k,1788) - lu(k,201) * lu(k,1671) + lu(k,1808) = lu(k,1808) - lu(k,202) * lu(k,1671) lu(k,203) = 1._r8 / lu(k,203) lu(k,204) = lu(k,204) * lu(k,203) lu(k,205) = lu(k,205) * lu(k,203) - lu(k,1233) = lu(k,1233) - lu(k,204) * lu(k,1227) - lu(k,1238) = - lu(k,205) * lu(k,1227) - lu(k,1799) = lu(k,1799) - lu(k,204) * lu(k,1692) - lu(k,1818) = lu(k,1818) - lu(k,205) * lu(k,1692) - lu(k,2339) = lu(k,2339) - lu(k,204) * lu(k,2276) - lu(k,2357) = lu(k,2357) - lu(k,205) * lu(k,2276) + lu(k,1232) = lu(k,1232) - lu(k,204) * lu(k,1226) + lu(k,1236) = - lu(k,205) * lu(k,1226) + lu(k,1779) = lu(k,1779) - lu(k,204) * lu(k,1672) + lu(k,1798) = lu(k,1798) - lu(k,205) * lu(k,1672) + lu(k,2316) = lu(k,2316) - lu(k,204) * lu(k,2253) + lu(k,2334) = lu(k,2334) - lu(k,205) * lu(k,2253) lu(k,208) = 1._r8 / lu(k,208) lu(k,209) = lu(k,209) * lu(k,208) lu(k,210) = lu(k,210) * lu(k,208) @@ -344,68 +344,68 @@ subroutine lu_fac04( avec_len, lu ) lu(k,213) = lu(k,213) * lu(k,208) lu(k,214) = lu(k,214) * lu(k,208) lu(k,215) = lu(k,215) * lu(k,208) - lu(k,1694) = lu(k,1694) - lu(k,209) * lu(k,1693) - lu(k,1728) = lu(k,1728) - lu(k,210) * lu(k,1693) - lu(k,1764) = lu(k,1764) - lu(k,211) * lu(k,1693) - lu(k,1793) = lu(k,1793) - lu(k,212) * lu(k,1693) - lu(k,1808) = lu(k,1808) - lu(k,213) * lu(k,1693) - lu(k,1818) = lu(k,1818) - lu(k,214) * lu(k,1693) - lu(k,1829) = lu(k,1829) - lu(k,215) * lu(k,1693) + lu(k,1674) = lu(k,1674) - lu(k,209) * lu(k,1673) + lu(k,1708) = lu(k,1708) - lu(k,210) * lu(k,1673) + lu(k,1744) = lu(k,1744) - lu(k,211) * lu(k,1673) + lu(k,1773) = lu(k,1773) - lu(k,212) * lu(k,1673) + lu(k,1788) = lu(k,1788) - lu(k,213) * lu(k,1673) + lu(k,1798) = lu(k,1798) - lu(k,214) * lu(k,1673) + lu(k,1808) = lu(k,1808) - lu(k,215) * lu(k,1673) lu(k,216) = 1._r8 / lu(k,216) lu(k,217) = lu(k,217) * lu(k,216) lu(k,218) = lu(k,218) * lu(k,216) lu(k,219) = lu(k,219) * lu(k,216) lu(k,220) = lu(k,220) * lu(k,216) - lu(k,1732) = lu(k,1732) - lu(k,217) * lu(k,1694) - lu(k,1737) = lu(k,1737) - lu(k,218) * lu(k,1694) - lu(k,1818) = lu(k,1818) - lu(k,219) * lu(k,1694) - lu(k,1829) = lu(k,1829) - lu(k,220) * lu(k,1694) + lu(k,1712) = lu(k,1712) - lu(k,217) * lu(k,1674) + lu(k,1717) = lu(k,1717) - lu(k,218) * lu(k,1674) + lu(k,1798) = lu(k,1798) - lu(k,219) * lu(k,1674) + lu(k,1808) = lu(k,1808) - lu(k,220) * lu(k,1674) lu(k,221) = 1._r8 / lu(k,221) lu(k,222) = lu(k,222) * lu(k,221) lu(k,223) = lu(k,223) * lu(k,221) lu(k,224) = lu(k,224) * lu(k,221) lu(k,225) = lu(k,225) * lu(k,221) - lu(k,1318) = - lu(k,222) * lu(k,1315) - lu(k,1329) = - lu(k,223) * lu(k,1315) - lu(k,1339) = - lu(k,224) * lu(k,1315) - lu(k,1345) = lu(k,1345) - lu(k,225) * lu(k,1315) - lu(k,1747) = - lu(k,222) * lu(k,1695) - lu(k,1799) = lu(k,1799) - lu(k,223) * lu(k,1695) - lu(k,1818) = lu(k,1818) - lu(k,224) * lu(k,1695) - lu(k,1829) = lu(k,1829) - lu(k,225) * lu(k,1695) + lu(k,1317) = - lu(k,222) * lu(k,1314) + lu(k,1328) = - lu(k,223) * lu(k,1314) + lu(k,1337) = - lu(k,224) * lu(k,1314) + lu(k,1343) = lu(k,1343) - lu(k,225) * lu(k,1314) + lu(k,1727) = - lu(k,222) * lu(k,1675) + lu(k,1779) = lu(k,1779) - lu(k,223) * lu(k,1675) + lu(k,1798) = lu(k,1798) - lu(k,224) * lu(k,1675) + lu(k,1808) = lu(k,1808) - lu(k,225) * lu(k,1675) lu(k,226) = 1._r8 / lu(k,226) lu(k,227) = lu(k,227) * lu(k,226) lu(k,228) = lu(k,228) * lu(k,226) - lu(k,975) = - lu(k,227) * lu(k,971) - lu(k,988) = lu(k,988) - lu(k,228) * lu(k,971) - lu(k,1019) = - lu(k,227) * lu(k,1015) - lu(k,1032) = lu(k,1032) - lu(k,228) * lu(k,1015) - lu(k,1783) = lu(k,1783) - lu(k,227) * lu(k,1696) - lu(k,1818) = lu(k,1818) - lu(k,228) * lu(k,1696) - lu(k,2194) = - lu(k,227) * lu(k,2181) - lu(k,2224) = lu(k,2224) - lu(k,228) * lu(k,2181) + lu(k,974) = - lu(k,227) * lu(k,970) + lu(k,986) = lu(k,986) - lu(k,228) * lu(k,970) + lu(k,1002) = - lu(k,227) * lu(k,998) + lu(k,1014) = lu(k,1014) - lu(k,228) * lu(k,998) + lu(k,1762) = lu(k,1762) - lu(k,227) * lu(k,1676) + lu(k,1798) = lu(k,1798) - lu(k,228) * lu(k,1676) + lu(k,2088) = - lu(k,227) * lu(k,2075) + lu(k,2118) = lu(k,2118) - lu(k,228) * lu(k,2075) lu(k,229) = 1._r8 / lu(k,229) lu(k,230) = lu(k,230) * lu(k,229) lu(k,231) = lu(k,231) * lu(k,229) - lu(k,789) = lu(k,789) - lu(k,230) * lu(k,786) - lu(k,793) = - lu(k,231) * lu(k,786) - lu(k,1496) = - lu(k,230) * lu(k,1491) - lu(k,1506) = lu(k,1506) - lu(k,231) * lu(k,1491) - lu(k,1563) = lu(k,1563) - lu(k,230) * lu(k,1556) - lu(k,1576) = lu(k,1576) - lu(k,231) * lu(k,1556) - lu(k,1589) = lu(k,1589) - lu(k,230) * lu(k,1582) - lu(k,1602) = lu(k,1602) - lu(k,231) * lu(k,1582) + lu(k,788) = lu(k,788) - lu(k,230) * lu(k,785) + lu(k,791) = - lu(k,231) * lu(k,785) + lu(k,1495) = - lu(k,230) * lu(k,1490) + lu(k,1499) = lu(k,1499) - lu(k,231) * lu(k,1490) + lu(k,1587) = lu(k,1587) - lu(k,230) * lu(k,1580) + lu(k,1592) = lu(k,1592) - lu(k,231) * lu(k,1580) + lu(k,2141) = lu(k,2141) - lu(k,230) * lu(k,2134) + lu(k,2146) = lu(k,2146) - lu(k,231) * lu(k,2134) lu(k,232) = 1._r8 / lu(k,232) lu(k,233) = lu(k,233) * lu(k,232) lu(k,234) = lu(k,234) * lu(k,232) - lu(k,1184) = lu(k,1184) - lu(k,233) * lu(k,1171) - lu(k,1186) = - lu(k,234) * lu(k,1171) - lu(k,1202) = lu(k,1202) - lu(k,233) * lu(k,1190) - lu(k,1204) = lu(k,1204) - lu(k,234) * lu(k,1190) - lu(k,1820) = lu(k,1820) - lu(k,233) * lu(k,1697) - lu(k,1823) = lu(k,1823) - lu(k,234) * lu(k,1697) - lu(k,1915) = lu(k,1915) - lu(k,233) * lu(k,1844) - lu(k,1918) = - lu(k,234) * lu(k,1844) + lu(k,1182) = lu(k,1182) - lu(k,233) * lu(k,1170) + lu(k,1186) = - lu(k,234) * lu(k,1170) + lu(k,1200) = lu(k,1200) - lu(k,233) * lu(k,1189) + lu(k,1204) = lu(k,1204) - lu(k,234) * lu(k,1189) + lu(k,1800) = lu(k,1800) - lu(k,233) * lu(k,1677) + lu(k,1809) = lu(k,1809) - lu(k,234) * lu(k,1677) + lu(k,2013) = lu(k,2013) - lu(k,233) * lu(k,1941) + lu(k,2022) = - lu(k,234) * lu(k,1941) lu(k,235) = 1._r8 / lu(k,235) lu(k,236) = lu(k,236) * lu(k,235) lu(k,237) = lu(k,237) * lu(k,235) @@ -413,10 +413,10 @@ subroutine lu_fac04( avec_len, lu ) lu(k,348) = lu(k,348) - lu(k,237) * lu(k,344) lu(k,436) = - lu(k,236) * lu(k,433) lu(k,437) = - lu(k,237) * lu(k,433) - lu(k,1739) = lu(k,1739) - lu(k,236) * lu(k,1698) - lu(k,1818) = lu(k,1818) - lu(k,237) * lu(k,1698) - lu(k,1858) = lu(k,1858) - lu(k,236) * lu(k,1845) - lu(k,1913) = lu(k,1913) - lu(k,237) * lu(k,1845) + lu(k,1719) = lu(k,1719) - lu(k,236) * lu(k,1678) + lu(k,1798) = lu(k,1798) - lu(k,237) * lu(k,1678) + lu(k,1955) = lu(k,1955) - lu(k,236) * lu(k,1942) + lu(k,2011) = lu(k,2011) - lu(k,237) * lu(k,1942) end do end subroutine lu_fac04 subroutine lu_fac05( avec_len, lu ) @@ -437,130 +437,130 @@ subroutine lu_fac05( avec_len, lu ) lu(k,239) = lu(k,239) * lu(k,238) lu(k,240) = lu(k,240) * lu(k,238) lu(k,252) = - lu(k,239) * lu(k,250) - lu(k,254) = lu(k,254) - lu(k,240) * lu(k,250) + lu(k,253) = lu(k,253) - lu(k,240) * lu(k,250) lu(k,293) = - lu(k,239) * lu(k,291) - lu(k,295) = lu(k,295) - lu(k,240) * lu(k,291) - lu(k,1776) = - lu(k,239) * lu(k,1699) - lu(k,1822) = lu(k,1822) - lu(k,240) * lu(k,1699) - lu(k,2019) = lu(k,2019) - lu(k,239) * lu(k,2009) - lu(k,2031) = lu(k,2031) - lu(k,240) * lu(k,2009) + lu(k,294) = lu(k,294) - lu(k,240) * lu(k,291) + lu(k,1625) = lu(k,1625) - lu(k,239) * lu(k,1615) + lu(k,1632) = lu(k,1632) - lu(k,240) * lu(k,1615) + lu(k,1756) = - lu(k,239) * lu(k,1679) + lu(k,1797) = lu(k,1797) - lu(k,240) * lu(k,1679) lu(k,241) = 1._r8 / lu(k,241) lu(k,242) = lu(k,242) * lu(k,241) lu(k,243) = lu(k,243) * lu(k,241) lu(k,244) = lu(k,244) * lu(k,241) lu(k,245) = lu(k,245) * lu(k,241) - lu(k,1701) = lu(k,1701) - lu(k,242) * lu(k,1700) - lu(k,1818) = lu(k,1818) - lu(k,243) * lu(k,1700) - lu(k,1822) = lu(k,1822) - lu(k,244) * lu(k,1700) - lu(k,1826) = lu(k,1826) - lu(k,245) * lu(k,1700) - lu(k,2011) = lu(k,2011) - lu(k,242) * lu(k,2010) - lu(k,2027) = lu(k,2027) - lu(k,243) * lu(k,2010) - lu(k,2031) = lu(k,2031) - lu(k,244) * lu(k,2010) - lu(k,2035) = lu(k,2035) - lu(k,245) * lu(k,2010) + lu(k,1617) = lu(k,1617) - lu(k,242) * lu(k,1616) + lu(k,1632) = lu(k,1632) - lu(k,243) * lu(k,1616) + lu(k,1633) = lu(k,1633) - lu(k,244) * lu(k,1616) + lu(k,1634) = lu(k,1634) - lu(k,245) * lu(k,1616) + lu(k,1681) = lu(k,1681) - lu(k,242) * lu(k,1680) + lu(k,1797) = lu(k,1797) - lu(k,243) * lu(k,1680) + lu(k,1798) = lu(k,1798) - lu(k,244) * lu(k,1680) + lu(k,1799) = lu(k,1799) - lu(k,245) * lu(k,1680) lu(k,246) = 1._r8 / lu(k,246) lu(k,247) = lu(k,247) * lu(k,246) lu(k,248) = lu(k,248) * lu(k,246) lu(k,249) = lu(k,249) * lu(k,246) - lu(k,1776) = lu(k,1776) - lu(k,247) * lu(k,1701) - lu(k,1822) = lu(k,1822) - lu(k,248) * lu(k,1701) - lu(k,1826) = lu(k,1826) - lu(k,249) * lu(k,1701) - lu(k,2019) = lu(k,2019) - lu(k,247) * lu(k,2011) - lu(k,2031) = lu(k,2031) - lu(k,248) * lu(k,2011) - lu(k,2035) = lu(k,2035) - lu(k,249) * lu(k,2011) + lu(k,1625) = lu(k,1625) - lu(k,247) * lu(k,1617) + lu(k,1632) = lu(k,1632) - lu(k,248) * lu(k,1617) + lu(k,1634) = lu(k,1634) - lu(k,249) * lu(k,1617) + lu(k,1756) = lu(k,1756) - lu(k,247) * lu(k,1681) + lu(k,1797) = lu(k,1797) - lu(k,248) * lu(k,1681) + lu(k,1799) = lu(k,1799) - lu(k,249) * lu(k,1681) lu(k,251) = 1._r8 / lu(k,251) lu(k,252) = lu(k,252) * lu(k,251) lu(k,253) = lu(k,253) * lu(k,251) lu(k,254) = lu(k,254) * lu(k,251) lu(k,255) = lu(k,255) * lu(k,251) - lu(k,1776) = lu(k,1776) - lu(k,252) * lu(k,1702) - lu(k,1818) = lu(k,1818) - lu(k,253) * lu(k,1702) - lu(k,1822) = lu(k,1822) - lu(k,254) * lu(k,1702) - lu(k,1826) = lu(k,1826) - lu(k,255) * lu(k,1702) - lu(k,2019) = lu(k,2019) - lu(k,252) * lu(k,2012) - lu(k,2027) = lu(k,2027) - lu(k,253) * lu(k,2012) - lu(k,2031) = lu(k,2031) - lu(k,254) * lu(k,2012) - lu(k,2035) = lu(k,2035) - lu(k,255) * lu(k,2012) + lu(k,1625) = lu(k,1625) - lu(k,252) * lu(k,1618) + lu(k,1632) = lu(k,1632) - lu(k,253) * lu(k,1618) + lu(k,1633) = lu(k,1633) - lu(k,254) * lu(k,1618) + lu(k,1634) = lu(k,1634) - lu(k,255) * lu(k,1618) + lu(k,1756) = lu(k,1756) - lu(k,252) * lu(k,1682) + lu(k,1797) = lu(k,1797) - lu(k,253) * lu(k,1682) + lu(k,1798) = lu(k,1798) - lu(k,254) * lu(k,1682) + lu(k,1799) = lu(k,1799) - lu(k,255) * lu(k,1682) lu(k,256) = 1._r8 / lu(k,256) lu(k,257) = lu(k,257) * lu(k,256) lu(k,258) = lu(k,258) * lu(k,256) lu(k,259) = lu(k,259) * lu(k,256) - lu(k,1002) = lu(k,1002) - lu(k,257) * lu(k,993) - lu(k,1004) = lu(k,1004) - lu(k,258) * lu(k,993) - lu(k,1006) = - lu(k,259) * lu(k,993) - lu(k,1954) = lu(k,1954) - lu(k,257) * lu(k,1928) - lu(k,1959) = lu(k,1959) - lu(k,258) * lu(k,1928) - lu(k,1962) = - lu(k,259) * lu(k,1928) - lu(k,2023) = lu(k,2023) - lu(k,257) * lu(k,2013) - lu(k,2028) = lu(k,2028) - lu(k,258) * lu(k,2013) - lu(k,2031) = lu(k,2031) - lu(k,259) * lu(k,2013) + lu(k,1051) = lu(k,1051) - lu(k,257) * lu(k,1042) + lu(k,1052) = - lu(k,258) * lu(k,1042) + lu(k,1055) = lu(k,1055) - lu(k,259) * lu(k,1042) + lu(k,1629) = lu(k,1629) - lu(k,257) * lu(k,1619) + lu(k,1632) = lu(k,1632) - lu(k,258) * lu(k,1619) + lu(k,1637) = lu(k,1637) - lu(k,259) * lu(k,1619) + lu(k,1885) = lu(k,1885) - lu(k,257) * lu(k,1859) + lu(k,1888) = - lu(k,258) * lu(k,1859) + lu(k,1893) = lu(k,1893) - lu(k,259) * lu(k,1859) lu(k,261) = 1._r8 / lu(k,261) lu(k,262) = lu(k,262) * lu(k,261) lu(k,263) = lu(k,263) * lu(k,261) lu(k,264) = lu(k,264) * lu(k,261) - lu(k,947) = lu(k,947) - lu(k,262) * lu(k,946) - lu(k,950) = lu(k,950) - lu(k,263) * lu(k,946) - lu(k,952) = - lu(k,264) * lu(k,946) - lu(k,1778) = lu(k,1778) - lu(k,262) * lu(k,1703) - lu(k,1824) = lu(k,1824) - lu(k,263) * lu(k,1703) - lu(k,1831) = lu(k,1831) - lu(k,264) * lu(k,1703) + lu(k,946) = lu(k,946) - lu(k,262) * lu(k,945) + lu(k,949) = lu(k,949) - lu(k,263) * lu(k,945) + lu(k,951) = - lu(k,264) * lu(k,945) + lu(k,1758) = lu(k,1758) - lu(k,262) * lu(k,1683) + lu(k,1803) = lu(k,1803) - lu(k,263) * lu(k,1683) + lu(k,1811) = lu(k,1811) - lu(k,264) * lu(k,1683) lu(k,2427) = - lu(k,262) * lu(k,2424) - lu(k,2442) = lu(k,2442) - lu(k,263) * lu(k,2424) + lu(k,2441) = lu(k,2441) - lu(k,263) * lu(k,2424) lu(k,2449) = lu(k,2449) - lu(k,264) * lu(k,2424) lu(k,265) = 1._r8 / lu(k,265) lu(k,266) = lu(k,266) * lu(k,265) lu(k,267) = lu(k,267) * lu(k,265) lu(k,268) = lu(k,268) * lu(k,265) - lu(k,902) = lu(k,902) - lu(k,266) * lu(k,898) - lu(k,904) = - lu(k,267) * lu(k,898) - lu(k,908) = lu(k,908) - lu(k,268) * lu(k,898) - lu(k,1792) = lu(k,1792) - lu(k,266) * lu(k,1704) - lu(k,1818) = lu(k,1818) - lu(k,267) * lu(k,1704) - lu(k,1829) = lu(k,1829) - lu(k,268) * lu(k,1704) + lu(k,901) = lu(k,901) - lu(k,266) * lu(k,897) + lu(k,903) = - lu(k,267) * lu(k,897) + lu(k,907) = lu(k,907) - lu(k,268) * lu(k,897) + lu(k,1772) = lu(k,1772) - lu(k,266) * lu(k,1684) + lu(k,1798) = lu(k,1798) - lu(k,267) * lu(k,1684) + lu(k,1808) = lu(k,1808) - lu(k,268) * lu(k,1684) lu(k,2388) = lu(k,2388) - lu(k,266) * lu(k,2371) lu(k,2409) = - lu(k,267) * lu(k,2371) - lu(k,2420) = lu(k,2420) - lu(k,268) * lu(k,2371) + lu(k,2419) = lu(k,2419) - lu(k,268) * lu(k,2371) lu(k,269) = 1._r8 / lu(k,269) lu(k,270) = lu(k,270) * lu(k,269) lu(k,271) = lu(k,271) * lu(k,269) lu(k,272) = lu(k,272) * lu(k,269) - lu(k,634) = lu(k,634) - lu(k,270) * lu(k,633) - lu(k,635) = lu(k,635) - lu(k,271) * lu(k,633) - lu(k,636) = - lu(k,272) * lu(k,633) - lu(k,1732) = lu(k,1732) - lu(k,270) * lu(k,1705) - lu(k,1752) = lu(k,1752) - lu(k,271) * lu(k,1705) - lu(k,1818) = lu(k,1818) - lu(k,272) * lu(k,1705) - lu(k,2295) = - lu(k,270) * lu(k,2277) - lu(k,2304) = lu(k,2304) - lu(k,271) * lu(k,2277) - lu(k,2357) = lu(k,2357) - lu(k,272) * lu(k,2277) + lu(k,638) = lu(k,638) - lu(k,270) * lu(k,637) + lu(k,639) = lu(k,639) - lu(k,271) * lu(k,637) + lu(k,640) = - lu(k,272) * lu(k,637) + lu(k,1712) = lu(k,1712) - lu(k,270) * lu(k,1685) + lu(k,1732) = lu(k,1732) - lu(k,271) * lu(k,1685) + lu(k,1798) = lu(k,1798) - lu(k,272) * lu(k,1685) + lu(k,2272) = - lu(k,270) * lu(k,2254) + lu(k,2281) = lu(k,2281) - lu(k,271) * lu(k,2254) + lu(k,2334) = lu(k,2334) - lu(k,272) * lu(k,2254) lu(k,273) = 1._r8 / lu(k,273) lu(k,274) = lu(k,274) * lu(k,273) lu(k,275) = lu(k,275) * lu(k,273) lu(k,276) = lu(k,276) * lu(k,273) lu(k,277) = lu(k,277) * lu(k,273) lu(k,278) = lu(k,278) * lu(k,273) - lu(k,1652) = lu(k,1652) - lu(k,274) * lu(k,1609) - lu(k,1654) = lu(k,1654) - lu(k,275) * lu(k,1609) - lu(k,1655) = lu(k,1655) - lu(k,276) * lu(k,1609) - lu(k,1658) = lu(k,1658) - lu(k,277) * lu(k,1609) - lu(k,1659) = lu(k,1659) - lu(k,278) * lu(k,1609) - lu(k,1957) = lu(k,1957) - lu(k,274) * lu(k,1929) - lu(k,1959) = lu(k,1959) - lu(k,275) * lu(k,1929) - lu(k,1960) = lu(k,1960) - lu(k,276) * lu(k,1929) - lu(k,1963) = lu(k,1963) - lu(k,277) * lu(k,1929) - lu(k,1964) = lu(k,1964) - lu(k,278) * lu(k,1929) + lu(k,1891) = lu(k,1891) - lu(k,274) * lu(k,1860) + lu(k,1893) = lu(k,1893) - lu(k,275) * lu(k,1860) + lu(k,1894) = lu(k,1894) - lu(k,276) * lu(k,1860) + lu(k,1898) = lu(k,1898) - lu(k,277) * lu(k,1860) + lu(k,1900) = lu(k,1900) - lu(k,278) * lu(k,1860) + lu(k,2228) = lu(k,2228) - lu(k,274) * lu(k,2182) + lu(k,2230) = lu(k,2230) - lu(k,275) * lu(k,2182) + lu(k,2231) = lu(k,2231) - lu(k,276) * lu(k,2182) + lu(k,2235) = lu(k,2235) - lu(k,277) * lu(k,2182) + lu(k,2237) = lu(k,2237) - lu(k,278) * lu(k,2182) lu(k,279) = 1._r8 / lu(k,279) lu(k,280) = lu(k,280) * lu(k,279) lu(k,281) = lu(k,281) * lu(k,279) - lu(k,668) = - lu(k,280) * lu(k,662) - lu(k,674) = lu(k,674) - lu(k,281) * lu(k,662) - lu(k,732) = - lu(k,280) * lu(k,725) - lu(k,739) = lu(k,739) - lu(k,281) * lu(k,725) - lu(k,752) = - lu(k,280) * lu(k,746) - lu(k,760) = lu(k,760) - lu(k,281) * lu(k,746) - lu(k,768) = - lu(k,280) * lu(k,761) - lu(k,777) = lu(k,777) - lu(k,281) * lu(k,761) - lu(k,1870) = lu(k,1870) - lu(k,280) * lu(k,1846) - lu(k,1924) = lu(k,1924) - lu(k,281) * lu(k,1846) + lu(k,678) = - lu(k,280) * lu(k,672) + lu(k,684) = lu(k,684) - lu(k,281) * lu(k,672) + lu(k,724) = - lu(k,280) * lu(k,717) + lu(k,731) = lu(k,731) - lu(k,281) * lu(k,717) + lu(k,751) = - lu(k,280) * lu(k,745) + lu(k,759) = lu(k,759) - lu(k,281) * lu(k,745) + lu(k,767) = - lu(k,280) * lu(k,760) + lu(k,776) = lu(k,776) - lu(k,281) * lu(k,760) + lu(k,1968) = lu(k,1968) - lu(k,280) * lu(k,1943) + lu(k,2021) = lu(k,2021) - lu(k,281) * lu(k,1943) end do end subroutine lu_fac05 subroutine lu_fac06( avec_len, lu ) @@ -580,143 +580,143 @@ subroutine lu_fac06( avec_len, lu ) lu(k,282) = 1._r8 / lu(k,282) lu(k,283) = lu(k,283) * lu(k,282) lu(k,284) = lu(k,284) * lu(k,282) - lu(k,925) = lu(k,925) - lu(k,283) * lu(k,924) - lu(k,930) = lu(k,930) - lu(k,284) * lu(k,924) - lu(k,1460) = lu(k,1460) - lu(k,283) * lu(k,1459) - lu(k,1468) = lu(k,1468) - lu(k,284) * lu(k,1459) - lu(k,2042) = lu(k,2042) - lu(k,283) * lu(k,2041) - lu(k,2057) = - lu(k,284) * lu(k,2041) - lu(k,2239) = lu(k,2239) - lu(k,283) * lu(k,2238) - lu(k,2256) = lu(k,2256) - lu(k,284) * lu(k,2238) + lu(k,924) = lu(k,924) - lu(k,283) * lu(k,923) + lu(k,928) = lu(k,928) - lu(k,284) * lu(k,923) + lu(k,1459) = lu(k,1459) - lu(k,283) * lu(k,1458) + lu(k,1467) = lu(k,1467) - lu(k,284) * lu(k,1458) + lu(k,1556) = lu(k,1556) - lu(k,283) * lu(k,1555) + lu(k,1574) = lu(k,1574) - lu(k,284) * lu(k,1555) + lu(k,2349) = lu(k,2349) - lu(k,283) * lu(k,2348) + lu(k,2365) = - lu(k,284) * lu(k,2348) lu(k,2426) = lu(k,2426) - lu(k,283) * lu(k,2425) - lu(k,2443) = lu(k,2443) - lu(k,284) * lu(k,2425) + lu(k,2444) = lu(k,2444) - lu(k,284) * lu(k,2425) lu(k,285) = 1._r8 / lu(k,285) lu(k,286) = lu(k,286) * lu(k,285) lu(k,287) = lu(k,287) * lu(k,285) lu(k,288) = lu(k,288) * lu(k,285) lu(k,289) = lu(k,289) * lu(k,285) lu(k,290) = lu(k,290) * lu(k,285) - lu(k,1775) = lu(k,1775) - lu(k,286) * lu(k,1706) - lu(k,1784) = lu(k,1784) - lu(k,287) * lu(k,1706) - lu(k,1793) = lu(k,1793) - lu(k,288) * lu(k,1706) - lu(k,1818) = lu(k,1818) - lu(k,289) * lu(k,1706) - lu(k,1829) = lu(k,1829) - lu(k,290) * lu(k,1706) - lu(k,2141) = - lu(k,286) * lu(k,2129) - lu(k,2144) = - lu(k,287) * lu(k,2129) - lu(k,2147) = lu(k,2147) - lu(k,288) * lu(k,2129) - lu(k,2160) = lu(k,2160) - lu(k,289) * lu(k,2129) - lu(k,2171) = lu(k,2171) - lu(k,290) * lu(k,2129) + lu(k,1755) = lu(k,1755) - lu(k,286) * lu(k,1686) + lu(k,1763) = lu(k,1763) - lu(k,287) * lu(k,1686) + lu(k,1773) = lu(k,1773) - lu(k,288) * lu(k,1686) + lu(k,1798) = lu(k,1798) - lu(k,289) * lu(k,1686) + lu(k,1808) = lu(k,1808) - lu(k,290) * lu(k,1686) + lu(k,1825) = - lu(k,286) * lu(k,1813) + lu(k,1828) = - lu(k,287) * lu(k,1813) + lu(k,1831) = lu(k,1831) - lu(k,288) * lu(k,1813) + lu(k,1844) = lu(k,1844) - lu(k,289) * lu(k,1813) + lu(k,1854) = lu(k,1854) - lu(k,290) * lu(k,1813) lu(k,292) = 1._r8 / lu(k,292) lu(k,293) = lu(k,293) * lu(k,292) lu(k,294) = lu(k,294) * lu(k,292) lu(k,295) = lu(k,295) * lu(k,292) lu(k,296) = lu(k,296) * lu(k,292) lu(k,297) = lu(k,297) * lu(k,292) - lu(k,1776) = lu(k,1776) - lu(k,293) * lu(k,1707) - lu(k,1818) = lu(k,1818) - lu(k,294) * lu(k,1707) - lu(k,1822) = lu(k,1822) - lu(k,295) * lu(k,1707) - lu(k,1826) = lu(k,1826) - lu(k,296) * lu(k,1707) - lu(k,1831) = lu(k,1831) - lu(k,297) * lu(k,1707) - lu(k,2019) = lu(k,2019) - lu(k,293) * lu(k,2014) - lu(k,2027) = lu(k,2027) - lu(k,294) * lu(k,2014) - lu(k,2031) = lu(k,2031) - lu(k,295) * lu(k,2014) - lu(k,2035) = lu(k,2035) - lu(k,296) * lu(k,2014) - lu(k,2040) = lu(k,2040) - lu(k,297) * lu(k,2014) + lu(k,1625) = lu(k,1625) - lu(k,293) * lu(k,1620) + lu(k,1632) = lu(k,1632) - lu(k,294) * lu(k,1620) + lu(k,1633) = lu(k,1633) - lu(k,295) * lu(k,1620) + lu(k,1634) = lu(k,1634) - lu(k,296) * lu(k,1620) + lu(k,1646) = lu(k,1646) - lu(k,297) * lu(k,1620) + lu(k,1756) = lu(k,1756) - lu(k,293) * lu(k,1687) + lu(k,1797) = lu(k,1797) - lu(k,294) * lu(k,1687) + lu(k,1798) = lu(k,1798) - lu(k,295) * lu(k,1687) + lu(k,1799) = lu(k,1799) - lu(k,296) * lu(k,1687) + lu(k,1811) = lu(k,1811) - lu(k,297) * lu(k,1687) lu(k,298) = 1._r8 / lu(k,298) lu(k,299) = lu(k,299) * lu(k,298) lu(k,300) = lu(k,300) * lu(k,298) lu(k,301) = lu(k,301) * lu(k,298) lu(k,302) = lu(k,302) * lu(k,298) lu(k,303) = lu(k,303) * lu(k,298) - lu(k,1773) = lu(k,1773) - lu(k,299) * lu(k,1708) - lu(k,1812) = lu(k,1812) - lu(k,300) * lu(k,1708) - lu(k,1818) = lu(k,1818) - lu(k,301) * lu(k,1708) - lu(k,1826) = lu(k,1826) - lu(k,302) * lu(k,1708) - lu(k,1831) = lu(k,1831) - lu(k,303) * lu(k,1708) - lu(k,2140) = lu(k,2140) - lu(k,299) * lu(k,2130) - lu(k,2154) = lu(k,2154) - lu(k,300) * lu(k,2130) - lu(k,2160) = lu(k,2160) - lu(k,301) * lu(k,2130) - lu(k,2168) = lu(k,2168) - lu(k,302) * lu(k,2130) - lu(k,2173) = - lu(k,303) * lu(k,2130) + lu(k,1753) = lu(k,1753) - lu(k,299) * lu(k,1688) + lu(k,1792) = lu(k,1792) - lu(k,300) * lu(k,1688) + lu(k,1798) = lu(k,1798) - lu(k,301) * lu(k,1688) + lu(k,1799) = lu(k,1799) - lu(k,302) * lu(k,1688) + lu(k,1811) = lu(k,1811) - lu(k,303) * lu(k,1688) + lu(k,1824) = lu(k,1824) - lu(k,299) * lu(k,1814) + lu(k,1838) = lu(k,1838) - lu(k,300) * lu(k,1814) + lu(k,1844) = lu(k,1844) - lu(k,301) * lu(k,1814) + lu(k,1845) = lu(k,1845) - lu(k,302) * lu(k,1814) + lu(k,1857) = - lu(k,303) * lu(k,1814) lu(k,304) = 1._r8 / lu(k,304) lu(k,305) = lu(k,305) * lu(k,304) lu(k,306) = lu(k,306) * lu(k,304) lu(k,307) = lu(k,307) * lu(k,304) lu(k,308) = lu(k,308) * lu(k,304) lu(k,309) = lu(k,309) * lu(k,304) - lu(k,1777) = lu(k,1777) - lu(k,305) * lu(k,1709) - lu(k,1812) = lu(k,1812) - lu(k,306) * lu(k,1709) - lu(k,1818) = lu(k,1818) - lu(k,307) * lu(k,1709) - lu(k,1826) = lu(k,1826) - lu(k,308) * lu(k,1709) - lu(k,1831) = lu(k,1831) - lu(k,309) * lu(k,1709) - lu(k,2142) = lu(k,2142) - lu(k,305) * lu(k,2131) - lu(k,2154) = lu(k,2154) - lu(k,306) * lu(k,2131) - lu(k,2160) = lu(k,2160) - lu(k,307) * lu(k,2131) - lu(k,2168) = lu(k,2168) - lu(k,308) * lu(k,2131) - lu(k,2173) = lu(k,2173) - lu(k,309) * lu(k,2131) + lu(k,1757) = lu(k,1757) - lu(k,305) * lu(k,1689) + lu(k,1792) = lu(k,1792) - lu(k,306) * lu(k,1689) + lu(k,1798) = lu(k,1798) - lu(k,307) * lu(k,1689) + lu(k,1799) = lu(k,1799) - lu(k,308) * lu(k,1689) + lu(k,1811) = lu(k,1811) - lu(k,309) * lu(k,1689) + lu(k,1826) = lu(k,1826) - lu(k,305) * lu(k,1815) + lu(k,1838) = lu(k,1838) - lu(k,306) * lu(k,1815) + lu(k,1844) = lu(k,1844) - lu(k,307) * lu(k,1815) + lu(k,1845) = lu(k,1845) - lu(k,308) * lu(k,1815) + lu(k,1857) = lu(k,1857) - lu(k,309) * lu(k,1815) lu(k,310) = 1._r8 / lu(k,310) lu(k,311) = lu(k,311) * lu(k,310) lu(k,312) = lu(k,312) * lu(k,310) lu(k,313) = lu(k,313) * lu(k,310) lu(k,314) = lu(k,314) * lu(k,310) lu(k,315) = lu(k,315) * lu(k,310) - lu(k,1617) = lu(k,1617) - lu(k,311) * lu(k,1610) - lu(k,1652) = lu(k,1652) - lu(k,312) * lu(k,1610) - lu(k,1653) = lu(k,1653) - lu(k,313) * lu(k,1610) - lu(k,1658) = lu(k,1658) - lu(k,314) * lu(k,1610) - lu(k,1664) = lu(k,1664) - lu(k,315) * lu(k,1610) - lu(k,1778) = lu(k,1778) - lu(k,311) * lu(k,1710) - lu(k,1817) = lu(k,1817) - lu(k,312) * lu(k,1710) - lu(k,1818) = lu(k,1818) - lu(k,313) * lu(k,1710) - lu(k,1823) = lu(k,1823) - lu(k,314) * lu(k,1710) - lu(k,1829) = lu(k,1829) - lu(k,315) * lu(k,1710) + lu(k,1758) = lu(k,1758) - lu(k,311) * lu(k,1690) + lu(k,1798) = lu(k,1798) - lu(k,312) * lu(k,1690) + lu(k,1807) = lu(k,1807) - lu(k,313) * lu(k,1690) + lu(k,1808) = lu(k,1808) - lu(k,314) * lu(k,1690) + lu(k,1809) = lu(k,1809) - lu(k,315) * lu(k,1690) + lu(k,2190) = lu(k,2190) - lu(k,311) * lu(k,2183) + lu(k,2226) = lu(k,2226) - lu(k,312) * lu(k,2183) + lu(k,2235) = lu(k,2235) - lu(k,313) * lu(k,2183) + lu(k,2236) = lu(k,2236) - lu(k,314) * lu(k,2183) + lu(k,2237) = lu(k,2237) - lu(k,315) * lu(k,2183) lu(k,316) = 1._r8 / lu(k,316) lu(k,317) = lu(k,317) * lu(k,316) lu(k,318) = lu(k,318) * lu(k,316) lu(k,319) = lu(k,319) * lu(k,316) lu(k,320) = lu(k,320) * lu(k,316) - lu(k,1356) = lu(k,1356) - lu(k,317) * lu(k,1348) - lu(k,1357) = - lu(k,318) * lu(k,1348) - lu(k,1361) = - lu(k,319) * lu(k,1348) - lu(k,1366) = lu(k,1366) - lu(k,320) * lu(k,1348) - lu(k,1805) = lu(k,1805) - lu(k,317) * lu(k,1711) - lu(k,1807) = lu(k,1807) - lu(k,318) * lu(k,1711) - lu(k,1818) = lu(k,1818) - lu(k,319) * lu(k,1711) - lu(k,1829) = lu(k,1829) - lu(k,320) * lu(k,1711) - lu(k,2345) = lu(k,2345) - lu(k,317) * lu(k,2278) - lu(k,2347) = lu(k,2347) - lu(k,318) * lu(k,2278) - lu(k,2357) = lu(k,2357) - lu(k,319) * lu(k,2278) - lu(k,2368) = lu(k,2368) - lu(k,320) * lu(k,2278) + lu(k,1355) = lu(k,1355) - lu(k,317) * lu(k,1347) + lu(k,1356) = - lu(k,318) * lu(k,1347) + lu(k,1359) = - lu(k,319) * lu(k,1347) + lu(k,1364) = lu(k,1364) - lu(k,320) * lu(k,1347) + lu(k,1785) = lu(k,1785) - lu(k,317) * lu(k,1691) + lu(k,1787) = lu(k,1787) - lu(k,318) * lu(k,1691) + lu(k,1798) = lu(k,1798) - lu(k,319) * lu(k,1691) + lu(k,1808) = lu(k,1808) - lu(k,320) * lu(k,1691) + lu(k,2322) = lu(k,2322) - lu(k,317) * lu(k,2255) + lu(k,2324) = lu(k,2324) - lu(k,318) * lu(k,2255) + lu(k,2334) = lu(k,2334) - lu(k,319) * lu(k,2255) + lu(k,2344) = lu(k,2344) - lu(k,320) * lu(k,2255) lu(k,321) = 1._r8 / lu(k,321) lu(k,322) = lu(k,322) * lu(k,321) lu(k,323) = lu(k,323) * lu(k,321) lu(k,324) = lu(k,324) * lu(k,321) lu(k,325) = lu(k,325) * lu(k,321) - lu(k,698) = lu(k,698) - lu(k,322) * lu(k,697) - lu(k,699) = lu(k,699) - lu(k,323) * lu(k,697) - lu(k,700) = lu(k,700) - lu(k,324) * lu(k,697) - lu(k,701) = lu(k,701) - lu(k,325) * lu(k,697) - lu(k,1757) = lu(k,1757) - lu(k,322) * lu(k,1712) - lu(k,1792) = lu(k,1792) - lu(k,323) * lu(k,1712) - lu(k,1808) = lu(k,1808) - lu(k,324) * lu(k,1712) - lu(k,1818) = lu(k,1818) - lu(k,325) * lu(k,1712) - lu(k,2308) = lu(k,2308) - lu(k,322) * lu(k,2279) - lu(k,2333) = lu(k,2333) - lu(k,323) * lu(k,2279) - lu(k,2348) = lu(k,2348) - lu(k,324) * lu(k,2279) - lu(k,2357) = lu(k,2357) - lu(k,325) * lu(k,2279) + lu(k,697) = lu(k,697) - lu(k,322) * lu(k,696) + lu(k,698) = lu(k,698) - lu(k,323) * lu(k,696) + lu(k,699) = lu(k,699) - lu(k,324) * lu(k,696) + lu(k,700) = lu(k,700) - lu(k,325) * lu(k,696) + lu(k,1737) = lu(k,1737) - lu(k,322) * lu(k,1692) + lu(k,1772) = lu(k,1772) - lu(k,323) * lu(k,1692) + lu(k,1788) = lu(k,1788) - lu(k,324) * lu(k,1692) + lu(k,1798) = lu(k,1798) - lu(k,325) * lu(k,1692) + lu(k,2285) = lu(k,2285) - lu(k,322) * lu(k,2256) + lu(k,2310) = lu(k,2310) - lu(k,323) * lu(k,2256) + lu(k,2325) = lu(k,2325) - lu(k,324) * lu(k,2256) + lu(k,2334) = lu(k,2334) - lu(k,325) * lu(k,2256) lu(k,326) = 1._r8 / lu(k,326) lu(k,327) = lu(k,327) * lu(k,326) lu(k,328) = lu(k,328) * lu(k,326) - lu(k,1329) = lu(k,1329) - lu(k,327) * lu(k,1316) - lu(k,1339) = lu(k,1339) - lu(k,328) * lu(k,1316) - lu(k,1419) = lu(k,1419) - lu(k,327) * lu(k,1410) - lu(k,1432) = lu(k,1432) - lu(k,328) * lu(k,1410) - lu(k,1636) = lu(k,1636) - lu(k,327) * lu(k,1611) - lu(k,1653) = lu(k,1653) - lu(k,328) * lu(k,1611) - lu(k,1799) = lu(k,1799) - lu(k,327) * lu(k,1713) - lu(k,1818) = lu(k,1818) - lu(k,328) * lu(k,1713) - lu(k,1897) = lu(k,1897) - lu(k,327) * lu(k,1847) - lu(k,1913) = lu(k,1913) - lu(k,328) * lu(k,1847) + lu(k,1328) = lu(k,1328) - lu(k,327) * lu(k,1315) + lu(k,1337) = lu(k,1337) - lu(k,328) * lu(k,1315) + lu(k,1418) = lu(k,1418) - lu(k,327) * lu(k,1409) + lu(k,1431) = lu(k,1431) - lu(k,328) * lu(k,1409) + lu(k,1779) = lu(k,1779) - lu(k,327) * lu(k,1693) + lu(k,1798) = lu(k,1798) - lu(k,328) * lu(k,1693) + lu(k,1995) = lu(k,1995) - lu(k,327) * lu(k,1944) + lu(k,2011) = lu(k,2011) - lu(k,328) * lu(k,1944) + lu(k,2209) = lu(k,2209) - lu(k,327) * lu(k,2184) + lu(k,2226) = lu(k,2226) - lu(k,328) * lu(k,2184) lu(k,2394) = lu(k,2394) - lu(k,327) * lu(k,2372) lu(k,2409) = lu(k,2409) - lu(k,328) * lu(k,2372) end do @@ -740,35 +740,35 @@ subroutine lu_fac07( avec_len, lu ) lu(k,331) = lu(k,331) * lu(k,329) lu(k,332) = lu(k,332) * lu(k,329) lu(k,333) = lu(k,333) * lu(k,329) - lu(k,735) = - lu(k,330) * lu(k,726) - lu(k,736) = lu(k,736) - lu(k,331) * lu(k,726) - lu(k,737) = - lu(k,332) * lu(k,726) - lu(k,739) = lu(k,739) - lu(k,333) * lu(k,726) - lu(k,771) = - lu(k,330) * lu(k,762) - lu(k,772) = lu(k,772) - lu(k,331) * lu(k,762) - lu(k,773) = - lu(k,332) * lu(k,762) - lu(k,777) = lu(k,777) - lu(k,333) * lu(k,762) - lu(k,1891) = lu(k,1891) - lu(k,330) * lu(k,1848) - lu(k,1900) = lu(k,1900) - lu(k,331) * lu(k,1848) - lu(k,1906) = lu(k,1906) - lu(k,332) * lu(k,1848) - lu(k,1924) = lu(k,1924) - lu(k,333) * lu(k,1848) + lu(k,727) = - lu(k,330) * lu(k,718) + lu(k,728) = lu(k,728) - lu(k,331) * lu(k,718) + lu(k,729) = - lu(k,332) * lu(k,718) + lu(k,731) = lu(k,731) - lu(k,333) * lu(k,718) + lu(k,770) = - lu(k,330) * lu(k,761) + lu(k,771) = lu(k,771) - lu(k,331) * lu(k,761) + lu(k,772) = - lu(k,332) * lu(k,761) + lu(k,776) = lu(k,776) - lu(k,333) * lu(k,761) + lu(k,1989) = lu(k,1989) - lu(k,330) * lu(k,1945) + lu(k,1998) = lu(k,1998) - lu(k,331) * lu(k,1945) + lu(k,2004) = lu(k,2004) - lu(k,332) * lu(k,1945) + lu(k,2021) = lu(k,2021) - lu(k,333) * lu(k,1945) lu(k,334) = 1._r8 / lu(k,334) lu(k,335) = lu(k,335) * lu(k,334) lu(k,336) = lu(k,336) * lu(k,334) lu(k,337) = lu(k,337) * lu(k,334) lu(k,338) = lu(k,338) * lu(k,334) - lu(k,1475) = lu(k,1475) - lu(k,335) * lu(k,1473) - lu(k,1476) = lu(k,1476) - lu(k,336) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,337) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,338) * lu(k,1473) - lu(k,1560) = lu(k,1560) - lu(k,335) * lu(k,1557) - lu(k,1561) = lu(k,1561) - lu(k,336) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,337) * lu(k,1557) - lu(k,1574) = lu(k,1574) - lu(k,338) * lu(k,1557) - lu(k,1585) = lu(k,1585) - lu(k,335) * lu(k,1583) - lu(k,1587) = lu(k,1587) - lu(k,336) * lu(k,1583) - lu(k,1592) = lu(k,1592) - lu(k,337) * lu(k,1583) - lu(k,1600) = lu(k,1600) - lu(k,338) * lu(k,1583) + lu(k,1474) = lu(k,1474) - lu(k,335) * lu(k,1472) + lu(k,1475) = lu(k,1475) - lu(k,336) * lu(k,1472) + lu(k,1483) = lu(k,1483) - lu(k,337) * lu(k,1472) + lu(k,1485) = lu(k,1485) - lu(k,338) * lu(k,1472) + lu(k,1584) = lu(k,1584) - lu(k,335) * lu(k,1581) + lu(k,1585) = lu(k,1585) - lu(k,336) * lu(k,1581) + lu(k,1596) = lu(k,1596) - lu(k,337) * lu(k,1581) + lu(k,1598) = lu(k,1598) - lu(k,338) * lu(k,1581) + lu(k,2137) = lu(k,2137) - lu(k,335) * lu(k,2135) + lu(k,2139) = lu(k,2139) - lu(k,336) * lu(k,2135) + lu(k,2150) = lu(k,2150) - lu(k,337) * lu(k,2135) + lu(k,2152) = lu(k,2152) - lu(k,338) * lu(k,2135) lu(k,339) = 1._r8 / lu(k,339) lu(k,340) = lu(k,340) * lu(k,339) lu(k,341) = lu(k,341) * lu(k,339) @@ -778,14 +778,14 @@ subroutine lu_fac07( avec_len, lu ) lu(k,449) = lu(k,449) - lu(k,341) * lu(k,447) lu(k,450) = - lu(k,342) * lu(k,447) lu(k,453) = lu(k,453) - lu(k,343) * lu(k,447) - lu(k,1729) = lu(k,1729) - lu(k,340) * lu(k,1714) - lu(k,1784) = lu(k,1784) - lu(k,341) * lu(k,1714) - lu(k,1818) = lu(k,1818) - lu(k,342) * lu(k,1714) - lu(k,1829) = lu(k,1829) - lu(k,343) * lu(k,1714) - lu(k,2291) = lu(k,2291) - lu(k,340) * lu(k,2280) - lu(k,2327) = lu(k,2327) - lu(k,341) * lu(k,2280) - lu(k,2357) = lu(k,2357) - lu(k,342) * lu(k,2280) - lu(k,2368) = lu(k,2368) - lu(k,343) * lu(k,2280) + lu(k,1709) = lu(k,1709) - lu(k,340) * lu(k,1694) + lu(k,1763) = lu(k,1763) - lu(k,341) * lu(k,1694) + lu(k,1798) = lu(k,1798) - lu(k,342) * lu(k,1694) + lu(k,1808) = lu(k,1808) - lu(k,343) * lu(k,1694) + lu(k,2268) = lu(k,2268) - lu(k,340) * lu(k,2257) + lu(k,2304) = lu(k,2304) - lu(k,341) * lu(k,2257) + lu(k,2334) = lu(k,2334) - lu(k,342) * lu(k,2257) + lu(k,2344) = lu(k,2344) - lu(k,343) * lu(k,2257) lu(k,345) = 1._r8 / lu(k,345) lu(k,346) = lu(k,346) * lu(k,345) lu(k,347) = lu(k,347) * lu(k,345) @@ -795,31 +795,31 @@ subroutine lu_fac07( avec_len, lu ) lu(k,436) = lu(k,436) - lu(k,347) * lu(k,434) lu(k,437) = lu(k,437) - lu(k,348) * lu(k,434) lu(k,440) = lu(k,440) - lu(k,349) * lu(k,434) - lu(k,1728) = lu(k,1728) - lu(k,346) * lu(k,1715) - lu(k,1739) = lu(k,1739) - lu(k,347) * lu(k,1715) - lu(k,1818) = lu(k,1818) - lu(k,348) * lu(k,1715) - lu(k,1829) = lu(k,1829) - lu(k,349) * lu(k,1715) - lu(k,2289) = lu(k,2289) - lu(k,346) * lu(k,2281) - lu(k,2300) = lu(k,2300) - lu(k,347) * lu(k,2281) - lu(k,2357) = lu(k,2357) - lu(k,348) * lu(k,2281) - lu(k,2368) = lu(k,2368) - lu(k,349) * lu(k,2281) + lu(k,1708) = lu(k,1708) - lu(k,346) * lu(k,1695) + lu(k,1719) = lu(k,1719) - lu(k,347) * lu(k,1695) + lu(k,1798) = lu(k,1798) - lu(k,348) * lu(k,1695) + lu(k,1808) = lu(k,1808) - lu(k,349) * lu(k,1695) + lu(k,2266) = lu(k,2266) - lu(k,346) * lu(k,2258) + lu(k,2277) = lu(k,2277) - lu(k,347) * lu(k,2258) + lu(k,2334) = lu(k,2334) - lu(k,348) * lu(k,2258) + lu(k,2344) = lu(k,2344) - lu(k,349) * lu(k,2258) lu(k,350) = 1._r8 / lu(k,350) lu(k,351) = lu(k,351) * lu(k,350) lu(k,352) = lu(k,352) * lu(k,350) lu(k,353) = lu(k,353) * lu(k,350) lu(k,354) = lu(k,354) * lu(k,350) - lu(k,901) = lu(k,901) - lu(k,351) * lu(k,899) - lu(k,902) = lu(k,902) - lu(k,352) * lu(k,899) - lu(k,904) = lu(k,904) - lu(k,353) * lu(k,899) - lu(k,908) = lu(k,908) - lu(k,354) * lu(k,899) - lu(k,1773) = lu(k,1773) - lu(k,351) * lu(k,1716) - lu(k,1792) = lu(k,1792) - lu(k,352) * lu(k,1716) - lu(k,1818) = lu(k,1818) - lu(k,353) * lu(k,1716) - lu(k,1829) = lu(k,1829) - lu(k,354) * lu(k,1716) - lu(k,2322) = lu(k,2322) - lu(k,351) * lu(k,2282) - lu(k,2333) = lu(k,2333) - lu(k,352) * lu(k,2282) - lu(k,2357) = lu(k,2357) - lu(k,353) * lu(k,2282) - lu(k,2368) = lu(k,2368) - lu(k,354) * lu(k,2282) + lu(k,900) = lu(k,900) - lu(k,351) * lu(k,898) + lu(k,901) = lu(k,901) - lu(k,352) * lu(k,898) + lu(k,903) = lu(k,903) - lu(k,353) * lu(k,898) + lu(k,907) = lu(k,907) - lu(k,354) * lu(k,898) + lu(k,1753) = lu(k,1753) - lu(k,351) * lu(k,1696) + lu(k,1772) = lu(k,1772) - lu(k,352) * lu(k,1696) + lu(k,1798) = lu(k,1798) - lu(k,353) * lu(k,1696) + lu(k,1808) = lu(k,1808) - lu(k,354) * lu(k,1696) + lu(k,2299) = lu(k,2299) - lu(k,351) * lu(k,2259) + lu(k,2310) = lu(k,2310) - lu(k,352) * lu(k,2259) + lu(k,2334) = lu(k,2334) - lu(k,353) * lu(k,2259) + lu(k,2344) = lu(k,2344) - lu(k,354) * lu(k,2259) lu(k,355) = 1._r8 / lu(k,355) lu(k,356) = lu(k,356) * lu(k,355) lu(k,357) = lu(k,357) * lu(k,355) @@ -828,20 +828,20 @@ subroutine lu_fac07( avec_len, lu ) lu(k,360) = lu(k,360) * lu(k,355) lu(k,361) = lu(k,361) * lu(k,355) lu(k,362) = lu(k,362) * lu(k,355) - lu(k,1613) = - lu(k,356) * lu(k,1612) - lu(k,1624) = lu(k,1624) - lu(k,357) * lu(k,1612) - lu(k,1629) = lu(k,1629) - lu(k,358) * lu(k,1612) - lu(k,1652) = lu(k,1652) - lu(k,359) * lu(k,1612) - lu(k,1653) = lu(k,1653) - lu(k,360) * lu(k,1612) - lu(k,1655) = lu(k,1655) - lu(k,361) * lu(k,1612) - lu(k,1656) = lu(k,1656) - lu(k,362) * lu(k,1612) - lu(k,1744) = lu(k,1744) - lu(k,356) * lu(k,1717) - lu(k,1787) = lu(k,1787) - lu(k,357) * lu(k,1717) - lu(k,1792) = lu(k,1792) - lu(k,358) * lu(k,1717) - lu(k,1817) = lu(k,1817) - lu(k,359) * lu(k,1717) - lu(k,1818) = lu(k,1818) - lu(k,360) * lu(k,1717) - lu(k,1820) = lu(k,1820) - lu(k,361) * lu(k,1717) - lu(k,1821) = lu(k,1821) - lu(k,362) * lu(k,1717) + lu(k,1724) = lu(k,1724) - lu(k,356) * lu(k,1697) + lu(k,1767) = lu(k,1767) - lu(k,357) * lu(k,1697) + lu(k,1772) = lu(k,1772) - lu(k,358) * lu(k,1697) + lu(k,1798) = lu(k,1798) - lu(k,359) * lu(k,1697) + lu(k,1800) = lu(k,1800) - lu(k,360) * lu(k,1697) + lu(k,1801) = lu(k,1801) - lu(k,361) * lu(k,1697) + lu(k,1807) = lu(k,1807) - lu(k,362) * lu(k,1697) + lu(k,2186) = - lu(k,356) * lu(k,2185) + lu(k,2197) = lu(k,2197) - lu(k,357) * lu(k,2185) + lu(k,2202) = lu(k,2202) - lu(k,358) * lu(k,2185) + lu(k,2226) = lu(k,2226) - lu(k,359) * lu(k,2185) + lu(k,2228) = lu(k,2228) - lu(k,360) * lu(k,2185) + lu(k,2229) = lu(k,2229) - lu(k,361) * lu(k,2185) + lu(k,2235) = lu(k,2235) - lu(k,362) * lu(k,2185) lu(k,363) = 1._r8 / lu(k,363) lu(k,364) = lu(k,364) * lu(k,363) lu(k,365) = lu(k,365) * lu(k,363) @@ -850,20 +850,20 @@ subroutine lu_fac07( avec_len, lu ) lu(k,368) = lu(k,368) * lu(k,363) lu(k,369) = lu(k,369) * lu(k,363) lu(k,370) = lu(k,370) * lu(k,363) - lu(k,1760) = lu(k,1760) - lu(k,364) * lu(k,1718) - lu(k,1778) = lu(k,1778) - lu(k,365) * lu(k,1718) - lu(k,1793) = lu(k,1793) - lu(k,366) * lu(k,1718) - lu(k,1811) = lu(k,1811) - lu(k,367) * lu(k,1718) - lu(k,1818) = lu(k,1818) - lu(k,368) * lu(k,1718) - lu(k,1824) = lu(k,1824) - lu(k,369) * lu(k,1718) - lu(k,1825) = lu(k,1825) - lu(k,370) * lu(k,1718) - lu(k,2072) = - lu(k,364) * lu(k,2066) - lu(k,2080) = - lu(k,365) * lu(k,2066) - lu(k,2083) = lu(k,2083) - lu(k,366) * lu(k,2066) - lu(k,2086) = lu(k,2086) - lu(k,367) * lu(k,2066) - lu(k,2093) = lu(k,2093) - lu(k,368) * lu(k,2066) - lu(k,2099) = lu(k,2099) - lu(k,369) * lu(k,2066) - lu(k,2100) = lu(k,2100) - lu(k,370) * lu(k,2066) + lu(k,1741) = lu(k,1741) - lu(k,364) * lu(k,1698) + lu(k,1758) = lu(k,1758) - lu(k,365) * lu(k,1698) + lu(k,1773) = lu(k,1773) - lu(k,366) * lu(k,1698) + lu(k,1791) = lu(k,1791) - lu(k,367) * lu(k,1698) + lu(k,1798) = lu(k,1798) - lu(k,368) * lu(k,1698) + lu(k,1803) = lu(k,1803) - lu(k,369) * lu(k,1698) + lu(k,1806) = lu(k,1806) - lu(k,370) * lu(k,1698) + lu(k,2033) = - lu(k,364) * lu(k,2027) + lu(k,2041) = - lu(k,365) * lu(k,2027) + lu(k,2044) = lu(k,2044) - lu(k,366) * lu(k,2027) + lu(k,2047) = lu(k,2047) - lu(k,367) * lu(k,2027) + lu(k,2054) = lu(k,2054) - lu(k,368) * lu(k,2027) + lu(k,2059) = lu(k,2059) - lu(k,369) * lu(k,2027) + lu(k,2062) = lu(k,2062) - lu(k,370) * lu(k,2027) lu(k,371) = 1._r8 / lu(k,371) lu(k,372) = lu(k,372) * lu(k,371) lu(k,373) = lu(k,373) * lu(k,371) @@ -872,20 +872,20 @@ subroutine lu_fac07( avec_len, lu ) lu(k,376) = lu(k,376) * lu(k,371) lu(k,377) = lu(k,377) * lu(k,371) lu(k,378) = lu(k,378) * lu(k,371) - lu(k,1793) = lu(k,1793) - lu(k,372) * lu(k,1719) - lu(k,1812) = lu(k,1812) - lu(k,373) * lu(k,1719) - lu(k,1818) = lu(k,1818) - lu(k,374) * lu(k,1719) - lu(k,1826) = lu(k,1826) - lu(k,375) * lu(k,1719) - lu(k,1829) = lu(k,1829) - lu(k,376) * lu(k,1719) - lu(k,1830) = lu(k,1830) - lu(k,377) * lu(k,1719) - lu(k,1831) = lu(k,1831) - lu(k,378) * lu(k,1719) - lu(k,2147) = lu(k,2147) - lu(k,372) * lu(k,2132) - lu(k,2154) = lu(k,2154) - lu(k,373) * lu(k,2132) - lu(k,2160) = lu(k,2160) - lu(k,374) * lu(k,2132) - lu(k,2168) = lu(k,2168) - lu(k,375) * lu(k,2132) - lu(k,2171) = lu(k,2171) - lu(k,376) * lu(k,2132) - lu(k,2172) = lu(k,2172) - lu(k,377) * lu(k,2132) - lu(k,2173) = lu(k,2173) - lu(k,378) * lu(k,2132) + lu(k,1773) = lu(k,1773) - lu(k,372) * lu(k,1699) + lu(k,1792) = lu(k,1792) - lu(k,373) * lu(k,1699) + lu(k,1798) = lu(k,1798) - lu(k,374) * lu(k,1699) + lu(k,1799) = lu(k,1799) - lu(k,375) * lu(k,1699) + lu(k,1808) = lu(k,1808) - lu(k,376) * lu(k,1699) + lu(k,1810) = lu(k,1810) - lu(k,377) * lu(k,1699) + lu(k,1811) = lu(k,1811) - lu(k,378) * lu(k,1699) + lu(k,1831) = lu(k,1831) - lu(k,372) * lu(k,1816) + lu(k,1838) = lu(k,1838) - lu(k,373) * lu(k,1816) + lu(k,1844) = lu(k,1844) - lu(k,374) * lu(k,1816) + lu(k,1845) = lu(k,1845) - lu(k,375) * lu(k,1816) + lu(k,1854) = lu(k,1854) - lu(k,376) * lu(k,1816) + lu(k,1856) = lu(k,1856) - lu(k,377) * lu(k,1816) + lu(k,1857) = lu(k,1857) - lu(k,378) * lu(k,1816) end do end subroutine lu_fac07 subroutine lu_fac08( avec_len, lu ) @@ -908,126 +908,126 @@ subroutine lu_fac08( avec_len, lu ) lu(k,382) = lu(k,382) * lu(k,379) lu(k,383) = lu(k,383) * lu(k,379) lu(k,384) = lu(k,384) * lu(k,379) - lu(k,976) = - lu(k,380) * lu(k,972) - lu(k,982) = lu(k,982) - lu(k,381) * lu(k,972) - lu(k,984) = - lu(k,382) * lu(k,972) - lu(k,985) = lu(k,985) - lu(k,383) * lu(k,972) - lu(k,991) = lu(k,991) - lu(k,384) * lu(k,972) - lu(k,1020) = - lu(k,380) * lu(k,1016) - lu(k,1026) = lu(k,1026) - lu(k,381) * lu(k,1016) - lu(k,1028) = - lu(k,382) * lu(k,1016) - lu(k,1029) = lu(k,1029) - lu(k,383) * lu(k,1016) - lu(k,1035) = lu(k,1035) - lu(k,384) * lu(k,1016) - lu(k,2195) = - lu(k,380) * lu(k,2182) - lu(k,2203) = lu(k,2203) - lu(k,381) * lu(k,2182) - lu(k,2210) = lu(k,2210) - lu(k,382) * lu(k,2182) - lu(k,2216) = lu(k,2216) - lu(k,383) * lu(k,2182) - lu(k,2235) = lu(k,2235) - lu(k,384) * lu(k,2182) + lu(k,975) = - lu(k,380) * lu(k,971) + lu(k,981) = lu(k,981) - lu(k,381) * lu(k,971) + lu(k,983) = - lu(k,382) * lu(k,971) + lu(k,984) = lu(k,984) - lu(k,383) * lu(k,971) + lu(k,990) = lu(k,990) - lu(k,384) * lu(k,971) + lu(k,1003) = - lu(k,380) * lu(k,999) + lu(k,1009) = lu(k,1009) - lu(k,381) * lu(k,999) + lu(k,1011) = - lu(k,382) * lu(k,999) + lu(k,1012) = lu(k,1012) - lu(k,383) * lu(k,999) + lu(k,1018) = lu(k,1018) - lu(k,384) * lu(k,999) + lu(k,2089) = - lu(k,380) * lu(k,2076) + lu(k,2097) = lu(k,2097) - lu(k,381) * lu(k,2076) + lu(k,2104) = lu(k,2104) - lu(k,382) * lu(k,2076) + lu(k,2110) = lu(k,2110) - lu(k,383) * lu(k,2076) + lu(k,2128) = lu(k,2128) - lu(k,384) * lu(k,2076) lu(k,385) = 1._r8 / lu(k,385) lu(k,386) = lu(k,386) * lu(k,385) lu(k,387) = lu(k,387) * lu(k,385) lu(k,388) = lu(k,388) * lu(k,385) lu(k,389) = lu(k,389) * lu(k,385) lu(k,390) = lu(k,390) * lu(k,385) - lu(k,1812) = lu(k,1812) - lu(k,386) * lu(k,1720) - lu(k,1813) = lu(k,1813) - lu(k,387) * lu(k,1720) - lu(k,1818) = lu(k,1818) - lu(k,388) * lu(k,1720) - lu(k,1822) = lu(k,1822) - lu(k,389) * lu(k,1720) - lu(k,1826) = lu(k,1826) - lu(k,390) * lu(k,1720) - lu(k,2021) = lu(k,2021) - lu(k,386) * lu(k,2015) - lu(k,2022) = lu(k,2022) - lu(k,387) * lu(k,2015) - lu(k,2027) = lu(k,2027) - lu(k,388) * lu(k,2015) - lu(k,2031) = lu(k,2031) - lu(k,389) * lu(k,2015) - lu(k,2035) = lu(k,2035) - lu(k,390) * lu(k,2015) - lu(k,2154) = lu(k,2154) - lu(k,386) * lu(k,2133) - lu(k,2155) = lu(k,2155) - lu(k,387) * lu(k,2133) - lu(k,2160) = lu(k,2160) - lu(k,388) * lu(k,2133) - lu(k,2164) = - lu(k,389) * lu(k,2133) - lu(k,2168) = lu(k,2168) - lu(k,390) * lu(k,2133) + lu(k,1627) = lu(k,1627) - lu(k,386) * lu(k,1621) + lu(k,1628) = lu(k,1628) - lu(k,387) * lu(k,1621) + lu(k,1632) = lu(k,1632) - lu(k,388) * lu(k,1621) + lu(k,1633) = lu(k,1633) - lu(k,389) * lu(k,1621) + lu(k,1634) = lu(k,1634) - lu(k,390) * lu(k,1621) + lu(k,1792) = lu(k,1792) - lu(k,386) * lu(k,1700) + lu(k,1793) = lu(k,1793) - lu(k,387) * lu(k,1700) + lu(k,1797) = lu(k,1797) - lu(k,388) * lu(k,1700) + lu(k,1798) = lu(k,1798) - lu(k,389) * lu(k,1700) + lu(k,1799) = lu(k,1799) - lu(k,390) * lu(k,1700) + lu(k,1838) = lu(k,1838) - lu(k,386) * lu(k,1817) + lu(k,1839) = lu(k,1839) - lu(k,387) * lu(k,1817) + lu(k,1843) = - lu(k,388) * lu(k,1817) + lu(k,1844) = lu(k,1844) - lu(k,389) * lu(k,1817) + lu(k,1845) = lu(k,1845) - lu(k,390) * lu(k,1817) lu(k,391) = 1._r8 / lu(k,391) lu(k,392) = lu(k,392) * lu(k,391) lu(k,393) = lu(k,393) * lu(k,391) lu(k,394) = lu(k,394) * lu(k,391) lu(k,395) = lu(k,395) * lu(k,391) lu(k,396) = lu(k,396) * lu(k,391) - lu(k,1105) = lu(k,1105) - lu(k,392) * lu(k,1102) - lu(k,1106) = lu(k,1106) - lu(k,393) * lu(k,1102) - lu(k,1111) = - lu(k,394) * lu(k,1102) - lu(k,1113) = lu(k,1113) - lu(k,395) * lu(k,1102) - lu(k,1115) = - lu(k,396) * lu(k,1102) - lu(k,1786) = lu(k,1786) - lu(k,392) * lu(k,1721) - lu(k,1789) = lu(k,1789) - lu(k,393) * lu(k,1721) - lu(k,1818) = lu(k,1818) - lu(k,394) * lu(k,1721) - lu(k,1820) = lu(k,1820) - lu(k,395) * lu(k,1721) - lu(k,1823) = lu(k,1823) - lu(k,396) * lu(k,1721) - lu(k,2329) = - lu(k,392) * lu(k,2283) - lu(k,2331) = lu(k,2331) - lu(k,393) * lu(k,2283) - lu(k,2357) = lu(k,2357) - lu(k,394) * lu(k,2283) - lu(k,2359) = lu(k,2359) - lu(k,395) * lu(k,2283) - lu(k,2362) = - lu(k,396) * lu(k,2283) + lu(k,1104) = lu(k,1104) - lu(k,392) * lu(k,1101) + lu(k,1105) = lu(k,1105) - lu(k,393) * lu(k,1101) + lu(k,1109) = - lu(k,394) * lu(k,1101) + lu(k,1110) = lu(k,1110) - lu(k,395) * lu(k,1101) + lu(k,1115) = - lu(k,396) * lu(k,1101) + lu(k,1766) = lu(k,1766) - lu(k,392) * lu(k,1701) + lu(k,1769) = lu(k,1769) - lu(k,393) * lu(k,1701) + lu(k,1798) = lu(k,1798) - lu(k,394) * lu(k,1701) + lu(k,1800) = lu(k,1800) - lu(k,395) * lu(k,1701) + lu(k,1809) = lu(k,1809) - lu(k,396) * lu(k,1701) + lu(k,2306) = - lu(k,392) * lu(k,2260) + lu(k,2308) = lu(k,2308) - lu(k,393) * lu(k,2260) + lu(k,2334) = lu(k,2334) - lu(k,394) * lu(k,2260) + lu(k,2336) = lu(k,2336) - lu(k,395) * lu(k,2260) + lu(k,2345) = - lu(k,396) * lu(k,2260) lu(k,397) = 1._r8 / lu(k,397) lu(k,398) = lu(k,398) * lu(k,397) lu(k,399) = lu(k,399) * lu(k,397) lu(k,400) = lu(k,400) * lu(k,397) lu(k,401) = lu(k,401) * lu(k,397) lu(k,402) = lu(k,402) * lu(k,397) - lu(k,1217) = lu(k,1217) - lu(k,398) * lu(k,1214) - lu(k,1219) = lu(k,1219) - lu(k,399) * lu(k,1214) - lu(k,1220) = lu(k,1220) - lu(k,400) * lu(k,1214) - lu(k,1223) = lu(k,1223) - lu(k,401) * lu(k,1214) - lu(k,1226) = - lu(k,402) * lu(k,1214) - lu(k,1798) = lu(k,1798) - lu(k,398) * lu(k,1722) - lu(k,1808) = lu(k,1808) - lu(k,399) * lu(k,1722) - lu(k,1818) = lu(k,1818) - lu(k,400) * lu(k,1722) - lu(k,1821) = lu(k,1821) - lu(k,401) * lu(k,1722) - lu(k,1831) = lu(k,1831) - lu(k,402) * lu(k,1722) - lu(k,2338) = lu(k,2338) - lu(k,398) * lu(k,2284) - lu(k,2348) = lu(k,2348) - lu(k,399) * lu(k,2284) - lu(k,2357) = lu(k,2357) - lu(k,400) * lu(k,2284) - lu(k,2360) = lu(k,2360) - lu(k,401) * lu(k,2284) - lu(k,2370) = lu(k,2370) - lu(k,402) * lu(k,2284) + lu(k,1216) = lu(k,1216) - lu(k,398) * lu(k,1213) + lu(k,1218) = lu(k,1218) - lu(k,399) * lu(k,1213) + lu(k,1219) = lu(k,1219) - lu(k,400) * lu(k,1213) + lu(k,1221) = lu(k,1221) - lu(k,401) * lu(k,1213) + lu(k,1225) = - lu(k,402) * lu(k,1213) + lu(k,1778) = lu(k,1778) - lu(k,398) * lu(k,1702) + lu(k,1788) = lu(k,1788) - lu(k,399) * lu(k,1702) + lu(k,1798) = lu(k,1798) - lu(k,400) * lu(k,1702) + lu(k,1801) = lu(k,1801) - lu(k,401) * lu(k,1702) + lu(k,1811) = lu(k,1811) - lu(k,402) * lu(k,1702) + lu(k,2315) = lu(k,2315) - lu(k,398) * lu(k,2261) + lu(k,2325) = lu(k,2325) - lu(k,399) * lu(k,2261) + lu(k,2334) = lu(k,2334) - lu(k,400) * lu(k,2261) + lu(k,2337) = lu(k,2337) - lu(k,401) * lu(k,2261) + lu(k,2347) = lu(k,2347) - lu(k,402) * lu(k,2261) lu(k,403) = 1._r8 / lu(k,403) lu(k,404) = lu(k,404) * lu(k,403) lu(k,405) = lu(k,405) * lu(k,403) lu(k,406) = lu(k,406) * lu(k,403) lu(k,407) = lu(k,407) * lu(k,403) lu(k,408) = lu(k,408) * lu(k,403) - lu(k,1246) = - lu(k,404) * lu(k,1244) - lu(k,1248) = - lu(k,405) * lu(k,1244) - lu(k,1260) = - lu(k,406) * lu(k,1244) - lu(k,1262) = lu(k,1262) - lu(k,407) * lu(k,1244) - lu(k,1265) = lu(k,1265) - lu(k,408) * lu(k,1244) - lu(k,1759) = lu(k,1759) - lu(k,404) * lu(k,1723) - lu(k,1772) = lu(k,1772) - lu(k,405) * lu(k,1723) - lu(k,1818) = lu(k,1818) - lu(k,406) * lu(k,1723) - lu(k,1820) = lu(k,1820) - lu(k,407) * lu(k,1723) - lu(k,1829) = lu(k,1829) - lu(k,408) * lu(k,1723) - lu(k,2310) = lu(k,2310) - lu(k,404) * lu(k,2285) - lu(k,2321) = - lu(k,405) * lu(k,2285) - lu(k,2357) = lu(k,2357) - lu(k,406) * lu(k,2285) - lu(k,2359) = lu(k,2359) - lu(k,407) * lu(k,2285) - lu(k,2368) = lu(k,2368) - lu(k,408) * lu(k,2285) + lu(k,1245) = - lu(k,404) * lu(k,1243) + lu(k,1247) = - lu(k,405) * lu(k,1243) + lu(k,1258) = - lu(k,406) * lu(k,1243) + lu(k,1259) = lu(k,1259) - lu(k,407) * lu(k,1243) + lu(k,1263) = lu(k,1263) - lu(k,408) * lu(k,1243) + lu(k,1739) = lu(k,1739) - lu(k,404) * lu(k,1703) + lu(k,1752) = lu(k,1752) - lu(k,405) * lu(k,1703) + lu(k,1798) = lu(k,1798) - lu(k,406) * lu(k,1703) + lu(k,1800) = lu(k,1800) - lu(k,407) * lu(k,1703) + lu(k,1808) = lu(k,1808) - lu(k,408) * lu(k,1703) + lu(k,2287) = lu(k,2287) - lu(k,404) * lu(k,2262) + lu(k,2298) = - lu(k,405) * lu(k,2262) + lu(k,2334) = lu(k,2334) - lu(k,406) * lu(k,2262) + lu(k,2336) = lu(k,2336) - lu(k,407) * lu(k,2262) + lu(k,2344) = lu(k,2344) - lu(k,408) * lu(k,2262) lu(k,409) = 1._r8 / lu(k,409) lu(k,410) = lu(k,410) * lu(k,409) lu(k,411) = lu(k,411) * lu(k,409) lu(k,412) = lu(k,412) * lu(k,409) lu(k,413) = lu(k,413) * lu(k,409) lu(k,414) = lu(k,414) * lu(k,409) - lu(k,935) = lu(k,935) - lu(k,410) * lu(k,934) - lu(k,936) = lu(k,936) - lu(k,411) * lu(k,934) - lu(k,939) = - lu(k,412) * lu(k,934) - lu(k,943) = lu(k,943) - lu(k,413) * lu(k,934) - lu(k,945) = - lu(k,414) * lu(k,934) - lu(k,1777) = lu(k,1777) - lu(k,410) * lu(k,1724) - lu(k,1787) = lu(k,1787) - lu(k,411) * lu(k,1724) - lu(k,1818) = lu(k,1818) - lu(k,412) * lu(k,1724) - lu(k,1829) = lu(k,1829) - lu(k,413) * lu(k,1724) - lu(k,1831) = lu(k,1831) - lu(k,414) * lu(k,1724) - lu(k,2325) = lu(k,2325) - lu(k,410) * lu(k,2286) - lu(k,2330) = - lu(k,411) * lu(k,2286) - lu(k,2357) = lu(k,2357) - lu(k,412) * lu(k,2286) - lu(k,2368) = lu(k,2368) - lu(k,413) * lu(k,2286) - lu(k,2370) = lu(k,2370) - lu(k,414) * lu(k,2286) + lu(k,934) = lu(k,934) - lu(k,410) * lu(k,933) + lu(k,935) = lu(k,935) - lu(k,411) * lu(k,933) + lu(k,938) = - lu(k,412) * lu(k,933) + lu(k,942) = lu(k,942) - lu(k,413) * lu(k,933) + lu(k,944) = - lu(k,414) * lu(k,933) + lu(k,1757) = lu(k,1757) - lu(k,410) * lu(k,1704) + lu(k,1767) = lu(k,1767) - lu(k,411) * lu(k,1704) + lu(k,1798) = lu(k,1798) - lu(k,412) * lu(k,1704) + lu(k,1808) = lu(k,1808) - lu(k,413) * lu(k,1704) + lu(k,1811) = lu(k,1811) - lu(k,414) * lu(k,1704) + lu(k,2302) = lu(k,2302) - lu(k,410) * lu(k,2263) + lu(k,2307) = - lu(k,411) * lu(k,2263) + lu(k,2334) = lu(k,2334) - lu(k,412) * lu(k,2263) + lu(k,2344) = lu(k,2344) - lu(k,413) * lu(k,2263) + lu(k,2347) = lu(k,2347) - lu(k,414) * lu(k,2263) end do end subroutine lu_fac08 subroutine lu_fac09( avec_len, lu ) @@ -1055,16 +1055,16 @@ subroutine lu_fac09( avec_len, lu ) lu(k,497) = lu(k,497) - lu(k,418) * lu(k,493) lu(k,498) = - lu(k,419) * lu(k,493) lu(k,501) = lu(k,501) - lu(k,420) * lu(k,493) - lu(k,1731) = lu(k,1731) - lu(k,416) * lu(k,1725) - lu(k,1736) = lu(k,1736) - lu(k,417) * lu(k,1725) - lu(k,1784) = lu(k,1784) - lu(k,418) * lu(k,1725) - lu(k,1818) = lu(k,1818) - lu(k,419) * lu(k,1725) - lu(k,1829) = lu(k,1829) - lu(k,420) * lu(k,1725) - lu(k,2294) = - lu(k,416) * lu(k,2287) - lu(k,2298) = lu(k,2298) - lu(k,417) * lu(k,2287) - lu(k,2327) = lu(k,2327) - lu(k,418) * lu(k,2287) - lu(k,2357) = lu(k,2357) - lu(k,419) * lu(k,2287) - lu(k,2368) = lu(k,2368) - lu(k,420) * lu(k,2287) + lu(k,1711) = lu(k,1711) - lu(k,416) * lu(k,1705) + lu(k,1716) = lu(k,1716) - lu(k,417) * lu(k,1705) + lu(k,1763) = lu(k,1763) - lu(k,418) * lu(k,1705) + lu(k,1798) = lu(k,1798) - lu(k,419) * lu(k,1705) + lu(k,1808) = lu(k,1808) - lu(k,420) * lu(k,1705) + lu(k,2271) = - lu(k,416) * lu(k,2264) + lu(k,2275) = lu(k,2275) - lu(k,417) * lu(k,2264) + lu(k,2304) = lu(k,2304) - lu(k,418) * lu(k,2264) + lu(k,2334) = lu(k,2334) - lu(k,419) * lu(k,2264) + lu(k,2344) = lu(k,2344) - lu(k,420) * lu(k,2264) lu(k,421) = 1._r8 / lu(k,421) lu(k,422) = lu(k,422) * lu(k,421) lu(k,423) = lu(k,423) * lu(k,421) @@ -1076,119 +1076,119 @@ subroutine lu_fac09( avec_len, lu ) lu(k,512) = lu(k,512) - lu(k,424) * lu(k,509) lu(k,513) = - lu(k,425) * lu(k,509) lu(k,516) = lu(k,516) - lu(k,426) * lu(k,509) - lu(k,1737) = lu(k,1737) - lu(k,422) * lu(k,1726) - lu(k,1784) = lu(k,1784) - lu(k,423) * lu(k,1726) - lu(k,1802) = lu(k,1802) - lu(k,424) * lu(k,1726) - lu(k,1818) = lu(k,1818) - lu(k,425) * lu(k,1726) - lu(k,1829) = lu(k,1829) - lu(k,426) * lu(k,1726) - lu(k,2299) = lu(k,2299) - lu(k,422) * lu(k,2288) - lu(k,2327) = lu(k,2327) - lu(k,423) * lu(k,2288) - lu(k,2342) = lu(k,2342) - lu(k,424) * lu(k,2288) - lu(k,2357) = lu(k,2357) - lu(k,425) * lu(k,2288) - lu(k,2368) = lu(k,2368) - lu(k,426) * lu(k,2288) + lu(k,1717) = lu(k,1717) - lu(k,422) * lu(k,1706) + lu(k,1763) = lu(k,1763) - lu(k,423) * lu(k,1706) + lu(k,1782) = lu(k,1782) - lu(k,424) * lu(k,1706) + lu(k,1798) = lu(k,1798) - lu(k,425) * lu(k,1706) + lu(k,1808) = lu(k,1808) - lu(k,426) * lu(k,1706) + lu(k,2276) = lu(k,2276) - lu(k,422) * lu(k,2265) + lu(k,2304) = lu(k,2304) - lu(k,423) * lu(k,2265) + lu(k,2319) = lu(k,2319) - lu(k,424) * lu(k,2265) + lu(k,2334) = lu(k,2334) - lu(k,425) * lu(k,2265) + lu(k,2344) = lu(k,2344) - lu(k,426) * lu(k,2265) lu(k,427) = 1._r8 / lu(k,427) lu(k,428) = lu(k,428) * lu(k,427) lu(k,429) = lu(k,429) * lu(k,427) lu(k,430) = lu(k,430) * lu(k,427) lu(k,431) = lu(k,431) * lu(k,427) lu(k,432) = lu(k,432) * lu(k,427) - lu(k,1248) = lu(k,1248) - lu(k,428) * lu(k,1245) - lu(k,1251) = - lu(k,429) * lu(k,1245) - lu(k,1260) = lu(k,1260) - lu(k,430) * lu(k,1245) - lu(k,1264) = - lu(k,431) * lu(k,1245) - lu(k,1265) = lu(k,1265) - lu(k,432) * lu(k,1245) - lu(k,1772) = lu(k,1772) - lu(k,428) * lu(k,1727) - lu(k,1794) = lu(k,1794) - lu(k,429) * lu(k,1727) - lu(k,1818) = lu(k,1818) - lu(k,430) * lu(k,1727) - lu(k,1823) = lu(k,1823) - lu(k,431) * lu(k,1727) - lu(k,1829) = lu(k,1829) - lu(k,432) * lu(k,1727) + lu(k,1247) = lu(k,1247) - lu(k,428) * lu(k,1244) + lu(k,1250) = - lu(k,429) * lu(k,1244) + lu(k,1258) = lu(k,1258) - lu(k,430) * lu(k,1244) + lu(k,1263) = lu(k,1263) - lu(k,431) * lu(k,1244) + lu(k,1264) = - lu(k,432) * lu(k,1244) + lu(k,1752) = lu(k,1752) - lu(k,428) * lu(k,1707) + lu(k,1774) = lu(k,1774) - lu(k,429) * lu(k,1707) + lu(k,1798) = lu(k,1798) - lu(k,430) * lu(k,1707) + lu(k,1808) = lu(k,1808) - lu(k,431) * lu(k,1707) + lu(k,1809) = lu(k,1809) - lu(k,432) * lu(k,1707) lu(k,2378) = - lu(k,428) * lu(k,2373) lu(k,2390) = lu(k,2390) - lu(k,429) * lu(k,2373) lu(k,2409) = lu(k,2409) - lu(k,430) * lu(k,2373) - lu(k,2414) = - lu(k,431) * lu(k,2373) - lu(k,2420) = lu(k,2420) - lu(k,432) * lu(k,2373) + lu(k,2419) = lu(k,2419) - lu(k,431) * lu(k,2373) + lu(k,2420) = - lu(k,432) * lu(k,2373) lu(k,435) = 1._r8 / lu(k,435) lu(k,436) = lu(k,436) * lu(k,435) lu(k,437) = lu(k,437) * lu(k,435) lu(k,438) = lu(k,438) * lu(k,435) lu(k,439) = lu(k,439) * lu(k,435) lu(k,440) = lu(k,440) * lu(k,435) - lu(k,1739) = lu(k,1739) - lu(k,436) * lu(k,1728) - lu(k,1818) = lu(k,1818) - lu(k,437) * lu(k,1728) - lu(k,1819) = lu(k,1819) - lu(k,438) * lu(k,1728) - lu(k,1820) = lu(k,1820) - lu(k,439) * lu(k,1728) - lu(k,1829) = lu(k,1829) - lu(k,440) * lu(k,1728) - lu(k,1858) = lu(k,1858) - lu(k,436) * lu(k,1849) - lu(k,1913) = lu(k,1913) - lu(k,437) * lu(k,1849) - lu(k,1914) = lu(k,1914) - lu(k,438) * lu(k,1849) - lu(k,1915) = lu(k,1915) - lu(k,439) * lu(k,1849) - lu(k,1924) = lu(k,1924) - lu(k,440) * lu(k,1849) - lu(k,2300) = lu(k,2300) - lu(k,436) * lu(k,2289) - lu(k,2357) = lu(k,2357) - lu(k,437) * lu(k,2289) - lu(k,2358) = lu(k,2358) - lu(k,438) * lu(k,2289) - lu(k,2359) = lu(k,2359) - lu(k,439) * lu(k,2289) - lu(k,2368) = lu(k,2368) - lu(k,440) * lu(k,2289) + lu(k,1719) = lu(k,1719) - lu(k,436) * lu(k,1708) + lu(k,1798) = lu(k,1798) - lu(k,437) * lu(k,1708) + lu(k,1800) = lu(k,1800) - lu(k,438) * lu(k,1708) + lu(k,1802) = lu(k,1802) - lu(k,439) * lu(k,1708) + lu(k,1808) = lu(k,1808) - lu(k,440) * lu(k,1708) + lu(k,1955) = lu(k,1955) - lu(k,436) * lu(k,1946) + lu(k,2011) = lu(k,2011) - lu(k,437) * lu(k,1946) + lu(k,2013) = lu(k,2013) - lu(k,438) * lu(k,1946) + lu(k,2015) = lu(k,2015) - lu(k,439) * lu(k,1946) + lu(k,2021) = lu(k,2021) - lu(k,440) * lu(k,1946) + lu(k,2277) = lu(k,2277) - lu(k,436) * lu(k,2266) + lu(k,2334) = lu(k,2334) - lu(k,437) * lu(k,2266) + lu(k,2336) = lu(k,2336) - lu(k,438) * lu(k,2266) + lu(k,2338) = lu(k,2338) - lu(k,439) * lu(k,2266) + lu(k,2344) = lu(k,2344) - lu(k,440) * lu(k,2266) lu(k,441) = 1._r8 / lu(k,441) lu(k,442) = lu(k,442) * lu(k,441) lu(k,443) = lu(k,443) * lu(k,441) lu(k,444) = lu(k,444) * lu(k,441) lu(k,445) = lu(k,445) * lu(k,441) lu(k,446) = lu(k,446) * lu(k,441) - lu(k,1879) = lu(k,1879) - lu(k,442) * lu(k,1850) - lu(k,1914) = lu(k,1914) - lu(k,443) * lu(k,1850) - lu(k,1915) = lu(k,1915) - lu(k,444) * lu(k,1850) - lu(k,1916) = lu(k,1916) - lu(k,445) * lu(k,1850) - lu(k,1924) = lu(k,1924) - lu(k,446) * lu(k,1850) - lu(k,1974) = - lu(k,442) * lu(k,1972) - lu(k,1985) = - lu(k,443) * lu(k,1972) - lu(k,1986) = - lu(k,444) * lu(k,1972) - lu(k,1987) = lu(k,1987) - lu(k,445) * lu(k,1972) - lu(k,1995) = lu(k,1995) - lu(k,446) * lu(k,1972) - lu(k,2324) = lu(k,2324) - lu(k,442) * lu(k,2290) - lu(k,2358) = lu(k,2358) - lu(k,443) * lu(k,2290) - lu(k,2359) = lu(k,2359) - lu(k,444) * lu(k,2290) - lu(k,2360) = lu(k,2360) - lu(k,445) * lu(k,2290) - lu(k,2368) = lu(k,2368) - lu(k,446) * lu(k,2290) + lu(k,1905) = - lu(k,442) * lu(k,1903) + lu(k,1917) = - lu(k,443) * lu(k,1903) + lu(k,1918) = lu(k,1918) - lu(k,444) * lu(k,1903) + lu(k,1919) = - lu(k,445) * lu(k,1903) + lu(k,1925) = lu(k,1925) - lu(k,446) * lu(k,1903) + lu(k,1977) = lu(k,1977) - lu(k,442) * lu(k,1947) + lu(k,2013) = lu(k,2013) - lu(k,443) * lu(k,1947) + lu(k,2014) = lu(k,2014) - lu(k,444) * lu(k,1947) + lu(k,2015) = lu(k,2015) - lu(k,445) * lu(k,1947) + lu(k,2021) = lu(k,2021) - lu(k,446) * lu(k,1947) + lu(k,2301) = lu(k,2301) - lu(k,442) * lu(k,2267) + lu(k,2336) = lu(k,2336) - lu(k,443) * lu(k,2267) + lu(k,2337) = lu(k,2337) - lu(k,444) * lu(k,2267) + lu(k,2338) = lu(k,2338) - lu(k,445) * lu(k,2267) + lu(k,2344) = lu(k,2344) - lu(k,446) * lu(k,2267) lu(k,448) = 1._r8 / lu(k,448) lu(k,449) = lu(k,449) * lu(k,448) lu(k,450) = lu(k,450) * lu(k,448) lu(k,451) = lu(k,451) * lu(k,448) lu(k,452) = lu(k,452) * lu(k,448) lu(k,453) = lu(k,453) * lu(k,448) - lu(k,1784) = lu(k,1784) - lu(k,449) * lu(k,1729) - lu(k,1818) = lu(k,1818) - lu(k,450) * lu(k,1729) - lu(k,1819) = lu(k,1819) - lu(k,451) * lu(k,1729) - lu(k,1820) = lu(k,1820) - lu(k,452) * lu(k,1729) - lu(k,1829) = lu(k,1829) - lu(k,453) * lu(k,1729) - lu(k,1883) = lu(k,1883) - lu(k,449) * lu(k,1851) - lu(k,1913) = lu(k,1913) - lu(k,450) * lu(k,1851) - lu(k,1914) = lu(k,1914) - lu(k,451) * lu(k,1851) - lu(k,1915) = lu(k,1915) - lu(k,452) * lu(k,1851) - lu(k,1924) = lu(k,1924) - lu(k,453) * lu(k,1851) - lu(k,2327) = lu(k,2327) - lu(k,449) * lu(k,2291) - lu(k,2357) = lu(k,2357) - lu(k,450) * lu(k,2291) - lu(k,2358) = lu(k,2358) - lu(k,451) * lu(k,2291) - lu(k,2359) = lu(k,2359) - lu(k,452) * lu(k,2291) - lu(k,2368) = lu(k,2368) - lu(k,453) * lu(k,2291) + lu(k,1763) = lu(k,1763) - lu(k,449) * lu(k,1709) + lu(k,1798) = lu(k,1798) - lu(k,450) * lu(k,1709) + lu(k,1800) = lu(k,1800) - lu(k,451) * lu(k,1709) + lu(k,1802) = lu(k,1802) - lu(k,452) * lu(k,1709) + lu(k,1808) = lu(k,1808) - lu(k,453) * lu(k,1709) + lu(k,1980) = lu(k,1980) - lu(k,449) * lu(k,1948) + lu(k,2011) = lu(k,2011) - lu(k,450) * lu(k,1948) + lu(k,2013) = lu(k,2013) - lu(k,451) * lu(k,1948) + lu(k,2015) = lu(k,2015) - lu(k,452) * lu(k,1948) + lu(k,2021) = lu(k,2021) - lu(k,453) * lu(k,1948) + lu(k,2304) = lu(k,2304) - lu(k,449) * lu(k,2268) + lu(k,2334) = lu(k,2334) - lu(k,450) * lu(k,2268) + lu(k,2336) = lu(k,2336) - lu(k,451) * lu(k,2268) + lu(k,2338) = lu(k,2338) - lu(k,452) * lu(k,2268) + lu(k,2344) = lu(k,2344) - lu(k,453) * lu(k,2268) lu(k,454) = 1._r8 / lu(k,454) lu(k,455) = lu(k,455) * lu(k,454) lu(k,456) = lu(k,456) * lu(k,454) lu(k,457) = lu(k,457) * lu(k,454) lu(k,458) = lu(k,458) * lu(k,454) lu(k,459) = lu(k,459) * lu(k,454) - lu(k,1818) = lu(k,1818) - lu(k,455) * lu(k,1730) - lu(k,1821) = lu(k,1821) - lu(k,456) * lu(k,1730) - lu(k,1825) = lu(k,1825) - lu(k,457) * lu(k,1730) - lu(k,1830) = lu(k,1830) - lu(k,458) * lu(k,1730) - lu(k,1831) = lu(k,1831) - lu(k,459) * lu(k,1730) - lu(k,2357) = lu(k,2357) - lu(k,455) * lu(k,2292) - lu(k,2360) = lu(k,2360) - lu(k,456) * lu(k,2292) - lu(k,2364) = lu(k,2364) - lu(k,457) * lu(k,2292) - lu(k,2369) = lu(k,2369) - lu(k,458) * lu(k,2292) - lu(k,2370) = lu(k,2370) - lu(k,459) * lu(k,2292) + lu(k,1798) = lu(k,1798) - lu(k,455) * lu(k,1710) + lu(k,1801) = lu(k,1801) - lu(k,456) * lu(k,1710) + lu(k,1806) = lu(k,1806) - lu(k,457) * lu(k,1710) + lu(k,1810) = lu(k,1810) - lu(k,458) * lu(k,1710) + lu(k,1811) = lu(k,1811) - lu(k,459) * lu(k,1710) + lu(k,2334) = lu(k,2334) - lu(k,455) * lu(k,2269) + lu(k,2337) = lu(k,2337) - lu(k,456) * lu(k,2269) + lu(k,2342) = lu(k,2342) - lu(k,457) * lu(k,2269) + lu(k,2346) = lu(k,2346) - lu(k,458) * lu(k,2269) + lu(k,2347) = lu(k,2347) - lu(k,459) * lu(k,2269) lu(k,2409) = lu(k,2409) - lu(k,455) * lu(k,2374) lu(k,2412) = lu(k,2412) - lu(k,456) * lu(k,2374) - lu(k,2416) = - lu(k,457) * lu(k,2374) + lu(k,2417) = - lu(k,457) * lu(k,2374) lu(k,2421) = lu(k,2421) - lu(k,458) * lu(k,2374) lu(k,2422) = - lu(k,459) * lu(k,2374) end do @@ -1212,63 +1212,63 @@ subroutine lu_fac10( avec_len, lu ) lu(k,462) = lu(k,462) * lu(k,460) lu(k,463) = lu(k,463) * lu(k,460) lu(k,464) = lu(k,464) * lu(k,460) - lu(k,798) = - lu(k,461) * lu(k,796) - lu(k,799) = - lu(k,462) * lu(k,796) - lu(k,803) = lu(k,803) - lu(k,463) * lu(k,796) - lu(k,804) = lu(k,804) - lu(k,464) * lu(k,796) - lu(k,1538) = lu(k,1538) - lu(k,461) * lu(k,1526) - lu(k,1542) = lu(k,1542) - lu(k,462) * lu(k,1526) - lu(k,1548) = - lu(k,463) * lu(k,1526) - lu(k,1554) = lu(k,1554) - lu(k,464) * lu(k,1526) - lu(k,1892) = lu(k,1892) - lu(k,461) * lu(k,1852) - lu(k,1909) = lu(k,1909) - lu(k,462) * lu(k,1852) - lu(k,1916) = lu(k,1916) - lu(k,463) * lu(k,1852) - lu(k,1924) = lu(k,1924) - lu(k,464) * lu(k,1852) - lu(k,2335) = - lu(k,461) * lu(k,2293) - lu(k,2353) = lu(k,2353) - lu(k,462) * lu(k,2293) - lu(k,2360) = lu(k,2360) - lu(k,463) * lu(k,2293) - lu(k,2368) = lu(k,2368) - lu(k,464) * lu(k,2293) + lu(k,797) = - lu(k,461) * lu(k,795) + lu(k,798) = - lu(k,462) * lu(k,795) + lu(k,801) = lu(k,801) - lu(k,463) * lu(k,795) + lu(k,803) = lu(k,803) - lu(k,464) * lu(k,795) + lu(k,1537) = lu(k,1537) - lu(k,461) * lu(k,1525) + lu(k,1541) = lu(k,1541) - lu(k,462) * lu(k,1525) + lu(k,1547) = - lu(k,463) * lu(k,1525) + lu(k,1553) = lu(k,1553) - lu(k,464) * lu(k,1525) + lu(k,1990) = lu(k,1990) - lu(k,461) * lu(k,1949) + lu(k,2007) = lu(k,2007) - lu(k,462) * lu(k,1949) + lu(k,2014) = lu(k,2014) - lu(k,463) * lu(k,1949) + lu(k,2021) = lu(k,2021) - lu(k,464) * lu(k,1949) + lu(k,2312) = - lu(k,461) * lu(k,2270) + lu(k,2330) = lu(k,2330) - lu(k,462) * lu(k,2270) + lu(k,2337) = lu(k,2337) - lu(k,463) * lu(k,2270) + lu(k,2344) = lu(k,2344) - lu(k,464) * lu(k,2270) lu(k,465) = 1._r8 / lu(k,465) lu(k,466) = lu(k,466) * lu(k,465) lu(k,467) = lu(k,467) * lu(k,465) lu(k,496) = - lu(k,466) * lu(k,494) lu(k,501) = lu(k,501) - lu(k,467) * lu(k,494) - lu(k,666) = - lu(k,466) * lu(k,663) - lu(k,674) = lu(k,674) - lu(k,467) * lu(k,663) - lu(k,730) = - lu(k,466) * lu(k,727) - lu(k,739) = lu(k,739) - lu(k,467) * lu(k,727) - lu(k,750) = - lu(k,466) * lu(k,747) - lu(k,760) = lu(k,760) - lu(k,467) * lu(k,747) - lu(k,766) = - lu(k,466) * lu(k,763) - lu(k,777) = lu(k,777) - lu(k,467) * lu(k,763) - lu(k,1762) = - lu(k,466) * lu(k,1731) - lu(k,1829) = lu(k,1829) - lu(k,467) * lu(k,1731) - lu(k,1867) = lu(k,1867) - lu(k,466) * lu(k,1853) - lu(k,1924) = lu(k,1924) - lu(k,467) * lu(k,1853) - lu(k,2312) = lu(k,2312) - lu(k,466) * lu(k,2294) - lu(k,2368) = lu(k,2368) - lu(k,467) * lu(k,2294) + lu(k,676) = - lu(k,466) * lu(k,673) + lu(k,684) = lu(k,684) - lu(k,467) * lu(k,673) + lu(k,722) = - lu(k,466) * lu(k,719) + lu(k,731) = lu(k,731) - lu(k,467) * lu(k,719) + lu(k,749) = - lu(k,466) * lu(k,746) + lu(k,759) = lu(k,759) - lu(k,467) * lu(k,746) + lu(k,765) = - lu(k,466) * lu(k,762) + lu(k,776) = lu(k,776) - lu(k,467) * lu(k,762) + lu(k,1742) = - lu(k,466) * lu(k,1711) + lu(k,1808) = lu(k,1808) - lu(k,467) * lu(k,1711) + lu(k,1965) = lu(k,1965) - lu(k,466) * lu(k,1950) + lu(k,2021) = lu(k,2021) - lu(k,467) * lu(k,1950) + lu(k,2289) = lu(k,2289) - lu(k,466) * lu(k,2271) + lu(k,2344) = lu(k,2344) - lu(k,467) * lu(k,2271) lu(k,468) = 1._r8 / lu(k,468) lu(k,469) = lu(k,469) * lu(k,468) lu(k,470) = lu(k,470) * lu(k,468) lu(k,471) = lu(k,471) * lu(k,468) - lu(k,635) = lu(k,635) - lu(k,469) * lu(k,634) - lu(k,638) = lu(k,638) - lu(k,470) * lu(k,634) - lu(k,639) = - lu(k,471) * lu(k,634) - lu(k,1752) = lu(k,1752) - lu(k,469) * lu(k,1732) - lu(k,1820) = lu(k,1820) - lu(k,470) * lu(k,1732) - lu(k,1827) = lu(k,1827) - lu(k,471) * lu(k,1732) - lu(k,1864) = lu(k,1864) - lu(k,469) * lu(k,1854) - lu(k,1915) = lu(k,1915) - lu(k,470) * lu(k,1854) - lu(k,1922) = lu(k,1922) - lu(k,471) * lu(k,1854) - lu(k,1936) = - lu(k,469) * lu(k,1930) - lu(k,1960) = lu(k,1960) - lu(k,470) * lu(k,1930) - lu(k,1967) = lu(k,1967) - lu(k,471) * lu(k,1930) - lu(k,2185) = lu(k,2185) - lu(k,469) * lu(k,2183) - lu(k,2226) = lu(k,2226) - lu(k,470) * lu(k,2183) - lu(k,2233) = lu(k,2233) - lu(k,471) * lu(k,2183) - lu(k,2304) = lu(k,2304) - lu(k,469) * lu(k,2295) - lu(k,2359) = lu(k,2359) - lu(k,470) * lu(k,2295) - lu(k,2366) = lu(k,2366) - lu(k,471) * lu(k,2295) + lu(k,639) = lu(k,639) - lu(k,469) * lu(k,638) + lu(k,641) = lu(k,641) - lu(k,470) * lu(k,638) + lu(k,643) = - lu(k,471) * lu(k,638) + lu(k,1732) = lu(k,1732) - lu(k,469) * lu(k,1712) + lu(k,1800) = lu(k,1800) - lu(k,470) * lu(k,1712) + lu(k,1804) = lu(k,1804) - lu(k,471) * lu(k,1712) + lu(k,1867) = - lu(k,469) * lu(k,1861) + lu(k,1891) = lu(k,1891) - lu(k,470) * lu(k,1861) + lu(k,1895) = lu(k,1895) - lu(k,471) * lu(k,1861) + lu(k,1961) = lu(k,1961) - lu(k,469) * lu(k,1951) + lu(k,2013) = lu(k,2013) - lu(k,470) * lu(k,1951) + lu(k,2017) = lu(k,2017) - lu(k,471) * lu(k,1951) + lu(k,2079) = lu(k,2079) - lu(k,469) * lu(k,2077) + lu(k,2120) = lu(k,2120) - lu(k,470) * lu(k,2077) + lu(k,2124) = lu(k,2124) - lu(k,471) * lu(k,2077) + lu(k,2281) = lu(k,2281) - lu(k,469) * lu(k,2272) + lu(k,2336) = lu(k,2336) - lu(k,470) * lu(k,2272) + lu(k,2340) = lu(k,2340) - lu(k,471) * lu(k,2272) lu(k,472) = 1._r8 / lu(k,472) lu(k,473) = lu(k,473) * lu(k,472) lu(k,474) = lu(k,474) * lu(k,472) @@ -1276,24 +1276,24 @@ subroutine lu_fac10( avec_len, lu ) lu(k,476) = lu(k,476) * lu(k,472) lu(k,477) = lu(k,477) * lu(k,472) lu(k,478) = lu(k,478) * lu(k,472) - lu(k,1814) = lu(k,1814) - lu(k,473) * lu(k,1733) - lu(k,1817) = lu(k,1817) - lu(k,474) * lu(k,1733) - lu(k,1818) = lu(k,1818) - lu(k,475) * lu(k,1733) - lu(k,1820) = lu(k,1820) - lu(k,476) * lu(k,1733) - lu(k,1829) = lu(k,1829) - lu(k,477) * lu(k,1733) - lu(k,1831) = lu(k,1831) - lu(k,478) * lu(k,1733) - lu(k,1954) = lu(k,1954) - lu(k,473) * lu(k,1931) - lu(k,1957) = lu(k,1957) - lu(k,474) * lu(k,1931) - lu(k,1958) = lu(k,1958) - lu(k,475) * lu(k,1931) - lu(k,1960) = lu(k,1960) - lu(k,476) * lu(k,1931) - lu(k,1969) = lu(k,1969) - lu(k,477) * lu(k,1931) - lu(k,1971) = - lu(k,478) * lu(k,1931) - lu(k,2353) = lu(k,2353) - lu(k,473) * lu(k,2296) - lu(k,2356) = lu(k,2356) - lu(k,474) * lu(k,2296) - lu(k,2357) = lu(k,2357) - lu(k,475) * lu(k,2296) - lu(k,2359) = lu(k,2359) - lu(k,476) * lu(k,2296) - lu(k,2368) = lu(k,2368) - lu(k,477) * lu(k,2296) - lu(k,2370) = lu(k,2370) - lu(k,478) * lu(k,2296) + lu(k,1794) = lu(k,1794) - lu(k,473) * lu(k,1713) + lu(k,1798) = lu(k,1798) - lu(k,474) * lu(k,1713) + lu(k,1800) = lu(k,1800) - lu(k,475) * lu(k,1713) + lu(k,1807) = lu(k,1807) - lu(k,476) * lu(k,1713) + lu(k,1808) = lu(k,1808) - lu(k,477) * lu(k,1713) + lu(k,1811) = lu(k,1811) - lu(k,478) * lu(k,1713) + lu(k,1885) = lu(k,1885) - lu(k,473) * lu(k,1862) + lu(k,1889) = lu(k,1889) - lu(k,474) * lu(k,1862) + lu(k,1891) = lu(k,1891) - lu(k,475) * lu(k,1862) + lu(k,1898) = lu(k,1898) - lu(k,476) * lu(k,1862) + lu(k,1899) = lu(k,1899) - lu(k,477) * lu(k,1862) + lu(k,1902) = - lu(k,478) * lu(k,1862) + lu(k,2330) = lu(k,2330) - lu(k,473) * lu(k,2273) + lu(k,2334) = lu(k,2334) - lu(k,474) * lu(k,2273) + lu(k,2336) = lu(k,2336) - lu(k,475) * lu(k,2273) + lu(k,2343) = lu(k,2343) - lu(k,476) * lu(k,2273) + lu(k,2344) = lu(k,2344) - lu(k,477) * lu(k,2273) + lu(k,2347) = lu(k,2347) - lu(k,478) * lu(k,2273) lu(k,479) = 1._r8 / lu(k,479) lu(k,480) = lu(k,480) * lu(k,479) lu(k,481) = lu(k,481) * lu(k,479) @@ -1301,24 +1301,24 @@ subroutine lu_fac10( avec_len, lu ) lu(k,483) = lu(k,483) * lu(k,479) lu(k,484) = lu(k,484) * lu(k,479) lu(k,485) = lu(k,485) * lu(k,479) - lu(k,1812) = lu(k,1812) - lu(k,480) * lu(k,1734) - lu(k,1813) = lu(k,1813) - lu(k,481) * lu(k,1734) - lu(k,1818) = lu(k,1818) - lu(k,482) * lu(k,1734) - lu(k,1822) = lu(k,1822) - lu(k,483) * lu(k,1734) - lu(k,1826) = lu(k,1826) - lu(k,484) * lu(k,1734) - lu(k,1831) = lu(k,1831) - lu(k,485) * lu(k,1734) - lu(k,2021) = lu(k,2021) - lu(k,480) * lu(k,2016) - lu(k,2022) = lu(k,2022) - lu(k,481) * lu(k,2016) - lu(k,2027) = lu(k,2027) - lu(k,482) * lu(k,2016) - lu(k,2031) = lu(k,2031) - lu(k,483) * lu(k,2016) - lu(k,2035) = lu(k,2035) - lu(k,484) * lu(k,2016) - lu(k,2040) = lu(k,2040) - lu(k,485) * lu(k,2016) - lu(k,2154) = lu(k,2154) - lu(k,480) * lu(k,2134) - lu(k,2155) = lu(k,2155) - lu(k,481) * lu(k,2134) - lu(k,2160) = lu(k,2160) - lu(k,482) * lu(k,2134) - lu(k,2164) = lu(k,2164) - lu(k,483) * lu(k,2134) - lu(k,2168) = lu(k,2168) - lu(k,484) * lu(k,2134) - lu(k,2173) = lu(k,2173) - lu(k,485) * lu(k,2134) + lu(k,1627) = lu(k,1627) - lu(k,480) * lu(k,1622) + lu(k,1628) = lu(k,1628) - lu(k,481) * lu(k,1622) + lu(k,1632) = lu(k,1632) - lu(k,482) * lu(k,1622) + lu(k,1633) = lu(k,1633) - lu(k,483) * lu(k,1622) + lu(k,1634) = lu(k,1634) - lu(k,484) * lu(k,1622) + lu(k,1646) = lu(k,1646) - lu(k,485) * lu(k,1622) + lu(k,1792) = lu(k,1792) - lu(k,480) * lu(k,1714) + lu(k,1793) = lu(k,1793) - lu(k,481) * lu(k,1714) + lu(k,1797) = lu(k,1797) - lu(k,482) * lu(k,1714) + lu(k,1798) = lu(k,1798) - lu(k,483) * lu(k,1714) + lu(k,1799) = lu(k,1799) - lu(k,484) * lu(k,1714) + lu(k,1811) = lu(k,1811) - lu(k,485) * lu(k,1714) + lu(k,1838) = lu(k,1838) - lu(k,480) * lu(k,1818) + lu(k,1839) = lu(k,1839) - lu(k,481) * lu(k,1818) + lu(k,1843) = lu(k,1843) - lu(k,482) * lu(k,1818) + lu(k,1844) = lu(k,1844) - lu(k,483) * lu(k,1818) + lu(k,1845) = lu(k,1845) - lu(k,484) * lu(k,1818) + lu(k,1857) = lu(k,1857) - lu(k,485) * lu(k,1818) lu(k,486) = 1._r8 / lu(k,486) lu(k,487) = lu(k,487) * lu(k,486) lu(k,488) = lu(k,488) * lu(k,486) @@ -1326,24 +1326,24 @@ subroutine lu_fac10( avec_len, lu ) lu(k,490) = lu(k,490) * lu(k,486) lu(k,491) = lu(k,491) * lu(k,486) lu(k,492) = lu(k,492) * lu(k,486) - lu(k,1062) = lu(k,1062) - lu(k,487) * lu(k,1059) - lu(k,1063) = lu(k,1063) - lu(k,488) * lu(k,1059) - lu(k,1064) = lu(k,1064) - lu(k,489) * lu(k,1059) - lu(k,1065) = - lu(k,490) * lu(k,1059) - lu(k,1068) = lu(k,1068) - lu(k,491) * lu(k,1059) - lu(k,1070) = lu(k,1070) - lu(k,492) * lu(k,1059) - lu(k,1785) = lu(k,1785) - lu(k,487) * lu(k,1735) - lu(k,1786) = lu(k,1786) - lu(k,488) * lu(k,1735) - lu(k,1787) = lu(k,1787) - lu(k,489) * lu(k,1735) - lu(k,1818) = lu(k,1818) - lu(k,490) * lu(k,1735) - lu(k,1821) = lu(k,1821) - lu(k,491) * lu(k,1735) - lu(k,1829) = lu(k,1829) - lu(k,492) * lu(k,1735) - lu(k,2328) = lu(k,2328) - lu(k,487) * lu(k,2297) - lu(k,2329) = lu(k,2329) - lu(k,488) * lu(k,2297) - lu(k,2330) = lu(k,2330) - lu(k,489) * lu(k,2297) - lu(k,2357) = lu(k,2357) - lu(k,490) * lu(k,2297) - lu(k,2360) = lu(k,2360) - lu(k,491) * lu(k,2297) - lu(k,2368) = lu(k,2368) - lu(k,492) * lu(k,2297) + lu(k,1061) = lu(k,1061) - lu(k,487) * lu(k,1058) + lu(k,1062) = lu(k,1062) - lu(k,488) * lu(k,1058) + lu(k,1063) = lu(k,1063) - lu(k,489) * lu(k,1058) + lu(k,1064) = - lu(k,490) * lu(k,1058) + lu(k,1066) = lu(k,1066) - lu(k,491) * lu(k,1058) + lu(k,1068) = lu(k,1068) - lu(k,492) * lu(k,1058) + lu(k,1765) = lu(k,1765) - lu(k,487) * lu(k,1715) + lu(k,1766) = lu(k,1766) - lu(k,488) * lu(k,1715) + lu(k,1767) = lu(k,1767) - lu(k,489) * lu(k,1715) + lu(k,1798) = lu(k,1798) - lu(k,490) * lu(k,1715) + lu(k,1801) = lu(k,1801) - lu(k,491) * lu(k,1715) + lu(k,1808) = lu(k,1808) - lu(k,492) * lu(k,1715) + lu(k,2305) = lu(k,2305) - lu(k,487) * lu(k,2274) + lu(k,2306) = lu(k,2306) - lu(k,488) * lu(k,2274) + lu(k,2307) = lu(k,2307) - lu(k,489) * lu(k,2274) + lu(k,2334) = lu(k,2334) - lu(k,490) * lu(k,2274) + lu(k,2337) = lu(k,2337) - lu(k,491) * lu(k,2274) + lu(k,2344) = lu(k,2344) - lu(k,492) * lu(k,2274) lu(k,495) = 1._r8 / lu(k,495) lu(k,496) = lu(k,496) * lu(k,495) lu(k,497) = lu(k,497) * lu(k,495) @@ -1351,24 +1351,24 @@ subroutine lu_fac10( avec_len, lu ) lu(k,499) = lu(k,499) * lu(k,495) lu(k,500) = lu(k,500) * lu(k,495) lu(k,501) = lu(k,501) * lu(k,495) - lu(k,1762) = lu(k,1762) - lu(k,496) * lu(k,1736) - lu(k,1784) = lu(k,1784) - lu(k,497) * lu(k,1736) - lu(k,1818) = lu(k,1818) - lu(k,498) * lu(k,1736) - lu(k,1819) = lu(k,1819) - lu(k,499) * lu(k,1736) - lu(k,1820) = lu(k,1820) - lu(k,500) * lu(k,1736) - lu(k,1829) = lu(k,1829) - lu(k,501) * lu(k,1736) - lu(k,1867) = lu(k,1867) - lu(k,496) * lu(k,1855) - lu(k,1883) = lu(k,1883) - lu(k,497) * lu(k,1855) - lu(k,1913) = lu(k,1913) - lu(k,498) * lu(k,1855) - lu(k,1914) = lu(k,1914) - lu(k,499) * lu(k,1855) - lu(k,1915) = lu(k,1915) - lu(k,500) * lu(k,1855) - lu(k,1924) = lu(k,1924) - lu(k,501) * lu(k,1855) - lu(k,2312) = lu(k,2312) - lu(k,496) * lu(k,2298) - lu(k,2327) = lu(k,2327) - lu(k,497) * lu(k,2298) - lu(k,2357) = lu(k,2357) - lu(k,498) * lu(k,2298) - lu(k,2358) = lu(k,2358) - lu(k,499) * lu(k,2298) - lu(k,2359) = lu(k,2359) - lu(k,500) * lu(k,2298) - lu(k,2368) = lu(k,2368) - lu(k,501) * lu(k,2298) + lu(k,1742) = lu(k,1742) - lu(k,496) * lu(k,1716) + lu(k,1763) = lu(k,1763) - lu(k,497) * lu(k,1716) + lu(k,1798) = lu(k,1798) - lu(k,498) * lu(k,1716) + lu(k,1800) = lu(k,1800) - lu(k,499) * lu(k,1716) + lu(k,1802) = lu(k,1802) - lu(k,500) * lu(k,1716) + lu(k,1808) = lu(k,1808) - lu(k,501) * lu(k,1716) + lu(k,1965) = lu(k,1965) - lu(k,496) * lu(k,1952) + lu(k,1980) = lu(k,1980) - lu(k,497) * lu(k,1952) + lu(k,2011) = lu(k,2011) - lu(k,498) * lu(k,1952) + lu(k,2013) = lu(k,2013) - lu(k,499) * lu(k,1952) + lu(k,2015) = lu(k,2015) - lu(k,500) * lu(k,1952) + lu(k,2021) = lu(k,2021) - lu(k,501) * lu(k,1952) + lu(k,2289) = lu(k,2289) - lu(k,496) * lu(k,2275) + lu(k,2304) = lu(k,2304) - lu(k,497) * lu(k,2275) + lu(k,2334) = lu(k,2334) - lu(k,498) * lu(k,2275) + lu(k,2336) = lu(k,2336) - lu(k,499) * lu(k,2275) + lu(k,2338) = lu(k,2338) - lu(k,500) * lu(k,2275) + lu(k,2344) = lu(k,2344) - lu(k,501) * lu(k,2275) end do end subroutine lu_fac10 subroutine lu_fac11( avec_len, lu ) @@ -1392,24 +1392,24 @@ subroutine lu_fac11( avec_len, lu ) lu(k,506) = lu(k,506) * lu(k,502) lu(k,507) = lu(k,507) * lu(k,502) lu(k,508) = lu(k,508) * lu(k,502) - lu(k,995) = - lu(k,503) * lu(k,994) - lu(k,996) = lu(k,996) - lu(k,504) * lu(k,994) - lu(k,997) = lu(k,997) - lu(k,505) * lu(k,994) - lu(k,999) = lu(k,999) - lu(k,506) * lu(k,994) - lu(k,1002) = lu(k,1002) - lu(k,507) * lu(k,994) - lu(k,1007) = lu(k,1007) - lu(k,508) * lu(k,994) - lu(k,1531) = lu(k,1531) - lu(k,503) * lu(k,1527) - lu(k,1532) = lu(k,1532) - lu(k,504) * lu(k,1527) - lu(k,1533) = lu(k,1533) - lu(k,505) * lu(k,1527) - lu(k,1536) = lu(k,1536) - lu(k,506) * lu(k,1527) - lu(k,1542) = lu(k,1542) - lu(k,507) * lu(k,1527) - lu(k,1550) = lu(k,1550) - lu(k,508) * lu(k,1527) - lu(k,2074) = lu(k,2074) - lu(k,503) * lu(k,2067) - lu(k,2077) = lu(k,2077) - lu(k,504) * lu(k,2067) - lu(k,2078) = - lu(k,505) * lu(k,2067) - lu(k,2082) = lu(k,2082) - lu(k,506) * lu(k,2067) - lu(k,2089) = lu(k,2089) - lu(k,507) * lu(k,2067) - lu(k,2099) = lu(k,2099) - lu(k,508) * lu(k,2067) + lu(k,1044) = - lu(k,503) * lu(k,1043) + lu(k,1045) = lu(k,1045) - lu(k,504) * lu(k,1043) + lu(k,1046) = lu(k,1046) - lu(k,505) * lu(k,1043) + lu(k,1048) = lu(k,1048) - lu(k,506) * lu(k,1043) + lu(k,1051) = lu(k,1051) - lu(k,507) * lu(k,1043) + lu(k,1056) = lu(k,1056) - lu(k,508) * lu(k,1043) + lu(k,1530) = lu(k,1530) - lu(k,503) * lu(k,1526) + lu(k,1531) = lu(k,1531) - lu(k,504) * lu(k,1526) + lu(k,1532) = lu(k,1532) - lu(k,505) * lu(k,1526) + lu(k,1535) = lu(k,1535) - lu(k,506) * lu(k,1526) + lu(k,1541) = lu(k,1541) - lu(k,507) * lu(k,1526) + lu(k,1549) = lu(k,1549) - lu(k,508) * lu(k,1526) + lu(k,2035) = lu(k,2035) - lu(k,503) * lu(k,2028) + lu(k,2038) = lu(k,2038) - lu(k,504) * lu(k,2028) + lu(k,2039) = - lu(k,505) * lu(k,2028) + lu(k,2043) = lu(k,2043) - lu(k,506) * lu(k,2028) + lu(k,2050) = lu(k,2050) - lu(k,507) * lu(k,2028) + lu(k,2059) = lu(k,2059) - lu(k,508) * lu(k,2028) lu(k,510) = 1._r8 / lu(k,510) lu(k,511) = lu(k,511) * lu(k,510) lu(k,512) = lu(k,512) * lu(k,510) @@ -1417,129 +1417,133 @@ subroutine lu_fac11( avec_len, lu ) lu(k,514) = lu(k,514) * lu(k,510) lu(k,515) = lu(k,515) * lu(k,510) lu(k,516) = lu(k,516) * lu(k,510) - lu(k,1784) = lu(k,1784) - lu(k,511) * lu(k,1737) - lu(k,1802) = lu(k,1802) - lu(k,512) * lu(k,1737) - lu(k,1818) = lu(k,1818) - lu(k,513) * lu(k,1737) - lu(k,1819) = lu(k,1819) - lu(k,514) * lu(k,1737) - lu(k,1820) = lu(k,1820) - lu(k,515) * lu(k,1737) - lu(k,1829) = lu(k,1829) - lu(k,516) * lu(k,1737) - lu(k,1883) = lu(k,1883) - lu(k,511) * lu(k,1856) - lu(k,1900) = lu(k,1900) - lu(k,512) * lu(k,1856) - lu(k,1913) = lu(k,1913) - lu(k,513) * lu(k,1856) - lu(k,1914) = lu(k,1914) - lu(k,514) * lu(k,1856) - lu(k,1915) = lu(k,1915) - lu(k,515) * lu(k,1856) - lu(k,1924) = lu(k,1924) - lu(k,516) * lu(k,1856) - lu(k,2327) = lu(k,2327) - lu(k,511) * lu(k,2299) - lu(k,2342) = lu(k,2342) - lu(k,512) * lu(k,2299) - lu(k,2357) = lu(k,2357) - lu(k,513) * lu(k,2299) - lu(k,2358) = lu(k,2358) - lu(k,514) * lu(k,2299) - lu(k,2359) = lu(k,2359) - lu(k,515) * lu(k,2299) - lu(k,2368) = lu(k,2368) - lu(k,516) * lu(k,2299) + lu(k,1763) = lu(k,1763) - lu(k,511) * lu(k,1717) + lu(k,1782) = lu(k,1782) - lu(k,512) * lu(k,1717) + lu(k,1798) = lu(k,1798) - lu(k,513) * lu(k,1717) + lu(k,1800) = lu(k,1800) - lu(k,514) * lu(k,1717) + lu(k,1802) = lu(k,1802) - lu(k,515) * lu(k,1717) + lu(k,1808) = lu(k,1808) - lu(k,516) * lu(k,1717) + lu(k,1980) = lu(k,1980) - lu(k,511) * lu(k,1953) + lu(k,1998) = lu(k,1998) - lu(k,512) * lu(k,1953) + lu(k,2011) = lu(k,2011) - lu(k,513) * lu(k,1953) + lu(k,2013) = lu(k,2013) - lu(k,514) * lu(k,1953) + lu(k,2015) = lu(k,2015) - lu(k,515) * lu(k,1953) + lu(k,2021) = lu(k,2021) - lu(k,516) * lu(k,1953) + lu(k,2304) = lu(k,2304) - lu(k,511) * lu(k,2276) + lu(k,2319) = lu(k,2319) - lu(k,512) * lu(k,2276) + lu(k,2334) = lu(k,2334) - lu(k,513) * lu(k,2276) + lu(k,2336) = lu(k,2336) - lu(k,514) * lu(k,2276) + lu(k,2338) = lu(k,2338) - lu(k,515) * lu(k,2276) + lu(k,2344) = lu(k,2344) - lu(k,516) * lu(k,2276) lu(k,517) = 1._r8 / lu(k,517) lu(k,518) = lu(k,518) * lu(k,517) lu(k,519) = lu(k,519) * lu(k,517) lu(k,520) = lu(k,520) * lu(k,517) lu(k,521) = lu(k,521) * lu(k,517) - lu(k,643) = - lu(k,518) * lu(k,641) - lu(k,644) = - lu(k,519) * lu(k,641) - lu(k,647) = - lu(k,520) * lu(k,641) - lu(k,648) = lu(k,648) - lu(k,521) * lu(k,641) - lu(k,688) = - lu(k,518) * lu(k,686) - lu(k,689) = - lu(k,519) * lu(k,686) - lu(k,693) = - lu(k,520) * lu(k,686) - lu(k,694) = lu(k,694) - lu(k,521) * lu(k,686) - lu(k,1040) = - lu(k,518) * lu(k,1037) - lu(k,1041) = - lu(k,519) * lu(k,1037) - lu(k,1045) = - lu(k,520) * lu(k,1037) - lu(k,1047) = - lu(k,521) * lu(k,1037) - lu(k,1757) = lu(k,1757) - lu(k,518) * lu(k,1738) - lu(k,1773) = lu(k,1773) - lu(k,519) * lu(k,1738) - lu(k,1808) = lu(k,1808) - lu(k,520) * lu(k,1738) - lu(k,1818) = lu(k,1818) - lu(k,521) * lu(k,1738) - lu(k,1866) = lu(k,1866) - lu(k,518) * lu(k,1857) - lu(k,1877) = lu(k,1877) - lu(k,519) * lu(k,1857) - lu(k,1906) = lu(k,1906) - lu(k,520) * lu(k,1857) - lu(k,1913) = lu(k,1913) - lu(k,521) * lu(k,1857) + lu(k,653) = - lu(k,518) * lu(k,651) + lu(k,654) = - lu(k,519) * lu(k,651) + lu(k,657) = - lu(k,520) * lu(k,651) + lu(k,658) = lu(k,658) - lu(k,521) * lu(k,651) + lu(k,687) = - lu(k,518) * lu(k,685) + lu(k,688) = - lu(k,519) * lu(k,685) + lu(k,692) = - lu(k,520) * lu(k,685) + lu(k,693) = lu(k,693) - lu(k,521) * lu(k,685) + lu(k,1023) = - lu(k,518) * lu(k,1020) + lu(k,1024) = - lu(k,519) * lu(k,1020) + lu(k,1028) = - lu(k,520) * lu(k,1020) + lu(k,1030) = - lu(k,521) * lu(k,1020) + lu(k,1737) = lu(k,1737) - lu(k,518) * lu(k,1718) + lu(k,1753) = lu(k,1753) - lu(k,519) * lu(k,1718) + lu(k,1788) = lu(k,1788) - lu(k,520) * lu(k,1718) + lu(k,1798) = lu(k,1798) - lu(k,521) * lu(k,1718) + lu(k,1964) = lu(k,1964) - lu(k,518) * lu(k,1954) + lu(k,1975) = lu(k,1975) - lu(k,519) * lu(k,1954) + lu(k,2004) = lu(k,2004) - lu(k,520) * lu(k,1954) + lu(k,2011) = lu(k,2011) - lu(k,521) * lu(k,1954) lu(k,523) = 1._r8 / lu(k,523) lu(k,524) = lu(k,524) * lu(k,523) lu(k,525) = lu(k,525) * lu(k,523) lu(k,526) = lu(k,526) * lu(k,523) lu(k,527) = lu(k,527) * lu(k,523) lu(k,528) = lu(k,528) * lu(k,523) - lu(k,1752) = lu(k,1752) - lu(k,524) * lu(k,1739) - lu(k,1818) = lu(k,1818) - lu(k,525) * lu(k,1739) - lu(k,1819) = lu(k,1819) - lu(k,526) * lu(k,1739) - lu(k,1820) = lu(k,1820) - lu(k,527) * lu(k,1739) - lu(k,1829) = lu(k,1829) - lu(k,528) * lu(k,1739) - lu(k,1864) = lu(k,1864) - lu(k,524) * lu(k,1858) - lu(k,1913) = lu(k,1913) - lu(k,525) * lu(k,1858) - lu(k,1914) = lu(k,1914) - lu(k,526) * lu(k,1858) - lu(k,1915) = lu(k,1915) - lu(k,527) * lu(k,1858) - lu(k,1924) = lu(k,1924) - lu(k,528) * lu(k,1858) - lu(k,1936) = lu(k,1936) - lu(k,524) * lu(k,1932) - lu(k,1958) = lu(k,1958) - lu(k,525) * lu(k,1932) - lu(k,1959) = lu(k,1959) - lu(k,526) * lu(k,1932) - lu(k,1960) = lu(k,1960) - lu(k,527) * lu(k,1932) - lu(k,1969) = lu(k,1969) - lu(k,528) * lu(k,1932) - lu(k,2304) = lu(k,2304) - lu(k,524) * lu(k,2300) - lu(k,2357) = lu(k,2357) - lu(k,525) * lu(k,2300) - lu(k,2358) = lu(k,2358) - lu(k,526) * lu(k,2300) - lu(k,2359) = lu(k,2359) - lu(k,527) * lu(k,2300) - lu(k,2368) = lu(k,2368) - lu(k,528) * lu(k,2300) + lu(k,1732) = lu(k,1732) - lu(k,524) * lu(k,1719) + lu(k,1798) = lu(k,1798) - lu(k,525) * lu(k,1719) + lu(k,1800) = lu(k,1800) - lu(k,526) * lu(k,1719) + lu(k,1802) = lu(k,1802) - lu(k,527) * lu(k,1719) + lu(k,1808) = lu(k,1808) - lu(k,528) * lu(k,1719) + lu(k,1867) = lu(k,1867) - lu(k,524) * lu(k,1863) + lu(k,1889) = lu(k,1889) - lu(k,525) * lu(k,1863) + lu(k,1891) = lu(k,1891) - lu(k,526) * lu(k,1863) + lu(k,1893) = lu(k,1893) - lu(k,527) * lu(k,1863) + lu(k,1899) = lu(k,1899) - lu(k,528) * lu(k,1863) + lu(k,1961) = lu(k,1961) - lu(k,524) * lu(k,1955) + lu(k,2011) = lu(k,2011) - lu(k,525) * lu(k,1955) + lu(k,2013) = lu(k,2013) - lu(k,526) * lu(k,1955) + lu(k,2015) = lu(k,2015) - lu(k,527) * lu(k,1955) + lu(k,2021) = lu(k,2021) - lu(k,528) * lu(k,1955) + lu(k,2281) = lu(k,2281) - lu(k,524) * lu(k,2277) + lu(k,2334) = lu(k,2334) - lu(k,525) * lu(k,2277) + lu(k,2336) = lu(k,2336) - lu(k,526) * lu(k,2277) + lu(k,2338) = lu(k,2338) - lu(k,527) * lu(k,2277) + lu(k,2344) = lu(k,2344) - lu(k,528) * lu(k,2277) lu(k,529) = 1._r8 / lu(k,529) lu(k,530) = lu(k,530) * lu(k,529) lu(k,531) = lu(k,531) * lu(k,529) lu(k,532) = lu(k,532) * lu(k,529) lu(k,533) = lu(k,533) * lu(k,529) - lu(k,681) = lu(k,681) - lu(k,530) * lu(k,675) - lu(k,682) = lu(k,682) - lu(k,531) * lu(k,675) - lu(k,683) = - lu(k,532) * lu(k,675) - lu(k,684) = - lu(k,533) * lu(k,675) - lu(k,847) = lu(k,847) - lu(k,530) * lu(k,844) - lu(k,848) = - lu(k,531) * lu(k,844) - lu(k,849) = - lu(k,532) * lu(k,844) - lu(k,850) = - lu(k,533) * lu(k,844) - lu(k,866) = lu(k,866) - lu(k,530) * lu(k,860) - lu(k,869) = - lu(k,531) * lu(k,860) - lu(k,870) = - lu(k,532) * lu(k,860) - lu(k,871) = lu(k,871) - lu(k,533) * lu(k,860) - lu(k,1536) = lu(k,1536) - lu(k,530) * lu(k,1528) - lu(k,1542) = lu(k,1542) - lu(k,531) * lu(k,1528) - lu(k,1546) = lu(k,1546) - lu(k,532) * lu(k,1528) - lu(k,1549) = lu(k,1549) - lu(k,533) * lu(k,1528) - lu(k,2082) = lu(k,2082) - lu(k,530) * lu(k,2068) - lu(k,2089) = lu(k,2089) - lu(k,531) * lu(k,2068) - lu(k,2094) = lu(k,2094) - lu(k,532) * lu(k,2068) - lu(k,2097) = - lu(k,533) * lu(k,2068) - lu(k,534) = 1._r8 / lu(k,534) - lu(k,535) = lu(k,535) * lu(k,534) - lu(k,536) = lu(k,536) * lu(k,534) - lu(k,537) = lu(k,537) * lu(k,534) - lu(k,538) = lu(k,538) * lu(k,534) - lu(k,539) = lu(k,539) * lu(k,534) - lu(k,540) = lu(k,540) * lu(k,534) - lu(k,541) = lu(k,541) * lu(k,534) - lu(k,1428) = lu(k,1428) - lu(k,535) * lu(k,1411) - lu(k,1429) = lu(k,1429) - lu(k,536) * lu(k,1411) - lu(k,1431) = - lu(k,537) * lu(k,1411) - lu(k,1432) = lu(k,1432) - lu(k,538) * lu(k,1411) - lu(k,1434) = lu(k,1434) - lu(k,539) * lu(k,1411) - lu(k,1435) = lu(k,1435) - lu(k,540) * lu(k,1411) - lu(k,1440) = lu(k,1440) - lu(k,541) * lu(k,1411) - lu(k,1808) = lu(k,1808) - lu(k,535) * lu(k,1740) - lu(k,1809) = lu(k,1809) - lu(k,536) * lu(k,1740) - lu(k,1817) = lu(k,1817) - lu(k,537) * lu(k,1740) - lu(k,1818) = lu(k,1818) - lu(k,538) * lu(k,1740) - lu(k,1820) = lu(k,1820) - lu(k,539) * lu(k,1740) - lu(k,1821) = lu(k,1821) - lu(k,540) * lu(k,1740) - lu(k,1830) = lu(k,1830) - lu(k,541) * lu(k,1740) - lu(k,1949) = lu(k,1949) - lu(k,535) * lu(k,1933) - lu(k,1950) = - lu(k,536) * lu(k,1933) - lu(k,1957) = lu(k,1957) - lu(k,537) * lu(k,1933) - lu(k,1958) = lu(k,1958) - lu(k,538) * lu(k,1933) - lu(k,1960) = lu(k,1960) - lu(k,539) * lu(k,1933) - lu(k,1961) = - lu(k,540) * lu(k,1933) - lu(k,1970) = - lu(k,541) * lu(k,1933) + lu(k,534) = lu(k,534) * lu(k,529) + lu(k,535) = lu(k,535) * lu(k,529) + lu(k,536) = lu(k,536) * lu(k,529) + lu(k,1427) = lu(k,1427) - lu(k,530) * lu(k,1410) + lu(k,1428) = lu(k,1428) - lu(k,531) * lu(k,1410) + lu(k,1431) = lu(k,1431) - lu(k,532) * lu(k,1410) + lu(k,1432) = lu(k,1432) - lu(k,533) * lu(k,1410) + lu(k,1433) = lu(k,1433) - lu(k,534) * lu(k,1410) + lu(k,1436) = - lu(k,535) * lu(k,1410) + lu(k,1439) = lu(k,1439) - lu(k,536) * lu(k,1410) + lu(k,1788) = lu(k,1788) - lu(k,530) * lu(k,1720) + lu(k,1789) = lu(k,1789) - lu(k,531) * lu(k,1720) + lu(k,1798) = lu(k,1798) - lu(k,532) * lu(k,1720) + lu(k,1800) = lu(k,1800) - lu(k,533) * lu(k,1720) + lu(k,1801) = lu(k,1801) - lu(k,534) * lu(k,1720) + lu(k,1807) = lu(k,1807) - lu(k,535) * lu(k,1720) + lu(k,1810) = lu(k,1810) - lu(k,536) * lu(k,1720) + lu(k,1880) = lu(k,1880) - lu(k,530) * lu(k,1864) + lu(k,1881) = - lu(k,531) * lu(k,1864) + lu(k,1889) = lu(k,1889) - lu(k,532) * lu(k,1864) + lu(k,1891) = lu(k,1891) - lu(k,533) * lu(k,1864) + lu(k,1892) = - lu(k,534) * lu(k,1864) + lu(k,1898) = lu(k,1898) - lu(k,535) * lu(k,1864) + lu(k,1901) = - lu(k,536) * lu(k,1864) + lu(k,537) = 1._r8 / lu(k,537) + lu(k,538) = lu(k,538) * lu(k,537) + lu(k,539) = lu(k,539) * lu(k,537) + lu(k,540) = lu(k,540) * lu(k,537) + lu(k,541) = lu(k,541) * lu(k,537) + lu(k,542) = lu(k,542) * lu(k,537) + lu(k,543) = lu(k,543) * lu(k,537) + lu(k,544) = lu(k,544) * lu(k,537) + lu(k,813) = lu(k,813) - lu(k,538) * lu(k,812) + lu(k,814) = lu(k,814) - lu(k,539) * lu(k,812) + lu(k,815) = - lu(k,540) * lu(k,812) + lu(k,817) = - lu(k,541) * lu(k,812) + lu(k,819) = lu(k,819) - lu(k,542) * lu(k,812) + lu(k,821) = lu(k,821) - lu(k,543) * lu(k,812) + lu(k,822) = - lu(k,544) * lu(k,812) + lu(k,1747) = lu(k,1747) - lu(k,538) * lu(k,1721) + lu(k,1772) = lu(k,1772) - lu(k,539) * lu(k,1721) + lu(k,1777) = lu(k,1777) - lu(k,540) * lu(k,1721) + lu(k,1798) = lu(k,1798) - lu(k,541) * lu(k,1721) + lu(k,1801) = lu(k,1801) - lu(k,542) * lu(k,1721) + lu(k,1808) = lu(k,1808) - lu(k,543) * lu(k,1721) + lu(k,1811) = lu(k,1811) - lu(k,544) * lu(k,1721) + lu(k,2295) = lu(k,2295) - lu(k,538) * lu(k,2278) + lu(k,2310) = lu(k,2310) - lu(k,539) * lu(k,2278) + lu(k,2314) = - lu(k,540) * lu(k,2278) + lu(k,2334) = lu(k,2334) - lu(k,541) * lu(k,2278) + lu(k,2337) = lu(k,2337) - lu(k,542) * lu(k,2278) + lu(k,2344) = lu(k,2344) - lu(k,543) * lu(k,2278) + lu(k,2347) = lu(k,2347) - lu(k,544) * lu(k,2278) end do end subroutine lu_fac11 subroutine lu_fac12( avec_len, lu ) @@ -1556,151 +1560,155 @@ subroutine lu_fac12( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,542) = 1._r8 / lu(k,542) - lu(k,543) = lu(k,543) * lu(k,542) - lu(k,544) = lu(k,544) * lu(k,542) - lu(k,545) = lu(k,545) * lu(k,542) - lu(k,546) = lu(k,546) * lu(k,542) - lu(k,547) = lu(k,547) * lu(k,542) - lu(k,548) = lu(k,548) * lu(k,542) - lu(k,549) = lu(k,549) * lu(k,542) - lu(k,814) = lu(k,814) - lu(k,543) * lu(k,813) - lu(k,815) = lu(k,815) - lu(k,544) * lu(k,813) - lu(k,816) = - lu(k,545) * lu(k,813) - lu(k,818) = - lu(k,546) * lu(k,813) - lu(k,821) = lu(k,821) - lu(k,547) * lu(k,813) - lu(k,822) = lu(k,822) - lu(k,548) * lu(k,813) - lu(k,823) = - lu(k,549) * lu(k,813) - lu(k,1767) = lu(k,1767) - lu(k,543) * lu(k,1741) - lu(k,1792) = lu(k,1792) - lu(k,544) * lu(k,1741) - lu(k,1797) = lu(k,1797) - lu(k,545) * lu(k,1741) - lu(k,1818) = lu(k,1818) - lu(k,546) * lu(k,1741) - lu(k,1821) = lu(k,1821) - lu(k,547) * lu(k,1741) - lu(k,1829) = lu(k,1829) - lu(k,548) * lu(k,1741) - lu(k,1831) = lu(k,1831) - lu(k,549) * lu(k,1741) - lu(k,2318) = lu(k,2318) - lu(k,543) * lu(k,2301) - lu(k,2333) = lu(k,2333) - lu(k,544) * lu(k,2301) - lu(k,2337) = - lu(k,545) * lu(k,2301) - lu(k,2357) = lu(k,2357) - lu(k,546) * lu(k,2301) - lu(k,2360) = lu(k,2360) - lu(k,547) * lu(k,2301) - lu(k,2368) = lu(k,2368) - lu(k,548) * lu(k,2301) - lu(k,2370) = lu(k,2370) - lu(k,549) * lu(k,2301) - lu(k,550) = 1._r8 / lu(k,550) - lu(k,551) = lu(k,551) * lu(k,550) - lu(k,552) = lu(k,552) * lu(k,550) - lu(k,553) = lu(k,553) * lu(k,550) - lu(k,554) = lu(k,554) * lu(k,550) - lu(k,555) = lu(k,555) * lu(k,550) - lu(k,556) = lu(k,556) * lu(k,550) - lu(k,557) = lu(k,557) * lu(k,550) - lu(k,1766) = lu(k,1766) - lu(k,551) * lu(k,1742) - lu(k,1775) = lu(k,1775) - lu(k,552) * lu(k,1742) - lu(k,1793) = lu(k,1793) - lu(k,553) * lu(k,1742) - lu(k,1818) = lu(k,1818) - lu(k,554) * lu(k,1742) - lu(k,1821) = lu(k,1821) - lu(k,555) * lu(k,1742) - lu(k,1827) = lu(k,1827) - lu(k,556) * lu(k,1742) - lu(k,1829) = lu(k,1829) - lu(k,557) * lu(k,1742) - lu(k,2138) = - lu(k,551) * lu(k,2135) - lu(k,2141) = lu(k,2141) - lu(k,552) * lu(k,2135) - lu(k,2147) = lu(k,2147) - lu(k,553) * lu(k,2135) - lu(k,2160) = lu(k,2160) - lu(k,554) * lu(k,2135) - lu(k,2163) = lu(k,2163) - lu(k,555) * lu(k,2135) - lu(k,2169) = lu(k,2169) - lu(k,556) * lu(k,2135) - lu(k,2171) = lu(k,2171) - lu(k,557) * lu(k,2135) - lu(k,2188) = - lu(k,551) * lu(k,2184) - lu(k,2190) = lu(k,2190) - lu(k,552) * lu(k,2184) - lu(k,2203) = lu(k,2203) - lu(k,553) * lu(k,2184) - lu(k,2224) = lu(k,2224) - lu(k,554) * lu(k,2184) - lu(k,2227) = lu(k,2227) - lu(k,555) * lu(k,2184) - lu(k,2233) = lu(k,2233) - lu(k,556) * lu(k,2184) - lu(k,2235) = lu(k,2235) - lu(k,557) * lu(k,2184) - lu(k,558) = 1._r8 / lu(k,558) - lu(k,559) = lu(k,559) * lu(k,558) - lu(k,560) = lu(k,560) * lu(k,558) - lu(k,561) = lu(k,561) * lu(k,558) - lu(k,562) = lu(k,562) * lu(k,558) - lu(k,563) = lu(k,563) * lu(k,558) - lu(k,564) = lu(k,564) * lu(k,558) - lu(k,565) = lu(k,565) * lu(k,558) - lu(k,1321) = - lu(k,559) * lu(k,1317) - lu(k,1325) = lu(k,1325) - lu(k,560) * lu(k,1317) - lu(k,1326) = - lu(k,561) * lu(k,1317) - lu(k,1327) = lu(k,1327) - lu(k,562) * lu(k,1317) - lu(k,1339) = lu(k,1339) - lu(k,563) * lu(k,1317) - lu(k,1343) = - lu(k,564) * lu(k,1317) - lu(k,1345) = lu(k,1345) - lu(k,565) * lu(k,1317) - lu(k,1772) = lu(k,1772) - lu(k,559) * lu(k,1743) - lu(k,1794) = lu(k,1794) - lu(k,560) * lu(k,1743) - lu(k,1796) = lu(k,1796) - lu(k,561) * lu(k,1743) - lu(k,1797) = lu(k,1797) - lu(k,562) * lu(k,1743) - lu(k,1818) = lu(k,1818) - lu(k,563) * lu(k,1743) - lu(k,1823) = lu(k,1823) - lu(k,564) * lu(k,1743) - lu(k,1829) = lu(k,1829) - lu(k,565) * lu(k,1743) - lu(k,1876) = - lu(k,559) * lu(k,1859) - lu(k,1892) = lu(k,1892) - lu(k,560) * lu(k,1859) - lu(k,1894) = lu(k,1894) - lu(k,561) * lu(k,1859) - lu(k,1895) = lu(k,1895) - lu(k,562) * lu(k,1859) - lu(k,1913) = lu(k,1913) - lu(k,563) * lu(k,1859) - lu(k,1918) = lu(k,1918) - lu(k,564) * lu(k,1859) - lu(k,1924) = lu(k,1924) - lu(k,565) * lu(k,1859) - lu(k,566) = 1._r8 / lu(k,566) - lu(k,567) = lu(k,567) * lu(k,566) - lu(k,568) = lu(k,568) * lu(k,566) - lu(k,569) = lu(k,569) * lu(k,566) - lu(k,570) = lu(k,570) * lu(k,566) - lu(k,571) = lu(k,571) * lu(k,566) - lu(k,572) = lu(k,572) * lu(k,566) - lu(k,573) = lu(k,573) * lu(k,566) - lu(k,1559) = lu(k,1559) - lu(k,567) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,568) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,569) * lu(k,1558) - lu(k,1567) = - lu(k,570) * lu(k,1558) - lu(k,1570) = lu(k,1570) - lu(k,571) * lu(k,1558) - lu(k,1573) = - lu(k,572) * lu(k,1558) - lu(k,1574) = lu(k,1574) - lu(k,573) * lu(k,1558) - lu(k,1939) = - lu(k,567) * lu(k,1934) - lu(k,1953) = - lu(k,568) * lu(k,1934) - lu(k,1955) = lu(k,1955) - lu(k,569) * lu(k,1934) - lu(k,1957) = lu(k,1957) - lu(k,570) * lu(k,1934) - lu(k,1960) = lu(k,1960) - lu(k,571) * lu(k,1934) - lu(k,1963) = lu(k,1963) - lu(k,572) * lu(k,1934) - lu(k,1964) = lu(k,1964) - lu(k,573) * lu(k,1934) - lu(k,2073) = lu(k,2073) - lu(k,567) * lu(k,2069) - lu(k,2088) = lu(k,2088) - lu(k,568) * lu(k,2069) - lu(k,2090) = lu(k,2090) - lu(k,569) * lu(k,2069) - lu(k,2092) = lu(k,2092) - lu(k,570) * lu(k,2069) - lu(k,2095) = lu(k,2095) - lu(k,571) * lu(k,2069) - lu(k,2098) = - lu(k,572) * lu(k,2069) - lu(k,2099) = lu(k,2099) - lu(k,573) * lu(k,2069) - lu(k,574) = 1._r8 / lu(k,574) - lu(k,575) = lu(k,575) * lu(k,574) - lu(k,576) = lu(k,576) * lu(k,574) - lu(k,577) = lu(k,577) * lu(k,574) - lu(k,578) = lu(k,578) * lu(k,574) - lu(k,579) = lu(k,579) * lu(k,574) - lu(k,580) = lu(k,580) * lu(k,574) - lu(k,581) = lu(k,581) * lu(k,574) - lu(k,1624) = lu(k,1624) - lu(k,575) * lu(k,1613) - lu(k,1629) = lu(k,1629) - lu(k,576) * lu(k,1613) - lu(k,1633) = - lu(k,577) * lu(k,1613) - lu(k,1654) = lu(k,1654) - lu(k,578) * lu(k,1613) - lu(k,1655) = lu(k,1655) - lu(k,579) * lu(k,1613) - lu(k,1656) = lu(k,1656) - lu(k,580) * lu(k,1613) - lu(k,1664) = lu(k,1664) - lu(k,581) * lu(k,1613) - lu(k,1787) = lu(k,1787) - lu(k,575) * lu(k,1744) - lu(k,1792) = lu(k,1792) - lu(k,576) * lu(k,1744) - lu(k,1796) = lu(k,1796) - lu(k,577) * lu(k,1744) - lu(k,1819) = lu(k,1819) - lu(k,578) * lu(k,1744) - lu(k,1820) = lu(k,1820) - lu(k,579) * lu(k,1744) - lu(k,1821) = lu(k,1821) - lu(k,580) * lu(k,1744) - lu(k,1829) = lu(k,1829) - lu(k,581) * lu(k,1744) - lu(k,1886) = lu(k,1886) - lu(k,575) * lu(k,1860) - lu(k,1890) = lu(k,1890) - lu(k,576) * lu(k,1860) - lu(k,1894) = lu(k,1894) - lu(k,577) * lu(k,1860) - lu(k,1914) = lu(k,1914) - lu(k,578) * lu(k,1860) - lu(k,1915) = lu(k,1915) - lu(k,579) * lu(k,1860) - lu(k,1916) = lu(k,1916) - lu(k,580) * lu(k,1860) - lu(k,1924) = lu(k,1924) - lu(k,581) * lu(k,1860) + lu(k,545) = 1._r8 / lu(k,545) + lu(k,546) = lu(k,546) * lu(k,545) + lu(k,547) = lu(k,547) * lu(k,545) + lu(k,548) = lu(k,548) * lu(k,545) + lu(k,549) = lu(k,549) * lu(k,545) + lu(k,550) = lu(k,550) * lu(k,545) + lu(k,551) = lu(k,551) * lu(k,545) + lu(k,552) = lu(k,552) * lu(k,545) + lu(k,1746) = lu(k,1746) - lu(k,546) * lu(k,1722) + lu(k,1755) = lu(k,1755) - lu(k,547) * lu(k,1722) + lu(k,1773) = lu(k,1773) - lu(k,548) * lu(k,1722) + lu(k,1798) = lu(k,1798) - lu(k,549) * lu(k,1722) + lu(k,1801) = lu(k,1801) - lu(k,550) * lu(k,1722) + lu(k,1804) = lu(k,1804) - lu(k,551) * lu(k,1722) + lu(k,1808) = lu(k,1808) - lu(k,552) * lu(k,1722) + lu(k,1822) = - lu(k,546) * lu(k,1819) + lu(k,1825) = lu(k,1825) - lu(k,547) * lu(k,1819) + lu(k,1831) = lu(k,1831) - lu(k,548) * lu(k,1819) + lu(k,1844) = lu(k,1844) - lu(k,549) * lu(k,1819) + lu(k,1847) = lu(k,1847) - lu(k,550) * lu(k,1819) + lu(k,1850) = lu(k,1850) - lu(k,551) * lu(k,1819) + lu(k,1854) = lu(k,1854) - lu(k,552) * lu(k,1819) + lu(k,2082) = - lu(k,546) * lu(k,2078) + lu(k,2084) = lu(k,2084) - lu(k,547) * lu(k,2078) + lu(k,2097) = lu(k,2097) - lu(k,548) * lu(k,2078) + lu(k,2118) = lu(k,2118) - lu(k,549) * lu(k,2078) + lu(k,2121) = lu(k,2121) - lu(k,550) * lu(k,2078) + lu(k,2124) = lu(k,2124) - lu(k,551) * lu(k,2078) + lu(k,2128) = lu(k,2128) - lu(k,552) * lu(k,2078) + lu(k,553) = 1._r8 / lu(k,553) + lu(k,554) = lu(k,554) * lu(k,553) + lu(k,555) = lu(k,555) * lu(k,553) + lu(k,556) = lu(k,556) * lu(k,553) + lu(k,557) = lu(k,557) * lu(k,553) + lu(k,558) = lu(k,558) * lu(k,553) + lu(k,559) = lu(k,559) * lu(k,553) + lu(k,560) = lu(k,560) * lu(k,553) + lu(k,1320) = - lu(k,554) * lu(k,1316) + lu(k,1324) = lu(k,1324) - lu(k,555) * lu(k,1316) + lu(k,1325) = - lu(k,556) * lu(k,1316) + lu(k,1326) = lu(k,1326) - lu(k,557) * lu(k,1316) + lu(k,1337) = lu(k,1337) - lu(k,558) * lu(k,1316) + lu(k,1343) = lu(k,1343) - lu(k,559) * lu(k,1316) + lu(k,1344) = - lu(k,560) * lu(k,1316) + lu(k,1752) = lu(k,1752) - lu(k,554) * lu(k,1723) + lu(k,1774) = lu(k,1774) - lu(k,555) * lu(k,1723) + lu(k,1776) = lu(k,1776) - lu(k,556) * lu(k,1723) + lu(k,1777) = lu(k,1777) - lu(k,557) * lu(k,1723) + lu(k,1798) = lu(k,1798) - lu(k,558) * lu(k,1723) + lu(k,1808) = lu(k,1808) - lu(k,559) * lu(k,1723) + lu(k,1809) = lu(k,1809) - lu(k,560) * lu(k,1723) + lu(k,1974) = - lu(k,554) * lu(k,1956) + lu(k,1990) = lu(k,1990) - lu(k,555) * lu(k,1956) + lu(k,1992) = lu(k,1992) - lu(k,556) * lu(k,1956) + lu(k,1993) = lu(k,1993) - lu(k,557) * lu(k,1956) + lu(k,2011) = lu(k,2011) - lu(k,558) * lu(k,1956) + lu(k,2021) = lu(k,2021) - lu(k,559) * lu(k,1956) + lu(k,2022) = lu(k,2022) - lu(k,560) * lu(k,1956) + lu(k,561) = 1._r8 / lu(k,561) + lu(k,562) = lu(k,562) * lu(k,561) + lu(k,563) = lu(k,563) * lu(k,561) + lu(k,564) = lu(k,564) * lu(k,561) + lu(k,565) = lu(k,565) * lu(k,561) + lu(k,566) = lu(k,566) * lu(k,561) + lu(k,567) = lu(k,567) * lu(k,561) + lu(k,568) = lu(k,568) * lu(k,561) + lu(k,1583) = lu(k,1583) - lu(k,562) * lu(k,1582) + lu(k,1587) = lu(k,1587) - lu(k,563) * lu(k,1582) + lu(k,1589) = lu(k,1589) - lu(k,564) * lu(k,1582) + lu(k,1593) = lu(k,1593) - lu(k,565) * lu(k,1582) + lu(k,1596) = lu(k,1596) - lu(k,566) * lu(k,1582) + lu(k,1600) = - lu(k,567) * lu(k,1582) + lu(k,1602) = - lu(k,568) * lu(k,1582) + lu(k,1870) = - lu(k,562) * lu(k,1865) + lu(k,1884) = - lu(k,563) * lu(k,1865) + lu(k,1887) = lu(k,1887) - lu(k,564) * lu(k,1865) + lu(k,1891) = lu(k,1891) - lu(k,565) * lu(k,1865) + lu(k,1894) = lu(k,1894) - lu(k,566) * lu(k,1865) + lu(k,1898) = lu(k,1898) - lu(k,567) * lu(k,1865) + lu(k,1900) = lu(k,1900) - lu(k,568) * lu(k,1865) + lu(k,2034) = lu(k,2034) - lu(k,562) * lu(k,2029) + lu(k,2049) = lu(k,2049) - lu(k,563) * lu(k,2029) + lu(k,2052) = lu(k,2052) - lu(k,564) * lu(k,2029) + lu(k,2056) = lu(k,2056) - lu(k,565) * lu(k,2029) + lu(k,2059) = lu(k,2059) - lu(k,566) * lu(k,2029) + lu(k,2063) = lu(k,2063) - lu(k,567) * lu(k,2029) + lu(k,2065) = - lu(k,568) * lu(k,2029) + lu(k,569) = 1._r8 / lu(k,569) + lu(k,570) = lu(k,570) * lu(k,569) + lu(k,571) = lu(k,571) * lu(k,569) + lu(k,572) = lu(k,572) * lu(k,569) + lu(k,573) = lu(k,573) * lu(k,569) + lu(k,574) = lu(k,574) * lu(k,569) + lu(k,575) = lu(k,575) * lu(k,569) + lu(k,576) = lu(k,576) * lu(k,569) + lu(k,1767) = lu(k,1767) - lu(k,570) * lu(k,1724) + lu(k,1772) = lu(k,1772) - lu(k,571) * lu(k,1724) + lu(k,1776) = lu(k,1776) - lu(k,572) * lu(k,1724) + lu(k,1800) = lu(k,1800) - lu(k,573) * lu(k,1724) + lu(k,1801) = lu(k,1801) - lu(k,574) * lu(k,1724) + lu(k,1802) = lu(k,1802) - lu(k,575) * lu(k,1724) + lu(k,1808) = lu(k,1808) - lu(k,576) * lu(k,1724) + lu(k,1984) = lu(k,1984) - lu(k,570) * lu(k,1957) + lu(k,1988) = lu(k,1988) - lu(k,571) * lu(k,1957) + lu(k,1992) = lu(k,1992) - lu(k,572) * lu(k,1957) + lu(k,2013) = lu(k,2013) - lu(k,573) * lu(k,1957) + lu(k,2014) = lu(k,2014) - lu(k,574) * lu(k,1957) + lu(k,2015) = lu(k,2015) - lu(k,575) * lu(k,1957) + lu(k,2021) = lu(k,2021) - lu(k,576) * lu(k,1957) + lu(k,2197) = lu(k,2197) - lu(k,570) * lu(k,2186) + lu(k,2202) = lu(k,2202) - lu(k,571) * lu(k,2186) + lu(k,2206) = - lu(k,572) * lu(k,2186) + lu(k,2228) = lu(k,2228) - lu(k,573) * lu(k,2186) + lu(k,2229) = lu(k,2229) - lu(k,574) * lu(k,2186) + lu(k,2230) = lu(k,2230) - lu(k,575) * lu(k,2186) + lu(k,2236) = lu(k,2236) - lu(k,576) * lu(k,2186) + lu(k,577) = 1._r8 / lu(k,577) + lu(k,578) = lu(k,578) * lu(k,577) + lu(k,579) = lu(k,579) * lu(k,577) + lu(k,580) = lu(k,580) * lu(k,577) + lu(k,581) = lu(k,581) * lu(k,577) + lu(k,582) = lu(k,582) * lu(k,577) + lu(k,583) = lu(k,583) * lu(k,577) + lu(k,584) = lu(k,584) * lu(k,577) + lu(k,585) = lu(k,585) * lu(k,577) + lu(k,1291) = - lu(k,578) * lu(k,1288) + lu(k,1292) = - lu(k,579) * lu(k,1288) + lu(k,1293) = - lu(k,580) * lu(k,1288) + lu(k,1304) = - lu(k,581) * lu(k,1288) + lu(k,1305) = lu(k,1305) - lu(k,582) * lu(k,1288) + lu(k,1306) = lu(k,1306) - lu(k,583) * lu(k,1288) + lu(k,1310) = lu(k,1310) - lu(k,584) * lu(k,1288) + lu(k,1311) = - lu(k,585) * lu(k,1288) + lu(k,1774) = lu(k,1774) - lu(k,578) * lu(k,1725) + lu(k,1776) = lu(k,1776) - lu(k,579) * lu(k,1725) + lu(k,1777) = lu(k,1777) - lu(k,580) * lu(k,1725) + lu(k,1798) = lu(k,1798) - lu(k,581) * lu(k,1725) + lu(k,1800) = lu(k,1800) - lu(k,582) * lu(k,1725) + lu(k,1801) = lu(k,1801) - lu(k,583) * lu(k,1725) + lu(k,1808) = lu(k,1808) - lu(k,584) * lu(k,1725) + lu(k,1809) = lu(k,1809) - lu(k,585) * lu(k,1725) + lu(k,1990) = lu(k,1990) - lu(k,578) * lu(k,1958) + lu(k,1992) = lu(k,1992) - lu(k,579) * lu(k,1958) + lu(k,1993) = lu(k,1993) - lu(k,580) * lu(k,1958) + lu(k,2011) = lu(k,2011) - lu(k,581) * lu(k,1958) + lu(k,2013) = lu(k,2013) - lu(k,582) * lu(k,1958) + lu(k,2014) = lu(k,2014) - lu(k,583) * lu(k,1958) + lu(k,2021) = lu(k,2021) - lu(k,584) * lu(k,1958) + lu(k,2022) = lu(k,2022) - lu(k,585) * lu(k,1958) end do end subroutine lu_fac12 subroutine lu_fac13( avec_len, lu ) @@ -1717,164 +1725,162 @@ subroutine lu_fac13( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,582) = 1._r8 / lu(k,582) - lu(k,583) = lu(k,583) * lu(k,582) - lu(k,584) = lu(k,584) * lu(k,582) - lu(k,585) = lu(k,585) * lu(k,582) - lu(k,586) = lu(k,586) * lu(k,582) - lu(k,587) = lu(k,587) * lu(k,582) - lu(k,588) = lu(k,588) * lu(k,582) - lu(k,1812) = lu(k,1812) - lu(k,583) * lu(k,1745) - lu(k,1818) = lu(k,1818) - lu(k,584) * lu(k,1745) - lu(k,1824) = lu(k,1824) - lu(k,585) * lu(k,1745) - lu(k,1826) = lu(k,1826) - lu(k,586) * lu(k,1745) - lu(k,1829) = lu(k,1829) - lu(k,587) * lu(k,1745) - lu(k,1831) = lu(k,1831) - lu(k,588) * lu(k,1745) - lu(k,2087) = lu(k,2087) - lu(k,583) * lu(k,2070) - lu(k,2093) = lu(k,2093) - lu(k,584) * lu(k,2070) - lu(k,2099) = lu(k,2099) - lu(k,585) * lu(k,2070) - lu(k,2101) = lu(k,2101) - lu(k,586) * lu(k,2070) - lu(k,2104) = lu(k,2104) - lu(k,587) * lu(k,2070) - lu(k,2106) = - lu(k,588) * lu(k,2070) - lu(k,2154) = lu(k,2154) - lu(k,583) * lu(k,2136) - lu(k,2160) = lu(k,2160) - lu(k,584) * lu(k,2136) - lu(k,2166) = - lu(k,585) * lu(k,2136) - lu(k,2168) = lu(k,2168) - lu(k,586) * lu(k,2136) - lu(k,2171) = lu(k,2171) - lu(k,587) * lu(k,2136) - lu(k,2173) = lu(k,2173) - lu(k,588) * lu(k,2136) - lu(k,2351) = lu(k,2351) - lu(k,583) * lu(k,2302) - lu(k,2357) = lu(k,2357) - lu(k,584) * lu(k,2302) - lu(k,2363) = lu(k,2363) - lu(k,585) * lu(k,2302) - lu(k,2365) = lu(k,2365) - lu(k,586) * lu(k,2302) - lu(k,2368) = lu(k,2368) - lu(k,587) * lu(k,2302) - lu(k,2370) = lu(k,2370) - lu(k,588) * lu(k,2302) - lu(k,589) = 1._r8 / lu(k,589) - lu(k,590) = lu(k,590) * lu(k,589) - lu(k,591) = lu(k,591) * lu(k,589) - lu(k,592) = lu(k,592) * lu(k,589) - lu(k,593) = lu(k,593) * lu(k,589) - lu(k,594) = lu(k,594) * lu(k,589) - lu(k,595) = lu(k,595) * lu(k,589) - lu(k,596) = lu(k,596) * lu(k,589) - lu(k,597) = lu(k,597) * lu(k,589) - lu(k,1292) = - lu(k,590) * lu(k,1289) - lu(k,1293) = - lu(k,591) * lu(k,1289) - lu(k,1294) = - lu(k,592) * lu(k,1289) - lu(k,1306) = - lu(k,593) * lu(k,1289) - lu(k,1308) = lu(k,1308) - lu(k,594) * lu(k,1289) - lu(k,1309) = lu(k,1309) - lu(k,595) * lu(k,1289) - lu(k,1310) = - lu(k,596) * lu(k,1289) - lu(k,1312) = lu(k,1312) - lu(k,597) * lu(k,1289) - lu(k,1794) = lu(k,1794) - lu(k,590) * lu(k,1746) - lu(k,1796) = lu(k,1796) - lu(k,591) * lu(k,1746) - lu(k,1797) = lu(k,1797) - lu(k,592) * lu(k,1746) - lu(k,1818) = lu(k,1818) - lu(k,593) * lu(k,1746) - lu(k,1820) = lu(k,1820) - lu(k,594) * lu(k,1746) - lu(k,1821) = lu(k,1821) - lu(k,595) * lu(k,1746) - lu(k,1823) = lu(k,1823) - lu(k,596) * lu(k,1746) - lu(k,1829) = lu(k,1829) - lu(k,597) * lu(k,1746) - lu(k,1892) = lu(k,1892) - lu(k,590) * lu(k,1861) - lu(k,1894) = lu(k,1894) - lu(k,591) * lu(k,1861) - lu(k,1895) = lu(k,1895) - lu(k,592) * lu(k,1861) - lu(k,1913) = lu(k,1913) - lu(k,593) * lu(k,1861) - lu(k,1915) = lu(k,1915) - lu(k,594) * lu(k,1861) - lu(k,1916) = lu(k,1916) - lu(k,595) * lu(k,1861) - lu(k,1918) = lu(k,1918) - lu(k,596) * lu(k,1861) - lu(k,1924) = lu(k,1924) - lu(k,597) * lu(k,1861) - lu(k,598) = 1._r8 / lu(k,598) - lu(k,599) = lu(k,599) * lu(k,598) - lu(k,600) = lu(k,600) * lu(k,598) - lu(k,601) = lu(k,601) * lu(k,598) - lu(k,669) = - lu(k,599) * lu(k,664) - lu(k,671) = - lu(k,600) * lu(k,664) - lu(k,674) = lu(k,674) - lu(k,601) * lu(k,664) - lu(k,733) = - lu(k,599) * lu(k,728) - lu(k,735) = lu(k,735) - lu(k,600) * lu(k,728) - lu(k,739) = lu(k,739) - lu(k,601) * lu(k,728) - lu(k,753) = - lu(k,599) * lu(k,748) - lu(k,755) = - lu(k,600) * lu(k,748) - lu(k,760) = lu(k,760) - lu(k,601) * lu(k,748) - lu(k,769) = - lu(k,599) * lu(k,764) - lu(k,771) = lu(k,771) - lu(k,600) * lu(k,764) - lu(k,777) = lu(k,777) - lu(k,601) * lu(k,764) - lu(k,1088) = - lu(k,599) * lu(k,1086) - lu(k,1091) = - lu(k,600) * lu(k,1086) - lu(k,1100) = lu(k,1100) - lu(k,601) * lu(k,1086) - lu(k,1322) = - lu(k,599) * lu(k,1318) - lu(k,1324) = - lu(k,600) * lu(k,1318) - lu(k,1345) = lu(k,1345) - lu(k,601) * lu(k,1318) - lu(k,1774) = - lu(k,599) * lu(k,1747) - lu(k,1793) = lu(k,1793) - lu(k,600) * lu(k,1747) - lu(k,1829) = lu(k,1829) - lu(k,601) * lu(k,1747) - lu(k,1878) = lu(k,1878) - lu(k,599) * lu(k,1862) - lu(k,1891) = lu(k,1891) - lu(k,600) * lu(k,1862) - lu(k,1924) = lu(k,1924) - lu(k,601) * lu(k,1862) - lu(k,602) = 1._r8 / lu(k,602) - lu(k,603) = lu(k,603) * lu(k,602) - lu(k,604) = lu(k,604) * lu(k,602) - lu(k,605) = lu(k,605) * lu(k,602) - lu(k,606) = lu(k,606) * lu(k,602) - lu(k,607) = lu(k,607) * lu(k,602) - lu(k,608) = lu(k,608) * lu(k,602) - lu(k,609) = lu(k,609) * lu(k,602) - lu(k,610) = lu(k,610) * lu(k,602) - lu(k,1812) = lu(k,1812) - lu(k,603) * lu(k,1748) - lu(k,1813) = lu(k,1813) - lu(k,604) * lu(k,1748) - lu(k,1818) = lu(k,1818) - lu(k,605) * lu(k,1748) - lu(k,1822) = lu(k,1822) - lu(k,606) * lu(k,1748) - lu(k,1826) = lu(k,1826) - lu(k,607) * lu(k,1748) - lu(k,1829) = lu(k,1829) - lu(k,608) * lu(k,1748) - lu(k,1830) = lu(k,1830) - lu(k,609) * lu(k,1748) - lu(k,1831) = lu(k,1831) - lu(k,610) * lu(k,1748) - lu(k,2021) = lu(k,2021) - lu(k,603) * lu(k,2017) - lu(k,2022) = lu(k,2022) - lu(k,604) * lu(k,2017) - lu(k,2027) = lu(k,2027) - lu(k,605) * lu(k,2017) - lu(k,2031) = lu(k,2031) - lu(k,606) * lu(k,2017) - lu(k,2035) = lu(k,2035) - lu(k,607) * lu(k,2017) - lu(k,2038) = lu(k,2038) - lu(k,608) * lu(k,2017) - lu(k,2039) = lu(k,2039) - lu(k,609) * lu(k,2017) - lu(k,2040) = lu(k,2040) - lu(k,610) * lu(k,2017) - lu(k,2154) = lu(k,2154) - lu(k,603) * lu(k,2137) - lu(k,2155) = lu(k,2155) - lu(k,604) * lu(k,2137) - lu(k,2160) = lu(k,2160) - lu(k,605) * lu(k,2137) - lu(k,2164) = lu(k,2164) - lu(k,606) * lu(k,2137) - lu(k,2168) = lu(k,2168) - lu(k,607) * lu(k,2137) - lu(k,2171) = lu(k,2171) - lu(k,608) * lu(k,2137) - lu(k,2172) = lu(k,2172) - lu(k,609) * lu(k,2137) - lu(k,2173) = lu(k,2173) - lu(k,610) * lu(k,2137) - lu(k,611) = 1._r8 / lu(k,611) - lu(k,612) = lu(k,612) * lu(k,611) - lu(k,613) = lu(k,613) * lu(k,611) - lu(k,614) = lu(k,614) * lu(k,611) - lu(k,615) = lu(k,615) * lu(k,611) - lu(k,616) = lu(k,616) * lu(k,611) - lu(k,617) = lu(k,617) * lu(k,611) - lu(k,618) = lu(k,618) * lu(k,611) - lu(k,619) = lu(k,619) * lu(k,611) - lu(k,1395) = - lu(k,612) * lu(k,1392) - lu(k,1397) = lu(k,1397) - lu(k,613) * lu(k,1392) - lu(k,1399) = lu(k,1399) - lu(k,614) * lu(k,1392) - lu(k,1400) = lu(k,1400) - lu(k,615) * lu(k,1392) - lu(k,1401) = lu(k,1401) - lu(k,616) * lu(k,1392) - lu(k,1403) = lu(k,1403) - lu(k,617) * lu(k,1392) - lu(k,1404) = lu(k,1404) - lu(k,618) * lu(k,1392) - lu(k,1407) = lu(k,1407) - lu(k,619) * lu(k,1392) - lu(k,1797) = lu(k,1797) - lu(k,612) * lu(k,1749) - lu(k,1807) = lu(k,1807) - lu(k,613) * lu(k,1749) - lu(k,1809) = lu(k,1809) - lu(k,614) * lu(k,1749) - lu(k,1817) = lu(k,1817) - lu(k,615) * lu(k,1749) - lu(k,1818) = lu(k,1818) - lu(k,616) * lu(k,1749) - lu(k,1820) = lu(k,1820) - lu(k,617) * lu(k,1749) - lu(k,1821) = lu(k,1821) - lu(k,618) * lu(k,1749) - lu(k,1829) = lu(k,1829) - lu(k,619) * lu(k,1749) - lu(k,1946) = - lu(k,612) * lu(k,1935) - lu(k,1948) = lu(k,1948) - lu(k,613) * lu(k,1935) - lu(k,1950) = lu(k,1950) - lu(k,614) * lu(k,1935) - lu(k,1957) = lu(k,1957) - lu(k,615) * lu(k,1935) - lu(k,1958) = lu(k,1958) - lu(k,616) * lu(k,1935) - lu(k,1960) = lu(k,1960) - lu(k,617) * lu(k,1935) - lu(k,1961) = lu(k,1961) - lu(k,618) * lu(k,1935) - lu(k,1969) = lu(k,1969) - lu(k,619) * lu(k,1935) + lu(k,586) = 1._r8 / lu(k,586) + lu(k,587) = lu(k,587) * lu(k,586) + lu(k,588) = lu(k,588) * lu(k,586) + lu(k,589) = lu(k,589) * lu(k,586) + lu(k,590) = lu(k,590) * lu(k,586) + lu(k,591) = lu(k,591) * lu(k,586) + lu(k,592) = lu(k,592) * lu(k,586) + lu(k,1792) = lu(k,1792) - lu(k,587) * lu(k,1726) + lu(k,1798) = lu(k,1798) - lu(k,588) * lu(k,1726) + lu(k,1799) = lu(k,1799) - lu(k,589) * lu(k,1726) + lu(k,1803) = lu(k,1803) - lu(k,590) * lu(k,1726) + lu(k,1808) = lu(k,1808) - lu(k,591) * lu(k,1726) + lu(k,1811) = lu(k,1811) - lu(k,592) * lu(k,1726) + lu(k,1838) = lu(k,1838) - lu(k,587) * lu(k,1820) + lu(k,1844) = lu(k,1844) - lu(k,588) * lu(k,1820) + lu(k,1845) = lu(k,1845) - lu(k,589) * lu(k,1820) + lu(k,1849) = - lu(k,590) * lu(k,1820) + lu(k,1854) = lu(k,1854) - lu(k,591) * lu(k,1820) + lu(k,1857) = lu(k,1857) - lu(k,592) * lu(k,1820) + lu(k,2048) = lu(k,2048) - lu(k,587) * lu(k,2030) + lu(k,2054) = lu(k,2054) - lu(k,588) * lu(k,2030) + lu(k,2055) = lu(k,2055) - lu(k,589) * lu(k,2030) + lu(k,2059) = lu(k,2059) - lu(k,590) * lu(k,2030) + lu(k,2064) = lu(k,2064) - lu(k,591) * lu(k,2030) + lu(k,2067) = - lu(k,592) * lu(k,2030) + lu(k,2328) = lu(k,2328) - lu(k,587) * lu(k,2279) + lu(k,2334) = lu(k,2334) - lu(k,588) * lu(k,2279) + lu(k,2335) = lu(k,2335) - lu(k,589) * lu(k,2279) + lu(k,2339) = lu(k,2339) - lu(k,590) * lu(k,2279) + lu(k,2344) = lu(k,2344) - lu(k,591) * lu(k,2279) + lu(k,2347) = lu(k,2347) - lu(k,592) * lu(k,2279) + lu(k,593) = 1._r8 / lu(k,593) + lu(k,594) = lu(k,594) * lu(k,593) + lu(k,595) = lu(k,595) * lu(k,593) + lu(k,596) = lu(k,596) * lu(k,593) + lu(k,679) = - lu(k,594) * lu(k,674) + lu(k,681) = - lu(k,595) * lu(k,674) + lu(k,684) = lu(k,684) - lu(k,596) * lu(k,674) + lu(k,725) = - lu(k,594) * lu(k,720) + lu(k,727) = lu(k,727) - lu(k,595) * lu(k,720) + lu(k,731) = lu(k,731) - lu(k,596) * lu(k,720) + lu(k,752) = - lu(k,594) * lu(k,747) + lu(k,754) = - lu(k,595) * lu(k,747) + lu(k,759) = lu(k,759) - lu(k,596) * lu(k,747) + lu(k,768) = - lu(k,594) * lu(k,763) + lu(k,770) = lu(k,770) - lu(k,595) * lu(k,763) + lu(k,776) = lu(k,776) - lu(k,596) * lu(k,763) + lu(k,1087) = - lu(k,594) * lu(k,1085) + lu(k,1090) = - lu(k,595) * lu(k,1085) + lu(k,1098) = lu(k,1098) - lu(k,596) * lu(k,1085) + lu(k,1321) = - lu(k,594) * lu(k,1317) + lu(k,1323) = - lu(k,595) * lu(k,1317) + lu(k,1343) = lu(k,1343) - lu(k,596) * lu(k,1317) + lu(k,1754) = - lu(k,594) * lu(k,1727) + lu(k,1773) = lu(k,1773) - lu(k,595) * lu(k,1727) + lu(k,1808) = lu(k,1808) - lu(k,596) * lu(k,1727) + lu(k,1976) = lu(k,1976) - lu(k,594) * lu(k,1959) + lu(k,1989) = lu(k,1989) - lu(k,595) * lu(k,1959) + lu(k,2021) = lu(k,2021) - lu(k,596) * lu(k,1959) + lu(k,597) = 1._r8 / lu(k,597) + lu(k,598) = lu(k,598) * lu(k,597) + lu(k,599) = lu(k,599) * lu(k,597) + lu(k,600) = lu(k,600) * lu(k,597) + lu(k,601) = lu(k,601) * lu(k,597) + lu(k,602) = lu(k,602) * lu(k,597) + lu(k,603) = lu(k,603) * lu(k,597) + lu(k,604) = lu(k,604) * lu(k,597) + lu(k,605) = lu(k,605) * lu(k,597) + lu(k,1627) = lu(k,1627) - lu(k,598) * lu(k,1623) + lu(k,1628) = lu(k,1628) - lu(k,599) * lu(k,1623) + lu(k,1632) = lu(k,1632) - lu(k,600) * lu(k,1623) + lu(k,1633) = lu(k,1633) - lu(k,601) * lu(k,1623) + lu(k,1634) = lu(k,1634) - lu(k,602) * lu(k,1623) + lu(k,1643) = lu(k,1643) - lu(k,603) * lu(k,1623) + lu(k,1645) = lu(k,1645) - lu(k,604) * lu(k,1623) + lu(k,1646) = lu(k,1646) - lu(k,605) * lu(k,1623) + lu(k,1792) = lu(k,1792) - lu(k,598) * lu(k,1728) + lu(k,1793) = lu(k,1793) - lu(k,599) * lu(k,1728) + lu(k,1797) = lu(k,1797) - lu(k,600) * lu(k,1728) + lu(k,1798) = lu(k,1798) - lu(k,601) * lu(k,1728) + lu(k,1799) = lu(k,1799) - lu(k,602) * lu(k,1728) + lu(k,1808) = lu(k,1808) - lu(k,603) * lu(k,1728) + lu(k,1810) = lu(k,1810) - lu(k,604) * lu(k,1728) + lu(k,1811) = lu(k,1811) - lu(k,605) * lu(k,1728) + lu(k,1838) = lu(k,1838) - lu(k,598) * lu(k,1821) + lu(k,1839) = lu(k,1839) - lu(k,599) * lu(k,1821) + lu(k,1843) = lu(k,1843) - lu(k,600) * lu(k,1821) + lu(k,1844) = lu(k,1844) - lu(k,601) * lu(k,1821) + lu(k,1845) = lu(k,1845) - lu(k,602) * lu(k,1821) + lu(k,1854) = lu(k,1854) - lu(k,603) * lu(k,1821) + lu(k,1856) = lu(k,1856) - lu(k,604) * lu(k,1821) + lu(k,1857) = lu(k,1857) - lu(k,605) * lu(k,1821) + lu(k,606) = 1._r8 / lu(k,606) + lu(k,607) = lu(k,607) * lu(k,606) + lu(k,608) = lu(k,608) * lu(k,606) + lu(k,609) = lu(k,609) * lu(k,606) + lu(k,610) = lu(k,610) * lu(k,606) + lu(k,611) = lu(k,611) * lu(k,606) + lu(k,612) = lu(k,612) * lu(k,606) + lu(k,613) = lu(k,613) * lu(k,606) + lu(k,614) = lu(k,614) * lu(k,606) + lu(k,1394) = - lu(k,607) * lu(k,1391) + lu(k,1396) = lu(k,1396) - lu(k,608) * lu(k,1391) + lu(k,1398) = lu(k,1398) - lu(k,609) * lu(k,1391) + lu(k,1399) = lu(k,1399) - lu(k,610) * lu(k,1391) + lu(k,1400) = lu(k,1400) - lu(k,611) * lu(k,1391) + lu(k,1401) = lu(k,1401) - lu(k,612) * lu(k,1391) + lu(k,1404) = lu(k,1404) - lu(k,613) * lu(k,1391) + lu(k,1405) = lu(k,1405) - lu(k,614) * lu(k,1391) + lu(k,1777) = lu(k,1777) - lu(k,607) * lu(k,1729) + lu(k,1787) = lu(k,1787) - lu(k,608) * lu(k,1729) + lu(k,1789) = lu(k,1789) - lu(k,609) * lu(k,1729) + lu(k,1798) = lu(k,1798) - lu(k,610) * lu(k,1729) + lu(k,1800) = lu(k,1800) - lu(k,611) * lu(k,1729) + lu(k,1801) = lu(k,1801) - lu(k,612) * lu(k,1729) + lu(k,1807) = lu(k,1807) - lu(k,613) * lu(k,1729) + lu(k,1808) = lu(k,1808) - lu(k,614) * lu(k,1729) + lu(k,1877) = - lu(k,607) * lu(k,1866) + lu(k,1879) = lu(k,1879) - lu(k,608) * lu(k,1866) + lu(k,1881) = lu(k,1881) - lu(k,609) * lu(k,1866) + lu(k,1889) = lu(k,1889) - lu(k,610) * lu(k,1866) + lu(k,1891) = lu(k,1891) - lu(k,611) * lu(k,1866) + lu(k,1892) = lu(k,1892) - lu(k,612) * lu(k,1866) + lu(k,1898) = lu(k,1898) - lu(k,613) * lu(k,1866) + lu(k,1899) = lu(k,1899) - lu(k,614) * lu(k,1866) + lu(k,615) = 1._r8 / lu(k,615) + lu(k,616) = lu(k,616) * lu(k,615) + lu(k,617) = lu(k,617) * lu(k,615) + lu(k,618) = lu(k,618) * lu(k,615) + lu(k,619) = lu(k,619) * lu(k,615) + lu(k,620) = lu(k,620) * lu(k,615) + lu(k,621) = lu(k,621) * lu(k,615) + lu(k,1397) = lu(k,1397) - lu(k,616) * lu(k,1392) + lu(k,1398) = lu(k,1398) - lu(k,617) * lu(k,1392) + lu(k,1399) = lu(k,1399) - lu(k,618) * lu(k,1392) + lu(k,1401) = lu(k,1401) - lu(k,619) * lu(k,1392) + lu(k,1407) = lu(k,1407) - lu(k,620) * lu(k,1392) + lu(k,1408) = - lu(k,621) * lu(k,1392) + lu(k,1427) = lu(k,1427) - lu(k,616) * lu(k,1411) + lu(k,1428) = lu(k,1428) - lu(k,617) * lu(k,1411) + lu(k,1431) = lu(k,1431) - lu(k,618) * lu(k,1411) + lu(k,1433) = lu(k,1433) - lu(k,619) * lu(k,1411) + lu(k,1439) = lu(k,1439) - lu(k,620) * lu(k,1411) + lu(k,1440) = - lu(k,621) * lu(k,1411) + lu(k,1788) = lu(k,1788) - lu(k,616) * lu(k,1730) + lu(k,1789) = lu(k,1789) - lu(k,617) * lu(k,1730) + lu(k,1798) = lu(k,1798) - lu(k,618) * lu(k,1730) + lu(k,1801) = lu(k,1801) - lu(k,619) * lu(k,1730) + lu(k,1810) = lu(k,1810) - lu(k,620) * lu(k,1730) + lu(k,1811) = lu(k,1811) - lu(k,621) * lu(k,1730) + lu(k,2325) = lu(k,2325) - lu(k,616) * lu(k,2280) + lu(k,2326) = lu(k,2326) - lu(k,617) * lu(k,2280) + lu(k,2334) = lu(k,2334) - lu(k,618) * lu(k,2280) + lu(k,2337) = lu(k,2337) - lu(k,619) * lu(k,2280) + lu(k,2346) = lu(k,2346) - lu(k,620) * lu(k,2280) + lu(k,2347) = lu(k,2347) - lu(k,621) * lu(k,2280) end do end subroutine lu_fac13 subroutine lu_fac14( avec_len, lu ) @@ -1891,136 +1897,132 @@ subroutine lu_fac14( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,620) = 1._r8 / lu(k,620) - lu(k,621) = lu(k,621) * lu(k,620) - lu(k,622) = lu(k,622) * lu(k,620) - lu(k,623) = lu(k,623) * lu(k,620) - lu(k,624) = lu(k,624) * lu(k,620) - lu(k,625) = lu(k,625) * lu(k,620) - lu(k,626) = lu(k,626) * lu(k,620) - lu(k,1398) = lu(k,1398) - lu(k,621) * lu(k,1393) - lu(k,1399) = lu(k,1399) - lu(k,622) * lu(k,1393) - lu(k,1401) = lu(k,1401) - lu(k,623) * lu(k,1393) - lu(k,1404) = lu(k,1404) - lu(k,624) * lu(k,1393) - lu(k,1408) = lu(k,1408) - lu(k,625) * lu(k,1393) - lu(k,1409) = - lu(k,626) * lu(k,1393) - lu(k,1428) = lu(k,1428) - lu(k,621) * lu(k,1412) - lu(k,1429) = lu(k,1429) - lu(k,622) * lu(k,1412) - lu(k,1432) = lu(k,1432) - lu(k,623) * lu(k,1412) - lu(k,1435) = lu(k,1435) - lu(k,624) * lu(k,1412) - lu(k,1440) = lu(k,1440) - lu(k,625) * lu(k,1412) - lu(k,1441) = - lu(k,626) * lu(k,1412) - lu(k,1808) = lu(k,1808) - lu(k,621) * lu(k,1750) - lu(k,1809) = lu(k,1809) - lu(k,622) * lu(k,1750) - lu(k,1818) = lu(k,1818) - lu(k,623) * lu(k,1750) - lu(k,1821) = lu(k,1821) - lu(k,624) * lu(k,1750) - lu(k,1830) = lu(k,1830) - lu(k,625) * lu(k,1750) - lu(k,1831) = lu(k,1831) - lu(k,626) * lu(k,1750) - lu(k,2348) = lu(k,2348) - lu(k,621) * lu(k,2303) - lu(k,2349) = lu(k,2349) - lu(k,622) * lu(k,2303) - lu(k,2357) = lu(k,2357) - lu(k,623) * lu(k,2303) - lu(k,2360) = lu(k,2360) - lu(k,624) * lu(k,2303) - lu(k,2369) = lu(k,2369) - lu(k,625) * lu(k,2303) - lu(k,2370) = lu(k,2370) - lu(k,626) * lu(k,2303) - lu(k,627) = 1._r8 / lu(k,627) - lu(k,628) = lu(k,628) * lu(k,627) - lu(k,629) = lu(k,629) * lu(k,627) - lu(k,630) = lu(k,630) * lu(k,627) - lu(k,631) = lu(k,631) * lu(k,627) - lu(k,632) = lu(k,632) * lu(k,627) - lu(k,1063) = lu(k,1063) - lu(k,628) * lu(k,1060) - lu(k,1065) = lu(k,1065) - lu(k,629) * lu(k,1060) - lu(k,1067) = lu(k,1067) - lu(k,630) * lu(k,1060) - lu(k,1069) = - lu(k,631) * lu(k,1060) - lu(k,1070) = lu(k,1070) - lu(k,632) * lu(k,1060) - lu(k,1105) = lu(k,1105) - lu(k,628) * lu(k,1103) - lu(k,1111) = lu(k,1111) - lu(k,629) * lu(k,1103) - lu(k,1113) = lu(k,1113) - lu(k,630) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,631) * lu(k,1103) - lu(k,1116) = lu(k,1116) - lu(k,632) * lu(k,1103) - lu(k,1786) = lu(k,1786) - lu(k,628) * lu(k,1751) - lu(k,1818) = lu(k,1818) - lu(k,629) * lu(k,1751) - lu(k,1820) = lu(k,1820) - lu(k,630) * lu(k,1751) - lu(k,1823) = lu(k,1823) - lu(k,631) * lu(k,1751) - lu(k,1829) = lu(k,1829) - lu(k,632) * lu(k,1751) - lu(k,1885) = lu(k,1885) - lu(k,628) * lu(k,1863) - lu(k,1913) = lu(k,1913) - lu(k,629) * lu(k,1863) - lu(k,1915) = lu(k,1915) - lu(k,630) * lu(k,1863) - lu(k,1918) = lu(k,1918) - lu(k,631) * lu(k,1863) - lu(k,1924) = lu(k,1924) - lu(k,632) * lu(k,1863) - lu(k,2383) = lu(k,2383) - lu(k,628) * lu(k,2375) - lu(k,2409) = lu(k,2409) - lu(k,629) * lu(k,2375) - lu(k,2411) = lu(k,2411) - lu(k,630) * lu(k,2375) - lu(k,2414) = lu(k,2414) - lu(k,631) * lu(k,2375) - lu(k,2420) = lu(k,2420) - lu(k,632) * lu(k,2375) - lu(k,635) = 1._r8 / lu(k,635) - lu(k,636) = lu(k,636) * lu(k,635) - lu(k,637) = lu(k,637) * lu(k,635) - lu(k,638) = lu(k,638) * lu(k,635) - lu(k,639) = lu(k,639) * lu(k,635) - lu(k,640) = lu(k,640) * lu(k,635) - lu(k,1818) = lu(k,1818) - lu(k,636) * lu(k,1752) - lu(k,1819) = lu(k,1819) - lu(k,637) * lu(k,1752) - lu(k,1820) = lu(k,1820) - lu(k,638) * lu(k,1752) - lu(k,1827) = lu(k,1827) - lu(k,639) * lu(k,1752) - lu(k,1829) = lu(k,1829) - lu(k,640) * lu(k,1752) - lu(k,1913) = lu(k,1913) - lu(k,636) * lu(k,1864) - lu(k,1914) = lu(k,1914) - lu(k,637) * lu(k,1864) - lu(k,1915) = lu(k,1915) - lu(k,638) * lu(k,1864) - lu(k,1922) = lu(k,1922) - lu(k,639) * lu(k,1864) - lu(k,1924) = lu(k,1924) - lu(k,640) * lu(k,1864) - lu(k,1958) = lu(k,1958) - lu(k,636) * lu(k,1936) - lu(k,1959) = lu(k,1959) - lu(k,637) * lu(k,1936) - lu(k,1960) = lu(k,1960) - lu(k,638) * lu(k,1936) - lu(k,1967) = lu(k,1967) - lu(k,639) * lu(k,1936) - lu(k,1969) = lu(k,1969) - lu(k,640) * lu(k,1936) - lu(k,2224) = lu(k,2224) - lu(k,636) * lu(k,2185) - lu(k,2225) = lu(k,2225) - lu(k,637) * lu(k,2185) - lu(k,2226) = lu(k,2226) - lu(k,638) * lu(k,2185) - lu(k,2233) = lu(k,2233) - lu(k,639) * lu(k,2185) - lu(k,2235) = lu(k,2235) - lu(k,640) * lu(k,2185) - lu(k,2357) = lu(k,2357) - lu(k,636) * lu(k,2304) - lu(k,2358) = lu(k,2358) - lu(k,637) * lu(k,2304) - lu(k,2359) = lu(k,2359) - lu(k,638) * lu(k,2304) - lu(k,2366) = lu(k,2366) - lu(k,639) * lu(k,2304) - lu(k,2368) = lu(k,2368) - lu(k,640) * lu(k,2304) - lu(k,642) = 1._r8 / lu(k,642) - lu(k,643) = lu(k,643) * lu(k,642) - lu(k,644) = lu(k,644) * lu(k,642) - lu(k,645) = lu(k,645) * lu(k,642) - lu(k,646) = lu(k,646) * lu(k,642) - lu(k,647) = lu(k,647) * lu(k,642) - lu(k,648) = lu(k,648) * lu(k,642) - lu(k,649) = lu(k,649) * lu(k,642) - lu(k,650) = lu(k,650) * lu(k,642) - lu(k,651) = lu(k,651) * lu(k,642) - lu(k,1040) = lu(k,1040) - lu(k,643) * lu(k,1038) - lu(k,1041) = lu(k,1041) - lu(k,644) * lu(k,1038) - lu(k,1043) = lu(k,1043) - lu(k,645) * lu(k,1038) - lu(k,1044) = lu(k,1044) - lu(k,646) * lu(k,1038) - lu(k,1045) = lu(k,1045) - lu(k,647) * lu(k,1038) - lu(k,1047) = lu(k,1047) - lu(k,648) * lu(k,1038) - lu(k,1049) = lu(k,1049) - lu(k,649) * lu(k,1038) - lu(k,1050) = lu(k,1050) - lu(k,650) * lu(k,1038) - lu(k,1051) = lu(k,1051) - lu(k,651) * lu(k,1038) - lu(k,1757) = lu(k,1757) - lu(k,643) * lu(k,1753) - lu(k,1773) = lu(k,1773) - lu(k,644) * lu(k,1753) - lu(k,1787) = lu(k,1787) - lu(k,645) * lu(k,1753) - lu(k,1792) = lu(k,1792) - lu(k,646) * lu(k,1753) - lu(k,1808) = lu(k,1808) - lu(k,647) * lu(k,1753) - lu(k,1818) = lu(k,1818) - lu(k,648) * lu(k,1753) - lu(k,1820) = lu(k,1820) - lu(k,649) * lu(k,1753) - lu(k,1821) = lu(k,1821) - lu(k,650) * lu(k,1753) - lu(k,1829) = lu(k,1829) - lu(k,651) * lu(k,1753) - lu(k,1866) = lu(k,1866) - lu(k,643) * lu(k,1865) - lu(k,1877) = lu(k,1877) - lu(k,644) * lu(k,1865) - lu(k,1886) = lu(k,1886) - lu(k,645) * lu(k,1865) - lu(k,1890) = lu(k,1890) - lu(k,646) * lu(k,1865) - lu(k,1906) = lu(k,1906) - lu(k,647) * lu(k,1865) - lu(k,1913) = lu(k,1913) - lu(k,648) * lu(k,1865) - lu(k,1915) = lu(k,1915) - lu(k,649) * lu(k,1865) - lu(k,1916) = lu(k,1916) - lu(k,650) * lu(k,1865) - lu(k,1924) = lu(k,1924) - lu(k,651) * lu(k,1865) + lu(k,622) = 1._r8 / lu(k,622) + lu(k,623) = lu(k,623) * lu(k,622) + lu(k,624) = lu(k,624) * lu(k,622) + lu(k,625) = lu(k,625) * lu(k,622) + lu(k,626) = lu(k,626) * lu(k,622) + lu(k,627) = lu(k,627) * lu(k,622) + lu(k,628) = lu(k,628) * lu(k,622) + lu(k,629) = lu(k,629) * lu(k,622) + lu(k,630) = lu(k,630) * lu(k,622) + lu(k,860) = lu(k,860) - lu(k,623) * lu(k,859) + lu(k,861) = - lu(k,624) * lu(k,859) + lu(k,862) = lu(k,862) - lu(k,625) * lu(k,859) + lu(k,863) = lu(k,863) - lu(k,626) * lu(k,859) + lu(k,864) = lu(k,864) - lu(k,627) * lu(k,859) + lu(k,865) = lu(k,865) - lu(k,628) * lu(k,859) + lu(k,868) = - lu(k,629) * lu(k,859) + lu(k,871) = lu(k,871) - lu(k,630) * lu(k,859) + lu(k,1528) = lu(k,1528) - lu(k,623) * lu(k,1527) + lu(k,1530) = lu(k,1530) - lu(k,624) * lu(k,1527) + lu(k,1531) = lu(k,1531) - lu(k,625) * lu(k,1527) + lu(k,1532) = lu(k,1532) - lu(k,626) * lu(k,1527) + lu(k,1533) = lu(k,1533) - lu(k,627) * lu(k,1527) + lu(k,1535) = lu(k,1535) - lu(k,628) * lu(k,1527) + lu(k,1541) = lu(k,1541) - lu(k,629) * lu(k,1527) + lu(k,1549) = lu(k,1549) - lu(k,630) * lu(k,1527) + lu(k,2032) = lu(k,2032) - lu(k,623) * lu(k,2031) + lu(k,2035) = lu(k,2035) - lu(k,624) * lu(k,2031) + lu(k,2038) = lu(k,2038) - lu(k,625) * lu(k,2031) + lu(k,2039) = lu(k,2039) - lu(k,626) * lu(k,2031) + lu(k,2040) = lu(k,2040) - lu(k,627) * lu(k,2031) + lu(k,2043) = lu(k,2043) - lu(k,628) * lu(k,2031) + lu(k,2050) = lu(k,2050) - lu(k,629) * lu(k,2031) + lu(k,2059) = lu(k,2059) - lu(k,630) * lu(k,2031) + lu(k,631) = 1._r8 / lu(k,631) + lu(k,632) = lu(k,632) * lu(k,631) + lu(k,633) = lu(k,633) * lu(k,631) + lu(k,634) = lu(k,634) * lu(k,631) + lu(k,635) = lu(k,635) * lu(k,631) + lu(k,636) = lu(k,636) * lu(k,631) + lu(k,1062) = lu(k,1062) - lu(k,632) * lu(k,1059) + lu(k,1064) = lu(k,1064) - lu(k,633) * lu(k,1059) + lu(k,1065) = lu(k,1065) - lu(k,634) * lu(k,1059) + lu(k,1068) = lu(k,1068) - lu(k,635) * lu(k,1059) + lu(k,1069) = - lu(k,636) * lu(k,1059) + lu(k,1104) = lu(k,1104) - lu(k,632) * lu(k,1102) + lu(k,1109) = lu(k,1109) - lu(k,633) * lu(k,1102) + lu(k,1110) = lu(k,1110) - lu(k,634) * lu(k,1102) + lu(k,1114) = lu(k,1114) - lu(k,635) * lu(k,1102) + lu(k,1115) = lu(k,1115) - lu(k,636) * lu(k,1102) + lu(k,1766) = lu(k,1766) - lu(k,632) * lu(k,1731) + lu(k,1798) = lu(k,1798) - lu(k,633) * lu(k,1731) + lu(k,1800) = lu(k,1800) - lu(k,634) * lu(k,1731) + lu(k,1808) = lu(k,1808) - lu(k,635) * lu(k,1731) + lu(k,1809) = lu(k,1809) - lu(k,636) * lu(k,1731) + lu(k,1983) = lu(k,1983) - lu(k,632) * lu(k,1960) + lu(k,2011) = lu(k,2011) - lu(k,633) * lu(k,1960) + lu(k,2013) = lu(k,2013) - lu(k,634) * lu(k,1960) + lu(k,2021) = lu(k,2021) - lu(k,635) * lu(k,1960) + lu(k,2022) = lu(k,2022) - lu(k,636) * lu(k,1960) + lu(k,2383) = lu(k,2383) - lu(k,632) * lu(k,2375) + lu(k,2409) = lu(k,2409) - lu(k,633) * lu(k,2375) + lu(k,2411) = lu(k,2411) - lu(k,634) * lu(k,2375) + lu(k,2419) = lu(k,2419) - lu(k,635) * lu(k,2375) + lu(k,2420) = lu(k,2420) - lu(k,636) * lu(k,2375) + lu(k,639) = 1._r8 / lu(k,639) + lu(k,640) = lu(k,640) * lu(k,639) + lu(k,641) = lu(k,641) * lu(k,639) + lu(k,642) = lu(k,642) * lu(k,639) + lu(k,643) = lu(k,643) * lu(k,639) + lu(k,644) = lu(k,644) * lu(k,639) + lu(k,1798) = lu(k,1798) - lu(k,640) * lu(k,1732) + lu(k,1800) = lu(k,1800) - lu(k,641) * lu(k,1732) + lu(k,1802) = lu(k,1802) - lu(k,642) * lu(k,1732) + lu(k,1804) = lu(k,1804) - lu(k,643) * lu(k,1732) + lu(k,1808) = lu(k,1808) - lu(k,644) * lu(k,1732) + lu(k,1889) = lu(k,1889) - lu(k,640) * lu(k,1867) + lu(k,1891) = lu(k,1891) - lu(k,641) * lu(k,1867) + lu(k,1893) = lu(k,1893) - lu(k,642) * lu(k,1867) + lu(k,1895) = lu(k,1895) - lu(k,643) * lu(k,1867) + lu(k,1899) = lu(k,1899) - lu(k,644) * lu(k,1867) + lu(k,2011) = lu(k,2011) - lu(k,640) * lu(k,1961) + lu(k,2013) = lu(k,2013) - lu(k,641) * lu(k,1961) + lu(k,2015) = lu(k,2015) - lu(k,642) * lu(k,1961) + lu(k,2017) = lu(k,2017) - lu(k,643) * lu(k,1961) + lu(k,2021) = lu(k,2021) - lu(k,644) * lu(k,1961) + lu(k,2118) = lu(k,2118) - lu(k,640) * lu(k,2079) + lu(k,2120) = lu(k,2120) - lu(k,641) * lu(k,2079) + lu(k,2122) = lu(k,2122) - lu(k,642) * lu(k,2079) + lu(k,2124) = lu(k,2124) - lu(k,643) * lu(k,2079) + lu(k,2128) = lu(k,2128) - lu(k,644) * lu(k,2079) + lu(k,2334) = lu(k,2334) - lu(k,640) * lu(k,2281) + lu(k,2336) = lu(k,2336) - lu(k,641) * lu(k,2281) + lu(k,2338) = lu(k,2338) - lu(k,642) * lu(k,2281) + lu(k,2340) = lu(k,2340) - lu(k,643) * lu(k,2281) + lu(k,2344) = lu(k,2344) - lu(k,644) * lu(k,2281) + lu(k,645) = 1._r8 / lu(k,645) + lu(k,646) = lu(k,646) * lu(k,645) + lu(k,647) = lu(k,647) * lu(k,645) + lu(k,648) = lu(k,648) * lu(k,645) + lu(k,649) = lu(k,649) * lu(k,645) + lu(k,650) = lu(k,650) * lu(k,645) + lu(k,846) = lu(k,846) - lu(k,646) * lu(k,843) + lu(k,847) = - lu(k,647) * lu(k,843) + lu(k,848) = - lu(k,648) * lu(k,843) + lu(k,849) = - lu(k,649) * lu(k,843) + lu(k,850) = lu(k,850) - lu(k,650) * lu(k,843) + lu(k,865) = lu(k,865) - lu(k,646) * lu(k,860) + lu(k,868) = lu(k,868) - lu(k,647) * lu(k,860) + lu(k,869) = lu(k,869) - lu(k,648) * lu(k,860) + lu(k,870) = - lu(k,649) * lu(k,860) + lu(k,871) = lu(k,871) - lu(k,650) * lu(k,860) + lu(k,1535) = lu(k,1535) - lu(k,646) * lu(k,1528) + lu(k,1541) = lu(k,1541) - lu(k,647) * lu(k,1528) + lu(k,1543) = lu(k,1543) - lu(k,648) * lu(k,1528) + lu(k,1548) = lu(k,1548) - lu(k,649) * lu(k,1528) + lu(k,1549) = lu(k,1549) - lu(k,650) * lu(k,1528) + lu(k,1981) = lu(k,1981) - lu(k,646) * lu(k,1962) + lu(k,2007) = lu(k,2007) - lu(k,647) * lu(k,1962) + lu(k,2010) = - lu(k,648) * lu(k,1962) + lu(k,2015) = lu(k,2015) - lu(k,649) * lu(k,1962) + lu(k,2016) = lu(k,2016) - lu(k,650) * lu(k,1962) + lu(k,2043) = lu(k,2043) - lu(k,646) * lu(k,2032) + lu(k,2050) = lu(k,2050) - lu(k,647) * lu(k,2032) + lu(k,2053) = - lu(k,648) * lu(k,2032) + lu(k,2058) = lu(k,2058) - lu(k,649) * lu(k,2032) + lu(k,2059) = lu(k,2059) - lu(k,650) * lu(k,2032) lu(k,652) = 1._r8 / lu(k,652) lu(k,653) = lu(k,653) * lu(k,652) lu(k,654) = lu(k,654) * lu(k,652) @@ -2031,70 +2033,70 @@ subroutine lu_fac14( avec_len, lu ) lu(k,659) = lu(k,659) * lu(k,652) lu(k,660) = lu(k,660) * lu(k,652) lu(k,661) = lu(k,661) * lu(k,652) - lu(k,1174) = lu(k,1174) - lu(k,653) * lu(k,1172) - lu(k,1175) = lu(k,1175) - lu(k,654) * lu(k,1172) - lu(k,1176) = lu(k,1176) - lu(k,655) * lu(k,1172) - lu(k,1177) = lu(k,1177) - lu(k,656) * lu(k,1172) - lu(k,1178) = lu(k,1178) - lu(k,657) * lu(k,1172) - lu(k,1181) = lu(k,1181) - lu(k,658) * lu(k,1172) - lu(k,1182) = - lu(k,659) * lu(k,1172) - lu(k,1185) = lu(k,1185) - lu(k,660) * lu(k,1172) - lu(k,1187) = lu(k,1187) - lu(k,661) * lu(k,1172) - lu(k,1787) = lu(k,1787) - lu(k,653) * lu(k,1754) - lu(k,1790) = lu(k,1790) - lu(k,654) * lu(k,1754) - lu(k,1793) = lu(k,1793) - lu(k,655) * lu(k,1754) - lu(k,1794) = lu(k,1794) - lu(k,656) * lu(k,1754) - lu(k,1795) = lu(k,1795) - lu(k,657) * lu(k,1754) - lu(k,1809) = lu(k,1809) - lu(k,658) * lu(k,1754) - lu(k,1818) = lu(k,1818) - lu(k,659) * lu(k,1754) - lu(k,1821) = lu(k,1821) - lu(k,660) * lu(k,1754) - lu(k,1829) = lu(k,1829) - lu(k,661) * lu(k,1754) - lu(k,2330) = lu(k,2330) - lu(k,653) * lu(k,2305) - lu(k,2332) = - lu(k,654) * lu(k,2305) - lu(k,2334) = lu(k,2334) - lu(k,655) * lu(k,2305) - lu(k,2335) = lu(k,2335) - lu(k,656) * lu(k,2305) - lu(k,2336) = lu(k,2336) - lu(k,657) * lu(k,2305) - lu(k,2349) = lu(k,2349) - lu(k,658) * lu(k,2305) - lu(k,2357) = lu(k,2357) - lu(k,659) * lu(k,2305) - lu(k,2360) = lu(k,2360) - lu(k,660) * lu(k,2305) - lu(k,2368) = lu(k,2368) - lu(k,661) * lu(k,2305) - lu(k,665) = 1._r8 / lu(k,665) - lu(k,666) = lu(k,666) * lu(k,665) - lu(k,667) = lu(k,667) * lu(k,665) - lu(k,668) = lu(k,668) * lu(k,665) - lu(k,669) = lu(k,669) * lu(k,665) - lu(k,670) = lu(k,670) * lu(k,665) - lu(k,671) = lu(k,671) * lu(k,665) - lu(k,672) = lu(k,672) * lu(k,665) - lu(k,673) = lu(k,673) * lu(k,665) - lu(k,674) = lu(k,674) * lu(k,665) - lu(k,750) = lu(k,750) - lu(k,666) * lu(k,749) - lu(k,751) = lu(k,751) - lu(k,667) * lu(k,749) - lu(k,752) = lu(k,752) - lu(k,668) * lu(k,749) - lu(k,753) = lu(k,753) - lu(k,669) * lu(k,749) - lu(k,754) = lu(k,754) - lu(k,670) * lu(k,749) - lu(k,755) = lu(k,755) - lu(k,671) * lu(k,749) - lu(k,756) = lu(k,756) - lu(k,672) * lu(k,749) - lu(k,757) = - lu(k,673) * lu(k,749) - lu(k,760) = lu(k,760) - lu(k,674) * lu(k,749) - lu(k,1762) = lu(k,1762) - lu(k,666) * lu(k,1755) - lu(k,1763) = lu(k,1763) - lu(k,667) * lu(k,1755) - lu(k,1765) = - lu(k,668) * lu(k,1755) - lu(k,1774) = lu(k,1774) - lu(k,669) * lu(k,1755) - lu(k,1784) = lu(k,1784) - lu(k,670) * lu(k,1755) - lu(k,1793) = lu(k,1793) - lu(k,671) * lu(k,1755) - lu(k,1802) = lu(k,1802) - lu(k,672) * lu(k,1755) - lu(k,1818) = lu(k,1818) - lu(k,673) * lu(k,1755) - lu(k,1829) = lu(k,1829) - lu(k,674) * lu(k,1755) - lu(k,2312) = lu(k,2312) - lu(k,666) * lu(k,2306) - lu(k,2313) = lu(k,2313) - lu(k,667) * lu(k,2306) - lu(k,2315) = lu(k,2315) - lu(k,668) * lu(k,2306) - lu(k,2323) = lu(k,2323) - lu(k,669) * lu(k,2306) - lu(k,2327) = lu(k,2327) - lu(k,670) * lu(k,2306) - lu(k,2334) = lu(k,2334) - lu(k,671) * lu(k,2306) - lu(k,2342) = lu(k,2342) - lu(k,672) * lu(k,2306) - lu(k,2357) = lu(k,2357) - lu(k,673) * lu(k,2306) - lu(k,2368) = lu(k,2368) - lu(k,674) * lu(k,2306) + lu(k,1023) = lu(k,1023) - lu(k,653) * lu(k,1021) + lu(k,1024) = lu(k,1024) - lu(k,654) * lu(k,1021) + lu(k,1026) = lu(k,1026) - lu(k,655) * lu(k,1021) + lu(k,1027) = lu(k,1027) - lu(k,656) * lu(k,1021) + lu(k,1028) = lu(k,1028) - lu(k,657) * lu(k,1021) + lu(k,1030) = lu(k,1030) - lu(k,658) * lu(k,1021) + lu(k,1031) = lu(k,1031) - lu(k,659) * lu(k,1021) + lu(k,1032) = lu(k,1032) - lu(k,660) * lu(k,1021) + lu(k,1034) = lu(k,1034) - lu(k,661) * lu(k,1021) + lu(k,1737) = lu(k,1737) - lu(k,653) * lu(k,1733) + lu(k,1753) = lu(k,1753) - lu(k,654) * lu(k,1733) + lu(k,1767) = lu(k,1767) - lu(k,655) * lu(k,1733) + lu(k,1772) = lu(k,1772) - lu(k,656) * lu(k,1733) + lu(k,1788) = lu(k,1788) - lu(k,657) * lu(k,1733) + lu(k,1798) = lu(k,1798) - lu(k,658) * lu(k,1733) + lu(k,1800) = lu(k,1800) - lu(k,659) * lu(k,1733) + lu(k,1801) = lu(k,1801) - lu(k,660) * lu(k,1733) + lu(k,1808) = lu(k,1808) - lu(k,661) * lu(k,1733) + lu(k,1964) = lu(k,1964) - lu(k,653) * lu(k,1963) + lu(k,1975) = lu(k,1975) - lu(k,654) * lu(k,1963) + lu(k,1984) = lu(k,1984) - lu(k,655) * lu(k,1963) + lu(k,1988) = lu(k,1988) - lu(k,656) * lu(k,1963) + lu(k,2004) = lu(k,2004) - lu(k,657) * lu(k,1963) + lu(k,2011) = lu(k,2011) - lu(k,658) * lu(k,1963) + lu(k,2013) = lu(k,2013) - lu(k,659) * lu(k,1963) + lu(k,2014) = lu(k,2014) - lu(k,660) * lu(k,1963) + lu(k,2021) = lu(k,2021) - lu(k,661) * lu(k,1963) + lu(k,662) = 1._r8 / lu(k,662) + lu(k,663) = lu(k,663) * lu(k,662) + lu(k,664) = lu(k,664) * lu(k,662) + lu(k,665) = lu(k,665) * lu(k,662) + lu(k,666) = lu(k,666) * lu(k,662) + lu(k,667) = lu(k,667) * lu(k,662) + lu(k,668) = lu(k,668) * lu(k,662) + lu(k,669) = lu(k,669) * lu(k,662) + lu(k,670) = lu(k,670) * lu(k,662) + lu(k,671) = lu(k,671) * lu(k,662) + lu(k,1173) = lu(k,1173) - lu(k,663) * lu(k,1171) + lu(k,1174) = lu(k,1174) - lu(k,664) * lu(k,1171) + lu(k,1175) = lu(k,1175) - lu(k,665) * lu(k,1171) + lu(k,1176) = lu(k,1176) - lu(k,666) * lu(k,1171) + lu(k,1177) = lu(k,1177) - lu(k,667) * lu(k,1171) + lu(k,1180) = lu(k,1180) - lu(k,668) * lu(k,1171) + lu(k,1181) = - lu(k,669) * lu(k,1171) + lu(k,1183) = lu(k,1183) - lu(k,670) * lu(k,1171) + lu(k,1185) = lu(k,1185) - lu(k,671) * lu(k,1171) + lu(k,1767) = lu(k,1767) - lu(k,663) * lu(k,1734) + lu(k,1770) = lu(k,1770) - lu(k,664) * lu(k,1734) + lu(k,1773) = lu(k,1773) - lu(k,665) * lu(k,1734) + lu(k,1774) = lu(k,1774) - lu(k,666) * lu(k,1734) + lu(k,1775) = lu(k,1775) - lu(k,667) * lu(k,1734) + lu(k,1789) = lu(k,1789) - lu(k,668) * lu(k,1734) + lu(k,1798) = lu(k,1798) - lu(k,669) * lu(k,1734) + lu(k,1801) = lu(k,1801) - lu(k,670) * lu(k,1734) + lu(k,1808) = lu(k,1808) - lu(k,671) * lu(k,1734) + lu(k,2307) = lu(k,2307) - lu(k,663) * lu(k,2282) + lu(k,2309) = - lu(k,664) * lu(k,2282) + lu(k,2311) = lu(k,2311) - lu(k,665) * lu(k,2282) + lu(k,2312) = lu(k,2312) - lu(k,666) * lu(k,2282) + lu(k,2313) = lu(k,2313) - lu(k,667) * lu(k,2282) + lu(k,2326) = lu(k,2326) - lu(k,668) * lu(k,2282) + lu(k,2334) = lu(k,2334) - lu(k,669) * lu(k,2282) + lu(k,2337) = lu(k,2337) - lu(k,670) * lu(k,2282) + lu(k,2344) = lu(k,2344) - lu(k,671) * lu(k,2282) end do end subroutine lu_fac14 subroutine lu_fac15( avec_len, lu ) @@ -2111,218 +2113,181 @@ subroutine lu_fac15( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,676) = 1._r8 / lu(k,676) - lu(k,677) = lu(k,677) * lu(k,676) - lu(k,678) = lu(k,678) * lu(k,676) - lu(k,679) = lu(k,679) * lu(k,676) - lu(k,680) = lu(k,680) * lu(k,676) - lu(k,681) = lu(k,681) * lu(k,676) - lu(k,682) = lu(k,682) * lu(k,676) - lu(k,683) = lu(k,683) * lu(k,676) - lu(k,684) = lu(k,684) * lu(k,676) - lu(k,685) = lu(k,685) * lu(k,676) - lu(k,862) = - lu(k,677) * lu(k,861) - lu(k,863) = lu(k,863) - lu(k,678) * lu(k,861) - lu(k,864) = lu(k,864) - lu(k,679) * lu(k,861) - lu(k,865) = lu(k,865) - lu(k,680) * lu(k,861) - lu(k,866) = lu(k,866) - lu(k,681) * lu(k,861) - lu(k,869) = lu(k,869) - lu(k,682) * lu(k,861) - lu(k,870) = lu(k,870) - lu(k,683) * lu(k,861) - lu(k,871) = lu(k,871) - lu(k,684) * lu(k,861) - lu(k,872) = lu(k,872) - lu(k,685) * lu(k,861) - lu(k,1531) = lu(k,1531) - lu(k,677) * lu(k,1529) - lu(k,1532) = lu(k,1532) - lu(k,678) * lu(k,1529) - lu(k,1533) = lu(k,1533) - lu(k,679) * lu(k,1529) - lu(k,1534) = lu(k,1534) - lu(k,680) * lu(k,1529) - lu(k,1536) = lu(k,1536) - lu(k,681) * lu(k,1529) - lu(k,1542) = lu(k,1542) - lu(k,682) * lu(k,1529) - lu(k,1546) = lu(k,1546) - lu(k,683) * lu(k,1529) - lu(k,1549) = lu(k,1549) - lu(k,684) * lu(k,1529) - lu(k,1550) = lu(k,1550) - lu(k,685) * lu(k,1529) - lu(k,2074) = lu(k,2074) - lu(k,677) * lu(k,2071) - lu(k,2077) = lu(k,2077) - lu(k,678) * lu(k,2071) - lu(k,2078) = lu(k,2078) - lu(k,679) * lu(k,2071) - lu(k,2079) = lu(k,2079) - lu(k,680) * lu(k,2071) - lu(k,2082) = lu(k,2082) - lu(k,681) * lu(k,2071) - lu(k,2089) = lu(k,2089) - lu(k,682) * lu(k,2071) - lu(k,2094) = lu(k,2094) - lu(k,683) * lu(k,2071) - lu(k,2097) = lu(k,2097) - lu(k,684) * lu(k,2071) - lu(k,2099) = lu(k,2099) - lu(k,685) * lu(k,2071) - lu(k,687) = 1._r8 / lu(k,687) - lu(k,688) = lu(k,688) * lu(k,687) - lu(k,689) = lu(k,689) * lu(k,687) - lu(k,690) = lu(k,690) * lu(k,687) - lu(k,691) = lu(k,691) * lu(k,687) - lu(k,692) = lu(k,692) * lu(k,687) - lu(k,693) = lu(k,693) * lu(k,687) - lu(k,694) = lu(k,694) * lu(k,687) - lu(k,695) = lu(k,695) * lu(k,687) - lu(k,696) = lu(k,696) * lu(k,687) - lu(k,1040) = lu(k,1040) - lu(k,688) * lu(k,1039) - lu(k,1041) = lu(k,1041) - lu(k,689) * lu(k,1039) - lu(k,1042) = lu(k,1042) - lu(k,690) * lu(k,1039) - lu(k,1043) = lu(k,1043) - lu(k,691) * lu(k,1039) - lu(k,1044) = lu(k,1044) - lu(k,692) * lu(k,1039) - lu(k,1045) = lu(k,1045) - lu(k,693) * lu(k,1039) - lu(k,1047) = lu(k,1047) - lu(k,694) * lu(k,1039) - lu(k,1050) = lu(k,1050) - lu(k,695) * lu(k,1039) - lu(k,1051) = lu(k,1051) - lu(k,696) * lu(k,1039) - lu(k,1757) = lu(k,1757) - lu(k,688) * lu(k,1756) - lu(k,1773) = lu(k,1773) - lu(k,689) * lu(k,1756) - lu(k,1783) = lu(k,1783) - lu(k,690) * lu(k,1756) - lu(k,1787) = lu(k,1787) - lu(k,691) * lu(k,1756) - lu(k,1792) = lu(k,1792) - lu(k,692) * lu(k,1756) - lu(k,1808) = lu(k,1808) - lu(k,693) * lu(k,1756) - lu(k,1818) = lu(k,1818) - lu(k,694) * lu(k,1756) - lu(k,1821) = lu(k,1821) - lu(k,695) * lu(k,1756) - lu(k,1829) = lu(k,1829) - lu(k,696) * lu(k,1756) - lu(k,2308) = lu(k,2308) - lu(k,688) * lu(k,2307) - lu(k,2322) = lu(k,2322) - lu(k,689) * lu(k,2307) - lu(k,2326) = lu(k,2326) - lu(k,690) * lu(k,2307) - lu(k,2330) = lu(k,2330) - lu(k,691) * lu(k,2307) - lu(k,2333) = lu(k,2333) - lu(k,692) * lu(k,2307) - lu(k,2348) = lu(k,2348) - lu(k,693) * lu(k,2307) - lu(k,2357) = lu(k,2357) - lu(k,694) * lu(k,2307) - lu(k,2360) = lu(k,2360) - lu(k,695) * lu(k,2307) - lu(k,2368) = lu(k,2368) - lu(k,696) * lu(k,2307) - lu(k,698) = 1._r8 / lu(k,698) - lu(k,699) = lu(k,699) * lu(k,698) - lu(k,700) = lu(k,700) * lu(k,698) - lu(k,701) = lu(k,701) * lu(k,698) - lu(k,702) = lu(k,702) * lu(k,698) - lu(k,703) = lu(k,703) * lu(k,698) - lu(k,704) = lu(k,704) * lu(k,698) - lu(k,1044) = lu(k,1044) - lu(k,699) * lu(k,1040) - lu(k,1045) = lu(k,1045) - lu(k,700) * lu(k,1040) - lu(k,1047) = lu(k,1047) - lu(k,701) * lu(k,1040) - lu(k,1048) = lu(k,1048) - lu(k,702) * lu(k,1040) - lu(k,1049) = lu(k,1049) - lu(k,703) * lu(k,1040) - lu(k,1051) = lu(k,1051) - lu(k,704) * lu(k,1040) - lu(k,1792) = lu(k,1792) - lu(k,699) * lu(k,1757) - lu(k,1808) = lu(k,1808) - lu(k,700) * lu(k,1757) - lu(k,1818) = lu(k,1818) - lu(k,701) * lu(k,1757) - lu(k,1819) = lu(k,1819) - lu(k,702) * lu(k,1757) - lu(k,1820) = lu(k,1820) - lu(k,703) * lu(k,1757) - lu(k,1829) = lu(k,1829) - lu(k,704) * lu(k,1757) - lu(k,1890) = lu(k,1890) - lu(k,699) * lu(k,1866) - lu(k,1906) = lu(k,1906) - lu(k,700) * lu(k,1866) - lu(k,1913) = lu(k,1913) - lu(k,701) * lu(k,1866) - lu(k,1914) = lu(k,1914) - lu(k,702) * lu(k,1866) - lu(k,1915) = lu(k,1915) - lu(k,703) * lu(k,1866) - lu(k,1924) = lu(k,1924) - lu(k,704) * lu(k,1866) - lu(k,2333) = lu(k,2333) - lu(k,699) * lu(k,2308) - lu(k,2348) = lu(k,2348) - lu(k,700) * lu(k,2308) - lu(k,2357) = lu(k,2357) - lu(k,701) * lu(k,2308) - lu(k,2358) = lu(k,2358) - lu(k,702) * lu(k,2308) - lu(k,2359) = lu(k,2359) - lu(k,703) * lu(k,2308) - lu(k,2368) = lu(k,2368) - lu(k,704) * lu(k,2308) - lu(k,705) = 1._r8 / lu(k,705) - lu(k,706) = lu(k,706) * lu(k,705) - lu(k,707) = lu(k,707) * lu(k,705) - lu(k,708) = lu(k,708) * lu(k,705) - lu(k,709) = lu(k,709) * lu(k,705) - lu(k,1139) = lu(k,1139) - lu(k,706) * lu(k,1129) - lu(k,1142) = lu(k,1142) - lu(k,707) * lu(k,1129) - lu(k,1149) = lu(k,1149) - lu(k,708) * lu(k,1129) - lu(k,1150) = - lu(k,709) * lu(k,1129) - lu(k,1399) = lu(k,1399) - lu(k,706) * lu(k,1394) - lu(k,1401) = lu(k,1401) - lu(k,707) * lu(k,1394) - lu(k,1408) = lu(k,1408) - lu(k,708) * lu(k,1394) - lu(k,1409) = lu(k,1409) - lu(k,709) * lu(k,1394) - lu(k,1429) = lu(k,1429) - lu(k,706) * lu(k,1413) - lu(k,1432) = lu(k,1432) - lu(k,707) * lu(k,1413) - lu(k,1440) = lu(k,1440) - lu(k,708) * lu(k,1413) - lu(k,1441) = lu(k,1441) - lu(k,709) * lu(k,1413) - lu(k,1809) = lu(k,1809) - lu(k,706) * lu(k,1758) - lu(k,1818) = lu(k,1818) - lu(k,707) * lu(k,1758) - lu(k,1830) = lu(k,1830) - lu(k,708) * lu(k,1758) - lu(k,1831) = lu(k,1831) - lu(k,709) * lu(k,1758) - lu(k,2217) = lu(k,2217) - lu(k,706) * lu(k,2186) - lu(k,2224) = lu(k,2224) - lu(k,707) * lu(k,2186) - lu(k,2236) = lu(k,2236) - lu(k,708) * lu(k,2186) - lu(k,2237) = - lu(k,709) * lu(k,2186) - lu(k,2349) = lu(k,2349) - lu(k,706) * lu(k,2309) - lu(k,2357) = lu(k,2357) - lu(k,707) * lu(k,2309) - lu(k,2369) = lu(k,2369) - lu(k,708) * lu(k,2309) - lu(k,2370) = lu(k,2370) - lu(k,709) * lu(k,2309) - lu(k,2404) = lu(k,2404) - lu(k,706) * lu(k,2376) - lu(k,2409) = lu(k,2409) - lu(k,707) * lu(k,2376) - lu(k,2421) = lu(k,2421) - lu(k,708) * lu(k,2376) - lu(k,2422) = lu(k,2422) - lu(k,709) * lu(k,2376) - lu(k,711) = 1._r8 / lu(k,711) - lu(k,712) = lu(k,712) * lu(k,711) - lu(k,713) = lu(k,713) * lu(k,711) - lu(k,714) = lu(k,714) * lu(k,711) - lu(k,715) = lu(k,715) * lu(k,711) - lu(k,716) = lu(k,716) * lu(k,711) - lu(k,717) = lu(k,717) * lu(k,711) - lu(k,1252) = - lu(k,712) * lu(k,1246) - lu(k,1254) = - lu(k,713) * lu(k,1246) - lu(k,1256) = - lu(k,714) * lu(k,1246) - lu(k,1260) = lu(k,1260) - lu(k,715) * lu(k,1246) - lu(k,1263) = lu(k,1263) - lu(k,716) * lu(k,1246) - lu(k,1265) = lu(k,1265) - lu(k,717) * lu(k,1246) - lu(k,1296) = - lu(k,712) * lu(k,1290) - lu(k,1297) = lu(k,1297) - lu(k,713) * lu(k,1290) - lu(k,1301) = lu(k,1301) - lu(k,714) * lu(k,1290) - lu(k,1306) = lu(k,1306) - lu(k,715) * lu(k,1290) - lu(k,1309) = lu(k,1309) - lu(k,716) * lu(k,1290) - lu(k,1312) = lu(k,1312) - lu(k,717) * lu(k,1290) - lu(k,1329) = lu(k,1329) - lu(k,712) * lu(k,1319) - lu(k,1330) = - lu(k,713) * lu(k,1319) - lu(k,1334) = - lu(k,714) * lu(k,1319) - lu(k,1339) = lu(k,1339) - lu(k,715) * lu(k,1319) - lu(k,1342) = lu(k,1342) - lu(k,716) * lu(k,1319) - lu(k,1345) = lu(k,1345) - lu(k,717) * lu(k,1319) - lu(k,1799) = lu(k,1799) - lu(k,712) * lu(k,1759) - lu(k,1801) = lu(k,1801) - lu(k,713) * lu(k,1759) - lu(k,1806) = lu(k,1806) - lu(k,714) * lu(k,1759) - lu(k,1818) = lu(k,1818) - lu(k,715) * lu(k,1759) - lu(k,1821) = lu(k,1821) - lu(k,716) * lu(k,1759) - lu(k,1829) = lu(k,1829) - lu(k,717) * lu(k,1759) - lu(k,2339) = lu(k,2339) - lu(k,712) * lu(k,2310) - lu(k,2341) = - lu(k,713) * lu(k,2310) - lu(k,2346) = - lu(k,714) * lu(k,2310) - lu(k,2357) = lu(k,2357) - lu(k,715) * lu(k,2310) - lu(k,2360) = lu(k,2360) - lu(k,716) * lu(k,2310) - lu(k,2368) = lu(k,2368) - lu(k,717) * lu(k,2310) - lu(k,718) = 1._r8 / lu(k,718) - lu(k,719) = lu(k,719) * lu(k,718) - lu(k,720) = lu(k,720) * lu(k,718) - lu(k,721) = lu(k,721) * lu(k,718) - lu(k,722) = lu(k,722) * lu(k,718) - lu(k,723) = lu(k,723) * lu(k,718) - lu(k,724) = lu(k,724) * lu(k,718) - lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,720) * lu(k,1474) - lu(k,1481) = lu(k,1481) - lu(k,721) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,722) * lu(k,1474) - lu(k,1485) = lu(k,1485) - lu(k,723) * lu(k,1474) - lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1474) - lu(k,1540) = lu(k,1540) - lu(k,719) * lu(k,1530) - lu(k,1542) = lu(k,1542) - lu(k,720) * lu(k,1530) - lu(k,1545) = - lu(k,721) * lu(k,1530) - lu(k,1550) = lu(k,1550) - lu(k,722) * lu(k,1530) - lu(k,1551) = lu(k,1551) - lu(k,723) * lu(k,1530) - lu(k,1553) = lu(k,1553) - lu(k,724) * lu(k,1530) - lu(k,1811) = lu(k,1811) - lu(k,719) * lu(k,1760) - lu(k,1814) = lu(k,1814) - lu(k,720) * lu(k,1760) - lu(k,1818) = lu(k,1818) - lu(k,721) * lu(k,1760) - lu(k,1824) = lu(k,1824) - lu(k,722) * lu(k,1760) - lu(k,1825) = lu(k,1825) - lu(k,723) * lu(k,1760) - lu(k,1827) = lu(k,1827) - lu(k,724) * lu(k,1760) - lu(k,2086) = lu(k,2086) - lu(k,719) * lu(k,2072) - lu(k,2089) = lu(k,2089) - lu(k,720) * lu(k,2072) - lu(k,2093) = lu(k,2093) - lu(k,721) * lu(k,2072) - lu(k,2099) = lu(k,2099) - lu(k,722) * lu(k,2072) - lu(k,2100) = lu(k,2100) - lu(k,723) * lu(k,2072) - lu(k,2102) = lu(k,2102) - lu(k,724) * lu(k,2072) - lu(k,2218) = lu(k,2218) - lu(k,719) * lu(k,2187) - lu(k,2220) = lu(k,2220) - lu(k,720) * lu(k,2187) - lu(k,2224) = lu(k,2224) - lu(k,721) * lu(k,2187) - lu(k,2230) = lu(k,2230) - lu(k,722) * lu(k,2187) - lu(k,2231) = lu(k,2231) - lu(k,723) * lu(k,2187) - lu(k,2233) = lu(k,2233) - lu(k,724) * lu(k,2187) + lu(k,675) = 1._r8 / lu(k,675) + lu(k,676) = lu(k,676) * lu(k,675) + lu(k,677) = lu(k,677) * lu(k,675) + lu(k,678) = lu(k,678) * lu(k,675) + lu(k,679) = lu(k,679) * lu(k,675) + lu(k,680) = lu(k,680) * lu(k,675) + lu(k,681) = lu(k,681) * lu(k,675) + lu(k,682) = lu(k,682) * lu(k,675) + lu(k,683) = lu(k,683) * lu(k,675) + lu(k,684) = lu(k,684) * lu(k,675) + lu(k,749) = lu(k,749) - lu(k,676) * lu(k,748) + lu(k,750) = lu(k,750) - lu(k,677) * lu(k,748) + lu(k,751) = lu(k,751) - lu(k,678) * lu(k,748) + lu(k,752) = lu(k,752) - lu(k,679) * lu(k,748) + lu(k,753) = lu(k,753) - lu(k,680) * lu(k,748) + lu(k,754) = lu(k,754) - lu(k,681) * lu(k,748) + lu(k,755) = lu(k,755) - lu(k,682) * lu(k,748) + lu(k,756) = - lu(k,683) * lu(k,748) + lu(k,759) = lu(k,759) - lu(k,684) * lu(k,748) + lu(k,1742) = lu(k,1742) - lu(k,676) * lu(k,1735) + lu(k,1743) = lu(k,1743) - lu(k,677) * lu(k,1735) + lu(k,1745) = - lu(k,678) * lu(k,1735) + lu(k,1754) = lu(k,1754) - lu(k,679) * lu(k,1735) + lu(k,1763) = lu(k,1763) - lu(k,680) * lu(k,1735) + lu(k,1773) = lu(k,1773) - lu(k,681) * lu(k,1735) + lu(k,1782) = lu(k,1782) - lu(k,682) * lu(k,1735) + lu(k,1798) = lu(k,1798) - lu(k,683) * lu(k,1735) + lu(k,1808) = lu(k,1808) - lu(k,684) * lu(k,1735) + lu(k,2289) = lu(k,2289) - lu(k,676) * lu(k,2283) + lu(k,2290) = lu(k,2290) - lu(k,677) * lu(k,2283) + lu(k,2292) = lu(k,2292) - lu(k,678) * lu(k,2283) + lu(k,2300) = lu(k,2300) - lu(k,679) * lu(k,2283) + lu(k,2304) = lu(k,2304) - lu(k,680) * lu(k,2283) + lu(k,2311) = lu(k,2311) - lu(k,681) * lu(k,2283) + lu(k,2319) = lu(k,2319) - lu(k,682) * lu(k,2283) + lu(k,2334) = lu(k,2334) - lu(k,683) * lu(k,2283) + lu(k,2344) = lu(k,2344) - lu(k,684) * lu(k,2283) + lu(k,686) = 1._r8 / lu(k,686) + lu(k,687) = lu(k,687) * lu(k,686) + lu(k,688) = lu(k,688) * lu(k,686) + lu(k,689) = lu(k,689) * lu(k,686) + lu(k,690) = lu(k,690) * lu(k,686) + lu(k,691) = lu(k,691) * lu(k,686) + lu(k,692) = lu(k,692) * lu(k,686) + lu(k,693) = lu(k,693) * lu(k,686) + lu(k,694) = lu(k,694) * lu(k,686) + lu(k,695) = lu(k,695) * lu(k,686) + lu(k,1023) = lu(k,1023) - lu(k,687) * lu(k,1022) + lu(k,1024) = lu(k,1024) - lu(k,688) * lu(k,1022) + lu(k,1025) = lu(k,1025) - lu(k,689) * lu(k,1022) + lu(k,1026) = lu(k,1026) - lu(k,690) * lu(k,1022) + lu(k,1027) = lu(k,1027) - lu(k,691) * lu(k,1022) + lu(k,1028) = lu(k,1028) - lu(k,692) * lu(k,1022) + lu(k,1030) = lu(k,1030) - lu(k,693) * lu(k,1022) + lu(k,1032) = lu(k,1032) - lu(k,694) * lu(k,1022) + lu(k,1034) = lu(k,1034) - lu(k,695) * lu(k,1022) + lu(k,1737) = lu(k,1737) - lu(k,687) * lu(k,1736) + lu(k,1753) = lu(k,1753) - lu(k,688) * lu(k,1736) + lu(k,1762) = lu(k,1762) - lu(k,689) * lu(k,1736) + lu(k,1767) = lu(k,1767) - lu(k,690) * lu(k,1736) + lu(k,1772) = lu(k,1772) - lu(k,691) * lu(k,1736) + lu(k,1788) = lu(k,1788) - lu(k,692) * lu(k,1736) + lu(k,1798) = lu(k,1798) - lu(k,693) * lu(k,1736) + lu(k,1801) = lu(k,1801) - lu(k,694) * lu(k,1736) + lu(k,1808) = lu(k,1808) - lu(k,695) * lu(k,1736) + lu(k,2285) = lu(k,2285) - lu(k,687) * lu(k,2284) + lu(k,2299) = lu(k,2299) - lu(k,688) * lu(k,2284) + lu(k,2303) = lu(k,2303) - lu(k,689) * lu(k,2284) + lu(k,2307) = lu(k,2307) - lu(k,690) * lu(k,2284) + lu(k,2310) = lu(k,2310) - lu(k,691) * lu(k,2284) + lu(k,2325) = lu(k,2325) - lu(k,692) * lu(k,2284) + lu(k,2334) = lu(k,2334) - lu(k,693) * lu(k,2284) + lu(k,2337) = lu(k,2337) - lu(k,694) * lu(k,2284) + lu(k,2344) = lu(k,2344) - lu(k,695) * lu(k,2284) + lu(k,697) = 1._r8 / lu(k,697) + lu(k,698) = lu(k,698) * lu(k,697) + lu(k,699) = lu(k,699) * lu(k,697) + lu(k,700) = lu(k,700) * lu(k,697) + lu(k,701) = lu(k,701) * lu(k,697) + lu(k,702) = lu(k,702) * lu(k,697) + lu(k,703) = lu(k,703) * lu(k,697) + lu(k,1027) = lu(k,1027) - lu(k,698) * lu(k,1023) + lu(k,1028) = lu(k,1028) - lu(k,699) * lu(k,1023) + lu(k,1030) = lu(k,1030) - lu(k,700) * lu(k,1023) + lu(k,1031) = lu(k,1031) - lu(k,701) * lu(k,1023) + lu(k,1033) = lu(k,1033) - lu(k,702) * lu(k,1023) + lu(k,1034) = lu(k,1034) - lu(k,703) * lu(k,1023) + lu(k,1772) = lu(k,1772) - lu(k,698) * lu(k,1737) + lu(k,1788) = lu(k,1788) - lu(k,699) * lu(k,1737) + lu(k,1798) = lu(k,1798) - lu(k,700) * lu(k,1737) + lu(k,1800) = lu(k,1800) - lu(k,701) * lu(k,1737) + lu(k,1802) = lu(k,1802) - lu(k,702) * lu(k,1737) + lu(k,1808) = lu(k,1808) - lu(k,703) * lu(k,1737) + lu(k,1988) = lu(k,1988) - lu(k,698) * lu(k,1964) + lu(k,2004) = lu(k,2004) - lu(k,699) * lu(k,1964) + lu(k,2011) = lu(k,2011) - lu(k,700) * lu(k,1964) + lu(k,2013) = lu(k,2013) - lu(k,701) * lu(k,1964) + lu(k,2015) = lu(k,2015) - lu(k,702) * lu(k,1964) + lu(k,2021) = lu(k,2021) - lu(k,703) * lu(k,1964) + lu(k,2310) = lu(k,2310) - lu(k,698) * lu(k,2285) + lu(k,2325) = lu(k,2325) - lu(k,699) * lu(k,2285) + lu(k,2334) = lu(k,2334) - lu(k,700) * lu(k,2285) + lu(k,2336) = lu(k,2336) - lu(k,701) * lu(k,2285) + lu(k,2338) = lu(k,2338) - lu(k,702) * lu(k,2285) + lu(k,2344) = lu(k,2344) - lu(k,703) * lu(k,2285) + lu(k,704) = 1._r8 / lu(k,704) + lu(k,705) = lu(k,705) * lu(k,704) + lu(k,706) = lu(k,706) * lu(k,704) + lu(k,707) = lu(k,707) * lu(k,704) + lu(k,708) = lu(k,708) * lu(k,704) + lu(k,1138) = lu(k,1138) - lu(k,705) * lu(k,1128) + lu(k,1141) = lu(k,1141) - lu(k,706) * lu(k,1128) + lu(k,1148) = lu(k,1148) - lu(k,707) * lu(k,1128) + lu(k,1149) = - lu(k,708) * lu(k,1128) + lu(k,1398) = lu(k,1398) - lu(k,705) * lu(k,1393) + lu(k,1399) = lu(k,1399) - lu(k,706) * lu(k,1393) + lu(k,1407) = lu(k,1407) - lu(k,707) * lu(k,1393) + lu(k,1408) = lu(k,1408) - lu(k,708) * lu(k,1393) + lu(k,1428) = lu(k,1428) - lu(k,705) * lu(k,1412) + lu(k,1431) = lu(k,1431) - lu(k,706) * lu(k,1412) + lu(k,1439) = lu(k,1439) - lu(k,707) * lu(k,1412) + lu(k,1440) = lu(k,1440) - lu(k,708) * lu(k,1412) + lu(k,1789) = lu(k,1789) - lu(k,705) * lu(k,1738) + lu(k,1798) = lu(k,1798) - lu(k,706) * lu(k,1738) + lu(k,1810) = lu(k,1810) - lu(k,707) * lu(k,1738) + lu(k,1811) = lu(k,1811) - lu(k,708) * lu(k,1738) + lu(k,2111) = lu(k,2111) - lu(k,705) * lu(k,2080) + lu(k,2118) = lu(k,2118) - lu(k,706) * lu(k,2080) + lu(k,2130) = lu(k,2130) - lu(k,707) * lu(k,2080) + lu(k,2131) = - lu(k,708) * lu(k,2080) + lu(k,2326) = lu(k,2326) - lu(k,705) * lu(k,2286) + lu(k,2334) = lu(k,2334) - lu(k,706) * lu(k,2286) + lu(k,2346) = lu(k,2346) - lu(k,707) * lu(k,2286) + lu(k,2347) = lu(k,2347) - lu(k,708) * lu(k,2286) + lu(k,2404) = lu(k,2404) - lu(k,705) * lu(k,2376) + lu(k,2409) = lu(k,2409) - lu(k,706) * lu(k,2376) + lu(k,2421) = lu(k,2421) - lu(k,707) * lu(k,2376) + lu(k,2422) = lu(k,2422) - lu(k,708) * lu(k,2376) + lu(k,710) = 1._r8 / lu(k,710) + lu(k,711) = lu(k,711) * lu(k,710) + lu(k,712) = lu(k,712) * lu(k,710) + lu(k,713) = lu(k,713) * lu(k,710) + lu(k,714) = lu(k,714) * lu(k,710) + lu(k,715) = lu(k,715) * lu(k,710) + lu(k,716) = lu(k,716) * lu(k,710) + lu(k,1251) = - lu(k,711) * lu(k,1245) + lu(k,1253) = - lu(k,712) * lu(k,1245) + lu(k,1255) = - lu(k,713) * lu(k,1245) + lu(k,1258) = lu(k,1258) - lu(k,714) * lu(k,1245) + lu(k,1260) = lu(k,1260) - lu(k,715) * lu(k,1245) + lu(k,1263) = lu(k,1263) - lu(k,716) * lu(k,1245) + lu(k,1295) = - lu(k,711) * lu(k,1289) + lu(k,1296) = lu(k,1296) - lu(k,712) * lu(k,1289) + lu(k,1300) = lu(k,1300) - lu(k,713) * lu(k,1289) + lu(k,1304) = lu(k,1304) - lu(k,714) * lu(k,1289) + lu(k,1306) = lu(k,1306) - lu(k,715) * lu(k,1289) + lu(k,1310) = lu(k,1310) - lu(k,716) * lu(k,1289) + lu(k,1328) = lu(k,1328) - lu(k,711) * lu(k,1318) + lu(k,1329) = - lu(k,712) * lu(k,1318) + lu(k,1333) = - lu(k,713) * lu(k,1318) + lu(k,1337) = lu(k,1337) - lu(k,714) * lu(k,1318) + lu(k,1339) = lu(k,1339) - lu(k,715) * lu(k,1318) + lu(k,1343) = lu(k,1343) - lu(k,716) * lu(k,1318) + lu(k,1779) = lu(k,1779) - lu(k,711) * lu(k,1739) + lu(k,1781) = lu(k,1781) - lu(k,712) * lu(k,1739) + lu(k,1786) = lu(k,1786) - lu(k,713) * lu(k,1739) + lu(k,1798) = lu(k,1798) - lu(k,714) * lu(k,1739) + lu(k,1801) = lu(k,1801) - lu(k,715) * lu(k,1739) + lu(k,1808) = lu(k,1808) - lu(k,716) * lu(k,1739) + lu(k,2316) = lu(k,2316) - lu(k,711) * lu(k,2287) + lu(k,2318) = - lu(k,712) * lu(k,2287) + lu(k,2323) = - lu(k,713) * lu(k,2287) + lu(k,2334) = lu(k,2334) - lu(k,714) * lu(k,2287) + lu(k,2337) = lu(k,2337) - lu(k,715) * lu(k,2287) + lu(k,2344) = lu(k,2344) - lu(k,716) * lu(k,2287) end do end subroutine lu_fac15 subroutine lu_fac16( avec_len, lu ) @@ -2339,240 +2304,234 @@ subroutine lu_fac16( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,729) = 1._r8 / lu(k,729) - lu(k,730) = lu(k,730) * lu(k,729) - lu(k,731) = lu(k,731) * lu(k,729) - lu(k,732) = lu(k,732) * lu(k,729) - lu(k,733) = lu(k,733) * lu(k,729) - lu(k,734) = lu(k,734) * lu(k,729) - lu(k,735) = lu(k,735) * lu(k,729) - lu(k,736) = lu(k,736) * lu(k,729) - lu(k,737) = lu(k,737) * lu(k,729) - lu(k,738) = lu(k,738) * lu(k,729) - lu(k,739) = lu(k,739) * lu(k,729) - lu(k,766) = lu(k,766) - lu(k,730) * lu(k,765) - lu(k,767) = lu(k,767) - lu(k,731) * lu(k,765) - lu(k,768) = lu(k,768) - lu(k,732) * lu(k,765) - lu(k,769) = lu(k,769) - lu(k,733) * lu(k,765) - lu(k,770) = lu(k,770) - lu(k,734) * lu(k,765) - lu(k,771) = lu(k,771) - lu(k,735) * lu(k,765) - lu(k,772) = lu(k,772) - lu(k,736) * lu(k,765) - lu(k,773) = lu(k,773) - lu(k,737) * lu(k,765) - lu(k,774) = - lu(k,738) * lu(k,765) - lu(k,777) = lu(k,777) - lu(k,739) * lu(k,765) - lu(k,1762) = lu(k,1762) - lu(k,730) * lu(k,1761) - lu(k,1764) = lu(k,1764) - lu(k,731) * lu(k,1761) - lu(k,1765) = lu(k,1765) - lu(k,732) * lu(k,1761) - lu(k,1774) = lu(k,1774) - lu(k,733) * lu(k,1761) - lu(k,1784) = lu(k,1784) - lu(k,734) * lu(k,1761) - lu(k,1793) = lu(k,1793) - lu(k,735) * lu(k,1761) - lu(k,1802) = lu(k,1802) - lu(k,736) * lu(k,1761) - lu(k,1808) = lu(k,1808) - lu(k,737) * lu(k,1761) - lu(k,1818) = lu(k,1818) - lu(k,738) * lu(k,1761) - lu(k,1829) = lu(k,1829) - lu(k,739) * lu(k,1761) - lu(k,2312) = lu(k,2312) - lu(k,730) * lu(k,2311) - lu(k,2314) = lu(k,2314) - lu(k,731) * lu(k,2311) - lu(k,2315) = lu(k,2315) - lu(k,732) * lu(k,2311) - lu(k,2323) = lu(k,2323) - lu(k,733) * lu(k,2311) - lu(k,2327) = lu(k,2327) - lu(k,734) * lu(k,2311) - lu(k,2334) = lu(k,2334) - lu(k,735) * lu(k,2311) - lu(k,2342) = lu(k,2342) - lu(k,736) * lu(k,2311) - lu(k,2348) = lu(k,2348) - lu(k,737) * lu(k,2311) - lu(k,2357) = lu(k,2357) - lu(k,738) * lu(k,2311) - lu(k,2368) = lu(k,2368) - lu(k,739) * lu(k,2311) - lu(k,740) = 1._r8 / lu(k,740) - lu(k,741) = lu(k,741) * lu(k,740) - lu(k,742) = lu(k,742) * lu(k,740) - lu(k,743) = lu(k,743) * lu(k,740) - lu(k,744) = lu(k,744) * lu(k,740) - lu(k,745) = lu(k,745) * lu(k,740) - lu(k,754) = lu(k,754) - lu(k,741) * lu(k,750) - lu(k,755) = lu(k,755) - lu(k,742) * lu(k,750) - lu(k,758) = lu(k,758) - lu(k,743) * lu(k,750) - lu(k,759) = lu(k,759) - lu(k,744) * lu(k,750) - lu(k,760) = lu(k,760) - lu(k,745) * lu(k,750) - lu(k,770) = lu(k,770) - lu(k,741) * lu(k,766) - lu(k,771) = lu(k,771) - lu(k,742) * lu(k,766) - lu(k,775) = lu(k,775) - lu(k,743) * lu(k,766) - lu(k,776) = lu(k,776) - lu(k,744) * lu(k,766) - lu(k,777) = lu(k,777) - lu(k,745) * lu(k,766) - lu(k,1784) = lu(k,1784) - lu(k,741) * lu(k,1762) - lu(k,1793) = lu(k,1793) - lu(k,742) * lu(k,1762) - lu(k,1819) = lu(k,1819) - lu(k,743) * lu(k,1762) - lu(k,1820) = lu(k,1820) - lu(k,744) * lu(k,1762) - lu(k,1829) = lu(k,1829) - lu(k,745) * lu(k,1762) - lu(k,1883) = lu(k,1883) - lu(k,741) * lu(k,1867) - lu(k,1891) = lu(k,1891) - lu(k,742) * lu(k,1867) - lu(k,1914) = lu(k,1914) - lu(k,743) * lu(k,1867) - lu(k,1915) = lu(k,1915) - lu(k,744) * lu(k,1867) - lu(k,1924) = lu(k,1924) - lu(k,745) * lu(k,1867) - lu(k,1944) = - lu(k,741) * lu(k,1937) - lu(k,1945) = - lu(k,742) * lu(k,1937) - lu(k,1959) = lu(k,1959) - lu(k,743) * lu(k,1937) - lu(k,1960) = lu(k,1960) - lu(k,744) * lu(k,1937) - lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1937) - lu(k,2327) = lu(k,2327) - lu(k,741) * lu(k,2312) - lu(k,2334) = lu(k,2334) - lu(k,742) * lu(k,2312) - lu(k,2358) = lu(k,2358) - lu(k,743) * lu(k,2312) - lu(k,2359) = lu(k,2359) - lu(k,744) * lu(k,2312) - lu(k,2368) = lu(k,2368) - lu(k,745) * lu(k,2312) - lu(k,751) = 1._r8 / lu(k,751) - lu(k,752) = lu(k,752) * lu(k,751) - lu(k,753) = lu(k,753) * lu(k,751) - lu(k,754) = lu(k,754) * lu(k,751) - lu(k,755) = lu(k,755) * lu(k,751) - lu(k,756) = lu(k,756) * lu(k,751) - lu(k,757) = lu(k,757) * lu(k,751) - lu(k,758) = lu(k,758) * lu(k,751) - lu(k,759) = lu(k,759) * lu(k,751) - lu(k,760) = lu(k,760) * lu(k,751) - lu(k,1765) = lu(k,1765) - lu(k,752) * lu(k,1763) - lu(k,1774) = lu(k,1774) - lu(k,753) * lu(k,1763) - lu(k,1784) = lu(k,1784) - lu(k,754) * lu(k,1763) - lu(k,1793) = lu(k,1793) - lu(k,755) * lu(k,1763) - lu(k,1802) = lu(k,1802) - lu(k,756) * lu(k,1763) - lu(k,1818) = lu(k,1818) - lu(k,757) * lu(k,1763) - lu(k,1819) = lu(k,1819) - lu(k,758) * lu(k,1763) - lu(k,1820) = lu(k,1820) - lu(k,759) * lu(k,1763) - lu(k,1829) = lu(k,1829) - lu(k,760) * lu(k,1763) - lu(k,1870) = lu(k,1870) - lu(k,752) * lu(k,1868) - lu(k,1878) = lu(k,1878) - lu(k,753) * lu(k,1868) - lu(k,1883) = lu(k,1883) - lu(k,754) * lu(k,1868) - lu(k,1891) = lu(k,1891) - lu(k,755) * lu(k,1868) - lu(k,1900) = lu(k,1900) - lu(k,756) * lu(k,1868) - lu(k,1913) = lu(k,1913) - lu(k,757) * lu(k,1868) - lu(k,1914) = lu(k,1914) - lu(k,758) * lu(k,1868) - lu(k,1915) = lu(k,1915) - lu(k,759) * lu(k,1868) - lu(k,1924) = lu(k,1924) - lu(k,760) * lu(k,1868) - lu(k,2315) = lu(k,2315) - lu(k,752) * lu(k,2313) - lu(k,2323) = lu(k,2323) - lu(k,753) * lu(k,2313) - lu(k,2327) = lu(k,2327) - lu(k,754) * lu(k,2313) - lu(k,2334) = lu(k,2334) - lu(k,755) * lu(k,2313) - lu(k,2342) = lu(k,2342) - lu(k,756) * lu(k,2313) - lu(k,2357) = lu(k,2357) - lu(k,757) * lu(k,2313) - lu(k,2358) = lu(k,2358) - lu(k,758) * lu(k,2313) - lu(k,2359) = lu(k,2359) - lu(k,759) * lu(k,2313) - lu(k,2368) = lu(k,2368) - lu(k,760) * lu(k,2313) - lu(k,767) = 1._r8 / lu(k,767) - lu(k,768) = lu(k,768) * lu(k,767) - lu(k,769) = lu(k,769) * lu(k,767) - lu(k,770) = lu(k,770) * lu(k,767) - lu(k,771) = lu(k,771) * lu(k,767) - lu(k,772) = lu(k,772) * lu(k,767) - lu(k,773) = lu(k,773) * lu(k,767) - lu(k,774) = lu(k,774) * lu(k,767) - lu(k,775) = lu(k,775) * lu(k,767) - lu(k,776) = lu(k,776) * lu(k,767) - lu(k,777) = lu(k,777) * lu(k,767) - lu(k,1765) = lu(k,1765) - lu(k,768) * lu(k,1764) - lu(k,1774) = lu(k,1774) - lu(k,769) * lu(k,1764) - lu(k,1784) = lu(k,1784) - lu(k,770) * lu(k,1764) - lu(k,1793) = lu(k,1793) - lu(k,771) * lu(k,1764) - lu(k,1802) = lu(k,1802) - lu(k,772) * lu(k,1764) - lu(k,1808) = lu(k,1808) - lu(k,773) * lu(k,1764) - lu(k,1818) = lu(k,1818) - lu(k,774) * lu(k,1764) - lu(k,1819) = lu(k,1819) - lu(k,775) * lu(k,1764) - lu(k,1820) = lu(k,1820) - lu(k,776) * lu(k,1764) - lu(k,1829) = lu(k,1829) - lu(k,777) * lu(k,1764) - lu(k,1870) = lu(k,1870) - lu(k,768) * lu(k,1869) - lu(k,1878) = lu(k,1878) - lu(k,769) * lu(k,1869) - lu(k,1883) = lu(k,1883) - lu(k,770) * lu(k,1869) - lu(k,1891) = lu(k,1891) - lu(k,771) * lu(k,1869) - lu(k,1900) = lu(k,1900) - lu(k,772) * lu(k,1869) - lu(k,1906) = lu(k,1906) - lu(k,773) * lu(k,1869) - lu(k,1913) = lu(k,1913) - lu(k,774) * lu(k,1869) - lu(k,1914) = lu(k,1914) - lu(k,775) * lu(k,1869) - lu(k,1915) = lu(k,1915) - lu(k,776) * lu(k,1869) - lu(k,1924) = lu(k,1924) - lu(k,777) * lu(k,1869) - lu(k,2315) = lu(k,2315) - lu(k,768) * lu(k,2314) - lu(k,2323) = lu(k,2323) - lu(k,769) * lu(k,2314) - lu(k,2327) = lu(k,2327) - lu(k,770) * lu(k,2314) - lu(k,2334) = lu(k,2334) - lu(k,771) * lu(k,2314) - lu(k,2342) = lu(k,2342) - lu(k,772) * lu(k,2314) - lu(k,2348) = lu(k,2348) - lu(k,773) * lu(k,2314) - lu(k,2357) = lu(k,2357) - lu(k,774) * lu(k,2314) - lu(k,2358) = lu(k,2358) - lu(k,775) * lu(k,2314) - lu(k,2359) = lu(k,2359) - lu(k,776) * lu(k,2314) - lu(k,2368) = lu(k,2368) - lu(k,777) * lu(k,2314) - lu(k,778) = 1._r8 / lu(k,778) - lu(k,779) = lu(k,779) * lu(k,778) - lu(k,780) = lu(k,780) * lu(k,778) - lu(k,781) = lu(k,781) * lu(k,778) - lu(k,782) = lu(k,782) * lu(k,778) - lu(k,783) = lu(k,783) * lu(k,778) - lu(k,784) = lu(k,784) * lu(k,778) - lu(k,785) = lu(k,785) * lu(k,778) - lu(k,1793) = lu(k,1793) - lu(k,779) * lu(k,1765) - lu(k,1802) = lu(k,1802) - lu(k,780) * lu(k,1765) - lu(k,1818) = lu(k,1818) - lu(k,781) * lu(k,1765) - lu(k,1819) = lu(k,1819) - lu(k,782) * lu(k,1765) - lu(k,1820) = lu(k,1820) - lu(k,783) * lu(k,1765) - lu(k,1829) = lu(k,1829) - lu(k,784) * lu(k,1765) - lu(k,1830) = lu(k,1830) - lu(k,785) * lu(k,1765) - lu(k,1891) = lu(k,1891) - lu(k,779) * lu(k,1870) - lu(k,1900) = lu(k,1900) - lu(k,780) * lu(k,1870) - lu(k,1913) = lu(k,1913) - lu(k,781) * lu(k,1870) - lu(k,1914) = lu(k,1914) - lu(k,782) * lu(k,1870) - lu(k,1915) = lu(k,1915) - lu(k,783) * lu(k,1870) - lu(k,1924) = lu(k,1924) - lu(k,784) * lu(k,1870) - lu(k,1925) = lu(k,1925) - lu(k,785) * lu(k,1870) - lu(k,1945) = lu(k,1945) - lu(k,779) * lu(k,1938) - lu(k,1947) = - lu(k,780) * lu(k,1938) - lu(k,1958) = lu(k,1958) - lu(k,781) * lu(k,1938) - lu(k,1959) = lu(k,1959) - lu(k,782) * lu(k,1938) - lu(k,1960) = lu(k,1960) - lu(k,783) * lu(k,1938) - lu(k,1969) = lu(k,1969) - lu(k,784) * lu(k,1938) - lu(k,1970) = lu(k,1970) - lu(k,785) * lu(k,1938) - lu(k,2334) = lu(k,2334) - lu(k,779) * lu(k,2315) - lu(k,2342) = lu(k,2342) - lu(k,780) * lu(k,2315) - lu(k,2357) = lu(k,2357) - lu(k,781) * lu(k,2315) - lu(k,2358) = lu(k,2358) - lu(k,782) * lu(k,2315) - lu(k,2359) = lu(k,2359) - lu(k,783) * lu(k,2315) - lu(k,2368) = lu(k,2368) - lu(k,784) * lu(k,2315) - lu(k,2369) = lu(k,2369) - lu(k,785) * lu(k,2315) - lu(k,787) = 1._r8 / lu(k,787) - lu(k,788) = lu(k,788) * lu(k,787) - lu(k,789) = lu(k,789) * lu(k,787) - lu(k,790) = lu(k,790) * lu(k,787) - lu(k,791) = lu(k,791) * lu(k,787) - lu(k,792) = lu(k,792) * lu(k,787) - lu(k,793) = lu(k,793) * lu(k,787) - lu(k,794) = lu(k,794) * lu(k,787) - lu(k,1495) = lu(k,1495) - lu(k,788) * lu(k,1492) - lu(k,1496) = lu(k,1496) - lu(k,789) * lu(k,1492) - lu(k,1497) = - lu(k,790) * lu(k,1492) - lu(k,1500) = lu(k,1500) - lu(k,791) * lu(k,1492) - lu(k,1504) = lu(k,1504) - lu(k,792) * lu(k,1492) - lu(k,1506) = lu(k,1506) - lu(k,793) * lu(k,1492) - lu(k,1507) = lu(k,1507) - lu(k,794) * lu(k,1492) - lu(k,1562) = - lu(k,788) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,789) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,790) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,791) * lu(k,1559) - lu(k,1574) = lu(k,1574) - lu(k,792) * lu(k,1559) - lu(k,1576) = lu(k,1576) - lu(k,793) * lu(k,1559) - lu(k,1579) = - lu(k,794) * lu(k,1559) - lu(k,1952) = - lu(k,788) * lu(k,1939) - lu(k,1953) = lu(k,1953) - lu(k,789) * lu(k,1939) - lu(k,1955) = lu(k,1955) - lu(k,790) * lu(k,1939) - lu(k,1958) = lu(k,1958) - lu(k,791) * lu(k,1939) - lu(k,1964) = lu(k,1964) - lu(k,792) * lu(k,1939) - lu(k,1966) = - lu(k,793) * lu(k,1939) - lu(k,1971) = lu(k,1971) - lu(k,794) * lu(k,1939) - lu(k,2087) = lu(k,2087) - lu(k,788) * lu(k,2073) - lu(k,2088) = lu(k,2088) - lu(k,789) * lu(k,2073) - lu(k,2090) = lu(k,2090) - lu(k,790) * lu(k,2073) - lu(k,2093) = lu(k,2093) - lu(k,791) * lu(k,2073) - lu(k,2099) = lu(k,2099) - lu(k,792) * lu(k,2073) - lu(k,2101) = lu(k,2101) - lu(k,793) * lu(k,2073) - lu(k,2106) = lu(k,2106) - lu(k,794) * lu(k,2073) - lu(k,2351) = lu(k,2351) - lu(k,788) * lu(k,2316) - lu(k,2352) = lu(k,2352) - lu(k,789) * lu(k,2316) - lu(k,2354) = lu(k,2354) - lu(k,790) * lu(k,2316) - lu(k,2357) = lu(k,2357) - lu(k,791) * lu(k,2316) - lu(k,2363) = lu(k,2363) - lu(k,792) * lu(k,2316) - lu(k,2365) = lu(k,2365) - lu(k,793) * lu(k,2316) - lu(k,2370) = lu(k,2370) - lu(k,794) * lu(k,2316) + lu(k,721) = 1._r8 / lu(k,721) + lu(k,722) = lu(k,722) * lu(k,721) + lu(k,723) = lu(k,723) * lu(k,721) + lu(k,724) = lu(k,724) * lu(k,721) + lu(k,725) = lu(k,725) * lu(k,721) + lu(k,726) = lu(k,726) * lu(k,721) + lu(k,727) = lu(k,727) * lu(k,721) + lu(k,728) = lu(k,728) * lu(k,721) + lu(k,729) = lu(k,729) * lu(k,721) + lu(k,730) = lu(k,730) * lu(k,721) + lu(k,731) = lu(k,731) * lu(k,721) + lu(k,765) = lu(k,765) - lu(k,722) * lu(k,764) + lu(k,766) = lu(k,766) - lu(k,723) * lu(k,764) + lu(k,767) = lu(k,767) - lu(k,724) * lu(k,764) + lu(k,768) = lu(k,768) - lu(k,725) * lu(k,764) + lu(k,769) = lu(k,769) - lu(k,726) * lu(k,764) + lu(k,770) = lu(k,770) - lu(k,727) * lu(k,764) + lu(k,771) = lu(k,771) - lu(k,728) * lu(k,764) + lu(k,772) = lu(k,772) - lu(k,729) * lu(k,764) + lu(k,773) = - lu(k,730) * lu(k,764) + lu(k,776) = lu(k,776) - lu(k,731) * lu(k,764) + lu(k,1742) = lu(k,1742) - lu(k,722) * lu(k,1740) + lu(k,1744) = lu(k,1744) - lu(k,723) * lu(k,1740) + lu(k,1745) = lu(k,1745) - lu(k,724) * lu(k,1740) + lu(k,1754) = lu(k,1754) - lu(k,725) * lu(k,1740) + lu(k,1763) = lu(k,1763) - lu(k,726) * lu(k,1740) + lu(k,1773) = lu(k,1773) - lu(k,727) * lu(k,1740) + lu(k,1782) = lu(k,1782) - lu(k,728) * lu(k,1740) + lu(k,1788) = lu(k,1788) - lu(k,729) * lu(k,1740) + lu(k,1798) = lu(k,1798) - lu(k,730) * lu(k,1740) + lu(k,1808) = lu(k,1808) - lu(k,731) * lu(k,1740) + lu(k,2289) = lu(k,2289) - lu(k,722) * lu(k,2288) + lu(k,2291) = lu(k,2291) - lu(k,723) * lu(k,2288) + lu(k,2292) = lu(k,2292) - lu(k,724) * lu(k,2288) + lu(k,2300) = lu(k,2300) - lu(k,725) * lu(k,2288) + lu(k,2304) = lu(k,2304) - lu(k,726) * lu(k,2288) + lu(k,2311) = lu(k,2311) - lu(k,727) * lu(k,2288) + lu(k,2319) = lu(k,2319) - lu(k,728) * lu(k,2288) + lu(k,2325) = lu(k,2325) - lu(k,729) * lu(k,2288) + lu(k,2334) = lu(k,2334) - lu(k,730) * lu(k,2288) + lu(k,2344) = lu(k,2344) - lu(k,731) * lu(k,2288) + lu(k,732) = 1._r8 / lu(k,732) + lu(k,733) = lu(k,733) * lu(k,732) + lu(k,734) = lu(k,734) * lu(k,732) + lu(k,735) = lu(k,735) * lu(k,732) + lu(k,736) = lu(k,736) * lu(k,732) + lu(k,737) = lu(k,737) * lu(k,732) + lu(k,738) = lu(k,738) * lu(k,732) + lu(k,1475) = lu(k,1475) - lu(k,733) * lu(k,1473) + lu(k,1477) = lu(k,1477) - lu(k,734) * lu(k,1473) + lu(k,1479) = lu(k,1479) - lu(k,735) * lu(k,1473) + lu(k,1483) = lu(k,1483) - lu(k,736) * lu(k,1473) + lu(k,1484) = lu(k,1484) - lu(k,737) * lu(k,1473) + lu(k,1486) = lu(k,1486) - lu(k,738) * lu(k,1473) + lu(k,1539) = lu(k,1539) - lu(k,733) * lu(k,1529) + lu(k,1541) = lu(k,1541) - lu(k,734) * lu(k,1529) + lu(k,1544) = - lu(k,735) * lu(k,1529) + lu(k,1549) = lu(k,1549) - lu(k,736) * lu(k,1529) + lu(k,1550) = lu(k,1550) - lu(k,737) * lu(k,1529) + lu(k,1552) = lu(k,1552) - lu(k,738) * lu(k,1529) + lu(k,1791) = lu(k,1791) - lu(k,733) * lu(k,1741) + lu(k,1794) = lu(k,1794) - lu(k,734) * lu(k,1741) + lu(k,1798) = lu(k,1798) - lu(k,735) * lu(k,1741) + lu(k,1803) = lu(k,1803) - lu(k,736) * lu(k,1741) + lu(k,1804) = lu(k,1804) - lu(k,737) * lu(k,1741) + lu(k,1806) = lu(k,1806) - lu(k,738) * lu(k,1741) + lu(k,2047) = lu(k,2047) - lu(k,733) * lu(k,2033) + lu(k,2050) = lu(k,2050) - lu(k,734) * lu(k,2033) + lu(k,2054) = lu(k,2054) - lu(k,735) * lu(k,2033) + lu(k,2059) = lu(k,2059) - lu(k,736) * lu(k,2033) + lu(k,2060) = lu(k,2060) - lu(k,737) * lu(k,2033) + lu(k,2062) = lu(k,2062) - lu(k,738) * lu(k,2033) + lu(k,2112) = lu(k,2112) - lu(k,733) * lu(k,2081) + lu(k,2114) = lu(k,2114) - lu(k,734) * lu(k,2081) + lu(k,2118) = lu(k,2118) - lu(k,735) * lu(k,2081) + lu(k,2123) = lu(k,2123) - lu(k,736) * lu(k,2081) + lu(k,2124) = lu(k,2124) - lu(k,737) * lu(k,2081) + lu(k,2126) = lu(k,2126) - lu(k,738) * lu(k,2081) + lu(k,739) = 1._r8 / lu(k,739) + lu(k,740) = lu(k,740) * lu(k,739) + lu(k,741) = lu(k,741) * lu(k,739) + lu(k,742) = lu(k,742) * lu(k,739) + lu(k,743) = lu(k,743) * lu(k,739) + lu(k,744) = lu(k,744) * lu(k,739) + lu(k,753) = lu(k,753) - lu(k,740) * lu(k,749) + lu(k,754) = lu(k,754) - lu(k,741) * lu(k,749) + lu(k,757) = lu(k,757) - lu(k,742) * lu(k,749) + lu(k,758) = lu(k,758) - lu(k,743) * lu(k,749) + lu(k,759) = lu(k,759) - lu(k,744) * lu(k,749) + lu(k,769) = lu(k,769) - lu(k,740) * lu(k,765) + lu(k,770) = lu(k,770) - lu(k,741) * lu(k,765) + lu(k,774) = lu(k,774) - lu(k,742) * lu(k,765) + lu(k,775) = lu(k,775) - lu(k,743) * lu(k,765) + lu(k,776) = lu(k,776) - lu(k,744) * lu(k,765) + lu(k,1763) = lu(k,1763) - lu(k,740) * lu(k,1742) + lu(k,1773) = lu(k,1773) - lu(k,741) * lu(k,1742) + lu(k,1800) = lu(k,1800) - lu(k,742) * lu(k,1742) + lu(k,1802) = lu(k,1802) - lu(k,743) * lu(k,1742) + lu(k,1808) = lu(k,1808) - lu(k,744) * lu(k,1742) + lu(k,1874) = - lu(k,740) * lu(k,1868) + lu(k,1876) = - lu(k,741) * lu(k,1868) + lu(k,1891) = lu(k,1891) - lu(k,742) * lu(k,1868) + lu(k,1893) = lu(k,1893) - lu(k,743) * lu(k,1868) + lu(k,1899) = lu(k,1899) - lu(k,744) * lu(k,1868) + lu(k,1980) = lu(k,1980) - lu(k,740) * lu(k,1965) + lu(k,1989) = lu(k,1989) - lu(k,741) * lu(k,1965) + lu(k,2013) = lu(k,2013) - lu(k,742) * lu(k,1965) + lu(k,2015) = lu(k,2015) - lu(k,743) * lu(k,1965) + lu(k,2021) = lu(k,2021) - lu(k,744) * lu(k,1965) + lu(k,2304) = lu(k,2304) - lu(k,740) * lu(k,2289) + lu(k,2311) = lu(k,2311) - lu(k,741) * lu(k,2289) + lu(k,2336) = lu(k,2336) - lu(k,742) * lu(k,2289) + lu(k,2338) = lu(k,2338) - lu(k,743) * lu(k,2289) + lu(k,2344) = lu(k,2344) - lu(k,744) * lu(k,2289) + lu(k,750) = 1._r8 / lu(k,750) + lu(k,751) = lu(k,751) * lu(k,750) + lu(k,752) = lu(k,752) * lu(k,750) + lu(k,753) = lu(k,753) * lu(k,750) + lu(k,754) = lu(k,754) * lu(k,750) + lu(k,755) = lu(k,755) * lu(k,750) + lu(k,756) = lu(k,756) * lu(k,750) + lu(k,757) = lu(k,757) * lu(k,750) + lu(k,758) = lu(k,758) * lu(k,750) + lu(k,759) = lu(k,759) * lu(k,750) + lu(k,1745) = lu(k,1745) - lu(k,751) * lu(k,1743) + lu(k,1754) = lu(k,1754) - lu(k,752) * lu(k,1743) + lu(k,1763) = lu(k,1763) - lu(k,753) * lu(k,1743) + lu(k,1773) = lu(k,1773) - lu(k,754) * lu(k,1743) + lu(k,1782) = lu(k,1782) - lu(k,755) * lu(k,1743) + lu(k,1798) = lu(k,1798) - lu(k,756) * lu(k,1743) + lu(k,1800) = lu(k,1800) - lu(k,757) * lu(k,1743) + lu(k,1802) = lu(k,1802) - lu(k,758) * lu(k,1743) + lu(k,1808) = lu(k,1808) - lu(k,759) * lu(k,1743) + lu(k,1968) = lu(k,1968) - lu(k,751) * lu(k,1966) + lu(k,1976) = lu(k,1976) - lu(k,752) * lu(k,1966) + lu(k,1980) = lu(k,1980) - lu(k,753) * lu(k,1966) + lu(k,1989) = lu(k,1989) - lu(k,754) * lu(k,1966) + lu(k,1998) = lu(k,1998) - lu(k,755) * lu(k,1966) + lu(k,2011) = lu(k,2011) - lu(k,756) * lu(k,1966) + lu(k,2013) = lu(k,2013) - lu(k,757) * lu(k,1966) + lu(k,2015) = lu(k,2015) - lu(k,758) * lu(k,1966) + lu(k,2021) = lu(k,2021) - lu(k,759) * lu(k,1966) + lu(k,2292) = lu(k,2292) - lu(k,751) * lu(k,2290) + lu(k,2300) = lu(k,2300) - lu(k,752) * lu(k,2290) + lu(k,2304) = lu(k,2304) - lu(k,753) * lu(k,2290) + lu(k,2311) = lu(k,2311) - lu(k,754) * lu(k,2290) + lu(k,2319) = lu(k,2319) - lu(k,755) * lu(k,2290) + lu(k,2334) = lu(k,2334) - lu(k,756) * lu(k,2290) + lu(k,2336) = lu(k,2336) - lu(k,757) * lu(k,2290) + lu(k,2338) = lu(k,2338) - lu(k,758) * lu(k,2290) + lu(k,2344) = lu(k,2344) - lu(k,759) * lu(k,2290) + lu(k,766) = 1._r8 / lu(k,766) + lu(k,767) = lu(k,767) * lu(k,766) + lu(k,768) = lu(k,768) * lu(k,766) + lu(k,769) = lu(k,769) * lu(k,766) + lu(k,770) = lu(k,770) * lu(k,766) + lu(k,771) = lu(k,771) * lu(k,766) + lu(k,772) = lu(k,772) * lu(k,766) + lu(k,773) = lu(k,773) * lu(k,766) + lu(k,774) = lu(k,774) * lu(k,766) + lu(k,775) = lu(k,775) * lu(k,766) + lu(k,776) = lu(k,776) * lu(k,766) + lu(k,1745) = lu(k,1745) - lu(k,767) * lu(k,1744) + lu(k,1754) = lu(k,1754) - lu(k,768) * lu(k,1744) + lu(k,1763) = lu(k,1763) - lu(k,769) * lu(k,1744) + lu(k,1773) = lu(k,1773) - lu(k,770) * lu(k,1744) + lu(k,1782) = lu(k,1782) - lu(k,771) * lu(k,1744) + lu(k,1788) = lu(k,1788) - lu(k,772) * lu(k,1744) + lu(k,1798) = lu(k,1798) - lu(k,773) * lu(k,1744) + lu(k,1800) = lu(k,1800) - lu(k,774) * lu(k,1744) + lu(k,1802) = lu(k,1802) - lu(k,775) * lu(k,1744) + lu(k,1808) = lu(k,1808) - lu(k,776) * lu(k,1744) + lu(k,1968) = lu(k,1968) - lu(k,767) * lu(k,1967) + lu(k,1976) = lu(k,1976) - lu(k,768) * lu(k,1967) + lu(k,1980) = lu(k,1980) - lu(k,769) * lu(k,1967) + lu(k,1989) = lu(k,1989) - lu(k,770) * lu(k,1967) + lu(k,1998) = lu(k,1998) - lu(k,771) * lu(k,1967) + lu(k,2004) = lu(k,2004) - lu(k,772) * lu(k,1967) + lu(k,2011) = lu(k,2011) - lu(k,773) * lu(k,1967) + lu(k,2013) = lu(k,2013) - lu(k,774) * lu(k,1967) + lu(k,2015) = lu(k,2015) - lu(k,775) * lu(k,1967) + lu(k,2021) = lu(k,2021) - lu(k,776) * lu(k,1967) + lu(k,2292) = lu(k,2292) - lu(k,767) * lu(k,2291) + lu(k,2300) = lu(k,2300) - lu(k,768) * lu(k,2291) + lu(k,2304) = lu(k,2304) - lu(k,769) * lu(k,2291) + lu(k,2311) = lu(k,2311) - lu(k,770) * lu(k,2291) + lu(k,2319) = lu(k,2319) - lu(k,771) * lu(k,2291) + lu(k,2325) = lu(k,2325) - lu(k,772) * lu(k,2291) + lu(k,2334) = lu(k,2334) - lu(k,773) * lu(k,2291) + lu(k,2336) = lu(k,2336) - lu(k,774) * lu(k,2291) + lu(k,2338) = lu(k,2338) - lu(k,775) * lu(k,2291) + lu(k,2344) = lu(k,2344) - lu(k,776) * lu(k,2291) + lu(k,777) = 1._r8 / lu(k,777) + lu(k,778) = lu(k,778) * lu(k,777) + lu(k,779) = lu(k,779) * lu(k,777) + lu(k,780) = lu(k,780) * lu(k,777) + lu(k,781) = lu(k,781) * lu(k,777) + lu(k,782) = lu(k,782) * lu(k,777) + lu(k,783) = lu(k,783) * lu(k,777) + lu(k,784) = lu(k,784) * lu(k,777) + lu(k,1773) = lu(k,1773) - lu(k,778) * lu(k,1745) + lu(k,1782) = lu(k,1782) - lu(k,779) * lu(k,1745) + lu(k,1798) = lu(k,1798) - lu(k,780) * lu(k,1745) + lu(k,1800) = lu(k,1800) - lu(k,781) * lu(k,1745) + lu(k,1802) = lu(k,1802) - lu(k,782) * lu(k,1745) + lu(k,1808) = lu(k,1808) - lu(k,783) * lu(k,1745) + lu(k,1810) = lu(k,1810) - lu(k,784) * lu(k,1745) + lu(k,1876) = lu(k,1876) - lu(k,778) * lu(k,1869) + lu(k,1878) = - lu(k,779) * lu(k,1869) + lu(k,1889) = lu(k,1889) - lu(k,780) * lu(k,1869) + lu(k,1891) = lu(k,1891) - lu(k,781) * lu(k,1869) + lu(k,1893) = lu(k,1893) - lu(k,782) * lu(k,1869) + lu(k,1899) = lu(k,1899) - lu(k,783) * lu(k,1869) + lu(k,1901) = lu(k,1901) - lu(k,784) * lu(k,1869) + lu(k,1989) = lu(k,1989) - lu(k,778) * lu(k,1968) + lu(k,1998) = lu(k,1998) - lu(k,779) * lu(k,1968) + lu(k,2011) = lu(k,2011) - lu(k,780) * lu(k,1968) + lu(k,2013) = lu(k,2013) - lu(k,781) * lu(k,1968) + lu(k,2015) = lu(k,2015) - lu(k,782) * lu(k,1968) + lu(k,2021) = lu(k,2021) - lu(k,783) * lu(k,1968) + lu(k,2023) = lu(k,2023) - lu(k,784) * lu(k,1968) + lu(k,2311) = lu(k,2311) - lu(k,778) * lu(k,2292) + lu(k,2319) = lu(k,2319) - lu(k,779) * lu(k,2292) + lu(k,2334) = lu(k,2334) - lu(k,780) * lu(k,2292) + lu(k,2336) = lu(k,2336) - lu(k,781) * lu(k,2292) + lu(k,2338) = lu(k,2338) - lu(k,782) * lu(k,2292) + lu(k,2344) = lu(k,2344) - lu(k,783) * lu(k,2292) + lu(k,2346) = lu(k,2346) - lu(k,784) * lu(k,2292) end do end subroutine lu_fac16 subroutine lu_fac17( avec_len, lu ) @@ -2589,228 +2548,181 @@ subroutine lu_fac17( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,797) = 1._r8 / lu(k,797) - lu(k,798) = lu(k,798) * lu(k,797) - lu(k,799) = lu(k,799) * lu(k,797) - lu(k,800) = lu(k,800) * lu(k,797) - lu(k,801) = lu(k,801) * lu(k,797) - lu(k,802) = lu(k,802) * lu(k,797) - lu(k,803) = lu(k,803) * lu(k,797) - lu(k,804) = lu(k,804) * lu(k,797) - lu(k,1794) = lu(k,1794) - lu(k,798) * lu(k,1766) - lu(k,1814) = lu(k,1814) - lu(k,799) * lu(k,1766) - lu(k,1818) = lu(k,1818) - lu(k,800) * lu(k,1766) - lu(k,1819) = lu(k,1819) - lu(k,801) * lu(k,1766) - lu(k,1820) = lu(k,1820) - lu(k,802) * lu(k,1766) - lu(k,1821) = lu(k,1821) - lu(k,803) * lu(k,1766) - lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1766) - lu(k,1892) = lu(k,1892) - lu(k,798) * lu(k,1871) - lu(k,1909) = lu(k,1909) - lu(k,799) * lu(k,1871) - lu(k,1913) = lu(k,1913) - lu(k,800) * lu(k,1871) - lu(k,1914) = lu(k,1914) - lu(k,801) * lu(k,1871) - lu(k,1915) = lu(k,1915) - lu(k,802) * lu(k,1871) - lu(k,1916) = lu(k,1916) - lu(k,803) * lu(k,1871) - lu(k,1924) = lu(k,1924) - lu(k,804) * lu(k,1871) - lu(k,2148) = - lu(k,798) * lu(k,2138) - lu(k,2156) = lu(k,2156) - lu(k,799) * lu(k,2138) - lu(k,2160) = lu(k,2160) - lu(k,800) * lu(k,2138) - lu(k,2161) = - lu(k,801) * lu(k,2138) - lu(k,2162) = - lu(k,802) * lu(k,2138) - lu(k,2163) = lu(k,2163) - lu(k,803) * lu(k,2138) - lu(k,2171) = lu(k,2171) - lu(k,804) * lu(k,2138) - lu(k,2204) = - lu(k,798) * lu(k,2188) - lu(k,2220) = lu(k,2220) - lu(k,799) * lu(k,2188) - lu(k,2224) = lu(k,2224) - lu(k,800) * lu(k,2188) - lu(k,2225) = lu(k,2225) - lu(k,801) * lu(k,2188) - lu(k,2226) = lu(k,2226) - lu(k,802) * lu(k,2188) - lu(k,2227) = lu(k,2227) - lu(k,803) * lu(k,2188) - lu(k,2235) = lu(k,2235) - lu(k,804) * lu(k,2188) - lu(k,2335) = lu(k,2335) - lu(k,798) * lu(k,2317) - lu(k,2353) = lu(k,2353) - lu(k,799) * lu(k,2317) - lu(k,2357) = lu(k,2357) - lu(k,800) * lu(k,2317) - lu(k,2358) = lu(k,2358) - lu(k,801) * lu(k,2317) - lu(k,2359) = lu(k,2359) - lu(k,802) * lu(k,2317) - lu(k,2360) = lu(k,2360) - lu(k,803) * lu(k,2317) - lu(k,2368) = lu(k,2368) - lu(k,804) * lu(k,2317) - lu(k,805) = 1._r8 / lu(k,805) - lu(k,806) = lu(k,806) * lu(k,805) - lu(k,807) = lu(k,807) * lu(k,805) - lu(k,808) = lu(k,808) * lu(k,805) - lu(k,809) = lu(k,809) * lu(k,805) - lu(k,810) = lu(k,810) * lu(k,805) - lu(k,811) = lu(k,811) * lu(k,805) - lu(k,812) = lu(k,812) * lu(k,805) - lu(k,863) = lu(k,863) - lu(k,806) * lu(k,862) - lu(k,864) = lu(k,864) - lu(k,807) * lu(k,862) - lu(k,866) = lu(k,866) - lu(k,808) * lu(k,862) - lu(k,867) = - lu(k,809) * lu(k,862) - lu(k,868) = - lu(k,810) * lu(k,862) - lu(k,869) = lu(k,869) - lu(k,811) * lu(k,862) - lu(k,872) = lu(k,872) - lu(k,812) * lu(k,862) - lu(k,996) = lu(k,996) - lu(k,806) * lu(k,995) - lu(k,997) = lu(k,997) - lu(k,807) * lu(k,995) - lu(k,999) = lu(k,999) - lu(k,808) * lu(k,995) - lu(k,1000) = - lu(k,809) * lu(k,995) - lu(k,1001) = - lu(k,810) * lu(k,995) - lu(k,1002) = lu(k,1002) - lu(k,811) * lu(k,995) - lu(k,1007) = lu(k,1007) - lu(k,812) * lu(k,995) - lu(k,1445) = - lu(k,806) * lu(k,1444) - lu(k,1446) = lu(k,1446) - lu(k,807) * lu(k,1444) - lu(k,1448) = - lu(k,808) * lu(k,1444) - lu(k,1449) = lu(k,1449) - lu(k,809) * lu(k,1444) - lu(k,1450) = lu(k,1450) - lu(k,810) * lu(k,1444) - lu(k,1451) = lu(k,1451) - lu(k,811) * lu(k,1444) - lu(k,1456) = lu(k,1456) - lu(k,812) * lu(k,1444) - lu(k,1532) = lu(k,1532) - lu(k,806) * lu(k,1531) - lu(k,1533) = lu(k,1533) - lu(k,807) * lu(k,1531) - lu(k,1536) = lu(k,1536) - lu(k,808) * lu(k,1531) - lu(k,1537) = - lu(k,809) * lu(k,1531) - lu(k,1539) = - lu(k,810) * lu(k,1531) - lu(k,1542) = lu(k,1542) - lu(k,811) * lu(k,1531) - lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1531) - lu(k,2077) = lu(k,2077) - lu(k,806) * lu(k,2074) - lu(k,2078) = lu(k,2078) - lu(k,807) * lu(k,2074) - lu(k,2082) = lu(k,2082) - lu(k,808) * lu(k,2074) - lu(k,2083) = lu(k,2083) - lu(k,809) * lu(k,2074) - lu(k,2084) = - lu(k,810) * lu(k,2074) - lu(k,2089) = lu(k,2089) - lu(k,811) * lu(k,2074) - lu(k,2099) = lu(k,2099) - lu(k,812) * lu(k,2074) - lu(k,814) = 1._r8 / lu(k,814) - lu(k,815) = lu(k,815) * lu(k,814) - lu(k,816) = lu(k,816) * lu(k,814) - lu(k,817) = lu(k,817) * lu(k,814) - lu(k,818) = lu(k,818) * lu(k,814) - lu(k,819) = lu(k,819) * lu(k,814) - lu(k,820) = lu(k,820) * lu(k,814) - lu(k,821) = lu(k,821) * lu(k,814) - lu(k,822) = lu(k,822) * lu(k,814) - lu(k,823) = lu(k,823) * lu(k,814) - lu(k,1134) = lu(k,1134) - lu(k,815) * lu(k,1130) - lu(k,1136) = - lu(k,816) * lu(k,1130) - lu(k,1140) = - lu(k,817) * lu(k,1130) - lu(k,1142) = lu(k,1142) - lu(k,818) * lu(k,1130) - lu(k,1143) = - lu(k,819) * lu(k,1130) - lu(k,1144) = - lu(k,820) * lu(k,1130) - lu(k,1145) = lu(k,1145) - lu(k,821) * lu(k,1130) - lu(k,1148) = lu(k,1148) - lu(k,822) * lu(k,1130) - lu(k,1150) = lu(k,1150) - lu(k,823) * lu(k,1130) - lu(k,1792) = lu(k,1792) - lu(k,815) * lu(k,1767) - lu(k,1797) = lu(k,1797) - lu(k,816) * lu(k,1767) - lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1767) - lu(k,1818) = lu(k,1818) - lu(k,818) * lu(k,1767) - lu(k,1819) = lu(k,1819) - lu(k,819) * lu(k,1767) - lu(k,1820) = lu(k,1820) - lu(k,820) * lu(k,1767) - lu(k,1821) = lu(k,1821) - lu(k,821) * lu(k,1767) - lu(k,1829) = lu(k,1829) - lu(k,822) * lu(k,1767) - lu(k,1831) = lu(k,1831) - lu(k,823) * lu(k,1767) - lu(k,1890) = lu(k,1890) - lu(k,815) * lu(k,1872) - lu(k,1895) = lu(k,1895) - lu(k,816) * lu(k,1872) - lu(k,1909) = lu(k,1909) - lu(k,817) * lu(k,1872) - lu(k,1913) = lu(k,1913) - lu(k,818) * lu(k,1872) - lu(k,1914) = lu(k,1914) - lu(k,819) * lu(k,1872) - lu(k,1915) = lu(k,1915) - lu(k,820) * lu(k,1872) - lu(k,1916) = lu(k,1916) - lu(k,821) * lu(k,1872) - lu(k,1924) = lu(k,1924) - lu(k,822) * lu(k,1872) - lu(k,1926) = - lu(k,823) * lu(k,1872) - lu(k,2333) = lu(k,2333) - lu(k,815) * lu(k,2318) - lu(k,2337) = lu(k,2337) - lu(k,816) * lu(k,2318) - lu(k,2353) = lu(k,2353) - lu(k,817) * lu(k,2318) - lu(k,2357) = lu(k,2357) - lu(k,818) * lu(k,2318) - lu(k,2358) = lu(k,2358) - lu(k,819) * lu(k,2318) - lu(k,2359) = lu(k,2359) - lu(k,820) * lu(k,2318) - lu(k,2360) = lu(k,2360) - lu(k,821) * lu(k,2318) - lu(k,2368) = lu(k,2368) - lu(k,822) * lu(k,2318) - lu(k,2370) = lu(k,2370) - lu(k,823) * lu(k,2318) - lu(k,824) = 1._r8 / lu(k,824) - lu(k,825) = lu(k,825) * lu(k,824) - lu(k,826) = lu(k,826) * lu(k,824) - lu(k,827) = lu(k,827) * lu(k,824) - lu(k,904) = lu(k,904) - lu(k,825) * lu(k,900) - lu(k,907) = lu(k,907) - lu(k,826) * lu(k,900) - lu(k,908) = lu(k,908) - lu(k,827) * lu(k,900) - lu(k,1065) = lu(k,1065) - lu(k,825) * lu(k,1061) - lu(k,1068) = lu(k,1068) - lu(k,826) * lu(k,1061) - lu(k,1070) = lu(k,1070) - lu(k,827) * lu(k,1061) - lu(k,1111) = lu(k,1111) - lu(k,825) * lu(k,1104) - lu(k,1114) = lu(k,1114) - lu(k,826) * lu(k,1104) - lu(k,1116) = lu(k,1116) - lu(k,827) * lu(k,1104) - lu(k,1182) = lu(k,1182) - lu(k,825) * lu(k,1173) - lu(k,1185) = lu(k,1185) - lu(k,826) * lu(k,1173) - lu(k,1187) = lu(k,1187) - lu(k,827) * lu(k,1173) - lu(k,1220) = lu(k,1220) - lu(k,825) * lu(k,1215) - lu(k,1223) = lu(k,1223) - lu(k,826) * lu(k,1215) - lu(k,1224) = lu(k,1224) - lu(k,827) * lu(k,1215) - lu(k,1238) = lu(k,1238) - lu(k,825) * lu(k,1228) - lu(k,1241) = lu(k,1241) - lu(k,826) * lu(k,1228) - lu(k,1242) = lu(k,1242) - lu(k,827) * lu(k,1228) - lu(k,1260) = lu(k,1260) - lu(k,825) * lu(k,1247) - lu(k,1263) = lu(k,1263) - lu(k,826) * lu(k,1247) - lu(k,1265) = lu(k,1265) - lu(k,827) * lu(k,1247) - lu(k,1306) = lu(k,1306) - lu(k,825) * lu(k,1291) - lu(k,1309) = lu(k,1309) - lu(k,826) * lu(k,1291) - lu(k,1312) = lu(k,1312) - lu(k,827) * lu(k,1291) - lu(k,1339) = lu(k,1339) - lu(k,825) * lu(k,1320) - lu(k,1342) = lu(k,1342) - lu(k,826) * lu(k,1320) - lu(k,1345) = lu(k,1345) - lu(k,827) * lu(k,1320) - lu(k,1361) = lu(k,1361) - lu(k,825) * lu(k,1349) - lu(k,1364) = lu(k,1364) - lu(k,826) * lu(k,1349) - lu(k,1366) = lu(k,1366) - lu(k,827) * lu(k,1349) - lu(k,1818) = lu(k,1818) - lu(k,825) * lu(k,1768) - lu(k,1821) = lu(k,1821) - lu(k,826) * lu(k,1768) - lu(k,1829) = lu(k,1829) - lu(k,827) * lu(k,1768) - lu(k,2409) = lu(k,2409) - lu(k,825) * lu(k,2377) - lu(k,2412) = lu(k,2412) - lu(k,826) * lu(k,2377) - lu(k,2420) = lu(k,2420) - lu(k,827) * lu(k,2377) - lu(k,828) = 1._r8 / lu(k,828) - lu(k,829) = lu(k,829) * lu(k,828) - lu(k,830) = lu(k,830) * lu(k,828) - lu(k,831) = lu(k,831) * lu(k,828) - lu(k,832) = lu(k,832) * lu(k,828) - lu(k,833) = lu(k,833) * lu(k,828) - lu(k,834) = lu(k,834) * lu(k,828) - lu(k,835) = lu(k,835) * lu(k,828) - lu(k,1511) = lu(k,1511) - lu(k,829) * lu(k,1508) - lu(k,1513) = lu(k,1513) - lu(k,830) * lu(k,1508) - lu(k,1514) = - lu(k,831) * lu(k,1508) - lu(k,1518) = - lu(k,832) * lu(k,1508) - lu(k,1519) = - lu(k,833) * lu(k,1508) - lu(k,1520) = - lu(k,834) * lu(k,1508) - lu(k,1523) = - lu(k,835) * lu(k,1508) - lu(k,1813) = lu(k,1813) - lu(k,829) * lu(k,1769) - lu(k,1815) = lu(k,1815) - lu(k,830) * lu(k,1769) - lu(k,1818) = lu(k,1818) - lu(k,831) * lu(k,1769) - lu(k,1822) = lu(k,1822) - lu(k,832) * lu(k,1769) - lu(k,1824) = lu(k,1824) - lu(k,833) * lu(k,1769) - lu(k,1825) = lu(k,1825) - lu(k,834) * lu(k,1769) - lu(k,1831) = lu(k,1831) - lu(k,835) * lu(k,1769) - lu(k,1979) = lu(k,1979) - lu(k,829) * lu(k,1973) - lu(k,1981) = - lu(k,830) * lu(k,1973) - lu(k,1984) = lu(k,1984) - lu(k,831) * lu(k,1973) - lu(k,1988) = - lu(k,832) * lu(k,1973) - lu(k,1990) = lu(k,1990) - lu(k,833) * lu(k,1973) - lu(k,1991) = lu(k,1991) - lu(k,834) * lu(k,1973) - lu(k,1997) = lu(k,1997) - lu(k,835) * lu(k,1973) - lu(k,2022) = lu(k,2022) - lu(k,829) * lu(k,2018) - lu(k,2024) = lu(k,2024) - lu(k,830) * lu(k,2018) - lu(k,2027) = lu(k,2027) - lu(k,831) * lu(k,2018) - lu(k,2031) = lu(k,2031) - lu(k,832) * lu(k,2018) - lu(k,2033) = lu(k,2033) - lu(k,833) * lu(k,2018) - lu(k,2034) = lu(k,2034) - lu(k,834) * lu(k,2018) - lu(k,2040) = lu(k,2040) - lu(k,835) * lu(k,2018) - lu(k,2088) = lu(k,2088) - lu(k,829) * lu(k,2075) - lu(k,2090) = lu(k,2090) - lu(k,830) * lu(k,2075) - lu(k,2093) = lu(k,2093) - lu(k,831) * lu(k,2075) - lu(k,2097) = lu(k,2097) - lu(k,832) * lu(k,2075) - lu(k,2099) = lu(k,2099) - lu(k,833) * lu(k,2075) - lu(k,2100) = lu(k,2100) - lu(k,834) * lu(k,2075) - lu(k,2106) = lu(k,2106) - lu(k,835) * lu(k,2075) - lu(k,2352) = lu(k,2352) - lu(k,829) * lu(k,2319) - lu(k,2354) = lu(k,2354) - lu(k,830) * lu(k,2319) - lu(k,2357) = lu(k,2357) - lu(k,831) * lu(k,2319) - lu(k,2361) = - lu(k,832) * lu(k,2319) - lu(k,2363) = lu(k,2363) - lu(k,833) * lu(k,2319) - lu(k,2364) = lu(k,2364) - lu(k,834) * lu(k,2319) - lu(k,2370) = lu(k,2370) - lu(k,835) * lu(k,2319) + lu(k,786) = 1._r8 / lu(k,786) + lu(k,787) = lu(k,787) * lu(k,786) + lu(k,788) = lu(k,788) * lu(k,786) + lu(k,789) = lu(k,789) * lu(k,786) + lu(k,790) = lu(k,790) * lu(k,786) + lu(k,791) = lu(k,791) * lu(k,786) + lu(k,792) = lu(k,792) * lu(k,786) + lu(k,793) = lu(k,793) * lu(k,786) + lu(k,1494) = lu(k,1494) - lu(k,787) * lu(k,1491) + lu(k,1495) = lu(k,1495) - lu(k,788) * lu(k,1491) + lu(k,1496) = - lu(k,789) * lu(k,1491) + lu(k,1498) = lu(k,1498) - lu(k,790) * lu(k,1491) + lu(k,1499) = lu(k,1499) - lu(k,791) * lu(k,1491) + lu(k,1501) = lu(k,1501) - lu(k,792) * lu(k,1491) + lu(k,1506) = lu(k,1506) - lu(k,793) * lu(k,1491) + lu(k,1586) = - lu(k,787) * lu(k,1583) + lu(k,1587) = lu(k,1587) - lu(k,788) * lu(k,1583) + lu(k,1589) = lu(k,1589) - lu(k,789) * lu(k,1583) + lu(k,1591) = lu(k,1591) - lu(k,790) * lu(k,1583) + lu(k,1592) = lu(k,1592) - lu(k,791) * lu(k,1583) + lu(k,1596) = lu(k,1596) - lu(k,792) * lu(k,1583) + lu(k,1603) = - lu(k,793) * lu(k,1583) + lu(k,1883) = - lu(k,787) * lu(k,1870) + lu(k,1884) = lu(k,1884) - lu(k,788) * lu(k,1870) + lu(k,1887) = lu(k,1887) - lu(k,789) * lu(k,1870) + lu(k,1889) = lu(k,1889) - lu(k,790) * lu(k,1870) + lu(k,1890) = - lu(k,791) * lu(k,1870) + lu(k,1894) = lu(k,1894) - lu(k,792) * lu(k,1870) + lu(k,1902) = lu(k,1902) - lu(k,793) * lu(k,1870) + lu(k,2048) = lu(k,2048) - lu(k,787) * lu(k,2034) + lu(k,2049) = lu(k,2049) - lu(k,788) * lu(k,2034) + lu(k,2052) = lu(k,2052) - lu(k,789) * lu(k,2034) + lu(k,2054) = lu(k,2054) - lu(k,790) * lu(k,2034) + lu(k,2055) = lu(k,2055) - lu(k,791) * lu(k,2034) + lu(k,2059) = lu(k,2059) - lu(k,792) * lu(k,2034) + lu(k,2067) = lu(k,2067) - lu(k,793) * lu(k,2034) + lu(k,2328) = lu(k,2328) - lu(k,787) * lu(k,2293) + lu(k,2329) = lu(k,2329) - lu(k,788) * lu(k,2293) + lu(k,2332) = lu(k,2332) - lu(k,789) * lu(k,2293) + lu(k,2334) = lu(k,2334) - lu(k,790) * lu(k,2293) + lu(k,2335) = lu(k,2335) - lu(k,791) * lu(k,2293) + lu(k,2339) = lu(k,2339) - lu(k,792) * lu(k,2293) + lu(k,2347) = lu(k,2347) - lu(k,793) * lu(k,2293) + lu(k,796) = 1._r8 / lu(k,796) + lu(k,797) = lu(k,797) * lu(k,796) + lu(k,798) = lu(k,798) * lu(k,796) + lu(k,799) = lu(k,799) * lu(k,796) + lu(k,800) = lu(k,800) * lu(k,796) + lu(k,801) = lu(k,801) * lu(k,796) + lu(k,802) = lu(k,802) * lu(k,796) + lu(k,803) = lu(k,803) * lu(k,796) + lu(k,1774) = lu(k,1774) - lu(k,797) * lu(k,1746) + lu(k,1794) = lu(k,1794) - lu(k,798) * lu(k,1746) + lu(k,1798) = lu(k,1798) - lu(k,799) * lu(k,1746) + lu(k,1800) = lu(k,1800) - lu(k,800) * lu(k,1746) + lu(k,1801) = lu(k,1801) - lu(k,801) * lu(k,1746) + lu(k,1802) = lu(k,1802) - lu(k,802) * lu(k,1746) + lu(k,1808) = lu(k,1808) - lu(k,803) * lu(k,1746) + lu(k,1832) = - lu(k,797) * lu(k,1822) + lu(k,1840) = lu(k,1840) - lu(k,798) * lu(k,1822) + lu(k,1844) = lu(k,1844) - lu(k,799) * lu(k,1822) + lu(k,1846) = - lu(k,800) * lu(k,1822) + lu(k,1847) = lu(k,1847) - lu(k,801) * lu(k,1822) + lu(k,1848) = - lu(k,802) * lu(k,1822) + lu(k,1854) = lu(k,1854) - lu(k,803) * lu(k,1822) + lu(k,1990) = lu(k,1990) - lu(k,797) * lu(k,1969) + lu(k,2007) = lu(k,2007) - lu(k,798) * lu(k,1969) + lu(k,2011) = lu(k,2011) - lu(k,799) * lu(k,1969) + lu(k,2013) = lu(k,2013) - lu(k,800) * lu(k,1969) + lu(k,2014) = lu(k,2014) - lu(k,801) * lu(k,1969) + lu(k,2015) = lu(k,2015) - lu(k,802) * lu(k,1969) + lu(k,2021) = lu(k,2021) - lu(k,803) * lu(k,1969) + lu(k,2098) = - lu(k,797) * lu(k,2082) + lu(k,2114) = lu(k,2114) - lu(k,798) * lu(k,2082) + lu(k,2118) = lu(k,2118) - lu(k,799) * lu(k,2082) + lu(k,2120) = lu(k,2120) - lu(k,800) * lu(k,2082) + lu(k,2121) = lu(k,2121) - lu(k,801) * lu(k,2082) + lu(k,2122) = lu(k,2122) - lu(k,802) * lu(k,2082) + lu(k,2128) = lu(k,2128) - lu(k,803) * lu(k,2082) + lu(k,2312) = lu(k,2312) - lu(k,797) * lu(k,2294) + lu(k,2330) = lu(k,2330) - lu(k,798) * lu(k,2294) + lu(k,2334) = lu(k,2334) - lu(k,799) * lu(k,2294) + lu(k,2336) = lu(k,2336) - lu(k,800) * lu(k,2294) + lu(k,2337) = lu(k,2337) - lu(k,801) * lu(k,2294) + lu(k,2338) = lu(k,2338) - lu(k,802) * lu(k,2294) + lu(k,2344) = lu(k,2344) - lu(k,803) * lu(k,2294) + lu(k,804) = 1._r8 / lu(k,804) + lu(k,805) = lu(k,805) * lu(k,804) + lu(k,806) = lu(k,806) * lu(k,804) + lu(k,807) = lu(k,807) * lu(k,804) + lu(k,808) = lu(k,808) * lu(k,804) + lu(k,809) = lu(k,809) * lu(k,804) + lu(k,810) = lu(k,810) * lu(k,804) + lu(k,811) = lu(k,811) * lu(k,804) + lu(k,862) = lu(k,862) - lu(k,805) * lu(k,861) + lu(k,863) = lu(k,863) - lu(k,806) * lu(k,861) + lu(k,865) = lu(k,865) - lu(k,807) * lu(k,861) + lu(k,866) = - lu(k,808) * lu(k,861) + lu(k,867) = - lu(k,809) * lu(k,861) + lu(k,868) = lu(k,868) - lu(k,810) * lu(k,861) + lu(k,871) = lu(k,871) - lu(k,811) * lu(k,861) + lu(k,1045) = lu(k,1045) - lu(k,805) * lu(k,1044) + lu(k,1046) = lu(k,1046) - lu(k,806) * lu(k,1044) + lu(k,1048) = lu(k,1048) - lu(k,807) * lu(k,1044) + lu(k,1049) = - lu(k,808) * lu(k,1044) + lu(k,1050) = - lu(k,809) * lu(k,1044) + lu(k,1051) = lu(k,1051) - lu(k,810) * lu(k,1044) + lu(k,1056) = lu(k,1056) - lu(k,811) * lu(k,1044) + lu(k,1444) = - lu(k,805) * lu(k,1443) + lu(k,1445) = lu(k,1445) - lu(k,806) * lu(k,1443) + lu(k,1447) = - lu(k,807) * lu(k,1443) + lu(k,1448) = lu(k,1448) - lu(k,808) * lu(k,1443) + lu(k,1449) = lu(k,1449) - lu(k,809) * lu(k,1443) + lu(k,1450) = lu(k,1450) - lu(k,810) * lu(k,1443) + lu(k,1455) = lu(k,1455) - lu(k,811) * lu(k,1443) + lu(k,1531) = lu(k,1531) - lu(k,805) * lu(k,1530) + lu(k,1532) = lu(k,1532) - lu(k,806) * lu(k,1530) + lu(k,1535) = lu(k,1535) - lu(k,807) * lu(k,1530) + lu(k,1536) = - lu(k,808) * lu(k,1530) + lu(k,1538) = - lu(k,809) * lu(k,1530) + lu(k,1541) = lu(k,1541) - lu(k,810) * lu(k,1530) + lu(k,1549) = lu(k,1549) - lu(k,811) * lu(k,1530) + lu(k,2038) = lu(k,2038) - lu(k,805) * lu(k,2035) + lu(k,2039) = lu(k,2039) - lu(k,806) * lu(k,2035) + lu(k,2043) = lu(k,2043) - lu(k,807) * lu(k,2035) + lu(k,2044) = lu(k,2044) - lu(k,808) * lu(k,2035) + lu(k,2045) = - lu(k,809) * lu(k,2035) + lu(k,2050) = lu(k,2050) - lu(k,810) * lu(k,2035) + lu(k,2059) = lu(k,2059) - lu(k,811) * lu(k,2035) + lu(k,813) = 1._r8 / lu(k,813) + lu(k,814) = lu(k,814) * lu(k,813) + lu(k,815) = lu(k,815) * lu(k,813) + lu(k,816) = lu(k,816) * lu(k,813) + lu(k,817) = lu(k,817) * lu(k,813) + lu(k,818) = lu(k,818) * lu(k,813) + lu(k,819) = lu(k,819) * lu(k,813) + lu(k,820) = lu(k,820) * lu(k,813) + lu(k,821) = lu(k,821) * lu(k,813) + lu(k,822) = lu(k,822) * lu(k,813) + lu(k,1133) = lu(k,1133) - lu(k,814) * lu(k,1129) + lu(k,1135) = - lu(k,815) * lu(k,1129) + lu(k,1139) = - lu(k,816) * lu(k,1129) + lu(k,1141) = lu(k,1141) - lu(k,817) * lu(k,1129) + lu(k,1142) = - lu(k,818) * lu(k,1129) + lu(k,1143) = lu(k,1143) - lu(k,819) * lu(k,1129) + lu(k,1144) = - lu(k,820) * lu(k,1129) + lu(k,1147) = lu(k,1147) - lu(k,821) * lu(k,1129) + lu(k,1149) = lu(k,1149) - lu(k,822) * lu(k,1129) + lu(k,1772) = lu(k,1772) - lu(k,814) * lu(k,1747) + lu(k,1777) = lu(k,1777) - lu(k,815) * lu(k,1747) + lu(k,1794) = lu(k,1794) - lu(k,816) * lu(k,1747) + lu(k,1798) = lu(k,1798) - lu(k,817) * lu(k,1747) + lu(k,1800) = lu(k,1800) - lu(k,818) * lu(k,1747) + lu(k,1801) = lu(k,1801) - lu(k,819) * lu(k,1747) + lu(k,1802) = lu(k,1802) - lu(k,820) * lu(k,1747) + lu(k,1808) = lu(k,1808) - lu(k,821) * lu(k,1747) + lu(k,1811) = lu(k,1811) - lu(k,822) * lu(k,1747) + lu(k,1988) = lu(k,1988) - lu(k,814) * lu(k,1970) + lu(k,1993) = lu(k,1993) - lu(k,815) * lu(k,1970) + lu(k,2007) = lu(k,2007) - lu(k,816) * lu(k,1970) + lu(k,2011) = lu(k,2011) - lu(k,817) * lu(k,1970) + lu(k,2013) = lu(k,2013) - lu(k,818) * lu(k,1970) + lu(k,2014) = lu(k,2014) - lu(k,819) * lu(k,1970) + lu(k,2015) = lu(k,2015) - lu(k,820) * lu(k,1970) + lu(k,2021) = lu(k,2021) - lu(k,821) * lu(k,1970) + lu(k,2024) = - lu(k,822) * lu(k,1970) + lu(k,2310) = lu(k,2310) - lu(k,814) * lu(k,2295) + lu(k,2314) = lu(k,2314) - lu(k,815) * lu(k,2295) + lu(k,2330) = lu(k,2330) - lu(k,816) * lu(k,2295) + lu(k,2334) = lu(k,2334) - lu(k,817) * lu(k,2295) + lu(k,2336) = lu(k,2336) - lu(k,818) * lu(k,2295) + lu(k,2337) = lu(k,2337) - lu(k,819) * lu(k,2295) + lu(k,2338) = lu(k,2338) - lu(k,820) * lu(k,2295) + lu(k,2344) = lu(k,2344) - lu(k,821) * lu(k,2295) + lu(k,2347) = lu(k,2347) - lu(k,822) * lu(k,2295) end do end subroutine lu_fac17 subroutine lu_fac18( avec_len, lu ) @@ -2827,251 +2739,280 @@ subroutine lu_fac18( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,837) = 1._r8 / lu(k,837) - lu(k,838) = lu(k,838) * lu(k,837) - lu(k,839) = lu(k,839) * lu(k,837) - lu(k,840) = lu(k,840) * lu(k,837) - lu(k,841) = lu(k,841) * lu(k,837) - lu(k,842) = lu(k,842) * lu(k,837) - lu(k,843) = lu(k,843) * lu(k,837) - lu(k,956) = lu(k,956) - lu(k,838) * lu(k,954) - lu(k,957) = lu(k,957) - lu(k,839) * lu(k,954) - lu(k,959) = lu(k,959) - lu(k,840) * lu(k,954) - lu(k,962) = lu(k,962) - lu(k,841) * lu(k,954) - lu(k,963) = lu(k,963) - lu(k,842) * lu(k,954) - lu(k,964) = - lu(k,843) * lu(k,954) - lu(k,1495) = lu(k,1495) - lu(k,838) * lu(k,1493) - lu(k,1498) = lu(k,1498) - lu(k,839) * lu(k,1493) - lu(k,1500) = lu(k,1500) - lu(k,840) * lu(k,1493) - lu(k,1504) = lu(k,1504) - lu(k,841) * lu(k,1493) - lu(k,1506) = lu(k,1506) - lu(k,842) * lu(k,1493) - lu(k,1507) = lu(k,1507) - lu(k,843) * lu(k,1493) - lu(k,1588) = lu(k,1588) - lu(k,838) * lu(k,1584) - lu(k,1592) = lu(k,1592) - lu(k,839) * lu(k,1584) - lu(k,1594) = lu(k,1594) - lu(k,840) * lu(k,1584) - lu(k,1600) = lu(k,1600) - lu(k,841) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,842) * lu(k,1584) - lu(k,1606) = - lu(k,843) * lu(k,1584) - lu(k,1812) = lu(k,1812) - lu(k,838) * lu(k,1770) - lu(k,1816) = lu(k,1816) - lu(k,839) * lu(k,1770) - lu(k,1818) = lu(k,1818) - lu(k,840) * lu(k,1770) - lu(k,1824) = lu(k,1824) - lu(k,841) * lu(k,1770) - lu(k,1826) = lu(k,1826) - lu(k,842) * lu(k,1770) - lu(k,1831) = lu(k,1831) - lu(k,843) * lu(k,1770) - lu(k,2087) = lu(k,2087) - lu(k,838) * lu(k,2076) - lu(k,2091) = lu(k,2091) - lu(k,839) * lu(k,2076) - lu(k,2093) = lu(k,2093) - lu(k,840) * lu(k,2076) - lu(k,2099) = lu(k,2099) - lu(k,841) * lu(k,2076) - lu(k,2101) = lu(k,2101) - lu(k,842) * lu(k,2076) - lu(k,2106) = lu(k,2106) - lu(k,843) * lu(k,2076) - lu(k,2154) = lu(k,2154) - lu(k,838) * lu(k,2139) - lu(k,2158) = lu(k,2158) - lu(k,839) * lu(k,2139) - lu(k,2160) = lu(k,2160) - lu(k,840) * lu(k,2139) - lu(k,2166) = lu(k,2166) - lu(k,841) * lu(k,2139) - lu(k,2168) = lu(k,2168) - lu(k,842) * lu(k,2139) - lu(k,2173) = lu(k,2173) - lu(k,843) * lu(k,2139) - lu(k,2351) = lu(k,2351) - lu(k,838) * lu(k,2320) - lu(k,2355) = lu(k,2355) - lu(k,839) * lu(k,2320) - lu(k,2357) = lu(k,2357) - lu(k,840) * lu(k,2320) - lu(k,2363) = lu(k,2363) - lu(k,841) * lu(k,2320) - lu(k,2365) = lu(k,2365) - lu(k,842) * lu(k,2320) - lu(k,2370) = lu(k,2370) - lu(k,843) * lu(k,2320) - lu(k,845) = 1._r8 / lu(k,845) - lu(k,846) = lu(k,846) * lu(k,845) - lu(k,847) = lu(k,847) * lu(k,845) - lu(k,848) = lu(k,848) * lu(k,845) - lu(k,849) = lu(k,849) * lu(k,845) - lu(k,850) = lu(k,850) * lu(k,845) - lu(k,851) = lu(k,851) * lu(k,845) - lu(k,854) = lu(k,854) - lu(k,846) * lu(k,852) - lu(k,855) = lu(k,855) - lu(k,847) * lu(k,852) - lu(k,856) = lu(k,856) - lu(k,848) * lu(k,852) - lu(k,857) = lu(k,857) - lu(k,849) * lu(k,852) - lu(k,858) = lu(k,858) - lu(k,850) * lu(k,852) - lu(k,859) = lu(k,859) - lu(k,851) * lu(k,852) - lu(k,865) = lu(k,865) - lu(k,846) * lu(k,863) - lu(k,866) = lu(k,866) - lu(k,847) * lu(k,863) - lu(k,869) = lu(k,869) - lu(k,848) * lu(k,863) - lu(k,870) = lu(k,870) - lu(k,849) * lu(k,863) - lu(k,871) = lu(k,871) - lu(k,850) * lu(k,863) - lu(k,872) = lu(k,872) - lu(k,851) * lu(k,863) - lu(k,998) = lu(k,998) - lu(k,846) * lu(k,996) - lu(k,999) = lu(k,999) - lu(k,847) * lu(k,996) - lu(k,1002) = lu(k,1002) - lu(k,848) * lu(k,996) - lu(k,1004) = lu(k,1004) - lu(k,849) * lu(k,996) - lu(k,1006) = lu(k,1006) - lu(k,850) * lu(k,996) - lu(k,1007) = lu(k,1007) - lu(k,851) * lu(k,996) - lu(k,1447) = - lu(k,846) * lu(k,1445) - lu(k,1448) = lu(k,1448) - lu(k,847) * lu(k,1445) - lu(k,1451) = lu(k,1451) - lu(k,848) * lu(k,1445) - lu(k,1453) = - lu(k,849) * lu(k,1445) - lu(k,1455) = - lu(k,850) * lu(k,1445) - lu(k,1456) = lu(k,1456) - lu(k,851) * lu(k,1445) - lu(k,1534) = lu(k,1534) - lu(k,846) * lu(k,1532) - lu(k,1536) = lu(k,1536) - lu(k,847) * lu(k,1532) - lu(k,1542) = lu(k,1542) - lu(k,848) * lu(k,1532) - lu(k,1546) = lu(k,1546) - lu(k,849) * lu(k,1532) - lu(k,1549) = lu(k,1549) - lu(k,850) * lu(k,1532) - lu(k,1550) = lu(k,1550) - lu(k,851) * lu(k,1532) - lu(k,1875) = lu(k,1875) - lu(k,846) * lu(k,1873) - lu(k,1881) = lu(k,1881) - lu(k,847) * lu(k,1873) - lu(k,1909) = lu(k,1909) - lu(k,848) * lu(k,1873) - lu(k,1914) = lu(k,1914) - lu(k,849) * lu(k,1873) - lu(k,1917) = - lu(k,850) * lu(k,1873) - lu(k,1919) = lu(k,1919) - lu(k,851) * lu(k,1873) - lu(k,2079) = lu(k,2079) - lu(k,846) * lu(k,2077) - lu(k,2082) = lu(k,2082) - lu(k,847) * lu(k,2077) - lu(k,2089) = lu(k,2089) - lu(k,848) * lu(k,2077) - lu(k,2094) = lu(k,2094) - lu(k,849) * lu(k,2077) - lu(k,2097) = lu(k,2097) - lu(k,850) * lu(k,2077) - lu(k,2099) = lu(k,2099) - lu(k,851) * lu(k,2077) - lu(k,853) = 1._r8 / lu(k,853) - lu(k,854) = lu(k,854) * lu(k,853) - lu(k,855) = lu(k,855) * lu(k,853) - lu(k,856) = lu(k,856) * lu(k,853) - lu(k,857) = lu(k,857) * lu(k,853) - lu(k,858) = lu(k,858) * lu(k,853) - lu(k,859) = lu(k,859) * lu(k,853) - lu(k,865) = lu(k,865) - lu(k,854) * lu(k,864) - lu(k,866) = lu(k,866) - lu(k,855) * lu(k,864) - lu(k,869) = lu(k,869) - lu(k,856) * lu(k,864) - lu(k,870) = lu(k,870) - lu(k,857) * lu(k,864) - lu(k,871) = lu(k,871) - lu(k,858) * lu(k,864) - lu(k,872) = lu(k,872) - lu(k,859) * lu(k,864) - lu(k,998) = lu(k,998) - lu(k,854) * lu(k,997) - lu(k,999) = lu(k,999) - lu(k,855) * lu(k,997) - lu(k,1002) = lu(k,1002) - lu(k,856) * lu(k,997) - lu(k,1004) = lu(k,1004) - lu(k,857) * lu(k,997) - lu(k,1006) = lu(k,1006) - lu(k,858) * lu(k,997) - lu(k,1007) = lu(k,1007) - lu(k,859) * lu(k,997) - lu(k,1447) = lu(k,1447) - lu(k,854) * lu(k,1446) - lu(k,1448) = lu(k,1448) - lu(k,855) * lu(k,1446) - lu(k,1451) = lu(k,1451) - lu(k,856) * lu(k,1446) - lu(k,1453) = lu(k,1453) - lu(k,857) * lu(k,1446) - lu(k,1455) = lu(k,1455) - lu(k,858) * lu(k,1446) - lu(k,1456) = lu(k,1456) - lu(k,859) * lu(k,1446) - lu(k,1534) = lu(k,1534) - lu(k,854) * lu(k,1533) - lu(k,1536) = lu(k,1536) - lu(k,855) * lu(k,1533) - lu(k,1542) = lu(k,1542) - lu(k,856) * lu(k,1533) - lu(k,1546) = lu(k,1546) - lu(k,857) * lu(k,1533) - lu(k,1549) = lu(k,1549) - lu(k,858) * lu(k,1533) - lu(k,1550) = lu(k,1550) - lu(k,859) * lu(k,1533) - lu(k,1875) = lu(k,1875) - lu(k,854) * lu(k,1874) - lu(k,1881) = lu(k,1881) - lu(k,855) * lu(k,1874) - lu(k,1909) = lu(k,1909) - lu(k,856) * lu(k,1874) - lu(k,1914) = lu(k,1914) - lu(k,857) * lu(k,1874) - lu(k,1917) = lu(k,1917) - lu(k,858) * lu(k,1874) - lu(k,1919) = lu(k,1919) - lu(k,859) * lu(k,1874) - lu(k,2079) = lu(k,2079) - lu(k,854) * lu(k,2078) - lu(k,2082) = lu(k,2082) - lu(k,855) * lu(k,2078) - lu(k,2089) = lu(k,2089) - lu(k,856) * lu(k,2078) - lu(k,2094) = lu(k,2094) - lu(k,857) * lu(k,2078) - lu(k,2097) = lu(k,2097) - lu(k,858) * lu(k,2078) - lu(k,2099) = lu(k,2099) - lu(k,859) * lu(k,2078) - lu(k,865) = 1._r8 / lu(k,865) - lu(k,866) = lu(k,866) * lu(k,865) - lu(k,867) = lu(k,867) * lu(k,865) - lu(k,868) = lu(k,868) * lu(k,865) - lu(k,869) = lu(k,869) * lu(k,865) - lu(k,870) = lu(k,870) * lu(k,865) - lu(k,871) = lu(k,871) * lu(k,865) - lu(k,872) = lu(k,872) * lu(k,865) - lu(k,999) = lu(k,999) - lu(k,866) * lu(k,998) - lu(k,1000) = lu(k,1000) - lu(k,867) * lu(k,998) - lu(k,1001) = lu(k,1001) - lu(k,868) * lu(k,998) - lu(k,1002) = lu(k,1002) - lu(k,869) * lu(k,998) - lu(k,1004) = lu(k,1004) - lu(k,870) * lu(k,998) - lu(k,1006) = lu(k,1006) - lu(k,871) * lu(k,998) - lu(k,1007) = lu(k,1007) - lu(k,872) * lu(k,998) - lu(k,1448) = lu(k,1448) - lu(k,866) * lu(k,1447) - lu(k,1449) = lu(k,1449) - lu(k,867) * lu(k,1447) - lu(k,1450) = lu(k,1450) - lu(k,868) * lu(k,1447) - lu(k,1451) = lu(k,1451) - lu(k,869) * lu(k,1447) - lu(k,1453) = lu(k,1453) - lu(k,870) * lu(k,1447) - lu(k,1455) = lu(k,1455) - lu(k,871) * lu(k,1447) - lu(k,1456) = lu(k,1456) - lu(k,872) * lu(k,1447) - lu(k,1536) = lu(k,1536) - lu(k,866) * lu(k,1534) - lu(k,1537) = lu(k,1537) - lu(k,867) * lu(k,1534) - lu(k,1539) = lu(k,1539) - lu(k,868) * lu(k,1534) - lu(k,1542) = lu(k,1542) - lu(k,869) * lu(k,1534) - lu(k,1546) = lu(k,1546) - lu(k,870) * lu(k,1534) - lu(k,1549) = lu(k,1549) - lu(k,871) * lu(k,1534) - lu(k,1550) = lu(k,1550) - lu(k,872) * lu(k,1534) - lu(k,1881) = lu(k,1881) - lu(k,866) * lu(k,1875) - lu(k,1891) = lu(k,1891) - lu(k,867) * lu(k,1875) - lu(k,1907) = lu(k,1907) - lu(k,868) * lu(k,1875) - lu(k,1909) = lu(k,1909) - lu(k,869) * lu(k,1875) - lu(k,1914) = lu(k,1914) - lu(k,870) * lu(k,1875) - lu(k,1917) = lu(k,1917) - lu(k,871) * lu(k,1875) - lu(k,1919) = lu(k,1919) - lu(k,872) * lu(k,1875) - lu(k,2082) = lu(k,2082) - lu(k,866) * lu(k,2079) - lu(k,2083) = lu(k,2083) - lu(k,867) * lu(k,2079) - lu(k,2084) = lu(k,2084) - lu(k,868) * lu(k,2079) - lu(k,2089) = lu(k,2089) - lu(k,869) * lu(k,2079) - lu(k,2094) = lu(k,2094) - lu(k,870) * lu(k,2079) - lu(k,2097) = lu(k,2097) - lu(k,871) * lu(k,2079) - lu(k,2099) = lu(k,2099) - lu(k,872) * lu(k,2079) - lu(k,876) = 1._r8 / lu(k,876) - lu(k,877) = lu(k,877) * lu(k,876) - lu(k,878) = lu(k,878) * lu(k,876) - lu(k,879) = lu(k,879) * lu(k,876) - lu(k,880) = lu(k,880) * lu(k,876) - lu(k,881) = lu(k,881) * lu(k,876) - lu(k,882) = lu(k,882) * lu(k,876) - lu(k,883) = lu(k,883) * lu(k,876) - lu(k,884) = lu(k,884) * lu(k,876) - lu(k,885) = lu(k,885) * lu(k,876) - lu(k,886) = lu(k,886) * lu(k,876) - lu(k,887) = lu(k,887) * lu(k,876) - lu(k,888) = lu(k,888) * lu(k,876) - lu(k,889) = lu(k,889) * lu(k,876) - lu(k,890) = lu(k,890) * lu(k,876) - lu(k,891) = lu(k,891) * lu(k,876) - lu(k,1616) = - lu(k,877) * lu(k,1614) - lu(k,1628) = lu(k,1628) - lu(k,878) * lu(k,1614) - lu(k,1630) = lu(k,1630) - lu(k,879) * lu(k,1614) - lu(k,1637) = lu(k,1637) - lu(k,880) * lu(k,1614) - lu(k,1638) = lu(k,1638) - lu(k,881) * lu(k,1614) - lu(k,1640) = lu(k,1640) - lu(k,882) * lu(k,1614) - lu(k,1641) = lu(k,1641) - lu(k,883) * lu(k,1614) - lu(k,1643) = lu(k,1643) - lu(k,884) * lu(k,1614) - lu(k,1645) = lu(k,1645) - lu(k,885) * lu(k,1614) - lu(k,1652) = lu(k,1652) - lu(k,886) * lu(k,1614) - lu(k,1653) = lu(k,1653) - lu(k,887) * lu(k,1614) - lu(k,1656) = lu(k,1656) - lu(k,888) * lu(k,1614) - lu(k,1662) = - lu(k,889) * lu(k,1614) - lu(k,1664) = lu(k,1664) - lu(k,890) * lu(k,1614) - lu(k,1665) = - lu(k,891) * lu(k,1614) - lu(k,1775) = lu(k,1775) - lu(k,877) * lu(k,1771) - lu(k,1791) = lu(k,1791) - lu(k,878) * lu(k,1771) - lu(k,1793) = lu(k,1793) - lu(k,879) * lu(k,1771) - lu(k,1800) = - lu(k,880) * lu(k,1771) - lu(k,1801) = lu(k,1801) - lu(k,881) * lu(k,1771) - lu(k,1803) = lu(k,1803) - lu(k,882) * lu(k,1771) - lu(k,1804) = lu(k,1804) - lu(k,883) * lu(k,1771) - lu(k,1806) = lu(k,1806) - lu(k,884) * lu(k,1771) - lu(k,1808) = lu(k,1808) - lu(k,885) * lu(k,1771) - lu(k,1817) = lu(k,1817) - lu(k,886) * lu(k,1771) - lu(k,1818) = lu(k,1818) - lu(k,887) * lu(k,1771) - lu(k,1821) = lu(k,1821) - lu(k,888) * lu(k,1771) - lu(k,1827) = lu(k,1827) - lu(k,889) * lu(k,1771) - lu(k,1829) = lu(k,1829) - lu(k,890) * lu(k,1771) - lu(k,1830) = lu(k,1830) - lu(k,891) * lu(k,1771) - lu(k,2190) = lu(k,2190) - lu(k,877) * lu(k,2189) - lu(k,2201) = lu(k,2201) - lu(k,878) * lu(k,2189) - lu(k,2203) = lu(k,2203) - lu(k,879) * lu(k,2189) - lu(k,2208) = - lu(k,880) * lu(k,2189) - lu(k,2209) = lu(k,2209) - lu(k,881) * lu(k,2189) - lu(k,2211) = - lu(k,882) * lu(k,2189) - lu(k,2212) = - lu(k,883) * lu(k,2189) - lu(k,2214) = lu(k,2214) - lu(k,884) * lu(k,2189) - lu(k,2216) = lu(k,2216) - lu(k,885) * lu(k,2189) - lu(k,2223) = lu(k,2223) - lu(k,886) * lu(k,2189) - lu(k,2224) = lu(k,2224) - lu(k,887) * lu(k,2189) - lu(k,2227) = lu(k,2227) - lu(k,888) * lu(k,2189) - lu(k,2233) = lu(k,2233) - lu(k,889) * lu(k,2189) - lu(k,2235) = lu(k,2235) - lu(k,890) * lu(k,2189) - lu(k,2236) = lu(k,2236) - lu(k,891) * lu(k,2189) + lu(k,823) = 1._r8 / lu(k,823) + lu(k,824) = lu(k,824) * lu(k,823) + lu(k,825) = lu(k,825) * lu(k,823) + lu(k,826) = lu(k,826) * lu(k,823) + lu(k,903) = lu(k,903) - lu(k,824) * lu(k,899) + lu(k,905) = lu(k,905) - lu(k,825) * lu(k,899) + lu(k,907) = lu(k,907) - lu(k,826) * lu(k,899) + lu(k,1064) = lu(k,1064) - lu(k,824) * lu(k,1060) + lu(k,1066) = lu(k,1066) - lu(k,825) * lu(k,1060) + lu(k,1068) = lu(k,1068) - lu(k,826) * lu(k,1060) + lu(k,1109) = lu(k,1109) - lu(k,824) * lu(k,1103) + lu(k,1111) = lu(k,1111) - lu(k,825) * lu(k,1103) + lu(k,1114) = lu(k,1114) - lu(k,826) * lu(k,1103) + lu(k,1181) = lu(k,1181) - lu(k,824) * lu(k,1172) + lu(k,1183) = lu(k,1183) - lu(k,825) * lu(k,1172) + lu(k,1185) = lu(k,1185) - lu(k,826) * lu(k,1172) + lu(k,1219) = lu(k,1219) - lu(k,824) * lu(k,1214) + lu(k,1221) = lu(k,1221) - lu(k,825) * lu(k,1214) + lu(k,1223) = lu(k,1223) - lu(k,826) * lu(k,1214) + lu(k,1236) = lu(k,1236) - lu(k,824) * lu(k,1227) + lu(k,1238) = lu(k,1238) - lu(k,825) * lu(k,1227) + lu(k,1241) = lu(k,1241) - lu(k,826) * lu(k,1227) + lu(k,1258) = lu(k,1258) - lu(k,824) * lu(k,1246) + lu(k,1260) = lu(k,1260) - lu(k,825) * lu(k,1246) + lu(k,1263) = lu(k,1263) - lu(k,826) * lu(k,1246) + lu(k,1304) = lu(k,1304) - lu(k,824) * lu(k,1290) + lu(k,1306) = lu(k,1306) - lu(k,825) * lu(k,1290) + lu(k,1310) = lu(k,1310) - lu(k,826) * lu(k,1290) + lu(k,1337) = lu(k,1337) - lu(k,824) * lu(k,1319) + lu(k,1339) = lu(k,1339) - lu(k,825) * lu(k,1319) + lu(k,1343) = lu(k,1343) - lu(k,826) * lu(k,1319) + lu(k,1359) = lu(k,1359) - lu(k,824) * lu(k,1348) + lu(k,1361) = lu(k,1361) - lu(k,825) * lu(k,1348) + lu(k,1364) = lu(k,1364) - lu(k,826) * lu(k,1348) + lu(k,1798) = lu(k,1798) - lu(k,824) * lu(k,1748) + lu(k,1801) = lu(k,1801) - lu(k,825) * lu(k,1748) + lu(k,1808) = lu(k,1808) - lu(k,826) * lu(k,1748) + lu(k,2409) = lu(k,2409) - lu(k,824) * lu(k,2377) + lu(k,2412) = lu(k,2412) - lu(k,825) * lu(k,2377) + lu(k,2419) = lu(k,2419) - lu(k,826) * lu(k,2377) + lu(k,827) = 1._r8 / lu(k,827) + lu(k,828) = lu(k,828) * lu(k,827) + lu(k,829) = lu(k,829) * lu(k,827) + lu(k,830) = lu(k,830) * lu(k,827) + lu(k,831) = lu(k,831) * lu(k,827) + lu(k,832) = lu(k,832) * lu(k,827) + lu(k,833) = lu(k,833) * lu(k,827) + lu(k,834) = lu(k,834) * lu(k,827) + lu(k,1510) = lu(k,1510) - lu(k,828) * lu(k,1507) + lu(k,1512) = lu(k,1512) - lu(k,829) * lu(k,1507) + lu(k,1513) = - lu(k,830) * lu(k,1507) + lu(k,1514) = - lu(k,831) * lu(k,1507) + lu(k,1518) = - lu(k,832) * lu(k,1507) + lu(k,1520) = - lu(k,833) * lu(k,1507) + lu(k,1522) = - lu(k,834) * lu(k,1507) + lu(k,1628) = lu(k,1628) - lu(k,828) * lu(k,1624) + lu(k,1631) = lu(k,1631) - lu(k,829) * lu(k,1624) + lu(k,1632) = lu(k,1632) - lu(k,830) * lu(k,1624) + lu(k,1633) = lu(k,1633) - lu(k,831) * lu(k,1624) + lu(k,1638) = lu(k,1638) - lu(k,832) * lu(k,1624) + lu(k,1641) = lu(k,1641) - lu(k,833) * lu(k,1624) + lu(k,1646) = lu(k,1646) - lu(k,834) * lu(k,1624) + lu(k,1793) = lu(k,1793) - lu(k,828) * lu(k,1749) + lu(k,1796) = lu(k,1796) - lu(k,829) * lu(k,1749) + lu(k,1797) = lu(k,1797) - lu(k,830) * lu(k,1749) + lu(k,1798) = lu(k,1798) - lu(k,831) * lu(k,1749) + lu(k,1803) = lu(k,1803) - lu(k,832) * lu(k,1749) + lu(k,1806) = lu(k,1806) - lu(k,833) * lu(k,1749) + lu(k,1811) = lu(k,1811) - lu(k,834) * lu(k,1749) + lu(k,1910) = lu(k,1910) - lu(k,828) * lu(k,1904) + lu(k,1913) = - lu(k,829) * lu(k,1904) + lu(k,1914) = - lu(k,830) * lu(k,1904) + lu(k,1915) = lu(k,1915) - lu(k,831) * lu(k,1904) + lu(k,1920) = lu(k,1920) - lu(k,832) * lu(k,1904) + lu(k,1923) = lu(k,1923) - lu(k,833) * lu(k,1904) + lu(k,1928) = lu(k,1928) - lu(k,834) * lu(k,1904) + lu(k,2049) = lu(k,2049) - lu(k,828) * lu(k,2036) + lu(k,2052) = lu(k,2052) - lu(k,829) * lu(k,2036) + lu(k,2053) = lu(k,2053) - lu(k,830) * lu(k,2036) + lu(k,2054) = lu(k,2054) - lu(k,831) * lu(k,2036) + lu(k,2059) = lu(k,2059) - lu(k,832) * lu(k,2036) + lu(k,2062) = lu(k,2062) - lu(k,833) * lu(k,2036) + lu(k,2067) = lu(k,2067) - lu(k,834) * lu(k,2036) + lu(k,2329) = lu(k,2329) - lu(k,828) * lu(k,2296) + lu(k,2332) = lu(k,2332) - lu(k,829) * lu(k,2296) + lu(k,2333) = - lu(k,830) * lu(k,2296) + lu(k,2334) = lu(k,2334) - lu(k,831) * lu(k,2296) + lu(k,2339) = lu(k,2339) - lu(k,832) * lu(k,2296) + lu(k,2342) = lu(k,2342) - lu(k,833) * lu(k,2296) + lu(k,2347) = lu(k,2347) - lu(k,834) * lu(k,2296) + lu(k,836) = 1._r8 / lu(k,836) + lu(k,837) = lu(k,837) * lu(k,836) + lu(k,838) = lu(k,838) * lu(k,836) + lu(k,839) = lu(k,839) * lu(k,836) + lu(k,840) = lu(k,840) * lu(k,836) + lu(k,841) = lu(k,841) * lu(k,836) + lu(k,842) = lu(k,842) * lu(k,836) + lu(k,955) = lu(k,955) - lu(k,837) * lu(k,953) + lu(k,956) = lu(k,956) - lu(k,838) * lu(k,953) + lu(k,957) = lu(k,957) - lu(k,839) * lu(k,953) + lu(k,959) = lu(k,959) - lu(k,840) * lu(k,953) + lu(k,960) = lu(k,960) - lu(k,841) * lu(k,953) + lu(k,963) = - lu(k,842) * lu(k,953) + lu(k,1494) = lu(k,1494) - lu(k,837) * lu(k,1492) + lu(k,1498) = lu(k,1498) - lu(k,838) * lu(k,1492) + lu(k,1499) = lu(k,1499) - lu(k,839) * lu(k,1492) + lu(k,1501) = lu(k,1501) - lu(k,840) * lu(k,1492) + lu(k,1502) = lu(k,1502) - lu(k,841) * lu(k,1492) + lu(k,1506) = lu(k,1506) - lu(k,842) * lu(k,1492) + lu(k,1792) = lu(k,1792) - lu(k,837) * lu(k,1750) + lu(k,1798) = lu(k,1798) - lu(k,838) * lu(k,1750) + lu(k,1799) = lu(k,1799) - lu(k,839) * lu(k,1750) + lu(k,1803) = lu(k,1803) - lu(k,840) * lu(k,1750) + lu(k,1805) = lu(k,1805) - lu(k,841) * lu(k,1750) + lu(k,1811) = lu(k,1811) - lu(k,842) * lu(k,1750) + lu(k,1838) = lu(k,1838) - lu(k,837) * lu(k,1823) + lu(k,1844) = lu(k,1844) - lu(k,838) * lu(k,1823) + lu(k,1845) = lu(k,1845) - lu(k,839) * lu(k,1823) + lu(k,1849) = lu(k,1849) - lu(k,840) * lu(k,1823) + lu(k,1851) = lu(k,1851) - lu(k,841) * lu(k,1823) + lu(k,1857) = lu(k,1857) - lu(k,842) * lu(k,1823) + lu(k,2048) = lu(k,2048) - lu(k,837) * lu(k,2037) + lu(k,2054) = lu(k,2054) - lu(k,838) * lu(k,2037) + lu(k,2055) = lu(k,2055) - lu(k,839) * lu(k,2037) + lu(k,2059) = lu(k,2059) - lu(k,840) * lu(k,2037) + lu(k,2061) = lu(k,2061) - lu(k,841) * lu(k,2037) + lu(k,2067) = lu(k,2067) - lu(k,842) * lu(k,2037) + lu(k,2140) = lu(k,2140) - lu(k,837) * lu(k,2136) + lu(k,2145) = lu(k,2145) - lu(k,838) * lu(k,2136) + lu(k,2146) = lu(k,2146) - lu(k,839) * lu(k,2136) + lu(k,2150) = lu(k,2150) - lu(k,840) * lu(k,2136) + lu(k,2152) = lu(k,2152) - lu(k,841) * lu(k,2136) + lu(k,2158) = - lu(k,842) * lu(k,2136) + lu(k,2328) = lu(k,2328) - lu(k,837) * lu(k,2297) + lu(k,2334) = lu(k,2334) - lu(k,838) * lu(k,2297) + lu(k,2335) = lu(k,2335) - lu(k,839) * lu(k,2297) + lu(k,2339) = lu(k,2339) - lu(k,840) * lu(k,2297) + lu(k,2341) = lu(k,2341) - lu(k,841) * lu(k,2297) + lu(k,2347) = lu(k,2347) - lu(k,842) * lu(k,2297) + lu(k,844) = 1._r8 / lu(k,844) + lu(k,845) = lu(k,845) * lu(k,844) + lu(k,846) = lu(k,846) * lu(k,844) + lu(k,847) = lu(k,847) * lu(k,844) + lu(k,848) = lu(k,848) * lu(k,844) + lu(k,849) = lu(k,849) * lu(k,844) + lu(k,850) = lu(k,850) * lu(k,844) + lu(k,853) = lu(k,853) - lu(k,845) * lu(k,851) + lu(k,854) = lu(k,854) - lu(k,846) * lu(k,851) + lu(k,855) = lu(k,855) - lu(k,847) * lu(k,851) + lu(k,856) = lu(k,856) - lu(k,848) * lu(k,851) + lu(k,857) = lu(k,857) - lu(k,849) * lu(k,851) + lu(k,858) = lu(k,858) - lu(k,850) * lu(k,851) + lu(k,864) = lu(k,864) - lu(k,845) * lu(k,862) + lu(k,865) = lu(k,865) - lu(k,846) * lu(k,862) + lu(k,868) = lu(k,868) - lu(k,847) * lu(k,862) + lu(k,869) = lu(k,869) - lu(k,848) * lu(k,862) + lu(k,870) = lu(k,870) - lu(k,849) * lu(k,862) + lu(k,871) = lu(k,871) - lu(k,850) * lu(k,862) + lu(k,1047) = lu(k,1047) - lu(k,845) * lu(k,1045) + lu(k,1048) = lu(k,1048) - lu(k,846) * lu(k,1045) + lu(k,1051) = lu(k,1051) - lu(k,847) * lu(k,1045) + lu(k,1052) = lu(k,1052) - lu(k,848) * lu(k,1045) + lu(k,1055) = lu(k,1055) - lu(k,849) * lu(k,1045) + lu(k,1056) = lu(k,1056) - lu(k,850) * lu(k,1045) + lu(k,1446) = - lu(k,845) * lu(k,1444) + lu(k,1447) = lu(k,1447) - lu(k,846) * lu(k,1444) + lu(k,1450) = lu(k,1450) - lu(k,847) * lu(k,1444) + lu(k,1451) = - lu(k,848) * lu(k,1444) + lu(k,1454) = - lu(k,849) * lu(k,1444) + lu(k,1455) = lu(k,1455) - lu(k,850) * lu(k,1444) + lu(k,1533) = lu(k,1533) - lu(k,845) * lu(k,1531) + lu(k,1535) = lu(k,1535) - lu(k,846) * lu(k,1531) + lu(k,1541) = lu(k,1541) - lu(k,847) * lu(k,1531) + lu(k,1543) = lu(k,1543) - lu(k,848) * lu(k,1531) + lu(k,1548) = lu(k,1548) - lu(k,849) * lu(k,1531) + lu(k,1549) = lu(k,1549) - lu(k,850) * lu(k,1531) + lu(k,1973) = lu(k,1973) - lu(k,845) * lu(k,1971) + lu(k,1981) = lu(k,1981) - lu(k,846) * lu(k,1971) + lu(k,2007) = lu(k,2007) - lu(k,847) * lu(k,1971) + lu(k,2010) = lu(k,2010) - lu(k,848) * lu(k,1971) + lu(k,2015) = lu(k,2015) - lu(k,849) * lu(k,1971) + lu(k,2016) = lu(k,2016) - lu(k,850) * lu(k,1971) + lu(k,2040) = lu(k,2040) - lu(k,845) * lu(k,2038) + lu(k,2043) = lu(k,2043) - lu(k,846) * lu(k,2038) + lu(k,2050) = lu(k,2050) - lu(k,847) * lu(k,2038) + lu(k,2053) = lu(k,2053) - lu(k,848) * lu(k,2038) + lu(k,2058) = lu(k,2058) - lu(k,849) * lu(k,2038) + lu(k,2059) = lu(k,2059) - lu(k,850) * lu(k,2038) + lu(k,852) = 1._r8 / lu(k,852) + lu(k,853) = lu(k,853) * lu(k,852) + lu(k,854) = lu(k,854) * lu(k,852) + lu(k,855) = lu(k,855) * lu(k,852) + lu(k,856) = lu(k,856) * lu(k,852) + lu(k,857) = lu(k,857) * lu(k,852) + lu(k,858) = lu(k,858) * lu(k,852) + lu(k,864) = lu(k,864) - lu(k,853) * lu(k,863) + lu(k,865) = lu(k,865) - lu(k,854) * lu(k,863) + lu(k,868) = lu(k,868) - lu(k,855) * lu(k,863) + lu(k,869) = lu(k,869) - lu(k,856) * lu(k,863) + lu(k,870) = lu(k,870) - lu(k,857) * lu(k,863) + lu(k,871) = lu(k,871) - lu(k,858) * lu(k,863) + lu(k,1047) = lu(k,1047) - lu(k,853) * lu(k,1046) + lu(k,1048) = lu(k,1048) - lu(k,854) * lu(k,1046) + lu(k,1051) = lu(k,1051) - lu(k,855) * lu(k,1046) + lu(k,1052) = lu(k,1052) - lu(k,856) * lu(k,1046) + lu(k,1055) = lu(k,1055) - lu(k,857) * lu(k,1046) + lu(k,1056) = lu(k,1056) - lu(k,858) * lu(k,1046) + lu(k,1446) = lu(k,1446) - lu(k,853) * lu(k,1445) + lu(k,1447) = lu(k,1447) - lu(k,854) * lu(k,1445) + lu(k,1450) = lu(k,1450) - lu(k,855) * lu(k,1445) + lu(k,1451) = lu(k,1451) - lu(k,856) * lu(k,1445) + lu(k,1454) = lu(k,1454) - lu(k,857) * lu(k,1445) + lu(k,1455) = lu(k,1455) - lu(k,858) * lu(k,1445) + lu(k,1533) = lu(k,1533) - lu(k,853) * lu(k,1532) + lu(k,1535) = lu(k,1535) - lu(k,854) * lu(k,1532) + lu(k,1541) = lu(k,1541) - lu(k,855) * lu(k,1532) + lu(k,1543) = lu(k,1543) - lu(k,856) * lu(k,1532) + lu(k,1548) = lu(k,1548) - lu(k,857) * lu(k,1532) + lu(k,1549) = lu(k,1549) - lu(k,858) * lu(k,1532) + lu(k,1973) = lu(k,1973) - lu(k,853) * lu(k,1972) + lu(k,1981) = lu(k,1981) - lu(k,854) * lu(k,1972) + lu(k,2007) = lu(k,2007) - lu(k,855) * lu(k,1972) + lu(k,2010) = lu(k,2010) - lu(k,856) * lu(k,1972) + lu(k,2015) = lu(k,2015) - lu(k,857) * lu(k,1972) + lu(k,2016) = lu(k,2016) - lu(k,858) * lu(k,1972) + lu(k,2040) = lu(k,2040) - lu(k,853) * lu(k,2039) + lu(k,2043) = lu(k,2043) - lu(k,854) * lu(k,2039) + lu(k,2050) = lu(k,2050) - lu(k,855) * lu(k,2039) + lu(k,2053) = lu(k,2053) - lu(k,856) * lu(k,2039) + lu(k,2058) = lu(k,2058) - lu(k,857) * lu(k,2039) + lu(k,2059) = lu(k,2059) - lu(k,858) * lu(k,2039) + lu(k,864) = 1._r8 / lu(k,864) + lu(k,865) = lu(k,865) * lu(k,864) + lu(k,866) = lu(k,866) * lu(k,864) + lu(k,867) = lu(k,867) * lu(k,864) + lu(k,868) = lu(k,868) * lu(k,864) + lu(k,869) = lu(k,869) * lu(k,864) + lu(k,870) = lu(k,870) * lu(k,864) + lu(k,871) = lu(k,871) * lu(k,864) + lu(k,1048) = lu(k,1048) - lu(k,865) * lu(k,1047) + lu(k,1049) = lu(k,1049) - lu(k,866) * lu(k,1047) + lu(k,1050) = lu(k,1050) - lu(k,867) * lu(k,1047) + lu(k,1051) = lu(k,1051) - lu(k,868) * lu(k,1047) + lu(k,1052) = lu(k,1052) - lu(k,869) * lu(k,1047) + lu(k,1055) = lu(k,1055) - lu(k,870) * lu(k,1047) + lu(k,1056) = lu(k,1056) - lu(k,871) * lu(k,1047) + lu(k,1447) = lu(k,1447) - lu(k,865) * lu(k,1446) + lu(k,1448) = lu(k,1448) - lu(k,866) * lu(k,1446) + lu(k,1449) = lu(k,1449) - lu(k,867) * lu(k,1446) + lu(k,1450) = lu(k,1450) - lu(k,868) * lu(k,1446) + lu(k,1451) = lu(k,1451) - lu(k,869) * lu(k,1446) + lu(k,1454) = lu(k,1454) - lu(k,870) * lu(k,1446) + lu(k,1455) = lu(k,1455) - lu(k,871) * lu(k,1446) + lu(k,1535) = lu(k,1535) - lu(k,865) * lu(k,1533) + lu(k,1536) = lu(k,1536) - lu(k,866) * lu(k,1533) + lu(k,1538) = lu(k,1538) - lu(k,867) * lu(k,1533) + lu(k,1541) = lu(k,1541) - lu(k,868) * lu(k,1533) + lu(k,1543) = lu(k,1543) - lu(k,869) * lu(k,1533) + lu(k,1548) = lu(k,1548) - lu(k,870) * lu(k,1533) + lu(k,1549) = lu(k,1549) - lu(k,871) * lu(k,1533) + lu(k,1981) = lu(k,1981) - lu(k,865) * lu(k,1973) + lu(k,1989) = lu(k,1989) - lu(k,866) * lu(k,1973) + lu(k,2005) = lu(k,2005) - lu(k,867) * lu(k,1973) + lu(k,2007) = lu(k,2007) - lu(k,868) * lu(k,1973) + lu(k,2010) = lu(k,2010) - lu(k,869) * lu(k,1973) + lu(k,2015) = lu(k,2015) - lu(k,870) * lu(k,1973) + lu(k,2016) = lu(k,2016) - lu(k,871) * lu(k,1973) + lu(k,2043) = lu(k,2043) - lu(k,865) * lu(k,2040) + lu(k,2044) = lu(k,2044) - lu(k,866) * lu(k,2040) + lu(k,2045) = lu(k,2045) - lu(k,867) * lu(k,2040) + lu(k,2050) = lu(k,2050) - lu(k,868) * lu(k,2040) + lu(k,2053) = lu(k,2053) - lu(k,869) * lu(k,2040) + lu(k,2058) = lu(k,2058) - lu(k,870) * lu(k,2040) + lu(k,2059) = lu(k,2059) - lu(k,871) * lu(k,2040) end do end subroutine lu_fac18 subroutine lu_fac19( avec_len, lu ) @@ -3088,281 +3029,232 @@ subroutine lu_fac19( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,892) = 1._r8 / lu(k,892) - lu(k,893) = lu(k,893) * lu(k,892) - lu(k,894) = lu(k,894) * lu(k,892) - lu(k,895) = lu(k,895) * lu(k,892) - lu(k,896) = lu(k,896) * lu(k,892) - lu(k,897) = lu(k,897) * lu(k,892) - lu(k,1092) = - lu(k,893) * lu(k,1087) - lu(k,1093) = - lu(k,894) * lu(k,1087) - lu(k,1095) = lu(k,1095) - lu(k,895) * lu(k,1087) - lu(k,1097) = lu(k,1097) - lu(k,896) * lu(k,1087) - lu(k,1098) = - lu(k,897) * lu(k,1087) - lu(k,1137) = - lu(k,893) * lu(k,1131) - lu(k,1138) = - lu(k,894) * lu(k,1131) - lu(k,1142) = lu(k,1142) - lu(k,895) * lu(k,1131) - lu(k,1144) = lu(k,1144) - lu(k,896) * lu(k,1131) - lu(k,1145) = lu(k,1145) - lu(k,897) * lu(k,1131) - lu(k,1255) = - lu(k,893) * lu(k,1248) - lu(k,1257) = lu(k,1257) - lu(k,894) * lu(k,1248) - lu(k,1260) = lu(k,1260) - lu(k,895) * lu(k,1248) - lu(k,1262) = lu(k,1262) - lu(k,896) * lu(k,1248) - lu(k,1263) = lu(k,1263) - lu(k,897) * lu(k,1248) - lu(k,1331) = lu(k,1331) - lu(k,893) * lu(k,1321) - lu(k,1336) = lu(k,1336) - lu(k,894) * lu(k,1321) - lu(k,1339) = lu(k,1339) - lu(k,895) * lu(k,1321) - lu(k,1341) = lu(k,1341) - lu(k,896) * lu(k,1321) - lu(k,1342) = lu(k,1342) - lu(k,897) * lu(k,1321) - lu(k,1639) = lu(k,1639) - lu(k,893) * lu(k,1615) - lu(k,1645) = lu(k,1645) - lu(k,894) * lu(k,1615) - lu(k,1653) = lu(k,1653) - lu(k,895) * lu(k,1615) - lu(k,1655) = lu(k,1655) - lu(k,896) * lu(k,1615) - lu(k,1656) = lu(k,1656) - lu(k,897) * lu(k,1615) - lu(k,1802) = lu(k,1802) - lu(k,893) * lu(k,1772) - lu(k,1808) = lu(k,1808) - lu(k,894) * lu(k,1772) - lu(k,1818) = lu(k,1818) - lu(k,895) * lu(k,1772) - lu(k,1820) = lu(k,1820) - lu(k,896) * lu(k,1772) - lu(k,1821) = lu(k,1821) - lu(k,897) * lu(k,1772) - lu(k,1900) = lu(k,1900) - lu(k,893) * lu(k,1876) - lu(k,1906) = lu(k,1906) - lu(k,894) * lu(k,1876) - lu(k,1913) = lu(k,1913) - lu(k,895) * lu(k,1876) - lu(k,1915) = lu(k,1915) - lu(k,896) * lu(k,1876) - lu(k,1916) = lu(k,1916) - lu(k,897) * lu(k,1876) - lu(k,2342) = lu(k,2342) - lu(k,893) * lu(k,2321) - lu(k,2348) = lu(k,2348) - lu(k,894) * lu(k,2321) - lu(k,2357) = lu(k,2357) - lu(k,895) * lu(k,2321) - lu(k,2359) = lu(k,2359) - lu(k,896) * lu(k,2321) - lu(k,2360) = lu(k,2360) - lu(k,897) * lu(k,2321) - lu(k,2397) = lu(k,2397) - lu(k,893) * lu(k,2378) - lu(k,2403) = lu(k,2403) - lu(k,894) * lu(k,2378) - lu(k,2409) = lu(k,2409) - lu(k,895) * lu(k,2378) - lu(k,2411) = lu(k,2411) - lu(k,896) * lu(k,2378) - lu(k,2412) = lu(k,2412) - lu(k,897) * lu(k,2378) - lu(k,901) = 1._r8 / lu(k,901) - lu(k,902) = lu(k,902) * lu(k,901) - lu(k,903) = lu(k,903) * lu(k,901) - lu(k,904) = lu(k,904) * lu(k,901) - lu(k,905) = lu(k,905) * lu(k,901) - lu(k,906) = lu(k,906) * lu(k,901) - lu(k,907) = lu(k,907) * lu(k,901) - lu(k,908) = lu(k,908) * lu(k,901) - lu(k,909) = lu(k,909) * lu(k,901) - lu(k,1044) = lu(k,1044) - lu(k,902) * lu(k,1041) - lu(k,1046) = - lu(k,903) * lu(k,1041) - lu(k,1047) = lu(k,1047) - lu(k,904) * lu(k,1041) - lu(k,1048) = lu(k,1048) - lu(k,905) * lu(k,1041) - lu(k,1049) = lu(k,1049) - lu(k,906) * lu(k,1041) - lu(k,1050) = lu(k,1050) - lu(k,907) * lu(k,1041) - lu(k,1051) = lu(k,1051) - lu(k,908) * lu(k,1041) - lu(k,1052) = - lu(k,909) * lu(k,1041) - lu(k,1792) = lu(k,1792) - lu(k,902) * lu(k,1773) - lu(k,1814) = lu(k,1814) - lu(k,903) * lu(k,1773) - lu(k,1818) = lu(k,1818) - lu(k,904) * lu(k,1773) - lu(k,1819) = lu(k,1819) - lu(k,905) * lu(k,1773) - lu(k,1820) = lu(k,1820) - lu(k,906) * lu(k,1773) - lu(k,1821) = lu(k,1821) - lu(k,907) * lu(k,1773) - lu(k,1829) = lu(k,1829) - lu(k,908) * lu(k,1773) - lu(k,1830) = lu(k,1830) - lu(k,909) * lu(k,1773) - lu(k,1890) = lu(k,1890) - lu(k,902) * lu(k,1877) - lu(k,1909) = lu(k,1909) - lu(k,903) * lu(k,1877) - lu(k,1913) = lu(k,1913) - lu(k,904) * lu(k,1877) - lu(k,1914) = lu(k,1914) - lu(k,905) * lu(k,1877) - lu(k,1915) = lu(k,1915) - lu(k,906) * lu(k,1877) - lu(k,1916) = lu(k,1916) - lu(k,907) * lu(k,1877) - lu(k,1924) = lu(k,1924) - lu(k,908) * lu(k,1877) - lu(k,1925) = lu(k,1925) - lu(k,909) * lu(k,1877) - lu(k,2146) = - lu(k,902) * lu(k,2140) - lu(k,2156) = lu(k,2156) - lu(k,903) * lu(k,2140) - lu(k,2160) = lu(k,2160) - lu(k,904) * lu(k,2140) - lu(k,2161) = lu(k,2161) - lu(k,905) * lu(k,2140) - lu(k,2162) = lu(k,2162) - lu(k,906) * lu(k,2140) - lu(k,2163) = lu(k,2163) - lu(k,907) * lu(k,2140) - lu(k,2171) = lu(k,2171) - lu(k,908) * lu(k,2140) - lu(k,2172) = lu(k,2172) - lu(k,909) * lu(k,2140) - lu(k,2333) = lu(k,2333) - lu(k,902) * lu(k,2322) - lu(k,2353) = lu(k,2353) - lu(k,903) * lu(k,2322) - lu(k,2357) = lu(k,2357) - lu(k,904) * lu(k,2322) - lu(k,2358) = lu(k,2358) - lu(k,905) * lu(k,2322) - lu(k,2359) = lu(k,2359) - lu(k,906) * lu(k,2322) - lu(k,2360) = lu(k,2360) - lu(k,907) * lu(k,2322) - lu(k,2368) = lu(k,2368) - lu(k,908) * lu(k,2322) - lu(k,2369) = lu(k,2369) - lu(k,909) * lu(k,2322) - lu(k,2388) = lu(k,2388) - lu(k,902) * lu(k,2379) - lu(k,2405) = lu(k,2405) - lu(k,903) * lu(k,2379) - lu(k,2409) = lu(k,2409) - lu(k,904) * lu(k,2379) - lu(k,2410) = lu(k,2410) - lu(k,905) * lu(k,2379) - lu(k,2411) = lu(k,2411) - lu(k,906) * lu(k,2379) - lu(k,2412) = lu(k,2412) - lu(k,907) * lu(k,2379) - lu(k,2420) = lu(k,2420) - lu(k,908) * lu(k,2379) - lu(k,2421) = lu(k,2421) - lu(k,909) * lu(k,2379) - lu(k,910) = 1._r8 / lu(k,910) - lu(k,911) = lu(k,911) * lu(k,910) - lu(k,912) = lu(k,912) * lu(k,910) - lu(k,913) = lu(k,913) * lu(k,910) - lu(k,914) = lu(k,914) * lu(k,910) - lu(k,915) = lu(k,915) * lu(k,910) - lu(k,916) = lu(k,916) * lu(k,910) - lu(k,917) = lu(k,917) * lu(k,910) - lu(k,918) = lu(k,918) * lu(k,910) - lu(k,1089) = lu(k,1089) - lu(k,911) * lu(k,1088) - lu(k,1091) = lu(k,1091) - lu(k,912) * lu(k,1088) - lu(k,1092) = lu(k,1092) - lu(k,913) * lu(k,1088) - lu(k,1095) = lu(k,1095) - lu(k,914) * lu(k,1088) - lu(k,1096) = - lu(k,915) * lu(k,1088) - lu(k,1097) = lu(k,1097) - lu(k,916) * lu(k,1088) - lu(k,1100) = lu(k,1100) - lu(k,917) * lu(k,1088) - lu(k,1101) = - lu(k,918) * lu(k,1088) - lu(k,1323) = lu(k,1323) - lu(k,911) * lu(k,1322) - lu(k,1324) = lu(k,1324) - lu(k,912) * lu(k,1322) - lu(k,1331) = lu(k,1331) - lu(k,913) * lu(k,1322) - lu(k,1339) = lu(k,1339) - lu(k,914) * lu(k,1322) - lu(k,1340) = lu(k,1340) - lu(k,915) * lu(k,1322) - lu(k,1341) = lu(k,1341) - lu(k,916) * lu(k,1322) - lu(k,1345) = lu(k,1345) - lu(k,917) * lu(k,1322) - lu(k,1346) = lu(k,1346) - lu(k,918) * lu(k,1322) - lu(k,1784) = lu(k,1784) - lu(k,911) * lu(k,1774) - lu(k,1793) = lu(k,1793) - lu(k,912) * lu(k,1774) - lu(k,1802) = lu(k,1802) - lu(k,913) * lu(k,1774) - lu(k,1818) = lu(k,1818) - lu(k,914) * lu(k,1774) - lu(k,1819) = lu(k,1819) - lu(k,915) * lu(k,1774) - lu(k,1820) = lu(k,1820) - lu(k,916) * lu(k,1774) - lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1774) - lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1774) - lu(k,1883) = lu(k,1883) - lu(k,911) * lu(k,1878) - lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1878) - lu(k,1900) = lu(k,1900) - lu(k,913) * lu(k,1878) - lu(k,1913) = lu(k,1913) - lu(k,914) * lu(k,1878) - lu(k,1914) = lu(k,1914) - lu(k,915) * lu(k,1878) - lu(k,1915) = lu(k,1915) - lu(k,916) * lu(k,1878) - lu(k,1924) = lu(k,1924) - lu(k,917) * lu(k,1878) - lu(k,1925) = lu(k,1925) - lu(k,918) * lu(k,1878) - lu(k,1944) = lu(k,1944) - lu(k,911) * lu(k,1940) - lu(k,1945) = lu(k,1945) - lu(k,912) * lu(k,1940) - lu(k,1947) = lu(k,1947) - lu(k,913) * lu(k,1940) - lu(k,1958) = lu(k,1958) - lu(k,914) * lu(k,1940) - lu(k,1959) = lu(k,1959) - lu(k,915) * lu(k,1940) - lu(k,1960) = lu(k,1960) - lu(k,916) * lu(k,1940) - lu(k,1969) = lu(k,1969) - lu(k,917) * lu(k,1940) - lu(k,1970) = lu(k,1970) - lu(k,918) * lu(k,1940) - lu(k,2327) = lu(k,2327) - lu(k,911) * lu(k,2323) - lu(k,2334) = lu(k,2334) - lu(k,912) * lu(k,2323) - lu(k,2342) = lu(k,2342) - lu(k,913) * lu(k,2323) - lu(k,2357) = lu(k,2357) - lu(k,914) * lu(k,2323) - lu(k,2358) = lu(k,2358) - lu(k,915) * lu(k,2323) - lu(k,2359) = lu(k,2359) - lu(k,916) * lu(k,2323) - lu(k,2368) = lu(k,2368) - lu(k,917) * lu(k,2323) - lu(k,2369) = lu(k,2369) - lu(k,918) * lu(k,2323) - lu(k,919) = 1._r8 / lu(k,919) - lu(k,920) = lu(k,920) * lu(k,919) - lu(k,921) = lu(k,921) * lu(k,919) - lu(k,922) = lu(k,922) * lu(k,919) - lu(k,923) = lu(k,923) * lu(k,919) - lu(k,986) = lu(k,986) - lu(k,920) * lu(k,973) - lu(k,988) = lu(k,988) - lu(k,921) * lu(k,973) - lu(k,991) = lu(k,991) - lu(k,922) * lu(k,973) - lu(k,992) = - lu(k,923) * lu(k,973) - lu(k,1030) = lu(k,1030) - lu(k,920) * lu(k,1017) - lu(k,1032) = lu(k,1032) - lu(k,921) * lu(k,1017) - lu(k,1035) = lu(k,1035) - lu(k,922) * lu(k,1017) - lu(k,1036) = - lu(k,923) * lu(k,1017) - lu(k,1139) = lu(k,1139) - lu(k,920) * lu(k,1132) - lu(k,1142) = lu(k,1142) - lu(k,921) * lu(k,1132) - lu(k,1148) = lu(k,1148) - lu(k,922) * lu(k,1132) - lu(k,1150) = lu(k,1150) - lu(k,923) * lu(k,1132) - lu(k,1274) = - lu(k,920) * lu(k,1267) - lu(k,1275) = lu(k,1275) - lu(k,921) * lu(k,1267) - lu(k,1278) = lu(k,1278) - lu(k,922) * lu(k,1267) - lu(k,1279) = lu(k,1279) - lu(k,923) * lu(k,1267) - lu(k,1379) = lu(k,1379) - lu(k,920) * lu(k,1369) - lu(k,1382) = lu(k,1382) - lu(k,921) * lu(k,1369) - lu(k,1389) = lu(k,1389) - lu(k,922) * lu(k,1369) - lu(k,1391) = - lu(k,923) * lu(k,1369) - lu(k,1646) = - lu(k,920) * lu(k,1616) - lu(k,1653) = lu(k,1653) - lu(k,921) * lu(k,1616) - lu(k,1664) = lu(k,1664) - lu(k,922) * lu(k,1616) - lu(k,1666) = - lu(k,923) * lu(k,1616) - lu(k,1809) = lu(k,1809) - lu(k,920) * lu(k,1775) - lu(k,1818) = lu(k,1818) - lu(k,921) * lu(k,1775) - lu(k,1829) = lu(k,1829) - lu(k,922) * lu(k,1775) - lu(k,1831) = lu(k,1831) - lu(k,923) * lu(k,1775) - lu(k,1907) = lu(k,1907) - lu(k,920) * lu(k,1879) - lu(k,1913) = lu(k,1913) - lu(k,921) * lu(k,1879) - lu(k,1924) = lu(k,1924) - lu(k,922) * lu(k,1879) - lu(k,1926) = lu(k,1926) - lu(k,923) * lu(k,1879) - lu(k,1976) = - lu(k,920) * lu(k,1974) - lu(k,1984) = lu(k,1984) - lu(k,921) * lu(k,1974) - lu(k,1995) = lu(k,1995) - lu(k,922) * lu(k,1974) - lu(k,1997) = lu(k,1997) - lu(k,923) * lu(k,1974) - lu(k,2152) = - lu(k,920) * lu(k,2141) - lu(k,2160) = lu(k,2160) - lu(k,921) * lu(k,2141) - lu(k,2171) = lu(k,2171) - lu(k,922) * lu(k,2141) - lu(k,2173) = lu(k,2173) - lu(k,923) * lu(k,2141) - lu(k,2217) = lu(k,2217) - lu(k,920) * lu(k,2190) - lu(k,2224) = lu(k,2224) - lu(k,921) * lu(k,2190) - lu(k,2235) = lu(k,2235) - lu(k,922) * lu(k,2190) - lu(k,2237) = lu(k,2237) - lu(k,923) * lu(k,2190) - lu(k,2349) = lu(k,2349) - lu(k,920) * lu(k,2324) - lu(k,2357) = lu(k,2357) - lu(k,921) * lu(k,2324) - lu(k,2368) = lu(k,2368) - lu(k,922) * lu(k,2324) - lu(k,2370) = lu(k,2370) - lu(k,923) * lu(k,2324) - lu(k,925) = 1._r8 / lu(k,925) - lu(k,926) = lu(k,926) * lu(k,925) - lu(k,927) = lu(k,927) * lu(k,925) - lu(k,928) = lu(k,928) * lu(k,925) - lu(k,929) = lu(k,929) * lu(k,925) - lu(k,930) = lu(k,930) * lu(k,925) - lu(k,931) = lu(k,931) * lu(k,925) - lu(k,932) = lu(k,932) * lu(k,925) - lu(k,933) = lu(k,933) * lu(k,925) - lu(k,1461) = lu(k,1461) - lu(k,926) * lu(k,1460) - lu(k,1463) = - lu(k,927) * lu(k,1460) - lu(k,1464) = lu(k,1464) - lu(k,928) * lu(k,1460) - lu(k,1466) = - lu(k,929) * lu(k,1460) - lu(k,1468) = lu(k,1468) - lu(k,930) * lu(k,1460) - lu(k,1470) = - lu(k,931) * lu(k,1460) - lu(k,1471) = - lu(k,932) * lu(k,1460) - lu(k,1472) = lu(k,1472) - lu(k,933) * lu(k,1460) - lu(k,1810) = lu(k,1810) - lu(k,926) * lu(k,1776) - lu(k,1817) = lu(k,1817) - lu(k,927) * lu(k,1776) - lu(k,1818) = lu(k,1818) - lu(k,928) * lu(k,1776) - lu(k,1823) = lu(k,1823) - lu(k,929) * lu(k,1776) - lu(k,1825) = lu(k,1825) - lu(k,930) * lu(k,1776) - lu(k,1828) = lu(k,1828) - lu(k,931) * lu(k,1776) - lu(k,1830) = lu(k,1830) - lu(k,932) * lu(k,1776) - lu(k,1831) = lu(k,1831) - lu(k,933) * lu(k,1776) - lu(k,2020) = lu(k,2020) - lu(k,926) * lu(k,2019) - lu(k,2026) = - lu(k,927) * lu(k,2019) - lu(k,2027) = lu(k,2027) - lu(k,928) * lu(k,2019) - lu(k,2032) = - lu(k,929) * lu(k,2019) - lu(k,2034) = lu(k,2034) - lu(k,930) * lu(k,2019) - lu(k,2037) = lu(k,2037) - lu(k,931) * lu(k,2019) - lu(k,2039) = lu(k,2039) - lu(k,932) * lu(k,2019) - lu(k,2040) = lu(k,2040) - lu(k,933) * lu(k,2019) - lu(k,2043) = - lu(k,926) * lu(k,2042) - lu(k,2049) = lu(k,2049) - lu(k,927) * lu(k,2042) - lu(k,2050) = lu(k,2050) - lu(k,928) * lu(k,2042) - lu(k,2055) = lu(k,2055) - lu(k,929) * lu(k,2042) - lu(k,2057) = lu(k,2057) - lu(k,930) * lu(k,2042) - lu(k,2060) = - lu(k,931) * lu(k,2042) - lu(k,2062) = - lu(k,932) * lu(k,2042) - lu(k,2063) = lu(k,2063) - lu(k,933) * lu(k,2042) - lu(k,2242) = lu(k,2242) - lu(k,926) * lu(k,2239) - lu(k,2248) = - lu(k,927) * lu(k,2239) - lu(k,2249) = lu(k,2249) - lu(k,928) * lu(k,2239) - lu(k,2254) = - lu(k,929) * lu(k,2239) - lu(k,2256) = lu(k,2256) - lu(k,930) * lu(k,2239) - lu(k,2259) = lu(k,2259) - lu(k,931) * lu(k,2239) - lu(k,2261) = lu(k,2261) - lu(k,932) * lu(k,2239) - lu(k,2262) = lu(k,2262) - lu(k,933) * lu(k,2239) - lu(k,2428) = lu(k,2428) - lu(k,926) * lu(k,2426) - lu(k,2435) = - lu(k,927) * lu(k,2426) - lu(k,2436) = lu(k,2436) - lu(k,928) * lu(k,2426) - lu(k,2441) = - lu(k,929) * lu(k,2426) - lu(k,2443) = lu(k,2443) - lu(k,930) * lu(k,2426) - lu(k,2446) = - lu(k,931) * lu(k,2426) - lu(k,2448) = - lu(k,932) * lu(k,2426) - lu(k,2449) = lu(k,2449) - lu(k,933) * lu(k,2426) + lu(k,875) = 1._r8 / lu(k,875) + lu(k,876) = lu(k,876) * lu(k,875) + lu(k,877) = lu(k,877) * lu(k,875) + lu(k,878) = lu(k,878) * lu(k,875) + lu(k,879) = lu(k,879) * lu(k,875) + lu(k,880) = lu(k,880) * lu(k,875) + lu(k,881) = lu(k,881) * lu(k,875) + lu(k,882) = lu(k,882) * lu(k,875) + lu(k,883) = lu(k,883) * lu(k,875) + lu(k,884) = lu(k,884) * lu(k,875) + lu(k,885) = lu(k,885) * lu(k,875) + lu(k,886) = lu(k,886) * lu(k,875) + lu(k,887) = lu(k,887) * lu(k,875) + lu(k,888) = lu(k,888) * lu(k,875) + lu(k,889) = lu(k,889) * lu(k,875) + lu(k,890) = lu(k,890) * lu(k,875) + lu(k,1755) = lu(k,1755) - lu(k,876) * lu(k,1751) + lu(k,1771) = lu(k,1771) - lu(k,877) * lu(k,1751) + lu(k,1773) = lu(k,1773) - lu(k,878) * lu(k,1751) + lu(k,1780) = - lu(k,879) * lu(k,1751) + lu(k,1781) = lu(k,1781) - lu(k,880) * lu(k,1751) + lu(k,1783) = lu(k,1783) - lu(k,881) * lu(k,1751) + lu(k,1784) = lu(k,1784) - lu(k,882) * lu(k,1751) + lu(k,1786) = lu(k,1786) - lu(k,883) * lu(k,1751) + lu(k,1788) = lu(k,1788) - lu(k,884) * lu(k,1751) + lu(k,1798) = lu(k,1798) - lu(k,885) * lu(k,1751) + lu(k,1801) = lu(k,1801) - lu(k,886) * lu(k,1751) + lu(k,1804) = lu(k,1804) - lu(k,887) * lu(k,1751) + lu(k,1807) = lu(k,1807) - lu(k,888) * lu(k,1751) + lu(k,1808) = lu(k,1808) - lu(k,889) * lu(k,1751) + lu(k,1810) = lu(k,1810) - lu(k,890) * lu(k,1751) + lu(k,2084) = lu(k,2084) - lu(k,876) * lu(k,2083) + lu(k,2095) = lu(k,2095) - lu(k,877) * lu(k,2083) + lu(k,2097) = lu(k,2097) - lu(k,878) * lu(k,2083) + lu(k,2102) = - lu(k,879) * lu(k,2083) + lu(k,2103) = lu(k,2103) - lu(k,880) * lu(k,2083) + lu(k,2105) = - lu(k,881) * lu(k,2083) + lu(k,2106) = - lu(k,882) * lu(k,2083) + lu(k,2108) = lu(k,2108) - lu(k,883) * lu(k,2083) + lu(k,2110) = lu(k,2110) - lu(k,884) * lu(k,2083) + lu(k,2118) = lu(k,2118) - lu(k,885) * lu(k,2083) + lu(k,2121) = lu(k,2121) - lu(k,886) * lu(k,2083) + lu(k,2124) = lu(k,2124) - lu(k,887) * lu(k,2083) + lu(k,2127) = lu(k,2127) - lu(k,888) * lu(k,2083) + lu(k,2128) = lu(k,2128) - lu(k,889) * lu(k,2083) + lu(k,2130) = lu(k,2130) - lu(k,890) * lu(k,2083) + lu(k,2189) = - lu(k,876) * lu(k,2187) + lu(k,2201) = lu(k,2201) - lu(k,877) * lu(k,2187) + lu(k,2203) = lu(k,2203) - lu(k,878) * lu(k,2187) + lu(k,2210) = lu(k,2210) - lu(k,879) * lu(k,2187) + lu(k,2211) = lu(k,2211) - lu(k,880) * lu(k,2187) + lu(k,2213) = lu(k,2213) - lu(k,881) * lu(k,2187) + lu(k,2214) = lu(k,2214) - lu(k,882) * lu(k,2187) + lu(k,2216) = lu(k,2216) - lu(k,883) * lu(k,2187) + lu(k,2218) = lu(k,2218) - lu(k,884) * lu(k,2187) + lu(k,2226) = lu(k,2226) - lu(k,885) * lu(k,2187) + lu(k,2229) = lu(k,2229) - lu(k,886) * lu(k,2187) + lu(k,2232) = - lu(k,887) * lu(k,2187) + lu(k,2235) = lu(k,2235) - lu(k,888) * lu(k,2187) + lu(k,2236) = lu(k,2236) - lu(k,889) * lu(k,2187) + lu(k,2238) = - lu(k,890) * lu(k,2187) + lu(k,891) = 1._r8 / lu(k,891) + lu(k,892) = lu(k,892) * lu(k,891) + lu(k,893) = lu(k,893) * lu(k,891) + lu(k,894) = lu(k,894) * lu(k,891) + lu(k,895) = lu(k,895) * lu(k,891) + lu(k,896) = lu(k,896) * lu(k,891) + lu(k,1091) = - lu(k,892) * lu(k,1086) + lu(k,1092) = - lu(k,893) * lu(k,1086) + lu(k,1094) = lu(k,1094) - lu(k,894) * lu(k,1086) + lu(k,1095) = lu(k,1095) - lu(k,895) * lu(k,1086) + lu(k,1096) = - lu(k,896) * lu(k,1086) + lu(k,1136) = - lu(k,892) * lu(k,1130) + lu(k,1137) = - lu(k,893) * lu(k,1130) + lu(k,1141) = lu(k,1141) - lu(k,894) * lu(k,1130) + lu(k,1142) = lu(k,1142) - lu(k,895) * lu(k,1130) + lu(k,1143) = lu(k,1143) - lu(k,896) * lu(k,1130) + lu(k,1254) = - lu(k,892) * lu(k,1247) + lu(k,1256) = lu(k,1256) - lu(k,893) * lu(k,1247) + lu(k,1258) = lu(k,1258) - lu(k,894) * lu(k,1247) + lu(k,1259) = lu(k,1259) - lu(k,895) * lu(k,1247) + lu(k,1260) = lu(k,1260) - lu(k,896) * lu(k,1247) + lu(k,1330) = lu(k,1330) - lu(k,892) * lu(k,1320) + lu(k,1335) = lu(k,1335) - lu(k,893) * lu(k,1320) + lu(k,1337) = lu(k,1337) - lu(k,894) * lu(k,1320) + lu(k,1338) = lu(k,1338) - lu(k,895) * lu(k,1320) + lu(k,1339) = lu(k,1339) - lu(k,896) * lu(k,1320) + lu(k,1782) = lu(k,1782) - lu(k,892) * lu(k,1752) + lu(k,1788) = lu(k,1788) - lu(k,893) * lu(k,1752) + lu(k,1798) = lu(k,1798) - lu(k,894) * lu(k,1752) + lu(k,1800) = lu(k,1800) - lu(k,895) * lu(k,1752) + lu(k,1801) = lu(k,1801) - lu(k,896) * lu(k,1752) + lu(k,1998) = lu(k,1998) - lu(k,892) * lu(k,1974) + lu(k,2004) = lu(k,2004) - lu(k,893) * lu(k,1974) + lu(k,2011) = lu(k,2011) - lu(k,894) * lu(k,1974) + lu(k,2013) = lu(k,2013) - lu(k,895) * lu(k,1974) + lu(k,2014) = lu(k,2014) - lu(k,896) * lu(k,1974) + lu(k,2212) = lu(k,2212) - lu(k,892) * lu(k,2188) + lu(k,2218) = lu(k,2218) - lu(k,893) * lu(k,2188) + lu(k,2226) = lu(k,2226) - lu(k,894) * lu(k,2188) + lu(k,2228) = lu(k,2228) - lu(k,895) * lu(k,2188) + lu(k,2229) = lu(k,2229) - lu(k,896) * lu(k,2188) + lu(k,2319) = lu(k,2319) - lu(k,892) * lu(k,2298) + lu(k,2325) = lu(k,2325) - lu(k,893) * lu(k,2298) + lu(k,2334) = lu(k,2334) - lu(k,894) * lu(k,2298) + lu(k,2336) = lu(k,2336) - lu(k,895) * lu(k,2298) + lu(k,2337) = lu(k,2337) - lu(k,896) * lu(k,2298) + lu(k,2397) = lu(k,2397) - lu(k,892) * lu(k,2378) + lu(k,2403) = lu(k,2403) - lu(k,893) * lu(k,2378) + lu(k,2409) = lu(k,2409) - lu(k,894) * lu(k,2378) + lu(k,2411) = lu(k,2411) - lu(k,895) * lu(k,2378) + lu(k,2412) = lu(k,2412) - lu(k,896) * lu(k,2378) + lu(k,900) = 1._r8 / lu(k,900) + lu(k,901) = lu(k,901) * lu(k,900) + lu(k,902) = lu(k,902) * lu(k,900) + lu(k,903) = lu(k,903) * lu(k,900) + lu(k,904) = lu(k,904) * lu(k,900) + lu(k,905) = lu(k,905) * lu(k,900) + lu(k,906) = lu(k,906) * lu(k,900) + lu(k,907) = lu(k,907) * lu(k,900) + lu(k,908) = lu(k,908) * lu(k,900) + lu(k,1027) = lu(k,1027) - lu(k,901) * lu(k,1024) + lu(k,1029) = - lu(k,902) * lu(k,1024) + lu(k,1030) = lu(k,1030) - lu(k,903) * lu(k,1024) + lu(k,1031) = lu(k,1031) - lu(k,904) * lu(k,1024) + lu(k,1032) = lu(k,1032) - lu(k,905) * lu(k,1024) + lu(k,1033) = lu(k,1033) - lu(k,906) * lu(k,1024) + lu(k,1034) = lu(k,1034) - lu(k,907) * lu(k,1024) + lu(k,1035) = - lu(k,908) * lu(k,1024) + lu(k,1772) = lu(k,1772) - lu(k,901) * lu(k,1753) + lu(k,1794) = lu(k,1794) - lu(k,902) * lu(k,1753) + lu(k,1798) = lu(k,1798) - lu(k,903) * lu(k,1753) + lu(k,1800) = lu(k,1800) - lu(k,904) * lu(k,1753) + lu(k,1801) = lu(k,1801) - lu(k,905) * lu(k,1753) + lu(k,1802) = lu(k,1802) - lu(k,906) * lu(k,1753) + lu(k,1808) = lu(k,1808) - lu(k,907) * lu(k,1753) + lu(k,1810) = lu(k,1810) - lu(k,908) * lu(k,1753) + lu(k,1830) = - lu(k,901) * lu(k,1824) + lu(k,1840) = lu(k,1840) - lu(k,902) * lu(k,1824) + lu(k,1844) = lu(k,1844) - lu(k,903) * lu(k,1824) + lu(k,1846) = lu(k,1846) - lu(k,904) * lu(k,1824) + lu(k,1847) = lu(k,1847) - lu(k,905) * lu(k,1824) + lu(k,1848) = lu(k,1848) - lu(k,906) * lu(k,1824) + lu(k,1854) = lu(k,1854) - lu(k,907) * lu(k,1824) + lu(k,1856) = lu(k,1856) - lu(k,908) * lu(k,1824) + lu(k,1988) = lu(k,1988) - lu(k,901) * lu(k,1975) + lu(k,2007) = lu(k,2007) - lu(k,902) * lu(k,1975) + lu(k,2011) = lu(k,2011) - lu(k,903) * lu(k,1975) + lu(k,2013) = lu(k,2013) - lu(k,904) * lu(k,1975) + lu(k,2014) = lu(k,2014) - lu(k,905) * lu(k,1975) + lu(k,2015) = lu(k,2015) - lu(k,906) * lu(k,1975) + lu(k,2021) = lu(k,2021) - lu(k,907) * lu(k,1975) + lu(k,2023) = lu(k,2023) - lu(k,908) * lu(k,1975) + lu(k,2310) = lu(k,2310) - lu(k,901) * lu(k,2299) + lu(k,2330) = lu(k,2330) - lu(k,902) * lu(k,2299) + lu(k,2334) = lu(k,2334) - lu(k,903) * lu(k,2299) + lu(k,2336) = lu(k,2336) - lu(k,904) * lu(k,2299) + lu(k,2337) = lu(k,2337) - lu(k,905) * lu(k,2299) + lu(k,2338) = lu(k,2338) - lu(k,906) * lu(k,2299) + lu(k,2344) = lu(k,2344) - lu(k,907) * lu(k,2299) + lu(k,2346) = lu(k,2346) - lu(k,908) * lu(k,2299) + lu(k,2388) = lu(k,2388) - lu(k,901) * lu(k,2379) + lu(k,2405) = lu(k,2405) - lu(k,902) * lu(k,2379) + lu(k,2409) = lu(k,2409) - lu(k,903) * lu(k,2379) + lu(k,2411) = lu(k,2411) - lu(k,904) * lu(k,2379) + lu(k,2412) = lu(k,2412) - lu(k,905) * lu(k,2379) + lu(k,2413) = lu(k,2413) - lu(k,906) * lu(k,2379) + lu(k,2419) = lu(k,2419) - lu(k,907) * lu(k,2379) + lu(k,2421) = lu(k,2421) - lu(k,908) * lu(k,2379) + lu(k,909) = 1._r8 / lu(k,909) + lu(k,910) = lu(k,910) * lu(k,909) + lu(k,911) = lu(k,911) * lu(k,909) + lu(k,912) = lu(k,912) * lu(k,909) + lu(k,913) = lu(k,913) * lu(k,909) + lu(k,914) = lu(k,914) * lu(k,909) + lu(k,915) = lu(k,915) * lu(k,909) + lu(k,916) = lu(k,916) * lu(k,909) + lu(k,917) = lu(k,917) * lu(k,909) + lu(k,1088) = lu(k,1088) - lu(k,910) * lu(k,1087) + lu(k,1090) = lu(k,1090) - lu(k,911) * lu(k,1087) + lu(k,1091) = lu(k,1091) - lu(k,912) * lu(k,1087) + lu(k,1094) = lu(k,1094) - lu(k,913) * lu(k,1087) + lu(k,1095) = lu(k,1095) - lu(k,914) * lu(k,1087) + lu(k,1097) = - lu(k,915) * lu(k,1087) + lu(k,1098) = lu(k,1098) - lu(k,916) * lu(k,1087) + lu(k,1100) = - lu(k,917) * lu(k,1087) + lu(k,1322) = lu(k,1322) - lu(k,910) * lu(k,1321) + lu(k,1323) = lu(k,1323) - lu(k,911) * lu(k,1321) + lu(k,1330) = lu(k,1330) - lu(k,912) * lu(k,1321) + lu(k,1337) = lu(k,1337) - lu(k,913) * lu(k,1321) + lu(k,1338) = lu(k,1338) - lu(k,914) * lu(k,1321) + lu(k,1340) = lu(k,1340) - lu(k,915) * lu(k,1321) + lu(k,1343) = lu(k,1343) - lu(k,916) * lu(k,1321) + lu(k,1345) = lu(k,1345) - lu(k,917) * lu(k,1321) + lu(k,1763) = lu(k,1763) - lu(k,910) * lu(k,1754) + lu(k,1773) = lu(k,1773) - lu(k,911) * lu(k,1754) + lu(k,1782) = lu(k,1782) - lu(k,912) * lu(k,1754) + lu(k,1798) = lu(k,1798) - lu(k,913) * lu(k,1754) + lu(k,1800) = lu(k,1800) - lu(k,914) * lu(k,1754) + lu(k,1802) = lu(k,1802) - lu(k,915) * lu(k,1754) + lu(k,1808) = lu(k,1808) - lu(k,916) * lu(k,1754) + lu(k,1810) = lu(k,1810) - lu(k,917) * lu(k,1754) + lu(k,1874) = lu(k,1874) - lu(k,910) * lu(k,1871) + lu(k,1876) = lu(k,1876) - lu(k,911) * lu(k,1871) + lu(k,1878) = lu(k,1878) - lu(k,912) * lu(k,1871) + lu(k,1889) = lu(k,1889) - lu(k,913) * lu(k,1871) + lu(k,1891) = lu(k,1891) - lu(k,914) * lu(k,1871) + lu(k,1893) = lu(k,1893) - lu(k,915) * lu(k,1871) + lu(k,1899) = lu(k,1899) - lu(k,916) * lu(k,1871) + lu(k,1901) = lu(k,1901) - lu(k,917) * lu(k,1871) + lu(k,1980) = lu(k,1980) - lu(k,910) * lu(k,1976) + lu(k,1989) = lu(k,1989) - lu(k,911) * lu(k,1976) + lu(k,1998) = lu(k,1998) - lu(k,912) * lu(k,1976) + lu(k,2011) = lu(k,2011) - lu(k,913) * lu(k,1976) + lu(k,2013) = lu(k,2013) - lu(k,914) * lu(k,1976) + lu(k,2015) = lu(k,2015) - lu(k,915) * lu(k,1976) + lu(k,2021) = lu(k,2021) - lu(k,916) * lu(k,1976) + lu(k,2023) = lu(k,2023) - lu(k,917) * lu(k,1976) + lu(k,2304) = lu(k,2304) - lu(k,910) * lu(k,2300) + lu(k,2311) = lu(k,2311) - lu(k,911) * lu(k,2300) + lu(k,2319) = lu(k,2319) - lu(k,912) * lu(k,2300) + lu(k,2334) = lu(k,2334) - lu(k,913) * lu(k,2300) + lu(k,2336) = lu(k,2336) - lu(k,914) * lu(k,2300) + lu(k,2338) = lu(k,2338) - lu(k,915) * lu(k,2300) + lu(k,2344) = lu(k,2344) - lu(k,916) * lu(k,2300) + lu(k,2346) = lu(k,2346) - lu(k,917) * lu(k,2300) end do end subroutine lu_fac19 subroutine lu_fac20( avec_len, lu ) @@ -3379,260 +3271,233 @@ subroutine lu_fac20( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,935) = 1._r8 / lu(k,935) - lu(k,936) = lu(k,936) * lu(k,935) - lu(k,937) = lu(k,937) * lu(k,935) - lu(k,938) = lu(k,938) * lu(k,935) - lu(k,939) = lu(k,939) * lu(k,935) - lu(k,940) = lu(k,940) * lu(k,935) - lu(k,941) = lu(k,941) * lu(k,935) - lu(k,942) = lu(k,942) * lu(k,935) - lu(k,943) = lu(k,943) * lu(k,935) - lu(k,944) = lu(k,944) * lu(k,935) - lu(k,945) = lu(k,945) * lu(k,935) - lu(k,1787) = lu(k,1787) - lu(k,936) * lu(k,1777) - lu(k,1792) = lu(k,1792) - lu(k,937) * lu(k,1777) - lu(k,1814) = lu(k,1814) - lu(k,938) * lu(k,1777) - lu(k,1818) = lu(k,1818) - lu(k,939) * lu(k,1777) - lu(k,1819) = lu(k,1819) - lu(k,940) * lu(k,1777) - lu(k,1820) = lu(k,1820) - lu(k,941) * lu(k,1777) - lu(k,1821) = lu(k,1821) - lu(k,942) * lu(k,1777) - lu(k,1829) = lu(k,1829) - lu(k,943) * lu(k,1777) - lu(k,1830) = lu(k,1830) - lu(k,944) * lu(k,1777) - lu(k,1831) = lu(k,1831) - lu(k,945) * lu(k,1777) - lu(k,1886) = lu(k,1886) - lu(k,936) * lu(k,1880) - lu(k,1890) = lu(k,1890) - lu(k,937) * lu(k,1880) - lu(k,1909) = lu(k,1909) - lu(k,938) * lu(k,1880) - lu(k,1913) = lu(k,1913) - lu(k,939) * lu(k,1880) - lu(k,1914) = lu(k,1914) - lu(k,940) * lu(k,1880) - lu(k,1915) = lu(k,1915) - lu(k,941) * lu(k,1880) - lu(k,1916) = lu(k,1916) - lu(k,942) * lu(k,1880) - lu(k,1924) = lu(k,1924) - lu(k,943) * lu(k,1880) - lu(k,1925) = lu(k,1925) - lu(k,944) * lu(k,1880) - lu(k,1926) = lu(k,1926) - lu(k,945) * lu(k,1880) - lu(k,2145) = - lu(k,936) * lu(k,2142) - lu(k,2146) = lu(k,2146) - lu(k,937) * lu(k,2142) - lu(k,2156) = lu(k,2156) - lu(k,938) * lu(k,2142) - lu(k,2160) = lu(k,2160) - lu(k,939) * lu(k,2142) - lu(k,2161) = lu(k,2161) - lu(k,940) * lu(k,2142) - lu(k,2162) = lu(k,2162) - lu(k,941) * lu(k,2142) - lu(k,2163) = lu(k,2163) - lu(k,942) * lu(k,2142) - lu(k,2171) = lu(k,2171) - lu(k,943) * lu(k,2142) - lu(k,2172) = lu(k,2172) - lu(k,944) * lu(k,2142) - lu(k,2173) = lu(k,2173) - lu(k,945) * lu(k,2142) - lu(k,2330) = lu(k,2330) - lu(k,936) * lu(k,2325) - lu(k,2333) = lu(k,2333) - lu(k,937) * lu(k,2325) - lu(k,2353) = lu(k,2353) - lu(k,938) * lu(k,2325) - lu(k,2357) = lu(k,2357) - lu(k,939) * lu(k,2325) - lu(k,2358) = lu(k,2358) - lu(k,940) * lu(k,2325) - lu(k,2359) = lu(k,2359) - lu(k,941) * lu(k,2325) - lu(k,2360) = lu(k,2360) - lu(k,942) * lu(k,2325) - lu(k,2368) = lu(k,2368) - lu(k,943) * lu(k,2325) - lu(k,2369) = lu(k,2369) - lu(k,944) * lu(k,2325) - lu(k,2370) = lu(k,2370) - lu(k,945) * lu(k,2325) - lu(k,2384) = lu(k,2384) - lu(k,936) * lu(k,2380) - lu(k,2388) = lu(k,2388) - lu(k,937) * lu(k,2380) - lu(k,2405) = lu(k,2405) - lu(k,938) * lu(k,2380) - lu(k,2409) = lu(k,2409) - lu(k,939) * lu(k,2380) - lu(k,2410) = lu(k,2410) - lu(k,940) * lu(k,2380) - lu(k,2411) = lu(k,2411) - lu(k,941) * lu(k,2380) - lu(k,2412) = lu(k,2412) - lu(k,942) * lu(k,2380) - lu(k,2420) = lu(k,2420) - lu(k,943) * lu(k,2380) - lu(k,2421) = lu(k,2421) - lu(k,944) * lu(k,2380) - lu(k,2422) = lu(k,2422) - lu(k,945) * lu(k,2380) - lu(k,947) = 1._r8 / lu(k,947) - lu(k,948) = lu(k,948) * lu(k,947) - lu(k,949) = lu(k,949) * lu(k,947) - lu(k,950) = lu(k,950) * lu(k,947) - lu(k,951) = lu(k,951) * lu(k,947) - lu(k,952) = lu(k,952) * lu(k,947) - lu(k,1476) = lu(k,1476) - lu(k,948) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,949) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,950) * lu(k,1475) - lu(k,1488) = - lu(k,951) * lu(k,1475) - lu(k,1489) = - lu(k,952) * lu(k,1475) - lu(k,1540) = lu(k,1540) - lu(k,948) * lu(k,1535) - lu(k,1545) = lu(k,1545) - lu(k,949) * lu(k,1535) - lu(k,1550) = lu(k,1550) - lu(k,950) * lu(k,1535) - lu(k,1554) = lu(k,1554) - lu(k,951) * lu(k,1535) - lu(k,1555) = - lu(k,952) * lu(k,1535) - lu(k,1561) = lu(k,1561) - lu(k,948) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,949) * lu(k,1560) - lu(k,1574) = lu(k,1574) - lu(k,950) * lu(k,1560) - lu(k,1578) = lu(k,1578) - lu(k,951) * lu(k,1560) - lu(k,1579) = lu(k,1579) - lu(k,952) * lu(k,1560) - lu(k,1587) = lu(k,1587) - lu(k,948) * lu(k,1585) - lu(k,1594) = lu(k,1594) - lu(k,949) * lu(k,1585) - lu(k,1600) = lu(k,1600) - lu(k,950) * lu(k,1585) - lu(k,1604) = lu(k,1604) - lu(k,951) * lu(k,1585) - lu(k,1606) = lu(k,1606) - lu(k,952) * lu(k,1585) - lu(k,1647) = - lu(k,948) * lu(k,1617) - lu(k,1653) = lu(k,1653) - lu(k,949) * lu(k,1617) - lu(k,1659) = lu(k,1659) - lu(k,950) * lu(k,1617) - lu(k,1664) = lu(k,1664) - lu(k,951) * lu(k,1617) - lu(k,1666) = lu(k,1666) - lu(k,952) * lu(k,1617) - lu(k,1811) = lu(k,1811) - lu(k,948) * lu(k,1778) - lu(k,1818) = lu(k,1818) - lu(k,949) * lu(k,1778) - lu(k,1824) = lu(k,1824) - lu(k,950) * lu(k,1778) - lu(k,1829) = lu(k,1829) - lu(k,951) * lu(k,1778) - lu(k,1831) = lu(k,1831) - lu(k,952) * lu(k,1778) - lu(k,1951) = lu(k,1951) - lu(k,948) * lu(k,1941) - lu(k,1958) = lu(k,1958) - lu(k,949) * lu(k,1941) - lu(k,1964) = lu(k,1964) - lu(k,950) * lu(k,1941) - lu(k,1969) = lu(k,1969) - lu(k,951) * lu(k,1941) - lu(k,1971) = lu(k,1971) - lu(k,952) * lu(k,1941) - lu(k,2086) = lu(k,2086) - lu(k,948) * lu(k,2080) - lu(k,2093) = lu(k,2093) - lu(k,949) * lu(k,2080) - lu(k,2099) = lu(k,2099) - lu(k,950) * lu(k,2080) - lu(k,2104) = lu(k,2104) - lu(k,951) * lu(k,2080) - lu(k,2106) = lu(k,2106) - lu(k,952) * lu(k,2080) - lu(k,2218) = lu(k,2218) - lu(k,948) * lu(k,2191) - lu(k,2224) = lu(k,2224) - lu(k,949) * lu(k,2191) - lu(k,2230) = lu(k,2230) - lu(k,950) * lu(k,2191) - lu(k,2235) = lu(k,2235) - lu(k,951) * lu(k,2191) - lu(k,2237) = lu(k,2237) - lu(k,952) * lu(k,2191) - lu(k,2429) = - lu(k,948) * lu(k,2427) - lu(k,2436) = lu(k,2436) - lu(k,949) * lu(k,2427) - lu(k,2442) = lu(k,2442) - lu(k,950) * lu(k,2427) - lu(k,2447) = - lu(k,951) * lu(k,2427) - lu(k,2449) = lu(k,2449) - lu(k,952) * lu(k,2427) - lu(k,955) = 1._r8 / lu(k,955) - lu(k,956) = lu(k,956) * lu(k,955) - lu(k,957) = lu(k,957) * lu(k,955) - lu(k,958) = lu(k,958) * lu(k,955) - lu(k,959) = lu(k,959) * lu(k,955) - lu(k,960) = lu(k,960) * lu(k,955) - lu(k,961) = lu(k,961) * lu(k,955) - lu(k,962) = lu(k,962) * lu(k,955) - lu(k,963) = lu(k,963) * lu(k,955) - lu(k,964) = lu(k,964) * lu(k,955) - lu(k,1495) = lu(k,1495) - lu(k,956) * lu(k,1494) - lu(k,1498) = lu(k,1498) - lu(k,957) * lu(k,1494) - lu(k,1499) = - lu(k,958) * lu(k,1494) - lu(k,1500) = lu(k,1500) - lu(k,959) * lu(k,1494) - lu(k,1501) = - lu(k,960) * lu(k,1494) - lu(k,1503) = lu(k,1503) - lu(k,961) * lu(k,1494) - lu(k,1504) = lu(k,1504) - lu(k,962) * lu(k,1494) - lu(k,1506) = lu(k,1506) - lu(k,963) * lu(k,1494) - lu(k,1507) = lu(k,1507) - lu(k,964) * lu(k,1494) - lu(k,1588) = lu(k,1588) - lu(k,956) * lu(k,1586) - lu(k,1592) = lu(k,1592) - lu(k,957) * lu(k,1586) - lu(k,1593) = - lu(k,958) * lu(k,1586) - lu(k,1594) = lu(k,1594) - lu(k,959) * lu(k,1586) - lu(k,1596) = lu(k,1596) - lu(k,960) * lu(k,1586) - lu(k,1599) = - lu(k,961) * lu(k,1586) - lu(k,1600) = lu(k,1600) - lu(k,962) * lu(k,1586) - lu(k,1602) = lu(k,1602) - lu(k,963) * lu(k,1586) - lu(k,1606) = lu(k,1606) - lu(k,964) * lu(k,1586) - lu(k,1812) = lu(k,1812) - lu(k,956) * lu(k,1779) - lu(k,1816) = lu(k,1816) - lu(k,957) * lu(k,1779) - lu(k,1817) = lu(k,1817) - lu(k,958) * lu(k,1779) - lu(k,1818) = lu(k,1818) - lu(k,959) * lu(k,1779) - lu(k,1820) = lu(k,1820) - lu(k,960) * lu(k,1779) - lu(k,1823) = lu(k,1823) - lu(k,961) * lu(k,1779) - lu(k,1824) = lu(k,1824) - lu(k,962) * lu(k,1779) - lu(k,1826) = lu(k,1826) - lu(k,963) * lu(k,1779) - lu(k,1831) = lu(k,1831) - lu(k,964) * lu(k,1779) - lu(k,1952) = lu(k,1952) - lu(k,956) * lu(k,1942) - lu(k,1956) = lu(k,1956) - lu(k,957) * lu(k,1942) - lu(k,1957) = lu(k,1957) - lu(k,958) * lu(k,1942) - lu(k,1958) = lu(k,1958) - lu(k,959) * lu(k,1942) - lu(k,1960) = lu(k,1960) - lu(k,960) * lu(k,1942) - lu(k,1963) = lu(k,1963) - lu(k,961) * lu(k,1942) - lu(k,1964) = lu(k,1964) - lu(k,962) * lu(k,1942) - lu(k,1966) = lu(k,1966) - lu(k,963) * lu(k,1942) - lu(k,1971) = lu(k,1971) - lu(k,964) * lu(k,1942) - lu(k,2087) = lu(k,2087) - lu(k,956) * lu(k,2081) - lu(k,2091) = lu(k,2091) - lu(k,957) * lu(k,2081) - lu(k,2092) = lu(k,2092) - lu(k,958) * lu(k,2081) - lu(k,2093) = lu(k,2093) - lu(k,959) * lu(k,2081) - lu(k,2095) = lu(k,2095) - lu(k,960) * lu(k,2081) - lu(k,2098) = lu(k,2098) - lu(k,961) * lu(k,2081) - lu(k,2099) = lu(k,2099) - lu(k,962) * lu(k,2081) - lu(k,2101) = lu(k,2101) - lu(k,963) * lu(k,2081) - lu(k,2106) = lu(k,2106) - lu(k,964) * lu(k,2081) - lu(k,2154) = lu(k,2154) - lu(k,956) * lu(k,2143) - lu(k,2158) = lu(k,2158) - lu(k,957) * lu(k,2143) - lu(k,2159) = lu(k,2159) - lu(k,958) * lu(k,2143) - lu(k,2160) = lu(k,2160) - lu(k,959) * lu(k,2143) - lu(k,2162) = lu(k,2162) - lu(k,960) * lu(k,2143) - lu(k,2165) = - lu(k,961) * lu(k,2143) - lu(k,2166) = lu(k,2166) - lu(k,962) * lu(k,2143) - lu(k,2168) = lu(k,2168) - lu(k,963) * lu(k,2143) - lu(k,2173) = lu(k,2173) - lu(k,964) * lu(k,2143) - lu(k,974) = 1._r8 / lu(k,974) - lu(k,975) = lu(k,975) * lu(k,974) - lu(k,976) = lu(k,976) * lu(k,974) - lu(k,977) = lu(k,977) * lu(k,974) - lu(k,978) = lu(k,978) * lu(k,974) - lu(k,979) = lu(k,979) * lu(k,974) - lu(k,980) = lu(k,980) * lu(k,974) - lu(k,981) = lu(k,981) * lu(k,974) - lu(k,982) = lu(k,982) * lu(k,974) - lu(k,983) = lu(k,983) * lu(k,974) - lu(k,984) = lu(k,984) * lu(k,974) - lu(k,985) = lu(k,985) * lu(k,974) - lu(k,986) = lu(k,986) * lu(k,974) - lu(k,987) = lu(k,987) * lu(k,974) - lu(k,988) = lu(k,988) * lu(k,974) - lu(k,989) = lu(k,989) * lu(k,974) - lu(k,990) = lu(k,990) * lu(k,974) - lu(k,991) = lu(k,991) * lu(k,974) - lu(k,992) = lu(k,992) * lu(k,974) - lu(k,1620) = - lu(k,975) * lu(k,1618) - lu(k,1621) = lu(k,1621) - lu(k,976) * lu(k,1618) - lu(k,1622) = - lu(k,977) * lu(k,1618) - lu(k,1623) = lu(k,1623) - lu(k,978) * lu(k,1618) - lu(k,1624) = lu(k,1624) - lu(k,979) * lu(k,1618) - lu(k,1626) = lu(k,1626) - lu(k,980) * lu(k,1618) - lu(k,1627) = - lu(k,981) * lu(k,1618) - lu(k,1630) = lu(k,1630) - lu(k,982) * lu(k,1618) - lu(k,1635) = - lu(k,983) * lu(k,1618) - lu(k,1639) = lu(k,1639) - lu(k,984) * lu(k,1618) - lu(k,1645) = lu(k,1645) - lu(k,985) * lu(k,1618) - lu(k,1646) = lu(k,1646) - lu(k,986) * lu(k,1618) - lu(k,1652) = lu(k,1652) - lu(k,987) * lu(k,1618) - lu(k,1653) = lu(k,1653) - lu(k,988) * lu(k,1618) - lu(k,1656) = lu(k,1656) - lu(k,989) * lu(k,1618) - lu(k,1662) = lu(k,1662) - lu(k,990) * lu(k,1618) - lu(k,1664) = lu(k,1664) - lu(k,991) * lu(k,1618) - lu(k,1666) = lu(k,1666) - lu(k,992) * lu(k,1618) - lu(k,1783) = lu(k,1783) - lu(k,975) * lu(k,1780) - lu(k,1784) = lu(k,1784) - lu(k,976) * lu(k,1780) - lu(k,1785) = lu(k,1785) - lu(k,977) * lu(k,1780) - lu(k,1786) = lu(k,1786) - lu(k,978) * lu(k,1780) - lu(k,1787) = lu(k,1787) - lu(k,979) * lu(k,1780) - lu(k,1789) = lu(k,1789) - lu(k,980) * lu(k,1780) - lu(k,1790) = lu(k,1790) - lu(k,981) * lu(k,1780) - lu(k,1793) = lu(k,1793) - lu(k,982) * lu(k,1780) - lu(k,1798) = lu(k,1798) - lu(k,983) * lu(k,1780) - lu(k,1802) = lu(k,1802) - lu(k,984) * lu(k,1780) - lu(k,1808) = lu(k,1808) - lu(k,985) * lu(k,1780) - lu(k,1809) = lu(k,1809) - lu(k,986) * lu(k,1780) - lu(k,1817) = lu(k,1817) - lu(k,987) * lu(k,1780) - lu(k,1818) = lu(k,1818) - lu(k,988) * lu(k,1780) - lu(k,1821) = lu(k,1821) - lu(k,989) * lu(k,1780) - lu(k,1827) = lu(k,1827) - lu(k,990) * lu(k,1780) - lu(k,1829) = lu(k,1829) - lu(k,991) * lu(k,1780) - lu(k,1831) = lu(k,1831) - lu(k,992) * lu(k,1780) - lu(k,2194) = lu(k,2194) - lu(k,975) * lu(k,2192) - lu(k,2195) = lu(k,2195) - lu(k,976) * lu(k,2192) - lu(k,2196) = - lu(k,977) * lu(k,2192) - lu(k,2197) = lu(k,2197) - lu(k,978) * lu(k,2192) - lu(k,2198) = lu(k,2198) - lu(k,979) * lu(k,2192) - lu(k,2199) = - lu(k,980) * lu(k,2192) - lu(k,2200) = lu(k,2200) - lu(k,981) * lu(k,2192) - lu(k,2203) = lu(k,2203) - lu(k,982) * lu(k,2192) - lu(k,2207) = lu(k,2207) - lu(k,983) * lu(k,2192) - lu(k,2210) = lu(k,2210) - lu(k,984) * lu(k,2192) - lu(k,2216) = lu(k,2216) - lu(k,985) * lu(k,2192) - lu(k,2217) = lu(k,2217) - lu(k,986) * lu(k,2192) - lu(k,2223) = lu(k,2223) - lu(k,987) * lu(k,2192) - lu(k,2224) = lu(k,2224) - lu(k,988) * lu(k,2192) - lu(k,2227) = lu(k,2227) - lu(k,989) * lu(k,2192) - lu(k,2233) = lu(k,2233) - lu(k,990) * lu(k,2192) - lu(k,2235) = lu(k,2235) - lu(k,991) * lu(k,2192) - lu(k,2237) = lu(k,2237) - lu(k,992) * lu(k,2192) + lu(k,918) = 1._r8 / lu(k,918) + lu(k,919) = lu(k,919) * lu(k,918) + lu(k,920) = lu(k,920) * lu(k,918) + lu(k,921) = lu(k,921) * lu(k,918) + lu(k,922) = lu(k,922) * lu(k,918) + lu(k,985) = lu(k,985) - lu(k,919) * lu(k,972) + lu(k,986) = lu(k,986) - lu(k,920) * lu(k,972) + lu(k,990) = lu(k,990) - lu(k,921) * lu(k,972) + lu(k,991) = - lu(k,922) * lu(k,972) + lu(k,1013) = lu(k,1013) - lu(k,919) * lu(k,1000) + lu(k,1014) = lu(k,1014) - lu(k,920) * lu(k,1000) + lu(k,1018) = lu(k,1018) - lu(k,921) * lu(k,1000) + lu(k,1019) = - lu(k,922) * lu(k,1000) + lu(k,1138) = lu(k,1138) - lu(k,919) * lu(k,1131) + lu(k,1141) = lu(k,1141) - lu(k,920) * lu(k,1131) + lu(k,1147) = lu(k,1147) - lu(k,921) * lu(k,1131) + lu(k,1149) = lu(k,1149) - lu(k,922) * lu(k,1131) + lu(k,1273) = - lu(k,919) * lu(k,1266) + lu(k,1274) = lu(k,1274) - lu(k,920) * lu(k,1266) + lu(k,1277) = lu(k,1277) - lu(k,921) * lu(k,1266) + lu(k,1278) = lu(k,1278) - lu(k,922) * lu(k,1266) + lu(k,1378) = lu(k,1378) - lu(k,919) * lu(k,1368) + lu(k,1381) = lu(k,1381) - lu(k,920) * lu(k,1368) + lu(k,1387) = lu(k,1387) - lu(k,921) * lu(k,1368) + lu(k,1390) = - lu(k,922) * lu(k,1368) + lu(k,1789) = lu(k,1789) - lu(k,919) * lu(k,1755) + lu(k,1798) = lu(k,1798) - lu(k,920) * lu(k,1755) + lu(k,1808) = lu(k,1808) - lu(k,921) * lu(k,1755) + lu(k,1811) = lu(k,1811) - lu(k,922) * lu(k,1755) + lu(k,1836) = - lu(k,919) * lu(k,1825) + lu(k,1844) = lu(k,1844) - lu(k,920) * lu(k,1825) + lu(k,1854) = lu(k,1854) - lu(k,921) * lu(k,1825) + lu(k,1857) = lu(k,1857) - lu(k,922) * lu(k,1825) + lu(k,1907) = - lu(k,919) * lu(k,1905) + lu(k,1915) = lu(k,1915) - lu(k,920) * lu(k,1905) + lu(k,1925) = lu(k,1925) - lu(k,921) * lu(k,1905) + lu(k,1928) = lu(k,1928) - lu(k,922) * lu(k,1905) + lu(k,2005) = lu(k,2005) - lu(k,919) * lu(k,1977) + lu(k,2011) = lu(k,2011) - lu(k,920) * lu(k,1977) + lu(k,2021) = lu(k,2021) - lu(k,921) * lu(k,1977) + lu(k,2024) = lu(k,2024) - lu(k,922) * lu(k,1977) + lu(k,2111) = lu(k,2111) - lu(k,919) * lu(k,2084) + lu(k,2118) = lu(k,2118) - lu(k,920) * lu(k,2084) + lu(k,2128) = lu(k,2128) - lu(k,921) * lu(k,2084) + lu(k,2131) = lu(k,2131) - lu(k,922) * lu(k,2084) + lu(k,2219) = - lu(k,919) * lu(k,2189) + lu(k,2226) = lu(k,2226) - lu(k,920) * lu(k,2189) + lu(k,2236) = lu(k,2236) - lu(k,921) * lu(k,2189) + lu(k,2239) = - lu(k,922) * lu(k,2189) + lu(k,2326) = lu(k,2326) - lu(k,919) * lu(k,2301) + lu(k,2334) = lu(k,2334) - lu(k,920) * lu(k,2301) + lu(k,2344) = lu(k,2344) - lu(k,921) * lu(k,2301) + lu(k,2347) = lu(k,2347) - lu(k,922) * lu(k,2301) + lu(k,924) = 1._r8 / lu(k,924) + lu(k,925) = lu(k,925) * lu(k,924) + lu(k,926) = lu(k,926) * lu(k,924) + lu(k,927) = lu(k,927) * lu(k,924) + lu(k,928) = lu(k,928) * lu(k,924) + lu(k,929) = lu(k,929) * lu(k,924) + lu(k,930) = lu(k,930) * lu(k,924) + lu(k,931) = lu(k,931) * lu(k,924) + lu(k,932) = lu(k,932) * lu(k,924) + lu(k,1460) = lu(k,1460) - lu(k,925) * lu(k,1459) + lu(k,1462) = - lu(k,926) * lu(k,1459) + lu(k,1464) = lu(k,1464) - lu(k,927) * lu(k,1459) + lu(k,1467) = lu(k,1467) - lu(k,928) * lu(k,1459) + lu(k,1468) = - lu(k,929) * lu(k,1459) + lu(k,1469) = - lu(k,930) * lu(k,1459) + lu(k,1470) = - lu(k,931) * lu(k,1459) + lu(k,1471) = lu(k,1471) - lu(k,932) * lu(k,1459) + lu(k,1559) = lu(k,1559) - lu(k,925) * lu(k,1556) + lu(k,1563) = lu(k,1563) - lu(k,926) * lu(k,1556) + lu(k,1566) = lu(k,1566) - lu(k,927) * lu(k,1556) + lu(k,1574) = lu(k,1574) - lu(k,928) * lu(k,1556) + lu(k,1575) = - lu(k,929) * lu(k,1556) + lu(k,1577) = - lu(k,930) * lu(k,1556) + lu(k,1578) = lu(k,1578) - lu(k,931) * lu(k,1556) + lu(k,1579) = lu(k,1579) - lu(k,932) * lu(k,1556) + lu(k,1626) = lu(k,1626) - lu(k,925) * lu(k,1625) + lu(k,1630) = lu(k,1630) - lu(k,926) * lu(k,1625) + lu(k,1633) = lu(k,1633) - lu(k,927) * lu(k,1625) + lu(k,1641) = lu(k,1641) - lu(k,928) * lu(k,1625) + lu(k,1642) = - lu(k,929) * lu(k,1625) + lu(k,1644) = - lu(k,930) * lu(k,1625) + lu(k,1645) = lu(k,1645) - lu(k,931) * lu(k,1625) + lu(k,1646) = lu(k,1646) - lu(k,932) * lu(k,1625) + lu(k,1790) = lu(k,1790) - lu(k,925) * lu(k,1756) + lu(k,1795) = lu(k,1795) - lu(k,926) * lu(k,1756) + lu(k,1798) = lu(k,1798) - lu(k,927) * lu(k,1756) + lu(k,1806) = lu(k,1806) - lu(k,928) * lu(k,1756) + lu(k,1807) = lu(k,1807) - lu(k,929) * lu(k,1756) + lu(k,1809) = lu(k,1809) - lu(k,930) * lu(k,1756) + lu(k,1810) = lu(k,1810) - lu(k,931) * lu(k,1756) + lu(k,1811) = lu(k,1811) - lu(k,932) * lu(k,1756) + lu(k,2350) = - lu(k,925) * lu(k,2349) + lu(k,2354) = - lu(k,926) * lu(k,2349) + lu(k,2357) = lu(k,2357) - lu(k,927) * lu(k,2349) + lu(k,2365) = lu(k,2365) - lu(k,928) * lu(k,2349) + lu(k,2366) = lu(k,2366) - lu(k,929) * lu(k,2349) + lu(k,2368) = lu(k,2368) - lu(k,930) * lu(k,2349) + lu(k,2369) = - lu(k,931) * lu(k,2349) + lu(k,2370) = lu(k,2370) - lu(k,932) * lu(k,2349) + lu(k,2428) = lu(k,2428) - lu(k,925) * lu(k,2426) + lu(k,2433) = - lu(k,926) * lu(k,2426) + lu(k,2436) = lu(k,2436) - lu(k,927) * lu(k,2426) + lu(k,2444) = lu(k,2444) - lu(k,928) * lu(k,2426) + lu(k,2445) = - lu(k,929) * lu(k,2426) + lu(k,2447) = - lu(k,930) * lu(k,2426) + lu(k,2448) = - lu(k,931) * lu(k,2426) + lu(k,2449) = lu(k,2449) - lu(k,932) * lu(k,2426) + lu(k,934) = 1._r8 / lu(k,934) + lu(k,935) = lu(k,935) * lu(k,934) + lu(k,936) = lu(k,936) * lu(k,934) + lu(k,937) = lu(k,937) * lu(k,934) + lu(k,938) = lu(k,938) * lu(k,934) + lu(k,939) = lu(k,939) * lu(k,934) + lu(k,940) = lu(k,940) * lu(k,934) + lu(k,941) = lu(k,941) * lu(k,934) + lu(k,942) = lu(k,942) * lu(k,934) + lu(k,943) = lu(k,943) * lu(k,934) + lu(k,944) = lu(k,944) * lu(k,934) + lu(k,1767) = lu(k,1767) - lu(k,935) * lu(k,1757) + lu(k,1772) = lu(k,1772) - lu(k,936) * lu(k,1757) + lu(k,1794) = lu(k,1794) - lu(k,937) * lu(k,1757) + lu(k,1798) = lu(k,1798) - lu(k,938) * lu(k,1757) + lu(k,1800) = lu(k,1800) - lu(k,939) * lu(k,1757) + lu(k,1801) = lu(k,1801) - lu(k,940) * lu(k,1757) + lu(k,1802) = lu(k,1802) - lu(k,941) * lu(k,1757) + lu(k,1808) = lu(k,1808) - lu(k,942) * lu(k,1757) + lu(k,1810) = lu(k,1810) - lu(k,943) * lu(k,1757) + lu(k,1811) = lu(k,1811) - lu(k,944) * lu(k,1757) + lu(k,1829) = - lu(k,935) * lu(k,1826) + lu(k,1830) = lu(k,1830) - lu(k,936) * lu(k,1826) + lu(k,1840) = lu(k,1840) - lu(k,937) * lu(k,1826) + lu(k,1844) = lu(k,1844) - lu(k,938) * lu(k,1826) + lu(k,1846) = lu(k,1846) - lu(k,939) * lu(k,1826) + lu(k,1847) = lu(k,1847) - lu(k,940) * lu(k,1826) + lu(k,1848) = lu(k,1848) - lu(k,941) * lu(k,1826) + lu(k,1854) = lu(k,1854) - lu(k,942) * lu(k,1826) + lu(k,1856) = lu(k,1856) - lu(k,943) * lu(k,1826) + lu(k,1857) = lu(k,1857) - lu(k,944) * lu(k,1826) + lu(k,1984) = lu(k,1984) - lu(k,935) * lu(k,1978) + lu(k,1988) = lu(k,1988) - lu(k,936) * lu(k,1978) + lu(k,2007) = lu(k,2007) - lu(k,937) * lu(k,1978) + lu(k,2011) = lu(k,2011) - lu(k,938) * lu(k,1978) + lu(k,2013) = lu(k,2013) - lu(k,939) * lu(k,1978) + lu(k,2014) = lu(k,2014) - lu(k,940) * lu(k,1978) + lu(k,2015) = lu(k,2015) - lu(k,941) * lu(k,1978) + lu(k,2021) = lu(k,2021) - lu(k,942) * lu(k,1978) + lu(k,2023) = lu(k,2023) - lu(k,943) * lu(k,1978) + lu(k,2024) = lu(k,2024) - lu(k,944) * lu(k,1978) + lu(k,2307) = lu(k,2307) - lu(k,935) * lu(k,2302) + lu(k,2310) = lu(k,2310) - lu(k,936) * lu(k,2302) + lu(k,2330) = lu(k,2330) - lu(k,937) * lu(k,2302) + lu(k,2334) = lu(k,2334) - lu(k,938) * lu(k,2302) + lu(k,2336) = lu(k,2336) - lu(k,939) * lu(k,2302) + lu(k,2337) = lu(k,2337) - lu(k,940) * lu(k,2302) + lu(k,2338) = lu(k,2338) - lu(k,941) * lu(k,2302) + lu(k,2344) = lu(k,2344) - lu(k,942) * lu(k,2302) + lu(k,2346) = lu(k,2346) - lu(k,943) * lu(k,2302) + lu(k,2347) = lu(k,2347) - lu(k,944) * lu(k,2302) + lu(k,2384) = lu(k,2384) - lu(k,935) * lu(k,2380) + lu(k,2388) = lu(k,2388) - lu(k,936) * lu(k,2380) + lu(k,2405) = lu(k,2405) - lu(k,937) * lu(k,2380) + lu(k,2409) = lu(k,2409) - lu(k,938) * lu(k,2380) + lu(k,2411) = lu(k,2411) - lu(k,939) * lu(k,2380) + lu(k,2412) = lu(k,2412) - lu(k,940) * lu(k,2380) + lu(k,2413) = lu(k,2413) - lu(k,941) * lu(k,2380) + lu(k,2419) = lu(k,2419) - lu(k,942) * lu(k,2380) + lu(k,2421) = lu(k,2421) - lu(k,943) * lu(k,2380) + lu(k,2422) = lu(k,2422) - lu(k,944) * lu(k,2380) + lu(k,946) = 1._r8 / lu(k,946) + lu(k,947) = lu(k,947) * lu(k,946) + lu(k,948) = lu(k,948) * lu(k,946) + lu(k,949) = lu(k,949) * lu(k,946) + lu(k,950) = lu(k,950) * lu(k,946) + lu(k,951) = lu(k,951) * lu(k,946) + lu(k,1475) = lu(k,1475) - lu(k,947) * lu(k,1474) + lu(k,1479) = lu(k,1479) - lu(k,948) * lu(k,1474) + lu(k,1483) = lu(k,1483) - lu(k,949) * lu(k,1474) + lu(k,1487) = - lu(k,950) * lu(k,1474) + lu(k,1488) = - lu(k,951) * lu(k,1474) + lu(k,1539) = lu(k,1539) - lu(k,947) * lu(k,1534) + lu(k,1544) = lu(k,1544) - lu(k,948) * lu(k,1534) + lu(k,1549) = lu(k,1549) - lu(k,949) * lu(k,1534) + lu(k,1553) = lu(k,1553) - lu(k,950) * lu(k,1534) + lu(k,1554) = - lu(k,951) * lu(k,1534) + lu(k,1585) = lu(k,1585) - lu(k,947) * lu(k,1584) + lu(k,1591) = lu(k,1591) - lu(k,948) * lu(k,1584) + lu(k,1596) = lu(k,1596) - lu(k,949) * lu(k,1584) + lu(k,1601) = lu(k,1601) - lu(k,950) * lu(k,1584) + lu(k,1603) = lu(k,1603) - lu(k,951) * lu(k,1584) + lu(k,1791) = lu(k,1791) - lu(k,947) * lu(k,1758) + lu(k,1798) = lu(k,1798) - lu(k,948) * lu(k,1758) + lu(k,1803) = lu(k,1803) - lu(k,949) * lu(k,1758) + lu(k,1808) = lu(k,1808) - lu(k,950) * lu(k,1758) + lu(k,1811) = lu(k,1811) - lu(k,951) * lu(k,1758) + lu(k,1882) = lu(k,1882) - lu(k,947) * lu(k,1872) + lu(k,1889) = lu(k,1889) - lu(k,948) * lu(k,1872) + lu(k,1894) = lu(k,1894) - lu(k,949) * lu(k,1872) + lu(k,1899) = lu(k,1899) - lu(k,950) * lu(k,1872) + lu(k,1902) = lu(k,1902) - lu(k,951) * lu(k,1872) + lu(k,2047) = lu(k,2047) - lu(k,947) * lu(k,2041) + lu(k,2054) = lu(k,2054) - lu(k,948) * lu(k,2041) + lu(k,2059) = lu(k,2059) - lu(k,949) * lu(k,2041) + lu(k,2064) = lu(k,2064) - lu(k,950) * lu(k,2041) + lu(k,2067) = lu(k,2067) - lu(k,951) * lu(k,2041) + lu(k,2112) = lu(k,2112) - lu(k,947) * lu(k,2085) + lu(k,2118) = lu(k,2118) - lu(k,948) * lu(k,2085) + lu(k,2123) = lu(k,2123) - lu(k,949) * lu(k,2085) + lu(k,2128) = lu(k,2128) - lu(k,950) * lu(k,2085) + lu(k,2131) = lu(k,2131) - lu(k,951) * lu(k,2085) + lu(k,2139) = lu(k,2139) - lu(k,947) * lu(k,2137) + lu(k,2145) = lu(k,2145) - lu(k,948) * lu(k,2137) + lu(k,2150) = lu(k,2150) - lu(k,949) * lu(k,2137) + lu(k,2155) = lu(k,2155) - lu(k,950) * lu(k,2137) + lu(k,2158) = lu(k,2158) - lu(k,951) * lu(k,2137) + lu(k,2220) = - lu(k,947) * lu(k,2190) + lu(k,2226) = lu(k,2226) - lu(k,948) * lu(k,2190) + lu(k,2231) = lu(k,2231) - lu(k,949) * lu(k,2190) + lu(k,2236) = lu(k,2236) - lu(k,950) * lu(k,2190) + lu(k,2239) = lu(k,2239) - lu(k,951) * lu(k,2190) + lu(k,2429) = - lu(k,947) * lu(k,2427) + lu(k,2436) = lu(k,2436) - lu(k,948) * lu(k,2427) + lu(k,2441) = lu(k,2441) - lu(k,949) * lu(k,2427) + lu(k,2446) = - lu(k,950) * lu(k,2427) + lu(k,2449) = lu(k,2449) - lu(k,951) * lu(k,2427) end do end subroutine lu_fac20 subroutine lu_fac21( avec_len, lu ) @@ -3649,261 +3514,216 @@ subroutine lu_fac21( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,999) = 1._r8 / lu(k,999) - lu(k,1000) = lu(k,1000) * lu(k,999) - lu(k,1001) = lu(k,1001) * lu(k,999) - lu(k,1002) = lu(k,1002) * lu(k,999) - lu(k,1003) = lu(k,1003) * lu(k,999) - lu(k,1004) = lu(k,1004) * lu(k,999) - lu(k,1005) = lu(k,1005) * lu(k,999) - lu(k,1006) = lu(k,1006) * lu(k,999) - lu(k,1007) = lu(k,1007) * lu(k,999) - lu(k,1008) = lu(k,1008) * lu(k,999) - lu(k,1449) = lu(k,1449) - lu(k,1000) * lu(k,1448) - lu(k,1450) = lu(k,1450) - lu(k,1001) * lu(k,1448) - lu(k,1451) = lu(k,1451) - lu(k,1002) * lu(k,1448) - lu(k,1452) = - lu(k,1003) * lu(k,1448) - lu(k,1453) = lu(k,1453) - lu(k,1004) * lu(k,1448) - lu(k,1454) = - lu(k,1005) * lu(k,1448) - lu(k,1455) = lu(k,1455) - lu(k,1006) * lu(k,1448) - lu(k,1456) = lu(k,1456) - lu(k,1007) * lu(k,1448) - lu(k,1457) = - lu(k,1008) * lu(k,1448) - lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1536) - lu(k,1539) = lu(k,1539) - lu(k,1001) * lu(k,1536) - lu(k,1542) = lu(k,1542) - lu(k,1002) * lu(k,1536) - lu(k,1545) = lu(k,1545) - lu(k,1003) * lu(k,1536) - lu(k,1546) = lu(k,1546) - lu(k,1004) * lu(k,1536) - lu(k,1547) = - lu(k,1005) * lu(k,1536) - lu(k,1549) = lu(k,1549) - lu(k,1006) * lu(k,1536) - lu(k,1550) = lu(k,1550) - lu(k,1007) * lu(k,1536) - lu(k,1551) = lu(k,1551) - lu(k,1008) * lu(k,1536) - lu(k,1793) = lu(k,1793) - lu(k,1000) * lu(k,1781) - lu(k,1809) = lu(k,1809) - lu(k,1001) * lu(k,1781) - lu(k,1814) = lu(k,1814) - lu(k,1002) * lu(k,1781) - lu(k,1818) = lu(k,1818) - lu(k,1003) * lu(k,1781) - lu(k,1819) = lu(k,1819) - lu(k,1004) * lu(k,1781) - lu(k,1820) = lu(k,1820) - lu(k,1005) * lu(k,1781) - lu(k,1822) = lu(k,1822) - lu(k,1006) * lu(k,1781) - lu(k,1824) = lu(k,1824) - lu(k,1007) * lu(k,1781) - lu(k,1825) = lu(k,1825) - lu(k,1008) * lu(k,1781) - lu(k,1891) = lu(k,1891) - lu(k,1000) * lu(k,1881) - lu(k,1907) = lu(k,1907) - lu(k,1001) * lu(k,1881) - lu(k,1909) = lu(k,1909) - lu(k,1002) * lu(k,1881) - lu(k,1913) = lu(k,1913) - lu(k,1003) * lu(k,1881) - lu(k,1914) = lu(k,1914) - lu(k,1004) * lu(k,1881) - lu(k,1915) = lu(k,1915) - lu(k,1005) * lu(k,1881) - lu(k,1917) = lu(k,1917) - lu(k,1006) * lu(k,1881) - lu(k,1919) = lu(k,1919) - lu(k,1007) * lu(k,1881) - lu(k,1920) = - lu(k,1008) * lu(k,1881) - lu(k,1945) = lu(k,1945) - lu(k,1000) * lu(k,1943) - lu(k,1950) = lu(k,1950) - lu(k,1001) * lu(k,1943) - lu(k,1954) = lu(k,1954) - lu(k,1002) * lu(k,1943) - lu(k,1958) = lu(k,1958) - lu(k,1003) * lu(k,1943) - lu(k,1959) = lu(k,1959) - lu(k,1004) * lu(k,1943) - lu(k,1960) = lu(k,1960) - lu(k,1005) * lu(k,1943) - lu(k,1962) = lu(k,1962) - lu(k,1006) * lu(k,1943) - lu(k,1964) = lu(k,1964) - lu(k,1007) * lu(k,1943) - lu(k,1965) = - lu(k,1008) * lu(k,1943) - lu(k,2083) = lu(k,2083) - lu(k,1000) * lu(k,2082) - lu(k,2084) = lu(k,2084) - lu(k,1001) * lu(k,2082) - lu(k,2089) = lu(k,2089) - lu(k,1002) * lu(k,2082) - lu(k,2093) = lu(k,2093) - lu(k,1003) * lu(k,2082) - lu(k,2094) = lu(k,2094) - lu(k,1004) * lu(k,2082) - lu(k,2095) = lu(k,2095) - lu(k,1005) * lu(k,2082) - lu(k,2097) = lu(k,2097) - lu(k,1006) * lu(k,2082) - lu(k,2099) = lu(k,2099) - lu(k,1007) * lu(k,2082) - lu(k,2100) = lu(k,2100) - lu(k,1008) * lu(k,2082) - lu(k,1018) = 1._r8 / lu(k,1018) - lu(k,1019) = lu(k,1019) * lu(k,1018) - lu(k,1020) = lu(k,1020) * lu(k,1018) - lu(k,1021) = lu(k,1021) * lu(k,1018) - lu(k,1022) = lu(k,1022) * lu(k,1018) - lu(k,1023) = lu(k,1023) * lu(k,1018) - lu(k,1024) = lu(k,1024) * lu(k,1018) - lu(k,1025) = lu(k,1025) * lu(k,1018) - lu(k,1026) = lu(k,1026) * lu(k,1018) - lu(k,1027) = lu(k,1027) * lu(k,1018) - lu(k,1028) = lu(k,1028) * lu(k,1018) - lu(k,1029) = lu(k,1029) * lu(k,1018) - lu(k,1030) = lu(k,1030) * lu(k,1018) - lu(k,1031) = lu(k,1031) * lu(k,1018) - lu(k,1032) = lu(k,1032) * lu(k,1018) - lu(k,1033) = lu(k,1033) * lu(k,1018) - lu(k,1034) = lu(k,1034) * lu(k,1018) - lu(k,1035) = lu(k,1035) * lu(k,1018) - lu(k,1036) = lu(k,1036) * lu(k,1018) - lu(k,1620) = lu(k,1620) - lu(k,1019) * lu(k,1619) - lu(k,1621) = lu(k,1621) - lu(k,1020) * lu(k,1619) - lu(k,1622) = lu(k,1622) - lu(k,1021) * lu(k,1619) - lu(k,1623) = lu(k,1623) - lu(k,1022) * lu(k,1619) - lu(k,1624) = lu(k,1624) - lu(k,1023) * lu(k,1619) - lu(k,1626) = lu(k,1626) - lu(k,1024) * lu(k,1619) - lu(k,1627) = lu(k,1627) - lu(k,1025) * lu(k,1619) - lu(k,1630) = lu(k,1630) - lu(k,1026) * lu(k,1619) - lu(k,1635) = lu(k,1635) - lu(k,1027) * lu(k,1619) - lu(k,1639) = lu(k,1639) - lu(k,1028) * lu(k,1619) - lu(k,1645) = lu(k,1645) - lu(k,1029) * lu(k,1619) - lu(k,1646) = lu(k,1646) - lu(k,1030) * lu(k,1619) - lu(k,1652) = lu(k,1652) - lu(k,1031) * lu(k,1619) - lu(k,1653) = lu(k,1653) - lu(k,1032) * lu(k,1619) - lu(k,1656) = lu(k,1656) - lu(k,1033) * lu(k,1619) - lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1619) - lu(k,1664) = lu(k,1664) - lu(k,1035) * lu(k,1619) - lu(k,1666) = lu(k,1666) - lu(k,1036) * lu(k,1619) - lu(k,1783) = lu(k,1783) - lu(k,1019) * lu(k,1782) - lu(k,1784) = lu(k,1784) - lu(k,1020) * lu(k,1782) - lu(k,1785) = lu(k,1785) - lu(k,1021) * lu(k,1782) - lu(k,1786) = lu(k,1786) - lu(k,1022) * lu(k,1782) - lu(k,1787) = lu(k,1787) - lu(k,1023) * lu(k,1782) - lu(k,1789) = lu(k,1789) - lu(k,1024) * lu(k,1782) - lu(k,1790) = lu(k,1790) - lu(k,1025) * lu(k,1782) - lu(k,1793) = lu(k,1793) - lu(k,1026) * lu(k,1782) - lu(k,1798) = lu(k,1798) - lu(k,1027) * lu(k,1782) - lu(k,1802) = lu(k,1802) - lu(k,1028) * lu(k,1782) - lu(k,1808) = lu(k,1808) - lu(k,1029) * lu(k,1782) - lu(k,1809) = lu(k,1809) - lu(k,1030) * lu(k,1782) - lu(k,1817) = lu(k,1817) - lu(k,1031) * lu(k,1782) - lu(k,1818) = lu(k,1818) - lu(k,1032) * lu(k,1782) - lu(k,1821) = lu(k,1821) - lu(k,1033) * lu(k,1782) - lu(k,1827) = lu(k,1827) - lu(k,1034) * lu(k,1782) - lu(k,1829) = lu(k,1829) - lu(k,1035) * lu(k,1782) - lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1782) - lu(k,2194) = lu(k,2194) - lu(k,1019) * lu(k,2193) - lu(k,2195) = lu(k,2195) - lu(k,1020) * lu(k,2193) - lu(k,2196) = lu(k,2196) - lu(k,1021) * lu(k,2193) - lu(k,2197) = lu(k,2197) - lu(k,1022) * lu(k,2193) - lu(k,2198) = lu(k,2198) - lu(k,1023) * lu(k,2193) - lu(k,2199) = lu(k,2199) - lu(k,1024) * lu(k,2193) - lu(k,2200) = lu(k,2200) - lu(k,1025) * lu(k,2193) - lu(k,2203) = lu(k,2203) - lu(k,1026) * lu(k,2193) - lu(k,2207) = lu(k,2207) - lu(k,1027) * lu(k,2193) - lu(k,2210) = lu(k,2210) - lu(k,1028) * lu(k,2193) - lu(k,2216) = lu(k,2216) - lu(k,1029) * lu(k,2193) - lu(k,2217) = lu(k,2217) - lu(k,1030) * lu(k,2193) - lu(k,2223) = lu(k,2223) - lu(k,1031) * lu(k,2193) - lu(k,2224) = lu(k,2224) - lu(k,1032) * lu(k,2193) - lu(k,2227) = lu(k,2227) - lu(k,1033) * lu(k,2193) - lu(k,2233) = lu(k,2233) - lu(k,1034) * lu(k,2193) - lu(k,2235) = lu(k,2235) - lu(k,1035) * lu(k,2193) - lu(k,2237) = lu(k,2237) - lu(k,1036) * lu(k,2193) - lu(k,1042) = 1._r8 / lu(k,1042) - lu(k,1043) = lu(k,1043) * lu(k,1042) - lu(k,1044) = lu(k,1044) * lu(k,1042) - lu(k,1045) = lu(k,1045) * lu(k,1042) - lu(k,1046) = lu(k,1046) * lu(k,1042) - lu(k,1047) = lu(k,1047) * lu(k,1042) - lu(k,1048) = lu(k,1048) * lu(k,1042) - lu(k,1049) = lu(k,1049) * lu(k,1042) - lu(k,1050) = lu(k,1050) * lu(k,1042) - lu(k,1051) = lu(k,1051) * lu(k,1042) - lu(k,1052) = lu(k,1052) * lu(k,1042) - lu(k,1624) = lu(k,1624) - lu(k,1043) * lu(k,1620) - lu(k,1629) = lu(k,1629) - lu(k,1044) * lu(k,1620) - lu(k,1645) = lu(k,1645) - lu(k,1045) * lu(k,1620) - lu(k,1649) = lu(k,1649) - lu(k,1046) * lu(k,1620) - lu(k,1653) = lu(k,1653) - lu(k,1047) * lu(k,1620) - lu(k,1654) = lu(k,1654) - lu(k,1048) * lu(k,1620) - lu(k,1655) = lu(k,1655) - lu(k,1049) * lu(k,1620) - lu(k,1656) = lu(k,1656) - lu(k,1050) * lu(k,1620) - lu(k,1664) = lu(k,1664) - lu(k,1051) * lu(k,1620) - lu(k,1665) = lu(k,1665) - lu(k,1052) * lu(k,1620) - lu(k,1787) = lu(k,1787) - lu(k,1043) * lu(k,1783) - lu(k,1792) = lu(k,1792) - lu(k,1044) * lu(k,1783) - lu(k,1808) = lu(k,1808) - lu(k,1045) * lu(k,1783) - lu(k,1814) = lu(k,1814) - lu(k,1046) * lu(k,1783) - lu(k,1818) = lu(k,1818) - lu(k,1047) * lu(k,1783) - lu(k,1819) = lu(k,1819) - lu(k,1048) * lu(k,1783) - lu(k,1820) = lu(k,1820) - lu(k,1049) * lu(k,1783) - lu(k,1821) = lu(k,1821) - lu(k,1050) * lu(k,1783) - lu(k,1829) = lu(k,1829) - lu(k,1051) * lu(k,1783) - lu(k,1830) = lu(k,1830) - lu(k,1052) * lu(k,1783) - lu(k,1886) = lu(k,1886) - lu(k,1043) * lu(k,1882) - lu(k,1890) = lu(k,1890) - lu(k,1044) * lu(k,1882) - lu(k,1906) = lu(k,1906) - lu(k,1045) * lu(k,1882) - lu(k,1909) = lu(k,1909) - lu(k,1046) * lu(k,1882) - lu(k,1913) = lu(k,1913) - lu(k,1047) * lu(k,1882) - lu(k,1914) = lu(k,1914) - lu(k,1048) * lu(k,1882) - lu(k,1915) = lu(k,1915) - lu(k,1049) * lu(k,1882) - lu(k,1916) = lu(k,1916) - lu(k,1050) * lu(k,1882) - lu(k,1924) = lu(k,1924) - lu(k,1051) * lu(k,1882) - lu(k,1925) = lu(k,1925) - lu(k,1052) * lu(k,1882) - lu(k,2198) = lu(k,2198) - lu(k,1043) * lu(k,2194) - lu(k,2202) = lu(k,2202) - lu(k,1044) * lu(k,2194) - lu(k,2216) = lu(k,2216) - lu(k,1045) * lu(k,2194) - lu(k,2220) = lu(k,2220) - lu(k,1046) * lu(k,2194) - lu(k,2224) = lu(k,2224) - lu(k,1047) * lu(k,2194) - lu(k,2225) = lu(k,2225) - lu(k,1048) * lu(k,2194) - lu(k,2226) = lu(k,2226) - lu(k,1049) * lu(k,2194) - lu(k,2227) = lu(k,2227) - lu(k,1050) * lu(k,2194) - lu(k,2235) = lu(k,2235) - lu(k,1051) * lu(k,2194) - lu(k,2236) = lu(k,2236) - lu(k,1052) * lu(k,2194) - lu(k,2330) = lu(k,2330) - lu(k,1043) * lu(k,2326) - lu(k,2333) = lu(k,2333) - lu(k,1044) * lu(k,2326) - lu(k,2348) = lu(k,2348) - lu(k,1045) * lu(k,2326) - lu(k,2353) = lu(k,2353) - lu(k,1046) * lu(k,2326) - lu(k,2357) = lu(k,2357) - lu(k,1047) * lu(k,2326) - lu(k,2358) = lu(k,2358) - lu(k,1048) * lu(k,2326) - lu(k,2359) = lu(k,2359) - lu(k,1049) * lu(k,2326) - lu(k,2360) = lu(k,2360) - lu(k,1050) * lu(k,2326) - lu(k,2368) = lu(k,2368) - lu(k,1051) * lu(k,2326) - lu(k,2369) = lu(k,2369) - lu(k,1052) * lu(k,2326) - lu(k,1054) = 1._r8 / lu(k,1054) - lu(k,1055) = lu(k,1055) * lu(k,1054) - lu(k,1056) = lu(k,1056) * lu(k,1054) - lu(k,1057) = lu(k,1057) * lu(k,1054) - lu(k,1058) = lu(k,1058) * lu(k,1054) - lu(k,1091) = lu(k,1091) - lu(k,1055) * lu(k,1089) - lu(k,1094) = - lu(k,1056) * lu(k,1089) - lu(k,1095) = lu(k,1095) - lu(k,1057) * lu(k,1089) - lu(k,1100) = lu(k,1100) - lu(k,1058) * lu(k,1089) - lu(k,1165) = lu(k,1165) - lu(k,1055) * lu(k,1164) - lu(k,1167) = lu(k,1167) - lu(k,1056) * lu(k,1164) - lu(k,1168) = lu(k,1168) - lu(k,1057) * lu(k,1164) - lu(k,1170) = lu(k,1170) - lu(k,1058) * lu(k,1164) - lu(k,1230) = lu(k,1230) - lu(k,1055) * lu(k,1229) - lu(k,1236) = lu(k,1236) - lu(k,1056) * lu(k,1229) - lu(k,1238) = lu(k,1238) - lu(k,1057) * lu(k,1229) - lu(k,1242) = lu(k,1242) - lu(k,1058) * lu(k,1229) - lu(k,1324) = lu(k,1324) - lu(k,1055) * lu(k,1323) - lu(k,1337) = - lu(k,1056) * lu(k,1323) - lu(k,1339) = lu(k,1339) - lu(k,1057) * lu(k,1323) - lu(k,1345) = lu(k,1345) - lu(k,1058) * lu(k,1323) - lu(k,1416) = lu(k,1416) - lu(k,1055) * lu(k,1414) - lu(k,1429) = lu(k,1429) - lu(k,1056) * lu(k,1414) - lu(k,1432) = lu(k,1432) - lu(k,1057) * lu(k,1414) - lu(k,1439) = lu(k,1439) - lu(k,1058) * lu(k,1414) - lu(k,1630) = lu(k,1630) - lu(k,1055) * lu(k,1621) - lu(k,1646) = lu(k,1646) - lu(k,1056) * lu(k,1621) - lu(k,1653) = lu(k,1653) - lu(k,1057) * lu(k,1621) - lu(k,1664) = lu(k,1664) - lu(k,1058) * lu(k,1621) - lu(k,1793) = lu(k,1793) - lu(k,1055) * lu(k,1784) - lu(k,1809) = lu(k,1809) - lu(k,1056) * lu(k,1784) - lu(k,1818) = lu(k,1818) - lu(k,1057) * lu(k,1784) - lu(k,1829) = lu(k,1829) - lu(k,1058) * lu(k,1784) - lu(k,1891) = lu(k,1891) - lu(k,1055) * lu(k,1883) - lu(k,1907) = lu(k,1907) - lu(k,1056) * lu(k,1883) - lu(k,1913) = lu(k,1913) - lu(k,1057) * lu(k,1883) - lu(k,1924) = lu(k,1924) - lu(k,1058) * lu(k,1883) - lu(k,1945) = lu(k,1945) - lu(k,1055) * lu(k,1944) - lu(k,1950) = lu(k,1950) - lu(k,1056) * lu(k,1944) - lu(k,1958) = lu(k,1958) - lu(k,1057) * lu(k,1944) - lu(k,1969) = lu(k,1969) - lu(k,1058) * lu(k,1944) - lu(k,2147) = lu(k,2147) - lu(k,1055) * lu(k,2144) - lu(k,2152) = lu(k,2152) - lu(k,1056) * lu(k,2144) - lu(k,2160) = lu(k,2160) - lu(k,1057) * lu(k,2144) - lu(k,2171) = lu(k,2171) - lu(k,1058) * lu(k,2144) - lu(k,2203) = lu(k,2203) - lu(k,1055) * lu(k,2195) - lu(k,2217) = lu(k,2217) - lu(k,1056) * lu(k,2195) - lu(k,2224) = lu(k,2224) - lu(k,1057) * lu(k,2195) - lu(k,2235) = lu(k,2235) - lu(k,1058) * lu(k,2195) - lu(k,2334) = lu(k,2334) - lu(k,1055) * lu(k,2327) - lu(k,2349) = lu(k,2349) - lu(k,1056) * lu(k,2327) - lu(k,2357) = lu(k,2357) - lu(k,1057) * lu(k,2327) - lu(k,2368) = lu(k,2368) - lu(k,1058) * lu(k,2327) - lu(k,2389) = lu(k,2389) - lu(k,1055) * lu(k,2381) - lu(k,2404) = lu(k,2404) - lu(k,1056) * lu(k,2381) - lu(k,2409) = lu(k,2409) - lu(k,1057) * lu(k,2381) - lu(k,2420) = lu(k,2420) - lu(k,1058) * lu(k,2381) + lu(k,954) = 1._r8 / lu(k,954) + lu(k,955) = lu(k,955) * lu(k,954) + lu(k,956) = lu(k,956) * lu(k,954) + lu(k,957) = lu(k,957) * lu(k,954) + lu(k,958) = lu(k,958) * lu(k,954) + lu(k,959) = lu(k,959) * lu(k,954) + lu(k,960) = lu(k,960) * lu(k,954) + lu(k,961) = lu(k,961) * lu(k,954) + lu(k,962) = lu(k,962) * lu(k,954) + lu(k,963) = lu(k,963) * lu(k,954) + lu(k,1494) = lu(k,1494) - lu(k,955) * lu(k,1493) + lu(k,1498) = lu(k,1498) - lu(k,956) * lu(k,1493) + lu(k,1499) = lu(k,1499) - lu(k,957) * lu(k,1493) + lu(k,1500) = - lu(k,958) * lu(k,1493) + lu(k,1501) = lu(k,1501) - lu(k,959) * lu(k,1493) + lu(k,1502) = lu(k,1502) - lu(k,960) * lu(k,1493) + lu(k,1504) = - lu(k,961) * lu(k,1493) + lu(k,1505) = lu(k,1505) - lu(k,962) * lu(k,1493) + lu(k,1506) = lu(k,1506) - lu(k,963) * lu(k,1493) + lu(k,1792) = lu(k,1792) - lu(k,955) * lu(k,1759) + lu(k,1798) = lu(k,1798) - lu(k,956) * lu(k,1759) + lu(k,1799) = lu(k,1799) - lu(k,957) * lu(k,1759) + lu(k,1800) = lu(k,1800) - lu(k,958) * lu(k,1759) + lu(k,1803) = lu(k,1803) - lu(k,959) * lu(k,1759) + lu(k,1805) = lu(k,1805) - lu(k,960) * lu(k,1759) + lu(k,1807) = lu(k,1807) - lu(k,961) * lu(k,1759) + lu(k,1809) = lu(k,1809) - lu(k,962) * lu(k,1759) + lu(k,1811) = lu(k,1811) - lu(k,963) * lu(k,1759) + lu(k,1838) = lu(k,1838) - lu(k,955) * lu(k,1827) + lu(k,1844) = lu(k,1844) - lu(k,956) * lu(k,1827) + lu(k,1845) = lu(k,1845) - lu(k,957) * lu(k,1827) + lu(k,1846) = lu(k,1846) - lu(k,958) * lu(k,1827) + lu(k,1849) = lu(k,1849) - lu(k,959) * lu(k,1827) + lu(k,1851) = lu(k,1851) - lu(k,960) * lu(k,1827) + lu(k,1853) = lu(k,1853) - lu(k,961) * lu(k,1827) + lu(k,1855) = - lu(k,962) * lu(k,1827) + lu(k,1857) = lu(k,1857) - lu(k,963) * lu(k,1827) + lu(k,1883) = lu(k,1883) - lu(k,955) * lu(k,1873) + lu(k,1889) = lu(k,1889) - lu(k,956) * lu(k,1873) + lu(k,1890) = lu(k,1890) - lu(k,957) * lu(k,1873) + lu(k,1891) = lu(k,1891) - lu(k,958) * lu(k,1873) + lu(k,1894) = lu(k,1894) - lu(k,959) * lu(k,1873) + lu(k,1896) = lu(k,1896) - lu(k,960) * lu(k,1873) + lu(k,1898) = lu(k,1898) - lu(k,961) * lu(k,1873) + lu(k,1900) = lu(k,1900) - lu(k,962) * lu(k,1873) + lu(k,1902) = lu(k,1902) - lu(k,963) * lu(k,1873) + lu(k,2048) = lu(k,2048) - lu(k,955) * lu(k,2042) + lu(k,2054) = lu(k,2054) - lu(k,956) * lu(k,2042) + lu(k,2055) = lu(k,2055) - lu(k,957) * lu(k,2042) + lu(k,2056) = lu(k,2056) - lu(k,958) * lu(k,2042) + lu(k,2059) = lu(k,2059) - lu(k,959) * lu(k,2042) + lu(k,2061) = lu(k,2061) - lu(k,960) * lu(k,2042) + lu(k,2063) = lu(k,2063) - lu(k,961) * lu(k,2042) + lu(k,2065) = lu(k,2065) - lu(k,962) * lu(k,2042) + lu(k,2067) = lu(k,2067) - lu(k,963) * lu(k,2042) + lu(k,2140) = lu(k,2140) - lu(k,955) * lu(k,2138) + lu(k,2145) = lu(k,2145) - lu(k,956) * lu(k,2138) + lu(k,2146) = lu(k,2146) - lu(k,957) * lu(k,2138) + lu(k,2147) = lu(k,2147) - lu(k,958) * lu(k,2138) + lu(k,2150) = lu(k,2150) - lu(k,959) * lu(k,2138) + lu(k,2152) = lu(k,2152) - lu(k,960) * lu(k,2138) + lu(k,2154) = - lu(k,961) * lu(k,2138) + lu(k,2156) = - lu(k,962) * lu(k,2138) + lu(k,2158) = lu(k,2158) - lu(k,963) * lu(k,2138) + lu(k,973) = 1._r8 / lu(k,973) + lu(k,974) = lu(k,974) * lu(k,973) + lu(k,975) = lu(k,975) * lu(k,973) + lu(k,976) = lu(k,976) * lu(k,973) + lu(k,977) = lu(k,977) * lu(k,973) + lu(k,978) = lu(k,978) * lu(k,973) + lu(k,979) = lu(k,979) * lu(k,973) + lu(k,980) = lu(k,980) * lu(k,973) + lu(k,981) = lu(k,981) * lu(k,973) + lu(k,982) = lu(k,982) * lu(k,973) + lu(k,983) = lu(k,983) * lu(k,973) + lu(k,984) = lu(k,984) * lu(k,973) + lu(k,985) = lu(k,985) * lu(k,973) + lu(k,986) = lu(k,986) * lu(k,973) + lu(k,987) = lu(k,987) * lu(k,973) + lu(k,988) = lu(k,988) * lu(k,973) + lu(k,989) = lu(k,989) * lu(k,973) + lu(k,990) = lu(k,990) * lu(k,973) + lu(k,991) = lu(k,991) * lu(k,973) + lu(k,1762) = lu(k,1762) - lu(k,974) * lu(k,1760) + lu(k,1763) = lu(k,1763) - lu(k,975) * lu(k,1760) + lu(k,1765) = lu(k,1765) - lu(k,976) * lu(k,1760) + lu(k,1766) = lu(k,1766) - lu(k,977) * lu(k,1760) + lu(k,1767) = lu(k,1767) - lu(k,978) * lu(k,1760) + lu(k,1769) = lu(k,1769) - lu(k,979) * lu(k,1760) + lu(k,1770) = lu(k,1770) - lu(k,980) * lu(k,1760) + lu(k,1773) = lu(k,1773) - lu(k,981) * lu(k,1760) + lu(k,1778) = lu(k,1778) - lu(k,982) * lu(k,1760) + lu(k,1782) = lu(k,1782) - lu(k,983) * lu(k,1760) + lu(k,1788) = lu(k,1788) - lu(k,984) * lu(k,1760) + lu(k,1789) = lu(k,1789) - lu(k,985) * lu(k,1760) + lu(k,1798) = lu(k,1798) - lu(k,986) * lu(k,1760) + lu(k,1801) = lu(k,1801) - lu(k,987) * lu(k,1760) + lu(k,1804) = lu(k,1804) - lu(k,988) * lu(k,1760) + lu(k,1807) = lu(k,1807) - lu(k,989) * lu(k,1760) + lu(k,1808) = lu(k,1808) - lu(k,990) * lu(k,1760) + lu(k,1811) = lu(k,1811) - lu(k,991) * lu(k,1760) + lu(k,2088) = lu(k,2088) - lu(k,974) * lu(k,2086) + lu(k,2089) = lu(k,2089) - lu(k,975) * lu(k,2086) + lu(k,2090) = - lu(k,976) * lu(k,2086) + lu(k,2091) = lu(k,2091) - lu(k,977) * lu(k,2086) + lu(k,2092) = lu(k,2092) - lu(k,978) * lu(k,2086) + lu(k,2093) = - lu(k,979) * lu(k,2086) + lu(k,2094) = lu(k,2094) - lu(k,980) * lu(k,2086) + lu(k,2097) = lu(k,2097) - lu(k,981) * lu(k,2086) + lu(k,2101) = lu(k,2101) - lu(k,982) * lu(k,2086) + lu(k,2104) = lu(k,2104) - lu(k,983) * lu(k,2086) + lu(k,2110) = lu(k,2110) - lu(k,984) * lu(k,2086) + lu(k,2111) = lu(k,2111) - lu(k,985) * lu(k,2086) + lu(k,2118) = lu(k,2118) - lu(k,986) * lu(k,2086) + lu(k,2121) = lu(k,2121) - lu(k,987) * lu(k,2086) + lu(k,2124) = lu(k,2124) - lu(k,988) * lu(k,2086) + lu(k,2127) = lu(k,2127) - lu(k,989) * lu(k,2086) + lu(k,2128) = lu(k,2128) - lu(k,990) * lu(k,2086) + lu(k,2131) = lu(k,2131) - lu(k,991) * lu(k,2086) + lu(k,2193) = - lu(k,974) * lu(k,2191) + lu(k,2194) = lu(k,2194) - lu(k,975) * lu(k,2191) + lu(k,2195) = - lu(k,976) * lu(k,2191) + lu(k,2196) = lu(k,2196) - lu(k,977) * lu(k,2191) + lu(k,2197) = lu(k,2197) - lu(k,978) * lu(k,2191) + lu(k,2199) = lu(k,2199) - lu(k,979) * lu(k,2191) + lu(k,2200) = - lu(k,980) * lu(k,2191) + lu(k,2203) = lu(k,2203) - lu(k,981) * lu(k,2191) + lu(k,2208) = - lu(k,982) * lu(k,2191) + lu(k,2212) = lu(k,2212) - lu(k,983) * lu(k,2191) + lu(k,2218) = lu(k,2218) - lu(k,984) * lu(k,2191) + lu(k,2219) = lu(k,2219) - lu(k,985) * lu(k,2191) + lu(k,2226) = lu(k,2226) - lu(k,986) * lu(k,2191) + lu(k,2229) = lu(k,2229) - lu(k,987) * lu(k,2191) + lu(k,2232) = lu(k,2232) - lu(k,988) * lu(k,2191) + lu(k,2235) = lu(k,2235) - lu(k,989) * lu(k,2191) + lu(k,2236) = lu(k,2236) - lu(k,990) * lu(k,2191) + lu(k,2239) = lu(k,2239) - lu(k,991) * lu(k,2191) + lu(k,1001) = 1._r8 / lu(k,1001) + lu(k,1002) = lu(k,1002) * lu(k,1001) + lu(k,1003) = lu(k,1003) * lu(k,1001) + lu(k,1004) = lu(k,1004) * lu(k,1001) + lu(k,1005) = lu(k,1005) * lu(k,1001) + lu(k,1006) = lu(k,1006) * lu(k,1001) + lu(k,1007) = lu(k,1007) * lu(k,1001) + lu(k,1008) = lu(k,1008) * lu(k,1001) + lu(k,1009) = lu(k,1009) * lu(k,1001) + lu(k,1010) = lu(k,1010) * lu(k,1001) + lu(k,1011) = lu(k,1011) * lu(k,1001) + lu(k,1012) = lu(k,1012) * lu(k,1001) + lu(k,1013) = lu(k,1013) * lu(k,1001) + lu(k,1014) = lu(k,1014) * lu(k,1001) + lu(k,1015) = lu(k,1015) * lu(k,1001) + lu(k,1016) = lu(k,1016) * lu(k,1001) + lu(k,1017) = lu(k,1017) * lu(k,1001) + lu(k,1018) = lu(k,1018) * lu(k,1001) + lu(k,1019) = lu(k,1019) * lu(k,1001) + lu(k,1762) = lu(k,1762) - lu(k,1002) * lu(k,1761) + lu(k,1763) = lu(k,1763) - lu(k,1003) * lu(k,1761) + lu(k,1765) = lu(k,1765) - lu(k,1004) * lu(k,1761) + lu(k,1766) = lu(k,1766) - lu(k,1005) * lu(k,1761) + lu(k,1767) = lu(k,1767) - lu(k,1006) * lu(k,1761) + lu(k,1769) = lu(k,1769) - lu(k,1007) * lu(k,1761) + lu(k,1770) = lu(k,1770) - lu(k,1008) * lu(k,1761) + lu(k,1773) = lu(k,1773) - lu(k,1009) * lu(k,1761) + lu(k,1778) = lu(k,1778) - lu(k,1010) * lu(k,1761) + lu(k,1782) = lu(k,1782) - lu(k,1011) * lu(k,1761) + lu(k,1788) = lu(k,1788) - lu(k,1012) * lu(k,1761) + lu(k,1789) = lu(k,1789) - lu(k,1013) * lu(k,1761) + lu(k,1798) = lu(k,1798) - lu(k,1014) * lu(k,1761) + lu(k,1801) = lu(k,1801) - lu(k,1015) * lu(k,1761) + lu(k,1804) = lu(k,1804) - lu(k,1016) * lu(k,1761) + lu(k,1807) = lu(k,1807) - lu(k,1017) * lu(k,1761) + lu(k,1808) = lu(k,1808) - lu(k,1018) * lu(k,1761) + lu(k,1811) = lu(k,1811) - lu(k,1019) * lu(k,1761) + lu(k,2088) = lu(k,2088) - lu(k,1002) * lu(k,2087) + lu(k,2089) = lu(k,2089) - lu(k,1003) * lu(k,2087) + lu(k,2090) = lu(k,2090) - lu(k,1004) * lu(k,2087) + lu(k,2091) = lu(k,2091) - lu(k,1005) * lu(k,2087) + lu(k,2092) = lu(k,2092) - lu(k,1006) * lu(k,2087) + lu(k,2093) = lu(k,2093) - lu(k,1007) * lu(k,2087) + lu(k,2094) = lu(k,2094) - lu(k,1008) * lu(k,2087) + lu(k,2097) = lu(k,2097) - lu(k,1009) * lu(k,2087) + lu(k,2101) = lu(k,2101) - lu(k,1010) * lu(k,2087) + lu(k,2104) = lu(k,2104) - lu(k,1011) * lu(k,2087) + lu(k,2110) = lu(k,2110) - lu(k,1012) * lu(k,2087) + lu(k,2111) = lu(k,2111) - lu(k,1013) * lu(k,2087) + lu(k,2118) = lu(k,2118) - lu(k,1014) * lu(k,2087) + lu(k,2121) = lu(k,2121) - lu(k,1015) * lu(k,2087) + lu(k,2124) = lu(k,2124) - lu(k,1016) * lu(k,2087) + lu(k,2127) = lu(k,2127) - lu(k,1017) * lu(k,2087) + lu(k,2128) = lu(k,2128) - lu(k,1018) * lu(k,2087) + lu(k,2131) = lu(k,2131) - lu(k,1019) * lu(k,2087) + lu(k,2193) = lu(k,2193) - lu(k,1002) * lu(k,2192) + lu(k,2194) = lu(k,2194) - lu(k,1003) * lu(k,2192) + lu(k,2195) = lu(k,2195) - lu(k,1004) * lu(k,2192) + lu(k,2196) = lu(k,2196) - lu(k,1005) * lu(k,2192) + lu(k,2197) = lu(k,2197) - lu(k,1006) * lu(k,2192) + lu(k,2199) = lu(k,2199) - lu(k,1007) * lu(k,2192) + lu(k,2200) = lu(k,2200) - lu(k,1008) * lu(k,2192) + lu(k,2203) = lu(k,2203) - lu(k,1009) * lu(k,2192) + lu(k,2208) = lu(k,2208) - lu(k,1010) * lu(k,2192) + lu(k,2212) = lu(k,2212) - lu(k,1011) * lu(k,2192) + lu(k,2218) = lu(k,2218) - lu(k,1012) * lu(k,2192) + lu(k,2219) = lu(k,2219) - lu(k,1013) * lu(k,2192) + lu(k,2226) = lu(k,2226) - lu(k,1014) * lu(k,2192) + lu(k,2229) = lu(k,2229) - lu(k,1015) * lu(k,2192) + lu(k,2232) = lu(k,2232) - lu(k,1016) * lu(k,2192) + lu(k,2235) = lu(k,2235) - lu(k,1017) * lu(k,2192) + lu(k,2236) = lu(k,2236) - lu(k,1018) * lu(k,2192) + lu(k,2239) = lu(k,2239) - lu(k,1019) * lu(k,2192) end do end subroutine lu_fac21 subroutine lu_fac22( avec_len, lu ) @@ -3920,261 +3740,309 @@ subroutine lu_fac22( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1062) = 1._r8 / lu(k,1062) - lu(k,1063) = lu(k,1063) * lu(k,1062) - lu(k,1064) = lu(k,1064) * lu(k,1062) - lu(k,1065) = lu(k,1065) * lu(k,1062) - lu(k,1066) = lu(k,1066) * lu(k,1062) - lu(k,1067) = lu(k,1067) * lu(k,1062) - lu(k,1068) = lu(k,1068) * lu(k,1062) - lu(k,1069) = lu(k,1069) * lu(k,1062) - lu(k,1070) = lu(k,1070) * lu(k,1062) - lu(k,1071) = lu(k,1071) * lu(k,1062) - lu(k,1623) = lu(k,1623) - lu(k,1063) * lu(k,1622) - lu(k,1624) = lu(k,1624) - lu(k,1064) * lu(k,1622) - lu(k,1653) = lu(k,1653) - lu(k,1065) * lu(k,1622) - lu(k,1654) = lu(k,1654) - lu(k,1066) * lu(k,1622) - lu(k,1655) = lu(k,1655) - lu(k,1067) * lu(k,1622) - lu(k,1656) = lu(k,1656) - lu(k,1068) * lu(k,1622) - lu(k,1658) = lu(k,1658) - lu(k,1069) * lu(k,1622) - lu(k,1664) = lu(k,1664) - lu(k,1070) * lu(k,1622) - lu(k,1665) = lu(k,1665) - lu(k,1071) * lu(k,1622) - lu(k,1786) = lu(k,1786) - lu(k,1063) * lu(k,1785) - lu(k,1787) = lu(k,1787) - lu(k,1064) * lu(k,1785) - lu(k,1818) = lu(k,1818) - lu(k,1065) * lu(k,1785) - lu(k,1819) = lu(k,1819) - lu(k,1066) * lu(k,1785) - lu(k,1820) = lu(k,1820) - lu(k,1067) * lu(k,1785) - lu(k,1821) = lu(k,1821) - lu(k,1068) * lu(k,1785) - lu(k,1823) = lu(k,1823) - lu(k,1069) * lu(k,1785) - lu(k,1829) = lu(k,1829) - lu(k,1070) * lu(k,1785) - lu(k,1830) = lu(k,1830) - lu(k,1071) * lu(k,1785) - lu(k,1885) = lu(k,1885) - lu(k,1063) * lu(k,1884) - lu(k,1886) = lu(k,1886) - lu(k,1064) * lu(k,1884) - lu(k,1913) = lu(k,1913) - lu(k,1065) * lu(k,1884) - lu(k,1914) = lu(k,1914) - lu(k,1066) * lu(k,1884) - lu(k,1915) = lu(k,1915) - lu(k,1067) * lu(k,1884) - lu(k,1916) = lu(k,1916) - lu(k,1068) * lu(k,1884) - lu(k,1918) = lu(k,1918) - lu(k,1069) * lu(k,1884) - lu(k,1924) = lu(k,1924) - lu(k,1070) * lu(k,1884) - lu(k,1925) = lu(k,1925) - lu(k,1071) * lu(k,1884) - lu(k,2197) = lu(k,2197) - lu(k,1063) * lu(k,2196) - lu(k,2198) = lu(k,2198) - lu(k,1064) * lu(k,2196) - lu(k,2224) = lu(k,2224) - lu(k,1065) * lu(k,2196) - lu(k,2225) = lu(k,2225) - lu(k,1066) * lu(k,2196) - lu(k,2226) = lu(k,2226) - lu(k,1067) * lu(k,2196) - lu(k,2227) = lu(k,2227) - lu(k,1068) * lu(k,2196) - lu(k,2229) = - lu(k,1069) * lu(k,2196) - lu(k,2235) = lu(k,2235) - lu(k,1070) * lu(k,2196) - lu(k,2236) = lu(k,2236) - lu(k,1071) * lu(k,2196) - lu(k,2329) = lu(k,2329) - lu(k,1063) * lu(k,2328) - lu(k,2330) = lu(k,2330) - lu(k,1064) * lu(k,2328) - lu(k,2357) = lu(k,2357) - lu(k,1065) * lu(k,2328) - lu(k,2358) = lu(k,2358) - lu(k,1066) * lu(k,2328) - lu(k,2359) = lu(k,2359) - lu(k,1067) * lu(k,2328) - lu(k,2360) = lu(k,2360) - lu(k,1068) * lu(k,2328) - lu(k,2362) = lu(k,2362) - lu(k,1069) * lu(k,2328) - lu(k,2368) = lu(k,2368) - lu(k,1070) * lu(k,2328) - lu(k,2369) = lu(k,2369) - lu(k,1071) * lu(k,2328) - lu(k,2383) = lu(k,2383) - lu(k,1063) * lu(k,2382) - lu(k,2384) = lu(k,2384) - lu(k,1064) * lu(k,2382) - lu(k,2409) = lu(k,2409) - lu(k,1065) * lu(k,2382) - lu(k,2410) = lu(k,2410) - lu(k,1066) * lu(k,2382) - lu(k,2411) = lu(k,2411) - lu(k,1067) * lu(k,2382) - lu(k,2412) = lu(k,2412) - lu(k,1068) * lu(k,2382) - lu(k,2414) = lu(k,2414) - lu(k,1069) * lu(k,2382) - lu(k,2420) = lu(k,2420) - lu(k,1070) * lu(k,2382) - lu(k,2421) = lu(k,2421) - lu(k,1071) * lu(k,2382) - lu(k,1072) = 1._r8 / lu(k,1072) - lu(k,1073) = lu(k,1073) * lu(k,1072) - lu(k,1074) = lu(k,1074) * lu(k,1072) - lu(k,1075) = lu(k,1075) * lu(k,1072) - lu(k,1076) = lu(k,1076) * lu(k,1072) - lu(k,1077) = lu(k,1077) * lu(k,1072) - lu(k,1078) = lu(k,1078) * lu(k,1072) - lu(k,1079) = lu(k,1079) * lu(k,1072) - lu(k,1106) = lu(k,1106) - lu(k,1073) * lu(k,1105) - lu(k,1107) = - lu(k,1074) * lu(k,1105) - lu(k,1108) = - lu(k,1075) * lu(k,1105) - lu(k,1109) = - lu(k,1076) * lu(k,1105) - lu(k,1110) = lu(k,1110) - lu(k,1077) * lu(k,1105) - lu(k,1111) = lu(k,1111) - lu(k,1078) * lu(k,1105) - lu(k,1116) = lu(k,1116) - lu(k,1079) * lu(k,1105) - lu(k,1626) = lu(k,1626) - lu(k,1073) * lu(k,1623) - lu(k,1627) = lu(k,1627) - lu(k,1074) * lu(k,1623) - lu(k,1630) = lu(k,1630) - lu(k,1075) * lu(k,1623) - lu(k,1632) = lu(k,1632) - lu(k,1076) * lu(k,1623) - lu(k,1652) = lu(k,1652) - lu(k,1077) * lu(k,1623) - lu(k,1653) = lu(k,1653) - lu(k,1078) * lu(k,1623) - lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1623) - lu(k,1789) = lu(k,1789) - lu(k,1073) * lu(k,1786) - lu(k,1790) = lu(k,1790) - lu(k,1074) * lu(k,1786) - lu(k,1793) = lu(k,1793) - lu(k,1075) * lu(k,1786) - lu(k,1795) = lu(k,1795) - lu(k,1076) * lu(k,1786) - lu(k,1817) = lu(k,1817) - lu(k,1077) * lu(k,1786) - lu(k,1818) = lu(k,1818) - lu(k,1078) * lu(k,1786) - lu(k,1829) = lu(k,1829) - lu(k,1079) * lu(k,1786) - lu(k,1888) = lu(k,1888) - lu(k,1073) * lu(k,1885) - lu(k,1889) = lu(k,1889) - lu(k,1074) * lu(k,1885) - lu(k,1891) = lu(k,1891) - lu(k,1075) * lu(k,1885) - lu(k,1893) = lu(k,1893) - lu(k,1076) * lu(k,1885) - lu(k,1912) = lu(k,1912) - lu(k,1077) * lu(k,1885) - lu(k,1913) = lu(k,1913) - lu(k,1078) * lu(k,1885) - lu(k,1924) = lu(k,1924) - lu(k,1079) * lu(k,1885) - lu(k,2199) = lu(k,2199) - lu(k,1073) * lu(k,2197) - lu(k,2200) = lu(k,2200) - lu(k,1074) * lu(k,2197) - lu(k,2203) = lu(k,2203) - lu(k,1075) * lu(k,2197) - lu(k,2205) = - lu(k,1076) * lu(k,2197) - lu(k,2223) = lu(k,2223) - lu(k,1077) * lu(k,2197) - lu(k,2224) = lu(k,2224) - lu(k,1078) * lu(k,2197) - lu(k,2235) = lu(k,2235) - lu(k,1079) * lu(k,2197) - lu(k,2331) = lu(k,2331) - lu(k,1073) * lu(k,2329) - lu(k,2332) = lu(k,2332) - lu(k,1074) * lu(k,2329) - lu(k,2334) = lu(k,2334) - lu(k,1075) * lu(k,2329) - lu(k,2336) = lu(k,2336) - lu(k,1076) * lu(k,2329) - lu(k,2356) = lu(k,2356) - lu(k,1077) * lu(k,2329) - lu(k,2357) = lu(k,2357) - lu(k,1078) * lu(k,2329) - lu(k,2368) = lu(k,2368) - lu(k,1079) * lu(k,2329) - lu(k,2386) = lu(k,2386) - lu(k,1073) * lu(k,2383) - lu(k,2387) = lu(k,2387) - lu(k,1074) * lu(k,2383) - lu(k,2389) = lu(k,2389) - lu(k,1075) * lu(k,2383) - lu(k,2391) = lu(k,2391) - lu(k,1076) * lu(k,2383) - lu(k,2408) = - lu(k,1077) * lu(k,2383) - lu(k,2409) = lu(k,2409) - lu(k,1078) * lu(k,2383) - lu(k,2420) = lu(k,2420) - lu(k,1079) * lu(k,2383) - lu(k,1080) = 1._r8 / lu(k,1080) - lu(k,1081) = lu(k,1081) * lu(k,1080) - lu(k,1082) = lu(k,1082) * lu(k,1080) - lu(k,1083) = lu(k,1083) * lu(k,1080) - lu(k,1084) = lu(k,1084) * lu(k,1080) - lu(k,1085) = lu(k,1085) * lu(k,1080) - lu(k,1121) = lu(k,1121) - lu(k,1081) * lu(k,1118) - lu(k,1122) = lu(k,1122) - lu(k,1082) * lu(k,1118) - lu(k,1124) = lu(k,1124) - lu(k,1083) * lu(k,1118) - lu(k,1127) = - lu(k,1084) * lu(k,1118) - lu(k,1128) = - lu(k,1085) * lu(k,1118) - lu(k,1179) = - lu(k,1081) * lu(k,1174) - lu(k,1180) = - lu(k,1082) * lu(k,1174) - lu(k,1182) = lu(k,1182) - lu(k,1083) * lu(k,1174) - lu(k,1188) = lu(k,1188) - lu(k,1084) * lu(k,1174) - lu(k,1189) = - lu(k,1085) * lu(k,1174) - lu(k,1197) = - lu(k,1081) * lu(k,1191) - lu(k,1198) = lu(k,1198) - lu(k,1082) * lu(k,1191) - lu(k,1201) = lu(k,1201) - lu(k,1083) * lu(k,1191) - lu(k,1206) = - lu(k,1084) * lu(k,1191) - lu(k,1207) = - lu(k,1085) * lu(k,1191) - lu(k,1635) = lu(k,1635) - lu(k,1081) * lu(k,1624) - lu(k,1645) = lu(k,1645) - lu(k,1082) * lu(k,1624) - lu(k,1653) = lu(k,1653) - lu(k,1083) * lu(k,1624) - lu(k,1665) = lu(k,1665) - lu(k,1084) * lu(k,1624) - lu(k,1666) = lu(k,1666) - lu(k,1085) * lu(k,1624) - lu(k,1798) = lu(k,1798) - lu(k,1081) * lu(k,1787) - lu(k,1808) = lu(k,1808) - lu(k,1082) * lu(k,1787) - lu(k,1818) = lu(k,1818) - lu(k,1083) * lu(k,1787) - lu(k,1830) = lu(k,1830) - lu(k,1084) * lu(k,1787) - lu(k,1831) = lu(k,1831) - lu(k,1085) * lu(k,1787) - lu(k,1896) = lu(k,1896) - lu(k,1081) * lu(k,1886) - lu(k,1906) = lu(k,1906) - lu(k,1082) * lu(k,1886) - lu(k,1913) = lu(k,1913) - lu(k,1083) * lu(k,1886) - lu(k,1925) = lu(k,1925) - lu(k,1084) * lu(k,1886) - lu(k,1926) = lu(k,1926) - lu(k,1085) * lu(k,1886) - lu(k,2149) = - lu(k,1081) * lu(k,2145) - lu(k,2151) = - lu(k,1082) * lu(k,2145) - lu(k,2160) = lu(k,2160) - lu(k,1083) * lu(k,2145) - lu(k,2172) = lu(k,2172) - lu(k,1084) * lu(k,2145) - lu(k,2173) = lu(k,2173) - lu(k,1085) * lu(k,2145) - lu(k,2207) = lu(k,2207) - lu(k,1081) * lu(k,2198) - lu(k,2216) = lu(k,2216) - lu(k,1082) * lu(k,2198) - lu(k,2224) = lu(k,2224) - lu(k,1083) * lu(k,2198) - lu(k,2236) = lu(k,2236) - lu(k,1084) * lu(k,2198) - lu(k,2237) = lu(k,2237) - lu(k,1085) * lu(k,2198) - lu(k,2338) = lu(k,2338) - lu(k,1081) * lu(k,2330) - lu(k,2348) = lu(k,2348) - lu(k,1082) * lu(k,2330) - lu(k,2357) = lu(k,2357) - lu(k,1083) * lu(k,2330) - lu(k,2369) = lu(k,2369) - lu(k,1084) * lu(k,2330) - lu(k,2370) = lu(k,2370) - lu(k,1085) * lu(k,2330) - lu(k,2393) = lu(k,2393) - lu(k,1081) * lu(k,2384) - lu(k,2403) = lu(k,2403) - lu(k,1082) * lu(k,2384) - lu(k,2409) = lu(k,2409) - lu(k,1083) * lu(k,2384) - lu(k,2421) = lu(k,2421) - lu(k,1084) * lu(k,2384) - lu(k,2422) = lu(k,2422) - lu(k,1085) * lu(k,2384) - lu(k,1090) = 1._r8 / lu(k,1090) - lu(k,1091) = lu(k,1091) * lu(k,1090) - lu(k,1092) = lu(k,1092) * lu(k,1090) - lu(k,1093) = lu(k,1093) * lu(k,1090) - lu(k,1094) = lu(k,1094) * lu(k,1090) - lu(k,1095) = lu(k,1095) * lu(k,1090) - lu(k,1096) = lu(k,1096) * lu(k,1090) - lu(k,1097) = lu(k,1097) * lu(k,1090) - lu(k,1098) = lu(k,1098) * lu(k,1090) - lu(k,1099) = lu(k,1099) * lu(k,1090) - lu(k,1100) = lu(k,1100) * lu(k,1090) - lu(k,1101) = lu(k,1101) * lu(k,1090) - lu(k,1250) = - lu(k,1091) * lu(k,1249) - lu(k,1255) = lu(k,1255) - lu(k,1092) * lu(k,1249) - lu(k,1257) = lu(k,1257) - lu(k,1093) * lu(k,1249) - lu(k,1258) = - lu(k,1094) * lu(k,1249) - lu(k,1260) = lu(k,1260) - lu(k,1095) * lu(k,1249) - lu(k,1261) = lu(k,1261) - lu(k,1096) * lu(k,1249) - lu(k,1262) = lu(k,1262) - lu(k,1097) * lu(k,1249) - lu(k,1263) = lu(k,1263) - lu(k,1098) * lu(k,1249) - lu(k,1264) = lu(k,1264) - lu(k,1099) * lu(k,1249) - lu(k,1265) = lu(k,1265) - lu(k,1100) * lu(k,1249) - lu(k,1266) = lu(k,1266) - lu(k,1101) * lu(k,1249) - lu(k,1416) = lu(k,1416) - lu(k,1091) * lu(k,1415) - lu(k,1422) = lu(k,1422) - lu(k,1092) * lu(k,1415) - lu(k,1428) = lu(k,1428) - lu(k,1093) * lu(k,1415) - lu(k,1429) = lu(k,1429) - lu(k,1094) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,1095) * lu(k,1415) - lu(k,1433) = lu(k,1433) - lu(k,1096) * lu(k,1415) - lu(k,1434) = lu(k,1434) - lu(k,1097) * lu(k,1415) - lu(k,1435) = lu(k,1435) - lu(k,1098) * lu(k,1415) - lu(k,1436) = - lu(k,1099) * lu(k,1415) - lu(k,1439) = lu(k,1439) - lu(k,1100) * lu(k,1415) - lu(k,1440) = lu(k,1440) - lu(k,1101) * lu(k,1415) - lu(k,1630) = lu(k,1630) - lu(k,1091) * lu(k,1625) - lu(k,1639) = lu(k,1639) - lu(k,1092) * lu(k,1625) - lu(k,1645) = lu(k,1645) - lu(k,1093) * lu(k,1625) - lu(k,1646) = lu(k,1646) - lu(k,1094) * lu(k,1625) - lu(k,1653) = lu(k,1653) - lu(k,1095) * lu(k,1625) - lu(k,1654) = lu(k,1654) - lu(k,1096) * lu(k,1625) - lu(k,1655) = lu(k,1655) - lu(k,1097) * lu(k,1625) - lu(k,1656) = lu(k,1656) - lu(k,1098) * lu(k,1625) - lu(k,1658) = lu(k,1658) - lu(k,1099) * lu(k,1625) - lu(k,1664) = lu(k,1664) - lu(k,1100) * lu(k,1625) - lu(k,1665) = lu(k,1665) - lu(k,1101) * lu(k,1625) - lu(k,1793) = lu(k,1793) - lu(k,1091) * lu(k,1788) - lu(k,1802) = lu(k,1802) - lu(k,1092) * lu(k,1788) - lu(k,1808) = lu(k,1808) - lu(k,1093) * lu(k,1788) - lu(k,1809) = lu(k,1809) - lu(k,1094) * lu(k,1788) - lu(k,1818) = lu(k,1818) - lu(k,1095) * lu(k,1788) - lu(k,1819) = lu(k,1819) - lu(k,1096) * lu(k,1788) - lu(k,1820) = lu(k,1820) - lu(k,1097) * lu(k,1788) - lu(k,1821) = lu(k,1821) - lu(k,1098) * lu(k,1788) - lu(k,1823) = lu(k,1823) - lu(k,1099) * lu(k,1788) - lu(k,1829) = lu(k,1829) - lu(k,1100) * lu(k,1788) - lu(k,1830) = lu(k,1830) - lu(k,1101) * lu(k,1788) - lu(k,1891) = lu(k,1891) - lu(k,1091) * lu(k,1887) - lu(k,1900) = lu(k,1900) - lu(k,1092) * lu(k,1887) - lu(k,1906) = lu(k,1906) - lu(k,1093) * lu(k,1887) - lu(k,1907) = lu(k,1907) - lu(k,1094) * lu(k,1887) - lu(k,1913) = lu(k,1913) - lu(k,1095) * lu(k,1887) - lu(k,1914) = lu(k,1914) - lu(k,1096) * lu(k,1887) - lu(k,1915) = lu(k,1915) - lu(k,1097) * lu(k,1887) - lu(k,1916) = lu(k,1916) - lu(k,1098) * lu(k,1887) - lu(k,1918) = lu(k,1918) - lu(k,1099) * lu(k,1887) - lu(k,1924) = lu(k,1924) - lu(k,1100) * lu(k,1887) - lu(k,1925) = lu(k,1925) - lu(k,1101) * lu(k,1887) - lu(k,2389) = lu(k,2389) - lu(k,1091) * lu(k,2385) - lu(k,2397) = lu(k,2397) - lu(k,1092) * lu(k,2385) - lu(k,2403) = lu(k,2403) - lu(k,1093) * lu(k,2385) - lu(k,2404) = lu(k,2404) - lu(k,1094) * lu(k,2385) - lu(k,2409) = lu(k,2409) - lu(k,1095) * lu(k,2385) - lu(k,2410) = lu(k,2410) - lu(k,1096) * lu(k,2385) - lu(k,2411) = lu(k,2411) - lu(k,1097) * lu(k,2385) - lu(k,2412) = lu(k,2412) - lu(k,1098) * lu(k,2385) - lu(k,2414) = lu(k,2414) - lu(k,1099) * lu(k,2385) - lu(k,2420) = lu(k,2420) - lu(k,1100) * lu(k,2385) - lu(k,2421) = lu(k,2421) - lu(k,1101) * lu(k,2385) + lu(k,1025) = 1._r8 / lu(k,1025) + lu(k,1026) = lu(k,1026) * lu(k,1025) + lu(k,1027) = lu(k,1027) * lu(k,1025) + lu(k,1028) = lu(k,1028) * lu(k,1025) + lu(k,1029) = lu(k,1029) * lu(k,1025) + lu(k,1030) = lu(k,1030) * lu(k,1025) + lu(k,1031) = lu(k,1031) * lu(k,1025) + lu(k,1032) = lu(k,1032) * lu(k,1025) + lu(k,1033) = lu(k,1033) * lu(k,1025) + lu(k,1034) = lu(k,1034) * lu(k,1025) + lu(k,1035) = lu(k,1035) * lu(k,1025) + lu(k,1767) = lu(k,1767) - lu(k,1026) * lu(k,1762) + lu(k,1772) = lu(k,1772) - lu(k,1027) * lu(k,1762) + lu(k,1788) = lu(k,1788) - lu(k,1028) * lu(k,1762) + lu(k,1794) = lu(k,1794) - lu(k,1029) * lu(k,1762) + lu(k,1798) = lu(k,1798) - lu(k,1030) * lu(k,1762) + lu(k,1800) = lu(k,1800) - lu(k,1031) * lu(k,1762) + lu(k,1801) = lu(k,1801) - lu(k,1032) * lu(k,1762) + lu(k,1802) = lu(k,1802) - lu(k,1033) * lu(k,1762) + lu(k,1808) = lu(k,1808) - lu(k,1034) * lu(k,1762) + lu(k,1810) = lu(k,1810) - lu(k,1035) * lu(k,1762) + lu(k,1984) = lu(k,1984) - lu(k,1026) * lu(k,1979) + lu(k,1988) = lu(k,1988) - lu(k,1027) * lu(k,1979) + lu(k,2004) = lu(k,2004) - lu(k,1028) * lu(k,1979) + lu(k,2007) = lu(k,2007) - lu(k,1029) * lu(k,1979) + lu(k,2011) = lu(k,2011) - lu(k,1030) * lu(k,1979) + lu(k,2013) = lu(k,2013) - lu(k,1031) * lu(k,1979) + lu(k,2014) = lu(k,2014) - lu(k,1032) * lu(k,1979) + lu(k,2015) = lu(k,2015) - lu(k,1033) * lu(k,1979) + lu(k,2021) = lu(k,2021) - lu(k,1034) * lu(k,1979) + lu(k,2023) = lu(k,2023) - lu(k,1035) * lu(k,1979) + lu(k,2092) = lu(k,2092) - lu(k,1026) * lu(k,2088) + lu(k,2096) = lu(k,2096) - lu(k,1027) * lu(k,2088) + lu(k,2110) = lu(k,2110) - lu(k,1028) * lu(k,2088) + lu(k,2114) = lu(k,2114) - lu(k,1029) * lu(k,2088) + lu(k,2118) = lu(k,2118) - lu(k,1030) * lu(k,2088) + lu(k,2120) = lu(k,2120) - lu(k,1031) * lu(k,2088) + lu(k,2121) = lu(k,2121) - lu(k,1032) * lu(k,2088) + lu(k,2122) = lu(k,2122) - lu(k,1033) * lu(k,2088) + lu(k,2128) = lu(k,2128) - lu(k,1034) * lu(k,2088) + lu(k,2130) = lu(k,2130) - lu(k,1035) * lu(k,2088) + lu(k,2197) = lu(k,2197) - lu(k,1026) * lu(k,2193) + lu(k,2202) = lu(k,2202) - lu(k,1027) * lu(k,2193) + lu(k,2218) = lu(k,2218) - lu(k,1028) * lu(k,2193) + lu(k,2222) = lu(k,2222) - lu(k,1029) * lu(k,2193) + lu(k,2226) = lu(k,2226) - lu(k,1030) * lu(k,2193) + lu(k,2228) = lu(k,2228) - lu(k,1031) * lu(k,2193) + lu(k,2229) = lu(k,2229) - lu(k,1032) * lu(k,2193) + lu(k,2230) = lu(k,2230) - lu(k,1033) * lu(k,2193) + lu(k,2236) = lu(k,2236) - lu(k,1034) * lu(k,2193) + lu(k,2238) = lu(k,2238) - lu(k,1035) * lu(k,2193) + lu(k,2307) = lu(k,2307) - lu(k,1026) * lu(k,2303) + lu(k,2310) = lu(k,2310) - lu(k,1027) * lu(k,2303) + lu(k,2325) = lu(k,2325) - lu(k,1028) * lu(k,2303) + lu(k,2330) = lu(k,2330) - lu(k,1029) * lu(k,2303) + lu(k,2334) = lu(k,2334) - lu(k,1030) * lu(k,2303) + lu(k,2336) = lu(k,2336) - lu(k,1031) * lu(k,2303) + lu(k,2337) = lu(k,2337) - lu(k,1032) * lu(k,2303) + lu(k,2338) = lu(k,2338) - lu(k,1033) * lu(k,2303) + lu(k,2344) = lu(k,2344) - lu(k,1034) * lu(k,2303) + lu(k,2346) = lu(k,2346) - lu(k,1035) * lu(k,2303) + lu(k,1037) = 1._r8 / lu(k,1037) + lu(k,1038) = lu(k,1038) * lu(k,1037) + lu(k,1039) = lu(k,1039) * lu(k,1037) + lu(k,1040) = lu(k,1040) * lu(k,1037) + lu(k,1041) = lu(k,1041) * lu(k,1037) + lu(k,1090) = lu(k,1090) - lu(k,1038) * lu(k,1088) + lu(k,1093) = - lu(k,1039) * lu(k,1088) + lu(k,1094) = lu(k,1094) - lu(k,1040) * lu(k,1088) + lu(k,1098) = lu(k,1098) - lu(k,1041) * lu(k,1088) + lu(k,1164) = lu(k,1164) - lu(k,1038) * lu(k,1163) + lu(k,1166) = lu(k,1166) - lu(k,1039) * lu(k,1163) + lu(k,1167) = lu(k,1167) - lu(k,1040) * lu(k,1163) + lu(k,1169) = lu(k,1169) - lu(k,1041) * lu(k,1163) + lu(k,1229) = lu(k,1229) - lu(k,1038) * lu(k,1228) + lu(k,1235) = lu(k,1235) - lu(k,1039) * lu(k,1228) + lu(k,1236) = lu(k,1236) - lu(k,1040) * lu(k,1228) + lu(k,1241) = lu(k,1241) - lu(k,1041) * lu(k,1228) + lu(k,1323) = lu(k,1323) - lu(k,1038) * lu(k,1322) + lu(k,1336) = - lu(k,1039) * lu(k,1322) + lu(k,1337) = lu(k,1337) - lu(k,1040) * lu(k,1322) + lu(k,1343) = lu(k,1343) - lu(k,1041) * lu(k,1322) + lu(k,1415) = lu(k,1415) - lu(k,1038) * lu(k,1413) + lu(k,1428) = lu(k,1428) - lu(k,1039) * lu(k,1413) + lu(k,1431) = lu(k,1431) - lu(k,1040) * lu(k,1413) + lu(k,1437) = lu(k,1437) - lu(k,1041) * lu(k,1413) + lu(k,1773) = lu(k,1773) - lu(k,1038) * lu(k,1763) + lu(k,1789) = lu(k,1789) - lu(k,1039) * lu(k,1763) + lu(k,1798) = lu(k,1798) - lu(k,1040) * lu(k,1763) + lu(k,1808) = lu(k,1808) - lu(k,1041) * lu(k,1763) + lu(k,1831) = lu(k,1831) - lu(k,1038) * lu(k,1828) + lu(k,1836) = lu(k,1836) - lu(k,1039) * lu(k,1828) + lu(k,1844) = lu(k,1844) - lu(k,1040) * lu(k,1828) + lu(k,1854) = lu(k,1854) - lu(k,1041) * lu(k,1828) + lu(k,1876) = lu(k,1876) - lu(k,1038) * lu(k,1874) + lu(k,1881) = lu(k,1881) - lu(k,1039) * lu(k,1874) + lu(k,1889) = lu(k,1889) - lu(k,1040) * lu(k,1874) + lu(k,1899) = lu(k,1899) - lu(k,1041) * lu(k,1874) + lu(k,1989) = lu(k,1989) - lu(k,1038) * lu(k,1980) + lu(k,2005) = lu(k,2005) - lu(k,1039) * lu(k,1980) + lu(k,2011) = lu(k,2011) - lu(k,1040) * lu(k,1980) + lu(k,2021) = lu(k,2021) - lu(k,1041) * lu(k,1980) + lu(k,2097) = lu(k,2097) - lu(k,1038) * lu(k,2089) + lu(k,2111) = lu(k,2111) - lu(k,1039) * lu(k,2089) + lu(k,2118) = lu(k,2118) - lu(k,1040) * lu(k,2089) + lu(k,2128) = lu(k,2128) - lu(k,1041) * lu(k,2089) + lu(k,2203) = lu(k,2203) - lu(k,1038) * lu(k,2194) + lu(k,2219) = lu(k,2219) - lu(k,1039) * lu(k,2194) + lu(k,2226) = lu(k,2226) - lu(k,1040) * lu(k,2194) + lu(k,2236) = lu(k,2236) - lu(k,1041) * lu(k,2194) + lu(k,2311) = lu(k,2311) - lu(k,1038) * lu(k,2304) + lu(k,2326) = lu(k,2326) - lu(k,1039) * lu(k,2304) + lu(k,2334) = lu(k,2334) - lu(k,1040) * lu(k,2304) + lu(k,2344) = lu(k,2344) - lu(k,1041) * lu(k,2304) + lu(k,2389) = lu(k,2389) - lu(k,1038) * lu(k,2381) + lu(k,2404) = lu(k,2404) - lu(k,1039) * lu(k,2381) + lu(k,2409) = lu(k,2409) - lu(k,1040) * lu(k,2381) + lu(k,2419) = lu(k,2419) - lu(k,1041) * lu(k,2381) + lu(k,1048) = 1._r8 / lu(k,1048) + lu(k,1049) = lu(k,1049) * lu(k,1048) + lu(k,1050) = lu(k,1050) * lu(k,1048) + lu(k,1051) = lu(k,1051) * lu(k,1048) + lu(k,1052) = lu(k,1052) * lu(k,1048) + lu(k,1053) = lu(k,1053) * lu(k,1048) + lu(k,1054) = lu(k,1054) * lu(k,1048) + lu(k,1055) = lu(k,1055) * lu(k,1048) + lu(k,1056) = lu(k,1056) * lu(k,1048) + lu(k,1057) = lu(k,1057) * lu(k,1048) + lu(k,1448) = lu(k,1448) - lu(k,1049) * lu(k,1447) + lu(k,1449) = lu(k,1449) - lu(k,1050) * lu(k,1447) + lu(k,1450) = lu(k,1450) - lu(k,1051) * lu(k,1447) + lu(k,1451) = lu(k,1451) - lu(k,1052) * lu(k,1447) + lu(k,1452) = - lu(k,1053) * lu(k,1447) + lu(k,1453) = - lu(k,1054) * lu(k,1447) + lu(k,1454) = lu(k,1454) - lu(k,1055) * lu(k,1447) + lu(k,1455) = lu(k,1455) - lu(k,1056) * lu(k,1447) + lu(k,1456) = - lu(k,1057) * lu(k,1447) + lu(k,1536) = lu(k,1536) - lu(k,1049) * lu(k,1535) + lu(k,1538) = lu(k,1538) - lu(k,1050) * lu(k,1535) + lu(k,1541) = lu(k,1541) - lu(k,1051) * lu(k,1535) + lu(k,1543) = lu(k,1543) - lu(k,1052) * lu(k,1535) + lu(k,1544) = lu(k,1544) - lu(k,1053) * lu(k,1535) + lu(k,1546) = - lu(k,1054) * lu(k,1535) + lu(k,1548) = lu(k,1548) - lu(k,1055) * lu(k,1535) + lu(k,1549) = lu(k,1549) - lu(k,1056) * lu(k,1535) + lu(k,1552) = lu(k,1552) - lu(k,1057) * lu(k,1535) + lu(k,1773) = lu(k,1773) - lu(k,1049) * lu(k,1764) + lu(k,1789) = lu(k,1789) - lu(k,1050) * lu(k,1764) + lu(k,1794) = lu(k,1794) - lu(k,1051) * lu(k,1764) + lu(k,1797) = lu(k,1797) - lu(k,1052) * lu(k,1764) + lu(k,1798) = lu(k,1798) - lu(k,1053) * lu(k,1764) + lu(k,1800) = lu(k,1800) - lu(k,1054) * lu(k,1764) + lu(k,1802) = lu(k,1802) - lu(k,1055) * lu(k,1764) + lu(k,1803) = lu(k,1803) - lu(k,1056) * lu(k,1764) + lu(k,1806) = lu(k,1806) - lu(k,1057) * lu(k,1764) + lu(k,1876) = lu(k,1876) - lu(k,1049) * lu(k,1875) + lu(k,1881) = lu(k,1881) - lu(k,1050) * lu(k,1875) + lu(k,1885) = lu(k,1885) - lu(k,1051) * lu(k,1875) + lu(k,1888) = lu(k,1888) - lu(k,1052) * lu(k,1875) + lu(k,1889) = lu(k,1889) - lu(k,1053) * lu(k,1875) + lu(k,1891) = lu(k,1891) - lu(k,1054) * lu(k,1875) + lu(k,1893) = lu(k,1893) - lu(k,1055) * lu(k,1875) + lu(k,1894) = lu(k,1894) - lu(k,1056) * lu(k,1875) + lu(k,1897) = - lu(k,1057) * lu(k,1875) + lu(k,1989) = lu(k,1989) - lu(k,1049) * lu(k,1981) + lu(k,2005) = lu(k,2005) - lu(k,1050) * lu(k,1981) + lu(k,2007) = lu(k,2007) - lu(k,1051) * lu(k,1981) + lu(k,2010) = lu(k,2010) - lu(k,1052) * lu(k,1981) + lu(k,2011) = lu(k,2011) - lu(k,1053) * lu(k,1981) + lu(k,2013) = lu(k,2013) - lu(k,1054) * lu(k,1981) + lu(k,2015) = lu(k,2015) - lu(k,1055) * lu(k,1981) + lu(k,2016) = lu(k,2016) - lu(k,1056) * lu(k,1981) + lu(k,2019) = - lu(k,1057) * lu(k,1981) + lu(k,2044) = lu(k,2044) - lu(k,1049) * lu(k,2043) + lu(k,2045) = lu(k,2045) - lu(k,1050) * lu(k,2043) + lu(k,2050) = lu(k,2050) - lu(k,1051) * lu(k,2043) + lu(k,2053) = lu(k,2053) - lu(k,1052) * lu(k,2043) + lu(k,2054) = lu(k,2054) - lu(k,1053) * lu(k,2043) + lu(k,2056) = lu(k,2056) - lu(k,1054) * lu(k,2043) + lu(k,2058) = lu(k,2058) - lu(k,1055) * lu(k,2043) + lu(k,2059) = lu(k,2059) - lu(k,1056) * lu(k,2043) + lu(k,2062) = lu(k,2062) - lu(k,1057) * lu(k,2043) + lu(k,1061) = 1._r8 / lu(k,1061) + lu(k,1062) = lu(k,1062) * lu(k,1061) + lu(k,1063) = lu(k,1063) * lu(k,1061) + lu(k,1064) = lu(k,1064) * lu(k,1061) + lu(k,1065) = lu(k,1065) * lu(k,1061) + lu(k,1066) = lu(k,1066) * lu(k,1061) + lu(k,1067) = lu(k,1067) * lu(k,1061) + lu(k,1068) = lu(k,1068) * lu(k,1061) + lu(k,1069) = lu(k,1069) * lu(k,1061) + lu(k,1070) = lu(k,1070) * lu(k,1061) + lu(k,1766) = lu(k,1766) - lu(k,1062) * lu(k,1765) + lu(k,1767) = lu(k,1767) - lu(k,1063) * lu(k,1765) + lu(k,1798) = lu(k,1798) - lu(k,1064) * lu(k,1765) + lu(k,1800) = lu(k,1800) - lu(k,1065) * lu(k,1765) + lu(k,1801) = lu(k,1801) - lu(k,1066) * lu(k,1765) + lu(k,1802) = lu(k,1802) - lu(k,1067) * lu(k,1765) + lu(k,1808) = lu(k,1808) - lu(k,1068) * lu(k,1765) + lu(k,1809) = lu(k,1809) - lu(k,1069) * lu(k,1765) + lu(k,1810) = lu(k,1810) - lu(k,1070) * lu(k,1765) + lu(k,1983) = lu(k,1983) - lu(k,1062) * lu(k,1982) + lu(k,1984) = lu(k,1984) - lu(k,1063) * lu(k,1982) + lu(k,2011) = lu(k,2011) - lu(k,1064) * lu(k,1982) + lu(k,2013) = lu(k,2013) - lu(k,1065) * lu(k,1982) + lu(k,2014) = lu(k,2014) - lu(k,1066) * lu(k,1982) + lu(k,2015) = lu(k,2015) - lu(k,1067) * lu(k,1982) + lu(k,2021) = lu(k,2021) - lu(k,1068) * lu(k,1982) + lu(k,2022) = lu(k,2022) - lu(k,1069) * lu(k,1982) + lu(k,2023) = lu(k,2023) - lu(k,1070) * lu(k,1982) + lu(k,2091) = lu(k,2091) - lu(k,1062) * lu(k,2090) + lu(k,2092) = lu(k,2092) - lu(k,1063) * lu(k,2090) + lu(k,2118) = lu(k,2118) - lu(k,1064) * lu(k,2090) + lu(k,2120) = lu(k,2120) - lu(k,1065) * lu(k,2090) + lu(k,2121) = lu(k,2121) - lu(k,1066) * lu(k,2090) + lu(k,2122) = lu(k,2122) - lu(k,1067) * lu(k,2090) + lu(k,2128) = lu(k,2128) - lu(k,1068) * lu(k,2090) + lu(k,2129) = - lu(k,1069) * lu(k,2090) + lu(k,2130) = lu(k,2130) - lu(k,1070) * lu(k,2090) + lu(k,2196) = lu(k,2196) - lu(k,1062) * lu(k,2195) + lu(k,2197) = lu(k,2197) - lu(k,1063) * lu(k,2195) + lu(k,2226) = lu(k,2226) - lu(k,1064) * lu(k,2195) + lu(k,2228) = lu(k,2228) - lu(k,1065) * lu(k,2195) + lu(k,2229) = lu(k,2229) - lu(k,1066) * lu(k,2195) + lu(k,2230) = lu(k,2230) - lu(k,1067) * lu(k,2195) + lu(k,2236) = lu(k,2236) - lu(k,1068) * lu(k,2195) + lu(k,2237) = lu(k,2237) - lu(k,1069) * lu(k,2195) + lu(k,2238) = lu(k,2238) - lu(k,1070) * lu(k,2195) + lu(k,2306) = lu(k,2306) - lu(k,1062) * lu(k,2305) + lu(k,2307) = lu(k,2307) - lu(k,1063) * lu(k,2305) + lu(k,2334) = lu(k,2334) - lu(k,1064) * lu(k,2305) + lu(k,2336) = lu(k,2336) - lu(k,1065) * lu(k,2305) + lu(k,2337) = lu(k,2337) - lu(k,1066) * lu(k,2305) + lu(k,2338) = lu(k,2338) - lu(k,1067) * lu(k,2305) + lu(k,2344) = lu(k,2344) - lu(k,1068) * lu(k,2305) + lu(k,2345) = lu(k,2345) - lu(k,1069) * lu(k,2305) + lu(k,2346) = lu(k,2346) - lu(k,1070) * lu(k,2305) + lu(k,2383) = lu(k,2383) - lu(k,1062) * lu(k,2382) + lu(k,2384) = lu(k,2384) - lu(k,1063) * lu(k,2382) + lu(k,2409) = lu(k,2409) - lu(k,1064) * lu(k,2382) + lu(k,2411) = lu(k,2411) - lu(k,1065) * lu(k,2382) + lu(k,2412) = lu(k,2412) - lu(k,1066) * lu(k,2382) + lu(k,2413) = lu(k,2413) - lu(k,1067) * lu(k,2382) + lu(k,2419) = lu(k,2419) - lu(k,1068) * lu(k,2382) + lu(k,2420) = lu(k,2420) - lu(k,1069) * lu(k,2382) + lu(k,2421) = lu(k,2421) - lu(k,1070) * lu(k,2382) + lu(k,1071) = 1._r8 / lu(k,1071) + lu(k,1072) = lu(k,1072) * lu(k,1071) + lu(k,1073) = lu(k,1073) * lu(k,1071) + lu(k,1074) = lu(k,1074) * lu(k,1071) + lu(k,1075) = lu(k,1075) * lu(k,1071) + lu(k,1076) = lu(k,1076) * lu(k,1071) + lu(k,1077) = lu(k,1077) * lu(k,1071) + lu(k,1078) = lu(k,1078) * lu(k,1071) + lu(k,1105) = lu(k,1105) - lu(k,1072) * lu(k,1104) + lu(k,1106) = - lu(k,1073) * lu(k,1104) + lu(k,1107) = - lu(k,1074) * lu(k,1104) + lu(k,1108) = - lu(k,1075) * lu(k,1104) + lu(k,1109) = lu(k,1109) - lu(k,1076) * lu(k,1104) + lu(k,1113) = lu(k,1113) - lu(k,1077) * lu(k,1104) + lu(k,1114) = lu(k,1114) - lu(k,1078) * lu(k,1104) + lu(k,1769) = lu(k,1769) - lu(k,1072) * lu(k,1766) + lu(k,1770) = lu(k,1770) - lu(k,1073) * lu(k,1766) + lu(k,1773) = lu(k,1773) - lu(k,1074) * lu(k,1766) + lu(k,1775) = lu(k,1775) - lu(k,1075) * lu(k,1766) + lu(k,1798) = lu(k,1798) - lu(k,1076) * lu(k,1766) + lu(k,1807) = lu(k,1807) - lu(k,1077) * lu(k,1766) + lu(k,1808) = lu(k,1808) - lu(k,1078) * lu(k,1766) + lu(k,1986) = lu(k,1986) - lu(k,1072) * lu(k,1983) + lu(k,1987) = lu(k,1987) - lu(k,1073) * lu(k,1983) + lu(k,1989) = lu(k,1989) - lu(k,1074) * lu(k,1983) + lu(k,1991) = lu(k,1991) - lu(k,1075) * lu(k,1983) + lu(k,2011) = lu(k,2011) - lu(k,1076) * lu(k,1983) + lu(k,2020) = lu(k,2020) - lu(k,1077) * lu(k,1983) + lu(k,2021) = lu(k,2021) - lu(k,1078) * lu(k,1983) + lu(k,2093) = lu(k,2093) - lu(k,1072) * lu(k,2091) + lu(k,2094) = lu(k,2094) - lu(k,1073) * lu(k,2091) + lu(k,2097) = lu(k,2097) - lu(k,1074) * lu(k,2091) + lu(k,2099) = - lu(k,1075) * lu(k,2091) + lu(k,2118) = lu(k,2118) - lu(k,1076) * lu(k,2091) + lu(k,2127) = lu(k,2127) - lu(k,1077) * lu(k,2091) + lu(k,2128) = lu(k,2128) - lu(k,1078) * lu(k,2091) + lu(k,2199) = lu(k,2199) - lu(k,1072) * lu(k,2196) + lu(k,2200) = lu(k,2200) - lu(k,1073) * lu(k,2196) + lu(k,2203) = lu(k,2203) - lu(k,1074) * lu(k,2196) + lu(k,2205) = lu(k,2205) - lu(k,1075) * lu(k,2196) + lu(k,2226) = lu(k,2226) - lu(k,1076) * lu(k,2196) + lu(k,2235) = lu(k,2235) - lu(k,1077) * lu(k,2196) + lu(k,2236) = lu(k,2236) - lu(k,1078) * lu(k,2196) + lu(k,2308) = lu(k,2308) - lu(k,1072) * lu(k,2306) + lu(k,2309) = lu(k,2309) - lu(k,1073) * lu(k,2306) + lu(k,2311) = lu(k,2311) - lu(k,1074) * lu(k,2306) + lu(k,2313) = lu(k,2313) - lu(k,1075) * lu(k,2306) + lu(k,2334) = lu(k,2334) - lu(k,1076) * lu(k,2306) + lu(k,2343) = lu(k,2343) - lu(k,1077) * lu(k,2306) + lu(k,2344) = lu(k,2344) - lu(k,1078) * lu(k,2306) + lu(k,2386) = lu(k,2386) - lu(k,1072) * lu(k,2383) + lu(k,2387) = lu(k,2387) - lu(k,1073) * lu(k,2383) + lu(k,2389) = lu(k,2389) - lu(k,1074) * lu(k,2383) + lu(k,2391) = lu(k,2391) - lu(k,1075) * lu(k,2383) + lu(k,2409) = lu(k,2409) - lu(k,1076) * lu(k,2383) + lu(k,2418) = - lu(k,1077) * lu(k,2383) + lu(k,2419) = lu(k,2419) - lu(k,1078) * lu(k,2383) end do end subroutine lu_fac22 subroutine lu_fac23( avec_len, lu ) @@ -4191,324 +4059,291 @@ subroutine lu_fac23( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1106) = 1._r8 / lu(k,1106) - lu(k,1107) = lu(k,1107) * lu(k,1106) - lu(k,1108) = lu(k,1108) * lu(k,1106) - lu(k,1109) = lu(k,1109) * lu(k,1106) - lu(k,1110) = lu(k,1110) * lu(k,1106) - lu(k,1111) = lu(k,1111) * lu(k,1106) - lu(k,1112) = lu(k,1112) * lu(k,1106) - lu(k,1113) = lu(k,1113) * lu(k,1106) - lu(k,1114) = lu(k,1114) * lu(k,1106) - lu(k,1115) = lu(k,1115) * lu(k,1106) - lu(k,1116) = lu(k,1116) * lu(k,1106) - lu(k,1117) = lu(k,1117) * lu(k,1106) - lu(k,1627) = lu(k,1627) - lu(k,1107) * lu(k,1626) - lu(k,1630) = lu(k,1630) - lu(k,1108) * lu(k,1626) - lu(k,1632) = lu(k,1632) - lu(k,1109) * lu(k,1626) - lu(k,1652) = lu(k,1652) - lu(k,1110) * lu(k,1626) - lu(k,1653) = lu(k,1653) - lu(k,1111) * lu(k,1626) - lu(k,1654) = lu(k,1654) - lu(k,1112) * lu(k,1626) - lu(k,1655) = lu(k,1655) - lu(k,1113) * lu(k,1626) - lu(k,1656) = lu(k,1656) - lu(k,1114) * lu(k,1626) - lu(k,1658) = lu(k,1658) - lu(k,1115) * lu(k,1626) - lu(k,1664) = lu(k,1664) - lu(k,1116) * lu(k,1626) - lu(k,1665) = lu(k,1665) - lu(k,1117) * lu(k,1626) - lu(k,1790) = lu(k,1790) - lu(k,1107) * lu(k,1789) - lu(k,1793) = lu(k,1793) - lu(k,1108) * lu(k,1789) - lu(k,1795) = lu(k,1795) - lu(k,1109) * lu(k,1789) - lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1789) - lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1789) - lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1789) - lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1789) - lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1789) - lu(k,1823) = lu(k,1823) - lu(k,1115) * lu(k,1789) - lu(k,1829) = lu(k,1829) - lu(k,1116) * lu(k,1789) - lu(k,1830) = lu(k,1830) - lu(k,1117) * lu(k,1789) - lu(k,1889) = lu(k,1889) - lu(k,1107) * lu(k,1888) - lu(k,1891) = lu(k,1891) - lu(k,1108) * lu(k,1888) - lu(k,1893) = lu(k,1893) - lu(k,1109) * lu(k,1888) - lu(k,1912) = lu(k,1912) - lu(k,1110) * lu(k,1888) - lu(k,1913) = lu(k,1913) - lu(k,1111) * lu(k,1888) - lu(k,1914) = lu(k,1914) - lu(k,1112) * lu(k,1888) - lu(k,1915) = lu(k,1915) - lu(k,1113) * lu(k,1888) - lu(k,1916) = lu(k,1916) - lu(k,1114) * lu(k,1888) - lu(k,1918) = lu(k,1918) - lu(k,1115) * lu(k,1888) - lu(k,1924) = lu(k,1924) - lu(k,1116) * lu(k,1888) - lu(k,1925) = lu(k,1925) - lu(k,1117) * lu(k,1888) - lu(k,2200) = lu(k,2200) - lu(k,1107) * lu(k,2199) - lu(k,2203) = lu(k,2203) - lu(k,1108) * lu(k,2199) - lu(k,2205) = lu(k,2205) - lu(k,1109) * lu(k,2199) - lu(k,2223) = lu(k,2223) - lu(k,1110) * lu(k,2199) - lu(k,2224) = lu(k,2224) - lu(k,1111) * lu(k,2199) - lu(k,2225) = lu(k,2225) - lu(k,1112) * lu(k,2199) - lu(k,2226) = lu(k,2226) - lu(k,1113) * lu(k,2199) - lu(k,2227) = lu(k,2227) - lu(k,1114) * lu(k,2199) - lu(k,2229) = lu(k,2229) - lu(k,1115) * lu(k,2199) - lu(k,2235) = lu(k,2235) - lu(k,1116) * lu(k,2199) - lu(k,2236) = lu(k,2236) - lu(k,1117) * lu(k,2199) - lu(k,2332) = lu(k,2332) - lu(k,1107) * lu(k,2331) - lu(k,2334) = lu(k,2334) - lu(k,1108) * lu(k,2331) - lu(k,2336) = lu(k,2336) - lu(k,1109) * lu(k,2331) - lu(k,2356) = lu(k,2356) - lu(k,1110) * lu(k,2331) - lu(k,2357) = lu(k,2357) - lu(k,1111) * lu(k,2331) - lu(k,2358) = lu(k,2358) - lu(k,1112) * lu(k,2331) - lu(k,2359) = lu(k,2359) - lu(k,1113) * lu(k,2331) - lu(k,2360) = lu(k,2360) - lu(k,1114) * lu(k,2331) - lu(k,2362) = lu(k,2362) - lu(k,1115) * lu(k,2331) - lu(k,2368) = lu(k,2368) - lu(k,1116) * lu(k,2331) - lu(k,2369) = lu(k,2369) - lu(k,1117) * lu(k,2331) - lu(k,2387) = lu(k,2387) - lu(k,1107) * lu(k,2386) - lu(k,2389) = lu(k,2389) - lu(k,1108) * lu(k,2386) - lu(k,2391) = lu(k,2391) - lu(k,1109) * lu(k,2386) - lu(k,2408) = lu(k,2408) - lu(k,1110) * lu(k,2386) - lu(k,2409) = lu(k,2409) - lu(k,1111) * lu(k,2386) - lu(k,2410) = lu(k,2410) - lu(k,1112) * lu(k,2386) - lu(k,2411) = lu(k,2411) - lu(k,1113) * lu(k,2386) - lu(k,2412) = lu(k,2412) - lu(k,1114) * lu(k,2386) - lu(k,2414) = lu(k,2414) - lu(k,1115) * lu(k,2386) - lu(k,2420) = lu(k,2420) - lu(k,1116) * lu(k,2386) - lu(k,2421) = lu(k,2421) - lu(k,1117) * lu(k,2386) - lu(k,1119) = 1._r8 / lu(k,1119) - lu(k,1120) = lu(k,1120) * lu(k,1119) - lu(k,1121) = lu(k,1121) * lu(k,1119) - lu(k,1122) = lu(k,1122) * lu(k,1119) - lu(k,1123) = lu(k,1123) * lu(k,1119) - lu(k,1124) = lu(k,1124) * lu(k,1119) - lu(k,1125) = lu(k,1125) * lu(k,1119) - lu(k,1126) = lu(k,1126) * lu(k,1119) - lu(k,1127) = lu(k,1127) * lu(k,1119) - lu(k,1128) = lu(k,1128) * lu(k,1119) - lu(k,1176) = lu(k,1176) - lu(k,1120) * lu(k,1175) - lu(k,1179) = lu(k,1179) - lu(k,1121) * lu(k,1175) - lu(k,1180) = lu(k,1180) - lu(k,1122) * lu(k,1175) - lu(k,1181) = lu(k,1181) - lu(k,1123) * lu(k,1175) - lu(k,1182) = lu(k,1182) - lu(k,1124) * lu(k,1175) - lu(k,1185) = lu(k,1185) - lu(k,1125) * lu(k,1175) - lu(k,1187) = lu(k,1187) - lu(k,1126) * lu(k,1175) - lu(k,1188) = lu(k,1188) - lu(k,1127) * lu(k,1175) - lu(k,1189) = lu(k,1189) - lu(k,1128) * lu(k,1175) - lu(k,1630) = lu(k,1630) - lu(k,1120) * lu(k,1627) - lu(k,1635) = lu(k,1635) - lu(k,1121) * lu(k,1627) - lu(k,1645) = lu(k,1645) - lu(k,1122) * lu(k,1627) - lu(k,1646) = lu(k,1646) - lu(k,1123) * lu(k,1627) - lu(k,1653) = lu(k,1653) - lu(k,1124) * lu(k,1627) - lu(k,1656) = lu(k,1656) - lu(k,1125) * lu(k,1627) - lu(k,1664) = lu(k,1664) - lu(k,1126) * lu(k,1627) - lu(k,1665) = lu(k,1665) - lu(k,1127) * lu(k,1627) - lu(k,1666) = lu(k,1666) - lu(k,1128) * lu(k,1627) - lu(k,1793) = lu(k,1793) - lu(k,1120) * lu(k,1790) - lu(k,1798) = lu(k,1798) - lu(k,1121) * lu(k,1790) - lu(k,1808) = lu(k,1808) - lu(k,1122) * lu(k,1790) - lu(k,1809) = lu(k,1809) - lu(k,1123) * lu(k,1790) - lu(k,1818) = lu(k,1818) - lu(k,1124) * lu(k,1790) - lu(k,1821) = lu(k,1821) - lu(k,1125) * lu(k,1790) - lu(k,1829) = lu(k,1829) - lu(k,1126) * lu(k,1790) - lu(k,1830) = lu(k,1830) - lu(k,1127) * lu(k,1790) - lu(k,1831) = lu(k,1831) - lu(k,1128) * lu(k,1790) - lu(k,1891) = lu(k,1891) - lu(k,1120) * lu(k,1889) - lu(k,1896) = lu(k,1896) - lu(k,1121) * lu(k,1889) - lu(k,1906) = lu(k,1906) - lu(k,1122) * lu(k,1889) - lu(k,1907) = lu(k,1907) - lu(k,1123) * lu(k,1889) - lu(k,1913) = lu(k,1913) - lu(k,1124) * lu(k,1889) - lu(k,1916) = lu(k,1916) - lu(k,1125) * lu(k,1889) - lu(k,1924) = lu(k,1924) - lu(k,1126) * lu(k,1889) - lu(k,1925) = lu(k,1925) - lu(k,1127) * lu(k,1889) - lu(k,1926) = lu(k,1926) - lu(k,1128) * lu(k,1889) - lu(k,2203) = lu(k,2203) - lu(k,1120) * lu(k,2200) - lu(k,2207) = lu(k,2207) - lu(k,1121) * lu(k,2200) - lu(k,2216) = lu(k,2216) - lu(k,1122) * lu(k,2200) - lu(k,2217) = lu(k,2217) - lu(k,1123) * lu(k,2200) - lu(k,2224) = lu(k,2224) - lu(k,1124) * lu(k,2200) - lu(k,2227) = lu(k,2227) - lu(k,1125) * lu(k,2200) - lu(k,2235) = lu(k,2235) - lu(k,1126) * lu(k,2200) - lu(k,2236) = lu(k,2236) - lu(k,1127) * lu(k,2200) - lu(k,2237) = lu(k,2237) - lu(k,1128) * lu(k,2200) - lu(k,2334) = lu(k,2334) - lu(k,1120) * lu(k,2332) - lu(k,2338) = lu(k,2338) - lu(k,1121) * lu(k,2332) - lu(k,2348) = lu(k,2348) - lu(k,1122) * lu(k,2332) - lu(k,2349) = lu(k,2349) - lu(k,1123) * lu(k,2332) - lu(k,2357) = lu(k,2357) - lu(k,1124) * lu(k,2332) - lu(k,2360) = lu(k,2360) - lu(k,1125) * lu(k,2332) - lu(k,2368) = lu(k,2368) - lu(k,1126) * lu(k,2332) - lu(k,2369) = lu(k,2369) - lu(k,1127) * lu(k,2332) - lu(k,2370) = lu(k,2370) - lu(k,1128) * lu(k,2332) - lu(k,2389) = lu(k,2389) - lu(k,1120) * lu(k,2387) - lu(k,2393) = lu(k,2393) - lu(k,1121) * lu(k,2387) - lu(k,2403) = lu(k,2403) - lu(k,1122) * lu(k,2387) - lu(k,2404) = lu(k,2404) - lu(k,1123) * lu(k,2387) - lu(k,2409) = lu(k,2409) - lu(k,1124) * lu(k,2387) - lu(k,2412) = lu(k,2412) - lu(k,1125) * lu(k,2387) - lu(k,2420) = lu(k,2420) - lu(k,1126) * lu(k,2387) - lu(k,2421) = lu(k,2421) - lu(k,1127) * lu(k,2387) - lu(k,2422) = lu(k,2422) - lu(k,1128) * lu(k,2387) - lu(k,1133) = 1._r8 / lu(k,1133) - lu(k,1134) = lu(k,1134) * lu(k,1133) - lu(k,1135) = lu(k,1135) * lu(k,1133) - lu(k,1136) = lu(k,1136) * lu(k,1133) - lu(k,1137) = lu(k,1137) * lu(k,1133) - lu(k,1138) = lu(k,1138) * lu(k,1133) - lu(k,1139) = lu(k,1139) * lu(k,1133) - lu(k,1140) = lu(k,1140) * lu(k,1133) - lu(k,1141) = lu(k,1141) * lu(k,1133) - lu(k,1142) = lu(k,1142) * lu(k,1133) - lu(k,1143) = lu(k,1143) * lu(k,1133) - lu(k,1144) = lu(k,1144) * lu(k,1133) - lu(k,1145) = lu(k,1145) * lu(k,1133) - lu(k,1146) = lu(k,1146) * lu(k,1133) - lu(k,1147) = lu(k,1147) * lu(k,1133) - lu(k,1148) = lu(k,1148) * lu(k,1133) - lu(k,1149) = lu(k,1149) * lu(k,1133) - lu(k,1150) = lu(k,1150) * lu(k,1133) - lu(k,1371) = lu(k,1371) - lu(k,1134) * lu(k,1370) - lu(k,1372) = lu(k,1372) - lu(k,1135) * lu(k,1370) - lu(k,1373) = - lu(k,1136) * lu(k,1370) - lu(k,1374) = lu(k,1374) - lu(k,1137) * lu(k,1370) - lu(k,1378) = lu(k,1378) - lu(k,1138) * lu(k,1370) - lu(k,1379) = lu(k,1379) - lu(k,1139) * lu(k,1370) - lu(k,1380) = - lu(k,1140) * lu(k,1370) - lu(k,1381) = - lu(k,1141) * lu(k,1370) - lu(k,1382) = lu(k,1382) - lu(k,1142) * lu(k,1370) - lu(k,1383) = - lu(k,1143) * lu(k,1370) - lu(k,1384) = - lu(k,1144) * lu(k,1370) - lu(k,1385) = lu(k,1385) - lu(k,1145) * lu(k,1370) - lu(k,1387) = lu(k,1387) - lu(k,1146) * lu(k,1370) - lu(k,1388) = - lu(k,1147) * lu(k,1370) - lu(k,1389) = lu(k,1389) - lu(k,1148) * lu(k,1370) - lu(k,1390) = lu(k,1390) - lu(k,1149) * lu(k,1370) - lu(k,1391) = lu(k,1391) - lu(k,1150) * lu(k,1370) - lu(k,1629) = lu(k,1629) - lu(k,1134) * lu(k,1628) - lu(k,1630) = lu(k,1630) - lu(k,1135) * lu(k,1628) - lu(k,1634) = lu(k,1634) - lu(k,1136) * lu(k,1628) - lu(k,1639) = lu(k,1639) - lu(k,1137) * lu(k,1628) - lu(k,1645) = lu(k,1645) - lu(k,1138) * lu(k,1628) - lu(k,1646) = lu(k,1646) - lu(k,1139) * lu(k,1628) - lu(k,1649) = lu(k,1649) - lu(k,1140) * lu(k,1628) - lu(k,1652) = lu(k,1652) - lu(k,1141) * lu(k,1628) - lu(k,1653) = lu(k,1653) - lu(k,1142) * lu(k,1628) - lu(k,1654) = lu(k,1654) - lu(k,1143) * lu(k,1628) - lu(k,1655) = lu(k,1655) - lu(k,1144) * lu(k,1628) - lu(k,1656) = lu(k,1656) - lu(k,1145) * lu(k,1628) - lu(k,1662) = lu(k,1662) - lu(k,1146) * lu(k,1628) - lu(k,1663) = - lu(k,1147) * lu(k,1628) - lu(k,1664) = lu(k,1664) - lu(k,1148) * lu(k,1628) - lu(k,1665) = lu(k,1665) - lu(k,1149) * lu(k,1628) - lu(k,1666) = lu(k,1666) - lu(k,1150) * lu(k,1628) - lu(k,1792) = lu(k,1792) - lu(k,1134) * lu(k,1791) - lu(k,1793) = lu(k,1793) - lu(k,1135) * lu(k,1791) - lu(k,1797) = lu(k,1797) - lu(k,1136) * lu(k,1791) - lu(k,1802) = lu(k,1802) - lu(k,1137) * lu(k,1791) - lu(k,1808) = lu(k,1808) - lu(k,1138) * lu(k,1791) - lu(k,1809) = lu(k,1809) - lu(k,1139) * lu(k,1791) - lu(k,1814) = lu(k,1814) - lu(k,1140) * lu(k,1791) - lu(k,1817) = lu(k,1817) - lu(k,1141) * lu(k,1791) - lu(k,1818) = lu(k,1818) - lu(k,1142) * lu(k,1791) - lu(k,1819) = lu(k,1819) - lu(k,1143) * lu(k,1791) - lu(k,1820) = lu(k,1820) - lu(k,1144) * lu(k,1791) - lu(k,1821) = lu(k,1821) - lu(k,1145) * lu(k,1791) - lu(k,1827) = lu(k,1827) - lu(k,1146) * lu(k,1791) - lu(k,1828) = lu(k,1828) - lu(k,1147) * lu(k,1791) - lu(k,1829) = lu(k,1829) - lu(k,1148) * lu(k,1791) - lu(k,1830) = lu(k,1830) - lu(k,1149) * lu(k,1791) - lu(k,1831) = lu(k,1831) - lu(k,1150) * lu(k,1791) - lu(k,2202) = lu(k,2202) - lu(k,1134) * lu(k,2201) - lu(k,2203) = lu(k,2203) - lu(k,1135) * lu(k,2201) - lu(k,2206) = - lu(k,1136) * lu(k,2201) - lu(k,2210) = lu(k,2210) - lu(k,1137) * lu(k,2201) - lu(k,2216) = lu(k,2216) - lu(k,1138) * lu(k,2201) - lu(k,2217) = lu(k,2217) - lu(k,1139) * lu(k,2201) - lu(k,2220) = lu(k,2220) - lu(k,1140) * lu(k,2201) - lu(k,2223) = lu(k,2223) - lu(k,1141) * lu(k,2201) - lu(k,2224) = lu(k,2224) - lu(k,1142) * lu(k,2201) - lu(k,2225) = lu(k,2225) - lu(k,1143) * lu(k,2201) - lu(k,2226) = lu(k,2226) - lu(k,1144) * lu(k,2201) - lu(k,2227) = lu(k,2227) - lu(k,1145) * lu(k,2201) - lu(k,2233) = lu(k,2233) - lu(k,1146) * lu(k,2201) - lu(k,2234) = lu(k,2234) - lu(k,1147) * lu(k,2201) - lu(k,2235) = lu(k,2235) - lu(k,1148) * lu(k,2201) - lu(k,2236) = lu(k,2236) - lu(k,1149) * lu(k,2201) - lu(k,2237) = lu(k,2237) - lu(k,1150) * lu(k,2201) - lu(k,1151) = 1._r8 / lu(k,1151) - lu(k,1152) = lu(k,1152) * lu(k,1151) - lu(k,1153) = lu(k,1153) * lu(k,1151) - lu(k,1154) = lu(k,1154) * lu(k,1151) - lu(k,1155) = lu(k,1155) * lu(k,1151) - lu(k,1156) = lu(k,1156) * lu(k,1151) - lu(k,1157) = lu(k,1157) * lu(k,1151) - lu(k,1158) = lu(k,1158) * lu(k,1151) - lu(k,1159) = lu(k,1159) * lu(k,1151) - lu(k,1193) = lu(k,1193) - lu(k,1152) * lu(k,1192) - lu(k,1198) = lu(k,1198) - lu(k,1153) * lu(k,1192) - lu(k,1200) = - lu(k,1154) * lu(k,1192) - lu(k,1201) = lu(k,1201) - lu(k,1155) * lu(k,1192) - lu(k,1204) = lu(k,1204) - lu(k,1156) * lu(k,1192) - lu(k,1205) = lu(k,1205) - lu(k,1157) * lu(k,1192) - lu(k,1206) = lu(k,1206) - lu(k,1158) * lu(k,1192) - lu(k,1207) = lu(k,1207) - lu(k,1159) * lu(k,1192) - lu(k,1372) = lu(k,1372) - lu(k,1152) * lu(k,1371) - lu(k,1378) = lu(k,1378) - lu(k,1153) * lu(k,1371) - lu(k,1381) = lu(k,1381) - lu(k,1154) * lu(k,1371) - lu(k,1382) = lu(k,1382) - lu(k,1155) * lu(k,1371) - lu(k,1386) = - lu(k,1156) * lu(k,1371) - lu(k,1389) = lu(k,1389) - lu(k,1157) * lu(k,1371) - lu(k,1390) = lu(k,1390) - lu(k,1158) * lu(k,1371) - lu(k,1391) = lu(k,1391) - lu(k,1159) * lu(k,1371) - lu(k,1630) = lu(k,1630) - lu(k,1152) * lu(k,1629) - lu(k,1645) = lu(k,1645) - lu(k,1153) * lu(k,1629) - lu(k,1652) = lu(k,1652) - lu(k,1154) * lu(k,1629) - lu(k,1653) = lu(k,1653) - lu(k,1155) * lu(k,1629) - lu(k,1658) = lu(k,1658) - lu(k,1156) * lu(k,1629) - lu(k,1664) = lu(k,1664) - lu(k,1157) * lu(k,1629) - lu(k,1665) = lu(k,1665) - lu(k,1158) * lu(k,1629) - lu(k,1666) = lu(k,1666) - lu(k,1159) * lu(k,1629) - lu(k,1793) = lu(k,1793) - lu(k,1152) * lu(k,1792) - lu(k,1808) = lu(k,1808) - lu(k,1153) * lu(k,1792) - lu(k,1817) = lu(k,1817) - lu(k,1154) * lu(k,1792) - lu(k,1818) = lu(k,1818) - lu(k,1155) * lu(k,1792) - lu(k,1823) = lu(k,1823) - lu(k,1156) * lu(k,1792) - lu(k,1829) = lu(k,1829) - lu(k,1157) * lu(k,1792) - lu(k,1830) = lu(k,1830) - lu(k,1158) * lu(k,1792) - lu(k,1831) = lu(k,1831) - lu(k,1159) * lu(k,1792) - lu(k,1891) = lu(k,1891) - lu(k,1152) * lu(k,1890) - lu(k,1906) = lu(k,1906) - lu(k,1153) * lu(k,1890) - lu(k,1912) = lu(k,1912) - lu(k,1154) * lu(k,1890) - lu(k,1913) = lu(k,1913) - lu(k,1155) * lu(k,1890) - lu(k,1918) = lu(k,1918) - lu(k,1156) * lu(k,1890) - lu(k,1924) = lu(k,1924) - lu(k,1157) * lu(k,1890) - lu(k,1925) = lu(k,1925) - lu(k,1158) * lu(k,1890) - lu(k,1926) = lu(k,1926) - lu(k,1159) * lu(k,1890) - lu(k,2147) = lu(k,2147) - lu(k,1152) * lu(k,2146) - lu(k,2151) = lu(k,2151) - lu(k,1153) * lu(k,2146) - lu(k,2159) = lu(k,2159) - lu(k,1154) * lu(k,2146) - lu(k,2160) = lu(k,2160) - lu(k,1155) * lu(k,2146) - lu(k,2165) = lu(k,2165) - lu(k,1156) * lu(k,2146) - lu(k,2171) = lu(k,2171) - lu(k,1157) * lu(k,2146) - lu(k,2172) = lu(k,2172) - lu(k,1158) * lu(k,2146) - lu(k,2173) = lu(k,2173) - lu(k,1159) * lu(k,2146) - lu(k,2203) = lu(k,2203) - lu(k,1152) * lu(k,2202) - lu(k,2216) = lu(k,2216) - lu(k,1153) * lu(k,2202) - lu(k,2223) = lu(k,2223) - lu(k,1154) * lu(k,2202) - lu(k,2224) = lu(k,2224) - lu(k,1155) * lu(k,2202) - lu(k,2229) = lu(k,2229) - lu(k,1156) * lu(k,2202) - lu(k,2235) = lu(k,2235) - lu(k,1157) * lu(k,2202) - lu(k,2236) = lu(k,2236) - lu(k,1158) * lu(k,2202) - lu(k,2237) = lu(k,2237) - lu(k,1159) * lu(k,2202) - lu(k,2334) = lu(k,2334) - lu(k,1152) * lu(k,2333) - lu(k,2348) = lu(k,2348) - lu(k,1153) * lu(k,2333) - lu(k,2356) = lu(k,2356) - lu(k,1154) * lu(k,2333) - lu(k,2357) = lu(k,2357) - lu(k,1155) * lu(k,2333) - lu(k,2362) = lu(k,2362) - lu(k,1156) * lu(k,2333) - lu(k,2368) = lu(k,2368) - lu(k,1157) * lu(k,2333) - lu(k,2369) = lu(k,2369) - lu(k,1158) * lu(k,2333) - lu(k,2370) = lu(k,2370) - lu(k,1159) * lu(k,2333) - lu(k,2389) = lu(k,2389) - lu(k,1152) * lu(k,2388) - lu(k,2403) = lu(k,2403) - lu(k,1153) * lu(k,2388) - lu(k,2408) = lu(k,2408) - lu(k,1154) * lu(k,2388) - lu(k,2409) = lu(k,2409) - lu(k,1155) * lu(k,2388) - lu(k,2414) = lu(k,2414) - lu(k,1156) * lu(k,2388) - lu(k,2420) = lu(k,2420) - lu(k,1157) * lu(k,2388) - lu(k,2421) = lu(k,2421) - lu(k,1158) * lu(k,2388) - lu(k,2422) = lu(k,2422) - lu(k,1159) * lu(k,2388) + lu(k,1079) = 1._r8 / lu(k,1079) + lu(k,1080) = lu(k,1080) * lu(k,1079) + lu(k,1081) = lu(k,1081) * lu(k,1079) + lu(k,1082) = lu(k,1082) * lu(k,1079) + lu(k,1083) = lu(k,1083) * lu(k,1079) + lu(k,1084) = lu(k,1084) * lu(k,1079) + lu(k,1120) = lu(k,1120) - lu(k,1080) * lu(k,1117) + lu(k,1121) = lu(k,1121) - lu(k,1081) * lu(k,1117) + lu(k,1123) = lu(k,1123) - lu(k,1082) * lu(k,1117) + lu(k,1126) = - lu(k,1083) * lu(k,1117) + lu(k,1127) = - lu(k,1084) * lu(k,1117) + lu(k,1178) = - lu(k,1080) * lu(k,1173) + lu(k,1179) = - lu(k,1081) * lu(k,1173) + lu(k,1181) = lu(k,1181) - lu(k,1082) * lu(k,1173) + lu(k,1187) = lu(k,1187) - lu(k,1083) * lu(k,1173) + lu(k,1188) = - lu(k,1084) * lu(k,1173) + lu(k,1196) = - lu(k,1080) * lu(k,1190) + lu(k,1197) = lu(k,1197) - lu(k,1081) * lu(k,1190) + lu(k,1199) = lu(k,1199) - lu(k,1082) * lu(k,1190) + lu(k,1205) = - lu(k,1083) * lu(k,1190) + lu(k,1206) = - lu(k,1084) * lu(k,1190) + lu(k,1778) = lu(k,1778) - lu(k,1080) * lu(k,1767) + lu(k,1788) = lu(k,1788) - lu(k,1081) * lu(k,1767) + lu(k,1798) = lu(k,1798) - lu(k,1082) * lu(k,1767) + lu(k,1810) = lu(k,1810) - lu(k,1083) * lu(k,1767) + lu(k,1811) = lu(k,1811) - lu(k,1084) * lu(k,1767) + lu(k,1833) = - lu(k,1080) * lu(k,1829) + lu(k,1835) = - lu(k,1081) * lu(k,1829) + lu(k,1844) = lu(k,1844) - lu(k,1082) * lu(k,1829) + lu(k,1856) = lu(k,1856) - lu(k,1083) * lu(k,1829) + lu(k,1857) = lu(k,1857) - lu(k,1084) * lu(k,1829) + lu(k,1994) = lu(k,1994) - lu(k,1080) * lu(k,1984) + lu(k,2004) = lu(k,2004) - lu(k,1081) * lu(k,1984) + lu(k,2011) = lu(k,2011) - lu(k,1082) * lu(k,1984) + lu(k,2023) = lu(k,2023) - lu(k,1083) * lu(k,1984) + lu(k,2024) = lu(k,2024) - lu(k,1084) * lu(k,1984) + lu(k,2101) = lu(k,2101) - lu(k,1080) * lu(k,2092) + lu(k,2110) = lu(k,2110) - lu(k,1081) * lu(k,2092) + lu(k,2118) = lu(k,2118) - lu(k,1082) * lu(k,2092) + lu(k,2130) = lu(k,2130) - lu(k,1083) * lu(k,2092) + lu(k,2131) = lu(k,2131) - lu(k,1084) * lu(k,2092) + lu(k,2208) = lu(k,2208) - lu(k,1080) * lu(k,2197) + lu(k,2218) = lu(k,2218) - lu(k,1081) * lu(k,2197) + lu(k,2226) = lu(k,2226) - lu(k,1082) * lu(k,2197) + lu(k,2238) = lu(k,2238) - lu(k,1083) * lu(k,2197) + lu(k,2239) = lu(k,2239) - lu(k,1084) * lu(k,2197) + lu(k,2315) = lu(k,2315) - lu(k,1080) * lu(k,2307) + lu(k,2325) = lu(k,2325) - lu(k,1081) * lu(k,2307) + lu(k,2334) = lu(k,2334) - lu(k,1082) * lu(k,2307) + lu(k,2346) = lu(k,2346) - lu(k,1083) * lu(k,2307) + lu(k,2347) = lu(k,2347) - lu(k,1084) * lu(k,2307) + lu(k,2393) = lu(k,2393) - lu(k,1080) * lu(k,2384) + lu(k,2403) = lu(k,2403) - lu(k,1081) * lu(k,2384) + lu(k,2409) = lu(k,2409) - lu(k,1082) * lu(k,2384) + lu(k,2421) = lu(k,2421) - lu(k,1083) * lu(k,2384) + lu(k,2422) = lu(k,2422) - lu(k,1084) * lu(k,2384) + lu(k,1089) = 1._r8 / lu(k,1089) + lu(k,1090) = lu(k,1090) * lu(k,1089) + lu(k,1091) = lu(k,1091) * lu(k,1089) + lu(k,1092) = lu(k,1092) * lu(k,1089) + lu(k,1093) = lu(k,1093) * lu(k,1089) + lu(k,1094) = lu(k,1094) * lu(k,1089) + lu(k,1095) = lu(k,1095) * lu(k,1089) + lu(k,1096) = lu(k,1096) * lu(k,1089) + lu(k,1097) = lu(k,1097) * lu(k,1089) + lu(k,1098) = lu(k,1098) * lu(k,1089) + lu(k,1099) = lu(k,1099) * lu(k,1089) + lu(k,1100) = lu(k,1100) * lu(k,1089) + lu(k,1249) = - lu(k,1090) * lu(k,1248) + lu(k,1254) = lu(k,1254) - lu(k,1091) * lu(k,1248) + lu(k,1256) = lu(k,1256) - lu(k,1092) * lu(k,1248) + lu(k,1257) = - lu(k,1093) * lu(k,1248) + lu(k,1258) = lu(k,1258) - lu(k,1094) * lu(k,1248) + lu(k,1259) = lu(k,1259) - lu(k,1095) * lu(k,1248) + lu(k,1260) = lu(k,1260) - lu(k,1096) * lu(k,1248) + lu(k,1261) = lu(k,1261) - lu(k,1097) * lu(k,1248) + lu(k,1263) = lu(k,1263) - lu(k,1098) * lu(k,1248) + lu(k,1264) = lu(k,1264) - lu(k,1099) * lu(k,1248) + lu(k,1265) = lu(k,1265) - lu(k,1100) * lu(k,1248) + lu(k,1415) = lu(k,1415) - lu(k,1090) * lu(k,1414) + lu(k,1421) = lu(k,1421) - lu(k,1091) * lu(k,1414) + lu(k,1427) = lu(k,1427) - lu(k,1092) * lu(k,1414) + lu(k,1428) = lu(k,1428) - lu(k,1093) * lu(k,1414) + lu(k,1431) = lu(k,1431) - lu(k,1094) * lu(k,1414) + lu(k,1432) = lu(k,1432) - lu(k,1095) * lu(k,1414) + lu(k,1433) = lu(k,1433) - lu(k,1096) * lu(k,1414) + lu(k,1434) = lu(k,1434) - lu(k,1097) * lu(k,1414) + lu(k,1437) = lu(k,1437) - lu(k,1098) * lu(k,1414) + lu(k,1438) = - lu(k,1099) * lu(k,1414) + lu(k,1439) = lu(k,1439) - lu(k,1100) * lu(k,1414) + lu(k,1773) = lu(k,1773) - lu(k,1090) * lu(k,1768) + lu(k,1782) = lu(k,1782) - lu(k,1091) * lu(k,1768) + lu(k,1788) = lu(k,1788) - lu(k,1092) * lu(k,1768) + lu(k,1789) = lu(k,1789) - lu(k,1093) * lu(k,1768) + lu(k,1798) = lu(k,1798) - lu(k,1094) * lu(k,1768) + lu(k,1800) = lu(k,1800) - lu(k,1095) * lu(k,1768) + lu(k,1801) = lu(k,1801) - lu(k,1096) * lu(k,1768) + lu(k,1802) = lu(k,1802) - lu(k,1097) * lu(k,1768) + lu(k,1808) = lu(k,1808) - lu(k,1098) * lu(k,1768) + lu(k,1809) = lu(k,1809) - lu(k,1099) * lu(k,1768) + lu(k,1810) = lu(k,1810) - lu(k,1100) * lu(k,1768) + lu(k,1989) = lu(k,1989) - lu(k,1090) * lu(k,1985) + lu(k,1998) = lu(k,1998) - lu(k,1091) * lu(k,1985) + lu(k,2004) = lu(k,2004) - lu(k,1092) * lu(k,1985) + lu(k,2005) = lu(k,2005) - lu(k,1093) * lu(k,1985) + lu(k,2011) = lu(k,2011) - lu(k,1094) * lu(k,1985) + lu(k,2013) = lu(k,2013) - lu(k,1095) * lu(k,1985) + lu(k,2014) = lu(k,2014) - lu(k,1096) * lu(k,1985) + lu(k,2015) = lu(k,2015) - lu(k,1097) * lu(k,1985) + lu(k,2021) = lu(k,2021) - lu(k,1098) * lu(k,1985) + lu(k,2022) = lu(k,2022) - lu(k,1099) * lu(k,1985) + lu(k,2023) = lu(k,2023) - lu(k,1100) * lu(k,1985) + lu(k,2203) = lu(k,2203) - lu(k,1090) * lu(k,2198) + lu(k,2212) = lu(k,2212) - lu(k,1091) * lu(k,2198) + lu(k,2218) = lu(k,2218) - lu(k,1092) * lu(k,2198) + lu(k,2219) = lu(k,2219) - lu(k,1093) * lu(k,2198) + lu(k,2226) = lu(k,2226) - lu(k,1094) * lu(k,2198) + lu(k,2228) = lu(k,2228) - lu(k,1095) * lu(k,2198) + lu(k,2229) = lu(k,2229) - lu(k,1096) * lu(k,2198) + lu(k,2230) = lu(k,2230) - lu(k,1097) * lu(k,2198) + lu(k,2236) = lu(k,2236) - lu(k,1098) * lu(k,2198) + lu(k,2237) = lu(k,2237) - lu(k,1099) * lu(k,2198) + lu(k,2238) = lu(k,2238) - lu(k,1100) * lu(k,2198) + lu(k,2389) = lu(k,2389) - lu(k,1090) * lu(k,2385) + lu(k,2397) = lu(k,2397) - lu(k,1091) * lu(k,2385) + lu(k,2403) = lu(k,2403) - lu(k,1092) * lu(k,2385) + lu(k,2404) = lu(k,2404) - lu(k,1093) * lu(k,2385) + lu(k,2409) = lu(k,2409) - lu(k,1094) * lu(k,2385) + lu(k,2411) = lu(k,2411) - lu(k,1095) * lu(k,2385) + lu(k,2412) = lu(k,2412) - lu(k,1096) * lu(k,2385) + lu(k,2413) = lu(k,2413) - lu(k,1097) * lu(k,2385) + lu(k,2419) = lu(k,2419) - lu(k,1098) * lu(k,2385) + lu(k,2420) = lu(k,2420) - lu(k,1099) * lu(k,2385) + lu(k,2421) = lu(k,2421) - lu(k,1100) * lu(k,2385) + lu(k,1105) = 1._r8 / lu(k,1105) + lu(k,1106) = lu(k,1106) * lu(k,1105) + lu(k,1107) = lu(k,1107) * lu(k,1105) + lu(k,1108) = lu(k,1108) * lu(k,1105) + lu(k,1109) = lu(k,1109) * lu(k,1105) + lu(k,1110) = lu(k,1110) * lu(k,1105) + lu(k,1111) = lu(k,1111) * lu(k,1105) + lu(k,1112) = lu(k,1112) * lu(k,1105) + lu(k,1113) = lu(k,1113) * lu(k,1105) + lu(k,1114) = lu(k,1114) * lu(k,1105) + lu(k,1115) = lu(k,1115) * lu(k,1105) + lu(k,1116) = lu(k,1116) * lu(k,1105) + lu(k,1770) = lu(k,1770) - lu(k,1106) * lu(k,1769) + lu(k,1773) = lu(k,1773) - lu(k,1107) * lu(k,1769) + lu(k,1775) = lu(k,1775) - lu(k,1108) * lu(k,1769) + lu(k,1798) = lu(k,1798) - lu(k,1109) * lu(k,1769) + lu(k,1800) = lu(k,1800) - lu(k,1110) * lu(k,1769) + lu(k,1801) = lu(k,1801) - lu(k,1111) * lu(k,1769) + lu(k,1802) = lu(k,1802) - lu(k,1112) * lu(k,1769) + lu(k,1807) = lu(k,1807) - lu(k,1113) * lu(k,1769) + lu(k,1808) = lu(k,1808) - lu(k,1114) * lu(k,1769) + lu(k,1809) = lu(k,1809) - lu(k,1115) * lu(k,1769) + lu(k,1810) = lu(k,1810) - lu(k,1116) * lu(k,1769) + lu(k,1987) = lu(k,1987) - lu(k,1106) * lu(k,1986) + lu(k,1989) = lu(k,1989) - lu(k,1107) * lu(k,1986) + lu(k,1991) = lu(k,1991) - lu(k,1108) * lu(k,1986) + lu(k,2011) = lu(k,2011) - lu(k,1109) * lu(k,1986) + lu(k,2013) = lu(k,2013) - lu(k,1110) * lu(k,1986) + lu(k,2014) = lu(k,2014) - lu(k,1111) * lu(k,1986) + lu(k,2015) = lu(k,2015) - lu(k,1112) * lu(k,1986) + lu(k,2020) = lu(k,2020) - lu(k,1113) * lu(k,1986) + lu(k,2021) = lu(k,2021) - lu(k,1114) * lu(k,1986) + lu(k,2022) = lu(k,2022) - lu(k,1115) * lu(k,1986) + lu(k,2023) = lu(k,2023) - lu(k,1116) * lu(k,1986) + lu(k,2094) = lu(k,2094) - lu(k,1106) * lu(k,2093) + lu(k,2097) = lu(k,2097) - lu(k,1107) * lu(k,2093) + lu(k,2099) = lu(k,2099) - lu(k,1108) * lu(k,2093) + lu(k,2118) = lu(k,2118) - lu(k,1109) * lu(k,2093) + lu(k,2120) = lu(k,2120) - lu(k,1110) * lu(k,2093) + lu(k,2121) = lu(k,2121) - lu(k,1111) * lu(k,2093) + lu(k,2122) = lu(k,2122) - lu(k,1112) * lu(k,2093) + lu(k,2127) = lu(k,2127) - lu(k,1113) * lu(k,2093) + lu(k,2128) = lu(k,2128) - lu(k,1114) * lu(k,2093) + lu(k,2129) = lu(k,2129) - lu(k,1115) * lu(k,2093) + lu(k,2130) = lu(k,2130) - lu(k,1116) * lu(k,2093) + lu(k,2200) = lu(k,2200) - lu(k,1106) * lu(k,2199) + lu(k,2203) = lu(k,2203) - lu(k,1107) * lu(k,2199) + lu(k,2205) = lu(k,2205) - lu(k,1108) * lu(k,2199) + lu(k,2226) = lu(k,2226) - lu(k,1109) * lu(k,2199) + lu(k,2228) = lu(k,2228) - lu(k,1110) * lu(k,2199) + lu(k,2229) = lu(k,2229) - lu(k,1111) * lu(k,2199) + lu(k,2230) = lu(k,2230) - lu(k,1112) * lu(k,2199) + lu(k,2235) = lu(k,2235) - lu(k,1113) * lu(k,2199) + lu(k,2236) = lu(k,2236) - lu(k,1114) * lu(k,2199) + lu(k,2237) = lu(k,2237) - lu(k,1115) * lu(k,2199) + lu(k,2238) = lu(k,2238) - lu(k,1116) * lu(k,2199) + lu(k,2309) = lu(k,2309) - lu(k,1106) * lu(k,2308) + lu(k,2311) = lu(k,2311) - lu(k,1107) * lu(k,2308) + lu(k,2313) = lu(k,2313) - lu(k,1108) * lu(k,2308) + lu(k,2334) = lu(k,2334) - lu(k,1109) * lu(k,2308) + lu(k,2336) = lu(k,2336) - lu(k,1110) * lu(k,2308) + lu(k,2337) = lu(k,2337) - lu(k,1111) * lu(k,2308) + lu(k,2338) = lu(k,2338) - lu(k,1112) * lu(k,2308) + lu(k,2343) = lu(k,2343) - lu(k,1113) * lu(k,2308) + lu(k,2344) = lu(k,2344) - lu(k,1114) * lu(k,2308) + lu(k,2345) = lu(k,2345) - lu(k,1115) * lu(k,2308) + lu(k,2346) = lu(k,2346) - lu(k,1116) * lu(k,2308) + lu(k,2387) = lu(k,2387) - lu(k,1106) * lu(k,2386) + lu(k,2389) = lu(k,2389) - lu(k,1107) * lu(k,2386) + lu(k,2391) = lu(k,2391) - lu(k,1108) * lu(k,2386) + lu(k,2409) = lu(k,2409) - lu(k,1109) * lu(k,2386) + lu(k,2411) = lu(k,2411) - lu(k,1110) * lu(k,2386) + lu(k,2412) = lu(k,2412) - lu(k,1111) * lu(k,2386) + lu(k,2413) = lu(k,2413) - lu(k,1112) * lu(k,2386) + lu(k,2418) = lu(k,2418) - lu(k,1113) * lu(k,2386) + lu(k,2419) = lu(k,2419) - lu(k,1114) * lu(k,2386) + lu(k,2420) = lu(k,2420) - lu(k,1115) * lu(k,2386) + lu(k,2421) = lu(k,2421) - lu(k,1116) * lu(k,2386) + lu(k,1118) = 1._r8 / lu(k,1118) + lu(k,1119) = lu(k,1119) * lu(k,1118) + lu(k,1120) = lu(k,1120) * lu(k,1118) + lu(k,1121) = lu(k,1121) * lu(k,1118) + lu(k,1122) = lu(k,1122) * lu(k,1118) + lu(k,1123) = lu(k,1123) * lu(k,1118) + lu(k,1124) = lu(k,1124) * lu(k,1118) + lu(k,1125) = lu(k,1125) * lu(k,1118) + lu(k,1126) = lu(k,1126) * lu(k,1118) + lu(k,1127) = lu(k,1127) * lu(k,1118) + lu(k,1175) = lu(k,1175) - lu(k,1119) * lu(k,1174) + lu(k,1178) = lu(k,1178) - lu(k,1120) * lu(k,1174) + lu(k,1179) = lu(k,1179) - lu(k,1121) * lu(k,1174) + lu(k,1180) = lu(k,1180) - lu(k,1122) * lu(k,1174) + lu(k,1181) = lu(k,1181) - lu(k,1123) * lu(k,1174) + lu(k,1183) = lu(k,1183) - lu(k,1124) * lu(k,1174) + lu(k,1185) = lu(k,1185) - lu(k,1125) * lu(k,1174) + lu(k,1187) = lu(k,1187) - lu(k,1126) * lu(k,1174) + lu(k,1188) = lu(k,1188) - lu(k,1127) * lu(k,1174) + lu(k,1773) = lu(k,1773) - lu(k,1119) * lu(k,1770) + lu(k,1778) = lu(k,1778) - lu(k,1120) * lu(k,1770) + lu(k,1788) = lu(k,1788) - lu(k,1121) * lu(k,1770) + lu(k,1789) = lu(k,1789) - lu(k,1122) * lu(k,1770) + lu(k,1798) = lu(k,1798) - lu(k,1123) * lu(k,1770) + lu(k,1801) = lu(k,1801) - lu(k,1124) * lu(k,1770) + lu(k,1808) = lu(k,1808) - lu(k,1125) * lu(k,1770) + lu(k,1810) = lu(k,1810) - lu(k,1126) * lu(k,1770) + lu(k,1811) = lu(k,1811) - lu(k,1127) * lu(k,1770) + lu(k,1989) = lu(k,1989) - lu(k,1119) * lu(k,1987) + lu(k,1994) = lu(k,1994) - lu(k,1120) * lu(k,1987) + lu(k,2004) = lu(k,2004) - lu(k,1121) * lu(k,1987) + lu(k,2005) = lu(k,2005) - lu(k,1122) * lu(k,1987) + lu(k,2011) = lu(k,2011) - lu(k,1123) * lu(k,1987) + lu(k,2014) = lu(k,2014) - lu(k,1124) * lu(k,1987) + lu(k,2021) = lu(k,2021) - lu(k,1125) * lu(k,1987) + lu(k,2023) = lu(k,2023) - lu(k,1126) * lu(k,1987) + lu(k,2024) = lu(k,2024) - lu(k,1127) * lu(k,1987) + lu(k,2097) = lu(k,2097) - lu(k,1119) * lu(k,2094) + lu(k,2101) = lu(k,2101) - lu(k,1120) * lu(k,2094) + lu(k,2110) = lu(k,2110) - lu(k,1121) * lu(k,2094) + lu(k,2111) = lu(k,2111) - lu(k,1122) * lu(k,2094) + lu(k,2118) = lu(k,2118) - lu(k,1123) * lu(k,2094) + lu(k,2121) = lu(k,2121) - lu(k,1124) * lu(k,2094) + lu(k,2128) = lu(k,2128) - lu(k,1125) * lu(k,2094) + lu(k,2130) = lu(k,2130) - lu(k,1126) * lu(k,2094) + lu(k,2131) = lu(k,2131) - lu(k,1127) * lu(k,2094) + lu(k,2203) = lu(k,2203) - lu(k,1119) * lu(k,2200) + lu(k,2208) = lu(k,2208) - lu(k,1120) * lu(k,2200) + lu(k,2218) = lu(k,2218) - lu(k,1121) * lu(k,2200) + lu(k,2219) = lu(k,2219) - lu(k,1122) * lu(k,2200) + lu(k,2226) = lu(k,2226) - lu(k,1123) * lu(k,2200) + lu(k,2229) = lu(k,2229) - lu(k,1124) * lu(k,2200) + lu(k,2236) = lu(k,2236) - lu(k,1125) * lu(k,2200) + lu(k,2238) = lu(k,2238) - lu(k,1126) * lu(k,2200) + lu(k,2239) = lu(k,2239) - lu(k,1127) * lu(k,2200) + lu(k,2311) = lu(k,2311) - lu(k,1119) * lu(k,2309) + lu(k,2315) = lu(k,2315) - lu(k,1120) * lu(k,2309) + lu(k,2325) = lu(k,2325) - lu(k,1121) * lu(k,2309) + lu(k,2326) = lu(k,2326) - lu(k,1122) * lu(k,2309) + lu(k,2334) = lu(k,2334) - lu(k,1123) * lu(k,2309) + lu(k,2337) = lu(k,2337) - lu(k,1124) * lu(k,2309) + lu(k,2344) = lu(k,2344) - lu(k,1125) * lu(k,2309) + lu(k,2346) = lu(k,2346) - lu(k,1126) * lu(k,2309) + lu(k,2347) = lu(k,2347) - lu(k,1127) * lu(k,2309) + lu(k,2389) = lu(k,2389) - lu(k,1119) * lu(k,2387) + lu(k,2393) = lu(k,2393) - lu(k,1120) * lu(k,2387) + lu(k,2403) = lu(k,2403) - lu(k,1121) * lu(k,2387) + lu(k,2404) = lu(k,2404) - lu(k,1122) * lu(k,2387) + lu(k,2409) = lu(k,2409) - lu(k,1123) * lu(k,2387) + lu(k,2412) = lu(k,2412) - lu(k,1124) * lu(k,2387) + lu(k,2419) = lu(k,2419) - lu(k,1125) * lu(k,2387) + lu(k,2421) = lu(k,2421) - lu(k,1126) * lu(k,2387) + lu(k,2422) = lu(k,2422) - lu(k,1127) * lu(k,2387) end do end subroutine lu_fac23 subroutine lu_fac24( avec_len, lu ) @@ -4525,398 +4360,321 @@ subroutine lu_fac24( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1160) = 1._r8 / lu(k,1160) - lu(k,1161) = lu(k,1161) * lu(k,1160) - lu(k,1162) = lu(k,1162) * lu(k,1160) - lu(k,1163) = lu(k,1163) * lu(k,1160) - lu(k,1167) = lu(k,1167) - lu(k,1161) * lu(k,1165) - lu(k,1168) = lu(k,1168) - lu(k,1162) * lu(k,1165) - lu(k,1170) = lu(k,1170) - lu(k,1163) * lu(k,1165) - lu(k,1181) = lu(k,1181) - lu(k,1161) * lu(k,1176) - lu(k,1182) = lu(k,1182) - lu(k,1162) * lu(k,1176) - lu(k,1187) = lu(k,1187) - lu(k,1163) * lu(k,1176) - lu(k,1199) = - lu(k,1161) * lu(k,1193) - lu(k,1201) = lu(k,1201) - lu(k,1162) * lu(k,1193) - lu(k,1205) = lu(k,1205) - lu(k,1163) * lu(k,1193) - lu(k,1236) = lu(k,1236) - lu(k,1161) * lu(k,1230) - lu(k,1238) = lu(k,1238) - lu(k,1162) * lu(k,1230) - lu(k,1242) = lu(k,1242) - lu(k,1163) * lu(k,1230) - lu(k,1258) = lu(k,1258) - lu(k,1161) * lu(k,1250) - lu(k,1260) = lu(k,1260) - lu(k,1162) * lu(k,1250) - lu(k,1265) = lu(k,1265) - lu(k,1163) * lu(k,1250) - lu(k,1274) = lu(k,1274) - lu(k,1161) * lu(k,1268) - lu(k,1275) = lu(k,1275) - lu(k,1162) * lu(k,1268) - lu(k,1278) = lu(k,1278) - lu(k,1163) * lu(k,1268) - lu(k,1283) = - lu(k,1161) * lu(k,1280) - lu(k,1285) = lu(k,1285) - lu(k,1162) * lu(k,1280) - lu(k,1287) = lu(k,1287) - lu(k,1163) * lu(k,1280) - lu(k,1337) = lu(k,1337) - lu(k,1161) * lu(k,1324) - lu(k,1339) = lu(k,1339) - lu(k,1162) * lu(k,1324) - lu(k,1345) = lu(k,1345) - lu(k,1163) * lu(k,1324) - lu(k,1359) = - lu(k,1161) * lu(k,1350) - lu(k,1361) = lu(k,1361) - lu(k,1162) * lu(k,1350) - lu(k,1366) = lu(k,1366) - lu(k,1163) * lu(k,1350) - lu(k,1379) = lu(k,1379) - lu(k,1161) * lu(k,1372) - lu(k,1382) = lu(k,1382) - lu(k,1162) * lu(k,1372) - lu(k,1389) = lu(k,1389) - lu(k,1163) * lu(k,1372) - lu(k,1429) = lu(k,1429) - lu(k,1161) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,1162) * lu(k,1416) - lu(k,1439) = lu(k,1439) - lu(k,1163) * lu(k,1416) - lu(k,1450) = lu(k,1450) - lu(k,1161) * lu(k,1449) - lu(k,1452) = lu(k,1452) - lu(k,1162) * lu(k,1449) - lu(k,1458) = - lu(k,1163) * lu(k,1449) - lu(k,1510) = - lu(k,1161) * lu(k,1509) - lu(k,1514) = lu(k,1514) - lu(k,1162) * lu(k,1509) - lu(k,1522) = lu(k,1522) - lu(k,1163) * lu(k,1509) - lu(k,1539) = lu(k,1539) - lu(k,1161) * lu(k,1537) - lu(k,1545) = lu(k,1545) - lu(k,1162) * lu(k,1537) - lu(k,1554) = lu(k,1554) - lu(k,1163) * lu(k,1537) - lu(k,1646) = lu(k,1646) - lu(k,1161) * lu(k,1630) - lu(k,1653) = lu(k,1653) - lu(k,1162) * lu(k,1630) - lu(k,1664) = lu(k,1664) - lu(k,1163) * lu(k,1630) - lu(k,1809) = lu(k,1809) - lu(k,1161) * lu(k,1793) - lu(k,1818) = lu(k,1818) - lu(k,1162) * lu(k,1793) - lu(k,1829) = lu(k,1829) - lu(k,1163) * lu(k,1793) - lu(k,1907) = lu(k,1907) - lu(k,1161) * lu(k,1891) - lu(k,1913) = lu(k,1913) - lu(k,1162) * lu(k,1891) - lu(k,1924) = lu(k,1924) - lu(k,1163) * lu(k,1891) - lu(k,1950) = lu(k,1950) - lu(k,1161) * lu(k,1945) - lu(k,1958) = lu(k,1958) - lu(k,1162) * lu(k,1945) - lu(k,1969) = lu(k,1969) - lu(k,1163) * lu(k,1945) - lu(k,1976) = lu(k,1976) - lu(k,1161) * lu(k,1975) - lu(k,1984) = lu(k,1984) - lu(k,1162) * lu(k,1975) - lu(k,1995) = lu(k,1995) - lu(k,1163) * lu(k,1975) - lu(k,2084) = lu(k,2084) - lu(k,1161) * lu(k,2083) - lu(k,2093) = lu(k,2093) - lu(k,1162) * lu(k,2083) - lu(k,2104) = lu(k,2104) - lu(k,1163) * lu(k,2083) - lu(k,2152) = lu(k,2152) - lu(k,1161) * lu(k,2147) - lu(k,2160) = lu(k,2160) - lu(k,1162) * lu(k,2147) - lu(k,2171) = lu(k,2171) - lu(k,1163) * lu(k,2147) - lu(k,2217) = lu(k,2217) - lu(k,1161) * lu(k,2203) - lu(k,2224) = lu(k,2224) - lu(k,1162) * lu(k,2203) - lu(k,2235) = lu(k,2235) - lu(k,1163) * lu(k,2203) - lu(k,2241) = lu(k,2241) - lu(k,1161) * lu(k,2240) - lu(k,2249) = lu(k,2249) - lu(k,1162) * lu(k,2240) - lu(k,2260) = lu(k,2260) - lu(k,1163) * lu(k,2240) - lu(k,2349) = lu(k,2349) - lu(k,1161) * lu(k,2334) - lu(k,2357) = lu(k,2357) - lu(k,1162) * lu(k,2334) - lu(k,2368) = lu(k,2368) - lu(k,1163) * lu(k,2334) - lu(k,2404) = lu(k,2404) - lu(k,1161) * lu(k,2389) - lu(k,2409) = lu(k,2409) - lu(k,1162) * lu(k,2389) - lu(k,2420) = lu(k,2420) - lu(k,1163) * lu(k,2389) - lu(k,1166) = 1._r8 / lu(k,1166) - lu(k,1167) = lu(k,1167) * lu(k,1166) - lu(k,1168) = lu(k,1168) * lu(k,1166) - lu(k,1169) = lu(k,1169) * lu(k,1166) - lu(k,1170) = lu(k,1170) * lu(k,1166) - lu(k,1181) = lu(k,1181) - lu(k,1167) * lu(k,1177) - lu(k,1182) = lu(k,1182) - lu(k,1168) * lu(k,1177) - lu(k,1185) = lu(k,1185) - lu(k,1169) * lu(k,1177) - lu(k,1187) = lu(k,1187) - lu(k,1170) * lu(k,1177) - lu(k,1199) = lu(k,1199) - lu(k,1167) * lu(k,1194) - lu(k,1201) = lu(k,1201) - lu(k,1168) * lu(k,1194) - lu(k,1203) = lu(k,1203) - lu(k,1169) * lu(k,1194) - lu(k,1205) = lu(k,1205) - lu(k,1170) * lu(k,1194) - lu(k,1236) = lu(k,1236) - lu(k,1167) * lu(k,1231) - lu(k,1238) = lu(k,1238) - lu(k,1168) * lu(k,1231) - lu(k,1241) = lu(k,1241) - lu(k,1169) * lu(k,1231) - lu(k,1242) = lu(k,1242) - lu(k,1170) * lu(k,1231) - lu(k,1258) = lu(k,1258) - lu(k,1167) * lu(k,1251) - lu(k,1260) = lu(k,1260) - lu(k,1168) * lu(k,1251) - lu(k,1263) = lu(k,1263) - lu(k,1169) * lu(k,1251) - lu(k,1265) = lu(k,1265) - lu(k,1170) * lu(k,1251) - lu(k,1304) = lu(k,1304) - lu(k,1167) * lu(k,1292) - lu(k,1306) = lu(k,1306) - lu(k,1168) * lu(k,1292) - lu(k,1309) = lu(k,1309) - lu(k,1169) * lu(k,1292) - lu(k,1312) = lu(k,1312) - lu(k,1170) * lu(k,1292) - lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1325) - lu(k,1339) = lu(k,1339) - lu(k,1168) * lu(k,1325) - lu(k,1342) = lu(k,1342) - lu(k,1169) * lu(k,1325) - lu(k,1345) = lu(k,1345) - lu(k,1170) * lu(k,1325) - lu(k,1359) = lu(k,1359) - lu(k,1167) * lu(k,1351) - lu(k,1361) = lu(k,1361) - lu(k,1168) * lu(k,1351) - lu(k,1364) = lu(k,1364) - lu(k,1169) * lu(k,1351) - lu(k,1366) = lu(k,1366) - lu(k,1170) * lu(k,1351) - lu(k,1429) = lu(k,1429) - lu(k,1167) * lu(k,1417) - lu(k,1432) = lu(k,1432) - lu(k,1168) * lu(k,1417) - lu(k,1435) = lu(k,1435) - lu(k,1169) * lu(k,1417) - lu(k,1439) = lu(k,1439) - lu(k,1170) * lu(k,1417) - lu(k,1539) = lu(k,1539) - lu(k,1167) * lu(k,1538) - lu(k,1545) = lu(k,1545) - lu(k,1168) * lu(k,1538) - lu(k,1548) = lu(k,1548) - lu(k,1169) * lu(k,1538) - lu(k,1554) = lu(k,1554) - lu(k,1170) * lu(k,1538) - lu(k,1646) = lu(k,1646) - lu(k,1167) * lu(k,1631) - lu(k,1653) = lu(k,1653) - lu(k,1168) * lu(k,1631) - lu(k,1656) = lu(k,1656) - lu(k,1169) * lu(k,1631) - lu(k,1664) = lu(k,1664) - lu(k,1170) * lu(k,1631) - lu(k,1809) = lu(k,1809) - lu(k,1167) * lu(k,1794) - lu(k,1818) = lu(k,1818) - lu(k,1168) * lu(k,1794) - lu(k,1821) = lu(k,1821) - lu(k,1169) * lu(k,1794) - lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1794) - lu(k,1907) = lu(k,1907) - lu(k,1167) * lu(k,1892) - lu(k,1913) = lu(k,1913) - lu(k,1168) * lu(k,1892) - lu(k,1916) = lu(k,1916) - lu(k,1169) * lu(k,1892) - lu(k,1924) = lu(k,1924) - lu(k,1170) * lu(k,1892) - lu(k,2152) = lu(k,2152) - lu(k,1167) * lu(k,2148) - lu(k,2160) = lu(k,2160) - lu(k,1168) * lu(k,2148) - lu(k,2163) = lu(k,2163) - lu(k,1169) * lu(k,2148) - lu(k,2171) = lu(k,2171) - lu(k,1170) * lu(k,2148) - lu(k,2217) = lu(k,2217) - lu(k,1167) * lu(k,2204) - lu(k,2224) = lu(k,2224) - lu(k,1168) * lu(k,2204) - lu(k,2227) = lu(k,2227) - lu(k,1169) * lu(k,2204) - lu(k,2235) = lu(k,2235) - lu(k,1170) * lu(k,2204) - lu(k,2349) = lu(k,2349) - lu(k,1167) * lu(k,2335) - lu(k,2357) = lu(k,2357) - lu(k,1168) * lu(k,2335) - lu(k,2360) = lu(k,2360) - lu(k,1169) * lu(k,2335) - lu(k,2368) = lu(k,2368) - lu(k,1170) * lu(k,2335) - lu(k,2404) = lu(k,2404) - lu(k,1167) * lu(k,2390) - lu(k,2409) = lu(k,2409) - lu(k,1168) * lu(k,2390) - lu(k,2412) = lu(k,2412) - lu(k,1169) * lu(k,2390) - lu(k,2420) = lu(k,2420) - lu(k,1170) * lu(k,2390) - lu(k,1178) = 1._r8 / lu(k,1178) - lu(k,1179) = lu(k,1179) * lu(k,1178) - lu(k,1180) = lu(k,1180) * lu(k,1178) - lu(k,1181) = lu(k,1181) * lu(k,1178) - lu(k,1182) = lu(k,1182) * lu(k,1178) - lu(k,1183) = lu(k,1183) * lu(k,1178) - lu(k,1184) = lu(k,1184) * lu(k,1178) - lu(k,1185) = lu(k,1185) * lu(k,1178) - lu(k,1186) = lu(k,1186) * lu(k,1178) - lu(k,1187) = lu(k,1187) * lu(k,1178) - lu(k,1188) = lu(k,1188) * lu(k,1178) - lu(k,1189) = lu(k,1189) * lu(k,1178) - lu(k,1635) = lu(k,1635) - lu(k,1179) * lu(k,1632) - lu(k,1645) = lu(k,1645) - lu(k,1180) * lu(k,1632) - lu(k,1646) = lu(k,1646) - lu(k,1181) * lu(k,1632) - lu(k,1653) = lu(k,1653) - lu(k,1182) * lu(k,1632) - lu(k,1654) = lu(k,1654) - lu(k,1183) * lu(k,1632) - lu(k,1655) = lu(k,1655) - lu(k,1184) * lu(k,1632) - lu(k,1656) = lu(k,1656) - lu(k,1185) * lu(k,1632) - lu(k,1658) = lu(k,1658) - lu(k,1186) * lu(k,1632) - lu(k,1664) = lu(k,1664) - lu(k,1187) * lu(k,1632) - lu(k,1665) = lu(k,1665) - lu(k,1188) * lu(k,1632) - lu(k,1666) = lu(k,1666) - lu(k,1189) * lu(k,1632) - lu(k,1798) = lu(k,1798) - lu(k,1179) * lu(k,1795) - lu(k,1808) = lu(k,1808) - lu(k,1180) * lu(k,1795) - lu(k,1809) = lu(k,1809) - lu(k,1181) * lu(k,1795) - lu(k,1818) = lu(k,1818) - lu(k,1182) * lu(k,1795) - lu(k,1819) = lu(k,1819) - lu(k,1183) * lu(k,1795) - lu(k,1820) = lu(k,1820) - lu(k,1184) * lu(k,1795) - lu(k,1821) = lu(k,1821) - lu(k,1185) * lu(k,1795) - lu(k,1823) = lu(k,1823) - lu(k,1186) * lu(k,1795) - lu(k,1829) = lu(k,1829) - lu(k,1187) * lu(k,1795) - lu(k,1830) = lu(k,1830) - lu(k,1188) * lu(k,1795) - lu(k,1831) = lu(k,1831) - lu(k,1189) * lu(k,1795) - lu(k,1896) = lu(k,1896) - lu(k,1179) * lu(k,1893) - lu(k,1906) = lu(k,1906) - lu(k,1180) * lu(k,1893) - lu(k,1907) = lu(k,1907) - lu(k,1181) * lu(k,1893) - lu(k,1913) = lu(k,1913) - lu(k,1182) * lu(k,1893) - lu(k,1914) = lu(k,1914) - lu(k,1183) * lu(k,1893) - lu(k,1915) = lu(k,1915) - lu(k,1184) * lu(k,1893) - lu(k,1916) = lu(k,1916) - lu(k,1185) * lu(k,1893) - lu(k,1918) = lu(k,1918) - lu(k,1186) * lu(k,1893) - lu(k,1924) = lu(k,1924) - lu(k,1187) * lu(k,1893) - lu(k,1925) = lu(k,1925) - lu(k,1188) * lu(k,1893) - lu(k,1926) = lu(k,1926) - lu(k,1189) * lu(k,1893) - lu(k,2207) = lu(k,2207) - lu(k,1179) * lu(k,2205) - lu(k,2216) = lu(k,2216) - lu(k,1180) * lu(k,2205) - lu(k,2217) = lu(k,2217) - lu(k,1181) * lu(k,2205) - lu(k,2224) = lu(k,2224) - lu(k,1182) * lu(k,2205) - lu(k,2225) = lu(k,2225) - lu(k,1183) * lu(k,2205) - lu(k,2226) = lu(k,2226) - lu(k,1184) * lu(k,2205) - lu(k,2227) = lu(k,2227) - lu(k,1185) * lu(k,2205) - lu(k,2229) = lu(k,2229) - lu(k,1186) * lu(k,2205) - lu(k,2235) = lu(k,2235) - lu(k,1187) * lu(k,2205) - lu(k,2236) = lu(k,2236) - lu(k,1188) * lu(k,2205) - lu(k,2237) = lu(k,2237) - lu(k,1189) * lu(k,2205) - lu(k,2338) = lu(k,2338) - lu(k,1179) * lu(k,2336) - lu(k,2348) = lu(k,2348) - lu(k,1180) * lu(k,2336) - lu(k,2349) = lu(k,2349) - lu(k,1181) * lu(k,2336) - lu(k,2357) = lu(k,2357) - lu(k,1182) * lu(k,2336) - lu(k,2358) = lu(k,2358) - lu(k,1183) * lu(k,2336) - lu(k,2359) = lu(k,2359) - lu(k,1184) * lu(k,2336) - lu(k,2360) = lu(k,2360) - lu(k,1185) * lu(k,2336) - lu(k,2362) = lu(k,2362) - lu(k,1186) * lu(k,2336) - lu(k,2368) = lu(k,2368) - lu(k,1187) * lu(k,2336) - lu(k,2369) = lu(k,2369) - lu(k,1188) * lu(k,2336) - lu(k,2370) = lu(k,2370) - lu(k,1189) * lu(k,2336) - lu(k,2393) = lu(k,2393) - lu(k,1179) * lu(k,2391) - lu(k,2403) = lu(k,2403) - lu(k,1180) * lu(k,2391) - lu(k,2404) = lu(k,2404) - lu(k,1181) * lu(k,2391) - lu(k,2409) = lu(k,2409) - lu(k,1182) * lu(k,2391) - lu(k,2410) = lu(k,2410) - lu(k,1183) * lu(k,2391) - lu(k,2411) = lu(k,2411) - lu(k,1184) * lu(k,2391) - lu(k,2412) = lu(k,2412) - lu(k,1185) * lu(k,2391) - lu(k,2414) = lu(k,2414) - lu(k,1186) * lu(k,2391) - lu(k,2420) = lu(k,2420) - lu(k,1187) * lu(k,2391) - lu(k,2421) = lu(k,2421) - lu(k,1188) * lu(k,2391) - lu(k,2422) = lu(k,2422) - lu(k,1189) * lu(k,2391) - lu(k,1195) = 1._r8 / lu(k,1195) - lu(k,1196) = lu(k,1196) * lu(k,1195) - lu(k,1197) = lu(k,1197) * lu(k,1195) - lu(k,1198) = lu(k,1198) * lu(k,1195) - lu(k,1199) = lu(k,1199) * lu(k,1195) - lu(k,1200) = lu(k,1200) * lu(k,1195) - lu(k,1201) = lu(k,1201) * lu(k,1195) - lu(k,1202) = lu(k,1202) * lu(k,1195) - lu(k,1203) = lu(k,1203) * lu(k,1195) - lu(k,1204) = lu(k,1204) * lu(k,1195) - lu(k,1205) = lu(k,1205) * lu(k,1195) - lu(k,1206) = lu(k,1206) * lu(k,1195) - lu(k,1207) = lu(k,1207) * lu(k,1195) - lu(k,1294) = lu(k,1294) - lu(k,1196) * lu(k,1293) - lu(k,1295) = - lu(k,1197) * lu(k,1293) - lu(k,1303) = lu(k,1303) - lu(k,1198) * lu(k,1293) - lu(k,1304) = lu(k,1304) - lu(k,1199) * lu(k,1293) - lu(k,1305) = lu(k,1305) - lu(k,1200) * lu(k,1293) - lu(k,1306) = lu(k,1306) - lu(k,1201) * lu(k,1293) - lu(k,1308) = lu(k,1308) - lu(k,1202) * lu(k,1293) - lu(k,1309) = lu(k,1309) - lu(k,1203) * lu(k,1293) - lu(k,1310) = lu(k,1310) - lu(k,1204) * lu(k,1293) - lu(k,1312) = lu(k,1312) - lu(k,1205) * lu(k,1293) - lu(k,1313) = lu(k,1313) - lu(k,1206) * lu(k,1293) - lu(k,1314) = - lu(k,1207) * lu(k,1293) - lu(k,1327) = lu(k,1327) - lu(k,1196) * lu(k,1326) - lu(k,1328) = - lu(k,1197) * lu(k,1326) - lu(k,1336) = lu(k,1336) - lu(k,1198) * lu(k,1326) - lu(k,1337) = lu(k,1337) - lu(k,1199) * lu(k,1326) - lu(k,1338) = lu(k,1338) - lu(k,1200) * lu(k,1326) - lu(k,1339) = lu(k,1339) - lu(k,1201) * lu(k,1326) - lu(k,1341) = lu(k,1341) - lu(k,1202) * lu(k,1326) - lu(k,1342) = lu(k,1342) - lu(k,1203) * lu(k,1326) - lu(k,1343) = lu(k,1343) - lu(k,1204) * lu(k,1326) - lu(k,1345) = lu(k,1345) - lu(k,1205) * lu(k,1326) - lu(k,1346) = lu(k,1346) - lu(k,1206) * lu(k,1326) - lu(k,1347) = - lu(k,1207) * lu(k,1326) - lu(k,1353) = lu(k,1353) - lu(k,1196) * lu(k,1352) - lu(k,1354) = - lu(k,1197) * lu(k,1352) - lu(k,1358) = lu(k,1358) - lu(k,1198) * lu(k,1352) - lu(k,1359) = lu(k,1359) - lu(k,1199) * lu(k,1352) - lu(k,1360) = lu(k,1360) - lu(k,1200) * lu(k,1352) - lu(k,1361) = lu(k,1361) - lu(k,1201) * lu(k,1352) - lu(k,1363) = lu(k,1363) - lu(k,1202) * lu(k,1352) - lu(k,1364) = lu(k,1364) - lu(k,1203) * lu(k,1352) - lu(k,1365) = - lu(k,1204) * lu(k,1352) - lu(k,1366) = lu(k,1366) - lu(k,1205) * lu(k,1352) - lu(k,1367) = lu(k,1367) - lu(k,1206) * lu(k,1352) - lu(k,1368) = - lu(k,1207) * lu(k,1352) - lu(k,1634) = lu(k,1634) - lu(k,1196) * lu(k,1633) - lu(k,1635) = lu(k,1635) - lu(k,1197) * lu(k,1633) - lu(k,1645) = lu(k,1645) - lu(k,1198) * lu(k,1633) - lu(k,1646) = lu(k,1646) - lu(k,1199) * lu(k,1633) - lu(k,1652) = lu(k,1652) - lu(k,1200) * lu(k,1633) - lu(k,1653) = lu(k,1653) - lu(k,1201) * lu(k,1633) - lu(k,1655) = lu(k,1655) - lu(k,1202) * lu(k,1633) - lu(k,1656) = lu(k,1656) - lu(k,1203) * lu(k,1633) - lu(k,1658) = lu(k,1658) - lu(k,1204) * lu(k,1633) - lu(k,1664) = lu(k,1664) - lu(k,1205) * lu(k,1633) - lu(k,1665) = lu(k,1665) - lu(k,1206) * lu(k,1633) - lu(k,1666) = lu(k,1666) - lu(k,1207) * lu(k,1633) - lu(k,1797) = lu(k,1797) - lu(k,1196) * lu(k,1796) - lu(k,1798) = lu(k,1798) - lu(k,1197) * lu(k,1796) - lu(k,1808) = lu(k,1808) - lu(k,1198) * lu(k,1796) - lu(k,1809) = lu(k,1809) - lu(k,1199) * lu(k,1796) - lu(k,1817) = lu(k,1817) - lu(k,1200) * lu(k,1796) - lu(k,1818) = lu(k,1818) - lu(k,1201) * lu(k,1796) - lu(k,1820) = lu(k,1820) - lu(k,1202) * lu(k,1796) - lu(k,1821) = lu(k,1821) - lu(k,1203) * lu(k,1796) - lu(k,1823) = lu(k,1823) - lu(k,1204) * lu(k,1796) - lu(k,1829) = lu(k,1829) - lu(k,1205) * lu(k,1796) - lu(k,1830) = lu(k,1830) - lu(k,1206) * lu(k,1796) - lu(k,1831) = lu(k,1831) - lu(k,1207) * lu(k,1796) - lu(k,1895) = lu(k,1895) - lu(k,1196) * lu(k,1894) - lu(k,1896) = lu(k,1896) - lu(k,1197) * lu(k,1894) - lu(k,1906) = lu(k,1906) - lu(k,1198) * lu(k,1894) - lu(k,1907) = lu(k,1907) - lu(k,1199) * lu(k,1894) - lu(k,1912) = lu(k,1912) - lu(k,1200) * lu(k,1894) - lu(k,1913) = lu(k,1913) - lu(k,1201) * lu(k,1894) - lu(k,1915) = lu(k,1915) - lu(k,1202) * lu(k,1894) - lu(k,1916) = lu(k,1916) - lu(k,1203) * lu(k,1894) - lu(k,1918) = lu(k,1918) - lu(k,1204) * lu(k,1894) - lu(k,1924) = lu(k,1924) - lu(k,1205) * lu(k,1894) - lu(k,1925) = lu(k,1925) - lu(k,1206) * lu(k,1894) - lu(k,1926) = lu(k,1926) - lu(k,1207) * lu(k,1894) - lu(k,1208) = 1._r8 / lu(k,1208) - lu(k,1209) = lu(k,1209) * lu(k,1208) - lu(k,1210) = lu(k,1210) * lu(k,1208) - lu(k,1211) = lu(k,1211) * lu(k,1208) - lu(k,1212) = lu(k,1212) * lu(k,1208) - lu(k,1213) = lu(k,1213) * lu(k,1208) - lu(k,1218) = lu(k,1218) - lu(k,1209) * lu(k,1216) - lu(k,1219) = lu(k,1219) - lu(k,1210) * lu(k,1216) - lu(k,1220) = lu(k,1220) - lu(k,1211) * lu(k,1216) - lu(k,1223) = lu(k,1223) - lu(k,1212) * lu(k,1216) - lu(k,1224) = lu(k,1224) - lu(k,1213) * lu(k,1216) - lu(k,1234) = lu(k,1234) - lu(k,1209) * lu(k,1232) - lu(k,1235) = lu(k,1235) - lu(k,1210) * lu(k,1232) - lu(k,1238) = lu(k,1238) - lu(k,1211) * lu(k,1232) - lu(k,1241) = lu(k,1241) - lu(k,1212) * lu(k,1232) - lu(k,1242) = lu(k,1242) - lu(k,1213) * lu(k,1232) - lu(k,1298) = - lu(k,1209) * lu(k,1294) - lu(k,1303) = lu(k,1303) - lu(k,1210) * lu(k,1294) - lu(k,1306) = lu(k,1306) - lu(k,1211) * lu(k,1294) - lu(k,1309) = lu(k,1309) - lu(k,1212) * lu(k,1294) - lu(k,1312) = lu(k,1312) - lu(k,1213) * lu(k,1294) - lu(k,1331) = lu(k,1331) - lu(k,1209) * lu(k,1327) - lu(k,1336) = lu(k,1336) - lu(k,1210) * lu(k,1327) - lu(k,1339) = lu(k,1339) - lu(k,1211) * lu(k,1327) - lu(k,1342) = lu(k,1342) - lu(k,1212) * lu(k,1327) - lu(k,1345) = lu(k,1345) - lu(k,1213) * lu(k,1327) - lu(k,1355) = lu(k,1355) - lu(k,1209) * lu(k,1353) - lu(k,1358) = lu(k,1358) - lu(k,1210) * lu(k,1353) - lu(k,1361) = lu(k,1361) - lu(k,1211) * lu(k,1353) - lu(k,1364) = lu(k,1364) - lu(k,1212) * lu(k,1353) - lu(k,1366) = lu(k,1366) - lu(k,1213) * lu(k,1353) - lu(k,1374) = lu(k,1374) - lu(k,1209) * lu(k,1373) - lu(k,1378) = lu(k,1378) - lu(k,1210) * lu(k,1373) - lu(k,1382) = lu(k,1382) - lu(k,1211) * lu(k,1373) - lu(k,1385) = lu(k,1385) - lu(k,1212) * lu(k,1373) - lu(k,1389) = lu(k,1389) - lu(k,1213) * lu(k,1373) - lu(k,1396) = - lu(k,1209) * lu(k,1395) - lu(k,1398) = lu(k,1398) - lu(k,1210) * lu(k,1395) - lu(k,1401) = lu(k,1401) - lu(k,1211) * lu(k,1395) - lu(k,1404) = lu(k,1404) - lu(k,1212) * lu(k,1395) - lu(k,1407) = lu(k,1407) - lu(k,1213) * lu(k,1395) - lu(k,1422) = lu(k,1422) - lu(k,1209) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,1210) * lu(k,1418) - lu(k,1432) = lu(k,1432) - lu(k,1211) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,1212) * lu(k,1418) - lu(k,1439) = lu(k,1439) - lu(k,1213) * lu(k,1418) - lu(k,1639) = lu(k,1639) - lu(k,1209) * lu(k,1634) - lu(k,1645) = lu(k,1645) - lu(k,1210) * lu(k,1634) - lu(k,1653) = lu(k,1653) - lu(k,1211) * lu(k,1634) - lu(k,1656) = lu(k,1656) - lu(k,1212) * lu(k,1634) - lu(k,1664) = lu(k,1664) - lu(k,1213) * lu(k,1634) - lu(k,1802) = lu(k,1802) - lu(k,1209) * lu(k,1797) - lu(k,1808) = lu(k,1808) - lu(k,1210) * lu(k,1797) - lu(k,1818) = lu(k,1818) - lu(k,1211) * lu(k,1797) - lu(k,1821) = lu(k,1821) - lu(k,1212) * lu(k,1797) - lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1797) - lu(k,1900) = lu(k,1900) - lu(k,1209) * lu(k,1895) - lu(k,1906) = lu(k,1906) - lu(k,1210) * lu(k,1895) - lu(k,1913) = lu(k,1913) - lu(k,1211) * lu(k,1895) - lu(k,1916) = lu(k,1916) - lu(k,1212) * lu(k,1895) - lu(k,1924) = lu(k,1924) - lu(k,1213) * lu(k,1895) - lu(k,1947) = lu(k,1947) - lu(k,1209) * lu(k,1946) - lu(k,1949) = lu(k,1949) - lu(k,1210) * lu(k,1946) - lu(k,1958) = lu(k,1958) - lu(k,1211) * lu(k,1946) - lu(k,1961) = lu(k,1961) - lu(k,1212) * lu(k,1946) - lu(k,1969) = lu(k,1969) - lu(k,1213) * lu(k,1946) - lu(k,2210) = lu(k,2210) - lu(k,1209) * lu(k,2206) - lu(k,2216) = lu(k,2216) - lu(k,1210) * lu(k,2206) - lu(k,2224) = lu(k,2224) - lu(k,1211) * lu(k,2206) - lu(k,2227) = lu(k,2227) - lu(k,1212) * lu(k,2206) - lu(k,2235) = lu(k,2235) - lu(k,1213) * lu(k,2206) - lu(k,2342) = lu(k,2342) - lu(k,1209) * lu(k,2337) - lu(k,2348) = lu(k,2348) - lu(k,1210) * lu(k,2337) - lu(k,2357) = lu(k,2357) - lu(k,1211) * lu(k,2337) - lu(k,2360) = lu(k,2360) - lu(k,1212) * lu(k,2337) - lu(k,2368) = lu(k,2368) - lu(k,1213) * lu(k,2337) - lu(k,2397) = lu(k,2397) - lu(k,1209) * lu(k,2392) - lu(k,2403) = lu(k,2403) - lu(k,1210) * lu(k,2392) - lu(k,2409) = lu(k,2409) - lu(k,1211) * lu(k,2392) - lu(k,2412) = lu(k,2412) - lu(k,1212) * lu(k,2392) - lu(k,2420) = lu(k,2420) - lu(k,1213) * lu(k,2392) + lu(k,1132) = 1._r8 / lu(k,1132) + lu(k,1133) = lu(k,1133) * lu(k,1132) + lu(k,1134) = lu(k,1134) * lu(k,1132) + lu(k,1135) = lu(k,1135) * lu(k,1132) + lu(k,1136) = lu(k,1136) * lu(k,1132) + lu(k,1137) = lu(k,1137) * lu(k,1132) + lu(k,1138) = lu(k,1138) * lu(k,1132) + lu(k,1139) = lu(k,1139) * lu(k,1132) + lu(k,1140) = lu(k,1140) * lu(k,1132) + lu(k,1141) = lu(k,1141) * lu(k,1132) + lu(k,1142) = lu(k,1142) * lu(k,1132) + lu(k,1143) = lu(k,1143) * lu(k,1132) + lu(k,1144) = lu(k,1144) * lu(k,1132) + lu(k,1145) = lu(k,1145) * lu(k,1132) + lu(k,1146) = lu(k,1146) * lu(k,1132) + lu(k,1147) = lu(k,1147) * lu(k,1132) + lu(k,1148) = lu(k,1148) * lu(k,1132) + lu(k,1149) = lu(k,1149) * lu(k,1132) + lu(k,1370) = lu(k,1370) - lu(k,1133) * lu(k,1369) + lu(k,1371) = lu(k,1371) - lu(k,1134) * lu(k,1369) + lu(k,1372) = - lu(k,1135) * lu(k,1369) + lu(k,1373) = lu(k,1373) - lu(k,1136) * lu(k,1369) + lu(k,1377) = lu(k,1377) - lu(k,1137) * lu(k,1369) + lu(k,1378) = lu(k,1378) - lu(k,1138) * lu(k,1369) + lu(k,1379) = - lu(k,1139) * lu(k,1369) + lu(k,1380) = - lu(k,1140) * lu(k,1369) + lu(k,1381) = lu(k,1381) - lu(k,1141) * lu(k,1369) + lu(k,1382) = - lu(k,1142) * lu(k,1369) + lu(k,1383) = lu(k,1383) - lu(k,1143) * lu(k,1369) + lu(k,1384) = - lu(k,1144) * lu(k,1369) + lu(k,1385) = lu(k,1385) - lu(k,1145) * lu(k,1369) + lu(k,1386) = - lu(k,1146) * lu(k,1369) + lu(k,1387) = lu(k,1387) - lu(k,1147) * lu(k,1369) + lu(k,1389) = lu(k,1389) - lu(k,1148) * lu(k,1369) + lu(k,1390) = lu(k,1390) - lu(k,1149) * lu(k,1369) + lu(k,1772) = lu(k,1772) - lu(k,1133) * lu(k,1771) + lu(k,1773) = lu(k,1773) - lu(k,1134) * lu(k,1771) + lu(k,1777) = lu(k,1777) - lu(k,1135) * lu(k,1771) + lu(k,1782) = lu(k,1782) - lu(k,1136) * lu(k,1771) + lu(k,1788) = lu(k,1788) - lu(k,1137) * lu(k,1771) + lu(k,1789) = lu(k,1789) - lu(k,1138) * lu(k,1771) + lu(k,1794) = lu(k,1794) - lu(k,1139) * lu(k,1771) + lu(k,1795) = lu(k,1795) - lu(k,1140) * lu(k,1771) + lu(k,1798) = lu(k,1798) - lu(k,1141) * lu(k,1771) + lu(k,1800) = lu(k,1800) - lu(k,1142) * lu(k,1771) + lu(k,1801) = lu(k,1801) - lu(k,1143) * lu(k,1771) + lu(k,1802) = lu(k,1802) - lu(k,1144) * lu(k,1771) + lu(k,1804) = lu(k,1804) - lu(k,1145) * lu(k,1771) + lu(k,1807) = lu(k,1807) - lu(k,1146) * lu(k,1771) + lu(k,1808) = lu(k,1808) - lu(k,1147) * lu(k,1771) + lu(k,1810) = lu(k,1810) - lu(k,1148) * lu(k,1771) + lu(k,1811) = lu(k,1811) - lu(k,1149) * lu(k,1771) + lu(k,2096) = lu(k,2096) - lu(k,1133) * lu(k,2095) + lu(k,2097) = lu(k,2097) - lu(k,1134) * lu(k,2095) + lu(k,2100) = - lu(k,1135) * lu(k,2095) + lu(k,2104) = lu(k,2104) - lu(k,1136) * lu(k,2095) + lu(k,2110) = lu(k,2110) - lu(k,1137) * lu(k,2095) + lu(k,2111) = lu(k,2111) - lu(k,1138) * lu(k,2095) + lu(k,2114) = lu(k,2114) - lu(k,1139) * lu(k,2095) + lu(k,2115) = lu(k,2115) - lu(k,1140) * lu(k,2095) + lu(k,2118) = lu(k,2118) - lu(k,1141) * lu(k,2095) + lu(k,2120) = lu(k,2120) - lu(k,1142) * lu(k,2095) + lu(k,2121) = lu(k,2121) - lu(k,1143) * lu(k,2095) + lu(k,2122) = lu(k,2122) - lu(k,1144) * lu(k,2095) + lu(k,2124) = lu(k,2124) - lu(k,1145) * lu(k,2095) + lu(k,2127) = lu(k,2127) - lu(k,1146) * lu(k,2095) + lu(k,2128) = lu(k,2128) - lu(k,1147) * lu(k,2095) + lu(k,2130) = lu(k,2130) - lu(k,1148) * lu(k,2095) + lu(k,2131) = lu(k,2131) - lu(k,1149) * lu(k,2095) + lu(k,2202) = lu(k,2202) - lu(k,1133) * lu(k,2201) + lu(k,2203) = lu(k,2203) - lu(k,1134) * lu(k,2201) + lu(k,2207) = lu(k,2207) - lu(k,1135) * lu(k,2201) + lu(k,2212) = lu(k,2212) - lu(k,1136) * lu(k,2201) + lu(k,2218) = lu(k,2218) - lu(k,1137) * lu(k,2201) + lu(k,2219) = lu(k,2219) - lu(k,1138) * lu(k,2201) + lu(k,2222) = lu(k,2222) - lu(k,1139) * lu(k,2201) + lu(k,2223) = - lu(k,1140) * lu(k,2201) + lu(k,2226) = lu(k,2226) - lu(k,1141) * lu(k,2201) + lu(k,2228) = lu(k,2228) - lu(k,1142) * lu(k,2201) + lu(k,2229) = lu(k,2229) - lu(k,1143) * lu(k,2201) + lu(k,2230) = lu(k,2230) - lu(k,1144) * lu(k,2201) + lu(k,2232) = lu(k,2232) - lu(k,1145) * lu(k,2201) + lu(k,2235) = lu(k,2235) - lu(k,1146) * lu(k,2201) + lu(k,2236) = lu(k,2236) - lu(k,1147) * lu(k,2201) + lu(k,2238) = lu(k,2238) - lu(k,1148) * lu(k,2201) + lu(k,2239) = lu(k,2239) - lu(k,1149) * lu(k,2201) + lu(k,1150) = 1._r8 / lu(k,1150) + lu(k,1151) = lu(k,1151) * lu(k,1150) + lu(k,1152) = lu(k,1152) * lu(k,1150) + lu(k,1153) = lu(k,1153) * lu(k,1150) + lu(k,1154) = lu(k,1154) * lu(k,1150) + lu(k,1155) = lu(k,1155) * lu(k,1150) + lu(k,1156) = lu(k,1156) * lu(k,1150) + lu(k,1157) = lu(k,1157) * lu(k,1150) + lu(k,1158) = lu(k,1158) * lu(k,1150) + lu(k,1192) = lu(k,1192) - lu(k,1151) * lu(k,1191) + lu(k,1197) = lu(k,1197) - lu(k,1152) * lu(k,1191) + lu(k,1199) = lu(k,1199) - lu(k,1153) * lu(k,1191) + lu(k,1202) = - lu(k,1154) * lu(k,1191) + lu(k,1203) = lu(k,1203) - lu(k,1155) * lu(k,1191) + lu(k,1204) = lu(k,1204) - lu(k,1156) * lu(k,1191) + lu(k,1205) = lu(k,1205) - lu(k,1157) * lu(k,1191) + lu(k,1206) = lu(k,1206) - lu(k,1158) * lu(k,1191) + lu(k,1371) = lu(k,1371) - lu(k,1151) * lu(k,1370) + lu(k,1377) = lu(k,1377) - lu(k,1152) * lu(k,1370) + lu(k,1381) = lu(k,1381) - lu(k,1153) * lu(k,1370) + lu(k,1386) = lu(k,1386) - lu(k,1154) * lu(k,1370) + lu(k,1387) = lu(k,1387) - lu(k,1155) * lu(k,1370) + lu(k,1388) = - lu(k,1156) * lu(k,1370) + lu(k,1389) = lu(k,1389) - lu(k,1157) * lu(k,1370) + lu(k,1390) = lu(k,1390) - lu(k,1158) * lu(k,1370) + lu(k,1773) = lu(k,1773) - lu(k,1151) * lu(k,1772) + lu(k,1788) = lu(k,1788) - lu(k,1152) * lu(k,1772) + lu(k,1798) = lu(k,1798) - lu(k,1153) * lu(k,1772) + lu(k,1807) = lu(k,1807) - lu(k,1154) * lu(k,1772) + lu(k,1808) = lu(k,1808) - lu(k,1155) * lu(k,1772) + lu(k,1809) = lu(k,1809) - lu(k,1156) * lu(k,1772) + lu(k,1810) = lu(k,1810) - lu(k,1157) * lu(k,1772) + lu(k,1811) = lu(k,1811) - lu(k,1158) * lu(k,1772) + lu(k,1831) = lu(k,1831) - lu(k,1151) * lu(k,1830) + lu(k,1835) = lu(k,1835) - lu(k,1152) * lu(k,1830) + lu(k,1844) = lu(k,1844) - lu(k,1153) * lu(k,1830) + lu(k,1853) = lu(k,1853) - lu(k,1154) * lu(k,1830) + lu(k,1854) = lu(k,1854) - lu(k,1155) * lu(k,1830) + lu(k,1855) = lu(k,1855) - lu(k,1156) * lu(k,1830) + lu(k,1856) = lu(k,1856) - lu(k,1157) * lu(k,1830) + lu(k,1857) = lu(k,1857) - lu(k,1158) * lu(k,1830) + lu(k,1989) = lu(k,1989) - lu(k,1151) * lu(k,1988) + lu(k,2004) = lu(k,2004) - lu(k,1152) * lu(k,1988) + lu(k,2011) = lu(k,2011) - lu(k,1153) * lu(k,1988) + lu(k,2020) = lu(k,2020) - lu(k,1154) * lu(k,1988) + lu(k,2021) = lu(k,2021) - lu(k,1155) * lu(k,1988) + lu(k,2022) = lu(k,2022) - lu(k,1156) * lu(k,1988) + lu(k,2023) = lu(k,2023) - lu(k,1157) * lu(k,1988) + lu(k,2024) = lu(k,2024) - lu(k,1158) * lu(k,1988) + lu(k,2097) = lu(k,2097) - lu(k,1151) * lu(k,2096) + lu(k,2110) = lu(k,2110) - lu(k,1152) * lu(k,2096) + lu(k,2118) = lu(k,2118) - lu(k,1153) * lu(k,2096) + lu(k,2127) = lu(k,2127) - lu(k,1154) * lu(k,2096) + lu(k,2128) = lu(k,2128) - lu(k,1155) * lu(k,2096) + lu(k,2129) = lu(k,2129) - lu(k,1156) * lu(k,2096) + lu(k,2130) = lu(k,2130) - lu(k,1157) * lu(k,2096) + lu(k,2131) = lu(k,2131) - lu(k,1158) * lu(k,2096) + lu(k,2203) = lu(k,2203) - lu(k,1151) * lu(k,2202) + lu(k,2218) = lu(k,2218) - lu(k,1152) * lu(k,2202) + lu(k,2226) = lu(k,2226) - lu(k,1153) * lu(k,2202) + lu(k,2235) = lu(k,2235) - lu(k,1154) * lu(k,2202) + lu(k,2236) = lu(k,2236) - lu(k,1155) * lu(k,2202) + lu(k,2237) = lu(k,2237) - lu(k,1156) * lu(k,2202) + lu(k,2238) = lu(k,2238) - lu(k,1157) * lu(k,2202) + lu(k,2239) = lu(k,2239) - lu(k,1158) * lu(k,2202) + lu(k,2311) = lu(k,2311) - lu(k,1151) * lu(k,2310) + lu(k,2325) = lu(k,2325) - lu(k,1152) * lu(k,2310) + lu(k,2334) = lu(k,2334) - lu(k,1153) * lu(k,2310) + lu(k,2343) = lu(k,2343) - lu(k,1154) * lu(k,2310) + lu(k,2344) = lu(k,2344) - lu(k,1155) * lu(k,2310) + lu(k,2345) = lu(k,2345) - lu(k,1156) * lu(k,2310) + lu(k,2346) = lu(k,2346) - lu(k,1157) * lu(k,2310) + lu(k,2347) = lu(k,2347) - lu(k,1158) * lu(k,2310) + lu(k,2389) = lu(k,2389) - lu(k,1151) * lu(k,2388) + lu(k,2403) = lu(k,2403) - lu(k,1152) * lu(k,2388) + lu(k,2409) = lu(k,2409) - lu(k,1153) * lu(k,2388) + lu(k,2418) = lu(k,2418) - lu(k,1154) * lu(k,2388) + lu(k,2419) = lu(k,2419) - lu(k,1155) * lu(k,2388) + lu(k,2420) = lu(k,2420) - lu(k,1156) * lu(k,2388) + lu(k,2421) = lu(k,2421) - lu(k,1157) * lu(k,2388) + lu(k,2422) = lu(k,2422) - lu(k,1158) * lu(k,2388) + lu(k,1159) = 1._r8 / lu(k,1159) + lu(k,1160) = lu(k,1160) * lu(k,1159) + lu(k,1161) = lu(k,1161) * lu(k,1159) + lu(k,1162) = lu(k,1162) * lu(k,1159) + lu(k,1166) = lu(k,1166) - lu(k,1160) * lu(k,1164) + lu(k,1167) = lu(k,1167) - lu(k,1161) * lu(k,1164) + lu(k,1169) = lu(k,1169) - lu(k,1162) * lu(k,1164) + lu(k,1180) = lu(k,1180) - lu(k,1160) * lu(k,1175) + lu(k,1181) = lu(k,1181) - lu(k,1161) * lu(k,1175) + lu(k,1185) = lu(k,1185) - lu(k,1162) * lu(k,1175) + lu(k,1198) = - lu(k,1160) * lu(k,1192) + lu(k,1199) = lu(k,1199) - lu(k,1161) * lu(k,1192) + lu(k,1203) = lu(k,1203) - lu(k,1162) * lu(k,1192) + lu(k,1235) = lu(k,1235) - lu(k,1160) * lu(k,1229) + lu(k,1236) = lu(k,1236) - lu(k,1161) * lu(k,1229) + lu(k,1241) = lu(k,1241) - lu(k,1162) * lu(k,1229) + lu(k,1257) = lu(k,1257) - lu(k,1160) * lu(k,1249) + lu(k,1258) = lu(k,1258) - lu(k,1161) * lu(k,1249) + lu(k,1263) = lu(k,1263) - lu(k,1162) * lu(k,1249) + lu(k,1273) = lu(k,1273) - lu(k,1160) * lu(k,1267) + lu(k,1274) = lu(k,1274) - lu(k,1161) * lu(k,1267) + lu(k,1277) = lu(k,1277) - lu(k,1162) * lu(k,1267) + lu(k,1282) = - lu(k,1160) * lu(k,1279) + lu(k,1283) = lu(k,1283) - lu(k,1161) * lu(k,1279) + lu(k,1285) = lu(k,1285) - lu(k,1162) * lu(k,1279) + lu(k,1336) = lu(k,1336) - lu(k,1160) * lu(k,1323) + lu(k,1337) = lu(k,1337) - lu(k,1161) * lu(k,1323) + lu(k,1343) = lu(k,1343) - lu(k,1162) * lu(k,1323) + lu(k,1358) = - lu(k,1160) * lu(k,1349) + lu(k,1359) = lu(k,1359) - lu(k,1161) * lu(k,1349) + lu(k,1364) = lu(k,1364) - lu(k,1162) * lu(k,1349) + lu(k,1378) = lu(k,1378) - lu(k,1160) * lu(k,1371) + lu(k,1381) = lu(k,1381) - lu(k,1161) * lu(k,1371) + lu(k,1387) = lu(k,1387) - lu(k,1162) * lu(k,1371) + lu(k,1428) = lu(k,1428) - lu(k,1160) * lu(k,1415) + lu(k,1431) = lu(k,1431) - lu(k,1161) * lu(k,1415) + lu(k,1437) = lu(k,1437) - lu(k,1162) * lu(k,1415) + lu(k,1449) = lu(k,1449) - lu(k,1160) * lu(k,1448) + lu(k,1452) = lu(k,1452) - lu(k,1161) * lu(k,1448) + lu(k,1457) = - lu(k,1162) * lu(k,1448) + lu(k,1509) = - lu(k,1160) * lu(k,1508) + lu(k,1514) = lu(k,1514) - lu(k,1161) * lu(k,1508) + lu(k,1521) = lu(k,1521) - lu(k,1162) * lu(k,1508) + lu(k,1538) = lu(k,1538) - lu(k,1160) * lu(k,1536) + lu(k,1544) = lu(k,1544) - lu(k,1161) * lu(k,1536) + lu(k,1553) = lu(k,1553) - lu(k,1162) * lu(k,1536) + lu(k,1558) = lu(k,1558) - lu(k,1160) * lu(k,1557) + lu(k,1566) = lu(k,1566) - lu(k,1161) * lu(k,1557) + lu(k,1576) = lu(k,1576) - lu(k,1162) * lu(k,1557) + lu(k,1789) = lu(k,1789) - lu(k,1160) * lu(k,1773) + lu(k,1798) = lu(k,1798) - lu(k,1161) * lu(k,1773) + lu(k,1808) = lu(k,1808) - lu(k,1162) * lu(k,1773) + lu(k,1836) = lu(k,1836) - lu(k,1160) * lu(k,1831) + lu(k,1844) = lu(k,1844) - lu(k,1161) * lu(k,1831) + lu(k,1854) = lu(k,1854) - lu(k,1162) * lu(k,1831) + lu(k,1881) = lu(k,1881) - lu(k,1160) * lu(k,1876) + lu(k,1889) = lu(k,1889) - lu(k,1161) * lu(k,1876) + lu(k,1899) = lu(k,1899) - lu(k,1162) * lu(k,1876) + lu(k,1907) = lu(k,1907) - lu(k,1160) * lu(k,1906) + lu(k,1915) = lu(k,1915) - lu(k,1161) * lu(k,1906) + lu(k,1925) = lu(k,1925) - lu(k,1162) * lu(k,1906) + lu(k,2005) = lu(k,2005) - lu(k,1160) * lu(k,1989) + lu(k,2011) = lu(k,2011) - lu(k,1161) * lu(k,1989) + lu(k,2021) = lu(k,2021) - lu(k,1162) * lu(k,1989) + lu(k,2045) = lu(k,2045) - lu(k,1160) * lu(k,2044) + lu(k,2054) = lu(k,2054) - lu(k,1161) * lu(k,2044) + lu(k,2064) = lu(k,2064) - lu(k,1162) * lu(k,2044) + lu(k,2111) = lu(k,2111) - lu(k,1160) * lu(k,2097) + lu(k,2118) = lu(k,2118) - lu(k,1161) * lu(k,2097) + lu(k,2128) = lu(k,2128) - lu(k,1162) * lu(k,2097) + lu(k,2219) = lu(k,2219) - lu(k,1160) * lu(k,2203) + lu(k,2226) = lu(k,2226) - lu(k,1161) * lu(k,2203) + lu(k,2236) = lu(k,2236) - lu(k,1162) * lu(k,2203) + lu(k,2326) = lu(k,2326) - lu(k,1160) * lu(k,2311) + lu(k,2334) = lu(k,2334) - lu(k,1161) * lu(k,2311) + lu(k,2344) = lu(k,2344) - lu(k,1162) * lu(k,2311) + lu(k,2404) = lu(k,2404) - lu(k,1160) * lu(k,2389) + lu(k,2409) = lu(k,2409) - lu(k,1161) * lu(k,2389) + lu(k,2419) = lu(k,2419) - lu(k,1162) * lu(k,2389) + lu(k,1165) = 1._r8 / lu(k,1165) + lu(k,1166) = lu(k,1166) * lu(k,1165) + lu(k,1167) = lu(k,1167) * lu(k,1165) + lu(k,1168) = lu(k,1168) * lu(k,1165) + lu(k,1169) = lu(k,1169) * lu(k,1165) + lu(k,1180) = lu(k,1180) - lu(k,1166) * lu(k,1176) + lu(k,1181) = lu(k,1181) - lu(k,1167) * lu(k,1176) + lu(k,1183) = lu(k,1183) - lu(k,1168) * lu(k,1176) + lu(k,1185) = lu(k,1185) - lu(k,1169) * lu(k,1176) + lu(k,1198) = lu(k,1198) - lu(k,1166) * lu(k,1193) + lu(k,1199) = lu(k,1199) - lu(k,1167) * lu(k,1193) + lu(k,1201) = lu(k,1201) - lu(k,1168) * lu(k,1193) + lu(k,1203) = lu(k,1203) - lu(k,1169) * lu(k,1193) + lu(k,1235) = lu(k,1235) - lu(k,1166) * lu(k,1230) + lu(k,1236) = lu(k,1236) - lu(k,1167) * lu(k,1230) + lu(k,1238) = lu(k,1238) - lu(k,1168) * lu(k,1230) + lu(k,1241) = lu(k,1241) - lu(k,1169) * lu(k,1230) + lu(k,1257) = lu(k,1257) - lu(k,1166) * lu(k,1250) + lu(k,1258) = lu(k,1258) - lu(k,1167) * lu(k,1250) + lu(k,1260) = lu(k,1260) - lu(k,1168) * lu(k,1250) + lu(k,1263) = lu(k,1263) - lu(k,1169) * lu(k,1250) + lu(k,1303) = lu(k,1303) - lu(k,1166) * lu(k,1291) + lu(k,1304) = lu(k,1304) - lu(k,1167) * lu(k,1291) + lu(k,1306) = lu(k,1306) - lu(k,1168) * lu(k,1291) + lu(k,1310) = lu(k,1310) - lu(k,1169) * lu(k,1291) + lu(k,1336) = lu(k,1336) - lu(k,1166) * lu(k,1324) + lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1324) + lu(k,1339) = lu(k,1339) - lu(k,1168) * lu(k,1324) + lu(k,1343) = lu(k,1343) - lu(k,1169) * lu(k,1324) + lu(k,1358) = lu(k,1358) - lu(k,1166) * lu(k,1350) + lu(k,1359) = lu(k,1359) - lu(k,1167) * lu(k,1350) + lu(k,1361) = lu(k,1361) - lu(k,1168) * lu(k,1350) + lu(k,1364) = lu(k,1364) - lu(k,1169) * lu(k,1350) + lu(k,1428) = lu(k,1428) - lu(k,1166) * lu(k,1416) + lu(k,1431) = lu(k,1431) - lu(k,1167) * lu(k,1416) + lu(k,1433) = lu(k,1433) - lu(k,1168) * lu(k,1416) + lu(k,1437) = lu(k,1437) - lu(k,1169) * lu(k,1416) + lu(k,1538) = lu(k,1538) - lu(k,1166) * lu(k,1537) + lu(k,1544) = lu(k,1544) - lu(k,1167) * lu(k,1537) + lu(k,1547) = lu(k,1547) - lu(k,1168) * lu(k,1537) + lu(k,1553) = lu(k,1553) - lu(k,1169) * lu(k,1537) + lu(k,1789) = lu(k,1789) - lu(k,1166) * lu(k,1774) + lu(k,1798) = lu(k,1798) - lu(k,1167) * lu(k,1774) + lu(k,1801) = lu(k,1801) - lu(k,1168) * lu(k,1774) + lu(k,1808) = lu(k,1808) - lu(k,1169) * lu(k,1774) + lu(k,1836) = lu(k,1836) - lu(k,1166) * lu(k,1832) + lu(k,1844) = lu(k,1844) - lu(k,1167) * lu(k,1832) + lu(k,1847) = lu(k,1847) - lu(k,1168) * lu(k,1832) + lu(k,1854) = lu(k,1854) - lu(k,1169) * lu(k,1832) + lu(k,2005) = lu(k,2005) - lu(k,1166) * lu(k,1990) + lu(k,2011) = lu(k,2011) - lu(k,1167) * lu(k,1990) + lu(k,2014) = lu(k,2014) - lu(k,1168) * lu(k,1990) + lu(k,2021) = lu(k,2021) - lu(k,1169) * lu(k,1990) + lu(k,2111) = lu(k,2111) - lu(k,1166) * lu(k,2098) + lu(k,2118) = lu(k,2118) - lu(k,1167) * lu(k,2098) + lu(k,2121) = lu(k,2121) - lu(k,1168) * lu(k,2098) + lu(k,2128) = lu(k,2128) - lu(k,1169) * lu(k,2098) + lu(k,2219) = lu(k,2219) - lu(k,1166) * lu(k,2204) + lu(k,2226) = lu(k,2226) - lu(k,1167) * lu(k,2204) + lu(k,2229) = lu(k,2229) - lu(k,1168) * lu(k,2204) + lu(k,2236) = lu(k,2236) - lu(k,1169) * lu(k,2204) + lu(k,2326) = lu(k,2326) - lu(k,1166) * lu(k,2312) + lu(k,2334) = lu(k,2334) - lu(k,1167) * lu(k,2312) + lu(k,2337) = lu(k,2337) - lu(k,1168) * lu(k,2312) + lu(k,2344) = lu(k,2344) - lu(k,1169) * lu(k,2312) + lu(k,2404) = lu(k,2404) - lu(k,1166) * lu(k,2390) + lu(k,2409) = lu(k,2409) - lu(k,1167) * lu(k,2390) + lu(k,2412) = lu(k,2412) - lu(k,1168) * lu(k,2390) + lu(k,2419) = lu(k,2419) - lu(k,1169) * lu(k,2390) end do end subroutine lu_fac24 subroutine lu_fac25( avec_len, lu ) @@ -4933,413 +4691,350 @@ subroutine lu_fac25( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1217) = 1._r8 / lu(k,1217) - lu(k,1218) = lu(k,1218) * lu(k,1217) - lu(k,1219) = lu(k,1219) * lu(k,1217) - lu(k,1220) = lu(k,1220) * lu(k,1217) - lu(k,1221) = lu(k,1221) * lu(k,1217) - lu(k,1222) = lu(k,1222) * lu(k,1217) - lu(k,1223) = lu(k,1223) * lu(k,1217) - lu(k,1224) = lu(k,1224) * lu(k,1217) - lu(k,1225) = lu(k,1225) * lu(k,1217) - lu(k,1226) = lu(k,1226) * lu(k,1217) - lu(k,1298) = lu(k,1298) - lu(k,1218) * lu(k,1295) - lu(k,1303) = lu(k,1303) - lu(k,1219) * lu(k,1295) - lu(k,1306) = lu(k,1306) - lu(k,1220) * lu(k,1295) - lu(k,1307) = lu(k,1307) - lu(k,1221) * lu(k,1295) - lu(k,1308) = lu(k,1308) - lu(k,1222) * lu(k,1295) - lu(k,1309) = lu(k,1309) - lu(k,1223) * lu(k,1295) - lu(k,1312) = lu(k,1312) - lu(k,1224) * lu(k,1295) - lu(k,1313) = lu(k,1313) - lu(k,1225) * lu(k,1295) - lu(k,1314) = lu(k,1314) - lu(k,1226) * lu(k,1295) - lu(k,1331) = lu(k,1331) - lu(k,1218) * lu(k,1328) - lu(k,1336) = lu(k,1336) - lu(k,1219) * lu(k,1328) - lu(k,1339) = lu(k,1339) - lu(k,1220) * lu(k,1328) - lu(k,1340) = lu(k,1340) - lu(k,1221) * lu(k,1328) - lu(k,1341) = lu(k,1341) - lu(k,1222) * lu(k,1328) - lu(k,1342) = lu(k,1342) - lu(k,1223) * lu(k,1328) - lu(k,1345) = lu(k,1345) - lu(k,1224) * lu(k,1328) - lu(k,1346) = lu(k,1346) - lu(k,1225) * lu(k,1328) - lu(k,1347) = lu(k,1347) - lu(k,1226) * lu(k,1328) - lu(k,1355) = lu(k,1355) - lu(k,1218) * lu(k,1354) - lu(k,1358) = lu(k,1358) - lu(k,1219) * lu(k,1354) - lu(k,1361) = lu(k,1361) - lu(k,1220) * lu(k,1354) - lu(k,1362) = lu(k,1362) - lu(k,1221) * lu(k,1354) - lu(k,1363) = lu(k,1363) - lu(k,1222) * lu(k,1354) - lu(k,1364) = lu(k,1364) - lu(k,1223) * lu(k,1354) - lu(k,1366) = lu(k,1366) - lu(k,1224) * lu(k,1354) - lu(k,1367) = lu(k,1367) - lu(k,1225) * lu(k,1354) - lu(k,1368) = lu(k,1368) - lu(k,1226) * lu(k,1354) - lu(k,1639) = lu(k,1639) - lu(k,1218) * lu(k,1635) - lu(k,1645) = lu(k,1645) - lu(k,1219) * lu(k,1635) - lu(k,1653) = lu(k,1653) - lu(k,1220) * lu(k,1635) - lu(k,1654) = lu(k,1654) - lu(k,1221) * lu(k,1635) - lu(k,1655) = lu(k,1655) - lu(k,1222) * lu(k,1635) - lu(k,1656) = lu(k,1656) - lu(k,1223) * lu(k,1635) - lu(k,1664) = lu(k,1664) - lu(k,1224) * lu(k,1635) - lu(k,1665) = lu(k,1665) - lu(k,1225) * lu(k,1635) - lu(k,1666) = lu(k,1666) - lu(k,1226) * lu(k,1635) - lu(k,1802) = lu(k,1802) - lu(k,1218) * lu(k,1798) - lu(k,1808) = lu(k,1808) - lu(k,1219) * lu(k,1798) - lu(k,1818) = lu(k,1818) - lu(k,1220) * lu(k,1798) - lu(k,1819) = lu(k,1819) - lu(k,1221) * lu(k,1798) - lu(k,1820) = lu(k,1820) - lu(k,1222) * lu(k,1798) - lu(k,1821) = lu(k,1821) - lu(k,1223) * lu(k,1798) - lu(k,1829) = lu(k,1829) - lu(k,1224) * lu(k,1798) - lu(k,1830) = lu(k,1830) - lu(k,1225) * lu(k,1798) - lu(k,1831) = lu(k,1831) - lu(k,1226) * lu(k,1798) - lu(k,1900) = lu(k,1900) - lu(k,1218) * lu(k,1896) - lu(k,1906) = lu(k,1906) - lu(k,1219) * lu(k,1896) - lu(k,1913) = lu(k,1913) - lu(k,1220) * lu(k,1896) - lu(k,1914) = lu(k,1914) - lu(k,1221) * lu(k,1896) - lu(k,1915) = lu(k,1915) - lu(k,1222) * lu(k,1896) - lu(k,1916) = lu(k,1916) - lu(k,1223) * lu(k,1896) - lu(k,1924) = lu(k,1924) - lu(k,1224) * lu(k,1896) - lu(k,1925) = lu(k,1925) - lu(k,1225) * lu(k,1896) - lu(k,1926) = lu(k,1926) - lu(k,1226) * lu(k,1896) - lu(k,2150) = - lu(k,1218) * lu(k,2149) - lu(k,2151) = lu(k,2151) - lu(k,1219) * lu(k,2149) - lu(k,2160) = lu(k,2160) - lu(k,1220) * lu(k,2149) - lu(k,2161) = lu(k,2161) - lu(k,1221) * lu(k,2149) - lu(k,2162) = lu(k,2162) - lu(k,1222) * lu(k,2149) - lu(k,2163) = lu(k,2163) - lu(k,1223) * lu(k,2149) - lu(k,2171) = lu(k,2171) - lu(k,1224) * lu(k,2149) - lu(k,2172) = lu(k,2172) - lu(k,1225) * lu(k,2149) - lu(k,2173) = lu(k,2173) - lu(k,1226) * lu(k,2149) - lu(k,2210) = lu(k,2210) - lu(k,1218) * lu(k,2207) - lu(k,2216) = lu(k,2216) - lu(k,1219) * lu(k,2207) - lu(k,2224) = lu(k,2224) - lu(k,1220) * lu(k,2207) - lu(k,2225) = lu(k,2225) - lu(k,1221) * lu(k,2207) - lu(k,2226) = lu(k,2226) - lu(k,1222) * lu(k,2207) - lu(k,2227) = lu(k,2227) - lu(k,1223) * lu(k,2207) - lu(k,2235) = lu(k,2235) - lu(k,1224) * lu(k,2207) - lu(k,2236) = lu(k,2236) - lu(k,1225) * lu(k,2207) - lu(k,2237) = lu(k,2237) - lu(k,1226) * lu(k,2207) - lu(k,2342) = lu(k,2342) - lu(k,1218) * lu(k,2338) - lu(k,2348) = lu(k,2348) - lu(k,1219) * lu(k,2338) - lu(k,2357) = lu(k,2357) - lu(k,1220) * lu(k,2338) - lu(k,2358) = lu(k,2358) - lu(k,1221) * lu(k,2338) - lu(k,2359) = lu(k,2359) - lu(k,1222) * lu(k,2338) - lu(k,2360) = lu(k,2360) - lu(k,1223) * lu(k,2338) - lu(k,2368) = lu(k,2368) - lu(k,1224) * lu(k,2338) - lu(k,2369) = lu(k,2369) - lu(k,1225) * lu(k,2338) - lu(k,2370) = lu(k,2370) - lu(k,1226) * lu(k,2338) - lu(k,2397) = lu(k,2397) - lu(k,1218) * lu(k,2393) - lu(k,2403) = lu(k,2403) - lu(k,1219) * lu(k,2393) - lu(k,2409) = lu(k,2409) - lu(k,1220) * lu(k,2393) - lu(k,2410) = lu(k,2410) - lu(k,1221) * lu(k,2393) - lu(k,2411) = lu(k,2411) - lu(k,1222) * lu(k,2393) - lu(k,2412) = lu(k,2412) - lu(k,1223) * lu(k,2393) - lu(k,2420) = lu(k,2420) - lu(k,1224) * lu(k,2393) - lu(k,2421) = lu(k,2421) - lu(k,1225) * lu(k,2393) - lu(k,2422) = lu(k,2422) - lu(k,1226) * lu(k,2393) - lu(k,1233) = 1._r8 / lu(k,1233) - lu(k,1234) = lu(k,1234) * lu(k,1233) - lu(k,1235) = lu(k,1235) * lu(k,1233) - lu(k,1236) = lu(k,1236) * lu(k,1233) - lu(k,1237) = lu(k,1237) * lu(k,1233) - lu(k,1238) = lu(k,1238) * lu(k,1233) - lu(k,1239) = lu(k,1239) * lu(k,1233) - lu(k,1240) = lu(k,1240) * lu(k,1233) - lu(k,1241) = lu(k,1241) * lu(k,1233) - lu(k,1242) = lu(k,1242) * lu(k,1233) - lu(k,1243) = lu(k,1243) * lu(k,1233) - lu(k,1255) = lu(k,1255) - lu(k,1234) * lu(k,1252) - lu(k,1257) = lu(k,1257) - lu(k,1235) * lu(k,1252) - lu(k,1258) = lu(k,1258) - lu(k,1236) * lu(k,1252) - lu(k,1259) = lu(k,1259) - lu(k,1237) * lu(k,1252) - lu(k,1260) = lu(k,1260) - lu(k,1238) * lu(k,1252) - lu(k,1261) = lu(k,1261) - lu(k,1239) * lu(k,1252) - lu(k,1262) = lu(k,1262) - lu(k,1240) * lu(k,1252) - lu(k,1263) = lu(k,1263) - lu(k,1241) * lu(k,1252) - lu(k,1265) = lu(k,1265) - lu(k,1242) * lu(k,1252) - lu(k,1266) = lu(k,1266) - lu(k,1243) * lu(k,1252) - lu(k,1298) = lu(k,1298) - lu(k,1234) * lu(k,1296) - lu(k,1303) = lu(k,1303) - lu(k,1235) * lu(k,1296) - lu(k,1304) = lu(k,1304) - lu(k,1236) * lu(k,1296) - lu(k,1305) = lu(k,1305) - lu(k,1237) * lu(k,1296) - lu(k,1306) = lu(k,1306) - lu(k,1238) * lu(k,1296) - lu(k,1307) = lu(k,1307) - lu(k,1239) * lu(k,1296) - lu(k,1308) = lu(k,1308) - lu(k,1240) * lu(k,1296) - lu(k,1309) = lu(k,1309) - lu(k,1241) * lu(k,1296) - lu(k,1312) = lu(k,1312) - lu(k,1242) * lu(k,1296) - lu(k,1313) = lu(k,1313) - lu(k,1243) * lu(k,1296) - lu(k,1331) = lu(k,1331) - lu(k,1234) * lu(k,1329) - lu(k,1336) = lu(k,1336) - lu(k,1235) * lu(k,1329) - lu(k,1337) = lu(k,1337) - lu(k,1236) * lu(k,1329) - lu(k,1338) = lu(k,1338) - lu(k,1237) * lu(k,1329) - lu(k,1339) = lu(k,1339) - lu(k,1238) * lu(k,1329) - lu(k,1340) = lu(k,1340) - lu(k,1239) * lu(k,1329) - lu(k,1341) = lu(k,1341) - lu(k,1240) * lu(k,1329) - lu(k,1342) = lu(k,1342) - lu(k,1241) * lu(k,1329) - lu(k,1345) = lu(k,1345) - lu(k,1242) * lu(k,1329) - lu(k,1346) = lu(k,1346) - lu(k,1243) * lu(k,1329) - lu(k,1422) = lu(k,1422) - lu(k,1234) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,1235) * lu(k,1419) - lu(k,1429) = lu(k,1429) - lu(k,1236) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,1237) * lu(k,1419) - lu(k,1432) = lu(k,1432) - lu(k,1238) * lu(k,1419) - lu(k,1433) = lu(k,1433) - lu(k,1239) * lu(k,1419) - lu(k,1434) = lu(k,1434) - lu(k,1240) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,1241) * lu(k,1419) - lu(k,1439) = lu(k,1439) - lu(k,1242) * lu(k,1419) - lu(k,1440) = lu(k,1440) - lu(k,1243) * lu(k,1419) - lu(k,1639) = lu(k,1639) - lu(k,1234) * lu(k,1636) - lu(k,1645) = lu(k,1645) - lu(k,1235) * lu(k,1636) - lu(k,1646) = lu(k,1646) - lu(k,1236) * lu(k,1636) - lu(k,1652) = lu(k,1652) - lu(k,1237) * lu(k,1636) - lu(k,1653) = lu(k,1653) - lu(k,1238) * lu(k,1636) - lu(k,1654) = lu(k,1654) - lu(k,1239) * lu(k,1636) - lu(k,1655) = lu(k,1655) - lu(k,1240) * lu(k,1636) - lu(k,1656) = lu(k,1656) - lu(k,1241) * lu(k,1636) - lu(k,1664) = lu(k,1664) - lu(k,1242) * lu(k,1636) - lu(k,1665) = lu(k,1665) - lu(k,1243) * lu(k,1636) - lu(k,1802) = lu(k,1802) - lu(k,1234) * lu(k,1799) - lu(k,1808) = lu(k,1808) - lu(k,1235) * lu(k,1799) - lu(k,1809) = lu(k,1809) - lu(k,1236) * lu(k,1799) - lu(k,1817) = lu(k,1817) - lu(k,1237) * lu(k,1799) - lu(k,1818) = lu(k,1818) - lu(k,1238) * lu(k,1799) - lu(k,1819) = lu(k,1819) - lu(k,1239) * lu(k,1799) - lu(k,1820) = lu(k,1820) - lu(k,1240) * lu(k,1799) - lu(k,1821) = lu(k,1821) - lu(k,1241) * lu(k,1799) - lu(k,1829) = lu(k,1829) - lu(k,1242) * lu(k,1799) - lu(k,1830) = lu(k,1830) - lu(k,1243) * lu(k,1799) - lu(k,1900) = lu(k,1900) - lu(k,1234) * lu(k,1897) - lu(k,1906) = lu(k,1906) - lu(k,1235) * lu(k,1897) - lu(k,1907) = lu(k,1907) - lu(k,1236) * lu(k,1897) - lu(k,1912) = lu(k,1912) - lu(k,1237) * lu(k,1897) - lu(k,1913) = lu(k,1913) - lu(k,1238) * lu(k,1897) - lu(k,1914) = lu(k,1914) - lu(k,1239) * lu(k,1897) - lu(k,1915) = lu(k,1915) - lu(k,1240) * lu(k,1897) - lu(k,1916) = lu(k,1916) - lu(k,1241) * lu(k,1897) - lu(k,1924) = lu(k,1924) - lu(k,1242) * lu(k,1897) - lu(k,1925) = lu(k,1925) - lu(k,1243) * lu(k,1897) - lu(k,2342) = lu(k,2342) - lu(k,1234) * lu(k,2339) - lu(k,2348) = lu(k,2348) - lu(k,1235) * lu(k,2339) - lu(k,2349) = lu(k,2349) - lu(k,1236) * lu(k,2339) - lu(k,2356) = lu(k,2356) - lu(k,1237) * lu(k,2339) - lu(k,2357) = lu(k,2357) - lu(k,1238) * lu(k,2339) - lu(k,2358) = lu(k,2358) - lu(k,1239) * lu(k,2339) - lu(k,2359) = lu(k,2359) - lu(k,1240) * lu(k,2339) - lu(k,2360) = lu(k,2360) - lu(k,1241) * lu(k,2339) - lu(k,2368) = lu(k,2368) - lu(k,1242) * lu(k,2339) - lu(k,2369) = lu(k,2369) - lu(k,1243) * lu(k,2339) - lu(k,2397) = lu(k,2397) - lu(k,1234) * lu(k,2394) - lu(k,2403) = lu(k,2403) - lu(k,1235) * lu(k,2394) - lu(k,2404) = lu(k,2404) - lu(k,1236) * lu(k,2394) - lu(k,2408) = lu(k,2408) - lu(k,1237) * lu(k,2394) - lu(k,2409) = lu(k,2409) - lu(k,1238) * lu(k,2394) - lu(k,2410) = lu(k,2410) - lu(k,1239) * lu(k,2394) - lu(k,2411) = lu(k,2411) - lu(k,1240) * lu(k,2394) - lu(k,2412) = lu(k,2412) - lu(k,1241) * lu(k,2394) - lu(k,2420) = lu(k,2420) - lu(k,1242) * lu(k,2394) - lu(k,2421) = lu(k,2421) - lu(k,1243) * lu(k,2394) - lu(k,1253) = 1._r8 / lu(k,1253) - lu(k,1254) = lu(k,1254) * lu(k,1253) - lu(k,1255) = lu(k,1255) * lu(k,1253) - lu(k,1256) = lu(k,1256) * lu(k,1253) - lu(k,1257) = lu(k,1257) * lu(k,1253) - lu(k,1258) = lu(k,1258) * lu(k,1253) - lu(k,1259) = lu(k,1259) * lu(k,1253) - lu(k,1260) = lu(k,1260) * lu(k,1253) - lu(k,1261) = lu(k,1261) * lu(k,1253) - lu(k,1262) = lu(k,1262) * lu(k,1253) - lu(k,1263) = lu(k,1263) * lu(k,1253) - lu(k,1264) = lu(k,1264) * lu(k,1253) - lu(k,1265) = lu(k,1265) * lu(k,1253) - lu(k,1266) = lu(k,1266) * lu(k,1253) - lu(k,1421) = lu(k,1421) - lu(k,1254) * lu(k,1420) - lu(k,1422) = lu(k,1422) - lu(k,1255) * lu(k,1420) - lu(k,1426) = lu(k,1426) - lu(k,1256) * lu(k,1420) - lu(k,1428) = lu(k,1428) - lu(k,1257) * lu(k,1420) - lu(k,1429) = lu(k,1429) - lu(k,1258) * lu(k,1420) - lu(k,1431) = lu(k,1431) - lu(k,1259) * lu(k,1420) - lu(k,1432) = lu(k,1432) - lu(k,1260) * lu(k,1420) - lu(k,1433) = lu(k,1433) - lu(k,1261) * lu(k,1420) - lu(k,1434) = lu(k,1434) - lu(k,1262) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,1263) * lu(k,1420) - lu(k,1436) = lu(k,1436) - lu(k,1264) * lu(k,1420) - lu(k,1439) = lu(k,1439) - lu(k,1265) * lu(k,1420) - lu(k,1440) = lu(k,1440) - lu(k,1266) * lu(k,1420) - lu(k,1638) = lu(k,1638) - lu(k,1254) * lu(k,1637) - lu(k,1639) = lu(k,1639) - lu(k,1255) * lu(k,1637) - lu(k,1643) = lu(k,1643) - lu(k,1256) * lu(k,1637) - lu(k,1645) = lu(k,1645) - lu(k,1257) * lu(k,1637) - lu(k,1646) = lu(k,1646) - lu(k,1258) * lu(k,1637) - lu(k,1652) = lu(k,1652) - lu(k,1259) * lu(k,1637) - lu(k,1653) = lu(k,1653) - lu(k,1260) * lu(k,1637) - lu(k,1654) = lu(k,1654) - lu(k,1261) * lu(k,1637) - lu(k,1655) = lu(k,1655) - lu(k,1262) * lu(k,1637) - lu(k,1656) = lu(k,1656) - lu(k,1263) * lu(k,1637) - lu(k,1658) = lu(k,1658) - lu(k,1264) * lu(k,1637) - lu(k,1664) = lu(k,1664) - lu(k,1265) * lu(k,1637) - lu(k,1665) = lu(k,1665) - lu(k,1266) * lu(k,1637) - lu(k,1801) = lu(k,1801) - lu(k,1254) * lu(k,1800) - lu(k,1802) = lu(k,1802) - lu(k,1255) * lu(k,1800) - lu(k,1806) = lu(k,1806) - lu(k,1256) * lu(k,1800) - lu(k,1808) = lu(k,1808) - lu(k,1257) * lu(k,1800) - lu(k,1809) = lu(k,1809) - lu(k,1258) * lu(k,1800) - lu(k,1817) = lu(k,1817) - lu(k,1259) * lu(k,1800) - lu(k,1818) = lu(k,1818) - lu(k,1260) * lu(k,1800) - lu(k,1819) = lu(k,1819) - lu(k,1261) * lu(k,1800) - lu(k,1820) = lu(k,1820) - lu(k,1262) * lu(k,1800) - lu(k,1821) = lu(k,1821) - lu(k,1263) * lu(k,1800) - lu(k,1823) = lu(k,1823) - lu(k,1264) * lu(k,1800) - lu(k,1829) = lu(k,1829) - lu(k,1265) * lu(k,1800) - lu(k,1830) = lu(k,1830) - lu(k,1266) * lu(k,1800) - lu(k,1899) = lu(k,1899) - lu(k,1254) * lu(k,1898) - lu(k,1900) = lu(k,1900) - lu(k,1255) * lu(k,1898) - lu(k,1904) = lu(k,1904) - lu(k,1256) * lu(k,1898) - lu(k,1906) = lu(k,1906) - lu(k,1257) * lu(k,1898) - lu(k,1907) = lu(k,1907) - lu(k,1258) * lu(k,1898) - lu(k,1912) = lu(k,1912) - lu(k,1259) * lu(k,1898) - lu(k,1913) = lu(k,1913) - lu(k,1260) * lu(k,1898) - lu(k,1914) = lu(k,1914) - lu(k,1261) * lu(k,1898) - lu(k,1915) = lu(k,1915) - lu(k,1262) * lu(k,1898) - lu(k,1916) = lu(k,1916) - lu(k,1263) * lu(k,1898) - lu(k,1918) = lu(k,1918) - lu(k,1264) * lu(k,1898) - lu(k,1924) = lu(k,1924) - lu(k,1265) * lu(k,1898) - lu(k,1925) = lu(k,1925) - lu(k,1266) * lu(k,1898) - lu(k,2209) = lu(k,2209) - lu(k,1254) * lu(k,2208) - lu(k,2210) = lu(k,2210) - lu(k,1255) * lu(k,2208) - lu(k,2214) = lu(k,2214) - lu(k,1256) * lu(k,2208) - lu(k,2216) = lu(k,2216) - lu(k,1257) * lu(k,2208) - lu(k,2217) = lu(k,2217) - lu(k,1258) * lu(k,2208) - lu(k,2223) = lu(k,2223) - lu(k,1259) * lu(k,2208) - lu(k,2224) = lu(k,2224) - lu(k,1260) * lu(k,2208) - lu(k,2225) = lu(k,2225) - lu(k,1261) * lu(k,2208) - lu(k,2226) = lu(k,2226) - lu(k,1262) * lu(k,2208) - lu(k,2227) = lu(k,2227) - lu(k,1263) * lu(k,2208) - lu(k,2229) = lu(k,2229) - lu(k,1264) * lu(k,2208) - lu(k,2235) = lu(k,2235) - lu(k,1265) * lu(k,2208) - lu(k,2236) = lu(k,2236) - lu(k,1266) * lu(k,2208) - lu(k,2341) = lu(k,2341) - lu(k,1254) * lu(k,2340) - lu(k,2342) = lu(k,2342) - lu(k,1255) * lu(k,2340) - lu(k,2346) = lu(k,2346) - lu(k,1256) * lu(k,2340) - lu(k,2348) = lu(k,2348) - lu(k,1257) * lu(k,2340) - lu(k,2349) = lu(k,2349) - lu(k,1258) * lu(k,2340) - lu(k,2356) = lu(k,2356) - lu(k,1259) * lu(k,2340) - lu(k,2357) = lu(k,2357) - lu(k,1260) * lu(k,2340) - lu(k,2358) = lu(k,2358) - lu(k,1261) * lu(k,2340) - lu(k,2359) = lu(k,2359) - lu(k,1262) * lu(k,2340) - lu(k,2360) = lu(k,2360) - lu(k,1263) * lu(k,2340) - lu(k,2362) = lu(k,2362) - lu(k,1264) * lu(k,2340) - lu(k,2368) = lu(k,2368) - lu(k,1265) * lu(k,2340) - lu(k,2369) = lu(k,2369) - lu(k,1266) * lu(k,2340) - lu(k,2396) = lu(k,2396) - lu(k,1254) * lu(k,2395) - lu(k,2397) = lu(k,2397) - lu(k,1255) * lu(k,2395) - lu(k,2401) = lu(k,2401) - lu(k,1256) * lu(k,2395) - lu(k,2403) = lu(k,2403) - lu(k,1257) * lu(k,2395) - lu(k,2404) = lu(k,2404) - lu(k,1258) * lu(k,2395) - lu(k,2408) = lu(k,2408) - lu(k,1259) * lu(k,2395) - lu(k,2409) = lu(k,2409) - lu(k,1260) * lu(k,2395) - lu(k,2410) = lu(k,2410) - lu(k,1261) * lu(k,2395) - lu(k,2411) = lu(k,2411) - lu(k,1262) * lu(k,2395) - lu(k,2412) = lu(k,2412) - lu(k,1263) * lu(k,2395) - lu(k,2414) = lu(k,2414) - lu(k,1264) * lu(k,2395) - lu(k,2420) = lu(k,2420) - lu(k,1265) * lu(k,2395) - lu(k,2421) = lu(k,2421) - lu(k,1266) * lu(k,2395) - lu(k,1269) = 1._r8 / lu(k,1269) - lu(k,1270) = lu(k,1270) * lu(k,1269) - lu(k,1271) = lu(k,1271) * lu(k,1269) - lu(k,1272) = lu(k,1272) * lu(k,1269) - lu(k,1273) = lu(k,1273) * lu(k,1269) - lu(k,1274) = lu(k,1274) * lu(k,1269) - lu(k,1275) = lu(k,1275) * lu(k,1269) - lu(k,1276) = lu(k,1276) * lu(k,1269) - lu(k,1277) = lu(k,1277) * lu(k,1269) - lu(k,1278) = lu(k,1278) * lu(k,1269) - lu(k,1279) = lu(k,1279) * lu(k,1269) - lu(k,1298) = lu(k,1298) - lu(k,1270) * lu(k,1297) - lu(k,1300) = - lu(k,1271) * lu(k,1297) - lu(k,1302) = - lu(k,1272) * lu(k,1297) - lu(k,1303) = lu(k,1303) - lu(k,1273) * lu(k,1297) - lu(k,1304) = lu(k,1304) - lu(k,1274) * lu(k,1297) - lu(k,1306) = lu(k,1306) - lu(k,1275) * lu(k,1297) - lu(k,1309) = lu(k,1309) - lu(k,1276) * lu(k,1297) - lu(k,1311) = - lu(k,1277) * lu(k,1297) - lu(k,1312) = lu(k,1312) - lu(k,1278) * lu(k,1297) - lu(k,1314) = lu(k,1314) - lu(k,1279) * lu(k,1297) - lu(k,1331) = lu(k,1331) - lu(k,1270) * lu(k,1330) - lu(k,1333) = - lu(k,1271) * lu(k,1330) - lu(k,1335) = - lu(k,1272) * lu(k,1330) - lu(k,1336) = lu(k,1336) - lu(k,1273) * lu(k,1330) - lu(k,1337) = lu(k,1337) - lu(k,1274) * lu(k,1330) - lu(k,1339) = lu(k,1339) - lu(k,1275) * lu(k,1330) - lu(k,1342) = lu(k,1342) - lu(k,1276) * lu(k,1330) - lu(k,1344) = - lu(k,1277) * lu(k,1330) - lu(k,1345) = lu(k,1345) - lu(k,1278) * lu(k,1330) - lu(k,1347) = lu(k,1347) - lu(k,1279) * lu(k,1330) - lu(k,1422) = lu(k,1422) - lu(k,1270) * lu(k,1421) - lu(k,1425) = lu(k,1425) - lu(k,1271) * lu(k,1421) - lu(k,1427) = lu(k,1427) - lu(k,1272) * lu(k,1421) - lu(k,1428) = lu(k,1428) - lu(k,1273) * lu(k,1421) - lu(k,1429) = lu(k,1429) - lu(k,1274) * lu(k,1421) - lu(k,1432) = lu(k,1432) - lu(k,1275) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,1276) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,1277) * lu(k,1421) - lu(k,1439) = lu(k,1439) - lu(k,1278) * lu(k,1421) - lu(k,1441) = lu(k,1441) - lu(k,1279) * lu(k,1421) - lu(k,1639) = lu(k,1639) - lu(k,1270) * lu(k,1638) - lu(k,1642) = lu(k,1642) - lu(k,1271) * lu(k,1638) - lu(k,1644) = lu(k,1644) - lu(k,1272) * lu(k,1638) - lu(k,1645) = lu(k,1645) - lu(k,1273) * lu(k,1638) - lu(k,1646) = lu(k,1646) - lu(k,1274) * lu(k,1638) - lu(k,1653) = lu(k,1653) - lu(k,1275) * lu(k,1638) - lu(k,1656) = lu(k,1656) - lu(k,1276) * lu(k,1638) - lu(k,1662) = lu(k,1662) - lu(k,1277) * lu(k,1638) - lu(k,1664) = lu(k,1664) - lu(k,1278) * lu(k,1638) - lu(k,1666) = lu(k,1666) - lu(k,1279) * lu(k,1638) - lu(k,1802) = lu(k,1802) - lu(k,1270) * lu(k,1801) - lu(k,1805) = lu(k,1805) - lu(k,1271) * lu(k,1801) - lu(k,1807) = lu(k,1807) - lu(k,1272) * lu(k,1801) - lu(k,1808) = lu(k,1808) - lu(k,1273) * lu(k,1801) - lu(k,1809) = lu(k,1809) - lu(k,1274) * lu(k,1801) - lu(k,1818) = lu(k,1818) - lu(k,1275) * lu(k,1801) - lu(k,1821) = lu(k,1821) - lu(k,1276) * lu(k,1801) - lu(k,1827) = lu(k,1827) - lu(k,1277) * lu(k,1801) - lu(k,1829) = lu(k,1829) - lu(k,1278) * lu(k,1801) - lu(k,1831) = lu(k,1831) - lu(k,1279) * lu(k,1801) - lu(k,1900) = lu(k,1900) - lu(k,1270) * lu(k,1899) - lu(k,1903) = lu(k,1903) - lu(k,1271) * lu(k,1899) - lu(k,1905) = lu(k,1905) - lu(k,1272) * lu(k,1899) - lu(k,1906) = lu(k,1906) - lu(k,1273) * lu(k,1899) - lu(k,1907) = lu(k,1907) - lu(k,1274) * lu(k,1899) - lu(k,1913) = lu(k,1913) - lu(k,1275) * lu(k,1899) - lu(k,1916) = lu(k,1916) - lu(k,1276) * lu(k,1899) - lu(k,1922) = lu(k,1922) - lu(k,1277) * lu(k,1899) - lu(k,1924) = lu(k,1924) - lu(k,1278) * lu(k,1899) - lu(k,1926) = lu(k,1926) - lu(k,1279) * lu(k,1899) - lu(k,2210) = lu(k,2210) - lu(k,1270) * lu(k,2209) - lu(k,2213) = - lu(k,1271) * lu(k,2209) - lu(k,2215) = - lu(k,1272) * lu(k,2209) - lu(k,2216) = lu(k,2216) - lu(k,1273) * lu(k,2209) - lu(k,2217) = lu(k,2217) - lu(k,1274) * lu(k,2209) - lu(k,2224) = lu(k,2224) - lu(k,1275) * lu(k,2209) - lu(k,2227) = lu(k,2227) - lu(k,1276) * lu(k,2209) - lu(k,2233) = lu(k,2233) - lu(k,1277) * lu(k,2209) - lu(k,2235) = lu(k,2235) - lu(k,1278) * lu(k,2209) - lu(k,2237) = lu(k,2237) - lu(k,1279) * lu(k,2209) - lu(k,2342) = lu(k,2342) - lu(k,1270) * lu(k,2341) - lu(k,2345) = lu(k,2345) - lu(k,1271) * lu(k,2341) - lu(k,2347) = lu(k,2347) - lu(k,1272) * lu(k,2341) - lu(k,2348) = lu(k,2348) - lu(k,1273) * lu(k,2341) - lu(k,2349) = lu(k,2349) - lu(k,1274) * lu(k,2341) - lu(k,2357) = lu(k,2357) - lu(k,1275) * lu(k,2341) - lu(k,2360) = lu(k,2360) - lu(k,1276) * lu(k,2341) - lu(k,2366) = lu(k,2366) - lu(k,1277) * lu(k,2341) - lu(k,2368) = lu(k,2368) - lu(k,1278) * lu(k,2341) - lu(k,2370) = lu(k,2370) - lu(k,1279) * lu(k,2341) - lu(k,2397) = lu(k,2397) - lu(k,1270) * lu(k,2396) - lu(k,2400) = lu(k,2400) - lu(k,1271) * lu(k,2396) - lu(k,2402) = lu(k,2402) - lu(k,1272) * lu(k,2396) - lu(k,2403) = lu(k,2403) - lu(k,1273) * lu(k,2396) - lu(k,2404) = lu(k,2404) - lu(k,1274) * lu(k,2396) - lu(k,2409) = lu(k,2409) - lu(k,1275) * lu(k,2396) - lu(k,2412) = lu(k,2412) - lu(k,1276) * lu(k,2396) - lu(k,2418) = - lu(k,1277) * lu(k,2396) - lu(k,2420) = lu(k,2420) - lu(k,1278) * lu(k,2396) - lu(k,2422) = lu(k,2422) - lu(k,1279) * lu(k,2396) + lu(k,1177) = 1._r8 / lu(k,1177) + lu(k,1178) = lu(k,1178) * lu(k,1177) + lu(k,1179) = lu(k,1179) * lu(k,1177) + lu(k,1180) = lu(k,1180) * lu(k,1177) + lu(k,1181) = lu(k,1181) * lu(k,1177) + lu(k,1182) = lu(k,1182) * lu(k,1177) + lu(k,1183) = lu(k,1183) * lu(k,1177) + lu(k,1184) = lu(k,1184) * lu(k,1177) + lu(k,1185) = lu(k,1185) * lu(k,1177) + lu(k,1186) = lu(k,1186) * lu(k,1177) + lu(k,1187) = lu(k,1187) * lu(k,1177) + lu(k,1188) = lu(k,1188) * lu(k,1177) + lu(k,1778) = lu(k,1778) - lu(k,1178) * lu(k,1775) + lu(k,1788) = lu(k,1788) - lu(k,1179) * lu(k,1775) + lu(k,1789) = lu(k,1789) - lu(k,1180) * lu(k,1775) + lu(k,1798) = lu(k,1798) - lu(k,1181) * lu(k,1775) + lu(k,1800) = lu(k,1800) - lu(k,1182) * lu(k,1775) + lu(k,1801) = lu(k,1801) - lu(k,1183) * lu(k,1775) + lu(k,1802) = lu(k,1802) - lu(k,1184) * lu(k,1775) + lu(k,1808) = lu(k,1808) - lu(k,1185) * lu(k,1775) + lu(k,1809) = lu(k,1809) - lu(k,1186) * lu(k,1775) + lu(k,1810) = lu(k,1810) - lu(k,1187) * lu(k,1775) + lu(k,1811) = lu(k,1811) - lu(k,1188) * lu(k,1775) + lu(k,1994) = lu(k,1994) - lu(k,1178) * lu(k,1991) + lu(k,2004) = lu(k,2004) - lu(k,1179) * lu(k,1991) + lu(k,2005) = lu(k,2005) - lu(k,1180) * lu(k,1991) + lu(k,2011) = lu(k,2011) - lu(k,1181) * lu(k,1991) + lu(k,2013) = lu(k,2013) - lu(k,1182) * lu(k,1991) + lu(k,2014) = lu(k,2014) - lu(k,1183) * lu(k,1991) + lu(k,2015) = lu(k,2015) - lu(k,1184) * lu(k,1991) + lu(k,2021) = lu(k,2021) - lu(k,1185) * lu(k,1991) + lu(k,2022) = lu(k,2022) - lu(k,1186) * lu(k,1991) + lu(k,2023) = lu(k,2023) - lu(k,1187) * lu(k,1991) + lu(k,2024) = lu(k,2024) - lu(k,1188) * lu(k,1991) + lu(k,2101) = lu(k,2101) - lu(k,1178) * lu(k,2099) + lu(k,2110) = lu(k,2110) - lu(k,1179) * lu(k,2099) + lu(k,2111) = lu(k,2111) - lu(k,1180) * lu(k,2099) + lu(k,2118) = lu(k,2118) - lu(k,1181) * lu(k,2099) + lu(k,2120) = lu(k,2120) - lu(k,1182) * lu(k,2099) + lu(k,2121) = lu(k,2121) - lu(k,1183) * lu(k,2099) + lu(k,2122) = lu(k,2122) - lu(k,1184) * lu(k,2099) + lu(k,2128) = lu(k,2128) - lu(k,1185) * lu(k,2099) + lu(k,2129) = lu(k,2129) - lu(k,1186) * lu(k,2099) + lu(k,2130) = lu(k,2130) - lu(k,1187) * lu(k,2099) + lu(k,2131) = lu(k,2131) - lu(k,1188) * lu(k,2099) + lu(k,2208) = lu(k,2208) - lu(k,1178) * lu(k,2205) + lu(k,2218) = lu(k,2218) - lu(k,1179) * lu(k,2205) + lu(k,2219) = lu(k,2219) - lu(k,1180) * lu(k,2205) + lu(k,2226) = lu(k,2226) - lu(k,1181) * lu(k,2205) + lu(k,2228) = lu(k,2228) - lu(k,1182) * lu(k,2205) + lu(k,2229) = lu(k,2229) - lu(k,1183) * lu(k,2205) + lu(k,2230) = lu(k,2230) - lu(k,1184) * lu(k,2205) + lu(k,2236) = lu(k,2236) - lu(k,1185) * lu(k,2205) + lu(k,2237) = lu(k,2237) - lu(k,1186) * lu(k,2205) + lu(k,2238) = lu(k,2238) - lu(k,1187) * lu(k,2205) + lu(k,2239) = lu(k,2239) - lu(k,1188) * lu(k,2205) + lu(k,2315) = lu(k,2315) - lu(k,1178) * lu(k,2313) + lu(k,2325) = lu(k,2325) - lu(k,1179) * lu(k,2313) + lu(k,2326) = lu(k,2326) - lu(k,1180) * lu(k,2313) + lu(k,2334) = lu(k,2334) - lu(k,1181) * lu(k,2313) + lu(k,2336) = lu(k,2336) - lu(k,1182) * lu(k,2313) + lu(k,2337) = lu(k,2337) - lu(k,1183) * lu(k,2313) + lu(k,2338) = lu(k,2338) - lu(k,1184) * lu(k,2313) + lu(k,2344) = lu(k,2344) - lu(k,1185) * lu(k,2313) + lu(k,2345) = lu(k,2345) - lu(k,1186) * lu(k,2313) + lu(k,2346) = lu(k,2346) - lu(k,1187) * lu(k,2313) + lu(k,2347) = lu(k,2347) - lu(k,1188) * lu(k,2313) + lu(k,2393) = lu(k,2393) - lu(k,1178) * lu(k,2391) + lu(k,2403) = lu(k,2403) - lu(k,1179) * lu(k,2391) + lu(k,2404) = lu(k,2404) - lu(k,1180) * lu(k,2391) + lu(k,2409) = lu(k,2409) - lu(k,1181) * lu(k,2391) + lu(k,2411) = lu(k,2411) - lu(k,1182) * lu(k,2391) + lu(k,2412) = lu(k,2412) - lu(k,1183) * lu(k,2391) + lu(k,2413) = lu(k,2413) - lu(k,1184) * lu(k,2391) + lu(k,2419) = lu(k,2419) - lu(k,1185) * lu(k,2391) + lu(k,2420) = lu(k,2420) - lu(k,1186) * lu(k,2391) + lu(k,2421) = lu(k,2421) - lu(k,1187) * lu(k,2391) + lu(k,2422) = lu(k,2422) - lu(k,1188) * lu(k,2391) + lu(k,1194) = 1._r8 / lu(k,1194) + lu(k,1195) = lu(k,1195) * lu(k,1194) + lu(k,1196) = lu(k,1196) * lu(k,1194) + lu(k,1197) = lu(k,1197) * lu(k,1194) + lu(k,1198) = lu(k,1198) * lu(k,1194) + lu(k,1199) = lu(k,1199) * lu(k,1194) + lu(k,1200) = lu(k,1200) * lu(k,1194) + lu(k,1201) = lu(k,1201) * lu(k,1194) + lu(k,1202) = lu(k,1202) * lu(k,1194) + lu(k,1203) = lu(k,1203) * lu(k,1194) + lu(k,1204) = lu(k,1204) * lu(k,1194) + lu(k,1205) = lu(k,1205) * lu(k,1194) + lu(k,1206) = lu(k,1206) * lu(k,1194) + lu(k,1293) = lu(k,1293) - lu(k,1195) * lu(k,1292) + lu(k,1294) = - lu(k,1196) * lu(k,1292) + lu(k,1302) = lu(k,1302) - lu(k,1197) * lu(k,1292) + lu(k,1303) = lu(k,1303) - lu(k,1198) * lu(k,1292) + lu(k,1304) = lu(k,1304) - lu(k,1199) * lu(k,1292) + lu(k,1305) = lu(k,1305) - lu(k,1200) * lu(k,1292) + lu(k,1306) = lu(k,1306) - lu(k,1201) * lu(k,1292) + lu(k,1309) = lu(k,1309) - lu(k,1202) * lu(k,1292) + lu(k,1310) = lu(k,1310) - lu(k,1203) * lu(k,1292) + lu(k,1311) = lu(k,1311) - lu(k,1204) * lu(k,1292) + lu(k,1312) = lu(k,1312) - lu(k,1205) * lu(k,1292) + lu(k,1313) = - lu(k,1206) * lu(k,1292) + lu(k,1326) = lu(k,1326) - lu(k,1195) * lu(k,1325) + lu(k,1327) = - lu(k,1196) * lu(k,1325) + lu(k,1335) = lu(k,1335) - lu(k,1197) * lu(k,1325) + lu(k,1336) = lu(k,1336) - lu(k,1198) * lu(k,1325) + lu(k,1337) = lu(k,1337) - lu(k,1199) * lu(k,1325) + lu(k,1338) = lu(k,1338) - lu(k,1200) * lu(k,1325) + lu(k,1339) = lu(k,1339) - lu(k,1201) * lu(k,1325) + lu(k,1342) = lu(k,1342) - lu(k,1202) * lu(k,1325) + lu(k,1343) = lu(k,1343) - lu(k,1203) * lu(k,1325) + lu(k,1344) = lu(k,1344) - lu(k,1204) * lu(k,1325) + lu(k,1345) = lu(k,1345) - lu(k,1205) * lu(k,1325) + lu(k,1346) = - lu(k,1206) * lu(k,1325) + lu(k,1352) = lu(k,1352) - lu(k,1195) * lu(k,1351) + lu(k,1353) = - lu(k,1196) * lu(k,1351) + lu(k,1357) = lu(k,1357) - lu(k,1197) * lu(k,1351) + lu(k,1358) = lu(k,1358) - lu(k,1198) * lu(k,1351) + lu(k,1359) = lu(k,1359) - lu(k,1199) * lu(k,1351) + lu(k,1360) = lu(k,1360) - lu(k,1200) * lu(k,1351) + lu(k,1361) = lu(k,1361) - lu(k,1201) * lu(k,1351) + lu(k,1363) = lu(k,1363) - lu(k,1202) * lu(k,1351) + lu(k,1364) = lu(k,1364) - lu(k,1203) * lu(k,1351) + lu(k,1365) = - lu(k,1204) * lu(k,1351) + lu(k,1366) = lu(k,1366) - lu(k,1205) * lu(k,1351) + lu(k,1367) = - lu(k,1206) * lu(k,1351) + lu(k,1777) = lu(k,1777) - lu(k,1195) * lu(k,1776) + lu(k,1778) = lu(k,1778) - lu(k,1196) * lu(k,1776) + lu(k,1788) = lu(k,1788) - lu(k,1197) * lu(k,1776) + lu(k,1789) = lu(k,1789) - lu(k,1198) * lu(k,1776) + lu(k,1798) = lu(k,1798) - lu(k,1199) * lu(k,1776) + lu(k,1800) = lu(k,1800) - lu(k,1200) * lu(k,1776) + lu(k,1801) = lu(k,1801) - lu(k,1201) * lu(k,1776) + lu(k,1807) = lu(k,1807) - lu(k,1202) * lu(k,1776) + lu(k,1808) = lu(k,1808) - lu(k,1203) * lu(k,1776) + lu(k,1809) = lu(k,1809) - lu(k,1204) * lu(k,1776) + lu(k,1810) = lu(k,1810) - lu(k,1205) * lu(k,1776) + lu(k,1811) = lu(k,1811) - lu(k,1206) * lu(k,1776) + lu(k,1993) = lu(k,1993) - lu(k,1195) * lu(k,1992) + lu(k,1994) = lu(k,1994) - lu(k,1196) * lu(k,1992) + lu(k,2004) = lu(k,2004) - lu(k,1197) * lu(k,1992) + lu(k,2005) = lu(k,2005) - lu(k,1198) * lu(k,1992) + lu(k,2011) = lu(k,2011) - lu(k,1199) * lu(k,1992) + lu(k,2013) = lu(k,2013) - lu(k,1200) * lu(k,1992) + lu(k,2014) = lu(k,2014) - lu(k,1201) * lu(k,1992) + lu(k,2020) = lu(k,2020) - lu(k,1202) * lu(k,1992) + lu(k,2021) = lu(k,2021) - lu(k,1203) * lu(k,1992) + lu(k,2022) = lu(k,2022) - lu(k,1204) * lu(k,1992) + lu(k,2023) = lu(k,2023) - lu(k,1205) * lu(k,1992) + lu(k,2024) = lu(k,2024) - lu(k,1206) * lu(k,1992) + lu(k,2207) = lu(k,2207) - lu(k,1195) * lu(k,2206) + lu(k,2208) = lu(k,2208) - lu(k,1196) * lu(k,2206) + lu(k,2218) = lu(k,2218) - lu(k,1197) * lu(k,2206) + lu(k,2219) = lu(k,2219) - lu(k,1198) * lu(k,2206) + lu(k,2226) = lu(k,2226) - lu(k,1199) * lu(k,2206) + lu(k,2228) = lu(k,2228) - lu(k,1200) * lu(k,2206) + lu(k,2229) = lu(k,2229) - lu(k,1201) * lu(k,2206) + lu(k,2235) = lu(k,2235) - lu(k,1202) * lu(k,2206) + lu(k,2236) = lu(k,2236) - lu(k,1203) * lu(k,2206) + lu(k,2237) = lu(k,2237) - lu(k,1204) * lu(k,2206) + lu(k,2238) = lu(k,2238) - lu(k,1205) * lu(k,2206) + lu(k,2239) = lu(k,2239) - lu(k,1206) * lu(k,2206) + lu(k,1207) = 1._r8 / lu(k,1207) + lu(k,1208) = lu(k,1208) * lu(k,1207) + lu(k,1209) = lu(k,1209) * lu(k,1207) + lu(k,1210) = lu(k,1210) * lu(k,1207) + lu(k,1211) = lu(k,1211) * lu(k,1207) + lu(k,1212) = lu(k,1212) * lu(k,1207) + lu(k,1217) = lu(k,1217) - lu(k,1208) * lu(k,1215) + lu(k,1218) = lu(k,1218) - lu(k,1209) * lu(k,1215) + lu(k,1219) = lu(k,1219) - lu(k,1210) * lu(k,1215) + lu(k,1221) = lu(k,1221) - lu(k,1211) * lu(k,1215) + lu(k,1223) = lu(k,1223) - lu(k,1212) * lu(k,1215) + lu(k,1233) = lu(k,1233) - lu(k,1208) * lu(k,1231) + lu(k,1234) = lu(k,1234) - lu(k,1209) * lu(k,1231) + lu(k,1236) = lu(k,1236) - lu(k,1210) * lu(k,1231) + lu(k,1238) = lu(k,1238) - lu(k,1211) * lu(k,1231) + lu(k,1241) = lu(k,1241) - lu(k,1212) * lu(k,1231) + lu(k,1297) = - lu(k,1208) * lu(k,1293) + lu(k,1302) = lu(k,1302) - lu(k,1209) * lu(k,1293) + lu(k,1304) = lu(k,1304) - lu(k,1210) * lu(k,1293) + lu(k,1306) = lu(k,1306) - lu(k,1211) * lu(k,1293) + lu(k,1310) = lu(k,1310) - lu(k,1212) * lu(k,1293) + lu(k,1330) = lu(k,1330) - lu(k,1208) * lu(k,1326) + lu(k,1335) = lu(k,1335) - lu(k,1209) * lu(k,1326) + lu(k,1337) = lu(k,1337) - lu(k,1210) * lu(k,1326) + lu(k,1339) = lu(k,1339) - lu(k,1211) * lu(k,1326) + lu(k,1343) = lu(k,1343) - lu(k,1212) * lu(k,1326) + lu(k,1354) = lu(k,1354) - lu(k,1208) * lu(k,1352) + lu(k,1357) = lu(k,1357) - lu(k,1209) * lu(k,1352) + lu(k,1359) = lu(k,1359) - lu(k,1210) * lu(k,1352) + lu(k,1361) = lu(k,1361) - lu(k,1211) * lu(k,1352) + lu(k,1364) = lu(k,1364) - lu(k,1212) * lu(k,1352) + lu(k,1373) = lu(k,1373) - lu(k,1208) * lu(k,1372) + lu(k,1377) = lu(k,1377) - lu(k,1209) * lu(k,1372) + lu(k,1381) = lu(k,1381) - lu(k,1210) * lu(k,1372) + lu(k,1383) = lu(k,1383) - lu(k,1211) * lu(k,1372) + lu(k,1387) = lu(k,1387) - lu(k,1212) * lu(k,1372) + lu(k,1395) = - lu(k,1208) * lu(k,1394) + lu(k,1397) = lu(k,1397) - lu(k,1209) * lu(k,1394) + lu(k,1399) = lu(k,1399) - lu(k,1210) * lu(k,1394) + lu(k,1401) = lu(k,1401) - lu(k,1211) * lu(k,1394) + lu(k,1405) = lu(k,1405) - lu(k,1212) * lu(k,1394) + lu(k,1421) = lu(k,1421) - lu(k,1208) * lu(k,1417) + lu(k,1427) = lu(k,1427) - lu(k,1209) * lu(k,1417) + lu(k,1431) = lu(k,1431) - lu(k,1210) * lu(k,1417) + lu(k,1433) = lu(k,1433) - lu(k,1211) * lu(k,1417) + lu(k,1437) = lu(k,1437) - lu(k,1212) * lu(k,1417) + lu(k,1782) = lu(k,1782) - lu(k,1208) * lu(k,1777) + lu(k,1788) = lu(k,1788) - lu(k,1209) * lu(k,1777) + lu(k,1798) = lu(k,1798) - lu(k,1210) * lu(k,1777) + lu(k,1801) = lu(k,1801) - lu(k,1211) * lu(k,1777) + lu(k,1808) = lu(k,1808) - lu(k,1212) * lu(k,1777) + lu(k,1878) = lu(k,1878) - lu(k,1208) * lu(k,1877) + lu(k,1880) = lu(k,1880) - lu(k,1209) * lu(k,1877) + lu(k,1889) = lu(k,1889) - lu(k,1210) * lu(k,1877) + lu(k,1892) = lu(k,1892) - lu(k,1211) * lu(k,1877) + lu(k,1899) = lu(k,1899) - lu(k,1212) * lu(k,1877) + lu(k,1998) = lu(k,1998) - lu(k,1208) * lu(k,1993) + lu(k,2004) = lu(k,2004) - lu(k,1209) * lu(k,1993) + lu(k,2011) = lu(k,2011) - lu(k,1210) * lu(k,1993) + lu(k,2014) = lu(k,2014) - lu(k,1211) * lu(k,1993) + lu(k,2021) = lu(k,2021) - lu(k,1212) * lu(k,1993) + lu(k,2104) = lu(k,2104) - lu(k,1208) * lu(k,2100) + lu(k,2110) = lu(k,2110) - lu(k,1209) * lu(k,2100) + lu(k,2118) = lu(k,2118) - lu(k,1210) * lu(k,2100) + lu(k,2121) = lu(k,2121) - lu(k,1211) * lu(k,2100) + lu(k,2128) = lu(k,2128) - lu(k,1212) * lu(k,2100) + lu(k,2212) = lu(k,2212) - lu(k,1208) * lu(k,2207) + lu(k,2218) = lu(k,2218) - lu(k,1209) * lu(k,2207) + lu(k,2226) = lu(k,2226) - lu(k,1210) * lu(k,2207) + lu(k,2229) = lu(k,2229) - lu(k,1211) * lu(k,2207) + lu(k,2236) = lu(k,2236) - lu(k,1212) * lu(k,2207) + lu(k,2319) = lu(k,2319) - lu(k,1208) * lu(k,2314) + lu(k,2325) = lu(k,2325) - lu(k,1209) * lu(k,2314) + lu(k,2334) = lu(k,2334) - lu(k,1210) * lu(k,2314) + lu(k,2337) = lu(k,2337) - lu(k,1211) * lu(k,2314) + lu(k,2344) = lu(k,2344) - lu(k,1212) * lu(k,2314) + lu(k,2397) = lu(k,2397) - lu(k,1208) * lu(k,2392) + lu(k,2403) = lu(k,2403) - lu(k,1209) * lu(k,2392) + lu(k,2409) = lu(k,2409) - lu(k,1210) * lu(k,2392) + lu(k,2412) = lu(k,2412) - lu(k,1211) * lu(k,2392) + lu(k,2419) = lu(k,2419) - lu(k,1212) * lu(k,2392) + lu(k,1216) = 1._r8 / lu(k,1216) + lu(k,1217) = lu(k,1217) * lu(k,1216) + lu(k,1218) = lu(k,1218) * lu(k,1216) + lu(k,1219) = lu(k,1219) * lu(k,1216) + lu(k,1220) = lu(k,1220) * lu(k,1216) + lu(k,1221) = lu(k,1221) * lu(k,1216) + lu(k,1222) = lu(k,1222) * lu(k,1216) + lu(k,1223) = lu(k,1223) * lu(k,1216) + lu(k,1224) = lu(k,1224) * lu(k,1216) + lu(k,1225) = lu(k,1225) * lu(k,1216) + lu(k,1297) = lu(k,1297) - lu(k,1217) * lu(k,1294) + lu(k,1302) = lu(k,1302) - lu(k,1218) * lu(k,1294) + lu(k,1304) = lu(k,1304) - lu(k,1219) * lu(k,1294) + lu(k,1305) = lu(k,1305) - lu(k,1220) * lu(k,1294) + lu(k,1306) = lu(k,1306) - lu(k,1221) * lu(k,1294) + lu(k,1307) = lu(k,1307) - lu(k,1222) * lu(k,1294) + lu(k,1310) = lu(k,1310) - lu(k,1223) * lu(k,1294) + lu(k,1312) = lu(k,1312) - lu(k,1224) * lu(k,1294) + lu(k,1313) = lu(k,1313) - lu(k,1225) * lu(k,1294) + lu(k,1330) = lu(k,1330) - lu(k,1217) * lu(k,1327) + lu(k,1335) = lu(k,1335) - lu(k,1218) * lu(k,1327) + lu(k,1337) = lu(k,1337) - lu(k,1219) * lu(k,1327) + lu(k,1338) = lu(k,1338) - lu(k,1220) * lu(k,1327) + lu(k,1339) = lu(k,1339) - lu(k,1221) * lu(k,1327) + lu(k,1340) = lu(k,1340) - lu(k,1222) * lu(k,1327) + lu(k,1343) = lu(k,1343) - lu(k,1223) * lu(k,1327) + lu(k,1345) = lu(k,1345) - lu(k,1224) * lu(k,1327) + lu(k,1346) = lu(k,1346) - lu(k,1225) * lu(k,1327) + lu(k,1354) = lu(k,1354) - lu(k,1217) * lu(k,1353) + lu(k,1357) = lu(k,1357) - lu(k,1218) * lu(k,1353) + lu(k,1359) = lu(k,1359) - lu(k,1219) * lu(k,1353) + lu(k,1360) = lu(k,1360) - lu(k,1220) * lu(k,1353) + lu(k,1361) = lu(k,1361) - lu(k,1221) * lu(k,1353) + lu(k,1362) = lu(k,1362) - lu(k,1222) * lu(k,1353) + lu(k,1364) = lu(k,1364) - lu(k,1223) * lu(k,1353) + lu(k,1366) = lu(k,1366) - lu(k,1224) * lu(k,1353) + lu(k,1367) = lu(k,1367) - lu(k,1225) * lu(k,1353) + lu(k,1782) = lu(k,1782) - lu(k,1217) * lu(k,1778) + lu(k,1788) = lu(k,1788) - lu(k,1218) * lu(k,1778) + lu(k,1798) = lu(k,1798) - lu(k,1219) * lu(k,1778) + lu(k,1800) = lu(k,1800) - lu(k,1220) * lu(k,1778) + lu(k,1801) = lu(k,1801) - lu(k,1221) * lu(k,1778) + lu(k,1802) = lu(k,1802) - lu(k,1222) * lu(k,1778) + lu(k,1808) = lu(k,1808) - lu(k,1223) * lu(k,1778) + lu(k,1810) = lu(k,1810) - lu(k,1224) * lu(k,1778) + lu(k,1811) = lu(k,1811) - lu(k,1225) * lu(k,1778) + lu(k,1834) = - lu(k,1217) * lu(k,1833) + lu(k,1835) = lu(k,1835) - lu(k,1218) * lu(k,1833) + lu(k,1844) = lu(k,1844) - lu(k,1219) * lu(k,1833) + lu(k,1846) = lu(k,1846) - lu(k,1220) * lu(k,1833) + lu(k,1847) = lu(k,1847) - lu(k,1221) * lu(k,1833) + lu(k,1848) = lu(k,1848) - lu(k,1222) * lu(k,1833) + lu(k,1854) = lu(k,1854) - lu(k,1223) * lu(k,1833) + lu(k,1856) = lu(k,1856) - lu(k,1224) * lu(k,1833) + lu(k,1857) = lu(k,1857) - lu(k,1225) * lu(k,1833) + lu(k,1998) = lu(k,1998) - lu(k,1217) * lu(k,1994) + lu(k,2004) = lu(k,2004) - lu(k,1218) * lu(k,1994) + lu(k,2011) = lu(k,2011) - lu(k,1219) * lu(k,1994) + lu(k,2013) = lu(k,2013) - lu(k,1220) * lu(k,1994) + lu(k,2014) = lu(k,2014) - lu(k,1221) * lu(k,1994) + lu(k,2015) = lu(k,2015) - lu(k,1222) * lu(k,1994) + lu(k,2021) = lu(k,2021) - lu(k,1223) * lu(k,1994) + lu(k,2023) = lu(k,2023) - lu(k,1224) * lu(k,1994) + lu(k,2024) = lu(k,2024) - lu(k,1225) * lu(k,1994) + lu(k,2104) = lu(k,2104) - lu(k,1217) * lu(k,2101) + lu(k,2110) = lu(k,2110) - lu(k,1218) * lu(k,2101) + lu(k,2118) = lu(k,2118) - lu(k,1219) * lu(k,2101) + lu(k,2120) = lu(k,2120) - lu(k,1220) * lu(k,2101) + lu(k,2121) = lu(k,2121) - lu(k,1221) * lu(k,2101) + lu(k,2122) = lu(k,2122) - lu(k,1222) * lu(k,2101) + lu(k,2128) = lu(k,2128) - lu(k,1223) * lu(k,2101) + lu(k,2130) = lu(k,2130) - lu(k,1224) * lu(k,2101) + lu(k,2131) = lu(k,2131) - lu(k,1225) * lu(k,2101) + lu(k,2212) = lu(k,2212) - lu(k,1217) * lu(k,2208) + lu(k,2218) = lu(k,2218) - lu(k,1218) * lu(k,2208) + lu(k,2226) = lu(k,2226) - lu(k,1219) * lu(k,2208) + lu(k,2228) = lu(k,2228) - lu(k,1220) * lu(k,2208) + lu(k,2229) = lu(k,2229) - lu(k,1221) * lu(k,2208) + lu(k,2230) = lu(k,2230) - lu(k,1222) * lu(k,2208) + lu(k,2236) = lu(k,2236) - lu(k,1223) * lu(k,2208) + lu(k,2238) = lu(k,2238) - lu(k,1224) * lu(k,2208) + lu(k,2239) = lu(k,2239) - lu(k,1225) * lu(k,2208) + lu(k,2319) = lu(k,2319) - lu(k,1217) * lu(k,2315) + lu(k,2325) = lu(k,2325) - lu(k,1218) * lu(k,2315) + lu(k,2334) = lu(k,2334) - lu(k,1219) * lu(k,2315) + lu(k,2336) = lu(k,2336) - lu(k,1220) * lu(k,2315) + lu(k,2337) = lu(k,2337) - lu(k,1221) * lu(k,2315) + lu(k,2338) = lu(k,2338) - lu(k,1222) * lu(k,2315) + lu(k,2344) = lu(k,2344) - lu(k,1223) * lu(k,2315) + lu(k,2346) = lu(k,2346) - lu(k,1224) * lu(k,2315) + lu(k,2347) = lu(k,2347) - lu(k,1225) * lu(k,2315) + lu(k,2397) = lu(k,2397) - lu(k,1217) * lu(k,2393) + lu(k,2403) = lu(k,2403) - lu(k,1218) * lu(k,2393) + lu(k,2409) = lu(k,2409) - lu(k,1219) * lu(k,2393) + lu(k,2411) = lu(k,2411) - lu(k,1220) * lu(k,2393) + lu(k,2412) = lu(k,2412) - lu(k,1221) * lu(k,2393) + lu(k,2413) = lu(k,2413) - lu(k,1222) * lu(k,2393) + lu(k,2419) = lu(k,2419) - lu(k,1223) * lu(k,2393) + lu(k,2421) = lu(k,2421) - lu(k,1224) * lu(k,2393) + lu(k,2422) = lu(k,2422) - lu(k,1225) * lu(k,2393) end do end subroutine lu_fac25 subroutine lu_fac26( avec_len, lu ) @@ -5356,463 +5051,419 @@ subroutine lu_fac26( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1281) = 1._r8 / lu(k,1281) - lu(k,1282) = lu(k,1282) * lu(k,1281) - lu(k,1283) = lu(k,1283) * lu(k,1281) - lu(k,1284) = lu(k,1284) * lu(k,1281) - lu(k,1285) = lu(k,1285) * lu(k,1281) - lu(k,1286) = lu(k,1286) * lu(k,1281) - lu(k,1287) = lu(k,1287) * lu(k,1281) - lu(k,1288) = lu(k,1288) * lu(k,1281) - lu(k,1303) = lu(k,1303) - lu(k,1282) * lu(k,1298) - lu(k,1304) = lu(k,1304) - lu(k,1283) * lu(k,1298) - lu(k,1305) = lu(k,1305) - lu(k,1284) * lu(k,1298) - lu(k,1306) = lu(k,1306) - lu(k,1285) * lu(k,1298) - lu(k,1310) = lu(k,1310) - lu(k,1286) * lu(k,1298) - lu(k,1312) = lu(k,1312) - lu(k,1287) * lu(k,1298) - lu(k,1314) = lu(k,1314) - lu(k,1288) * lu(k,1298) - lu(k,1336) = lu(k,1336) - lu(k,1282) * lu(k,1331) - lu(k,1337) = lu(k,1337) - lu(k,1283) * lu(k,1331) - lu(k,1338) = lu(k,1338) - lu(k,1284) * lu(k,1331) - lu(k,1339) = lu(k,1339) - lu(k,1285) * lu(k,1331) - lu(k,1343) = lu(k,1343) - lu(k,1286) * lu(k,1331) - lu(k,1345) = lu(k,1345) - lu(k,1287) * lu(k,1331) - lu(k,1347) = lu(k,1347) - lu(k,1288) * lu(k,1331) - lu(k,1358) = lu(k,1358) - lu(k,1282) * lu(k,1355) - lu(k,1359) = lu(k,1359) - lu(k,1283) * lu(k,1355) - lu(k,1360) = lu(k,1360) - lu(k,1284) * lu(k,1355) - lu(k,1361) = lu(k,1361) - lu(k,1285) * lu(k,1355) - lu(k,1365) = lu(k,1365) - lu(k,1286) * lu(k,1355) - lu(k,1366) = lu(k,1366) - lu(k,1287) * lu(k,1355) - lu(k,1368) = lu(k,1368) - lu(k,1288) * lu(k,1355) - lu(k,1378) = lu(k,1378) - lu(k,1282) * lu(k,1374) - lu(k,1379) = lu(k,1379) - lu(k,1283) * lu(k,1374) - lu(k,1381) = lu(k,1381) - lu(k,1284) * lu(k,1374) - lu(k,1382) = lu(k,1382) - lu(k,1285) * lu(k,1374) - lu(k,1386) = lu(k,1386) - lu(k,1286) * lu(k,1374) - lu(k,1389) = lu(k,1389) - lu(k,1287) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,1288) * lu(k,1374) - lu(k,1398) = lu(k,1398) - lu(k,1282) * lu(k,1396) - lu(k,1399) = lu(k,1399) - lu(k,1283) * lu(k,1396) - lu(k,1400) = lu(k,1400) - lu(k,1284) * lu(k,1396) - lu(k,1401) = lu(k,1401) - lu(k,1285) * lu(k,1396) - lu(k,1405) = - lu(k,1286) * lu(k,1396) - lu(k,1407) = lu(k,1407) - lu(k,1287) * lu(k,1396) - lu(k,1409) = lu(k,1409) - lu(k,1288) * lu(k,1396) - lu(k,1428) = lu(k,1428) - lu(k,1282) * lu(k,1422) - lu(k,1429) = lu(k,1429) - lu(k,1283) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,1284) * lu(k,1422) - lu(k,1432) = lu(k,1432) - lu(k,1285) * lu(k,1422) - lu(k,1436) = lu(k,1436) - lu(k,1286) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,1287) * lu(k,1422) - lu(k,1441) = lu(k,1441) - lu(k,1288) * lu(k,1422) - lu(k,1645) = lu(k,1645) - lu(k,1282) * lu(k,1639) - lu(k,1646) = lu(k,1646) - lu(k,1283) * lu(k,1639) - lu(k,1652) = lu(k,1652) - lu(k,1284) * lu(k,1639) - lu(k,1653) = lu(k,1653) - lu(k,1285) * lu(k,1639) - lu(k,1658) = lu(k,1658) - lu(k,1286) * lu(k,1639) - lu(k,1664) = lu(k,1664) - lu(k,1287) * lu(k,1639) - lu(k,1666) = lu(k,1666) - lu(k,1288) * lu(k,1639) - lu(k,1808) = lu(k,1808) - lu(k,1282) * lu(k,1802) - lu(k,1809) = lu(k,1809) - lu(k,1283) * lu(k,1802) - lu(k,1817) = lu(k,1817) - lu(k,1284) * lu(k,1802) - lu(k,1818) = lu(k,1818) - lu(k,1285) * lu(k,1802) - lu(k,1823) = lu(k,1823) - lu(k,1286) * lu(k,1802) - lu(k,1829) = lu(k,1829) - lu(k,1287) * lu(k,1802) - lu(k,1831) = lu(k,1831) - lu(k,1288) * lu(k,1802) - lu(k,1906) = lu(k,1906) - lu(k,1282) * lu(k,1900) - lu(k,1907) = lu(k,1907) - lu(k,1283) * lu(k,1900) - lu(k,1912) = lu(k,1912) - lu(k,1284) * lu(k,1900) - lu(k,1913) = lu(k,1913) - lu(k,1285) * lu(k,1900) - lu(k,1918) = lu(k,1918) - lu(k,1286) * lu(k,1900) - lu(k,1924) = lu(k,1924) - lu(k,1287) * lu(k,1900) - lu(k,1926) = lu(k,1926) - lu(k,1288) * lu(k,1900) - lu(k,1949) = lu(k,1949) - lu(k,1282) * lu(k,1947) - lu(k,1950) = lu(k,1950) - lu(k,1283) * lu(k,1947) - lu(k,1957) = lu(k,1957) - lu(k,1284) * lu(k,1947) - lu(k,1958) = lu(k,1958) - lu(k,1285) * lu(k,1947) - lu(k,1963) = lu(k,1963) - lu(k,1286) * lu(k,1947) - lu(k,1969) = lu(k,1969) - lu(k,1287) * lu(k,1947) - lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1947) - lu(k,2151) = lu(k,2151) - lu(k,1282) * lu(k,2150) - lu(k,2152) = lu(k,2152) - lu(k,1283) * lu(k,2150) - lu(k,2159) = lu(k,2159) - lu(k,1284) * lu(k,2150) - lu(k,2160) = lu(k,2160) - lu(k,1285) * lu(k,2150) - lu(k,2165) = lu(k,2165) - lu(k,1286) * lu(k,2150) - lu(k,2171) = lu(k,2171) - lu(k,1287) * lu(k,2150) - lu(k,2173) = lu(k,2173) - lu(k,1288) * lu(k,2150) - lu(k,2216) = lu(k,2216) - lu(k,1282) * lu(k,2210) - lu(k,2217) = lu(k,2217) - lu(k,1283) * lu(k,2210) - lu(k,2223) = lu(k,2223) - lu(k,1284) * lu(k,2210) - lu(k,2224) = lu(k,2224) - lu(k,1285) * lu(k,2210) - lu(k,2229) = lu(k,2229) - lu(k,1286) * lu(k,2210) - lu(k,2235) = lu(k,2235) - lu(k,1287) * lu(k,2210) - lu(k,2237) = lu(k,2237) - lu(k,1288) * lu(k,2210) - lu(k,2348) = lu(k,2348) - lu(k,1282) * lu(k,2342) - lu(k,2349) = lu(k,2349) - lu(k,1283) * lu(k,2342) - lu(k,2356) = lu(k,2356) - lu(k,1284) * lu(k,2342) - lu(k,2357) = lu(k,2357) - lu(k,1285) * lu(k,2342) - lu(k,2362) = lu(k,2362) - lu(k,1286) * lu(k,2342) - lu(k,2368) = lu(k,2368) - lu(k,1287) * lu(k,2342) - lu(k,2370) = lu(k,2370) - lu(k,1288) * lu(k,2342) - lu(k,2403) = lu(k,2403) - lu(k,1282) * lu(k,2397) - lu(k,2404) = lu(k,2404) - lu(k,1283) * lu(k,2397) - lu(k,2408) = lu(k,2408) - lu(k,1284) * lu(k,2397) - lu(k,2409) = lu(k,2409) - lu(k,1285) * lu(k,2397) - lu(k,2414) = lu(k,2414) - lu(k,1286) * lu(k,2397) - lu(k,2420) = lu(k,2420) - lu(k,1287) * lu(k,2397) - lu(k,2422) = lu(k,2422) - lu(k,1288) * lu(k,2397) - lu(k,1299) = 1._r8 / lu(k,1299) - lu(k,1300) = lu(k,1300) * lu(k,1299) - lu(k,1301) = lu(k,1301) * lu(k,1299) - lu(k,1302) = lu(k,1302) * lu(k,1299) - lu(k,1303) = lu(k,1303) * lu(k,1299) - lu(k,1304) = lu(k,1304) * lu(k,1299) - lu(k,1305) = lu(k,1305) * lu(k,1299) - lu(k,1306) = lu(k,1306) * lu(k,1299) - lu(k,1307) = lu(k,1307) * lu(k,1299) - lu(k,1308) = lu(k,1308) * lu(k,1299) - lu(k,1309) = lu(k,1309) * lu(k,1299) - lu(k,1310) = lu(k,1310) * lu(k,1299) - lu(k,1311) = lu(k,1311) * lu(k,1299) - lu(k,1312) = lu(k,1312) * lu(k,1299) - lu(k,1313) = lu(k,1313) * lu(k,1299) - lu(k,1314) = lu(k,1314) * lu(k,1299) - lu(k,1425) = lu(k,1425) - lu(k,1300) * lu(k,1423) - lu(k,1426) = lu(k,1426) - lu(k,1301) * lu(k,1423) - lu(k,1427) = lu(k,1427) - lu(k,1302) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,1303) * lu(k,1423) - lu(k,1429) = lu(k,1429) - lu(k,1304) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,1305) * lu(k,1423) - lu(k,1432) = lu(k,1432) - lu(k,1306) * lu(k,1423) - lu(k,1433) = lu(k,1433) - lu(k,1307) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,1308) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,1309) * lu(k,1423) - lu(k,1436) = lu(k,1436) - lu(k,1310) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,1311) * lu(k,1423) - lu(k,1439) = lu(k,1439) - lu(k,1312) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,1313) * lu(k,1423) - lu(k,1441) = lu(k,1441) - lu(k,1314) * lu(k,1423) - lu(k,1642) = lu(k,1642) - lu(k,1300) * lu(k,1640) - lu(k,1643) = lu(k,1643) - lu(k,1301) * lu(k,1640) - lu(k,1644) = lu(k,1644) - lu(k,1302) * lu(k,1640) - lu(k,1645) = lu(k,1645) - lu(k,1303) * lu(k,1640) - lu(k,1646) = lu(k,1646) - lu(k,1304) * lu(k,1640) - lu(k,1652) = lu(k,1652) - lu(k,1305) * lu(k,1640) - lu(k,1653) = lu(k,1653) - lu(k,1306) * lu(k,1640) - lu(k,1654) = lu(k,1654) - lu(k,1307) * lu(k,1640) - lu(k,1655) = lu(k,1655) - lu(k,1308) * lu(k,1640) - lu(k,1656) = lu(k,1656) - lu(k,1309) * lu(k,1640) - lu(k,1658) = lu(k,1658) - lu(k,1310) * lu(k,1640) - lu(k,1662) = lu(k,1662) - lu(k,1311) * lu(k,1640) - lu(k,1664) = lu(k,1664) - lu(k,1312) * lu(k,1640) - lu(k,1665) = lu(k,1665) - lu(k,1313) * lu(k,1640) - lu(k,1666) = lu(k,1666) - lu(k,1314) * lu(k,1640) - lu(k,1805) = lu(k,1805) - lu(k,1300) * lu(k,1803) - lu(k,1806) = lu(k,1806) - lu(k,1301) * lu(k,1803) - lu(k,1807) = lu(k,1807) - lu(k,1302) * lu(k,1803) - lu(k,1808) = lu(k,1808) - lu(k,1303) * lu(k,1803) - lu(k,1809) = lu(k,1809) - lu(k,1304) * lu(k,1803) - lu(k,1817) = lu(k,1817) - lu(k,1305) * lu(k,1803) - lu(k,1818) = lu(k,1818) - lu(k,1306) * lu(k,1803) - lu(k,1819) = lu(k,1819) - lu(k,1307) * lu(k,1803) - lu(k,1820) = lu(k,1820) - lu(k,1308) * lu(k,1803) - lu(k,1821) = lu(k,1821) - lu(k,1309) * lu(k,1803) - lu(k,1823) = lu(k,1823) - lu(k,1310) * lu(k,1803) - lu(k,1827) = lu(k,1827) - lu(k,1311) * lu(k,1803) - lu(k,1829) = lu(k,1829) - lu(k,1312) * lu(k,1803) - lu(k,1830) = lu(k,1830) - lu(k,1313) * lu(k,1803) - lu(k,1831) = lu(k,1831) - lu(k,1314) * lu(k,1803) - lu(k,1903) = lu(k,1903) - lu(k,1300) * lu(k,1901) - lu(k,1904) = lu(k,1904) - lu(k,1301) * lu(k,1901) - lu(k,1905) = lu(k,1905) - lu(k,1302) * lu(k,1901) - lu(k,1906) = lu(k,1906) - lu(k,1303) * lu(k,1901) - lu(k,1907) = lu(k,1907) - lu(k,1304) * lu(k,1901) - lu(k,1912) = lu(k,1912) - lu(k,1305) * lu(k,1901) - lu(k,1913) = lu(k,1913) - lu(k,1306) * lu(k,1901) - lu(k,1914) = lu(k,1914) - lu(k,1307) * lu(k,1901) - lu(k,1915) = lu(k,1915) - lu(k,1308) * lu(k,1901) - lu(k,1916) = lu(k,1916) - lu(k,1309) * lu(k,1901) - lu(k,1918) = lu(k,1918) - lu(k,1310) * lu(k,1901) - lu(k,1922) = lu(k,1922) - lu(k,1311) * lu(k,1901) - lu(k,1924) = lu(k,1924) - lu(k,1312) * lu(k,1901) - lu(k,1925) = lu(k,1925) - lu(k,1313) * lu(k,1901) - lu(k,1926) = lu(k,1926) - lu(k,1314) * lu(k,1901) - lu(k,2213) = lu(k,2213) - lu(k,1300) * lu(k,2211) - lu(k,2214) = lu(k,2214) - lu(k,1301) * lu(k,2211) - lu(k,2215) = lu(k,2215) - lu(k,1302) * lu(k,2211) - lu(k,2216) = lu(k,2216) - lu(k,1303) * lu(k,2211) - lu(k,2217) = lu(k,2217) - lu(k,1304) * lu(k,2211) - lu(k,2223) = lu(k,2223) - lu(k,1305) * lu(k,2211) - lu(k,2224) = lu(k,2224) - lu(k,1306) * lu(k,2211) - lu(k,2225) = lu(k,2225) - lu(k,1307) * lu(k,2211) - lu(k,2226) = lu(k,2226) - lu(k,1308) * lu(k,2211) - lu(k,2227) = lu(k,2227) - lu(k,1309) * lu(k,2211) - lu(k,2229) = lu(k,2229) - lu(k,1310) * lu(k,2211) - lu(k,2233) = lu(k,2233) - lu(k,1311) * lu(k,2211) - lu(k,2235) = lu(k,2235) - lu(k,1312) * lu(k,2211) - lu(k,2236) = lu(k,2236) - lu(k,1313) * lu(k,2211) - lu(k,2237) = lu(k,2237) - lu(k,1314) * lu(k,2211) - lu(k,2345) = lu(k,2345) - lu(k,1300) * lu(k,2343) - lu(k,2346) = lu(k,2346) - lu(k,1301) * lu(k,2343) - lu(k,2347) = lu(k,2347) - lu(k,1302) * lu(k,2343) - lu(k,2348) = lu(k,2348) - lu(k,1303) * lu(k,2343) - lu(k,2349) = lu(k,2349) - lu(k,1304) * lu(k,2343) - lu(k,2356) = lu(k,2356) - lu(k,1305) * lu(k,2343) - lu(k,2357) = lu(k,2357) - lu(k,1306) * lu(k,2343) - lu(k,2358) = lu(k,2358) - lu(k,1307) * lu(k,2343) - lu(k,2359) = lu(k,2359) - lu(k,1308) * lu(k,2343) - lu(k,2360) = lu(k,2360) - lu(k,1309) * lu(k,2343) - lu(k,2362) = lu(k,2362) - lu(k,1310) * lu(k,2343) - lu(k,2366) = lu(k,2366) - lu(k,1311) * lu(k,2343) - lu(k,2368) = lu(k,2368) - lu(k,1312) * lu(k,2343) - lu(k,2369) = lu(k,2369) - lu(k,1313) * lu(k,2343) - lu(k,2370) = lu(k,2370) - lu(k,1314) * lu(k,2343) - lu(k,2400) = lu(k,2400) - lu(k,1300) * lu(k,2398) - lu(k,2401) = lu(k,2401) - lu(k,1301) * lu(k,2398) - lu(k,2402) = lu(k,2402) - lu(k,1302) * lu(k,2398) - lu(k,2403) = lu(k,2403) - lu(k,1303) * lu(k,2398) - lu(k,2404) = lu(k,2404) - lu(k,1304) * lu(k,2398) - lu(k,2408) = lu(k,2408) - lu(k,1305) * lu(k,2398) - lu(k,2409) = lu(k,2409) - lu(k,1306) * lu(k,2398) - lu(k,2410) = lu(k,2410) - lu(k,1307) * lu(k,2398) - lu(k,2411) = lu(k,2411) - lu(k,1308) * lu(k,2398) - lu(k,2412) = lu(k,2412) - lu(k,1309) * lu(k,2398) - lu(k,2414) = lu(k,2414) - lu(k,1310) * lu(k,2398) - lu(k,2418) = lu(k,2418) - lu(k,1311) * lu(k,2398) - lu(k,2420) = lu(k,2420) - lu(k,1312) * lu(k,2398) - lu(k,2421) = lu(k,2421) - lu(k,1313) * lu(k,2398) - lu(k,2422) = lu(k,2422) - lu(k,1314) * lu(k,2398) - lu(k,1332) = 1._r8 / lu(k,1332) - lu(k,1333) = lu(k,1333) * lu(k,1332) - lu(k,1334) = lu(k,1334) * lu(k,1332) - lu(k,1335) = lu(k,1335) * lu(k,1332) - lu(k,1336) = lu(k,1336) * lu(k,1332) - lu(k,1337) = lu(k,1337) * lu(k,1332) - lu(k,1338) = lu(k,1338) * lu(k,1332) - lu(k,1339) = lu(k,1339) * lu(k,1332) - lu(k,1340) = lu(k,1340) * lu(k,1332) - lu(k,1341) = lu(k,1341) * lu(k,1332) - lu(k,1342) = lu(k,1342) * lu(k,1332) - lu(k,1343) = lu(k,1343) * lu(k,1332) - lu(k,1344) = lu(k,1344) * lu(k,1332) - lu(k,1345) = lu(k,1345) * lu(k,1332) - lu(k,1346) = lu(k,1346) * lu(k,1332) - lu(k,1347) = lu(k,1347) * lu(k,1332) - lu(k,1425) = lu(k,1425) - lu(k,1333) * lu(k,1424) - lu(k,1426) = lu(k,1426) - lu(k,1334) * lu(k,1424) - lu(k,1427) = lu(k,1427) - lu(k,1335) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,1336) * lu(k,1424) - lu(k,1429) = lu(k,1429) - lu(k,1337) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,1338) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,1339) * lu(k,1424) - lu(k,1433) = lu(k,1433) - lu(k,1340) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,1341) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,1342) * lu(k,1424) - lu(k,1436) = lu(k,1436) - lu(k,1343) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,1344) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,1345) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,1346) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,1347) * lu(k,1424) - lu(k,1642) = lu(k,1642) - lu(k,1333) * lu(k,1641) - lu(k,1643) = lu(k,1643) - lu(k,1334) * lu(k,1641) - lu(k,1644) = lu(k,1644) - lu(k,1335) * lu(k,1641) - lu(k,1645) = lu(k,1645) - lu(k,1336) * lu(k,1641) - lu(k,1646) = lu(k,1646) - lu(k,1337) * lu(k,1641) - lu(k,1652) = lu(k,1652) - lu(k,1338) * lu(k,1641) - lu(k,1653) = lu(k,1653) - lu(k,1339) * lu(k,1641) - lu(k,1654) = lu(k,1654) - lu(k,1340) * lu(k,1641) - lu(k,1655) = lu(k,1655) - lu(k,1341) * lu(k,1641) - lu(k,1656) = lu(k,1656) - lu(k,1342) * lu(k,1641) - lu(k,1658) = lu(k,1658) - lu(k,1343) * lu(k,1641) - lu(k,1662) = lu(k,1662) - lu(k,1344) * lu(k,1641) - lu(k,1664) = lu(k,1664) - lu(k,1345) * lu(k,1641) - lu(k,1665) = lu(k,1665) - lu(k,1346) * lu(k,1641) - lu(k,1666) = lu(k,1666) - lu(k,1347) * lu(k,1641) - lu(k,1805) = lu(k,1805) - lu(k,1333) * lu(k,1804) - lu(k,1806) = lu(k,1806) - lu(k,1334) * lu(k,1804) - lu(k,1807) = lu(k,1807) - lu(k,1335) * lu(k,1804) - lu(k,1808) = lu(k,1808) - lu(k,1336) * lu(k,1804) - lu(k,1809) = lu(k,1809) - lu(k,1337) * lu(k,1804) - lu(k,1817) = lu(k,1817) - lu(k,1338) * lu(k,1804) - lu(k,1818) = lu(k,1818) - lu(k,1339) * lu(k,1804) - lu(k,1819) = lu(k,1819) - lu(k,1340) * lu(k,1804) - lu(k,1820) = lu(k,1820) - lu(k,1341) * lu(k,1804) - lu(k,1821) = lu(k,1821) - lu(k,1342) * lu(k,1804) - lu(k,1823) = lu(k,1823) - lu(k,1343) * lu(k,1804) - lu(k,1827) = lu(k,1827) - lu(k,1344) * lu(k,1804) - lu(k,1829) = lu(k,1829) - lu(k,1345) * lu(k,1804) - lu(k,1830) = lu(k,1830) - lu(k,1346) * lu(k,1804) - lu(k,1831) = lu(k,1831) - lu(k,1347) * lu(k,1804) - lu(k,1903) = lu(k,1903) - lu(k,1333) * lu(k,1902) - lu(k,1904) = lu(k,1904) - lu(k,1334) * lu(k,1902) - lu(k,1905) = lu(k,1905) - lu(k,1335) * lu(k,1902) - lu(k,1906) = lu(k,1906) - lu(k,1336) * lu(k,1902) - lu(k,1907) = lu(k,1907) - lu(k,1337) * lu(k,1902) - lu(k,1912) = lu(k,1912) - lu(k,1338) * lu(k,1902) - lu(k,1913) = lu(k,1913) - lu(k,1339) * lu(k,1902) - lu(k,1914) = lu(k,1914) - lu(k,1340) * lu(k,1902) - lu(k,1915) = lu(k,1915) - lu(k,1341) * lu(k,1902) - lu(k,1916) = lu(k,1916) - lu(k,1342) * lu(k,1902) - lu(k,1918) = lu(k,1918) - lu(k,1343) * lu(k,1902) - lu(k,1922) = lu(k,1922) - lu(k,1344) * lu(k,1902) - lu(k,1924) = lu(k,1924) - lu(k,1345) * lu(k,1902) - lu(k,1925) = lu(k,1925) - lu(k,1346) * lu(k,1902) - lu(k,1926) = lu(k,1926) - lu(k,1347) * lu(k,1902) - lu(k,2213) = lu(k,2213) - lu(k,1333) * lu(k,2212) - lu(k,2214) = lu(k,2214) - lu(k,1334) * lu(k,2212) - lu(k,2215) = lu(k,2215) - lu(k,1335) * lu(k,2212) - lu(k,2216) = lu(k,2216) - lu(k,1336) * lu(k,2212) - lu(k,2217) = lu(k,2217) - lu(k,1337) * lu(k,2212) - lu(k,2223) = lu(k,2223) - lu(k,1338) * lu(k,2212) - lu(k,2224) = lu(k,2224) - lu(k,1339) * lu(k,2212) - lu(k,2225) = lu(k,2225) - lu(k,1340) * lu(k,2212) - lu(k,2226) = lu(k,2226) - lu(k,1341) * lu(k,2212) - lu(k,2227) = lu(k,2227) - lu(k,1342) * lu(k,2212) - lu(k,2229) = lu(k,2229) - lu(k,1343) * lu(k,2212) - lu(k,2233) = lu(k,2233) - lu(k,1344) * lu(k,2212) - lu(k,2235) = lu(k,2235) - lu(k,1345) * lu(k,2212) - lu(k,2236) = lu(k,2236) - lu(k,1346) * lu(k,2212) - lu(k,2237) = lu(k,2237) - lu(k,1347) * lu(k,2212) - lu(k,2345) = lu(k,2345) - lu(k,1333) * lu(k,2344) - lu(k,2346) = lu(k,2346) - lu(k,1334) * lu(k,2344) - lu(k,2347) = lu(k,2347) - lu(k,1335) * lu(k,2344) - lu(k,2348) = lu(k,2348) - lu(k,1336) * lu(k,2344) - lu(k,2349) = lu(k,2349) - lu(k,1337) * lu(k,2344) - lu(k,2356) = lu(k,2356) - lu(k,1338) * lu(k,2344) - lu(k,2357) = lu(k,2357) - lu(k,1339) * lu(k,2344) - lu(k,2358) = lu(k,2358) - lu(k,1340) * lu(k,2344) - lu(k,2359) = lu(k,2359) - lu(k,1341) * lu(k,2344) - lu(k,2360) = lu(k,2360) - lu(k,1342) * lu(k,2344) - lu(k,2362) = lu(k,2362) - lu(k,1343) * lu(k,2344) - lu(k,2366) = lu(k,2366) - lu(k,1344) * lu(k,2344) - lu(k,2368) = lu(k,2368) - lu(k,1345) * lu(k,2344) - lu(k,2369) = lu(k,2369) - lu(k,1346) * lu(k,2344) - lu(k,2370) = lu(k,2370) - lu(k,1347) * lu(k,2344) - lu(k,2400) = lu(k,2400) - lu(k,1333) * lu(k,2399) - lu(k,2401) = lu(k,2401) - lu(k,1334) * lu(k,2399) - lu(k,2402) = lu(k,2402) - lu(k,1335) * lu(k,2399) - lu(k,2403) = lu(k,2403) - lu(k,1336) * lu(k,2399) - lu(k,2404) = lu(k,2404) - lu(k,1337) * lu(k,2399) - lu(k,2408) = lu(k,2408) - lu(k,1338) * lu(k,2399) - lu(k,2409) = lu(k,2409) - lu(k,1339) * lu(k,2399) - lu(k,2410) = lu(k,2410) - lu(k,1340) * lu(k,2399) - lu(k,2411) = lu(k,2411) - lu(k,1341) * lu(k,2399) - lu(k,2412) = lu(k,2412) - lu(k,1342) * lu(k,2399) - lu(k,2414) = lu(k,2414) - lu(k,1343) * lu(k,2399) - lu(k,2418) = lu(k,2418) - lu(k,1344) * lu(k,2399) - lu(k,2420) = lu(k,2420) - lu(k,1345) * lu(k,2399) - lu(k,2421) = lu(k,2421) - lu(k,1346) * lu(k,2399) - lu(k,2422) = lu(k,2422) - lu(k,1347) * lu(k,2399) - lu(k,1356) = 1._r8 / lu(k,1356) - lu(k,1357) = lu(k,1357) * lu(k,1356) - lu(k,1358) = lu(k,1358) * lu(k,1356) - lu(k,1359) = lu(k,1359) * lu(k,1356) - lu(k,1360) = lu(k,1360) * lu(k,1356) - lu(k,1361) = lu(k,1361) * lu(k,1356) - lu(k,1362) = lu(k,1362) * lu(k,1356) - lu(k,1363) = lu(k,1363) * lu(k,1356) - lu(k,1364) = lu(k,1364) * lu(k,1356) - lu(k,1365) = lu(k,1365) * lu(k,1356) - lu(k,1366) = lu(k,1366) * lu(k,1356) - lu(k,1367) = lu(k,1367) * lu(k,1356) - lu(k,1368) = lu(k,1368) * lu(k,1356) - lu(k,1377) = - lu(k,1357) * lu(k,1375) - lu(k,1378) = lu(k,1378) - lu(k,1358) * lu(k,1375) - lu(k,1379) = lu(k,1379) - lu(k,1359) * lu(k,1375) - lu(k,1381) = lu(k,1381) - lu(k,1360) * lu(k,1375) - lu(k,1382) = lu(k,1382) - lu(k,1361) * lu(k,1375) - lu(k,1383) = lu(k,1383) - lu(k,1362) * lu(k,1375) - lu(k,1384) = lu(k,1384) - lu(k,1363) * lu(k,1375) - lu(k,1385) = lu(k,1385) - lu(k,1364) * lu(k,1375) - lu(k,1386) = lu(k,1386) - lu(k,1365) * lu(k,1375) - lu(k,1389) = lu(k,1389) - lu(k,1366) * lu(k,1375) - lu(k,1390) = lu(k,1390) - lu(k,1367) * lu(k,1375) - lu(k,1391) = lu(k,1391) - lu(k,1368) * lu(k,1375) - lu(k,1427) = lu(k,1427) - lu(k,1357) * lu(k,1425) - lu(k,1428) = lu(k,1428) - lu(k,1358) * lu(k,1425) - lu(k,1429) = lu(k,1429) - lu(k,1359) * lu(k,1425) - lu(k,1431) = lu(k,1431) - lu(k,1360) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,1361) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,1362) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,1363) * lu(k,1425) - lu(k,1435) = lu(k,1435) - lu(k,1364) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,1365) * lu(k,1425) - lu(k,1439) = lu(k,1439) - lu(k,1366) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,1367) * lu(k,1425) - lu(k,1441) = lu(k,1441) - lu(k,1368) * lu(k,1425) - lu(k,1644) = lu(k,1644) - lu(k,1357) * lu(k,1642) - lu(k,1645) = lu(k,1645) - lu(k,1358) * lu(k,1642) - lu(k,1646) = lu(k,1646) - lu(k,1359) * lu(k,1642) - lu(k,1652) = lu(k,1652) - lu(k,1360) * lu(k,1642) - lu(k,1653) = lu(k,1653) - lu(k,1361) * lu(k,1642) - lu(k,1654) = lu(k,1654) - lu(k,1362) * lu(k,1642) - lu(k,1655) = lu(k,1655) - lu(k,1363) * lu(k,1642) - lu(k,1656) = lu(k,1656) - lu(k,1364) * lu(k,1642) - lu(k,1658) = lu(k,1658) - lu(k,1365) * lu(k,1642) - lu(k,1664) = lu(k,1664) - lu(k,1366) * lu(k,1642) - lu(k,1665) = lu(k,1665) - lu(k,1367) * lu(k,1642) - lu(k,1666) = lu(k,1666) - lu(k,1368) * lu(k,1642) - lu(k,1807) = lu(k,1807) - lu(k,1357) * lu(k,1805) - lu(k,1808) = lu(k,1808) - lu(k,1358) * lu(k,1805) - lu(k,1809) = lu(k,1809) - lu(k,1359) * lu(k,1805) - lu(k,1817) = lu(k,1817) - lu(k,1360) * lu(k,1805) - lu(k,1818) = lu(k,1818) - lu(k,1361) * lu(k,1805) - lu(k,1819) = lu(k,1819) - lu(k,1362) * lu(k,1805) - lu(k,1820) = lu(k,1820) - lu(k,1363) * lu(k,1805) - lu(k,1821) = lu(k,1821) - lu(k,1364) * lu(k,1805) - lu(k,1823) = lu(k,1823) - lu(k,1365) * lu(k,1805) - lu(k,1829) = lu(k,1829) - lu(k,1366) * lu(k,1805) - lu(k,1830) = lu(k,1830) - lu(k,1367) * lu(k,1805) - lu(k,1831) = lu(k,1831) - lu(k,1368) * lu(k,1805) - lu(k,1905) = lu(k,1905) - lu(k,1357) * lu(k,1903) - lu(k,1906) = lu(k,1906) - lu(k,1358) * lu(k,1903) - lu(k,1907) = lu(k,1907) - lu(k,1359) * lu(k,1903) - lu(k,1912) = lu(k,1912) - lu(k,1360) * lu(k,1903) - lu(k,1913) = lu(k,1913) - lu(k,1361) * lu(k,1903) - lu(k,1914) = lu(k,1914) - lu(k,1362) * lu(k,1903) - lu(k,1915) = lu(k,1915) - lu(k,1363) * lu(k,1903) - lu(k,1916) = lu(k,1916) - lu(k,1364) * lu(k,1903) - lu(k,1918) = lu(k,1918) - lu(k,1365) * lu(k,1903) - lu(k,1924) = lu(k,1924) - lu(k,1366) * lu(k,1903) - lu(k,1925) = lu(k,1925) - lu(k,1367) * lu(k,1903) - lu(k,1926) = lu(k,1926) - lu(k,1368) * lu(k,1903) - lu(k,2215) = lu(k,2215) - lu(k,1357) * lu(k,2213) - lu(k,2216) = lu(k,2216) - lu(k,1358) * lu(k,2213) - lu(k,2217) = lu(k,2217) - lu(k,1359) * lu(k,2213) - lu(k,2223) = lu(k,2223) - lu(k,1360) * lu(k,2213) - lu(k,2224) = lu(k,2224) - lu(k,1361) * lu(k,2213) - lu(k,2225) = lu(k,2225) - lu(k,1362) * lu(k,2213) - lu(k,2226) = lu(k,2226) - lu(k,1363) * lu(k,2213) - lu(k,2227) = lu(k,2227) - lu(k,1364) * lu(k,2213) - lu(k,2229) = lu(k,2229) - lu(k,1365) * lu(k,2213) - lu(k,2235) = lu(k,2235) - lu(k,1366) * lu(k,2213) - lu(k,2236) = lu(k,2236) - lu(k,1367) * lu(k,2213) - lu(k,2237) = lu(k,2237) - lu(k,1368) * lu(k,2213) - lu(k,2347) = lu(k,2347) - lu(k,1357) * lu(k,2345) - lu(k,2348) = lu(k,2348) - lu(k,1358) * lu(k,2345) - lu(k,2349) = lu(k,2349) - lu(k,1359) * lu(k,2345) - lu(k,2356) = lu(k,2356) - lu(k,1360) * lu(k,2345) - lu(k,2357) = lu(k,2357) - lu(k,1361) * lu(k,2345) - lu(k,2358) = lu(k,2358) - lu(k,1362) * lu(k,2345) - lu(k,2359) = lu(k,2359) - lu(k,1363) * lu(k,2345) - lu(k,2360) = lu(k,2360) - lu(k,1364) * lu(k,2345) - lu(k,2362) = lu(k,2362) - lu(k,1365) * lu(k,2345) - lu(k,2368) = lu(k,2368) - lu(k,1366) * lu(k,2345) - lu(k,2369) = lu(k,2369) - lu(k,1367) * lu(k,2345) - lu(k,2370) = lu(k,2370) - lu(k,1368) * lu(k,2345) - lu(k,2402) = lu(k,2402) - lu(k,1357) * lu(k,2400) - lu(k,2403) = lu(k,2403) - lu(k,1358) * lu(k,2400) - lu(k,2404) = lu(k,2404) - lu(k,1359) * lu(k,2400) - lu(k,2408) = lu(k,2408) - lu(k,1360) * lu(k,2400) - lu(k,2409) = lu(k,2409) - lu(k,1361) * lu(k,2400) - lu(k,2410) = lu(k,2410) - lu(k,1362) * lu(k,2400) - lu(k,2411) = lu(k,2411) - lu(k,1363) * lu(k,2400) - lu(k,2412) = lu(k,2412) - lu(k,1364) * lu(k,2400) - lu(k,2414) = lu(k,2414) - lu(k,1365) * lu(k,2400) - lu(k,2420) = lu(k,2420) - lu(k,1366) * lu(k,2400) - lu(k,2421) = lu(k,2421) - lu(k,1367) * lu(k,2400) - lu(k,2422) = lu(k,2422) - lu(k,1368) * lu(k,2400) + lu(k,1232) = 1._r8 / lu(k,1232) + lu(k,1233) = lu(k,1233) * lu(k,1232) + lu(k,1234) = lu(k,1234) * lu(k,1232) + lu(k,1235) = lu(k,1235) * lu(k,1232) + lu(k,1236) = lu(k,1236) * lu(k,1232) + lu(k,1237) = lu(k,1237) * lu(k,1232) + lu(k,1238) = lu(k,1238) * lu(k,1232) + lu(k,1239) = lu(k,1239) * lu(k,1232) + lu(k,1240) = lu(k,1240) * lu(k,1232) + lu(k,1241) = lu(k,1241) * lu(k,1232) + lu(k,1242) = lu(k,1242) * lu(k,1232) + lu(k,1254) = lu(k,1254) - lu(k,1233) * lu(k,1251) + lu(k,1256) = lu(k,1256) - lu(k,1234) * lu(k,1251) + lu(k,1257) = lu(k,1257) - lu(k,1235) * lu(k,1251) + lu(k,1258) = lu(k,1258) - lu(k,1236) * lu(k,1251) + lu(k,1259) = lu(k,1259) - lu(k,1237) * lu(k,1251) + lu(k,1260) = lu(k,1260) - lu(k,1238) * lu(k,1251) + lu(k,1261) = lu(k,1261) - lu(k,1239) * lu(k,1251) + lu(k,1262) = lu(k,1262) - lu(k,1240) * lu(k,1251) + lu(k,1263) = lu(k,1263) - lu(k,1241) * lu(k,1251) + lu(k,1265) = lu(k,1265) - lu(k,1242) * lu(k,1251) + lu(k,1297) = lu(k,1297) - lu(k,1233) * lu(k,1295) + lu(k,1302) = lu(k,1302) - lu(k,1234) * lu(k,1295) + lu(k,1303) = lu(k,1303) - lu(k,1235) * lu(k,1295) + lu(k,1304) = lu(k,1304) - lu(k,1236) * lu(k,1295) + lu(k,1305) = lu(k,1305) - lu(k,1237) * lu(k,1295) + lu(k,1306) = lu(k,1306) - lu(k,1238) * lu(k,1295) + lu(k,1307) = lu(k,1307) - lu(k,1239) * lu(k,1295) + lu(k,1309) = lu(k,1309) - lu(k,1240) * lu(k,1295) + lu(k,1310) = lu(k,1310) - lu(k,1241) * lu(k,1295) + lu(k,1312) = lu(k,1312) - lu(k,1242) * lu(k,1295) + lu(k,1330) = lu(k,1330) - lu(k,1233) * lu(k,1328) + lu(k,1335) = lu(k,1335) - lu(k,1234) * lu(k,1328) + lu(k,1336) = lu(k,1336) - lu(k,1235) * lu(k,1328) + lu(k,1337) = lu(k,1337) - lu(k,1236) * lu(k,1328) + lu(k,1338) = lu(k,1338) - lu(k,1237) * lu(k,1328) + lu(k,1339) = lu(k,1339) - lu(k,1238) * lu(k,1328) + lu(k,1340) = lu(k,1340) - lu(k,1239) * lu(k,1328) + lu(k,1342) = lu(k,1342) - lu(k,1240) * lu(k,1328) + lu(k,1343) = lu(k,1343) - lu(k,1241) * lu(k,1328) + lu(k,1345) = lu(k,1345) - lu(k,1242) * lu(k,1328) + lu(k,1421) = lu(k,1421) - lu(k,1233) * lu(k,1418) + lu(k,1427) = lu(k,1427) - lu(k,1234) * lu(k,1418) + lu(k,1428) = lu(k,1428) - lu(k,1235) * lu(k,1418) + lu(k,1431) = lu(k,1431) - lu(k,1236) * lu(k,1418) + lu(k,1432) = lu(k,1432) - lu(k,1237) * lu(k,1418) + lu(k,1433) = lu(k,1433) - lu(k,1238) * lu(k,1418) + lu(k,1434) = lu(k,1434) - lu(k,1239) * lu(k,1418) + lu(k,1436) = lu(k,1436) - lu(k,1240) * lu(k,1418) + lu(k,1437) = lu(k,1437) - lu(k,1241) * lu(k,1418) + lu(k,1439) = lu(k,1439) - lu(k,1242) * lu(k,1418) + lu(k,1782) = lu(k,1782) - lu(k,1233) * lu(k,1779) + lu(k,1788) = lu(k,1788) - lu(k,1234) * lu(k,1779) + lu(k,1789) = lu(k,1789) - lu(k,1235) * lu(k,1779) + lu(k,1798) = lu(k,1798) - lu(k,1236) * lu(k,1779) + lu(k,1800) = lu(k,1800) - lu(k,1237) * lu(k,1779) + lu(k,1801) = lu(k,1801) - lu(k,1238) * lu(k,1779) + lu(k,1802) = lu(k,1802) - lu(k,1239) * lu(k,1779) + lu(k,1807) = lu(k,1807) - lu(k,1240) * lu(k,1779) + lu(k,1808) = lu(k,1808) - lu(k,1241) * lu(k,1779) + lu(k,1810) = lu(k,1810) - lu(k,1242) * lu(k,1779) + lu(k,1998) = lu(k,1998) - lu(k,1233) * lu(k,1995) + lu(k,2004) = lu(k,2004) - lu(k,1234) * lu(k,1995) + lu(k,2005) = lu(k,2005) - lu(k,1235) * lu(k,1995) + lu(k,2011) = lu(k,2011) - lu(k,1236) * lu(k,1995) + lu(k,2013) = lu(k,2013) - lu(k,1237) * lu(k,1995) + lu(k,2014) = lu(k,2014) - lu(k,1238) * lu(k,1995) + lu(k,2015) = lu(k,2015) - lu(k,1239) * lu(k,1995) + lu(k,2020) = lu(k,2020) - lu(k,1240) * lu(k,1995) + lu(k,2021) = lu(k,2021) - lu(k,1241) * lu(k,1995) + lu(k,2023) = lu(k,2023) - lu(k,1242) * lu(k,1995) + lu(k,2212) = lu(k,2212) - lu(k,1233) * lu(k,2209) + lu(k,2218) = lu(k,2218) - lu(k,1234) * lu(k,2209) + lu(k,2219) = lu(k,2219) - lu(k,1235) * lu(k,2209) + lu(k,2226) = lu(k,2226) - lu(k,1236) * lu(k,2209) + lu(k,2228) = lu(k,2228) - lu(k,1237) * lu(k,2209) + lu(k,2229) = lu(k,2229) - lu(k,1238) * lu(k,2209) + lu(k,2230) = lu(k,2230) - lu(k,1239) * lu(k,2209) + lu(k,2235) = lu(k,2235) - lu(k,1240) * lu(k,2209) + lu(k,2236) = lu(k,2236) - lu(k,1241) * lu(k,2209) + lu(k,2238) = lu(k,2238) - lu(k,1242) * lu(k,2209) + lu(k,2319) = lu(k,2319) - lu(k,1233) * lu(k,2316) + lu(k,2325) = lu(k,2325) - lu(k,1234) * lu(k,2316) + lu(k,2326) = lu(k,2326) - lu(k,1235) * lu(k,2316) + lu(k,2334) = lu(k,2334) - lu(k,1236) * lu(k,2316) + lu(k,2336) = lu(k,2336) - lu(k,1237) * lu(k,2316) + lu(k,2337) = lu(k,2337) - lu(k,1238) * lu(k,2316) + lu(k,2338) = lu(k,2338) - lu(k,1239) * lu(k,2316) + lu(k,2343) = lu(k,2343) - lu(k,1240) * lu(k,2316) + lu(k,2344) = lu(k,2344) - lu(k,1241) * lu(k,2316) + lu(k,2346) = lu(k,2346) - lu(k,1242) * lu(k,2316) + lu(k,2397) = lu(k,2397) - lu(k,1233) * lu(k,2394) + lu(k,2403) = lu(k,2403) - lu(k,1234) * lu(k,2394) + lu(k,2404) = lu(k,2404) - lu(k,1235) * lu(k,2394) + lu(k,2409) = lu(k,2409) - lu(k,1236) * lu(k,2394) + lu(k,2411) = lu(k,2411) - lu(k,1237) * lu(k,2394) + lu(k,2412) = lu(k,2412) - lu(k,1238) * lu(k,2394) + lu(k,2413) = lu(k,2413) - lu(k,1239) * lu(k,2394) + lu(k,2418) = lu(k,2418) - lu(k,1240) * lu(k,2394) + lu(k,2419) = lu(k,2419) - lu(k,1241) * lu(k,2394) + lu(k,2421) = lu(k,2421) - lu(k,1242) * lu(k,2394) + lu(k,1252) = 1._r8 / lu(k,1252) + lu(k,1253) = lu(k,1253) * lu(k,1252) + lu(k,1254) = lu(k,1254) * lu(k,1252) + lu(k,1255) = lu(k,1255) * lu(k,1252) + lu(k,1256) = lu(k,1256) * lu(k,1252) + lu(k,1257) = lu(k,1257) * lu(k,1252) + lu(k,1258) = lu(k,1258) * lu(k,1252) + lu(k,1259) = lu(k,1259) * lu(k,1252) + lu(k,1260) = lu(k,1260) * lu(k,1252) + lu(k,1261) = lu(k,1261) * lu(k,1252) + lu(k,1262) = lu(k,1262) * lu(k,1252) + lu(k,1263) = lu(k,1263) * lu(k,1252) + lu(k,1264) = lu(k,1264) * lu(k,1252) + lu(k,1265) = lu(k,1265) * lu(k,1252) + lu(k,1420) = lu(k,1420) - lu(k,1253) * lu(k,1419) + lu(k,1421) = lu(k,1421) - lu(k,1254) * lu(k,1419) + lu(k,1425) = lu(k,1425) - lu(k,1255) * lu(k,1419) + lu(k,1427) = lu(k,1427) - lu(k,1256) * lu(k,1419) + lu(k,1428) = lu(k,1428) - lu(k,1257) * lu(k,1419) + lu(k,1431) = lu(k,1431) - lu(k,1258) * lu(k,1419) + lu(k,1432) = lu(k,1432) - lu(k,1259) * lu(k,1419) + lu(k,1433) = lu(k,1433) - lu(k,1260) * lu(k,1419) + lu(k,1434) = lu(k,1434) - lu(k,1261) * lu(k,1419) + lu(k,1436) = lu(k,1436) - lu(k,1262) * lu(k,1419) + lu(k,1437) = lu(k,1437) - lu(k,1263) * lu(k,1419) + lu(k,1438) = lu(k,1438) - lu(k,1264) * lu(k,1419) + lu(k,1439) = lu(k,1439) - lu(k,1265) * lu(k,1419) + lu(k,1781) = lu(k,1781) - lu(k,1253) * lu(k,1780) + lu(k,1782) = lu(k,1782) - lu(k,1254) * lu(k,1780) + lu(k,1786) = lu(k,1786) - lu(k,1255) * lu(k,1780) + lu(k,1788) = lu(k,1788) - lu(k,1256) * lu(k,1780) + lu(k,1789) = lu(k,1789) - lu(k,1257) * lu(k,1780) + lu(k,1798) = lu(k,1798) - lu(k,1258) * lu(k,1780) + lu(k,1800) = lu(k,1800) - lu(k,1259) * lu(k,1780) + lu(k,1801) = lu(k,1801) - lu(k,1260) * lu(k,1780) + lu(k,1802) = lu(k,1802) - lu(k,1261) * lu(k,1780) + lu(k,1807) = lu(k,1807) - lu(k,1262) * lu(k,1780) + lu(k,1808) = lu(k,1808) - lu(k,1263) * lu(k,1780) + lu(k,1809) = lu(k,1809) - lu(k,1264) * lu(k,1780) + lu(k,1810) = lu(k,1810) - lu(k,1265) * lu(k,1780) + lu(k,1997) = lu(k,1997) - lu(k,1253) * lu(k,1996) + lu(k,1998) = lu(k,1998) - lu(k,1254) * lu(k,1996) + lu(k,2002) = lu(k,2002) - lu(k,1255) * lu(k,1996) + lu(k,2004) = lu(k,2004) - lu(k,1256) * lu(k,1996) + lu(k,2005) = lu(k,2005) - lu(k,1257) * lu(k,1996) + lu(k,2011) = lu(k,2011) - lu(k,1258) * lu(k,1996) + lu(k,2013) = lu(k,2013) - lu(k,1259) * lu(k,1996) + lu(k,2014) = lu(k,2014) - lu(k,1260) * lu(k,1996) + lu(k,2015) = lu(k,2015) - lu(k,1261) * lu(k,1996) + lu(k,2020) = lu(k,2020) - lu(k,1262) * lu(k,1996) + lu(k,2021) = lu(k,2021) - lu(k,1263) * lu(k,1996) + lu(k,2022) = lu(k,2022) - lu(k,1264) * lu(k,1996) + lu(k,2023) = lu(k,2023) - lu(k,1265) * lu(k,1996) + lu(k,2103) = lu(k,2103) - lu(k,1253) * lu(k,2102) + lu(k,2104) = lu(k,2104) - lu(k,1254) * lu(k,2102) + lu(k,2108) = lu(k,2108) - lu(k,1255) * lu(k,2102) + lu(k,2110) = lu(k,2110) - lu(k,1256) * lu(k,2102) + lu(k,2111) = lu(k,2111) - lu(k,1257) * lu(k,2102) + lu(k,2118) = lu(k,2118) - lu(k,1258) * lu(k,2102) + lu(k,2120) = lu(k,2120) - lu(k,1259) * lu(k,2102) + lu(k,2121) = lu(k,2121) - lu(k,1260) * lu(k,2102) + lu(k,2122) = lu(k,2122) - lu(k,1261) * lu(k,2102) + lu(k,2127) = lu(k,2127) - lu(k,1262) * lu(k,2102) + lu(k,2128) = lu(k,2128) - lu(k,1263) * lu(k,2102) + lu(k,2129) = lu(k,2129) - lu(k,1264) * lu(k,2102) + lu(k,2130) = lu(k,2130) - lu(k,1265) * lu(k,2102) + lu(k,2211) = lu(k,2211) - lu(k,1253) * lu(k,2210) + lu(k,2212) = lu(k,2212) - lu(k,1254) * lu(k,2210) + lu(k,2216) = lu(k,2216) - lu(k,1255) * lu(k,2210) + lu(k,2218) = lu(k,2218) - lu(k,1256) * lu(k,2210) + lu(k,2219) = lu(k,2219) - lu(k,1257) * lu(k,2210) + lu(k,2226) = lu(k,2226) - lu(k,1258) * lu(k,2210) + lu(k,2228) = lu(k,2228) - lu(k,1259) * lu(k,2210) + lu(k,2229) = lu(k,2229) - lu(k,1260) * lu(k,2210) + lu(k,2230) = lu(k,2230) - lu(k,1261) * lu(k,2210) + lu(k,2235) = lu(k,2235) - lu(k,1262) * lu(k,2210) + lu(k,2236) = lu(k,2236) - lu(k,1263) * lu(k,2210) + lu(k,2237) = lu(k,2237) - lu(k,1264) * lu(k,2210) + lu(k,2238) = lu(k,2238) - lu(k,1265) * lu(k,2210) + lu(k,2318) = lu(k,2318) - lu(k,1253) * lu(k,2317) + lu(k,2319) = lu(k,2319) - lu(k,1254) * lu(k,2317) + lu(k,2323) = lu(k,2323) - lu(k,1255) * lu(k,2317) + lu(k,2325) = lu(k,2325) - lu(k,1256) * lu(k,2317) + lu(k,2326) = lu(k,2326) - lu(k,1257) * lu(k,2317) + lu(k,2334) = lu(k,2334) - lu(k,1258) * lu(k,2317) + lu(k,2336) = lu(k,2336) - lu(k,1259) * lu(k,2317) + lu(k,2337) = lu(k,2337) - lu(k,1260) * lu(k,2317) + lu(k,2338) = lu(k,2338) - lu(k,1261) * lu(k,2317) + lu(k,2343) = lu(k,2343) - lu(k,1262) * lu(k,2317) + lu(k,2344) = lu(k,2344) - lu(k,1263) * lu(k,2317) + lu(k,2345) = lu(k,2345) - lu(k,1264) * lu(k,2317) + lu(k,2346) = lu(k,2346) - lu(k,1265) * lu(k,2317) + lu(k,2396) = lu(k,2396) - lu(k,1253) * lu(k,2395) + lu(k,2397) = lu(k,2397) - lu(k,1254) * lu(k,2395) + lu(k,2401) = lu(k,2401) - lu(k,1255) * lu(k,2395) + lu(k,2403) = lu(k,2403) - lu(k,1256) * lu(k,2395) + lu(k,2404) = lu(k,2404) - lu(k,1257) * lu(k,2395) + lu(k,2409) = lu(k,2409) - lu(k,1258) * lu(k,2395) + lu(k,2411) = lu(k,2411) - lu(k,1259) * lu(k,2395) + lu(k,2412) = lu(k,2412) - lu(k,1260) * lu(k,2395) + lu(k,2413) = lu(k,2413) - lu(k,1261) * lu(k,2395) + lu(k,2418) = lu(k,2418) - lu(k,1262) * lu(k,2395) + lu(k,2419) = lu(k,2419) - lu(k,1263) * lu(k,2395) + lu(k,2420) = lu(k,2420) - lu(k,1264) * lu(k,2395) + lu(k,2421) = lu(k,2421) - lu(k,1265) * lu(k,2395) + lu(k,1268) = 1._r8 / lu(k,1268) + lu(k,1269) = lu(k,1269) * lu(k,1268) + lu(k,1270) = lu(k,1270) * lu(k,1268) + lu(k,1271) = lu(k,1271) * lu(k,1268) + lu(k,1272) = lu(k,1272) * lu(k,1268) + lu(k,1273) = lu(k,1273) * lu(k,1268) + lu(k,1274) = lu(k,1274) * lu(k,1268) + lu(k,1275) = lu(k,1275) * lu(k,1268) + lu(k,1276) = lu(k,1276) * lu(k,1268) + lu(k,1277) = lu(k,1277) * lu(k,1268) + lu(k,1278) = lu(k,1278) * lu(k,1268) + lu(k,1297) = lu(k,1297) - lu(k,1269) * lu(k,1296) + lu(k,1299) = - lu(k,1270) * lu(k,1296) + lu(k,1301) = - lu(k,1271) * lu(k,1296) + lu(k,1302) = lu(k,1302) - lu(k,1272) * lu(k,1296) + lu(k,1303) = lu(k,1303) - lu(k,1273) * lu(k,1296) + lu(k,1304) = lu(k,1304) - lu(k,1274) * lu(k,1296) + lu(k,1306) = lu(k,1306) - lu(k,1275) * lu(k,1296) + lu(k,1308) = - lu(k,1276) * lu(k,1296) + lu(k,1310) = lu(k,1310) - lu(k,1277) * lu(k,1296) + lu(k,1313) = lu(k,1313) - lu(k,1278) * lu(k,1296) + lu(k,1330) = lu(k,1330) - lu(k,1269) * lu(k,1329) + lu(k,1332) = - lu(k,1270) * lu(k,1329) + lu(k,1334) = - lu(k,1271) * lu(k,1329) + lu(k,1335) = lu(k,1335) - lu(k,1272) * lu(k,1329) + lu(k,1336) = lu(k,1336) - lu(k,1273) * lu(k,1329) + lu(k,1337) = lu(k,1337) - lu(k,1274) * lu(k,1329) + lu(k,1339) = lu(k,1339) - lu(k,1275) * lu(k,1329) + lu(k,1341) = - lu(k,1276) * lu(k,1329) + lu(k,1343) = lu(k,1343) - lu(k,1277) * lu(k,1329) + lu(k,1346) = lu(k,1346) - lu(k,1278) * lu(k,1329) + lu(k,1421) = lu(k,1421) - lu(k,1269) * lu(k,1420) + lu(k,1424) = lu(k,1424) - lu(k,1270) * lu(k,1420) + lu(k,1426) = lu(k,1426) - lu(k,1271) * lu(k,1420) + lu(k,1427) = lu(k,1427) - lu(k,1272) * lu(k,1420) + lu(k,1428) = lu(k,1428) - lu(k,1273) * lu(k,1420) + lu(k,1431) = lu(k,1431) - lu(k,1274) * lu(k,1420) + lu(k,1433) = lu(k,1433) - lu(k,1275) * lu(k,1420) + lu(k,1435) = lu(k,1435) - lu(k,1276) * lu(k,1420) + lu(k,1437) = lu(k,1437) - lu(k,1277) * lu(k,1420) + lu(k,1440) = lu(k,1440) - lu(k,1278) * lu(k,1420) + lu(k,1782) = lu(k,1782) - lu(k,1269) * lu(k,1781) + lu(k,1785) = lu(k,1785) - lu(k,1270) * lu(k,1781) + lu(k,1787) = lu(k,1787) - lu(k,1271) * lu(k,1781) + lu(k,1788) = lu(k,1788) - lu(k,1272) * lu(k,1781) + lu(k,1789) = lu(k,1789) - lu(k,1273) * lu(k,1781) + lu(k,1798) = lu(k,1798) - lu(k,1274) * lu(k,1781) + lu(k,1801) = lu(k,1801) - lu(k,1275) * lu(k,1781) + lu(k,1804) = lu(k,1804) - lu(k,1276) * lu(k,1781) + lu(k,1808) = lu(k,1808) - lu(k,1277) * lu(k,1781) + lu(k,1811) = lu(k,1811) - lu(k,1278) * lu(k,1781) + lu(k,1998) = lu(k,1998) - lu(k,1269) * lu(k,1997) + lu(k,2001) = lu(k,2001) - lu(k,1270) * lu(k,1997) + lu(k,2003) = lu(k,2003) - lu(k,1271) * lu(k,1997) + lu(k,2004) = lu(k,2004) - lu(k,1272) * lu(k,1997) + lu(k,2005) = lu(k,2005) - lu(k,1273) * lu(k,1997) + lu(k,2011) = lu(k,2011) - lu(k,1274) * lu(k,1997) + lu(k,2014) = lu(k,2014) - lu(k,1275) * lu(k,1997) + lu(k,2017) = lu(k,2017) - lu(k,1276) * lu(k,1997) + lu(k,2021) = lu(k,2021) - lu(k,1277) * lu(k,1997) + lu(k,2024) = lu(k,2024) - lu(k,1278) * lu(k,1997) + lu(k,2104) = lu(k,2104) - lu(k,1269) * lu(k,2103) + lu(k,2107) = - lu(k,1270) * lu(k,2103) + lu(k,2109) = - lu(k,1271) * lu(k,2103) + lu(k,2110) = lu(k,2110) - lu(k,1272) * lu(k,2103) + lu(k,2111) = lu(k,2111) - lu(k,1273) * lu(k,2103) + lu(k,2118) = lu(k,2118) - lu(k,1274) * lu(k,2103) + lu(k,2121) = lu(k,2121) - lu(k,1275) * lu(k,2103) + lu(k,2124) = lu(k,2124) - lu(k,1276) * lu(k,2103) + lu(k,2128) = lu(k,2128) - lu(k,1277) * lu(k,2103) + lu(k,2131) = lu(k,2131) - lu(k,1278) * lu(k,2103) + lu(k,2212) = lu(k,2212) - lu(k,1269) * lu(k,2211) + lu(k,2215) = lu(k,2215) - lu(k,1270) * lu(k,2211) + lu(k,2217) = lu(k,2217) - lu(k,1271) * lu(k,2211) + lu(k,2218) = lu(k,2218) - lu(k,1272) * lu(k,2211) + lu(k,2219) = lu(k,2219) - lu(k,1273) * lu(k,2211) + lu(k,2226) = lu(k,2226) - lu(k,1274) * lu(k,2211) + lu(k,2229) = lu(k,2229) - lu(k,1275) * lu(k,2211) + lu(k,2232) = lu(k,2232) - lu(k,1276) * lu(k,2211) + lu(k,2236) = lu(k,2236) - lu(k,1277) * lu(k,2211) + lu(k,2239) = lu(k,2239) - lu(k,1278) * lu(k,2211) + lu(k,2319) = lu(k,2319) - lu(k,1269) * lu(k,2318) + lu(k,2322) = lu(k,2322) - lu(k,1270) * lu(k,2318) + lu(k,2324) = lu(k,2324) - lu(k,1271) * lu(k,2318) + lu(k,2325) = lu(k,2325) - lu(k,1272) * lu(k,2318) + lu(k,2326) = lu(k,2326) - lu(k,1273) * lu(k,2318) + lu(k,2334) = lu(k,2334) - lu(k,1274) * lu(k,2318) + lu(k,2337) = lu(k,2337) - lu(k,1275) * lu(k,2318) + lu(k,2340) = lu(k,2340) - lu(k,1276) * lu(k,2318) + lu(k,2344) = lu(k,2344) - lu(k,1277) * lu(k,2318) + lu(k,2347) = lu(k,2347) - lu(k,1278) * lu(k,2318) + lu(k,2397) = lu(k,2397) - lu(k,1269) * lu(k,2396) + lu(k,2400) = lu(k,2400) - lu(k,1270) * lu(k,2396) + lu(k,2402) = lu(k,2402) - lu(k,1271) * lu(k,2396) + lu(k,2403) = lu(k,2403) - lu(k,1272) * lu(k,2396) + lu(k,2404) = lu(k,2404) - lu(k,1273) * lu(k,2396) + lu(k,2409) = lu(k,2409) - lu(k,1274) * lu(k,2396) + lu(k,2412) = lu(k,2412) - lu(k,1275) * lu(k,2396) + lu(k,2415) = - lu(k,1276) * lu(k,2396) + lu(k,2419) = lu(k,2419) - lu(k,1277) * lu(k,2396) + lu(k,2422) = lu(k,2422) - lu(k,1278) * lu(k,2396) + lu(k,1280) = 1._r8 / lu(k,1280) + lu(k,1281) = lu(k,1281) * lu(k,1280) + lu(k,1282) = lu(k,1282) * lu(k,1280) + lu(k,1283) = lu(k,1283) * lu(k,1280) + lu(k,1284) = lu(k,1284) * lu(k,1280) + lu(k,1285) = lu(k,1285) * lu(k,1280) + lu(k,1286) = lu(k,1286) * lu(k,1280) + lu(k,1287) = lu(k,1287) * lu(k,1280) + lu(k,1302) = lu(k,1302) - lu(k,1281) * lu(k,1297) + lu(k,1303) = lu(k,1303) - lu(k,1282) * lu(k,1297) + lu(k,1304) = lu(k,1304) - lu(k,1283) * lu(k,1297) + lu(k,1309) = lu(k,1309) - lu(k,1284) * lu(k,1297) + lu(k,1310) = lu(k,1310) - lu(k,1285) * lu(k,1297) + lu(k,1311) = lu(k,1311) - lu(k,1286) * lu(k,1297) + lu(k,1313) = lu(k,1313) - lu(k,1287) * lu(k,1297) + lu(k,1335) = lu(k,1335) - lu(k,1281) * lu(k,1330) + lu(k,1336) = lu(k,1336) - lu(k,1282) * lu(k,1330) + lu(k,1337) = lu(k,1337) - lu(k,1283) * lu(k,1330) + lu(k,1342) = lu(k,1342) - lu(k,1284) * lu(k,1330) + lu(k,1343) = lu(k,1343) - lu(k,1285) * lu(k,1330) + lu(k,1344) = lu(k,1344) - lu(k,1286) * lu(k,1330) + lu(k,1346) = lu(k,1346) - lu(k,1287) * lu(k,1330) + lu(k,1357) = lu(k,1357) - lu(k,1281) * lu(k,1354) + lu(k,1358) = lu(k,1358) - lu(k,1282) * lu(k,1354) + lu(k,1359) = lu(k,1359) - lu(k,1283) * lu(k,1354) + lu(k,1363) = lu(k,1363) - lu(k,1284) * lu(k,1354) + lu(k,1364) = lu(k,1364) - lu(k,1285) * lu(k,1354) + lu(k,1365) = lu(k,1365) - lu(k,1286) * lu(k,1354) + lu(k,1367) = lu(k,1367) - lu(k,1287) * lu(k,1354) + lu(k,1377) = lu(k,1377) - lu(k,1281) * lu(k,1373) + lu(k,1378) = lu(k,1378) - lu(k,1282) * lu(k,1373) + lu(k,1381) = lu(k,1381) - lu(k,1283) * lu(k,1373) + lu(k,1386) = lu(k,1386) - lu(k,1284) * lu(k,1373) + lu(k,1387) = lu(k,1387) - lu(k,1285) * lu(k,1373) + lu(k,1388) = lu(k,1388) - lu(k,1286) * lu(k,1373) + lu(k,1390) = lu(k,1390) - lu(k,1287) * lu(k,1373) + lu(k,1397) = lu(k,1397) - lu(k,1281) * lu(k,1395) + lu(k,1398) = lu(k,1398) - lu(k,1282) * lu(k,1395) + lu(k,1399) = lu(k,1399) - lu(k,1283) * lu(k,1395) + lu(k,1404) = lu(k,1404) - lu(k,1284) * lu(k,1395) + lu(k,1405) = lu(k,1405) - lu(k,1285) * lu(k,1395) + lu(k,1406) = - lu(k,1286) * lu(k,1395) + lu(k,1408) = lu(k,1408) - lu(k,1287) * lu(k,1395) + lu(k,1427) = lu(k,1427) - lu(k,1281) * lu(k,1421) + lu(k,1428) = lu(k,1428) - lu(k,1282) * lu(k,1421) + lu(k,1431) = lu(k,1431) - lu(k,1283) * lu(k,1421) + lu(k,1436) = lu(k,1436) - lu(k,1284) * lu(k,1421) + lu(k,1437) = lu(k,1437) - lu(k,1285) * lu(k,1421) + lu(k,1438) = lu(k,1438) - lu(k,1286) * lu(k,1421) + lu(k,1440) = lu(k,1440) - lu(k,1287) * lu(k,1421) + lu(k,1788) = lu(k,1788) - lu(k,1281) * lu(k,1782) + lu(k,1789) = lu(k,1789) - lu(k,1282) * lu(k,1782) + lu(k,1798) = lu(k,1798) - lu(k,1283) * lu(k,1782) + lu(k,1807) = lu(k,1807) - lu(k,1284) * lu(k,1782) + lu(k,1808) = lu(k,1808) - lu(k,1285) * lu(k,1782) + lu(k,1809) = lu(k,1809) - lu(k,1286) * lu(k,1782) + lu(k,1811) = lu(k,1811) - lu(k,1287) * lu(k,1782) + lu(k,1835) = lu(k,1835) - lu(k,1281) * lu(k,1834) + lu(k,1836) = lu(k,1836) - lu(k,1282) * lu(k,1834) + lu(k,1844) = lu(k,1844) - lu(k,1283) * lu(k,1834) + lu(k,1853) = lu(k,1853) - lu(k,1284) * lu(k,1834) + lu(k,1854) = lu(k,1854) - lu(k,1285) * lu(k,1834) + lu(k,1855) = lu(k,1855) - lu(k,1286) * lu(k,1834) + lu(k,1857) = lu(k,1857) - lu(k,1287) * lu(k,1834) + lu(k,1880) = lu(k,1880) - lu(k,1281) * lu(k,1878) + lu(k,1881) = lu(k,1881) - lu(k,1282) * lu(k,1878) + lu(k,1889) = lu(k,1889) - lu(k,1283) * lu(k,1878) + lu(k,1898) = lu(k,1898) - lu(k,1284) * lu(k,1878) + lu(k,1899) = lu(k,1899) - lu(k,1285) * lu(k,1878) + lu(k,1900) = lu(k,1900) - lu(k,1286) * lu(k,1878) + lu(k,1902) = lu(k,1902) - lu(k,1287) * lu(k,1878) + lu(k,2004) = lu(k,2004) - lu(k,1281) * lu(k,1998) + lu(k,2005) = lu(k,2005) - lu(k,1282) * lu(k,1998) + lu(k,2011) = lu(k,2011) - lu(k,1283) * lu(k,1998) + lu(k,2020) = lu(k,2020) - lu(k,1284) * lu(k,1998) + lu(k,2021) = lu(k,2021) - lu(k,1285) * lu(k,1998) + lu(k,2022) = lu(k,2022) - lu(k,1286) * lu(k,1998) + lu(k,2024) = lu(k,2024) - lu(k,1287) * lu(k,1998) + lu(k,2110) = lu(k,2110) - lu(k,1281) * lu(k,2104) + lu(k,2111) = lu(k,2111) - lu(k,1282) * lu(k,2104) + lu(k,2118) = lu(k,2118) - lu(k,1283) * lu(k,2104) + lu(k,2127) = lu(k,2127) - lu(k,1284) * lu(k,2104) + lu(k,2128) = lu(k,2128) - lu(k,1285) * lu(k,2104) + lu(k,2129) = lu(k,2129) - lu(k,1286) * lu(k,2104) + lu(k,2131) = lu(k,2131) - lu(k,1287) * lu(k,2104) + lu(k,2218) = lu(k,2218) - lu(k,1281) * lu(k,2212) + lu(k,2219) = lu(k,2219) - lu(k,1282) * lu(k,2212) + lu(k,2226) = lu(k,2226) - lu(k,1283) * lu(k,2212) + lu(k,2235) = lu(k,2235) - lu(k,1284) * lu(k,2212) + lu(k,2236) = lu(k,2236) - lu(k,1285) * lu(k,2212) + lu(k,2237) = lu(k,2237) - lu(k,1286) * lu(k,2212) + lu(k,2239) = lu(k,2239) - lu(k,1287) * lu(k,2212) + lu(k,2325) = lu(k,2325) - lu(k,1281) * lu(k,2319) + lu(k,2326) = lu(k,2326) - lu(k,1282) * lu(k,2319) + lu(k,2334) = lu(k,2334) - lu(k,1283) * lu(k,2319) + lu(k,2343) = lu(k,2343) - lu(k,1284) * lu(k,2319) + lu(k,2344) = lu(k,2344) - lu(k,1285) * lu(k,2319) + lu(k,2345) = lu(k,2345) - lu(k,1286) * lu(k,2319) + lu(k,2347) = lu(k,2347) - lu(k,1287) * lu(k,2319) + lu(k,2403) = lu(k,2403) - lu(k,1281) * lu(k,2397) + lu(k,2404) = lu(k,2404) - lu(k,1282) * lu(k,2397) + lu(k,2409) = lu(k,2409) - lu(k,1283) * lu(k,2397) + lu(k,2418) = lu(k,2418) - lu(k,1284) * lu(k,2397) + lu(k,2419) = lu(k,2419) - lu(k,1285) * lu(k,2397) + lu(k,2420) = lu(k,2420) - lu(k,1286) * lu(k,2397) + lu(k,2422) = lu(k,2422) - lu(k,1287) * lu(k,2397) end do end subroutine lu_fac26 subroutine lu_fac27( avec_len, lu ) @@ -5829,467 +5480,478 @@ subroutine lu_fac27( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1376) = 1._r8 / lu(k,1376) - lu(k,1377) = lu(k,1377) * lu(k,1376) - lu(k,1378) = lu(k,1378) * lu(k,1376) - lu(k,1379) = lu(k,1379) * lu(k,1376) - lu(k,1380) = lu(k,1380) * lu(k,1376) - lu(k,1381) = lu(k,1381) * lu(k,1376) - lu(k,1382) = lu(k,1382) * lu(k,1376) - lu(k,1383) = lu(k,1383) * lu(k,1376) - lu(k,1384) = lu(k,1384) * lu(k,1376) - lu(k,1385) = lu(k,1385) * lu(k,1376) - lu(k,1386) = lu(k,1386) * lu(k,1376) - lu(k,1387) = lu(k,1387) * lu(k,1376) - lu(k,1388) = lu(k,1388) * lu(k,1376) - lu(k,1389) = lu(k,1389) * lu(k,1376) - lu(k,1390) = lu(k,1390) * lu(k,1376) - lu(k,1391) = lu(k,1391) * lu(k,1376) - lu(k,1427) = lu(k,1427) - lu(k,1377) * lu(k,1426) - lu(k,1428) = lu(k,1428) - lu(k,1378) * lu(k,1426) - lu(k,1429) = lu(k,1429) - lu(k,1379) * lu(k,1426) - lu(k,1430) = - lu(k,1380) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,1381) * lu(k,1426) - lu(k,1432) = lu(k,1432) - lu(k,1382) * lu(k,1426) - lu(k,1433) = lu(k,1433) - lu(k,1383) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,1384) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,1385) * lu(k,1426) - lu(k,1436) = lu(k,1436) - lu(k,1386) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,1387) * lu(k,1426) - lu(k,1438) = - lu(k,1388) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,1389) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,1390) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,1391) * lu(k,1426) - lu(k,1644) = lu(k,1644) - lu(k,1377) * lu(k,1643) - lu(k,1645) = lu(k,1645) - lu(k,1378) * lu(k,1643) - lu(k,1646) = lu(k,1646) - lu(k,1379) * lu(k,1643) - lu(k,1649) = lu(k,1649) - lu(k,1380) * lu(k,1643) - lu(k,1652) = lu(k,1652) - lu(k,1381) * lu(k,1643) - lu(k,1653) = lu(k,1653) - lu(k,1382) * lu(k,1643) - lu(k,1654) = lu(k,1654) - lu(k,1383) * lu(k,1643) - lu(k,1655) = lu(k,1655) - lu(k,1384) * lu(k,1643) - lu(k,1656) = lu(k,1656) - lu(k,1385) * lu(k,1643) - lu(k,1658) = lu(k,1658) - lu(k,1386) * lu(k,1643) - lu(k,1662) = lu(k,1662) - lu(k,1387) * lu(k,1643) - lu(k,1663) = lu(k,1663) - lu(k,1388) * lu(k,1643) - lu(k,1664) = lu(k,1664) - lu(k,1389) * lu(k,1643) - lu(k,1665) = lu(k,1665) - lu(k,1390) * lu(k,1643) - lu(k,1666) = lu(k,1666) - lu(k,1391) * lu(k,1643) - lu(k,1807) = lu(k,1807) - lu(k,1377) * lu(k,1806) - lu(k,1808) = lu(k,1808) - lu(k,1378) * lu(k,1806) - lu(k,1809) = lu(k,1809) - lu(k,1379) * lu(k,1806) - lu(k,1814) = lu(k,1814) - lu(k,1380) * lu(k,1806) - lu(k,1817) = lu(k,1817) - lu(k,1381) * lu(k,1806) - lu(k,1818) = lu(k,1818) - lu(k,1382) * lu(k,1806) - lu(k,1819) = lu(k,1819) - lu(k,1383) * lu(k,1806) - lu(k,1820) = lu(k,1820) - lu(k,1384) * lu(k,1806) - lu(k,1821) = lu(k,1821) - lu(k,1385) * lu(k,1806) - lu(k,1823) = lu(k,1823) - lu(k,1386) * lu(k,1806) - lu(k,1827) = lu(k,1827) - lu(k,1387) * lu(k,1806) - lu(k,1828) = lu(k,1828) - lu(k,1388) * lu(k,1806) - lu(k,1829) = lu(k,1829) - lu(k,1389) * lu(k,1806) - lu(k,1830) = lu(k,1830) - lu(k,1390) * lu(k,1806) - lu(k,1831) = lu(k,1831) - lu(k,1391) * lu(k,1806) - lu(k,1905) = lu(k,1905) - lu(k,1377) * lu(k,1904) - lu(k,1906) = lu(k,1906) - lu(k,1378) * lu(k,1904) - lu(k,1907) = lu(k,1907) - lu(k,1379) * lu(k,1904) - lu(k,1909) = lu(k,1909) - lu(k,1380) * lu(k,1904) - lu(k,1912) = lu(k,1912) - lu(k,1381) * lu(k,1904) - lu(k,1913) = lu(k,1913) - lu(k,1382) * lu(k,1904) - lu(k,1914) = lu(k,1914) - lu(k,1383) * lu(k,1904) - lu(k,1915) = lu(k,1915) - lu(k,1384) * lu(k,1904) - lu(k,1916) = lu(k,1916) - lu(k,1385) * lu(k,1904) - lu(k,1918) = lu(k,1918) - lu(k,1386) * lu(k,1904) - lu(k,1922) = lu(k,1922) - lu(k,1387) * lu(k,1904) - lu(k,1923) = - lu(k,1388) * lu(k,1904) - lu(k,1924) = lu(k,1924) - lu(k,1389) * lu(k,1904) - lu(k,1925) = lu(k,1925) - lu(k,1390) * lu(k,1904) - lu(k,1926) = lu(k,1926) - lu(k,1391) * lu(k,1904) - lu(k,2215) = lu(k,2215) - lu(k,1377) * lu(k,2214) - lu(k,2216) = lu(k,2216) - lu(k,1378) * lu(k,2214) - lu(k,2217) = lu(k,2217) - lu(k,1379) * lu(k,2214) - lu(k,2220) = lu(k,2220) - lu(k,1380) * lu(k,2214) - lu(k,2223) = lu(k,2223) - lu(k,1381) * lu(k,2214) - lu(k,2224) = lu(k,2224) - lu(k,1382) * lu(k,2214) - lu(k,2225) = lu(k,2225) - lu(k,1383) * lu(k,2214) - lu(k,2226) = lu(k,2226) - lu(k,1384) * lu(k,2214) - lu(k,2227) = lu(k,2227) - lu(k,1385) * lu(k,2214) - lu(k,2229) = lu(k,2229) - lu(k,1386) * lu(k,2214) - lu(k,2233) = lu(k,2233) - lu(k,1387) * lu(k,2214) - lu(k,2234) = lu(k,2234) - lu(k,1388) * lu(k,2214) - lu(k,2235) = lu(k,2235) - lu(k,1389) * lu(k,2214) - lu(k,2236) = lu(k,2236) - lu(k,1390) * lu(k,2214) - lu(k,2237) = lu(k,2237) - lu(k,1391) * lu(k,2214) - lu(k,2347) = lu(k,2347) - lu(k,1377) * lu(k,2346) - lu(k,2348) = lu(k,2348) - lu(k,1378) * lu(k,2346) - lu(k,2349) = lu(k,2349) - lu(k,1379) * lu(k,2346) - lu(k,2353) = lu(k,2353) - lu(k,1380) * lu(k,2346) - lu(k,2356) = lu(k,2356) - lu(k,1381) * lu(k,2346) - lu(k,2357) = lu(k,2357) - lu(k,1382) * lu(k,2346) - lu(k,2358) = lu(k,2358) - lu(k,1383) * lu(k,2346) - lu(k,2359) = lu(k,2359) - lu(k,1384) * lu(k,2346) - lu(k,2360) = lu(k,2360) - lu(k,1385) * lu(k,2346) - lu(k,2362) = lu(k,2362) - lu(k,1386) * lu(k,2346) - lu(k,2366) = lu(k,2366) - lu(k,1387) * lu(k,2346) - lu(k,2367) = - lu(k,1388) * lu(k,2346) - lu(k,2368) = lu(k,2368) - lu(k,1389) * lu(k,2346) - lu(k,2369) = lu(k,2369) - lu(k,1390) * lu(k,2346) - lu(k,2370) = lu(k,2370) - lu(k,1391) * lu(k,2346) - lu(k,2402) = lu(k,2402) - lu(k,1377) * lu(k,2401) - lu(k,2403) = lu(k,2403) - lu(k,1378) * lu(k,2401) - lu(k,2404) = lu(k,2404) - lu(k,1379) * lu(k,2401) - lu(k,2405) = lu(k,2405) - lu(k,1380) * lu(k,2401) - lu(k,2408) = lu(k,2408) - lu(k,1381) * lu(k,2401) - lu(k,2409) = lu(k,2409) - lu(k,1382) * lu(k,2401) - lu(k,2410) = lu(k,2410) - lu(k,1383) * lu(k,2401) - lu(k,2411) = lu(k,2411) - lu(k,1384) * lu(k,2401) - lu(k,2412) = lu(k,2412) - lu(k,1385) * lu(k,2401) - lu(k,2414) = lu(k,2414) - lu(k,1386) * lu(k,2401) - lu(k,2418) = lu(k,2418) - lu(k,1387) * lu(k,2401) - lu(k,2419) = - lu(k,1388) * lu(k,2401) - lu(k,2420) = lu(k,2420) - lu(k,1389) * lu(k,2401) - lu(k,2421) = lu(k,2421) - lu(k,1390) * lu(k,2401) - lu(k,2422) = lu(k,2422) - lu(k,1391) * lu(k,2401) - lu(k,1397) = 1._r8 / lu(k,1397) - lu(k,1398) = lu(k,1398) * lu(k,1397) - lu(k,1399) = lu(k,1399) * lu(k,1397) - lu(k,1400) = lu(k,1400) * lu(k,1397) - lu(k,1401) = lu(k,1401) * lu(k,1397) - lu(k,1402) = lu(k,1402) * lu(k,1397) - lu(k,1403) = lu(k,1403) * lu(k,1397) - lu(k,1404) = lu(k,1404) * lu(k,1397) - lu(k,1405) = lu(k,1405) * lu(k,1397) - lu(k,1406) = lu(k,1406) * lu(k,1397) - lu(k,1407) = lu(k,1407) * lu(k,1397) - lu(k,1408) = lu(k,1408) * lu(k,1397) - lu(k,1409) = lu(k,1409) * lu(k,1397) - lu(k,1428) = lu(k,1428) - lu(k,1398) * lu(k,1427) - lu(k,1429) = lu(k,1429) - lu(k,1399) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,1400) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,1401) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,1402) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,1403) * lu(k,1427) - lu(k,1435) = lu(k,1435) - lu(k,1404) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,1405) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,1406) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1427) - lu(k,1441) = lu(k,1441) - lu(k,1409) * lu(k,1427) - lu(k,1645) = lu(k,1645) - lu(k,1398) * lu(k,1644) - lu(k,1646) = lu(k,1646) - lu(k,1399) * lu(k,1644) - lu(k,1652) = lu(k,1652) - lu(k,1400) * lu(k,1644) - lu(k,1653) = lu(k,1653) - lu(k,1401) * lu(k,1644) - lu(k,1654) = lu(k,1654) - lu(k,1402) * lu(k,1644) - lu(k,1655) = lu(k,1655) - lu(k,1403) * lu(k,1644) - lu(k,1656) = lu(k,1656) - lu(k,1404) * lu(k,1644) - lu(k,1658) = lu(k,1658) - lu(k,1405) * lu(k,1644) - lu(k,1662) = lu(k,1662) - lu(k,1406) * lu(k,1644) - lu(k,1664) = lu(k,1664) - lu(k,1407) * lu(k,1644) - lu(k,1665) = lu(k,1665) - lu(k,1408) * lu(k,1644) - lu(k,1666) = lu(k,1666) - lu(k,1409) * lu(k,1644) - lu(k,1808) = lu(k,1808) - lu(k,1398) * lu(k,1807) - lu(k,1809) = lu(k,1809) - lu(k,1399) * lu(k,1807) - lu(k,1817) = lu(k,1817) - lu(k,1400) * lu(k,1807) - lu(k,1818) = lu(k,1818) - lu(k,1401) * lu(k,1807) - lu(k,1819) = lu(k,1819) - lu(k,1402) * lu(k,1807) - lu(k,1820) = lu(k,1820) - lu(k,1403) * lu(k,1807) - lu(k,1821) = lu(k,1821) - lu(k,1404) * lu(k,1807) - lu(k,1823) = lu(k,1823) - lu(k,1405) * lu(k,1807) - lu(k,1827) = lu(k,1827) - lu(k,1406) * lu(k,1807) - lu(k,1829) = lu(k,1829) - lu(k,1407) * lu(k,1807) - lu(k,1830) = lu(k,1830) - lu(k,1408) * lu(k,1807) - lu(k,1831) = lu(k,1831) - lu(k,1409) * lu(k,1807) - lu(k,1906) = lu(k,1906) - lu(k,1398) * lu(k,1905) - lu(k,1907) = lu(k,1907) - lu(k,1399) * lu(k,1905) - lu(k,1912) = lu(k,1912) - lu(k,1400) * lu(k,1905) - lu(k,1913) = lu(k,1913) - lu(k,1401) * lu(k,1905) - lu(k,1914) = lu(k,1914) - lu(k,1402) * lu(k,1905) - lu(k,1915) = lu(k,1915) - lu(k,1403) * lu(k,1905) - lu(k,1916) = lu(k,1916) - lu(k,1404) * lu(k,1905) - lu(k,1918) = lu(k,1918) - lu(k,1405) * lu(k,1905) - lu(k,1922) = lu(k,1922) - lu(k,1406) * lu(k,1905) - lu(k,1924) = lu(k,1924) - lu(k,1407) * lu(k,1905) - lu(k,1925) = lu(k,1925) - lu(k,1408) * lu(k,1905) - lu(k,1926) = lu(k,1926) - lu(k,1409) * lu(k,1905) - lu(k,1949) = lu(k,1949) - lu(k,1398) * lu(k,1948) - lu(k,1950) = lu(k,1950) - lu(k,1399) * lu(k,1948) - lu(k,1957) = lu(k,1957) - lu(k,1400) * lu(k,1948) - lu(k,1958) = lu(k,1958) - lu(k,1401) * lu(k,1948) - lu(k,1959) = lu(k,1959) - lu(k,1402) * lu(k,1948) - lu(k,1960) = lu(k,1960) - lu(k,1403) * lu(k,1948) - lu(k,1961) = lu(k,1961) - lu(k,1404) * lu(k,1948) - lu(k,1963) = lu(k,1963) - lu(k,1405) * lu(k,1948) - lu(k,1967) = lu(k,1967) - lu(k,1406) * lu(k,1948) - lu(k,1969) = lu(k,1969) - lu(k,1407) * lu(k,1948) - lu(k,1970) = lu(k,1970) - lu(k,1408) * lu(k,1948) - lu(k,1971) = lu(k,1971) - lu(k,1409) * lu(k,1948) - lu(k,2216) = lu(k,2216) - lu(k,1398) * lu(k,2215) - lu(k,2217) = lu(k,2217) - lu(k,1399) * lu(k,2215) - lu(k,2223) = lu(k,2223) - lu(k,1400) * lu(k,2215) - lu(k,2224) = lu(k,2224) - lu(k,1401) * lu(k,2215) - lu(k,2225) = lu(k,2225) - lu(k,1402) * lu(k,2215) - lu(k,2226) = lu(k,2226) - lu(k,1403) * lu(k,2215) - lu(k,2227) = lu(k,2227) - lu(k,1404) * lu(k,2215) - lu(k,2229) = lu(k,2229) - lu(k,1405) * lu(k,2215) - lu(k,2233) = lu(k,2233) - lu(k,1406) * lu(k,2215) - lu(k,2235) = lu(k,2235) - lu(k,1407) * lu(k,2215) - lu(k,2236) = lu(k,2236) - lu(k,1408) * lu(k,2215) - lu(k,2237) = lu(k,2237) - lu(k,1409) * lu(k,2215) - lu(k,2348) = lu(k,2348) - lu(k,1398) * lu(k,2347) - lu(k,2349) = lu(k,2349) - lu(k,1399) * lu(k,2347) - lu(k,2356) = lu(k,2356) - lu(k,1400) * lu(k,2347) - lu(k,2357) = lu(k,2357) - lu(k,1401) * lu(k,2347) - lu(k,2358) = lu(k,2358) - lu(k,1402) * lu(k,2347) - lu(k,2359) = lu(k,2359) - lu(k,1403) * lu(k,2347) - lu(k,2360) = lu(k,2360) - lu(k,1404) * lu(k,2347) - lu(k,2362) = lu(k,2362) - lu(k,1405) * lu(k,2347) - lu(k,2366) = lu(k,2366) - lu(k,1406) * lu(k,2347) - lu(k,2368) = lu(k,2368) - lu(k,1407) * lu(k,2347) - lu(k,2369) = lu(k,2369) - lu(k,1408) * lu(k,2347) - lu(k,2370) = lu(k,2370) - lu(k,1409) * lu(k,2347) - lu(k,2403) = lu(k,2403) - lu(k,1398) * lu(k,2402) - lu(k,2404) = lu(k,2404) - lu(k,1399) * lu(k,2402) - lu(k,2408) = lu(k,2408) - lu(k,1400) * lu(k,2402) - lu(k,2409) = lu(k,2409) - lu(k,1401) * lu(k,2402) - lu(k,2410) = lu(k,2410) - lu(k,1402) * lu(k,2402) - lu(k,2411) = lu(k,2411) - lu(k,1403) * lu(k,2402) - lu(k,2412) = lu(k,2412) - lu(k,1404) * lu(k,2402) - lu(k,2414) = lu(k,2414) - lu(k,1405) * lu(k,2402) - lu(k,2418) = lu(k,2418) - lu(k,1406) * lu(k,2402) - lu(k,2420) = lu(k,2420) - lu(k,1407) * lu(k,2402) - lu(k,2421) = lu(k,2421) - lu(k,1408) * lu(k,2402) - lu(k,2422) = lu(k,2422) - lu(k,1409) * lu(k,2402) - lu(k,1428) = 1._r8 / lu(k,1428) - lu(k,1429) = lu(k,1429) * lu(k,1428) - lu(k,1430) = lu(k,1430) * lu(k,1428) - lu(k,1431) = lu(k,1431) * lu(k,1428) - lu(k,1432) = lu(k,1432) * lu(k,1428) - lu(k,1433) = lu(k,1433) * lu(k,1428) - lu(k,1434) = lu(k,1434) * lu(k,1428) - lu(k,1435) = lu(k,1435) * lu(k,1428) - lu(k,1436) = lu(k,1436) * lu(k,1428) - lu(k,1437) = lu(k,1437) * lu(k,1428) - lu(k,1438) = lu(k,1438) * lu(k,1428) - lu(k,1439) = lu(k,1439) * lu(k,1428) - lu(k,1440) = lu(k,1440) * lu(k,1428) - lu(k,1441) = lu(k,1441) * lu(k,1428) - lu(k,1646) = lu(k,1646) - lu(k,1429) * lu(k,1645) - lu(k,1649) = lu(k,1649) - lu(k,1430) * lu(k,1645) - lu(k,1652) = lu(k,1652) - lu(k,1431) * lu(k,1645) - lu(k,1653) = lu(k,1653) - lu(k,1432) * lu(k,1645) - lu(k,1654) = lu(k,1654) - lu(k,1433) * lu(k,1645) - lu(k,1655) = lu(k,1655) - lu(k,1434) * lu(k,1645) - lu(k,1656) = lu(k,1656) - lu(k,1435) * lu(k,1645) - lu(k,1658) = lu(k,1658) - lu(k,1436) * lu(k,1645) - lu(k,1662) = lu(k,1662) - lu(k,1437) * lu(k,1645) - lu(k,1663) = lu(k,1663) - lu(k,1438) * lu(k,1645) - lu(k,1664) = lu(k,1664) - lu(k,1439) * lu(k,1645) - lu(k,1665) = lu(k,1665) - lu(k,1440) * lu(k,1645) - lu(k,1666) = lu(k,1666) - lu(k,1441) * lu(k,1645) - lu(k,1809) = lu(k,1809) - lu(k,1429) * lu(k,1808) - lu(k,1814) = lu(k,1814) - lu(k,1430) * lu(k,1808) - lu(k,1817) = lu(k,1817) - lu(k,1431) * lu(k,1808) - lu(k,1818) = lu(k,1818) - lu(k,1432) * lu(k,1808) - lu(k,1819) = lu(k,1819) - lu(k,1433) * lu(k,1808) - lu(k,1820) = lu(k,1820) - lu(k,1434) * lu(k,1808) - lu(k,1821) = lu(k,1821) - lu(k,1435) * lu(k,1808) - lu(k,1823) = lu(k,1823) - lu(k,1436) * lu(k,1808) - lu(k,1827) = lu(k,1827) - lu(k,1437) * lu(k,1808) - lu(k,1828) = lu(k,1828) - lu(k,1438) * lu(k,1808) - lu(k,1829) = lu(k,1829) - lu(k,1439) * lu(k,1808) - lu(k,1830) = lu(k,1830) - lu(k,1440) * lu(k,1808) - lu(k,1831) = lu(k,1831) - lu(k,1441) * lu(k,1808) - lu(k,1907) = lu(k,1907) - lu(k,1429) * lu(k,1906) - lu(k,1909) = lu(k,1909) - lu(k,1430) * lu(k,1906) - lu(k,1912) = lu(k,1912) - lu(k,1431) * lu(k,1906) - lu(k,1913) = lu(k,1913) - lu(k,1432) * lu(k,1906) - lu(k,1914) = lu(k,1914) - lu(k,1433) * lu(k,1906) - lu(k,1915) = lu(k,1915) - lu(k,1434) * lu(k,1906) - lu(k,1916) = lu(k,1916) - lu(k,1435) * lu(k,1906) - lu(k,1918) = lu(k,1918) - lu(k,1436) * lu(k,1906) - lu(k,1922) = lu(k,1922) - lu(k,1437) * lu(k,1906) - lu(k,1923) = lu(k,1923) - lu(k,1438) * lu(k,1906) - lu(k,1924) = lu(k,1924) - lu(k,1439) * lu(k,1906) - lu(k,1925) = lu(k,1925) - lu(k,1440) * lu(k,1906) - lu(k,1926) = lu(k,1926) - lu(k,1441) * lu(k,1906) - lu(k,1950) = lu(k,1950) - lu(k,1429) * lu(k,1949) - lu(k,1954) = lu(k,1954) - lu(k,1430) * lu(k,1949) - lu(k,1957) = lu(k,1957) - lu(k,1431) * lu(k,1949) - lu(k,1958) = lu(k,1958) - lu(k,1432) * lu(k,1949) - lu(k,1959) = lu(k,1959) - lu(k,1433) * lu(k,1949) - lu(k,1960) = lu(k,1960) - lu(k,1434) * lu(k,1949) - lu(k,1961) = lu(k,1961) - lu(k,1435) * lu(k,1949) - lu(k,1963) = lu(k,1963) - lu(k,1436) * lu(k,1949) - lu(k,1967) = lu(k,1967) - lu(k,1437) * lu(k,1949) - lu(k,1968) = - lu(k,1438) * lu(k,1949) - lu(k,1969) = lu(k,1969) - lu(k,1439) * lu(k,1949) - lu(k,1970) = lu(k,1970) - lu(k,1440) * lu(k,1949) - lu(k,1971) = lu(k,1971) - lu(k,1441) * lu(k,1949) - lu(k,2152) = lu(k,2152) - lu(k,1429) * lu(k,2151) - lu(k,2156) = lu(k,2156) - lu(k,1430) * lu(k,2151) - lu(k,2159) = lu(k,2159) - lu(k,1431) * lu(k,2151) - lu(k,2160) = lu(k,2160) - lu(k,1432) * lu(k,2151) - lu(k,2161) = lu(k,2161) - lu(k,1433) * lu(k,2151) - lu(k,2162) = lu(k,2162) - lu(k,1434) * lu(k,2151) - lu(k,2163) = lu(k,2163) - lu(k,1435) * lu(k,2151) - lu(k,2165) = lu(k,2165) - lu(k,1436) * lu(k,2151) - lu(k,2169) = lu(k,2169) - lu(k,1437) * lu(k,2151) - lu(k,2170) = lu(k,2170) - lu(k,1438) * lu(k,2151) - lu(k,2171) = lu(k,2171) - lu(k,1439) * lu(k,2151) - lu(k,2172) = lu(k,2172) - lu(k,1440) * lu(k,2151) - lu(k,2173) = lu(k,2173) - lu(k,1441) * lu(k,2151) - lu(k,2217) = lu(k,2217) - lu(k,1429) * lu(k,2216) - lu(k,2220) = lu(k,2220) - lu(k,1430) * lu(k,2216) - lu(k,2223) = lu(k,2223) - lu(k,1431) * lu(k,2216) - lu(k,2224) = lu(k,2224) - lu(k,1432) * lu(k,2216) - lu(k,2225) = lu(k,2225) - lu(k,1433) * lu(k,2216) - lu(k,2226) = lu(k,2226) - lu(k,1434) * lu(k,2216) - lu(k,2227) = lu(k,2227) - lu(k,1435) * lu(k,2216) - lu(k,2229) = lu(k,2229) - lu(k,1436) * lu(k,2216) - lu(k,2233) = lu(k,2233) - lu(k,1437) * lu(k,2216) - lu(k,2234) = lu(k,2234) - lu(k,1438) * lu(k,2216) - lu(k,2235) = lu(k,2235) - lu(k,1439) * lu(k,2216) - lu(k,2236) = lu(k,2236) - lu(k,1440) * lu(k,2216) - lu(k,2237) = lu(k,2237) - lu(k,1441) * lu(k,2216) - lu(k,2349) = lu(k,2349) - lu(k,1429) * lu(k,2348) - lu(k,2353) = lu(k,2353) - lu(k,1430) * lu(k,2348) - lu(k,2356) = lu(k,2356) - lu(k,1431) * lu(k,2348) - lu(k,2357) = lu(k,2357) - lu(k,1432) * lu(k,2348) - lu(k,2358) = lu(k,2358) - lu(k,1433) * lu(k,2348) - lu(k,2359) = lu(k,2359) - lu(k,1434) * lu(k,2348) - lu(k,2360) = lu(k,2360) - lu(k,1435) * lu(k,2348) - lu(k,2362) = lu(k,2362) - lu(k,1436) * lu(k,2348) - lu(k,2366) = lu(k,2366) - lu(k,1437) * lu(k,2348) - lu(k,2367) = lu(k,2367) - lu(k,1438) * lu(k,2348) - lu(k,2368) = lu(k,2368) - lu(k,1439) * lu(k,2348) - lu(k,2369) = lu(k,2369) - lu(k,1440) * lu(k,2348) - lu(k,2370) = lu(k,2370) - lu(k,1441) * lu(k,2348) - lu(k,2404) = lu(k,2404) - lu(k,1429) * lu(k,2403) - lu(k,2405) = lu(k,2405) - lu(k,1430) * lu(k,2403) - lu(k,2408) = lu(k,2408) - lu(k,1431) * lu(k,2403) - lu(k,2409) = lu(k,2409) - lu(k,1432) * lu(k,2403) - lu(k,2410) = lu(k,2410) - lu(k,1433) * lu(k,2403) - lu(k,2411) = lu(k,2411) - lu(k,1434) * lu(k,2403) - lu(k,2412) = lu(k,2412) - lu(k,1435) * lu(k,2403) - lu(k,2414) = lu(k,2414) - lu(k,1436) * lu(k,2403) - lu(k,2418) = lu(k,2418) - lu(k,1437) * lu(k,2403) - lu(k,2419) = lu(k,2419) - lu(k,1438) * lu(k,2403) - lu(k,2420) = lu(k,2420) - lu(k,1439) * lu(k,2403) - lu(k,2421) = lu(k,2421) - lu(k,1440) * lu(k,2403) - lu(k,2422) = lu(k,2422) - lu(k,1441) * lu(k,2403) - lu(k,1450) = 1._r8 / lu(k,1450) - lu(k,1451) = lu(k,1451) * lu(k,1450) - lu(k,1452) = lu(k,1452) * lu(k,1450) - lu(k,1453) = lu(k,1453) * lu(k,1450) - lu(k,1454) = lu(k,1454) * lu(k,1450) - lu(k,1455) = lu(k,1455) * lu(k,1450) - lu(k,1456) = lu(k,1456) * lu(k,1450) - lu(k,1457) = lu(k,1457) * lu(k,1450) - lu(k,1458) = lu(k,1458) * lu(k,1450) - lu(k,1512) = lu(k,1512) - lu(k,1451) * lu(k,1510) - lu(k,1514) = lu(k,1514) - lu(k,1452) * lu(k,1510) - lu(k,1515) = - lu(k,1453) * lu(k,1510) - lu(k,1516) = - lu(k,1454) * lu(k,1510) - lu(k,1518) = lu(k,1518) - lu(k,1455) * lu(k,1510) - lu(k,1519) = lu(k,1519) - lu(k,1456) * lu(k,1510) - lu(k,1520) = lu(k,1520) - lu(k,1457) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,1458) * lu(k,1510) - lu(k,1542) = lu(k,1542) - lu(k,1451) * lu(k,1539) - lu(k,1545) = lu(k,1545) - lu(k,1452) * lu(k,1539) - lu(k,1546) = lu(k,1546) - lu(k,1453) * lu(k,1539) - lu(k,1547) = lu(k,1547) - lu(k,1454) * lu(k,1539) - lu(k,1549) = lu(k,1549) - lu(k,1455) * lu(k,1539) - lu(k,1550) = lu(k,1550) - lu(k,1456) * lu(k,1539) - lu(k,1551) = lu(k,1551) - lu(k,1457) * lu(k,1539) - lu(k,1554) = lu(k,1554) - lu(k,1458) * lu(k,1539) - lu(k,1649) = lu(k,1649) - lu(k,1451) * lu(k,1646) - lu(k,1653) = lu(k,1653) - lu(k,1452) * lu(k,1646) - lu(k,1654) = lu(k,1654) - lu(k,1453) * lu(k,1646) - lu(k,1655) = lu(k,1655) - lu(k,1454) * lu(k,1646) - lu(k,1657) = - lu(k,1455) * lu(k,1646) - lu(k,1659) = lu(k,1659) - lu(k,1456) * lu(k,1646) - lu(k,1660) = - lu(k,1457) * lu(k,1646) - lu(k,1664) = lu(k,1664) - lu(k,1458) * lu(k,1646) - lu(k,1814) = lu(k,1814) - lu(k,1451) * lu(k,1809) - lu(k,1818) = lu(k,1818) - lu(k,1452) * lu(k,1809) - lu(k,1819) = lu(k,1819) - lu(k,1453) * lu(k,1809) - lu(k,1820) = lu(k,1820) - lu(k,1454) * lu(k,1809) - lu(k,1822) = lu(k,1822) - lu(k,1455) * lu(k,1809) - lu(k,1824) = lu(k,1824) - lu(k,1456) * lu(k,1809) - lu(k,1825) = lu(k,1825) - lu(k,1457) * lu(k,1809) - lu(k,1829) = lu(k,1829) - lu(k,1458) * lu(k,1809) - lu(k,1909) = lu(k,1909) - lu(k,1451) * lu(k,1907) - lu(k,1913) = lu(k,1913) - lu(k,1452) * lu(k,1907) - lu(k,1914) = lu(k,1914) - lu(k,1453) * lu(k,1907) - lu(k,1915) = lu(k,1915) - lu(k,1454) * lu(k,1907) - lu(k,1917) = lu(k,1917) - lu(k,1455) * lu(k,1907) - lu(k,1919) = lu(k,1919) - lu(k,1456) * lu(k,1907) - lu(k,1920) = lu(k,1920) - lu(k,1457) * lu(k,1907) - lu(k,1924) = lu(k,1924) - lu(k,1458) * lu(k,1907) - lu(k,1954) = lu(k,1954) - lu(k,1451) * lu(k,1950) - lu(k,1958) = lu(k,1958) - lu(k,1452) * lu(k,1950) - lu(k,1959) = lu(k,1959) - lu(k,1453) * lu(k,1950) - lu(k,1960) = lu(k,1960) - lu(k,1454) * lu(k,1950) - lu(k,1962) = lu(k,1962) - lu(k,1455) * lu(k,1950) - lu(k,1964) = lu(k,1964) - lu(k,1456) * lu(k,1950) - lu(k,1965) = lu(k,1965) - lu(k,1457) * lu(k,1950) - lu(k,1969) = lu(k,1969) - lu(k,1458) * lu(k,1950) - lu(k,1980) = - lu(k,1451) * lu(k,1976) - lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1976) - lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1976) - lu(k,1986) = lu(k,1986) - lu(k,1454) * lu(k,1976) - lu(k,1988) = lu(k,1988) - lu(k,1455) * lu(k,1976) - lu(k,1990) = lu(k,1990) - lu(k,1456) * lu(k,1976) - lu(k,1991) = lu(k,1991) - lu(k,1457) * lu(k,1976) - lu(k,1995) = lu(k,1995) - lu(k,1458) * lu(k,1976) - lu(k,2089) = lu(k,2089) - lu(k,1451) * lu(k,2084) - lu(k,2093) = lu(k,2093) - lu(k,1452) * lu(k,2084) - lu(k,2094) = lu(k,2094) - lu(k,1453) * lu(k,2084) - lu(k,2095) = lu(k,2095) - lu(k,1454) * lu(k,2084) - lu(k,2097) = lu(k,2097) - lu(k,1455) * lu(k,2084) - lu(k,2099) = lu(k,2099) - lu(k,1456) * lu(k,2084) - lu(k,2100) = lu(k,2100) - lu(k,1457) * lu(k,2084) - lu(k,2104) = lu(k,2104) - lu(k,1458) * lu(k,2084) - lu(k,2156) = lu(k,2156) - lu(k,1451) * lu(k,2152) - lu(k,2160) = lu(k,2160) - lu(k,1452) * lu(k,2152) - lu(k,2161) = lu(k,2161) - lu(k,1453) * lu(k,2152) - lu(k,2162) = lu(k,2162) - lu(k,1454) * lu(k,2152) - lu(k,2164) = lu(k,2164) - lu(k,1455) * lu(k,2152) - lu(k,2166) = lu(k,2166) - lu(k,1456) * lu(k,2152) - lu(k,2167) = lu(k,2167) - lu(k,1457) * lu(k,2152) - lu(k,2171) = lu(k,2171) - lu(k,1458) * lu(k,2152) - lu(k,2220) = lu(k,2220) - lu(k,1451) * lu(k,2217) - lu(k,2224) = lu(k,2224) - lu(k,1452) * lu(k,2217) - lu(k,2225) = lu(k,2225) - lu(k,1453) * lu(k,2217) - lu(k,2226) = lu(k,2226) - lu(k,1454) * lu(k,2217) - lu(k,2228) = lu(k,2228) - lu(k,1455) * lu(k,2217) - lu(k,2230) = lu(k,2230) - lu(k,1456) * lu(k,2217) - lu(k,2231) = lu(k,2231) - lu(k,1457) * lu(k,2217) - lu(k,2235) = lu(k,2235) - lu(k,1458) * lu(k,2217) - lu(k,2245) = - lu(k,1451) * lu(k,2241) - lu(k,2249) = lu(k,2249) - lu(k,1452) * lu(k,2241) - lu(k,2250) = - lu(k,1453) * lu(k,2241) - lu(k,2251) = - lu(k,1454) * lu(k,2241) - lu(k,2253) = lu(k,2253) - lu(k,1455) * lu(k,2241) - lu(k,2255) = lu(k,2255) - lu(k,1456) * lu(k,2241) - lu(k,2256) = lu(k,2256) - lu(k,1457) * lu(k,2241) - lu(k,2260) = lu(k,2260) - lu(k,1458) * lu(k,2241) - lu(k,2353) = lu(k,2353) - lu(k,1451) * lu(k,2349) - lu(k,2357) = lu(k,2357) - lu(k,1452) * lu(k,2349) - lu(k,2358) = lu(k,2358) - lu(k,1453) * lu(k,2349) - lu(k,2359) = lu(k,2359) - lu(k,1454) * lu(k,2349) - lu(k,2361) = lu(k,2361) - lu(k,1455) * lu(k,2349) - lu(k,2363) = lu(k,2363) - lu(k,1456) * lu(k,2349) - lu(k,2364) = lu(k,2364) - lu(k,1457) * lu(k,2349) - lu(k,2368) = lu(k,2368) - lu(k,1458) * lu(k,2349) - lu(k,2405) = lu(k,2405) - lu(k,1451) * lu(k,2404) - lu(k,2409) = lu(k,2409) - lu(k,1452) * lu(k,2404) - lu(k,2410) = lu(k,2410) - lu(k,1453) * lu(k,2404) - lu(k,2411) = lu(k,2411) - lu(k,1454) * lu(k,2404) - lu(k,2413) = - lu(k,1455) * lu(k,2404) - lu(k,2415) = - lu(k,1456) * lu(k,2404) - lu(k,2416) = lu(k,2416) - lu(k,1457) * lu(k,2404) - lu(k,2420) = lu(k,2420) - lu(k,1458) * lu(k,2404) + lu(k,1298) = 1._r8 / lu(k,1298) + lu(k,1299) = lu(k,1299) * lu(k,1298) + lu(k,1300) = lu(k,1300) * lu(k,1298) + lu(k,1301) = lu(k,1301) * lu(k,1298) + lu(k,1302) = lu(k,1302) * lu(k,1298) + lu(k,1303) = lu(k,1303) * lu(k,1298) + lu(k,1304) = lu(k,1304) * lu(k,1298) + lu(k,1305) = lu(k,1305) * lu(k,1298) + lu(k,1306) = lu(k,1306) * lu(k,1298) + lu(k,1307) = lu(k,1307) * lu(k,1298) + lu(k,1308) = lu(k,1308) * lu(k,1298) + lu(k,1309) = lu(k,1309) * lu(k,1298) + lu(k,1310) = lu(k,1310) * lu(k,1298) + lu(k,1311) = lu(k,1311) * lu(k,1298) + lu(k,1312) = lu(k,1312) * lu(k,1298) + lu(k,1313) = lu(k,1313) * lu(k,1298) + lu(k,1424) = lu(k,1424) - lu(k,1299) * lu(k,1422) + lu(k,1425) = lu(k,1425) - lu(k,1300) * lu(k,1422) + lu(k,1426) = lu(k,1426) - lu(k,1301) * lu(k,1422) + lu(k,1427) = lu(k,1427) - lu(k,1302) * lu(k,1422) + lu(k,1428) = lu(k,1428) - lu(k,1303) * lu(k,1422) + lu(k,1431) = lu(k,1431) - lu(k,1304) * lu(k,1422) + lu(k,1432) = lu(k,1432) - lu(k,1305) * lu(k,1422) + lu(k,1433) = lu(k,1433) - lu(k,1306) * lu(k,1422) + lu(k,1434) = lu(k,1434) - lu(k,1307) * lu(k,1422) + lu(k,1435) = lu(k,1435) - lu(k,1308) * lu(k,1422) + lu(k,1436) = lu(k,1436) - lu(k,1309) * lu(k,1422) + lu(k,1437) = lu(k,1437) - lu(k,1310) * lu(k,1422) + lu(k,1438) = lu(k,1438) - lu(k,1311) * lu(k,1422) + lu(k,1439) = lu(k,1439) - lu(k,1312) * lu(k,1422) + lu(k,1440) = lu(k,1440) - lu(k,1313) * lu(k,1422) + lu(k,1785) = lu(k,1785) - lu(k,1299) * lu(k,1783) + lu(k,1786) = lu(k,1786) - lu(k,1300) * lu(k,1783) + lu(k,1787) = lu(k,1787) - lu(k,1301) * lu(k,1783) + lu(k,1788) = lu(k,1788) - lu(k,1302) * lu(k,1783) + lu(k,1789) = lu(k,1789) - lu(k,1303) * lu(k,1783) + lu(k,1798) = lu(k,1798) - lu(k,1304) * lu(k,1783) + lu(k,1800) = lu(k,1800) - lu(k,1305) * lu(k,1783) + lu(k,1801) = lu(k,1801) - lu(k,1306) * lu(k,1783) + lu(k,1802) = lu(k,1802) - lu(k,1307) * lu(k,1783) + lu(k,1804) = lu(k,1804) - lu(k,1308) * lu(k,1783) + lu(k,1807) = lu(k,1807) - lu(k,1309) * lu(k,1783) + lu(k,1808) = lu(k,1808) - lu(k,1310) * lu(k,1783) + lu(k,1809) = lu(k,1809) - lu(k,1311) * lu(k,1783) + lu(k,1810) = lu(k,1810) - lu(k,1312) * lu(k,1783) + lu(k,1811) = lu(k,1811) - lu(k,1313) * lu(k,1783) + lu(k,2001) = lu(k,2001) - lu(k,1299) * lu(k,1999) + lu(k,2002) = lu(k,2002) - lu(k,1300) * lu(k,1999) + lu(k,2003) = lu(k,2003) - lu(k,1301) * lu(k,1999) + lu(k,2004) = lu(k,2004) - lu(k,1302) * lu(k,1999) + lu(k,2005) = lu(k,2005) - lu(k,1303) * lu(k,1999) + lu(k,2011) = lu(k,2011) - lu(k,1304) * lu(k,1999) + lu(k,2013) = lu(k,2013) - lu(k,1305) * lu(k,1999) + lu(k,2014) = lu(k,2014) - lu(k,1306) * lu(k,1999) + lu(k,2015) = lu(k,2015) - lu(k,1307) * lu(k,1999) + lu(k,2017) = lu(k,2017) - lu(k,1308) * lu(k,1999) + lu(k,2020) = lu(k,2020) - lu(k,1309) * lu(k,1999) + lu(k,2021) = lu(k,2021) - lu(k,1310) * lu(k,1999) + lu(k,2022) = lu(k,2022) - lu(k,1311) * lu(k,1999) + lu(k,2023) = lu(k,2023) - lu(k,1312) * lu(k,1999) + lu(k,2024) = lu(k,2024) - lu(k,1313) * lu(k,1999) + lu(k,2107) = lu(k,2107) - lu(k,1299) * lu(k,2105) + lu(k,2108) = lu(k,2108) - lu(k,1300) * lu(k,2105) + lu(k,2109) = lu(k,2109) - lu(k,1301) * lu(k,2105) + lu(k,2110) = lu(k,2110) - lu(k,1302) * lu(k,2105) + lu(k,2111) = lu(k,2111) - lu(k,1303) * lu(k,2105) + lu(k,2118) = lu(k,2118) - lu(k,1304) * lu(k,2105) + lu(k,2120) = lu(k,2120) - lu(k,1305) * lu(k,2105) + lu(k,2121) = lu(k,2121) - lu(k,1306) * lu(k,2105) + lu(k,2122) = lu(k,2122) - lu(k,1307) * lu(k,2105) + lu(k,2124) = lu(k,2124) - lu(k,1308) * lu(k,2105) + lu(k,2127) = lu(k,2127) - lu(k,1309) * lu(k,2105) + lu(k,2128) = lu(k,2128) - lu(k,1310) * lu(k,2105) + lu(k,2129) = lu(k,2129) - lu(k,1311) * lu(k,2105) + lu(k,2130) = lu(k,2130) - lu(k,1312) * lu(k,2105) + lu(k,2131) = lu(k,2131) - lu(k,1313) * lu(k,2105) + lu(k,2215) = lu(k,2215) - lu(k,1299) * lu(k,2213) + lu(k,2216) = lu(k,2216) - lu(k,1300) * lu(k,2213) + lu(k,2217) = lu(k,2217) - lu(k,1301) * lu(k,2213) + lu(k,2218) = lu(k,2218) - lu(k,1302) * lu(k,2213) + lu(k,2219) = lu(k,2219) - lu(k,1303) * lu(k,2213) + lu(k,2226) = lu(k,2226) - lu(k,1304) * lu(k,2213) + lu(k,2228) = lu(k,2228) - lu(k,1305) * lu(k,2213) + lu(k,2229) = lu(k,2229) - lu(k,1306) * lu(k,2213) + lu(k,2230) = lu(k,2230) - lu(k,1307) * lu(k,2213) + lu(k,2232) = lu(k,2232) - lu(k,1308) * lu(k,2213) + lu(k,2235) = lu(k,2235) - lu(k,1309) * lu(k,2213) + lu(k,2236) = lu(k,2236) - lu(k,1310) * lu(k,2213) + lu(k,2237) = lu(k,2237) - lu(k,1311) * lu(k,2213) + lu(k,2238) = lu(k,2238) - lu(k,1312) * lu(k,2213) + lu(k,2239) = lu(k,2239) - lu(k,1313) * lu(k,2213) + lu(k,2322) = lu(k,2322) - lu(k,1299) * lu(k,2320) + lu(k,2323) = lu(k,2323) - lu(k,1300) * lu(k,2320) + lu(k,2324) = lu(k,2324) - lu(k,1301) * lu(k,2320) + lu(k,2325) = lu(k,2325) - lu(k,1302) * lu(k,2320) + lu(k,2326) = lu(k,2326) - lu(k,1303) * lu(k,2320) + lu(k,2334) = lu(k,2334) - lu(k,1304) * lu(k,2320) + lu(k,2336) = lu(k,2336) - lu(k,1305) * lu(k,2320) + lu(k,2337) = lu(k,2337) - lu(k,1306) * lu(k,2320) + lu(k,2338) = lu(k,2338) - lu(k,1307) * lu(k,2320) + lu(k,2340) = lu(k,2340) - lu(k,1308) * lu(k,2320) + lu(k,2343) = lu(k,2343) - lu(k,1309) * lu(k,2320) + lu(k,2344) = lu(k,2344) - lu(k,1310) * lu(k,2320) + lu(k,2345) = lu(k,2345) - lu(k,1311) * lu(k,2320) + lu(k,2346) = lu(k,2346) - lu(k,1312) * lu(k,2320) + lu(k,2347) = lu(k,2347) - lu(k,1313) * lu(k,2320) + lu(k,2400) = lu(k,2400) - lu(k,1299) * lu(k,2398) + lu(k,2401) = lu(k,2401) - lu(k,1300) * lu(k,2398) + lu(k,2402) = lu(k,2402) - lu(k,1301) * lu(k,2398) + lu(k,2403) = lu(k,2403) - lu(k,1302) * lu(k,2398) + lu(k,2404) = lu(k,2404) - lu(k,1303) * lu(k,2398) + lu(k,2409) = lu(k,2409) - lu(k,1304) * lu(k,2398) + lu(k,2411) = lu(k,2411) - lu(k,1305) * lu(k,2398) + lu(k,2412) = lu(k,2412) - lu(k,1306) * lu(k,2398) + lu(k,2413) = lu(k,2413) - lu(k,1307) * lu(k,2398) + lu(k,2415) = lu(k,2415) - lu(k,1308) * lu(k,2398) + lu(k,2418) = lu(k,2418) - lu(k,1309) * lu(k,2398) + lu(k,2419) = lu(k,2419) - lu(k,1310) * lu(k,2398) + lu(k,2420) = lu(k,2420) - lu(k,1311) * lu(k,2398) + lu(k,2421) = lu(k,2421) - lu(k,1312) * lu(k,2398) + lu(k,2422) = lu(k,2422) - lu(k,1313) * lu(k,2398) + lu(k,1331) = 1._r8 / lu(k,1331) + lu(k,1332) = lu(k,1332) * lu(k,1331) + lu(k,1333) = lu(k,1333) * lu(k,1331) + lu(k,1334) = lu(k,1334) * lu(k,1331) + lu(k,1335) = lu(k,1335) * lu(k,1331) + lu(k,1336) = lu(k,1336) * lu(k,1331) + lu(k,1337) = lu(k,1337) * lu(k,1331) + lu(k,1338) = lu(k,1338) * lu(k,1331) + lu(k,1339) = lu(k,1339) * lu(k,1331) + lu(k,1340) = lu(k,1340) * lu(k,1331) + lu(k,1341) = lu(k,1341) * lu(k,1331) + lu(k,1342) = lu(k,1342) * lu(k,1331) + lu(k,1343) = lu(k,1343) * lu(k,1331) + lu(k,1344) = lu(k,1344) * lu(k,1331) + lu(k,1345) = lu(k,1345) * lu(k,1331) + lu(k,1346) = lu(k,1346) * lu(k,1331) + lu(k,1424) = lu(k,1424) - lu(k,1332) * lu(k,1423) + lu(k,1425) = lu(k,1425) - lu(k,1333) * lu(k,1423) + lu(k,1426) = lu(k,1426) - lu(k,1334) * lu(k,1423) + lu(k,1427) = lu(k,1427) - lu(k,1335) * lu(k,1423) + lu(k,1428) = lu(k,1428) - lu(k,1336) * lu(k,1423) + lu(k,1431) = lu(k,1431) - lu(k,1337) * lu(k,1423) + lu(k,1432) = lu(k,1432) - lu(k,1338) * lu(k,1423) + lu(k,1433) = lu(k,1433) - lu(k,1339) * lu(k,1423) + lu(k,1434) = lu(k,1434) - lu(k,1340) * lu(k,1423) + lu(k,1435) = lu(k,1435) - lu(k,1341) * lu(k,1423) + lu(k,1436) = lu(k,1436) - lu(k,1342) * lu(k,1423) + lu(k,1437) = lu(k,1437) - lu(k,1343) * lu(k,1423) + lu(k,1438) = lu(k,1438) - lu(k,1344) * lu(k,1423) + lu(k,1439) = lu(k,1439) - lu(k,1345) * lu(k,1423) + lu(k,1440) = lu(k,1440) - lu(k,1346) * lu(k,1423) + lu(k,1785) = lu(k,1785) - lu(k,1332) * lu(k,1784) + lu(k,1786) = lu(k,1786) - lu(k,1333) * lu(k,1784) + lu(k,1787) = lu(k,1787) - lu(k,1334) * lu(k,1784) + lu(k,1788) = lu(k,1788) - lu(k,1335) * lu(k,1784) + lu(k,1789) = lu(k,1789) - lu(k,1336) * lu(k,1784) + lu(k,1798) = lu(k,1798) - lu(k,1337) * lu(k,1784) + lu(k,1800) = lu(k,1800) - lu(k,1338) * lu(k,1784) + lu(k,1801) = lu(k,1801) - lu(k,1339) * lu(k,1784) + lu(k,1802) = lu(k,1802) - lu(k,1340) * lu(k,1784) + lu(k,1804) = lu(k,1804) - lu(k,1341) * lu(k,1784) + lu(k,1807) = lu(k,1807) - lu(k,1342) * lu(k,1784) + lu(k,1808) = lu(k,1808) - lu(k,1343) * lu(k,1784) + lu(k,1809) = lu(k,1809) - lu(k,1344) * lu(k,1784) + lu(k,1810) = lu(k,1810) - lu(k,1345) * lu(k,1784) + lu(k,1811) = lu(k,1811) - lu(k,1346) * lu(k,1784) + lu(k,2001) = lu(k,2001) - lu(k,1332) * lu(k,2000) + lu(k,2002) = lu(k,2002) - lu(k,1333) * lu(k,2000) + lu(k,2003) = lu(k,2003) - lu(k,1334) * lu(k,2000) + lu(k,2004) = lu(k,2004) - lu(k,1335) * lu(k,2000) + lu(k,2005) = lu(k,2005) - lu(k,1336) * lu(k,2000) + lu(k,2011) = lu(k,2011) - lu(k,1337) * lu(k,2000) + lu(k,2013) = lu(k,2013) - lu(k,1338) * lu(k,2000) + lu(k,2014) = lu(k,2014) - lu(k,1339) * lu(k,2000) + lu(k,2015) = lu(k,2015) - lu(k,1340) * lu(k,2000) + lu(k,2017) = lu(k,2017) - lu(k,1341) * lu(k,2000) + lu(k,2020) = lu(k,2020) - lu(k,1342) * lu(k,2000) + lu(k,2021) = lu(k,2021) - lu(k,1343) * lu(k,2000) + lu(k,2022) = lu(k,2022) - lu(k,1344) * lu(k,2000) + lu(k,2023) = lu(k,2023) - lu(k,1345) * lu(k,2000) + lu(k,2024) = lu(k,2024) - lu(k,1346) * lu(k,2000) + lu(k,2107) = lu(k,2107) - lu(k,1332) * lu(k,2106) + lu(k,2108) = lu(k,2108) - lu(k,1333) * lu(k,2106) + lu(k,2109) = lu(k,2109) - lu(k,1334) * lu(k,2106) + lu(k,2110) = lu(k,2110) - lu(k,1335) * lu(k,2106) + lu(k,2111) = lu(k,2111) - lu(k,1336) * lu(k,2106) + lu(k,2118) = lu(k,2118) - lu(k,1337) * lu(k,2106) + lu(k,2120) = lu(k,2120) - lu(k,1338) * lu(k,2106) + lu(k,2121) = lu(k,2121) - lu(k,1339) * lu(k,2106) + lu(k,2122) = lu(k,2122) - lu(k,1340) * lu(k,2106) + lu(k,2124) = lu(k,2124) - lu(k,1341) * lu(k,2106) + lu(k,2127) = lu(k,2127) - lu(k,1342) * lu(k,2106) + lu(k,2128) = lu(k,2128) - lu(k,1343) * lu(k,2106) + lu(k,2129) = lu(k,2129) - lu(k,1344) * lu(k,2106) + lu(k,2130) = lu(k,2130) - lu(k,1345) * lu(k,2106) + lu(k,2131) = lu(k,2131) - lu(k,1346) * lu(k,2106) + lu(k,2215) = lu(k,2215) - lu(k,1332) * lu(k,2214) + lu(k,2216) = lu(k,2216) - lu(k,1333) * lu(k,2214) + lu(k,2217) = lu(k,2217) - lu(k,1334) * lu(k,2214) + lu(k,2218) = lu(k,2218) - lu(k,1335) * lu(k,2214) + lu(k,2219) = lu(k,2219) - lu(k,1336) * lu(k,2214) + lu(k,2226) = lu(k,2226) - lu(k,1337) * lu(k,2214) + lu(k,2228) = lu(k,2228) - lu(k,1338) * lu(k,2214) + lu(k,2229) = lu(k,2229) - lu(k,1339) * lu(k,2214) + lu(k,2230) = lu(k,2230) - lu(k,1340) * lu(k,2214) + lu(k,2232) = lu(k,2232) - lu(k,1341) * lu(k,2214) + lu(k,2235) = lu(k,2235) - lu(k,1342) * lu(k,2214) + lu(k,2236) = lu(k,2236) - lu(k,1343) * lu(k,2214) + lu(k,2237) = lu(k,2237) - lu(k,1344) * lu(k,2214) + lu(k,2238) = lu(k,2238) - lu(k,1345) * lu(k,2214) + lu(k,2239) = lu(k,2239) - lu(k,1346) * lu(k,2214) + lu(k,2322) = lu(k,2322) - lu(k,1332) * lu(k,2321) + lu(k,2323) = lu(k,2323) - lu(k,1333) * lu(k,2321) + lu(k,2324) = lu(k,2324) - lu(k,1334) * lu(k,2321) + lu(k,2325) = lu(k,2325) - lu(k,1335) * lu(k,2321) + lu(k,2326) = lu(k,2326) - lu(k,1336) * lu(k,2321) + lu(k,2334) = lu(k,2334) - lu(k,1337) * lu(k,2321) + lu(k,2336) = lu(k,2336) - lu(k,1338) * lu(k,2321) + lu(k,2337) = lu(k,2337) - lu(k,1339) * lu(k,2321) + lu(k,2338) = lu(k,2338) - lu(k,1340) * lu(k,2321) + lu(k,2340) = lu(k,2340) - lu(k,1341) * lu(k,2321) + lu(k,2343) = lu(k,2343) - lu(k,1342) * lu(k,2321) + lu(k,2344) = lu(k,2344) - lu(k,1343) * lu(k,2321) + lu(k,2345) = lu(k,2345) - lu(k,1344) * lu(k,2321) + lu(k,2346) = lu(k,2346) - lu(k,1345) * lu(k,2321) + lu(k,2347) = lu(k,2347) - lu(k,1346) * lu(k,2321) + lu(k,2400) = lu(k,2400) - lu(k,1332) * lu(k,2399) + lu(k,2401) = lu(k,2401) - lu(k,1333) * lu(k,2399) + lu(k,2402) = lu(k,2402) - lu(k,1334) * lu(k,2399) + lu(k,2403) = lu(k,2403) - lu(k,1335) * lu(k,2399) + lu(k,2404) = lu(k,2404) - lu(k,1336) * lu(k,2399) + lu(k,2409) = lu(k,2409) - lu(k,1337) * lu(k,2399) + lu(k,2411) = lu(k,2411) - lu(k,1338) * lu(k,2399) + lu(k,2412) = lu(k,2412) - lu(k,1339) * lu(k,2399) + lu(k,2413) = lu(k,2413) - lu(k,1340) * lu(k,2399) + lu(k,2415) = lu(k,2415) - lu(k,1341) * lu(k,2399) + lu(k,2418) = lu(k,2418) - lu(k,1342) * lu(k,2399) + lu(k,2419) = lu(k,2419) - lu(k,1343) * lu(k,2399) + lu(k,2420) = lu(k,2420) - lu(k,1344) * lu(k,2399) + lu(k,2421) = lu(k,2421) - lu(k,1345) * lu(k,2399) + lu(k,2422) = lu(k,2422) - lu(k,1346) * lu(k,2399) + lu(k,1355) = 1._r8 / lu(k,1355) + lu(k,1356) = lu(k,1356) * lu(k,1355) + lu(k,1357) = lu(k,1357) * lu(k,1355) + lu(k,1358) = lu(k,1358) * lu(k,1355) + lu(k,1359) = lu(k,1359) * lu(k,1355) + lu(k,1360) = lu(k,1360) * lu(k,1355) + lu(k,1361) = lu(k,1361) * lu(k,1355) + lu(k,1362) = lu(k,1362) * lu(k,1355) + lu(k,1363) = lu(k,1363) * lu(k,1355) + lu(k,1364) = lu(k,1364) * lu(k,1355) + lu(k,1365) = lu(k,1365) * lu(k,1355) + lu(k,1366) = lu(k,1366) * lu(k,1355) + lu(k,1367) = lu(k,1367) * lu(k,1355) + lu(k,1376) = - lu(k,1356) * lu(k,1374) + lu(k,1377) = lu(k,1377) - lu(k,1357) * lu(k,1374) + lu(k,1378) = lu(k,1378) - lu(k,1358) * lu(k,1374) + lu(k,1381) = lu(k,1381) - lu(k,1359) * lu(k,1374) + lu(k,1382) = lu(k,1382) - lu(k,1360) * lu(k,1374) + lu(k,1383) = lu(k,1383) - lu(k,1361) * lu(k,1374) + lu(k,1384) = lu(k,1384) - lu(k,1362) * lu(k,1374) + lu(k,1386) = lu(k,1386) - lu(k,1363) * lu(k,1374) + lu(k,1387) = lu(k,1387) - lu(k,1364) * lu(k,1374) + lu(k,1388) = lu(k,1388) - lu(k,1365) * lu(k,1374) + lu(k,1389) = lu(k,1389) - lu(k,1366) * lu(k,1374) + lu(k,1390) = lu(k,1390) - lu(k,1367) * lu(k,1374) + lu(k,1426) = lu(k,1426) - lu(k,1356) * lu(k,1424) + lu(k,1427) = lu(k,1427) - lu(k,1357) * lu(k,1424) + lu(k,1428) = lu(k,1428) - lu(k,1358) * lu(k,1424) + lu(k,1431) = lu(k,1431) - lu(k,1359) * lu(k,1424) + lu(k,1432) = lu(k,1432) - lu(k,1360) * lu(k,1424) + lu(k,1433) = lu(k,1433) - lu(k,1361) * lu(k,1424) + lu(k,1434) = lu(k,1434) - lu(k,1362) * lu(k,1424) + lu(k,1436) = lu(k,1436) - lu(k,1363) * lu(k,1424) + lu(k,1437) = lu(k,1437) - lu(k,1364) * lu(k,1424) + lu(k,1438) = lu(k,1438) - lu(k,1365) * lu(k,1424) + lu(k,1439) = lu(k,1439) - lu(k,1366) * lu(k,1424) + lu(k,1440) = lu(k,1440) - lu(k,1367) * lu(k,1424) + lu(k,1787) = lu(k,1787) - lu(k,1356) * lu(k,1785) + lu(k,1788) = lu(k,1788) - lu(k,1357) * lu(k,1785) + lu(k,1789) = lu(k,1789) - lu(k,1358) * lu(k,1785) + lu(k,1798) = lu(k,1798) - lu(k,1359) * lu(k,1785) + lu(k,1800) = lu(k,1800) - lu(k,1360) * lu(k,1785) + lu(k,1801) = lu(k,1801) - lu(k,1361) * lu(k,1785) + lu(k,1802) = lu(k,1802) - lu(k,1362) * lu(k,1785) + lu(k,1807) = lu(k,1807) - lu(k,1363) * lu(k,1785) + lu(k,1808) = lu(k,1808) - lu(k,1364) * lu(k,1785) + lu(k,1809) = lu(k,1809) - lu(k,1365) * lu(k,1785) + lu(k,1810) = lu(k,1810) - lu(k,1366) * lu(k,1785) + lu(k,1811) = lu(k,1811) - lu(k,1367) * lu(k,1785) + lu(k,2003) = lu(k,2003) - lu(k,1356) * lu(k,2001) + lu(k,2004) = lu(k,2004) - lu(k,1357) * lu(k,2001) + lu(k,2005) = lu(k,2005) - lu(k,1358) * lu(k,2001) + lu(k,2011) = lu(k,2011) - lu(k,1359) * lu(k,2001) + lu(k,2013) = lu(k,2013) - lu(k,1360) * lu(k,2001) + lu(k,2014) = lu(k,2014) - lu(k,1361) * lu(k,2001) + lu(k,2015) = lu(k,2015) - lu(k,1362) * lu(k,2001) + lu(k,2020) = lu(k,2020) - lu(k,1363) * lu(k,2001) + lu(k,2021) = lu(k,2021) - lu(k,1364) * lu(k,2001) + lu(k,2022) = lu(k,2022) - lu(k,1365) * lu(k,2001) + lu(k,2023) = lu(k,2023) - lu(k,1366) * lu(k,2001) + lu(k,2024) = lu(k,2024) - lu(k,1367) * lu(k,2001) + lu(k,2109) = lu(k,2109) - lu(k,1356) * lu(k,2107) + lu(k,2110) = lu(k,2110) - lu(k,1357) * lu(k,2107) + lu(k,2111) = lu(k,2111) - lu(k,1358) * lu(k,2107) + lu(k,2118) = lu(k,2118) - lu(k,1359) * lu(k,2107) + lu(k,2120) = lu(k,2120) - lu(k,1360) * lu(k,2107) + lu(k,2121) = lu(k,2121) - lu(k,1361) * lu(k,2107) + lu(k,2122) = lu(k,2122) - lu(k,1362) * lu(k,2107) + lu(k,2127) = lu(k,2127) - lu(k,1363) * lu(k,2107) + lu(k,2128) = lu(k,2128) - lu(k,1364) * lu(k,2107) + lu(k,2129) = lu(k,2129) - lu(k,1365) * lu(k,2107) + lu(k,2130) = lu(k,2130) - lu(k,1366) * lu(k,2107) + lu(k,2131) = lu(k,2131) - lu(k,1367) * lu(k,2107) + lu(k,2217) = lu(k,2217) - lu(k,1356) * lu(k,2215) + lu(k,2218) = lu(k,2218) - lu(k,1357) * lu(k,2215) + lu(k,2219) = lu(k,2219) - lu(k,1358) * lu(k,2215) + lu(k,2226) = lu(k,2226) - lu(k,1359) * lu(k,2215) + lu(k,2228) = lu(k,2228) - lu(k,1360) * lu(k,2215) + lu(k,2229) = lu(k,2229) - lu(k,1361) * lu(k,2215) + lu(k,2230) = lu(k,2230) - lu(k,1362) * lu(k,2215) + lu(k,2235) = lu(k,2235) - lu(k,1363) * lu(k,2215) + lu(k,2236) = lu(k,2236) - lu(k,1364) * lu(k,2215) + lu(k,2237) = lu(k,2237) - lu(k,1365) * lu(k,2215) + lu(k,2238) = lu(k,2238) - lu(k,1366) * lu(k,2215) + lu(k,2239) = lu(k,2239) - lu(k,1367) * lu(k,2215) + lu(k,2324) = lu(k,2324) - lu(k,1356) * lu(k,2322) + lu(k,2325) = lu(k,2325) - lu(k,1357) * lu(k,2322) + lu(k,2326) = lu(k,2326) - lu(k,1358) * lu(k,2322) + lu(k,2334) = lu(k,2334) - lu(k,1359) * lu(k,2322) + lu(k,2336) = lu(k,2336) - lu(k,1360) * lu(k,2322) + lu(k,2337) = lu(k,2337) - lu(k,1361) * lu(k,2322) + lu(k,2338) = lu(k,2338) - lu(k,1362) * lu(k,2322) + lu(k,2343) = lu(k,2343) - lu(k,1363) * lu(k,2322) + lu(k,2344) = lu(k,2344) - lu(k,1364) * lu(k,2322) + lu(k,2345) = lu(k,2345) - lu(k,1365) * lu(k,2322) + lu(k,2346) = lu(k,2346) - lu(k,1366) * lu(k,2322) + lu(k,2347) = lu(k,2347) - lu(k,1367) * lu(k,2322) + lu(k,2402) = lu(k,2402) - lu(k,1356) * lu(k,2400) + lu(k,2403) = lu(k,2403) - lu(k,1357) * lu(k,2400) + lu(k,2404) = lu(k,2404) - lu(k,1358) * lu(k,2400) + lu(k,2409) = lu(k,2409) - lu(k,1359) * lu(k,2400) + lu(k,2411) = lu(k,2411) - lu(k,1360) * lu(k,2400) + lu(k,2412) = lu(k,2412) - lu(k,1361) * lu(k,2400) + lu(k,2413) = lu(k,2413) - lu(k,1362) * lu(k,2400) + lu(k,2418) = lu(k,2418) - lu(k,1363) * lu(k,2400) + lu(k,2419) = lu(k,2419) - lu(k,1364) * lu(k,2400) + lu(k,2420) = lu(k,2420) - lu(k,1365) * lu(k,2400) + lu(k,2421) = lu(k,2421) - lu(k,1366) * lu(k,2400) + lu(k,2422) = lu(k,2422) - lu(k,1367) * lu(k,2400) + lu(k,1375) = 1._r8 / lu(k,1375) + lu(k,1376) = lu(k,1376) * lu(k,1375) + lu(k,1377) = lu(k,1377) * lu(k,1375) + lu(k,1378) = lu(k,1378) * lu(k,1375) + lu(k,1379) = lu(k,1379) * lu(k,1375) + lu(k,1380) = lu(k,1380) * lu(k,1375) + lu(k,1381) = lu(k,1381) * lu(k,1375) + lu(k,1382) = lu(k,1382) * lu(k,1375) + lu(k,1383) = lu(k,1383) * lu(k,1375) + lu(k,1384) = lu(k,1384) * lu(k,1375) + lu(k,1385) = lu(k,1385) * lu(k,1375) + lu(k,1386) = lu(k,1386) * lu(k,1375) + lu(k,1387) = lu(k,1387) * lu(k,1375) + lu(k,1388) = lu(k,1388) * lu(k,1375) + lu(k,1389) = lu(k,1389) * lu(k,1375) + lu(k,1390) = lu(k,1390) * lu(k,1375) + lu(k,1426) = lu(k,1426) - lu(k,1376) * lu(k,1425) + lu(k,1427) = lu(k,1427) - lu(k,1377) * lu(k,1425) + lu(k,1428) = lu(k,1428) - lu(k,1378) * lu(k,1425) + lu(k,1429) = - lu(k,1379) * lu(k,1425) + lu(k,1430) = - lu(k,1380) * lu(k,1425) + lu(k,1431) = lu(k,1431) - lu(k,1381) * lu(k,1425) + lu(k,1432) = lu(k,1432) - lu(k,1382) * lu(k,1425) + lu(k,1433) = lu(k,1433) - lu(k,1383) * lu(k,1425) + lu(k,1434) = lu(k,1434) - lu(k,1384) * lu(k,1425) + lu(k,1435) = lu(k,1435) - lu(k,1385) * lu(k,1425) + lu(k,1436) = lu(k,1436) - lu(k,1386) * lu(k,1425) + lu(k,1437) = lu(k,1437) - lu(k,1387) * lu(k,1425) + lu(k,1438) = lu(k,1438) - lu(k,1388) * lu(k,1425) + lu(k,1439) = lu(k,1439) - lu(k,1389) * lu(k,1425) + lu(k,1440) = lu(k,1440) - lu(k,1390) * lu(k,1425) + lu(k,1787) = lu(k,1787) - lu(k,1376) * lu(k,1786) + lu(k,1788) = lu(k,1788) - lu(k,1377) * lu(k,1786) + lu(k,1789) = lu(k,1789) - lu(k,1378) * lu(k,1786) + lu(k,1794) = lu(k,1794) - lu(k,1379) * lu(k,1786) + lu(k,1795) = lu(k,1795) - lu(k,1380) * lu(k,1786) + lu(k,1798) = lu(k,1798) - lu(k,1381) * lu(k,1786) + lu(k,1800) = lu(k,1800) - lu(k,1382) * lu(k,1786) + lu(k,1801) = lu(k,1801) - lu(k,1383) * lu(k,1786) + lu(k,1802) = lu(k,1802) - lu(k,1384) * lu(k,1786) + lu(k,1804) = lu(k,1804) - lu(k,1385) * lu(k,1786) + lu(k,1807) = lu(k,1807) - lu(k,1386) * lu(k,1786) + lu(k,1808) = lu(k,1808) - lu(k,1387) * lu(k,1786) + lu(k,1809) = lu(k,1809) - lu(k,1388) * lu(k,1786) + lu(k,1810) = lu(k,1810) - lu(k,1389) * lu(k,1786) + lu(k,1811) = lu(k,1811) - lu(k,1390) * lu(k,1786) + lu(k,2003) = lu(k,2003) - lu(k,1376) * lu(k,2002) + lu(k,2004) = lu(k,2004) - lu(k,1377) * lu(k,2002) + lu(k,2005) = lu(k,2005) - lu(k,1378) * lu(k,2002) + lu(k,2007) = lu(k,2007) - lu(k,1379) * lu(k,2002) + lu(k,2008) = - lu(k,1380) * lu(k,2002) + lu(k,2011) = lu(k,2011) - lu(k,1381) * lu(k,2002) + lu(k,2013) = lu(k,2013) - lu(k,1382) * lu(k,2002) + lu(k,2014) = lu(k,2014) - lu(k,1383) * lu(k,2002) + lu(k,2015) = lu(k,2015) - lu(k,1384) * lu(k,2002) + lu(k,2017) = lu(k,2017) - lu(k,1385) * lu(k,2002) + lu(k,2020) = lu(k,2020) - lu(k,1386) * lu(k,2002) + lu(k,2021) = lu(k,2021) - lu(k,1387) * lu(k,2002) + lu(k,2022) = lu(k,2022) - lu(k,1388) * lu(k,2002) + lu(k,2023) = lu(k,2023) - lu(k,1389) * lu(k,2002) + lu(k,2024) = lu(k,2024) - lu(k,1390) * lu(k,2002) + lu(k,2109) = lu(k,2109) - lu(k,1376) * lu(k,2108) + lu(k,2110) = lu(k,2110) - lu(k,1377) * lu(k,2108) + lu(k,2111) = lu(k,2111) - lu(k,1378) * lu(k,2108) + lu(k,2114) = lu(k,2114) - lu(k,1379) * lu(k,2108) + lu(k,2115) = lu(k,2115) - lu(k,1380) * lu(k,2108) + lu(k,2118) = lu(k,2118) - lu(k,1381) * lu(k,2108) + lu(k,2120) = lu(k,2120) - lu(k,1382) * lu(k,2108) + lu(k,2121) = lu(k,2121) - lu(k,1383) * lu(k,2108) + lu(k,2122) = lu(k,2122) - lu(k,1384) * lu(k,2108) + lu(k,2124) = lu(k,2124) - lu(k,1385) * lu(k,2108) + lu(k,2127) = lu(k,2127) - lu(k,1386) * lu(k,2108) + lu(k,2128) = lu(k,2128) - lu(k,1387) * lu(k,2108) + lu(k,2129) = lu(k,2129) - lu(k,1388) * lu(k,2108) + lu(k,2130) = lu(k,2130) - lu(k,1389) * lu(k,2108) + lu(k,2131) = lu(k,2131) - lu(k,1390) * lu(k,2108) + lu(k,2217) = lu(k,2217) - lu(k,1376) * lu(k,2216) + lu(k,2218) = lu(k,2218) - lu(k,1377) * lu(k,2216) + lu(k,2219) = lu(k,2219) - lu(k,1378) * lu(k,2216) + lu(k,2222) = lu(k,2222) - lu(k,1379) * lu(k,2216) + lu(k,2223) = lu(k,2223) - lu(k,1380) * lu(k,2216) + lu(k,2226) = lu(k,2226) - lu(k,1381) * lu(k,2216) + lu(k,2228) = lu(k,2228) - lu(k,1382) * lu(k,2216) + lu(k,2229) = lu(k,2229) - lu(k,1383) * lu(k,2216) + lu(k,2230) = lu(k,2230) - lu(k,1384) * lu(k,2216) + lu(k,2232) = lu(k,2232) - lu(k,1385) * lu(k,2216) + lu(k,2235) = lu(k,2235) - lu(k,1386) * lu(k,2216) + lu(k,2236) = lu(k,2236) - lu(k,1387) * lu(k,2216) + lu(k,2237) = lu(k,2237) - lu(k,1388) * lu(k,2216) + lu(k,2238) = lu(k,2238) - lu(k,1389) * lu(k,2216) + lu(k,2239) = lu(k,2239) - lu(k,1390) * lu(k,2216) + lu(k,2324) = lu(k,2324) - lu(k,1376) * lu(k,2323) + lu(k,2325) = lu(k,2325) - lu(k,1377) * lu(k,2323) + lu(k,2326) = lu(k,2326) - lu(k,1378) * lu(k,2323) + lu(k,2330) = lu(k,2330) - lu(k,1379) * lu(k,2323) + lu(k,2331) = - lu(k,1380) * lu(k,2323) + lu(k,2334) = lu(k,2334) - lu(k,1381) * lu(k,2323) + lu(k,2336) = lu(k,2336) - lu(k,1382) * lu(k,2323) + lu(k,2337) = lu(k,2337) - lu(k,1383) * lu(k,2323) + lu(k,2338) = lu(k,2338) - lu(k,1384) * lu(k,2323) + lu(k,2340) = lu(k,2340) - lu(k,1385) * lu(k,2323) + lu(k,2343) = lu(k,2343) - lu(k,1386) * lu(k,2323) + lu(k,2344) = lu(k,2344) - lu(k,1387) * lu(k,2323) + lu(k,2345) = lu(k,2345) - lu(k,1388) * lu(k,2323) + lu(k,2346) = lu(k,2346) - lu(k,1389) * lu(k,2323) + lu(k,2347) = lu(k,2347) - lu(k,1390) * lu(k,2323) + lu(k,2402) = lu(k,2402) - lu(k,1376) * lu(k,2401) + lu(k,2403) = lu(k,2403) - lu(k,1377) * lu(k,2401) + lu(k,2404) = lu(k,2404) - lu(k,1378) * lu(k,2401) + lu(k,2405) = lu(k,2405) - lu(k,1379) * lu(k,2401) + lu(k,2406) = - lu(k,1380) * lu(k,2401) + lu(k,2409) = lu(k,2409) - lu(k,1381) * lu(k,2401) + lu(k,2411) = lu(k,2411) - lu(k,1382) * lu(k,2401) + lu(k,2412) = lu(k,2412) - lu(k,1383) * lu(k,2401) + lu(k,2413) = lu(k,2413) - lu(k,1384) * lu(k,2401) + lu(k,2415) = lu(k,2415) - lu(k,1385) * lu(k,2401) + lu(k,2418) = lu(k,2418) - lu(k,1386) * lu(k,2401) + lu(k,2419) = lu(k,2419) - lu(k,1387) * lu(k,2401) + lu(k,2420) = lu(k,2420) - lu(k,1388) * lu(k,2401) + lu(k,2421) = lu(k,2421) - lu(k,1389) * lu(k,2401) + lu(k,2422) = lu(k,2422) - lu(k,1390) * lu(k,2401) end do end subroutine lu_fac27 subroutine lu_fac28( avec_len, lu ) @@ -6306,259 +5968,468 @@ subroutine lu_fac28( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1461) = 1._r8 / lu(k,1461) - lu(k,1462) = lu(k,1462) * lu(k,1461) - lu(k,1463) = lu(k,1463) * lu(k,1461) - lu(k,1464) = lu(k,1464) * lu(k,1461) - lu(k,1465) = lu(k,1465) * lu(k,1461) - lu(k,1466) = lu(k,1466) * lu(k,1461) - lu(k,1467) = lu(k,1467) * lu(k,1461) - lu(k,1468) = lu(k,1468) * lu(k,1461) - lu(k,1469) = lu(k,1469) * lu(k,1461) - lu(k,1470) = lu(k,1470) * lu(k,1461) - lu(k,1471) = lu(k,1471) * lu(k,1461) - lu(k,1472) = lu(k,1472) * lu(k,1461) - lu(k,1812) = lu(k,1812) - lu(k,1462) * lu(k,1810) - lu(k,1817) = lu(k,1817) - lu(k,1463) * lu(k,1810) - lu(k,1818) = lu(k,1818) - lu(k,1464) * lu(k,1810) - lu(k,1822) = lu(k,1822) - lu(k,1465) * lu(k,1810) - lu(k,1823) = lu(k,1823) - lu(k,1466) * lu(k,1810) - lu(k,1824) = lu(k,1824) - lu(k,1467) * lu(k,1810) - lu(k,1825) = lu(k,1825) - lu(k,1468) * lu(k,1810) - lu(k,1826) = lu(k,1826) - lu(k,1469) * lu(k,1810) - lu(k,1828) = lu(k,1828) - lu(k,1470) * lu(k,1810) - lu(k,1830) = lu(k,1830) - lu(k,1471) * lu(k,1810) - lu(k,1831) = lu(k,1831) - lu(k,1472) * lu(k,1810) - lu(k,1978) = lu(k,1978) - lu(k,1462) * lu(k,1977) - lu(k,1983) = lu(k,1983) - lu(k,1463) * lu(k,1977) - lu(k,1984) = lu(k,1984) - lu(k,1464) * lu(k,1977) - lu(k,1988) = lu(k,1988) - lu(k,1465) * lu(k,1977) - lu(k,1989) = lu(k,1989) - lu(k,1466) * lu(k,1977) - lu(k,1990) = lu(k,1990) - lu(k,1467) * lu(k,1977) - lu(k,1991) = lu(k,1991) - lu(k,1468) * lu(k,1977) - lu(k,1992) = lu(k,1992) - lu(k,1469) * lu(k,1977) - lu(k,1994) = - lu(k,1470) * lu(k,1977) - lu(k,1996) = - lu(k,1471) * lu(k,1977) - lu(k,1997) = lu(k,1997) - lu(k,1472) * lu(k,1977) - lu(k,2021) = lu(k,2021) - lu(k,1462) * lu(k,2020) - lu(k,2026) = lu(k,2026) - lu(k,1463) * lu(k,2020) - lu(k,2027) = lu(k,2027) - lu(k,1464) * lu(k,2020) - lu(k,2031) = lu(k,2031) - lu(k,1465) * lu(k,2020) - lu(k,2032) = lu(k,2032) - lu(k,1466) * lu(k,2020) - lu(k,2033) = lu(k,2033) - lu(k,1467) * lu(k,2020) - lu(k,2034) = lu(k,2034) - lu(k,1468) * lu(k,2020) - lu(k,2035) = lu(k,2035) - lu(k,1469) * lu(k,2020) - lu(k,2037) = lu(k,2037) - lu(k,1470) * lu(k,2020) - lu(k,2039) = lu(k,2039) - lu(k,1471) * lu(k,2020) - lu(k,2040) = lu(k,2040) - lu(k,1472) * lu(k,2020) - lu(k,2044) = - lu(k,1462) * lu(k,2043) - lu(k,2049) = lu(k,2049) - lu(k,1463) * lu(k,2043) - lu(k,2050) = lu(k,2050) - lu(k,1464) * lu(k,2043) - lu(k,2054) = - lu(k,1465) * lu(k,2043) - lu(k,2055) = lu(k,2055) - lu(k,1466) * lu(k,2043) - lu(k,2056) = - lu(k,1467) * lu(k,2043) - lu(k,2057) = lu(k,2057) - lu(k,1468) * lu(k,2043) - lu(k,2058) = - lu(k,1469) * lu(k,2043) - lu(k,2060) = lu(k,2060) - lu(k,1470) * lu(k,2043) - lu(k,2062) = lu(k,2062) - lu(k,1471) * lu(k,2043) - lu(k,2063) = lu(k,2063) - lu(k,1472) * lu(k,2043) - lu(k,2087) = lu(k,2087) - lu(k,1462) * lu(k,2085) - lu(k,2092) = lu(k,2092) - lu(k,1463) * lu(k,2085) - lu(k,2093) = lu(k,2093) - lu(k,1464) * lu(k,2085) - lu(k,2097) = lu(k,2097) - lu(k,1465) * lu(k,2085) - lu(k,2098) = lu(k,2098) - lu(k,1466) * lu(k,2085) - lu(k,2099) = lu(k,2099) - lu(k,1467) * lu(k,2085) - lu(k,2100) = lu(k,2100) - lu(k,1468) * lu(k,2085) - lu(k,2101) = lu(k,2101) - lu(k,1469) * lu(k,2085) - lu(k,2103) = - lu(k,1470) * lu(k,2085) - lu(k,2105) = - lu(k,1471) * lu(k,2085) - lu(k,2106) = lu(k,2106) - lu(k,1472) * lu(k,2085) - lu(k,2108) = - lu(k,1462) * lu(k,2107) - lu(k,2113) = - lu(k,1463) * lu(k,2107) - lu(k,2114) = lu(k,2114) - lu(k,1464) * lu(k,2107) - lu(k,2118) = - lu(k,1465) * lu(k,2107) - lu(k,2119) = - lu(k,1466) * lu(k,2107) - lu(k,2120) = lu(k,2120) - lu(k,1467) * lu(k,2107) - lu(k,2121) = lu(k,2121) - lu(k,1468) * lu(k,2107) - lu(k,2122) = - lu(k,1469) * lu(k,2107) - lu(k,2124) = - lu(k,1470) * lu(k,2107) - lu(k,2126) = - lu(k,1471) * lu(k,2107) - lu(k,2127) = lu(k,2127) - lu(k,1472) * lu(k,2107) - lu(k,2154) = lu(k,2154) - lu(k,1462) * lu(k,2153) - lu(k,2159) = lu(k,2159) - lu(k,1463) * lu(k,2153) - lu(k,2160) = lu(k,2160) - lu(k,1464) * lu(k,2153) - lu(k,2164) = lu(k,2164) - lu(k,1465) * lu(k,2153) - lu(k,2165) = lu(k,2165) - lu(k,1466) * lu(k,2153) - lu(k,2166) = lu(k,2166) - lu(k,1467) * lu(k,2153) - lu(k,2167) = lu(k,2167) - lu(k,1468) * lu(k,2153) - lu(k,2168) = lu(k,2168) - lu(k,1469) * lu(k,2153) - lu(k,2170) = lu(k,2170) - lu(k,1470) * lu(k,2153) - lu(k,2172) = lu(k,2172) - lu(k,1471) * lu(k,2153) - lu(k,2173) = lu(k,2173) - lu(k,1472) * lu(k,2153) - lu(k,2243) = lu(k,2243) - lu(k,1462) * lu(k,2242) - lu(k,2248) = lu(k,2248) - lu(k,1463) * lu(k,2242) - lu(k,2249) = lu(k,2249) - lu(k,1464) * lu(k,2242) - lu(k,2253) = lu(k,2253) - lu(k,1465) * lu(k,2242) - lu(k,2254) = lu(k,2254) - lu(k,1466) * lu(k,2242) - lu(k,2255) = lu(k,2255) - lu(k,1467) * lu(k,2242) - lu(k,2256) = lu(k,2256) - lu(k,1468) * lu(k,2242) - lu(k,2257) = lu(k,2257) - lu(k,1469) * lu(k,2242) - lu(k,2259) = lu(k,2259) - lu(k,1470) * lu(k,2242) - lu(k,2261) = lu(k,2261) - lu(k,1471) * lu(k,2242) - lu(k,2262) = lu(k,2262) - lu(k,1472) * lu(k,2242) - lu(k,2351) = lu(k,2351) - lu(k,1462) * lu(k,2350) - lu(k,2356) = lu(k,2356) - lu(k,1463) * lu(k,2350) + lu(k,1396) = 1._r8 / lu(k,1396) + lu(k,1397) = lu(k,1397) * lu(k,1396) + lu(k,1398) = lu(k,1398) * lu(k,1396) + lu(k,1399) = lu(k,1399) * lu(k,1396) + lu(k,1400) = lu(k,1400) * lu(k,1396) + lu(k,1401) = lu(k,1401) * lu(k,1396) + lu(k,1402) = lu(k,1402) * lu(k,1396) + lu(k,1403) = lu(k,1403) * lu(k,1396) + lu(k,1404) = lu(k,1404) * lu(k,1396) + lu(k,1405) = lu(k,1405) * lu(k,1396) + lu(k,1406) = lu(k,1406) * lu(k,1396) + lu(k,1407) = lu(k,1407) * lu(k,1396) + lu(k,1408) = lu(k,1408) * lu(k,1396) + lu(k,1427) = lu(k,1427) - lu(k,1397) * lu(k,1426) + lu(k,1428) = lu(k,1428) - lu(k,1398) * lu(k,1426) + lu(k,1431) = lu(k,1431) - lu(k,1399) * lu(k,1426) + lu(k,1432) = lu(k,1432) - lu(k,1400) * lu(k,1426) + lu(k,1433) = lu(k,1433) - lu(k,1401) * lu(k,1426) + lu(k,1434) = lu(k,1434) - lu(k,1402) * lu(k,1426) + lu(k,1435) = lu(k,1435) - lu(k,1403) * lu(k,1426) + lu(k,1436) = lu(k,1436) - lu(k,1404) * lu(k,1426) + lu(k,1437) = lu(k,1437) - lu(k,1405) * lu(k,1426) + lu(k,1438) = lu(k,1438) - lu(k,1406) * lu(k,1426) + lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1426) + lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1426) + lu(k,1788) = lu(k,1788) - lu(k,1397) * lu(k,1787) + lu(k,1789) = lu(k,1789) - lu(k,1398) * lu(k,1787) + lu(k,1798) = lu(k,1798) - lu(k,1399) * lu(k,1787) + lu(k,1800) = lu(k,1800) - lu(k,1400) * lu(k,1787) + lu(k,1801) = lu(k,1801) - lu(k,1401) * lu(k,1787) + lu(k,1802) = lu(k,1802) - lu(k,1402) * lu(k,1787) + lu(k,1804) = lu(k,1804) - lu(k,1403) * lu(k,1787) + lu(k,1807) = lu(k,1807) - lu(k,1404) * lu(k,1787) + lu(k,1808) = lu(k,1808) - lu(k,1405) * lu(k,1787) + lu(k,1809) = lu(k,1809) - lu(k,1406) * lu(k,1787) + lu(k,1810) = lu(k,1810) - lu(k,1407) * lu(k,1787) + lu(k,1811) = lu(k,1811) - lu(k,1408) * lu(k,1787) + lu(k,1880) = lu(k,1880) - lu(k,1397) * lu(k,1879) + lu(k,1881) = lu(k,1881) - lu(k,1398) * lu(k,1879) + lu(k,1889) = lu(k,1889) - lu(k,1399) * lu(k,1879) + lu(k,1891) = lu(k,1891) - lu(k,1400) * lu(k,1879) + lu(k,1892) = lu(k,1892) - lu(k,1401) * lu(k,1879) + lu(k,1893) = lu(k,1893) - lu(k,1402) * lu(k,1879) + lu(k,1895) = lu(k,1895) - lu(k,1403) * lu(k,1879) + lu(k,1898) = lu(k,1898) - lu(k,1404) * lu(k,1879) + lu(k,1899) = lu(k,1899) - lu(k,1405) * lu(k,1879) + lu(k,1900) = lu(k,1900) - lu(k,1406) * lu(k,1879) + lu(k,1901) = lu(k,1901) - lu(k,1407) * lu(k,1879) + lu(k,1902) = lu(k,1902) - lu(k,1408) * lu(k,1879) + lu(k,2004) = lu(k,2004) - lu(k,1397) * lu(k,2003) + lu(k,2005) = lu(k,2005) - lu(k,1398) * lu(k,2003) + lu(k,2011) = lu(k,2011) - lu(k,1399) * lu(k,2003) + lu(k,2013) = lu(k,2013) - lu(k,1400) * lu(k,2003) + lu(k,2014) = lu(k,2014) - lu(k,1401) * lu(k,2003) + lu(k,2015) = lu(k,2015) - lu(k,1402) * lu(k,2003) + lu(k,2017) = lu(k,2017) - lu(k,1403) * lu(k,2003) + lu(k,2020) = lu(k,2020) - lu(k,1404) * lu(k,2003) + lu(k,2021) = lu(k,2021) - lu(k,1405) * lu(k,2003) + lu(k,2022) = lu(k,2022) - lu(k,1406) * lu(k,2003) + lu(k,2023) = lu(k,2023) - lu(k,1407) * lu(k,2003) + lu(k,2024) = lu(k,2024) - lu(k,1408) * lu(k,2003) + lu(k,2110) = lu(k,2110) - lu(k,1397) * lu(k,2109) + lu(k,2111) = lu(k,2111) - lu(k,1398) * lu(k,2109) + lu(k,2118) = lu(k,2118) - lu(k,1399) * lu(k,2109) + lu(k,2120) = lu(k,2120) - lu(k,1400) * lu(k,2109) + lu(k,2121) = lu(k,2121) - lu(k,1401) * lu(k,2109) + lu(k,2122) = lu(k,2122) - lu(k,1402) * lu(k,2109) + lu(k,2124) = lu(k,2124) - lu(k,1403) * lu(k,2109) + lu(k,2127) = lu(k,2127) - lu(k,1404) * lu(k,2109) + lu(k,2128) = lu(k,2128) - lu(k,1405) * lu(k,2109) + lu(k,2129) = lu(k,2129) - lu(k,1406) * lu(k,2109) + lu(k,2130) = lu(k,2130) - lu(k,1407) * lu(k,2109) + lu(k,2131) = lu(k,2131) - lu(k,1408) * lu(k,2109) + lu(k,2218) = lu(k,2218) - lu(k,1397) * lu(k,2217) + lu(k,2219) = lu(k,2219) - lu(k,1398) * lu(k,2217) + lu(k,2226) = lu(k,2226) - lu(k,1399) * lu(k,2217) + lu(k,2228) = lu(k,2228) - lu(k,1400) * lu(k,2217) + lu(k,2229) = lu(k,2229) - lu(k,1401) * lu(k,2217) + lu(k,2230) = lu(k,2230) - lu(k,1402) * lu(k,2217) + lu(k,2232) = lu(k,2232) - lu(k,1403) * lu(k,2217) + lu(k,2235) = lu(k,2235) - lu(k,1404) * lu(k,2217) + lu(k,2236) = lu(k,2236) - lu(k,1405) * lu(k,2217) + lu(k,2237) = lu(k,2237) - lu(k,1406) * lu(k,2217) + lu(k,2238) = lu(k,2238) - lu(k,1407) * lu(k,2217) + lu(k,2239) = lu(k,2239) - lu(k,1408) * lu(k,2217) + lu(k,2325) = lu(k,2325) - lu(k,1397) * lu(k,2324) + lu(k,2326) = lu(k,2326) - lu(k,1398) * lu(k,2324) + lu(k,2334) = lu(k,2334) - lu(k,1399) * lu(k,2324) + lu(k,2336) = lu(k,2336) - lu(k,1400) * lu(k,2324) + lu(k,2337) = lu(k,2337) - lu(k,1401) * lu(k,2324) + lu(k,2338) = lu(k,2338) - lu(k,1402) * lu(k,2324) + lu(k,2340) = lu(k,2340) - lu(k,1403) * lu(k,2324) + lu(k,2343) = lu(k,2343) - lu(k,1404) * lu(k,2324) + lu(k,2344) = lu(k,2344) - lu(k,1405) * lu(k,2324) + lu(k,2345) = lu(k,2345) - lu(k,1406) * lu(k,2324) + lu(k,2346) = lu(k,2346) - lu(k,1407) * lu(k,2324) + lu(k,2347) = lu(k,2347) - lu(k,1408) * lu(k,2324) + lu(k,2403) = lu(k,2403) - lu(k,1397) * lu(k,2402) + lu(k,2404) = lu(k,2404) - lu(k,1398) * lu(k,2402) + lu(k,2409) = lu(k,2409) - lu(k,1399) * lu(k,2402) + lu(k,2411) = lu(k,2411) - lu(k,1400) * lu(k,2402) + lu(k,2412) = lu(k,2412) - lu(k,1401) * lu(k,2402) + lu(k,2413) = lu(k,2413) - lu(k,1402) * lu(k,2402) + lu(k,2415) = lu(k,2415) - lu(k,1403) * lu(k,2402) + lu(k,2418) = lu(k,2418) - lu(k,1404) * lu(k,2402) + lu(k,2419) = lu(k,2419) - lu(k,1405) * lu(k,2402) + lu(k,2420) = lu(k,2420) - lu(k,1406) * lu(k,2402) + lu(k,2421) = lu(k,2421) - lu(k,1407) * lu(k,2402) + lu(k,2422) = lu(k,2422) - lu(k,1408) * lu(k,2402) + lu(k,1427) = 1._r8 / lu(k,1427) + lu(k,1428) = lu(k,1428) * lu(k,1427) + lu(k,1429) = lu(k,1429) * lu(k,1427) + lu(k,1430) = lu(k,1430) * lu(k,1427) + lu(k,1431) = lu(k,1431) * lu(k,1427) + lu(k,1432) = lu(k,1432) * lu(k,1427) + lu(k,1433) = lu(k,1433) * lu(k,1427) + lu(k,1434) = lu(k,1434) * lu(k,1427) + lu(k,1435) = lu(k,1435) * lu(k,1427) + lu(k,1436) = lu(k,1436) * lu(k,1427) + lu(k,1437) = lu(k,1437) * lu(k,1427) + lu(k,1438) = lu(k,1438) * lu(k,1427) + lu(k,1439) = lu(k,1439) * lu(k,1427) + lu(k,1440) = lu(k,1440) * lu(k,1427) + lu(k,1789) = lu(k,1789) - lu(k,1428) * lu(k,1788) + lu(k,1794) = lu(k,1794) - lu(k,1429) * lu(k,1788) + lu(k,1795) = lu(k,1795) - lu(k,1430) * lu(k,1788) + lu(k,1798) = lu(k,1798) - lu(k,1431) * lu(k,1788) + lu(k,1800) = lu(k,1800) - lu(k,1432) * lu(k,1788) + lu(k,1801) = lu(k,1801) - lu(k,1433) * lu(k,1788) + lu(k,1802) = lu(k,1802) - lu(k,1434) * lu(k,1788) + lu(k,1804) = lu(k,1804) - lu(k,1435) * lu(k,1788) + lu(k,1807) = lu(k,1807) - lu(k,1436) * lu(k,1788) + lu(k,1808) = lu(k,1808) - lu(k,1437) * lu(k,1788) + lu(k,1809) = lu(k,1809) - lu(k,1438) * lu(k,1788) + lu(k,1810) = lu(k,1810) - lu(k,1439) * lu(k,1788) + lu(k,1811) = lu(k,1811) - lu(k,1440) * lu(k,1788) + lu(k,1836) = lu(k,1836) - lu(k,1428) * lu(k,1835) + lu(k,1840) = lu(k,1840) - lu(k,1429) * lu(k,1835) + lu(k,1841) = lu(k,1841) - lu(k,1430) * lu(k,1835) + lu(k,1844) = lu(k,1844) - lu(k,1431) * lu(k,1835) + lu(k,1846) = lu(k,1846) - lu(k,1432) * lu(k,1835) + lu(k,1847) = lu(k,1847) - lu(k,1433) * lu(k,1835) + lu(k,1848) = lu(k,1848) - lu(k,1434) * lu(k,1835) + lu(k,1850) = lu(k,1850) - lu(k,1435) * lu(k,1835) + lu(k,1853) = lu(k,1853) - lu(k,1436) * lu(k,1835) + lu(k,1854) = lu(k,1854) - lu(k,1437) * lu(k,1835) + lu(k,1855) = lu(k,1855) - lu(k,1438) * lu(k,1835) + lu(k,1856) = lu(k,1856) - lu(k,1439) * lu(k,1835) + lu(k,1857) = lu(k,1857) - lu(k,1440) * lu(k,1835) + lu(k,1881) = lu(k,1881) - lu(k,1428) * lu(k,1880) + lu(k,1885) = lu(k,1885) - lu(k,1429) * lu(k,1880) + lu(k,1886) = - lu(k,1430) * lu(k,1880) + lu(k,1889) = lu(k,1889) - lu(k,1431) * lu(k,1880) + lu(k,1891) = lu(k,1891) - lu(k,1432) * lu(k,1880) + lu(k,1892) = lu(k,1892) - lu(k,1433) * lu(k,1880) + lu(k,1893) = lu(k,1893) - lu(k,1434) * lu(k,1880) + lu(k,1895) = lu(k,1895) - lu(k,1435) * lu(k,1880) + lu(k,1898) = lu(k,1898) - lu(k,1436) * lu(k,1880) + lu(k,1899) = lu(k,1899) - lu(k,1437) * lu(k,1880) + lu(k,1900) = lu(k,1900) - lu(k,1438) * lu(k,1880) + lu(k,1901) = lu(k,1901) - lu(k,1439) * lu(k,1880) + lu(k,1902) = lu(k,1902) - lu(k,1440) * lu(k,1880) + lu(k,2005) = lu(k,2005) - lu(k,1428) * lu(k,2004) + lu(k,2007) = lu(k,2007) - lu(k,1429) * lu(k,2004) + lu(k,2008) = lu(k,2008) - lu(k,1430) * lu(k,2004) + lu(k,2011) = lu(k,2011) - lu(k,1431) * lu(k,2004) + lu(k,2013) = lu(k,2013) - lu(k,1432) * lu(k,2004) + lu(k,2014) = lu(k,2014) - lu(k,1433) * lu(k,2004) + lu(k,2015) = lu(k,2015) - lu(k,1434) * lu(k,2004) + lu(k,2017) = lu(k,2017) - lu(k,1435) * lu(k,2004) + lu(k,2020) = lu(k,2020) - lu(k,1436) * lu(k,2004) + lu(k,2021) = lu(k,2021) - lu(k,1437) * lu(k,2004) + lu(k,2022) = lu(k,2022) - lu(k,1438) * lu(k,2004) + lu(k,2023) = lu(k,2023) - lu(k,1439) * lu(k,2004) + lu(k,2024) = lu(k,2024) - lu(k,1440) * lu(k,2004) + lu(k,2111) = lu(k,2111) - lu(k,1428) * lu(k,2110) + lu(k,2114) = lu(k,2114) - lu(k,1429) * lu(k,2110) + lu(k,2115) = lu(k,2115) - lu(k,1430) * lu(k,2110) + lu(k,2118) = lu(k,2118) - lu(k,1431) * lu(k,2110) + lu(k,2120) = lu(k,2120) - lu(k,1432) * lu(k,2110) + lu(k,2121) = lu(k,2121) - lu(k,1433) * lu(k,2110) + lu(k,2122) = lu(k,2122) - lu(k,1434) * lu(k,2110) + lu(k,2124) = lu(k,2124) - lu(k,1435) * lu(k,2110) + lu(k,2127) = lu(k,2127) - lu(k,1436) * lu(k,2110) + lu(k,2128) = lu(k,2128) - lu(k,1437) * lu(k,2110) + lu(k,2129) = lu(k,2129) - lu(k,1438) * lu(k,2110) + lu(k,2130) = lu(k,2130) - lu(k,1439) * lu(k,2110) + lu(k,2131) = lu(k,2131) - lu(k,1440) * lu(k,2110) + lu(k,2219) = lu(k,2219) - lu(k,1428) * lu(k,2218) + lu(k,2222) = lu(k,2222) - lu(k,1429) * lu(k,2218) + lu(k,2223) = lu(k,2223) - lu(k,1430) * lu(k,2218) + lu(k,2226) = lu(k,2226) - lu(k,1431) * lu(k,2218) + lu(k,2228) = lu(k,2228) - lu(k,1432) * lu(k,2218) + lu(k,2229) = lu(k,2229) - lu(k,1433) * lu(k,2218) + lu(k,2230) = lu(k,2230) - lu(k,1434) * lu(k,2218) + lu(k,2232) = lu(k,2232) - lu(k,1435) * lu(k,2218) + lu(k,2235) = lu(k,2235) - lu(k,1436) * lu(k,2218) + lu(k,2236) = lu(k,2236) - lu(k,1437) * lu(k,2218) + lu(k,2237) = lu(k,2237) - lu(k,1438) * lu(k,2218) + lu(k,2238) = lu(k,2238) - lu(k,1439) * lu(k,2218) + lu(k,2239) = lu(k,2239) - lu(k,1440) * lu(k,2218) + lu(k,2326) = lu(k,2326) - lu(k,1428) * lu(k,2325) + lu(k,2330) = lu(k,2330) - lu(k,1429) * lu(k,2325) + lu(k,2331) = lu(k,2331) - lu(k,1430) * lu(k,2325) + lu(k,2334) = lu(k,2334) - lu(k,1431) * lu(k,2325) + lu(k,2336) = lu(k,2336) - lu(k,1432) * lu(k,2325) + lu(k,2337) = lu(k,2337) - lu(k,1433) * lu(k,2325) + lu(k,2338) = lu(k,2338) - lu(k,1434) * lu(k,2325) + lu(k,2340) = lu(k,2340) - lu(k,1435) * lu(k,2325) + lu(k,2343) = lu(k,2343) - lu(k,1436) * lu(k,2325) + lu(k,2344) = lu(k,2344) - lu(k,1437) * lu(k,2325) + lu(k,2345) = lu(k,2345) - lu(k,1438) * lu(k,2325) + lu(k,2346) = lu(k,2346) - lu(k,1439) * lu(k,2325) + lu(k,2347) = lu(k,2347) - lu(k,1440) * lu(k,2325) + lu(k,2404) = lu(k,2404) - lu(k,1428) * lu(k,2403) + lu(k,2405) = lu(k,2405) - lu(k,1429) * lu(k,2403) + lu(k,2406) = lu(k,2406) - lu(k,1430) * lu(k,2403) + lu(k,2409) = lu(k,2409) - lu(k,1431) * lu(k,2403) + lu(k,2411) = lu(k,2411) - lu(k,1432) * lu(k,2403) + lu(k,2412) = lu(k,2412) - lu(k,1433) * lu(k,2403) + lu(k,2413) = lu(k,2413) - lu(k,1434) * lu(k,2403) + lu(k,2415) = lu(k,2415) - lu(k,1435) * lu(k,2403) + lu(k,2418) = lu(k,2418) - lu(k,1436) * lu(k,2403) + lu(k,2419) = lu(k,2419) - lu(k,1437) * lu(k,2403) + lu(k,2420) = lu(k,2420) - lu(k,1438) * lu(k,2403) + lu(k,2421) = lu(k,2421) - lu(k,1439) * lu(k,2403) + lu(k,2422) = lu(k,2422) - lu(k,1440) * lu(k,2403) + lu(k,1449) = 1._r8 / lu(k,1449) + lu(k,1450) = lu(k,1450) * lu(k,1449) + lu(k,1451) = lu(k,1451) * lu(k,1449) + lu(k,1452) = lu(k,1452) * lu(k,1449) + lu(k,1453) = lu(k,1453) * lu(k,1449) + lu(k,1454) = lu(k,1454) * lu(k,1449) + lu(k,1455) = lu(k,1455) * lu(k,1449) + lu(k,1456) = lu(k,1456) * lu(k,1449) + lu(k,1457) = lu(k,1457) * lu(k,1449) + lu(k,1511) = lu(k,1511) - lu(k,1450) * lu(k,1509) + lu(k,1513) = lu(k,1513) - lu(k,1451) * lu(k,1509) + lu(k,1514) = lu(k,1514) - lu(k,1452) * lu(k,1509) + lu(k,1515) = - lu(k,1453) * lu(k,1509) + lu(k,1517) = - lu(k,1454) * lu(k,1509) + lu(k,1518) = lu(k,1518) - lu(k,1455) * lu(k,1509) + lu(k,1520) = lu(k,1520) - lu(k,1456) * lu(k,1509) + lu(k,1521) = lu(k,1521) - lu(k,1457) * lu(k,1509) + lu(k,1541) = lu(k,1541) - lu(k,1450) * lu(k,1538) + lu(k,1543) = lu(k,1543) - lu(k,1451) * lu(k,1538) + lu(k,1544) = lu(k,1544) - lu(k,1452) * lu(k,1538) + lu(k,1546) = lu(k,1546) - lu(k,1453) * lu(k,1538) + lu(k,1548) = lu(k,1548) - lu(k,1454) * lu(k,1538) + lu(k,1549) = lu(k,1549) - lu(k,1455) * lu(k,1538) + lu(k,1552) = lu(k,1552) - lu(k,1456) * lu(k,1538) + lu(k,1553) = lu(k,1553) - lu(k,1457) * lu(k,1538) + lu(k,1562) = - lu(k,1450) * lu(k,1558) + lu(k,1565) = lu(k,1565) - lu(k,1451) * lu(k,1558) + lu(k,1566) = lu(k,1566) - lu(k,1452) * lu(k,1558) + lu(k,1568) = - lu(k,1453) * lu(k,1558) + lu(k,1570) = - lu(k,1454) * lu(k,1558) + lu(k,1571) = lu(k,1571) - lu(k,1455) * lu(k,1558) + lu(k,1574) = lu(k,1574) - lu(k,1456) * lu(k,1558) + lu(k,1576) = lu(k,1576) - lu(k,1457) * lu(k,1558) + lu(k,1794) = lu(k,1794) - lu(k,1450) * lu(k,1789) + lu(k,1797) = lu(k,1797) - lu(k,1451) * lu(k,1789) + lu(k,1798) = lu(k,1798) - lu(k,1452) * lu(k,1789) + lu(k,1800) = lu(k,1800) - lu(k,1453) * lu(k,1789) + lu(k,1802) = lu(k,1802) - lu(k,1454) * lu(k,1789) + lu(k,1803) = lu(k,1803) - lu(k,1455) * lu(k,1789) + lu(k,1806) = lu(k,1806) - lu(k,1456) * lu(k,1789) + lu(k,1808) = lu(k,1808) - lu(k,1457) * lu(k,1789) + lu(k,1840) = lu(k,1840) - lu(k,1450) * lu(k,1836) + lu(k,1843) = lu(k,1843) - lu(k,1451) * lu(k,1836) + lu(k,1844) = lu(k,1844) - lu(k,1452) * lu(k,1836) + lu(k,1846) = lu(k,1846) - lu(k,1453) * lu(k,1836) + lu(k,1848) = lu(k,1848) - lu(k,1454) * lu(k,1836) + lu(k,1849) = lu(k,1849) - lu(k,1455) * lu(k,1836) + lu(k,1852) = lu(k,1852) - lu(k,1456) * lu(k,1836) + lu(k,1854) = lu(k,1854) - lu(k,1457) * lu(k,1836) + lu(k,1885) = lu(k,1885) - lu(k,1450) * lu(k,1881) + lu(k,1888) = lu(k,1888) - lu(k,1451) * lu(k,1881) + lu(k,1889) = lu(k,1889) - lu(k,1452) * lu(k,1881) + lu(k,1891) = lu(k,1891) - lu(k,1453) * lu(k,1881) + lu(k,1893) = lu(k,1893) - lu(k,1454) * lu(k,1881) + lu(k,1894) = lu(k,1894) - lu(k,1455) * lu(k,1881) + lu(k,1897) = lu(k,1897) - lu(k,1456) * lu(k,1881) + lu(k,1899) = lu(k,1899) - lu(k,1457) * lu(k,1881) + lu(k,1911) = - lu(k,1450) * lu(k,1907) + lu(k,1914) = lu(k,1914) - lu(k,1451) * lu(k,1907) + lu(k,1915) = lu(k,1915) - lu(k,1452) * lu(k,1907) + lu(k,1917) = lu(k,1917) - lu(k,1453) * lu(k,1907) + lu(k,1919) = lu(k,1919) - lu(k,1454) * lu(k,1907) + lu(k,1920) = lu(k,1920) - lu(k,1455) * lu(k,1907) + lu(k,1923) = lu(k,1923) - lu(k,1456) * lu(k,1907) + lu(k,1925) = lu(k,1925) - lu(k,1457) * lu(k,1907) + lu(k,2007) = lu(k,2007) - lu(k,1450) * lu(k,2005) + lu(k,2010) = lu(k,2010) - lu(k,1451) * lu(k,2005) + lu(k,2011) = lu(k,2011) - lu(k,1452) * lu(k,2005) + lu(k,2013) = lu(k,2013) - lu(k,1453) * lu(k,2005) + lu(k,2015) = lu(k,2015) - lu(k,1454) * lu(k,2005) + lu(k,2016) = lu(k,2016) - lu(k,1455) * lu(k,2005) + lu(k,2019) = lu(k,2019) - lu(k,1456) * lu(k,2005) + lu(k,2021) = lu(k,2021) - lu(k,1457) * lu(k,2005) + lu(k,2050) = lu(k,2050) - lu(k,1450) * lu(k,2045) + lu(k,2053) = lu(k,2053) - lu(k,1451) * lu(k,2045) + lu(k,2054) = lu(k,2054) - lu(k,1452) * lu(k,2045) + lu(k,2056) = lu(k,2056) - lu(k,1453) * lu(k,2045) + lu(k,2058) = lu(k,2058) - lu(k,1454) * lu(k,2045) + lu(k,2059) = lu(k,2059) - lu(k,1455) * lu(k,2045) + lu(k,2062) = lu(k,2062) - lu(k,1456) * lu(k,2045) + lu(k,2064) = lu(k,2064) - lu(k,1457) * lu(k,2045) + lu(k,2114) = lu(k,2114) - lu(k,1450) * lu(k,2111) + lu(k,2117) = lu(k,2117) - lu(k,1451) * lu(k,2111) + lu(k,2118) = lu(k,2118) - lu(k,1452) * lu(k,2111) + lu(k,2120) = lu(k,2120) - lu(k,1453) * lu(k,2111) + lu(k,2122) = lu(k,2122) - lu(k,1454) * lu(k,2111) + lu(k,2123) = lu(k,2123) - lu(k,1455) * lu(k,2111) + lu(k,2126) = lu(k,2126) - lu(k,1456) * lu(k,2111) + lu(k,2128) = lu(k,2128) - lu(k,1457) * lu(k,2111) + lu(k,2222) = lu(k,2222) - lu(k,1450) * lu(k,2219) + lu(k,2225) = - lu(k,1451) * lu(k,2219) + lu(k,2226) = lu(k,2226) - lu(k,1452) * lu(k,2219) + lu(k,2228) = lu(k,2228) - lu(k,1453) * lu(k,2219) + lu(k,2230) = lu(k,2230) - lu(k,1454) * lu(k,2219) + lu(k,2231) = lu(k,2231) - lu(k,1455) * lu(k,2219) + lu(k,2234) = - lu(k,1456) * lu(k,2219) + lu(k,2236) = lu(k,2236) - lu(k,1457) * lu(k,2219) + lu(k,2330) = lu(k,2330) - lu(k,1450) * lu(k,2326) + lu(k,2333) = lu(k,2333) - lu(k,1451) * lu(k,2326) + lu(k,2334) = lu(k,2334) - lu(k,1452) * lu(k,2326) + lu(k,2336) = lu(k,2336) - lu(k,1453) * lu(k,2326) + lu(k,2338) = lu(k,2338) - lu(k,1454) * lu(k,2326) + lu(k,2339) = lu(k,2339) - lu(k,1455) * lu(k,2326) + lu(k,2342) = lu(k,2342) - lu(k,1456) * lu(k,2326) + lu(k,2344) = lu(k,2344) - lu(k,1457) * lu(k,2326) + lu(k,2405) = lu(k,2405) - lu(k,1450) * lu(k,2404) + lu(k,2408) = - lu(k,1451) * lu(k,2404) + lu(k,2409) = lu(k,2409) - lu(k,1452) * lu(k,2404) + lu(k,2411) = lu(k,2411) - lu(k,1453) * lu(k,2404) + lu(k,2413) = lu(k,2413) - lu(k,1454) * lu(k,2404) + lu(k,2414) = - lu(k,1455) * lu(k,2404) + lu(k,2417) = lu(k,2417) - lu(k,1456) * lu(k,2404) + lu(k,2419) = lu(k,2419) - lu(k,1457) * lu(k,2404) + lu(k,1460) = 1._r8 / lu(k,1460) + lu(k,1461) = lu(k,1461) * lu(k,1460) + lu(k,1462) = lu(k,1462) * lu(k,1460) + lu(k,1463) = lu(k,1463) * lu(k,1460) + lu(k,1464) = lu(k,1464) * lu(k,1460) + lu(k,1465) = lu(k,1465) * lu(k,1460) + lu(k,1466) = lu(k,1466) * lu(k,1460) + lu(k,1467) = lu(k,1467) * lu(k,1460) + lu(k,1468) = lu(k,1468) * lu(k,1460) + lu(k,1469) = lu(k,1469) * lu(k,1460) + lu(k,1470) = lu(k,1470) * lu(k,1460) + lu(k,1471) = lu(k,1471) * lu(k,1460) + lu(k,1560) = lu(k,1560) - lu(k,1461) * lu(k,1559) + lu(k,1563) = lu(k,1563) - lu(k,1462) * lu(k,1559) + lu(k,1565) = lu(k,1565) - lu(k,1463) * lu(k,1559) + lu(k,1566) = lu(k,1566) - lu(k,1464) * lu(k,1559) + lu(k,1567) = lu(k,1567) - lu(k,1465) * lu(k,1559) + lu(k,1571) = lu(k,1571) - lu(k,1466) * lu(k,1559) + lu(k,1574) = lu(k,1574) - lu(k,1467) * lu(k,1559) + lu(k,1575) = lu(k,1575) - lu(k,1468) * lu(k,1559) + lu(k,1577) = lu(k,1577) - lu(k,1469) * lu(k,1559) + lu(k,1578) = lu(k,1578) - lu(k,1470) * lu(k,1559) + lu(k,1579) = lu(k,1579) - lu(k,1471) * lu(k,1559) + lu(k,1627) = lu(k,1627) - lu(k,1461) * lu(k,1626) + lu(k,1630) = lu(k,1630) - lu(k,1462) * lu(k,1626) + lu(k,1632) = lu(k,1632) - lu(k,1463) * lu(k,1626) + lu(k,1633) = lu(k,1633) - lu(k,1464) * lu(k,1626) + lu(k,1634) = lu(k,1634) - lu(k,1465) * lu(k,1626) + lu(k,1638) = lu(k,1638) - lu(k,1466) * lu(k,1626) + lu(k,1641) = lu(k,1641) - lu(k,1467) * lu(k,1626) + lu(k,1642) = lu(k,1642) - lu(k,1468) * lu(k,1626) + lu(k,1644) = lu(k,1644) - lu(k,1469) * lu(k,1626) + lu(k,1645) = lu(k,1645) - lu(k,1470) * lu(k,1626) + lu(k,1646) = lu(k,1646) - lu(k,1471) * lu(k,1626) + lu(k,1792) = lu(k,1792) - lu(k,1461) * lu(k,1790) + lu(k,1795) = lu(k,1795) - lu(k,1462) * lu(k,1790) + lu(k,1797) = lu(k,1797) - lu(k,1463) * lu(k,1790) + lu(k,1798) = lu(k,1798) - lu(k,1464) * lu(k,1790) + lu(k,1799) = lu(k,1799) - lu(k,1465) * lu(k,1790) + lu(k,1803) = lu(k,1803) - lu(k,1466) * lu(k,1790) + lu(k,1806) = lu(k,1806) - lu(k,1467) * lu(k,1790) + lu(k,1807) = lu(k,1807) - lu(k,1468) * lu(k,1790) + lu(k,1809) = lu(k,1809) - lu(k,1469) * lu(k,1790) + lu(k,1810) = lu(k,1810) - lu(k,1470) * lu(k,1790) + lu(k,1811) = lu(k,1811) - lu(k,1471) * lu(k,1790) + lu(k,1838) = lu(k,1838) - lu(k,1461) * lu(k,1837) + lu(k,1841) = lu(k,1841) - lu(k,1462) * lu(k,1837) + lu(k,1843) = lu(k,1843) - lu(k,1463) * lu(k,1837) + lu(k,1844) = lu(k,1844) - lu(k,1464) * lu(k,1837) + lu(k,1845) = lu(k,1845) - lu(k,1465) * lu(k,1837) + lu(k,1849) = lu(k,1849) - lu(k,1466) * lu(k,1837) + lu(k,1852) = lu(k,1852) - lu(k,1467) * lu(k,1837) + lu(k,1853) = lu(k,1853) - lu(k,1468) * lu(k,1837) + lu(k,1855) = lu(k,1855) - lu(k,1469) * lu(k,1837) + lu(k,1856) = lu(k,1856) - lu(k,1470) * lu(k,1837) + lu(k,1857) = lu(k,1857) - lu(k,1471) * lu(k,1837) + lu(k,1909) = lu(k,1909) - lu(k,1461) * lu(k,1908) + lu(k,1912) = - lu(k,1462) * lu(k,1908) + lu(k,1914) = lu(k,1914) - lu(k,1463) * lu(k,1908) + lu(k,1915) = lu(k,1915) - lu(k,1464) * lu(k,1908) + lu(k,1916) = lu(k,1916) - lu(k,1465) * lu(k,1908) + lu(k,1920) = lu(k,1920) - lu(k,1466) * lu(k,1908) + lu(k,1923) = lu(k,1923) - lu(k,1467) * lu(k,1908) + lu(k,1924) = lu(k,1924) - lu(k,1468) * lu(k,1908) + lu(k,1926) = lu(k,1926) - lu(k,1469) * lu(k,1908) + lu(k,1927) = - lu(k,1470) * lu(k,1908) + lu(k,1928) = lu(k,1928) - lu(k,1471) * lu(k,1908) + lu(k,2048) = lu(k,2048) - lu(k,1461) * lu(k,2046) + lu(k,2051) = - lu(k,1462) * lu(k,2046) + lu(k,2053) = lu(k,2053) - lu(k,1463) * lu(k,2046) + lu(k,2054) = lu(k,2054) - lu(k,1464) * lu(k,2046) + lu(k,2055) = lu(k,2055) - lu(k,1465) * lu(k,2046) + lu(k,2059) = lu(k,2059) - lu(k,1466) * lu(k,2046) + lu(k,2062) = lu(k,2062) - lu(k,1467) * lu(k,2046) + lu(k,2063) = lu(k,2063) - lu(k,1468) * lu(k,2046) + lu(k,2065) = lu(k,2065) - lu(k,1469) * lu(k,2046) + lu(k,2066) = - lu(k,1470) * lu(k,2046) + lu(k,2067) = lu(k,2067) - lu(k,1471) * lu(k,2046) + lu(k,2160) = - lu(k,1461) * lu(k,2159) + lu(k,2163) = - lu(k,1462) * lu(k,2159) + lu(k,2165) = - lu(k,1463) * lu(k,2159) + lu(k,2166) = lu(k,2166) - lu(k,1464) * lu(k,2159) + lu(k,2167) = - lu(k,1465) * lu(k,2159) + lu(k,2171) = lu(k,2171) - lu(k,1466) * lu(k,2159) + lu(k,2174) = lu(k,2174) - lu(k,1467) * lu(k,2159) + lu(k,2175) = - lu(k,1468) * lu(k,2159) + lu(k,2177) = - lu(k,1469) * lu(k,2159) + lu(k,2178) = - lu(k,1470) * lu(k,2159) + lu(k,2179) = lu(k,2179) - lu(k,1471) * lu(k,2159) + lu(k,2328) = lu(k,2328) - lu(k,1461) * lu(k,2327) + lu(k,2331) = lu(k,2331) - lu(k,1462) * lu(k,2327) + lu(k,2333) = lu(k,2333) - lu(k,1463) * lu(k,2327) + lu(k,2334) = lu(k,2334) - lu(k,1464) * lu(k,2327) + lu(k,2335) = lu(k,2335) - lu(k,1465) * lu(k,2327) + lu(k,2339) = lu(k,2339) - lu(k,1466) * lu(k,2327) + lu(k,2342) = lu(k,2342) - lu(k,1467) * lu(k,2327) + lu(k,2343) = lu(k,2343) - lu(k,1468) * lu(k,2327) + lu(k,2345) = lu(k,2345) - lu(k,1469) * lu(k,2327) + lu(k,2346) = lu(k,2346) - lu(k,1470) * lu(k,2327) + lu(k,2347) = lu(k,2347) - lu(k,1471) * lu(k,2327) + lu(k,2351) = - lu(k,1461) * lu(k,2350) + lu(k,2354) = lu(k,2354) - lu(k,1462) * lu(k,2350) + lu(k,2356) = - lu(k,1463) * lu(k,2350) lu(k,2357) = lu(k,2357) - lu(k,1464) * lu(k,2350) - lu(k,2361) = lu(k,2361) - lu(k,1465) * lu(k,2350) - lu(k,2362) = lu(k,2362) - lu(k,1466) * lu(k,2350) - lu(k,2363) = lu(k,2363) - lu(k,1467) * lu(k,2350) - lu(k,2364) = lu(k,2364) - lu(k,1468) * lu(k,2350) - lu(k,2365) = lu(k,2365) - lu(k,1469) * lu(k,2350) - lu(k,2367) = lu(k,2367) - lu(k,1470) * lu(k,2350) - lu(k,2369) = lu(k,2369) - lu(k,1471) * lu(k,2350) - lu(k,2370) = lu(k,2370) - lu(k,1472) * lu(k,2350) - lu(k,2430) = - lu(k,1462) * lu(k,2428) + lu(k,2358) = - lu(k,1465) * lu(k,2350) + lu(k,2362) = - lu(k,1466) * lu(k,2350) + lu(k,2365) = lu(k,2365) - lu(k,1467) * lu(k,2350) + lu(k,2366) = lu(k,2366) - lu(k,1468) * lu(k,2350) + lu(k,2368) = lu(k,2368) - lu(k,1469) * lu(k,2350) + lu(k,2369) = lu(k,2369) - lu(k,1470) * lu(k,2350) + lu(k,2370) = lu(k,2370) - lu(k,1471) * lu(k,2350) + lu(k,2430) = - lu(k,1461) * lu(k,2428) + lu(k,2433) = lu(k,2433) - lu(k,1462) * lu(k,2428) lu(k,2435) = lu(k,2435) - lu(k,1463) * lu(k,2428) lu(k,2436) = lu(k,2436) - lu(k,1464) * lu(k,2428) - lu(k,2440) = lu(k,2440) - lu(k,1465) * lu(k,2428) + lu(k,2437) = - lu(k,1465) * lu(k,2428) lu(k,2441) = lu(k,2441) - lu(k,1466) * lu(k,2428) - lu(k,2442) = lu(k,2442) - lu(k,1467) * lu(k,2428) - lu(k,2443) = lu(k,2443) - lu(k,1468) * lu(k,2428) - lu(k,2444) = - lu(k,1469) * lu(k,2428) - lu(k,2446) = lu(k,2446) - lu(k,1470) * lu(k,2428) - lu(k,2448) = lu(k,2448) - lu(k,1471) * lu(k,2428) - lu(k,2449) = lu(k,2449) - lu(k,1472) * lu(k,2428) - lu(k,1476) = 1._r8 / lu(k,1476) - lu(k,1477) = lu(k,1477) * lu(k,1476) - lu(k,1478) = lu(k,1478) * lu(k,1476) - lu(k,1479) = lu(k,1479) * lu(k,1476) - lu(k,1480) = lu(k,1480) * lu(k,1476) - lu(k,1481) = lu(k,1481) * lu(k,1476) - lu(k,1482) = lu(k,1482) * lu(k,1476) - lu(k,1483) = lu(k,1483) * lu(k,1476) - lu(k,1484) = lu(k,1484) * lu(k,1476) - lu(k,1485) = lu(k,1485) * lu(k,1476) - lu(k,1486) = lu(k,1486) * lu(k,1476) - lu(k,1487) = lu(k,1487) * lu(k,1476) - lu(k,1488) = lu(k,1488) * lu(k,1476) - lu(k,1489) = lu(k,1489) * lu(k,1476) - lu(k,1541) = - lu(k,1477) * lu(k,1540) - lu(k,1542) = lu(k,1542) - lu(k,1478) * lu(k,1540) - lu(k,1543) = - lu(k,1479) * lu(k,1540) - lu(k,1544) = - lu(k,1480) * lu(k,1540) - lu(k,1545) = lu(k,1545) - lu(k,1481) * lu(k,1540) - lu(k,1546) = lu(k,1546) - lu(k,1482) * lu(k,1540) - lu(k,1547) = lu(k,1547) - lu(k,1483) * lu(k,1540) - lu(k,1550) = lu(k,1550) - lu(k,1484) * lu(k,1540) - lu(k,1551) = lu(k,1551) - lu(k,1485) * lu(k,1540) - lu(k,1552) = - lu(k,1486) * lu(k,1540) - lu(k,1553) = lu(k,1553) - lu(k,1487) * lu(k,1540) - lu(k,1554) = lu(k,1554) - lu(k,1488) * lu(k,1540) - lu(k,1555) = lu(k,1555) - lu(k,1489) * lu(k,1540) - lu(k,1563) = lu(k,1563) - lu(k,1477) * lu(k,1561) - lu(k,1564) = lu(k,1564) - lu(k,1478) * lu(k,1561) - lu(k,1565) = lu(k,1565) - lu(k,1479) * lu(k,1561) - lu(k,1566) = lu(k,1566) - lu(k,1480) * lu(k,1561) - lu(k,1568) = lu(k,1568) - lu(k,1481) * lu(k,1561) - lu(k,1569) = lu(k,1569) - lu(k,1482) * lu(k,1561) - lu(k,1570) = lu(k,1570) - lu(k,1483) * lu(k,1561) - lu(k,1574) = lu(k,1574) - lu(k,1484) * lu(k,1561) - lu(k,1575) = - lu(k,1485) * lu(k,1561) - lu(k,1576) = lu(k,1576) - lu(k,1486) * lu(k,1561) - lu(k,1577) = - lu(k,1487) * lu(k,1561) - lu(k,1578) = lu(k,1578) - lu(k,1488) * lu(k,1561) - lu(k,1579) = lu(k,1579) - lu(k,1489) * lu(k,1561) - lu(k,1589) = lu(k,1589) - lu(k,1477) * lu(k,1587) - lu(k,1590) = lu(k,1590) - lu(k,1478) * lu(k,1587) - lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1587) - lu(k,1592) = lu(k,1592) - lu(k,1480) * lu(k,1587) - lu(k,1594) = lu(k,1594) - lu(k,1481) * lu(k,1587) - lu(k,1595) = lu(k,1595) - lu(k,1482) * lu(k,1587) - lu(k,1596) = lu(k,1596) - lu(k,1483) * lu(k,1587) - lu(k,1600) = lu(k,1600) - lu(k,1484) * lu(k,1587) - lu(k,1601) = - lu(k,1485) * lu(k,1587) - lu(k,1602) = lu(k,1602) - lu(k,1486) * lu(k,1587) - lu(k,1603) = - lu(k,1487) * lu(k,1587) - lu(k,1604) = lu(k,1604) - lu(k,1488) * lu(k,1587) - lu(k,1606) = lu(k,1606) - lu(k,1489) * lu(k,1587) - lu(k,1648) = - lu(k,1477) * lu(k,1647) - lu(k,1649) = lu(k,1649) - lu(k,1478) * lu(k,1647) - lu(k,1650) = - lu(k,1479) * lu(k,1647) - lu(k,1651) = - lu(k,1480) * lu(k,1647) - lu(k,1653) = lu(k,1653) - lu(k,1481) * lu(k,1647) - lu(k,1654) = lu(k,1654) - lu(k,1482) * lu(k,1647) - lu(k,1655) = lu(k,1655) - lu(k,1483) * lu(k,1647) - lu(k,1659) = lu(k,1659) - lu(k,1484) * lu(k,1647) - lu(k,1660) = lu(k,1660) - lu(k,1485) * lu(k,1647) - lu(k,1661) = - lu(k,1486) * lu(k,1647) - lu(k,1662) = lu(k,1662) - lu(k,1487) * lu(k,1647) - lu(k,1664) = lu(k,1664) - lu(k,1488) * lu(k,1647) - lu(k,1666) = lu(k,1666) - lu(k,1489) * lu(k,1647) - lu(k,1813) = lu(k,1813) - lu(k,1477) * lu(k,1811) - lu(k,1814) = lu(k,1814) - lu(k,1478) * lu(k,1811) - lu(k,1815) = lu(k,1815) - lu(k,1479) * lu(k,1811) - lu(k,1816) = lu(k,1816) - lu(k,1480) * lu(k,1811) - lu(k,1818) = lu(k,1818) - lu(k,1481) * lu(k,1811) - lu(k,1819) = lu(k,1819) - lu(k,1482) * lu(k,1811) - lu(k,1820) = lu(k,1820) - lu(k,1483) * lu(k,1811) - lu(k,1824) = lu(k,1824) - lu(k,1484) * lu(k,1811) - lu(k,1825) = lu(k,1825) - lu(k,1485) * lu(k,1811) - lu(k,1826) = lu(k,1826) - lu(k,1486) * lu(k,1811) - lu(k,1827) = lu(k,1827) - lu(k,1487) * lu(k,1811) - lu(k,1829) = lu(k,1829) - lu(k,1488) * lu(k,1811) - lu(k,1831) = lu(k,1831) - lu(k,1489) * lu(k,1811) - lu(k,1953) = lu(k,1953) - lu(k,1477) * lu(k,1951) - lu(k,1954) = lu(k,1954) - lu(k,1478) * lu(k,1951) - lu(k,1955) = lu(k,1955) - lu(k,1479) * lu(k,1951) - lu(k,1956) = lu(k,1956) - lu(k,1480) * lu(k,1951) - lu(k,1958) = lu(k,1958) - lu(k,1481) * lu(k,1951) - lu(k,1959) = lu(k,1959) - lu(k,1482) * lu(k,1951) - lu(k,1960) = lu(k,1960) - lu(k,1483) * lu(k,1951) - lu(k,1964) = lu(k,1964) - lu(k,1484) * lu(k,1951) - lu(k,1965) = lu(k,1965) - lu(k,1485) * lu(k,1951) - lu(k,1966) = lu(k,1966) - lu(k,1486) * lu(k,1951) - lu(k,1967) = lu(k,1967) - lu(k,1487) * lu(k,1951) - lu(k,1969) = lu(k,1969) - lu(k,1488) * lu(k,1951) - lu(k,1971) = lu(k,1971) - lu(k,1489) * lu(k,1951) - lu(k,2088) = lu(k,2088) - lu(k,1477) * lu(k,2086) - lu(k,2089) = lu(k,2089) - lu(k,1478) * lu(k,2086) - lu(k,2090) = lu(k,2090) - lu(k,1479) * lu(k,2086) - lu(k,2091) = lu(k,2091) - lu(k,1480) * lu(k,2086) - lu(k,2093) = lu(k,2093) - lu(k,1481) * lu(k,2086) - lu(k,2094) = lu(k,2094) - lu(k,1482) * lu(k,2086) - lu(k,2095) = lu(k,2095) - lu(k,1483) * lu(k,2086) - lu(k,2099) = lu(k,2099) - lu(k,1484) * lu(k,2086) - lu(k,2100) = lu(k,2100) - lu(k,1485) * lu(k,2086) - lu(k,2101) = lu(k,2101) - lu(k,1486) * lu(k,2086) - lu(k,2102) = lu(k,2102) - lu(k,1487) * lu(k,2086) - lu(k,2104) = lu(k,2104) - lu(k,1488) * lu(k,2086) - lu(k,2106) = lu(k,2106) - lu(k,1489) * lu(k,2086) - lu(k,2219) = lu(k,2219) - lu(k,1477) * lu(k,2218) - lu(k,2220) = lu(k,2220) - lu(k,1478) * lu(k,2218) - lu(k,2221) = lu(k,2221) - lu(k,1479) * lu(k,2218) - lu(k,2222) = lu(k,2222) - lu(k,1480) * lu(k,2218) - lu(k,2224) = lu(k,2224) - lu(k,1481) * lu(k,2218) - lu(k,2225) = lu(k,2225) - lu(k,1482) * lu(k,2218) - lu(k,2226) = lu(k,2226) - lu(k,1483) * lu(k,2218) - lu(k,2230) = lu(k,2230) - lu(k,1484) * lu(k,2218) - lu(k,2231) = lu(k,2231) - lu(k,1485) * lu(k,2218) - lu(k,2232) = lu(k,2232) - lu(k,1486) * lu(k,2218) - lu(k,2233) = lu(k,2233) - lu(k,1487) * lu(k,2218) - lu(k,2235) = lu(k,2235) - lu(k,1488) * lu(k,2218) - lu(k,2237) = lu(k,2237) - lu(k,1489) * lu(k,2218) - lu(k,2431) = - lu(k,1477) * lu(k,2429) - lu(k,2432) = - lu(k,1478) * lu(k,2429) - lu(k,2433) = - lu(k,1479) * lu(k,2429) - lu(k,2434) = - lu(k,1480) * lu(k,2429) - lu(k,2436) = lu(k,2436) - lu(k,1481) * lu(k,2429) - lu(k,2437) = - lu(k,1482) * lu(k,2429) - lu(k,2438) = - lu(k,1483) * lu(k,2429) - lu(k,2442) = lu(k,2442) - lu(k,1484) * lu(k,2429) - lu(k,2443) = lu(k,2443) - lu(k,1485) * lu(k,2429) - lu(k,2444) = lu(k,2444) - lu(k,1486) * lu(k,2429) - lu(k,2445) = - lu(k,1487) * lu(k,2429) - lu(k,2447) = lu(k,2447) - lu(k,1488) * lu(k,2429) - lu(k,2449) = lu(k,2449) - lu(k,1489) * lu(k,2429) + lu(k,2444) = lu(k,2444) - lu(k,1467) * lu(k,2428) + lu(k,2445) = lu(k,2445) - lu(k,1468) * lu(k,2428) + lu(k,2447) = lu(k,2447) - lu(k,1469) * lu(k,2428) + lu(k,2448) = lu(k,2448) - lu(k,1470) * lu(k,2428) + lu(k,2449) = lu(k,2449) - lu(k,1471) * lu(k,2428) end do end subroutine lu_fac28 subroutine lu_fac29( avec_len, lu ) @@ -6575,392 +6446,306 @@ subroutine lu_fac29( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1495) = 1._r8 / lu(k,1495) - lu(k,1496) = lu(k,1496) * lu(k,1495) - lu(k,1497) = lu(k,1497) * lu(k,1495) - lu(k,1498) = lu(k,1498) * lu(k,1495) - lu(k,1499) = lu(k,1499) * lu(k,1495) - lu(k,1500) = lu(k,1500) * lu(k,1495) - lu(k,1501) = lu(k,1501) * lu(k,1495) - lu(k,1502) = lu(k,1502) * lu(k,1495) - lu(k,1503) = lu(k,1503) * lu(k,1495) - lu(k,1504) = lu(k,1504) * lu(k,1495) - lu(k,1505) = lu(k,1505) * lu(k,1495) - lu(k,1506) = lu(k,1506) * lu(k,1495) - lu(k,1507) = lu(k,1507) * lu(k,1495) - lu(k,1563) = lu(k,1563) - lu(k,1496) * lu(k,1562) - lu(k,1565) = lu(k,1565) - lu(k,1497) * lu(k,1562) - lu(k,1566) = lu(k,1566) - lu(k,1498) * lu(k,1562) - lu(k,1567) = lu(k,1567) - lu(k,1499) * lu(k,1562) - lu(k,1568) = lu(k,1568) - lu(k,1500) * lu(k,1562) - lu(k,1570) = lu(k,1570) - lu(k,1501) * lu(k,1562) - lu(k,1572) = - lu(k,1502) * lu(k,1562) - lu(k,1573) = lu(k,1573) - lu(k,1503) * lu(k,1562) - lu(k,1574) = lu(k,1574) - lu(k,1504) * lu(k,1562) - lu(k,1575) = lu(k,1575) - lu(k,1505) * lu(k,1562) - lu(k,1576) = lu(k,1576) - lu(k,1506) * lu(k,1562) - lu(k,1579) = lu(k,1579) - lu(k,1507) * lu(k,1562) - lu(k,1589) = lu(k,1589) - lu(k,1496) * lu(k,1588) - lu(k,1591) = lu(k,1591) - lu(k,1497) * lu(k,1588) - lu(k,1592) = lu(k,1592) - lu(k,1498) * lu(k,1588) - lu(k,1593) = lu(k,1593) - lu(k,1499) * lu(k,1588) - lu(k,1594) = lu(k,1594) - lu(k,1500) * lu(k,1588) - lu(k,1596) = lu(k,1596) - lu(k,1501) * lu(k,1588) - lu(k,1598) = - lu(k,1502) * lu(k,1588) - lu(k,1599) = lu(k,1599) - lu(k,1503) * lu(k,1588) - lu(k,1600) = lu(k,1600) - lu(k,1504) * lu(k,1588) - lu(k,1601) = lu(k,1601) - lu(k,1505) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,1506) * lu(k,1588) - lu(k,1606) = lu(k,1606) - lu(k,1507) * lu(k,1588) - lu(k,1813) = lu(k,1813) - lu(k,1496) * lu(k,1812) - lu(k,1815) = lu(k,1815) - lu(k,1497) * lu(k,1812) - lu(k,1816) = lu(k,1816) - lu(k,1498) * lu(k,1812) - lu(k,1817) = lu(k,1817) - lu(k,1499) * lu(k,1812) - lu(k,1818) = lu(k,1818) - lu(k,1500) * lu(k,1812) - lu(k,1820) = lu(k,1820) - lu(k,1501) * lu(k,1812) - lu(k,1822) = lu(k,1822) - lu(k,1502) * lu(k,1812) - lu(k,1823) = lu(k,1823) - lu(k,1503) * lu(k,1812) - lu(k,1824) = lu(k,1824) - lu(k,1504) * lu(k,1812) - lu(k,1825) = lu(k,1825) - lu(k,1505) * lu(k,1812) - lu(k,1826) = lu(k,1826) - lu(k,1506) * lu(k,1812) - lu(k,1831) = lu(k,1831) - lu(k,1507) * lu(k,1812) - lu(k,1953) = lu(k,1953) - lu(k,1496) * lu(k,1952) - lu(k,1955) = lu(k,1955) - lu(k,1497) * lu(k,1952) - lu(k,1956) = lu(k,1956) - lu(k,1498) * lu(k,1952) - lu(k,1957) = lu(k,1957) - lu(k,1499) * lu(k,1952) - lu(k,1958) = lu(k,1958) - lu(k,1500) * lu(k,1952) - lu(k,1960) = lu(k,1960) - lu(k,1501) * lu(k,1952) - lu(k,1962) = lu(k,1962) - lu(k,1502) * lu(k,1952) - lu(k,1963) = lu(k,1963) - lu(k,1503) * lu(k,1952) - lu(k,1964) = lu(k,1964) - lu(k,1504) * lu(k,1952) - lu(k,1965) = lu(k,1965) - lu(k,1505) * lu(k,1952) - lu(k,1966) = lu(k,1966) - lu(k,1506) * lu(k,1952) - lu(k,1971) = lu(k,1971) - lu(k,1507) * lu(k,1952) - lu(k,1979) = lu(k,1979) - lu(k,1496) * lu(k,1978) - lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1978) - lu(k,1982) = - lu(k,1498) * lu(k,1978) - lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1978) - lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1978) - lu(k,1986) = lu(k,1986) - lu(k,1501) * lu(k,1978) - lu(k,1988) = lu(k,1988) - lu(k,1502) * lu(k,1978) - lu(k,1989) = lu(k,1989) - lu(k,1503) * lu(k,1978) - lu(k,1990) = lu(k,1990) - lu(k,1504) * lu(k,1978) - lu(k,1991) = lu(k,1991) - lu(k,1505) * lu(k,1978) - lu(k,1992) = lu(k,1992) - lu(k,1506) * lu(k,1978) - lu(k,1997) = lu(k,1997) - lu(k,1507) * lu(k,1978) - lu(k,2022) = lu(k,2022) - lu(k,1496) * lu(k,2021) - lu(k,2024) = lu(k,2024) - lu(k,1497) * lu(k,2021) - lu(k,2025) = lu(k,2025) - lu(k,1498) * lu(k,2021) - lu(k,2026) = lu(k,2026) - lu(k,1499) * lu(k,2021) - lu(k,2027) = lu(k,2027) - lu(k,1500) * lu(k,2021) - lu(k,2029) = - lu(k,1501) * lu(k,2021) - lu(k,2031) = lu(k,2031) - lu(k,1502) * lu(k,2021) - lu(k,2032) = lu(k,2032) - lu(k,1503) * lu(k,2021) - lu(k,2033) = lu(k,2033) - lu(k,1504) * lu(k,2021) - lu(k,2034) = lu(k,2034) - lu(k,1505) * lu(k,2021) - lu(k,2035) = lu(k,2035) - lu(k,1506) * lu(k,2021) - lu(k,2040) = lu(k,2040) - lu(k,1507) * lu(k,2021) - lu(k,2045) = - lu(k,1496) * lu(k,2044) - lu(k,2047) = - lu(k,1497) * lu(k,2044) - lu(k,2048) = - lu(k,1498) * lu(k,2044) - lu(k,2049) = lu(k,2049) - lu(k,1499) * lu(k,2044) - lu(k,2050) = lu(k,2050) - lu(k,1500) * lu(k,2044) - lu(k,2052) = lu(k,2052) - lu(k,1501) * lu(k,2044) - lu(k,2054) = lu(k,2054) - lu(k,1502) * lu(k,2044) - lu(k,2055) = lu(k,2055) - lu(k,1503) * lu(k,2044) - lu(k,2056) = lu(k,2056) - lu(k,1504) * lu(k,2044) - lu(k,2057) = lu(k,2057) - lu(k,1505) * lu(k,2044) - lu(k,2058) = lu(k,2058) - lu(k,1506) * lu(k,2044) - lu(k,2063) = lu(k,2063) - lu(k,1507) * lu(k,2044) - lu(k,2088) = lu(k,2088) - lu(k,1496) * lu(k,2087) - lu(k,2090) = lu(k,2090) - lu(k,1497) * lu(k,2087) - lu(k,2091) = lu(k,2091) - lu(k,1498) * lu(k,2087) - lu(k,2092) = lu(k,2092) - lu(k,1499) * lu(k,2087) - lu(k,2093) = lu(k,2093) - lu(k,1500) * lu(k,2087) - lu(k,2095) = lu(k,2095) - lu(k,1501) * lu(k,2087) - lu(k,2097) = lu(k,2097) - lu(k,1502) * lu(k,2087) - lu(k,2098) = lu(k,2098) - lu(k,1503) * lu(k,2087) - lu(k,2099) = lu(k,2099) - lu(k,1504) * lu(k,2087) - lu(k,2100) = lu(k,2100) - lu(k,1505) * lu(k,2087) - lu(k,2101) = lu(k,2101) - lu(k,1506) * lu(k,2087) - lu(k,2106) = lu(k,2106) - lu(k,1507) * lu(k,2087) - lu(k,2109) = - lu(k,1496) * lu(k,2108) - lu(k,2111) = - lu(k,1497) * lu(k,2108) - lu(k,2112) = - lu(k,1498) * lu(k,2108) - lu(k,2113) = lu(k,2113) - lu(k,1499) * lu(k,2108) - lu(k,2114) = lu(k,2114) - lu(k,1500) * lu(k,2108) - lu(k,2116) = - lu(k,1501) * lu(k,2108) - lu(k,2118) = lu(k,2118) - lu(k,1502) * lu(k,2108) - lu(k,2119) = lu(k,2119) - lu(k,1503) * lu(k,2108) - lu(k,2120) = lu(k,2120) - lu(k,1504) * lu(k,2108) - lu(k,2121) = lu(k,2121) - lu(k,1505) * lu(k,2108) - lu(k,2122) = lu(k,2122) - lu(k,1506) * lu(k,2108) - lu(k,2127) = lu(k,2127) - lu(k,1507) * lu(k,2108) - lu(k,2155) = lu(k,2155) - lu(k,1496) * lu(k,2154) - lu(k,2157) = - lu(k,1497) * lu(k,2154) - lu(k,2158) = lu(k,2158) - lu(k,1498) * lu(k,2154) - lu(k,2159) = lu(k,2159) - lu(k,1499) * lu(k,2154) - lu(k,2160) = lu(k,2160) - lu(k,1500) * lu(k,2154) - lu(k,2162) = lu(k,2162) - lu(k,1501) * lu(k,2154) - lu(k,2164) = lu(k,2164) - lu(k,1502) * lu(k,2154) - lu(k,2165) = lu(k,2165) - lu(k,1503) * lu(k,2154) - lu(k,2166) = lu(k,2166) - lu(k,1504) * lu(k,2154) - lu(k,2167) = lu(k,2167) - lu(k,1505) * lu(k,2154) - lu(k,2168) = lu(k,2168) - lu(k,1506) * lu(k,2154) - lu(k,2173) = lu(k,2173) - lu(k,1507) * lu(k,2154) - lu(k,2244) = - lu(k,1496) * lu(k,2243) - lu(k,2246) = - lu(k,1497) * lu(k,2243) - lu(k,2247) = - lu(k,1498) * lu(k,2243) - lu(k,2248) = lu(k,2248) - lu(k,1499) * lu(k,2243) - lu(k,2249) = lu(k,2249) - lu(k,1500) * lu(k,2243) - lu(k,2251) = lu(k,2251) - lu(k,1501) * lu(k,2243) - lu(k,2253) = lu(k,2253) - lu(k,1502) * lu(k,2243) - lu(k,2254) = lu(k,2254) - lu(k,1503) * lu(k,2243) - lu(k,2255) = lu(k,2255) - lu(k,1504) * lu(k,2243) - lu(k,2256) = lu(k,2256) - lu(k,1505) * lu(k,2243) - lu(k,2257) = lu(k,2257) - lu(k,1506) * lu(k,2243) - lu(k,2262) = lu(k,2262) - lu(k,1507) * lu(k,2243) - lu(k,2352) = lu(k,2352) - lu(k,1496) * lu(k,2351) - lu(k,2354) = lu(k,2354) - lu(k,1497) * lu(k,2351) - lu(k,2355) = lu(k,2355) - lu(k,1498) * lu(k,2351) - lu(k,2356) = lu(k,2356) - lu(k,1499) * lu(k,2351) - lu(k,2357) = lu(k,2357) - lu(k,1500) * lu(k,2351) - lu(k,2359) = lu(k,2359) - lu(k,1501) * lu(k,2351) - lu(k,2361) = lu(k,2361) - lu(k,1502) * lu(k,2351) - lu(k,2362) = lu(k,2362) - lu(k,1503) * lu(k,2351) - lu(k,2363) = lu(k,2363) - lu(k,1504) * lu(k,2351) - lu(k,2364) = lu(k,2364) - lu(k,1505) * lu(k,2351) - lu(k,2365) = lu(k,2365) - lu(k,1506) * lu(k,2351) - lu(k,2370) = lu(k,2370) - lu(k,1507) * lu(k,2351) - lu(k,2431) = lu(k,2431) - lu(k,1496) * lu(k,2430) - lu(k,2433) = lu(k,2433) - lu(k,1497) * lu(k,2430) - lu(k,2434) = lu(k,2434) - lu(k,1498) * lu(k,2430) - lu(k,2435) = lu(k,2435) - lu(k,1499) * lu(k,2430) - lu(k,2436) = lu(k,2436) - lu(k,1500) * lu(k,2430) - lu(k,2438) = lu(k,2438) - lu(k,1501) * lu(k,2430) - lu(k,2440) = lu(k,2440) - lu(k,1502) * lu(k,2430) - lu(k,2441) = lu(k,2441) - lu(k,1503) * lu(k,2430) - lu(k,2442) = lu(k,2442) - lu(k,1504) * lu(k,2430) - lu(k,2443) = lu(k,2443) - lu(k,1505) * lu(k,2430) - lu(k,2444) = lu(k,2444) - lu(k,1506) * lu(k,2430) - lu(k,2449) = lu(k,2449) - lu(k,1507) * lu(k,2430) - lu(k,1511) = 1._r8 / lu(k,1511) - lu(k,1512) = lu(k,1512) * lu(k,1511) - lu(k,1513) = lu(k,1513) * lu(k,1511) - lu(k,1514) = lu(k,1514) * lu(k,1511) - lu(k,1515) = lu(k,1515) * lu(k,1511) - lu(k,1516) = lu(k,1516) * lu(k,1511) - lu(k,1517) = lu(k,1517) * lu(k,1511) - lu(k,1518) = lu(k,1518) * lu(k,1511) - lu(k,1519) = lu(k,1519) * lu(k,1511) - lu(k,1520) = lu(k,1520) * lu(k,1511) - lu(k,1521) = lu(k,1521) * lu(k,1511) - lu(k,1522) = lu(k,1522) * lu(k,1511) - lu(k,1523) = lu(k,1523) * lu(k,1511) - lu(k,1542) = lu(k,1542) - lu(k,1512) * lu(k,1541) - lu(k,1543) = lu(k,1543) - lu(k,1513) * lu(k,1541) - lu(k,1545) = lu(k,1545) - lu(k,1514) * lu(k,1541) - lu(k,1546) = lu(k,1546) - lu(k,1515) * lu(k,1541) - lu(k,1547) = lu(k,1547) - lu(k,1516) * lu(k,1541) - lu(k,1548) = lu(k,1548) - lu(k,1517) * lu(k,1541) - lu(k,1549) = lu(k,1549) - lu(k,1518) * lu(k,1541) - lu(k,1550) = lu(k,1550) - lu(k,1519) * lu(k,1541) - lu(k,1551) = lu(k,1551) - lu(k,1520) * lu(k,1541) - lu(k,1553) = lu(k,1553) - lu(k,1521) * lu(k,1541) - lu(k,1554) = lu(k,1554) - lu(k,1522) * lu(k,1541) - lu(k,1555) = lu(k,1555) - lu(k,1523) * lu(k,1541) - lu(k,1564) = lu(k,1564) - lu(k,1512) * lu(k,1563) - lu(k,1565) = lu(k,1565) - lu(k,1513) * lu(k,1563) - lu(k,1568) = lu(k,1568) - lu(k,1514) * lu(k,1563) - lu(k,1569) = lu(k,1569) - lu(k,1515) * lu(k,1563) - lu(k,1570) = lu(k,1570) - lu(k,1516) * lu(k,1563) - lu(k,1571) = - lu(k,1517) * lu(k,1563) - lu(k,1572) = lu(k,1572) - lu(k,1518) * lu(k,1563) - lu(k,1574) = lu(k,1574) - lu(k,1519) * lu(k,1563) - lu(k,1575) = lu(k,1575) - lu(k,1520) * lu(k,1563) - lu(k,1577) = lu(k,1577) - lu(k,1521) * lu(k,1563) - lu(k,1578) = lu(k,1578) - lu(k,1522) * lu(k,1563) - lu(k,1579) = lu(k,1579) - lu(k,1523) * lu(k,1563) - lu(k,1590) = lu(k,1590) - lu(k,1512) * lu(k,1589) - lu(k,1591) = lu(k,1591) - lu(k,1513) * lu(k,1589) - lu(k,1594) = lu(k,1594) - lu(k,1514) * lu(k,1589) - lu(k,1595) = lu(k,1595) - lu(k,1515) * lu(k,1589) - lu(k,1596) = lu(k,1596) - lu(k,1516) * lu(k,1589) - lu(k,1597) = lu(k,1597) - lu(k,1517) * lu(k,1589) - lu(k,1598) = lu(k,1598) - lu(k,1518) * lu(k,1589) - lu(k,1600) = lu(k,1600) - lu(k,1519) * lu(k,1589) - lu(k,1601) = lu(k,1601) - lu(k,1520) * lu(k,1589) - lu(k,1603) = lu(k,1603) - lu(k,1521) * lu(k,1589) - lu(k,1604) = lu(k,1604) - lu(k,1522) * lu(k,1589) - lu(k,1606) = lu(k,1606) - lu(k,1523) * lu(k,1589) - lu(k,1649) = lu(k,1649) - lu(k,1512) * lu(k,1648) - lu(k,1650) = lu(k,1650) - lu(k,1513) * lu(k,1648) - lu(k,1653) = lu(k,1653) - lu(k,1514) * lu(k,1648) - lu(k,1654) = lu(k,1654) - lu(k,1515) * lu(k,1648) - lu(k,1655) = lu(k,1655) - lu(k,1516) * lu(k,1648) - lu(k,1656) = lu(k,1656) - lu(k,1517) * lu(k,1648) - lu(k,1657) = lu(k,1657) - lu(k,1518) * lu(k,1648) - lu(k,1659) = lu(k,1659) - lu(k,1519) * lu(k,1648) - lu(k,1660) = lu(k,1660) - lu(k,1520) * lu(k,1648) - lu(k,1662) = lu(k,1662) - lu(k,1521) * lu(k,1648) - lu(k,1664) = lu(k,1664) - lu(k,1522) * lu(k,1648) - lu(k,1666) = lu(k,1666) - lu(k,1523) * lu(k,1648) - lu(k,1814) = lu(k,1814) - lu(k,1512) * lu(k,1813) - lu(k,1815) = lu(k,1815) - lu(k,1513) * lu(k,1813) - lu(k,1818) = lu(k,1818) - lu(k,1514) * lu(k,1813) - lu(k,1819) = lu(k,1819) - lu(k,1515) * lu(k,1813) - lu(k,1820) = lu(k,1820) - lu(k,1516) * lu(k,1813) - lu(k,1821) = lu(k,1821) - lu(k,1517) * lu(k,1813) - lu(k,1822) = lu(k,1822) - lu(k,1518) * lu(k,1813) - lu(k,1824) = lu(k,1824) - lu(k,1519) * lu(k,1813) - lu(k,1825) = lu(k,1825) - lu(k,1520) * lu(k,1813) - lu(k,1827) = lu(k,1827) - lu(k,1521) * lu(k,1813) - lu(k,1829) = lu(k,1829) - lu(k,1522) * lu(k,1813) - lu(k,1831) = lu(k,1831) - lu(k,1523) * lu(k,1813) - lu(k,1909) = lu(k,1909) - lu(k,1512) * lu(k,1908) - lu(k,1910) = lu(k,1910) - lu(k,1513) * lu(k,1908) - lu(k,1913) = lu(k,1913) - lu(k,1514) * lu(k,1908) - lu(k,1914) = lu(k,1914) - lu(k,1515) * lu(k,1908) - lu(k,1915) = lu(k,1915) - lu(k,1516) * lu(k,1908) - lu(k,1916) = lu(k,1916) - lu(k,1517) * lu(k,1908) - lu(k,1917) = lu(k,1917) - lu(k,1518) * lu(k,1908) - lu(k,1919) = lu(k,1919) - lu(k,1519) * lu(k,1908) - lu(k,1920) = lu(k,1920) - lu(k,1520) * lu(k,1908) - lu(k,1922) = lu(k,1922) - lu(k,1521) * lu(k,1908) - lu(k,1924) = lu(k,1924) - lu(k,1522) * lu(k,1908) - lu(k,1926) = lu(k,1926) - lu(k,1523) * lu(k,1908) - lu(k,1954) = lu(k,1954) - lu(k,1512) * lu(k,1953) - lu(k,1955) = lu(k,1955) - lu(k,1513) * lu(k,1953) - lu(k,1958) = lu(k,1958) - lu(k,1514) * lu(k,1953) - lu(k,1959) = lu(k,1959) - lu(k,1515) * lu(k,1953) - lu(k,1960) = lu(k,1960) - lu(k,1516) * lu(k,1953) - lu(k,1961) = lu(k,1961) - lu(k,1517) * lu(k,1953) - lu(k,1962) = lu(k,1962) - lu(k,1518) * lu(k,1953) - lu(k,1964) = lu(k,1964) - lu(k,1519) * lu(k,1953) - lu(k,1965) = lu(k,1965) - lu(k,1520) * lu(k,1953) - lu(k,1967) = lu(k,1967) - lu(k,1521) * lu(k,1953) - lu(k,1969) = lu(k,1969) - lu(k,1522) * lu(k,1953) - lu(k,1971) = lu(k,1971) - lu(k,1523) * lu(k,1953) - lu(k,1980) = lu(k,1980) - lu(k,1512) * lu(k,1979) - lu(k,1981) = lu(k,1981) - lu(k,1513) * lu(k,1979) - lu(k,1984) = lu(k,1984) - lu(k,1514) * lu(k,1979) - lu(k,1985) = lu(k,1985) - lu(k,1515) * lu(k,1979) - lu(k,1986) = lu(k,1986) - lu(k,1516) * lu(k,1979) - lu(k,1987) = lu(k,1987) - lu(k,1517) * lu(k,1979) - lu(k,1988) = lu(k,1988) - lu(k,1518) * lu(k,1979) - lu(k,1990) = lu(k,1990) - lu(k,1519) * lu(k,1979) - lu(k,1991) = lu(k,1991) - lu(k,1520) * lu(k,1979) - lu(k,1993) = - lu(k,1521) * lu(k,1979) - lu(k,1995) = lu(k,1995) - lu(k,1522) * lu(k,1979) - lu(k,1997) = lu(k,1997) - lu(k,1523) * lu(k,1979) - lu(k,2023) = lu(k,2023) - lu(k,1512) * lu(k,2022) - lu(k,2024) = lu(k,2024) - lu(k,1513) * lu(k,2022) - lu(k,2027) = lu(k,2027) - lu(k,1514) * lu(k,2022) - lu(k,2028) = lu(k,2028) - lu(k,1515) * lu(k,2022) - lu(k,2029) = lu(k,2029) - lu(k,1516) * lu(k,2022) - lu(k,2030) = lu(k,2030) - lu(k,1517) * lu(k,2022) - lu(k,2031) = lu(k,2031) - lu(k,1518) * lu(k,2022) - lu(k,2033) = lu(k,2033) - lu(k,1519) * lu(k,2022) - lu(k,2034) = lu(k,2034) - lu(k,1520) * lu(k,2022) - lu(k,2036) = lu(k,2036) - lu(k,1521) * lu(k,2022) - lu(k,2038) = lu(k,2038) - lu(k,1522) * lu(k,2022) - lu(k,2040) = lu(k,2040) - lu(k,1523) * lu(k,2022) - lu(k,2046) = - lu(k,1512) * lu(k,2045) - lu(k,2047) = lu(k,2047) - lu(k,1513) * lu(k,2045) - lu(k,2050) = lu(k,2050) - lu(k,1514) * lu(k,2045) - lu(k,2051) = - lu(k,1515) * lu(k,2045) - lu(k,2052) = lu(k,2052) - lu(k,1516) * lu(k,2045) - lu(k,2053) = - lu(k,1517) * lu(k,2045) - lu(k,2054) = lu(k,2054) - lu(k,1518) * lu(k,2045) - lu(k,2056) = lu(k,2056) - lu(k,1519) * lu(k,2045) - lu(k,2057) = lu(k,2057) - lu(k,1520) * lu(k,2045) - lu(k,2059) = - lu(k,1521) * lu(k,2045) - lu(k,2061) = - lu(k,1522) * lu(k,2045) - lu(k,2063) = lu(k,2063) - lu(k,1523) * lu(k,2045) - lu(k,2089) = lu(k,2089) - lu(k,1512) * lu(k,2088) - lu(k,2090) = lu(k,2090) - lu(k,1513) * lu(k,2088) - lu(k,2093) = lu(k,2093) - lu(k,1514) * lu(k,2088) - lu(k,2094) = lu(k,2094) - lu(k,1515) * lu(k,2088) - lu(k,2095) = lu(k,2095) - lu(k,1516) * lu(k,2088) - lu(k,2096) = lu(k,2096) - lu(k,1517) * lu(k,2088) - lu(k,2097) = lu(k,2097) - lu(k,1518) * lu(k,2088) - lu(k,2099) = lu(k,2099) - lu(k,1519) * lu(k,2088) - lu(k,2100) = lu(k,2100) - lu(k,1520) * lu(k,2088) - lu(k,2102) = lu(k,2102) - lu(k,1521) * lu(k,2088) - lu(k,2104) = lu(k,2104) - lu(k,1522) * lu(k,2088) - lu(k,2106) = lu(k,2106) - lu(k,1523) * lu(k,2088) - lu(k,2110) = lu(k,2110) - lu(k,1512) * lu(k,2109) - lu(k,2111) = lu(k,2111) - lu(k,1513) * lu(k,2109) - lu(k,2114) = lu(k,2114) - lu(k,1514) * lu(k,2109) - lu(k,2115) = - lu(k,1515) * lu(k,2109) - lu(k,2116) = lu(k,2116) - lu(k,1516) * lu(k,2109) - lu(k,2117) = - lu(k,1517) * lu(k,2109) - lu(k,2118) = lu(k,2118) - lu(k,1518) * lu(k,2109) - lu(k,2120) = lu(k,2120) - lu(k,1519) * lu(k,2109) - lu(k,2121) = lu(k,2121) - lu(k,1520) * lu(k,2109) - lu(k,2123) = lu(k,2123) - lu(k,1521) * lu(k,2109) - lu(k,2125) = lu(k,2125) - lu(k,1522) * lu(k,2109) - lu(k,2127) = lu(k,2127) - lu(k,1523) * lu(k,2109) - lu(k,2156) = lu(k,2156) - lu(k,1512) * lu(k,2155) - lu(k,2157) = lu(k,2157) - lu(k,1513) * lu(k,2155) - lu(k,2160) = lu(k,2160) - lu(k,1514) * lu(k,2155) - lu(k,2161) = lu(k,2161) - lu(k,1515) * lu(k,2155) - lu(k,2162) = lu(k,2162) - lu(k,1516) * lu(k,2155) - lu(k,2163) = lu(k,2163) - lu(k,1517) * lu(k,2155) - lu(k,2164) = lu(k,2164) - lu(k,1518) * lu(k,2155) - lu(k,2166) = lu(k,2166) - lu(k,1519) * lu(k,2155) - lu(k,2167) = lu(k,2167) - lu(k,1520) * lu(k,2155) - lu(k,2169) = lu(k,2169) - lu(k,1521) * lu(k,2155) - lu(k,2171) = lu(k,2171) - lu(k,1522) * lu(k,2155) - lu(k,2173) = lu(k,2173) - lu(k,1523) * lu(k,2155) - lu(k,2220) = lu(k,2220) - lu(k,1512) * lu(k,2219) - lu(k,2221) = lu(k,2221) - lu(k,1513) * lu(k,2219) - lu(k,2224) = lu(k,2224) - lu(k,1514) * lu(k,2219) - lu(k,2225) = lu(k,2225) - lu(k,1515) * lu(k,2219) - lu(k,2226) = lu(k,2226) - lu(k,1516) * lu(k,2219) - lu(k,2227) = lu(k,2227) - lu(k,1517) * lu(k,2219) - lu(k,2228) = lu(k,2228) - lu(k,1518) * lu(k,2219) - lu(k,2230) = lu(k,2230) - lu(k,1519) * lu(k,2219) - lu(k,2231) = lu(k,2231) - lu(k,1520) * lu(k,2219) - lu(k,2233) = lu(k,2233) - lu(k,1521) * lu(k,2219) - lu(k,2235) = lu(k,2235) - lu(k,1522) * lu(k,2219) - lu(k,2237) = lu(k,2237) - lu(k,1523) * lu(k,2219) - lu(k,2245) = lu(k,2245) - lu(k,1512) * lu(k,2244) - lu(k,2246) = lu(k,2246) - lu(k,1513) * lu(k,2244) - lu(k,2249) = lu(k,2249) - lu(k,1514) * lu(k,2244) - lu(k,2250) = lu(k,2250) - lu(k,1515) * lu(k,2244) - lu(k,2251) = lu(k,2251) - lu(k,1516) * lu(k,2244) - lu(k,2252) = lu(k,2252) - lu(k,1517) * lu(k,2244) - lu(k,2253) = lu(k,2253) - lu(k,1518) * lu(k,2244) - lu(k,2255) = lu(k,2255) - lu(k,1519) * lu(k,2244) - lu(k,2256) = lu(k,2256) - lu(k,1520) * lu(k,2244) - lu(k,2258) = - lu(k,1521) * lu(k,2244) - lu(k,2260) = lu(k,2260) - lu(k,1522) * lu(k,2244) - lu(k,2262) = lu(k,2262) - lu(k,1523) * lu(k,2244) - lu(k,2353) = lu(k,2353) - lu(k,1512) * lu(k,2352) - lu(k,2354) = lu(k,2354) - lu(k,1513) * lu(k,2352) - lu(k,2357) = lu(k,2357) - lu(k,1514) * lu(k,2352) - lu(k,2358) = lu(k,2358) - lu(k,1515) * lu(k,2352) - lu(k,2359) = lu(k,2359) - lu(k,1516) * lu(k,2352) - lu(k,2360) = lu(k,2360) - lu(k,1517) * lu(k,2352) - lu(k,2361) = lu(k,2361) - lu(k,1518) * lu(k,2352) - lu(k,2363) = lu(k,2363) - lu(k,1519) * lu(k,2352) - lu(k,2364) = lu(k,2364) - lu(k,1520) * lu(k,2352) - lu(k,2366) = lu(k,2366) - lu(k,1521) * lu(k,2352) - lu(k,2368) = lu(k,2368) - lu(k,1522) * lu(k,2352) - lu(k,2370) = lu(k,2370) - lu(k,1523) * lu(k,2352) - lu(k,2432) = lu(k,2432) - lu(k,1512) * lu(k,2431) - lu(k,2433) = lu(k,2433) - lu(k,1513) * lu(k,2431) - lu(k,2436) = lu(k,2436) - lu(k,1514) * lu(k,2431) - lu(k,2437) = lu(k,2437) - lu(k,1515) * lu(k,2431) - lu(k,2438) = lu(k,2438) - lu(k,1516) * lu(k,2431) - lu(k,2439) = - lu(k,1517) * lu(k,2431) - lu(k,2440) = lu(k,2440) - lu(k,1518) * lu(k,2431) - lu(k,2442) = lu(k,2442) - lu(k,1519) * lu(k,2431) - lu(k,2443) = lu(k,2443) - lu(k,1520) * lu(k,2431) - lu(k,2445) = lu(k,2445) - lu(k,1521) * lu(k,2431) - lu(k,2447) = lu(k,2447) - lu(k,1522) * lu(k,2431) - lu(k,2449) = lu(k,2449) - lu(k,1523) * lu(k,2431) + lu(k,1475) = 1._r8 / lu(k,1475) + lu(k,1476) = lu(k,1476) * lu(k,1475) + lu(k,1477) = lu(k,1477) * lu(k,1475) + lu(k,1478) = lu(k,1478) * lu(k,1475) + lu(k,1479) = lu(k,1479) * lu(k,1475) + lu(k,1480) = lu(k,1480) * lu(k,1475) + lu(k,1481) = lu(k,1481) * lu(k,1475) + lu(k,1482) = lu(k,1482) * lu(k,1475) + lu(k,1483) = lu(k,1483) * lu(k,1475) + lu(k,1484) = lu(k,1484) * lu(k,1475) + lu(k,1485) = lu(k,1485) * lu(k,1475) + lu(k,1486) = lu(k,1486) * lu(k,1475) + lu(k,1487) = lu(k,1487) * lu(k,1475) + lu(k,1488) = lu(k,1488) * lu(k,1475) + lu(k,1540) = - lu(k,1476) * lu(k,1539) + lu(k,1541) = lu(k,1541) - lu(k,1477) * lu(k,1539) + lu(k,1542) = - lu(k,1478) * lu(k,1539) + lu(k,1544) = lu(k,1544) - lu(k,1479) * lu(k,1539) + lu(k,1545) = - lu(k,1480) * lu(k,1539) + lu(k,1546) = lu(k,1546) - lu(k,1481) * lu(k,1539) + lu(k,1548) = lu(k,1548) - lu(k,1482) * lu(k,1539) + lu(k,1549) = lu(k,1549) - lu(k,1483) * lu(k,1539) + lu(k,1550) = lu(k,1550) - lu(k,1484) * lu(k,1539) + lu(k,1551) = - lu(k,1485) * lu(k,1539) + lu(k,1552) = lu(k,1552) - lu(k,1486) * lu(k,1539) + lu(k,1553) = lu(k,1553) - lu(k,1487) * lu(k,1539) + lu(k,1554) = lu(k,1554) - lu(k,1488) * lu(k,1539) + lu(k,1587) = lu(k,1587) - lu(k,1476) * lu(k,1585) + lu(k,1588) = lu(k,1588) - lu(k,1477) * lu(k,1585) + lu(k,1589) = lu(k,1589) - lu(k,1478) * lu(k,1585) + lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1585) + lu(k,1592) = lu(k,1592) - lu(k,1480) * lu(k,1585) + lu(k,1593) = lu(k,1593) - lu(k,1481) * lu(k,1585) + lu(k,1595) = lu(k,1595) - lu(k,1482) * lu(k,1585) + lu(k,1596) = lu(k,1596) - lu(k,1483) * lu(k,1585) + lu(k,1597) = - lu(k,1484) * lu(k,1585) + lu(k,1598) = lu(k,1598) - lu(k,1485) * lu(k,1585) + lu(k,1599) = - lu(k,1486) * lu(k,1585) + lu(k,1601) = lu(k,1601) - lu(k,1487) * lu(k,1585) + lu(k,1603) = lu(k,1603) - lu(k,1488) * lu(k,1585) + lu(k,1793) = lu(k,1793) - lu(k,1476) * lu(k,1791) + lu(k,1794) = lu(k,1794) - lu(k,1477) * lu(k,1791) + lu(k,1796) = lu(k,1796) - lu(k,1478) * lu(k,1791) + lu(k,1798) = lu(k,1798) - lu(k,1479) * lu(k,1791) + lu(k,1799) = lu(k,1799) - lu(k,1480) * lu(k,1791) + lu(k,1800) = lu(k,1800) - lu(k,1481) * lu(k,1791) + lu(k,1802) = lu(k,1802) - lu(k,1482) * lu(k,1791) + lu(k,1803) = lu(k,1803) - lu(k,1483) * lu(k,1791) + lu(k,1804) = lu(k,1804) - lu(k,1484) * lu(k,1791) + lu(k,1805) = lu(k,1805) - lu(k,1485) * lu(k,1791) + lu(k,1806) = lu(k,1806) - lu(k,1486) * lu(k,1791) + lu(k,1808) = lu(k,1808) - lu(k,1487) * lu(k,1791) + lu(k,1811) = lu(k,1811) - lu(k,1488) * lu(k,1791) + lu(k,1884) = lu(k,1884) - lu(k,1476) * lu(k,1882) + lu(k,1885) = lu(k,1885) - lu(k,1477) * lu(k,1882) + lu(k,1887) = lu(k,1887) - lu(k,1478) * lu(k,1882) + lu(k,1889) = lu(k,1889) - lu(k,1479) * lu(k,1882) + lu(k,1890) = lu(k,1890) - lu(k,1480) * lu(k,1882) + lu(k,1891) = lu(k,1891) - lu(k,1481) * lu(k,1882) + lu(k,1893) = lu(k,1893) - lu(k,1482) * lu(k,1882) + lu(k,1894) = lu(k,1894) - lu(k,1483) * lu(k,1882) + lu(k,1895) = lu(k,1895) - lu(k,1484) * lu(k,1882) + lu(k,1896) = lu(k,1896) - lu(k,1485) * lu(k,1882) + lu(k,1897) = lu(k,1897) - lu(k,1486) * lu(k,1882) + lu(k,1899) = lu(k,1899) - lu(k,1487) * lu(k,1882) + lu(k,1902) = lu(k,1902) - lu(k,1488) * lu(k,1882) + lu(k,2049) = lu(k,2049) - lu(k,1476) * lu(k,2047) + lu(k,2050) = lu(k,2050) - lu(k,1477) * lu(k,2047) + lu(k,2052) = lu(k,2052) - lu(k,1478) * lu(k,2047) + lu(k,2054) = lu(k,2054) - lu(k,1479) * lu(k,2047) + lu(k,2055) = lu(k,2055) - lu(k,1480) * lu(k,2047) + lu(k,2056) = lu(k,2056) - lu(k,1481) * lu(k,2047) + lu(k,2058) = lu(k,2058) - lu(k,1482) * lu(k,2047) + lu(k,2059) = lu(k,2059) - lu(k,1483) * lu(k,2047) + lu(k,2060) = lu(k,2060) - lu(k,1484) * lu(k,2047) + lu(k,2061) = lu(k,2061) - lu(k,1485) * lu(k,2047) + lu(k,2062) = lu(k,2062) - lu(k,1486) * lu(k,2047) + lu(k,2064) = lu(k,2064) - lu(k,1487) * lu(k,2047) + lu(k,2067) = lu(k,2067) - lu(k,1488) * lu(k,2047) + lu(k,2113) = lu(k,2113) - lu(k,1476) * lu(k,2112) + lu(k,2114) = lu(k,2114) - lu(k,1477) * lu(k,2112) + lu(k,2116) = lu(k,2116) - lu(k,1478) * lu(k,2112) + lu(k,2118) = lu(k,2118) - lu(k,1479) * lu(k,2112) + lu(k,2119) = lu(k,2119) - lu(k,1480) * lu(k,2112) + lu(k,2120) = lu(k,2120) - lu(k,1481) * lu(k,2112) + lu(k,2122) = lu(k,2122) - lu(k,1482) * lu(k,2112) + lu(k,2123) = lu(k,2123) - lu(k,1483) * lu(k,2112) + lu(k,2124) = lu(k,2124) - lu(k,1484) * lu(k,2112) + lu(k,2125) = lu(k,2125) - lu(k,1485) * lu(k,2112) + lu(k,2126) = lu(k,2126) - lu(k,1486) * lu(k,2112) + lu(k,2128) = lu(k,2128) - lu(k,1487) * lu(k,2112) + lu(k,2131) = lu(k,2131) - lu(k,1488) * lu(k,2112) + lu(k,2141) = lu(k,2141) - lu(k,1476) * lu(k,2139) + lu(k,2142) = lu(k,2142) - lu(k,1477) * lu(k,2139) + lu(k,2143) = lu(k,2143) - lu(k,1478) * lu(k,2139) + lu(k,2145) = lu(k,2145) - lu(k,1479) * lu(k,2139) + lu(k,2146) = lu(k,2146) - lu(k,1480) * lu(k,2139) + lu(k,2147) = lu(k,2147) - lu(k,1481) * lu(k,2139) + lu(k,2149) = lu(k,2149) - lu(k,1482) * lu(k,2139) + lu(k,2150) = lu(k,2150) - lu(k,1483) * lu(k,2139) + lu(k,2151) = - lu(k,1484) * lu(k,2139) + lu(k,2152) = lu(k,2152) - lu(k,1485) * lu(k,2139) + lu(k,2153) = - lu(k,1486) * lu(k,2139) + lu(k,2155) = lu(k,2155) - lu(k,1487) * lu(k,2139) + lu(k,2158) = lu(k,2158) - lu(k,1488) * lu(k,2139) + lu(k,2221) = - lu(k,1476) * lu(k,2220) + lu(k,2222) = lu(k,2222) - lu(k,1477) * lu(k,2220) + lu(k,2224) = - lu(k,1478) * lu(k,2220) + lu(k,2226) = lu(k,2226) - lu(k,1479) * lu(k,2220) + lu(k,2227) = - lu(k,1480) * lu(k,2220) + lu(k,2228) = lu(k,2228) - lu(k,1481) * lu(k,2220) + lu(k,2230) = lu(k,2230) - lu(k,1482) * lu(k,2220) + lu(k,2231) = lu(k,2231) - lu(k,1483) * lu(k,2220) + lu(k,2232) = lu(k,2232) - lu(k,1484) * lu(k,2220) + lu(k,2233) = - lu(k,1485) * lu(k,2220) + lu(k,2234) = lu(k,2234) - lu(k,1486) * lu(k,2220) + lu(k,2236) = lu(k,2236) - lu(k,1487) * lu(k,2220) + lu(k,2239) = lu(k,2239) - lu(k,1488) * lu(k,2220) + lu(k,2431) = - lu(k,1476) * lu(k,2429) + lu(k,2432) = - lu(k,1477) * lu(k,2429) + lu(k,2434) = - lu(k,1478) * lu(k,2429) + lu(k,2436) = lu(k,2436) - lu(k,1479) * lu(k,2429) + lu(k,2437) = lu(k,2437) - lu(k,1480) * lu(k,2429) + lu(k,2438) = - lu(k,1481) * lu(k,2429) + lu(k,2440) = - lu(k,1482) * lu(k,2429) + lu(k,2441) = lu(k,2441) - lu(k,1483) * lu(k,2429) + lu(k,2442) = - lu(k,1484) * lu(k,2429) + lu(k,2443) = - lu(k,1485) * lu(k,2429) + lu(k,2444) = lu(k,2444) - lu(k,1486) * lu(k,2429) + lu(k,2446) = lu(k,2446) - lu(k,1487) * lu(k,2429) + lu(k,2449) = lu(k,2449) - lu(k,1488) * lu(k,2429) + lu(k,1494) = 1._r8 / lu(k,1494) + lu(k,1495) = lu(k,1495) * lu(k,1494) + lu(k,1496) = lu(k,1496) * lu(k,1494) + lu(k,1497) = lu(k,1497) * lu(k,1494) + lu(k,1498) = lu(k,1498) * lu(k,1494) + lu(k,1499) = lu(k,1499) * lu(k,1494) + lu(k,1500) = lu(k,1500) * lu(k,1494) + lu(k,1501) = lu(k,1501) * lu(k,1494) + lu(k,1502) = lu(k,1502) * lu(k,1494) + lu(k,1503) = lu(k,1503) * lu(k,1494) + lu(k,1504) = lu(k,1504) * lu(k,1494) + lu(k,1505) = lu(k,1505) * lu(k,1494) + lu(k,1506) = lu(k,1506) * lu(k,1494) + lu(k,1561) = - lu(k,1495) * lu(k,1560) + lu(k,1564) = - lu(k,1496) * lu(k,1560) + lu(k,1565) = lu(k,1565) - lu(k,1497) * lu(k,1560) + lu(k,1566) = lu(k,1566) - lu(k,1498) * lu(k,1560) + lu(k,1567) = lu(k,1567) - lu(k,1499) * lu(k,1560) + lu(k,1568) = lu(k,1568) - lu(k,1500) * lu(k,1560) + lu(k,1571) = lu(k,1571) - lu(k,1501) * lu(k,1560) + lu(k,1573) = - lu(k,1502) * lu(k,1560) + lu(k,1574) = lu(k,1574) - lu(k,1503) * lu(k,1560) + lu(k,1575) = lu(k,1575) - lu(k,1504) * lu(k,1560) + lu(k,1577) = lu(k,1577) - lu(k,1505) * lu(k,1560) + lu(k,1579) = lu(k,1579) - lu(k,1506) * lu(k,1560) + lu(k,1587) = lu(k,1587) - lu(k,1495) * lu(k,1586) + lu(k,1589) = lu(k,1589) - lu(k,1496) * lu(k,1586) + lu(k,1590) = - lu(k,1497) * lu(k,1586) + lu(k,1591) = lu(k,1591) - lu(k,1498) * lu(k,1586) + lu(k,1592) = lu(k,1592) - lu(k,1499) * lu(k,1586) + lu(k,1593) = lu(k,1593) - lu(k,1500) * lu(k,1586) + lu(k,1596) = lu(k,1596) - lu(k,1501) * lu(k,1586) + lu(k,1598) = lu(k,1598) - lu(k,1502) * lu(k,1586) + lu(k,1599) = lu(k,1599) - lu(k,1503) * lu(k,1586) + lu(k,1600) = lu(k,1600) - lu(k,1504) * lu(k,1586) + lu(k,1602) = lu(k,1602) - lu(k,1505) * lu(k,1586) + lu(k,1603) = lu(k,1603) - lu(k,1506) * lu(k,1586) + lu(k,1628) = lu(k,1628) - lu(k,1495) * lu(k,1627) + lu(k,1631) = lu(k,1631) - lu(k,1496) * lu(k,1627) + lu(k,1632) = lu(k,1632) - lu(k,1497) * lu(k,1627) + lu(k,1633) = lu(k,1633) - lu(k,1498) * lu(k,1627) + lu(k,1634) = lu(k,1634) - lu(k,1499) * lu(k,1627) + lu(k,1635) = - lu(k,1500) * lu(k,1627) + lu(k,1638) = lu(k,1638) - lu(k,1501) * lu(k,1627) + lu(k,1640) = lu(k,1640) - lu(k,1502) * lu(k,1627) + lu(k,1641) = lu(k,1641) - lu(k,1503) * lu(k,1627) + lu(k,1642) = lu(k,1642) - lu(k,1504) * lu(k,1627) + lu(k,1644) = lu(k,1644) - lu(k,1505) * lu(k,1627) + lu(k,1646) = lu(k,1646) - lu(k,1506) * lu(k,1627) + lu(k,1793) = lu(k,1793) - lu(k,1495) * lu(k,1792) + lu(k,1796) = lu(k,1796) - lu(k,1496) * lu(k,1792) + lu(k,1797) = lu(k,1797) - lu(k,1497) * lu(k,1792) + lu(k,1798) = lu(k,1798) - lu(k,1498) * lu(k,1792) + lu(k,1799) = lu(k,1799) - lu(k,1499) * lu(k,1792) + lu(k,1800) = lu(k,1800) - lu(k,1500) * lu(k,1792) + lu(k,1803) = lu(k,1803) - lu(k,1501) * lu(k,1792) + lu(k,1805) = lu(k,1805) - lu(k,1502) * lu(k,1792) + lu(k,1806) = lu(k,1806) - lu(k,1503) * lu(k,1792) + lu(k,1807) = lu(k,1807) - lu(k,1504) * lu(k,1792) + lu(k,1809) = lu(k,1809) - lu(k,1505) * lu(k,1792) + lu(k,1811) = lu(k,1811) - lu(k,1506) * lu(k,1792) + lu(k,1839) = lu(k,1839) - lu(k,1495) * lu(k,1838) + lu(k,1842) = - lu(k,1496) * lu(k,1838) + lu(k,1843) = lu(k,1843) - lu(k,1497) * lu(k,1838) + lu(k,1844) = lu(k,1844) - lu(k,1498) * lu(k,1838) + lu(k,1845) = lu(k,1845) - lu(k,1499) * lu(k,1838) + lu(k,1846) = lu(k,1846) - lu(k,1500) * lu(k,1838) + lu(k,1849) = lu(k,1849) - lu(k,1501) * lu(k,1838) + lu(k,1851) = lu(k,1851) - lu(k,1502) * lu(k,1838) + lu(k,1852) = lu(k,1852) - lu(k,1503) * lu(k,1838) + lu(k,1853) = lu(k,1853) - lu(k,1504) * lu(k,1838) + lu(k,1855) = lu(k,1855) - lu(k,1505) * lu(k,1838) + lu(k,1857) = lu(k,1857) - lu(k,1506) * lu(k,1838) + lu(k,1884) = lu(k,1884) - lu(k,1495) * lu(k,1883) + lu(k,1887) = lu(k,1887) - lu(k,1496) * lu(k,1883) + lu(k,1888) = lu(k,1888) - lu(k,1497) * lu(k,1883) + lu(k,1889) = lu(k,1889) - lu(k,1498) * lu(k,1883) + lu(k,1890) = lu(k,1890) - lu(k,1499) * lu(k,1883) + lu(k,1891) = lu(k,1891) - lu(k,1500) * lu(k,1883) + lu(k,1894) = lu(k,1894) - lu(k,1501) * lu(k,1883) + lu(k,1896) = lu(k,1896) - lu(k,1502) * lu(k,1883) + lu(k,1897) = lu(k,1897) - lu(k,1503) * lu(k,1883) + lu(k,1898) = lu(k,1898) - lu(k,1504) * lu(k,1883) + lu(k,1900) = lu(k,1900) - lu(k,1505) * lu(k,1883) + lu(k,1902) = lu(k,1902) - lu(k,1506) * lu(k,1883) + lu(k,1910) = lu(k,1910) - lu(k,1495) * lu(k,1909) + lu(k,1913) = lu(k,1913) - lu(k,1496) * lu(k,1909) + lu(k,1914) = lu(k,1914) - lu(k,1497) * lu(k,1909) + lu(k,1915) = lu(k,1915) - lu(k,1498) * lu(k,1909) + lu(k,1916) = lu(k,1916) - lu(k,1499) * lu(k,1909) + lu(k,1917) = lu(k,1917) - lu(k,1500) * lu(k,1909) + lu(k,1920) = lu(k,1920) - lu(k,1501) * lu(k,1909) + lu(k,1922) = - lu(k,1502) * lu(k,1909) + lu(k,1923) = lu(k,1923) - lu(k,1503) * lu(k,1909) + lu(k,1924) = lu(k,1924) - lu(k,1504) * lu(k,1909) + lu(k,1926) = lu(k,1926) - lu(k,1505) * lu(k,1909) + lu(k,1928) = lu(k,1928) - lu(k,1506) * lu(k,1909) + lu(k,2049) = lu(k,2049) - lu(k,1495) * lu(k,2048) + lu(k,2052) = lu(k,2052) - lu(k,1496) * lu(k,2048) + lu(k,2053) = lu(k,2053) - lu(k,1497) * lu(k,2048) + lu(k,2054) = lu(k,2054) - lu(k,1498) * lu(k,2048) + lu(k,2055) = lu(k,2055) - lu(k,1499) * lu(k,2048) + lu(k,2056) = lu(k,2056) - lu(k,1500) * lu(k,2048) + lu(k,2059) = lu(k,2059) - lu(k,1501) * lu(k,2048) + lu(k,2061) = lu(k,2061) - lu(k,1502) * lu(k,2048) + lu(k,2062) = lu(k,2062) - lu(k,1503) * lu(k,2048) + lu(k,2063) = lu(k,2063) - lu(k,1504) * lu(k,2048) + lu(k,2065) = lu(k,2065) - lu(k,1505) * lu(k,2048) + lu(k,2067) = lu(k,2067) - lu(k,1506) * lu(k,2048) + lu(k,2141) = lu(k,2141) - lu(k,1495) * lu(k,2140) + lu(k,2143) = lu(k,2143) - lu(k,1496) * lu(k,2140) + lu(k,2144) = - lu(k,1497) * lu(k,2140) + lu(k,2145) = lu(k,2145) - lu(k,1498) * lu(k,2140) + lu(k,2146) = lu(k,2146) - lu(k,1499) * lu(k,2140) + lu(k,2147) = lu(k,2147) - lu(k,1500) * lu(k,2140) + lu(k,2150) = lu(k,2150) - lu(k,1501) * lu(k,2140) + lu(k,2152) = lu(k,2152) - lu(k,1502) * lu(k,2140) + lu(k,2153) = lu(k,2153) - lu(k,1503) * lu(k,2140) + lu(k,2154) = lu(k,2154) - lu(k,1504) * lu(k,2140) + lu(k,2156) = lu(k,2156) - lu(k,1505) * lu(k,2140) + lu(k,2158) = lu(k,2158) - lu(k,1506) * lu(k,2140) + lu(k,2161) = - lu(k,1495) * lu(k,2160) + lu(k,2164) = - lu(k,1496) * lu(k,2160) + lu(k,2165) = lu(k,2165) - lu(k,1497) * lu(k,2160) + lu(k,2166) = lu(k,2166) - lu(k,1498) * lu(k,2160) + lu(k,2167) = lu(k,2167) - lu(k,1499) * lu(k,2160) + lu(k,2168) = - lu(k,1500) * lu(k,2160) + lu(k,2171) = lu(k,2171) - lu(k,1501) * lu(k,2160) + lu(k,2173) = - lu(k,1502) * lu(k,2160) + lu(k,2174) = lu(k,2174) - lu(k,1503) * lu(k,2160) + lu(k,2175) = lu(k,2175) - lu(k,1504) * lu(k,2160) + lu(k,2177) = lu(k,2177) - lu(k,1505) * lu(k,2160) + lu(k,2179) = lu(k,2179) - lu(k,1506) * lu(k,2160) + lu(k,2329) = lu(k,2329) - lu(k,1495) * lu(k,2328) + lu(k,2332) = lu(k,2332) - lu(k,1496) * lu(k,2328) + lu(k,2333) = lu(k,2333) - lu(k,1497) * lu(k,2328) + lu(k,2334) = lu(k,2334) - lu(k,1498) * lu(k,2328) + lu(k,2335) = lu(k,2335) - lu(k,1499) * lu(k,2328) + lu(k,2336) = lu(k,2336) - lu(k,1500) * lu(k,2328) + lu(k,2339) = lu(k,2339) - lu(k,1501) * lu(k,2328) + lu(k,2341) = lu(k,2341) - lu(k,1502) * lu(k,2328) + lu(k,2342) = lu(k,2342) - lu(k,1503) * lu(k,2328) + lu(k,2343) = lu(k,2343) - lu(k,1504) * lu(k,2328) + lu(k,2345) = lu(k,2345) - lu(k,1505) * lu(k,2328) + lu(k,2347) = lu(k,2347) - lu(k,1506) * lu(k,2328) + lu(k,2352) = - lu(k,1495) * lu(k,2351) + lu(k,2355) = - lu(k,1496) * lu(k,2351) + lu(k,2356) = lu(k,2356) - lu(k,1497) * lu(k,2351) + lu(k,2357) = lu(k,2357) - lu(k,1498) * lu(k,2351) + lu(k,2358) = lu(k,2358) - lu(k,1499) * lu(k,2351) + lu(k,2359) = lu(k,2359) - lu(k,1500) * lu(k,2351) + lu(k,2362) = lu(k,2362) - lu(k,1501) * lu(k,2351) + lu(k,2364) = - lu(k,1502) * lu(k,2351) + lu(k,2365) = lu(k,2365) - lu(k,1503) * lu(k,2351) + lu(k,2366) = lu(k,2366) - lu(k,1504) * lu(k,2351) + lu(k,2368) = lu(k,2368) - lu(k,1505) * lu(k,2351) + lu(k,2370) = lu(k,2370) - lu(k,1506) * lu(k,2351) + lu(k,2431) = lu(k,2431) - lu(k,1495) * lu(k,2430) + lu(k,2434) = lu(k,2434) - lu(k,1496) * lu(k,2430) + lu(k,2435) = lu(k,2435) - lu(k,1497) * lu(k,2430) + lu(k,2436) = lu(k,2436) - lu(k,1498) * lu(k,2430) + lu(k,2437) = lu(k,2437) - lu(k,1499) * lu(k,2430) + lu(k,2438) = lu(k,2438) - lu(k,1500) * lu(k,2430) + lu(k,2441) = lu(k,2441) - lu(k,1501) * lu(k,2430) + lu(k,2443) = lu(k,2443) - lu(k,1502) * lu(k,2430) + lu(k,2444) = lu(k,2444) - lu(k,1503) * lu(k,2430) + lu(k,2445) = lu(k,2445) - lu(k,1504) * lu(k,2430) + lu(k,2447) = lu(k,2447) - lu(k,1505) * lu(k,2430) + lu(k,2449) = lu(k,2449) - lu(k,1506) * lu(k,2430) end do end subroutine lu_fac29 subroutine lu_fac30( avec_len, lu ) @@ -6977,916 +6762,699 @@ subroutine lu_fac30( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1542) = 1._r8 / lu(k,1542) - lu(k,1543) = lu(k,1543) * lu(k,1542) - lu(k,1544) = lu(k,1544) * lu(k,1542) - lu(k,1545) = lu(k,1545) * lu(k,1542) - lu(k,1546) = lu(k,1546) * lu(k,1542) - lu(k,1547) = lu(k,1547) * lu(k,1542) - lu(k,1548) = lu(k,1548) * lu(k,1542) - lu(k,1549) = lu(k,1549) * lu(k,1542) - lu(k,1550) = lu(k,1550) * lu(k,1542) - lu(k,1551) = lu(k,1551) * lu(k,1542) - lu(k,1552) = lu(k,1552) * lu(k,1542) - lu(k,1553) = lu(k,1553) * lu(k,1542) - lu(k,1554) = lu(k,1554) * lu(k,1542) - lu(k,1555) = lu(k,1555) * lu(k,1542) - lu(k,1565) = lu(k,1565) - lu(k,1543) * lu(k,1564) - lu(k,1566) = lu(k,1566) - lu(k,1544) * lu(k,1564) - lu(k,1568) = lu(k,1568) - lu(k,1545) * lu(k,1564) - lu(k,1569) = lu(k,1569) - lu(k,1546) * lu(k,1564) - lu(k,1570) = lu(k,1570) - lu(k,1547) * lu(k,1564) - lu(k,1571) = lu(k,1571) - lu(k,1548) * lu(k,1564) - lu(k,1572) = lu(k,1572) - lu(k,1549) * lu(k,1564) - lu(k,1574) = lu(k,1574) - lu(k,1550) * lu(k,1564) - lu(k,1575) = lu(k,1575) - lu(k,1551) * lu(k,1564) - lu(k,1576) = lu(k,1576) - lu(k,1552) * lu(k,1564) - lu(k,1577) = lu(k,1577) - lu(k,1553) * lu(k,1564) - lu(k,1578) = lu(k,1578) - lu(k,1554) * lu(k,1564) - lu(k,1579) = lu(k,1579) - lu(k,1555) * lu(k,1564) - lu(k,1591) = lu(k,1591) - lu(k,1543) * lu(k,1590) - lu(k,1592) = lu(k,1592) - lu(k,1544) * lu(k,1590) - lu(k,1594) = lu(k,1594) - lu(k,1545) * lu(k,1590) - lu(k,1595) = lu(k,1595) - lu(k,1546) * lu(k,1590) - lu(k,1596) = lu(k,1596) - lu(k,1547) * lu(k,1590) - lu(k,1597) = lu(k,1597) - lu(k,1548) * lu(k,1590) - lu(k,1598) = lu(k,1598) - lu(k,1549) * lu(k,1590) - lu(k,1600) = lu(k,1600) - lu(k,1550) * lu(k,1590) - lu(k,1601) = lu(k,1601) - lu(k,1551) * lu(k,1590) - lu(k,1602) = lu(k,1602) - lu(k,1552) * lu(k,1590) - lu(k,1603) = lu(k,1603) - lu(k,1553) * lu(k,1590) - lu(k,1604) = lu(k,1604) - lu(k,1554) * lu(k,1590) - lu(k,1606) = lu(k,1606) - lu(k,1555) * lu(k,1590) - lu(k,1650) = lu(k,1650) - lu(k,1543) * lu(k,1649) - lu(k,1651) = lu(k,1651) - lu(k,1544) * lu(k,1649) - lu(k,1653) = lu(k,1653) - lu(k,1545) * lu(k,1649) - lu(k,1654) = lu(k,1654) - lu(k,1546) * lu(k,1649) - lu(k,1655) = lu(k,1655) - lu(k,1547) * lu(k,1649) - lu(k,1656) = lu(k,1656) - lu(k,1548) * lu(k,1649) - lu(k,1657) = lu(k,1657) - lu(k,1549) * lu(k,1649) - lu(k,1659) = lu(k,1659) - lu(k,1550) * lu(k,1649) - lu(k,1660) = lu(k,1660) - lu(k,1551) * lu(k,1649) - lu(k,1661) = lu(k,1661) - lu(k,1552) * lu(k,1649) - lu(k,1662) = lu(k,1662) - lu(k,1553) * lu(k,1649) - lu(k,1664) = lu(k,1664) - lu(k,1554) * lu(k,1649) - lu(k,1666) = lu(k,1666) - lu(k,1555) * lu(k,1649) - lu(k,1815) = lu(k,1815) - lu(k,1543) * lu(k,1814) - lu(k,1816) = lu(k,1816) - lu(k,1544) * lu(k,1814) - lu(k,1818) = lu(k,1818) - lu(k,1545) * lu(k,1814) - lu(k,1819) = lu(k,1819) - lu(k,1546) * lu(k,1814) - lu(k,1820) = lu(k,1820) - lu(k,1547) * lu(k,1814) - lu(k,1821) = lu(k,1821) - lu(k,1548) * lu(k,1814) - lu(k,1822) = lu(k,1822) - lu(k,1549) * lu(k,1814) - lu(k,1824) = lu(k,1824) - lu(k,1550) * lu(k,1814) - lu(k,1825) = lu(k,1825) - lu(k,1551) * lu(k,1814) - lu(k,1826) = lu(k,1826) - lu(k,1552) * lu(k,1814) - lu(k,1827) = lu(k,1827) - lu(k,1553) * lu(k,1814) - lu(k,1829) = lu(k,1829) - lu(k,1554) * lu(k,1814) - lu(k,1831) = lu(k,1831) - lu(k,1555) * lu(k,1814) - lu(k,1910) = lu(k,1910) - lu(k,1543) * lu(k,1909) - lu(k,1911) = lu(k,1911) - lu(k,1544) * lu(k,1909) - lu(k,1913) = lu(k,1913) - lu(k,1545) * lu(k,1909) - lu(k,1914) = lu(k,1914) - lu(k,1546) * lu(k,1909) - lu(k,1915) = lu(k,1915) - lu(k,1547) * lu(k,1909) - lu(k,1916) = lu(k,1916) - lu(k,1548) * lu(k,1909) - lu(k,1917) = lu(k,1917) - lu(k,1549) * lu(k,1909) - lu(k,1919) = lu(k,1919) - lu(k,1550) * lu(k,1909) - lu(k,1920) = lu(k,1920) - lu(k,1551) * lu(k,1909) - lu(k,1921) = lu(k,1921) - lu(k,1552) * lu(k,1909) - lu(k,1922) = lu(k,1922) - lu(k,1553) * lu(k,1909) - lu(k,1924) = lu(k,1924) - lu(k,1554) * lu(k,1909) - lu(k,1926) = lu(k,1926) - lu(k,1555) * lu(k,1909) - lu(k,1955) = lu(k,1955) - lu(k,1543) * lu(k,1954) - lu(k,1956) = lu(k,1956) - lu(k,1544) * lu(k,1954) - lu(k,1958) = lu(k,1958) - lu(k,1545) * lu(k,1954) - lu(k,1959) = lu(k,1959) - lu(k,1546) * lu(k,1954) - lu(k,1960) = lu(k,1960) - lu(k,1547) * lu(k,1954) - lu(k,1961) = lu(k,1961) - lu(k,1548) * lu(k,1954) - lu(k,1962) = lu(k,1962) - lu(k,1549) * lu(k,1954) - lu(k,1964) = lu(k,1964) - lu(k,1550) * lu(k,1954) - lu(k,1965) = lu(k,1965) - lu(k,1551) * lu(k,1954) - lu(k,1966) = lu(k,1966) - lu(k,1552) * lu(k,1954) - lu(k,1967) = lu(k,1967) - lu(k,1553) * lu(k,1954) - lu(k,1969) = lu(k,1969) - lu(k,1554) * lu(k,1954) - lu(k,1971) = lu(k,1971) - lu(k,1555) * lu(k,1954) - lu(k,1981) = lu(k,1981) - lu(k,1543) * lu(k,1980) - lu(k,1982) = lu(k,1982) - lu(k,1544) * lu(k,1980) - lu(k,1984) = lu(k,1984) - lu(k,1545) * lu(k,1980) - lu(k,1985) = lu(k,1985) - lu(k,1546) * lu(k,1980) - lu(k,1986) = lu(k,1986) - lu(k,1547) * lu(k,1980) - lu(k,1987) = lu(k,1987) - lu(k,1548) * lu(k,1980) - lu(k,1988) = lu(k,1988) - lu(k,1549) * lu(k,1980) - lu(k,1990) = lu(k,1990) - lu(k,1550) * lu(k,1980) - lu(k,1991) = lu(k,1991) - lu(k,1551) * lu(k,1980) - lu(k,1992) = lu(k,1992) - lu(k,1552) * lu(k,1980) - lu(k,1993) = lu(k,1993) - lu(k,1553) * lu(k,1980) - lu(k,1995) = lu(k,1995) - lu(k,1554) * lu(k,1980) - lu(k,1997) = lu(k,1997) - lu(k,1555) * lu(k,1980) - lu(k,2024) = lu(k,2024) - lu(k,1543) * lu(k,2023) - lu(k,2025) = lu(k,2025) - lu(k,1544) * lu(k,2023) - lu(k,2027) = lu(k,2027) - lu(k,1545) * lu(k,2023) - lu(k,2028) = lu(k,2028) - lu(k,1546) * lu(k,2023) - lu(k,2029) = lu(k,2029) - lu(k,1547) * lu(k,2023) - lu(k,2030) = lu(k,2030) - lu(k,1548) * lu(k,2023) - lu(k,2031) = lu(k,2031) - lu(k,1549) * lu(k,2023) - lu(k,2033) = lu(k,2033) - lu(k,1550) * lu(k,2023) - lu(k,2034) = lu(k,2034) - lu(k,1551) * lu(k,2023) - lu(k,2035) = lu(k,2035) - lu(k,1552) * lu(k,2023) - lu(k,2036) = lu(k,2036) - lu(k,1553) * lu(k,2023) - lu(k,2038) = lu(k,2038) - lu(k,1554) * lu(k,2023) - lu(k,2040) = lu(k,2040) - lu(k,1555) * lu(k,2023) - lu(k,2047) = lu(k,2047) - lu(k,1543) * lu(k,2046) - lu(k,2048) = lu(k,2048) - lu(k,1544) * lu(k,2046) - lu(k,2050) = lu(k,2050) - lu(k,1545) * lu(k,2046) - lu(k,2051) = lu(k,2051) - lu(k,1546) * lu(k,2046) - lu(k,2052) = lu(k,2052) - lu(k,1547) * lu(k,2046) - lu(k,2053) = lu(k,2053) - lu(k,1548) * lu(k,2046) - lu(k,2054) = lu(k,2054) - lu(k,1549) * lu(k,2046) - lu(k,2056) = lu(k,2056) - lu(k,1550) * lu(k,2046) - lu(k,2057) = lu(k,2057) - lu(k,1551) * lu(k,2046) - lu(k,2058) = lu(k,2058) - lu(k,1552) * lu(k,2046) - lu(k,2059) = lu(k,2059) - lu(k,1553) * lu(k,2046) - lu(k,2061) = lu(k,2061) - lu(k,1554) * lu(k,2046) - lu(k,2063) = lu(k,2063) - lu(k,1555) * lu(k,2046) - lu(k,2090) = lu(k,2090) - lu(k,1543) * lu(k,2089) - lu(k,2091) = lu(k,2091) - lu(k,1544) * lu(k,2089) - lu(k,2093) = lu(k,2093) - lu(k,1545) * lu(k,2089) - lu(k,2094) = lu(k,2094) - lu(k,1546) * lu(k,2089) - lu(k,2095) = lu(k,2095) - lu(k,1547) * lu(k,2089) - lu(k,2096) = lu(k,2096) - lu(k,1548) * lu(k,2089) - lu(k,2097) = lu(k,2097) - lu(k,1549) * lu(k,2089) - lu(k,2099) = lu(k,2099) - lu(k,1550) * lu(k,2089) - lu(k,2100) = lu(k,2100) - lu(k,1551) * lu(k,2089) - lu(k,2101) = lu(k,2101) - lu(k,1552) * lu(k,2089) - lu(k,2102) = lu(k,2102) - lu(k,1553) * lu(k,2089) - lu(k,2104) = lu(k,2104) - lu(k,1554) * lu(k,2089) - lu(k,2106) = lu(k,2106) - lu(k,1555) * lu(k,2089) - lu(k,2111) = lu(k,2111) - lu(k,1543) * lu(k,2110) - lu(k,2112) = lu(k,2112) - lu(k,1544) * lu(k,2110) - lu(k,2114) = lu(k,2114) - lu(k,1545) * lu(k,2110) - lu(k,2115) = lu(k,2115) - lu(k,1546) * lu(k,2110) - lu(k,2116) = lu(k,2116) - lu(k,1547) * lu(k,2110) - lu(k,2117) = lu(k,2117) - lu(k,1548) * lu(k,2110) - lu(k,2118) = lu(k,2118) - lu(k,1549) * lu(k,2110) - lu(k,2120) = lu(k,2120) - lu(k,1550) * lu(k,2110) - lu(k,2121) = lu(k,2121) - lu(k,1551) * lu(k,2110) - lu(k,2122) = lu(k,2122) - lu(k,1552) * lu(k,2110) - lu(k,2123) = lu(k,2123) - lu(k,1553) * lu(k,2110) - lu(k,2125) = lu(k,2125) - lu(k,1554) * lu(k,2110) - lu(k,2127) = lu(k,2127) - lu(k,1555) * lu(k,2110) - lu(k,2157) = lu(k,2157) - lu(k,1543) * lu(k,2156) - lu(k,2158) = lu(k,2158) - lu(k,1544) * lu(k,2156) - lu(k,2160) = lu(k,2160) - lu(k,1545) * lu(k,2156) - lu(k,2161) = lu(k,2161) - lu(k,1546) * lu(k,2156) - lu(k,2162) = lu(k,2162) - lu(k,1547) * lu(k,2156) - lu(k,2163) = lu(k,2163) - lu(k,1548) * lu(k,2156) - lu(k,2164) = lu(k,2164) - lu(k,1549) * lu(k,2156) - lu(k,2166) = lu(k,2166) - lu(k,1550) * lu(k,2156) - lu(k,2167) = lu(k,2167) - lu(k,1551) * lu(k,2156) - lu(k,2168) = lu(k,2168) - lu(k,1552) * lu(k,2156) - lu(k,2169) = lu(k,2169) - lu(k,1553) * lu(k,2156) - lu(k,2171) = lu(k,2171) - lu(k,1554) * lu(k,2156) - lu(k,2173) = lu(k,2173) - lu(k,1555) * lu(k,2156) - lu(k,2221) = lu(k,2221) - lu(k,1543) * lu(k,2220) - lu(k,2222) = lu(k,2222) - lu(k,1544) * lu(k,2220) - lu(k,2224) = lu(k,2224) - lu(k,1545) * lu(k,2220) - lu(k,2225) = lu(k,2225) - lu(k,1546) * lu(k,2220) - lu(k,2226) = lu(k,2226) - lu(k,1547) * lu(k,2220) - lu(k,2227) = lu(k,2227) - lu(k,1548) * lu(k,2220) - lu(k,2228) = lu(k,2228) - lu(k,1549) * lu(k,2220) - lu(k,2230) = lu(k,2230) - lu(k,1550) * lu(k,2220) - lu(k,2231) = lu(k,2231) - lu(k,1551) * lu(k,2220) - lu(k,2232) = lu(k,2232) - lu(k,1552) * lu(k,2220) - lu(k,2233) = lu(k,2233) - lu(k,1553) * lu(k,2220) - lu(k,2235) = lu(k,2235) - lu(k,1554) * lu(k,2220) - lu(k,2237) = lu(k,2237) - lu(k,1555) * lu(k,2220) - lu(k,2246) = lu(k,2246) - lu(k,1543) * lu(k,2245) - lu(k,2247) = lu(k,2247) - lu(k,1544) * lu(k,2245) - lu(k,2249) = lu(k,2249) - lu(k,1545) * lu(k,2245) - lu(k,2250) = lu(k,2250) - lu(k,1546) * lu(k,2245) - lu(k,2251) = lu(k,2251) - lu(k,1547) * lu(k,2245) - lu(k,2252) = lu(k,2252) - lu(k,1548) * lu(k,2245) - lu(k,2253) = lu(k,2253) - lu(k,1549) * lu(k,2245) - lu(k,2255) = lu(k,2255) - lu(k,1550) * lu(k,2245) - lu(k,2256) = lu(k,2256) - lu(k,1551) * lu(k,2245) - lu(k,2257) = lu(k,2257) - lu(k,1552) * lu(k,2245) - lu(k,2258) = lu(k,2258) - lu(k,1553) * lu(k,2245) - lu(k,2260) = lu(k,2260) - lu(k,1554) * lu(k,2245) - lu(k,2262) = lu(k,2262) - lu(k,1555) * lu(k,2245) - lu(k,2354) = lu(k,2354) - lu(k,1543) * lu(k,2353) - lu(k,2355) = lu(k,2355) - lu(k,1544) * lu(k,2353) - lu(k,2357) = lu(k,2357) - lu(k,1545) * lu(k,2353) - lu(k,2358) = lu(k,2358) - lu(k,1546) * lu(k,2353) - lu(k,2359) = lu(k,2359) - lu(k,1547) * lu(k,2353) - lu(k,2360) = lu(k,2360) - lu(k,1548) * lu(k,2353) - lu(k,2361) = lu(k,2361) - lu(k,1549) * lu(k,2353) + lu(k,1510) = 1._r8 / lu(k,1510) + lu(k,1511) = lu(k,1511) * lu(k,1510) + lu(k,1512) = lu(k,1512) * lu(k,1510) + lu(k,1513) = lu(k,1513) * lu(k,1510) + lu(k,1514) = lu(k,1514) * lu(k,1510) + lu(k,1515) = lu(k,1515) * lu(k,1510) + lu(k,1516) = lu(k,1516) * lu(k,1510) + lu(k,1517) = lu(k,1517) * lu(k,1510) + lu(k,1518) = lu(k,1518) * lu(k,1510) + lu(k,1519) = lu(k,1519) * lu(k,1510) + lu(k,1520) = lu(k,1520) * lu(k,1510) + lu(k,1521) = lu(k,1521) * lu(k,1510) + lu(k,1522) = lu(k,1522) * lu(k,1510) + lu(k,1541) = lu(k,1541) - lu(k,1511) * lu(k,1540) + lu(k,1542) = lu(k,1542) - lu(k,1512) * lu(k,1540) + lu(k,1543) = lu(k,1543) - lu(k,1513) * lu(k,1540) + lu(k,1544) = lu(k,1544) - lu(k,1514) * lu(k,1540) + lu(k,1546) = lu(k,1546) - lu(k,1515) * lu(k,1540) + lu(k,1547) = lu(k,1547) - lu(k,1516) * lu(k,1540) + lu(k,1548) = lu(k,1548) - lu(k,1517) * lu(k,1540) + lu(k,1549) = lu(k,1549) - lu(k,1518) * lu(k,1540) + lu(k,1550) = lu(k,1550) - lu(k,1519) * lu(k,1540) + lu(k,1552) = lu(k,1552) - lu(k,1520) * lu(k,1540) + lu(k,1553) = lu(k,1553) - lu(k,1521) * lu(k,1540) + lu(k,1554) = lu(k,1554) - lu(k,1522) * lu(k,1540) + lu(k,1562) = lu(k,1562) - lu(k,1511) * lu(k,1561) + lu(k,1564) = lu(k,1564) - lu(k,1512) * lu(k,1561) + lu(k,1565) = lu(k,1565) - lu(k,1513) * lu(k,1561) + lu(k,1566) = lu(k,1566) - lu(k,1514) * lu(k,1561) + lu(k,1568) = lu(k,1568) - lu(k,1515) * lu(k,1561) + lu(k,1569) = lu(k,1569) - lu(k,1516) * lu(k,1561) + lu(k,1570) = lu(k,1570) - lu(k,1517) * lu(k,1561) + lu(k,1571) = lu(k,1571) - lu(k,1518) * lu(k,1561) + lu(k,1572) = - lu(k,1519) * lu(k,1561) + lu(k,1574) = lu(k,1574) - lu(k,1520) * lu(k,1561) + lu(k,1576) = lu(k,1576) - lu(k,1521) * lu(k,1561) + lu(k,1579) = lu(k,1579) - lu(k,1522) * lu(k,1561) + lu(k,1588) = lu(k,1588) - lu(k,1511) * lu(k,1587) + lu(k,1589) = lu(k,1589) - lu(k,1512) * lu(k,1587) + lu(k,1590) = lu(k,1590) - lu(k,1513) * lu(k,1587) + lu(k,1591) = lu(k,1591) - lu(k,1514) * lu(k,1587) + lu(k,1593) = lu(k,1593) - lu(k,1515) * lu(k,1587) + lu(k,1594) = - lu(k,1516) * lu(k,1587) + lu(k,1595) = lu(k,1595) - lu(k,1517) * lu(k,1587) + lu(k,1596) = lu(k,1596) - lu(k,1518) * lu(k,1587) + lu(k,1597) = lu(k,1597) - lu(k,1519) * lu(k,1587) + lu(k,1599) = lu(k,1599) - lu(k,1520) * lu(k,1587) + lu(k,1601) = lu(k,1601) - lu(k,1521) * lu(k,1587) + lu(k,1603) = lu(k,1603) - lu(k,1522) * lu(k,1587) + lu(k,1629) = lu(k,1629) - lu(k,1511) * lu(k,1628) + lu(k,1631) = lu(k,1631) - lu(k,1512) * lu(k,1628) + lu(k,1632) = lu(k,1632) - lu(k,1513) * lu(k,1628) + lu(k,1633) = lu(k,1633) - lu(k,1514) * lu(k,1628) + lu(k,1635) = lu(k,1635) - lu(k,1515) * lu(k,1628) + lu(k,1636) = lu(k,1636) - lu(k,1516) * lu(k,1628) + lu(k,1637) = lu(k,1637) - lu(k,1517) * lu(k,1628) + lu(k,1638) = lu(k,1638) - lu(k,1518) * lu(k,1628) + lu(k,1639) = lu(k,1639) - lu(k,1519) * lu(k,1628) + lu(k,1641) = lu(k,1641) - lu(k,1520) * lu(k,1628) + lu(k,1643) = lu(k,1643) - lu(k,1521) * lu(k,1628) + lu(k,1646) = lu(k,1646) - lu(k,1522) * lu(k,1628) + lu(k,1794) = lu(k,1794) - lu(k,1511) * lu(k,1793) + lu(k,1796) = lu(k,1796) - lu(k,1512) * lu(k,1793) + lu(k,1797) = lu(k,1797) - lu(k,1513) * lu(k,1793) + lu(k,1798) = lu(k,1798) - lu(k,1514) * lu(k,1793) + lu(k,1800) = lu(k,1800) - lu(k,1515) * lu(k,1793) + lu(k,1801) = lu(k,1801) - lu(k,1516) * lu(k,1793) + lu(k,1802) = lu(k,1802) - lu(k,1517) * lu(k,1793) + lu(k,1803) = lu(k,1803) - lu(k,1518) * lu(k,1793) + lu(k,1804) = lu(k,1804) - lu(k,1519) * lu(k,1793) + lu(k,1806) = lu(k,1806) - lu(k,1520) * lu(k,1793) + lu(k,1808) = lu(k,1808) - lu(k,1521) * lu(k,1793) + lu(k,1811) = lu(k,1811) - lu(k,1522) * lu(k,1793) + lu(k,1840) = lu(k,1840) - lu(k,1511) * lu(k,1839) + lu(k,1842) = lu(k,1842) - lu(k,1512) * lu(k,1839) + lu(k,1843) = lu(k,1843) - lu(k,1513) * lu(k,1839) + lu(k,1844) = lu(k,1844) - lu(k,1514) * lu(k,1839) + lu(k,1846) = lu(k,1846) - lu(k,1515) * lu(k,1839) + lu(k,1847) = lu(k,1847) - lu(k,1516) * lu(k,1839) + lu(k,1848) = lu(k,1848) - lu(k,1517) * lu(k,1839) + lu(k,1849) = lu(k,1849) - lu(k,1518) * lu(k,1839) + lu(k,1850) = lu(k,1850) - lu(k,1519) * lu(k,1839) + lu(k,1852) = lu(k,1852) - lu(k,1520) * lu(k,1839) + lu(k,1854) = lu(k,1854) - lu(k,1521) * lu(k,1839) + lu(k,1857) = lu(k,1857) - lu(k,1522) * lu(k,1839) + lu(k,1885) = lu(k,1885) - lu(k,1511) * lu(k,1884) + lu(k,1887) = lu(k,1887) - lu(k,1512) * lu(k,1884) + lu(k,1888) = lu(k,1888) - lu(k,1513) * lu(k,1884) + lu(k,1889) = lu(k,1889) - lu(k,1514) * lu(k,1884) + lu(k,1891) = lu(k,1891) - lu(k,1515) * lu(k,1884) + lu(k,1892) = lu(k,1892) - lu(k,1516) * lu(k,1884) + lu(k,1893) = lu(k,1893) - lu(k,1517) * lu(k,1884) + lu(k,1894) = lu(k,1894) - lu(k,1518) * lu(k,1884) + lu(k,1895) = lu(k,1895) - lu(k,1519) * lu(k,1884) + lu(k,1897) = lu(k,1897) - lu(k,1520) * lu(k,1884) + lu(k,1899) = lu(k,1899) - lu(k,1521) * lu(k,1884) + lu(k,1902) = lu(k,1902) - lu(k,1522) * lu(k,1884) + lu(k,1911) = lu(k,1911) - lu(k,1511) * lu(k,1910) + lu(k,1913) = lu(k,1913) - lu(k,1512) * lu(k,1910) + lu(k,1914) = lu(k,1914) - lu(k,1513) * lu(k,1910) + lu(k,1915) = lu(k,1915) - lu(k,1514) * lu(k,1910) + lu(k,1917) = lu(k,1917) - lu(k,1515) * lu(k,1910) + lu(k,1918) = lu(k,1918) - lu(k,1516) * lu(k,1910) + lu(k,1919) = lu(k,1919) - lu(k,1517) * lu(k,1910) + lu(k,1920) = lu(k,1920) - lu(k,1518) * lu(k,1910) + lu(k,1921) = - lu(k,1519) * lu(k,1910) + lu(k,1923) = lu(k,1923) - lu(k,1520) * lu(k,1910) + lu(k,1925) = lu(k,1925) - lu(k,1521) * lu(k,1910) + lu(k,1928) = lu(k,1928) - lu(k,1522) * lu(k,1910) + lu(k,2007) = lu(k,2007) - lu(k,1511) * lu(k,2006) + lu(k,2009) = lu(k,2009) - lu(k,1512) * lu(k,2006) + lu(k,2010) = lu(k,2010) - lu(k,1513) * lu(k,2006) + lu(k,2011) = lu(k,2011) - lu(k,1514) * lu(k,2006) + lu(k,2013) = lu(k,2013) - lu(k,1515) * lu(k,2006) + lu(k,2014) = lu(k,2014) - lu(k,1516) * lu(k,2006) + lu(k,2015) = lu(k,2015) - lu(k,1517) * lu(k,2006) + lu(k,2016) = lu(k,2016) - lu(k,1518) * lu(k,2006) + lu(k,2017) = lu(k,2017) - lu(k,1519) * lu(k,2006) + lu(k,2019) = lu(k,2019) - lu(k,1520) * lu(k,2006) + lu(k,2021) = lu(k,2021) - lu(k,1521) * lu(k,2006) + lu(k,2024) = lu(k,2024) - lu(k,1522) * lu(k,2006) + lu(k,2050) = lu(k,2050) - lu(k,1511) * lu(k,2049) + lu(k,2052) = lu(k,2052) - lu(k,1512) * lu(k,2049) + lu(k,2053) = lu(k,2053) - lu(k,1513) * lu(k,2049) + lu(k,2054) = lu(k,2054) - lu(k,1514) * lu(k,2049) + lu(k,2056) = lu(k,2056) - lu(k,1515) * lu(k,2049) + lu(k,2057) = lu(k,2057) - lu(k,1516) * lu(k,2049) + lu(k,2058) = lu(k,2058) - lu(k,1517) * lu(k,2049) + lu(k,2059) = lu(k,2059) - lu(k,1518) * lu(k,2049) + lu(k,2060) = lu(k,2060) - lu(k,1519) * lu(k,2049) + lu(k,2062) = lu(k,2062) - lu(k,1520) * lu(k,2049) + lu(k,2064) = lu(k,2064) - lu(k,1521) * lu(k,2049) + lu(k,2067) = lu(k,2067) - lu(k,1522) * lu(k,2049) + lu(k,2114) = lu(k,2114) - lu(k,1511) * lu(k,2113) + lu(k,2116) = lu(k,2116) - lu(k,1512) * lu(k,2113) + lu(k,2117) = lu(k,2117) - lu(k,1513) * lu(k,2113) + lu(k,2118) = lu(k,2118) - lu(k,1514) * lu(k,2113) + lu(k,2120) = lu(k,2120) - lu(k,1515) * lu(k,2113) + lu(k,2121) = lu(k,2121) - lu(k,1516) * lu(k,2113) + lu(k,2122) = lu(k,2122) - lu(k,1517) * lu(k,2113) + lu(k,2123) = lu(k,2123) - lu(k,1518) * lu(k,2113) + lu(k,2124) = lu(k,2124) - lu(k,1519) * lu(k,2113) + lu(k,2126) = lu(k,2126) - lu(k,1520) * lu(k,2113) + lu(k,2128) = lu(k,2128) - lu(k,1521) * lu(k,2113) + lu(k,2131) = lu(k,2131) - lu(k,1522) * lu(k,2113) + lu(k,2142) = lu(k,2142) - lu(k,1511) * lu(k,2141) + lu(k,2143) = lu(k,2143) - lu(k,1512) * lu(k,2141) + lu(k,2144) = lu(k,2144) - lu(k,1513) * lu(k,2141) + lu(k,2145) = lu(k,2145) - lu(k,1514) * lu(k,2141) + lu(k,2147) = lu(k,2147) - lu(k,1515) * lu(k,2141) + lu(k,2148) = lu(k,2148) - lu(k,1516) * lu(k,2141) + lu(k,2149) = lu(k,2149) - lu(k,1517) * lu(k,2141) + lu(k,2150) = lu(k,2150) - lu(k,1518) * lu(k,2141) + lu(k,2151) = lu(k,2151) - lu(k,1519) * lu(k,2141) + lu(k,2153) = lu(k,2153) - lu(k,1520) * lu(k,2141) + lu(k,2155) = lu(k,2155) - lu(k,1521) * lu(k,2141) + lu(k,2158) = lu(k,2158) - lu(k,1522) * lu(k,2141) + lu(k,2162) = lu(k,2162) - lu(k,1511) * lu(k,2161) + lu(k,2164) = lu(k,2164) - lu(k,1512) * lu(k,2161) + lu(k,2165) = lu(k,2165) - lu(k,1513) * lu(k,2161) + lu(k,2166) = lu(k,2166) - lu(k,1514) * lu(k,2161) + lu(k,2168) = lu(k,2168) - lu(k,1515) * lu(k,2161) + lu(k,2169) = - lu(k,1516) * lu(k,2161) + lu(k,2170) = - lu(k,1517) * lu(k,2161) + lu(k,2171) = lu(k,2171) - lu(k,1518) * lu(k,2161) + lu(k,2172) = lu(k,2172) - lu(k,1519) * lu(k,2161) + lu(k,2174) = lu(k,2174) - lu(k,1520) * lu(k,2161) + lu(k,2176) = lu(k,2176) - lu(k,1521) * lu(k,2161) + lu(k,2179) = lu(k,2179) - lu(k,1522) * lu(k,2161) + lu(k,2222) = lu(k,2222) - lu(k,1511) * lu(k,2221) + lu(k,2224) = lu(k,2224) - lu(k,1512) * lu(k,2221) + lu(k,2225) = lu(k,2225) - lu(k,1513) * lu(k,2221) + lu(k,2226) = lu(k,2226) - lu(k,1514) * lu(k,2221) + lu(k,2228) = lu(k,2228) - lu(k,1515) * lu(k,2221) + lu(k,2229) = lu(k,2229) - lu(k,1516) * lu(k,2221) + lu(k,2230) = lu(k,2230) - lu(k,1517) * lu(k,2221) + lu(k,2231) = lu(k,2231) - lu(k,1518) * lu(k,2221) + lu(k,2232) = lu(k,2232) - lu(k,1519) * lu(k,2221) + lu(k,2234) = lu(k,2234) - lu(k,1520) * lu(k,2221) + lu(k,2236) = lu(k,2236) - lu(k,1521) * lu(k,2221) + lu(k,2239) = lu(k,2239) - lu(k,1522) * lu(k,2221) + lu(k,2330) = lu(k,2330) - lu(k,1511) * lu(k,2329) + lu(k,2332) = lu(k,2332) - lu(k,1512) * lu(k,2329) + lu(k,2333) = lu(k,2333) - lu(k,1513) * lu(k,2329) + lu(k,2334) = lu(k,2334) - lu(k,1514) * lu(k,2329) + lu(k,2336) = lu(k,2336) - lu(k,1515) * lu(k,2329) + lu(k,2337) = lu(k,2337) - lu(k,1516) * lu(k,2329) + lu(k,2338) = lu(k,2338) - lu(k,1517) * lu(k,2329) + lu(k,2339) = lu(k,2339) - lu(k,1518) * lu(k,2329) + lu(k,2340) = lu(k,2340) - lu(k,1519) * lu(k,2329) + lu(k,2342) = lu(k,2342) - lu(k,1520) * lu(k,2329) + lu(k,2344) = lu(k,2344) - lu(k,1521) * lu(k,2329) + lu(k,2347) = lu(k,2347) - lu(k,1522) * lu(k,2329) + lu(k,2353) = - lu(k,1511) * lu(k,2352) + lu(k,2355) = lu(k,2355) - lu(k,1512) * lu(k,2352) + lu(k,2356) = lu(k,2356) - lu(k,1513) * lu(k,2352) + lu(k,2357) = lu(k,2357) - lu(k,1514) * lu(k,2352) + lu(k,2359) = lu(k,2359) - lu(k,1515) * lu(k,2352) + lu(k,2360) = - lu(k,1516) * lu(k,2352) + lu(k,2361) = - lu(k,1517) * lu(k,2352) + lu(k,2362) = lu(k,2362) - lu(k,1518) * lu(k,2352) + lu(k,2363) = - lu(k,1519) * lu(k,2352) + lu(k,2365) = lu(k,2365) - lu(k,1520) * lu(k,2352) + lu(k,2367) = - lu(k,1521) * lu(k,2352) + lu(k,2370) = lu(k,2370) - lu(k,1522) * lu(k,2352) + lu(k,2432) = lu(k,2432) - lu(k,1511) * lu(k,2431) + lu(k,2434) = lu(k,2434) - lu(k,1512) * lu(k,2431) + lu(k,2435) = lu(k,2435) - lu(k,1513) * lu(k,2431) + lu(k,2436) = lu(k,2436) - lu(k,1514) * lu(k,2431) + lu(k,2438) = lu(k,2438) - lu(k,1515) * lu(k,2431) + lu(k,2439) = - lu(k,1516) * lu(k,2431) + lu(k,2440) = lu(k,2440) - lu(k,1517) * lu(k,2431) + lu(k,2441) = lu(k,2441) - lu(k,1518) * lu(k,2431) + lu(k,2442) = lu(k,2442) - lu(k,1519) * lu(k,2431) + lu(k,2444) = lu(k,2444) - lu(k,1520) * lu(k,2431) + lu(k,2446) = lu(k,2446) - lu(k,1521) * lu(k,2431) + lu(k,2449) = lu(k,2449) - lu(k,1522) * lu(k,2431) + lu(k,1541) = 1._r8 / lu(k,1541) + lu(k,1542) = lu(k,1542) * lu(k,1541) + lu(k,1543) = lu(k,1543) * lu(k,1541) + lu(k,1544) = lu(k,1544) * lu(k,1541) + lu(k,1545) = lu(k,1545) * lu(k,1541) + lu(k,1546) = lu(k,1546) * lu(k,1541) + lu(k,1547) = lu(k,1547) * lu(k,1541) + lu(k,1548) = lu(k,1548) * lu(k,1541) + lu(k,1549) = lu(k,1549) * lu(k,1541) + lu(k,1550) = lu(k,1550) * lu(k,1541) + lu(k,1551) = lu(k,1551) * lu(k,1541) + lu(k,1552) = lu(k,1552) * lu(k,1541) + lu(k,1553) = lu(k,1553) * lu(k,1541) + lu(k,1554) = lu(k,1554) * lu(k,1541) + lu(k,1564) = lu(k,1564) - lu(k,1542) * lu(k,1562) + lu(k,1565) = lu(k,1565) - lu(k,1543) * lu(k,1562) + lu(k,1566) = lu(k,1566) - lu(k,1544) * lu(k,1562) + lu(k,1567) = lu(k,1567) - lu(k,1545) * lu(k,1562) + lu(k,1568) = lu(k,1568) - lu(k,1546) * lu(k,1562) + lu(k,1569) = lu(k,1569) - lu(k,1547) * lu(k,1562) + lu(k,1570) = lu(k,1570) - lu(k,1548) * lu(k,1562) + lu(k,1571) = lu(k,1571) - lu(k,1549) * lu(k,1562) + lu(k,1572) = lu(k,1572) - lu(k,1550) * lu(k,1562) + lu(k,1573) = lu(k,1573) - lu(k,1551) * lu(k,1562) + lu(k,1574) = lu(k,1574) - lu(k,1552) * lu(k,1562) + lu(k,1576) = lu(k,1576) - lu(k,1553) * lu(k,1562) + lu(k,1579) = lu(k,1579) - lu(k,1554) * lu(k,1562) + lu(k,1589) = lu(k,1589) - lu(k,1542) * lu(k,1588) + lu(k,1590) = lu(k,1590) - lu(k,1543) * lu(k,1588) + lu(k,1591) = lu(k,1591) - lu(k,1544) * lu(k,1588) + lu(k,1592) = lu(k,1592) - lu(k,1545) * lu(k,1588) + lu(k,1593) = lu(k,1593) - lu(k,1546) * lu(k,1588) + lu(k,1594) = lu(k,1594) - lu(k,1547) * lu(k,1588) + lu(k,1595) = lu(k,1595) - lu(k,1548) * lu(k,1588) + lu(k,1596) = lu(k,1596) - lu(k,1549) * lu(k,1588) + lu(k,1597) = lu(k,1597) - lu(k,1550) * lu(k,1588) + lu(k,1598) = lu(k,1598) - lu(k,1551) * lu(k,1588) + lu(k,1599) = lu(k,1599) - lu(k,1552) * lu(k,1588) + lu(k,1601) = lu(k,1601) - lu(k,1553) * lu(k,1588) + lu(k,1603) = lu(k,1603) - lu(k,1554) * lu(k,1588) + lu(k,1631) = lu(k,1631) - lu(k,1542) * lu(k,1629) + lu(k,1632) = lu(k,1632) - lu(k,1543) * lu(k,1629) + lu(k,1633) = lu(k,1633) - lu(k,1544) * lu(k,1629) + lu(k,1634) = lu(k,1634) - lu(k,1545) * lu(k,1629) + lu(k,1635) = lu(k,1635) - lu(k,1546) * lu(k,1629) + lu(k,1636) = lu(k,1636) - lu(k,1547) * lu(k,1629) + lu(k,1637) = lu(k,1637) - lu(k,1548) * lu(k,1629) + lu(k,1638) = lu(k,1638) - lu(k,1549) * lu(k,1629) + lu(k,1639) = lu(k,1639) - lu(k,1550) * lu(k,1629) + lu(k,1640) = lu(k,1640) - lu(k,1551) * lu(k,1629) + lu(k,1641) = lu(k,1641) - lu(k,1552) * lu(k,1629) + lu(k,1643) = lu(k,1643) - lu(k,1553) * lu(k,1629) + lu(k,1646) = lu(k,1646) - lu(k,1554) * lu(k,1629) + lu(k,1796) = lu(k,1796) - lu(k,1542) * lu(k,1794) + lu(k,1797) = lu(k,1797) - lu(k,1543) * lu(k,1794) + lu(k,1798) = lu(k,1798) - lu(k,1544) * lu(k,1794) + lu(k,1799) = lu(k,1799) - lu(k,1545) * lu(k,1794) + lu(k,1800) = lu(k,1800) - lu(k,1546) * lu(k,1794) + lu(k,1801) = lu(k,1801) - lu(k,1547) * lu(k,1794) + lu(k,1802) = lu(k,1802) - lu(k,1548) * lu(k,1794) + lu(k,1803) = lu(k,1803) - lu(k,1549) * lu(k,1794) + lu(k,1804) = lu(k,1804) - lu(k,1550) * lu(k,1794) + lu(k,1805) = lu(k,1805) - lu(k,1551) * lu(k,1794) + lu(k,1806) = lu(k,1806) - lu(k,1552) * lu(k,1794) + lu(k,1808) = lu(k,1808) - lu(k,1553) * lu(k,1794) + lu(k,1811) = lu(k,1811) - lu(k,1554) * lu(k,1794) + lu(k,1842) = lu(k,1842) - lu(k,1542) * lu(k,1840) + lu(k,1843) = lu(k,1843) - lu(k,1543) * lu(k,1840) + lu(k,1844) = lu(k,1844) - lu(k,1544) * lu(k,1840) + lu(k,1845) = lu(k,1845) - lu(k,1545) * lu(k,1840) + lu(k,1846) = lu(k,1846) - lu(k,1546) * lu(k,1840) + lu(k,1847) = lu(k,1847) - lu(k,1547) * lu(k,1840) + lu(k,1848) = lu(k,1848) - lu(k,1548) * lu(k,1840) + lu(k,1849) = lu(k,1849) - lu(k,1549) * lu(k,1840) + lu(k,1850) = lu(k,1850) - lu(k,1550) * lu(k,1840) + lu(k,1851) = lu(k,1851) - lu(k,1551) * lu(k,1840) + lu(k,1852) = lu(k,1852) - lu(k,1552) * lu(k,1840) + lu(k,1854) = lu(k,1854) - lu(k,1553) * lu(k,1840) + lu(k,1857) = lu(k,1857) - lu(k,1554) * lu(k,1840) + lu(k,1887) = lu(k,1887) - lu(k,1542) * lu(k,1885) + lu(k,1888) = lu(k,1888) - lu(k,1543) * lu(k,1885) + lu(k,1889) = lu(k,1889) - lu(k,1544) * lu(k,1885) + lu(k,1890) = lu(k,1890) - lu(k,1545) * lu(k,1885) + lu(k,1891) = lu(k,1891) - lu(k,1546) * lu(k,1885) + lu(k,1892) = lu(k,1892) - lu(k,1547) * lu(k,1885) + lu(k,1893) = lu(k,1893) - lu(k,1548) * lu(k,1885) + lu(k,1894) = lu(k,1894) - lu(k,1549) * lu(k,1885) + lu(k,1895) = lu(k,1895) - lu(k,1550) * lu(k,1885) + lu(k,1896) = lu(k,1896) - lu(k,1551) * lu(k,1885) + lu(k,1897) = lu(k,1897) - lu(k,1552) * lu(k,1885) + lu(k,1899) = lu(k,1899) - lu(k,1553) * lu(k,1885) + lu(k,1902) = lu(k,1902) - lu(k,1554) * lu(k,1885) + lu(k,1913) = lu(k,1913) - lu(k,1542) * lu(k,1911) + lu(k,1914) = lu(k,1914) - lu(k,1543) * lu(k,1911) + lu(k,1915) = lu(k,1915) - lu(k,1544) * lu(k,1911) + lu(k,1916) = lu(k,1916) - lu(k,1545) * lu(k,1911) + lu(k,1917) = lu(k,1917) - lu(k,1546) * lu(k,1911) + lu(k,1918) = lu(k,1918) - lu(k,1547) * lu(k,1911) + lu(k,1919) = lu(k,1919) - lu(k,1548) * lu(k,1911) + lu(k,1920) = lu(k,1920) - lu(k,1549) * lu(k,1911) + lu(k,1921) = lu(k,1921) - lu(k,1550) * lu(k,1911) + lu(k,1922) = lu(k,1922) - lu(k,1551) * lu(k,1911) + lu(k,1923) = lu(k,1923) - lu(k,1552) * lu(k,1911) + lu(k,1925) = lu(k,1925) - lu(k,1553) * lu(k,1911) + lu(k,1928) = lu(k,1928) - lu(k,1554) * lu(k,1911) + lu(k,2009) = lu(k,2009) - lu(k,1542) * lu(k,2007) + lu(k,2010) = lu(k,2010) - lu(k,1543) * lu(k,2007) + lu(k,2011) = lu(k,2011) - lu(k,1544) * lu(k,2007) + lu(k,2012) = lu(k,2012) - lu(k,1545) * lu(k,2007) + lu(k,2013) = lu(k,2013) - lu(k,1546) * lu(k,2007) + lu(k,2014) = lu(k,2014) - lu(k,1547) * lu(k,2007) + lu(k,2015) = lu(k,2015) - lu(k,1548) * lu(k,2007) + lu(k,2016) = lu(k,2016) - lu(k,1549) * lu(k,2007) + lu(k,2017) = lu(k,2017) - lu(k,1550) * lu(k,2007) + lu(k,2018) = lu(k,2018) - lu(k,1551) * lu(k,2007) + lu(k,2019) = lu(k,2019) - lu(k,1552) * lu(k,2007) + lu(k,2021) = lu(k,2021) - lu(k,1553) * lu(k,2007) + lu(k,2024) = lu(k,2024) - lu(k,1554) * lu(k,2007) + lu(k,2052) = lu(k,2052) - lu(k,1542) * lu(k,2050) + lu(k,2053) = lu(k,2053) - lu(k,1543) * lu(k,2050) + lu(k,2054) = lu(k,2054) - lu(k,1544) * lu(k,2050) + lu(k,2055) = lu(k,2055) - lu(k,1545) * lu(k,2050) + lu(k,2056) = lu(k,2056) - lu(k,1546) * lu(k,2050) + lu(k,2057) = lu(k,2057) - lu(k,1547) * lu(k,2050) + lu(k,2058) = lu(k,2058) - lu(k,1548) * lu(k,2050) + lu(k,2059) = lu(k,2059) - lu(k,1549) * lu(k,2050) + lu(k,2060) = lu(k,2060) - lu(k,1550) * lu(k,2050) + lu(k,2061) = lu(k,2061) - lu(k,1551) * lu(k,2050) + lu(k,2062) = lu(k,2062) - lu(k,1552) * lu(k,2050) + lu(k,2064) = lu(k,2064) - lu(k,1553) * lu(k,2050) + lu(k,2067) = lu(k,2067) - lu(k,1554) * lu(k,2050) + lu(k,2116) = lu(k,2116) - lu(k,1542) * lu(k,2114) + lu(k,2117) = lu(k,2117) - lu(k,1543) * lu(k,2114) + lu(k,2118) = lu(k,2118) - lu(k,1544) * lu(k,2114) + lu(k,2119) = lu(k,2119) - lu(k,1545) * lu(k,2114) + lu(k,2120) = lu(k,2120) - lu(k,1546) * lu(k,2114) + lu(k,2121) = lu(k,2121) - lu(k,1547) * lu(k,2114) + lu(k,2122) = lu(k,2122) - lu(k,1548) * lu(k,2114) + lu(k,2123) = lu(k,2123) - lu(k,1549) * lu(k,2114) + lu(k,2124) = lu(k,2124) - lu(k,1550) * lu(k,2114) + lu(k,2125) = lu(k,2125) - lu(k,1551) * lu(k,2114) + lu(k,2126) = lu(k,2126) - lu(k,1552) * lu(k,2114) + lu(k,2128) = lu(k,2128) - lu(k,1553) * lu(k,2114) + lu(k,2131) = lu(k,2131) - lu(k,1554) * lu(k,2114) + lu(k,2143) = lu(k,2143) - lu(k,1542) * lu(k,2142) + lu(k,2144) = lu(k,2144) - lu(k,1543) * lu(k,2142) + lu(k,2145) = lu(k,2145) - lu(k,1544) * lu(k,2142) + lu(k,2146) = lu(k,2146) - lu(k,1545) * lu(k,2142) + lu(k,2147) = lu(k,2147) - lu(k,1546) * lu(k,2142) + lu(k,2148) = lu(k,2148) - lu(k,1547) * lu(k,2142) + lu(k,2149) = lu(k,2149) - lu(k,1548) * lu(k,2142) + lu(k,2150) = lu(k,2150) - lu(k,1549) * lu(k,2142) + lu(k,2151) = lu(k,2151) - lu(k,1550) * lu(k,2142) + lu(k,2152) = lu(k,2152) - lu(k,1551) * lu(k,2142) + lu(k,2153) = lu(k,2153) - lu(k,1552) * lu(k,2142) + lu(k,2155) = lu(k,2155) - lu(k,1553) * lu(k,2142) + lu(k,2158) = lu(k,2158) - lu(k,1554) * lu(k,2142) + lu(k,2164) = lu(k,2164) - lu(k,1542) * lu(k,2162) + lu(k,2165) = lu(k,2165) - lu(k,1543) * lu(k,2162) + lu(k,2166) = lu(k,2166) - lu(k,1544) * lu(k,2162) + lu(k,2167) = lu(k,2167) - lu(k,1545) * lu(k,2162) + lu(k,2168) = lu(k,2168) - lu(k,1546) * lu(k,2162) + lu(k,2169) = lu(k,2169) - lu(k,1547) * lu(k,2162) + lu(k,2170) = lu(k,2170) - lu(k,1548) * lu(k,2162) + lu(k,2171) = lu(k,2171) - lu(k,1549) * lu(k,2162) + lu(k,2172) = lu(k,2172) - lu(k,1550) * lu(k,2162) + lu(k,2173) = lu(k,2173) - lu(k,1551) * lu(k,2162) + lu(k,2174) = lu(k,2174) - lu(k,1552) * lu(k,2162) + lu(k,2176) = lu(k,2176) - lu(k,1553) * lu(k,2162) + lu(k,2179) = lu(k,2179) - lu(k,1554) * lu(k,2162) + lu(k,2224) = lu(k,2224) - lu(k,1542) * lu(k,2222) + lu(k,2225) = lu(k,2225) - lu(k,1543) * lu(k,2222) + lu(k,2226) = lu(k,2226) - lu(k,1544) * lu(k,2222) + lu(k,2227) = lu(k,2227) - lu(k,1545) * lu(k,2222) + lu(k,2228) = lu(k,2228) - lu(k,1546) * lu(k,2222) + lu(k,2229) = lu(k,2229) - lu(k,1547) * lu(k,2222) + lu(k,2230) = lu(k,2230) - lu(k,1548) * lu(k,2222) + lu(k,2231) = lu(k,2231) - lu(k,1549) * lu(k,2222) + lu(k,2232) = lu(k,2232) - lu(k,1550) * lu(k,2222) + lu(k,2233) = lu(k,2233) - lu(k,1551) * lu(k,2222) + lu(k,2234) = lu(k,2234) - lu(k,1552) * lu(k,2222) + lu(k,2236) = lu(k,2236) - lu(k,1553) * lu(k,2222) + lu(k,2239) = lu(k,2239) - lu(k,1554) * lu(k,2222) + lu(k,2332) = lu(k,2332) - lu(k,1542) * lu(k,2330) + lu(k,2333) = lu(k,2333) - lu(k,1543) * lu(k,2330) + lu(k,2334) = lu(k,2334) - lu(k,1544) * lu(k,2330) + lu(k,2335) = lu(k,2335) - lu(k,1545) * lu(k,2330) + lu(k,2336) = lu(k,2336) - lu(k,1546) * lu(k,2330) + lu(k,2337) = lu(k,2337) - lu(k,1547) * lu(k,2330) + lu(k,2338) = lu(k,2338) - lu(k,1548) * lu(k,2330) + lu(k,2339) = lu(k,2339) - lu(k,1549) * lu(k,2330) + lu(k,2340) = lu(k,2340) - lu(k,1550) * lu(k,2330) + lu(k,2341) = lu(k,2341) - lu(k,1551) * lu(k,2330) + lu(k,2342) = lu(k,2342) - lu(k,1552) * lu(k,2330) + lu(k,2344) = lu(k,2344) - lu(k,1553) * lu(k,2330) + lu(k,2347) = lu(k,2347) - lu(k,1554) * lu(k,2330) + lu(k,2355) = lu(k,2355) - lu(k,1542) * lu(k,2353) + lu(k,2356) = lu(k,2356) - lu(k,1543) * lu(k,2353) + lu(k,2357) = lu(k,2357) - lu(k,1544) * lu(k,2353) + lu(k,2358) = lu(k,2358) - lu(k,1545) * lu(k,2353) + lu(k,2359) = lu(k,2359) - lu(k,1546) * lu(k,2353) + lu(k,2360) = lu(k,2360) - lu(k,1547) * lu(k,2353) + lu(k,2361) = lu(k,2361) - lu(k,1548) * lu(k,2353) + lu(k,2362) = lu(k,2362) - lu(k,1549) * lu(k,2353) lu(k,2363) = lu(k,2363) - lu(k,1550) * lu(k,2353) lu(k,2364) = lu(k,2364) - lu(k,1551) * lu(k,2353) lu(k,2365) = lu(k,2365) - lu(k,1552) * lu(k,2353) - lu(k,2366) = lu(k,2366) - lu(k,1553) * lu(k,2353) - lu(k,2368) = lu(k,2368) - lu(k,1554) * lu(k,2353) - lu(k,2370) = lu(k,2370) - lu(k,1555) * lu(k,2353) - lu(k,2406) = - lu(k,1543) * lu(k,2405) - lu(k,2407) = lu(k,2407) - lu(k,1544) * lu(k,2405) - lu(k,2409) = lu(k,2409) - lu(k,1545) * lu(k,2405) - lu(k,2410) = lu(k,2410) - lu(k,1546) * lu(k,2405) - lu(k,2411) = lu(k,2411) - lu(k,1547) * lu(k,2405) - lu(k,2412) = lu(k,2412) - lu(k,1548) * lu(k,2405) - lu(k,2413) = lu(k,2413) - lu(k,1549) * lu(k,2405) + lu(k,2367) = lu(k,2367) - lu(k,1553) * lu(k,2353) + lu(k,2370) = lu(k,2370) - lu(k,1554) * lu(k,2353) + lu(k,2407) = - lu(k,1542) * lu(k,2405) + lu(k,2408) = lu(k,2408) - lu(k,1543) * lu(k,2405) + lu(k,2409) = lu(k,2409) - lu(k,1544) * lu(k,2405) + lu(k,2410) = lu(k,2410) - lu(k,1545) * lu(k,2405) + lu(k,2411) = lu(k,2411) - lu(k,1546) * lu(k,2405) + lu(k,2412) = lu(k,2412) - lu(k,1547) * lu(k,2405) + lu(k,2413) = lu(k,2413) - lu(k,1548) * lu(k,2405) + lu(k,2414) = lu(k,2414) - lu(k,1549) * lu(k,2405) lu(k,2415) = lu(k,2415) - lu(k,1550) * lu(k,2405) lu(k,2416) = lu(k,2416) - lu(k,1551) * lu(k,2405) lu(k,2417) = lu(k,2417) - lu(k,1552) * lu(k,2405) - lu(k,2418) = lu(k,2418) - lu(k,1553) * lu(k,2405) - lu(k,2420) = lu(k,2420) - lu(k,1554) * lu(k,2405) - lu(k,2422) = lu(k,2422) - lu(k,1555) * lu(k,2405) - lu(k,2433) = lu(k,2433) - lu(k,1543) * lu(k,2432) - lu(k,2434) = lu(k,2434) - lu(k,1544) * lu(k,2432) - lu(k,2436) = lu(k,2436) - lu(k,1545) * lu(k,2432) - lu(k,2437) = lu(k,2437) - lu(k,1546) * lu(k,2432) - lu(k,2438) = lu(k,2438) - lu(k,1547) * lu(k,2432) - lu(k,2439) = lu(k,2439) - lu(k,1548) * lu(k,2432) - lu(k,2440) = lu(k,2440) - lu(k,1549) * lu(k,2432) + lu(k,2419) = lu(k,2419) - lu(k,1553) * lu(k,2405) + lu(k,2422) = lu(k,2422) - lu(k,1554) * lu(k,2405) + lu(k,2434) = lu(k,2434) - lu(k,1542) * lu(k,2432) + lu(k,2435) = lu(k,2435) - lu(k,1543) * lu(k,2432) + lu(k,2436) = lu(k,2436) - lu(k,1544) * lu(k,2432) + lu(k,2437) = lu(k,2437) - lu(k,1545) * lu(k,2432) + lu(k,2438) = lu(k,2438) - lu(k,1546) * lu(k,2432) + lu(k,2439) = lu(k,2439) - lu(k,1547) * lu(k,2432) + lu(k,2440) = lu(k,2440) - lu(k,1548) * lu(k,2432) + lu(k,2441) = lu(k,2441) - lu(k,1549) * lu(k,2432) lu(k,2442) = lu(k,2442) - lu(k,1550) * lu(k,2432) lu(k,2443) = lu(k,2443) - lu(k,1551) * lu(k,2432) lu(k,2444) = lu(k,2444) - lu(k,1552) * lu(k,2432) - lu(k,2445) = lu(k,2445) - lu(k,1553) * lu(k,2432) - lu(k,2447) = lu(k,2447) - lu(k,1554) * lu(k,2432) - lu(k,2449) = lu(k,2449) - lu(k,1555) * lu(k,2432) - lu(k,1565) = 1._r8 / lu(k,1565) - lu(k,1566) = lu(k,1566) * lu(k,1565) - lu(k,1567) = lu(k,1567) * lu(k,1565) - lu(k,1568) = lu(k,1568) * lu(k,1565) - lu(k,1569) = lu(k,1569) * lu(k,1565) - lu(k,1570) = lu(k,1570) * lu(k,1565) - lu(k,1571) = lu(k,1571) * lu(k,1565) - lu(k,1572) = lu(k,1572) * lu(k,1565) - lu(k,1573) = lu(k,1573) * lu(k,1565) - lu(k,1574) = lu(k,1574) * lu(k,1565) - lu(k,1575) = lu(k,1575) * lu(k,1565) - lu(k,1576) = lu(k,1576) * lu(k,1565) - lu(k,1577) = lu(k,1577) * lu(k,1565) - lu(k,1578) = lu(k,1578) * lu(k,1565) - lu(k,1579) = lu(k,1579) * lu(k,1565) - lu(k,1592) = lu(k,1592) - lu(k,1566) * lu(k,1591) - lu(k,1593) = lu(k,1593) - lu(k,1567) * lu(k,1591) - lu(k,1594) = lu(k,1594) - lu(k,1568) * lu(k,1591) - lu(k,1595) = lu(k,1595) - lu(k,1569) * lu(k,1591) - lu(k,1596) = lu(k,1596) - lu(k,1570) * lu(k,1591) - lu(k,1597) = lu(k,1597) - lu(k,1571) * lu(k,1591) - lu(k,1598) = lu(k,1598) - lu(k,1572) * lu(k,1591) - lu(k,1599) = lu(k,1599) - lu(k,1573) * lu(k,1591) - lu(k,1600) = lu(k,1600) - lu(k,1574) * lu(k,1591) - lu(k,1601) = lu(k,1601) - lu(k,1575) * lu(k,1591) - lu(k,1602) = lu(k,1602) - lu(k,1576) * lu(k,1591) - lu(k,1603) = lu(k,1603) - lu(k,1577) * lu(k,1591) - lu(k,1604) = lu(k,1604) - lu(k,1578) * lu(k,1591) - lu(k,1606) = lu(k,1606) - lu(k,1579) * lu(k,1591) - lu(k,1651) = lu(k,1651) - lu(k,1566) * lu(k,1650) - lu(k,1652) = lu(k,1652) - lu(k,1567) * lu(k,1650) - lu(k,1653) = lu(k,1653) - lu(k,1568) * lu(k,1650) - lu(k,1654) = lu(k,1654) - lu(k,1569) * lu(k,1650) - lu(k,1655) = lu(k,1655) - lu(k,1570) * lu(k,1650) - lu(k,1656) = lu(k,1656) - lu(k,1571) * lu(k,1650) - lu(k,1657) = lu(k,1657) - lu(k,1572) * lu(k,1650) - lu(k,1658) = lu(k,1658) - lu(k,1573) * lu(k,1650) - lu(k,1659) = lu(k,1659) - lu(k,1574) * lu(k,1650) - lu(k,1660) = lu(k,1660) - lu(k,1575) * lu(k,1650) - lu(k,1661) = lu(k,1661) - lu(k,1576) * lu(k,1650) - lu(k,1662) = lu(k,1662) - lu(k,1577) * lu(k,1650) - lu(k,1664) = lu(k,1664) - lu(k,1578) * lu(k,1650) - lu(k,1666) = lu(k,1666) - lu(k,1579) * lu(k,1650) - lu(k,1816) = lu(k,1816) - lu(k,1566) * lu(k,1815) - lu(k,1817) = lu(k,1817) - lu(k,1567) * lu(k,1815) - lu(k,1818) = lu(k,1818) - lu(k,1568) * lu(k,1815) - lu(k,1819) = lu(k,1819) - lu(k,1569) * lu(k,1815) - lu(k,1820) = lu(k,1820) - lu(k,1570) * lu(k,1815) - lu(k,1821) = lu(k,1821) - lu(k,1571) * lu(k,1815) - lu(k,1822) = lu(k,1822) - lu(k,1572) * lu(k,1815) - lu(k,1823) = lu(k,1823) - lu(k,1573) * lu(k,1815) - lu(k,1824) = lu(k,1824) - lu(k,1574) * lu(k,1815) - lu(k,1825) = lu(k,1825) - lu(k,1575) * lu(k,1815) - lu(k,1826) = lu(k,1826) - lu(k,1576) * lu(k,1815) - lu(k,1827) = lu(k,1827) - lu(k,1577) * lu(k,1815) - lu(k,1829) = lu(k,1829) - lu(k,1578) * lu(k,1815) - lu(k,1831) = lu(k,1831) - lu(k,1579) * lu(k,1815) - lu(k,1911) = lu(k,1911) - lu(k,1566) * lu(k,1910) - lu(k,1912) = lu(k,1912) - lu(k,1567) * lu(k,1910) - lu(k,1913) = lu(k,1913) - lu(k,1568) * lu(k,1910) - lu(k,1914) = lu(k,1914) - lu(k,1569) * lu(k,1910) - lu(k,1915) = lu(k,1915) - lu(k,1570) * lu(k,1910) - lu(k,1916) = lu(k,1916) - lu(k,1571) * lu(k,1910) - lu(k,1917) = lu(k,1917) - lu(k,1572) * lu(k,1910) - lu(k,1918) = lu(k,1918) - lu(k,1573) * lu(k,1910) - lu(k,1919) = lu(k,1919) - lu(k,1574) * lu(k,1910) - lu(k,1920) = lu(k,1920) - lu(k,1575) * lu(k,1910) - lu(k,1921) = lu(k,1921) - lu(k,1576) * lu(k,1910) - lu(k,1922) = lu(k,1922) - lu(k,1577) * lu(k,1910) - lu(k,1924) = lu(k,1924) - lu(k,1578) * lu(k,1910) - lu(k,1926) = lu(k,1926) - lu(k,1579) * lu(k,1910) - lu(k,1956) = lu(k,1956) - lu(k,1566) * lu(k,1955) - lu(k,1957) = lu(k,1957) - lu(k,1567) * lu(k,1955) - lu(k,1958) = lu(k,1958) - lu(k,1568) * lu(k,1955) - lu(k,1959) = lu(k,1959) - lu(k,1569) * lu(k,1955) - lu(k,1960) = lu(k,1960) - lu(k,1570) * lu(k,1955) - lu(k,1961) = lu(k,1961) - lu(k,1571) * lu(k,1955) - lu(k,1962) = lu(k,1962) - lu(k,1572) * lu(k,1955) - lu(k,1963) = lu(k,1963) - lu(k,1573) * lu(k,1955) - lu(k,1964) = lu(k,1964) - lu(k,1574) * lu(k,1955) - lu(k,1965) = lu(k,1965) - lu(k,1575) * lu(k,1955) - lu(k,1966) = lu(k,1966) - lu(k,1576) * lu(k,1955) - lu(k,1967) = lu(k,1967) - lu(k,1577) * lu(k,1955) - lu(k,1969) = lu(k,1969) - lu(k,1578) * lu(k,1955) - lu(k,1971) = lu(k,1971) - lu(k,1579) * lu(k,1955) - lu(k,1982) = lu(k,1982) - lu(k,1566) * lu(k,1981) - lu(k,1983) = lu(k,1983) - lu(k,1567) * lu(k,1981) - lu(k,1984) = lu(k,1984) - lu(k,1568) * lu(k,1981) - lu(k,1985) = lu(k,1985) - lu(k,1569) * lu(k,1981) - lu(k,1986) = lu(k,1986) - lu(k,1570) * lu(k,1981) - lu(k,1987) = lu(k,1987) - lu(k,1571) * lu(k,1981) - lu(k,1988) = lu(k,1988) - lu(k,1572) * lu(k,1981) - lu(k,1989) = lu(k,1989) - lu(k,1573) * lu(k,1981) - lu(k,1990) = lu(k,1990) - lu(k,1574) * lu(k,1981) - lu(k,1991) = lu(k,1991) - lu(k,1575) * lu(k,1981) - lu(k,1992) = lu(k,1992) - lu(k,1576) * lu(k,1981) - lu(k,1993) = lu(k,1993) - lu(k,1577) * lu(k,1981) - lu(k,1995) = lu(k,1995) - lu(k,1578) * lu(k,1981) - lu(k,1997) = lu(k,1997) - lu(k,1579) * lu(k,1981) - lu(k,2025) = lu(k,2025) - lu(k,1566) * lu(k,2024) - lu(k,2026) = lu(k,2026) - lu(k,1567) * lu(k,2024) - lu(k,2027) = lu(k,2027) - lu(k,1568) * lu(k,2024) - lu(k,2028) = lu(k,2028) - lu(k,1569) * lu(k,2024) - lu(k,2029) = lu(k,2029) - lu(k,1570) * lu(k,2024) - lu(k,2030) = lu(k,2030) - lu(k,1571) * lu(k,2024) - lu(k,2031) = lu(k,2031) - lu(k,1572) * lu(k,2024) - lu(k,2032) = lu(k,2032) - lu(k,1573) * lu(k,2024) - lu(k,2033) = lu(k,2033) - lu(k,1574) * lu(k,2024) - lu(k,2034) = lu(k,2034) - lu(k,1575) * lu(k,2024) - lu(k,2035) = lu(k,2035) - lu(k,1576) * lu(k,2024) - lu(k,2036) = lu(k,2036) - lu(k,1577) * lu(k,2024) - lu(k,2038) = lu(k,2038) - lu(k,1578) * lu(k,2024) - lu(k,2040) = lu(k,2040) - lu(k,1579) * lu(k,2024) - lu(k,2048) = lu(k,2048) - lu(k,1566) * lu(k,2047) - lu(k,2049) = lu(k,2049) - lu(k,1567) * lu(k,2047) - lu(k,2050) = lu(k,2050) - lu(k,1568) * lu(k,2047) - lu(k,2051) = lu(k,2051) - lu(k,1569) * lu(k,2047) - lu(k,2052) = lu(k,2052) - lu(k,1570) * lu(k,2047) - lu(k,2053) = lu(k,2053) - lu(k,1571) * lu(k,2047) - lu(k,2054) = lu(k,2054) - lu(k,1572) * lu(k,2047) - lu(k,2055) = lu(k,2055) - lu(k,1573) * lu(k,2047) - lu(k,2056) = lu(k,2056) - lu(k,1574) * lu(k,2047) - lu(k,2057) = lu(k,2057) - lu(k,1575) * lu(k,2047) - lu(k,2058) = lu(k,2058) - lu(k,1576) * lu(k,2047) - lu(k,2059) = lu(k,2059) - lu(k,1577) * lu(k,2047) - lu(k,2061) = lu(k,2061) - lu(k,1578) * lu(k,2047) - lu(k,2063) = lu(k,2063) - lu(k,1579) * lu(k,2047) - lu(k,2091) = lu(k,2091) - lu(k,1566) * lu(k,2090) - lu(k,2092) = lu(k,2092) - lu(k,1567) * lu(k,2090) - lu(k,2093) = lu(k,2093) - lu(k,1568) * lu(k,2090) - lu(k,2094) = lu(k,2094) - lu(k,1569) * lu(k,2090) - lu(k,2095) = lu(k,2095) - lu(k,1570) * lu(k,2090) - lu(k,2096) = lu(k,2096) - lu(k,1571) * lu(k,2090) - lu(k,2097) = lu(k,2097) - lu(k,1572) * lu(k,2090) - lu(k,2098) = lu(k,2098) - lu(k,1573) * lu(k,2090) - lu(k,2099) = lu(k,2099) - lu(k,1574) * lu(k,2090) - lu(k,2100) = lu(k,2100) - lu(k,1575) * lu(k,2090) - lu(k,2101) = lu(k,2101) - lu(k,1576) * lu(k,2090) - lu(k,2102) = lu(k,2102) - lu(k,1577) * lu(k,2090) - lu(k,2104) = lu(k,2104) - lu(k,1578) * lu(k,2090) - lu(k,2106) = lu(k,2106) - lu(k,1579) * lu(k,2090) - lu(k,2112) = lu(k,2112) - lu(k,1566) * lu(k,2111) - lu(k,2113) = lu(k,2113) - lu(k,1567) * lu(k,2111) - lu(k,2114) = lu(k,2114) - lu(k,1568) * lu(k,2111) - lu(k,2115) = lu(k,2115) - lu(k,1569) * lu(k,2111) - lu(k,2116) = lu(k,2116) - lu(k,1570) * lu(k,2111) - lu(k,2117) = lu(k,2117) - lu(k,1571) * lu(k,2111) - lu(k,2118) = lu(k,2118) - lu(k,1572) * lu(k,2111) - lu(k,2119) = lu(k,2119) - lu(k,1573) * lu(k,2111) - lu(k,2120) = lu(k,2120) - lu(k,1574) * lu(k,2111) - lu(k,2121) = lu(k,2121) - lu(k,1575) * lu(k,2111) - lu(k,2122) = lu(k,2122) - lu(k,1576) * lu(k,2111) - lu(k,2123) = lu(k,2123) - lu(k,1577) * lu(k,2111) - lu(k,2125) = lu(k,2125) - lu(k,1578) * lu(k,2111) - lu(k,2127) = lu(k,2127) - lu(k,1579) * lu(k,2111) - lu(k,2158) = lu(k,2158) - lu(k,1566) * lu(k,2157) - lu(k,2159) = lu(k,2159) - lu(k,1567) * lu(k,2157) - lu(k,2160) = lu(k,2160) - lu(k,1568) * lu(k,2157) - lu(k,2161) = lu(k,2161) - lu(k,1569) * lu(k,2157) - lu(k,2162) = lu(k,2162) - lu(k,1570) * lu(k,2157) - lu(k,2163) = lu(k,2163) - lu(k,1571) * lu(k,2157) - lu(k,2164) = lu(k,2164) - lu(k,1572) * lu(k,2157) - lu(k,2165) = lu(k,2165) - lu(k,1573) * lu(k,2157) - lu(k,2166) = lu(k,2166) - lu(k,1574) * lu(k,2157) - lu(k,2167) = lu(k,2167) - lu(k,1575) * lu(k,2157) - lu(k,2168) = lu(k,2168) - lu(k,1576) * lu(k,2157) - lu(k,2169) = lu(k,2169) - lu(k,1577) * lu(k,2157) - lu(k,2171) = lu(k,2171) - lu(k,1578) * lu(k,2157) - lu(k,2173) = lu(k,2173) - lu(k,1579) * lu(k,2157) - lu(k,2222) = lu(k,2222) - lu(k,1566) * lu(k,2221) - lu(k,2223) = lu(k,2223) - lu(k,1567) * lu(k,2221) - lu(k,2224) = lu(k,2224) - lu(k,1568) * lu(k,2221) - lu(k,2225) = lu(k,2225) - lu(k,1569) * lu(k,2221) - lu(k,2226) = lu(k,2226) - lu(k,1570) * lu(k,2221) - lu(k,2227) = lu(k,2227) - lu(k,1571) * lu(k,2221) - lu(k,2228) = lu(k,2228) - lu(k,1572) * lu(k,2221) - lu(k,2229) = lu(k,2229) - lu(k,1573) * lu(k,2221) - lu(k,2230) = lu(k,2230) - lu(k,1574) * lu(k,2221) - lu(k,2231) = lu(k,2231) - lu(k,1575) * lu(k,2221) - lu(k,2232) = lu(k,2232) - lu(k,1576) * lu(k,2221) - lu(k,2233) = lu(k,2233) - lu(k,1577) * lu(k,2221) - lu(k,2235) = lu(k,2235) - lu(k,1578) * lu(k,2221) - lu(k,2237) = lu(k,2237) - lu(k,1579) * lu(k,2221) - lu(k,2247) = lu(k,2247) - lu(k,1566) * lu(k,2246) - lu(k,2248) = lu(k,2248) - lu(k,1567) * lu(k,2246) - lu(k,2249) = lu(k,2249) - lu(k,1568) * lu(k,2246) - lu(k,2250) = lu(k,2250) - lu(k,1569) * lu(k,2246) - lu(k,2251) = lu(k,2251) - lu(k,1570) * lu(k,2246) - lu(k,2252) = lu(k,2252) - lu(k,1571) * lu(k,2246) - lu(k,2253) = lu(k,2253) - lu(k,1572) * lu(k,2246) - lu(k,2254) = lu(k,2254) - lu(k,1573) * lu(k,2246) - lu(k,2255) = lu(k,2255) - lu(k,1574) * lu(k,2246) - lu(k,2256) = lu(k,2256) - lu(k,1575) * lu(k,2246) - lu(k,2257) = lu(k,2257) - lu(k,1576) * lu(k,2246) - lu(k,2258) = lu(k,2258) - lu(k,1577) * lu(k,2246) - lu(k,2260) = lu(k,2260) - lu(k,1578) * lu(k,2246) - lu(k,2262) = lu(k,2262) - lu(k,1579) * lu(k,2246) - lu(k,2355) = lu(k,2355) - lu(k,1566) * lu(k,2354) - lu(k,2356) = lu(k,2356) - lu(k,1567) * lu(k,2354) - lu(k,2357) = lu(k,2357) - lu(k,1568) * lu(k,2354) - lu(k,2358) = lu(k,2358) - lu(k,1569) * lu(k,2354) - lu(k,2359) = lu(k,2359) - lu(k,1570) * lu(k,2354) - lu(k,2360) = lu(k,2360) - lu(k,1571) * lu(k,2354) - lu(k,2361) = lu(k,2361) - lu(k,1572) * lu(k,2354) - lu(k,2362) = lu(k,2362) - lu(k,1573) * lu(k,2354) - lu(k,2363) = lu(k,2363) - lu(k,1574) * lu(k,2354) - lu(k,2364) = lu(k,2364) - lu(k,1575) * lu(k,2354) - lu(k,2365) = lu(k,2365) - lu(k,1576) * lu(k,2354) - lu(k,2366) = lu(k,2366) - lu(k,1577) * lu(k,2354) - lu(k,2368) = lu(k,2368) - lu(k,1578) * lu(k,2354) + lu(k,2446) = lu(k,2446) - lu(k,1553) * lu(k,2432) + lu(k,2449) = lu(k,2449) - lu(k,1554) * lu(k,2432) + lu(k,1563) = 1._r8 / lu(k,1563) + lu(k,1564) = lu(k,1564) * lu(k,1563) + lu(k,1565) = lu(k,1565) * lu(k,1563) + lu(k,1566) = lu(k,1566) * lu(k,1563) + lu(k,1567) = lu(k,1567) * lu(k,1563) + lu(k,1568) = lu(k,1568) * lu(k,1563) + lu(k,1569) = lu(k,1569) * lu(k,1563) + lu(k,1570) = lu(k,1570) * lu(k,1563) + lu(k,1571) = lu(k,1571) * lu(k,1563) + lu(k,1572) = lu(k,1572) * lu(k,1563) + lu(k,1573) = lu(k,1573) * lu(k,1563) + lu(k,1574) = lu(k,1574) * lu(k,1563) + lu(k,1575) = lu(k,1575) * lu(k,1563) + lu(k,1576) = lu(k,1576) * lu(k,1563) + lu(k,1577) = lu(k,1577) * lu(k,1563) + lu(k,1578) = lu(k,1578) * lu(k,1563) + lu(k,1579) = lu(k,1579) * lu(k,1563) + lu(k,1631) = lu(k,1631) - lu(k,1564) * lu(k,1630) + lu(k,1632) = lu(k,1632) - lu(k,1565) * lu(k,1630) + lu(k,1633) = lu(k,1633) - lu(k,1566) * lu(k,1630) + lu(k,1634) = lu(k,1634) - lu(k,1567) * lu(k,1630) + lu(k,1635) = lu(k,1635) - lu(k,1568) * lu(k,1630) + lu(k,1636) = lu(k,1636) - lu(k,1569) * lu(k,1630) + lu(k,1637) = lu(k,1637) - lu(k,1570) * lu(k,1630) + lu(k,1638) = lu(k,1638) - lu(k,1571) * lu(k,1630) + lu(k,1639) = lu(k,1639) - lu(k,1572) * lu(k,1630) + lu(k,1640) = lu(k,1640) - lu(k,1573) * lu(k,1630) + lu(k,1641) = lu(k,1641) - lu(k,1574) * lu(k,1630) + lu(k,1642) = lu(k,1642) - lu(k,1575) * lu(k,1630) + lu(k,1643) = lu(k,1643) - lu(k,1576) * lu(k,1630) + lu(k,1644) = lu(k,1644) - lu(k,1577) * lu(k,1630) + lu(k,1645) = lu(k,1645) - lu(k,1578) * lu(k,1630) + lu(k,1646) = lu(k,1646) - lu(k,1579) * lu(k,1630) + lu(k,1796) = lu(k,1796) - lu(k,1564) * lu(k,1795) + lu(k,1797) = lu(k,1797) - lu(k,1565) * lu(k,1795) + lu(k,1798) = lu(k,1798) - lu(k,1566) * lu(k,1795) + lu(k,1799) = lu(k,1799) - lu(k,1567) * lu(k,1795) + lu(k,1800) = lu(k,1800) - lu(k,1568) * lu(k,1795) + lu(k,1801) = lu(k,1801) - lu(k,1569) * lu(k,1795) + lu(k,1802) = lu(k,1802) - lu(k,1570) * lu(k,1795) + lu(k,1803) = lu(k,1803) - lu(k,1571) * lu(k,1795) + lu(k,1804) = lu(k,1804) - lu(k,1572) * lu(k,1795) + lu(k,1805) = lu(k,1805) - lu(k,1573) * lu(k,1795) + lu(k,1806) = lu(k,1806) - lu(k,1574) * lu(k,1795) + lu(k,1807) = lu(k,1807) - lu(k,1575) * lu(k,1795) + lu(k,1808) = lu(k,1808) - lu(k,1576) * lu(k,1795) + lu(k,1809) = lu(k,1809) - lu(k,1577) * lu(k,1795) + lu(k,1810) = lu(k,1810) - lu(k,1578) * lu(k,1795) + lu(k,1811) = lu(k,1811) - lu(k,1579) * lu(k,1795) + lu(k,1842) = lu(k,1842) - lu(k,1564) * lu(k,1841) + lu(k,1843) = lu(k,1843) - lu(k,1565) * lu(k,1841) + lu(k,1844) = lu(k,1844) - lu(k,1566) * lu(k,1841) + lu(k,1845) = lu(k,1845) - lu(k,1567) * lu(k,1841) + lu(k,1846) = lu(k,1846) - lu(k,1568) * lu(k,1841) + lu(k,1847) = lu(k,1847) - lu(k,1569) * lu(k,1841) + lu(k,1848) = lu(k,1848) - lu(k,1570) * lu(k,1841) + lu(k,1849) = lu(k,1849) - lu(k,1571) * lu(k,1841) + lu(k,1850) = lu(k,1850) - lu(k,1572) * lu(k,1841) + lu(k,1851) = lu(k,1851) - lu(k,1573) * lu(k,1841) + lu(k,1852) = lu(k,1852) - lu(k,1574) * lu(k,1841) + lu(k,1853) = lu(k,1853) - lu(k,1575) * lu(k,1841) + lu(k,1854) = lu(k,1854) - lu(k,1576) * lu(k,1841) + lu(k,1855) = lu(k,1855) - lu(k,1577) * lu(k,1841) + lu(k,1856) = lu(k,1856) - lu(k,1578) * lu(k,1841) + lu(k,1857) = lu(k,1857) - lu(k,1579) * lu(k,1841) + lu(k,1887) = lu(k,1887) - lu(k,1564) * lu(k,1886) + lu(k,1888) = lu(k,1888) - lu(k,1565) * lu(k,1886) + lu(k,1889) = lu(k,1889) - lu(k,1566) * lu(k,1886) + lu(k,1890) = lu(k,1890) - lu(k,1567) * lu(k,1886) + lu(k,1891) = lu(k,1891) - lu(k,1568) * lu(k,1886) + lu(k,1892) = lu(k,1892) - lu(k,1569) * lu(k,1886) + lu(k,1893) = lu(k,1893) - lu(k,1570) * lu(k,1886) + lu(k,1894) = lu(k,1894) - lu(k,1571) * lu(k,1886) + lu(k,1895) = lu(k,1895) - lu(k,1572) * lu(k,1886) + lu(k,1896) = lu(k,1896) - lu(k,1573) * lu(k,1886) + lu(k,1897) = lu(k,1897) - lu(k,1574) * lu(k,1886) + lu(k,1898) = lu(k,1898) - lu(k,1575) * lu(k,1886) + lu(k,1899) = lu(k,1899) - lu(k,1576) * lu(k,1886) + lu(k,1900) = lu(k,1900) - lu(k,1577) * lu(k,1886) + lu(k,1901) = lu(k,1901) - lu(k,1578) * lu(k,1886) + lu(k,1902) = lu(k,1902) - lu(k,1579) * lu(k,1886) + lu(k,1913) = lu(k,1913) - lu(k,1564) * lu(k,1912) + lu(k,1914) = lu(k,1914) - lu(k,1565) * lu(k,1912) + lu(k,1915) = lu(k,1915) - lu(k,1566) * lu(k,1912) + lu(k,1916) = lu(k,1916) - lu(k,1567) * lu(k,1912) + lu(k,1917) = lu(k,1917) - lu(k,1568) * lu(k,1912) + lu(k,1918) = lu(k,1918) - lu(k,1569) * lu(k,1912) + lu(k,1919) = lu(k,1919) - lu(k,1570) * lu(k,1912) + lu(k,1920) = lu(k,1920) - lu(k,1571) * lu(k,1912) + lu(k,1921) = lu(k,1921) - lu(k,1572) * lu(k,1912) + lu(k,1922) = lu(k,1922) - lu(k,1573) * lu(k,1912) + lu(k,1923) = lu(k,1923) - lu(k,1574) * lu(k,1912) + lu(k,1924) = lu(k,1924) - lu(k,1575) * lu(k,1912) + lu(k,1925) = lu(k,1925) - lu(k,1576) * lu(k,1912) + lu(k,1926) = lu(k,1926) - lu(k,1577) * lu(k,1912) + lu(k,1927) = lu(k,1927) - lu(k,1578) * lu(k,1912) + lu(k,1928) = lu(k,1928) - lu(k,1579) * lu(k,1912) + lu(k,2009) = lu(k,2009) - lu(k,1564) * lu(k,2008) + lu(k,2010) = lu(k,2010) - lu(k,1565) * lu(k,2008) + lu(k,2011) = lu(k,2011) - lu(k,1566) * lu(k,2008) + lu(k,2012) = lu(k,2012) - lu(k,1567) * lu(k,2008) + lu(k,2013) = lu(k,2013) - lu(k,1568) * lu(k,2008) + lu(k,2014) = lu(k,2014) - lu(k,1569) * lu(k,2008) + lu(k,2015) = lu(k,2015) - lu(k,1570) * lu(k,2008) + lu(k,2016) = lu(k,2016) - lu(k,1571) * lu(k,2008) + lu(k,2017) = lu(k,2017) - lu(k,1572) * lu(k,2008) + lu(k,2018) = lu(k,2018) - lu(k,1573) * lu(k,2008) + lu(k,2019) = lu(k,2019) - lu(k,1574) * lu(k,2008) + lu(k,2020) = lu(k,2020) - lu(k,1575) * lu(k,2008) + lu(k,2021) = lu(k,2021) - lu(k,1576) * lu(k,2008) + lu(k,2022) = lu(k,2022) - lu(k,1577) * lu(k,2008) + lu(k,2023) = lu(k,2023) - lu(k,1578) * lu(k,2008) + lu(k,2024) = lu(k,2024) - lu(k,1579) * lu(k,2008) + lu(k,2052) = lu(k,2052) - lu(k,1564) * lu(k,2051) + lu(k,2053) = lu(k,2053) - lu(k,1565) * lu(k,2051) + lu(k,2054) = lu(k,2054) - lu(k,1566) * lu(k,2051) + lu(k,2055) = lu(k,2055) - lu(k,1567) * lu(k,2051) + lu(k,2056) = lu(k,2056) - lu(k,1568) * lu(k,2051) + lu(k,2057) = lu(k,2057) - lu(k,1569) * lu(k,2051) + lu(k,2058) = lu(k,2058) - lu(k,1570) * lu(k,2051) + lu(k,2059) = lu(k,2059) - lu(k,1571) * lu(k,2051) + lu(k,2060) = lu(k,2060) - lu(k,1572) * lu(k,2051) + lu(k,2061) = lu(k,2061) - lu(k,1573) * lu(k,2051) + lu(k,2062) = lu(k,2062) - lu(k,1574) * lu(k,2051) + lu(k,2063) = lu(k,2063) - lu(k,1575) * lu(k,2051) + lu(k,2064) = lu(k,2064) - lu(k,1576) * lu(k,2051) + lu(k,2065) = lu(k,2065) - lu(k,1577) * lu(k,2051) + lu(k,2066) = lu(k,2066) - lu(k,1578) * lu(k,2051) + lu(k,2067) = lu(k,2067) - lu(k,1579) * lu(k,2051) + lu(k,2116) = lu(k,2116) - lu(k,1564) * lu(k,2115) + lu(k,2117) = lu(k,2117) - lu(k,1565) * lu(k,2115) + lu(k,2118) = lu(k,2118) - lu(k,1566) * lu(k,2115) + lu(k,2119) = lu(k,2119) - lu(k,1567) * lu(k,2115) + lu(k,2120) = lu(k,2120) - lu(k,1568) * lu(k,2115) + lu(k,2121) = lu(k,2121) - lu(k,1569) * lu(k,2115) + lu(k,2122) = lu(k,2122) - lu(k,1570) * lu(k,2115) + lu(k,2123) = lu(k,2123) - lu(k,1571) * lu(k,2115) + lu(k,2124) = lu(k,2124) - lu(k,1572) * lu(k,2115) + lu(k,2125) = lu(k,2125) - lu(k,1573) * lu(k,2115) + lu(k,2126) = lu(k,2126) - lu(k,1574) * lu(k,2115) + lu(k,2127) = lu(k,2127) - lu(k,1575) * lu(k,2115) + lu(k,2128) = lu(k,2128) - lu(k,1576) * lu(k,2115) + lu(k,2129) = lu(k,2129) - lu(k,1577) * lu(k,2115) + lu(k,2130) = lu(k,2130) - lu(k,1578) * lu(k,2115) + lu(k,2131) = lu(k,2131) - lu(k,1579) * lu(k,2115) + lu(k,2164) = lu(k,2164) - lu(k,1564) * lu(k,2163) + lu(k,2165) = lu(k,2165) - lu(k,1565) * lu(k,2163) + lu(k,2166) = lu(k,2166) - lu(k,1566) * lu(k,2163) + lu(k,2167) = lu(k,2167) - lu(k,1567) * lu(k,2163) + lu(k,2168) = lu(k,2168) - lu(k,1568) * lu(k,2163) + lu(k,2169) = lu(k,2169) - lu(k,1569) * lu(k,2163) + lu(k,2170) = lu(k,2170) - lu(k,1570) * lu(k,2163) + lu(k,2171) = lu(k,2171) - lu(k,1571) * lu(k,2163) + lu(k,2172) = lu(k,2172) - lu(k,1572) * lu(k,2163) + lu(k,2173) = lu(k,2173) - lu(k,1573) * lu(k,2163) + lu(k,2174) = lu(k,2174) - lu(k,1574) * lu(k,2163) + lu(k,2175) = lu(k,2175) - lu(k,1575) * lu(k,2163) + lu(k,2176) = lu(k,2176) - lu(k,1576) * lu(k,2163) + lu(k,2177) = lu(k,2177) - lu(k,1577) * lu(k,2163) + lu(k,2178) = lu(k,2178) - lu(k,1578) * lu(k,2163) + lu(k,2179) = lu(k,2179) - lu(k,1579) * lu(k,2163) + lu(k,2224) = lu(k,2224) - lu(k,1564) * lu(k,2223) + lu(k,2225) = lu(k,2225) - lu(k,1565) * lu(k,2223) + lu(k,2226) = lu(k,2226) - lu(k,1566) * lu(k,2223) + lu(k,2227) = lu(k,2227) - lu(k,1567) * lu(k,2223) + lu(k,2228) = lu(k,2228) - lu(k,1568) * lu(k,2223) + lu(k,2229) = lu(k,2229) - lu(k,1569) * lu(k,2223) + lu(k,2230) = lu(k,2230) - lu(k,1570) * lu(k,2223) + lu(k,2231) = lu(k,2231) - lu(k,1571) * lu(k,2223) + lu(k,2232) = lu(k,2232) - lu(k,1572) * lu(k,2223) + lu(k,2233) = lu(k,2233) - lu(k,1573) * lu(k,2223) + lu(k,2234) = lu(k,2234) - lu(k,1574) * lu(k,2223) + lu(k,2235) = lu(k,2235) - lu(k,1575) * lu(k,2223) + lu(k,2236) = lu(k,2236) - lu(k,1576) * lu(k,2223) + lu(k,2237) = lu(k,2237) - lu(k,1577) * lu(k,2223) + lu(k,2238) = lu(k,2238) - lu(k,1578) * lu(k,2223) + lu(k,2239) = lu(k,2239) - lu(k,1579) * lu(k,2223) + lu(k,2332) = lu(k,2332) - lu(k,1564) * lu(k,2331) + lu(k,2333) = lu(k,2333) - lu(k,1565) * lu(k,2331) + lu(k,2334) = lu(k,2334) - lu(k,1566) * lu(k,2331) + lu(k,2335) = lu(k,2335) - lu(k,1567) * lu(k,2331) + lu(k,2336) = lu(k,2336) - lu(k,1568) * lu(k,2331) + lu(k,2337) = lu(k,2337) - lu(k,1569) * lu(k,2331) + lu(k,2338) = lu(k,2338) - lu(k,1570) * lu(k,2331) + lu(k,2339) = lu(k,2339) - lu(k,1571) * lu(k,2331) + lu(k,2340) = lu(k,2340) - lu(k,1572) * lu(k,2331) + lu(k,2341) = lu(k,2341) - lu(k,1573) * lu(k,2331) + lu(k,2342) = lu(k,2342) - lu(k,1574) * lu(k,2331) + lu(k,2343) = lu(k,2343) - lu(k,1575) * lu(k,2331) + lu(k,2344) = lu(k,2344) - lu(k,1576) * lu(k,2331) + lu(k,2345) = lu(k,2345) - lu(k,1577) * lu(k,2331) + lu(k,2346) = lu(k,2346) - lu(k,1578) * lu(k,2331) + lu(k,2347) = lu(k,2347) - lu(k,1579) * lu(k,2331) + lu(k,2355) = lu(k,2355) - lu(k,1564) * lu(k,2354) + lu(k,2356) = lu(k,2356) - lu(k,1565) * lu(k,2354) + lu(k,2357) = lu(k,2357) - lu(k,1566) * lu(k,2354) + lu(k,2358) = lu(k,2358) - lu(k,1567) * lu(k,2354) + lu(k,2359) = lu(k,2359) - lu(k,1568) * lu(k,2354) + lu(k,2360) = lu(k,2360) - lu(k,1569) * lu(k,2354) + lu(k,2361) = lu(k,2361) - lu(k,1570) * lu(k,2354) + lu(k,2362) = lu(k,2362) - lu(k,1571) * lu(k,2354) + lu(k,2363) = lu(k,2363) - lu(k,1572) * lu(k,2354) + lu(k,2364) = lu(k,2364) - lu(k,1573) * lu(k,2354) + lu(k,2365) = lu(k,2365) - lu(k,1574) * lu(k,2354) + lu(k,2366) = lu(k,2366) - lu(k,1575) * lu(k,2354) + lu(k,2367) = lu(k,2367) - lu(k,1576) * lu(k,2354) + lu(k,2368) = lu(k,2368) - lu(k,1577) * lu(k,2354) + lu(k,2369) = lu(k,2369) - lu(k,1578) * lu(k,2354) lu(k,2370) = lu(k,2370) - lu(k,1579) * lu(k,2354) - lu(k,2407) = lu(k,2407) - lu(k,1566) * lu(k,2406) - lu(k,2408) = lu(k,2408) - lu(k,1567) * lu(k,2406) - lu(k,2409) = lu(k,2409) - lu(k,1568) * lu(k,2406) - lu(k,2410) = lu(k,2410) - lu(k,1569) * lu(k,2406) - lu(k,2411) = lu(k,2411) - lu(k,1570) * lu(k,2406) - lu(k,2412) = lu(k,2412) - lu(k,1571) * lu(k,2406) - lu(k,2413) = lu(k,2413) - lu(k,1572) * lu(k,2406) - lu(k,2414) = lu(k,2414) - lu(k,1573) * lu(k,2406) - lu(k,2415) = lu(k,2415) - lu(k,1574) * lu(k,2406) - lu(k,2416) = lu(k,2416) - lu(k,1575) * lu(k,2406) - lu(k,2417) = lu(k,2417) - lu(k,1576) * lu(k,2406) - lu(k,2418) = lu(k,2418) - lu(k,1577) * lu(k,2406) - lu(k,2420) = lu(k,2420) - lu(k,1578) * lu(k,2406) + lu(k,2407) = lu(k,2407) - lu(k,1564) * lu(k,2406) + lu(k,2408) = lu(k,2408) - lu(k,1565) * lu(k,2406) + lu(k,2409) = lu(k,2409) - lu(k,1566) * lu(k,2406) + lu(k,2410) = lu(k,2410) - lu(k,1567) * lu(k,2406) + lu(k,2411) = lu(k,2411) - lu(k,1568) * lu(k,2406) + lu(k,2412) = lu(k,2412) - lu(k,1569) * lu(k,2406) + lu(k,2413) = lu(k,2413) - lu(k,1570) * lu(k,2406) + lu(k,2414) = lu(k,2414) - lu(k,1571) * lu(k,2406) + lu(k,2415) = lu(k,2415) - lu(k,1572) * lu(k,2406) + lu(k,2416) = lu(k,2416) - lu(k,1573) * lu(k,2406) + lu(k,2417) = lu(k,2417) - lu(k,1574) * lu(k,2406) + lu(k,2418) = lu(k,2418) - lu(k,1575) * lu(k,2406) + lu(k,2419) = lu(k,2419) - lu(k,1576) * lu(k,2406) + lu(k,2420) = lu(k,2420) - lu(k,1577) * lu(k,2406) + lu(k,2421) = lu(k,2421) - lu(k,1578) * lu(k,2406) lu(k,2422) = lu(k,2422) - lu(k,1579) * lu(k,2406) - lu(k,2434) = lu(k,2434) - lu(k,1566) * lu(k,2433) - lu(k,2435) = lu(k,2435) - lu(k,1567) * lu(k,2433) - lu(k,2436) = lu(k,2436) - lu(k,1568) * lu(k,2433) - lu(k,2437) = lu(k,2437) - lu(k,1569) * lu(k,2433) - lu(k,2438) = lu(k,2438) - lu(k,1570) * lu(k,2433) - lu(k,2439) = lu(k,2439) - lu(k,1571) * lu(k,2433) - lu(k,2440) = lu(k,2440) - lu(k,1572) * lu(k,2433) - lu(k,2441) = lu(k,2441) - lu(k,1573) * lu(k,2433) - lu(k,2442) = lu(k,2442) - lu(k,1574) * lu(k,2433) - lu(k,2443) = lu(k,2443) - lu(k,1575) * lu(k,2433) - lu(k,2444) = lu(k,2444) - lu(k,1576) * lu(k,2433) - lu(k,2445) = lu(k,2445) - lu(k,1577) * lu(k,2433) - lu(k,2447) = lu(k,2447) - lu(k,1578) * lu(k,2433) + lu(k,2434) = lu(k,2434) - lu(k,1564) * lu(k,2433) + lu(k,2435) = lu(k,2435) - lu(k,1565) * lu(k,2433) + lu(k,2436) = lu(k,2436) - lu(k,1566) * lu(k,2433) + lu(k,2437) = lu(k,2437) - lu(k,1567) * lu(k,2433) + lu(k,2438) = lu(k,2438) - lu(k,1568) * lu(k,2433) + lu(k,2439) = lu(k,2439) - lu(k,1569) * lu(k,2433) + lu(k,2440) = lu(k,2440) - lu(k,1570) * lu(k,2433) + lu(k,2441) = lu(k,2441) - lu(k,1571) * lu(k,2433) + lu(k,2442) = lu(k,2442) - lu(k,1572) * lu(k,2433) + lu(k,2443) = lu(k,2443) - lu(k,1573) * lu(k,2433) + lu(k,2444) = lu(k,2444) - lu(k,1574) * lu(k,2433) + lu(k,2445) = lu(k,2445) - lu(k,1575) * lu(k,2433) + lu(k,2446) = lu(k,2446) - lu(k,1576) * lu(k,2433) + lu(k,2447) = lu(k,2447) - lu(k,1577) * lu(k,2433) + lu(k,2448) = lu(k,2448) - lu(k,1578) * lu(k,2433) lu(k,2449) = lu(k,2449) - lu(k,1579) * lu(k,2433) - lu(k,1592) = 1._r8 / lu(k,1592) - lu(k,1593) = lu(k,1593) * lu(k,1592) - lu(k,1594) = lu(k,1594) * lu(k,1592) - lu(k,1595) = lu(k,1595) * lu(k,1592) - lu(k,1596) = lu(k,1596) * lu(k,1592) - lu(k,1597) = lu(k,1597) * lu(k,1592) - lu(k,1598) = lu(k,1598) * lu(k,1592) - lu(k,1599) = lu(k,1599) * lu(k,1592) - lu(k,1600) = lu(k,1600) * lu(k,1592) - lu(k,1601) = lu(k,1601) * lu(k,1592) - lu(k,1602) = lu(k,1602) * lu(k,1592) - lu(k,1603) = lu(k,1603) * lu(k,1592) - lu(k,1604) = lu(k,1604) * lu(k,1592) - lu(k,1605) = lu(k,1605) * lu(k,1592) - lu(k,1606) = lu(k,1606) * lu(k,1592) - lu(k,1652) = lu(k,1652) - lu(k,1593) * lu(k,1651) - lu(k,1653) = lu(k,1653) - lu(k,1594) * lu(k,1651) - lu(k,1654) = lu(k,1654) - lu(k,1595) * lu(k,1651) - lu(k,1655) = lu(k,1655) - lu(k,1596) * lu(k,1651) - lu(k,1656) = lu(k,1656) - lu(k,1597) * lu(k,1651) - lu(k,1657) = lu(k,1657) - lu(k,1598) * lu(k,1651) - lu(k,1658) = lu(k,1658) - lu(k,1599) * lu(k,1651) - lu(k,1659) = lu(k,1659) - lu(k,1600) * lu(k,1651) - lu(k,1660) = lu(k,1660) - lu(k,1601) * lu(k,1651) - lu(k,1661) = lu(k,1661) - lu(k,1602) * lu(k,1651) - lu(k,1662) = lu(k,1662) - lu(k,1603) * lu(k,1651) - lu(k,1664) = lu(k,1664) - lu(k,1604) * lu(k,1651) - lu(k,1665) = lu(k,1665) - lu(k,1605) * lu(k,1651) - lu(k,1666) = lu(k,1666) - lu(k,1606) * lu(k,1651) - lu(k,1817) = lu(k,1817) - lu(k,1593) * lu(k,1816) - lu(k,1818) = lu(k,1818) - lu(k,1594) * lu(k,1816) - lu(k,1819) = lu(k,1819) - lu(k,1595) * lu(k,1816) - lu(k,1820) = lu(k,1820) - lu(k,1596) * lu(k,1816) - lu(k,1821) = lu(k,1821) - lu(k,1597) * lu(k,1816) - lu(k,1822) = lu(k,1822) - lu(k,1598) * lu(k,1816) - lu(k,1823) = lu(k,1823) - lu(k,1599) * lu(k,1816) - lu(k,1824) = lu(k,1824) - lu(k,1600) * lu(k,1816) - lu(k,1825) = lu(k,1825) - lu(k,1601) * lu(k,1816) - lu(k,1826) = lu(k,1826) - lu(k,1602) * lu(k,1816) - lu(k,1827) = lu(k,1827) - lu(k,1603) * lu(k,1816) - lu(k,1829) = lu(k,1829) - lu(k,1604) * lu(k,1816) - lu(k,1830) = lu(k,1830) - lu(k,1605) * lu(k,1816) - lu(k,1831) = lu(k,1831) - lu(k,1606) * lu(k,1816) - lu(k,1912) = lu(k,1912) - lu(k,1593) * lu(k,1911) - lu(k,1913) = lu(k,1913) - lu(k,1594) * lu(k,1911) - lu(k,1914) = lu(k,1914) - lu(k,1595) * lu(k,1911) - lu(k,1915) = lu(k,1915) - lu(k,1596) * lu(k,1911) - lu(k,1916) = lu(k,1916) - lu(k,1597) * lu(k,1911) - lu(k,1917) = lu(k,1917) - lu(k,1598) * lu(k,1911) - lu(k,1918) = lu(k,1918) - lu(k,1599) * lu(k,1911) - lu(k,1919) = lu(k,1919) - lu(k,1600) * lu(k,1911) - lu(k,1920) = lu(k,1920) - lu(k,1601) * lu(k,1911) - lu(k,1921) = lu(k,1921) - lu(k,1602) * lu(k,1911) - lu(k,1922) = lu(k,1922) - lu(k,1603) * lu(k,1911) - lu(k,1924) = lu(k,1924) - lu(k,1604) * lu(k,1911) - lu(k,1925) = lu(k,1925) - lu(k,1605) * lu(k,1911) - lu(k,1926) = lu(k,1926) - lu(k,1606) * lu(k,1911) - lu(k,1957) = lu(k,1957) - lu(k,1593) * lu(k,1956) - lu(k,1958) = lu(k,1958) - lu(k,1594) * lu(k,1956) - lu(k,1959) = lu(k,1959) - lu(k,1595) * lu(k,1956) - lu(k,1960) = lu(k,1960) - lu(k,1596) * lu(k,1956) - lu(k,1961) = lu(k,1961) - lu(k,1597) * lu(k,1956) - lu(k,1962) = lu(k,1962) - lu(k,1598) * lu(k,1956) - lu(k,1963) = lu(k,1963) - lu(k,1599) * lu(k,1956) - lu(k,1964) = lu(k,1964) - lu(k,1600) * lu(k,1956) - lu(k,1965) = lu(k,1965) - lu(k,1601) * lu(k,1956) - lu(k,1966) = lu(k,1966) - lu(k,1602) * lu(k,1956) - lu(k,1967) = lu(k,1967) - lu(k,1603) * lu(k,1956) - lu(k,1969) = lu(k,1969) - lu(k,1604) * lu(k,1956) - lu(k,1970) = lu(k,1970) - lu(k,1605) * lu(k,1956) - lu(k,1971) = lu(k,1971) - lu(k,1606) * lu(k,1956) - lu(k,1983) = lu(k,1983) - lu(k,1593) * lu(k,1982) - lu(k,1984) = lu(k,1984) - lu(k,1594) * lu(k,1982) - lu(k,1985) = lu(k,1985) - lu(k,1595) * lu(k,1982) - lu(k,1986) = lu(k,1986) - lu(k,1596) * lu(k,1982) - lu(k,1987) = lu(k,1987) - lu(k,1597) * lu(k,1982) - lu(k,1988) = lu(k,1988) - lu(k,1598) * lu(k,1982) - lu(k,1989) = lu(k,1989) - lu(k,1599) * lu(k,1982) - lu(k,1990) = lu(k,1990) - lu(k,1600) * lu(k,1982) - lu(k,1991) = lu(k,1991) - lu(k,1601) * lu(k,1982) - lu(k,1992) = lu(k,1992) - lu(k,1602) * lu(k,1982) - lu(k,1993) = lu(k,1993) - lu(k,1603) * lu(k,1982) - lu(k,1995) = lu(k,1995) - lu(k,1604) * lu(k,1982) - lu(k,1996) = lu(k,1996) - lu(k,1605) * lu(k,1982) - lu(k,1997) = lu(k,1997) - lu(k,1606) * lu(k,1982) - lu(k,2026) = lu(k,2026) - lu(k,1593) * lu(k,2025) - lu(k,2027) = lu(k,2027) - lu(k,1594) * lu(k,2025) - lu(k,2028) = lu(k,2028) - lu(k,1595) * lu(k,2025) - lu(k,2029) = lu(k,2029) - lu(k,1596) * lu(k,2025) - lu(k,2030) = lu(k,2030) - lu(k,1597) * lu(k,2025) - lu(k,2031) = lu(k,2031) - lu(k,1598) * lu(k,2025) - lu(k,2032) = lu(k,2032) - lu(k,1599) * lu(k,2025) - lu(k,2033) = lu(k,2033) - lu(k,1600) * lu(k,2025) - lu(k,2034) = lu(k,2034) - lu(k,1601) * lu(k,2025) - lu(k,2035) = lu(k,2035) - lu(k,1602) * lu(k,2025) - lu(k,2036) = lu(k,2036) - lu(k,1603) * lu(k,2025) - lu(k,2038) = lu(k,2038) - lu(k,1604) * lu(k,2025) - lu(k,2039) = lu(k,2039) - lu(k,1605) * lu(k,2025) - lu(k,2040) = lu(k,2040) - lu(k,1606) * lu(k,2025) - lu(k,2049) = lu(k,2049) - lu(k,1593) * lu(k,2048) - lu(k,2050) = lu(k,2050) - lu(k,1594) * lu(k,2048) - lu(k,2051) = lu(k,2051) - lu(k,1595) * lu(k,2048) - lu(k,2052) = lu(k,2052) - lu(k,1596) * lu(k,2048) - lu(k,2053) = lu(k,2053) - lu(k,1597) * lu(k,2048) - lu(k,2054) = lu(k,2054) - lu(k,1598) * lu(k,2048) - lu(k,2055) = lu(k,2055) - lu(k,1599) * lu(k,2048) - lu(k,2056) = lu(k,2056) - lu(k,1600) * lu(k,2048) - lu(k,2057) = lu(k,2057) - lu(k,1601) * lu(k,2048) - lu(k,2058) = lu(k,2058) - lu(k,1602) * lu(k,2048) - lu(k,2059) = lu(k,2059) - lu(k,1603) * lu(k,2048) - lu(k,2061) = lu(k,2061) - lu(k,1604) * lu(k,2048) - lu(k,2062) = lu(k,2062) - lu(k,1605) * lu(k,2048) - lu(k,2063) = lu(k,2063) - lu(k,1606) * lu(k,2048) - lu(k,2092) = lu(k,2092) - lu(k,1593) * lu(k,2091) - lu(k,2093) = lu(k,2093) - lu(k,1594) * lu(k,2091) - lu(k,2094) = lu(k,2094) - lu(k,1595) * lu(k,2091) - lu(k,2095) = lu(k,2095) - lu(k,1596) * lu(k,2091) - lu(k,2096) = lu(k,2096) - lu(k,1597) * lu(k,2091) - lu(k,2097) = lu(k,2097) - lu(k,1598) * lu(k,2091) - lu(k,2098) = lu(k,2098) - lu(k,1599) * lu(k,2091) - lu(k,2099) = lu(k,2099) - lu(k,1600) * lu(k,2091) - lu(k,2100) = lu(k,2100) - lu(k,1601) * lu(k,2091) - lu(k,2101) = lu(k,2101) - lu(k,1602) * lu(k,2091) - lu(k,2102) = lu(k,2102) - lu(k,1603) * lu(k,2091) - lu(k,2104) = lu(k,2104) - lu(k,1604) * lu(k,2091) - lu(k,2105) = lu(k,2105) - lu(k,1605) * lu(k,2091) - lu(k,2106) = lu(k,2106) - lu(k,1606) * lu(k,2091) - lu(k,2113) = lu(k,2113) - lu(k,1593) * lu(k,2112) - lu(k,2114) = lu(k,2114) - lu(k,1594) * lu(k,2112) - lu(k,2115) = lu(k,2115) - lu(k,1595) * lu(k,2112) - lu(k,2116) = lu(k,2116) - lu(k,1596) * lu(k,2112) - lu(k,2117) = lu(k,2117) - lu(k,1597) * lu(k,2112) - lu(k,2118) = lu(k,2118) - lu(k,1598) * lu(k,2112) - lu(k,2119) = lu(k,2119) - lu(k,1599) * lu(k,2112) - lu(k,2120) = lu(k,2120) - lu(k,1600) * lu(k,2112) - lu(k,2121) = lu(k,2121) - lu(k,1601) * lu(k,2112) - lu(k,2122) = lu(k,2122) - lu(k,1602) * lu(k,2112) - lu(k,2123) = lu(k,2123) - lu(k,1603) * lu(k,2112) - lu(k,2125) = lu(k,2125) - lu(k,1604) * lu(k,2112) - lu(k,2126) = lu(k,2126) - lu(k,1605) * lu(k,2112) - lu(k,2127) = lu(k,2127) - lu(k,1606) * lu(k,2112) - lu(k,2159) = lu(k,2159) - lu(k,1593) * lu(k,2158) - lu(k,2160) = lu(k,2160) - lu(k,1594) * lu(k,2158) - lu(k,2161) = lu(k,2161) - lu(k,1595) * lu(k,2158) - lu(k,2162) = lu(k,2162) - lu(k,1596) * lu(k,2158) - lu(k,2163) = lu(k,2163) - lu(k,1597) * lu(k,2158) - lu(k,2164) = lu(k,2164) - lu(k,1598) * lu(k,2158) - lu(k,2165) = lu(k,2165) - lu(k,1599) * lu(k,2158) - lu(k,2166) = lu(k,2166) - lu(k,1600) * lu(k,2158) - lu(k,2167) = lu(k,2167) - lu(k,1601) * lu(k,2158) - lu(k,2168) = lu(k,2168) - lu(k,1602) * lu(k,2158) - lu(k,2169) = lu(k,2169) - lu(k,1603) * lu(k,2158) - lu(k,2171) = lu(k,2171) - lu(k,1604) * lu(k,2158) - lu(k,2172) = lu(k,2172) - lu(k,1605) * lu(k,2158) - lu(k,2173) = lu(k,2173) - lu(k,1606) * lu(k,2158) - lu(k,2223) = lu(k,2223) - lu(k,1593) * lu(k,2222) - lu(k,2224) = lu(k,2224) - lu(k,1594) * lu(k,2222) - lu(k,2225) = lu(k,2225) - lu(k,1595) * lu(k,2222) - lu(k,2226) = lu(k,2226) - lu(k,1596) * lu(k,2222) - lu(k,2227) = lu(k,2227) - lu(k,1597) * lu(k,2222) - lu(k,2228) = lu(k,2228) - lu(k,1598) * lu(k,2222) - lu(k,2229) = lu(k,2229) - lu(k,1599) * lu(k,2222) - lu(k,2230) = lu(k,2230) - lu(k,1600) * lu(k,2222) - lu(k,2231) = lu(k,2231) - lu(k,1601) * lu(k,2222) - lu(k,2232) = lu(k,2232) - lu(k,1602) * lu(k,2222) - lu(k,2233) = lu(k,2233) - lu(k,1603) * lu(k,2222) - lu(k,2235) = lu(k,2235) - lu(k,1604) * lu(k,2222) - lu(k,2236) = lu(k,2236) - lu(k,1605) * lu(k,2222) - lu(k,2237) = lu(k,2237) - lu(k,1606) * lu(k,2222) - lu(k,2248) = lu(k,2248) - lu(k,1593) * lu(k,2247) - lu(k,2249) = lu(k,2249) - lu(k,1594) * lu(k,2247) - lu(k,2250) = lu(k,2250) - lu(k,1595) * lu(k,2247) - lu(k,2251) = lu(k,2251) - lu(k,1596) * lu(k,2247) - lu(k,2252) = lu(k,2252) - lu(k,1597) * lu(k,2247) - lu(k,2253) = lu(k,2253) - lu(k,1598) * lu(k,2247) - lu(k,2254) = lu(k,2254) - lu(k,1599) * lu(k,2247) - lu(k,2255) = lu(k,2255) - lu(k,1600) * lu(k,2247) - lu(k,2256) = lu(k,2256) - lu(k,1601) * lu(k,2247) - lu(k,2257) = lu(k,2257) - lu(k,1602) * lu(k,2247) - lu(k,2258) = lu(k,2258) - lu(k,1603) * lu(k,2247) - lu(k,2260) = lu(k,2260) - lu(k,1604) * lu(k,2247) - lu(k,2261) = lu(k,2261) - lu(k,1605) * lu(k,2247) - lu(k,2262) = lu(k,2262) - lu(k,1606) * lu(k,2247) - lu(k,2356) = lu(k,2356) - lu(k,1593) * lu(k,2355) - lu(k,2357) = lu(k,2357) - lu(k,1594) * lu(k,2355) - lu(k,2358) = lu(k,2358) - lu(k,1595) * lu(k,2355) - lu(k,2359) = lu(k,2359) - lu(k,1596) * lu(k,2355) - lu(k,2360) = lu(k,2360) - lu(k,1597) * lu(k,2355) - lu(k,2361) = lu(k,2361) - lu(k,1598) * lu(k,2355) - lu(k,2362) = lu(k,2362) - lu(k,1599) * lu(k,2355) - lu(k,2363) = lu(k,2363) - lu(k,1600) * lu(k,2355) - lu(k,2364) = lu(k,2364) - lu(k,1601) * lu(k,2355) - lu(k,2365) = lu(k,2365) - lu(k,1602) * lu(k,2355) - lu(k,2366) = lu(k,2366) - lu(k,1603) * lu(k,2355) - lu(k,2368) = lu(k,2368) - lu(k,1604) * lu(k,2355) - lu(k,2369) = lu(k,2369) - lu(k,1605) * lu(k,2355) - lu(k,2370) = lu(k,2370) - lu(k,1606) * lu(k,2355) - lu(k,2408) = lu(k,2408) - lu(k,1593) * lu(k,2407) - lu(k,2409) = lu(k,2409) - lu(k,1594) * lu(k,2407) - lu(k,2410) = lu(k,2410) - lu(k,1595) * lu(k,2407) - lu(k,2411) = lu(k,2411) - lu(k,1596) * lu(k,2407) - lu(k,2412) = lu(k,2412) - lu(k,1597) * lu(k,2407) - lu(k,2413) = lu(k,2413) - lu(k,1598) * lu(k,2407) - lu(k,2414) = lu(k,2414) - lu(k,1599) * lu(k,2407) - lu(k,2415) = lu(k,2415) - lu(k,1600) * lu(k,2407) - lu(k,2416) = lu(k,2416) - lu(k,1601) * lu(k,2407) - lu(k,2417) = lu(k,2417) - lu(k,1602) * lu(k,2407) - lu(k,2418) = lu(k,2418) - lu(k,1603) * lu(k,2407) - lu(k,2420) = lu(k,2420) - lu(k,1604) * lu(k,2407) - lu(k,2421) = lu(k,2421) - lu(k,1605) * lu(k,2407) - lu(k,2422) = lu(k,2422) - lu(k,1606) * lu(k,2407) - lu(k,2435) = lu(k,2435) - lu(k,1593) * lu(k,2434) - lu(k,2436) = lu(k,2436) - lu(k,1594) * lu(k,2434) - lu(k,2437) = lu(k,2437) - lu(k,1595) * lu(k,2434) - lu(k,2438) = lu(k,2438) - lu(k,1596) * lu(k,2434) - lu(k,2439) = lu(k,2439) - lu(k,1597) * lu(k,2434) - lu(k,2440) = lu(k,2440) - lu(k,1598) * lu(k,2434) - lu(k,2441) = lu(k,2441) - lu(k,1599) * lu(k,2434) - lu(k,2442) = lu(k,2442) - lu(k,1600) * lu(k,2434) - lu(k,2443) = lu(k,2443) - lu(k,1601) * lu(k,2434) - lu(k,2444) = lu(k,2444) - lu(k,1602) * lu(k,2434) - lu(k,2445) = lu(k,2445) - lu(k,1603) * lu(k,2434) - lu(k,2447) = lu(k,2447) - lu(k,1604) * lu(k,2434) - lu(k,2448) = lu(k,2448) - lu(k,1605) * lu(k,2434) - lu(k,2449) = lu(k,2449) - lu(k,1606) * lu(k,2434) - lu(k,1652) = 1._r8 / lu(k,1652) - lu(k,1653) = lu(k,1653) * lu(k,1652) - lu(k,1654) = lu(k,1654) * lu(k,1652) - lu(k,1655) = lu(k,1655) * lu(k,1652) - lu(k,1656) = lu(k,1656) * lu(k,1652) - lu(k,1657) = lu(k,1657) * lu(k,1652) - lu(k,1658) = lu(k,1658) * lu(k,1652) - lu(k,1659) = lu(k,1659) * lu(k,1652) - lu(k,1660) = lu(k,1660) * lu(k,1652) - lu(k,1661) = lu(k,1661) * lu(k,1652) - lu(k,1662) = lu(k,1662) * lu(k,1652) - lu(k,1663) = lu(k,1663) * lu(k,1652) - lu(k,1664) = lu(k,1664) * lu(k,1652) - lu(k,1665) = lu(k,1665) * lu(k,1652) - lu(k,1666) = lu(k,1666) * lu(k,1652) - lu(k,1818) = lu(k,1818) - lu(k,1653) * lu(k,1817) - lu(k,1819) = lu(k,1819) - lu(k,1654) * lu(k,1817) - lu(k,1820) = lu(k,1820) - lu(k,1655) * lu(k,1817) - lu(k,1821) = lu(k,1821) - lu(k,1656) * lu(k,1817) - lu(k,1822) = lu(k,1822) - lu(k,1657) * lu(k,1817) - lu(k,1823) = lu(k,1823) - lu(k,1658) * lu(k,1817) - lu(k,1824) = lu(k,1824) - lu(k,1659) * lu(k,1817) - lu(k,1825) = lu(k,1825) - lu(k,1660) * lu(k,1817) - lu(k,1826) = lu(k,1826) - lu(k,1661) * lu(k,1817) - lu(k,1827) = lu(k,1827) - lu(k,1662) * lu(k,1817) - lu(k,1828) = lu(k,1828) - lu(k,1663) * lu(k,1817) - lu(k,1829) = lu(k,1829) - lu(k,1664) * lu(k,1817) - lu(k,1830) = lu(k,1830) - lu(k,1665) * lu(k,1817) - lu(k,1831) = lu(k,1831) - lu(k,1666) * lu(k,1817) - lu(k,1913) = lu(k,1913) - lu(k,1653) * lu(k,1912) - lu(k,1914) = lu(k,1914) - lu(k,1654) * lu(k,1912) - lu(k,1915) = lu(k,1915) - lu(k,1655) * lu(k,1912) - lu(k,1916) = lu(k,1916) - lu(k,1656) * lu(k,1912) - lu(k,1917) = lu(k,1917) - lu(k,1657) * lu(k,1912) - lu(k,1918) = lu(k,1918) - lu(k,1658) * lu(k,1912) - lu(k,1919) = lu(k,1919) - lu(k,1659) * lu(k,1912) - lu(k,1920) = lu(k,1920) - lu(k,1660) * lu(k,1912) - lu(k,1921) = lu(k,1921) - lu(k,1661) * lu(k,1912) - lu(k,1922) = lu(k,1922) - lu(k,1662) * lu(k,1912) - lu(k,1923) = lu(k,1923) - lu(k,1663) * lu(k,1912) - lu(k,1924) = lu(k,1924) - lu(k,1664) * lu(k,1912) - lu(k,1925) = lu(k,1925) - lu(k,1665) * lu(k,1912) - lu(k,1926) = lu(k,1926) - lu(k,1666) * lu(k,1912) - lu(k,1958) = lu(k,1958) - lu(k,1653) * lu(k,1957) - lu(k,1959) = lu(k,1959) - lu(k,1654) * lu(k,1957) - lu(k,1960) = lu(k,1960) - lu(k,1655) * lu(k,1957) - lu(k,1961) = lu(k,1961) - lu(k,1656) * lu(k,1957) - lu(k,1962) = lu(k,1962) - lu(k,1657) * lu(k,1957) - lu(k,1963) = lu(k,1963) - lu(k,1658) * lu(k,1957) - lu(k,1964) = lu(k,1964) - lu(k,1659) * lu(k,1957) - lu(k,1965) = lu(k,1965) - lu(k,1660) * lu(k,1957) - lu(k,1966) = lu(k,1966) - lu(k,1661) * lu(k,1957) - lu(k,1967) = lu(k,1967) - lu(k,1662) * lu(k,1957) - lu(k,1968) = lu(k,1968) - lu(k,1663) * lu(k,1957) - lu(k,1969) = lu(k,1969) - lu(k,1664) * lu(k,1957) - lu(k,1970) = lu(k,1970) - lu(k,1665) * lu(k,1957) - lu(k,1971) = lu(k,1971) - lu(k,1666) * lu(k,1957) - lu(k,1984) = lu(k,1984) - lu(k,1653) * lu(k,1983) - lu(k,1985) = lu(k,1985) - lu(k,1654) * lu(k,1983) - lu(k,1986) = lu(k,1986) - lu(k,1655) * lu(k,1983) - lu(k,1987) = lu(k,1987) - lu(k,1656) * lu(k,1983) - lu(k,1988) = lu(k,1988) - lu(k,1657) * lu(k,1983) - lu(k,1989) = lu(k,1989) - lu(k,1658) * lu(k,1983) - lu(k,1990) = lu(k,1990) - lu(k,1659) * lu(k,1983) - lu(k,1991) = lu(k,1991) - lu(k,1660) * lu(k,1983) - lu(k,1992) = lu(k,1992) - lu(k,1661) * lu(k,1983) - lu(k,1993) = lu(k,1993) - lu(k,1662) * lu(k,1983) - lu(k,1994) = lu(k,1994) - lu(k,1663) * lu(k,1983) - lu(k,1995) = lu(k,1995) - lu(k,1664) * lu(k,1983) - lu(k,1996) = lu(k,1996) - lu(k,1665) * lu(k,1983) - lu(k,1997) = lu(k,1997) - lu(k,1666) * lu(k,1983) - lu(k,2027) = lu(k,2027) - lu(k,1653) * lu(k,2026) - lu(k,2028) = lu(k,2028) - lu(k,1654) * lu(k,2026) - lu(k,2029) = lu(k,2029) - lu(k,1655) * lu(k,2026) - lu(k,2030) = lu(k,2030) - lu(k,1656) * lu(k,2026) - lu(k,2031) = lu(k,2031) - lu(k,1657) * lu(k,2026) - lu(k,2032) = lu(k,2032) - lu(k,1658) * lu(k,2026) - lu(k,2033) = lu(k,2033) - lu(k,1659) * lu(k,2026) - lu(k,2034) = lu(k,2034) - lu(k,1660) * lu(k,2026) - lu(k,2035) = lu(k,2035) - lu(k,1661) * lu(k,2026) - lu(k,2036) = lu(k,2036) - lu(k,1662) * lu(k,2026) - lu(k,2037) = lu(k,2037) - lu(k,1663) * lu(k,2026) - lu(k,2038) = lu(k,2038) - lu(k,1664) * lu(k,2026) - lu(k,2039) = lu(k,2039) - lu(k,1665) * lu(k,2026) - lu(k,2040) = lu(k,2040) - lu(k,1666) * lu(k,2026) - lu(k,2050) = lu(k,2050) - lu(k,1653) * lu(k,2049) - lu(k,2051) = lu(k,2051) - lu(k,1654) * lu(k,2049) - lu(k,2052) = lu(k,2052) - lu(k,1655) * lu(k,2049) - lu(k,2053) = lu(k,2053) - lu(k,1656) * lu(k,2049) - lu(k,2054) = lu(k,2054) - lu(k,1657) * lu(k,2049) - lu(k,2055) = lu(k,2055) - lu(k,1658) * lu(k,2049) - lu(k,2056) = lu(k,2056) - lu(k,1659) * lu(k,2049) - lu(k,2057) = lu(k,2057) - lu(k,1660) * lu(k,2049) - lu(k,2058) = lu(k,2058) - lu(k,1661) * lu(k,2049) - lu(k,2059) = lu(k,2059) - lu(k,1662) * lu(k,2049) - lu(k,2060) = lu(k,2060) - lu(k,1663) * lu(k,2049) - lu(k,2061) = lu(k,2061) - lu(k,1664) * lu(k,2049) - lu(k,2062) = lu(k,2062) - lu(k,1665) * lu(k,2049) - lu(k,2063) = lu(k,2063) - lu(k,1666) * lu(k,2049) - lu(k,2093) = lu(k,2093) - lu(k,1653) * lu(k,2092) - lu(k,2094) = lu(k,2094) - lu(k,1654) * lu(k,2092) - lu(k,2095) = lu(k,2095) - lu(k,1655) * lu(k,2092) - lu(k,2096) = lu(k,2096) - lu(k,1656) * lu(k,2092) - lu(k,2097) = lu(k,2097) - lu(k,1657) * lu(k,2092) - lu(k,2098) = lu(k,2098) - lu(k,1658) * lu(k,2092) - lu(k,2099) = lu(k,2099) - lu(k,1659) * lu(k,2092) - lu(k,2100) = lu(k,2100) - lu(k,1660) * lu(k,2092) - lu(k,2101) = lu(k,2101) - lu(k,1661) * lu(k,2092) - lu(k,2102) = lu(k,2102) - lu(k,1662) * lu(k,2092) - lu(k,2103) = lu(k,2103) - lu(k,1663) * lu(k,2092) - lu(k,2104) = lu(k,2104) - lu(k,1664) * lu(k,2092) - lu(k,2105) = lu(k,2105) - lu(k,1665) * lu(k,2092) - lu(k,2106) = lu(k,2106) - lu(k,1666) * lu(k,2092) - lu(k,2114) = lu(k,2114) - lu(k,1653) * lu(k,2113) - lu(k,2115) = lu(k,2115) - lu(k,1654) * lu(k,2113) - lu(k,2116) = lu(k,2116) - lu(k,1655) * lu(k,2113) - lu(k,2117) = lu(k,2117) - lu(k,1656) * lu(k,2113) - lu(k,2118) = lu(k,2118) - lu(k,1657) * lu(k,2113) - lu(k,2119) = lu(k,2119) - lu(k,1658) * lu(k,2113) - lu(k,2120) = lu(k,2120) - lu(k,1659) * lu(k,2113) - lu(k,2121) = lu(k,2121) - lu(k,1660) * lu(k,2113) - lu(k,2122) = lu(k,2122) - lu(k,1661) * lu(k,2113) - lu(k,2123) = lu(k,2123) - lu(k,1662) * lu(k,2113) - lu(k,2124) = lu(k,2124) - lu(k,1663) * lu(k,2113) - lu(k,2125) = lu(k,2125) - lu(k,1664) * lu(k,2113) - lu(k,2126) = lu(k,2126) - lu(k,1665) * lu(k,2113) - lu(k,2127) = lu(k,2127) - lu(k,1666) * lu(k,2113) - lu(k,2160) = lu(k,2160) - lu(k,1653) * lu(k,2159) - lu(k,2161) = lu(k,2161) - lu(k,1654) * lu(k,2159) - lu(k,2162) = lu(k,2162) - lu(k,1655) * lu(k,2159) - lu(k,2163) = lu(k,2163) - lu(k,1656) * lu(k,2159) - lu(k,2164) = lu(k,2164) - lu(k,1657) * lu(k,2159) - lu(k,2165) = lu(k,2165) - lu(k,1658) * lu(k,2159) - lu(k,2166) = lu(k,2166) - lu(k,1659) * lu(k,2159) - lu(k,2167) = lu(k,2167) - lu(k,1660) * lu(k,2159) - lu(k,2168) = lu(k,2168) - lu(k,1661) * lu(k,2159) - lu(k,2169) = lu(k,2169) - lu(k,1662) * lu(k,2159) - lu(k,2170) = lu(k,2170) - lu(k,1663) * lu(k,2159) - lu(k,2171) = lu(k,2171) - lu(k,1664) * lu(k,2159) - lu(k,2172) = lu(k,2172) - lu(k,1665) * lu(k,2159) - lu(k,2173) = lu(k,2173) - lu(k,1666) * lu(k,2159) - lu(k,2224) = lu(k,2224) - lu(k,1653) * lu(k,2223) - lu(k,2225) = lu(k,2225) - lu(k,1654) * lu(k,2223) - lu(k,2226) = lu(k,2226) - lu(k,1655) * lu(k,2223) - lu(k,2227) = lu(k,2227) - lu(k,1656) * lu(k,2223) - lu(k,2228) = lu(k,2228) - lu(k,1657) * lu(k,2223) - lu(k,2229) = lu(k,2229) - lu(k,1658) * lu(k,2223) - lu(k,2230) = lu(k,2230) - lu(k,1659) * lu(k,2223) - lu(k,2231) = lu(k,2231) - lu(k,1660) * lu(k,2223) - lu(k,2232) = lu(k,2232) - lu(k,1661) * lu(k,2223) - lu(k,2233) = lu(k,2233) - lu(k,1662) * lu(k,2223) - lu(k,2234) = lu(k,2234) - lu(k,1663) * lu(k,2223) - lu(k,2235) = lu(k,2235) - lu(k,1664) * lu(k,2223) - lu(k,2236) = lu(k,2236) - lu(k,1665) * lu(k,2223) - lu(k,2237) = lu(k,2237) - lu(k,1666) * lu(k,2223) - lu(k,2249) = lu(k,2249) - lu(k,1653) * lu(k,2248) - lu(k,2250) = lu(k,2250) - lu(k,1654) * lu(k,2248) - lu(k,2251) = lu(k,2251) - lu(k,1655) * lu(k,2248) - lu(k,2252) = lu(k,2252) - lu(k,1656) * lu(k,2248) - lu(k,2253) = lu(k,2253) - lu(k,1657) * lu(k,2248) - lu(k,2254) = lu(k,2254) - lu(k,1658) * lu(k,2248) - lu(k,2255) = lu(k,2255) - lu(k,1659) * lu(k,2248) - lu(k,2256) = lu(k,2256) - lu(k,1660) * lu(k,2248) - lu(k,2257) = lu(k,2257) - lu(k,1661) * lu(k,2248) - lu(k,2258) = lu(k,2258) - lu(k,1662) * lu(k,2248) - lu(k,2259) = lu(k,2259) - lu(k,1663) * lu(k,2248) - lu(k,2260) = lu(k,2260) - lu(k,1664) * lu(k,2248) - lu(k,2261) = lu(k,2261) - lu(k,1665) * lu(k,2248) - lu(k,2262) = lu(k,2262) - lu(k,1666) * lu(k,2248) - lu(k,2357) = lu(k,2357) - lu(k,1653) * lu(k,2356) - lu(k,2358) = lu(k,2358) - lu(k,1654) * lu(k,2356) - lu(k,2359) = lu(k,2359) - lu(k,1655) * lu(k,2356) - lu(k,2360) = lu(k,2360) - lu(k,1656) * lu(k,2356) - lu(k,2361) = lu(k,2361) - lu(k,1657) * lu(k,2356) - lu(k,2362) = lu(k,2362) - lu(k,1658) * lu(k,2356) - lu(k,2363) = lu(k,2363) - lu(k,1659) * lu(k,2356) - lu(k,2364) = lu(k,2364) - lu(k,1660) * lu(k,2356) - lu(k,2365) = lu(k,2365) - lu(k,1661) * lu(k,2356) - lu(k,2366) = lu(k,2366) - lu(k,1662) * lu(k,2356) - lu(k,2367) = lu(k,2367) - lu(k,1663) * lu(k,2356) - lu(k,2368) = lu(k,2368) - lu(k,1664) * lu(k,2356) - lu(k,2369) = lu(k,2369) - lu(k,1665) * lu(k,2356) - lu(k,2370) = lu(k,2370) - lu(k,1666) * lu(k,2356) - lu(k,2409) = lu(k,2409) - lu(k,1653) * lu(k,2408) - lu(k,2410) = lu(k,2410) - lu(k,1654) * lu(k,2408) - lu(k,2411) = lu(k,2411) - lu(k,1655) * lu(k,2408) - lu(k,2412) = lu(k,2412) - lu(k,1656) * lu(k,2408) - lu(k,2413) = lu(k,2413) - lu(k,1657) * lu(k,2408) - lu(k,2414) = lu(k,2414) - lu(k,1658) * lu(k,2408) - lu(k,2415) = lu(k,2415) - lu(k,1659) * lu(k,2408) - lu(k,2416) = lu(k,2416) - lu(k,1660) * lu(k,2408) - lu(k,2417) = lu(k,2417) - lu(k,1661) * lu(k,2408) - lu(k,2418) = lu(k,2418) - lu(k,1662) * lu(k,2408) - lu(k,2419) = lu(k,2419) - lu(k,1663) * lu(k,2408) - lu(k,2420) = lu(k,2420) - lu(k,1664) * lu(k,2408) - lu(k,2421) = lu(k,2421) - lu(k,1665) * lu(k,2408) - lu(k,2422) = lu(k,2422) - lu(k,1666) * lu(k,2408) - lu(k,2436) = lu(k,2436) - lu(k,1653) * lu(k,2435) - lu(k,2437) = lu(k,2437) - lu(k,1654) * lu(k,2435) - lu(k,2438) = lu(k,2438) - lu(k,1655) * lu(k,2435) - lu(k,2439) = lu(k,2439) - lu(k,1656) * lu(k,2435) - lu(k,2440) = lu(k,2440) - lu(k,1657) * lu(k,2435) - lu(k,2441) = lu(k,2441) - lu(k,1658) * lu(k,2435) - lu(k,2442) = lu(k,2442) - lu(k,1659) * lu(k,2435) - lu(k,2443) = lu(k,2443) - lu(k,1660) * lu(k,2435) - lu(k,2444) = lu(k,2444) - lu(k,1661) * lu(k,2435) - lu(k,2445) = lu(k,2445) - lu(k,1662) * lu(k,2435) - lu(k,2446) = lu(k,2446) - lu(k,1663) * lu(k,2435) - lu(k,2447) = lu(k,2447) - lu(k,1664) * lu(k,2435) - lu(k,2448) = lu(k,2448) - lu(k,1665) * lu(k,2435) - lu(k,2449) = lu(k,2449) - lu(k,1666) * lu(k,2435) end do end subroutine lu_fac30 subroutine lu_fac31( avec_len, lu ) @@ -7903,681 +7471,782 @@ subroutine lu_fac31( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1818) = 1._r8 / lu(k,1818) - lu(k,1819) = lu(k,1819) * lu(k,1818) - lu(k,1820) = lu(k,1820) * lu(k,1818) - lu(k,1821) = lu(k,1821) * lu(k,1818) - lu(k,1822) = lu(k,1822) * lu(k,1818) - lu(k,1823) = lu(k,1823) * lu(k,1818) - lu(k,1824) = lu(k,1824) * lu(k,1818) - lu(k,1825) = lu(k,1825) * lu(k,1818) - lu(k,1826) = lu(k,1826) * lu(k,1818) - lu(k,1827) = lu(k,1827) * lu(k,1818) - lu(k,1828) = lu(k,1828) * lu(k,1818) - lu(k,1829) = lu(k,1829) * lu(k,1818) - lu(k,1830) = lu(k,1830) * lu(k,1818) - lu(k,1831) = lu(k,1831) * lu(k,1818) - lu(k,1914) = lu(k,1914) - lu(k,1819) * lu(k,1913) - lu(k,1915) = lu(k,1915) - lu(k,1820) * lu(k,1913) - lu(k,1916) = lu(k,1916) - lu(k,1821) * lu(k,1913) - lu(k,1917) = lu(k,1917) - lu(k,1822) * lu(k,1913) - lu(k,1918) = lu(k,1918) - lu(k,1823) * lu(k,1913) - lu(k,1919) = lu(k,1919) - lu(k,1824) * lu(k,1913) - lu(k,1920) = lu(k,1920) - lu(k,1825) * lu(k,1913) - lu(k,1921) = lu(k,1921) - lu(k,1826) * lu(k,1913) - lu(k,1922) = lu(k,1922) - lu(k,1827) * lu(k,1913) - lu(k,1923) = lu(k,1923) - lu(k,1828) * lu(k,1913) - lu(k,1924) = lu(k,1924) - lu(k,1829) * lu(k,1913) - lu(k,1925) = lu(k,1925) - lu(k,1830) * lu(k,1913) - lu(k,1926) = lu(k,1926) - lu(k,1831) * lu(k,1913) - lu(k,1959) = lu(k,1959) - lu(k,1819) * lu(k,1958) - lu(k,1960) = lu(k,1960) - lu(k,1820) * lu(k,1958) - lu(k,1961) = lu(k,1961) - lu(k,1821) * lu(k,1958) - lu(k,1962) = lu(k,1962) - lu(k,1822) * lu(k,1958) - lu(k,1963) = lu(k,1963) - lu(k,1823) * lu(k,1958) - lu(k,1964) = lu(k,1964) - lu(k,1824) * lu(k,1958) - lu(k,1965) = lu(k,1965) - lu(k,1825) * lu(k,1958) - lu(k,1966) = lu(k,1966) - lu(k,1826) * lu(k,1958) - lu(k,1967) = lu(k,1967) - lu(k,1827) * lu(k,1958) - lu(k,1968) = lu(k,1968) - lu(k,1828) * lu(k,1958) - lu(k,1969) = lu(k,1969) - lu(k,1829) * lu(k,1958) - lu(k,1970) = lu(k,1970) - lu(k,1830) * lu(k,1958) - lu(k,1971) = lu(k,1971) - lu(k,1831) * lu(k,1958) - lu(k,1985) = lu(k,1985) - lu(k,1819) * lu(k,1984) - lu(k,1986) = lu(k,1986) - lu(k,1820) * lu(k,1984) - lu(k,1987) = lu(k,1987) - lu(k,1821) * lu(k,1984) - lu(k,1988) = lu(k,1988) - lu(k,1822) * lu(k,1984) - lu(k,1989) = lu(k,1989) - lu(k,1823) * lu(k,1984) - lu(k,1990) = lu(k,1990) - lu(k,1824) * lu(k,1984) - lu(k,1991) = lu(k,1991) - lu(k,1825) * lu(k,1984) - lu(k,1992) = lu(k,1992) - lu(k,1826) * lu(k,1984) - lu(k,1993) = lu(k,1993) - lu(k,1827) * lu(k,1984) - lu(k,1994) = lu(k,1994) - lu(k,1828) * lu(k,1984) - lu(k,1995) = lu(k,1995) - lu(k,1829) * lu(k,1984) - lu(k,1996) = lu(k,1996) - lu(k,1830) * lu(k,1984) - lu(k,1997) = lu(k,1997) - lu(k,1831) * lu(k,1984) - lu(k,2028) = lu(k,2028) - lu(k,1819) * lu(k,2027) - lu(k,2029) = lu(k,2029) - lu(k,1820) * lu(k,2027) - lu(k,2030) = lu(k,2030) - lu(k,1821) * lu(k,2027) - lu(k,2031) = lu(k,2031) - lu(k,1822) * lu(k,2027) - lu(k,2032) = lu(k,2032) - lu(k,1823) * lu(k,2027) - lu(k,2033) = lu(k,2033) - lu(k,1824) * lu(k,2027) - lu(k,2034) = lu(k,2034) - lu(k,1825) * lu(k,2027) - lu(k,2035) = lu(k,2035) - lu(k,1826) * lu(k,2027) - lu(k,2036) = lu(k,2036) - lu(k,1827) * lu(k,2027) - lu(k,2037) = lu(k,2037) - lu(k,1828) * lu(k,2027) - lu(k,2038) = lu(k,2038) - lu(k,1829) * lu(k,2027) - lu(k,2039) = lu(k,2039) - lu(k,1830) * lu(k,2027) - lu(k,2040) = lu(k,2040) - lu(k,1831) * lu(k,2027) - lu(k,2051) = lu(k,2051) - lu(k,1819) * lu(k,2050) - lu(k,2052) = lu(k,2052) - lu(k,1820) * lu(k,2050) - lu(k,2053) = lu(k,2053) - lu(k,1821) * lu(k,2050) - lu(k,2054) = lu(k,2054) - lu(k,1822) * lu(k,2050) - lu(k,2055) = lu(k,2055) - lu(k,1823) * lu(k,2050) - lu(k,2056) = lu(k,2056) - lu(k,1824) * lu(k,2050) - lu(k,2057) = lu(k,2057) - lu(k,1825) * lu(k,2050) - lu(k,2058) = lu(k,2058) - lu(k,1826) * lu(k,2050) - lu(k,2059) = lu(k,2059) - lu(k,1827) * lu(k,2050) - lu(k,2060) = lu(k,2060) - lu(k,1828) * lu(k,2050) - lu(k,2061) = lu(k,2061) - lu(k,1829) * lu(k,2050) - lu(k,2062) = lu(k,2062) - lu(k,1830) * lu(k,2050) - lu(k,2063) = lu(k,2063) - lu(k,1831) * lu(k,2050) - lu(k,2094) = lu(k,2094) - lu(k,1819) * lu(k,2093) - lu(k,2095) = lu(k,2095) - lu(k,1820) * lu(k,2093) - lu(k,2096) = lu(k,2096) - lu(k,1821) * lu(k,2093) - lu(k,2097) = lu(k,2097) - lu(k,1822) * lu(k,2093) - lu(k,2098) = lu(k,2098) - lu(k,1823) * lu(k,2093) - lu(k,2099) = lu(k,2099) - lu(k,1824) * lu(k,2093) - lu(k,2100) = lu(k,2100) - lu(k,1825) * lu(k,2093) - lu(k,2101) = lu(k,2101) - lu(k,1826) * lu(k,2093) - lu(k,2102) = lu(k,2102) - lu(k,1827) * lu(k,2093) - lu(k,2103) = lu(k,2103) - lu(k,1828) * lu(k,2093) - lu(k,2104) = lu(k,2104) - lu(k,1829) * lu(k,2093) - lu(k,2105) = lu(k,2105) - lu(k,1830) * lu(k,2093) - lu(k,2106) = lu(k,2106) - lu(k,1831) * lu(k,2093) - lu(k,2115) = lu(k,2115) - lu(k,1819) * lu(k,2114) - lu(k,2116) = lu(k,2116) - lu(k,1820) * lu(k,2114) - lu(k,2117) = lu(k,2117) - lu(k,1821) * lu(k,2114) - lu(k,2118) = lu(k,2118) - lu(k,1822) * lu(k,2114) - lu(k,2119) = lu(k,2119) - lu(k,1823) * lu(k,2114) - lu(k,2120) = lu(k,2120) - lu(k,1824) * lu(k,2114) - lu(k,2121) = lu(k,2121) - lu(k,1825) * lu(k,2114) - lu(k,2122) = lu(k,2122) - lu(k,1826) * lu(k,2114) - lu(k,2123) = lu(k,2123) - lu(k,1827) * lu(k,2114) - lu(k,2124) = lu(k,2124) - lu(k,1828) * lu(k,2114) - lu(k,2125) = lu(k,2125) - lu(k,1829) * lu(k,2114) - lu(k,2126) = lu(k,2126) - lu(k,1830) * lu(k,2114) - lu(k,2127) = lu(k,2127) - lu(k,1831) * lu(k,2114) - lu(k,2161) = lu(k,2161) - lu(k,1819) * lu(k,2160) - lu(k,2162) = lu(k,2162) - lu(k,1820) * lu(k,2160) - lu(k,2163) = lu(k,2163) - lu(k,1821) * lu(k,2160) - lu(k,2164) = lu(k,2164) - lu(k,1822) * lu(k,2160) - lu(k,2165) = lu(k,2165) - lu(k,1823) * lu(k,2160) - lu(k,2166) = lu(k,2166) - lu(k,1824) * lu(k,2160) - lu(k,2167) = lu(k,2167) - lu(k,1825) * lu(k,2160) - lu(k,2168) = lu(k,2168) - lu(k,1826) * lu(k,2160) - lu(k,2169) = lu(k,2169) - lu(k,1827) * lu(k,2160) - lu(k,2170) = lu(k,2170) - lu(k,1828) * lu(k,2160) - lu(k,2171) = lu(k,2171) - lu(k,1829) * lu(k,2160) - lu(k,2172) = lu(k,2172) - lu(k,1830) * lu(k,2160) - lu(k,2173) = lu(k,2173) - lu(k,1831) * lu(k,2160) - lu(k,2225) = lu(k,2225) - lu(k,1819) * lu(k,2224) - lu(k,2226) = lu(k,2226) - lu(k,1820) * lu(k,2224) - lu(k,2227) = lu(k,2227) - lu(k,1821) * lu(k,2224) - lu(k,2228) = lu(k,2228) - lu(k,1822) * lu(k,2224) - lu(k,2229) = lu(k,2229) - lu(k,1823) * lu(k,2224) - lu(k,2230) = lu(k,2230) - lu(k,1824) * lu(k,2224) - lu(k,2231) = lu(k,2231) - lu(k,1825) * lu(k,2224) - lu(k,2232) = lu(k,2232) - lu(k,1826) * lu(k,2224) - lu(k,2233) = lu(k,2233) - lu(k,1827) * lu(k,2224) - lu(k,2234) = lu(k,2234) - lu(k,1828) * lu(k,2224) - lu(k,2235) = lu(k,2235) - lu(k,1829) * lu(k,2224) - lu(k,2236) = lu(k,2236) - lu(k,1830) * lu(k,2224) - lu(k,2237) = lu(k,2237) - lu(k,1831) * lu(k,2224) - lu(k,2250) = lu(k,2250) - lu(k,1819) * lu(k,2249) - lu(k,2251) = lu(k,2251) - lu(k,1820) * lu(k,2249) - lu(k,2252) = lu(k,2252) - lu(k,1821) * lu(k,2249) - lu(k,2253) = lu(k,2253) - lu(k,1822) * lu(k,2249) - lu(k,2254) = lu(k,2254) - lu(k,1823) * lu(k,2249) - lu(k,2255) = lu(k,2255) - lu(k,1824) * lu(k,2249) - lu(k,2256) = lu(k,2256) - lu(k,1825) * lu(k,2249) - lu(k,2257) = lu(k,2257) - lu(k,1826) * lu(k,2249) - lu(k,2258) = lu(k,2258) - lu(k,1827) * lu(k,2249) - lu(k,2259) = lu(k,2259) - lu(k,1828) * lu(k,2249) - lu(k,2260) = lu(k,2260) - lu(k,1829) * lu(k,2249) - lu(k,2261) = lu(k,2261) - lu(k,1830) * lu(k,2249) - lu(k,2262) = lu(k,2262) - lu(k,1831) * lu(k,2249) - lu(k,2358) = lu(k,2358) - lu(k,1819) * lu(k,2357) - lu(k,2359) = lu(k,2359) - lu(k,1820) * lu(k,2357) - lu(k,2360) = lu(k,2360) - lu(k,1821) * lu(k,2357) - lu(k,2361) = lu(k,2361) - lu(k,1822) * lu(k,2357) - lu(k,2362) = lu(k,2362) - lu(k,1823) * lu(k,2357) - lu(k,2363) = lu(k,2363) - lu(k,1824) * lu(k,2357) - lu(k,2364) = lu(k,2364) - lu(k,1825) * lu(k,2357) - lu(k,2365) = lu(k,2365) - lu(k,1826) * lu(k,2357) - lu(k,2366) = lu(k,2366) - lu(k,1827) * lu(k,2357) - lu(k,2367) = lu(k,2367) - lu(k,1828) * lu(k,2357) - lu(k,2368) = lu(k,2368) - lu(k,1829) * lu(k,2357) - lu(k,2369) = lu(k,2369) - lu(k,1830) * lu(k,2357) - lu(k,2370) = lu(k,2370) - lu(k,1831) * lu(k,2357) - lu(k,2410) = lu(k,2410) - lu(k,1819) * lu(k,2409) - lu(k,2411) = lu(k,2411) - lu(k,1820) * lu(k,2409) - lu(k,2412) = lu(k,2412) - lu(k,1821) * lu(k,2409) - lu(k,2413) = lu(k,2413) - lu(k,1822) * lu(k,2409) - lu(k,2414) = lu(k,2414) - lu(k,1823) * lu(k,2409) - lu(k,2415) = lu(k,2415) - lu(k,1824) * lu(k,2409) - lu(k,2416) = lu(k,2416) - lu(k,1825) * lu(k,2409) - lu(k,2417) = lu(k,2417) - lu(k,1826) * lu(k,2409) - lu(k,2418) = lu(k,2418) - lu(k,1827) * lu(k,2409) - lu(k,2419) = lu(k,2419) - lu(k,1828) * lu(k,2409) - lu(k,2420) = lu(k,2420) - lu(k,1829) * lu(k,2409) - lu(k,2421) = lu(k,2421) - lu(k,1830) * lu(k,2409) - lu(k,2422) = lu(k,2422) - lu(k,1831) * lu(k,2409) - lu(k,2437) = lu(k,2437) - lu(k,1819) * lu(k,2436) - lu(k,2438) = lu(k,2438) - lu(k,1820) * lu(k,2436) - lu(k,2439) = lu(k,2439) - lu(k,1821) * lu(k,2436) - lu(k,2440) = lu(k,2440) - lu(k,1822) * lu(k,2436) - lu(k,2441) = lu(k,2441) - lu(k,1823) * lu(k,2436) - lu(k,2442) = lu(k,2442) - lu(k,1824) * lu(k,2436) - lu(k,2443) = lu(k,2443) - lu(k,1825) * lu(k,2436) - lu(k,2444) = lu(k,2444) - lu(k,1826) * lu(k,2436) - lu(k,2445) = lu(k,2445) - lu(k,1827) * lu(k,2436) - lu(k,2446) = lu(k,2446) - lu(k,1828) * lu(k,2436) - lu(k,2447) = lu(k,2447) - lu(k,1829) * lu(k,2436) - lu(k,2448) = lu(k,2448) - lu(k,1830) * lu(k,2436) - lu(k,2449) = lu(k,2449) - lu(k,1831) * lu(k,2436) - lu(k,1914) = 1._r8 / lu(k,1914) - lu(k,1915) = lu(k,1915) * lu(k,1914) - lu(k,1916) = lu(k,1916) * lu(k,1914) - lu(k,1917) = lu(k,1917) * lu(k,1914) - lu(k,1918) = lu(k,1918) * lu(k,1914) - lu(k,1919) = lu(k,1919) * lu(k,1914) - lu(k,1920) = lu(k,1920) * lu(k,1914) - lu(k,1921) = lu(k,1921) * lu(k,1914) - lu(k,1922) = lu(k,1922) * lu(k,1914) - lu(k,1923) = lu(k,1923) * lu(k,1914) - lu(k,1924) = lu(k,1924) * lu(k,1914) - lu(k,1925) = lu(k,1925) * lu(k,1914) - lu(k,1926) = lu(k,1926) * lu(k,1914) - lu(k,1960) = lu(k,1960) - lu(k,1915) * lu(k,1959) - lu(k,1961) = lu(k,1961) - lu(k,1916) * lu(k,1959) - lu(k,1962) = lu(k,1962) - lu(k,1917) * lu(k,1959) - lu(k,1963) = lu(k,1963) - lu(k,1918) * lu(k,1959) - lu(k,1964) = lu(k,1964) - lu(k,1919) * lu(k,1959) - lu(k,1965) = lu(k,1965) - lu(k,1920) * lu(k,1959) - lu(k,1966) = lu(k,1966) - lu(k,1921) * lu(k,1959) - lu(k,1967) = lu(k,1967) - lu(k,1922) * lu(k,1959) - lu(k,1968) = lu(k,1968) - lu(k,1923) * lu(k,1959) - lu(k,1969) = lu(k,1969) - lu(k,1924) * lu(k,1959) - lu(k,1970) = lu(k,1970) - lu(k,1925) * lu(k,1959) - lu(k,1971) = lu(k,1971) - lu(k,1926) * lu(k,1959) - lu(k,1986) = lu(k,1986) - lu(k,1915) * lu(k,1985) - lu(k,1987) = lu(k,1987) - lu(k,1916) * lu(k,1985) - lu(k,1988) = lu(k,1988) - lu(k,1917) * lu(k,1985) - lu(k,1989) = lu(k,1989) - lu(k,1918) * lu(k,1985) - lu(k,1990) = lu(k,1990) - lu(k,1919) * lu(k,1985) - lu(k,1991) = lu(k,1991) - lu(k,1920) * lu(k,1985) - lu(k,1992) = lu(k,1992) - lu(k,1921) * lu(k,1985) - lu(k,1993) = lu(k,1993) - lu(k,1922) * lu(k,1985) - lu(k,1994) = lu(k,1994) - lu(k,1923) * lu(k,1985) - lu(k,1995) = lu(k,1995) - lu(k,1924) * lu(k,1985) - lu(k,1996) = lu(k,1996) - lu(k,1925) * lu(k,1985) - lu(k,1997) = lu(k,1997) - lu(k,1926) * lu(k,1985) - lu(k,2029) = lu(k,2029) - lu(k,1915) * lu(k,2028) - lu(k,2030) = lu(k,2030) - lu(k,1916) * lu(k,2028) - lu(k,2031) = lu(k,2031) - lu(k,1917) * lu(k,2028) - lu(k,2032) = lu(k,2032) - lu(k,1918) * lu(k,2028) - lu(k,2033) = lu(k,2033) - lu(k,1919) * lu(k,2028) - lu(k,2034) = lu(k,2034) - lu(k,1920) * lu(k,2028) - lu(k,2035) = lu(k,2035) - lu(k,1921) * lu(k,2028) - lu(k,2036) = lu(k,2036) - lu(k,1922) * lu(k,2028) - lu(k,2037) = lu(k,2037) - lu(k,1923) * lu(k,2028) - lu(k,2038) = lu(k,2038) - lu(k,1924) * lu(k,2028) - lu(k,2039) = lu(k,2039) - lu(k,1925) * lu(k,2028) - lu(k,2040) = lu(k,2040) - lu(k,1926) * lu(k,2028) - lu(k,2052) = lu(k,2052) - lu(k,1915) * lu(k,2051) - lu(k,2053) = lu(k,2053) - lu(k,1916) * lu(k,2051) - lu(k,2054) = lu(k,2054) - lu(k,1917) * lu(k,2051) - lu(k,2055) = lu(k,2055) - lu(k,1918) * lu(k,2051) - lu(k,2056) = lu(k,2056) - lu(k,1919) * lu(k,2051) - lu(k,2057) = lu(k,2057) - lu(k,1920) * lu(k,2051) - lu(k,2058) = lu(k,2058) - lu(k,1921) * lu(k,2051) - lu(k,2059) = lu(k,2059) - lu(k,1922) * lu(k,2051) - lu(k,2060) = lu(k,2060) - lu(k,1923) * lu(k,2051) - lu(k,2061) = lu(k,2061) - lu(k,1924) * lu(k,2051) - lu(k,2062) = lu(k,2062) - lu(k,1925) * lu(k,2051) - lu(k,2063) = lu(k,2063) - lu(k,1926) * lu(k,2051) - lu(k,2095) = lu(k,2095) - lu(k,1915) * lu(k,2094) - lu(k,2096) = lu(k,2096) - lu(k,1916) * lu(k,2094) - lu(k,2097) = lu(k,2097) - lu(k,1917) * lu(k,2094) - lu(k,2098) = lu(k,2098) - lu(k,1918) * lu(k,2094) - lu(k,2099) = lu(k,2099) - lu(k,1919) * lu(k,2094) - lu(k,2100) = lu(k,2100) - lu(k,1920) * lu(k,2094) - lu(k,2101) = lu(k,2101) - lu(k,1921) * lu(k,2094) - lu(k,2102) = lu(k,2102) - lu(k,1922) * lu(k,2094) - lu(k,2103) = lu(k,2103) - lu(k,1923) * lu(k,2094) - lu(k,2104) = lu(k,2104) - lu(k,1924) * lu(k,2094) - lu(k,2105) = lu(k,2105) - lu(k,1925) * lu(k,2094) - lu(k,2106) = lu(k,2106) - lu(k,1926) * lu(k,2094) - lu(k,2116) = lu(k,2116) - lu(k,1915) * lu(k,2115) - lu(k,2117) = lu(k,2117) - lu(k,1916) * lu(k,2115) - lu(k,2118) = lu(k,2118) - lu(k,1917) * lu(k,2115) - lu(k,2119) = lu(k,2119) - lu(k,1918) * lu(k,2115) - lu(k,2120) = lu(k,2120) - lu(k,1919) * lu(k,2115) - lu(k,2121) = lu(k,2121) - lu(k,1920) * lu(k,2115) - lu(k,2122) = lu(k,2122) - lu(k,1921) * lu(k,2115) - lu(k,2123) = lu(k,2123) - lu(k,1922) * lu(k,2115) - lu(k,2124) = lu(k,2124) - lu(k,1923) * lu(k,2115) - lu(k,2125) = lu(k,2125) - lu(k,1924) * lu(k,2115) - lu(k,2126) = lu(k,2126) - lu(k,1925) * lu(k,2115) - lu(k,2127) = lu(k,2127) - lu(k,1926) * lu(k,2115) - lu(k,2162) = lu(k,2162) - lu(k,1915) * lu(k,2161) - lu(k,2163) = lu(k,2163) - lu(k,1916) * lu(k,2161) - lu(k,2164) = lu(k,2164) - lu(k,1917) * lu(k,2161) - lu(k,2165) = lu(k,2165) - lu(k,1918) * lu(k,2161) - lu(k,2166) = lu(k,2166) - lu(k,1919) * lu(k,2161) - lu(k,2167) = lu(k,2167) - lu(k,1920) * lu(k,2161) - lu(k,2168) = lu(k,2168) - lu(k,1921) * lu(k,2161) - lu(k,2169) = lu(k,2169) - lu(k,1922) * lu(k,2161) - lu(k,2170) = lu(k,2170) - lu(k,1923) * lu(k,2161) - lu(k,2171) = lu(k,2171) - lu(k,1924) * lu(k,2161) - lu(k,2172) = lu(k,2172) - lu(k,1925) * lu(k,2161) - lu(k,2173) = lu(k,2173) - lu(k,1926) * lu(k,2161) - lu(k,2226) = lu(k,2226) - lu(k,1915) * lu(k,2225) - lu(k,2227) = lu(k,2227) - lu(k,1916) * lu(k,2225) - lu(k,2228) = lu(k,2228) - lu(k,1917) * lu(k,2225) - lu(k,2229) = lu(k,2229) - lu(k,1918) * lu(k,2225) - lu(k,2230) = lu(k,2230) - lu(k,1919) * lu(k,2225) - lu(k,2231) = lu(k,2231) - lu(k,1920) * lu(k,2225) - lu(k,2232) = lu(k,2232) - lu(k,1921) * lu(k,2225) - lu(k,2233) = lu(k,2233) - lu(k,1922) * lu(k,2225) - lu(k,2234) = lu(k,2234) - lu(k,1923) * lu(k,2225) - lu(k,2235) = lu(k,2235) - lu(k,1924) * lu(k,2225) - lu(k,2236) = lu(k,2236) - lu(k,1925) * lu(k,2225) - lu(k,2237) = lu(k,2237) - lu(k,1926) * lu(k,2225) - lu(k,2251) = lu(k,2251) - lu(k,1915) * lu(k,2250) - lu(k,2252) = lu(k,2252) - lu(k,1916) * lu(k,2250) - lu(k,2253) = lu(k,2253) - lu(k,1917) * lu(k,2250) - lu(k,2254) = lu(k,2254) - lu(k,1918) * lu(k,2250) - lu(k,2255) = lu(k,2255) - lu(k,1919) * lu(k,2250) - lu(k,2256) = lu(k,2256) - lu(k,1920) * lu(k,2250) - lu(k,2257) = lu(k,2257) - lu(k,1921) * lu(k,2250) - lu(k,2258) = lu(k,2258) - lu(k,1922) * lu(k,2250) - lu(k,2259) = lu(k,2259) - lu(k,1923) * lu(k,2250) - lu(k,2260) = lu(k,2260) - lu(k,1924) * lu(k,2250) - lu(k,2261) = lu(k,2261) - lu(k,1925) * lu(k,2250) - lu(k,2262) = lu(k,2262) - lu(k,1926) * lu(k,2250) - lu(k,2359) = lu(k,2359) - lu(k,1915) * lu(k,2358) - lu(k,2360) = lu(k,2360) - lu(k,1916) * lu(k,2358) - lu(k,2361) = lu(k,2361) - lu(k,1917) * lu(k,2358) - lu(k,2362) = lu(k,2362) - lu(k,1918) * lu(k,2358) - lu(k,2363) = lu(k,2363) - lu(k,1919) * lu(k,2358) - lu(k,2364) = lu(k,2364) - lu(k,1920) * lu(k,2358) - lu(k,2365) = lu(k,2365) - lu(k,1921) * lu(k,2358) - lu(k,2366) = lu(k,2366) - lu(k,1922) * lu(k,2358) - lu(k,2367) = lu(k,2367) - lu(k,1923) * lu(k,2358) - lu(k,2368) = lu(k,2368) - lu(k,1924) * lu(k,2358) - lu(k,2369) = lu(k,2369) - lu(k,1925) * lu(k,2358) - lu(k,2370) = lu(k,2370) - lu(k,1926) * lu(k,2358) - lu(k,2411) = lu(k,2411) - lu(k,1915) * lu(k,2410) - lu(k,2412) = lu(k,2412) - lu(k,1916) * lu(k,2410) - lu(k,2413) = lu(k,2413) - lu(k,1917) * lu(k,2410) - lu(k,2414) = lu(k,2414) - lu(k,1918) * lu(k,2410) - lu(k,2415) = lu(k,2415) - lu(k,1919) * lu(k,2410) - lu(k,2416) = lu(k,2416) - lu(k,1920) * lu(k,2410) - lu(k,2417) = lu(k,2417) - lu(k,1921) * lu(k,2410) - lu(k,2418) = lu(k,2418) - lu(k,1922) * lu(k,2410) - lu(k,2419) = lu(k,2419) - lu(k,1923) * lu(k,2410) - lu(k,2420) = lu(k,2420) - lu(k,1924) * lu(k,2410) - lu(k,2421) = lu(k,2421) - lu(k,1925) * lu(k,2410) - lu(k,2422) = lu(k,2422) - lu(k,1926) * lu(k,2410) - lu(k,2438) = lu(k,2438) - lu(k,1915) * lu(k,2437) - lu(k,2439) = lu(k,2439) - lu(k,1916) * lu(k,2437) - lu(k,2440) = lu(k,2440) - lu(k,1917) * lu(k,2437) - lu(k,2441) = lu(k,2441) - lu(k,1918) * lu(k,2437) - lu(k,2442) = lu(k,2442) - lu(k,1919) * lu(k,2437) - lu(k,2443) = lu(k,2443) - lu(k,1920) * lu(k,2437) - lu(k,2444) = lu(k,2444) - lu(k,1921) * lu(k,2437) - lu(k,2445) = lu(k,2445) - lu(k,1922) * lu(k,2437) - lu(k,2446) = lu(k,2446) - lu(k,1923) * lu(k,2437) - lu(k,2447) = lu(k,2447) - lu(k,1924) * lu(k,2437) - lu(k,2448) = lu(k,2448) - lu(k,1925) * lu(k,2437) - lu(k,2449) = lu(k,2449) - lu(k,1926) * lu(k,2437) - lu(k,1960) = 1._r8 / lu(k,1960) - lu(k,1961) = lu(k,1961) * lu(k,1960) - lu(k,1962) = lu(k,1962) * lu(k,1960) - lu(k,1963) = lu(k,1963) * lu(k,1960) - lu(k,1964) = lu(k,1964) * lu(k,1960) - lu(k,1965) = lu(k,1965) * lu(k,1960) - lu(k,1966) = lu(k,1966) * lu(k,1960) - lu(k,1967) = lu(k,1967) * lu(k,1960) - lu(k,1968) = lu(k,1968) * lu(k,1960) - lu(k,1969) = lu(k,1969) * lu(k,1960) - lu(k,1970) = lu(k,1970) * lu(k,1960) - lu(k,1971) = lu(k,1971) * lu(k,1960) - lu(k,1987) = lu(k,1987) - lu(k,1961) * lu(k,1986) - lu(k,1988) = lu(k,1988) - lu(k,1962) * lu(k,1986) - lu(k,1989) = lu(k,1989) - lu(k,1963) * lu(k,1986) - lu(k,1990) = lu(k,1990) - lu(k,1964) * lu(k,1986) - lu(k,1991) = lu(k,1991) - lu(k,1965) * lu(k,1986) - lu(k,1992) = lu(k,1992) - lu(k,1966) * lu(k,1986) - lu(k,1993) = lu(k,1993) - lu(k,1967) * lu(k,1986) - lu(k,1994) = lu(k,1994) - lu(k,1968) * lu(k,1986) - lu(k,1995) = lu(k,1995) - lu(k,1969) * lu(k,1986) - lu(k,1996) = lu(k,1996) - lu(k,1970) * lu(k,1986) - lu(k,1997) = lu(k,1997) - lu(k,1971) * lu(k,1986) - lu(k,2030) = lu(k,2030) - lu(k,1961) * lu(k,2029) - lu(k,2031) = lu(k,2031) - lu(k,1962) * lu(k,2029) - lu(k,2032) = lu(k,2032) - lu(k,1963) * lu(k,2029) - lu(k,2033) = lu(k,2033) - lu(k,1964) * lu(k,2029) - lu(k,2034) = lu(k,2034) - lu(k,1965) * lu(k,2029) - lu(k,2035) = lu(k,2035) - lu(k,1966) * lu(k,2029) - lu(k,2036) = lu(k,2036) - lu(k,1967) * lu(k,2029) - lu(k,2037) = lu(k,2037) - lu(k,1968) * lu(k,2029) - lu(k,2038) = lu(k,2038) - lu(k,1969) * lu(k,2029) - lu(k,2039) = lu(k,2039) - lu(k,1970) * lu(k,2029) - lu(k,2040) = lu(k,2040) - lu(k,1971) * lu(k,2029) - lu(k,2053) = lu(k,2053) - lu(k,1961) * lu(k,2052) - lu(k,2054) = lu(k,2054) - lu(k,1962) * lu(k,2052) - lu(k,2055) = lu(k,2055) - lu(k,1963) * lu(k,2052) - lu(k,2056) = lu(k,2056) - lu(k,1964) * lu(k,2052) - lu(k,2057) = lu(k,2057) - lu(k,1965) * lu(k,2052) - lu(k,2058) = lu(k,2058) - lu(k,1966) * lu(k,2052) - lu(k,2059) = lu(k,2059) - lu(k,1967) * lu(k,2052) - lu(k,2060) = lu(k,2060) - lu(k,1968) * lu(k,2052) - lu(k,2061) = lu(k,2061) - lu(k,1969) * lu(k,2052) - lu(k,2062) = lu(k,2062) - lu(k,1970) * lu(k,2052) - lu(k,2063) = lu(k,2063) - lu(k,1971) * lu(k,2052) - lu(k,2096) = lu(k,2096) - lu(k,1961) * lu(k,2095) - lu(k,2097) = lu(k,2097) - lu(k,1962) * lu(k,2095) - lu(k,2098) = lu(k,2098) - lu(k,1963) * lu(k,2095) - lu(k,2099) = lu(k,2099) - lu(k,1964) * lu(k,2095) - lu(k,2100) = lu(k,2100) - lu(k,1965) * lu(k,2095) - lu(k,2101) = lu(k,2101) - lu(k,1966) * lu(k,2095) - lu(k,2102) = lu(k,2102) - lu(k,1967) * lu(k,2095) - lu(k,2103) = lu(k,2103) - lu(k,1968) * lu(k,2095) - lu(k,2104) = lu(k,2104) - lu(k,1969) * lu(k,2095) - lu(k,2105) = lu(k,2105) - lu(k,1970) * lu(k,2095) - lu(k,2106) = lu(k,2106) - lu(k,1971) * lu(k,2095) - lu(k,2117) = lu(k,2117) - lu(k,1961) * lu(k,2116) - lu(k,2118) = lu(k,2118) - lu(k,1962) * lu(k,2116) - lu(k,2119) = lu(k,2119) - lu(k,1963) * lu(k,2116) - lu(k,2120) = lu(k,2120) - lu(k,1964) * lu(k,2116) - lu(k,2121) = lu(k,2121) - lu(k,1965) * lu(k,2116) - lu(k,2122) = lu(k,2122) - lu(k,1966) * lu(k,2116) - lu(k,2123) = lu(k,2123) - lu(k,1967) * lu(k,2116) - lu(k,2124) = lu(k,2124) - lu(k,1968) * lu(k,2116) - lu(k,2125) = lu(k,2125) - lu(k,1969) * lu(k,2116) - lu(k,2126) = lu(k,2126) - lu(k,1970) * lu(k,2116) - lu(k,2127) = lu(k,2127) - lu(k,1971) * lu(k,2116) - lu(k,2163) = lu(k,2163) - lu(k,1961) * lu(k,2162) - lu(k,2164) = lu(k,2164) - lu(k,1962) * lu(k,2162) - lu(k,2165) = lu(k,2165) - lu(k,1963) * lu(k,2162) - lu(k,2166) = lu(k,2166) - lu(k,1964) * lu(k,2162) - lu(k,2167) = lu(k,2167) - lu(k,1965) * lu(k,2162) - lu(k,2168) = lu(k,2168) - lu(k,1966) * lu(k,2162) - lu(k,2169) = lu(k,2169) - lu(k,1967) * lu(k,2162) - lu(k,2170) = lu(k,2170) - lu(k,1968) * lu(k,2162) - lu(k,2171) = lu(k,2171) - lu(k,1969) * lu(k,2162) - lu(k,2172) = lu(k,2172) - lu(k,1970) * lu(k,2162) - lu(k,2173) = lu(k,2173) - lu(k,1971) * lu(k,2162) - lu(k,2227) = lu(k,2227) - lu(k,1961) * lu(k,2226) - lu(k,2228) = lu(k,2228) - lu(k,1962) * lu(k,2226) - lu(k,2229) = lu(k,2229) - lu(k,1963) * lu(k,2226) - lu(k,2230) = lu(k,2230) - lu(k,1964) * lu(k,2226) - lu(k,2231) = lu(k,2231) - lu(k,1965) * lu(k,2226) - lu(k,2232) = lu(k,2232) - lu(k,1966) * lu(k,2226) - lu(k,2233) = lu(k,2233) - lu(k,1967) * lu(k,2226) - lu(k,2234) = lu(k,2234) - lu(k,1968) * lu(k,2226) - lu(k,2235) = lu(k,2235) - lu(k,1969) * lu(k,2226) - lu(k,2236) = lu(k,2236) - lu(k,1970) * lu(k,2226) - lu(k,2237) = lu(k,2237) - lu(k,1971) * lu(k,2226) - lu(k,2252) = lu(k,2252) - lu(k,1961) * lu(k,2251) - lu(k,2253) = lu(k,2253) - lu(k,1962) * lu(k,2251) - lu(k,2254) = lu(k,2254) - lu(k,1963) * lu(k,2251) - lu(k,2255) = lu(k,2255) - lu(k,1964) * lu(k,2251) - lu(k,2256) = lu(k,2256) - lu(k,1965) * lu(k,2251) - lu(k,2257) = lu(k,2257) - lu(k,1966) * lu(k,2251) - lu(k,2258) = lu(k,2258) - lu(k,1967) * lu(k,2251) - lu(k,2259) = lu(k,2259) - lu(k,1968) * lu(k,2251) - lu(k,2260) = lu(k,2260) - lu(k,1969) * lu(k,2251) - lu(k,2261) = lu(k,2261) - lu(k,1970) * lu(k,2251) - lu(k,2262) = lu(k,2262) - lu(k,1971) * lu(k,2251) - lu(k,2360) = lu(k,2360) - lu(k,1961) * lu(k,2359) - lu(k,2361) = lu(k,2361) - lu(k,1962) * lu(k,2359) - lu(k,2362) = lu(k,2362) - lu(k,1963) * lu(k,2359) - lu(k,2363) = lu(k,2363) - lu(k,1964) * lu(k,2359) - lu(k,2364) = lu(k,2364) - lu(k,1965) * lu(k,2359) - lu(k,2365) = lu(k,2365) - lu(k,1966) * lu(k,2359) - lu(k,2366) = lu(k,2366) - lu(k,1967) * lu(k,2359) - lu(k,2367) = lu(k,2367) - lu(k,1968) * lu(k,2359) - lu(k,2368) = lu(k,2368) - lu(k,1969) * lu(k,2359) - lu(k,2369) = lu(k,2369) - lu(k,1970) * lu(k,2359) - lu(k,2370) = lu(k,2370) - lu(k,1971) * lu(k,2359) - lu(k,2412) = lu(k,2412) - lu(k,1961) * lu(k,2411) - lu(k,2413) = lu(k,2413) - lu(k,1962) * lu(k,2411) - lu(k,2414) = lu(k,2414) - lu(k,1963) * lu(k,2411) - lu(k,2415) = lu(k,2415) - lu(k,1964) * lu(k,2411) - lu(k,2416) = lu(k,2416) - lu(k,1965) * lu(k,2411) - lu(k,2417) = lu(k,2417) - lu(k,1966) * lu(k,2411) - lu(k,2418) = lu(k,2418) - lu(k,1967) * lu(k,2411) - lu(k,2419) = lu(k,2419) - lu(k,1968) * lu(k,2411) - lu(k,2420) = lu(k,2420) - lu(k,1969) * lu(k,2411) - lu(k,2421) = lu(k,2421) - lu(k,1970) * lu(k,2411) - lu(k,2422) = lu(k,2422) - lu(k,1971) * lu(k,2411) - lu(k,2439) = lu(k,2439) - lu(k,1961) * lu(k,2438) - lu(k,2440) = lu(k,2440) - lu(k,1962) * lu(k,2438) - lu(k,2441) = lu(k,2441) - lu(k,1963) * lu(k,2438) - lu(k,2442) = lu(k,2442) - lu(k,1964) * lu(k,2438) - lu(k,2443) = lu(k,2443) - lu(k,1965) * lu(k,2438) - lu(k,2444) = lu(k,2444) - lu(k,1966) * lu(k,2438) - lu(k,2445) = lu(k,2445) - lu(k,1967) * lu(k,2438) - lu(k,2446) = lu(k,2446) - lu(k,1968) * lu(k,2438) - lu(k,2447) = lu(k,2447) - lu(k,1969) * lu(k,2438) - lu(k,2448) = lu(k,2448) - lu(k,1970) * lu(k,2438) - lu(k,2449) = lu(k,2449) - lu(k,1971) * lu(k,2438) - lu(k,1987) = 1._r8 / lu(k,1987) - lu(k,1988) = lu(k,1988) * lu(k,1987) - lu(k,1989) = lu(k,1989) * lu(k,1987) - lu(k,1990) = lu(k,1990) * lu(k,1987) - lu(k,1991) = lu(k,1991) * lu(k,1987) - lu(k,1992) = lu(k,1992) * lu(k,1987) - lu(k,1993) = lu(k,1993) * lu(k,1987) - lu(k,1994) = lu(k,1994) * lu(k,1987) - lu(k,1995) = lu(k,1995) * lu(k,1987) - lu(k,1996) = lu(k,1996) * lu(k,1987) - lu(k,1997) = lu(k,1997) * lu(k,1987) - lu(k,2031) = lu(k,2031) - lu(k,1988) * lu(k,2030) - lu(k,2032) = lu(k,2032) - lu(k,1989) * lu(k,2030) - lu(k,2033) = lu(k,2033) - lu(k,1990) * lu(k,2030) - lu(k,2034) = lu(k,2034) - lu(k,1991) * lu(k,2030) - lu(k,2035) = lu(k,2035) - lu(k,1992) * lu(k,2030) - lu(k,2036) = lu(k,2036) - lu(k,1993) * lu(k,2030) - lu(k,2037) = lu(k,2037) - lu(k,1994) * lu(k,2030) - lu(k,2038) = lu(k,2038) - lu(k,1995) * lu(k,2030) - lu(k,2039) = lu(k,2039) - lu(k,1996) * lu(k,2030) - lu(k,2040) = lu(k,2040) - lu(k,1997) * lu(k,2030) - lu(k,2054) = lu(k,2054) - lu(k,1988) * lu(k,2053) - lu(k,2055) = lu(k,2055) - lu(k,1989) * lu(k,2053) - lu(k,2056) = lu(k,2056) - lu(k,1990) * lu(k,2053) - lu(k,2057) = lu(k,2057) - lu(k,1991) * lu(k,2053) - lu(k,2058) = lu(k,2058) - lu(k,1992) * lu(k,2053) - lu(k,2059) = lu(k,2059) - lu(k,1993) * lu(k,2053) - lu(k,2060) = lu(k,2060) - lu(k,1994) * lu(k,2053) - lu(k,2061) = lu(k,2061) - lu(k,1995) * lu(k,2053) - lu(k,2062) = lu(k,2062) - lu(k,1996) * lu(k,2053) - lu(k,2063) = lu(k,2063) - lu(k,1997) * lu(k,2053) - lu(k,2097) = lu(k,2097) - lu(k,1988) * lu(k,2096) - lu(k,2098) = lu(k,2098) - lu(k,1989) * lu(k,2096) - lu(k,2099) = lu(k,2099) - lu(k,1990) * lu(k,2096) - lu(k,2100) = lu(k,2100) - lu(k,1991) * lu(k,2096) - lu(k,2101) = lu(k,2101) - lu(k,1992) * lu(k,2096) - lu(k,2102) = lu(k,2102) - lu(k,1993) * lu(k,2096) - lu(k,2103) = lu(k,2103) - lu(k,1994) * lu(k,2096) - lu(k,2104) = lu(k,2104) - lu(k,1995) * lu(k,2096) - lu(k,2105) = lu(k,2105) - lu(k,1996) * lu(k,2096) - lu(k,2106) = lu(k,2106) - lu(k,1997) * lu(k,2096) - lu(k,2118) = lu(k,2118) - lu(k,1988) * lu(k,2117) - lu(k,2119) = lu(k,2119) - lu(k,1989) * lu(k,2117) - lu(k,2120) = lu(k,2120) - lu(k,1990) * lu(k,2117) - lu(k,2121) = lu(k,2121) - lu(k,1991) * lu(k,2117) - lu(k,2122) = lu(k,2122) - lu(k,1992) * lu(k,2117) - lu(k,2123) = lu(k,2123) - lu(k,1993) * lu(k,2117) - lu(k,2124) = lu(k,2124) - lu(k,1994) * lu(k,2117) - lu(k,2125) = lu(k,2125) - lu(k,1995) * lu(k,2117) - lu(k,2126) = lu(k,2126) - lu(k,1996) * lu(k,2117) - lu(k,2127) = lu(k,2127) - lu(k,1997) * lu(k,2117) - lu(k,2164) = lu(k,2164) - lu(k,1988) * lu(k,2163) - lu(k,2165) = lu(k,2165) - lu(k,1989) * lu(k,2163) - lu(k,2166) = lu(k,2166) - lu(k,1990) * lu(k,2163) - lu(k,2167) = lu(k,2167) - lu(k,1991) * lu(k,2163) - lu(k,2168) = lu(k,2168) - lu(k,1992) * lu(k,2163) - lu(k,2169) = lu(k,2169) - lu(k,1993) * lu(k,2163) - lu(k,2170) = lu(k,2170) - lu(k,1994) * lu(k,2163) - lu(k,2171) = lu(k,2171) - lu(k,1995) * lu(k,2163) - lu(k,2172) = lu(k,2172) - lu(k,1996) * lu(k,2163) - lu(k,2173) = lu(k,2173) - lu(k,1997) * lu(k,2163) - lu(k,2228) = lu(k,2228) - lu(k,1988) * lu(k,2227) - lu(k,2229) = lu(k,2229) - lu(k,1989) * lu(k,2227) - lu(k,2230) = lu(k,2230) - lu(k,1990) * lu(k,2227) - lu(k,2231) = lu(k,2231) - lu(k,1991) * lu(k,2227) - lu(k,2232) = lu(k,2232) - lu(k,1992) * lu(k,2227) - lu(k,2233) = lu(k,2233) - lu(k,1993) * lu(k,2227) - lu(k,2234) = lu(k,2234) - lu(k,1994) * lu(k,2227) - lu(k,2235) = lu(k,2235) - lu(k,1995) * lu(k,2227) - lu(k,2236) = lu(k,2236) - lu(k,1996) * lu(k,2227) - lu(k,2237) = lu(k,2237) - lu(k,1997) * lu(k,2227) - lu(k,2253) = lu(k,2253) - lu(k,1988) * lu(k,2252) - lu(k,2254) = lu(k,2254) - lu(k,1989) * lu(k,2252) - lu(k,2255) = lu(k,2255) - lu(k,1990) * lu(k,2252) - lu(k,2256) = lu(k,2256) - lu(k,1991) * lu(k,2252) - lu(k,2257) = lu(k,2257) - lu(k,1992) * lu(k,2252) - lu(k,2258) = lu(k,2258) - lu(k,1993) * lu(k,2252) - lu(k,2259) = lu(k,2259) - lu(k,1994) * lu(k,2252) - lu(k,2260) = lu(k,2260) - lu(k,1995) * lu(k,2252) - lu(k,2261) = lu(k,2261) - lu(k,1996) * lu(k,2252) - lu(k,2262) = lu(k,2262) - lu(k,1997) * lu(k,2252) - lu(k,2361) = lu(k,2361) - lu(k,1988) * lu(k,2360) - lu(k,2362) = lu(k,2362) - lu(k,1989) * lu(k,2360) - lu(k,2363) = lu(k,2363) - lu(k,1990) * lu(k,2360) - lu(k,2364) = lu(k,2364) - lu(k,1991) * lu(k,2360) - lu(k,2365) = lu(k,2365) - lu(k,1992) * lu(k,2360) - lu(k,2366) = lu(k,2366) - lu(k,1993) * lu(k,2360) - lu(k,2367) = lu(k,2367) - lu(k,1994) * lu(k,2360) - lu(k,2368) = lu(k,2368) - lu(k,1995) * lu(k,2360) - lu(k,2369) = lu(k,2369) - lu(k,1996) * lu(k,2360) - lu(k,2370) = lu(k,2370) - lu(k,1997) * lu(k,2360) - lu(k,2413) = lu(k,2413) - lu(k,1988) * lu(k,2412) - lu(k,2414) = lu(k,2414) - lu(k,1989) * lu(k,2412) - lu(k,2415) = lu(k,2415) - lu(k,1990) * lu(k,2412) - lu(k,2416) = lu(k,2416) - lu(k,1991) * lu(k,2412) - lu(k,2417) = lu(k,2417) - lu(k,1992) * lu(k,2412) - lu(k,2418) = lu(k,2418) - lu(k,1993) * lu(k,2412) - lu(k,2419) = lu(k,2419) - lu(k,1994) * lu(k,2412) - lu(k,2420) = lu(k,2420) - lu(k,1995) * lu(k,2412) - lu(k,2421) = lu(k,2421) - lu(k,1996) * lu(k,2412) - lu(k,2422) = lu(k,2422) - lu(k,1997) * lu(k,2412) - lu(k,2440) = lu(k,2440) - lu(k,1988) * lu(k,2439) - lu(k,2441) = lu(k,2441) - lu(k,1989) * lu(k,2439) - lu(k,2442) = lu(k,2442) - lu(k,1990) * lu(k,2439) - lu(k,2443) = lu(k,2443) - lu(k,1991) * lu(k,2439) - lu(k,2444) = lu(k,2444) - lu(k,1992) * lu(k,2439) - lu(k,2445) = lu(k,2445) - lu(k,1993) * lu(k,2439) - lu(k,2446) = lu(k,2446) - lu(k,1994) * lu(k,2439) - lu(k,2447) = lu(k,2447) - lu(k,1995) * lu(k,2439) - lu(k,2448) = lu(k,2448) - lu(k,1996) * lu(k,2439) - lu(k,2449) = lu(k,2449) - lu(k,1997) * lu(k,2439) - lu(k,2031) = 1._r8 / lu(k,2031) - lu(k,2032) = lu(k,2032) * lu(k,2031) - lu(k,2033) = lu(k,2033) * lu(k,2031) - lu(k,2034) = lu(k,2034) * lu(k,2031) - lu(k,2035) = lu(k,2035) * lu(k,2031) - lu(k,2036) = lu(k,2036) * lu(k,2031) - lu(k,2037) = lu(k,2037) * lu(k,2031) - lu(k,2038) = lu(k,2038) * lu(k,2031) - lu(k,2039) = lu(k,2039) * lu(k,2031) - lu(k,2040) = lu(k,2040) * lu(k,2031) - lu(k,2055) = lu(k,2055) - lu(k,2032) * lu(k,2054) - lu(k,2056) = lu(k,2056) - lu(k,2033) * lu(k,2054) - lu(k,2057) = lu(k,2057) - lu(k,2034) * lu(k,2054) - lu(k,2058) = lu(k,2058) - lu(k,2035) * lu(k,2054) - lu(k,2059) = lu(k,2059) - lu(k,2036) * lu(k,2054) - lu(k,2060) = lu(k,2060) - lu(k,2037) * lu(k,2054) - lu(k,2061) = lu(k,2061) - lu(k,2038) * lu(k,2054) - lu(k,2062) = lu(k,2062) - lu(k,2039) * lu(k,2054) - lu(k,2063) = lu(k,2063) - lu(k,2040) * lu(k,2054) - lu(k,2098) = lu(k,2098) - lu(k,2032) * lu(k,2097) - lu(k,2099) = lu(k,2099) - lu(k,2033) * lu(k,2097) - lu(k,2100) = lu(k,2100) - lu(k,2034) * lu(k,2097) - lu(k,2101) = lu(k,2101) - lu(k,2035) * lu(k,2097) - lu(k,2102) = lu(k,2102) - lu(k,2036) * lu(k,2097) - lu(k,2103) = lu(k,2103) - lu(k,2037) * lu(k,2097) - lu(k,2104) = lu(k,2104) - lu(k,2038) * lu(k,2097) - lu(k,2105) = lu(k,2105) - lu(k,2039) * lu(k,2097) - lu(k,2106) = lu(k,2106) - lu(k,2040) * lu(k,2097) - lu(k,2119) = lu(k,2119) - lu(k,2032) * lu(k,2118) - lu(k,2120) = lu(k,2120) - lu(k,2033) * lu(k,2118) - lu(k,2121) = lu(k,2121) - lu(k,2034) * lu(k,2118) - lu(k,2122) = lu(k,2122) - lu(k,2035) * lu(k,2118) - lu(k,2123) = lu(k,2123) - lu(k,2036) * lu(k,2118) - lu(k,2124) = lu(k,2124) - lu(k,2037) * lu(k,2118) - lu(k,2125) = lu(k,2125) - lu(k,2038) * lu(k,2118) - lu(k,2126) = lu(k,2126) - lu(k,2039) * lu(k,2118) - lu(k,2127) = lu(k,2127) - lu(k,2040) * lu(k,2118) - lu(k,2165) = lu(k,2165) - lu(k,2032) * lu(k,2164) - lu(k,2166) = lu(k,2166) - lu(k,2033) * lu(k,2164) - lu(k,2167) = lu(k,2167) - lu(k,2034) * lu(k,2164) - lu(k,2168) = lu(k,2168) - lu(k,2035) * lu(k,2164) - lu(k,2169) = lu(k,2169) - lu(k,2036) * lu(k,2164) - lu(k,2170) = lu(k,2170) - lu(k,2037) * lu(k,2164) - lu(k,2171) = lu(k,2171) - lu(k,2038) * lu(k,2164) - lu(k,2172) = lu(k,2172) - lu(k,2039) * lu(k,2164) - lu(k,2173) = lu(k,2173) - lu(k,2040) * lu(k,2164) - lu(k,2229) = lu(k,2229) - lu(k,2032) * lu(k,2228) - lu(k,2230) = lu(k,2230) - lu(k,2033) * lu(k,2228) - lu(k,2231) = lu(k,2231) - lu(k,2034) * lu(k,2228) - lu(k,2232) = lu(k,2232) - lu(k,2035) * lu(k,2228) - lu(k,2233) = lu(k,2233) - lu(k,2036) * lu(k,2228) - lu(k,2234) = lu(k,2234) - lu(k,2037) * lu(k,2228) - lu(k,2235) = lu(k,2235) - lu(k,2038) * lu(k,2228) - lu(k,2236) = lu(k,2236) - lu(k,2039) * lu(k,2228) - lu(k,2237) = lu(k,2237) - lu(k,2040) * lu(k,2228) - lu(k,2254) = lu(k,2254) - lu(k,2032) * lu(k,2253) - lu(k,2255) = lu(k,2255) - lu(k,2033) * lu(k,2253) - lu(k,2256) = lu(k,2256) - lu(k,2034) * lu(k,2253) - lu(k,2257) = lu(k,2257) - lu(k,2035) * lu(k,2253) - lu(k,2258) = lu(k,2258) - lu(k,2036) * lu(k,2253) - lu(k,2259) = lu(k,2259) - lu(k,2037) * lu(k,2253) - lu(k,2260) = lu(k,2260) - lu(k,2038) * lu(k,2253) - lu(k,2261) = lu(k,2261) - lu(k,2039) * lu(k,2253) - lu(k,2262) = lu(k,2262) - lu(k,2040) * lu(k,2253) - lu(k,2362) = lu(k,2362) - lu(k,2032) * lu(k,2361) - lu(k,2363) = lu(k,2363) - lu(k,2033) * lu(k,2361) - lu(k,2364) = lu(k,2364) - lu(k,2034) * lu(k,2361) - lu(k,2365) = lu(k,2365) - lu(k,2035) * lu(k,2361) - lu(k,2366) = lu(k,2366) - lu(k,2036) * lu(k,2361) - lu(k,2367) = lu(k,2367) - lu(k,2037) * lu(k,2361) - lu(k,2368) = lu(k,2368) - lu(k,2038) * lu(k,2361) - lu(k,2369) = lu(k,2369) - lu(k,2039) * lu(k,2361) - lu(k,2370) = lu(k,2370) - lu(k,2040) * lu(k,2361) - lu(k,2414) = lu(k,2414) - lu(k,2032) * lu(k,2413) - lu(k,2415) = lu(k,2415) - lu(k,2033) * lu(k,2413) - lu(k,2416) = lu(k,2416) - lu(k,2034) * lu(k,2413) - lu(k,2417) = lu(k,2417) - lu(k,2035) * lu(k,2413) - lu(k,2418) = lu(k,2418) - lu(k,2036) * lu(k,2413) - lu(k,2419) = lu(k,2419) - lu(k,2037) * lu(k,2413) - lu(k,2420) = lu(k,2420) - lu(k,2038) * lu(k,2413) - lu(k,2421) = lu(k,2421) - lu(k,2039) * lu(k,2413) - lu(k,2422) = lu(k,2422) - lu(k,2040) * lu(k,2413) - lu(k,2441) = lu(k,2441) - lu(k,2032) * lu(k,2440) - lu(k,2442) = lu(k,2442) - lu(k,2033) * lu(k,2440) - lu(k,2443) = lu(k,2443) - lu(k,2034) * lu(k,2440) - lu(k,2444) = lu(k,2444) - lu(k,2035) * lu(k,2440) - lu(k,2445) = lu(k,2445) - lu(k,2036) * lu(k,2440) - lu(k,2446) = lu(k,2446) - lu(k,2037) * lu(k,2440) - lu(k,2447) = lu(k,2447) - lu(k,2038) * lu(k,2440) - lu(k,2448) = lu(k,2448) - lu(k,2039) * lu(k,2440) - lu(k,2449) = lu(k,2449) - lu(k,2040) * lu(k,2440) + lu(k,1589) = 1._r8 / lu(k,1589) + lu(k,1590) = lu(k,1590) * lu(k,1589) + lu(k,1591) = lu(k,1591) * lu(k,1589) + lu(k,1592) = lu(k,1592) * lu(k,1589) + lu(k,1593) = lu(k,1593) * lu(k,1589) + lu(k,1594) = lu(k,1594) * lu(k,1589) + lu(k,1595) = lu(k,1595) * lu(k,1589) + lu(k,1596) = lu(k,1596) * lu(k,1589) + lu(k,1597) = lu(k,1597) * lu(k,1589) + lu(k,1598) = lu(k,1598) * lu(k,1589) + lu(k,1599) = lu(k,1599) * lu(k,1589) + lu(k,1600) = lu(k,1600) * lu(k,1589) + lu(k,1601) = lu(k,1601) * lu(k,1589) + lu(k,1602) = lu(k,1602) * lu(k,1589) + lu(k,1603) = lu(k,1603) * lu(k,1589) + lu(k,1632) = lu(k,1632) - lu(k,1590) * lu(k,1631) + lu(k,1633) = lu(k,1633) - lu(k,1591) * lu(k,1631) + lu(k,1634) = lu(k,1634) - lu(k,1592) * lu(k,1631) + lu(k,1635) = lu(k,1635) - lu(k,1593) * lu(k,1631) + lu(k,1636) = lu(k,1636) - lu(k,1594) * lu(k,1631) + lu(k,1637) = lu(k,1637) - lu(k,1595) * lu(k,1631) + lu(k,1638) = lu(k,1638) - lu(k,1596) * lu(k,1631) + lu(k,1639) = lu(k,1639) - lu(k,1597) * lu(k,1631) + lu(k,1640) = lu(k,1640) - lu(k,1598) * lu(k,1631) + lu(k,1641) = lu(k,1641) - lu(k,1599) * lu(k,1631) + lu(k,1642) = lu(k,1642) - lu(k,1600) * lu(k,1631) + lu(k,1643) = lu(k,1643) - lu(k,1601) * lu(k,1631) + lu(k,1644) = lu(k,1644) - lu(k,1602) * lu(k,1631) + lu(k,1646) = lu(k,1646) - lu(k,1603) * lu(k,1631) + lu(k,1797) = lu(k,1797) - lu(k,1590) * lu(k,1796) + lu(k,1798) = lu(k,1798) - lu(k,1591) * lu(k,1796) + lu(k,1799) = lu(k,1799) - lu(k,1592) * lu(k,1796) + lu(k,1800) = lu(k,1800) - lu(k,1593) * lu(k,1796) + lu(k,1801) = lu(k,1801) - lu(k,1594) * lu(k,1796) + lu(k,1802) = lu(k,1802) - lu(k,1595) * lu(k,1796) + lu(k,1803) = lu(k,1803) - lu(k,1596) * lu(k,1796) + lu(k,1804) = lu(k,1804) - lu(k,1597) * lu(k,1796) + lu(k,1805) = lu(k,1805) - lu(k,1598) * lu(k,1796) + lu(k,1806) = lu(k,1806) - lu(k,1599) * lu(k,1796) + lu(k,1807) = lu(k,1807) - lu(k,1600) * lu(k,1796) + lu(k,1808) = lu(k,1808) - lu(k,1601) * lu(k,1796) + lu(k,1809) = lu(k,1809) - lu(k,1602) * lu(k,1796) + lu(k,1811) = lu(k,1811) - lu(k,1603) * lu(k,1796) + lu(k,1843) = lu(k,1843) - lu(k,1590) * lu(k,1842) + lu(k,1844) = lu(k,1844) - lu(k,1591) * lu(k,1842) + lu(k,1845) = lu(k,1845) - lu(k,1592) * lu(k,1842) + lu(k,1846) = lu(k,1846) - lu(k,1593) * lu(k,1842) + lu(k,1847) = lu(k,1847) - lu(k,1594) * lu(k,1842) + lu(k,1848) = lu(k,1848) - lu(k,1595) * lu(k,1842) + lu(k,1849) = lu(k,1849) - lu(k,1596) * lu(k,1842) + lu(k,1850) = lu(k,1850) - lu(k,1597) * lu(k,1842) + lu(k,1851) = lu(k,1851) - lu(k,1598) * lu(k,1842) + lu(k,1852) = lu(k,1852) - lu(k,1599) * lu(k,1842) + lu(k,1853) = lu(k,1853) - lu(k,1600) * lu(k,1842) + lu(k,1854) = lu(k,1854) - lu(k,1601) * lu(k,1842) + lu(k,1855) = lu(k,1855) - lu(k,1602) * lu(k,1842) + lu(k,1857) = lu(k,1857) - lu(k,1603) * lu(k,1842) + lu(k,1888) = lu(k,1888) - lu(k,1590) * lu(k,1887) + lu(k,1889) = lu(k,1889) - lu(k,1591) * lu(k,1887) + lu(k,1890) = lu(k,1890) - lu(k,1592) * lu(k,1887) + lu(k,1891) = lu(k,1891) - lu(k,1593) * lu(k,1887) + lu(k,1892) = lu(k,1892) - lu(k,1594) * lu(k,1887) + lu(k,1893) = lu(k,1893) - lu(k,1595) * lu(k,1887) + lu(k,1894) = lu(k,1894) - lu(k,1596) * lu(k,1887) + lu(k,1895) = lu(k,1895) - lu(k,1597) * lu(k,1887) + lu(k,1896) = lu(k,1896) - lu(k,1598) * lu(k,1887) + lu(k,1897) = lu(k,1897) - lu(k,1599) * lu(k,1887) + lu(k,1898) = lu(k,1898) - lu(k,1600) * lu(k,1887) + lu(k,1899) = lu(k,1899) - lu(k,1601) * lu(k,1887) + lu(k,1900) = lu(k,1900) - lu(k,1602) * lu(k,1887) + lu(k,1902) = lu(k,1902) - lu(k,1603) * lu(k,1887) + lu(k,1914) = lu(k,1914) - lu(k,1590) * lu(k,1913) + lu(k,1915) = lu(k,1915) - lu(k,1591) * lu(k,1913) + lu(k,1916) = lu(k,1916) - lu(k,1592) * lu(k,1913) + lu(k,1917) = lu(k,1917) - lu(k,1593) * lu(k,1913) + lu(k,1918) = lu(k,1918) - lu(k,1594) * lu(k,1913) + lu(k,1919) = lu(k,1919) - lu(k,1595) * lu(k,1913) + lu(k,1920) = lu(k,1920) - lu(k,1596) * lu(k,1913) + lu(k,1921) = lu(k,1921) - lu(k,1597) * lu(k,1913) + lu(k,1922) = lu(k,1922) - lu(k,1598) * lu(k,1913) + lu(k,1923) = lu(k,1923) - lu(k,1599) * lu(k,1913) + lu(k,1924) = lu(k,1924) - lu(k,1600) * lu(k,1913) + lu(k,1925) = lu(k,1925) - lu(k,1601) * lu(k,1913) + lu(k,1926) = lu(k,1926) - lu(k,1602) * lu(k,1913) + lu(k,1928) = lu(k,1928) - lu(k,1603) * lu(k,1913) + lu(k,2010) = lu(k,2010) - lu(k,1590) * lu(k,2009) + lu(k,2011) = lu(k,2011) - lu(k,1591) * lu(k,2009) + lu(k,2012) = lu(k,2012) - lu(k,1592) * lu(k,2009) + lu(k,2013) = lu(k,2013) - lu(k,1593) * lu(k,2009) + lu(k,2014) = lu(k,2014) - lu(k,1594) * lu(k,2009) + lu(k,2015) = lu(k,2015) - lu(k,1595) * lu(k,2009) + lu(k,2016) = lu(k,2016) - lu(k,1596) * lu(k,2009) + lu(k,2017) = lu(k,2017) - lu(k,1597) * lu(k,2009) + lu(k,2018) = lu(k,2018) - lu(k,1598) * lu(k,2009) + lu(k,2019) = lu(k,2019) - lu(k,1599) * lu(k,2009) + lu(k,2020) = lu(k,2020) - lu(k,1600) * lu(k,2009) + lu(k,2021) = lu(k,2021) - lu(k,1601) * lu(k,2009) + lu(k,2022) = lu(k,2022) - lu(k,1602) * lu(k,2009) + lu(k,2024) = lu(k,2024) - lu(k,1603) * lu(k,2009) + lu(k,2053) = lu(k,2053) - lu(k,1590) * lu(k,2052) + lu(k,2054) = lu(k,2054) - lu(k,1591) * lu(k,2052) + lu(k,2055) = lu(k,2055) - lu(k,1592) * lu(k,2052) + lu(k,2056) = lu(k,2056) - lu(k,1593) * lu(k,2052) + lu(k,2057) = lu(k,2057) - lu(k,1594) * lu(k,2052) + lu(k,2058) = lu(k,2058) - lu(k,1595) * lu(k,2052) + lu(k,2059) = lu(k,2059) - lu(k,1596) * lu(k,2052) + lu(k,2060) = lu(k,2060) - lu(k,1597) * lu(k,2052) + lu(k,2061) = lu(k,2061) - lu(k,1598) * lu(k,2052) + lu(k,2062) = lu(k,2062) - lu(k,1599) * lu(k,2052) + lu(k,2063) = lu(k,2063) - lu(k,1600) * lu(k,2052) + lu(k,2064) = lu(k,2064) - lu(k,1601) * lu(k,2052) + lu(k,2065) = lu(k,2065) - lu(k,1602) * lu(k,2052) + lu(k,2067) = lu(k,2067) - lu(k,1603) * lu(k,2052) + lu(k,2117) = lu(k,2117) - lu(k,1590) * lu(k,2116) + lu(k,2118) = lu(k,2118) - lu(k,1591) * lu(k,2116) + lu(k,2119) = lu(k,2119) - lu(k,1592) * lu(k,2116) + lu(k,2120) = lu(k,2120) - lu(k,1593) * lu(k,2116) + lu(k,2121) = lu(k,2121) - lu(k,1594) * lu(k,2116) + lu(k,2122) = lu(k,2122) - lu(k,1595) * lu(k,2116) + lu(k,2123) = lu(k,2123) - lu(k,1596) * lu(k,2116) + lu(k,2124) = lu(k,2124) - lu(k,1597) * lu(k,2116) + lu(k,2125) = lu(k,2125) - lu(k,1598) * lu(k,2116) + lu(k,2126) = lu(k,2126) - lu(k,1599) * lu(k,2116) + lu(k,2127) = lu(k,2127) - lu(k,1600) * lu(k,2116) + lu(k,2128) = lu(k,2128) - lu(k,1601) * lu(k,2116) + lu(k,2129) = lu(k,2129) - lu(k,1602) * lu(k,2116) + lu(k,2131) = lu(k,2131) - lu(k,1603) * lu(k,2116) + lu(k,2144) = lu(k,2144) - lu(k,1590) * lu(k,2143) + lu(k,2145) = lu(k,2145) - lu(k,1591) * lu(k,2143) + lu(k,2146) = lu(k,2146) - lu(k,1592) * lu(k,2143) + lu(k,2147) = lu(k,2147) - lu(k,1593) * lu(k,2143) + lu(k,2148) = lu(k,2148) - lu(k,1594) * lu(k,2143) + lu(k,2149) = lu(k,2149) - lu(k,1595) * lu(k,2143) + lu(k,2150) = lu(k,2150) - lu(k,1596) * lu(k,2143) + lu(k,2151) = lu(k,2151) - lu(k,1597) * lu(k,2143) + lu(k,2152) = lu(k,2152) - lu(k,1598) * lu(k,2143) + lu(k,2153) = lu(k,2153) - lu(k,1599) * lu(k,2143) + lu(k,2154) = lu(k,2154) - lu(k,1600) * lu(k,2143) + lu(k,2155) = lu(k,2155) - lu(k,1601) * lu(k,2143) + lu(k,2156) = lu(k,2156) - lu(k,1602) * lu(k,2143) + lu(k,2158) = lu(k,2158) - lu(k,1603) * lu(k,2143) + lu(k,2165) = lu(k,2165) - lu(k,1590) * lu(k,2164) + lu(k,2166) = lu(k,2166) - lu(k,1591) * lu(k,2164) + lu(k,2167) = lu(k,2167) - lu(k,1592) * lu(k,2164) + lu(k,2168) = lu(k,2168) - lu(k,1593) * lu(k,2164) + lu(k,2169) = lu(k,2169) - lu(k,1594) * lu(k,2164) + lu(k,2170) = lu(k,2170) - lu(k,1595) * lu(k,2164) + lu(k,2171) = lu(k,2171) - lu(k,1596) * lu(k,2164) + lu(k,2172) = lu(k,2172) - lu(k,1597) * lu(k,2164) + lu(k,2173) = lu(k,2173) - lu(k,1598) * lu(k,2164) + lu(k,2174) = lu(k,2174) - lu(k,1599) * lu(k,2164) + lu(k,2175) = lu(k,2175) - lu(k,1600) * lu(k,2164) + lu(k,2176) = lu(k,2176) - lu(k,1601) * lu(k,2164) + lu(k,2177) = lu(k,2177) - lu(k,1602) * lu(k,2164) + lu(k,2179) = lu(k,2179) - lu(k,1603) * lu(k,2164) + lu(k,2225) = lu(k,2225) - lu(k,1590) * lu(k,2224) + lu(k,2226) = lu(k,2226) - lu(k,1591) * lu(k,2224) + lu(k,2227) = lu(k,2227) - lu(k,1592) * lu(k,2224) + lu(k,2228) = lu(k,2228) - lu(k,1593) * lu(k,2224) + lu(k,2229) = lu(k,2229) - lu(k,1594) * lu(k,2224) + lu(k,2230) = lu(k,2230) - lu(k,1595) * lu(k,2224) + lu(k,2231) = lu(k,2231) - lu(k,1596) * lu(k,2224) + lu(k,2232) = lu(k,2232) - lu(k,1597) * lu(k,2224) + lu(k,2233) = lu(k,2233) - lu(k,1598) * lu(k,2224) + lu(k,2234) = lu(k,2234) - lu(k,1599) * lu(k,2224) + lu(k,2235) = lu(k,2235) - lu(k,1600) * lu(k,2224) + lu(k,2236) = lu(k,2236) - lu(k,1601) * lu(k,2224) + lu(k,2237) = lu(k,2237) - lu(k,1602) * lu(k,2224) + lu(k,2239) = lu(k,2239) - lu(k,1603) * lu(k,2224) + lu(k,2333) = lu(k,2333) - lu(k,1590) * lu(k,2332) + lu(k,2334) = lu(k,2334) - lu(k,1591) * lu(k,2332) + lu(k,2335) = lu(k,2335) - lu(k,1592) * lu(k,2332) + lu(k,2336) = lu(k,2336) - lu(k,1593) * lu(k,2332) + lu(k,2337) = lu(k,2337) - lu(k,1594) * lu(k,2332) + lu(k,2338) = lu(k,2338) - lu(k,1595) * lu(k,2332) + lu(k,2339) = lu(k,2339) - lu(k,1596) * lu(k,2332) + lu(k,2340) = lu(k,2340) - lu(k,1597) * lu(k,2332) + lu(k,2341) = lu(k,2341) - lu(k,1598) * lu(k,2332) + lu(k,2342) = lu(k,2342) - lu(k,1599) * lu(k,2332) + lu(k,2343) = lu(k,2343) - lu(k,1600) * lu(k,2332) + lu(k,2344) = lu(k,2344) - lu(k,1601) * lu(k,2332) + lu(k,2345) = lu(k,2345) - lu(k,1602) * lu(k,2332) + lu(k,2347) = lu(k,2347) - lu(k,1603) * lu(k,2332) + lu(k,2356) = lu(k,2356) - lu(k,1590) * lu(k,2355) + lu(k,2357) = lu(k,2357) - lu(k,1591) * lu(k,2355) + lu(k,2358) = lu(k,2358) - lu(k,1592) * lu(k,2355) + lu(k,2359) = lu(k,2359) - lu(k,1593) * lu(k,2355) + lu(k,2360) = lu(k,2360) - lu(k,1594) * lu(k,2355) + lu(k,2361) = lu(k,2361) - lu(k,1595) * lu(k,2355) + lu(k,2362) = lu(k,2362) - lu(k,1596) * lu(k,2355) + lu(k,2363) = lu(k,2363) - lu(k,1597) * lu(k,2355) + lu(k,2364) = lu(k,2364) - lu(k,1598) * lu(k,2355) + lu(k,2365) = lu(k,2365) - lu(k,1599) * lu(k,2355) + lu(k,2366) = lu(k,2366) - lu(k,1600) * lu(k,2355) + lu(k,2367) = lu(k,2367) - lu(k,1601) * lu(k,2355) + lu(k,2368) = lu(k,2368) - lu(k,1602) * lu(k,2355) + lu(k,2370) = lu(k,2370) - lu(k,1603) * lu(k,2355) + lu(k,2408) = lu(k,2408) - lu(k,1590) * lu(k,2407) + lu(k,2409) = lu(k,2409) - lu(k,1591) * lu(k,2407) + lu(k,2410) = lu(k,2410) - lu(k,1592) * lu(k,2407) + lu(k,2411) = lu(k,2411) - lu(k,1593) * lu(k,2407) + lu(k,2412) = lu(k,2412) - lu(k,1594) * lu(k,2407) + lu(k,2413) = lu(k,2413) - lu(k,1595) * lu(k,2407) + lu(k,2414) = lu(k,2414) - lu(k,1596) * lu(k,2407) + lu(k,2415) = lu(k,2415) - lu(k,1597) * lu(k,2407) + lu(k,2416) = lu(k,2416) - lu(k,1598) * lu(k,2407) + lu(k,2417) = lu(k,2417) - lu(k,1599) * lu(k,2407) + lu(k,2418) = lu(k,2418) - lu(k,1600) * lu(k,2407) + lu(k,2419) = lu(k,2419) - lu(k,1601) * lu(k,2407) + lu(k,2420) = lu(k,2420) - lu(k,1602) * lu(k,2407) + lu(k,2422) = lu(k,2422) - lu(k,1603) * lu(k,2407) + lu(k,2435) = lu(k,2435) - lu(k,1590) * lu(k,2434) + lu(k,2436) = lu(k,2436) - lu(k,1591) * lu(k,2434) + lu(k,2437) = lu(k,2437) - lu(k,1592) * lu(k,2434) + lu(k,2438) = lu(k,2438) - lu(k,1593) * lu(k,2434) + lu(k,2439) = lu(k,2439) - lu(k,1594) * lu(k,2434) + lu(k,2440) = lu(k,2440) - lu(k,1595) * lu(k,2434) + lu(k,2441) = lu(k,2441) - lu(k,1596) * lu(k,2434) + lu(k,2442) = lu(k,2442) - lu(k,1597) * lu(k,2434) + lu(k,2443) = lu(k,2443) - lu(k,1598) * lu(k,2434) + lu(k,2444) = lu(k,2444) - lu(k,1599) * lu(k,2434) + lu(k,2445) = lu(k,2445) - lu(k,1600) * lu(k,2434) + lu(k,2446) = lu(k,2446) - lu(k,1601) * lu(k,2434) + lu(k,2447) = lu(k,2447) - lu(k,1602) * lu(k,2434) + lu(k,2449) = lu(k,2449) - lu(k,1603) * lu(k,2434) + lu(k,1632) = 1._r8 / lu(k,1632) + lu(k,1633) = lu(k,1633) * lu(k,1632) + lu(k,1634) = lu(k,1634) * lu(k,1632) + lu(k,1635) = lu(k,1635) * lu(k,1632) + lu(k,1636) = lu(k,1636) * lu(k,1632) + lu(k,1637) = lu(k,1637) * lu(k,1632) + lu(k,1638) = lu(k,1638) * lu(k,1632) + lu(k,1639) = lu(k,1639) * lu(k,1632) + lu(k,1640) = lu(k,1640) * lu(k,1632) + lu(k,1641) = lu(k,1641) * lu(k,1632) + lu(k,1642) = lu(k,1642) * lu(k,1632) + lu(k,1643) = lu(k,1643) * lu(k,1632) + lu(k,1644) = lu(k,1644) * lu(k,1632) + lu(k,1645) = lu(k,1645) * lu(k,1632) + lu(k,1646) = lu(k,1646) * lu(k,1632) + lu(k,1798) = lu(k,1798) - lu(k,1633) * lu(k,1797) + lu(k,1799) = lu(k,1799) - lu(k,1634) * lu(k,1797) + lu(k,1800) = lu(k,1800) - lu(k,1635) * lu(k,1797) + lu(k,1801) = lu(k,1801) - lu(k,1636) * lu(k,1797) + lu(k,1802) = lu(k,1802) - lu(k,1637) * lu(k,1797) + lu(k,1803) = lu(k,1803) - lu(k,1638) * lu(k,1797) + lu(k,1804) = lu(k,1804) - lu(k,1639) * lu(k,1797) + lu(k,1805) = lu(k,1805) - lu(k,1640) * lu(k,1797) + lu(k,1806) = lu(k,1806) - lu(k,1641) * lu(k,1797) + lu(k,1807) = lu(k,1807) - lu(k,1642) * lu(k,1797) + lu(k,1808) = lu(k,1808) - lu(k,1643) * lu(k,1797) + lu(k,1809) = lu(k,1809) - lu(k,1644) * lu(k,1797) + lu(k,1810) = lu(k,1810) - lu(k,1645) * lu(k,1797) + lu(k,1811) = lu(k,1811) - lu(k,1646) * lu(k,1797) + lu(k,1844) = lu(k,1844) - lu(k,1633) * lu(k,1843) + lu(k,1845) = lu(k,1845) - lu(k,1634) * lu(k,1843) + lu(k,1846) = lu(k,1846) - lu(k,1635) * lu(k,1843) + lu(k,1847) = lu(k,1847) - lu(k,1636) * lu(k,1843) + lu(k,1848) = lu(k,1848) - lu(k,1637) * lu(k,1843) + lu(k,1849) = lu(k,1849) - lu(k,1638) * lu(k,1843) + lu(k,1850) = lu(k,1850) - lu(k,1639) * lu(k,1843) + lu(k,1851) = lu(k,1851) - lu(k,1640) * lu(k,1843) + lu(k,1852) = lu(k,1852) - lu(k,1641) * lu(k,1843) + lu(k,1853) = lu(k,1853) - lu(k,1642) * lu(k,1843) + lu(k,1854) = lu(k,1854) - lu(k,1643) * lu(k,1843) + lu(k,1855) = lu(k,1855) - lu(k,1644) * lu(k,1843) + lu(k,1856) = lu(k,1856) - lu(k,1645) * lu(k,1843) + lu(k,1857) = lu(k,1857) - lu(k,1646) * lu(k,1843) + lu(k,1889) = lu(k,1889) - lu(k,1633) * lu(k,1888) + lu(k,1890) = lu(k,1890) - lu(k,1634) * lu(k,1888) + lu(k,1891) = lu(k,1891) - lu(k,1635) * lu(k,1888) + lu(k,1892) = lu(k,1892) - lu(k,1636) * lu(k,1888) + lu(k,1893) = lu(k,1893) - lu(k,1637) * lu(k,1888) + lu(k,1894) = lu(k,1894) - lu(k,1638) * lu(k,1888) + lu(k,1895) = lu(k,1895) - lu(k,1639) * lu(k,1888) + lu(k,1896) = lu(k,1896) - lu(k,1640) * lu(k,1888) + lu(k,1897) = lu(k,1897) - lu(k,1641) * lu(k,1888) + lu(k,1898) = lu(k,1898) - lu(k,1642) * lu(k,1888) + lu(k,1899) = lu(k,1899) - lu(k,1643) * lu(k,1888) + lu(k,1900) = lu(k,1900) - lu(k,1644) * lu(k,1888) + lu(k,1901) = lu(k,1901) - lu(k,1645) * lu(k,1888) + lu(k,1902) = lu(k,1902) - lu(k,1646) * lu(k,1888) + lu(k,1915) = lu(k,1915) - lu(k,1633) * lu(k,1914) + lu(k,1916) = lu(k,1916) - lu(k,1634) * lu(k,1914) + lu(k,1917) = lu(k,1917) - lu(k,1635) * lu(k,1914) + lu(k,1918) = lu(k,1918) - lu(k,1636) * lu(k,1914) + lu(k,1919) = lu(k,1919) - lu(k,1637) * lu(k,1914) + lu(k,1920) = lu(k,1920) - lu(k,1638) * lu(k,1914) + lu(k,1921) = lu(k,1921) - lu(k,1639) * lu(k,1914) + lu(k,1922) = lu(k,1922) - lu(k,1640) * lu(k,1914) + lu(k,1923) = lu(k,1923) - lu(k,1641) * lu(k,1914) + lu(k,1924) = lu(k,1924) - lu(k,1642) * lu(k,1914) + lu(k,1925) = lu(k,1925) - lu(k,1643) * lu(k,1914) + lu(k,1926) = lu(k,1926) - lu(k,1644) * lu(k,1914) + lu(k,1927) = lu(k,1927) - lu(k,1645) * lu(k,1914) + lu(k,1928) = lu(k,1928) - lu(k,1646) * lu(k,1914) + lu(k,2011) = lu(k,2011) - lu(k,1633) * lu(k,2010) + lu(k,2012) = lu(k,2012) - lu(k,1634) * lu(k,2010) + lu(k,2013) = lu(k,2013) - lu(k,1635) * lu(k,2010) + lu(k,2014) = lu(k,2014) - lu(k,1636) * lu(k,2010) + lu(k,2015) = lu(k,2015) - lu(k,1637) * lu(k,2010) + lu(k,2016) = lu(k,2016) - lu(k,1638) * lu(k,2010) + lu(k,2017) = lu(k,2017) - lu(k,1639) * lu(k,2010) + lu(k,2018) = lu(k,2018) - lu(k,1640) * lu(k,2010) + lu(k,2019) = lu(k,2019) - lu(k,1641) * lu(k,2010) + lu(k,2020) = lu(k,2020) - lu(k,1642) * lu(k,2010) + lu(k,2021) = lu(k,2021) - lu(k,1643) * lu(k,2010) + lu(k,2022) = lu(k,2022) - lu(k,1644) * lu(k,2010) + lu(k,2023) = lu(k,2023) - lu(k,1645) * lu(k,2010) + lu(k,2024) = lu(k,2024) - lu(k,1646) * lu(k,2010) + lu(k,2054) = lu(k,2054) - lu(k,1633) * lu(k,2053) + lu(k,2055) = lu(k,2055) - lu(k,1634) * lu(k,2053) + lu(k,2056) = lu(k,2056) - lu(k,1635) * lu(k,2053) + lu(k,2057) = lu(k,2057) - lu(k,1636) * lu(k,2053) + lu(k,2058) = lu(k,2058) - lu(k,1637) * lu(k,2053) + lu(k,2059) = lu(k,2059) - lu(k,1638) * lu(k,2053) + lu(k,2060) = lu(k,2060) - lu(k,1639) * lu(k,2053) + lu(k,2061) = lu(k,2061) - lu(k,1640) * lu(k,2053) + lu(k,2062) = lu(k,2062) - lu(k,1641) * lu(k,2053) + lu(k,2063) = lu(k,2063) - lu(k,1642) * lu(k,2053) + lu(k,2064) = lu(k,2064) - lu(k,1643) * lu(k,2053) + lu(k,2065) = lu(k,2065) - lu(k,1644) * lu(k,2053) + lu(k,2066) = lu(k,2066) - lu(k,1645) * lu(k,2053) + lu(k,2067) = lu(k,2067) - lu(k,1646) * lu(k,2053) + lu(k,2118) = lu(k,2118) - lu(k,1633) * lu(k,2117) + lu(k,2119) = lu(k,2119) - lu(k,1634) * lu(k,2117) + lu(k,2120) = lu(k,2120) - lu(k,1635) * lu(k,2117) + lu(k,2121) = lu(k,2121) - lu(k,1636) * lu(k,2117) + lu(k,2122) = lu(k,2122) - lu(k,1637) * lu(k,2117) + lu(k,2123) = lu(k,2123) - lu(k,1638) * lu(k,2117) + lu(k,2124) = lu(k,2124) - lu(k,1639) * lu(k,2117) + lu(k,2125) = lu(k,2125) - lu(k,1640) * lu(k,2117) + lu(k,2126) = lu(k,2126) - lu(k,1641) * lu(k,2117) + lu(k,2127) = lu(k,2127) - lu(k,1642) * lu(k,2117) + lu(k,2128) = lu(k,2128) - lu(k,1643) * lu(k,2117) + lu(k,2129) = lu(k,2129) - lu(k,1644) * lu(k,2117) + lu(k,2130) = lu(k,2130) - lu(k,1645) * lu(k,2117) + lu(k,2131) = lu(k,2131) - lu(k,1646) * lu(k,2117) + lu(k,2145) = lu(k,2145) - lu(k,1633) * lu(k,2144) + lu(k,2146) = lu(k,2146) - lu(k,1634) * lu(k,2144) + lu(k,2147) = lu(k,2147) - lu(k,1635) * lu(k,2144) + lu(k,2148) = lu(k,2148) - lu(k,1636) * lu(k,2144) + lu(k,2149) = lu(k,2149) - lu(k,1637) * lu(k,2144) + lu(k,2150) = lu(k,2150) - lu(k,1638) * lu(k,2144) + lu(k,2151) = lu(k,2151) - lu(k,1639) * lu(k,2144) + lu(k,2152) = lu(k,2152) - lu(k,1640) * lu(k,2144) + lu(k,2153) = lu(k,2153) - lu(k,1641) * lu(k,2144) + lu(k,2154) = lu(k,2154) - lu(k,1642) * lu(k,2144) + lu(k,2155) = lu(k,2155) - lu(k,1643) * lu(k,2144) + lu(k,2156) = lu(k,2156) - lu(k,1644) * lu(k,2144) + lu(k,2157) = lu(k,2157) - lu(k,1645) * lu(k,2144) + lu(k,2158) = lu(k,2158) - lu(k,1646) * lu(k,2144) + lu(k,2166) = lu(k,2166) - lu(k,1633) * lu(k,2165) + lu(k,2167) = lu(k,2167) - lu(k,1634) * lu(k,2165) + lu(k,2168) = lu(k,2168) - lu(k,1635) * lu(k,2165) + lu(k,2169) = lu(k,2169) - lu(k,1636) * lu(k,2165) + lu(k,2170) = lu(k,2170) - lu(k,1637) * lu(k,2165) + lu(k,2171) = lu(k,2171) - lu(k,1638) * lu(k,2165) + lu(k,2172) = lu(k,2172) - lu(k,1639) * lu(k,2165) + lu(k,2173) = lu(k,2173) - lu(k,1640) * lu(k,2165) + lu(k,2174) = lu(k,2174) - lu(k,1641) * lu(k,2165) + lu(k,2175) = lu(k,2175) - lu(k,1642) * lu(k,2165) + lu(k,2176) = lu(k,2176) - lu(k,1643) * lu(k,2165) + lu(k,2177) = lu(k,2177) - lu(k,1644) * lu(k,2165) + lu(k,2178) = lu(k,2178) - lu(k,1645) * lu(k,2165) + lu(k,2179) = lu(k,2179) - lu(k,1646) * lu(k,2165) + lu(k,2226) = lu(k,2226) - lu(k,1633) * lu(k,2225) + lu(k,2227) = lu(k,2227) - lu(k,1634) * lu(k,2225) + lu(k,2228) = lu(k,2228) - lu(k,1635) * lu(k,2225) + lu(k,2229) = lu(k,2229) - lu(k,1636) * lu(k,2225) + lu(k,2230) = lu(k,2230) - lu(k,1637) * lu(k,2225) + lu(k,2231) = lu(k,2231) - lu(k,1638) * lu(k,2225) + lu(k,2232) = lu(k,2232) - lu(k,1639) * lu(k,2225) + lu(k,2233) = lu(k,2233) - lu(k,1640) * lu(k,2225) + lu(k,2234) = lu(k,2234) - lu(k,1641) * lu(k,2225) + lu(k,2235) = lu(k,2235) - lu(k,1642) * lu(k,2225) + lu(k,2236) = lu(k,2236) - lu(k,1643) * lu(k,2225) + lu(k,2237) = lu(k,2237) - lu(k,1644) * lu(k,2225) + lu(k,2238) = lu(k,2238) - lu(k,1645) * lu(k,2225) + lu(k,2239) = lu(k,2239) - lu(k,1646) * lu(k,2225) + lu(k,2334) = lu(k,2334) - lu(k,1633) * lu(k,2333) + lu(k,2335) = lu(k,2335) - lu(k,1634) * lu(k,2333) + lu(k,2336) = lu(k,2336) - lu(k,1635) * lu(k,2333) + lu(k,2337) = lu(k,2337) - lu(k,1636) * lu(k,2333) + lu(k,2338) = lu(k,2338) - lu(k,1637) * lu(k,2333) + lu(k,2339) = lu(k,2339) - lu(k,1638) * lu(k,2333) + lu(k,2340) = lu(k,2340) - lu(k,1639) * lu(k,2333) + lu(k,2341) = lu(k,2341) - lu(k,1640) * lu(k,2333) + lu(k,2342) = lu(k,2342) - lu(k,1641) * lu(k,2333) + lu(k,2343) = lu(k,2343) - lu(k,1642) * lu(k,2333) + lu(k,2344) = lu(k,2344) - lu(k,1643) * lu(k,2333) + lu(k,2345) = lu(k,2345) - lu(k,1644) * lu(k,2333) + lu(k,2346) = lu(k,2346) - lu(k,1645) * lu(k,2333) + lu(k,2347) = lu(k,2347) - lu(k,1646) * lu(k,2333) + lu(k,2357) = lu(k,2357) - lu(k,1633) * lu(k,2356) + lu(k,2358) = lu(k,2358) - lu(k,1634) * lu(k,2356) + lu(k,2359) = lu(k,2359) - lu(k,1635) * lu(k,2356) + lu(k,2360) = lu(k,2360) - lu(k,1636) * lu(k,2356) + lu(k,2361) = lu(k,2361) - lu(k,1637) * lu(k,2356) + lu(k,2362) = lu(k,2362) - lu(k,1638) * lu(k,2356) + lu(k,2363) = lu(k,2363) - lu(k,1639) * lu(k,2356) + lu(k,2364) = lu(k,2364) - lu(k,1640) * lu(k,2356) + lu(k,2365) = lu(k,2365) - lu(k,1641) * lu(k,2356) + lu(k,2366) = lu(k,2366) - lu(k,1642) * lu(k,2356) + lu(k,2367) = lu(k,2367) - lu(k,1643) * lu(k,2356) + lu(k,2368) = lu(k,2368) - lu(k,1644) * lu(k,2356) + lu(k,2369) = lu(k,2369) - lu(k,1645) * lu(k,2356) + lu(k,2370) = lu(k,2370) - lu(k,1646) * lu(k,2356) + lu(k,2409) = lu(k,2409) - lu(k,1633) * lu(k,2408) + lu(k,2410) = lu(k,2410) - lu(k,1634) * lu(k,2408) + lu(k,2411) = lu(k,2411) - lu(k,1635) * lu(k,2408) + lu(k,2412) = lu(k,2412) - lu(k,1636) * lu(k,2408) + lu(k,2413) = lu(k,2413) - lu(k,1637) * lu(k,2408) + lu(k,2414) = lu(k,2414) - lu(k,1638) * lu(k,2408) + lu(k,2415) = lu(k,2415) - lu(k,1639) * lu(k,2408) + lu(k,2416) = lu(k,2416) - lu(k,1640) * lu(k,2408) + lu(k,2417) = lu(k,2417) - lu(k,1641) * lu(k,2408) + lu(k,2418) = lu(k,2418) - lu(k,1642) * lu(k,2408) + lu(k,2419) = lu(k,2419) - lu(k,1643) * lu(k,2408) + lu(k,2420) = lu(k,2420) - lu(k,1644) * lu(k,2408) + lu(k,2421) = lu(k,2421) - lu(k,1645) * lu(k,2408) + lu(k,2422) = lu(k,2422) - lu(k,1646) * lu(k,2408) + lu(k,2436) = lu(k,2436) - lu(k,1633) * lu(k,2435) + lu(k,2437) = lu(k,2437) - lu(k,1634) * lu(k,2435) + lu(k,2438) = lu(k,2438) - lu(k,1635) * lu(k,2435) + lu(k,2439) = lu(k,2439) - lu(k,1636) * lu(k,2435) + lu(k,2440) = lu(k,2440) - lu(k,1637) * lu(k,2435) + lu(k,2441) = lu(k,2441) - lu(k,1638) * lu(k,2435) + lu(k,2442) = lu(k,2442) - lu(k,1639) * lu(k,2435) + lu(k,2443) = lu(k,2443) - lu(k,1640) * lu(k,2435) + lu(k,2444) = lu(k,2444) - lu(k,1641) * lu(k,2435) + lu(k,2445) = lu(k,2445) - lu(k,1642) * lu(k,2435) + lu(k,2446) = lu(k,2446) - lu(k,1643) * lu(k,2435) + lu(k,2447) = lu(k,2447) - lu(k,1644) * lu(k,2435) + lu(k,2448) = lu(k,2448) - lu(k,1645) * lu(k,2435) + lu(k,2449) = lu(k,2449) - lu(k,1646) * lu(k,2435) + lu(k,1798) = 1._r8 / lu(k,1798) + lu(k,1799) = lu(k,1799) * lu(k,1798) + lu(k,1800) = lu(k,1800) * lu(k,1798) + lu(k,1801) = lu(k,1801) * lu(k,1798) + lu(k,1802) = lu(k,1802) * lu(k,1798) + lu(k,1803) = lu(k,1803) * lu(k,1798) + lu(k,1804) = lu(k,1804) * lu(k,1798) + lu(k,1805) = lu(k,1805) * lu(k,1798) + lu(k,1806) = lu(k,1806) * lu(k,1798) + lu(k,1807) = lu(k,1807) * lu(k,1798) + lu(k,1808) = lu(k,1808) * lu(k,1798) + lu(k,1809) = lu(k,1809) * lu(k,1798) + lu(k,1810) = lu(k,1810) * lu(k,1798) + lu(k,1811) = lu(k,1811) * lu(k,1798) + lu(k,1845) = lu(k,1845) - lu(k,1799) * lu(k,1844) + lu(k,1846) = lu(k,1846) - lu(k,1800) * lu(k,1844) + lu(k,1847) = lu(k,1847) - lu(k,1801) * lu(k,1844) + lu(k,1848) = lu(k,1848) - lu(k,1802) * lu(k,1844) + lu(k,1849) = lu(k,1849) - lu(k,1803) * lu(k,1844) + lu(k,1850) = lu(k,1850) - lu(k,1804) * lu(k,1844) + lu(k,1851) = lu(k,1851) - lu(k,1805) * lu(k,1844) + lu(k,1852) = lu(k,1852) - lu(k,1806) * lu(k,1844) + lu(k,1853) = lu(k,1853) - lu(k,1807) * lu(k,1844) + lu(k,1854) = lu(k,1854) - lu(k,1808) * lu(k,1844) + lu(k,1855) = lu(k,1855) - lu(k,1809) * lu(k,1844) + lu(k,1856) = lu(k,1856) - lu(k,1810) * lu(k,1844) + lu(k,1857) = lu(k,1857) - lu(k,1811) * lu(k,1844) + lu(k,1890) = lu(k,1890) - lu(k,1799) * lu(k,1889) + lu(k,1891) = lu(k,1891) - lu(k,1800) * lu(k,1889) + lu(k,1892) = lu(k,1892) - lu(k,1801) * lu(k,1889) + lu(k,1893) = lu(k,1893) - lu(k,1802) * lu(k,1889) + lu(k,1894) = lu(k,1894) - lu(k,1803) * lu(k,1889) + lu(k,1895) = lu(k,1895) - lu(k,1804) * lu(k,1889) + lu(k,1896) = lu(k,1896) - lu(k,1805) * lu(k,1889) + lu(k,1897) = lu(k,1897) - lu(k,1806) * lu(k,1889) + lu(k,1898) = lu(k,1898) - lu(k,1807) * lu(k,1889) + lu(k,1899) = lu(k,1899) - lu(k,1808) * lu(k,1889) + lu(k,1900) = lu(k,1900) - lu(k,1809) * lu(k,1889) + lu(k,1901) = lu(k,1901) - lu(k,1810) * lu(k,1889) + lu(k,1902) = lu(k,1902) - lu(k,1811) * lu(k,1889) + lu(k,1916) = lu(k,1916) - lu(k,1799) * lu(k,1915) + lu(k,1917) = lu(k,1917) - lu(k,1800) * lu(k,1915) + lu(k,1918) = lu(k,1918) - lu(k,1801) * lu(k,1915) + lu(k,1919) = lu(k,1919) - lu(k,1802) * lu(k,1915) + lu(k,1920) = lu(k,1920) - lu(k,1803) * lu(k,1915) + lu(k,1921) = lu(k,1921) - lu(k,1804) * lu(k,1915) + lu(k,1922) = lu(k,1922) - lu(k,1805) * lu(k,1915) + lu(k,1923) = lu(k,1923) - lu(k,1806) * lu(k,1915) + lu(k,1924) = lu(k,1924) - lu(k,1807) * lu(k,1915) + lu(k,1925) = lu(k,1925) - lu(k,1808) * lu(k,1915) + lu(k,1926) = lu(k,1926) - lu(k,1809) * lu(k,1915) + lu(k,1927) = lu(k,1927) - lu(k,1810) * lu(k,1915) + lu(k,1928) = lu(k,1928) - lu(k,1811) * lu(k,1915) + lu(k,2012) = lu(k,2012) - lu(k,1799) * lu(k,2011) + lu(k,2013) = lu(k,2013) - lu(k,1800) * lu(k,2011) + lu(k,2014) = lu(k,2014) - lu(k,1801) * lu(k,2011) + lu(k,2015) = lu(k,2015) - lu(k,1802) * lu(k,2011) + lu(k,2016) = lu(k,2016) - lu(k,1803) * lu(k,2011) + lu(k,2017) = lu(k,2017) - lu(k,1804) * lu(k,2011) + lu(k,2018) = lu(k,2018) - lu(k,1805) * lu(k,2011) + lu(k,2019) = lu(k,2019) - lu(k,1806) * lu(k,2011) + lu(k,2020) = lu(k,2020) - lu(k,1807) * lu(k,2011) + lu(k,2021) = lu(k,2021) - lu(k,1808) * lu(k,2011) + lu(k,2022) = lu(k,2022) - lu(k,1809) * lu(k,2011) + lu(k,2023) = lu(k,2023) - lu(k,1810) * lu(k,2011) + lu(k,2024) = lu(k,2024) - lu(k,1811) * lu(k,2011) + lu(k,2055) = lu(k,2055) - lu(k,1799) * lu(k,2054) + lu(k,2056) = lu(k,2056) - lu(k,1800) * lu(k,2054) + lu(k,2057) = lu(k,2057) - lu(k,1801) * lu(k,2054) + lu(k,2058) = lu(k,2058) - lu(k,1802) * lu(k,2054) + lu(k,2059) = lu(k,2059) - lu(k,1803) * lu(k,2054) + lu(k,2060) = lu(k,2060) - lu(k,1804) * lu(k,2054) + lu(k,2061) = lu(k,2061) - lu(k,1805) * lu(k,2054) + lu(k,2062) = lu(k,2062) - lu(k,1806) * lu(k,2054) + lu(k,2063) = lu(k,2063) - lu(k,1807) * lu(k,2054) + lu(k,2064) = lu(k,2064) - lu(k,1808) * lu(k,2054) + lu(k,2065) = lu(k,2065) - lu(k,1809) * lu(k,2054) + lu(k,2066) = lu(k,2066) - lu(k,1810) * lu(k,2054) + lu(k,2067) = lu(k,2067) - lu(k,1811) * lu(k,2054) + lu(k,2119) = lu(k,2119) - lu(k,1799) * lu(k,2118) + lu(k,2120) = lu(k,2120) - lu(k,1800) * lu(k,2118) + lu(k,2121) = lu(k,2121) - lu(k,1801) * lu(k,2118) + lu(k,2122) = lu(k,2122) - lu(k,1802) * lu(k,2118) + lu(k,2123) = lu(k,2123) - lu(k,1803) * lu(k,2118) + lu(k,2124) = lu(k,2124) - lu(k,1804) * lu(k,2118) + lu(k,2125) = lu(k,2125) - lu(k,1805) * lu(k,2118) + lu(k,2126) = lu(k,2126) - lu(k,1806) * lu(k,2118) + lu(k,2127) = lu(k,2127) - lu(k,1807) * lu(k,2118) + lu(k,2128) = lu(k,2128) - lu(k,1808) * lu(k,2118) + lu(k,2129) = lu(k,2129) - lu(k,1809) * lu(k,2118) + lu(k,2130) = lu(k,2130) - lu(k,1810) * lu(k,2118) + lu(k,2131) = lu(k,2131) - lu(k,1811) * lu(k,2118) + lu(k,2146) = lu(k,2146) - lu(k,1799) * lu(k,2145) + lu(k,2147) = lu(k,2147) - lu(k,1800) * lu(k,2145) + lu(k,2148) = lu(k,2148) - lu(k,1801) * lu(k,2145) + lu(k,2149) = lu(k,2149) - lu(k,1802) * lu(k,2145) + lu(k,2150) = lu(k,2150) - lu(k,1803) * lu(k,2145) + lu(k,2151) = lu(k,2151) - lu(k,1804) * lu(k,2145) + lu(k,2152) = lu(k,2152) - lu(k,1805) * lu(k,2145) + lu(k,2153) = lu(k,2153) - lu(k,1806) * lu(k,2145) + lu(k,2154) = lu(k,2154) - lu(k,1807) * lu(k,2145) + lu(k,2155) = lu(k,2155) - lu(k,1808) * lu(k,2145) + lu(k,2156) = lu(k,2156) - lu(k,1809) * lu(k,2145) + lu(k,2157) = lu(k,2157) - lu(k,1810) * lu(k,2145) + lu(k,2158) = lu(k,2158) - lu(k,1811) * lu(k,2145) + lu(k,2167) = lu(k,2167) - lu(k,1799) * lu(k,2166) + lu(k,2168) = lu(k,2168) - lu(k,1800) * lu(k,2166) + lu(k,2169) = lu(k,2169) - lu(k,1801) * lu(k,2166) + lu(k,2170) = lu(k,2170) - lu(k,1802) * lu(k,2166) + lu(k,2171) = lu(k,2171) - lu(k,1803) * lu(k,2166) + lu(k,2172) = lu(k,2172) - lu(k,1804) * lu(k,2166) + lu(k,2173) = lu(k,2173) - lu(k,1805) * lu(k,2166) + lu(k,2174) = lu(k,2174) - lu(k,1806) * lu(k,2166) + lu(k,2175) = lu(k,2175) - lu(k,1807) * lu(k,2166) + lu(k,2176) = lu(k,2176) - lu(k,1808) * lu(k,2166) + lu(k,2177) = lu(k,2177) - lu(k,1809) * lu(k,2166) + lu(k,2178) = lu(k,2178) - lu(k,1810) * lu(k,2166) + lu(k,2179) = lu(k,2179) - lu(k,1811) * lu(k,2166) + lu(k,2227) = lu(k,2227) - lu(k,1799) * lu(k,2226) + lu(k,2228) = lu(k,2228) - lu(k,1800) * lu(k,2226) + lu(k,2229) = lu(k,2229) - lu(k,1801) * lu(k,2226) + lu(k,2230) = lu(k,2230) - lu(k,1802) * lu(k,2226) + lu(k,2231) = lu(k,2231) - lu(k,1803) * lu(k,2226) + lu(k,2232) = lu(k,2232) - lu(k,1804) * lu(k,2226) + lu(k,2233) = lu(k,2233) - lu(k,1805) * lu(k,2226) + lu(k,2234) = lu(k,2234) - lu(k,1806) * lu(k,2226) + lu(k,2235) = lu(k,2235) - lu(k,1807) * lu(k,2226) + lu(k,2236) = lu(k,2236) - lu(k,1808) * lu(k,2226) + lu(k,2237) = lu(k,2237) - lu(k,1809) * lu(k,2226) + lu(k,2238) = lu(k,2238) - lu(k,1810) * lu(k,2226) + lu(k,2239) = lu(k,2239) - lu(k,1811) * lu(k,2226) + lu(k,2335) = lu(k,2335) - lu(k,1799) * lu(k,2334) + lu(k,2336) = lu(k,2336) - lu(k,1800) * lu(k,2334) + lu(k,2337) = lu(k,2337) - lu(k,1801) * lu(k,2334) + lu(k,2338) = lu(k,2338) - lu(k,1802) * lu(k,2334) + lu(k,2339) = lu(k,2339) - lu(k,1803) * lu(k,2334) + lu(k,2340) = lu(k,2340) - lu(k,1804) * lu(k,2334) + lu(k,2341) = lu(k,2341) - lu(k,1805) * lu(k,2334) + lu(k,2342) = lu(k,2342) - lu(k,1806) * lu(k,2334) + lu(k,2343) = lu(k,2343) - lu(k,1807) * lu(k,2334) + lu(k,2344) = lu(k,2344) - lu(k,1808) * lu(k,2334) + lu(k,2345) = lu(k,2345) - lu(k,1809) * lu(k,2334) + lu(k,2346) = lu(k,2346) - lu(k,1810) * lu(k,2334) + lu(k,2347) = lu(k,2347) - lu(k,1811) * lu(k,2334) + lu(k,2358) = lu(k,2358) - lu(k,1799) * lu(k,2357) + lu(k,2359) = lu(k,2359) - lu(k,1800) * lu(k,2357) + lu(k,2360) = lu(k,2360) - lu(k,1801) * lu(k,2357) + lu(k,2361) = lu(k,2361) - lu(k,1802) * lu(k,2357) + lu(k,2362) = lu(k,2362) - lu(k,1803) * lu(k,2357) + lu(k,2363) = lu(k,2363) - lu(k,1804) * lu(k,2357) + lu(k,2364) = lu(k,2364) - lu(k,1805) * lu(k,2357) + lu(k,2365) = lu(k,2365) - lu(k,1806) * lu(k,2357) + lu(k,2366) = lu(k,2366) - lu(k,1807) * lu(k,2357) + lu(k,2367) = lu(k,2367) - lu(k,1808) * lu(k,2357) + lu(k,2368) = lu(k,2368) - lu(k,1809) * lu(k,2357) + lu(k,2369) = lu(k,2369) - lu(k,1810) * lu(k,2357) + lu(k,2370) = lu(k,2370) - lu(k,1811) * lu(k,2357) + lu(k,2410) = lu(k,2410) - lu(k,1799) * lu(k,2409) + lu(k,2411) = lu(k,2411) - lu(k,1800) * lu(k,2409) + lu(k,2412) = lu(k,2412) - lu(k,1801) * lu(k,2409) + lu(k,2413) = lu(k,2413) - lu(k,1802) * lu(k,2409) + lu(k,2414) = lu(k,2414) - lu(k,1803) * lu(k,2409) + lu(k,2415) = lu(k,2415) - lu(k,1804) * lu(k,2409) + lu(k,2416) = lu(k,2416) - lu(k,1805) * lu(k,2409) + lu(k,2417) = lu(k,2417) - lu(k,1806) * lu(k,2409) + lu(k,2418) = lu(k,2418) - lu(k,1807) * lu(k,2409) + lu(k,2419) = lu(k,2419) - lu(k,1808) * lu(k,2409) + lu(k,2420) = lu(k,2420) - lu(k,1809) * lu(k,2409) + lu(k,2421) = lu(k,2421) - lu(k,1810) * lu(k,2409) + lu(k,2422) = lu(k,2422) - lu(k,1811) * lu(k,2409) + lu(k,2437) = lu(k,2437) - lu(k,1799) * lu(k,2436) + lu(k,2438) = lu(k,2438) - lu(k,1800) * lu(k,2436) + lu(k,2439) = lu(k,2439) - lu(k,1801) * lu(k,2436) + lu(k,2440) = lu(k,2440) - lu(k,1802) * lu(k,2436) + lu(k,2441) = lu(k,2441) - lu(k,1803) * lu(k,2436) + lu(k,2442) = lu(k,2442) - lu(k,1804) * lu(k,2436) + lu(k,2443) = lu(k,2443) - lu(k,1805) * lu(k,2436) + lu(k,2444) = lu(k,2444) - lu(k,1806) * lu(k,2436) + lu(k,2445) = lu(k,2445) - lu(k,1807) * lu(k,2436) + lu(k,2446) = lu(k,2446) - lu(k,1808) * lu(k,2436) + lu(k,2447) = lu(k,2447) - lu(k,1809) * lu(k,2436) + lu(k,2448) = lu(k,2448) - lu(k,1810) * lu(k,2436) + lu(k,2449) = lu(k,2449) - lu(k,1811) * lu(k,2436) + lu(k,1845) = 1._r8 / lu(k,1845) + lu(k,1846) = lu(k,1846) * lu(k,1845) + lu(k,1847) = lu(k,1847) * lu(k,1845) + lu(k,1848) = lu(k,1848) * lu(k,1845) + lu(k,1849) = lu(k,1849) * lu(k,1845) + lu(k,1850) = lu(k,1850) * lu(k,1845) + lu(k,1851) = lu(k,1851) * lu(k,1845) + lu(k,1852) = lu(k,1852) * lu(k,1845) + lu(k,1853) = lu(k,1853) * lu(k,1845) + lu(k,1854) = lu(k,1854) * lu(k,1845) + lu(k,1855) = lu(k,1855) * lu(k,1845) + lu(k,1856) = lu(k,1856) * lu(k,1845) + lu(k,1857) = lu(k,1857) * lu(k,1845) + lu(k,1891) = lu(k,1891) - lu(k,1846) * lu(k,1890) + lu(k,1892) = lu(k,1892) - lu(k,1847) * lu(k,1890) + lu(k,1893) = lu(k,1893) - lu(k,1848) * lu(k,1890) + lu(k,1894) = lu(k,1894) - lu(k,1849) * lu(k,1890) + lu(k,1895) = lu(k,1895) - lu(k,1850) * lu(k,1890) + lu(k,1896) = lu(k,1896) - lu(k,1851) * lu(k,1890) + lu(k,1897) = lu(k,1897) - lu(k,1852) * lu(k,1890) + lu(k,1898) = lu(k,1898) - lu(k,1853) * lu(k,1890) + lu(k,1899) = lu(k,1899) - lu(k,1854) * lu(k,1890) + lu(k,1900) = lu(k,1900) - lu(k,1855) * lu(k,1890) + lu(k,1901) = lu(k,1901) - lu(k,1856) * lu(k,1890) + lu(k,1902) = lu(k,1902) - lu(k,1857) * lu(k,1890) + lu(k,1917) = lu(k,1917) - lu(k,1846) * lu(k,1916) + lu(k,1918) = lu(k,1918) - lu(k,1847) * lu(k,1916) + lu(k,1919) = lu(k,1919) - lu(k,1848) * lu(k,1916) + lu(k,1920) = lu(k,1920) - lu(k,1849) * lu(k,1916) + lu(k,1921) = lu(k,1921) - lu(k,1850) * lu(k,1916) + lu(k,1922) = lu(k,1922) - lu(k,1851) * lu(k,1916) + lu(k,1923) = lu(k,1923) - lu(k,1852) * lu(k,1916) + lu(k,1924) = lu(k,1924) - lu(k,1853) * lu(k,1916) + lu(k,1925) = lu(k,1925) - lu(k,1854) * lu(k,1916) + lu(k,1926) = lu(k,1926) - lu(k,1855) * lu(k,1916) + lu(k,1927) = lu(k,1927) - lu(k,1856) * lu(k,1916) + lu(k,1928) = lu(k,1928) - lu(k,1857) * lu(k,1916) + lu(k,2013) = lu(k,2013) - lu(k,1846) * lu(k,2012) + lu(k,2014) = lu(k,2014) - lu(k,1847) * lu(k,2012) + lu(k,2015) = lu(k,2015) - lu(k,1848) * lu(k,2012) + lu(k,2016) = lu(k,2016) - lu(k,1849) * lu(k,2012) + lu(k,2017) = lu(k,2017) - lu(k,1850) * lu(k,2012) + lu(k,2018) = lu(k,2018) - lu(k,1851) * lu(k,2012) + lu(k,2019) = lu(k,2019) - lu(k,1852) * lu(k,2012) + lu(k,2020) = lu(k,2020) - lu(k,1853) * lu(k,2012) + lu(k,2021) = lu(k,2021) - lu(k,1854) * lu(k,2012) + lu(k,2022) = lu(k,2022) - lu(k,1855) * lu(k,2012) + lu(k,2023) = lu(k,2023) - lu(k,1856) * lu(k,2012) + lu(k,2024) = lu(k,2024) - lu(k,1857) * lu(k,2012) + lu(k,2056) = lu(k,2056) - lu(k,1846) * lu(k,2055) + lu(k,2057) = lu(k,2057) - lu(k,1847) * lu(k,2055) + lu(k,2058) = lu(k,2058) - lu(k,1848) * lu(k,2055) + lu(k,2059) = lu(k,2059) - lu(k,1849) * lu(k,2055) + lu(k,2060) = lu(k,2060) - lu(k,1850) * lu(k,2055) + lu(k,2061) = lu(k,2061) - lu(k,1851) * lu(k,2055) + lu(k,2062) = lu(k,2062) - lu(k,1852) * lu(k,2055) + lu(k,2063) = lu(k,2063) - lu(k,1853) * lu(k,2055) + lu(k,2064) = lu(k,2064) - lu(k,1854) * lu(k,2055) + lu(k,2065) = lu(k,2065) - lu(k,1855) * lu(k,2055) + lu(k,2066) = lu(k,2066) - lu(k,1856) * lu(k,2055) + lu(k,2067) = lu(k,2067) - lu(k,1857) * lu(k,2055) + lu(k,2120) = lu(k,2120) - lu(k,1846) * lu(k,2119) + lu(k,2121) = lu(k,2121) - lu(k,1847) * lu(k,2119) + lu(k,2122) = lu(k,2122) - lu(k,1848) * lu(k,2119) + lu(k,2123) = lu(k,2123) - lu(k,1849) * lu(k,2119) + lu(k,2124) = lu(k,2124) - lu(k,1850) * lu(k,2119) + lu(k,2125) = lu(k,2125) - lu(k,1851) * lu(k,2119) + lu(k,2126) = lu(k,2126) - lu(k,1852) * lu(k,2119) + lu(k,2127) = lu(k,2127) - lu(k,1853) * lu(k,2119) + lu(k,2128) = lu(k,2128) - lu(k,1854) * lu(k,2119) + lu(k,2129) = lu(k,2129) - lu(k,1855) * lu(k,2119) + lu(k,2130) = lu(k,2130) - lu(k,1856) * lu(k,2119) + lu(k,2131) = lu(k,2131) - lu(k,1857) * lu(k,2119) + lu(k,2147) = lu(k,2147) - lu(k,1846) * lu(k,2146) + lu(k,2148) = lu(k,2148) - lu(k,1847) * lu(k,2146) + lu(k,2149) = lu(k,2149) - lu(k,1848) * lu(k,2146) + lu(k,2150) = lu(k,2150) - lu(k,1849) * lu(k,2146) + lu(k,2151) = lu(k,2151) - lu(k,1850) * lu(k,2146) + lu(k,2152) = lu(k,2152) - lu(k,1851) * lu(k,2146) + lu(k,2153) = lu(k,2153) - lu(k,1852) * lu(k,2146) + lu(k,2154) = lu(k,2154) - lu(k,1853) * lu(k,2146) + lu(k,2155) = lu(k,2155) - lu(k,1854) * lu(k,2146) + lu(k,2156) = lu(k,2156) - lu(k,1855) * lu(k,2146) + lu(k,2157) = lu(k,2157) - lu(k,1856) * lu(k,2146) + lu(k,2158) = lu(k,2158) - lu(k,1857) * lu(k,2146) + lu(k,2168) = lu(k,2168) - lu(k,1846) * lu(k,2167) + lu(k,2169) = lu(k,2169) - lu(k,1847) * lu(k,2167) + lu(k,2170) = lu(k,2170) - lu(k,1848) * lu(k,2167) + lu(k,2171) = lu(k,2171) - lu(k,1849) * lu(k,2167) + lu(k,2172) = lu(k,2172) - lu(k,1850) * lu(k,2167) + lu(k,2173) = lu(k,2173) - lu(k,1851) * lu(k,2167) + lu(k,2174) = lu(k,2174) - lu(k,1852) * lu(k,2167) + lu(k,2175) = lu(k,2175) - lu(k,1853) * lu(k,2167) + lu(k,2176) = lu(k,2176) - lu(k,1854) * lu(k,2167) + lu(k,2177) = lu(k,2177) - lu(k,1855) * lu(k,2167) + lu(k,2178) = lu(k,2178) - lu(k,1856) * lu(k,2167) + lu(k,2179) = lu(k,2179) - lu(k,1857) * lu(k,2167) + lu(k,2228) = lu(k,2228) - lu(k,1846) * lu(k,2227) + lu(k,2229) = lu(k,2229) - lu(k,1847) * lu(k,2227) + lu(k,2230) = lu(k,2230) - lu(k,1848) * lu(k,2227) + lu(k,2231) = lu(k,2231) - lu(k,1849) * lu(k,2227) + lu(k,2232) = lu(k,2232) - lu(k,1850) * lu(k,2227) + lu(k,2233) = lu(k,2233) - lu(k,1851) * lu(k,2227) + lu(k,2234) = lu(k,2234) - lu(k,1852) * lu(k,2227) + lu(k,2235) = lu(k,2235) - lu(k,1853) * lu(k,2227) + lu(k,2236) = lu(k,2236) - lu(k,1854) * lu(k,2227) + lu(k,2237) = lu(k,2237) - lu(k,1855) * lu(k,2227) + lu(k,2238) = lu(k,2238) - lu(k,1856) * lu(k,2227) + lu(k,2239) = lu(k,2239) - lu(k,1857) * lu(k,2227) + lu(k,2336) = lu(k,2336) - lu(k,1846) * lu(k,2335) + lu(k,2337) = lu(k,2337) - lu(k,1847) * lu(k,2335) + lu(k,2338) = lu(k,2338) - lu(k,1848) * lu(k,2335) + lu(k,2339) = lu(k,2339) - lu(k,1849) * lu(k,2335) + lu(k,2340) = lu(k,2340) - lu(k,1850) * lu(k,2335) + lu(k,2341) = lu(k,2341) - lu(k,1851) * lu(k,2335) + lu(k,2342) = lu(k,2342) - lu(k,1852) * lu(k,2335) + lu(k,2343) = lu(k,2343) - lu(k,1853) * lu(k,2335) + lu(k,2344) = lu(k,2344) - lu(k,1854) * lu(k,2335) + lu(k,2345) = lu(k,2345) - lu(k,1855) * lu(k,2335) + lu(k,2346) = lu(k,2346) - lu(k,1856) * lu(k,2335) + lu(k,2347) = lu(k,2347) - lu(k,1857) * lu(k,2335) + lu(k,2359) = lu(k,2359) - lu(k,1846) * lu(k,2358) + lu(k,2360) = lu(k,2360) - lu(k,1847) * lu(k,2358) + lu(k,2361) = lu(k,2361) - lu(k,1848) * lu(k,2358) + lu(k,2362) = lu(k,2362) - lu(k,1849) * lu(k,2358) + lu(k,2363) = lu(k,2363) - lu(k,1850) * lu(k,2358) + lu(k,2364) = lu(k,2364) - lu(k,1851) * lu(k,2358) + lu(k,2365) = lu(k,2365) - lu(k,1852) * lu(k,2358) + lu(k,2366) = lu(k,2366) - lu(k,1853) * lu(k,2358) + lu(k,2367) = lu(k,2367) - lu(k,1854) * lu(k,2358) + lu(k,2368) = lu(k,2368) - lu(k,1855) * lu(k,2358) + lu(k,2369) = lu(k,2369) - lu(k,1856) * lu(k,2358) + lu(k,2370) = lu(k,2370) - lu(k,1857) * lu(k,2358) + lu(k,2411) = lu(k,2411) - lu(k,1846) * lu(k,2410) + lu(k,2412) = lu(k,2412) - lu(k,1847) * lu(k,2410) + lu(k,2413) = lu(k,2413) - lu(k,1848) * lu(k,2410) + lu(k,2414) = lu(k,2414) - lu(k,1849) * lu(k,2410) + lu(k,2415) = lu(k,2415) - lu(k,1850) * lu(k,2410) + lu(k,2416) = lu(k,2416) - lu(k,1851) * lu(k,2410) + lu(k,2417) = lu(k,2417) - lu(k,1852) * lu(k,2410) + lu(k,2418) = lu(k,2418) - lu(k,1853) * lu(k,2410) + lu(k,2419) = lu(k,2419) - lu(k,1854) * lu(k,2410) + lu(k,2420) = lu(k,2420) - lu(k,1855) * lu(k,2410) + lu(k,2421) = lu(k,2421) - lu(k,1856) * lu(k,2410) + lu(k,2422) = lu(k,2422) - lu(k,1857) * lu(k,2410) + lu(k,2438) = lu(k,2438) - lu(k,1846) * lu(k,2437) + lu(k,2439) = lu(k,2439) - lu(k,1847) * lu(k,2437) + lu(k,2440) = lu(k,2440) - lu(k,1848) * lu(k,2437) + lu(k,2441) = lu(k,2441) - lu(k,1849) * lu(k,2437) + lu(k,2442) = lu(k,2442) - lu(k,1850) * lu(k,2437) + lu(k,2443) = lu(k,2443) - lu(k,1851) * lu(k,2437) + lu(k,2444) = lu(k,2444) - lu(k,1852) * lu(k,2437) + lu(k,2445) = lu(k,2445) - lu(k,1853) * lu(k,2437) + lu(k,2446) = lu(k,2446) - lu(k,1854) * lu(k,2437) + lu(k,2447) = lu(k,2447) - lu(k,1855) * lu(k,2437) + lu(k,2448) = lu(k,2448) - lu(k,1856) * lu(k,2437) + lu(k,2449) = lu(k,2449) - lu(k,1857) * lu(k,2437) end do end subroutine lu_fac31 subroutine lu_fac32( avec_len, lu ) @@ -8594,244 +8263,595 @@ subroutine lu_fac32( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,2055) = 1._r8 / lu(k,2055) - lu(k,2056) = lu(k,2056) * lu(k,2055) - lu(k,2057) = lu(k,2057) * lu(k,2055) - lu(k,2058) = lu(k,2058) * lu(k,2055) - lu(k,2059) = lu(k,2059) * lu(k,2055) - lu(k,2060) = lu(k,2060) * lu(k,2055) - lu(k,2061) = lu(k,2061) * lu(k,2055) - lu(k,2062) = lu(k,2062) * lu(k,2055) - lu(k,2063) = lu(k,2063) * lu(k,2055) - lu(k,2099) = lu(k,2099) - lu(k,2056) * lu(k,2098) - lu(k,2100) = lu(k,2100) - lu(k,2057) * lu(k,2098) - lu(k,2101) = lu(k,2101) - lu(k,2058) * lu(k,2098) - lu(k,2102) = lu(k,2102) - lu(k,2059) * lu(k,2098) - lu(k,2103) = lu(k,2103) - lu(k,2060) * lu(k,2098) - lu(k,2104) = lu(k,2104) - lu(k,2061) * lu(k,2098) - lu(k,2105) = lu(k,2105) - lu(k,2062) * lu(k,2098) - lu(k,2106) = lu(k,2106) - lu(k,2063) * lu(k,2098) - lu(k,2120) = lu(k,2120) - lu(k,2056) * lu(k,2119) - lu(k,2121) = lu(k,2121) - lu(k,2057) * lu(k,2119) - lu(k,2122) = lu(k,2122) - lu(k,2058) * lu(k,2119) - lu(k,2123) = lu(k,2123) - lu(k,2059) * lu(k,2119) - lu(k,2124) = lu(k,2124) - lu(k,2060) * lu(k,2119) - lu(k,2125) = lu(k,2125) - lu(k,2061) * lu(k,2119) - lu(k,2126) = lu(k,2126) - lu(k,2062) * lu(k,2119) - lu(k,2127) = lu(k,2127) - lu(k,2063) * lu(k,2119) - lu(k,2166) = lu(k,2166) - lu(k,2056) * lu(k,2165) - lu(k,2167) = lu(k,2167) - lu(k,2057) * lu(k,2165) - lu(k,2168) = lu(k,2168) - lu(k,2058) * lu(k,2165) - lu(k,2169) = lu(k,2169) - lu(k,2059) * lu(k,2165) - lu(k,2170) = lu(k,2170) - lu(k,2060) * lu(k,2165) - lu(k,2171) = lu(k,2171) - lu(k,2061) * lu(k,2165) - lu(k,2172) = lu(k,2172) - lu(k,2062) * lu(k,2165) - lu(k,2173) = lu(k,2173) - lu(k,2063) * lu(k,2165) - lu(k,2230) = lu(k,2230) - lu(k,2056) * lu(k,2229) - lu(k,2231) = lu(k,2231) - lu(k,2057) * lu(k,2229) - lu(k,2232) = lu(k,2232) - lu(k,2058) * lu(k,2229) - lu(k,2233) = lu(k,2233) - lu(k,2059) * lu(k,2229) - lu(k,2234) = lu(k,2234) - lu(k,2060) * lu(k,2229) - lu(k,2235) = lu(k,2235) - lu(k,2061) * lu(k,2229) - lu(k,2236) = lu(k,2236) - lu(k,2062) * lu(k,2229) - lu(k,2237) = lu(k,2237) - lu(k,2063) * lu(k,2229) - lu(k,2255) = lu(k,2255) - lu(k,2056) * lu(k,2254) - lu(k,2256) = lu(k,2256) - lu(k,2057) * lu(k,2254) - lu(k,2257) = lu(k,2257) - lu(k,2058) * lu(k,2254) - lu(k,2258) = lu(k,2258) - lu(k,2059) * lu(k,2254) - lu(k,2259) = lu(k,2259) - lu(k,2060) * lu(k,2254) - lu(k,2260) = lu(k,2260) - lu(k,2061) * lu(k,2254) - lu(k,2261) = lu(k,2261) - lu(k,2062) * lu(k,2254) - lu(k,2262) = lu(k,2262) - lu(k,2063) * lu(k,2254) - lu(k,2363) = lu(k,2363) - lu(k,2056) * lu(k,2362) - lu(k,2364) = lu(k,2364) - lu(k,2057) * lu(k,2362) - lu(k,2365) = lu(k,2365) - lu(k,2058) * lu(k,2362) - lu(k,2366) = lu(k,2366) - lu(k,2059) * lu(k,2362) - lu(k,2367) = lu(k,2367) - lu(k,2060) * lu(k,2362) - lu(k,2368) = lu(k,2368) - lu(k,2061) * lu(k,2362) - lu(k,2369) = lu(k,2369) - lu(k,2062) * lu(k,2362) - lu(k,2370) = lu(k,2370) - lu(k,2063) * lu(k,2362) - lu(k,2415) = lu(k,2415) - lu(k,2056) * lu(k,2414) - lu(k,2416) = lu(k,2416) - lu(k,2057) * lu(k,2414) - lu(k,2417) = lu(k,2417) - lu(k,2058) * lu(k,2414) - lu(k,2418) = lu(k,2418) - lu(k,2059) * lu(k,2414) - lu(k,2419) = lu(k,2419) - lu(k,2060) * lu(k,2414) - lu(k,2420) = lu(k,2420) - lu(k,2061) * lu(k,2414) - lu(k,2421) = lu(k,2421) - lu(k,2062) * lu(k,2414) - lu(k,2422) = lu(k,2422) - lu(k,2063) * lu(k,2414) - lu(k,2442) = lu(k,2442) - lu(k,2056) * lu(k,2441) - lu(k,2443) = lu(k,2443) - lu(k,2057) * lu(k,2441) - lu(k,2444) = lu(k,2444) - lu(k,2058) * lu(k,2441) - lu(k,2445) = lu(k,2445) - lu(k,2059) * lu(k,2441) - lu(k,2446) = lu(k,2446) - lu(k,2060) * lu(k,2441) - lu(k,2447) = lu(k,2447) - lu(k,2061) * lu(k,2441) - lu(k,2448) = lu(k,2448) - lu(k,2062) * lu(k,2441) - lu(k,2449) = lu(k,2449) - lu(k,2063) * lu(k,2441) - lu(k,2099) = 1._r8 / lu(k,2099) - lu(k,2100) = lu(k,2100) * lu(k,2099) - lu(k,2101) = lu(k,2101) * lu(k,2099) - lu(k,2102) = lu(k,2102) * lu(k,2099) - lu(k,2103) = lu(k,2103) * lu(k,2099) - lu(k,2104) = lu(k,2104) * lu(k,2099) - lu(k,2105) = lu(k,2105) * lu(k,2099) - lu(k,2106) = lu(k,2106) * lu(k,2099) - lu(k,2121) = lu(k,2121) - lu(k,2100) * lu(k,2120) - lu(k,2122) = lu(k,2122) - lu(k,2101) * lu(k,2120) - lu(k,2123) = lu(k,2123) - lu(k,2102) * lu(k,2120) - lu(k,2124) = lu(k,2124) - lu(k,2103) * lu(k,2120) - lu(k,2125) = lu(k,2125) - lu(k,2104) * lu(k,2120) - lu(k,2126) = lu(k,2126) - lu(k,2105) * lu(k,2120) - lu(k,2127) = lu(k,2127) - lu(k,2106) * lu(k,2120) - lu(k,2167) = lu(k,2167) - lu(k,2100) * lu(k,2166) - lu(k,2168) = lu(k,2168) - lu(k,2101) * lu(k,2166) - lu(k,2169) = lu(k,2169) - lu(k,2102) * lu(k,2166) - lu(k,2170) = lu(k,2170) - lu(k,2103) * lu(k,2166) - lu(k,2171) = lu(k,2171) - lu(k,2104) * lu(k,2166) - lu(k,2172) = lu(k,2172) - lu(k,2105) * lu(k,2166) - lu(k,2173) = lu(k,2173) - lu(k,2106) * lu(k,2166) - lu(k,2231) = lu(k,2231) - lu(k,2100) * lu(k,2230) - lu(k,2232) = lu(k,2232) - lu(k,2101) * lu(k,2230) - lu(k,2233) = lu(k,2233) - lu(k,2102) * lu(k,2230) - lu(k,2234) = lu(k,2234) - lu(k,2103) * lu(k,2230) - lu(k,2235) = lu(k,2235) - lu(k,2104) * lu(k,2230) - lu(k,2236) = lu(k,2236) - lu(k,2105) * lu(k,2230) - lu(k,2237) = lu(k,2237) - lu(k,2106) * lu(k,2230) - lu(k,2256) = lu(k,2256) - lu(k,2100) * lu(k,2255) - lu(k,2257) = lu(k,2257) - lu(k,2101) * lu(k,2255) - lu(k,2258) = lu(k,2258) - lu(k,2102) * lu(k,2255) - lu(k,2259) = lu(k,2259) - lu(k,2103) * lu(k,2255) - lu(k,2260) = lu(k,2260) - lu(k,2104) * lu(k,2255) - lu(k,2261) = lu(k,2261) - lu(k,2105) * lu(k,2255) - lu(k,2262) = lu(k,2262) - lu(k,2106) * lu(k,2255) - lu(k,2364) = lu(k,2364) - lu(k,2100) * lu(k,2363) - lu(k,2365) = lu(k,2365) - lu(k,2101) * lu(k,2363) - lu(k,2366) = lu(k,2366) - lu(k,2102) * lu(k,2363) - lu(k,2367) = lu(k,2367) - lu(k,2103) * lu(k,2363) - lu(k,2368) = lu(k,2368) - lu(k,2104) * lu(k,2363) - lu(k,2369) = lu(k,2369) - lu(k,2105) * lu(k,2363) - lu(k,2370) = lu(k,2370) - lu(k,2106) * lu(k,2363) - lu(k,2416) = lu(k,2416) - lu(k,2100) * lu(k,2415) - lu(k,2417) = lu(k,2417) - lu(k,2101) * lu(k,2415) - lu(k,2418) = lu(k,2418) - lu(k,2102) * lu(k,2415) - lu(k,2419) = lu(k,2419) - lu(k,2103) * lu(k,2415) - lu(k,2420) = lu(k,2420) - lu(k,2104) * lu(k,2415) - lu(k,2421) = lu(k,2421) - lu(k,2105) * lu(k,2415) - lu(k,2422) = lu(k,2422) - lu(k,2106) * lu(k,2415) - lu(k,2443) = lu(k,2443) - lu(k,2100) * lu(k,2442) - lu(k,2444) = lu(k,2444) - lu(k,2101) * lu(k,2442) - lu(k,2445) = lu(k,2445) - lu(k,2102) * lu(k,2442) - lu(k,2446) = lu(k,2446) - lu(k,2103) * lu(k,2442) - lu(k,2447) = lu(k,2447) - lu(k,2104) * lu(k,2442) - lu(k,2448) = lu(k,2448) - lu(k,2105) * lu(k,2442) - lu(k,2449) = lu(k,2449) - lu(k,2106) * lu(k,2442) - lu(k,2121) = 1._r8 / lu(k,2121) - lu(k,2122) = lu(k,2122) * lu(k,2121) - lu(k,2123) = lu(k,2123) * lu(k,2121) - lu(k,2124) = lu(k,2124) * lu(k,2121) - lu(k,2125) = lu(k,2125) * lu(k,2121) - lu(k,2126) = lu(k,2126) * lu(k,2121) - lu(k,2127) = lu(k,2127) * lu(k,2121) - lu(k,2168) = lu(k,2168) - lu(k,2122) * lu(k,2167) - lu(k,2169) = lu(k,2169) - lu(k,2123) * lu(k,2167) - lu(k,2170) = lu(k,2170) - lu(k,2124) * lu(k,2167) - lu(k,2171) = lu(k,2171) - lu(k,2125) * lu(k,2167) - lu(k,2172) = lu(k,2172) - lu(k,2126) * lu(k,2167) - lu(k,2173) = lu(k,2173) - lu(k,2127) * lu(k,2167) - lu(k,2232) = lu(k,2232) - lu(k,2122) * lu(k,2231) - lu(k,2233) = lu(k,2233) - lu(k,2123) * lu(k,2231) - lu(k,2234) = lu(k,2234) - lu(k,2124) * lu(k,2231) - lu(k,2235) = lu(k,2235) - lu(k,2125) * lu(k,2231) - lu(k,2236) = lu(k,2236) - lu(k,2126) * lu(k,2231) - lu(k,2237) = lu(k,2237) - lu(k,2127) * lu(k,2231) - lu(k,2257) = lu(k,2257) - lu(k,2122) * lu(k,2256) - lu(k,2258) = lu(k,2258) - lu(k,2123) * lu(k,2256) - lu(k,2259) = lu(k,2259) - lu(k,2124) * lu(k,2256) - lu(k,2260) = lu(k,2260) - lu(k,2125) * lu(k,2256) - lu(k,2261) = lu(k,2261) - lu(k,2126) * lu(k,2256) - lu(k,2262) = lu(k,2262) - lu(k,2127) * lu(k,2256) - lu(k,2365) = lu(k,2365) - lu(k,2122) * lu(k,2364) - lu(k,2366) = lu(k,2366) - lu(k,2123) * lu(k,2364) - lu(k,2367) = lu(k,2367) - lu(k,2124) * lu(k,2364) - lu(k,2368) = lu(k,2368) - lu(k,2125) * lu(k,2364) - lu(k,2369) = lu(k,2369) - lu(k,2126) * lu(k,2364) - lu(k,2370) = lu(k,2370) - lu(k,2127) * lu(k,2364) - lu(k,2417) = lu(k,2417) - lu(k,2122) * lu(k,2416) - lu(k,2418) = lu(k,2418) - lu(k,2123) * lu(k,2416) - lu(k,2419) = lu(k,2419) - lu(k,2124) * lu(k,2416) - lu(k,2420) = lu(k,2420) - lu(k,2125) * lu(k,2416) - lu(k,2421) = lu(k,2421) - lu(k,2126) * lu(k,2416) - lu(k,2422) = lu(k,2422) - lu(k,2127) * lu(k,2416) - lu(k,2444) = lu(k,2444) - lu(k,2122) * lu(k,2443) - lu(k,2445) = lu(k,2445) - lu(k,2123) * lu(k,2443) - lu(k,2446) = lu(k,2446) - lu(k,2124) * lu(k,2443) - lu(k,2447) = lu(k,2447) - lu(k,2125) * lu(k,2443) - lu(k,2448) = lu(k,2448) - lu(k,2126) * lu(k,2443) - lu(k,2449) = lu(k,2449) - lu(k,2127) * lu(k,2443) - lu(k,2168) = 1._r8 / lu(k,2168) - lu(k,2169) = lu(k,2169) * lu(k,2168) - lu(k,2170) = lu(k,2170) * lu(k,2168) - lu(k,2171) = lu(k,2171) * lu(k,2168) - lu(k,2172) = lu(k,2172) * lu(k,2168) - lu(k,2173) = lu(k,2173) * lu(k,2168) - lu(k,2233) = lu(k,2233) - lu(k,2169) * lu(k,2232) - lu(k,2234) = lu(k,2234) - lu(k,2170) * lu(k,2232) - lu(k,2235) = lu(k,2235) - lu(k,2171) * lu(k,2232) - lu(k,2236) = lu(k,2236) - lu(k,2172) * lu(k,2232) - lu(k,2237) = lu(k,2237) - lu(k,2173) * lu(k,2232) - lu(k,2258) = lu(k,2258) - lu(k,2169) * lu(k,2257) - lu(k,2259) = lu(k,2259) - lu(k,2170) * lu(k,2257) - lu(k,2260) = lu(k,2260) - lu(k,2171) * lu(k,2257) - lu(k,2261) = lu(k,2261) - lu(k,2172) * lu(k,2257) - lu(k,2262) = lu(k,2262) - lu(k,2173) * lu(k,2257) - lu(k,2366) = lu(k,2366) - lu(k,2169) * lu(k,2365) - lu(k,2367) = lu(k,2367) - lu(k,2170) * lu(k,2365) - lu(k,2368) = lu(k,2368) - lu(k,2171) * lu(k,2365) - lu(k,2369) = lu(k,2369) - lu(k,2172) * lu(k,2365) - lu(k,2370) = lu(k,2370) - lu(k,2173) * lu(k,2365) - lu(k,2418) = lu(k,2418) - lu(k,2169) * lu(k,2417) - lu(k,2419) = lu(k,2419) - lu(k,2170) * lu(k,2417) - lu(k,2420) = lu(k,2420) - lu(k,2171) * lu(k,2417) - lu(k,2421) = lu(k,2421) - lu(k,2172) * lu(k,2417) - lu(k,2422) = lu(k,2422) - lu(k,2173) * lu(k,2417) - lu(k,2445) = lu(k,2445) - lu(k,2169) * lu(k,2444) - lu(k,2446) = lu(k,2446) - lu(k,2170) * lu(k,2444) - lu(k,2447) = lu(k,2447) - lu(k,2171) * lu(k,2444) - lu(k,2448) = lu(k,2448) - lu(k,2172) * lu(k,2444) - lu(k,2449) = lu(k,2449) - lu(k,2173) * lu(k,2444) - lu(k,2233) = 1._r8 / lu(k,2233) - lu(k,2234) = lu(k,2234) * lu(k,2233) - lu(k,2235) = lu(k,2235) * lu(k,2233) - lu(k,2236) = lu(k,2236) * lu(k,2233) - lu(k,2237) = lu(k,2237) * lu(k,2233) - lu(k,2259) = lu(k,2259) - lu(k,2234) * lu(k,2258) - lu(k,2260) = lu(k,2260) - lu(k,2235) * lu(k,2258) - lu(k,2261) = lu(k,2261) - lu(k,2236) * lu(k,2258) - lu(k,2262) = lu(k,2262) - lu(k,2237) * lu(k,2258) - lu(k,2367) = lu(k,2367) - lu(k,2234) * lu(k,2366) - lu(k,2368) = lu(k,2368) - lu(k,2235) * lu(k,2366) - lu(k,2369) = lu(k,2369) - lu(k,2236) * lu(k,2366) - lu(k,2370) = lu(k,2370) - lu(k,2237) * lu(k,2366) - lu(k,2419) = lu(k,2419) - lu(k,2234) * lu(k,2418) - lu(k,2420) = lu(k,2420) - lu(k,2235) * lu(k,2418) - lu(k,2421) = lu(k,2421) - lu(k,2236) * lu(k,2418) - lu(k,2422) = lu(k,2422) - lu(k,2237) * lu(k,2418) - lu(k,2446) = lu(k,2446) - lu(k,2234) * lu(k,2445) - lu(k,2447) = lu(k,2447) - lu(k,2235) * lu(k,2445) - lu(k,2448) = lu(k,2448) - lu(k,2236) * lu(k,2445) - lu(k,2449) = lu(k,2449) - lu(k,2237) * lu(k,2445) - lu(k,2259) = 1._r8 / lu(k,2259) - lu(k,2260) = lu(k,2260) * lu(k,2259) - lu(k,2261) = lu(k,2261) * lu(k,2259) - lu(k,2262) = lu(k,2262) * lu(k,2259) - lu(k,2368) = lu(k,2368) - lu(k,2260) * lu(k,2367) - lu(k,2369) = lu(k,2369) - lu(k,2261) * lu(k,2367) - lu(k,2370) = lu(k,2370) - lu(k,2262) * lu(k,2367) - lu(k,2420) = lu(k,2420) - lu(k,2260) * lu(k,2419) - lu(k,2421) = lu(k,2421) - lu(k,2261) * lu(k,2419) - lu(k,2422) = lu(k,2422) - lu(k,2262) * lu(k,2419) - lu(k,2447) = lu(k,2447) - lu(k,2260) * lu(k,2446) - lu(k,2448) = lu(k,2448) - lu(k,2261) * lu(k,2446) - lu(k,2449) = lu(k,2449) - lu(k,2262) * lu(k,2446) + lu(k,1891) = 1._r8 / lu(k,1891) + lu(k,1892) = lu(k,1892) * lu(k,1891) + lu(k,1893) = lu(k,1893) * lu(k,1891) + lu(k,1894) = lu(k,1894) * lu(k,1891) + lu(k,1895) = lu(k,1895) * lu(k,1891) + lu(k,1896) = lu(k,1896) * lu(k,1891) + lu(k,1897) = lu(k,1897) * lu(k,1891) + lu(k,1898) = lu(k,1898) * lu(k,1891) + lu(k,1899) = lu(k,1899) * lu(k,1891) + lu(k,1900) = lu(k,1900) * lu(k,1891) + lu(k,1901) = lu(k,1901) * lu(k,1891) + lu(k,1902) = lu(k,1902) * lu(k,1891) + lu(k,1918) = lu(k,1918) - lu(k,1892) * lu(k,1917) + lu(k,1919) = lu(k,1919) - lu(k,1893) * lu(k,1917) + lu(k,1920) = lu(k,1920) - lu(k,1894) * lu(k,1917) + lu(k,1921) = lu(k,1921) - lu(k,1895) * lu(k,1917) + lu(k,1922) = lu(k,1922) - lu(k,1896) * lu(k,1917) + lu(k,1923) = lu(k,1923) - lu(k,1897) * lu(k,1917) + lu(k,1924) = lu(k,1924) - lu(k,1898) * lu(k,1917) + lu(k,1925) = lu(k,1925) - lu(k,1899) * lu(k,1917) + lu(k,1926) = lu(k,1926) - lu(k,1900) * lu(k,1917) + lu(k,1927) = lu(k,1927) - lu(k,1901) * lu(k,1917) + lu(k,1928) = lu(k,1928) - lu(k,1902) * lu(k,1917) + lu(k,2014) = lu(k,2014) - lu(k,1892) * lu(k,2013) + lu(k,2015) = lu(k,2015) - lu(k,1893) * lu(k,2013) + lu(k,2016) = lu(k,2016) - lu(k,1894) * lu(k,2013) + lu(k,2017) = lu(k,2017) - lu(k,1895) * lu(k,2013) + lu(k,2018) = lu(k,2018) - lu(k,1896) * lu(k,2013) + lu(k,2019) = lu(k,2019) - lu(k,1897) * lu(k,2013) + lu(k,2020) = lu(k,2020) - lu(k,1898) * lu(k,2013) + lu(k,2021) = lu(k,2021) - lu(k,1899) * lu(k,2013) + lu(k,2022) = lu(k,2022) - lu(k,1900) * lu(k,2013) + lu(k,2023) = lu(k,2023) - lu(k,1901) * lu(k,2013) + lu(k,2024) = lu(k,2024) - lu(k,1902) * lu(k,2013) + lu(k,2057) = lu(k,2057) - lu(k,1892) * lu(k,2056) + lu(k,2058) = lu(k,2058) - lu(k,1893) * lu(k,2056) + lu(k,2059) = lu(k,2059) - lu(k,1894) * lu(k,2056) + lu(k,2060) = lu(k,2060) - lu(k,1895) * lu(k,2056) + lu(k,2061) = lu(k,2061) - lu(k,1896) * lu(k,2056) + lu(k,2062) = lu(k,2062) - lu(k,1897) * lu(k,2056) + lu(k,2063) = lu(k,2063) - lu(k,1898) * lu(k,2056) + lu(k,2064) = lu(k,2064) - lu(k,1899) * lu(k,2056) + lu(k,2065) = lu(k,2065) - lu(k,1900) * lu(k,2056) + lu(k,2066) = lu(k,2066) - lu(k,1901) * lu(k,2056) + lu(k,2067) = lu(k,2067) - lu(k,1902) * lu(k,2056) + lu(k,2121) = lu(k,2121) - lu(k,1892) * lu(k,2120) + lu(k,2122) = lu(k,2122) - lu(k,1893) * lu(k,2120) + lu(k,2123) = lu(k,2123) - lu(k,1894) * lu(k,2120) + lu(k,2124) = lu(k,2124) - lu(k,1895) * lu(k,2120) + lu(k,2125) = lu(k,2125) - lu(k,1896) * lu(k,2120) + lu(k,2126) = lu(k,2126) - lu(k,1897) * lu(k,2120) + lu(k,2127) = lu(k,2127) - lu(k,1898) * lu(k,2120) + lu(k,2128) = lu(k,2128) - lu(k,1899) * lu(k,2120) + lu(k,2129) = lu(k,2129) - lu(k,1900) * lu(k,2120) + lu(k,2130) = lu(k,2130) - lu(k,1901) * lu(k,2120) + lu(k,2131) = lu(k,2131) - lu(k,1902) * lu(k,2120) + lu(k,2148) = lu(k,2148) - lu(k,1892) * lu(k,2147) + lu(k,2149) = lu(k,2149) - lu(k,1893) * lu(k,2147) + lu(k,2150) = lu(k,2150) - lu(k,1894) * lu(k,2147) + lu(k,2151) = lu(k,2151) - lu(k,1895) * lu(k,2147) + lu(k,2152) = lu(k,2152) - lu(k,1896) * lu(k,2147) + lu(k,2153) = lu(k,2153) - lu(k,1897) * lu(k,2147) + lu(k,2154) = lu(k,2154) - lu(k,1898) * lu(k,2147) + lu(k,2155) = lu(k,2155) - lu(k,1899) * lu(k,2147) + lu(k,2156) = lu(k,2156) - lu(k,1900) * lu(k,2147) + lu(k,2157) = lu(k,2157) - lu(k,1901) * lu(k,2147) + lu(k,2158) = lu(k,2158) - lu(k,1902) * lu(k,2147) + lu(k,2169) = lu(k,2169) - lu(k,1892) * lu(k,2168) + lu(k,2170) = lu(k,2170) - lu(k,1893) * lu(k,2168) + lu(k,2171) = lu(k,2171) - lu(k,1894) * lu(k,2168) + lu(k,2172) = lu(k,2172) - lu(k,1895) * lu(k,2168) + lu(k,2173) = lu(k,2173) - lu(k,1896) * lu(k,2168) + lu(k,2174) = lu(k,2174) - lu(k,1897) * lu(k,2168) + lu(k,2175) = lu(k,2175) - lu(k,1898) * lu(k,2168) + lu(k,2176) = lu(k,2176) - lu(k,1899) * lu(k,2168) + lu(k,2177) = lu(k,2177) - lu(k,1900) * lu(k,2168) + lu(k,2178) = lu(k,2178) - lu(k,1901) * lu(k,2168) + lu(k,2179) = lu(k,2179) - lu(k,1902) * lu(k,2168) + lu(k,2229) = lu(k,2229) - lu(k,1892) * lu(k,2228) + lu(k,2230) = lu(k,2230) - lu(k,1893) * lu(k,2228) + lu(k,2231) = lu(k,2231) - lu(k,1894) * lu(k,2228) + lu(k,2232) = lu(k,2232) - lu(k,1895) * lu(k,2228) + lu(k,2233) = lu(k,2233) - lu(k,1896) * lu(k,2228) + lu(k,2234) = lu(k,2234) - lu(k,1897) * lu(k,2228) + lu(k,2235) = lu(k,2235) - lu(k,1898) * lu(k,2228) + lu(k,2236) = lu(k,2236) - lu(k,1899) * lu(k,2228) + lu(k,2237) = lu(k,2237) - lu(k,1900) * lu(k,2228) + lu(k,2238) = lu(k,2238) - lu(k,1901) * lu(k,2228) + lu(k,2239) = lu(k,2239) - lu(k,1902) * lu(k,2228) + lu(k,2337) = lu(k,2337) - lu(k,1892) * lu(k,2336) + lu(k,2338) = lu(k,2338) - lu(k,1893) * lu(k,2336) + lu(k,2339) = lu(k,2339) - lu(k,1894) * lu(k,2336) + lu(k,2340) = lu(k,2340) - lu(k,1895) * lu(k,2336) + lu(k,2341) = lu(k,2341) - lu(k,1896) * lu(k,2336) + lu(k,2342) = lu(k,2342) - lu(k,1897) * lu(k,2336) + lu(k,2343) = lu(k,2343) - lu(k,1898) * lu(k,2336) + lu(k,2344) = lu(k,2344) - lu(k,1899) * lu(k,2336) + lu(k,2345) = lu(k,2345) - lu(k,1900) * lu(k,2336) + lu(k,2346) = lu(k,2346) - lu(k,1901) * lu(k,2336) + lu(k,2347) = lu(k,2347) - lu(k,1902) * lu(k,2336) + lu(k,2360) = lu(k,2360) - lu(k,1892) * lu(k,2359) + lu(k,2361) = lu(k,2361) - lu(k,1893) * lu(k,2359) + lu(k,2362) = lu(k,2362) - lu(k,1894) * lu(k,2359) + lu(k,2363) = lu(k,2363) - lu(k,1895) * lu(k,2359) + lu(k,2364) = lu(k,2364) - lu(k,1896) * lu(k,2359) + lu(k,2365) = lu(k,2365) - lu(k,1897) * lu(k,2359) + lu(k,2366) = lu(k,2366) - lu(k,1898) * lu(k,2359) + lu(k,2367) = lu(k,2367) - lu(k,1899) * lu(k,2359) + lu(k,2368) = lu(k,2368) - lu(k,1900) * lu(k,2359) + lu(k,2369) = lu(k,2369) - lu(k,1901) * lu(k,2359) + lu(k,2370) = lu(k,2370) - lu(k,1902) * lu(k,2359) + lu(k,2412) = lu(k,2412) - lu(k,1892) * lu(k,2411) + lu(k,2413) = lu(k,2413) - lu(k,1893) * lu(k,2411) + lu(k,2414) = lu(k,2414) - lu(k,1894) * lu(k,2411) + lu(k,2415) = lu(k,2415) - lu(k,1895) * lu(k,2411) + lu(k,2416) = lu(k,2416) - lu(k,1896) * lu(k,2411) + lu(k,2417) = lu(k,2417) - lu(k,1897) * lu(k,2411) + lu(k,2418) = lu(k,2418) - lu(k,1898) * lu(k,2411) + lu(k,2419) = lu(k,2419) - lu(k,1899) * lu(k,2411) + lu(k,2420) = lu(k,2420) - lu(k,1900) * lu(k,2411) + lu(k,2421) = lu(k,2421) - lu(k,1901) * lu(k,2411) + lu(k,2422) = lu(k,2422) - lu(k,1902) * lu(k,2411) + lu(k,2439) = lu(k,2439) - lu(k,1892) * lu(k,2438) + lu(k,2440) = lu(k,2440) - lu(k,1893) * lu(k,2438) + lu(k,2441) = lu(k,2441) - lu(k,1894) * lu(k,2438) + lu(k,2442) = lu(k,2442) - lu(k,1895) * lu(k,2438) + lu(k,2443) = lu(k,2443) - lu(k,1896) * lu(k,2438) + lu(k,2444) = lu(k,2444) - lu(k,1897) * lu(k,2438) + lu(k,2445) = lu(k,2445) - lu(k,1898) * lu(k,2438) + lu(k,2446) = lu(k,2446) - lu(k,1899) * lu(k,2438) + lu(k,2447) = lu(k,2447) - lu(k,1900) * lu(k,2438) + lu(k,2448) = lu(k,2448) - lu(k,1901) * lu(k,2438) + lu(k,2449) = lu(k,2449) - lu(k,1902) * lu(k,2438) + lu(k,1918) = 1._r8 / lu(k,1918) + lu(k,1919) = lu(k,1919) * lu(k,1918) + lu(k,1920) = lu(k,1920) * lu(k,1918) + lu(k,1921) = lu(k,1921) * lu(k,1918) + lu(k,1922) = lu(k,1922) * lu(k,1918) + lu(k,1923) = lu(k,1923) * lu(k,1918) + lu(k,1924) = lu(k,1924) * lu(k,1918) + lu(k,1925) = lu(k,1925) * lu(k,1918) + lu(k,1926) = lu(k,1926) * lu(k,1918) + lu(k,1927) = lu(k,1927) * lu(k,1918) + lu(k,1928) = lu(k,1928) * lu(k,1918) + lu(k,2015) = lu(k,2015) - lu(k,1919) * lu(k,2014) + lu(k,2016) = lu(k,2016) - lu(k,1920) * lu(k,2014) + lu(k,2017) = lu(k,2017) - lu(k,1921) * lu(k,2014) + lu(k,2018) = lu(k,2018) - lu(k,1922) * lu(k,2014) + lu(k,2019) = lu(k,2019) - lu(k,1923) * lu(k,2014) + lu(k,2020) = lu(k,2020) - lu(k,1924) * lu(k,2014) + lu(k,2021) = lu(k,2021) - lu(k,1925) * lu(k,2014) + lu(k,2022) = lu(k,2022) - lu(k,1926) * lu(k,2014) + lu(k,2023) = lu(k,2023) - lu(k,1927) * lu(k,2014) + lu(k,2024) = lu(k,2024) - lu(k,1928) * lu(k,2014) + lu(k,2058) = lu(k,2058) - lu(k,1919) * lu(k,2057) + lu(k,2059) = lu(k,2059) - lu(k,1920) * lu(k,2057) + lu(k,2060) = lu(k,2060) - lu(k,1921) * lu(k,2057) + lu(k,2061) = lu(k,2061) - lu(k,1922) * lu(k,2057) + lu(k,2062) = lu(k,2062) - lu(k,1923) * lu(k,2057) + lu(k,2063) = lu(k,2063) - lu(k,1924) * lu(k,2057) + lu(k,2064) = lu(k,2064) - lu(k,1925) * lu(k,2057) + lu(k,2065) = lu(k,2065) - lu(k,1926) * lu(k,2057) + lu(k,2066) = lu(k,2066) - lu(k,1927) * lu(k,2057) + lu(k,2067) = lu(k,2067) - lu(k,1928) * lu(k,2057) + lu(k,2122) = lu(k,2122) - lu(k,1919) * lu(k,2121) + lu(k,2123) = lu(k,2123) - lu(k,1920) * lu(k,2121) + lu(k,2124) = lu(k,2124) - lu(k,1921) * lu(k,2121) + lu(k,2125) = lu(k,2125) - lu(k,1922) * lu(k,2121) + lu(k,2126) = lu(k,2126) - lu(k,1923) * lu(k,2121) + lu(k,2127) = lu(k,2127) - lu(k,1924) * lu(k,2121) + lu(k,2128) = lu(k,2128) - lu(k,1925) * lu(k,2121) + lu(k,2129) = lu(k,2129) - lu(k,1926) * lu(k,2121) + lu(k,2130) = lu(k,2130) - lu(k,1927) * lu(k,2121) + lu(k,2131) = lu(k,2131) - lu(k,1928) * lu(k,2121) + lu(k,2149) = lu(k,2149) - lu(k,1919) * lu(k,2148) + lu(k,2150) = lu(k,2150) - lu(k,1920) * lu(k,2148) + lu(k,2151) = lu(k,2151) - lu(k,1921) * lu(k,2148) + lu(k,2152) = lu(k,2152) - lu(k,1922) * lu(k,2148) + lu(k,2153) = lu(k,2153) - lu(k,1923) * lu(k,2148) + lu(k,2154) = lu(k,2154) - lu(k,1924) * lu(k,2148) + lu(k,2155) = lu(k,2155) - lu(k,1925) * lu(k,2148) + lu(k,2156) = lu(k,2156) - lu(k,1926) * lu(k,2148) + lu(k,2157) = lu(k,2157) - lu(k,1927) * lu(k,2148) + lu(k,2158) = lu(k,2158) - lu(k,1928) * lu(k,2148) + lu(k,2170) = lu(k,2170) - lu(k,1919) * lu(k,2169) + lu(k,2171) = lu(k,2171) - lu(k,1920) * lu(k,2169) + lu(k,2172) = lu(k,2172) - lu(k,1921) * lu(k,2169) + lu(k,2173) = lu(k,2173) - lu(k,1922) * lu(k,2169) + lu(k,2174) = lu(k,2174) - lu(k,1923) * lu(k,2169) + lu(k,2175) = lu(k,2175) - lu(k,1924) * lu(k,2169) + lu(k,2176) = lu(k,2176) - lu(k,1925) * lu(k,2169) + lu(k,2177) = lu(k,2177) - lu(k,1926) * lu(k,2169) + lu(k,2178) = lu(k,2178) - lu(k,1927) * lu(k,2169) + lu(k,2179) = lu(k,2179) - lu(k,1928) * lu(k,2169) + lu(k,2230) = lu(k,2230) - lu(k,1919) * lu(k,2229) + lu(k,2231) = lu(k,2231) - lu(k,1920) * lu(k,2229) + lu(k,2232) = lu(k,2232) - lu(k,1921) * lu(k,2229) + lu(k,2233) = lu(k,2233) - lu(k,1922) * lu(k,2229) + lu(k,2234) = lu(k,2234) - lu(k,1923) * lu(k,2229) + lu(k,2235) = lu(k,2235) - lu(k,1924) * lu(k,2229) + lu(k,2236) = lu(k,2236) - lu(k,1925) * lu(k,2229) + lu(k,2237) = lu(k,2237) - lu(k,1926) * lu(k,2229) + lu(k,2238) = lu(k,2238) - lu(k,1927) * lu(k,2229) + lu(k,2239) = lu(k,2239) - lu(k,1928) * lu(k,2229) + lu(k,2338) = lu(k,2338) - lu(k,1919) * lu(k,2337) + lu(k,2339) = lu(k,2339) - lu(k,1920) * lu(k,2337) + lu(k,2340) = lu(k,2340) - lu(k,1921) * lu(k,2337) + lu(k,2341) = lu(k,2341) - lu(k,1922) * lu(k,2337) + lu(k,2342) = lu(k,2342) - lu(k,1923) * lu(k,2337) + lu(k,2343) = lu(k,2343) - lu(k,1924) * lu(k,2337) + lu(k,2344) = lu(k,2344) - lu(k,1925) * lu(k,2337) + lu(k,2345) = lu(k,2345) - lu(k,1926) * lu(k,2337) + lu(k,2346) = lu(k,2346) - lu(k,1927) * lu(k,2337) + lu(k,2347) = lu(k,2347) - lu(k,1928) * lu(k,2337) + lu(k,2361) = lu(k,2361) - lu(k,1919) * lu(k,2360) + lu(k,2362) = lu(k,2362) - lu(k,1920) * lu(k,2360) + lu(k,2363) = lu(k,2363) - lu(k,1921) * lu(k,2360) + lu(k,2364) = lu(k,2364) - lu(k,1922) * lu(k,2360) + lu(k,2365) = lu(k,2365) - lu(k,1923) * lu(k,2360) + lu(k,2366) = lu(k,2366) - lu(k,1924) * lu(k,2360) + lu(k,2367) = lu(k,2367) - lu(k,1925) * lu(k,2360) + lu(k,2368) = lu(k,2368) - lu(k,1926) * lu(k,2360) + lu(k,2369) = lu(k,2369) - lu(k,1927) * lu(k,2360) + lu(k,2370) = lu(k,2370) - lu(k,1928) * lu(k,2360) + lu(k,2413) = lu(k,2413) - lu(k,1919) * lu(k,2412) + lu(k,2414) = lu(k,2414) - lu(k,1920) * lu(k,2412) + lu(k,2415) = lu(k,2415) - lu(k,1921) * lu(k,2412) + lu(k,2416) = lu(k,2416) - lu(k,1922) * lu(k,2412) + lu(k,2417) = lu(k,2417) - lu(k,1923) * lu(k,2412) + lu(k,2418) = lu(k,2418) - lu(k,1924) * lu(k,2412) + lu(k,2419) = lu(k,2419) - lu(k,1925) * lu(k,2412) + lu(k,2420) = lu(k,2420) - lu(k,1926) * lu(k,2412) + lu(k,2421) = lu(k,2421) - lu(k,1927) * lu(k,2412) + lu(k,2422) = lu(k,2422) - lu(k,1928) * lu(k,2412) + lu(k,2440) = lu(k,2440) - lu(k,1919) * lu(k,2439) + lu(k,2441) = lu(k,2441) - lu(k,1920) * lu(k,2439) + lu(k,2442) = lu(k,2442) - lu(k,1921) * lu(k,2439) + lu(k,2443) = lu(k,2443) - lu(k,1922) * lu(k,2439) + lu(k,2444) = lu(k,2444) - lu(k,1923) * lu(k,2439) + lu(k,2445) = lu(k,2445) - lu(k,1924) * lu(k,2439) + lu(k,2446) = lu(k,2446) - lu(k,1925) * lu(k,2439) + lu(k,2447) = lu(k,2447) - lu(k,1926) * lu(k,2439) + lu(k,2448) = lu(k,2448) - lu(k,1927) * lu(k,2439) + lu(k,2449) = lu(k,2449) - lu(k,1928) * lu(k,2439) + lu(k,2015) = 1._r8 / lu(k,2015) + lu(k,2016) = lu(k,2016) * lu(k,2015) + lu(k,2017) = lu(k,2017) * lu(k,2015) + lu(k,2018) = lu(k,2018) * lu(k,2015) + lu(k,2019) = lu(k,2019) * lu(k,2015) + lu(k,2020) = lu(k,2020) * lu(k,2015) + lu(k,2021) = lu(k,2021) * lu(k,2015) + lu(k,2022) = lu(k,2022) * lu(k,2015) + lu(k,2023) = lu(k,2023) * lu(k,2015) + lu(k,2024) = lu(k,2024) * lu(k,2015) + lu(k,2059) = lu(k,2059) - lu(k,2016) * lu(k,2058) + lu(k,2060) = lu(k,2060) - lu(k,2017) * lu(k,2058) + lu(k,2061) = lu(k,2061) - lu(k,2018) * lu(k,2058) + lu(k,2062) = lu(k,2062) - lu(k,2019) * lu(k,2058) + lu(k,2063) = lu(k,2063) - lu(k,2020) * lu(k,2058) + lu(k,2064) = lu(k,2064) - lu(k,2021) * lu(k,2058) + lu(k,2065) = lu(k,2065) - lu(k,2022) * lu(k,2058) + lu(k,2066) = lu(k,2066) - lu(k,2023) * lu(k,2058) + lu(k,2067) = lu(k,2067) - lu(k,2024) * lu(k,2058) + lu(k,2123) = lu(k,2123) - lu(k,2016) * lu(k,2122) + lu(k,2124) = lu(k,2124) - lu(k,2017) * lu(k,2122) + lu(k,2125) = lu(k,2125) - lu(k,2018) * lu(k,2122) + lu(k,2126) = lu(k,2126) - lu(k,2019) * lu(k,2122) + lu(k,2127) = lu(k,2127) - lu(k,2020) * lu(k,2122) + lu(k,2128) = lu(k,2128) - lu(k,2021) * lu(k,2122) + lu(k,2129) = lu(k,2129) - lu(k,2022) * lu(k,2122) + lu(k,2130) = lu(k,2130) - lu(k,2023) * lu(k,2122) + lu(k,2131) = lu(k,2131) - lu(k,2024) * lu(k,2122) + lu(k,2150) = lu(k,2150) - lu(k,2016) * lu(k,2149) + lu(k,2151) = lu(k,2151) - lu(k,2017) * lu(k,2149) + lu(k,2152) = lu(k,2152) - lu(k,2018) * lu(k,2149) + lu(k,2153) = lu(k,2153) - lu(k,2019) * lu(k,2149) + lu(k,2154) = lu(k,2154) - lu(k,2020) * lu(k,2149) + lu(k,2155) = lu(k,2155) - lu(k,2021) * lu(k,2149) + lu(k,2156) = lu(k,2156) - lu(k,2022) * lu(k,2149) + lu(k,2157) = lu(k,2157) - lu(k,2023) * lu(k,2149) + lu(k,2158) = lu(k,2158) - lu(k,2024) * lu(k,2149) + lu(k,2171) = lu(k,2171) - lu(k,2016) * lu(k,2170) + lu(k,2172) = lu(k,2172) - lu(k,2017) * lu(k,2170) + lu(k,2173) = lu(k,2173) - lu(k,2018) * lu(k,2170) + lu(k,2174) = lu(k,2174) - lu(k,2019) * lu(k,2170) + lu(k,2175) = lu(k,2175) - lu(k,2020) * lu(k,2170) + lu(k,2176) = lu(k,2176) - lu(k,2021) * lu(k,2170) + lu(k,2177) = lu(k,2177) - lu(k,2022) * lu(k,2170) + lu(k,2178) = lu(k,2178) - lu(k,2023) * lu(k,2170) + lu(k,2179) = lu(k,2179) - lu(k,2024) * lu(k,2170) + lu(k,2231) = lu(k,2231) - lu(k,2016) * lu(k,2230) + lu(k,2232) = lu(k,2232) - lu(k,2017) * lu(k,2230) + lu(k,2233) = lu(k,2233) - lu(k,2018) * lu(k,2230) + lu(k,2234) = lu(k,2234) - lu(k,2019) * lu(k,2230) + lu(k,2235) = lu(k,2235) - lu(k,2020) * lu(k,2230) + lu(k,2236) = lu(k,2236) - lu(k,2021) * lu(k,2230) + lu(k,2237) = lu(k,2237) - lu(k,2022) * lu(k,2230) + lu(k,2238) = lu(k,2238) - lu(k,2023) * lu(k,2230) + lu(k,2239) = lu(k,2239) - lu(k,2024) * lu(k,2230) + lu(k,2339) = lu(k,2339) - lu(k,2016) * lu(k,2338) + lu(k,2340) = lu(k,2340) - lu(k,2017) * lu(k,2338) + lu(k,2341) = lu(k,2341) - lu(k,2018) * lu(k,2338) + lu(k,2342) = lu(k,2342) - lu(k,2019) * lu(k,2338) + lu(k,2343) = lu(k,2343) - lu(k,2020) * lu(k,2338) + lu(k,2344) = lu(k,2344) - lu(k,2021) * lu(k,2338) + lu(k,2345) = lu(k,2345) - lu(k,2022) * lu(k,2338) + lu(k,2346) = lu(k,2346) - lu(k,2023) * lu(k,2338) + lu(k,2347) = lu(k,2347) - lu(k,2024) * lu(k,2338) + lu(k,2362) = lu(k,2362) - lu(k,2016) * lu(k,2361) + lu(k,2363) = lu(k,2363) - lu(k,2017) * lu(k,2361) + lu(k,2364) = lu(k,2364) - lu(k,2018) * lu(k,2361) + lu(k,2365) = lu(k,2365) - lu(k,2019) * lu(k,2361) + lu(k,2366) = lu(k,2366) - lu(k,2020) * lu(k,2361) + lu(k,2367) = lu(k,2367) - lu(k,2021) * lu(k,2361) + lu(k,2368) = lu(k,2368) - lu(k,2022) * lu(k,2361) + lu(k,2369) = lu(k,2369) - lu(k,2023) * lu(k,2361) + lu(k,2370) = lu(k,2370) - lu(k,2024) * lu(k,2361) + lu(k,2414) = lu(k,2414) - lu(k,2016) * lu(k,2413) + lu(k,2415) = lu(k,2415) - lu(k,2017) * lu(k,2413) + lu(k,2416) = lu(k,2416) - lu(k,2018) * lu(k,2413) + lu(k,2417) = lu(k,2417) - lu(k,2019) * lu(k,2413) + lu(k,2418) = lu(k,2418) - lu(k,2020) * lu(k,2413) + lu(k,2419) = lu(k,2419) - lu(k,2021) * lu(k,2413) + lu(k,2420) = lu(k,2420) - lu(k,2022) * lu(k,2413) + lu(k,2421) = lu(k,2421) - lu(k,2023) * lu(k,2413) + lu(k,2422) = lu(k,2422) - lu(k,2024) * lu(k,2413) + lu(k,2441) = lu(k,2441) - lu(k,2016) * lu(k,2440) + lu(k,2442) = lu(k,2442) - lu(k,2017) * lu(k,2440) + lu(k,2443) = lu(k,2443) - lu(k,2018) * lu(k,2440) + lu(k,2444) = lu(k,2444) - lu(k,2019) * lu(k,2440) + lu(k,2445) = lu(k,2445) - lu(k,2020) * lu(k,2440) + lu(k,2446) = lu(k,2446) - lu(k,2021) * lu(k,2440) + lu(k,2447) = lu(k,2447) - lu(k,2022) * lu(k,2440) + lu(k,2448) = lu(k,2448) - lu(k,2023) * lu(k,2440) + lu(k,2449) = lu(k,2449) - lu(k,2024) * lu(k,2440) + lu(k,2059) = 1._r8 / lu(k,2059) + lu(k,2060) = lu(k,2060) * lu(k,2059) + lu(k,2061) = lu(k,2061) * lu(k,2059) + lu(k,2062) = lu(k,2062) * lu(k,2059) + lu(k,2063) = lu(k,2063) * lu(k,2059) + lu(k,2064) = lu(k,2064) * lu(k,2059) + lu(k,2065) = lu(k,2065) * lu(k,2059) + lu(k,2066) = lu(k,2066) * lu(k,2059) + lu(k,2067) = lu(k,2067) * lu(k,2059) + lu(k,2124) = lu(k,2124) - lu(k,2060) * lu(k,2123) + lu(k,2125) = lu(k,2125) - lu(k,2061) * lu(k,2123) + lu(k,2126) = lu(k,2126) - lu(k,2062) * lu(k,2123) + lu(k,2127) = lu(k,2127) - lu(k,2063) * lu(k,2123) + lu(k,2128) = lu(k,2128) - lu(k,2064) * lu(k,2123) + lu(k,2129) = lu(k,2129) - lu(k,2065) * lu(k,2123) + lu(k,2130) = lu(k,2130) - lu(k,2066) * lu(k,2123) + lu(k,2131) = lu(k,2131) - lu(k,2067) * lu(k,2123) + lu(k,2151) = lu(k,2151) - lu(k,2060) * lu(k,2150) + lu(k,2152) = lu(k,2152) - lu(k,2061) * lu(k,2150) + lu(k,2153) = lu(k,2153) - lu(k,2062) * lu(k,2150) + lu(k,2154) = lu(k,2154) - lu(k,2063) * lu(k,2150) + lu(k,2155) = lu(k,2155) - lu(k,2064) * lu(k,2150) + lu(k,2156) = lu(k,2156) - lu(k,2065) * lu(k,2150) + lu(k,2157) = lu(k,2157) - lu(k,2066) * lu(k,2150) + lu(k,2158) = lu(k,2158) - lu(k,2067) * lu(k,2150) + lu(k,2172) = lu(k,2172) - lu(k,2060) * lu(k,2171) + lu(k,2173) = lu(k,2173) - lu(k,2061) * lu(k,2171) + lu(k,2174) = lu(k,2174) - lu(k,2062) * lu(k,2171) + lu(k,2175) = lu(k,2175) - lu(k,2063) * lu(k,2171) + lu(k,2176) = lu(k,2176) - lu(k,2064) * lu(k,2171) + lu(k,2177) = lu(k,2177) - lu(k,2065) * lu(k,2171) + lu(k,2178) = lu(k,2178) - lu(k,2066) * lu(k,2171) + lu(k,2179) = lu(k,2179) - lu(k,2067) * lu(k,2171) + lu(k,2232) = lu(k,2232) - lu(k,2060) * lu(k,2231) + lu(k,2233) = lu(k,2233) - lu(k,2061) * lu(k,2231) + lu(k,2234) = lu(k,2234) - lu(k,2062) * lu(k,2231) + lu(k,2235) = lu(k,2235) - lu(k,2063) * lu(k,2231) + lu(k,2236) = lu(k,2236) - lu(k,2064) * lu(k,2231) + lu(k,2237) = lu(k,2237) - lu(k,2065) * lu(k,2231) + lu(k,2238) = lu(k,2238) - lu(k,2066) * lu(k,2231) + lu(k,2239) = lu(k,2239) - lu(k,2067) * lu(k,2231) + lu(k,2340) = lu(k,2340) - lu(k,2060) * lu(k,2339) + lu(k,2341) = lu(k,2341) - lu(k,2061) * lu(k,2339) + lu(k,2342) = lu(k,2342) - lu(k,2062) * lu(k,2339) + lu(k,2343) = lu(k,2343) - lu(k,2063) * lu(k,2339) + lu(k,2344) = lu(k,2344) - lu(k,2064) * lu(k,2339) + lu(k,2345) = lu(k,2345) - lu(k,2065) * lu(k,2339) + lu(k,2346) = lu(k,2346) - lu(k,2066) * lu(k,2339) + lu(k,2347) = lu(k,2347) - lu(k,2067) * lu(k,2339) + lu(k,2363) = lu(k,2363) - lu(k,2060) * lu(k,2362) + lu(k,2364) = lu(k,2364) - lu(k,2061) * lu(k,2362) + lu(k,2365) = lu(k,2365) - lu(k,2062) * lu(k,2362) + lu(k,2366) = lu(k,2366) - lu(k,2063) * lu(k,2362) + lu(k,2367) = lu(k,2367) - lu(k,2064) * lu(k,2362) + lu(k,2368) = lu(k,2368) - lu(k,2065) * lu(k,2362) + lu(k,2369) = lu(k,2369) - lu(k,2066) * lu(k,2362) + lu(k,2370) = lu(k,2370) - lu(k,2067) * lu(k,2362) + lu(k,2415) = lu(k,2415) - lu(k,2060) * lu(k,2414) + lu(k,2416) = lu(k,2416) - lu(k,2061) * lu(k,2414) + lu(k,2417) = lu(k,2417) - lu(k,2062) * lu(k,2414) + lu(k,2418) = lu(k,2418) - lu(k,2063) * lu(k,2414) + lu(k,2419) = lu(k,2419) - lu(k,2064) * lu(k,2414) + lu(k,2420) = lu(k,2420) - lu(k,2065) * lu(k,2414) + lu(k,2421) = lu(k,2421) - lu(k,2066) * lu(k,2414) + lu(k,2422) = lu(k,2422) - lu(k,2067) * lu(k,2414) + lu(k,2442) = lu(k,2442) - lu(k,2060) * lu(k,2441) + lu(k,2443) = lu(k,2443) - lu(k,2061) * lu(k,2441) + lu(k,2444) = lu(k,2444) - lu(k,2062) * lu(k,2441) + lu(k,2445) = lu(k,2445) - lu(k,2063) * lu(k,2441) + lu(k,2446) = lu(k,2446) - lu(k,2064) * lu(k,2441) + lu(k,2447) = lu(k,2447) - lu(k,2065) * lu(k,2441) + lu(k,2448) = lu(k,2448) - lu(k,2066) * lu(k,2441) + lu(k,2449) = lu(k,2449) - lu(k,2067) * lu(k,2441) + lu(k,2124) = 1._r8 / lu(k,2124) + lu(k,2125) = lu(k,2125) * lu(k,2124) + lu(k,2126) = lu(k,2126) * lu(k,2124) + lu(k,2127) = lu(k,2127) * lu(k,2124) + lu(k,2128) = lu(k,2128) * lu(k,2124) + lu(k,2129) = lu(k,2129) * lu(k,2124) + lu(k,2130) = lu(k,2130) * lu(k,2124) + lu(k,2131) = lu(k,2131) * lu(k,2124) + lu(k,2152) = lu(k,2152) - lu(k,2125) * lu(k,2151) + lu(k,2153) = lu(k,2153) - lu(k,2126) * lu(k,2151) + lu(k,2154) = lu(k,2154) - lu(k,2127) * lu(k,2151) + lu(k,2155) = lu(k,2155) - lu(k,2128) * lu(k,2151) + lu(k,2156) = lu(k,2156) - lu(k,2129) * lu(k,2151) + lu(k,2157) = lu(k,2157) - lu(k,2130) * lu(k,2151) + lu(k,2158) = lu(k,2158) - lu(k,2131) * lu(k,2151) + lu(k,2173) = lu(k,2173) - lu(k,2125) * lu(k,2172) + lu(k,2174) = lu(k,2174) - lu(k,2126) * lu(k,2172) + lu(k,2175) = lu(k,2175) - lu(k,2127) * lu(k,2172) + lu(k,2176) = lu(k,2176) - lu(k,2128) * lu(k,2172) + lu(k,2177) = lu(k,2177) - lu(k,2129) * lu(k,2172) + lu(k,2178) = lu(k,2178) - lu(k,2130) * lu(k,2172) + lu(k,2179) = lu(k,2179) - lu(k,2131) * lu(k,2172) + lu(k,2233) = lu(k,2233) - lu(k,2125) * lu(k,2232) + lu(k,2234) = lu(k,2234) - lu(k,2126) * lu(k,2232) + lu(k,2235) = lu(k,2235) - lu(k,2127) * lu(k,2232) + lu(k,2236) = lu(k,2236) - lu(k,2128) * lu(k,2232) + lu(k,2237) = lu(k,2237) - lu(k,2129) * lu(k,2232) + lu(k,2238) = lu(k,2238) - lu(k,2130) * lu(k,2232) + lu(k,2239) = lu(k,2239) - lu(k,2131) * lu(k,2232) + lu(k,2341) = lu(k,2341) - lu(k,2125) * lu(k,2340) + lu(k,2342) = lu(k,2342) - lu(k,2126) * lu(k,2340) + lu(k,2343) = lu(k,2343) - lu(k,2127) * lu(k,2340) + lu(k,2344) = lu(k,2344) - lu(k,2128) * lu(k,2340) + lu(k,2345) = lu(k,2345) - lu(k,2129) * lu(k,2340) + lu(k,2346) = lu(k,2346) - lu(k,2130) * lu(k,2340) + lu(k,2347) = lu(k,2347) - lu(k,2131) * lu(k,2340) + lu(k,2364) = lu(k,2364) - lu(k,2125) * lu(k,2363) + lu(k,2365) = lu(k,2365) - lu(k,2126) * lu(k,2363) + lu(k,2366) = lu(k,2366) - lu(k,2127) * lu(k,2363) + lu(k,2367) = lu(k,2367) - lu(k,2128) * lu(k,2363) + lu(k,2368) = lu(k,2368) - lu(k,2129) * lu(k,2363) + lu(k,2369) = lu(k,2369) - lu(k,2130) * lu(k,2363) + lu(k,2370) = lu(k,2370) - lu(k,2131) * lu(k,2363) + lu(k,2416) = lu(k,2416) - lu(k,2125) * lu(k,2415) + lu(k,2417) = lu(k,2417) - lu(k,2126) * lu(k,2415) + lu(k,2418) = lu(k,2418) - lu(k,2127) * lu(k,2415) + lu(k,2419) = lu(k,2419) - lu(k,2128) * lu(k,2415) + lu(k,2420) = lu(k,2420) - lu(k,2129) * lu(k,2415) + lu(k,2421) = lu(k,2421) - lu(k,2130) * lu(k,2415) + lu(k,2422) = lu(k,2422) - lu(k,2131) * lu(k,2415) + lu(k,2443) = lu(k,2443) - lu(k,2125) * lu(k,2442) + lu(k,2444) = lu(k,2444) - lu(k,2126) * lu(k,2442) + lu(k,2445) = lu(k,2445) - lu(k,2127) * lu(k,2442) + lu(k,2446) = lu(k,2446) - lu(k,2128) * lu(k,2442) + lu(k,2447) = lu(k,2447) - lu(k,2129) * lu(k,2442) + lu(k,2448) = lu(k,2448) - lu(k,2130) * lu(k,2442) + lu(k,2449) = lu(k,2449) - lu(k,2131) * lu(k,2442) + lu(k,2152) = 1._r8 / lu(k,2152) + lu(k,2153) = lu(k,2153) * lu(k,2152) + lu(k,2154) = lu(k,2154) * lu(k,2152) + lu(k,2155) = lu(k,2155) * lu(k,2152) + lu(k,2156) = lu(k,2156) * lu(k,2152) + lu(k,2157) = lu(k,2157) * lu(k,2152) + lu(k,2158) = lu(k,2158) * lu(k,2152) + lu(k,2174) = lu(k,2174) - lu(k,2153) * lu(k,2173) + lu(k,2175) = lu(k,2175) - lu(k,2154) * lu(k,2173) + lu(k,2176) = lu(k,2176) - lu(k,2155) * lu(k,2173) + lu(k,2177) = lu(k,2177) - lu(k,2156) * lu(k,2173) + lu(k,2178) = lu(k,2178) - lu(k,2157) * lu(k,2173) + lu(k,2179) = lu(k,2179) - lu(k,2158) * lu(k,2173) + lu(k,2234) = lu(k,2234) - lu(k,2153) * lu(k,2233) + lu(k,2235) = lu(k,2235) - lu(k,2154) * lu(k,2233) + lu(k,2236) = lu(k,2236) - lu(k,2155) * lu(k,2233) + lu(k,2237) = lu(k,2237) - lu(k,2156) * lu(k,2233) + lu(k,2238) = lu(k,2238) - lu(k,2157) * lu(k,2233) + lu(k,2239) = lu(k,2239) - lu(k,2158) * lu(k,2233) + lu(k,2342) = lu(k,2342) - lu(k,2153) * lu(k,2341) + lu(k,2343) = lu(k,2343) - lu(k,2154) * lu(k,2341) + lu(k,2344) = lu(k,2344) - lu(k,2155) * lu(k,2341) + lu(k,2345) = lu(k,2345) - lu(k,2156) * lu(k,2341) + lu(k,2346) = lu(k,2346) - lu(k,2157) * lu(k,2341) + lu(k,2347) = lu(k,2347) - lu(k,2158) * lu(k,2341) + lu(k,2365) = lu(k,2365) - lu(k,2153) * lu(k,2364) + lu(k,2366) = lu(k,2366) - lu(k,2154) * lu(k,2364) + lu(k,2367) = lu(k,2367) - lu(k,2155) * lu(k,2364) + lu(k,2368) = lu(k,2368) - lu(k,2156) * lu(k,2364) + lu(k,2369) = lu(k,2369) - lu(k,2157) * lu(k,2364) + lu(k,2370) = lu(k,2370) - lu(k,2158) * lu(k,2364) + lu(k,2417) = lu(k,2417) - lu(k,2153) * lu(k,2416) + lu(k,2418) = lu(k,2418) - lu(k,2154) * lu(k,2416) + lu(k,2419) = lu(k,2419) - lu(k,2155) * lu(k,2416) + lu(k,2420) = lu(k,2420) - lu(k,2156) * lu(k,2416) + lu(k,2421) = lu(k,2421) - lu(k,2157) * lu(k,2416) + lu(k,2422) = lu(k,2422) - lu(k,2158) * lu(k,2416) + lu(k,2444) = lu(k,2444) - lu(k,2153) * lu(k,2443) + lu(k,2445) = lu(k,2445) - lu(k,2154) * lu(k,2443) + lu(k,2446) = lu(k,2446) - lu(k,2155) * lu(k,2443) + lu(k,2447) = lu(k,2447) - lu(k,2156) * lu(k,2443) + lu(k,2448) = lu(k,2448) - lu(k,2157) * lu(k,2443) + lu(k,2449) = lu(k,2449) - lu(k,2158) * lu(k,2443) + end do + end subroutine lu_fac32 + subroutine lu_fac33( avec_len, lu ) + use chem_mods, only : nzcnt + use shr_kind_mod, only : r8 => shr_kind_r8 + implicit none +!----------------------------------------------------------------------- +! ... dummy args +!----------------------------------------------------------------------- + integer, intent(in) :: avec_len + real(r8), intent(inout) :: lu(veclen,nzcnt) +!----------------------------------------------------------------------- +! ... local variables +!----------------------------------------------------------------------- + integer :: k + do k = 1,avec_len + lu(k,2174) = 1._r8 / lu(k,2174) + lu(k,2175) = lu(k,2175) * lu(k,2174) + lu(k,2176) = lu(k,2176) * lu(k,2174) + lu(k,2177) = lu(k,2177) * lu(k,2174) + lu(k,2178) = lu(k,2178) * lu(k,2174) + lu(k,2179) = lu(k,2179) * lu(k,2174) + lu(k,2235) = lu(k,2235) - lu(k,2175) * lu(k,2234) + lu(k,2236) = lu(k,2236) - lu(k,2176) * lu(k,2234) + lu(k,2237) = lu(k,2237) - lu(k,2177) * lu(k,2234) + lu(k,2238) = lu(k,2238) - lu(k,2178) * lu(k,2234) + lu(k,2239) = lu(k,2239) - lu(k,2179) * lu(k,2234) + lu(k,2343) = lu(k,2343) - lu(k,2175) * lu(k,2342) + lu(k,2344) = lu(k,2344) - lu(k,2176) * lu(k,2342) + lu(k,2345) = lu(k,2345) - lu(k,2177) * lu(k,2342) + lu(k,2346) = lu(k,2346) - lu(k,2178) * lu(k,2342) + lu(k,2347) = lu(k,2347) - lu(k,2179) * lu(k,2342) + lu(k,2366) = lu(k,2366) - lu(k,2175) * lu(k,2365) + lu(k,2367) = lu(k,2367) - lu(k,2176) * lu(k,2365) + lu(k,2368) = lu(k,2368) - lu(k,2177) * lu(k,2365) + lu(k,2369) = lu(k,2369) - lu(k,2178) * lu(k,2365) + lu(k,2370) = lu(k,2370) - lu(k,2179) * lu(k,2365) + lu(k,2418) = lu(k,2418) - lu(k,2175) * lu(k,2417) + lu(k,2419) = lu(k,2419) - lu(k,2176) * lu(k,2417) + lu(k,2420) = lu(k,2420) - lu(k,2177) * lu(k,2417) + lu(k,2421) = lu(k,2421) - lu(k,2178) * lu(k,2417) + lu(k,2422) = lu(k,2422) - lu(k,2179) * lu(k,2417) + lu(k,2445) = lu(k,2445) - lu(k,2175) * lu(k,2444) + lu(k,2446) = lu(k,2446) - lu(k,2176) * lu(k,2444) + lu(k,2447) = lu(k,2447) - lu(k,2177) * lu(k,2444) + lu(k,2448) = lu(k,2448) - lu(k,2178) * lu(k,2444) + lu(k,2449) = lu(k,2449) - lu(k,2179) * lu(k,2444) + lu(k,2235) = 1._r8 / lu(k,2235) + lu(k,2236) = lu(k,2236) * lu(k,2235) + lu(k,2237) = lu(k,2237) * lu(k,2235) + lu(k,2238) = lu(k,2238) * lu(k,2235) + lu(k,2239) = lu(k,2239) * lu(k,2235) + lu(k,2344) = lu(k,2344) - lu(k,2236) * lu(k,2343) + lu(k,2345) = lu(k,2345) - lu(k,2237) * lu(k,2343) + lu(k,2346) = lu(k,2346) - lu(k,2238) * lu(k,2343) + lu(k,2347) = lu(k,2347) - lu(k,2239) * lu(k,2343) + lu(k,2367) = lu(k,2367) - lu(k,2236) * lu(k,2366) + lu(k,2368) = lu(k,2368) - lu(k,2237) * lu(k,2366) + lu(k,2369) = lu(k,2369) - lu(k,2238) * lu(k,2366) + lu(k,2370) = lu(k,2370) - lu(k,2239) * lu(k,2366) + lu(k,2419) = lu(k,2419) - lu(k,2236) * lu(k,2418) + lu(k,2420) = lu(k,2420) - lu(k,2237) * lu(k,2418) + lu(k,2421) = lu(k,2421) - lu(k,2238) * lu(k,2418) + lu(k,2422) = lu(k,2422) - lu(k,2239) * lu(k,2418) + lu(k,2446) = lu(k,2446) - lu(k,2236) * lu(k,2445) + lu(k,2447) = lu(k,2447) - lu(k,2237) * lu(k,2445) + lu(k,2448) = lu(k,2448) - lu(k,2238) * lu(k,2445) + lu(k,2449) = lu(k,2449) - lu(k,2239) * lu(k,2445) + lu(k,2344) = 1._r8 / lu(k,2344) + lu(k,2345) = lu(k,2345) * lu(k,2344) + lu(k,2346) = lu(k,2346) * lu(k,2344) + lu(k,2347) = lu(k,2347) * lu(k,2344) + lu(k,2368) = lu(k,2368) - lu(k,2345) * lu(k,2367) + lu(k,2369) = lu(k,2369) - lu(k,2346) * lu(k,2367) + lu(k,2370) = lu(k,2370) - lu(k,2347) * lu(k,2367) + lu(k,2420) = lu(k,2420) - lu(k,2345) * lu(k,2419) + lu(k,2421) = lu(k,2421) - lu(k,2346) * lu(k,2419) + lu(k,2422) = lu(k,2422) - lu(k,2347) * lu(k,2419) + lu(k,2447) = lu(k,2447) - lu(k,2345) * lu(k,2446) + lu(k,2448) = lu(k,2448) - lu(k,2346) * lu(k,2446) + lu(k,2449) = lu(k,2449) - lu(k,2347) * lu(k,2446) lu(k,2368) = 1._r8 / lu(k,2368) lu(k,2369) = lu(k,2369) * lu(k,2368) lu(k,2370) = lu(k,2370) * lu(k,2368) @@ -8844,7 +8864,7 @@ subroutine lu_fac32( avec_len, lu ) lu(k,2449) = lu(k,2449) - lu(k,2422) * lu(k,2448) lu(k,2449) = 1._r8 / lu(k,2449) end do - end subroutine lu_fac32 + end subroutine lu_fac33 subroutine lu_fac( avec_len, lu ) use chem_mods, only : nzcnt use shr_kind_mod, only : r8 => shr_kind_r8 @@ -8886,5 +8906,6 @@ subroutine lu_fac( avec_len, lu ) call lu_fac30( avec_len, lu ) call lu_fac31( avec_len, lu ) call lu_fac32( avec_len, lu ) + call lu_fac33( avec_len, lu ) end subroutine lu_fac end module mo_lu_factor diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_solve.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_solve.F90 index 64bbb136a5..e4168c7ec5 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_lu_solve.F90 @@ -21,28 +21,28 @@ subroutine lu_slv01( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,224) = b(k,224) - lu(k,96) * b(k,54) - b(k,234) = b(k,234) - lu(k,97) * b(k,54) + b(k,227) = b(k,227) - lu(k,96) * b(k,54) + b(k,233) = b(k,233) - lu(k,97) * b(k,54) b(k,226) = b(k,226) - lu(k,99) * b(k,55) b(k,239) = b(k,239) - lu(k,100) * b(k,55) - b(k,230) = b(k,230) - lu(k,102) * b(k,56) - b(k,234) = b(k,234) - lu(k,103) * b(k,56) + b(k,225) = b(k,225) - lu(k,102) * b(k,56) + b(k,227) = b(k,227) - lu(k,103) * b(k,56) b(k,226) = b(k,226) - lu(k,105) * b(k,57) - b(k,237) = b(k,237) - lu(k,106) * b(k,57) + b(k,236) = b(k,236) - lu(k,106) * b(k,57) b(k,89) = b(k,89) - lu(k,108) * b(k,58) b(k,221) = b(k,221) - lu(k,109) * b(k,58) - b(k,230) = b(k,230) - lu(k,110) * b(k,58) + b(k,225) = b(k,225) - lu(k,110) * b(k,58) b(k,91) = b(k,91) - lu(k,112) * b(k,59) - b(k,230) = b(k,230) - lu(k,113) * b(k,59) - b(k,234) = b(k,234) - lu(k,114) * b(k,59) + b(k,225) = b(k,225) - lu(k,113) * b(k,59) + b(k,227) = b(k,227) - lu(k,114) * b(k,59) b(k,89) = b(k,89) - lu(k,116) * b(k,60) - b(k,230) = b(k,230) - lu(k,117) * b(k,60) - b(k,234) = b(k,234) - lu(k,118) * b(k,60) + b(k,225) = b(k,225) - lu(k,117) * b(k,60) + b(k,227) = b(k,227) - lu(k,118) * b(k,60) b(k,89) = b(k,89) - lu(k,120) * b(k,61) - b(k,230) = b(k,230) - lu(k,121) * b(k,61) - b(k,234) = b(k,234) - lu(k,122) * b(k,61) + b(k,225) = b(k,225) - lu(k,121) * b(k,61) + b(k,227) = b(k,227) - lu(k,122) * b(k,61) b(k,226) = b(k,226) - lu(k,124) * b(k,62) - b(k,234) = b(k,234) - lu(k,125) * b(k,62) + b(k,227) = b(k,227) - lu(k,125) * b(k,62) b(k,239) = b(k,239) - lu(k,126) * b(k,62) b(k,129) = b(k,129) - lu(k,128) * b(k,63) b(k,226) = b(k,226) - lu(k,129) * b(k,63) @@ -54,51 +54,51 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,228) = b(k,228) - lu(k,138) * b(k,66) b(k,89) = b(k,89) - lu(k,140) * b(k,67) b(k,221) = b(k,221) - lu(k,141) * b(k,67) - b(k,230) = b(k,230) - lu(k,142) * b(k,67) - b(k,234) = b(k,234) - lu(k,143) * b(k,67) + b(k,225) = b(k,225) - lu(k,142) * b(k,67) + b(k,227) = b(k,227) - lu(k,143) * b(k,67) b(k,89) = b(k,89) - lu(k,145) * b(k,68) b(k,184) = b(k,184) - lu(k,146) * b(k,68) b(k,221) = b(k,221) - lu(k,147) * b(k,68) - b(k,230) = b(k,230) - lu(k,148) * b(k,68) + b(k,225) = b(k,225) - lu(k,148) * b(k,68) b(k,89) = b(k,89) - lu(k,150) * b(k,69) b(k,91) = b(k,91) - lu(k,151) * b(k,69) - b(k,230) = b(k,230) - lu(k,152) * b(k,69) - b(k,234) = b(k,234) - lu(k,153) * b(k,69) + b(k,225) = b(k,225) - lu(k,152) * b(k,69) + b(k,227) = b(k,227) - lu(k,153) * b(k,69) b(k,89) = b(k,89) - lu(k,155) * b(k,70) b(k,184) = b(k,184) - lu(k,156) * b(k,70) - b(k,230) = b(k,230) - lu(k,157) * b(k,70) - b(k,234) = b(k,234) - lu(k,158) * b(k,70) + b(k,225) = b(k,225) - lu(k,157) * b(k,70) + b(k,227) = b(k,227) - lu(k,158) * b(k,70) b(k,72) = b(k,72) - lu(k,161) * b(k,71) b(k,73) = b(k,73) - lu(k,162) * b(k,71) b(k,135) = b(k,135) - lu(k,163) * b(k,71) b(k,226) = b(k,226) - lu(k,164) * b(k,71) - b(k,237) = b(k,237) - lu(k,165) * b(k,71) + b(k,236) = b(k,236) - lu(k,165) * b(k,71) b(k,130) = b(k,130) - lu(k,167) * b(k,72) b(k,201) = b(k,201) - lu(k,168) * b(k,72) - b(k,237) = b(k,237) - lu(k,169) * b(k,72) + b(k,236) = b(k,236) - lu(k,169) * b(k,72) b(k,127) = b(k,127) - lu(k,171) * b(k,73) b(k,131) = b(k,131) - lu(k,172) * b(k,73) b(k,226) = b(k,226) - lu(k,173) * b(k,73) - b(k,237) = b(k,237) - lu(k,174) * b(k,73) - b(k,234) = b(k,234) - lu(k,176) * b(k,74) + b(k,236) = b(k,236) - lu(k,174) * b(k,73) + b(k,227) = b(k,227) - lu(k,176) * b(k,74) b(k,222) = b(k,222) - lu(k,178) * b(k,75) b(k,222) = b(k,222) - lu(k,181) * b(k,76) - b(k,226) = b(k,226) - lu(k,183) * b(k,77) - b(k,230) = b(k,230) - lu(k,184) * b(k,77) - b(k,237) = b(k,237) - lu(k,185) * b(k,77) + b(k,225) = b(k,225) - lu(k,183) * b(k,77) + b(k,226) = b(k,226) - lu(k,184) * b(k,77) + b(k,236) = b(k,236) - lu(k,185) * b(k,77) b(k,79) = b(k,79) - lu(k,188) * b(k,78) b(k,80) = b(k,80) - lu(k,189) * b(k,78) b(k,125) = b(k,125) - lu(k,190) * b(k,78) b(k,166) = b(k,166) - lu(k,191) * b(k,78) b(k,226) = b(k,226) - lu(k,192) * b(k,78) - b(k,237) = b(k,237) - lu(k,193) * b(k,78) + b(k,236) = b(k,236) - lu(k,193) * b(k,78) b(k,127) = b(k,127) - lu(k,195) * b(k,79) b(k,131) = b(k,131) - lu(k,196) * b(k,79) b(k,226) = b(k,226) - lu(k,197) * b(k,79) - b(k,237) = b(k,237) - lu(k,198) * b(k,79) + b(k,236) = b(k,236) - lu(k,198) * b(k,79) b(k,201) = b(k,201) - lu(k,200) * b(k,80) b(k,216) = b(k,216) - lu(k,201) * b(k,80) - b(k,237) = b(k,237) - lu(k,202) * b(k,80) + b(k,236) = b(k,236) - lu(k,202) * b(k,80) b(k,207) = b(k,207) - lu(k,204) * b(k,81) b(k,226) = b(k,226) - lu(k,205) * b(k,81) b(k,83) = b(k,83) - lu(k,209) * b(k,82) @@ -107,86 +107,86 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,201) = b(k,201) - lu(k,212) * b(k,82) b(k,216) = b(k,216) - lu(k,213) * b(k,82) b(k,226) = b(k,226) - lu(k,214) * b(k,82) - b(k,237) = b(k,237) - lu(k,215) * b(k,82) + b(k,236) = b(k,236) - lu(k,215) * b(k,82) b(k,131) = b(k,131) - lu(k,217) * b(k,83) b(k,137) = b(k,137) - lu(k,218) * b(k,83) b(k,226) = b(k,226) - lu(k,219) * b(k,83) - b(k,237) = b(k,237) - lu(k,220) * b(k,83) - b(k,149) = b(k,149) - lu(k,222) * b(k,84) + b(k,236) = b(k,236) - lu(k,220) * b(k,83) + b(k,148) = b(k,148) - lu(k,222) * b(k,84) b(k,207) = b(k,207) - lu(k,223) * b(k,84) b(k,226) = b(k,226) - lu(k,224) * b(k,84) - b(k,237) = b(k,237) - lu(k,225) * b(k,84) - b(k,191) = b(k,191) - lu(k,227) * b(k,85) + b(k,236) = b(k,236) - lu(k,225) * b(k,84) + b(k,190) = b(k,190) - lu(k,227) * b(k,85) b(k,226) = b(k,226) - lu(k,228) * b(k,85) b(k,221) = b(k,221) - lu(k,230) * b(k,86) - b(k,234) = b(k,234) - lu(k,231) * b(k,86) + b(k,227) = b(k,227) - lu(k,231) * b(k,86) b(k,228) = b(k,228) - lu(k,233) * b(k,87) - b(k,231) = b(k,231) - lu(k,234) * b(k,87) + b(k,237) = b(k,237) - lu(k,234) * b(k,87) b(k,139) = b(k,139) - lu(k,236) * b(k,88) b(k,226) = b(k,226) - lu(k,237) * b(k,88) b(k,184) = b(k,184) - lu(k,239) * b(k,89) - b(k,230) = b(k,230) - lu(k,240) * b(k,89) + b(k,225) = b(k,225) - lu(k,240) * b(k,89) b(k,91) = b(k,91) - lu(k,242) * b(k,90) - b(k,226) = b(k,226) - lu(k,243) * b(k,90) - b(k,230) = b(k,230) - lu(k,244) * b(k,90) - b(k,234) = b(k,234) - lu(k,245) * b(k,90) + b(k,225) = b(k,225) - lu(k,243) * b(k,90) + b(k,226) = b(k,226) - lu(k,244) * b(k,90) + b(k,227) = b(k,227) - lu(k,245) * b(k,90) b(k,184) = b(k,184) - lu(k,247) * b(k,91) - b(k,230) = b(k,230) - lu(k,248) * b(k,91) - b(k,234) = b(k,234) - lu(k,249) * b(k,91) + b(k,225) = b(k,225) - lu(k,248) * b(k,91) + b(k,227) = b(k,227) - lu(k,249) * b(k,91) b(k,184) = b(k,184) - lu(k,252) * b(k,92) - b(k,226) = b(k,226) - lu(k,253) * b(k,92) - b(k,230) = b(k,230) - lu(k,254) * b(k,92) - b(k,234) = b(k,234) - lu(k,255) * b(k,92) + b(k,225) = b(k,225) - lu(k,253) * b(k,92) + b(k,226) = b(k,226) - lu(k,254) * b(k,92) + b(k,227) = b(k,227) - lu(k,255) * b(k,92) b(k,222) = b(k,222) - lu(k,257) * b(k,93) - b(k,227) = b(k,227) - lu(k,258) * b(k,93) + b(k,225) = b(k,225) - lu(k,258) * b(k,93) b(k,230) = b(k,230) - lu(k,259) * b(k,93) b(k,186) = b(k,186) - lu(k,262) * b(k,94) - b(k,232) = b(k,232) - lu(k,263) * b(k,94) + b(k,231) = b(k,231) - lu(k,263) * b(k,94) b(k,239) = b(k,239) - lu(k,264) * b(k,94) b(k,200) = b(k,200) - lu(k,266) * b(k,95) b(k,226) = b(k,226) - lu(k,267) * b(k,95) - b(k,237) = b(k,237) - lu(k,268) * b(k,95) + b(k,236) = b(k,236) - lu(k,268) * b(k,95) b(k,131) = b(k,131) - lu(k,270) * b(k,96) b(k,154) = b(k,154) - lu(k,271) * b(k,96) b(k,226) = b(k,226) - lu(k,272) * b(k,96) - b(k,225) = b(k,225) - lu(k,274) * b(k,97) - b(k,227) = b(k,227) - lu(k,275) * b(k,97) - b(k,228) = b(k,228) - lu(k,276) * b(k,97) - b(k,231) = b(k,231) - lu(k,277) * b(k,97) - b(k,232) = b(k,232) - lu(k,278) * b(k,97) + b(k,228) = b(k,228) - lu(k,274) * b(k,97) + b(k,230) = b(k,230) - lu(k,275) * b(k,97) + b(k,231) = b(k,231) - lu(k,276) * b(k,97) + b(k,235) = b(k,235) - lu(k,277) * b(k,97) + b(k,237) = b(k,237) - lu(k,278) * b(k,97) b(k,168) = b(k,168) - lu(k,280) * b(k,98) - b(k,237) = b(k,237) - lu(k,281) * b(k,98) + b(k,236) = b(k,236) - lu(k,281) * b(k,98) b(k,184) = b(k,184) - lu(k,283) * b(k,99) - b(k,233) = b(k,233) - lu(k,284) * b(k,99) + b(k,234) = b(k,234) - lu(k,284) * b(k,99) b(k,183) = b(k,183) - lu(k,286) * b(k,100) - b(k,192) = b(k,192) - lu(k,287) * b(k,100) + b(k,191) = b(k,191) - lu(k,287) * b(k,100) b(k,201) = b(k,201) - lu(k,288) * b(k,100) b(k,226) = b(k,226) - lu(k,289) * b(k,100) - b(k,237) = b(k,237) - lu(k,290) * b(k,100) + b(k,236) = b(k,236) - lu(k,290) * b(k,100) b(k,184) = b(k,184) - lu(k,293) * b(k,101) - b(k,226) = b(k,226) - lu(k,294) * b(k,101) - b(k,230) = b(k,230) - lu(k,295) * b(k,101) - b(k,234) = b(k,234) - lu(k,296) * b(k,101) + b(k,225) = b(k,225) - lu(k,294) * b(k,101) + b(k,226) = b(k,226) - lu(k,295) * b(k,101) + b(k,227) = b(k,227) - lu(k,296) * b(k,101) b(k,239) = b(k,239) - lu(k,297) * b(k,101) b(k,181) = b(k,181) - lu(k,299) * b(k,102) b(k,220) = b(k,220) - lu(k,300) * b(k,102) b(k,226) = b(k,226) - lu(k,301) * b(k,102) - b(k,234) = b(k,234) - lu(k,302) * b(k,102) + b(k,227) = b(k,227) - lu(k,302) * b(k,102) b(k,239) = b(k,239) - lu(k,303) * b(k,102) b(k,185) = b(k,185) - lu(k,305) * b(k,103) b(k,220) = b(k,220) - lu(k,306) * b(k,103) b(k,226) = b(k,226) - lu(k,307) * b(k,103) - b(k,234) = b(k,234) - lu(k,308) * b(k,103) + b(k,227) = b(k,227) - lu(k,308) * b(k,103) b(k,239) = b(k,239) - lu(k,309) * b(k,103) b(k,186) = b(k,186) - lu(k,311) * b(k,104) - b(k,225) = b(k,225) - lu(k,312) * b(k,104) - b(k,226) = b(k,226) - lu(k,313) * b(k,104) - b(k,231) = b(k,231) - lu(k,314) * b(k,104) + b(k,226) = b(k,226) - lu(k,312) * b(k,104) + b(k,235) = b(k,235) - lu(k,313) * b(k,104) + b(k,236) = b(k,236) - lu(k,314) * b(k,104) b(k,237) = b(k,237) - lu(k,315) * b(k,104) b(k,213) = b(k,213) - lu(k,317) * b(k,105) b(k,215) = b(k,215) - lu(k,318) * b(k,105) b(k,226) = b(k,226) - lu(k,319) * b(k,105) - b(k,237) = b(k,237) - lu(k,320) * b(k,105) + b(k,236) = b(k,236) - lu(k,320) * b(k,105) b(k,160) = b(k,160) - lu(k,322) * b(k,106) b(k,200) = b(k,200) - lu(k,323) * b(k,106) b(k,216) = b(k,216) - lu(k,324) * b(k,106) @@ -196,37 +196,37 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,201) = b(k,201) - lu(k,330) * b(k,108) b(k,210) = b(k,210) - lu(k,331) * b(k,108) b(k,216) = b(k,216) - lu(k,332) * b(k,108) - b(k,237) = b(k,237) - lu(k,333) * b(k,108) + b(k,236) = b(k,236) - lu(k,333) * b(k,108) b(k,186) = b(k,186) - lu(k,335) * b(k,109) b(k,219) = b(k,219) - lu(k,336) * b(k,109) - b(k,224) = b(k,224) - lu(k,337) * b(k,109) - b(k,232) = b(k,232) - lu(k,338) * b(k,109) + b(k,231) = b(k,231) - lu(k,337) * b(k,109) + b(k,233) = b(k,233) - lu(k,338) * b(k,109) b(k,127) = b(k,127) - lu(k,340) * b(k,110) - b(k,192) = b(k,192) - lu(k,341) * b(k,110) + b(k,191) = b(k,191) - lu(k,341) * b(k,110) b(k,226) = b(k,226) - lu(k,342) * b(k,110) - b(k,237) = b(k,237) - lu(k,343) * b(k,110) + b(k,236) = b(k,236) - lu(k,343) * b(k,110) b(k,125) = b(k,125) - lu(k,346) * b(k,111) b(k,139) = b(k,139) - lu(k,347) * b(k,111) b(k,226) = b(k,226) - lu(k,348) * b(k,111) - b(k,237) = b(k,237) - lu(k,349) * b(k,111) + b(k,236) = b(k,236) - lu(k,349) * b(k,111) b(k,181) = b(k,181) - lu(k,351) * b(k,112) b(k,200) = b(k,200) - lu(k,352) * b(k,112) b(k,226) = b(k,226) - lu(k,353) * b(k,112) - b(k,237) = b(k,237) - lu(k,354) * b(k,112) - b(k,146) = b(k,146) - lu(k,356) * b(k,113) + b(k,236) = b(k,236) - lu(k,354) * b(k,112) + b(k,145) = b(k,145) - lu(k,356) * b(k,113) b(k,195) = b(k,195) - lu(k,357) * b(k,113) b(k,200) = b(k,200) - lu(k,358) * b(k,113) - b(k,225) = b(k,225) - lu(k,359) * b(k,113) - b(k,226) = b(k,226) - lu(k,360) * b(k,113) - b(k,228) = b(k,228) - lu(k,361) * b(k,113) - b(k,229) = b(k,229) - lu(k,362) * b(k,113) - b(k,163) = b(k,163) - lu(k,364) * b(k,114) + b(k,226) = b(k,226) - lu(k,359) * b(k,113) + b(k,228) = b(k,228) - lu(k,360) * b(k,113) + b(k,229) = b(k,229) - lu(k,361) * b(k,113) + b(k,235) = b(k,235) - lu(k,362) * b(k,113) + b(k,164) = b(k,164) - lu(k,364) * b(k,114) b(k,186) = b(k,186) - lu(k,365) * b(k,114) b(k,201) = b(k,201) - lu(k,366) * b(k,114) b(k,219) = b(k,219) - lu(k,367) * b(k,114) b(k,226) = b(k,226) - lu(k,368) * b(k,114) - b(k,232) = b(k,232) - lu(k,369) * b(k,114) - b(k,233) = b(k,233) - lu(k,370) * b(k,114) + b(k,231) = b(k,231) - lu(k,369) * b(k,114) + b(k,234) = b(k,234) - lu(k,370) * b(k,114) end do end subroutine lu_slv01 subroutine lu_slv02( avec_len, lu, b ) @@ -250,25 +250,25 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,201) = b(k,201) - lu(k,372) * b(k,115) b(k,220) = b(k,220) - lu(k,373) * b(k,115) b(k,226) = b(k,226) - lu(k,374) * b(k,115) - b(k,234) = b(k,234) - lu(k,375) * b(k,115) - b(k,237) = b(k,237) - lu(k,376) * b(k,115) + b(k,227) = b(k,227) - lu(k,375) * b(k,115) + b(k,236) = b(k,236) - lu(k,376) * b(k,115) b(k,238) = b(k,238) - lu(k,377) * b(k,115) b(k,239) = b(k,239) - lu(k,378) * b(k,115) - b(k,192) = b(k,192) - lu(k,380) * b(k,116) + b(k,191) = b(k,191) - lu(k,380) * b(k,116) b(k,201) = b(k,201) - lu(k,381) * b(k,116) b(k,210) = b(k,210) - lu(k,382) * b(k,116) b(k,216) = b(k,216) - lu(k,383) * b(k,116) - b(k,237) = b(k,237) - lu(k,384) * b(k,116) + b(k,236) = b(k,236) - lu(k,384) * b(k,116) b(k,220) = b(k,220) - lu(k,386) * b(k,117) b(k,221) = b(k,221) - lu(k,387) * b(k,117) - b(k,226) = b(k,226) - lu(k,388) * b(k,117) - b(k,230) = b(k,230) - lu(k,389) * b(k,117) - b(k,234) = b(k,234) - lu(k,390) * b(k,117) + b(k,225) = b(k,225) - lu(k,388) * b(k,117) + b(k,226) = b(k,226) - lu(k,389) * b(k,117) + b(k,227) = b(k,227) - lu(k,390) * b(k,117) b(k,194) = b(k,194) - lu(k,392) * b(k,118) b(k,197) = b(k,197) - lu(k,393) * b(k,118) b(k,226) = b(k,226) - lu(k,394) * b(k,118) b(k,228) = b(k,228) - lu(k,395) * b(k,118) - b(k,231) = b(k,231) - lu(k,396) * b(k,118) + b(k,237) = b(k,237) - lu(k,396) * b(k,118) b(k,206) = b(k,206) - lu(k,398) * b(k,119) b(k,216) = b(k,216) - lu(k,399) * b(k,119) b(k,226) = b(k,226) - lu(k,400) * b(k,119) @@ -278,180 +278,176 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,180) = b(k,180) - lu(k,405) * b(k,120) b(k,226) = b(k,226) - lu(k,406) * b(k,120) b(k,228) = b(k,228) - lu(k,407) * b(k,120) - b(k,237) = b(k,237) - lu(k,408) * b(k,120) + b(k,236) = b(k,236) - lu(k,408) * b(k,120) b(k,185) = b(k,185) - lu(k,410) * b(k,121) b(k,195) = b(k,195) - lu(k,411) * b(k,121) b(k,226) = b(k,226) - lu(k,412) * b(k,121) - b(k,237) = b(k,237) - lu(k,413) * b(k,121) + b(k,236) = b(k,236) - lu(k,413) * b(k,121) b(k,239) = b(k,239) - lu(k,414) * b(k,121) b(k,130) = b(k,130) - lu(k,416) * b(k,122) b(k,135) = b(k,135) - lu(k,417) * b(k,122) - b(k,192) = b(k,192) - lu(k,418) * b(k,122) + b(k,191) = b(k,191) - lu(k,418) * b(k,122) b(k,226) = b(k,226) - lu(k,419) * b(k,122) - b(k,237) = b(k,237) - lu(k,420) * b(k,122) + b(k,236) = b(k,236) - lu(k,420) * b(k,122) b(k,137) = b(k,137) - lu(k,422) * b(k,123) - b(k,192) = b(k,192) - lu(k,423) * b(k,123) + b(k,191) = b(k,191) - lu(k,423) * b(k,123) b(k,210) = b(k,210) - lu(k,424) * b(k,123) b(k,226) = b(k,226) - lu(k,425) * b(k,123) - b(k,237) = b(k,237) - lu(k,426) * b(k,123) + b(k,236) = b(k,236) - lu(k,426) * b(k,123) b(k,180) = b(k,180) - lu(k,428) * b(k,124) b(k,202) = b(k,202) - lu(k,429) * b(k,124) b(k,226) = b(k,226) - lu(k,430) * b(k,124) - b(k,231) = b(k,231) - lu(k,431) * b(k,124) + b(k,236) = b(k,236) - lu(k,431) * b(k,124) b(k,237) = b(k,237) - lu(k,432) * b(k,124) b(k,139) = b(k,139) - lu(k,436) * b(k,125) b(k,226) = b(k,226) - lu(k,437) * b(k,125) - b(k,227) = b(k,227) - lu(k,438) * b(k,125) - b(k,228) = b(k,228) - lu(k,439) * b(k,125) - b(k,237) = b(k,237) - lu(k,440) * b(k,125) + b(k,228) = b(k,228) - lu(k,438) * b(k,125) + b(k,230) = b(k,230) - lu(k,439) * b(k,125) + b(k,236) = b(k,236) - lu(k,440) * b(k,125) b(k,183) = b(k,183) - lu(k,442) * b(k,126) - b(k,227) = b(k,227) - lu(k,443) * b(k,126) - b(k,228) = b(k,228) - lu(k,444) * b(k,126) - b(k,229) = b(k,229) - lu(k,445) * b(k,126) - b(k,237) = b(k,237) - lu(k,446) * b(k,126) - b(k,192) = b(k,192) - lu(k,449) * b(k,127) + b(k,228) = b(k,228) - lu(k,443) * b(k,126) + b(k,229) = b(k,229) - lu(k,444) * b(k,126) + b(k,230) = b(k,230) - lu(k,445) * b(k,126) + b(k,236) = b(k,236) - lu(k,446) * b(k,126) + b(k,191) = b(k,191) - lu(k,449) * b(k,127) b(k,226) = b(k,226) - lu(k,450) * b(k,127) - b(k,227) = b(k,227) - lu(k,451) * b(k,127) - b(k,228) = b(k,228) - lu(k,452) * b(k,127) - b(k,237) = b(k,237) - lu(k,453) * b(k,127) + b(k,228) = b(k,228) - lu(k,451) * b(k,127) + b(k,230) = b(k,230) - lu(k,452) * b(k,127) + b(k,236) = b(k,236) - lu(k,453) * b(k,127) b(k,226) = b(k,226) - lu(k,455) * b(k,128) b(k,229) = b(k,229) - lu(k,456) * b(k,128) - b(k,233) = b(k,233) - lu(k,457) * b(k,128) + b(k,234) = b(k,234) - lu(k,457) * b(k,128) b(k,238) = b(k,238) - lu(k,458) * b(k,128) b(k,239) = b(k,239) - lu(k,459) * b(k,128) b(k,202) = b(k,202) - lu(k,461) * b(k,129) b(k,222) = b(k,222) - lu(k,462) * b(k,129) b(k,229) = b(k,229) - lu(k,463) * b(k,129) - b(k,237) = b(k,237) - lu(k,464) * b(k,129) + b(k,236) = b(k,236) - lu(k,464) * b(k,129) b(k,165) = b(k,165) - lu(k,466) * b(k,130) - b(k,237) = b(k,237) - lu(k,467) * b(k,130) + b(k,236) = b(k,236) - lu(k,467) * b(k,130) b(k,154) = b(k,154) - lu(k,469) * b(k,131) b(k,228) = b(k,228) - lu(k,470) * b(k,131) - b(k,235) = b(k,235) - lu(k,471) * b(k,131) + b(k,232) = b(k,232) - lu(k,471) * b(k,131) b(k,222) = b(k,222) - lu(k,473) * b(k,132) - b(k,225) = b(k,225) - lu(k,474) * b(k,132) - b(k,226) = b(k,226) - lu(k,475) * b(k,132) - b(k,228) = b(k,228) - lu(k,476) * b(k,132) - b(k,237) = b(k,237) - lu(k,477) * b(k,132) + b(k,226) = b(k,226) - lu(k,474) * b(k,132) + b(k,228) = b(k,228) - lu(k,475) * b(k,132) + b(k,235) = b(k,235) - lu(k,476) * b(k,132) + b(k,236) = b(k,236) - lu(k,477) * b(k,132) b(k,239) = b(k,239) - lu(k,478) * b(k,132) b(k,220) = b(k,220) - lu(k,480) * b(k,133) b(k,221) = b(k,221) - lu(k,481) * b(k,133) - b(k,226) = b(k,226) - lu(k,482) * b(k,133) - b(k,230) = b(k,230) - lu(k,483) * b(k,133) - b(k,234) = b(k,234) - lu(k,484) * b(k,133) + b(k,225) = b(k,225) - lu(k,482) * b(k,133) + b(k,226) = b(k,226) - lu(k,483) * b(k,133) + b(k,227) = b(k,227) - lu(k,484) * b(k,133) b(k,239) = b(k,239) - lu(k,485) * b(k,133) b(k,193) = b(k,193) - lu(k,487) * b(k,134) b(k,194) = b(k,194) - lu(k,488) * b(k,134) b(k,195) = b(k,195) - lu(k,489) * b(k,134) b(k,226) = b(k,226) - lu(k,490) * b(k,134) b(k,229) = b(k,229) - lu(k,491) * b(k,134) - b(k,237) = b(k,237) - lu(k,492) * b(k,134) + b(k,236) = b(k,236) - lu(k,492) * b(k,134) b(k,165) = b(k,165) - lu(k,496) * b(k,135) - b(k,192) = b(k,192) - lu(k,497) * b(k,135) + b(k,191) = b(k,191) - lu(k,497) * b(k,135) b(k,226) = b(k,226) - lu(k,498) * b(k,135) - b(k,227) = b(k,227) - lu(k,499) * b(k,135) - b(k,228) = b(k,228) - lu(k,500) * b(k,135) - b(k,237) = b(k,237) - lu(k,501) * b(k,135) + b(k,228) = b(k,228) - lu(k,499) * b(k,135) + b(k,230) = b(k,230) - lu(k,500) * b(k,135) + b(k,236) = b(k,236) - lu(k,501) * b(k,135) b(k,171) = b(k,171) - lu(k,503) * b(k,136) b(k,176) = b(k,176) - lu(k,504) * b(k,136) b(k,177) = b(k,177) - lu(k,505) * b(k,136) - b(k,189) = b(k,189) - lu(k,506) * b(k,136) + b(k,192) = b(k,192) - lu(k,506) * b(k,136) b(k,222) = b(k,222) - lu(k,507) * b(k,136) - b(k,232) = b(k,232) - lu(k,508) * b(k,136) - b(k,192) = b(k,192) - lu(k,511) * b(k,137) + b(k,231) = b(k,231) - lu(k,508) * b(k,136) + b(k,191) = b(k,191) - lu(k,511) * b(k,137) b(k,210) = b(k,210) - lu(k,512) * b(k,137) b(k,226) = b(k,226) - lu(k,513) * b(k,137) - b(k,227) = b(k,227) - lu(k,514) * b(k,137) - b(k,228) = b(k,228) - lu(k,515) * b(k,137) - b(k,237) = b(k,237) - lu(k,516) * b(k,137) + b(k,228) = b(k,228) - lu(k,514) * b(k,137) + b(k,230) = b(k,230) - lu(k,515) * b(k,137) + b(k,236) = b(k,236) - lu(k,516) * b(k,137) b(k,160) = b(k,160) - lu(k,518) * b(k,138) b(k,181) = b(k,181) - lu(k,519) * b(k,138) b(k,216) = b(k,216) - lu(k,520) * b(k,138) b(k,226) = b(k,226) - lu(k,521) * b(k,138) b(k,154) = b(k,154) - lu(k,524) * b(k,139) b(k,226) = b(k,226) - lu(k,525) * b(k,139) - b(k,227) = b(k,227) - lu(k,526) * b(k,139) - b(k,228) = b(k,228) - lu(k,527) * b(k,139) - b(k,237) = b(k,237) - lu(k,528) * b(k,139) - b(k,189) = b(k,189) - lu(k,530) * b(k,140) - b(k,222) = b(k,222) - lu(k,531) * b(k,140) - b(k,227) = b(k,227) - lu(k,532) * b(k,140) - b(k,230) = b(k,230) - lu(k,533) * b(k,140) - b(k,216) = b(k,216) - lu(k,535) * b(k,141) - b(k,217) = b(k,217) - lu(k,536) * b(k,141) - b(k,225) = b(k,225) - lu(k,537) * b(k,141) - b(k,226) = b(k,226) - lu(k,538) * b(k,141) - b(k,228) = b(k,228) - lu(k,539) * b(k,141) - b(k,229) = b(k,229) - lu(k,540) * b(k,141) - b(k,238) = b(k,238) - lu(k,541) * b(k,141) - b(k,172) = b(k,172) - lu(k,543) * b(k,142) - b(k,200) = b(k,200) - lu(k,544) * b(k,142) - b(k,205) = b(k,205) - lu(k,545) * b(k,142) - b(k,226) = b(k,226) - lu(k,546) * b(k,142) - b(k,229) = b(k,229) - lu(k,547) * b(k,142) - b(k,237) = b(k,237) - lu(k,548) * b(k,142) - b(k,239) = b(k,239) - lu(k,549) * b(k,142) - b(k,170) = b(k,170) - lu(k,551) * b(k,143) - b(k,183) = b(k,183) - lu(k,552) * b(k,143) - b(k,201) = b(k,201) - lu(k,553) * b(k,143) - b(k,226) = b(k,226) - lu(k,554) * b(k,143) - b(k,229) = b(k,229) - lu(k,555) * b(k,143) - b(k,235) = b(k,235) - lu(k,556) * b(k,143) - b(k,237) = b(k,237) - lu(k,557) * b(k,143) - b(k,180) = b(k,180) - lu(k,559) * b(k,144) - b(k,202) = b(k,202) - lu(k,560) * b(k,144) - b(k,204) = b(k,204) - lu(k,561) * b(k,144) - b(k,205) = b(k,205) - lu(k,562) * b(k,144) - b(k,226) = b(k,226) - lu(k,563) * b(k,144) - b(k,231) = b(k,231) - lu(k,564) * b(k,144) - b(k,237) = b(k,237) - lu(k,565) * b(k,144) - b(k,169) = b(k,169) - lu(k,567) * b(k,145) - b(k,221) = b(k,221) - lu(k,568) * b(k,145) - b(k,223) = b(k,223) - lu(k,569) * b(k,145) - b(k,225) = b(k,225) - lu(k,570) * b(k,145) - b(k,228) = b(k,228) - lu(k,571) * b(k,145) - b(k,231) = b(k,231) - lu(k,572) * b(k,145) - b(k,232) = b(k,232) - lu(k,573) * b(k,145) - b(k,195) = b(k,195) - lu(k,575) * b(k,146) - b(k,200) = b(k,200) - lu(k,576) * b(k,146) - b(k,204) = b(k,204) - lu(k,577) * b(k,146) - b(k,227) = b(k,227) - lu(k,578) * b(k,146) - b(k,228) = b(k,228) - lu(k,579) * b(k,146) - b(k,229) = b(k,229) - lu(k,580) * b(k,146) - b(k,237) = b(k,237) - lu(k,581) * b(k,146) - b(k,220) = b(k,220) - lu(k,583) * b(k,147) - b(k,226) = b(k,226) - lu(k,584) * b(k,147) - b(k,232) = b(k,232) - lu(k,585) * b(k,147) - b(k,234) = b(k,234) - lu(k,586) * b(k,147) - b(k,237) = b(k,237) - lu(k,587) * b(k,147) - b(k,239) = b(k,239) - lu(k,588) * b(k,147) - b(k,202) = b(k,202) - lu(k,590) * b(k,148) - b(k,204) = b(k,204) - lu(k,591) * b(k,148) - b(k,205) = b(k,205) - lu(k,592) * b(k,148) - b(k,226) = b(k,226) - lu(k,593) * b(k,148) - b(k,228) = b(k,228) - lu(k,594) * b(k,148) - b(k,229) = b(k,229) - lu(k,595) * b(k,148) - b(k,231) = b(k,231) - lu(k,596) * b(k,148) - b(k,237) = b(k,237) - lu(k,597) * b(k,148) - b(k,182) = b(k,182) - lu(k,599) * b(k,149) - b(k,201) = b(k,201) - lu(k,600) * b(k,149) - b(k,237) = b(k,237) - lu(k,601) * b(k,149) - b(k,220) = b(k,220) - lu(k,603) * b(k,150) - b(k,221) = b(k,221) - lu(k,604) * b(k,150) - b(k,226) = b(k,226) - lu(k,605) * b(k,150) - b(k,230) = b(k,230) - lu(k,606) * b(k,150) - b(k,234) = b(k,234) - lu(k,607) * b(k,150) - b(k,237) = b(k,237) - lu(k,608) * b(k,150) - b(k,238) = b(k,238) - lu(k,609) * b(k,150) - b(k,239) = b(k,239) - lu(k,610) * b(k,150) - b(k,205) = b(k,205) - lu(k,612) * b(k,151) - b(k,215) = b(k,215) - lu(k,613) * b(k,151) - b(k,217) = b(k,217) - lu(k,614) * b(k,151) - b(k,225) = b(k,225) - lu(k,615) * b(k,151) - b(k,226) = b(k,226) - lu(k,616) * b(k,151) - b(k,228) = b(k,228) - lu(k,617) * b(k,151) - b(k,229) = b(k,229) - lu(k,618) * b(k,151) - b(k,237) = b(k,237) - lu(k,619) * b(k,151) + b(k,228) = b(k,228) - lu(k,526) * b(k,139) + b(k,230) = b(k,230) - lu(k,527) * b(k,139) + b(k,236) = b(k,236) - lu(k,528) * b(k,139) + b(k,216) = b(k,216) - lu(k,530) * b(k,140) + b(k,217) = b(k,217) - lu(k,531) * b(k,140) + b(k,226) = b(k,226) - lu(k,532) * b(k,140) + b(k,228) = b(k,228) - lu(k,533) * b(k,140) + b(k,229) = b(k,229) - lu(k,534) * b(k,140) + b(k,235) = b(k,235) - lu(k,535) * b(k,140) + b(k,238) = b(k,238) - lu(k,536) * b(k,140) + b(k,172) = b(k,172) - lu(k,538) * b(k,141) + b(k,200) = b(k,200) - lu(k,539) * b(k,141) + b(k,205) = b(k,205) - lu(k,540) * b(k,141) + b(k,226) = b(k,226) - lu(k,541) * b(k,141) + b(k,229) = b(k,229) - lu(k,542) * b(k,141) + b(k,236) = b(k,236) - lu(k,543) * b(k,141) + b(k,239) = b(k,239) - lu(k,544) * b(k,141) + b(k,170) = b(k,170) - lu(k,546) * b(k,142) + b(k,183) = b(k,183) - lu(k,547) * b(k,142) + b(k,201) = b(k,201) - lu(k,548) * b(k,142) + b(k,226) = b(k,226) - lu(k,549) * b(k,142) + b(k,229) = b(k,229) - lu(k,550) * b(k,142) + b(k,232) = b(k,232) - lu(k,551) * b(k,142) + b(k,236) = b(k,236) - lu(k,552) * b(k,142) + b(k,180) = b(k,180) - lu(k,554) * b(k,143) + b(k,202) = b(k,202) - lu(k,555) * b(k,143) + b(k,204) = b(k,204) - lu(k,556) * b(k,143) + b(k,205) = b(k,205) - lu(k,557) * b(k,143) + b(k,226) = b(k,226) - lu(k,558) * b(k,143) + b(k,236) = b(k,236) - lu(k,559) * b(k,143) + b(k,237) = b(k,237) - lu(k,560) * b(k,143) + b(k,169) = b(k,169) - lu(k,562) * b(k,144) + b(k,221) = b(k,221) - lu(k,563) * b(k,144) + b(k,224) = b(k,224) - lu(k,564) * b(k,144) + b(k,228) = b(k,228) - lu(k,565) * b(k,144) + b(k,231) = b(k,231) - lu(k,566) * b(k,144) + b(k,235) = b(k,235) - lu(k,567) * b(k,144) + b(k,237) = b(k,237) - lu(k,568) * b(k,144) + b(k,195) = b(k,195) - lu(k,570) * b(k,145) + b(k,200) = b(k,200) - lu(k,571) * b(k,145) + b(k,204) = b(k,204) - lu(k,572) * b(k,145) + b(k,228) = b(k,228) - lu(k,573) * b(k,145) + b(k,229) = b(k,229) - lu(k,574) * b(k,145) + b(k,230) = b(k,230) - lu(k,575) * b(k,145) + b(k,236) = b(k,236) - lu(k,576) * b(k,145) + b(k,202) = b(k,202) - lu(k,578) * b(k,146) + b(k,204) = b(k,204) - lu(k,579) * b(k,146) + b(k,205) = b(k,205) - lu(k,580) * b(k,146) + b(k,226) = b(k,226) - lu(k,581) * b(k,146) + b(k,228) = b(k,228) - lu(k,582) * b(k,146) + b(k,229) = b(k,229) - lu(k,583) * b(k,146) + b(k,236) = b(k,236) - lu(k,584) * b(k,146) + b(k,237) = b(k,237) - lu(k,585) * b(k,146) + b(k,220) = b(k,220) - lu(k,587) * b(k,147) + b(k,226) = b(k,226) - lu(k,588) * b(k,147) + b(k,227) = b(k,227) - lu(k,589) * b(k,147) + b(k,231) = b(k,231) - lu(k,590) * b(k,147) + b(k,236) = b(k,236) - lu(k,591) * b(k,147) + b(k,239) = b(k,239) - lu(k,592) * b(k,147) + b(k,182) = b(k,182) - lu(k,594) * b(k,148) + b(k,201) = b(k,201) - lu(k,595) * b(k,148) + b(k,236) = b(k,236) - lu(k,596) * b(k,148) + b(k,220) = b(k,220) - lu(k,598) * b(k,149) + b(k,221) = b(k,221) - lu(k,599) * b(k,149) + b(k,225) = b(k,225) - lu(k,600) * b(k,149) + b(k,226) = b(k,226) - lu(k,601) * b(k,149) + b(k,227) = b(k,227) - lu(k,602) * b(k,149) + b(k,236) = b(k,236) - lu(k,603) * b(k,149) + b(k,238) = b(k,238) - lu(k,604) * b(k,149) + b(k,239) = b(k,239) - lu(k,605) * b(k,149) + b(k,205) = b(k,205) - lu(k,607) * b(k,150) + b(k,215) = b(k,215) - lu(k,608) * b(k,150) + b(k,217) = b(k,217) - lu(k,609) * b(k,150) + b(k,226) = b(k,226) - lu(k,610) * b(k,150) + b(k,228) = b(k,228) - lu(k,611) * b(k,150) + b(k,229) = b(k,229) - lu(k,612) * b(k,150) + b(k,235) = b(k,235) - lu(k,613) * b(k,150) + b(k,236) = b(k,236) - lu(k,614) * b(k,150) end do end subroutine lu_slv02 subroutine lu_slv03( avec_len, lu, b ) @@ -472,210 +468,214 @@ subroutine lu_slv03( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,216) = b(k,216) - lu(k,621) * b(k,152) - b(k,217) = b(k,217) - lu(k,622) * b(k,152) - b(k,226) = b(k,226) - lu(k,623) * b(k,152) - b(k,229) = b(k,229) - lu(k,624) * b(k,152) - b(k,238) = b(k,238) - lu(k,625) * b(k,152) - b(k,239) = b(k,239) - lu(k,626) * b(k,152) - b(k,194) = b(k,194) - lu(k,628) * b(k,153) - b(k,226) = b(k,226) - lu(k,629) * b(k,153) - b(k,228) = b(k,228) - lu(k,630) * b(k,153) - b(k,231) = b(k,231) - lu(k,631) * b(k,153) - b(k,237) = b(k,237) - lu(k,632) * b(k,153) - b(k,226) = b(k,226) - lu(k,636) * b(k,154) - b(k,227) = b(k,227) - lu(k,637) * b(k,154) - b(k,228) = b(k,228) - lu(k,638) * b(k,154) - b(k,235) = b(k,235) - lu(k,639) * b(k,154) - b(k,237) = b(k,237) - lu(k,640) * b(k,154) - b(k,160) = b(k,160) - lu(k,643) * b(k,155) - b(k,181) = b(k,181) - lu(k,644) * b(k,155) - b(k,195) = b(k,195) - lu(k,645) * b(k,155) - b(k,200) = b(k,200) - lu(k,646) * b(k,155) - b(k,216) = b(k,216) - lu(k,647) * b(k,155) - b(k,226) = b(k,226) - lu(k,648) * b(k,155) - b(k,228) = b(k,228) - lu(k,649) * b(k,155) - b(k,229) = b(k,229) - lu(k,650) * b(k,155) - b(k,237) = b(k,237) - lu(k,651) * b(k,155) - b(k,195) = b(k,195) - lu(k,653) * b(k,156) - b(k,198) = b(k,198) - lu(k,654) * b(k,156) - b(k,201) = b(k,201) - lu(k,655) * b(k,156) - b(k,202) = b(k,202) - lu(k,656) * b(k,156) - b(k,203) = b(k,203) - lu(k,657) * b(k,156) - b(k,217) = b(k,217) - lu(k,658) * b(k,156) - b(k,226) = b(k,226) - lu(k,659) * b(k,156) + b(k,216) = b(k,216) - lu(k,616) * b(k,151) + b(k,217) = b(k,217) - lu(k,617) * b(k,151) + b(k,226) = b(k,226) - lu(k,618) * b(k,151) + b(k,229) = b(k,229) - lu(k,619) * b(k,151) + b(k,238) = b(k,238) - lu(k,620) * b(k,151) + b(k,239) = b(k,239) - lu(k,621) * b(k,151) + b(k,155) = b(k,155) - lu(k,623) * b(k,152) + b(k,171) = b(k,171) - lu(k,624) * b(k,152) + b(k,176) = b(k,176) - lu(k,625) * b(k,152) + b(k,177) = b(k,177) - lu(k,626) * b(k,152) + b(k,178) = b(k,178) - lu(k,627) * b(k,152) + b(k,192) = b(k,192) - lu(k,628) * b(k,152) + b(k,222) = b(k,222) - lu(k,629) * b(k,152) + b(k,231) = b(k,231) - lu(k,630) * b(k,152) + b(k,194) = b(k,194) - lu(k,632) * b(k,153) + b(k,226) = b(k,226) - lu(k,633) * b(k,153) + b(k,228) = b(k,228) - lu(k,634) * b(k,153) + b(k,236) = b(k,236) - lu(k,635) * b(k,153) + b(k,237) = b(k,237) - lu(k,636) * b(k,153) + b(k,226) = b(k,226) - lu(k,640) * b(k,154) + b(k,228) = b(k,228) - lu(k,641) * b(k,154) + b(k,230) = b(k,230) - lu(k,642) * b(k,154) + b(k,232) = b(k,232) - lu(k,643) * b(k,154) + b(k,236) = b(k,236) - lu(k,644) * b(k,154) + b(k,192) = b(k,192) - lu(k,646) * b(k,155) + b(k,222) = b(k,222) - lu(k,647) * b(k,155) + b(k,225) = b(k,225) - lu(k,648) * b(k,155) + b(k,230) = b(k,230) - lu(k,649) * b(k,155) + b(k,231) = b(k,231) - lu(k,650) * b(k,155) + b(k,160) = b(k,160) - lu(k,653) * b(k,156) + b(k,181) = b(k,181) - lu(k,654) * b(k,156) + b(k,195) = b(k,195) - lu(k,655) * b(k,156) + b(k,200) = b(k,200) - lu(k,656) * b(k,156) + b(k,216) = b(k,216) - lu(k,657) * b(k,156) + b(k,226) = b(k,226) - lu(k,658) * b(k,156) + b(k,228) = b(k,228) - lu(k,659) * b(k,156) b(k,229) = b(k,229) - lu(k,660) * b(k,156) - b(k,237) = b(k,237) - lu(k,661) * b(k,156) - b(k,165) = b(k,165) - lu(k,666) * b(k,157) - b(k,166) = b(k,166) - lu(k,667) * b(k,157) - b(k,168) = b(k,168) - lu(k,668) * b(k,157) - b(k,182) = b(k,182) - lu(k,669) * b(k,157) - b(k,192) = b(k,192) - lu(k,670) * b(k,157) - b(k,201) = b(k,201) - lu(k,671) * b(k,157) - b(k,210) = b(k,210) - lu(k,672) * b(k,157) - b(k,226) = b(k,226) - lu(k,673) * b(k,157) - b(k,237) = b(k,237) - lu(k,674) * b(k,157) - b(k,171) = b(k,171) - lu(k,677) * b(k,158) - b(k,176) = b(k,176) - lu(k,678) * b(k,158) - b(k,177) = b(k,177) - lu(k,679) * b(k,158) - b(k,178) = b(k,178) - lu(k,680) * b(k,158) - b(k,189) = b(k,189) - lu(k,681) * b(k,158) - b(k,222) = b(k,222) - lu(k,682) * b(k,158) - b(k,227) = b(k,227) - lu(k,683) * b(k,158) - b(k,230) = b(k,230) - lu(k,684) * b(k,158) - b(k,232) = b(k,232) - lu(k,685) * b(k,158) - b(k,160) = b(k,160) - lu(k,688) * b(k,159) - b(k,181) = b(k,181) - lu(k,689) * b(k,159) - b(k,191) = b(k,191) - lu(k,690) * b(k,159) - b(k,195) = b(k,195) - lu(k,691) * b(k,159) - b(k,200) = b(k,200) - lu(k,692) * b(k,159) - b(k,216) = b(k,216) - lu(k,693) * b(k,159) - b(k,226) = b(k,226) - lu(k,694) * b(k,159) - b(k,229) = b(k,229) - lu(k,695) * b(k,159) - b(k,237) = b(k,237) - lu(k,696) * b(k,159) - b(k,200) = b(k,200) - lu(k,699) * b(k,160) - b(k,216) = b(k,216) - lu(k,700) * b(k,160) - b(k,226) = b(k,226) - lu(k,701) * b(k,160) - b(k,227) = b(k,227) - lu(k,702) * b(k,160) - b(k,228) = b(k,228) - lu(k,703) * b(k,160) - b(k,237) = b(k,237) - lu(k,704) * b(k,160) - b(k,217) = b(k,217) - lu(k,706) * b(k,161) - b(k,226) = b(k,226) - lu(k,707) * b(k,161) - b(k,238) = b(k,238) - lu(k,708) * b(k,161) - b(k,239) = b(k,239) - lu(k,709) * b(k,161) - b(k,207) = b(k,207) - lu(k,712) * b(k,162) - b(k,209) = b(k,209) - lu(k,713) * b(k,162) - b(k,214) = b(k,214) - lu(k,714) * b(k,162) - b(k,226) = b(k,226) - lu(k,715) * b(k,162) - b(k,229) = b(k,229) - lu(k,716) * b(k,162) - b(k,237) = b(k,237) - lu(k,717) * b(k,162) - b(k,219) = b(k,219) - lu(k,719) * b(k,163) - b(k,222) = b(k,222) - lu(k,720) * b(k,163) - b(k,226) = b(k,226) - lu(k,721) * b(k,163) - b(k,232) = b(k,232) - lu(k,722) * b(k,163) - b(k,233) = b(k,233) - lu(k,723) * b(k,163) - b(k,235) = b(k,235) - lu(k,724) * b(k,163) - b(k,165) = b(k,165) - lu(k,730) * b(k,164) - b(k,167) = b(k,167) - lu(k,731) * b(k,164) - b(k,168) = b(k,168) - lu(k,732) * b(k,164) - b(k,182) = b(k,182) - lu(k,733) * b(k,164) - b(k,192) = b(k,192) - lu(k,734) * b(k,164) - b(k,201) = b(k,201) - lu(k,735) * b(k,164) - b(k,210) = b(k,210) - lu(k,736) * b(k,164) - b(k,216) = b(k,216) - lu(k,737) * b(k,164) - b(k,226) = b(k,226) - lu(k,738) * b(k,164) - b(k,237) = b(k,237) - lu(k,739) * b(k,164) - b(k,192) = b(k,192) - lu(k,741) * b(k,165) - b(k,201) = b(k,201) - lu(k,742) * b(k,165) - b(k,227) = b(k,227) - lu(k,743) * b(k,165) - b(k,228) = b(k,228) - lu(k,744) * b(k,165) - b(k,237) = b(k,237) - lu(k,745) * b(k,165) - b(k,168) = b(k,168) - lu(k,752) * b(k,166) - b(k,182) = b(k,182) - lu(k,753) * b(k,166) - b(k,192) = b(k,192) - lu(k,754) * b(k,166) - b(k,201) = b(k,201) - lu(k,755) * b(k,166) - b(k,210) = b(k,210) - lu(k,756) * b(k,166) - b(k,226) = b(k,226) - lu(k,757) * b(k,166) - b(k,227) = b(k,227) - lu(k,758) * b(k,166) - b(k,228) = b(k,228) - lu(k,759) * b(k,166) - b(k,237) = b(k,237) - lu(k,760) * b(k,166) - b(k,168) = b(k,168) - lu(k,768) * b(k,167) - b(k,182) = b(k,182) - lu(k,769) * b(k,167) - b(k,192) = b(k,192) - lu(k,770) * b(k,167) - b(k,201) = b(k,201) - lu(k,771) * b(k,167) - b(k,210) = b(k,210) - lu(k,772) * b(k,167) - b(k,216) = b(k,216) - lu(k,773) * b(k,167) - b(k,226) = b(k,226) - lu(k,774) * b(k,167) - b(k,227) = b(k,227) - lu(k,775) * b(k,167) - b(k,228) = b(k,228) - lu(k,776) * b(k,167) - b(k,237) = b(k,237) - lu(k,777) * b(k,167) - b(k,201) = b(k,201) - lu(k,779) * b(k,168) - b(k,210) = b(k,210) - lu(k,780) * b(k,168) - b(k,226) = b(k,226) - lu(k,781) * b(k,168) - b(k,227) = b(k,227) - lu(k,782) * b(k,168) - b(k,228) = b(k,228) - lu(k,783) * b(k,168) - b(k,237) = b(k,237) - lu(k,784) * b(k,168) - b(k,238) = b(k,238) - lu(k,785) * b(k,168) - b(k,220) = b(k,220) - lu(k,788) * b(k,169) - b(k,221) = b(k,221) - lu(k,789) * b(k,169) - b(k,223) = b(k,223) - lu(k,790) * b(k,169) - b(k,226) = b(k,226) - lu(k,791) * b(k,169) - b(k,232) = b(k,232) - lu(k,792) * b(k,169) - b(k,234) = b(k,234) - lu(k,793) * b(k,169) - b(k,239) = b(k,239) - lu(k,794) * b(k,169) - b(k,202) = b(k,202) - lu(k,798) * b(k,170) - b(k,222) = b(k,222) - lu(k,799) * b(k,170) - b(k,226) = b(k,226) - lu(k,800) * b(k,170) - b(k,227) = b(k,227) - lu(k,801) * b(k,170) - b(k,228) = b(k,228) - lu(k,802) * b(k,170) - b(k,229) = b(k,229) - lu(k,803) * b(k,170) - b(k,237) = b(k,237) - lu(k,804) * b(k,170) - b(k,176) = b(k,176) - lu(k,806) * b(k,171) - b(k,177) = b(k,177) - lu(k,807) * b(k,171) - b(k,189) = b(k,189) - lu(k,808) * b(k,171) - b(k,201) = b(k,201) - lu(k,809) * b(k,171) - b(k,217) = b(k,217) - lu(k,810) * b(k,171) - b(k,222) = b(k,222) - lu(k,811) * b(k,171) - b(k,232) = b(k,232) - lu(k,812) * b(k,171) - b(k,200) = b(k,200) - lu(k,815) * b(k,172) - b(k,205) = b(k,205) - lu(k,816) * b(k,172) - b(k,222) = b(k,222) - lu(k,817) * b(k,172) - b(k,226) = b(k,226) - lu(k,818) * b(k,172) - b(k,227) = b(k,227) - lu(k,819) * b(k,172) - b(k,228) = b(k,228) - lu(k,820) * b(k,172) - b(k,229) = b(k,229) - lu(k,821) * b(k,172) - b(k,237) = b(k,237) - lu(k,822) * b(k,172) - b(k,239) = b(k,239) - lu(k,823) * b(k,172) - b(k,226) = b(k,226) - lu(k,825) * b(k,173) - b(k,229) = b(k,229) - lu(k,826) * b(k,173) - b(k,237) = b(k,237) - lu(k,827) * b(k,173) - b(k,221) = b(k,221) - lu(k,829) * b(k,174) - b(k,223) = b(k,223) - lu(k,830) * b(k,174) + b(k,236) = b(k,236) - lu(k,661) * b(k,156) + b(k,195) = b(k,195) - lu(k,663) * b(k,157) + b(k,198) = b(k,198) - lu(k,664) * b(k,157) + b(k,201) = b(k,201) - lu(k,665) * b(k,157) + b(k,202) = b(k,202) - lu(k,666) * b(k,157) + b(k,203) = b(k,203) - lu(k,667) * b(k,157) + b(k,217) = b(k,217) - lu(k,668) * b(k,157) + b(k,226) = b(k,226) - lu(k,669) * b(k,157) + b(k,229) = b(k,229) - lu(k,670) * b(k,157) + b(k,236) = b(k,236) - lu(k,671) * b(k,157) + b(k,165) = b(k,165) - lu(k,676) * b(k,158) + b(k,166) = b(k,166) - lu(k,677) * b(k,158) + b(k,168) = b(k,168) - lu(k,678) * b(k,158) + b(k,182) = b(k,182) - lu(k,679) * b(k,158) + b(k,191) = b(k,191) - lu(k,680) * b(k,158) + b(k,201) = b(k,201) - lu(k,681) * b(k,158) + b(k,210) = b(k,210) - lu(k,682) * b(k,158) + b(k,226) = b(k,226) - lu(k,683) * b(k,158) + b(k,236) = b(k,236) - lu(k,684) * b(k,158) + b(k,160) = b(k,160) - lu(k,687) * b(k,159) + b(k,181) = b(k,181) - lu(k,688) * b(k,159) + b(k,190) = b(k,190) - lu(k,689) * b(k,159) + b(k,195) = b(k,195) - lu(k,690) * b(k,159) + b(k,200) = b(k,200) - lu(k,691) * b(k,159) + b(k,216) = b(k,216) - lu(k,692) * b(k,159) + b(k,226) = b(k,226) - lu(k,693) * b(k,159) + b(k,229) = b(k,229) - lu(k,694) * b(k,159) + b(k,236) = b(k,236) - lu(k,695) * b(k,159) + b(k,200) = b(k,200) - lu(k,698) * b(k,160) + b(k,216) = b(k,216) - lu(k,699) * b(k,160) + b(k,226) = b(k,226) - lu(k,700) * b(k,160) + b(k,228) = b(k,228) - lu(k,701) * b(k,160) + b(k,230) = b(k,230) - lu(k,702) * b(k,160) + b(k,236) = b(k,236) - lu(k,703) * b(k,160) + b(k,217) = b(k,217) - lu(k,705) * b(k,161) + b(k,226) = b(k,226) - lu(k,706) * b(k,161) + b(k,238) = b(k,238) - lu(k,707) * b(k,161) + b(k,239) = b(k,239) - lu(k,708) * b(k,161) + b(k,207) = b(k,207) - lu(k,711) * b(k,162) + b(k,209) = b(k,209) - lu(k,712) * b(k,162) + b(k,214) = b(k,214) - lu(k,713) * b(k,162) + b(k,226) = b(k,226) - lu(k,714) * b(k,162) + b(k,229) = b(k,229) - lu(k,715) * b(k,162) + b(k,236) = b(k,236) - lu(k,716) * b(k,162) + b(k,165) = b(k,165) - lu(k,722) * b(k,163) + b(k,167) = b(k,167) - lu(k,723) * b(k,163) + b(k,168) = b(k,168) - lu(k,724) * b(k,163) + b(k,182) = b(k,182) - lu(k,725) * b(k,163) + b(k,191) = b(k,191) - lu(k,726) * b(k,163) + b(k,201) = b(k,201) - lu(k,727) * b(k,163) + b(k,210) = b(k,210) - lu(k,728) * b(k,163) + b(k,216) = b(k,216) - lu(k,729) * b(k,163) + b(k,226) = b(k,226) - lu(k,730) * b(k,163) + b(k,236) = b(k,236) - lu(k,731) * b(k,163) + b(k,219) = b(k,219) - lu(k,733) * b(k,164) + b(k,222) = b(k,222) - lu(k,734) * b(k,164) + b(k,226) = b(k,226) - lu(k,735) * b(k,164) + b(k,231) = b(k,231) - lu(k,736) * b(k,164) + b(k,232) = b(k,232) - lu(k,737) * b(k,164) + b(k,234) = b(k,234) - lu(k,738) * b(k,164) + b(k,191) = b(k,191) - lu(k,740) * b(k,165) + b(k,201) = b(k,201) - lu(k,741) * b(k,165) + b(k,228) = b(k,228) - lu(k,742) * b(k,165) + b(k,230) = b(k,230) - lu(k,743) * b(k,165) + b(k,236) = b(k,236) - lu(k,744) * b(k,165) + b(k,168) = b(k,168) - lu(k,751) * b(k,166) + b(k,182) = b(k,182) - lu(k,752) * b(k,166) + b(k,191) = b(k,191) - lu(k,753) * b(k,166) + b(k,201) = b(k,201) - lu(k,754) * b(k,166) + b(k,210) = b(k,210) - lu(k,755) * b(k,166) + b(k,226) = b(k,226) - lu(k,756) * b(k,166) + b(k,228) = b(k,228) - lu(k,757) * b(k,166) + b(k,230) = b(k,230) - lu(k,758) * b(k,166) + b(k,236) = b(k,236) - lu(k,759) * b(k,166) + b(k,168) = b(k,168) - lu(k,767) * b(k,167) + b(k,182) = b(k,182) - lu(k,768) * b(k,167) + b(k,191) = b(k,191) - lu(k,769) * b(k,167) + b(k,201) = b(k,201) - lu(k,770) * b(k,167) + b(k,210) = b(k,210) - lu(k,771) * b(k,167) + b(k,216) = b(k,216) - lu(k,772) * b(k,167) + b(k,226) = b(k,226) - lu(k,773) * b(k,167) + b(k,228) = b(k,228) - lu(k,774) * b(k,167) + b(k,230) = b(k,230) - lu(k,775) * b(k,167) + b(k,236) = b(k,236) - lu(k,776) * b(k,167) + b(k,201) = b(k,201) - lu(k,778) * b(k,168) + b(k,210) = b(k,210) - lu(k,779) * b(k,168) + b(k,226) = b(k,226) - lu(k,780) * b(k,168) + b(k,228) = b(k,228) - lu(k,781) * b(k,168) + b(k,230) = b(k,230) - lu(k,782) * b(k,168) + b(k,236) = b(k,236) - lu(k,783) * b(k,168) + b(k,238) = b(k,238) - lu(k,784) * b(k,168) + b(k,220) = b(k,220) - lu(k,787) * b(k,169) + b(k,221) = b(k,221) - lu(k,788) * b(k,169) + b(k,224) = b(k,224) - lu(k,789) * b(k,169) + b(k,226) = b(k,226) - lu(k,790) * b(k,169) + b(k,227) = b(k,227) - lu(k,791) * b(k,169) + b(k,231) = b(k,231) - lu(k,792) * b(k,169) + b(k,239) = b(k,239) - lu(k,793) * b(k,169) + b(k,202) = b(k,202) - lu(k,797) * b(k,170) + b(k,222) = b(k,222) - lu(k,798) * b(k,170) + b(k,226) = b(k,226) - lu(k,799) * b(k,170) + b(k,228) = b(k,228) - lu(k,800) * b(k,170) + b(k,229) = b(k,229) - lu(k,801) * b(k,170) + b(k,230) = b(k,230) - lu(k,802) * b(k,170) + b(k,236) = b(k,236) - lu(k,803) * b(k,170) + b(k,176) = b(k,176) - lu(k,805) * b(k,171) + b(k,177) = b(k,177) - lu(k,806) * b(k,171) + b(k,192) = b(k,192) - lu(k,807) * b(k,171) + b(k,201) = b(k,201) - lu(k,808) * b(k,171) + b(k,217) = b(k,217) - lu(k,809) * b(k,171) + b(k,222) = b(k,222) - lu(k,810) * b(k,171) + b(k,231) = b(k,231) - lu(k,811) * b(k,171) + b(k,200) = b(k,200) - lu(k,814) * b(k,172) + b(k,205) = b(k,205) - lu(k,815) * b(k,172) + b(k,222) = b(k,222) - lu(k,816) * b(k,172) + b(k,226) = b(k,226) - lu(k,817) * b(k,172) + b(k,228) = b(k,228) - lu(k,818) * b(k,172) + b(k,229) = b(k,229) - lu(k,819) * b(k,172) + b(k,230) = b(k,230) - lu(k,820) * b(k,172) + b(k,236) = b(k,236) - lu(k,821) * b(k,172) + b(k,239) = b(k,239) - lu(k,822) * b(k,172) + b(k,226) = b(k,226) - lu(k,824) * b(k,173) + b(k,229) = b(k,229) - lu(k,825) * b(k,173) + b(k,236) = b(k,236) - lu(k,826) * b(k,173) + b(k,221) = b(k,221) - lu(k,828) * b(k,174) + b(k,224) = b(k,224) - lu(k,829) * b(k,174) + b(k,225) = b(k,225) - lu(k,830) * b(k,174) b(k,226) = b(k,226) - lu(k,831) * b(k,174) - b(k,230) = b(k,230) - lu(k,832) * b(k,174) - b(k,232) = b(k,232) - lu(k,833) * b(k,174) - b(k,233) = b(k,233) - lu(k,834) * b(k,174) - b(k,239) = b(k,239) - lu(k,835) * b(k,174) - b(k,220) = b(k,220) - lu(k,838) * b(k,175) - b(k,224) = b(k,224) - lu(k,839) * b(k,175) - b(k,226) = b(k,226) - lu(k,840) * b(k,175) - b(k,232) = b(k,232) - lu(k,841) * b(k,175) - b(k,234) = b(k,234) - lu(k,842) * b(k,175) - b(k,239) = b(k,239) - lu(k,843) * b(k,175) - b(k,178) = b(k,178) - lu(k,846) * b(k,176) - b(k,189) = b(k,189) - lu(k,847) * b(k,176) - b(k,222) = b(k,222) - lu(k,848) * b(k,176) - b(k,227) = b(k,227) - lu(k,849) * b(k,176) - b(k,230) = b(k,230) - lu(k,850) * b(k,176) - b(k,232) = b(k,232) - lu(k,851) * b(k,176) - b(k,178) = b(k,178) - lu(k,854) * b(k,177) - b(k,189) = b(k,189) - lu(k,855) * b(k,177) - b(k,222) = b(k,222) - lu(k,856) * b(k,177) - b(k,227) = b(k,227) - lu(k,857) * b(k,177) - b(k,230) = b(k,230) - lu(k,858) * b(k,177) - b(k,232) = b(k,232) - lu(k,859) * b(k,177) - b(k,189) = b(k,189) - lu(k,866) * b(k,178) - b(k,201) = b(k,201) - lu(k,867) * b(k,178) - b(k,217) = b(k,217) - lu(k,868) * b(k,178) - b(k,222) = b(k,222) - lu(k,869) * b(k,178) - b(k,227) = b(k,227) - lu(k,870) * b(k,178) - b(k,230) = b(k,230) - lu(k,871) * b(k,178) - b(k,232) = b(k,232) - lu(k,872) * b(k,178) - b(k,183) = b(k,183) - lu(k,877) * b(k,179) - b(k,199) = b(k,199) - lu(k,878) * b(k,179) - b(k,201) = b(k,201) - lu(k,879) * b(k,179) - b(k,208) = b(k,208) - lu(k,880) * b(k,179) - b(k,209) = b(k,209) - lu(k,881) * b(k,179) - b(k,211) = b(k,211) - lu(k,882) * b(k,179) - b(k,212) = b(k,212) - lu(k,883) * b(k,179) - b(k,214) = b(k,214) - lu(k,884) * b(k,179) - b(k,216) = b(k,216) - lu(k,885) * b(k,179) - b(k,225) = b(k,225) - lu(k,886) * b(k,179) - b(k,226) = b(k,226) - lu(k,887) * b(k,179) - b(k,229) = b(k,229) - lu(k,888) * b(k,179) - b(k,235) = b(k,235) - lu(k,889) * b(k,179) - b(k,237) = b(k,237) - lu(k,890) * b(k,179) - b(k,238) = b(k,238) - lu(k,891) * b(k,179) + b(k,231) = b(k,231) - lu(k,832) * b(k,174) + b(k,234) = b(k,234) - lu(k,833) * b(k,174) + b(k,239) = b(k,239) - lu(k,834) * b(k,174) + b(k,220) = b(k,220) - lu(k,837) * b(k,175) + b(k,226) = b(k,226) - lu(k,838) * b(k,175) + b(k,227) = b(k,227) - lu(k,839) * b(k,175) + b(k,231) = b(k,231) - lu(k,840) * b(k,175) + b(k,233) = b(k,233) - lu(k,841) * b(k,175) + b(k,239) = b(k,239) - lu(k,842) * b(k,175) + b(k,178) = b(k,178) - lu(k,845) * b(k,176) + b(k,192) = b(k,192) - lu(k,846) * b(k,176) + b(k,222) = b(k,222) - lu(k,847) * b(k,176) + b(k,225) = b(k,225) - lu(k,848) * b(k,176) + b(k,230) = b(k,230) - lu(k,849) * b(k,176) + b(k,231) = b(k,231) - lu(k,850) * b(k,176) + b(k,178) = b(k,178) - lu(k,853) * b(k,177) + b(k,192) = b(k,192) - lu(k,854) * b(k,177) + b(k,222) = b(k,222) - lu(k,855) * b(k,177) + b(k,225) = b(k,225) - lu(k,856) * b(k,177) + b(k,230) = b(k,230) - lu(k,857) * b(k,177) + b(k,231) = b(k,231) - lu(k,858) * b(k,177) + b(k,192) = b(k,192) - lu(k,865) * b(k,178) + b(k,201) = b(k,201) - lu(k,866) * b(k,178) + b(k,217) = b(k,217) - lu(k,867) * b(k,178) + b(k,222) = b(k,222) - lu(k,868) * b(k,178) + b(k,225) = b(k,225) - lu(k,869) * b(k,178) + b(k,230) = b(k,230) - lu(k,870) * b(k,178) + b(k,231) = b(k,231) - lu(k,871) * b(k,178) + b(k,183) = b(k,183) - lu(k,876) * b(k,179) + b(k,199) = b(k,199) - lu(k,877) * b(k,179) + b(k,201) = b(k,201) - lu(k,878) * b(k,179) + b(k,208) = b(k,208) - lu(k,879) * b(k,179) + b(k,209) = b(k,209) - lu(k,880) * b(k,179) + b(k,211) = b(k,211) - lu(k,881) * b(k,179) + b(k,212) = b(k,212) - lu(k,882) * b(k,179) + b(k,214) = b(k,214) - lu(k,883) * b(k,179) + b(k,216) = b(k,216) - lu(k,884) * b(k,179) + b(k,226) = b(k,226) - lu(k,885) * b(k,179) + b(k,229) = b(k,229) - lu(k,886) * b(k,179) + b(k,232) = b(k,232) - lu(k,887) * b(k,179) + b(k,235) = b(k,235) - lu(k,888) * b(k,179) + b(k,236) = b(k,236) - lu(k,889) * b(k,179) + b(k,238) = b(k,238) - lu(k,890) * b(k,179) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -696,217 +696,217 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,210) = b(k,210) - lu(k,893) * b(k,180) - b(k,216) = b(k,216) - lu(k,894) * b(k,180) - b(k,226) = b(k,226) - lu(k,895) * b(k,180) - b(k,228) = b(k,228) - lu(k,896) * b(k,180) - b(k,229) = b(k,229) - lu(k,897) * b(k,180) - b(k,200) = b(k,200) - lu(k,902) * b(k,181) - b(k,222) = b(k,222) - lu(k,903) * b(k,181) - b(k,226) = b(k,226) - lu(k,904) * b(k,181) - b(k,227) = b(k,227) - lu(k,905) * b(k,181) - b(k,228) = b(k,228) - lu(k,906) * b(k,181) - b(k,229) = b(k,229) - lu(k,907) * b(k,181) - b(k,237) = b(k,237) - lu(k,908) * b(k,181) - b(k,238) = b(k,238) - lu(k,909) * b(k,181) - b(k,192) = b(k,192) - lu(k,911) * b(k,182) - b(k,201) = b(k,201) - lu(k,912) * b(k,182) - b(k,210) = b(k,210) - lu(k,913) * b(k,182) - b(k,226) = b(k,226) - lu(k,914) * b(k,182) - b(k,227) = b(k,227) - lu(k,915) * b(k,182) - b(k,228) = b(k,228) - lu(k,916) * b(k,182) - b(k,237) = b(k,237) - lu(k,917) * b(k,182) - b(k,238) = b(k,238) - lu(k,918) * b(k,182) - b(k,217) = b(k,217) - lu(k,920) * b(k,183) - b(k,226) = b(k,226) - lu(k,921) * b(k,183) - b(k,237) = b(k,237) - lu(k,922) * b(k,183) - b(k,239) = b(k,239) - lu(k,923) * b(k,183) - b(k,218) = b(k,218) - lu(k,926) * b(k,184) - b(k,225) = b(k,225) - lu(k,927) * b(k,184) - b(k,226) = b(k,226) - lu(k,928) * b(k,184) - b(k,231) = b(k,231) - lu(k,929) * b(k,184) - b(k,233) = b(k,233) - lu(k,930) * b(k,184) - b(k,236) = b(k,236) - lu(k,931) * b(k,184) - b(k,238) = b(k,238) - lu(k,932) * b(k,184) - b(k,239) = b(k,239) - lu(k,933) * b(k,184) - b(k,195) = b(k,195) - lu(k,936) * b(k,185) - b(k,200) = b(k,200) - lu(k,937) * b(k,185) - b(k,222) = b(k,222) - lu(k,938) * b(k,185) - b(k,226) = b(k,226) - lu(k,939) * b(k,185) - b(k,227) = b(k,227) - lu(k,940) * b(k,185) - b(k,228) = b(k,228) - lu(k,941) * b(k,185) - b(k,229) = b(k,229) - lu(k,942) * b(k,185) - b(k,237) = b(k,237) - lu(k,943) * b(k,185) - b(k,238) = b(k,238) - lu(k,944) * b(k,185) - b(k,239) = b(k,239) - lu(k,945) * b(k,185) - b(k,219) = b(k,219) - lu(k,948) * b(k,186) - b(k,226) = b(k,226) - lu(k,949) * b(k,186) - b(k,232) = b(k,232) - lu(k,950) * b(k,186) - b(k,237) = b(k,237) - lu(k,951) * b(k,186) - b(k,239) = b(k,239) - lu(k,952) * b(k,186) - b(k,220) = b(k,220) - lu(k,956) * b(k,187) - b(k,224) = b(k,224) - lu(k,957) * b(k,187) - b(k,225) = b(k,225) - lu(k,958) * b(k,187) - b(k,226) = b(k,226) - lu(k,959) * b(k,187) - b(k,228) = b(k,228) - lu(k,960) * b(k,187) - b(k,231) = b(k,231) - lu(k,961) * b(k,187) - b(k,232) = b(k,232) - lu(k,962) * b(k,187) - b(k,234) = b(k,234) - lu(k,963) * b(k,187) - b(k,239) = b(k,239) - lu(k,964) * b(k,187) + b(k,210) = b(k,210) - lu(k,892) * b(k,180) + b(k,216) = b(k,216) - lu(k,893) * b(k,180) + b(k,226) = b(k,226) - lu(k,894) * b(k,180) + b(k,228) = b(k,228) - lu(k,895) * b(k,180) + b(k,229) = b(k,229) - lu(k,896) * b(k,180) + b(k,200) = b(k,200) - lu(k,901) * b(k,181) + b(k,222) = b(k,222) - lu(k,902) * b(k,181) + b(k,226) = b(k,226) - lu(k,903) * b(k,181) + b(k,228) = b(k,228) - lu(k,904) * b(k,181) + b(k,229) = b(k,229) - lu(k,905) * b(k,181) + b(k,230) = b(k,230) - lu(k,906) * b(k,181) + b(k,236) = b(k,236) - lu(k,907) * b(k,181) + b(k,238) = b(k,238) - lu(k,908) * b(k,181) + b(k,191) = b(k,191) - lu(k,910) * b(k,182) + b(k,201) = b(k,201) - lu(k,911) * b(k,182) + b(k,210) = b(k,210) - lu(k,912) * b(k,182) + b(k,226) = b(k,226) - lu(k,913) * b(k,182) + b(k,228) = b(k,228) - lu(k,914) * b(k,182) + b(k,230) = b(k,230) - lu(k,915) * b(k,182) + b(k,236) = b(k,236) - lu(k,916) * b(k,182) + b(k,238) = b(k,238) - lu(k,917) * b(k,182) + b(k,217) = b(k,217) - lu(k,919) * b(k,183) + b(k,226) = b(k,226) - lu(k,920) * b(k,183) + b(k,236) = b(k,236) - lu(k,921) * b(k,183) + b(k,239) = b(k,239) - lu(k,922) * b(k,183) + b(k,218) = b(k,218) - lu(k,925) * b(k,184) + b(k,223) = b(k,223) - lu(k,926) * b(k,184) + b(k,226) = b(k,226) - lu(k,927) * b(k,184) + b(k,234) = b(k,234) - lu(k,928) * b(k,184) + b(k,235) = b(k,235) - lu(k,929) * b(k,184) + b(k,237) = b(k,237) - lu(k,930) * b(k,184) + b(k,238) = b(k,238) - lu(k,931) * b(k,184) + b(k,239) = b(k,239) - lu(k,932) * b(k,184) + b(k,195) = b(k,195) - lu(k,935) * b(k,185) + b(k,200) = b(k,200) - lu(k,936) * b(k,185) + b(k,222) = b(k,222) - lu(k,937) * b(k,185) + b(k,226) = b(k,226) - lu(k,938) * b(k,185) + b(k,228) = b(k,228) - lu(k,939) * b(k,185) + b(k,229) = b(k,229) - lu(k,940) * b(k,185) + b(k,230) = b(k,230) - lu(k,941) * b(k,185) + b(k,236) = b(k,236) - lu(k,942) * b(k,185) + b(k,238) = b(k,238) - lu(k,943) * b(k,185) + b(k,239) = b(k,239) - lu(k,944) * b(k,185) + b(k,219) = b(k,219) - lu(k,947) * b(k,186) + b(k,226) = b(k,226) - lu(k,948) * b(k,186) + b(k,231) = b(k,231) - lu(k,949) * b(k,186) + b(k,236) = b(k,236) - lu(k,950) * b(k,186) + b(k,239) = b(k,239) - lu(k,951) * b(k,186) + b(k,220) = b(k,220) - lu(k,955) * b(k,187) + b(k,226) = b(k,226) - lu(k,956) * b(k,187) + b(k,227) = b(k,227) - lu(k,957) * b(k,187) + b(k,228) = b(k,228) - lu(k,958) * b(k,187) + b(k,231) = b(k,231) - lu(k,959) * b(k,187) + b(k,233) = b(k,233) - lu(k,960) * b(k,187) + b(k,235) = b(k,235) - lu(k,961) * b(k,187) + b(k,237) = b(k,237) - lu(k,962) * b(k,187) + b(k,239) = b(k,239) - lu(k,963) * b(k,187) + b(k,190) = b(k,190) - lu(k,974) * b(k,188) b(k,191) = b(k,191) - lu(k,975) * b(k,188) - b(k,192) = b(k,192) - lu(k,976) * b(k,188) - b(k,193) = b(k,193) - lu(k,977) * b(k,188) - b(k,194) = b(k,194) - lu(k,978) * b(k,188) - b(k,195) = b(k,195) - lu(k,979) * b(k,188) - b(k,197) = b(k,197) - lu(k,980) * b(k,188) - b(k,198) = b(k,198) - lu(k,981) * b(k,188) - b(k,201) = b(k,201) - lu(k,982) * b(k,188) - b(k,206) = b(k,206) - lu(k,983) * b(k,188) - b(k,210) = b(k,210) - lu(k,984) * b(k,188) - b(k,216) = b(k,216) - lu(k,985) * b(k,188) - b(k,217) = b(k,217) - lu(k,986) * b(k,188) - b(k,225) = b(k,225) - lu(k,987) * b(k,188) - b(k,226) = b(k,226) - lu(k,988) * b(k,188) - b(k,229) = b(k,229) - lu(k,989) * b(k,188) - b(k,235) = b(k,235) - lu(k,990) * b(k,188) - b(k,237) = b(k,237) - lu(k,991) * b(k,188) - b(k,239) = b(k,239) - lu(k,992) * b(k,188) - b(k,201) = b(k,201) - lu(k,1000) * b(k,189) - b(k,217) = b(k,217) - lu(k,1001) * b(k,189) - b(k,222) = b(k,222) - lu(k,1002) * b(k,189) - b(k,226) = b(k,226) - lu(k,1003) * b(k,189) - b(k,227) = b(k,227) - lu(k,1004) * b(k,189) - b(k,228) = b(k,228) - lu(k,1005) * b(k,189) - b(k,230) = b(k,230) - lu(k,1006) * b(k,189) - b(k,232) = b(k,232) - lu(k,1007) * b(k,189) - b(k,233) = b(k,233) - lu(k,1008) * b(k,189) - b(k,191) = b(k,191) - lu(k,1019) * b(k,190) - b(k,192) = b(k,192) - lu(k,1020) * b(k,190) - b(k,193) = b(k,193) - lu(k,1021) * b(k,190) - b(k,194) = b(k,194) - lu(k,1022) * b(k,190) - b(k,195) = b(k,195) - lu(k,1023) * b(k,190) - b(k,197) = b(k,197) - lu(k,1024) * b(k,190) - b(k,198) = b(k,198) - lu(k,1025) * b(k,190) - b(k,201) = b(k,201) - lu(k,1026) * b(k,190) - b(k,206) = b(k,206) - lu(k,1027) * b(k,190) - b(k,210) = b(k,210) - lu(k,1028) * b(k,190) - b(k,216) = b(k,216) - lu(k,1029) * b(k,190) - b(k,217) = b(k,217) - lu(k,1030) * b(k,190) - b(k,225) = b(k,225) - lu(k,1031) * b(k,190) - b(k,226) = b(k,226) - lu(k,1032) * b(k,190) - b(k,229) = b(k,229) - lu(k,1033) * b(k,190) - b(k,235) = b(k,235) - lu(k,1034) * b(k,190) - b(k,237) = b(k,237) - lu(k,1035) * b(k,190) - b(k,239) = b(k,239) - lu(k,1036) * b(k,190) - b(k,195) = b(k,195) - lu(k,1043) * b(k,191) - b(k,200) = b(k,200) - lu(k,1044) * b(k,191) - b(k,216) = b(k,216) - lu(k,1045) * b(k,191) - b(k,222) = b(k,222) - lu(k,1046) * b(k,191) - b(k,226) = b(k,226) - lu(k,1047) * b(k,191) - b(k,227) = b(k,227) - lu(k,1048) * b(k,191) - b(k,228) = b(k,228) - lu(k,1049) * b(k,191) - b(k,229) = b(k,229) - lu(k,1050) * b(k,191) - b(k,237) = b(k,237) - lu(k,1051) * b(k,191) - b(k,238) = b(k,238) - lu(k,1052) * b(k,191) - b(k,201) = b(k,201) - lu(k,1055) * b(k,192) - b(k,217) = b(k,217) - lu(k,1056) * b(k,192) - b(k,226) = b(k,226) - lu(k,1057) * b(k,192) - b(k,237) = b(k,237) - lu(k,1058) * b(k,192) - b(k,194) = b(k,194) - lu(k,1063) * b(k,193) - b(k,195) = b(k,195) - lu(k,1064) * b(k,193) - b(k,226) = b(k,226) - lu(k,1065) * b(k,193) - b(k,227) = b(k,227) - lu(k,1066) * b(k,193) - b(k,228) = b(k,228) - lu(k,1067) * b(k,193) - b(k,229) = b(k,229) - lu(k,1068) * b(k,193) - b(k,231) = b(k,231) - lu(k,1069) * b(k,193) - b(k,237) = b(k,237) - lu(k,1070) * b(k,193) - b(k,238) = b(k,238) - lu(k,1071) * b(k,193) - b(k,197) = b(k,197) - lu(k,1073) * b(k,194) - b(k,198) = b(k,198) - lu(k,1074) * b(k,194) - b(k,201) = b(k,201) - lu(k,1075) * b(k,194) - b(k,203) = b(k,203) - lu(k,1076) * b(k,194) - b(k,225) = b(k,225) - lu(k,1077) * b(k,194) - b(k,226) = b(k,226) - lu(k,1078) * b(k,194) - b(k,237) = b(k,237) - lu(k,1079) * b(k,194) - b(k,206) = b(k,206) - lu(k,1081) * b(k,195) - b(k,216) = b(k,216) - lu(k,1082) * b(k,195) - b(k,226) = b(k,226) - lu(k,1083) * b(k,195) - b(k,238) = b(k,238) - lu(k,1084) * b(k,195) - b(k,239) = b(k,239) - lu(k,1085) * b(k,195) - b(k,201) = b(k,201) - lu(k,1091) * b(k,196) - b(k,210) = b(k,210) - lu(k,1092) * b(k,196) - b(k,216) = b(k,216) - lu(k,1093) * b(k,196) - b(k,217) = b(k,217) - lu(k,1094) * b(k,196) - b(k,226) = b(k,226) - lu(k,1095) * b(k,196) - b(k,227) = b(k,227) - lu(k,1096) * b(k,196) - b(k,228) = b(k,228) - lu(k,1097) * b(k,196) - b(k,229) = b(k,229) - lu(k,1098) * b(k,196) - b(k,231) = b(k,231) - lu(k,1099) * b(k,196) - b(k,237) = b(k,237) - lu(k,1100) * b(k,196) - b(k,238) = b(k,238) - lu(k,1101) * b(k,196) - b(k,198) = b(k,198) - lu(k,1107) * b(k,197) - b(k,201) = b(k,201) - lu(k,1108) * b(k,197) - b(k,203) = b(k,203) - lu(k,1109) * b(k,197) - b(k,225) = b(k,225) - lu(k,1110) * b(k,197) - b(k,226) = b(k,226) - lu(k,1111) * b(k,197) - b(k,227) = b(k,227) - lu(k,1112) * b(k,197) - b(k,228) = b(k,228) - lu(k,1113) * b(k,197) - b(k,229) = b(k,229) - lu(k,1114) * b(k,197) - b(k,231) = b(k,231) - lu(k,1115) * b(k,197) - b(k,237) = b(k,237) - lu(k,1116) * b(k,197) - b(k,238) = b(k,238) - lu(k,1117) * b(k,197) - b(k,201) = b(k,201) - lu(k,1120) * b(k,198) - b(k,206) = b(k,206) - lu(k,1121) * b(k,198) - b(k,216) = b(k,216) - lu(k,1122) * b(k,198) - b(k,217) = b(k,217) - lu(k,1123) * b(k,198) - b(k,226) = b(k,226) - lu(k,1124) * b(k,198) - b(k,229) = b(k,229) - lu(k,1125) * b(k,198) - b(k,237) = b(k,237) - lu(k,1126) * b(k,198) - b(k,238) = b(k,238) - lu(k,1127) * b(k,198) - b(k,239) = b(k,239) - lu(k,1128) * b(k,198) - b(k,200) = b(k,200) - lu(k,1134) * b(k,199) - b(k,201) = b(k,201) - lu(k,1135) * b(k,199) - b(k,205) = b(k,205) - lu(k,1136) * b(k,199) - b(k,210) = b(k,210) - lu(k,1137) * b(k,199) - b(k,216) = b(k,216) - lu(k,1138) * b(k,199) - b(k,217) = b(k,217) - lu(k,1139) * b(k,199) - b(k,222) = b(k,222) - lu(k,1140) * b(k,199) - b(k,225) = b(k,225) - lu(k,1141) * b(k,199) - b(k,226) = b(k,226) - lu(k,1142) * b(k,199) - b(k,227) = b(k,227) - lu(k,1143) * b(k,199) - b(k,228) = b(k,228) - lu(k,1144) * b(k,199) - b(k,229) = b(k,229) - lu(k,1145) * b(k,199) + b(k,193) = b(k,193) - lu(k,976) * b(k,188) + b(k,194) = b(k,194) - lu(k,977) * b(k,188) + b(k,195) = b(k,195) - lu(k,978) * b(k,188) + b(k,197) = b(k,197) - lu(k,979) * b(k,188) + b(k,198) = b(k,198) - lu(k,980) * b(k,188) + b(k,201) = b(k,201) - lu(k,981) * b(k,188) + b(k,206) = b(k,206) - lu(k,982) * b(k,188) + b(k,210) = b(k,210) - lu(k,983) * b(k,188) + b(k,216) = b(k,216) - lu(k,984) * b(k,188) + b(k,217) = b(k,217) - lu(k,985) * b(k,188) + b(k,226) = b(k,226) - lu(k,986) * b(k,188) + b(k,229) = b(k,229) - lu(k,987) * b(k,188) + b(k,232) = b(k,232) - lu(k,988) * b(k,188) + b(k,235) = b(k,235) - lu(k,989) * b(k,188) + b(k,236) = b(k,236) - lu(k,990) * b(k,188) + b(k,239) = b(k,239) - lu(k,991) * b(k,188) + b(k,190) = b(k,190) - lu(k,1002) * b(k,189) + b(k,191) = b(k,191) - lu(k,1003) * b(k,189) + b(k,193) = b(k,193) - lu(k,1004) * b(k,189) + b(k,194) = b(k,194) - lu(k,1005) * b(k,189) + b(k,195) = b(k,195) - lu(k,1006) * b(k,189) + b(k,197) = b(k,197) - lu(k,1007) * b(k,189) + b(k,198) = b(k,198) - lu(k,1008) * b(k,189) + b(k,201) = b(k,201) - lu(k,1009) * b(k,189) + b(k,206) = b(k,206) - lu(k,1010) * b(k,189) + b(k,210) = b(k,210) - lu(k,1011) * b(k,189) + b(k,216) = b(k,216) - lu(k,1012) * b(k,189) + b(k,217) = b(k,217) - lu(k,1013) * b(k,189) + b(k,226) = b(k,226) - lu(k,1014) * b(k,189) + b(k,229) = b(k,229) - lu(k,1015) * b(k,189) + b(k,232) = b(k,232) - lu(k,1016) * b(k,189) + b(k,235) = b(k,235) - lu(k,1017) * b(k,189) + b(k,236) = b(k,236) - lu(k,1018) * b(k,189) + b(k,239) = b(k,239) - lu(k,1019) * b(k,189) + b(k,195) = b(k,195) - lu(k,1026) * b(k,190) + b(k,200) = b(k,200) - lu(k,1027) * b(k,190) + b(k,216) = b(k,216) - lu(k,1028) * b(k,190) + b(k,222) = b(k,222) - lu(k,1029) * b(k,190) + b(k,226) = b(k,226) - lu(k,1030) * b(k,190) + b(k,228) = b(k,228) - lu(k,1031) * b(k,190) + b(k,229) = b(k,229) - lu(k,1032) * b(k,190) + b(k,230) = b(k,230) - lu(k,1033) * b(k,190) + b(k,236) = b(k,236) - lu(k,1034) * b(k,190) + b(k,238) = b(k,238) - lu(k,1035) * b(k,190) + b(k,201) = b(k,201) - lu(k,1038) * b(k,191) + b(k,217) = b(k,217) - lu(k,1039) * b(k,191) + b(k,226) = b(k,226) - lu(k,1040) * b(k,191) + b(k,236) = b(k,236) - lu(k,1041) * b(k,191) + b(k,201) = b(k,201) - lu(k,1049) * b(k,192) + b(k,217) = b(k,217) - lu(k,1050) * b(k,192) + b(k,222) = b(k,222) - lu(k,1051) * b(k,192) + b(k,225) = b(k,225) - lu(k,1052) * b(k,192) + b(k,226) = b(k,226) - lu(k,1053) * b(k,192) + b(k,228) = b(k,228) - lu(k,1054) * b(k,192) + b(k,230) = b(k,230) - lu(k,1055) * b(k,192) + b(k,231) = b(k,231) - lu(k,1056) * b(k,192) + b(k,234) = b(k,234) - lu(k,1057) * b(k,192) + b(k,194) = b(k,194) - lu(k,1062) * b(k,193) + b(k,195) = b(k,195) - lu(k,1063) * b(k,193) + b(k,226) = b(k,226) - lu(k,1064) * b(k,193) + b(k,228) = b(k,228) - lu(k,1065) * b(k,193) + b(k,229) = b(k,229) - lu(k,1066) * b(k,193) + b(k,230) = b(k,230) - lu(k,1067) * b(k,193) + b(k,236) = b(k,236) - lu(k,1068) * b(k,193) + b(k,237) = b(k,237) - lu(k,1069) * b(k,193) + b(k,238) = b(k,238) - lu(k,1070) * b(k,193) + b(k,197) = b(k,197) - lu(k,1072) * b(k,194) + b(k,198) = b(k,198) - lu(k,1073) * b(k,194) + b(k,201) = b(k,201) - lu(k,1074) * b(k,194) + b(k,203) = b(k,203) - lu(k,1075) * b(k,194) + b(k,226) = b(k,226) - lu(k,1076) * b(k,194) + b(k,235) = b(k,235) - lu(k,1077) * b(k,194) + b(k,236) = b(k,236) - lu(k,1078) * b(k,194) + b(k,206) = b(k,206) - lu(k,1080) * b(k,195) + b(k,216) = b(k,216) - lu(k,1081) * b(k,195) + b(k,226) = b(k,226) - lu(k,1082) * b(k,195) + b(k,238) = b(k,238) - lu(k,1083) * b(k,195) + b(k,239) = b(k,239) - lu(k,1084) * b(k,195) + b(k,201) = b(k,201) - lu(k,1090) * b(k,196) + b(k,210) = b(k,210) - lu(k,1091) * b(k,196) + b(k,216) = b(k,216) - lu(k,1092) * b(k,196) + b(k,217) = b(k,217) - lu(k,1093) * b(k,196) + b(k,226) = b(k,226) - lu(k,1094) * b(k,196) + b(k,228) = b(k,228) - lu(k,1095) * b(k,196) + b(k,229) = b(k,229) - lu(k,1096) * b(k,196) + b(k,230) = b(k,230) - lu(k,1097) * b(k,196) + b(k,236) = b(k,236) - lu(k,1098) * b(k,196) + b(k,237) = b(k,237) - lu(k,1099) * b(k,196) + b(k,238) = b(k,238) - lu(k,1100) * b(k,196) + b(k,198) = b(k,198) - lu(k,1106) * b(k,197) + b(k,201) = b(k,201) - lu(k,1107) * b(k,197) + b(k,203) = b(k,203) - lu(k,1108) * b(k,197) + b(k,226) = b(k,226) - lu(k,1109) * b(k,197) + b(k,228) = b(k,228) - lu(k,1110) * b(k,197) + b(k,229) = b(k,229) - lu(k,1111) * b(k,197) + b(k,230) = b(k,230) - lu(k,1112) * b(k,197) + b(k,235) = b(k,235) - lu(k,1113) * b(k,197) + b(k,236) = b(k,236) - lu(k,1114) * b(k,197) + b(k,237) = b(k,237) - lu(k,1115) * b(k,197) + b(k,238) = b(k,238) - lu(k,1116) * b(k,197) + b(k,201) = b(k,201) - lu(k,1119) * b(k,198) + b(k,206) = b(k,206) - lu(k,1120) * b(k,198) + b(k,216) = b(k,216) - lu(k,1121) * b(k,198) + b(k,217) = b(k,217) - lu(k,1122) * b(k,198) + b(k,226) = b(k,226) - lu(k,1123) * b(k,198) + b(k,229) = b(k,229) - lu(k,1124) * b(k,198) + b(k,236) = b(k,236) - lu(k,1125) * b(k,198) + b(k,238) = b(k,238) - lu(k,1126) * b(k,198) + b(k,239) = b(k,239) - lu(k,1127) * b(k,198) + b(k,200) = b(k,200) - lu(k,1133) * b(k,199) + b(k,201) = b(k,201) - lu(k,1134) * b(k,199) + b(k,205) = b(k,205) - lu(k,1135) * b(k,199) + b(k,210) = b(k,210) - lu(k,1136) * b(k,199) + b(k,216) = b(k,216) - lu(k,1137) * b(k,199) + b(k,217) = b(k,217) - lu(k,1138) * b(k,199) + b(k,222) = b(k,222) - lu(k,1139) * b(k,199) + b(k,223) = b(k,223) - lu(k,1140) * b(k,199) + b(k,226) = b(k,226) - lu(k,1141) * b(k,199) + b(k,228) = b(k,228) - lu(k,1142) * b(k,199) + b(k,229) = b(k,229) - lu(k,1143) * b(k,199) + b(k,230) = b(k,230) - lu(k,1144) * b(k,199) + b(k,232) = b(k,232) - lu(k,1145) * b(k,199) b(k,235) = b(k,235) - lu(k,1146) * b(k,199) b(k,236) = b(k,236) - lu(k,1147) * b(k,199) - b(k,237) = b(k,237) - lu(k,1148) * b(k,199) - b(k,238) = b(k,238) - lu(k,1149) * b(k,199) - b(k,239) = b(k,239) - lu(k,1150) * b(k,199) - b(k,201) = b(k,201) - lu(k,1152) * b(k,200) - b(k,216) = b(k,216) - lu(k,1153) * b(k,200) - b(k,225) = b(k,225) - lu(k,1154) * b(k,200) - b(k,226) = b(k,226) - lu(k,1155) * b(k,200) - b(k,231) = b(k,231) - lu(k,1156) * b(k,200) - b(k,237) = b(k,237) - lu(k,1157) * b(k,200) - b(k,238) = b(k,238) - lu(k,1158) * b(k,200) - b(k,239) = b(k,239) - lu(k,1159) * b(k,200) - b(k,217) = b(k,217) - lu(k,1161) * b(k,201) - b(k,226) = b(k,226) - lu(k,1162) * b(k,201) - b(k,237) = b(k,237) - lu(k,1163) * b(k,201) - b(k,217) = b(k,217) - lu(k,1167) * b(k,202) - b(k,226) = b(k,226) - lu(k,1168) * b(k,202) - b(k,229) = b(k,229) - lu(k,1169) * b(k,202) - b(k,237) = b(k,237) - lu(k,1170) * b(k,202) - b(k,206) = b(k,206) - lu(k,1179) * b(k,203) - b(k,216) = b(k,216) - lu(k,1180) * b(k,203) - b(k,217) = b(k,217) - lu(k,1181) * b(k,203) - b(k,226) = b(k,226) - lu(k,1182) * b(k,203) - b(k,227) = b(k,227) - lu(k,1183) * b(k,203) - b(k,228) = b(k,228) - lu(k,1184) * b(k,203) - b(k,229) = b(k,229) - lu(k,1185) * b(k,203) - b(k,231) = b(k,231) - lu(k,1186) * b(k,203) - b(k,237) = b(k,237) - lu(k,1187) * b(k,203) - b(k,238) = b(k,238) - lu(k,1188) * b(k,203) - b(k,239) = b(k,239) - lu(k,1189) * b(k,203) + b(k,238) = b(k,238) - lu(k,1148) * b(k,199) + b(k,239) = b(k,239) - lu(k,1149) * b(k,199) + b(k,201) = b(k,201) - lu(k,1151) * b(k,200) + b(k,216) = b(k,216) - lu(k,1152) * b(k,200) + b(k,226) = b(k,226) - lu(k,1153) * b(k,200) + b(k,235) = b(k,235) - lu(k,1154) * b(k,200) + b(k,236) = b(k,236) - lu(k,1155) * b(k,200) + b(k,237) = b(k,237) - lu(k,1156) * b(k,200) + b(k,238) = b(k,238) - lu(k,1157) * b(k,200) + b(k,239) = b(k,239) - lu(k,1158) * b(k,200) + b(k,217) = b(k,217) - lu(k,1160) * b(k,201) + b(k,226) = b(k,226) - lu(k,1161) * b(k,201) + b(k,236) = b(k,236) - lu(k,1162) * b(k,201) + b(k,217) = b(k,217) - lu(k,1166) * b(k,202) + b(k,226) = b(k,226) - lu(k,1167) * b(k,202) + b(k,229) = b(k,229) - lu(k,1168) * b(k,202) + b(k,236) = b(k,236) - lu(k,1169) * b(k,202) + b(k,206) = b(k,206) - lu(k,1178) * b(k,203) + b(k,216) = b(k,216) - lu(k,1179) * b(k,203) + b(k,217) = b(k,217) - lu(k,1180) * b(k,203) + b(k,226) = b(k,226) - lu(k,1181) * b(k,203) + b(k,228) = b(k,228) - lu(k,1182) * b(k,203) + b(k,229) = b(k,229) - lu(k,1183) * b(k,203) + b(k,230) = b(k,230) - lu(k,1184) * b(k,203) + b(k,236) = b(k,236) - lu(k,1185) * b(k,203) + b(k,237) = b(k,237) - lu(k,1186) * b(k,203) + b(k,238) = b(k,238) - lu(k,1187) * b(k,203) + b(k,239) = b(k,239) - lu(k,1188) * b(k,203) end do end subroutine lu_slv04 subroutine lu_slv05( avec_len, lu, b ) @@ -927,210 +927,210 @@ subroutine lu_slv05( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,205) = b(k,205) - lu(k,1196) * b(k,204) - b(k,206) = b(k,206) - lu(k,1197) * b(k,204) - b(k,216) = b(k,216) - lu(k,1198) * b(k,204) - b(k,217) = b(k,217) - lu(k,1199) * b(k,204) - b(k,225) = b(k,225) - lu(k,1200) * b(k,204) - b(k,226) = b(k,226) - lu(k,1201) * b(k,204) - b(k,228) = b(k,228) - lu(k,1202) * b(k,204) - b(k,229) = b(k,229) - lu(k,1203) * b(k,204) - b(k,231) = b(k,231) - lu(k,1204) * b(k,204) - b(k,237) = b(k,237) - lu(k,1205) * b(k,204) - b(k,238) = b(k,238) - lu(k,1206) * b(k,204) - b(k,239) = b(k,239) - lu(k,1207) * b(k,204) - b(k,210) = b(k,210) - lu(k,1209) * b(k,205) - b(k,216) = b(k,216) - lu(k,1210) * b(k,205) - b(k,226) = b(k,226) - lu(k,1211) * b(k,205) - b(k,229) = b(k,229) - lu(k,1212) * b(k,205) - b(k,237) = b(k,237) - lu(k,1213) * b(k,205) - b(k,210) = b(k,210) - lu(k,1218) * b(k,206) - b(k,216) = b(k,216) - lu(k,1219) * b(k,206) - b(k,226) = b(k,226) - lu(k,1220) * b(k,206) - b(k,227) = b(k,227) - lu(k,1221) * b(k,206) - b(k,228) = b(k,228) - lu(k,1222) * b(k,206) - b(k,229) = b(k,229) - lu(k,1223) * b(k,206) - b(k,237) = b(k,237) - lu(k,1224) * b(k,206) - b(k,238) = b(k,238) - lu(k,1225) * b(k,206) - b(k,239) = b(k,239) - lu(k,1226) * b(k,206) - b(k,210) = b(k,210) - lu(k,1234) * b(k,207) - b(k,216) = b(k,216) - lu(k,1235) * b(k,207) - b(k,217) = b(k,217) - lu(k,1236) * b(k,207) - b(k,225) = b(k,225) - lu(k,1237) * b(k,207) - b(k,226) = b(k,226) - lu(k,1238) * b(k,207) - b(k,227) = b(k,227) - lu(k,1239) * b(k,207) - b(k,228) = b(k,228) - lu(k,1240) * b(k,207) - b(k,229) = b(k,229) - lu(k,1241) * b(k,207) - b(k,237) = b(k,237) - lu(k,1242) * b(k,207) - b(k,238) = b(k,238) - lu(k,1243) * b(k,207) - b(k,209) = b(k,209) - lu(k,1254) * b(k,208) - b(k,210) = b(k,210) - lu(k,1255) * b(k,208) - b(k,214) = b(k,214) - lu(k,1256) * b(k,208) - b(k,216) = b(k,216) - lu(k,1257) * b(k,208) - b(k,217) = b(k,217) - lu(k,1258) * b(k,208) - b(k,225) = b(k,225) - lu(k,1259) * b(k,208) - b(k,226) = b(k,226) - lu(k,1260) * b(k,208) - b(k,227) = b(k,227) - lu(k,1261) * b(k,208) - b(k,228) = b(k,228) - lu(k,1262) * b(k,208) - b(k,229) = b(k,229) - lu(k,1263) * b(k,208) - b(k,231) = b(k,231) - lu(k,1264) * b(k,208) - b(k,237) = b(k,237) - lu(k,1265) * b(k,208) - b(k,238) = b(k,238) - lu(k,1266) * b(k,208) - b(k,210) = b(k,210) - lu(k,1270) * b(k,209) - b(k,213) = b(k,213) - lu(k,1271) * b(k,209) - b(k,215) = b(k,215) - lu(k,1272) * b(k,209) - b(k,216) = b(k,216) - lu(k,1273) * b(k,209) - b(k,217) = b(k,217) - lu(k,1274) * b(k,209) - b(k,226) = b(k,226) - lu(k,1275) * b(k,209) - b(k,229) = b(k,229) - lu(k,1276) * b(k,209) - b(k,235) = b(k,235) - lu(k,1277) * b(k,209) - b(k,237) = b(k,237) - lu(k,1278) * b(k,209) - b(k,239) = b(k,239) - lu(k,1279) * b(k,209) - b(k,216) = b(k,216) - lu(k,1282) * b(k,210) - b(k,217) = b(k,217) - lu(k,1283) * b(k,210) - b(k,225) = b(k,225) - lu(k,1284) * b(k,210) - b(k,226) = b(k,226) - lu(k,1285) * b(k,210) - b(k,231) = b(k,231) - lu(k,1286) * b(k,210) - b(k,237) = b(k,237) - lu(k,1287) * b(k,210) - b(k,239) = b(k,239) - lu(k,1288) * b(k,210) - b(k,213) = b(k,213) - lu(k,1300) * b(k,211) - b(k,214) = b(k,214) - lu(k,1301) * b(k,211) - b(k,215) = b(k,215) - lu(k,1302) * b(k,211) - b(k,216) = b(k,216) - lu(k,1303) * b(k,211) - b(k,217) = b(k,217) - lu(k,1304) * b(k,211) - b(k,225) = b(k,225) - lu(k,1305) * b(k,211) - b(k,226) = b(k,226) - lu(k,1306) * b(k,211) - b(k,227) = b(k,227) - lu(k,1307) * b(k,211) - b(k,228) = b(k,228) - lu(k,1308) * b(k,211) - b(k,229) = b(k,229) - lu(k,1309) * b(k,211) - b(k,231) = b(k,231) - lu(k,1310) * b(k,211) - b(k,235) = b(k,235) - lu(k,1311) * b(k,211) - b(k,237) = b(k,237) - lu(k,1312) * b(k,211) - b(k,238) = b(k,238) - lu(k,1313) * b(k,211) - b(k,239) = b(k,239) - lu(k,1314) * b(k,211) - b(k,213) = b(k,213) - lu(k,1333) * b(k,212) - b(k,214) = b(k,214) - lu(k,1334) * b(k,212) - b(k,215) = b(k,215) - lu(k,1335) * b(k,212) - b(k,216) = b(k,216) - lu(k,1336) * b(k,212) - b(k,217) = b(k,217) - lu(k,1337) * b(k,212) - b(k,225) = b(k,225) - lu(k,1338) * b(k,212) - b(k,226) = b(k,226) - lu(k,1339) * b(k,212) - b(k,227) = b(k,227) - lu(k,1340) * b(k,212) - b(k,228) = b(k,228) - lu(k,1341) * b(k,212) - b(k,229) = b(k,229) - lu(k,1342) * b(k,212) - b(k,231) = b(k,231) - lu(k,1343) * b(k,212) - b(k,235) = b(k,235) - lu(k,1344) * b(k,212) - b(k,237) = b(k,237) - lu(k,1345) * b(k,212) - b(k,238) = b(k,238) - lu(k,1346) * b(k,212) - b(k,239) = b(k,239) - lu(k,1347) * b(k,212) - b(k,215) = b(k,215) - lu(k,1357) * b(k,213) - b(k,216) = b(k,216) - lu(k,1358) * b(k,213) - b(k,217) = b(k,217) - lu(k,1359) * b(k,213) - b(k,225) = b(k,225) - lu(k,1360) * b(k,213) - b(k,226) = b(k,226) - lu(k,1361) * b(k,213) - b(k,227) = b(k,227) - lu(k,1362) * b(k,213) - b(k,228) = b(k,228) - lu(k,1363) * b(k,213) - b(k,229) = b(k,229) - lu(k,1364) * b(k,213) - b(k,231) = b(k,231) - lu(k,1365) * b(k,213) - b(k,237) = b(k,237) - lu(k,1366) * b(k,213) - b(k,238) = b(k,238) - lu(k,1367) * b(k,213) - b(k,239) = b(k,239) - lu(k,1368) * b(k,213) - b(k,215) = b(k,215) - lu(k,1377) * b(k,214) - b(k,216) = b(k,216) - lu(k,1378) * b(k,214) - b(k,217) = b(k,217) - lu(k,1379) * b(k,214) - b(k,222) = b(k,222) - lu(k,1380) * b(k,214) - b(k,225) = b(k,225) - lu(k,1381) * b(k,214) - b(k,226) = b(k,226) - lu(k,1382) * b(k,214) - b(k,227) = b(k,227) - lu(k,1383) * b(k,214) - b(k,228) = b(k,228) - lu(k,1384) * b(k,214) - b(k,229) = b(k,229) - lu(k,1385) * b(k,214) - b(k,231) = b(k,231) - lu(k,1386) * b(k,214) - b(k,235) = b(k,235) - lu(k,1387) * b(k,214) - b(k,236) = b(k,236) - lu(k,1388) * b(k,214) - b(k,237) = b(k,237) - lu(k,1389) * b(k,214) - b(k,238) = b(k,238) - lu(k,1390) * b(k,214) - b(k,239) = b(k,239) - lu(k,1391) * b(k,214) - b(k,216) = b(k,216) - lu(k,1398) * b(k,215) - b(k,217) = b(k,217) - lu(k,1399) * b(k,215) - b(k,225) = b(k,225) - lu(k,1400) * b(k,215) - b(k,226) = b(k,226) - lu(k,1401) * b(k,215) - b(k,227) = b(k,227) - lu(k,1402) * b(k,215) - b(k,228) = b(k,228) - lu(k,1403) * b(k,215) - b(k,229) = b(k,229) - lu(k,1404) * b(k,215) - b(k,231) = b(k,231) - lu(k,1405) * b(k,215) - b(k,235) = b(k,235) - lu(k,1406) * b(k,215) - b(k,237) = b(k,237) - lu(k,1407) * b(k,215) - b(k,238) = b(k,238) - lu(k,1408) * b(k,215) - b(k,239) = b(k,239) - lu(k,1409) * b(k,215) - b(k,217) = b(k,217) - lu(k,1429) * b(k,216) - b(k,222) = b(k,222) - lu(k,1430) * b(k,216) - b(k,225) = b(k,225) - lu(k,1431) * b(k,216) - b(k,226) = b(k,226) - lu(k,1432) * b(k,216) - b(k,227) = b(k,227) - lu(k,1433) * b(k,216) - b(k,228) = b(k,228) - lu(k,1434) * b(k,216) - b(k,229) = b(k,229) - lu(k,1435) * b(k,216) - b(k,231) = b(k,231) - lu(k,1436) * b(k,216) - b(k,235) = b(k,235) - lu(k,1437) * b(k,216) - b(k,236) = b(k,236) - lu(k,1438) * b(k,216) - b(k,237) = b(k,237) - lu(k,1439) * b(k,216) - b(k,238) = b(k,238) - lu(k,1440) * b(k,216) - b(k,239) = b(k,239) - lu(k,1441) * b(k,216) - b(k,222) = b(k,222) - lu(k,1451) * b(k,217) + b(k,205) = b(k,205) - lu(k,1195) * b(k,204) + b(k,206) = b(k,206) - lu(k,1196) * b(k,204) + b(k,216) = b(k,216) - lu(k,1197) * b(k,204) + b(k,217) = b(k,217) - lu(k,1198) * b(k,204) + b(k,226) = b(k,226) - lu(k,1199) * b(k,204) + b(k,228) = b(k,228) - lu(k,1200) * b(k,204) + b(k,229) = b(k,229) - lu(k,1201) * b(k,204) + b(k,235) = b(k,235) - lu(k,1202) * b(k,204) + b(k,236) = b(k,236) - lu(k,1203) * b(k,204) + b(k,237) = b(k,237) - lu(k,1204) * b(k,204) + b(k,238) = b(k,238) - lu(k,1205) * b(k,204) + b(k,239) = b(k,239) - lu(k,1206) * b(k,204) + b(k,210) = b(k,210) - lu(k,1208) * b(k,205) + b(k,216) = b(k,216) - lu(k,1209) * b(k,205) + b(k,226) = b(k,226) - lu(k,1210) * b(k,205) + b(k,229) = b(k,229) - lu(k,1211) * b(k,205) + b(k,236) = b(k,236) - lu(k,1212) * b(k,205) + b(k,210) = b(k,210) - lu(k,1217) * b(k,206) + b(k,216) = b(k,216) - lu(k,1218) * b(k,206) + b(k,226) = b(k,226) - lu(k,1219) * b(k,206) + b(k,228) = b(k,228) - lu(k,1220) * b(k,206) + b(k,229) = b(k,229) - lu(k,1221) * b(k,206) + b(k,230) = b(k,230) - lu(k,1222) * b(k,206) + b(k,236) = b(k,236) - lu(k,1223) * b(k,206) + b(k,238) = b(k,238) - lu(k,1224) * b(k,206) + b(k,239) = b(k,239) - lu(k,1225) * b(k,206) + b(k,210) = b(k,210) - lu(k,1233) * b(k,207) + b(k,216) = b(k,216) - lu(k,1234) * b(k,207) + b(k,217) = b(k,217) - lu(k,1235) * b(k,207) + b(k,226) = b(k,226) - lu(k,1236) * b(k,207) + b(k,228) = b(k,228) - lu(k,1237) * b(k,207) + b(k,229) = b(k,229) - lu(k,1238) * b(k,207) + b(k,230) = b(k,230) - lu(k,1239) * b(k,207) + b(k,235) = b(k,235) - lu(k,1240) * b(k,207) + b(k,236) = b(k,236) - lu(k,1241) * b(k,207) + b(k,238) = b(k,238) - lu(k,1242) * b(k,207) + b(k,209) = b(k,209) - lu(k,1253) * b(k,208) + b(k,210) = b(k,210) - lu(k,1254) * b(k,208) + b(k,214) = b(k,214) - lu(k,1255) * b(k,208) + b(k,216) = b(k,216) - lu(k,1256) * b(k,208) + b(k,217) = b(k,217) - lu(k,1257) * b(k,208) + b(k,226) = b(k,226) - lu(k,1258) * b(k,208) + b(k,228) = b(k,228) - lu(k,1259) * b(k,208) + b(k,229) = b(k,229) - lu(k,1260) * b(k,208) + b(k,230) = b(k,230) - lu(k,1261) * b(k,208) + b(k,235) = b(k,235) - lu(k,1262) * b(k,208) + b(k,236) = b(k,236) - lu(k,1263) * b(k,208) + b(k,237) = b(k,237) - lu(k,1264) * b(k,208) + b(k,238) = b(k,238) - lu(k,1265) * b(k,208) + b(k,210) = b(k,210) - lu(k,1269) * b(k,209) + b(k,213) = b(k,213) - lu(k,1270) * b(k,209) + b(k,215) = b(k,215) - lu(k,1271) * b(k,209) + b(k,216) = b(k,216) - lu(k,1272) * b(k,209) + b(k,217) = b(k,217) - lu(k,1273) * b(k,209) + b(k,226) = b(k,226) - lu(k,1274) * b(k,209) + b(k,229) = b(k,229) - lu(k,1275) * b(k,209) + b(k,232) = b(k,232) - lu(k,1276) * b(k,209) + b(k,236) = b(k,236) - lu(k,1277) * b(k,209) + b(k,239) = b(k,239) - lu(k,1278) * b(k,209) + b(k,216) = b(k,216) - lu(k,1281) * b(k,210) + b(k,217) = b(k,217) - lu(k,1282) * b(k,210) + b(k,226) = b(k,226) - lu(k,1283) * b(k,210) + b(k,235) = b(k,235) - lu(k,1284) * b(k,210) + b(k,236) = b(k,236) - lu(k,1285) * b(k,210) + b(k,237) = b(k,237) - lu(k,1286) * b(k,210) + b(k,239) = b(k,239) - lu(k,1287) * b(k,210) + b(k,213) = b(k,213) - lu(k,1299) * b(k,211) + b(k,214) = b(k,214) - lu(k,1300) * b(k,211) + b(k,215) = b(k,215) - lu(k,1301) * b(k,211) + b(k,216) = b(k,216) - lu(k,1302) * b(k,211) + b(k,217) = b(k,217) - lu(k,1303) * b(k,211) + b(k,226) = b(k,226) - lu(k,1304) * b(k,211) + b(k,228) = b(k,228) - lu(k,1305) * b(k,211) + b(k,229) = b(k,229) - lu(k,1306) * b(k,211) + b(k,230) = b(k,230) - lu(k,1307) * b(k,211) + b(k,232) = b(k,232) - lu(k,1308) * b(k,211) + b(k,235) = b(k,235) - lu(k,1309) * b(k,211) + b(k,236) = b(k,236) - lu(k,1310) * b(k,211) + b(k,237) = b(k,237) - lu(k,1311) * b(k,211) + b(k,238) = b(k,238) - lu(k,1312) * b(k,211) + b(k,239) = b(k,239) - lu(k,1313) * b(k,211) + b(k,213) = b(k,213) - lu(k,1332) * b(k,212) + b(k,214) = b(k,214) - lu(k,1333) * b(k,212) + b(k,215) = b(k,215) - lu(k,1334) * b(k,212) + b(k,216) = b(k,216) - lu(k,1335) * b(k,212) + b(k,217) = b(k,217) - lu(k,1336) * b(k,212) + b(k,226) = b(k,226) - lu(k,1337) * b(k,212) + b(k,228) = b(k,228) - lu(k,1338) * b(k,212) + b(k,229) = b(k,229) - lu(k,1339) * b(k,212) + b(k,230) = b(k,230) - lu(k,1340) * b(k,212) + b(k,232) = b(k,232) - lu(k,1341) * b(k,212) + b(k,235) = b(k,235) - lu(k,1342) * b(k,212) + b(k,236) = b(k,236) - lu(k,1343) * b(k,212) + b(k,237) = b(k,237) - lu(k,1344) * b(k,212) + b(k,238) = b(k,238) - lu(k,1345) * b(k,212) + b(k,239) = b(k,239) - lu(k,1346) * b(k,212) + b(k,215) = b(k,215) - lu(k,1356) * b(k,213) + b(k,216) = b(k,216) - lu(k,1357) * b(k,213) + b(k,217) = b(k,217) - lu(k,1358) * b(k,213) + b(k,226) = b(k,226) - lu(k,1359) * b(k,213) + b(k,228) = b(k,228) - lu(k,1360) * b(k,213) + b(k,229) = b(k,229) - lu(k,1361) * b(k,213) + b(k,230) = b(k,230) - lu(k,1362) * b(k,213) + b(k,235) = b(k,235) - lu(k,1363) * b(k,213) + b(k,236) = b(k,236) - lu(k,1364) * b(k,213) + b(k,237) = b(k,237) - lu(k,1365) * b(k,213) + b(k,238) = b(k,238) - lu(k,1366) * b(k,213) + b(k,239) = b(k,239) - lu(k,1367) * b(k,213) + b(k,215) = b(k,215) - lu(k,1376) * b(k,214) + b(k,216) = b(k,216) - lu(k,1377) * b(k,214) + b(k,217) = b(k,217) - lu(k,1378) * b(k,214) + b(k,222) = b(k,222) - lu(k,1379) * b(k,214) + b(k,223) = b(k,223) - lu(k,1380) * b(k,214) + b(k,226) = b(k,226) - lu(k,1381) * b(k,214) + b(k,228) = b(k,228) - lu(k,1382) * b(k,214) + b(k,229) = b(k,229) - lu(k,1383) * b(k,214) + b(k,230) = b(k,230) - lu(k,1384) * b(k,214) + b(k,232) = b(k,232) - lu(k,1385) * b(k,214) + b(k,235) = b(k,235) - lu(k,1386) * b(k,214) + b(k,236) = b(k,236) - lu(k,1387) * b(k,214) + b(k,237) = b(k,237) - lu(k,1388) * b(k,214) + b(k,238) = b(k,238) - lu(k,1389) * b(k,214) + b(k,239) = b(k,239) - lu(k,1390) * b(k,214) + b(k,216) = b(k,216) - lu(k,1397) * b(k,215) + b(k,217) = b(k,217) - lu(k,1398) * b(k,215) + b(k,226) = b(k,226) - lu(k,1399) * b(k,215) + b(k,228) = b(k,228) - lu(k,1400) * b(k,215) + b(k,229) = b(k,229) - lu(k,1401) * b(k,215) + b(k,230) = b(k,230) - lu(k,1402) * b(k,215) + b(k,232) = b(k,232) - lu(k,1403) * b(k,215) + b(k,235) = b(k,235) - lu(k,1404) * b(k,215) + b(k,236) = b(k,236) - lu(k,1405) * b(k,215) + b(k,237) = b(k,237) - lu(k,1406) * b(k,215) + b(k,238) = b(k,238) - lu(k,1407) * b(k,215) + b(k,239) = b(k,239) - lu(k,1408) * b(k,215) + b(k,217) = b(k,217) - lu(k,1428) * b(k,216) + b(k,222) = b(k,222) - lu(k,1429) * b(k,216) + b(k,223) = b(k,223) - lu(k,1430) * b(k,216) + b(k,226) = b(k,226) - lu(k,1431) * b(k,216) + b(k,228) = b(k,228) - lu(k,1432) * b(k,216) + b(k,229) = b(k,229) - lu(k,1433) * b(k,216) + b(k,230) = b(k,230) - lu(k,1434) * b(k,216) + b(k,232) = b(k,232) - lu(k,1435) * b(k,216) + b(k,235) = b(k,235) - lu(k,1436) * b(k,216) + b(k,236) = b(k,236) - lu(k,1437) * b(k,216) + b(k,237) = b(k,237) - lu(k,1438) * b(k,216) + b(k,238) = b(k,238) - lu(k,1439) * b(k,216) + b(k,239) = b(k,239) - lu(k,1440) * b(k,216) + b(k,222) = b(k,222) - lu(k,1450) * b(k,217) + b(k,225) = b(k,225) - lu(k,1451) * b(k,217) b(k,226) = b(k,226) - lu(k,1452) * b(k,217) - b(k,227) = b(k,227) - lu(k,1453) * b(k,217) - b(k,228) = b(k,228) - lu(k,1454) * b(k,217) - b(k,230) = b(k,230) - lu(k,1455) * b(k,217) - b(k,232) = b(k,232) - lu(k,1456) * b(k,217) - b(k,233) = b(k,233) - lu(k,1457) * b(k,217) - b(k,237) = b(k,237) - lu(k,1458) * b(k,217) - b(k,220) = b(k,220) - lu(k,1462) * b(k,218) + b(k,228) = b(k,228) - lu(k,1453) * b(k,217) + b(k,230) = b(k,230) - lu(k,1454) * b(k,217) + b(k,231) = b(k,231) - lu(k,1455) * b(k,217) + b(k,234) = b(k,234) - lu(k,1456) * b(k,217) + b(k,236) = b(k,236) - lu(k,1457) * b(k,217) + b(k,220) = b(k,220) - lu(k,1461) * b(k,218) + b(k,223) = b(k,223) - lu(k,1462) * b(k,218) b(k,225) = b(k,225) - lu(k,1463) * b(k,218) b(k,226) = b(k,226) - lu(k,1464) * b(k,218) - b(k,230) = b(k,230) - lu(k,1465) * b(k,218) + b(k,227) = b(k,227) - lu(k,1465) * b(k,218) b(k,231) = b(k,231) - lu(k,1466) * b(k,218) - b(k,232) = b(k,232) - lu(k,1467) * b(k,218) - b(k,233) = b(k,233) - lu(k,1468) * b(k,218) - b(k,234) = b(k,234) - lu(k,1469) * b(k,218) - b(k,236) = b(k,236) - lu(k,1470) * b(k,218) - b(k,238) = b(k,238) - lu(k,1471) * b(k,218) - b(k,239) = b(k,239) - lu(k,1472) * b(k,218) - b(k,221) = b(k,221) - lu(k,1477) * b(k,219) - b(k,222) = b(k,222) - lu(k,1478) * b(k,219) - b(k,223) = b(k,223) - lu(k,1479) * b(k,219) - b(k,224) = b(k,224) - lu(k,1480) * b(k,219) - b(k,226) = b(k,226) - lu(k,1481) * b(k,219) - b(k,227) = b(k,227) - lu(k,1482) * b(k,219) - b(k,228) = b(k,228) - lu(k,1483) * b(k,219) + b(k,234) = b(k,234) - lu(k,1467) * b(k,218) + b(k,235) = b(k,235) - lu(k,1468) * b(k,218) + b(k,237) = b(k,237) - lu(k,1469) * b(k,218) + b(k,238) = b(k,238) - lu(k,1470) * b(k,218) + b(k,239) = b(k,239) - lu(k,1471) * b(k,218) + b(k,221) = b(k,221) - lu(k,1476) * b(k,219) + b(k,222) = b(k,222) - lu(k,1477) * b(k,219) + b(k,224) = b(k,224) - lu(k,1478) * b(k,219) + b(k,226) = b(k,226) - lu(k,1479) * b(k,219) + b(k,227) = b(k,227) - lu(k,1480) * b(k,219) + b(k,228) = b(k,228) - lu(k,1481) * b(k,219) + b(k,230) = b(k,230) - lu(k,1482) * b(k,219) + b(k,231) = b(k,231) - lu(k,1483) * b(k,219) b(k,232) = b(k,232) - lu(k,1484) * b(k,219) b(k,233) = b(k,233) - lu(k,1485) * b(k,219) b(k,234) = b(k,234) - lu(k,1486) * b(k,219) - b(k,235) = b(k,235) - lu(k,1487) * b(k,219) - b(k,237) = b(k,237) - lu(k,1488) * b(k,219) - b(k,239) = b(k,239) - lu(k,1489) * b(k,219) - b(k,221) = b(k,221) - lu(k,1496) * b(k,220) - b(k,223) = b(k,223) - lu(k,1497) * b(k,220) - b(k,224) = b(k,224) - lu(k,1498) * b(k,220) - b(k,225) = b(k,225) - lu(k,1499) * b(k,220) - b(k,226) = b(k,226) - lu(k,1500) * b(k,220) - b(k,228) = b(k,228) - lu(k,1501) * b(k,220) - b(k,230) = b(k,230) - lu(k,1502) * b(k,220) - b(k,231) = b(k,231) - lu(k,1503) * b(k,220) - b(k,232) = b(k,232) - lu(k,1504) * b(k,220) - b(k,233) = b(k,233) - lu(k,1505) * b(k,220) - b(k,234) = b(k,234) - lu(k,1506) * b(k,220) - b(k,239) = b(k,239) - lu(k,1507) * b(k,220) - b(k,222) = b(k,222) - lu(k,1512) * b(k,221) - b(k,223) = b(k,223) - lu(k,1513) * b(k,221) + b(k,236) = b(k,236) - lu(k,1487) * b(k,219) + b(k,239) = b(k,239) - lu(k,1488) * b(k,219) + b(k,221) = b(k,221) - lu(k,1495) * b(k,220) + b(k,224) = b(k,224) - lu(k,1496) * b(k,220) + b(k,225) = b(k,225) - lu(k,1497) * b(k,220) + b(k,226) = b(k,226) - lu(k,1498) * b(k,220) + b(k,227) = b(k,227) - lu(k,1499) * b(k,220) + b(k,228) = b(k,228) - lu(k,1500) * b(k,220) + b(k,231) = b(k,231) - lu(k,1501) * b(k,220) + b(k,233) = b(k,233) - lu(k,1502) * b(k,220) + b(k,234) = b(k,234) - lu(k,1503) * b(k,220) + b(k,235) = b(k,235) - lu(k,1504) * b(k,220) + b(k,237) = b(k,237) - lu(k,1505) * b(k,220) + b(k,239) = b(k,239) - lu(k,1506) * b(k,220) + b(k,222) = b(k,222) - lu(k,1511) * b(k,221) + b(k,224) = b(k,224) - lu(k,1512) * b(k,221) + b(k,225) = b(k,225) - lu(k,1513) * b(k,221) b(k,226) = b(k,226) - lu(k,1514) * b(k,221) - b(k,227) = b(k,227) - lu(k,1515) * b(k,221) - b(k,228) = b(k,228) - lu(k,1516) * b(k,221) - b(k,229) = b(k,229) - lu(k,1517) * b(k,221) - b(k,230) = b(k,230) - lu(k,1518) * b(k,221) + b(k,228) = b(k,228) - lu(k,1515) * b(k,221) + b(k,229) = b(k,229) - lu(k,1516) * b(k,221) + b(k,230) = b(k,230) - lu(k,1517) * b(k,221) + b(k,231) = b(k,231) - lu(k,1518) * b(k,221) b(k,232) = b(k,232) - lu(k,1519) * b(k,221) - b(k,233) = b(k,233) - lu(k,1520) * b(k,221) - b(k,235) = b(k,235) - lu(k,1521) * b(k,221) - b(k,237) = b(k,237) - lu(k,1522) * b(k,221) - b(k,239) = b(k,239) - lu(k,1523) * b(k,221) + b(k,234) = b(k,234) - lu(k,1520) * b(k,221) + b(k,236) = b(k,236) - lu(k,1521) * b(k,221) + b(k,239) = b(k,239) - lu(k,1522) * b(k,221) end do end subroutine lu_slv05 subroutine lu_slv06( avec_len, lu, b ) @@ -1151,149 +1151,151 @@ subroutine lu_slv06( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,223) = b(k,223) - lu(k,1543) * b(k,222) - b(k,224) = b(k,224) - lu(k,1544) * b(k,222) - b(k,226) = b(k,226) - lu(k,1545) * b(k,222) - b(k,227) = b(k,227) - lu(k,1546) * b(k,222) - b(k,228) = b(k,228) - lu(k,1547) * b(k,222) - b(k,229) = b(k,229) - lu(k,1548) * b(k,222) - b(k,230) = b(k,230) - lu(k,1549) * b(k,222) + b(k,224) = b(k,224) - lu(k,1542) * b(k,222) + b(k,225) = b(k,225) - lu(k,1543) * b(k,222) + b(k,226) = b(k,226) - lu(k,1544) * b(k,222) + b(k,227) = b(k,227) - lu(k,1545) * b(k,222) + b(k,228) = b(k,228) - lu(k,1546) * b(k,222) + b(k,229) = b(k,229) - lu(k,1547) * b(k,222) + b(k,230) = b(k,230) - lu(k,1548) * b(k,222) + b(k,231) = b(k,231) - lu(k,1549) * b(k,222) b(k,232) = b(k,232) - lu(k,1550) * b(k,222) b(k,233) = b(k,233) - lu(k,1551) * b(k,222) b(k,234) = b(k,234) - lu(k,1552) * b(k,222) - b(k,235) = b(k,235) - lu(k,1553) * b(k,222) - b(k,237) = b(k,237) - lu(k,1554) * b(k,222) - b(k,239) = b(k,239) - lu(k,1555) * b(k,222) - b(k,224) = b(k,224) - lu(k,1566) * b(k,223) - b(k,225) = b(k,225) - lu(k,1567) * b(k,223) - b(k,226) = b(k,226) - lu(k,1568) * b(k,223) - b(k,227) = b(k,227) - lu(k,1569) * b(k,223) - b(k,228) = b(k,228) - lu(k,1570) * b(k,223) - b(k,229) = b(k,229) - lu(k,1571) * b(k,223) - b(k,230) = b(k,230) - lu(k,1572) * b(k,223) - b(k,231) = b(k,231) - lu(k,1573) * b(k,223) - b(k,232) = b(k,232) - lu(k,1574) * b(k,223) - b(k,233) = b(k,233) - lu(k,1575) * b(k,223) - b(k,234) = b(k,234) - lu(k,1576) * b(k,223) - b(k,235) = b(k,235) - lu(k,1577) * b(k,223) - b(k,237) = b(k,237) - lu(k,1578) * b(k,223) + b(k,236) = b(k,236) - lu(k,1553) * b(k,222) + b(k,239) = b(k,239) - lu(k,1554) * b(k,222) + b(k,224) = b(k,224) - lu(k,1564) * b(k,223) + b(k,225) = b(k,225) - lu(k,1565) * b(k,223) + b(k,226) = b(k,226) - lu(k,1566) * b(k,223) + b(k,227) = b(k,227) - lu(k,1567) * b(k,223) + b(k,228) = b(k,228) - lu(k,1568) * b(k,223) + b(k,229) = b(k,229) - lu(k,1569) * b(k,223) + b(k,230) = b(k,230) - lu(k,1570) * b(k,223) + b(k,231) = b(k,231) - lu(k,1571) * b(k,223) + b(k,232) = b(k,232) - lu(k,1572) * b(k,223) + b(k,233) = b(k,233) - lu(k,1573) * b(k,223) + b(k,234) = b(k,234) - lu(k,1574) * b(k,223) + b(k,235) = b(k,235) - lu(k,1575) * b(k,223) + b(k,236) = b(k,236) - lu(k,1576) * b(k,223) + b(k,237) = b(k,237) - lu(k,1577) * b(k,223) + b(k,238) = b(k,238) - lu(k,1578) * b(k,223) b(k,239) = b(k,239) - lu(k,1579) * b(k,223) - b(k,225) = b(k,225) - lu(k,1593) * b(k,224) - b(k,226) = b(k,226) - lu(k,1594) * b(k,224) - b(k,227) = b(k,227) - lu(k,1595) * b(k,224) - b(k,228) = b(k,228) - lu(k,1596) * b(k,224) - b(k,229) = b(k,229) - lu(k,1597) * b(k,224) - b(k,230) = b(k,230) - lu(k,1598) * b(k,224) - b(k,231) = b(k,231) - lu(k,1599) * b(k,224) - b(k,232) = b(k,232) - lu(k,1600) * b(k,224) - b(k,233) = b(k,233) - lu(k,1601) * b(k,224) - b(k,234) = b(k,234) - lu(k,1602) * b(k,224) - b(k,235) = b(k,235) - lu(k,1603) * b(k,224) - b(k,237) = b(k,237) - lu(k,1604) * b(k,224) - b(k,238) = b(k,238) - lu(k,1605) * b(k,224) - b(k,239) = b(k,239) - lu(k,1606) * b(k,224) - b(k,226) = b(k,226) - lu(k,1653) * b(k,225) - b(k,227) = b(k,227) - lu(k,1654) * b(k,225) - b(k,228) = b(k,228) - lu(k,1655) * b(k,225) - b(k,229) = b(k,229) - lu(k,1656) * b(k,225) - b(k,230) = b(k,230) - lu(k,1657) * b(k,225) - b(k,231) = b(k,231) - lu(k,1658) * b(k,225) - b(k,232) = b(k,232) - lu(k,1659) * b(k,225) - b(k,233) = b(k,233) - lu(k,1660) * b(k,225) - b(k,234) = b(k,234) - lu(k,1661) * b(k,225) - b(k,235) = b(k,235) - lu(k,1662) * b(k,225) - b(k,236) = b(k,236) - lu(k,1663) * b(k,225) - b(k,237) = b(k,237) - lu(k,1664) * b(k,225) - b(k,238) = b(k,238) - lu(k,1665) * b(k,225) - b(k,239) = b(k,239) - lu(k,1666) * b(k,225) - b(k,227) = b(k,227) - lu(k,1819) * b(k,226) - b(k,228) = b(k,228) - lu(k,1820) * b(k,226) - b(k,229) = b(k,229) - lu(k,1821) * b(k,226) - b(k,230) = b(k,230) - lu(k,1822) * b(k,226) - b(k,231) = b(k,231) - lu(k,1823) * b(k,226) - b(k,232) = b(k,232) - lu(k,1824) * b(k,226) - b(k,233) = b(k,233) - lu(k,1825) * b(k,226) - b(k,234) = b(k,234) - lu(k,1826) * b(k,226) - b(k,235) = b(k,235) - lu(k,1827) * b(k,226) - b(k,236) = b(k,236) - lu(k,1828) * b(k,226) - b(k,237) = b(k,237) - lu(k,1829) * b(k,226) - b(k,238) = b(k,238) - lu(k,1830) * b(k,226) - b(k,239) = b(k,239) - lu(k,1831) * b(k,226) - b(k,228) = b(k,228) - lu(k,1915) * b(k,227) - b(k,229) = b(k,229) - lu(k,1916) * b(k,227) - b(k,230) = b(k,230) - lu(k,1917) * b(k,227) - b(k,231) = b(k,231) - lu(k,1918) * b(k,227) - b(k,232) = b(k,232) - lu(k,1919) * b(k,227) - b(k,233) = b(k,233) - lu(k,1920) * b(k,227) - b(k,234) = b(k,234) - lu(k,1921) * b(k,227) - b(k,235) = b(k,235) - lu(k,1922) * b(k,227) - b(k,236) = b(k,236) - lu(k,1923) * b(k,227) - b(k,237) = b(k,237) - lu(k,1924) * b(k,227) - b(k,238) = b(k,238) - lu(k,1925) * b(k,227) - b(k,239) = b(k,239) - lu(k,1926) * b(k,227) - b(k,229) = b(k,229) - lu(k,1961) * b(k,228) - b(k,230) = b(k,230) - lu(k,1962) * b(k,228) - b(k,231) = b(k,231) - lu(k,1963) * b(k,228) - b(k,232) = b(k,232) - lu(k,1964) * b(k,228) - b(k,233) = b(k,233) - lu(k,1965) * b(k,228) - b(k,234) = b(k,234) - lu(k,1966) * b(k,228) - b(k,235) = b(k,235) - lu(k,1967) * b(k,228) - b(k,236) = b(k,236) - lu(k,1968) * b(k,228) - b(k,237) = b(k,237) - lu(k,1969) * b(k,228) - b(k,238) = b(k,238) - lu(k,1970) * b(k,228) - b(k,239) = b(k,239) - lu(k,1971) * b(k,228) - b(k,230) = b(k,230) - lu(k,1988) * b(k,229) - b(k,231) = b(k,231) - lu(k,1989) * b(k,229) - b(k,232) = b(k,232) - lu(k,1990) * b(k,229) - b(k,233) = b(k,233) - lu(k,1991) * b(k,229) - b(k,234) = b(k,234) - lu(k,1992) * b(k,229) - b(k,235) = b(k,235) - lu(k,1993) * b(k,229) - b(k,236) = b(k,236) - lu(k,1994) * b(k,229) - b(k,237) = b(k,237) - lu(k,1995) * b(k,229) - b(k,238) = b(k,238) - lu(k,1996) * b(k,229) - b(k,239) = b(k,239) - lu(k,1997) * b(k,229) - b(k,231) = b(k,231) - lu(k,2032) * b(k,230) - b(k,232) = b(k,232) - lu(k,2033) * b(k,230) - b(k,233) = b(k,233) - lu(k,2034) * b(k,230) - b(k,234) = b(k,234) - lu(k,2035) * b(k,230) - b(k,235) = b(k,235) - lu(k,2036) * b(k,230) - b(k,236) = b(k,236) - lu(k,2037) * b(k,230) - b(k,237) = b(k,237) - lu(k,2038) * b(k,230) - b(k,238) = b(k,238) - lu(k,2039) * b(k,230) - b(k,239) = b(k,239) - lu(k,2040) * b(k,230) - b(k,232) = b(k,232) - lu(k,2056) * b(k,231) - b(k,233) = b(k,233) - lu(k,2057) * b(k,231) - b(k,234) = b(k,234) - lu(k,2058) * b(k,231) - b(k,235) = b(k,235) - lu(k,2059) * b(k,231) - b(k,236) = b(k,236) - lu(k,2060) * b(k,231) - b(k,237) = b(k,237) - lu(k,2061) * b(k,231) - b(k,238) = b(k,238) - lu(k,2062) * b(k,231) - b(k,239) = b(k,239) - lu(k,2063) * b(k,231) - b(k,233) = b(k,233) - lu(k,2100) * b(k,232) - b(k,234) = b(k,234) - lu(k,2101) * b(k,232) - b(k,235) = b(k,235) - lu(k,2102) * b(k,232) - b(k,236) = b(k,236) - lu(k,2103) * b(k,232) - b(k,237) = b(k,237) - lu(k,2104) * b(k,232) - b(k,238) = b(k,238) - lu(k,2105) * b(k,232) - b(k,239) = b(k,239) - lu(k,2106) * b(k,232) - b(k,234) = b(k,234) - lu(k,2122) * b(k,233) - b(k,235) = b(k,235) - lu(k,2123) * b(k,233) - b(k,236) = b(k,236) - lu(k,2124) * b(k,233) - b(k,237) = b(k,237) - lu(k,2125) * b(k,233) - b(k,238) = b(k,238) - lu(k,2126) * b(k,233) - b(k,239) = b(k,239) - lu(k,2127) * b(k,233) - b(k,235) = b(k,235) - lu(k,2169) * b(k,234) - b(k,236) = b(k,236) - lu(k,2170) * b(k,234) - b(k,237) = b(k,237) - lu(k,2171) * b(k,234) - b(k,238) = b(k,238) - lu(k,2172) * b(k,234) - b(k,239) = b(k,239) - lu(k,2173) * b(k,234) - b(k,236) = b(k,236) - lu(k,2234) * b(k,235) - b(k,237) = b(k,237) - lu(k,2235) * b(k,235) - b(k,238) = b(k,238) - lu(k,2236) * b(k,235) - b(k,239) = b(k,239) - lu(k,2237) * b(k,235) - b(k,237) = b(k,237) - lu(k,2260) * b(k,236) - b(k,238) = b(k,238) - lu(k,2261) * b(k,236) - b(k,239) = b(k,239) - lu(k,2262) * b(k,236) + b(k,225) = b(k,225) - lu(k,1590) * b(k,224) + b(k,226) = b(k,226) - lu(k,1591) * b(k,224) + b(k,227) = b(k,227) - lu(k,1592) * b(k,224) + b(k,228) = b(k,228) - lu(k,1593) * b(k,224) + b(k,229) = b(k,229) - lu(k,1594) * b(k,224) + b(k,230) = b(k,230) - lu(k,1595) * b(k,224) + b(k,231) = b(k,231) - lu(k,1596) * b(k,224) + b(k,232) = b(k,232) - lu(k,1597) * b(k,224) + b(k,233) = b(k,233) - lu(k,1598) * b(k,224) + b(k,234) = b(k,234) - lu(k,1599) * b(k,224) + b(k,235) = b(k,235) - lu(k,1600) * b(k,224) + b(k,236) = b(k,236) - lu(k,1601) * b(k,224) + b(k,237) = b(k,237) - lu(k,1602) * b(k,224) + b(k,239) = b(k,239) - lu(k,1603) * b(k,224) + b(k,226) = b(k,226) - lu(k,1633) * b(k,225) + b(k,227) = b(k,227) - lu(k,1634) * b(k,225) + b(k,228) = b(k,228) - lu(k,1635) * b(k,225) + b(k,229) = b(k,229) - lu(k,1636) * b(k,225) + b(k,230) = b(k,230) - lu(k,1637) * b(k,225) + b(k,231) = b(k,231) - lu(k,1638) * b(k,225) + b(k,232) = b(k,232) - lu(k,1639) * b(k,225) + b(k,233) = b(k,233) - lu(k,1640) * b(k,225) + b(k,234) = b(k,234) - lu(k,1641) * b(k,225) + b(k,235) = b(k,235) - lu(k,1642) * b(k,225) + b(k,236) = b(k,236) - lu(k,1643) * b(k,225) + b(k,237) = b(k,237) - lu(k,1644) * b(k,225) + b(k,238) = b(k,238) - lu(k,1645) * b(k,225) + b(k,239) = b(k,239) - lu(k,1646) * b(k,225) + b(k,227) = b(k,227) - lu(k,1799) * b(k,226) + b(k,228) = b(k,228) - lu(k,1800) * b(k,226) + b(k,229) = b(k,229) - lu(k,1801) * b(k,226) + b(k,230) = b(k,230) - lu(k,1802) * b(k,226) + b(k,231) = b(k,231) - lu(k,1803) * b(k,226) + b(k,232) = b(k,232) - lu(k,1804) * b(k,226) + b(k,233) = b(k,233) - lu(k,1805) * b(k,226) + b(k,234) = b(k,234) - lu(k,1806) * b(k,226) + b(k,235) = b(k,235) - lu(k,1807) * b(k,226) + b(k,236) = b(k,236) - lu(k,1808) * b(k,226) + b(k,237) = b(k,237) - lu(k,1809) * b(k,226) + b(k,238) = b(k,238) - lu(k,1810) * b(k,226) + b(k,239) = b(k,239) - lu(k,1811) * b(k,226) + b(k,228) = b(k,228) - lu(k,1846) * b(k,227) + b(k,229) = b(k,229) - lu(k,1847) * b(k,227) + b(k,230) = b(k,230) - lu(k,1848) * b(k,227) + b(k,231) = b(k,231) - lu(k,1849) * b(k,227) + b(k,232) = b(k,232) - lu(k,1850) * b(k,227) + b(k,233) = b(k,233) - lu(k,1851) * b(k,227) + b(k,234) = b(k,234) - lu(k,1852) * b(k,227) + b(k,235) = b(k,235) - lu(k,1853) * b(k,227) + b(k,236) = b(k,236) - lu(k,1854) * b(k,227) + b(k,237) = b(k,237) - lu(k,1855) * b(k,227) + b(k,238) = b(k,238) - lu(k,1856) * b(k,227) + b(k,239) = b(k,239) - lu(k,1857) * b(k,227) + b(k,229) = b(k,229) - lu(k,1892) * b(k,228) + b(k,230) = b(k,230) - lu(k,1893) * b(k,228) + b(k,231) = b(k,231) - lu(k,1894) * b(k,228) + b(k,232) = b(k,232) - lu(k,1895) * b(k,228) + b(k,233) = b(k,233) - lu(k,1896) * b(k,228) + b(k,234) = b(k,234) - lu(k,1897) * b(k,228) + b(k,235) = b(k,235) - lu(k,1898) * b(k,228) + b(k,236) = b(k,236) - lu(k,1899) * b(k,228) + b(k,237) = b(k,237) - lu(k,1900) * b(k,228) + b(k,238) = b(k,238) - lu(k,1901) * b(k,228) + b(k,239) = b(k,239) - lu(k,1902) * b(k,228) + b(k,230) = b(k,230) - lu(k,1919) * b(k,229) + b(k,231) = b(k,231) - lu(k,1920) * b(k,229) + b(k,232) = b(k,232) - lu(k,1921) * b(k,229) + b(k,233) = b(k,233) - lu(k,1922) * b(k,229) + b(k,234) = b(k,234) - lu(k,1923) * b(k,229) + b(k,235) = b(k,235) - lu(k,1924) * b(k,229) + b(k,236) = b(k,236) - lu(k,1925) * b(k,229) + b(k,237) = b(k,237) - lu(k,1926) * b(k,229) + b(k,238) = b(k,238) - lu(k,1927) * b(k,229) + b(k,239) = b(k,239) - lu(k,1928) * b(k,229) + b(k,231) = b(k,231) - lu(k,2016) * b(k,230) + b(k,232) = b(k,232) - lu(k,2017) * b(k,230) + b(k,233) = b(k,233) - lu(k,2018) * b(k,230) + b(k,234) = b(k,234) - lu(k,2019) * b(k,230) + b(k,235) = b(k,235) - lu(k,2020) * b(k,230) + b(k,236) = b(k,236) - lu(k,2021) * b(k,230) + b(k,237) = b(k,237) - lu(k,2022) * b(k,230) + b(k,238) = b(k,238) - lu(k,2023) * b(k,230) + b(k,239) = b(k,239) - lu(k,2024) * b(k,230) + b(k,232) = b(k,232) - lu(k,2060) * b(k,231) + b(k,233) = b(k,233) - lu(k,2061) * b(k,231) + b(k,234) = b(k,234) - lu(k,2062) * b(k,231) + b(k,235) = b(k,235) - lu(k,2063) * b(k,231) + b(k,236) = b(k,236) - lu(k,2064) * b(k,231) + b(k,237) = b(k,237) - lu(k,2065) * b(k,231) + b(k,238) = b(k,238) - lu(k,2066) * b(k,231) + b(k,239) = b(k,239) - lu(k,2067) * b(k,231) + b(k,233) = b(k,233) - lu(k,2125) * b(k,232) + b(k,234) = b(k,234) - lu(k,2126) * b(k,232) + b(k,235) = b(k,235) - lu(k,2127) * b(k,232) + b(k,236) = b(k,236) - lu(k,2128) * b(k,232) + b(k,237) = b(k,237) - lu(k,2129) * b(k,232) + b(k,238) = b(k,238) - lu(k,2130) * b(k,232) + b(k,239) = b(k,239) - lu(k,2131) * b(k,232) + b(k,234) = b(k,234) - lu(k,2153) * b(k,233) + b(k,235) = b(k,235) - lu(k,2154) * b(k,233) + b(k,236) = b(k,236) - lu(k,2155) * b(k,233) + b(k,237) = b(k,237) - lu(k,2156) * b(k,233) + b(k,238) = b(k,238) - lu(k,2157) * b(k,233) + b(k,239) = b(k,239) - lu(k,2158) * b(k,233) + b(k,235) = b(k,235) - lu(k,2175) * b(k,234) + b(k,236) = b(k,236) - lu(k,2176) * b(k,234) + b(k,237) = b(k,237) - lu(k,2177) * b(k,234) + b(k,238) = b(k,238) - lu(k,2178) * b(k,234) + b(k,239) = b(k,239) - lu(k,2179) * b(k,234) + b(k,236) = b(k,236) - lu(k,2236) * b(k,235) + b(k,237) = b(k,237) - lu(k,2237) * b(k,235) + b(k,238) = b(k,238) - lu(k,2238) * b(k,235) + b(k,239) = b(k,239) - lu(k,2239) * b(k,235) + b(k,237) = b(k,237) - lu(k,2345) * b(k,236) + b(k,238) = b(k,238) - lu(k,2346) * b(k,236) + b(k,239) = b(k,239) - lu(k,2347) * b(k,236) b(k,238) = b(k,238) - lu(k,2369) * b(k,237) b(k,239) = b(k,239) - lu(k,2370) * b(k,237) b(k,239) = b(k,239) - lu(k,2422) * b(k,238) @@ -1387,7 +1389,7 @@ subroutine lu_slv07( avec_len, lu, b ) b(k,195) = b(k,195) - lu(k,2384) * b(k,238) b(k,194) = b(k,194) - lu(k,2383) * b(k,238) b(k,193) = b(k,193) - lu(k,2382) * b(k,238) - b(k,192) = b(k,192) - lu(k,2381) * b(k,238) + b(k,191) = b(k,191) - lu(k,2381) * b(k,238) b(k,185) = b(k,185) - lu(k,2380) * b(k,238) b(k,181) = b(k,181) - lu(k,2379) * b(k,238) b(k,180) = b(k,180) - lu(k,2378) * b(k,238) @@ -1417,115 +1419,113 @@ subroutine lu_slv07( avec_len, lu, b ) b(k,221) = b(k,221) - lu(k,2352) * b(k,237) b(k,220) = b(k,220) - lu(k,2351) * b(k,237) b(k,218) = b(k,218) - lu(k,2350) * b(k,237) - b(k,217) = b(k,217) - lu(k,2349) * b(k,237) - b(k,216) = b(k,216) - lu(k,2348) * b(k,237) - b(k,215) = b(k,215) - lu(k,2347) * b(k,237) - b(k,214) = b(k,214) - lu(k,2346) * b(k,237) - b(k,213) = b(k,213) - lu(k,2345) * b(k,237) - b(k,212) = b(k,212) - lu(k,2344) * b(k,237) - b(k,211) = b(k,211) - lu(k,2343) * b(k,237) - b(k,210) = b(k,210) - lu(k,2342) * b(k,237) - b(k,209) = b(k,209) - lu(k,2341) * b(k,237) - b(k,208) = b(k,208) - lu(k,2340) * b(k,237) - b(k,207) = b(k,207) - lu(k,2339) * b(k,237) - b(k,206) = b(k,206) - lu(k,2338) * b(k,237) - b(k,205) = b(k,205) - lu(k,2337) * b(k,237) - b(k,203) = b(k,203) - lu(k,2336) * b(k,237) - b(k,202) = b(k,202) - lu(k,2335) * b(k,237) - b(k,201) = b(k,201) - lu(k,2334) * b(k,237) - b(k,200) = b(k,200) - lu(k,2333) * b(k,237) - b(k,198) = b(k,198) - lu(k,2332) * b(k,237) - b(k,197) = b(k,197) - lu(k,2331) * b(k,237) - b(k,195) = b(k,195) - lu(k,2330) * b(k,237) - b(k,194) = b(k,194) - lu(k,2329) * b(k,237) - b(k,193) = b(k,193) - lu(k,2328) * b(k,237) - b(k,192) = b(k,192) - lu(k,2327) * b(k,237) - b(k,191) = b(k,191) - lu(k,2326) * b(k,237) - b(k,185) = b(k,185) - lu(k,2325) * b(k,237) - b(k,183) = b(k,183) - lu(k,2324) * b(k,237) - b(k,182) = b(k,182) - lu(k,2323) * b(k,237) - b(k,181) = b(k,181) - lu(k,2322) * b(k,237) - b(k,180) = b(k,180) - lu(k,2321) * b(k,237) - b(k,175) = b(k,175) - lu(k,2320) * b(k,237) - b(k,174) = b(k,174) - lu(k,2319) * b(k,237) - b(k,172) = b(k,172) - lu(k,2318) * b(k,237) - b(k,170) = b(k,170) - lu(k,2317) * b(k,237) - b(k,169) = b(k,169) - lu(k,2316) * b(k,237) - b(k,168) = b(k,168) - lu(k,2315) * b(k,237) - b(k,167) = b(k,167) - lu(k,2314) * b(k,237) - b(k,166) = b(k,166) - lu(k,2313) * b(k,237) - b(k,165) = b(k,165) - lu(k,2312) * b(k,237) - b(k,164) = b(k,164) - lu(k,2311) * b(k,237) - b(k,162) = b(k,162) - lu(k,2310) * b(k,237) - b(k,161) = b(k,161) - lu(k,2309) * b(k,237) - b(k,160) = b(k,160) - lu(k,2308) * b(k,237) - b(k,159) = b(k,159) - lu(k,2307) * b(k,237) - b(k,157) = b(k,157) - lu(k,2306) * b(k,237) - b(k,156) = b(k,156) - lu(k,2305) * b(k,237) - b(k,154) = b(k,154) - lu(k,2304) * b(k,237) - b(k,152) = b(k,152) - lu(k,2303) * b(k,237) - b(k,147) = b(k,147) - lu(k,2302) * b(k,237) - b(k,142) = b(k,142) - lu(k,2301) * b(k,237) - b(k,139) = b(k,139) - lu(k,2300) * b(k,237) - b(k,137) = b(k,137) - lu(k,2299) * b(k,237) - b(k,135) = b(k,135) - lu(k,2298) * b(k,237) - b(k,134) = b(k,134) - lu(k,2297) * b(k,237) - b(k,132) = b(k,132) - lu(k,2296) * b(k,237) - b(k,131) = b(k,131) - lu(k,2295) * b(k,237) - b(k,130) = b(k,130) - lu(k,2294) * b(k,237) - b(k,129) = b(k,129) - lu(k,2293) * b(k,237) - b(k,128) = b(k,128) - lu(k,2292) * b(k,237) - b(k,127) = b(k,127) - lu(k,2291) * b(k,237) - b(k,126) = b(k,126) - lu(k,2290) * b(k,237) - b(k,125) = b(k,125) - lu(k,2289) * b(k,237) - b(k,123) = b(k,123) - lu(k,2288) * b(k,237) - b(k,122) = b(k,122) - lu(k,2287) * b(k,237) - b(k,121) = b(k,121) - lu(k,2286) * b(k,237) - b(k,120) = b(k,120) - lu(k,2285) * b(k,237) - b(k,119) = b(k,119) - lu(k,2284) * b(k,237) - b(k,118) = b(k,118) - lu(k,2283) * b(k,237) - b(k,112) = b(k,112) - lu(k,2282) * b(k,237) - b(k,111) = b(k,111) - lu(k,2281) * b(k,237) - b(k,110) = b(k,110) - lu(k,2280) * b(k,237) - b(k,106) = b(k,106) - lu(k,2279) * b(k,237) - b(k,105) = b(k,105) - lu(k,2278) * b(k,237) - b(k,96) = b(k,96) - lu(k,2277) * b(k,237) - b(k,81) = b(k,81) - lu(k,2276) * b(k,237) - b(k,63) = b(k,63) - lu(k,2275) * b(k,237) - b(k,53) = b(k,53) - lu(k,2274) * b(k,237) - b(k,52) = b(k,52) - lu(k,2273) * b(k,237) - b(k,51) = b(k,51) - lu(k,2272) * b(k,237) - b(k,49) = b(k,49) - lu(k,2271) * b(k,237) - b(k,48) = b(k,48) - lu(k,2270) * b(k,237) - b(k,47) = b(k,47) - lu(k,2269) * b(k,237) - b(k,46) = b(k,46) - lu(k,2268) * b(k,237) - b(k,43) = b(k,43) - lu(k,2267) * b(k,237) - b(k,42) = b(k,42) - lu(k,2266) * b(k,237) - b(k,41) = b(k,41) - lu(k,2265) * b(k,237) - b(k,40) = b(k,40) - lu(k,2264) * b(k,237) - b(k,39) = b(k,39) - lu(k,2263) * b(k,237) - b(k,236) = b(k,236) * lu(k,2259) - b(k,235) = b(k,235) - lu(k,2258) * b(k,236) - b(k,234) = b(k,234) - lu(k,2257) * b(k,236) - b(k,233) = b(k,233) - lu(k,2256) * b(k,236) - b(k,232) = b(k,232) - lu(k,2255) * b(k,236) - b(k,231) = b(k,231) - lu(k,2254) * b(k,236) - b(k,230) = b(k,230) - lu(k,2253) * b(k,236) - b(k,229) = b(k,229) - lu(k,2252) * b(k,236) - b(k,228) = b(k,228) - lu(k,2251) * b(k,236) - b(k,227) = b(k,227) - lu(k,2250) * b(k,236) - b(k,226) = b(k,226) - lu(k,2249) * b(k,236) - b(k,225) = b(k,225) - lu(k,2248) * b(k,236) - b(k,224) = b(k,224) - lu(k,2247) * b(k,236) - b(k,223) = b(k,223) - lu(k,2246) * b(k,236) - b(k,222) = b(k,222) - lu(k,2245) * b(k,236) - b(k,221) = b(k,221) - lu(k,2244) * b(k,236) - b(k,220) = b(k,220) - lu(k,2243) * b(k,236) - b(k,218) = b(k,218) - lu(k,2242) * b(k,236) - b(k,217) = b(k,217) - lu(k,2241) * b(k,236) - b(k,201) = b(k,201) - lu(k,2240) * b(k,236) - b(k,184) = b(k,184) - lu(k,2239) * b(k,236) - b(k,99) = b(k,99) - lu(k,2238) * b(k,236) + b(k,184) = b(k,184) - lu(k,2349) * b(k,237) + b(k,99) = b(k,99) - lu(k,2348) * b(k,237) + b(k,236) = b(k,236) * lu(k,2344) + b(k,235) = b(k,235) - lu(k,2343) * b(k,236) + b(k,234) = b(k,234) - lu(k,2342) * b(k,236) + b(k,233) = b(k,233) - lu(k,2341) * b(k,236) + b(k,232) = b(k,232) - lu(k,2340) * b(k,236) + b(k,231) = b(k,231) - lu(k,2339) * b(k,236) + b(k,230) = b(k,230) - lu(k,2338) * b(k,236) + b(k,229) = b(k,229) - lu(k,2337) * b(k,236) + b(k,228) = b(k,228) - lu(k,2336) * b(k,236) + b(k,227) = b(k,227) - lu(k,2335) * b(k,236) + b(k,226) = b(k,226) - lu(k,2334) * b(k,236) + b(k,225) = b(k,225) - lu(k,2333) * b(k,236) + b(k,224) = b(k,224) - lu(k,2332) * b(k,236) + b(k,223) = b(k,223) - lu(k,2331) * b(k,236) + b(k,222) = b(k,222) - lu(k,2330) * b(k,236) + b(k,221) = b(k,221) - lu(k,2329) * b(k,236) + b(k,220) = b(k,220) - lu(k,2328) * b(k,236) + b(k,218) = b(k,218) - lu(k,2327) * b(k,236) + b(k,217) = b(k,217) - lu(k,2326) * b(k,236) + b(k,216) = b(k,216) - lu(k,2325) * b(k,236) + b(k,215) = b(k,215) - lu(k,2324) * b(k,236) + b(k,214) = b(k,214) - lu(k,2323) * b(k,236) + b(k,213) = b(k,213) - lu(k,2322) * b(k,236) + b(k,212) = b(k,212) - lu(k,2321) * b(k,236) + b(k,211) = b(k,211) - lu(k,2320) * b(k,236) + b(k,210) = b(k,210) - lu(k,2319) * b(k,236) + b(k,209) = b(k,209) - lu(k,2318) * b(k,236) + b(k,208) = b(k,208) - lu(k,2317) * b(k,236) + b(k,207) = b(k,207) - lu(k,2316) * b(k,236) + b(k,206) = b(k,206) - lu(k,2315) * b(k,236) + b(k,205) = b(k,205) - lu(k,2314) * b(k,236) + b(k,203) = b(k,203) - lu(k,2313) * b(k,236) + b(k,202) = b(k,202) - lu(k,2312) * b(k,236) + b(k,201) = b(k,201) - lu(k,2311) * b(k,236) + b(k,200) = b(k,200) - lu(k,2310) * b(k,236) + b(k,198) = b(k,198) - lu(k,2309) * b(k,236) + b(k,197) = b(k,197) - lu(k,2308) * b(k,236) + b(k,195) = b(k,195) - lu(k,2307) * b(k,236) + b(k,194) = b(k,194) - lu(k,2306) * b(k,236) + b(k,193) = b(k,193) - lu(k,2305) * b(k,236) + b(k,191) = b(k,191) - lu(k,2304) * b(k,236) + b(k,190) = b(k,190) - lu(k,2303) * b(k,236) + b(k,185) = b(k,185) - lu(k,2302) * b(k,236) + b(k,183) = b(k,183) - lu(k,2301) * b(k,236) + b(k,182) = b(k,182) - lu(k,2300) * b(k,236) + b(k,181) = b(k,181) - lu(k,2299) * b(k,236) + b(k,180) = b(k,180) - lu(k,2298) * b(k,236) + b(k,175) = b(k,175) - lu(k,2297) * b(k,236) + b(k,174) = b(k,174) - lu(k,2296) * b(k,236) + b(k,172) = b(k,172) - lu(k,2295) * b(k,236) + b(k,170) = b(k,170) - lu(k,2294) * b(k,236) + b(k,169) = b(k,169) - lu(k,2293) * b(k,236) + b(k,168) = b(k,168) - lu(k,2292) * b(k,236) + b(k,167) = b(k,167) - lu(k,2291) * b(k,236) + b(k,166) = b(k,166) - lu(k,2290) * b(k,236) + b(k,165) = b(k,165) - lu(k,2289) * b(k,236) + b(k,163) = b(k,163) - lu(k,2288) * b(k,236) + b(k,162) = b(k,162) - lu(k,2287) * b(k,236) + b(k,161) = b(k,161) - lu(k,2286) * b(k,236) + b(k,160) = b(k,160) - lu(k,2285) * b(k,236) + b(k,159) = b(k,159) - lu(k,2284) * b(k,236) + b(k,158) = b(k,158) - lu(k,2283) * b(k,236) + b(k,157) = b(k,157) - lu(k,2282) * b(k,236) + b(k,154) = b(k,154) - lu(k,2281) * b(k,236) + b(k,151) = b(k,151) - lu(k,2280) * b(k,236) + b(k,147) = b(k,147) - lu(k,2279) * b(k,236) + b(k,141) = b(k,141) - lu(k,2278) * b(k,236) + b(k,139) = b(k,139) - lu(k,2277) * b(k,236) + b(k,137) = b(k,137) - lu(k,2276) * b(k,236) + b(k,135) = b(k,135) - lu(k,2275) * b(k,236) + b(k,134) = b(k,134) - lu(k,2274) * b(k,236) + b(k,132) = b(k,132) - lu(k,2273) * b(k,236) + b(k,131) = b(k,131) - lu(k,2272) * b(k,236) + b(k,130) = b(k,130) - lu(k,2271) * b(k,236) + b(k,129) = b(k,129) - lu(k,2270) * b(k,236) + b(k,128) = b(k,128) - lu(k,2269) * b(k,236) + b(k,127) = b(k,127) - lu(k,2268) * b(k,236) + b(k,126) = b(k,126) - lu(k,2267) * b(k,236) + b(k,125) = b(k,125) - lu(k,2266) * b(k,236) + b(k,123) = b(k,123) - lu(k,2265) * b(k,236) + b(k,122) = b(k,122) - lu(k,2264) * b(k,236) + b(k,121) = b(k,121) - lu(k,2263) * b(k,236) + b(k,120) = b(k,120) - lu(k,2262) * b(k,236) + b(k,119) = b(k,119) - lu(k,2261) * b(k,236) + b(k,118) = b(k,118) - lu(k,2260) * b(k,236) + b(k,112) = b(k,112) - lu(k,2259) * b(k,236) + b(k,111) = b(k,111) - lu(k,2258) * b(k,236) + b(k,110) = b(k,110) - lu(k,2257) * b(k,236) + b(k,106) = b(k,106) - lu(k,2256) * b(k,236) + b(k,105) = b(k,105) - lu(k,2255) * b(k,236) + b(k,96) = b(k,96) - lu(k,2254) * b(k,236) + b(k,81) = b(k,81) - lu(k,2253) * b(k,236) + b(k,63) = b(k,63) - lu(k,2252) * b(k,236) + b(k,53) = b(k,53) - lu(k,2251) * b(k,236) + b(k,52) = b(k,52) - lu(k,2250) * b(k,236) + b(k,51) = b(k,51) - lu(k,2249) * b(k,236) + b(k,49) = b(k,49) - lu(k,2248) * b(k,236) + b(k,48) = b(k,48) - lu(k,2247) * b(k,236) + b(k,47) = b(k,47) - lu(k,2246) * b(k,236) + b(k,46) = b(k,46) - lu(k,2245) * b(k,236) + b(k,43) = b(k,43) - lu(k,2244) * b(k,236) + b(k,42) = b(k,42) - lu(k,2243) * b(k,236) + b(k,41) = b(k,41) - lu(k,2242) * b(k,236) + b(k,40) = b(k,40) - lu(k,2241) * b(k,236) + b(k,39) = b(k,39) - lu(k,2240) * b(k,236) end do end subroutine lu_slv07 subroutine lu_slv08( avec_len, lu, b ) @@ -1546,34 +1546,36 @@ subroutine lu_slv08( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,235) = b(k,235) * lu(k,2233) - b(k,234) = b(k,234) - lu(k,2232) * b(k,235) - b(k,233) = b(k,233) - lu(k,2231) * b(k,235) - b(k,232) = b(k,232) - lu(k,2230) * b(k,235) - b(k,231) = b(k,231) - lu(k,2229) * b(k,235) - b(k,230) = b(k,230) - lu(k,2228) * b(k,235) - b(k,229) = b(k,229) - lu(k,2227) * b(k,235) - b(k,228) = b(k,228) - lu(k,2226) * b(k,235) - b(k,227) = b(k,227) - lu(k,2225) * b(k,235) - b(k,226) = b(k,226) - lu(k,2224) * b(k,235) - b(k,225) = b(k,225) - lu(k,2223) * b(k,235) - b(k,224) = b(k,224) - lu(k,2222) * b(k,235) - b(k,223) = b(k,223) - lu(k,2221) * b(k,235) - b(k,222) = b(k,222) - lu(k,2220) * b(k,235) - b(k,221) = b(k,221) - lu(k,2219) * b(k,235) - b(k,219) = b(k,219) - lu(k,2218) * b(k,235) - b(k,217) = b(k,217) - lu(k,2217) * b(k,235) - b(k,216) = b(k,216) - lu(k,2216) * b(k,235) - b(k,215) = b(k,215) - lu(k,2215) * b(k,235) - b(k,214) = b(k,214) - lu(k,2214) * b(k,235) - b(k,213) = b(k,213) - lu(k,2213) * b(k,235) - b(k,212) = b(k,212) - lu(k,2212) * b(k,235) - b(k,211) = b(k,211) - lu(k,2211) * b(k,235) - b(k,210) = b(k,210) - lu(k,2210) * b(k,235) - b(k,209) = b(k,209) - lu(k,2209) * b(k,235) - b(k,208) = b(k,208) - lu(k,2208) * b(k,235) - b(k,206) = b(k,206) - lu(k,2207) * b(k,235) - b(k,205) = b(k,205) - lu(k,2206) * b(k,235) + b(k,235) = b(k,235) * lu(k,2235) + b(k,234) = b(k,234) - lu(k,2234) * b(k,235) + b(k,233) = b(k,233) - lu(k,2233) * b(k,235) + b(k,232) = b(k,232) - lu(k,2232) * b(k,235) + b(k,231) = b(k,231) - lu(k,2231) * b(k,235) + b(k,230) = b(k,230) - lu(k,2230) * b(k,235) + b(k,229) = b(k,229) - lu(k,2229) * b(k,235) + b(k,228) = b(k,228) - lu(k,2228) * b(k,235) + b(k,227) = b(k,227) - lu(k,2227) * b(k,235) + b(k,226) = b(k,226) - lu(k,2226) * b(k,235) + b(k,225) = b(k,225) - lu(k,2225) * b(k,235) + b(k,224) = b(k,224) - lu(k,2224) * b(k,235) + b(k,223) = b(k,223) - lu(k,2223) * b(k,235) + b(k,222) = b(k,222) - lu(k,2222) * b(k,235) + b(k,221) = b(k,221) - lu(k,2221) * b(k,235) + b(k,219) = b(k,219) - lu(k,2220) * b(k,235) + b(k,217) = b(k,217) - lu(k,2219) * b(k,235) + b(k,216) = b(k,216) - lu(k,2218) * b(k,235) + b(k,215) = b(k,215) - lu(k,2217) * b(k,235) + b(k,214) = b(k,214) - lu(k,2216) * b(k,235) + b(k,213) = b(k,213) - lu(k,2215) * b(k,235) + b(k,212) = b(k,212) - lu(k,2214) * b(k,235) + b(k,211) = b(k,211) - lu(k,2213) * b(k,235) + b(k,210) = b(k,210) - lu(k,2212) * b(k,235) + b(k,209) = b(k,209) - lu(k,2211) * b(k,235) + b(k,208) = b(k,208) - lu(k,2210) * b(k,235) + b(k,207) = b(k,207) - lu(k,2209) * b(k,235) + b(k,206) = b(k,206) - lu(k,2208) * b(k,235) + b(k,205) = b(k,205) - lu(k,2207) * b(k,235) + b(k,204) = b(k,204) - lu(k,2206) * b(k,235) b(k,203) = b(k,203) - lu(k,2205) * b(k,235) b(k,202) = b(k,202) - lu(k,2204) * b(k,235) b(k,201) = b(k,201) - lu(k,2203) * b(k,235) @@ -1581,172 +1583,241 @@ subroutine lu_slv08( avec_len, lu, b ) b(k,199) = b(k,199) - lu(k,2201) * b(k,235) b(k,198) = b(k,198) - lu(k,2200) * b(k,235) b(k,197) = b(k,197) - lu(k,2199) * b(k,235) - b(k,195) = b(k,195) - lu(k,2198) * b(k,235) - b(k,194) = b(k,194) - lu(k,2197) * b(k,235) - b(k,193) = b(k,193) - lu(k,2196) * b(k,235) - b(k,192) = b(k,192) - lu(k,2195) * b(k,235) + b(k,196) = b(k,196) - lu(k,2198) * b(k,235) + b(k,195) = b(k,195) - lu(k,2197) * b(k,235) + b(k,194) = b(k,194) - lu(k,2196) * b(k,235) + b(k,193) = b(k,193) - lu(k,2195) * b(k,235) b(k,191) = b(k,191) - lu(k,2194) * b(k,235) b(k,190) = b(k,190) - lu(k,2193) * b(k,235) - b(k,188) = b(k,188) - lu(k,2192) * b(k,235) - b(k,186) = b(k,186) - lu(k,2191) * b(k,235) - b(k,183) = b(k,183) - lu(k,2190) * b(k,235) - b(k,179) = b(k,179) - lu(k,2189) * b(k,235) - b(k,170) = b(k,170) - lu(k,2188) * b(k,235) - b(k,163) = b(k,163) - lu(k,2187) * b(k,235) - b(k,161) = b(k,161) - lu(k,2186) * b(k,235) - b(k,154) = b(k,154) - lu(k,2185) * b(k,235) - b(k,143) = b(k,143) - lu(k,2184) * b(k,235) - b(k,131) = b(k,131) - lu(k,2183) * b(k,235) - b(k,116) = b(k,116) - lu(k,2182) * b(k,235) - b(k,85) = b(k,85) - lu(k,2181) * b(k,235) - b(k,76) = b(k,76) - lu(k,2180) * b(k,235) - b(k,75) = b(k,75) - lu(k,2179) * b(k,235) - b(k,43) = b(k,43) - lu(k,2178) * b(k,235) - b(k,42) = b(k,42) - lu(k,2177) * b(k,235) - b(k,41) = b(k,41) - lu(k,2176) * b(k,235) - b(k,40) = b(k,40) - lu(k,2175) * b(k,235) - b(k,39) = b(k,39) - lu(k,2174) * b(k,235) - b(k,234) = b(k,234) * lu(k,2168) - b(k,233) = b(k,233) - lu(k,2167) * b(k,234) - b(k,232) = b(k,232) - lu(k,2166) * b(k,234) - b(k,231) = b(k,231) - lu(k,2165) * b(k,234) - b(k,230) = b(k,230) - lu(k,2164) * b(k,234) - b(k,229) = b(k,229) - lu(k,2163) * b(k,234) - b(k,228) = b(k,228) - lu(k,2162) * b(k,234) - b(k,227) = b(k,227) - lu(k,2161) * b(k,234) - b(k,226) = b(k,226) - lu(k,2160) * b(k,234) - b(k,225) = b(k,225) - lu(k,2159) * b(k,234) - b(k,224) = b(k,224) - lu(k,2158) * b(k,234) - b(k,223) = b(k,223) - lu(k,2157) * b(k,234) - b(k,222) = b(k,222) - lu(k,2156) * b(k,234) - b(k,221) = b(k,221) - lu(k,2155) * b(k,234) - b(k,220) = b(k,220) - lu(k,2154) * b(k,234) - b(k,218) = b(k,218) - lu(k,2153) * b(k,234) - b(k,217) = b(k,217) - lu(k,2152) * b(k,234) - b(k,216) = b(k,216) - lu(k,2151) * b(k,234) - b(k,210) = b(k,210) - lu(k,2150) * b(k,234) - b(k,206) = b(k,206) - lu(k,2149) * b(k,234) - b(k,202) = b(k,202) - lu(k,2148) * b(k,234) - b(k,201) = b(k,201) - lu(k,2147) * b(k,234) - b(k,200) = b(k,200) - lu(k,2146) * b(k,234) - b(k,195) = b(k,195) - lu(k,2145) * b(k,234) - b(k,192) = b(k,192) - lu(k,2144) * b(k,234) - b(k,187) = b(k,187) - lu(k,2143) * b(k,234) - b(k,185) = b(k,185) - lu(k,2142) * b(k,234) - b(k,183) = b(k,183) - lu(k,2141) * b(k,234) - b(k,181) = b(k,181) - lu(k,2140) * b(k,234) - b(k,175) = b(k,175) - lu(k,2139) * b(k,234) - b(k,170) = b(k,170) - lu(k,2138) * b(k,234) - b(k,150) = b(k,150) - lu(k,2137) * b(k,234) - b(k,147) = b(k,147) - lu(k,2136) * b(k,234) - b(k,143) = b(k,143) - lu(k,2135) * b(k,234) - b(k,133) = b(k,133) - lu(k,2134) * b(k,234) - b(k,117) = b(k,117) - lu(k,2133) * b(k,234) - b(k,115) = b(k,115) - lu(k,2132) * b(k,234) - b(k,103) = b(k,103) - lu(k,2131) * b(k,234) - b(k,102) = b(k,102) - lu(k,2130) * b(k,234) - b(k,100) = b(k,100) - lu(k,2129) * b(k,234) - b(k,74) = b(k,74) - lu(k,2128) * b(k,234) - b(k,233) = b(k,233) * lu(k,2121) - b(k,232) = b(k,232) - lu(k,2120) * b(k,233) - b(k,231) = b(k,231) - lu(k,2119) * b(k,233) - b(k,230) = b(k,230) - lu(k,2118) * b(k,233) - b(k,229) = b(k,229) - lu(k,2117) * b(k,233) - b(k,228) = b(k,228) - lu(k,2116) * b(k,233) - b(k,227) = b(k,227) - lu(k,2115) * b(k,233) - b(k,226) = b(k,226) - lu(k,2114) * b(k,233) - b(k,225) = b(k,225) - lu(k,2113) * b(k,233) - b(k,224) = b(k,224) - lu(k,2112) * b(k,233) - b(k,223) = b(k,223) - lu(k,2111) * b(k,233) - b(k,222) = b(k,222) - lu(k,2110) * b(k,233) - b(k,221) = b(k,221) - lu(k,2109) * b(k,233) - b(k,220) = b(k,220) - lu(k,2108) * b(k,233) - b(k,218) = b(k,218) - lu(k,2107) * b(k,233) - b(k,232) = b(k,232) * lu(k,2099) - b(k,231) = b(k,231) - lu(k,2098) * b(k,232) - b(k,230) = b(k,230) - lu(k,2097) * b(k,232) - b(k,229) = b(k,229) - lu(k,2096) * b(k,232) - b(k,228) = b(k,228) - lu(k,2095) * b(k,232) - b(k,227) = b(k,227) - lu(k,2094) * b(k,232) - b(k,226) = b(k,226) - lu(k,2093) * b(k,232) - b(k,225) = b(k,225) - lu(k,2092) * b(k,232) - b(k,224) = b(k,224) - lu(k,2091) * b(k,232) - b(k,223) = b(k,223) - lu(k,2090) * b(k,232) - b(k,222) = b(k,222) - lu(k,2089) * b(k,232) - b(k,221) = b(k,221) - lu(k,2088) * b(k,232) - b(k,220) = b(k,220) - lu(k,2087) * b(k,232) - b(k,219) = b(k,219) - lu(k,2086) * b(k,232) - b(k,218) = b(k,218) - lu(k,2085) * b(k,232) - b(k,217) = b(k,217) - lu(k,2084) * b(k,232) - b(k,201) = b(k,201) - lu(k,2083) * b(k,232) - b(k,189) = b(k,189) - lu(k,2082) * b(k,232) - b(k,187) = b(k,187) - lu(k,2081) * b(k,232) - b(k,186) = b(k,186) - lu(k,2080) * b(k,232) - b(k,178) = b(k,178) - lu(k,2079) * b(k,232) - b(k,177) = b(k,177) - lu(k,2078) * b(k,232) - b(k,176) = b(k,176) - lu(k,2077) * b(k,232) - b(k,175) = b(k,175) - lu(k,2076) * b(k,232) - b(k,174) = b(k,174) - lu(k,2075) * b(k,232) - b(k,171) = b(k,171) - lu(k,2074) * b(k,232) - b(k,169) = b(k,169) - lu(k,2073) * b(k,232) - b(k,163) = b(k,163) - lu(k,2072) * b(k,232) - b(k,158) = b(k,158) - lu(k,2071) * b(k,232) - b(k,147) = b(k,147) - lu(k,2070) * b(k,232) - b(k,145) = b(k,145) - lu(k,2069) * b(k,232) - b(k,140) = b(k,140) - lu(k,2068) * b(k,232) - b(k,136) = b(k,136) - lu(k,2067) * b(k,232) - b(k,114) = b(k,114) - lu(k,2066) * b(k,232) - b(k,76) = b(k,76) - lu(k,2065) * b(k,232) - b(k,75) = b(k,75) - lu(k,2064) * b(k,232) - b(k,231) = b(k,231) * lu(k,2055) - b(k,230) = b(k,230) - lu(k,2054) * b(k,231) - b(k,229) = b(k,229) - lu(k,2053) * b(k,231) - b(k,228) = b(k,228) - lu(k,2052) * b(k,231) - b(k,227) = b(k,227) - lu(k,2051) * b(k,231) - b(k,226) = b(k,226) - lu(k,2050) * b(k,231) - b(k,225) = b(k,225) - lu(k,2049) * b(k,231) - b(k,224) = b(k,224) - lu(k,2048) * b(k,231) - b(k,223) = b(k,223) - lu(k,2047) * b(k,231) - b(k,222) = b(k,222) - lu(k,2046) * b(k,231) - b(k,221) = b(k,221) - lu(k,2045) * b(k,231) - b(k,220) = b(k,220) - lu(k,2044) * b(k,231) - b(k,218) = b(k,218) - lu(k,2043) * b(k,231) - b(k,184) = b(k,184) - lu(k,2042) * b(k,231) - b(k,99) = b(k,99) - lu(k,2041) * b(k,231) - b(k,230) = b(k,230) * lu(k,2031) - b(k,229) = b(k,229) - lu(k,2030) * b(k,230) - b(k,228) = b(k,228) - lu(k,2029) * b(k,230) - b(k,227) = b(k,227) - lu(k,2028) * b(k,230) - b(k,226) = b(k,226) - lu(k,2027) * b(k,230) - b(k,225) = b(k,225) - lu(k,2026) * b(k,230) - b(k,224) = b(k,224) - lu(k,2025) * b(k,230) - b(k,223) = b(k,223) - lu(k,2024) * b(k,230) - b(k,222) = b(k,222) - lu(k,2023) * b(k,230) - b(k,221) = b(k,221) - lu(k,2022) * b(k,230) - b(k,220) = b(k,220) - lu(k,2021) * b(k,230) - b(k,218) = b(k,218) - lu(k,2020) * b(k,230) - b(k,184) = b(k,184) - lu(k,2019) * b(k,230) - b(k,174) = b(k,174) - lu(k,2018) * b(k,230) - b(k,150) = b(k,150) - lu(k,2017) * b(k,230) - b(k,133) = b(k,133) - lu(k,2016) * b(k,230) - b(k,117) = b(k,117) - lu(k,2015) * b(k,230) - b(k,101) = b(k,101) - lu(k,2014) * b(k,230) - b(k,93) = b(k,93) - lu(k,2013) * b(k,230) - b(k,92) = b(k,92) - lu(k,2012) * b(k,230) - b(k,91) = b(k,91) - lu(k,2011) * b(k,230) - b(k,90) = b(k,90) - lu(k,2010) * b(k,230) - b(k,89) = b(k,89) - lu(k,2009) * b(k,230) - b(k,77) = b(k,77) - lu(k,2008) * b(k,230) - b(k,76) = b(k,76) - lu(k,2007) * b(k,230) - b(k,70) = b(k,70) - lu(k,2006) * b(k,230) - b(k,69) = b(k,69) - lu(k,2005) * b(k,230) - b(k,68) = b(k,68) - lu(k,2004) * b(k,230) - b(k,67) = b(k,67) - lu(k,2003) * b(k,230) - b(k,61) = b(k,61) - lu(k,2002) * b(k,230) - b(k,60) = b(k,60) - lu(k,2001) * b(k,230) - b(k,59) = b(k,59) - lu(k,2000) * b(k,230) - b(k,58) = b(k,58) - lu(k,1999) * b(k,230) - b(k,56) = b(k,56) - lu(k,1998) * b(k,230) + b(k,189) = b(k,189) - lu(k,2192) * b(k,235) + b(k,188) = b(k,188) - lu(k,2191) * b(k,235) + b(k,186) = b(k,186) - lu(k,2190) * b(k,235) + b(k,183) = b(k,183) - lu(k,2189) * b(k,235) + b(k,180) = b(k,180) - lu(k,2188) * b(k,235) + b(k,179) = b(k,179) - lu(k,2187) * b(k,235) + b(k,145) = b(k,145) - lu(k,2186) * b(k,235) + b(k,113) = b(k,113) - lu(k,2185) * b(k,235) + b(k,107) = b(k,107) - lu(k,2184) * b(k,235) + b(k,104) = b(k,104) - lu(k,2183) * b(k,235) + b(k,97) = b(k,97) - lu(k,2182) * b(k,235) + b(k,43) = b(k,43) - lu(k,2181) * b(k,235) + b(k,42) = b(k,42) - lu(k,2180) * b(k,235) + b(k,234) = b(k,234) * lu(k,2174) + b(k,233) = b(k,233) - lu(k,2173) * b(k,234) + b(k,232) = b(k,232) - lu(k,2172) * b(k,234) + b(k,231) = b(k,231) - lu(k,2171) * b(k,234) + b(k,230) = b(k,230) - lu(k,2170) * b(k,234) + b(k,229) = b(k,229) - lu(k,2169) * b(k,234) + b(k,228) = b(k,228) - lu(k,2168) * b(k,234) + b(k,227) = b(k,227) - lu(k,2167) * b(k,234) + b(k,226) = b(k,226) - lu(k,2166) * b(k,234) + b(k,225) = b(k,225) - lu(k,2165) * b(k,234) + b(k,224) = b(k,224) - lu(k,2164) * b(k,234) + b(k,223) = b(k,223) - lu(k,2163) * b(k,234) + b(k,222) = b(k,222) - lu(k,2162) * b(k,234) + b(k,221) = b(k,221) - lu(k,2161) * b(k,234) + b(k,220) = b(k,220) - lu(k,2160) * b(k,234) + b(k,218) = b(k,218) - lu(k,2159) * b(k,234) + b(k,233) = b(k,233) * lu(k,2152) + b(k,232) = b(k,232) - lu(k,2151) * b(k,233) + b(k,231) = b(k,231) - lu(k,2150) * b(k,233) + b(k,230) = b(k,230) - lu(k,2149) * b(k,233) + b(k,229) = b(k,229) - lu(k,2148) * b(k,233) + b(k,228) = b(k,228) - lu(k,2147) * b(k,233) + b(k,227) = b(k,227) - lu(k,2146) * b(k,233) + b(k,226) = b(k,226) - lu(k,2145) * b(k,233) + b(k,225) = b(k,225) - lu(k,2144) * b(k,233) + b(k,224) = b(k,224) - lu(k,2143) * b(k,233) + b(k,222) = b(k,222) - lu(k,2142) * b(k,233) + b(k,221) = b(k,221) - lu(k,2141) * b(k,233) + b(k,220) = b(k,220) - lu(k,2140) * b(k,233) + b(k,219) = b(k,219) - lu(k,2139) * b(k,233) + b(k,187) = b(k,187) - lu(k,2138) * b(k,233) + b(k,186) = b(k,186) - lu(k,2137) * b(k,233) + b(k,175) = b(k,175) - lu(k,2136) * b(k,233) + b(k,109) = b(k,109) - lu(k,2135) * b(k,233) + b(k,86) = b(k,86) - lu(k,2134) * b(k,233) + b(k,74) = b(k,74) - lu(k,2133) * b(k,233) + b(k,54) = b(k,54) - lu(k,2132) * b(k,233) + b(k,232) = b(k,232) * lu(k,2124) + b(k,231) = b(k,231) - lu(k,2123) * b(k,232) + b(k,230) = b(k,230) - lu(k,2122) * b(k,232) + b(k,229) = b(k,229) - lu(k,2121) * b(k,232) + b(k,228) = b(k,228) - lu(k,2120) * b(k,232) + b(k,227) = b(k,227) - lu(k,2119) * b(k,232) + b(k,226) = b(k,226) - lu(k,2118) * b(k,232) + b(k,225) = b(k,225) - lu(k,2117) * b(k,232) + b(k,224) = b(k,224) - lu(k,2116) * b(k,232) + b(k,223) = b(k,223) - lu(k,2115) * b(k,232) + b(k,222) = b(k,222) - lu(k,2114) * b(k,232) + b(k,221) = b(k,221) - lu(k,2113) * b(k,232) + b(k,219) = b(k,219) - lu(k,2112) * b(k,232) + b(k,217) = b(k,217) - lu(k,2111) * b(k,232) + b(k,216) = b(k,216) - lu(k,2110) * b(k,232) + b(k,215) = b(k,215) - lu(k,2109) * b(k,232) + b(k,214) = b(k,214) - lu(k,2108) * b(k,232) + b(k,213) = b(k,213) - lu(k,2107) * b(k,232) + b(k,212) = b(k,212) - lu(k,2106) * b(k,232) + b(k,211) = b(k,211) - lu(k,2105) * b(k,232) + b(k,210) = b(k,210) - lu(k,2104) * b(k,232) + b(k,209) = b(k,209) - lu(k,2103) * b(k,232) + b(k,208) = b(k,208) - lu(k,2102) * b(k,232) + b(k,206) = b(k,206) - lu(k,2101) * b(k,232) + b(k,205) = b(k,205) - lu(k,2100) * b(k,232) + b(k,203) = b(k,203) - lu(k,2099) * b(k,232) + b(k,202) = b(k,202) - lu(k,2098) * b(k,232) + b(k,201) = b(k,201) - lu(k,2097) * b(k,232) + b(k,200) = b(k,200) - lu(k,2096) * b(k,232) + b(k,199) = b(k,199) - lu(k,2095) * b(k,232) + b(k,198) = b(k,198) - lu(k,2094) * b(k,232) + b(k,197) = b(k,197) - lu(k,2093) * b(k,232) + b(k,195) = b(k,195) - lu(k,2092) * b(k,232) + b(k,194) = b(k,194) - lu(k,2091) * b(k,232) + b(k,193) = b(k,193) - lu(k,2090) * b(k,232) + b(k,191) = b(k,191) - lu(k,2089) * b(k,232) + b(k,190) = b(k,190) - lu(k,2088) * b(k,232) + b(k,189) = b(k,189) - lu(k,2087) * b(k,232) + b(k,188) = b(k,188) - lu(k,2086) * b(k,232) + b(k,186) = b(k,186) - lu(k,2085) * b(k,232) + b(k,183) = b(k,183) - lu(k,2084) * b(k,232) + b(k,179) = b(k,179) - lu(k,2083) * b(k,232) + b(k,170) = b(k,170) - lu(k,2082) * b(k,232) + b(k,164) = b(k,164) - lu(k,2081) * b(k,232) + b(k,161) = b(k,161) - lu(k,2080) * b(k,232) + b(k,154) = b(k,154) - lu(k,2079) * b(k,232) + b(k,142) = b(k,142) - lu(k,2078) * b(k,232) + b(k,131) = b(k,131) - lu(k,2077) * b(k,232) + b(k,116) = b(k,116) - lu(k,2076) * b(k,232) + b(k,85) = b(k,85) - lu(k,2075) * b(k,232) + b(k,76) = b(k,76) - lu(k,2074) * b(k,232) + b(k,75) = b(k,75) - lu(k,2073) * b(k,232) + b(k,43) = b(k,43) - lu(k,2072) * b(k,232) + b(k,42) = b(k,42) - lu(k,2071) * b(k,232) + b(k,41) = b(k,41) - lu(k,2070) * b(k,232) + b(k,40) = b(k,40) - lu(k,2069) * b(k,232) + b(k,39) = b(k,39) - lu(k,2068) * b(k,232) + b(k,231) = b(k,231) * lu(k,2059) + b(k,230) = b(k,230) - lu(k,2058) * b(k,231) + b(k,229) = b(k,229) - lu(k,2057) * b(k,231) + b(k,228) = b(k,228) - lu(k,2056) * b(k,231) + b(k,227) = b(k,227) - lu(k,2055) * b(k,231) + b(k,226) = b(k,226) - lu(k,2054) * b(k,231) + b(k,225) = b(k,225) - lu(k,2053) * b(k,231) + b(k,224) = b(k,224) - lu(k,2052) * b(k,231) + b(k,223) = b(k,223) - lu(k,2051) * b(k,231) + b(k,222) = b(k,222) - lu(k,2050) * b(k,231) + b(k,221) = b(k,221) - lu(k,2049) * b(k,231) + b(k,220) = b(k,220) - lu(k,2048) * b(k,231) + b(k,219) = b(k,219) - lu(k,2047) * b(k,231) + b(k,218) = b(k,218) - lu(k,2046) * b(k,231) + b(k,217) = b(k,217) - lu(k,2045) * b(k,231) + b(k,201) = b(k,201) - lu(k,2044) * b(k,231) + b(k,192) = b(k,192) - lu(k,2043) * b(k,231) + b(k,187) = b(k,187) - lu(k,2042) * b(k,231) + b(k,186) = b(k,186) - lu(k,2041) * b(k,231) + b(k,178) = b(k,178) - lu(k,2040) * b(k,231) + b(k,177) = b(k,177) - lu(k,2039) * b(k,231) + b(k,176) = b(k,176) - lu(k,2038) * b(k,231) + b(k,175) = b(k,175) - lu(k,2037) * b(k,231) + b(k,174) = b(k,174) - lu(k,2036) * b(k,231) + b(k,171) = b(k,171) - lu(k,2035) * b(k,231) + b(k,169) = b(k,169) - lu(k,2034) * b(k,231) + b(k,164) = b(k,164) - lu(k,2033) * b(k,231) + b(k,155) = b(k,155) - lu(k,2032) * b(k,231) + b(k,152) = b(k,152) - lu(k,2031) * b(k,231) + b(k,147) = b(k,147) - lu(k,2030) * b(k,231) + b(k,144) = b(k,144) - lu(k,2029) * b(k,231) + b(k,136) = b(k,136) - lu(k,2028) * b(k,231) + b(k,114) = b(k,114) - lu(k,2027) * b(k,231) + b(k,76) = b(k,76) - lu(k,2026) * b(k,231) + b(k,75) = b(k,75) - lu(k,2025) * b(k,231) + b(k,230) = b(k,230) * lu(k,2015) + b(k,229) = b(k,229) - lu(k,2014) * b(k,230) + b(k,228) = b(k,228) - lu(k,2013) * b(k,230) + b(k,227) = b(k,227) - lu(k,2012) * b(k,230) + b(k,226) = b(k,226) - lu(k,2011) * b(k,230) + b(k,225) = b(k,225) - lu(k,2010) * b(k,230) + b(k,224) = b(k,224) - lu(k,2009) * b(k,230) + b(k,223) = b(k,223) - lu(k,2008) * b(k,230) + b(k,222) = b(k,222) - lu(k,2007) * b(k,230) + b(k,221) = b(k,221) - lu(k,2006) * b(k,230) + b(k,217) = b(k,217) - lu(k,2005) * b(k,230) + b(k,216) = b(k,216) - lu(k,2004) * b(k,230) + b(k,215) = b(k,215) - lu(k,2003) * b(k,230) + b(k,214) = b(k,214) - lu(k,2002) * b(k,230) + b(k,213) = b(k,213) - lu(k,2001) * b(k,230) + b(k,212) = b(k,212) - lu(k,2000) * b(k,230) + b(k,211) = b(k,211) - lu(k,1999) * b(k,230) + b(k,210) = b(k,210) - lu(k,1998) * b(k,230) + b(k,209) = b(k,209) - lu(k,1997) * b(k,230) + b(k,208) = b(k,208) - lu(k,1996) * b(k,230) + b(k,207) = b(k,207) - lu(k,1995) * b(k,230) + b(k,206) = b(k,206) - lu(k,1994) * b(k,230) + b(k,205) = b(k,205) - lu(k,1993) * b(k,230) + b(k,204) = b(k,204) - lu(k,1992) * b(k,230) + b(k,203) = b(k,203) - lu(k,1991) * b(k,230) + b(k,202) = b(k,202) - lu(k,1990) * b(k,230) + b(k,201) = b(k,201) - lu(k,1989) * b(k,230) + b(k,200) = b(k,200) - lu(k,1988) * b(k,230) + b(k,198) = b(k,198) - lu(k,1987) * b(k,230) + b(k,197) = b(k,197) - lu(k,1986) * b(k,230) + b(k,196) = b(k,196) - lu(k,1985) * b(k,230) + b(k,195) = b(k,195) - lu(k,1984) * b(k,230) + b(k,194) = b(k,194) - lu(k,1983) * b(k,230) + b(k,193) = b(k,193) - lu(k,1982) * b(k,230) + b(k,192) = b(k,192) - lu(k,1981) * b(k,230) + b(k,191) = b(k,191) - lu(k,1980) * b(k,230) + b(k,190) = b(k,190) - lu(k,1979) * b(k,230) + b(k,185) = b(k,185) - lu(k,1978) * b(k,230) + b(k,183) = b(k,183) - lu(k,1977) * b(k,230) + b(k,182) = b(k,182) - lu(k,1976) * b(k,230) + b(k,181) = b(k,181) - lu(k,1975) * b(k,230) + b(k,180) = b(k,180) - lu(k,1974) * b(k,230) + b(k,178) = b(k,178) - lu(k,1973) * b(k,230) + b(k,177) = b(k,177) - lu(k,1972) * b(k,230) + b(k,176) = b(k,176) - lu(k,1971) * b(k,230) + b(k,172) = b(k,172) - lu(k,1970) * b(k,230) + b(k,170) = b(k,170) - lu(k,1969) * b(k,230) + b(k,168) = b(k,168) - lu(k,1968) * b(k,230) + b(k,167) = b(k,167) - lu(k,1967) * b(k,230) + b(k,166) = b(k,166) - lu(k,1966) * b(k,230) + b(k,165) = b(k,165) - lu(k,1965) * b(k,230) + b(k,160) = b(k,160) - lu(k,1964) * b(k,230) + b(k,156) = b(k,156) - lu(k,1963) * b(k,230) + b(k,155) = b(k,155) - lu(k,1962) * b(k,230) + b(k,154) = b(k,154) - lu(k,1961) * b(k,230) + b(k,153) = b(k,153) - lu(k,1960) * b(k,230) + b(k,148) = b(k,148) - lu(k,1959) * b(k,230) + b(k,146) = b(k,146) - lu(k,1958) * b(k,230) + b(k,145) = b(k,145) - lu(k,1957) * b(k,230) + b(k,143) = b(k,143) - lu(k,1956) * b(k,230) + b(k,139) = b(k,139) - lu(k,1955) * b(k,230) + b(k,138) = b(k,138) - lu(k,1954) * b(k,230) + b(k,137) = b(k,137) - lu(k,1953) * b(k,230) + b(k,135) = b(k,135) - lu(k,1952) * b(k,230) + b(k,131) = b(k,131) - lu(k,1951) * b(k,230) + b(k,130) = b(k,130) - lu(k,1950) * b(k,230) + b(k,129) = b(k,129) - lu(k,1949) * b(k,230) + b(k,127) = b(k,127) - lu(k,1948) * b(k,230) + b(k,126) = b(k,126) - lu(k,1947) * b(k,230) + b(k,125) = b(k,125) - lu(k,1946) * b(k,230) + b(k,108) = b(k,108) - lu(k,1945) * b(k,230) + b(k,107) = b(k,107) - lu(k,1944) * b(k,230) + b(k,98) = b(k,98) - lu(k,1943) * b(k,230) + b(k,88) = b(k,88) - lu(k,1942) * b(k,230) + b(k,87) = b(k,87) - lu(k,1941) * b(k,230) + b(k,53) = b(k,53) - lu(k,1940) * b(k,230) + b(k,52) = b(k,52) - lu(k,1939) * b(k,230) + b(k,51) = b(k,51) - lu(k,1938) * b(k,230) + b(k,49) = b(k,49) - lu(k,1937) * b(k,230) + b(k,48) = b(k,48) - lu(k,1936) * b(k,230) + b(k,47) = b(k,47) - lu(k,1935) * b(k,230) + b(k,46) = b(k,46) - lu(k,1934) * b(k,230) + b(k,43) = b(k,43) - lu(k,1933) * b(k,230) + b(k,42) = b(k,42) - lu(k,1932) * b(k,230) + b(k,41) = b(k,41) - lu(k,1931) * b(k,230) + b(k,40) = b(k,40) - lu(k,1930) * b(k,230) + b(k,39) = b(k,39) - lu(k,1929) * b(k,230) end do end subroutine lu_slv08 subroutine lu_slv09( avec_len, lu, b ) @@ -1767,291 +1838,242 @@ subroutine lu_slv09( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,229) = b(k,229) * lu(k,1987) - b(k,228) = b(k,228) - lu(k,1986) * b(k,229) - b(k,227) = b(k,227) - lu(k,1985) * b(k,229) - b(k,226) = b(k,226) - lu(k,1984) * b(k,229) - b(k,225) = b(k,225) - lu(k,1983) * b(k,229) - b(k,224) = b(k,224) - lu(k,1982) * b(k,229) - b(k,223) = b(k,223) - lu(k,1981) * b(k,229) - b(k,222) = b(k,222) - lu(k,1980) * b(k,229) - b(k,221) = b(k,221) - lu(k,1979) * b(k,229) - b(k,220) = b(k,220) - lu(k,1978) * b(k,229) - b(k,218) = b(k,218) - lu(k,1977) * b(k,229) - b(k,217) = b(k,217) - lu(k,1976) * b(k,229) - b(k,201) = b(k,201) - lu(k,1975) * b(k,229) - b(k,183) = b(k,183) - lu(k,1974) * b(k,229) - b(k,174) = b(k,174) - lu(k,1973) * b(k,229) - b(k,126) = b(k,126) - lu(k,1972) * b(k,229) - b(k,228) = b(k,228) * lu(k,1960) - b(k,227) = b(k,227) - lu(k,1959) * b(k,228) - b(k,226) = b(k,226) - lu(k,1958) * b(k,228) - b(k,225) = b(k,225) - lu(k,1957) * b(k,228) - b(k,224) = b(k,224) - lu(k,1956) * b(k,228) - b(k,223) = b(k,223) - lu(k,1955) * b(k,228) - b(k,222) = b(k,222) - lu(k,1954) * b(k,228) - b(k,221) = b(k,221) - lu(k,1953) * b(k,228) - b(k,220) = b(k,220) - lu(k,1952) * b(k,228) - b(k,219) = b(k,219) - lu(k,1951) * b(k,228) - b(k,217) = b(k,217) - lu(k,1950) * b(k,228) - b(k,216) = b(k,216) - lu(k,1949) * b(k,228) - b(k,215) = b(k,215) - lu(k,1948) * b(k,228) - b(k,210) = b(k,210) - lu(k,1947) * b(k,228) - b(k,205) = b(k,205) - lu(k,1946) * b(k,228) - b(k,201) = b(k,201) - lu(k,1945) * b(k,228) - b(k,192) = b(k,192) - lu(k,1944) * b(k,228) - b(k,189) = b(k,189) - lu(k,1943) * b(k,228) - b(k,187) = b(k,187) - lu(k,1942) * b(k,228) - b(k,186) = b(k,186) - lu(k,1941) * b(k,228) - b(k,182) = b(k,182) - lu(k,1940) * b(k,228) - b(k,169) = b(k,169) - lu(k,1939) * b(k,228) - b(k,168) = b(k,168) - lu(k,1938) * b(k,228) - b(k,165) = b(k,165) - lu(k,1937) * b(k,228) - b(k,154) = b(k,154) - lu(k,1936) * b(k,228) - b(k,151) = b(k,151) - lu(k,1935) * b(k,228) - b(k,145) = b(k,145) - lu(k,1934) * b(k,228) - b(k,141) = b(k,141) - lu(k,1933) * b(k,228) - b(k,139) = b(k,139) - lu(k,1932) * b(k,228) - b(k,132) = b(k,132) - lu(k,1931) * b(k,228) - b(k,131) = b(k,131) - lu(k,1930) * b(k,228) - b(k,97) = b(k,97) - lu(k,1929) * b(k,228) - b(k,93) = b(k,93) - lu(k,1928) * b(k,228) - b(k,66) = b(k,66) - lu(k,1927) * b(k,228) - b(k,227) = b(k,227) * lu(k,1914) - b(k,226) = b(k,226) - lu(k,1913) * b(k,227) - b(k,225) = b(k,225) - lu(k,1912) * b(k,227) - b(k,224) = b(k,224) - lu(k,1911) * b(k,227) - b(k,223) = b(k,223) - lu(k,1910) * b(k,227) - b(k,222) = b(k,222) - lu(k,1909) * b(k,227) - b(k,221) = b(k,221) - lu(k,1908) * b(k,227) - b(k,217) = b(k,217) - lu(k,1907) * b(k,227) - b(k,216) = b(k,216) - lu(k,1906) * b(k,227) - b(k,215) = b(k,215) - lu(k,1905) * b(k,227) - b(k,214) = b(k,214) - lu(k,1904) * b(k,227) - b(k,213) = b(k,213) - lu(k,1903) * b(k,227) - b(k,212) = b(k,212) - lu(k,1902) * b(k,227) - b(k,211) = b(k,211) - lu(k,1901) * b(k,227) - b(k,210) = b(k,210) - lu(k,1900) * b(k,227) - b(k,209) = b(k,209) - lu(k,1899) * b(k,227) - b(k,208) = b(k,208) - lu(k,1898) * b(k,227) - b(k,207) = b(k,207) - lu(k,1897) * b(k,227) - b(k,206) = b(k,206) - lu(k,1896) * b(k,227) - b(k,205) = b(k,205) - lu(k,1895) * b(k,227) - b(k,204) = b(k,204) - lu(k,1894) * b(k,227) - b(k,203) = b(k,203) - lu(k,1893) * b(k,227) - b(k,202) = b(k,202) - lu(k,1892) * b(k,227) - b(k,201) = b(k,201) - lu(k,1891) * b(k,227) - b(k,200) = b(k,200) - lu(k,1890) * b(k,227) - b(k,198) = b(k,198) - lu(k,1889) * b(k,227) - b(k,197) = b(k,197) - lu(k,1888) * b(k,227) - b(k,196) = b(k,196) - lu(k,1887) * b(k,227) - b(k,195) = b(k,195) - lu(k,1886) * b(k,227) - b(k,194) = b(k,194) - lu(k,1885) * b(k,227) - b(k,193) = b(k,193) - lu(k,1884) * b(k,227) - b(k,192) = b(k,192) - lu(k,1883) * b(k,227) - b(k,191) = b(k,191) - lu(k,1882) * b(k,227) - b(k,189) = b(k,189) - lu(k,1881) * b(k,227) - b(k,185) = b(k,185) - lu(k,1880) * b(k,227) - b(k,183) = b(k,183) - lu(k,1879) * b(k,227) - b(k,182) = b(k,182) - lu(k,1878) * b(k,227) - b(k,181) = b(k,181) - lu(k,1877) * b(k,227) - b(k,180) = b(k,180) - lu(k,1876) * b(k,227) - b(k,178) = b(k,178) - lu(k,1875) * b(k,227) - b(k,177) = b(k,177) - lu(k,1874) * b(k,227) - b(k,176) = b(k,176) - lu(k,1873) * b(k,227) - b(k,172) = b(k,172) - lu(k,1872) * b(k,227) - b(k,170) = b(k,170) - lu(k,1871) * b(k,227) - b(k,168) = b(k,168) - lu(k,1870) * b(k,227) - b(k,167) = b(k,167) - lu(k,1869) * b(k,227) - b(k,166) = b(k,166) - lu(k,1868) * b(k,227) - b(k,165) = b(k,165) - lu(k,1867) * b(k,227) - b(k,160) = b(k,160) - lu(k,1866) * b(k,227) - b(k,155) = b(k,155) - lu(k,1865) * b(k,227) - b(k,154) = b(k,154) - lu(k,1864) * b(k,227) - b(k,153) = b(k,153) - lu(k,1863) * b(k,227) - b(k,149) = b(k,149) - lu(k,1862) * b(k,227) - b(k,148) = b(k,148) - lu(k,1861) * b(k,227) - b(k,146) = b(k,146) - lu(k,1860) * b(k,227) - b(k,144) = b(k,144) - lu(k,1859) * b(k,227) - b(k,139) = b(k,139) - lu(k,1858) * b(k,227) - b(k,138) = b(k,138) - lu(k,1857) * b(k,227) - b(k,137) = b(k,137) - lu(k,1856) * b(k,227) - b(k,135) = b(k,135) - lu(k,1855) * b(k,227) - b(k,131) = b(k,131) - lu(k,1854) * b(k,227) - b(k,130) = b(k,130) - lu(k,1853) * b(k,227) - b(k,129) = b(k,129) - lu(k,1852) * b(k,227) - b(k,127) = b(k,127) - lu(k,1851) * b(k,227) - b(k,126) = b(k,126) - lu(k,1850) * b(k,227) - b(k,125) = b(k,125) - lu(k,1849) * b(k,227) - b(k,108) = b(k,108) - lu(k,1848) * b(k,227) - b(k,107) = b(k,107) - lu(k,1847) * b(k,227) - b(k,98) = b(k,98) - lu(k,1846) * b(k,227) - b(k,88) = b(k,88) - lu(k,1845) * b(k,227) - b(k,87) = b(k,87) - lu(k,1844) * b(k,227) - b(k,53) = b(k,53) - lu(k,1843) * b(k,227) - b(k,52) = b(k,52) - lu(k,1842) * b(k,227) - b(k,51) = b(k,51) - lu(k,1841) * b(k,227) - b(k,49) = b(k,49) - lu(k,1840) * b(k,227) - b(k,48) = b(k,48) - lu(k,1839) * b(k,227) - b(k,47) = b(k,47) - lu(k,1838) * b(k,227) - b(k,46) = b(k,46) - lu(k,1837) * b(k,227) - b(k,43) = b(k,43) - lu(k,1836) * b(k,227) - b(k,42) = b(k,42) - lu(k,1835) * b(k,227) - b(k,41) = b(k,41) - lu(k,1834) * b(k,227) - b(k,40) = b(k,40) - lu(k,1833) * b(k,227) - b(k,39) = b(k,39) - lu(k,1832) * b(k,227) - b(k,226) = b(k,226) * lu(k,1818) - b(k,225) = b(k,225) - lu(k,1817) * b(k,226) - b(k,224) = b(k,224) - lu(k,1816) * b(k,226) - b(k,223) = b(k,223) - lu(k,1815) * b(k,226) - b(k,222) = b(k,222) - lu(k,1814) * b(k,226) - b(k,221) = b(k,221) - lu(k,1813) * b(k,226) - b(k,220) = b(k,220) - lu(k,1812) * b(k,226) - b(k,219) = b(k,219) - lu(k,1811) * b(k,226) - b(k,218) = b(k,218) - lu(k,1810) * b(k,226) - b(k,217) = b(k,217) - lu(k,1809) * b(k,226) - b(k,216) = b(k,216) - lu(k,1808) * b(k,226) - b(k,215) = b(k,215) - lu(k,1807) * b(k,226) - b(k,214) = b(k,214) - lu(k,1806) * b(k,226) - b(k,213) = b(k,213) - lu(k,1805) * b(k,226) - b(k,212) = b(k,212) - lu(k,1804) * b(k,226) - b(k,211) = b(k,211) - lu(k,1803) * b(k,226) - b(k,210) = b(k,210) - lu(k,1802) * b(k,226) - b(k,209) = b(k,209) - lu(k,1801) * b(k,226) - b(k,208) = b(k,208) - lu(k,1800) * b(k,226) - b(k,207) = b(k,207) - lu(k,1799) * b(k,226) - b(k,206) = b(k,206) - lu(k,1798) * b(k,226) - b(k,205) = b(k,205) - lu(k,1797) * b(k,226) - b(k,204) = b(k,204) - lu(k,1796) * b(k,226) - b(k,203) = b(k,203) - lu(k,1795) * b(k,226) - b(k,202) = b(k,202) - lu(k,1794) * b(k,226) - b(k,201) = b(k,201) - lu(k,1793) * b(k,226) - b(k,200) = b(k,200) - lu(k,1792) * b(k,226) - b(k,199) = b(k,199) - lu(k,1791) * b(k,226) - b(k,198) = b(k,198) - lu(k,1790) * b(k,226) - b(k,197) = b(k,197) - lu(k,1789) * b(k,226) - b(k,196) = b(k,196) - lu(k,1788) * b(k,226) - b(k,195) = b(k,195) - lu(k,1787) * b(k,226) - b(k,194) = b(k,194) - lu(k,1786) * b(k,226) - b(k,193) = b(k,193) - lu(k,1785) * b(k,226) - b(k,192) = b(k,192) - lu(k,1784) * b(k,226) - b(k,191) = b(k,191) - lu(k,1783) * b(k,226) - b(k,190) = b(k,190) - lu(k,1782) * b(k,226) - b(k,189) = b(k,189) - lu(k,1781) * b(k,226) - b(k,188) = b(k,188) - lu(k,1780) * b(k,226) - b(k,187) = b(k,187) - lu(k,1779) * b(k,226) - b(k,186) = b(k,186) - lu(k,1778) * b(k,226) - b(k,185) = b(k,185) - lu(k,1777) * b(k,226) - b(k,184) = b(k,184) - lu(k,1776) * b(k,226) - b(k,183) = b(k,183) - lu(k,1775) * b(k,226) - b(k,182) = b(k,182) - lu(k,1774) * b(k,226) - b(k,181) = b(k,181) - lu(k,1773) * b(k,226) - b(k,180) = b(k,180) - lu(k,1772) * b(k,226) - b(k,179) = b(k,179) - lu(k,1771) * b(k,226) - b(k,175) = b(k,175) - lu(k,1770) * b(k,226) - b(k,174) = b(k,174) - lu(k,1769) * b(k,226) - b(k,173) = b(k,173) - lu(k,1768) * b(k,226) - b(k,172) = b(k,172) - lu(k,1767) * b(k,226) - b(k,170) = b(k,170) - lu(k,1766) * b(k,226) - b(k,168) = b(k,168) - lu(k,1765) * b(k,226) - b(k,167) = b(k,167) - lu(k,1764) * b(k,226) - b(k,166) = b(k,166) - lu(k,1763) * b(k,226) - b(k,165) = b(k,165) - lu(k,1762) * b(k,226) - b(k,164) = b(k,164) - lu(k,1761) * b(k,226) - b(k,163) = b(k,163) - lu(k,1760) * b(k,226) - b(k,162) = b(k,162) - lu(k,1759) * b(k,226) - b(k,161) = b(k,161) - lu(k,1758) * b(k,226) - b(k,160) = b(k,160) - lu(k,1757) * b(k,226) - b(k,159) = b(k,159) - lu(k,1756) * b(k,226) - b(k,157) = b(k,157) - lu(k,1755) * b(k,226) - b(k,156) = b(k,156) - lu(k,1754) * b(k,226) - b(k,155) = b(k,155) - lu(k,1753) * b(k,226) - b(k,154) = b(k,154) - lu(k,1752) * b(k,226) - b(k,153) = b(k,153) - lu(k,1751) * b(k,226) - b(k,152) = b(k,152) - lu(k,1750) * b(k,226) - b(k,151) = b(k,151) - lu(k,1749) * b(k,226) - b(k,150) = b(k,150) - lu(k,1748) * b(k,226) - b(k,149) = b(k,149) - lu(k,1747) * b(k,226) - b(k,148) = b(k,148) - lu(k,1746) * b(k,226) - b(k,147) = b(k,147) - lu(k,1745) * b(k,226) - b(k,146) = b(k,146) - lu(k,1744) * b(k,226) - b(k,144) = b(k,144) - lu(k,1743) * b(k,226) - b(k,143) = b(k,143) - lu(k,1742) * b(k,226) - b(k,142) = b(k,142) - lu(k,1741) * b(k,226) - b(k,141) = b(k,141) - lu(k,1740) * b(k,226) - b(k,139) = b(k,139) - lu(k,1739) * b(k,226) - b(k,138) = b(k,138) - lu(k,1738) * b(k,226) - b(k,137) = b(k,137) - lu(k,1737) * b(k,226) - b(k,135) = b(k,135) - lu(k,1736) * b(k,226) - b(k,134) = b(k,134) - lu(k,1735) * b(k,226) - b(k,133) = b(k,133) - lu(k,1734) * b(k,226) - b(k,132) = b(k,132) - lu(k,1733) * b(k,226) - b(k,131) = b(k,131) - lu(k,1732) * b(k,226) - b(k,130) = b(k,130) - lu(k,1731) * b(k,226) - b(k,128) = b(k,128) - lu(k,1730) * b(k,226) - b(k,127) = b(k,127) - lu(k,1729) * b(k,226) - b(k,125) = b(k,125) - lu(k,1728) * b(k,226) - b(k,124) = b(k,124) - lu(k,1727) * b(k,226) - b(k,123) = b(k,123) - lu(k,1726) * b(k,226) - b(k,122) = b(k,122) - lu(k,1725) * b(k,226) - b(k,121) = b(k,121) - lu(k,1724) * b(k,226) - b(k,120) = b(k,120) - lu(k,1723) * b(k,226) - b(k,119) = b(k,119) - lu(k,1722) * b(k,226) - b(k,118) = b(k,118) - lu(k,1721) * b(k,226) - b(k,117) = b(k,117) - lu(k,1720) * b(k,226) - b(k,115) = b(k,115) - lu(k,1719) * b(k,226) - b(k,114) = b(k,114) - lu(k,1718) * b(k,226) - b(k,113) = b(k,113) - lu(k,1717) * b(k,226) - b(k,112) = b(k,112) - lu(k,1716) * b(k,226) - b(k,111) = b(k,111) - lu(k,1715) * b(k,226) - b(k,110) = b(k,110) - lu(k,1714) * b(k,226) - b(k,107) = b(k,107) - lu(k,1713) * b(k,226) - b(k,106) = b(k,106) - lu(k,1712) * b(k,226) - b(k,105) = b(k,105) - lu(k,1711) * b(k,226) - b(k,104) = b(k,104) - lu(k,1710) * b(k,226) - b(k,103) = b(k,103) - lu(k,1709) * b(k,226) - b(k,102) = b(k,102) - lu(k,1708) * b(k,226) - b(k,101) = b(k,101) - lu(k,1707) * b(k,226) - b(k,100) = b(k,100) - lu(k,1706) * b(k,226) - b(k,96) = b(k,96) - lu(k,1705) * b(k,226) - b(k,95) = b(k,95) - lu(k,1704) * b(k,226) - b(k,94) = b(k,94) - lu(k,1703) * b(k,226) - b(k,92) = b(k,92) - lu(k,1702) * b(k,226) - b(k,91) = b(k,91) - lu(k,1701) * b(k,226) - b(k,90) = b(k,90) - lu(k,1700) * b(k,226) - b(k,89) = b(k,89) - lu(k,1699) * b(k,226) - b(k,88) = b(k,88) - lu(k,1698) * b(k,226) - b(k,87) = b(k,87) - lu(k,1697) * b(k,226) - b(k,85) = b(k,85) - lu(k,1696) * b(k,226) - b(k,84) = b(k,84) - lu(k,1695) * b(k,226) - b(k,83) = b(k,83) - lu(k,1694) * b(k,226) - b(k,82) = b(k,82) - lu(k,1693) * b(k,226) - b(k,81) = b(k,81) - lu(k,1692) * b(k,226) - b(k,80) = b(k,80) - lu(k,1691) * b(k,226) - b(k,79) = b(k,79) - lu(k,1690) * b(k,226) - b(k,78) = b(k,78) - lu(k,1689) * b(k,226) - b(k,77) = b(k,77) - lu(k,1688) * b(k,226) - b(k,73) = b(k,73) - lu(k,1687) * b(k,226) - b(k,72) = b(k,72) - lu(k,1686) * b(k,226) - b(k,71) = b(k,71) - lu(k,1685) * b(k,226) - b(k,65) = b(k,65) - lu(k,1684) * b(k,226) - b(k,62) = b(k,62) - lu(k,1683) * b(k,226) - b(k,57) = b(k,57) - lu(k,1682) * b(k,226) - b(k,55) = b(k,55) - lu(k,1681) * b(k,226) - b(k,53) = b(k,53) - lu(k,1680) * b(k,226) - b(k,52) = b(k,52) - lu(k,1679) * b(k,226) - b(k,51) = b(k,51) - lu(k,1678) * b(k,226) - b(k,50) = b(k,50) - lu(k,1677) * b(k,226) - b(k,49) = b(k,49) - lu(k,1676) * b(k,226) - b(k,48) = b(k,48) - lu(k,1675) * b(k,226) - b(k,47) = b(k,47) - lu(k,1674) * b(k,226) - b(k,46) = b(k,46) - lu(k,1673) * b(k,226) - b(k,45) = b(k,45) - lu(k,1672) * b(k,226) - b(k,43) = b(k,43) - lu(k,1671) * b(k,226) - b(k,42) = b(k,42) - lu(k,1670) * b(k,226) - b(k,41) = b(k,41) - lu(k,1669) * b(k,226) - b(k,40) = b(k,40) - lu(k,1668) * b(k,226) - b(k,39) = b(k,39) - lu(k,1667) * b(k,226) + b(k,229) = b(k,229) * lu(k,1918) + b(k,228) = b(k,228) - lu(k,1917) * b(k,229) + b(k,227) = b(k,227) - lu(k,1916) * b(k,229) + b(k,226) = b(k,226) - lu(k,1915) * b(k,229) + b(k,225) = b(k,225) - lu(k,1914) * b(k,229) + b(k,224) = b(k,224) - lu(k,1913) * b(k,229) + b(k,223) = b(k,223) - lu(k,1912) * b(k,229) + b(k,222) = b(k,222) - lu(k,1911) * b(k,229) + b(k,221) = b(k,221) - lu(k,1910) * b(k,229) + b(k,220) = b(k,220) - lu(k,1909) * b(k,229) + b(k,218) = b(k,218) - lu(k,1908) * b(k,229) + b(k,217) = b(k,217) - lu(k,1907) * b(k,229) + b(k,201) = b(k,201) - lu(k,1906) * b(k,229) + b(k,183) = b(k,183) - lu(k,1905) * b(k,229) + b(k,174) = b(k,174) - lu(k,1904) * b(k,229) + b(k,126) = b(k,126) - lu(k,1903) * b(k,229) + b(k,228) = b(k,228) * lu(k,1891) + b(k,227) = b(k,227) - lu(k,1890) * b(k,228) + b(k,226) = b(k,226) - lu(k,1889) * b(k,228) + b(k,225) = b(k,225) - lu(k,1888) * b(k,228) + b(k,224) = b(k,224) - lu(k,1887) * b(k,228) + b(k,223) = b(k,223) - lu(k,1886) * b(k,228) + b(k,222) = b(k,222) - lu(k,1885) * b(k,228) + b(k,221) = b(k,221) - lu(k,1884) * b(k,228) + b(k,220) = b(k,220) - lu(k,1883) * b(k,228) + b(k,219) = b(k,219) - lu(k,1882) * b(k,228) + b(k,217) = b(k,217) - lu(k,1881) * b(k,228) + b(k,216) = b(k,216) - lu(k,1880) * b(k,228) + b(k,215) = b(k,215) - lu(k,1879) * b(k,228) + b(k,210) = b(k,210) - lu(k,1878) * b(k,228) + b(k,205) = b(k,205) - lu(k,1877) * b(k,228) + b(k,201) = b(k,201) - lu(k,1876) * b(k,228) + b(k,192) = b(k,192) - lu(k,1875) * b(k,228) + b(k,191) = b(k,191) - lu(k,1874) * b(k,228) + b(k,187) = b(k,187) - lu(k,1873) * b(k,228) + b(k,186) = b(k,186) - lu(k,1872) * b(k,228) + b(k,182) = b(k,182) - lu(k,1871) * b(k,228) + b(k,169) = b(k,169) - lu(k,1870) * b(k,228) + b(k,168) = b(k,168) - lu(k,1869) * b(k,228) + b(k,165) = b(k,165) - lu(k,1868) * b(k,228) + b(k,154) = b(k,154) - lu(k,1867) * b(k,228) + b(k,150) = b(k,150) - lu(k,1866) * b(k,228) + b(k,144) = b(k,144) - lu(k,1865) * b(k,228) + b(k,140) = b(k,140) - lu(k,1864) * b(k,228) + b(k,139) = b(k,139) - lu(k,1863) * b(k,228) + b(k,132) = b(k,132) - lu(k,1862) * b(k,228) + b(k,131) = b(k,131) - lu(k,1861) * b(k,228) + b(k,97) = b(k,97) - lu(k,1860) * b(k,228) + b(k,93) = b(k,93) - lu(k,1859) * b(k,228) + b(k,66) = b(k,66) - lu(k,1858) * b(k,228) + b(k,227) = b(k,227) * lu(k,1845) + b(k,226) = b(k,226) - lu(k,1844) * b(k,227) + b(k,225) = b(k,225) - lu(k,1843) * b(k,227) + b(k,224) = b(k,224) - lu(k,1842) * b(k,227) + b(k,223) = b(k,223) - lu(k,1841) * b(k,227) + b(k,222) = b(k,222) - lu(k,1840) * b(k,227) + b(k,221) = b(k,221) - lu(k,1839) * b(k,227) + b(k,220) = b(k,220) - lu(k,1838) * b(k,227) + b(k,218) = b(k,218) - lu(k,1837) * b(k,227) + b(k,217) = b(k,217) - lu(k,1836) * b(k,227) + b(k,216) = b(k,216) - lu(k,1835) * b(k,227) + b(k,210) = b(k,210) - lu(k,1834) * b(k,227) + b(k,206) = b(k,206) - lu(k,1833) * b(k,227) + b(k,202) = b(k,202) - lu(k,1832) * b(k,227) + b(k,201) = b(k,201) - lu(k,1831) * b(k,227) + b(k,200) = b(k,200) - lu(k,1830) * b(k,227) + b(k,195) = b(k,195) - lu(k,1829) * b(k,227) + b(k,191) = b(k,191) - lu(k,1828) * b(k,227) + b(k,187) = b(k,187) - lu(k,1827) * b(k,227) + b(k,185) = b(k,185) - lu(k,1826) * b(k,227) + b(k,183) = b(k,183) - lu(k,1825) * b(k,227) + b(k,181) = b(k,181) - lu(k,1824) * b(k,227) + b(k,175) = b(k,175) - lu(k,1823) * b(k,227) + b(k,170) = b(k,170) - lu(k,1822) * b(k,227) + b(k,149) = b(k,149) - lu(k,1821) * b(k,227) + b(k,147) = b(k,147) - lu(k,1820) * b(k,227) + b(k,142) = b(k,142) - lu(k,1819) * b(k,227) + b(k,133) = b(k,133) - lu(k,1818) * b(k,227) + b(k,117) = b(k,117) - lu(k,1817) * b(k,227) + b(k,115) = b(k,115) - lu(k,1816) * b(k,227) + b(k,103) = b(k,103) - lu(k,1815) * b(k,227) + b(k,102) = b(k,102) - lu(k,1814) * b(k,227) + b(k,100) = b(k,100) - lu(k,1813) * b(k,227) + b(k,74) = b(k,74) - lu(k,1812) * b(k,227) + b(k,226) = b(k,226) * lu(k,1798) + b(k,225) = b(k,225) - lu(k,1797) * b(k,226) + b(k,224) = b(k,224) - lu(k,1796) * b(k,226) + b(k,223) = b(k,223) - lu(k,1795) * b(k,226) + b(k,222) = b(k,222) - lu(k,1794) * b(k,226) + b(k,221) = b(k,221) - lu(k,1793) * b(k,226) + b(k,220) = b(k,220) - lu(k,1792) * b(k,226) + b(k,219) = b(k,219) - lu(k,1791) * b(k,226) + b(k,218) = b(k,218) - lu(k,1790) * b(k,226) + b(k,217) = b(k,217) - lu(k,1789) * b(k,226) + b(k,216) = b(k,216) - lu(k,1788) * b(k,226) + b(k,215) = b(k,215) - lu(k,1787) * b(k,226) + b(k,214) = b(k,214) - lu(k,1786) * b(k,226) + b(k,213) = b(k,213) - lu(k,1785) * b(k,226) + b(k,212) = b(k,212) - lu(k,1784) * b(k,226) + b(k,211) = b(k,211) - lu(k,1783) * b(k,226) + b(k,210) = b(k,210) - lu(k,1782) * b(k,226) + b(k,209) = b(k,209) - lu(k,1781) * b(k,226) + b(k,208) = b(k,208) - lu(k,1780) * b(k,226) + b(k,207) = b(k,207) - lu(k,1779) * b(k,226) + b(k,206) = b(k,206) - lu(k,1778) * b(k,226) + b(k,205) = b(k,205) - lu(k,1777) * b(k,226) + b(k,204) = b(k,204) - lu(k,1776) * b(k,226) + b(k,203) = b(k,203) - lu(k,1775) * b(k,226) + b(k,202) = b(k,202) - lu(k,1774) * b(k,226) + b(k,201) = b(k,201) - lu(k,1773) * b(k,226) + b(k,200) = b(k,200) - lu(k,1772) * b(k,226) + b(k,199) = b(k,199) - lu(k,1771) * b(k,226) + b(k,198) = b(k,198) - lu(k,1770) * b(k,226) + b(k,197) = b(k,197) - lu(k,1769) * b(k,226) + b(k,196) = b(k,196) - lu(k,1768) * b(k,226) + b(k,195) = b(k,195) - lu(k,1767) * b(k,226) + b(k,194) = b(k,194) - lu(k,1766) * b(k,226) + b(k,193) = b(k,193) - lu(k,1765) * b(k,226) + b(k,192) = b(k,192) - lu(k,1764) * b(k,226) + b(k,191) = b(k,191) - lu(k,1763) * b(k,226) + b(k,190) = b(k,190) - lu(k,1762) * b(k,226) + b(k,189) = b(k,189) - lu(k,1761) * b(k,226) + b(k,188) = b(k,188) - lu(k,1760) * b(k,226) + b(k,187) = b(k,187) - lu(k,1759) * b(k,226) + b(k,186) = b(k,186) - lu(k,1758) * b(k,226) + b(k,185) = b(k,185) - lu(k,1757) * b(k,226) + b(k,184) = b(k,184) - lu(k,1756) * b(k,226) + b(k,183) = b(k,183) - lu(k,1755) * b(k,226) + b(k,182) = b(k,182) - lu(k,1754) * b(k,226) + b(k,181) = b(k,181) - lu(k,1753) * b(k,226) + b(k,180) = b(k,180) - lu(k,1752) * b(k,226) + b(k,179) = b(k,179) - lu(k,1751) * b(k,226) + b(k,175) = b(k,175) - lu(k,1750) * b(k,226) + b(k,174) = b(k,174) - lu(k,1749) * b(k,226) + b(k,173) = b(k,173) - lu(k,1748) * b(k,226) + b(k,172) = b(k,172) - lu(k,1747) * b(k,226) + b(k,170) = b(k,170) - lu(k,1746) * b(k,226) + b(k,168) = b(k,168) - lu(k,1745) * b(k,226) + b(k,167) = b(k,167) - lu(k,1744) * b(k,226) + b(k,166) = b(k,166) - lu(k,1743) * b(k,226) + b(k,165) = b(k,165) - lu(k,1742) * b(k,226) + b(k,164) = b(k,164) - lu(k,1741) * b(k,226) + b(k,163) = b(k,163) - lu(k,1740) * b(k,226) + b(k,162) = b(k,162) - lu(k,1739) * b(k,226) + b(k,161) = b(k,161) - lu(k,1738) * b(k,226) + b(k,160) = b(k,160) - lu(k,1737) * b(k,226) + b(k,159) = b(k,159) - lu(k,1736) * b(k,226) + b(k,158) = b(k,158) - lu(k,1735) * b(k,226) + b(k,157) = b(k,157) - lu(k,1734) * b(k,226) + b(k,156) = b(k,156) - lu(k,1733) * b(k,226) + b(k,154) = b(k,154) - lu(k,1732) * b(k,226) + b(k,153) = b(k,153) - lu(k,1731) * b(k,226) + b(k,151) = b(k,151) - lu(k,1730) * b(k,226) + b(k,150) = b(k,150) - lu(k,1729) * b(k,226) + b(k,149) = b(k,149) - lu(k,1728) * b(k,226) + b(k,148) = b(k,148) - lu(k,1727) * b(k,226) + b(k,147) = b(k,147) - lu(k,1726) * b(k,226) + b(k,146) = b(k,146) - lu(k,1725) * b(k,226) + b(k,145) = b(k,145) - lu(k,1724) * b(k,226) + b(k,143) = b(k,143) - lu(k,1723) * b(k,226) + b(k,142) = b(k,142) - lu(k,1722) * b(k,226) + b(k,141) = b(k,141) - lu(k,1721) * b(k,226) + b(k,140) = b(k,140) - lu(k,1720) * b(k,226) + b(k,139) = b(k,139) - lu(k,1719) * b(k,226) + b(k,138) = b(k,138) - lu(k,1718) * b(k,226) + b(k,137) = b(k,137) - lu(k,1717) * b(k,226) + b(k,135) = b(k,135) - lu(k,1716) * b(k,226) + b(k,134) = b(k,134) - lu(k,1715) * b(k,226) + b(k,133) = b(k,133) - lu(k,1714) * b(k,226) + b(k,132) = b(k,132) - lu(k,1713) * b(k,226) + b(k,131) = b(k,131) - lu(k,1712) * b(k,226) + b(k,130) = b(k,130) - lu(k,1711) * b(k,226) + b(k,128) = b(k,128) - lu(k,1710) * b(k,226) + b(k,127) = b(k,127) - lu(k,1709) * b(k,226) + b(k,125) = b(k,125) - lu(k,1708) * b(k,226) + b(k,124) = b(k,124) - lu(k,1707) * b(k,226) + b(k,123) = b(k,123) - lu(k,1706) * b(k,226) + b(k,122) = b(k,122) - lu(k,1705) * b(k,226) + b(k,121) = b(k,121) - lu(k,1704) * b(k,226) + b(k,120) = b(k,120) - lu(k,1703) * b(k,226) + b(k,119) = b(k,119) - lu(k,1702) * b(k,226) + b(k,118) = b(k,118) - lu(k,1701) * b(k,226) + b(k,117) = b(k,117) - lu(k,1700) * b(k,226) + b(k,115) = b(k,115) - lu(k,1699) * b(k,226) + b(k,114) = b(k,114) - lu(k,1698) * b(k,226) + b(k,113) = b(k,113) - lu(k,1697) * b(k,226) + b(k,112) = b(k,112) - lu(k,1696) * b(k,226) + b(k,111) = b(k,111) - lu(k,1695) * b(k,226) + b(k,110) = b(k,110) - lu(k,1694) * b(k,226) + b(k,107) = b(k,107) - lu(k,1693) * b(k,226) + b(k,106) = b(k,106) - lu(k,1692) * b(k,226) + b(k,105) = b(k,105) - lu(k,1691) * b(k,226) + b(k,104) = b(k,104) - lu(k,1690) * b(k,226) + b(k,103) = b(k,103) - lu(k,1689) * b(k,226) + b(k,102) = b(k,102) - lu(k,1688) * b(k,226) + b(k,101) = b(k,101) - lu(k,1687) * b(k,226) + b(k,100) = b(k,100) - lu(k,1686) * b(k,226) + b(k,96) = b(k,96) - lu(k,1685) * b(k,226) + b(k,95) = b(k,95) - lu(k,1684) * b(k,226) + b(k,94) = b(k,94) - lu(k,1683) * b(k,226) + b(k,92) = b(k,92) - lu(k,1682) * b(k,226) + b(k,91) = b(k,91) - lu(k,1681) * b(k,226) + b(k,90) = b(k,90) - lu(k,1680) * b(k,226) + b(k,89) = b(k,89) - lu(k,1679) * b(k,226) + b(k,88) = b(k,88) - lu(k,1678) * b(k,226) + b(k,87) = b(k,87) - lu(k,1677) * b(k,226) + b(k,85) = b(k,85) - lu(k,1676) * b(k,226) + b(k,84) = b(k,84) - lu(k,1675) * b(k,226) + b(k,83) = b(k,83) - lu(k,1674) * b(k,226) + b(k,82) = b(k,82) - lu(k,1673) * b(k,226) + b(k,81) = b(k,81) - lu(k,1672) * b(k,226) + b(k,80) = b(k,80) - lu(k,1671) * b(k,226) + b(k,79) = b(k,79) - lu(k,1670) * b(k,226) + b(k,78) = b(k,78) - lu(k,1669) * b(k,226) + b(k,77) = b(k,77) - lu(k,1668) * b(k,226) + b(k,73) = b(k,73) - lu(k,1667) * b(k,226) + b(k,72) = b(k,72) - lu(k,1666) * b(k,226) + b(k,71) = b(k,71) - lu(k,1665) * b(k,226) + b(k,65) = b(k,65) - lu(k,1664) * b(k,226) + b(k,62) = b(k,62) - lu(k,1663) * b(k,226) + b(k,57) = b(k,57) - lu(k,1662) * b(k,226) + b(k,55) = b(k,55) - lu(k,1661) * b(k,226) + b(k,53) = b(k,53) - lu(k,1660) * b(k,226) + b(k,52) = b(k,52) - lu(k,1659) * b(k,226) + b(k,51) = b(k,51) - lu(k,1658) * b(k,226) + b(k,50) = b(k,50) - lu(k,1657) * b(k,226) + b(k,49) = b(k,49) - lu(k,1656) * b(k,226) + b(k,48) = b(k,48) - lu(k,1655) * b(k,226) + b(k,47) = b(k,47) - lu(k,1654) * b(k,226) + b(k,46) = b(k,46) - lu(k,1653) * b(k,226) + b(k,45) = b(k,45) - lu(k,1652) * b(k,226) + b(k,43) = b(k,43) - lu(k,1651) * b(k,226) + b(k,42) = b(k,42) - lu(k,1650) * b(k,226) + b(k,41) = b(k,41) - lu(k,1649) * b(k,226) + b(k,40) = b(k,40) - lu(k,1648) * b(k,226) + b(k,39) = b(k,39) - lu(k,1647) * b(k,226) end do end subroutine lu_slv09 subroutine lu_slv10( avec_len, lu, b ) @@ -2072,213 +2094,211 @@ subroutine lu_slv10( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,225) = b(k,225) * lu(k,1652) - b(k,224) = b(k,224) - lu(k,1651) * b(k,225) - b(k,223) = b(k,223) - lu(k,1650) * b(k,225) - b(k,222) = b(k,222) - lu(k,1649) * b(k,225) - b(k,221) = b(k,221) - lu(k,1648) * b(k,225) - b(k,219) = b(k,219) - lu(k,1647) * b(k,225) - b(k,217) = b(k,217) - lu(k,1646) * b(k,225) - b(k,216) = b(k,216) - lu(k,1645) * b(k,225) - b(k,215) = b(k,215) - lu(k,1644) * b(k,225) - b(k,214) = b(k,214) - lu(k,1643) * b(k,225) - b(k,213) = b(k,213) - lu(k,1642) * b(k,225) - b(k,212) = b(k,212) - lu(k,1641) * b(k,225) - b(k,211) = b(k,211) - lu(k,1640) * b(k,225) - b(k,210) = b(k,210) - lu(k,1639) * b(k,225) - b(k,209) = b(k,209) - lu(k,1638) * b(k,225) - b(k,208) = b(k,208) - lu(k,1637) * b(k,225) - b(k,207) = b(k,207) - lu(k,1636) * b(k,225) - b(k,206) = b(k,206) - lu(k,1635) * b(k,225) - b(k,205) = b(k,205) - lu(k,1634) * b(k,225) - b(k,204) = b(k,204) - lu(k,1633) * b(k,225) - b(k,203) = b(k,203) - lu(k,1632) * b(k,225) - b(k,202) = b(k,202) - lu(k,1631) * b(k,225) - b(k,201) = b(k,201) - lu(k,1630) * b(k,225) - b(k,200) = b(k,200) - lu(k,1629) * b(k,225) - b(k,199) = b(k,199) - lu(k,1628) * b(k,225) - b(k,198) = b(k,198) - lu(k,1627) * b(k,225) - b(k,197) = b(k,197) - lu(k,1626) * b(k,225) - b(k,196) = b(k,196) - lu(k,1625) * b(k,225) - b(k,195) = b(k,195) - lu(k,1624) * b(k,225) - b(k,194) = b(k,194) - lu(k,1623) * b(k,225) - b(k,193) = b(k,193) - lu(k,1622) * b(k,225) - b(k,192) = b(k,192) - lu(k,1621) * b(k,225) - b(k,191) = b(k,191) - lu(k,1620) * b(k,225) - b(k,190) = b(k,190) - lu(k,1619) * b(k,225) - b(k,188) = b(k,188) - lu(k,1618) * b(k,225) - b(k,186) = b(k,186) - lu(k,1617) * b(k,225) - b(k,183) = b(k,183) - lu(k,1616) * b(k,225) - b(k,180) = b(k,180) - lu(k,1615) * b(k,225) - b(k,179) = b(k,179) - lu(k,1614) * b(k,225) - b(k,146) = b(k,146) - lu(k,1613) * b(k,225) - b(k,113) = b(k,113) - lu(k,1612) * b(k,225) - b(k,107) = b(k,107) - lu(k,1611) * b(k,225) - b(k,104) = b(k,104) - lu(k,1610) * b(k,225) - b(k,97) = b(k,97) - lu(k,1609) * b(k,225) - b(k,43) = b(k,43) - lu(k,1608) * b(k,225) - b(k,42) = b(k,42) - lu(k,1607) * b(k,225) - b(k,224) = b(k,224) * lu(k,1592) - b(k,223) = b(k,223) - lu(k,1591) * b(k,224) - b(k,222) = b(k,222) - lu(k,1590) * b(k,224) - b(k,221) = b(k,221) - lu(k,1589) * b(k,224) - b(k,220) = b(k,220) - lu(k,1588) * b(k,224) - b(k,219) = b(k,219) - lu(k,1587) * b(k,224) - b(k,187) = b(k,187) - lu(k,1586) * b(k,224) - b(k,186) = b(k,186) - lu(k,1585) * b(k,224) - b(k,175) = b(k,175) - lu(k,1584) * b(k,224) - b(k,109) = b(k,109) - lu(k,1583) * b(k,224) - b(k,86) = b(k,86) - lu(k,1582) * b(k,224) - b(k,74) = b(k,74) - lu(k,1581) * b(k,224) - b(k,54) = b(k,54) - lu(k,1580) * b(k,224) - b(k,223) = b(k,223) * lu(k,1565) - b(k,222) = b(k,222) - lu(k,1564) * b(k,223) - b(k,221) = b(k,221) - lu(k,1563) * b(k,223) - b(k,220) = b(k,220) - lu(k,1562) * b(k,223) - b(k,219) = b(k,219) - lu(k,1561) * b(k,223) - b(k,186) = b(k,186) - lu(k,1560) * b(k,223) - b(k,169) = b(k,169) - lu(k,1559) * b(k,223) - b(k,145) = b(k,145) - lu(k,1558) * b(k,223) - b(k,109) = b(k,109) - lu(k,1557) * b(k,223) - b(k,86) = b(k,86) - lu(k,1556) * b(k,223) - b(k,222) = b(k,222) * lu(k,1542) - b(k,221) = b(k,221) - lu(k,1541) * b(k,222) - b(k,219) = b(k,219) - lu(k,1540) * b(k,222) - b(k,217) = b(k,217) - lu(k,1539) * b(k,222) - b(k,202) = b(k,202) - lu(k,1538) * b(k,222) - b(k,201) = b(k,201) - lu(k,1537) * b(k,222) - b(k,189) = b(k,189) - lu(k,1536) * b(k,222) - b(k,186) = b(k,186) - lu(k,1535) * b(k,222) - b(k,178) = b(k,178) - lu(k,1534) * b(k,222) - b(k,177) = b(k,177) - lu(k,1533) * b(k,222) - b(k,176) = b(k,176) - lu(k,1532) * b(k,222) - b(k,171) = b(k,171) - lu(k,1531) * b(k,222) - b(k,163) = b(k,163) - lu(k,1530) * b(k,222) - b(k,158) = b(k,158) - lu(k,1529) * b(k,222) - b(k,140) = b(k,140) - lu(k,1528) * b(k,222) - b(k,136) = b(k,136) - lu(k,1527) * b(k,222) - b(k,129) = b(k,129) - lu(k,1526) * b(k,222) - b(k,76) = b(k,76) - lu(k,1525) * b(k,222) - b(k,75) = b(k,75) - lu(k,1524) * b(k,222) - b(k,221) = b(k,221) * lu(k,1511) - b(k,217) = b(k,217) - lu(k,1510) * b(k,221) - b(k,201) = b(k,201) - lu(k,1509) * b(k,221) - b(k,174) = b(k,174) - lu(k,1508) * b(k,221) - b(k,220) = b(k,220) * lu(k,1495) - b(k,187) = b(k,187) - lu(k,1494) * b(k,220) - b(k,175) = b(k,175) - lu(k,1493) * b(k,220) - b(k,169) = b(k,169) - lu(k,1492) * b(k,220) - b(k,86) = b(k,86) - lu(k,1491) * b(k,220) - b(k,74) = b(k,74) - lu(k,1490) * b(k,220) - b(k,219) = b(k,219) * lu(k,1476) - b(k,186) = b(k,186) - lu(k,1475) * b(k,219) - b(k,163) = b(k,163) - lu(k,1474) * b(k,219) - b(k,109) = b(k,109) - lu(k,1473) * b(k,219) - b(k,218) = b(k,218) * lu(k,1461) - b(k,184) = b(k,184) - lu(k,1460) * b(k,218) - b(k,99) = b(k,99) - lu(k,1459) * b(k,218) - b(k,217) = b(k,217) * lu(k,1450) - b(k,201) = b(k,201) - lu(k,1449) * b(k,217) - b(k,189) = b(k,189) - lu(k,1448) * b(k,217) - b(k,178) = b(k,178) - lu(k,1447) * b(k,217) - b(k,177) = b(k,177) - lu(k,1446) * b(k,217) - b(k,176) = b(k,176) - lu(k,1445) * b(k,217) - b(k,171) = b(k,171) - lu(k,1444) * b(k,217) - b(k,76) = b(k,76) - lu(k,1443) * b(k,217) - b(k,75) = b(k,75) - lu(k,1442) * b(k,217) - b(k,216) = b(k,216) * lu(k,1428) - b(k,215) = b(k,215) - lu(k,1427) * b(k,216) - b(k,214) = b(k,214) - lu(k,1426) * b(k,216) - b(k,213) = b(k,213) - lu(k,1425) * b(k,216) - b(k,212) = b(k,212) - lu(k,1424) * b(k,216) - b(k,211) = b(k,211) - lu(k,1423) * b(k,216) - b(k,210) = b(k,210) - lu(k,1422) * b(k,216) - b(k,209) = b(k,209) - lu(k,1421) * b(k,216) - b(k,208) = b(k,208) - lu(k,1420) * b(k,216) - b(k,207) = b(k,207) - lu(k,1419) * b(k,216) - b(k,205) = b(k,205) - lu(k,1418) * b(k,216) - b(k,202) = b(k,202) - lu(k,1417) * b(k,216) - b(k,201) = b(k,201) - lu(k,1416) * b(k,216) - b(k,196) = b(k,196) - lu(k,1415) * b(k,216) - b(k,192) = b(k,192) - lu(k,1414) * b(k,216) - b(k,161) = b(k,161) - lu(k,1413) * b(k,216) - b(k,152) = b(k,152) - lu(k,1412) * b(k,216) - b(k,141) = b(k,141) - lu(k,1411) * b(k,216) - b(k,107) = b(k,107) - lu(k,1410) * b(k,216) - b(k,215) = b(k,215) * lu(k,1397) - b(k,210) = b(k,210) - lu(k,1396) * b(k,215) - b(k,205) = b(k,205) - lu(k,1395) * b(k,215) - b(k,161) = b(k,161) - lu(k,1394) * b(k,215) - b(k,152) = b(k,152) - lu(k,1393) * b(k,215) + b(k,225) = b(k,225) * lu(k,1632) + b(k,224) = b(k,224) - lu(k,1631) * b(k,225) + b(k,223) = b(k,223) - lu(k,1630) * b(k,225) + b(k,222) = b(k,222) - lu(k,1629) * b(k,225) + b(k,221) = b(k,221) - lu(k,1628) * b(k,225) + b(k,220) = b(k,220) - lu(k,1627) * b(k,225) + b(k,218) = b(k,218) - lu(k,1626) * b(k,225) + b(k,184) = b(k,184) - lu(k,1625) * b(k,225) + b(k,174) = b(k,174) - lu(k,1624) * b(k,225) + b(k,149) = b(k,149) - lu(k,1623) * b(k,225) + b(k,133) = b(k,133) - lu(k,1622) * b(k,225) + b(k,117) = b(k,117) - lu(k,1621) * b(k,225) + b(k,101) = b(k,101) - lu(k,1620) * b(k,225) + b(k,93) = b(k,93) - lu(k,1619) * b(k,225) + b(k,92) = b(k,92) - lu(k,1618) * b(k,225) + b(k,91) = b(k,91) - lu(k,1617) * b(k,225) + b(k,90) = b(k,90) - lu(k,1616) * b(k,225) + b(k,89) = b(k,89) - lu(k,1615) * b(k,225) + b(k,77) = b(k,77) - lu(k,1614) * b(k,225) + b(k,76) = b(k,76) - lu(k,1613) * b(k,225) + b(k,70) = b(k,70) - lu(k,1612) * b(k,225) + b(k,69) = b(k,69) - lu(k,1611) * b(k,225) + b(k,68) = b(k,68) - lu(k,1610) * b(k,225) + b(k,67) = b(k,67) - lu(k,1609) * b(k,225) + b(k,61) = b(k,61) - lu(k,1608) * b(k,225) + b(k,60) = b(k,60) - lu(k,1607) * b(k,225) + b(k,59) = b(k,59) - lu(k,1606) * b(k,225) + b(k,58) = b(k,58) - lu(k,1605) * b(k,225) + b(k,56) = b(k,56) - lu(k,1604) * b(k,225) + b(k,224) = b(k,224) * lu(k,1589) + b(k,222) = b(k,222) - lu(k,1588) * b(k,224) + b(k,221) = b(k,221) - lu(k,1587) * b(k,224) + b(k,220) = b(k,220) - lu(k,1586) * b(k,224) + b(k,219) = b(k,219) - lu(k,1585) * b(k,224) + b(k,186) = b(k,186) - lu(k,1584) * b(k,224) + b(k,169) = b(k,169) - lu(k,1583) * b(k,224) + b(k,144) = b(k,144) - lu(k,1582) * b(k,224) + b(k,109) = b(k,109) - lu(k,1581) * b(k,224) + b(k,86) = b(k,86) - lu(k,1580) * b(k,224) + b(k,223) = b(k,223) * lu(k,1563) + b(k,222) = b(k,222) - lu(k,1562) * b(k,223) + b(k,221) = b(k,221) - lu(k,1561) * b(k,223) + b(k,220) = b(k,220) - lu(k,1560) * b(k,223) + b(k,218) = b(k,218) - lu(k,1559) * b(k,223) + b(k,217) = b(k,217) - lu(k,1558) * b(k,223) + b(k,201) = b(k,201) - lu(k,1557) * b(k,223) + b(k,184) = b(k,184) - lu(k,1556) * b(k,223) + b(k,99) = b(k,99) - lu(k,1555) * b(k,223) + b(k,222) = b(k,222) * lu(k,1541) + b(k,221) = b(k,221) - lu(k,1540) * b(k,222) + b(k,219) = b(k,219) - lu(k,1539) * b(k,222) + b(k,217) = b(k,217) - lu(k,1538) * b(k,222) + b(k,202) = b(k,202) - lu(k,1537) * b(k,222) + b(k,201) = b(k,201) - lu(k,1536) * b(k,222) + b(k,192) = b(k,192) - lu(k,1535) * b(k,222) + b(k,186) = b(k,186) - lu(k,1534) * b(k,222) + b(k,178) = b(k,178) - lu(k,1533) * b(k,222) + b(k,177) = b(k,177) - lu(k,1532) * b(k,222) + b(k,176) = b(k,176) - lu(k,1531) * b(k,222) + b(k,171) = b(k,171) - lu(k,1530) * b(k,222) + b(k,164) = b(k,164) - lu(k,1529) * b(k,222) + b(k,155) = b(k,155) - lu(k,1528) * b(k,222) + b(k,152) = b(k,152) - lu(k,1527) * b(k,222) + b(k,136) = b(k,136) - lu(k,1526) * b(k,222) + b(k,129) = b(k,129) - lu(k,1525) * b(k,222) + b(k,76) = b(k,76) - lu(k,1524) * b(k,222) + b(k,75) = b(k,75) - lu(k,1523) * b(k,222) + b(k,221) = b(k,221) * lu(k,1510) + b(k,217) = b(k,217) - lu(k,1509) * b(k,221) + b(k,201) = b(k,201) - lu(k,1508) * b(k,221) + b(k,174) = b(k,174) - lu(k,1507) * b(k,221) + b(k,220) = b(k,220) * lu(k,1494) + b(k,187) = b(k,187) - lu(k,1493) * b(k,220) + b(k,175) = b(k,175) - lu(k,1492) * b(k,220) + b(k,169) = b(k,169) - lu(k,1491) * b(k,220) + b(k,86) = b(k,86) - lu(k,1490) * b(k,220) + b(k,74) = b(k,74) - lu(k,1489) * b(k,220) + b(k,219) = b(k,219) * lu(k,1475) + b(k,186) = b(k,186) - lu(k,1474) * b(k,219) + b(k,164) = b(k,164) - lu(k,1473) * b(k,219) + b(k,109) = b(k,109) - lu(k,1472) * b(k,219) + b(k,218) = b(k,218) * lu(k,1460) + b(k,184) = b(k,184) - lu(k,1459) * b(k,218) + b(k,99) = b(k,99) - lu(k,1458) * b(k,218) + b(k,217) = b(k,217) * lu(k,1449) + b(k,201) = b(k,201) - lu(k,1448) * b(k,217) + b(k,192) = b(k,192) - lu(k,1447) * b(k,217) + b(k,178) = b(k,178) - lu(k,1446) * b(k,217) + b(k,177) = b(k,177) - lu(k,1445) * b(k,217) + b(k,176) = b(k,176) - lu(k,1444) * b(k,217) + b(k,171) = b(k,171) - lu(k,1443) * b(k,217) + b(k,76) = b(k,76) - lu(k,1442) * b(k,217) + b(k,75) = b(k,75) - lu(k,1441) * b(k,217) + b(k,216) = b(k,216) * lu(k,1427) + b(k,215) = b(k,215) - lu(k,1426) * b(k,216) + b(k,214) = b(k,214) - lu(k,1425) * b(k,216) + b(k,213) = b(k,213) - lu(k,1424) * b(k,216) + b(k,212) = b(k,212) - lu(k,1423) * b(k,216) + b(k,211) = b(k,211) - lu(k,1422) * b(k,216) + b(k,210) = b(k,210) - lu(k,1421) * b(k,216) + b(k,209) = b(k,209) - lu(k,1420) * b(k,216) + b(k,208) = b(k,208) - lu(k,1419) * b(k,216) + b(k,207) = b(k,207) - lu(k,1418) * b(k,216) + b(k,205) = b(k,205) - lu(k,1417) * b(k,216) + b(k,202) = b(k,202) - lu(k,1416) * b(k,216) + b(k,201) = b(k,201) - lu(k,1415) * b(k,216) + b(k,196) = b(k,196) - lu(k,1414) * b(k,216) + b(k,191) = b(k,191) - lu(k,1413) * b(k,216) + b(k,161) = b(k,161) - lu(k,1412) * b(k,216) + b(k,151) = b(k,151) - lu(k,1411) * b(k,216) + b(k,140) = b(k,140) - lu(k,1410) * b(k,216) + b(k,107) = b(k,107) - lu(k,1409) * b(k,216) + b(k,215) = b(k,215) * lu(k,1396) + b(k,210) = b(k,210) - lu(k,1395) * b(k,215) + b(k,205) = b(k,205) - lu(k,1394) * b(k,215) + b(k,161) = b(k,161) - lu(k,1393) * b(k,215) b(k,151) = b(k,151) - lu(k,1392) * b(k,215) - b(k,214) = b(k,214) * lu(k,1376) - b(k,213) = b(k,213) - lu(k,1375) * b(k,214) - b(k,210) = b(k,210) - lu(k,1374) * b(k,214) - b(k,205) = b(k,205) - lu(k,1373) * b(k,214) - b(k,201) = b(k,201) - lu(k,1372) * b(k,214) - b(k,200) = b(k,200) - lu(k,1371) * b(k,214) - b(k,199) = b(k,199) - lu(k,1370) * b(k,214) - b(k,183) = b(k,183) - lu(k,1369) * b(k,214) - b(k,213) = b(k,213) * lu(k,1356) - b(k,210) = b(k,210) - lu(k,1355) * b(k,213) - b(k,206) = b(k,206) - lu(k,1354) * b(k,213) - b(k,205) = b(k,205) - lu(k,1353) * b(k,213) - b(k,204) = b(k,204) - lu(k,1352) * b(k,213) - b(k,202) = b(k,202) - lu(k,1351) * b(k,213) - b(k,201) = b(k,201) - lu(k,1350) * b(k,213) - b(k,173) = b(k,173) - lu(k,1349) * b(k,213) - b(k,105) = b(k,105) - lu(k,1348) * b(k,213) - b(k,212) = b(k,212) * lu(k,1332) - b(k,210) = b(k,210) - lu(k,1331) * b(k,212) - b(k,209) = b(k,209) - lu(k,1330) * b(k,212) - b(k,207) = b(k,207) - lu(k,1329) * b(k,212) - b(k,206) = b(k,206) - lu(k,1328) * b(k,212) - b(k,205) = b(k,205) - lu(k,1327) * b(k,212) - b(k,204) = b(k,204) - lu(k,1326) * b(k,212) - b(k,202) = b(k,202) - lu(k,1325) * b(k,212) - b(k,201) = b(k,201) - lu(k,1324) * b(k,212) - b(k,192) = b(k,192) - lu(k,1323) * b(k,212) - b(k,182) = b(k,182) - lu(k,1322) * b(k,212) - b(k,180) = b(k,180) - lu(k,1321) * b(k,212) - b(k,173) = b(k,173) - lu(k,1320) * b(k,212) - b(k,162) = b(k,162) - lu(k,1319) * b(k,212) - b(k,149) = b(k,149) - lu(k,1318) * b(k,212) - b(k,144) = b(k,144) - lu(k,1317) * b(k,212) - b(k,107) = b(k,107) - lu(k,1316) * b(k,212) - b(k,84) = b(k,84) - lu(k,1315) * b(k,212) - b(k,211) = b(k,211) * lu(k,1299) - b(k,210) = b(k,210) - lu(k,1298) * b(k,211) - b(k,209) = b(k,209) - lu(k,1297) * b(k,211) - b(k,207) = b(k,207) - lu(k,1296) * b(k,211) - b(k,206) = b(k,206) - lu(k,1295) * b(k,211) - b(k,205) = b(k,205) - lu(k,1294) * b(k,211) - b(k,204) = b(k,204) - lu(k,1293) * b(k,211) - b(k,202) = b(k,202) - lu(k,1292) * b(k,211) - b(k,173) = b(k,173) - lu(k,1291) * b(k,211) - b(k,162) = b(k,162) - lu(k,1290) * b(k,211) - b(k,148) = b(k,148) - lu(k,1289) * b(k,211) - b(k,210) = b(k,210) * lu(k,1281) - b(k,201) = b(k,201) - lu(k,1280) * b(k,210) - b(k,209) = b(k,209) * lu(k,1269) - b(k,201) = b(k,201) - lu(k,1268) * b(k,209) - b(k,183) = b(k,183) - lu(k,1267) * b(k,209) - b(k,208) = b(k,208) * lu(k,1253) - b(k,207) = b(k,207) - lu(k,1252) * b(k,208) - b(k,202) = b(k,202) - lu(k,1251) * b(k,208) - b(k,201) = b(k,201) - lu(k,1250) * b(k,208) - b(k,196) = b(k,196) - lu(k,1249) * b(k,208) - b(k,180) = b(k,180) - lu(k,1248) * b(k,208) - b(k,173) = b(k,173) - lu(k,1247) * b(k,208) - b(k,162) = b(k,162) - lu(k,1246) * b(k,208) - b(k,124) = b(k,124) - lu(k,1245) * b(k,208) - b(k,120) = b(k,120) - lu(k,1244) * b(k,208) - b(k,207) = b(k,207) * lu(k,1233) - b(k,205) = b(k,205) - lu(k,1232) * b(k,207) - b(k,202) = b(k,202) - lu(k,1231) * b(k,207) - b(k,201) = b(k,201) - lu(k,1230) * b(k,207) - b(k,192) = b(k,192) - lu(k,1229) * b(k,207) - b(k,173) = b(k,173) - lu(k,1228) * b(k,207) - b(k,81) = b(k,81) - lu(k,1227) * b(k,207) + b(k,150) = b(k,150) - lu(k,1391) * b(k,215) + b(k,214) = b(k,214) * lu(k,1375) + b(k,213) = b(k,213) - lu(k,1374) * b(k,214) + b(k,210) = b(k,210) - lu(k,1373) * b(k,214) + b(k,205) = b(k,205) - lu(k,1372) * b(k,214) + b(k,201) = b(k,201) - lu(k,1371) * b(k,214) + b(k,200) = b(k,200) - lu(k,1370) * b(k,214) + b(k,199) = b(k,199) - lu(k,1369) * b(k,214) + b(k,183) = b(k,183) - lu(k,1368) * b(k,214) + b(k,213) = b(k,213) * lu(k,1355) + b(k,210) = b(k,210) - lu(k,1354) * b(k,213) + b(k,206) = b(k,206) - lu(k,1353) * b(k,213) + b(k,205) = b(k,205) - lu(k,1352) * b(k,213) + b(k,204) = b(k,204) - lu(k,1351) * b(k,213) + b(k,202) = b(k,202) - lu(k,1350) * b(k,213) + b(k,201) = b(k,201) - lu(k,1349) * b(k,213) + b(k,173) = b(k,173) - lu(k,1348) * b(k,213) + b(k,105) = b(k,105) - lu(k,1347) * b(k,213) + b(k,212) = b(k,212) * lu(k,1331) + b(k,210) = b(k,210) - lu(k,1330) * b(k,212) + b(k,209) = b(k,209) - lu(k,1329) * b(k,212) + b(k,207) = b(k,207) - lu(k,1328) * b(k,212) + b(k,206) = b(k,206) - lu(k,1327) * b(k,212) + b(k,205) = b(k,205) - lu(k,1326) * b(k,212) + b(k,204) = b(k,204) - lu(k,1325) * b(k,212) + b(k,202) = b(k,202) - lu(k,1324) * b(k,212) + b(k,201) = b(k,201) - lu(k,1323) * b(k,212) + b(k,191) = b(k,191) - lu(k,1322) * b(k,212) + b(k,182) = b(k,182) - lu(k,1321) * b(k,212) + b(k,180) = b(k,180) - lu(k,1320) * b(k,212) + b(k,173) = b(k,173) - lu(k,1319) * b(k,212) + b(k,162) = b(k,162) - lu(k,1318) * b(k,212) + b(k,148) = b(k,148) - lu(k,1317) * b(k,212) + b(k,143) = b(k,143) - lu(k,1316) * b(k,212) + b(k,107) = b(k,107) - lu(k,1315) * b(k,212) + b(k,84) = b(k,84) - lu(k,1314) * b(k,212) + b(k,211) = b(k,211) * lu(k,1298) + b(k,210) = b(k,210) - lu(k,1297) * b(k,211) + b(k,209) = b(k,209) - lu(k,1296) * b(k,211) + b(k,207) = b(k,207) - lu(k,1295) * b(k,211) + b(k,206) = b(k,206) - lu(k,1294) * b(k,211) + b(k,205) = b(k,205) - lu(k,1293) * b(k,211) + b(k,204) = b(k,204) - lu(k,1292) * b(k,211) + b(k,202) = b(k,202) - lu(k,1291) * b(k,211) + b(k,173) = b(k,173) - lu(k,1290) * b(k,211) + b(k,162) = b(k,162) - lu(k,1289) * b(k,211) + b(k,146) = b(k,146) - lu(k,1288) * b(k,211) + b(k,210) = b(k,210) * lu(k,1280) + b(k,201) = b(k,201) - lu(k,1279) * b(k,210) + b(k,209) = b(k,209) * lu(k,1268) + b(k,201) = b(k,201) - lu(k,1267) * b(k,209) + b(k,183) = b(k,183) - lu(k,1266) * b(k,209) + b(k,208) = b(k,208) * lu(k,1252) + b(k,207) = b(k,207) - lu(k,1251) * b(k,208) + b(k,202) = b(k,202) - lu(k,1250) * b(k,208) + b(k,201) = b(k,201) - lu(k,1249) * b(k,208) + b(k,196) = b(k,196) - lu(k,1248) * b(k,208) + b(k,180) = b(k,180) - lu(k,1247) * b(k,208) + b(k,173) = b(k,173) - lu(k,1246) * b(k,208) + b(k,162) = b(k,162) - lu(k,1245) * b(k,208) + b(k,124) = b(k,124) - lu(k,1244) * b(k,208) + b(k,120) = b(k,120) - lu(k,1243) * b(k,208) + b(k,207) = b(k,207) * lu(k,1232) + b(k,205) = b(k,205) - lu(k,1231) * b(k,207) + b(k,202) = b(k,202) - lu(k,1230) * b(k,207) + b(k,201) = b(k,201) - lu(k,1229) * b(k,207) + b(k,191) = b(k,191) - lu(k,1228) * b(k,207) + b(k,173) = b(k,173) - lu(k,1227) * b(k,207) + b(k,81) = b(k,81) - lu(k,1226) * b(k,207) + b(k,206) = b(k,206) * lu(k,1216) + b(k,205) = b(k,205) - lu(k,1215) * b(k,206) + b(k,173) = b(k,173) - lu(k,1214) * b(k,206) + b(k,119) = b(k,119) - lu(k,1213) * b(k,206) + b(k,205) = b(k,205) * lu(k,1207) + b(k,204) = b(k,204) * lu(k,1194) + b(k,202) = b(k,202) - lu(k,1193) * b(k,204) + b(k,201) = b(k,201) - lu(k,1192) * b(k,204) + b(k,200) = b(k,200) - lu(k,1191) * b(k,204) + b(k,195) = b(k,195) - lu(k,1190) * b(k,204) + b(k,87) = b(k,87) - lu(k,1189) * b(k,204) + b(k,203) = b(k,203) * lu(k,1177) + b(k,202) = b(k,202) - lu(k,1176) * b(k,203) + b(k,201) = b(k,201) - lu(k,1175) * b(k,203) + b(k,198) = b(k,198) - lu(k,1174) * b(k,203) + b(k,195) = b(k,195) - lu(k,1173) * b(k,203) + b(k,173) = b(k,173) - lu(k,1172) * b(k,203) + b(k,157) = b(k,157) - lu(k,1171) * b(k,203) + b(k,87) = b(k,87) - lu(k,1170) * b(k,203) end do end subroutine lu_slv10 subroutine lu_slv11( avec_len, lu, b ) @@ -2299,183 +2319,163 @@ subroutine lu_slv11( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,206) = b(k,206) * lu(k,1217) - b(k,205) = b(k,205) - lu(k,1216) * b(k,206) - b(k,173) = b(k,173) - lu(k,1215) * b(k,206) - b(k,119) = b(k,119) - lu(k,1214) * b(k,206) - b(k,205) = b(k,205) * lu(k,1208) - b(k,204) = b(k,204) * lu(k,1195) - b(k,202) = b(k,202) - lu(k,1194) * b(k,204) - b(k,201) = b(k,201) - lu(k,1193) * b(k,204) - b(k,200) = b(k,200) - lu(k,1192) * b(k,204) - b(k,195) = b(k,195) - lu(k,1191) * b(k,204) - b(k,87) = b(k,87) - lu(k,1190) * b(k,204) - b(k,203) = b(k,203) * lu(k,1178) - b(k,202) = b(k,202) - lu(k,1177) * b(k,203) - b(k,201) = b(k,201) - lu(k,1176) * b(k,203) - b(k,198) = b(k,198) - lu(k,1175) * b(k,203) - b(k,195) = b(k,195) - lu(k,1174) * b(k,203) - b(k,173) = b(k,173) - lu(k,1173) * b(k,203) - b(k,156) = b(k,156) - lu(k,1172) * b(k,203) - b(k,87) = b(k,87) - lu(k,1171) * b(k,203) - b(k,202) = b(k,202) * lu(k,1166) - b(k,201) = b(k,201) - lu(k,1165) * b(k,202) - b(k,192) = b(k,192) - lu(k,1164) * b(k,202) - b(k,201) = b(k,201) * lu(k,1160) - b(k,200) = b(k,200) * lu(k,1151) - b(k,199) = b(k,199) * lu(k,1133) - b(k,183) = b(k,183) - lu(k,1132) * b(k,199) - b(k,180) = b(k,180) - lu(k,1131) * b(k,199) - b(k,172) = b(k,172) - lu(k,1130) * b(k,199) - b(k,161) = b(k,161) - lu(k,1129) * b(k,199) - b(k,198) = b(k,198) * lu(k,1119) - b(k,195) = b(k,195) - lu(k,1118) * b(k,198) - b(k,197) = b(k,197) * lu(k,1106) - b(k,194) = b(k,194) - lu(k,1105) * b(k,197) - b(k,173) = b(k,173) - lu(k,1104) * b(k,197) - b(k,153) = b(k,153) - lu(k,1103) * b(k,197) - b(k,118) = b(k,118) - lu(k,1102) * b(k,197) - b(k,196) = b(k,196) * lu(k,1090) - b(k,192) = b(k,192) - lu(k,1089) * b(k,196) - b(k,182) = b(k,182) - lu(k,1088) * b(k,196) - b(k,180) = b(k,180) - lu(k,1087) * b(k,196) - b(k,149) = b(k,149) - lu(k,1086) * b(k,196) - b(k,195) = b(k,195) * lu(k,1080) - b(k,194) = b(k,194) * lu(k,1072) - b(k,193) = b(k,193) * lu(k,1062) - b(k,173) = b(k,173) - lu(k,1061) * b(k,193) - b(k,153) = b(k,153) - lu(k,1060) * b(k,193) - b(k,134) = b(k,134) - lu(k,1059) * b(k,193) - b(k,192) = b(k,192) * lu(k,1054) - b(k,39) = b(k,39) - lu(k,1053) * b(k,192) - b(k,191) = b(k,191) * lu(k,1042) - b(k,181) = b(k,181) - lu(k,1041) * b(k,191) - b(k,160) = b(k,160) - lu(k,1040) * b(k,191) - b(k,159) = b(k,159) - lu(k,1039) * b(k,191) - b(k,155) = b(k,155) - lu(k,1038) * b(k,191) - b(k,138) = b(k,138) - lu(k,1037) * b(k,191) - b(k,190) = b(k,190) * lu(k,1018) - b(k,183) = b(k,183) - lu(k,1017) * b(k,190) - b(k,116) = b(k,116) - lu(k,1016) * b(k,190) - b(k,85) = b(k,85) - lu(k,1015) * b(k,190) - b(k,51) = b(k,51) - lu(k,1014) * b(k,190) - b(k,43) = b(k,43) - lu(k,1013) * b(k,190) - b(k,42) = b(k,42) - lu(k,1012) * b(k,190) - b(k,41) = b(k,41) - lu(k,1011) * b(k,190) - b(k,40) = b(k,40) - lu(k,1010) * b(k,190) - b(k,39) = b(k,39) - lu(k,1009) * b(k,190) - b(k,189) = b(k,189) * lu(k,999) - b(k,178) = b(k,178) - lu(k,998) * b(k,189) - b(k,177) = b(k,177) - lu(k,997) * b(k,189) - b(k,176) = b(k,176) - lu(k,996) * b(k,189) - b(k,171) = b(k,171) - lu(k,995) * b(k,189) - b(k,136) = b(k,136) - lu(k,994) * b(k,189) - b(k,93) = b(k,93) - lu(k,993) * b(k,189) - b(k,188) = b(k,188) * lu(k,974) - b(k,183) = b(k,183) - lu(k,973) * b(k,188) - b(k,116) = b(k,116) - lu(k,972) * b(k,188) - b(k,85) = b(k,85) - lu(k,971) * b(k,188) - b(k,46) = b(k,46) - lu(k,970) * b(k,188) - b(k,43) = b(k,43) - lu(k,969) * b(k,188) - b(k,42) = b(k,42) - lu(k,968) * b(k,188) - b(k,41) = b(k,41) - lu(k,967) * b(k,188) - b(k,40) = b(k,40) - lu(k,966) * b(k,188) - b(k,39) = b(k,39) - lu(k,965) * b(k,188) - b(k,187) = b(k,187) * lu(k,955) - b(k,175) = b(k,175) - lu(k,954) * b(k,187) - b(k,74) = b(k,74) - lu(k,953) * b(k,187) - b(k,186) = b(k,186) * lu(k,947) - b(k,94) = b(k,94) - lu(k,946) * b(k,186) - b(k,185) = b(k,185) * lu(k,935) - b(k,121) = b(k,121) - lu(k,934) * b(k,185) - b(k,184) = b(k,184) * lu(k,925) - b(k,99) = b(k,99) - lu(k,924) * b(k,184) - b(k,183) = b(k,183) * lu(k,919) - b(k,182) = b(k,182) * lu(k,910) - b(k,181) = b(k,181) * lu(k,901) - b(k,173) = b(k,173) - lu(k,900) * b(k,181) - b(k,112) = b(k,112) - lu(k,899) * b(k,181) - b(k,95) = b(k,95) - lu(k,898) * b(k,181) - b(k,180) = b(k,180) * lu(k,892) - b(k,179) = b(k,179) * lu(k,876) - b(k,48) = b(k,48) - lu(k,875) * b(k,179) - b(k,43) = b(k,43) - lu(k,874) * b(k,179) - b(k,42) = b(k,42) - lu(k,873) * b(k,179) - b(k,178) = b(k,178) * lu(k,865) - b(k,177) = b(k,177) - lu(k,864) * b(k,178) - b(k,176) = b(k,176) - lu(k,863) * b(k,178) - b(k,171) = b(k,171) - lu(k,862) * b(k,178) - b(k,158) = b(k,158) - lu(k,861) * b(k,178) - b(k,140) = b(k,140) - lu(k,860) * b(k,178) - b(k,177) = b(k,177) * lu(k,853) - b(k,176) = b(k,176) - lu(k,852) * b(k,177) - b(k,176) = b(k,176) * lu(k,845) - b(k,140) = b(k,140) - lu(k,844) * b(k,176) - b(k,175) = b(k,175) * lu(k,837) - b(k,74) = b(k,74) - lu(k,836) * b(k,175) - b(k,174) = b(k,174) * lu(k,828) - b(k,173) = b(k,173) * lu(k,824) - b(k,172) = b(k,172) * lu(k,814) - b(k,142) = b(k,142) - lu(k,813) * b(k,172) - b(k,171) = b(k,171) * lu(k,805) - b(k,170) = b(k,170) * lu(k,797) - b(k,129) = b(k,129) - lu(k,796) * b(k,170) - b(k,63) = b(k,63) - lu(k,795) * b(k,170) - b(k,169) = b(k,169) * lu(k,787) - b(k,86) = b(k,86) - lu(k,786) * b(k,169) - b(k,168) = b(k,168) * lu(k,778) - b(k,167) = b(k,167) * lu(k,767) - b(k,165) = b(k,165) - lu(k,766) * b(k,167) - b(k,164) = b(k,164) - lu(k,765) * b(k,167) - b(k,149) = b(k,149) - lu(k,764) * b(k,167) - b(k,130) = b(k,130) - lu(k,763) * b(k,167) - b(k,108) = b(k,108) - lu(k,762) * b(k,167) - b(k,98) = b(k,98) - lu(k,761) * b(k,167) - b(k,166) = b(k,166) * lu(k,751) - b(k,165) = b(k,165) - lu(k,750) * b(k,166) - b(k,157) = b(k,157) - lu(k,749) * b(k,166) - b(k,149) = b(k,149) - lu(k,748) * b(k,166) - b(k,130) = b(k,130) - lu(k,747) * b(k,166) - b(k,98) = b(k,98) - lu(k,746) * b(k,166) - b(k,165) = b(k,165) * lu(k,740) - b(k,164) = b(k,164) * lu(k,729) - b(k,149) = b(k,149) - lu(k,728) * b(k,164) - b(k,130) = b(k,130) - lu(k,727) * b(k,164) - b(k,108) = b(k,108) - lu(k,726) * b(k,164) - b(k,98) = b(k,98) - lu(k,725) * b(k,164) - b(k,163) = b(k,163) * lu(k,718) - b(k,162) = b(k,162) * lu(k,711) - b(k,65) = b(k,65) - lu(k,710) * b(k,162) - b(k,161) = b(k,161) * lu(k,705) - b(k,160) = b(k,160) * lu(k,698) - b(k,106) = b(k,106) - lu(k,697) * b(k,160) - b(k,159) = b(k,159) * lu(k,687) - b(k,138) = b(k,138) - lu(k,686) * b(k,159) - b(k,158) = b(k,158) * lu(k,676) - b(k,140) = b(k,140) - lu(k,675) * b(k,158) - b(k,157) = b(k,157) * lu(k,665) - b(k,149) = b(k,149) - lu(k,664) * b(k,157) - b(k,130) = b(k,130) - lu(k,663) * b(k,157) - b(k,98) = b(k,98) - lu(k,662) * b(k,157) + b(k,202) = b(k,202) * lu(k,1165) + b(k,201) = b(k,201) - lu(k,1164) * b(k,202) + b(k,191) = b(k,191) - lu(k,1163) * b(k,202) + b(k,201) = b(k,201) * lu(k,1159) + b(k,200) = b(k,200) * lu(k,1150) + b(k,199) = b(k,199) * lu(k,1132) + b(k,183) = b(k,183) - lu(k,1131) * b(k,199) + b(k,180) = b(k,180) - lu(k,1130) * b(k,199) + b(k,172) = b(k,172) - lu(k,1129) * b(k,199) + b(k,161) = b(k,161) - lu(k,1128) * b(k,199) + b(k,198) = b(k,198) * lu(k,1118) + b(k,195) = b(k,195) - lu(k,1117) * b(k,198) + b(k,197) = b(k,197) * lu(k,1105) + b(k,194) = b(k,194) - lu(k,1104) * b(k,197) + b(k,173) = b(k,173) - lu(k,1103) * b(k,197) + b(k,153) = b(k,153) - lu(k,1102) * b(k,197) + b(k,118) = b(k,118) - lu(k,1101) * b(k,197) + b(k,196) = b(k,196) * lu(k,1089) + b(k,191) = b(k,191) - lu(k,1088) * b(k,196) + b(k,182) = b(k,182) - lu(k,1087) * b(k,196) + b(k,180) = b(k,180) - lu(k,1086) * b(k,196) + b(k,148) = b(k,148) - lu(k,1085) * b(k,196) + b(k,195) = b(k,195) * lu(k,1079) + b(k,194) = b(k,194) * lu(k,1071) + b(k,193) = b(k,193) * lu(k,1061) + b(k,173) = b(k,173) - lu(k,1060) * b(k,193) + b(k,153) = b(k,153) - lu(k,1059) * b(k,193) + b(k,134) = b(k,134) - lu(k,1058) * b(k,193) + b(k,192) = b(k,192) * lu(k,1048) + b(k,178) = b(k,178) - lu(k,1047) * b(k,192) + b(k,177) = b(k,177) - lu(k,1046) * b(k,192) + b(k,176) = b(k,176) - lu(k,1045) * b(k,192) + b(k,171) = b(k,171) - lu(k,1044) * b(k,192) + b(k,136) = b(k,136) - lu(k,1043) * b(k,192) + b(k,93) = b(k,93) - lu(k,1042) * b(k,192) + b(k,191) = b(k,191) * lu(k,1037) + b(k,39) = b(k,39) - lu(k,1036) * b(k,191) + b(k,190) = b(k,190) * lu(k,1025) + b(k,181) = b(k,181) - lu(k,1024) * b(k,190) + b(k,160) = b(k,160) - lu(k,1023) * b(k,190) + b(k,159) = b(k,159) - lu(k,1022) * b(k,190) + b(k,156) = b(k,156) - lu(k,1021) * b(k,190) + b(k,138) = b(k,138) - lu(k,1020) * b(k,190) + b(k,189) = b(k,189) * lu(k,1001) + b(k,183) = b(k,183) - lu(k,1000) * b(k,189) + b(k,116) = b(k,116) - lu(k,999) * b(k,189) + b(k,85) = b(k,85) - lu(k,998) * b(k,189) + b(k,46) = b(k,46) - lu(k,997) * b(k,189) + b(k,43) = b(k,43) - lu(k,996) * b(k,189) + b(k,42) = b(k,42) - lu(k,995) * b(k,189) + b(k,41) = b(k,41) - lu(k,994) * b(k,189) + b(k,40) = b(k,40) - lu(k,993) * b(k,189) + b(k,39) = b(k,39) - lu(k,992) * b(k,189) + b(k,188) = b(k,188) * lu(k,973) + b(k,183) = b(k,183) - lu(k,972) * b(k,188) + b(k,116) = b(k,116) - lu(k,971) * b(k,188) + b(k,85) = b(k,85) - lu(k,970) * b(k,188) + b(k,51) = b(k,51) - lu(k,969) * b(k,188) + b(k,43) = b(k,43) - lu(k,968) * b(k,188) + b(k,42) = b(k,42) - lu(k,967) * b(k,188) + b(k,41) = b(k,41) - lu(k,966) * b(k,188) + b(k,40) = b(k,40) - lu(k,965) * b(k,188) + b(k,39) = b(k,39) - lu(k,964) * b(k,188) + b(k,187) = b(k,187) * lu(k,954) + b(k,175) = b(k,175) - lu(k,953) * b(k,187) + b(k,74) = b(k,74) - lu(k,952) * b(k,187) + b(k,186) = b(k,186) * lu(k,946) + b(k,94) = b(k,94) - lu(k,945) * b(k,186) + b(k,185) = b(k,185) * lu(k,934) + b(k,121) = b(k,121) - lu(k,933) * b(k,185) + b(k,184) = b(k,184) * lu(k,924) + b(k,99) = b(k,99) - lu(k,923) * b(k,184) + b(k,183) = b(k,183) * lu(k,918) + b(k,182) = b(k,182) * lu(k,909) + b(k,181) = b(k,181) * lu(k,900) + b(k,173) = b(k,173) - lu(k,899) * b(k,181) + b(k,112) = b(k,112) - lu(k,898) * b(k,181) + b(k,95) = b(k,95) - lu(k,897) * b(k,181) + b(k,180) = b(k,180) * lu(k,891) + b(k,179) = b(k,179) * lu(k,875) + b(k,48) = b(k,48) - lu(k,874) * b(k,179) + b(k,43) = b(k,43) - lu(k,873) * b(k,179) + b(k,42) = b(k,42) - lu(k,872) * b(k,179) + b(k,178) = b(k,178) * lu(k,864) + b(k,177) = b(k,177) - lu(k,863) * b(k,178) + b(k,176) = b(k,176) - lu(k,862) * b(k,178) + b(k,171) = b(k,171) - lu(k,861) * b(k,178) + b(k,155) = b(k,155) - lu(k,860) * b(k,178) + b(k,152) = b(k,152) - lu(k,859) * b(k,178) + b(k,177) = b(k,177) * lu(k,852) + b(k,176) = b(k,176) - lu(k,851) * b(k,177) + b(k,176) = b(k,176) * lu(k,844) + b(k,155) = b(k,155) - lu(k,843) * b(k,176) + b(k,175) = b(k,175) * lu(k,836) + b(k,74) = b(k,74) - lu(k,835) * b(k,175) + b(k,174) = b(k,174) * lu(k,827) + b(k,173) = b(k,173) * lu(k,823) + b(k,172) = b(k,172) * lu(k,813) + b(k,141) = b(k,141) - lu(k,812) * b(k,172) + b(k,171) = b(k,171) * lu(k,804) + b(k,170) = b(k,170) * lu(k,796) + b(k,129) = b(k,129) - lu(k,795) * b(k,170) + b(k,63) = b(k,63) - lu(k,794) * b(k,170) + b(k,169) = b(k,169) * lu(k,786) + b(k,86) = b(k,86) - lu(k,785) * b(k,169) + b(k,168) = b(k,168) * lu(k,777) + b(k,167) = b(k,167) * lu(k,766) + b(k,165) = b(k,165) - lu(k,765) * b(k,167) + b(k,163) = b(k,163) - lu(k,764) * b(k,167) + b(k,148) = b(k,148) - lu(k,763) * b(k,167) + b(k,130) = b(k,130) - lu(k,762) * b(k,167) + b(k,108) = b(k,108) - lu(k,761) * b(k,167) + b(k,98) = b(k,98) - lu(k,760) * b(k,167) + b(k,166) = b(k,166) * lu(k,750) + b(k,165) = b(k,165) - lu(k,749) * b(k,166) + b(k,158) = b(k,158) - lu(k,748) * b(k,166) + b(k,148) = b(k,148) - lu(k,747) * b(k,166) + b(k,130) = b(k,130) - lu(k,746) * b(k,166) + b(k,98) = b(k,98) - lu(k,745) * b(k,166) + b(k,165) = b(k,165) * lu(k,739) + b(k,164) = b(k,164) * lu(k,732) + b(k,163) = b(k,163) * lu(k,721) + b(k,148) = b(k,148) - lu(k,720) * b(k,163) + b(k,130) = b(k,130) - lu(k,719) * b(k,163) + b(k,108) = b(k,108) - lu(k,718) * b(k,163) + b(k,98) = b(k,98) - lu(k,717) * b(k,163) + b(k,162) = b(k,162) * lu(k,710) + b(k,65) = b(k,65) - lu(k,709) * b(k,162) + b(k,161) = b(k,161) * lu(k,704) + b(k,160) = b(k,160) * lu(k,697) + b(k,106) = b(k,106) - lu(k,696) * b(k,160) + b(k,159) = b(k,159) * lu(k,686) + b(k,138) = b(k,138) - lu(k,685) * b(k,159) + b(k,158) = b(k,158) * lu(k,675) + b(k,148) = b(k,148) - lu(k,674) * b(k,158) + b(k,130) = b(k,130) - lu(k,673) * b(k,158) + b(k,98) = b(k,98) - lu(k,672) * b(k,158) + b(k,157) = b(k,157) * lu(k,662) b(k,156) = b(k,156) * lu(k,652) - b(k,155) = b(k,155) * lu(k,642) - b(k,138) = b(k,138) - lu(k,641) * b(k,155) - b(k,154) = b(k,154) * lu(k,635) - b(k,131) = b(k,131) - lu(k,634) * b(k,154) - b(k,96) = b(k,96) - lu(k,633) * b(k,154) - b(k,153) = b(k,153) * lu(k,627) - b(k,152) = b(k,152) * lu(k,620) - b(k,151) = b(k,151) * lu(k,611) - b(k,150) = b(k,150) * lu(k,602) - b(k,149) = b(k,149) * lu(k,598) - b(k,148) = b(k,148) * lu(k,589) - b(k,147) = b(k,147) * lu(k,582) - b(k,146) = b(k,146) * lu(k,574) - b(k,145) = b(k,145) * lu(k,566) - b(k,144) = b(k,144) * lu(k,558) - b(k,143) = b(k,143) * lu(k,550) - b(k,142) = b(k,142) * lu(k,542) - b(k,141) = b(k,141) * lu(k,534) + b(k,138) = b(k,138) - lu(k,651) * b(k,156) + b(k,155) = b(k,155) * lu(k,645) + b(k,154) = b(k,154) * lu(k,639) + b(k,131) = b(k,131) - lu(k,638) * b(k,154) + b(k,96) = b(k,96) - lu(k,637) * b(k,154) + b(k,153) = b(k,153) * lu(k,631) + b(k,152) = b(k,152) * lu(k,622) + b(k,151) = b(k,151) * lu(k,615) + b(k,150) = b(k,150) * lu(k,606) + b(k,149) = b(k,149) * lu(k,597) + b(k,148) = b(k,148) * lu(k,593) + b(k,147) = b(k,147) * lu(k,586) + b(k,146) = b(k,146) * lu(k,577) + b(k,145) = b(k,145) * lu(k,569) + b(k,144) = b(k,144) * lu(k,561) + b(k,143) = b(k,143) * lu(k,553) + b(k,142) = b(k,142) * lu(k,545) + b(k,141) = b(k,141) * lu(k,537) b(k,140) = b(k,140) * lu(k,529) b(k,139) = b(k,139) * lu(k,523) b(k,66) = b(k,66) - lu(k,522) * b(k,139) @@ -2500,26 +2500,6 @@ subroutine lu_slv11( avec_len, lu, b ) b(k,111) = b(k,111) - lu(k,434) * b(k,125) b(k,88) = b(k,88) - lu(k,433) * b(k,125) b(k,124) = b(k,124) * lu(k,427) - end do - end subroutine lu_slv11 - subroutine lu_slv12( avec_len, lu, b ) - use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : clscnt4, nzcnt - implicit none -!----------------------------------------------------------------------- -! ... Dummy args -!----------------------------------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: lu(veclen,max(1,nzcnt)) - real(r8), intent(inout) :: b(veclen,clscnt4) -!----------------------------------------------------------------------- -! ... Local variables -!----------------------------------------------------------------------- - integer :: k -!----------------------------------------------------------------------- -! ... solve L * y = b -!----------------------------------------------------------------------- - do k = 1,avec_len b(k,123) = b(k,123) * lu(k,421) b(k,122) = b(k,122) * lu(k,415) b(k,121) = b(k,121) * lu(k,409) @@ -2540,6 +2520,26 @@ subroutine lu_slv12( avec_len, lu, b ) b(k,107) = b(k,107) * lu(k,326) b(k,106) = b(k,106) * lu(k,321) b(k,105) = b(k,105) * lu(k,316) + end do + end subroutine lu_slv11 + subroutine lu_slv12( avec_len, lu, b ) + use shr_kind_mod, only : r8 => shr_kind_r8 + use chem_mods, only : clscnt4, nzcnt + implicit none +!----------------------------------------------------------------------- +! ... Dummy args +!----------------------------------------------------------------------- + integer, intent(in) :: avec_len + real(r8), intent(in) :: lu(veclen,max(1,nzcnt)) + real(r8), intent(inout) :: b(veclen,clscnt4) +!----------------------------------------------------------------------- +! ... Local variables +!----------------------------------------------------------------------- + integer :: k +!----------------------------------------------------------------------- +! ... solve L * y = b +!----------------------------------------------------------------------- + do k = 1,avec_len b(k,104) = b(k,104) * lu(k,310) b(k,103) = b(k,103) * lu(k,304) b(k,102) = b(k,102) * lu(k,298) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_nln_matrix.F90 index 607ccaad92..b4e042f5e8 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_nln_matrix.F90 @@ -22,248 +22,248 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,642) = -(rxt(k,396)*y(k,228)) - mat(k,1753) = -rxt(k,396)*y(k,1) - mat(k,1865) = rxt(k,399)*y(k,192) - mat(k,1038) = rxt(k,399)*y(k,124) - mat(k,687) = -(rxt(k,400)*y(k,228)) - mat(k,1756) = -rxt(k,400)*y(k,2) - mat(k,2307) = rxt(k,397)*y(k,192) - mat(k,1039) = rxt(k,397)*y(k,90) - mat(k,974) = -(rxt(k,479)*y(k,126) + rxt(k,480)*y(k,136) + rxt(k,481) & + mat(k,652) = -(rxt(k,400)*y(k,228)) + mat(k,1733) = -rxt(k,400)*y(k,1) + mat(k,1963) = rxt(k,403)*y(k,192) + mat(k,1021) = rxt(k,403)*y(k,124) + mat(k,686) = -(rxt(k,404)*y(k,228)) + mat(k,1736) = -rxt(k,404)*y(k,2) + mat(k,2284) = rxt(k,401)*y(k,192) + mat(k,1022) = rxt(k,401)*y(k,90) + mat(k,1001) = -(rxt(k,483)*y(k,126) + rxt(k,484)*y(k,136) + rxt(k,485) & *y(k,228)) - mat(k,1618) = -rxt(k,479)*y(k,6) - mat(k,2192) = -rxt(k,480)*y(k,6) - mat(k,1780) = -rxt(k,481)*y(k,6) - mat(k,160) = -(rxt(k,438)*y(k,228)) - mat(k,1685) = -rxt(k,438)*y(k,7) - mat(k,415) = -(rxt(k,441)*y(k,228)) - mat(k,1725) = -rxt(k,441)*y(k,8) - mat(k,2287) = rxt(k,439)*y(k,194) - mat(k,493) = rxt(k,439)*y(k,90) - mat(k,161) = .120_r8*rxt(k,438)*y(k,228) - mat(k,1686) = .120_r8*rxt(k,438)*y(k,7) - mat(k,972) = .100_r8*rxt(k,480)*y(k,136) - mat(k,1016) = .100_r8*rxt(k,483)*y(k,136) - mat(k,2182) = .100_r8*rxt(k,480)*y(k,6) + .100_r8*rxt(k,483)*y(k,110) - mat(k,1853) = .500_r8*rxt(k,440)*y(k,194) + .200_r8*rxt(k,467)*y(k,235) & - + .060_r8*rxt(k,473)*y(k,238) - mat(k,494) = .500_r8*rxt(k,440)*y(k,124) - mat(k,747) = .200_r8*rxt(k,467)*y(k,124) - mat(k,763) = .060_r8*rxt(k,473)*y(k,124) - mat(k,1846) = .200_r8*rxt(k,467)*y(k,235) + .200_r8*rxt(k,473)*y(k,238) - mat(k,746) = .200_r8*rxt(k,467)*y(k,124) - mat(k,761) = .200_r8*rxt(k,473)*y(k,124) - mat(k,1862) = .200_r8*rxt(k,467)*y(k,235) + .150_r8*rxt(k,473)*y(k,238) - mat(k,748) = .200_r8*rxt(k,467)*y(k,124) - mat(k,764) = .150_r8*rxt(k,473)*y(k,124) - mat(k,1848) = .210_r8*rxt(k,473)*y(k,238) - mat(k,762) = .210_r8*rxt(k,473)*y(k,124) - mat(k,226) = -(rxt(k,401)*y(k,228)) - mat(k,1696) = -rxt(k,401)*y(k,15) - mat(k,971) = .050_r8*rxt(k,480)*y(k,136) - mat(k,1015) = .050_r8*rxt(k,483)*y(k,136) - mat(k,2181) = .050_r8*rxt(k,480)*y(k,6) + .050_r8*rxt(k,483)*y(k,110) - mat(k,355) = -(rxt(k,367)*y(k,126) + rxt(k,368)*y(k,228)) - mat(k,1612) = -rxt(k,367)*y(k,16) - mat(k,1717) = -rxt(k,368)*y(k,16) - mat(k,1511) = -(rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136)) - mat(k,1979) = -rxt(k,250)*y(k,17) - mat(k,2352) = -rxt(k,251)*y(k,17) - mat(k,2219) = -rxt(k,252)*y(k,17) - mat(k,1563) = 4.000_r8*rxt(k,253)*y(k,19) + (rxt(k,254)+rxt(k,255))*y(k,59) & - + rxt(k,258)*y(k,124) + rxt(k,261)*y(k,134) + rxt(k,509) & - *y(k,152) + rxt(k,262)*y(k,228) - mat(k,141) = rxt(k,240)*y(k,224) - mat(k,147) = rxt(k,266)*y(k,224) - mat(k,481) = 2.000_r8*rxt(k,277)*y(k,56) + 2.000_r8*rxt(k,289)*y(k,224) & - + 2.000_r8*rxt(k,278)*y(k,228) - mat(k,604) = rxt(k,279)*y(k,56) + rxt(k,290)*y(k,224) + rxt(k,280)*y(k,228) - mat(k,387) = 3.000_r8*rxt(k,284)*y(k,56) + 3.000_r8*rxt(k,267)*y(k,224) & - + 3.000_r8*rxt(k,285)*y(k,228) - mat(k,2155) = 2.000_r8*rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) & - + 3.000_r8*rxt(k,284)*y(k,55) - mat(k,1589) = (rxt(k,254)+rxt(k,255))*y(k,19) - mat(k,109) = 2.000_r8*rxt(k,268)*y(k,224) - mat(k,829) = rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224) + rxt(k,264)*y(k,228) - mat(k,1908) = rxt(k,258)*y(k,19) - mat(k,2088) = rxt(k,261)*y(k,19) + rxt(k,263)*y(k,81) - mat(k,1477) = rxt(k,509)*y(k,19) - mat(k,2022) = rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) + 2.000_r8*rxt(k,289) & - *y(k,41) + rxt(k,290)*y(k,43) + 3.000_r8*rxt(k,267)*y(k,55) & - + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,269)*y(k,81) - mat(k,1813) = rxt(k,262)*y(k,19) + 2.000_r8*rxt(k,278)*y(k,41) + rxt(k,280) & - *y(k,43) + 3.000_r8*rxt(k,285)*y(k,55) + rxt(k,264)*y(k,81) - mat(k,1556) = rxt(k,256)*y(k,59) - mat(k,1582) = rxt(k,256)*y(k,19) - mat(k,1491) = (rxt(k,570)+rxt(k,575))*y(k,92) - mat(k,786) = (rxt(k,570)+rxt(k,575))*y(k,85) - mat(k,1565) = -(4._r8*rxt(k,253)*y(k,19) + (rxt(k,254) + rxt(k,255) + rxt(k,256) & - ) * y(k,59) + rxt(k,257)*y(k,90) + rxt(k,258)*y(k,124) + rxt(k,259) & - *y(k,125) + rxt(k,261)*y(k,134) + rxt(k,262)*y(k,228) + rxt(k,509) & + mat(k,2192) = -rxt(k,483)*y(k,6) + mat(k,2087) = -rxt(k,484)*y(k,6) + mat(k,1761) = -rxt(k,485)*y(k,6) + mat(k,160) = -(rxt(k,442)*y(k,228)) + mat(k,1665) = -rxt(k,442)*y(k,7) + mat(k,415) = -(rxt(k,445)*y(k,228)) + mat(k,1705) = -rxt(k,445)*y(k,8) + mat(k,2264) = rxt(k,443)*y(k,194) + mat(k,493) = rxt(k,443)*y(k,90) + mat(k,161) = .120_r8*rxt(k,442)*y(k,228) + mat(k,1666) = .120_r8*rxt(k,442)*y(k,7) + mat(k,999) = .100_r8*rxt(k,484)*y(k,136) + mat(k,971) = .100_r8*rxt(k,487)*y(k,136) + mat(k,2076) = .100_r8*rxt(k,484)*y(k,6) + .100_r8*rxt(k,487)*y(k,110) + mat(k,1950) = .500_r8*rxt(k,444)*y(k,194) + .200_r8*rxt(k,471)*y(k,235) & + + .060_r8*rxt(k,477)*y(k,238) + mat(k,494) = .500_r8*rxt(k,444)*y(k,124) + mat(k,746) = .200_r8*rxt(k,471)*y(k,124) + mat(k,762) = .060_r8*rxt(k,477)*y(k,124) + mat(k,1943) = .200_r8*rxt(k,471)*y(k,235) + .200_r8*rxt(k,477)*y(k,238) + mat(k,745) = .200_r8*rxt(k,471)*y(k,124) + mat(k,760) = .200_r8*rxt(k,477)*y(k,124) + mat(k,1959) = .200_r8*rxt(k,471)*y(k,235) + .150_r8*rxt(k,477)*y(k,238) + mat(k,747) = .200_r8*rxt(k,471)*y(k,124) + mat(k,763) = .150_r8*rxt(k,477)*y(k,124) + mat(k,1945) = .210_r8*rxt(k,477)*y(k,238) + mat(k,761) = .210_r8*rxt(k,477)*y(k,124) + mat(k,226) = -(rxt(k,405)*y(k,228)) + mat(k,1676) = -rxt(k,405)*y(k,15) + mat(k,998) = .050_r8*rxt(k,484)*y(k,136) + mat(k,970) = .050_r8*rxt(k,487)*y(k,136) + mat(k,2075) = .050_r8*rxt(k,484)*y(k,6) + .050_r8*rxt(k,487)*y(k,110) + mat(k,355) = -(rxt(k,371)*y(k,126) + rxt(k,372)*y(k,228)) + mat(k,2185) = -rxt(k,371)*y(k,16) + mat(k,1697) = -rxt(k,372)*y(k,16) + mat(k,1510) = -(rxt(k,254)*y(k,42) + rxt(k,255)*y(k,90) + rxt(k,256)*y(k,136)) + mat(k,1910) = -rxt(k,254)*y(k,17) + mat(k,2329) = -rxt(k,255)*y(k,17) + mat(k,2113) = -rxt(k,256)*y(k,17) + mat(k,1587) = 4.000_r8*rxt(k,257)*y(k,19) + (rxt(k,258)+rxt(k,259))*y(k,59) & + + rxt(k,262)*y(k,124) + rxt(k,265)*y(k,134) + rxt(k,513) & + *y(k,152) + rxt(k,266)*y(k,228) + mat(k,141) = rxt(k,244)*y(k,224) + mat(k,147) = rxt(k,270)*y(k,224) + mat(k,481) = 2.000_r8*rxt(k,281)*y(k,56) + 2.000_r8*rxt(k,293)*y(k,224) & + + 2.000_r8*rxt(k,282)*y(k,228) + mat(k,599) = rxt(k,283)*y(k,56) + rxt(k,294)*y(k,224) + rxt(k,284)*y(k,228) + mat(k,387) = 3.000_r8*rxt(k,288)*y(k,56) + 3.000_r8*rxt(k,271)*y(k,224) & + + 3.000_r8*rxt(k,289)*y(k,228) + mat(k,1839) = 2.000_r8*rxt(k,281)*y(k,41) + rxt(k,283)*y(k,43) & + + 3.000_r8*rxt(k,288)*y(k,55) + mat(k,2141) = (rxt(k,258)+rxt(k,259))*y(k,19) + mat(k,109) = 2.000_r8*rxt(k,272)*y(k,224) + mat(k,828) = rxt(k,267)*y(k,134) + rxt(k,273)*y(k,224) + rxt(k,268)*y(k,228) + mat(k,2006) = rxt(k,262)*y(k,19) + mat(k,2049) = rxt(k,265)*y(k,19) + rxt(k,267)*y(k,81) + mat(k,1476) = rxt(k,513)*y(k,19) + mat(k,1628) = rxt(k,244)*y(k,34) + rxt(k,270)*y(k,35) + 2.000_r8*rxt(k,293) & + *y(k,41) + rxt(k,294)*y(k,43) + 3.000_r8*rxt(k,271)*y(k,55) & + + 2.000_r8*rxt(k,272)*y(k,78) + rxt(k,273)*y(k,81) + mat(k,1793) = rxt(k,266)*y(k,19) + 2.000_r8*rxt(k,282)*y(k,41) + rxt(k,284) & + *y(k,43) + 3.000_r8*rxt(k,289)*y(k,55) + rxt(k,268)*y(k,81) + mat(k,1580) = rxt(k,260)*y(k,59) + mat(k,2134) = rxt(k,260)*y(k,19) + mat(k,1490) = (rxt(k,574)+rxt(k,579))*y(k,92) + mat(k,785) = (rxt(k,574)+rxt(k,579))*y(k,85) + mat(k,1589) = -(4._r8*rxt(k,257)*y(k,19) + (rxt(k,258) + rxt(k,259) + rxt(k,260) & + ) * y(k,59) + rxt(k,261)*y(k,90) + rxt(k,262)*y(k,124) + rxt(k,263) & + *y(k,125) + rxt(k,265)*y(k,134) + rxt(k,266)*y(k,228) + rxt(k,513) & *y(k,152)) - mat(k,1591) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,19) - mat(k,2354) = -rxt(k,257)*y(k,19) - mat(k,1910) = -rxt(k,258)*y(k,19) - mat(k,1955) = -rxt(k,259)*y(k,19) - mat(k,2090) = -rxt(k,261)*y(k,19) - mat(k,1815) = -rxt(k,262)*y(k,19) - mat(k,1479) = -rxt(k,509)*y(k,19) - mat(k,1513) = rxt(k,252)*y(k,136) - mat(k,569) = rxt(k,260)*y(k,134) - mat(k,830) = rxt(k,270)*y(k,224) - mat(k,790) = rxt(k,265)*y(k,134) - mat(k,2090) = mat(k,2090) + rxt(k,260)*y(k,20) + rxt(k,265)*y(k,92) - mat(k,2221) = rxt(k,252)*y(k,17) - mat(k,2024) = rxt(k,270)*y(k,81) - mat(k,566) = -(rxt(k,260)*y(k,134)) - mat(k,2069) = -rxt(k,260)*y(k,20) - mat(k,1558) = rxt(k,259)*y(k,125) - mat(k,1934) = rxt(k,259)*y(k,19) - mat(k,235) = -(rxt(k,442)*y(k,228)) - mat(k,1698) = -rxt(k,442)*y(k,22) - mat(k,1845) = rxt(k,445)*y(k,196) - mat(k,433) = rxt(k,445)*y(k,124) - mat(k,345) = -(rxt(k,444)*y(k,228)) - mat(k,1715) = -rxt(k,444)*y(k,23) - mat(k,2281) = rxt(k,443)*y(k,196) - mat(k,434) = rxt(k,443)*y(k,90) - mat(k,285) = -(rxt(k,315)*y(k,56) + rxt(k,316)*y(k,228)) - mat(k,2129) = -rxt(k,315)*y(k,24) - mat(k,1706) = -rxt(k,316)*y(k,24) - mat(k,550) = -(rxt(k,317)*y(k,56) + rxt(k,318)*y(k,136) + rxt(k,343)*y(k,228)) - mat(k,2135) = -rxt(k,317)*y(k,25) - mat(k,2184) = -rxt(k,318)*y(k,25) - mat(k,1742) = -rxt(k,343)*y(k,25) - mat(k,265) = -(rxt(k,323)*y(k,228)) - mat(k,1704) = -rxt(k,323)*y(k,26) - mat(k,898) = .800_r8*rxt(k,319)*y(k,197) + .200_r8*rxt(k,320)*y(k,201) - mat(k,2371) = .200_r8*rxt(k,320)*y(k,197) - mat(k,350) = -(rxt(k,324)*y(k,228)) - mat(k,1716) = -rxt(k,324)*y(k,27) - mat(k,2282) = rxt(k,321)*y(k,197) - mat(k,899) = rxt(k,321)*y(k,90) - mat(k,298) = -(rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228)) - mat(k,2130) = -rxt(k,325)*y(k,28) - mat(k,1708) = -rxt(k,326)*y(k,28) - mat(k,1133) = -(rxt(k,346)*y(k,126) + rxt(k,347)*y(k,136) + rxt(k,365) & + mat(k,2143) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,19) + mat(k,2332) = -rxt(k,261)*y(k,19) + mat(k,2009) = -rxt(k,262)*y(k,19) + mat(k,1887) = -rxt(k,263)*y(k,19) + mat(k,2052) = -rxt(k,265)*y(k,19) + mat(k,1796) = -rxt(k,266)*y(k,19) + mat(k,1478) = -rxt(k,513)*y(k,19) + mat(k,1512) = rxt(k,256)*y(k,136) + mat(k,564) = rxt(k,264)*y(k,134) + mat(k,829) = rxt(k,274)*y(k,224) + mat(k,789) = rxt(k,269)*y(k,134) + mat(k,2052) = mat(k,2052) + rxt(k,264)*y(k,20) + rxt(k,269)*y(k,92) + mat(k,2116) = rxt(k,256)*y(k,17) + mat(k,1631) = rxt(k,274)*y(k,81) + mat(k,561) = -(rxt(k,264)*y(k,134)) + mat(k,2029) = -rxt(k,264)*y(k,20) + mat(k,1582) = rxt(k,263)*y(k,125) + mat(k,1865) = rxt(k,263)*y(k,19) + mat(k,235) = -(rxt(k,446)*y(k,228)) + mat(k,1678) = -rxt(k,446)*y(k,22) + mat(k,1942) = rxt(k,449)*y(k,196) + mat(k,433) = rxt(k,449)*y(k,124) + mat(k,345) = -(rxt(k,448)*y(k,228)) + mat(k,1695) = -rxt(k,448)*y(k,23) + mat(k,2258) = rxt(k,447)*y(k,196) + mat(k,434) = rxt(k,447)*y(k,90) + mat(k,285) = -(rxt(k,319)*y(k,56) + rxt(k,320)*y(k,228)) + mat(k,1813) = -rxt(k,319)*y(k,24) + mat(k,1686) = -rxt(k,320)*y(k,24) + mat(k,545) = -(rxt(k,321)*y(k,56) + rxt(k,322)*y(k,136) + rxt(k,347)*y(k,228)) + mat(k,1819) = -rxt(k,321)*y(k,25) + mat(k,2078) = -rxt(k,322)*y(k,25) + mat(k,1722) = -rxt(k,347)*y(k,25) + mat(k,265) = -(rxt(k,327)*y(k,228)) + mat(k,1684) = -rxt(k,327)*y(k,26) + mat(k,897) = .800_r8*rxt(k,323)*y(k,197) + .200_r8*rxt(k,324)*y(k,201) + mat(k,2371) = .200_r8*rxt(k,324)*y(k,197) + mat(k,350) = -(rxt(k,328)*y(k,228)) + mat(k,1696) = -rxt(k,328)*y(k,27) + mat(k,2259) = rxt(k,325)*y(k,197) + mat(k,898) = rxt(k,325)*y(k,90) + mat(k,298) = -(rxt(k,329)*y(k,56) + rxt(k,330)*y(k,228)) + mat(k,1814) = -rxt(k,329)*y(k,28) + mat(k,1688) = -rxt(k,330)*y(k,28) + mat(k,1132) = -(rxt(k,350)*y(k,126) + rxt(k,351)*y(k,136) + rxt(k,369) & *y(k,228)) - mat(k,1628) = -rxt(k,346)*y(k,29) - mat(k,2201) = -rxt(k,347)*y(k,29) - mat(k,1791) = -rxt(k,365)*y(k,29) - mat(k,878) = .130_r8*rxt(k,425)*y(k,136) - mat(k,2201) = mat(k,2201) + .130_r8*rxt(k,425)*y(k,99) - mat(k,409) = -(rxt(k,351)*y(k,228)) - mat(k,1724) = -rxt(k,351)*y(k,30) - mat(k,2286) = rxt(k,349)*y(k,198) - mat(k,934) = rxt(k,349)*y(k,90) - mat(k,304) = -(rxt(k,352)*y(k,228) + rxt(k,355)*y(k,56)) - mat(k,1709) = -rxt(k,352)*y(k,31) - mat(k,2131) = -rxt(k,355)*y(k,31) - mat(k,269) = -(rxt(k,448)*y(k,228)) - mat(k,1705) = -rxt(k,448)*y(k,32) - mat(k,2277) = rxt(k,446)*y(k,199) - mat(k,633) = rxt(k,446)*y(k,90) - mat(k,101) = -(rxt(k,239)*y(k,224)) - mat(k,1998) = -rxt(k,239)*y(k,33) - mat(k,139) = -(rxt(k,240)*y(k,224)) - mat(k,2003) = -rxt(k,240)*y(k,34) - mat(k,144) = -(rxt(k,266)*y(k,224)) - mat(k,2004) = -rxt(k,266)*y(k,35) - mat(k,111) = -(rxt(k,241)*y(k,224)) - mat(k,2000) = -rxt(k,241)*y(k,36) - mat(k,149) = -(rxt(k,242)*y(k,224)) - mat(k,2005) = -rxt(k,242)*y(k,37) - mat(k,115) = -(rxt(k,243)*y(k,224)) - mat(k,2001) = -rxt(k,243)*y(k,38) - mat(k,154) = -(rxt(k,244)*y(k,224)) - mat(k,2006) = -rxt(k,244)*y(k,39) - mat(k,119) = -(rxt(k,245)*y(k,224)) - mat(k,2002) = -rxt(k,245)*y(k,40) - mat(k,479) = -(rxt(k,277)*y(k,56) + rxt(k,278)*y(k,228) + rxt(k,289)*y(k,224)) - mat(k,2134) = -rxt(k,277)*y(k,41) - mat(k,1734) = -rxt(k,278)*y(k,41) - mat(k,2016) = -rxt(k,289)*y(k,41) - mat(k,1987) = -(rxt(k,214)*y(k,56) + rxt(k,250)*y(k,17) + rxt(k,294)*y(k,90) & - + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134) + rxt(k,297) & + mat(k,2201) = -rxt(k,350)*y(k,29) + mat(k,2095) = -rxt(k,351)*y(k,29) + mat(k,1771) = -rxt(k,369)*y(k,29) + mat(k,877) = .130_r8*rxt(k,429)*y(k,136) + mat(k,2095) = mat(k,2095) + .130_r8*rxt(k,429)*y(k,99) + mat(k,409) = -(rxt(k,355)*y(k,228)) + mat(k,1704) = -rxt(k,355)*y(k,30) + mat(k,2263) = rxt(k,353)*y(k,198) + mat(k,933) = rxt(k,353)*y(k,90) + mat(k,304) = -(rxt(k,356)*y(k,228) + rxt(k,359)*y(k,56)) + mat(k,1689) = -rxt(k,356)*y(k,31) + mat(k,1815) = -rxt(k,359)*y(k,31) + mat(k,269) = -(rxt(k,452)*y(k,228)) + mat(k,1685) = -rxt(k,452)*y(k,32) + mat(k,2254) = rxt(k,450)*y(k,199) + mat(k,637) = rxt(k,450)*y(k,90) + mat(k,101) = -(rxt(k,243)*y(k,224)) + mat(k,1604) = -rxt(k,243)*y(k,33) + mat(k,139) = -(rxt(k,244)*y(k,224)) + mat(k,1609) = -rxt(k,244)*y(k,34) + mat(k,144) = -(rxt(k,270)*y(k,224)) + mat(k,1610) = -rxt(k,270)*y(k,35) + mat(k,111) = -(rxt(k,245)*y(k,224)) + mat(k,1606) = -rxt(k,245)*y(k,36) + mat(k,149) = -(rxt(k,246)*y(k,224)) + mat(k,1611) = -rxt(k,246)*y(k,37) + mat(k,115) = -(rxt(k,247)*y(k,224)) + mat(k,1607) = -rxt(k,247)*y(k,38) + mat(k,154) = -(rxt(k,248)*y(k,224)) + mat(k,1612) = -rxt(k,248)*y(k,39) + mat(k,119) = -(rxt(k,249)*y(k,224)) + mat(k,1608) = -rxt(k,249)*y(k,40) + mat(k,479) = -(rxt(k,281)*y(k,56) + rxt(k,282)*y(k,228) + rxt(k,293)*y(k,224)) + mat(k,1818) = -rxt(k,281)*y(k,41) + mat(k,1714) = -rxt(k,282)*y(k,41) + mat(k,1622) = -rxt(k,293)*y(k,41) + mat(k,1918) = -(rxt(k,218)*y(k,56) + rxt(k,254)*y(k,17) + rxt(k,298)*y(k,90) & + + rxt(k,299)*y(k,126) + rxt(k,300)*y(k,134) + rxt(k,301) & *y(k,228)) - mat(k,2163) = -rxt(k,214)*y(k,42) - mat(k,1517) = -rxt(k,250)*y(k,42) - mat(k,2360) = -rxt(k,294)*y(k,42) - mat(k,1656) = -rxt(k,295)*y(k,42) - mat(k,2096) = -rxt(k,296)*y(k,42) - mat(k,1821) = -rxt(k,297)*y(k,42) - mat(k,650) = .400_r8*rxt(k,396)*y(k,228) - mat(k,989) = .340_r8*rxt(k,480)*y(k,136) - mat(k,362) = .500_r8*rxt(k,367)*y(k,126) - mat(k,555) = rxt(k,318)*y(k,136) - mat(k,1145) = .500_r8*rxt(k,347)*y(k,136) - mat(k,624) = .500_r8*rxt(k,335)*y(k,228) - mat(k,826) = rxt(k,302)*y(k,228) - mat(k,456) = .300_r8*rxt(k,303)*y(k,228) - mat(k,2252) = (rxt(k,311)+rxt(k,312))*y(k,224) - mat(k,1597) = rxt(k,221)*y(k,201) - mat(k,1169) = .800_r8*rxt(k,340)*y(k,228) - mat(k,2360) = mat(k,2360) + .450_r8*rxt(k,383)*y(k,215) + .150_r8*rxt(k,362) & + mat(k,1847) = -rxt(k,218)*y(k,42) + mat(k,1516) = -rxt(k,254)*y(k,42) + mat(k,2337) = -rxt(k,298)*y(k,42) + mat(k,2229) = -rxt(k,299)*y(k,42) + mat(k,2057) = -rxt(k,300)*y(k,42) + mat(k,1801) = -rxt(k,301)*y(k,42) + mat(k,660) = .400_r8*rxt(k,400)*y(k,228) + mat(k,1015) = .340_r8*rxt(k,484)*y(k,136) + mat(k,361) = .500_r8*rxt(k,371)*y(k,126) + mat(k,550) = rxt(k,322)*y(k,136) + mat(k,1143) = .500_r8*rxt(k,351)*y(k,136) + mat(k,619) = .500_r8*rxt(k,339)*y(k,228) + mat(k,825) = rxt(k,306)*y(k,228) + mat(k,456) = .300_r8*rxt(k,307)*y(k,228) + mat(k,1569) = (rxt(k,315)+rxt(k,316))*y(k,224) + mat(k,2148) = rxt(k,225)*y(k,201) + mat(k,1168) = .800_r8*rxt(k,344)*y(k,228) + mat(k,2337) = mat(k,2337) + .450_r8*rxt(k,387)*y(k,215) + .150_r8*rxt(k,366) & *y(k,232) - mat(k,888) = .910_r8*rxt(k,425)*y(k,136) - mat(k,595) = .300_r8*rxt(k,416)*y(k,228) - mat(k,1276) = .120_r8*rxt(k,378)*y(k,136) - mat(k,618) = .500_r8*rxt(k,391)*y(k,228) - mat(k,1033) = .340_r8*rxt(k,483)*y(k,136) - mat(k,1385) = .600_r8*rxt(k,392)*y(k,136) - mat(k,1916) = .100_r8*rxt(k,398)*y(k,192) + rxt(k,301)*y(k,201) & - + .500_r8*rxt(k,369)*y(k,204) + .500_r8*rxt(k,337)*y(k,206) & - + .920_r8*rxt(k,408)*y(k,208) + .250_r8*rxt(k,376)*y(k,213) & - + rxt(k,385)*y(k,215) + rxt(k,359)*y(k,231) + rxt(k,363) & - *y(k,232) + .340_r8*rxt(k,492)*y(k,233) + .320_r8*rxt(k,497) & - *y(k,234) + .250_r8*rxt(k,433)*y(k,237) - mat(k,1656) = mat(k,1656) + .500_r8*rxt(k,367)*y(k,16) + rxt(k,409)*y(k,208) & - + .250_r8*rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215) - mat(k,2227) = .340_r8*rxt(k,480)*y(k,6) + rxt(k,318)*y(k,25) & - + .500_r8*rxt(k,347)*y(k,29) + .910_r8*rxt(k,425)*y(k,99) & - + .120_r8*rxt(k,378)*y(k,105) + .340_r8*rxt(k,483)*y(k,110) & - + .600_r8*rxt(k,392)*y(k,111) - mat(k,540) = rxt(k,342)*y(k,228) - mat(k,1125) = .680_r8*rxt(k,501)*y(k,228) - mat(k,1050) = .100_r8*rxt(k,398)*y(k,124) - mat(k,907) = .700_r8*rxt(k,320)*y(k,201) - mat(k,942) = rxt(k,348)*y(k,201) - mat(k,1435) = rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) + .250_r8*rxt(k,372) & - *y(k,213) + rxt(k,381)*y(k,215) + .250_r8*rxt(k,430)*y(k,237) - mat(k,2412) = rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) + .700_r8*rxt(k,320) & - *y(k,197) + rxt(k,348)*y(k,198) + rxt(k,331)*y(k,200) + ( & - + 4.000_r8*rxt(k,298)+2.000_r8*rxt(k,299))*y(k,201) & - + 1.500_r8*rxt(k,406)*y(k,208) + .750_r8*rxt(k,411)*y(k,209) & - + .800_r8*rxt(k,420)*y(k,210) + .880_r8*rxt(k,373)*y(k,213) & - + 2.000_r8*rxt(k,382)*y(k,215) + .750_r8*rxt(k,485)*y(k,223) & - + .800_r8*rxt(k,361)*y(k,232) + .930_r8*rxt(k,490)*y(k,233) & - + .950_r8*rxt(k,495)*y(k,234) + .800_r8*rxt(k,431)*y(k,237) - mat(k,580) = .500_r8*rxt(k,369)*y(k,124) - mat(k,803) = .500_r8*rxt(k,337)*y(k,124) - mat(k,1309) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) + rxt(k,405) & - *y(k,200) + 1.500_r8*rxt(k,406)*y(k,201) - mat(k,1342) = .750_r8*rxt(k,411)*y(k,201) - mat(k,1263) = .800_r8*rxt(k,420)*y(k,201) - mat(k,1364) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) & - + .250_r8*rxt(k,372)*y(k,200) + .880_r8*rxt(k,373)*y(k,201) - mat(k,1404) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) & - *y(k,126) + rxt(k,381)*y(k,200) + 2.000_r8*rxt(k,382)*y(k,201) & - + 4.000_r8*rxt(k,384)*y(k,215) - mat(k,1114) = .750_r8*rxt(k,485)*y(k,201) - mat(k,2030) = (rxt(k,311)+rxt(k,312))*y(k,54) - mat(k,1821) = mat(k,1821) + .400_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,335) & - *y(k,51) + rxt(k,302)*y(k,52) + .300_r8*rxt(k,303)*y(k,53) & - + .800_r8*rxt(k,340)*y(k,74) + .300_r8*rxt(k,416)*y(k,100) & - + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141) & - + .680_r8*rxt(k,501)*y(k,181) - mat(k,821) = rxt(k,359)*y(k,124) - mat(k,1223) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) & - + .800_r8*rxt(k,361)*y(k,201) - mat(k,1185) = .340_r8*rxt(k,492)*y(k,124) + .930_r8*rxt(k,490)*y(k,201) - mat(k,1068) = .320_r8*rxt(k,497)*y(k,124) + .950_r8*rxt(k,495)*y(k,201) - mat(k,1241) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,430)*y(k,200) & - + .800_r8*rxt(k,431)*y(k,201) + mat(k,886) = .910_r8*rxt(k,429)*y(k,136) + mat(k,583) = .300_r8*rxt(k,420)*y(k,228) + mat(k,1275) = .120_r8*rxt(k,382)*y(k,136) + mat(k,612) = .500_r8*rxt(k,395)*y(k,228) + mat(k,987) = .340_r8*rxt(k,487)*y(k,136) + mat(k,1383) = .600_r8*rxt(k,396)*y(k,136) + mat(k,2014) = .100_r8*rxt(k,402)*y(k,192) + rxt(k,305)*y(k,201) & + + .500_r8*rxt(k,373)*y(k,204) + .500_r8*rxt(k,341)*y(k,206) & + + .920_r8*rxt(k,412)*y(k,208) + .250_r8*rxt(k,380)*y(k,213) & + + rxt(k,389)*y(k,215) + rxt(k,363)*y(k,231) + rxt(k,367) & + *y(k,232) + .340_r8*rxt(k,496)*y(k,233) + .320_r8*rxt(k,501) & + *y(k,234) + .250_r8*rxt(k,437)*y(k,237) + mat(k,2229) = mat(k,2229) + .500_r8*rxt(k,371)*y(k,16) + rxt(k,413)*y(k,208) & + + .250_r8*rxt(k,379)*y(k,213) + rxt(k,390)*y(k,215) + mat(k,2121) = .340_r8*rxt(k,484)*y(k,6) + rxt(k,322)*y(k,25) & + + .500_r8*rxt(k,351)*y(k,29) + .910_r8*rxt(k,429)*y(k,99) & + + .120_r8*rxt(k,382)*y(k,105) + .340_r8*rxt(k,487)*y(k,110) & + + .600_r8*rxt(k,396)*y(k,111) + mat(k,534) = rxt(k,346)*y(k,228) + mat(k,1124) = .680_r8*rxt(k,505)*y(k,228) + mat(k,1032) = .100_r8*rxt(k,402)*y(k,124) + mat(k,905) = .700_r8*rxt(k,324)*y(k,201) + mat(k,940) = rxt(k,352)*y(k,201) + mat(k,1433) = rxt(k,335)*y(k,201) + rxt(k,409)*y(k,208) + .250_r8*rxt(k,376) & + *y(k,213) + rxt(k,385)*y(k,215) + .250_r8*rxt(k,434)*y(k,237) + mat(k,2412) = rxt(k,225)*y(k,59) + rxt(k,305)*y(k,124) + .700_r8*rxt(k,324) & + *y(k,197) + rxt(k,352)*y(k,198) + rxt(k,335)*y(k,200) + ( & + + 4.000_r8*rxt(k,302)+2.000_r8*rxt(k,303))*y(k,201) & + + 1.500_r8*rxt(k,410)*y(k,208) + .750_r8*rxt(k,415)*y(k,209) & + + .800_r8*rxt(k,424)*y(k,210) + .880_r8*rxt(k,377)*y(k,213) & + + 2.000_r8*rxt(k,386)*y(k,215) + .750_r8*rxt(k,489)*y(k,223) & + + .800_r8*rxt(k,365)*y(k,232) + .930_r8*rxt(k,494)*y(k,233) & + + .950_r8*rxt(k,499)*y(k,234) + .800_r8*rxt(k,435)*y(k,237) + mat(k,574) = .500_r8*rxt(k,373)*y(k,124) + mat(k,801) = .500_r8*rxt(k,341)*y(k,124) + mat(k,1306) = .920_r8*rxt(k,412)*y(k,124) + rxt(k,413)*y(k,126) + rxt(k,409) & + *y(k,200) + 1.500_r8*rxt(k,410)*y(k,201) + mat(k,1339) = .750_r8*rxt(k,415)*y(k,201) + mat(k,1260) = .800_r8*rxt(k,424)*y(k,201) + mat(k,1361) = .250_r8*rxt(k,380)*y(k,124) + .250_r8*rxt(k,379)*y(k,126) & + + .250_r8*rxt(k,376)*y(k,200) + .880_r8*rxt(k,377)*y(k,201) + mat(k,1401) = .450_r8*rxt(k,387)*y(k,90) + rxt(k,389)*y(k,124) + rxt(k,390) & + *y(k,126) + rxt(k,385)*y(k,200) + 2.000_r8*rxt(k,386)*y(k,201) & + + 4.000_r8*rxt(k,388)*y(k,215) + mat(k,1111) = .750_r8*rxt(k,489)*y(k,201) + mat(k,1636) = (rxt(k,315)+rxt(k,316))*y(k,54) + mat(k,1801) = mat(k,1801) + .400_r8*rxt(k,400)*y(k,1) + .500_r8*rxt(k,339) & + *y(k,51) + rxt(k,306)*y(k,52) + .300_r8*rxt(k,307)*y(k,53) & + + .800_r8*rxt(k,344)*y(k,74) + .300_r8*rxt(k,420)*y(k,100) & + + .500_r8*rxt(k,395)*y(k,109) + rxt(k,346)*y(k,141) & + + .680_r8*rxt(k,505)*y(k,181) + mat(k,819) = rxt(k,363)*y(k,124) + mat(k,1221) = .150_r8*rxt(k,366)*y(k,90) + rxt(k,367)*y(k,124) & + + .800_r8*rxt(k,365)*y(k,201) + mat(k,1183) = .340_r8*rxt(k,496)*y(k,124) + .930_r8*rxt(k,494)*y(k,201) + mat(k,1066) = .320_r8*rxt(k,501)*y(k,124) + .950_r8*rxt(k,499)*y(k,201) + mat(k,1238) = .250_r8*rxt(k,437)*y(k,124) + .250_r8*rxt(k,434)*y(k,200) & + + .800_r8*rxt(k,435)*y(k,201) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -284,222 +284,222 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,602) = -(rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228) + rxt(k,290)*y(k,224)) - mat(k,2137) = -rxt(k,279)*y(k,43) - mat(k,1748) = -rxt(k,280)*y(k,43) - mat(k,2017) = -rxt(k,290)*y(k,43) - mat(k,123) = -(rxt(k,281)*y(k,228)) - mat(k,1683) = -rxt(k,281)*y(k,44) - mat(k,1151) = -(rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228)) - mat(k,1629) = -rxt(k,327)*y(k,45) - mat(k,1792) = -rxt(k,328)*y(k,45) - mat(k,646) = .800_r8*rxt(k,396)*y(k,228) - mat(k,358) = rxt(k,367)*y(k,126) - mat(k,266) = rxt(k,323)*y(k,228) - mat(k,352) = .500_r8*rxt(k,324)*y(k,228) - mat(k,1134) = .500_r8*rxt(k,347)*y(k,136) - mat(k,2333) = .200_r8*rxt(k,387)*y(k,217) - mat(k,1371) = .100_r8*rxt(k,392)*y(k,136) - mat(k,1890) = .400_r8*rxt(k,398)*y(k,192) + rxt(k,322)*y(k,197) & - + .270_r8*rxt(k,350)*y(k,198) + rxt(k,369)*y(k,204) + rxt(k,388) & - *y(k,217) + rxt(k,359)*y(k,231) - mat(k,1629) = mat(k,1629) + rxt(k,367)*y(k,16) - mat(k,2202) = .500_r8*rxt(k,347)*y(k,29) + .100_r8*rxt(k,392)*y(k,111) - mat(k,1044) = .400_r8*rxt(k,398)*y(k,124) - mat(k,902) = rxt(k,322)*y(k,124) + 3.200_r8*rxt(k,319)*y(k,197) & - + .800_r8*rxt(k,320)*y(k,201) - mat(k,937) = .270_r8*rxt(k,350)*y(k,124) - mat(k,2388) = .800_r8*rxt(k,320)*y(k,197) - mat(k,576) = rxt(k,369)*y(k,124) - mat(k,699) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124) - mat(k,1792) = mat(k,1792) + .800_r8*rxt(k,396)*y(k,1) + rxt(k,323)*y(k,26) & - + .500_r8*rxt(k,324)*y(k,27) - mat(k,815) = rxt(k,359)*y(k,124) - mat(k,371) = -(rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228)) - mat(k,2132) = -rxt(k,282)*y(k,46) - mat(k,1719) = -rxt(k,283)*y(k,46) - mat(k,104) = -(rxt(k,329)*y(k,228)) - mat(k,1682) = -rxt(k,329)*y(k,47) - mat(k,1080) = -(rxt(k,366)*y(k,228)) - mat(k,1787) = -rxt(k,366)*y(k,48) - mat(k,645) = .800_r8*rxt(k,396)*y(k,228) - mat(k,979) = .520_r8*rxt(k,480)*y(k,136) - mat(k,357) = .500_r8*rxt(k,367)*y(k,126) - mat(k,1023) = .520_r8*rxt(k,483)*y(k,136) - mat(k,1886) = .250_r8*rxt(k,398)*y(k,192) + .820_r8*rxt(k,350)*y(k,198) & - + .500_r8*rxt(k,369)*y(k,204) + .270_r8*rxt(k,492)*y(k,233) & - + .040_r8*rxt(k,497)*y(k,234) - mat(k,1624) = .500_r8*rxt(k,367)*y(k,16) - mat(k,2198) = .520_r8*rxt(k,480)*y(k,6) + .520_r8*rxt(k,483)*y(k,110) - mat(k,1118) = .500_r8*rxt(k,501)*y(k,228) - mat(k,1043) = .250_r8*rxt(k,398)*y(k,124) - mat(k,936) = .820_r8*rxt(k,350)*y(k,124) + .820_r8*rxt(k,348)*y(k,201) - mat(k,2384) = .820_r8*rxt(k,348)*y(k,198) + .150_r8*rxt(k,490)*y(k,233) & - + .025_r8*rxt(k,495)*y(k,234) - mat(k,575) = .500_r8*rxt(k,369)*y(k,124) - mat(k,1787) = mat(k,1787) + .800_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,501) & + mat(k,597) = -(rxt(k,283)*y(k,56) + rxt(k,284)*y(k,228) + rxt(k,294)*y(k,224)) + mat(k,1821) = -rxt(k,283)*y(k,43) + mat(k,1728) = -rxt(k,284)*y(k,43) + mat(k,1623) = -rxt(k,294)*y(k,43) + mat(k,123) = -(rxt(k,285)*y(k,228)) + mat(k,1663) = -rxt(k,285)*y(k,44) + mat(k,1150) = -(rxt(k,331)*y(k,126) + rxt(k,332)*y(k,228)) + mat(k,2202) = -rxt(k,331)*y(k,45) + mat(k,1772) = -rxt(k,332)*y(k,45) + mat(k,656) = .800_r8*rxt(k,400)*y(k,228) + mat(k,358) = rxt(k,371)*y(k,126) + mat(k,266) = rxt(k,327)*y(k,228) + mat(k,352) = .500_r8*rxt(k,328)*y(k,228) + mat(k,1133) = .500_r8*rxt(k,351)*y(k,136) + mat(k,2310) = .200_r8*rxt(k,391)*y(k,217) + mat(k,1370) = .100_r8*rxt(k,396)*y(k,136) + mat(k,1988) = .400_r8*rxt(k,402)*y(k,192) + rxt(k,326)*y(k,197) & + + .270_r8*rxt(k,354)*y(k,198) + rxt(k,373)*y(k,204) + rxt(k,392) & + *y(k,217) + rxt(k,363)*y(k,231) + mat(k,2202) = mat(k,2202) + rxt(k,371)*y(k,16) + mat(k,2096) = .500_r8*rxt(k,351)*y(k,29) + .100_r8*rxt(k,396)*y(k,111) + mat(k,1027) = .400_r8*rxt(k,402)*y(k,124) + mat(k,901) = rxt(k,326)*y(k,124) + 3.200_r8*rxt(k,323)*y(k,197) & + + .800_r8*rxt(k,324)*y(k,201) + mat(k,936) = .270_r8*rxt(k,354)*y(k,124) + mat(k,2388) = .800_r8*rxt(k,324)*y(k,197) + mat(k,571) = rxt(k,373)*y(k,124) + mat(k,698) = .200_r8*rxt(k,391)*y(k,90) + rxt(k,392)*y(k,124) + mat(k,1772) = mat(k,1772) + .800_r8*rxt(k,400)*y(k,1) + rxt(k,327)*y(k,26) & + + .500_r8*rxt(k,328)*y(k,27) + mat(k,814) = rxt(k,363)*y(k,124) + mat(k,371) = -(rxt(k,286)*y(k,56) + rxt(k,287)*y(k,228)) + mat(k,1816) = -rxt(k,286)*y(k,46) + mat(k,1699) = -rxt(k,287)*y(k,46) + mat(k,104) = -(rxt(k,333)*y(k,228)) + mat(k,1662) = -rxt(k,333)*y(k,47) + mat(k,1079) = -(rxt(k,370)*y(k,228)) + mat(k,1767) = -rxt(k,370)*y(k,48) + mat(k,655) = .800_r8*rxt(k,400)*y(k,228) + mat(k,1006) = .520_r8*rxt(k,484)*y(k,136) + mat(k,357) = .500_r8*rxt(k,371)*y(k,126) + mat(k,978) = .520_r8*rxt(k,487)*y(k,136) + mat(k,1984) = .250_r8*rxt(k,402)*y(k,192) + .820_r8*rxt(k,354)*y(k,198) & + + .500_r8*rxt(k,373)*y(k,204) + .270_r8*rxt(k,496)*y(k,233) & + + .040_r8*rxt(k,501)*y(k,234) + mat(k,2197) = .500_r8*rxt(k,371)*y(k,16) + mat(k,2092) = .520_r8*rxt(k,484)*y(k,6) + .520_r8*rxt(k,487)*y(k,110) + mat(k,1117) = .500_r8*rxt(k,505)*y(k,228) + mat(k,1026) = .250_r8*rxt(k,402)*y(k,124) + mat(k,935) = .820_r8*rxt(k,354)*y(k,124) + .820_r8*rxt(k,352)*y(k,201) + mat(k,2384) = .820_r8*rxt(k,352)*y(k,198) + .150_r8*rxt(k,494)*y(k,233) & + + .025_r8*rxt(k,499)*y(k,234) + mat(k,570) = .500_r8*rxt(k,373)*y(k,124) + mat(k,1767) = mat(k,1767) + .800_r8*rxt(k,400)*y(k,1) + .500_r8*rxt(k,505) & *y(k,181) - mat(k,1174) = .270_r8*rxt(k,492)*y(k,124) + .150_r8*rxt(k,490)*y(k,201) - mat(k,1064) = .040_r8*rxt(k,497)*y(k,124) + .025_r8*rxt(k,495)*y(k,201) - mat(k,1281) = -(rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228)) - mat(k,1639) = -rxt(k,353)*y(k,49) - mat(k,1802) = -rxt(k,354)*y(k,49) - mat(k,2342) = .070_r8*rxt(k,450)*y(k,202) + .070_r8*rxt(k,456)*y(k,216) - mat(k,1209) = rxt(k,356)*y(k,228) - mat(k,1270) = .880_r8*rxt(k,378)*y(k,136) - mat(k,1374) = .500_r8*rxt(k,392)*y(k,136) - mat(k,1900) = .170_r8*rxt(k,451)*y(k,202) + .050_r8*rxt(k,414)*y(k,209) & - + .250_r8*rxt(k,376)*y(k,213) + .170_r8*rxt(k,457)*y(k,216) & - + .400_r8*rxt(k,467)*y(k,235) + .250_r8*rxt(k,433)*y(k,237) & - + .540_r8*rxt(k,473)*y(k,238) + .510_r8*rxt(k,476)*y(k,240) - mat(k,1639) = mat(k,1639) + .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,375) & - *y(k,213) + .250_r8*rxt(k,434)*y(k,237) - mat(k,893) = rxt(k,357)*y(k,228) - mat(k,2210) = .880_r8*rxt(k,378)*y(k,105) + .500_r8*rxt(k,392)*y(k,111) - mat(k,1422) = .250_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237) - mat(k,2397) = .240_r8*rxt(k,373)*y(k,213) + .500_r8*rxt(k,361)*y(k,232) & - + .100_r8*rxt(k,431)*y(k,237) - mat(k,780) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124) - mat(k,1331) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126) - mat(k,1355) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) & - + .250_r8*rxt(k,372)*y(k,200) + .240_r8*rxt(k,373)*y(k,201) - mat(k,913) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124) - mat(k,1802) = mat(k,1802) + rxt(k,356)*y(k,96) + rxt(k,357)*y(k,127) - mat(k,1218) = .500_r8*rxt(k,361)*y(k,201) - mat(k,756) = .400_r8*rxt(k,467)*y(k,124) - mat(k,1234) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) & - + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201) - mat(k,772) = .540_r8*rxt(k,473)*y(k,124) - mat(k,512) = .510_r8*rxt(k,476)*y(k,124) - mat(k,705) = -(rxt(k,334)*y(k,228)) - mat(k,1758) = -rxt(k,334)*y(k,50) - mat(k,1129) = .120_r8*rxt(k,347)*y(k,136) - mat(k,2309) = .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383)*y(k,215) - mat(k,2186) = .120_r8*rxt(k,347)*y(k,29) - mat(k,1413) = .150_r8*rxt(k,332)*y(k,90) + .100_r8*rxt(k,331)*y(k,201) - mat(k,2376) = .100_r8*rxt(k,331)*y(k,200) - mat(k,1394) = .150_r8*rxt(k,383)*y(k,90) - mat(k,620) = -(rxt(k,335)*y(k,228)) - mat(k,1750) = -rxt(k,335)*y(k,51) - mat(k,2303) = .400_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,383)*y(k,215) - mat(k,1412) = .400_r8*rxt(k,332)*y(k,90) - mat(k,1393) = .400_r8*rxt(k,383)*y(k,90) - mat(k,824) = -(rxt(k,302)*y(k,228)) - mat(k,1768) = -rxt(k,302)*y(k,52) - mat(k,900) = .300_r8*rxt(k,320)*y(k,201) - mat(k,2377) = .300_r8*rxt(k,320)*y(k,197) + 2.000_r8*rxt(k,299)*y(k,201) & - + .250_r8*rxt(k,406)*y(k,208) + .250_r8*rxt(k,411)*y(k,209) & - + .200_r8*rxt(k,420)*y(k,210) + .250_r8*rxt(k,373)*y(k,213) & - + .250_r8*rxt(k,485)*y(k,223) + .500_r8*rxt(k,361)*y(k,232) & - + .250_r8*rxt(k,490)*y(k,233) + .250_r8*rxt(k,495)*y(k,234) & - + .300_r8*rxt(k,431)*y(k,237) - mat(k,1291) = .250_r8*rxt(k,406)*y(k,201) - mat(k,1320) = .250_r8*rxt(k,411)*y(k,201) - mat(k,1247) = .200_r8*rxt(k,420)*y(k,201) - mat(k,1349) = .250_r8*rxt(k,373)*y(k,201) - mat(k,1104) = .250_r8*rxt(k,485)*y(k,201) - mat(k,1215) = .500_r8*rxt(k,361)*y(k,201) - mat(k,1173) = .250_r8*rxt(k,490)*y(k,201) - mat(k,1061) = .250_r8*rxt(k,495)*y(k,201) - mat(k,1228) = .300_r8*rxt(k,431)*y(k,201) - mat(k,454) = -(rxt(k,303)*y(k,228)) - mat(k,1730) = -rxt(k,303)*y(k,53) - mat(k,2292) = rxt(k,300)*y(k,201) - mat(k,2374) = rxt(k,300)*y(k,90) - mat(k,2259) = -(rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,304)*y(k,228) & - + (rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224)) - mat(k,2170) = -rxt(k,215)*y(k,54) - mat(k,931) = -rxt(k,271)*y(k,54) - mat(k,1828) = -rxt(k,304)*y(k,54) - mat(k,2037) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,54) - mat(k,1147) = .100_r8*rxt(k,347)*y(k,136) - mat(k,2234) = .100_r8*rxt(k,347)*y(k,29) - mat(k,385) = -(rxt(k,267)*y(k,224) + rxt(k,284)*y(k,56) + rxt(k,285)*y(k,228)) - mat(k,2015) = -rxt(k,267)*y(k,55) - mat(k,2133) = -rxt(k,284)*y(k,55) - mat(k,1720) = -rxt(k,285)*y(k,55) - mat(k,2168) = -(rxt(k,214)*y(k,42) + rxt(k,215)*y(k,54) + rxt(k,216)*y(k,77) & - + rxt(k,217)*y(k,79) + (rxt(k,218) + rxt(k,219)) * y(k,90) & - + rxt(k,220)*y(k,136) + rxt(k,227)*y(k,60) + rxt(k,236)*y(k,93) & - + rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) + rxt(k,282)*y(k,46) & - + rxt(k,284)*y(k,55) + rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31)) - mat(k,1992) = -rxt(k,214)*y(k,56) - mat(k,2257) = -rxt(k,215)*y(k,56) - mat(k,1469) = -rxt(k,216)*y(k,56) - mat(k,586) = -rxt(k,217)*y(k,56) - mat(k,2365) = -(rxt(k,218) + rxt(k,219)) * y(k,56) - mat(k,2232) = -rxt(k,220)*y(k,56) - mat(k,963) = -rxt(k,227)*y(k,56) - mat(k,842) = -rxt(k,236)*y(k,56) - mat(k,484) = -rxt(k,277)*y(k,56) - mat(k,607) = -rxt(k,279)*y(k,56) - mat(k,375) = -rxt(k,282)*y(k,56) - mat(k,390) = -rxt(k,284)*y(k,56) - mat(k,302) = -rxt(k,325)*y(k,56) - mat(k,308) = -rxt(k,355)*y(k,56) - mat(k,1576) = rxt(k,255)*y(k,59) - mat(k,103) = 4.000_r8*rxt(k,239)*y(k,224) - mat(k,143) = rxt(k,240)*y(k,224) - mat(k,114) = 2.000_r8*rxt(k,241)*y(k,224) - mat(k,153) = 2.000_r8*rxt(k,242)*y(k,224) - mat(k,118) = 2.000_r8*rxt(k,243)*y(k,224) - mat(k,158) = rxt(k,244)*y(k,224) - mat(k,122) = 2.000_r8*rxt(k,245)*y(k,224) - mat(k,125) = 3.000_r8*rxt(k,281)*y(k,228) - mat(k,375) = mat(k,375) + rxt(k,283)*y(k,228) - mat(k,1602) = rxt(k,255)*y(k,19) + (4.000_r8*rxt(k,222)+2.000_r8*rxt(k,224)) & - *y(k,59) + rxt(k,226)*y(k,124) + rxt(k,231)*y(k,134) & - + rxt(k,510)*y(k,152) + rxt(k,221)*y(k,201) + rxt(k,232) & + mat(k,1173) = .270_r8*rxt(k,496)*y(k,124) + .150_r8*rxt(k,494)*y(k,201) + mat(k,1063) = .040_r8*rxt(k,501)*y(k,124) + .025_r8*rxt(k,499)*y(k,201) + mat(k,1280) = -(rxt(k,357)*y(k,126) + rxt(k,358)*y(k,228)) + mat(k,2212) = -rxt(k,357)*y(k,49) + mat(k,1782) = -rxt(k,358)*y(k,49) + mat(k,2319) = .070_r8*rxt(k,454)*y(k,202) + .070_r8*rxt(k,460)*y(k,216) + mat(k,1208) = rxt(k,360)*y(k,228) + mat(k,1269) = .880_r8*rxt(k,382)*y(k,136) + mat(k,1373) = .500_r8*rxt(k,396)*y(k,136) + mat(k,1998) = .170_r8*rxt(k,455)*y(k,202) + .050_r8*rxt(k,418)*y(k,209) & + + .250_r8*rxt(k,380)*y(k,213) + .170_r8*rxt(k,461)*y(k,216) & + + .400_r8*rxt(k,471)*y(k,235) + .250_r8*rxt(k,437)*y(k,237) & + + .540_r8*rxt(k,477)*y(k,238) + .510_r8*rxt(k,480)*y(k,240) + mat(k,2212) = mat(k,2212) + .050_r8*rxt(k,419)*y(k,209) + .250_r8*rxt(k,379) & + *y(k,213) + .250_r8*rxt(k,438)*y(k,237) + mat(k,892) = rxt(k,361)*y(k,228) + mat(k,2104) = .880_r8*rxt(k,382)*y(k,105) + .500_r8*rxt(k,396)*y(k,111) + mat(k,1421) = .250_r8*rxt(k,376)*y(k,213) + .250_r8*rxt(k,434)*y(k,237) + mat(k,2397) = .240_r8*rxt(k,377)*y(k,213) + .500_r8*rxt(k,365)*y(k,232) & + + .100_r8*rxt(k,435)*y(k,237) + mat(k,779) = .070_r8*rxt(k,454)*y(k,90) + .170_r8*rxt(k,455)*y(k,124) + mat(k,1330) = .050_r8*rxt(k,418)*y(k,124) + .050_r8*rxt(k,419)*y(k,126) + mat(k,1354) = .250_r8*rxt(k,380)*y(k,124) + .250_r8*rxt(k,379)*y(k,126) & + + .250_r8*rxt(k,376)*y(k,200) + .240_r8*rxt(k,377)*y(k,201) + mat(k,912) = .070_r8*rxt(k,460)*y(k,90) + .170_r8*rxt(k,461)*y(k,124) + mat(k,1782) = mat(k,1782) + rxt(k,360)*y(k,96) + rxt(k,361)*y(k,127) + mat(k,1217) = .500_r8*rxt(k,365)*y(k,201) + mat(k,755) = .400_r8*rxt(k,471)*y(k,124) + mat(k,1233) = .250_r8*rxt(k,437)*y(k,124) + .250_r8*rxt(k,438)*y(k,126) & + + .250_r8*rxt(k,434)*y(k,200) + .100_r8*rxt(k,435)*y(k,201) + mat(k,771) = .540_r8*rxt(k,477)*y(k,124) + mat(k,512) = .510_r8*rxt(k,480)*y(k,124) + mat(k,704) = -(rxt(k,338)*y(k,228)) + mat(k,1738) = -rxt(k,338)*y(k,50) + mat(k,1128) = .120_r8*rxt(k,351)*y(k,136) + mat(k,2286) = .150_r8*rxt(k,336)*y(k,200) + .150_r8*rxt(k,387)*y(k,215) + mat(k,2080) = .120_r8*rxt(k,351)*y(k,29) + mat(k,1412) = .150_r8*rxt(k,336)*y(k,90) + .100_r8*rxt(k,335)*y(k,201) + mat(k,2376) = .100_r8*rxt(k,335)*y(k,200) + mat(k,1393) = .150_r8*rxt(k,387)*y(k,90) + mat(k,615) = -(rxt(k,339)*y(k,228)) + mat(k,1730) = -rxt(k,339)*y(k,51) + mat(k,2280) = .360_r8*rxt(k,336)*y(k,200) + .400_r8*rxt(k,387)*y(k,215) + mat(k,1411) = .360_r8*rxt(k,336)*y(k,90) + mat(k,1392) = .400_r8*rxt(k,387)*y(k,90) + mat(k,823) = -(rxt(k,306)*y(k,228)) + mat(k,1748) = -rxt(k,306)*y(k,52) + mat(k,899) = .300_r8*rxt(k,324)*y(k,201) + mat(k,2377) = .300_r8*rxt(k,324)*y(k,197) + 2.000_r8*rxt(k,303)*y(k,201) & + + .250_r8*rxt(k,410)*y(k,208) + .250_r8*rxt(k,415)*y(k,209) & + + .200_r8*rxt(k,424)*y(k,210) + .250_r8*rxt(k,377)*y(k,213) & + + .250_r8*rxt(k,489)*y(k,223) + .500_r8*rxt(k,365)*y(k,232) & + + .250_r8*rxt(k,494)*y(k,233) + .250_r8*rxt(k,499)*y(k,234) & + + .300_r8*rxt(k,435)*y(k,237) + mat(k,1290) = .250_r8*rxt(k,410)*y(k,201) + mat(k,1319) = .250_r8*rxt(k,415)*y(k,201) + mat(k,1246) = .200_r8*rxt(k,424)*y(k,201) + mat(k,1348) = .250_r8*rxt(k,377)*y(k,201) + mat(k,1103) = .250_r8*rxt(k,489)*y(k,201) + mat(k,1214) = .500_r8*rxt(k,365)*y(k,201) + mat(k,1172) = .250_r8*rxt(k,494)*y(k,201) + mat(k,1060) = .250_r8*rxt(k,499)*y(k,201) + mat(k,1227) = .300_r8*rxt(k,435)*y(k,201) + mat(k,454) = -(rxt(k,307)*y(k,228)) + mat(k,1710) = -rxt(k,307)*y(k,53) + mat(k,2269) = rxt(k,304)*y(k,201) + mat(k,2374) = rxt(k,304)*y(k,90) + mat(k,1563) = -(rxt(k,219)*y(k,56) + rxt(k,275)*y(k,73) + rxt(k,308)*y(k,228) & + + (rxt(k,314) + rxt(k,315) + rxt(k,316)) * y(k,224)) + mat(k,1841) = -rxt(k,219)*y(k,54) + mat(k,926) = -rxt(k,275)*y(k,54) + mat(k,1795) = -rxt(k,308)*y(k,54) + mat(k,1630) = -(rxt(k,314) + rxt(k,315) + rxt(k,316)) * y(k,54) + mat(k,1140) = .100_r8*rxt(k,351)*y(k,136) + mat(k,2115) = .100_r8*rxt(k,351)*y(k,29) + mat(k,385) = -(rxt(k,271)*y(k,224) + rxt(k,288)*y(k,56) + rxt(k,289)*y(k,228)) + mat(k,1621) = -rxt(k,271)*y(k,55) + mat(k,1817) = -rxt(k,288)*y(k,55) + mat(k,1700) = -rxt(k,289)*y(k,55) + mat(k,1845) = -(rxt(k,218)*y(k,42) + rxt(k,219)*y(k,54) + rxt(k,220)*y(k,77) & + + rxt(k,221)*y(k,79) + (rxt(k,222) + rxt(k,223)) * y(k,90) & + + rxt(k,224)*y(k,136) + rxt(k,231)*y(k,60) + rxt(k,240)*y(k,93) & + + rxt(k,281)*y(k,41) + rxt(k,283)*y(k,43) + rxt(k,286)*y(k,46) & + + rxt(k,288)*y(k,55) + rxt(k,329)*y(k,28) + rxt(k,359)*y(k,31)) + mat(k,1916) = -rxt(k,218)*y(k,56) + mat(k,1567) = -rxt(k,219)*y(k,56) + mat(k,1465) = -rxt(k,220)*y(k,56) + mat(k,589) = -rxt(k,221)*y(k,56) + mat(k,2335) = -(rxt(k,222) + rxt(k,223)) * y(k,56) + mat(k,2119) = -rxt(k,224)*y(k,56) + mat(k,957) = -rxt(k,231)*y(k,56) + mat(k,839) = -rxt(k,240)*y(k,56) + mat(k,484) = -rxt(k,281)*y(k,56) + mat(k,602) = -rxt(k,283)*y(k,56) + mat(k,375) = -rxt(k,286)*y(k,56) + mat(k,390) = -rxt(k,288)*y(k,56) + mat(k,302) = -rxt(k,329)*y(k,56) + mat(k,308) = -rxt(k,359)*y(k,56) + mat(k,1592) = rxt(k,259)*y(k,59) + mat(k,103) = 4.000_r8*rxt(k,243)*y(k,224) + mat(k,143) = rxt(k,244)*y(k,224) + mat(k,114) = 2.000_r8*rxt(k,245)*y(k,224) + mat(k,153) = 2.000_r8*rxt(k,246)*y(k,224) + mat(k,118) = 2.000_r8*rxt(k,247)*y(k,224) + mat(k,158) = rxt(k,248)*y(k,224) + mat(k,122) = 2.000_r8*rxt(k,249)*y(k,224) + mat(k,125) = 3.000_r8*rxt(k,285)*y(k,228) + mat(k,375) = mat(k,375) + rxt(k,287)*y(k,228) + mat(k,2146) = rxt(k,259)*y(k,19) + (4.000_r8*rxt(k,226)+2.000_r8*rxt(k,228)) & + *y(k,59) + rxt(k,230)*y(k,124) + rxt(k,235)*y(k,134) & + + rxt(k,514)*y(k,152) + rxt(k,225)*y(k,201) + rxt(k,236) & *y(k,228) - mat(k,249) = rxt(k,276)*y(k,224) - mat(k,245) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228) - mat(k,255) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228) - mat(k,296) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228) - mat(k,1506) = rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224) + rxt(k,235)*y(k,228) - mat(k,1921) = rxt(k,226)*y(k,59) - mat(k,2101) = rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85) - mat(k,1486) = rxt(k,510)*y(k,59) - mat(k,2417) = rxt(k,221)*y(k,59) - mat(k,2035) = 4.000_r8*rxt(k,239)*y(k,33) + rxt(k,240)*y(k,34) & - + 2.000_r8*rxt(k,241)*y(k,36) + 2.000_r8*rxt(k,242)*y(k,37) & - + 2.000_r8*rxt(k,243)*y(k,38) + rxt(k,244)*y(k,39) & - + 2.000_r8*rxt(k,245)*y(k,40) + rxt(k,276)*y(k,65) + rxt(k,291) & - *y(k,82) + rxt(k,292)*y(k,83) + rxt(k,293)*y(k,84) + rxt(k,246) & + mat(k,249) = rxt(k,280)*y(k,224) + mat(k,245) = rxt(k,295)*y(k,224) + rxt(k,290)*y(k,228) + mat(k,255) = rxt(k,296)*y(k,224) + rxt(k,291)*y(k,228) + mat(k,296) = rxt(k,297)*y(k,224) + rxt(k,292)*y(k,228) + mat(k,1499) = rxt(k,238)*y(k,134) + rxt(k,250)*y(k,224) + rxt(k,239)*y(k,228) + mat(k,2012) = rxt(k,230)*y(k,59) + mat(k,2055) = rxt(k,235)*y(k,59) + rxt(k,238)*y(k,85) + mat(k,1480) = rxt(k,514)*y(k,59) + mat(k,2410) = rxt(k,225)*y(k,59) + mat(k,1634) = 4.000_r8*rxt(k,243)*y(k,33) + rxt(k,244)*y(k,34) & + + 2.000_r8*rxt(k,245)*y(k,36) + 2.000_r8*rxt(k,246)*y(k,37) & + + 2.000_r8*rxt(k,247)*y(k,38) + rxt(k,248)*y(k,39) & + + 2.000_r8*rxt(k,249)*y(k,40) + rxt(k,280)*y(k,65) + rxt(k,295) & + *y(k,82) + rxt(k,296)*y(k,83) + rxt(k,297)*y(k,84) + rxt(k,250) & *y(k,85) - mat(k,1826) = 3.000_r8*rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,232) & - *y(k,59) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) & - *y(k,84) + rxt(k,235)*y(k,85) - mat(k,2128) = rxt(k,227)*y(k,60) - mat(k,1581) = 2.000_r8*rxt(k,223)*y(k,59) - mat(k,953) = rxt(k,227)*y(k,56) + (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85) - mat(k,1490) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60) + (rxt(k,563) & - +rxt(k,569)+rxt(k,574))*y(k,93) - mat(k,836) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85) - mat(k,1580) = 2.000_r8*rxt(k,248)*y(k,59) - mat(k,1592) = -(rxt(k,221)*y(k,201) + (4._r8*rxt(k,222) + 4._r8*rxt(k,223) & - + 4._r8*rxt(k,224) + 4._r8*rxt(k,248)) * y(k,59) + rxt(k,225) & - *y(k,90) + rxt(k,226)*y(k,124) + rxt(k,228)*y(k,125) + rxt(k,231) & - *y(k,134) + (rxt(k,232) + rxt(k,233)) * y(k,228) + (rxt(k,254) & - + rxt(k,255) + rxt(k,256)) * y(k,19) + rxt(k,510)*y(k,152)) - mat(k,2407) = -rxt(k,221)*y(k,59) - mat(k,2355) = -rxt(k,225)*y(k,59) - mat(k,1911) = -rxt(k,226)*y(k,59) - mat(k,1956) = -rxt(k,228)*y(k,59) - mat(k,2091) = -rxt(k,231)*y(k,59) - mat(k,1816) = -(rxt(k,232) + rxt(k,233)) * y(k,59) - mat(k,1566) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,59) - mat(k,1480) = -rxt(k,510)*y(k,59) - mat(k,2158) = rxt(k,219)*y(k,90) + rxt(k,236)*y(k,93) + rxt(k,220)*y(k,136) - mat(k,957) = rxt(k,229)*y(k,134) - mat(k,1498) = rxt(k,247)*y(k,224) - mat(k,2355) = mat(k,2355) + rxt(k,219)*y(k,56) - mat(k,839) = rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228) - mat(k,2091) = mat(k,2091) + rxt(k,229)*y(k,60) + rxt(k,237)*y(k,93) - mat(k,2222) = rxt(k,220)*y(k,56) - mat(k,337) = rxt(k,515)*y(k,152) - mat(k,1480) = mat(k,1480) + rxt(k,515)*y(k,138) - mat(k,2025) = rxt(k,247)*y(k,85) - mat(k,1816) = mat(k,1816) + rxt(k,238)*y(k,93) + mat(k,1799) = 3.000_r8*rxt(k,285)*y(k,44) + rxt(k,287)*y(k,46) + rxt(k,236) & + *y(k,59) + rxt(k,290)*y(k,82) + rxt(k,291)*y(k,83) + rxt(k,292) & + *y(k,84) + rxt(k,239)*y(k,85) + mat(k,1812) = rxt(k,231)*y(k,60) + mat(k,2133) = 2.000_r8*rxt(k,227)*y(k,59) + mat(k,952) = rxt(k,231)*y(k,56) + (rxt(k,572)+rxt(k,577)+rxt(k,582))*y(k,85) + mat(k,1489) = (rxt(k,572)+rxt(k,577)+rxt(k,582))*y(k,60) + (rxt(k,567) & + +rxt(k,573)+rxt(k,578))*y(k,93) + mat(k,835) = (rxt(k,567)+rxt(k,573)+rxt(k,578))*y(k,85) + mat(k,2132) = 2.000_r8*rxt(k,252)*y(k,59) + mat(k,2152) = -(rxt(k,225)*y(k,201) + (4._r8*rxt(k,226) + 4._r8*rxt(k,227) & + + 4._r8*rxt(k,228) + 4._r8*rxt(k,252)) * y(k,59) + rxt(k,229) & + *y(k,90) + rxt(k,230)*y(k,124) + rxt(k,232)*y(k,125) + rxt(k,235) & + *y(k,134) + (rxt(k,236) + rxt(k,237)) * y(k,228) + (rxt(k,258) & + + rxt(k,259) + rxt(k,260)) * y(k,19) + rxt(k,514)*y(k,152)) + mat(k,2416) = -rxt(k,225)*y(k,59) + mat(k,2341) = -rxt(k,229)*y(k,59) + mat(k,2018) = -rxt(k,230)*y(k,59) + mat(k,1896) = -rxt(k,232)*y(k,59) + mat(k,2061) = -rxt(k,235)*y(k,59) + mat(k,1805) = -(rxt(k,236) + rxt(k,237)) * y(k,59) + mat(k,1598) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,59) + mat(k,1485) = -rxt(k,514)*y(k,59) + mat(k,1851) = rxt(k,223)*y(k,90) + rxt(k,240)*y(k,93) + rxt(k,224)*y(k,136) + mat(k,960) = rxt(k,233)*y(k,134) + mat(k,1502) = rxt(k,251)*y(k,224) + mat(k,2341) = mat(k,2341) + rxt(k,223)*y(k,56) + mat(k,841) = rxt(k,240)*y(k,56) + rxt(k,241)*y(k,134) + rxt(k,242)*y(k,228) + mat(k,2061) = mat(k,2061) + rxt(k,233)*y(k,60) + rxt(k,241)*y(k,93) + mat(k,2125) = rxt(k,224)*y(k,56) + mat(k,338) = rxt(k,519)*y(k,152) + mat(k,1485) = mat(k,1485) + rxt(k,519)*y(k,138) + mat(k,1640) = rxt(k,251)*y(k,85) + mat(k,1805) = mat(k,1805) + rxt(k,242)*y(k,93) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -520,210 +520,211 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,955) = -(rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228) & - + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85)) - mat(k,2143) = -rxt(k,227)*y(k,60) - mat(k,2081) = -rxt(k,229)*y(k,60) - mat(k,1779) = -rxt(k,230)*y(k,60) - mat(k,1494) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60) - mat(k,1586) = rxt(k,228)*y(k,125) - mat(k,1942) = rxt(k,228)*y(k,59) - mat(k,1160) = -(rxt(k,314)*y(k,228)) - mat(k,1793) = -rxt(k,314)*y(k,62) - mat(k,982) = .230_r8*rxt(k,480)*y(k,136) - mat(k,1509) = rxt(k,250)*y(k,42) - mat(k,288) = .350_r8*rxt(k,316)*y(k,228) - mat(k,553) = .630_r8*rxt(k,318)*y(k,136) - mat(k,1135) = .560_r8*rxt(k,347)*y(k,136) - mat(k,1975) = rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) + rxt(k,295)*y(k,126) & - + rxt(k,296)*y(k,134) + rxt(k,297)*y(k,228) - mat(k,372) = rxt(k,282)*y(k,56) - mat(k,1280) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228) - mat(k,2147) = rxt(k,214)*y(k,42) + rxt(k,282)*y(k,46) - mat(k,1449) = rxt(k,591)*y(k,229) - mat(k,1055) = rxt(k,341)*y(k,228) - mat(k,2334) = .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453)*y(k,214) & - + .140_r8*rxt(k,456)*y(k,216) - mat(k,879) = .620_r8*rxt(k,425)*y(k,136) - mat(k,1268) = .650_r8*rxt(k,378)*y(k,136) - mat(k,1026) = .230_r8*rxt(k,483)*y(k,136) - mat(k,1372) = .560_r8*rxt(k,392)*y(k,136) - mat(k,1891) = .170_r8*rxt(k,451)*y(k,202) + .220_r8*rxt(k,376)*y(k,213) & - + .400_r8*rxt(k,454)*y(k,214) + .350_r8*rxt(k,457)*y(k,216) & - + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237) - mat(k,1630) = rxt(k,295)*y(k,42) + rxt(k,353)*y(k,49) + .220_r8*rxt(k,375) & - *y(k,213) + .500_r8*rxt(k,434)*y(k,237) - mat(k,2083) = rxt(k,296)*y(k,42) + rxt(k,504)*y(k,139) - mat(k,2203) = .230_r8*rxt(k,480)*y(k,6) + .630_r8*rxt(k,318)*y(k,25) & - + .560_r8*rxt(k,347)*y(k,29) + .620_r8*rxt(k,425)*y(k,99) & - + .650_r8*rxt(k,378)*y(k,105) + .230_r8*rxt(k,483)*y(k,110) & - + .560_r8*rxt(k,392)*y(k,111) - mat(k,366) = rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228) - mat(k,1120) = .700_r8*rxt(k,501)*y(k,228) - mat(k,1416) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237) - mat(k,2389) = .110_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) & - + .200_r8*rxt(k,431)*y(k,237) - mat(k,779) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124) - mat(k,1350) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) & - + .220_r8*rxt(k,372)*y(k,200) + .110_r8*rxt(k,373)*y(k,201) - mat(k,742) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124) - mat(k,912) = .140_r8*rxt(k,456)*y(k,90) + .350_r8*rxt(k,457)*y(k,124) - mat(k,1793) = mat(k,1793) + .350_r8*rxt(k,316)*y(k,24) + rxt(k,297)*y(k,42) & - + rxt(k,354)*y(k,49) + rxt(k,341)*y(k,75) + rxt(k,505)*y(k,139) & - + .700_r8*rxt(k,501)*y(k,181) - mat(k,809) = rxt(k,591)*y(k,63) - mat(k,1176) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201) - mat(k,1230) = .250_r8*rxt(k,433)*y(k,124) + .500_r8*rxt(k,434)*y(k,126) & - + .250_r8*rxt(k,430)*y(k,200) + .200_r8*rxt(k,431)*y(k,201) - mat(k,1450) = -(rxt(k,591)*y(k,229)) - mat(k,810) = -rxt(k,591)*y(k,63) - mat(k,986) = .270_r8*rxt(k,480)*y(k,136) - mat(k,1139) = .200_r8*rxt(k,347)*y(k,136) - mat(k,706) = rxt(k,334)*y(k,228) - mat(k,622) = .500_r8*rxt(k,335)*y(k,228) - mat(k,1161) = rxt(k,314)*y(k,228) - mat(k,1167) = .800_r8*rxt(k,340)*y(k,228) - mat(k,1056) = rxt(k,341)*y(k,228) - mat(k,920) = rxt(k,306)*y(k,228) - mat(k,2349) = .450_r8*rxt(k,383)*y(k,215) - mat(k,614) = .500_r8*rxt(k,391)*y(k,228) - mat(k,1030) = .270_r8*rxt(k,483)*y(k,136) - mat(k,1379) = .100_r8*rxt(k,392)*y(k,136) - mat(k,1907) = rxt(k,333)*y(k,200) + .900_r8*rxt(k,492)*y(k,233) - mat(k,2217) = .270_r8*rxt(k,480)*y(k,6) + .200_r8*rxt(k,347)*y(k,29) & - + .270_r8*rxt(k,483)*y(k,110) + .100_r8*rxt(k,392)*y(k,111) - mat(k,1123) = 1.800_r8*rxt(k,501)*y(k,228) - mat(k,1429) = rxt(k,333)*y(k,124) + 4.000_r8*rxt(k,330)*y(k,200) & - + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) & - + 2.000_r8*rxt(k,381)*y(k,215) + rxt(k,430)*y(k,237) - mat(k,2404) = .900_r8*rxt(k,331)*y(k,200) + rxt(k,382)*y(k,215) & - + .500_r8*rxt(k,490)*y(k,233) - mat(k,1304) = rxt(k,405)*y(k,200) - mat(k,1399) = .450_r8*rxt(k,383)*y(k,90) + 2.000_r8*rxt(k,381)*y(k,200) & - + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215) - mat(k,1809) = rxt(k,334)*y(k,50) + .500_r8*rxt(k,335)*y(k,51) + rxt(k,314) & - *y(k,62) + .800_r8*rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) & - + rxt(k,306)*y(k,87) + .500_r8*rxt(k,391)*y(k,109) & - + 1.800_r8*rxt(k,501)*y(k,181) - mat(k,1181) = .900_r8*rxt(k,492)*y(k,124) + .500_r8*rxt(k,490)*y(k,201) - mat(k,1236) = rxt(k,430)*y(k,200) - mat(k,238) = -(rxt(k,275)*y(k,224)) - mat(k,2009) = -rxt(k,275)*y(k,64) - mat(k,140) = rxt(k,240)*y(k,224) - mat(k,145) = rxt(k,266)*y(k,224) - mat(k,150) = rxt(k,242)*y(k,224) - mat(k,116) = 2.000_r8*rxt(k,243)*y(k,224) - mat(k,155) = 2.000_r8*rxt(k,244)*y(k,224) - mat(k,120) = rxt(k,245)*y(k,224) - mat(k,108) = 2.000_r8*rxt(k,268)*y(k,224) - mat(k,250) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228) - mat(k,291) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228) - mat(k,2009) = mat(k,2009) + rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) & - + rxt(k,242)*y(k,37) + 2.000_r8*rxt(k,243)*y(k,38) & - + 2.000_r8*rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) & - + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,292)*y(k,83) + rxt(k,293) & + mat(k,954) = -(rxt(k,231)*y(k,56) + rxt(k,233)*y(k,134) + rxt(k,234)*y(k,228) & + + (rxt(k,572) + rxt(k,577) + rxt(k,582)) * y(k,85)) + mat(k,1827) = -rxt(k,231)*y(k,60) + mat(k,2042) = -rxt(k,233)*y(k,60) + mat(k,1759) = -rxt(k,234)*y(k,60) + mat(k,1493) = -(rxt(k,572) + rxt(k,577) + rxt(k,582)) * y(k,60) + mat(k,2138) = rxt(k,232)*y(k,125) + mat(k,1873) = rxt(k,232)*y(k,59) + mat(k,1159) = -(rxt(k,318)*y(k,228)) + mat(k,1773) = -rxt(k,318)*y(k,62) + mat(k,1009) = .230_r8*rxt(k,484)*y(k,136) + mat(k,1508) = rxt(k,254)*y(k,42) + mat(k,288) = .350_r8*rxt(k,320)*y(k,228) + mat(k,548) = .630_r8*rxt(k,322)*y(k,136) + mat(k,1134) = .560_r8*rxt(k,351)*y(k,136) + mat(k,1906) = rxt(k,254)*y(k,17) + rxt(k,218)*y(k,56) + rxt(k,299)*y(k,126) & + + rxt(k,300)*y(k,134) + rxt(k,301)*y(k,228) + mat(k,372) = rxt(k,286)*y(k,56) + mat(k,1279) = rxt(k,357)*y(k,126) + rxt(k,358)*y(k,228) + mat(k,1831) = rxt(k,218)*y(k,42) + rxt(k,286)*y(k,46) + mat(k,1448) = rxt(k,595)*y(k,229) + mat(k,1038) = rxt(k,345)*y(k,228) + mat(k,2311) = .070_r8*rxt(k,454)*y(k,202) + .160_r8*rxt(k,457)*y(k,214) & + + .140_r8*rxt(k,460)*y(k,216) + mat(k,878) = .620_r8*rxt(k,429)*y(k,136) + mat(k,1267) = .650_r8*rxt(k,382)*y(k,136) + mat(k,981) = .230_r8*rxt(k,487)*y(k,136) + mat(k,1371) = .560_r8*rxt(k,396)*y(k,136) + mat(k,1989) = .170_r8*rxt(k,455)*y(k,202) + .220_r8*rxt(k,380)*y(k,213) & + + .400_r8*rxt(k,458)*y(k,214) + .350_r8*rxt(k,461)*y(k,216) & + + .225_r8*rxt(k,496)*y(k,233) + .250_r8*rxt(k,437)*y(k,237) + mat(k,2203) = rxt(k,299)*y(k,42) + rxt(k,357)*y(k,49) + .220_r8*rxt(k,379) & + *y(k,213) + .500_r8*rxt(k,438)*y(k,237) + mat(k,2044) = rxt(k,300)*y(k,42) + rxt(k,508)*y(k,139) + mat(k,2097) = .230_r8*rxt(k,484)*y(k,6) + .630_r8*rxt(k,322)*y(k,25) & + + .560_r8*rxt(k,351)*y(k,29) + .620_r8*rxt(k,429)*y(k,99) & + + .650_r8*rxt(k,382)*y(k,105) + .230_r8*rxt(k,487)*y(k,110) & + + .560_r8*rxt(k,396)*y(k,111) + mat(k,366) = rxt(k,508)*y(k,134) + rxt(k,509)*y(k,228) + mat(k,1119) = .700_r8*rxt(k,505)*y(k,228) + mat(k,1415) = .220_r8*rxt(k,376)*y(k,213) + .250_r8*rxt(k,434)*y(k,237) + mat(k,2389) = .110_r8*rxt(k,377)*y(k,213) + .125_r8*rxt(k,494)*y(k,233) & + + .200_r8*rxt(k,435)*y(k,237) + mat(k,778) = .070_r8*rxt(k,454)*y(k,90) + .170_r8*rxt(k,455)*y(k,124) + mat(k,1349) = .220_r8*rxt(k,380)*y(k,124) + .220_r8*rxt(k,379)*y(k,126) & + + .220_r8*rxt(k,376)*y(k,200) + .110_r8*rxt(k,377)*y(k,201) + mat(k,741) = .160_r8*rxt(k,457)*y(k,90) + .400_r8*rxt(k,458)*y(k,124) + mat(k,911) = .140_r8*rxt(k,460)*y(k,90) + .350_r8*rxt(k,461)*y(k,124) + mat(k,1773) = mat(k,1773) + .350_r8*rxt(k,320)*y(k,24) + rxt(k,301)*y(k,42) & + + rxt(k,358)*y(k,49) + rxt(k,345)*y(k,75) + rxt(k,509)*y(k,139) & + + .700_r8*rxt(k,505)*y(k,181) + mat(k,808) = rxt(k,595)*y(k,63) + mat(k,1175) = .225_r8*rxt(k,496)*y(k,124) + .125_r8*rxt(k,494)*y(k,201) + mat(k,1229) = .250_r8*rxt(k,437)*y(k,124) + .500_r8*rxt(k,438)*y(k,126) & + + .250_r8*rxt(k,434)*y(k,200) + .200_r8*rxt(k,435)*y(k,201) + mat(k,1449) = -(rxt(k,595)*y(k,229)) + mat(k,809) = -rxt(k,595)*y(k,63) + mat(k,1013) = .270_r8*rxt(k,484)*y(k,136) + mat(k,1138) = .200_r8*rxt(k,351)*y(k,136) + mat(k,705) = rxt(k,338)*y(k,228) + mat(k,617) = .500_r8*rxt(k,339)*y(k,228) + mat(k,1160) = rxt(k,318)*y(k,228) + mat(k,1166) = .800_r8*rxt(k,344)*y(k,228) + mat(k,1039) = rxt(k,345)*y(k,228) + mat(k,919) = rxt(k,310)*y(k,228) + mat(k,2326) = .490_r8*rxt(k,336)*y(k,200) + .450_r8*rxt(k,387)*y(k,215) + mat(k,609) = .500_r8*rxt(k,395)*y(k,228) + mat(k,985) = .270_r8*rxt(k,487)*y(k,136) + mat(k,1378) = .100_r8*rxt(k,396)*y(k,136) + mat(k,2005) = rxt(k,337)*y(k,200) + .900_r8*rxt(k,496)*y(k,233) + mat(k,2111) = .270_r8*rxt(k,484)*y(k,6) + .200_r8*rxt(k,351)*y(k,29) & + + .270_r8*rxt(k,487)*y(k,110) + .100_r8*rxt(k,396)*y(k,111) + mat(k,1122) = 1.800_r8*rxt(k,505)*y(k,228) + mat(k,1428) = .490_r8*rxt(k,336)*y(k,90) + rxt(k,337)*y(k,124) & + + 4.000_r8*rxt(k,334)*y(k,200) + .900_r8*rxt(k,335)*y(k,201) & + + rxt(k,409)*y(k,208) + 2.000_r8*rxt(k,385)*y(k,215) & + + rxt(k,434)*y(k,237) + mat(k,2404) = .900_r8*rxt(k,335)*y(k,200) + rxt(k,386)*y(k,215) & + + .500_r8*rxt(k,494)*y(k,233) + mat(k,1303) = rxt(k,409)*y(k,200) + mat(k,1398) = .450_r8*rxt(k,387)*y(k,90) + 2.000_r8*rxt(k,385)*y(k,200) & + + rxt(k,386)*y(k,201) + 4.000_r8*rxt(k,388)*y(k,215) + mat(k,1789) = rxt(k,338)*y(k,50) + .500_r8*rxt(k,339)*y(k,51) + rxt(k,318) & + *y(k,62) + .800_r8*rxt(k,344)*y(k,74) + rxt(k,345)*y(k,75) & + + rxt(k,310)*y(k,87) + .500_r8*rxt(k,395)*y(k,109) & + + 1.800_r8*rxt(k,505)*y(k,181) + mat(k,1180) = .900_r8*rxt(k,496)*y(k,124) + .500_r8*rxt(k,494)*y(k,201) + mat(k,1235) = rxt(k,434)*y(k,200) + mat(k,238) = -(rxt(k,279)*y(k,224)) + mat(k,1615) = -rxt(k,279)*y(k,64) + mat(k,140) = rxt(k,244)*y(k,224) + mat(k,145) = rxt(k,270)*y(k,224) + mat(k,150) = rxt(k,246)*y(k,224) + mat(k,116) = 2.000_r8*rxt(k,247)*y(k,224) + mat(k,155) = 2.000_r8*rxt(k,248)*y(k,224) + mat(k,120) = rxt(k,249)*y(k,224) + mat(k,108) = 2.000_r8*rxt(k,272)*y(k,224) + mat(k,250) = rxt(k,296)*y(k,224) + rxt(k,291)*y(k,228) + mat(k,291) = rxt(k,297)*y(k,224) + rxt(k,292)*y(k,228) + mat(k,1615) = mat(k,1615) + rxt(k,244)*y(k,34) + rxt(k,270)*y(k,35) & + + rxt(k,246)*y(k,37) + 2.000_r8*rxt(k,247)*y(k,38) & + + 2.000_r8*rxt(k,248)*y(k,39) + rxt(k,249)*y(k,40) & + + 2.000_r8*rxt(k,272)*y(k,78) + rxt(k,296)*y(k,83) + rxt(k,297) & *y(k,84) - mat(k,1699) = rxt(k,287)*y(k,83) + rxt(k,288)*y(k,84) - mat(k,246) = -(rxt(k,276)*y(k,224)) - mat(k,2011) = -rxt(k,276)*y(k,65) - mat(k,112) = rxt(k,241)*y(k,224) - mat(k,151) = rxt(k,242)*y(k,224) - mat(k,242) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228) - mat(k,2011) = mat(k,2011) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) & - + rxt(k,291)*y(k,82) - mat(k,1701) = rxt(k,286)*y(k,82) - mat(k,194) = -(rxt(k,449)*y(k,228)) - mat(k,1690) = -rxt(k,449)*y(k,66) - mat(k,188) = .180_r8*rxt(k,469)*y(k,228) - mat(k,1690) = mat(k,1690) + .180_r8*rxt(k,469)*y(k,183) - mat(k,310) = -(rxt(k,502)*y(k,126) + (rxt(k,503) + rxt(k,517)) * y(k,228)) - mat(k,1610) = -rxt(k,502)*y(k,67) - mat(k,1710) = -(rxt(k,503) + rxt(k,517)) * y(k,67) - mat(k,2275) = rxt(k,336)*y(k,206) - mat(k,795) = rxt(k,336)*y(k,90) - mat(k,925) = -(rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,273)*y(k,241) & - + rxt(k,274)*y(k,89)) - mat(k,2239) = -rxt(k,271)*y(k,73) - mat(k,1460) = -rxt(k,272)*y(k,73) - mat(k,2426) = -rxt(k,273)*y(k,73) - mat(k,2042) = -rxt(k,274)*y(k,73) - mat(k,146) = rxt(k,266)*y(k,224) - mat(k,156) = rxt(k,244)*y(k,224) - mat(k,239) = 2.000_r8*rxt(k,275)*y(k,224) - mat(k,247) = rxt(k,276)*y(k,224) - mat(k,2019) = rxt(k,266)*y(k,35) + rxt(k,244)*y(k,39) + 2.000_r8*rxt(k,275) & - *y(k,64) + rxt(k,276)*y(k,65) - mat(k,1166) = -(rxt(k,340)*y(k,228)) - mat(k,1794) = -rxt(k,340)*y(k,74) - mat(k,590) = .700_r8*rxt(k,416)*y(k,228) - mat(k,560) = .500_r8*rxt(k,417)*y(k,228) - mat(k,429) = rxt(k,428)*y(k,228) - mat(k,1892) = .050_r8*rxt(k,414)*y(k,209) + .530_r8*rxt(k,376)*y(k,213) & - + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237) - mat(k,1631) = .050_r8*rxt(k,415)*y(k,209) + .530_r8*rxt(k,375)*y(k,213) & - + .250_r8*rxt(k,434)*y(k,237) - mat(k,1538) = rxt(k,339)*y(k,205) - mat(k,1417) = .530_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237) - mat(k,2390) = .260_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) & - + .100_r8*rxt(k,431)*y(k,237) - mat(k,461) = rxt(k,339)*y(k,135) - mat(k,1325) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126) - mat(k,1351) = .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375)*y(k,126) & - + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373)*y(k,201) - mat(k,1794) = mat(k,1794) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) & - *y(k,101) + rxt(k,428)*y(k,115) - mat(k,1177) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201) - mat(k,1231) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) & - + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201) - mat(k,1054) = -(rxt(k,341)*y(k,228)) - mat(k,1784) = -rxt(k,341)*y(k,75) - mat(k,287) = .650_r8*rxt(k,316)*y(k,228) - mat(k,1164) = .200_r8*rxt(k,340)*y(k,228) - mat(k,2327) = .160_r8*rxt(k,453)*y(k,214) + .070_r8*rxt(k,456)*y(k,216) - mat(k,1089) = rxt(k,429)*y(k,228) - mat(k,1883) = rxt(k,440)*y(k,194) + .050_r8*rxt(k,414)*y(k,209) & - + .400_r8*rxt(k,454)*y(k,214) + .170_r8*rxt(k,457)*y(k,216) & - + .700_r8*rxt(k,460)*y(k,230) + .600_r8*rxt(k,467)*y(k,235) & - + .250_r8*rxt(k,433)*y(k,237) + .340_r8*rxt(k,473)*y(k,238) & - + .170_r8*rxt(k,476)*y(k,240) - mat(k,1621) = .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,434)*y(k,237) - mat(k,497) = rxt(k,440)*y(k,124) - mat(k,1414) = .250_r8*rxt(k,430)*y(k,237) - mat(k,2381) = .100_r8*rxt(k,431)*y(k,237) - mat(k,1323) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126) - mat(k,741) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124) - mat(k,911) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124) - mat(k,1784) = mat(k,1784) + .650_r8*rxt(k,316)*y(k,24) + .200_r8*rxt(k,340) & - *y(k,74) + rxt(k,429)*y(k,116) - mat(k,449) = .700_r8*rxt(k,460)*y(k,124) - mat(k,754) = .600_r8*rxt(k,467)*y(k,124) - mat(k,1229) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) & - + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201) - mat(k,770) = .340_r8*rxt(k,473)*y(k,124) - mat(k,511) = .170_r8*rxt(k,476)*y(k,124) - mat(k,2121) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90) + rxt(k,175) & - *y(k,135) + rxt(k,178)*y(k,136)) - mat(k,2364) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76) - mat(k,1551) = -rxt(k,175)*y(k,76) - mat(k,2231) = -rxt(k,178)*y(k,76) - mat(k,1991) = rxt(k,297)*y(k,228) - mat(k,2256) = rxt(k,311)*y(k,224) - mat(k,2167) = rxt(k,216)*y(k,77) - mat(k,930) = rxt(k,272)*y(k,77) - mat(k,1468) = rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73) + rxt(k,170)*y(k,134) & - + rxt(k,153)*y(k,224) + rxt(k,179)*y(k,228) - mat(k,834) = rxt(k,270)*y(k,224) - mat(k,1505) = rxt(k,247)*y(k,224) - mat(k,1008) = rxt(k,202)*y(k,228) - mat(k,2100) = rxt(k,170)*y(k,77) + rxt(k,182)*y(k,228) - mat(k,370) = rxt(k,505)*y(k,228) - mat(k,723) = rxt(k,511)*y(k,228) - mat(k,1485) = rxt(k,516)*y(k,228) - mat(k,2034) = rxt(k,311)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,270)*y(k,81) & - + rxt(k,247)*y(k,85) - mat(k,1825) = rxt(k,297)*y(k,42) + rxt(k,179)*y(k,77) + rxt(k,202)*y(k,112) & - + rxt(k,182)*y(k,134) + rxt(k,505)*y(k,139) + rxt(k,511) & - *y(k,150) + rxt(k,516)*y(k,152) + mat(k,1679) = rxt(k,291)*y(k,83) + rxt(k,292)*y(k,84) + mat(k,246) = -(rxt(k,280)*y(k,224)) + mat(k,1617) = -rxt(k,280)*y(k,65) + mat(k,112) = rxt(k,245)*y(k,224) + mat(k,151) = rxt(k,246)*y(k,224) + mat(k,242) = rxt(k,295)*y(k,224) + rxt(k,290)*y(k,228) + mat(k,1617) = mat(k,1617) + rxt(k,245)*y(k,36) + rxt(k,246)*y(k,37) & + + rxt(k,295)*y(k,82) + mat(k,1681) = rxt(k,290)*y(k,82) + mat(k,194) = -(rxt(k,453)*y(k,228)) + mat(k,1670) = -rxt(k,453)*y(k,66) + mat(k,188) = .180_r8*rxt(k,473)*y(k,228) + mat(k,1670) = mat(k,1670) + .180_r8*rxt(k,473)*y(k,183) + mat(k,310) = -(rxt(k,506)*y(k,126) + (rxt(k,507) + rxt(k,521)) * y(k,228)) + mat(k,2183) = -rxt(k,506)*y(k,67) + mat(k,1690) = -(rxt(k,507) + rxt(k,521)) * y(k,67) + mat(k,2252) = rxt(k,340)*y(k,206) + mat(k,794) = rxt(k,340)*y(k,90) + mat(k,924) = -(rxt(k,275)*y(k,54) + rxt(k,276)*y(k,77) + rxt(k,277)*y(k,241) & + + rxt(k,278)*y(k,89)) + mat(k,1556) = -rxt(k,275)*y(k,73) + mat(k,1459) = -rxt(k,276)*y(k,73) + mat(k,2426) = -rxt(k,277)*y(k,73) + mat(k,2349) = -rxt(k,278)*y(k,73) + mat(k,146) = rxt(k,270)*y(k,224) + mat(k,156) = rxt(k,248)*y(k,224) + mat(k,239) = 2.000_r8*rxt(k,279)*y(k,224) + mat(k,247) = rxt(k,280)*y(k,224) + mat(k,1625) = rxt(k,270)*y(k,35) + rxt(k,248)*y(k,39) + 2.000_r8*rxt(k,279) & + *y(k,64) + rxt(k,280)*y(k,65) + mat(k,1165) = -(rxt(k,344)*y(k,228)) + mat(k,1774) = -rxt(k,344)*y(k,74) + mat(k,578) = .700_r8*rxt(k,420)*y(k,228) + mat(k,555) = .500_r8*rxt(k,421)*y(k,228) + mat(k,429) = rxt(k,432)*y(k,228) + mat(k,1990) = .050_r8*rxt(k,418)*y(k,209) + .530_r8*rxt(k,380)*y(k,213) & + + .225_r8*rxt(k,496)*y(k,233) + .250_r8*rxt(k,437)*y(k,237) + mat(k,2204) = .050_r8*rxt(k,419)*y(k,209) + .530_r8*rxt(k,379)*y(k,213) & + + .250_r8*rxt(k,438)*y(k,237) + mat(k,1537) = rxt(k,343)*y(k,205) + mat(k,1416) = .530_r8*rxt(k,376)*y(k,213) + .250_r8*rxt(k,434)*y(k,237) + mat(k,2390) = .260_r8*rxt(k,377)*y(k,213) + .125_r8*rxt(k,494)*y(k,233) & + + .100_r8*rxt(k,435)*y(k,237) + mat(k,461) = rxt(k,343)*y(k,135) + mat(k,1324) = .050_r8*rxt(k,418)*y(k,124) + .050_r8*rxt(k,419)*y(k,126) + mat(k,1350) = .530_r8*rxt(k,380)*y(k,124) + .530_r8*rxt(k,379)*y(k,126) & + + .530_r8*rxt(k,376)*y(k,200) + .260_r8*rxt(k,377)*y(k,201) + mat(k,1774) = mat(k,1774) + .700_r8*rxt(k,420)*y(k,100) + .500_r8*rxt(k,421) & + *y(k,101) + rxt(k,432)*y(k,115) + mat(k,1176) = .225_r8*rxt(k,496)*y(k,124) + .125_r8*rxt(k,494)*y(k,201) + mat(k,1230) = .250_r8*rxt(k,437)*y(k,124) + .250_r8*rxt(k,438)*y(k,126) & + + .250_r8*rxt(k,434)*y(k,200) + .100_r8*rxt(k,435)*y(k,201) + mat(k,1037) = -(rxt(k,345)*y(k,228)) + mat(k,1763) = -rxt(k,345)*y(k,75) + mat(k,287) = .650_r8*rxt(k,320)*y(k,228) + mat(k,1163) = .200_r8*rxt(k,344)*y(k,228) + mat(k,2304) = .160_r8*rxt(k,457)*y(k,214) + .070_r8*rxt(k,460)*y(k,216) + mat(k,1088) = rxt(k,433)*y(k,228) + mat(k,1980) = rxt(k,444)*y(k,194) + .050_r8*rxt(k,418)*y(k,209) & + + .400_r8*rxt(k,458)*y(k,214) + .170_r8*rxt(k,461)*y(k,216) & + + .700_r8*rxt(k,464)*y(k,230) + .600_r8*rxt(k,471)*y(k,235) & + + .250_r8*rxt(k,437)*y(k,237) + .340_r8*rxt(k,477)*y(k,238) & + + .170_r8*rxt(k,480)*y(k,240) + mat(k,2194) = .050_r8*rxt(k,419)*y(k,209) + .250_r8*rxt(k,438)*y(k,237) + mat(k,497) = rxt(k,444)*y(k,124) + mat(k,1413) = .250_r8*rxt(k,434)*y(k,237) + mat(k,2381) = .100_r8*rxt(k,435)*y(k,237) + mat(k,1322) = .050_r8*rxt(k,418)*y(k,124) + .050_r8*rxt(k,419)*y(k,126) + mat(k,740) = .160_r8*rxt(k,457)*y(k,90) + .400_r8*rxt(k,458)*y(k,124) + mat(k,910) = .070_r8*rxt(k,460)*y(k,90) + .170_r8*rxt(k,461)*y(k,124) + mat(k,1763) = mat(k,1763) + .650_r8*rxt(k,320)*y(k,24) + .200_r8*rxt(k,344) & + *y(k,74) + rxt(k,433)*y(k,116) + mat(k,449) = .700_r8*rxt(k,464)*y(k,124) + mat(k,753) = .600_r8*rxt(k,471)*y(k,124) + mat(k,1228) = .250_r8*rxt(k,437)*y(k,124) + .250_r8*rxt(k,438)*y(k,126) & + + .250_r8*rxt(k,434)*y(k,200) + .100_r8*rxt(k,435)*y(k,201) + mat(k,769) = .340_r8*rxt(k,477)*y(k,124) + mat(k,511) = .170_r8*rxt(k,480)*y(k,124) + mat(k,2174) = -((rxt(k,173) + rxt(k,174) + rxt(k,175)) * y(k,90) + rxt(k,176) & + *y(k,135) + rxt(k,179)*y(k,136)) + mat(k,2342) = -(rxt(k,173) + rxt(k,174) + rxt(k,175)) * y(k,76) + mat(k,1552) = -rxt(k,176)*y(k,76) + mat(k,2126) = -rxt(k,179)*y(k,76) + mat(k,1923) = rxt(k,301)*y(k,228) + mat(k,1574) = rxt(k,315)*y(k,224) + mat(k,1852) = rxt(k,220)*y(k,77) + mat(k,928) = rxt(k,276)*y(k,77) + mat(k,1467) = rxt(k,220)*y(k,56) + rxt(k,276)*y(k,73) + rxt(k,171)*y(k,134) & + + rxt(k,153)*y(k,224) + rxt(k,180)*y(k,228) + mat(k,833) = rxt(k,274)*y(k,224) + mat(k,1503) = rxt(k,251)*y(k,224) + mat(k,1057) = rxt(k,203)*y(k,228) + mat(k,2062) = rxt(k,171)*y(k,77) + rxt(k,183)*y(k,228) + mat(k,370) = rxt(k,509)*y(k,228) + mat(k,738) = rxt(k,515)*y(k,228) + mat(k,1486) = rxt(k,520)*y(k,228) + mat(k,1641) = rxt(k,315)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,274)*y(k,81) & + + rxt(k,251)*y(k,85) + mat(k,1806) = rxt(k,301)*y(k,42) + rxt(k,180)*y(k,77) + rxt(k,203)*y(k,112) & + + rxt(k,183)*y(k,134) + rxt(k,509)*y(k,139) + rxt(k,515) & + *y(k,150) + rxt(k,520)*y(k,152) end do end subroutine nlnmat03 subroutine nlnmat04( avec_len, mat, y, rxt ) @@ -744,302 +745,302 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1461) = -(rxt(k,153)*y(k,224) + rxt(k,170)*y(k,134) + rxt(k,179) & - *y(k,228) + rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73)) - mat(k,2020) = -rxt(k,153)*y(k,77) - mat(k,2085) = -rxt(k,170)*y(k,77) - mat(k,1810) = -rxt(k,179)*y(k,77) - mat(k,2153) = -rxt(k,216)*y(k,77) - mat(k,926) = -rxt(k,272)*y(k,77) - mat(k,2242) = rxt(k,312)*y(k,224) - mat(k,2107) = rxt(k,172)*y(k,90) - mat(k,2350) = rxt(k,172)*y(k,76) - mat(k,2020) = mat(k,2020) + rxt(k,312)*y(k,54) - mat(k,107) = -(rxt(k,268)*y(k,224)) - mat(k,1999) = -rxt(k,268)*y(k,78) - mat(k,582) = -(rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228) + rxt(k,217)*y(k,56)) - mat(k,2070) = -rxt(k,171)*y(k,79) - mat(k,1745) = -rxt(k,180)*y(k,79) - mat(k,2136) = -rxt(k,217)*y(k,79) - mat(k,2302) = 2.000_r8*rxt(k,186)*y(k,90) - mat(k,1745) = mat(k,1745) + 2.000_r8*rxt(k,185)*y(k,228) - mat(k,260) = rxt(k,518)*y(k,241) - mat(k,2423) = rxt(k,518)*y(k,154) - mat(k,828) = -(rxt(k,263)*y(k,134) + rxt(k,264)*y(k,228) + (rxt(k,269) & - + rxt(k,270)) * y(k,224)) - mat(k,2075) = -rxt(k,263)*y(k,81) - mat(k,1769) = -rxt(k,264)*y(k,81) - mat(k,2018) = -(rxt(k,269) + rxt(k,270)) * y(k,81) - mat(k,1508) = rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90) - mat(k,1973) = rxt(k,250)*y(k,17) - mat(k,2319) = rxt(k,251)*y(k,17) - mat(k,241) = -(rxt(k,286)*y(k,228) + rxt(k,291)*y(k,224)) - mat(k,1700) = -rxt(k,286)*y(k,82) - mat(k,2010) = -rxt(k,291)*y(k,82) - mat(k,251) = -(rxt(k,287)*y(k,228) + rxt(k,292)*y(k,224)) - mat(k,1702) = -rxt(k,287)*y(k,83) - mat(k,2012) = -rxt(k,292)*y(k,83) - mat(k,292) = -(rxt(k,288)*y(k,228) + rxt(k,293)*y(k,224)) - mat(k,1707) = -rxt(k,288)*y(k,84) - mat(k,2014) = -rxt(k,293)*y(k,84) - mat(k,1495) = -(rxt(k,234)*y(k,134) + rxt(k,235)*y(k,228) + (rxt(k,246) & - + rxt(k,247)) * y(k,224) + (rxt(k,563) + rxt(k,569) + rxt(k,574) & - ) * y(k,93) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60) & - + (rxt(k,570) + rxt(k,575)) * y(k,92)) - mat(k,2087) = -rxt(k,234)*y(k,85) - mat(k,1812) = -rxt(k,235)*y(k,85) - mat(k,2021) = -(rxt(k,246) + rxt(k,247)) * y(k,85) - mat(k,838) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85) - mat(k,956) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85) - mat(k,788) = -(rxt(k,570) + rxt(k,575)) * y(k,85) - mat(k,300) = rxt(k,325)*y(k,56) - mat(k,306) = rxt(k,355)*y(k,56) - mat(k,480) = rxt(k,277)*y(k,56) - mat(k,1978) = rxt(k,214)*y(k,56) - mat(k,603) = rxt(k,279)*y(k,56) - mat(k,373) = 2.000_r8*rxt(k,282)*y(k,56) - mat(k,2243) = rxt(k,215)*y(k,56) - mat(k,386) = rxt(k,284)*y(k,56) - mat(k,2154) = rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31) + rxt(k,277)*y(k,41) & - + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) + 2.000_r8*rxt(k,282) & - *y(k,46) + rxt(k,215)*y(k,54) + rxt(k,284)*y(k,55) + rxt(k,216) & - *y(k,77) + rxt(k,217)*y(k,79) + rxt(k,218)*y(k,90) + rxt(k,236) & + mat(k,1460) = -(rxt(k,153)*y(k,224) + rxt(k,171)*y(k,134) + rxt(k,180) & + *y(k,228) + rxt(k,220)*y(k,56) + rxt(k,276)*y(k,73)) + mat(k,1626) = -rxt(k,153)*y(k,77) + mat(k,2046) = -rxt(k,171)*y(k,77) + mat(k,1790) = -rxt(k,180)*y(k,77) + mat(k,1837) = -rxt(k,220)*y(k,77) + mat(k,925) = -rxt(k,276)*y(k,77) + mat(k,1559) = rxt(k,316)*y(k,224) + mat(k,2159) = rxt(k,173)*y(k,90) + mat(k,2327) = rxt(k,173)*y(k,76) + mat(k,1626) = mat(k,1626) + rxt(k,316)*y(k,54) + mat(k,107) = -(rxt(k,272)*y(k,224)) + mat(k,1605) = -rxt(k,272)*y(k,78) + mat(k,586) = -(rxt(k,172)*y(k,134) + rxt(k,181)*y(k,228) + rxt(k,221)*y(k,56)) + mat(k,2030) = -rxt(k,172)*y(k,79) + mat(k,1726) = -rxt(k,181)*y(k,79) + mat(k,1820) = -rxt(k,221)*y(k,79) + mat(k,2279) = 2.000_r8*rxt(k,187)*y(k,90) + mat(k,1726) = mat(k,1726) + 2.000_r8*rxt(k,186)*y(k,228) + mat(k,260) = rxt(k,522)*y(k,241) + mat(k,2423) = rxt(k,522)*y(k,154) + mat(k,827) = -(rxt(k,267)*y(k,134) + rxt(k,268)*y(k,228) + (rxt(k,273) & + + rxt(k,274)) * y(k,224)) + mat(k,2036) = -rxt(k,267)*y(k,81) + mat(k,1749) = -rxt(k,268)*y(k,81) + mat(k,1624) = -(rxt(k,273) + rxt(k,274)) * y(k,81) + mat(k,1507) = rxt(k,254)*y(k,42) + rxt(k,255)*y(k,90) + mat(k,1904) = rxt(k,254)*y(k,17) + mat(k,2296) = rxt(k,255)*y(k,17) + mat(k,241) = -(rxt(k,290)*y(k,228) + rxt(k,295)*y(k,224)) + mat(k,1680) = -rxt(k,290)*y(k,82) + mat(k,1616) = -rxt(k,295)*y(k,82) + mat(k,251) = -(rxt(k,291)*y(k,228) + rxt(k,296)*y(k,224)) + mat(k,1682) = -rxt(k,291)*y(k,83) + mat(k,1618) = -rxt(k,296)*y(k,83) + mat(k,292) = -(rxt(k,292)*y(k,228) + rxt(k,297)*y(k,224)) + mat(k,1687) = -rxt(k,292)*y(k,84) + mat(k,1620) = -rxt(k,297)*y(k,84) + mat(k,1494) = -(rxt(k,238)*y(k,134) + rxt(k,239)*y(k,228) + (rxt(k,250) & + + rxt(k,251)) * y(k,224) + (rxt(k,567) + rxt(k,573) + rxt(k,578) & + ) * y(k,93) + (rxt(k,572) + rxt(k,577) + rxt(k,582)) * y(k,60) & + + (rxt(k,574) + rxt(k,579)) * y(k,92)) + mat(k,2048) = -rxt(k,238)*y(k,85) + mat(k,1792) = -rxt(k,239)*y(k,85) + mat(k,1627) = -(rxt(k,250) + rxt(k,251)) * y(k,85) + mat(k,837) = -(rxt(k,567) + rxt(k,573) + rxt(k,578)) * y(k,85) + mat(k,955) = -(rxt(k,572) + rxt(k,577) + rxt(k,582)) * y(k,85) + mat(k,787) = -(rxt(k,574) + rxt(k,579)) * y(k,85) + mat(k,300) = rxt(k,329)*y(k,56) + mat(k,306) = rxt(k,359)*y(k,56) + mat(k,480) = rxt(k,281)*y(k,56) + mat(k,1909) = rxt(k,218)*y(k,56) + mat(k,598) = rxt(k,283)*y(k,56) + mat(k,373) = 2.000_r8*rxt(k,286)*y(k,56) + mat(k,1560) = rxt(k,219)*y(k,56) + mat(k,386) = rxt(k,288)*y(k,56) + mat(k,1838) = rxt(k,329)*y(k,28) + rxt(k,359)*y(k,31) + rxt(k,281)*y(k,41) & + + rxt(k,218)*y(k,42) + rxt(k,283)*y(k,43) + 2.000_r8*rxt(k,286) & + *y(k,46) + rxt(k,219)*y(k,54) + rxt(k,288)*y(k,55) + rxt(k,220) & + *y(k,77) + rxt(k,221)*y(k,79) + rxt(k,222)*y(k,90) + rxt(k,240) & *y(k,93) - mat(k,1588) = rxt(k,233)*y(k,228) - mat(k,1462) = rxt(k,216)*y(k,56) - mat(k,583) = rxt(k,217)*y(k,56) - mat(k,2351) = rxt(k,218)*y(k,56) - mat(k,838) = mat(k,838) + rxt(k,236)*y(k,56) - mat(k,1812) = mat(k,1812) + rxt(k,233)*y(k,59) - mat(k,182) = -(rxt(k,305)*y(k,228) + rxt(k,313)*y(k,224)) - mat(k,1688) = -rxt(k,305)*y(k,86) - mat(k,2008) = -rxt(k,313)*y(k,86) - mat(k,919) = -(rxt(k,306)*y(k,228)) - mat(k,1775) = -rxt(k,306)*y(k,87) - mat(k,973) = .050_r8*rxt(k,480)*y(k,136) - mat(k,286) = .350_r8*rxt(k,316)*y(k,228) - mat(k,552) = .370_r8*rxt(k,318)*y(k,136) - mat(k,1132) = .120_r8*rxt(k,347)*y(k,136) - mat(k,2324) = rxt(k,307)*y(k,207) - mat(k,877) = .110_r8*rxt(k,425)*y(k,136) - mat(k,1267) = .330_r8*rxt(k,378)*y(k,136) - mat(k,1017) = .050_r8*rxt(k,483)*y(k,136) - mat(k,1369) = .120_r8*rxt(k,392)*y(k,136) - mat(k,1879) = rxt(k,309)*y(k,207) - mat(k,2190) = .050_r8*rxt(k,480)*y(k,6) + .370_r8*rxt(k,318)*y(k,25) & - + .120_r8*rxt(k,347)*y(k,29) + .110_r8*rxt(k,425)*y(k,99) & - + .330_r8*rxt(k,378)*y(k,105) + .050_r8*rxt(k,483)*y(k,110) & - + .120_r8*rxt(k,392)*y(k,111) - mat(k,442) = rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124) - mat(k,1775) = mat(k,1775) + .350_r8*rxt(k,316)*y(k,24) - mat(k,2238) = rxt(k,271)*y(k,73) - mat(k,924) = rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,274)*y(k,89) & - + rxt(k,273)*y(k,241) - mat(k,1459) = rxt(k,272)*y(k,73) - mat(k,2041) = rxt(k,274)*y(k,73) - mat(k,2425) = rxt(k,273)*y(k,73) - mat(k,2055) = -(rxt(k,211)*y(k,228) + rxt(k,274)*y(k,73)) - mat(k,1823) = -rxt(k,211)*y(k,89) - mat(k,929) = -rxt(k,274)*y(k,89) - mat(k,1989) = rxt(k,295)*y(k,126) - mat(k,1156) = rxt(k,327)*y(k,126) - mat(k,1286) = rxt(k,353)*y(k,126) - mat(k,961) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85) - mat(k,314) = rxt(k,502)*y(k,126) - mat(k,1503) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60) - mat(k,1963) = rxt(k,210)*y(k,228) - mat(k,1658) = rxt(k,295)*y(k,42) + rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) & - + rxt(k,502)*y(k,67) - mat(k,1823) = mat(k,1823) + rxt(k,210)*y(k,125) - mat(k,2368) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76) + rxt(k,176) & - *y(k,134) + rxt(k,177)*y(k,136) + rxt(k,181)*y(k,228) & - + 4._r8*rxt(k,186)*y(k,90) + rxt(k,198)*y(k,126) + rxt(k,203) & - *y(k,124) + rxt(k,208)*y(k,125) + (rxt(k,218) + rxt(k,219) & - ) * y(k,56) + rxt(k,225)*y(k,59) + rxt(k,251)*y(k,17) + rxt(k,257) & - *y(k,19) + rxt(k,294)*y(k,42) + rxt(k,300)*y(k,201) + rxt(k,307) & - *y(k,207) + rxt(k,321)*y(k,197) + rxt(k,332)*y(k,200) + rxt(k,336) & - *y(k,206) + rxt(k,349)*y(k,198) + rxt(k,358)*y(k,231) + rxt(k,362) & - *y(k,232) + rxt(k,374)*y(k,213) + rxt(k,383)*y(k,215) + rxt(k,387) & - *y(k,217) + rxt(k,397)*y(k,192) + rxt(k,407)*y(k,208) + rxt(k,412) & - *y(k,209) + rxt(k,421)*y(k,210) + rxt(k,432)*y(k,237) + rxt(k,436) & - *y(k,191) + rxt(k,439)*y(k,194) + rxt(k,443)*y(k,196) + rxt(k,446) & - *y(k,199) + rxt(k,450)*y(k,202) + rxt(k,453)*y(k,214) + rxt(k,456) & - *y(k,216) + rxt(k,459)*y(k,230) + rxt(k,466)*y(k,235) + rxt(k,472) & - *y(k,238) + rxt(k,475)*y(k,240) + rxt(k,486)*y(k,223) + rxt(k,491) & - *y(k,233) + rxt(k,496)*y(k,234)) - mat(k,2125) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90) - mat(k,2104) = -rxt(k,176)*y(k,90) - mat(k,2235) = -rxt(k,177)*y(k,90) - mat(k,1829) = -rxt(k,181)*y(k,90) - mat(k,1664) = -rxt(k,198)*y(k,90) - mat(k,1924) = -rxt(k,203)*y(k,90) - mat(k,1969) = -rxt(k,208)*y(k,90) - mat(k,2171) = -(rxt(k,218) + rxt(k,219)) * y(k,90) - mat(k,1604) = -rxt(k,225)*y(k,90) - mat(k,1522) = -rxt(k,251)*y(k,90) - mat(k,1578) = -rxt(k,257)*y(k,90) - mat(k,1995) = -rxt(k,294)*y(k,90) - mat(k,2420) = -rxt(k,300)*y(k,90) - mat(k,446) = -rxt(k,307)*y(k,90) - mat(k,908) = -rxt(k,321)*y(k,90) - mat(k,1439) = -rxt(k,332)*y(k,90) - mat(k,804) = -rxt(k,336)*y(k,90) - mat(k,943) = -rxt(k,349)*y(k,90) - mat(k,822) = -rxt(k,358)*y(k,90) - mat(k,1224) = -rxt(k,362)*y(k,90) - mat(k,1366) = -rxt(k,374)*y(k,90) - mat(k,1407) = -rxt(k,383)*y(k,90) - mat(k,704) = -rxt(k,387)*y(k,90) - mat(k,1051) = -rxt(k,397)*y(k,90) - mat(k,1312) = -rxt(k,407)*y(k,90) - mat(k,1345) = -rxt(k,412)*y(k,90) - mat(k,1265) = -rxt(k,421)*y(k,90) - mat(k,1242) = -rxt(k,432)*y(k,90) - mat(k,528) = -rxt(k,436)*y(k,90) - mat(k,501) = -rxt(k,439)*y(k,90) - mat(k,440) = -rxt(k,443)*y(k,90) - mat(k,640) = -rxt(k,446)*y(k,90) - mat(k,784) = -rxt(k,450)*y(k,90) - mat(k,745) = -rxt(k,453)*y(k,90) - mat(k,917) = -rxt(k,456)*y(k,90) - mat(k,453) = -rxt(k,459)*y(k,90) - mat(k,760) = -rxt(k,466)*y(k,90) - mat(k,777) = -rxt(k,472)*y(k,90) - mat(k,516) = -rxt(k,475)*y(k,90) - mat(k,1116) = -rxt(k,486)*y(k,90) - mat(k,1187) = -rxt(k,491)*y(k,90) - mat(k,1070) = -rxt(k,496)*y(k,90) - mat(k,991) = .570_r8*rxt(k,480)*y(k,136) - mat(k,165) = .650_r8*rxt(k,438)*y(k,228) - mat(k,1522) = mat(k,1522) + rxt(k,250)*y(k,42) - mat(k,1578) = mat(k,1578) + rxt(k,262)*y(k,228) - mat(k,290) = .350_r8*rxt(k,316)*y(k,228) - mat(k,557) = .130_r8*rxt(k,318)*y(k,136) - mat(k,268) = rxt(k,323)*y(k,228) - mat(k,1148) = .280_r8*rxt(k,347)*y(k,136) - mat(k,1995) = mat(k,1995) + rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) & - + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134) - mat(k,608) = rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228) - mat(k,376) = rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228) - mat(k,106) = rxt(k,329)*y(k,228) - mat(k,827) = rxt(k,302)*y(k,228) - mat(k,2260) = rxt(k,311)*y(k,224) - mat(k,2171) = mat(k,2171) + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) & - + rxt(k,282)*y(k,46) + rxt(k,217)*y(k,79) - mat(k,1604) = mat(k,1604) + rxt(k,221)*y(k,201) + rxt(k,232)*y(k,228) - mat(k,1163) = rxt(k,314)*y(k,228) - mat(k,198) = .730_r8*rxt(k,449)*y(k,228) - mat(k,315) = .500_r8*rxt(k,517)*y(k,228) - mat(k,1170) = rxt(k,340)*y(k,228) - mat(k,1058) = rxt(k,341)*y(k,228) - mat(k,2125) = mat(k,2125) + rxt(k,175)*y(k,135) - mat(k,587) = rxt(k,217)*y(k,56) + rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228) - mat(k,185) = rxt(k,305)*y(k,228) - mat(k,922) = rxt(k,306)*y(k,228) - mat(k,2368) = mat(k,2368) + .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453) & - *y(k,214) + .330_r8*rxt(k,456)*y(k,216) - mat(k,1205) = rxt(k,371)*y(k,228) - mat(k,1213) = rxt(k,356)*y(k,228) - mat(k,890) = .370_r8*rxt(k,425)*y(k,136) - mat(k,597) = .300_r8*rxt(k,416)*y(k,228) - mat(k,565) = rxt(k,417)*y(k,228) - mat(k,408) = rxt(k,424)*y(k,228) - mat(k,1278) = .140_r8*rxt(k,378)*y(k,136) - mat(k,320) = .200_r8*rxt(k,380)*y(k,228) - mat(k,619) = .500_r8*rxt(k,391)*y(k,228) - mat(k,1035) = .570_r8*rxt(k,483)*y(k,136) - mat(k,1389) = .280_r8*rxt(k,392)*y(k,136) - mat(k,432) = rxt(k,428)*y(k,228) - mat(k,1100) = rxt(k,429)*y(k,228) - mat(k,1924) = mat(k,1924) + rxt(k,398)*y(k,192) + rxt(k,440)*y(k,194) & - + rxt(k,445)*y(k,196) + rxt(k,322)*y(k,197) + rxt(k,350) & - *y(k,198) + rxt(k,301)*y(k,201) + .170_r8*rxt(k,451)*y(k,202) & - + rxt(k,369)*y(k,204) + .250_r8*rxt(k,337)*y(k,206) + rxt(k,309) & - *y(k,207) + .920_r8*rxt(k,408)*y(k,208) + .920_r8*rxt(k,414) & - *y(k,209) + rxt(k,422)*y(k,210) + .470_r8*rxt(k,376)*y(k,213) & - + .400_r8*rxt(k,454)*y(k,214) + .830_r8*rxt(k,457)*y(k,216) & - + rxt(k,460)*y(k,230) + rxt(k,359)*y(k,231) + .900_r8*rxt(k,492) & - *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) & - + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) & + mat(k,2140) = rxt(k,237)*y(k,228) + mat(k,1461) = rxt(k,220)*y(k,56) + mat(k,587) = rxt(k,221)*y(k,56) + mat(k,2328) = rxt(k,222)*y(k,56) + mat(k,837) = mat(k,837) + rxt(k,240)*y(k,56) + mat(k,1792) = mat(k,1792) + rxt(k,237)*y(k,59) + mat(k,182) = -(rxt(k,309)*y(k,228) + rxt(k,317)*y(k,224)) + mat(k,1668) = -rxt(k,309)*y(k,86) + mat(k,1614) = -rxt(k,317)*y(k,86) + mat(k,918) = -(rxt(k,310)*y(k,228)) + mat(k,1755) = -rxt(k,310)*y(k,87) + mat(k,1000) = .050_r8*rxt(k,484)*y(k,136) + mat(k,286) = .350_r8*rxt(k,320)*y(k,228) + mat(k,547) = .370_r8*rxt(k,322)*y(k,136) + mat(k,1131) = .120_r8*rxt(k,351)*y(k,136) + mat(k,2301) = rxt(k,311)*y(k,207) + mat(k,876) = .110_r8*rxt(k,429)*y(k,136) + mat(k,1266) = .330_r8*rxt(k,382)*y(k,136) + mat(k,972) = .050_r8*rxt(k,487)*y(k,136) + mat(k,1368) = .120_r8*rxt(k,396)*y(k,136) + mat(k,1977) = rxt(k,313)*y(k,207) + mat(k,2084) = .050_r8*rxt(k,484)*y(k,6) + .370_r8*rxt(k,322)*y(k,25) & + + .120_r8*rxt(k,351)*y(k,29) + .110_r8*rxt(k,429)*y(k,99) & + + .330_r8*rxt(k,382)*y(k,105) + .050_r8*rxt(k,487)*y(k,110) & + + .120_r8*rxt(k,396)*y(k,111) + mat(k,442) = rxt(k,311)*y(k,90) + rxt(k,313)*y(k,124) + mat(k,1755) = mat(k,1755) + .350_r8*rxt(k,320)*y(k,24) + mat(k,1555) = rxt(k,275)*y(k,73) + mat(k,923) = rxt(k,275)*y(k,54) + rxt(k,276)*y(k,77) + rxt(k,278)*y(k,89) & + + rxt(k,277)*y(k,241) + mat(k,1458) = rxt(k,276)*y(k,73) + mat(k,2348) = rxt(k,278)*y(k,73) + mat(k,2425) = rxt(k,277)*y(k,73) + mat(k,2368) = -(rxt(k,212)*y(k,228) + rxt(k,278)*y(k,73)) + mat(k,1809) = -rxt(k,212)*y(k,89) + mat(k,930) = -rxt(k,278)*y(k,89) + mat(k,1926) = rxt(k,299)*y(k,126) + mat(k,1156) = rxt(k,331)*y(k,126) + mat(k,1286) = rxt(k,357)*y(k,126) + mat(k,962) = (rxt(k,572)+rxt(k,577)+rxt(k,582))*y(k,85) + mat(k,315) = rxt(k,506)*y(k,126) + mat(k,1505) = (rxt(k,572)+rxt(k,577)+rxt(k,582))*y(k,60) + mat(k,1900) = rxt(k,211)*y(k,228) + mat(k,2237) = rxt(k,299)*y(k,42) + rxt(k,331)*y(k,45) + rxt(k,357)*y(k,49) & + + rxt(k,506)*y(k,67) + mat(k,1809) = mat(k,1809) + rxt(k,211)*y(k,125) + mat(k,2344) = -((rxt(k,173) + rxt(k,174) + rxt(k,175)) * y(k,76) + rxt(k,177) & + *y(k,134) + rxt(k,178)*y(k,136) + rxt(k,182)*y(k,228) & + + 4._r8*rxt(k,187)*y(k,90) + rxt(k,199)*y(k,126) + rxt(k,204) & + *y(k,124) + rxt(k,209)*y(k,125) + (rxt(k,222) + rxt(k,223) & + ) * y(k,56) + rxt(k,229)*y(k,59) + rxt(k,255)*y(k,17) + rxt(k,261) & + *y(k,19) + rxt(k,298)*y(k,42) + rxt(k,304)*y(k,201) + rxt(k,311) & + *y(k,207) + rxt(k,325)*y(k,197) + rxt(k,336)*y(k,200) + rxt(k,340) & + *y(k,206) + rxt(k,353)*y(k,198) + rxt(k,362)*y(k,231) + rxt(k,366) & + *y(k,232) + rxt(k,378)*y(k,213) + rxt(k,387)*y(k,215) + rxt(k,391) & + *y(k,217) + rxt(k,401)*y(k,192) + rxt(k,411)*y(k,208) + rxt(k,416) & + *y(k,209) + rxt(k,425)*y(k,210) + rxt(k,436)*y(k,237) + rxt(k,440) & + *y(k,191) + rxt(k,443)*y(k,194) + rxt(k,447)*y(k,196) + rxt(k,450) & + *y(k,199) + rxt(k,454)*y(k,202) + rxt(k,457)*y(k,214) + rxt(k,460) & + *y(k,216) + rxt(k,463)*y(k,230) + rxt(k,470)*y(k,235) + rxt(k,476) & + *y(k,238) + rxt(k,479)*y(k,240) + rxt(k,490)*y(k,223) + rxt(k,495) & + *y(k,233) + rxt(k,500)*y(k,234)) + mat(k,2176) = -(rxt(k,173) + rxt(k,174) + rxt(k,175)) * y(k,90) + mat(k,2064) = -rxt(k,177)*y(k,90) + mat(k,2128) = -rxt(k,178)*y(k,90) + mat(k,1808) = -rxt(k,182)*y(k,90) + mat(k,2236) = -rxt(k,199)*y(k,90) + mat(k,2021) = -rxt(k,204)*y(k,90) + mat(k,1899) = -rxt(k,209)*y(k,90) + mat(k,1854) = -(rxt(k,222) + rxt(k,223)) * y(k,90) + mat(k,2155) = -rxt(k,229)*y(k,90) + mat(k,1521) = -rxt(k,255)*y(k,90) + mat(k,1601) = -rxt(k,261)*y(k,90) + mat(k,1925) = -rxt(k,298)*y(k,90) + mat(k,2419) = -rxt(k,304)*y(k,90) + mat(k,446) = -rxt(k,311)*y(k,90) + mat(k,907) = -rxt(k,325)*y(k,90) + mat(k,1437) = -rxt(k,336)*y(k,90) + mat(k,803) = -rxt(k,340)*y(k,90) + mat(k,942) = -rxt(k,353)*y(k,90) + mat(k,821) = -rxt(k,362)*y(k,90) + mat(k,1223) = -rxt(k,366)*y(k,90) + mat(k,1364) = -rxt(k,378)*y(k,90) + mat(k,1405) = -rxt(k,387)*y(k,90) + mat(k,703) = -rxt(k,391)*y(k,90) + mat(k,1034) = -rxt(k,401)*y(k,90) + mat(k,1310) = -rxt(k,411)*y(k,90) + mat(k,1343) = -rxt(k,416)*y(k,90) + mat(k,1263) = -rxt(k,425)*y(k,90) + mat(k,1241) = -rxt(k,436)*y(k,90) + mat(k,528) = -rxt(k,440)*y(k,90) + mat(k,501) = -rxt(k,443)*y(k,90) + mat(k,440) = -rxt(k,447)*y(k,90) + mat(k,644) = -rxt(k,450)*y(k,90) + mat(k,783) = -rxt(k,454)*y(k,90) + mat(k,744) = -rxt(k,457)*y(k,90) + mat(k,916) = -rxt(k,460)*y(k,90) + mat(k,453) = -rxt(k,463)*y(k,90) + mat(k,759) = -rxt(k,470)*y(k,90) + mat(k,776) = -rxt(k,476)*y(k,90) + mat(k,516) = -rxt(k,479)*y(k,90) + mat(k,1114) = -rxt(k,490)*y(k,90) + mat(k,1185) = -rxt(k,495)*y(k,90) + mat(k,1068) = -rxt(k,500)*y(k,90) + mat(k,1018) = .570_r8*rxt(k,484)*y(k,136) + mat(k,165) = .650_r8*rxt(k,442)*y(k,228) + mat(k,1521) = mat(k,1521) + rxt(k,254)*y(k,42) + mat(k,1601) = mat(k,1601) + rxt(k,266)*y(k,228) + mat(k,290) = .350_r8*rxt(k,320)*y(k,228) + mat(k,552) = .130_r8*rxt(k,322)*y(k,136) + mat(k,268) = rxt(k,327)*y(k,228) + mat(k,1147) = .280_r8*rxt(k,351)*y(k,136) + mat(k,1925) = mat(k,1925) + rxt(k,254)*y(k,17) + rxt(k,218)*y(k,56) & + + rxt(k,299)*y(k,126) + rxt(k,300)*y(k,134) + mat(k,603) = rxt(k,283)*y(k,56) + rxt(k,284)*y(k,228) + mat(k,376) = rxt(k,286)*y(k,56) + rxt(k,287)*y(k,228) + mat(k,106) = rxt(k,333)*y(k,228) + mat(k,826) = rxt(k,306)*y(k,228) + mat(k,1576) = rxt(k,315)*y(k,224) + mat(k,1854) = mat(k,1854) + rxt(k,218)*y(k,42) + rxt(k,283)*y(k,43) & + + rxt(k,286)*y(k,46) + rxt(k,221)*y(k,79) + mat(k,2155) = mat(k,2155) + rxt(k,225)*y(k,201) + rxt(k,236)*y(k,228) + mat(k,1162) = rxt(k,318)*y(k,228) + mat(k,198) = .730_r8*rxt(k,453)*y(k,228) + mat(k,314) = .500_r8*rxt(k,521)*y(k,228) + mat(k,1169) = rxt(k,344)*y(k,228) + mat(k,1041) = rxt(k,345)*y(k,228) + mat(k,2176) = mat(k,2176) + rxt(k,176)*y(k,135) + mat(k,591) = rxt(k,221)*y(k,56) + rxt(k,172)*y(k,134) + rxt(k,181)*y(k,228) + mat(k,185) = rxt(k,309)*y(k,228) + mat(k,921) = rxt(k,310)*y(k,228) + mat(k,2344) = mat(k,2344) + .070_r8*rxt(k,454)*y(k,202) + .160_r8*rxt(k,457) & + *y(k,214) + .330_r8*rxt(k,460)*y(k,216) + mat(k,1203) = rxt(k,375)*y(k,228) + mat(k,1212) = rxt(k,360)*y(k,228) + mat(k,889) = .370_r8*rxt(k,429)*y(k,136) + mat(k,584) = .300_r8*rxt(k,420)*y(k,228) + mat(k,559) = rxt(k,421)*y(k,228) + mat(k,408) = rxt(k,428)*y(k,228) + mat(k,1277) = .140_r8*rxt(k,382)*y(k,136) + mat(k,320) = .200_r8*rxt(k,384)*y(k,228) + mat(k,614) = .500_r8*rxt(k,395)*y(k,228) + mat(k,990) = .570_r8*rxt(k,487)*y(k,136) + mat(k,1387) = .280_r8*rxt(k,396)*y(k,136) + mat(k,431) = rxt(k,432)*y(k,228) + mat(k,1098) = rxt(k,433)*y(k,228) + mat(k,2021) = mat(k,2021) + rxt(k,402)*y(k,192) + rxt(k,444)*y(k,194) & + + rxt(k,449)*y(k,196) + rxt(k,326)*y(k,197) + rxt(k,354) & + *y(k,198) + rxt(k,305)*y(k,201) + .170_r8*rxt(k,455)*y(k,202) & + + rxt(k,373)*y(k,204) + .250_r8*rxt(k,341)*y(k,206) + rxt(k,313) & + *y(k,207) + .920_r8*rxt(k,412)*y(k,208) + .920_r8*rxt(k,418) & + *y(k,209) + rxt(k,426)*y(k,210) + .470_r8*rxt(k,380)*y(k,213) & + + .400_r8*rxt(k,458)*y(k,214) + .830_r8*rxt(k,461)*y(k,216) & + + rxt(k,464)*y(k,230) + rxt(k,363)*y(k,231) + .900_r8*rxt(k,496) & + *y(k,233) + .800_r8*rxt(k,501)*y(k,234) + rxt(k,471)*y(k,235) & + + rxt(k,437)*y(k,237) + rxt(k,477)*y(k,238) + rxt(k,480) & *y(k,240) - mat(k,1664) = mat(k,1664) + rxt(k,295)*y(k,42) + rxt(k,409)*y(k,208) & - + rxt(k,415)*y(k,209) + rxt(k,423)*y(k,210) + .470_r8*rxt(k,375) & - *y(k,213) + rxt(k,201)*y(k,228) + rxt(k,434)*y(k,237) - mat(k,2104) = mat(k,2104) + rxt(k,296)*y(k,42) + rxt(k,171)*y(k,79) - mat(k,1554) = rxt(k,175)*y(k,76) + rxt(k,339)*y(k,205) - mat(k,2235) = mat(k,2235) + .570_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) & - *y(k,25) + .280_r8*rxt(k,347)*y(k,29) + .370_r8*rxt(k,425) & - *y(k,99) + .140_r8*rxt(k,378)*y(k,105) + .570_r8*rxt(k,483) & - *y(k,110) + .280_r8*rxt(k,392)*y(k,111) + rxt(k,183)*y(k,228) - mat(k,174) = .800_r8*rxt(k,461)*y(k,228) - mat(k,951) = rxt(k,507)*y(k,228) - mat(k,1126) = .200_r8*rxt(k,501)*y(k,228) - mat(k,193) = .280_r8*rxt(k,469)*y(k,228) - mat(k,215) = .380_r8*rxt(k,471)*y(k,228) - mat(k,220) = .630_r8*rxt(k,477)*y(k,228) - mat(k,1051) = mat(k,1051) + rxt(k,398)*y(k,124) - mat(k,501) = mat(k,501) + rxt(k,440)*y(k,124) - mat(k,440) = mat(k,440) + rxt(k,445)*y(k,124) - mat(k,908) = mat(k,908) + rxt(k,322)*y(k,124) + 2.400_r8*rxt(k,319)*y(k,197) & - + rxt(k,320)*y(k,201) - mat(k,943) = mat(k,943) + rxt(k,350)*y(k,124) + rxt(k,348)*y(k,201) - mat(k,1439) = mat(k,1439) + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) & - + rxt(k,410)*y(k,209) + rxt(k,419)*y(k,210) + .470_r8*rxt(k,372) & - *y(k,213) + rxt(k,430)*y(k,237) - mat(k,2420) = mat(k,2420) + rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) & - + rxt(k,320)*y(k,197) + rxt(k,348)*y(k,198) + .900_r8*rxt(k,331) & - *y(k,200) + 4.000_r8*rxt(k,298)*y(k,201) + rxt(k,406)*y(k,208) & - + rxt(k,411)*y(k,209) + 1.200_r8*rxt(k,420)*y(k,210) & - + .730_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) & - + .500_r8*rxt(k,485)*y(k,223) + .300_r8*rxt(k,361)*y(k,232) & - + rxt(k,490)*y(k,233) + rxt(k,495)*y(k,234) + .800_r8*rxt(k,431) & + mat(k,2236) = mat(k,2236) + rxt(k,299)*y(k,42) + rxt(k,413)*y(k,208) & + + rxt(k,419)*y(k,209) + rxt(k,427)*y(k,210) + .470_r8*rxt(k,379) & + *y(k,213) + rxt(k,202)*y(k,228) + rxt(k,438)*y(k,237) + mat(k,2064) = mat(k,2064) + rxt(k,300)*y(k,42) + rxt(k,172)*y(k,79) + mat(k,1553) = rxt(k,176)*y(k,76) + rxt(k,343)*y(k,205) + mat(k,2128) = mat(k,2128) + .570_r8*rxt(k,484)*y(k,6) + .130_r8*rxt(k,322) & + *y(k,25) + .280_r8*rxt(k,351)*y(k,29) + .370_r8*rxt(k,429) & + *y(k,99) + .140_r8*rxt(k,382)*y(k,105) + .570_r8*rxt(k,487) & + *y(k,110) + .280_r8*rxt(k,396)*y(k,111) + rxt(k,184)*y(k,228) + mat(k,174) = .800_r8*rxt(k,465)*y(k,228) + mat(k,950) = rxt(k,511)*y(k,228) + mat(k,1125) = .200_r8*rxt(k,505)*y(k,228) + mat(k,193) = .280_r8*rxt(k,473)*y(k,228) + mat(k,215) = .380_r8*rxt(k,475)*y(k,228) + mat(k,220) = .630_r8*rxt(k,481)*y(k,228) + mat(k,1034) = mat(k,1034) + rxt(k,402)*y(k,124) + mat(k,501) = mat(k,501) + rxt(k,444)*y(k,124) + mat(k,440) = mat(k,440) + rxt(k,449)*y(k,124) + mat(k,907) = mat(k,907) + rxt(k,326)*y(k,124) + 2.400_r8*rxt(k,323)*y(k,197) & + + rxt(k,324)*y(k,201) + mat(k,942) = mat(k,942) + rxt(k,354)*y(k,124) + rxt(k,352)*y(k,201) + mat(k,1437) = mat(k,1437) + .900_r8*rxt(k,335)*y(k,201) + rxt(k,409)*y(k,208) & + + rxt(k,414)*y(k,209) + rxt(k,423)*y(k,210) + .470_r8*rxt(k,376) & + *y(k,213) + rxt(k,434)*y(k,237) + mat(k,2419) = mat(k,2419) + rxt(k,225)*y(k,59) + rxt(k,305)*y(k,124) & + + rxt(k,324)*y(k,197) + rxt(k,352)*y(k,198) + .900_r8*rxt(k,335) & + *y(k,200) + 4.000_r8*rxt(k,302)*y(k,201) + rxt(k,410)*y(k,208) & + + rxt(k,415)*y(k,209) + 1.200_r8*rxt(k,424)*y(k,210) & + + .730_r8*rxt(k,377)*y(k,213) + rxt(k,386)*y(k,215) & + + .500_r8*rxt(k,489)*y(k,223) + .300_r8*rxt(k,365)*y(k,232) & + + rxt(k,494)*y(k,233) + rxt(k,499)*y(k,234) + .800_r8*rxt(k,435) & *y(k,237) - mat(k,784) = mat(k,784) + .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451) & + mat(k,783) = mat(k,783) + .070_r8*rxt(k,454)*y(k,90) + .170_r8*rxt(k,455) & *y(k,124) - mat(k,581) = rxt(k,369)*y(k,124) - mat(k,464) = rxt(k,339)*y(k,135) - mat(k,804) = mat(k,804) + .250_r8*rxt(k,337)*y(k,124) - mat(k,446) = mat(k,446) + rxt(k,309)*y(k,124) - mat(k,1312) = mat(k,1312) + .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) & - + rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201) - mat(k,1345) = mat(k,1345) + .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126) & - + rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201) - mat(k,1265) = mat(k,1265) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) & - + rxt(k,419)*y(k,200) + 1.200_r8*rxt(k,420)*y(k,201) - mat(k,1366) = mat(k,1366) + .470_r8*rxt(k,376)*y(k,124) + .470_r8*rxt(k,375) & - *y(k,126) + .470_r8*rxt(k,372)*y(k,200) + .730_r8*rxt(k,373) & + mat(k,576) = rxt(k,373)*y(k,124) + mat(k,464) = rxt(k,343)*y(k,135) + mat(k,803) = mat(k,803) + .250_r8*rxt(k,341)*y(k,124) + mat(k,446) = mat(k,446) + rxt(k,313)*y(k,124) + mat(k,1310) = mat(k,1310) + .920_r8*rxt(k,412)*y(k,124) + rxt(k,413)*y(k,126) & + + rxt(k,409)*y(k,200) + rxt(k,410)*y(k,201) + mat(k,1343) = mat(k,1343) + .920_r8*rxt(k,418)*y(k,124) + rxt(k,419)*y(k,126) & + + rxt(k,414)*y(k,200) + rxt(k,415)*y(k,201) + mat(k,1263) = mat(k,1263) + rxt(k,426)*y(k,124) + rxt(k,427)*y(k,126) & + + rxt(k,423)*y(k,200) + 1.200_r8*rxt(k,424)*y(k,201) + mat(k,1364) = mat(k,1364) + .470_r8*rxt(k,380)*y(k,124) + .470_r8*rxt(k,379) & + *y(k,126) + .470_r8*rxt(k,376)*y(k,200) + .730_r8*rxt(k,377) & *y(k,201) - mat(k,745) = mat(k,745) + .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454) & + mat(k,744) = mat(k,744) + .160_r8*rxt(k,457)*y(k,90) + .400_r8*rxt(k,458) & *y(k,124) - mat(k,1407) = mat(k,1407) + rxt(k,382)*y(k,201) - mat(k,917) = mat(k,917) + .330_r8*rxt(k,456)*y(k,90) + .830_r8*rxt(k,457) & + mat(k,1405) = mat(k,1405) + rxt(k,386)*y(k,201) + mat(k,916) = mat(k,916) + .330_r8*rxt(k,460)*y(k,90) + .830_r8*rxt(k,461) & *y(k,124) - mat(k,1116) = mat(k,1116) + .500_r8*rxt(k,485)*y(k,201) - mat(k,2038) = rxt(k,311)*y(k,54) - mat(k,1829) = mat(k,1829) + .650_r8*rxt(k,438)*y(k,7) + rxt(k,262)*y(k,19) & - + .350_r8*rxt(k,316)*y(k,24) + rxt(k,323)*y(k,26) + rxt(k,280) & - *y(k,43) + rxt(k,283)*y(k,46) + rxt(k,329)*y(k,47) + rxt(k,302) & - *y(k,52) + rxt(k,232)*y(k,59) + rxt(k,314)*y(k,62) & - + .730_r8*rxt(k,449)*y(k,66) + .500_r8*rxt(k,517)*y(k,67) & - + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,180)*y(k,79) & - + rxt(k,305)*y(k,86) + rxt(k,306)*y(k,87) + rxt(k,371)*y(k,94) & - + rxt(k,356)*y(k,96) + .300_r8*rxt(k,416)*y(k,100) + rxt(k,417) & - *y(k,101) + rxt(k,424)*y(k,102) + .200_r8*rxt(k,380)*y(k,106) & - + .500_r8*rxt(k,391)*y(k,109) + rxt(k,428)*y(k,115) + rxt(k,429) & - *y(k,116) + rxt(k,201)*y(k,126) + rxt(k,183)*y(k,136) & - + .800_r8*rxt(k,461)*y(k,144) + rxt(k,507)*y(k,153) & - + .200_r8*rxt(k,501)*y(k,181) + .280_r8*rxt(k,469)*y(k,183) & - + .380_r8*rxt(k,471)*y(k,185) + .630_r8*rxt(k,477)*y(k,187) - mat(k,453) = mat(k,453) + rxt(k,460)*y(k,124) - mat(k,822) = mat(k,822) + rxt(k,359)*y(k,124) - mat(k,1224) = mat(k,1224) + .300_r8*rxt(k,361)*y(k,201) - mat(k,1187) = mat(k,1187) + .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201) - mat(k,1070) = mat(k,1070) + .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201) - mat(k,760) = mat(k,760) + rxt(k,467)*y(k,124) - mat(k,1242) = mat(k,1242) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126) & - + rxt(k,430)*y(k,200) + .800_r8*rxt(k,431)*y(k,201) - mat(k,777) = mat(k,777) + rxt(k,473)*y(k,124) - mat(k,516) = mat(k,516) + rxt(k,476)*y(k,124) + mat(k,1114) = mat(k,1114) + .500_r8*rxt(k,489)*y(k,201) + mat(k,1643) = rxt(k,315)*y(k,54) + mat(k,1808) = mat(k,1808) + .650_r8*rxt(k,442)*y(k,7) + rxt(k,266)*y(k,19) & + + .350_r8*rxt(k,320)*y(k,24) + rxt(k,327)*y(k,26) + rxt(k,284) & + *y(k,43) + rxt(k,287)*y(k,46) + rxt(k,333)*y(k,47) + rxt(k,306) & + *y(k,52) + rxt(k,236)*y(k,59) + rxt(k,318)*y(k,62) & + + .730_r8*rxt(k,453)*y(k,66) + .500_r8*rxt(k,521)*y(k,67) & + + rxt(k,344)*y(k,74) + rxt(k,345)*y(k,75) + rxt(k,181)*y(k,79) & + + rxt(k,309)*y(k,86) + rxt(k,310)*y(k,87) + rxt(k,375)*y(k,94) & + + rxt(k,360)*y(k,96) + .300_r8*rxt(k,420)*y(k,100) + rxt(k,421) & + *y(k,101) + rxt(k,428)*y(k,102) + .200_r8*rxt(k,384)*y(k,106) & + + .500_r8*rxt(k,395)*y(k,109) + rxt(k,432)*y(k,115) + rxt(k,433) & + *y(k,116) + rxt(k,202)*y(k,126) + rxt(k,184)*y(k,136) & + + .800_r8*rxt(k,465)*y(k,144) + rxt(k,511)*y(k,153) & + + .200_r8*rxt(k,505)*y(k,181) + .280_r8*rxt(k,473)*y(k,183) & + + .380_r8*rxt(k,475)*y(k,185) + .630_r8*rxt(k,481)*y(k,187) + mat(k,453) = mat(k,453) + rxt(k,464)*y(k,124) + mat(k,821) = mat(k,821) + rxt(k,363)*y(k,124) + mat(k,1223) = mat(k,1223) + .300_r8*rxt(k,365)*y(k,201) + mat(k,1185) = mat(k,1185) + .900_r8*rxt(k,496)*y(k,124) + rxt(k,494)*y(k,201) + mat(k,1068) = mat(k,1068) + .800_r8*rxt(k,501)*y(k,124) + rxt(k,499)*y(k,201) + mat(k,759) = mat(k,759) + rxt(k,471)*y(k,124) + mat(k,1241) = mat(k,1241) + rxt(k,437)*y(k,124) + rxt(k,438)*y(k,126) & + + rxt(k,434)*y(k,200) + .800_r8*rxt(k,435)*y(k,201) + mat(k,776) = mat(k,776) + rxt(k,477)*y(k,124) + mat(k,516) = mat(k,516) + rxt(k,480)*y(k,124) end do end subroutine nlnmat04 subroutine nlnmat05( avec_len, mat, y, rxt ) @@ -1060,237 +1061,239 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,472) = -(rxt(k,187)*y(k,228)) - mat(k,1733) = -rxt(k,187)*y(k,91) - mat(k,2296) = rxt(k,208)*y(k,125) - mat(k,1931) = rxt(k,208)*y(k,90) - mat(k,787) = -(rxt(k,265)*y(k,134) + (rxt(k,570) + rxt(k,575)) * y(k,85)) - mat(k,2073) = -rxt(k,265)*y(k,92) - mat(k,1492) = -(rxt(k,570) + rxt(k,575)) * y(k,92) - mat(k,1559) = rxt(k,257)*y(k,90) - mat(k,2316) = rxt(k,257)*y(k,19) - mat(k,837) = -(rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228) & - + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85)) - mat(k,2139) = -rxt(k,236)*y(k,93) - mat(k,2076) = -rxt(k,237)*y(k,93) - mat(k,1770) = -rxt(k,238)*y(k,93) - mat(k,1493) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,93) - mat(k,1584) = rxt(k,225)*y(k,90) - mat(k,954) = rxt(k,230)*y(k,228) - mat(k,2320) = rxt(k,225)*y(k,59) - mat(k,1770) = mat(k,1770) + rxt(k,230)*y(k,60) - mat(k,1195) = -(rxt(k,371)*y(k,228)) - mat(k,1796) = -rxt(k,371)*y(k,94) - mat(k,591) = .300_r8*rxt(k,416)*y(k,228) - mat(k,561) = .500_r8*rxt(k,417)*y(k,228) - mat(k,1894) = rxt(k,370)*y(k,204) + rxt(k,377)*y(k,213) - mat(k,577) = rxt(k,370)*y(k,124) - mat(k,1352) = rxt(k,377)*y(k,124) - mat(k,1796) = mat(k,1796) + .300_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) & + mat(k,472) = -(rxt(k,189)*y(k,228)) + mat(k,1713) = -rxt(k,189)*y(k,91) + mat(k,2273) = rxt(k,209)*y(k,125) + mat(k,1862) = rxt(k,209)*y(k,90) + mat(k,786) = -(rxt(k,269)*y(k,134) + (rxt(k,574) + rxt(k,579)) * y(k,85)) + mat(k,2034) = -rxt(k,269)*y(k,92) + mat(k,1491) = -(rxt(k,574) + rxt(k,579)) * y(k,92) + mat(k,1583) = rxt(k,261)*y(k,90) + mat(k,2293) = rxt(k,261)*y(k,19) + mat(k,836) = -(rxt(k,240)*y(k,56) + rxt(k,241)*y(k,134) + rxt(k,242)*y(k,228) & + + (rxt(k,567) + rxt(k,573) + rxt(k,578)) * y(k,85)) + mat(k,1823) = -rxt(k,240)*y(k,93) + mat(k,2037) = -rxt(k,241)*y(k,93) + mat(k,1750) = -rxt(k,242)*y(k,93) + mat(k,1492) = -(rxt(k,567) + rxt(k,573) + rxt(k,578)) * y(k,93) + mat(k,2136) = rxt(k,229)*y(k,90) + mat(k,953) = rxt(k,234)*y(k,228) + mat(k,2297) = rxt(k,229)*y(k,59) + mat(k,1750) = mat(k,1750) + rxt(k,234)*y(k,60) + mat(k,1194) = -(rxt(k,375)*y(k,228)) + mat(k,1776) = -rxt(k,375)*y(k,94) + mat(k,579) = .300_r8*rxt(k,420)*y(k,228) + mat(k,556) = .500_r8*rxt(k,421)*y(k,228) + mat(k,1992) = rxt(k,374)*y(k,204) + rxt(k,381)*y(k,213) + mat(k,572) = rxt(k,374)*y(k,124) + mat(k,1351) = rxt(k,381)*y(k,124) + mat(k,1776) = mat(k,1776) + .300_r8*rxt(k,420)*y(k,100) + .500_r8*rxt(k,421) & *y(k,101) - mat(k,221) = -(rxt(k,402)*y(k,228)) - mat(k,1695) = -rxt(k,402)*y(k,95) - mat(k,1208) = -(rxt(k,356)*y(k,228)) - mat(k,1797) = -rxt(k,356)*y(k,96) - mat(k,592) = .700_r8*rxt(k,416)*y(k,228) - mat(k,562) = .500_r8*rxt(k,417)*y(k,228) - mat(k,612) = .500_r8*rxt(k,391)*y(k,228) - mat(k,1895) = .050_r8*rxt(k,414)*y(k,209) + .220_r8*rxt(k,376)*y(k,213) & - + .250_r8*rxt(k,433)*y(k,237) - mat(k,1634) = .050_r8*rxt(k,415)*y(k,209) + .220_r8*rxt(k,375)*y(k,213) & - + .250_r8*rxt(k,434)*y(k,237) - mat(k,545) = .500_r8*rxt(k,360)*y(k,228) - mat(k,1418) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237) - mat(k,2392) = .230_r8*rxt(k,373)*y(k,213) + .200_r8*rxt(k,361)*y(k,232) & - + .100_r8*rxt(k,431)*y(k,237) - mat(k,1327) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126) - mat(k,1353) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) & - + .220_r8*rxt(k,372)*y(k,200) + .230_r8*rxt(k,373)*y(k,201) - mat(k,1797) = mat(k,1797) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) & - *y(k,101) + .500_r8*rxt(k,391)*y(k,109) + .500_r8*rxt(k,360) & + mat(k,221) = -(rxt(k,406)*y(k,228)) + mat(k,1675) = -rxt(k,406)*y(k,95) + mat(k,1207) = -(rxt(k,360)*y(k,228)) + mat(k,1777) = -rxt(k,360)*y(k,96) + mat(k,580) = .700_r8*rxt(k,420)*y(k,228) + mat(k,557) = .500_r8*rxt(k,421)*y(k,228) + mat(k,607) = .500_r8*rxt(k,395)*y(k,228) + mat(k,1993) = .050_r8*rxt(k,418)*y(k,209) + .220_r8*rxt(k,380)*y(k,213) & + + .250_r8*rxt(k,437)*y(k,237) + mat(k,2207) = .050_r8*rxt(k,419)*y(k,209) + .220_r8*rxt(k,379)*y(k,213) & + + .250_r8*rxt(k,438)*y(k,237) + mat(k,540) = .500_r8*rxt(k,364)*y(k,228) + mat(k,1417) = .220_r8*rxt(k,376)*y(k,213) + .250_r8*rxt(k,434)*y(k,237) + mat(k,2392) = .230_r8*rxt(k,377)*y(k,213) + .200_r8*rxt(k,365)*y(k,232) & + + .100_r8*rxt(k,435)*y(k,237) + mat(k,1326) = .050_r8*rxt(k,418)*y(k,124) + .050_r8*rxt(k,419)*y(k,126) + mat(k,1352) = .220_r8*rxt(k,380)*y(k,124) + .220_r8*rxt(k,379)*y(k,126) & + + .220_r8*rxt(k,376)*y(k,200) + .230_r8*rxt(k,377)*y(k,201) + mat(k,1777) = mat(k,1777) + .700_r8*rxt(k,420)*y(k,100) + .500_r8*rxt(k,421) & + *y(k,101) + .500_r8*rxt(k,395)*y(k,109) + .500_r8*rxt(k,364) & *y(k,148) - mat(k,1216) = .200_r8*rxt(k,361)*y(k,201) - mat(k,1232) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) & - + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201) - mat(k,326) = -(rxt(k,403)*y(k,228)) - mat(k,1713) = -rxt(k,403)*y(k,97) - mat(k,1847) = .870_r8*rxt(k,414)*y(k,209) - mat(k,1611) = .950_r8*rxt(k,415)*y(k,209) - mat(k,1410) = rxt(k,410)*y(k,209) - mat(k,2372) = .750_r8*rxt(k,411)*y(k,209) - mat(k,1316) = .870_r8*rxt(k,414)*y(k,124) + .950_r8*rxt(k,415)*y(k,126) & - + rxt(k,410)*y(k,200) + .750_r8*rxt(k,411)*y(k,201) - mat(k,133) = -(rxt(k,404)*y(k,228)) - mat(k,1684) = -rxt(k,404)*y(k,98) - mat(k,710) = .600_r8*rxt(k,427)*y(k,228) - mat(k,1684) = mat(k,1684) + .600_r8*rxt(k,427)*y(k,103) - mat(k,876) = -(rxt(k,418)*y(k,126) + rxt(k,425)*y(k,136) + rxt(k,426) & + mat(k,1215) = .200_r8*rxt(k,365)*y(k,201) + mat(k,1231) = .250_r8*rxt(k,437)*y(k,124) + .250_r8*rxt(k,438)*y(k,126) & + + .250_r8*rxt(k,434)*y(k,200) + .100_r8*rxt(k,435)*y(k,201) + mat(k,326) = -(rxt(k,407)*y(k,228)) + mat(k,1693) = -rxt(k,407)*y(k,97) + mat(k,1944) = .870_r8*rxt(k,418)*y(k,209) + mat(k,2184) = .950_r8*rxt(k,419)*y(k,209) + mat(k,1409) = rxt(k,414)*y(k,209) + mat(k,2372) = .750_r8*rxt(k,415)*y(k,209) + mat(k,1315) = .870_r8*rxt(k,418)*y(k,124) + .950_r8*rxt(k,419)*y(k,126) & + + rxt(k,414)*y(k,200) + .750_r8*rxt(k,415)*y(k,201) + mat(k,133) = -(rxt(k,408)*y(k,228)) + mat(k,1664) = -rxt(k,408)*y(k,98) + mat(k,709) = .600_r8*rxt(k,431)*y(k,228) + mat(k,1664) = mat(k,1664) + .600_r8*rxt(k,431)*y(k,103) + mat(k,875) = -(rxt(k,422)*y(k,126) + rxt(k,429)*y(k,136) + rxt(k,430) & *y(k,228)) - mat(k,1614) = -rxt(k,418)*y(k,99) - mat(k,2189) = -rxt(k,425)*y(k,99) - mat(k,1771) = -rxt(k,426)*y(k,99) - mat(k,589) = -(rxt(k,416)*y(k,228)) - mat(k,1746) = -rxt(k,416)*y(k,100) - mat(k,1861) = .080_r8*rxt(k,408)*y(k,208) - mat(k,1289) = .080_r8*rxt(k,408)*y(k,124) - mat(k,558) = -(rxt(k,417)*y(k,228)) - mat(k,1743) = -rxt(k,417)*y(k,101) - mat(k,1859) = .080_r8*rxt(k,414)*y(k,209) - mat(k,1317) = .080_r8*rxt(k,414)*y(k,124) - mat(k,403) = -(rxt(k,424)*y(k,228)) - mat(k,1723) = -rxt(k,424)*y(k,102) - mat(k,2285) = rxt(k,421)*y(k,210) - mat(k,1244) = rxt(k,421)*y(k,90) - mat(k,711) = -(rxt(k,427)*y(k,228)) - mat(k,1759) = -rxt(k,427)*y(k,103) - mat(k,2310) = rxt(k,407)*y(k,208) + rxt(k,412)*y(k,209) - mat(k,1290) = rxt(k,407)*y(k,90) - mat(k,1319) = rxt(k,412)*y(k,90) - mat(k,76) = -(rxt(k,549)*y(k,228)) - mat(k,1677) = -rxt(k,549)*y(k,104) - mat(k,1269) = -(rxt(k,378)*y(k,136) + rxt(k,379)*y(k,228)) - mat(k,2209) = -rxt(k,378)*y(k,105) - mat(k,1801) = -rxt(k,379)*y(k,105) - mat(k,881) = .300_r8*rxt(k,425)*y(k,136) - mat(k,1899) = .360_r8*rxt(k,408)*y(k,208) - mat(k,1638) = .400_r8*rxt(k,409)*y(k,208) - mat(k,2209) = mat(k,2209) + .300_r8*rxt(k,425)*y(k,99) - mat(k,1421) = .390_r8*rxt(k,405)*y(k,208) - mat(k,2396) = .310_r8*rxt(k,406)*y(k,208) - mat(k,1297) = .360_r8*rxt(k,408)*y(k,124) + .400_r8*rxt(k,409)*y(k,126) & - + .390_r8*rxt(k,405)*y(k,200) + .310_r8*rxt(k,406)*y(k,201) - mat(k,316) = -(rxt(k,380)*y(k,228)) - mat(k,1711) = -rxt(k,380)*y(k,106) - mat(k,2278) = rxt(k,374)*y(k,213) - mat(k,1348) = rxt(k,374)*y(k,90) - mat(k,517) = -(rxt(k,389)*y(k,228)) - mat(k,1738) = -rxt(k,389)*y(k,107) - mat(k,1857) = .800_r8*rxt(k,398)*y(k,192) - mat(k,1037) = .800_r8*rxt(k,398)*y(k,124) - mat(k,321) = -(rxt(k,390)*y(k,228)) - mat(k,1712) = -rxt(k,390)*y(k,108) - mat(k,2279) = .800_r8*rxt(k,387)*y(k,217) - mat(k,697) = .800_r8*rxt(k,387)*y(k,90) - mat(k,611) = -(rxt(k,391)*y(k,228)) - mat(k,1749) = -rxt(k,391)*y(k,109) - mat(k,1935) = rxt(k,394)*y(k,215) - mat(k,1392) = rxt(k,394)*y(k,125) - mat(k,1018) = -(rxt(k,482)*y(k,126) + rxt(k,483)*y(k,136) + rxt(k,484) & + mat(k,2187) = -rxt(k,422)*y(k,99) + mat(k,2083) = -rxt(k,429)*y(k,99) + mat(k,1751) = -rxt(k,430)*y(k,99) + mat(k,577) = -(rxt(k,420)*y(k,228)) + mat(k,1725) = -rxt(k,420)*y(k,100) + mat(k,1958) = .080_r8*rxt(k,412)*y(k,208) + mat(k,1288) = .080_r8*rxt(k,412)*y(k,124) + mat(k,553) = -(rxt(k,421)*y(k,228)) + mat(k,1723) = -rxt(k,421)*y(k,101) + mat(k,1956) = .080_r8*rxt(k,418)*y(k,209) + mat(k,1316) = .080_r8*rxt(k,418)*y(k,124) + mat(k,403) = -(rxt(k,428)*y(k,228)) + mat(k,1703) = -rxt(k,428)*y(k,102) + mat(k,2262) = rxt(k,425)*y(k,210) + mat(k,1243) = rxt(k,425)*y(k,90) + mat(k,710) = -(rxt(k,431)*y(k,228)) + mat(k,1739) = -rxt(k,431)*y(k,103) + mat(k,2287) = rxt(k,411)*y(k,208) + rxt(k,416)*y(k,209) + mat(k,1289) = rxt(k,411)*y(k,90) + mat(k,1318) = rxt(k,416)*y(k,90) + mat(k,76) = -(rxt(k,553)*y(k,228)) + mat(k,1657) = -rxt(k,553)*y(k,104) + mat(k,1268) = -(rxt(k,382)*y(k,136) + rxt(k,383)*y(k,228)) + mat(k,2103) = -rxt(k,382)*y(k,105) + mat(k,1781) = -rxt(k,383)*y(k,105) + mat(k,880) = .300_r8*rxt(k,429)*y(k,136) + mat(k,1997) = .360_r8*rxt(k,412)*y(k,208) + mat(k,2211) = .400_r8*rxt(k,413)*y(k,208) + mat(k,2103) = mat(k,2103) + .300_r8*rxt(k,429)*y(k,99) + mat(k,1420) = .390_r8*rxt(k,409)*y(k,208) + mat(k,2396) = .310_r8*rxt(k,410)*y(k,208) + mat(k,1296) = .360_r8*rxt(k,412)*y(k,124) + .400_r8*rxt(k,413)*y(k,126) & + + .390_r8*rxt(k,409)*y(k,200) + .310_r8*rxt(k,410)*y(k,201) + mat(k,316) = -(rxt(k,384)*y(k,228)) + mat(k,1691) = -rxt(k,384)*y(k,106) + mat(k,2255) = rxt(k,378)*y(k,213) + mat(k,1347) = rxt(k,378)*y(k,90) + mat(k,517) = -(rxt(k,393)*y(k,228)) + mat(k,1718) = -rxt(k,393)*y(k,107) + mat(k,1954) = .800_r8*rxt(k,402)*y(k,192) + mat(k,1020) = .800_r8*rxt(k,402)*y(k,124) + mat(k,321) = -(rxt(k,394)*y(k,228)) + mat(k,1692) = -rxt(k,394)*y(k,108) + mat(k,2256) = .800_r8*rxt(k,391)*y(k,217) + mat(k,696) = .800_r8*rxt(k,391)*y(k,90) + mat(k,606) = -(rxt(k,395)*y(k,228)) + mat(k,1729) = -rxt(k,395)*y(k,109) + mat(k,1866) = rxt(k,398)*y(k,215) + mat(k,1391) = rxt(k,398)*y(k,125) + mat(k,973) = -(rxt(k,486)*y(k,126) + rxt(k,487)*y(k,136) + rxt(k,488) & *y(k,228)) - mat(k,1619) = -rxt(k,482)*y(k,110) - mat(k,2193) = -rxt(k,483)*y(k,110) - mat(k,1782) = -rxt(k,484)*y(k,110) - mat(k,1376) = -(rxt(k,392)*y(k,136) + rxt(k,393)*y(k,228)) - mat(k,2214) = -rxt(k,392)*y(k,111) - mat(k,1806) = -rxt(k,393)*y(k,111) - mat(k,884) = .200_r8*rxt(k,425)*y(k,136) - mat(k,1904) = .560_r8*rxt(k,408)*y(k,208) - mat(k,1643) = .600_r8*rxt(k,409)*y(k,208) - mat(k,2214) = mat(k,2214) + .200_r8*rxt(k,425)*y(k,99) - mat(k,1426) = .610_r8*rxt(k,405)*y(k,208) - mat(k,2401) = .440_r8*rxt(k,406)*y(k,208) - mat(k,1301) = .560_r8*rxt(k,408)*y(k,124) + .600_r8*rxt(k,409)*y(k,126) & - + .610_r8*rxt(k,405)*y(k,200) + .440_r8*rxt(k,406)*y(k,201) - mat(k,999) = -(rxt(k,190)*y(k,124) + (rxt(k,191) + rxt(k,192) + rxt(k,193) & - ) * y(k,125) + rxt(k,194)*y(k,135) + rxt(k,202)*y(k,228) & - + rxt(k,588)*y(k,227)) - mat(k,1881) = -rxt(k,190)*y(k,112) - mat(k,1943) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112) - mat(k,1536) = -rxt(k,194)*y(k,112) - mat(k,1781) = -rxt(k,202)*y(k,112) - mat(k,855) = -rxt(k,588)*y(k,112) - mat(k,2082) = rxt(k,188)*y(k,219) + rxt(k,585)*y(k,222) - mat(k,1536) = mat(k,1536) + rxt(k,586)*y(k,222) - mat(k,866) = 1.100_r8*rxt(k,581)*y(k,220) + .200_r8*rxt(k,579)*y(k,221) - mat(k,530) = rxt(k,188)*y(k,134) - mat(k,681) = 1.100_r8*rxt(k,581)*y(k,203) - mat(k,847) = .200_r8*rxt(k,579)*y(k,203) - mat(k,506) = rxt(k,585)*y(k,134) + rxt(k,586)*y(k,135) - mat(k,256) = -((rxt(k,206) + rxt(k,207)) * y(k,224)) - mat(k,2013) = -(rxt(k,206) + rxt(k,207)) * y(k,113) - mat(k,993) = rxt(k,191)*y(k,125) - mat(k,1928) = rxt(k,191)*y(k,112) - mat(k,1929) = rxt(k,209)*y(k,126) - mat(k,1609) = rxt(k,209)*y(k,125) - mat(k,427) = -(rxt(k,428)*y(k,228)) - mat(k,1727) = -rxt(k,428)*y(k,115) - mat(k,2373) = .200_r8*rxt(k,420)*y(k,210) - mat(k,1245) = .200_r8*rxt(k,420)*y(k,201) - mat(k,1090) = -(rxt(k,429)*y(k,228)) - mat(k,1788) = -rxt(k,429)*y(k,116) - mat(k,1887) = rxt(k,422)*y(k,210) - mat(k,1625) = rxt(k,423)*y(k,210) - mat(k,1415) = rxt(k,419)*y(k,210) - mat(k,2385) = .800_r8*rxt(k,420)*y(k,210) - mat(k,1249) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) + rxt(k,419)*y(k,200) & - + .800_r8*rxt(k,420)*y(k,201) - mat(k,98) = -(rxt(k,519)*y(k,228)) - mat(k,1681) = -rxt(k,519)*y(k,120) - mat(k,1914) = -(rxt(k,190)*y(k,112) + rxt(k,199)*y(k,126) + rxt(k,203) & - *y(k,90) + rxt(k,204)*y(k,136) + rxt(k,205)*y(k,134) + rxt(k,226) & - *y(k,59) + rxt(k,258)*y(k,19) + rxt(k,301)*y(k,201) + rxt(k,309) & - *y(k,207) + rxt(k,322)*y(k,197) + rxt(k,333)*y(k,200) + rxt(k,337) & - *y(k,206) + rxt(k,350)*y(k,198) + rxt(k,359)*y(k,231) + rxt(k,363) & - *y(k,232) + (rxt(k,369) + rxt(k,370)) * y(k,204) + (rxt(k,376) & - + rxt(k,377)) * y(k,213) + rxt(k,385)*y(k,215) + rxt(k,388) & - *y(k,217) + (rxt(k,398) + rxt(k,399)) * y(k,192) + rxt(k,408) & - *y(k,208) + rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,433) & - *y(k,237) + rxt(k,437)*y(k,191) + rxt(k,440)*y(k,194) + rxt(k,445) & - *y(k,196) + rxt(k,447)*y(k,199) + rxt(k,451)*y(k,202) + rxt(k,454) & - *y(k,214) + rxt(k,457)*y(k,216) + rxt(k,460)*y(k,230) + rxt(k,467) & - *y(k,235) + rxt(k,473)*y(k,238) + rxt(k,476)*y(k,240) + rxt(k,487) & - *y(k,223) + rxt(k,492)*y(k,233) + rxt(k,497)*y(k,234) + rxt(k,590) & - *y(k,227)) - mat(k,1004) = -rxt(k,190)*y(k,124) - mat(k,1654) = -rxt(k,199)*y(k,124) - mat(k,2358) = -rxt(k,203)*y(k,124) - mat(k,2225) = -rxt(k,204)*y(k,124) - mat(k,2094) = -rxt(k,205)*y(k,124) - mat(k,1595) = -rxt(k,226)*y(k,124) - mat(k,1569) = -rxt(k,258)*y(k,124) - mat(k,2410) = -rxt(k,301)*y(k,124) - mat(k,443) = -rxt(k,309)*y(k,124) - mat(k,905) = -rxt(k,322)*y(k,124) - mat(k,1433) = -rxt(k,333)*y(k,124) - mat(k,801) = -rxt(k,337)*y(k,124) - mat(k,940) = -rxt(k,350)*y(k,124) - mat(k,819) = -rxt(k,359)*y(k,124) - mat(k,1221) = -rxt(k,363)*y(k,124) - mat(k,578) = -(rxt(k,369) + rxt(k,370)) * y(k,124) - mat(k,1362) = -(rxt(k,376) + rxt(k,377)) * y(k,124) - mat(k,1402) = -rxt(k,385)*y(k,124) - mat(k,702) = -rxt(k,388)*y(k,124) - mat(k,1048) = -(rxt(k,398) + rxt(k,399)) * y(k,124) - mat(k,1307) = -rxt(k,408)*y(k,124) - mat(k,1340) = -rxt(k,414)*y(k,124) - mat(k,1261) = -rxt(k,422)*y(k,124) - mat(k,1239) = -rxt(k,433)*y(k,124) - mat(k,526) = -rxt(k,437)*y(k,124) - mat(k,499) = -rxt(k,440)*y(k,124) - mat(k,438) = -rxt(k,445)*y(k,124) - mat(k,637) = -rxt(k,447)*y(k,124) - mat(k,782) = -rxt(k,451)*y(k,124) - mat(k,743) = -rxt(k,454)*y(k,124) - mat(k,915) = -rxt(k,457)*y(k,124) - mat(k,451) = -rxt(k,460)*y(k,124) - mat(k,758) = -rxt(k,467)*y(k,124) - mat(k,775) = -rxt(k,473)*y(k,124) - mat(k,514) = -rxt(k,476)*y(k,124) - mat(k,1112) = -rxt(k,487)*y(k,124) - mat(k,1183) = -rxt(k,492)*y(k,124) - mat(k,1066) = -rxt(k,497)*y(k,124) - mat(k,857) = -rxt(k,590)*y(k,124) - mat(k,1004) = mat(k,1004) + 2.000_r8*rxt(k,192)*y(k,125) + rxt(k,194) & - *y(k,135) + rxt(k,202)*y(k,228) - mat(k,258) = 2.000_r8*rxt(k,206)*y(k,224) - mat(k,1959) = 2.000_r8*rxt(k,192)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,512) & + mat(k,2191) = -rxt(k,486)*y(k,110) + mat(k,2086) = -rxt(k,487)*y(k,110) + mat(k,1760) = -rxt(k,488)*y(k,110) + mat(k,1375) = -(rxt(k,396)*y(k,136) + rxt(k,397)*y(k,228)) + mat(k,2108) = -rxt(k,396)*y(k,111) + mat(k,1786) = -rxt(k,397)*y(k,111) + mat(k,883) = .200_r8*rxt(k,429)*y(k,136) + mat(k,2002) = .560_r8*rxt(k,412)*y(k,208) + mat(k,2216) = .600_r8*rxt(k,413)*y(k,208) + mat(k,2108) = mat(k,2108) + .200_r8*rxt(k,429)*y(k,99) + mat(k,1425) = .610_r8*rxt(k,409)*y(k,208) + mat(k,2401) = .440_r8*rxt(k,410)*y(k,208) + mat(k,1300) = .560_r8*rxt(k,412)*y(k,124) + .600_r8*rxt(k,413)*y(k,126) & + + .610_r8*rxt(k,409)*y(k,200) + .440_r8*rxt(k,410)*y(k,201) + mat(k,1048) = -(rxt(k,192)*y(k,124) + (rxt(k,193) + rxt(k,194) + rxt(k,195) & + ) * y(k,125) + rxt(k,203)*y(k,228) + rxt(k,217)*y(k,135) & + + rxt(k,592)*y(k,227)) + mat(k,1981) = -rxt(k,192)*y(k,112) + mat(k,1875) = -(rxt(k,193) + rxt(k,194) + rxt(k,195)) * y(k,112) + mat(k,1764) = -rxt(k,203)*y(k,112) + mat(k,1535) = -rxt(k,217)*y(k,112) + mat(k,854) = -rxt(k,592)*y(k,112) + mat(k,2043) = rxt(k,191)*y(k,219) + rxt(k,589)*y(k,222) + mat(k,1535) = mat(k,1535) + rxt(k,590)*y(k,222) + mat(k,865) = rxt(k,214)*y(k,219) + 1.100_r8*rxt(k,585)*y(k,220) & + + .200_r8*rxt(k,583)*y(k,221) + mat(k,646) = rxt(k,191)*y(k,134) + rxt(k,214)*y(k,203) + mat(k,628) = 1.100_r8*rxt(k,585)*y(k,203) + mat(k,846) = .200_r8*rxt(k,583)*y(k,203) + mat(k,506) = rxt(k,589)*y(k,134) + rxt(k,590)*y(k,135) + mat(k,256) = -((rxt(k,207) + rxt(k,208)) * y(k,224)) + mat(k,1619) = -(rxt(k,207) + rxt(k,208)) * y(k,113) + mat(k,1042) = rxt(k,193)*y(k,125) + mat(k,1859) = rxt(k,193)*y(k,112) + mat(k,1860) = rxt(k,210)*y(k,126) + mat(k,2182) = rxt(k,210)*y(k,125) + mat(k,427) = -(rxt(k,432)*y(k,228)) + mat(k,1707) = -rxt(k,432)*y(k,115) + mat(k,2373) = .200_r8*rxt(k,424)*y(k,210) + mat(k,1244) = .200_r8*rxt(k,424)*y(k,201) + mat(k,1089) = -(rxt(k,433)*y(k,228)) + mat(k,1768) = -rxt(k,433)*y(k,116) + mat(k,1985) = rxt(k,426)*y(k,210) + mat(k,2198) = rxt(k,427)*y(k,210) + mat(k,1414) = rxt(k,423)*y(k,210) + mat(k,2385) = .800_r8*rxt(k,424)*y(k,210) + mat(k,1248) = rxt(k,426)*y(k,124) + rxt(k,427)*y(k,126) + rxt(k,423)*y(k,200) & + + .800_r8*rxt(k,424)*y(k,201) + mat(k,98) = -(rxt(k,523)*y(k,228)) + mat(k,1661) = -rxt(k,523)*y(k,120) + mat(k,2015) = -(rxt(k,190)*y(k,219) + rxt(k,192)*y(k,112) + rxt(k,200) & + *y(k,126) + rxt(k,204)*y(k,90) + rxt(k,205)*y(k,136) + rxt(k,206) & + *y(k,134) + rxt(k,230)*y(k,59) + rxt(k,262)*y(k,19) + rxt(k,305) & + *y(k,201) + rxt(k,313)*y(k,207) + rxt(k,326)*y(k,197) + rxt(k,337) & + *y(k,200) + rxt(k,341)*y(k,206) + rxt(k,354)*y(k,198) + rxt(k,363) & + *y(k,231) + rxt(k,367)*y(k,232) + (rxt(k,373) + rxt(k,374) & + ) * y(k,204) + (rxt(k,380) + rxt(k,381)) * y(k,213) + rxt(k,389) & + *y(k,215) + rxt(k,392)*y(k,217) + (rxt(k,402) + rxt(k,403) & + ) * y(k,192) + rxt(k,412)*y(k,208) + rxt(k,418)*y(k,209) & + + rxt(k,426)*y(k,210) + rxt(k,437)*y(k,237) + rxt(k,441) & + *y(k,191) + rxt(k,444)*y(k,194) + rxt(k,449)*y(k,196) + rxt(k,451) & + *y(k,199) + rxt(k,455)*y(k,202) + rxt(k,458)*y(k,214) + rxt(k,461) & + *y(k,216) + rxt(k,464)*y(k,230) + rxt(k,471)*y(k,235) + rxt(k,477) & + *y(k,238) + rxt(k,480)*y(k,240) + rxt(k,491)*y(k,223) + rxt(k,496) & + *y(k,233) + rxt(k,501)*y(k,234) + rxt(k,594)*y(k,227)) + mat(k,649) = -rxt(k,190)*y(k,124) + mat(k,1055) = -rxt(k,192)*y(k,124) + mat(k,2230) = -rxt(k,200)*y(k,124) + mat(k,2338) = -rxt(k,204)*y(k,124) + mat(k,2122) = -rxt(k,205)*y(k,124) + mat(k,2058) = -rxt(k,206)*y(k,124) + mat(k,2149) = -rxt(k,230)*y(k,124) + mat(k,1595) = -rxt(k,262)*y(k,124) + mat(k,2413) = -rxt(k,305)*y(k,124) + mat(k,445) = -rxt(k,313)*y(k,124) + mat(k,906) = -rxt(k,326)*y(k,124) + mat(k,1434) = -rxt(k,337)*y(k,124) + mat(k,802) = -rxt(k,341)*y(k,124) + mat(k,941) = -rxt(k,354)*y(k,124) + mat(k,820) = -rxt(k,363)*y(k,124) + mat(k,1222) = -rxt(k,367)*y(k,124) + mat(k,575) = -(rxt(k,373) + rxt(k,374)) * y(k,124) + mat(k,1362) = -(rxt(k,380) + rxt(k,381)) * y(k,124) + mat(k,1402) = -rxt(k,389)*y(k,124) + mat(k,702) = -rxt(k,392)*y(k,124) + mat(k,1033) = -(rxt(k,402) + rxt(k,403)) * y(k,124) + mat(k,1307) = -rxt(k,412)*y(k,124) + mat(k,1340) = -rxt(k,418)*y(k,124) + mat(k,1261) = -rxt(k,426)*y(k,124) + mat(k,1239) = -rxt(k,437)*y(k,124) + mat(k,527) = -rxt(k,441)*y(k,124) + mat(k,500) = -rxt(k,444)*y(k,124) + mat(k,439) = -rxt(k,449)*y(k,124) + mat(k,642) = -rxt(k,451)*y(k,124) + mat(k,782) = -rxt(k,455)*y(k,124) + mat(k,743) = -rxt(k,458)*y(k,124) + mat(k,915) = -rxt(k,461)*y(k,124) + mat(k,452) = -rxt(k,464)*y(k,124) + mat(k,758) = -rxt(k,471)*y(k,124) + mat(k,775) = -rxt(k,477)*y(k,124) + mat(k,515) = -rxt(k,480)*y(k,124) + mat(k,1112) = -rxt(k,491)*y(k,124) + mat(k,1184) = -rxt(k,496)*y(k,124) + mat(k,1067) = -rxt(k,501)*y(k,124) + mat(k,857) = -rxt(k,594)*y(k,124) + mat(k,1055) = mat(k,1055) + 2.000_r8*rxt(k,194)*y(k,125) + rxt(k,217) & + *y(k,135) + rxt(k,203)*y(k,228) + mat(k,259) = 2.000_r8*rxt(k,207)*y(k,224) + mat(k,1893) = 2.000_r8*rxt(k,194)*y(k,112) + rxt(k,196)*y(k,134) + rxt(k,516) & *y(k,152) - mat(k,2094) = mat(k,2094) + rxt(k,195)*y(k,125) - mat(k,1546) = rxt(k,194)*y(k,112) + rxt(k,189)*y(k,219) - mat(k,1482) = rxt(k,512)*y(k,125) - mat(k,532) = rxt(k,189)*y(k,135) - mat(k,2028) = 2.000_r8*rxt(k,206)*y(k,113) - mat(k,1819) = rxt(k,202)*y(k,112) + mat(k,2058) = mat(k,2058) + rxt(k,196)*y(k,125) + mat(k,1548) = rxt(k,217)*y(k,112) + rxt(k,215)*y(k,219) + mat(k,1482) = rxt(k,516)*y(k,125) + mat(k,649) = mat(k,649) + rxt(k,215)*y(k,135) + mat(k,1637) = 2.000_r8*rxt(k,207)*y(k,113) + mat(k,1802) = rxt(k,203)*y(k,112) end do end subroutine nlnmat05 subroutine nlnmat06( avec_len, mat, y, rxt ) @@ -1311,261 +1314,263 @@ subroutine nlnmat06( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1960) = -((rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112) + (rxt(k,195) & - + rxt(k,197)) * y(k,134) + rxt(k,196)*y(k,136) + rxt(k,208) & - *y(k,90) + rxt(k,209)*y(k,126) + rxt(k,210)*y(k,228) + rxt(k,228) & - *y(k,59) + rxt(k,259)*y(k,19) + rxt(k,344)*y(k,200) + rxt(k,394) & - *y(k,215) + rxt(k,452)*y(k,202) + rxt(k,455)*y(k,214) + rxt(k,458) & - *y(k,216) + rxt(k,462)*y(k,143) + rxt(k,465)*y(k,191) + rxt(k,512) & + mat(k,1891) = -((rxt(k,193) + rxt(k,194) + rxt(k,195)) * y(k,112) + (rxt(k,196) & + + rxt(k,198)) * y(k,134) + rxt(k,197)*y(k,136) + rxt(k,209) & + *y(k,90) + rxt(k,210)*y(k,126) + rxt(k,211)*y(k,228) + rxt(k,232) & + *y(k,59) + rxt(k,263)*y(k,19) + rxt(k,348)*y(k,200) + rxt(k,398) & + *y(k,215) + rxt(k,456)*y(k,202) + rxt(k,459)*y(k,214) + rxt(k,462) & + *y(k,216) + rxt(k,466)*y(k,143) + rxt(k,469)*y(k,191) + rxt(k,516) & *y(k,152)) - mat(k,1005) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,125) - mat(k,2095) = -(rxt(k,195) + rxt(k,197)) * y(k,125) - mat(k,2226) = -rxt(k,196)*y(k,125) - mat(k,2359) = -rxt(k,208)*y(k,125) - mat(k,1655) = -rxt(k,209)*y(k,125) - mat(k,1820) = -rxt(k,210)*y(k,125) - mat(k,1596) = -rxt(k,228)*y(k,125) - mat(k,1570) = -rxt(k,259)*y(k,125) - mat(k,1434) = -rxt(k,344)*y(k,125) - mat(k,1403) = -rxt(k,394)*y(k,125) - mat(k,783) = -rxt(k,452)*y(k,125) - mat(k,744) = -rxt(k,455)*y(k,125) - mat(k,916) = -rxt(k,458)*y(k,125) - mat(k,470) = -rxt(k,462)*y(k,125) - mat(k,527) = -rxt(k,465)*y(k,125) - mat(k,1483) = -rxt(k,512)*y(k,125) - mat(k,649) = rxt(k,396)*y(k,228) - mat(k,361) = rxt(k,367)*y(k,126) - mat(k,1570) = mat(k,1570) + rxt(k,258)*y(k,124) - mat(k,1596) = mat(k,1596) + rxt(k,226)*y(k,124) - mat(k,2359) = mat(k,2359) + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126) - mat(k,476) = rxt(k,187)*y(k,228) - mat(k,594) = .700_r8*rxt(k,416)*y(k,228) - mat(k,1915) = rxt(k,258)*y(k,19) + rxt(k,226)*y(k,59) + rxt(k,203)*y(k,90) & - + 2.000_r8*rxt(k,199)*y(k,126) + rxt(k,205)*y(k,134) & - + rxt(k,204)*y(k,136) + rxt(k,437)*y(k,191) + rxt(k,398) & - *y(k,192) + rxt(k,440)*y(k,194) + rxt(k,445)*y(k,196) & - + rxt(k,322)*y(k,197) + rxt(k,350)*y(k,198) + rxt(k,447) & - *y(k,199) + rxt(k,333)*y(k,200) + rxt(k,301)*y(k,201) & - + rxt(k,451)*y(k,202) + rxt(k,369)*y(k,204) + rxt(k,337) & - *y(k,206) + rxt(k,309)*y(k,207) + .920_r8*rxt(k,408)*y(k,208) & - + .920_r8*rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,376) & - *y(k,213) + rxt(k,454)*y(k,214) + rxt(k,385)*y(k,215) & - + rxt(k,457)*y(k,216) + rxt(k,388)*y(k,217) & - + 1.600_r8*rxt(k,487)*y(k,223) + rxt(k,460)*y(k,230) & - + rxt(k,359)*y(k,231) + rxt(k,363)*y(k,232) + .900_r8*rxt(k,492) & - *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) & - + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) & + mat(k,1054) = -(rxt(k,193) + rxt(k,194) + rxt(k,195)) * y(k,125) + mat(k,2056) = -(rxt(k,196) + rxt(k,198)) * y(k,125) + mat(k,2120) = -rxt(k,197)*y(k,125) + mat(k,2336) = -rxt(k,209)*y(k,125) + mat(k,2228) = -rxt(k,210)*y(k,125) + mat(k,1800) = -rxt(k,211)*y(k,125) + mat(k,2147) = -rxt(k,232)*y(k,125) + mat(k,1593) = -rxt(k,263)*y(k,125) + mat(k,1432) = -rxt(k,348)*y(k,125) + mat(k,1400) = -rxt(k,398)*y(k,125) + mat(k,781) = -rxt(k,456)*y(k,125) + mat(k,742) = -rxt(k,459)*y(k,125) + mat(k,914) = -rxt(k,462)*y(k,125) + mat(k,470) = -rxt(k,466)*y(k,125) + mat(k,526) = -rxt(k,469)*y(k,125) + mat(k,1481) = -rxt(k,516)*y(k,125) + mat(k,659) = rxt(k,400)*y(k,228) + mat(k,360) = rxt(k,371)*y(k,126) + mat(k,1593) = mat(k,1593) + rxt(k,262)*y(k,124) + mat(k,2147) = mat(k,2147) + rxt(k,230)*y(k,124) + mat(k,2336) = mat(k,2336) + rxt(k,204)*y(k,124) + rxt(k,199)*y(k,126) + mat(k,475) = rxt(k,189)*y(k,228) + mat(k,582) = .700_r8*rxt(k,420)*y(k,228) + mat(k,2013) = rxt(k,262)*y(k,19) + rxt(k,230)*y(k,59) + rxt(k,204)*y(k,90) & + + 2.000_r8*rxt(k,200)*y(k,126) + rxt(k,206)*y(k,134) & + + rxt(k,205)*y(k,136) + rxt(k,441)*y(k,191) + rxt(k,402) & + *y(k,192) + rxt(k,444)*y(k,194) + rxt(k,449)*y(k,196) & + + rxt(k,326)*y(k,197) + rxt(k,354)*y(k,198) + rxt(k,451) & + *y(k,199) + rxt(k,337)*y(k,200) + rxt(k,305)*y(k,201) & + + rxt(k,455)*y(k,202) + rxt(k,373)*y(k,204) + rxt(k,341) & + *y(k,206) + rxt(k,313)*y(k,207) + .920_r8*rxt(k,412)*y(k,208) & + + .920_r8*rxt(k,418)*y(k,209) + rxt(k,426)*y(k,210) + rxt(k,380) & + *y(k,213) + rxt(k,458)*y(k,214) + rxt(k,389)*y(k,215) & + + rxt(k,461)*y(k,216) + rxt(k,392)*y(k,217) & + + 1.600_r8*rxt(k,491)*y(k,223) + rxt(k,464)*y(k,230) & + + rxt(k,363)*y(k,231) + rxt(k,367)*y(k,232) + .900_r8*rxt(k,496) & + *y(k,233) + .800_r8*rxt(k,501)*y(k,234) + rxt(k,471)*y(k,235) & + + rxt(k,437)*y(k,237) + rxt(k,477)*y(k,238) + rxt(k,480) & *y(k,240) - mat(k,1655) = mat(k,1655) + rxt(k,367)*y(k,16) + rxt(k,198)*y(k,90) & - + 2.000_r8*rxt(k,199)*y(k,124) + rxt(k,200)*y(k,134) & - + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,423) & - *y(k,210) + rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215) & - + 2.000_r8*rxt(k,488)*y(k,223) + rxt(k,201)*y(k,228) & - + rxt(k,434)*y(k,237) - mat(k,896) = rxt(k,357)*y(k,228) - mat(k,2095) = mat(k,2095) + rxt(k,205)*y(k,124) + rxt(k,200)*y(k,126) - mat(k,2226) = mat(k,2226) + rxt(k,204)*y(k,124) - mat(k,630) = rxt(k,494)*y(k,228) - mat(k,527) = mat(k,527) + rxt(k,437)*y(k,124) - mat(k,1049) = rxt(k,398)*y(k,124) - mat(k,500) = rxt(k,440)*y(k,124) - mat(k,439) = rxt(k,445)*y(k,124) - mat(k,906) = rxt(k,322)*y(k,124) - mat(k,941) = rxt(k,350)*y(k,124) - mat(k,638) = rxt(k,447)*y(k,124) - mat(k,1434) = mat(k,1434) + rxt(k,333)*y(k,124) - mat(k,2411) = rxt(k,301)*y(k,124) + .500_r8*rxt(k,485)*y(k,223) - mat(k,783) = mat(k,783) + rxt(k,451)*y(k,124) - mat(k,579) = rxt(k,369)*y(k,124) - mat(k,802) = rxt(k,337)*y(k,124) - mat(k,444) = rxt(k,309)*y(k,124) - mat(k,1308) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) - mat(k,1341) = .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126) - mat(k,1262) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) - mat(k,1363) = rxt(k,376)*y(k,124) + rxt(k,375)*y(k,126) - mat(k,744) = mat(k,744) + rxt(k,454)*y(k,124) - mat(k,1403) = mat(k,1403) + rxt(k,385)*y(k,124) + rxt(k,386)*y(k,126) - mat(k,916) = mat(k,916) + rxt(k,457)*y(k,124) - mat(k,703) = rxt(k,388)*y(k,124) - mat(k,1113) = 1.600_r8*rxt(k,487)*y(k,124) + 2.000_r8*rxt(k,488)*y(k,126) & - + .500_r8*rxt(k,485)*y(k,201) - mat(k,1820) = mat(k,1820) + rxt(k,396)*y(k,1) + rxt(k,187)*y(k,91) & - + .700_r8*rxt(k,416)*y(k,100) + rxt(k,201)*y(k,126) + rxt(k,357) & - *y(k,127) + rxt(k,494)*y(k,178) - mat(k,452) = rxt(k,460)*y(k,124) - mat(k,820) = rxt(k,359)*y(k,124) - mat(k,1222) = rxt(k,363)*y(k,124) - mat(k,1184) = .900_r8*rxt(k,492)*y(k,124) - mat(k,1067) = .800_r8*rxt(k,497)*y(k,124) - mat(k,759) = rxt(k,467)*y(k,124) - mat(k,1240) = rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126) - mat(k,776) = rxt(k,473)*y(k,124) - mat(k,515) = rxt(k,476)*y(k,124) - mat(k,1652) = -(rxt(k,198)*y(k,90) + rxt(k,199)*y(k,124) + rxt(k,200) & - *y(k,134) + rxt(k,201)*y(k,228) + rxt(k,209)*y(k,125) + rxt(k,295) & - *y(k,42) + rxt(k,327)*y(k,45) + rxt(k,346)*y(k,29) + rxt(k,353) & - *y(k,49) + rxt(k,367)*y(k,16) + rxt(k,375)*y(k,213) + rxt(k,386) & - *y(k,215) + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,418) & - *y(k,99) + rxt(k,423)*y(k,210) + rxt(k,434)*y(k,237) + rxt(k,479) & - *y(k,6) + rxt(k,482)*y(k,110) + rxt(k,488)*y(k,223) + rxt(k,499) & - *y(k,180) + rxt(k,502)*y(k,67)) - mat(k,2356) = -rxt(k,198)*y(k,126) - mat(k,1912) = -rxt(k,199)*y(k,126) - mat(k,2092) = -rxt(k,200)*y(k,126) - mat(k,1817) = -rxt(k,201)*y(k,126) - mat(k,1957) = -rxt(k,209)*y(k,126) - mat(k,1983) = -rxt(k,295)*y(k,126) - mat(k,1154) = -rxt(k,327)*y(k,126) - mat(k,1141) = -rxt(k,346)*y(k,126) - mat(k,1284) = -rxt(k,353)*y(k,126) - mat(k,359) = -rxt(k,367)*y(k,126) - mat(k,1360) = -rxt(k,375)*y(k,126) - mat(k,1400) = -rxt(k,386)*y(k,126) - mat(k,1305) = -rxt(k,409)*y(k,126) - mat(k,1338) = -rxt(k,415)*y(k,126) - mat(k,886) = -rxt(k,418)*y(k,126) - mat(k,1259) = -rxt(k,423)*y(k,126) - mat(k,1237) = -rxt(k,434)*y(k,126) - mat(k,987) = -rxt(k,479)*y(k,126) - mat(k,1031) = -rxt(k,482)*y(k,126) - mat(k,1110) = -rxt(k,488)*y(k,126) - mat(k,1077) = -rxt(k,499)*y(k,126) - mat(k,312) = -rxt(k,502)*y(k,126) - mat(k,570) = rxt(k,260)*y(k,134) - mat(k,2159) = rxt(k,227)*y(k,60) - mat(k,958) = rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228) - mat(k,927) = rxt(k,274)*y(k,89) - mat(k,2049) = rxt(k,274)*y(k,73) + rxt(k,211)*y(k,228) - mat(k,615) = .500_r8*rxt(k,391)*y(k,228) - mat(k,1957) = mat(k,1957) + rxt(k,197)*y(k,134) + rxt(k,196)*y(k,136) - mat(k,2092) = mat(k,2092) + rxt(k,260)*y(k,20) + rxt(k,229)*y(k,60) & - + rxt(k,197)*y(k,125) - mat(k,2223) = rxt(k,196)*y(k,125) - mat(k,537) = rxt(k,342)*y(k,228) - mat(k,1817) = mat(k,1817) + rxt(k,230)*y(k,60) + rxt(k,211)*y(k,89) & - + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141) - mat(k,892) = -(rxt(k,357)*y(k,228)) - mat(k,1772) = -rxt(k,357)*y(k,127) - mat(k,1131) = rxt(k,346)*y(k,126) - mat(k,559) = .500_r8*rxt(k,417)*y(k,228) - mat(k,405) = rxt(k,424)*y(k,228) - mat(k,428) = rxt(k,428)*y(k,228) - mat(k,1087) = rxt(k,429)*y(k,228) - mat(k,1615) = rxt(k,346)*y(k,29) - mat(k,1772) = mat(k,1772) + .500_r8*rxt(k,417)*y(k,101) + rxt(k,424)*y(k,102) & - + rxt(k,428)*y(k,115) + rxt(k,429)*y(k,116) - mat(k,391) = -(rxt(k,489)*y(k,228)) - mat(k,1721) = -rxt(k,489)*y(k,128) - mat(k,2283) = rxt(k,486)*y(k,223) - mat(k,1102) = rxt(k,486)*y(k,90) - mat(k,2099) = -(rxt(k,167)*y(k,136) + 4._r8*rxt(k,168)*y(k,134) + rxt(k,169) & - *y(k,135) + rxt(k,170)*y(k,77) + rxt(k,171)*y(k,79) + rxt(k,176) & - *y(k,90) + rxt(k,182)*y(k,228) + (rxt(k,195) + rxt(k,197) & - ) * y(k,125) + rxt(k,200)*y(k,126) + rxt(k,205)*y(k,124) & - + rxt(k,229)*y(k,60) + rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85) & - + rxt(k,237)*y(k,93) + rxt(k,260)*y(k,20) + rxt(k,261)*y(k,19) & - + rxt(k,263)*y(k,81) + rxt(k,265)*y(k,92) + rxt(k,296)*y(k,42) & - + rxt(k,504)*y(k,139) + (rxt(k,583) + rxt(k,584)) * y(k,220) & - + rxt(k,585)*y(k,222)) - mat(k,2230) = -rxt(k,167)*y(k,134) - mat(k,1550) = -rxt(k,169)*y(k,134) - mat(k,1467) = -rxt(k,170)*y(k,134) - mat(k,585) = -rxt(k,171)*y(k,134) - mat(k,2363) = -rxt(k,176)*y(k,134) - mat(k,1824) = -rxt(k,182)*y(k,134) - mat(k,1964) = -(rxt(k,195) + rxt(k,197)) * y(k,134) - mat(k,1659) = -rxt(k,200)*y(k,134) - mat(k,1919) = -rxt(k,205)*y(k,134) - mat(k,962) = -rxt(k,229)*y(k,134) - mat(k,1600) = -rxt(k,231)*y(k,134) - mat(k,1504) = -rxt(k,234)*y(k,134) - mat(k,841) = -rxt(k,237)*y(k,134) - mat(k,573) = -rxt(k,260)*y(k,134) - mat(k,1574) = -rxt(k,261)*y(k,134) - mat(k,833) = -rxt(k,263)*y(k,134) - mat(k,792) = -rxt(k,265)*y(k,134) - mat(k,1990) = -rxt(k,296)*y(k,134) - mat(k,369) = -rxt(k,504)*y(k,134) - mat(k,685) = -(rxt(k,583) + rxt(k,584)) * y(k,134) - mat(k,508) = -rxt(k,585)*y(k,134) - mat(k,2120) = rxt(k,174)*y(k,90) - mat(k,2363) = mat(k,2363) + rxt(k,174)*y(k,76) - mat(k,1007) = rxt(k,190)*y(k,124) + rxt(k,191)*y(k,125) + rxt(k,194)*y(k,135) & - + rxt(k,588)*y(k,227) - mat(k,1919) = mat(k,1919) + rxt(k,190)*y(k,112) - mat(k,1964) = mat(k,1964) + rxt(k,191)*y(k,112) - mat(k,1550) = mat(k,1550) + rxt(k,194)*y(k,112) + rxt(k,506)*y(k,150) & - + rxt(k,513)*y(k,152) + rxt(k,587)*y(k,222) + (rxt(k,156) & - +rxt(k,157))*y(k,224) + rxt(k,593)*y(k,229) - mat(k,722) = rxt(k,506)*y(k,135) - mat(k,1484) = rxt(k,513)*y(k,135) - mat(k,872) = rxt(k,579)*y(k,221) + 1.150_r8*rxt(k,580)*y(k,227) - mat(k,851) = rxt(k,579)*y(k,203) - mat(k,508) = mat(k,508) + rxt(k,587)*y(k,135) - mat(k,2033) = (rxt(k,156)+rxt(k,157))*y(k,135) - mat(k,859) = rxt(k,588)*y(k,112) + 1.150_r8*rxt(k,580)*y(k,203) - mat(k,1824) = mat(k,1824) + 2.000_r8*rxt(k,184)*y(k,228) - mat(k,812) = rxt(k,593)*y(k,135) - mat(k,1542) = -(rxt(k,156)*y(k,224) + rxt(k,161)*y(k,225) + rxt(k,169) & - *y(k,134) + rxt(k,175)*y(k,76) + rxt(k,189)*y(k,219) + rxt(k,194) & - *y(k,112) + rxt(k,339)*y(k,205) + rxt(k,506)*y(k,150) + rxt(k,513) & - *y(k,152) + rxt(k,582)*y(k,220) + (rxt(k,586) + rxt(k,587) & - ) * y(k,222) + rxt(k,593)*y(k,229)) - mat(k,2023) = -rxt(k,156)*y(k,135) - mat(k,178) = -rxt(k,161)*y(k,135) - mat(k,2089) = -rxt(k,169)*y(k,135) - mat(k,2110) = -rxt(k,175)*y(k,135) - mat(k,531) = -rxt(k,189)*y(k,135) - mat(k,1002) = -rxt(k,194)*y(k,135) - mat(k,462) = -rxt(k,339)*y(k,135) - mat(k,720) = -rxt(k,506)*y(k,135) - mat(k,1478) = -rxt(k,513)*y(k,135) - mat(k,682) = -rxt(k,582)*y(k,135) - mat(k,507) = -(rxt(k,586) + rxt(k,587)) * y(k,135) - mat(k,811) = -rxt(k,593)*y(k,135) - mat(k,1512) = rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136) - mat(k,1564) = 2.000_r8*rxt(k,253)*y(k,19) + (rxt(k,255)+rxt(k,256))*y(k,59) & - + rxt(k,257)*y(k,90) + rxt(k,261)*y(k,134) - mat(k,2156) = rxt(k,218)*y(k,90) + rxt(k,220)*y(k,136) - mat(k,1590) = (rxt(k,255)+rxt(k,256))*y(k,19) + (2.000_r8*rxt(k,222) & - +2.000_r8*rxt(k,223))*y(k,59) + rxt(k,225)*y(k,90) + rxt(k,231) & - *y(k,134) + rxt(k,233)*y(k,228) - mat(k,2110) = mat(k,2110) + rxt(k,172)*y(k,90) + rxt(k,178)*y(k,136) - mat(k,2353) = rxt(k,251)*y(k,17) + rxt(k,257)*y(k,19) + rxt(k,218)*y(k,56) & - + rxt(k,225)*y(k,59) + rxt(k,172)*y(k,76) + 2.000_r8*rxt(k,186) & - *y(k,90) + rxt(k,198)*y(k,126) + rxt(k,176)*y(k,134) & - + 2.000_r8*rxt(k,177)*y(k,136) + rxt(k,321)*y(k,197) & - + rxt(k,349)*y(k,198) + rxt(k,300)*y(k,201) + rxt(k,181) & - *y(k,228) + rxt(k,358)*y(k,231) - mat(k,473) = rxt(k,187)*y(k,228) - mat(k,1002) = mat(k,1002) + rxt(k,193)*y(k,125) - mat(k,257) = rxt(k,207)*y(k,224) - mat(k,1909) = rxt(k,204)*y(k,136) + rxt(k,590)*y(k,227) - mat(k,1954) = rxt(k,193)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,196)*y(k,136) - mat(k,1649) = rxt(k,198)*y(k,90) + rxt(k,200)*y(k,134) - mat(k,2089) = mat(k,2089) + rxt(k,261)*y(k,19) + rxt(k,231)*y(k,59) & - + rxt(k,176)*y(k,90) + rxt(k,195)*y(k,125) + rxt(k,200)*y(k,126) & - + 2.000_r8*rxt(k,168)*y(k,134) + 2.000_r8*rxt(k,167)*y(k,136) & - + rxt(k,160)*y(k,225) + rxt(k,182)*y(k,228) - mat(k,1542) = mat(k,1542) + 2.000_r8*rxt(k,161)*y(k,225) - mat(k,2220) = rxt(k,252)*y(k,17) + rxt(k,220)*y(k,56) + rxt(k,178)*y(k,76) & - + 2.000_r8*rxt(k,177)*y(k,90) + rxt(k,204)*y(k,124) + rxt(k,196) & - *y(k,125) + 2.000_r8*rxt(k,167)*y(k,134) + rxt(k,508)*y(k,150) & - + rxt(k,514)*y(k,152) + 2.000_r8*rxt(k,158)*y(k,224) & - + rxt(k,183)*y(k,228) - mat(k,720) = mat(k,720) + rxt(k,508)*y(k,136) - mat(k,1478) = mat(k,1478) + rxt(k,514)*y(k,136) - mat(k,903) = rxt(k,321)*y(k,90) - mat(k,938) = rxt(k,349)*y(k,90) - mat(k,2405) = rxt(k,300)*y(k,90) - mat(k,2023) = mat(k,2023) + rxt(k,207)*y(k,113) + 2.000_r8*rxt(k,158) & - *y(k,136) - mat(k,178) = mat(k,178) + rxt(k,160)*y(k,134) + 2.000_r8*rxt(k,161)*y(k,135) - mat(k,856) = rxt(k,590)*y(k,124) - mat(k,1814) = rxt(k,233)*y(k,59) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) & - + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136) - mat(k,817) = rxt(k,358)*y(k,90) + mat(k,2228) = mat(k,2228) + rxt(k,371)*y(k,16) + rxt(k,199)*y(k,90) & + + 2.000_r8*rxt(k,200)*y(k,124) + rxt(k,201)*y(k,134) & + + rxt(k,413)*y(k,208) + rxt(k,419)*y(k,209) + rxt(k,427) & + *y(k,210) + rxt(k,379)*y(k,213) + rxt(k,390)*y(k,215) & + + 2.000_r8*rxt(k,492)*y(k,223) + rxt(k,202)*y(k,228) & + + rxt(k,438)*y(k,237) + mat(k,895) = rxt(k,361)*y(k,228) + mat(k,2056) = mat(k,2056) + rxt(k,206)*y(k,124) + rxt(k,201)*y(k,126) + mat(k,2120) = mat(k,2120) + rxt(k,205)*y(k,124) + mat(k,634) = rxt(k,498)*y(k,228) + mat(k,526) = mat(k,526) + rxt(k,441)*y(k,124) + mat(k,1031) = rxt(k,402)*y(k,124) + mat(k,499) = rxt(k,444)*y(k,124) + mat(k,438) = rxt(k,449)*y(k,124) + mat(k,904) = rxt(k,326)*y(k,124) + mat(k,939) = rxt(k,354)*y(k,124) + mat(k,641) = rxt(k,451)*y(k,124) + mat(k,1432) = mat(k,1432) + rxt(k,337)*y(k,124) + mat(k,2411) = rxt(k,305)*y(k,124) + .500_r8*rxt(k,489)*y(k,223) + mat(k,781) = mat(k,781) + rxt(k,455)*y(k,124) + mat(k,573) = rxt(k,373)*y(k,124) + mat(k,800) = rxt(k,341)*y(k,124) + mat(k,443) = rxt(k,313)*y(k,124) + mat(k,1305) = .920_r8*rxt(k,412)*y(k,124) + rxt(k,413)*y(k,126) + mat(k,1338) = .920_r8*rxt(k,418)*y(k,124) + rxt(k,419)*y(k,126) + mat(k,1259) = rxt(k,426)*y(k,124) + rxt(k,427)*y(k,126) + mat(k,1360) = rxt(k,380)*y(k,124) + rxt(k,379)*y(k,126) + mat(k,742) = mat(k,742) + rxt(k,458)*y(k,124) + mat(k,1400) = mat(k,1400) + rxt(k,389)*y(k,124) + rxt(k,390)*y(k,126) + mat(k,914) = mat(k,914) + rxt(k,461)*y(k,124) + mat(k,701) = rxt(k,392)*y(k,124) + mat(k,1110) = 1.600_r8*rxt(k,491)*y(k,124) + 2.000_r8*rxt(k,492)*y(k,126) & + + .500_r8*rxt(k,489)*y(k,201) + mat(k,1800) = mat(k,1800) + rxt(k,400)*y(k,1) + rxt(k,189)*y(k,91) & + + .700_r8*rxt(k,420)*y(k,100) + rxt(k,202)*y(k,126) + rxt(k,361) & + *y(k,127) + rxt(k,498)*y(k,178) + mat(k,451) = rxt(k,464)*y(k,124) + mat(k,818) = rxt(k,363)*y(k,124) + mat(k,1220) = rxt(k,367)*y(k,124) + mat(k,1182) = .900_r8*rxt(k,496)*y(k,124) + mat(k,1065) = .800_r8*rxt(k,501)*y(k,124) + mat(k,757) = rxt(k,471)*y(k,124) + mat(k,1237) = rxt(k,437)*y(k,124) + rxt(k,438)*y(k,126) + mat(k,774) = rxt(k,477)*y(k,124) + mat(k,514) = rxt(k,480)*y(k,124) + mat(k,2235) = -(rxt(k,199)*y(k,90) + rxt(k,200)*y(k,124) + rxt(k,201) & + *y(k,134) + rxt(k,202)*y(k,228) + rxt(k,210)*y(k,125) + rxt(k,299) & + *y(k,42) + rxt(k,331)*y(k,45) + rxt(k,350)*y(k,29) + rxt(k,357) & + *y(k,49) + rxt(k,371)*y(k,16) + rxt(k,379)*y(k,213) + rxt(k,390) & + *y(k,215) + rxt(k,413)*y(k,208) + rxt(k,419)*y(k,209) + rxt(k,422) & + *y(k,99) + rxt(k,427)*y(k,210) + rxt(k,438)*y(k,237) + rxt(k,483) & + *y(k,6) + rxt(k,486)*y(k,110) + rxt(k,492)*y(k,223) + rxt(k,503) & + *y(k,180) + rxt(k,506)*y(k,67)) + mat(k,2343) = -rxt(k,199)*y(k,126) + mat(k,2020) = -rxt(k,200)*y(k,126) + mat(k,2063) = -rxt(k,201)*y(k,126) + mat(k,1807) = -rxt(k,202)*y(k,126) + mat(k,1898) = -rxt(k,210)*y(k,126) + mat(k,1924) = -rxt(k,299)*y(k,126) + mat(k,1154) = -rxt(k,331)*y(k,126) + mat(k,1146) = -rxt(k,350)*y(k,126) + mat(k,1284) = -rxt(k,357)*y(k,126) + mat(k,362) = -rxt(k,371)*y(k,126) + mat(k,1363) = -rxt(k,379)*y(k,126) + mat(k,1404) = -rxt(k,390)*y(k,126) + mat(k,1309) = -rxt(k,413)*y(k,126) + mat(k,1342) = -rxt(k,419)*y(k,126) + mat(k,888) = -rxt(k,422)*y(k,126) + mat(k,1262) = -rxt(k,427)*y(k,126) + mat(k,1240) = -rxt(k,438)*y(k,126) + mat(k,1017) = -rxt(k,483)*y(k,126) + mat(k,989) = -rxt(k,486)*y(k,126) + mat(k,1113) = -rxt(k,492)*y(k,126) + mat(k,1077) = -rxt(k,503)*y(k,126) + mat(k,313) = -rxt(k,506)*y(k,126) + mat(k,567) = rxt(k,264)*y(k,134) + mat(k,1853) = rxt(k,231)*y(k,60) + mat(k,961) = rxt(k,231)*y(k,56) + rxt(k,233)*y(k,134) + rxt(k,234)*y(k,228) + mat(k,929) = rxt(k,278)*y(k,89) + mat(k,2366) = rxt(k,278)*y(k,73) + rxt(k,212)*y(k,228) + mat(k,613) = .500_r8*rxt(k,395)*y(k,228) + mat(k,1898) = mat(k,1898) + rxt(k,198)*y(k,134) + rxt(k,197)*y(k,136) + mat(k,2063) = mat(k,2063) + rxt(k,264)*y(k,20) + rxt(k,233)*y(k,60) & + + rxt(k,198)*y(k,125) + mat(k,2127) = rxt(k,197)*y(k,125) + mat(k,535) = rxt(k,346)*y(k,228) + mat(k,1807) = mat(k,1807) + rxt(k,234)*y(k,60) + rxt(k,212)*y(k,89) & + + .500_r8*rxt(k,395)*y(k,109) + rxt(k,346)*y(k,141) + mat(k,891) = -(rxt(k,361)*y(k,228)) + mat(k,1752) = -rxt(k,361)*y(k,127) + mat(k,1130) = rxt(k,350)*y(k,126) + mat(k,554) = .500_r8*rxt(k,421)*y(k,228) + mat(k,405) = rxt(k,428)*y(k,228) + mat(k,428) = rxt(k,432)*y(k,228) + mat(k,1086) = rxt(k,433)*y(k,228) + mat(k,2188) = rxt(k,350)*y(k,29) + mat(k,1752) = mat(k,1752) + .500_r8*rxt(k,421)*y(k,101) + rxt(k,428)*y(k,102) & + + rxt(k,432)*y(k,115) + rxt(k,433)*y(k,116) + mat(k,391) = -(rxt(k,493)*y(k,228)) + mat(k,1701) = -rxt(k,493)*y(k,128) + mat(k,2260) = rxt(k,490)*y(k,223) + mat(k,1101) = rxt(k,490)*y(k,90) + mat(k,2059) = -(rxt(k,168)*y(k,136) + 4._r8*rxt(k,169)*y(k,134) + rxt(k,170) & + *y(k,135) + rxt(k,171)*y(k,77) + rxt(k,172)*y(k,79) + rxt(k,177) & + *y(k,90) + rxt(k,183)*y(k,228) + (rxt(k,196) + rxt(k,198) & + ) * y(k,125) + rxt(k,201)*y(k,126) + rxt(k,206)*y(k,124) & + + rxt(k,233)*y(k,60) + rxt(k,235)*y(k,59) + rxt(k,238)*y(k,85) & + + rxt(k,241)*y(k,93) + rxt(k,264)*y(k,20) + rxt(k,265)*y(k,19) & + + rxt(k,267)*y(k,81) + rxt(k,269)*y(k,92) + rxt(k,300)*y(k,42) & + + rxt(k,508)*y(k,139) + (rxt(k,587) + rxt(k,588)) * y(k,220) & + + rxt(k,589)*y(k,222)) + mat(k,2123) = -rxt(k,168)*y(k,134) + mat(k,1549) = -rxt(k,170)*y(k,134) + mat(k,1466) = -rxt(k,171)*y(k,134) + mat(k,590) = -rxt(k,172)*y(k,134) + mat(k,2339) = -rxt(k,177)*y(k,134) + mat(k,1803) = -rxt(k,183)*y(k,134) + mat(k,1894) = -(rxt(k,196) + rxt(k,198)) * y(k,134) + mat(k,2231) = -rxt(k,201)*y(k,134) + mat(k,2016) = -rxt(k,206)*y(k,134) + mat(k,959) = -rxt(k,233)*y(k,134) + mat(k,2150) = -rxt(k,235)*y(k,134) + mat(k,1501) = -rxt(k,238)*y(k,134) + mat(k,840) = -rxt(k,241)*y(k,134) + mat(k,566) = -rxt(k,264)*y(k,134) + mat(k,1596) = -rxt(k,265)*y(k,134) + mat(k,832) = -rxt(k,267)*y(k,134) + mat(k,792) = -rxt(k,269)*y(k,134) + mat(k,1920) = -rxt(k,300)*y(k,134) + mat(k,369) = -rxt(k,508)*y(k,134) + mat(k,630) = -(rxt(k,587) + rxt(k,588)) * y(k,134) + mat(k,508) = -rxt(k,589)*y(k,134) + mat(k,2171) = rxt(k,175)*y(k,90) + mat(k,2339) = mat(k,2339) + rxt(k,175)*y(k,76) + mat(k,1056) = rxt(k,192)*y(k,124) + rxt(k,193)*y(k,125) + rxt(k,217)*y(k,135) & + + rxt(k,592)*y(k,227) + mat(k,2016) = mat(k,2016) + rxt(k,192)*y(k,112) + rxt(k,190)*y(k,219) + mat(k,1894) = mat(k,1894) + rxt(k,193)*y(k,112) + mat(k,1549) = mat(k,1549) + rxt(k,217)*y(k,112) + rxt(k,510)*y(k,150) & + + rxt(k,517)*y(k,152) + rxt(k,591)*y(k,222) + (rxt(k,156) & + +rxt(k,157))*y(k,224) + rxt(k,597)*y(k,229) + mat(k,2123) = mat(k,2123) + 2.000_r8*rxt(k,159)*y(k,224) + mat(k,736) = rxt(k,510)*y(k,135) + mat(k,1483) = rxt(k,517)*y(k,135) + mat(k,871) = rxt(k,583)*y(k,221) + 1.150_r8*rxt(k,584)*y(k,227) + mat(k,650) = rxt(k,190)*y(k,124) + mat(k,850) = rxt(k,583)*y(k,203) + mat(k,508) = mat(k,508) + rxt(k,591)*y(k,135) + mat(k,1638) = (rxt(k,156)+rxt(k,157))*y(k,135) + 2.000_r8*rxt(k,159)*y(k,136) + mat(k,858) = rxt(k,592)*y(k,112) + 1.150_r8*rxt(k,584)*y(k,203) + mat(k,1803) = mat(k,1803) + 2.000_r8*rxt(k,185)*y(k,228) + mat(k,811) = rxt(k,597)*y(k,135) + mat(k,1541) = -(rxt(k,156)*y(k,224) + rxt(k,162)*y(k,225) + rxt(k,170) & + *y(k,134) + rxt(k,176)*y(k,76) + rxt(k,215)*y(k,219) + rxt(k,217) & + *y(k,112) + rxt(k,343)*y(k,205) + rxt(k,510)*y(k,150) + rxt(k,517) & + *y(k,152) + rxt(k,586)*y(k,220) + (rxt(k,590) + rxt(k,591) & + ) * y(k,222) + rxt(k,597)*y(k,229)) + mat(k,1629) = -rxt(k,156)*y(k,135) + mat(k,178) = -rxt(k,162)*y(k,135) + mat(k,2050) = -rxt(k,170)*y(k,135) + mat(k,2162) = -rxt(k,176)*y(k,135) + mat(k,647) = -rxt(k,215)*y(k,135) + mat(k,1051) = -rxt(k,217)*y(k,135) + mat(k,462) = -rxt(k,343)*y(k,135) + mat(k,734) = -rxt(k,510)*y(k,135) + mat(k,1477) = -rxt(k,517)*y(k,135) + mat(k,629) = -rxt(k,586)*y(k,135) + mat(k,507) = -(rxt(k,590) + rxt(k,591)) * y(k,135) + mat(k,810) = -rxt(k,597)*y(k,135) + mat(k,1511) = rxt(k,255)*y(k,90) + rxt(k,256)*y(k,136) + mat(k,1588) = 2.000_r8*rxt(k,257)*y(k,19) + (rxt(k,259)+rxt(k,260))*y(k,59) & + + rxt(k,261)*y(k,90) + rxt(k,265)*y(k,134) + mat(k,1840) = rxt(k,222)*y(k,90) + rxt(k,224)*y(k,136) + mat(k,2142) = (rxt(k,259)+rxt(k,260))*y(k,19) + (2.000_r8*rxt(k,226) & + +2.000_r8*rxt(k,227))*y(k,59) + rxt(k,229)*y(k,90) + rxt(k,235) & + *y(k,134) + rxt(k,237)*y(k,228) + mat(k,2162) = mat(k,2162) + rxt(k,173)*y(k,90) + rxt(k,179)*y(k,136) + mat(k,2330) = rxt(k,255)*y(k,17) + rxt(k,261)*y(k,19) + rxt(k,222)*y(k,56) & + + rxt(k,229)*y(k,59) + rxt(k,173)*y(k,76) + 2.000_r8*rxt(k,187) & + *y(k,90) + rxt(k,199)*y(k,126) + rxt(k,177)*y(k,134) & + + 2.000_r8*rxt(k,178)*y(k,136) + rxt(k,325)*y(k,197) & + + rxt(k,353)*y(k,198) + rxt(k,304)*y(k,201) + rxt(k,182) & + *y(k,228) + rxt(k,362)*y(k,231) + mat(k,473) = rxt(k,189)*y(k,228) + mat(k,1051) = mat(k,1051) + rxt(k,195)*y(k,125) + mat(k,257) = rxt(k,208)*y(k,224) + mat(k,2007) = rxt(k,205)*y(k,136) + rxt(k,594)*y(k,227) + mat(k,1885) = rxt(k,195)*y(k,112) + rxt(k,196)*y(k,134) + rxt(k,197)*y(k,136) + mat(k,2222) = rxt(k,199)*y(k,90) + rxt(k,201)*y(k,134) + mat(k,2050) = mat(k,2050) + rxt(k,265)*y(k,19) + rxt(k,235)*y(k,59) & + + rxt(k,177)*y(k,90) + rxt(k,196)*y(k,125) + rxt(k,201)*y(k,126) & + + 2.000_r8*rxt(k,169)*y(k,134) + 2.000_r8*rxt(k,168)*y(k,136) & + + rxt(k,161)*y(k,225) + rxt(k,183)*y(k,228) + mat(k,1541) = mat(k,1541) + 2.000_r8*rxt(k,162)*y(k,225) + mat(k,2114) = rxt(k,256)*y(k,17) + rxt(k,224)*y(k,56) + rxt(k,179)*y(k,76) & + + 2.000_r8*rxt(k,178)*y(k,90) + rxt(k,205)*y(k,124) + rxt(k,197) & + *y(k,125) + 2.000_r8*rxt(k,168)*y(k,134) + rxt(k,512)*y(k,150) & + + rxt(k,518)*y(k,152) + (2.000_r8*rxt(k,158)+rxt(k,159)) & + *y(k,224) + rxt(k,184)*y(k,228) + mat(k,734) = mat(k,734) + rxt(k,512)*y(k,136) + mat(k,1477) = mat(k,1477) + rxt(k,518)*y(k,136) + mat(k,902) = rxt(k,325)*y(k,90) + mat(k,937) = rxt(k,353)*y(k,90) + mat(k,2405) = rxt(k,304)*y(k,90) + mat(k,1629) = mat(k,1629) + rxt(k,208)*y(k,113) + (2.000_r8*rxt(k,158) & + +rxt(k,159))*y(k,136) + mat(k,178) = mat(k,178) + rxt(k,161)*y(k,134) + 2.000_r8*rxt(k,162)*y(k,135) + mat(k,855) = rxt(k,594)*y(k,124) + mat(k,1794) = rxt(k,237)*y(k,59) + rxt(k,182)*y(k,90) + rxt(k,189)*y(k,91) & + + rxt(k,183)*y(k,134) + rxt(k,184)*y(k,136) + mat(k,816) = rxt(k,362)*y(k,90) end do end subroutine nlnmat06 subroutine nlnmat07( avec_len, mat, y, rxt ) @@ -1586,216 +1591,216 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,2233) = -(rxt(k,158)*y(k,224) + rxt(k,167)*y(k,134) + rxt(k,177) & - *y(k,90) + rxt(k,178)*y(k,76) + rxt(k,183)*y(k,228) + rxt(k,196) & - *y(k,125) + rxt(k,204)*y(k,124) + rxt(k,220)*y(k,56) + rxt(k,252) & - *y(k,17) + rxt(k,318)*y(k,25) + rxt(k,347)*y(k,29) + rxt(k,378) & - *y(k,105) + rxt(k,392)*y(k,111) + rxt(k,425)*y(k,99) + rxt(k,463) & - *y(k,143) + rxt(k,480)*y(k,6) + rxt(k,483)*y(k,110) + rxt(k,508) & - *y(k,150) + rxt(k,514)*y(k,152)) - mat(k,2036) = -rxt(k,158)*y(k,136) - mat(k,2102) = -rxt(k,167)*y(k,136) - mat(k,2366) = -rxt(k,177)*y(k,136) - mat(k,2123) = -rxt(k,178)*y(k,136) - mat(k,1827) = -rxt(k,183)*y(k,136) - mat(k,1967) = -rxt(k,196)*y(k,136) - mat(k,1922) = -rxt(k,204)*y(k,136) - mat(k,2169) = -rxt(k,220)*y(k,136) - mat(k,1521) = -rxt(k,252)*y(k,136) - mat(k,556) = -rxt(k,318)*y(k,136) - mat(k,1146) = -rxt(k,347)*y(k,136) - mat(k,1277) = -rxt(k,378)*y(k,136) - mat(k,1387) = -rxt(k,392)*y(k,136) - mat(k,889) = -rxt(k,425)*y(k,136) - mat(k,471) = -rxt(k,463)*y(k,136) - mat(k,990) = -rxt(k,480)*y(k,136) - mat(k,1034) = -rxt(k,483)*y(k,136) - mat(k,724) = -rxt(k,508)*y(k,136) - mat(k,1487) = -rxt(k,514)*y(k,136) - mat(k,2366) = mat(k,2366) + .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383) & + mat(k,2124) = -((rxt(k,158) + rxt(k,159)) * y(k,224) + rxt(k,168)*y(k,134) & + + rxt(k,178)*y(k,90) + rxt(k,179)*y(k,76) + rxt(k,184)*y(k,228) & + + rxt(k,197)*y(k,125) + rxt(k,205)*y(k,124) + rxt(k,224)*y(k,56) & + + rxt(k,256)*y(k,17) + rxt(k,322)*y(k,25) + rxt(k,351)*y(k,29) & + + rxt(k,382)*y(k,105) + rxt(k,396)*y(k,111) + rxt(k,429)*y(k,99) & + + rxt(k,467)*y(k,143) + rxt(k,484)*y(k,6) + rxt(k,487)*y(k,110) & + + rxt(k,512)*y(k,150) + rxt(k,518)*y(k,152)) + mat(k,1639) = -(rxt(k,158) + rxt(k,159)) * y(k,136) + mat(k,2060) = -rxt(k,168)*y(k,136) + mat(k,2340) = -rxt(k,178)*y(k,136) + mat(k,2172) = -rxt(k,179)*y(k,136) + mat(k,1804) = -rxt(k,184)*y(k,136) + mat(k,1895) = -rxt(k,197)*y(k,136) + mat(k,2017) = -rxt(k,205)*y(k,136) + mat(k,1850) = -rxt(k,224)*y(k,136) + mat(k,1519) = -rxt(k,256)*y(k,136) + mat(k,551) = -rxt(k,322)*y(k,136) + mat(k,1145) = -rxt(k,351)*y(k,136) + mat(k,1276) = -rxt(k,382)*y(k,136) + mat(k,1385) = -rxt(k,396)*y(k,136) + mat(k,887) = -rxt(k,429)*y(k,136) + mat(k,471) = -rxt(k,467)*y(k,136) + mat(k,1016) = -rxt(k,484)*y(k,136) + mat(k,988) = -rxt(k,487)*y(k,136) + mat(k,737) = -rxt(k,512)*y(k,136) + mat(k,1484) = -rxt(k,518)*y(k,136) + mat(k,2340) = mat(k,2340) + .150_r8*rxt(k,336)*y(k,200) + .150_r8*rxt(k,387) & *y(k,215) - mat(k,2102) = mat(k,2102) + rxt(k,169)*y(k,135) - mat(k,1553) = rxt(k,169)*y(k,134) - mat(k,1437) = .150_r8*rxt(k,332)*y(k,90) - mat(k,1406) = .150_r8*rxt(k,383)*y(k,90) - mat(k,334) = -(rxt(k,515)*y(k,152)) - mat(k,1473) = -rxt(k,515)*y(k,138) - mat(k,1557) = rxt(k,254)*y(k,59) - mat(k,1583) = rxt(k,254)*y(k,19) + 2.000_r8*rxt(k,224)*y(k,59) - mat(k,363) = -(rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228)) - mat(k,2066) = -rxt(k,504)*y(k,139) - mat(k,1718) = -rxt(k,505)*y(k,139) - mat(k,1190) = rxt(k,371)*y(k,228) - mat(k,1844) = .100_r8*rxt(k,492)*y(k,233) - mat(k,1697) = rxt(k,371)*y(k,94) - mat(k,1171) = .100_r8*rxt(k,492)*y(k,124) - mat(k,534) = -(rxt(k,342)*y(k,228)) - mat(k,1740) = -rxt(k,342)*y(k,141) - mat(k,1933) = rxt(k,344)*y(k,200) - mat(k,1411) = rxt(k,344)*y(k,125) - mat(k,1927) = rxt(k,465)*y(k,191) - mat(k,522) = rxt(k,465)*y(k,125) - mat(k,468) = -(rxt(k,462)*y(k,125) + rxt(k,463)*y(k,136)) - mat(k,1930) = -rxt(k,462)*y(k,143) - mat(k,2183) = -rxt(k,463)*y(k,143) - mat(k,196) = .070_r8*rxt(k,449)*y(k,228) - mat(k,1854) = rxt(k,447)*y(k,199) - mat(k,172) = .060_r8*rxt(k,461)*y(k,228) - mat(k,217) = .070_r8*rxt(k,477)*y(k,228) - mat(k,634) = rxt(k,447)*y(k,124) - mat(k,1732) = .070_r8*rxt(k,449)*y(k,66) + .060_r8*rxt(k,461)*y(k,144) & - + .070_r8*rxt(k,477)*y(k,187) - mat(k,170) = -(rxt(k,461)*y(k,228)) - mat(k,1687) = -rxt(k,461)*y(k,144) - mat(k,162) = .530_r8*rxt(k,438)*y(k,228) - mat(k,1687) = mat(k,1687) + .530_r8*rxt(k,438)*y(k,7) - mat(k,339) = -(rxt(k,464)*y(k,228)) - mat(k,1714) = -rxt(k,464)*y(k,145) - mat(k,2280) = rxt(k,459)*y(k,230) - mat(k,447) = rxt(k,459)*y(k,90) - mat(k,542) = -(rxt(k,360)*y(k,228)) - mat(k,1741) = -rxt(k,360)*y(k,148) - mat(k,2301) = rxt(k,358)*y(k,231) - mat(k,813) = rxt(k,358)*y(k,90) - mat(k,397) = -(rxt(k,364)*y(k,228)) - mat(k,1722) = -rxt(k,364)*y(k,149) - mat(k,2284) = .850_r8*rxt(k,362)*y(k,232) - mat(k,1214) = .850_r8*rxt(k,362)*y(k,90) - mat(k,718) = -(rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511) & + mat(k,2060) = mat(k,2060) + rxt(k,170)*y(k,135) + mat(k,1550) = rxt(k,170)*y(k,134) + mat(k,1435) = .150_r8*rxt(k,336)*y(k,90) + mat(k,1403) = .150_r8*rxt(k,387)*y(k,90) + mat(k,334) = -(rxt(k,519)*y(k,152)) + mat(k,1472) = -rxt(k,519)*y(k,138) + mat(k,1581) = rxt(k,258)*y(k,59) + mat(k,2135) = rxt(k,258)*y(k,19) + 2.000_r8*rxt(k,228)*y(k,59) + mat(k,363) = -(rxt(k,508)*y(k,134) + rxt(k,509)*y(k,228)) + mat(k,2027) = -rxt(k,508)*y(k,139) + mat(k,1698) = -rxt(k,509)*y(k,139) + mat(k,1189) = rxt(k,375)*y(k,228) + mat(k,1941) = .100_r8*rxt(k,496)*y(k,233) + mat(k,1677) = rxt(k,375)*y(k,94) + mat(k,1170) = .100_r8*rxt(k,496)*y(k,124) + mat(k,529) = -(rxt(k,346)*y(k,228)) + mat(k,1720) = -rxt(k,346)*y(k,141) + mat(k,1864) = rxt(k,348)*y(k,200) + mat(k,1410) = rxt(k,348)*y(k,125) + mat(k,1858) = rxt(k,469)*y(k,191) + mat(k,522) = rxt(k,469)*y(k,125) + mat(k,468) = -(rxt(k,466)*y(k,125) + rxt(k,467)*y(k,136)) + mat(k,1861) = -rxt(k,466)*y(k,143) + mat(k,2077) = -rxt(k,467)*y(k,143) + mat(k,196) = .070_r8*rxt(k,453)*y(k,228) + mat(k,1951) = rxt(k,451)*y(k,199) + mat(k,172) = .060_r8*rxt(k,465)*y(k,228) + mat(k,217) = .070_r8*rxt(k,481)*y(k,228) + mat(k,638) = rxt(k,451)*y(k,124) + mat(k,1712) = .070_r8*rxt(k,453)*y(k,66) + .060_r8*rxt(k,465)*y(k,144) & + + .070_r8*rxt(k,481)*y(k,187) + mat(k,170) = -(rxt(k,465)*y(k,228)) + mat(k,1667) = -rxt(k,465)*y(k,144) + mat(k,162) = .530_r8*rxt(k,442)*y(k,228) + mat(k,1667) = mat(k,1667) + .530_r8*rxt(k,442)*y(k,7) + mat(k,339) = -(rxt(k,468)*y(k,228)) + mat(k,1694) = -rxt(k,468)*y(k,145) + mat(k,2257) = rxt(k,463)*y(k,230) + mat(k,447) = rxt(k,463)*y(k,90) + mat(k,537) = -(rxt(k,364)*y(k,228)) + mat(k,1721) = -rxt(k,364)*y(k,148) + mat(k,2278) = rxt(k,362)*y(k,231) + mat(k,812) = rxt(k,362)*y(k,90) + mat(k,397) = -(rxt(k,368)*y(k,228)) + mat(k,1702) = -rxt(k,368)*y(k,149) + mat(k,2261) = .850_r8*rxt(k,366)*y(k,232) + mat(k,1213) = .850_r8*rxt(k,366)*y(k,90) + mat(k,732) = -(rxt(k,510)*y(k,135) + rxt(k,512)*y(k,136) + rxt(k,515) & *y(k,228)) - mat(k,1530) = -rxt(k,506)*y(k,150) - mat(k,2187) = -rxt(k,508)*y(k,150) - mat(k,1760) = -rxt(k,511)*y(k,150) - mat(k,1476) = -(rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) & - + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) & - *y(k,138) + rxt(k,516)*y(k,228)) - mat(k,1561) = -rxt(k,509)*y(k,152) - mat(k,1587) = -rxt(k,510)*y(k,152) - mat(k,1951) = -rxt(k,512)*y(k,152) - mat(k,1540) = -rxt(k,513)*y(k,152) - mat(k,2218) = -rxt(k,514)*y(k,152) - mat(k,336) = -rxt(k,515)*y(k,152) - mat(k,1811) = -rxt(k,516)*y(k,152) - mat(k,2086) = rxt(k,504)*y(k,139) - mat(k,1540) = mat(k,1540) + rxt(k,506)*y(k,150) - mat(k,2218) = mat(k,2218) + rxt(k,508)*y(k,150) - mat(k,367) = rxt(k,504)*y(k,134) - mat(k,719) = rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511)*y(k,228) - mat(k,1811) = mat(k,1811) + rxt(k,511)*y(k,150) - mat(k,947) = -(rxt(k,507)*y(k,228)) - mat(k,1778) = -rxt(k,507)*y(k,153) - mat(k,1560) = rxt(k,509)*y(k,152) - mat(k,1585) = rxt(k,510)*y(k,152) - mat(k,311) = rxt(k,502)*y(k,126) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,228) - mat(k,1941) = rxt(k,512)*y(k,152) - mat(k,1617) = rxt(k,502)*y(k,67) - mat(k,1535) = rxt(k,513)*y(k,152) - mat(k,2191) = rxt(k,514)*y(k,152) - mat(k,335) = rxt(k,515)*y(k,152) - mat(k,365) = rxt(k,505)*y(k,228) - mat(k,1475) = rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) & - + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) & - *y(k,138) + rxt(k,516)*y(k,228) - mat(k,1778) = mat(k,1778) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,67) & - + rxt(k,505)*y(k,139) + rxt(k,516)*y(k,152) - mat(k,261) = -(rxt(k,518)*y(k,241)) - mat(k,2424) = -rxt(k,518)*y(k,154) - mat(k,946) = rxt(k,507)*y(k,228) - mat(k,1703) = rxt(k,507)*y(k,153) - mat(k,965) = .2202005_r8*rxt(k,537)*y(k,136) - mat(k,2263) = .2202005_r8*rxt(k,535)*y(k,193) + .0023005_r8*rxt(k,540) & - *y(k,195) + .0031005_r8*rxt(k,543)*y(k,211) & - + .2381005_r8*rxt(k,547)*y(k,212) + .0508005_r8*rxt(k,551) & - *y(k,218) + .1364005_r8*rxt(k,557)*y(k,236) & - + .1677005_r8*rxt(k,560)*y(k,239) - mat(k,1009) = .0508005_r8*rxt(k,553)*y(k,136) - mat(k,1832) = .1279005_r8*rxt(k,536)*y(k,193) + .0097005_r8*rxt(k,541) & - *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) & - + .1056005_r8*rxt(k,548)*y(k,212) + .0245005_r8*rxt(k,552) & - *y(k,218) + .0154005_r8*rxt(k,558)*y(k,236) & - + .0063005_r8*rxt(k,561)*y(k,239) - mat(k,2174) = .2202005_r8*rxt(k,537)*y(k,6) + .0508005_r8*rxt(k,553)*y(k,110) - mat(k,45) = .5931005_r8*rxt(k,555)*y(k,228) - mat(k,51) = .2202005_r8*rxt(k,535)*y(k,90) + .1279005_r8*rxt(k,536)*y(k,124) - mat(k,57) = .0023005_r8*rxt(k,540)*y(k,90) + .0097005_r8*rxt(k,541)*y(k,124) - mat(k,63) = .0031005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124) - mat(k,69) = .2381005_r8*rxt(k,547)*y(k,90) + .1056005_r8*rxt(k,548)*y(k,124) - mat(k,77) = .0508005_r8*rxt(k,551)*y(k,90) + .0245005_r8*rxt(k,552)*y(k,124) - mat(k,1667) = .5931005_r8*rxt(k,555)*y(k,175) - mat(k,83) = .1364005_r8*rxt(k,557)*y(k,90) + .0154005_r8*rxt(k,558)*y(k,124) - mat(k,89) = .1677005_r8*rxt(k,560)*y(k,90) + .0063005_r8*rxt(k,561)*y(k,124) - mat(k,966) = .2067005_r8*rxt(k,537)*y(k,136) - mat(k,2264) = .2067005_r8*rxt(k,535)*y(k,193) + .0008005_r8*rxt(k,540) & - *y(k,195) + .0035005_r8*rxt(k,543)*y(k,211) & - + .1308005_r8*rxt(k,547)*y(k,212) + .1149005_r8*rxt(k,551) & - *y(k,218) + .0101005_r8*rxt(k,557)*y(k,236) & - + .0174005_r8*rxt(k,560)*y(k,239) - mat(k,1010) = .1149005_r8*rxt(k,553)*y(k,136) - mat(k,1833) = .1792005_r8*rxt(k,536)*y(k,193) + .0034005_r8*rxt(k,541) & - *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) & - + .1026005_r8*rxt(k,548)*y(k,212) + .0082005_r8*rxt(k,552) & - *y(k,218) + .0452005_r8*rxt(k,558)*y(k,236) & - + .0237005_r8*rxt(k,561)*y(k,239) - mat(k,2175) = .2067005_r8*rxt(k,537)*y(k,6) + .1149005_r8*rxt(k,553)*y(k,110) - mat(k,46) = .1534005_r8*rxt(k,555)*y(k,228) - mat(k,52) = .2067005_r8*rxt(k,535)*y(k,90) + .1792005_r8*rxt(k,536)*y(k,124) - mat(k,58) = .0008005_r8*rxt(k,540)*y(k,90) + .0034005_r8*rxt(k,541)*y(k,124) - mat(k,64) = .0035005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124) - mat(k,70) = .1308005_r8*rxt(k,547)*y(k,90) + .1026005_r8*rxt(k,548)*y(k,124) - mat(k,78) = .1149005_r8*rxt(k,551)*y(k,90) + .0082005_r8*rxt(k,552)*y(k,124) - mat(k,1668) = .1534005_r8*rxt(k,555)*y(k,175) - mat(k,84) = .0101005_r8*rxt(k,557)*y(k,90) + .0452005_r8*rxt(k,558)*y(k,124) - mat(k,90) = .0174005_r8*rxt(k,560)*y(k,90) + .0237005_r8*rxt(k,561)*y(k,124) - mat(k,967) = .0653005_r8*rxt(k,537)*y(k,136) - mat(k,2265) = .0653005_r8*rxt(k,535)*y(k,193) + .0843005_r8*rxt(k,540) & - *y(k,195) + .0003005_r8*rxt(k,543)*y(k,211) & - + .0348005_r8*rxt(k,547)*y(k,212) + .0348005_r8*rxt(k,551) & - *y(k,218) + .0763005_r8*rxt(k,557)*y(k,236) + .086_r8*rxt(k,560) & + mat(k,1529) = -rxt(k,510)*y(k,150) + mat(k,2081) = -rxt(k,512)*y(k,150) + mat(k,1741) = -rxt(k,515)*y(k,150) + mat(k,1475) = -(rxt(k,513)*y(k,19) + rxt(k,514)*y(k,59) + rxt(k,516)*y(k,125) & + + rxt(k,517)*y(k,135) + rxt(k,518)*y(k,136) + rxt(k,519) & + *y(k,138) + rxt(k,520)*y(k,228)) + mat(k,1585) = -rxt(k,513)*y(k,152) + mat(k,2139) = -rxt(k,514)*y(k,152) + mat(k,1882) = -rxt(k,516)*y(k,152) + mat(k,1539) = -rxt(k,517)*y(k,152) + mat(k,2112) = -rxt(k,518)*y(k,152) + mat(k,336) = -rxt(k,519)*y(k,152) + mat(k,1791) = -rxt(k,520)*y(k,152) + mat(k,2047) = rxt(k,508)*y(k,139) + mat(k,1539) = mat(k,1539) + rxt(k,510)*y(k,150) + mat(k,2112) = mat(k,2112) + rxt(k,512)*y(k,150) + mat(k,367) = rxt(k,508)*y(k,134) + mat(k,733) = rxt(k,510)*y(k,135) + rxt(k,512)*y(k,136) + rxt(k,515)*y(k,228) + mat(k,1791) = mat(k,1791) + rxt(k,515)*y(k,150) + mat(k,946) = -(rxt(k,511)*y(k,228)) + mat(k,1758) = -rxt(k,511)*y(k,153) + mat(k,1584) = rxt(k,513)*y(k,152) + mat(k,2137) = rxt(k,514)*y(k,152) + mat(k,311) = rxt(k,506)*y(k,126) + (rxt(k,507)+.500_r8*rxt(k,521))*y(k,228) + mat(k,1872) = rxt(k,516)*y(k,152) + mat(k,2190) = rxt(k,506)*y(k,67) + mat(k,1534) = rxt(k,517)*y(k,152) + mat(k,2085) = rxt(k,518)*y(k,152) + mat(k,335) = rxt(k,519)*y(k,152) + mat(k,365) = rxt(k,509)*y(k,228) + mat(k,1474) = rxt(k,513)*y(k,19) + rxt(k,514)*y(k,59) + rxt(k,516)*y(k,125) & + + rxt(k,517)*y(k,135) + rxt(k,518)*y(k,136) + rxt(k,519) & + *y(k,138) + rxt(k,520)*y(k,228) + mat(k,1758) = mat(k,1758) + (rxt(k,507)+.500_r8*rxt(k,521))*y(k,67) & + + rxt(k,509)*y(k,139) + rxt(k,520)*y(k,152) + mat(k,261) = -(rxt(k,522)*y(k,241)) + mat(k,2424) = -rxt(k,522)*y(k,154) + mat(k,945) = rxt(k,511)*y(k,228) + mat(k,1683) = rxt(k,511)*y(k,153) + mat(k,992) = .2202005_r8*rxt(k,541)*y(k,136) + mat(k,2240) = .2202005_r8*rxt(k,539)*y(k,193) + .0023005_r8*rxt(k,544) & + *y(k,195) + .0031005_r8*rxt(k,547)*y(k,211) & + + .2381005_r8*rxt(k,551)*y(k,212) + .0508005_r8*rxt(k,555) & + *y(k,218) + .1364005_r8*rxt(k,561)*y(k,236) & + + .1677005_r8*rxt(k,564)*y(k,239) + mat(k,964) = .0508005_r8*rxt(k,557)*y(k,136) + mat(k,1929) = .1279005_r8*rxt(k,540)*y(k,193) + .0097005_r8*rxt(k,545) & + *y(k,195) + .0003005_r8*rxt(k,548)*y(k,211) & + + .1056005_r8*rxt(k,552)*y(k,212) + .0245005_r8*rxt(k,556) & + *y(k,218) + .0154005_r8*rxt(k,562)*y(k,236) & + + .0063005_r8*rxt(k,565)*y(k,239) + mat(k,2068) = .2202005_r8*rxt(k,541)*y(k,6) + .0508005_r8*rxt(k,557)*y(k,110) + mat(k,45) = .5931005_r8*rxt(k,559)*y(k,228) + mat(k,51) = .2202005_r8*rxt(k,539)*y(k,90) + .1279005_r8*rxt(k,540)*y(k,124) + mat(k,57) = .0023005_r8*rxt(k,544)*y(k,90) + .0097005_r8*rxt(k,545)*y(k,124) + mat(k,63) = .0031005_r8*rxt(k,547)*y(k,90) + .0003005_r8*rxt(k,548)*y(k,124) + mat(k,69) = .2381005_r8*rxt(k,551)*y(k,90) + .1056005_r8*rxt(k,552)*y(k,124) + mat(k,77) = .0508005_r8*rxt(k,555)*y(k,90) + .0245005_r8*rxt(k,556)*y(k,124) + mat(k,1647) = .5931005_r8*rxt(k,559)*y(k,175) + mat(k,83) = .1364005_r8*rxt(k,561)*y(k,90) + .0154005_r8*rxt(k,562)*y(k,124) + mat(k,89) = .1677005_r8*rxt(k,564)*y(k,90) + .0063005_r8*rxt(k,565)*y(k,124) + mat(k,993) = .2067005_r8*rxt(k,541)*y(k,136) + mat(k,2241) = .2067005_r8*rxt(k,539)*y(k,193) + .0008005_r8*rxt(k,544) & + *y(k,195) + .0035005_r8*rxt(k,547)*y(k,211) & + + .1308005_r8*rxt(k,551)*y(k,212) + .1149005_r8*rxt(k,555) & + *y(k,218) + .0101005_r8*rxt(k,561)*y(k,236) & + + .0174005_r8*rxt(k,564)*y(k,239) + mat(k,965) = .1149005_r8*rxt(k,557)*y(k,136) + mat(k,1930) = .1792005_r8*rxt(k,540)*y(k,193) + .0034005_r8*rxt(k,545) & + *y(k,195) + .0003005_r8*rxt(k,548)*y(k,211) & + + .1026005_r8*rxt(k,552)*y(k,212) + .0082005_r8*rxt(k,556) & + *y(k,218) + .0452005_r8*rxt(k,562)*y(k,236) & + + .0237005_r8*rxt(k,565)*y(k,239) + mat(k,2069) = .2067005_r8*rxt(k,541)*y(k,6) + .1149005_r8*rxt(k,557)*y(k,110) + mat(k,46) = .1534005_r8*rxt(k,559)*y(k,228) + mat(k,52) = .2067005_r8*rxt(k,539)*y(k,90) + .1792005_r8*rxt(k,540)*y(k,124) + mat(k,58) = .0008005_r8*rxt(k,544)*y(k,90) + .0034005_r8*rxt(k,545)*y(k,124) + mat(k,64) = .0035005_r8*rxt(k,547)*y(k,90) + .0003005_r8*rxt(k,548)*y(k,124) + mat(k,70) = .1308005_r8*rxt(k,551)*y(k,90) + .1026005_r8*rxt(k,552)*y(k,124) + mat(k,78) = .1149005_r8*rxt(k,555)*y(k,90) + .0082005_r8*rxt(k,556)*y(k,124) + mat(k,1648) = .1534005_r8*rxt(k,559)*y(k,175) + mat(k,84) = .0101005_r8*rxt(k,561)*y(k,90) + .0452005_r8*rxt(k,562)*y(k,124) + mat(k,90) = .0174005_r8*rxt(k,564)*y(k,90) + .0237005_r8*rxt(k,565)*y(k,124) + mat(k,994) = .0653005_r8*rxt(k,541)*y(k,136) + mat(k,2242) = .0653005_r8*rxt(k,539)*y(k,193) + .0843005_r8*rxt(k,544) & + *y(k,195) + .0003005_r8*rxt(k,547)*y(k,211) & + + .0348005_r8*rxt(k,551)*y(k,212) + .0348005_r8*rxt(k,555) & + *y(k,218) + .0763005_r8*rxt(k,561)*y(k,236) + .086_r8*rxt(k,564) & *y(k,239) - mat(k,1011) = .0348005_r8*rxt(k,553)*y(k,136) - mat(k,1834) = .0676005_r8*rxt(k,536)*y(k,193) + .1579005_r8*rxt(k,541) & - *y(k,195) + .0073005_r8*rxt(k,544)*y(k,211) & - + .0521005_r8*rxt(k,548)*y(k,212) + .0772005_r8*rxt(k,552) & - *y(k,218) + .0966005_r8*rxt(k,558)*y(k,236) & - + .0025005_r8*rxt(k,561)*y(k,239) - mat(k,2176) = .0653005_r8*rxt(k,537)*y(k,6) + .0348005_r8*rxt(k,553)*y(k,110) - mat(k,47) = .0459005_r8*rxt(k,555)*y(k,228) - mat(k,53) = .0653005_r8*rxt(k,535)*y(k,90) + .0676005_r8*rxt(k,536)*y(k,124) - mat(k,59) = .0843005_r8*rxt(k,540)*y(k,90) + .1579005_r8*rxt(k,541)*y(k,124) - mat(k,65) = .0003005_r8*rxt(k,543)*y(k,90) + .0073005_r8*rxt(k,544)*y(k,124) - mat(k,71) = .0348005_r8*rxt(k,547)*y(k,90) + .0521005_r8*rxt(k,548)*y(k,124) - mat(k,79) = .0348005_r8*rxt(k,551)*y(k,90) + .0772005_r8*rxt(k,552)*y(k,124) - mat(k,1669) = .0459005_r8*rxt(k,555)*y(k,175) - mat(k,85) = .0763005_r8*rxt(k,557)*y(k,90) + .0966005_r8*rxt(k,558)*y(k,124) - mat(k,91) = .086_r8*rxt(k,560)*y(k,90) + .0025005_r8*rxt(k,561)*y(k,124) - mat(k,968) = .1749305_r8*rxt(k,534)*y(k,126) + .1284005_r8*rxt(k,537) & + mat(k,966) = .0348005_r8*rxt(k,557)*y(k,136) + mat(k,1931) = .0676005_r8*rxt(k,540)*y(k,193) + .1579005_r8*rxt(k,545) & + *y(k,195) + .0073005_r8*rxt(k,548)*y(k,211) & + + .0521005_r8*rxt(k,552)*y(k,212) + .0772005_r8*rxt(k,556) & + *y(k,218) + .0966005_r8*rxt(k,562)*y(k,236) & + + .0025005_r8*rxt(k,565)*y(k,239) + mat(k,2070) = .0653005_r8*rxt(k,541)*y(k,6) + .0348005_r8*rxt(k,557)*y(k,110) + mat(k,47) = .0459005_r8*rxt(k,559)*y(k,228) + mat(k,53) = .0653005_r8*rxt(k,539)*y(k,90) + .0676005_r8*rxt(k,540)*y(k,124) + mat(k,59) = .0843005_r8*rxt(k,544)*y(k,90) + .1579005_r8*rxt(k,545)*y(k,124) + mat(k,65) = .0003005_r8*rxt(k,547)*y(k,90) + .0073005_r8*rxt(k,548)*y(k,124) + mat(k,71) = .0348005_r8*rxt(k,551)*y(k,90) + .0521005_r8*rxt(k,552)*y(k,124) + mat(k,79) = .0348005_r8*rxt(k,555)*y(k,90) + .0772005_r8*rxt(k,556)*y(k,124) + mat(k,1649) = .0459005_r8*rxt(k,559)*y(k,175) + mat(k,85) = .0763005_r8*rxt(k,561)*y(k,90) + .0966005_r8*rxt(k,562)*y(k,124) + mat(k,91) = .086_r8*rxt(k,564)*y(k,90) + .0025005_r8*rxt(k,565)*y(k,124) + mat(k,995) = .1749305_r8*rxt(k,538)*y(k,126) + .1284005_r8*rxt(k,541) & *y(k,136) - mat(k,2266) = .1284005_r8*rxt(k,535)*y(k,193) + .0443005_r8*rxt(k,540) & - *y(k,195) + .0271005_r8*rxt(k,543)*y(k,211) & - + .0076005_r8*rxt(k,547)*y(k,212) + .0554005_r8*rxt(k,551) & - *y(k,218) + .2157005_r8*rxt(k,557)*y(k,236) & - + .0512005_r8*rxt(k,560)*y(k,239) - mat(k,873) = .0590245_r8*rxt(k,542)*y(k,126) + .0033005_r8*rxt(k,545) & + mat(k,2243) = .1284005_r8*rxt(k,539)*y(k,193) + .0443005_r8*rxt(k,544) & + *y(k,195) + .0271005_r8*rxt(k,547)*y(k,211) & + + .0076005_r8*rxt(k,551)*y(k,212) + .0554005_r8*rxt(k,555) & + *y(k,218) + .2157005_r8*rxt(k,561)*y(k,236) & + + .0512005_r8*rxt(k,564)*y(k,239) + mat(k,872) = .0590245_r8*rxt(k,546)*y(k,126) + .0033005_r8*rxt(k,549) & *y(k,136) - mat(k,1012) = .1749305_r8*rxt(k,550)*y(k,126) + .0554005_r8*rxt(k,553) & + mat(k,967) = .1749305_r8*rxt(k,554)*y(k,126) + .0554005_r8*rxt(k,557) & *y(k,136) - mat(k,1835) = .079_r8*rxt(k,536)*y(k,193) + .0059005_r8*rxt(k,541)*y(k,195) & - + .0057005_r8*rxt(k,544)*y(k,211) + .0143005_r8*rxt(k,548) & - *y(k,212) + .0332005_r8*rxt(k,552)*y(k,218) & - + .0073005_r8*rxt(k,558)*y(k,236) + .011_r8*rxt(k,561)*y(k,239) - mat(k,1607) = .1749305_r8*rxt(k,534)*y(k,6) + .0590245_r8*rxt(k,542)*y(k,99) & - + .1749305_r8*rxt(k,550)*y(k,110) - mat(k,2177) = .1284005_r8*rxt(k,537)*y(k,6) + .0033005_r8*rxt(k,545)*y(k,99) & - + .0554005_r8*rxt(k,553)*y(k,110) - mat(k,48) = .0085005_r8*rxt(k,555)*y(k,228) - mat(k,54) = .1284005_r8*rxt(k,535)*y(k,90) + .079_r8*rxt(k,536)*y(k,124) - mat(k,60) = .0443005_r8*rxt(k,540)*y(k,90) + .0059005_r8*rxt(k,541)*y(k,124) - mat(k,66) = .0271005_r8*rxt(k,543)*y(k,90) + .0057005_r8*rxt(k,544)*y(k,124) - mat(k,72) = .0076005_r8*rxt(k,547)*y(k,90) + .0143005_r8*rxt(k,548)*y(k,124) - mat(k,80) = .0554005_r8*rxt(k,551)*y(k,90) + .0332005_r8*rxt(k,552)*y(k,124) - mat(k,1670) = .0085005_r8*rxt(k,555)*y(k,175) - mat(k,86) = .2157005_r8*rxt(k,557)*y(k,90) + .0073005_r8*rxt(k,558)*y(k,124) - mat(k,92) = .0512005_r8*rxt(k,560)*y(k,90) + .011_r8*rxt(k,561)*y(k,124) + mat(k,1932) = .079_r8*rxt(k,540)*y(k,193) + .0059005_r8*rxt(k,545)*y(k,195) & + + .0057005_r8*rxt(k,548)*y(k,211) + .0143005_r8*rxt(k,552) & + *y(k,212) + .0332005_r8*rxt(k,556)*y(k,218) & + + .0073005_r8*rxt(k,562)*y(k,236) + .011_r8*rxt(k,565)*y(k,239) + mat(k,2180) = .1749305_r8*rxt(k,538)*y(k,6) + .0590245_r8*rxt(k,546)*y(k,99) & + + .1749305_r8*rxt(k,554)*y(k,110) + mat(k,2071) = .1284005_r8*rxt(k,541)*y(k,6) + .0033005_r8*rxt(k,549)*y(k,99) & + + .0554005_r8*rxt(k,557)*y(k,110) + mat(k,48) = .0085005_r8*rxt(k,559)*y(k,228) + mat(k,54) = .1284005_r8*rxt(k,539)*y(k,90) + .079_r8*rxt(k,540)*y(k,124) + mat(k,60) = .0443005_r8*rxt(k,544)*y(k,90) + .0059005_r8*rxt(k,545)*y(k,124) + mat(k,66) = .0271005_r8*rxt(k,547)*y(k,90) + .0057005_r8*rxt(k,548)*y(k,124) + mat(k,72) = .0076005_r8*rxt(k,551)*y(k,90) + .0143005_r8*rxt(k,552)*y(k,124) + mat(k,80) = .0554005_r8*rxt(k,555)*y(k,90) + .0332005_r8*rxt(k,556)*y(k,124) + mat(k,1650) = .0085005_r8*rxt(k,559)*y(k,175) + mat(k,86) = .2157005_r8*rxt(k,561)*y(k,90) + .0073005_r8*rxt(k,562)*y(k,124) + mat(k,92) = .0512005_r8*rxt(k,564)*y(k,90) + .011_r8*rxt(k,565)*y(k,124) end do end subroutine nlnmat07 subroutine nlnmat08( avec_len, mat, y, rxt ) @@ -1816,256 +1821,256 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,969) = .5901905_r8*rxt(k,534)*y(k,126) + .114_r8*rxt(k,537)*y(k,136) - mat(k,2267) = .114_r8*rxt(k,535)*y(k,193) + .1621005_r8*rxt(k,540)*y(k,195) & - + .0474005_r8*rxt(k,543)*y(k,211) + .0113005_r8*rxt(k,547) & - *y(k,212) + .1278005_r8*rxt(k,551)*y(k,218) & - + .0738005_r8*rxt(k,557)*y(k,236) + .1598005_r8*rxt(k,560) & + mat(k,996) = .5901905_r8*rxt(k,538)*y(k,126) + .114_r8*rxt(k,541)*y(k,136) + mat(k,2244) = .114_r8*rxt(k,539)*y(k,193) + .1621005_r8*rxt(k,544)*y(k,195) & + + .0474005_r8*rxt(k,547)*y(k,211) + .0113005_r8*rxt(k,551) & + *y(k,212) + .1278005_r8*rxt(k,555)*y(k,218) & + + .0738005_r8*rxt(k,561)*y(k,236) + .1598005_r8*rxt(k,564) & *y(k,239) - mat(k,874) = .0250245_r8*rxt(k,542)*y(k,126) - mat(k,1013) = .5901905_r8*rxt(k,550)*y(k,126) + .1278005_r8*rxt(k,553) & + mat(k,873) = .0250245_r8*rxt(k,546)*y(k,126) + mat(k,968) = .5901905_r8*rxt(k,554)*y(k,126) + .1278005_r8*rxt(k,557) & *y(k,136) - mat(k,1836) = .1254005_r8*rxt(k,536)*y(k,193) + .0536005_r8*rxt(k,541) & - *y(k,195) + .0623005_r8*rxt(k,544)*y(k,211) & - + .0166005_r8*rxt(k,548)*y(k,212) + .130_r8*rxt(k,552)*y(k,218) & - + .238_r8*rxt(k,558)*y(k,236) + .1185005_r8*rxt(k,561)*y(k,239) - mat(k,1608) = .5901905_r8*rxt(k,534)*y(k,6) + .0250245_r8*rxt(k,542)*y(k,99) & - + .5901905_r8*rxt(k,550)*y(k,110) - mat(k,2178) = .114_r8*rxt(k,537)*y(k,6) + .1278005_r8*rxt(k,553)*y(k,110) - mat(k,49) = .0128005_r8*rxt(k,555)*y(k,228) - mat(k,55) = .114_r8*rxt(k,535)*y(k,90) + .1254005_r8*rxt(k,536)*y(k,124) - mat(k,61) = .1621005_r8*rxt(k,540)*y(k,90) + .0536005_r8*rxt(k,541)*y(k,124) - mat(k,67) = .0474005_r8*rxt(k,543)*y(k,90) + .0623005_r8*rxt(k,544)*y(k,124) - mat(k,73) = .0113005_r8*rxt(k,547)*y(k,90) + .0166005_r8*rxt(k,548)*y(k,124) - mat(k,81) = .1278005_r8*rxt(k,551)*y(k,90) + .130_r8*rxt(k,552)*y(k,124) - mat(k,1671) = .0128005_r8*rxt(k,555)*y(k,175) - mat(k,87) = .0738005_r8*rxt(k,557)*y(k,90) + .238_r8*rxt(k,558)*y(k,124) - mat(k,93) = .1598005_r8*rxt(k,560)*y(k,90) + .1185005_r8*rxt(k,561)*y(k,124) - mat(k,50) = -(rxt(k,555)*y(k,228)) - mat(k,1672) = -rxt(k,555)*y(k,175) - mat(k,189) = .100_r8*rxt(k,469)*y(k,228) - mat(k,207) = .230_r8*rxt(k,471)*y(k,228) - mat(k,1691) = .100_r8*rxt(k,469)*y(k,183) + .230_r8*rxt(k,471)*y(k,185) - mat(k,652) = -(rxt(k,493)*y(k,228)) - mat(k,1754) = -rxt(k,493)*y(k,177) - mat(k,2305) = rxt(k,491)*y(k,233) - mat(k,1172) = rxt(k,491)*y(k,90) - mat(k,627) = -(rxt(k,494)*y(k,228)) - mat(k,1751) = -rxt(k,494)*y(k,178) - mat(k,1863) = .200_r8*rxt(k,487)*y(k,223) + .200_r8*rxt(k,497)*y(k,234) - mat(k,2375) = .500_r8*rxt(k,485)*y(k,223) - mat(k,1103) = .200_r8*rxt(k,487)*y(k,124) + .500_r8*rxt(k,485)*y(k,201) - mat(k,1060) = .200_r8*rxt(k,497)*y(k,124) - mat(k,486) = -(rxt(k,498)*y(k,228)) - mat(k,1735) = -rxt(k,498)*y(k,179) - mat(k,2297) = rxt(k,496)*y(k,234) - mat(k,1059) = rxt(k,496)*y(k,90) - mat(k,1072) = -(rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228)) - mat(k,1623) = -rxt(k,499)*y(k,180) - mat(k,1786) = -rxt(k,500)*y(k,180) - mat(k,978) = .330_r8*rxt(k,480)*y(k,136) - mat(k,1022) = .330_r8*rxt(k,483)*y(k,136) - mat(k,1885) = .800_r8*rxt(k,487)*y(k,223) + .800_r8*rxt(k,497)*y(k,234) - mat(k,1623) = mat(k,1623) + rxt(k,488)*y(k,223) - mat(k,2197) = .330_r8*rxt(k,480)*y(k,6) + .330_r8*rxt(k,483)*y(k,110) - mat(k,628) = rxt(k,494)*y(k,228) - mat(k,2383) = .500_r8*rxt(k,485)*y(k,223) + rxt(k,495)*y(k,234) - mat(k,1105) = .800_r8*rxt(k,487)*y(k,124) + rxt(k,488)*y(k,126) & - + .500_r8*rxt(k,485)*y(k,201) - mat(k,1786) = mat(k,1786) + rxt(k,494)*y(k,178) - mat(k,1063) = .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201) - mat(k,1119) = -(rxt(k,501)*y(k,228)) - mat(k,1790) = -rxt(k,501)*y(k,181) - mat(k,981) = .300_r8*rxt(k,480)*y(k,136) - mat(k,1025) = .300_r8*rxt(k,483)*y(k,136) - mat(k,1889) = .900_r8*rxt(k,492)*y(k,233) - mat(k,2200) = .300_r8*rxt(k,480)*y(k,6) + .300_r8*rxt(k,483)*y(k,110) - mat(k,2387) = rxt(k,490)*y(k,233) - mat(k,1175) = .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201) - mat(k,665) = -(rxt(k,468)*y(k,228)) - mat(k,1755) = -rxt(k,468)*y(k,182) - mat(k,2306) = rxt(k,466)*y(k,235) - mat(k,749) = rxt(k,466)*y(k,90) - mat(k,187) = -(rxt(k,469)*y(k,228)) - mat(k,1689) = -rxt(k,469)*y(k,183) - mat(k,203) = -(rxt(k,435)*y(k,228)) - mat(k,1692) = -rxt(k,435)*y(k,184) - mat(k,2276) = rxt(k,432)*y(k,237) - mat(k,1227) = rxt(k,432)*y(k,90) - mat(k,208) = -(rxt(k,471)*y(k,228)) - mat(k,1693) = -rxt(k,471)*y(k,185) - mat(k,729) = -(rxt(k,474)*y(k,228)) - mat(k,1761) = -rxt(k,474)*y(k,186) - mat(k,2311) = rxt(k,472)*y(k,238) - mat(k,765) = rxt(k,472)*y(k,90) - mat(k,216) = -(rxt(k,477)*y(k,228)) - mat(k,1694) = -rxt(k,477)*y(k,187) - mat(k,209) = .150_r8*rxt(k,471)*y(k,228) - mat(k,1694) = mat(k,1694) + .150_r8*rxt(k,471)*y(k,185) - mat(k,421) = -(rxt(k,478)*y(k,228)) - mat(k,1726) = -rxt(k,478)*y(k,188) - mat(k,2288) = rxt(k,475)*y(k,240) - mat(k,509) = rxt(k,475)*y(k,90) - mat(k,523) = -(rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124) + rxt(k,465)*y(k,125)) - mat(k,2300) = -rxt(k,436)*y(k,191) - mat(k,1858) = -rxt(k,437)*y(k,191) - mat(k,1932) = -rxt(k,465)*y(k,191) - mat(k,236) = rxt(k,442)*y(k,228) - mat(k,1739) = rxt(k,442)*y(k,22) - mat(k,1042) = -(rxt(k,397)*y(k,90) + (rxt(k,398) + rxt(k,399)) * y(k,124)) - mat(k,2326) = -rxt(k,397)*y(k,192) - mat(k,1882) = -(rxt(k,398) + rxt(k,399)) * y(k,192) - mat(k,690) = rxt(k,400)*y(k,228) - mat(k,227) = rxt(k,401)*y(k,228) - mat(k,1783) = rxt(k,400)*y(k,2) + rxt(k,401)*y(k,15) - mat(k,56) = -(rxt(k,535)*y(k,90) + rxt(k,536)*y(k,124)) - mat(k,2268) = -rxt(k,535)*y(k,193) - mat(k,1837) = -rxt(k,536)*y(k,193) - mat(k,970) = rxt(k,538)*y(k,228) - mat(k,1673) = rxt(k,538)*y(k,6) - mat(k,495) = -(rxt(k,439)*y(k,90) + rxt(k,440)*y(k,124)) - mat(k,2298) = -rxt(k,439)*y(k,194) - mat(k,1855) = -rxt(k,440)*y(k,194) - mat(k,163) = .350_r8*rxt(k,438)*y(k,228) - mat(k,417) = rxt(k,441)*y(k,228) - mat(k,1736) = .350_r8*rxt(k,438)*y(k,7) + rxt(k,441)*y(k,8) - mat(k,62) = -(rxt(k,540)*y(k,90) + rxt(k,541)*y(k,124)) - mat(k,2269) = -rxt(k,540)*y(k,195) - mat(k,1838) = -rxt(k,541)*y(k,195) - mat(k,159) = rxt(k,539)*y(k,228) - mat(k,1674) = rxt(k,539)*y(k,7) - mat(k,435) = -(rxt(k,443)*y(k,90) + rxt(k,445)*y(k,124)) - mat(k,2289) = -rxt(k,443)*y(k,196) - mat(k,1849) = -rxt(k,445)*y(k,196) - mat(k,346) = rxt(k,444)*y(k,228) - mat(k,190) = .070_r8*rxt(k,469)*y(k,228) - mat(k,210) = .060_r8*rxt(k,471)*y(k,228) - mat(k,1728) = rxt(k,444)*y(k,23) + .070_r8*rxt(k,469)*y(k,183) & - + .060_r8*rxt(k,471)*y(k,185) - mat(k,901) = -(4._r8*rxt(k,319)*y(k,197) + rxt(k,320)*y(k,201) + rxt(k,321) & - *y(k,90) + rxt(k,322)*y(k,124)) - mat(k,2379) = -rxt(k,320)*y(k,197) - mat(k,2322) = -rxt(k,321)*y(k,197) - mat(k,1877) = -rxt(k,322)*y(k,197) - mat(k,351) = .500_r8*rxt(k,324)*y(k,228) - mat(k,299) = rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228) - mat(k,2140) = rxt(k,325)*y(k,28) - mat(k,1773) = .500_r8*rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28) - mat(k,935) = -(rxt(k,348)*y(k,201) + rxt(k,349)*y(k,90) + rxt(k,350)*y(k,124)) - mat(k,2380) = -rxt(k,348)*y(k,198) - mat(k,2325) = -rxt(k,349)*y(k,198) - mat(k,1880) = -rxt(k,350)*y(k,198) - mat(k,410) = rxt(k,351)*y(k,228) - mat(k,305) = rxt(k,355)*y(k,56) + rxt(k,352)*y(k,228) - mat(k,2142) = rxt(k,355)*y(k,31) - mat(k,1777) = rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31) - mat(k,635) = -(rxt(k,446)*y(k,90) + rxt(k,447)*y(k,124)) - mat(k,2304) = -rxt(k,446)*y(k,199) - mat(k,1864) = -rxt(k,447)*y(k,199) - mat(k,271) = rxt(k,448)*y(k,228) - mat(k,2304) = mat(k,2304) + .400_r8*rxt(k,436)*y(k,191) - mat(k,1864) = mat(k,1864) + rxt(k,437)*y(k,191) - mat(k,2185) = rxt(k,463)*y(k,143) - mat(k,469) = rxt(k,463)*y(k,136) - mat(k,524) = .400_r8*rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124) - mat(k,1752) = rxt(k,448)*y(k,32) - mat(k,1428) = -(4._r8*rxt(k,330)*y(k,200) + rxt(k,331)*y(k,201) + rxt(k,332) & - *y(k,90) + rxt(k,333)*y(k,124) + rxt(k,344)*y(k,125) + rxt(k,372) & - *y(k,213) + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) & - *y(k,210) + rxt(k,430)*y(k,237)) - mat(k,2403) = -rxt(k,331)*y(k,200) - mat(k,2348) = -rxt(k,332)*y(k,200) - mat(k,1906) = -rxt(k,333)*y(k,200) - mat(k,1949) = -rxt(k,344)*y(k,200) - mat(k,1358) = -rxt(k,372)*y(k,200) - mat(k,1303) = -rxt(k,405)*y(k,200) - mat(k,1336) = -rxt(k,410)*y(k,200) - mat(k,1257) = -rxt(k,419)*y(k,200) - mat(k,1235) = -rxt(k,430)*y(k,200) - mat(k,985) = .060_r8*rxt(k,480)*y(k,136) - mat(k,1153) = rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228) - mat(k,1282) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228) - mat(k,621) = .500_r8*rxt(k,335)*y(k,228) - mat(k,2348) = mat(k,2348) + .450_r8*rxt(k,383)*y(k,215) + .200_r8*rxt(k,387) & - *y(k,217) + .150_r8*rxt(k,362)*y(k,232) - mat(k,885) = .080_r8*rxt(k,425)*y(k,136) - mat(k,1273) = .100_r8*rxt(k,378)*y(k,136) - mat(k,1029) = .060_r8*rxt(k,483)*y(k,136) - mat(k,1378) = .280_r8*rxt(k,392)*y(k,136) - mat(k,1906) = mat(k,1906) + .530_r8*rxt(k,376)*y(k,213) + rxt(k,385)*y(k,215) & - + rxt(k,388)*y(k,217) + rxt(k,363)*y(k,232) - mat(k,1645) = rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) + .530_r8*rxt(k,375) & - *y(k,213) + rxt(k,386)*y(k,215) - mat(k,2216) = .060_r8*rxt(k,480)*y(k,6) + .080_r8*rxt(k,425)*y(k,99) & - + .100_r8*rxt(k,378)*y(k,105) + .060_r8*rxt(k,483)*y(k,110) & - + .280_r8*rxt(k,392)*y(k,111) - mat(k,1122) = .650_r8*rxt(k,501)*y(k,228) - mat(k,1428) = mat(k,1428) + .530_r8*rxt(k,372)*y(k,213) - mat(k,2403) = mat(k,2403) + .260_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) & - + .300_r8*rxt(k,361)*y(k,232) - mat(k,1358) = mat(k,1358) + .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375) & - *y(k,126) + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373) & + mat(k,1933) = .1254005_r8*rxt(k,540)*y(k,193) + .0536005_r8*rxt(k,545) & + *y(k,195) + .0623005_r8*rxt(k,548)*y(k,211) & + + .0166005_r8*rxt(k,552)*y(k,212) + .130_r8*rxt(k,556)*y(k,218) & + + .238_r8*rxt(k,562)*y(k,236) + .1185005_r8*rxt(k,565)*y(k,239) + mat(k,2181) = .5901905_r8*rxt(k,538)*y(k,6) + .0250245_r8*rxt(k,546)*y(k,99) & + + .5901905_r8*rxt(k,554)*y(k,110) + mat(k,2072) = .114_r8*rxt(k,541)*y(k,6) + .1278005_r8*rxt(k,557)*y(k,110) + mat(k,49) = .0128005_r8*rxt(k,559)*y(k,228) + mat(k,55) = .114_r8*rxt(k,539)*y(k,90) + .1254005_r8*rxt(k,540)*y(k,124) + mat(k,61) = .1621005_r8*rxt(k,544)*y(k,90) + .0536005_r8*rxt(k,545)*y(k,124) + mat(k,67) = .0474005_r8*rxt(k,547)*y(k,90) + .0623005_r8*rxt(k,548)*y(k,124) + mat(k,73) = .0113005_r8*rxt(k,551)*y(k,90) + .0166005_r8*rxt(k,552)*y(k,124) + mat(k,81) = .1278005_r8*rxt(k,555)*y(k,90) + .130_r8*rxt(k,556)*y(k,124) + mat(k,1651) = .0128005_r8*rxt(k,559)*y(k,175) + mat(k,87) = .0738005_r8*rxt(k,561)*y(k,90) + .238_r8*rxt(k,562)*y(k,124) + mat(k,93) = .1598005_r8*rxt(k,564)*y(k,90) + .1185005_r8*rxt(k,565)*y(k,124) + mat(k,50) = -(rxt(k,559)*y(k,228)) + mat(k,1652) = -rxt(k,559)*y(k,175) + mat(k,189) = .100_r8*rxt(k,473)*y(k,228) + mat(k,207) = .230_r8*rxt(k,475)*y(k,228) + mat(k,1671) = .100_r8*rxt(k,473)*y(k,183) + .230_r8*rxt(k,475)*y(k,185) + mat(k,662) = -(rxt(k,497)*y(k,228)) + mat(k,1734) = -rxt(k,497)*y(k,177) + mat(k,2282) = rxt(k,495)*y(k,233) + mat(k,1171) = rxt(k,495)*y(k,90) + mat(k,631) = -(rxt(k,498)*y(k,228)) + mat(k,1731) = -rxt(k,498)*y(k,178) + mat(k,1960) = .200_r8*rxt(k,491)*y(k,223) + .200_r8*rxt(k,501)*y(k,234) + mat(k,2375) = .500_r8*rxt(k,489)*y(k,223) + mat(k,1102) = .200_r8*rxt(k,491)*y(k,124) + .500_r8*rxt(k,489)*y(k,201) + mat(k,1059) = .200_r8*rxt(k,501)*y(k,124) + mat(k,486) = -(rxt(k,502)*y(k,228)) + mat(k,1715) = -rxt(k,502)*y(k,179) + mat(k,2274) = rxt(k,500)*y(k,234) + mat(k,1058) = rxt(k,500)*y(k,90) + mat(k,1071) = -(rxt(k,503)*y(k,126) + rxt(k,504)*y(k,228)) + mat(k,2196) = -rxt(k,503)*y(k,180) + mat(k,1766) = -rxt(k,504)*y(k,180) + mat(k,1005) = .330_r8*rxt(k,484)*y(k,136) + mat(k,977) = .330_r8*rxt(k,487)*y(k,136) + mat(k,1983) = .800_r8*rxt(k,491)*y(k,223) + .800_r8*rxt(k,501)*y(k,234) + mat(k,2196) = mat(k,2196) + rxt(k,492)*y(k,223) + mat(k,2091) = .330_r8*rxt(k,484)*y(k,6) + .330_r8*rxt(k,487)*y(k,110) + mat(k,632) = rxt(k,498)*y(k,228) + mat(k,2383) = .500_r8*rxt(k,489)*y(k,223) + rxt(k,499)*y(k,234) + mat(k,1104) = .800_r8*rxt(k,491)*y(k,124) + rxt(k,492)*y(k,126) & + + .500_r8*rxt(k,489)*y(k,201) + mat(k,1766) = mat(k,1766) + rxt(k,498)*y(k,178) + mat(k,1062) = .800_r8*rxt(k,501)*y(k,124) + rxt(k,499)*y(k,201) + mat(k,1118) = -(rxt(k,505)*y(k,228)) + mat(k,1770) = -rxt(k,505)*y(k,181) + mat(k,1008) = .300_r8*rxt(k,484)*y(k,136) + mat(k,980) = .300_r8*rxt(k,487)*y(k,136) + mat(k,1987) = .900_r8*rxt(k,496)*y(k,233) + mat(k,2094) = .300_r8*rxt(k,484)*y(k,6) + .300_r8*rxt(k,487)*y(k,110) + mat(k,2387) = rxt(k,494)*y(k,233) + mat(k,1174) = .900_r8*rxt(k,496)*y(k,124) + rxt(k,494)*y(k,201) + mat(k,675) = -(rxt(k,472)*y(k,228)) + mat(k,1735) = -rxt(k,472)*y(k,182) + mat(k,2283) = rxt(k,470)*y(k,235) + mat(k,748) = rxt(k,470)*y(k,90) + mat(k,187) = -(rxt(k,473)*y(k,228)) + mat(k,1669) = -rxt(k,473)*y(k,183) + mat(k,203) = -(rxt(k,439)*y(k,228)) + mat(k,1672) = -rxt(k,439)*y(k,184) + mat(k,2253) = rxt(k,436)*y(k,237) + mat(k,1226) = rxt(k,436)*y(k,90) + mat(k,208) = -(rxt(k,475)*y(k,228)) + mat(k,1673) = -rxt(k,475)*y(k,185) + mat(k,721) = -(rxt(k,478)*y(k,228)) + mat(k,1740) = -rxt(k,478)*y(k,186) + mat(k,2288) = rxt(k,476)*y(k,238) + mat(k,764) = rxt(k,476)*y(k,90) + mat(k,216) = -(rxt(k,481)*y(k,228)) + mat(k,1674) = -rxt(k,481)*y(k,187) + mat(k,209) = .150_r8*rxt(k,475)*y(k,228) + mat(k,1674) = mat(k,1674) + .150_r8*rxt(k,475)*y(k,185) + mat(k,421) = -(rxt(k,482)*y(k,228)) + mat(k,1706) = -rxt(k,482)*y(k,188) + mat(k,2265) = rxt(k,479)*y(k,240) + mat(k,509) = rxt(k,479)*y(k,90) + mat(k,523) = -(rxt(k,440)*y(k,90) + rxt(k,441)*y(k,124) + rxt(k,469)*y(k,125)) + mat(k,2277) = -rxt(k,440)*y(k,191) + mat(k,1955) = -rxt(k,441)*y(k,191) + mat(k,1863) = -rxt(k,469)*y(k,191) + mat(k,236) = rxt(k,446)*y(k,228) + mat(k,1719) = rxt(k,446)*y(k,22) + mat(k,1025) = -(rxt(k,401)*y(k,90) + (rxt(k,402) + rxt(k,403)) * y(k,124)) + mat(k,2303) = -rxt(k,401)*y(k,192) + mat(k,1979) = -(rxt(k,402) + rxt(k,403)) * y(k,192) + mat(k,689) = rxt(k,404)*y(k,228) + mat(k,227) = rxt(k,405)*y(k,228) + mat(k,1762) = rxt(k,404)*y(k,2) + rxt(k,405)*y(k,15) + mat(k,56) = -(rxt(k,539)*y(k,90) + rxt(k,540)*y(k,124)) + mat(k,2245) = -rxt(k,539)*y(k,193) + mat(k,1934) = -rxt(k,540)*y(k,193) + mat(k,997) = rxt(k,542)*y(k,228) + mat(k,1653) = rxt(k,542)*y(k,6) + mat(k,495) = -(rxt(k,443)*y(k,90) + rxt(k,444)*y(k,124)) + mat(k,2275) = -rxt(k,443)*y(k,194) + mat(k,1952) = -rxt(k,444)*y(k,194) + mat(k,163) = .350_r8*rxt(k,442)*y(k,228) + mat(k,417) = rxt(k,445)*y(k,228) + mat(k,1716) = .350_r8*rxt(k,442)*y(k,7) + rxt(k,445)*y(k,8) + mat(k,62) = -(rxt(k,544)*y(k,90) + rxt(k,545)*y(k,124)) + mat(k,2246) = -rxt(k,544)*y(k,195) + mat(k,1935) = -rxt(k,545)*y(k,195) + mat(k,159) = rxt(k,543)*y(k,228) + mat(k,1654) = rxt(k,543)*y(k,7) + mat(k,435) = -(rxt(k,447)*y(k,90) + rxt(k,449)*y(k,124)) + mat(k,2266) = -rxt(k,447)*y(k,196) + mat(k,1946) = -rxt(k,449)*y(k,196) + mat(k,346) = rxt(k,448)*y(k,228) + mat(k,190) = .070_r8*rxt(k,473)*y(k,228) + mat(k,210) = .060_r8*rxt(k,475)*y(k,228) + mat(k,1708) = rxt(k,448)*y(k,23) + .070_r8*rxt(k,473)*y(k,183) & + + .060_r8*rxt(k,475)*y(k,185) + mat(k,900) = -(4._r8*rxt(k,323)*y(k,197) + rxt(k,324)*y(k,201) + rxt(k,325) & + *y(k,90) + rxt(k,326)*y(k,124)) + mat(k,2379) = -rxt(k,324)*y(k,197) + mat(k,2299) = -rxt(k,325)*y(k,197) + mat(k,1975) = -rxt(k,326)*y(k,197) + mat(k,351) = .500_r8*rxt(k,328)*y(k,228) + mat(k,299) = rxt(k,329)*y(k,56) + rxt(k,330)*y(k,228) + mat(k,1824) = rxt(k,329)*y(k,28) + mat(k,1753) = .500_r8*rxt(k,328)*y(k,27) + rxt(k,330)*y(k,28) + mat(k,934) = -(rxt(k,352)*y(k,201) + rxt(k,353)*y(k,90) + rxt(k,354)*y(k,124)) + mat(k,2380) = -rxt(k,352)*y(k,198) + mat(k,2302) = -rxt(k,353)*y(k,198) + mat(k,1978) = -rxt(k,354)*y(k,198) + mat(k,410) = rxt(k,355)*y(k,228) + mat(k,305) = rxt(k,359)*y(k,56) + rxt(k,356)*y(k,228) + mat(k,1826) = rxt(k,359)*y(k,31) + mat(k,1757) = rxt(k,355)*y(k,30) + rxt(k,356)*y(k,31) + mat(k,639) = -(rxt(k,450)*y(k,90) + rxt(k,451)*y(k,124)) + mat(k,2281) = -rxt(k,450)*y(k,199) + mat(k,1961) = -rxt(k,451)*y(k,199) + mat(k,271) = rxt(k,452)*y(k,228) + mat(k,2281) = mat(k,2281) + .400_r8*rxt(k,440)*y(k,191) + mat(k,1961) = mat(k,1961) + rxt(k,441)*y(k,191) + mat(k,2079) = rxt(k,467)*y(k,143) + mat(k,469) = rxt(k,467)*y(k,136) + mat(k,524) = .400_r8*rxt(k,440)*y(k,90) + rxt(k,441)*y(k,124) + mat(k,1732) = rxt(k,452)*y(k,32) + mat(k,1427) = -(4._r8*rxt(k,334)*y(k,200) + rxt(k,335)*y(k,201) + rxt(k,336) & + *y(k,90) + rxt(k,337)*y(k,124) + rxt(k,348)*y(k,125) + rxt(k,376) & + *y(k,213) + rxt(k,409)*y(k,208) + rxt(k,414)*y(k,209) + rxt(k,423) & + *y(k,210) + rxt(k,434)*y(k,237)) + mat(k,2403) = -rxt(k,335)*y(k,200) + mat(k,2325) = -rxt(k,336)*y(k,200) + mat(k,2004) = -rxt(k,337)*y(k,200) + mat(k,1880) = -rxt(k,348)*y(k,200) + mat(k,1357) = -rxt(k,376)*y(k,200) + mat(k,1302) = -rxt(k,409)*y(k,200) + mat(k,1335) = -rxt(k,414)*y(k,200) + mat(k,1256) = -rxt(k,423)*y(k,200) + mat(k,1234) = -rxt(k,434)*y(k,200) + mat(k,1012) = .060_r8*rxt(k,484)*y(k,136) + mat(k,1152) = rxt(k,331)*y(k,126) + rxt(k,332)*y(k,228) + mat(k,1281) = rxt(k,357)*y(k,126) + rxt(k,358)*y(k,228) + mat(k,616) = .500_r8*rxt(k,339)*y(k,228) + mat(k,2325) = mat(k,2325) + .450_r8*rxt(k,387)*y(k,215) + .200_r8*rxt(k,391) & + *y(k,217) + .150_r8*rxt(k,366)*y(k,232) + mat(k,884) = .080_r8*rxt(k,429)*y(k,136) + mat(k,1272) = .100_r8*rxt(k,382)*y(k,136) + mat(k,984) = .060_r8*rxt(k,487)*y(k,136) + mat(k,1377) = .280_r8*rxt(k,396)*y(k,136) + mat(k,2004) = mat(k,2004) + .530_r8*rxt(k,380)*y(k,213) + rxt(k,389)*y(k,215) & + + rxt(k,392)*y(k,217) + rxt(k,367)*y(k,232) + mat(k,2218) = rxt(k,331)*y(k,45) + rxt(k,357)*y(k,49) + .530_r8*rxt(k,379) & + *y(k,213) + rxt(k,390)*y(k,215) + mat(k,2110) = .060_r8*rxt(k,484)*y(k,6) + .080_r8*rxt(k,429)*y(k,99) & + + .100_r8*rxt(k,382)*y(k,105) + .060_r8*rxt(k,487)*y(k,110) & + + .280_r8*rxt(k,396)*y(k,111) + mat(k,1121) = .650_r8*rxt(k,505)*y(k,228) + mat(k,1427) = mat(k,1427) + .530_r8*rxt(k,376)*y(k,213) + mat(k,2403) = mat(k,2403) + .260_r8*rxt(k,377)*y(k,213) + rxt(k,386)*y(k,215) & + + .300_r8*rxt(k,365)*y(k,232) + mat(k,1357) = mat(k,1357) + .530_r8*rxt(k,380)*y(k,124) + .530_r8*rxt(k,379) & + *y(k,126) + .530_r8*rxt(k,376)*y(k,200) + .260_r8*rxt(k,377) & *y(k,201) - mat(k,1398) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) & - *y(k,126) + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215) - mat(k,700) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124) - mat(k,1808) = rxt(k,328)*y(k,45) + rxt(k,354)*y(k,49) + .500_r8*rxt(k,335) & - *y(k,51) + .650_r8*rxt(k,501)*y(k,181) - mat(k,1219) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) & - + .300_r8*rxt(k,361)*y(k,201) - mat(k,2421) = -(rxt(k,221)*y(k,59) + (4._r8*rxt(k,298) + 4._r8*rxt(k,299) & - ) * y(k,201) + rxt(k,300)*y(k,90) + rxt(k,301)*y(k,124) & - + rxt(k,320)*y(k,197) + rxt(k,331)*y(k,200) + rxt(k,348) & - *y(k,198) + rxt(k,361)*y(k,232) + rxt(k,373)*y(k,213) + rxt(k,382) & - *y(k,215) + rxt(k,406)*y(k,208) + rxt(k,411)*y(k,209) + rxt(k,420) & - *y(k,210) + rxt(k,431)*y(k,237) + rxt(k,485)*y(k,223) + rxt(k,490) & - *y(k,233) + rxt(k,495)*y(k,234)) - mat(k,1605) = -rxt(k,221)*y(k,201) - mat(k,2369) = -rxt(k,300)*y(k,201) - mat(k,1925) = -rxt(k,301)*y(k,201) - mat(k,909) = -rxt(k,320)*y(k,201) - mat(k,1440) = -rxt(k,331)*y(k,201) - mat(k,944) = -rxt(k,348)*y(k,201) - mat(k,1225) = -rxt(k,361)*y(k,201) - mat(k,1367) = -rxt(k,373)*y(k,201) - mat(k,1408) = -rxt(k,382)*y(k,201) - mat(k,1313) = -rxt(k,406)*y(k,201) - mat(k,1346) = -rxt(k,411)*y(k,201) - mat(k,1266) = -rxt(k,420)*y(k,201) - mat(k,1243) = -rxt(k,431)*y(k,201) - mat(k,1117) = -rxt(k,485)*y(k,201) - mat(k,1188) = -rxt(k,490)*y(k,201) - mat(k,1071) = -rxt(k,495)*y(k,201) - mat(k,1149) = .280_r8*rxt(k,347)*y(k,136) - mat(k,708) = rxt(k,334)*y(k,228) - mat(k,458) = .700_r8*rxt(k,303)*y(k,228) - mat(k,2261) = rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,310)*y(k,224) & - + rxt(k,304)*y(k,228) - mat(k,2172) = rxt(k,215)*y(k,54) - mat(k,932) = rxt(k,271)*y(k,54) - mat(k,2369) = mat(k,2369) + .450_r8*rxt(k,332)*y(k,200) + .330_r8*rxt(k,450) & - *y(k,202) + .070_r8*rxt(k,456)*y(k,216) - mat(k,891) = .050_r8*rxt(k,425)*y(k,136) - mat(k,1925) = mat(k,1925) + rxt(k,333)*y(k,200) + .830_r8*rxt(k,451)*y(k,202) & - + .170_r8*rxt(k,457)*y(k,216) - mat(k,2236) = .280_r8*rxt(k,347)*y(k,29) + .050_r8*rxt(k,425)*y(k,99) - mat(k,1440) = mat(k,1440) + .450_r8*rxt(k,332)*y(k,90) + rxt(k,333)*y(k,124) & - + 4.000_r8*rxt(k,330)*y(k,200) + .900_r8*rxt(k,331)*y(k,201) & - + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) & - *y(k,210) + rxt(k,372)*y(k,213) + rxt(k,381)*y(k,215) & - + rxt(k,430)*y(k,237) - mat(k,2421) = mat(k,2421) + .900_r8*rxt(k,331)*y(k,200) - mat(k,785) = .330_r8*rxt(k,450)*y(k,90) + .830_r8*rxt(k,451)*y(k,124) - mat(k,1313) = mat(k,1313) + rxt(k,405)*y(k,200) - mat(k,1346) = mat(k,1346) + rxt(k,410)*y(k,200) - mat(k,1266) = mat(k,1266) + rxt(k,419)*y(k,200) - mat(k,1367) = mat(k,1367) + rxt(k,372)*y(k,200) - mat(k,1408) = mat(k,1408) + rxt(k,381)*y(k,200) - mat(k,918) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124) - mat(k,2039) = rxt(k,310)*y(k,54) - mat(k,1830) = rxt(k,334)*y(k,50) + .700_r8*rxt(k,303)*y(k,53) + rxt(k,304) & + mat(k,1397) = .450_r8*rxt(k,387)*y(k,90) + rxt(k,389)*y(k,124) + rxt(k,390) & + *y(k,126) + rxt(k,386)*y(k,201) + 4.000_r8*rxt(k,388)*y(k,215) + mat(k,699) = .200_r8*rxt(k,391)*y(k,90) + rxt(k,392)*y(k,124) + mat(k,1788) = rxt(k,332)*y(k,45) + rxt(k,358)*y(k,49) + .500_r8*rxt(k,339) & + *y(k,51) + .650_r8*rxt(k,505)*y(k,181) + mat(k,1218) = .150_r8*rxt(k,366)*y(k,90) + rxt(k,367)*y(k,124) & + + .300_r8*rxt(k,365)*y(k,201) + mat(k,2421) = -(rxt(k,225)*y(k,59) + (4._r8*rxt(k,302) + 4._r8*rxt(k,303) & + ) * y(k,201) + rxt(k,304)*y(k,90) + rxt(k,305)*y(k,124) & + + rxt(k,324)*y(k,197) + rxt(k,335)*y(k,200) + rxt(k,352) & + *y(k,198) + rxt(k,365)*y(k,232) + rxt(k,377)*y(k,213) + rxt(k,386) & + *y(k,215) + rxt(k,410)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,424) & + *y(k,210) + rxt(k,435)*y(k,237) + rxt(k,489)*y(k,223) + rxt(k,494) & + *y(k,233) + rxt(k,499)*y(k,234)) + mat(k,2157) = -rxt(k,225)*y(k,201) + mat(k,2346) = -rxt(k,304)*y(k,201) + mat(k,2023) = -rxt(k,305)*y(k,201) + mat(k,908) = -rxt(k,324)*y(k,201) + mat(k,1439) = -rxt(k,335)*y(k,201) + mat(k,943) = -rxt(k,352)*y(k,201) + mat(k,1224) = -rxt(k,365)*y(k,201) + mat(k,1366) = -rxt(k,377)*y(k,201) + mat(k,1407) = -rxt(k,386)*y(k,201) + mat(k,1312) = -rxt(k,410)*y(k,201) + mat(k,1345) = -rxt(k,415)*y(k,201) + mat(k,1265) = -rxt(k,424)*y(k,201) + mat(k,1242) = -rxt(k,435)*y(k,201) + mat(k,1116) = -rxt(k,489)*y(k,201) + mat(k,1187) = -rxt(k,494)*y(k,201) + mat(k,1070) = -rxt(k,499)*y(k,201) + mat(k,1148) = .280_r8*rxt(k,351)*y(k,136) + mat(k,707) = rxt(k,338)*y(k,228) + mat(k,458) = .700_r8*rxt(k,307)*y(k,228) + mat(k,1578) = rxt(k,219)*y(k,56) + rxt(k,275)*y(k,73) + rxt(k,314)*y(k,224) & + + rxt(k,308)*y(k,228) + mat(k,1856) = rxt(k,219)*y(k,54) + mat(k,931) = rxt(k,275)*y(k,54) + mat(k,2346) = mat(k,2346) + .490_r8*rxt(k,336)*y(k,200) + .330_r8*rxt(k,454) & + *y(k,202) + .070_r8*rxt(k,460)*y(k,216) + mat(k,890) = .050_r8*rxt(k,429)*y(k,136) + mat(k,2023) = mat(k,2023) + rxt(k,337)*y(k,200) + .830_r8*rxt(k,455)*y(k,202) & + + .170_r8*rxt(k,461)*y(k,216) + mat(k,2130) = .280_r8*rxt(k,351)*y(k,29) + .050_r8*rxt(k,429)*y(k,99) + mat(k,1439) = mat(k,1439) + .490_r8*rxt(k,336)*y(k,90) + rxt(k,337)*y(k,124) & + + 4.000_r8*rxt(k,334)*y(k,200) + .900_r8*rxt(k,335)*y(k,201) & + + rxt(k,409)*y(k,208) + rxt(k,414)*y(k,209) + rxt(k,423) & + *y(k,210) + rxt(k,376)*y(k,213) + rxt(k,385)*y(k,215) & + + rxt(k,434)*y(k,237) + mat(k,2421) = mat(k,2421) + .900_r8*rxt(k,335)*y(k,200) + mat(k,784) = .330_r8*rxt(k,454)*y(k,90) + .830_r8*rxt(k,455)*y(k,124) + mat(k,1312) = mat(k,1312) + rxt(k,409)*y(k,200) + mat(k,1345) = mat(k,1345) + rxt(k,414)*y(k,200) + mat(k,1265) = mat(k,1265) + rxt(k,423)*y(k,200) + mat(k,1366) = mat(k,1366) + rxt(k,376)*y(k,200) + mat(k,1407) = mat(k,1407) + rxt(k,385)*y(k,200) + mat(k,917) = .070_r8*rxt(k,460)*y(k,90) + .170_r8*rxt(k,461)*y(k,124) + mat(k,1645) = rxt(k,314)*y(k,54) + mat(k,1810) = rxt(k,338)*y(k,50) + .700_r8*rxt(k,307)*y(k,53) + rxt(k,308) & *y(k,54) - mat(k,1243) = mat(k,1243) + rxt(k,430)*y(k,200) + mat(k,1242) = mat(k,1242) + rxt(k,434)*y(k,200) end do end subroutine nlnmat08 subroutine nlnmat09( avec_len, mat, y, rxt ) @@ -2086,209 +2091,213 @@ subroutine nlnmat09( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,778) = -(rxt(k,450)*y(k,90) + rxt(k,451)*y(k,124) + rxt(k,452)*y(k,125)) - mat(k,2315) = -rxt(k,450)*y(k,202) - mat(k,1870) = -rxt(k,451)*y(k,202) - mat(k,1938) = -rxt(k,452)*y(k,202) - mat(k,865) = -(rxt(k,579)*y(k,221) + rxt(k,580)*y(k,227) + rxt(k,581) & + mat(k,777) = -(rxt(k,454)*y(k,90) + rxt(k,455)*y(k,124) + rxt(k,456)*y(k,125)) + mat(k,2292) = -rxt(k,454)*y(k,202) + mat(k,1968) = -rxt(k,455)*y(k,202) + mat(k,1869) = -rxt(k,456)*y(k,202) + mat(k,864) = -(rxt(k,583)*y(k,221) + rxt(k,584)*y(k,227) + rxt(k,585) & *y(k,220)) - mat(k,846) = -rxt(k,579)*y(k,203) - mat(k,854) = -rxt(k,580)*y(k,203) - mat(k,680) = -rxt(k,581)*y(k,203) - mat(k,574) = -((rxt(k,369) + rxt(k,370)) * y(k,124)) - mat(k,1860) = -(rxt(k,369) + rxt(k,370)) * y(k,204) - mat(k,356) = rxt(k,368)*y(k,228) - mat(k,1744) = rxt(k,368)*y(k,16) - mat(k,460) = -(rxt(k,339)*y(k,135)) - mat(k,1526) = -rxt(k,339)*y(k,205) - mat(k,1852) = .750_r8*rxt(k,337)*y(k,206) - mat(k,796) = .750_r8*rxt(k,337)*y(k,124) - mat(k,797) = -(rxt(k,336)*y(k,90) + rxt(k,337)*y(k,124)) - mat(k,2317) = -rxt(k,336)*y(k,206) - mat(k,1871) = -rxt(k,337)*y(k,206) - mat(k,551) = rxt(k,343)*y(k,228) - mat(k,1766) = rxt(k,343)*y(k,25) - mat(k,441) = -(rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124)) - mat(k,2290) = -rxt(k,307)*y(k,207) - mat(k,1850) = -rxt(k,309)*y(k,207) - mat(k,1972) = rxt(k,294)*y(k,90) - mat(k,2290) = mat(k,2290) + rxt(k,294)*y(k,42) - mat(k,1299) = -(rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201) + rxt(k,407) & - *y(k,90) + rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126)) - mat(k,1423) = -rxt(k,405)*y(k,208) - mat(k,2398) = -rxt(k,406)*y(k,208) - mat(k,2343) = -rxt(k,407)*y(k,208) - mat(k,1901) = -rxt(k,408)*y(k,208) - mat(k,1640) = -rxt(k,409)*y(k,208) - mat(k,882) = .600_r8*rxt(k,426)*y(k,228) - mat(k,1803) = .600_r8*rxt(k,426)*y(k,99) - mat(k,1332) = -(rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201) + rxt(k,412) & - *y(k,90) + rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126)) - mat(k,1424) = -rxt(k,410)*y(k,209) - mat(k,2399) = -rxt(k,411)*y(k,209) - mat(k,2344) = -rxt(k,412)*y(k,209) - mat(k,1902) = -rxt(k,414)*y(k,209) - mat(k,1641) = -rxt(k,415)*y(k,209) - mat(k,883) = .400_r8*rxt(k,426)*y(k,228) - mat(k,1804) = .400_r8*rxt(k,426)*y(k,99) - mat(k,1253) = -(rxt(k,419)*y(k,200) + rxt(k,420)*y(k,201) + rxt(k,421) & - *y(k,90) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126)) - mat(k,1420) = -rxt(k,419)*y(k,210) - mat(k,2395) = -rxt(k,420)*y(k,210) - mat(k,2340) = -rxt(k,421)*y(k,210) - mat(k,1898) = -rxt(k,422)*y(k,210) - mat(k,1637) = -rxt(k,423)*y(k,210) - mat(k,880) = rxt(k,418)*y(k,126) - mat(k,1637) = mat(k,1637) + rxt(k,418)*y(k,99) - mat(k,68) = -(rxt(k,543)*y(k,90) + rxt(k,544)*y(k,124)) - mat(k,2270) = -rxt(k,543)*y(k,211) - mat(k,1839) = -rxt(k,544)*y(k,211) - mat(k,875) = rxt(k,546)*y(k,228) - mat(k,1675) = rxt(k,546)*y(k,99) - mat(k,74) = -(rxt(k,547)*y(k,90) + rxt(k,548)*y(k,124)) - mat(k,2271) = -rxt(k,547)*y(k,212) - mat(k,1840) = -rxt(k,548)*y(k,212) - mat(k,75) = rxt(k,549)*y(k,228) - mat(k,1676) = rxt(k,549)*y(k,104) - mat(k,1356) = -(rxt(k,372)*y(k,200) + rxt(k,373)*y(k,201) + rxt(k,374) & - *y(k,90) + rxt(k,375)*y(k,126) + (rxt(k,376) + rxt(k,377) & + mat(k,845) = -rxt(k,583)*y(k,203) + mat(k,853) = -rxt(k,584)*y(k,203) + mat(k,627) = -rxt(k,585)*y(k,203) + mat(k,569) = -((rxt(k,373) + rxt(k,374)) * y(k,124)) + mat(k,1957) = -(rxt(k,373) + rxt(k,374)) * y(k,204) + mat(k,356) = rxt(k,372)*y(k,228) + mat(k,1724) = rxt(k,372)*y(k,16) + mat(k,460) = -(rxt(k,343)*y(k,135)) + mat(k,1525) = -rxt(k,343)*y(k,205) + mat(k,1949) = .750_r8*rxt(k,341)*y(k,206) + mat(k,795) = .750_r8*rxt(k,341)*y(k,124) + mat(k,796) = -(rxt(k,340)*y(k,90) + rxt(k,341)*y(k,124)) + mat(k,2294) = -rxt(k,340)*y(k,206) + mat(k,1969) = -rxt(k,341)*y(k,206) + mat(k,546) = rxt(k,347)*y(k,228) + mat(k,1746) = rxt(k,347)*y(k,25) + mat(k,441) = -(rxt(k,311)*y(k,90) + rxt(k,313)*y(k,124)) + mat(k,2267) = -rxt(k,311)*y(k,207) + mat(k,1947) = -rxt(k,313)*y(k,207) + mat(k,1903) = rxt(k,298)*y(k,90) + mat(k,2267) = mat(k,2267) + rxt(k,298)*y(k,42) + mat(k,1298) = -(rxt(k,409)*y(k,200) + rxt(k,410)*y(k,201) + rxt(k,411) & + *y(k,90) + rxt(k,412)*y(k,124) + rxt(k,413)*y(k,126)) + mat(k,1422) = -rxt(k,409)*y(k,208) + mat(k,2398) = -rxt(k,410)*y(k,208) + mat(k,2320) = -rxt(k,411)*y(k,208) + mat(k,1999) = -rxt(k,412)*y(k,208) + mat(k,2213) = -rxt(k,413)*y(k,208) + mat(k,881) = .600_r8*rxt(k,430)*y(k,228) + mat(k,1783) = .600_r8*rxt(k,430)*y(k,99) + mat(k,1331) = -(rxt(k,414)*y(k,200) + rxt(k,415)*y(k,201) + rxt(k,416) & + *y(k,90) + rxt(k,418)*y(k,124) + rxt(k,419)*y(k,126)) + mat(k,1423) = -rxt(k,414)*y(k,209) + mat(k,2399) = -rxt(k,415)*y(k,209) + mat(k,2321) = -rxt(k,416)*y(k,209) + mat(k,2000) = -rxt(k,418)*y(k,209) + mat(k,2214) = -rxt(k,419)*y(k,209) + mat(k,882) = .400_r8*rxt(k,430)*y(k,228) + mat(k,1784) = .400_r8*rxt(k,430)*y(k,99) + mat(k,1252) = -(rxt(k,423)*y(k,200) + rxt(k,424)*y(k,201) + rxt(k,425) & + *y(k,90) + rxt(k,426)*y(k,124) + rxt(k,427)*y(k,126)) + mat(k,1419) = -rxt(k,423)*y(k,210) + mat(k,2395) = -rxt(k,424)*y(k,210) + mat(k,2317) = -rxt(k,425)*y(k,210) + mat(k,1996) = -rxt(k,426)*y(k,210) + mat(k,2210) = -rxt(k,427)*y(k,210) + mat(k,879) = rxt(k,422)*y(k,126) + mat(k,2210) = mat(k,2210) + rxt(k,422)*y(k,99) + mat(k,68) = -(rxt(k,547)*y(k,90) + rxt(k,548)*y(k,124)) + mat(k,2247) = -rxt(k,547)*y(k,211) + mat(k,1936) = -rxt(k,548)*y(k,211) + mat(k,874) = rxt(k,550)*y(k,228) + mat(k,1655) = rxt(k,550)*y(k,99) + mat(k,74) = -(rxt(k,551)*y(k,90) + rxt(k,552)*y(k,124)) + mat(k,2248) = -rxt(k,551)*y(k,212) + mat(k,1937) = -rxt(k,552)*y(k,212) + mat(k,75) = rxt(k,553)*y(k,228) + mat(k,1656) = rxt(k,553)*y(k,104) + mat(k,1355) = -(rxt(k,376)*y(k,200) + rxt(k,377)*y(k,201) + rxt(k,378) & + *y(k,90) + rxt(k,379)*y(k,126) + (rxt(k,380) + rxt(k,381) & ) * y(k,124)) - mat(k,1425) = -rxt(k,372)*y(k,213) - mat(k,2400) = -rxt(k,373)*y(k,213) - mat(k,2345) = -rxt(k,374)*y(k,213) - mat(k,1642) = -rxt(k,375)*y(k,213) - mat(k,1903) = -(rxt(k,376) + rxt(k,377)) * y(k,213) - mat(k,1271) = .500_r8*rxt(k,379)*y(k,228) - mat(k,317) = .200_r8*rxt(k,380)*y(k,228) - mat(k,1375) = rxt(k,393)*y(k,228) - mat(k,1805) = .500_r8*rxt(k,379)*y(k,105) + .200_r8*rxt(k,380)*y(k,106) & - + rxt(k,393)*y(k,111) - mat(k,740) = -(rxt(k,453)*y(k,90) + rxt(k,454)*y(k,124) + rxt(k,455)*y(k,125)) - mat(k,2312) = -rxt(k,453)*y(k,214) - mat(k,1867) = -rxt(k,454)*y(k,214) - mat(k,1937) = -rxt(k,455)*y(k,214) - mat(k,1397) = -(rxt(k,381)*y(k,200) + rxt(k,382)*y(k,201) + rxt(k,383) & - *y(k,90) + 4._r8*rxt(k,384)*y(k,215) + rxt(k,385)*y(k,124) & - + rxt(k,386)*y(k,126) + rxt(k,394)*y(k,125)) - mat(k,1427) = -rxt(k,381)*y(k,215) - mat(k,2402) = -rxt(k,382)*y(k,215) - mat(k,2347) = -rxt(k,383)*y(k,215) - mat(k,1905) = -rxt(k,385)*y(k,215) - mat(k,1644) = -rxt(k,386)*y(k,215) - mat(k,1948) = -rxt(k,394)*y(k,215) - mat(k,1272) = .500_r8*rxt(k,379)*y(k,228) - mat(k,318) = .500_r8*rxt(k,380)*y(k,228) - mat(k,1807) = .500_r8*rxt(k,379)*y(k,105) + .500_r8*rxt(k,380)*y(k,106) - mat(k,910) = -(rxt(k,456)*y(k,90) + rxt(k,457)*y(k,124) + rxt(k,458)*y(k,125)) - mat(k,2323) = -rxt(k,456)*y(k,216) - mat(k,1878) = -rxt(k,457)*y(k,216) - mat(k,1940) = -rxt(k,458)*y(k,216) - mat(k,698) = -(rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124)) - mat(k,2308) = -rxt(k,387)*y(k,217) - mat(k,1866) = -rxt(k,388)*y(k,217) - mat(k,518) = rxt(k,389)*y(k,228) - mat(k,322) = rxt(k,390)*y(k,228) - mat(k,1757) = rxt(k,389)*y(k,107) + rxt(k,390)*y(k,108) - mat(k,82) = -(rxt(k,551)*y(k,90) + rxt(k,552)*y(k,124)) - mat(k,2272) = -rxt(k,551)*y(k,218) - mat(k,1841) = -rxt(k,552)*y(k,218) - mat(k,1014) = rxt(k,554)*y(k,228) - mat(k,1678) = rxt(k,554)*y(k,110) - mat(k,529) = -(rxt(k,188)*y(k,134) + rxt(k,189)*y(k,135)) - mat(k,2068) = -rxt(k,188)*y(k,219) - mat(k,1528) = -rxt(k,189)*y(k,219) - mat(k,2068) = mat(k,2068) + rxt(k,583)*y(k,220) - mat(k,860) = .900_r8*rxt(k,581)*y(k,220) + .800_r8*rxt(k,579)*y(k,221) - mat(k,675) = rxt(k,583)*y(k,134) + .900_r8*rxt(k,581)*y(k,203) - mat(k,844) = .800_r8*rxt(k,579)*y(k,203) - mat(k,676) = -(rxt(k,581)*y(k,203) + rxt(k,582)*y(k,135) + (rxt(k,583) & - + rxt(k,584)) * y(k,134)) - mat(k,861) = -rxt(k,581)*y(k,220) - mat(k,1529) = -rxt(k,582)*y(k,220) - mat(k,2071) = -(rxt(k,583) + rxt(k,584)) * y(k,220) - mat(k,845) = -(rxt(k,579)*y(k,203)) - mat(k,863) = -rxt(k,579)*y(k,221) - mat(k,996) = rxt(k,588)*y(k,227) - mat(k,1873) = rxt(k,590)*y(k,227) - mat(k,2077) = rxt(k,583)*y(k,220) - mat(k,1532) = rxt(k,587)*y(k,222) - mat(k,678) = rxt(k,583)*y(k,134) - mat(k,504) = rxt(k,587)*y(k,135) - mat(k,852) = rxt(k,588)*y(k,112) + rxt(k,590)*y(k,124) - mat(k,502) = -(rxt(k,585)*y(k,134) + (rxt(k,586) + rxt(k,587)) * y(k,135)) - mat(k,2067) = -rxt(k,585)*y(k,222) - mat(k,1527) = -(rxt(k,586) + rxt(k,587)) * y(k,222) - mat(k,1106) = -(rxt(k,485)*y(k,201) + rxt(k,486)*y(k,90) + rxt(k,487) & - *y(k,124) + rxt(k,488)*y(k,126)) - mat(k,2386) = -rxt(k,485)*y(k,223) - mat(k,2331) = -rxt(k,486)*y(k,223) - mat(k,1888) = -rxt(k,487)*y(k,223) - mat(k,1626) = -rxt(k,488)*y(k,223) - mat(k,980) = rxt(k,479)*y(k,126) - mat(k,1024) = rxt(k,482)*y(k,126) - mat(k,1626) = mat(k,1626) + rxt(k,479)*y(k,6) + rxt(k,482)*y(k,110) & - + .500_r8*rxt(k,499)*y(k,180) - mat(k,393) = rxt(k,489)*y(k,228) - mat(k,1073) = .500_r8*rxt(k,499)*y(k,126) - mat(k,1789) = rxt(k,489)*y(k,128) - mat(k,2031) = -(rxt(k,153)*y(k,77) + rxt(k,154)*y(k,241) + (rxt(k,156) & - + rxt(k,157)) * y(k,135) + rxt(k,158)*y(k,136) + (rxt(k,206) & - + rxt(k,207)) * y(k,113) + rxt(k,239)*y(k,33) + rxt(k,240) & - *y(k,34) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) + rxt(k,243) & - *y(k,38) + rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) + (rxt(k,246) & - + rxt(k,247)) * y(k,85) + rxt(k,266)*y(k,35) + rxt(k,267) & - *y(k,55) + rxt(k,268)*y(k,78) + (rxt(k,269) + rxt(k,270) & - ) * y(k,81) + rxt(k,275)*y(k,64) + rxt(k,276)*y(k,65) + rxt(k,289) & - *y(k,41) + rxt(k,290)*y(k,43) + rxt(k,291)*y(k,82) + rxt(k,292) & - *y(k,83) + rxt(k,293)*y(k,84) + (rxt(k,310) + rxt(k,311) & - + rxt(k,312)) * y(k,54) + rxt(k,313)*y(k,86)) - mat(k,1465) = -rxt(k,153)*y(k,224) - mat(k,2440) = -rxt(k,154)*y(k,224) - mat(k,1549) = -(rxt(k,156) + rxt(k,157)) * y(k,224) - mat(k,2228) = -rxt(k,158)*y(k,224) - mat(k,259) = -(rxt(k,206) + rxt(k,207)) * y(k,224) - mat(k,102) = -rxt(k,239)*y(k,224) - mat(k,142) = -rxt(k,240)*y(k,224) - mat(k,113) = -rxt(k,241)*y(k,224) - mat(k,152) = -rxt(k,242)*y(k,224) - mat(k,117) = -rxt(k,243)*y(k,224) - mat(k,157) = -rxt(k,244)*y(k,224) - mat(k,121) = -rxt(k,245)*y(k,224) - mat(k,1502) = -(rxt(k,246) + rxt(k,247)) * y(k,224) - mat(k,148) = -rxt(k,266)*y(k,224) - mat(k,389) = -rxt(k,267)*y(k,224) - mat(k,110) = -rxt(k,268)*y(k,224) - mat(k,832) = -(rxt(k,269) + rxt(k,270)) * y(k,224) - mat(k,240) = -rxt(k,275)*y(k,224) - mat(k,248) = -rxt(k,276)*y(k,224) - mat(k,483) = -rxt(k,289)*y(k,224) - mat(k,606) = -rxt(k,290)*y(k,224) - mat(k,244) = -rxt(k,291)*y(k,224) - mat(k,254) = -rxt(k,292)*y(k,224) - mat(k,295) = -rxt(k,293)*y(k,224) - mat(k,2253) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224) - mat(k,184) = -rxt(k,313)*y(k,224) - mat(k,1549) = mat(k,1549) + rxt(k,189)*y(k,219) - mat(k,871) = .850_r8*rxt(k,580)*y(k,227) - mat(k,533) = rxt(k,189)*y(k,135) - mat(k,858) = .850_r8*rxt(k,580)*y(k,203) - mat(k,177) = -(rxt(k,160)*y(k,134) + rxt(k,161)*y(k,135)) - mat(k,2064) = -rxt(k,160)*y(k,225) - mat(k,1524) = -rxt(k,161)*y(k,225) - mat(k,1442) = rxt(k,162)*y(k,226) - mat(k,2064) = mat(k,2064) + rxt(k,164)*y(k,226) - mat(k,1524) = mat(k,1524) + rxt(k,165)*y(k,226) - mat(k,2179) = rxt(k,166)*y(k,226) - mat(k,179) = rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) & - + rxt(k,166)*y(k,136) - mat(k,180) = -(rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) & - + rxt(k,166)*y(k,136)) - mat(k,1443) = -rxt(k,162)*y(k,226) - mat(k,2065) = -rxt(k,164)*y(k,226) - mat(k,1525) = -rxt(k,165)*y(k,226) - mat(k,2180) = -rxt(k,166)*y(k,226) - mat(k,1525) = mat(k,1525) + rxt(k,156)*y(k,224) - mat(k,2007) = rxt(k,156)*y(k,135) + mat(k,1424) = -rxt(k,376)*y(k,213) + mat(k,2400) = -rxt(k,377)*y(k,213) + mat(k,2322) = -rxt(k,378)*y(k,213) + mat(k,2215) = -rxt(k,379)*y(k,213) + mat(k,2001) = -(rxt(k,380) + rxt(k,381)) * y(k,213) + mat(k,1270) = .500_r8*rxt(k,383)*y(k,228) + mat(k,317) = .200_r8*rxt(k,384)*y(k,228) + mat(k,1374) = rxt(k,397)*y(k,228) + mat(k,1785) = .500_r8*rxt(k,383)*y(k,105) + .200_r8*rxt(k,384)*y(k,106) & + + rxt(k,397)*y(k,111) + mat(k,739) = -(rxt(k,457)*y(k,90) + rxt(k,458)*y(k,124) + rxt(k,459)*y(k,125)) + mat(k,2289) = -rxt(k,457)*y(k,214) + mat(k,1965) = -rxt(k,458)*y(k,214) + mat(k,1868) = -rxt(k,459)*y(k,214) + mat(k,1396) = -(rxt(k,385)*y(k,200) + rxt(k,386)*y(k,201) + rxt(k,387) & + *y(k,90) + 4._r8*rxt(k,388)*y(k,215) + rxt(k,389)*y(k,124) & + + rxt(k,390)*y(k,126) + rxt(k,398)*y(k,125)) + mat(k,1426) = -rxt(k,385)*y(k,215) + mat(k,2402) = -rxt(k,386)*y(k,215) + mat(k,2324) = -rxt(k,387)*y(k,215) + mat(k,2003) = -rxt(k,389)*y(k,215) + mat(k,2217) = -rxt(k,390)*y(k,215) + mat(k,1879) = -rxt(k,398)*y(k,215) + mat(k,1271) = .500_r8*rxt(k,383)*y(k,228) + mat(k,318) = .500_r8*rxt(k,384)*y(k,228) + mat(k,1787) = .500_r8*rxt(k,383)*y(k,105) + .500_r8*rxt(k,384)*y(k,106) + mat(k,909) = -(rxt(k,460)*y(k,90) + rxt(k,461)*y(k,124) + rxt(k,462)*y(k,125)) + mat(k,2300) = -rxt(k,460)*y(k,216) + mat(k,1976) = -rxt(k,461)*y(k,216) + mat(k,1871) = -rxt(k,462)*y(k,216) + mat(k,697) = -(rxt(k,391)*y(k,90) + rxt(k,392)*y(k,124)) + mat(k,2285) = -rxt(k,391)*y(k,217) + mat(k,1964) = -rxt(k,392)*y(k,217) + mat(k,518) = rxt(k,393)*y(k,228) + mat(k,322) = rxt(k,394)*y(k,228) + mat(k,1737) = rxt(k,393)*y(k,107) + rxt(k,394)*y(k,108) + mat(k,82) = -(rxt(k,555)*y(k,90) + rxt(k,556)*y(k,124)) + mat(k,2249) = -rxt(k,555)*y(k,218) + mat(k,1938) = -rxt(k,556)*y(k,218) + mat(k,969) = rxt(k,558)*y(k,228) + mat(k,1658) = rxt(k,558)*y(k,110) + mat(k,645) = -(rxt(k,190)*y(k,124) + rxt(k,191)*y(k,134) + rxt(k,214) & + *y(k,203) + rxt(k,215)*y(k,135)) + mat(k,1962) = -rxt(k,190)*y(k,219) + mat(k,2032) = -rxt(k,191)*y(k,219) + mat(k,860) = -rxt(k,214)*y(k,219) + mat(k,1528) = -rxt(k,215)*y(k,219) + mat(k,2032) = mat(k,2032) + rxt(k,587)*y(k,220) + mat(k,860) = mat(k,860) + .900_r8*rxt(k,585)*y(k,220) + .800_r8*rxt(k,583) & + *y(k,221) + mat(k,623) = rxt(k,587)*y(k,134) + .900_r8*rxt(k,585)*y(k,203) + mat(k,843) = .800_r8*rxt(k,583)*y(k,203) + mat(k,622) = -(rxt(k,585)*y(k,203) + rxt(k,586)*y(k,135) + (rxt(k,587) & + + rxt(k,588)) * y(k,134)) + mat(k,859) = -rxt(k,585)*y(k,220) + mat(k,1527) = -rxt(k,586)*y(k,220) + mat(k,2031) = -(rxt(k,587) + rxt(k,588)) * y(k,220) + mat(k,844) = -(rxt(k,583)*y(k,203)) + mat(k,862) = -rxt(k,583)*y(k,221) + mat(k,1045) = rxt(k,592)*y(k,227) + mat(k,1971) = rxt(k,594)*y(k,227) + mat(k,2038) = rxt(k,587)*y(k,220) + mat(k,1531) = rxt(k,591)*y(k,222) + mat(k,625) = rxt(k,587)*y(k,134) + mat(k,504) = rxt(k,591)*y(k,135) + mat(k,851) = rxt(k,592)*y(k,112) + rxt(k,594)*y(k,124) + mat(k,502) = -(rxt(k,589)*y(k,134) + (rxt(k,590) + rxt(k,591)) * y(k,135)) + mat(k,2028) = -rxt(k,589)*y(k,222) + mat(k,1526) = -(rxt(k,590) + rxt(k,591)) * y(k,222) + mat(k,1105) = -(rxt(k,489)*y(k,201) + rxt(k,490)*y(k,90) + rxt(k,491) & + *y(k,124) + rxt(k,492)*y(k,126)) + mat(k,2386) = -rxt(k,489)*y(k,223) + mat(k,2308) = -rxt(k,490)*y(k,223) + mat(k,1986) = -rxt(k,491)*y(k,223) + mat(k,2199) = -rxt(k,492)*y(k,223) + mat(k,1007) = rxt(k,483)*y(k,126) + mat(k,979) = rxt(k,486)*y(k,126) + mat(k,2199) = mat(k,2199) + rxt(k,483)*y(k,6) + rxt(k,486)*y(k,110) & + + .500_r8*rxt(k,503)*y(k,180) + mat(k,393) = rxt(k,493)*y(k,228) + mat(k,1072) = .500_r8*rxt(k,503)*y(k,126) + mat(k,1769) = rxt(k,493)*y(k,128) + mat(k,1632) = -(rxt(k,153)*y(k,77) + rxt(k,154)*y(k,241) + (rxt(k,156) & + + rxt(k,157)) * y(k,135) + (rxt(k,158) + rxt(k,159)) * y(k,136) & + + (rxt(k,207) + rxt(k,208)) * y(k,113) + rxt(k,243)*y(k,33) & + + rxt(k,244)*y(k,34) + rxt(k,245)*y(k,36) + rxt(k,246)*y(k,37) & + + rxt(k,247)*y(k,38) + rxt(k,248)*y(k,39) + rxt(k,249)*y(k,40) & + + (rxt(k,250) + rxt(k,251)) * y(k,85) + rxt(k,270)*y(k,35) & + + rxt(k,271)*y(k,55) + rxt(k,272)*y(k,78) + (rxt(k,273) & + + rxt(k,274)) * y(k,81) + rxt(k,279)*y(k,64) + rxt(k,280) & + *y(k,65) + rxt(k,293)*y(k,41) + rxt(k,294)*y(k,43) + rxt(k,295) & + *y(k,82) + rxt(k,296)*y(k,83) + rxt(k,297)*y(k,84) + (rxt(k,314) & + + rxt(k,315) + rxt(k,316)) * y(k,54) + rxt(k,317)*y(k,86)) + mat(k,1463) = -rxt(k,153)*y(k,224) + mat(k,2435) = -rxt(k,154)*y(k,224) + mat(k,1543) = -(rxt(k,156) + rxt(k,157)) * y(k,224) + mat(k,2117) = -(rxt(k,158) + rxt(k,159)) * y(k,224) + mat(k,258) = -(rxt(k,207) + rxt(k,208)) * y(k,224) + mat(k,102) = -rxt(k,243)*y(k,224) + mat(k,142) = -rxt(k,244)*y(k,224) + mat(k,113) = -rxt(k,245)*y(k,224) + mat(k,152) = -rxt(k,246)*y(k,224) + mat(k,117) = -rxt(k,247)*y(k,224) + mat(k,157) = -rxt(k,248)*y(k,224) + mat(k,121) = -rxt(k,249)*y(k,224) + mat(k,1497) = -(rxt(k,250) + rxt(k,251)) * y(k,224) + mat(k,148) = -rxt(k,270)*y(k,224) + mat(k,388) = -rxt(k,271)*y(k,224) + mat(k,110) = -rxt(k,272)*y(k,224) + mat(k,830) = -(rxt(k,273) + rxt(k,274)) * y(k,224) + mat(k,240) = -rxt(k,279)*y(k,224) + mat(k,248) = -rxt(k,280)*y(k,224) + mat(k,482) = -rxt(k,293)*y(k,224) + mat(k,600) = -rxt(k,294)*y(k,224) + mat(k,243) = -rxt(k,295)*y(k,224) + mat(k,253) = -rxt(k,296)*y(k,224) + mat(k,294) = -rxt(k,297)*y(k,224) + mat(k,1565) = -(rxt(k,314) + rxt(k,315) + rxt(k,316)) * y(k,224) + mat(k,183) = -rxt(k,317)*y(k,224) + mat(k,1543) = mat(k,1543) + rxt(k,215)*y(k,219) + mat(k,869) = .850_r8*rxt(k,584)*y(k,227) + mat(k,648) = rxt(k,215)*y(k,135) + mat(k,856) = .850_r8*rxt(k,584)*y(k,203) + mat(k,177) = -(rxt(k,161)*y(k,134) + rxt(k,162)*y(k,135)) + mat(k,2025) = -rxt(k,161)*y(k,225) + mat(k,1523) = -rxt(k,162)*y(k,225) + mat(k,1441) = rxt(k,163)*y(k,226) + mat(k,2025) = mat(k,2025) + rxt(k,165)*y(k,226) + mat(k,1523) = mat(k,1523) + rxt(k,166)*y(k,226) + mat(k,2073) = rxt(k,167)*y(k,226) + mat(k,179) = rxt(k,163)*y(k,63) + rxt(k,165)*y(k,134) + rxt(k,166)*y(k,135) & + + rxt(k,167)*y(k,136) + mat(k,180) = -(rxt(k,163)*y(k,63) + rxt(k,165)*y(k,134) + rxt(k,166)*y(k,135) & + + rxt(k,167)*y(k,136)) + mat(k,1442) = -rxt(k,163)*y(k,226) + mat(k,2026) = -rxt(k,165)*y(k,226) + mat(k,1524) = -rxt(k,166)*y(k,226) + mat(k,2074) = -rxt(k,167)*y(k,226) + mat(k,1524) = mat(k,1524) + rxt(k,156)*y(k,224) + mat(k,1613) = rxt(k,156)*y(k,135) end do end subroutine nlnmat09 subroutine nlnmat10( avec_len, mat, y, rxt ) @@ -2309,211 +2318,211 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,853) = -(rxt(k,580)*y(k,203) + rxt(k,588)*y(k,112) + rxt(k,590) & + mat(k,852) = -(rxt(k,584)*y(k,203) + rxt(k,592)*y(k,112) + rxt(k,594) & *y(k,124)) - mat(k,864) = -rxt(k,580)*y(k,227) - mat(k,997) = -rxt(k,588)*y(k,227) - mat(k,1874) = -rxt(k,590)*y(k,227) - mat(k,1446) = rxt(k,591)*y(k,229) - mat(k,1533) = rxt(k,582)*y(k,220) + rxt(k,586)*y(k,222) + rxt(k,593)*y(k,229) - mat(k,679) = rxt(k,582)*y(k,135) - mat(k,505) = rxt(k,586)*y(k,135) - mat(k,807) = rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135) - mat(k,1818) = -(rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,181)*y(k,90) & - + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136) + (4._r8*rxt(k,184) & - + 4._r8*rxt(k,185)) * y(k,228) + rxt(k,187)*y(k,91) + rxt(k,201) & - *y(k,126) + rxt(k,202)*y(k,112) + rxt(k,210)*y(k,125) + rxt(k,211) & - *y(k,89) + rxt(k,230)*y(k,60) + (rxt(k,232) + rxt(k,233) & - ) * y(k,59) + rxt(k,235)*y(k,85) + rxt(k,238)*y(k,93) + rxt(k,262) & - *y(k,19) + rxt(k,264)*y(k,81) + rxt(k,278)*y(k,41) + rxt(k,280) & - *y(k,43) + rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,285) & - *y(k,55) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) & - *y(k,84) + rxt(k,297)*y(k,42) + rxt(k,302)*y(k,52) + rxt(k,303) & - *y(k,53) + rxt(k,304)*y(k,54) + rxt(k,305)*y(k,86) + rxt(k,306) & - *y(k,87) + rxt(k,314)*y(k,62) + rxt(k,316)*y(k,24) + rxt(k,323) & - *y(k,26) + rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28) + rxt(k,328) & - *y(k,45) + rxt(k,329)*y(k,47) + rxt(k,334)*y(k,50) + rxt(k,335) & - *y(k,51) + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,342) & - *y(k,141) + rxt(k,343)*y(k,25) + rxt(k,351)*y(k,30) + rxt(k,352) & - *y(k,31) + rxt(k,354)*y(k,49) + rxt(k,356)*y(k,96) + rxt(k,357) & - *y(k,127) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) + rxt(k,365) & - *y(k,29) + rxt(k,366)*y(k,48) + rxt(k,368)*y(k,16) + rxt(k,371) & - *y(k,94) + rxt(k,379)*y(k,105) + rxt(k,380)*y(k,106) + rxt(k,389) & - *y(k,107) + rxt(k,390)*y(k,108) + rxt(k,391)*y(k,109) + rxt(k,393) & - *y(k,111) + rxt(k,396)*y(k,1) + rxt(k,400)*y(k,2) + rxt(k,401) & - *y(k,15) + rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404) & - *y(k,98) + rxt(k,416)*y(k,100) + rxt(k,417)*y(k,101) + rxt(k,424) & - *y(k,102) + rxt(k,426)*y(k,99) + rxt(k,427)*y(k,103) + rxt(k,428) & - *y(k,115) + rxt(k,429)*y(k,116) + rxt(k,435)*y(k,184) + rxt(k,438) & - *y(k,7) + rxt(k,441)*y(k,8) + rxt(k,442)*y(k,22) + rxt(k,444) & - *y(k,23) + rxt(k,448)*y(k,32) + rxt(k,449)*y(k,66) + rxt(k,461) & - *y(k,144) + rxt(k,464)*y(k,145) + rxt(k,468)*y(k,182) + rxt(k,469) & - *y(k,183) + rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186) + rxt(k,477) & - *y(k,187) + rxt(k,478)*y(k,188) + rxt(k,481)*y(k,6) + rxt(k,484) & - *y(k,110) + rxt(k,489)*y(k,128) + rxt(k,493)*y(k,177) + rxt(k,494) & - *y(k,178) + rxt(k,498)*y(k,179) + rxt(k,500)*y(k,180) + rxt(k,501) & - *y(k,181) + (rxt(k,503) + rxt(k,517)) * y(k,67) + rxt(k,505) & - *y(k,139) + rxt(k,507)*y(k,153) + rxt(k,511)*y(k,150) + rxt(k,516) & - *y(k,152) + rxt(k,519)*y(k,120)) - mat(k,1464) = -rxt(k,179)*y(k,228) - mat(k,584) = -rxt(k,180)*y(k,228) - mat(k,2357) = -rxt(k,181)*y(k,228) - mat(k,2093) = -rxt(k,182)*y(k,228) - mat(k,2224) = -rxt(k,183)*y(k,228) - mat(k,475) = -rxt(k,187)*y(k,228) - mat(k,1653) = -rxt(k,201)*y(k,228) - mat(k,1003) = -rxt(k,202)*y(k,228) - mat(k,1958) = -rxt(k,210)*y(k,228) - mat(k,2050) = -rxt(k,211)*y(k,228) - mat(k,959) = -rxt(k,230)*y(k,228) - mat(k,1594) = -(rxt(k,232) + rxt(k,233)) * y(k,228) - mat(k,1500) = -rxt(k,235)*y(k,228) - mat(k,840) = -rxt(k,238)*y(k,228) - mat(k,1568) = -rxt(k,262)*y(k,228) - mat(k,831) = -rxt(k,264)*y(k,228) - mat(k,482) = -rxt(k,278)*y(k,228) - mat(k,605) = -rxt(k,280)*y(k,228) - mat(k,124) = -rxt(k,281)*y(k,228) - mat(k,374) = -rxt(k,283)*y(k,228) - mat(k,388) = -rxt(k,285)*y(k,228) - mat(k,243) = -rxt(k,286)*y(k,228) - mat(k,253) = -rxt(k,287)*y(k,228) - mat(k,294) = -rxt(k,288)*y(k,228) - mat(k,1984) = -rxt(k,297)*y(k,228) - mat(k,825) = -rxt(k,302)*y(k,228) - mat(k,455) = -rxt(k,303)*y(k,228) - mat(k,2249) = -rxt(k,304)*y(k,228) - mat(k,183) = -rxt(k,305)*y(k,228) - mat(k,921) = -rxt(k,306)*y(k,228) - mat(k,1162) = -rxt(k,314)*y(k,228) - mat(k,289) = -rxt(k,316)*y(k,228) - mat(k,267) = -rxt(k,323)*y(k,228) - mat(k,353) = -rxt(k,324)*y(k,228) - mat(k,301) = -rxt(k,326)*y(k,228) - mat(k,1155) = -rxt(k,328)*y(k,228) - mat(k,105) = -rxt(k,329)*y(k,228) - mat(k,707) = -rxt(k,334)*y(k,228) - mat(k,623) = -rxt(k,335)*y(k,228) - mat(k,1168) = -rxt(k,340)*y(k,228) - mat(k,1057) = -rxt(k,341)*y(k,228) - mat(k,538) = -rxt(k,342)*y(k,228) - mat(k,554) = -rxt(k,343)*y(k,228) - mat(k,412) = -rxt(k,351)*y(k,228) - mat(k,307) = -rxt(k,352)*y(k,228) - mat(k,1285) = -rxt(k,354)*y(k,228) - mat(k,1211) = -rxt(k,356)*y(k,228) - mat(k,895) = -rxt(k,357)*y(k,228) - mat(k,546) = -rxt(k,360)*y(k,228) - mat(k,400) = -rxt(k,364)*y(k,228) - mat(k,1142) = -rxt(k,365)*y(k,228) - mat(k,1083) = -rxt(k,366)*y(k,228) - mat(k,360) = -rxt(k,368)*y(k,228) - mat(k,1201) = -rxt(k,371)*y(k,228) - mat(k,1275) = -rxt(k,379)*y(k,228) - mat(k,319) = -rxt(k,380)*y(k,228) - mat(k,521) = -rxt(k,389)*y(k,228) - mat(k,325) = -rxt(k,390)*y(k,228) - mat(k,616) = -rxt(k,391)*y(k,228) - mat(k,1382) = -rxt(k,393)*y(k,228) - mat(k,648) = -rxt(k,396)*y(k,228) - mat(k,694) = -rxt(k,400)*y(k,228) - mat(k,228) = -rxt(k,401)*y(k,228) - mat(k,224) = -rxt(k,402)*y(k,228) - mat(k,328) = -rxt(k,403)*y(k,228) - mat(k,135) = -rxt(k,404)*y(k,228) - mat(k,593) = -rxt(k,416)*y(k,228) - mat(k,563) = -rxt(k,417)*y(k,228) - mat(k,406) = -rxt(k,424)*y(k,228) - mat(k,887) = -rxt(k,426)*y(k,228) - mat(k,715) = -rxt(k,427)*y(k,228) - mat(k,430) = -rxt(k,428)*y(k,228) - mat(k,1095) = -rxt(k,429)*y(k,228) - mat(k,205) = -rxt(k,435)*y(k,228) - mat(k,164) = -rxt(k,438)*y(k,228) - mat(k,419) = -rxt(k,441)*y(k,228) - mat(k,237) = -rxt(k,442)*y(k,228) - mat(k,348) = -rxt(k,444)*y(k,228) - mat(k,272) = -rxt(k,448)*y(k,228) - mat(k,197) = -rxt(k,449)*y(k,228) - mat(k,173) = -rxt(k,461)*y(k,228) - mat(k,342) = -rxt(k,464)*y(k,228) - mat(k,673) = -rxt(k,468)*y(k,228) - mat(k,192) = -rxt(k,469)*y(k,228) - mat(k,214) = -rxt(k,471)*y(k,228) - mat(k,738) = -rxt(k,474)*y(k,228) - mat(k,219) = -rxt(k,477)*y(k,228) - mat(k,425) = -rxt(k,478)*y(k,228) - mat(k,988) = -rxt(k,481)*y(k,228) - mat(k,1032) = -rxt(k,484)*y(k,228) - mat(k,394) = -rxt(k,489)*y(k,228) - mat(k,659) = -rxt(k,493)*y(k,228) - mat(k,629) = -rxt(k,494)*y(k,228) - mat(k,490) = -rxt(k,498)*y(k,228) - mat(k,1078) = -rxt(k,500)*y(k,228) - mat(k,1124) = -rxt(k,501)*y(k,228) - mat(k,313) = -(rxt(k,503) + rxt(k,517)) * y(k,228) - mat(k,368) = -rxt(k,505)*y(k,228) - mat(k,949) = -rxt(k,507)*y(k,228) - mat(k,721) = -rxt(k,511)*y(k,228) - mat(k,1481) = -rxt(k,516)*y(k,228) - mat(k,99) = -rxt(k,519)*y(k,228) - mat(k,988) = mat(k,988) + .630_r8*rxt(k,480)*y(k,136) - mat(k,289) = mat(k,289) + .650_r8*rxt(k,316)*y(k,228) - mat(k,554) = mat(k,554) + .130_r8*rxt(k,318)*y(k,136) - mat(k,353) = mat(k,353) + .500_r8*rxt(k,324)*y(k,228) - mat(k,1142) = mat(k,1142) + .360_r8*rxt(k,347)*y(k,136) - mat(k,1984) = mat(k,1984) + rxt(k,296)*y(k,134) - mat(k,455) = mat(k,455) + .300_r8*rxt(k,303)*y(k,228) - mat(k,2249) = mat(k,2249) + rxt(k,310)*y(k,224) - mat(k,2160) = rxt(k,219)*y(k,90) - mat(k,928) = rxt(k,273)*y(k,241) - mat(k,2114) = 2.000_r8*rxt(k,173)*y(k,90) + rxt(k,178)*y(k,136) - mat(k,1464) = mat(k,1464) + rxt(k,170)*y(k,134) + rxt(k,153)*y(k,224) - mat(k,584) = mat(k,584) + rxt(k,171)*y(k,134) - mat(k,831) = mat(k,831) + rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224) - mat(k,1500) = mat(k,1500) + rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224) - mat(k,183) = mat(k,183) + rxt(k,313)*y(k,224) - mat(k,2357) = mat(k,2357) + rxt(k,219)*y(k,56) + 2.000_r8*rxt(k,173)*y(k,76) & - + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126) + rxt(k,176) & - *y(k,134) + rxt(k,177)*y(k,136) + .400_r8*rxt(k,436)*y(k,191) & - + .450_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,450)*y(k,202) & - + .450_r8*rxt(k,383)*y(k,215) + .400_r8*rxt(k,456)*y(k,216) & - + .200_r8*rxt(k,387)*y(k,217) + .150_r8*rxt(k,362)*y(k,232) - mat(k,791) = rxt(k,265)*y(k,134) - mat(k,840) = mat(k,840) + rxt(k,237)*y(k,134) - mat(k,887) = mat(k,887) + .320_r8*rxt(k,425)*y(k,136) - mat(k,715) = mat(k,715) + .600_r8*rxt(k,427)*y(k,228) - mat(k,1275) = mat(k,1275) + .240_r8*rxt(k,378)*y(k,136) - mat(k,319) = mat(k,319) + .100_r8*rxt(k,380)*y(k,228) - mat(k,1032) = mat(k,1032) + .630_r8*rxt(k,483)*y(k,136) - mat(k,1382) = mat(k,1382) + .360_r8*rxt(k,392)*y(k,136) - mat(k,1913) = rxt(k,203)*y(k,90) - mat(k,1653) = mat(k,1653) + rxt(k,198)*y(k,90) - mat(k,2093) = mat(k,2093) + rxt(k,296)*y(k,42) + rxt(k,170)*y(k,77) & - + rxt(k,171)*y(k,79) + rxt(k,263)*y(k,81) + rxt(k,234)*y(k,85) & - + rxt(k,176)*y(k,90) + rxt(k,265)*y(k,92) + rxt(k,237)*y(k,93) - mat(k,2224) = mat(k,2224) + .630_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) & - *y(k,25) + .360_r8*rxt(k,347)*y(k,29) + rxt(k,178)*y(k,76) & - + rxt(k,177)*y(k,90) + .320_r8*rxt(k,425)*y(k,99) & - + .240_r8*rxt(k,378)*y(k,105) + .630_r8*rxt(k,483)*y(k,110) & - + .360_r8*rxt(k,392)*y(k,111) - mat(k,546) = mat(k,546) + .500_r8*rxt(k,360)*y(k,228) - mat(k,205) = mat(k,205) + .500_r8*rxt(k,435)*y(k,228) - mat(k,525) = .400_r8*rxt(k,436)*y(k,90) - mat(k,1432) = .450_r8*rxt(k,332)*y(k,90) - mat(k,781) = .400_r8*rxt(k,450)*y(k,90) - mat(k,1401) = .450_r8*rxt(k,383)*y(k,90) - mat(k,914) = .400_r8*rxt(k,456)*y(k,90) - mat(k,701) = .200_r8*rxt(k,387)*y(k,90) - mat(k,2027) = rxt(k,310)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,269)*y(k,81) & - + rxt(k,246)*y(k,85) + rxt(k,313)*y(k,86) + 2.000_r8*rxt(k,154) & + mat(k,863) = -rxt(k,584)*y(k,227) + mat(k,1046) = -rxt(k,592)*y(k,227) + mat(k,1972) = -rxt(k,594)*y(k,227) + mat(k,1445) = rxt(k,595)*y(k,229) + mat(k,1532) = rxt(k,586)*y(k,220) + rxt(k,590)*y(k,222) + rxt(k,597)*y(k,229) + mat(k,626) = rxt(k,586)*y(k,135) + mat(k,505) = rxt(k,590)*y(k,135) + mat(k,806) = rxt(k,595)*y(k,63) + rxt(k,597)*y(k,135) + mat(k,1798) = -(rxt(k,180)*y(k,77) + rxt(k,181)*y(k,79) + rxt(k,182)*y(k,90) & + + rxt(k,183)*y(k,134) + rxt(k,184)*y(k,136) + (4._r8*rxt(k,185) & + + 4._r8*rxt(k,186)) * y(k,228) + rxt(k,189)*y(k,91) + rxt(k,202) & + *y(k,126) + rxt(k,203)*y(k,112) + rxt(k,211)*y(k,125) + rxt(k,212) & + *y(k,89) + rxt(k,234)*y(k,60) + (rxt(k,236) + rxt(k,237) & + ) * y(k,59) + rxt(k,239)*y(k,85) + rxt(k,242)*y(k,93) + rxt(k,266) & + *y(k,19) + rxt(k,268)*y(k,81) + rxt(k,282)*y(k,41) + rxt(k,284) & + *y(k,43) + rxt(k,285)*y(k,44) + rxt(k,287)*y(k,46) + rxt(k,289) & + *y(k,55) + rxt(k,290)*y(k,82) + rxt(k,291)*y(k,83) + rxt(k,292) & + *y(k,84) + rxt(k,301)*y(k,42) + rxt(k,306)*y(k,52) + rxt(k,307) & + *y(k,53) + rxt(k,308)*y(k,54) + rxt(k,309)*y(k,86) + rxt(k,310) & + *y(k,87) + rxt(k,318)*y(k,62) + rxt(k,320)*y(k,24) + rxt(k,327) & + *y(k,26) + rxt(k,328)*y(k,27) + rxt(k,330)*y(k,28) + rxt(k,332) & + *y(k,45) + rxt(k,333)*y(k,47) + rxt(k,338)*y(k,50) + rxt(k,339) & + *y(k,51) + rxt(k,344)*y(k,74) + rxt(k,345)*y(k,75) + rxt(k,346) & + *y(k,141) + rxt(k,347)*y(k,25) + rxt(k,355)*y(k,30) + rxt(k,356) & + *y(k,31) + rxt(k,358)*y(k,49) + rxt(k,360)*y(k,96) + rxt(k,361) & + *y(k,127) + rxt(k,364)*y(k,148) + rxt(k,368)*y(k,149) + rxt(k,369) & + *y(k,29) + rxt(k,370)*y(k,48) + rxt(k,372)*y(k,16) + rxt(k,375) & + *y(k,94) + rxt(k,383)*y(k,105) + rxt(k,384)*y(k,106) + rxt(k,393) & + *y(k,107) + rxt(k,394)*y(k,108) + rxt(k,395)*y(k,109) + rxt(k,397) & + *y(k,111) + rxt(k,400)*y(k,1) + rxt(k,404)*y(k,2) + rxt(k,405) & + *y(k,15) + rxt(k,406)*y(k,95) + rxt(k,407)*y(k,97) + rxt(k,408) & + *y(k,98) + rxt(k,420)*y(k,100) + rxt(k,421)*y(k,101) + rxt(k,428) & + *y(k,102) + rxt(k,430)*y(k,99) + rxt(k,431)*y(k,103) + rxt(k,432) & + *y(k,115) + rxt(k,433)*y(k,116) + rxt(k,439)*y(k,184) + rxt(k,442) & + *y(k,7) + rxt(k,445)*y(k,8) + rxt(k,446)*y(k,22) + rxt(k,448) & + *y(k,23) + rxt(k,452)*y(k,32) + rxt(k,453)*y(k,66) + rxt(k,465) & + *y(k,144) + rxt(k,468)*y(k,145) + rxt(k,472)*y(k,182) + rxt(k,473) & + *y(k,183) + rxt(k,475)*y(k,185) + rxt(k,478)*y(k,186) + rxt(k,481) & + *y(k,187) + rxt(k,482)*y(k,188) + rxt(k,485)*y(k,6) + rxt(k,488) & + *y(k,110) + rxt(k,493)*y(k,128) + rxt(k,497)*y(k,177) + rxt(k,498) & + *y(k,178) + rxt(k,502)*y(k,179) + rxt(k,504)*y(k,180) + rxt(k,505) & + *y(k,181) + (rxt(k,507) + rxt(k,521)) * y(k,67) + rxt(k,509) & + *y(k,139) + rxt(k,511)*y(k,153) + rxt(k,515)*y(k,150) + rxt(k,520) & + *y(k,152) + rxt(k,523)*y(k,120)) + mat(k,1464) = -rxt(k,180)*y(k,228) + mat(k,588) = -rxt(k,181)*y(k,228) + mat(k,2334) = -rxt(k,182)*y(k,228) + mat(k,2054) = -rxt(k,183)*y(k,228) + mat(k,2118) = -rxt(k,184)*y(k,228) + mat(k,474) = -rxt(k,189)*y(k,228) + mat(k,2226) = -rxt(k,202)*y(k,228) + mat(k,1053) = -rxt(k,203)*y(k,228) + mat(k,1889) = -rxt(k,211)*y(k,228) + mat(k,2357) = -rxt(k,212)*y(k,228) + mat(k,956) = -rxt(k,234)*y(k,228) + mat(k,2145) = -(rxt(k,236) + rxt(k,237)) * y(k,228) + mat(k,1498) = -rxt(k,239)*y(k,228) + mat(k,838) = -rxt(k,242)*y(k,228) + mat(k,1591) = -rxt(k,266)*y(k,228) + mat(k,831) = -rxt(k,268)*y(k,228) + mat(k,483) = -rxt(k,282)*y(k,228) + mat(k,601) = -rxt(k,284)*y(k,228) + mat(k,124) = -rxt(k,285)*y(k,228) + mat(k,374) = -rxt(k,287)*y(k,228) + mat(k,389) = -rxt(k,289)*y(k,228) + mat(k,244) = -rxt(k,290)*y(k,228) + mat(k,254) = -rxt(k,291)*y(k,228) + mat(k,295) = -rxt(k,292)*y(k,228) + mat(k,1915) = -rxt(k,301)*y(k,228) + mat(k,824) = -rxt(k,306)*y(k,228) + mat(k,455) = -rxt(k,307)*y(k,228) + mat(k,1566) = -rxt(k,308)*y(k,228) + mat(k,184) = -rxt(k,309)*y(k,228) + mat(k,920) = -rxt(k,310)*y(k,228) + mat(k,1161) = -rxt(k,318)*y(k,228) + mat(k,289) = -rxt(k,320)*y(k,228) + mat(k,267) = -rxt(k,327)*y(k,228) + mat(k,353) = -rxt(k,328)*y(k,228) + mat(k,301) = -rxt(k,330)*y(k,228) + mat(k,1153) = -rxt(k,332)*y(k,228) + mat(k,105) = -rxt(k,333)*y(k,228) + mat(k,706) = -rxt(k,338)*y(k,228) + mat(k,618) = -rxt(k,339)*y(k,228) + mat(k,1167) = -rxt(k,344)*y(k,228) + mat(k,1040) = -rxt(k,345)*y(k,228) + mat(k,532) = -rxt(k,346)*y(k,228) + mat(k,549) = -rxt(k,347)*y(k,228) + mat(k,412) = -rxt(k,355)*y(k,228) + mat(k,307) = -rxt(k,356)*y(k,228) + mat(k,1283) = -rxt(k,358)*y(k,228) + mat(k,1210) = -rxt(k,360)*y(k,228) + mat(k,894) = -rxt(k,361)*y(k,228) + mat(k,541) = -rxt(k,364)*y(k,228) + mat(k,400) = -rxt(k,368)*y(k,228) + mat(k,1141) = -rxt(k,369)*y(k,228) + mat(k,1082) = -rxt(k,370)*y(k,228) + mat(k,359) = -rxt(k,372)*y(k,228) + mat(k,1199) = -rxt(k,375)*y(k,228) + mat(k,1274) = -rxt(k,383)*y(k,228) + mat(k,319) = -rxt(k,384)*y(k,228) + mat(k,521) = -rxt(k,393)*y(k,228) + mat(k,325) = -rxt(k,394)*y(k,228) + mat(k,610) = -rxt(k,395)*y(k,228) + mat(k,1381) = -rxt(k,397)*y(k,228) + mat(k,658) = -rxt(k,400)*y(k,228) + mat(k,693) = -rxt(k,404)*y(k,228) + mat(k,228) = -rxt(k,405)*y(k,228) + mat(k,224) = -rxt(k,406)*y(k,228) + mat(k,328) = -rxt(k,407)*y(k,228) + mat(k,135) = -rxt(k,408)*y(k,228) + mat(k,581) = -rxt(k,420)*y(k,228) + mat(k,558) = -rxt(k,421)*y(k,228) + mat(k,406) = -rxt(k,428)*y(k,228) + mat(k,885) = -rxt(k,430)*y(k,228) + mat(k,714) = -rxt(k,431)*y(k,228) + mat(k,430) = -rxt(k,432)*y(k,228) + mat(k,1094) = -rxt(k,433)*y(k,228) + mat(k,205) = -rxt(k,439)*y(k,228) + mat(k,164) = -rxt(k,442)*y(k,228) + mat(k,419) = -rxt(k,445)*y(k,228) + mat(k,237) = -rxt(k,446)*y(k,228) + mat(k,348) = -rxt(k,448)*y(k,228) + mat(k,272) = -rxt(k,452)*y(k,228) + mat(k,197) = -rxt(k,453)*y(k,228) + mat(k,173) = -rxt(k,465)*y(k,228) + mat(k,342) = -rxt(k,468)*y(k,228) + mat(k,683) = -rxt(k,472)*y(k,228) + mat(k,192) = -rxt(k,473)*y(k,228) + mat(k,214) = -rxt(k,475)*y(k,228) + mat(k,730) = -rxt(k,478)*y(k,228) + mat(k,219) = -rxt(k,481)*y(k,228) + mat(k,425) = -rxt(k,482)*y(k,228) + mat(k,1014) = -rxt(k,485)*y(k,228) + mat(k,986) = -rxt(k,488)*y(k,228) + mat(k,394) = -rxt(k,493)*y(k,228) + mat(k,669) = -rxt(k,497)*y(k,228) + mat(k,633) = -rxt(k,498)*y(k,228) + mat(k,490) = -rxt(k,502)*y(k,228) + mat(k,1076) = -rxt(k,504)*y(k,228) + mat(k,1123) = -rxt(k,505)*y(k,228) + mat(k,312) = -(rxt(k,507) + rxt(k,521)) * y(k,228) + mat(k,368) = -rxt(k,509)*y(k,228) + mat(k,948) = -rxt(k,511)*y(k,228) + mat(k,735) = -rxt(k,515)*y(k,228) + mat(k,1479) = -rxt(k,520)*y(k,228) + mat(k,99) = -rxt(k,523)*y(k,228) + mat(k,1014) = mat(k,1014) + .630_r8*rxt(k,484)*y(k,136) + mat(k,289) = mat(k,289) + .650_r8*rxt(k,320)*y(k,228) + mat(k,549) = mat(k,549) + .130_r8*rxt(k,322)*y(k,136) + mat(k,353) = mat(k,353) + .500_r8*rxt(k,328)*y(k,228) + mat(k,1141) = mat(k,1141) + .360_r8*rxt(k,351)*y(k,136) + mat(k,1915) = mat(k,1915) + rxt(k,300)*y(k,134) + mat(k,455) = mat(k,455) + .300_r8*rxt(k,307)*y(k,228) + mat(k,1566) = mat(k,1566) + rxt(k,314)*y(k,224) + mat(k,1844) = rxt(k,223)*y(k,90) + mat(k,927) = rxt(k,277)*y(k,241) + mat(k,2166) = 2.000_r8*rxt(k,174)*y(k,90) + rxt(k,179)*y(k,136) + mat(k,1464) = mat(k,1464) + rxt(k,171)*y(k,134) + rxt(k,153)*y(k,224) + mat(k,588) = mat(k,588) + rxt(k,172)*y(k,134) + mat(k,831) = mat(k,831) + rxt(k,267)*y(k,134) + rxt(k,273)*y(k,224) + mat(k,1498) = mat(k,1498) + rxt(k,238)*y(k,134) + rxt(k,250)*y(k,224) + mat(k,184) = mat(k,184) + rxt(k,317)*y(k,224) + mat(k,2334) = mat(k,2334) + rxt(k,223)*y(k,56) + 2.000_r8*rxt(k,174)*y(k,76) & + + rxt(k,204)*y(k,124) + rxt(k,199)*y(k,126) + rxt(k,177) & + *y(k,134) + rxt(k,178)*y(k,136) + .400_r8*rxt(k,440)*y(k,191) & + + .490_r8*rxt(k,336)*y(k,200) + .400_r8*rxt(k,454)*y(k,202) & + + .450_r8*rxt(k,387)*y(k,215) + .400_r8*rxt(k,460)*y(k,216) & + + .200_r8*rxt(k,391)*y(k,217) + .150_r8*rxt(k,366)*y(k,232) + mat(k,790) = rxt(k,269)*y(k,134) + mat(k,838) = mat(k,838) + rxt(k,241)*y(k,134) + mat(k,885) = mat(k,885) + .320_r8*rxt(k,429)*y(k,136) + mat(k,714) = mat(k,714) + .600_r8*rxt(k,431)*y(k,228) + mat(k,1274) = mat(k,1274) + .240_r8*rxt(k,382)*y(k,136) + mat(k,319) = mat(k,319) + .100_r8*rxt(k,384)*y(k,228) + mat(k,986) = mat(k,986) + .630_r8*rxt(k,487)*y(k,136) + mat(k,1381) = mat(k,1381) + .360_r8*rxt(k,396)*y(k,136) + mat(k,2011) = rxt(k,204)*y(k,90) + mat(k,2226) = mat(k,2226) + rxt(k,199)*y(k,90) + mat(k,2054) = mat(k,2054) + rxt(k,300)*y(k,42) + rxt(k,171)*y(k,77) & + + rxt(k,172)*y(k,79) + rxt(k,267)*y(k,81) + rxt(k,238)*y(k,85) & + + rxt(k,177)*y(k,90) + rxt(k,269)*y(k,92) + rxt(k,241)*y(k,93) + mat(k,2118) = mat(k,2118) + .630_r8*rxt(k,484)*y(k,6) + .130_r8*rxt(k,322) & + *y(k,25) + .360_r8*rxt(k,351)*y(k,29) + rxt(k,179)*y(k,76) & + + rxt(k,178)*y(k,90) + .320_r8*rxt(k,429)*y(k,99) & + + .240_r8*rxt(k,382)*y(k,105) + .630_r8*rxt(k,487)*y(k,110) & + + .360_r8*rxt(k,396)*y(k,111) + mat(k,541) = mat(k,541) + .500_r8*rxt(k,364)*y(k,228) + mat(k,205) = mat(k,205) + .500_r8*rxt(k,439)*y(k,228) + mat(k,525) = .400_r8*rxt(k,440)*y(k,90) + mat(k,1431) = .490_r8*rxt(k,336)*y(k,90) + mat(k,780) = .400_r8*rxt(k,454)*y(k,90) + mat(k,1399) = .450_r8*rxt(k,387)*y(k,90) + mat(k,913) = .400_r8*rxt(k,460)*y(k,90) + mat(k,700) = .200_r8*rxt(k,391)*y(k,90) + mat(k,1633) = rxt(k,314)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,273)*y(k,81) & + + rxt(k,250)*y(k,85) + rxt(k,317)*y(k,86) + 2.000_r8*rxt(k,154) & *y(k,241) - mat(k,1818) = mat(k,1818) + .650_r8*rxt(k,316)*y(k,24) + .500_r8*rxt(k,324) & - *y(k,27) + .300_r8*rxt(k,303)*y(k,53) + .600_r8*rxt(k,427) & - *y(k,103) + .100_r8*rxt(k,380)*y(k,106) + .500_r8*rxt(k,360) & - *y(k,148) + .500_r8*rxt(k,435)*y(k,184) - mat(k,1220) = .150_r8*rxt(k,362)*y(k,90) - mat(k,2436) = rxt(k,273)*y(k,73) + 2.000_r8*rxt(k,154)*y(k,224) + mat(k,1798) = mat(k,1798) + .650_r8*rxt(k,320)*y(k,24) + .500_r8*rxt(k,328) & + *y(k,27) + .300_r8*rxt(k,307)*y(k,53) + .600_r8*rxt(k,431) & + *y(k,103) + .100_r8*rxt(k,384)*y(k,106) + .500_r8*rxt(k,364) & + *y(k,148) + .500_r8*rxt(k,439)*y(k,184) + mat(k,1219) = .150_r8*rxt(k,366)*y(k,90) + mat(k,2436) = rxt(k,277)*y(k,73) + 2.000_r8*rxt(k,154)*y(k,224) end do end subroutine nlnmat10 subroutine nlnmat11( avec_len, mat, y, rxt ) @@ -2534,147 +2543,147 @@ subroutine nlnmat11( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,805) = -(rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135)) - mat(k,1444) = -rxt(k,591)*y(k,229) - mat(k,1531) = -rxt(k,593)*y(k,229) - mat(k,2074) = rxt(k,584)*y(k,220) + rxt(k,585)*y(k,222) - mat(k,677) = rxt(k,584)*y(k,134) - mat(k,503) = rxt(k,585)*y(k,134) - mat(k,448) = -(rxt(k,459)*y(k,90) + rxt(k,460)*y(k,124)) - mat(k,2291) = -rxt(k,459)*y(k,230) - mat(k,1851) = -rxt(k,460)*y(k,230) - mat(k,195) = .200_r8*rxt(k,449)*y(k,228) - mat(k,171) = .140_r8*rxt(k,461)*y(k,228) - mat(k,340) = rxt(k,464)*y(k,228) - mat(k,1729) = .200_r8*rxt(k,449)*y(k,66) + .140_r8*rxt(k,461)*y(k,144) & - + rxt(k,464)*y(k,145) - mat(k,814) = -(rxt(k,358)*y(k,90) + rxt(k,359)*y(k,124)) - mat(k,2318) = -rxt(k,358)*y(k,231) - mat(k,1872) = -rxt(k,359)*y(k,231) - mat(k,1130) = rxt(k,365)*y(k,228) - mat(k,543) = .500_r8*rxt(k,360)*y(k,228) - mat(k,1767) = rxt(k,365)*y(k,29) + .500_r8*rxt(k,360)*y(k,148) - mat(k,1217) = -(rxt(k,361)*y(k,201) + rxt(k,362)*y(k,90) + rxt(k,363) & + mat(k,804) = -(rxt(k,595)*y(k,63) + rxt(k,597)*y(k,135)) + mat(k,1443) = -rxt(k,595)*y(k,229) + mat(k,1530) = -rxt(k,597)*y(k,229) + mat(k,2035) = rxt(k,588)*y(k,220) + rxt(k,589)*y(k,222) + mat(k,624) = rxt(k,588)*y(k,134) + mat(k,503) = rxt(k,589)*y(k,134) + mat(k,448) = -(rxt(k,463)*y(k,90) + rxt(k,464)*y(k,124)) + mat(k,2268) = -rxt(k,463)*y(k,230) + mat(k,1948) = -rxt(k,464)*y(k,230) + mat(k,195) = .200_r8*rxt(k,453)*y(k,228) + mat(k,171) = .140_r8*rxt(k,465)*y(k,228) + mat(k,340) = rxt(k,468)*y(k,228) + mat(k,1709) = .200_r8*rxt(k,453)*y(k,66) + .140_r8*rxt(k,465)*y(k,144) & + + rxt(k,468)*y(k,145) + mat(k,813) = -(rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124)) + mat(k,2295) = -rxt(k,362)*y(k,231) + mat(k,1970) = -rxt(k,363)*y(k,231) + mat(k,1129) = rxt(k,369)*y(k,228) + mat(k,538) = .500_r8*rxt(k,364)*y(k,228) + mat(k,1747) = rxt(k,369)*y(k,29) + .500_r8*rxt(k,364)*y(k,148) + mat(k,1216) = -(rxt(k,365)*y(k,201) + rxt(k,366)*y(k,90) + rxt(k,367) & *y(k,124)) - mat(k,2393) = -rxt(k,361)*y(k,232) - mat(k,2338) = -rxt(k,362)*y(k,232) - mat(k,1896) = -rxt(k,363)*y(k,232) - mat(k,983) = .060_r8*rxt(k,480)*y(k,136) - mat(k,1081) = rxt(k,366)*y(k,228) - mat(k,1027) = .060_r8*rxt(k,483)*y(k,136) - mat(k,2207) = .060_r8*rxt(k,480)*y(k,6) + .060_r8*rxt(k,483)*y(k,110) - mat(k,398) = rxt(k,364)*y(k,228) - mat(k,1121) = .150_r8*rxt(k,501)*y(k,228) - mat(k,1798) = rxt(k,366)*y(k,48) + rxt(k,364)*y(k,149) + .150_r8*rxt(k,501) & + mat(k,2393) = -rxt(k,365)*y(k,232) + mat(k,2315) = -rxt(k,366)*y(k,232) + mat(k,1994) = -rxt(k,367)*y(k,232) + mat(k,1010) = .060_r8*rxt(k,484)*y(k,136) + mat(k,1080) = rxt(k,370)*y(k,228) + mat(k,982) = .060_r8*rxt(k,487)*y(k,136) + mat(k,2101) = .060_r8*rxt(k,484)*y(k,6) + .060_r8*rxt(k,487)*y(k,110) + mat(k,398) = rxt(k,368)*y(k,228) + mat(k,1120) = .150_r8*rxt(k,505)*y(k,228) + mat(k,1778) = rxt(k,370)*y(k,48) + rxt(k,368)*y(k,149) + .150_r8*rxt(k,505) & *y(k,181) - mat(k,1178) = -(rxt(k,490)*y(k,201) + rxt(k,491)*y(k,90) + rxt(k,492) & + mat(k,1177) = -(rxt(k,494)*y(k,201) + rxt(k,495)*y(k,90) + rxt(k,496) & *y(k,124)) - mat(k,2391) = -rxt(k,490)*y(k,233) - mat(k,2336) = -rxt(k,491)*y(k,233) - mat(k,1893) = -rxt(k,492)*y(k,233) - mat(k,1632) = .500_r8*rxt(k,499)*y(k,180) - mat(k,657) = rxt(k,493)*y(k,228) - mat(k,1076) = .500_r8*rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228) - mat(k,1795) = rxt(k,493)*y(k,177) + rxt(k,500)*y(k,180) - mat(k,1062) = -(rxt(k,495)*y(k,201) + rxt(k,496)*y(k,90) + rxt(k,497) & + mat(k,2391) = -rxt(k,494)*y(k,233) + mat(k,2313) = -rxt(k,495)*y(k,233) + mat(k,1991) = -rxt(k,496)*y(k,233) + mat(k,2205) = .500_r8*rxt(k,503)*y(k,180) + mat(k,667) = rxt(k,497)*y(k,228) + mat(k,1075) = .500_r8*rxt(k,503)*y(k,126) + rxt(k,504)*y(k,228) + mat(k,1775) = rxt(k,497)*y(k,177) + rxt(k,504)*y(k,180) + mat(k,1061) = -(rxt(k,499)*y(k,201) + rxt(k,500)*y(k,90) + rxt(k,501) & *y(k,124)) - mat(k,2382) = -rxt(k,495)*y(k,234) - mat(k,2328) = -rxt(k,496)*y(k,234) - mat(k,1884) = -rxt(k,497)*y(k,234) - mat(k,977) = rxt(k,481)*y(k,228) - mat(k,1021) = rxt(k,484)*y(k,228) - mat(k,487) = rxt(k,498)*y(k,228) - mat(k,1785) = rxt(k,481)*y(k,6) + rxt(k,484)*y(k,110) + rxt(k,498)*y(k,179) - mat(k,751) = -(rxt(k,466)*y(k,90) + rxt(k,467)*y(k,124)) - mat(k,2313) = -rxt(k,466)*y(k,235) - mat(k,1868) = -rxt(k,467)*y(k,235) - mat(k,667) = rxt(k,468)*y(k,228) - mat(k,191) = .650_r8*rxt(k,469)*y(k,228) - mat(k,1763) = rxt(k,468)*y(k,182) + .650_r8*rxt(k,469)*y(k,183) - mat(k,88) = -(rxt(k,557)*y(k,90) + rxt(k,558)*y(k,124)) - mat(k,2273) = -rxt(k,557)*y(k,236) - mat(k,1842) = -rxt(k,558)*y(k,236) - mat(k,186) = rxt(k,556)*y(k,228) - mat(k,1679) = rxt(k,556)*y(k,183) - mat(k,1233) = -(rxt(k,430)*y(k,200) + rxt(k,431)*y(k,201) + rxt(k,432) & - *y(k,90) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126)) - mat(k,1419) = -rxt(k,430)*y(k,237) - mat(k,2394) = -rxt(k,431)*y(k,237) - mat(k,2339) = -rxt(k,432)*y(k,237) - mat(k,1897) = -rxt(k,433)*y(k,237) - mat(k,1636) = -rxt(k,434)*y(k,237) - mat(k,223) = rxt(k,402)*y(k,228) - mat(k,327) = rxt(k,403)*y(k,228) - mat(k,134) = rxt(k,404)*y(k,228) - mat(k,712) = .400_r8*rxt(k,427)*y(k,228) - mat(k,204) = .500_r8*rxt(k,435)*y(k,228) - mat(k,1799) = rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404)*y(k,98) & - + .400_r8*rxt(k,427)*y(k,103) + .500_r8*rxt(k,435)*y(k,184) - mat(k,767) = -(rxt(k,472)*y(k,90) + rxt(k,473)*y(k,124)) - mat(k,2314) = -rxt(k,472)*y(k,238) - mat(k,1869) = -rxt(k,473)*y(k,238) - mat(k,211) = .560_r8*rxt(k,471)*y(k,228) - mat(k,731) = rxt(k,474)*y(k,228) - mat(k,1764) = .560_r8*rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186) - mat(k,94) = -(rxt(k,560)*y(k,90) + rxt(k,561)*y(k,124)) - mat(k,2274) = -rxt(k,560)*y(k,239) - mat(k,1843) = -rxt(k,561)*y(k,239) - mat(k,206) = rxt(k,559)*y(k,228) - mat(k,1680) = rxt(k,559)*y(k,185) - mat(k,510) = -(rxt(k,475)*y(k,90) + rxt(k,476)*y(k,124)) - mat(k,2299) = -rxt(k,475)*y(k,240) - mat(k,1856) = -rxt(k,476)*y(k,240) - mat(k,218) = .300_r8*rxt(k,477)*y(k,228) - mat(k,422) = rxt(k,478)*y(k,228) - mat(k,1737) = .300_r8*rxt(k,477)*y(k,187) + rxt(k,478)*y(k,188) - mat(k,2449) = -(rxt(k,154)*y(k,224) + rxt(k,273)*y(k,73) + rxt(k,518) & + mat(k,2382) = -rxt(k,499)*y(k,234) + mat(k,2305) = -rxt(k,500)*y(k,234) + mat(k,1982) = -rxt(k,501)*y(k,234) + mat(k,1004) = rxt(k,485)*y(k,228) + mat(k,976) = rxt(k,488)*y(k,228) + mat(k,487) = rxt(k,502)*y(k,228) + mat(k,1765) = rxt(k,485)*y(k,6) + rxt(k,488)*y(k,110) + rxt(k,502)*y(k,179) + mat(k,750) = -(rxt(k,470)*y(k,90) + rxt(k,471)*y(k,124)) + mat(k,2290) = -rxt(k,470)*y(k,235) + mat(k,1966) = -rxt(k,471)*y(k,235) + mat(k,677) = rxt(k,472)*y(k,228) + mat(k,191) = .650_r8*rxt(k,473)*y(k,228) + mat(k,1743) = rxt(k,472)*y(k,182) + .650_r8*rxt(k,473)*y(k,183) + mat(k,88) = -(rxt(k,561)*y(k,90) + rxt(k,562)*y(k,124)) + mat(k,2250) = -rxt(k,561)*y(k,236) + mat(k,1939) = -rxt(k,562)*y(k,236) + mat(k,186) = rxt(k,560)*y(k,228) + mat(k,1659) = rxt(k,560)*y(k,183) + mat(k,1232) = -(rxt(k,434)*y(k,200) + rxt(k,435)*y(k,201) + rxt(k,436) & + *y(k,90) + rxt(k,437)*y(k,124) + rxt(k,438)*y(k,126)) + mat(k,1418) = -rxt(k,434)*y(k,237) + mat(k,2394) = -rxt(k,435)*y(k,237) + mat(k,2316) = -rxt(k,436)*y(k,237) + mat(k,1995) = -rxt(k,437)*y(k,237) + mat(k,2209) = -rxt(k,438)*y(k,237) + mat(k,223) = rxt(k,406)*y(k,228) + mat(k,327) = rxt(k,407)*y(k,228) + mat(k,134) = rxt(k,408)*y(k,228) + mat(k,711) = .400_r8*rxt(k,431)*y(k,228) + mat(k,204) = .500_r8*rxt(k,439)*y(k,228) + mat(k,1779) = rxt(k,406)*y(k,95) + rxt(k,407)*y(k,97) + rxt(k,408)*y(k,98) & + + .400_r8*rxt(k,431)*y(k,103) + .500_r8*rxt(k,439)*y(k,184) + mat(k,766) = -(rxt(k,476)*y(k,90) + rxt(k,477)*y(k,124)) + mat(k,2291) = -rxt(k,476)*y(k,238) + mat(k,1967) = -rxt(k,477)*y(k,238) + mat(k,211) = .560_r8*rxt(k,475)*y(k,228) + mat(k,723) = rxt(k,478)*y(k,228) + mat(k,1744) = .560_r8*rxt(k,475)*y(k,185) + rxt(k,478)*y(k,186) + mat(k,94) = -(rxt(k,564)*y(k,90) + rxt(k,565)*y(k,124)) + mat(k,2251) = -rxt(k,564)*y(k,239) + mat(k,1940) = -rxt(k,565)*y(k,239) + mat(k,206) = rxt(k,563)*y(k,228) + mat(k,1660) = rxt(k,563)*y(k,185) + mat(k,510) = -(rxt(k,479)*y(k,90) + rxt(k,480)*y(k,124)) + mat(k,2276) = -rxt(k,479)*y(k,240) + mat(k,1953) = -rxt(k,480)*y(k,240) + mat(k,218) = .300_r8*rxt(k,481)*y(k,228) + mat(k,422) = rxt(k,482)*y(k,228) + mat(k,1717) = .300_r8*rxt(k,481)*y(k,187) + rxt(k,482)*y(k,188) + mat(k,2449) = -(rxt(k,154)*y(k,224) + rxt(k,277)*y(k,73) + rxt(k,522) & *y(k,154)) - mat(k,2040) = -rxt(k,154)*y(k,241) - mat(k,933) = -rxt(k,273)*y(k,241) - mat(k,264) = -rxt(k,518)*y(k,241) - mat(k,303) = rxt(k,326)*y(k,228) - mat(k,414) = rxt(k,351)*y(k,228) - mat(k,309) = rxt(k,352)*y(k,228) - mat(k,485) = rxt(k,278)*y(k,228) - mat(k,1997) = rxt(k,297)*y(k,228) - mat(k,610) = rxt(k,280)*y(k,228) - mat(k,126) = rxt(k,281)*y(k,228) - mat(k,1159) = rxt(k,328)*y(k,228) - mat(k,378) = rxt(k,283)*y(k,228) - mat(k,1085) = rxt(k,366)*y(k,228) - mat(k,1288) = rxt(k,354)*y(k,228) - mat(k,709) = rxt(k,334)*y(k,228) - mat(k,626) = rxt(k,335)*y(k,228) - mat(k,459) = rxt(k,303)*y(k,228) - mat(k,2262) = rxt(k,304)*y(k,228) - mat(k,2127) = rxt(k,174)*y(k,90) - mat(k,1472) = rxt(k,179)*y(k,228) - mat(k,588) = rxt(k,180)*y(k,228) - mat(k,835) = rxt(k,264)*y(k,228) - mat(k,297) = rxt(k,288)*y(k,228) - mat(k,1507) = (rxt(k,570)+rxt(k,575))*y(k,92) + (rxt(k,563)+rxt(k,569) & - +rxt(k,574))*y(k,93) + rxt(k,235)*y(k,228) - mat(k,923) = rxt(k,306)*y(k,228) - mat(k,2063) = rxt(k,211)*y(k,228) - mat(k,2370) = rxt(k,174)*y(k,76) + rxt(k,181)*y(k,228) - mat(k,478) = rxt(k,187)*y(k,228) - mat(k,794) = (rxt(k,570)+rxt(k,575))*y(k,85) - mat(k,843) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85) + rxt(k,238)*y(k,228) - mat(k,1279) = .500_r8*rxt(k,379)*y(k,228) - mat(k,100) = rxt(k,519)*y(k,228) - mat(k,549) = rxt(k,360)*y(k,228) - mat(k,402) = rxt(k,364)*y(k,228) - mat(k,1831) = rxt(k,326)*y(k,28) + rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31) & - + rxt(k,278)*y(k,41) + rxt(k,297)*y(k,42) + rxt(k,280)*y(k,43) & - + rxt(k,281)*y(k,44) + rxt(k,328)*y(k,45) + rxt(k,283)*y(k,46) & - + rxt(k,366)*y(k,48) + rxt(k,354)*y(k,49) + rxt(k,334)*y(k,50) & - + rxt(k,335)*y(k,51) + rxt(k,303)*y(k,53) + rxt(k,304)*y(k,54) & - + rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,264)*y(k,81) & - + rxt(k,288)*y(k,84) + rxt(k,235)*y(k,85) + rxt(k,306)*y(k,87) & - + rxt(k,211)*y(k,89) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) & - + rxt(k,238)*y(k,93) + .500_r8*rxt(k,379)*y(k,105) + rxt(k,519) & - *y(k,120) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) & - + 2.000_r8*rxt(k,184)*y(k,228) + mat(k,1646) = -rxt(k,154)*y(k,241) + mat(k,932) = -rxt(k,277)*y(k,241) + mat(k,264) = -rxt(k,522)*y(k,241) + mat(k,303) = rxt(k,330)*y(k,228) + mat(k,414) = rxt(k,355)*y(k,228) + mat(k,309) = rxt(k,356)*y(k,228) + mat(k,485) = rxt(k,282)*y(k,228) + mat(k,1928) = rxt(k,301)*y(k,228) + mat(k,605) = rxt(k,284)*y(k,228) + mat(k,126) = rxt(k,285)*y(k,228) + mat(k,1158) = rxt(k,332)*y(k,228) + mat(k,378) = rxt(k,287)*y(k,228) + mat(k,1084) = rxt(k,370)*y(k,228) + mat(k,1287) = rxt(k,358)*y(k,228) + mat(k,708) = rxt(k,338)*y(k,228) + mat(k,621) = rxt(k,339)*y(k,228) + mat(k,459) = rxt(k,307)*y(k,228) + mat(k,1579) = rxt(k,308)*y(k,228) + mat(k,2179) = rxt(k,175)*y(k,90) + mat(k,1471) = rxt(k,180)*y(k,228) + mat(k,592) = rxt(k,181)*y(k,228) + mat(k,834) = rxt(k,268)*y(k,228) + mat(k,297) = rxt(k,292)*y(k,228) + mat(k,1506) = (rxt(k,574)+rxt(k,579))*y(k,92) + (rxt(k,567)+rxt(k,573) & + +rxt(k,578))*y(k,93) + rxt(k,239)*y(k,228) + mat(k,922) = rxt(k,310)*y(k,228) + mat(k,2370) = rxt(k,212)*y(k,228) + mat(k,2347) = rxt(k,175)*y(k,76) + rxt(k,182)*y(k,228) + mat(k,478) = rxt(k,189)*y(k,228) + mat(k,793) = (rxt(k,574)+rxt(k,579))*y(k,85) + mat(k,842) = (rxt(k,567)+rxt(k,573)+rxt(k,578))*y(k,85) + rxt(k,242)*y(k,228) + mat(k,1278) = .500_r8*rxt(k,383)*y(k,228) + mat(k,100) = rxt(k,523)*y(k,228) + mat(k,544) = rxt(k,364)*y(k,228) + mat(k,402) = rxt(k,368)*y(k,228) + mat(k,1811) = rxt(k,330)*y(k,28) + rxt(k,355)*y(k,30) + rxt(k,356)*y(k,31) & + + rxt(k,282)*y(k,41) + rxt(k,301)*y(k,42) + rxt(k,284)*y(k,43) & + + rxt(k,285)*y(k,44) + rxt(k,332)*y(k,45) + rxt(k,287)*y(k,46) & + + rxt(k,370)*y(k,48) + rxt(k,358)*y(k,49) + rxt(k,338)*y(k,50) & + + rxt(k,339)*y(k,51) + rxt(k,307)*y(k,53) + rxt(k,308)*y(k,54) & + + rxt(k,180)*y(k,77) + rxt(k,181)*y(k,79) + rxt(k,268)*y(k,81) & + + rxt(k,292)*y(k,84) + rxt(k,239)*y(k,85) + rxt(k,310)*y(k,87) & + + rxt(k,212)*y(k,89) + rxt(k,182)*y(k,90) + rxt(k,189)*y(k,91) & + + rxt(k,242)*y(k,93) + .500_r8*rxt(k,383)*y(k,105) + rxt(k,523) & + *y(k,120) + rxt(k,364)*y(k,148) + rxt(k,368)*y(k,149) & + + 2.000_r8*rxt(k,185)*y(k,228) end do end subroutine nlnmat11 subroutine nlnmat_finit( avec_len, mat, lmat, dti ) @@ -2843,7 +2852,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 251) = mat(k, 251) + lmat(k, 251) mat(k, 255) = mat(k, 255) + lmat(k, 255) mat(k, 256) = mat(k, 256) + lmat(k, 256) - mat(k, 259) = mat(k, 259) + lmat(k, 259) + mat(k, 258) = mat(k, 258) + lmat(k, 258) mat(k, 261) = mat(k, 261) + lmat(k, 261) mat(k, 262) = lmat(k, 262) mat(k, 263) = lmat(k, 263) @@ -2882,8 +2891,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 332) = lmat(k, 332) mat(k, 333) = lmat(k, 333) mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 337) = mat(k, 337) + lmat(k, 337) - mat(k, 338) = lmat(k, 338) + mat(k, 337) = lmat(k, 337) + mat(k, 338) = mat(k, 338) + lmat(k, 338) mat(k, 339) = mat(k, 339) + lmat(k, 339) mat(k, 341) = lmat(k, 341) mat(k, 342) = mat(k, 342) + lmat(k, 342) @@ -2939,10 +2948,10 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 425) = mat(k, 425) + lmat(k, 425) mat(k, 426) = lmat(k, 426) mat(k, 427) = mat(k, 427) + lmat(k, 427) - mat(k, 431) = lmat(k, 431) + mat(k, 432) = lmat(k, 432) mat(k, 435) = mat(k, 435) + lmat(k, 435) mat(k, 441) = mat(k, 441) + lmat(k, 441) - mat(k, 445) = lmat(k, 445) + mat(k, 444) = lmat(k, 444) mat(k, 446) = mat(k, 446) + lmat(k, 446) mat(k, 448) = mat(k, 448) + lmat(k, 448) mat(k, 454) = mat(k, 454) + lmat(k, 454) @@ -2957,9 +2966,9 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 467) = lmat(k, 467) mat(k, 468) = mat(k, 468) + lmat(k, 468) mat(k, 472) = mat(k, 472) + lmat(k, 472) - mat(k, 474) = lmat(k, 474) + mat(k, 474) = mat(k, 474) + lmat(k, 474) mat(k, 475) = mat(k, 475) + lmat(k, 475) - mat(k, 476) = mat(k, 476) + lmat(k, 476) + mat(k, 476) = lmat(k, 476) mat(k, 477) = lmat(k, 477) mat(k, 479) = mat(k, 479) + lmat(k, 479) mat(k, 481) = mat(k, 481) + lmat(k, 481) @@ -2977,306 +2986,307 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 520) = lmat(k, 520) mat(k, 523) = mat(k, 523) + lmat(k, 523) mat(k, 529) = mat(k, 529) + lmat(k, 529) - mat(k, 534) = mat(k, 534) + lmat(k, 534) - mat(k, 535) = lmat(k, 535) + mat(k, 530) = lmat(k, 530) + mat(k, 531) = lmat(k, 531) + mat(k, 533) = lmat(k, 533) + mat(k, 535) = mat(k, 535) + lmat(k, 535) mat(k, 536) = lmat(k, 536) mat(k, 537) = mat(k, 537) + lmat(k, 537) mat(k, 539) = lmat(k, 539) - mat(k, 541) = lmat(k, 541) - mat(k, 542) = mat(k, 542) + lmat(k, 542) - mat(k, 544) = lmat(k, 544) - mat(k, 546) = mat(k, 546) + lmat(k, 546) - mat(k, 547) = lmat(k, 547) - mat(k, 548) = lmat(k, 548) - mat(k, 550) = mat(k, 550) + lmat(k, 550) - mat(k, 558) = mat(k, 558) + lmat(k, 558) - mat(k, 564) = lmat(k, 564) - mat(k, 566) = mat(k, 566) + lmat(k, 566) - mat(k, 567) = lmat(k, 567) + mat(k, 541) = mat(k, 541) + lmat(k, 541) + mat(k, 542) = lmat(k, 542) + mat(k, 543) = lmat(k, 543) + mat(k, 545) = mat(k, 545) + lmat(k, 545) + mat(k, 553) = mat(k, 553) + lmat(k, 553) + mat(k, 560) = lmat(k, 560) + mat(k, 561) = mat(k, 561) + lmat(k, 561) + mat(k, 562) = lmat(k, 562) + mat(k, 563) = lmat(k, 563) + mat(k, 564) = mat(k, 564) + lmat(k, 564) + mat(k, 565) = lmat(k, 565) + mat(k, 567) = mat(k, 567) + lmat(k, 567) mat(k, 568) = lmat(k, 568) mat(k, 569) = mat(k, 569) + lmat(k, 569) - mat(k, 570) = mat(k, 570) + lmat(k, 570) - mat(k, 571) = lmat(k, 571) - mat(k, 572) = lmat(k, 572) - mat(k, 574) = mat(k, 574) + lmat(k, 574) - mat(k, 582) = mat(k, 582) + lmat(k, 582) - mat(k, 584) = mat(k, 584) + lmat(k, 584) - mat(k, 589) = mat(k, 589) + lmat(k, 589) + mat(k, 577) = mat(k, 577) + lmat(k, 577) + mat(k, 585) = lmat(k, 585) + mat(k, 586) = mat(k, 586) + lmat(k, 586) + mat(k, 588) = mat(k, 588) + lmat(k, 588) + mat(k, 593) = lmat(k, 593) + mat(k, 594) = lmat(k, 594) + mat(k, 595) = lmat(k, 595) mat(k, 596) = lmat(k, 596) - mat(k, 598) = lmat(k, 598) - mat(k, 599) = lmat(k, 599) - mat(k, 600) = lmat(k, 600) - mat(k, 601) = lmat(k, 601) - mat(k, 602) = mat(k, 602) + lmat(k, 602) - mat(k, 604) = mat(k, 604) + lmat(k, 604) - mat(k, 609) = lmat(k, 609) - mat(k, 611) = mat(k, 611) + lmat(k, 611) - mat(k, 613) = lmat(k, 613) - mat(k, 617) = lmat(k, 617) - mat(k, 620) = mat(k, 620) + lmat(k, 620) + mat(k, 597) = mat(k, 597) + lmat(k, 597) + mat(k, 599) = mat(k, 599) + lmat(k, 599) + mat(k, 604) = lmat(k, 604) + mat(k, 606) = mat(k, 606) + lmat(k, 606) + mat(k, 608) = lmat(k, 608) + mat(k, 611) = lmat(k, 611) + mat(k, 615) = mat(k, 615) + lmat(k, 615) + mat(k, 617) = mat(k, 617) + lmat(k, 617) + mat(k, 618) = mat(k, 618) + lmat(k, 618) + mat(k, 620) = lmat(k, 620) mat(k, 622) = mat(k, 622) + lmat(k, 622) - mat(k, 623) = mat(k, 623) + lmat(k, 623) - mat(k, 625) = lmat(k, 625) - mat(k, 627) = mat(k, 627) + lmat(k, 627) - mat(k, 628) = mat(k, 628) + lmat(k, 628) - mat(k, 630) = mat(k, 630) + lmat(k, 630) - mat(k, 631) = lmat(k, 631) - mat(k, 632) = lmat(k, 632) - mat(k, 635) = mat(k, 635) + lmat(k, 635) - mat(k, 641) = lmat(k, 641) - mat(k, 642) = mat(k, 642) + lmat(k, 642) + mat(k, 631) = mat(k, 631) + lmat(k, 631) + mat(k, 632) = mat(k, 632) + lmat(k, 632) + mat(k, 634) = mat(k, 634) + lmat(k, 634) + mat(k, 635) = lmat(k, 635) + mat(k, 636) = lmat(k, 636) + mat(k, 639) = mat(k, 639) + lmat(k, 639) mat(k, 645) = mat(k, 645) + lmat(k, 645) mat(k, 646) = mat(k, 646) + lmat(k, 646) - mat(k, 649) = mat(k, 649) + lmat(k, 649) - mat(k, 650) = mat(k, 650) + lmat(k, 650) mat(k, 651) = lmat(k, 651) mat(k, 652) = mat(k, 652) + lmat(k, 652) - mat(k, 653) = lmat(k, 653) - mat(k, 654) = lmat(k, 654) - mat(k, 655) = lmat(k, 655) - mat(k, 656) = lmat(k, 656) - mat(k, 658) = lmat(k, 658) + mat(k, 655) = mat(k, 655) + lmat(k, 655) + mat(k, 656) = mat(k, 656) + lmat(k, 656) mat(k, 659) = mat(k, 659) + lmat(k, 659) - mat(k, 660) = lmat(k, 660) + mat(k, 660) = mat(k, 660) + lmat(k, 660) mat(k, 661) = lmat(k, 661) - mat(k, 662) = lmat(k, 662) + mat(k, 662) = mat(k, 662) + lmat(k, 662) mat(k, 663) = lmat(k, 663) mat(k, 664) = lmat(k, 664) - mat(k, 665) = mat(k, 665) + lmat(k, 665) + mat(k, 665) = lmat(k, 665) + mat(k, 666) = lmat(k, 666) + mat(k, 668) = lmat(k, 668) + mat(k, 669) = mat(k, 669) + lmat(k, 669) mat(k, 670) = lmat(k, 670) + mat(k, 671) = lmat(k, 671) mat(k, 672) = lmat(k, 672) - mat(k, 673) = mat(k, 673) + lmat(k, 673) + mat(k, 673) = lmat(k, 673) mat(k, 674) = lmat(k, 674) - mat(k, 676) = mat(k, 676) + lmat(k, 676) - mat(k, 686) = lmat(k, 686) - mat(k, 687) = mat(k, 687) + lmat(k, 687) + mat(k, 675) = mat(k, 675) + lmat(k, 675) + mat(k, 680) = lmat(k, 680) + mat(k, 682) = lmat(k, 682) + mat(k, 683) = mat(k, 683) + lmat(k, 683) + mat(k, 684) = lmat(k, 684) + mat(k, 685) = lmat(k, 685) + mat(k, 686) = mat(k, 686) + lmat(k, 686) + mat(k, 690) = lmat(k, 690) mat(k, 691) = lmat(k, 691) - mat(k, 692) = lmat(k, 692) - mat(k, 694) = mat(k, 694) + lmat(k, 694) + mat(k, 693) = mat(k, 693) + lmat(k, 693) + mat(k, 694) = lmat(k, 694) mat(k, 695) = lmat(k, 695) - mat(k, 696) = lmat(k, 696) - mat(k, 698) = mat(k, 698) + lmat(k, 698) - mat(k, 705) = mat(k, 705) + lmat(k, 705) - mat(k, 711) = mat(k, 711) + lmat(k, 711) + mat(k, 697) = mat(k, 697) + lmat(k, 697) + mat(k, 704) = mat(k, 704) + lmat(k, 704) + mat(k, 710) = mat(k, 710) + lmat(k, 710) + mat(k, 712) = lmat(k, 712) mat(k, 713) = lmat(k, 713) - mat(k, 714) = lmat(k, 714) - mat(k, 715) = mat(k, 715) + lmat(k, 715) + mat(k, 714) = mat(k, 714) + lmat(k, 714) + mat(k, 715) = lmat(k, 715) mat(k, 716) = lmat(k, 716) mat(k, 717) = lmat(k, 717) - mat(k, 718) = mat(k, 718) + lmat(k, 718) - mat(k, 725) = lmat(k, 725) + mat(k, 718) = lmat(k, 718) + mat(k, 719) = lmat(k, 719) + mat(k, 720) = lmat(k, 720) + mat(k, 721) = mat(k, 721) + lmat(k, 721) mat(k, 726) = lmat(k, 726) - mat(k, 727) = lmat(k, 727) mat(k, 728) = lmat(k, 728) - mat(k, 729) = mat(k, 729) + lmat(k, 729) - mat(k, 734) = lmat(k, 734) - mat(k, 736) = lmat(k, 736) - mat(k, 738) = mat(k, 738) + lmat(k, 738) - mat(k, 739) = lmat(k, 739) - mat(k, 740) = mat(k, 740) + lmat(k, 740) - mat(k, 751) = mat(k, 751) + lmat(k, 751) - mat(k, 767) = mat(k, 767) + lmat(k, 767) - mat(k, 778) = mat(k, 778) + lmat(k, 778) - mat(k, 787) = mat(k, 787) + lmat(k, 787) - mat(k, 789) = lmat(k, 789) - mat(k, 791) = mat(k, 791) + lmat(k, 791) - mat(k, 797) = mat(k, 797) + lmat(k, 797) - mat(k, 805) = mat(k, 805) + lmat(k, 805) - mat(k, 806) = lmat(k, 806) - mat(k, 808) = lmat(k, 808) - mat(k, 814) = mat(k, 814) + lmat(k, 814) - mat(k, 824) = mat(k, 824) + lmat(k, 824) + mat(k, 730) = mat(k, 730) + lmat(k, 730) + mat(k, 731) = lmat(k, 731) + mat(k, 732) = mat(k, 732) + lmat(k, 732) + mat(k, 739) = mat(k, 739) + lmat(k, 739) + mat(k, 750) = mat(k, 750) + lmat(k, 750) + mat(k, 766) = mat(k, 766) + lmat(k, 766) + mat(k, 777) = mat(k, 777) + lmat(k, 777) + mat(k, 786) = mat(k, 786) + lmat(k, 786) + mat(k, 788) = lmat(k, 788) + mat(k, 790) = mat(k, 790) + lmat(k, 790) + mat(k, 796) = mat(k, 796) + lmat(k, 796) + mat(k, 804) = mat(k, 804) + lmat(k, 804) + mat(k, 805) = lmat(k, 805) + mat(k, 807) = lmat(k, 807) + mat(k, 813) = mat(k, 813) + lmat(k, 813) + mat(k, 823) = mat(k, 823) + lmat(k, 823) + mat(k, 827) = mat(k, 827) + lmat(k, 827) mat(k, 828) = mat(k, 828) + lmat(k, 828) - mat(k, 829) = mat(k, 829) + lmat(k, 829) - mat(k, 834) = mat(k, 834) + lmat(k, 834) - mat(k, 837) = mat(k, 837) + lmat(k, 837) - mat(k, 840) = mat(k, 840) + lmat(k, 840) - mat(k, 842) = mat(k, 842) + lmat(k, 842) - mat(k, 845) = mat(k, 845) + lmat(k, 845) + mat(k, 833) = mat(k, 833) + lmat(k, 833) + mat(k, 836) = mat(k, 836) + lmat(k, 836) + mat(k, 838) = mat(k, 838) + lmat(k, 838) + mat(k, 839) = mat(k, 839) + lmat(k, 839) + mat(k, 844) = mat(k, 844) + lmat(k, 844) + mat(k, 851) = mat(k, 851) + lmat(k, 851) mat(k, 852) = mat(k, 852) + lmat(k, 852) - mat(k, 853) = mat(k, 853) + lmat(k, 853) mat(k, 857) = mat(k, 857) + lmat(k, 857) - mat(k, 865) = mat(k, 865) + lmat(k, 865) - mat(k, 876) = mat(k, 876) + lmat(k, 876) - mat(k, 892) = mat(k, 892) + lmat(k, 892) - mat(k, 894) = lmat(k, 894) - mat(k, 896) = mat(k, 896) + lmat(k, 896) - mat(k, 897) = lmat(k, 897) - mat(k, 901) = mat(k, 901) + lmat(k, 901) - mat(k, 910) = mat(k, 910) + lmat(k, 910) - mat(k, 919) = mat(k, 919) + lmat(k, 919) - mat(k, 925) = mat(k, 925) + lmat(k, 925) - mat(k, 935) = mat(k, 935) + lmat(k, 935) - mat(k, 947) = mat(k, 947) + lmat(k, 947) - mat(k, 948) = lmat(k, 948) - mat(k, 950) = lmat(k, 950) + mat(k, 864) = mat(k, 864) + lmat(k, 864) + mat(k, 875) = mat(k, 875) + lmat(k, 875) + mat(k, 891) = mat(k, 891) + lmat(k, 891) + mat(k, 893) = lmat(k, 893) + mat(k, 895) = mat(k, 895) + lmat(k, 895) + mat(k, 896) = lmat(k, 896) + mat(k, 900) = mat(k, 900) + lmat(k, 900) + mat(k, 909) = mat(k, 909) + lmat(k, 909) + mat(k, 918) = mat(k, 918) + lmat(k, 918) + mat(k, 924) = mat(k, 924) + lmat(k, 924) + mat(k, 934) = mat(k, 934) + lmat(k, 934) + mat(k, 946) = mat(k, 946) + lmat(k, 946) + mat(k, 947) = lmat(k, 947) + mat(k, 949) = lmat(k, 949) + mat(k, 953) = mat(k, 953) + lmat(k, 953) mat(k, 954) = mat(k, 954) + lmat(k, 954) - mat(k, 955) = mat(k, 955) + lmat(k, 955) mat(k, 957) = mat(k, 957) + lmat(k, 957) - mat(k, 958) = mat(k, 958) + lmat(k, 958) - mat(k, 960) = lmat(k, 960) + mat(k, 958) = lmat(k, 958) + mat(k, 960) = mat(k, 960) + lmat(k, 960) mat(k, 961) = mat(k, 961) + lmat(k, 961) - mat(k, 963) = mat(k, 963) + lmat(k, 963) - mat(k, 974) = mat(k, 974) + lmat(k, 974) - mat(k, 994) = lmat(k, 994) - mat(k, 998) = lmat(k, 998) - mat(k, 999) = mat(k, 999) + lmat(k, 999) - mat(k,1018) = mat(k,1018) + lmat(k,1018) - mat(k,1042) = mat(k,1042) + lmat(k,1042) - mat(k,1053) = lmat(k,1053) - mat(k,1054) = mat(k,1054) + lmat(k,1054) - mat(k,1055) = mat(k,1055) + lmat(k,1055) - mat(k,1058) = mat(k,1058) + lmat(k,1058) - mat(k,1062) = mat(k,1062) + lmat(k,1062) - mat(k,1072) = mat(k,1072) + lmat(k,1072) + mat(k, 962) = mat(k, 962) + lmat(k, 962) + mat(k, 973) = mat(k, 973) + lmat(k, 973) + mat(k,1001) = mat(k,1001) + lmat(k,1001) + mat(k,1025) = mat(k,1025) + lmat(k,1025) + mat(k,1036) = lmat(k,1036) + mat(k,1037) = mat(k,1037) + lmat(k,1037) + mat(k,1038) = mat(k,1038) + lmat(k,1038) + mat(k,1041) = mat(k,1041) + lmat(k,1041) + mat(k,1043) = lmat(k,1043) + mat(k,1047) = lmat(k,1047) + mat(k,1048) = mat(k,1048) + lmat(k,1048) + mat(k,1061) = mat(k,1061) + lmat(k,1061) + mat(k,1071) = mat(k,1071) + lmat(k,1071) + mat(k,1073) = lmat(k,1073) mat(k,1074) = lmat(k,1074) - mat(k,1075) = lmat(k,1075) - mat(k,1079) = lmat(k,1079) - mat(k,1080) = mat(k,1080) + lmat(k,1080) - mat(k,1082) = lmat(k,1082) - mat(k,1084) = lmat(k,1084) - mat(k,1086) = lmat(k,1086) - mat(k,1090) = mat(k,1090) + lmat(k,1090) - mat(k,1097) = lmat(k,1097) + mat(k,1078) = lmat(k,1078) + mat(k,1079) = mat(k,1079) + lmat(k,1079) + mat(k,1081) = lmat(k,1081) + mat(k,1083) = lmat(k,1083) + mat(k,1085) = lmat(k,1085) + mat(k,1089) = mat(k,1089) + lmat(k,1089) + mat(k,1095) = lmat(k,1095) + mat(k,1098) = mat(k,1098) + lmat(k,1098) mat(k,1099) = lmat(k,1099) - mat(k,1100) = mat(k,1100) + lmat(k,1100) - mat(k,1106) = mat(k,1106) + lmat(k,1106) + mat(k,1105) = mat(k,1105) + lmat(k,1105) + mat(k,1117) = mat(k,1117) + lmat(k,1117) mat(k,1118) = mat(k,1118) + lmat(k,1118) mat(k,1119) = mat(k,1119) + lmat(k,1119) mat(k,1120) = mat(k,1120) + lmat(k,1120) mat(k,1121) = mat(k,1121) + lmat(k,1121) mat(k,1122) = mat(k,1122) + lmat(k,1122) - mat(k,1123) = mat(k,1123) + lmat(k,1123) + mat(k,1124) = mat(k,1124) + lmat(k,1124) mat(k,1125) = mat(k,1125) + lmat(k,1125) - mat(k,1126) = mat(k,1126) + lmat(k,1126) - mat(k,1133) = mat(k,1133) + lmat(k,1133) - mat(k,1151) = mat(k,1151) + lmat(k,1151) - mat(k,1152) = lmat(k,1152) + mat(k,1132) = mat(k,1132) + lmat(k,1132) + mat(k,1150) = mat(k,1150) + lmat(k,1150) + mat(k,1151) = lmat(k,1151) + mat(k,1155) = lmat(k,1155) mat(k,1157) = lmat(k,1157) - mat(k,1158) = lmat(k,1158) - mat(k,1160) = mat(k,1160) + lmat(k,1160) - mat(k,1165) = lmat(k,1165) - mat(k,1166) = mat(k,1166) + lmat(k,1166) + mat(k,1159) = mat(k,1159) + lmat(k,1159) + mat(k,1164) = lmat(k,1164) + mat(k,1165) = mat(k,1165) + lmat(k,1165) + mat(k,1168) = mat(k,1168) + lmat(k,1168) mat(k,1169) = mat(k,1169) + lmat(k,1169) - mat(k,1170) = mat(k,1170) + lmat(k,1170) - mat(k,1178) = mat(k,1178) + lmat(k,1178) + mat(k,1177) = mat(k,1177) + lmat(k,1177) + mat(k,1190) = lmat(k,1190) mat(k,1191) = lmat(k,1191) mat(k,1192) = lmat(k,1192) mat(k,1193) = lmat(k,1193) - mat(k,1194) = lmat(k,1194) - mat(k,1195) = mat(k,1195) + lmat(k,1195) - mat(k,1196) = lmat(k,1196) - mat(k,1198) = lmat(k,1198) - mat(k,1202) = lmat(k,1202) - mat(k,1203) = lmat(k,1203) + mat(k,1194) = mat(k,1194) + lmat(k,1194) + mat(k,1195) = lmat(k,1195) + mat(k,1197) = lmat(k,1197) + mat(k,1200) = lmat(k,1200) + mat(k,1201) = lmat(k,1201) + mat(k,1203) = mat(k,1203) + lmat(k,1203) mat(k,1204) = lmat(k,1204) - mat(k,1205) = mat(k,1205) + lmat(k,1205) - mat(k,1208) = mat(k,1208) + lmat(k,1208) - mat(k,1210) = lmat(k,1210) - mat(k,1212) = lmat(k,1212) - mat(k,1213) = mat(k,1213) + lmat(k,1213) - mat(k,1217) = mat(k,1217) + lmat(k,1217) - mat(k,1233) = mat(k,1233) + lmat(k,1233) - mat(k,1253) = mat(k,1253) + lmat(k,1253) + mat(k,1207) = mat(k,1207) + lmat(k,1207) + mat(k,1209) = lmat(k,1209) + mat(k,1211) = lmat(k,1211) + mat(k,1212) = mat(k,1212) + lmat(k,1212) + mat(k,1216) = mat(k,1216) + lmat(k,1216) + mat(k,1232) = mat(k,1232) + lmat(k,1232) + mat(k,1252) = mat(k,1252) + lmat(k,1252) + mat(k,1267) = mat(k,1267) + lmat(k,1267) mat(k,1268) = mat(k,1268) + lmat(k,1268) - mat(k,1269) = mat(k,1269) + lmat(k,1269) + mat(k,1271) = mat(k,1271) + lmat(k,1271) mat(k,1272) = mat(k,1272) + lmat(k,1272) - mat(k,1273) = mat(k,1273) + lmat(k,1273) - mat(k,1276) = mat(k,1276) + lmat(k,1276) - mat(k,1278) = mat(k,1278) + lmat(k,1278) + mat(k,1275) = mat(k,1275) + lmat(k,1275) + mat(k,1277) = mat(k,1277) + lmat(k,1277) + mat(k,1279) = mat(k,1279) + lmat(k,1279) mat(k,1280) = mat(k,1280) + lmat(k,1280) mat(k,1281) = mat(k,1281) + lmat(k,1281) - mat(k,1282) = mat(k,1282) + lmat(k,1282) - mat(k,1287) = lmat(k,1287) - mat(k,1299) = mat(k,1299) + lmat(k,1299) - mat(k,1315) = lmat(k,1315) - mat(k,1332) = mat(k,1332) + lmat(k,1332) - mat(k,1345) = mat(k,1345) + lmat(k,1345) - mat(k,1356) = mat(k,1356) + lmat(k,1356) - mat(k,1370) = lmat(k,1370) - mat(k,1372) = mat(k,1372) + lmat(k,1372) - mat(k,1376) = mat(k,1376) + lmat(k,1376) - mat(k,1378) = mat(k,1378) + lmat(k,1378) - mat(k,1390) = lmat(k,1390) - mat(k,1397) = mat(k,1397) + lmat(k,1397) - mat(k,1428) = mat(k,1428) + lmat(k,1428) + mat(k,1285) = lmat(k,1285) + mat(k,1298) = mat(k,1298) + lmat(k,1298) + mat(k,1314) = lmat(k,1314) + mat(k,1331) = mat(k,1331) + lmat(k,1331) + mat(k,1343) = mat(k,1343) + lmat(k,1343) + mat(k,1355) = mat(k,1355) + lmat(k,1355) + mat(k,1369) = lmat(k,1369) + mat(k,1371) = mat(k,1371) + lmat(k,1371) + mat(k,1375) = mat(k,1375) + lmat(k,1375) + mat(k,1377) = mat(k,1377) + lmat(k,1377) + mat(k,1389) = lmat(k,1389) + mat(k,1396) = mat(k,1396) + lmat(k,1396) + mat(k,1427) = mat(k,1427) + lmat(k,1427) + mat(k,1448) = mat(k,1448) + lmat(k,1448) mat(k,1449) = mat(k,1449) + lmat(k,1449) - mat(k,1450) = mat(k,1450) + lmat(k,1450) - mat(k,1456) = lmat(k,1456) - mat(k,1461) = mat(k,1461) + lmat(k,1461) - mat(k,1474) = lmat(k,1474) - mat(k,1476) = mat(k,1476) + lmat(k,1476) - mat(k,1484) = mat(k,1484) + lmat(k,1484) - mat(k,1495) = mat(k,1495) + lmat(k,1495) - mat(k,1505) = mat(k,1505) + lmat(k,1505) - mat(k,1506) = mat(k,1506) + lmat(k,1506) - mat(k,1511) = mat(k,1511) + lmat(k,1511) - mat(k,1531) = mat(k,1531) + lmat(k,1531) - mat(k,1533) = mat(k,1533) + lmat(k,1533) - mat(k,1534) = lmat(k,1534) - mat(k,1542) = mat(k,1542) + lmat(k,1542) + mat(k,1455) = lmat(k,1455) + mat(k,1460) = mat(k,1460) + lmat(k,1460) + mat(k,1473) = lmat(k,1473) + mat(k,1475) = mat(k,1475) + lmat(k,1475) + mat(k,1483) = mat(k,1483) + lmat(k,1483) + mat(k,1494) = mat(k,1494) + lmat(k,1494) + mat(k,1499) = mat(k,1499) + lmat(k,1499) + mat(k,1503) = mat(k,1503) + lmat(k,1503) + mat(k,1510) = mat(k,1510) + lmat(k,1510) + mat(k,1530) = mat(k,1530) + lmat(k,1530) + mat(k,1532) = mat(k,1532) + lmat(k,1532) + mat(k,1533) = lmat(k,1533) + mat(k,1541) = mat(k,1541) + lmat(k,1541) + mat(k,1543) = mat(k,1543) + lmat(k,1543) mat(k,1549) = mat(k,1549) + lmat(k,1549) - mat(k,1550) = mat(k,1550) + lmat(k,1550) + mat(k,1557) = lmat(k,1557) + mat(k,1558) = lmat(k,1558) + mat(k,1559) = mat(k,1559) + lmat(k,1559) mat(k,1563) = mat(k,1563) + lmat(k,1563) - mat(k,1565) = mat(k,1565) + lmat(k,1565) + mat(k,1566) = mat(k,1566) + lmat(k,1566) + mat(k,1569) = mat(k,1569) + lmat(k,1569) + mat(k,1571) = lmat(k,1571) mat(k,1574) = mat(k,1574) + lmat(k,1574) - mat(k,1592) = mat(k,1592) + lmat(k,1592) - mat(k,1600) = mat(k,1600) + lmat(k,1600) - mat(k,1602) = mat(k,1602) + lmat(k,1602) - mat(k,1649) = mat(k,1649) + lmat(k,1649) - mat(k,1652) = mat(k,1652) + lmat(k,1652) - mat(k,1654) = mat(k,1654) + lmat(k,1654) - mat(k,1655) = mat(k,1655) + lmat(k,1655) - mat(k,1658) = mat(k,1658) + lmat(k,1658) - mat(k,1659) = mat(k,1659) + lmat(k,1659) - mat(k,1818) = mat(k,1818) + lmat(k,1818) - mat(k,1873) = mat(k,1873) + lmat(k,1873) - mat(k,1875) = lmat(k,1875) - mat(k,1881) = mat(k,1881) + lmat(k,1881) - mat(k,1914) = mat(k,1914) + lmat(k,1914) - mat(k,1919) = mat(k,1919) + lmat(k,1919) - mat(k,1958) = mat(k,1958) + lmat(k,1958) - mat(k,1959) = mat(k,1959) + lmat(k,1959) - mat(k,1960) = mat(k,1960) + lmat(k,1960) - mat(k,1963) = mat(k,1963) + lmat(k,1963) - mat(k,1964) = mat(k,1964) + lmat(k,1964) - mat(k,1975) = mat(k,1975) + lmat(k,1975) - mat(k,1977) = lmat(k,1977) - mat(k,1987) = mat(k,1987) + lmat(k,1987) - mat(k,1991) = mat(k,1991) + lmat(k,1991) - mat(k,2031) = mat(k,2031) + lmat(k,2031) - mat(k,2033) = mat(k,2033) + lmat(k,2033) - mat(k,2050) = mat(k,2050) + lmat(k,2050) - mat(k,2052) = lmat(k,2052) - mat(k,2055) = mat(k,2055) + lmat(k,2055) - mat(k,2074) = mat(k,2074) + lmat(k,2074) - mat(k,2079) = lmat(k,2079) - mat(k,2099) = mat(k,2099) + lmat(k,2099) - mat(k,2121) = mat(k,2121) + lmat(k,2121) - mat(k,2168) = mat(k,2168) + lmat(k,2168) - mat(k,2179) = mat(k,2179) + lmat(k,2179) - mat(k,2220) = mat(k,2220) + lmat(k,2220) + mat(k,1578) = mat(k,1578) + lmat(k,1578) + mat(k,1579) = mat(k,1579) + lmat(k,1579) + mat(k,1587) = mat(k,1587) + lmat(k,1587) + mat(k,1589) = mat(k,1589) + lmat(k,1589) + mat(k,1596) = mat(k,1596) + lmat(k,1596) + mat(k,1632) = mat(k,1632) + lmat(k,1632) + mat(k,1638) = mat(k,1638) + lmat(k,1638) + mat(k,1798) = mat(k,1798) + lmat(k,1798) + mat(k,1845) = mat(k,1845) + lmat(k,1845) + mat(k,1889) = mat(k,1889) + lmat(k,1889) + mat(k,1891) = mat(k,1891) + lmat(k,1891) + mat(k,1893) = mat(k,1893) + lmat(k,1893) + mat(k,1894) = mat(k,1894) + lmat(k,1894) + mat(k,1900) = mat(k,1900) + lmat(k,1900) + mat(k,1906) = mat(k,1906) + lmat(k,1906) + mat(k,1908) = lmat(k,1908) + mat(k,1918) = mat(k,1918) + lmat(k,1918) + mat(k,1923) = mat(k,1923) + lmat(k,1923) + mat(k,1971) = mat(k,1971) + lmat(k,1971) + mat(k,1973) = lmat(k,1973) + mat(k,1981) = mat(k,1981) + lmat(k,1981) + mat(k,2015) = mat(k,2015) + lmat(k,2015) + mat(k,2016) = mat(k,2016) + lmat(k,2016) + mat(k,2035) = mat(k,2035) + lmat(k,2035) + mat(k,2040) = lmat(k,2040) + mat(k,2059) = mat(k,2059) + lmat(k,2059) + mat(k,2073) = mat(k,2073) + lmat(k,2073) + mat(k,2114) = mat(k,2114) + lmat(k,2114) + mat(k,2117) = mat(k,2117) + lmat(k,2117) + mat(k,2123) = mat(k,2123) + lmat(k,2123) + mat(k,2124) = mat(k,2124) + lmat(k,2124) + mat(k,2146) = mat(k,2146) + lmat(k,2146) + mat(k,2150) = mat(k,2150) + lmat(k,2150) + mat(k,2152) = mat(k,2152) + lmat(k,2152) + mat(k,2174) = mat(k,2174) + lmat(k,2174) + mat(k,2222) = mat(k,2222) + lmat(k,2222) mat(k,2228) = mat(k,2228) + lmat(k,2228) mat(k,2230) = mat(k,2230) + lmat(k,2230) - mat(k,2233) = mat(k,2233) + lmat(k,2233) - mat(k,2240) = lmat(k,2240) - mat(k,2241) = lmat(k,2241) - mat(k,2242) = mat(k,2242) + lmat(k,2242) - mat(k,2249) = mat(k,2249) + lmat(k,2249) - mat(k,2252) = mat(k,2252) + lmat(k,2252) - mat(k,2255) = lmat(k,2255) - mat(k,2256) = mat(k,2256) + lmat(k,2256) - mat(k,2259) = mat(k,2259) + lmat(k,2259) - mat(k,2261) = mat(k,2261) + lmat(k,2261) - mat(k,2262) = mat(k,2262) + lmat(k,2262) + mat(k,2231) = mat(k,2231) + lmat(k,2231) + mat(k,2235) = mat(k,2235) + lmat(k,2235) + mat(k,2237) = mat(k,2237) + lmat(k,2237) + mat(k,2344) = mat(k,2344) + lmat(k,2344) + mat(k,2347) = mat(k,2347) + lmat(k,2347) + mat(k,2357) = mat(k,2357) + lmat(k,2357) + mat(k,2359) = lmat(k,2359) mat(k,2368) = mat(k,2368) + lmat(k,2368) - mat(k,2370) = mat(k,2370) + lmat(k,2370) mat(k,2421) = mat(k,2421) + lmat(k,2421) mat(k,2428) = lmat(k,2428) + mat(k,2435) = mat(k,2435) + lmat(k,2435) mat(k,2436) = mat(k,2436) + lmat(k,2436) - mat(k,2440) = mat(k,2440) + lmat(k,2440) - mat(k,2442) = lmat(k,2442) - mat(k,2443) = lmat(k,2443) + mat(k,2441) = lmat(k,2441) + mat(k,2444) = lmat(k,2444) mat(k,2449) = mat(k,2449) + lmat(k,2449) mat(k, 212) = 0._r8 mat(k, 213) = 0._r8 @@ -3289,393 +3299,391 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 496) = 0._r8 mat(k, 498) = 0._r8 mat(k, 513) = 0._r8 - mat(k, 636) = 0._r8 - mat(k, 639) = 0._r8 + mat(k, 640) = 0._r8 mat(k, 643) = 0._r8 - mat(k, 644) = 0._r8 - mat(k, 647) = 0._r8 - mat(k, 666) = 0._r8 - mat(k, 668) = 0._r8 - mat(k, 669) = 0._r8 - mat(k, 671) = 0._r8 - mat(k, 683) = 0._r8 - mat(k, 684) = 0._r8 + mat(k, 653) = 0._r8 + mat(k, 654) = 0._r8 + mat(k, 657) = 0._r8 + mat(k, 676) = 0._r8 + mat(k, 678) = 0._r8 + mat(k, 679) = 0._r8 + mat(k, 681) = 0._r8 + mat(k, 687) = 0._r8 mat(k, 688) = 0._r8 - mat(k, 689) = 0._r8 - mat(k, 693) = 0._r8 - mat(k, 730) = 0._r8 - mat(k, 732) = 0._r8 - mat(k, 733) = 0._r8 - mat(k, 735) = 0._r8 - mat(k, 737) = 0._r8 - mat(k, 750) = 0._r8 + mat(k, 692) = 0._r8 + mat(k, 722) = 0._r8 + mat(k, 724) = 0._r8 + mat(k, 725) = 0._r8 + mat(k, 727) = 0._r8 + mat(k, 729) = 0._r8 + mat(k, 749) = 0._r8 + mat(k, 751) = 0._r8 mat(k, 752) = 0._r8 - mat(k, 753) = 0._r8 - mat(k, 755) = 0._r8 - mat(k, 757) = 0._r8 - mat(k, 766) = 0._r8 + mat(k, 754) = 0._r8 + mat(k, 756) = 0._r8 + mat(k, 765) = 0._r8 + mat(k, 767) = 0._r8 mat(k, 768) = 0._r8 - mat(k, 769) = 0._r8 - mat(k, 771) = 0._r8 + mat(k, 770) = 0._r8 + mat(k, 772) = 0._r8 mat(k, 773) = 0._r8 - mat(k, 774) = 0._r8 - mat(k, 793) = 0._r8 + mat(k, 791) = 0._r8 + mat(k, 797) = 0._r8 mat(k, 798) = 0._r8 mat(k, 799) = 0._r8 - mat(k, 800) = 0._r8 - mat(k, 816) = 0._r8 - mat(k, 818) = 0._r8 - mat(k, 823) = 0._r8 + mat(k, 815) = 0._r8 + mat(k, 817) = 0._r8 + mat(k, 822) = 0._r8 + mat(k, 847) = 0._r8 mat(k, 848) = 0._r8 mat(k, 849) = 0._r8 - mat(k, 850) = 0._r8 - mat(k, 862) = 0._r8 + mat(k, 861) = 0._r8 + mat(k, 866) = 0._r8 mat(k, 867) = 0._r8 mat(k, 868) = 0._r8 - mat(k, 869) = 0._r8 mat(k, 870) = 0._r8 - mat(k, 904) = 0._r8 - mat(k, 939) = 0._r8 - mat(k, 945) = 0._r8 - mat(k, 952) = 0._r8 - mat(k, 964) = 0._r8 + mat(k, 903) = 0._r8 + mat(k, 938) = 0._r8 + mat(k, 944) = 0._r8 + mat(k, 951) = 0._r8 + mat(k, 963) = 0._r8 + mat(k, 974) = 0._r8 mat(k, 975) = 0._r8 - mat(k, 976) = 0._r8 - mat(k, 984) = 0._r8 - mat(k, 992) = 0._r8 - mat(k, 995) = 0._r8 - mat(k,1000) = 0._r8 - mat(k,1001) = 0._r8 - mat(k,1006) = 0._r8 + mat(k, 983) = 0._r8 + mat(k, 991) = 0._r8 + mat(k,1002) = 0._r8 + mat(k,1003) = 0._r8 + mat(k,1011) = 0._r8 mat(k,1019) = 0._r8 - mat(k,1020) = 0._r8 + mat(k,1023) = 0._r8 + mat(k,1024) = 0._r8 mat(k,1028) = 0._r8 - mat(k,1036) = 0._r8 - mat(k,1040) = 0._r8 - mat(k,1041) = 0._r8 - mat(k,1045) = 0._r8 - mat(k,1046) = 0._r8 - mat(k,1047) = 0._r8 + mat(k,1029) = 0._r8 + mat(k,1030) = 0._r8 + mat(k,1035) = 0._r8 + mat(k,1044) = 0._r8 + mat(k,1049) = 0._r8 + mat(k,1050) = 0._r8 mat(k,1052) = 0._r8 - mat(k,1065) = 0._r8 + mat(k,1064) = 0._r8 mat(k,1069) = 0._r8 - mat(k,1088) = 0._r8 + mat(k,1087) = 0._r8 + mat(k,1090) = 0._r8 mat(k,1091) = 0._r8 mat(k,1092) = 0._r8 mat(k,1093) = 0._r8 - mat(k,1094) = 0._r8 mat(k,1096) = 0._r8 - mat(k,1098) = 0._r8 - mat(k,1101) = 0._r8 + mat(k,1097) = 0._r8 + mat(k,1100) = 0._r8 + mat(k,1106) = 0._r8 mat(k,1107) = 0._r8 mat(k,1108) = 0._r8 mat(k,1109) = 0._r8 - mat(k,1111) = 0._r8 mat(k,1115) = 0._r8 + mat(k,1126) = 0._r8 mat(k,1127) = 0._r8 - mat(k,1128) = 0._r8 + mat(k,1135) = 0._r8 mat(k,1136) = 0._r8 mat(k,1137) = 0._r8 - mat(k,1138) = 0._r8 - mat(k,1140) = 0._r8 - mat(k,1143) = 0._r8 + mat(k,1139) = 0._r8 + mat(k,1142) = 0._r8 mat(k,1144) = 0._r8 - mat(k,1150) = 0._r8 + mat(k,1149) = 0._r8 + mat(k,1178) = 0._r8 mat(k,1179) = 0._r8 - mat(k,1180) = 0._r8 - mat(k,1182) = 0._r8 + mat(k,1181) = 0._r8 mat(k,1186) = 0._r8 - mat(k,1189) = 0._r8 - mat(k,1197) = 0._r8 - mat(k,1199) = 0._r8 - mat(k,1200) = 0._r8 + mat(k,1188) = 0._r8 + mat(k,1196) = 0._r8 + mat(k,1198) = 0._r8 + mat(k,1202) = 0._r8 + mat(k,1205) = 0._r8 mat(k,1206) = 0._r8 - mat(k,1207) = 0._r8 - mat(k,1226) = 0._r8 - mat(k,1238) = 0._r8 - mat(k,1246) = 0._r8 - mat(k,1248) = 0._r8 + mat(k,1225) = 0._r8 + mat(k,1236) = 0._r8 + mat(k,1245) = 0._r8 + mat(k,1247) = 0._r8 + mat(k,1249) = 0._r8 mat(k,1250) = 0._r8 mat(k,1251) = 0._r8 - mat(k,1252) = 0._r8 + mat(k,1253) = 0._r8 mat(k,1254) = 0._r8 mat(k,1255) = 0._r8 - mat(k,1256) = 0._r8 + mat(k,1257) = 0._r8 mat(k,1258) = 0._r8 - mat(k,1260) = 0._r8 mat(k,1264) = 0._r8 - mat(k,1274) = 0._r8 - mat(k,1283) = 0._r8 + mat(k,1273) = 0._r8 + mat(k,1282) = 0._r8 + mat(k,1291) = 0._r8 mat(k,1292) = 0._r8 mat(k,1293) = 0._r8 mat(k,1294) = 0._r8 mat(k,1295) = 0._r8 - mat(k,1296) = 0._r8 - mat(k,1298) = 0._r8 - mat(k,1300) = 0._r8 - mat(k,1302) = 0._r8 - mat(k,1306) = 0._r8 - mat(k,1310) = 0._r8 + mat(k,1297) = 0._r8 + mat(k,1299) = 0._r8 + mat(k,1301) = 0._r8 + mat(k,1304) = 0._r8 + mat(k,1308) = 0._r8 mat(k,1311) = 0._r8 - mat(k,1314) = 0._r8 - mat(k,1318) = 0._r8 + mat(k,1313) = 0._r8 + mat(k,1317) = 0._r8 + mat(k,1320) = 0._r8 mat(k,1321) = 0._r8 - mat(k,1322) = 0._r8 - mat(k,1324) = 0._r8 - mat(k,1326) = 0._r8 + mat(k,1323) = 0._r8 + mat(k,1325) = 0._r8 + mat(k,1327) = 0._r8 mat(k,1328) = 0._r8 mat(k,1329) = 0._r8 - mat(k,1330) = 0._r8 + mat(k,1332) = 0._r8 mat(k,1333) = 0._r8 mat(k,1334) = 0._r8 - mat(k,1335) = 0._r8 + mat(k,1336) = 0._r8 mat(k,1337) = 0._r8 - mat(k,1339) = 0._r8 - mat(k,1343) = 0._r8 + mat(k,1341) = 0._r8 mat(k,1344) = 0._r8 - mat(k,1347) = 0._r8 - mat(k,1354) = 0._r8 - mat(k,1357) = 0._r8 + mat(k,1346) = 0._r8 + mat(k,1353) = 0._r8 + mat(k,1356) = 0._r8 + mat(k,1358) = 0._r8 mat(k,1359) = 0._r8 - mat(k,1361) = 0._r8 mat(k,1365) = 0._r8 - mat(k,1368) = 0._r8 - mat(k,1373) = 0._r8 - mat(k,1377) = 0._r8 + mat(k,1367) = 0._r8 + mat(k,1372) = 0._r8 + mat(k,1376) = 0._r8 + mat(k,1379) = 0._r8 mat(k,1380) = 0._r8 - mat(k,1381) = 0._r8 - mat(k,1383) = 0._r8 + mat(k,1382) = 0._r8 mat(k,1384) = 0._r8 mat(k,1386) = 0._r8 mat(k,1388) = 0._r8 - mat(k,1391) = 0._r8 + mat(k,1390) = 0._r8 + mat(k,1394) = 0._r8 mat(k,1395) = 0._r8 - mat(k,1396) = 0._r8 - mat(k,1405) = 0._r8 - mat(k,1409) = 0._r8 + mat(k,1406) = 0._r8 + mat(k,1408) = 0._r8 + mat(k,1429) = 0._r8 mat(k,1430) = 0._r8 - mat(k,1431) = 0._r8 mat(k,1436) = 0._r8 mat(k,1438) = 0._r8 - mat(k,1441) = 0._r8 - mat(k,1445) = 0._r8 + mat(k,1440) = 0._r8 + mat(k,1444) = 0._r8 + mat(k,1446) = 0._r8 mat(k,1447) = 0._r8 - mat(k,1448) = 0._r8 + mat(k,1450) = 0._r8 mat(k,1451) = 0._r8 mat(k,1452) = 0._r8 mat(k,1453) = 0._r8 mat(k,1454) = 0._r8 - mat(k,1455) = 0._r8 + mat(k,1456) = 0._r8 mat(k,1457) = 0._r8 - mat(k,1458) = 0._r8 - mat(k,1463) = 0._r8 - mat(k,1466) = 0._r8 + mat(k,1462) = 0._r8 + mat(k,1468) = 0._r8 + mat(k,1469) = 0._r8 mat(k,1470) = 0._r8 - mat(k,1471) = 0._r8 + mat(k,1487) = 0._r8 mat(k,1488) = 0._r8 - mat(k,1489) = 0._r8 + mat(k,1495) = 0._r8 mat(k,1496) = 0._r8 - mat(k,1497) = 0._r8 - mat(k,1499) = 0._r8 - mat(k,1501) = 0._r8 - mat(k,1510) = 0._r8 + mat(k,1500) = 0._r8 + mat(k,1504) = 0._r8 + mat(k,1509) = 0._r8 + mat(k,1513) = 0._r8 mat(k,1514) = 0._r8 mat(k,1515) = 0._r8 - mat(k,1516) = 0._r8 + mat(k,1517) = 0._r8 mat(k,1518) = 0._r8 - mat(k,1519) = 0._r8 mat(k,1520) = 0._r8 - mat(k,1523) = 0._r8 - mat(k,1537) = 0._r8 - mat(k,1539) = 0._r8 - mat(k,1541) = 0._r8 - mat(k,1543) = 0._r8 + mat(k,1522) = 0._r8 + mat(k,1536) = 0._r8 + mat(k,1538) = 0._r8 + mat(k,1540) = 0._r8 + mat(k,1542) = 0._r8 mat(k,1544) = 0._r8 mat(k,1545) = 0._r8 + mat(k,1546) = 0._r8 mat(k,1547) = 0._r8 - mat(k,1548) = 0._r8 - mat(k,1552) = 0._r8 - mat(k,1555) = 0._r8 + mat(k,1551) = 0._r8 + mat(k,1554) = 0._r8 + mat(k,1561) = 0._r8 mat(k,1562) = 0._r8 - mat(k,1567) = 0._r8 - mat(k,1571) = 0._r8 + mat(k,1564) = 0._r8 + mat(k,1568) = 0._r8 + mat(k,1570) = 0._r8 mat(k,1572) = 0._r8 mat(k,1573) = 0._r8 mat(k,1575) = 0._r8 mat(k,1577) = 0._r8 - mat(k,1579) = 0._r8 - mat(k,1593) = 0._r8 - mat(k,1598) = 0._r8 + mat(k,1586) = 0._r8 + mat(k,1590) = 0._r8 + mat(k,1594) = 0._r8 + mat(k,1597) = 0._r8 mat(k,1599) = 0._r8 - mat(k,1601) = 0._r8 + mat(k,1600) = 0._r8 + mat(k,1602) = 0._r8 mat(k,1603) = 0._r8 - mat(k,1606) = 0._r8 - mat(k,1613) = 0._r8 - mat(k,1616) = 0._r8 - mat(k,1620) = 0._r8 - mat(k,1622) = 0._r8 - mat(k,1627) = 0._r8 - mat(k,1633) = 0._r8 mat(k,1635) = 0._r8 - mat(k,1646) = 0._r8 - mat(k,1647) = 0._r8 - mat(k,1648) = 0._r8 - mat(k,1650) = 0._r8 - mat(k,1651) = 0._r8 - mat(k,1657) = 0._r8 - mat(k,1660) = 0._r8 - mat(k,1661) = 0._r8 - mat(k,1662) = 0._r8 - mat(k,1663) = 0._r8 - mat(k,1665) = 0._r8 - mat(k,1666) = 0._r8 - mat(k,1731) = 0._r8 - mat(k,1747) = 0._r8 - mat(k,1762) = 0._r8 - mat(k,1765) = 0._r8 - mat(k,1774) = 0._r8 - mat(k,1776) = 0._r8 - mat(k,1800) = 0._r8 + mat(k,1642) = 0._r8 + mat(k,1644) = 0._r8 + mat(k,1711) = 0._r8 + mat(k,1727) = 0._r8 + mat(k,1742) = 0._r8 + mat(k,1745) = 0._r8 + mat(k,1754) = 0._r8 + mat(k,1756) = 0._r8 + mat(k,1780) = 0._r8 + mat(k,1797) = 0._r8 mat(k,1822) = 0._r8 + mat(k,1825) = 0._r8 + mat(k,1828) = 0._r8 + mat(k,1829) = 0._r8 + mat(k,1830) = 0._r8 + mat(k,1832) = 0._r8 + mat(k,1833) = 0._r8 + mat(k,1834) = 0._r8 + mat(k,1835) = 0._r8 + mat(k,1836) = 0._r8 + mat(k,1842) = 0._r8 + mat(k,1843) = 0._r8 + mat(k,1846) = 0._r8 + mat(k,1848) = 0._r8 + mat(k,1849) = 0._r8 + mat(k,1855) = 0._r8 + mat(k,1857) = 0._r8 + mat(k,1867) = 0._r8 + mat(k,1870) = 0._r8 + mat(k,1874) = 0._r8 mat(k,1876) = 0._r8 + mat(k,1877) = 0._r8 + mat(k,1878) = 0._r8 + mat(k,1881) = 0._r8 + mat(k,1883) = 0._r8 + mat(k,1884) = 0._r8 + mat(k,1886) = 0._r8 + mat(k,1888) = 0._r8 + mat(k,1890) = 0._r8 + mat(k,1892) = 0._r8 + mat(k,1897) = 0._r8 + mat(k,1901) = 0._r8 + mat(k,1902) = 0._r8 + mat(k,1905) = 0._r8 + mat(k,1907) = 0._r8 + mat(k,1911) = 0._r8 + mat(k,1912) = 0._r8 + mat(k,1913) = 0._r8 + mat(k,1914) = 0._r8 mat(k,1917) = 0._r8 - mat(k,1918) = 0._r8 - mat(k,1920) = 0._r8 - mat(k,1923) = 0._r8 - mat(k,1926) = 0._r8 - mat(k,1936) = 0._r8 - mat(k,1939) = 0._r8 - mat(k,1944) = 0._r8 - mat(k,1945) = 0._r8 - mat(k,1946) = 0._r8 - mat(k,1947) = 0._r8 - mat(k,1950) = 0._r8 - mat(k,1952) = 0._r8 - mat(k,1953) = 0._r8 - mat(k,1961) = 0._r8 - mat(k,1962) = 0._r8 - mat(k,1965) = 0._r8 - mat(k,1966) = 0._r8 - mat(k,1968) = 0._r8 - mat(k,1970) = 0._r8 - mat(k,1971) = 0._r8 + mat(k,1919) = 0._r8 + mat(k,1921) = 0._r8 + mat(k,1922) = 0._r8 + mat(k,1927) = 0._r8 mat(k,1974) = 0._r8 - mat(k,1976) = 0._r8 - mat(k,1980) = 0._r8 - mat(k,1981) = 0._r8 - mat(k,1982) = 0._r8 - mat(k,1985) = 0._r8 - mat(k,1986) = 0._r8 - mat(k,1988) = 0._r8 - mat(k,1993) = 0._r8 - mat(k,1994) = 0._r8 - mat(k,1996) = 0._r8 - mat(k,2026) = 0._r8 - mat(k,2029) = 0._r8 - mat(k,2032) = 0._r8 - mat(k,2043) = 0._r8 - mat(k,2044) = 0._r8 + mat(k,2008) = 0._r8 + mat(k,2010) = 0._r8 + mat(k,2019) = 0._r8 + mat(k,2022) = 0._r8 + mat(k,2024) = 0._r8 + mat(k,2033) = 0._r8 + mat(k,2039) = 0._r8 + mat(k,2041) = 0._r8 mat(k,2045) = 0._r8 - mat(k,2046) = 0._r8 - mat(k,2047) = 0._r8 - mat(k,2048) = 0._r8 mat(k,2051) = 0._r8 mat(k,2053) = 0._r8 - mat(k,2054) = 0._r8 - mat(k,2056) = 0._r8 - mat(k,2057) = 0._r8 - mat(k,2058) = 0._r8 - mat(k,2059) = 0._r8 - mat(k,2060) = 0._r8 - mat(k,2061) = 0._r8 - mat(k,2062) = 0._r8 - mat(k,2072) = 0._r8 - mat(k,2078) = 0._r8 - mat(k,2080) = 0._r8 - mat(k,2084) = 0._r8 - mat(k,2097) = 0._r8 + mat(k,2065) = 0._r8 + mat(k,2066) = 0._r8 + mat(k,2067) = 0._r8 + mat(k,2082) = 0._r8 + mat(k,2088) = 0._r8 + mat(k,2089) = 0._r8 + mat(k,2090) = 0._r8 + mat(k,2093) = 0._r8 mat(k,2098) = 0._r8 - mat(k,2103) = 0._r8 + mat(k,2099) = 0._r8 + mat(k,2100) = 0._r8 + mat(k,2102) = 0._r8 mat(k,2105) = 0._r8 mat(k,2106) = 0._r8 - mat(k,2108) = 0._r8 + mat(k,2107) = 0._r8 mat(k,2109) = 0._r8 - mat(k,2111) = 0._r8 - mat(k,2112) = 0._r8 - mat(k,2113) = 0._r8 - mat(k,2115) = 0._r8 - mat(k,2116) = 0._r8 - mat(k,2117) = 0._r8 - mat(k,2118) = 0._r8 - mat(k,2119) = 0._r8 - mat(k,2122) = 0._r8 - mat(k,2124) = 0._r8 - mat(k,2126) = 0._r8 - mat(k,2138) = 0._r8 - mat(k,2141) = 0._r8 + mat(k,2129) = 0._r8 + mat(k,2131) = 0._r8 mat(k,2144) = 0._r8 - mat(k,2145) = 0._r8 - mat(k,2146) = 0._r8 - mat(k,2148) = 0._r8 - mat(k,2149) = 0._r8 - mat(k,2150) = 0._r8 mat(k,2151) = 0._r8 - mat(k,2152) = 0._r8 - mat(k,2157) = 0._r8 + mat(k,2153) = 0._r8 + mat(k,2154) = 0._r8 + mat(k,2156) = 0._r8 + mat(k,2158) = 0._r8 + mat(k,2160) = 0._r8 mat(k,2161) = 0._r8 - mat(k,2162) = 0._r8 + mat(k,2163) = 0._r8 mat(k,2164) = 0._r8 mat(k,2165) = 0._r8 - mat(k,2166) = 0._r8 + mat(k,2167) = 0._r8 + mat(k,2168) = 0._r8 + mat(k,2169) = 0._r8 + mat(k,2170) = 0._r8 mat(k,2173) = 0._r8 - mat(k,2188) = 0._r8 - mat(k,2194) = 0._r8 + mat(k,2175) = 0._r8 + mat(k,2177) = 0._r8 + mat(k,2178) = 0._r8 + mat(k,2186) = 0._r8 + mat(k,2189) = 0._r8 + mat(k,2193) = 0._r8 mat(k,2195) = 0._r8 - mat(k,2196) = 0._r8 - mat(k,2199) = 0._r8 - mat(k,2204) = 0._r8 - mat(k,2205) = 0._r8 + mat(k,2200) = 0._r8 mat(k,2206) = 0._r8 mat(k,2208) = 0._r8 - mat(k,2211) = 0._r8 - mat(k,2212) = 0._r8 - mat(k,2213) = 0._r8 - mat(k,2215) = 0._r8 - mat(k,2229) = 0._r8 - mat(k,2237) = 0._r8 - mat(k,2244) = 0._r8 - mat(k,2245) = 0._r8 - mat(k,2246) = 0._r8 - mat(k,2247) = 0._r8 - mat(k,2248) = 0._r8 - mat(k,2250) = 0._r8 - mat(k,2251) = 0._r8 - mat(k,2254) = 0._r8 - mat(k,2258) = 0._r8 - mat(k,2293) = 0._r8 - mat(k,2294) = 0._r8 - mat(k,2295) = 0._r8 - mat(k,2321) = 0._r8 - mat(k,2329) = 0._r8 - mat(k,2330) = 0._r8 - mat(k,2332) = 0._r8 - mat(k,2335) = 0._r8 - mat(k,2337) = 0._r8 - mat(k,2341) = 0._r8 - mat(k,2346) = 0._r8 + mat(k,2219) = 0._r8 + mat(k,2220) = 0._r8 + mat(k,2221) = 0._r8 + mat(k,2223) = 0._r8 + mat(k,2224) = 0._r8 + mat(k,2225) = 0._r8 + mat(k,2227) = 0._r8 + mat(k,2232) = 0._r8 + mat(k,2233) = 0._r8 + mat(k,2234) = 0._r8 + mat(k,2238) = 0._r8 + mat(k,2239) = 0._r8 + mat(k,2270) = 0._r8 + mat(k,2271) = 0._r8 + mat(k,2272) = 0._r8 + mat(k,2298) = 0._r8 + mat(k,2306) = 0._r8 + mat(k,2307) = 0._r8 + mat(k,2309) = 0._r8 + mat(k,2312) = 0._r8 + mat(k,2314) = 0._r8 + mat(k,2318) = 0._r8 + mat(k,2323) = 0._r8 + mat(k,2331) = 0._r8 + mat(k,2333) = 0._r8 + mat(k,2345) = 0._r8 + mat(k,2350) = 0._r8 + mat(k,2351) = 0._r8 + mat(k,2352) = 0._r8 + mat(k,2353) = 0._r8 + mat(k,2354) = 0._r8 + mat(k,2355) = 0._r8 + mat(k,2356) = 0._r8 + mat(k,2358) = 0._r8 + mat(k,2360) = 0._r8 mat(k,2361) = 0._r8 mat(k,2362) = 0._r8 + mat(k,2363) = 0._r8 + mat(k,2364) = 0._r8 + mat(k,2365) = 0._r8 mat(k,2367) = 0._r8 + mat(k,2369) = 0._r8 mat(k,2378) = 0._r8 mat(k,2406) = 0._r8 + mat(k,2407) = 0._r8 mat(k,2408) = 0._r8 mat(k,2409) = 0._r8 - mat(k,2413) = 0._r8 mat(k,2414) = 0._r8 mat(k,2415) = 0._r8 - mat(k,2416) = 0._r8 + mat(k,2417) = 0._r8 mat(k,2418) = 0._r8 - mat(k,2419) = 0._r8 + mat(k,2420) = 0._r8 mat(k,2422) = 0._r8 mat(k,2427) = 0._r8 mat(k,2429) = 0._r8 @@ -3684,12 +3692,12 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k,2432) = 0._r8 mat(k,2433) = 0._r8 mat(k,2434) = 0._r8 - mat(k,2435) = 0._r8 mat(k,2437) = 0._r8 mat(k,2438) = 0._r8 mat(k,2439) = 0._r8 - mat(k,2441) = 0._r8 - mat(k,2444) = 0._r8 + mat(k,2440) = 0._r8 + mat(k,2442) = 0._r8 + mat(k,2443) = 0._r8 mat(k,2445) = 0._r8 mat(k,2446) = 0._r8 mat(k,2447) = 0._r8 @@ -3834,102 +3842,102 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 517) = mat(k, 517) - dti(k) mat(k, 523) = mat(k, 523) - dti(k) mat(k, 529) = mat(k, 529) - dti(k) - mat(k, 534) = mat(k, 534) - dti(k) - mat(k, 542) = mat(k, 542) - dti(k) - mat(k, 550) = mat(k, 550) - dti(k) - mat(k, 558) = mat(k, 558) - dti(k) - mat(k, 566) = mat(k, 566) - dti(k) - mat(k, 574) = mat(k, 574) - dti(k) - mat(k, 582) = mat(k, 582) - dti(k) - mat(k, 589) = mat(k, 589) - dti(k) - mat(k, 598) = mat(k, 598) - dti(k) - mat(k, 602) = mat(k, 602) - dti(k) - mat(k, 611) = mat(k, 611) - dti(k) - mat(k, 620) = mat(k, 620) - dti(k) - mat(k, 627) = mat(k, 627) - dti(k) - mat(k, 635) = mat(k, 635) - dti(k) - mat(k, 642) = mat(k, 642) - dti(k) + mat(k, 537) = mat(k, 537) - dti(k) + mat(k, 545) = mat(k, 545) - dti(k) + mat(k, 553) = mat(k, 553) - dti(k) + mat(k, 561) = mat(k, 561) - dti(k) + mat(k, 569) = mat(k, 569) - dti(k) + mat(k, 577) = mat(k, 577) - dti(k) + mat(k, 586) = mat(k, 586) - dti(k) + mat(k, 593) = mat(k, 593) - dti(k) + mat(k, 597) = mat(k, 597) - dti(k) + mat(k, 606) = mat(k, 606) - dti(k) + mat(k, 615) = mat(k, 615) - dti(k) + mat(k, 622) = mat(k, 622) - dti(k) + mat(k, 631) = mat(k, 631) - dti(k) + mat(k, 639) = mat(k, 639) - dti(k) + mat(k, 645) = mat(k, 645) - dti(k) mat(k, 652) = mat(k, 652) - dti(k) - mat(k, 665) = mat(k, 665) - dti(k) - mat(k, 676) = mat(k, 676) - dti(k) - mat(k, 687) = mat(k, 687) - dti(k) - mat(k, 698) = mat(k, 698) - dti(k) - mat(k, 705) = mat(k, 705) - dti(k) - mat(k, 711) = mat(k, 711) - dti(k) - mat(k, 718) = mat(k, 718) - dti(k) - mat(k, 729) = mat(k, 729) - dti(k) - mat(k, 740) = mat(k, 740) - dti(k) - mat(k, 751) = mat(k, 751) - dti(k) - mat(k, 767) = mat(k, 767) - dti(k) - mat(k, 778) = mat(k, 778) - dti(k) - mat(k, 787) = mat(k, 787) - dti(k) - mat(k, 797) = mat(k, 797) - dti(k) - mat(k, 805) = mat(k, 805) - dti(k) - mat(k, 814) = mat(k, 814) - dti(k) - mat(k, 824) = mat(k, 824) - dti(k) - mat(k, 828) = mat(k, 828) - dti(k) - mat(k, 837) = mat(k, 837) - dti(k) - mat(k, 845) = mat(k, 845) - dti(k) - mat(k, 853) = mat(k, 853) - dti(k) - mat(k, 865) = mat(k, 865) - dti(k) - mat(k, 876) = mat(k, 876) - dti(k) - mat(k, 892) = mat(k, 892) - dti(k) - mat(k, 901) = mat(k, 901) - dti(k) - mat(k, 910) = mat(k, 910) - dti(k) - mat(k, 919) = mat(k, 919) - dti(k) - mat(k, 925) = mat(k, 925) - dti(k) - mat(k, 935) = mat(k, 935) - dti(k) - mat(k, 947) = mat(k, 947) - dti(k) - mat(k, 955) = mat(k, 955) - dti(k) - mat(k, 974) = mat(k, 974) - dti(k) - mat(k, 999) = mat(k, 999) - dti(k) - mat(k,1018) = mat(k,1018) - dti(k) - mat(k,1042) = mat(k,1042) - dti(k) - mat(k,1054) = mat(k,1054) - dti(k) - mat(k,1062) = mat(k,1062) - dti(k) - mat(k,1072) = mat(k,1072) - dti(k) - mat(k,1080) = mat(k,1080) - dti(k) - mat(k,1090) = mat(k,1090) - dti(k) - mat(k,1106) = mat(k,1106) - dti(k) - mat(k,1119) = mat(k,1119) - dti(k) - mat(k,1133) = mat(k,1133) - dti(k) - mat(k,1151) = mat(k,1151) - dti(k) - mat(k,1160) = mat(k,1160) - dti(k) - mat(k,1166) = mat(k,1166) - dti(k) - mat(k,1178) = mat(k,1178) - dti(k) - mat(k,1195) = mat(k,1195) - dti(k) - mat(k,1208) = mat(k,1208) - dti(k) - mat(k,1217) = mat(k,1217) - dti(k) - mat(k,1233) = mat(k,1233) - dti(k) - mat(k,1253) = mat(k,1253) - dti(k) - mat(k,1269) = mat(k,1269) - dti(k) - mat(k,1281) = mat(k,1281) - dti(k) - mat(k,1299) = mat(k,1299) - dti(k) - mat(k,1332) = mat(k,1332) - dti(k) - mat(k,1356) = mat(k,1356) - dti(k) - mat(k,1376) = mat(k,1376) - dti(k) - mat(k,1397) = mat(k,1397) - dti(k) - mat(k,1428) = mat(k,1428) - dti(k) - mat(k,1450) = mat(k,1450) - dti(k) - mat(k,1461) = mat(k,1461) - dti(k) - mat(k,1476) = mat(k,1476) - dti(k) - mat(k,1495) = mat(k,1495) - dti(k) - mat(k,1511) = mat(k,1511) - dti(k) - mat(k,1542) = mat(k,1542) - dti(k) - mat(k,1565) = mat(k,1565) - dti(k) - mat(k,1592) = mat(k,1592) - dti(k) - mat(k,1652) = mat(k,1652) - dti(k) - mat(k,1818) = mat(k,1818) - dti(k) - mat(k,1914) = mat(k,1914) - dti(k) - mat(k,1960) = mat(k,1960) - dti(k) - mat(k,1987) = mat(k,1987) - dti(k) - mat(k,2031) = mat(k,2031) - dti(k) - mat(k,2055) = mat(k,2055) - dti(k) - mat(k,2099) = mat(k,2099) - dti(k) - mat(k,2121) = mat(k,2121) - dti(k) - mat(k,2168) = mat(k,2168) - dti(k) - mat(k,2233) = mat(k,2233) - dti(k) - mat(k,2259) = mat(k,2259) - dti(k) + mat(k, 662) = mat(k, 662) - dti(k) + mat(k, 675) = mat(k, 675) - dti(k) + mat(k, 686) = mat(k, 686) - dti(k) + mat(k, 697) = mat(k, 697) - dti(k) + mat(k, 704) = mat(k, 704) - dti(k) + mat(k, 710) = mat(k, 710) - dti(k) + mat(k, 721) = mat(k, 721) - dti(k) + mat(k, 732) = mat(k, 732) - dti(k) + mat(k, 739) = mat(k, 739) - dti(k) + mat(k, 750) = mat(k, 750) - dti(k) + mat(k, 766) = mat(k, 766) - dti(k) + mat(k, 777) = mat(k, 777) - dti(k) + mat(k, 786) = mat(k, 786) - dti(k) + mat(k, 796) = mat(k, 796) - dti(k) + mat(k, 804) = mat(k, 804) - dti(k) + mat(k, 813) = mat(k, 813) - dti(k) + mat(k, 823) = mat(k, 823) - dti(k) + mat(k, 827) = mat(k, 827) - dti(k) + mat(k, 836) = mat(k, 836) - dti(k) + mat(k, 844) = mat(k, 844) - dti(k) + mat(k, 852) = mat(k, 852) - dti(k) + mat(k, 864) = mat(k, 864) - dti(k) + mat(k, 875) = mat(k, 875) - dti(k) + mat(k, 891) = mat(k, 891) - dti(k) + mat(k, 900) = mat(k, 900) - dti(k) + mat(k, 909) = mat(k, 909) - dti(k) + mat(k, 918) = mat(k, 918) - dti(k) + mat(k, 924) = mat(k, 924) - dti(k) + mat(k, 934) = mat(k, 934) - dti(k) + mat(k, 946) = mat(k, 946) - dti(k) + mat(k, 954) = mat(k, 954) - dti(k) + mat(k, 973) = mat(k, 973) - dti(k) + mat(k,1001) = mat(k,1001) - dti(k) + mat(k,1025) = mat(k,1025) - dti(k) + mat(k,1037) = mat(k,1037) - dti(k) + mat(k,1048) = mat(k,1048) - dti(k) + mat(k,1061) = mat(k,1061) - dti(k) + mat(k,1071) = mat(k,1071) - dti(k) + mat(k,1079) = mat(k,1079) - dti(k) + mat(k,1089) = mat(k,1089) - dti(k) + mat(k,1105) = mat(k,1105) - dti(k) + mat(k,1118) = mat(k,1118) - dti(k) + mat(k,1132) = mat(k,1132) - dti(k) + mat(k,1150) = mat(k,1150) - dti(k) + mat(k,1159) = mat(k,1159) - dti(k) + mat(k,1165) = mat(k,1165) - dti(k) + mat(k,1177) = mat(k,1177) - dti(k) + mat(k,1194) = mat(k,1194) - dti(k) + mat(k,1207) = mat(k,1207) - dti(k) + mat(k,1216) = mat(k,1216) - dti(k) + mat(k,1232) = mat(k,1232) - dti(k) + mat(k,1252) = mat(k,1252) - dti(k) + mat(k,1268) = mat(k,1268) - dti(k) + mat(k,1280) = mat(k,1280) - dti(k) + mat(k,1298) = mat(k,1298) - dti(k) + mat(k,1331) = mat(k,1331) - dti(k) + mat(k,1355) = mat(k,1355) - dti(k) + mat(k,1375) = mat(k,1375) - dti(k) + mat(k,1396) = mat(k,1396) - dti(k) + mat(k,1427) = mat(k,1427) - dti(k) + mat(k,1449) = mat(k,1449) - dti(k) + mat(k,1460) = mat(k,1460) - dti(k) + mat(k,1475) = mat(k,1475) - dti(k) + mat(k,1494) = mat(k,1494) - dti(k) + mat(k,1510) = mat(k,1510) - dti(k) + mat(k,1541) = mat(k,1541) - dti(k) + mat(k,1563) = mat(k,1563) - dti(k) + mat(k,1589) = mat(k,1589) - dti(k) + mat(k,1632) = mat(k,1632) - dti(k) + mat(k,1798) = mat(k,1798) - dti(k) + mat(k,1845) = mat(k,1845) - dti(k) + mat(k,1891) = mat(k,1891) - dti(k) + mat(k,1918) = mat(k,1918) - dti(k) + mat(k,2015) = mat(k,2015) - dti(k) + mat(k,2059) = mat(k,2059) - dti(k) + mat(k,2124) = mat(k,2124) - dti(k) + mat(k,2152) = mat(k,2152) - dti(k) + mat(k,2174) = mat(k,2174) - dti(k) + mat(k,2235) = mat(k,2235) - dti(k) + mat(k,2344) = mat(k,2344) - dti(k) mat(k,2368) = mat(k,2368) - dti(k) mat(k,2421) = mat(k,2421) - dti(k) mat(k,2449) = mat(k,2449) - dti(k) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_prod_loss.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_prod_loss.F90 index fb0e928091..3e8651c488 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_prod_loss.F90 @@ -55,255 +55,255 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & ! ... loss and production for Implicit method !-------------------------------------------------------------------- do k = 1,avec_len - loss(k,155) = (rxt(k,396)* y(k,228) + rxt(k,20) + het_rates(k,1))* y(k,1) - prod(k,155) =rxt(k,399)*y(k,192)*y(k,124) - loss(k,159) = (rxt(k,400)* y(k,228) + rxt(k,21) + het_rates(k,2))* y(k,2) - prod(k,159) =rxt(k,397)*y(k,192)*y(k,90) + loss(k,156) = (rxt(k,400)* y(k,228) + rxt(k,20) + het_rates(k,1))* y(k,1) + prod(k,156) =rxt(k,403)*y(k,192)*y(k,124) + loss(k,159) = (rxt(k,404)* y(k,228) + rxt(k,21) + het_rates(k,2))* y(k,2) + prod(k,159) =rxt(k,401)*y(k,192)*y(k,90) loss(k,1) = ( + het_rates(k,3))* y(k,3) prod(k,1) = 0._r8 loss(k,2) = ( + het_rates(k,4))* y(k,4) prod(k,2) = 0._r8 loss(k,3) = ( + het_rates(k,5))* y(k,5) prod(k,3) = 0._r8 - loss(k,188) = (rxt(k,479)* y(k,126) +rxt(k,480)* y(k,136) +rxt(k,481) & + loss(k,189) = (rxt(k,483)* y(k,126) +rxt(k,484)* y(k,136) +rxt(k,485) & * y(k,228) + het_rates(k,6))* y(k,6) - prod(k,188) = 0._r8 - loss(k,71) = (rxt(k,438)* y(k,228) + het_rates(k,7))* y(k,7) + prod(k,189) = 0._r8 + loss(k,71) = (rxt(k,442)* y(k,228) + het_rates(k,7))* y(k,7) prod(k,71) = 0._r8 - loss(k,122) = (rxt(k,441)* y(k,228) + rxt(k,22) + het_rates(k,8))* y(k,8) - prod(k,122) =rxt(k,439)*y(k,194)*y(k,90) + loss(k,122) = (rxt(k,445)* y(k,228) + rxt(k,22) + het_rates(k,8))* y(k,8) + prod(k,122) =rxt(k,443)*y(k,194)*y(k,90) loss(k,72) = ( + rxt(k,23) + het_rates(k,9))* y(k,9) - prod(k,72) =.120_r8*rxt(k,438)*y(k,228)*y(k,7) + prod(k,72) =.120_r8*rxt(k,442)*y(k,228)*y(k,7) loss(k,116) = ( + rxt(k,24) + het_rates(k,10))* y(k,10) - prod(k,116) = (.100_r8*rxt(k,480)*y(k,6) +.100_r8*rxt(k,483)*y(k,110)) & + prod(k,116) = (.100_r8*rxt(k,484)*y(k,6) +.100_r8*rxt(k,487)*y(k,110)) & *y(k,136) loss(k,130) = ( + rxt(k,25) + het_rates(k,11))* y(k,11) - prod(k,130) = (.500_r8*rxt(k,440)*y(k,194) +.200_r8*rxt(k,467)*y(k,235) + & - .060_r8*rxt(k,473)*y(k,238))*y(k,124) +.500_r8*rxt(k,22)*y(k,8) & + prod(k,130) = (.500_r8*rxt(k,444)*y(k,194) +.200_r8*rxt(k,471)*y(k,235) + & + .060_r8*rxt(k,477)*y(k,238))*y(k,124) +.500_r8*rxt(k,22)*y(k,8) & +rxt(k,23)*y(k,9) +.200_r8*rxt(k,71)*y(k,182) +.060_r8*rxt(k,73) & *y(k,186) loss(k,98) = ( + rxt(k,26) + het_rates(k,12))* y(k,12) - prod(k,98) = (.200_r8*rxt(k,467)*y(k,235) +.200_r8*rxt(k,473)*y(k,238)) & + prod(k,98) = (.200_r8*rxt(k,471)*y(k,235) +.200_r8*rxt(k,477)*y(k,238)) & *y(k,124) +.200_r8*rxt(k,71)*y(k,182) +.200_r8*rxt(k,73)*y(k,186) - loss(k,149) = ( + rxt(k,27) + het_rates(k,13))* y(k,13) - prod(k,149) = (.200_r8*rxt(k,467)*y(k,235) +.150_r8*rxt(k,473)*y(k,238)) & + loss(k,148) = ( + rxt(k,27) + het_rates(k,13))* y(k,13) + prod(k,148) = (.200_r8*rxt(k,471)*y(k,235) +.150_r8*rxt(k,477)*y(k,238)) & *y(k,124) +rxt(k,47)*y(k,95) +rxt(k,57)*y(k,116) +.200_r8*rxt(k,71) & *y(k,182) +.150_r8*rxt(k,73)*y(k,186) loss(k,108) = ( + rxt(k,28) + het_rates(k,14))* y(k,14) - prod(k,108) =.210_r8*rxt(k,473)*y(k,238)*y(k,124) +.210_r8*rxt(k,73)*y(k,186) - loss(k,85) = (rxt(k,401)* y(k,228) + het_rates(k,15))* y(k,15) - prod(k,85) = (.050_r8*rxt(k,480)*y(k,6) +.050_r8*rxt(k,483)*y(k,110)) & + prod(k,108) =.210_r8*rxt(k,477)*y(k,238)*y(k,124) +.210_r8*rxt(k,73)*y(k,186) + loss(k,85) = (rxt(k,405)* y(k,228) + het_rates(k,15))* y(k,15) + prod(k,85) = (.050_r8*rxt(k,484)*y(k,6) +.050_r8*rxt(k,487)*y(k,110)) & *y(k,136) - loss(k,113) = (rxt(k,367)* y(k,126) +rxt(k,368)* y(k,228) + het_rates(k,16)) & + loss(k,113) = (rxt(k,371)* y(k,126) +rxt(k,372)* y(k,228) + het_rates(k,16)) & * y(k,16) prod(k,113) = 0._r8 - loss(k,221) = (rxt(k,250)* y(k,42) +rxt(k,251)* y(k,90) +rxt(k,252)* y(k,136) & + loss(k,221) = (rxt(k,254)* y(k,42) +rxt(k,255)* y(k,90) +rxt(k,256)* y(k,136) & + het_rates(k,17))* y(k,17) - prod(k,221) = (rxt(k,76) +2.000_r8*rxt(k,253)*y(k,19) +rxt(k,254)*y(k,59) + & - rxt(k,255)*y(k,59) +rxt(k,258)*y(k,124) +rxt(k,261)*y(k,134) + & - rxt(k,262)*y(k,228) +rxt(k,509)*y(k,152))*y(k,19) & - + (rxt(k,240)*y(k,34) +rxt(k,266)*y(k,35) + & - 3.000_r8*rxt(k,267)*y(k,55) +2.000_r8*rxt(k,268)*y(k,78) + & - rxt(k,269)*y(k,81) +2.000_r8*rxt(k,289)*y(k,41) +rxt(k,290)*y(k,43)) & - *y(k,224) + (rxt(k,264)*y(k,81) +2.000_r8*rxt(k,278)*y(k,41) + & - rxt(k,280)*y(k,43) +3.000_r8*rxt(k,285)*y(k,55))*y(k,228) & - + (2.000_r8*rxt(k,277)*y(k,41) +rxt(k,279)*y(k,43) + & - 3.000_r8*rxt(k,284)*y(k,55))*y(k,56) + (rxt(k,100) + & - rxt(k,263)*y(k,134))*y(k,81) +rxt(k,75)*y(k,18) +rxt(k,78)*y(k,20) & + prod(k,221) = (rxt(k,76) +2.000_r8*rxt(k,257)*y(k,19) +rxt(k,258)*y(k,59) + & + rxt(k,259)*y(k,59) +rxt(k,262)*y(k,124) +rxt(k,265)*y(k,134) + & + rxt(k,266)*y(k,228) +rxt(k,513)*y(k,152))*y(k,19) & + + (rxt(k,244)*y(k,34) +rxt(k,270)*y(k,35) + & + 3.000_r8*rxt(k,271)*y(k,55) +2.000_r8*rxt(k,272)*y(k,78) + & + rxt(k,273)*y(k,81) +2.000_r8*rxt(k,293)*y(k,41) +rxt(k,294)*y(k,43)) & + *y(k,224) + (rxt(k,268)*y(k,81) +2.000_r8*rxt(k,282)*y(k,41) + & + rxt(k,284)*y(k,43) +3.000_r8*rxt(k,289)*y(k,55))*y(k,228) & + + (2.000_r8*rxt(k,281)*y(k,41) +rxt(k,283)*y(k,43) + & + 3.000_r8*rxt(k,288)*y(k,55))*y(k,56) + (rxt(k,100) + & + rxt(k,267)*y(k,134))*y(k,81) +rxt(k,75)*y(k,18) +rxt(k,78)*y(k,20) & +rxt(k,80)*y(k,34) +rxt(k,81)*y(k,35) +2.000_r8*rxt(k,87)*y(k,41) & +rxt(k,88)*y(k,43) +3.000_r8*rxt(k,91)*y(k,55) +2.000_r8*rxt(k,99) & *y(k,78) +rxt(k,106)*y(k,92) loss(k,86) = ( + rxt(k,75) + het_rates(k,18))* y(k,18) - prod(k,86) = (rxt(k,570)*y(k,92) +rxt(k,575)*y(k,92))*y(k,85) & - +rxt(k,256)*y(k,59)*y(k,19) - loss(k,223) = (2._r8*rxt(k,253)* y(k,19) + (rxt(k,254) +rxt(k,255) + & - rxt(k,256))* y(k,59) +rxt(k,257)* y(k,90) +rxt(k,258)* y(k,124) & - +rxt(k,259)* y(k,125) +rxt(k,261)* y(k,134) +rxt(k,509)* y(k,152) & - +rxt(k,262)* y(k,228) + rxt(k,76) + het_rates(k,19))* y(k,19) - prod(k,223) = (rxt(k,77) +rxt(k,260)*y(k,134))*y(k,20) +rxt(k,252)*y(k,136) & - *y(k,17) +rxt(k,270)*y(k,224)*y(k,81) +rxt(k,265)*y(k,134)*y(k,92) - loss(k,145) = (rxt(k,260)* y(k,134) + rxt(k,77) + rxt(k,78) + rxt(k,564) & - + rxt(k,567) + rxt(k,572) + het_rates(k,20))* y(k,20) - prod(k,145) =rxt(k,259)*y(k,125)*y(k,19) + prod(k,86) = (rxt(k,574)*y(k,92) +rxt(k,579)*y(k,92))*y(k,85) & + +rxt(k,260)*y(k,59)*y(k,19) + loss(k,224) = (2._r8*rxt(k,257)* y(k,19) + (rxt(k,258) +rxt(k,259) + & + rxt(k,260))* y(k,59) +rxt(k,261)* y(k,90) +rxt(k,262)* y(k,124) & + +rxt(k,263)* y(k,125) +rxt(k,265)* y(k,134) +rxt(k,513)* y(k,152) & + +rxt(k,266)* y(k,228) + rxt(k,76) + het_rates(k,19))* y(k,19) + prod(k,224) = (rxt(k,77) +rxt(k,264)*y(k,134))*y(k,20) +rxt(k,256)*y(k,136) & + *y(k,17) +rxt(k,274)*y(k,224)*y(k,81) +rxt(k,269)*y(k,134)*y(k,92) + loss(k,144) = (rxt(k,264)* y(k,134) + rxt(k,77) + rxt(k,78) + rxt(k,568) & + + rxt(k,571) + rxt(k,576) + het_rates(k,20))* y(k,20) + prod(k,144) =rxt(k,263)*y(k,125)*y(k,19) loss(k,4) = ( + het_rates(k,21))* y(k,21) prod(k,4) = 0._r8 - loss(k,88) = (rxt(k,442)* y(k,228) + het_rates(k,22))* y(k,22) - prod(k,88) =rxt(k,29)*y(k,23) +rxt(k,445)*y(k,196)*y(k,124) - loss(k,111) = (rxt(k,444)* y(k,228) + rxt(k,29) + het_rates(k,23))* y(k,23) - prod(k,111) =rxt(k,443)*y(k,196)*y(k,90) - loss(k,100) = (rxt(k,315)* y(k,56) +rxt(k,316)* y(k,228) + het_rates(k,24)) & + loss(k,88) = (rxt(k,446)* y(k,228) + het_rates(k,22))* y(k,22) + prod(k,88) =rxt(k,29)*y(k,23) +rxt(k,449)*y(k,196)*y(k,124) + loss(k,111) = (rxt(k,448)* y(k,228) + rxt(k,29) + het_rates(k,23))* y(k,23) + prod(k,111) =rxt(k,447)*y(k,196)*y(k,90) + loss(k,100) = (rxt(k,319)* y(k,56) +rxt(k,320)* y(k,228) + het_rates(k,24)) & * y(k,24) prod(k,100) = 0._r8 - loss(k,143) = (rxt(k,317)* y(k,56) +rxt(k,318)* y(k,136) +rxt(k,343) & + loss(k,142) = (rxt(k,321)* y(k,56) +rxt(k,322)* y(k,136) +rxt(k,347) & * y(k,228) + het_rates(k,25))* y(k,25) - prod(k,143) = 0._r8 - loss(k,95) = (rxt(k,323)* y(k,228) + het_rates(k,26))* y(k,26) - prod(k,95) = (.400_r8*rxt(k,319)*y(k,197) +.200_r8*rxt(k,320)*y(k,201)) & + prod(k,142) = 0._r8 + loss(k,95) = (rxt(k,327)* y(k,228) + het_rates(k,26))* y(k,26) + prod(k,95) = (.400_r8*rxt(k,323)*y(k,197) +.200_r8*rxt(k,324)*y(k,201)) & *y(k,197) - loss(k,112) = (rxt(k,324)* y(k,228) + rxt(k,30) + het_rates(k,27))* y(k,27) - prod(k,112) =rxt(k,321)*y(k,197)*y(k,90) - loss(k,102) = (rxt(k,325)* y(k,56) +rxt(k,326)* y(k,228) + het_rates(k,28)) & + loss(k,112) = (rxt(k,328)* y(k,228) + rxt(k,30) + het_rates(k,27))* y(k,27) + prod(k,112) =rxt(k,325)*y(k,197)*y(k,90) + loss(k,102) = (rxt(k,329)* y(k,56) +rxt(k,330)* y(k,228) + het_rates(k,28)) & * y(k,28) prod(k,102) = 0._r8 - loss(k,199) = (rxt(k,346)* y(k,126) +rxt(k,347)* y(k,136) +rxt(k,365) & + loss(k,199) = (rxt(k,350)* y(k,126) +rxt(k,351)* y(k,136) +rxt(k,369) & * y(k,228) + het_rates(k,29))* y(k,29) - prod(k,199) =.130_r8*rxt(k,425)*y(k,136)*y(k,99) +.700_r8*rxt(k,56)*y(k,111) - loss(k,121) = (rxt(k,351)* y(k,228) + rxt(k,31) + het_rates(k,30))* y(k,30) - prod(k,121) =rxt(k,349)*y(k,198)*y(k,90) - loss(k,103) = (rxt(k,355)* y(k,56) +rxt(k,352)* y(k,228) + het_rates(k,31)) & + prod(k,199) =.130_r8*rxt(k,429)*y(k,136)*y(k,99) +.700_r8*rxt(k,56)*y(k,111) + loss(k,121) = (rxt(k,355)* y(k,228) + rxt(k,31) + het_rates(k,30))* y(k,30) + prod(k,121) =rxt(k,353)*y(k,198)*y(k,90) + loss(k,103) = (rxt(k,359)* y(k,56) +rxt(k,356)* y(k,228) + het_rates(k,31)) & * y(k,31) prod(k,103) = 0._r8 - loss(k,96) = (rxt(k,448)* y(k,228) + rxt(k,32) + het_rates(k,32))* y(k,32) - prod(k,96) =rxt(k,446)*y(k,199)*y(k,90) - loss(k,56) = (rxt(k,239)* y(k,224) + rxt(k,79) + het_rates(k,33))* y(k,33) + loss(k,96) = (rxt(k,452)* y(k,228) + rxt(k,32) + het_rates(k,32))* y(k,32) + prod(k,96) =rxt(k,450)*y(k,199)*y(k,90) + loss(k,56) = (rxt(k,243)* y(k,224) + rxt(k,79) + het_rates(k,33))* y(k,33) prod(k,56) = 0._r8 - loss(k,67) = (rxt(k,240)* y(k,224) + rxt(k,80) + het_rates(k,34))* y(k,34) + loss(k,67) = (rxt(k,244)* y(k,224) + rxt(k,80) + het_rates(k,34))* y(k,34) prod(k,67) = 0._r8 - loss(k,68) = (rxt(k,266)* y(k,224) + rxt(k,81) + het_rates(k,35))* y(k,35) + loss(k,68) = (rxt(k,270)* y(k,224) + rxt(k,81) + het_rates(k,35))* y(k,35) prod(k,68) = 0._r8 - loss(k,59) = (rxt(k,241)* y(k,224) + rxt(k,82) + het_rates(k,36))* y(k,36) + loss(k,59) = (rxt(k,245)* y(k,224) + rxt(k,82) + het_rates(k,36))* y(k,36) prod(k,59) = 0._r8 - loss(k,69) = (rxt(k,242)* y(k,224) + rxt(k,83) + het_rates(k,37))* y(k,37) + loss(k,69) = (rxt(k,246)* y(k,224) + rxt(k,83) + het_rates(k,37))* y(k,37) prod(k,69) = 0._r8 - loss(k,60) = (rxt(k,243)* y(k,224) + rxt(k,84) + het_rates(k,38))* y(k,38) + loss(k,60) = (rxt(k,247)* y(k,224) + rxt(k,84) + het_rates(k,38))* y(k,38) prod(k,60) = 0._r8 - loss(k,70) = (rxt(k,244)* y(k,224) + rxt(k,85) + het_rates(k,39))* y(k,39) + loss(k,70) = (rxt(k,248)* y(k,224) + rxt(k,85) + het_rates(k,39))* y(k,39) prod(k,70) = 0._r8 - loss(k,61) = (rxt(k,245)* y(k,224) + rxt(k,86) + het_rates(k,40))* y(k,40) + loss(k,61) = (rxt(k,249)* y(k,224) + rxt(k,86) + het_rates(k,40))* y(k,40) prod(k,61) = 0._r8 - loss(k,133) = (rxt(k,277)* y(k,56) +rxt(k,289)* y(k,224) +rxt(k,278) & + loss(k,133) = (rxt(k,281)* y(k,56) +rxt(k,293)* y(k,224) +rxt(k,282) & * y(k,228) + rxt(k,87) + het_rates(k,41))* y(k,41) prod(k,133) = 0._r8 - loss(k,229) = (rxt(k,250)* y(k,17) +rxt(k,214)* y(k,56) +rxt(k,294)* y(k,90) & - +rxt(k,295)* y(k,126) +rxt(k,296)* y(k,134) +rxt(k,297)* y(k,228) & + loss(k,229) = (rxt(k,254)* y(k,17) +rxt(k,218)* y(k,56) +rxt(k,298)* y(k,90) & + +rxt(k,299)* y(k,126) +rxt(k,300)* y(k,134) +rxt(k,301)* y(k,228) & + rxt(k,33) + rxt(k,34) + het_rates(k,42))* y(k,42) - prod(k,229) = (rxt(k,221)*y(k,59) +2.000_r8*rxt(k,298)*y(k,201) + & - rxt(k,299)*y(k,201) +rxt(k,301)*y(k,124) + & - .700_r8*rxt(k,320)*y(k,197) +rxt(k,331)*y(k,200) + & - rxt(k,348)*y(k,198) +.800_r8*rxt(k,361)*y(k,232) + & - .880_r8*rxt(k,373)*y(k,213) +2.000_r8*rxt(k,382)*y(k,215) + & - 1.500_r8*rxt(k,406)*y(k,208) +.750_r8*rxt(k,411)*y(k,209) + & - .800_r8*rxt(k,420)*y(k,210) +.800_r8*rxt(k,431)*y(k,237) + & - .750_r8*rxt(k,485)*y(k,223) +.930_r8*rxt(k,490)*y(k,233) + & - .950_r8*rxt(k,495)*y(k,234))*y(k,201) & - + (.500_r8*rxt(k,337)*y(k,206) +rxt(k,359)*y(k,231) + & - rxt(k,363)*y(k,232) +.500_r8*rxt(k,369)*y(k,204) + & - .250_r8*rxt(k,376)*y(k,213) +rxt(k,385)*y(k,215) + & - .100_r8*rxt(k,398)*y(k,192) +.920_r8*rxt(k,408)*y(k,208) + & - .250_r8*rxt(k,433)*y(k,237) +.340_r8*rxt(k,492)*y(k,233) + & - .320_r8*rxt(k,497)*y(k,234))*y(k,124) + (rxt(k,302)*y(k,52) + & - .300_r8*rxt(k,303)*y(k,53) +.500_r8*rxt(k,335)*y(k,51) + & - .800_r8*rxt(k,340)*y(k,74) +rxt(k,342)*y(k,141) + & - .500_r8*rxt(k,391)*y(k,109) +.400_r8*rxt(k,396)*y(k,1) + & - .300_r8*rxt(k,416)*y(k,100) +.680_r8*rxt(k,501)*y(k,181))*y(k,228) & - + (rxt(k,318)*y(k,25) +.500_r8*rxt(k,347)*y(k,29) + & - .120_r8*rxt(k,378)*y(k,105) +.600_r8*rxt(k,392)*y(k,111) + & - .910_r8*rxt(k,425)*y(k,99) +.340_r8*rxt(k,480)*y(k,6) + & - .340_r8*rxt(k,483)*y(k,110))*y(k,136) + (.500_r8*rxt(k,367)*y(k,16) + & - .250_r8*rxt(k,375)*y(k,213) +rxt(k,386)*y(k,215) + & - rxt(k,409)*y(k,208))*y(k,126) + (.250_r8*rxt(k,372)*y(k,213) + & - rxt(k,381)*y(k,215) +rxt(k,405)*y(k,208) + & - .250_r8*rxt(k,430)*y(k,237))*y(k,200) + (.180_r8*rxt(k,40) + & - rxt(k,311)*y(k,224) +rxt(k,312)*y(k,224))*y(k,54) & - + (.150_r8*rxt(k,362)*y(k,232) +.450_r8*rxt(k,383)*y(k,215))*y(k,90) & + prod(k,229) = (rxt(k,225)*y(k,59) +2.000_r8*rxt(k,302)*y(k,201) + & + rxt(k,303)*y(k,201) +rxt(k,305)*y(k,124) + & + .700_r8*rxt(k,324)*y(k,197) +rxt(k,335)*y(k,200) + & + rxt(k,352)*y(k,198) +.800_r8*rxt(k,365)*y(k,232) + & + .880_r8*rxt(k,377)*y(k,213) +2.000_r8*rxt(k,386)*y(k,215) + & + 1.500_r8*rxt(k,410)*y(k,208) +.750_r8*rxt(k,415)*y(k,209) + & + .800_r8*rxt(k,424)*y(k,210) +.800_r8*rxt(k,435)*y(k,237) + & + .750_r8*rxt(k,489)*y(k,223) +.930_r8*rxt(k,494)*y(k,233) + & + .950_r8*rxt(k,499)*y(k,234))*y(k,201) & + + (.500_r8*rxt(k,341)*y(k,206) +rxt(k,363)*y(k,231) + & + rxt(k,367)*y(k,232) +.500_r8*rxt(k,373)*y(k,204) + & + .250_r8*rxt(k,380)*y(k,213) +rxt(k,389)*y(k,215) + & + .100_r8*rxt(k,402)*y(k,192) +.920_r8*rxt(k,412)*y(k,208) + & + .250_r8*rxt(k,437)*y(k,237) +.340_r8*rxt(k,496)*y(k,233) + & + .320_r8*rxt(k,501)*y(k,234))*y(k,124) + (rxt(k,306)*y(k,52) + & + .300_r8*rxt(k,307)*y(k,53) +.500_r8*rxt(k,339)*y(k,51) + & + .800_r8*rxt(k,344)*y(k,74) +rxt(k,346)*y(k,141) + & + .500_r8*rxt(k,395)*y(k,109) +.400_r8*rxt(k,400)*y(k,1) + & + .300_r8*rxt(k,420)*y(k,100) +.680_r8*rxt(k,505)*y(k,181))*y(k,228) & + + (rxt(k,322)*y(k,25) +.500_r8*rxt(k,351)*y(k,29) + & + .120_r8*rxt(k,382)*y(k,105) +.600_r8*rxt(k,396)*y(k,111) + & + .910_r8*rxt(k,429)*y(k,99) +.340_r8*rxt(k,484)*y(k,6) + & + .340_r8*rxt(k,487)*y(k,110))*y(k,136) + (.500_r8*rxt(k,371)*y(k,16) + & + .250_r8*rxt(k,379)*y(k,213) +rxt(k,390)*y(k,215) + & + rxt(k,413)*y(k,208))*y(k,126) + (.250_r8*rxt(k,376)*y(k,213) + & + rxt(k,385)*y(k,215) +rxt(k,409)*y(k,208) + & + .250_r8*rxt(k,434)*y(k,237))*y(k,200) + (.180_r8*rxt(k,40) + & + rxt(k,315)*y(k,224) +rxt(k,316)*y(k,224))*y(k,54) & + + (.150_r8*rxt(k,366)*y(k,232) +.450_r8*rxt(k,387)*y(k,215))*y(k,90) & +.100_r8*rxt(k,20)*y(k,1) +.100_r8*rxt(k,21)*y(k,2) +rxt(k,39) & *y(k,53) +rxt(k,44)*y(k,74) +.330_r8*rxt(k,46)*y(k,94) +rxt(k,48) & *y(k,96) +rxt(k,50)*y(k,103) +1.340_r8*rxt(k,51)*y(k,105) +rxt(k,58) & *y(k,127) +rxt(k,63)*y(k,148) +rxt(k,64)*y(k,149) +.375_r8*rxt(k,66) & *y(k,177) +.400_r8*rxt(k,68)*y(k,179) +.680_r8*rxt(k,70)*y(k,181) & - +2.000_r8*rxt(k,338)*y(k,205) +rxt(k,308)*y(k,207) & - +2.000_r8*rxt(k,384)*y(k,215)*y(k,215) - loss(k,150) = (rxt(k,279)* y(k,56) +rxt(k,290)* y(k,224) +rxt(k,280) & + +2.000_r8*rxt(k,342)*y(k,205) +rxt(k,312)*y(k,207) & + +2.000_r8*rxt(k,388)*y(k,215)*y(k,215) + loss(k,149) = (rxt(k,283)* y(k,56) +rxt(k,294)* y(k,224) +rxt(k,284) & * y(k,228) + rxt(k,88) + het_rates(k,43))* y(k,43) - prod(k,150) = 0._r8 - loss(k,62) = (rxt(k,281)* y(k,228) + rxt(k,89) + het_rates(k,44))* y(k,44) + prod(k,149) = 0._r8 + loss(k,62) = (rxt(k,285)* y(k,228) + rxt(k,89) + het_rates(k,44))* y(k,44) prod(k,62) = 0._r8 - loss(k,200) = (rxt(k,327)* y(k,126) +rxt(k,328)* y(k,228) + rxt(k,35) & + loss(k,200) = (rxt(k,331)* y(k,126) +rxt(k,332)* y(k,228) + rxt(k,35) & + het_rates(k,45))* y(k,45) - prod(k,200) = (rxt(k,322)*y(k,197) +.270_r8*rxt(k,350)*y(k,198) + & - rxt(k,359)*y(k,231) +rxt(k,369)*y(k,204) +rxt(k,388)*y(k,217) + & - .400_r8*rxt(k,398)*y(k,192))*y(k,124) + (rxt(k,323)*y(k,26) + & - .500_r8*rxt(k,324)*y(k,27) +.800_r8*rxt(k,396)*y(k,1))*y(k,228) & - + (.500_r8*rxt(k,347)*y(k,29) +.100_r8*rxt(k,392)*y(k,111))*y(k,136) & - + (1.600_r8*rxt(k,319)*y(k,197) +.800_r8*rxt(k,320)*y(k,201)) & + prod(k,200) = (rxt(k,326)*y(k,197) +.270_r8*rxt(k,354)*y(k,198) + & + rxt(k,363)*y(k,231) +rxt(k,373)*y(k,204) +rxt(k,392)*y(k,217) + & + .400_r8*rxt(k,402)*y(k,192))*y(k,124) + (rxt(k,327)*y(k,26) + & + .500_r8*rxt(k,328)*y(k,27) +.800_r8*rxt(k,400)*y(k,1))*y(k,228) & + + (.500_r8*rxt(k,351)*y(k,29) +.100_r8*rxt(k,396)*y(k,111))*y(k,136) & + + (1.600_r8*rxt(k,323)*y(k,197) +.800_r8*rxt(k,324)*y(k,201)) & *y(k,197) +.400_r8*rxt(k,20)*y(k,1) +.400_r8*rxt(k,21)*y(k,2) & - +rxt(k,367)*y(k,126)*y(k,16) +rxt(k,30)*y(k,27) & - +.200_r8*rxt(k,387)*y(k,217)*y(k,90) +.330_r8*rxt(k,46)*y(k,94) & + +rxt(k,371)*y(k,126)*y(k,16) +rxt(k,30)*y(k,27) & + +.200_r8*rxt(k,391)*y(k,217)*y(k,90) +.330_r8*rxt(k,46)*y(k,94) & +rxt(k,54)*y(k,108) +rxt(k,63)*y(k,148) - loss(k,115) = (rxt(k,282)* y(k,56) +rxt(k,283)* y(k,228) + rxt(k,90) & + loss(k,115) = (rxt(k,286)* y(k,56) +rxt(k,287)* y(k,228) + rxt(k,90) & + het_rates(k,46))* y(k,46) prod(k,115) = 0._r8 - loss(k,57) = (rxt(k,329)* y(k,228) + het_rates(k,47))* y(k,47) + loss(k,57) = (rxt(k,333)* y(k,228) + het_rates(k,47))* y(k,47) prod(k,57) = 0._r8 - loss(k,195) = (rxt(k,366)* y(k,228) + rxt(k,36) + het_rates(k,48))* y(k,48) - prod(k,195) = (.820_r8*rxt(k,350)*y(k,198) +.500_r8*rxt(k,369)*y(k,204) + & - .250_r8*rxt(k,398)*y(k,192) +.270_r8*rxt(k,492)*y(k,233) + & - .040_r8*rxt(k,497)*y(k,234))*y(k,124) & - + (.820_r8*rxt(k,348)*y(k,198) +.150_r8*rxt(k,490)*y(k,233) + & - .025_r8*rxt(k,495)*y(k,234))*y(k,201) + (.250_r8*rxt(k,20) + & - .800_r8*rxt(k,396)*y(k,228))*y(k,1) + (.520_r8*rxt(k,480)*y(k,6) + & - .520_r8*rxt(k,483)*y(k,110))*y(k,136) + (.500_r8*rxt(k,70) + & - .500_r8*rxt(k,501)*y(k,228))*y(k,181) +.250_r8*rxt(k,21)*y(k,2) & - +.500_r8*rxt(k,367)*y(k,126)*y(k,16) +.820_r8*rxt(k,31)*y(k,30) & + loss(k,195) = (rxt(k,370)* y(k,228) + rxt(k,36) + het_rates(k,48))* y(k,48) + prod(k,195) = (.820_r8*rxt(k,354)*y(k,198) +.500_r8*rxt(k,373)*y(k,204) + & + .250_r8*rxt(k,402)*y(k,192) +.270_r8*rxt(k,496)*y(k,233) + & + .040_r8*rxt(k,501)*y(k,234))*y(k,124) & + + (.820_r8*rxt(k,352)*y(k,198) +.150_r8*rxt(k,494)*y(k,233) + & + .025_r8*rxt(k,499)*y(k,234))*y(k,201) + (.250_r8*rxt(k,20) + & + .800_r8*rxt(k,400)*y(k,228))*y(k,1) + (.520_r8*rxt(k,484)*y(k,6) + & + .520_r8*rxt(k,487)*y(k,110))*y(k,136) + (.500_r8*rxt(k,70) + & + .500_r8*rxt(k,505)*y(k,228))*y(k,181) +.250_r8*rxt(k,21)*y(k,2) & + +.500_r8*rxt(k,371)*y(k,126)*y(k,16) +.820_r8*rxt(k,31)*y(k,30) & +.170_r8*rxt(k,46)*y(k,94) +.300_r8*rxt(k,66)*y(k,177) & +.050_r8*rxt(k,68)*y(k,179) - loss(k,210) = (rxt(k,353)* y(k,126) +rxt(k,354)* y(k,228) + rxt(k,37) & + loss(k,210) = (rxt(k,357)* y(k,126) +rxt(k,358)* y(k,228) + rxt(k,37) & + het_rates(k,49))* y(k,49) - prod(k,210) = (.250_r8*rxt(k,376)*y(k,213) +.050_r8*rxt(k,414)*y(k,209) + & - .250_r8*rxt(k,433)*y(k,237) +.170_r8*rxt(k,451)*y(k,202) + & - .170_r8*rxt(k,457)*y(k,216) +.400_r8*rxt(k,467)*y(k,235) + & - .540_r8*rxt(k,473)*y(k,238) +.510_r8*rxt(k,476)*y(k,240))*y(k,124) & - + (.250_r8*rxt(k,375)*y(k,213) +.050_r8*rxt(k,415)*y(k,209) + & - .250_r8*rxt(k,434)*y(k,237))*y(k,126) & - + (.500_r8*rxt(k,361)*y(k,232) +.240_r8*rxt(k,373)*y(k,213) + & - .100_r8*rxt(k,431)*y(k,237))*y(k,201) & - + (.070_r8*rxt(k,450)*y(k,202) +.070_r8*rxt(k,456)*y(k,216))*y(k,90) & - + (.880_r8*rxt(k,378)*y(k,105) +.500_r8*rxt(k,392)*y(k,111)) & - *y(k,136) + (.250_r8*rxt(k,372)*y(k,213) + & - .250_r8*rxt(k,430)*y(k,237))*y(k,200) + (rxt(k,356)*y(k,96) + & - rxt(k,357)*y(k,127))*y(k,228) +.180_r8*rxt(k,24)*y(k,10) +rxt(k,28) & + prod(k,210) = (.250_r8*rxt(k,380)*y(k,213) +.050_r8*rxt(k,418)*y(k,209) + & + .250_r8*rxt(k,437)*y(k,237) +.170_r8*rxt(k,455)*y(k,202) + & + .170_r8*rxt(k,461)*y(k,216) +.400_r8*rxt(k,471)*y(k,235) + & + .540_r8*rxt(k,477)*y(k,238) +.510_r8*rxt(k,480)*y(k,240))*y(k,124) & + + (.250_r8*rxt(k,379)*y(k,213) +.050_r8*rxt(k,419)*y(k,209) + & + .250_r8*rxt(k,438)*y(k,237))*y(k,126) & + + (.500_r8*rxt(k,365)*y(k,232) +.240_r8*rxt(k,377)*y(k,213) + & + .100_r8*rxt(k,435)*y(k,237))*y(k,201) & + + (.070_r8*rxt(k,454)*y(k,202) +.070_r8*rxt(k,460)*y(k,216))*y(k,90) & + + (.880_r8*rxt(k,382)*y(k,105) +.500_r8*rxt(k,396)*y(k,111)) & + *y(k,136) + (.250_r8*rxt(k,376)*y(k,213) + & + .250_r8*rxt(k,434)*y(k,237))*y(k,200) + (rxt(k,360)*y(k,96) + & + rxt(k,361)*y(k,127))*y(k,228) +.180_r8*rxt(k,24)*y(k,10) +rxt(k,28) & *y(k,14) +.400_r8*rxt(k,71)*y(k,182) +.540_r8*rxt(k,73)*y(k,186) & +.510_r8*rxt(k,74)*y(k,188) - loss(k,161) = (rxt(k,334)* y(k,228) + het_rates(k,50))* y(k,50) - prod(k,161) = (.150_r8*rxt(k,332)*y(k,200) +.150_r8*rxt(k,383)*y(k,215)) & - *y(k,90) +.120_r8*rxt(k,347)*y(k,136)*y(k,29) & - +.100_r8*rxt(k,331)*y(k,201)*y(k,200) - loss(k,152) = (rxt(k,335)* y(k,228) + rxt(k,38) + het_rates(k,51))* y(k,51) - prod(k,152) = (.400_r8*rxt(k,332)*y(k,200) +.400_r8*rxt(k,383)*y(k,215)) & + loss(k,161) = (rxt(k,338)* y(k,228) + het_rates(k,50))* y(k,50) + prod(k,161) = (.150_r8*rxt(k,336)*y(k,200) +.150_r8*rxt(k,387)*y(k,215)) & + *y(k,90) +.120_r8*rxt(k,351)*y(k,136)*y(k,29) & + +.100_r8*rxt(k,335)*y(k,201)*y(k,200) + loss(k,151) = (rxt(k,339)* y(k,228) + rxt(k,38) + het_rates(k,51))* y(k,51) + prod(k,151) = (.360_r8*rxt(k,336)*y(k,200) +.400_r8*rxt(k,387)*y(k,215)) & *y(k,90) - loss(k,173) = (rxt(k,302)* y(k,228) + het_rates(k,52))* y(k,52) - prod(k,173) = (rxt(k,299)*y(k,201) +.300_r8*rxt(k,320)*y(k,197) + & - .500_r8*rxt(k,361)*y(k,232) +.250_r8*rxt(k,373)*y(k,213) + & - .250_r8*rxt(k,406)*y(k,208) +.250_r8*rxt(k,411)*y(k,209) + & - .200_r8*rxt(k,420)*y(k,210) +.300_r8*rxt(k,431)*y(k,237) + & - .250_r8*rxt(k,485)*y(k,223) +.250_r8*rxt(k,490)*y(k,233) + & - .250_r8*rxt(k,495)*y(k,234))*y(k,201) - loss(k,128) = (rxt(k,303)* y(k,228) + rxt(k,39) + het_rates(k,53))* y(k,53) - prod(k,128) =rxt(k,300)*y(k,201)*y(k,90) - loss(k,236) = (rxt(k,215)* y(k,56) +rxt(k,271)* y(k,73) + (rxt(k,310) + & - rxt(k,311) +rxt(k,312))* y(k,224) +rxt(k,304)* y(k,228) + rxt(k,40) & + loss(k,173) = (rxt(k,306)* y(k,228) + het_rates(k,52))* y(k,52) + prod(k,173) = (rxt(k,303)*y(k,201) +.300_r8*rxt(k,324)*y(k,197) + & + .500_r8*rxt(k,365)*y(k,232) +.250_r8*rxt(k,377)*y(k,213) + & + .250_r8*rxt(k,410)*y(k,208) +.250_r8*rxt(k,415)*y(k,209) + & + .200_r8*rxt(k,424)*y(k,210) +.300_r8*rxt(k,435)*y(k,237) + & + .250_r8*rxt(k,489)*y(k,223) +.250_r8*rxt(k,494)*y(k,233) + & + .250_r8*rxt(k,499)*y(k,234))*y(k,201) + loss(k,128) = (rxt(k,307)* y(k,228) + rxt(k,39) + het_rates(k,53))* y(k,53) + prod(k,128) =rxt(k,304)*y(k,201)*y(k,90) + loss(k,223) = (rxt(k,219)* y(k,56) +rxt(k,275)* y(k,73) + (rxt(k,314) + & + rxt(k,315) +rxt(k,316))* y(k,224) +rxt(k,308)* y(k,228) + rxt(k,40) & + rxt(k,41) + het_rates(k,54))* y(k,54) - prod(k,236) =.100_r8*rxt(k,347)*y(k,136)*y(k,29) - loss(k,117) = (rxt(k,284)* y(k,56) +rxt(k,267)* y(k,224) +rxt(k,285) & + prod(k,223) =.100_r8*rxt(k,351)*y(k,136)*y(k,29) + loss(k,117) = (rxt(k,288)* y(k,56) +rxt(k,271)* y(k,224) +rxt(k,289) & * y(k,228) + rxt(k,91) + het_rates(k,55))* y(k,55) prod(k,117) = 0._r8 - loss(k,234) = (rxt(k,325)* y(k,28) +rxt(k,355)* y(k,31) +rxt(k,277)* y(k,41) & - +rxt(k,214)* y(k,42) +rxt(k,279)* y(k,43) +rxt(k,282)* y(k,46) & - +rxt(k,215)* y(k,54) +rxt(k,284)* y(k,55) +rxt(k,227)* y(k,60) & - +rxt(k,216)* y(k,77) +rxt(k,217)* y(k,79) + (rxt(k,218) +rxt(k,219)) & - * y(k,90) +rxt(k,236)* y(k,93) +rxt(k,220)* y(k,136) & + loss(k,227) = (rxt(k,329)* y(k,28) +rxt(k,359)* y(k,31) +rxt(k,281)* y(k,41) & + +rxt(k,218)* y(k,42) +rxt(k,283)* y(k,43) +rxt(k,286)* y(k,46) & + +rxt(k,219)* y(k,54) +rxt(k,288)* y(k,55) +rxt(k,231)* y(k,60) & + +rxt(k,220)* y(k,77) +rxt(k,221)* y(k,79) + (rxt(k,222) +rxt(k,223)) & + * y(k,90) +rxt(k,240)* y(k,93) +rxt(k,224)* y(k,136) & + het_rates(k,56))* y(k,56) - prod(k,234) = (4.000_r8*rxt(k,239)*y(k,33) +rxt(k,240)*y(k,34) + & - 2.000_r8*rxt(k,241)*y(k,36) +2.000_r8*rxt(k,242)*y(k,37) + & - 2.000_r8*rxt(k,243)*y(k,38) +rxt(k,244)*y(k,39) + & - 2.000_r8*rxt(k,245)*y(k,40) +rxt(k,246)*y(k,85) +rxt(k,276)*y(k,65) + & - rxt(k,291)*y(k,82) +rxt(k,292)*y(k,83) +rxt(k,293)*y(k,84))*y(k,224) & - + (rxt(k,94) +rxt(k,221)*y(k,201) +2.000_r8*rxt(k,222)*y(k,59) + & - rxt(k,224)*y(k,59) +rxt(k,226)*y(k,124) +rxt(k,231)*y(k,134) + & - rxt(k,232)*y(k,228) +rxt(k,255)*y(k,19) +rxt(k,510)*y(k,152))*y(k,59) & - + (rxt(k,235)*y(k,85) +3.000_r8*rxt(k,281)*y(k,44) + & - rxt(k,283)*y(k,46) +rxt(k,286)*y(k,82) +rxt(k,287)*y(k,83) + & - rxt(k,288)*y(k,84))*y(k,228) + (rxt(k,104) +rxt(k,234)*y(k,134)) & + prod(k,227) = (4.000_r8*rxt(k,243)*y(k,33) +rxt(k,244)*y(k,34) + & + 2.000_r8*rxt(k,245)*y(k,36) +2.000_r8*rxt(k,246)*y(k,37) + & + 2.000_r8*rxt(k,247)*y(k,38) +rxt(k,248)*y(k,39) + & + 2.000_r8*rxt(k,249)*y(k,40) +rxt(k,250)*y(k,85) +rxt(k,280)*y(k,65) + & + rxt(k,295)*y(k,82) +rxt(k,296)*y(k,83) +rxt(k,297)*y(k,84))*y(k,224) & + + (rxt(k,94) +rxt(k,225)*y(k,201) +2.000_r8*rxt(k,226)*y(k,59) + & + rxt(k,228)*y(k,59) +rxt(k,230)*y(k,124) +rxt(k,235)*y(k,134) + & + rxt(k,236)*y(k,228) +rxt(k,259)*y(k,19) +rxt(k,514)*y(k,152))*y(k,59) & + + (rxt(k,239)*y(k,85) +3.000_r8*rxt(k,285)*y(k,44) + & + rxt(k,287)*y(k,46) +rxt(k,290)*y(k,82) +rxt(k,291)*y(k,83) + & + rxt(k,292)*y(k,84))*y(k,228) + (rxt(k,104) +rxt(k,238)*y(k,134)) & *y(k,85) +rxt(k,75)*y(k,18) +4.000_r8*rxt(k,79)*y(k,33) +rxt(k,80) & *y(k,34) +2.000_r8*rxt(k,82)*y(k,36) +2.000_r8*rxt(k,83)*y(k,37) & +2.000_r8*rxt(k,84)*y(k,38) +rxt(k,85)*y(k,39) +2.000_r8*rxt(k,86) & @@ -312,89 +312,89 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & *y(k,60) +rxt(k,98)*y(k,65) +rxt(k,101)*y(k,82) +rxt(k,102)*y(k,83) & +rxt(k,103)*y(k,84) +rxt(k,107)*y(k,93) loss(k,74) = ( + rxt(k,92) + het_rates(k,57))* y(k,57) - prod(k,74) = (rxt(k,563)*y(k,93) +rxt(k,568)*y(k,60) +rxt(k,569)*y(k,93) + & - rxt(k,573)*y(k,60) +rxt(k,574)*y(k,93) +rxt(k,578)*y(k,60))*y(k,85) & - +rxt(k,227)*y(k,60)*y(k,56) +rxt(k,223)*y(k,59)*y(k,59) - loss(k,54) = ( + rxt(k,93) + rxt(k,249) + het_rates(k,58))* y(k,58) - prod(k,54) =rxt(k,248)*y(k,59)*y(k,59) - loss(k,224) = ((rxt(k,254) +rxt(k,255) +rxt(k,256))* y(k,19) & - + 2._r8*(rxt(k,222) +rxt(k,223) +rxt(k,224) +rxt(k,248))* y(k,59) & - +rxt(k,225)* y(k,90) +rxt(k,226)* y(k,124) +rxt(k,228)* y(k,125) & - +rxt(k,231)* y(k,134) +rxt(k,510)* y(k,152) +rxt(k,221)* y(k,201) & - + (rxt(k,232) +rxt(k,233))* y(k,228) + rxt(k,94) + het_rates(k,59)) & + prod(k,74) = (rxt(k,567)*y(k,93) +rxt(k,572)*y(k,60) +rxt(k,573)*y(k,93) + & + rxt(k,577)*y(k,60) +rxt(k,578)*y(k,93) +rxt(k,582)*y(k,60))*y(k,85) & + +rxt(k,231)*y(k,60)*y(k,56) +rxt(k,227)*y(k,59)*y(k,59) + loss(k,54) = ( + rxt(k,93) + rxt(k,253) + het_rates(k,58))* y(k,58) + prod(k,54) =rxt(k,252)*y(k,59)*y(k,59) + loss(k,233) = ((rxt(k,258) +rxt(k,259) +rxt(k,260))* y(k,19) & + + 2._r8*(rxt(k,226) +rxt(k,227) +rxt(k,228) +rxt(k,252))* y(k,59) & + +rxt(k,229)* y(k,90) +rxt(k,230)* y(k,124) +rxt(k,232)* y(k,125) & + +rxt(k,235)* y(k,134) +rxt(k,514)* y(k,152) +rxt(k,225)* y(k,201) & + + (rxt(k,236) +rxt(k,237))* y(k,228) + rxt(k,94) + het_rates(k,59)) & * y(k,59) - prod(k,224) = (rxt(k,219)*y(k,90) +rxt(k,220)*y(k,136) +rxt(k,236)*y(k,93)) & - *y(k,56) + (rxt(k,96) +rxt(k,229)*y(k,134))*y(k,60) & - + (rxt(k,237)*y(k,134) +rxt(k,238)*y(k,228))*y(k,93) + (rxt(k,108) + & - rxt(k,515)*y(k,152))*y(k,138) +2.000_r8*rxt(k,249)*y(k,58) & - +rxt(k,247)*y(k,224)*y(k,85) - loss(k,187) = (rxt(k,227)* y(k,56) + (rxt(k,568) +rxt(k,573) +rxt(k,578)) & - * y(k,85) +rxt(k,229)* y(k,134) +rxt(k,230)* y(k,228) + rxt(k,95) & - + rxt(k,96) + rxt(k,566) + rxt(k,571) + rxt(k,577) & + prod(k,233) = (rxt(k,223)*y(k,90) +rxt(k,224)*y(k,136) +rxt(k,240)*y(k,93)) & + *y(k,56) + (rxt(k,96) +rxt(k,233)*y(k,134))*y(k,60) & + + (rxt(k,241)*y(k,134) +rxt(k,242)*y(k,228))*y(k,93) + (rxt(k,108) + & + rxt(k,519)*y(k,152))*y(k,138) +2.000_r8*rxt(k,253)*y(k,58) & + +rxt(k,251)*y(k,224)*y(k,85) + loss(k,187) = (rxt(k,231)* y(k,56) + (rxt(k,572) +rxt(k,577) +rxt(k,582)) & + * y(k,85) +rxt(k,233)* y(k,134) +rxt(k,234)* y(k,228) + rxt(k,95) & + + rxt(k,96) + rxt(k,570) + rxt(k,575) + rxt(k,581) & + het_rates(k,60))* y(k,60) - prod(k,187) =rxt(k,228)*y(k,125)*y(k,59) + prod(k,187) =rxt(k,232)*y(k,125)*y(k,59) loss(k,5) = ( + het_rates(k,61))* y(k,61) prod(k,5) = 0._r8 - loss(k,201) = (rxt(k,314)* y(k,228) + het_rates(k,62))* y(k,62) - prod(k,201) = (rxt(k,33) +rxt(k,34) +rxt(k,214)*y(k,56) +rxt(k,250)*y(k,17) + & - rxt(k,295)*y(k,126) +rxt(k,296)*y(k,134) +rxt(k,297)*y(k,228)) & - *y(k,42) + (.630_r8*rxt(k,318)*y(k,25) +.560_r8*rxt(k,347)*y(k,29) + & - .650_r8*rxt(k,378)*y(k,105) +.560_r8*rxt(k,392)*y(k,111) + & - .620_r8*rxt(k,425)*y(k,99) +.230_r8*rxt(k,480)*y(k,6) + & - .230_r8*rxt(k,483)*y(k,110))*y(k,136) & - + (.220_r8*rxt(k,376)*y(k,213) +.250_r8*rxt(k,433)*y(k,237) + & - .170_r8*rxt(k,451)*y(k,202) +.400_r8*rxt(k,454)*y(k,214) + & - .350_r8*rxt(k,457)*y(k,216) +.225_r8*rxt(k,492)*y(k,233))*y(k,124) & - + (.350_r8*rxt(k,316)*y(k,24) +rxt(k,341)*y(k,75) + & - rxt(k,354)*y(k,49) +.700_r8*rxt(k,501)*y(k,181) +rxt(k,505)*y(k,139)) & - *y(k,228) + (rxt(k,42) +rxt(k,110) +rxt(k,591)*y(k,229))*y(k,63) & - + (.070_r8*rxt(k,450)*y(k,202) +.160_r8*rxt(k,453)*y(k,214) + & - .140_r8*rxt(k,456)*y(k,216))*y(k,90) + (rxt(k,353)*y(k,49) + & - .220_r8*rxt(k,375)*y(k,213) +.500_r8*rxt(k,434)*y(k,237))*y(k,126) & - + (.110_r8*rxt(k,373)*y(k,213) +.200_r8*rxt(k,431)*y(k,237) + & - .125_r8*rxt(k,490)*y(k,233))*y(k,201) + (rxt(k,137) + & - rxt(k,504)*y(k,134))*y(k,139) + (.220_r8*rxt(k,372)*y(k,213) + & - .250_r8*rxt(k,430)*y(k,237))*y(k,200) +1.500_r8*rxt(k,23)*y(k,9) & + loss(k,201) = (rxt(k,318)* y(k,228) + het_rates(k,62))* y(k,62) + prod(k,201) = (rxt(k,33) +rxt(k,34) +rxt(k,218)*y(k,56) +rxt(k,254)*y(k,17) + & + rxt(k,299)*y(k,126) +rxt(k,300)*y(k,134) +rxt(k,301)*y(k,228)) & + *y(k,42) + (.630_r8*rxt(k,322)*y(k,25) +.560_r8*rxt(k,351)*y(k,29) + & + .650_r8*rxt(k,382)*y(k,105) +.560_r8*rxt(k,396)*y(k,111) + & + .620_r8*rxt(k,429)*y(k,99) +.230_r8*rxt(k,484)*y(k,6) + & + .230_r8*rxt(k,487)*y(k,110))*y(k,136) & + + (.220_r8*rxt(k,380)*y(k,213) +.250_r8*rxt(k,437)*y(k,237) + & + .170_r8*rxt(k,455)*y(k,202) +.400_r8*rxt(k,458)*y(k,214) + & + .350_r8*rxt(k,461)*y(k,216) +.225_r8*rxt(k,496)*y(k,233))*y(k,124) & + + (.350_r8*rxt(k,320)*y(k,24) +rxt(k,345)*y(k,75) + & + rxt(k,358)*y(k,49) +.700_r8*rxt(k,505)*y(k,181) +rxt(k,509)*y(k,139)) & + *y(k,228) + (rxt(k,42) +rxt(k,110) +rxt(k,595)*y(k,229))*y(k,63) & + + (.070_r8*rxt(k,454)*y(k,202) +.160_r8*rxt(k,457)*y(k,214) + & + .140_r8*rxt(k,460)*y(k,216))*y(k,90) + (rxt(k,357)*y(k,49) + & + .220_r8*rxt(k,379)*y(k,213) +.500_r8*rxt(k,438)*y(k,237))*y(k,126) & + + (.110_r8*rxt(k,377)*y(k,213) +.200_r8*rxt(k,435)*y(k,237) + & + .125_r8*rxt(k,494)*y(k,233))*y(k,201) + (rxt(k,137) + & + rxt(k,508)*y(k,134))*y(k,139) + (.220_r8*rxt(k,376)*y(k,213) + & + .250_r8*rxt(k,434)*y(k,237))*y(k,200) +1.500_r8*rxt(k,23)*y(k,9) & +.450_r8*rxt(k,24)*y(k,10) +.600_r8*rxt(k,27)*y(k,13) +rxt(k,28) & - *y(k,14) +rxt(k,35)*y(k,45) +rxt(k,282)*y(k,56)*y(k,46) +rxt(k,37) & + *y(k,14) +rxt(k,35)*y(k,45) +rxt(k,286)*y(k,56)*y(k,46) +rxt(k,37) & *y(k,49) +.380_r8*rxt(k,40)*y(k,54) +rxt(k,44)*y(k,74) & +2.000_r8*rxt(k,45)*y(k,75) +.330_r8*rxt(k,46)*y(k,94) & +1.340_r8*rxt(k,52)*y(k,105) +.700_r8*rxt(k,56)*y(k,111) & +1.500_r8*rxt(k,65)*y(k,176) +.250_r8*rxt(k,66)*y(k,177) +rxt(k,69) & *y(k,180) +1.700_r8*rxt(k,70)*y(k,181) - loss(k,217) = (rxt(k,591)* y(k,229) + rxt(k,42) + rxt(k,110) & + loss(k,217) = (rxt(k,595)* y(k,229) + rxt(k,42) + rxt(k,110) & + het_rates(k,63))* y(k,63) - prod(k,217) = (rxt(k,306)*y(k,87) +rxt(k,314)*y(k,62) +rxt(k,334)*y(k,50) + & - .500_r8*rxt(k,335)*y(k,51) +.800_r8*rxt(k,340)*y(k,74) + & - rxt(k,341)*y(k,75) +.500_r8*rxt(k,391)*y(k,109) + & - 1.800_r8*rxt(k,501)*y(k,181))*y(k,228) & - + (2.000_r8*rxt(k,330)*y(k,200) +.900_r8*rxt(k,331)*y(k,201) + & - rxt(k,333)*y(k,124) +2.000_r8*rxt(k,381)*y(k,215) + & - rxt(k,405)*y(k,208) +rxt(k,430)*y(k,237))*y(k,200) & - + (.200_r8*rxt(k,347)*y(k,29) +.100_r8*rxt(k,392)*y(k,111) + & - .270_r8*rxt(k,480)*y(k,6) +.270_r8*rxt(k,483)*y(k,110))*y(k,136) & - + (rxt(k,382)*y(k,201) +.450_r8*rxt(k,383)*y(k,90) + & - 2.000_r8*rxt(k,384)*y(k,215))*y(k,215) & - + (.500_r8*rxt(k,490)*y(k,201) +.900_r8*rxt(k,492)*y(k,124)) & + prod(k,217) = (rxt(k,310)*y(k,87) +rxt(k,318)*y(k,62) +rxt(k,338)*y(k,50) + & + .500_r8*rxt(k,339)*y(k,51) +.800_r8*rxt(k,344)*y(k,74) + & + rxt(k,345)*y(k,75) +.500_r8*rxt(k,395)*y(k,109) + & + 1.800_r8*rxt(k,505)*y(k,181))*y(k,228) & + + (2.000_r8*rxt(k,334)*y(k,200) +.900_r8*rxt(k,335)*y(k,201) + & + .490_r8*rxt(k,336)*y(k,90) +rxt(k,337)*y(k,124) + & + 2.000_r8*rxt(k,385)*y(k,215) +rxt(k,409)*y(k,208) + & + rxt(k,434)*y(k,237))*y(k,200) + (.200_r8*rxt(k,351)*y(k,29) + & + .100_r8*rxt(k,396)*y(k,111) +.270_r8*rxt(k,484)*y(k,6) + & + .270_r8*rxt(k,487)*y(k,110))*y(k,136) + (rxt(k,386)*y(k,201) + & + .450_r8*rxt(k,387)*y(k,90) +2.000_r8*rxt(k,388)*y(k,215))*y(k,215) & + + (.500_r8*rxt(k,494)*y(k,201) +.900_r8*rxt(k,496)*y(k,124)) & *y(k,233) +rxt(k,38)*y(k,51) +.440_r8*rxt(k,40)*y(k,54) & +.400_r8*rxt(k,61)*y(k,141) +rxt(k,66)*y(k,177) +.800_r8*rxt(k,70) & *y(k,181) - loss(k,89) = (rxt(k,275)* y(k,224) + rxt(k,97) + het_rates(k,64))* y(k,64) - prod(k,89) = (rxt(k,240)*y(k,34) +rxt(k,242)*y(k,37) + & - 2.000_r8*rxt(k,243)*y(k,38) +2.000_r8*rxt(k,244)*y(k,39) + & - rxt(k,245)*y(k,40) +rxt(k,266)*y(k,35) +2.000_r8*rxt(k,268)*y(k,78) + & - rxt(k,292)*y(k,83) +rxt(k,293)*y(k,84))*y(k,224) + (rxt(k,102) + & - rxt(k,287)*y(k,228))*y(k,83) + (rxt(k,103) +rxt(k,288)*y(k,228)) & + loss(k,89) = (rxt(k,279)* y(k,224) + rxt(k,97) + het_rates(k,64))* y(k,64) + prod(k,89) = (rxt(k,244)*y(k,34) +rxt(k,246)*y(k,37) + & + 2.000_r8*rxt(k,247)*y(k,38) +2.000_r8*rxt(k,248)*y(k,39) + & + rxt(k,249)*y(k,40) +rxt(k,270)*y(k,35) +2.000_r8*rxt(k,272)*y(k,78) + & + rxt(k,296)*y(k,83) +rxt(k,297)*y(k,84))*y(k,224) + (rxt(k,102) + & + rxt(k,291)*y(k,228))*y(k,83) + (rxt(k,103) +rxt(k,292)*y(k,228)) & *y(k,84) +rxt(k,80)*y(k,34) +rxt(k,81)*y(k,35) +rxt(k,83)*y(k,37) & +2.000_r8*rxt(k,84)*y(k,38) +2.000_r8*rxt(k,85)*y(k,39) +rxt(k,86) & *y(k,40) +2.000_r8*rxt(k,99)*y(k,78) - loss(k,91) = (rxt(k,276)* y(k,224) + rxt(k,98) + het_rates(k,65))* y(k,65) - prod(k,91) = (rxt(k,101) +rxt(k,286)*y(k,228) +rxt(k,291)*y(k,224))*y(k,82) & - + (rxt(k,82) +rxt(k,241)*y(k,224))*y(k,36) + (rxt(k,83) + & - rxt(k,242)*y(k,224))*y(k,37) - loss(k,79) = (rxt(k,449)* y(k,228) + het_rates(k,66))* y(k,66) - prod(k,79) =.180_r8*rxt(k,469)*y(k,228)*y(k,183) - loss(k,104) = (rxt(k,502)* y(k,126) + (rxt(k,503) +rxt(k,517))* y(k,228) & + loss(k,91) = (rxt(k,280)* y(k,224) + rxt(k,98) + het_rates(k,65))* y(k,65) + prod(k,91) = (rxt(k,101) +rxt(k,290)*y(k,228) +rxt(k,295)*y(k,224))*y(k,82) & + + (rxt(k,82) +rxt(k,245)*y(k,224))*y(k,36) + (rxt(k,83) + & + rxt(k,246)*y(k,224))*y(k,37) + loss(k,79) = (rxt(k,453)* y(k,228) + het_rates(k,66))* y(k,66) + prod(k,79) =.180_r8*rxt(k,473)*y(k,228)*y(k,183) + loss(k,104) = (rxt(k,506)* y(k,126) + (rxt(k,507) +rxt(k,521))* y(k,228) & + het_rates(k,67))* y(k,67) prod(k,104) = 0._r8 loss(k,6) = ( + het_rates(k,68))* y(k,68) @@ -403,371 +403,373 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,7) = 0._r8 loss(k,8) = ( + het_rates(k,70))* y(k,70) prod(k,8) = 0._r8 - loss(k,9) = ( + rxt(k,594) + het_rates(k,71))* y(k,71) + loss(k,9) = ( + rxt(k,598) + het_rates(k,71))* y(k,71) prod(k,9) = 0._r8 loss(k,63) = ( + rxt(k,43) + het_rates(k,72))* y(k,72) - prod(k,63) =rxt(k,336)*y(k,206)*y(k,90) - loss(k,184) = (rxt(k,271)* y(k,54) +rxt(k,272)* y(k,77) +rxt(k,274)* y(k,89) & - +rxt(k,273)* y(k,241) + het_rates(k,73))* y(k,73) - prod(k,184) = (rxt(k,244)*y(k,39) +rxt(k,266)*y(k,35) + & - 2.000_r8*rxt(k,275)*y(k,64) +rxt(k,276)*y(k,65))*y(k,224) +rxt(k,81) & + prod(k,63) =rxt(k,340)*y(k,206)*y(k,90) + loss(k,184) = (rxt(k,275)* y(k,54) +rxt(k,276)* y(k,77) +rxt(k,278)* y(k,89) & + +rxt(k,277)* y(k,241) + het_rates(k,73))* y(k,73) + prod(k,184) = (rxt(k,248)*y(k,39) +rxt(k,270)*y(k,35) + & + 2.000_r8*rxt(k,279)*y(k,64) +rxt(k,280)*y(k,65))*y(k,224) +rxt(k,81) & *y(k,35) +rxt(k,85)*y(k,39) +2.000_r8*rxt(k,97)*y(k,64) +rxt(k,98) & *y(k,65) +rxt(k,105)*y(k,88) - loss(k,202) = (rxt(k,340)* y(k,228) + rxt(k,44) + het_rates(k,74))* y(k,74) - prod(k,202) = (.530_r8*rxt(k,376)*y(k,213) +.050_r8*rxt(k,414)*y(k,209) + & - .250_r8*rxt(k,433)*y(k,237) +.225_r8*rxt(k,492)*y(k,233))*y(k,124) & - + (.530_r8*rxt(k,375)*y(k,213) +.050_r8*rxt(k,415)*y(k,209) + & - .250_r8*rxt(k,434)*y(k,237))*y(k,126) & - + (.260_r8*rxt(k,373)*y(k,213) +.100_r8*rxt(k,431)*y(k,237) + & - .125_r8*rxt(k,490)*y(k,233))*y(k,201) & - + (.700_r8*rxt(k,416)*y(k,100) +.500_r8*rxt(k,417)*y(k,101) + & - rxt(k,428)*y(k,115))*y(k,228) + (.530_r8*rxt(k,372)*y(k,213) + & - .250_r8*rxt(k,430)*y(k,237))*y(k,200) +.330_r8*rxt(k,46)*y(k,94) & - +rxt(k,339)*y(k,205)*y(k,135) +.250_r8*rxt(k,66)*y(k,177) - loss(k,192) = (rxt(k,341)* y(k,228) + rxt(k,45) + rxt(k,520) & + loss(k,202) = (rxt(k,344)* y(k,228) + rxt(k,44) + het_rates(k,74))* y(k,74) + prod(k,202) = (.530_r8*rxt(k,380)*y(k,213) +.050_r8*rxt(k,418)*y(k,209) + & + .250_r8*rxt(k,437)*y(k,237) +.225_r8*rxt(k,496)*y(k,233))*y(k,124) & + + (.530_r8*rxt(k,379)*y(k,213) +.050_r8*rxt(k,419)*y(k,209) + & + .250_r8*rxt(k,438)*y(k,237))*y(k,126) & + + (.260_r8*rxt(k,377)*y(k,213) +.100_r8*rxt(k,435)*y(k,237) + & + .125_r8*rxt(k,494)*y(k,233))*y(k,201) & + + (.700_r8*rxt(k,420)*y(k,100) +.500_r8*rxt(k,421)*y(k,101) + & + rxt(k,432)*y(k,115))*y(k,228) + (.530_r8*rxt(k,376)*y(k,213) + & + .250_r8*rxt(k,434)*y(k,237))*y(k,200) +.330_r8*rxt(k,46)*y(k,94) & + +rxt(k,343)*y(k,205)*y(k,135) +.250_r8*rxt(k,66)*y(k,177) + loss(k,191) = (rxt(k,345)* y(k,228) + rxt(k,45) + rxt(k,524) & + het_rates(k,75))* y(k,75) - prod(k,192) = (.050_r8*rxt(k,414)*y(k,209) +.250_r8*rxt(k,433)*y(k,237) + & - rxt(k,440)*y(k,194) +.400_r8*rxt(k,454)*y(k,214) + & - .170_r8*rxt(k,457)*y(k,216) +.700_r8*rxt(k,460)*y(k,230) + & - .600_r8*rxt(k,467)*y(k,235) +.340_r8*rxt(k,473)*y(k,238) + & - .170_r8*rxt(k,476)*y(k,240))*y(k,124) + (.650_r8*rxt(k,316)*y(k,24) + & - .200_r8*rxt(k,340)*y(k,74) +rxt(k,429)*y(k,116))*y(k,228) & - + (.250_r8*rxt(k,430)*y(k,200) +.100_r8*rxt(k,431)*y(k,201) + & - .250_r8*rxt(k,434)*y(k,126))*y(k,237) & - + (.160_r8*rxt(k,453)*y(k,214) +.070_r8*rxt(k,456)*y(k,216))*y(k,90) & + prod(k,191) = (.050_r8*rxt(k,418)*y(k,209) +.250_r8*rxt(k,437)*y(k,237) + & + rxt(k,444)*y(k,194) +.400_r8*rxt(k,458)*y(k,214) + & + .170_r8*rxt(k,461)*y(k,216) +.700_r8*rxt(k,464)*y(k,230) + & + .600_r8*rxt(k,471)*y(k,235) +.340_r8*rxt(k,477)*y(k,238) + & + .170_r8*rxt(k,480)*y(k,240))*y(k,124) + (.650_r8*rxt(k,320)*y(k,24) + & + .200_r8*rxt(k,344)*y(k,74) +rxt(k,433)*y(k,116))*y(k,228) & + + (.250_r8*rxt(k,434)*y(k,200) +.100_r8*rxt(k,435)*y(k,201) + & + .250_r8*rxt(k,438)*y(k,126))*y(k,237) & + + (.160_r8*rxt(k,457)*y(k,214) +.070_r8*rxt(k,460)*y(k,216))*y(k,90) & +rxt(k,22)*y(k,8) +.130_r8*rxt(k,24)*y(k,10) & - +.050_r8*rxt(k,415)*y(k,209)*y(k,126) +.700_r8*rxt(k,62)*y(k,145) & + +.050_r8*rxt(k,419)*y(k,209)*y(k,126) +.700_r8*rxt(k,62)*y(k,145) & +.600_r8*rxt(k,71)*y(k,182) +.340_r8*rxt(k,73)*y(k,186) & +.170_r8*rxt(k,74)*y(k,188) - loss(k,233) = ((rxt(k,172) +rxt(k,173) +rxt(k,174))* y(k,90) +rxt(k,175) & - * y(k,135) +rxt(k,178)* y(k,136) + het_rates(k,76))* y(k,76) - prod(k,233) = (rxt(k,179)*y(k,77) +rxt(k,182)*y(k,134) +rxt(k,202)*y(k,112) + & - rxt(k,297)*y(k,42) +rxt(k,505)*y(k,139) +rxt(k,511)*y(k,150) + & - rxt(k,516)*y(k,152))*y(k,228) + (rxt(k,153)*y(k,224) + & - rxt(k,170)*y(k,134) +rxt(k,216)*y(k,56) +rxt(k,272)*y(k,73))*y(k,77) & - + (.330_r8*rxt(k,40) +rxt(k,41) +rxt(k,311)*y(k,224))*y(k,54) & - + (rxt(k,100) +rxt(k,270)*y(k,224))*y(k,81) + (rxt(k,104) + & - rxt(k,247)*y(k,224))*y(k,85) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,241) & + loss(k,234) = ((rxt(k,173) +rxt(k,174) +rxt(k,175))* y(k,90) +rxt(k,176) & + * y(k,135) +rxt(k,179)* y(k,136) + het_rates(k,76))* y(k,76) + prod(k,234) = (rxt(k,180)*y(k,77) +rxt(k,183)*y(k,134) +rxt(k,203)*y(k,112) + & + rxt(k,301)*y(k,42) +rxt(k,509)*y(k,139) +rxt(k,515)*y(k,150) + & + rxt(k,520)*y(k,152))*y(k,228) + (rxt(k,153)*y(k,224) + & + rxt(k,171)*y(k,134) +rxt(k,220)*y(k,56) +rxt(k,276)*y(k,73))*y(k,77) & + + (.330_r8*rxt(k,40) +rxt(k,41) +rxt(k,315)*y(k,224))*y(k,54) & + + (rxt(k,100) +rxt(k,274)*y(k,224))*y(k,81) + (rxt(k,104) + & + rxt(k,251)*y(k,224))*y(k,85) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,241) & +2.000_r8*rxt(k,34)*y(k,42) +rxt(k,39)*y(k,53) +rxt(k,105)*y(k,88) - loss(k,218) = (rxt(k,216)* y(k,56) +rxt(k,272)* y(k,73) +rxt(k,170)* y(k,134) & - +rxt(k,153)* y(k,224) +rxt(k,179)* y(k,228) + het_rates(k,77)) & + loss(k,218) = (rxt(k,220)* y(k,56) +rxt(k,276)* y(k,73) +rxt(k,171)* y(k,134) & + +rxt(k,153)* y(k,224) +rxt(k,180)* y(k,228) + het_rates(k,77)) & * y(k,77) - prod(k,218) = (1.440_r8*rxt(k,40) +rxt(k,312)*y(k,224))*y(k,54) +rxt(k,33) & - *y(k,42) +rxt(k,172)*y(k,90)*y(k,76) +rxt(k,1)*y(k,241) - loss(k,58) = (rxt(k,268)* y(k,224) + rxt(k,99) + het_rates(k,78))* y(k,78) + prod(k,218) = (1.440_r8*rxt(k,40) +rxt(k,316)*y(k,224))*y(k,54) +rxt(k,33) & + *y(k,42) +rxt(k,173)*y(k,90)*y(k,76) +rxt(k,1)*y(k,241) + loss(k,58) = (rxt(k,272)* y(k,224) + rxt(k,99) + het_rates(k,78))* y(k,78) prod(k,58) = 0._r8 - loss(k,147) = (rxt(k,217)* y(k,56) +rxt(k,171)* y(k,134) +rxt(k,180) & + loss(k,147) = (rxt(k,221)* y(k,56) +rxt(k,172)* y(k,134) +rxt(k,181) & * y(k,228) + rxt(k,4) + het_rates(k,79))* y(k,79) - prod(k,147) =rxt(k,186)*y(k,90)*y(k,90) +rxt(k,185)*y(k,228)*y(k,228) + prod(k,147) =rxt(k,187)*y(k,90)*y(k,90) +rxt(k,186)*y(k,228)*y(k,228) loss(k,64) = ( + rxt(k,136) + het_rates(k,80))* y(k,80) - prod(k,64) =rxt(k,518)*y(k,241)*y(k,154) - loss(k,174) = (rxt(k,263)* y(k,134) + (rxt(k,269) +rxt(k,270))* y(k,224) & - +rxt(k,264)* y(k,228) + rxt(k,100) + het_rates(k,81))* y(k,81) - prod(k,174) = (rxt(k,250)*y(k,42) +rxt(k,251)*y(k,90))*y(k,17) - loss(k,90) = (rxt(k,291)* y(k,224) +rxt(k,286)* y(k,228) + rxt(k,101) & + prod(k,64) =rxt(k,522)*y(k,241)*y(k,154) + loss(k,174) = (rxt(k,267)* y(k,134) + (rxt(k,273) +rxt(k,274))* y(k,224) & + +rxt(k,268)* y(k,228) + rxt(k,100) + het_rates(k,81))* y(k,81) + prod(k,174) = (rxt(k,254)*y(k,42) +rxt(k,255)*y(k,90))*y(k,17) + loss(k,90) = (rxt(k,295)* y(k,224) +rxt(k,290)* y(k,228) + rxt(k,101) & + het_rates(k,82))* y(k,82) prod(k,90) = 0._r8 - loss(k,92) = (rxt(k,292)* y(k,224) +rxt(k,287)* y(k,228) + rxt(k,102) & + loss(k,92) = (rxt(k,296)* y(k,224) +rxt(k,291)* y(k,228) + rxt(k,102) & + het_rates(k,83))* y(k,83) prod(k,92) = 0._r8 - loss(k,101) = (rxt(k,293)* y(k,224) +rxt(k,288)* y(k,228) + rxt(k,103) & + loss(k,101) = (rxt(k,297)* y(k,224) +rxt(k,292)* y(k,228) + rxt(k,103) & + het_rates(k,84))* y(k,84) prod(k,101) = 0._r8 - loss(k,220) = ((rxt(k,568) +rxt(k,573) +rxt(k,578))* y(k,60) + (rxt(k,570) + & - rxt(k,575))* y(k,92) + (rxt(k,563) +rxt(k,569) +rxt(k,574))* y(k,93) & - +rxt(k,234)* y(k,134) + (rxt(k,246) +rxt(k,247))* y(k,224) & - +rxt(k,235)* y(k,228) + rxt(k,104) + het_rates(k,85))* y(k,85) - prod(k,220) = (rxt(k,214)*y(k,42) +rxt(k,215)*y(k,54) +rxt(k,216)*y(k,77) + & - rxt(k,217)*y(k,79) +rxt(k,218)*y(k,90) +rxt(k,236)*y(k,93) + & - rxt(k,277)*y(k,41) +rxt(k,279)*y(k,43) +2.000_r8*rxt(k,282)*y(k,46) + & - rxt(k,284)*y(k,55) +rxt(k,325)*y(k,28) +rxt(k,355)*y(k,31))*y(k,56) & - +rxt(k,233)*y(k,228)*y(k,59) - loss(k,77) = (rxt(k,313)* y(k,224) +rxt(k,305)* y(k,228) + het_rates(k,86)) & + loss(k,220) = ((rxt(k,572) +rxt(k,577) +rxt(k,582))* y(k,60) + (rxt(k,574) + & + rxt(k,579))* y(k,92) + (rxt(k,567) +rxt(k,573) +rxt(k,578))* y(k,93) & + +rxt(k,238)* y(k,134) + (rxt(k,250) +rxt(k,251))* y(k,224) & + +rxt(k,239)* y(k,228) + rxt(k,104) + het_rates(k,85))* y(k,85) + prod(k,220) = (rxt(k,218)*y(k,42) +rxt(k,219)*y(k,54) +rxt(k,220)*y(k,77) + & + rxt(k,221)*y(k,79) +rxt(k,222)*y(k,90) +rxt(k,240)*y(k,93) + & + rxt(k,281)*y(k,41) +rxt(k,283)*y(k,43) +2.000_r8*rxt(k,286)*y(k,46) + & + rxt(k,288)*y(k,55) +rxt(k,329)*y(k,28) +rxt(k,359)*y(k,31))*y(k,56) & + +rxt(k,237)*y(k,228)*y(k,59) + loss(k,77) = (rxt(k,317)* y(k,224) +rxt(k,309)* y(k,228) + het_rates(k,86)) & * y(k,86) prod(k,77) = 0._r8 - loss(k,183) = (rxt(k,306)* y(k,228) + het_rates(k,87))* y(k,87) - prod(k,183) = (.370_r8*rxt(k,318)*y(k,25) +.120_r8*rxt(k,347)*y(k,29) + & - .330_r8*rxt(k,378)*y(k,105) +.120_r8*rxt(k,392)*y(k,111) + & - .110_r8*rxt(k,425)*y(k,99) +.050_r8*rxt(k,480)*y(k,6) + & - .050_r8*rxt(k,483)*y(k,110))*y(k,136) + (rxt(k,307)*y(k,90) + & - rxt(k,309)*y(k,124))*y(k,207) +.350_r8*rxt(k,316)*y(k,228)*y(k,24) + loss(k,183) = (rxt(k,310)* y(k,228) + het_rates(k,87))* y(k,87) + prod(k,183) = (.370_r8*rxt(k,322)*y(k,25) +.120_r8*rxt(k,351)*y(k,29) + & + .330_r8*rxt(k,382)*y(k,105) +.120_r8*rxt(k,396)*y(k,111) + & + .110_r8*rxt(k,429)*y(k,99) +.050_r8*rxt(k,484)*y(k,6) + & + .050_r8*rxt(k,487)*y(k,110))*y(k,136) + (rxt(k,311)*y(k,90) + & + rxt(k,313)*y(k,124))*y(k,207) +.350_r8*rxt(k,320)*y(k,228)*y(k,24) loss(k,99) = ( + rxt(k,105) + het_rates(k,88))* y(k,88) - prod(k,99) = (rxt(k,271)*y(k,54) +rxt(k,272)*y(k,77) +rxt(k,273)*y(k,241) + & - rxt(k,274)*y(k,89))*y(k,73) - loss(k,231) = (rxt(k,274)* y(k,73) +rxt(k,211)* y(k,228) + rxt(k,9) & + prod(k,99) = (rxt(k,275)*y(k,54) +rxt(k,276)*y(k,77) +rxt(k,277)*y(k,241) + & + rxt(k,278)*y(k,89))*y(k,73) + loss(k,237) = (rxt(k,278)* y(k,73) +rxt(k,212)* y(k,228) + rxt(k,9) & + het_rates(k,89))* y(k,89) - prod(k,231) = (rxt(k,566) +rxt(k,571) +rxt(k,577) +rxt(k,568)*y(k,85) + & - rxt(k,573)*y(k,85) +rxt(k,578)*y(k,85))*y(k,60) + (rxt(k,530) + & - rxt(k,295)*y(k,42) +rxt(k,327)*y(k,45) +rxt(k,353)*y(k,49) + & - rxt(k,502)*y(k,67))*y(k,126) + (2.000_r8*rxt(k,525) + & - 2.000_r8*rxt(k,562) +2.000_r8*rxt(k,565) +2.000_r8*rxt(k,576)) & - *y(k,114) + (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,20) & - + (.500_r8*rxt(k,529) +rxt(k,210)*y(k,228))*y(k,125) +rxt(k,522) & - *y(k,94) +rxt(k,523)*y(k,100) +rxt(k,524)*y(k,101) +rxt(k,526) & - *y(k,115) +rxt(k,527)*y(k,116) +rxt(k,531)*y(k,128) +rxt(k,532) & - *y(k,140) +rxt(k,533)*y(k,178) - loss(k,237) = (rxt(k,251)* y(k,17) +rxt(k,257)* y(k,19) +rxt(k,294)* y(k,42) & - + (rxt(k,218) +rxt(k,219))* y(k,56) +rxt(k,225)* y(k,59) & - + (rxt(k,172) +rxt(k,173) +rxt(k,174))* y(k,76) + 2._r8*rxt(k,186) & - * y(k,90) +rxt(k,203)* y(k,124) +rxt(k,208)* y(k,125) +rxt(k,198) & - * y(k,126) +rxt(k,176)* y(k,134) +rxt(k,177)* y(k,136) +rxt(k,436) & - * y(k,191) +rxt(k,397)* y(k,192) +rxt(k,439)* y(k,194) +rxt(k,443) & - * y(k,196) +rxt(k,321)* y(k,197) +rxt(k,349)* y(k,198) +rxt(k,446) & - * y(k,199) +rxt(k,332)* y(k,200) +rxt(k,300)* y(k,201) +rxt(k,450) & - * y(k,202) +rxt(k,336)* y(k,206) +rxt(k,307)* y(k,207) +rxt(k,407) & - * y(k,208) +rxt(k,412)* y(k,209) +rxt(k,421)* y(k,210) +rxt(k,374) & - * y(k,213) +rxt(k,453)* y(k,214) +rxt(k,383)* y(k,215) +rxt(k,456) & - * y(k,216) +rxt(k,387)* y(k,217) +rxt(k,486)* y(k,223) +rxt(k,181) & - * y(k,228) +rxt(k,459)* y(k,230) +rxt(k,358)* y(k,231) +rxt(k,362) & - * y(k,232) +rxt(k,491)* y(k,233) +rxt(k,496)* y(k,234) +rxt(k,466) & - * y(k,235) +rxt(k,432)* y(k,237) +rxt(k,472)* y(k,238) +rxt(k,475) & - * y(k,240) + rxt(k,521) + het_rates(k,90))* y(k,90) - prod(k,237) = (rxt(k,180)*y(k,79) +rxt(k,183)*y(k,136) +rxt(k,201)*y(k,126) + & - rxt(k,232)*y(k,59) +rxt(k,262)*y(k,19) +rxt(k,280)*y(k,43) + & - rxt(k,283)*y(k,46) +rxt(k,302)*y(k,52) +rxt(k,305)*y(k,86) + & - rxt(k,306)*y(k,87) +rxt(k,314)*y(k,62) +.350_r8*rxt(k,316)*y(k,24) + & - rxt(k,323)*y(k,26) +rxt(k,329)*y(k,47) +rxt(k,340)*y(k,74) + & - rxt(k,341)*y(k,75) +rxt(k,356)*y(k,96) +rxt(k,371)*y(k,94) + & - .200_r8*rxt(k,380)*y(k,106) +.500_r8*rxt(k,391)*y(k,109) + & - .300_r8*rxt(k,416)*y(k,100) +rxt(k,417)*y(k,101) + & - rxt(k,424)*y(k,102) +rxt(k,428)*y(k,115) +rxt(k,429)*y(k,116) + & - .650_r8*rxt(k,438)*y(k,7) +.730_r8*rxt(k,449)*y(k,66) + & - .800_r8*rxt(k,461)*y(k,144) +.280_r8*rxt(k,469)*y(k,183) + & - .380_r8*rxt(k,471)*y(k,185) +.630_r8*rxt(k,477)*y(k,187) + & - .200_r8*rxt(k,501)*y(k,181) +rxt(k,507)*y(k,153) + & - .500_r8*rxt(k,517)*y(k,67))*y(k,228) + (rxt(k,301)*y(k,201) + & - rxt(k,309)*y(k,207) +rxt(k,322)*y(k,197) + & - .250_r8*rxt(k,337)*y(k,206) +rxt(k,350)*y(k,198) + & - rxt(k,359)*y(k,231) +rxt(k,369)*y(k,204) + & - .470_r8*rxt(k,376)*y(k,213) +rxt(k,398)*y(k,192) + & - .920_r8*rxt(k,408)*y(k,208) +.920_r8*rxt(k,414)*y(k,209) + & - rxt(k,422)*y(k,210) +rxt(k,433)*y(k,237) +rxt(k,440)*y(k,194) + & - rxt(k,445)*y(k,196) +.170_r8*rxt(k,451)*y(k,202) + & - .400_r8*rxt(k,454)*y(k,214) +.830_r8*rxt(k,457)*y(k,216) + & - rxt(k,460)*y(k,230) +rxt(k,467)*y(k,235) +rxt(k,473)*y(k,238) + & - rxt(k,476)*y(k,240) +.900_r8*rxt(k,492)*y(k,233) + & - .800_r8*rxt(k,497)*y(k,234))*y(k,124) + (rxt(k,221)*y(k,59) + & - 2.000_r8*rxt(k,298)*y(k,201) +rxt(k,320)*y(k,197) + & - .900_r8*rxt(k,331)*y(k,200) +rxt(k,348)*y(k,198) + & - .300_r8*rxt(k,361)*y(k,232) +.730_r8*rxt(k,373)*y(k,213) + & - rxt(k,382)*y(k,215) +rxt(k,406)*y(k,208) +rxt(k,411)*y(k,209) + & - 1.200_r8*rxt(k,420)*y(k,210) +.800_r8*rxt(k,431)*y(k,237) + & - .500_r8*rxt(k,485)*y(k,223) +rxt(k,490)*y(k,233) + & - rxt(k,495)*y(k,234))*y(k,201) + (.130_r8*rxt(k,318)*y(k,25) + & - .280_r8*rxt(k,347)*y(k,29) +.140_r8*rxt(k,378)*y(k,105) + & - .280_r8*rxt(k,392)*y(k,111) +.370_r8*rxt(k,425)*y(k,99) + & - .570_r8*rxt(k,480)*y(k,6) +.570_r8*rxt(k,483)*y(k,110))*y(k,136) & - + (rxt(k,295)*y(k,42) +.470_r8*rxt(k,375)*y(k,213) + & - rxt(k,409)*y(k,208) +rxt(k,415)*y(k,209) +rxt(k,423)*y(k,210) + & - rxt(k,434)*y(k,237))*y(k,126) + (.470_r8*rxt(k,372)*y(k,213) + & - rxt(k,405)*y(k,208) +rxt(k,410)*y(k,209) +rxt(k,419)*y(k,210) + & - rxt(k,430)*y(k,237))*y(k,200) + (rxt(k,214)*y(k,42) + & - rxt(k,217)*y(k,79) +rxt(k,279)*y(k,43) +rxt(k,282)*y(k,46))*y(k,56) & - + (.070_r8*rxt(k,450)*y(k,202) +.160_r8*rxt(k,453)*y(k,214) + & - .330_r8*rxt(k,456)*y(k,216))*y(k,90) + (rxt(k,250)*y(k,17) + & - rxt(k,296)*y(k,134))*y(k,42) + (rxt(k,11) +rxt(k,212))*y(k,91) & + prod(k,237) = (rxt(k,570) +rxt(k,575) +rxt(k,581) +rxt(k,572)*y(k,85) + & + rxt(k,577)*y(k,85) +rxt(k,582)*y(k,85))*y(k,60) + (rxt(k,534) + & + rxt(k,299)*y(k,42) +rxt(k,331)*y(k,45) +rxt(k,357)*y(k,49) + & + rxt(k,506)*y(k,67))*y(k,126) + (2.000_r8*rxt(k,529) + & + 2.000_r8*rxt(k,566) +2.000_r8*rxt(k,569) +2.000_r8*rxt(k,580)) & + *y(k,114) + (rxt(k,568) +rxt(k,571) +rxt(k,576))*y(k,20) & + + (.500_r8*rxt(k,533) +rxt(k,211)*y(k,228))*y(k,125) +rxt(k,526) & + *y(k,94) +rxt(k,527)*y(k,100) +rxt(k,528)*y(k,101) +rxt(k,530) & + *y(k,115) +rxt(k,531)*y(k,116) +rxt(k,535)*y(k,128) +rxt(k,536) & + *y(k,140) +rxt(k,537)*y(k,178) + loss(k,236) = (rxt(k,255)* y(k,17) +rxt(k,261)* y(k,19) +rxt(k,298)* y(k,42) & + + (rxt(k,222) +rxt(k,223))* y(k,56) +rxt(k,229)* y(k,59) & + + (rxt(k,173) +rxt(k,174) +rxt(k,175))* y(k,76) + 2._r8*rxt(k,187) & + * y(k,90) +rxt(k,204)* y(k,124) +rxt(k,209)* y(k,125) +rxt(k,199) & + * y(k,126) +rxt(k,177)* y(k,134) +rxt(k,178)* y(k,136) +rxt(k,440) & + * y(k,191) +rxt(k,401)* y(k,192) +rxt(k,443)* y(k,194) +rxt(k,447) & + * y(k,196) +rxt(k,325)* y(k,197) +rxt(k,353)* y(k,198) +rxt(k,450) & + * y(k,199) +rxt(k,336)* y(k,200) +rxt(k,304)* y(k,201) +rxt(k,454) & + * y(k,202) +rxt(k,340)* y(k,206) +rxt(k,311)* y(k,207) +rxt(k,411) & + * y(k,208) +rxt(k,416)* y(k,209) +rxt(k,425)* y(k,210) +rxt(k,378) & + * y(k,213) +rxt(k,457)* y(k,214) +rxt(k,387)* y(k,215) +rxt(k,460) & + * y(k,216) +rxt(k,391)* y(k,217) +rxt(k,490)* y(k,223) +rxt(k,182) & + * y(k,228) +rxt(k,463)* y(k,230) +rxt(k,362)* y(k,231) +rxt(k,366) & + * y(k,232) +rxt(k,495)* y(k,233) +rxt(k,500)* y(k,234) +rxt(k,470) & + * y(k,235) +rxt(k,436)* y(k,237) +rxt(k,476)* y(k,238) +rxt(k,479) & + * y(k,240) + rxt(k,525) + het_rates(k,90))* y(k,90) + prod(k,236) = (rxt(k,181)*y(k,79) +rxt(k,184)*y(k,136) +rxt(k,202)*y(k,126) + & + rxt(k,236)*y(k,59) +rxt(k,266)*y(k,19) +rxt(k,284)*y(k,43) + & + rxt(k,287)*y(k,46) +rxt(k,306)*y(k,52) +rxt(k,309)*y(k,86) + & + rxt(k,310)*y(k,87) +rxt(k,318)*y(k,62) +.350_r8*rxt(k,320)*y(k,24) + & + rxt(k,327)*y(k,26) +rxt(k,333)*y(k,47) +rxt(k,344)*y(k,74) + & + rxt(k,345)*y(k,75) +rxt(k,360)*y(k,96) +rxt(k,375)*y(k,94) + & + .200_r8*rxt(k,384)*y(k,106) +.500_r8*rxt(k,395)*y(k,109) + & + .300_r8*rxt(k,420)*y(k,100) +rxt(k,421)*y(k,101) + & + rxt(k,428)*y(k,102) +rxt(k,432)*y(k,115) +rxt(k,433)*y(k,116) + & + .650_r8*rxt(k,442)*y(k,7) +.730_r8*rxt(k,453)*y(k,66) + & + .800_r8*rxt(k,465)*y(k,144) +.280_r8*rxt(k,473)*y(k,183) + & + .380_r8*rxt(k,475)*y(k,185) +.630_r8*rxt(k,481)*y(k,187) + & + .200_r8*rxt(k,505)*y(k,181) +rxt(k,511)*y(k,153) + & + .500_r8*rxt(k,521)*y(k,67))*y(k,228) + (rxt(k,305)*y(k,201) + & + rxt(k,313)*y(k,207) +rxt(k,326)*y(k,197) + & + .250_r8*rxt(k,341)*y(k,206) +rxt(k,354)*y(k,198) + & + rxt(k,363)*y(k,231) +rxt(k,373)*y(k,204) + & + .470_r8*rxt(k,380)*y(k,213) +rxt(k,402)*y(k,192) + & + .920_r8*rxt(k,412)*y(k,208) +.920_r8*rxt(k,418)*y(k,209) + & + rxt(k,426)*y(k,210) +rxt(k,437)*y(k,237) +rxt(k,444)*y(k,194) + & + rxt(k,449)*y(k,196) +.170_r8*rxt(k,455)*y(k,202) + & + .400_r8*rxt(k,458)*y(k,214) +.830_r8*rxt(k,461)*y(k,216) + & + rxt(k,464)*y(k,230) +rxt(k,471)*y(k,235) +rxt(k,477)*y(k,238) + & + rxt(k,480)*y(k,240) +.900_r8*rxt(k,496)*y(k,233) + & + .800_r8*rxt(k,501)*y(k,234))*y(k,124) + (rxt(k,225)*y(k,59) + & + 2.000_r8*rxt(k,302)*y(k,201) +rxt(k,324)*y(k,197) + & + .900_r8*rxt(k,335)*y(k,200) +rxt(k,352)*y(k,198) + & + .300_r8*rxt(k,365)*y(k,232) +.730_r8*rxt(k,377)*y(k,213) + & + rxt(k,386)*y(k,215) +rxt(k,410)*y(k,208) +rxt(k,415)*y(k,209) + & + 1.200_r8*rxt(k,424)*y(k,210) +.800_r8*rxt(k,435)*y(k,237) + & + .500_r8*rxt(k,489)*y(k,223) +rxt(k,494)*y(k,233) + & + rxt(k,499)*y(k,234))*y(k,201) + (.130_r8*rxt(k,322)*y(k,25) + & + .280_r8*rxt(k,351)*y(k,29) +.140_r8*rxt(k,382)*y(k,105) + & + .280_r8*rxt(k,396)*y(k,111) +.370_r8*rxt(k,429)*y(k,99) + & + .570_r8*rxt(k,484)*y(k,6) +.570_r8*rxt(k,487)*y(k,110))*y(k,136) & + + (rxt(k,299)*y(k,42) +.470_r8*rxt(k,379)*y(k,213) + & + rxt(k,413)*y(k,208) +rxt(k,419)*y(k,209) +rxt(k,427)*y(k,210) + & + rxt(k,438)*y(k,237))*y(k,126) + (.470_r8*rxt(k,376)*y(k,213) + & + rxt(k,409)*y(k,208) +rxt(k,414)*y(k,209) +rxt(k,423)*y(k,210) + & + rxt(k,434)*y(k,237))*y(k,200) + (rxt(k,218)*y(k,42) + & + rxt(k,221)*y(k,79) +rxt(k,283)*y(k,43) +rxt(k,286)*y(k,46))*y(k,56) & + + (.070_r8*rxt(k,454)*y(k,202) +.160_r8*rxt(k,457)*y(k,214) + & + .330_r8*rxt(k,460)*y(k,216))*y(k,90) + (rxt(k,254)*y(k,17) + & + rxt(k,300)*y(k,134))*y(k,42) + (rxt(k,11) +rxt(k,213))*y(k,91) & + (1.340_r8*rxt(k,51) +.660_r8*rxt(k,52))*y(k,105) & - + (rxt(k,175)*y(k,76) +rxt(k,339)*y(k,205))*y(k,135) +rxt(k,20) & + + (rxt(k,176)*y(k,76) +rxt(k,343)*y(k,205))*y(k,135) +rxt(k,20) & *y(k,1) +.900_r8*rxt(k,21)*y(k,2) +rxt(k,22)*y(k,8) & +1.500_r8*rxt(k,23)*y(k,9) +.560_r8*rxt(k,24)*y(k,10) +rxt(k,25) & *y(k,11) +.600_r8*rxt(k,26)*y(k,12) +.600_r8*rxt(k,27)*y(k,13) & +rxt(k,28)*y(k,14) +rxt(k,29)*y(k,23) +rxt(k,30)*y(k,27) +rxt(k,31) & - *y(k,30) +rxt(k,35)*y(k,45) +rxt(k,37)*y(k,49) +rxt(k,311)*y(k,224) & + *y(k,30) +rxt(k,35)*y(k,45) +rxt(k,37)*y(k,49) +rxt(k,315)*y(k,224) & *y(k,54) +2.000_r8*rxt(k,44)*y(k,74) +2.000_r8*rxt(k,45)*y(k,75) & - +rxt(k,171)*y(k,134)*y(k,79) +.670_r8*rxt(k,46)*y(k,94) +rxt(k,47) & + +rxt(k,172)*y(k,134)*y(k,79) +.670_r8*rxt(k,46)*y(k,94) +rxt(k,47) & *y(k,95) +rxt(k,48)*y(k,96) +rxt(k,49)*y(k,102) +rxt(k,50)*y(k,103) & +rxt(k,57)*y(k,116) +rxt(k,62)*y(k,145) +rxt(k,63)*y(k,148) & +rxt(k,65)*y(k,176) +rxt(k,66)*y(k,177) +rxt(k,67)*y(k,178) & +rxt(k,68)*y(k,179) +rxt(k,69)*y(k,180) +1.200_r8*rxt(k,70)*y(k,181) & +rxt(k,71)*y(k,182) +rxt(k,73)*y(k,186) +rxt(k,74)*y(k,188) & - +1.200_r8*rxt(k,319)*y(k,197)*y(k,197) +rxt(k,338)*y(k,205) & - +rxt(k,308)*y(k,207) +rxt(k,413)*y(k,209) - loss(k,132) = (rxt(k,187)* y(k,228) + rxt(k,10) + rxt(k,11) + rxt(k,212) & + +1.200_r8*rxt(k,323)*y(k,197)*y(k,197) +rxt(k,342)*y(k,205) & + +rxt(k,312)*y(k,207) +rxt(k,417)*y(k,209) + loss(k,132) = (rxt(k,189)* y(k,228) + rxt(k,10) + rxt(k,11) + rxt(k,213) & + het_rates(k,91))* y(k,91) - prod(k,132) =rxt(k,208)*y(k,125)*y(k,90) - loss(k,169) = ((rxt(k,570) +rxt(k,575))* y(k,85) +rxt(k,265)* y(k,134) & + prod(k,132) =rxt(k,209)*y(k,125)*y(k,90) + loss(k,169) = ((rxt(k,574) +rxt(k,579))* y(k,85) +rxt(k,269)* y(k,134) & + rxt(k,106) + het_rates(k,92))* y(k,92) - prod(k,169) = (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,20) & - +rxt(k,257)*y(k,90)*y(k,19) - loss(k,175) = (rxt(k,236)* y(k,56) + (rxt(k,563) +rxt(k,569) +rxt(k,574)) & - * y(k,85) +rxt(k,237)* y(k,134) +rxt(k,238)* y(k,228) + rxt(k,107) & + prod(k,169) = (rxt(k,568) +rxt(k,571) +rxt(k,576))*y(k,20) & + +rxt(k,261)*y(k,90)*y(k,19) + loss(k,175) = (rxt(k,240)* y(k,56) + (rxt(k,567) +rxt(k,573) +rxt(k,578)) & + * y(k,85) +rxt(k,241)* y(k,134) +rxt(k,242)* y(k,228) + rxt(k,107) & + het_rates(k,93))* y(k,93) - prod(k,175) = (rxt(k,566) +rxt(k,571) +rxt(k,577) +rxt(k,230)*y(k,228)) & - *y(k,60) +rxt(k,225)*y(k,90)*y(k,59) - loss(k,204) = (rxt(k,371)* y(k,228) + rxt(k,46) + rxt(k,522) & + prod(k,175) = (rxt(k,570) +rxt(k,575) +rxt(k,581) +rxt(k,234)*y(k,228)) & + *y(k,60) +rxt(k,229)*y(k,90)*y(k,59) + loss(k,204) = (rxt(k,375)* y(k,228) + rxt(k,46) + rxt(k,526) & + het_rates(k,94))* y(k,94) - prod(k,204) = (rxt(k,370)*y(k,204) +rxt(k,377)*y(k,213))*y(k,124) & - + (.300_r8*rxt(k,416)*y(k,100) +.500_r8*rxt(k,417)*y(k,101)) & + prod(k,204) = (rxt(k,374)*y(k,204) +rxt(k,381)*y(k,213))*y(k,124) & + + (.300_r8*rxt(k,420)*y(k,100) +.500_r8*rxt(k,421)*y(k,101)) & *y(k,228) - loss(k,84) = (rxt(k,402)* y(k,228) + rxt(k,47) + het_rates(k,95))* y(k,95) - prod(k,84) =rxt(k,413)*y(k,209) - loss(k,205) = (rxt(k,356)* y(k,228) + rxt(k,48) + het_rates(k,96))* y(k,96) - prod(k,205) = (.220_r8*rxt(k,372)*y(k,200) +.230_r8*rxt(k,373)*y(k,201) + & - .220_r8*rxt(k,375)*y(k,126) +.220_r8*rxt(k,376)*y(k,124))*y(k,213) & - + (.500_r8*rxt(k,360)*y(k,148) +.500_r8*rxt(k,391)*y(k,109) + & - .700_r8*rxt(k,416)*y(k,100) +.500_r8*rxt(k,417)*y(k,101))*y(k,228) & - + (.250_r8*rxt(k,430)*y(k,200) +.100_r8*rxt(k,431)*y(k,201) + & - .250_r8*rxt(k,433)*y(k,124) +.250_r8*rxt(k,434)*y(k,126))*y(k,237) & - + (.050_r8*rxt(k,414)*y(k,124) +.050_r8*rxt(k,415)*y(k,126)) & - *y(k,209) +.170_r8*rxt(k,46)*y(k,94) +.200_r8*rxt(k,361)*y(k,232) & + loss(k,84) = (rxt(k,406)* y(k,228) + rxt(k,47) + het_rates(k,95))* y(k,95) + prod(k,84) =rxt(k,417)*y(k,209) + loss(k,205) = (rxt(k,360)* y(k,228) + rxt(k,48) + het_rates(k,96))* y(k,96) + prod(k,205) = (.220_r8*rxt(k,376)*y(k,200) +.230_r8*rxt(k,377)*y(k,201) + & + .220_r8*rxt(k,379)*y(k,126) +.220_r8*rxt(k,380)*y(k,124))*y(k,213) & + + (.500_r8*rxt(k,364)*y(k,148) +.500_r8*rxt(k,395)*y(k,109) + & + .700_r8*rxt(k,420)*y(k,100) +.500_r8*rxt(k,421)*y(k,101))*y(k,228) & + + (.250_r8*rxt(k,434)*y(k,200) +.100_r8*rxt(k,435)*y(k,201) + & + .250_r8*rxt(k,437)*y(k,124) +.250_r8*rxt(k,438)*y(k,126))*y(k,237) & + + (.050_r8*rxt(k,418)*y(k,124) +.050_r8*rxt(k,419)*y(k,126)) & + *y(k,209) +.170_r8*rxt(k,46)*y(k,94) +.200_r8*rxt(k,365)*y(k,232) & *y(k,201) - loss(k,107) = (rxt(k,403)* y(k,228) + het_rates(k,97))* y(k,97) - prod(k,107) = (rxt(k,410)*y(k,200) +.750_r8*rxt(k,411)*y(k,201) + & - .870_r8*rxt(k,414)*y(k,124) +.950_r8*rxt(k,415)*y(k,126))*y(k,209) - loss(k,65) = (rxt(k,404)* y(k,228) + het_rates(k,98))* y(k,98) - prod(k,65) =.600_r8*rxt(k,427)*y(k,228)*y(k,103) - loss(k,179) = (rxt(k,418)* y(k,126) +rxt(k,425)* y(k,136) +rxt(k,426) & + loss(k,107) = (rxt(k,407)* y(k,228) + het_rates(k,97))* y(k,97) + prod(k,107) = (rxt(k,414)*y(k,200) +.750_r8*rxt(k,415)*y(k,201) + & + .870_r8*rxt(k,418)*y(k,124) +.950_r8*rxt(k,419)*y(k,126))*y(k,209) + loss(k,65) = (rxt(k,408)* y(k,228) + het_rates(k,98))* y(k,98) + prod(k,65) =.600_r8*rxt(k,431)*y(k,228)*y(k,103) + loss(k,179) = (rxt(k,422)* y(k,126) +rxt(k,429)* y(k,136) +rxt(k,430) & * y(k,228) + het_rates(k,99))* y(k,99) prod(k,179) = 0._r8 - loss(k,148) = (rxt(k,416)* y(k,228) + rxt(k,523) + het_rates(k,100)) & + loss(k,146) = (rxt(k,420)* y(k,228) + rxt(k,527) + het_rates(k,100)) & * y(k,100) - prod(k,148) =.080_r8*rxt(k,408)*y(k,208)*y(k,124) - loss(k,144) = (rxt(k,417)* y(k,228) + rxt(k,524) + het_rates(k,101)) & + prod(k,146) =.080_r8*rxt(k,412)*y(k,208)*y(k,124) + loss(k,143) = (rxt(k,421)* y(k,228) + rxt(k,528) + het_rates(k,101)) & * y(k,101) - prod(k,144) =.080_r8*rxt(k,414)*y(k,209)*y(k,124) - loss(k,120) = (rxt(k,424)* y(k,228) + rxt(k,49) + het_rates(k,102))* y(k,102) - prod(k,120) =rxt(k,421)*y(k,210)*y(k,90) - loss(k,162) = (rxt(k,427)* y(k,228) + rxt(k,50) + het_rates(k,103))* y(k,103) - prod(k,162) = (rxt(k,407)*y(k,208) +rxt(k,412)*y(k,209))*y(k,90) +rxt(k,49) & + prod(k,143) =.080_r8*rxt(k,418)*y(k,209)*y(k,124) + loss(k,120) = (rxt(k,428)* y(k,228) + rxt(k,49) + het_rates(k,102))* y(k,102) + prod(k,120) =rxt(k,425)*y(k,210)*y(k,90) + loss(k,162) = (rxt(k,431)* y(k,228) + rxt(k,50) + het_rates(k,103))* y(k,103) + prod(k,162) = (rxt(k,411)*y(k,208) +rxt(k,416)*y(k,209))*y(k,90) +rxt(k,49) & *y(k,102) - loss(k,50) = (rxt(k,549)* y(k,228) + het_rates(k,104))* y(k,104) + loss(k,50) = (rxt(k,553)* y(k,228) + het_rates(k,104))* y(k,104) prod(k,50) = 0._r8 - loss(k,209) = (rxt(k,378)* y(k,136) +rxt(k,379)* y(k,228) + rxt(k,51) & + loss(k,209) = (rxt(k,382)* y(k,136) +rxt(k,383)* y(k,228) + rxt(k,51) & + rxt(k,52) + het_rates(k,105))* y(k,105) - prod(k,209) = (.390_r8*rxt(k,405)*y(k,200) +.310_r8*rxt(k,406)*y(k,201) + & - .360_r8*rxt(k,408)*y(k,124) +.400_r8*rxt(k,409)*y(k,126))*y(k,208) & - +.300_r8*rxt(k,425)*y(k,136)*y(k,99) +.300_r8*rxt(k,50)*y(k,103) - loss(k,105) = (rxt(k,380)* y(k,228) + het_rates(k,106))* y(k,106) - prod(k,105) =rxt(k,374)*y(k,213)*y(k,90) - loss(k,138) = (rxt(k,389)* y(k,228) + rxt(k,53) + het_rates(k,107))* y(k,107) + prod(k,209) = (.390_r8*rxt(k,409)*y(k,200) +.310_r8*rxt(k,410)*y(k,201) + & + .360_r8*rxt(k,412)*y(k,124) +.400_r8*rxt(k,413)*y(k,126))*y(k,208) & + +.300_r8*rxt(k,429)*y(k,136)*y(k,99) +.300_r8*rxt(k,50)*y(k,103) + loss(k,105) = (rxt(k,384)* y(k,228) + het_rates(k,106))* y(k,106) + prod(k,105) =rxt(k,378)*y(k,213)*y(k,90) + loss(k,138) = (rxt(k,393)* y(k,228) + rxt(k,53) + het_rates(k,107))* y(k,107) prod(k,138) =.800_r8*rxt(k,20)*y(k,1) +.800_r8*rxt(k,21)*y(k,2) & - +.800_r8*rxt(k,398)*y(k,192)*y(k,124) - loss(k,106) = (rxt(k,390)* y(k,228) + rxt(k,54) + het_rates(k,108))* y(k,108) - prod(k,106) =.800_r8*rxt(k,387)*y(k,217)*y(k,90) - loss(k,151) = (rxt(k,391)* y(k,228) + rxt(k,55) + rxt(k,395) & + +.800_r8*rxt(k,402)*y(k,192)*y(k,124) + loss(k,106) = (rxt(k,394)* y(k,228) + rxt(k,54) + het_rates(k,108))* y(k,108) + prod(k,106) =.800_r8*rxt(k,391)*y(k,217)*y(k,90) + loss(k,150) = (rxt(k,395)* y(k,228) + rxt(k,55) + rxt(k,399) & + het_rates(k,109))* y(k,109) - prod(k,151) =rxt(k,394)*y(k,215)*y(k,125) - loss(k,190) = (rxt(k,482)* y(k,126) +rxt(k,483)* y(k,136) +rxt(k,484) & + prod(k,150) =rxt(k,398)*y(k,215)*y(k,125) + loss(k,188) = (rxt(k,486)* y(k,126) +rxt(k,487)* y(k,136) +rxt(k,488) & * y(k,228) + het_rates(k,110))* y(k,110) - prod(k,190) = 0._r8 - loss(k,214) = (rxt(k,392)* y(k,136) +rxt(k,393)* y(k,228) + rxt(k,56) & + prod(k,188) = 0._r8 + loss(k,214) = (rxt(k,396)* y(k,136) +rxt(k,397)* y(k,228) + rxt(k,56) & + het_rates(k,111))* y(k,111) - prod(k,214) = (.610_r8*rxt(k,405)*y(k,200) +.440_r8*rxt(k,406)*y(k,201) + & - .560_r8*rxt(k,408)*y(k,124) +.600_r8*rxt(k,409)*y(k,126))*y(k,208) & - +.200_r8*rxt(k,425)*y(k,136)*y(k,99) +.700_r8*rxt(k,50)*y(k,103) - loss(k,189) = (rxt(k,190)* y(k,124) + (rxt(k,191) +rxt(k,192) +rxt(k,193)) & - * y(k,125) +rxt(k,194)* y(k,135) +rxt(k,588)* y(k,227) +rxt(k,202) & + prod(k,214) = (.610_r8*rxt(k,409)*y(k,200) +.440_r8*rxt(k,410)*y(k,201) + & + .560_r8*rxt(k,412)*y(k,124) +.600_r8*rxt(k,413)*y(k,126))*y(k,208) & + +.200_r8*rxt(k,429)*y(k,136)*y(k,99) +.700_r8*rxt(k,50)*y(k,103) + loss(k,192) = (rxt(k,192)* y(k,124) + (rxt(k,193) +rxt(k,194) +rxt(k,195)) & + * y(k,125) +rxt(k,217)* y(k,135) +rxt(k,592)* y(k,227) +rxt(k,203) & * y(k,228) + rxt(k,111) + het_rates(k,112))* y(k,112) - prod(k,189) = (rxt(k,188)*y(k,219) +rxt(k,585)*y(k,222))*y(k,134) & - + (.200_r8*rxt(k,579)*y(k,221) +1.100_r8*rxt(k,581)*y(k,220)) & - *y(k,203) +rxt(k,15)*y(k,124) +rxt(k,586)*y(k,222)*y(k,135) & - +rxt(k,592)*y(k,229) - loss(k,93) = ((rxt(k,206) +rxt(k,207))* y(k,224) + rxt(k,12) & + prod(k,192) = (rxt(k,214)*y(k,219) +.200_r8*rxt(k,583)*y(k,221) + & + 1.100_r8*rxt(k,585)*y(k,220))*y(k,203) + (rxt(k,191)*y(k,219) + & + rxt(k,589)*y(k,222))*y(k,134) +rxt(k,15)*y(k,124) & + +rxt(k,590)*y(k,222)*y(k,135) +rxt(k,188)*y(k,219) +rxt(k,596) & + *y(k,229) + loss(k,93) = ((rxt(k,207) +rxt(k,208))* y(k,224) + rxt(k,12) & + het_rates(k,113))* y(k,113) - prod(k,93) =rxt(k,191)*y(k,125)*y(k,112) - loss(k,97) = ( + rxt(k,13) + rxt(k,14) + rxt(k,213) + rxt(k,525) + rxt(k,562) & - + rxt(k,565) + rxt(k,576) + het_rates(k,114))* y(k,114) - prod(k,97) =rxt(k,209)*y(k,126)*y(k,125) - loss(k,124) = (rxt(k,428)* y(k,228) + rxt(k,526) + het_rates(k,115)) & + prod(k,93) =rxt(k,193)*y(k,125)*y(k,112) + loss(k,97) = ( + rxt(k,13) + rxt(k,14) + rxt(k,216) + rxt(k,529) + rxt(k,566) & + + rxt(k,569) + rxt(k,580) + het_rates(k,114))* y(k,114) + prod(k,97) =rxt(k,210)*y(k,126)*y(k,125) + loss(k,124) = (rxt(k,432)* y(k,228) + rxt(k,530) + het_rates(k,115)) & * y(k,115) - prod(k,124) =.200_r8*rxt(k,420)*y(k,210)*y(k,201) - loss(k,196) = (rxt(k,429)* y(k,228) + rxt(k,57) + rxt(k,527) & + prod(k,124) =.200_r8*rxt(k,424)*y(k,210)*y(k,201) + loss(k,196) = (rxt(k,433)* y(k,228) + rxt(k,57) + rxt(k,531) & + het_rates(k,116))* y(k,116) - prod(k,196) = (rxt(k,419)*y(k,200) +.800_r8*rxt(k,420)*y(k,201) + & - rxt(k,422)*y(k,124) +rxt(k,423)*y(k,126))*y(k,210) + prod(k,196) = (rxt(k,423)*y(k,200) +.800_r8*rxt(k,424)*y(k,201) + & + rxt(k,426)*y(k,124) +rxt(k,427)*y(k,126))*y(k,210) loss(k,10) = ( + het_rates(k,117))* y(k,117) prod(k,10) = 0._r8 loss(k,11) = ( + het_rates(k,118))* y(k,118) prod(k,11) = 0._r8 loss(k,12) = ( + het_rates(k,119))* y(k,119) prod(k,12) = 0._r8 - loss(k,55) = (rxt(k,519)* y(k,228) + het_rates(k,120))* y(k,120) + loss(k,55) = (rxt(k,523)* y(k,228) + het_rates(k,120))* y(k,120) prod(k,55) = 0._r8 - loss(k,13) = ( + rxt(k,528) + het_rates(k,121))* y(k,121) + loss(k,13) = ( + rxt(k,532) + het_rates(k,121))* y(k,121) prod(k,13) = 0._r8 - loss(k,14) = ( + rxt(k,596) + het_rates(k,122))* y(k,122) + loss(k,14) = ( + rxt(k,600) + het_rates(k,122))* y(k,122) prod(k,14) = 0._r8 - loss(k,15) = ( + rxt(k,595) + het_rates(k,123))* y(k,123) + loss(k,15) = ( + rxt(k,599) + het_rates(k,123))* y(k,123) prod(k,15) = 0._r8 - loss(k,227) = (rxt(k,258)* y(k,19) +rxt(k,226)* y(k,59) +rxt(k,203)* y(k,90) & - +rxt(k,190)* y(k,112) +rxt(k,199)* y(k,126) +rxt(k,205)* y(k,134) & - +rxt(k,204)* y(k,136) +rxt(k,437)* y(k,191) + (rxt(k,398) + & - rxt(k,399))* y(k,192) +rxt(k,440)* y(k,194) +rxt(k,445)* y(k,196) & - +rxt(k,322)* y(k,197) +rxt(k,350)* y(k,198) +rxt(k,447)* y(k,199) & - +rxt(k,333)* y(k,200) +rxt(k,301)* y(k,201) +rxt(k,451)* y(k,202) & - + (rxt(k,369) +rxt(k,370))* y(k,204) +rxt(k,337)* y(k,206) & - +rxt(k,309)* y(k,207) +rxt(k,408)* y(k,208) +rxt(k,414)* y(k,209) & - +rxt(k,422)* y(k,210) + (rxt(k,376) +rxt(k,377))* y(k,213) & - +rxt(k,454)* y(k,214) +rxt(k,385)* y(k,215) +rxt(k,457)* y(k,216) & - +rxt(k,388)* y(k,217) +rxt(k,487)* y(k,223) +rxt(k,590)* y(k,227) & - +rxt(k,460)* y(k,230) +rxt(k,359)* y(k,231) +rxt(k,363)* y(k,232) & - +rxt(k,492)* y(k,233) +rxt(k,497)* y(k,234) +rxt(k,467)* y(k,235) & - +rxt(k,433)* y(k,237) +rxt(k,473)* y(k,238) +rxt(k,476)* y(k,240) & - + rxt(k,15) + rxt(k,16) + het_rates(k,124))* y(k,124) - prod(k,227) = (rxt(k,17) +.500_r8*rxt(k,529) +2.000_r8*rxt(k,192)*y(k,112) + & - rxt(k,195)*y(k,134) +rxt(k,512)*y(k,152))*y(k,125) & - + (rxt(k,194)*y(k,135) +rxt(k,202)*y(k,228))*y(k,112) & - +2.000_r8*rxt(k,206)*y(k,224)*y(k,113) +rxt(k,14)*y(k,114) & - +rxt(k,19)*y(k,126) +rxt(k,189)*y(k,219)*y(k,135) +rxt(k,589) & + loss(k,230) = (rxt(k,262)* y(k,19) +rxt(k,230)* y(k,59) +rxt(k,204)* y(k,90) & + +rxt(k,192)* y(k,112) +rxt(k,200)* y(k,126) +rxt(k,206)* y(k,134) & + +rxt(k,205)* y(k,136) +rxt(k,441)* y(k,191) + (rxt(k,402) + & + rxt(k,403))* y(k,192) +rxt(k,444)* y(k,194) +rxt(k,449)* y(k,196) & + +rxt(k,326)* y(k,197) +rxt(k,354)* y(k,198) +rxt(k,451)* y(k,199) & + +rxt(k,337)* y(k,200) +rxt(k,305)* y(k,201) +rxt(k,455)* y(k,202) & + + (rxt(k,373) +rxt(k,374))* y(k,204) +rxt(k,341)* y(k,206) & + +rxt(k,313)* y(k,207) +rxt(k,412)* y(k,208) +rxt(k,418)* y(k,209) & + +rxt(k,426)* y(k,210) + (rxt(k,380) +rxt(k,381))* y(k,213) & + +rxt(k,458)* y(k,214) +rxt(k,389)* y(k,215) +rxt(k,461)* y(k,216) & + +rxt(k,392)* y(k,217) +rxt(k,190)* y(k,219) +rxt(k,491)* y(k,223) & + +rxt(k,594)* y(k,227) +rxt(k,464)* y(k,230) +rxt(k,363)* y(k,231) & + +rxt(k,367)* y(k,232) +rxt(k,496)* y(k,233) +rxt(k,501)* y(k,234) & + +rxt(k,471)* y(k,235) +rxt(k,437)* y(k,237) +rxt(k,477)* y(k,238) & + +rxt(k,480)* y(k,240) + rxt(k,15) + rxt(k,16) + het_rates(k,124)) & + * y(k,124) + prod(k,230) = (rxt(k,17) +.500_r8*rxt(k,533) +2.000_r8*rxt(k,194)*y(k,112) + & + rxt(k,196)*y(k,134) +rxt(k,516)*y(k,152))*y(k,125) & + + (rxt(k,203)*y(k,228) +rxt(k,217)*y(k,135))*y(k,112) & + +2.000_r8*rxt(k,207)*y(k,224)*y(k,113) +rxt(k,14)*y(k,114) & + +rxt(k,19)*y(k,126) +rxt(k,215)*y(k,219)*y(k,135) +rxt(k,593) & *y(k,227) - loss(k,228) = (rxt(k,259)* y(k,19) +rxt(k,228)* y(k,59) +rxt(k,208)* y(k,90) & - + (rxt(k,191) +rxt(k,192) +rxt(k,193))* y(k,112) +rxt(k,209) & - * y(k,126) + (rxt(k,195) +rxt(k,197))* y(k,134) +rxt(k,196)* y(k,136) & - +rxt(k,462)* y(k,143) +rxt(k,512)* y(k,152) +rxt(k,465)* y(k,191) & - +rxt(k,344)* y(k,200) +rxt(k,452)* y(k,202) +rxt(k,455)* y(k,214) & - +rxt(k,394)* y(k,215) +rxt(k,458)* y(k,216) +rxt(k,210)* y(k,228) & - + rxt(k,17) + rxt(k,529) + het_rates(k,125))* y(k,125) - prod(k,228) = (2.000_r8*rxt(k,199)*y(k,126) +rxt(k,203)*y(k,90) + & - rxt(k,204)*y(k,136) +rxt(k,205)*y(k,134) +rxt(k,226)*y(k,59) + & - rxt(k,258)*y(k,19) +rxt(k,301)*y(k,201) +rxt(k,309)*y(k,207) + & - rxt(k,322)*y(k,197) +rxt(k,333)*y(k,200) +rxt(k,337)*y(k,206) + & - rxt(k,350)*y(k,198) +rxt(k,359)*y(k,231) +rxt(k,363)*y(k,232) + & - rxt(k,369)*y(k,204) +rxt(k,376)*y(k,213) +rxt(k,385)*y(k,215) + & - rxt(k,388)*y(k,217) +rxt(k,398)*y(k,192) + & - .920_r8*rxt(k,408)*y(k,208) +.920_r8*rxt(k,414)*y(k,209) + & - rxt(k,422)*y(k,210) +rxt(k,433)*y(k,237) +rxt(k,437)*y(k,191) + & - rxt(k,440)*y(k,194) +rxt(k,445)*y(k,196) +rxt(k,447)*y(k,199) + & - rxt(k,451)*y(k,202) +rxt(k,454)*y(k,214) +rxt(k,457)*y(k,216) + & - rxt(k,460)*y(k,230) +rxt(k,467)*y(k,235) +rxt(k,473)*y(k,238) + & - rxt(k,476)*y(k,240) +1.600_r8*rxt(k,487)*y(k,223) + & - .900_r8*rxt(k,492)*y(k,233) +.800_r8*rxt(k,497)*y(k,234))*y(k,124) & - + (rxt(k,18) +rxt(k,198)*y(k,90) +rxt(k,200)*y(k,134) + & - rxt(k,201)*y(k,228) +rxt(k,367)*y(k,16) +rxt(k,375)*y(k,213) + & - rxt(k,386)*y(k,215) +rxt(k,409)*y(k,208) +rxt(k,415)*y(k,209) + & - rxt(k,423)*y(k,210) +rxt(k,434)*y(k,237) + & - 2.000_r8*rxt(k,488)*y(k,223))*y(k,126) + (rxt(k,187)*y(k,91) + & - rxt(k,357)*y(k,127) +rxt(k,396)*y(k,1) +.700_r8*rxt(k,416)*y(k,100) + & - rxt(k,494)*y(k,178))*y(k,228) + (rxt(k,11) +rxt(k,212))*y(k,91) & - + (rxt(k,55) +rxt(k,395))*y(k,109) + (rxt(k,13) +rxt(k,213)) & - *y(k,114) + (.600_r8*rxt(k,61) +rxt(k,345))*y(k,141) +rxt(k,20) & + loss(k,228) = (rxt(k,263)* y(k,19) +rxt(k,232)* y(k,59) +rxt(k,209)* y(k,90) & + + (rxt(k,193) +rxt(k,194) +rxt(k,195))* y(k,112) +rxt(k,210) & + * y(k,126) + (rxt(k,196) +rxt(k,198))* y(k,134) +rxt(k,197)* y(k,136) & + +rxt(k,466)* y(k,143) +rxt(k,516)* y(k,152) +rxt(k,469)* y(k,191) & + +rxt(k,348)* y(k,200) +rxt(k,456)* y(k,202) +rxt(k,459)* y(k,214) & + +rxt(k,398)* y(k,215) +rxt(k,462)* y(k,216) +rxt(k,211)* y(k,228) & + + rxt(k,17) + rxt(k,533) + het_rates(k,125))* y(k,125) + prod(k,228) = (2.000_r8*rxt(k,200)*y(k,126) +rxt(k,204)*y(k,90) + & + rxt(k,205)*y(k,136) +rxt(k,206)*y(k,134) +rxt(k,230)*y(k,59) + & + rxt(k,262)*y(k,19) +rxt(k,305)*y(k,201) +rxt(k,313)*y(k,207) + & + rxt(k,326)*y(k,197) +rxt(k,337)*y(k,200) +rxt(k,341)*y(k,206) + & + rxt(k,354)*y(k,198) +rxt(k,363)*y(k,231) +rxt(k,367)*y(k,232) + & + rxt(k,373)*y(k,204) +rxt(k,380)*y(k,213) +rxt(k,389)*y(k,215) + & + rxt(k,392)*y(k,217) +rxt(k,402)*y(k,192) + & + .920_r8*rxt(k,412)*y(k,208) +.920_r8*rxt(k,418)*y(k,209) + & + rxt(k,426)*y(k,210) +rxt(k,437)*y(k,237) +rxt(k,441)*y(k,191) + & + rxt(k,444)*y(k,194) +rxt(k,449)*y(k,196) +rxt(k,451)*y(k,199) + & + rxt(k,455)*y(k,202) +rxt(k,458)*y(k,214) +rxt(k,461)*y(k,216) + & + rxt(k,464)*y(k,230) +rxt(k,471)*y(k,235) +rxt(k,477)*y(k,238) + & + rxt(k,480)*y(k,240) +1.600_r8*rxt(k,491)*y(k,223) + & + .900_r8*rxt(k,496)*y(k,233) +.800_r8*rxt(k,501)*y(k,234))*y(k,124) & + + (rxt(k,18) +rxt(k,199)*y(k,90) +rxt(k,201)*y(k,134) + & + rxt(k,202)*y(k,228) +rxt(k,371)*y(k,16) +rxt(k,379)*y(k,213) + & + rxt(k,390)*y(k,215) +rxt(k,413)*y(k,208) +rxt(k,419)*y(k,209) + & + rxt(k,427)*y(k,210) +rxt(k,438)*y(k,237) + & + 2.000_r8*rxt(k,492)*y(k,223))*y(k,126) + (rxt(k,189)*y(k,91) + & + rxt(k,361)*y(k,127) +rxt(k,400)*y(k,1) +.700_r8*rxt(k,420)*y(k,100) + & + rxt(k,498)*y(k,178))*y(k,228) + (rxt(k,11) +rxt(k,213))*y(k,91) & + + (rxt(k,55) +rxt(k,399))*y(k,109) + (rxt(k,13) +rxt(k,216)) & + *y(k,114) + (.600_r8*rxt(k,61) +rxt(k,349))*y(k,141) +rxt(k,20) & *y(k,1) +rxt(k,77)*y(k,20) +rxt(k,96)*y(k,60) +rxt(k,9)*y(k,89) & +rxt(k,46)*y(k,94) +rxt(k,49)*y(k,102) +rxt(k,57)*y(k,116) & +rxt(k,58)*y(k,127) +rxt(k,59)*y(k,128) +rxt(k,60)*y(k,140) & - +rxt(k,470)*y(k,142) +rxt(k,67)*y(k,178) & - +.500_r8*rxt(k,485)*y(k,223)*y(k,201) - loss(k,225) = (rxt(k,479)* y(k,6) +rxt(k,367)* y(k,16) +rxt(k,346)* y(k,29) & - +rxt(k,295)* y(k,42) +rxt(k,327)* y(k,45) +rxt(k,353)* y(k,49) & - +rxt(k,502)* y(k,67) +rxt(k,198)* y(k,90) +rxt(k,418)* y(k,99) & - +rxt(k,482)* y(k,110) +rxt(k,199)* y(k,124) +rxt(k,209)* y(k,125) & - +rxt(k,200)* y(k,134) +rxt(k,499)* y(k,180) +rxt(k,409)* y(k,208) & - +rxt(k,415)* y(k,209) +rxt(k,423)* y(k,210) +rxt(k,375)* y(k,213) & - +rxt(k,386)* y(k,215) +rxt(k,488)* y(k,223) +rxt(k,201)* y(k,228) & - +rxt(k,434)* y(k,237) + rxt(k,18) + rxt(k,19) + rxt(k,530) & + +rxt(k,474)*y(k,142) +rxt(k,67)*y(k,178) & + +.500_r8*rxt(k,489)*y(k,223)*y(k,201) + loss(k,235) = (rxt(k,483)* y(k,6) +rxt(k,371)* y(k,16) +rxt(k,350)* y(k,29) & + +rxt(k,299)* y(k,42) +rxt(k,331)* y(k,45) +rxt(k,357)* y(k,49) & + +rxt(k,506)* y(k,67) +rxt(k,199)* y(k,90) +rxt(k,422)* y(k,99) & + +rxt(k,486)* y(k,110) +rxt(k,200)* y(k,124) +rxt(k,210)* y(k,125) & + +rxt(k,201)* y(k,134) +rxt(k,503)* y(k,180) +rxt(k,413)* y(k,208) & + +rxt(k,419)* y(k,209) +rxt(k,427)* y(k,210) +rxt(k,379)* y(k,213) & + +rxt(k,390)* y(k,215) +rxt(k,492)* y(k,223) +rxt(k,202)* y(k,228) & + +rxt(k,438)* y(k,237) + rxt(k,18) + rxt(k,19) + rxt(k,534) & + het_rates(k,126))* y(k,126) - prod(k,225) = (rxt(k,95) +rxt(k,227)*y(k,56) +rxt(k,229)*y(k,134) + & - rxt(k,230)*y(k,228))*y(k,60) + (rxt(k,13) +rxt(k,14) +rxt(k,213)) & - *y(k,114) + (rxt(k,211)*y(k,89) +rxt(k,342)*y(k,141) + & - .500_r8*rxt(k,391)*y(k,109))*y(k,228) + (rxt(k,78) + & - rxt(k,260)*y(k,134))*y(k,20) + (rxt(k,196)*y(k,136) + & - rxt(k,197)*y(k,134))*y(k,125) +rxt(k,274)*y(k,89)*y(k,73) +rxt(k,10) & + prod(k,235) = (rxt(k,95) +rxt(k,231)*y(k,56) +rxt(k,233)*y(k,134) + & + rxt(k,234)*y(k,228))*y(k,60) + (rxt(k,13) +rxt(k,14) +rxt(k,216)) & + *y(k,114) + (rxt(k,212)*y(k,89) +rxt(k,346)*y(k,141) + & + .500_r8*rxt(k,395)*y(k,109))*y(k,228) + (rxt(k,78) + & + rxt(k,264)*y(k,134))*y(k,20) + (rxt(k,197)*y(k,136) + & + rxt(k,198)*y(k,134))*y(k,125) +rxt(k,278)*y(k,89)*y(k,73) +rxt(k,10) & *y(k,91) +.400_r8*rxt(k,61)*y(k,141) - loss(k,180) = (rxt(k,357)* y(k,228) + rxt(k,58) + het_rates(k,127))* y(k,127) - prod(k,180) = (.500_r8*rxt(k,417)*y(k,101) +rxt(k,424)*y(k,102) + & - rxt(k,428)*y(k,115) +rxt(k,429)*y(k,116))*y(k,228) & - +rxt(k,346)*y(k,126)*y(k,29) - loss(k,118) = (rxt(k,489)* y(k,228) + rxt(k,59) + rxt(k,531) & + loss(k,180) = (rxt(k,361)* y(k,228) + rxt(k,58) + het_rates(k,127))* y(k,127) + prod(k,180) = (.500_r8*rxt(k,421)*y(k,101) +rxt(k,428)*y(k,102) + & + rxt(k,432)*y(k,115) +rxt(k,433)*y(k,116))*y(k,228) & + +rxt(k,350)*y(k,126)*y(k,29) + loss(k,118) = (rxt(k,493)* y(k,228) + rxt(k,59) + rxt(k,535) & + het_rates(k,128))* y(k,128) - prod(k,118) =rxt(k,486)*y(k,223)*y(k,90) + prod(k,118) =rxt(k,490)*y(k,223)*y(k,90) loss(k,16) = ( + het_rates(k,129))* y(k,129) prod(k,16) = 0._r8 loss(k,17) = ( + het_rates(k,130))* y(k,130) @@ -778,118 +780,120 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & prod(k,19) = 0._r8 loss(k,20) = ( + het_rates(k,133))* y(k,133) prod(k,20) = 0._r8 - loss(k,232) = (rxt(k,261)* y(k,19) +rxt(k,260)* y(k,20) +rxt(k,296)* y(k,42) & - +rxt(k,231)* y(k,59) +rxt(k,229)* y(k,60) +rxt(k,170)* y(k,77) & - +rxt(k,171)* y(k,79) +rxt(k,263)* y(k,81) +rxt(k,234)* y(k,85) & - +rxt(k,176)* y(k,90) +rxt(k,265)* y(k,92) +rxt(k,237)* y(k,93) & - +rxt(k,205)* y(k,124) + (rxt(k,195) +rxt(k,197))* y(k,125) & - +rxt(k,200)* y(k,126) + 2._r8*rxt(k,168)* y(k,134) +rxt(k,169) & - * y(k,135) +rxt(k,167)* y(k,136) +rxt(k,504)* y(k,139) & - + (rxt(k,583) +rxt(k,584))* y(k,220) +rxt(k,585)* y(k,222) & - +rxt(k,182)* y(k,228) + rxt(k,120) + rxt(k,121) + rxt(k,122) & + loss(k,231) = (rxt(k,265)* y(k,19) +rxt(k,264)* y(k,20) +rxt(k,300)* y(k,42) & + +rxt(k,235)* y(k,59) +rxt(k,233)* y(k,60) +rxt(k,171)* y(k,77) & + +rxt(k,172)* y(k,79) +rxt(k,267)* y(k,81) +rxt(k,238)* y(k,85) & + +rxt(k,177)* y(k,90) +rxt(k,269)* y(k,92) +rxt(k,241)* y(k,93) & + +rxt(k,206)* y(k,124) + (rxt(k,196) +rxt(k,198))* y(k,125) & + +rxt(k,201)* y(k,126) + 2._r8*rxt(k,169)* y(k,134) +rxt(k,170) & + * y(k,135) +rxt(k,168)* y(k,136) +rxt(k,508)* y(k,139) & + + (rxt(k,587) +rxt(k,588))* y(k,220) +rxt(k,589)* y(k,222) & + +rxt(k,183)* y(k,228) + rxt(k,120) + rxt(k,121) + rxt(k,122) & + rxt(k,123) + rxt(k,124) + rxt(k,125) + het_rates(k,134))* y(k,134) - prod(k,232) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,127) +rxt(k,128) + & + prod(k,231) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,127) +rxt(k,128) + & rxt(k,129) +rxt(k,131) +rxt(k,132) +rxt(k,133) +2.000_r8*rxt(k,134) + & 2.000_r8*rxt(k,135) +rxt(k,156)*y(k,224) +rxt(k,157)*y(k,224) + & - rxt(k,194)*y(k,112) +rxt(k,506)*y(k,150) +rxt(k,513)*y(k,152) + & - rxt(k,587)*y(k,222) +rxt(k,593)*y(k,229))*y(k,135) & - + (rxt(k,190)*y(k,124) +rxt(k,191)*y(k,125) +rxt(k,588)*y(k,227)) & - *y(k,112) + (rxt(k,42) +rxt(k,110))*y(k,63) + (rxt(k,579)*y(k,221) + & - 1.150_r8*rxt(k,580)*y(k,227))*y(k,203) +rxt(k,76)*y(k,19) & - +.180_r8*rxt(k,40)*y(k,54) +rxt(k,94)*y(k,59) +rxt(k,174)*y(k,90) & - *y(k,76) +rxt(k,14)*y(k,114) +rxt(k,15)*y(k,124) +rxt(k,17)*y(k,125) & - +rxt(k,18)*y(k,126) +rxt(k,8)*y(k,136) +rxt(k,108)*y(k,138) & - +rxt(k,138)*y(k,152) +rxt(k,139)*y(k,153) +rxt(k,140)*y(k,154) & - +rxt(k,155)*y(k,224) +rxt(k,184)*y(k,228)*y(k,228) +rxt(k,2) & - *y(k,241) - loss(k,222) = (rxt(k,175)* y(k,76) +rxt(k,194)* y(k,112) +rxt(k,169) & - * y(k,134) +rxt(k,506)* y(k,150) +rxt(k,513)* y(k,152) +rxt(k,339) & - * y(k,205) +rxt(k,189)* y(k,219) +rxt(k,582)* y(k,220) & - + (rxt(k,586) +rxt(k,587))* y(k,222) +rxt(k,156)* y(k,224) & - +rxt(k,161)* y(k,225) +rxt(k,593)* y(k,229) + rxt(k,5) + rxt(k,6) & + rxt(k,217)*y(k,112) +rxt(k,510)*y(k,150) +rxt(k,517)*y(k,152) + & + rxt(k,591)*y(k,222) +rxt(k,597)*y(k,229))*y(k,135) & + + (rxt(k,192)*y(k,124) +rxt(k,193)*y(k,125) +rxt(k,592)*y(k,227)) & + *y(k,112) + (rxt(k,42) +rxt(k,110))*y(k,63) + (rxt(k,15) + & + rxt(k,190)*y(k,219))*y(k,124) + (rxt(k,8) + & + 2.000_r8*rxt(k,159)*y(k,224))*y(k,136) + (rxt(k,583)*y(k,221) + & + 1.150_r8*rxt(k,584)*y(k,227))*y(k,203) +rxt(k,76)*y(k,19) & + +.180_r8*rxt(k,40)*y(k,54) +rxt(k,94)*y(k,59) +rxt(k,175)*y(k,90) & + *y(k,76) +rxt(k,14)*y(k,114) +rxt(k,17)*y(k,125) +rxt(k,18)*y(k,126) & + +rxt(k,108)*y(k,138) +rxt(k,138)*y(k,152) +rxt(k,139)*y(k,153) & + +rxt(k,140)*y(k,154) +rxt(k,155)*y(k,224) +rxt(k,185)*y(k,228) & + *y(k,228) +rxt(k,2)*y(k,241) + loss(k,222) = (rxt(k,176)* y(k,76) +rxt(k,217)* y(k,112) +rxt(k,170) & + * y(k,134) +rxt(k,510)* y(k,150) +rxt(k,517)* y(k,152) +rxt(k,343) & + * y(k,205) +rxt(k,215)* y(k,219) +rxt(k,586)* y(k,220) & + + (rxt(k,590) +rxt(k,591))* y(k,222) +rxt(k,156)* y(k,224) & + +rxt(k,162)* y(k,225) +rxt(k,597)* y(k,229) + rxt(k,5) + rxt(k,6) & + rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + rxt(k,131) + rxt(k,132) + rxt(k,133) + rxt(k,134) + rxt(k,135) & + het_rates(k,135))* y(k,135) - prod(k,222) = (rxt(k,172)*y(k,76) +rxt(k,176)*y(k,134) + & - 2.000_r8*rxt(k,177)*y(k,136) +rxt(k,181)*y(k,228) + & - rxt(k,186)*y(k,90) +rxt(k,198)*y(k,126) +rxt(k,218)*y(k,56) + & - rxt(k,225)*y(k,59) +rxt(k,251)*y(k,17) +rxt(k,257)*y(k,19) + & - rxt(k,300)*y(k,201) +rxt(k,321)*y(k,197) +rxt(k,349)*y(k,198) + & - rxt(k,358)*y(k,231))*y(k,90) + (rxt(k,8) + & - 2.000_r8*rxt(k,158)*y(k,224) +2.000_r8*rxt(k,167)*y(k,134) + & - rxt(k,178)*y(k,76) +rxt(k,183)*y(k,228) +rxt(k,196)*y(k,125) + & - rxt(k,204)*y(k,124) +rxt(k,220)*y(k,56) +rxt(k,252)*y(k,17) + & - rxt(k,508)*y(k,150) +rxt(k,514)*y(k,152))*y(k,136) & - + (rxt(k,160)*y(k,225) +rxt(k,168)*y(k,134) +rxt(k,182)*y(k,228) + & - rxt(k,195)*y(k,125) +rxt(k,200)*y(k,126) +rxt(k,231)*y(k,59) + & - rxt(k,261)*y(k,19))*y(k,134) + (rxt(k,222)*y(k,59) + & - rxt(k,223)*y(k,59) +rxt(k,233)*y(k,228) +rxt(k,255)*y(k,19) + & - rxt(k,256)*y(k,19))*y(k,59) + (rxt(k,151) +rxt(k,159) + & - 2.000_r8*rxt(k,161)*y(k,135))*y(k,225) +rxt(k,253)*y(k,19)*y(k,19) & - +rxt(k,187)*y(k,228)*y(k,91) +rxt(k,193)*y(k,125)*y(k,112) & - +rxt(k,207)*y(k,224)*y(k,113) +rxt(k,590)*y(k,227)*y(k,124) & - +rxt(k,19)*y(k,126) +rxt(k,152)*y(k,226) - loss(k,235) = (rxt(k,480)* y(k,6) +rxt(k,252)* y(k,17) +rxt(k,318)* y(k,25) & - +rxt(k,347)* y(k,29) +rxt(k,220)* y(k,56) +rxt(k,178)* y(k,76) & - +rxt(k,177)* y(k,90) +rxt(k,425)* y(k,99) +rxt(k,378)* y(k,105) & - +rxt(k,483)* y(k,110) +rxt(k,392)* y(k,111) +rxt(k,204)* y(k,124) & - +rxt(k,196)* y(k,125) +rxt(k,167)* y(k,134) +rxt(k,463)* y(k,143) & - +rxt(k,508)* y(k,150) +rxt(k,514)* y(k,152) +rxt(k,158)* y(k,224) & - +rxt(k,183)* y(k,228) + rxt(k,7) + rxt(k,8) + het_rates(k,136)) & - * y(k,136) - prod(k,235) = (.150_r8*rxt(k,332)*y(k,200) +.150_r8*rxt(k,383)*y(k,215)) & - *y(k,90) +rxt(k,169)*y(k,135)*y(k,134) + prod(k,222) = (rxt(k,173)*y(k,76) +rxt(k,177)*y(k,134) + & + 2.000_r8*rxt(k,178)*y(k,136) +rxt(k,182)*y(k,228) + & + rxt(k,187)*y(k,90) +rxt(k,199)*y(k,126) +rxt(k,222)*y(k,56) + & + rxt(k,229)*y(k,59) +rxt(k,255)*y(k,17) +rxt(k,261)*y(k,19) + & + rxt(k,304)*y(k,201) +rxt(k,325)*y(k,197) +rxt(k,353)*y(k,198) + & + rxt(k,362)*y(k,231))*y(k,90) + (rxt(k,8) + & + 2.000_r8*rxt(k,158)*y(k,224) +rxt(k,159)*y(k,224) + & + 2.000_r8*rxt(k,168)*y(k,134) +rxt(k,179)*y(k,76) + & + rxt(k,184)*y(k,228) +rxt(k,197)*y(k,125) +rxt(k,205)*y(k,124) + & + rxt(k,224)*y(k,56) +rxt(k,256)*y(k,17) +rxt(k,512)*y(k,150) + & + rxt(k,518)*y(k,152))*y(k,136) + (rxt(k,161)*y(k,225) + & + rxt(k,169)*y(k,134) +rxt(k,183)*y(k,228) +rxt(k,196)*y(k,125) + & + rxt(k,201)*y(k,126) +rxt(k,235)*y(k,59) +rxt(k,265)*y(k,19))*y(k,134) & + + (rxt(k,226)*y(k,59) +rxt(k,227)*y(k,59) +rxt(k,237)*y(k,228) + & + rxt(k,259)*y(k,19) +rxt(k,260)*y(k,19))*y(k,59) + (rxt(k,151) + & + rxt(k,160) +2.000_r8*rxt(k,162)*y(k,135))*y(k,225) & + +rxt(k,257)*y(k,19)*y(k,19) +rxt(k,189)*y(k,228)*y(k,91) & + +rxt(k,195)*y(k,125)*y(k,112) +rxt(k,208)*y(k,224)*y(k,113) & + +rxt(k,594)*y(k,227)*y(k,124) +rxt(k,19)*y(k,126) +rxt(k,152) & + *y(k,226) + loss(k,232) = (rxt(k,484)* y(k,6) +rxt(k,256)* y(k,17) +rxt(k,322)* y(k,25) & + +rxt(k,351)* y(k,29) +rxt(k,224)* y(k,56) +rxt(k,179)* y(k,76) & + +rxt(k,178)* y(k,90) +rxt(k,429)* y(k,99) +rxt(k,382)* y(k,105) & + +rxt(k,487)* y(k,110) +rxt(k,396)* y(k,111) +rxt(k,205)* y(k,124) & + +rxt(k,197)* y(k,125) +rxt(k,168)* y(k,134) +rxt(k,467)* y(k,143) & + +rxt(k,512)* y(k,150) +rxt(k,518)* y(k,152) + (rxt(k,158) + & + rxt(k,159))* y(k,224) +rxt(k,184)* y(k,228) + rxt(k,7) + rxt(k,8) & + + het_rates(k,136))* y(k,136) + prod(k,232) = (.150_r8*rxt(k,336)*y(k,200) +.150_r8*rxt(k,387)*y(k,215)) & + *y(k,90) +rxt(k,170)*y(k,135)*y(k,134) loss(k,21) = ( + het_rates(k,137))* y(k,137) prod(k,21) = 0._r8 - loss(k,109) = (rxt(k,515)* y(k,152) + rxt(k,108) + het_rates(k,138)) & + loss(k,109) = (rxt(k,519)* y(k,152) + rxt(k,108) + het_rates(k,138)) & * y(k,138) - prod(k,109) = (rxt(k,224)*y(k,59) +rxt(k,254)*y(k,19))*y(k,59) - loss(k,114) = (rxt(k,504)* y(k,134) +rxt(k,505)* y(k,228) + rxt(k,137) & + prod(k,109) = (rxt(k,228)*y(k,59) +rxt(k,258)*y(k,19))*y(k,59) + loss(k,114) = (rxt(k,508)* y(k,134) +rxt(k,509)* y(k,228) + rxt(k,137) & + het_rates(k,139))* y(k,139) prod(k,114) = 0._r8 - loss(k,87) = ( + rxt(k,60) + rxt(k,532) + het_rates(k,140))* y(k,140) - prod(k,87) =rxt(k,371)*y(k,228)*y(k,94) +.100_r8*rxt(k,492)*y(k,233)*y(k,124) - loss(k,141) = (rxt(k,342)* y(k,228) + rxt(k,61) + rxt(k,345) & + loss(k,87) = ( + rxt(k,60) + rxt(k,536) + het_rates(k,140))* y(k,140) + prod(k,87) =rxt(k,375)*y(k,228)*y(k,94) +.100_r8*rxt(k,496)*y(k,233)*y(k,124) + loss(k,140) = (rxt(k,346)* y(k,228) + rxt(k,61) + rxt(k,349) & + het_rates(k,141))* y(k,141) - prod(k,141) =rxt(k,344)*y(k,200)*y(k,125) - loss(k,66) = ( + rxt(k,470) + het_rates(k,142))* y(k,142) - prod(k,66) =rxt(k,465)*y(k,191)*y(k,125) - loss(k,131) = (rxt(k,462)* y(k,125) +rxt(k,463)* y(k,136) + het_rates(k,143)) & + prod(k,140) =rxt(k,348)*y(k,200)*y(k,125) + loss(k,66) = ( + rxt(k,474) + het_rates(k,142))* y(k,142) + prod(k,66) =rxt(k,469)*y(k,191)*y(k,125) + loss(k,131) = (rxt(k,466)* y(k,125) +rxt(k,467)* y(k,136) + het_rates(k,143)) & * y(k,143) - prod(k,131) = (.070_r8*rxt(k,449)*y(k,66) +.060_r8*rxt(k,461)*y(k,144) + & - .070_r8*rxt(k,477)*y(k,187))*y(k,228) +rxt(k,32)*y(k,32) & - +rxt(k,447)*y(k,199)*y(k,124) - loss(k,73) = (rxt(k,461)* y(k,228) + het_rates(k,144))* y(k,144) - prod(k,73) =.530_r8*rxt(k,438)*y(k,228)*y(k,7) - loss(k,110) = (rxt(k,464)* y(k,228) + rxt(k,62) + het_rates(k,145))* y(k,145) - prod(k,110) =rxt(k,459)*y(k,230)*y(k,90) + prod(k,131) = (.070_r8*rxt(k,453)*y(k,66) +.060_r8*rxt(k,465)*y(k,144) + & + .070_r8*rxt(k,481)*y(k,187))*y(k,228) +rxt(k,32)*y(k,32) & + +rxt(k,451)*y(k,199)*y(k,124) + loss(k,73) = (rxt(k,465)* y(k,228) + het_rates(k,144))* y(k,144) + prod(k,73) =.530_r8*rxt(k,442)*y(k,228)*y(k,7) + loss(k,110) = (rxt(k,468)* y(k,228) + rxt(k,62) + het_rates(k,145))* y(k,145) + prod(k,110) =rxt(k,463)*y(k,230)*y(k,90) loss(k,22) = ( + het_rates(k,146))* y(k,146) prod(k,22) = 0._r8 loss(k,23) = ( + het_rates(k,147))* y(k,147) prod(k,23) = 0._r8 - loss(k,142) = (rxt(k,360)* y(k,228) + rxt(k,63) + het_rates(k,148))* y(k,148) - prod(k,142) =rxt(k,358)*y(k,231)*y(k,90) - loss(k,119) = (rxt(k,364)* y(k,228) + rxt(k,64) + het_rates(k,149))* y(k,149) - prod(k,119) =.850_r8*rxt(k,362)*y(k,232)*y(k,90) - loss(k,163) = (rxt(k,506)* y(k,135) +rxt(k,508)* y(k,136) +rxt(k,511) & + loss(k,141) = (rxt(k,364)* y(k,228) + rxt(k,63) + het_rates(k,148))* y(k,148) + prod(k,141) =rxt(k,362)*y(k,231)*y(k,90) + loss(k,119) = (rxt(k,368)* y(k,228) + rxt(k,64) + het_rates(k,149))* y(k,149) + prod(k,119) =.850_r8*rxt(k,366)*y(k,232)*y(k,90) + loss(k,164) = (rxt(k,510)* y(k,135) +rxt(k,512)* y(k,136) +rxt(k,515) & * y(k,228) + het_rates(k,150))* y(k,150) - prod(k,163) =rxt(k,137)*y(k,139) +rxt(k,138)*y(k,152) + prod(k,164) =rxt(k,137)*y(k,139) +rxt(k,138)*y(k,152) loss(k,24) = ( + rxt(k,109) + het_rates(k,151))* y(k,151) prod(k,24) = 0._r8 - loss(k,219) = (rxt(k,509)* y(k,19) +rxt(k,510)* y(k,59) +rxt(k,512)* y(k,125) & - +rxt(k,513)* y(k,135) +rxt(k,514)* y(k,136) +rxt(k,515)* y(k,138) & - +rxt(k,516)* y(k,228) + rxt(k,138) + het_rates(k,152))* y(k,152) - prod(k,219) = (rxt(k,506)*y(k,135) +rxt(k,508)*y(k,136) +rxt(k,511)*y(k,228)) & - *y(k,150) +rxt(k,504)*y(k,139)*y(k,134) +rxt(k,139)*y(k,153) - loss(k,186) = (rxt(k,507)* y(k,228) + rxt(k,139) + het_rates(k,153)) & + loss(k,219) = (rxt(k,513)* y(k,19) +rxt(k,514)* y(k,59) +rxt(k,516)* y(k,125) & + +rxt(k,517)* y(k,135) +rxt(k,518)* y(k,136) +rxt(k,519)* y(k,138) & + +rxt(k,520)* y(k,228) + rxt(k,138) + het_rates(k,152))* y(k,152) + prod(k,219) = (rxt(k,510)*y(k,135) +rxt(k,512)*y(k,136) +rxt(k,515)*y(k,228)) & + *y(k,150) +rxt(k,508)*y(k,139)*y(k,134) +rxt(k,139)*y(k,153) + loss(k,186) = (rxt(k,511)* y(k,228) + rxt(k,139) + het_rates(k,153)) & * y(k,153) - prod(k,186) = (rxt(k,509)*y(k,19) +rxt(k,510)*y(k,59) +rxt(k,512)*y(k,125) + & - rxt(k,513)*y(k,135) +rxt(k,514)*y(k,136) +rxt(k,515)*y(k,138) + & - rxt(k,516)*y(k,228))*y(k,152) + (rxt(k,502)*y(k,126) + & - rxt(k,503)*y(k,228) +.500_r8*rxt(k,517)*y(k,228))*y(k,67) & - +rxt(k,505)*y(k,228)*y(k,139) +rxt(k,140)*y(k,154) - loss(k,94) = (rxt(k,518)* y(k,241) + rxt(k,140) + het_rates(k,154))* y(k,154) - prod(k,94) =rxt(k,136)*y(k,80) +rxt(k,507)*y(k,228)*y(k,153) + prod(k,186) = (rxt(k,513)*y(k,19) +rxt(k,514)*y(k,59) +rxt(k,516)*y(k,125) + & + rxt(k,517)*y(k,135) +rxt(k,518)*y(k,136) +rxt(k,519)*y(k,138) + & + rxt(k,520)*y(k,228))*y(k,152) + (rxt(k,506)*y(k,126) + & + rxt(k,507)*y(k,228) +.500_r8*rxt(k,521)*y(k,228))*y(k,67) & + +rxt(k,509)*y(k,228)*y(k,139) +rxt(k,140)*y(k,154) + loss(k,94) = (rxt(k,522)* y(k,241) + rxt(k,140) + het_rates(k,154))* y(k,154) + prod(k,94) =rxt(k,136)*y(k,80) +rxt(k,511)*y(k,228)*y(k,153) loss(k,25) = ( + het_rates(k,155))* y(k,155) prod(k,25) = 0._r8 loss(k,26) = ( + het_rates(k,156))* y(k,156) @@ -919,418 +923,419 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & loss(k,38) = ( + rxt(k,150) + het_rates(k,168))* y(k,168) prod(k,38) = 0._r8 loss(k,39) = ( + het_rates(k,169))* y(k,169) - prod(k,39) = (.2202005_r8*rxt(k,535)*y(k,193) + & - .0023005_r8*rxt(k,540)*y(k,195) +.0031005_r8*rxt(k,543)*y(k,211) + & - .2381005_r8*rxt(k,547)*y(k,212) +.0508005_r8*rxt(k,551)*y(k,218) + & - .1364005_r8*rxt(k,557)*y(k,236) +.1677005_r8*rxt(k,560)*y(k,239)) & - *y(k,90) + (.1279005_r8*rxt(k,536)*y(k,193) + & - .0097005_r8*rxt(k,541)*y(k,195) +.0003005_r8*rxt(k,544)*y(k,211) + & - .1056005_r8*rxt(k,548)*y(k,212) +.0245005_r8*rxt(k,552)*y(k,218) + & - .0154005_r8*rxt(k,558)*y(k,236) +.0063005_r8*rxt(k,561)*y(k,239)) & - *y(k,124) + (.2202005_r8*rxt(k,537)*y(k,6) + & - .0508005_r8*rxt(k,553)*y(k,110))*y(k,136) +rxt(k,520)*y(k,75) & - +.5931005_r8*rxt(k,555)*y(k,228)*y(k,175) + prod(k,39) = (.2202005_r8*rxt(k,539)*y(k,193) + & + .0023005_r8*rxt(k,544)*y(k,195) +.0031005_r8*rxt(k,547)*y(k,211) + & + .2381005_r8*rxt(k,551)*y(k,212) +.0508005_r8*rxt(k,555)*y(k,218) + & + .1364005_r8*rxt(k,561)*y(k,236) +.1677005_r8*rxt(k,564)*y(k,239)) & + *y(k,90) + (.1279005_r8*rxt(k,540)*y(k,193) + & + .0097005_r8*rxt(k,545)*y(k,195) +.0003005_r8*rxt(k,548)*y(k,211) + & + .1056005_r8*rxt(k,552)*y(k,212) +.0245005_r8*rxt(k,556)*y(k,218) + & + .0154005_r8*rxt(k,562)*y(k,236) +.0063005_r8*rxt(k,565)*y(k,239)) & + *y(k,124) + (.2202005_r8*rxt(k,541)*y(k,6) + & + .0508005_r8*rxt(k,557)*y(k,110))*y(k,136) +rxt(k,524)*y(k,75) & + +.5931005_r8*rxt(k,559)*y(k,228)*y(k,175) loss(k,40) = ( + het_rates(k,170))* y(k,170) - prod(k,40) = (.2067005_r8*rxt(k,535)*y(k,193) + & - .0008005_r8*rxt(k,540)*y(k,195) +.0035005_r8*rxt(k,543)*y(k,211) + & - .1308005_r8*rxt(k,547)*y(k,212) +.1149005_r8*rxt(k,551)*y(k,218) + & - .0101005_r8*rxt(k,557)*y(k,236) +.0174005_r8*rxt(k,560)*y(k,239)) & - *y(k,90) + (.1792005_r8*rxt(k,536)*y(k,193) + & - .0034005_r8*rxt(k,541)*y(k,195) +.0003005_r8*rxt(k,544)*y(k,211) + & - .1026005_r8*rxt(k,548)*y(k,212) +.0082005_r8*rxt(k,552)*y(k,218) + & - .0452005_r8*rxt(k,558)*y(k,236) +.0237005_r8*rxt(k,561)*y(k,239)) & - *y(k,124) + (.2067005_r8*rxt(k,537)*y(k,6) + & - .1149005_r8*rxt(k,553)*y(k,110))*y(k,136) & - +.1534005_r8*rxt(k,555)*y(k,228)*y(k,175) + prod(k,40) = (.2067005_r8*rxt(k,539)*y(k,193) + & + .0008005_r8*rxt(k,544)*y(k,195) +.0035005_r8*rxt(k,547)*y(k,211) + & + .1308005_r8*rxt(k,551)*y(k,212) +.1149005_r8*rxt(k,555)*y(k,218) + & + .0101005_r8*rxt(k,561)*y(k,236) +.0174005_r8*rxt(k,564)*y(k,239)) & + *y(k,90) + (.1792005_r8*rxt(k,540)*y(k,193) + & + .0034005_r8*rxt(k,545)*y(k,195) +.0003005_r8*rxt(k,548)*y(k,211) + & + .1026005_r8*rxt(k,552)*y(k,212) +.0082005_r8*rxt(k,556)*y(k,218) + & + .0452005_r8*rxt(k,562)*y(k,236) +.0237005_r8*rxt(k,565)*y(k,239)) & + *y(k,124) + (.2067005_r8*rxt(k,541)*y(k,6) + & + .1149005_r8*rxt(k,557)*y(k,110))*y(k,136) & + +.1534005_r8*rxt(k,559)*y(k,228)*y(k,175) loss(k,41) = ( + het_rates(k,171))* y(k,171) - prod(k,41) = (.0653005_r8*rxt(k,535)*y(k,193) + & - .0843005_r8*rxt(k,540)*y(k,195) +.0003005_r8*rxt(k,543)*y(k,211) + & - .0348005_r8*rxt(k,547)*y(k,212) +.0348005_r8*rxt(k,551)*y(k,218) + & - .0763005_r8*rxt(k,557)*y(k,236) +.086_r8*rxt(k,560)*y(k,239))*y(k,90) & - + (.0676005_r8*rxt(k,536)*y(k,193) + & - .1579005_r8*rxt(k,541)*y(k,195) +.0073005_r8*rxt(k,544)*y(k,211) + & - .0521005_r8*rxt(k,548)*y(k,212) +.0772005_r8*rxt(k,552)*y(k,218) + & - .0966005_r8*rxt(k,558)*y(k,236) +.0025005_r8*rxt(k,561)*y(k,239)) & - *y(k,124) + (.0653005_r8*rxt(k,537)*y(k,6) + & - .0348005_r8*rxt(k,553)*y(k,110))*y(k,136) & - +.0459005_r8*rxt(k,555)*y(k,228)*y(k,175) + prod(k,41) = (.0653005_r8*rxt(k,539)*y(k,193) + & + .0843005_r8*rxt(k,544)*y(k,195) +.0003005_r8*rxt(k,547)*y(k,211) + & + .0348005_r8*rxt(k,551)*y(k,212) +.0348005_r8*rxt(k,555)*y(k,218) + & + .0763005_r8*rxt(k,561)*y(k,236) +.086_r8*rxt(k,564)*y(k,239))*y(k,90) & + + (.0676005_r8*rxt(k,540)*y(k,193) + & + .1579005_r8*rxt(k,545)*y(k,195) +.0073005_r8*rxt(k,548)*y(k,211) + & + .0521005_r8*rxt(k,552)*y(k,212) +.0772005_r8*rxt(k,556)*y(k,218) + & + .0966005_r8*rxt(k,562)*y(k,236) +.0025005_r8*rxt(k,565)*y(k,239)) & + *y(k,124) + (.0653005_r8*rxt(k,541)*y(k,6) + & + .0348005_r8*rxt(k,557)*y(k,110))*y(k,136) & + +.0459005_r8*rxt(k,559)*y(k,228)*y(k,175) loss(k,42) = ( + het_rates(k,172))* y(k,172) - prod(k,42) = (.1284005_r8*rxt(k,535)*y(k,193) + & - .0443005_r8*rxt(k,540)*y(k,195) +.0271005_r8*rxt(k,543)*y(k,211) + & - .0076005_r8*rxt(k,547)*y(k,212) +.0554005_r8*rxt(k,551)*y(k,218) + & - .2157005_r8*rxt(k,557)*y(k,236) +.0512005_r8*rxt(k,560)*y(k,239)) & - *y(k,90) + (.079_r8*rxt(k,536)*y(k,193) + & - .0059005_r8*rxt(k,541)*y(k,195) +.0057005_r8*rxt(k,544)*y(k,211) + & - .0143005_r8*rxt(k,548)*y(k,212) +.0332005_r8*rxt(k,552)*y(k,218) + & - .0073005_r8*rxt(k,558)*y(k,236) +.011_r8*rxt(k,561)*y(k,239)) & - *y(k,124) + (.1749305_r8*rxt(k,534)*y(k,6) + & - .0590245_r8*rxt(k,542)*y(k,99) +.1749305_r8*rxt(k,550)*y(k,110)) & - *y(k,126) + (.1284005_r8*rxt(k,537)*y(k,6) + & - .0033005_r8*rxt(k,545)*y(k,99) +.0554005_r8*rxt(k,553)*y(k,110)) & - *y(k,136) +.0085005_r8*rxt(k,555)*y(k,228)*y(k,175) + prod(k,42) = (.1284005_r8*rxt(k,539)*y(k,193) + & + .0443005_r8*rxt(k,544)*y(k,195) +.0271005_r8*rxt(k,547)*y(k,211) + & + .0076005_r8*rxt(k,551)*y(k,212) +.0554005_r8*rxt(k,555)*y(k,218) + & + .2157005_r8*rxt(k,561)*y(k,236) +.0512005_r8*rxt(k,564)*y(k,239)) & + *y(k,90) + (.079_r8*rxt(k,540)*y(k,193) + & + .0059005_r8*rxt(k,545)*y(k,195) +.0057005_r8*rxt(k,548)*y(k,211) + & + .0143005_r8*rxt(k,552)*y(k,212) +.0332005_r8*rxt(k,556)*y(k,218) + & + .0073005_r8*rxt(k,562)*y(k,236) +.011_r8*rxt(k,565)*y(k,239)) & + *y(k,124) + (.1749305_r8*rxt(k,538)*y(k,6) + & + .0590245_r8*rxt(k,546)*y(k,99) +.1749305_r8*rxt(k,554)*y(k,110)) & + *y(k,126) + (.1284005_r8*rxt(k,541)*y(k,6) + & + .0033005_r8*rxt(k,549)*y(k,99) +.0554005_r8*rxt(k,557)*y(k,110)) & + *y(k,136) +.0085005_r8*rxt(k,559)*y(k,228)*y(k,175) loss(k,43) = ( + het_rates(k,173))* y(k,173) - prod(k,43) = (.114_r8*rxt(k,535)*y(k,193) +.1621005_r8*rxt(k,540)*y(k,195) + & - .0474005_r8*rxt(k,543)*y(k,211) +.0113005_r8*rxt(k,547)*y(k,212) + & - .1278005_r8*rxt(k,551)*y(k,218) +.0738005_r8*rxt(k,557)*y(k,236) + & - .1598005_r8*rxt(k,560)*y(k,239))*y(k,90) & - + (.1254005_r8*rxt(k,536)*y(k,193) + & - .0536005_r8*rxt(k,541)*y(k,195) +.0623005_r8*rxt(k,544)*y(k,211) + & - .0166005_r8*rxt(k,548)*y(k,212) +.130_r8*rxt(k,552)*y(k,218) + & - .238_r8*rxt(k,558)*y(k,236) +.1185005_r8*rxt(k,561)*y(k,239)) & - *y(k,124) + (.5901905_r8*rxt(k,534)*y(k,6) + & - .0250245_r8*rxt(k,542)*y(k,99) +.5901905_r8*rxt(k,550)*y(k,110)) & - *y(k,126) + (.114_r8*rxt(k,537)*y(k,6) + & - .1278005_r8*rxt(k,553)*y(k,110))*y(k,136) & - +.0128005_r8*rxt(k,555)*y(k,228)*y(k,175) - loss(k,44) = ( + rxt(k,597) + het_rates(k,174))* y(k,174) + prod(k,43) = (.114_r8*rxt(k,539)*y(k,193) +.1621005_r8*rxt(k,544)*y(k,195) + & + .0474005_r8*rxt(k,547)*y(k,211) +.0113005_r8*rxt(k,551)*y(k,212) + & + .1278005_r8*rxt(k,555)*y(k,218) +.0738005_r8*rxt(k,561)*y(k,236) + & + .1598005_r8*rxt(k,564)*y(k,239))*y(k,90) & + + (.1254005_r8*rxt(k,540)*y(k,193) + & + .0536005_r8*rxt(k,545)*y(k,195) +.0623005_r8*rxt(k,548)*y(k,211) + & + .0166005_r8*rxt(k,552)*y(k,212) +.130_r8*rxt(k,556)*y(k,218) + & + .238_r8*rxt(k,562)*y(k,236) +.1185005_r8*rxt(k,565)*y(k,239)) & + *y(k,124) + (.5901905_r8*rxt(k,538)*y(k,6) + & + .0250245_r8*rxt(k,546)*y(k,99) +.5901905_r8*rxt(k,554)*y(k,110)) & + *y(k,126) + (.114_r8*rxt(k,541)*y(k,6) + & + .1278005_r8*rxt(k,557)*y(k,110))*y(k,136) & + +.0128005_r8*rxt(k,559)*y(k,228)*y(k,175) + loss(k,44) = ( + rxt(k,601) + het_rates(k,174))* y(k,174) prod(k,44) = 0._r8 - loss(k,45) = (rxt(k,555)* y(k,228) + het_rates(k,175))* y(k,175) + loss(k,45) = (rxt(k,559)* y(k,228) + het_rates(k,175))* y(k,175) prod(k,45) = 0._r8 loss(k,80) = ( + rxt(k,65) + het_rates(k,176))* y(k,176) - prod(k,80) = (.100_r8*rxt(k,469)*y(k,183) +.230_r8*rxt(k,471)*y(k,185)) & + prod(k,80) = (.100_r8*rxt(k,473)*y(k,183) +.230_r8*rxt(k,475)*y(k,185)) & *y(k,228) - loss(k,156) = (rxt(k,493)* y(k,228) + rxt(k,66) + het_rates(k,177))* y(k,177) - prod(k,156) =rxt(k,491)*y(k,233)*y(k,90) - loss(k,153) = (rxt(k,494)* y(k,228) + rxt(k,67) + rxt(k,533) & + loss(k,157) = (rxt(k,497)* y(k,228) + rxt(k,66) + het_rates(k,177))* y(k,177) + prod(k,157) =rxt(k,495)*y(k,233)*y(k,90) + loss(k,153) = (rxt(k,498)* y(k,228) + rxt(k,67) + rxt(k,537) & + het_rates(k,178))* y(k,178) - prod(k,153) = (.200_r8*rxt(k,487)*y(k,223) +.200_r8*rxt(k,497)*y(k,234)) & - *y(k,124) +.500_r8*rxt(k,485)*y(k,223)*y(k,201) - loss(k,134) = (rxt(k,498)* y(k,228) + rxt(k,68) + het_rates(k,179))* y(k,179) - prod(k,134) =rxt(k,496)*y(k,234)*y(k,90) - loss(k,194) = (rxt(k,499)* y(k,126) +rxt(k,500)* y(k,228) + rxt(k,69) & + prod(k,153) = (.200_r8*rxt(k,491)*y(k,223) +.200_r8*rxt(k,501)*y(k,234)) & + *y(k,124) +.500_r8*rxt(k,489)*y(k,223)*y(k,201) + loss(k,134) = (rxt(k,502)* y(k,228) + rxt(k,68) + het_rates(k,179))* y(k,179) + prod(k,134) =rxt(k,500)*y(k,234)*y(k,90) + loss(k,194) = (rxt(k,503)* y(k,126) +rxt(k,504)* y(k,228) + rxt(k,69) & + het_rates(k,180))* y(k,180) - prod(k,194) = (.500_r8*rxt(k,485)*y(k,201) +.800_r8*rxt(k,487)*y(k,124) + & - rxt(k,488)*y(k,126))*y(k,223) + (.330_r8*rxt(k,480)*y(k,6) + & - .330_r8*rxt(k,483)*y(k,110))*y(k,136) + (rxt(k,67) + & - rxt(k,494)*y(k,228))*y(k,178) + (rxt(k,495)*y(k,201) + & - .800_r8*rxt(k,497)*y(k,124))*y(k,234) +rxt(k,59)*y(k,128) +rxt(k,68) & + prod(k,194) = (.500_r8*rxt(k,489)*y(k,201) +.800_r8*rxt(k,491)*y(k,124) + & + rxt(k,492)*y(k,126))*y(k,223) + (.330_r8*rxt(k,484)*y(k,6) + & + .330_r8*rxt(k,487)*y(k,110))*y(k,136) + (rxt(k,67) + & + rxt(k,498)*y(k,228))*y(k,178) + (rxt(k,499)*y(k,201) + & + .800_r8*rxt(k,501)*y(k,124))*y(k,234) +rxt(k,59)*y(k,128) +rxt(k,68) & *y(k,179) - loss(k,198) = (rxt(k,501)* y(k,228) + rxt(k,70) + het_rates(k,181))* y(k,181) - prod(k,198) = (.300_r8*rxt(k,480)*y(k,6) +.300_r8*rxt(k,483)*y(k,110)) & - *y(k,136) + (rxt(k,490)*y(k,201) +.900_r8*rxt(k,492)*y(k,124)) & + loss(k,198) = (rxt(k,505)* y(k,228) + rxt(k,70) + het_rates(k,181))* y(k,181) + prod(k,198) = (.300_r8*rxt(k,484)*y(k,6) +.300_r8*rxt(k,487)*y(k,110)) & + *y(k,136) + (rxt(k,494)*y(k,201) +.900_r8*rxt(k,496)*y(k,124)) & *y(k,233) +rxt(k,66)*y(k,177) +rxt(k,69)*y(k,180) - loss(k,157) = (rxt(k,468)* y(k,228) + rxt(k,71) + het_rates(k,182))* y(k,182) - prod(k,157) =rxt(k,466)*y(k,235)*y(k,90) - loss(k,78) = (rxt(k,469)* y(k,228) + het_rates(k,183))* y(k,183) + loss(k,158) = (rxt(k,472)* y(k,228) + rxt(k,71) + het_rates(k,182))* y(k,182) + prod(k,158) =rxt(k,470)*y(k,235)*y(k,90) + loss(k,78) = (rxt(k,473)* y(k,228) + het_rates(k,183))* y(k,183) prod(k,78) = 0._r8 - loss(k,81) = (rxt(k,435)* y(k,228) + rxt(k,72) + het_rates(k,184))* y(k,184) - prod(k,81) =rxt(k,432)*y(k,237)*y(k,90) - loss(k,82) = (rxt(k,471)* y(k,228) + het_rates(k,185))* y(k,185) + loss(k,81) = (rxt(k,439)* y(k,228) + rxt(k,72) + het_rates(k,184))* y(k,184) + prod(k,81) =rxt(k,436)*y(k,237)*y(k,90) + loss(k,82) = (rxt(k,475)* y(k,228) + het_rates(k,185))* y(k,185) prod(k,82) = 0._r8 - loss(k,164) = (rxt(k,474)* y(k,228) + rxt(k,73) + het_rates(k,186))* y(k,186) - prod(k,164) =rxt(k,472)*y(k,238)*y(k,90) - loss(k,83) = (rxt(k,477)* y(k,228) + het_rates(k,187))* y(k,187) - prod(k,83) =.150_r8*rxt(k,471)*y(k,228)*y(k,185) - loss(k,123) = (rxt(k,478)* y(k,228) + rxt(k,74) + het_rates(k,188))* y(k,188) - prod(k,123) =rxt(k,475)*y(k,240)*y(k,90) - loss(k,139) = (rxt(k,436)* y(k,90) +rxt(k,437)* y(k,124) +rxt(k,465) & + loss(k,163) = (rxt(k,478)* y(k,228) + rxt(k,73) + het_rates(k,186))* y(k,186) + prod(k,163) =rxt(k,476)*y(k,238)*y(k,90) + loss(k,83) = (rxt(k,481)* y(k,228) + het_rates(k,187))* y(k,187) + prod(k,83) =.150_r8*rxt(k,475)*y(k,228)*y(k,185) + loss(k,123) = (rxt(k,482)* y(k,228) + rxt(k,74) + het_rates(k,188))* y(k,188) + prod(k,123) =rxt(k,479)*y(k,240)*y(k,90) + loss(k,139) = (rxt(k,440)* y(k,90) +rxt(k,441)* y(k,124) +rxt(k,469) & * y(k,125) + het_rates(k,191))* y(k,191) - prod(k,139) =rxt(k,442)*y(k,228)*y(k,22) +rxt(k,470)*y(k,142) - loss(k,191) = (rxt(k,397)* y(k,90) + (rxt(k,398) +rxt(k,399))* y(k,124) & + prod(k,139) =rxt(k,446)*y(k,228)*y(k,22) +rxt(k,474)*y(k,142) + loss(k,190) = (rxt(k,401)* y(k,90) + (rxt(k,402) +rxt(k,403))* y(k,124) & + het_rates(k,192))* y(k,192) - prod(k,191) = (rxt(k,400)*y(k,2) +rxt(k,401)*y(k,15))*y(k,228) - loss(k,46) = (rxt(k,535)* y(k,90) +rxt(k,536)* y(k,124) + het_rates(k,193)) & + prod(k,190) = (rxt(k,404)*y(k,2) +rxt(k,405)*y(k,15))*y(k,228) + loss(k,46) = (rxt(k,539)* y(k,90) +rxt(k,540)* y(k,124) + het_rates(k,193)) & * y(k,193) - prod(k,46) =rxt(k,538)*y(k,228)*y(k,6) - loss(k,135) = (rxt(k,439)* y(k,90) +rxt(k,440)* y(k,124) + het_rates(k,194)) & + prod(k,46) =rxt(k,542)*y(k,228)*y(k,6) + loss(k,135) = (rxt(k,443)* y(k,90) +rxt(k,444)* y(k,124) + het_rates(k,194)) & * y(k,194) - prod(k,135) = (.350_r8*rxt(k,438)*y(k,7) +rxt(k,441)*y(k,8))*y(k,228) - loss(k,47) = (rxt(k,540)* y(k,90) +rxt(k,541)* y(k,124) + het_rates(k,195)) & + prod(k,135) = (.350_r8*rxt(k,442)*y(k,7) +rxt(k,445)*y(k,8))*y(k,228) + loss(k,47) = (rxt(k,544)* y(k,90) +rxt(k,545)* y(k,124) + het_rates(k,195)) & * y(k,195) - prod(k,47) =rxt(k,539)*y(k,228)*y(k,7) - loss(k,125) = (rxt(k,443)* y(k,90) +rxt(k,445)* y(k,124) + het_rates(k,196)) & + prod(k,47) =rxt(k,543)*y(k,228)*y(k,7) + loss(k,125) = (rxt(k,447)* y(k,90) +rxt(k,449)* y(k,124) + het_rates(k,196)) & * y(k,196) - prod(k,125) = (rxt(k,444)*y(k,23) +.070_r8*rxt(k,469)*y(k,183) + & - .060_r8*rxt(k,471)*y(k,185))*y(k,228) - loss(k,181) = (rxt(k,321)* y(k,90) +rxt(k,322)* y(k,124) + 2._r8*rxt(k,319) & - * y(k,197) +rxt(k,320)* y(k,201) + het_rates(k,197))* y(k,197) - prod(k,181) = (rxt(k,325)*y(k,56) +rxt(k,326)*y(k,228))*y(k,28) & - +.500_r8*rxt(k,324)*y(k,228)*y(k,27) +rxt(k,53)*y(k,107) - loss(k,185) = (rxt(k,349)* y(k,90) +rxt(k,350)* y(k,124) +rxt(k,348) & + prod(k,125) = (rxt(k,448)*y(k,23) +.070_r8*rxt(k,473)*y(k,183) + & + .060_r8*rxt(k,475)*y(k,185))*y(k,228) + loss(k,181) = (rxt(k,325)* y(k,90) +rxt(k,326)* y(k,124) + 2._r8*rxt(k,323) & + * y(k,197) +rxt(k,324)* y(k,201) + het_rates(k,197))* y(k,197) + prod(k,181) = (rxt(k,329)*y(k,56) +rxt(k,330)*y(k,228))*y(k,28) & + +.500_r8*rxt(k,328)*y(k,228)*y(k,27) +rxt(k,53)*y(k,107) + loss(k,185) = (rxt(k,353)* y(k,90) +rxt(k,354)* y(k,124) +rxt(k,352) & * y(k,201) + het_rates(k,198))* y(k,198) - prod(k,185) = (rxt(k,352)*y(k,228) +rxt(k,355)*y(k,56))*y(k,31) & - +rxt(k,351)*y(k,228)*y(k,30) - loss(k,154) = (rxt(k,446)* y(k,90) +rxt(k,447)* y(k,124) + het_rates(k,199)) & + prod(k,185) = (rxt(k,356)*y(k,228) +rxt(k,359)*y(k,56))*y(k,31) & + +rxt(k,355)*y(k,228)*y(k,30) + loss(k,154) = (rxt(k,450)* y(k,90) +rxt(k,451)* y(k,124) + het_rates(k,199)) & * y(k,199) - prod(k,154) = (.400_r8*rxt(k,436)*y(k,90) +rxt(k,437)*y(k,124))*y(k,191) & - +rxt(k,448)*y(k,228)*y(k,32) +rxt(k,463)*y(k,143)*y(k,136) - loss(k,216) = (rxt(k,332)* y(k,90) +rxt(k,333)* y(k,124) +rxt(k,344) & - * y(k,125) + 2._r8*rxt(k,330)* y(k,200) +rxt(k,331)* y(k,201) & - +rxt(k,405)* y(k,208) +rxt(k,410)* y(k,209) +rxt(k,419)* y(k,210) & - +rxt(k,372)* y(k,213) +rxt(k,430)* y(k,237) + het_rates(k,200)) & + prod(k,154) = (.400_r8*rxt(k,440)*y(k,90) +rxt(k,441)*y(k,124))*y(k,191) & + +rxt(k,452)*y(k,228)*y(k,32) +rxt(k,467)*y(k,143)*y(k,136) + loss(k,216) = (rxt(k,336)* y(k,90) +rxt(k,337)* y(k,124) +rxt(k,348) & + * y(k,125) + 2._r8*rxt(k,334)* y(k,200) +rxt(k,335)* y(k,201) & + +rxt(k,409)* y(k,208) +rxt(k,414)* y(k,209) +rxt(k,423)* y(k,210) & + +rxt(k,376)* y(k,213) +rxt(k,434)* y(k,237) + het_rates(k,200)) & * y(k,200) - prod(k,216) = (.100_r8*rxt(k,378)*y(k,105) +.280_r8*rxt(k,392)*y(k,111) + & - .080_r8*rxt(k,425)*y(k,99) +.060_r8*rxt(k,480)*y(k,6) + & - .060_r8*rxt(k,483)*y(k,110))*y(k,136) + (rxt(k,382)*y(k,201) + & - .450_r8*rxt(k,383)*y(k,90) +2.000_r8*rxt(k,384)*y(k,215) + & - rxt(k,385)*y(k,124) +rxt(k,386)*y(k,126))*y(k,215) & - + (.530_r8*rxt(k,372)*y(k,200) +.260_r8*rxt(k,373)*y(k,201) + & - .530_r8*rxt(k,375)*y(k,126) +.530_r8*rxt(k,376)*y(k,124))*y(k,213) & - + (rxt(k,328)*y(k,45) +.500_r8*rxt(k,335)*y(k,51) + & - rxt(k,354)*y(k,49) +.650_r8*rxt(k,501)*y(k,181))*y(k,228) & - + (.300_r8*rxt(k,361)*y(k,201) +.150_r8*rxt(k,362)*y(k,90) + & - rxt(k,363)*y(k,124))*y(k,232) + (rxt(k,37) +rxt(k,353)*y(k,126)) & - *y(k,49) + (.600_r8*rxt(k,61) +rxt(k,345))*y(k,141) & - + (.200_r8*rxt(k,387)*y(k,90) +rxt(k,388)*y(k,124))*y(k,217) & - +.130_r8*rxt(k,24)*y(k,10) +rxt(k,28)*y(k,14) +rxt(k,327)*y(k,126) & + prod(k,216) = (.100_r8*rxt(k,382)*y(k,105) +.280_r8*rxt(k,396)*y(k,111) + & + .080_r8*rxt(k,429)*y(k,99) +.060_r8*rxt(k,484)*y(k,6) + & + .060_r8*rxt(k,487)*y(k,110))*y(k,136) + (rxt(k,386)*y(k,201) + & + .450_r8*rxt(k,387)*y(k,90) +2.000_r8*rxt(k,388)*y(k,215) + & + rxt(k,389)*y(k,124) +rxt(k,390)*y(k,126))*y(k,215) & + + (.530_r8*rxt(k,376)*y(k,200) +.260_r8*rxt(k,377)*y(k,201) + & + .530_r8*rxt(k,379)*y(k,126) +.530_r8*rxt(k,380)*y(k,124))*y(k,213) & + + (rxt(k,332)*y(k,45) +.500_r8*rxt(k,339)*y(k,51) + & + rxt(k,358)*y(k,49) +.650_r8*rxt(k,505)*y(k,181))*y(k,228) & + + (.300_r8*rxt(k,365)*y(k,201) +.150_r8*rxt(k,366)*y(k,90) + & + rxt(k,367)*y(k,124))*y(k,232) + (rxt(k,37) +rxt(k,357)*y(k,126)) & + *y(k,49) + (.600_r8*rxt(k,61) +rxt(k,349))*y(k,141) & + + (.200_r8*rxt(k,391)*y(k,90) +rxt(k,392)*y(k,124))*y(k,217) & + +.130_r8*rxt(k,24)*y(k,10) +rxt(k,28)*y(k,14) +rxt(k,331)*y(k,126) & *y(k,45) +rxt(k,36)*y(k,48) +.330_r8*rxt(k,46)*y(k,94) +rxt(k,48) & *y(k,96) +1.340_r8*rxt(k,51)*y(k,105) +rxt(k,53)*y(k,107) +rxt(k,54) & *y(k,108) +.300_r8*rxt(k,56)*y(k,111) +rxt(k,58)*y(k,127) +rxt(k,64) & *y(k,149) +.500_r8*rxt(k,65)*y(k,176) +.650_r8*rxt(k,70)*y(k,181) - loss(k,238) = (rxt(k,221)* y(k,59) +rxt(k,300)* y(k,90) +rxt(k,301)* y(k,124) & - +rxt(k,320)* y(k,197) +rxt(k,348)* y(k,198) +rxt(k,331)* y(k,200) & - + 2._r8*(rxt(k,298) +rxt(k,299))* y(k,201) +rxt(k,406)* y(k,208) & - +rxt(k,411)* y(k,209) +rxt(k,420)* y(k,210) +rxt(k,373)* y(k,213) & - +rxt(k,382)* y(k,215) +rxt(k,485)* y(k,223) +rxt(k,361)* y(k,232) & - +rxt(k,490)* y(k,233) +rxt(k,495)* y(k,234) +rxt(k,431)* y(k,237) & + loss(k,238) = (rxt(k,225)* y(k,59) +rxt(k,304)* y(k,90) +rxt(k,305)* y(k,124) & + +rxt(k,324)* y(k,197) +rxt(k,352)* y(k,198) +rxt(k,335)* y(k,200) & + + 2._r8*(rxt(k,302) +rxt(k,303))* y(k,201) +rxt(k,410)* y(k,208) & + +rxt(k,415)* y(k,209) +rxt(k,424)* y(k,210) +rxt(k,377)* y(k,213) & + +rxt(k,386)* y(k,215) +rxt(k,489)* y(k,223) +rxt(k,365)* y(k,232) & + +rxt(k,494)* y(k,233) +rxt(k,499)* y(k,234) +rxt(k,435)* y(k,237) & + het_rates(k,201))* y(k,201) - prod(k,238) = (2.000_r8*rxt(k,330)*y(k,200) +.900_r8*rxt(k,331)*y(k,201) + & - .450_r8*rxt(k,332)*y(k,90) +rxt(k,333)*y(k,124) + & - rxt(k,372)*y(k,213) +rxt(k,381)*y(k,215) +rxt(k,405)*y(k,208) + & - rxt(k,410)*y(k,209) +rxt(k,419)*y(k,210) +rxt(k,430)*y(k,237)) & - *y(k,200) + (rxt(k,41) +rxt(k,215)*y(k,56) +rxt(k,271)*y(k,73) + & - rxt(k,304)*y(k,228) +rxt(k,310)*y(k,224))*y(k,54) & - + (.330_r8*rxt(k,450)*y(k,202) +.070_r8*rxt(k,456)*y(k,216))*y(k,90) & - + (.830_r8*rxt(k,451)*y(k,202) +.170_r8*rxt(k,457)*y(k,216)) & - *y(k,124) + (.280_r8*rxt(k,347)*y(k,29) +.050_r8*rxt(k,425)*y(k,99)) & - *y(k,136) + (.700_r8*rxt(k,303)*y(k,53) +rxt(k,334)*y(k,50))*y(k,228) & + prod(k,238) = (2.000_r8*rxt(k,334)*y(k,200) +.900_r8*rxt(k,335)*y(k,201) + & + .490_r8*rxt(k,336)*y(k,90) +rxt(k,337)*y(k,124) + & + rxt(k,376)*y(k,213) +rxt(k,385)*y(k,215) +rxt(k,409)*y(k,208) + & + rxt(k,414)*y(k,209) +rxt(k,423)*y(k,210) +rxt(k,434)*y(k,237)) & + *y(k,200) + (rxt(k,41) +rxt(k,219)*y(k,56) +rxt(k,275)*y(k,73) + & + rxt(k,308)*y(k,228) +rxt(k,314)*y(k,224))*y(k,54) & + + (.330_r8*rxt(k,454)*y(k,202) +.070_r8*rxt(k,460)*y(k,216))*y(k,90) & + + (.830_r8*rxt(k,455)*y(k,202) +.170_r8*rxt(k,461)*y(k,216)) & + *y(k,124) + (.280_r8*rxt(k,351)*y(k,29) +.050_r8*rxt(k,429)*y(k,99)) & + *y(k,136) + (.700_r8*rxt(k,307)*y(k,53) +rxt(k,338)*y(k,50))*y(k,228) & +rxt(k,88)*y(k,43) +rxt(k,35)*y(k,45) +rxt(k,90)*y(k,46) +rxt(k,36) & *y(k,48) +rxt(k,38)*y(k,51) +.300_r8*rxt(k,56)*y(k,111) & +.400_r8*rxt(k,61)*y(k,141) - loss(k,168) = (rxt(k,450)* y(k,90) +rxt(k,451)* y(k,124) +rxt(k,452) & + loss(k,168) = (rxt(k,454)* y(k,90) +rxt(k,455)* y(k,124) +rxt(k,456) & * y(k,125) + het_rates(k,202))* y(k,202) prod(k,168) =.600_r8*rxt(k,26)*y(k,12) - loss(k,178) = (rxt(k,581)* y(k,220) +rxt(k,579)* y(k,221) +rxt(k,580) & + loss(k,178) = (rxt(k,585)* y(k,220) +rxt(k,583)* y(k,221) +rxt(k,584) & * y(k,227) + het_rates(k,203))* y(k,203) prod(k,178) = (rxt(k,126) +rxt(k,127) +rxt(k,128) +rxt(k,129) +rxt(k,130) + & rxt(k,131) +rxt(k,132) +rxt(k,133))*y(k,135) + (rxt(k,120) + & rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) +rxt(k,125))*y(k,134) & +rxt(k,111)*y(k,112) +rxt(k,16)*y(k,124) - loss(k,146) = ((rxt(k,369) +rxt(k,370))* y(k,124) + het_rates(k,204)) & + loss(k,145) = ((rxt(k,373) +rxt(k,374))* y(k,124) + het_rates(k,204)) & * y(k,204) - prod(k,146) =rxt(k,368)*y(k,228)*y(k,16) - loss(k,129) = (rxt(k,339)* y(k,135) + rxt(k,338) + het_rates(k,205)) & + prod(k,145) =rxt(k,372)*y(k,228)*y(k,16) + loss(k,129) = (rxt(k,343)* y(k,135) + rxt(k,342) + het_rates(k,205)) & * y(k,205) - prod(k,129) =rxt(k,43)*y(k,72) +.750_r8*rxt(k,337)*y(k,206)*y(k,124) - loss(k,170) = (rxt(k,336)* y(k,90) +rxt(k,337)* y(k,124) + het_rates(k,206)) & + prod(k,129) =rxt(k,43)*y(k,72) +.750_r8*rxt(k,341)*y(k,206)*y(k,124) + loss(k,170) = (rxt(k,340)* y(k,90) +rxt(k,341)* y(k,124) + het_rates(k,206)) & * y(k,206) - prod(k,170) =rxt(k,343)*y(k,228)*y(k,25) - loss(k,126) = (rxt(k,307)* y(k,90) +rxt(k,309)* y(k,124) + rxt(k,308) & + prod(k,170) =rxt(k,347)*y(k,228)*y(k,25) + loss(k,126) = (rxt(k,311)* y(k,90) +rxt(k,313)* y(k,124) + rxt(k,312) & + het_rates(k,207))* y(k,207) - prod(k,126) =rxt(k,294)*y(k,90)*y(k,42) - loss(k,211) = (rxt(k,407)* y(k,90) +rxt(k,408)* y(k,124) +rxt(k,409) & - * y(k,126) +rxt(k,405)* y(k,200) +rxt(k,406)* y(k,201) & + prod(k,126) =rxt(k,298)*y(k,90)*y(k,42) + loss(k,211) = (rxt(k,411)* y(k,90) +rxt(k,412)* y(k,124) +rxt(k,413) & + * y(k,126) +rxt(k,409)* y(k,200) +rxt(k,410)* y(k,201) & + het_rates(k,208))* y(k,208) - prod(k,211) =.600_r8*rxt(k,426)*y(k,228)*y(k,99) - loss(k,212) = (rxt(k,412)* y(k,90) +rxt(k,414)* y(k,124) +rxt(k,415) & - * y(k,126) +rxt(k,410)* y(k,200) +rxt(k,411)* y(k,201) + rxt(k,413) & + prod(k,211) =.600_r8*rxt(k,430)*y(k,228)*y(k,99) + loss(k,212) = (rxt(k,416)* y(k,90) +rxt(k,418)* y(k,124) +rxt(k,419) & + * y(k,126) +rxt(k,414)* y(k,200) +rxt(k,415)* y(k,201) + rxt(k,417) & + het_rates(k,209))* y(k,209) - prod(k,212) =.400_r8*rxt(k,426)*y(k,228)*y(k,99) - loss(k,208) = (rxt(k,421)* y(k,90) +rxt(k,422)* y(k,124) +rxt(k,423) & - * y(k,126) +rxt(k,419)* y(k,200) +rxt(k,420)* y(k,201) & + prod(k,212) =.400_r8*rxt(k,430)*y(k,228)*y(k,99) + loss(k,208) = (rxt(k,425)* y(k,90) +rxt(k,426)* y(k,124) +rxt(k,427) & + * y(k,126) +rxt(k,423)* y(k,200) +rxt(k,424)* y(k,201) & + het_rates(k,210))* y(k,210) - prod(k,208) =rxt(k,418)*y(k,126)*y(k,99) - loss(k,48) = (rxt(k,543)* y(k,90) +rxt(k,544)* y(k,124) + het_rates(k,211)) & + prod(k,208) =rxt(k,422)*y(k,126)*y(k,99) + loss(k,48) = (rxt(k,547)* y(k,90) +rxt(k,548)* y(k,124) + het_rates(k,211)) & * y(k,211) - prod(k,48) =rxt(k,546)*y(k,228)*y(k,99) - loss(k,49) = (rxt(k,547)* y(k,90) +rxt(k,548)* y(k,124) + het_rates(k,212)) & + prod(k,48) =rxt(k,550)*y(k,228)*y(k,99) + loss(k,49) = (rxt(k,551)* y(k,90) +rxt(k,552)* y(k,124) + het_rates(k,212)) & * y(k,212) - prod(k,49) =rxt(k,549)*y(k,228)*y(k,104) - loss(k,213) = (rxt(k,374)* y(k,90) + (rxt(k,376) +rxt(k,377))* y(k,124) & - +rxt(k,375)* y(k,126) +rxt(k,372)* y(k,200) +rxt(k,373)* y(k,201) & + prod(k,49) =rxt(k,553)*y(k,228)*y(k,104) + loss(k,213) = (rxt(k,378)* y(k,90) + (rxt(k,380) +rxt(k,381))* y(k,124) & + +rxt(k,379)* y(k,126) +rxt(k,376)* y(k,200) +rxt(k,377)* y(k,201) & + het_rates(k,213))* y(k,213) - prod(k,213) = (.500_r8*rxt(k,379)*y(k,105) +.200_r8*rxt(k,380)*y(k,106) + & - rxt(k,393)*y(k,111))*y(k,228) - loss(k,165) = (rxt(k,453)* y(k,90) +rxt(k,454)* y(k,124) +rxt(k,455) & + prod(k,213) = (.500_r8*rxt(k,383)*y(k,105) +.200_r8*rxt(k,384)*y(k,106) + & + rxt(k,397)*y(k,111))*y(k,228) + loss(k,165) = (rxt(k,457)* y(k,90) +rxt(k,458)* y(k,124) +rxt(k,459) & * y(k,125) + het_rates(k,214))* y(k,214) prod(k,165) =.600_r8*rxt(k,25)*y(k,11) - loss(k,215) = (rxt(k,383)* y(k,90) +rxt(k,385)* y(k,124) +rxt(k,394) & - * y(k,125) +rxt(k,386)* y(k,126) +rxt(k,381)* y(k,200) +rxt(k,382) & - * y(k,201) + 2._r8*rxt(k,384)* y(k,215) + het_rates(k,215))* y(k,215) - prod(k,215) = (.660_r8*rxt(k,51) +.500_r8*rxt(k,379)*y(k,228))*y(k,105) & - + (rxt(k,55) +rxt(k,395))*y(k,109) +.500_r8*rxt(k,380)*y(k,228) & + loss(k,215) = (rxt(k,387)* y(k,90) +rxt(k,389)* y(k,124) +rxt(k,398) & + * y(k,125) +rxt(k,390)* y(k,126) +rxt(k,385)* y(k,200) +rxt(k,386) & + * y(k,201) + 2._r8*rxt(k,388)* y(k,215) + het_rates(k,215))* y(k,215) + prod(k,215) = (.660_r8*rxt(k,51) +.500_r8*rxt(k,383)*y(k,228))*y(k,105) & + + (rxt(k,55) +rxt(k,399))*y(k,109) +.500_r8*rxt(k,384)*y(k,228) & *y(k,106) - loss(k,182) = (rxt(k,456)* y(k,90) +rxt(k,457)* y(k,124) +rxt(k,458) & + loss(k,182) = (rxt(k,460)* y(k,90) +rxt(k,461)* y(k,124) +rxt(k,462) & * y(k,125) + het_rates(k,216))* y(k,216) prod(k,182) =.600_r8*rxt(k,27)*y(k,13) - loss(k,160) = (rxt(k,387)* y(k,90) +rxt(k,388)* y(k,124) + het_rates(k,217)) & + loss(k,160) = (rxt(k,391)* y(k,90) +rxt(k,392)* y(k,124) + het_rates(k,217)) & * y(k,217) - prod(k,160) = (rxt(k,389)*y(k,107) +rxt(k,390)*y(k,108))*y(k,228) - loss(k,51) = (rxt(k,551)* y(k,90) +rxt(k,552)* y(k,124) + het_rates(k,218)) & + prod(k,160) = (rxt(k,393)*y(k,107) +rxt(k,394)*y(k,108))*y(k,228) + loss(k,51) = (rxt(k,555)* y(k,90) +rxt(k,556)* y(k,124) + het_rates(k,218)) & * y(k,218) - prod(k,51) =rxt(k,554)*y(k,228)*y(k,110) - loss(k,140) = (rxt(k,188)* y(k,134) +rxt(k,189)* y(k,135) + het_rates(k,219)) & + prod(k,51) =rxt(k,558)*y(k,228)*y(k,110) + loss(k,155) = (rxt(k,190)* y(k,124) +rxt(k,191)* y(k,134) +rxt(k,215) & + * y(k,135) +rxt(k,214)* y(k,203) + rxt(k,188) + het_rates(k,219)) & * y(k,219) - prod(k,140) = (.800_r8*rxt(k,579)*y(k,221) +.900_r8*rxt(k,581)*y(k,220)) & - *y(k,203) +rxt(k,583)*y(k,220)*y(k,134) - loss(k,158) = ((rxt(k,583) +rxt(k,584))* y(k,134) +rxt(k,582)* y(k,135) & - +rxt(k,581)* y(k,203) + het_rates(k,220))* y(k,220) - prod(k,158) = 0._r8 - loss(k,176) = (rxt(k,579)* y(k,203) + het_rates(k,221))* y(k,221) - prod(k,176) = (rxt(k,589) +rxt(k,588)*y(k,112) +rxt(k,590)*y(k,124))*y(k,227) & - +rxt(k,16)*y(k,124) +rxt(k,583)*y(k,220)*y(k,134) & - +rxt(k,587)*y(k,222)*y(k,135) +rxt(k,592)*y(k,229) - loss(k,136) = (rxt(k,585)* y(k,134) + (rxt(k,586) +rxt(k,587))* y(k,135) & + prod(k,155) = (.800_r8*rxt(k,583)*y(k,221) +.900_r8*rxt(k,585)*y(k,220)) & + *y(k,203) +rxt(k,587)*y(k,220)*y(k,134) + loss(k,152) = ((rxt(k,587) +rxt(k,588))* y(k,134) +rxt(k,586)* y(k,135) & + +rxt(k,585)* y(k,203) + het_rates(k,220))* y(k,220) + prod(k,152) = 0._r8 + loss(k,176) = (rxt(k,583)* y(k,203) + het_rates(k,221))* y(k,221) + prod(k,176) = (rxt(k,593) +rxt(k,592)*y(k,112) +rxt(k,594)*y(k,124))*y(k,227) & + +rxt(k,16)*y(k,124) +rxt(k,587)*y(k,220)*y(k,134) & + +rxt(k,591)*y(k,222)*y(k,135) +rxt(k,596)*y(k,229) + loss(k,136) = (rxt(k,589)* y(k,134) + (rxt(k,590) +rxt(k,591))* y(k,135) & + het_rates(k,222))* y(k,222) prod(k,136) =rxt(k,111)*y(k,112) - loss(k,197) = (rxt(k,486)* y(k,90) +rxt(k,487)* y(k,124) +rxt(k,488) & - * y(k,126) +rxt(k,485)* y(k,201) + het_rates(k,223))* y(k,223) - prod(k,197) = (rxt(k,479)*y(k,6) +rxt(k,482)*y(k,110) + & - .500_r8*rxt(k,499)*y(k,180))*y(k,126) +rxt(k,489)*y(k,228)*y(k,128) - loss(k,230) = (rxt(k,239)* y(k,33) +rxt(k,240)* y(k,34) +rxt(k,266)* y(k,35) & - +rxt(k,241)* y(k,36) +rxt(k,242)* y(k,37) +rxt(k,243)* y(k,38) & - +rxt(k,244)* y(k,39) +rxt(k,245)* y(k,40) +rxt(k,289)* y(k,41) & - +rxt(k,290)* y(k,43) + (rxt(k,310) +rxt(k,311) +rxt(k,312))* y(k,54) & - +rxt(k,267)* y(k,55) +rxt(k,275)* y(k,64) +rxt(k,276)* y(k,65) & - +rxt(k,153)* y(k,77) +rxt(k,268)* y(k,78) + (rxt(k,269) +rxt(k,270)) & - * y(k,81) +rxt(k,291)* y(k,82) +rxt(k,292)* y(k,83) +rxt(k,293) & - * y(k,84) + (rxt(k,246) +rxt(k,247))* y(k,85) +rxt(k,313)* y(k,86) & - + (rxt(k,206) +rxt(k,207))* y(k,113) + (rxt(k,156) +rxt(k,157)) & - * y(k,135) +rxt(k,158)* y(k,136) +rxt(k,154)* y(k,241) + rxt(k,155) & - + het_rates(k,224))* y(k,224) - prod(k,230) = (rxt(k,6) +rxt(k,189)*y(k,219))*y(k,135) +rxt(k,12)*y(k,113) & - +rxt(k,7)*y(k,136) +.850_r8*rxt(k,580)*y(k,227)*y(k,203) +rxt(k,1) & + loss(k,197) = (rxt(k,490)* y(k,90) +rxt(k,491)* y(k,124) +rxt(k,492) & + * y(k,126) +rxt(k,489)* y(k,201) + het_rates(k,223))* y(k,223) + prod(k,197) = (rxt(k,483)*y(k,6) +rxt(k,486)*y(k,110) + & + .500_r8*rxt(k,503)*y(k,180))*y(k,126) +rxt(k,493)*y(k,228)*y(k,128) + loss(k,225) = (rxt(k,243)* y(k,33) +rxt(k,244)* y(k,34) +rxt(k,270)* y(k,35) & + +rxt(k,245)* y(k,36) +rxt(k,246)* y(k,37) +rxt(k,247)* y(k,38) & + +rxt(k,248)* y(k,39) +rxt(k,249)* y(k,40) +rxt(k,293)* y(k,41) & + +rxt(k,294)* y(k,43) + (rxt(k,314) +rxt(k,315) +rxt(k,316))* y(k,54) & + +rxt(k,271)* y(k,55) +rxt(k,279)* y(k,64) +rxt(k,280)* y(k,65) & + +rxt(k,153)* y(k,77) +rxt(k,272)* y(k,78) + (rxt(k,273) +rxt(k,274)) & + * y(k,81) +rxt(k,295)* y(k,82) +rxt(k,296)* y(k,83) +rxt(k,297) & + * y(k,84) + (rxt(k,250) +rxt(k,251))* y(k,85) +rxt(k,317)* y(k,86) & + + (rxt(k,207) +rxt(k,208))* y(k,113) + (rxt(k,156) +rxt(k,157)) & + * y(k,135) + (rxt(k,158) +rxt(k,159))* y(k,136) +rxt(k,154)* y(k,241) & + + rxt(k,155) + het_rates(k,224))* y(k,224) + prod(k,225) = (rxt(k,6) +rxt(k,215)*y(k,219))*y(k,135) +rxt(k,12)*y(k,113) & + +rxt(k,7)*y(k,136) +.850_r8*rxt(k,584)*y(k,227)*y(k,203) +rxt(k,1) & *y(k,241) - loss(k,75) = (rxt(k,160)* y(k,134) +rxt(k,161)* y(k,135) + rxt(k,151) & - + rxt(k,159) + het_rates(k,225))* y(k,225) - prod(k,75) = (rxt(k,163) +rxt(k,162)*y(k,63) +rxt(k,164)*y(k,134) + & - rxt(k,165)*y(k,135) +rxt(k,166)*y(k,136))*y(k,226) +rxt(k,7)*y(k,136) - loss(k,76) = (rxt(k,162)* y(k,63) +rxt(k,164)* y(k,134) +rxt(k,165)* y(k,135) & - +rxt(k,166)* y(k,136) + rxt(k,152) + rxt(k,163) + het_rates(k,226)) & + loss(k,75) = (rxt(k,161)* y(k,134) +rxt(k,162)* y(k,135) + rxt(k,151) & + + rxt(k,160) + het_rates(k,225))* y(k,225) + prod(k,75) = (rxt(k,164) +rxt(k,163)*y(k,63) +rxt(k,165)*y(k,134) + & + rxt(k,166)*y(k,135) +rxt(k,167)*y(k,136))*y(k,226) +rxt(k,7)*y(k,136) + loss(k,76) = (rxt(k,163)* y(k,63) +rxt(k,165)* y(k,134) +rxt(k,166)* y(k,135) & + +rxt(k,167)* y(k,136) + rxt(k,152) + rxt(k,164) + het_rates(k,226)) & * y(k,226) prod(k,76) =rxt(k,156)*y(k,224)*y(k,135) - loss(k,177) = (rxt(k,588)* y(k,112) +rxt(k,590)* y(k,124) +rxt(k,580) & - * y(k,203) + rxt(k,589) + het_rates(k,227))* y(k,227) - prod(k,177) = (rxt(k,126) +rxt(k,130) +rxt(k,582)*y(k,220) + & - rxt(k,586)*y(k,222) +rxt(k,593)*y(k,229))*y(k,135) & - +rxt(k,591)*y(k,229)*y(k,63) - loss(k,226) = (rxt(k,396)* y(k,1) +rxt(k,400)* y(k,2) +rxt(k,481)* y(k,6) & - +rxt(k,438)* y(k,7) +rxt(k,441)* y(k,8) +rxt(k,401)* y(k,15) & - +rxt(k,368)* y(k,16) +rxt(k,262)* y(k,19) +rxt(k,442)* y(k,22) & - +rxt(k,444)* y(k,23) +rxt(k,316)* y(k,24) +rxt(k,343)* y(k,25) & - +rxt(k,323)* y(k,26) +rxt(k,324)* y(k,27) +rxt(k,326)* y(k,28) & - +rxt(k,365)* y(k,29) +rxt(k,351)* y(k,30) +rxt(k,352)* y(k,31) & - +rxt(k,448)* y(k,32) +rxt(k,278)* y(k,41) +rxt(k,297)* y(k,42) & - +rxt(k,280)* y(k,43) +rxt(k,281)* y(k,44) +rxt(k,328)* y(k,45) & - +rxt(k,283)* y(k,46) +rxt(k,329)* y(k,47) +rxt(k,366)* y(k,48) & - +rxt(k,354)* y(k,49) +rxt(k,334)* y(k,50) +rxt(k,335)* y(k,51) & - +rxt(k,302)* y(k,52) +rxt(k,303)* y(k,53) +rxt(k,304)* y(k,54) & - +rxt(k,285)* y(k,55) + (rxt(k,232) +rxt(k,233))* y(k,59) +rxt(k,230) & - * y(k,60) +rxt(k,314)* y(k,62) +rxt(k,449)* y(k,66) + (rxt(k,503) + & - rxt(k,517))* y(k,67) +rxt(k,340)* y(k,74) +rxt(k,341)* y(k,75) & - +rxt(k,179)* y(k,77) +rxt(k,180)* y(k,79) +rxt(k,264)* y(k,81) & - +rxt(k,286)* y(k,82) +rxt(k,287)* y(k,83) +rxt(k,288)* y(k,84) & - +rxt(k,235)* y(k,85) +rxt(k,305)* y(k,86) +rxt(k,306)* y(k,87) & - +rxt(k,211)* y(k,89) +rxt(k,181)* y(k,90) +rxt(k,187)* y(k,91) & - +rxt(k,238)* y(k,93) +rxt(k,371)* y(k,94) +rxt(k,402)* y(k,95) & - +rxt(k,356)* y(k,96) +rxt(k,403)* y(k,97) +rxt(k,404)* y(k,98) & - +rxt(k,426)* y(k,99) +rxt(k,416)* y(k,100) +rxt(k,417)* y(k,101) & - +rxt(k,424)* y(k,102) +rxt(k,427)* y(k,103) +rxt(k,379)* y(k,105) & - +rxt(k,380)* y(k,106) +rxt(k,389)* y(k,107) +rxt(k,390)* y(k,108) & - +rxt(k,391)* y(k,109) +rxt(k,484)* y(k,110) +rxt(k,393)* y(k,111) & - +rxt(k,202)* y(k,112) +rxt(k,428)* y(k,115) +rxt(k,429)* y(k,116) & - +rxt(k,519)* y(k,120) +rxt(k,210)* y(k,125) +rxt(k,201)* y(k,126) & - +rxt(k,357)* y(k,127) +rxt(k,489)* y(k,128) +rxt(k,182)* y(k,134) & - +rxt(k,183)* y(k,136) +rxt(k,505)* y(k,139) +rxt(k,342)* y(k,141) & - +rxt(k,461)* y(k,144) +rxt(k,464)* y(k,145) +rxt(k,360)* y(k,148) & - +rxt(k,364)* y(k,149) +rxt(k,511)* y(k,150) +rxt(k,516)* y(k,152) & - +rxt(k,507)* y(k,153) +rxt(k,493)* y(k,177) +rxt(k,494)* y(k,178) & - +rxt(k,498)* y(k,179) +rxt(k,500)* y(k,180) +rxt(k,501)* y(k,181) & - +rxt(k,468)* y(k,182) +rxt(k,469)* y(k,183) +rxt(k,435)* y(k,184) & - +rxt(k,471)* y(k,185) +rxt(k,474)* y(k,186) +rxt(k,477)* y(k,187) & - +rxt(k,478)* y(k,188) + 2._r8*(rxt(k,184) +rxt(k,185))* y(k,228) & + loss(k,177) = (rxt(k,592)* y(k,112) +rxt(k,594)* y(k,124) +rxt(k,584) & + * y(k,203) + rxt(k,593) + het_rates(k,227))* y(k,227) + prod(k,177) = (rxt(k,126) +rxt(k,130) +rxt(k,586)*y(k,220) + & + rxt(k,590)*y(k,222) +rxt(k,597)*y(k,229))*y(k,135) & + +rxt(k,595)*y(k,229)*y(k,63) + loss(k,226) = (rxt(k,400)* y(k,1) +rxt(k,404)* y(k,2) +rxt(k,485)* y(k,6) & + +rxt(k,442)* y(k,7) +rxt(k,445)* y(k,8) +rxt(k,405)* y(k,15) & + +rxt(k,372)* y(k,16) +rxt(k,266)* y(k,19) +rxt(k,446)* y(k,22) & + +rxt(k,448)* y(k,23) +rxt(k,320)* y(k,24) +rxt(k,347)* y(k,25) & + +rxt(k,327)* y(k,26) +rxt(k,328)* y(k,27) +rxt(k,330)* y(k,28) & + +rxt(k,369)* y(k,29) +rxt(k,355)* y(k,30) +rxt(k,356)* y(k,31) & + +rxt(k,452)* y(k,32) +rxt(k,282)* y(k,41) +rxt(k,301)* y(k,42) & + +rxt(k,284)* y(k,43) +rxt(k,285)* y(k,44) +rxt(k,332)* y(k,45) & + +rxt(k,287)* y(k,46) +rxt(k,333)* y(k,47) +rxt(k,370)* y(k,48) & + +rxt(k,358)* y(k,49) +rxt(k,338)* y(k,50) +rxt(k,339)* y(k,51) & + +rxt(k,306)* y(k,52) +rxt(k,307)* y(k,53) +rxt(k,308)* y(k,54) & + +rxt(k,289)* y(k,55) + (rxt(k,236) +rxt(k,237))* y(k,59) +rxt(k,234) & + * y(k,60) +rxt(k,318)* y(k,62) +rxt(k,453)* y(k,66) + (rxt(k,507) + & + rxt(k,521))* y(k,67) +rxt(k,344)* y(k,74) +rxt(k,345)* y(k,75) & + +rxt(k,180)* y(k,77) +rxt(k,181)* y(k,79) +rxt(k,268)* y(k,81) & + +rxt(k,290)* y(k,82) +rxt(k,291)* y(k,83) +rxt(k,292)* y(k,84) & + +rxt(k,239)* y(k,85) +rxt(k,309)* y(k,86) +rxt(k,310)* y(k,87) & + +rxt(k,212)* y(k,89) +rxt(k,182)* y(k,90) +rxt(k,189)* y(k,91) & + +rxt(k,242)* y(k,93) +rxt(k,375)* y(k,94) +rxt(k,406)* y(k,95) & + +rxt(k,360)* y(k,96) +rxt(k,407)* y(k,97) +rxt(k,408)* y(k,98) & + +rxt(k,430)* y(k,99) +rxt(k,420)* y(k,100) +rxt(k,421)* y(k,101) & + +rxt(k,428)* y(k,102) +rxt(k,431)* y(k,103) +rxt(k,383)* y(k,105) & + +rxt(k,384)* y(k,106) +rxt(k,393)* y(k,107) +rxt(k,394)* y(k,108) & + +rxt(k,395)* y(k,109) +rxt(k,488)* y(k,110) +rxt(k,397)* y(k,111) & + +rxt(k,203)* y(k,112) +rxt(k,432)* y(k,115) +rxt(k,433)* y(k,116) & + +rxt(k,523)* y(k,120) +rxt(k,211)* y(k,125) +rxt(k,202)* y(k,126) & + +rxt(k,361)* y(k,127) +rxt(k,493)* y(k,128) +rxt(k,183)* y(k,134) & + +rxt(k,184)* y(k,136) +rxt(k,509)* y(k,139) +rxt(k,346)* y(k,141) & + +rxt(k,465)* y(k,144) +rxt(k,468)* y(k,145) +rxt(k,364)* y(k,148) & + +rxt(k,368)* y(k,149) +rxt(k,515)* y(k,150) +rxt(k,520)* y(k,152) & + +rxt(k,511)* y(k,153) +rxt(k,497)* y(k,177) +rxt(k,498)* y(k,178) & + +rxt(k,502)* y(k,179) +rxt(k,504)* y(k,180) +rxt(k,505)* y(k,181) & + +rxt(k,472)* y(k,182) +rxt(k,473)* y(k,183) +rxt(k,439)* y(k,184) & + +rxt(k,475)* y(k,185) +rxt(k,478)* y(k,186) +rxt(k,481)* y(k,187) & + +rxt(k,482)* y(k,188) + 2._r8*(rxt(k,185) +rxt(k,186))* y(k,228) & + het_rates(k,228))* y(k,228) - prod(k,226) = (2.000_r8*rxt(k,173)*y(k,76) +rxt(k,176)*y(k,134) + & - rxt(k,177)*y(k,136) +rxt(k,198)*y(k,126) +rxt(k,203)*y(k,124) + & - rxt(k,219)*y(k,56) +.450_r8*rxt(k,332)*y(k,200) + & - .150_r8*rxt(k,362)*y(k,232) +.450_r8*rxt(k,383)*y(k,215) + & - .200_r8*rxt(k,387)*y(k,217) +.400_r8*rxt(k,436)*y(k,191) + & - .400_r8*rxt(k,450)*y(k,202) +.400_r8*rxt(k,456)*y(k,216))*y(k,90) & - + (rxt(k,178)*y(k,76) +.130_r8*rxt(k,318)*y(k,25) + & - .360_r8*rxt(k,347)*y(k,29) +.240_r8*rxt(k,378)*y(k,105) + & - .360_r8*rxt(k,392)*y(k,111) +.320_r8*rxt(k,425)*y(k,99) + & - .630_r8*rxt(k,480)*y(k,6) +.630_r8*rxt(k,483)*y(k,110))*y(k,136) & - + (rxt(k,170)*y(k,77) +rxt(k,171)*y(k,79) +rxt(k,234)*y(k,85) + & - rxt(k,237)*y(k,93) +rxt(k,263)*y(k,81) +rxt(k,265)*y(k,92) + & - rxt(k,296)*y(k,42))*y(k,134) + (.300_r8*rxt(k,303)*y(k,53) + & - .650_r8*rxt(k,316)*y(k,24) +.500_r8*rxt(k,324)*y(k,27) + & - .500_r8*rxt(k,360)*y(k,148) +.100_r8*rxt(k,380)*y(k,106) + & - .600_r8*rxt(k,427)*y(k,103) +.500_r8*rxt(k,435)*y(k,184))*y(k,228) & + prod(k,226) = (2.000_r8*rxt(k,174)*y(k,76) +rxt(k,177)*y(k,134) + & + rxt(k,178)*y(k,136) +rxt(k,199)*y(k,126) +rxt(k,204)*y(k,124) + & + rxt(k,223)*y(k,56) +.490_r8*rxt(k,336)*y(k,200) + & + .150_r8*rxt(k,366)*y(k,232) +.450_r8*rxt(k,387)*y(k,215) + & + .200_r8*rxt(k,391)*y(k,217) +.400_r8*rxt(k,440)*y(k,191) + & + .400_r8*rxt(k,454)*y(k,202) +.400_r8*rxt(k,460)*y(k,216))*y(k,90) & + + (rxt(k,179)*y(k,76) +.130_r8*rxt(k,322)*y(k,25) + & + .360_r8*rxt(k,351)*y(k,29) +.240_r8*rxt(k,382)*y(k,105) + & + .360_r8*rxt(k,396)*y(k,111) +.320_r8*rxt(k,429)*y(k,99) + & + .630_r8*rxt(k,484)*y(k,6) +.630_r8*rxt(k,487)*y(k,110))*y(k,136) & + + (rxt(k,171)*y(k,77) +rxt(k,172)*y(k,79) +rxt(k,238)*y(k,85) + & + rxt(k,241)*y(k,93) +rxt(k,267)*y(k,81) +rxt(k,269)*y(k,92) + & + rxt(k,300)*y(k,42))*y(k,134) + (.300_r8*rxt(k,307)*y(k,53) + & + .650_r8*rxt(k,320)*y(k,24) +.500_r8*rxt(k,328)*y(k,27) + & + .500_r8*rxt(k,364)*y(k,148) +.100_r8*rxt(k,384)*y(k,106) + & + .600_r8*rxt(k,431)*y(k,103) +.500_r8*rxt(k,439)*y(k,184))*y(k,228) & + (rxt(k,153)*y(k,77) +2.000_r8*rxt(k,154)*y(k,241) + & - rxt(k,246)*y(k,85) +rxt(k,269)*y(k,81) +rxt(k,310)*y(k,54) + & - rxt(k,313)*y(k,86))*y(k,224) + (rxt(k,3) +rxt(k,273)*y(k,73)) & + rxt(k,250)*y(k,85) +rxt(k,273)*y(k,81) +rxt(k,314)*y(k,54) + & + rxt(k,317)*y(k,86))*y(k,224) + (rxt(k,3) +rxt(k,277)*y(k,73)) & *y(k,241) +rxt(k,21)*y(k,2) +rxt(k,22)*y(k,8) +rxt(k,29)*y(k,23) & +rxt(k,30)*y(k,27) +rxt(k,31)*y(k,30) +rxt(k,32)*y(k,32) +rxt(k,38) & *y(k,51) +rxt(k,39)*y(k,53) +.330_r8*rxt(k,40)*y(k,54) +rxt(k,43) & *y(k,72) +2.000_r8*rxt(k,4)*y(k,79) +rxt(k,9)*y(k,89) +rxt(k,10) & *y(k,91) +rxt(k,106)*y(k,92) +rxt(k,107)*y(k,93) +rxt(k,47)*y(k,95) & - +rxt(k,50)*y(k,103) +rxt(k,54)*y(k,108) +.500_r8*rxt(k,529)*y(k,125) & + +rxt(k,50)*y(k,103) +rxt(k,54)*y(k,108) +.500_r8*rxt(k,533)*y(k,125) & +rxt(k,59)*y(k,128) +rxt(k,62)*y(k,145) +rxt(k,63)*y(k,148) & +rxt(k,64)*y(k,149) +rxt(k,66)*y(k,177) +rxt(k,68)*y(k,179) & +rxt(k,71)*y(k,182) +rxt(k,72)*y(k,184) +rxt(k,73)*y(k,186) & +rxt(k,74)*y(k,188) - loss(k,171) = (rxt(k,591)* y(k,63) +rxt(k,593)* y(k,135) + rxt(k,592) & + loss(k,171) = (rxt(k,595)* y(k,63) +rxt(k,597)* y(k,135) + rxt(k,596) & + het_rates(k,229))* y(k,229) prod(k,171) = (rxt(k,120) +rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) + & - rxt(k,125) +rxt(k,584)*y(k,220) +rxt(k,585)*y(k,222))*y(k,134) & + rxt(k,125) +rxt(k,588)*y(k,220) +rxt(k,589)*y(k,222))*y(k,134) & + (rxt(k,127) +rxt(k,128) +rxt(k,129) +rxt(k,131) +rxt(k,132) + & rxt(k,133))*y(k,135) - loss(k,127) = (rxt(k,459)* y(k,90) +rxt(k,460)* y(k,124) + het_rates(k,230)) & + loss(k,127) = (rxt(k,463)* y(k,90) +rxt(k,464)* y(k,124) + het_rates(k,230)) & * y(k,230) - prod(k,127) = (.200_r8*rxt(k,449)*y(k,66) +.140_r8*rxt(k,461)*y(k,144) + & - rxt(k,464)*y(k,145))*y(k,228) - loss(k,172) = (rxt(k,358)* y(k,90) +rxt(k,359)* y(k,124) + het_rates(k,231)) & + prod(k,127) = (.200_r8*rxt(k,453)*y(k,66) +.140_r8*rxt(k,465)*y(k,144) + & + rxt(k,468)*y(k,145))*y(k,228) + loss(k,172) = (rxt(k,362)* y(k,90) +rxt(k,363)* y(k,124) + het_rates(k,231)) & * y(k,231) - prod(k,172) = (.500_r8*rxt(k,360)*y(k,148) +rxt(k,365)*y(k,29))*y(k,228) - loss(k,206) = (rxt(k,362)* y(k,90) +rxt(k,363)* y(k,124) +rxt(k,361) & + prod(k,172) = (.500_r8*rxt(k,364)*y(k,148) +rxt(k,369)*y(k,29))*y(k,228) + loss(k,206) = (rxt(k,366)* y(k,90) +rxt(k,367)* y(k,124) +rxt(k,365) & * y(k,201) + het_rates(k,232))* y(k,232) - prod(k,206) = (rxt(k,364)*y(k,149) +rxt(k,366)*y(k,48) + & - .150_r8*rxt(k,501)*y(k,181))*y(k,228) + (.060_r8*rxt(k,480)*y(k,6) + & - .060_r8*rxt(k,483)*y(k,110))*y(k,136) +.150_r8*rxt(k,70)*y(k,181) - loss(k,203) = (rxt(k,491)* y(k,90) +rxt(k,492)* y(k,124) +rxt(k,490) & + prod(k,206) = (rxt(k,368)*y(k,149) +rxt(k,370)*y(k,48) + & + .150_r8*rxt(k,505)*y(k,181))*y(k,228) + (.060_r8*rxt(k,484)*y(k,6) + & + .060_r8*rxt(k,487)*y(k,110))*y(k,136) +.150_r8*rxt(k,70)*y(k,181) + loss(k,203) = (rxt(k,495)* y(k,90) +rxt(k,496)* y(k,124) +rxt(k,494) & * y(k,201) + het_rates(k,233))* y(k,233) - prod(k,203) = (.500_r8*rxt(k,499)*y(k,126) +rxt(k,500)*y(k,228))*y(k,180) & - +rxt(k,493)*y(k,228)*y(k,177) - loss(k,193) = (rxt(k,496)* y(k,90) +rxt(k,497)* y(k,124) +rxt(k,495) & + prod(k,203) = (.500_r8*rxt(k,503)*y(k,126) +rxt(k,504)*y(k,228))*y(k,180) & + +rxt(k,497)*y(k,228)*y(k,177) + loss(k,193) = (rxt(k,500)* y(k,90) +rxt(k,501)* y(k,124) +rxt(k,499) & * y(k,201) + het_rates(k,234))* y(k,234) - prod(k,193) = (rxt(k,481)*y(k,6) +rxt(k,484)*y(k,110) +rxt(k,498)*y(k,179)) & + prod(k,193) = (rxt(k,485)*y(k,6) +rxt(k,488)*y(k,110) +rxt(k,502)*y(k,179)) & *y(k,228) - loss(k,166) = (rxt(k,466)* y(k,90) +rxt(k,467)* y(k,124) + het_rates(k,235)) & + loss(k,166) = (rxt(k,470)* y(k,90) +rxt(k,471)* y(k,124) + het_rates(k,235)) & * y(k,235) - prod(k,166) = (rxt(k,468)*y(k,182) +.650_r8*rxt(k,469)*y(k,183))*y(k,228) - loss(k,52) = (rxt(k,557)* y(k,90) +rxt(k,558)* y(k,124) + het_rates(k,236)) & + prod(k,166) = (rxt(k,472)*y(k,182) +.650_r8*rxt(k,473)*y(k,183))*y(k,228) + loss(k,52) = (rxt(k,561)* y(k,90) +rxt(k,562)* y(k,124) + het_rates(k,236)) & * y(k,236) - prod(k,52) =rxt(k,556)*y(k,228)*y(k,183) - loss(k,207) = (rxt(k,432)* y(k,90) +rxt(k,433)* y(k,124) +rxt(k,434) & - * y(k,126) +rxt(k,430)* y(k,200) +rxt(k,431)* y(k,201) & + prod(k,52) =rxt(k,560)*y(k,228)*y(k,183) + loss(k,207) = (rxt(k,436)* y(k,90) +rxt(k,437)* y(k,124) +rxt(k,438) & + * y(k,126) +rxt(k,434)* y(k,200) +rxt(k,435)* y(k,201) & + het_rates(k,237))* y(k,237) - prod(k,207) = (rxt(k,402)*y(k,95) +rxt(k,403)*y(k,97) +rxt(k,404)*y(k,98) + & - .400_r8*rxt(k,427)*y(k,103) +.500_r8*rxt(k,435)*y(k,184))*y(k,228) - loss(k,167) = (rxt(k,472)* y(k,90) +rxt(k,473)* y(k,124) + het_rates(k,238)) & + prod(k,207) = (rxt(k,406)*y(k,95) +rxt(k,407)*y(k,97) +rxt(k,408)*y(k,98) + & + .400_r8*rxt(k,431)*y(k,103) +.500_r8*rxt(k,439)*y(k,184))*y(k,228) + loss(k,167) = (rxt(k,476)* y(k,90) +rxt(k,477)* y(k,124) + het_rates(k,238)) & * y(k,238) - prod(k,167) = (.560_r8*rxt(k,471)*y(k,185) +rxt(k,474)*y(k,186))*y(k,228) - loss(k,53) = (rxt(k,560)* y(k,90) +rxt(k,561)* y(k,124) + het_rates(k,239)) & + prod(k,167) = (.560_r8*rxt(k,475)*y(k,185) +rxt(k,478)*y(k,186))*y(k,228) + loss(k,53) = (rxt(k,564)* y(k,90) +rxt(k,565)* y(k,124) + het_rates(k,239)) & * y(k,239) - prod(k,53) =rxt(k,559)*y(k,228)*y(k,185) - loss(k,137) = (rxt(k,475)* y(k,90) +rxt(k,476)* y(k,124) + het_rates(k,240)) & + prod(k,53) =rxt(k,563)*y(k,228)*y(k,185) + loss(k,137) = (rxt(k,479)* y(k,90) +rxt(k,480)* y(k,124) + het_rates(k,240)) & * y(k,240) - prod(k,137) = (.300_r8*rxt(k,477)*y(k,187) +rxt(k,478)*y(k,188))*y(k,228) - loss(k,239) = (rxt(k,273)* y(k,73) +rxt(k,518)* y(k,154) +rxt(k,154) & + prod(k,137) = (.300_r8*rxt(k,481)*y(k,187) +rxt(k,482)*y(k,188))*y(k,228) + loss(k,239) = (rxt(k,277)* y(k,73) +rxt(k,522)* y(k,154) +rxt(k,154) & * y(k,224) + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,241)) & * y(k,241) - prod(k,239) = (rxt(k,179)*y(k,77) +rxt(k,180)*y(k,79) +rxt(k,181)*y(k,90) + & - rxt(k,184)*y(k,228) +rxt(k,187)*y(k,91) +rxt(k,211)*y(k,89) + & - rxt(k,235)*y(k,85) +rxt(k,238)*y(k,93) +rxt(k,264)*y(k,81) + & - rxt(k,278)*y(k,41) +rxt(k,280)*y(k,43) +rxt(k,281)*y(k,44) + & - rxt(k,283)*y(k,46) +rxt(k,288)*y(k,84) +rxt(k,297)*y(k,42) + & - rxt(k,303)*y(k,53) +rxt(k,304)*y(k,54) +rxt(k,306)*y(k,87) + & - rxt(k,326)*y(k,28) +rxt(k,328)*y(k,45) +rxt(k,334)*y(k,50) + & - rxt(k,335)*y(k,51) +rxt(k,351)*y(k,30) +rxt(k,352)*y(k,31) + & - rxt(k,354)*y(k,49) +rxt(k,360)*y(k,148) +rxt(k,364)*y(k,149) + & - rxt(k,366)*y(k,48) +.500_r8*rxt(k,379)*y(k,105) +rxt(k,519)*y(k,120)) & - *y(k,228) + (rxt(k,563)*y(k,93) +rxt(k,569)*y(k,93) + & - rxt(k,570)*y(k,92) +rxt(k,574)*y(k,93) +rxt(k,575)*y(k,92))*y(k,85) & - + (rxt(k,521) +rxt(k,174)*y(k,76))*y(k,90) +.050_r8*rxt(k,40) & + prod(k,239) = (rxt(k,180)*y(k,77) +rxt(k,181)*y(k,79) +rxt(k,182)*y(k,90) + & + rxt(k,185)*y(k,228) +rxt(k,189)*y(k,91) +rxt(k,212)*y(k,89) + & + rxt(k,239)*y(k,85) +rxt(k,242)*y(k,93) +rxt(k,268)*y(k,81) + & + rxt(k,282)*y(k,41) +rxt(k,284)*y(k,43) +rxt(k,285)*y(k,44) + & + rxt(k,287)*y(k,46) +rxt(k,292)*y(k,84) +rxt(k,301)*y(k,42) + & + rxt(k,307)*y(k,53) +rxt(k,308)*y(k,54) +rxt(k,310)*y(k,87) + & + rxt(k,330)*y(k,28) +rxt(k,332)*y(k,45) +rxt(k,338)*y(k,50) + & + rxt(k,339)*y(k,51) +rxt(k,355)*y(k,30) +rxt(k,356)*y(k,31) + & + rxt(k,358)*y(k,49) +rxt(k,364)*y(k,148) +rxt(k,368)*y(k,149) + & + rxt(k,370)*y(k,48) +.500_r8*rxt(k,383)*y(k,105) +rxt(k,523)*y(k,120)) & + *y(k,228) + (rxt(k,567)*y(k,93) +rxt(k,573)*y(k,93) + & + rxt(k,574)*y(k,92) +rxt(k,578)*y(k,93) +rxt(k,579)*y(k,92))*y(k,85) & + + (rxt(k,525) +rxt(k,175)*y(k,76))*y(k,90) +.050_r8*rxt(k,40) & *y(k,54) +rxt(k,136)*y(k,80) end do end subroutine imp_prod_loss diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_rxt_rates_conv.F90 index cc0712e018..25787692ca 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_rxt_rates_conv.F90 @@ -166,444 +166,448 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 224)*sol(:ncol,:, 135) ! rate_const*O1D*O2 rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 224)*sol(:ncol,:, 135) ! rate_const*O1D*O2 rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 224)*sol(:ncol,:, 136) ! rate_const*O1D*O3 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 225) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 225)*sol(:ncol,:, 134) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 225)*sol(:ncol,:, 135) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 226)*sol(:ncol,:, 63) ! rate_const*O2_1S*CO2 - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 226) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 226)*sol(:ncol,:, 134) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 226)*sol(:ncol,:, 135) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 226)*sol(:ncol,:, 136) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 134)*sol(:ncol,:, 136) ! rate_const*O*O3 - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 134)*sol(:ncol,:, 134) ! rate_const*M*O*O - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 134)*sol(:ncol,:, 135) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 77)*sol(:ncol,:, 134) ! rate_const*H2*O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 79)*sol(:ncol,:, 134) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 76)*sol(:ncol,:, 90) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 224)*sol(:ncol,:, 136) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 225) ! rate_const*N2*O2_1D + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 225)*sol(:ncol,:, 134) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 225)*sol(:ncol,:, 135) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 226)*sol(:ncol,:, 63) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 226) ! rate_const*N2*O2_1S + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 226)*sol(:ncol,:, 134) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 226)*sol(:ncol,:, 135) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 226)*sol(:ncol,:, 136) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 134)*sol(:ncol,:, 136) ! rate_const*O*O3 + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 134)*sol(:ncol,:, 134) ! rate_const*M*O*O + rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 134)*sol(:ncol,:, 135) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 77)*sol(:ncol,:, 134) ! rate_const*H2*O + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 79)*sol(:ncol,:, 134) ! rate_const*H2O2*O rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 76)*sol(:ncol,:, 90) ! rate_const*H*HO2 rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 76)*sol(:ncol,:, 90) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 76)*sol(:ncol,:, 135) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 90)*sol(:ncol,:, 134) ! rate_const*HO2*O - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 90)*sol(:ncol,:, 136) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 76)*sol(:ncol,:, 136) ! rate_const*H*O3 - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 228)*sol(:ncol,:, 77) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 228)*sol(:ncol,:, 79) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 228)*sol(:ncol,:, 90) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 228)*sol(:ncol,:, 134) ! rate_const*OH*O - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 228)*sol(:ncol,:, 136) ! rate_const*OH*O3 - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 228)*sol(:ncol,:, 228) ! rate_const*OH*OH - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 228)*sol(:ncol,:, 228) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 90)*sol(:ncol,:, 90) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 91)*sol(:ncol,:, 228) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 219)*sol(:ncol,:, 134) ! rate_const*N2D*O - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 219)*sol(:ncol,:, 135) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 112)*sol(:ncol,:, 124) ! rate_const*N*NO - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 76)*sol(:ncol,:, 90) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 76)*sol(:ncol,:, 135) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 90)*sol(:ncol,:, 134) ! rate_const*HO2*O + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 90)*sol(:ncol,:, 136) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 76)*sol(:ncol,:, 136) ! rate_const*H*O3 + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 228)*sol(:ncol,:, 77) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 228)*sol(:ncol,:, 79) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 228)*sol(:ncol,:, 90) ! rate_const*OH*HO2 + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 228)*sol(:ncol,:, 134) ! rate_const*OH*O + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 228)*sol(:ncol,:, 136) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 228)*sol(:ncol,:, 228) ! rate_const*OH*OH + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 228)*sol(:ncol,:, 228) ! rate_const*M*OH*OH + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 90)*sol(:ncol,:, 90) ! rate_const*HO2*HO2 + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 219) ! rate_const*N2D + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 91)*sol(:ncol,:, 228) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 219)*sol(:ncol,:, 124) ! rate_const*N2D*NO + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 219)*sol(:ncol,:, 134) ! rate_const*N2D*O + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 112)*sol(:ncol,:, 124) ! rate_const*N*NO rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 112)*sol(:ncol,:, 135) ! rate_const*N*O2 - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 125)*sol(:ncol,:, 134) ! rate_const*NO2*O - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 125)*sol(:ncol,:, 136) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 125)*sol(:ncol,:, 134) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 126)*sol(:ncol,:, 90) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 126)*sol(:ncol,:, 124) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 126)*sol(:ncol,:, 134) ! rate_const*NO3*O - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 126)*sol(:ncol,:, 228) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 112)*sol(:ncol,:, 228) ! rate_const*N*OH - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 124)*sol(:ncol,:, 90) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 124)*sol(:ncol,:, 136) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 124)*sol(:ncol,:, 134) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 224)*sol(:ncol,:, 113) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 125)*sol(:ncol,:, 134) ! rate_const*NO2*O + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 125)*sol(:ncol,:, 136) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 125)*sol(:ncol,:, 134) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 126)*sol(:ncol,:, 90) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 126)*sol(:ncol,:, 124) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 126)*sol(:ncol,:, 134) ! rate_const*NO3*O + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 126)*sol(:ncol,:, 228) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 112)*sol(:ncol,:, 228) ! rate_const*N*OH + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 124)*sol(:ncol,:, 90) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 124)*sol(:ncol,:, 136) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 124)*sol(:ncol,:, 134) ! rate_const*M*NO*O rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 224)*sol(:ncol,:, 113) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 125)*sol(:ncol,:, 90) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 125)*sol(:ncol,:, 126) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 125)*sol(:ncol,:, 228) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 89)*sol(:ncol,:, 228) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 91) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 114) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 56)*sol(:ncol,:, 42) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 56)*sol(:ncol,:, 54) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 56)*sol(:ncol,:, 77) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 56)*sol(:ncol,:, 79) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 56)*sol(:ncol,:, 90) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 56)*sol(:ncol,:, 90) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 56)*sol(:ncol,:, 136) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 59)*sol(:ncol,:, 201) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 59)*sol(:ncol,:, 90) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 59)*sol(:ncol,:, 124) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 59)*sol(:ncol,:, 125) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 60)*sol(:ncol,:, 134) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 60)*sol(:ncol,:, 228) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 59)*sol(:ncol,:, 134) ! rate_const*CLO*O - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 59)*sol(:ncol,:, 228) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 59)*sol(:ncol,:, 228) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 85)*sol(:ncol,:, 134) ! rate_const*HCL*O - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 85)*sol(:ncol,:, 228) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 93)*sol(:ncol,:, 56) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 93)*sol(:ncol,:, 134) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 93)*sol(:ncol,:, 228) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 224)*sol(:ncol,:, 33) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 224)*sol(:ncol,:, 34) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 224)*sol(:ncol,:, 36) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 224)*sol(:ncol,:, 37) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 224)*sol(:ncol,:, 38) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 224)*sol(:ncol,:, 39) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 224)*sol(:ncol,:, 40) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 224)*sol(:ncol,:, 85) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 224)*sol(:ncol,:, 85) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 58) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 17)*sol(:ncol,:, 42) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 17)*sol(:ncol,:, 90) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 17)*sol(:ncol,:, 136) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 19)*sol(:ncol,:, 19) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 19)*sol(:ncol,:, 90) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 19)*sol(:ncol,:, 124) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 19)*sol(:ncol,:, 125) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 20)*sol(:ncol,:, 134) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 19)*sol(:ncol,:, 134) ! rate_const*BRO*O - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 19)*sol(:ncol,:, 228) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 81)*sol(:ncol,:, 134) ! rate_const*HBR*O - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 81)*sol(:ncol,:, 228) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 92)*sol(:ncol,:, 134) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 224)*sol(:ncol,:, 35) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 224)*sol(:ncol,:, 55) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 224)*sol(:ncol,:, 78) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 224)*sol(:ncol,:, 81) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 224)*sol(:ncol,:, 81) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 73)*sol(:ncol,:, 54) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 73)*sol(:ncol,:, 77) ! rate_const*F*H2 - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 73)*sol(:ncol,:, 241) ! rate_const*F*H2O - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 73)*sol(:ncol,:, 89) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 224)*sol(:ncol,:, 64) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 224)*sol(:ncol,:, 65) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 41)*sol(:ncol,:, 56) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 41)*sol(:ncol,:, 228) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 43)*sol(:ncol,:, 56) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 43)*sol(:ncol,:, 228) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 44)*sol(:ncol,:, 228) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 46)*sol(:ncol,:, 56) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 46)*sol(:ncol,:, 228) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 55)*sol(:ncol,:, 56) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 55)*sol(:ncol,:, 228) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 82)*sol(:ncol,:, 228) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 83)*sol(:ncol,:, 228) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 84)*sol(:ncol,:, 228) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 224)*sol(:ncol,:, 41) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 224)*sol(:ncol,:, 43) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 224)*sol(:ncol,:, 82) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 224)*sol(:ncol,:, 83) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 224)*sol(:ncol,:, 84) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 42)*sol(:ncol,:, 90) ! rate_const*CH2O*HO2 - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 42)*sol(:ncol,:, 126) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 42)*sol(:ncol,:, 134) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 42)*sol(:ncol,:, 228) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 201)*sol(:ncol,:, 201) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 201)*sol(:ncol,:, 201) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 201)*sol(:ncol,:, 90) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 201)*sol(:ncol,:, 124) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 52)*sol(:ncol,:, 228) ! rate_const*CH3OH*OH - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 53)*sol(:ncol,:, 228) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 54)*sol(:ncol,:, 228) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 86)*sol(:ncol,:, 228) ! rate_const*M*HCN*OH - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 87)*sol(:ncol,:, 228) ! rate_const*HCOOH*OH - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 207)*sol(:ncol,:, 90) ! rate_const*HOCH2OO*HO2 - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 207) ! rate_const*HOCH2OO - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 207)*sol(:ncol,:, 124) ! rate_const*HOCH2OO*NO - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 224)*sol(:ncol,:, 86) ! rate_const*O1D*HCN - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 62)*sol(:ncol,:, 228) ! rate_const*CO*OH - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 24)*sol(:ncol,:, 56) ! rate_const*M*C2H2*CL - rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 24)*sol(:ncol,:, 228) ! rate_const*M*C2H2*OH - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 25)*sol(:ncol,:, 56) ! rate_const*M*C2H4*CL - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 25)*sol(:ncol,:, 136) ! rate_const*C2H4*O3 - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 197)*sol(:ncol,:, 197) ! rate_const*C2H5O2*C2H5O2 - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 197)*sol(:ncol,:, 201) ! rate_const*C2H5O2*CH3O2 - rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 197)*sol(:ncol,:, 90) ! rate_const*C2H5O2*HO2 - rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 197)*sol(:ncol,:, 124) ! rate_const*C2H5O2*NO - rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 26)*sol(:ncol,:, 228) ! rate_const*C2H5OH*OH - rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 27)*sol(:ncol,:, 228) ! rate_const*C2H5OOH*OH - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 28)*sol(:ncol,:, 56) ! rate_const*C2H6*CL - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 28)*sol(:ncol,:, 228) ! rate_const*C2H6*OH - rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 45)*sol(:ncol,:, 126) ! rate_const*CH3CHO*NO3 - rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 45)*sol(:ncol,:, 228) ! rate_const*CH3CHO*OH - rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 47)*sol(:ncol,:, 228) ! rate_const*CH3CN*OH - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 200)*sol(:ncol,:, 200) ! rate_const*CH3CO3*CH3CO3 - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 200)*sol(:ncol,:, 201) ! rate_const*CH3CO3*CH3O2 - rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 200)*sol(:ncol,:, 90) ! rate_const*CH3CO3*HO2 - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 200)*sol(:ncol,:, 124) ! rate_const*CH3CO3*NO - rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 50)*sol(:ncol,:, 228) ! rate_const*CH3COOH*OH - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 51)*sol(:ncol,:, 228) ! rate_const*CH3COOOH*OH - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 206)*sol(:ncol,:, 90) ! rate_const*EO2*HO2 - rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 206)*sol(:ncol,:, 124) ! rate_const*EO2*NO - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 205) ! rate_const*EO - rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 205)*sol(:ncol,:, 135) ! rate_const*EO*O2 - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 74)*sol(:ncol,:, 228) ! rate_const*GLYALD*OH - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 75)*sol(:ncol,:, 228) ! rate_const*GLYOXAL*OH - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 141)*sol(:ncol,:, 228) ! rate_const*PAN*OH - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 25)*sol(:ncol,:, 228) ! rate_const*M*C2H4*OH - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 200)*sol(:ncol,:, 125) ! rate_const*M*CH3CO3*NO2 - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 141) ! rate_const*M*PAN - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 29)*sol(:ncol,:, 126) ! rate_const*C3H6*NO3 - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 29)*sol(:ncol,:, 136) ! rate_const*C3H6*O3 - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 198)*sol(:ncol,:, 201) ! rate_const*C3H7O2*CH3O2 - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 198)*sol(:ncol,:, 90) ! rate_const*C3H7O2*HO2 - rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 198)*sol(:ncol,:, 124) ! rate_const*C3H7O2*NO - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 30)*sol(:ncol,:, 228) ! rate_const*C3H7OOH*OH - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 31)*sol(:ncol,:, 228) ! rate_const*C3H8*OH - rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 49)*sol(:ncol,:, 126) ! rate_const*CH3COCHO*NO3 - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 49)*sol(:ncol,:, 228) ! rate_const*CH3COCHO*OH - rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 56)*sol(:ncol,:, 31) ! rate_const*CL*C3H8 - rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 96)*sol(:ncol,:, 228) ! rate_const*HYAC*OH - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 127)*sol(:ncol,:, 228) ! rate_const*NOA*OH - rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 231)*sol(:ncol,:, 90) ! rate_const*PO2*HO2 - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 231)*sol(:ncol,:, 124) ! rate_const*PO2*NO - rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 148)*sol(:ncol,:, 228) ! rate_const*POOH*OH - rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 232)*sol(:ncol,:, 201) ! rate_const*RO2*CH3O2 - rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 232)*sol(:ncol,:, 90) ! rate_const*RO2*HO2 - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 232)*sol(:ncol,:, 124) ! rate_const*RO2*NO - rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 149)*sol(:ncol,:, 228) ! rate_const*ROOH*OH - rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 29)*sol(:ncol,:, 228) ! rate_const*M*C3H6*OH - rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 48)*sol(:ncol,:, 228) ! rate_const*CH3COCH3*OH - rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 16)*sol(:ncol,:, 126) ! rate_const*BIGENE*NO3 - rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 16)*sol(:ncol,:, 228) ! rate_const*BIGENE*OH - rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 204)*sol(:ncol,:, 124) ! rate_const*ENEO2*NO - rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 204)*sol(:ncol,:, 124) ! rate_const*ENEO2*NO - rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 94)*sol(:ncol,:, 228) ! rate_const*HONITR*OH - rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 213)*sol(:ncol,:, 200) ! rate_const*MACRO2*CH3CO3 - rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 213)*sol(:ncol,:, 201) ! rate_const*MACRO2*CH3O2 - rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 213)*sol(:ncol,:, 90) ! rate_const*MACRO2*HO2 - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 213)*sol(:ncol,:, 126) ! rate_const*MACRO2*NO3 - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 213)*sol(:ncol,:, 124) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 213)*sol(:ncol,:, 124) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 105)*sol(:ncol,:, 136) ! rate_const*MACR*O3 - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 105)*sol(:ncol,:, 228) ! rate_const*MACR*OH - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 106)*sol(:ncol,:, 228) ! rate_const*MACROOH*OH - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 215)*sol(:ncol,:, 200) ! rate_const*MCO3*CH3CO3 - rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 215)*sol(:ncol,:, 201) ! rate_const*MCO3*CH3O2 - rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 215)*sol(:ncol,:, 90) ! rate_const*MCO3*HO2 - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 215)*sol(:ncol,:, 215) ! rate_const*MCO3*MCO3 - rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 215)*sol(:ncol,:, 124) ! rate_const*MCO3*NO - rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 215)*sol(:ncol,:, 126) ! rate_const*MCO3*NO3 - rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 217)*sol(:ncol,:, 90) ! rate_const*MEKO2*HO2 - rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 217)*sol(:ncol,:, 124) ! rate_const*MEKO2*NO - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 107)*sol(:ncol,:, 228) ! rate_const*MEK*OH - rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 108)*sol(:ncol,:, 228) ! rate_const*MEKOOH*OH - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 109)*sol(:ncol,:, 228) ! rate_const*M*MPAN*OH - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 111)*sol(:ncol,:, 136) ! rate_const*MVK*O3 - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 111)*sol(:ncol,:, 228) ! rate_const*MVK*OH - rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 215)*sol(:ncol,:, 125) ! rate_const*M*MCO3*NO2 - rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 109) ! rate_const*M*MPAN - rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 1)*sol(:ncol,:, 228) ! rate_const*ALKNIT*OH - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 192)*sol(:ncol,:, 90) ! rate_const*ALKO2*HO2 - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 192)*sol(:ncol,:, 124) ! rate_const*ALKO2*NO - rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 192)*sol(:ncol,:, 124) ! rate_const*ALKO2*NO - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 2)*sol(:ncol,:, 228) ! rate_const*ALKOOH*OH - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 15)*sol(:ncol,:, 228) ! rate_const*BIGALK*OH - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 95)*sol(:ncol,:, 228) ! rate_const*HPALD*OH - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 97)*sol(:ncol,:, 228) ! rate_const*HYDRALD*OH - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 98)*sol(:ncol,:, 228) ! rate_const*IEPOX*OH - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 208)*sol(:ncol,:, 200) ! rate_const*ISOPAO2*CH3CO3 - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 208)*sol(:ncol,:, 201) ! rate_const*ISOPAO2*CH3O2 - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 208)*sol(:ncol,:, 90) ! rate_const*ISOPAO2*HO2 - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 208)*sol(:ncol,:, 124) ! rate_const*ISOPAO2*NO - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 208)*sol(:ncol,:, 126) ! rate_const*ISOPAO2*NO3 - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 209)*sol(:ncol,:, 200) ! rate_const*ISOPBO2*CH3CO3 - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 209)*sol(:ncol,:, 201) ! rate_const*ISOPBO2*CH3O2 - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 209)*sol(:ncol,:, 90) ! rate_const*ISOPBO2*HO2 - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 209) ! rate_const*ISOPBO2 - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 209)*sol(:ncol,:, 124) ! rate_const*ISOPBO2*NO - rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 209)*sol(:ncol,:, 126) ! rate_const*ISOPBO2*NO3 - rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 100)*sol(:ncol,:, 228) ! rate_const*ISOPNITA*OH - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 101)*sol(:ncol,:, 228) ! rate_const*ISOPNITB*OH - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 99)*sol(:ncol,:, 126) ! rate_const*ISOP*NO3 - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 210)*sol(:ncol,:, 200) ! rate_const*ISOPNO3*CH3CO3 - rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 210)*sol(:ncol,:, 201) ! rate_const*ISOPNO3*CH3O2 - rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 210)*sol(:ncol,:, 90) ! rate_const*ISOPNO3*HO2 - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 210)*sol(:ncol,:, 124) ! rate_const*ISOPNO3*NO - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 210)*sol(:ncol,:, 126) ! rate_const*ISOPNO3*NO3 - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 102)*sol(:ncol,:, 228) ! rate_const*ISOPNOOH*OH - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 99)*sol(:ncol,:, 136) ! rate_const*ISOP*O3 - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 99)*sol(:ncol,:, 228) ! rate_const*ISOP*OH - rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 103)*sol(:ncol,:, 228) ! rate_const*ISOPOOH*OH - rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 115)*sol(:ncol,:, 228) ! rate_const*NC4CH2OH*OH - rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 116)*sol(:ncol,:, 228) ! rate_const*NC4CHO*OH - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 237)*sol(:ncol,:, 200) ! rate_const*XO2*CH3CO3 - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 237)*sol(:ncol,:, 201) ! rate_const*XO2*CH3O2 - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 237)*sol(:ncol,:, 90) ! rate_const*XO2*HO2 - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 237)*sol(:ncol,:, 124) ! rate_const*XO2*NO - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 237)*sol(:ncol,:, 126) ! rate_const*XO2*NO3 - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 184)*sol(:ncol,:, 228) ! rate_const*XOOH*OH - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 191)*sol(:ncol,:, 90) ! rate_const*ACBZO2*HO2 - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 191)*sol(:ncol,:, 124) ! rate_const*ACBZO2*NO - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 7)*sol(:ncol,:, 228) ! rate_const*BENZENE*OH - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 194)*sol(:ncol,:, 90) ! rate_const*BENZO2*HO2 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 194)*sol(:ncol,:, 124) ! rate_const*BENZO2*NO - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 8)*sol(:ncol,:, 228) ! rate_const*BENZOOH*OH - rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 22)*sol(:ncol,:, 228) ! rate_const*BZALD*OH - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 196)*sol(:ncol,:, 90) ! rate_const*BZOO*HO2 - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 23)*sol(:ncol,:, 228) ! rate_const*BZOOH*OH - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 196)*sol(:ncol,:, 124) ! rate_const*BZOO*NO - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 199)*sol(:ncol,:, 90) ! rate_const*C6H5O2*HO2 - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 199)*sol(:ncol,:, 124) ! rate_const*C6H5O2*NO - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 32)*sol(:ncol,:, 228) ! rate_const*C6H5OOH*OH - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 66)*sol(:ncol,:, 228) ! rate_const*CRESOL*OH - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 202)*sol(:ncol,:, 90) ! rate_const*DICARBO2*HO2 - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 202)*sol(:ncol,:, 124) ! rate_const*DICARBO2*NO - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 202)*sol(:ncol,:, 125) ! rate_const*M*DICARBO2*NO2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 214)*sol(:ncol,:, 90) ! rate_const*MALO2*HO2 - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 214)*sol(:ncol,:, 124) ! rate_const*MALO2*NO - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 214)*sol(:ncol,:, 125) ! rate_const*M*MALO2*NO2 - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 216)*sol(:ncol,:, 90) ! rate_const*MDIALO2*HO2 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 216)*sol(:ncol,:, 124) ! rate_const*MDIALO2*NO - rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 216)*sol(:ncol,:, 125) ! rate_const*M*MDIALO2*NO2 - rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 230)*sol(:ncol,:, 90) ! rate_const*PHENO2*HO2 - rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 230)*sol(:ncol,:, 124) ! rate_const*PHENO2*NO - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 144)*sol(:ncol,:, 228) ! rate_const*PHENOL*OH - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 143)*sol(:ncol,:, 125) ! rate_const*PHENO*NO2 - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 143)*sol(:ncol,:, 136) ! rate_const*PHENO*O3 - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 145)*sol(:ncol,:, 228) ! rate_const*PHENOOH*OH - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 191)*sol(:ncol,:, 125) ! rate_const*M*ACBZO2*NO2 - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 235)*sol(:ncol,:, 90) ! rate_const*TOLO2*HO2 - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 235)*sol(:ncol,:, 124) ! rate_const*TOLO2*NO - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 182)*sol(:ncol,:, 228) ! rate_const*TOLOOH*OH - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 183)*sol(:ncol,:, 228) ! rate_const*TOLUENE*OH - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 142) ! rate_const*M*PBZNIT - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 185)*sol(:ncol,:, 228) ! rate_const*XYLENES*OH - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 238)*sol(:ncol,:, 90) ! rate_const*XYLENO2*HO2 - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 238)*sol(:ncol,:, 124) ! rate_const*XYLENO2*NO - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 186)*sol(:ncol,:, 228) ! rate_const*XYLENOOH*OH - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 240)*sol(:ncol,:, 90) ! rate_const*XYLOLO2*HO2 - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 240)*sol(:ncol,:, 124) ! rate_const*XYLOLO2*NO - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 187)*sol(:ncol,:, 228) ! rate_const*XYLOL*OH - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 188)*sol(:ncol,:, 228) ! rate_const*XYLOLOOH*OH - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 6)*sol(:ncol,:, 126) ! rate_const*BCARY*NO3 - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 6)*sol(:ncol,:, 136) ! rate_const*BCARY*O3 - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 6)*sol(:ncol,:, 228) ! rate_const*BCARY*OH - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*MTERP*NO3 - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 110)*sol(:ncol,:, 136) ! rate_const*MTERP*O3 - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 110)*sol(:ncol,:, 228) ! rate_const*MTERP*OH - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 223)*sol(:ncol,:, 201) ! rate_const*NTERPO2*CH3O2 - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 223)*sol(:ncol,:, 90) ! rate_const*NTERPO2*HO2 - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 223)*sol(:ncol,:, 124) ! rate_const*NTERPO2*NO - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 223)*sol(:ncol,:, 126) ! rate_const*NTERPO2*NO3 - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 128)*sol(:ncol,:, 228) ! rate_const*NTERPOOH*OH - rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 233)*sol(:ncol,:, 201) ! rate_const*TERP2O2*CH3O2 - rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 233)*sol(:ncol,:, 90) ! rate_const*TERP2O2*HO2 - rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 233)*sol(:ncol,:, 124) ! rate_const*TERP2O2*NO - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 177)*sol(:ncol,:, 228) ! rate_const*TERP2OOH*OH - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 178)*sol(:ncol,:, 228) ! rate_const*TERPNIT*OH - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 234)*sol(:ncol,:, 201) ! rate_const*TERPO2*CH3O2 - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 234)*sol(:ncol,:, 90) ! rate_const*TERPO2*HO2 - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 234)*sol(:ncol,:, 124) ! rate_const*TERPO2*NO - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 179)*sol(:ncol,:, 228) ! rate_const*TERPOOH*OH - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 180)*sol(:ncol,:, 126) ! rate_const*TERPROD1*NO3 - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 180)*sol(:ncol,:, 228) ! rate_const*TERPROD1*OH - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 181)*sol(:ncol,:, 228) ! rate_const*TERPROD2*OH - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 67)*sol(:ncol,:, 126) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 67)*sol(:ncol,:, 228) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 139)*sol(:ncol,:, 134) ! rate_const*OCS*O - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 139)*sol(:ncol,:, 228) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 150)*sol(:ncol,:, 135) ! rate_const*S*O2 - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 153)*sol(:ncol,:, 228) ! rate_const*M*SO2*OH - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 150)*sol(:ncol,:, 136) ! rate_const*S*O3 - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 152)*sol(:ncol,:, 19) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 152)*sol(:ncol,:, 59) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 150)*sol(:ncol,:, 228) ! rate_const*S*OH - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 152)*sol(:ncol,:, 125) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 152)*sol(:ncol,:, 135) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 152)*sol(:ncol,:, 136) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 152)*sol(:ncol,:, 138) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 152)*sol(:ncol,:, 228) ! rate_const*SO*OH - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 67)*sol(:ncol,:, 228) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 154)*sol(:ncol,:, 241) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 120)*sol(:ncol,:, 228) ! rate_const*NH3*OH - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 75) ! rate_const*GLYOXAL - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 90) ! rate_const*HO2 - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 94) ! rate_const*HONITR - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 100) ! rate_const*ISOPNITA - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 101) ! rate_const*ISOPNITB - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 114) ! rate_const*N2O5 - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 115) ! rate_const*NC4CH2OH - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 116) ! rate_const*NC4CHO - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 121) ! rate_const*NH4 - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 125) ! rate_const*NO2 - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 126) ! rate_const*NO3 - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 128) ! rate_const*NTERPOOH - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 140) ! rate_const*ONITR - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 178) ! rate_const*TERPNIT - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 6)*sol(:ncol,:, 126) ! rate_const*BCARY*NO3 - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 193)*sol(:ncol,:, 90) ! rate_const*BCARYO2VBS*HO2 - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 193)*sol(:ncol,:, 124) ! rate_const*BCARYO2VBS*NO - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 6)*sol(:ncol,:, 136) ! rate_const*BCARY*O3 - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 6)*sol(:ncol,:, 228) ! rate_const*BCARY*OH - rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 7)*sol(:ncol,:, 228) ! rate_const*BENZENE*OH - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 195)*sol(:ncol,:, 90) ! rate_const*BENZO2VBS*HO2 - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 195)*sol(:ncol,:, 124) ! rate_const*BENZO2VBS*NO - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 99)*sol(:ncol,:, 126) ! rate_const*ISOP*NO3 - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 211)*sol(:ncol,:, 90) ! rate_const*ISOPO2VBS*HO2 - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 211)*sol(:ncol,:, 124) ! rate_const*ISOPO2VBS*NO - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 99)*sol(:ncol,:, 136) ! rate_const*ISOP*O3 - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 99)*sol(:ncol,:, 228) ! rate_const*ISOP*OH - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 212)*sol(:ncol,:, 90) ! rate_const*IVOCO2VBS*HO2 - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 212)*sol(:ncol,:, 124) ! rate_const*IVOCO2VBS*NO - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 104)*sol(:ncol,:, 228) ! rate_const*IVOC*OH - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*MTERP*NO3 - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 218)*sol(:ncol,:, 90) ! rate_const*MTERPO2VBS*HO2 - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 218)*sol(:ncol,:, 124) ! rate_const*MTERPO2VBS*NO - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 110)*sol(:ncol,:, 136) ! rate_const*MTERP*O3 - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 110)*sol(:ncol,:, 228) ! rate_const*MTERP*OH - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 175)*sol(:ncol,:, 228) ! rate_const*SVOC*OH - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 183)*sol(:ncol,:, 228) ! rate_const*TOLUENE*OH - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 236)*sol(:ncol,:, 90) ! rate_const*TOLUO2VBS*HO2 - rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 236)*sol(:ncol,:, 124) ! rate_const*TOLUO2VBS*NO - rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 185)*sol(:ncol,:, 228) ! rate_const*XYLENES*OH - rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 239)*sol(:ncol,:, 90) ! rate_const*XYLEO2VBS*HO2 - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 239)*sol(:ncol,:, 124) ! rate_const*XYLEO2VBS*NO - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 114) ! rate_const*N2O5 - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 20) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 114) ! rate_const*N2O5 - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 60) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 20) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 60) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 20) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 114) ! rate_const*N2O5 - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 60) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 221)*sol(:ncol,:, 203) ! rate_const*NOp*e - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 227)*sol(:ncol,:, 203) ! rate_const*O2p*e - rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 220)*sol(:ncol,:, 203) ! rate_const*N2p*e - rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 220)*sol(:ncol,:, 135) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 220)*sol(:ncol,:, 134) ! rate_const*N2p*O - rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 220)*sol(:ncol,:, 134) ! rate_const*N2p*O - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 222)*sol(:ncol,:, 134) ! rate_const*Np*O - rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 222)*sol(:ncol,:, 135) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 222)*sol(:ncol,:, 135) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 227)*sol(:ncol,:, 112) ! rate_const*O2p*N - rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 227) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 227)*sol(:ncol,:, 124) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 229)*sol(:ncol,:, 63) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 229) ! rate_const*N2*Op - rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 229)*sol(:ncol,:, 135) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 71) ! rate_const*E90 - rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 123) ! rate_const*NH_50 - rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 122) ! rate_const*NH_5 - rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 174) ! rate_const*ST80_25 + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 224)*sol(:ncol,:, 113) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 125)*sol(:ncol,:, 90) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 125)*sol(:ncol,:, 126) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 125)*sol(:ncol,:, 228) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 89)*sol(:ncol,:, 228) ! rate_const*HNO3*OH + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 91) ! rate_const*M*HO2NO2 + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 219)*sol(:ncol,:, 203) ! rate_const*N2D*e + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 219)*sol(:ncol,:, 135) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 114) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 112)*sol(:ncol,:, 135) ! rate_const*N*O2 + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 56)*sol(:ncol,:, 42) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 56)*sol(:ncol,:, 54) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 56)*sol(:ncol,:, 77) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 56)*sol(:ncol,:, 79) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 56)*sol(:ncol,:, 90) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 56)*sol(:ncol,:, 90) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 56)*sol(:ncol,:, 136) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 59)*sol(:ncol,:, 201) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 59)*sol(:ncol,:, 90) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 59)*sol(:ncol,:, 124) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 59)*sol(:ncol,:, 125) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 60)*sol(:ncol,:, 134) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 60)*sol(:ncol,:, 228) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 59)*sol(:ncol,:, 134) ! rate_const*CLO*O + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 59)*sol(:ncol,:, 228) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 59)*sol(:ncol,:, 228) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 85)*sol(:ncol,:, 134) ! rate_const*HCL*O + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 85)*sol(:ncol,:, 228) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 93)*sol(:ncol,:, 56) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 93)*sol(:ncol,:, 134) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 93)*sol(:ncol,:, 228) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 224)*sol(:ncol,:, 33) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 224)*sol(:ncol,:, 34) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 224)*sol(:ncol,:, 36) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 224)*sol(:ncol,:, 37) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 224)*sol(:ncol,:, 38) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 224)*sol(:ncol,:, 39) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 224)*sol(:ncol,:, 40) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 224)*sol(:ncol,:, 85) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 224)*sol(:ncol,:, 85) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 58) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 17)*sol(:ncol,:, 42) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 17)*sol(:ncol,:, 90) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 17)*sol(:ncol,:, 136) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 19)*sol(:ncol,:, 19) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 19)*sol(:ncol,:, 90) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 19)*sol(:ncol,:, 124) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 19)*sol(:ncol,:, 125) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 20)*sol(:ncol,:, 134) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 19)*sol(:ncol,:, 134) ! rate_const*BRO*O + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 19)*sol(:ncol,:, 228) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 81)*sol(:ncol,:, 134) ! rate_const*HBR*O + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 81)*sol(:ncol,:, 228) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 92)*sol(:ncol,:, 134) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 224)*sol(:ncol,:, 35) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 224)*sol(:ncol,:, 55) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 224)*sol(:ncol,:, 78) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 224)*sol(:ncol,:, 81) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 224)*sol(:ncol,:, 81) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 73)*sol(:ncol,:, 54) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 73)*sol(:ncol,:, 77) ! rate_const*F*H2 + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 73)*sol(:ncol,:, 241) ! rate_const*F*H2O + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 73)*sol(:ncol,:, 89) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 224)*sol(:ncol,:, 64) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 224)*sol(:ncol,:, 65) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 41)*sol(:ncol,:, 56) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 41)*sol(:ncol,:, 228) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 43)*sol(:ncol,:, 56) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 43)*sol(:ncol,:, 228) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 44)*sol(:ncol,:, 228) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 46)*sol(:ncol,:, 56) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 46)*sol(:ncol,:, 228) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 55)*sol(:ncol,:, 56) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 55)*sol(:ncol,:, 228) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 82)*sol(:ncol,:, 228) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 83)*sol(:ncol,:, 228) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 84)*sol(:ncol,:, 228) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 224)*sol(:ncol,:, 41) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 224)*sol(:ncol,:, 43) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 224)*sol(:ncol,:, 82) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 224)*sol(:ncol,:, 83) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 224)*sol(:ncol,:, 84) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 42)*sol(:ncol,:, 90) ! rate_const*CH2O*HO2 + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 42)*sol(:ncol,:, 126) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 42)*sol(:ncol,:, 134) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 42)*sol(:ncol,:, 228) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 201)*sol(:ncol,:, 201) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 201)*sol(:ncol,:, 201) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 201)*sol(:ncol,:, 90) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 201)*sol(:ncol,:, 124) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 52)*sol(:ncol,:, 228) ! rate_const*CH3OH*OH + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 53)*sol(:ncol,:, 228) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 54)*sol(:ncol,:, 228) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 86)*sol(:ncol,:, 228) ! rate_const*M*HCN*OH + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 87)*sol(:ncol,:, 228) ! rate_const*HCOOH*OH + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 207)*sol(:ncol,:, 90) ! rate_const*HOCH2OO*HO2 + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 207) ! rate_const*HOCH2OO + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 207)*sol(:ncol,:, 124) ! rate_const*HOCH2OO*NO + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 224)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 224)*sol(:ncol,:, 86) ! rate_const*O1D*HCN + rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 62)*sol(:ncol,:, 228) ! rate_const*CO*OH + rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 24)*sol(:ncol,:, 56) ! rate_const*M*C2H2*CL + rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 24)*sol(:ncol,:, 228) ! rate_const*M*C2H2*OH + rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 25)*sol(:ncol,:, 56) ! rate_const*M*C2H4*CL + rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 25)*sol(:ncol,:, 136) ! rate_const*C2H4*O3 + rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 197)*sol(:ncol,:, 197) ! rate_const*C2H5O2*C2H5O2 + rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 197)*sol(:ncol,:, 201) ! rate_const*C2H5O2*CH3O2 + rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 197)*sol(:ncol,:, 90) ! rate_const*C2H5O2*HO2 + rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 197)*sol(:ncol,:, 124) ! rate_const*C2H5O2*NO + rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 26)*sol(:ncol,:, 228) ! rate_const*C2H5OH*OH + rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 27)*sol(:ncol,:, 228) ! rate_const*C2H5OOH*OH + rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 28)*sol(:ncol,:, 56) ! rate_const*C2H6*CL + rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 28)*sol(:ncol,:, 228) ! rate_const*C2H6*OH + rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 45)*sol(:ncol,:, 126) ! rate_const*CH3CHO*NO3 + rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 45)*sol(:ncol,:, 228) ! rate_const*CH3CHO*OH + rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 47)*sol(:ncol,:, 228) ! rate_const*CH3CN*OH + rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 200)*sol(:ncol,:, 200) ! rate_const*CH3CO3*CH3CO3 + rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 200)*sol(:ncol,:, 201) ! rate_const*CH3CO3*CH3O2 + rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 200)*sol(:ncol,:, 90) ! rate_const*CH3CO3*HO2 + rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 200)*sol(:ncol,:, 124) ! rate_const*CH3CO3*NO + rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 50)*sol(:ncol,:, 228) ! rate_const*CH3COOH*OH + rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 51)*sol(:ncol,:, 228) ! rate_const*CH3COOOH*OH + rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 206)*sol(:ncol,:, 90) ! rate_const*EO2*HO2 + rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 206)*sol(:ncol,:, 124) ! rate_const*EO2*NO + rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 205) ! rate_const*EO + rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 205)*sol(:ncol,:, 135) ! rate_const*EO*O2 + rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 74)*sol(:ncol,:, 228) ! rate_const*GLYALD*OH + rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 75)*sol(:ncol,:, 228) ! rate_const*GLYOXAL*OH + rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 141)*sol(:ncol,:, 228) ! rate_const*PAN*OH + rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 25)*sol(:ncol,:, 228) ! rate_const*M*C2H4*OH + rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 200)*sol(:ncol,:, 125) ! rate_const*M*CH3CO3*NO2 + rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 141) ! rate_const*M*PAN + rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 29)*sol(:ncol,:, 126) ! rate_const*C3H6*NO3 + rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 29)*sol(:ncol,:, 136) ! rate_const*C3H6*O3 + rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 198)*sol(:ncol,:, 201) ! rate_const*C3H7O2*CH3O2 + rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 198)*sol(:ncol,:, 90) ! rate_const*C3H7O2*HO2 + rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 198)*sol(:ncol,:, 124) ! rate_const*C3H7O2*NO + rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 30)*sol(:ncol,:, 228) ! rate_const*C3H7OOH*OH + rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 31)*sol(:ncol,:, 228) ! rate_const*C3H8*OH + rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 49)*sol(:ncol,:, 126) ! rate_const*CH3COCHO*NO3 + rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 49)*sol(:ncol,:, 228) ! rate_const*CH3COCHO*OH + rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 56)*sol(:ncol,:, 31) ! rate_const*CL*C3H8 + rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 96)*sol(:ncol,:, 228) ! rate_const*HYAC*OH + rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 127)*sol(:ncol,:, 228) ! rate_const*NOA*OH + rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 231)*sol(:ncol,:, 90) ! rate_const*PO2*HO2 + rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 231)*sol(:ncol,:, 124) ! rate_const*PO2*NO + rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 148)*sol(:ncol,:, 228) ! rate_const*POOH*OH + rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 232)*sol(:ncol,:, 201) ! rate_const*RO2*CH3O2 + rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 232)*sol(:ncol,:, 90) ! rate_const*RO2*HO2 + rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 232)*sol(:ncol,:, 124) ! rate_const*RO2*NO + rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 149)*sol(:ncol,:, 228) ! rate_const*ROOH*OH + rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 29)*sol(:ncol,:, 228) ! rate_const*M*C3H6*OH + rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 48)*sol(:ncol,:, 228) ! rate_const*CH3COCH3*OH + rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 16)*sol(:ncol,:, 126) ! rate_const*BIGENE*NO3 + rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 16)*sol(:ncol,:, 228) ! rate_const*BIGENE*OH + rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 204)*sol(:ncol,:, 124) ! rate_const*ENEO2*NO + rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 204)*sol(:ncol,:, 124) ! rate_const*ENEO2*NO + rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 94)*sol(:ncol,:, 228) ! rate_const*HONITR*OH + rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 213)*sol(:ncol,:, 200) ! rate_const*MACRO2*CH3CO3 + rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 213)*sol(:ncol,:, 201) ! rate_const*MACRO2*CH3O2 + rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 213)*sol(:ncol,:, 90) ! rate_const*MACRO2*HO2 + rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 213)*sol(:ncol,:, 126) ! rate_const*MACRO2*NO3 + rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 213)*sol(:ncol,:, 124) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 213)*sol(:ncol,:, 124) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 105)*sol(:ncol,:, 136) ! rate_const*MACR*O3 + rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 105)*sol(:ncol,:, 228) ! rate_const*MACR*OH + rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 106)*sol(:ncol,:, 228) ! rate_const*MACROOH*OH + rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 215)*sol(:ncol,:, 200) ! rate_const*MCO3*CH3CO3 + rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 215)*sol(:ncol,:, 201) ! rate_const*MCO3*CH3O2 + rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 215)*sol(:ncol,:, 90) ! rate_const*MCO3*HO2 + rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 215)*sol(:ncol,:, 215) ! rate_const*MCO3*MCO3 + rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 215)*sol(:ncol,:, 124) ! rate_const*MCO3*NO + rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 215)*sol(:ncol,:, 126) ! rate_const*MCO3*NO3 + rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 217)*sol(:ncol,:, 90) ! rate_const*MEKO2*HO2 + rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 217)*sol(:ncol,:, 124) ! rate_const*MEKO2*NO + rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 107)*sol(:ncol,:, 228) ! rate_const*MEK*OH + rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 108)*sol(:ncol,:, 228) ! rate_const*MEKOOH*OH + rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 109)*sol(:ncol,:, 228) ! rate_const*M*MPAN*OH + rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 111)*sol(:ncol,:, 136) ! rate_const*MVK*O3 + rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 111)*sol(:ncol,:, 228) ! rate_const*MVK*OH + rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 215)*sol(:ncol,:, 125) ! rate_const*M*MCO3*NO2 + rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 109) ! rate_const*M*MPAN + rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 1)*sol(:ncol,:, 228) ! rate_const*ALKNIT*OH + rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 192)*sol(:ncol,:, 90) ! rate_const*ALKO2*HO2 + rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 192)*sol(:ncol,:, 124) ! rate_const*ALKO2*NO + rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 192)*sol(:ncol,:, 124) ! rate_const*ALKO2*NO + rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 2)*sol(:ncol,:, 228) ! rate_const*ALKOOH*OH + rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 15)*sol(:ncol,:, 228) ! rate_const*BIGALK*OH + rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 95)*sol(:ncol,:, 228) ! rate_const*HPALD*OH + rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 97)*sol(:ncol,:, 228) ! rate_const*HYDRALD*OH + rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 98)*sol(:ncol,:, 228) ! rate_const*IEPOX*OH + rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 208)*sol(:ncol,:, 200) ! rate_const*ISOPAO2*CH3CO3 + rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 208)*sol(:ncol,:, 201) ! rate_const*ISOPAO2*CH3O2 + rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 208)*sol(:ncol,:, 90) ! rate_const*ISOPAO2*HO2 + rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 208)*sol(:ncol,:, 124) ! rate_const*ISOPAO2*NO + rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 208)*sol(:ncol,:, 126) ! rate_const*ISOPAO2*NO3 + rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 209)*sol(:ncol,:, 200) ! rate_const*ISOPBO2*CH3CO3 + rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 209)*sol(:ncol,:, 201) ! rate_const*ISOPBO2*CH3O2 + rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 209)*sol(:ncol,:, 90) ! rate_const*ISOPBO2*HO2 + rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 209) ! rate_const*ISOPBO2 + rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 209)*sol(:ncol,:, 124) ! rate_const*ISOPBO2*NO + rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 209)*sol(:ncol,:, 126) ! rate_const*ISOPBO2*NO3 + rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 100)*sol(:ncol,:, 228) ! rate_const*ISOPNITA*OH + rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 101)*sol(:ncol,:, 228) ! rate_const*ISOPNITB*OH + rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 99)*sol(:ncol,:, 126) ! rate_const*ISOP*NO3 + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 210)*sol(:ncol,:, 200) ! rate_const*ISOPNO3*CH3CO3 + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 210)*sol(:ncol,:, 201) ! rate_const*ISOPNO3*CH3O2 + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 210)*sol(:ncol,:, 90) ! rate_const*ISOPNO3*HO2 + rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 210)*sol(:ncol,:, 124) ! rate_const*ISOPNO3*NO + rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 210)*sol(:ncol,:, 126) ! rate_const*ISOPNO3*NO3 + rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 102)*sol(:ncol,:, 228) ! rate_const*ISOPNOOH*OH + rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 99)*sol(:ncol,:, 136) ! rate_const*ISOP*O3 + rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 99)*sol(:ncol,:, 228) ! rate_const*ISOP*OH + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 103)*sol(:ncol,:, 228) ! rate_const*ISOPOOH*OH + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 115)*sol(:ncol,:, 228) ! rate_const*NC4CH2OH*OH + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 116)*sol(:ncol,:, 228) ! rate_const*NC4CHO*OH + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 237)*sol(:ncol,:, 200) ! rate_const*XO2*CH3CO3 + rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 237)*sol(:ncol,:, 201) ! rate_const*XO2*CH3O2 + rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 237)*sol(:ncol,:, 90) ! rate_const*XO2*HO2 + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 237)*sol(:ncol,:, 124) ! rate_const*XO2*NO + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 237)*sol(:ncol,:, 126) ! rate_const*XO2*NO3 + rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 184)*sol(:ncol,:, 228) ! rate_const*XOOH*OH + rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 191)*sol(:ncol,:, 90) ! rate_const*ACBZO2*HO2 + rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 191)*sol(:ncol,:, 124) ! rate_const*ACBZO2*NO + rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 7)*sol(:ncol,:, 228) ! rate_const*BENZENE*OH + rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 194)*sol(:ncol,:, 90) ! rate_const*BENZO2*HO2 + rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 194)*sol(:ncol,:, 124) ! rate_const*BENZO2*NO + rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 8)*sol(:ncol,:, 228) ! rate_const*BENZOOH*OH + rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 22)*sol(:ncol,:, 228) ! rate_const*BZALD*OH + rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 196)*sol(:ncol,:, 90) ! rate_const*BZOO*HO2 + rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 23)*sol(:ncol,:, 228) ! rate_const*BZOOH*OH + rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 196)*sol(:ncol,:, 124) ! rate_const*BZOO*NO + rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 199)*sol(:ncol,:, 90) ! rate_const*C6H5O2*HO2 + rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 199)*sol(:ncol,:, 124) ! rate_const*C6H5O2*NO + rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 32)*sol(:ncol,:, 228) ! rate_const*C6H5OOH*OH + rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 66)*sol(:ncol,:, 228) ! rate_const*CRESOL*OH + rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 202)*sol(:ncol,:, 90) ! rate_const*DICARBO2*HO2 + rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 202)*sol(:ncol,:, 124) ! rate_const*DICARBO2*NO + rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 202)*sol(:ncol,:, 125) ! rate_const*M*DICARBO2*NO2 + rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 214)*sol(:ncol,:, 90) ! rate_const*MALO2*HO2 + rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 214)*sol(:ncol,:, 124) ! rate_const*MALO2*NO + rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 214)*sol(:ncol,:, 125) ! rate_const*M*MALO2*NO2 + rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 216)*sol(:ncol,:, 90) ! rate_const*MDIALO2*HO2 + rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 216)*sol(:ncol,:, 124) ! rate_const*MDIALO2*NO + rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 216)*sol(:ncol,:, 125) ! rate_const*M*MDIALO2*NO2 + rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 230)*sol(:ncol,:, 90) ! rate_const*PHENO2*HO2 + rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 230)*sol(:ncol,:, 124) ! rate_const*PHENO2*NO + rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 144)*sol(:ncol,:, 228) ! rate_const*PHENOL*OH + rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 143)*sol(:ncol,:, 125) ! rate_const*PHENO*NO2 + rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 143)*sol(:ncol,:, 136) ! rate_const*PHENO*O3 + rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 145)*sol(:ncol,:, 228) ! rate_const*PHENOOH*OH + rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 191)*sol(:ncol,:, 125) ! rate_const*M*ACBZO2*NO2 + rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 235)*sol(:ncol,:, 90) ! rate_const*TOLO2*HO2 + rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 235)*sol(:ncol,:, 124) ! rate_const*TOLO2*NO + rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 182)*sol(:ncol,:, 228) ! rate_const*TOLOOH*OH + rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 183)*sol(:ncol,:, 228) ! rate_const*TOLUENE*OH + rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 142) ! rate_const*M*PBZNIT + rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 185)*sol(:ncol,:, 228) ! rate_const*XYLENES*OH + rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 238)*sol(:ncol,:, 90) ! rate_const*XYLENO2*HO2 + rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 238)*sol(:ncol,:, 124) ! rate_const*XYLENO2*NO + rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 186)*sol(:ncol,:, 228) ! rate_const*XYLENOOH*OH + rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 240)*sol(:ncol,:, 90) ! rate_const*XYLOLO2*HO2 + rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 240)*sol(:ncol,:, 124) ! rate_const*XYLOLO2*NO + rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 187)*sol(:ncol,:, 228) ! rate_const*XYLOL*OH + rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 188)*sol(:ncol,:, 228) ! rate_const*XYLOLOOH*OH + rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 6)*sol(:ncol,:, 126) ! rate_const*BCARY*NO3 + rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 6)*sol(:ncol,:, 136) ! rate_const*BCARY*O3 + rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 6)*sol(:ncol,:, 228) ! rate_const*BCARY*OH + rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*MTERP*NO3 + rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 110)*sol(:ncol,:, 136) ! rate_const*MTERP*O3 + rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 110)*sol(:ncol,:, 228) ! rate_const*MTERP*OH + rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 223)*sol(:ncol,:, 201) ! rate_const*NTERPO2*CH3O2 + rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 223)*sol(:ncol,:, 90) ! rate_const*NTERPO2*HO2 + rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 223)*sol(:ncol,:, 124) ! rate_const*NTERPO2*NO + rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 223)*sol(:ncol,:, 126) ! rate_const*NTERPO2*NO3 + rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 128)*sol(:ncol,:, 228) ! rate_const*NTERPOOH*OH + rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 233)*sol(:ncol,:, 201) ! rate_const*TERP2O2*CH3O2 + rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 233)*sol(:ncol,:, 90) ! rate_const*TERP2O2*HO2 + rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 233)*sol(:ncol,:, 124) ! rate_const*TERP2O2*NO + rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 177)*sol(:ncol,:, 228) ! rate_const*TERP2OOH*OH + rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 178)*sol(:ncol,:, 228) ! rate_const*TERPNIT*OH + rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 234)*sol(:ncol,:, 201) ! rate_const*TERPO2*CH3O2 + rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 234)*sol(:ncol,:, 90) ! rate_const*TERPO2*HO2 + rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 234)*sol(:ncol,:, 124) ! rate_const*TERPO2*NO + rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 179)*sol(:ncol,:, 228) ! rate_const*TERPOOH*OH + rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 180)*sol(:ncol,:, 126) ! rate_const*TERPROD1*NO3 + rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 180)*sol(:ncol,:, 228) ! rate_const*TERPROD1*OH + rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 181)*sol(:ncol,:, 228) ! rate_const*TERPROD2*OH + rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 67)*sol(:ncol,:, 126) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 67)*sol(:ncol,:, 228) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 139)*sol(:ncol,:, 134) ! rate_const*OCS*O + rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 139)*sol(:ncol,:, 228) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 150)*sol(:ncol,:, 135) ! rate_const*S*O2 + rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 153)*sol(:ncol,:, 228) ! rate_const*M*SO2*OH + rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 150)*sol(:ncol,:, 136) ! rate_const*S*O3 + rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 152)*sol(:ncol,:, 19) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 152)*sol(:ncol,:, 59) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 150)*sol(:ncol,:, 228) ! rate_const*S*OH + rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 152)*sol(:ncol,:, 125) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 152)*sol(:ncol,:, 135) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 152)*sol(:ncol,:, 136) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 152)*sol(:ncol,:, 138) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 152)*sol(:ncol,:, 228) ! rate_const*SO*OH + rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 67)*sol(:ncol,:, 228) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 154)*sol(:ncol,:, 241) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 120)*sol(:ncol,:, 228) ! rate_const*NH3*OH + rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 75) ! rate_const*GLYOXAL + rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 90) ! rate_const*HO2 + rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 94) ! rate_const*HONITR + rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 100) ! rate_const*ISOPNITA + rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 101) ! rate_const*ISOPNITB + rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 114) ! rate_const*N2O5 + rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 115) ! rate_const*NC4CH2OH + rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 116) ! rate_const*NC4CHO + rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 121) ! rate_const*NH4 + rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 125) ! rate_const*NO2 + rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 126) ! rate_const*NO3 + rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 128) ! rate_const*NTERPOOH + rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 140) ! rate_const*ONITR + rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 178) ! rate_const*TERPNIT + rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 6)*sol(:ncol,:, 126) ! rate_const*BCARY*NO3 + rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 193)*sol(:ncol,:, 90) ! rate_const*BCARYO2VBS*HO2 + rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 193)*sol(:ncol,:, 124) ! rate_const*BCARYO2VBS*NO + rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 6)*sol(:ncol,:, 136) ! rate_const*BCARY*O3 + rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 6)*sol(:ncol,:, 228) ! rate_const*BCARY*OH + rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 7)*sol(:ncol,:, 228) ! rate_const*BENZENE*OH + rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 195)*sol(:ncol,:, 90) ! rate_const*BENZO2VBS*HO2 + rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 195)*sol(:ncol,:, 124) ! rate_const*BENZO2VBS*NO + rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 99)*sol(:ncol,:, 126) ! rate_const*ISOP*NO3 + rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 211)*sol(:ncol,:, 90) ! rate_const*ISOPO2VBS*HO2 + rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 211)*sol(:ncol,:, 124) ! rate_const*ISOPO2VBS*NO + rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 99)*sol(:ncol,:, 136) ! rate_const*ISOP*O3 + rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 99)*sol(:ncol,:, 228) ! rate_const*ISOP*OH + rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 212)*sol(:ncol,:, 90) ! rate_const*IVOCO2VBS*HO2 + rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 212)*sol(:ncol,:, 124) ! rate_const*IVOCO2VBS*NO + rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 104)*sol(:ncol,:, 228) ! rate_const*IVOC*OH + rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*MTERP*NO3 + rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 218)*sol(:ncol,:, 90) ! rate_const*MTERPO2VBS*HO2 + rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 218)*sol(:ncol,:, 124) ! rate_const*MTERPO2VBS*NO + rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 110)*sol(:ncol,:, 136) ! rate_const*MTERP*O3 + rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 110)*sol(:ncol,:, 228) ! rate_const*MTERP*OH + rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 175)*sol(:ncol,:, 228) ! rate_const*SVOC*OH + rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 183)*sol(:ncol,:, 228) ! rate_const*TOLUENE*OH + rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 236)*sol(:ncol,:, 90) ! rate_const*TOLUO2VBS*HO2 + rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 236)*sol(:ncol,:, 124) ! rate_const*TOLUO2VBS*NO + rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 185)*sol(:ncol,:, 228) ! rate_const*XYLENES*OH + rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 239)*sol(:ncol,:, 90) ! rate_const*XYLEO2VBS*HO2 + rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 239)*sol(:ncol,:, 124) ! rate_const*XYLEO2VBS*NO + rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 114) ! rate_const*N2O5 + rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 114) ! rate_const*N2O5 + rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 93)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 114) ! rate_const*N2O5 + rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 221)*sol(:ncol,:, 203) ! rate_const*NOp*e + rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 227)*sol(:ncol,:, 203) ! rate_const*O2p*e + rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 220)*sol(:ncol,:, 203) ! rate_const*N2p*e + rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 220)*sol(:ncol,:, 135) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 220)*sol(:ncol,:, 134) ! rate_const*N2p*O + rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 220)*sol(:ncol,:, 134) ! rate_const*N2p*O + rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 222)*sol(:ncol,:, 134) ! rate_const*Np*O + rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 222)*sol(:ncol,:, 135) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 222)*sol(:ncol,:, 135) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 227)*sol(:ncol,:, 112) ! rate_const*O2p*N + rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 227) ! rate_const*N2*O2p + rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 227)*sol(:ncol,:, 124) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 229)*sol(:ncol,:, 63) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 229) ! rate_const*N2*Op + rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 229)*sol(:ncol,:, 135) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 71) ! rate_const*E90 + rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 123) ! rate_const*NH_50 + rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 122) ! rate_const*NH_5 + rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 174) ! rate_const*ST80_25 end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_setrxt.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_setrxt.F90 index fea4569c75..c26716864e 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_setrxt.F90 @@ -41,122 +41,124 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,152) = 0.085_r8 rate(:,153) = 1.2e-10_r8 rate(:,158) = 1.2e-10_r8 - rate(:,159) = 1e-20_r8 - rate(:,160) = 1.3e-16_r8 - rate(:,162) = 4.2e-13_r8 - rate(:,164) = 8e-14_r8 - rate(:,165) = 3.9e-17_r8 - rate(:,172) = 6.9e-12_r8 - rate(:,173) = 7.2e-11_r8 - rate(:,174) = 1.6e-12_r8 - rate(:,180) = 1.8e-12_r8 - rate(:,184) = 1.8e-12_r8 - rate(:,188) = 7e-13_r8 - rate(:,189) = 5e-12_r8 - rate(:,198) = 3.5e-12_r8 - rate(:,200) = 1.3e-11_r8 - rate(:,201) = 2.2e-11_r8 - rate(:,202) = 5e-11_r8 - rate(:,237) = 1.7e-13_r8 - rate(:,239) = 2.607e-10_r8 - rate(:,240) = 9.75e-11_r8 - rate(:,241) = 2.07e-10_r8 - rate(:,242) = 2.088e-10_r8 - rate(:,243) = 1.17e-10_r8 - rate(:,244) = 4.644e-11_r8 - rate(:,245) = 1.204e-10_r8 - rate(:,246) = 9.9e-11_r8 - rate(:,247) = 3.3e-12_r8 - rate(:,266) = 4.5e-11_r8 - rate(:,267) = 4.62e-10_r8 - rate(:,268) = 1.2e-10_r8 - rate(:,269) = 9e-11_r8 - rate(:,270) = 3e-11_r8 - rate(:,275) = 2.14e-11_r8 - rate(:,276) = 1.9e-10_r8 - rate(:,289) = 2.57e-10_r8 - rate(:,290) = 1.8e-10_r8 - rate(:,291) = 1.794e-10_r8 - rate(:,292) = 1.3e-10_r8 - rate(:,293) = 7.65e-11_r8 - rate(:,306) = 4e-13_r8 - rate(:,310) = 1.31e-10_r8 - rate(:,311) = 3.5e-11_r8 - rate(:,312) = 9e-12_r8 - rate(:,319) = 6.8e-14_r8 - rate(:,320) = 2e-13_r8 - rate(:,335) = 1e-12_r8 - rate(:,339) = 1e-14_r8 - rate(:,340) = 1e-11_r8 - rate(:,341) = 1.15e-11_r8 - rate(:,342) = 4e-14_r8 - rate(:,355) = 1.45e-10_r8 - rate(:,356) = 3e-12_r8 - rate(:,357) = 6.7e-13_r8 - rate(:,367) = 3.5e-13_r8 - rate(:,368) = 5.4e-11_r8 - rate(:,371) = 2e-12_r8 - rate(:,372) = 1.4e-11_r8 - rate(:,375) = 2.4e-12_r8 - rate(:,386) = 5e-12_r8 - rate(:,396) = 1.6e-12_r8 - rate(:,398) = 6.7e-12_r8 - rate(:,401) = 3.5e-12_r8 - rate(:,404) = 1.3e-11_r8 - rate(:,405) = 1.4e-11_r8 - rate(:,409) = 2.4e-12_r8 - rate(:,410) = 1.4e-11_r8 - rate(:,415) = 2.4e-12_r8 - rate(:,416) = 4e-11_r8 - rate(:,417) = 4e-11_r8 - rate(:,419) = 1.4e-11_r8 - rate(:,423) = 2.4e-12_r8 - rate(:,424) = 4e-11_r8 - rate(:,428) = 7e-11_r8 - rate(:,429) = 1e-10_r8 - rate(:,434) = 2.4e-12_r8 - rate(:,449) = 4.7e-11_r8 - rate(:,462) = 2.1e-12_r8 - rate(:,463) = 2.8e-13_r8 - rate(:,471) = 1.7e-11_r8 - rate(:,477) = 8.4e-11_r8 - rate(:,479) = 1.9e-11_r8 - rate(:,480) = 1.2e-14_r8 - rate(:,481) = 2e-10_r8 - rate(:,488) = 2.4e-12_r8 - rate(:,489) = 2e-11_r8 - rate(:,493) = 2.3e-11_r8 - rate(:,494) = 2e-11_r8 - rate(:,498) = 3.3e-11_r8 - rate(:,499) = 1e-12_r8 - rate(:,500) = 5.7e-11_r8 - rate(:,501) = 3.4e-11_r8 - rate(:,506) = 2.3e-12_r8 - rate(:,508) = 1.2e-11_r8 - rate(:,509) = 5.7e-11_r8 - rate(:,510) = 2.8e-11_r8 - rate(:,511) = 6.6e-11_r8 - rate(:,512) = 1.4e-11_r8 - rate(:,515) = 1.9e-12_r8 - rate(:,528) = 6.34e-08_r8 - rate(:,534) = 1.9e-11_r8 - rate(:,537) = 1.2e-14_r8 - rate(:,538) = 2e-10_r8 - rate(:,549) = 1.34e-11_r8 - rate(:,555) = 1.34e-11_r8 - rate(:,559) = 1.7e-11_r8 - rate(:,582) = 6e-11_r8 - rate(:,585) = 1e-12_r8 - rate(:,586) = 4e-10_r8 - rate(:,587) = 2e-10_r8 - rate(:,588) = 1e-10_r8 - rate(:,589) = 5e-16_r8 - rate(:,590) = 4.4e-10_r8 - rate(:,591) = 9e-10_r8 - rate(:,594) = 1.29e-07_r8 - rate(:,595) = 2.31e-07_r8 - rate(:,596) = 2.31e-06_r8 - rate(:,597) = 4.63e-07_r8 + rate(:,159) = 1.2e-10_r8 + rate(:,160) = 1e-20_r8 + rate(:,161) = 1.3e-16_r8 + rate(:,163) = 4.2e-13_r8 + rate(:,165) = 8e-14_r8 + rate(:,166) = 3.9e-17_r8 + rate(:,173) = 6.9e-12_r8 + rate(:,174) = 7.2e-11_r8 + rate(:,175) = 1.6e-12_r8 + rate(:,181) = 1.8e-12_r8 + rate(:,185) = 1.8e-12_r8 + rate(:,188) = 1.06e-05_r8 + rate(:,190) = 7e-11_r8 + rate(:,191) = 7e-13_r8 + rate(:,199) = 3.5e-12_r8 + rate(:,201) = 1.3e-11_r8 + rate(:,202) = 2.2e-11_r8 + rate(:,203) = 5e-11_r8 + rate(:,241) = 1.7e-13_r8 + rate(:,243) = 2.607e-10_r8 + rate(:,244) = 9.75e-11_r8 + rate(:,245) = 2.07e-10_r8 + rate(:,246) = 2.088e-10_r8 + rate(:,247) = 1.17e-10_r8 + rate(:,248) = 4.644e-11_r8 + rate(:,249) = 1.204e-10_r8 + rate(:,250) = 9.9e-11_r8 + rate(:,251) = 3.3e-12_r8 + rate(:,270) = 4.5e-11_r8 + rate(:,271) = 4.62e-10_r8 + rate(:,272) = 1.2e-10_r8 + rate(:,273) = 9e-11_r8 + rate(:,274) = 3e-11_r8 + rate(:,279) = 2.14e-11_r8 + rate(:,280) = 1.9e-10_r8 + rate(:,293) = 2.57e-10_r8 + rate(:,294) = 1.8e-10_r8 + rate(:,295) = 1.794e-10_r8 + rate(:,296) = 1.3e-10_r8 + rate(:,297) = 7.65e-11_r8 + rate(:,310) = 4e-13_r8 + rate(:,314) = 1.31e-10_r8 + rate(:,315) = 3.5e-11_r8 + rate(:,316) = 9e-12_r8 + rate(:,323) = 6.8e-14_r8 + rate(:,324) = 2e-13_r8 + rate(:,339) = 1e-12_r8 + rate(:,343) = 1e-14_r8 + rate(:,344) = 1e-11_r8 + rate(:,345) = 1.15e-11_r8 + rate(:,346) = 4e-14_r8 + rate(:,359) = 1.45e-10_r8 + rate(:,360) = 3e-12_r8 + rate(:,361) = 6.7e-13_r8 + rate(:,371) = 3.5e-13_r8 + rate(:,372) = 5.4e-11_r8 + rate(:,375) = 2e-12_r8 + rate(:,376) = 1.4e-11_r8 + rate(:,379) = 2.4e-12_r8 + rate(:,390) = 5e-12_r8 + rate(:,400) = 2.2e-12_r8 + rate(:,402) = 6.7e-12_r8 + rate(:,405) = 3.5e-12_r8 + rate(:,408) = 1.3e-11_r8 + rate(:,409) = 1.4e-11_r8 + rate(:,413) = 2.4e-12_r8 + rate(:,414) = 1.4e-11_r8 + rate(:,419) = 2.4e-12_r8 + rate(:,420) = 4e-11_r8 + rate(:,421) = 4e-11_r8 + rate(:,423) = 1.4e-11_r8 + rate(:,427) = 2.4e-12_r8 + rate(:,428) = 4e-11_r8 + rate(:,432) = 7e-11_r8 + rate(:,433) = 1e-10_r8 + rate(:,438) = 2.4e-12_r8 + rate(:,453) = 4.7e-11_r8 + rate(:,466) = 2.1e-12_r8 + rate(:,467) = 2.8e-13_r8 + rate(:,475) = 1.7e-11_r8 + rate(:,481) = 8.4e-11_r8 + rate(:,483) = 1.9e-11_r8 + rate(:,484) = 1.2e-14_r8 + rate(:,485) = 2e-10_r8 + rate(:,492) = 2.4e-12_r8 + rate(:,493) = 2e-11_r8 + rate(:,497) = 2.3e-11_r8 + rate(:,498) = 2e-11_r8 + rate(:,502) = 3.3e-11_r8 + rate(:,503) = 1e-12_r8 + rate(:,504) = 5.7e-11_r8 + rate(:,505) = 3.4e-11_r8 + rate(:,510) = 2.3e-12_r8 + rate(:,512) = 1.2e-11_r8 + rate(:,513) = 5.7e-11_r8 + rate(:,514) = 2.8e-11_r8 + rate(:,515) = 6.6e-11_r8 + rate(:,516) = 1.4e-11_r8 + rate(:,519) = 1.9e-12_r8 + rate(:,532) = 6.34e-08_r8 + rate(:,538) = 1.9e-11_r8 + rate(:,541) = 1.2e-14_r8 + rate(:,542) = 2e-10_r8 + rate(:,553) = 1.34e-11_r8 + rate(:,559) = 1.34e-11_r8 + rate(:,563) = 1.7e-11_r8 + rate(:,586) = 6e-11_r8 + rate(:,589) = 1e-12_r8 + rate(:,590) = 4e-10_r8 + rate(:,591) = 2e-10_r8 + rate(:,592) = 1e-10_r8 + rate(:,593) = 5e-16_r8 + rate(:,594) = 4.4e-10_r8 + rate(:,595) = 9e-10_r8 + rate(:,598) = 1.29e-07_r8 + rate(:,599) = 2.31e-07_r8 + rate(:,600) = 2.31e-06_r8 + rate(:,601) = 4.63e-07_r8 do n = 1,pver offset = (n-1)*ncol @@ -168,378 +170,377 @@ subroutine setrxt( rate, temp, m, ncol ) exp_fac(:) = exp( 55._r8 * itemp(:) ) rate(:,156) = 2.64e-11_r8 * exp_fac(:) rate(:,157) = 6.6e-12_r8 * exp_fac(:) - rate(:,161) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:,163) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:,166) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:,167) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:,170) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) + rate(:,162) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) + rate(:,164) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) + rate(:,167) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) + rate(:,168) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) + rate(:,171) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) exp_fac(:) = exp( -2000._r8 * itemp(:) ) - rate(:,171) = 1.4e-12_r8 * exp_fac(:) - rate(:,425) = 1.05e-14_r8 * exp_fac(:) - rate(:,545) = 1.05e-14_r8 * exp_fac(:) + rate(:,172) = 1.4e-12_r8 * exp_fac(:) + rate(:,429) = 1.05e-14_r8 * exp_fac(:) + rate(:,549) = 1.05e-14_r8 * exp_fac(:) exp_fac(:) = exp( 200._r8 * itemp(:) ) - rate(:,176) = 3e-11_r8 * exp_fac(:) - rate(:,264) = 5.5e-12_r8 * exp_fac(:) - rate(:,303) = 3.8e-12_r8 * exp_fac(:) - rate(:,324) = 3.8e-12_r8 * exp_fac(:) - rate(:,351) = 3.8e-12_r8 * exp_fac(:) - rate(:,360) = 3.8e-12_r8 * exp_fac(:) + rate(:,177) = 3e-11_r8 * exp_fac(:) + rate(:,268) = 5.5e-12_r8 * exp_fac(:) + rate(:,307) = 3.8e-12_r8 * exp_fac(:) + rate(:,328) = 3.8e-12_r8 * exp_fac(:) + rate(:,355) = 3.8e-12_r8 * exp_fac(:) rate(:,364) = 3.8e-12_r8 * exp_fac(:) - rate(:,380) = 2.3e-11_r8 * exp_fac(:) - rate(:,390) = 3.8e-12_r8 * exp_fac(:) - rate(:,400) = 3.8e-12_r8 * exp_fac(:) - rate(:,427) = 1.52e-11_r8 * exp_fac(:) - rate(:,435) = 1.52e-12_r8 * exp_fac(:) - rate(:,441) = 3.8e-12_r8 * exp_fac(:) - rate(:,444) = 3.8e-12_r8 * exp_fac(:) + rate(:,368) = 3.8e-12_r8 * exp_fac(:) + rate(:,384) = 2.3e-11_r8 * exp_fac(:) + rate(:,394) = 3.8e-12_r8 * exp_fac(:) + rate(:,404) = 3.8e-12_r8 * exp_fac(:) + rate(:,431) = 1.52e-11_r8 * exp_fac(:) + rate(:,439) = 1.52e-12_r8 * exp_fac(:) + rate(:,445) = 3.8e-12_r8 * exp_fac(:) rate(:,448) = 3.8e-12_r8 * exp_fac(:) - rate(:,464) = 3.8e-12_r8 * exp_fac(:) + rate(:,452) = 3.8e-12_r8 * exp_fac(:) rate(:,468) = 3.8e-12_r8 * exp_fac(:) - rate(:,474) = 3.8e-12_r8 * exp_fac(:) + rate(:,472) = 3.8e-12_r8 * exp_fac(:) rate(:,478) = 3.8e-12_r8 * exp_fac(:) - rate(:,177) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:,178) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:,179) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) + rate(:,482) = 3.8e-12_r8 * exp_fac(:) + rate(:,178) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) + rate(:,179) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) + rate(:,180) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) exp_fac(:) = exp( 250._r8 * itemp(:) ) - rate(:,181) = 4.8e-11_r8 * exp_fac(:) - rate(:,262) = 1.7e-11_r8 * exp_fac(:) + rate(:,182) = 4.8e-11_r8 * exp_fac(:) + rate(:,266) = 1.7e-11_r8 * exp_fac(:) exp_fac(:) = exp( 180._r8 * itemp(:) ) - rate(:,182) = 1.8e-11_r8 * exp_fac(:) - rate(:,337) = 4.2e-12_r8 * exp_fac(:) - rate(:,350) = 4.2e-12_r8 * exp_fac(:) - rate(:,359) = 4.2e-12_r8 * exp_fac(:) - rate(:,388) = 4.2e-12_r8 * exp_fac(:) - rate(:,408) = 4.4e-12_r8 * exp_fac(:) - rate(:,414) = 4.4e-12_r8 * exp_fac(:) - rate(:,487) = 4.2e-12_r8 * exp_fac(:) - rate(:,492) = 4.2e-12_r8 * exp_fac(:) - rate(:,497) = 4.2e-12_r8 * exp_fac(:) - rate(:,183) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,187) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) - rate(:,190) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:,183) = 1.8e-11_r8 * exp_fac(:) + rate(:,341) = 4.2e-12_r8 * exp_fac(:) + rate(:,363) = 4.2e-12_r8 * exp_fac(:) + rate(:,392) = 4.2e-12_r8 * exp_fac(:) + rate(:,412) = 4.4e-12_r8 * exp_fac(:) + rate(:,418) = 4.4e-12_r8 * exp_fac(:) + rate(:,491) = 4.2e-12_r8 * exp_fac(:) + rate(:,496) = 4.2e-12_r8 * exp_fac(:) + rate(:,501) = 4.2e-12_r8 * exp_fac(:) + rate(:,184) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) + rate(:,189) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) + rate(:,192) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,191) = 2.9e-12_r8 * exp_fac(:) - rate(:,192) = 1.45e-12_r8 * exp_fac(:) - rate(:,193) = 1.45e-12_r8 * exp_fac(:) - rate(:,194) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) - rate(:,195) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:,193) = 2.9e-12_r8 * exp_fac(:) + rate(:,194) = 1.45e-12_r8 * exp_fac(:) + rate(:,195) = 1.45e-12_r8 * exp_fac(:) + rate(:,196) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) - rate(:,196) = 1.2e-13_r8 * exp_fac(:) - rate(:,222) = 3e-11_r8 * exp_fac(:) + rate(:,197) = 1.2e-13_r8 * exp_fac(:) + rate(:,226) = 3e-11_r8 * exp_fac(:) exp_fac(:) = exp( 125._r8 * itemp(:) ) - rate(:,199) = 1.7e-11_r8 * exp_fac(:) - rate(:,297) = 5.5e-12_r8 * exp_fac(:) + rate(:,200) = 1.7e-11_r8 * exp_fac(:) + rate(:,301) = 5.5e-12_r8 * exp_fac(:) exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,203) = 3.44e-12_r8 * exp_fac(:) - rate(:,255) = 2.3e-12_r8 * exp_fac(:) - rate(:,258) = 8.8e-12_r8 * exp_fac(:) + rate(:,204) = 3.44e-12_r8 * exp_fac(:) + rate(:,259) = 2.3e-12_r8 * exp_fac(:) + rate(:,262) = 8.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) - rate(:,204) = 3e-12_r8 * exp_fac(:) - rate(:,263) = 5.8e-12_r8 * exp_fac(:) + rate(:,205) = 3e-12_r8 * exp_fac(:) + rate(:,267) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) - rate(:,206) = 7.26e-11_r8 * exp_fac(:) - rate(:,207) = 4.64e-11_r8 * exp_fac(:) - rate(:,214) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,215) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,216) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,217) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,207) = 7.26e-11_r8 * exp_fac(:) + rate(:,208) = 4.64e-11_r8 * exp_fac(:) + rate(:,218) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,219) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,220) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,221) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,218) = 1.4e-11_r8 * exp_fac(:) - rate(:,232) = 7.4e-12_r8 * exp_fac(:) - rate(:,333) = 8.1e-12_r8 * exp_fac(:) - rate(:,219) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,220) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,221) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,223) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,224) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,222) = 1.4e-11_r8 * exp_fac(:) + rate(:,236) = 7.4e-12_r8 * exp_fac(:) + rate(:,337) = 8.1e-12_r8 * exp_fac(:) + rate(:,223) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,224) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,225) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,227) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,228) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,225) = 2.6e-12_r8 * exp_fac(:) - rate(:,226) = 6.4e-12_r8 * exp_fac(:) - rate(:,256) = 4.1e-13_r8 * exp_fac(:) - rate(:,437) = 7.5e-12_r8 * exp_fac(:) - rate(:,451) = 7.5e-12_r8 * exp_fac(:) - rate(:,454) = 7.5e-12_r8 * exp_fac(:) - rate(:,457) = 7.5e-12_r8 * exp_fac(:) - rate(:,227) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,229) = 2.6e-12_r8 * exp_fac(:) + rate(:,230) = 6.4e-12_r8 * exp_fac(:) + rate(:,260) = 4.1e-13_r8 * exp_fac(:) + rate(:,441) = 7.5e-12_r8 * exp_fac(:) + rate(:,455) = 7.5e-12_r8 * exp_fac(:) + rate(:,458) = 7.5e-12_r8 * exp_fac(:) + rate(:,461) = 7.5e-12_r8 * exp_fac(:) + rate(:,231) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,229) = 3.6e-12_r8 * exp_fac(:) - rate(:,278) = 2e-12_r8 * exp_fac(:) - rate(:,230) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,231) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,233) = 3.6e-12_r8 * exp_fac(:) + rate(:,282) = 2e-12_r8 * exp_fac(:) + rate(:,234) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,235) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,233) = 6e-13_r8 * exp_fac(:) - rate(:,253) = 1.5e-12_r8 * exp_fac(:) - rate(:,261) = 1.9e-11_r8 * exp_fac(:) - rate(:,234) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,235) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,236) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,237) = 6e-13_r8 * exp_fac(:) + rate(:,257) = 1.5e-12_r8 * exp_fac(:) + rate(:,265) = 1.9e-11_r8 * exp_fac(:) + rate(:,238) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,239) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,240) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,238) = 3e-12_r8 * exp_fac(:) - rate(:,272) = 1.4e-10_r8 * exp_fac(:) + rate(:,242) = 3e-12_r8 * exp_fac(:) + rate(:,276) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,250) = 1.7e-11_r8 * exp_fac(:) - rate(:,277) = 6.3e-12_r8 * exp_fac(:) - rate(:,251) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,252) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,254) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - rate(:,257) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,260) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,265) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,271) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,254) = 1.7e-11_r8 * exp_fac(:) + rate(:,281) = 6.3e-12_r8 * exp_fac(:) + rate(:,255) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,256) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,258) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,261) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,264) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,269) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,275) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,273) = 1.4e-11_r8 * exp_fac(:) - rate(:,275) = 2.14e-11_r8 * exp_fac(:) - rate(:,276) = 1.9e-10_r8 * exp_fac(:) - rate(:,289) = 2.57e-10_r8 * exp_fac(:) - rate(:,290) = 1.8e-10_r8 * exp_fac(:) - rate(:,291) = 1.794e-10_r8 * exp_fac(:) - rate(:,292) = 1.3e-10_r8 * exp_fac(:) - rate(:,293) = 7.65e-11_r8 * exp_fac(:) - rate(:,306) = 4e-13_r8 * exp_fac(:) - rate(:,310) = 1.31e-10_r8 * exp_fac(:) - rate(:,311) = 3.5e-11_r8 * exp_fac(:) - rate(:,312) = 9e-12_r8 * exp_fac(:) - rate(:,319) = 6.8e-14_r8 * exp_fac(:) - rate(:,320) = 2e-13_r8 * exp_fac(:) - rate(:,335) = 1e-12_r8 * exp_fac(:) - rate(:,339) = 1e-14_r8 * exp_fac(:) - rate(:,340) = 1e-11_r8 * exp_fac(:) - rate(:,341) = 1.15e-11_r8 * exp_fac(:) - rate(:,342) = 4e-14_r8 * exp_fac(:) - rate(:,355) = 1.45e-10_r8 * exp_fac(:) - rate(:,356) = 3e-12_r8 * exp_fac(:) - rate(:,357) = 6.7e-13_r8 * exp_fac(:) - rate(:,367) = 3.5e-13_r8 * exp_fac(:) - rate(:,368) = 5.4e-11_r8 * exp_fac(:) - rate(:,371) = 2e-12_r8 * exp_fac(:) - rate(:,372) = 1.4e-11_r8 * exp_fac(:) - rate(:,375) = 2.4e-12_r8 * exp_fac(:) - rate(:,386) = 5e-12_r8 * exp_fac(:) - rate(:,396) = 1.6e-12_r8 * exp_fac(:) - rate(:,398) = 6.7e-12_r8 * exp_fac(:) - rate(:,401) = 3.5e-12_r8 * exp_fac(:) - rate(:,404) = 1.3e-11_r8 * exp_fac(:) - rate(:,405) = 1.4e-11_r8 * exp_fac(:) - rate(:,409) = 2.4e-12_r8 * exp_fac(:) - rate(:,410) = 1.4e-11_r8 * exp_fac(:) - rate(:,415) = 2.4e-12_r8 * exp_fac(:) - rate(:,416) = 4e-11_r8 * exp_fac(:) - rate(:,417) = 4e-11_r8 * exp_fac(:) - rate(:,419) = 1.4e-11_r8 * exp_fac(:) - rate(:,423) = 2.4e-12_r8 * exp_fac(:) - rate(:,424) = 4e-11_r8 * exp_fac(:) - rate(:,428) = 7e-11_r8 * exp_fac(:) - rate(:,429) = 1e-10_r8 * exp_fac(:) - rate(:,434) = 2.4e-12_r8 * exp_fac(:) - rate(:,449) = 4.7e-11_r8 * exp_fac(:) - rate(:,462) = 2.1e-12_r8 * exp_fac(:) - rate(:,463) = 2.8e-13_r8 * exp_fac(:) - rate(:,471) = 1.7e-11_r8 * exp_fac(:) - rate(:,477) = 8.4e-11_r8 * exp_fac(:) - rate(:,479) = 1.9e-11_r8 * exp_fac(:) - rate(:,480) = 1.2e-14_r8 * exp_fac(:) - rate(:,481) = 2e-10_r8 * exp_fac(:) - rate(:,488) = 2.4e-12_r8 * exp_fac(:) - rate(:,489) = 2e-11_r8 * exp_fac(:) - rate(:,493) = 2.3e-11_r8 * exp_fac(:) - rate(:,494) = 2e-11_r8 * exp_fac(:) - rate(:,498) = 3.3e-11_r8 * exp_fac(:) - rate(:,499) = 1e-12_r8 * exp_fac(:) - rate(:,500) = 5.7e-11_r8 * exp_fac(:) - rate(:,501) = 3.4e-11_r8 * exp_fac(:) - rate(:,506) = 2.3e-12_r8 * exp_fac(:) - rate(:,508) = 1.2e-11_r8 * exp_fac(:) - rate(:,509) = 5.7e-11_r8 * exp_fac(:) - rate(:,510) = 2.8e-11_r8 * exp_fac(:) - rate(:,511) = 6.6e-11_r8 * exp_fac(:) - rate(:,512) = 1.4e-11_r8 * exp_fac(:) - rate(:,515) = 1.9e-12_r8 * exp_fac(:) - rate(:,528) = 6.34e-08_r8 * exp_fac(:) - rate(:,534) = 1.9e-11_r8 * exp_fac(:) - rate(:,537) = 1.2e-14_r8 * exp_fac(:) - rate(:,538) = 2e-10_r8 * exp_fac(:) - rate(:,549) = 1.34e-11_r8 * exp_fac(:) - rate(:,555) = 1.34e-11_r8 * exp_fac(:) - rate(:,559) = 1.7e-11_r8 * exp_fac(:) - rate(:,582) = 6e-11_r8 * exp_fac(:) - rate(:,585) = 1e-12_r8 * exp_fac(:) - rate(:,586) = 4e-10_r8 * exp_fac(:) - rate(:,587) = 2e-10_r8 * exp_fac(:) - rate(:,588) = 1e-10_r8 * exp_fac(:) - rate(:,589) = 5e-16_r8 * exp_fac(:) - rate(:,590) = 4.4e-10_r8 * exp_fac(:) - rate(:,591) = 9e-10_r8 * exp_fac(:) - rate(:,594) = 1.29e-07_r8 * exp_fac(:) - rate(:,595) = 2.31e-07_r8 * exp_fac(:) - rate(:,596) = 2.31e-06_r8 * exp_fac(:) - rate(:,597) = 4.63e-07_r8 * exp_fac(:) + rate(:,277) = 1.4e-11_r8 * exp_fac(:) + rate(:,279) = 2.14e-11_r8 * exp_fac(:) + rate(:,280) = 1.9e-10_r8 * exp_fac(:) + rate(:,293) = 2.57e-10_r8 * exp_fac(:) + rate(:,294) = 1.8e-10_r8 * exp_fac(:) + rate(:,295) = 1.794e-10_r8 * exp_fac(:) + rate(:,296) = 1.3e-10_r8 * exp_fac(:) + rate(:,297) = 7.65e-11_r8 * exp_fac(:) + rate(:,310) = 4e-13_r8 * exp_fac(:) + rate(:,314) = 1.31e-10_r8 * exp_fac(:) + rate(:,315) = 3.5e-11_r8 * exp_fac(:) + rate(:,316) = 9e-12_r8 * exp_fac(:) + rate(:,323) = 6.8e-14_r8 * exp_fac(:) + rate(:,324) = 2e-13_r8 * exp_fac(:) + rate(:,339) = 1e-12_r8 * exp_fac(:) + rate(:,343) = 1e-14_r8 * exp_fac(:) + rate(:,344) = 1e-11_r8 * exp_fac(:) + rate(:,345) = 1.15e-11_r8 * exp_fac(:) + rate(:,346) = 4e-14_r8 * exp_fac(:) + rate(:,359) = 1.45e-10_r8 * exp_fac(:) + rate(:,360) = 3e-12_r8 * exp_fac(:) + rate(:,361) = 6.7e-13_r8 * exp_fac(:) + rate(:,371) = 3.5e-13_r8 * exp_fac(:) + rate(:,372) = 5.4e-11_r8 * exp_fac(:) + rate(:,375) = 2e-12_r8 * exp_fac(:) + rate(:,376) = 1.4e-11_r8 * exp_fac(:) + rate(:,379) = 2.4e-12_r8 * exp_fac(:) + rate(:,390) = 5e-12_r8 * exp_fac(:) + rate(:,400) = 2.2e-12_r8 * exp_fac(:) + rate(:,402) = 6.7e-12_r8 * exp_fac(:) + rate(:,405) = 3.5e-12_r8 * exp_fac(:) + rate(:,408) = 1.3e-11_r8 * exp_fac(:) + rate(:,409) = 1.4e-11_r8 * exp_fac(:) + rate(:,413) = 2.4e-12_r8 * exp_fac(:) + rate(:,414) = 1.4e-11_r8 * exp_fac(:) + rate(:,419) = 2.4e-12_r8 * exp_fac(:) + rate(:,420) = 4e-11_r8 * exp_fac(:) + rate(:,421) = 4e-11_r8 * exp_fac(:) + rate(:,423) = 1.4e-11_r8 * exp_fac(:) + rate(:,427) = 2.4e-12_r8 * exp_fac(:) + rate(:,428) = 4e-11_r8 * exp_fac(:) + rate(:,432) = 7e-11_r8 * exp_fac(:) + rate(:,433) = 1e-10_r8 * exp_fac(:) + rate(:,438) = 2.4e-12_r8 * exp_fac(:) + rate(:,453) = 4.7e-11_r8 * exp_fac(:) + rate(:,466) = 2.1e-12_r8 * exp_fac(:) + rate(:,467) = 2.8e-13_r8 * exp_fac(:) + rate(:,475) = 1.7e-11_r8 * exp_fac(:) + rate(:,481) = 8.4e-11_r8 * exp_fac(:) + rate(:,483) = 1.9e-11_r8 * exp_fac(:) + rate(:,484) = 1.2e-14_r8 * exp_fac(:) + rate(:,485) = 2e-10_r8 * exp_fac(:) + rate(:,492) = 2.4e-12_r8 * exp_fac(:) + rate(:,493) = 2e-11_r8 * exp_fac(:) + rate(:,497) = 2.3e-11_r8 * exp_fac(:) + rate(:,498) = 2e-11_r8 * exp_fac(:) + rate(:,502) = 3.3e-11_r8 * exp_fac(:) + rate(:,503) = 1e-12_r8 * exp_fac(:) + rate(:,504) = 5.7e-11_r8 * exp_fac(:) + rate(:,505) = 3.4e-11_r8 * exp_fac(:) + rate(:,510) = 2.3e-12_r8 * exp_fac(:) + rate(:,512) = 1.2e-11_r8 * exp_fac(:) + rate(:,513) = 5.7e-11_r8 * exp_fac(:) + rate(:,514) = 2.8e-11_r8 * exp_fac(:) + rate(:,515) = 6.6e-11_r8 * exp_fac(:) + rate(:,516) = 1.4e-11_r8 * exp_fac(:) + rate(:,519) = 1.9e-12_r8 * exp_fac(:) + rate(:,532) = 6.34e-08_r8 * exp_fac(:) + rate(:,538) = 1.9e-11_r8 * exp_fac(:) + rate(:,541) = 1.2e-14_r8 * exp_fac(:) + rate(:,542) = 2e-10_r8 * exp_fac(:) + rate(:,553) = 1.34e-11_r8 * exp_fac(:) + rate(:,559) = 1.34e-11_r8 * exp_fac(:) + rate(:,563) = 1.7e-11_r8 * exp_fac(:) + rate(:,586) = 6e-11_r8 * exp_fac(:) + rate(:,589) = 1e-12_r8 * exp_fac(:) + rate(:,590) = 4e-10_r8 * exp_fac(:) + rate(:,591) = 2e-10_r8 * exp_fac(:) + rate(:,592) = 1e-10_r8 * exp_fac(:) + rate(:,593) = 5e-16_r8 * exp_fac(:) + rate(:,594) = 4.4e-10_r8 * exp_fac(:) + rate(:,595) = 9e-10_r8 * exp_fac(:) + rate(:,598) = 1.29e-07_r8 * exp_fac(:) + rate(:,599) = 2.31e-07_r8 * exp_fac(:) + rate(:,600) = 2.31e-06_r8 * exp_fac(:) + rate(:,601) = 4.63e-07_r8 * exp_fac(:) exp_fac(:) = exp( 400._r8 * itemp(:) ) - rate(:,274) = 6e-12_r8 * exp_fac(:) - rate(:,373) = 5e-13_r8 * exp_fac(:) - rate(:,406) = 5e-13_r8 * exp_fac(:) - rate(:,411) = 5e-13_r8 * exp_fac(:) - rate(:,420) = 5e-13_r8 * exp_fac(:) - rate(:,431) = 5e-13_r8 * exp_fac(:) - rate(:,279) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,280) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,278) = 6e-12_r8 * exp_fac(:) + rate(:,377) = 5e-13_r8 * exp_fac(:) + rate(:,410) = 5e-13_r8 * exp_fac(:) + rate(:,415) = 5e-13_r8 * exp_fac(:) + rate(:,424) = 5e-13_r8 * exp_fac(:) + rate(:,435) = 5e-13_r8 * exp_fac(:) + rate(:,283) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,284) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) exp_fac(:) = exp( -1520._r8 * itemp(:) ) - rate(:,281) = 1.64e-12_r8 * exp_fac(:) - rate(:,392) = 8.5e-16_r8 * exp_fac(:) + rate(:,285) = 1.64e-12_r8 * exp_fac(:) + rate(:,396) = 8.5e-16_r8 * exp_fac(:) exp_fac(:) = exp( -1100._r8 * itemp(:) ) - rate(:,282) = 2.03e-11_r8 * exp_fac(:) - rate(:,514) = 3.4e-12_r8 * exp_fac(:) - rate(:,283) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,284) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,285) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,286) = 2.03e-11_r8 * exp_fac(:) + rate(:,518) = 3.4e-12_r8 * exp_fac(:) + rate(:,287) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) + rate(:,288) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) + rate(:,289) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,286) = 1.25e-12_r8 * exp_fac(:) - rate(:,296) = 3.4e-11_r8 * exp_fac(:) - rate(:,287) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,288) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,294) = 9.7e-15_r8 * exp( 625._r8 * itemp(:) ) - rate(:,295) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,298) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) - rate(:,299) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) - rate(:,300) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,290) = 1.25e-12_r8 * exp_fac(:) + rate(:,300) = 3.4e-11_r8 * exp_fac(:) + rate(:,291) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,292) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,298) = 9.7e-15_r8 * exp( 625._r8 * itemp(:) ) + rate(:,299) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,302) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) + rate(:,303) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) + rate(:,304) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) exp_fac(:) = exp( 300._r8 * itemp(:) ) - rate(:,301) = 2.8e-12_r8 * exp_fac(:) - rate(:,363) = 2.9e-12_r8 * exp_fac(:) - rate(:,302) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) - rate(:,304) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,305) = 2.8e-12_r8 * exp_fac(:) + rate(:,367) = 2.9e-12_r8 * exp_fac(:) + rate(:,306) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) + rate(:,308) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) exp_fac(:) = exp( 700._r8 * itemp(:) ) - rate(:,307) = 7.5e-13_r8 * exp_fac(:) - rate(:,321) = 7.5e-13_r8 * exp_fac(:) - rate(:,336) = 7.5e-13_r8 * exp_fac(:) - rate(:,349) = 7.5e-13_r8 * exp_fac(:) - rate(:,358) = 7.5e-13_r8 * exp_fac(:) - rate(:,362) = 8.6e-13_r8 * exp_fac(:) - rate(:,374) = 8e-13_r8 * exp_fac(:) - rate(:,387) = 7.5e-13_r8 * exp_fac(:) - rate(:,397) = 7.5e-13_r8 * exp_fac(:) - rate(:,407) = 8e-13_r8 * exp_fac(:) - rate(:,412) = 8e-13_r8 * exp_fac(:) - rate(:,421) = 8e-13_r8 * exp_fac(:) - rate(:,432) = 8e-13_r8 * exp_fac(:) - rate(:,439) = 7.5e-13_r8 * exp_fac(:) + rate(:,311) = 7.5e-13_r8 * exp_fac(:) + rate(:,325) = 7.5e-13_r8 * exp_fac(:) + rate(:,340) = 7.5e-13_r8 * exp_fac(:) + rate(:,362) = 7.5e-13_r8 * exp_fac(:) + rate(:,366) = 8.6e-13_r8 * exp_fac(:) + rate(:,378) = 8e-13_r8 * exp_fac(:) + rate(:,391) = 7.5e-13_r8 * exp_fac(:) + rate(:,401) = 7.5e-13_r8 * exp_fac(:) + rate(:,411) = 8e-13_r8 * exp_fac(:) + rate(:,416) = 8e-13_r8 * exp_fac(:) + rate(:,425) = 8e-13_r8 * exp_fac(:) + rate(:,436) = 8e-13_r8 * exp_fac(:) rate(:,443) = 7.5e-13_r8 * exp_fac(:) - rate(:,446) = 7.5e-13_r8 * exp_fac(:) - rate(:,459) = 7.5e-13_r8 * exp_fac(:) - rate(:,466) = 7.5e-13_r8 * exp_fac(:) - rate(:,472) = 7.5e-13_r8 * exp_fac(:) - rate(:,475) = 7.5e-13_r8 * exp_fac(:) - rate(:,486) = 7.5e-13_r8 * exp_fac(:) - rate(:,491) = 7.5e-13_r8 * exp_fac(:) - rate(:,496) = 7.5e-13_r8 * exp_fac(:) - rate(:,540) = 7.5e-13_r8 * exp_fac(:) - rate(:,547) = 7.5e-13_r8 * exp_fac(:) - rate(:,557) = 7.5e-13_r8 * exp_fac(:) - rate(:,560) = 7.5e-13_r8 * exp_fac(:) - rate(:,308) = 2.4e+12_r8 * exp( -7000._r8 * itemp(:) ) - rate(:,309) = 2.6e-12_r8 * exp( 265._r8 * itemp(:) ) - rate(:,313) = 1.08e-10_r8 * exp( 105._r8 * itemp(:) ) - rate(:,318) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) + rate(:,447) = 7.5e-13_r8 * exp_fac(:) + rate(:,450) = 7.5e-13_r8 * exp_fac(:) + rate(:,463) = 7.5e-13_r8 * exp_fac(:) + rate(:,470) = 7.5e-13_r8 * exp_fac(:) + rate(:,476) = 7.5e-13_r8 * exp_fac(:) + rate(:,479) = 7.5e-13_r8 * exp_fac(:) + rate(:,490) = 7.5e-13_r8 * exp_fac(:) + rate(:,495) = 7.5e-13_r8 * exp_fac(:) + rate(:,500) = 7.5e-13_r8 * exp_fac(:) + rate(:,544) = 7.5e-13_r8 * exp_fac(:) + rate(:,551) = 7.5e-13_r8 * exp_fac(:) + rate(:,561) = 7.5e-13_r8 * exp_fac(:) + rate(:,564) = 7.5e-13_r8 * exp_fac(:) + rate(:,312) = 2.4e+12_r8 * exp( -7000._r8 * itemp(:) ) + rate(:,313) = 2.6e-12_r8 * exp( 265._r8 * itemp(:) ) + rate(:,317) = 1.08e-10_r8 * exp( 105._r8 * itemp(:) ) + rate(:,322) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) exp_fac(:) = exp( 365._r8 * itemp(:) ) - rate(:,322) = 2.6e-12_r8 * exp_fac(:) - rate(:,440) = 2.6e-12_r8 * exp_fac(:) - rate(:,445) = 2.6e-12_r8 * exp_fac(:) - rate(:,447) = 2.6e-12_r8 * exp_fac(:) - rate(:,460) = 2.6e-12_r8 * exp_fac(:) - rate(:,467) = 2.6e-12_r8 * exp_fac(:) - rate(:,473) = 2.6e-12_r8 * exp_fac(:) - rate(:,476) = 2.6e-12_r8 * exp_fac(:) - rate(:,541) = 2.6e-12_r8 * exp_fac(:) - rate(:,548) = 2.6e-12_r8 * exp_fac(:) - rate(:,558) = 2.6e-12_r8 * exp_fac(:) - rate(:,561) = 2.6e-12_r8 * exp_fac(:) - rate(:,323) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) - rate(:,325) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) - rate(:,326) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) + rate(:,326) = 2.6e-12_r8 * exp_fac(:) + rate(:,444) = 2.6e-12_r8 * exp_fac(:) + rate(:,449) = 2.6e-12_r8 * exp_fac(:) + rate(:,451) = 2.6e-12_r8 * exp_fac(:) + rate(:,464) = 2.6e-12_r8 * exp_fac(:) + rate(:,471) = 2.6e-12_r8 * exp_fac(:) + rate(:,477) = 2.6e-12_r8 * exp_fac(:) + rate(:,480) = 2.6e-12_r8 * exp_fac(:) + rate(:,545) = 2.6e-12_r8 * exp_fac(:) + rate(:,552) = 2.6e-12_r8 * exp_fac(:) + rate(:,562) = 2.6e-12_r8 * exp_fac(:) + rate(:,565) = 2.6e-12_r8 * exp_fac(:) + rate(:,327) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) + rate(:,329) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) + rate(:,330) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) exp_fac(:) = exp( -1900._r8 * itemp(:) ) - rate(:,327) = 1.4e-12_r8 * exp_fac(:) - rate(:,347) = 6.5e-15_r8 * exp_fac(:) + rate(:,331) = 1.4e-12_r8 * exp_fac(:) + rate(:,351) = 6.5e-15_r8 * exp_fac(:) exp_fac(:) = exp( 350._r8 * itemp(:) ) - rate(:,328) = 4.63e-12_r8 * exp_fac(:) - rate(:,544) = 2.7e-12_r8 * exp_fac(:) - rate(:,329) = 7.8e-13_r8 * exp( -1050._r8 * itemp(:) ) + rate(:,332) = 4.63e-12_r8 * exp_fac(:) + rate(:,548) = 2.7e-12_r8 * exp_fac(:) + rate(:,333) = 7.8e-13_r8 * exp( -1050._r8 * itemp(:) ) exp_fac(:) = exp( 500._r8 * itemp(:) ) - rate(:,330) = 2.9e-12_r8 * exp_fac(:) - rate(:,331) = 2e-12_r8 * exp_fac(:) - rate(:,361) = 7.1e-13_r8 * exp_fac(:) - rate(:,382) = 2e-12_r8 * exp_fac(:) - rate(:,485) = 2e-12_r8 * exp_fac(:) - rate(:,490) = 2e-12_r8 * exp_fac(:) - rate(:,495) = 2e-12_r8 * exp_fac(:) + rate(:,334) = 2.9e-12_r8 * exp_fac(:) + rate(:,335) = 2e-12_r8 * exp_fac(:) + rate(:,365) = 7.1e-13_r8 * exp_fac(:) + rate(:,386) = 2e-12_r8 * exp_fac(:) + rate(:,489) = 2e-12_r8 * exp_fac(:) + rate(:,494) = 2e-12_r8 * exp_fac(:) + rate(:,499) = 2e-12_r8 * exp_fac(:) exp_fac(:) = exp( 1040._r8 * itemp(:) ) - rate(:,332) = 4.3e-13_r8 * exp_fac(:) - rate(:,383) = 4.3e-13_r8 * exp_fac(:) - rate(:,436) = 4.3e-13_r8 * exp_fac(:) - rate(:,450) = 4.3e-13_r8 * exp_fac(:) - rate(:,453) = 4.3e-13_r8 * exp_fac(:) - rate(:,456) = 4.3e-13_r8 * exp_fac(:) - rate(:,334) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) - rate(:,338) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) - rate(:,346) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) - rate(:,348) = 3.75e-13_r8 * exp( -40._r8 * itemp(:) ) - rate(:,352) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) - rate(:,353) = 1.4e-12_r8 * exp( -1860._r8 * itemp(:) ) - rate(:,354) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) - rate(:,369) = 4.8e-12_r8 * exp( 120._r8 * itemp(:) ) - rate(:,370) = 5.1e-14_r8 * exp( 693._r8 * itemp(:) ) + rate(:,336) = 4.3e-13_r8 * exp_fac(:) + rate(:,387) = 4.3e-13_r8 * exp_fac(:) + rate(:,440) = 4.3e-13_r8 * exp_fac(:) + rate(:,454) = 4.3e-13_r8 * exp_fac(:) + rate(:,457) = 4.3e-13_r8 * exp_fac(:) + rate(:,460) = 4.3e-13_r8 * exp_fac(:) + rate(:,338) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) + rate(:,342) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) + rate(:,350) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) + rate(:,352) = 1e-13_r8 * exp( 557._r8 * itemp(:) ) + exp_fac(:) = exp( 1300._r8 * itemp(:) ) + rate(:,353) = 1.41e-13_r8 * exp_fac(:) + rate(:,539) = 2.75e-13_r8 * exp_fac(:) + rate(:,547) = 2.12e-13_r8 * exp_fac(:) + rate(:,555) = 2.6e-13_r8 * exp_fac(:) exp_fac(:) = exp( 360._r8 * itemp(:) ) - rate(:,376) = 2.7e-12_r8 * exp_fac(:) - rate(:,377) = 1.3e-13_r8 * exp_fac(:) - rate(:,379) = 9.6e-12_r8 * exp_fac(:) - rate(:,385) = 5.3e-12_r8 * exp_fac(:) - rate(:,422) = 2.7e-12_r8 * exp_fac(:) - rate(:,433) = 2.7e-12_r8 * exp_fac(:) - rate(:,536) = 2.7e-12_r8 * exp_fac(:) - rate(:,552) = 2.7e-12_r8 * exp_fac(:) - rate(:,378) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) + rate(:,354) = 2.7e-12_r8 * exp_fac(:) + rate(:,380) = 2.7e-12_r8 * exp_fac(:) + rate(:,381) = 1.3e-13_r8 * exp_fac(:) + rate(:,383) = 9.6e-12_r8 * exp_fac(:) + rate(:,389) = 5.3e-12_r8 * exp_fac(:) + rate(:,426) = 2.7e-12_r8 * exp_fac(:) + rate(:,437) = 2.7e-12_r8 * exp_fac(:) + rate(:,540) = 2.7e-12_r8 * exp_fac(:) + rate(:,556) = 2.7e-12_r8 * exp_fac(:) + rate(:,356) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) + rate(:,357) = 1.4e-12_r8 * exp( -1860._r8 * itemp(:) ) + rate(:,358) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) + rate(:,373) = 4.8e-12_r8 * exp( 120._r8 * itemp(:) ) + rate(:,374) = 5.1e-14_r8 * exp( 693._r8 * itemp(:) ) + rate(:,382) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) exp_fac(:) = exp( 530._r8 * itemp(:) ) - rate(:,381) = 4.6e-12_r8 * exp_fac(:) - rate(:,384) = 2.3e-12_r8 * exp_fac(:) - rate(:,389) = 2.3e-12_r8 * exp( -170._r8 * itemp(:) ) - rate(:,393) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) - rate(:,399) = 5.4e-14_r8 * exp( 870._r8 * itemp(:) ) + rate(:,385) = 4.6e-12_r8 * exp_fac(:) + rate(:,388) = 2.3e-12_r8 * exp_fac(:) + rate(:,393) = 2.3e-12_r8 * exp( -170._r8 * itemp(:) ) + rate(:,397) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) + rate(:,403) = 5.4e-14_r8 * exp( 870._r8 * itemp(:) ) exp_fac(:) = exp( 175._r8 * itemp(:) ) - rate(:,402) = 1.86e-11_r8 * exp_fac(:) - rate(:,403) = 1.86e-11_r8 * exp_fac(:) - rate(:,413) = 1.6e+09_r8 * exp( -8300._r8 * itemp(:) ) + rate(:,406) = 1.86e-11_r8 * exp_fac(:) + rate(:,407) = 1.86e-11_r8 * exp_fac(:) + rate(:,417) = 1.6e+09_r8 * exp( -8300._r8 * itemp(:) ) exp_fac(:) = exp( -446._r8 * itemp(:) ) - rate(:,418) = 3.03e-12_r8 * exp_fac(:) - rate(:,542) = 3.03e-12_r8 * exp_fac(:) + rate(:,422) = 3.03e-12_r8 * exp_fac(:) + rate(:,546) = 3.03e-12_r8 * exp_fac(:) exp_fac(:) = exp( 410._r8 * itemp(:) ) - rate(:,426) = 2.54e-11_r8 * exp_fac(:) - rate(:,546) = 2.54e-11_r8 * exp_fac(:) - rate(:,430) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) + rate(:,430) = 2.54e-11_r8 * exp_fac(:) + rate(:,550) = 2.54e-11_r8 * exp_fac(:) + rate(:,434) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) exp_fac(:) = exp( -193._r8 * itemp(:) ) - rate(:,438) = 2.3e-12_r8 * exp_fac(:) - rate(:,539) = 2.3e-12_r8 * exp_fac(:) - rate(:,442) = 5.9e-12_r8 * exp( 225._r8 * itemp(:) ) - rate(:,461) = 4.7e-13_r8 * exp( 1220._r8 * itemp(:) ) + rate(:,442) = 2.3e-12_r8 * exp_fac(:) + rate(:,543) = 2.3e-12_r8 * exp_fac(:) + rate(:,446) = 5.9e-12_r8 * exp( 225._r8 * itemp(:) ) + rate(:,465) = 4.7e-13_r8 * exp( 1220._r8 * itemp(:) ) exp_fac(:) = exp( 352._r8 * itemp(:) ) - rate(:,469) = 1.7e-12_r8 * exp_fac(:) - rate(:,556) = 1.7e-12_r8 * exp_fac(:) + rate(:,473) = 1.7e-12_r8 * exp_fac(:) + rate(:,560) = 1.7e-12_r8 * exp_fac(:) exp_fac(:) = exp( 490._r8 * itemp(:) ) - rate(:,482) = 1.2e-12_r8 * exp_fac(:) - rate(:,550) = 1.2e-12_r8 * exp_fac(:) + rate(:,486) = 1.2e-12_r8 * exp_fac(:) + rate(:,554) = 1.2e-12_r8 * exp_fac(:) exp_fac(:) = exp( -580._r8 * itemp(:) ) - rate(:,483) = 6.3e-16_r8 * exp_fac(:) - rate(:,553) = 6.3e-16_r8 * exp_fac(:) + rate(:,487) = 6.3e-16_r8 * exp_fac(:) + rate(:,557) = 6.3e-16_r8 * exp_fac(:) exp_fac(:) = exp( 440._r8 * itemp(:) ) - rate(:,484) = 1.2e-11_r8 * exp_fac(:) - rate(:,554) = 1.2e-11_r8 * exp_fac(:) - rate(:,502) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,503) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) - rate(:,504) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,505) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,513) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,516) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) - rate(:,519) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) - exp_fac(:) = exp( 1300._r8 * itemp(:) ) - rate(:,535) = 2.75e-13_r8 * exp_fac(:) - rate(:,543) = 2.12e-13_r8 * exp_fac(:) - rate(:,551) = 2.6e-13_r8 * exp_fac(:) + rate(:,488) = 1.2e-11_r8 * exp_fac(:) + rate(:,558) = 1.2e-11_r8 * exp_fac(:) + rate(:,506) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,507) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) + rate(:,508) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,509) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,517) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,520) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) + rate(:,523) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) @@ -547,99 +548,99 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 5.3e-32_r8 * itemp(:)**1.8_r8 kinf(:) = 9.5e-11_r8 * itemp(:)**(-0.4_r8) - call jpl( rate(:,175), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,176), m, 0.6_r8, ko, kinf, n ) ko(:) = 6.9e-31_r8 * itemp(:)**1._r8 kinf(:) = 2.6e-11_r8 - call jpl( rate(:,185), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,186), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.5e-31_r8 * itemp(:)**1.8_r8 kinf(:) = 2.2e-11_r8 * itemp(:)**0.7_r8 - call jpl( rate(:,197), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,198), m, 0.6_r8, ko, kinf, n ) ko(:) = 9e-32_r8 * itemp(:)**1.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,205), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,206), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 4e-12_r8 * itemp(:)**0.3_r8 - call jpl( rate(:,208), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,209), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.4e-30_r8 * itemp(:)**3._r8 kinf(:) = 1.6e-12_r8 * itemp(:)**(-0.1_r8) - call jpl( rate(:,209), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,210), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 kinf(:) = 2.8e-11_r8 - call jpl( rate(:,210), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,211), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,228), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,232), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-32_r8 * itemp(:)**3.6_r8 kinf(:) = 3.7e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,248), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,252), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.2e-31_r8 * itemp(:)**3.2_r8 kinf(:) = 6.9e-12_r8 * itemp(:)**2.9_r8 - call jpl( rate(:,259), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,263), m, 0.6_r8, ko, kinf, n ) ko(:) = 6.1e-33_r8 * itemp(:)**1.5_r8 kinf(:) = 9.8e-15_r8 * itemp(:)**(-4.6_r8) - call jpl( rate(:,305), m, 0.8_r8, ko, kinf, n ) + call jpl( rate(:,309), m, 0.8_r8, ko, kinf, n ) ko(:) = 5.2e-30_r8 * itemp(:)**2.4_r8 kinf(:) = 2.2e-10_r8 * itemp(:)**0.7_r8 - call jpl( rate(:,315), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,319), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.5e-30_r8 kinf(:) = 8.3e-13_r8 * itemp(:)**(-2._r8) - call jpl( rate(:,316), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,320), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.6e-29_r8 * itemp(:)**3.3_r8 kinf(:) = 3.1e-10_r8 * itemp(:) - call jpl( rate(:,317), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,321), m, 0.6_r8, ko, kinf, n ) ko(:) = 8.6e-29_r8 * itemp(:)**3.1_r8 kinf(:) = 9e-12_r8 * itemp(:)**0.85_r8 - call jpl( rate(:,343), m, 0.48_r8, ko, kinf, n ) + call jpl( rate(:,347), m, 0.48_r8, ko, kinf, n ) ko(:) = 7.3e-29_r8 * itemp(:)**4.1_r8 kinf(:) = 9.5e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,344), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,348), m, 0.6_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,365), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,369), m, 0.5_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,391), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,395), m, 0.5_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,394), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,398), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,452), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,456), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,455), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,459), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,458), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,462), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,465), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,469), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.9e-31_r8 * itemp(:)**4.1_r8 kinf(:) = 1.7e-12_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,507), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,511), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -677,19 +678,19 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) n = ncol*kbot - rate(:n,159) = 1e-20_r8 - rate(:n,160) = 1.3e-16_r8 - rate(:n,164) = 8e-14_r8 - rate(:n,165) = 3.9e-17_r8 - rate(:n,172) = 6.9e-12_r8 - rate(:n,188) = 7e-13_r8 - rate(:n,189) = 5e-12_r8 - rate(:n,582) = 6e-11_r8 - rate(:n,585) = 1e-12_r8 - rate(:n,586) = 4e-10_r8 - rate(:n,587) = 2e-10_r8 - rate(:n,588) = 1e-10_r8 - rate(:n,590) = 4.4e-10_r8 + rate(:n,160) = 1e-20_r8 + rate(:n,161) = 1.3e-16_r8 + rate(:n,165) = 8e-14_r8 + rate(:n,166) = 3.9e-17_r8 + rate(:n,173) = 6.9e-12_r8 + rate(:n,190) = 7e-11_r8 + rate(:n,191) = 7e-13_r8 + rate(:n,586) = 6e-11_r8 + rate(:n,589) = 1e-12_r8 + rate(:n,590) = 4e-10_r8 + rate(:n,591) = 2e-10_r8 + rate(:n,592) = 1e-10_r8 + rate(:n,594) = 4.4e-10_r8 do k = 1,kbot offset = (k-1)*ncol @@ -700,28 +701,27 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) exp_fac(:) = exp( 55._r8 * itemp(:) ) rate(:n,156) = 2.64e-11_r8 * exp_fac(:) rate(:n,157) = 6.6e-12_r8 * exp_fac(:) - rate(:n,161) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:n,163) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:n,166) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:n,167) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:n,176) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) - rate(:n,177) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:n,178) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:n,181) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) - rate(:n,182) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:n,183) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,190) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,194) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) - rate(:n,195) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,203) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) - rate(:n,204) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) + rate(:n,162) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) + rate(:n,164) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) + rate(:n,167) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) + rate(:n,168) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) + rate(:n,177) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) + rate(:n,178) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) + rate(:n,179) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) + rate(:n,182) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) + rate(:n,183) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) + rate(:n,184) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) + rate(:n,192) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:n,196) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:n,204) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) + rate(:n,205) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) ko(:) = 5.3e-32_r8 * itemp(:)**1.8_r8 kinf(:) = 9.5e-11_r8 * itemp(:)**(-0.4_r8) call jpl( wrk, m, 0.6_r8, ko, kinf, n ) - rate(:n,175) = wrk(:) + rate(:n,176) = wrk(:) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5/mo_sim_dat.F90 b/src/chemistry/pp_waccm_tsmlt_mam5/mo_sim_dat.F90 index 1b1ef18da7..6eba200d95 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5/mo_sim_dat.F90 @@ -34,7 +34,7 @@ subroutine set_sim_dat clscnt(:) = (/ 2, 0, 0, 239, 0 /) cls_rxt_cnt(:,1) = (/ 9, 0, 0, 2 /) - cls_rxt_cnt(:,4) = (/ 8, 185, 404, 239 /) + cls_rxt_cnt(:,4) = (/ 8, 186, 407, 239 /) solsym(:241) = (/ 'ALKNIT ','ALKOOH ','AOA_NH ','bc_a1 ','bc_a4 ', & 'BCARY ','BENZENE ','BENZOOH ','BEPOMUC ','BIGALD ', & @@ -214,29 +214,29 @@ subroutine set_sim_dat 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, & 233, 234, 235, 236, 237, 238, 239, 240, 241 /) - permute(:239,4) = (/ 155, 159, 1, 2, 3, 188, 71, 122, 72, 116, & - 130, 98, 149, 108, 85, 113, 221, 86, 223, 145, & - 4, 88, 111, 100, 143, 95, 112, 102, 199, 121, & + permute(:239,4) = (/ 156, 159, 1, 2, 3, 189, 71, 122, 72, 116, & + 130, 98, 148, 108, 85, 113, 221, 86, 224, 144, & + 4, 88, 111, 100, 142, 95, 112, 102, 199, 121, & 103, 96, 56, 67, 68, 59, 69, 60, 70, 61, & - 133, 229, 150, 62, 200, 115, 57, 195, 210, 161, & - 152, 173, 128, 236, 117, 234, 74, 54, 224, 187, & + 133, 229, 149, 62, 200, 115, 57, 195, 210, 161, & + 151, 173, 128, 223, 117, 227, 74, 54, 233, 187, & 5, 201, 217, 89, 91, 79, 104, 6, 7, 8, & - 9, 63, 184, 202, 192, 233, 218, 58, 147, 64, & - 174, 90, 92, 101, 220, 77, 183, 99, 231, 237, & - 132, 169, 175, 204, 84, 205, 107, 65, 179, 148, & - 144, 120, 162, 50, 209, 105, 138, 106, 151, 190, & - 214, 189, 93, 97, 124, 196, 10, 11, 12, 55, & - 13, 14, 15, 227, 228, 225, 180, 118, 16, 17, & - 18, 19, 20, 232, 222, 235, 21, 109, 114, 87, & - 141, 66, 131, 73, 110, 22, 23, 142, 119, 163, & + 9, 63, 184, 202, 191, 234, 218, 58, 147, 64, & + 174, 90, 92, 101, 220, 77, 183, 99, 237, 236, & + 132, 169, 175, 204, 84, 205, 107, 65, 179, 146, & + 143, 120, 162, 50, 209, 105, 138, 106, 150, 188, & + 214, 192, 93, 97, 124, 196, 10, 11, 12, 55, & + 13, 14, 15, 230, 228, 235, 180, 118, 16, 17, & + 18, 19, 20, 231, 222, 232, 21, 109, 114, 87, & + 140, 66, 131, 73, 110, 22, 23, 141, 119, 164, & 24, 219, 186, 94, 25, 26, 27, 28, 29, 30, & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & - 41, 42, 43, 44, 45, 80, 156, 153, 134, 194, & - 198, 157, 78, 81, 82, 164, 83, 123, 139, 191, & + 41, 42, 43, 44, 45, 80, 157, 153, 134, 194, & + 198, 158, 78, 81, 82, 163, 83, 123, 139, 190, & 46, 135, 47, 125, 181, 185, 154, 216, 238, 168, & - 178, 146, 129, 170, 126, 211, 212, 208, 48, 49, & - 213, 165, 215, 182, 160, 51, 140, 158, 176, 136, & - 197, 230, 75, 76, 177, 226, 171, 127, 172, 206, & + 178, 145, 129, 170, 126, 211, 212, 208, 48, 49, & + 213, 165, 215, 182, 160, 51, 155, 152, 176, 136, & + 197, 225, 75, 76, 177, 226, 171, 127, 172, 206, & 203, 193, 166, 52, 207, 167, 53, 137, 239 /) diag_map(:239) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & @@ -253,28 +253,26 @@ subroutine set_sim_dat 345, 350, 355, 363, 371, 379, 385, 391, 397, 403, & 409, 415, 421, 427, 435, 441, 448, 454, 460, 465, & 468, 472, 479, 486, 495, 502, 510, 517, 523, 529, & - 534, 542, 550, 558, 566, 574, 582, 589, 598, 602, & - 611, 620, 627, 635, 642, 652, 665, 676, 687, 698, & - 705, 711, 718, 729, 740, 751, 767, 778, 787, 797, & - 805, 814, 824, 828, 837, 845, 853, 865, 876, 892, & - 901, 910, 919, 925, 935, 947, 955, 974, 999,1018, & - 1042,1054,1062,1072,1080,1090,1106,1119,1133,1151, & - 1160,1166,1178,1195,1208,1217,1233,1253,1269,1281, & - 1299,1332,1356,1376,1397,1428,1450,1461,1476,1495, & - 1511,1542,1565,1592,1652,1818,1914,1960,1987,2031, & - 2055,2099,2121,2168,2233,2259,2368,2421,2449 /) + 537, 545, 553, 561, 569, 577, 586, 593, 597, 606, & + 615, 622, 631, 639, 645, 652, 662, 675, 686, 697, & + 704, 710, 721, 732, 739, 750, 766, 777, 786, 796, & + 804, 813, 823, 827, 836, 844, 852, 864, 875, 891, & + 900, 909, 918, 924, 934, 946, 954, 973,1001,1025, & + 1037,1048,1061,1071,1079,1089,1105,1118,1132,1150, & + 1159,1165,1177,1194,1207,1216,1232,1252,1268,1280, & + 1298,1331,1355,1375,1396,1427,1449,1460,1475,1494, & + 1510,1541,1563,1589,1632,1798,1845,1891,1918,2015, & + 2059,2124,2152,2174,2235,2344,2368,2421,2449 /) - extfrc_lst(: 22) = (/ 'CO ','SVOC ','SO2 ','NO2 ','NO ', & - 'num_a1 ','num_a2 ','so4_a1 ','so4_a2 ','num_a5 ', & - 'so4_a5 ','num_a4 ','pom_a4 ','bc_a4 ','O2p ', & - 'N2p ','N2D ','AOA_NH ','N ','OH ', & - 'Op ','e ' /) + extfrc_lst(: 20) = (/ 'CO ','SVOC ','SO2 ','NO2 ','NO ', & + 'num_a1 ','num_a2 ','so4_a1 ','so4_a2 ','num_a4 ', & + 'pom_a4 ','bc_a4 ','O2p ','N2p ','N2D ', & + 'AOA_NH ','N ','OH ','Op ','e ' /) - frc_from_dataset(: 22) = (/ .true., .true., .true., .true., .true., & + frc_from_dataset(: 20) = (/ .true., .true., .true., .true., .true., & .true., .true., .true., .true., .true., & - .true., .true., .true., .true., .false., & - .false., .false., .false., .false., .false., & - .false., .false. /) + .true., .true., .false., .false., .false., & + .false., .false., .false., .false., .false. /) inv_lst(: 2) = (/ 'M ', 'N2 ' /) @@ -384,34 +382,36 @@ subroutine set_sim_dat 'O1D_H2 ', 'O1D_H2O ', & 'O1D_N2 ', 'O1D_O2 ', & 'O1D_O2b ', 'O1D_O3 ', & - 'O2_1D_N2 ', 'O2_1D_O ', & - 'O2_1D_O2 ', 'O2_1S_CO2 ', & - 'O2_1S_N2 ', 'O2_1S_O ', & - 'O2_1S_O2 ', 'O2_1S_O3 ', & - 'O_O3 ', 'usr_O_O ', & - 'usr_O_O2 ', 'H2_O ', & - 'H2O2_O ', 'H_HO2 ', & - 'H_HO2a ', 'H_HO2b ', & - 'H_O2 ', 'HO2_O ', & - 'HO2_O3 ', 'H_O3 ', & - 'OH_H2 ', 'OH_H2O2 ', & - 'OH_HO2 ', 'OH_O ', & - 'OH_O3 ', 'OH_OH ', & - 'OH_OH_M ', 'usr_HO2_HO2 ', & - 'HO2NO2_OH ', 'N2D_O ', & - 'N2D_O2 ', 'N_NO ', & + 'O1D_O3a ', 'O2_1D_N2 ', & + 'O2_1D_O ', 'O2_1D_O2 ', & + 'O2_1S_CO2 ', 'O2_1S_N2 ', & + 'O2_1S_O ', 'O2_1S_O2 ', & + 'O2_1S_O3 ', 'O_O3 ', & + 'usr_O_O ', 'usr_O_O2 ', & + 'H2_O ', 'H2O2_O ', & + 'H_HO2 ', 'H_HO2a ', & + 'H_HO2b ', 'H_O2 ', & + 'HO2_O ', 'HO2_O3 ', & + 'H_O3 ', 'OH_H2 ', & + 'OH_H2O2 ', 'OH_HO2 ', & + 'OH_O ', 'OH_O3 ', & + 'OH_OH ', 'OH_OH_M ', & + 'usr_HO2_HO2 ', 'agn2d ', & + 'HO2NO2_OH ', 'N2D_NO ', & + 'N2D_O ', 'N_NO ', & 'N_NO2a ', 'N_NO2b ', & - 'N_NO2c ', 'N_O2 ', & - 'NO2_O ', 'NO2_O3 ', & - 'NO2_O_M ', 'NO3_HO2 ', & - 'NO3_NO ', 'NO3_O ' /) - rxt_tag_lst( 201: 400) = (/ 'NO3_OH ', 'N_OH ', & - 'NO_HO2 ', 'NO_O3 ', & - 'NO_O_M ', 'O1D_N2Oa ', & - 'O1D_N2Ob ', 'tag_NO2_HO2 ', & - 'tag_NO2_NO3 ', 'tag_NO2_OH ', & - 'usr_HNO3_OH ', 'usr_HO2NO2_M ', & - 'usr_N2O5_M ', 'CL_CH2O ', & + 'N_NO2c ', 'NO2_O ', & + 'NO2_O3 ', 'NO2_O_M ', & + 'NO3_HO2 ', 'NO3_NO ' /) + rxt_tag_lst( 201: 400) = (/ 'NO3_O ', 'NO3_OH ', & + 'N_OH ', 'NO_HO2 ', & + 'NO_O3 ', 'NO_O_M ', & + 'O1D_N2Oa ', 'O1D_N2Ob ', & + 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & + 'tag_NO2_OH ', 'usr_HNO3_OH ', & + 'usr_HO2NO2_M ', 'usr_N2D_e ', & + 'usr_N2D_O2 ', 'usr_N2O5_M ', & + 'usr_N_O2 ', 'CL_CH2O ', & 'CL_CH4 ', 'CL_H2 ', & 'CL_H2O2 ', 'CL_HO2a ', & 'CL_HO2b ', 'CL_O3 ', & @@ -502,10 +502,10 @@ subroutine set_sim_dat 'MEK_OH ', 'MEKOOH_OH ', & 'MPAN_OH_M ', 'MVK_O3 ', & 'MVK_OH ', 'tag_MCO3_NO2 ', & - 'usr_MPAN_M ', 'ALKNIT_OH ', & - 'ALKO2_HO2 ', 'ALKO2_NO ', & - 'ALKO2_NOb ', 'ALKOOH_OH ' /) - rxt_tag_lst( 401: 597) = (/ 'BIGALK_OH ', 'HPALD_OH ', & + 'usr_MPAN_M ', 'ALKNIT_OH ' /) + rxt_tag_lst( 401: 600) = (/ 'ALKO2_HO2 ', 'ALKO2_NO ', & + 'ALKO2_NOb ', 'ALKOOH_OH ', & + 'BIGALK_OH ', 'HPALD_OH ', & 'HYDRALD_OH ', 'IEPOX_OH ', & 'ISOPAO2_CH3CO3 ', 'ISOPAO2_CH3O2 ', & 'ISOPAO2_HO2 ', 'ISOPAO2_NO ', & @@ -602,8 +602,8 @@ subroutine set_sim_dat 'ion_O2p_N2 ', 'ion_O2p_NO ', & 'ion_Op_CO2 ', 'ion_Op_N2 ', & 'ion_Op_O2 ', 'E90_tau ', & - 'NH_50_tau ', 'NH_5_tau ', & - 'ST80_25_tau ' /) + 'NH_50_tau ', 'NH_5_tau ' /) + rxt_tag_lst( 601: 601) = (/ 'ST80_25_tau ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -663,7 +663,8 @@ subroutine set_sim_dat 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, & 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, & 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, & - 591, 592, 593, 594, 595, 596, 597 /) + 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, & + 601 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -826,74 +827,75 @@ subroutine set_sim_dat write(iulog,*) 'set_sim_dat: failed to allocate cph_rid; error = ',ios call endrun end if - cph_rid(:) = (/ 155, 156, 157, 159, 160, & - 161, 163, 164, 165, 166, & - 167, 168, 169, 172, 175, & - 176, 177, 178, 181, 182, & - 183, 186, 188, 189, 190, & - 194, 195, 203, 204, 579, & - 580, 581, 582, 583, 585, & - 586, 587, 588, 590, 592, & - 593 /) + cph_rid(:) = (/ 155, 156, 157, 160, 161, & + 162, 164, 165, 166, 167, & + 168, 169, 170, 173, 176, & + 177, 178, 179, 182, 183, & + 184, 187, 190, 191, 192, & + 196, 204, 205, 214, 215, & + 217, 583, 584, 585, 586, & + 587, 589, 590, 591, 592, & + 594, 596, 597 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & - 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 82.389000_r8, & - 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & - 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & - 150.110000_r8 /) + 165.300000_r8, 165.510000_r8, 543.130000_r8, 229.610000_r8, 313.750000_r8, & + 193.020000_r8, 34.470000_r8, 199.170000_r8, 229.610000_r8, 177.510000_r8, & + 133.750000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, 339.590000_r8, & + 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, 406.160000_r8, & + 271.380000_r8, 105.040000_r8, 150.110000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios call endrun end if num_rnts(:) = (/ 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 3, 3, 3, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, & + 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 3, 2, 1, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & + 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 1, 2, 2, & - 2, 2, 2, 2, 3, 3, 3, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & + 2, 1, 2, 2, 2, 2, 2, 2, 3, 3, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, & - 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, & + 2, 1, 2, 2, 2, 2, 3, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & - 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, & + 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 1, 2, 1, 1, 1, 1, 2, 2, 2, & - 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 1, 1, 1, 1 /) + 2, 2, 2, 2, 2, 1, 2, 1, 1, 1, & + 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, & + 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & + 1 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.doc b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.doc index 16bc23d75f..dffa74e464 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.doc +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.doc @@ -7,255 +7,255 @@ ( 4) bc_a1 (C) ( 5) bc_a4 (C) ( 6) BCARY (C15H24) - ( 7) BCARYO2VBS (C15H25O3) - ( 8) BENZENE (C6H6) - ( 9) BENZO2VBS (C6H7O5) - ( 10) BENZOOH (C6H8O5) - ( 11) BEPOMUC (C6H6O3) - ( 12) BIGALD (C5H6O2) - ( 13) BIGALD1 (C4H4O2) - ( 14) BIGALD2 (C5H6O2) - ( 15) BIGALD3 (C5H6O2) - ( 16) BIGALD4 (C6H8O2) - ( 17) BIGALK (C5H12) - ( 18) BIGENE (C4H8) - ( 19) BR (Br) - ( 20) BRCL (BrCl) - ( 21) BRO (BrO) - ( 22) BRONO2 (BrONO2) - ( 23) BRY - ( 24) BZALD (C7H6O) - ( 25) BZOOH (C7H8O2) - ( 26) C2H2 - ( 27) C2H4 - ( 28) C2H5OH - ( 29) C2H5OOH - ( 30) C2H6 - ( 31) C3H6 - ( 32) C3H7OOH - ( 33) C3H8 - ( 34) C6H5OOH (C6H5OOH) - ( 35) CCL4 (CCl4) - ( 36) CF2CLBR (CF2ClBr) - ( 37) CF3BR (CF3Br) - ( 38) CFC11 (CFCl3) - ( 39) CFC113 (CCl2FCClF2) - ( 40) CFC114 (CClF2CClF2) - ( 41) CFC115 (CClF2CF3) - ( 42) CFC12 (CF2Cl2) - ( 43) CH2BR2 (CH2Br2) - ( 44) CH2O - ( 45) CH3BR (CH3Br) - ( 46) CH3CCL3 (CH3CCl3) - ( 47) CH3CHO - ( 48) CH3CL (CH3Cl) - ( 49) CH3CN - ( 50) CH3COCH3 - ( 51) CH3COCHO - ( 52) CH3COOH - ( 53) CH3COOOH - ( 54) CH3OH - ( 55) CH3OOH - ( 56) CH4 - ( 57) CHBR3 (CHBr3) - ( 58) CL (Cl) - ( 59) CL2 (Cl2) - ( 60) CL2O2 (Cl2O2) - ( 61) CLO (ClO) - ( 62) CLONO2 (ClONO2) - ( 63) CLY - ( 64) CO - ( 65) CO2 - ( 66) COF2 - ( 67) COFCL (COFCl) - ( 68) CRESOL (C7H8O) - ( 69) DMS (CH3SCH3) - ( 70) dst_a1 (AlSiO5) - ( 71) dst_a2 (AlSiO5) - ( 72) dst_a3 (AlSiO5) - ( 73) E90 (CO) - ( 74) EOOH (HOCH2CH2OOH) - ( 75) F - ( 76) GLYALD (HOCH2CHO) - ( 77) GLYOXAL (C2H2O2) - ( 78) H - ( 79) H2 - ( 80) H2402 (CBrF2CBrF2) - ( 81) H2O2 - ( 82) H2SO4 (H2SO4) - ( 83) HBR (HBr) - ( 84) HCFC141B (CH3CCl2F) - ( 85) HCFC142B (CH3CClF2) - ( 86) HCFC22 (CHF2Cl) - ( 87) HCL (HCl) - ( 88) HCN - ( 89) HCOOH - ( 90) HF - ( 91) HNO3 - ( 92) HO2NO2 - ( 93) HOBR (HOBr) - ( 94) HOCL (HOCl) - ( 95) HONITR (C4H9NO4) - ( 96) HPALD (HOOCH2CCH3CHCHO) - ( 97) HYAC (CH3COCH2OH) - ( 98) HYDRALD (HOCH2CCH3CHCHO) - ( 99) IEPOX (C5H10O3) - (100) ISOP (C5H8) - (101) ISOPNITA (C5H9NO4) - (102) ISOPNITB (C5H9NO4) - (103) ISOPNO3 (CH2CHCCH3OOCH2ONO2) - (104) ISOPNOOH (C5H9NO5) - (105) ISOPO2VBS (C5H9O3) - (106) ISOPOOH (HOCH2COOHCH3CHCH2) - (107) IVOCbb (C13H28) - (108) IVOCbbO2VBS (C13H29O3) - (109) IVOCff (C13H28) - (110) IVOCffO2VBS (C13H29O3) - (111) MACR (CH2CCH3CHO) - (112) MACROOH (CH3COCHOOHCH2OH) - (113) MEK (C4H8O) - (114) MEKOOH (C4H8O3) - (115) MPAN (CH2CCH3CO3NO2) - (116) MTERP (C10H16) - (117) MTERPO2VBS (C10H17O3) - (118) MVK (CH2CHCOCH3) - (119) N - (120) N2O - (121) N2O5 - (122) NC4CH2OH (C5H9NO4) - (123) NC4CHO (C5H7NO4) - (124) ncl_a1 (NaCl) - (125) ncl_a2 (NaCl) - (126) ncl_a3 (NaCl) - (127) NH3 - (128) NH4 - (129) NH_5 (CO) - (130) NH_50 (CO) - (131) NO - (132) NO2 - (133) NO3 - (134) NOA (CH3COCH2ONO2) - (135) NTERPOOH (C10H17NO5) - (136) num_a1 (H) - (137) num_a2 (H) - (138) num_a3 (H) - (139) num_a4 (H) - (140) num_a5 (H) - (141) O - (142) O2 - (143) O3 - (144) O3S (O3) - (145) OCLO (OClO) - (146) OCS (OCS) - (147) ONITR (C4H7NO4) - (148) PAN (CH3CO3NO2) - (149) PBZNIT (C7H5O3NO2) - (150) PHENO (C6H5O) - (151) PHENOL (C6H5OH) - (152) PHENOOH (C6H8O6) - (153) pombb1_a1 (C) - (154) pombb1_a4 (C) - (155) pomff1_a1 (C) - (156) pomff1_a4 (C) - (157) POOH (C3H6OHOOH) - (158) ROOH (CH3COCH2OOH) - (159) S (S) - (160) SF6 - (161) SO (SO) - (162) SO2 - (163) SO3 (SO3) - (164) so4_a1 (NH4HSO4) - (165) so4_a2 (NH4HSO4) - (166) so4_a3 (NH4HSO4) - (167) so4_a5 (NH4HSO4) - (168) soabb1_a1 (C15H38O2) - (169) soabb1_a2 (C15H38O2) - (170) soabb2_a1 (C15H38O2) - (171) soabb2_a2 (C15H38O2) - (172) soabb3_a1 (C15H38O2) - (173) soabb3_a2 (C15H38O2) - (174) soabb4_a1 (C15H38O2) - (175) soabb4_a2 (C15H38O2) - (176) soabb5_a1 (C15H38O2) - (177) soabb5_a2 (C15H38O2) - (178) soabg1_a1 (C15H38O2) - (179) soabg1_a2 (C15H38O2) - (180) soabg2_a1 (C15H38O2) - (181) soabg2_a2 (C15H38O2) - (182) soabg3_a1 (C15H38O2) - (183) soabg3_a2 (C15H38O2) - (184) soabg4_a1 (C15H38O2) - (185) soabg4_a2 (C15H38O2) - (186) soabg5_a1 (C15H38O2) - (187) soabg5_a2 (C15H38O2) - (188) soaff1_a1 (C15H38O2) - (189) soaff1_a2 (C15H38O2) - (190) soaff2_a1 (C15H38O2) - (191) soaff2_a2 (C15H38O2) - (192) soaff3_a1 (C15H38O2) - (193) soaff3_a2 (C15H38O2) - (194) soaff4_a1 (C15H38O2) - (195) soaff4_a2 (C15H38O2) - (196) soaff5_a1 (C15H38O2) - (197) soaff5_a2 (C15H38O2) - (198) SOAGbb0 (C15H38O2) - (199) SOAGbb1 (C15H38O2) - (200) SOAGbb2 (C15H38O2) - (201) SOAGbb3 (C15H38O2) - (202) SOAGbb4 (C15H38O2) - (203) SOAGbg0 (C15H38O2) - (204) SOAGbg1 (C15H38O2) - (205) SOAGbg2 (C15H38O2) - (206) SOAGbg3 (C15H38O2) - (207) SOAGbg4 (C15H38O2) - (208) SOAGff0 (C15H38O2) - (209) SOAGff1 (C15H38O2) - (210) SOAGff2 (C15H38O2) - (211) SOAGff3 (C15H38O2) - (212) SOAGff4 (C15H38O2) - (213) ST80_25 (CO) - (214) SVOCbb (C22H46) - (215) SVOCff (C22H46) - (216) TEPOMUC (C7H8O3) - (217) TERP2OOH (C10H16O4) - (218) TERPNIT (C10H17NO4) - (219) TERPOOH (C10H18O3) - (220) TERPROD1 (C10H16O2) - (221) TERPROD2 (C9H14O2) - (222) TOLOOH (C7H10O5) - (223) TOLUENE (C7H8) - (224) TOLUO2VBS (C7H9O5) - (225) XOOH (HOCH2COOHCH3CHOHCHO) - (226) XYLENES (C8H10) - (227) XYLENOOH (C8H12O5) - (228) XYLEO2VBS (C8H11O5) - (229) XYLOL (C8H10O) - (230) XYLOLOOH (C8H12O6) - (231) NHDEP (N) - (232) NDEP (N) - (233) ACBZO2 (C7H5O3) - (234) ALKO2 (C5H11O2) - (235) BENZO2 (C6H7O5) - (236) BZOO (C7H7O2) - (237) C2H5O2 - (238) C3H7O2 - (239) C6H5O2 - (240) CH3CO3 - (241) CH3O2 - (242) DICARBO2 (C5H5O4) - (243) e (E) - (244) ENEO2 (C4H9O3) - (245) EO (HOCH2CH2O) - (246) EO2 (HOCH2CH2O2) - (247) HO2 - (248) HOCH2OO - (249) ISOPAO2 (HOC5H8O2) - (250) ISOPBO2 (HOC5H8O2) - (251) MACRO2 (CH3COCHO2CH2OH) - (252) MALO2 (C4H3O4) - (253) MCO3 (CH2CCH3CO3) - (254) MDIALO2 (C4H5O4) - (255) MEKO2 (C4H7O3) + ( 7) BENZENE (C6H6) + ( 8) BENZOOH (C6H8O5) + ( 9) BEPOMUC (C6H6O3) + ( 10) BIGALD (C5H6O2) + ( 11) BIGALD1 (C4H4O2) + ( 12) BIGALD2 (C5H6O2) + ( 13) BIGALD3 (C5H6O2) + ( 14) BIGALD4 (C6H8O2) + ( 15) BIGALK (C5H12) + ( 16) BIGENE (C4H8) + ( 17) BR (Br) + ( 18) BRCL (BrCl) + ( 19) BRO (BrO) + ( 20) BRONO2 (BrONO2) + ( 21) BRY + ( 22) BZALD (C7H6O) + ( 23) BZOOH (C7H8O2) + ( 24) C2H2 + ( 25) C2H4 + ( 26) C2H5OH + ( 27) C2H5OOH + ( 28) C2H6 + ( 29) C3H6 + ( 30) C3H7OOH + ( 31) C3H8 + ( 32) C6H5OOH (C6H5OOH) + ( 33) CCL4 (CCl4) + ( 34) CF2CLBR (CF2ClBr) + ( 35) CF3BR (CF3Br) + ( 36) CFC11 (CFCl3) + ( 37) CFC113 (CCl2FCClF2) + ( 38) CFC114 (CClF2CClF2) + ( 39) CFC115 (CClF2CF3) + ( 40) CFC12 (CF2Cl2) + ( 41) CH2BR2 (CH2Br2) + ( 42) CH2O + ( 43) CH3BR (CH3Br) + ( 44) CH3CCL3 (CH3CCl3) + ( 45) CH3CHO + ( 46) CH3CL (CH3Cl) + ( 47) CH3CN + ( 48) CH3COCH3 + ( 49) CH3COCHO + ( 50) CH3COOH + ( 51) CH3COOOH + ( 52) CH3OH + ( 53) CH3OOH + ( 54) CH4 + ( 55) CHBR3 (CHBr3) + ( 56) CL (Cl) + ( 57) CL2 (Cl2) + ( 58) CL2O2 (Cl2O2) + ( 59) CLO (ClO) + ( 60) CLONO2 (ClONO2) + ( 61) CLY + ( 62) CO + ( 63) CO2 + ( 64) COF2 + ( 65) COFCL (COFCl) + ( 66) CRESOL (C7H8O) + ( 67) DMS (CH3SCH3) + ( 68) dst_a1 (AlSiO5) + ( 69) dst_a2 (AlSiO5) + ( 70) dst_a3 (AlSiO5) + ( 71) E90 (CO) + ( 72) EOOH (HOCH2CH2OOH) + ( 73) F + ( 74) GLYALD (HOCH2CHO) + ( 75) GLYOXAL (C2H2O2) + ( 76) H + ( 77) H2 + ( 78) H2402 (CBrF2CBrF2) + ( 79) H2O2 + ( 80) H2SO4 (H2SO4) + ( 81) HBR (HBr) + ( 82) HCFC141B (CH3CCl2F) + ( 83) HCFC142B (CH3CClF2) + ( 84) HCFC22 (CHF2Cl) + ( 85) HCL (HCl) + ( 86) HCN + ( 87) HCOOH + ( 88) HF + ( 89) HNO3 + ( 90) HO2NO2 + ( 91) HOBR (HOBr) + ( 92) HOCL (HOCl) + ( 93) HONITR (C4H9NO4) + ( 94) HPALD (HOOCH2CCH3CHCHO) + ( 95) HYAC (CH3COCH2OH) + ( 96) HYDRALD (HOCH2CCH3CHCHO) + ( 97) IEPOX (C5H10O3) + ( 98) ISOP (C5H8) + ( 99) ISOPNITA (C5H9NO4) + (100) ISOPNITB (C5H9NO4) + (101) ISOPNO3 (CH2CHCCH3OOCH2ONO2) + (102) ISOPNOOH (C5H9NO5) + (103) ISOPOOH (HOCH2COOHCH3CHCH2) + (104) IVOCbb (C13H28) + (105) IVOCff (C13H28) + (106) MACR (CH2CCH3CHO) + (107) MACROOH (CH3COCHOOHCH2OH) + (108) MEK (C4H8O) + (109) MEKOOH (C4H8O3) + (110) MPAN (CH2CCH3CO3NO2) + (111) MTERP (C10H16) + (112) MVK (CH2CHCOCH3) + (113) N + (114) N2O + (115) N2O5 + (116) NC4CH2OH (C5H9NO4) + (117) NC4CHO (C5H7NO4) + (118) ncl_a1 (NaCl) + (119) ncl_a2 (NaCl) + (120) ncl_a3 (NaCl) + (121) NH3 + (122) NH4 + (123) NH_5 (CO) + (124) NH_50 (CO) + (125) NO + (126) NO2 + (127) NO3 + (128) NOA (CH3COCH2ONO2) + (129) NTERPOOH (C10H17NO5) + (130) num_a1 (H) + (131) num_a2 (H) + (132) num_a3 (H) + (133) num_a4 (H) + (134) num_a5 (H) + (135) O + (136) O2 + (137) O3 + (138) O3S (O3) + (139) OCLO (OClO) + (140) OCS (OCS) + (141) ONITR (C4H7NO4) + (142) PAN (CH3CO3NO2) + (143) PBZNIT (C7H5O3NO2) + (144) PHENO (C6H5O) + (145) PHENOL (C6H5OH) + (146) PHENOOH (C6H8O6) + (147) pom_a1 (C) + (148) pom_a4 (C) + (149) pombb1_a1 (C) + (150) pombb1_a4 (C) + (151) pomff1_a1 (C) + (152) pomff1_a4 (C) + (153) POOH (C3H6OHOOH) + (154) ROOH (CH3COCH2OOH) + (155) S (S) + (156) SF6 + (157) SO (SO) + (158) SO2 + (159) SO3 (SO3) + (160) so4_a1 (NH4HSO4) + (161) so4_a2 (NH4HSO4) + (162) so4_a3 (NH4HSO4) + (163) so4_a5 (NH4HSO4) + (164) soabb1_a1 (C15H38O2) + (165) soabb1_a2 (C15H38O2) + (166) soabb2_a1 (C15H38O2) + (167) soabb2_a2 (C15H38O2) + (168) soabb3_a1 (C15H38O2) + (169) soabb3_a2 (C15H38O2) + (170) soabb4_a1 (C15H38O2) + (171) soabb4_a2 (C15H38O2) + (172) soabb5_a1 (C15H38O2) + (173) soabb5_a2 (C15H38O2) + (174) soabg1_a1 (C15H38O2) + (175) soabg1_a2 (C15H38O2) + (176) soabg2_a1 (C15H38O2) + (177) soabg2_a2 (C15H38O2) + (178) soabg3_a1 (C15H38O2) + (179) soabg3_a2 (C15H38O2) + (180) soabg4_a1 (C15H38O2) + (181) soabg4_a2 (C15H38O2) + (182) soabg5_a1 (C15H38O2) + (183) soabg5_a2 (C15H38O2) + (184) soaff1_a1 (C15H38O2) + (185) soaff1_a2 (C15H38O2) + (186) soaff2_a1 (C15H38O2) + (187) soaff2_a2 (C15H38O2) + (188) soaff3_a1 (C15H38O2) + (189) soaff3_a2 (C15H38O2) + (190) soaff4_a1 (C15H38O2) + (191) soaff4_a2 (C15H38O2) + (192) soaff5_a1 (C15H38O2) + (193) soaff5_a2 (C15H38O2) + (194) SOAGbb0 (C15H38O2) + (195) SOAGbb1 (C15H38O2) + (196) SOAGbb2 (C15H38O2) + (197) SOAGbb3 (C15H38O2) + (198) SOAGbb4 (C15H38O2) + (199) SOAGbg0 (C15H38O2) + (200) SOAGbg1 (C15H38O2) + (201) SOAGbg2 (C15H38O2) + (202) SOAGbg3 (C15H38O2) + (203) SOAGbg4 (C15H38O2) + (204) SOAGff0 (C15H38O2) + (205) SOAGff1 (C15H38O2) + (206) SOAGff2 (C15H38O2) + (207) SOAGff3 (C15H38O2) + (208) SOAGff4 (C15H38O2) + (209) ST80_25 (CO) + (210) SVOCbb (C22H46) + (211) SVOCff (C22H46) + (212) TEPOMUC (C7H8O3) + (213) TERP2OOH (C10H16O4) + (214) TERPNIT (C10H17NO4) + (215) TERPOOH (C10H18O3) + (216) TERPROD1 (C10H16O2) + (217) TERPROD2 (C9H14O2) + (218) TOLOOH (C7H10O5) + (219) TOLUENE (C7H8) + (220) XOOH (HOCH2COOHCH3CHOHCHO) + (221) XYLENES (C8H10) + (222) XYLENOOH (C8H12O5) + (223) XYLOL (C8H10O) + (224) XYLOLOOH (C8H12O6) + (225) NHDEP (N) + (226) NDEP (N) + (227) ACBZO2 (C7H5O3) + (228) ALKO2 (C5H11O2) + (229) BCARYO2VBS (C15H25O3) + (230) BENZO2 (C6H7O5) + (231) BENZO2VBS (C6H7O5) + (232) BZOO (C7H7O2) + (233) C2H5O2 + (234) C3H7O2 + (235) C6H5O2 + (236) CH3CO3 + (237) CH3O2 + (238) DICARBO2 (C5H5O4) + (239) e (E) + (240) ENEO2 (C4H9O3) + (241) EO (HOCH2CH2O) + (242) EO2 (HOCH2CH2O2) + (243) HO2 + (244) HOCH2OO + (245) ISOPAO2 (HOC5H8O2) + (246) ISOPBO2 (HOC5H8O2) + (247) ISOPO2VBS (C5H9O3) + (248) IVOCbbO2VBS (C13H29O3) + (249) IVOCffO2VBS (C13H29O3) + (250) MACRO2 (CH3COCHO2CH2OH) + (251) MALO2 (C4H3O4) + (252) MCO3 (CH2CCH3CO3) + (253) MDIALO2 (C4H5O4) + (254) MEKO2 (C4H7O3) + (255) MTERPO2VBS (C10H17O3) (256) N2D (N) (257) N2p (N2) (258) NOp (NO) @@ -273,10 +273,12 @@ (270) TERP2O2 (C10H15O4) (271) TERPO2 (C10H17O3) (272) TOLO2 (C7H9O5) - (273) XO2 (HOCH2COOCH3CHOHCHO) - (274) XYLENO2 (C8H11O5) - (275) XYLOLO2 (C8H11O6) - (276) H2O + (273) TOLUO2VBS (C7H9O5) + (274) XO2 (HOCH2COOCH3CHOHCHO) + (275) XYLENO2 (C8H11O5) + (276) XYLEO2VBS (C8H11O5) + (277) XYLOLO2 (C8H11O6) + (278) H2O Invariant species @@ -303,253 +305,253 @@ Class List ( 4) bc_a1 ( 5) bc_a4 ( 6) BCARY - ( 7) BCARYO2VBS - ( 8) BENZENE - ( 9) BENZO2VBS - ( 10) BENZOOH - ( 11) BEPOMUC - ( 12) BIGALD - ( 13) BIGALD1 - ( 14) BIGALD2 - ( 15) BIGALD3 - ( 16) BIGALD4 - ( 17) BIGALK - ( 18) BIGENE - ( 19) BR - ( 20) BRCL - ( 21) BRO - ( 22) BRONO2 - ( 23) BRY - ( 24) BZALD - ( 25) BZOOH - ( 26) C2H2 - ( 27) C2H4 - ( 28) C2H5OH - ( 29) C2H5OOH - ( 30) C2H6 - ( 31) C3H6 - ( 32) C3H7OOH - ( 33) C3H8 - ( 34) C6H5OOH - ( 35) CCL4 - ( 36) CF2CLBR - ( 37) CF3BR - ( 38) CFC11 - ( 39) CFC113 - ( 40) CFC114 - ( 41) CFC115 - ( 42) CFC12 - ( 43) CH2BR2 - ( 44) CH2O - ( 45) CH3BR - ( 46) CH3CCL3 - ( 47) CH3CHO - ( 48) CH3CL - ( 49) CH3CN - ( 50) CH3COCH3 - ( 51) CH3COCHO - ( 52) CH3COOH - ( 53) CH3COOOH - ( 54) CH3OH - ( 55) CH3OOH - ( 56) CH4 - ( 57) CHBR3 - ( 58) CL - ( 59) CL2 - ( 60) CL2O2 - ( 61) CLO - ( 62) CLONO2 - ( 63) CLY - ( 64) CO - ( 65) CO2 - ( 66) COF2 - ( 67) COFCL - ( 68) CRESOL - ( 69) DMS - ( 70) dst_a1 - ( 71) dst_a2 - ( 72) dst_a3 - ( 73) E90 - ( 74) EOOH - ( 75) F - ( 76) GLYALD - ( 77) GLYOXAL - ( 78) H - ( 79) H2 - ( 80) H2402 - ( 81) H2O2 - ( 82) H2SO4 - ( 83) HBR - ( 84) HCFC141B - ( 85) HCFC142B - ( 86) HCFC22 - ( 87) HCL - ( 88) HCN - ( 89) HCOOH - ( 90) HF - ( 91) HNO3 - ( 92) HO2NO2 - ( 93) HOBR - ( 94) HOCL - ( 95) HONITR - ( 96) HPALD - ( 97) HYAC - ( 98) HYDRALD - ( 99) IEPOX - (100) ISOP - (101) ISOPNITA - (102) ISOPNITB - (103) ISOPNO3 - (104) ISOPNOOH - (105) ISOPO2VBS - (106) ISOPOOH - (107) IVOCbb - (108) IVOCbbO2VBS - (109) IVOCff - (110) IVOCffO2VBS - (111) MACR - (112) MACROOH - (113) MEK - (114) MEKOOH - (115) MPAN - (116) MTERP - (117) MTERPO2VBS - (118) MVK - (119) N - (120) N2O - (121) N2O5 - (122) NC4CH2OH - (123) NC4CHO - (124) ncl_a1 - (125) ncl_a2 - (126) ncl_a3 - (127) NH3 - (128) NH4 - (129) NH_5 - (130) NH_50 - (131) NO - (132) NO2 - (133) NO3 - (134) NOA - (135) NTERPOOH - (136) num_a1 - (137) num_a2 - (138) num_a3 - (139) num_a4 - (140) num_a5 - (141) O - (142) O2 - (143) O3 - (144) O3S - (145) OCLO - (146) OCS - (147) ONITR - (148) PAN - (149) PBZNIT - (150) PHENO - (151) PHENOL - (152) PHENOOH - (153) pombb1_a1 - (154) pombb1_a4 - (155) pomff1_a1 - (156) pomff1_a4 - (157) POOH - (158) ROOH - (159) S - (160) SF6 - (161) SO - (162) SO2 - (163) SO3 - (164) so4_a1 - (165) so4_a2 - (166) so4_a3 - (167) so4_a5 - (168) soabb1_a1 - (169) soabb1_a2 - (170) soabb2_a1 - (171) soabb2_a2 - (172) soabb3_a1 - (173) soabb3_a2 - (174) soabb4_a1 - (175) soabb4_a2 - (176) soabb5_a1 - (177) soabb5_a2 - (178) soabg1_a1 - (179) soabg1_a2 - (180) soabg2_a1 - (181) soabg2_a2 - (182) soabg3_a1 - (183) soabg3_a2 - (184) soabg4_a1 - (185) soabg4_a2 - (186) soabg5_a1 - (187) soabg5_a2 - (188) soaff1_a1 - (189) soaff1_a2 - (190) soaff2_a1 - (191) soaff2_a2 - (192) soaff3_a1 - (193) soaff3_a2 - (194) soaff4_a1 - (195) soaff4_a2 - (196) soaff5_a1 - (197) soaff5_a2 - (198) SOAGbb0 - (199) SOAGbb1 - (200) SOAGbb2 - (201) SOAGbb3 - (202) SOAGbb4 - (203) SOAGbg0 - (204) SOAGbg1 - (205) SOAGbg2 - (206) SOAGbg3 - (207) SOAGbg4 - (208) SOAGff0 - (209) SOAGff1 - (210) SOAGff2 - (211) SOAGff3 - (212) SOAGff4 - (213) ST80_25 - (214) SVOCbb - (215) SVOCff - (216) TEPOMUC - (217) TERP2OOH - (218) TERPNIT - (219) TERPOOH - (220) TERPROD1 - (221) TERPROD2 - (222) TOLOOH - (223) TOLUENE - (224) TOLUO2VBS - (225) XOOH - (226) XYLENES - (227) XYLENOOH - (228) XYLEO2VBS - (229) XYLOL - (230) XYLOLOOH - (231) ACBZO2 - (232) ALKO2 - (233) BENZO2 - (234) BZOO - (235) C2H5O2 - (236) C3H7O2 - (237) C6H5O2 - (238) CH3CO3 - (239) CH3O2 - (240) DICARBO2 - (241) e - (242) ENEO2 - (243) EO - (244) EO2 - (245) HO2 - (246) HOCH2OO - (247) ISOPAO2 - (248) ISOPBO2 - (249) MACRO2 - (250) MALO2 - (251) MCO3 - (252) MDIALO2 - (253) MEKO2 + ( 7) BENZENE + ( 8) BENZOOH + ( 9) BEPOMUC + ( 10) BIGALD + ( 11) BIGALD1 + ( 12) BIGALD2 + ( 13) BIGALD3 + ( 14) BIGALD4 + ( 15) BIGALK + ( 16) BIGENE + ( 17) BR + ( 18) BRCL + ( 19) BRO + ( 20) BRONO2 + ( 21) BRY + ( 22) BZALD + ( 23) BZOOH + ( 24) C2H2 + ( 25) C2H4 + ( 26) C2H5OH + ( 27) C2H5OOH + ( 28) C2H6 + ( 29) C3H6 + ( 30) C3H7OOH + ( 31) C3H8 + ( 32) C6H5OOH + ( 33) CCL4 + ( 34) CF2CLBR + ( 35) CF3BR + ( 36) CFC11 + ( 37) CFC113 + ( 38) CFC114 + ( 39) CFC115 + ( 40) CFC12 + ( 41) CH2BR2 + ( 42) CH2O + ( 43) CH3BR + ( 44) CH3CCL3 + ( 45) CH3CHO + ( 46) CH3CL + ( 47) CH3CN + ( 48) CH3COCH3 + ( 49) CH3COCHO + ( 50) CH3COOH + ( 51) CH3COOOH + ( 52) CH3OH + ( 53) CH3OOH + ( 54) CH4 + ( 55) CHBR3 + ( 56) CL + ( 57) CL2 + ( 58) CL2O2 + ( 59) CLO + ( 60) CLONO2 + ( 61) CLY + ( 62) CO + ( 63) CO2 + ( 64) COF2 + ( 65) COFCL + ( 66) CRESOL + ( 67) DMS + ( 68) dst_a1 + ( 69) dst_a2 + ( 70) dst_a3 + ( 71) E90 + ( 72) EOOH + ( 73) F + ( 74) GLYALD + ( 75) GLYOXAL + ( 76) H + ( 77) H2 + ( 78) H2402 + ( 79) H2O2 + ( 80) H2SO4 + ( 81) HBR + ( 82) HCFC141B + ( 83) HCFC142B + ( 84) HCFC22 + ( 85) HCL + ( 86) HCN + ( 87) HCOOH + ( 88) HF + ( 89) HNO3 + ( 90) HO2NO2 + ( 91) HOBR + ( 92) HOCL + ( 93) HONITR + ( 94) HPALD + ( 95) HYAC + ( 96) HYDRALD + ( 97) IEPOX + ( 98) ISOP + ( 99) ISOPNITA + (100) ISOPNITB + (101) ISOPNO3 + (102) ISOPNOOH + (103) ISOPOOH + (104) IVOCbb + (105) IVOCff + (106) MACR + (107) MACROOH + (108) MEK + (109) MEKOOH + (110) MPAN + (111) MTERP + (112) MVK + (113) N + (114) N2O + (115) N2O5 + (116) NC4CH2OH + (117) NC4CHO + (118) ncl_a1 + (119) ncl_a2 + (120) ncl_a3 + (121) NH3 + (122) NH4 + (123) NH_5 + (124) NH_50 + (125) NO + (126) NO2 + (127) NO3 + (128) NOA + (129) NTERPOOH + (130) num_a1 + (131) num_a2 + (132) num_a3 + (133) num_a4 + (134) num_a5 + (135) O + (136) O2 + (137) O3 + (138) O3S + (139) OCLO + (140) OCS + (141) ONITR + (142) PAN + (143) PBZNIT + (144) PHENO + (145) PHENOL + (146) PHENOOH + (147) pom_a1 + (148) pom_a4 + (149) pombb1_a1 + (150) pombb1_a4 + (151) pomff1_a1 + (152) pomff1_a4 + (153) POOH + (154) ROOH + (155) S + (156) SF6 + (157) SO + (158) SO2 + (159) SO3 + (160) so4_a1 + (161) so4_a2 + (162) so4_a3 + (163) so4_a5 + (164) soabb1_a1 + (165) soabb1_a2 + (166) soabb2_a1 + (167) soabb2_a2 + (168) soabb3_a1 + (169) soabb3_a2 + (170) soabb4_a1 + (171) soabb4_a2 + (172) soabb5_a1 + (173) soabb5_a2 + (174) soabg1_a1 + (175) soabg1_a2 + (176) soabg2_a1 + (177) soabg2_a2 + (178) soabg3_a1 + (179) soabg3_a2 + (180) soabg4_a1 + (181) soabg4_a2 + (182) soabg5_a1 + (183) soabg5_a2 + (184) soaff1_a1 + (185) soaff1_a2 + (186) soaff2_a1 + (187) soaff2_a2 + (188) soaff3_a1 + (189) soaff3_a2 + (190) soaff4_a1 + (191) soaff4_a2 + (192) soaff5_a1 + (193) soaff5_a2 + (194) SOAGbb0 + (195) SOAGbb1 + (196) SOAGbb2 + (197) SOAGbb3 + (198) SOAGbb4 + (199) SOAGbg0 + (200) SOAGbg1 + (201) SOAGbg2 + (202) SOAGbg3 + (203) SOAGbg4 + (204) SOAGff0 + (205) SOAGff1 + (206) SOAGff2 + (207) SOAGff3 + (208) SOAGff4 + (209) ST80_25 + (210) SVOCbb + (211) SVOCff + (212) TEPOMUC + (213) TERP2OOH + (214) TERPNIT + (215) TERPOOH + (216) TERPROD1 + (217) TERPROD2 + (218) TOLOOH + (219) TOLUENE + (220) XOOH + (221) XYLENES + (222) XYLENOOH + (223) XYLOL + (224) XYLOLOOH + (225) ACBZO2 + (226) ALKO2 + (227) BCARYO2VBS + (228) BENZO2 + (229) BENZO2VBS + (230) BZOO + (231) C2H5O2 + (232) C3H7O2 + (233) C6H5O2 + (234) CH3CO3 + (235) CH3O2 + (236) DICARBO2 + (237) e + (238) ENEO2 + (239) EO + (240) EO2 + (241) HO2 + (242) HOCH2OO + (243) ISOPAO2 + (244) ISOPBO2 + (245) ISOPO2VBS + (246) IVOCbbO2VBS + (247) IVOCffO2VBS + (248) MACRO2 + (249) MALO2 + (250) MCO3 + (251) MDIALO2 + (252) MEKO2 + (253) MTERPO2VBS (254) N2D (255) N2p (256) NOp @@ -567,10 +569,12 @@ Class List (268) TERP2O2 (269) TERPO2 (270) TOLO2 - (271) XO2 - (272) XYLENO2 - (273) XYLOLO2 - (274) H2O + (271) TOLUO2VBS + (272) XO2 + (273) XYLENO2 + (274) XYLEO2VBS + (275) XYLOLO2 + (276) H2O Photolysis jh2o_b ( 1) H2O + hv -> H2 + O1D rate = ** User defined ** ( 1) @@ -796,14 +800,14 @@ Class List ki=2.60E-11 f=0.60 usr_HO2_HO2 ( 36) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (206) - HO2NO2_OH ( 37) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (207) - N2D_O ( 38) N2D + O -> N + O rate = 7.00E-13 (208) - N2D_O2 ( 39) N2D + O2 -> NO + O1D rate = 5.00E-12 (209) - N_NO ( 40) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (210) - N_NO2a ( 41) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (211) - N_NO2b ( 42) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (212) - N_NO2c ( 43) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (213) - N_O2 ( 44) N + O2 -> NO + O rate = 3.30E-12*exp( -3150./t) (214) + agn2d ( 37) N2D -> N rate = 1.06E-05 (207) + HO2NO2_OH ( 38) HO2NO2 + OH -> H2O + NO2 + O2 rate = 4.50E-13*exp( 610./t) (208) + N2D_NO ( 39) N2D + NO -> N2 + O rate = 7.00E-11 (209) + N2D_O ( 40) N2D + O -> N + O rate = 7.00E-13 (210) + N_NO ( 41) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (211) + N_NO2a ( 42) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (212) + N_NO2b ( 43) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (213) + N_NO2c ( 44) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (214) NO2_O ( 45) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (215) NO2_O3 ( 46) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (216) NO2_O_M ( 47) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (217) @@ -832,903 +836,892 @@ Class List f=0.60 usr_HNO3_OH ( 61) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (231) usr_HO2NO2_M ( 62) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (232) - usr_N2O5_M ( 63) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (233) - CL_CH2O ( 64) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (234) - CL_CH4 ( 65) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (235) - CL_H2 ( 66) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (236) - CL_H2O2 ( 67) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (237) - CL_HO2a ( 68) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (238) - CL_HO2b ( 69) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (239) - CL_O3 ( 70) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (240) - CLO_CH3O2 ( 71) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (241) - CLO_CLOa ( 72) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (242) - CLO_CLOb ( 73) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (243) - CLO_CLOc ( 74) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (244) - CLO_HO2 ( 75) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (245) - CLO_NO ( 76) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (246) - CLONO2_CL ( 77) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (247) - CLO_NO2_M ( 78) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (248) + usr_N2D_e ( 63) N2D + e -> N + e rate = ** User defined ** (233) + usr_N2D_O2 ( 64) N2D + O2 -> NO + O1D rate = ** User defined ** (234) + usr_N2O5_M ( 65) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (235) + usr_N_O2 ( 66) N + O2 -> NO + O rate = ** User defined ** (236) + CL_CH2O ( 67) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (237) + CL_CH4 ( 68) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (238) + CL_H2 ( 69) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (239) + CL_H2O2 ( 70) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (240) + CL_HO2a ( 71) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (241) + CL_HO2b ( 72) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (242) + CL_O3 ( 73) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (243) + CLO_CH3O2 ( 74) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (244) + CLO_CLOa ( 75) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (245) + CLO_CLOb ( 76) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (246) + CLO_CLOc ( 77) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (247) + CLO_HO2 ( 78) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (248) + CLO_NO ( 79) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (249) + CLONO2_CL ( 80) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (250) + CLO_NO2_M ( 81) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (251) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O ( 79) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (249) - CLONO2_OH ( 80) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (250) - CLO_O ( 81) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (251) - CLO_OHa ( 82) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (252) - CLO_OHb ( 83) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (253) - HCL_O ( 84) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (254) - HCL_OH ( 85) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (255) - HOCL_CL ( 86) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (256) - HOCL_O ( 87) HOCL + O -> CLO + OH rate = 1.70E-13 (257) - HOCL_OH ( 88) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (258) - O1D_CCL4 ( 89) O1D + CCL4 -> 4*CL rate = 2.61E-10 (259) - O1D_CF2CLBR ( 90) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (260) - O1D_CFC11 ( 91) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (261) - O1D_CFC113 ( 92) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (262) - O1D_CFC114 ( 93) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (263) - O1D_CFC115 ( 94) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (264) - O1D_CFC12 ( 95) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (265) - O1D_HCLa ( 96) O1D + HCL -> CL + OH rate = 9.90E-11 (266) - O1D_HCLb ( 97) O1D + HCL -> CLO + H rate = 3.30E-12 (267) - tag_CLO_CLO_M ( 98) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (268) + CLONO2_O ( 82) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (252) + CLONO2_OH ( 83) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (253) + CLO_O ( 84) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (254) + CLO_OHa ( 85) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (255) + CLO_OHb ( 86) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (256) + HCL_O ( 87) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (257) + HCL_OH ( 88) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (258) + HOCL_CL ( 89) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (259) + HOCL_O ( 90) HOCL + O -> CLO + OH rate = 1.70E-13 (260) + HOCL_OH ( 91) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (261) + O1D_CCL4 ( 92) O1D + CCL4 -> 4*CL rate = 2.61E-10 (262) + O1D_CF2CLBR ( 93) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (263) + O1D_CFC11 ( 94) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (264) + O1D_CFC113 ( 95) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (265) + O1D_CFC114 ( 96) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (266) + O1D_CFC115 ( 97) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (267) + O1D_CFC12 ( 98) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (268) + O1D_HCLa ( 99) O1D + HCL -> CL + OH rate = 9.90E-11 (269) + O1D_HCLb (100) O1D + HCL -> CLO + H rate = 3.30E-12 (270) + tag_CLO_CLO_M (101) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (271) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M ( 99) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (269) - BR_CH2O (100) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (270) - BR_HO2 (101) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (271) - BR_O3 (102) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (272) - BRO_BRO (103) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (273) - BRO_CLOa (104) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (274) - BRO_CLOb (105) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (275) - BRO_CLOc (106) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (276) - BRO_HO2 (107) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (277) - BRO_NO (108) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (278) - BRO_NO2_M (109) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (279) + usr_CL2O2_M (102) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (272) + BR_CH2O (103) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (273) + BR_HO2 (104) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (274) + BR_O3 (105) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (275) + BRO_BRO (106) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (276) + BRO_CLOa (107) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (277) + BRO_CLOb (108) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (278) + BRO_CLOc (109) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (279) + BRO_HO2 (110) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (280) + BRO_NO (111) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (281) + BRO_NO2_M (112) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (282) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (110) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (280) - BRO_O (111) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (281) - BRO_OH (112) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (282) - HBR_O (113) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (283) - HBR_OH (114) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (284) - HOBR_O (115) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (285) - O1D_CF3BR (116) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (286) - O1D_CHBR3 (117) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (287) - O1D_H2402 (118) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (288) - O1D_HBRa (119) O1D + HBR -> BR + OH rate = 9.00E-11 (289) - O1D_HBRb (120) O1D + HBR -> BRO + H rate = 3.00E-11 (290) - F_CH4 (121) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (291) - F_H2 (122) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (292) - F_H2O (123) F + H2O -> HF + OH rate = 1.40E-11 (293) - F_HNO3 (124) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (294) - O1D_COF2 (125) O1D + COF2 -> 2*F rate = 2.14E-11 (295) - O1D_COFCL (126) O1D + COFCL -> F + CL rate = 1.90E-10 (296) - CH2BR2_CL (127) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (297) - CH2BR2_OH (128) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (298) - CH3BR_CL (129) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (299) - CH3BR_OH (130) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (300) - CH3CCL3_OH (131) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (301) - CH3CL_CL (132) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (302) - CH3CL_OH (133) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (303) - CHBR3_CL (134) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (304) - CHBR3_OH (135) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (305) - HCFC141B_OH (136) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (306) - HCFC142B_OH (137) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (307) - HCFC22_OH (138) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (308) - O1D_CH2BR2 (139) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (309) - O1D_CH3BR (140) O1D + CH3BR -> BR rate = 1.80E-10 (310) - O1D_HCFC141B (141) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (311) - O1D_HCFC142B (142) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (312) - O1D_HCFC22 (143) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (313) - CH2O_HO2 (144) CH2O + HO2 -> HOCH2OO rate = 9.70E-15*exp( 625./t) (314) - CH2O_NO3 (145) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (315) - CH2O_O (146) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (316) - CH2O_OH (147) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (317) - CH3O2_CH3O2a (148) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (318) - CH3O2_CH3O2b (149) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (319) - CH3O2_HO2 (150) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (320) - CH3O2_NO (151) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (321) - CH3OH_OH (152) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (322) - CH3OOH_OH (153) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (323) - CH4_OH (154) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (324) - HCN_OH (155) HCN + OH + M -> HO2 + M troe : ko=6.10E-33*(300/t)**1.50 (325) + BRONO2_O (113) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (283) + BRO_O (114) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (284) + BRO_OH (115) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (285) + HBR_O (116) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (286) + HBR_OH (117) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (287) + HOBR_O (118) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (288) + O1D_CF3BR (119) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (289) + O1D_CHBR3 (120) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (290) + O1D_H2402 (121) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (291) + O1D_HBRa (122) O1D + HBR -> BR + OH rate = 9.00E-11 (292) + O1D_HBRb (123) O1D + HBR -> BRO + H rate = 3.00E-11 (293) + F_CH4 (124) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (294) + F_H2 (125) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (295) + F_H2O (126) F + H2O -> HF + OH rate = 1.40E-11 (296) + F_HNO3 (127) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (297) + O1D_COF2 (128) O1D + COF2 -> 2*F rate = 2.14E-11 (298) + O1D_COFCL (129) O1D + COFCL -> F + CL rate = 1.90E-10 (299) + CH2BR2_CL (130) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (300) + CH2BR2_OH (131) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (301) + CH3BR_CL (132) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (302) + CH3BR_OH (133) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (303) + CH3CCL3_OH (134) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (304) + CH3CL_CL (135) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (305) + CH3CL_OH (136) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (306) + CHBR3_CL (137) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (307) + CHBR3_OH (138) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (308) + HCFC141B_OH (139) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (309) + HCFC142B_OH (140) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (310) + HCFC22_OH (141) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (311) + O1D_CH2BR2 (142) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (312) + O1D_CH3BR (143) O1D + CH3BR -> BR rate = 1.80E-10 (313) + O1D_HCFC141B (144) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (314) + O1D_HCFC142B (145) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (315) + O1D_HCFC22 (146) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (316) + CH2O_HO2 (147) CH2O + HO2 -> HOCH2OO rate = 9.70E-15*exp( 625./t) (317) + CH2O_NO3 (148) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (318) + CH2O_O (149) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (319) + CH2O_OH (150) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (320) + CH3O2_CH3O2a (151) CH3O2 + CH3O2 -> 2*CH2O + 2*HO2 rate = 5.00E-13*exp( -424./t) (321) + CH3O2_CH3O2b (152) CH3O2 + CH3O2 -> CH2O + CH3OH rate = 1.90E-14*exp( 706./t) (322) + CH3O2_HO2 (153) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (323) + CH3O2_NO (154) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (324) + CH3OH_OH (155) CH3OH + OH -> HO2 + CH2O rate = 2.90E-12*exp( -345./t) (325) + CH3OOH_OH (156) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (326) + CH4_OH (157) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (327) + HCN_OH (158) HCN + OH + M -> HO2 + M troe : ko=6.10E-33*(300/t)**1.50 (328) ki=9.80E-15*(300/t)**-4.60 f=0.80 - HCOOH_OH (156) HCOOH + OH -> HO2 + CO2 + H2O rate = 4.00E-13 (326) - HOCH2OO_HO2 (157) HOCH2OO + HO2 -> HCOOH rate = 7.50E-13*exp( 700./t) (327) - HOCH2OO_M (158) HOCH2OO -> CH2O + HO2 rate = 2.40E+12*exp( -7000./t) (328) - HOCH2OO_NO (159) HOCH2OO + NO -> HCOOH + NO2 + HO2 rate = 2.60E-12*exp( 265./t) (329) - O1D_CH4a (160) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (330) - O1D_CH4b (161) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (331) - O1D_CH4c (162) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (332) - O1D_HCN (163) O1D + HCN -> OH rate = 1.08E-10*exp( 105./t) (333) - usr_CO_OH (164) CO + OH -> CO2 + HO2 rate = ** User defined ** (334) - C2H2_CL_M (165) C2H2 + CL + M -> CL + M troe : ko=5.20E-30*(300/t)**2.40 (335) + HCOOH_OH (159) HCOOH + OH -> HO2 + CO2 + H2O rate = 4.00E-13 (329) + HOCH2OO_HO2 (160) HOCH2OO + HO2 -> HCOOH rate = 7.50E-13*exp( 700./t) (330) + HOCH2OO_M (161) HOCH2OO -> CH2O + HO2 rate = 2.40E+12*exp( -7000./t) (331) + HOCH2OO_NO (162) HOCH2OO + NO -> HCOOH + NO2 + HO2 rate = 2.60E-12*exp( 265./t) (332) + O1D_CH4a (163) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (333) + O1D_CH4b (164) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (334) + O1D_CH4c (165) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (335) + O1D_HCN (166) O1D + HCN -> OH rate = 1.08E-10*exp( 105./t) (336) + usr_CO_OH (167) CO + OH -> CO2 + HO2 rate = ** User defined ** (337) + C2H2_CL_M (168) C2H2 + CL + M -> CL + M troe : ko=5.20E-30*(300/t)**2.40 (338) ki=2.20E-10*(300/t)**0.70 f=0.60 - C2H2_OH_M (166) C2H2 + OH + M -> 0.65*GLYOXAL + 0.65*OH + 0.35*HCOOH + 0.35*HO2 troe : ko=5.50E-30 (336) + C2H2_OH_M (169) C2H2 + OH + M -> 0.65*GLYOXAL + 0.65*OH + 0.35*HCOOH + 0.35*HO2 troe : ko=5.50E-30 (339) + 0.35*CO + M ki=8.30E-13*(300/t)**-2.00 f=0.60 - C2H4_CL_M (167) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (337) + C2H4_CL_M (170) C2H4 + CL + M -> CL + M troe : ko=1.60E-29*(300/t)**3.30 (340) ki=3.10E-10*(300/t) f=0.60 - C2H4_O3 (168) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O rate = 1.20E-14*exp( -2630./t) (338) - C2H5O2_C2H5O2 (169) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (339) - C2H5O2_CH3O2 (170) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (340) + C2H4_O3 (171) C2H4 + O3 -> 0.63*CO + 0.13*OH + 0.13*HO2 + 0.37*HCOOH + CH2O rate = 1.20E-14*exp( -2630./t) (341) + C2H5O2_C2H5O2 (172) C2H5O2 + C2H5O2 -> 1.6*CH3CHO + 1.2*HO2 + 0.4*C2H5OH rate = 6.80E-14 (342) + C2H5O2_CH3O2 (173) C2H5O2 + CH3O2 -> 0.7*CH2O + 0.8*CH3CHO + HO2 + 0.3*CH3OH rate = 2.00E-13 (343) + 0.2*C2H5OH - C2H5O2_HO2 (171) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (341) - C2H5O2_NO (172) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (342) - C2H5OH_OH (173) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (343) - C2H5OOH_OH (174) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (344) - C2H6_CL (175) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (345) - C2H6_OH (176) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (346) - CH3CHO_NO3 (177) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (347) - CH3CHO_OH (178) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (348) - CH3CN_OH (179) CH3CN + OH -> HO2 rate = 7.80E-13*exp( -1050./t) (349) - CH3CO3_CH3CO3 (180) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (350) - CH3CO3_CH3O2 (181) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (351) + C2H5O2_HO2 (174) C2H5O2 + HO2 -> C2H5OOH + O2 rate = 7.50E-13*exp( 700./t) (344) + C2H5O2_NO (175) C2H5O2 + NO -> CH3CHO + HO2 + NO2 rate = 2.60E-12*exp( 365./t) (345) + C2H5OH_OH (176) C2H5OH + OH -> HO2 + CH3CHO rate = 6.90E-12*exp( -230./t) (346) + C2H5OOH_OH (177) C2H5OOH + OH -> 0.5*C2H5O2 + 0.5*CH3CHO + 0.5*OH rate = 3.80E-12*exp( 200./t) (347) + C2H6_CL (178) C2H6 + CL -> HCL + C2H5O2 rate = 7.20E-11*exp( -70./t) (348) + C2H6_OH (179) C2H6 + OH -> C2H5O2 + H2O rate = 7.66E-12*exp( -1020./t) (349) + CH3CHO_NO3 (180) CH3CHO + NO3 -> CH3CO3 + HNO3 rate = 1.40E-12*exp( -1900./t) (350) + CH3CHO_OH (181) CH3CHO + OH -> CH3CO3 + H2O rate = 4.63E-12*exp( 350./t) (351) + CH3CN_OH (182) CH3CN + OH -> HO2 rate = 7.80E-13*exp( -1050./t) (352) + CH3CO3_CH3CO3 (183) CH3CO3 + CH3CO3 -> 2*CH3O2 + 2*CO2 rate = 2.90E-12*exp( 500./t) (353) + CH3CO3_CH3O2 (184) CH3CO3 + CH3O2 -> 0.9*CH3O2 + CH2O + 0.9*HO2 + 0.9*CO2 rate = 2.00E-12*exp( 500./t) (354) + 0.1*CH3COOH - CH3CO3_HO2 (182) CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH rate = 4.30E-13*exp( 1040./t) (352) + CH3CO3_HO2 (185) CH3CO3 + HO2 -> 0.4*CH3COOOH + 0.15*CH3COOH + 0.15*O3 + 0.45*OH rate = 4.30E-13*exp( 1040./t) (355) + 0.45*CH3O2 - CH3CO3_NO (183) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (353) - CH3COOH_OH (184) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (354) - CH3COOOH_OH (185) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (355) - EO2_HO2 (186) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (356) - EO2_NO (187) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (357) - EO_M (188) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (358) - EO_O2 (189) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (359) - GLYALD_OH (190) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (360) - GLYOXAL_OH (191) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (361) - PAN_OH (192) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (362) - tag_C2H4_OH (193) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (363) + CH3CO3_NO (186) CH3CO3 + NO -> CH3O2 + CO2 + NO2 rate = 8.10E-12*exp( 270./t) (356) + CH3COOH_OH (187) CH3COOH + OH -> CH3O2 + CO2 + H2O rate = 3.15E-14*exp( 920./t) (357) + CH3COOOH_OH (188) CH3COOOH + OH -> 0.5*CH3CO3 + 0.5*CH2O + 0.5*CO2 + H2O rate = 1.00E-12 (358) + EO2_HO2 (189) EO2 + HO2 -> EOOH rate = 7.50E-13*exp( 700./t) (359) + EO2_NO (190) EO2 + NO -> 0.5*CH2O + 0.25*HO2 + 0.75*EO + NO2 rate = 4.20E-12*exp( 180./t) (360) + EO_M (191) EO -> 2*CH2O + HO2 rate = 1.60E+11*exp( -4150./t) (361) + EO_O2 (192) EO + O2 -> GLYALD + HO2 rate = 1.00E-14 (362) + GLYALD_OH (193) GLYALD + OH -> HO2 + 0.2*GLYOXAL + 0.8*CH2O + 0.8*CO2 rate = 1.00E-11 (363) + GLYOXAL_OH (194) GLYOXAL + OH -> HO2 + CO + CO2 rate = 1.15E-11 (364) + PAN_OH (195) PAN + OH -> CH2O + NO3 rate = 4.00E-14 (365) + tag_C2H4_OH (196) C2H4 + OH + M -> EO2 + M troe : ko=8.60E-29*(300/t)**3.10 (366) ki=9.00E-12*(300/t)**0.85 f=0.48 - tag_CH3CO3_NO2 (194) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (364) + tag_CH3CO3_NO2 (197) CH3CO3 + NO2 + M -> PAN + M troe : ko=7.30E-29*(300/t)**4.10 (367) ki=9.50E-12*(300/t)**1.60 f=0.60 - usr_PAN_M (195) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (365) - C3H6_NO3 (196) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (366) - C3H6_O3 (197) C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (367) + usr_PAN_M (198) PAN + M -> CH3CO3 + NO2 + M rate = ** User defined ** (368) + C3H6_NO3 (199) C3H6 + NO3 -> NOA rate = 4.60E-13*exp( -1156./t) (369) + C3H6_O3 (200) C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO rate = 6.50E-15*exp( -1900./t) (370) + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH - C3H7O2_CH3O2 (198) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 3.75E-13*exp( -40./t) (368) - C3H7O2_HO2 (199) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 7.50E-13*exp( 700./t) (369) - C3H7O2_NO (200) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 4.20E-12*exp( 180./t) (370) - C3H7OOH_OH (201) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (371) - C3H8_OH (202) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (372) - CH3COCHO_NO3 (203) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (373) - CH3COCHO_OH (204) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (374) - CL_C3H8 (205) CL + C3H8 -> C3H7O2 + HCL rate = 1.45E-10 (375) - HYAC_OH (206) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (376) - NOA_OH (207) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (377) - PO2_HO2 (208) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (378) - PO2_NO (209) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (379) - POOH_OH (210) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (380) - RO2_CH3O2 (211) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (381) + C3H7O2_CH3O2 (201) C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 rate = 1.00E-13*exp( 557./t) (371) + C3H7O2_HO2 (202) C3H7O2 + HO2 -> C3H7OOH + O2 rate = 1.41E-13*exp( 1300./t) (372) + C3H7O2_NO (203) C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO rate = 2.70E-12*exp( 360./t) (373) + C3H7OOH_OH (204) C3H7OOH + OH -> H2O + C3H7O2 rate = 3.80E-12*exp( 200./t) (374) + C3H8_OH (205) C3H8 + OH -> C3H7O2 + H2O rate = 9.19E-12*exp( -630./t) (375) + CH3COCHO_NO3 (206) CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 rate = 1.40E-12*exp( -1860./t) (376) + CH3COCHO_OH (207) CH3COCHO + OH -> CH3CO3 + CO + H2O rate = 8.40E-13*exp( 830./t) (377) + CL_C3H8 (208) CL + C3H8 -> C3H7O2 + HCL rate = 1.45E-10 (378) + HYAC_OH (209) HYAC + OH -> CH3COCHO + HO2 rate = 3.00E-12 (379) + NOA_OH (210) NOA + OH -> NO2 + CH3COCHO rate = 6.70E-13 (380) + PO2_HO2 (211) PO2 + HO2 -> POOH + O2 rate = 7.50E-13*exp( 700./t) (381) + PO2_NO (212) PO2 + NO -> CH3CHO + CH2O + HO2 + NO2 rate = 4.20E-12*exp( 180./t) (382) + POOH_OH (213) POOH + OH -> 0.5*PO2 + 0.5*OH + 0.5*HYAC + H2O rate = 3.80E-12*exp( 200./t) (383) + RO2_CH3O2 (214) RO2 + CH3O2 -> 0.3*CH3CO3 + 0.8*CH2O + 0.3*HO2 + 0.2*HYAC rate = 7.10E-13*exp( 500./t) (384) + 0.5*CH3COCHO + 0.5*CH3OH - RO2_HO2 (212) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (382) - RO2_NO (213) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (383) - ROOH_OH (214) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (384) - tag_C3H6_OH (215) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (385) + RO2_HO2 (215) RO2 + HO2 -> 0.85*ROOH + 0.15*OH + 0.15*CH2O + 0.15*CH3CO3 rate = 8.60E-13*exp( 700./t) (385) + RO2_NO (216) RO2 + NO -> CH3CO3 + CH2O + NO2 rate = 2.90E-12*exp( 300./t) (386) + ROOH_OH (217) ROOH + OH -> RO2 + H2O rate = 3.80E-12*exp( 200./t) (387) + tag_C3H6_OH (218) C3H6 + OH + M -> PO2 + M troe : ko=8.00E-27*(300/t)**3.50 (388) ki=3.00E-11 f=0.50 - usr_CH3COCH3_OH (216) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (386) - BIGENE_NO3 (217) BIGENE + NO3 -> NO2 + CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 rate = 3.50E-13 (387) - BIGENE_OH (218) BIGENE + OH -> ENEO2 rate = 5.40E-11 (388) - ENEO2_NO (219) ENEO2 + NO -> CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 + HO2 + NO2 rate = 4.80E-12*exp( 120./t) (389) - ENEO2_NOb (220) ENEO2 + NO -> HONITR rate = 5.10E-14*exp( 693./t) (390) - HONITR_OH (221) HONITR + OH -> ONITR + HO2 rate = 2.00E-12 (391) - MACRO2_CH3CO3 (222) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (392) + usr_CH3COCH3_OH (219) CH3COCH3 + OH -> RO2 + H2O rate = ** User defined ** (389) + BIGENE_NO3 (220) BIGENE + NO3 -> NO2 + CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 rate = 3.50E-13 (390) + BIGENE_OH (221) BIGENE + OH -> ENEO2 rate = 5.40E-11 (391) + ENEO2_NO (222) ENEO2 + NO -> CH3CHO + 0.5*CH2O + 0.5*CH3COCH3 + HO2 + NO2 rate = 4.80E-12*exp( 120./t) (392) + ENEO2_NOb (223) ENEO2 + NO -> HONITR rate = 5.10E-14*exp( 693./t) (393) + HONITR_OH (224) HONITR + OH -> ONITR + HO2 rate = 2.00E-12 (394) + MACRO2_CH3CO3 (225) MACRO2 + CH3CO3 -> 0.25*CH3COCHO + CH3O2 + 0.22*CO + 0.47*HO2 rate = 1.40E-11 (395) + 0.53*GLYALD + 0.22*HYAC + 0.25*CH2O + 0.53*CH3CO3 - MACRO2_CH3O2 (223) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (393) + MACRO2_CH3O2 (226) MACRO2 + CH3O2 -> 0.73*HO2 + 0.88*CH2O + 0.11*CO + 0.24*CH3COCHO rate = 5.00E-13*exp( 400./t) (396) + 0.26*GLYALD + 0.26*CH3CO3 + 0.25*CH3OH + 0.23*HYAC - MACRO2_HO2 (224) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (394) - MACRO2_NO3 (225) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (395) + MACRO2_HO2 (227) MACRO2 + HO2 -> MACROOH rate = 8.00E-13*exp( 700./t) (397) + MACRO2_NO3 (228) MACRO2 + NO3 -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.25*CH3COCHO rate = 2.40E-12 (398) + 0.22*CO + 0.53*GLYALD + 0.22*HYAC + 0.53*CH3CO3 - MACRO2_NOa (226) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (396) + MACRO2_NOa (229) MACRO2 + NO -> NO2 + 0.47*HO2 + 0.25*CH2O + 0.53*GLYALD rate = 2.70E-12*exp( 360./t) (399) + 0.25*CH3COCHO + 0.53*CH3CO3 + 0.22*HYAC + 0.22*CO - MACRO2_NOb (227) MACRO2 + NO -> HONITR rate = 1.30E-13*exp( 360./t) (397) - MACR_O3 (228) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (398) + MACRO2_NOb (230) MACRO2 + NO -> HONITR rate = 1.30E-13*exp( 360./t) (400) + MACR_O3 (231) MACR + O3 -> 0.12*CH2O + 0.24*OH + 0.65*CO + 0.1*CH3CO3 rate = 1.50E-15*exp( -2100./t) (401) + 0.88*CH3COCHO + 0.33*HCOOH + 0.14*HO2 - MACR_OH (229) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (399) - MACROOH_OH (230) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (400) - MCO3_CH3CO3 (231) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (401) - MCO3_CH3O2 (232) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (402) - MCO3_HO2 (233) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (403) + MACR_OH (232) MACR + OH -> 0.5*MACRO2 + 0.5*H2O + 0.5*MCO3 rate = 9.60E-12*exp( 360./t) (402) + MACROOH_OH (233) MACROOH + OH -> 0.5*MCO3 + 0.2*MACRO2 + 0.1*OH + 0.2*HO2 rate = 2.30E-11*exp( 200./t) (403) + MCO3_CH3CO3 (234) MCO3 + CH3CO3 -> 2*CO2 + CH3O2 + CH2O + CH3CO3 rate = 4.60E-12*exp( 530./t) (404) + MCO3_CH3O2 (235) MCO3 + CH3O2 -> 2*CH2O + HO2 + CO2 + CH3CO3 rate = 2.00E-12*exp( 500./t) (405) + MCO3_HO2 (236) MCO3 + HO2 -> 0.15*O3 + 0.15*CH3COOH + 0.4*CH3COOOH + 0.45*OH rate = 4.30E-13*exp( 1040./t) (406) + 0.45*CO2 + 0.45*CH2O + 0.45*CH3CO3 - MCO3_MCO3 (234) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (404) - MCO3_NO (235) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (405) - MCO3_NO3 (236) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (406) - MEKO2_HO2 (237) MEKO2 + HO2 -> 0.8*MEKOOH + 0.2*OH + 0.2*CH3CHO + 0.2*CH3CO3 rate = 7.50E-13*exp( 700./t) (407) - MEKO2_NO (238) MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 rate = 4.20E-12*exp( 180./t) (408) - MEK_OH (239) MEK + OH -> MEKO2 rate = 2.30E-12*exp( -170./t) (409) - MEKOOH_OH (240) MEKOOH + OH -> MEKO2 rate = 3.80E-12*exp( 200./t) (410) - MPAN_OH_M (241) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (411) - + M + 0.5*NDEP ki=3.00E-11 + MCO3_MCO3 (237) MCO3 + MCO3 -> 2*CO2 + 2*CH2O + 2*CH3CO3 rate = 2.30E-12*exp( 530./t) (407) + MCO3_NO (238) MCO3 + NO -> NO2 + CH2O + CH3CO3 rate = 5.30E-12*exp( 360./t) (408) + MCO3_NO3 (239) MCO3 + NO3 -> NO2 + CH2O + CH3CO3 rate = 5.00E-12 (409) + MEKO2_HO2 (240) MEKO2 + HO2 -> 0.8*MEKOOH + 0.2*OH + 0.2*CH3CHO + 0.2*CH3CO3 rate = 7.50E-13*exp( 700./t) (410) + MEKO2_NO (241) MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 rate = 4.20E-12*exp( 180./t) (411) + MEK_OH (242) MEK + OH -> MEKO2 rate = 2.30E-12*exp( -170./t) (412) + MEKOOH_OH (243) MEKOOH + OH -> MEKO2 rate = 3.80E-12*exp( 200./t) (413) + MPAN_OH_M (244) MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 troe : ko=8.00E-27*(300/t)**3.50 (414) + + 0.5*NDEP + M ki=3.00E-11 f=0.50 - MVK_O3 (242) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (412) + MVK_O3 (245) MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 rate = 8.50E-16*exp( -1520./t) (415) + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH - MVK_OH (243) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (413) - tag_MCO3_NO2 (244) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (414) + MVK_OH (246) MVK + OH -> MACRO2 rate = 4.13E-12*exp( 452./t) (416) + tag_MCO3_NO2 (247) MCO3 + NO2 + M -> MPAN + M troe : ko=9.70E-29*(300/t)**5.60 (417) ki=9.30E-12*(300/t)**1.50 f=0.60 - usr_MPAN_M (245) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (415) - ALKNIT_OH (246) ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 rate = 1.60E-12 (416) - ALKO2_HO2 (247) ALKO2 + HO2 -> ALKOOH rate = 7.50E-13*exp( 700./t) (417) - ALKO2_NO (248) ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK rate = 6.70E-12 (418) + usr_MPAN_M (248) MPAN + M -> MCO3 + NO2 + M rate = ** User defined ** (418) + ALKNIT_OH (249) ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 rate = 2.20E-12 (419) + ALKO2_HO2 (250) ALKO2 + HO2 -> ALKOOH rate = 7.50E-13*exp( 700./t) (420) + ALKO2_NO (251) ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK rate = 6.70E-12 (421) + NO2 - ALKO2_NOb (249) ALKO2 + NO -> ALKNIT rate = 5.40E-14*exp( 870./t) (419) - ALKOOH_OH (250) ALKOOH + OH -> ALKO2 rate = 3.80E-12*exp( 200./t) (420) - BIGALK_OH (251) BIGALK + OH -> ALKO2 rate = 3.50E-12 (421) - HPALD_OH (252) HPALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (422) - HYDRALD_OH (253) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (423) - IEPOX_OH (254) IEPOX + OH -> XO2 rate = 1.30E-11 (424) - ISOPAO2_CH3CO3 (255) ISOPAO2 + CH3CO3 -> CH3O2 + HO2 + CH2O + 0.39*MACR + 0.61*MVK + CO2 rate = 1.40E-11 (425) - ISOPAO2_CH3O2 (256) ISOPAO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.5*CH2O + 0.31*MACR rate = 5.00E-13*exp( 400./t) (426) + ALKO2_NOb (252) ALKO2 + NO -> ALKNIT rate = 5.40E-14*exp( 870./t) (422) + ALKOOH_OH (253) ALKOOH + OH -> ALKO2 rate = 3.80E-12*exp( 200./t) (423) + BIGALK_OH (254) BIGALK + OH -> ALKO2 rate = 3.50E-12 (424) + HPALD_OH (255) HPALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (425) + HYDRALD_OH (256) HYDRALD + OH -> XO2 rate = 1.86E-11*exp( 175./t) (426) + IEPOX_OH (257) IEPOX + OH -> XO2 rate = 1.30E-11 (427) + ISOPAO2_CH3CO3 (258) ISOPAO2 + CH3CO3 -> CH3O2 + HO2 + CH2O + 0.39*MACR + 0.61*MVK + CO2 rate = 1.40E-11 (428) + ISOPAO2_CH3O2 (259) ISOPAO2 + CH3O2 -> 0.25*CH3OH + HO2 + 1.5*CH2O + 0.31*MACR rate = 5.00E-13*exp( 400./t) (429) + 0.44*MVK - ISOPAO2_HO2 (257) ISOPAO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (427) - ISOPAO2_NO (258) ISOPAO2 + NO -> 0.08*ISOPNITA + 0.92*NO2 + 0.36*MACR + 0.56*MVK rate = 4.40E-12*exp( 180./t) (428) + ISOPAO2_HO2 (260) ISOPAO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (430) + ISOPAO2_NO (261) ISOPAO2 + NO -> 0.08*ISOPNITA + 0.92*NO2 + 0.36*MACR + 0.56*MVK rate = 4.40E-12*exp( 180./t) (431) + 0.92*CH2O + 0.92*HO2 - ISOPAO2_NO3 (259) ISOPAO2 + NO3 -> NO2 + 0.4*MACR + 0.6*MVK + CH2O + HO2 rate = 2.40E-12 (429) - ISOPBO2_CH3CO3 (260) ISOPBO2 + CH3CO3 -> HYDRALD + CH3O2 + HO2 rate = 1.40E-11 (430) - ISOPBO2_CH3O2 (261) ISOPBO2 + CH3O2 -> 0.25*CH3OH + HO2 + 0.75*CH2O + 0.75*HYDRALD rate = 5.00E-13*exp( 400./t) (431) - ISOPBO2_HO2 (262) ISOPBO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (432) - ISOPBO2_M (263) ISOPBO2 -> HPALD + HO2 rate = 1.60E+09*exp( -8300./t) (433) - ISOPBO2_NO (264) ISOPBO2 + NO -> 0.87*HYDRALD + 0.08*ISOPNITB + 0.92*NO2 + 0.92*HO2 rate = 4.40E-12*exp( 180./t) (434) + ISOPAO2_NO3 (262) ISOPAO2 + NO3 -> NO2 + 0.4*MACR + 0.6*MVK + CH2O + HO2 rate = 2.40E-12 (432) + ISOPBO2_CH3CO3 (263) ISOPBO2 + CH3CO3 -> HYDRALD + CH3O2 + HO2 rate = 1.40E-11 (433) + ISOPBO2_CH3O2 (264) ISOPBO2 + CH3O2 -> 0.25*CH3OH + HO2 + 0.75*CH2O + 0.75*HYDRALD rate = 5.00E-13*exp( 400./t) (434) + ISOPBO2_HO2 (265) ISOPBO2 + HO2 -> ISOPOOH rate = 8.00E-13*exp( 700./t) (435) + ISOPBO2_M (266) ISOPBO2 -> HPALD + HO2 rate = 1.60E+09*exp( -8300./t) (436) + ISOPBO2_NO (267) ISOPBO2 + NO -> 0.87*HYDRALD + 0.08*ISOPNITB + 0.92*NO2 + 0.92*HO2 rate = 4.40E-12*exp( 180./t) (437) + 0.05*GLYOXAL + 0.05*GLYALD + 0.05*CH3COCHO + 0.05*HYAC - ISOPBO2_NO3 (265) ISOPBO2 + NO3 -> NO2 + 0.95*HYDRALD + HO2 + 0.05*GLYOXAL rate = 2.40E-12 (435) + ISOPBO2_NO3 (268) ISOPBO2 + NO3 -> NO2 + 0.95*HYDRALD + HO2 + 0.05*GLYOXAL rate = 2.40E-12 (438) + 0.05*GLYALD + 0.05*CH3COCHO + 0.05*HYAC - ISOPNITA_OH (266) ISOPNITA + OH -> 0.7*HYAC + 0.7*GLYALD + 0.7*NO2 + 0.3*CH2O rate = 4.00E-11 (436) + ISOPNITA_OH (269) ISOPNITA + OH -> 0.7*HYAC + 0.7*GLYALD + 0.7*NO2 + 0.3*CH2O rate = 4.00E-11 (439) + 0.3*HONITR + 0.3*HO2 - ISOPNITB_OH (267) ISOPNITB + OH -> 0.5*HYAC + 0.5*GLYALD + 0.5*NOA + HO2 + 0.5*HONITR rate = 4.00E-11 (437) - ISOP_NO3 (268) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (438) - ISOPNO3_CH3CO3 (269) ISOPNO3 + CH3CO3 -> NC4CHO + CH3O2 + HO2 rate = 1.40E-11 (439) - ISOPNO3_CH3O2 (270) ISOPNO3 + CH3O2 -> 0.8*NC4CHO + 1.2*HO2 + 0.8*CH2O + 0.2*CH3OH rate = 5.00E-13*exp( 400./t) (440) + ISOPNITB_OH (270) ISOPNITB + OH -> 0.5*HYAC + 0.5*GLYALD + 0.5*NOA + HO2 + 0.5*HONITR rate = 4.00E-11 (440) + ISOP_NO3 (271) ISOP + NO3 -> ISOPNO3 rate = 3.03E-12*exp( -446./t) (441) + ISOPNO3_CH3CO3 (272) ISOPNO3 + CH3CO3 -> NC4CHO + CH3O2 + HO2 rate = 1.40E-11 (442) + ISOPNO3_CH3O2 (273) ISOPNO3 + CH3O2 -> 0.8*NC4CHO + 1.2*HO2 + 0.8*CH2O + 0.2*CH3OH rate = 5.00E-13*exp( 400./t) (443) + 0.2*NC4CH2OH - ISOPNO3_HO2 (271) ISOPNO3 + HO2 -> ISOPNOOH rate = 8.00E-13*exp( 700./t) (441) - ISOPNO3_NO (272) ISOPNO3 + NO -> NC4CHO + NO2 + HO2 rate = 2.70E-12*exp( 360./t) (442) - ISOPNO3_NO3 (273) ISOPNO3 + NO3 -> NC4CHO + NO2 + HO2 rate = 2.40E-12 (443) - ISOPNOOH_OH (274) ISOPNOOH + OH -> NOA + HO2 rate = 4.00E-11 (444) - ISOP_O3 (275) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (445) + ISOPNO3_HO2 (274) ISOPNO3 + HO2 -> ISOPNOOH rate = 8.00E-13*exp( 700./t) (444) + ISOPNO3_NO (275) ISOPNO3 + NO -> NC4CHO + NO2 + HO2 rate = 2.70E-12*exp( 360./t) (445) + ISOPNO3_NO3 (276) ISOPNO3 + NO3 -> NC4CHO + NO2 + HO2 rate = 2.40E-12 (446) + ISOPNOOH_OH (277) ISOPNOOH + OH -> NOA + HO2 rate = 4.00E-11 (447) + ISOP_O3 (278) ISOP + O3 -> 0.3*MACR + 0.2*MVK + 0.11*HCOOH + 0.62*CO + 0.32*OH rate = 1.05E-14*exp( -2000./t) (448) + 0.37*HO2 + 0.91*CH2O + 0.08*CH3CO3 + 0.13*C3H6 + 0.05*CH3O2 - ISOP_OH (276) ISOP + OH -> 0.6*ISOPAO2 + 0.4*ISOPBO2 rate = 2.54E-11*exp( 410./t) (446) - ISOPOOH_OH (277) ISOPOOH + OH -> 0.4*XO2 + 0.6*IEPOX + 0.6*OH rate = 1.52E-11*exp( 200./t) (447) - NC4CH2OH_OH (278) NC4CH2OH + OH -> GLYALD + NOA + HO2 rate = 7.00E-11 (448) - NC4CHO_OH (279) NC4CHO + OH -> GLYOXAL + NOA + HO2 rate = 1.00E-10 (449) - XO2_CH3CO3 (280) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (450) + ISOP_OH (279) ISOP + OH -> 0.6*ISOPAO2 + 0.4*ISOPBO2 rate = 2.54E-11*exp( 410./t) (449) + ISOPOOH_OH (280) ISOPOOH + OH -> 0.4*XO2 + 0.6*IEPOX + 0.6*OH rate = 1.52E-11*exp( 200./t) (450) + NC4CH2OH_OH (281) NC4CH2OH + OH -> GLYALD + NOA + HO2 rate = 7.00E-11 (451) + NC4CHO_OH (282) NC4CHO + OH -> GLYOXAL + NOA + HO2 rate = 1.00E-10 (452) + XO2_CH3CO3 (283) XO2 + CH3CO3 -> 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL + CH3O2 + HO2 rate = 1.30E-12*exp( 640./t) (453) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD + CO2 - XO2_CH3O2 (281) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (451) + XO2_CH3O2 (284) XO2 + CH3O2 -> 0.3*CH3OH + 0.8*HO2 + 0.8*CH2O + 0.2*CO rate = 5.00E-13*exp( 400./t) (454) + 0.1*GLYOXAL + 0.1*CH3COCHO + 0.1*HYAC + 0.1*GLYALD - XO2_HO2 (282) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (452) - XO2_NO (283) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (453) + XO2_HO2 (285) XO2 + HO2 -> XOOH rate = 8.00E-13*exp( 700./t) (455) + XO2_NO (286) XO2 + NO -> NO2 + HO2 + 0.25*CO + 0.25*CH2O + 0.25*GLYOXAL rate = 2.70E-12*exp( 360./t) (456) + 0.25*CH3COCHO + 0.25*HYAC + 0.25*GLYALD - XO2_NO3 (284) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (454) + XO2_NO3 (287) XO2 + NO3 -> NO2 + HO2 + 0.5*CO + 0.25*HYAC + 0.25*GLYOXAL rate = 2.40E-12 (457) + 0.25*CH3COCHO + 0.25*GLYALD - XOOH_OH (285) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (455) - ACBZO2_HO2 (286) ACBZO2 + HO2 -> 0.4*C6H5O2 + 0.4*OH rate = 4.30E-13*exp( 1040./t) (456) - ACBZO2_NO (287) ACBZO2 + NO -> C6H5O2 + NO2 rate = 7.50E-12*exp( 290./t) (457) - BENZENE_OH (288) BENZENE + OH -> 0.53*PHENOL + 0.12*BEPOMUC + 0.65*HO2 + 0.35*BENZO2 rate = 2.30E-12*exp( -193./t) (458) - BENZO2_HO2 (289) BENZO2 + HO2 -> BENZOOH rate = 7.50E-13*exp( 700./t) (459) - BENZO2_NO (290) BENZO2 + NO -> NO2 + GLYOXAL + 0.5*BIGALD1 + HO2 rate = 2.60E-12*exp( 365./t) (460) - BENZOOH_OH (291) BENZOOH + OH -> BENZO2 rate = 3.80E-12*exp( 200./t) (461) - BZALD_OH (292) BZALD + OH -> ACBZO2 rate = 5.90E-12*exp( 225./t) (462) - BZOO_HO2 (293) BZOO + HO2 -> BZOOH rate = 7.50E-13*exp( 700./t) (463) - BZOOH_OH (294) BZOOH + OH -> BZOO rate = 3.80E-12*exp( 200./t) (464) - BZOO_NO (295) BZOO + NO -> BZALD + NO2 + HO2 rate = 2.60E-12*exp( 365./t) (465) - C6H5O2_HO2 (296) C6H5O2 + HO2 -> C6H5OOH rate = 7.50E-13*exp( 700./t) (466) - C6H5O2_NO (297) C6H5O2 + NO -> PHENO + NO2 rate = 2.60E-12*exp( 365./t) (467) - C6H5OOH_OH (298) C6H5OOH + OH -> C6H5O2 rate = 3.80E-12*exp( 200./t) (468) - CRESOL_OH (299) CRESOL + OH -> 0.2*PHENO2 + 0.73*HO2 + 0.07*PHENO rate = 4.70E-11 (469) - DICARBO2_HO2 (300) DICARBO2 + HO2 -> 0.4*OH + 0.07*HO2 + 0.07*CH3COCHO + 0.07*CO rate = 4.30E-13*exp( 1040./t) (470) + XOOH_OH (288) XOOH + OH -> 0.5*XO2 + 0.5*OH rate = 1.52E-12*exp( 200./t) (458) + ACBZO2_HO2 (289) ACBZO2 + HO2 -> 0.4*C6H5O2 + 0.4*OH rate = 4.30E-13*exp( 1040./t) (459) + ACBZO2_NO (290) ACBZO2 + NO -> C6H5O2 + NO2 rate = 7.50E-12*exp( 290./t) (460) + BENZENE_OH (291) BENZENE + OH -> 0.53*PHENOL + 0.12*BEPOMUC + 0.65*HO2 + 0.35*BENZO2 rate = 2.30E-12*exp( -193./t) (461) + BENZO2_HO2 (292) BENZO2 + HO2 -> BENZOOH rate = 7.50E-13*exp( 700./t) (462) + BENZO2_NO (293) BENZO2 + NO -> NO2 + GLYOXAL + 0.5*BIGALD1 + HO2 rate = 2.60E-12*exp( 365./t) (463) + BENZOOH_OH (294) BENZOOH + OH -> BENZO2 rate = 3.80E-12*exp( 200./t) (464) + BZALD_OH (295) BZALD + OH -> ACBZO2 rate = 5.90E-12*exp( 225./t) (465) + BZOO_HO2 (296) BZOO + HO2 -> BZOOH rate = 7.50E-13*exp( 700./t) (466) + BZOOH_OH (297) BZOOH + OH -> BZOO rate = 3.80E-12*exp( 200./t) (467) + BZOO_NO (298) BZOO + NO -> BZALD + NO2 + HO2 rate = 2.60E-12*exp( 365./t) (468) + C6H5O2_HO2 (299) C6H5O2 + HO2 -> C6H5OOH rate = 7.50E-13*exp( 700./t) (469) + C6H5O2_NO (300) C6H5O2 + NO -> PHENO + NO2 rate = 2.60E-12*exp( 365./t) (470) + C6H5OOH_OH (301) C6H5OOH + OH -> C6H5O2 rate = 3.80E-12*exp( 200./t) (471) + CRESOL_OH (302) CRESOL + OH -> 0.2*PHENO2 + 0.73*HO2 + 0.07*PHENO rate = 4.70E-11 (472) + DICARBO2_HO2 (303) DICARBO2 + HO2 -> 0.4*OH + 0.07*HO2 + 0.07*CH3COCHO + 0.07*CO rate = 4.30E-13*exp( 1040./t) (473) + 0.33*CH3O2 - DICARBO2_NO (301) DICARBO2 + NO -> NO2 + 0.17*HO2 + 0.17*CH3COCHO + 0.17*CO rate = 7.50E-12*exp( 290./t) (471) + DICARBO2_NO (304) DICARBO2 + NO -> NO2 + 0.17*HO2 + 0.17*CH3COCHO + 0.17*CO rate = 7.50E-12*exp( 290./t) (474) + 0.83*CH3O2 - DICARBO2_NO2 (302) DICARBO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (472) + DICARBO2_NO2 (305) DICARBO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (475) ki=9.30E-12*(300/t)**1.50 f=0.60 - MALO2_HO2 (303) MALO2 + HO2 -> 0.16*GLYOXAL + 0.16*HO2 + 0.16*CO rate = 4.30E-13*exp( 1040./t) (473) - MALO2_NO (304) MALO2 + NO -> 0.4*GLYOXAL + 0.4*HO2 + 0.4*CO + NO2 rate = 7.50E-12*exp( 290./t) (474) - MALO2_NO2 (305) MALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (475) + MALO2_HO2 (306) MALO2 + HO2 -> 0.16*GLYOXAL + 0.16*HO2 + 0.16*CO rate = 4.30E-13*exp( 1040./t) (476) + MALO2_NO (307) MALO2 + NO -> 0.4*GLYOXAL + 0.4*HO2 + 0.4*CO + NO2 rate = 7.50E-12*exp( 290./t) (477) + MALO2_NO2 (308) MALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (478) ki=9.30E-12*(300/t)**1.50 f=0.60 - MDIALO2_HO2 (306) MDIALO2 + HO2 -> 0.4*OH + 0.33*HO2 + 0.07*CH3COCHO + 0.14*CO rate = 4.30E-13*exp( 1040./t) (476) + MDIALO2_HO2 (309) MDIALO2 + HO2 -> 0.4*OH + 0.33*HO2 + 0.07*CH3COCHO + 0.14*CO rate = 4.30E-13*exp( 1040./t) (479) + 0.07*CH3O2 + 0.07*GLYOXAL - MDIALO2_NO (307) MDIALO2 + NO -> NO2 + 0.83*HO2 + 0.17*CH3COCHO + 0.35*CO rate = 7.50E-12*exp( 290./t) (477) + MDIALO2_NO (310) MDIALO2 + NO -> NO2 + 0.83*HO2 + 0.17*CH3COCHO + 0.35*CO rate = 7.50E-12*exp( 290./t) (480) + 0.17*CH3O2 + 0.17*GLYOXAL - MDIALO2_NO2 (308) MDIALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (478) + MDIALO2_NO2 (311) MDIALO2 + NO2 + M -> M + NDEP troe : ko=9.70E-29*(300/t)**5.60 (481) ki=9.30E-12*(300/t)**1.50 f=0.60 - PHENO2_HO2 (309) PHENO2 + HO2 -> PHENOOH rate = 7.50E-13*exp( 700./t) (479) - PHENO2_NO (310) PHENO2 + NO -> HO2 + 0.7*GLYOXAL + NO2 rate = 2.60E-12*exp( 365./t) (480) - PHENOL_OH (311) PHENOL + OH -> 0.14*PHENO2 + 0.8*HO2 + 0.06*PHENO rate = 4.70E-13*exp( 1220./t) (481) - PHENO_NO2 (312) PHENO + NO2 -> NDEP rate = 2.10E-12 (482) - PHENO_O3 (313) PHENO + O3 -> C6H5O2 rate = 2.80E-13 (483) - PHENOOH_OH (314) PHENOOH + OH -> PHENO2 rate = 3.80E-12*exp( 200./t) (484) - tag_ACBZO2_NO2 (315) ACBZO2 + NO2 + M -> PBZNIT + M troe : ko=9.70E-29*(300/t)**5.60 (485) + PHENO2_HO2 (312) PHENO2 + HO2 -> PHENOOH rate = 7.50E-13*exp( 700./t) (482) + PHENO2_NO (313) PHENO2 + NO -> HO2 + 0.7*GLYOXAL + NO2 rate = 2.60E-12*exp( 365./t) (483) + PHENOL_OH (314) PHENOL + OH -> 0.14*PHENO2 + 0.8*HO2 + 0.06*PHENO rate = 4.70E-13*exp( 1220./t) (484) + PHENO_NO2 (315) PHENO + NO2 -> NDEP rate = 2.10E-12 (485) + PHENO_O3 (316) PHENO + O3 -> C6H5O2 rate = 2.80E-13 (486) + PHENOOH_OH (317) PHENOOH + OH -> PHENO2 rate = 3.80E-12*exp( 200./t) (487) + tag_ACBZO2_NO2 (318) ACBZO2 + NO2 + M -> PBZNIT + M troe : ko=9.70E-29*(300/t)**5.60 (488) ki=9.30E-12*(300/t)**1.50 f=0.60 - TOLO2_HO2 (316) TOLO2 + HO2 -> TOLOOH rate = 7.50E-13*exp( 700./t) (486) - TOLO2_NO (317) TOLO2 + NO -> NO2 + 0.6*GLYOXAL + 0.4*CH3COCHO + HO2 + 0.2*BIGALD1 rate = 2.60E-12*exp( 365./t) (487) + TOLO2_HO2 (319) TOLO2 + HO2 -> TOLOOH rate = 7.50E-13*exp( 700./t) (489) + TOLO2_NO (320) TOLO2 + NO -> NO2 + 0.6*GLYOXAL + 0.4*CH3COCHO + HO2 + 0.2*BIGALD1 rate = 2.60E-12*exp( 365./t) (490) + 0.2*BIGALD2 + 0.2*BIGALD3 - TOLOOH_OH (318) TOLOOH + OH -> TOLO2 rate = 3.80E-12*exp( 200./t) (488) - TOLUENE_OH (319) TOLUENE + OH -> 0.18*CRESOL + 0.1*TEPOMUC + 0.07*BZOO + 0.65*TOLO2 rate = 1.70E-12*exp( 352./t) (489) + TOLOOH_OH (321) TOLOOH + OH -> TOLO2 rate = 3.80E-12*exp( 200./t) (491) + TOLUENE_OH (322) TOLUENE + OH -> 0.18*CRESOL + 0.1*TEPOMUC + 0.07*BZOO + 0.65*TOLO2 rate = 1.70E-12*exp( 352./t) (492) + 0.28*HO2 - usr_PBZNIT_M (320) PBZNIT + M -> ACBZO2 + NO2 + M rate = ** User defined ** (490) - XYLENES_OH (321) XYLENES + OH -> 0.15*XYLOL + 0.23*TEPOMUC + 0.06*BZOO rate = 1.70E-11 (491) + usr_PBZNIT_M (323) PBZNIT + M -> ACBZO2 + NO2 + M rate = ** User defined ** (493) + XYLENES_OH (324) XYLENES + OH -> 0.15*XYLOL + 0.23*TEPOMUC + 0.06*BZOO rate = 1.70E-11 (494) + 0.56*XYLENO2 + 0.38*HO2 - XYLENO2_HO2 (322) XYLENO2 + HO2 -> XYLENOOH rate = 7.50E-13*exp( 700./t) (492) - XYLENO2_NO (323) XYLENO2 + NO -> NO2 + HO2 + 0.34*GLYOXAL + 0.54*CH3COCHO rate = 2.60E-12*exp( 365./t) (493) + XYLENO2_HO2 (325) XYLENO2 + HO2 -> XYLENOOH rate = 7.50E-13*exp( 700./t) (495) + XYLENO2_NO (326) XYLENO2 + NO -> NO2 + HO2 + 0.34*GLYOXAL + 0.54*CH3COCHO rate = 2.60E-12*exp( 365./t) (496) + 0.06*BIGALD1 + 0.2*BIGALD2 + 0.15*BIGALD3 + 0.21*BIGALD4 - XYLENOOH_OH (324) XYLENOOH + OH -> XYLENO2 rate = 3.80E-12*exp( 200./t) (494) - XYLOLO2_HO2 (325) XYLOLO2 + HO2 -> XYLOLOOH rate = 7.50E-13*exp( 700./t) (495) - XYLOLO2_NO (326) XYLOLO2 + NO -> HO2 + NO2 + 0.17*GLYOXAL + 0.51*CH3COCHO rate = 2.60E-12*exp( 365./t) (496) - XYLOL_OH (327) XYLOL + OH -> 0.3*XYLOLO2 + 0.63*HO2 + 0.07*PHENO rate = 8.40E-11 (497) - XYLOLOOH_OH (328) XYLOLOOH + OH -> XYLOLO2 rate = 3.80E-12*exp( 200./t) (498) - BCARY_NO3 (329) BCARY + NO3 -> NTERPO2 rate = 1.90E-11 (499) - BCARY_O3 (330) BCARY + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 1.20E-14 (500) + XYLENOOH_OH (327) XYLENOOH + OH -> XYLENO2 rate = 3.80E-12*exp( 200./t) (497) + XYLOLO2_HO2 (328) XYLOLO2 + HO2 -> XYLOLOOH rate = 7.50E-13*exp( 700./t) (498) + XYLOLO2_NO (329) XYLOLO2 + NO -> HO2 + NO2 + 0.17*GLYOXAL + 0.51*CH3COCHO rate = 2.60E-12*exp( 365./t) (499) + XYLOL_OH (330) XYLOL + OH -> 0.3*XYLOLO2 + 0.63*HO2 + 0.07*PHENO rate = 8.40E-11 (500) + XYLOLOOH_OH (331) XYLOLOOH + OH -> XYLOLO2 rate = 3.80E-12*exp( 200./t) (501) + BCARY_NO3 (332) BCARY + NO3 -> NTERPO2 rate = 1.90E-11 (502) + BCARY_O3 (333) BCARY + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 1.20E-14 (503) + 0.23*CO + 0.27*CO2 + 0.52*CH3COCH3 + 0.34*CH2O + 0.1*BIGALD + 0.05*HCOOH + 0.05*BIGALK + 0.06*CH3CO3 + 0.06*RO2 - BCARY_OH (331) BCARY + OH -> TERPO2 rate = 2.00E-10 (501) - MTERP_NO3 (332) MTERP + NO3 -> NTERPO2 rate = 1.20E-12*exp( 490./t) (502) - MTERP_O3 (333) MTERP + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 6.30E-16*exp( -580./t) (503) + BCARY_OH (334) BCARY + OH -> TERPO2 rate = 2.00E-10 (504) + MTERP_NO3 (335) MTERP + NO3 -> NTERPO2 rate = 1.20E-12*exp( 490./t) (505) + MTERP_O3 (336) MTERP + O3 -> 0.33*TERPROD1 + 0.3*TERPROD2 + 0.63*OH + 0.57*HO2 rate = 6.30E-16*exp( -580./t) (506) + 0.23*CO + 0.27*CO2 + 0.52*CH3COCH3 + 0.34*CH2O + 0.1*BIGALD + 0.05*HCOOH + 0.05*BIGALK + 0.06*CH3CO3 + 0.06*RO2 - MTERP_OH (334) MTERP + OH -> TERPO2 rate = 1.20E-11*exp( 440./t) (504) - NTERPO2_CH3O2 (335) NTERPO2 + CH3O2 -> 0.5*TERPNIT + 0.75*CH2O + 0.25*CH3OH + 0.5*HO2 rate = 2.00E-12*exp( 500./t) (505) + MTERP_OH (337) MTERP + OH -> TERPO2 rate = 1.20E-11*exp( 440./t) (507) + NTERPO2_CH3O2 (338) NTERPO2 + CH3O2 -> 0.5*TERPNIT + 0.75*CH2O + 0.25*CH3OH + 0.5*HO2 rate = 2.00E-12*exp( 500./t) (508) + 0.5*TERPROD1 + 0.5*NO2 - NTERPO2_HO2 (336) NTERPO2 + HO2 -> NTERPOOH rate = 7.50E-13*exp( 700./t) (506) - NTERPO2_NO (337) NTERPO2 + NO -> 0.2*TERPNIT + 1.6*NO2 + 0.8*TERPROD1 + 0.2*NDEP rate = 4.20E-12*exp( 180./t) (507) - NTERPO2_NO3 (338) NTERPO2 + NO3 -> 2*NO2 + TERPROD1 rate = 2.40E-12 (508) - NTERPOOH_OH (339) NTERPOOH + OH -> NTERPO2 rate = 2.00E-11 (509) - TERP2O2_CH3O2 (340) TERP2O2 + CH3O2 -> TERPROD2 + 0.93*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (510) + NTERPO2_HO2 (339) NTERPO2 + HO2 -> NTERPOOH rate = 7.50E-13*exp( 700./t) (509) + NTERPO2_NO (340) NTERPO2 + NO -> 0.2*TERPNIT + 1.6*NO2 + 0.8*TERPROD1 + 0.2*NDEP rate = 4.20E-12*exp( 180./t) (510) + NTERPO2_NO3 (341) NTERPO2 + NO3 -> 2*NO2 + TERPROD1 rate = 2.40E-12 (511) + NTERPOOH_OH (342) NTERPOOH + OH -> NTERPO2 rate = 2.00E-11 (512) + TERP2O2_CH3O2 (343) TERP2O2 + CH3O2 -> TERPROD2 + 0.93*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (513) + 0.5*CO2 + 0.125*CO + 0.125*GLYALD + 0.15*CH3COCH3 - TERP2O2_HO2 (341) TERP2O2 + HO2 -> TERP2OOH rate = 7.50E-13*exp( 700./t) (511) - TERP2O2_NO (342) TERP2O2 + NO -> 0.1*ONITR + 0.9*NO2 + 0.34*CH2O + 0.27*CH3COCH3 rate = 4.20E-12*exp( 180./t) (512) + TERP2O2_HO2 (344) TERP2O2 + HO2 -> TERP2OOH rate = 7.50E-13*exp( 700./t) (514) + TERP2O2_NO (345) TERP2O2 + NO -> 0.1*ONITR + 0.9*NO2 + 0.34*CH2O + 0.27*CH3COCH3 rate = 4.20E-12*exp( 180./t) (515) + 0.225*CO + 0.9*CO2 + 0.9*TERPROD2 + 0.9*HO2 + 0.225*GLYALD - TERP2OOH_OH (343) TERP2OOH + OH -> TERP2O2 rate = 2.30E-11 (513) - TERPNIT_OH (344) TERPNIT + OH -> NO2 + TERPROD1 rate = 2.00E-11 (514) - TERPO2_CH3O2 (345) TERPO2 + CH3O2 -> TERPROD1 + 0.95*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (515) + TERP2OOH_OH (346) TERP2OOH + OH -> TERP2O2 rate = 2.30E-11 (516) + TERPNIT_OH (347) TERPNIT + OH -> NO2 + TERPROD1 rate = 2.00E-11 (517) + TERPO2_CH3O2 (348) TERPO2 + CH3O2 -> TERPROD1 + 0.95*CH2O + 0.25*CH3OH + HO2 rate = 2.00E-12*exp( 500./t) (518) + 0.025*CH3COCH3 - TERPO2_HO2 (346) TERPO2 + HO2 -> TERPOOH rate = 7.50E-13*exp( 700./t) (516) - TERPO2_NO (347) TERPO2 + NO -> 0.2*TERPNIT + 0.8*NO2 + 0.32*CH2O + 0.04*CH3COCH3 rate = 4.20E-12*exp( 180./t) (517) + TERPO2_HO2 (349) TERPO2 + HO2 -> TERPOOH rate = 7.50E-13*exp( 700./t) (519) + TERPO2_NO (350) TERPO2 + NO -> 0.2*TERPNIT + 0.8*NO2 + 0.32*CH2O + 0.04*CH3COCH3 rate = 4.20E-12*exp( 180./t) (520) + 0.8*TERPROD1 + 0.8*HO2 - TERPOOH_OH (348) TERPOOH + OH -> TERPO2 rate = 3.30E-11 (518) - TERPROD1_NO3 (349) TERPROD1 + NO3 -> 0.5*TERP2O2 + 0.5*NTERPO2 + 0.5*NDEP rate = 1.00E-12 (519) - TERPROD1_OH (350) TERPROD1 + OH -> TERP2O2 rate = 5.70E-11 (520) - TERPROD2_OH (351) TERPROD2 + OH -> 0.15*RO2 + 0.68*CH2O + 1.8*CO2 + 0.5*CH3COCH3 rate = 3.40E-11 (521) + TERPOOH_OH (351) TERPOOH + OH -> TERPO2 rate = 3.30E-11 (521) + TERPROD1_NO3 (352) TERPROD1 + NO3 -> 0.5*TERP2O2 + 0.5*NTERPO2 + 0.5*NDEP rate = 1.00E-12 (522) + TERPROD1_OH (353) TERPROD1 + OH -> TERP2O2 rate = 5.70E-11 (523) + TERPROD2_OH (354) TERPROD2 + OH -> 0.15*RO2 + 0.68*CH2O + 1.8*CO2 + 0.5*CH3COCH3 rate = 3.40E-11 (524) + 0.65*CH3CO3 + 0.2*HO2 + 0.7*CO - DMS_NO3 (352) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (522) - DMS_OHa (353) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (523) - OCS_O (354) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (524) - OCS_OH (355) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (525) - S_O2 (356) S + O2 -> SO + O rate = 2.30E-12 (526) - SO2_OH_M (357) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (527) + DMS_NO3 (355) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (525) + DMS_OHa (356) DMS + OH -> SO2 rate = 1.10E-11*exp( -280./t) (526) + OCS_O (357) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (527) + OCS_OH (358) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (528) + S_O2 (359) S + O2 -> SO + O rate = 2.30E-12 (529) + SO2_OH_M (360) SO2 + OH + M -> SO3 + HO2 troe : ko=2.90E-31*(300/t)**4.10 (530) ki=1.70E-12*(300/t)**-0.20 f=0.60 - S_O3 (358) S + O3 -> SO + O2 rate = 1.20E-11 (528) - SO_BRO (359) SO + BRO -> SO2 + BR rate = 5.70E-11 (529) - SO_CLO (360) SO + CLO -> SO2 + CL rate = 2.80E-11 (530) - S_OH (361) S + OH -> SO + H rate = 6.60E-11 (531) - SO_NO2 (362) SO + NO2 -> SO2 + NO rate = 1.40E-11 (532) - SO_O2 (363) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (533) - SO_O3 (364) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (534) - SO_OCLO (365) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (535) - SO_OH (366) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (536) - usr_DMS_OH (367) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (537) - usr_SO3_H2O (368) SO3 + H2O -> H2SO4 rate = ** User defined ** (538) - NH3_OH (369) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (539) - usr_HO2_aer (370) HO2 -> H2O rate = ** User defined ** (540) - usr_HONITR_aer (371) HONITR -> HNO3 rate = ** User defined ** (541) - usr_ISOPNITA_aer (372) ISOPNITA -> HNO3 rate = ** User defined ** (542) - usr_ISOPNITB_aer (373) ISOPNITB -> HNO3 rate = ** User defined ** (543) - usr_N2O5_aer (374) N2O5 -> 2*HNO3 rate = ** User defined ** (544) - usr_NC4CH2OH_aer (375) NC4CH2OH -> HNO3 rate = ** User defined ** (545) - usr_NC4CHO_aer (376) NC4CHO -> HNO3 rate = ** User defined ** (546) - usr_NH4_strat_ta (377) NH4 -> NHDEP rate = 6.34E-08 (547) - usr_NO2_aer (378) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (548) - usr_NO3_aer (379) NO3 -> HNO3 rate = ** User defined ** (549) - usr_NTERPOOH_aer (380) NTERPOOH -> HNO3 rate = ** User defined ** (550) - usr_ONITR_aer (381) ONITR -> HNO3 rate = ** User defined ** (551) - usr_TERPNIT_aer (382) TERPNIT -> HNO3 rate = ** User defined ** (552) - BCARY_NO3_vbs (383) BCARY + NO3 -> BCARY + NO3 + 0.17493*SOAGbg3 + 0.59019*SOAGbg4 rate = 1.90E-11 (553) - BCARYO2_HO2_vbs (384) BCARYO2VBS + HO2 -> HO2 + 0.2202*SOAGbg0 + 0.2067*SOAGbg1 rate = 2.75E-13*exp( 1300./t) (554) + S_O3 (361) S + O3 -> SO + O2 rate = 1.20E-11 (531) + SO_BRO (362) SO + BRO -> SO2 + BR rate = 5.70E-11 (532) + SO_CLO (363) SO + CLO -> SO2 + CL rate = 2.80E-11 (533) + S_OH (364) S + OH -> SO + H rate = 6.60E-11 (534) + SO_NO2 (365) SO + NO2 -> SO2 + NO rate = 1.40E-11 (535) + SO_O2 (366) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (536) + SO_O3 (367) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (537) + SO_OCLO (368) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (538) + SO_OH (369) SO + OH -> SO2 + H rate = 2.60E-11*exp( 330./t) (539) + usr_DMS_OH (370) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (540) + usr_SO3_H2O (371) SO3 + H2O -> H2SO4 rate = ** User defined ** (541) + NH3_OH (372) NH3 + OH -> H2O + NHDEP rate = 1.70E-12*exp( -710./t) (542) + usr_HO2_aer (373) HO2 -> H2O rate = ** User defined ** (543) + usr_HONITR_aer (374) HONITR -> HNO3 rate = ** User defined ** (544) + usr_ISOPNITA_aer (375) ISOPNITA -> HNO3 rate = ** User defined ** (545) + usr_ISOPNITB_aer (376) ISOPNITB -> HNO3 rate = ** User defined ** (546) + usr_N2O5_aer (377) N2O5 -> 2*HNO3 rate = ** User defined ** (547) + usr_NC4CH2OH_aer (378) NC4CH2OH -> HNO3 rate = ** User defined ** (548) + usr_NC4CHO_aer (379) NC4CHO -> HNO3 rate = ** User defined ** (549) + usr_NH4_strat_ta (380) NH4 -> NHDEP rate = 6.34E-08 (550) + usr_NO2_aer (381) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (551) + usr_NO3_aer (382) NO3 -> HNO3 rate = ** User defined ** (552) + usr_NTERPOOH_aer (383) NTERPOOH -> HNO3 rate = ** User defined ** (553) + usr_ONITR_aer (384) ONITR -> HNO3 rate = ** User defined ** (554) + usr_TERPNIT_aer (385) TERPNIT -> HNO3 rate = ** User defined ** (555) + BCARY_NO3_vbs (386) BCARY + NO3 -> BCARY + NO3 + 0.17493*SOAGbg3 + 0.59019*SOAGbg4 rate = 1.90E-11 (556) + BCARYO2_HO2_vbs (387) BCARYO2VBS + HO2 -> HO2 + 0.2202*SOAGbg0 + 0.2067*SOAGbg1 rate = 2.75E-13*exp( 1300./t) (557) + 0.0653*SOAGbg2 + 0.1284*SOAGbg3 + 0.114*SOAGbg4 - BCARYO2_NO_vbs (385) BCARYO2VBS + NO -> NO + 0.1279*SOAGbg0 + 0.1792*SOAGbg1 rate = 2.70E-12*exp( 360./t) (555) + BCARYO2_NO_vbs (388) BCARYO2VBS + NO -> NO + 0.1279*SOAGbg0 + 0.1792*SOAGbg1 rate = 2.70E-12*exp( 360./t) (558) + 0.0676*SOAGbg2 + 0.079*SOAGbg3 + 0.1254*SOAGbg4 - BCARY_O3_vbs (386) BCARY + O3 -> BCARY + O3 + 0.2202*SOAGbg0 + 0.2067*SOAGbg1 rate = 1.20E-14 (556) + BCARY_O3_vbs (389) BCARY + O3 -> BCARY + O3 + 0.2202*SOAGbg0 + 0.2067*SOAGbg1 rate = 1.20E-14 (559) + 0.0653*SOAGbg2 + 0.1284*SOAGbg3 + 0.114*SOAGbg4 - BCARY_OH_vbs (387) BCARY + OH -> BCARY + OH + BCARYO2VBS rate = 2.00E-10 (557) - BENZENE_OH_vbs (388) BENZENE + OH -> BENZENE + OH + BENZO2VBS rate = 2.30E-12*exp( -193./t) (558) - BENZO2_HO2_vbs (389) BENZO2VBS + HO2 -> HO2 + 0.0023*SOAGff0 + 0.0008*SOAGff1 rate = 7.50E-13*exp( 700./t) (559) + BCARY_OH_vbs (390) BCARY + OH -> BCARY + OH + BCARYO2VBS rate = 2.00E-10 (560) + BENZENE_OH_vbs (391) BENZENE + OH -> BENZENE + OH + BENZO2VBS rate = 2.30E-12*exp( -193./t) (561) + BENZO2_HO2_vbs (392) BENZO2VBS + HO2 -> HO2 + 0.0023*SOAGff0 + 0.0008*SOAGff1 rate = 7.50E-13*exp( 700./t) (562) + 0.0843*SOAGff2 + 0.0443*SOAGff3 + 0.1621*SOAGff4 - BENZO2_NO_vbs (390) BENZO2VBS + NO -> NO + 0.0097*SOAGff0 + 0.0034*SOAGff1 rate = 2.60E-12*exp( 365./t) (560) + BENZO2_NO_vbs (393) BENZO2VBS + NO -> NO + 0.0097*SOAGff0 + 0.0034*SOAGff1 rate = 2.60E-12*exp( 365./t) (563) + 0.1579*SOAGff2 + 0.0059*SOAGff3 + 0.0536*SOAGff4 - ISOP_NO3_vbs (391) ISOP + NO3 -> ISOP + NO3 + 0.059024*SOAGbg3 + 0.025024*SOAGbg4 rate = 3.03E-12*exp( -446./t) (561) - ISOPO2_HO2_vbs (392) ISOPO2VBS + HO2 -> HO2 + 0.0031*SOAGbg0 + 0.0035*SOAGbg1 rate = 2.12E-13*exp( 1300./t) (562) + ISOP_NO3_vbs (394) ISOP + NO3 -> ISOP + NO3 + 0.059024*SOAGbg3 + 0.025024*SOAGbg4 rate = 3.03E-12*exp( -446./t) (564) + ISOPO2_HO2_vbs (395) ISOPO2VBS + HO2 -> HO2 + 0.0031*SOAGbg0 + 0.0035*SOAGbg1 rate = 2.12E-13*exp( 1300./t) (565) + 0.0003*SOAGbg2 + 0.0271*SOAGbg3 + 0.0474*SOAGbg4 - ISOPO2_NO_vbs (393) ISOPO2VBS + NO -> NO + 0.0003*SOAGbg0 + 0.0003*SOAGbg1 rate = 2.70E-12*exp( 350./t) (563) + ISOPO2_NO_vbs (396) ISOPO2VBS + NO -> NO + 0.0003*SOAGbg0 + 0.0003*SOAGbg1 rate = 2.70E-12*exp( 350./t) (566) + 0.0073*SOAGbg2 + 0.0057*SOAGbg3 + 0.0623*SOAGbg4 - ISOP_O3_vbs (394) ISOP + O3 -> ISOP + O3 + 0.0033*SOAGbg3 rate = 1.05E-14*exp( -2000./t) (564) - ISOP_OH_vbs (395) ISOP + OH -> ISOP + OH + ISOPO2VBS rate = 2.54E-11*exp( 410./t) (565) - IVOCbbO2_HO2_vbs (396) IVOCbbO2VBS + HO2 -> HO2 + 0.2381*SOAGbb0 + 0.1308*SOAGbb1 rate = 7.50E-13*exp( 700./t) (566) + ISOP_O3_vbs (397) ISOP + O3 -> ISOP + O3 + 0.0033*SOAGbg3 rate = 1.05E-14*exp( -2000./t) (567) + ISOP_OH_vbs (398) ISOP + OH -> ISOP + OH + ISOPO2VBS rate = 2.54E-11*exp( 410./t) (568) + IVOCbbO2_HO2_vbs (399) IVOCbbO2VBS + HO2 -> HO2 + 0.2381*SOAGbb0 + 0.1308*SOAGbb1 rate = 7.50E-13*exp( 700./t) (569) + 0.0348*SOAGbb2 + 0.0076*SOAGbb3 + 0.0113*SOAGbb4 - IVOCbbO2_NO_vbs (397) IVOCbbO2VBS + NO -> NO + 0.1056*SOAGbb0 + 0.1026*SOAGbb1 rate = 2.60E-12*exp( 365./t) (567) + IVOCbbO2_NO_vbs (400) IVOCbbO2VBS + NO -> NO + 0.1056*SOAGbb0 + 0.1026*SOAGbb1 rate = 2.60E-12*exp( 365./t) (570) + 0.0521*SOAGbb2 + 0.0143*SOAGbb3 + 0.0166*SOAGbb4 - IVOCbb_OH_vbs (398) IVOCbb + OH -> OH + IVOCbbO2VBS rate = 1.34E-11 (568) - IVOCffO2_HO2_vbs (399) IVOCffO2VBS + HO2 -> HO2 + 0.2381*SOAGff0 + 0.1308*SOAGff1 rate = 7.50E-13*exp( 700./t) (569) + IVOCbb_OH_vbs (401) IVOCbb + OH -> OH + IVOCbbO2VBS rate = 1.34E-11 (571) + IVOCffO2_HO2_vbs (402) IVOCffO2VBS + HO2 -> HO2 + 0.2381*SOAGff0 + 0.1308*SOAGff1 rate = 7.50E-13*exp( 700./t) (572) + 0.0348*SOAGff2 + 0.0076*SOAGff3 + 0.0113*SOAGff4 - IVOCffO2_NO_vbs (400) IVOCffO2VBS + NO -> NO + 0.1056*SOAGff0 + 0.1026*SOAGff1 rate = 2.60E-12*exp( 365./t) (570) + IVOCffO2_NO_vbs (403) IVOCffO2VBS + NO -> NO + 0.1056*SOAGff0 + 0.1026*SOAGff1 rate = 2.60E-12*exp( 365./t) (573) + 0.0521*SOAGff2 + 0.0143*SOAGff3 + 0.0166*SOAGff4 - IVOCff_OH_vbs (401) IVOCff + OH -> OH + IVOCffO2VBS rate = 1.34E-11 (571) - MTERP_NO3_vbs (402) MTERP + NO3 -> MTERP + NO3 + 0.17493*SOAGbg3 + 0.59019*SOAGbg4 rate = 1.20E-12*exp( 490./t) (572) - MTERPO2_HO2_vbs (403) MTERPO2VBS + HO2 -> HO2 + 0.0508*SOAGbg0 + 0.1149*SOAGbg1 rate = 2.60E-13*exp( 1300./t) (573) + IVOCff_OH_vbs (404) IVOCff + OH -> OH + IVOCffO2VBS rate = 1.34E-11 (574) + MTERP_NO3_vbs (405) MTERP + NO3 -> MTERP + NO3 + 0.17493*SOAGbg3 + 0.59019*SOAGbg4 rate = 1.20E-12*exp( 490./t) (575) + MTERPO2_HO2_vbs (406) MTERPO2VBS + HO2 -> HO2 + 0.0508*SOAGbg0 + 0.1149*SOAGbg1 rate = 2.60E-13*exp( 1300./t) (576) + 0.0348*SOAGbg2 + 0.0554*SOAGbg3 + 0.1278*SOAGbg4 - MTERPO2_NO_vbs (404) MTERPO2VBS + NO -> NO + 0.0245*SOAGbg0 + 0.0082*SOAGbg1 rate = 2.70E-12*exp( 360./t) (574) + MTERPO2_NO_vbs (407) MTERPO2VBS + NO -> NO + 0.0245*SOAGbg0 + 0.0082*SOAGbg1 rate = 2.70E-12*exp( 360./t) (577) + 0.0772*SOAGbg2 + 0.0332*SOAGbg3 + 0.13*SOAGbg4 - MTERP_O3_vbs (405) MTERP + O3 -> MTERP + O3 + 0.0508*SOAGbg0 + 0.1149*SOAGbg1 rate = 6.30E-16*exp( -580./t) (575) + MTERP_O3_vbs (408) MTERP + O3 -> MTERP + O3 + 0.0508*SOAGbg0 + 0.1149*SOAGbg1 rate = 6.30E-16*exp( -580./t) (578) + 0.0348*SOAGbg2 + 0.0554*SOAGbg3 + 0.1278*SOAGbg4 - MTERP_OH_vbs (406) MTERP + OH -> MTERP + OH + MTERPO2VBS rate = 1.20E-11*exp( 440./t) (576) - SVOCbb_OH (407) SVOCbb + OH -> OH + 0.5931*SOAGbb0 + 0.1534*SOAGbb1 rate = 1.34E-11 (577) + MTERP_OH_vbs (409) MTERP + OH -> MTERP + OH + MTERPO2VBS rate = 1.20E-11*exp( 440./t) (579) + SVOCbb_OH (410) SVOCbb + OH -> OH + 0.5931*SOAGbb0 + 0.1534*SOAGbb1 rate = 1.34E-11 (580) + 0.0459*SOAGbb2 + 0.0085*SOAGbb3 + 0.0128*SOAGbb4 - SVOCff_OH (408) SVOCff + OH -> OH + 0.5931*SOAGff0 + 0.1534*SOAGff1 rate = 1.34E-11 (578) + SVOCff_OH (411) SVOCff + OH -> OH + 0.5931*SOAGff0 + 0.1534*SOAGff1 rate = 1.34E-11 (581) + 0.0459*SOAGff2 + 0.0085*SOAGff3 + 0.0128*SOAGff4 - TOLUENE_OH_vbs (409) TOLUENE + OH -> TOLO2 + TOLUO2VBS rate = 1.70E-12*exp( 352./t) (579) - TOLUO2_HO2_vbs (410) TOLUO2VBS + HO2 -> HO2 + 0.1364*SOAGff0 + 0.0101*SOAGff1 rate = 7.50E-13*exp( 700./t) (580) + TOLUENE_OH_vbs (412) TOLUENE + OH -> TOLO2 + TOLUO2VBS rate = 1.70E-12*exp( 352./t) (582) + TOLUO2_HO2_vbs (413) TOLUO2VBS + HO2 -> HO2 + 0.1364*SOAGff0 + 0.0101*SOAGff1 rate = 7.50E-13*exp( 700./t) (583) + 0.0763*SOAGff2 + 0.2157*SOAGff3 + 0.0738*SOAGff4 - TOLUO2_NO_vbs (411) TOLUO2VBS + NO -> NO + 0.0154*SOAGff0 + 0.0452*SOAGff1 rate = 2.60E-12*exp( 365./t) (581) + TOLUO2_NO_vbs (414) TOLUO2VBS + NO -> NO + 0.0154*SOAGff0 + 0.0452*SOAGff1 rate = 2.60E-12*exp( 365./t) (584) + 0.0966*SOAGff2 + 0.0073*SOAGff3 + 0.238*SOAGff4 - usr_GLYOXAL_aer (412) GLYOXAL -> SOAGbg0 rate = ** User defined ** (582) - XYLENES_OH_vbs (413) XYLENES + OH -> XYLENES + OH + XYLEO2VBS rate = 1.70E-11 (583) - XYLEO2_HO2_vbs (414) XYLEO2VBS + HO2 -> HO2 + 0.1677*SOAGff0 + 0.0174*SOAGff1 rate = 7.50E-13*exp( 700./t) (584) + usr_GLYOXAL_aer (415) GLYOXAL -> SOAGbg0 rate = ** User defined ** (585) + XYLENES_OH_vbs (416) XYLENES + OH -> XYLENES + OH + XYLEO2VBS rate = 1.70E-11 (586) + XYLEO2_HO2_vbs (417) XYLEO2VBS + HO2 -> HO2 + 0.1677*SOAGff0 + 0.0174*SOAGff1 rate = 7.50E-13*exp( 700./t) (587) + 0.086*SOAGff2 + 0.0512*SOAGff3 + 0.1598*SOAGff4 - XYLEO2_NO_vbs (415) XYLEO2VBS + NO -> NO + 0.0063*SOAGff0 + 0.0237*SOAGff1 rate = 2.60E-12*exp( 365./t) (585) + XYLEO2_NO_vbs (418) XYLEO2VBS + NO -> NO + 0.0063*SOAGff0 + 0.0237*SOAGff1 rate = 2.60E-12*exp( 365./t) (588) + 0.0025*SOAGff2 + 0.011*SOAGff3 + 0.1185*SOAGff4 - het1 (416) N2O5 -> 2*HNO3 rate = ** User defined ** (586) - het10 (417) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (587) - het11 (418) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (588) - het12 (419) N2O5 -> 2*HNO3 rate = ** User defined ** (589) - het13 (420) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (590) - het14 (421) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (591) - het15 (422) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (592) - het16 (423) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (593) - het17 (424) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (594) - het2 (425) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (595) - het3 (426) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (596) - het4 (427) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (597) - het5 (428) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (598) - het6 (429) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (599) - het7 (430) N2O5 -> 2*HNO3 rate = ** User defined ** (600) - het8 (431) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (601) - het9 (432) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (602) - elec1 (433) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (603) - elec2 (434) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (604) - elec3 (435) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (605) - ion_N2p_O2 (436) N2p + O2 -> O2p + N2 rate = 6.00E-11 (606) - ion_N2p_Oa (437) N2p + O -> NOp + N2D rate = ** User defined ** (607) - ion_N2p_Ob (438) N2p + O -> Op + N2 rate = ** User defined ** (608) - ion_Np_O (439) Np + O -> Op + N rate = 1.00E-12 (609) - ion_Np_O2a (440) Np + O2 -> O2p + N rate = 4.00E-10 (610) - ion_Np_O2b (441) Np + O2 -> NOp + O rate = 2.00E-10 (611) - ion_O2p_N (442) O2p + N -> NOp + O rate = 1.00E-10 (612) - ion_O2p_N2 (443) O2p + N2 -> NOp + NO rate = 5.00E-16 (613) - ion_O2p_NO (444) O2p + NO -> NOp + O2 rate = 4.40E-10 (614) - ion_Op_CO2 (445) Op + CO2 -> O2p + CO rate = 9.00E-10 (615) - ion_Op_N2 (446) Op + N2 -> NOp + N rate = ** User defined ** (616) - ion_Op_O2 (447) Op + O2 -> O2p + O rate = ** User defined ** (617) - E90_tau (448) E90 -> {sink} rate = 1.29E-07 (618) - NH_50_tau (449) NH_50 -> (No products) rate = 2.31E-07 (619) - NH_5_tau (450) NH_5 -> (No products) rate = 2.31E-06 (620) - ST80_25_tau (451) ST80_25 -> (No products) rate = 4.63E-07 (621) + het1 (419) N2O5 -> 2*HNO3 rate = ** User defined ** (589) + het10 (420) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (590) + het11 (421) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (591) + het12 (422) N2O5 -> 2*HNO3 rate = ** User defined ** (592) + het13 (423) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (593) + het14 (424) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (594) + het15 (425) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (595) + het16 (426) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (596) + het17 (427) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (597) + het2 (428) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (598) + het3 (429) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (599) + het4 (430) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (600) + het5 (431) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (601) + het6 (432) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (602) + het7 (433) N2O5 -> 2*HNO3 rate = ** User defined ** (603) + het8 (434) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (604) + het9 (435) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (605) + elec1 (436) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (606) + elec2 (437) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (607) + elec3 (438) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (608) + ion_N2p_O2 (439) N2p + O2 -> O2p + N2 rate = 6.00E-11 (609) + ion_N2p_Oa (440) N2p + O -> NOp + N2D rate = ** User defined ** (610) + ion_N2p_Ob (441) N2p + O -> Op + N2 rate = ** User defined ** (611) + ion_Np_O (442) Np + O -> Op + N rate = 1.00E-12 (612) + ion_Np_O2a (443) Np + O2 -> O2p + N rate = 4.00E-10 (613) + ion_Np_O2b (444) Np + O2 -> NOp + O rate = 2.00E-10 (614) + ion_O2p_N (445) O2p + N -> NOp + O rate = 1.00E-10 (615) + ion_O2p_N2 (446) O2p + N2 -> NOp + NO rate = 5.00E-16 (616) + ion_O2p_NO (447) O2p + NO -> NOp + O2 rate = 4.40E-10 (617) + ion_Op_CO2 (448) Op + CO2 -> O2p + CO rate = 9.00E-10 (618) + ion_Op_N2 (449) Op + N2 -> NOp + N rate = ** User defined ** (619) + ion_Op_O2 (450) Op + O2 -> O2p + O rate = ** User defined ** (620) + E90_tau (451) E90 -> {sink} rate = 1.29E-07 (621) + NH_50_tau (452) NH_50 -> (No products) rate = 2.31E-07 (622) + NH_5_tau (453) NH_5 -> (No products) rate = 2.31E-06 (623) + ST80_25_tau (454) ST80_25 -> (No products) rate = 4.63E-07 (624) Extraneous prod/loss species ( 1) CO (dataset) - ( 2) bc_a4 (dataset) - ( 3) num_a1 (dataset) - ( 4) num_a2 (dataset) - ( 5) num_a4 (dataset) - ( 6) num_a5 (dataset) - ( 7) pombb1_a1 (dataset) - ( 8) pombb1_a4 (dataset) - ( 9) pomff1_a1 (dataset) - (10) pomff1_a4 (dataset) - (11) NO (dataset) - (12) NO2 (dataset) - (13) SO2 (dataset) - (14) SVOCbb (dataset) - (15) SVOCff (dataset) - (16) so4_a1 (dataset) - (17) so4_a2 (dataset) - (18) so4_a5 (dataset) - (19) bc_a1 (dataset) - (20) e - (21) N - (22) N2D - (23) OH - (24) Op - (25) AOA_NH - (26) N2p - (27) Np + ( 2) pombb1_a4 (dataset) + ( 3) SO2 (dataset) + ( 4) NO2 (dataset) + ( 5) bc_a1 (dataset) + ( 6) NO (dataset) + ( 7) num_a1 (dataset) + ( 8) num_a2 (dataset) + ( 9) so4_a1 (dataset) + (10) so4_a2 (dataset) + (11) pombb1_a1 (dataset) + (12) pomff1_a1 (dataset) + (13) num_a4 (dataset) + (14) pomff1_a4 (dataset) + (15) bc_a4 (dataset) + (16) SVOCbb (dataset) + (17) SVOCff (dataset) + (18) Op + (19) N2p + (20) Np + (21) N2D + (22) e + (23) AOA_NH + (24) N + (25) OH Equation Report - d(ALKNIT)/dt = r249*ALKO2*NO - - j20*ALKNIT - r246*OH*ALKNIT - d(ALKOOH)/dt = r247*ALKO2*HO2 - - j21*ALKOOH - r250*OH*ALKOOH + d(ALKNIT)/dt = r252*ALKO2*NO + - j20*ALKNIT - r249*OH*ALKNIT + d(ALKOOH)/dt = r250*ALKO2*HO2 + - j21*ALKOOH - r253*OH*ALKOOH d(AOA_NH)/dt = 0 d(bc_a1)/dt = 0 d(bc_a4)/dt = 0 - d(BCARY)/dt = - r329*NO3*BCARY - r330*O3*BCARY - r331*OH*BCARY - d(BCARYO2VBS)/dt = r387*BCARY*OH - - r384*HO2*BCARYO2VBS - r385*NO*BCARYO2VBS - d(BENZENE)/dt = - r288*OH*BENZENE - d(BENZO2VBS)/dt = r388*BENZENE*OH - - r389*HO2*BENZO2VBS - r390*NO*BENZO2VBS - d(BENZOOH)/dt = r289*BENZO2*HO2 - - j22*BENZOOH - r291*OH*BENZOOH - d(BEPOMUC)/dt = .12*r288*BENZENE*OH + d(BCARY)/dt = - r332*NO3*BCARY - r333*O3*BCARY - r334*OH*BCARY + d(BENZENE)/dt = - r291*OH*BENZENE + d(BENZOOH)/dt = r292*BENZO2*HO2 + - j22*BENZOOH - r294*OH*BENZOOH + d(BEPOMUC)/dt = .12*r291*BENZENE*OH - j23*BEPOMUC - d(BIGALD)/dt = .1*r330*BCARY*O3 + .1*r333*MTERP*O3 + d(BIGALD)/dt = .1*r333*BCARY*O3 + .1*r336*MTERP*O3 - j24*BIGALD - d(BIGALD1)/dt = .5*j22*BENZOOH + j23*BEPOMUC + .2*j71*TOLOOH + .06*j73*XYLENOOH + .5*r290*BENZO2*NO - + .2*r317*TOLO2*NO + .06*r323*XYLENO2*NO + d(BIGALD1)/dt = .5*j22*BENZOOH + j23*BEPOMUC + .2*j71*TOLOOH + .06*j73*XYLENOOH + .5*r293*BENZO2*NO + + .2*r320*TOLO2*NO + .06*r326*XYLENO2*NO - j25*BIGALD1 - d(BIGALD2)/dt = .2*j71*TOLOOH + .2*j73*XYLENOOH + .2*r317*TOLO2*NO + .2*r323*XYLENO2*NO + d(BIGALD2)/dt = .2*j71*TOLOOH + .2*j73*XYLENOOH + .2*r320*TOLO2*NO + .2*r326*XYLENO2*NO - j26*BIGALD2 - d(BIGALD3)/dt = j47*HPALD + j57*NC4CHO + .2*j71*TOLOOH + .15*j73*XYLENOOH + .2*r317*TOLO2*NO - + .15*r323*XYLENO2*NO + d(BIGALD3)/dt = j47*HPALD + j57*NC4CHO + .2*j71*TOLOOH + .15*j73*XYLENOOH + .2*r320*TOLO2*NO + + .15*r326*XYLENO2*NO - j27*BIGALD3 - d(BIGALD4)/dt = .21*j73*XYLENOOH + .21*r323*XYLENO2*NO + d(BIGALD4)/dt = .21*j73*XYLENOOH + .21*r326*XYLENO2*NO - j28*BIGALD4 - d(BIGALK)/dt = .05*r330*BCARY*O3 + .05*r333*MTERP*O3 - - r251*OH*BIGALK - d(BIGENE)/dt = - r217*NO3*BIGENE - r218*OH*BIGENE + d(BIGALK)/dt = .05*r333*BCARY*O3 + .05*r336*MTERP*O3 + - r254*OH*BIGALK + d(BIGENE)/dt = - r220*NO3*BIGENE - r221*OH*BIGENE d(BR)/dt = j75*BRCL + j76*BRO + j78*BRONO2 + j80*CF2CLBR + j81*CF3BR + 2*j87*CH2BR2 + j88*CH3BR - + 3*j91*CHBR3 + 2*j99*H2402 + j100*HBR + j106*HOBR + r90*O1D*CF2CLBR + 2*r103*BRO*BRO - + r104*BRO*CLO + r105*BRO*CLO + r108*BRO*NO + r111*BRO*O + r112*BRO*OH + r113*HBR*O - + r114*HBR*OH + r116*O1D*CF3BR + 3*r117*O1D*CHBR3 + 2*r118*O1D*H2402 + r119*O1D*HBR - + 2*r127*CH2BR2*CL + 2*r128*CH2BR2*OH + r129*CH3BR*CL + r130*CH3BR*OH + 3*r134*CHBR3*CL - + 3*r135*CHBR3*OH + 2*r139*O1D*CH2BR2 + r140*O1D*CH3BR + r359*SO*BRO - - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR - d(BRCL)/dt = r106*BRO*CLO + r424*HOBR*HCL + r429*HOBR*HCL + + 3*j91*CHBR3 + 2*j99*H2402 + j100*HBR + j106*HOBR + r93*O1D*CF2CLBR + 2*r106*BRO*BRO + + r107*BRO*CLO + r108*BRO*CLO + r111*BRO*NO + r114*BRO*O + r115*BRO*OH + r116*HBR*O + + r117*HBR*OH + r119*O1D*CF3BR + 3*r120*O1D*CHBR3 + 2*r121*O1D*H2402 + r122*O1D*HBR + + 2*r130*CH2BR2*CL + 2*r131*CH2BR2*OH + r132*CH3BR*CL + r133*CH3BR*OH + 3*r137*CHBR3*CL + + 3*r138*CHBR3*OH + 2*r142*O1D*CH2BR2 + r143*O1D*CH3BR + r362*SO*BRO + - r103*CH2O*BR - r104*HO2*BR - r105*O3*BR + d(BRCL)/dt = r109*BRO*CLO + r427*HOBR*HCL + r432*HOBR*HCL - j75*BRCL - d(BRO)/dt = j77*BRONO2 + r102*BR*O3 + r110*BRONO2*O + r115*HOBR*O + r120*O1D*HBR - - j76*BRO - 2*r103*BRO*BRO - r104*CLO*BRO - r105*CLO*BRO - r106*CLO*BRO - r107*HO2*BRO - - r108*NO*BRO - r109*M*NO2*BRO - r111*O*BRO - r112*OH*BRO - r359*SO*BRO - d(BRONO2)/dt = r109*M*BRO*NO2 - - j77*BRONO2 - j78*BRONO2 - r418*BRONO2 - r421*BRONO2 - r426*BRONO2 - r110*O*BRONO2 + d(BRO)/dt = j77*BRONO2 + r105*BR*O3 + r113*BRONO2*O + r118*HOBR*O + r123*O1D*HBR + - j76*BRO - 2*r106*BRO*BRO - r107*CLO*BRO - r108*CLO*BRO - r109*CLO*BRO - r110*HO2*BRO + - r111*NO*BRO - r112*M*NO2*BRO - r114*O*BRO - r115*OH*BRO - r362*SO*BRO + d(BRONO2)/dt = r112*M*BRO*NO2 + - j77*BRONO2 - j78*BRONO2 - r421*BRONO2 - r424*BRONO2 - r429*BRONO2 - r113*O*BRONO2 d(BRY)/dt = 0 - d(BZALD)/dt = j29*BZOOH + r295*BZOO*NO - - r292*OH*BZALD - d(BZOOH)/dt = r293*BZOO*HO2 - - j29*BZOOH - r294*OH*BZOOH - d(C2H2)/dt = - r165*M*CL*C2H2 - r166*M*OH*C2H2 - d(C2H4)/dt = - r167*M*CL*C2H4 - r168*O3*C2H4 - r193*M*OH*C2H4 - d(C2H5OH)/dt = .4*r169*C2H5O2*C2H5O2 + .2*r170*C2H5O2*CH3O2 - - r173*OH*C2H5OH - d(C2H5OOH)/dt = r171*C2H5O2*HO2 - - j30*C2H5OOH - r174*OH*C2H5OOH - d(C2H6)/dt = - r175*CL*C2H6 - r176*OH*C2H6 - d(C3H6)/dt = .7*j56*MVK + .13*r275*ISOP*O3 - - r196*NO3*C3H6 - r197*O3*C3H6 - r215*M*OH*C3H6 - d(C3H7OOH)/dt = r199*C3H7O2*HO2 - - j31*C3H7OOH - r201*OH*C3H7OOH - d(C3H8)/dt = - r202*OH*C3H8 - r205*CL*C3H8 - d(C6H5OOH)/dt = r296*C6H5O2*HO2 - - j32*C6H5OOH - r298*OH*C6H5OOH - d(CCL4)/dt = - j79*CCL4 - r89*O1D*CCL4 - d(CF2CLBR)/dt = - j80*CF2CLBR - r90*O1D*CF2CLBR - d(CF3BR)/dt = - j81*CF3BR - r116*O1D*CF3BR - d(CFC11)/dt = - j82*CFC11 - r91*O1D*CFC11 - d(CFC113)/dt = - j83*CFC113 - r92*O1D*CFC113 - d(CFC114)/dt = - j84*CFC114 - r93*O1D*CFC114 - d(CFC115)/dt = - j85*CFC115 - r94*O1D*CFC115 - d(CFC12)/dt = - j86*CFC12 - r95*O1D*CFC12 - d(CH2BR2)/dt = - j87*CH2BR2 - r127*CL*CH2BR2 - r128*OH*CH2BR2 - r139*O1D*CH2BR2 + d(BZALD)/dt = j29*BZOOH + r298*BZOO*NO + - r295*OH*BZALD + d(BZOOH)/dt = r296*BZOO*HO2 + - j29*BZOOH - r297*OH*BZOOH + d(C2H2)/dt = - r168*M*CL*C2H2 - r169*M*OH*C2H2 + d(C2H4)/dt = - r170*M*CL*C2H4 - r171*O3*C2H4 - r196*M*OH*C2H4 + d(C2H5OH)/dt = .4*r172*C2H5O2*C2H5O2 + .2*r173*C2H5O2*CH3O2 + - r176*OH*C2H5OH + d(C2H5OOH)/dt = r174*C2H5O2*HO2 + - j30*C2H5OOH - r177*OH*C2H5OOH + d(C2H6)/dt = - r178*CL*C2H6 - r179*OH*C2H6 + d(C3H6)/dt = .7*j56*MVK + .13*r278*ISOP*O3 + - r199*NO3*C3H6 - r200*O3*C3H6 - r218*M*OH*C3H6 + d(C3H7OOH)/dt = r202*C3H7O2*HO2 + - j31*C3H7OOH - r204*OH*C3H7OOH + d(C3H8)/dt = - r205*OH*C3H8 - r208*CL*C3H8 + d(C6H5OOH)/dt = r299*C6H5O2*HO2 + - j32*C6H5OOH - r301*OH*C6H5OOH + d(CCL4)/dt = - j79*CCL4 - r92*O1D*CCL4 + d(CF2CLBR)/dt = - j80*CF2CLBR - r93*O1D*CF2CLBR + d(CF3BR)/dt = - j81*CF3BR - r119*O1D*CF3BR + d(CFC11)/dt = - j82*CFC11 - r94*O1D*CFC11 + d(CFC113)/dt = - j83*CFC113 - r95*O1D*CFC113 + d(CFC114)/dt = - j84*CFC114 - r96*O1D*CFC114 + d(CFC115)/dt = - j85*CFC115 - r97*O1D*CFC115 + d(CFC12)/dt = - j86*CFC12 - r98*O1D*CFC12 + d(CH2BR2)/dt = - j87*CH2BR2 - r130*CL*CH2BR2 - r131*OH*CH2BR2 - r142*O1D*CH2BR2 d(CH2O)/dt = .1*j20*ALKNIT + .1*j21*ALKOOH + j39*CH3OOH + .18*j40*CH4 + j44*GLYALD + .33*j46*HONITR + j48*HYAC + j50*ISOPOOH + 1.34*j51*MACR + j58*NOA + j63*POOH + j64*ROOH + .375*j66*TERP2OOH - + .4*j68*TERPOOH + .68*j70*TERPROD2 + r158*HOCH2OO + 2*r188*EO + r71*CLO*CH3O2 - + 2*r148*CH3O2*CH3O2 + r149*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + .3*r153*CH3OOH*OH - + r161*O1D*CH4 + r162*O1D*CH4 + r168*C2H4*O3 + .7*r170*C2H5O2*CH3O2 + r181*CH3CO3*CH3O2 - + .5*r185*CH3COOOH*OH + .5*r187*EO2*NO + .8*r190*GLYALD*OH + r192*PAN*OH + .5*r197*C3H6*O3 - + r198*C3H7O2*CH3O2 + r209*PO2*NO + .8*r211*RO2*CH3O2 + .15*r212*RO2*HO2 + r213*RO2*NO - + .5*r217*BIGENE*NO3 + .5*r219*ENEO2*NO + .25*r222*MACRO2*CH3CO3 + .88*r223*MACRO2*CH3O2 - + .25*r225*MACRO2*NO3 + .25*r226*MACRO2*NO + .12*r228*MACR*O3 + r231*MCO3*CH3CO3 - + 2*r232*MCO3*CH3O2 + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + r235*MCO3*NO + r236*MCO3*NO3 - + .5*r241*M*MPAN*OH + .6*r242*MVK*O3 + .4*r246*ALKNIT*OH + .1*r248*ALKO2*NO - + r255*ISOPAO2*CH3CO3 + 1.5*r256*ISOPAO2*CH3O2 + .92*r258*ISOPAO2*NO + r259*ISOPAO2*NO3 - + .75*r261*ISOPBO2*CH3O2 + .3*r266*ISOPNITA*OH + .8*r270*ISOPNO3*CH3O2 + .91*r275*ISOP*O3 - + .25*r280*XO2*CH3CO3 + .8*r281*XO2*CH3O2 + .25*r283*XO2*NO + .34*r330*BCARY*O3 - + .34*r333*MTERP*O3 + .75*r335*NTERPO2*CH3O2 + .93*r340*TERP2O2*CH3O2 + .34*r342*TERP2O2*NO - + .95*r345*TERPO2*CH3O2 + .32*r347*TERPO2*NO + .68*r351*TERPROD2*OH - - j33*CH2O - j34*CH2O - r64*CL*CH2O - r100*BR*CH2O - r144*HO2*CH2O - r145*NO3*CH2O - - r146*O*CH2O - r147*OH*CH2O - d(CH3BR)/dt = - j88*CH3BR - r129*CL*CH3BR - r130*OH*CH3BR - r140*O1D*CH3BR - d(CH3CCL3)/dt = - j89*CH3CCL3 - r131*OH*CH3CCL3 + + .4*j68*TERPOOH + .68*j70*TERPROD2 + r161*HOCH2OO + 2*r191*EO + r74*CLO*CH3O2 + + 2*r151*CH3O2*CH3O2 + r152*CH3O2*CH3O2 + r154*CH3O2*NO + r155*CH3OH*OH + .3*r156*CH3OOH*OH + + r164*O1D*CH4 + r165*O1D*CH4 + r171*C2H4*O3 + .7*r173*C2H5O2*CH3O2 + r184*CH3CO3*CH3O2 + + .5*r188*CH3COOOH*OH + .5*r190*EO2*NO + .8*r193*GLYALD*OH + r195*PAN*OH + .5*r200*C3H6*O3 + + r201*C3H7O2*CH3O2 + r212*PO2*NO + .8*r214*RO2*CH3O2 + .15*r215*RO2*HO2 + r216*RO2*NO + + .5*r220*BIGENE*NO3 + .5*r222*ENEO2*NO + .25*r225*MACRO2*CH3CO3 + .88*r226*MACRO2*CH3O2 + + .25*r228*MACRO2*NO3 + .25*r229*MACRO2*NO + .12*r231*MACR*O3 + r234*MCO3*CH3CO3 + + 2*r235*MCO3*CH3O2 + .45*r236*MCO3*HO2 + 2*r237*MCO3*MCO3 + r238*MCO3*NO + r239*MCO3*NO3 + + .5*r244*M*MPAN*OH + .6*r245*MVK*O3 + .4*r249*ALKNIT*OH + .1*r251*ALKO2*NO + + r258*ISOPAO2*CH3CO3 + 1.5*r259*ISOPAO2*CH3O2 + .92*r261*ISOPAO2*NO + r262*ISOPAO2*NO3 + + .75*r264*ISOPBO2*CH3O2 + .3*r269*ISOPNITA*OH + .8*r273*ISOPNO3*CH3O2 + .91*r278*ISOP*O3 + + .25*r283*XO2*CH3CO3 + .8*r284*XO2*CH3O2 + .25*r286*XO2*NO + .34*r333*BCARY*O3 + + .34*r336*MTERP*O3 + .75*r338*NTERPO2*CH3O2 + .93*r343*TERP2O2*CH3O2 + .34*r345*TERP2O2*NO + + .95*r348*TERPO2*CH3O2 + .32*r350*TERPO2*NO + .68*r354*TERPROD2*OH + - j33*CH2O - j34*CH2O - r67*CL*CH2O - r103*BR*CH2O - r147*HO2*CH2O - r148*NO3*CH2O + - r149*O*CH2O - r150*OH*CH2O + d(CH3BR)/dt = - j88*CH3BR - r132*CL*CH3BR - r133*OH*CH3BR - r143*O1D*CH3BR + d(CH3CCL3)/dt = - j89*CH3CCL3 - r134*OH*CH3CCL3 d(CH3CHO)/dt = .4*j20*ALKNIT + .4*j21*ALKOOH + j30*C2H5OOH + .33*j46*HONITR + j54*MEKOOH + j63*POOH - + 1.6*r169*C2H5O2*C2H5O2 + .8*r170*C2H5O2*CH3O2 + r172*C2H5O2*NO + r173*C2H5OH*OH - + .5*r174*C2H5OOH*OH + .5*r197*C3H6*O3 + .27*r200*C3H7O2*NO + r209*PO2*NO + r217*BIGENE*NO3 - + r219*ENEO2*NO + .2*r237*MEKO2*HO2 + r238*MEKO2*NO + .1*r242*MVK*O3 + .8*r246*ALKNIT*OH - + .4*r248*ALKO2*NO - - j35*CH3CHO - r177*NO3*CH3CHO - r178*OH*CH3CHO - d(CH3CL)/dt = - j90*CH3CL - r132*CL*CH3CL - r133*OH*CH3CL - d(CH3CN)/dt = - r179*OH*CH3CN + + 1.6*r172*C2H5O2*C2H5O2 + .8*r173*C2H5O2*CH3O2 + r175*C2H5O2*NO + r176*C2H5OH*OH + + .5*r177*C2H5OOH*OH + .5*r200*C3H6*O3 + .27*r203*C3H7O2*NO + r212*PO2*NO + r220*BIGENE*NO3 + + r222*ENEO2*NO + .2*r240*MEKO2*HO2 + r241*MEKO2*NO + .1*r245*MVK*O3 + .8*r249*ALKNIT*OH + + .4*r251*ALKO2*NO + - j35*CH3CHO - r180*NO3*CH3CHO - r181*OH*CH3CHO + d(CH3CL)/dt = - j90*CH3CL - r135*CL*CH3CL - r136*OH*CH3CL + d(CH3CN)/dt = - r182*OH*CH3CN d(CH3COCH3)/dt = .25*j20*ALKNIT + .25*j21*ALKOOH + .82*j31*C3H7OOH + .17*j46*HONITR + .3*j66*TERP2OOH - + .05*j68*TERPOOH + .5*j70*TERPROD2 + .82*r198*C3H7O2*CH3O2 + .82*r200*C3H7O2*NO - + .5*r217*BIGENE*NO3 + .5*r219*ENEO2*NO + .8*r246*ALKNIT*OH + .25*r248*ALKO2*NO - + .52*r330*BCARY*O3 + .52*r333*MTERP*O3 + .15*r340*TERP2O2*CH3O2 + .27*r342*TERP2O2*NO - + .025*r345*TERPO2*CH3O2 + .04*r347*TERPO2*NO + .5*r351*TERPROD2*OH - - j36*CH3COCH3 - r216*OH*CH3COCH3 + + .05*j68*TERPOOH + .5*j70*TERPROD2 + .82*r201*C3H7O2*CH3O2 + .82*r203*C3H7O2*NO + + .5*r220*BIGENE*NO3 + .5*r222*ENEO2*NO + .8*r249*ALKNIT*OH + .25*r251*ALKO2*NO + + .52*r333*BCARY*O3 + .52*r336*MTERP*O3 + .15*r343*TERP2O2*CH3O2 + .27*r345*TERP2O2*NO + + .025*r348*TERPO2*CH3O2 + .04*r350*TERPO2*NO + .5*r354*TERPROD2*OH + - j36*CH3COCH3 - r219*OH*CH3COCH3 d(CH3COCHO)/dt = .18*j24*BIGALD + j28*BIGALD4 + .4*j71*TOLOOH + .54*j73*XYLENOOH + .51*j74*XYLOLOOH - + r206*HYAC*OH + r207*NOA*OH + .5*r211*RO2*CH3O2 + .25*r222*MACRO2*CH3CO3 - + .24*r223*MACRO2*CH3O2 + .25*r225*MACRO2*NO3 + .25*r226*MACRO2*NO + .88*r228*MACR*O3 - + .5*r242*MVK*O3 + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 + .25*r280*XO2*CH3CO3 - + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 + .07*r300*DICARBO2*HO2 - + .17*r301*DICARBO2*NO + .07*r306*MDIALO2*HO2 + .17*r307*MDIALO2*NO + .4*r317*TOLO2*NO - + .54*r323*XYLENO2*NO + .51*r326*XYLOLO2*NO - - j37*CH3COCHO - r203*NO3*CH3COCHO - r204*OH*CH3COCHO - d(CH3COOH)/dt = .1*r181*CH3CO3*CH3O2 + .15*r182*CH3CO3*HO2 + .12*r197*C3H6*O3 + .15*r233*MCO3*HO2 - - r184*OH*CH3COOH - d(CH3COOOH)/dt = .4*r182*CH3CO3*HO2 + .4*r233*MCO3*HO2 - - j38*CH3COOOH - r185*OH*CH3COOOH - d(CH3OH)/dt = r149*CH3O2*CH3O2 + .3*r170*C2H5O2*CH3O2 + .5*r211*RO2*CH3O2 + .25*r223*MACRO2*CH3O2 - + .25*r256*ISOPAO2*CH3O2 + .25*r261*ISOPBO2*CH3O2 + .2*r270*ISOPNO3*CH3O2 + .3*r281*XO2*CH3O2 - + .25*r335*NTERPO2*CH3O2 + .25*r340*TERP2O2*CH3O2 + .25*r345*TERPO2*CH3O2 - - r152*OH*CH3OH - d(CH3OOH)/dt = r150*CH3O2*HO2 - - j39*CH3OOH - r153*OH*CH3OOH - d(CH4)/dt = .1*r197*C3H6*O3 - - j40*CH4 - j41*CH4 - r65*CL*CH4 - r121*F*CH4 - r154*OH*CH4 - r160*O1D*CH4 - r161*O1D*CH4 - - r162*O1D*CH4 - d(CHBR3)/dt = - j91*CHBR3 - r117*O1D*CHBR3 - r134*CL*CHBR3 - r135*OH*CHBR3 + + r209*HYAC*OH + r210*NOA*OH + .5*r214*RO2*CH3O2 + .25*r225*MACRO2*CH3CO3 + + .24*r226*MACRO2*CH3O2 + .25*r228*MACRO2*NO3 + .25*r229*MACRO2*NO + .88*r231*MACR*O3 + + .5*r245*MVK*O3 + .05*r267*ISOPBO2*NO + .05*r268*ISOPBO2*NO3 + .25*r283*XO2*CH3CO3 + + .1*r284*XO2*CH3O2 + .25*r286*XO2*NO + .25*r287*XO2*NO3 + .07*r303*DICARBO2*HO2 + + .17*r304*DICARBO2*NO + .07*r309*MDIALO2*HO2 + .17*r310*MDIALO2*NO + .4*r320*TOLO2*NO + + .54*r326*XYLENO2*NO + .51*r329*XYLOLO2*NO + - j37*CH3COCHO - r206*NO3*CH3COCHO - r207*OH*CH3COCHO + d(CH3COOH)/dt = .1*r184*CH3CO3*CH3O2 + .15*r185*CH3CO3*HO2 + .12*r200*C3H6*O3 + .15*r236*MCO3*HO2 + - r187*OH*CH3COOH + d(CH3COOOH)/dt = .4*r185*CH3CO3*HO2 + .4*r236*MCO3*HO2 + - j38*CH3COOOH - r188*OH*CH3COOOH + d(CH3OH)/dt = r152*CH3O2*CH3O2 + .3*r173*C2H5O2*CH3O2 + .5*r214*RO2*CH3O2 + .25*r226*MACRO2*CH3O2 + + .25*r259*ISOPAO2*CH3O2 + .25*r264*ISOPBO2*CH3O2 + .2*r273*ISOPNO3*CH3O2 + .3*r284*XO2*CH3O2 + + .25*r338*NTERPO2*CH3O2 + .25*r343*TERP2O2*CH3O2 + .25*r348*TERPO2*CH3O2 + - r155*OH*CH3OH + d(CH3OOH)/dt = r153*CH3O2*HO2 + - j39*CH3OOH - r156*OH*CH3OOH + d(CH4)/dt = .1*r200*C3H6*O3 + - j40*CH4 - j41*CH4 - r68*CL*CH4 - r124*F*CH4 - r157*OH*CH4 - r163*O1D*CH4 - r164*O1D*CH4 + - r165*O1D*CH4 + d(CHBR3)/dt = - j91*CHBR3 - r120*O1D*CHBR3 - r137*CL*CHBR3 - r138*OH*CHBR3 d(CL)/dt = j75*BRCL + 4*j79*CCL4 + j80*CF2CLBR + 2*j82*CFC11 + 2*j83*CFC113 + 2*j84*CFC114 + j85*CFC115 + 2*j86*CFC12 + 3*j89*CH3CCL3 + j90*CH3CL + 2*j92*CL2 + 2*j93*CL2O2 + j94*CLO + j95*CLONO2 - + j98*COFCL + j101*HCFC141B + j102*HCFC142B + j103*HCFC22 + j104*HCL + j107*HOCL + r71*CLO*CH3O2 - + 2*r72*CLO*CLO + r74*CLO*CLO + r76*CLO*NO + r81*CLO*O + r82*CLO*OH + r84*HCL*O + r85*HCL*OH - + 4*r89*O1D*CCL4 + r90*O1D*CF2CLBR + 2*r91*O1D*CFC11 + 2*r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + r94*O1D*CFC115 + 2*r95*O1D*CFC12 + r96*O1D*HCL + r105*BRO*CLO + r126*O1D*COFCL - + 3*r131*CH3CCL3*OH + r133*CH3CL*OH + r136*HCFC141B*OH + r137*HCFC142B*OH + r138*HCFC22*OH - + r141*O1D*HCFC141B + r142*O1D*HCFC142B + r143*O1D*HCFC22 + r360*SO*CLO - - r64*CH2O*CL - r65*CH4*CL - r66*H2*CL - r67*H2O2*CL - r68*HO2*CL - r69*HO2*CL - r70*O3*CL - - r77*CLONO2*CL - r86*HOCL*CL - r127*CH2BR2*CL - r129*CH3BR*CL - r132*CH3CL*CL - r134*CHBR3*CL - - r175*C2H6*CL - r205*C3H8*CL - d(CL2)/dt = r73*CLO*CLO + r77*CLONO2*CL + r417*HOCL*HCL + r422*CLONO2*HCL + r423*HOCL*HCL + r427*CLONO2*HCL - + r428*HOCL*HCL + r432*CLONO2*HCL + + j98*COFCL + j101*HCFC141B + j102*HCFC142B + j103*HCFC22 + j104*HCL + j107*HOCL + r74*CLO*CH3O2 + + 2*r75*CLO*CLO + r77*CLO*CLO + r79*CLO*NO + r84*CLO*O + r85*CLO*OH + r87*HCL*O + r88*HCL*OH + + 4*r92*O1D*CCL4 + r93*O1D*CF2CLBR + 2*r94*O1D*CFC11 + 2*r95*O1D*CFC113 + 2*r96*O1D*CFC114 + + r97*O1D*CFC115 + 2*r98*O1D*CFC12 + r99*O1D*HCL + r108*BRO*CLO + r129*O1D*COFCL + + 3*r134*CH3CCL3*OH + r136*CH3CL*OH + r139*HCFC141B*OH + r140*HCFC142B*OH + r141*HCFC22*OH + + r144*O1D*HCFC141B + r145*O1D*HCFC142B + r146*O1D*HCFC22 + r363*SO*CLO + - r67*CH2O*CL - r68*CH4*CL - r69*H2*CL - r70*H2O2*CL - r71*HO2*CL - r72*HO2*CL - r73*O3*CL + - r80*CLONO2*CL - r89*HOCL*CL - r130*CH2BR2*CL - r132*CH3BR*CL - r135*CH3CL*CL - r137*CHBR3*CL + - r178*C2H6*CL - r208*C3H8*CL + d(CL2)/dt = r76*CLO*CLO + r80*CLONO2*CL + r420*HOCL*HCL + r425*CLONO2*HCL + r426*HOCL*HCL + r430*CLONO2*HCL + + r431*HOCL*HCL + r435*CLONO2*HCL - j92*CL2 - d(CL2O2)/dt = r98*M*CLO*CLO - - j93*CL2O2 - r99*M*CL2O2 - d(CLO)/dt = j96*CLONO2 + j108*OCLO + r99*M*CL2O2 + r99*M*CL2O2 + r69*CL*HO2 + r70*CL*O3 + r79*CLONO2*O - + r86*HOCL*CL + r87*HOCL*O + r88*HOCL*OH + r97*O1D*HCL + r365*SO*OCLO - - j94*CLO - r71*CH3O2*CLO - 2*r72*CLO*CLO - 2*r73*CLO*CLO - 2*r74*CLO*CLO - r75*HO2*CLO - - r76*NO*CLO - r78*M*NO2*CLO - r81*O*CLO - r82*OH*CLO - r83*OH*CLO - 2*r98*M*CLO*CLO - - r104*BRO*CLO - r105*BRO*CLO - r106*BRO*CLO - r360*SO*CLO - d(CLONO2)/dt = r78*M*CLO*NO2 - - j95*CLONO2 - j96*CLONO2 - r420*CLONO2 - r425*CLONO2 - r431*CLONO2 - r77*CL*CLONO2 - - r79*O*CLONO2 - r80*OH*CLONO2 - r422*HCL*CLONO2 - r427*HCL*CLONO2 - r432*HCL*CLONO2 + d(CL2O2)/dt = r101*M*CLO*CLO + - j93*CL2O2 - r102*M*CL2O2 + d(CLO)/dt = j96*CLONO2 + j108*OCLO + r102*M*CL2O2 + r102*M*CL2O2 + r72*CL*HO2 + r73*CL*O3 + r82*CLONO2*O + + r89*HOCL*CL + r90*HOCL*O + r91*HOCL*OH + r100*O1D*HCL + r368*SO*OCLO + - j94*CLO - r74*CH3O2*CLO - 2*r75*CLO*CLO - 2*r76*CLO*CLO - 2*r77*CLO*CLO - r78*HO2*CLO + - r79*NO*CLO - r81*M*NO2*CLO - r84*O*CLO - r85*OH*CLO - r86*OH*CLO - 2*r101*M*CLO*CLO + - r107*BRO*CLO - r108*BRO*CLO - r109*BRO*CLO - r363*SO*CLO + d(CLONO2)/dt = r81*M*CLO*NO2 + - j95*CLONO2 - j96*CLONO2 - r423*CLONO2 - r428*CLONO2 - r434*CLONO2 - r80*CL*CLONO2 + - r82*O*CLONO2 - r83*OH*CLONO2 - r425*HCL*CLONO2 - r430*HCL*CLONO2 - r435*HCL*CLONO2 d(CLY)/dt = 0 d(CO)/dt = 1.5*j23*BEPOMUC + .45*j24*BIGALD + .6*j27*BIGALD3 + j28*BIGALD4 + j33*CH2O + j34*CH2O + j35*CH3CHO + j37*CH3COCHO + .38*j40*CH4 + j42*CO2 + j44*GLYALD + 2*j45*GLYOXAL + .33*j46*HONITR + 1.34*j52*MACR + .7*j56*MVK + 1.5*j65*TEPOMUC + .25*j66*TERP2OOH + j69*TERPROD1 - + 1.7*j70*TERPROD2 + j110*CO2 + j137*OCS + r64*CL*CH2O + r100*BR*CH2O + r132*CH3CL*CL - + r145*CH2O*NO3 + r146*CH2O*O + r147*CH2O*OH + .35*r166*M*C2H2*OH + .63*r168*C2H4*O3 - + r191*GLYOXAL*OH + .56*r197*C3H6*O3 + r203*CH3COCHO*NO3 + r204*CH3COCHO*OH - + .22*r222*MACRO2*CH3CO3 + .11*r223*MACRO2*CH3O2 + .22*r225*MACRO2*NO3 + .22*r226*MACRO2*NO - + .65*r228*MACR*O3 + .56*r242*MVK*O3 + .62*r275*ISOP*O3 + .25*r280*XO2*CH3CO3 + .2*r281*XO2*CH3O2 - + .25*r283*XO2*NO + .5*r284*XO2*NO3 + .07*r300*DICARBO2*HO2 + .17*r301*DICARBO2*NO - + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO + .14*r306*MDIALO2*HO2 + .35*r307*MDIALO2*NO - + .23*r330*BCARY*O3 + .23*r333*MTERP*O3 + .125*r340*TERP2O2*CH3O2 + .225*r342*TERP2O2*NO - + .7*r351*TERPROD2*OH + r354*OCS*O + r355*OCS*OH + r445*Op*CO2 - - r164*OH*CO - d(CO2)/dt = j38*CH3COOOH + .44*j40*CH4 + .4*j61*PAN + j66*TERP2OOH + .8*j70*TERPROD2 + r156*HCOOH*OH - + r164*CO*OH + 2*r180*CH3CO3*CH3CO3 + .9*r181*CH3CO3*CH3O2 + r183*CH3CO3*NO + r184*CH3COOH*OH - + .5*r185*CH3COOOH*OH + .8*r190*GLYALD*OH + r191*GLYOXAL*OH + .2*r197*C3H6*O3 - + 2*r231*MCO3*CH3CO3 + r232*MCO3*CH3O2 + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + .5*r241*M*MPAN*OH - + .1*r242*MVK*O3 + r255*ISOPAO2*CH3CO3 + r280*XO2*CH3CO3 + .27*r330*BCARY*O3 + .27*r333*MTERP*O3 - + .5*r340*TERP2O2*CH3O2 + .9*r342*TERP2O2*NO + 1.8*r351*TERPROD2*OH - - j42*CO2 - j110*CO2 - r445*Op*CO2 + + 1.7*j70*TERPROD2 + j110*CO2 + j137*OCS + r67*CL*CH2O + r103*BR*CH2O + r135*CH3CL*CL + + r148*CH2O*NO3 + r149*CH2O*O + r150*CH2O*OH + .35*r169*M*C2H2*OH + .63*r171*C2H4*O3 + + r194*GLYOXAL*OH + .56*r200*C3H6*O3 + r206*CH3COCHO*NO3 + r207*CH3COCHO*OH + + .22*r225*MACRO2*CH3CO3 + .11*r226*MACRO2*CH3O2 + .22*r228*MACRO2*NO3 + .22*r229*MACRO2*NO + + .65*r231*MACR*O3 + .56*r245*MVK*O3 + .62*r278*ISOP*O3 + .25*r283*XO2*CH3CO3 + .2*r284*XO2*CH3O2 + + .25*r286*XO2*NO + .5*r287*XO2*NO3 + .07*r303*DICARBO2*HO2 + .17*r304*DICARBO2*NO + + .16*r306*MALO2*HO2 + .4*r307*MALO2*NO + .14*r309*MDIALO2*HO2 + .35*r310*MDIALO2*NO + + .23*r333*BCARY*O3 + .23*r336*MTERP*O3 + .125*r343*TERP2O2*CH3O2 + .225*r345*TERP2O2*NO + + .7*r354*TERPROD2*OH + r357*OCS*O + r358*OCS*OH + r448*Op*CO2 + - r167*OH*CO + d(CO2)/dt = j38*CH3COOOH + .44*j40*CH4 + .4*j61*PAN + j66*TERP2OOH + .8*j70*TERPROD2 + r159*HCOOH*OH + + r167*CO*OH + 2*r183*CH3CO3*CH3CO3 + .9*r184*CH3CO3*CH3O2 + r186*CH3CO3*NO + r187*CH3COOH*OH + + .5*r188*CH3COOOH*OH + .8*r193*GLYALD*OH + r194*GLYOXAL*OH + .2*r200*C3H6*O3 + + 2*r234*MCO3*CH3CO3 + r235*MCO3*CH3O2 + .45*r236*MCO3*HO2 + 2*r237*MCO3*MCO3 + .5*r244*M*MPAN*OH + + .1*r245*MVK*O3 + r258*ISOPAO2*CH3CO3 + r283*XO2*CH3CO3 + .27*r333*BCARY*O3 + .27*r336*MTERP*O3 + + .5*r343*TERP2O2*CH3O2 + .9*r345*TERP2O2*NO + 1.8*r354*TERPROD2*OH + - j42*CO2 - j110*CO2 - r448*Op*CO2 d(COF2)/dt = j80*CF2CLBR + j81*CF3BR + j83*CFC113 + 2*j84*CFC114 + 2*j85*CFC115 + j86*CFC12 + 2*j99*H2402 - + j102*HCFC142B + j103*HCFC22 + r90*O1D*CF2CLBR + r92*O1D*CFC113 + 2*r93*O1D*CFC114 - + 2*r94*O1D*CFC115 + r95*O1D*CFC12 + r116*O1D*CF3BR + 2*r118*O1D*H2402 + r137*HCFC142B*OH - + r138*HCFC22*OH + r142*O1D*HCFC142B + r143*O1D*HCFC22 - - j97*COF2 - r125*O1D*COF2 - d(COFCL)/dt = j82*CFC11 + j83*CFC113 + j101*HCFC141B + r91*O1D*CFC11 + r92*O1D*CFC113 + r136*HCFC141B*OH - + r141*O1D*HCFC141B - - j98*COFCL - r126*O1D*COFCL - d(CRESOL)/dt = .18*r319*TOLUENE*OH - - r299*OH*CRESOL - d(DMS)/dt = - r352*NO3*DMS - r353*OH*DMS - r367*OH*DMS + + j102*HCFC142B + j103*HCFC22 + r93*O1D*CF2CLBR + r95*O1D*CFC113 + 2*r96*O1D*CFC114 + + 2*r97*O1D*CFC115 + r98*O1D*CFC12 + r119*O1D*CF3BR + 2*r121*O1D*H2402 + r140*HCFC142B*OH + + r141*HCFC22*OH + r145*O1D*HCFC142B + r146*O1D*HCFC22 + - j97*COF2 - r128*O1D*COF2 + d(COFCL)/dt = j82*CFC11 + j83*CFC113 + j101*HCFC141B + r94*O1D*CFC11 + r95*O1D*CFC113 + r139*HCFC141B*OH + + r144*O1D*HCFC141B + - j98*COFCL - r129*O1D*COFCL + d(CRESOL)/dt = .18*r322*TOLUENE*OH + - r302*OH*CRESOL + d(DMS)/dt = - r355*NO3*DMS - r356*OH*DMS - r370*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 - d(E90)/dt = - r448*E90 - d(EOOH)/dt = r186*EO2*HO2 + d(E90)/dt = - r451*E90 + d(EOOH)/dt = r189*EO2*HO2 - j43*EOOH - d(F)/dt = j81*CF3BR + j85*CFC115 + 2*j97*COF2 + j98*COFCL + j105*HF + r94*O1D*CFC115 + r116*O1D*CF3BR - + 2*r125*O1D*COF2 + r126*O1D*COFCL - - r121*CH4*F - r122*H2*F - r123*H2O*F - r124*HNO3*F - d(GLYALD)/dt = .33*j46*HONITR + .25*j66*TERP2OOH + r189*EO*O2 + .53*r222*MACRO2*CH3CO3 + .26*r223*MACRO2*CH3O2 - + .53*r225*MACRO2*NO3 + .53*r226*MACRO2*NO + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 - + .7*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH + r278*NC4CH2OH*OH + .25*r280*XO2*CH3CO3 - + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 + .125*r340*TERP2O2*CH3O2 - + .225*r342*TERP2O2*NO - - j44*GLYALD - r190*OH*GLYALD + d(F)/dt = j81*CF3BR + j85*CFC115 + 2*j97*COF2 + j98*COFCL + j105*HF + r97*O1D*CFC115 + r119*O1D*CF3BR + + 2*r128*O1D*COF2 + r129*O1D*COFCL + - r124*CH4*F - r125*H2*F - r126*H2O*F - r127*HNO3*F + d(GLYALD)/dt = .33*j46*HONITR + .25*j66*TERP2OOH + r192*EO*O2 + .53*r225*MACRO2*CH3CO3 + .26*r226*MACRO2*CH3O2 + + .53*r228*MACRO2*NO3 + .53*r229*MACRO2*NO + .05*r267*ISOPBO2*NO + .05*r268*ISOPBO2*NO3 + + .7*r269*ISOPNITA*OH + .5*r270*ISOPNITB*OH + r281*NC4CH2OH*OH + .25*r283*XO2*CH3CO3 + + .1*r284*XO2*CH3O2 + .25*r286*XO2*NO + .25*r287*XO2*NO3 + .125*r343*TERP2O2*CH3O2 + + .225*r345*TERP2O2*NO + - j44*GLYALD - r193*OH*GLYALD d(GLYOXAL)/dt = j22*BENZOOH + .13*j24*BIGALD + .7*j62*PHENOOH + .6*j71*TOLOOH + .34*j73*XYLENOOH - + .17*j74*XYLOLOOH + .65*r166*M*C2H2*OH + .2*r190*GLYALD*OH + .05*r264*ISOPBO2*NO - + .05*r265*ISOPBO2*NO3 + r279*NC4CHO*OH + .25*r280*XO2*CH3CO3 + .1*r281*XO2*CH3O2 - + .25*r283*XO2*NO + .25*r284*XO2*NO3 + r290*BENZO2*NO + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO - + .07*r306*MDIALO2*HO2 + .17*r307*MDIALO2*NO + .7*r310*PHENO2*NO + .6*r317*TOLO2*NO - + .34*r323*XYLENO2*NO + .17*r326*XYLOLO2*NO - - j45*GLYOXAL - r412*GLYOXAL - r191*OH*GLYOXAL + + .17*j74*XYLOLOOH + .65*r169*M*C2H2*OH + .2*r193*GLYALD*OH + .05*r267*ISOPBO2*NO + + .05*r268*ISOPBO2*NO3 + r282*NC4CHO*OH + .25*r283*XO2*CH3CO3 + .1*r284*XO2*CH3O2 + + .25*r286*XO2*NO + .25*r287*XO2*NO3 + r293*BENZO2*NO + .16*r306*MALO2*HO2 + .4*r307*MALO2*NO + + .07*r309*MDIALO2*HO2 + .17*r310*MDIALO2*NO + .7*r313*PHENO2*NO + .6*r320*TOLO2*NO + + .34*r326*XYLENO2*NO + .17*r329*XYLOLO2*NO + - j45*GLYOXAL - r415*GLYOXAL - r194*OH*GLYOXAL d(H)/dt = 2*j2*H2O + j3*H2O + 2*j34*CH2O + j39*CH3OOH + .33*j40*CH4 + j41*CH4 + j100*HBR + j104*HCL - + j105*HF + r3*O1D*H2 + r20*H2*O + r29*OH*H2 + r32*OH*O + r52*N*OH + r66*CL*H2 + r97*O1D*HCL - + r120*O1D*HBR + r122*F*H2 + r147*CH2O*OH + r161*O1D*CH4 + r355*OCS*OH + r361*S*OH + r366*SO*OH + + j105*HF + r3*O1D*H2 + r20*H2*O + r29*OH*H2 + r32*OH*O + r52*N*OH + r69*CL*H2 + r100*O1D*HCL + + r123*O1D*HBR + r125*F*H2 + r150*CH2O*OH + r164*O1D*CH4 + r358*OCS*OH + r364*S*OH + r369*SO*OH - r22*HO2*H - r23*HO2*H - r24*HO2*H - r25*M*O2*H - r28*O3*H - d(H2)/dt = j1*H2O + j33*CH2O + 1.4400001*j40*CH4 + r22*H*HO2 + r162*O1D*CH4 - - r3*O1D*H2 - r20*O*H2 - r29*OH*H2 - r66*CL*H2 - r122*F*H2 - d(H2402)/dt = - j99*H2402 - r118*O1D*H2402 + d(H2)/dt = j1*H2O + j33*CH2O + 1.4400001*j40*CH4 + r22*H*HO2 + r165*O1D*CH4 + - r3*O1D*H2 - r20*O*H2 - r29*OH*H2 - r69*CL*H2 - r125*F*H2 + d(H2402)/dt = - j99*H2402 - r121*O1D*H2402 d(H2O2)/dt = r35*M*OH*OH + r36*HO2*HO2 - - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r67*CL*H2O2 - d(H2SO4)/dt = r368*SO3*H2O + - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r70*CL*H2O2 + d(H2SO4)/dt = r371*SO3*H2O - j136*H2SO4 - d(HBR)/dt = r100*BR*CH2O + r101*BR*HO2 - - j100*HBR - r113*O*HBR - r114*OH*HBR - r119*O1D*HBR - r120*O1D*HBR - d(HCFC141B)/dt = - j101*HCFC141B - r136*OH*HCFC141B - r141*O1D*HCFC141B - d(HCFC142B)/dt = - j102*HCFC142B - r137*OH*HCFC142B - r142*O1D*HCFC142B - d(HCFC22)/dt = - j103*HCFC22 - r138*OH*HCFC22 - r143*O1D*HCFC22 - d(HCL)/dt = r64*CL*CH2O + r65*CL*CH4 + r66*CL*H2 + r67*CL*H2O2 + r68*CL*HO2 + r83*CLO*OH + r86*HOCL*CL - + r127*CH2BR2*CL + r129*CH3BR*CL + 2*r132*CH3CL*CL + r134*CHBR3*CL + r175*C2H6*CL + r205*CL*C3H8 - - j104*HCL - r84*O*HCL - r85*OH*HCL - r96*O1D*HCL - r97*O1D*HCL - r417*HOCL*HCL - - r422*CLONO2*HCL - r423*HOCL*HCL - r424*HOBR*HCL - r427*CLONO2*HCL - r428*HOCL*HCL - - r429*HOBR*HCL - r432*CLONO2*HCL - d(HCN)/dt = - r155*M*OH*HCN - r163*O1D*HCN - d(HCOOH)/dt = r157*HOCH2OO*HO2 + r159*HOCH2OO*NO + .35*r166*M*C2H2*OH + .37*r168*C2H4*O3 + .12*r197*C3H6*O3 - + .33*r228*MACR*O3 + .12*r242*MVK*O3 + .11*r275*ISOP*O3 + .05*r330*BCARY*O3 + .05*r333*MTERP*O3 - - r156*OH*HCOOH - d(HF)/dt = r121*F*CH4 + r122*F*H2 + r123*F*H2O + r124*F*HNO3 + d(HBR)/dt = r103*BR*CH2O + r104*BR*HO2 + - j100*HBR - r116*O*HBR - r117*OH*HBR - r122*O1D*HBR - r123*O1D*HBR + d(HCFC141B)/dt = - j101*HCFC141B - r139*OH*HCFC141B - r144*O1D*HCFC141B + d(HCFC142B)/dt = - j102*HCFC142B - r140*OH*HCFC142B - r145*O1D*HCFC142B + d(HCFC22)/dt = - j103*HCFC22 - r141*OH*HCFC22 - r146*O1D*HCFC22 + d(HCL)/dt = r67*CL*CH2O + r68*CL*CH4 + r69*CL*H2 + r70*CL*H2O2 + r71*CL*HO2 + r86*CLO*OH + r89*HOCL*CL + + r130*CH2BR2*CL + r132*CH3BR*CL + 2*r135*CH3CL*CL + r137*CHBR3*CL + r178*C2H6*CL + r208*CL*C3H8 + - j104*HCL - r87*O*HCL - r88*OH*HCL - r99*O1D*HCL - r100*O1D*HCL - r420*HOCL*HCL + - r425*CLONO2*HCL - r426*HOCL*HCL - r427*HOBR*HCL - r430*CLONO2*HCL - r431*HOCL*HCL + - r432*HOBR*HCL - r435*CLONO2*HCL + d(HCN)/dt = - r158*M*OH*HCN - r166*O1D*HCN + d(HCOOH)/dt = r160*HOCH2OO*HO2 + r162*HOCH2OO*NO + .35*r169*M*C2H2*OH + .37*r171*C2H4*O3 + .12*r200*C3H6*O3 + + .33*r231*MACR*O3 + .12*r245*MVK*O3 + .11*r278*ISOP*O3 + .05*r333*BCARY*O3 + .05*r336*MTERP*O3 + - r159*OH*HCOOH + d(HF)/dt = r124*F*CH4 + r125*F*H2 + r126*F*H2O + r127*F*HNO3 - j105*HF - d(HNO3)/dt = r371*HONITR + r372*ISOPNITA + r373*ISOPNITB + 2*r374*N2O5 + r375*NC4CH2OH + r376*NC4CHO - + .5*r378*NO2 + r379*NO3 + r380*NTERPOOH + r381*ONITR + r382*TERPNIT + 2*r416*N2O5 - + r418*BRONO2 + 2*r419*N2O5 + r420*CLONO2 + r421*BRONO2 + r425*CLONO2 + r426*BRONO2 - + 2*r430*N2O5 + r431*CLONO2 + r60*M*NO2*OH + r145*CH2O*NO3 + r177*CH3CHO*NO3 - + r203*CH3COCHO*NO3 + r352*DMS*NO3 + r422*CLONO2*HCL + r427*CLONO2*HCL + r432*CLONO2*HCL - - j9*HNO3 - r61*OH*HNO3 - r124*F*HNO3 + d(HNO3)/dt = r374*HONITR + r375*ISOPNITA + r376*ISOPNITB + 2*r377*N2O5 + r378*NC4CH2OH + r379*NC4CHO + + .5*r381*NO2 + r382*NO3 + r383*NTERPOOH + r384*ONITR + r385*TERPNIT + 2*r419*N2O5 + + r421*BRONO2 + 2*r422*N2O5 + r423*CLONO2 + r424*BRONO2 + r428*CLONO2 + r429*BRONO2 + + 2*r433*N2O5 + r434*CLONO2 + r60*M*NO2*OH + r148*CH2O*NO3 + r180*CH3CHO*NO3 + + r206*CH3COCHO*NO3 + r355*DMS*NO3 + r425*CLONO2*HCL + r430*CLONO2*HCL + r435*CLONO2*HCL + - j9*HNO3 - r61*OH*HNO3 - r127*F*HNO3 d(HO2NO2)/dt = r58*M*NO2*HO2 - - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r37*OH*HO2NO2 - d(HOBR)/dt = r418*BRONO2 + r421*BRONO2 + r426*BRONO2 + r107*BRO*HO2 - - j106*HOBR - r115*O*HOBR - r424*HCL*HOBR - r429*HCL*HOBR - d(HOCL)/dt = r420*CLONO2 + r425*CLONO2 + r431*CLONO2 + r75*CLO*HO2 + r80*CLONO2*OH - - j107*HOCL - r86*CL*HOCL - r87*O*HOCL - r88*OH*HOCL - r417*HCL*HOCL - r423*HCL*HOCL - - r428*HCL*HOCL - d(HONITR)/dt = r220*ENEO2*NO + r227*MACRO2*NO + .3*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH - - j46*HONITR - r371*HONITR - r221*OH*HONITR - d(HPALD)/dt = r263*ISOPBO2 - - j47*HPALD - r252*OH*HPALD - d(HYAC)/dt = .17*j46*HONITR + .5*r210*POOH*OH + .2*r211*RO2*CH3O2 + .22*r222*MACRO2*CH3CO3 - + .23*r223*MACRO2*CH3O2 + .22*r225*MACRO2*NO3 + .22*r226*MACRO2*NO + .5*r241*M*MPAN*OH - + .05*r264*ISOPBO2*NO + .05*r265*ISOPBO2*NO3 + .7*r266*ISOPNITA*OH + .5*r267*ISOPNITB*OH - + .25*r280*XO2*CH3CO3 + .1*r281*XO2*CH3O2 + .25*r283*XO2*NO + .25*r284*XO2*NO3 - - j48*HYAC - r206*OH*HYAC - d(HYDRALD)/dt = r260*ISOPBO2*CH3CO3 + .75*r261*ISOPBO2*CH3O2 + .87*r264*ISOPBO2*NO + .95*r265*ISOPBO2*NO3 - - r253*OH*HYDRALD - d(IEPOX)/dt = .6*r277*ISOPOOH*OH - - r254*OH*IEPOX - d(ISOP)/dt = - r268*NO3*ISOP - r275*O3*ISOP - r276*OH*ISOP - d(ISOPNITA)/dt = .08*r258*ISOPAO2*NO - - r372*ISOPNITA - r266*OH*ISOPNITA - d(ISOPNITB)/dt = .08*r264*ISOPBO2*NO - - r373*ISOPNITB - r267*OH*ISOPNITB - d(ISOPNO3)/dt = r268*ISOP*NO3 - - r269*CH3CO3*ISOPNO3 - r270*CH3O2*ISOPNO3 - r271*HO2*ISOPNO3 - r272*NO*ISOPNO3 - - r273*NO3*ISOPNO3 - d(ISOPNOOH)/dt = r271*ISOPNO3*HO2 - - j49*ISOPNOOH - r274*OH*ISOPNOOH - d(ISOPO2VBS)/dt = r395*ISOP*OH - - r392*HO2*ISOPO2VBS - r393*NO*ISOPO2VBS - d(ISOPOOH)/dt = j49*ISOPNOOH + r257*ISOPAO2*HO2 + r262*ISOPBO2*HO2 - - j50*ISOPOOH - r277*OH*ISOPOOH - d(IVOCbb)/dt = - r398*OH*IVOCbb - d(IVOCbbO2VBS)/dt = r398*IVOCbb*OH - - r396*HO2*IVOCbbO2VBS - r397*NO*IVOCbbO2VBS - d(IVOCff)/dt = - r401*OH*IVOCff - d(IVOCffO2VBS)/dt = r401*IVOCff*OH - - r399*HO2*IVOCffO2VBS - r400*NO*IVOCffO2VBS - d(MACR)/dt = .3*j50*ISOPOOH + .39*r255*ISOPAO2*CH3CO3 + .31*r256*ISOPAO2*CH3O2 + .36*r258*ISOPAO2*NO - + .4*r259*ISOPAO2*NO3 + .3*r275*ISOP*O3 - - j51*MACR - j52*MACR - r228*O3*MACR - r229*OH*MACR - d(MACROOH)/dt = r224*MACRO2*HO2 - - r230*OH*MACROOH - d(MEK)/dt = .8*j20*ALKNIT + .8*j21*ALKOOH + .8*r248*ALKO2*NO - - j53*MEK - r239*OH*MEK - d(MEKOOH)/dt = .8*r237*MEKO2*HO2 - - j54*MEKOOH - r240*OH*MEKOOH - d(MPAN)/dt = r244*M*MCO3*NO2 - - j55*MPAN - r245*M*MPAN - r241*M*OH*MPAN - d(MTERP)/dt = - r332*NO3*MTERP - r333*O3*MTERP - r334*OH*MTERP - d(MTERPO2VBS)/dt = r406*MTERP*OH - - r403*HO2*MTERPO2VBS - r404*NO*MTERPO2VBS - d(MVK)/dt = .7*j50*ISOPOOH + .61*r255*ISOPAO2*CH3CO3 + .44*r256*ISOPAO2*CH3O2 + .56*r258*ISOPAO2*NO - + .6*r259*ISOPAO2*NO3 + .2*r275*ISOP*O3 - - j56*MVK - r242*O3*MVK - r243*OH*MVK - d(N)/dt = .8*j112*N2 + j115*N2 + j116*N2 + .8*j118*N2 + j15*NO + r446*N2*Op + r38*N2D*O + .2*r433*NOp*e - + 1.1*r435*N2p*e + r439*Np*O + r440*Np*O2 - - j111*N - r40*NO*N - r41*NO2*N - r42*NO2*N - r43*NO2*N - r44*O2*N - r52*OH*N - r442*O2p*N - d(N2O)/dt = r41*N*NO2 + - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r38*OH*HO2NO2 + d(HOBR)/dt = r421*BRONO2 + r424*BRONO2 + r429*BRONO2 + r110*BRO*HO2 + - j106*HOBR - r118*O*HOBR - r427*HCL*HOBR - r432*HCL*HOBR + d(HOCL)/dt = r423*CLONO2 + r428*CLONO2 + r434*CLONO2 + r78*CLO*HO2 + r83*CLONO2*OH + - j107*HOCL - r89*CL*HOCL - r90*O*HOCL - r91*OH*HOCL - r420*HCL*HOCL - r426*HCL*HOCL + - r431*HCL*HOCL + d(HONITR)/dt = r223*ENEO2*NO + r230*MACRO2*NO + .3*r269*ISOPNITA*OH + .5*r270*ISOPNITB*OH + - j46*HONITR - r374*HONITR - r224*OH*HONITR + d(HPALD)/dt = r266*ISOPBO2 + - j47*HPALD - r255*OH*HPALD + d(HYAC)/dt = .17*j46*HONITR + .5*r213*POOH*OH + .2*r214*RO2*CH3O2 + .22*r225*MACRO2*CH3CO3 + + .23*r226*MACRO2*CH3O2 + .22*r228*MACRO2*NO3 + .22*r229*MACRO2*NO + .5*r244*M*MPAN*OH + + .05*r267*ISOPBO2*NO + .05*r268*ISOPBO2*NO3 + .7*r269*ISOPNITA*OH + .5*r270*ISOPNITB*OH + + .25*r283*XO2*CH3CO3 + .1*r284*XO2*CH3O2 + .25*r286*XO2*NO + .25*r287*XO2*NO3 + - j48*HYAC - r209*OH*HYAC + d(HYDRALD)/dt = r263*ISOPBO2*CH3CO3 + .75*r264*ISOPBO2*CH3O2 + .87*r267*ISOPBO2*NO + .95*r268*ISOPBO2*NO3 + - r256*OH*HYDRALD + d(IEPOX)/dt = .6*r280*ISOPOOH*OH + - r257*OH*IEPOX + d(ISOP)/dt = - r271*NO3*ISOP - r278*O3*ISOP - r279*OH*ISOP + d(ISOPNITA)/dt = .08*r261*ISOPAO2*NO + - r375*ISOPNITA - r269*OH*ISOPNITA + d(ISOPNITB)/dt = .08*r267*ISOPBO2*NO + - r376*ISOPNITB - r270*OH*ISOPNITB + d(ISOPNO3)/dt = r271*ISOP*NO3 + - r272*CH3CO3*ISOPNO3 - r273*CH3O2*ISOPNO3 - r274*HO2*ISOPNO3 - r275*NO*ISOPNO3 + - r276*NO3*ISOPNO3 + d(ISOPNOOH)/dt = r274*ISOPNO3*HO2 + - j49*ISOPNOOH - r277*OH*ISOPNOOH + d(ISOPOOH)/dt = j49*ISOPNOOH + r260*ISOPAO2*HO2 + r265*ISOPBO2*HO2 + - j50*ISOPOOH - r280*OH*ISOPOOH + d(IVOCbb)/dt = - r401*OH*IVOCbb + d(IVOCff)/dt = - r404*OH*IVOCff + d(MACR)/dt = .3*j50*ISOPOOH + .39*r258*ISOPAO2*CH3CO3 + .31*r259*ISOPAO2*CH3O2 + .36*r261*ISOPAO2*NO + + .4*r262*ISOPAO2*NO3 + .3*r278*ISOP*O3 + - j51*MACR - j52*MACR - r231*O3*MACR - r232*OH*MACR + d(MACROOH)/dt = r227*MACRO2*HO2 + - r233*OH*MACROOH + d(MEK)/dt = .8*j20*ALKNIT + .8*j21*ALKOOH + .8*r251*ALKO2*NO + - j53*MEK - r242*OH*MEK + d(MEKOOH)/dt = .8*r240*MEKO2*HO2 + - j54*MEKOOH - r243*OH*MEKOOH + d(MPAN)/dt = r247*M*MCO3*NO2 + - j55*MPAN - r248*M*MPAN - r244*M*OH*MPAN + d(MTERP)/dt = - r335*NO3*MTERP - r336*O3*MTERP - r337*OH*MTERP + d(MVK)/dt = .7*j50*ISOPOOH + .61*r258*ISOPAO2*CH3CO3 + .44*r259*ISOPAO2*CH3O2 + .56*r261*ISOPAO2*NO + + .6*r262*ISOPAO2*NO3 + .2*r278*ISOP*O3 + - j56*MVK - r245*O3*MVK - r246*OH*MVK + d(N)/dt = .8*j112*N2 + j115*N2 + j116*N2 + .8*j118*N2 + j15*NO + r37*N2D + r449*N2*Op + r40*N2D*O + + r63*N2D*e + .2*r436*NOp*e + 1.1*r438*N2p*e + r442*Np*O + r443*Np*O2 + - j111*N - r41*NO*N - r42*NO2*N - r43*NO2*N - r44*NO2*N - r52*OH*N - r66*O2*N - r445*O2p*N + d(N2O)/dt = r42*N*NO2 - j12*N2O - r56*O1D*N2O - r57*O1D*N2O d(N2O5)/dt = r59*M*NO2*NO3 - - j13*N2O5 - j14*N2O5 - r63*M*N2O5 - r374*N2O5 - r416*N2O5 - r419*N2O5 - r430*N2O5 - d(NC4CH2OH)/dt = .2*r270*ISOPNO3*CH3O2 - - r375*NC4CH2OH - r278*OH*NC4CH2OH - d(NC4CHO)/dt = r269*ISOPNO3*CH3CO3 + .8*r270*ISOPNO3*CH3O2 + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 - - j57*NC4CHO - r376*NC4CHO - r279*OH*NC4CHO + - j13*N2O5 - j14*N2O5 - r65*M*N2O5 - r377*N2O5 - r419*N2O5 - r422*N2O5 - r433*N2O5 + d(NC4CH2OH)/dt = .2*r273*ISOPNO3*CH3O2 + - r378*NC4CH2OH - r281*OH*NC4CH2OH + d(NC4CHO)/dt = r272*ISOPNO3*CH3CO3 + .8*r273*ISOPNO3*CH3O2 + r275*ISOPNO3*NO + r276*ISOPNO3*NO3 + - j57*NC4CHO - r379*NC4CHO - r282*OH*NC4CHO d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NH3)/dt = - r369*OH*NH3 - d(NH4)/dt = - r377*NH4 - d(NH_5)/dt = - r450*NH_5 - d(NH_50)/dt = - r449*NH_50 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r378*NO2 + r443*N2*O2p + r39*N2D*O2 + 2*r42*N*NO2 + r44*N*O2 - + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r362*SO*NO2 - - j15*NO - j16*NO - r40*N*NO - r49*NO3*NO - r53*HO2*NO - r54*O3*NO - r55*M*O*NO - r76*CLO*NO - - r108*BRO*NO - r151*CH3O2*NO - r159*HOCH2OO*NO - r172*C2H5O2*NO - r183*CH3CO3*NO - r187*EO2*NO - - r200*C3H7O2*NO - r209*PO2*NO - r213*RO2*NO - r219*ENEO2*NO - r220*ENEO2*NO - r226*MACRO2*NO - - r227*MACRO2*NO - r235*MCO3*NO - r238*MEKO2*NO - r248*ALKO2*NO - r249*ALKO2*NO - r258*ISOPAO2*NO - - r264*ISOPBO2*NO - r272*ISOPNO3*NO - r283*XO2*NO - r287*ACBZO2*NO - r290*BENZO2*NO - - r295*BZOO*NO - r297*C6H5O2*NO - r301*DICARBO2*NO - r304*MALO2*NO - r307*MDIALO2*NO - - r310*PHENO2*NO - r317*TOLO2*NO - r323*XYLENO2*NO - r326*XYLOLO2*NO - r337*NTERPO2*NO - - r342*TERP2O2*NO - r347*TERPO2*NO - r444*O2p*NO + d(NH3)/dt = - r372*OH*NH3 + d(NH4)/dt = - r380*NH4 + d(NH_5)/dt = - r453*NH_5 + d(NH_50)/dt = - r452*NH_50 + d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r381*NO2 + r446*N2*O2p + 2*r43*N*NO2 + r45*NO2*O + r52*N*OH + + 2*r56*O1D*N2O + r64*N2D*O2 + r66*N*O2 + r365*SO*NO2 + - j15*NO - j16*NO - r39*N2D*NO - r41*N*NO - r49*NO3*NO - r53*HO2*NO - r54*O3*NO - r55*M*O*NO + - r79*CLO*NO - r111*BRO*NO - r154*CH3O2*NO - r162*HOCH2OO*NO - r175*C2H5O2*NO - r186*CH3CO3*NO + - r190*EO2*NO - r203*C3H7O2*NO - r212*PO2*NO - r216*RO2*NO - r222*ENEO2*NO - r223*ENEO2*NO + - r229*MACRO2*NO - r230*MACRO2*NO - r238*MCO3*NO - r241*MEKO2*NO - r251*ALKO2*NO - r252*ALKO2*NO + - r261*ISOPAO2*NO - r267*ISOPBO2*NO - r275*ISOPNO3*NO - r286*XO2*NO - r290*ACBZO2*NO + - r293*BENZO2*NO - r298*BZOO*NO - r300*C6H5O2*NO - r304*DICARBO2*NO - r307*MALO2*NO + - r310*MDIALO2*NO - r313*PHENO2*NO - r320*TOLO2*NO - r326*XYLENO2*NO - r329*XYLOLO2*NO + - r340*NTERPO2*NO - r345*TERP2O2*NO - r350*TERPO2*NO - r447*O2p*NO d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j20*ALKNIT + j46*HONITR + j49*ISOPNOOH + j55*MPAN + j57*NC4CHO + j58*NOA + j59*NTERPOOH + j60*ONITR + .6*j61*PAN + j67*TERPNIT + j77*BRONO2 - + j96*CLONO2 + r62*M*HO2NO2 + r63*M*N2O5 + r195*M*PAN + r245*M*MPAN + r320*M*PBZNIT - + r37*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 - + r55*M*NO*O + r76*CLO*NO + r108*BRO*NO + r151*CH3O2*NO + r159*HOCH2OO*NO + r172*C2H5O2*NO - + r183*CH3CO3*NO + r187*EO2*NO + r200*C3H7O2*NO + r207*NOA*OH + r209*PO2*NO + r213*RO2*NO - + r217*BIGENE*NO3 + r219*ENEO2*NO + r225*MACRO2*NO3 + r226*MACRO2*NO + r235*MCO3*NO - + r236*MCO3*NO3 + r238*MEKO2*NO + r246*ALKNIT*OH + r248*ALKO2*NO + .92*r258*ISOPAO2*NO - + r259*ISOPAO2*NO3 + .92*r264*ISOPBO2*NO + r265*ISOPBO2*NO3 + .7*r266*ISOPNITA*OH - + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 + r283*XO2*NO + r284*XO2*NO3 + r287*ACBZO2*NO - + r290*BENZO2*NO + r295*BZOO*NO + r297*C6H5O2*NO + r301*DICARBO2*NO + r304*MALO2*NO - + r307*MDIALO2*NO + r310*PHENO2*NO + r317*TOLO2*NO + r323*XYLENO2*NO + r326*XYLOLO2*NO - + .5*r335*NTERPO2*CH3O2 + 1.6*r337*NTERPO2*NO + 2*r338*NTERPO2*NO3 + .9*r342*TERP2O2*NO - + r344*TERPNIT*OH + .8*r347*TERPO2*NO - - j17*NO2 - r378*NO2 - r41*N*NO2 - r42*N*NO2 - r43*N*NO2 - r45*O*NO2 - r46*O3*NO2 - - r47*M*O*NO2 - r58*M*HO2*NO2 - r59*M*NO3*NO2 - r60*M*OH*NO2 - r78*M*CLO*NO2 - r109*M*BRO*NO2 - - r194*M*CH3CO3*NO2 - r244*M*MCO3*NO2 - r302*M*DICARBO2*NO2 - r305*M*MALO2*NO2 - - r308*M*MDIALO2*NO2 - r312*PHENO*NO2 - r315*M*ACBZO2*NO2 - r362*SO*NO2 - d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j61*PAN + j78*BRONO2 + j95*CLONO2 + r63*M*N2O5 - + r46*NO2*O3 + r47*M*NO2*O + r61*HNO3*OH + r77*CLONO2*CL + r79*CLONO2*O + r80*CLONO2*OH - + r110*BRONO2*O + r124*F*HNO3 + r192*PAN*OH + .5*r241*M*MPAN*OH - - j18*NO3 - j19*NO3 - r379*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 - - r59*M*NO2*NO3 - r145*CH2O*NO3 - r177*CH3CHO*NO3 - r196*C3H6*NO3 - r203*CH3COCHO*NO3 - - r217*BIGENE*NO3 - r225*MACRO2*NO3 - r236*MCO3*NO3 - r259*ISOPAO2*NO3 - r265*ISOPBO2*NO3 - - r268*ISOP*NO3 - r273*ISOPNO3*NO3 - r284*XO2*NO3 - r329*BCARY*NO3 - r332*MTERP*NO3 - - r338*NTERPO2*NO3 - r349*TERPROD1*NO3 - r352*DMS*NO3 - d(NOA)/dt = r196*C3H6*NO3 + .5*r267*ISOPNITB*OH + r274*ISOPNOOH*OH + r278*NC4CH2OH*OH + r279*NC4CHO*OH - - j58*NOA - r207*OH*NOA - d(NTERPOOH)/dt = r336*NTERPO2*HO2 - - j59*NTERPOOH - r380*NTERPOOH - r339*OH*NTERPOOH + + j96*CLONO2 + r62*M*HO2NO2 + r65*M*N2O5 + r198*M*PAN + r248*M*MPAN + r323*M*PBZNIT + + r38*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 + + r55*M*NO*O + r79*CLO*NO + r111*BRO*NO + r154*CH3O2*NO + r162*HOCH2OO*NO + r175*C2H5O2*NO + + r186*CH3CO3*NO + r190*EO2*NO + r203*C3H7O2*NO + r210*NOA*OH + r212*PO2*NO + r216*RO2*NO + + r220*BIGENE*NO3 + r222*ENEO2*NO + r228*MACRO2*NO3 + r229*MACRO2*NO + r238*MCO3*NO + + r239*MCO3*NO3 + r241*MEKO2*NO + r249*ALKNIT*OH + r251*ALKO2*NO + .92*r261*ISOPAO2*NO + + r262*ISOPAO2*NO3 + .92*r267*ISOPBO2*NO + r268*ISOPBO2*NO3 + .7*r269*ISOPNITA*OH + + r275*ISOPNO3*NO + r276*ISOPNO3*NO3 + r286*XO2*NO + r287*XO2*NO3 + r290*ACBZO2*NO + + r293*BENZO2*NO + r298*BZOO*NO + r300*C6H5O2*NO + r304*DICARBO2*NO + r307*MALO2*NO + + r310*MDIALO2*NO + r313*PHENO2*NO + r320*TOLO2*NO + r326*XYLENO2*NO + r329*XYLOLO2*NO + + .5*r338*NTERPO2*CH3O2 + 1.6*r340*NTERPO2*NO + 2*r341*NTERPO2*NO3 + .9*r345*TERP2O2*NO + + r347*TERPNIT*OH + .8*r350*TERPO2*NO + - j17*NO2 - r381*NO2 - r42*N*NO2 - r43*N*NO2 - r44*N*NO2 - r45*O*NO2 - r46*O3*NO2 + - r47*M*O*NO2 - r58*M*HO2*NO2 - r59*M*NO3*NO2 - r60*M*OH*NO2 - r81*M*CLO*NO2 - r112*M*BRO*NO2 + - r197*M*CH3CO3*NO2 - r247*M*MCO3*NO2 - r305*M*DICARBO2*NO2 - r308*M*MALO2*NO2 + - r311*M*MDIALO2*NO2 - r315*PHENO*NO2 - r318*M*ACBZO2*NO2 - r365*SO*NO2 + d(NO3)/dt = j10*HO2NO2 + j13*N2O5 + j14*N2O5 + .4*j61*PAN + j78*BRONO2 + j95*CLONO2 + r65*M*N2O5 + + r46*NO2*O3 + r47*M*NO2*O + r61*HNO3*OH + r80*CLONO2*CL + r82*CLONO2*O + r83*CLONO2*OH + + r113*BRONO2*O + r127*F*HNO3 + r195*PAN*OH + .5*r244*M*MPAN*OH + - j18*NO3 - j19*NO3 - r382*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 + - r59*M*NO2*NO3 - r148*CH2O*NO3 - r180*CH3CHO*NO3 - r199*C3H6*NO3 - r206*CH3COCHO*NO3 + - r220*BIGENE*NO3 - r228*MACRO2*NO3 - r239*MCO3*NO3 - r262*ISOPAO2*NO3 - r268*ISOPBO2*NO3 + - r271*ISOP*NO3 - r276*ISOPNO3*NO3 - r287*XO2*NO3 - r332*BCARY*NO3 - r335*MTERP*NO3 + - r341*NTERPO2*NO3 - r352*TERPROD1*NO3 - r355*DMS*NO3 + d(NOA)/dt = r199*C3H6*NO3 + .5*r270*ISOPNITB*OH + r277*ISOPNOOH*OH + r281*NC4CH2OH*OH + r282*NC4CHO*OH + - j58*NOA - r210*OH*NOA + d(NTERPOOH)/dt = r339*NTERPO2*HO2 + - j59*NTERPOOH - r383*NTERPOOH - r342*OH*NTERPOOH d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -1737,62 +1730,64 @@ Extraneous prod/loss species d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j14*N2O5 + j15*NO + j17*NO2 + j18*NO3 + .18*j40*CH4 + j42*CO2 + j76*BRO + j94*CLO + j108*OCLO + j110*CO2 + j127*O2 + j128*O2 + j129*O2 + j131*O2 + j132*O2 + j133*O2 + 2*j134*O2 + 2*j135*O2 + j138*SO + j139*SO2 + j140*SO3 + r5*N2*O1D - + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 + r356*S*O2 - + r363*SO*O2 + r433*NOp*e + 1.15*r434*O2p*e + r441*Np*O2 + r442*O2p*N + r447*Op*O2 + + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r39*N2D*NO + r41*N*NO + r42*N*NO2 + r66*N*O2 + + r359*S*O2 + r366*SO*O2 + r436*NOp*e + 1.15*r437*O2p*e + r444*Np*O2 + r445*O2p*N + r450*Op*O2 - j120*O - j121*O - j122*O - j123*O - j124*O - j125*O - r17*O3*O - 2*r18*M*O*O - r19*M*O2*O - r20*H2*O - r21*H2O2*O - r26*HO2*O - r32*OH*O - r45*NO2*O - r47*M*NO2*O - r50*NO3*O - - r55*M*NO*O - r79*CLONO2*O - r81*CLO*O - r84*HCL*O - r87*HOCL*O - r110*BRONO2*O - r111*BRO*O - - r113*HBR*O - r115*HOBR*O - r146*CH2O*O - r354*OCS*O - r437*N2p*O - r438*N2p*O - r439*Np*O + - r55*M*NO*O - r82*CLONO2*O - r84*CLO*O - r87*HCL*O - r90*HOCL*O - r113*BRONO2*O - r114*BRO*O + - r116*HBR*O - r118*HOBR*O - r149*CH2O*O - r357*OCS*O - r440*N2p*O - r441*N2p*O - r442*Np*O d(O2)/dt = j8*O3 + j19*NO3 + r1*O2_1D + r2*O2_1S + r9*N2*O2_1D + r8*O1D*O3 + r8*O1D*O3 + r10*O2_1D*O + 2*r11*O2_1D*O2 + 2*r17*O*O3 + r18*M*O*O + r22*H*HO2 + r26*HO2*O + 2*r27*HO2*O3 + r28*H*O3 - + r31*OH*HO2 + r32*OH*O + r33*OH*O3 + r36*HO2*HO2 + r37*HO2NO2*OH + r43*N*NO2 + r45*NO2*O - + r46*NO2*O3 + r48*NO3*HO2 + r50*NO3*O + r54*NO*O3 + r57*O1D*N2O + r68*CL*HO2 + r70*CL*O3 - + r72*CLO*CLO + r73*CLO*CLO + r75*CLO*HO2 + r81*CLO*O + r83*CLO*OH + r101*BR*HO2 + r102*BR*O3 - + r103*BRO*BRO + r105*BRO*CLO + r106*BRO*CLO + r107*BRO*HO2 + r111*BRO*O + r150*CH3O2*HO2 - + r171*C2H5O2*HO2 + r199*C3H7O2*HO2 + r208*PO2*HO2 + r358*S*O3 + r364*SO*O3 + r444*O2p*NO + + r31*OH*HO2 + r32*OH*O + r33*OH*O3 + r36*HO2*HO2 + r38*HO2NO2*OH + r44*N*NO2 + r45*NO2*O + + r46*NO2*O3 + r48*NO3*HO2 + r50*NO3*O + r54*NO*O3 + r57*O1D*N2O + r71*CL*HO2 + r73*CL*O3 + + r75*CLO*CLO + r76*CLO*CLO + r78*CLO*HO2 + r84*CLO*O + r86*CLO*OH + r104*BR*HO2 + r105*BR*O3 + + r106*BRO*BRO + r108*BRO*CLO + r109*BRO*CLO + r110*BRO*HO2 + r114*BRO*O + r153*CH3O2*HO2 + + r174*C2H5O2*HO2 + r202*C3H7O2*HO2 + r211*PO2*HO2 + r361*S*O3 + r367*SO*O3 + r447*O2p*NO - j5*O2 - j6*O2 - j126*O2 - j127*O2 - j128*O2 - j129*O2 - j130*O2 - j131*O2 - j132*O2 - - j133*O2 - j134*O2 - j135*O2 - r6*O1D*O2 - r11*O2_1D*O2 - r19*M*O*O2 - r25*M*H*O2 - r39*N2D*O2 - - r44*N*O2 - r189*EO*O2 - r356*S*O2 - r363*SO*O2 - r436*N2p*O2 - r440*Np*O2 - r441*Np*O2 - - r447*Op*O2 - d(O3)/dt = r19*M*O*O2 + .15*r182*CH3CO3*HO2 + .15*r233*MCO3*HO2 + - j133*O2 - j134*O2 - j135*O2 - r6*O1D*O2 - r11*O2_1D*O2 - r19*M*O*O2 - r25*M*H*O2 - r64*N2D*O2 + - r66*N*O2 - r192*EO*O2 - r359*S*O2 - r366*SO*O2 - r439*N2p*O2 - r443*Np*O2 - r444*Np*O2 + - r450*Op*O2 + d(O3)/dt = r19*M*O*O2 + .15*r185*CH3CO3*HO2 + .15*r236*MCO3*HO2 - j7*O3 - j8*O3 - r8*O1D*O3 - r17*O*O3 - r27*HO2*O3 - r28*H*O3 - r33*OH*O3 - r46*NO2*O3 - - r54*NO*O3 - r70*CL*O3 - r102*BR*O3 - r168*C2H4*O3 - r197*C3H6*O3 - r228*MACR*O3 - r242*MVK*O3 - - r275*ISOP*O3 - r313*PHENO*O3 - r330*BCARY*O3 - r333*MTERP*O3 - r358*S*O3 - r364*SO*O3 + - r54*NO*O3 - r73*CL*O3 - r105*BR*O3 - r171*C2H4*O3 - r200*C3H6*O3 - r231*MACR*O3 - r245*MVK*O3 + - r278*ISOP*O3 - r316*PHENO*O3 - r333*BCARY*O3 - r336*MTERP*O3 - r361*S*O3 - r367*SO*O3 d(O3S)/dt = 0 - d(OCLO)/dt = r74*CLO*CLO + r104*BRO*CLO - - j108*OCLO - r365*SO*OCLO - d(OCS)/dt = - j137*OCS - r354*O*OCS - r355*OH*OCS - d(ONITR)/dt = r221*HONITR*OH + .1*r342*TERP2O2*NO - - j60*ONITR - r381*ONITR - d(PAN)/dt = r194*M*CH3CO3*NO2 - - j61*PAN - r195*M*PAN - r192*OH*PAN - d(PBZNIT)/dt = r315*M*ACBZO2*NO2 - - r320*M*PBZNIT - d(PHENO)/dt = j32*C6H5OOH + r297*C6H5O2*NO + .07*r299*CRESOL*OH + .06*r311*PHENOL*OH + .07*r327*XYLOL*OH - - r312*NO2*PHENO - r313*O3*PHENO - d(PHENOL)/dt = .53*r288*BENZENE*OH - - r311*OH*PHENOL - d(PHENOOH)/dt = r309*PHENO2*HO2 - - j62*PHENOOH - r314*OH*PHENOOH + d(OCLO)/dt = r77*CLO*CLO + r107*BRO*CLO + - j108*OCLO - r368*SO*OCLO + d(OCS)/dt = - j137*OCS - r357*O*OCS - r358*OH*OCS + d(ONITR)/dt = r224*HONITR*OH + .1*r345*TERP2O2*NO + - j60*ONITR - r384*ONITR + d(PAN)/dt = r197*M*CH3CO3*NO2 + - j61*PAN - r198*M*PAN - r195*OH*PAN + d(PBZNIT)/dt = r318*M*ACBZO2*NO2 + - r323*M*PBZNIT + d(PHENO)/dt = j32*C6H5OOH + r300*C6H5O2*NO + .07*r302*CRESOL*OH + .06*r314*PHENOL*OH + .07*r330*XYLOL*OH + - r315*NO2*PHENO - r316*O3*PHENO + d(PHENOL)/dt = .53*r291*BENZENE*OH + - r314*OH*PHENOL + d(PHENOOH)/dt = r312*PHENO2*HO2 + - j62*PHENOOH - r317*OH*PHENOOH + d(pom_a1)/dt = 0 + d(pom_a4)/dt = 0 d(pombb1_a1)/dt = 0 d(pombb1_a4)/dt = 0 d(pomff1_a1)/dt = 0 d(pomff1_a4)/dt = 0 - d(POOH)/dt = r208*PO2*HO2 - - j63*POOH - r210*OH*POOH - d(ROOH)/dt = .85*r212*RO2*HO2 - - j64*ROOH - r214*OH*ROOH + d(POOH)/dt = r211*PO2*HO2 + - j63*POOH - r213*OH*POOH + d(ROOH)/dt = .85*r215*RO2*HO2 + - j64*ROOH - r217*OH*ROOH d(S)/dt = j137*OCS + j138*SO - - r356*O2*S - r358*O3*S - r361*OH*S + - r359*O2*S - r361*O3*S - r364*OH*S d(SF6)/dt = - j109*SF6 - d(SO)/dt = j139*SO2 + r354*OCS*O + r356*S*O2 + r358*S*O3 + r361*S*OH - - j138*SO - r359*BRO*SO - r360*CLO*SO - r362*NO2*SO - r363*O2*SO - r364*O3*SO - r365*OCLO*SO - - r366*OH*SO - d(SO2)/dt = j140*SO3 + r352*DMS*NO3 + r353*DMS*OH + r355*OCS*OH + r359*SO*BRO + r360*SO*CLO + r362*SO*NO2 - + r363*SO*O2 + r364*SO*O3 + r365*SO*OCLO + r366*SO*OH + .5*r367*DMS*OH - - j139*SO2 - r357*M*OH*SO2 - d(SO3)/dt = j136*H2SO4 + r357*M*SO2*OH - - j140*SO3 - r368*H2O*SO3 + d(SO)/dt = j139*SO2 + r357*OCS*O + r359*S*O2 + r361*S*O3 + r364*S*OH + - j138*SO - r362*BRO*SO - r363*CLO*SO - r365*NO2*SO - r366*O2*SO - r367*O3*SO - r368*OCLO*SO + - r369*OH*SO + d(SO2)/dt = j140*SO3 + r355*DMS*NO3 + r356*DMS*OH + r358*OCS*OH + r362*SO*BRO + r363*SO*CLO + r365*SO*NO2 + + r366*SO*O2 + r367*SO*O3 + r368*SO*OCLO + r369*SO*OH + .5*r370*DMS*OH + - j139*SO2 - r360*M*OH*SO2 + d(SO3)/dt = j136*H2SO4 + r360*M*SO2*OH + - j140*SO3 - r371*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 @@ -1827,270 +1822,282 @@ Extraneous prod/loss species d(soaff4_a2)/dt = - j168*soaff4_a2 d(soaff5_a1)/dt = - j169*soaff5_a1 d(soaff5_a2)/dt = - j170*soaff5_a2 - d(SOAGbb0)/dt = .2381*r396*IVOCbbO2VBS*HO2 + .1056*r397*IVOCbbO2VBS*NO + .5931*r407*SVOCbb*OH - d(SOAGbb1)/dt = .1308*r396*IVOCbbO2VBS*HO2 + .1026*r397*IVOCbbO2VBS*NO + .1534*r407*SVOCbb*OH - d(SOAGbb2)/dt = .0348*r396*IVOCbbO2VBS*HO2 + .0521*r397*IVOCbbO2VBS*NO + .0459*r407*SVOCbb*OH - d(SOAGbb3)/dt = .0076*r396*IVOCbbO2VBS*HO2 + .0143*r397*IVOCbbO2VBS*NO + .0085*r407*SVOCbb*OH - d(SOAGbb4)/dt = .0113*r396*IVOCbbO2VBS*HO2 + .0166*r397*IVOCbbO2VBS*NO + .0128*r407*SVOCbb*OH - d(SOAGbg0)/dt = r412*GLYOXAL + .2202*r384*BCARYO2VBS*HO2 + .1279*r385*BCARYO2VBS*NO + .2202*r386*BCARY*O3 - + .0031*r392*ISOPO2VBS*HO2 + .0003*r393*ISOPO2VBS*NO + .0508*r403*MTERPO2VBS*HO2 - + .0245*r404*MTERPO2VBS*NO + .0508*r405*MTERP*O3 - d(SOAGbg1)/dt = .2067*r384*BCARYO2VBS*HO2 + .1792*r385*BCARYO2VBS*NO + .2067*r386*BCARY*O3 - + .0035*r392*ISOPO2VBS*HO2 + .0003*r393*ISOPO2VBS*NO + .1149*r403*MTERPO2VBS*HO2 - + .0082*r404*MTERPO2VBS*NO + .1149*r405*MTERP*O3 - d(SOAGbg2)/dt = .0653*r384*BCARYO2VBS*HO2 + .0676*r385*BCARYO2VBS*NO + .0653*r386*BCARY*O3 - + .0003*r392*ISOPO2VBS*HO2 + .0073*r393*ISOPO2VBS*NO + .0348*r403*MTERPO2VBS*HO2 - + .0772*r404*MTERPO2VBS*NO + .0348*r405*MTERP*O3 - d(SOAGbg3)/dt = .17493*r383*BCARY*NO3 + .1284*r384*BCARYO2VBS*HO2 + .079*r385*BCARYO2VBS*NO - + .1284*r386*BCARY*O3 + .059024*r391*ISOP*NO3 + .0271*r392*ISOPO2VBS*HO2 - + .0057*r393*ISOPO2VBS*NO + .0033*r394*ISOP*O3 + .17493*r402*MTERP*NO3 - + .0554*r403*MTERPO2VBS*HO2 + .0332*r404*MTERPO2VBS*NO + .0554*r405*MTERP*O3 - d(SOAGbg4)/dt = .59019*r383*BCARY*NO3 + .114*r384*BCARYO2VBS*HO2 + .1254*r385*BCARYO2VBS*NO - + .114*r386*BCARY*O3 + .025024*r391*ISOP*NO3 + .0474*r392*ISOPO2VBS*HO2 - + .0623*r393*ISOPO2VBS*NO + .59019*r402*MTERP*NO3 + .1278*r403*MTERPO2VBS*HO2 - + .13*r404*MTERPO2VBS*NO + .1278*r405*MTERP*O3 - d(SOAGff0)/dt = .0023*r389*BENZO2VBS*HO2 + .0097*r390*BENZO2VBS*NO + .2381*r399*IVOCffO2VBS*HO2 - + .1056*r400*IVOCffO2VBS*NO + .5931*r408*SVOCff*OH + .1364*r410*TOLUO2VBS*HO2 - + .0154*r411*TOLUO2VBS*NO + .1677*r414*XYLEO2VBS*HO2 + .0063*r415*XYLEO2VBS*NO - d(SOAGff1)/dt = .0008*r389*BENZO2VBS*HO2 + .0034*r390*BENZO2VBS*NO + .1308*r399*IVOCffO2VBS*HO2 - + .1026*r400*IVOCffO2VBS*NO + .1534*r408*SVOCff*OH + .0101*r410*TOLUO2VBS*HO2 - + .0452*r411*TOLUO2VBS*NO + .0174*r414*XYLEO2VBS*HO2 + .0237*r415*XYLEO2VBS*NO - d(SOAGff2)/dt = .0843*r389*BENZO2VBS*HO2 + .1579*r390*BENZO2VBS*NO + .0348*r399*IVOCffO2VBS*HO2 - + .0521*r400*IVOCffO2VBS*NO + .0459*r408*SVOCff*OH + .0763*r410*TOLUO2VBS*HO2 - + .0966*r411*TOLUO2VBS*NO + .086*r414*XYLEO2VBS*HO2 + .0025*r415*XYLEO2VBS*NO - d(SOAGff3)/dt = .0443*r389*BENZO2VBS*HO2 + .0059*r390*BENZO2VBS*NO + .0076*r399*IVOCffO2VBS*HO2 - + .0143*r400*IVOCffO2VBS*NO + .0085*r408*SVOCff*OH + .2157*r410*TOLUO2VBS*HO2 - + .0073*r411*TOLUO2VBS*NO + .0512*r414*XYLEO2VBS*HO2 + .011*r415*XYLEO2VBS*NO - d(SOAGff4)/dt = .1621*r389*BENZO2VBS*HO2 + .0536*r390*BENZO2VBS*NO + .0113*r399*IVOCffO2VBS*HO2 - + .0166*r400*IVOCffO2VBS*NO + .0128*r408*SVOCff*OH + .0738*r410*TOLUO2VBS*HO2 - + .238*r411*TOLUO2VBS*NO + .1598*r414*XYLEO2VBS*HO2 + .1185*r415*XYLEO2VBS*NO - d(ST80_25)/dt = - r451*ST80_25 - d(SVOCbb)/dt = - r407*OH*SVOCbb - d(SVOCff)/dt = - r408*OH*SVOCff - d(TEPOMUC)/dt = .1*r319*TOLUENE*OH + .23*r321*XYLENES*OH + d(SOAGbb0)/dt = .2381*r399*IVOCbbO2VBS*HO2 + .1056*r400*IVOCbbO2VBS*NO + .5931*r410*SVOCbb*OH + d(SOAGbb1)/dt = .1308*r399*IVOCbbO2VBS*HO2 + .1026*r400*IVOCbbO2VBS*NO + .1534*r410*SVOCbb*OH + d(SOAGbb2)/dt = .0348*r399*IVOCbbO2VBS*HO2 + .0521*r400*IVOCbbO2VBS*NO + .0459*r410*SVOCbb*OH + d(SOAGbb3)/dt = .0076*r399*IVOCbbO2VBS*HO2 + .0143*r400*IVOCbbO2VBS*NO + .0085*r410*SVOCbb*OH + d(SOAGbb4)/dt = .0113*r399*IVOCbbO2VBS*HO2 + .0166*r400*IVOCbbO2VBS*NO + .0128*r410*SVOCbb*OH + d(SOAGbg0)/dt = r415*GLYOXAL + .2202*r387*BCARYO2VBS*HO2 + .1279*r388*BCARYO2VBS*NO + .2202*r389*BCARY*O3 + + .0031*r395*ISOPO2VBS*HO2 + .0003*r396*ISOPO2VBS*NO + .0508*r406*MTERPO2VBS*HO2 + + .0245*r407*MTERPO2VBS*NO + .0508*r408*MTERP*O3 + d(SOAGbg1)/dt = .2067*r387*BCARYO2VBS*HO2 + .1792*r388*BCARYO2VBS*NO + .2067*r389*BCARY*O3 + + .0035*r395*ISOPO2VBS*HO2 + .0003*r396*ISOPO2VBS*NO + .1149*r406*MTERPO2VBS*HO2 + + .0082*r407*MTERPO2VBS*NO + .1149*r408*MTERP*O3 + d(SOAGbg2)/dt = .0653*r387*BCARYO2VBS*HO2 + .0676*r388*BCARYO2VBS*NO + .0653*r389*BCARY*O3 + + .0003*r395*ISOPO2VBS*HO2 + .0073*r396*ISOPO2VBS*NO + .0348*r406*MTERPO2VBS*HO2 + + .0772*r407*MTERPO2VBS*NO + .0348*r408*MTERP*O3 + d(SOAGbg3)/dt = .17493*r386*BCARY*NO3 + .1284*r387*BCARYO2VBS*HO2 + .079*r388*BCARYO2VBS*NO + + .1284*r389*BCARY*O3 + .059024*r394*ISOP*NO3 + .0271*r395*ISOPO2VBS*HO2 + + .0057*r396*ISOPO2VBS*NO + .0033*r397*ISOP*O3 + .17493*r405*MTERP*NO3 + + .0554*r406*MTERPO2VBS*HO2 + .0332*r407*MTERPO2VBS*NO + .0554*r408*MTERP*O3 + d(SOAGbg4)/dt = .59019*r386*BCARY*NO3 + .114*r387*BCARYO2VBS*HO2 + .1254*r388*BCARYO2VBS*NO + + .114*r389*BCARY*O3 + .025024*r394*ISOP*NO3 + .0474*r395*ISOPO2VBS*HO2 + + .0623*r396*ISOPO2VBS*NO + .59019*r405*MTERP*NO3 + .1278*r406*MTERPO2VBS*HO2 + + .13*r407*MTERPO2VBS*NO + .1278*r408*MTERP*O3 + d(SOAGff0)/dt = .0023*r392*BENZO2VBS*HO2 + .0097*r393*BENZO2VBS*NO + .2381*r402*IVOCffO2VBS*HO2 + + .1056*r403*IVOCffO2VBS*NO + .5931*r411*SVOCff*OH + .1364*r413*TOLUO2VBS*HO2 + + .0154*r414*TOLUO2VBS*NO + .1677*r417*XYLEO2VBS*HO2 + .0063*r418*XYLEO2VBS*NO + d(SOAGff1)/dt = .0008*r392*BENZO2VBS*HO2 + .0034*r393*BENZO2VBS*NO + .1308*r402*IVOCffO2VBS*HO2 + + .1026*r403*IVOCffO2VBS*NO + .1534*r411*SVOCff*OH + .0101*r413*TOLUO2VBS*HO2 + + .0452*r414*TOLUO2VBS*NO + .0174*r417*XYLEO2VBS*HO2 + .0237*r418*XYLEO2VBS*NO + d(SOAGff2)/dt = .0843*r392*BENZO2VBS*HO2 + .1579*r393*BENZO2VBS*NO + .0348*r402*IVOCffO2VBS*HO2 + + .0521*r403*IVOCffO2VBS*NO + .0459*r411*SVOCff*OH + .0763*r413*TOLUO2VBS*HO2 + + .0966*r414*TOLUO2VBS*NO + .086*r417*XYLEO2VBS*HO2 + .0025*r418*XYLEO2VBS*NO + d(SOAGff3)/dt = .0443*r392*BENZO2VBS*HO2 + .0059*r393*BENZO2VBS*NO + .0076*r402*IVOCffO2VBS*HO2 + + .0143*r403*IVOCffO2VBS*NO + .0085*r411*SVOCff*OH + .2157*r413*TOLUO2VBS*HO2 + + .0073*r414*TOLUO2VBS*NO + .0512*r417*XYLEO2VBS*HO2 + .011*r418*XYLEO2VBS*NO + d(SOAGff4)/dt = .1621*r392*BENZO2VBS*HO2 + .0536*r393*BENZO2VBS*NO + .0113*r402*IVOCffO2VBS*HO2 + + .0166*r403*IVOCffO2VBS*NO + .0128*r411*SVOCff*OH + .0738*r413*TOLUO2VBS*HO2 + + .238*r414*TOLUO2VBS*NO + .1598*r417*XYLEO2VBS*HO2 + .1185*r418*XYLEO2VBS*NO + d(ST80_25)/dt = - r454*ST80_25 + d(SVOCbb)/dt = - r410*OH*SVOCbb + d(SVOCff)/dt = - r411*OH*SVOCff + d(TEPOMUC)/dt = .1*r322*TOLUENE*OH + .23*r324*XYLENES*OH - j65*TEPOMUC - d(TERP2OOH)/dt = r341*TERP2O2*HO2 - - j66*TERP2OOH - r343*OH*TERP2OOH - d(TERPNIT)/dt = .5*r335*NTERPO2*CH3O2 + .2*r337*NTERPO2*NO + .2*r347*TERPO2*NO - - j67*TERPNIT - r382*TERPNIT - r344*OH*TERPNIT - d(TERPOOH)/dt = r346*TERPO2*HO2 - - j68*TERPOOH - r348*OH*TERPOOH - d(TERPROD1)/dt = j59*NTERPOOH + j67*TERPNIT + j68*TERPOOH + .33*r330*BCARY*O3 + .33*r333*MTERP*O3 - + .5*r335*NTERPO2*CH3O2 + .8*r337*NTERPO2*NO + r338*NTERPO2*NO3 + r344*TERPNIT*OH - + r345*TERPO2*CH3O2 + .8*r347*TERPO2*NO - - j69*TERPROD1 - r349*NO3*TERPROD1 - r350*OH*TERPROD1 - d(TERPROD2)/dt = j66*TERP2OOH + j69*TERPROD1 + .3*r330*BCARY*O3 + .3*r333*MTERP*O3 + r340*TERP2O2*CH3O2 - + .9*r342*TERP2O2*NO - - j70*TERPROD2 - r351*OH*TERPROD2 - d(TOLOOH)/dt = r316*TOLO2*HO2 - - j71*TOLOOH - r318*OH*TOLOOH - d(TOLUENE)/dt = - r319*OH*TOLUENE - r409*OH*TOLUENE - d(TOLUO2VBS)/dt = r409*TOLUENE*OH - - r410*HO2*TOLUO2VBS - r411*NO*TOLUO2VBS - d(XOOH)/dt = r282*XO2*HO2 - - j72*XOOH - r285*OH*XOOH - d(XYLENES)/dt = - r321*OH*XYLENES - d(XYLENOOH)/dt = r322*XYLENO2*HO2 - - j73*XYLENOOH - r324*OH*XYLENOOH - d(XYLEO2VBS)/dt = r413*XYLENES*OH - - r414*HO2*XYLEO2VBS - r415*NO*XYLEO2VBS - d(XYLOL)/dt = .15*r321*XYLENES*OH - - r327*OH*XYLOL - d(XYLOLOOH)/dt = r325*XYLOLO2*HO2 - - j74*XYLOLOOH - r328*OH*XYLOLOOH - d(NHDEP)/dt = r377*NH4 + r369*NH3*OH - d(NDEP)/dt = .5*r241*M*MPAN*OH + r302*M*DICARBO2*NO2 + r305*M*MALO2*NO2 + r308*M*MDIALO2*NO2 + r312*PHENO*NO2 - + .2*r337*NTERPO2*NO + .5*r349*TERPROD1*NO3 - d(ACBZO2)/dt = r320*M*PBZNIT + r292*BZALD*OH - - r286*HO2*ACBZO2 - r287*NO*ACBZO2 - r315*M*NO2*ACBZO2 - d(ALKO2)/dt = r250*ALKOOH*OH + r251*BIGALK*OH - - r247*HO2*ALKO2 - r248*NO*ALKO2 - r249*NO*ALKO2 - d(BENZO2)/dt = .35*r288*BENZENE*OH + r291*BENZOOH*OH - - r289*HO2*BENZO2 - r290*NO*BENZO2 - d(BZOO)/dt = r294*BZOOH*OH + .07*r319*TOLUENE*OH + .06*r321*XYLENES*OH - - r293*HO2*BZOO - r295*NO*BZOO - d(C2H5O2)/dt = j53*MEK + .5*r174*C2H5OOH*OH + r175*C2H6*CL + r176*C2H6*OH - - 2*r169*C2H5O2*C2H5O2 - r170*CH3O2*C2H5O2 - r171*HO2*C2H5O2 - r172*NO*C2H5O2 - d(C3H7O2)/dt = r201*C3H7OOH*OH + r202*C3H8*OH + r205*CL*C3H8 - - r198*CH3O2*C3H7O2 - r199*HO2*C3H7O2 - r200*NO*C3H7O2 - d(C6H5O2)/dt = .4*r286*ACBZO2*HO2 + r287*ACBZO2*NO + r298*C6H5OOH*OH + r313*PHENO*O3 - - r296*HO2*C6H5O2 - r297*NO*C6H5O2 + d(TERP2OOH)/dt = r344*TERP2O2*HO2 + - j66*TERP2OOH - r346*OH*TERP2OOH + d(TERPNIT)/dt = .5*r338*NTERPO2*CH3O2 + .2*r340*NTERPO2*NO + .2*r350*TERPO2*NO + - j67*TERPNIT - r385*TERPNIT - r347*OH*TERPNIT + d(TERPOOH)/dt = r349*TERPO2*HO2 + - j68*TERPOOH - r351*OH*TERPOOH + d(TERPROD1)/dt = j59*NTERPOOH + j67*TERPNIT + j68*TERPOOH + .33*r333*BCARY*O3 + .33*r336*MTERP*O3 + + .5*r338*NTERPO2*CH3O2 + .8*r340*NTERPO2*NO + r341*NTERPO2*NO3 + r347*TERPNIT*OH + + r348*TERPO2*CH3O2 + .8*r350*TERPO2*NO + - j69*TERPROD1 - r352*NO3*TERPROD1 - r353*OH*TERPROD1 + d(TERPROD2)/dt = j66*TERP2OOH + j69*TERPROD1 + .3*r333*BCARY*O3 + .3*r336*MTERP*O3 + r343*TERP2O2*CH3O2 + + .9*r345*TERP2O2*NO + - j70*TERPROD2 - r354*OH*TERPROD2 + d(TOLOOH)/dt = r319*TOLO2*HO2 + - j71*TOLOOH - r321*OH*TOLOOH + d(TOLUENE)/dt = - r322*OH*TOLUENE - r412*OH*TOLUENE + d(XOOH)/dt = r285*XO2*HO2 + - j72*XOOH - r288*OH*XOOH + d(XYLENES)/dt = - r324*OH*XYLENES + d(XYLENOOH)/dt = r325*XYLENO2*HO2 + - j73*XYLENOOH - r327*OH*XYLENOOH + d(XYLOL)/dt = .15*r324*XYLENES*OH + - r330*OH*XYLOL + d(XYLOLOOH)/dt = r328*XYLOLO2*HO2 + - j74*XYLOLOOH - r331*OH*XYLOLOOH + d(NHDEP)/dt = r380*NH4 + r372*NH3*OH + d(NDEP)/dt = .5*r244*M*MPAN*OH + r305*M*DICARBO2*NO2 + r308*M*MALO2*NO2 + r311*M*MDIALO2*NO2 + r315*PHENO*NO2 + + .2*r340*NTERPO2*NO + .5*r352*TERPROD1*NO3 + d(ACBZO2)/dt = r323*M*PBZNIT + r295*BZALD*OH + - r289*HO2*ACBZO2 - r290*NO*ACBZO2 - r318*M*NO2*ACBZO2 + d(ALKO2)/dt = r253*ALKOOH*OH + r254*BIGALK*OH + - r250*HO2*ALKO2 - r251*NO*ALKO2 - r252*NO*ALKO2 + d(BCARYO2VBS)/dt = r390*BCARY*OH + - r387*HO2*BCARYO2VBS - r388*NO*BCARYO2VBS + d(BENZO2)/dt = .35*r291*BENZENE*OH + r294*BENZOOH*OH + - r292*HO2*BENZO2 - r293*NO*BENZO2 + d(BENZO2VBS)/dt = r391*BENZENE*OH + - r392*HO2*BENZO2VBS - r393*NO*BENZO2VBS + d(BZOO)/dt = r297*BZOOH*OH + .07*r322*TOLUENE*OH + .06*r324*XYLENES*OH + - r296*HO2*BZOO - r298*NO*BZOO + d(C2H5O2)/dt = j53*MEK + .5*r177*C2H5OOH*OH + r178*C2H6*CL + r179*C2H6*OH + - 2*r172*C2H5O2*C2H5O2 - r173*CH3O2*C2H5O2 - r174*HO2*C2H5O2 - r175*NO*C2H5O2 + d(C3H7O2)/dt = r204*C3H7OOH*OH + r205*C3H8*OH + r208*CL*C3H8 + - r201*CH3O2*C3H7O2 - r202*HO2*C3H7O2 - r203*NO*C3H7O2 + d(C6H5O2)/dt = .4*r289*ACBZO2*HO2 + r290*ACBZO2*NO + r301*C6H5OOH*OH + r316*PHENO*O3 + - r299*HO2*C6H5O2 - r300*NO*C6H5O2 d(CH3CO3)/dt = .13*j24*BIGALD + j28*BIGALD4 + j36*CH3COCH3 + j37*CH3COCHO + .33*j46*HONITR + j48*HYAC + 1.34*j51*MACR + j53*MEK + j54*MEKOOH + .3*j56*MVK + j58*NOA + .6*j61*PAN + j64*ROOH - + .5*j65*TEPOMUC + .65*j70*TERPROD2 + r195*M*PAN + r177*CH3CHO*NO3 + r178*CH3CHO*OH - + .5*r185*CH3COOOH*OH + r203*CH3COCHO*NO3 + r204*CH3COCHO*OH + .3*r211*RO2*CH3O2 - + .15*r212*RO2*HO2 + r213*RO2*NO + .53*r222*MACRO2*CH3CO3 + .26*r223*MACRO2*CH3O2 - + .53*r225*MACRO2*NO3 + .53*r226*MACRO2*NO + .1*r228*MACR*O3 + r232*MCO3*CH3O2 - + .45*r233*MCO3*HO2 + 2*r234*MCO3*MCO3 + r235*MCO3*NO + r236*MCO3*NO3 + .2*r237*MEKO2*HO2 - + r238*MEKO2*NO + .28*r242*MVK*O3 + .08*r275*ISOP*O3 + .06*r330*BCARY*O3 + .06*r333*MTERP*O3 - + .65*r351*TERPROD2*OH - - 2*r180*CH3CO3*CH3CO3 - r181*CH3O2*CH3CO3 - r182*HO2*CH3CO3 - r183*NO*CH3CO3 - - r194*M*NO2*CH3CO3 - r222*MACRO2*CH3CO3 - r255*ISOPAO2*CH3CO3 - r260*ISOPBO2*CH3CO3 - - r269*ISOPNO3*CH3CO3 - r280*XO2*CH3CO3 + + .5*j65*TEPOMUC + .65*j70*TERPROD2 + r198*M*PAN + r180*CH3CHO*NO3 + r181*CH3CHO*OH + + .5*r188*CH3COOOH*OH + r206*CH3COCHO*NO3 + r207*CH3COCHO*OH + .3*r214*RO2*CH3O2 + + .15*r215*RO2*HO2 + r216*RO2*NO + .53*r225*MACRO2*CH3CO3 + .26*r226*MACRO2*CH3O2 + + .53*r228*MACRO2*NO3 + .53*r229*MACRO2*NO + .1*r231*MACR*O3 + r235*MCO3*CH3O2 + + .45*r236*MCO3*HO2 + 2*r237*MCO3*MCO3 + r238*MCO3*NO + r239*MCO3*NO3 + .2*r240*MEKO2*HO2 + + r241*MEKO2*NO + .28*r245*MVK*O3 + .08*r278*ISOP*O3 + .06*r333*BCARY*O3 + .06*r336*MTERP*O3 + + .65*r354*TERPROD2*OH + - 2*r183*CH3CO3*CH3CO3 - r184*CH3O2*CH3CO3 - r185*HO2*CH3CO3 - r186*NO*CH3CO3 + - r197*M*NO2*CH3CO3 - r225*MACRO2*CH3CO3 - r258*ISOPAO2*CH3CO3 - r263*ISOPBO2*CH3CO3 + - r272*ISOPNO3*CH3CO3 - r283*XO2*CH3CO3 d(CH3O2)/dt = j35*CH3CHO + j36*CH3COCH3 + j38*CH3COOOH + j41*CH4 + .3*j56*MVK + .4*j61*PAN + j88*CH3BR - + j90*CH3CL + r65*CL*CH4 + r121*F*CH4 + .7*r153*CH3OOH*OH + r154*CH4*OH + r160*O1D*CH4 - + 2*r180*CH3CO3*CH3CO3 + .9*r181*CH3CO3*CH3O2 + .45*r182*CH3CO3*HO2 + r183*CH3CO3*NO - + r184*CH3COOH*OH + .28*r197*C3H6*O3 + r222*MACRO2*CH3CO3 + r231*MCO3*CH3CO3 - + r255*ISOPAO2*CH3CO3 + r260*ISOPBO2*CH3CO3 + r269*ISOPNO3*CH3CO3 + .05*r275*ISOP*O3 - + r280*XO2*CH3CO3 + .33*r300*DICARBO2*HO2 + .83*r301*DICARBO2*NO + .07*r306*MDIALO2*HO2 - + .17*r307*MDIALO2*NO - - r71*CLO*CH3O2 - 2*r148*CH3O2*CH3O2 - 2*r149*CH3O2*CH3O2 - r150*HO2*CH3O2 - r151*NO*CH3O2 - - r170*C2H5O2*CH3O2 - r181*CH3CO3*CH3O2 - r198*C3H7O2*CH3O2 - r211*RO2*CH3O2 - - r223*MACRO2*CH3O2 - r232*MCO3*CH3O2 - r256*ISOPAO2*CH3O2 - r261*ISOPBO2*CH3O2 - - r270*ISOPNO3*CH3O2 - r281*XO2*CH3O2 - r335*NTERPO2*CH3O2 - r340*TERP2O2*CH3O2 - - r345*TERPO2*CH3O2 + + j90*CH3CL + r68*CL*CH4 + r124*F*CH4 + .7*r156*CH3OOH*OH + r157*CH4*OH + r163*O1D*CH4 + + 2*r183*CH3CO3*CH3CO3 + .9*r184*CH3CO3*CH3O2 + .45*r185*CH3CO3*HO2 + r186*CH3CO3*NO + + r187*CH3COOH*OH + .28*r200*C3H6*O3 + r225*MACRO2*CH3CO3 + r234*MCO3*CH3CO3 + + r258*ISOPAO2*CH3CO3 + r263*ISOPBO2*CH3CO3 + r272*ISOPNO3*CH3CO3 + .05*r278*ISOP*O3 + + r283*XO2*CH3CO3 + .33*r303*DICARBO2*HO2 + .83*r304*DICARBO2*NO + .07*r309*MDIALO2*HO2 + + .17*r310*MDIALO2*NO + - r74*CLO*CH3O2 - 2*r151*CH3O2*CH3O2 - 2*r152*CH3O2*CH3O2 - r153*HO2*CH3O2 - r154*NO*CH3O2 + - r173*C2H5O2*CH3O2 - r184*CH3CO3*CH3O2 - r201*C3H7O2*CH3O2 - r214*RO2*CH3O2 + - r226*MACRO2*CH3O2 - r235*MCO3*CH3O2 - r259*ISOPAO2*CH3O2 - r264*ISOPBO2*CH3O2 + - r273*ISOPNO3*CH3O2 - r284*XO2*CH3O2 - r338*NTERPO2*CH3O2 - r343*TERP2O2*CH3O2 + - r348*TERPO2*CH3O2 d(DICARBO2)/dt = .6*j26*BIGALD2 - - r300*HO2*DICARBO2 - r301*NO*DICARBO2 - r302*M*NO2*DICARBO2 + - r303*HO2*DICARBO2 - r304*NO*DICARBO2 - r305*M*NO2*DICARBO2 d(e)/dt = j113*N2 + j114*N2 + j115*N2 + j116*N2 + j117*N2 + j119*N2 + j16*NO + j111*N + j120*O + j121*O + j122*O + j123*O + j124*O + j125*O + j126*O2 + j127*O2 + j128*O2 + j129*O2 + j130*O2 + j131*O2 + j132*O2 + j133*O2 - - r433*NOp*e - r434*O2p*e - r435*N2p*e - d(ENEO2)/dt = r218*BIGENE*OH - - r219*NO*ENEO2 - r220*NO*ENEO2 - d(EO)/dt = j43*EOOH + .75*r187*EO2*NO - - r188*EO - r189*O2*EO - d(EO2)/dt = r193*M*C2H4*OH - - r186*HO2*EO2 - r187*NO*EO2 + - r436*NOp*e - r437*O2p*e - r438*N2p*e + d(ENEO2)/dt = r221*BIGENE*OH + - r222*NO*ENEO2 - r223*NO*ENEO2 + d(EO)/dt = j43*EOOH + .75*r190*EO2*NO + - r191*EO - r192*O2*EO + d(EO2)/dt = r196*M*C2H4*OH + - r189*HO2*EO2 - r190*NO*EO2 d(HO2)/dt = j11*HO2NO2 + j20*ALKNIT + .9*j21*ALKOOH + j22*BENZOOH + 1.5*j23*BEPOMUC + .56*j24*BIGALD + j25*BIGALD1 + .6*j26*BIGALD2 + .6*j27*BIGALD3 + j28*BIGALD4 + j29*BZOOH + j30*C2H5OOH + j31*C3H7OOH + j35*CH3CHO + j37*CH3COCHO + 2*j44*GLYALD + 2*j45*GLYOXAL + .67*j46*HONITR + j47*HPALD + j48*HYAC + j49*ISOPNOOH + j50*ISOPOOH + 1.34*j51*MACR + .66*j52*MACR + j57*NC4CHO + j62*PHENOOH + j63*POOH + j65*TEPOMUC + j66*TERP2OOH + j67*TERPNIT + j68*TERPOOH + j69*TERPROD1 + 1.2*j70*TERPROD2 + j71*TOLOOH + j73*XYLENOOH + j74*XYLOLOOH + r62*M*HO2NO2 - + r158*HOCH2OO + r188*EO + r263*ISOPBO2 + r21*H2O2*O + r25*M*H*O2 + r30*OH*H2O2 + r33*OH*O3 - + r51*NO3*OH + r64*CL*CH2O + r67*CL*H2O2 + r71*CLO*CH3O2 + r82*CLO*OH + r100*BR*CH2O - + r112*BRO*OH + r129*CH3BR*CL + r130*CH3BR*OH + r132*CH3CL*CL + r133*CH3CL*OH + r145*CH2O*NO3 - + r146*CH2O*O + 2*r148*CH3O2*CH3O2 + r151*CH3O2*NO + r152*CH3OH*OH + r155*M*HCN*OH - + r156*HCOOH*OH + r159*HOCH2OO*NO + r161*O1D*CH4 + r164*CO*OH + .35*r166*M*C2H2*OH - + .13*r168*C2H4*O3 + 1.2*r169*C2H5O2*C2H5O2 + r170*C2H5O2*CH3O2 + r172*C2H5O2*NO + r173*C2H5OH*OH - + r179*CH3CN*OH + .9*r181*CH3CO3*CH3O2 + .25*r187*EO2*NO + r189*EO*O2 + r190*GLYALD*OH - + r191*GLYOXAL*OH + .28*r197*C3H6*O3 + r198*C3H7O2*CH3O2 + r200*C3H7O2*NO + r206*HYAC*OH - + r209*PO2*NO + .3*r211*RO2*CH3O2 + r219*ENEO2*NO + r221*HONITR*OH + .47*r222*MACRO2*CH3CO3 - + .73*r223*MACRO2*CH3O2 + .47*r225*MACRO2*NO3 + .47*r226*MACRO2*NO + .14*r228*MACR*O3 - + .2*r230*MACROOH*OH + r232*MCO3*CH3O2 + .5*r241*M*MPAN*OH + .28*r242*MVK*O3 + r248*ALKO2*NO - + r255*ISOPAO2*CH3CO3 + r256*ISOPAO2*CH3O2 + .92*r258*ISOPAO2*NO + r259*ISOPAO2*NO3 - + r260*ISOPBO2*CH3CO3 + r261*ISOPBO2*CH3O2 + .92*r264*ISOPBO2*NO + r265*ISOPBO2*NO3 - + .3*r266*ISOPNITA*OH + r267*ISOPNITB*OH + r269*ISOPNO3*CH3CO3 + 1.2*r270*ISOPNO3*CH3O2 - + r272*ISOPNO3*NO + r273*ISOPNO3*NO3 + r274*ISOPNOOH*OH + .37*r275*ISOP*O3 + r278*NC4CH2OH*OH - + r279*NC4CHO*OH + r280*XO2*CH3CO3 + .8*r281*XO2*CH3O2 + r283*XO2*NO + r284*XO2*NO3 - + .65*r288*BENZENE*OH + r290*BENZO2*NO + r295*BZOO*NO + .73*r299*CRESOL*OH - + .07*r300*DICARBO2*HO2 + .17*r301*DICARBO2*NO + .16*r303*MALO2*HO2 + .4*r304*MALO2*NO - + .33*r306*MDIALO2*HO2 + .83*r307*MDIALO2*NO + r310*PHENO2*NO + .8*r311*PHENOL*OH + r317*TOLO2*NO - + .28*r319*TOLUENE*OH + .38*r321*XYLENES*OH + r323*XYLENO2*NO + r326*XYLOLO2*NO - + .63*r327*XYLOL*OH + .57*r330*BCARY*O3 + .57*r333*MTERP*O3 + .5*r335*NTERPO2*CH3O2 - + r340*TERP2O2*CH3O2 + .9*r342*TERP2O2*NO + r345*TERPO2*CH3O2 + .8*r347*TERPO2*NO - + .2*r351*TERPROD2*OH + r357*M*SO2*OH + .5*r367*DMS*OH - - r370*HO2 - r22*H*HO2 - r23*H*HO2 - r24*H*HO2 - r26*O*HO2 - r27*O3*HO2 - r31*OH*HO2 - - 2*r36*HO2*HO2 - r48*NO3*HO2 - r53*NO*HO2 - r58*M*NO2*HO2 - r68*CL*HO2 - r69*CL*HO2 - - r75*CLO*HO2 - r101*BR*HO2 - r107*BRO*HO2 - r144*CH2O*HO2 - r150*CH3O2*HO2 - r157*HOCH2OO*HO2 - - r171*C2H5O2*HO2 - r182*CH3CO3*HO2 - r186*EO2*HO2 - r199*C3H7O2*HO2 - r208*PO2*HO2 - - r212*RO2*HO2 - r224*MACRO2*HO2 - r233*MCO3*HO2 - r237*MEKO2*HO2 - r247*ALKO2*HO2 - - r257*ISOPAO2*HO2 - r262*ISOPBO2*HO2 - r271*ISOPNO3*HO2 - r282*XO2*HO2 - r286*ACBZO2*HO2 - - r289*BENZO2*HO2 - r293*BZOO*HO2 - r296*C6H5O2*HO2 - r300*DICARBO2*HO2 - r303*MALO2*HO2 - - r306*MDIALO2*HO2 - r309*PHENO2*HO2 - r316*TOLO2*HO2 - r322*XYLENO2*HO2 - r325*XYLOLO2*HO2 - - r336*NTERPO2*HO2 - r341*TERP2O2*HO2 - r346*TERPO2*HO2 - d(HOCH2OO)/dt = r144*CH2O*HO2 - - r158*HOCH2OO - r157*HO2*HOCH2OO - r159*NO*HOCH2OO - d(ISOPAO2)/dt = .6*r276*ISOP*OH - - r255*CH3CO3*ISOPAO2 - r256*CH3O2*ISOPAO2 - r257*HO2*ISOPAO2 - r258*NO*ISOPAO2 - - r259*NO3*ISOPAO2 - d(ISOPBO2)/dt = .4*r276*ISOP*OH - - r263*ISOPBO2 - r260*CH3CO3*ISOPBO2 - r261*CH3O2*ISOPBO2 - r262*HO2*ISOPBO2 - - r264*NO*ISOPBO2 - r265*NO3*ISOPBO2 - d(MACRO2)/dt = .5*r229*MACR*OH + .2*r230*MACROOH*OH + r243*MVK*OH - - r222*CH3CO3*MACRO2 - r223*CH3O2*MACRO2 - r224*HO2*MACRO2 - r225*NO3*MACRO2 - r226*NO*MACRO2 - - r227*NO*MACRO2 + + r161*HOCH2OO + r191*EO + r266*ISOPBO2 + r21*H2O2*O + r25*M*H*O2 + r30*OH*H2O2 + r33*OH*O3 + + r51*NO3*OH + r67*CL*CH2O + r70*CL*H2O2 + r74*CLO*CH3O2 + r85*CLO*OH + r103*BR*CH2O + + r115*BRO*OH + r132*CH3BR*CL + r133*CH3BR*OH + r135*CH3CL*CL + r136*CH3CL*OH + r148*CH2O*NO3 + + r149*CH2O*O + 2*r151*CH3O2*CH3O2 + r154*CH3O2*NO + r155*CH3OH*OH + r158*M*HCN*OH + + r159*HCOOH*OH + r162*HOCH2OO*NO + r164*O1D*CH4 + r167*CO*OH + .35*r169*M*C2H2*OH + + .13*r171*C2H4*O3 + 1.2*r172*C2H5O2*C2H5O2 + r173*C2H5O2*CH3O2 + r175*C2H5O2*NO + r176*C2H5OH*OH + + r182*CH3CN*OH + .9*r184*CH3CO3*CH3O2 + .25*r190*EO2*NO + r192*EO*O2 + r193*GLYALD*OH + + r194*GLYOXAL*OH + .28*r200*C3H6*O3 + r201*C3H7O2*CH3O2 + r203*C3H7O2*NO + r209*HYAC*OH + + r212*PO2*NO + .3*r214*RO2*CH3O2 + r222*ENEO2*NO + r224*HONITR*OH + .47*r225*MACRO2*CH3CO3 + + .73*r226*MACRO2*CH3O2 + .47*r228*MACRO2*NO3 + .47*r229*MACRO2*NO + .14*r231*MACR*O3 + + .2*r233*MACROOH*OH + r235*MCO3*CH3O2 + .5*r244*M*MPAN*OH + .28*r245*MVK*O3 + r251*ALKO2*NO + + r258*ISOPAO2*CH3CO3 + r259*ISOPAO2*CH3O2 + .92*r261*ISOPAO2*NO + r262*ISOPAO2*NO3 + + r263*ISOPBO2*CH3CO3 + r264*ISOPBO2*CH3O2 + .92*r267*ISOPBO2*NO + r268*ISOPBO2*NO3 + + .3*r269*ISOPNITA*OH + r270*ISOPNITB*OH + r272*ISOPNO3*CH3CO3 + 1.2*r273*ISOPNO3*CH3O2 + + r275*ISOPNO3*NO + r276*ISOPNO3*NO3 + r277*ISOPNOOH*OH + .37*r278*ISOP*O3 + r281*NC4CH2OH*OH + + r282*NC4CHO*OH + r283*XO2*CH3CO3 + .8*r284*XO2*CH3O2 + r286*XO2*NO + r287*XO2*NO3 + + .65*r291*BENZENE*OH + r293*BENZO2*NO + r298*BZOO*NO + .73*r302*CRESOL*OH + + .07*r303*DICARBO2*HO2 + .17*r304*DICARBO2*NO + .16*r306*MALO2*HO2 + .4*r307*MALO2*NO + + .33*r309*MDIALO2*HO2 + .83*r310*MDIALO2*NO + r313*PHENO2*NO + .8*r314*PHENOL*OH + r320*TOLO2*NO + + .28*r322*TOLUENE*OH + .38*r324*XYLENES*OH + r326*XYLENO2*NO + r329*XYLOLO2*NO + + .63*r330*XYLOL*OH + .57*r333*BCARY*O3 + .57*r336*MTERP*O3 + .5*r338*NTERPO2*CH3O2 + + r343*TERP2O2*CH3O2 + .9*r345*TERP2O2*NO + r348*TERPO2*CH3O2 + .8*r350*TERPO2*NO + + .2*r354*TERPROD2*OH + r360*M*SO2*OH + .5*r370*DMS*OH + - r373*HO2 - r22*H*HO2 - r23*H*HO2 - r24*H*HO2 - r26*O*HO2 - r27*O3*HO2 - r31*OH*HO2 + - 2*r36*HO2*HO2 - r48*NO3*HO2 - r53*NO*HO2 - r58*M*NO2*HO2 - r71*CL*HO2 - r72*CL*HO2 + - r78*CLO*HO2 - r104*BR*HO2 - r110*BRO*HO2 - r147*CH2O*HO2 - r153*CH3O2*HO2 - r160*HOCH2OO*HO2 + - r174*C2H5O2*HO2 - r185*CH3CO3*HO2 - r189*EO2*HO2 - r202*C3H7O2*HO2 - r211*PO2*HO2 + - r215*RO2*HO2 - r227*MACRO2*HO2 - r236*MCO3*HO2 - r240*MEKO2*HO2 - r250*ALKO2*HO2 + - r260*ISOPAO2*HO2 - r265*ISOPBO2*HO2 - r274*ISOPNO3*HO2 - r285*XO2*HO2 - r289*ACBZO2*HO2 + - r292*BENZO2*HO2 - r296*BZOO*HO2 - r299*C6H5O2*HO2 - r303*DICARBO2*HO2 - r306*MALO2*HO2 + - r309*MDIALO2*HO2 - r312*PHENO2*HO2 - r319*TOLO2*HO2 - r325*XYLENO2*HO2 - r328*XYLOLO2*HO2 + - r339*NTERPO2*HO2 - r344*TERP2O2*HO2 - r349*TERPO2*HO2 + d(HOCH2OO)/dt = r147*CH2O*HO2 + - r161*HOCH2OO - r160*HO2*HOCH2OO - r162*NO*HOCH2OO + d(ISOPAO2)/dt = .6*r279*ISOP*OH + - r258*CH3CO3*ISOPAO2 - r259*CH3O2*ISOPAO2 - r260*HO2*ISOPAO2 - r261*NO*ISOPAO2 + - r262*NO3*ISOPAO2 + d(ISOPBO2)/dt = .4*r279*ISOP*OH + - r266*ISOPBO2 - r263*CH3CO3*ISOPBO2 - r264*CH3O2*ISOPBO2 - r265*HO2*ISOPBO2 + - r267*NO*ISOPBO2 - r268*NO3*ISOPBO2 + d(ISOPO2VBS)/dt = r398*ISOP*OH + - r395*HO2*ISOPO2VBS - r396*NO*ISOPO2VBS + d(IVOCbbO2VBS)/dt = r401*IVOCbb*OH + - r399*HO2*IVOCbbO2VBS - r400*NO*IVOCbbO2VBS + d(IVOCffO2VBS)/dt = r404*IVOCff*OH + - r402*HO2*IVOCffO2VBS - r403*NO*IVOCffO2VBS + d(MACRO2)/dt = .5*r232*MACR*OH + .2*r233*MACROOH*OH + r246*MVK*OH + - r225*CH3CO3*MACRO2 - r226*CH3O2*MACRO2 - r227*HO2*MACRO2 - r228*NO3*MACRO2 - r229*NO*MACRO2 + - r230*NO*MACRO2 d(MALO2)/dt = .6*j25*BIGALD1 - - r303*HO2*MALO2 - r304*NO*MALO2 - r305*M*NO2*MALO2 - d(MCO3)/dt = .66*j51*MACR + j55*MPAN + r245*M*MPAN + .5*r229*MACR*OH + .5*r230*MACROOH*OH - - r231*CH3CO3*MCO3 - r232*CH3O2*MCO3 - r233*HO2*MCO3 - 2*r234*MCO3*MCO3 - r235*NO*MCO3 - - r236*NO3*MCO3 - r244*M*NO2*MCO3 + - r306*HO2*MALO2 - r307*NO*MALO2 - r308*M*NO2*MALO2 + d(MCO3)/dt = .66*j51*MACR + j55*MPAN + r248*M*MPAN + .5*r232*MACR*OH + .5*r233*MACROOH*OH + - r234*CH3CO3*MCO3 - r235*CH3O2*MCO3 - r236*HO2*MCO3 - 2*r237*MCO3*MCO3 - r238*NO*MCO3 + - r239*NO3*MCO3 - r247*M*NO2*MCO3 d(MDIALO2)/dt = .6*j27*BIGALD3 - - r306*HO2*MDIALO2 - r307*NO*MDIALO2 - r308*M*NO2*MDIALO2 - d(MEKO2)/dt = r239*MEK*OH + r240*MEKOOH*OH - - r237*HO2*MEKO2 - r238*NO*MEKO2 - d(N2D)/dt = 1.2*j112*N2 + j113*N2 + j117*N2 + 1.2*j118*N2 + .8*r433*NOp*e + .9*r435*N2p*e + r437*N2p*O - - r38*O*N2D - r39*O2*N2D + - r309*HO2*MDIALO2 - r310*NO*MDIALO2 - r311*M*NO2*MDIALO2 + d(MEKO2)/dt = r242*MEK*OH + r243*MEKOOH*OH + - r240*HO2*MEKO2 - r241*NO*MEKO2 + d(MTERPO2VBS)/dt = r409*MTERP*OH + - r406*HO2*MTERPO2VBS - r407*NO*MTERPO2VBS + d(N2D)/dt = 1.2*j112*N2 + j113*N2 + j117*N2 + 1.2*j118*N2 + .8*r436*NOp*e + .9*r438*N2p*e + r440*N2p*O + - r37*N2D - r39*NO*N2D - r40*O*N2D - r63*e*N2D - r64*O2*N2D d(N2p)/dt = j114*N2 + j119*N2 - - r435*e*N2p - r436*O2*N2p - r437*O*N2p - r438*O*N2p - d(NOp)/dt = j16*NO + r443*N2*O2p + r446*N2*Op + r437*N2p*O + r441*Np*O2 + r442*O2p*N + r444*O2p*NO - - r433*e*NOp + - r438*e*N2p - r439*O2*N2p - r440*O*N2p - r441*O*N2p + d(NOp)/dt = j16*NO + r446*N2*O2p + r449*N2*Op + r440*N2p*O + r444*Np*O2 + r445*O2p*N + r447*O2p*NO + - r436*e*NOp d(Np)/dt = j113*N2 + j115*N2 + j116*N2 + j117*N2 + j111*N - - r439*O*Np - r440*O2*Np - r441*O2*Np - d(NTERPO2)/dt = r329*BCARY*NO3 + r332*MTERP*NO3 + r339*NTERPOOH*OH + .5*r349*TERPROD1*NO3 - - r335*CH3O2*NTERPO2 - r336*HO2*NTERPO2 - r337*NO*NTERPO2 - r338*NO3*NTERPO2 - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r434*O2p*e + - r442*O*Np - r443*O2*Np - r444*O2*Np + d(NTERPO2)/dt = r332*BCARY*NO3 + r335*MTERP*NO3 + r342*NTERPOOH*OH + .5*r352*TERPROD1*NO3 + - r338*CH3O2*NTERPO2 - r339*HO2*NTERPO2 - r340*NO*NTERPO2 - r341*NO3*NTERPO2 + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r64*N2D*O2 + .85*r437*O2p*e - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r56*N2O*O1D - - r57*N2O*O1D - r89*CCL4*O1D - r90*CF2CLBR*O1D - r91*CFC11*O1D - r92*CFC113*O1D - r93*CFC114*O1D - - r94*CFC115*O1D - r95*CFC12*O1D - r96*HCL*O1D - r97*HCL*O1D - r116*CF3BR*O1D - r117*CHBR3*O1D - - r118*H2402*O1D - r119*HBR*O1D - r120*HBR*O1D - r125*COF2*O1D - r126*COFCL*O1D - - r139*CH2BR2*O1D - r140*CH3BR*O1D - r141*HCFC141B*O1D - r142*HCFC142B*O1D - r143*HCFC22*O1D - - r160*CH4*O1D - r161*CH4*O1D - r162*CH4*O1D - r163*HCN*O1D + - r57*N2O*O1D - r92*CCL4*O1D - r93*CF2CLBR*O1D - r94*CFC11*O1D - r95*CFC113*O1D - r96*CFC114*O1D + - r97*CFC115*O1D - r98*CFC12*O1D - r99*HCL*O1D - r100*HCL*O1D - r119*CF3BR*O1D - r120*CHBR3*O1D + - r121*H2402*O1D - r122*HBR*O1D - r123*HBR*O1D - r128*COF2*O1D - r129*COFCL*O1D + - r142*CH2BR2*O1D - r143*CH3BR*O1D - r144*HCFC141B*O1D - r145*HCFC142B*O1D - r146*HCFC22*O1D + - r163*CH4*O1D - r164*CH4*O1D - r165*CH4*O1D - r166*HCN*O1D d(O2_1D)/dt = j7*O3 + r13*N2*O2_1S + r12*O2_1S*CO2 + r14*O2_1S*O + r15*O2_1S*O2 + r16*O2_1S*O3 - r1*O2_1D - r9*N2*O2_1D - r10*O*O2_1D - r11*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - r2*O2_1S - r13*N2*O2_1S - r12*CO2*O2_1S - r14*O*O2_1S - r15*O2*O2_1S - r16*O3*O2_1S - d(O2p)/dt = j126*O2 + j130*O2 + r436*N2p*O2 + r440*Np*O2 + r445*Op*CO2 + r447*Op*O2 - - r443*N2*O2p - r434*e*O2p - r442*N*O2p - r444*NO*O2p + d(O2p)/dt = j126*O2 + j130*O2 + r439*N2p*O2 + r443*Np*O2 + r448*Op*CO2 + r450*Op*O2 + - r446*N2*O2p - r437*e*O2p - r445*N*O2p - r447*NO*O2p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j21*ALKOOH + j22*BENZOOH + j29*BZOOH + j30*C2H5OOH + j31*C3H7OOH + j32*C6H5OOH + j38*CH3COOOH + j39*CH3OOH + .33*j40*CH4 + j43*EOOH + j47*HPALD + j50*ISOPOOH + j54*MEKOOH + j59*NTERPOOH + j62*PHENOOH + j63*POOH + j64*ROOH + j66*TERP2OOH + j68*TERPOOH + j71*TOLOOH + j72*XOOH + j73*XYLENOOH + j74*XYLOLOOH + j106*HOBR + j107*HOCL - + .5*r378*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O - + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r69*CL*HO2 + r84*HCL*O + r87*HOCL*O - + r96*O1D*HCL + r113*HBR*O + r115*HOBR*O + r119*O1D*HBR + r123*F*H2O + r146*CH2O*O - + .3*r153*CH3OOH*OH + r160*O1D*CH4 + r163*O1D*HCN + .65*r166*M*C2H2*OH + .13*r168*C2H4*O3 - + .5*r174*C2H5OOH*OH + .45*r182*CH3CO3*HO2 + .36*r197*C3H6*O3 + .5*r210*POOH*OH + .15*r212*RO2*HO2 - + .24*r228*MACR*O3 + .1*r230*MACROOH*OH + .45*r233*MCO3*HO2 + .2*r237*MEKO2*HO2 + .36*r242*MVK*O3 - + .32*r275*ISOP*O3 + .6*r277*ISOPOOH*OH + .5*r285*XOOH*OH + .4*r286*ACBZO2*HO2 - + .4*r300*DICARBO2*HO2 + .4*r306*MDIALO2*HO2 + .63*r330*BCARY*O3 + .63*r333*MTERP*O3 + + .5*r381*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O + + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r72*CL*HO2 + r87*HCL*O + r90*HOCL*O + + r99*O1D*HCL + r116*HBR*O + r118*HOBR*O + r122*O1D*HBR + r126*F*H2O + r149*CH2O*O + + .3*r156*CH3OOH*OH + r163*O1D*CH4 + r166*O1D*HCN + .65*r169*M*C2H2*OH + .13*r171*C2H4*O3 + + .5*r177*C2H5OOH*OH + .45*r185*CH3CO3*HO2 + .36*r200*C3H6*O3 + .5*r213*POOH*OH + .15*r215*RO2*HO2 + + .24*r231*MACR*O3 + .1*r233*MACROOH*OH + .45*r236*MCO3*HO2 + .2*r240*MEKO2*HO2 + .36*r245*MVK*O3 + + .32*r278*ISOP*O3 + .6*r280*ISOPOOH*OH + .5*r288*XOOH*OH + .4*r289*ACBZO2*HO2 + + .4*r303*DICARBO2*HO2 + .4*r309*MDIALO2*HO2 + .63*r333*BCARY*O3 + .63*r336*MTERP*O3 - r29*H2*OH - r30*H2O2*OH - r31*HO2*OH - r32*O*OH - r33*O3*OH - 2*r34*OH*OH - 2*r35*M*OH*OH - - r37*HO2NO2*OH - r51*NO3*OH - r52*N*OH - r60*M*NO2*OH - r61*HNO3*OH - r80*CLONO2*OH - - r82*CLO*OH - r83*CLO*OH - r85*HCL*OH - r88*HOCL*OH - r112*BRO*OH - r114*HBR*OH - - r128*CH2BR2*OH - r130*CH3BR*OH - r131*CH3CCL3*OH - r133*CH3CL*OH - r135*CHBR3*OH - - r136*HCFC141B*OH - r137*HCFC142B*OH - r138*HCFC22*OH - r147*CH2O*OH - r152*CH3OH*OH - - r153*CH3OOH*OH - r154*CH4*OH - r155*M*HCN*OH - r156*HCOOH*OH - r164*CO*OH - r166*M*C2H2*OH - - r173*C2H5OH*OH - r174*C2H5OOH*OH - r176*C2H6*OH - r178*CH3CHO*OH - r179*CH3CN*OH - - r184*CH3COOH*OH - r185*CH3COOOH*OH - r190*GLYALD*OH - r191*GLYOXAL*OH - r192*PAN*OH - - r193*M*C2H4*OH - r201*C3H7OOH*OH - r202*C3H8*OH - r204*CH3COCHO*OH - r206*HYAC*OH - r207*NOA*OH - - r210*POOH*OH - r214*ROOH*OH - r215*M*C3H6*OH - r216*CH3COCH3*OH - r218*BIGENE*OH - - r221*HONITR*OH - r229*MACR*OH - r230*MACROOH*OH - r239*MEK*OH - r240*MEKOOH*OH - r241*M*MPAN*OH - - r243*MVK*OH - r246*ALKNIT*OH - r250*ALKOOH*OH - r251*BIGALK*OH - r252*HPALD*OH - - r253*HYDRALD*OH - r254*IEPOX*OH - r266*ISOPNITA*OH - r267*ISOPNITB*OH - r274*ISOPNOOH*OH - - r276*ISOP*OH - r277*ISOPOOH*OH - r278*NC4CH2OH*OH - r279*NC4CHO*OH - r285*XOOH*OH - - r288*BENZENE*OH - r291*BENZOOH*OH - r292*BZALD*OH - r294*BZOOH*OH - r298*C6H5OOH*OH - - r299*CRESOL*OH - r311*PHENOL*OH - r314*PHENOOH*OH - r318*TOLOOH*OH - r319*TOLUENE*OH - - r321*XYLENES*OH - r324*XYLENOOH*OH - r327*XYLOL*OH - r328*XYLOLOOH*OH - r331*BCARY*OH - - r334*MTERP*OH - r339*NTERPOOH*OH - r343*TERP2OOH*OH - r344*TERPNIT*OH - r348*TERPOOH*OH - - r350*TERPROD1*OH - r351*TERPROD2*OH - r353*DMS*OH - r355*OCS*OH - r357*M*SO2*OH - r361*S*OH - - r366*SO*OH - r367*DMS*OH - r369*NH3*OH - r409*TOLUENE*OH + - r38*HO2NO2*OH - r51*NO3*OH - r52*N*OH - r60*M*NO2*OH - r61*HNO3*OH - r83*CLONO2*OH + - r85*CLO*OH - r86*CLO*OH - r88*HCL*OH - r91*HOCL*OH - r115*BRO*OH - r117*HBR*OH + - r131*CH2BR2*OH - r133*CH3BR*OH - r134*CH3CCL3*OH - r136*CH3CL*OH - r138*CHBR3*OH + - r139*HCFC141B*OH - r140*HCFC142B*OH - r141*HCFC22*OH - r150*CH2O*OH - r155*CH3OH*OH + - r156*CH3OOH*OH - r157*CH4*OH - r158*M*HCN*OH - r159*HCOOH*OH - r167*CO*OH - r169*M*C2H2*OH + - r176*C2H5OH*OH - r177*C2H5OOH*OH - r179*C2H6*OH - r181*CH3CHO*OH - r182*CH3CN*OH + - r187*CH3COOH*OH - r188*CH3COOOH*OH - r193*GLYALD*OH - r194*GLYOXAL*OH - r195*PAN*OH + - r196*M*C2H4*OH - r204*C3H7OOH*OH - r205*C3H8*OH - r207*CH3COCHO*OH - r209*HYAC*OH - r210*NOA*OH + - r213*POOH*OH - r217*ROOH*OH - r218*M*C3H6*OH - r219*CH3COCH3*OH - r221*BIGENE*OH + - r224*HONITR*OH - r232*MACR*OH - r233*MACROOH*OH - r242*MEK*OH - r243*MEKOOH*OH - r244*M*MPAN*OH + - r246*MVK*OH - r249*ALKNIT*OH - r253*ALKOOH*OH - r254*BIGALK*OH - r255*HPALD*OH + - r256*HYDRALD*OH - r257*IEPOX*OH - r269*ISOPNITA*OH - r270*ISOPNITB*OH - r277*ISOPNOOH*OH + - r279*ISOP*OH - r280*ISOPOOH*OH - r281*NC4CH2OH*OH - r282*NC4CHO*OH - r288*XOOH*OH + - r291*BENZENE*OH - r294*BENZOOH*OH - r295*BZALD*OH - r297*BZOOH*OH - r301*C6H5OOH*OH + - r302*CRESOL*OH - r314*PHENOL*OH - r317*PHENOOH*OH - r321*TOLOOH*OH - r322*TOLUENE*OH + - r324*XYLENES*OH - r327*XYLENOOH*OH - r330*XYLOL*OH - r331*XYLOLOOH*OH - r334*BCARY*OH + - r337*MTERP*OH - r342*NTERPOOH*OH - r346*TERP2OOH*OH - r347*TERPNIT*OH - r351*TERPOOH*OH + - r353*TERPROD1*OH - r354*TERPROD2*OH - r356*DMS*OH - r358*OCS*OH - r360*M*SO2*OH - r364*S*OH + - r369*SO*OH - r370*DMS*OH - r372*NH3*OH - r412*TOLUENE*OH d(Op)/dt = j120*O + j121*O + j122*O + j123*O + j124*O + j125*O + j127*O2 + j128*O2 + j129*O2 + j131*O2 - + j132*O2 + j133*O2 + r438*N2p*O + r439*Np*O - - r446*N2*Op - r445*CO2*Op - r447*O2*Op - d(PHENO2)/dt = .2*r299*CRESOL*OH + .14*r311*PHENOL*OH + r314*PHENOOH*OH - - r309*HO2*PHENO2 - r310*NO*PHENO2 - d(PO2)/dt = .5*r210*POOH*OH + r215*M*C3H6*OH - - r208*HO2*PO2 - r209*NO*PO2 - d(RO2)/dt = .15*j70*TERPROD2 + r214*ROOH*OH + r216*CH3COCH3*OH + .06*r330*BCARY*O3 + .06*r333*MTERP*O3 - + .15*r351*TERPROD2*OH - - r211*CH3O2*RO2 - r212*HO2*RO2 - r213*NO*RO2 - d(TERP2O2)/dt = r343*TERP2OOH*OH + .5*r349*TERPROD1*NO3 + r350*TERPROD1*OH - - r340*CH3O2*TERP2O2 - r341*HO2*TERP2O2 - r342*NO*TERP2O2 - d(TERPO2)/dt = r331*BCARY*OH + r334*MTERP*OH + r348*TERPOOH*OH - - r345*CH3O2*TERPO2 - r346*HO2*TERPO2 - r347*NO*TERPO2 - d(TOLO2)/dt = r318*TOLOOH*OH + .65*r319*TOLUENE*OH + r409*TOLUENE*OH - - r316*HO2*TOLO2 - r317*NO*TOLO2 - d(XO2)/dt = r252*HPALD*OH + r253*HYDRALD*OH + r254*IEPOX*OH + .4*r277*ISOPOOH*OH + .5*r285*XOOH*OH - - r280*CH3CO3*XO2 - r281*CH3O2*XO2 - r282*HO2*XO2 - r283*NO*XO2 - r284*NO3*XO2 - d(XYLENO2)/dt = .56*r321*XYLENES*OH + r324*XYLENOOH*OH - - r322*HO2*XYLENO2 - r323*NO*XYLENO2 - d(XYLOLO2)/dt = .3*r327*XYLOL*OH + r328*XYLOLOOH*OH - - r325*HO2*XYLOLO2 - r326*NO*XYLOLO2 - d(H2O)/dt = .05*j40*CH4 + j136*H2SO4 + r370*HO2 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 - + r34*OH*OH + r37*HO2NO2*OH + r61*HNO3*OH + r85*HCL*OH + r88*HOCL*OH + r114*HBR*OH - + r128*CH2BR2*OH + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH - + r147*CH2O*OH + r153*CH3OOH*OH + r154*CH4*OH + r156*HCOOH*OH + r176*C2H6*OH + r178*CH3CHO*OH - + r184*CH3COOH*OH + r185*CH3COOOH*OH + r201*C3H7OOH*OH + r202*C3H8*OH + r204*CH3COCHO*OH - + r210*POOH*OH + r214*ROOH*OH + r216*CH3COCH3*OH + .5*r229*MACR*OH + r369*NH3*OH + r417*HOCL*HCL - + r423*HOCL*HCL + r424*HOBR*HCL + r428*HOCL*HCL + r429*HOBR*HCL - - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r123*F*H2O - r368*SO3*H2O + + j132*O2 + j133*O2 + r441*N2p*O + r442*Np*O + - r449*N2*Op - r448*CO2*Op - r450*O2*Op + d(PHENO2)/dt = .2*r302*CRESOL*OH + .14*r314*PHENOL*OH + r317*PHENOOH*OH + - r312*HO2*PHENO2 - r313*NO*PHENO2 + d(PO2)/dt = .5*r213*POOH*OH + r218*M*C3H6*OH + - r211*HO2*PO2 - r212*NO*PO2 + d(RO2)/dt = .15*j70*TERPROD2 + r217*ROOH*OH + r219*CH3COCH3*OH + .06*r333*BCARY*O3 + .06*r336*MTERP*O3 + + .15*r354*TERPROD2*OH + - r214*CH3O2*RO2 - r215*HO2*RO2 - r216*NO*RO2 + d(TERP2O2)/dt = r346*TERP2OOH*OH + .5*r352*TERPROD1*NO3 + r353*TERPROD1*OH + - r343*CH3O2*TERP2O2 - r344*HO2*TERP2O2 - r345*NO*TERP2O2 + d(TERPO2)/dt = r334*BCARY*OH + r337*MTERP*OH + r351*TERPOOH*OH + - r348*CH3O2*TERPO2 - r349*HO2*TERPO2 - r350*NO*TERPO2 + d(TOLO2)/dt = r321*TOLOOH*OH + .65*r322*TOLUENE*OH + r412*TOLUENE*OH + - r319*HO2*TOLO2 - r320*NO*TOLO2 + d(TOLUO2VBS)/dt = r412*TOLUENE*OH + - r413*HO2*TOLUO2VBS - r414*NO*TOLUO2VBS + d(XO2)/dt = r255*HPALD*OH + r256*HYDRALD*OH + r257*IEPOX*OH + .4*r280*ISOPOOH*OH + .5*r288*XOOH*OH + - r283*CH3CO3*XO2 - r284*CH3O2*XO2 - r285*HO2*XO2 - r286*NO*XO2 - r287*NO3*XO2 + d(XYLENO2)/dt = .56*r324*XYLENES*OH + r327*XYLENOOH*OH + - r325*HO2*XYLENO2 - r326*NO*XYLENO2 + d(XYLEO2VBS)/dt = r416*XYLENES*OH + - r417*HO2*XYLEO2VBS - r418*NO*XYLEO2VBS + d(XYLOLO2)/dt = .3*r330*XYLOL*OH + r331*XYLOLOOH*OH + - r328*HO2*XYLOLO2 - r329*NO*XYLOLO2 + d(H2O)/dt = .05*j40*CH4 + j136*H2SO4 + r373*HO2 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 + + r34*OH*OH + r38*HO2NO2*OH + r61*HNO3*OH + r88*HCL*OH + r91*HOCL*OH + r117*HBR*OH + + r131*CH2BR2*OH + r133*CH3BR*OH + r134*CH3CCL3*OH + r136*CH3CL*OH + r141*HCFC22*OH + + r150*CH2O*OH + r156*CH3OOH*OH + r157*CH4*OH + r159*HCOOH*OH + r179*C2H6*OH + r181*CH3CHO*OH + + r187*CH3COOH*OH + r188*CH3COOOH*OH + r204*C3H7OOH*OH + r205*C3H8*OH + r207*CH3COCHO*OH + + r213*POOH*OH + r217*ROOH*OH + r219*CH3COCH3*OH + .5*r232*MACR*OH + r372*NH3*OH + r420*HOCL*HCL + + r426*HOCL*HCL + r427*HOBR*HCL + r431*HOCL*HCL + r432*HOBR*HCL + - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r126*F*H2O - r371*SO3*H2O diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.in b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.in index 861fbed32f..0041ac48c0 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.in +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mech.in @@ -1,11 +1,11 @@ * Comments -* User-given Tag Description: TSMLT1.2-MAM5-extendedVBS -* Tag database identifier : MZ325_TSMLT1_fullVBS_20221223 -* Tag created by : lke +* User-given Tag Description: TSMLT1_vbsext_mam5 +* Tag database identifier : MZ368_TSMLT1_fullVBS_20250225 +* Tag created by : jz * Tag created from branch : TSMLT1-fullVBS -* Tag created on : 2022-12-22 17:04:17.603803-07 +* Tag created on : 2025-02-25 13:46:31.889221-07 * Comments for this tag follow: -* lke : 2022-12-22 : TSMLT1.2, updated to JPL19; MAM5; VBS-SOA for sectors +* jz : 2025-02-25 : added 5 nitrogen reactions, 3 of them are user reactions SPECIES @@ -16,9 +16,7 @@ bc_a1 -> C, bc_a4 -> C, BCARY -> C15H24, - BCARYO2VBS -> C15H25O3, BENZENE -> C6H6, - BENZO2VBS -> C6H7O5, BENZOOH -> C6H8O5, BEPOMUC -> C6H6O3, BIGALD -> C5H6O2, @@ -114,19 +112,15 @@ ISOPNITB -> C5H9NO4, ISOPNO3 -> CH2CHCCH3OOCH2ONO2, ISOPNOOH -> C5H9NO5, - ISOPO2VBS -> C5H9O3, ISOPOOH -> HOCH2COOHCH3CHCH2, IVOCbb -> C13H28, - IVOCbbO2VBS -> C13H29O3, IVOCff -> C13H28, - IVOCffO2VBS -> C13H29O3, MACR -> CH2CCH3CHO, MACROOH -> CH3COCHOOHCH2OH, MEK -> C4H8O, MEKOOH -> C4H8O3, MPAN -> CH2CCH3CO3NO2, MTERP -> C10H16, - MTERPO2VBS -> C10H17O3, MVK -> CH2CHCOCH3, N, N2O, @@ -162,6 +156,8 @@ PHENO -> C6H5O, PHENOL -> C6H5OH, PHENOOH -> C6H8O6, + pom_a1 -> C, + pom_a4 -> C, pombb1_a1 -> C, pombb1_a4 -> C, pomff1_a1 -> C, @@ -233,18 +229,18 @@ TERPROD2 -> C9H14O2, TOLOOH -> C7H10O5, TOLUENE -> C7H8, - TOLUO2VBS -> C7H9O5, XOOH -> HOCH2COOHCH3CHOHCHO, XYLENES -> C8H10, XYLENOOH -> C8H12O5, - XYLEO2VBS -> C8H11O5, XYLOL -> C8H10O, XYLOLOOH -> C8H12O6, NHDEP -> N, NDEP -> N, ACBZO2 -> C7H5O3, ALKO2 -> C5H11O2, + BCARYO2VBS -> C15H25O3, BENZO2 -> C6H7O5, + BENZO2VBS -> C6H7O5, BZOO -> C7H7O2, C2H5O2, C3H7O2, @@ -260,11 +256,15 @@ HOCH2OO, ISOPAO2 -> HOC5H8O2, ISOPBO2 -> HOC5H8O2, + ISOPO2VBS -> C5H9O3, + IVOCbbO2VBS -> C13H29O3, + IVOCffO2VBS -> C13H29O3, MACRO2 -> CH3COCHO2CH2OH, MALO2 -> C4H3O4, MCO3 -> CH2CCH3CO3, MDIALO2 -> C4H5O4, MEKO2 -> C4H7O3, + MTERPO2VBS -> C10H17O3, N2D -> N, N2p -> N2, NOp -> NO, @@ -282,8 +282,10 @@ TERP2O2 -> C10H15O4, TERPO2 -> C10H17O3, TOLO2 -> C7H9O5, + TOLUO2VBS -> C7H9O5, XO2 -> HOCH2COOCH3CHOHCHO, XYLENO2 -> C8H11O5, + XYLEO2VBS -> C8H11O5, XYLOLO2 -> C8H11O6, H2O @@ -302,7 +304,9 @@ Not-Transported ACBZO2, ALKO2, + BCARYO2VBS, BENZO2, + BENZO2VBS, BZOO, C2H5O2, C3H7O2, @@ -318,11 +322,15 @@ HOCH2OO, ISOPAO2, ISOPBO2, + ISOPO2VBS, + IVOCbbO2VBS, + IVOCffO2VBS, MACRO2, MALO2, MCO3, MDIALO2, MEKO2, + MTERPO2VBS, N2D, N2p, NOp, @@ -340,8 +348,10 @@ TERP2O2, TERPO2, TOLO2, + TOLUO2VBS, XO2, XYLENO2, + XYLEO2VBS, XYLOLO2 End Not-Transported @@ -361,9 +371,7 @@ bc_a1 bc_a4 BCARY - BCARYO2VBS BENZENE - BENZO2VBS BENZOOH BEPOMUC BIGALD @@ -459,19 +467,15 @@ ISOPNITB ISOPNO3 ISOPNOOH - ISOPO2VBS ISOPOOH IVOCbb - IVOCbbO2VBS IVOCff - IVOCffO2VBS MACR MACROOH MEK MEKOOH MPAN MTERP - MTERPO2VBS MVK N N2O @@ -507,6 +511,8 @@ PHENO PHENOL PHENOOH + pom_a1 + pom_a4 pombb1_a1 pombb1_a4 pomff1_a1 @@ -578,16 +584,16 @@ TERPROD2 TOLOOH TOLUENE - TOLUO2VBS XOOH XYLENES XYLENOOH - XYLEO2VBS XYLOL XYLOLOOH ACBZO2 ALKO2 + BCARYO2VBS BENZO2 + BENZO2VBS BZOO C2H5O2 C3H7O2 @@ -603,11 +609,15 @@ HOCH2OO ISOPAO2 ISOPBO2 + ISOPO2VBS + IVOCbbO2VBS + IVOCffO2VBS MACRO2 MALO2 MCO3 MDIALO2 MEKO2 + MTERPO2VBS N2D N2p NOp @@ -625,8 +635,10 @@ TERP2O2 TERPO2 TOLO2 + TOLUO2VBS XO2 XYLENO2 + XYLEO2VBS XYLOLO2 H2O End Implicit @@ -875,14 +887,14 @@ ********************************* *** odd-nitrogen ********************************* +[agn2d] N2D -> N ; 1.06e-05 [HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 4.5e-13, 610 +[N2D_NO,cph=543.13] N2D + NO -> N2 + O ; 7e-11 [N2D_O,cph=229.61] N2D + O -> N + O ; 7e-13 -[N2D_O2,cph=177.51] N2D + O2 -> NO + O1D ; 5e-12 [N_NO,cph=313.75] N + NO -> N2 + O ; 2.1e-11, 100 [N_NO2a] N + NO2 -> N2O + O ; 2.9e-12, 220 [N_NO2b] N + NO2 -> 2*NO ; 1.45e-12, 220 [N_NO2c] N + NO2 -> N2 + O2 ; 1.45e-12, 220 -[N_O2,cph=133.75] N + O2 -> NO + O ; 3.3e-12, -3150 [NO2_O,cph=193.02] NO2 + O -> NO + O2 ; 5.1e-12, 210 [NO2_O3] NO2 + O3 -> NO3 + O2 ; 1.2e-13, -2450 [NO2_O_M] NO2 + O + M -> NO3 + M ; 2.5e-31, 1.8, 2.2e-11, 0.7, 0.6 @@ -901,7 +913,10 @@ [tag_NO2_OH] NO2 + OH + M -> HNO3 + M ; 1.8e-30, 3, 2.8e-11, 0, 0.6 [usr_HNO3_OH] HNO3 + OH -> NO3 + H2O [usr_HO2NO2_M] HO2NO2 + M -> HO2 + NO2 + M +[usr_N2D_e,cph=229.61] N2D + e -> N + e +[usr_N2D_O2,cph=177.51] N2D + O2 -> NO + O1D [usr_N2O5_M] N2O5 + M -> NO2 + NO3 + M +[usr_N_O2,cph=133.75] N + O2 -> NO + O ********************************* *** odd-chlorine ********************************* @@ -1057,9 +1072,9 @@ ********************************* [C3H6_NO3] C3H6 + NO3 -> NOA ; 4.6e-13, -1156 [C3H6_O3] C3H6 + O3 -> 0.5*CH2O + 0.12*HCOOH + 0.12*CH3COOH + 0.5*CH3CHO + 0.56*CO + 0.28*CH3O2 + 0.1*CH4 + 0.2*CO2 + 0.28*HO2 + 0.36*OH ; 6.5e-15, -1900 -[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 3.75e-13, -40 -[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 7.5e-13, 700 -[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 4.2e-12, 180 +[C3H7O2_CH3O2] C3H7O2 + CH3O2 -> CH2O + HO2 + 0.82*CH3COCH3 ; 1e-13, 557 +[C3H7O2_HO2] C3H7O2 + HO2 -> C3H7OOH + O2 ; 1.41e-13, 1300 +[C3H7O2_NO] C3H7O2 + NO -> 0.82*CH3COCH3 + NO2 + HO2 + 0.27*CH3CHO ; 2.7e-12, 360 [C3H7OOH_OH] C3H7OOH + OH -> H2O + C3H7O2 ; 3.8e-12, 200 [C3H8_OH] C3H8 + OH -> C3H7O2 + H2O ; 9.19e-12, -630 [CH3COCHO_NO3] CH3COCHO + NO3 -> HNO3 + CO + CH3CO3 ; 1.4e-12, -1860 @@ -1103,7 +1118,7 @@ [MEKO2_NO] MEKO2 + NO -> CH3CO3 + CH3CHO + NO2 ; 4.2e-12, 180 [MEK_OH] MEK + OH -> MEKO2 ; 2.3e-12, -170 [MEKOOH_OH] MEKOOH + OH -> MEKO2 ; 3.8e-12, 200 -[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + M + 0.5*NDEP ; 8e-27, 3.5, 3e-11, 0, 0.5 +[MPAN_OH_M] MPAN + OH + M -> 0.5*HYAC + 0.5*NO3 + 0.5*CH2O + 0.5*HO2 + 0.5*CO2 + 0.5*NDEP + M ; 8e-27, 3.5, 3e-11, 0, 0.5 [MVK_O3] MVK + O3 -> 0.6*CH2O + 0.56*CO + 0.1*CH3CHO + 0.1*CO2 + 0.28*CH3CO3 + 0.5*CH3COCHO + 0.28*HO2 + 0.36*OH + 0.12*HCOOH ; 8.5e-16, -1520 [MVK_OH] MVK + OH -> MACRO2 ; 4.13e-12, 452 [tag_MCO3_NO2] MCO3 + NO2 + M -> MPAN + M ; 9.7e-29, 5.6, 9.3e-12, 1.5, 0.6 @@ -1111,7 +1126,7 @@ ********************************* *** C5 ********************************* -[ALKNIT_OH] ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 ; 1.6e-12 +[ALKNIT_OH] ALKNIT + OH -> 0.4*CH2O + 0.8*CH3CHO + 0.8*CH3COCH3 + NO2 ; 2.2e-12 [ALKO2_HO2] ALKO2 + HO2 -> ALKOOH ; 7.5e-13, 700 [ALKO2_NO] ALKO2 + NO -> 0.4*CH3CHO + 0.1*CH2O + 0.25*CH3COCH3 + HO2 + 0.8*MEK + NO2 ; 6.7e-12 [ALKO2_NOb] ALKO2 + NO -> ALKNIT ; 5.4e-14, 870 @@ -1345,32 +1360,30 @@ Ext Forcing CO <- dataset - bc_a4 <- dataset + pombb1_a4 <- dataset + SO2 <- dataset + NO2 <- dataset + bc_a1 <- dataset + NO <- dataset num_a1 <- dataset num_a2 <- dataset - num_a4 <- dataset - num_a5 <- dataset + so4_a1 <- dataset + so4_a2 <- dataset pombb1_a1 <- dataset - pombb1_a4 <- dataset pomff1_a1 <- dataset + num_a4 <- dataset pomff1_a4 <- dataset - NO <- dataset - NO2 <- dataset - SO2 <- dataset + bc_a4 <- dataset SVOCbb <- dataset - SVOCff <- dataset - so4_a1 <- dataset - so4_a2 <- dataset - so4_a5 <- dataset - bc_a1 <- dataset - e - N - N2D - OH + SVOCff <- dataset Op - AOA_NH N2p Np + N2D + e + AOA_NH + N + OH End Ext Forcing End Chemistry diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mods.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mods.F90 index 9df05f93ac..ebe1bcc467 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mods.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/chem_mods.F90 @@ -6,26 +6,26 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 170, & ! number of photolysis reactions - rxntot = 621, & ! number of total reactions - gascnt = 451, & ! number of gas phase reactions + rxntot = 624, & ! number of total reactions + gascnt = 454, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities - gas_pcnst = 276, & ! number of "gas phase" species + gas_pcnst = 278, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 2524, & ! number of non-zero matrix entries - extcnt = 27, & ! number of species with external forcing + nzcnt = 2526, & ! number of non-zero matrix entries + extcnt = 25, & ! number of species with external forcing clscnt1 = 2, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class clscnt3 = 0, & ! number of species in ebi class - clscnt4 = 274, & ! number of species in implicit class + clscnt4 = 276, & ! number of species in implicit class clscnt5 = 0, & ! number of species in rodas class indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 621, & - enthalpy_cnt = 41, & - nslvd = 43 + rxt_tag_cnt = 624, & + enthalpy_cnt = 43, & + nslvd = 51 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 integer :: clsmap(gas_pcnst,5) = 0 diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_rxt_id.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_rxt_id.F90 index d049a0ce13..474260c4a0 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_rxt_id.F90 @@ -206,14 +206,14 @@ module m_rxt_id integer, parameter :: rid_OH_OH = 204 integer, parameter :: rid_OH_OH_M = 205 integer, parameter :: rid_usr_HO2_HO2 = 206 - integer, parameter :: rid_HO2NO2_OH = 207 - integer, parameter :: rid_N2D_O = 208 - integer, parameter :: rid_N2D_O2 = 209 - integer, parameter :: rid_N_NO = 210 - integer, parameter :: rid_N_NO2a = 211 - integer, parameter :: rid_N_NO2b = 212 - integer, parameter :: rid_N_NO2c = 213 - integer, parameter :: rid_N_O2 = 214 + integer, parameter :: rid_agn2d = 207 + integer, parameter :: rid_HO2NO2_OH = 208 + integer, parameter :: rid_N2D_NO = 209 + integer, parameter :: rid_N2D_O = 210 + integer, parameter :: rid_N_NO = 211 + integer, parameter :: rid_N_NO2a = 212 + integer, parameter :: rid_N_NO2b = 213 + integer, parameter :: rid_N_NO2c = 214 integer, parameter :: rid_NO2_O = 215 integer, parameter :: rid_NO2_O3 = 216 integer, parameter :: rid_NO2_O_M = 217 @@ -232,393 +232,396 @@ module m_rxt_id integer, parameter :: rid_tag_NO2_OH = 230 integer, parameter :: rid_usr_HNO3_OH = 231 integer, parameter :: rid_usr_HO2NO2_M = 232 - integer, parameter :: rid_usr_N2O5_M = 233 - integer, parameter :: rid_CL_CH2O = 234 - integer, parameter :: rid_CL_CH4 = 235 - integer, parameter :: rid_CL_H2 = 236 - integer, parameter :: rid_CL_H2O2 = 237 - integer, parameter :: rid_CL_HO2a = 238 - integer, parameter :: rid_CL_HO2b = 239 - integer, parameter :: rid_CL_O3 = 240 - integer, parameter :: rid_CLO_CH3O2 = 241 - integer, parameter :: rid_CLO_CLOa = 242 - integer, parameter :: rid_CLO_CLOb = 243 - integer, parameter :: rid_CLO_CLOc = 244 - integer, parameter :: rid_CLO_HO2 = 245 - integer, parameter :: rid_CLO_NO = 246 - integer, parameter :: rid_CLONO2_CL = 247 - integer, parameter :: rid_CLO_NO2_M = 248 - integer, parameter :: rid_CLONO2_O = 249 - integer, parameter :: rid_CLONO2_OH = 250 - integer, parameter :: rid_CLO_O = 251 - integer, parameter :: rid_CLO_OHa = 252 - integer, parameter :: rid_CLO_OHb = 253 - integer, parameter :: rid_HCL_O = 254 - integer, parameter :: rid_HCL_OH = 255 - integer, parameter :: rid_HOCL_CL = 256 - integer, parameter :: rid_HOCL_O = 257 - integer, parameter :: rid_HOCL_OH = 258 - integer, parameter :: rid_O1D_CCL4 = 259 - integer, parameter :: rid_O1D_CF2CLBR = 260 - integer, parameter :: rid_O1D_CFC11 = 261 - integer, parameter :: rid_O1D_CFC113 = 262 - integer, parameter :: rid_O1D_CFC114 = 263 - integer, parameter :: rid_O1D_CFC115 = 264 - integer, parameter :: rid_O1D_CFC12 = 265 - integer, parameter :: rid_O1D_HCLa = 266 - integer, parameter :: rid_O1D_HCLb = 267 - integer, parameter :: rid_tag_CLO_CLO_M = 268 - integer, parameter :: rid_usr_CL2O2_M = 269 - integer, parameter :: rid_BR_CH2O = 270 - integer, parameter :: rid_BR_HO2 = 271 - integer, parameter :: rid_BR_O3 = 272 - integer, parameter :: rid_BRO_BRO = 273 - integer, parameter :: rid_BRO_CLOa = 274 - integer, parameter :: rid_BRO_CLOb = 275 - integer, parameter :: rid_BRO_CLOc = 276 - integer, parameter :: rid_BRO_HO2 = 277 - integer, parameter :: rid_BRO_NO = 278 - integer, parameter :: rid_BRO_NO2_M = 279 - integer, parameter :: rid_BRONO2_O = 280 - integer, parameter :: rid_BRO_O = 281 - integer, parameter :: rid_BRO_OH = 282 - integer, parameter :: rid_HBR_O = 283 - integer, parameter :: rid_HBR_OH = 284 - integer, parameter :: rid_HOBR_O = 285 - integer, parameter :: rid_O1D_CF3BR = 286 - integer, parameter :: rid_O1D_CHBR3 = 287 - integer, parameter :: rid_O1D_H2402 = 288 - integer, parameter :: rid_O1D_HBRa = 289 - integer, parameter :: rid_O1D_HBRb = 290 - integer, parameter :: rid_F_CH4 = 291 - integer, parameter :: rid_F_H2 = 292 - integer, parameter :: rid_F_H2O = 293 - integer, parameter :: rid_F_HNO3 = 294 - integer, parameter :: rid_O1D_COF2 = 295 - integer, parameter :: rid_O1D_COFCL = 296 - integer, parameter :: rid_CH2BR2_CL = 297 - integer, parameter :: rid_CH2BR2_OH = 298 - integer, parameter :: rid_CH3BR_CL = 299 - integer, parameter :: rid_CH3BR_OH = 300 - integer, parameter :: rid_CH3CCL3_OH = 301 - integer, parameter :: rid_CH3CL_CL = 302 - integer, parameter :: rid_CH3CL_OH = 303 - integer, parameter :: rid_CHBR3_CL = 304 - integer, parameter :: rid_CHBR3_OH = 305 - integer, parameter :: rid_HCFC141B_OH = 306 - integer, parameter :: rid_HCFC142B_OH = 307 - integer, parameter :: rid_HCFC22_OH = 308 - integer, parameter :: rid_O1D_CH2BR2 = 309 - integer, parameter :: rid_O1D_CH3BR = 310 - integer, parameter :: rid_O1D_HCFC141B = 311 - integer, parameter :: rid_O1D_HCFC142B = 312 - integer, parameter :: rid_O1D_HCFC22 = 313 - integer, parameter :: rid_CH2O_HO2 = 314 - integer, parameter :: rid_CH2O_NO3 = 315 - integer, parameter :: rid_CH2O_O = 316 - integer, parameter :: rid_CH2O_OH = 317 - integer, parameter :: rid_CH3O2_CH3O2a = 318 - integer, parameter :: rid_CH3O2_CH3O2b = 319 - integer, parameter :: rid_CH3O2_HO2 = 320 - integer, parameter :: rid_CH3O2_NO = 321 - integer, parameter :: rid_CH3OH_OH = 322 - integer, parameter :: rid_CH3OOH_OH = 323 - integer, parameter :: rid_CH4_OH = 324 - integer, parameter :: rid_HCN_OH = 325 - integer, parameter :: rid_HCOOH_OH = 326 - integer, parameter :: rid_HOCH2OO_HO2 = 327 - integer, parameter :: rid_HOCH2OO_M = 328 - integer, parameter :: rid_HOCH2OO_NO = 329 - integer, parameter :: rid_O1D_CH4a = 330 - integer, parameter :: rid_O1D_CH4b = 331 - integer, parameter :: rid_O1D_CH4c = 332 - integer, parameter :: rid_O1D_HCN = 333 - integer, parameter :: rid_usr_CO_OH = 334 - integer, parameter :: rid_C2H2_CL_M = 335 - integer, parameter :: rid_C2H2_OH_M = 336 - integer, parameter :: rid_C2H4_CL_M = 337 - integer, parameter :: rid_C2H4_O3 = 338 - integer, parameter :: rid_C2H5O2_C2H5O2 = 339 - integer, parameter :: rid_C2H5O2_CH3O2 = 340 - integer, parameter :: rid_C2H5O2_HO2 = 341 - integer, parameter :: rid_C2H5O2_NO = 342 - integer, parameter :: rid_C2H5OH_OH = 343 - integer, parameter :: rid_C2H5OOH_OH = 344 - integer, parameter :: rid_C2H6_CL = 345 - integer, parameter :: rid_C2H6_OH = 346 - integer, parameter :: rid_CH3CHO_NO3 = 347 - integer, parameter :: rid_CH3CHO_OH = 348 - integer, parameter :: rid_CH3CN_OH = 349 - integer, parameter :: rid_CH3CO3_CH3CO3 = 350 - integer, parameter :: rid_CH3CO3_CH3O2 = 351 - integer, parameter :: rid_CH3CO3_HO2 = 352 - integer, parameter :: rid_CH3CO3_NO = 353 - integer, parameter :: rid_CH3COOH_OH = 354 - integer, parameter :: rid_CH3COOOH_OH = 355 - integer, parameter :: rid_EO2_HO2 = 356 - integer, parameter :: rid_EO2_NO = 357 - integer, parameter :: rid_EO_M = 358 - integer, parameter :: rid_EO_O2 = 359 - integer, parameter :: rid_GLYALD_OH = 360 - integer, parameter :: rid_GLYOXAL_OH = 361 - integer, parameter :: rid_PAN_OH = 362 - integer, parameter :: rid_tag_C2H4_OH = 363 - integer, parameter :: rid_tag_CH3CO3_NO2 = 364 - integer, parameter :: rid_usr_PAN_M = 365 - integer, parameter :: rid_C3H6_NO3 = 366 - integer, parameter :: rid_C3H6_O3 = 367 - integer, parameter :: rid_C3H7O2_CH3O2 = 368 - integer, parameter :: rid_C3H7O2_HO2 = 369 - integer, parameter :: rid_C3H7O2_NO = 370 - integer, parameter :: rid_C3H7OOH_OH = 371 - integer, parameter :: rid_C3H8_OH = 372 - integer, parameter :: rid_CH3COCHO_NO3 = 373 - integer, parameter :: rid_CH3COCHO_OH = 374 - integer, parameter :: rid_CL_C3H8 = 375 - integer, parameter :: rid_HYAC_OH = 376 - integer, parameter :: rid_NOA_OH = 377 - integer, parameter :: rid_PO2_HO2 = 378 - integer, parameter :: rid_PO2_NO = 379 - integer, parameter :: rid_POOH_OH = 380 - integer, parameter :: rid_RO2_CH3O2 = 381 - integer, parameter :: rid_RO2_HO2 = 382 - integer, parameter :: rid_RO2_NO = 383 - integer, parameter :: rid_ROOH_OH = 384 - integer, parameter :: rid_tag_C3H6_OH = 385 - integer, parameter :: rid_usr_CH3COCH3_OH = 386 - integer, parameter :: rid_BIGENE_NO3 = 387 - integer, parameter :: rid_BIGENE_OH = 388 - integer, parameter :: rid_ENEO2_NO = 389 - integer, parameter :: rid_ENEO2_NOb = 390 - integer, parameter :: rid_HONITR_OH = 391 - integer, parameter :: rid_MACRO2_CH3CO3 = 392 - integer, parameter :: rid_MACRO2_CH3O2 = 393 - integer, parameter :: rid_MACRO2_HO2 = 394 - integer, parameter :: rid_MACRO2_NO3 = 395 - integer, parameter :: rid_MACRO2_NOa = 396 - integer, parameter :: rid_MACRO2_NOb = 397 - integer, parameter :: rid_MACR_O3 = 398 - integer, parameter :: rid_MACR_OH = 399 - integer, parameter :: rid_MACROOH_OH = 400 - integer, parameter :: rid_MCO3_CH3CO3 = 401 - integer, parameter :: rid_MCO3_CH3O2 = 402 - integer, parameter :: rid_MCO3_HO2 = 403 - integer, parameter :: rid_MCO3_MCO3 = 404 - integer, parameter :: rid_MCO3_NO = 405 - integer, parameter :: rid_MCO3_NO3 = 406 - integer, parameter :: rid_MEKO2_HO2 = 407 - integer, parameter :: rid_MEKO2_NO = 408 - integer, parameter :: rid_MEK_OH = 409 - integer, parameter :: rid_MEKOOH_OH = 410 - integer, parameter :: rid_MPAN_OH_M = 411 - integer, parameter :: rid_MVK_O3 = 412 - integer, parameter :: rid_MVK_OH = 413 - integer, parameter :: rid_tag_MCO3_NO2 = 414 - integer, parameter :: rid_usr_MPAN_M = 415 - integer, parameter :: rid_ALKNIT_OH = 416 - integer, parameter :: rid_ALKO2_HO2 = 417 - integer, parameter :: rid_ALKO2_NO = 418 - integer, parameter :: rid_ALKO2_NOb = 419 - integer, parameter :: rid_ALKOOH_OH = 420 - integer, parameter :: rid_BIGALK_OH = 421 - integer, parameter :: rid_HPALD_OH = 422 - integer, parameter :: rid_HYDRALD_OH = 423 - integer, parameter :: rid_IEPOX_OH = 424 - integer, parameter :: rid_ISOPAO2_CH3CO3 = 425 - integer, parameter :: rid_ISOPAO2_CH3O2 = 426 - integer, parameter :: rid_ISOPAO2_HO2 = 427 - integer, parameter :: rid_ISOPAO2_NO = 428 - integer, parameter :: rid_ISOPAO2_NO3 = 429 - integer, parameter :: rid_ISOPBO2_CH3CO3 = 430 - integer, parameter :: rid_ISOPBO2_CH3O2 = 431 - integer, parameter :: rid_ISOPBO2_HO2 = 432 - integer, parameter :: rid_ISOPBO2_M = 433 - integer, parameter :: rid_ISOPBO2_NO = 434 - integer, parameter :: rid_ISOPBO2_NO3 = 435 - integer, parameter :: rid_ISOPNITA_OH = 436 - integer, parameter :: rid_ISOPNITB_OH = 437 - integer, parameter :: rid_ISOP_NO3 = 438 - integer, parameter :: rid_ISOPNO3_CH3CO3 = 439 - integer, parameter :: rid_ISOPNO3_CH3O2 = 440 - integer, parameter :: rid_ISOPNO3_HO2 = 441 - integer, parameter :: rid_ISOPNO3_NO = 442 - integer, parameter :: rid_ISOPNO3_NO3 = 443 - integer, parameter :: rid_ISOPNOOH_OH = 444 - integer, parameter :: rid_ISOP_O3 = 445 - integer, parameter :: rid_ISOP_OH = 446 - integer, parameter :: rid_ISOPOOH_OH = 447 - integer, parameter :: rid_NC4CH2OH_OH = 448 - integer, parameter :: rid_NC4CHO_OH = 449 - integer, parameter :: rid_XO2_CH3CO3 = 450 - integer, parameter :: rid_XO2_CH3O2 = 451 - integer, parameter :: rid_XO2_HO2 = 452 - integer, parameter :: rid_XO2_NO = 453 - integer, parameter :: rid_XO2_NO3 = 454 - integer, parameter :: rid_XOOH_OH = 455 - integer, parameter :: rid_ACBZO2_HO2 = 456 - integer, parameter :: rid_ACBZO2_NO = 457 - integer, parameter :: rid_BENZENE_OH = 458 - integer, parameter :: rid_BENZO2_HO2 = 459 - integer, parameter :: rid_BENZO2_NO = 460 - integer, parameter :: rid_BENZOOH_OH = 461 - integer, parameter :: rid_BZALD_OH = 462 - integer, parameter :: rid_BZOO_HO2 = 463 - integer, parameter :: rid_BZOOH_OH = 464 - integer, parameter :: rid_BZOO_NO = 465 - integer, parameter :: rid_C6H5O2_HO2 = 466 - integer, parameter :: rid_C6H5O2_NO = 467 - integer, parameter :: rid_C6H5OOH_OH = 468 - integer, parameter :: rid_CRESOL_OH = 469 - integer, parameter :: rid_DICARBO2_HO2 = 470 - integer, parameter :: rid_DICARBO2_NO = 471 - integer, parameter :: rid_DICARBO2_NO2 = 472 - integer, parameter :: rid_MALO2_HO2 = 473 - integer, parameter :: rid_MALO2_NO = 474 - integer, parameter :: rid_MALO2_NO2 = 475 - integer, parameter :: rid_MDIALO2_HO2 = 476 - integer, parameter :: rid_MDIALO2_NO = 477 - integer, parameter :: rid_MDIALO2_NO2 = 478 - integer, parameter :: rid_PHENO2_HO2 = 479 - integer, parameter :: rid_PHENO2_NO = 480 - integer, parameter :: rid_PHENOL_OH = 481 - integer, parameter :: rid_PHENO_NO2 = 482 - integer, parameter :: rid_PHENO_O3 = 483 - integer, parameter :: rid_PHENOOH_OH = 484 - integer, parameter :: rid_tag_ACBZO2_NO2 = 485 - integer, parameter :: rid_TOLO2_HO2 = 486 - integer, parameter :: rid_TOLO2_NO = 487 - integer, parameter :: rid_TOLOOH_OH = 488 - integer, parameter :: rid_TOLUENE_OH = 489 - integer, parameter :: rid_usr_PBZNIT_M = 490 - integer, parameter :: rid_XYLENES_OH = 491 - integer, parameter :: rid_XYLENO2_HO2 = 492 - integer, parameter :: rid_XYLENO2_NO = 493 - integer, parameter :: rid_XYLENOOH_OH = 494 - integer, parameter :: rid_XYLOLO2_HO2 = 495 - integer, parameter :: rid_XYLOLO2_NO = 496 - integer, parameter :: rid_XYLOL_OH = 497 - integer, parameter :: rid_XYLOLOOH_OH = 498 - integer, parameter :: rid_BCARY_NO3 = 499 - integer, parameter :: rid_BCARY_O3 = 500 - integer, parameter :: rid_BCARY_OH = 501 - integer, parameter :: rid_MTERP_NO3 = 502 - integer, parameter :: rid_MTERP_O3 = 503 - integer, parameter :: rid_MTERP_OH = 504 - integer, parameter :: rid_NTERPO2_CH3O2 = 505 - integer, parameter :: rid_NTERPO2_HO2 = 506 - integer, parameter :: rid_NTERPO2_NO = 507 - integer, parameter :: rid_NTERPO2_NO3 = 508 - integer, parameter :: rid_NTERPOOH_OH = 509 - integer, parameter :: rid_TERP2O2_CH3O2 = 510 - integer, parameter :: rid_TERP2O2_HO2 = 511 - integer, parameter :: rid_TERP2O2_NO = 512 - integer, parameter :: rid_TERP2OOH_OH = 513 - integer, parameter :: rid_TERPNIT_OH = 514 - integer, parameter :: rid_TERPO2_CH3O2 = 515 - integer, parameter :: rid_TERPO2_HO2 = 516 - integer, parameter :: rid_TERPO2_NO = 517 - integer, parameter :: rid_TERPOOH_OH = 518 - integer, parameter :: rid_TERPROD1_NO3 = 519 - integer, parameter :: rid_TERPROD1_OH = 520 - integer, parameter :: rid_TERPROD2_OH = 521 - integer, parameter :: rid_DMS_NO3 = 522 - integer, parameter :: rid_DMS_OHa = 523 - integer, parameter :: rid_OCS_O = 524 - integer, parameter :: rid_OCS_OH = 525 - integer, parameter :: rid_S_O2 = 526 - integer, parameter :: rid_SO2_OH_M = 527 - integer, parameter :: rid_S_O3 = 528 - integer, parameter :: rid_SO_BRO = 529 - integer, parameter :: rid_SO_CLO = 530 - integer, parameter :: rid_S_OH = 531 - integer, parameter :: rid_SO_NO2 = 532 - integer, parameter :: rid_SO_O2 = 533 - integer, parameter :: rid_SO_O3 = 534 - integer, parameter :: rid_SO_OCLO = 535 - integer, parameter :: rid_SO_OH = 536 - integer, parameter :: rid_usr_DMS_OH = 537 - integer, parameter :: rid_usr_SO3_H2O = 538 - integer, parameter :: rid_NH3_OH = 539 - integer, parameter :: rid_usr_HO2_aer = 540 - integer, parameter :: rid_usr_HONITR_aer = 541 - integer, parameter :: rid_usr_ISOPNITA_aer = 542 - integer, parameter :: rid_usr_ISOPNITB_aer = 543 - integer, parameter :: rid_usr_N2O5_aer = 544 - integer, parameter :: rid_usr_NC4CH2OH_aer = 545 - integer, parameter :: rid_usr_NC4CHO_aer = 546 - integer, parameter :: rid_usr_NH4_strat_tau = 547 - integer, parameter :: rid_usr_NO2_aer = 548 - integer, parameter :: rid_usr_NO3_aer = 549 - integer, parameter :: rid_usr_NTERPOOH_aer = 550 - integer, parameter :: rid_usr_ONITR_aer = 551 - integer, parameter :: rid_usr_TERPNIT_aer = 552 - integer, parameter :: rid_BCARY_NO3_vbs = 553 - integer, parameter :: rid_BCARYO2_HO2_vbs = 554 - integer, parameter :: rid_BCARYO2_NO_vbs = 555 - integer, parameter :: rid_BCARY_O3_vbs = 556 - integer, parameter :: rid_BCARY_OH_vbs = 557 - integer, parameter :: rid_BENZENE_OH_vbs = 558 - integer, parameter :: rid_BENZO2_HO2_vbs = 559 - integer, parameter :: rid_BENZO2_NO_vbs = 560 - integer, parameter :: rid_ISOP_NO3_vbs = 561 - integer, parameter :: rid_ISOPO2_HO2_vbs = 562 - integer, parameter :: rid_ISOPO2_NO_vbs = 563 - integer, parameter :: rid_ISOP_O3_vbs = 564 - integer, parameter :: rid_ISOP_OH_vbs = 565 - integer, parameter :: rid_IVOCbbO2_HO2_vbs = 566 - integer, parameter :: rid_IVOCbbO2_NO_vbs = 567 - integer, parameter :: rid_IVOCbb_OH_vbs = 568 - integer, parameter :: rid_IVOCffO2_HO2_vbs = 569 - integer, parameter :: rid_IVOCffO2_NO_vbs = 570 - integer, parameter :: rid_IVOCff_OH_vbs = 571 - integer, parameter :: rid_MTERP_NO3_vbs = 572 - integer, parameter :: rid_MTERPO2_HO2_vbs = 573 - integer, parameter :: rid_MTERPO2_NO_vbs = 574 - integer, parameter :: rid_MTERP_O3_vbs = 575 - integer, parameter :: rid_MTERP_OH_vbs = 576 - integer, parameter :: rid_SVOCbb_OH = 577 - integer, parameter :: rid_SVOCff_OH = 578 - integer, parameter :: rid_TOLUENE_OH_vbs = 579 - integer, parameter :: rid_TOLUO2_HO2_vbs = 580 - integer, parameter :: rid_TOLUO2_NO_vbs = 581 - integer, parameter :: rid_usr_GLYOXAL_aer = 582 - integer, parameter :: rid_XYLENES_OH_vbs = 583 - integer, parameter :: rid_XYLEO2_HO2_vbs = 584 - integer, parameter :: rid_XYLEO2_NO_vbs = 585 - integer, parameter :: rid_het1 = 586 - integer, parameter :: rid_het10 = 587 - integer, parameter :: rid_het11 = 588 - integer, parameter :: rid_het12 = 589 - integer, parameter :: rid_het13 = 590 - integer, parameter :: rid_het14 = 591 - integer, parameter :: rid_het15 = 592 - integer, parameter :: rid_het16 = 593 - integer, parameter :: rid_het17 = 594 - integer, parameter :: rid_het2 = 595 - integer, parameter :: rid_het3 = 596 - integer, parameter :: rid_het4 = 597 - integer, parameter :: rid_het5 = 598 - integer, parameter :: rid_het6 = 599 - integer, parameter :: rid_het7 = 600 - integer, parameter :: rid_het8 = 601 - integer, parameter :: rid_het9 = 602 - integer, parameter :: rid_elec1 = 603 - integer, parameter :: rid_elec2 = 604 - integer, parameter :: rid_elec3 = 605 - integer, parameter :: rid_ion_N2p_O2 = 606 - integer, parameter :: rid_ion_N2p_Oa = 607 - integer, parameter :: rid_ion_N2p_Ob = 608 - integer, parameter :: rid_ion_Np_O = 609 - integer, parameter :: rid_ion_Np_O2a = 610 - integer, parameter :: rid_ion_Np_O2b = 611 - integer, parameter :: rid_ion_O2p_N = 612 - integer, parameter :: rid_ion_O2p_N2 = 613 - integer, parameter :: rid_ion_O2p_NO = 614 - integer, parameter :: rid_ion_Op_CO2 = 615 - integer, parameter :: rid_ion_Op_N2 = 616 - integer, parameter :: rid_ion_Op_O2 = 617 - integer, parameter :: rid_E90_tau = 618 - integer, parameter :: rid_NH_50_tau = 619 - integer, parameter :: rid_NH_5_tau = 620 - integer, parameter :: rid_ST80_25_tau = 621 + integer, parameter :: rid_usr_N2D_e = 233 + integer, parameter :: rid_usr_N2D_O2 = 234 + integer, parameter :: rid_usr_N2O5_M = 235 + integer, parameter :: rid_usr_N_O2 = 236 + integer, parameter :: rid_CL_CH2O = 237 + integer, parameter :: rid_CL_CH4 = 238 + integer, parameter :: rid_CL_H2 = 239 + integer, parameter :: rid_CL_H2O2 = 240 + integer, parameter :: rid_CL_HO2a = 241 + integer, parameter :: rid_CL_HO2b = 242 + integer, parameter :: rid_CL_O3 = 243 + integer, parameter :: rid_CLO_CH3O2 = 244 + integer, parameter :: rid_CLO_CLOa = 245 + integer, parameter :: rid_CLO_CLOb = 246 + integer, parameter :: rid_CLO_CLOc = 247 + integer, parameter :: rid_CLO_HO2 = 248 + integer, parameter :: rid_CLO_NO = 249 + integer, parameter :: rid_CLONO2_CL = 250 + integer, parameter :: rid_CLO_NO2_M = 251 + integer, parameter :: rid_CLONO2_O = 252 + integer, parameter :: rid_CLONO2_OH = 253 + integer, parameter :: rid_CLO_O = 254 + integer, parameter :: rid_CLO_OHa = 255 + integer, parameter :: rid_CLO_OHb = 256 + integer, parameter :: rid_HCL_O = 257 + integer, parameter :: rid_HCL_OH = 258 + integer, parameter :: rid_HOCL_CL = 259 + integer, parameter :: rid_HOCL_O = 260 + integer, parameter :: rid_HOCL_OH = 261 + integer, parameter :: rid_O1D_CCL4 = 262 + integer, parameter :: rid_O1D_CF2CLBR = 263 + integer, parameter :: rid_O1D_CFC11 = 264 + integer, parameter :: rid_O1D_CFC113 = 265 + integer, parameter :: rid_O1D_CFC114 = 266 + integer, parameter :: rid_O1D_CFC115 = 267 + integer, parameter :: rid_O1D_CFC12 = 268 + integer, parameter :: rid_O1D_HCLa = 269 + integer, parameter :: rid_O1D_HCLb = 270 + integer, parameter :: rid_tag_CLO_CLO_M = 271 + integer, parameter :: rid_usr_CL2O2_M = 272 + integer, parameter :: rid_BR_CH2O = 273 + integer, parameter :: rid_BR_HO2 = 274 + integer, parameter :: rid_BR_O3 = 275 + integer, parameter :: rid_BRO_BRO = 276 + integer, parameter :: rid_BRO_CLOa = 277 + integer, parameter :: rid_BRO_CLOb = 278 + integer, parameter :: rid_BRO_CLOc = 279 + integer, parameter :: rid_BRO_HO2 = 280 + integer, parameter :: rid_BRO_NO = 281 + integer, parameter :: rid_BRO_NO2_M = 282 + integer, parameter :: rid_BRONO2_O = 283 + integer, parameter :: rid_BRO_O = 284 + integer, parameter :: rid_BRO_OH = 285 + integer, parameter :: rid_HBR_O = 286 + integer, parameter :: rid_HBR_OH = 287 + integer, parameter :: rid_HOBR_O = 288 + integer, parameter :: rid_O1D_CF3BR = 289 + integer, parameter :: rid_O1D_CHBR3 = 290 + integer, parameter :: rid_O1D_H2402 = 291 + integer, parameter :: rid_O1D_HBRa = 292 + integer, parameter :: rid_O1D_HBRb = 293 + integer, parameter :: rid_F_CH4 = 294 + integer, parameter :: rid_F_H2 = 295 + integer, parameter :: rid_F_H2O = 296 + integer, parameter :: rid_F_HNO3 = 297 + integer, parameter :: rid_O1D_COF2 = 298 + integer, parameter :: rid_O1D_COFCL = 299 + integer, parameter :: rid_CH2BR2_CL = 300 + integer, parameter :: rid_CH2BR2_OH = 301 + integer, parameter :: rid_CH3BR_CL = 302 + integer, parameter :: rid_CH3BR_OH = 303 + integer, parameter :: rid_CH3CCL3_OH = 304 + integer, parameter :: rid_CH3CL_CL = 305 + integer, parameter :: rid_CH3CL_OH = 306 + integer, parameter :: rid_CHBR3_CL = 307 + integer, parameter :: rid_CHBR3_OH = 308 + integer, parameter :: rid_HCFC141B_OH = 309 + integer, parameter :: rid_HCFC142B_OH = 310 + integer, parameter :: rid_HCFC22_OH = 311 + integer, parameter :: rid_O1D_CH2BR2 = 312 + integer, parameter :: rid_O1D_CH3BR = 313 + integer, parameter :: rid_O1D_HCFC141B = 314 + integer, parameter :: rid_O1D_HCFC142B = 315 + integer, parameter :: rid_O1D_HCFC22 = 316 + integer, parameter :: rid_CH2O_HO2 = 317 + integer, parameter :: rid_CH2O_NO3 = 318 + integer, parameter :: rid_CH2O_O = 319 + integer, parameter :: rid_CH2O_OH = 320 + integer, parameter :: rid_CH3O2_CH3O2a = 321 + integer, parameter :: rid_CH3O2_CH3O2b = 322 + integer, parameter :: rid_CH3O2_HO2 = 323 + integer, parameter :: rid_CH3O2_NO = 324 + integer, parameter :: rid_CH3OH_OH = 325 + integer, parameter :: rid_CH3OOH_OH = 326 + integer, parameter :: rid_CH4_OH = 327 + integer, parameter :: rid_HCN_OH = 328 + integer, parameter :: rid_HCOOH_OH = 329 + integer, parameter :: rid_HOCH2OO_HO2 = 330 + integer, parameter :: rid_HOCH2OO_M = 331 + integer, parameter :: rid_HOCH2OO_NO = 332 + integer, parameter :: rid_O1D_CH4a = 333 + integer, parameter :: rid_O1D_CH4b = 334 + integer, parameter :: rid_O1D_CH4c = 335 + integer, parameter :: rid_O1D_HCN = 336 + integer, parameter :: rid_usr_CO_OH = 337 + integer, parameter :: rid_C2H2_CL_M = 338 + integer, parameter :: rid_C2H2_OH_M = 339 + integer, parameter :: rid_C2H4_CL_M = 340 + integer, parameter :: rid_C2H4_O3 = 341 + integer, parameter :: rid_C2H5O2_C2H5O2 = 342 + integer, parameter :: rid_C2H5O2_CH3O2 = 343 + integer, parameter :: rid_C2H5O2_HO2 = 344 + integer, parameter :: rid_C2H5O2_NO = 345 + integer, parameter :: rid_C2H5OH_OH = 346 + integer, parameter :: rid_C2H5OOH_OH = 347 + integer, parameter :: rid_C2H6_CL = 348 + integer, parameter :: rid_C2H6_OH = 349 + integer, parameter :: rid_CH3CHO_NO3 = 350 + integer, parameter :: rid_CH3CHO_OH = 351 + integer, parameter :: rid_CH3CN_OH = 352 + integer, parameter :: rid_CH3CO3_CH3CO3 = 353 + integer, parameter :: rid_CH3CO3_CH3O2 = 354 + integer, parameter :: rid_CH3CO3_HO2 = 355 + integer, parameter :: rid_CH3CO3_NO = 356 + integer, parameter :: rid_CH3COOH_OH = 357 + integer, parameter :: rid_CH3COOOH_OH = 358 + integer, parameter :: rid_EO2_HO2 = 359 + integer, parameter :: rid_EO2_NO = 360 + integer, parameter :: rid_EO_M = 361 + integer, parameter :: rid_EO_O2 = 362 + integer, parameter :: rid_GLYALD_OH = 363 + integer, parameter :: rid_GLYOXAL_OH = 364 + integer, parameter :: rid_PAN_OH = 365 + integer, parameter :: rid_tag_C2H4_OH = 366 + integer, parameter :: rid_tag_CH3CO3_NO2 = 367 + integer, parameter :: rid_usr_PAN_M = 368 + integer, parameter :: rid_C3H6_NO3 = 369 + integer, parameter :: rid_C3H6_O3 = 370 + integer, parameter :: rid_C3H7O2_CH3O2 = 371 + integer, parameter :: rid_C3H7O2_HO2 = 372 + integer, parameter :: rid_C3H7O2_NO = 373 + integer, parameter :: rid_C3H7OOH_OH = 374 + integer, parameter :: rid_C3H8_OH = 375 + integer, parameter :: rid_CH3COCHO_NO3 = 376 + integer, parameter :: rid_CH3COCHO_OH = 377 + integer, parameter :: rid_CL_C3H8 = 378 + integer, parameter :: rid_HYAC_OH = 379 + integer, parameter :: rid_NOA_OH = 380 + integer, parameter :: rid_PO2_HO2 = 381 + integer, parameter :: rid_PO2_NO = 382 + integer, parameter :: rid_POOH_OH = 383 + integer, parameter :: rid_RO2_CH3O2 = 384 + integer, parameter :: rid_RO2_HO2 = 385 + integer, parameter :: rid_RO2_NO = 386 + integer, parameter :: rid_ROOH_OH = 387 + integer, parameter :: rid_tag_C3H6_OH = 388 + integer, parameter :: rid_usr_CH3COCH3_OH = 389 + integer, parameter :: rid_BIGENE_NO3 = 390 + integer, parameter :: rid_BIGENE_OH = 391 + integer, parameter :: rid_ENEO2_NO = 392 + integer, parameter :: rid_ENEO2_NOb = 393 + integer, parameter :: rid_HONITR_OH = 394 + integer, parameter :: rid_MACRO2_CH3CO3 = 395 + integer, parameter :: rid_MACRO2_CH3O2 = 396 + integer, parameter :: rid_MACRO2_HO2 = 397 + integer, parameter :: rid_MACRO2_NO3 = 398 + integer, parameter :: rid_MACRO2_NOa = 399 + integer, parameter :: rid_MACRO2_NOb = 400 + integer, parameter :: rid_MACR_O3 = 401 + integer, parameter :: rid_MACR_OH = 402 + integer, parameter :: rid_MACROOH_OH = 403 + integer, parameter :: rid_MCO3_CH3CO3 = 404 + integer, parameter :: rid_MCO3_CH3O2 = 405 + integer, parameter :: rid_MCO3_HO2 = 406 + integer, parameter :: rid_MCO3_MCO3 = 407 + integer, parameter :: rid_MCO3_NO = 408 + integer, parameter :: rid_MCO3_NO3 = 409 + integer, parameter :: rid_MEKO2_HO2 = 410 + integer, parameter :: rid_MEKO2_NO = 411 + integer, parameter :: rid_MEK_OH = 412 + integer, parameter :: rid_MEKOOH_OH = 413 + integer, parameter :: rid_MPAN_OH_M = 414 + integer, parameter :: rid_MVK_O3 = 415 + integer, parameter :: rid_MVK_OH = 416 + integer, parameter :: rid_tag_MCO3_NO2 = 417 + integer, parameter :: rid_usr_MPAN_M = 418 + integer, parameter :: rid_ALKNIT_OH = 419 + integer, parameter :: rid_ALKO2_HO2 = 420 + integer, parameter :: rid_ALKO2_NO = 421 + integer, parameter :: rid_ALKO2_NOb = 422 + integer, parameter :: rid_ALKOOH_OH = 423 + integer, parameter :: rid_BIGALK_OH = 424 + integer, parameter :: rid_HPALD_OH = 425 + integer, parameter :: rid_HYDRALD_OH = 426 + integer, parameter :: rid_IEPOX_OH = 427 + integer, parameter :: rid_ISOPAO2_CH3CO3 = 428 + integer, parameter :: rid_ISOPAO2_CH3O2 = 429 + integer, parameter :: rid_ISOPAO2_HO2 = 430 + integer, parameter :: rid_ISOPAO2_NO = 431 + integer, parameter :: rid_ISOPAO2_NO3 = 432 + integer, parameter :: rid_ISOPBO2_CH3CO3 = 433 + integer, parameter :: rid_ISOPBO2_CH3O2 = 434 + integer, parameter :: rid_ISOPBO2_HO2 = 435 + integer, parameter :: rid_ISOPBO2_M = 436 + integer, parameter :: rid_ISOPBO2_NO = 437 + integer, parameter :: rid_ISOPBO2_NO3 = 438 + integer, parameter :: rid_ISOPNITA_OH = 439 + integer, parameter :: rid_ISOPNITB_OH = 440 + integer, parameter :: rid_ISOP_NO3 = 441 + integer, parameter :: rid_ISOPNO3_CH3CO3 = 442 + integer, parameter :: rid_ISOPNO3_CH3O2 = 443 + integer, parameter :: rid_ISOPNO3_HO2 = 444 + integer, parameter :: rid_ISOPNO3_NO = 445 + integer, parameter :: rid_ISOPNO3_NO3 = 446 + integer, parameter :: rid_ISOPNOOH_OH = 447 + integer, parameter :: rid_ISOP_O3 = 448 + integer, parameter :: rid_ISOP_OH = 449 + integer, parameter :: rid_ISOPOOH_OH = 450 + integer, parameter :: rid_NC4CH2OH_OH = 451 + integer, parameter :: rid_NC4CHO_OH = 452 + integer, parameter :: rid_XO2_CH3CO3 = 453 + integer, parameter :: rid_XO2_CH3O2 = 454 + integer, parameter :: rid_XO2_HO2 = 455 + integer, parameter :: rid_XO2_NO = 456 + integer, parameter :: rid_XO2_NO3 = 457 + integer, parameter :: rid_XOOH_OH = 458 + integer, parameter :: rid_ACBZO2_HO2 = 459 + integer, parameter :: rid_ACBZO2_NO = 460 + integer, parameter :: rid_BENZENE_OH = 461 + integer, parameter :: rid_BENZO2_HO2 = 462 + integer, parameter :: rid_BENZO2_NO = 463 + integer, parameter :: rid_BENZOOH_OH = 464 + integer, parameter :: rid_BZALD_OH = 465 + integer, parameter :: rid_BZOO_HO2 = 466 + integer, parameter :: rid_BZOOH_OH = 467 + integer, parameter :: rid_BZOO_NO = 468 + integer, parameter :: rid_C6H5O2_HO2 = 469 + integer, parameter :: rid_C6H5O2_NO = 470 + integer, parameter :: rid_C6H5OOH_OH = 471 + integer, parameter :: rid_CRESOL_OH = 472 + integer, parameter :: rid_DICARBO2_HO2 = 473 + integer, parameter :: rid_DICARBO2_NO = 474 + integer, parameter :: rid_DICARBO2_NO2 = 475 + integer, parameter :: rid_MALO2_HO2 = 476 + integer, parameter :: rid_MALO2_NO = 477 + integer, parameter :: rid_MALO2_NO2 = 478 + integer, parameter :: rid_MDIALO2_HO2 = 479 + integer, parameter :: rid_MDIALO2_NO = 480 + integer, parameter :: rid_MDIALO2_NO2 = 481 + integer, parameter :: rid_PHENO2_HO2 = 482 + integer, parameter :: rid_PHENO2_NO = 483 + integer, parameter :: rid_PHENOL_OH = 484 + integer, parameter :: rid_PHENO_NO2 = 485 + integer, parameter :: rid_PHENO_O3 = 486 + integer, parameter :: rid_PHENOOH_OH = 487 + integer, parameter :: rid_tag_ACBZO2_NO2 = 488 + integer, parameter :: rid_TOLO2_HO2 = 489 + integer, parameter :: rid_TOLO2_NO = 490 + integer, parameter :: rid_TOLOOH_OH = 491 + integer, parameter :: rid_TOLUENE_OH = 492 + integer, parameter :: rid_usr_PBZNIT_M = 493 + integer, parameter :: rid_XYLENES_OH = 494 + integer, parameter :: rid_XYLENO2_HO2 = 495 + integer, parameter :: rid_XYLENO2_NO = 496 + integer, parameter :: rid_XYLENOOH_OH = 497 + integer, parameter :: rid_XYLOLO2_HO2 = 498 + integer, parameter :: rid_XYLOLO2_NO = 499 + integer, parameter :: rid_XYLOL_OH = 500 + integer, parameter :: rid_XYLOLOOH_OH = 501 + integer, parameter :: rid_BCARY_NO3 = 502 + integer, parameter :: rid_BCARY_O3 = 503 + integer, parameter :: rid_BCARY_OH = 504 + integer, parameter :: rid_MTERP_NO3 = 505 + integer, parameter :: rid_MTERP_O3 = 506 + integer, parameter :: rid_MTERP_OH = 507 + integer, parameter :: rid_NTERPO2_CH3O2 = 508 + integer, parameter :: rid_NTERPO2_HO2 = 509 + integer, parameter :: rid_NTERPO2_NO = 510 + integer, parameter :: rid_NTERPO2_NO3 = 511 + integer, parameter :: rid_NTERPOOH_OH = 512 + integer, parameter :: rid_TERP2O2_CH3O2 = 513 + integer, parameter :: rid_TERP2O2_HO2 = 514 + integer, parameter :: rid_TERP2O2_NO = 515 + integer, parameter :: rid_TERP2OOH_OH = 516 + integer, parameter :: rid_TERPNIT_OH = 517 + integer, parameter :: rid_TERPO2_CH3O2 = 518 + integer, parameter :: rid_TERPO2_HO2 = 519 + integer, parameter :: rid_TERPO2_NO = 520 + integer, parameter :: rid_TERPOOH_OH = 521 + integer, parameter :: rid_TERPROD1_NO3 = 522 + integer, parameter :: rid_TERPROD1_OH = 523 + integer, parameter :: rid_TERPROD2_OH = 524 + integer, parameter :: rid_DMS_NO3 = 525 + integer, parameter :: rid_DMS_OHa = 526 + integer, parameter :: rid_OCS_O = 527 + integer, parameter :: rid_OCS_OH = 528 + integer, parameter :: rid_S_O2 = 529 + integer, parameter :: rid_SO2_OH_M = 530 + integer, parameter :: rid_S_O3 = 531 + integer, parameter :: rid_SO_BRO = 532 + integer, parameter :: rid_SO_CLO = 533 + integer, parameter :: rid_S_OH = 534 + integer, parameter :: rid_SO_NO2 = 535 + integer, parameter :: rid_SO_O2 = 536 + integer, parameter :: rid_SO_O3 = 537 + integer, parameter :: rid_SO_OCLO = 538 + integer, parameter :: rid_SO_OH = 539 + integer, parameter :: rid_usr_DMS_OH = 540 + integer, parameter :: rid_usr_SO3_H2O = 541 + integer, parameter :: rid_NH3_OH = 542 + integer, parameter :: rid_usr_HO2_aer = 543 + integer, parameter :: rid_usr_HONITR_aer = 544 + integer, parameter :: rid_usr_ISOPNITA_aer = 545 + integer, parameter :: rid_usr_ISOPNITB_aer = 546 + integer, parameter :: rid_usr_N2O5_aer = 547 + integer, parameter :: rid_usr_NC4CH2OH_aer = 548 + integer, parameter :: rid_usr_NC4CHO_aer = 549 + integer, parameter :: rid_usr_NH4_strat_tau = 550 + integer, parameter :: rid_usr_NO2_aer = 551 + integer, parameter :: rid_usr_NO3_aer = 552 + integer, parameter :: rid_usr_NTERPOOH_aer = 553 + integer, parameter :: rid_usr_ONITR_aer = 554 + integer, parameter :: rid_usr_TERPNIT_aer = 555 + integer, parameter :: rid_BCARY_NO3_vbs = 556 + integer, parameter :: rid_BCARYO2_HO2_vbs = 557 + integer, parameter :: rid_BCARYO2_NO_vbs = 558 + integer, parameter :: rid_BCARY_O3_vbs = 559 + integer, parameter :: rid_BCARY_OH_vbs = 560 + integer, parameter :: rid_BENZENE_OH_vbs = 561 + integer, parameter :: rid_BENZO2_HO2_vbs = 562 + integer, parameter :: rid_BENZO2_NO_vbs = 563 + integer, parameter :: rid_ISOP_NO3_vbs = 564 + integer, parameter :: rid_ISOPO2_HO2_vbs = 565 + integer, parameter :: rid_ISOPO2_NO_vbs = 566 + integer, parameter :: rid_ISOP_O3_vbs = 567 + integer, parameter :: rid_ISOP_OH_vbs = 568 + integer, parameter :: rid_IVOCbbO2_HO2_vbs = 569 + integer, parameter :: rid_IVOCbbO2_NO_vbs = 570 + integer, parameter :: rid_IVOCbb_OH_vbs = 571 + integer, parameter :: rid_IVOCffO2_HO2_vbs = 572 + integer, parameter :: rid_IVOCffO2_NO_vbs = 573 + integer, parameter :: rid_IVOCff_OH_vbs = 574 + integer, parameter :: rid_MTERP_NO3_vbs = 575 + integer, parameter :: rid_MTERPO2_HO2_vbs = 576 + integer, parameter :: rid_MTERPO2_NO_vbs = 577 + integer, parameter :: rid_MTERP_O3_vbs = 578 + integer, parameter :: rid_MTERP_OH_vbs = 579 + integer, parameter :: rid_SVOCbb_OH = 580 + integer, parameter :: rid_SVOCff_OH = 581 + integer, parameter :: rid_TOLUENE_OH_vbs = 582 + integer, parameter :: rid_TOLUO2_HO2_vbs = 583 + integer, parameter :: rid_TOLUO2_NO_vbs = 584 + integer, parameter :: rid_usr_GLYOXAL_aer = 585 + integer, parameter :: rid_XYLENES_OH_vbs = 586 + integer, parameter :: rid_XYLEO2_HO2_vbs = 587 + integer, parameter :: rid_XYLEO2_NO_vbs = 588 + integer, parameter :: rid_het1 = 589 + integer, parameter :: rid_het10 = 590 + integer, parameter :: rid_het11 = 591 + integer, parameter :: rid_het12 = 592 + integer, parameter :: rid_het13 = 593 + integer, parameter :: rid_het14 = 594 + integer, parameter :: rid_het15 = 595 + integer, parameter :: rid_het16 = 596 + integer, parameter :: rid_het17 = 597 + integer, parameter :: rid_het2 = 598 + integer, parameter :: rid_het3 = 599 + integer, parameter :: rid_het4 = 600 + integer, parameter :: rid_het5 = 601 + integer, parameter :: rid_het6 = 602 + integer, parameter :: rid_het7 = 603 + integer, parameter :: rid_het8 = 604 + integer, parameter :: rid_het9 = 605 + integer, parameter :: rid_elec1 = 606 + integer, parameter :: rid_elec2 = 607 + integer, parameter :: rid_elec3 = 608 + integer, parameter :: rid_ion_N2p_O2 = 609 + integer, parameter :: rid_ion_N2p_Oa = 610 + integer, parameter :: rid_ion_N2p_Ob = 611 + integer, parameter :: rid_ion_Np_O = 612 + integer, parameter :: rid_ion_Np_O2a = 613 + integer, parameter :: rid_ion_Np_O2b = 614 + integer, parameter :: rid_ion_O2p_N = 615 + integer, parameter :: rid_ion_O2p_N2 = 616 + integer, parameter :: rid_ion_O2p_NO = 617 + integer, parameter :: rid_ion_Op_CO2 = 618 + integer, parameter :: rid_ion_Op_N2 = 619 + integer, parameter :: rid_ion_Op_O2 = 620 + integer, parameter :: rid_E90_tau = 621 + integer, parameter :: rid_NH_50_tau = 622 + integer, parameter :: rid_NH_5_tau = 623 + integer, parameter :: rid_ST80_25_tau = 624 end module m_rxt_id diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_spc_id.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_spc_id.F90 index 9f67ecbc15..e77158401f 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_spc_id.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/m_spc_id.F90 @@ -6,255 +6,255 @@ module m_spc_id integer, parameter :: id_bc_a1 = 4 integer, parameter :: id_bc_a4 = 5 integer, parameter :: id_BCARY = 6 - integer, parameter :: id_BCARYO2VBS = 7 - integer, parameter :: id_BENZENE = 8 - integer, parameter :: id_BENZO2VBS = 9 - integer, parameter :: id_BENZOOH = 10 - integer, parameter :: id_BEPOMUC = 11 - integer, parameter :: id_BIGALD = 12 - integer, parameter :: id_BIGALD1 = 13 - integer, parameter :: id_BIGALD2 = 14 - integer, parameter :: id_BIGALD3 = 15 - integer, parameter :: id_BIGALD4 = 16 - integer, parameter :: id_BIGALK = 17 - integer, parameter :: id_BIGENE = 18 - integer, parameter :: id_BR = 19 - integer, parameter :: id_BRCL = 20 - integer, parameter :: id_BRO = 21 - integer, parameter :: id_BRONO2 = 22 - integer, parameter :: id_BRY = 23 - integer, parameter :: id_BZALD = 24 - integer, parameter :: id_BZOOH = 25 - integer, parameter :: id_C2H2 = 26 - integer, parameter :: id_C2H4 = 27 - integer, parameter :: id_C2H5OH = 28 - integer, parameter :: id_C2H5OOH = 29 - integer, parameter :: id_C2H6 = 30 - integer, parameter :: id_C3H6 = 31 - integer, parameter :: id_C3H7OOH = 32 - integer, parameter :: id_C3H8 = 33 - integer, parameter :: id_C6H5OOH = 34 - integer, parameter :: id_CCL4 = 35 - integer, parameter :: id_CF2CLBR = 36 - integer, parameter :: id_CF3BR = 37 - integer, parameter :: id_CFC11 = 38 - integer, parameter :: id_CFC113 = 39 - integer, parameter :: id_CFC114 = 40 - integer, parameter :: id_CFC115 = 41 - integer, parameter :: id_CFC12 = 42 - integer, parameter :: id_CH2BR2 = 43 - integer, parameter :: id_CH2O = 44 - integer, parameter :: id_CH3BR = 45 - integer, parameter :: id_CH3CCL3 = 46 - integer, parameter :: id_CH3CHO = 47 - integer, parameter :: id_CH3CL = 48 - integer, parameter :: id_CH3CN = 49 - integer, parameter :: id_CH3COCH3 = 50 - integer, parameter :: id_CH3COCHO = 51 - integer, parameter :: id_CH3COOH = 52 - integer, parameter :: id_CH3COOOH = 53 - integer, parameter :: id_CH3OH = 54 - integer, parameter :: id_CH3OOH = 55 - integer, parameter :: id_CH4 = 56 - integer, parameter :: id_CHBR3 = 57 - integer, parameter :: id_CL = 58 - integer, parameter :: id_CL2 = 59 - integer, parameter :: id_CL2O2 = 60 - integer, parameter :: id_CLO = 61 - integer, parameter :: id_CLONO2 = 62 - integer, parameter :: id_CLY = 63 - integer, parameter :: id_CO = 64 - integer, parameter :: id_CO2 = 65 - integer, parameter :: id_COF2 = 66 - integer, parameter :: id_COFCL = 67 - integer, parameter :: id_CRESOL = 68 - integer, parameter :: id_DMS = 69 - integer, parameter :: id_dst_a1 = 70 - integer, parameter :: id_dst_a2 = 71 - integer, parameter :: id_dst_a3 = 72 - integer, parameter :: id_E90 = 73 - integer, parameter :: id_EOOH = 74 - integer, parameter :: id_F = 75 - integer, parameter :: id_GLYALD = 76 - integer, parameter :: id_GLYOXAL = 77 - integer, parameter :: id_H = 78 - integer, parameter :: id_H2 = 79 - integer, parameter :: id_H2402 = 80 - integer, parameter :: id_H2O2 = 81 - integer, parameter :: id_H2SO4 = 82 - integer, parameter :: id_HBR = 83 - integer, parameter :: id_HCFC141B = 84 - integer, parameter :: id_HCFC142B = 85 - integer, parameter :: id_HCFC22 = 86 - integer, parameter :: id_HCL = 87 - integer, parameter :: id_HCN = 88 - integer, parameter :: id_HCOOH = 89 - integer, parameter :: id_HF = 90 - integer, parameter :: id_HNO3 = 91 - integer, parameter :: id_HO2NO2 = 92 - integer, parameter :: id_HOBR = 93 - integer, parameter :: id_HOCL = 94 - integer, parameter :: id_HONITR = 95 - integer, parameter :: id_HPALD = 96 - integer, parameter :: id_HYAC = 97 - integer, parameter :: id_HYDRALD = 98 - integer, parameter :: id_IEPOX = 99 - integer, parameter :: id_ISOP = 100 - integer, parameter :: id_ISOPNITA = 101 - integer, parameter :: id_ISOPNITB = 102 - integer, parameter :: id_ISOPNO3 = 103 - integer, parameter :: id_ISOPNOOH = 104 - integer, parameter :: id_ISOPO2VBS = 105 - integer, parameter :: id_ISOPOOH = 106 - integer, parameter :: id_IVOCbb = 107 - integer, parameter :: id_IVOCbbO2VBS = 108 - integer, parameter :: id_IVOCff = 109 - integer, parameter :: id_IVOCffO2VBS = 110 - integer, parameter :: id_MACR = 111 - integer, parameter :: id_MACROOH = 112 - integer, parameter :: id_MEK = 113 - integer, parameter :: id_MEKOOH = 114 - integer, parameter :: id_MPAN = 115 - integer, parameter :: id_MTERP = 116 - integer, parameter :: id_MTERPO2VBS = 117 - integer, parameter :: id_MVK = 118 - integer, parameter :: id_N = 119 - integer, parameter :: id_N2O = 120 - integer, parameter :: id_N2O5 = 121 - integer, parameter :: id_NC4CH2OH = 122 - integer, parameter :: id_NC4CHO = 123 - integer, parameter :: id_ncl_a1 = 124 - integer, parameter :: id_ncl_a2 = 125 - integer, parameter :: id_ncl_a3 = 126 - integer, parameter :: id_NH3 = 127 - integer, parameter :: id_NH4 = 128 - integer, parameter :: id_NH_5 = 129 - integer, parameter :: id_NH_50 = 130 - integer, parameter :: id_NO = 131 - integer, parameter :: id_NO2 = 132 - integer, parameter :: id_NO3 = 133 - integer, parameter :: id_NOA = 134 - integer, parameter :: id_NTERPOOH = 135 - integer, parameter :: id_num_a1 = 136 - integer, parameter :: id_num_a2 = 137 - integer, parameter :: id_num_a3 = 138 - integer, parameter :: id_num_a4 = 139 - integer, parameter :: id_num_a5 = 140 - integer, parameter :: id_O = 141 - integer, parameter :: id_O2 = 142 - integer, parameter :: id_O3 = 143 - integer, parameter :: id_O3S = 144 - integer, parameter :: id_OCLO = 145 - integer, parameter :: id_OCS = 146 - integer, parameter :: id_ONITR = 147 - integer, parameter :: id_PAN = 148 - integer, parameter :: id_PBZNIT = 149 - integer, parameter :: id_PHENO = 150 - integer, parameter :: id_PHENOL = 151 - integer, parameter :: id_PHENOOH = 152 - integer, parameter :: id_pombb1_a1 = 153 - integer, parameter :: id_pombb1_a4 = 154 - integer, parameter :: id_pomff1_a1 = 155 - integer, parameter :: id_pomff1_a4 = 156 - integer, parameter :: id_POOH = 157 - integer, parameter :: id_ROOH = 158 - integer, parameter :: id_S = 159 - integer, parameter :: id_SF6 = 160 - integer, parameter :: id_SO = 161 - integer, parameter :: id_SO2 = 162 - integer, parameter :: id_SO3 = 163 - integer, parameter :: id_so4_a1 = 164 - integer, parameter :: id_so4_a2 = 165 - integer, parameter :: id_so4_a3 = 166 - integer, parameter :: id_so4_a5 = 167 - integer, parameter :: id_soabb1_a1 = 168 - integer, parameter :: id_soabb1_a2 = 169 - integer, parameter :: id_soabb2_a1 = 170 - integer, parameter :: id_soabb2_a2 = 171 - integer, parameter :: id_soabb3_a1 = 172 - integer, parameter :: id_soabb3_a2 = 173 - integer, parameter :: id_soabb4_a1 = 174 - integer, parameter :: id_soabb4_a2 = 175 - integer, parameter :: id_soabb5_a1 = 176 - integer, parameter :: id_soabb5_a2 = 177 - integer, parameter :: id_soabg1_a1 = 178 - integer, parameter :: id_soabg1_a2 = 179 - integer, parameter :: id_soabg2_a1 = 180 - integer, parameter :: id_soabg2_a2 = 181 - integer, parameter :: id_soabg3_a1 = 182 - integer, parameter :: id_soabg3_a2 = 183 - integer, parameter :: id_soabg4_a1 = 184 - integer, parameter :: id_soabg4_a2 = 185 - integer, parameter :: id_soabg5_a1 = 186 - integer, parameter :: id_soabg5_a2 = 187 - integer, parameter :: id_soaff1_a1 = 188 - integer, parameter :: id_soaff1_a2 = 189 - integer, parameter :: id_soaff2_a1 = 190 - integer, parameter :: id_soaff2_a2 = 191 - integer, parameter :: id_soaff3_a1 = 192 - integer, parameter :: id_soaff3_a2 = 193 - integer, parameter :: id_soaff4_a1 = 194 - integer, parameter :: id_soaff4_a2 = 195 - integer, parameter :: id_soaff5_a1 = 196 - integer, parameter :: id_soaff5_a2 = 197 - integer, parameter :: id_SOAGbb0 = 198 - integer, parameter :: id_SOAGbb1 = 199 - integer, parameter :: id_SOAGbb2 = 200 - integer, parameter :: id_SOAGbb3 = 201 - integer, parameter :: id_SOAGbb4 = 202 - integer, parameter :: id_SOAGbg0 = 203 - integer, parameter :: id_SOAGbg1 = 204 - integer, parameter :: id_SOAGbg2 = 205 - integer, parameter :: id_SOAGbg3 = 206 - integer, parameter :: id_SOAGbg4 = 207 - integer, parameter :: id_SOAGff0 = 208 - integer, parameter :: id_SOAGff1 = 209 - integer, parameter :: id_SOAGff2 = 210 - integer, parameter :: id_SOAGff3 = 211 - integer, parameter :: id_SOAGff4 = 212 - integer, parameter :: id_ST80_25 = 213 - integer, parameter :: id_SVOCbb = 214 - integer, parameter :: id_SVOCff = 215 - integer, parameter :: id_TEPOMUC = 216 - integer, parameter :: id_TERP2OOH = 217 - integer, parameter :: id_TERPNIT = 218 - integer, parameter :: id_TERPOOH = 219 - integer, parameter :: id_TERPROD1 = 220 - integer, parameter :: id_TERPROD2 = 221 - integer, parameter :: id_TOLOOH = 222 - integer, parameter :: id_TOLUENE = 223 - integer, parameter :: id_TOLUO2VBS = 224 - integer, parameter :: id_XOOH = 225 - integer, parameter :: id_XYLENES = 226 - integer, parameter :: id_XYLENOOH = 227 - integer, parameter :: id_XYLEO2VBS = 228 - integer, parameter :: id_XYLOL = 229 - integer, parameter :: id_XYLOLOOH = 230 - integer, parameter :: id_NHDEP = 231 - integer, parameter :: id_NDEP = 232 - integer, parameter :: id_ACBZO2 = 233 - integer, parameter :: id_ALKO2 = 234 - integer, parameter :: id_BENZO2 = 235 - integer, parameter :: id_BZOO = 236 - integer, parameter :: id_C2H5O2 = 237 - integer, parameter :: id_C3H7O2 = 238 - integer, parameter :: id_C6H5O2 = 239 - integer, parameter :: id_CH3CO3 = 240 - integer, parameter :: id_CH3O2 = 241 - integer, parameter :: id_DICARBO2 = 242 - integer, parameter :: id_e = 243 - integer, parameter :: id_ENEO2 = 244 - integer, parameter :: id_EO = 245 - integer, parameter :: id_EO2 = 246 - integer, parameter :: id_HO2 = 247 - integer, parameter :: id_HOCH2OO = 248 - integer, parameter :: id_ISOPAO2 = 249 - integer, parameter :: id_ISOPBO2 = 250 - integer, parameter :: id_MACRO2 = 251 - integer, parameter :: id_MALO2 = 252 - integer, parameter :: id_MCO3 = 253 - integer, parameter :: id_MDIALO2 = 254 - integer, parameter :: id_MEKO2 = 255 + integer, parameter :: id_BENZENE = 7 + integer, parameter :: id_BENZOOH = 8 + integer, parameter :: id_BEPOMUC = 9 + integer, parameter :: id_BIGALD = 10 + integer, parameter :: id_BIGALD1 = 11 + integer, parameter :: id_BIGALD2 = 12 + integer, parameter :: id_BIGALD3 = 13 + integer, parameter :: id_BIGALD4 = 14 + integer, parameter :: id_BIGALK = 15 + integer, parameter :: id_BIGENE = 16 + integer, parameter :: id_BR = 17 + integer, parameter :: id_BRCL = 18 + integer, parameter :: id_BRO = 19 + integer, parameter :: id_BRONO2 = 20 + integer, parameter :: id_BRY = 21 + integer, parameter :: id_BZALD = 22 + integer, parameter :: id_BZOOH = 23 + integer, parameter :: id_C2H2 = 24 + integer, parameter :: id_C2H4 = 25 + integer, parameter :: id_C2H5OH = 26 + integer, parameter :: id_C2H5OOH = 27 + integer, parameter :: id_C2H6 = 28 + integer, parameter :: id_C3H6 = 29 + integer, parameter :: id_C3H7OOH = 30 + integer, parameter :: id_C3H8 = 31 + integer, parameter :: id_C6H5OOH = 32 + integer, parameter :: id_CCL4 = 33 + integer, parameter :: id_CF2CLBR = 34 + integer, parameter :: id_CF3BR = 35 + integer, parameter :: id_CFC11 = 36 + integer, parameter :: id_CFC113 = 37 + integer, parameter :: id_CFC114 = 38 + integer, parameter :: id_CFC115 = 39 + integer, parameter :: id_CFC12 = 40 + integer, parameter :: id_CH2BR2 = 41 + integer, parameter :: id_CH2O = 42 + integer, parameter :: id_CH3BR = 43 + integer, parameter :: id_CH3CCL3 = 44 + integer, parameter :: id_CH3CHO = 45 + integer, parameter :: id_CH3CL = 46 + integer, parameter :: id_CH3CN = 47 + integer, parameter :: id_CH3COCH3 = 48 + integer, parameter :: id_CH3COCHO = 49 + integer, parameter :: id_CH3COOH = 50 + integer, parameter :: id_CH3COOOH = 51 + integer, parameter :: id_CH3OH = 52 + integer, parameter :: id_CH3OOH = 53 + integer, parameter :: id_CH4 = 54 + integer, parameter :: id_CHBR3 = 55 + integer, parameter :: id_CL = 56 + integer, parameter :: id_CL2 = 57 + integer, parameter :: id_CL2O2 = 58 + integer, parameter :: id_CLO = 59 + integer, parameter :: id_CLONO2 = 60 + integer, parameter :: id_CLY = 61 + integer, parameter :: id_CO = 62 + integer, parameter :: id_CO2 = 63 + integer, parameter :: id_COF2 = 64 + integer, parameter :: id_COFCL = 65 + integer, parameter :: id_CRESOL = 66 + integer, parameter :: id_DMS = 67 + integer, parameter :: id_dst_a1 = 68 + integer, parameter :: id_dst_a2 = 69 + integer, parameter :: id_dst_a3 = 70 + integer, parameter :: id_E90 = 71 + integer, parameter :: id_EOOH = 72 + integer, parameter :: id_F = 73 + integer, parameter :: id_GLYALD = 74 + integer, parameter :: id_GLYOXAL = 75 + integer, parameter :: id_H = 76 + integer, parameter :: id_H2 = 77 + integer, parameter :: id_H2402 = 78 + integer, parameter :: id_H2O2 = 79 + integer, parameter :: id_H2SO4 = 80 + integer, parameter :: id_HBR = 81 + integer, parameter :: id_HCFC141B = 82 + integer, parameter :: id_HCFC142B = 83 + integer, parameter :: id_HCFC22 = 84 + integer, parameter :: id_HCL = 85 + integer, parameter :: id_HCN = 86 + integer, parameter :: id_HCOOH = 87 + integer, parameter :: id_HF = 88 + integer, parameter :: id_HNO3 = 89 + integer, parameter :: id_HO2NO2 = 90 + integer, parameter :: id_HOBR = 91 + integer, parameter :: id_HOCL = 92 + integer, parameter :: id_HONITR = 93 + integer, parameter :: id_HPALD = 94 + integer, parameter :: id_HYAC = 95 + integer, parameter :: id_HYDRALD = 96 + integer, parameter :: id_IEPOX = 97 + integer, parameter :: id_ISOP = 98 + integer, parameter :: id_ISOPNITA = 99 + integer, parameter :: id_ISOPNITB = 100 + integer, parameter :: id_ISOPNO3 = 101 + integer, parameter :: id_ISOPNOOH = 102 + integer, parameter :: id_ISOPOOH = 103 + integer, parameter :: id_IVOCbb = 104 + integer, parameter :: id_IVOCff = 105 + integer, parameter :: id_MACR = 106 + integer, parameter :: id_MACROOH = 107 + integer, parameter :: id_MEK = 108 + integer, parameter :: id_MEKOOH = 109 + integer, parameter :: id_MPAN = 110 + integer, parameter :: id_MTERP = 111 + integer, parameter :: id_MVK = 112 + integer, parameter :: id_N = 113 + integer, parameter :: id_N2O = 114 + integer, parameter :: id_N2O5 = 115 + integer, parameter :: id_NC4CH2OH = 116 + integer, parameter :: id_NC4CHO = 117 + integer, parameter :: id_ncl_a1 = 118 + integer, parameter :: id_ncl_a2 = 119 + integer, parameter :: id_ncl_a3 = 120 + integer, parameter :: id_NH3 = 121 + integer, parameter :: id_NH4 = 122 + integer, parameter :: id_NH_5 = 123 + integer, parameter :: id_NH_50 = 124 + integer, parameter :: id_NO = 125 + integer, parameter :: id_NO2 = 126 + integer, parameter :: id_NO3 = 127 + integer, parameter :: id_NOA = 128 + integer, parameter :: id_NTERPOOH = 129 + integer, parameter :: id_num_a1 = 130 + integer, parameter :: id_num_a2 = 131 + integer, parameter :: id_num_a3 = 132 + integer, parameter :: id_num_a4 = 133 + integer, parameter :: id_num_a5 = 134 + integer, parameter :: id_O = 135 + integer, parameter :: id_O2 = 136 + integer, parameter :: id_O3 = 137 + integer, parameter :: id_O3S = 138 + integer, parameter :: id_OCLO = 139 + integer, parameter :: id_OCS = 140 + integer, parameter :: id_ONITR = 141 + integer, parameter :: id_PAN = 142 + integer, parameter :: id_PBZNIT = 143 + integer, parameter :: id_PHENO = 144 + integer, parameter :: id_PHENOL = 145 + integer, parameter :: id_PHENOOH = 146 + integer, parameter :: id_pom_a1 = 147 + integer, parameter :: id_pom_a4 = 148 + integer, parameter :: id_pombb1_a1 = 149 + integer, parameter :: id_pombb1_a4 = 150 + integer, parameter :: id_pomff1_a1 = 151 + integer, parameter :: id_pomff1_a4 = 152 + integer, parameter :: id_POOH = 153 + integer, parameter :: id_ROOH = 154 + integer, parameter :: id_S = 155 + integer, parameter :: id_SF6 = 156 + integer, parameter :: id_SO = 157 + integer, parameter :: id_SO2 = 158 + integer, parameter :: id_SO3 = 159 + integer, parameter :: id_so4_a1 = 160 + integer, parameter :: id_so4_a2 = 161 + integer, parameter :: id_so4_a3 = 162 + integer, parameter :: id_so4_a5 = 163 + integer, parameter :: id_soabb1_a1 = 164 + integer, parameter :: id_soabb1_a2 = 165 + integer, parameter :: id_soabb2_a1 = 166 + integer, parameter :: id_soabb2_a2 = 167 + integer, parameter :: id_soabb3_a1 = 168 + integer, parameter :: id_soabb3_a2 = 169 + integer, parameter :: id_soabb4_a1 = 170 + integer, parameter :: id_soabb4_a2 = 171 + integer, parameter :: id_soabb5_a1 = 172 + integer, parameter :: id_soabb5_a2 = 173 + integer, parameter :: id_soabg1_a1 = 174 + integer, parameter :: id_soabg1_a2 = 175 + integer, parameter :: id_soabg2_a1 = 176 + integer, parameter :: id_soabg2_a2 = 177 + integer, parameter :: id_soabg3_a1 = 178 + integer, parameter :: id_soabg3_a2 = 179 + integer, parameter :: id_soabg4_a1 = 180 + integer, parameter :: id_soabg4_a2 = 181 + integer, parameter :: id_soabg5_a1 = 182 + integer, parameter :: id_soabg5_a2 = 183 + integer, parameter :: id_soaff1_a1 = 184 + integer, parameter :: id_soaff1_a2 = 185 + integer, parameter :: id_soaff2_a1 = 186 + integer, parameter :: id_soaff2_a2 = 187 + integer, parameter :: id_soaff3_a1 = 188 + integer, parameter :: id_soaff3_a2 = 189 + integer, parameter :: id_soaff4_a1 = 190 + integer, parameter :: id_soaff4_a2 = 191 + integer, parameter :: id_soaff5_a1 = 192 + integer, parameter :: id_soaff5_a2 = 193 + integer, parameter :: id_SOAGbb0 = 194 + integer, parameter :: id_SOAGbb1 = 195 + integer, parameter :: id_SOAGbb2 = 196 + integer, parameter :: id_SOAGbb3 = 197 + integer, parameter :: id_SOAGbb4 = 198 + integer, parameter :: id_SOAGbg0 = 199 + integer, parameter :: id_SOAGbg1 = 200 + integer, parameter :: id_SOAGbg2 = 201 + integer, parameter :: id_SOAGbg3 = 202 + integer, parameter :: id_SOAGbg4 = 203 + integer, parameter :: id_SOAGff0 = 204 + integer, parameter :: id_SOAGff1 = 205 + integer, parameter :: id_SOAGff2 = 206 + integer, parameter :: id_SOAGff3 = 207 + integer, parameter :: id_SOAGff4 = 208 + integer, parameter :: id_ST80_25 = 209 + integer, parameter :: id_SVOCbb = 210 + integer, parameter :: id_SVOCff = 211 + integer, parameter :: id_TEPOMUC = 212 + integer, parameter :: id_TERP2OOH = 213 + integer, parameter :: id_TERPNIT = 214 + integer, parameter :: id_TERPOOH = 215 + integer, parameter :: id_TERPROD1 = 216 + integer, parameter :: id_TERPROD2 = 217 + integer, parameter :: id_TOLOOH = 218 + integer, parameter :: id_TOLUENE = 219 + integer, parameter :: id_XOOH = 220 + integer, parameter :: id_XYLENES = 221 + integer, parameter :: id_XYLENOOH = 222 + integer, parameter :: id_XYLOL = 223 + integer, parameter :: id_XYLOLOOH = 224 + integer, parameter :: id_NHDEP = 225 + integer, parameter :: id_NDEP = 226 + integer, parameter :: id_ACBZO2 = 227 + integer, parameter :: id_ALKO2 = 228 + integer, parameter :: id_BCARYO2VBS = 229 + integer, parameter :: id_BENZO2 = 230 + integer, parameter :: id_BENZO2VBS = 231 + integer, parameter :: id_BZOO = 232 + integer, parameter :: id_C2H5O2 = 233 + integer, parameter :: id_C3H7O2 = 234 + integer, parameter :: id_C6H5O2 = 235 + integer, parameter :: id_CH3CO3 = 236 + integer, parameter :: id_CH3O2 = 237 + integer, parameter :: id_DICARBO2 = 238 + integer, parameter :: id_e = 239 + integer, parameter :: id_ENEO2 = 240 + integer, parameter :: id_EO = 241 + integer, parameter :: id_EO2 = 242 + integer, parameter :: id_HO2 = 243 + integer, parameter :: id_HOCH2OO = 244 + integer, parameter :: id_ISOPAO2 = 245 + integer, parameter :: id_ISOPBO2 = 246 + integer, parameter :: id_ISOPO2VBS = 247 + integer, parameter :: id_IVOCbbO2VBS = 248 + integer, parameter :: id_IVOCffO2VBS = 249 + integer, parameter :: id_MACRO2 = 250 + integer, parameter :: id_MALO2 = 251 + integer, parameter :: id_MCO3 = 252 + integer, parameter :: id_MDIALO2 = 253 + integer, parameter :: id_MEKO2 = 254 + integer, parameter :: id_MTERPO2VBS = 255 integer, parameter :: id_N2D = 256 integer, parameter :: id_N2p = 257 integer, parameter :: id_NOp = 258 @@ -272,8 +272,10 @@ module m_spc_id integer, parameter :: id_TERP2O2 = 270 integer, parameter :: id_TERPO2 = 271 integer, parameter :: id_TOLO2 = 272 - integer, parameter :: id_XO2 = 273 - integer, parameter :: id_XYLENO2 = 274 - integer, parameter :: id_XYLOLO2 = 275 - integer, parameter :: id_H2O = 276 + integer, parameter :: id_TOLUO2VBS = 273 + integer, parameter :: id_XO2 = 274 + integer, parameter :: id_XYLENO2 = 275 + integer, parameter :: id_XYLEO2VBS = 276 + integer, parameter :: id_XYLOLO2 = 277 + integer, parameter :: id_H2O = 278 end module m_spc_id diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_adjrxt.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_adjrxt.F90 index 505efdcecb..dc17f51f10 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_adjrxt.F90 @@ -26,30 +26,30 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 229) = rate(:,:, 229) * inv(:,:, 1) rate(:,:, 230) = rate(:,:, 230) * inv(:,:, 1) rate(:,:, 232) = rate(:,:, 232) * inv(:,:, 1) - rate(:,:, 233) = rate(:,:, 233) * inv(:,:, 1) - rate(:,:, 248) = rate(:,:, 248) * inv(:,:, 1) - rate(:,:, 268) = rate(:,:, 268) * inv(:,:, 1) - rate(:,:, 269) = rate(:,:, 269) * inv(:,:, 1) - rate(:,:, 279) = rate(:,:, 279) * inv(:,:, 1) - rate(:,:, 325) = rate(:,:, 325) * inv(:,:, 1) - rate(:,:, 335) = rate(:,:, 335) * inv(:,:, 1) - rate(:,:, 336) = rate(:,:, 336) * inv(:,:, 1) - rate(:,:, 337) = rate(:,:, 337) * inv(:,:, 1) - rate(:,:, 363) = rate(:,:, 363) * inv(:,:, 1) - rate(:,:, 364) = rate(:,:, 364) * inv(:,:, 1) - rate(:,:, 365) = rate(:,:, 365) * inv(:,:, 1) - rate(:,:, 385) = rate(:,:, 385) * inv(:,:, 1) - rate(:,:, 411) = rate(:,:, 411) * inv(:,:, 1) + rate(:,:, 235) = rate(:,:, 235) * inv(:,:, 1) + rate(:,:, 251) = rate(:,:, 251) * inv(:,:, 1) + rate(:,:, 271) = rate(:,:, 271) * inv(:,:, 1) + rate(:,:, 272) = rate(:,:, 272) * inv(:,:, 1) + rate(:,:, 282) = rate(:,:, 282) * inv(:,:, 1) + rate(:,:, 328) = rate(:,:, 328) * inv(:,:, 1) + rate(:,:, 338) = rate(:,:, 338) * inv(:,:, 1) + rate(:,:, 339) = rate(:,:, 339) * inv(:,:, 1) + rate(:,:, 340) = rate(:,:, 340) * inv(:,:, 1) + rate(:,:, 366) = rate(:,:, 366) * inv(:,:, 1) + rate(:,:, 367) = rate(:,:, 367) * inv(:,:, 1) + rate(:,:, 368) = rate(:,:, 368) * inv(:,:, 1) + rate(:,:, 388) = rate(:,:, 388) * inv(:,:, 1) rate(:,:, 414) = rate(:,:, 414) * inv(:,:, 1) - rate(:,:, 415) = rate(:,:, 415) * inv(:,:, 1) - rate(:,:, 472) = rate(:,:, 472) * inv(:,:, 1) + rate(:,:, 417) = rate(:,:, 417) * inv(:,:, 1) + rate(:,:, 418) = rate(:,:, 418) * inv(:,:, 1) rate(:,:, 475) = rate(:,:, 475) * inv(:,:, 1) rate(:,:, 478) = rate(:,:, 478) * inv(:,:, 1) - rate(:,:, 485) = rate(:,:, 485) * inv(:,:, 1) - rate(:,:, 490) = rate(:,:, 490) * inv(:,:, 1) - rate(:,:, 527) = rate(:,:, 527) * inv(:,:, 1) - rate(:,:, 613) = rate(:,:, 613) * inv(:,:, 2) + rate(:,:, 481) = rate(:,:, 481) * inv(:,:, 1) + rate(:,:, 488) = rate(:,:, 488) * inv(:,:, 1) + rate(:,:, 493) = rate(:,:, 493) * inv(:,:, 1) + rate(:,:, 530) = rate(:,:, 530) * inv(:,:, 1) rate(:,:, 616) = rate(:,:, 616) * inv(:,:, 2) + rate(:,:, 619) = rate(:,:, 619) * inv(:,:, 2) rate(:,:, 173) = rate(:,:, 173) * m(:,:) rate(:,:, 174) = rate(:,:, 174) * m(:,:) rate(:,:, 176) = rate(:,:, 176) * m(:,:) @@ -81,7 +81,6 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 204) = rate(:,:, 204) * m(:,:) rate(:,:, 205) = rate(:,:, 205) * m(:,:) rate(:,:, 206) = rate(:,:, 206) * m(:,:) - rate(:,:, 207) = rate(:,:, 207) * m(:,:) rate(:,:, 208) = rate(:,:, 208) * m(:,:) rate(:,:, 209) = rate(:,:, 209) * m(:,:) rate(:,:, 210) = rate(:,:, 210) * m(:,:) @@ -106,8 +105,8 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 229) = rate(:,:, 229) * m(:,:) rate(:,:, 230) = rate(:,:, 230) * m(:,:) rate(:,:, 231) = rate(:,:, 231) * m(:,:) + rate(:,:, 233) = rate(:,:, 233) * m(:,:) rate(:,:, 234) = rate(:,:, 234) * m(:,:) - rate(:,:, 235) = rate(:,:, 235) * m(:,:) rate(:,:, 236) = rate(:,:, 236) * m(:,:) rate(:,:, 237) = rate(:,:, 237) * m(:,:) rate(:,:, 238) = rate(:,:, 238) * m(:,:) @@ -141,9 +140,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 266) = rate(:,:, 266) * m(:,:) rate(:,:, 267) = rate(:,:, 267) * m(:,:) rate(:,:, 268) = rate(:,:, 268) * m(:,:) + rate(:,:, 269) = rate(:,:, 269) * m(:,:) rate(:,:, 270) = rate(:,:, 270) * m(:,:) rate(:,:, 271) = rate(:,:, 271) * m(:,:) - rate(:,:, 272) = rate(:,:, 272) * m(:,:) rate(:,:, 273) = rate(:,:, 273) * m(:,:) rate(:,:, 274) = rate(:,:, 274) * m(:,:) rate(:,:, 275) = rate(:,:, 275) * m(:,:) @@ -199,9 +198,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 325) = rate(:,:, 325) * m(:,:) rate(:,:, 326) = rate(:,:, 326) * m(:,:) rate(:,:, 327) = rate(:,:, 327) * m(:,:) + rate(:,:, 328) = rate(:,:, 328) * m(:,:) rate(:,:, 329) = rate(:,:, 329) * m(:,:) rate(:,:, 330) = rate(:,:, 330) * m(:,:) - rate(:,:, 331) = rate(:,:, 331) * m(:,:) rate(:,:, 332) = rate(:,:, 332) * m(:,:) rate(:,:, 333) = rate(:,:, 333) * m(:,:) rate(:,:, 334) = rate(:,:, 334) * m(:,:) @@ -228,15 +227,15 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 355) = rate(:,:, 355) * m(:,:) rate(:,:, 356) = rate(:,:, 356) * m(:,:) rate(:,:, 357) = rate(:,:, 357) * m(:,:) + rate(:,:, 358) = rate(:,:, 358) * m(:,:) rate(:,:, 359) = rate(:,:, 359) * m(:,:) rate(:,:, 360) = rate(:,:, 360) * m(:,:) - rate(:,:, 361) = rate(:,:, 361) * m(:,:) rate(:,:, 362) = rate(:,:, 362) * m(:,:) rate(:,:, 363) = rate(:,:, 363) * m(:,:) rate(:,:, 364) = rate(:,:, 364) * m(:,:) + rate(:,:, 365) = rate(:,:, 365) * m(:,:) rate(:,:, 366) = rate(:,:, 366) * m(:,:) rate(:,:, 367) = rate(:,:, 367) * m(:,:) - rate(:,:, 368) = rate(:,:, 368) * m(:,:) rate(:,:, 369) = rate(:,:, 369) * m(:,:) rate(:,:, 370) = rate(:,:, 370) * m(:,:) rate(:,:, 371) = rate(:,:, 371) * m(:,:) @@ -283,9 +282,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 412) = rate(:,:, 412) * m(:,:) rate(:,:, 413) = rate(:,:, 413) * m(:,:) rate(:,:, 414) = rate(:,:, 414) * m(:,:) + rate(:,:, 415) = rate(:,:, 415) * m(:,:) rate(:,:, 416) = rate(:,:, 416) * m(:,:) rate(:,:, 417) = rate(:,:, 417) * m(:,:) - rate(:,:, 418) = rate(:,:, 418) * m(:,:) rate(:,:, 419) = rate(:,:, 419) * m(:,:) rate(:,:, 420) = rate(:,:, 420) * m(:,:) rate(:,:, 421) = rate(:,:, 421) * m(:,:) @@ -300,9 +299,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 430) = rate(:,:, 430) * m(:,:) rate(:,:, 431) = rate(:,:, 431) * m(:,:) rate(:,:, 432) = rate(:,:, 432) * m(:,:) + rate(:,:, 433) = rate(:,:, 433) * m(:,:) rate(:,:, 434) = rate(:,:, 434) * m(:,:) rate(:,:, 435) = rate(:,:, 435) * m(:,:) - rate(:,:, 436) = rate(:,:, 436) * m(:,:) rate(:,:, 437) = rate(:,:, 437) * m(:,:) rate(:,:, 438) = rate(:,:, 438) * m(:,:) rate(:,:, 439) = rate(:,:, 439) * m(:,:) @@ -356,9 +355,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 487) = rate(:,:, 487) * m(:,:) rate(:,:, 488) = rate(:,:, 488) * m(:,:) rate(:,:, 489) = rate(:,:, 489) * m(:,:) + rate(:,:, 490) = rate(:,:, 490) * m(:,:) rate(:,:, 491) = rate(:,:, 491) * m(:,:) rate(:,:, 492) = rate(:,:, 492) * m(:,:) - rate(:,:, 493) = rate(:,:, 493) * m(:,:) rate(:,:, 494) = rate(:,:, 494) * m(:,:) rate(:,:, 495) = rate(:,:, 495) * m(:,:) rate(:,:, 496) = rate(:,:, 496) * m(:,:) @@ -405,9 +404,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 537) = rate(:,:, 537) * m(:,:) rate(:,:, 538) = rate(:,:, 538) * m(:,:) rate(:,:, 539) = rate(:,:, 539) * m(:,:) - rate(:,:, 553) = rate(:,:, 553) * m(:,:) - rate(:,:, 554) = rate(:,:, 554) * m(:,:) - rate(:,:, 555) = rate(:,:, 555) * m(:,:) + rate(:,:, 540) = rate(:,:, 540) * m(:,:) + rate(:,:, 541) = rate(:,:, 541) * m(:,:) + rate(:,:, 542) = rate(:,:, 542) * m(:,:) rate(:,:, 556) = rate(:,:, 556) * m(:,:) rate(:,:, 557) = rate(:,:, 557) * m(:,:) rate(:,:, 558) = rate(:,:, 558) * m(:,:) @@ -434,19 +433,19 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 579) = rate(:,:, 579) * m(:,:) rate(:,:, 580) = rate(:,:, 580) * m(:,:) rate(:,:, 581) = rate(:,:, 581) * m(:,:) + rate(:,:, 582) = rate(:,:, 582) * m(:,:) rate(:,:, 583) = rate(:,:, 583) * m(:,:) rate(:,:, 584) = rate(:,:, 584) * m(:,:) - rate(:,:, 585) = rate(:,:, 585) * m(:,:) + rate(:,:, 586) = rate(:,:, 586) * m(:,:) rate(:,:, 587) = rate(:,:, 587) * m(:,:) - rate(:,:, 592) = rate(:,:, 592) * m(:,:) - rate(:,:, 593) = rate(:,:, 593) * m(:,:) - rate(:,:, 594) = rate(:,:, 594) * m(:,:) + rate(:,:, 588) = rate(:,:, 588) * m(:,:) + rate(:,:, 590) = rate(:,:, 590) * m(:,:) + rate(:,:, 595) = rate(:,:, 595) * m(:,:) + rate(:,:, 596) = rate(:,:, 596) * m(:,:) rate(:,:, 597) = rate(:,:, 597) * m(:,:) - rate(:,:, 598) = rate(:,:, 598) * m(:,:) - rate(:,:, 599) = rate(:,:, 599) * m(:,:) + rate(:,:, 600) = rate(:,:, 600) * m(:,:) + rate(:,:, 601) = rate(:,:, 601) * m(:,:) rate(:,:, 602) = rate(:,:, 602) * m(:,:) - rate(:,:, 603) = rate(:,:, 603) * m(:,:) - rate(:,:, 604) = rate(:,:, 604) * m(:,:) rate(:,:, 605) = rate(:,:, 605) * m(:,:) rate(:,:, 606) = rate(:,:, 606) * m(:,:) rate(:,:, 607) = rate(:,:, 607) * m(:,:) @@ -455,8 +454,11 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 610) = rate(:,:, 610) * m(:,:) rate(:,:, 611) = rate(:,:, 611) * m(:,:) rate(:,:, 612) = rate(:,:, 612) * m(:,:) + rate(:,:, 613) = rate(:,:, 613) * m(:,:) rate(:,:, 614) = rate(:,:, 614) * m(:,:) rate(:,:, 615) = rate(:,:, 615) * m(:,:) rate(:,:, 617) = rate(:,:, 617) * m(:,:) + rate(:,:, 618) = rate(:,:, 618) * m(:,:) + rate(:,:, 620) = rate(:,:, 620) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_indprd.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_indprd.F90 index 56b1dfd5ba..8649e1b639 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_indprd.F90 @@ -20,183 +20,177 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) ! ... "independent" production for Explicit species !-------------------------------------------------------------------- if( class == 1 ) then - prod(:,1) =rxt(:,539)*y(:,265)*y(:,127) +rxt(:,547)*y(:,128) - prod(:,2) = (rxt(:,472)*y(:,242) +rxt(:,475)*y(:,252) +rxt(:,478)*y(:,254) + & - rxt(:,482)*y(:,150))*y(:,132) +.500_r8*rxt(:,411)*y(:,265)*y(:,115) & - +.200_r8*rxt(:,507)*y(:,260)*y(:,131) +.500_r8*rxt(:,519)*y(:,220) & - *y(:,133) + prod(:,1) =rxt(:,542)*y(:,265)*y(:,121) +rxt(:,550)*y(:,122) + prod(:,2) = (rxt(:,475)*y(:,238) +rxt(:,478)*y(:,251) +rxt(:,481)*y(:,253) + & + rxt(:,485)*y(:,144))*y(:,126) +.500_r8*rxt(:,414)*y(:,265)*y(:,110) & + +.200_r8*rxt(:,510)*y(:,260)*y(:,125) +.500_r8*rxt(:,522)*y(:,216) & + *y(:,127) !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then - prod(:,191) = 0._r8 - prod(:,192) = 0._r8 - prod(:,1) = + extfrc(:,25) - prod(:,2) = + extfrc(:,19) - prod(:,3) = + extfrc(:,2) - prod(:,225) = 0._r8 - prod(:,75) = 0._r8 - prod(:,107) = 0._r8 - prod(:,81) = 0._r8 - prod(:,155) = 0._r8 - prod(:,108) = 0._r8 + prod(:,196) = 0._r8 + prod(:,194) = 0._r8 + prod(:,1) = + extfrc(:,23) + prod(:,2) = + extfrc(:,5) + prod(:,3) = + extfrc(:,15) + prod(:,227) = 0._r8 + prod(:,109) = 0._r8 prod(:,158) = 0._r8 + prod(:,110) = 0._r8 prod(:,164) = 0._r8 - prod(:,134) = 0._r8 - prod(:,188) = 0._r8 - prod(:,144) = 0._r8 - prod(:,120) = 0._r8 + prod(:,166) = 0._r8 + prod(:,139) = 0._r8 + prod(:,187) = 0._r8 prod(:,149) = 0._r8 - prod(:,256) = 0._r8 prod(:,121) = 0._r8 + prod(:,150) = 0._r8 prod(:,258) = 0._r8 - prod(:,179) = 0._r8 + prod(:,122) = 0._r8 + prod(:,260) = 0._r8 + prod(:,182) = 0._r8 prod(:,4) = 0._r8 - prod(:,123) = 0._r8 - prod(:,142) = 0._r8 - prod(:,133) = 0._r8 - prod(:,181) = 0._r8 - prod(:,130) = 0._r8 + prod(:,124) = 0._r8 prod(:,143) = 0._r8 + prod(:,134) = 0._r8 + prod(:,177) = 0._r8 + prod(:,130) = 0._r8 + prod(:,144) = 0._r8 prod(:,135) = 0._r8 - prod(:,234) = 0._r8 - prod(:,153) = 0._r8 + prod(:,236) = 0._r8 + prod(:,154) = 0._r8 prod(:,136) = 0._r8 - prod(:,131) = 0._r8 - prod(:,90) = 0._r8 + prod(:,132) = 0._r8 + prod(:,92) = 0._r8 + prod(:,101) = 0._r8 prod(:,102) = 0._r8 - prod(:,103) = 0._r8 - prod(:,93) = 0._r8 - prod(:,104) = 0._r8 - prod(:,94) = 0._r8 - prod(:,105) = 0._r8 prod(:,95) = 0._r8 - prod(:,166) = 0._r8 - prod(:,273) = 0._r8 - prod(:,182) = 0._r8 + prod(:,103) = 0._r8 prod(:,96) = 0._r8 - prod(:,235) = 0._r8 - prod(:,148) = 0._r8 - prod(:,91) = 0._r8 - prod(:,230) = 0._r8 - prod(:,245) = 0._r8 - prod(:,196) = 0._r8 - prod(:,183) = 0._r8 - prod(:,207) = 0._r8 + prod(:,104) = 0._r8 + prod(:,97) = 0._r8 + prod(:,168) = 0._r8 + prod(:,274) = 0._r8 + prod(:,190) = 0._r8 + prod(:,98) = 0._r8 + prod(:,237) = 0._r8 + prod(:,151) = 0._r8 + prod(:,93) = 0._r8 + prod(:,232) = 0._r8 + prod(:,247) = 0._r8 + prod(:,198) = 0._r8 + prod(:,188) = 0._r8 + prod(:,210) = 0._r8 prod(:,156) = 0._r8 - prod(:,265) = 0._r8 + prod(:,261) = 0._r8 prod(:,157) = 0._r8 - prod(:,267) = 0._r8 - prod(:,106) = 0._r8 - prod(:,92) = 0._r8 - prod(:,259) = 0._r8 - prod(:,223) = 0._r8 + prod(:,265) = 0._r8 + prod(:,108) = 0._r8 + prod(:,94) = 0._r8 + prod(:,275) = 0._r8 + prod(:,226) = 0._r8 prod(:,5) = 0._r8 - prod(:,236) = + extfrc(:,1) - prod(:,252) = 0._r8 - prod(:,119) = 0._r8 + prod(:,238) = + extfrc(:,1) + prod(:,254) = 0._r8 prod(:,126) = 0._r8 - prod(:,113) = 0._r8 + prod(:,128) = 0._r8 + prod(:,115) = 0._r8 prod(:,138) = 0._r8 prod(:,6) = 0._r8 prod(:,7) = 0._r8 prod(:,8) = 0._r8 prod(:,9) = 0._r8 - prod(:,100) = 0._r8 - prod(:,219) = 0._r8 - prod(:,237) = 0._r8 - prod(:,227) = 0._r8 + prod(:,106) = 0._r8 + prod(:,221) = 0._r8 + prod(:,239) = 0._r8 + prod(:,229) = 0._r8 prod(:,268) = 0._r8 - prod(:,253) = 0._r8 - prod(:,97) = 0._r8 - prod(:,184) = 0._r8 - prod(:,99) = 0._r8 - prod(:,210) = 0._r8 - prod(:,125) = 0._r8 - prod(:,127) = 0._r8 - prod(:,139) = 0._r8 prod(:,255) = 0._r8 - prod(:,116) = 0._r8 - prod(:,216) = 0._r8 - prod(:,137) = 0._r8 - prod(:,269) = 0._r8 - prod(:,167) = 0._r8 - prod(:,205) = 0._r8 - prod(:,209) = 0._r8 - prod(:,239) = 0._r8 - prod(:,124) = 0._r8 - prod(:,240) = 0._r8 - prod(:,147) = 0._r8 - prod(:,98) = 0._r8 - prod(:,214) = 0._r8 + prod(:,99) = 0._r8 prod(:,185) = 0._r8 - prod(:,178) = 0._r8 - prod(:,243) = 0._r8 - prod(:,154) = 0._r8 - prod(:,73) = 0._r8 - prod(:,197) = 0._r8 - prod(:,67) = 0._r8 - prod(:,66) = 0._r8 - prod(:,83) = 0._r8 - prod(:,82) = 0._r8 - prod(:,244) = 0._r8 - prod(:,146) = 0._r8 + prod(:,107) = 0._r8 + prod(:,211) = 0._r8 + prod(:,127) = 0._r8 + prod(:,129) = 0._r8 + prod(:,140) = 0._r8 + prod(:,257) = 0._r8 + prod(:,118) = 0._r8 + prod(:,219) = 0._r8 + prod(:,141) = 0._r8 + prod(:,271) = 0._r8 prod(:,173) = 0._r8 + prod(:,206) = 0._r8 + prod(:,212) = 0._r8 + prod(:,241) = 0._r8 + prod(:,125) = 0._r8 + prod(:,242) = 0._r8 prod(:,145) = 0._r8 - prod(:,187) = 0._r8 - prod(:,222) = 0._r8 - prod(:,74) = 0._r8 - prod(:,249) = 0._r8 - prod(:,224) = (.800_r8*rxt(:,112) +rxt(:,115) +rxt(:,116) + & - .800_r8*rxt(:,118)) + extfrc(:,21) - prod(:,128) = 0._r8 - prod(:,132) = 0._r8 - prod(:,162) = 0._r8 - prod(:,231) = 0._r8 + prod(:,105) = 0._r8 + prod(:,217) = 0._r8 + prod(:,184) = 0._r8 + prod(:,179) = 0._r8 + prod(:,245) = 0._r8 + prod(:,155) = 0._r8 + prod(:,203) = 0._r8 + prod(:,85) = 0._r8 + prod(:,87) = 0._r8 + prod(:,246) = 0._r8 + prod(:,147) = 0._r8 + prod(:,175) = 0._r8 + prod(:,146) = 0._r8 + prod(:,183) = 0._r8 + prod(:,224) = 0._r8 + prod(:,251) = 0._r8 + prod(:,225) = (.800_r8*rxt(:,112) +rxt(:,115) +rxt(:,116) + & + .800_r8*rxt(:,118)) + extfrc(:,24) + prod(:,133) = 0._r8 + prod(:,137) = 0._r8 + prod(:,159) = 0._r8 + prod(:,233) = 0._r8 prod(:,10) = 0._r8 prod(:,11) = 0._r8 prod(:,12) = 0._r8 - prod(:,89) = 0._r8 + prod(:,91) = 0._r8 prod(:,13) = 0._r8 prod(:,14) = 0._r8 prod(:,15) = 0._r8 - prod(:,261) = + extfrc(:,11) - prod(:,260) = + extfrc(:,12) - prod(:,264) = 0._r8 - prod(:,215) = 0._r8 - prod(:,152) = 0._r8 - prod(:,16) = + extfrc(:,3) - prod(:,17) = + extfrc(:,4) + prod(:,264) = + extfrc(:,6) + prod(:,262) = + extfrc(:,4) + prod(:,273) = 0._r8 + prod(:,216) = 0._r8 + prod(:,163) = 0._r8 + prod(:,16) = + extfrc(:,7) + prod(:,17) = + extfrc(:,8) prod(:,18) = 0._r8 - prod(:,19) = + extfrc(:,5) - prod(:,20) = + extfrc(:,6) - prod(:,272) = 0._r8 - prod(:,257) = 0._r8 - prod(:,271) = 0._r8 + prod(:,19) = + extfrc(:,13) + prod(:,20) = 0._r8 + prod(:,266) = 0._r8 + prod(:,259) = 0._r8 + prod(:,267) = 0._r8 prod(:,21) = 0._r8 - prod(:,140) = 0._r8 - prod(:,150) = 0._r8 - prod(:,122) = 0._r8 - prod(:,176) = 0._r8 - prod(:,101) = 0._r8 - prod(:,169) = 0._r8 - prod(:,109) = 0._r8 - prod(:,141) = 0._r8 - prod(:,22) = + extfrc(:,7) - prod(:,23) = + extfrc(:,8) - prod(:,24) = + extfrc(:,9) - prod(:,25) = + extfrc(:,10) - prod(:,177) = 0._r8 - prod(:,151) = 0._r8 + prod(:,148) = 0._r8 + prod(:,152) = 0._r8 + prod(:,123) = 0._r8 + prod(:,178) = 0._r8 + prod(:,100) = 0._r8 + prod(:,171) = 0._r8 + prod(:,111) = 0._r8 + prod(:,142) = 0._r8 + prod(:,22) = 0._r8 + prod(:,23) = 0._r8 + prod(:,24) = + extfrc(:,11) + prod(:,25) = + extfrc(:,2) + prod(:,26) = + extfrc(:,12) + prod(:,27) = + extfrc(:,14) + prod(:,180) = 0._r8 + prod(:,153) = 0._r8 prod(:,199) = 0._r8 - prod(:,26) = 0._r8 - prod(:,254) = 0._r8 - prod(:,221) = + extfrc(:,13) - prod(:,129) = 0._r8 - prod(:,27) = + extfrc(:,16) - prod(:,28) = + extfrc(:,17) - prod(:,29) = 0._r8 - prod(:,30) = + extfrc(:,18) + prod(:,28) = 0._r8 + prod(:,256) = 0._r8 + prod(:,223) = + extfrc(:,3) + prod(:,131) = 0._r8 + prod(:,29) = + extfrc(:,9) + prod(:,30) = + extfrc(:,10) prod(:,31) = 0._r8 prod(:,32) = 0._r8 prod(:,33) = 0._r8 @@ -232,80 +226,88 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,63) = 0._r8 prod(:,64) = 0._r8 prod(:,65) = 0._r8 + prod(:,66) = 0._r8 + prod(:,67) = 0._r8 prod(:,68) = 0._r8 prod(:,69) = 0._r8 prod(:,70) = 0._r8 prod(:,71) = 0._r8 prod(:,72) = 0._r8 + prod(:,73) = 0._r8 + prod(:,74) = 0._r8 + prod(:,75) = 0._r8 prod(:,76) = 0._r8 prod(:,77) = 0._r8 prod(:,78) = 0._r8 - prod(:,79) = 0._r8 - prod(:,80) = 0._r8 - prod(:,84) = 0._r8 - prod(:,85) = + extfrc(:,14) - prod(:,86) = + extfrc(:,15) - prod(:,114) = 0._r8 - prod(:,194) = 0._r8 - prod(:,189) = 0._r8 - prod(:,168) = 0._r8 - prod(:,229) = 0._r8 - prod(:,233) = 0._r8 + prod(:,79) = + extfrc(:,16) + prod(:,80) = + extfrc(:,17) + prod(:,116) = 0._r8 + prod(:,195) = 0._r8 + prod(:,191) = 0._r8 + prod(:,169) = 0._r8 + prod(:,231) = 0._r8 + prod(:,235) = 0._r8 prod(:,186) = 0._r8 - prod(:,112) = 0._r8 - prod(:,87) = 0._r8 - prod(:,115) = 0._r8 + prod(:,114) = 0._r8 prod(:,117) = 0._r8 - prod(:,198) = 0._r8 - prod(:,88) = 0._r8 - prod(:,118) = 0._r8 - prod(:,159) = 0._r8 - prod(:,174) = 0._r8 - prod(:,226) = 0._r8 - prod(:,170) = 0._r8 + prod(:,119) = 0._r8 + prod(:,200) = 0._r8 + prod(:,120) = 0._r8 prod(:,160) = 0._r8 - prod(:,217) = 0._r8 - prod(:,220) = 0._r8 - prod(:,190) = 0._r8 - prod(:,251) = 0._r8 - prod(:,270) = 0._r8 - prod(:,203) = 0._r8 - prod(:,213) = (rxt(:,113) +rxt(:,114) +rxt(:,115) +rxt(:,116) +rxt(:,117) + & - rxt(:,119)) + extfrc(:,20) - prod(:,180) = 0._r8 - prod(:,165) = 0._r8 - prod(:,204) = 0._r8 - prod(:,266) = 0._r8 + prod(:,176) = 0._r8 + prod(:,228) = 0._r8 + prod(:,81) = 0._r8 + prod(:,170) = 0._r8 + prod(:,82) = 0._r8 prod(:,161) = 0._r8 - prod(:,246) = 0._r8 - prod(:,247) = 0._r8 + prod(:,218) = 0._r8 + prod(:,222) = 0._r8 + prod(:,192) = 0._r8 + prod(:,253) = 0._r8 + prod(:,269) = 0._r8 + prod(:,205) = 0._r8 + prod(:,215) = (rxt(:,113) +rxt(:,114) +rxt(:,115) +rxt(:,116) +rxt(:,117) + & + rxt(:,119)) + extfrc(:,22) + prod(:,181) = 0._r8 + prod(:,167) = 0._r8 + prod(:,207) = 0._r8 + prod(:,272) = 0._r8 + prod(:,162) = 0._r8 prod(:,248) = 0._r8 - prod(:,200) = 0._r8 + prod(:,249) = 0._r8 + prod(:,83) = 0._r8 + prod(:,84) = 0._r8 + prod(:,86) = 0._r8 prod(:,250) = 0._r8 - prod(:,218) = 0._r8 - prod(:,193) = 0._r8 - prod(:,175) = (1.200_r8*rxt(:,112) +rxt(:,113) +rxt(:,117) + & - 1.200_r8*rxt(:,118)) + extfrc(:,22) - prod(:,195) = (rxt(:,114) +rxt(:,119)) + extfrc(:,26) - prod(:,211) = 0._r8 - prod(:,171) = (rxt(:,113) +rxt(:,115) +rxt(:,116) +rxt(:,117)) + extfrc(:,27) - prod(:,232) = 0._r8 - prod(:,262) = 0._r8 - prod(:,110) = 0._r8 - prod(:,111) = 0._r8 - prod(:,212) = 0._r8 - prod(:,263) = + extfrc(:,23) - prod(:,206) = + extfrc(:,24) - prod(:,163) = 0._r8 - prod(:,208) = 0._r8 - prod(:,241) = 0._r8 - prod(:,238) = 0._r8 - prod(:,228) = 0._r8 prod(:,201) = 0._r8 - prod(:,242) = 0._r8 + prod(:,252) = 0._r8 + prod(:,220) = 0._r8 + prod(:,197) = 0._r8 + prod(:,88) = 0._r8 + prod(:,193) = (1.200_r8*rxt(:,112) +rxt(:,113) +rxt(:,117) + & + 1.200_r8*rxt(:,118)) + extfrc(:,21) + prod(:,189) = (rxt(:,114) +rxt(:,119)) + extfrc(:,19) + prod(:,213) = 0._r8 + prod(:,172) = (rxt(:,113) +rxt(:,115) +rxt(:,116) +rxt(:,117)) + extfrc(:,20) + prod(:,234) = 0._r8 + prod(:,270) = 0._r8 + prod(:,112) = 0._r8 + prod(:,113) = 0._r8 + prod(:,214) = 0._r8 + prod(:,263) = + extfrc(:,25) + prod(:,208) = + extfrc(:,18) + prod(:,165) = 0._r8 + prod(:,209) = 0._r8 + prod(:,243) = 0._r8 + prod(:,240) = 0._r8 + prod(:,230) = 0._r8 prod(:,202) = 0._r8 - prod(:,172) = 0._r8 - prod(:,274) = 0._r8 + prod(:,89) = 0._r8 + prod(:,244) = 0._r8 + prod(:,204) = 0._r8 + prod(:,90) = 0._r8 + prod(:,174) = 0._r8 + prod(:,276) = 0._r8 end if end subroutine indprd end module mo_indprd diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lin_matrix.F90 index 68d9462d99..f6e40e822f 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lin_matrix.F90 @@ -23,207 +23,208 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,699) = -( rxt(k,20) + het_rates(k,1) ) - mat(k,710) = -( rxt(k,21) + het_rates(k,2) ) + mat(k,732) = -( rxt(k,20) + het_rates(k,1) ) + mat(k,711) = -( rxt(k,21) + het_rates(k,2) ) mat(k,1) = -( het_rates(k,3) ) mat(k,2) = -( het_rates(k,4) ) mat(k,3) = -( het_rates(k,5) ) - mat(k,1062) = -( het_rates(k,6) ) - mat(k,96) = -( het_rates(k,7) ) - mat(k,208) = -( het_rates(k,8) ) - mat(k,107) = -( het_rates(k,9) ) - mat(k,449) = -( rxt(k,22) + het_rates(k,10) ) - mat(k,214) = -( rxt(k,23) + het_rates(k,11) ) - mat(k,467) = -( rxt(k,24) + het_rates(k,12) ) - mat(k,506) = -( rxt(k,25) + het_rates(k,13) ) - mat(k,450) = .500_r8*rxt(k,22) - mat(k,215) = rxt(k,23) - mat(k,661) = .200_r8*rxt(k,71) + mat(k,1063) = -( het_rates(k,6) ) + mat(k,210) = -( het_rates(k,7) ) + mat(k,457) = -( rxt(k,22) + het_rates(k,8) ) + mat(k,216) = -( rxt(k,23) + het_rates(k,9) ) + mat(k,495) = -( rxt(k,24) + het_rates(k,10) ) + mat(k,508) = -( rxt(k,25) + het_rates(k,11) ) + mat(k,458) = .500_r8*rxt(k,22) + mat(k,217) = rxt(k,23) + mat(k,651) = .200_r8*rxt(k,71) mat(k,764) = .060_r8*rxt(k,73) - mat(k,331) = -( rxt(k,26) + het_rates(k,14) ) - mat(k,660) = .200_r8*rxt(k,71) + mat(k,351) = -( rxt(k,26) + het_rates(k,12) ) + mat(k,650) = .200_r8*rxt(k,71) mat(k,762) = .200_r8*rxt(k,73) - mat(k,680) = -( rxt(k,27) + het_rates(k,15) ) - mat(k,283) = rxt(k,47) - mat(k,1130) = rxt(k,57) - mat(k,663) = .200_r8*rxt(k,71) + mat(k,661) = -( rxt(k,27) + het_rates(k,13) ) + mat(k,282) = rxt(k,47) + mat(k,1131) = rxt(k,57) + mat(k,653) = .200_r8*rxt(k,71) mat(k,765) = .150_r8*rxt(k,73) - mat(k,383) = -( rxt(k,28) + het_rates(k,16) ) + mat(k,398) = -( rxt(k,28) + het_rates(k,14) ) mat(k,763) = .210_r8*rxt(k,73) - mat(k,270) = -( het_rates(k,17) ) - mat(k,409) = -( het_rates(k,18) ) - mat(k,1555) = -( het_rates(k,19) ) - mat(k,274) = rxt(k,75) - mat(k,1607) = rxt(k,76) - mat(k,606) = rxt(k,78) - mat(k,187) = rxt(k,80) - mat(k,193) = rxt(k,81) - mat(k,516) = 2.000_r8*rxt(k,87) - mat(k,630) = rxt(k,88) - mat(k,463) = 3.000_r8*rxt(k,91) - mat(k,171) = 2.000_r8*rxt(k,99) - mat(k,881) = rxt(k,100) - mat(k,843) = rxt(k,106) - mat(k,273) = -( rxt(k,75) + het_rates(k,20) ) - mat(k,1609) = -( rxt(k,76) + het_rates(k,21) ) - mat(k,607) = rxt(k,77) - mat(k,604) = -( rxt(k,77) + rxt(k,78) + rxt(k,588) + rxt(k,591) + rxt(k,596) & - + het_rates(k,22) ) - mat(k,4) = -( het_rates(k,23) ) - mat(k,279) = -( het_rates(k,24) ) - mat(k,372) = rxt(k,29) - mat(k,373) = -( rxt(k,29) + het_rates(k,25) ) - mat(k,325) = -( het_rates(k,26) ) - mat(k,620) = -( het_rates(k,27) ) - mat(k,311) = -( het_rates(k,28) ) - mat(k,378) = -( rxt(k,30) + het_rates(k,29) ) - mat(k,334) = -( het_rates(k,30) ) - mat(k,1177) = -( het_rates(k,31) ) - mat(k,1414) = .700_r8*rxt(k,56) - mat(k,437) = -( rxt(k,31) + het_rates(k,32) ) - mat(k,340) = -( het_rates(k,33) ) - mat(k,315) = -( rxt(k,32) + het_rates(k,34) ) - mat(k,144) = -( rxt(k,79) + het_rates(k,35) ) - mat(k,185) = -( rxt(k,80) + het_rates(k,36) ) - mat(k,190) = -( rxt(k,81) + het_rates(k,37) ) - mat(k,153) = -( rxt(k,82) + het_rates(k,38) ) - mat(k,195) = -( rxt(k,83) + het_rates(k,39) ) - mat(k,157) = -( rxt(k,84) + het_rates(k,40) ) - mat(k,200) = -( rxt(k,85) + het_rates(k,41) ) - mat(k,161) = -( rxt(k,86) + het_rates(k,42) ) - mat(k,514) = -( rxt(k,87) + het_rates(k,43) ) - mat(k,2496) = -( rxt(k,33) + rxt(k,34) + het_rates(k,44) ) - mat(k,708) = .100_r8*rxt(k,20) - mat(k,719) = .100_r8*rxt(k,21) - mat(k,459) = rxt(k,39) - mat(k,2101) = .180_r8*rxt(k,40) - mat(k,1214) = rxt(k,44) - mat(k,1250) = .330_r8*rxt(k,46) - mat(k,1257) = rxt(k,48) - mat(k,761) = rxt(k,50) - mat(k,1322) = 1.340_r8*rxt(k,51) - mat(k,941) = rxt(k,58) - mat(k,594) = rxt(k,63) - mat(k,429) = rxt(k,64) - mat(k,737) = .375_r8*rxt(k,66) - mat(k,534) = .400_r8*rxt(k,68) - mat(k,1171) = .680_r8*rxt(k,70) - mat(k,492) = rxt(k,328) - mat(k,513) = 2.000_r8*rxt(k,358) - mat(k,628) = -( rxt(k,88) + het_rates(k,45) ) - mat(k,165) = -( rxt(k,89) + het_rates(k,46) ) - mat(k,1195) = -( rxt(k,35) + het_rates(k,47) ) - mat(k,703) = .400_r8*rxt(k,20) - mat(k,715) = .400_r8*rxt(k,21) - mat(k,380) = rxt(k,30) - mat(k,1236) = .330_r8*rxt(k,46) - mat(k,390) = rxt(k,54) - mat(k,590) = rxt(k,63) - mat(k,401) = -( rxt(k,90) + het_rates(k,48) ) - mat(k,147) = -( het_rates(k,49) ) - mat(k,1124) = -( rxt(k,36) + het_rates(k,50) ) - mat(k,702) = .250_r8*rxt(k,20) - mat(k,714) = .250_r8*rxt(k,21) - mat(k,439) = .820_r8*rxt(k,31) - mat(k,1235) = .170_r8*rxt(k,46) - mat(k,729) = .300_r8*rxt(k,66) - mat(k,531) = .050_r8*rxt(k,68) - mat(k,1162) = .500_r8*rxt(k,70) - mat(k,1325) = -( rxt(k,37) + het_rates(k,51) ) - mat(k,470) = .180_r8*rxt(k,24) - mat(k,385) = rxt(k,28) - mat(k,668) = .400_r8*rxt(k,71) + mat(k,269) = -( het_rates(k,15) ) + mat(k,403) = -( het_rates(k,16) ) + mat(k,1556) = -( het_rates(k,17) ) + mat(k,273) = rxt(k,75) + mat(k,1608) = rxt(k,76) + mat(k,619) = rxt(k,78) + mat(k,180) = rxt(k,80) + mat(k,186) = rxt(k,81) + mat(k,518) = 2.000_r8*rxt(k,87) + mat(k,683) = rxt(k,88) + mat(k,453) = 3.000_r8*rxt(k,91) + mat(k,173) = 2.000_r8*rxt(k,99) + mat(k,874) = rxt(k,100) + mat(k,834) = rxt(k,106) + mat(k,272) = -( rxt(k,75) + het_rates(k,18) ) + mat(k,1610) = -( rxt(k,76) + het_rates(k,19) ) + mat(k,620) = rxt(k,77) + mat(k,617) = -( rxt(k,77) + rxt(k,78) + rxt(k,591) + rxt(k,594) + rxt(k,599) & + + het_rates(k,20) ) + mat(k,4) = -( het_rates(k,21) ) + mat(k,278) = -( het_rates(k,22) ) + mat(k,369) = rxt(k,29) + mat(k,370) = -( rxt(k,29) + het_rates(k,23) ) + mat(k,321) = -( het_rates(k,24) ) + mat(k,577) = -( het_rates(k,25) ) + mat(k,304) = -( het_rates(k,26) ) + mat(k,375) = -( rxt(k,30) + het_rates(k,27) ) + mat(k,327) = -( het_rates(k,28) ) + mat(k,1178) = -( het_rates(k,29) ) + mat(k,1415) = .700_r8*rxt(k,56) + mat(k,433) = -( rxt(k,31) + het_rates(k,30) ) + mat(k,333) = -( het_rates(k,31) ) + mat(k,313) = -( rxt(k,32) + het_rates(k,32) ) + mat(k,146) = -( rxt(k,79) + het_rates(k,33) ) + mat(k,178) = -( rxt(k,80) + het_rates(k,34) ) + mat(k,183) = -( rxt(k,81) + het_rates(k,35) ) + mat(k,155) = -( rxt(k,82) + het_rates(k,36) ) + mat(k,188) = -( rxt(k,83) + het_rates(k,37) ) + mat(k,159) = -( rxt(k,84) + het_rates(k,38) ) + mat(k,193) = -( rxt(k,85) + het_rates(k,39) ) + mat(k,163) = -( rxt(k,86) + het_rates(k,40) ) + mat(k,516) = -( rxt(k,87) + het_rates(k,41) ) + mat(k,2470) = -( rxt(k,33) + rxt(k,34) + het_rates(k,42) ) + mat(k,741) = .100_r8*rxt(k,20) + mat(k,720) = .100_r8*rxt(k,21) + mat(k,449) = rxt(k,39) + mat(k,1647) = .180_r8*rxt(k,40) + mat(k,1215) = rxt(k,44) + mat(k,1251) = .330_r8*rxt(k,46) + mat(k,1258) = rxt(k,48) + mat(k,805) = rxt(k,50) + mat(k,1323) = 1.340_r8*rxt(k,51) + mat(k,923) = rxt(k,58) + mat(k,607) = rxt(k,63) + mat(k,431) = rxt(k,64) + mat(k,730) = .375_r8*rxt(k,66) + mat(k,529) = .400_r8*rxt(k,68) + mat(k,1172) = .680_r8*rxt(k,70) + mat(k,488) = rxt(k,331) + mat(k,515) = 2.000_r8*rxt(k,361) + mat(k,681) = -( rxt(k,88) + het_rates(k,43) ) + mat(k,167) = -( rxt(k,89) + het_rates(k,44) ) + mat(k,1196) = -( rxt(k,35) + het_rates(k,45) ) + mat(k,736) = .400_r8*rxt(k,20) + mat(k,716) = .400_r8*rxt(k,21) + mat(k,377) = rxt(k,30) + mat(k,1237) = .330_r8*rxt(k,46) + mat(k,385) = rxt(k,54) + mat(k,603) = rxt(k,63) + mat(k,411) = -( rxt(k,90) + het_rates(k,46) ) + mat(k,149) = -( het_rates(k,47) ) + mat(k,1125) = -( rxt(k,36) + het_rates(k,48) ) + mat(k,735) = .250_r8*rxt(k,20) + mat(k,715) = .250_r8*rxt(k,21) + mat(k,435) = .820_r8*rxt(k,31) + mat(k,1236) = .170_r8*rxt(k,46) + mat(k,722) = .300_r8*rxt(k,66) + mat(k,526) = .050_r8*rxt(k,68) + mat(k,1163) = .500_r8*rxt(k,70) + mat(k,1326) = -( rxt(k,37) + het_rates(k,49) ) + mat(k,498) = .180_r8*rxt(k,24) + mat(k,400) = rxt(k,28) + mat(k,658) = .400_r8*rxt(k,71) mat(k,773) = .540_r8*rxt(k,73) - mat(k,476) = .510_r8*rxt(k,74) - mat(k,749) = -( het_rates(k,52) ) - mat(k,637) = -( rxt(k,38) + het_rates(k,53) ) - mat(k,857) = -( het_rates(k,54) ) - mat(k,455) = -( rxt(k,39) + het_rates(k,55) ) - mat(k,2093) = -( rxt(k,40) + rxt(k,41) + het_rates(k,56) ) - mat(k,461) = -( rxt(k,91) + het_rates(k,57) ) - mat(k,2261) = -( het_rates(k,58) ) - mat(k,275) = rxt(k,75) - mat(k,146) = 4.000_r8*rxt(k,79) - mat(k,189) = rxt(k,80) - mat(k,156) = 2.000_r8*rxt(k,82) - mat(k,199) = 2.000_r8*rxt(k,83) + mat(k,472) = .510_r8*rxt(k,74) + mat(k,750) = -( het_rates(k,50) ) + mat(k,665) = -( rxt(k,38) + het_rates(k,51) ) + mat(k,869) = -( het_rates(k,52) ) + mat(k,445) = -( rxt(k,39) + het_rates(k,53) ) + mat(k,1634) = -( rxt(k,40) + rxt(k,41) + het_rates(k,54) ) + mat(k,451) = -( rxt(k,91) + het_rates(k,55) ) + mat(k,2009) = -( het_rates(k,56) ) + mat(k,274) = rxt(k,75) + mat(k,147) = 4.000_r8*rxt(k,79) + mat(k,181) = rxt(k,80) + mat(k,157) = 2.000_r8*rxt(k,82) + mat(k,191) = 2.000_r8*rxt(k,83) + mat(k,161) = 2.000_r8*rxt(k,84) + mat(k,196) = rxt(k,85) + mat(k,165) = 2.000_r8*rxt(k,86) + mat(k,169) = 3.000_r8*rxt(k,89) + mat(k,415) = rxt(k,90) + mat(k,208) = 2.000_r8*rxt(k,92) + mat(k,153) = 2.000_r8*rxt(k,93) + mat(k,2488) = rxt(k,94) + mat(k,1048) = rxt(k,95) + mat(k,296) = rxt(k,98) + mat(k,292) = rxt(k,101) + mat(k,302) = rxt(k,102) + mat(k,358) = rxt(k,103) + mat(k,1545) = rxt(k,104) + mat(k,885) = rxt(k,107) + mat(k,207) = -( rxt(k,92) + het_rates(k,57) ) + mat(k,152) = -( rxt(k,93) + rxt(k,272) + het_rates(k,58) ) + mat(k,2498) = -( rxt(k,94) + het_rates(k,59) ) + mat(k,1052) = rxt(k,96) + mat(k,397) = rxt(k,108) + mat(k,154) = 2.000_r8*rxt(k,272) + mat(k,1044) = -( rxt(k,95) + rxt(k,96) + rxt(k,593) + rxt(k,598) + rxt(k,604) & + + het_rates(k,60) ) + mat(k,5) = -( het_rates(k,61) ) + mat(k,1205) = -( het_rates(k,62) ) + mat(k,218) = 1.500_r8*rxt(k,23) + mat(k,497) = .450_r8*rxt(k,24) + mat(k,663) = .600_r8*rxt(k,27) + mat(k,399) = rxt(k,28) + mat(k,2450) = rxt(k,33) + rxt(k,34) + mat(k,1197) = rxt(k,35) + mat(k,1325) = rxt(k,37) + mat(k,1627) = .380_r8*rxt(k,40) + mat(k,1494) = rxt(k,42) + rxt(k,110) + mat(k,1210) = rxt(k,44) + mat(k,1100) = 2.000_r8*rxt(k,45) + mat(k,1238) = .330_r8*rxt(k,46) + mat(k,1313) = 1.340_r8*rxt(k,52) + mat(k,1417) = .700_r8*rxt(k,56) + mat(k,244) = 1.500_r8*rxt(k,65) + mat(k,724) = .250_r8*rxt(k,66) + mat(k,1120) = rxt(k,69) + mat(k,1165) = 1.700_r8*rxt(k,70) + mat(k,422) = rxt(k,137) + mat(k,1495) = -( rxt(k,42) + rxt(k,110) + het_rates(k,63) ) + mat(k,667) = rxt(k,38) + mat(k,1628) = .440_r8*rxt(k,40) + mat(k,587) = .400_r8*rxt(k,61) + mat(k,727) = rxt(k,66) + mat(k,1168) = .800_r8*rxt(k,70) + mat(k,286) = -( rxt(k,97) + het_rates(k,64) ) + mat(k,179) = rxt(k,80) + mat(k,184) = rxt(k,81) + mat(k,189) = rxt(k,83) mat(k,160) = 2.000_r8*rxt(k,84) - mat(k,204) = rxt(k,85) - mat(k,164) = 2.000_r8*rxt(k,86) - mat(k,167) = 3.000_r8*rxt(k,89) - mat(k,406) = rxt(k,90) - mat(k,206) = 2.000_r8*rxt(k,92) - mat(k,152) = 2.000_r8*rxt(k,93) - mat(k,1643) = rxt(k,94) - mat(k,1033) = rxt(k,95) + mat(k,194) = 2.000_r8*rxt(k,85) + mat(k,164) = rxt(k,86) + mat(k,172) = 2.000_r8*rxt(k,99) + mat(k,298) = rxt(k,102) + mat(k,354) = rxt(k,103) + mat(k,294) = -( rxt(k,98) + het_rates(k,65) ) + mat(k,156) = rxt(k,82) + mat(k,190) = rxt(k,83) + mat(k,290) = rxt(k,101) + mat(k,238) = -( het_rates(k,66) ) + mat(k,345) = -( het_rates(k,67) ) + mat(k,6) = -( het_rates(k,68) ) + mat(k,7) = -( het_rates(k,69) ) + mat(k,8) = -( het_rates(k,70) ) + mat(k,9) = -( rxt(k,621) + het_rates(k,71) ) + mat(k,201) = -( rxt(k,43) + het_rates(k,72) ) + mat(k,970) = -( het_rates(k,73) ) + mat(k,185) = rxt(k,81) + mat(k,195) = rxt(k,85) + mat(k,287) = 2.000_r8*rxt(k,97) mat(k,295) = rxt(k,98) - mat(k,291) = rxt(k,101) - mat(k,301) = rxt(k,102) - mat(k,360) = rxt(k,103) - mat(k,1547) = rxt(k,104) - mat(k,877) = rxt(k,107) - mat(k,205) = -( rxt(k,92) + het_rates(k,59) ) - mat(k,150) = -( rxt(k,93) + rxt(k,269) + het_rates(k,60) ) - mat(k,1636) = -( rxt(k,94) + het_rates(k,61) ) - mat(k,1029) = rxt(k,96) - mat(k,365) = rxt(k,108) - mat(k,151) = 2.000_r8*rxt(k,269) - mat(k,1027) = -( rxt(k,95) + rxt(k,96) + rxt(k,590) + rxt(k,595) + rxt(k,601) & - + het_rates(k,62) ) - mat(k,5) = -( het_rates(k,63) ) - mat(k,1204) = -( het_rates(k,64) ) - mat(k,216) = 1.500_r8*rxt(k,23) - mat(k,469) = .450_r8*rxt(k,24) - mat(k,682) = .600_r8*rxt(k,27) - mat(k,384) = rxt(k,28) - mat(k,2475) = rxt(k,33) + rxt(k,34) - mat(k,1196) = rxt(k,35) - mat(k,1324) = rxt(k,37) - mat(k,2080) = .380_r8*rxt(k,40) - mat(k,1493) = rxt(k,42) + rxt(k,110) - mat(k,1209) = rxt(k,44) - mat(k,1099) = 2.000_r8*rxt(k,45) - mat(k,1237) = .330_r8*rxt(k,46) - mat(k,1312) = 1.340_r8*rxt(k,52) - mat(k,1416) = .700_r8*rxt(k,56) - mat(k,242) = 1.500_r8*rxt(k,65) - mat(k,731) = .250_r8*rxt(k,66) - mat(k,1119) = rxt(k,69) - mat(k,1164) = 1.700_r8*rxt(k,70) - mat(k,420) = rxt(k,137) - mat(k,1494) = -( rxt(k,42) + rxt(k,110) + het_rates(k,65) ) - mat(k,639) = rxt(k,38) - mat(k,2081) = .440_r8*rxt(k,40) - mat(k,582) = .400_r8*rxt(k,61) - mat(k,734) = rxt(k,66) - mat(k,1167) = .800_r8*rxt(k,70) - mat(k,267) = -( rxt(k,97) + het_rates(k,66) ) - mat(k,186) = rxt(k,80) - mat(k,191) = rxt(k,81) - mat(k,196) = rxt(k,83) - mat(k,158) = 2.000_r8*rxt(k,84) - mat(k,201) = 2.000_r8*rxt(k,85) - mat(k,162) = rxt(k,86) - mat(k,170) = 2.000_r8*rxt(k,99) - mat(k,296) = rxt(k,102) - mat(k,355) = rxt(k,103) - mat(k,292) = -( rxt(k,98) + het_rates(k,67) ) - mat(k,154) = rxt(k,82) - mat(k,197) = rxt(k,83) - mat(k,288) = rxt(k,101) - mat(k,236) = -( het_rates(k,68) ) - mat(k,349) = -( het_rates(k,69) ) - mat(k,6) = -( het_rates(k,70) ) - mat(k,7) = -( het_rates(k,71) ) - mat(k,8) = -( het_rates(k,72) ) - mat(k,9) = -( rxt(k,618) + het_rates(k,73) ) - mat(k,179) = -( rxt(k,43) + het_rates(k,74) ) - mat(k,969) = -( het_rates(k,75) ) - mat(k,192) = rxt(k,81) - mat(k,202) = rxt(k,85) - mat(k,268) = 2.000_r8*rxt(k,97) - mat(k,293) = rxt(k,98) - mat(k,347) = rxt(k,105) + mat(k,362) = rxt(k,105) + mat(k,1211) = -( rxt(k,44) + het_rates(k,74) ) + mat(k,1239) = .330_r8*rxt(k,46) + mat(k,725) = .250_r8*rxt(k,66) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -246,207 +247,207 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,1210) = -( rxt(k,44) + het_rates(k,76) ) - mat(k,1238) = .330_r8*rxt(k,46) - mat(k,732) = .250_r8*rxt(k,66) - mat(k,1098) = -( rxt(k,45) + rxt(k,582) + het_rates(k,77) ) - mat(k,452) = rxt(k,22) - mat(k,468) = .130_r8*rxt(k,24) - mat(k,369) = .700_r8*rxt(k,62) - mat(k,667) = .600_r8*rxt(k,71) + mat(k,1099) = -( rxt(k,45) + rxt(k,585) + het_rates(k,75) ) + mat(k,460) = rxt(k,22) + mat(k,496) = .130_r8*rxt(k,24) + mat(k,366) = .700_r8*rxt(k,62) + mat(k,657) = .600_r8*rxt(k,71) mat(k,771) = .340_r8*rxt(k,73) - mat(k,475) = .170_r8*rxt(k,74) - mat(k,2283) = -( het_rates(k,78) ) + mat(k,471) = .170_r8*rxt(k,74) + mat(k,2140) = -( het_rates(k,76) ) mat(k,2518) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,2491) = 2.000_r8*rxt(k,34) - mat(k,457) = rxt(k,39) - mat(k,2096) = .330_r8*rxt(k,40) + rxt(k,41) - mat(k,885) = rxt(k,100) - mat(k,1548) = rxt(k,104) - mat(k,348) = rxt(k,105) - mat(k,1505) = -( het_rates(k,79) ) - mat(k,2503) = rxt(k,1) - mat(k,2477) = rxt(k,33) - mat(k,2082) = 1.440_r8*rxt(k,40) - mat(k,169) = -( rxt(k,99) + het_rates(k,80) ) - mat(k,644) = -( rxt(k,4) + het_rates(k,81) ) - mat(k,176) = -( rxt(k,136) + het_rates(k,82) ) - mat(k,880) = -( rxt(k,100) + het_rates(k,83) ) - mat(k,287) = -( rxt(k,101) + het_rates(k,84) ) - mat(k,297) = -( rxt(k,102) + het_rates(k,85) ) - mat(k,356) = -( rxt(k,103) + het_rates(k,86) ) - mat(k,1539) = -( rxt(k,104) + het_rates(k,87) ) - mat(k,248) = -( het_rates(k,88) ) - mat(k,942) = -( het_rates(k,89) ) - mat(k,346) = -( rxt(k,105) + het_rates(k,90) ) - mat(k,2307) = -( rxt(k,9) + het_rates(k,91) ) - mat(k,1248) = rxt(k,541) - mat(k,658) = rxt(k,542) - mat(k,603) = rxt(k,543) - mat(k,323) = 2.000_r8*rxt(k,544) + 2.000_r8*rxt(k,586) + 2.000_r8*rxt(k,589) & - + 2.000_r8*rxt(k,600) - mat(k,498) = rxt(k,545) - mat(k,1143) = rxt(k,546) - mat(k,1690) = .500_r8*rxt(k,548) - mat(k,2072) = rxt(k,549) - mat(k,436) = rxt(k,550) - mat(k,278) = rxt(k,551) - mat(k,689) = rxt(k,552) - mat(k,610) = rxt(k,588) + rxt(k,591) + rxt(k,596) - mat(k,1034) = rxt(k,590) + rxt(k,595) + rxt(k,601) - mat(k,521) = -( rxt(k,10) + rxt(k,11) + rxt(k,232) + het_rates(k,92) ) - mat(k,841) = -( rxt(k,106) + het_rates(k,93) ) - mat(k,605) = rxt(k,588) + rxt(k,591) + rxt(k,596) - mat(k,873) = -( rxt(k,107) + het_rates(k,94) ) - mat(k,1026) = rxt(k,590) + rxt(k,595) + rxt(k,601) - mat(k,1239) = -( rxt(k,46) + rxt(k,541) + het_rates(k,95) ) - mat(k,282) = -( rxt(k,47) + het_rates(k,96) ) - mat(k,1359) = rxt(k,433) - mat(k,1252) = -( rxt(k,48) + het_rates(k,97) ) - mat(k,1240) = .170_r8*rxt(k,46) - mat(k,398) = -( het_rates(k,98) ) - mat(k,173) = -( het_rates(k,99) ) - mat(k,920) = -( het_rates(k,100) ) - mat(k,651) = -( rxt(k,542) + het_rates(k,101) ) - mat(k,596) = -( rxt(k,543) + het_rates(k,102) ) - mat(k,1297) = -( het_rates(k,103) ) - mat(k,443) = -( rxt(k,49) + het_rates(k,104) ) - mat(k,84) = -( het_rates(k,105) ) - mat(k,755) = -( rxt(k,50) + het_rates(k,106) ) - mat(k,444) = rxt(k,49) - mat(k,73) = -( het_rates(k,107) ) - mat(k,71) = -( het_rates(k,108) ) - mat(k,115) = -( het_rates(k,109) ) - mat(k,113) = -( het_rates(k,110) ) - mat(k,1313) = -( rxt(k,51) + rxt(k,52) + het_rates(k,111) ) - mat(k,757) = .300_r8*rxt(k,50) - mat(k,393) = -( het_rates(k,112) ) - mat(k,563) = -( rxt(k,53) + het_rates(k,113) ) - mat(k,698) = .800_r8*rxt(k,20) - mat(k,709) = .800_r8*rxt(k,21) - mat(k,388) = -( rxt(k,54) + het_rates(k,114) ) - mat(k,671) = -( rxt(k,55) + rxt(k,415) + het_rates(k,115) ) - mat(k,1006) = -( het_rates(k,116) ) - mat(k,90) = -( het_rates(k,117) ) - mat(k,1420) = -( rxt(k,56) + het_rates(k,118) ) - mat(k,758) = .700_r8*rxt(k,50) - mat(k,1043) = -( rxt(k,111) + het_rates(k,119) ) - mat(k,1756) = rxt(k,15) - mat(k,852) = rxt(k,616) - mat(k,302) = -( rxt(k,12) + het_rates(k,120) ) - mat(k,319) = -( rxt(k,13) + rxt(k,14) + rxt(k,233) + rxt(k,544) + rxt(k,586) & - + rxt(k,589) + rxt(k,600) + het_rates(k,121) ) - mat(k,493) = -( rxt(k,545) + het_rates(k,122) ) - mat(k,1134) = -( rxt(k,57) + rxt(k,546) + het_rates(k,123) ) - mat(k,10) = -( het_rates(k,124) ) - mat(k,11) = -( het_rates(k,125) ) - mat(k,12) = -( het_rates(k,126) ) - mat(k,141) = -( het_rates(k,127) ) - mat(k,13) = -( rxt(k,547) + het_rates(k,128) ) - mat(k,14) = -( rxt(k,620) + het_rates(k,129) ) - mat(k,15) = -( rxt(k,619) + het_rates(k,130) ) - mat(k,1788) = -( rxt(k,15) + rxt(k,16) + het_rates(k,131) ) - mat(k,321) = rxt(k,14) - mat(k,1682) = rxt(k,17) + .500_r8*rxt(k,548) - mat(k,2064) = rxt(k,19) - mat(k,901) = rxt(k,613) - mat(k,1681) = -( rxt(k,17) + rxt(k,548) + het_rates(k,132) ) - mat(k,2298) = rxt(k,9) - mat(k,523) = rxt(k,11) + rxt(k,232) - mat(k,320) = rxt(k,13) + rxt(k,233) - mat(k,2063) = rxt(k,18) - mat(k,705) = rxt(k,20) - mat(k,1244) = rxt(k,46) - mat(k,446) = rxt(k,49) - mat(k,675) = rxt(k,55) + rxt(k,415) - mat(k,1139) = rxt(k,57) - mat(k,939) = rxt(k,58) - mat(k,434) = rxt(k,59) - mat(k,277) = rxt(k,60) - mat(k,583) = .600_r8*rxt(k,61) + rxt(k,365) - mat(k,686) = rxt(k,67) - mat(k,608) = rxt(k,77) - mat(k,1030) = rxt(k,96) - mat(k,184) = rxt(k,490) - mat(k,2067) = -( rxt(k,18) + rxt(k,19) + rxt(k,549) + het_rates(k,133) ) - mat(k,525) = rxt(k,10) - mat(k,322) = rxt(k,13) + rxt(k,14) + rxt(k,233) - mat(k,585) = .400_r8*rxt(k,61) - mat(k,609) = rxt(k,78) - mat(k,1032) = rxt(k,95) - mat(k,936) = -( rxt(k,58) + het_rates(k,134) ) - mat(k,431) = -( rxt(k,59) + rxt(k,550) + het_rates(k,135) ) - mat(k,16) = -( het_rates(k,136) ) - mat(k,17) = -( het_rates(k,137) ) - mat(k,18) = -( het_rates(k,138) ) - mat(k,19) = -( het_rates(k,139) ) - mat(k,20) = -( het_rates(k,140) ) - mat(k,2469) = -( rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & - + rxt(k,125) + het_rates(k,141) ) - mat(k,2522) = rxt(k,2) - mat(k,1597) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,127) + rxt(k,128) + rxt(k,129) & + mat(k,2464) = 2.000_r8*rxt(k,34) + mat(k,447) = rxt(k,39) + mat(k,1641) = .330_r8*rxt(k,40) + rxt(k,41) + mat(k,878) = rxt(k,100) + mat(k,1547) = rxt(k,104) + mat(k,363) = rxt(k,105) + mat(k,1506) = -( het_rates(k,77) ) + mat(k,2505) = rxt(k,1) + mat(k,2452) = rxt(k,33) + mat(k,1629) = 1.440_r8*rxt(k,40) + mat(k,171) = -( rxt(k,99) + het_rates(k,78) ) + mat(k,643) = -( rxt(k,4) + het_rates(k,79) ) + mat(k,204) = -( rxt(k,136) + het_rates(k,80) ) + mat(k,873) = -( rxt(k,100) + het_rates(k,81) ) + mat(k,289) = -( rxt(k,101) + het_rates(k,82) ) + mat(k,299) = -( rxt(k,102) + het_rates(k,83) ) + mat(k,355) = -( rxt(k,103) + het_rates(k,84) ) + mat(k,1540) = -( rxt(k,104) + het_rates(k,85) ) + mat(k,250) = -( het_rates(k,86) ) + mat(k,955) = -( het_rates(k,87) ) + mat(k,361) = -( rxt(k,105) + het_rates(k,88) ) + mat(k,2261) = -( rxt(k,9) + het_rates(k,89) ) + mat(k,1248) = rxt(k,544) + mat(k,640) = rxt(k,545) + mat(k,599) = rxt(k,546) + mat(k,343) = 2.000_r8*rxt(k,547) + 2.000_r8*rxt(k,589) + 2.000_r8*rxt(k,592) & + + 2.000_r8*rxt(k,603) + mat(k,467) = rxt(k,548) + mat(k,1144) = rxt(k,549) + mat(k,1689) = .500_r8*rxt(k,551) + mat(k,2441) = rxt(k,552) + mat(k,494) = rxt(k,553) + mat(k,277) = rxt(k,554) + mat(k,694) = rxt(k,555) + mat(k,623) = rxt(k,591) + rxt(k,594) + rxt(k,599) + mat(k,1050) = rxt(k,593) + rxt(k,598) + rxt(k,604) + mat(k,550) = -( rxt(k,10) + rxt(k,11) + rxt(k,232) + het_rates(k,90) ) + mat(k,832) = -( rxt(k,106) + het_rates(k,91) ) + mat(k,618) = rxt(k,591) + rxt(k,594) + rxt(k,599) + mat(k,882) = -( rxt(k,107) + het_rates(k,92) ) + mat(k,1043) = rxt(k,593) + rxt(k,598) + rxt(k,604) + mat(k,1240) = -( rxt(k,46) + rxt(k,544) + het_rates(k,93) ) + mat(k,281) = -( rxt(k,47) + het_rates(k,94) ) + mat(k,1360) = rxt(k,436) + mat(k,1253) = -( rxt(k,48) + het_rates(k,95) ) + mat(k,1241) = .170_r8*rxt(k,46) + mat(k,380) = -( het_rates(k,96) ) + mat(k,198) = -( het_rates(k,97) ) + mat(k,927) = -( het_rates(k,98) ) + mat(k,634) = -( rxt(k,545) + het_rates(k,99) ) + mat(k,593) = -( rxt(k,546) + het_rates(k,100) ) + mat(k,1298) = -( het_rates(k,101) ) + mat(k,439) = -( rxt(k,49) + het_rates(k,102) ) + mat(k,799) = -( rxt(k,50) + het_rates(k,103) ) + mat(k,440) = rxt(k,49) + mat(k,116) = -( het_rates(k,104) ) + mat(k,124) = -( het_rates(k,105) ) + mat(k,1314) = -( rxt(k,51) + rxt(k,52) + het_rates(k,106) ) + mat(k,801) = .300_r8*rxt(k,50) + mat(k,388) = -( het_rates(k,107) ) + mat(k,565) = -( rxt(k,53) + het_rates(k,108) ) + mat(k,731) = .800_r8*rxt(k,20) + mat(k,710) = .800_r8*rxt(k,21) + mat(k,383) = -( rxt(k,54) + het_rates(k,109) ) + mat(k,625) = -( rxt(k,55) + rxt(k,418) + het_rates(k,110) ) + mat(k,1007) = -( het_rates(k,111) ) + mat(k,1421) = -( rxt(k,56) + het_rates(k,112) ) + mat(k,802) = .700_r8*rxt(k,50) + mat(k,1032) = -( rxt(k,111) + het_rates(k,113) ) + mat(k,1929) = rxt(k,15) + mat(k,705) = rxt(k,207) + mat(k,853) = rxt(k,619) + mat(k,317) = -( rxt(k,12) + het_rates(k,114) ) + mat(k,339) = -( rxt(k,13) + rxt(k,14) + rxt(k,235) + rxt(k,547) + rxt(k,589) & + + rxt(k,592) + rxt(k,603) + het_rates(k,115) ) + mat(k,463) = -( rxt(k,548) + het_rates(k,116) ) + mat(k,1135) = -( rxt(k,57) + rxt(k,549) + het_rates(k,117) ) + mat(k,10) = -( het_rates(k,118) ) + mat(k,11) = -( het_rates(k,119) ) + mat(k,12) = -( het_rates(k,120) ) + mat(k,143) = -( het_rates(k,121) ) + mat(k,13) = -( rxt(k,550) + het_rates(k,122) ) + mat(k,14) = -( rxt(k,623) + het_rates(k,123) ) + mat(k,15) = -( rxt(k,622) + het_rates(k,124) ) + mat(k,1962) = -( rxt(k,15) + rxt(k,16) + het_rates(k,125) ) + mat(k,341) = rxt(k,14) + mat(k,1682) = rxt(k,17) + .500_r8*rxt(k,551) + mat(k,2434) = rxt(k,19) + mat(k,902) = rxt(k,616) + mat(k,1680) = -( rxt(k,17) + rxt(k,551) + het_rates(k,126) ) + mat(k,2252) = rxt(k,9) + mat(k,552) = rxt(k,11) + rxt(k,232) + mat(k,340) = rxt(k,13) + rxt(k,235) + mat(k,2432) = rxt(k,18) + mat(k,738) = rxt(k,20) + mat(k,1245) = rxt(k,46) + mat(k,442) = rxt(k,49) + mat(k,629) = rxt(k,55) + rxt(k,418) + mat(k,1140) = rxt(k,57) + mat(k,921) = rxt(k,58) + mat(k,492) = rxt(k,59) + mat(k,276) = rxt(k,60) + mat(k,588) = .600_r8*rxt(k,61) + rxt(k,368) + mat(k,692) = rxt(k,67) + mat(k,621) = rxt(k,77) + mat(k,1046) = rxt(k,96) + mat(k,177) = rxt(k,493) + mat(k,2443) = -( rxt(k,18) + rxt(k,19) + rxt(k,552) + het_rates(k,127) ) + mat(k,555) = rxt(k,10) + mat(k,344) = rxt(k,13) + rxt(k,14) + rxt(k,235) + mat(k,591) = .400_r8*rxt(k,61) + mat(k,624) = rxt(k,78) + mat(k,1051) = rxt(k,95) + mat(k,918) = -( rxt(k,58) + het_rates(k,128) ) + mat(k,489) = -( rxt(k,59) + rxt(k,553) + het_rates(k,129) ) + mat(k,16) = -( het_rates(k,130) ) + mat(k,17) = -( het_rates(k,131) ) + mat(k,18) = -( het_rates(k,132) ) + mat(k,19) = -( het_rates(k,133) ) + mat(k,20) = -( het_rates(k,134) ) + mat(k,2053) = -( rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + + rxt(k,125) + het_rates(k,135) ) + mat(k,2516) = rxt(k,2) + mat(k,1593) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,127) + rxt(k,128) + rxt(k,129) & + rxt(k,131) + rxt(k,132) + rxt(k,133) + 2.000_r8*rxt(k,134) & + 2.000_r8*rxt(k,135) - mat(k,2426) = rxt(k,8) - mat(k,324) = rxt(k,14) - mat(k,1799) = rxt(k,15) - mat(k,1693) = rxt(k,17) - mat(k,2075) = rxt(k,18) - mat(k,2100) = .180_r8*rxt(k,40) - mat(k,1502) = rxt(k,42) + rxt(k,110) - mat(k,1621) = rxt(k,76) - mat(k,1648) = rxt(k,94) - mat(k,366) = rxt(k,108) - mat(k,1532) = rxt(k,138) + mat(k,2117) = rxt(k,8) + mat(k,342) = rxt(k,14) + mat(k,1964) = rxt(k,15) + mat(k,1684) = rxt(k,17) + mat(k,2436) = rxt(k,18) + mat(k,1639) = .180_r8*rxt(k,40) + mat(k,1500) = rxt(k,42) + rxt(k,110) + mat(k,1615) = rxt(k,76) + mat(k,2489) = rxt(k,94) + mat(k,396) = rxt(k,108) + mat(k,1529) = rxt(k,138) mat(k,995) = rxt(k,139) - mat(k,309) = rxt(k,140) - mat(k,1842) = rxt(k,175) - mat(k,1586) = -( rxt(k,5) + rxt(k,6) + rxt(k,126) + rxt(k,127) + rxt(k,128) & + mat(k,311) = rxt(k,140) + mat(k,2233) = rxt(k,175) + mat(k,1587) = -( rxt(k,5) + rxt(k,6) + rxt(k,126) + rxt(k,127) + rxt(k,128) & + rxt(k,129) + rxt(k,130) + rxt(k,131) + rxt(k,132) + rxt(k,133) & - + rxt(k,134) + rxt(k,135) + het_rates(k,142) ) - mat(k,2411) = rxt(k,8) - mat(k,2060) = rxt(k,19) - mat(k,224) = rxt(k,171) + rxt(k,179) - mat(k,227) = rxt(k,172) - mat(k,2425) = -( rxt(k,7) + rxt(k,8) + het_rates(k,143) ) - mat(k,21) = -( het_rates(k,144) ) - mat(k,362) = -( rxt(k,108) + het_rates(k,145) ) - mat(k,417) = -( rxt(k,137) + het_rates(k,146) ) - mat(k,276) = -( rxt(k,60) + rxt(k,551) + het_rates(k,147) ) - mat(k,580) = -( rxt(k,61) + rxt(k,365) + het_rates(k,148) ) - mat(k,182) = -( rxt(k,490) + het_rates(k,149) ) - mat(k,535) = -( het_rates(k,150) ) - mat(k,316) = rxt(k,32) - mat(k,218) = -( het_rates(k,151) ) - mat(k,367) = -( rxt(k,62) + het_rates(k,152) ) - mat(k,22) = -( het_rates(k,153) ) - mat(k,23) = -( het_rates(k,154) ) - mat(k,24) = -( het_rates(k,155) ) - mat(k,25) = -( het_rates(k,156) ) - mat(k,588) = -( rxt(k,63) + het_rates(k,157) ) - mat(k,425) = -( rxt(k,64) + het_rates(k,158) ) - mat(k,777) = -( het_rates(k,159) ) - mat(k,418) = rxt(k,137) - mat(k,1518) = rxt(k,138) - mat(k,26) = -( rxt(k,109) + het_rates(k,160) ) - mat(k,1520) = -( rxt(k,138) + het_rates(k,161) ) - mat(k,992) = rxt(k,139) - mat(k,991) = -( rxt(k,139) + het_rates(k,162) ) - mat(k,308) = rxt(k,140) - mat(k,307) = -( rxt(k,140) + het_rates(k,163) ) - mat(k,177) = rxt(k,136) - mat(k,27) = -( het_rates(k,164) ) - mat(k,28) = -( het_rates(k,165) ) - mat(k,29) = -( het_rates(k,166) ) - mat(k,30) = -( het_rates(k,167) ) - mat(k,31) = -( rxt(k,141) + het_rates(k,168) ) - mat(k,32) = -( rxt(k,142) + het_rates(k,169) ) - mat(k,33) = -( rxt(k,143) + het_rates(k,170) ) - mat(k,34) = -( rxt(k,144) + het_rates(k,171) ) - mat(k,35) = -( rxt(k,145) + het_rates(k,172) ) - mat(k,36) = -( rxt(k,146) + het_rates(k,173) ) - mat(k,37) = -( rxt(k,147) + het_rates(k,174) ) - mat(k,38) = -( rxt(k,148) + het_rates(k,175) ) + + rxt(k,134) + rxt(k,135) + het_rates(k,136) ) + mat(k,2110) = rxt(k,8) + mat(k,2429) = rxt(k,19) + mat(k,226) = rxt(k,171) + rxt(k,179) + mat(k,229) = rxt(k,172) + mat(k,2118) = -( rxt(k,7) + rxt(k,8) + het_rates(k,137) ) + mat(k,21) = -( het_rates(k,138) ) + mat(k,393) = -( rxt(k,108) + het_rates(k,139) ) + mat(k,419) = -( rxt(k,137) + het_rates(k,140) ) + mat(k,275) = -( rxt(k,60) + rxt(k,554) + het_rates(k,141) ) + mat(k,585) = -( rxt(k,61) + rxt(k,368) + het_rates(k,142) ) + mat(k,175) = -( rxt(k,493) + het_rates(k,143) ) + mat(k,539) = -( het_rates(k,144) ) + mat(k,314) = rxt(k,32) + mat(k,220) = -( het_rates(k,145) ) + mat(k,364) = -( rxt(k,62) + het_rates(k,146) ) + mat(k,22) = -( het_rates(k,147) ) + mat(k,23) = -( het_rates(k,148) ) + mat(k,24) = -( het_rates(k,149) ) + mat(k,25) = -( het_rates(k,150) ) + mat(k,26) = -( het_rates(k,151) ) + mat(k,27) = -( het_rates(k,152) ) + mat(k,601) = -( rxt(k,63) + het_rates(k,153) ) + mat(k,427) = -( rxt(k,64) + het_rates(k,154) ) + mat(k,755) = -( het_rates(k,155) ) + mat(k,420) = rxt(k,137) + mat(k,1519) = rxt(k,138) + mat(k,28) = -( rxt(k,109) + het_rates(k,156) ) + mat(k,1521) = -( rxt(k,138) + het_rates(k,157) ) + mat(k,993) = rxt(k,139) + mat(k,992) = -( rxt(k,139) + het_rates(k,158) ) + mat(k,310) = rxt(k,140) + mat(k,309) = -( rxt(k,140) + het_rates(k,159) ) + mat(k,205) = rxt(k,136) + mat(k,29) = -( het_rates(k,160) ) + mat(k,30) = -( het_rates(k,161) ) + mat(k,31) = -( het_rates(k,162) ) + mat(k,32) = -( het_rates(k,163) ) + mat(k,33) = -( rxt(k,141) + het_rates(k,164) ) + mat(k,34) = -( rxt(k,142) + het_rates(k,165) ) + mat(k,35) = -( rxt(k,143) + het_rates(k,166) ) + mat(k,36) = -( rxt(k,144) + het_rates(k,167) ) + mat(k,37) = -( rxt(k,145) + het_rates(k,168) ) + mat(k,38) = -( rxt(k,146) + het_rates(k,169) ) + mat(k,39) = -( rxt(k,147) + het_rates(k,170) ) + mat(k,40) = -( rxt(k,148) + het_rates(k,171) ) + mat(k,41) = -( rxt(k,149) + het_rates(k,172) ) + mat(k,42) = -( rxt(k,150) + het_rates(k,173) ) + mat(k,43) = -( rxt(k,151) + het_rates(k,174) ) + mat(k,44) = -( rxt(k,152) + het_rates(k,175) ) end do end subroutine linmat02 subroutine linmat03( avec_len, mat, y, rxt, het_rates ) @@ -469,216 +470,216 @@ subroutine linmat03( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,39) = -( rxt(k,149) + het_rates(k,176) ) - mat(k,40) = -( rxt(k,150) + het_rates(k,177) ) - mat(k,41) = -( rxt(k,151) + het_rates(k,178) ) - mat(k,42) = -( rxt(k,152) + het_rates(k,179) ) - mat(k,43) = -( rxt(k,153) + het_rates(k,180) ) - mat(k,44) = -( rxt(k,154) + het_rates(k,181) ) - mat(k,45) = -( rxt(k,155) + het_rates(k,182) ) - mat(k,46) = -( rxt(k,156) + het_rates(k,183) ) - mat(k,47) = -( rxt(k,157) + het_rates(k,184) ) - mat(k,48) = -( rxt(k,158) + het_rates(k,185) ) - mat(k,49) = -( rxt(k,159) + het_rates(k,186) ) - mat(k,50) = -( rxt(k,160) + het_rates(k,187) ) - mat(k,51) = -( rxt(k,161) + het_rates(k,188) ) - mat(k,52) = -( rxt(k,162) + het_rates(k,189) ) - mat(k,53) = -( rxt(k,163) + het_rates(k,190) ) - mat(k,54) = -( rxt(k,164) + het_rates(k,191) ) - mat(k,55) = -( rxt(k,165) + het_rates(k,192) ) - mat(k,56) = -( rxt(k,166) + het_rates(k,193) ) - mat(k,57) = -( rxt(k,167) + het_rates(k,194) ) - mat(k,58) = -( rxt(k,168) + het_rates(k,195) ) - mat(k,59) = -( rxt(k,169) + het_rates(k,196) ) - mat(k,60) = -( rxt(k,170) + het_rates(k,197) ) - mat(k,61) = -( het_rates(k,198) ) - mat(k,62) = -( het_rates(k,199) ) - mat(k,63) = -( het_rates(k,200) ) - mat(k,64) = -( het_rates(k,201) ) - mat(k,65) = -( het_rates(k,202) ) - mat(k,74) = -( het_rates(k,203) ) - mat(k,1097) = rxt(k,582) - mat(k,75) = -( het_rates(k,204) ) - mat(k,76) = -( het_rates(k,205) ) - mat(k,77) = -( het_rates(k,206) ) - mat(k,78) = -( het_rates(k,207) ) - mat(k,97) = -( het_rates(k,208) ) - mat(k,98) = -( het_rates(k,209) ) - mat(k,99) = -( het_rates(k,210) ) - mat(k,100) = -( het_rates(k,211) ) - mat(k,101) = -( het_rates(k,212) ) - mat(k,116) = -( rxt(k,621) + het_rates(k,213) ) - mat(k,122) = -( het_rates(k,214) ) - mat(k,128) = -( het_rates(k,215) ) - mat(k,241) = -( rxt(k,65) + het_rates(k,216) ) - mat(k,728) = -( rxt(k,66) + het_rates(k,217) ) - mat(k,684) = -( rxt(k,67) + rxt(k,552) + het_rates(k,218) ) - mat(k,528) = -( rxt(k,68) + het_rates(k,219) ) - mat(k,1116) = -( rxt(k,69) + het_rates(k,220) ) - mat(k,432) = rxt(k,59) - mat(k,685) = rxt(k,67) - mat(k,530) = rxt(k,68) - mat(k,1163) = -( rxt(k,70) + het_rates(k,221) ) - mat(k,730) = rxt(k,66) - mat(k,1118) = rxt(k,69) - mat(k,662) = -( rxt(k,71) + het_rates(k,222) ) - mat(k,229) = -( het_rates(k,223) ) - mat(k,134) = -( het_rates(k,224) ) - mat(k,245) = -( rxt(k,72) + het_rates(k,225) ) - mat(k,254) = -( het_rates(k,226) ) - mat(k,766) = -( rxt(k,73) + het_rates(k,227) ) - mat(k,140) = -( het_rates(k,228) ) - mat(k,262) = -( het_rates(k,229) ) - mat(k,473) = -( rxt(k,74) + het_rates(k,230) ) - mat(k,569) = -( het_rates(k,233) ) - mat(k,183) = rxt(k,490) - mat(k,1086) = -( het_rates(k,234) ) - mat(k,541) = -( het_rates(k,235) ) - mat(k,481) = -( het_rates(k,236) ) - mat(k,950) = -( het_rates(k,237) ) - mat(k,565) = rxt(k,53) - mat(k,979) = -( het_rates(k,238) ) - mat(k,692) = -( het_rates(k,239) ) - mat(k,1472) = -( het_rates(k,240) ) - mat(k,471) = .130_r8*rxt(k,24) - mat(k,386) = rxt(k,28) - mat(k,1126) = rxt(k,36) - mat(k,1326) = rxt(k,37) - mat(k,1242) = .330_r8*rxt(k,46) - mat(k,1254) = rxt(k,48) - mat(k,1317) = 1.340_r8*rxt(k,51) - mat(k,566) = rxt(k,53) - mat(k,391) = rxt(k,54) - mat(k,1422) = .300_r8*rxt(k,56) - mat(k,938) = rxt(k,58) - mat(k,581) = .600_r8*rxt(k,61) + rxt(k,365) - mat(k,427) = rxt(k,64) - mat(k,243) = .500_r8*rxt(k,65) - mat(k,1166) = .650_r8*rxt(k,70) - mat(k,2360) = -( het_rates(k,241) ) - mat(k,1202) = rxt(k,35) - mat(k,1128) = rxt(k,36) - mat(k,641) = rxt(k,38) - mat(k,2098) = rxt(k,41) - mat(k,1432) = .300_r8*rxt(k,56) - mat(k,586) = .400_r8*rxt(k,61) - mat(k,635) = rxt(k,88) - mat(k,407) = rxt(k,90) - mat(k,822) = -( het_rates(k,242) ) - mat(k,332) = .600_r8*rxt(k,26) - mat(k,909) = -( het_rates(k,243) ) - mat(k,1750) = rxt(k,16) - mat(k,1042) = rxt(k,111) - mat(k,2444) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + mat(k,45) = -( rxt(k,153) + het_rates(k,176) ) + mat(k,46) = -( rxt(k,154) + het_rates(k,177) ) + mat(k,47) = -( rxt(k,155) + het_rates(k,178) ) + mat(k,48) = -( rxt(k,156) + het_rates(k,179) ) + mat(k,49) = -( rxt(k,157) + het_rates(k,180) ) + mat(k,50) = -( rxt(k,158) + het_rates(k,181) ) + mat(k,51) = -( rxt(k,159) + het_rates(k,182) ) + mat(k,52) = -( rxt(k,160) + het_rates(k,183) ) + mat(k,53) = -( rxt(k,161) + het_rates(k,184) ) + mat(k,54) = -( rxt(k,162) + het_rates(k,185) ) + mat(k,55) = -( rxt(k,163) + het_rates(k,186) ) + mat(k,56) = -( rxt(k,164) + het_rates(k,187) ) + mat(k,57) = -( rxt(k,165) + het_rates(k,188) ) + mat(k,58) = -( rxt(k,166) + het_rates(k,189) ) + mat(k,59) = -( rxt(k,167) + het_rates(k,190) ) + mat(k,60) = -( rxt(k,168) + het_rates(k,191) ) + mat(k,61) = -( rxt(k,169) + het_rates(k,192) ) + mat(k,62) = -( rxt(k,170) + het_rates(k,193) ) + mat(k,63) = -( het_rates(k,194) ) + mat(k,64) = -( het_rates(k,195) ) + mat(k,65) = -( het_rates(k,196) ) + mat(k,66) = -( het_rates(k,197) ) + mat(k,67) = -( het_rates(k,198) ) + mat(k,68) = -( het_rates(k,199) ) + mat(k,1098) = rxt(k,585) + mat(k,69) = -( het_rates(k,200) ) + mat(k,70) = -( het_rates(k,201) ) + mat(k,71) = -( het_rates(k,202) ) + mat(k,72) = -( het_rates(k,203) ) + mat(k,73) = -( het_rates(k,204) ) + mat(k,74) = -( het_rates(k,205) ) + mat(k,75) = -( het_rates(k,206) ) + mat(k,76) = -( het_rates(k,207) ) + mat(k,77) = -( het_rates(k,208) ) + mat(k,78) = -( rxt(k,624) + het_rates(k,209) ) + mat(k,84) = -( het_rates(k,210) ) + mat(k,90) = -( het_rates(k,211) ) + mat(k,243) = -( rxt(k,65) + het_rates(k,212) ) + mat(k,721) = -( rxt(k,66) + het_rates(k,213) ) + mat(k,690) = -( rxt(k,67) + rxt(k,555) + het_rates(k,214) ) + mat(k,523) = -( rxt(k,68) + het_rates(k,215) ) + mat(k,1117) = -( rxt(k,69) + het_rates(k,216) ) + mat(k,490) = rxt(k,59) + mat(k,691) = rxt(k,67) + mat(k,525) = rxt(k,68) + mat(k,1164) = -( rxt(k,70) + het_rates(k,217) ) + mat(k,723) = rxt(k,66) + mat(k,1119) = rxt(k,69) + mat(k,652) = -( rxt(k,71) + het_rates(k,218) ) + mat(k,231) = -( het_rates(k,219) ) + mat(k,247) = -( rxt(k,72) + het_rates(k,220) ) + mat(k,256) = -( het_rates(k,221) ) + mat(k,766) = -( rxt(k,73) + het_rates(k,222) ) + mat(k,264) = -( het_rates(k,223) ) + mat(k,469) = -( rxt(k,74) + het_rates(k,224) ) + mat(k,571) = -( het_rates(k,227) ) + mat(k,176) = rxt(k,493) + mat(k,1087) = -( het_rates(k,228) ) + mat(k,96) = -( het_rates(k,229) ) + mat(k,532) = -( het_rates(k,230) ) + mat(k,102) = -( het_rates(k,231) ) + mat(k,477) = -( het_rates(k,232) ) + mat(k,946) = -( het_rates(k,233) ) + mat(k,567) = rxt(k,53) + mat(k,980) = -( het_rates(k,234) ) + mat(k,698) = -( het_rates(k,235) ) + mat(k,1473) = -( het_rates(k,236) ) + mat(k,499) = .130_r8*rxt(k,24) + mat(k,401) = rxt(k,28) + mat(k,1127) = rxt(k,36) + mat(k,1327) = rxt(k,37) + mat(k,1243) = .330_r8*rxt(k,46) + mat(k,1255) = rxt(k,48) + mat(k,1318) = 1.340_r8*rxt(k,51) + mat(k,568) = rxt(k,53) + mat(k,386) = rxt(k,54) + mat(k,1423) = .300_r8*rxt(k,56) + mat(k,920) = rxt(k,58) + mat(k,586) = .600_r8*rxt(k,61) + rxt(k,368) + mat(k,429) = rxt(k,64) + mat(k,245) = .500_r8*rxt(k,65) + mat(k,1167) = .650_r8*rxt(k,70) + mat(k,2193) = -( het_rates(k,237) ) + mat(k,1200) = rxt(k,35) + mat(k,1129) = rxt(k,36) + mat(k,669) = rxt(k,38) + mat(k,1642) = rxt(k,41) + mat(k,1431) = .300_r8*rxt(k,56) + mat(k,590) = .400_r8*rxt(k,61) + mat(k,686) = rxt(k,88) + mat(k,416) = rxt(k,90) + mat(k,823) = -( het_rates(k,238) ) + mat(k,352) = .600_r8*rxt(k,26) + mat(k,910) = -( het_rates(k,239) ) + mat(k,1923) = rxt(k,16) + mat(k,1031) = rxt(k,111) + mat(k,2036) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + rxt(k,125) - mat(k,1578) = rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + mat(k,1579) = rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + rxt(k,131) + rxt(k,132) + rxt(k,133) - mat(k,612) = -( het_rates(k,244) ) - mat(k,509) = -( rxt(k,358) + het_rates(k,245) ) - mat(k,180) = rxt(k,43) - mat(k,832) = -( het_rates(k,246) ) - mat(k,2214) = -( rxt(k,540) + het_rates(k,247) ) - mat(k,526) = rxt(k,11) + rxt(k,232) - mat(k,707) = rxt(k,20) - mat(k,718) = .900_r8*rxt(k,21) - mat(k,454) = rxt(k,22) - mat(k,217) = 1.500_r8*rxt(k,23) - mat(k,472) = .560_r8*rxt(k,24) - mat(k,508) = rxt(k,25) - mat(k,333) = .600_r8*rxt(k,26) - mat(k,683) = .600_r8*rxt(k,27) - mat(k,387) = rxt(k,28) - mat(k,377) = rxt(k,29) - mat(k,382) = rxt(k,30) - mat(k,441) = rxt(k,31) - mat(k,1200) = rxt(k,35) - mat(k,1330) = rxt(k,37) - mat(k,1213) = 2.000_r8*rxt(k,44) - mat(k,1102) = 2.000_r8*rxt(k,45) - mat(k,1247) = .670_r8*rxt(k,46) - mat(k,286) = rxt(k,47) - mat(k,1256) = rxt(k,48) - mat(k,448) = rxt(k,49) - mat(k,760) = rxt(k,50) - mat(k,1320) = 1.340_r8*rxt(k,51) + .660_r8*rxt(k,52) - mat(k,1142) = rxt(k,57) - mat(k,371) = rxt(k,62) - mat(k,593) = rxt(k,63) - mat(k,244) = rxt(k,65) - mat(k,736) = rxt(k,66) - mat(k,688) = rxt(k,67) - mat(k,533) = rxt(k,68) + mat(k,609) = -( het_rates(k,240) ) + mat(k,511) = -( rxt(k,361) + het_rates(k,241) ) + mat(k,202) = rxt(k,43) + mat(k,842) = -( het_rates(k,242) ) + mat(k,2382) = -( rxt(k,543) + het_rates(k,243) ) + mat(k,554) = rxt(k,11) + rxt(k,232) + mat(k,740) = rxt(k,20) + mat(k,719) = .900_r8*rxt(k,21) + mat(k,462) = rxt(k,22) + mat(k,219) = 1.500_r8*rxt(k,23) + mat(k,500) = .560_r8*rxt(k,24) + mat(k,510) = rxt(k,25) + mat(k,353) = .600_r8*rxt(k,26) + mat(k,664) = .600_r8*rxt(k,27) + mat(k,402) = rxt(k,28) + mat(k,374) = rxt(k,29) + mat(k,379) = rxt(k,30) + mat(k,437) = rxt(k,31) + mat(k,1202) = rxt(k,35) + mat(k,1331) = rxt(k,37) + mat(k,1214) = 2.000_r8*rxt(k,44) + mat(k,1103) = 2.000_r8*rxt(k,45) + mat(k,1249) = .670_r8*rxt(k,46) + mat(k,285) = rxt(k,47) + mat(k,1257) = rxt(k,48) + mat(k,444) = rxt(k,49) + mat(k,804) = rxt(k,50) + mat(k,1322) = 1.340_r8*rxt(k,51) + .660_r8*rxt(k,52) + mat(k,1145) = rxt(k,57) + mat(k,368) = rxt(k,62) + mat(k,606) = rxt(k,63) + mat(k,246) = rxt(k,65) + mat(k,729) = rxt(k,66) + mat(k,695) = rxt(k,67) + mat(k,528) = rxt(k,68) mat(k,1123) = rxt(k,69) - mat(k,1169) = 1.200_r8*rxt(k,70) - mat(k,670) = rxt(k,71) + mat(k,1171) = 1.200_r8*rxt(k,70) + mat(k,660) = rxt(k,71) mat(k,776) = rxt(k,73) - mat(k,478) = rxt(k,74) - mat(k,491) = rxt(k,328) - mat(k,512) = rxt(k,358) - mat(k,1386) = rxt(k,433) - mat(k,487) = -( rxt(k,328) + het_rates(k,248) ) - mat(k,1343) = -( het_rates(k,249) ) - mat(k,1376) = -( rxt(k,433) + het_rates(k,250) ) - mat(k,1400) = -( het_rates(k,251) ) - mat(k,784) = -( het_rates(k,252) ) - mat(k,507) = .600_r8*rxt(k,25) - mat(k,1441) = -( het_rates(k,253) ) - mat(k,1316) = .660_r8*rxt(k,51) - mat(k,673) = rxt(k,55) + rxt(k,415) - mat(k,959) = -( het_rates(k,254) ) - mat(k,681) = .600_r8*rxt(k,27) - mat(k,721) = -( het_rates(k,255) ) - mat(k,575) = -( het_rates(k,256) ) - mat(k,739) = -( het_rates(k,257) ) - mat(k,889) = -( het_rates(k,258) ) - mat(k,1748) = rxt(k,16) - mat(k,896) = rxt(k,613) - mat(k,850) = rxt(k,616) - mat(k,548) = -( het_rates(k,259) ) - mat(k,1038) = rxt(k,111) - mat(k,1150) = -( het_rates(k,260) ) - mat(k,1832) = -( rxt(k,175) + het_rates(k,261) ) - mat(k,2512) = rxt(k,1) - mat(k,1591) = rxt(k,6) - mat(k,2416) = rxt(k,7) - mat(k,305) = rxt(k,12) - mat(k,223) = -( rxt(k,171) + rxt(k,179) + het_rates(k,262) ) - mat(k,2370) = rxt(k,7) - mat(k,225) = rxt(k,183) - mat(k,226) = -( rxt(k,172) + rxt(k,183) + het_rates(k,263) ) - mat(k,897) = -( rxt(k,613) + het_rates(k,264) ) - mat(k,1577) = rxt(k,126) + rxt(k,130) - mat(k,2006) = -( het_rates(k,265) ) + mat(k,474) = rxt(k,74) + mat(k,487) = rxt(k,331) + mat(k,514) = rxt(k,361) + mat(k,1389) = rxt(k,436) + mat(k,483) = -( rxt(k,331) + het_rates(k,244) ) + mat(k,1344) = -( het_rates(k,245) ) + mat(k,1377) = -( rxt(k,436) + het_rates(k,246) ) + mat(k,108) = -( het_rates(k,247) ) + mat(k,114) = -( het_rates(k,248) ) + mat(k,122) = -( het_rates(k,249) ) + mat(k,1401) = -( het_rates(k,250) ) + mat(k,777) = -( het_rates(k,251) ) + mat(k,509) = .600_r8*rxt(k,25) + mat(k,1442) = -( het_rates(k,252) ) + mat(k,1317) = .660_r8*rxt(k,51) + mat(k,627) = rxt(k,55) + rxt(k,418) + mat(k,960) = -( het_rates(k,253) ) + mat(k,662) = .600_r8*rxt(k,27) + mat(k,743) = -( het_rates(k,254) ) + mat(k,130) = -( het_rates(k,255) ) + mat(k,704) = -( rxt(k,207) + het_rates(k,256) ) + mat(k,672) = -( het_rates(k,257) ) + mat(k,890) = -( het_rates(k,258) ) + mat(k,1921) = rxt(k,16) + mat(k,897) = rxt(k,616) + mat(k,851) = rxt(k,619) + mat(k,543) = -( het_rates(k,259) ) + mat(k,1027) = rxt(k,111) + mat(k,1151) = -( het_rates(k,260) ) + mat(k,2237) = -( rxt(k,175) + het_rates(k,261) ) + mat(k,2520) = rxt(k,1) + mat(k,1596) = rxt(k,6) + mat(k,2121) = rxt(k,7) + mat(k,320) = rxt(k,12) + mat(k,225) = -( rxt(k,171) + rxt(k,179) + het_rates(k,262) ) + mat(k,2069) = rxt(k,7) + mat(k,227) = rxt(k,183) + mat(k,228) = -( rxt(k,172) + rxt(k,183) + het_rates(k,263) ) + mat(k,898) = -( rxt(k,616) + het_rates(k,264) ) + mat(k,1578) = rxt(k,126) + rxt(k,130) + mat(k,1854) = -( het_rates(k,265) ) mat(k,2513) = rxt(k,3) - mat(k,646) = 2.000_r8*rxt(k,4) - mat(k,2301) = rxt(k,9) - mat(k,524) = rxt(k,10) - mat(k,717) = rxt(k,21) - mat(k,453) = rxt(k,22) - mat(k,376) = rxt(k,29) - mat(k,381) = rxt(k,30) - mat(k,440) = rxt(k,31) - mat(k,318) = rxt(k,32) - mat(k,640) = rxt(k,38) - mat(k,456) = rxt(k,39) - mat(k,2091) = .330_r8*rxt(k,40) - mat(k,181) = rxt(k,43) - mat(k,285) = rxt(k,47) - mat(k,759) = rxt(k,50) - mat(k,392) = rxt(k,54) - mat(k,435) = rxt(k,59) - mat(k,370) = rxt(k,62) - mat(k,592) = rxt(k,63) - mat(k,428) = rxt(k,64) - mat(k,735) = rxt(k,66) - mat(k,532) = rxt(k,68) - mat(k,669) = rxt(k,71) - mat(k,247) = rxt(k,72) + mat(k,645) = 2.000_r8*rxt(k,4) + mat(k,2253) = rxt(k,9) + mat(k,553) = rxt(k,10) + mat(k,718) = rxt(k,21) + mat(k,461) = rxt(k,22) + mat(k,373) = rxt(k,29) + mat(k,378) = rxt(k,30) + mat(k,436) = rxt(k,31) + mat(k,316) = rxt(k,32) + mat(k,668) = rxt(k,38) + mat(k,446) = rxt(k,39) + mat(k,1636) = .330_r8*rxt(k,40) + mat(k,203) = rxt(k,43) + mat(k,284) = rxt(k,47) + mat(k,803) = rxt(k,50) + mat(k,387) = rxt(k,54) + mat(k,493) = rxt(k,59) + mat(k,367) = rxt(k,62) + mat(k,605) = rxt(k,63) + mat(k,430) = rxt(k,64) + mat(k,728) = rxt(k,66) + mat(k,527) = rxt(k,68) + mat(k,659) = rxt(k,71) + mat(k,249) = rxt(k,72) mat(k,775) = rxt(k,73) - mat(k,477) = rxt(k,74) - mat(k,845) = rxt(k,106) - mat(k,876) = rxt(k,107) - mat(k,1684) = .500_r8*rxt(k,548) + mat(k,473) = rxt(k,74) + mat(k,836) = rxt(k,106) + mat(k,884) = rxt(k,107) + mat(k,1681) = .500_r8*rxt(k,551) end do end subroutine linmat03 subroutine linmat04( avec_len, mat, y, rxt, het_rates ) @@ -701,25 +702,27 @@ subroutine linmat04( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,849) = -( rxt(k,616) + het_rates(k,266) ) - mat(k,2439) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + mat(k,850) = -( rxt(k,619) + het_rates(k,266) ) + mat(k,2031) = rxt(k,120) + rxt(k,121) + rxt(k,122) + rxt(k,123) + rxt(k,124) & + rxt(k,125) - mat(k,1575) = rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,131) + rxt(k,132) & + mat(k,1576) = rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,131) + rxt(k,132) & + rxt(k,133) - mat(k,500) = -( het_rates(k,267) ) - mat(k,862) = -( het_rates(k,268) ) - mat(k,1261) = -( het_rates(k,269) ) - mat(k,1165) = .150_r8*rxt(k,70) - mat(k,1222) = -( het_rates(k,270) ) - mat(k,1106) = -( het_rates(k,271) ) - mat(k,795) = -( het_rates(k,272) ) - mat(k,1277) = -( het_rates(k,273) ) - mat(k,811) = -( het_rates(k,274) ) - mat(k,556) = -( het_rates(k,275) ) - mat(k,2524) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,276) ) - mat(k,2102) = .050_r8*rxt(k,40) - mat(k,178) = rxt(k,136) - mat(k,2222) = rxt(k,540) + mat(k,502) = -( het_rates(k,267) ) + mat(k,859) = -( het_rates(k,268) ) + mat(k,1262) = -( het_rates(k,269) ) + mat(k,1166) = .150_r8*rxt(k,70) + mat(k,1223) = -( het_rates(k,270) ) + mat(k,1107) = -( het_rates(k,271) ) + mat(k,788) = -( het_rates(k,272) ) + mat(k,136) = -( het_rates(k,273) ) + mat(k,1278) = -( het_rates(k,274) ) + mat(k,812) = -( het_rates(k,275) ) + mat(k,142) = -( het_rates(k,276) ) + mat(k,558) = -( het_rates(k,277) ) + mat(k,2526) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,278) ) + mat(k,1649) = .050_r8*rxt(k,40) + mat(k,206) = rxt(k,136) + mat(k,2386) = rxt(k,543) end do end subroutine linmat04 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_factor.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_factor.F90 index c21cd1da8b..9fc69a76fe 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_factor.F90 @@ -98,7 +98,13 @@ subroutine lu_fac02( avec_len, lu ) lu(k,63) = 1._r8 / lu(k,63) lu(k,64) = 1._r8 / lu(k,64) lu(k,65) = 1._r8 / lu(k,65) + lu(k,66) = 1._r8 / lu(k,66) + lu(k,67) = 1._r8 / lu(k,67) + lu(k,68) = 1._r8 / lu(k,68) + lu(k,69) = 1._r8 / lu(k,69) + lu(k,70) = 1._r8 / lu(k,70) lu(k,71) = 1._r8 / lu(k,71) + lu(k,72) = 1._r8 / lu(k,72) lu(k,73) = 1._r8 / lu(k,73) lu(k,74) = 1._r8 / lu(k,74) lu(k,75) = 1._r8 / lu(k,75) @@ -108,46 +114,35 @@ subroutine lu_fac02( avec_len, lu ) lu(k,84) = 1._r8 / lu(k,84) lu(k,90) = 1._r8 / lu(k,90) lu(k,96) = 1._r8 / lu(k,96) - lu(k,97) = 1._r8 / lu(k,97) - lu(k,98) = 1._r8 / lu(k,98) - lu(k,99) = 1._r8 / lu(k,99) - lu(k,100) = 1._r8 / lu(k,100) - lu(k,101) = 1._r8 / lu(k,101) - lu(k,107) = 1._r8 / lu(k,107) - lu(k,113) = 1._r8 / lu(k,113) - lu(k,115) = 1._r8 / lu(k,115) + lu(k,102) = 1._r8 / lu(k,102) + lu(k,108) = 1._r8 / lu(k,108) + lu(k,114) = 1._r8 / lu(k,114) lu(k,116) = 1._r8 / lu(k,116) lu(k,122) = 1._r8 / lu(k,122) - lu(k,128) = 1._r8 / lu(k,128) - lu(k,134) = 1._r8 / lu(k,134) - lu(k,140) = 1._r8 / lu(k,140) - lu(k,141) = 1._r8 / lu(k,141) - lu(k,142) = lu(k,142) * lu(k,141) - lu(k,143) = lu(k,143) * lu(k,141) - lu(k,2006) = lu(k,2006) - lu(k,142) * lu(k,1867) - lu(k,2017) = lu(k,2017) - lu(k,143) * lu(k,1867) - lu(k,144) = 1._r8 / lu(k,144) - lu(k,145) = lu(k,145) * lu(k,144) - lu(k,146) = lu(k,146) * lu(k,144) - lu(k,1832) = lu(k,1832) - lu(k,145) * lu(k,1802) - lu(k,1837) = lu(k,1837) - lu(k,146) * lu(k,1802) - lu(k,147) = 1._r8 / lu(k,147) - lu(k,148) = lu(k,148) * lu(k,147) - lu(k,149) = lu(k,149) * lu(k,147) - lu(k,2006) = lu(k,2006) - lu(k,148) * lu(k,1868) - lu(k,2009) = lu(k,2009) - lu(k,149) * lu(k,1868) - lu(k,150) = 1._r8 / lu(k,150) - lu(k,151) = lu(k,151) * lu(k,150) - lu(k,152) = lu(k,152) * lu(k,150) - lu(k,1636) = lu(k,1636) - lu(k,151) * lu(k,1624) - lu(k,1643) = lu(k,1643) - lu(k,152) * lu(k,1624) - lu(k,153) = 1._r8 / lu(k,153) - lu(k,154) = lu(k,154) * lu(k,153) - lu(k,155) = lu(k,155) * lu(k,153) - lu(k,156) = lu(k,156) * lu(k,153) - lu(k,1815) = lu(k,1815) - lu(k,154) * lu(k,1803) - lu(k,1832) = lu(k,1832) - lu(k,155) * lu(k,1803) - lu(k,1837) = lu(k,1837) - lu(k,156) * lu(k,1803) + lu(k,124) = 1._r8 / lu(k,124) + lu(k,130) = 1._r8 / lu(k,130) + lu(k,136) = 1._r8 / lu(k,136) + lu(k,142) = 1._r8 / lu(k,142) + lu(k,143) = 1._r8 / lu(k,143) + lu(k,144) = lu(k,144) * lu(k,143) + lu(k,145) = lu(k,145) * lu(k,143) + lu(k,1854) = lu(k,1854) - lu(k,144) * lu(k,1717) + lu(k,1867) = lu(k,1867) - lu(k,145) * lu(k,1717) + lu(k,146) = 1._r8 / lu(k,146) + lu(k,147) = lu(k,147) * lu(k,146) + lu(k,148) = lu(k,148) * lu(k,146) + lu(k,2232) = lu(k,2232) - lu(k,147) * lu(k,2201) + lu(k,2237) = lu(k,2237) - lu(k,148) * lu(k,2201) + lu(k,149) = 1._r8 / lu(k,149) + lu(k,150) = lu(k,150) * lu(k,149) + lu(k,151) = lu(k,151) * lu(k,149) + lu(k,1854) = lu(k,1854) - lu(k,150) * lu(k,1718) + lu(k,1863) = lu(k,1863) - lu(k,151) * lu(k,1718) + lu(k,152) = 1._r8 / lu(k,152) + lu(k,153) = lu(k,153) * lu(k,152) + lu(k,154) = lu(k,154) * lu(k,152) + lu(k,2488) = lu(k,2488) - lu(k,153) * lu(k,2473) + lu(k,2498) = lu(k,2498) - lu(k,154) * lu(k,2473) end do end subroutine lu_fac02 subroutine lu_fac03( avec_len, lu ) @@ -164,105 +159,98 @@ subroutine lu_fac03( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,157) = 1._r8 / lu(k,157) - lu(k,158) = lu(k,158) * lu(k,157) - lu(k,159) = lu(k,159) * lu(k,157) - lu(k,160) = lu(k,160) * lu(k,157) - lu(k,1813) = lu(k,1813) - lu(k,158) * lu(k,1804) - lu(k,1832) = lu(k,1832) - lu(k,159) * lu(k,1804) - lu(k,1837) = lu(k,1837) - lu(k,160) * lu(k,1804) - lu(k,161) = 1._r8 / lu(k,161) - lu(k,162) = lu(k,162) * lu(k,161) - lu(k,163) = lu(k,163) * lu(k,161) - lu(k,164) = lu(k,164) * lu(k,161) - lu(k,1813) = lu(k,1813) - lu(k,162) * lu(k,1805) - lu(k,1832) = lu(k,1832) - lu(k,163) * lu(k,1805) - lu(k,1837) = lu(k,1837) - lu(k,164) * lu(k,1805) - lu(k,165) = 1._r8 / lu(k,165) - lu(k,166) = lu(k,166) * lu(k,165) - lu(k,167) = lu(k,167) * lu(k,165) - lu(k,168) = lu(k,168) * lu(k,165) - lu(k,2006) = lu(k,2006) - lu(k,166) * lu(k,1869) - lu(k,2010) = lu(k,2010) - lu(k,167) * lu(k,1869) - lu(k,2017) = lu(k,2017) - lu(k,168) * lu(k,1869) - lu(k,169) = 1._r8 / lu(k,169) - lu(k,170) = lu(k,170) * lu(k,169) - lu(k,171) = lu(k,171) * lu(k,169) - lu(k,172) = lu(k,172) * lu(k,169) - lu(k,1813) = lu(k,1813) - lu(k,170) * lu(k,1806) - lu(k,1826) = lu(k,1826) - lu(k,171) * lu(k,1806) - lu(k,1832) = lu(k,1832) - lu(k,172) * lu(k,1806) - lu(k,173) = 1._r8 / lu(k,173) - lu(k,174) = lu(k,174) * lu(k,173) - lu(k,175) = lu(k,175) * lu(k,173) - lu(k,756) = lu(k,756) - lu(k,174) * lu(k,754) - lu(k,759) = lu(k,759) - lu(k,175) * lu(k,754) - lu(k,1985) = lu(k,1985) - lu(k,174) * lu(k,1870) - lu(k,2006) = lu(k,2006) - lu(k,175) * lu(k,1870) - lu(k,176) = 1._r8 / lu(k,176) - lu(k,177) = lu(k,177) * lu(k,176) - lu(k,178) = lu(k,178) * lu(k,176) - lu(k,307) = lu(k,307) - lu(k,177) * lu(k,306) - lu(k,310) = lu(k,310) - lu(k,178) * lu(k,306) - lu(k,2499) = lu(k,2499) - lu(k,177) * lu(k,2498) - lu(k,2524) = lu(k,2524) - lu(k,178) * lu(k,2498) - lu(k,179) = 1._r8 / lu(k,179) - lu(k,180) = lu(k,180) * lu(k,179) - lu(k,181) = lu(k,181) * lu(k,179) - lu(k,831) = lu(k,831) - lu(k,180) * lu(k,830) - lu(k,837) = - lu(k,181) * lu(k,830) - lu(k,2145) = - lu(k,180) * lu(k,2126) - lu(k,2211) = lu(k,2211) - lu(k,181) * lu(k,2126) - lu(k,182) = 1._r8 / lu(k,182) - lu(k,183) = lu(k,183) * lu(k,182) - lu(k,184) = lu(k,184) * lu(k,182) - lu(k,569) = lu(k,569) - lu(k,183) * lu(k,568) - lu(k,571) = lu(k,571) - lu(k,184) * lu(k,568) - lu(k,1656) = lu(k,1656) - lu(k,183) * lu(k,1651) - lu(k,1681) = lu(k,1681) - lu(k,184) * lu(k,1651) - lu(k,185) = 1._r8 / lu(k,185) - lu(k,186) = lu(k,186) * lu(k,185) - lu(k,187) = lu(k,187) * lu(k,185) - lu(k,188) = lu(k,188) * lu(k,185) - lu(k,189) = lu(k,189) * lu(k,185) - lu(k,1813) = lu(k,1813) - lu(k,186) * lu(k,1807) - lu(k,1826) = lu(k,1826) - lu(k,187) * lu(k,1807) - lu(k,1832) = lu(k,1832) - lu(k,188) * lu(k,1807) - lu(k,1837) = lu(k,1837) - lu(k,189) * lu(k,1807) - lu(k,190) = 1._r8 / lu(k,190) - lu(k,191) = lu(k,191) * lu(k,190) - lu(k,192) = lu(k,192) * lu(k,190) - lu(k,193) = lu(k,193) * lu(k,190) - lu(k,194) = lu(k,194) * lu(k,190) - lu(k,1813) = lu(k,1813) - lu(k,191) * lu(k,1808) - lu(k,1823) = lu(k,1823) - lu(k,192) * lu(k,1808) - lu(k,1826) = lu(k,1826) - lu(k,193) * lu(k,1808) - lu(k,1832) = lu(k,1832) - lu(k,194) * lu(k,1808) - lu(k,195) = 1._r8 / lu(k,195) - lu(k,196) = lu(k,196) * lu(k,195) - lu(k,197) = lu(k,197) * lu(k,195) - lu(k,198) = lu(k,198) * lu(k,195) - lu(k,199) = lu(k,199) * lu(k,195) - lu(k,1813) = lu(k,1813) - lu(k,196) * lu(k,1809) - lu(k,1815) = lu(k,1815) - lu(k,197) * lu(k,1809) - lu(k,1832) = lu(k,1832) - lu(k,198) * lu(k,1809) - lu(k,1837) = lu(k,1837) - lu(k,199) * lu(k,1809) - lu(k,200) = 1._r8 / lu(k,200) - lu(k,201) = lu(k,201) * lu(k,200) - lu(k,202) = lu(k,202) * lu(k,200) - lu(k,203) = lu(k,203) * lu(k,200) - lu(k,204) = lu(k,204) * lu(k,200) - lu(k,1813) = lu(k,1813) - lu(k,201) * lu(k,1810) - lu(k,1823) = lu(k,1823) - lu(k,202) * lu(k,1810) - lu(k,1832) = lu(k,1832) - lu(k,203) * lu(k,1810) - lu(k,1837) = lu(k,1837) - lu(k,204) * lu(k,1810) - lu(k,205) = 1._r8 / lu(k,205) - lu(k,206) = lu(k,206) * lu(k,205) - lu(k,877) = lu(k,877) - lu(k,206) * lu(k,872) - lu(k,1033) = lu(k,1033) - lu(k,206) * lu(k,1025) - lu(k,1547) = lu(k,1547) - lu(k,206) * lu(k,1534) - lu(k,1643) = lu(k,1643) - lu(k,206) * lu(k,1625) - lu(k,2261) = lu(k,2261) - lu(k,206) * lu(k,2223) + lu(k,155) = 1._r8 / lu(k,155) + lu(k,156) = lu(k,156) * lu(k,155) + lu(k,157) = lu(k,157) * lu(k,155) + lu(k,158) = lu(k,158) * lu(k,155) + lu(k,2214) = lu(k,2214) - lu(k,156) * lu(k,2202) + lu(k,2232) = lu(k,2232) - lu(k,157) * lu(k,2202) + lu(k,2237) = lu(k,2237) - lu(k,158) * lu(k,2202) + lu(k,159) = 1._r8 / lu(k,159) + lu(k,160) = lu(k,160) * lu(k,159) + lu(k,161) = lu(k,161) * lu(k,159) + lu(k,162) = lu(k,162) * lu(k,159) + lu(k,2212) = lu(k,2212) - lu(k,160) * lu(k,2203) + lu(k,2232) = lu(k,2232) - lu(k,161) * lu(k,2203) + lu(k,2237) = lu(k,2237) - lu(k,162) * lu(k,2203) + lu(k,163) = 1._r8 / lu(k,163) + lu(k,164) = lu(k,164) * lu(k,163) + lu(k,165) = lu(k,165) * lu(k,163) + lu(k,166) = lu(k,166) * lu(k,163) + lu(k,2212) = lu(k,2212) - lu(k,164) * lu(k,2204) + lu(k,2232) = lu(k,2232) - lu(k,165) * lu(k,2204) + lu(k,2237) = lu(k,2237) - lu(k,166) * lu(k,2204) + lu(k,167) = 1._r8 / lu(k,167) + lu(k,168) = lu(k,168) * lu(k,167) + lu(k,169) = lu(k,169) * lu(k,167) + lu(k,170) = lu(k,170) * lu(k,167) + lu(k,1854) = lu(k,1854) - lu(k,168) * lu(k,1719) + lu(k,1856) = lu(k,1856) - lu(k,169) * lu(k,1719) + lu(k,1867) = lu(k,1867) - lu(k,170) * lu(k,1719) + lu(k,171) = 1._r8 / lu(k,171) + lu(k,172) = lu(k,172) * lu(k,171) + lu(k,173) = lu(k,173) * lu(k,171) + lu(k,174) = lu(k,174) * lu(k,171) + lu(k,2212) = lu(k,2212) - lu(k,172) * lu(k,2205) + lu(k,2225) = lu(k,2225) - lu(k,173) * lu(k,2205) + lu(k,2237) = lu(k,2237) - lu(k,174) * lu(k,2205) + lu(k,175) = 1._r8 / lu(k,175) + lu(k,176) = lu(k,176) * lu(k,175) + lu(k,177) = lu(k,177) * lu(k,175) + lu(k,571) = lu(k,571) - lu(k,176) * lu(k,570) + lu(k,573) = lu(k,573) - lu(k,177) * lu(k,570) + lu(k,1655) = lu(k,1655) - lu(k,176) * lu(k,1650) + lu(k,1680) = lu(k,1680) - lu(k,177) * lu(k,1650) + lu(k,178) = 1._r8 / lu(k,178) + lu(k,179) = lu(k,179) * lu(k,178) + lu(k,180) = lu(k,180) * lu(k,178) + lu(k,181) = lu(k,181) * lu(k,178) + lu(k,182) = lu(k,182) * lu(k,178) + lu(k,2212) = lu(k,2212) - lu(k,179) * lu(k,2206) + lu(k,2225) = lu(k,2225) - lu(k,180) * lu(k,2206) + lu(k,2232) = lu(k,2232) - lu(k,181) * lu(k,2206) + lu(k,2237) = lu(k,2237) - lu(k,182) * lu(k,2206) + lu(k,183) = 1._r8 / lu(k,183) + lu(k,184) = lu(k,184) * lu(k,183) + lu(k,185) = lu(k,185) * lu(k,183) + lu(k,186) = lu(k,186) * lu(k,183) + lu(k,187) = lu(k,187) * lu(k,183) + lu(k,2212) = lu(k,2212) - lu(k,184) * lu(k,2207) + lu(k,2222) = lu(k,2222) - lu(k,185) * lu(k,2207) + lu(k,2225) = lu(k,2225) - lu(k,186) * lu(k,2207) + lu(k,2237) = lu(k,2237) - lu(k,187) * lu(k,2207) + lu(k,188) = 1._r8 / lu(k,188) + lu(k,189) = lu(k,189) * lu(k,188) + lu(k,190) = lu(k,190) * lu(k,188) + lu(k,191) = lu(k,191) * lu(k,188) + lu(k,192) = lu(k,192) * lu(k,188) + lu(k,2212) = lu(k,2212) - lu(k,189) * lu(k,2208) + lu(k,2214) = lu(k,2214) - lu(k,190) * lu(k,2208) + lu(k,2232) = lu(k,2232) - lu(k,191) * lu(k,2208) + lu(k,2237) = lu(k,2237) - lu(k,192) * lu(k,2208) + lu(k,193) = 1._r8 / lu(k,193) + lu(k,194) = lu(k,194) * lu(k,193) + lu(k,195) = lu(k,195) * lu(k,193) + lu(k,196) = lu(k,196) * lu(k,193) + lu(k,197) = lu(k,197) * lu(k,193) + lu(k,2212) = lu(k,2212) - lu(k,194) * lu(k,2209) + lu(k,2222) = lu(k,2222) - lu(k,195) * lu(k,2209) + lu(k,2232) = lu(k,2232) - lu(k,196) * lu(k,2209) + lu(k,2237) = lu(k,2237) - lu(k,197) * lu(k,2209) + lu(k,198) = 1._r8 / lu(k,198) + lu(k,199) = lu(k,199) * lu(k,198) + lu(k,200) = lu(k,200) * lu(k,198) + lu(k,800) = lu(k,800) - lu(k,199) * lu(k,798) + lu(k,803) = lu(k,803) - lu(k,200) * lu(k,798) + lu(k,1835) = lu(k,1835) - lu(k,199) * lu(k,1720) + lu(k,1854) = lu(k,1854) - lu(k,200) * lu(k,1720) + lu(k,201) = 1._r8 / lu(k,201) + lu(k,202) = lu(k,202) * lu(k,201) + lu(k,203) = lu(k,203) * lu(k,201) + lu(k,841) = lu(k,841) - lu(k,202) * lu(k,840) + lu(k,846) = - lu(k,203) * lu(k,840) + lu(k,2309) = - lu(k,202) * lu(k,2290) + lu(k,2373) = lu(k,2373) - lu(k,203) * lu(k,2290) end do end subroutine lu_fac03 subroutine lu_fac04( avec_len, lu ) @@ -279,113 +267,112 @@ subroutine lu_fac04( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,208) = 1._r8 / lu(k,208) - lu(k,209) = lu(k,209) * lu(k,208) - lu(k,210) = lu(k,210) * lu(k,208) - lu(k,211) = lu(k,211) * lu(k,208) - lu(k,212) = lu(k,212) * lu(k,208) - lu(k,213) = lu(k,213) * lu(k,208) - lu(k,1872) = lu(k,1872) - lu(k,209) * lu(k,1871) - lu(k,1873) = lu(k,1873) - lu(k,210) * lu(k,1871) - lu(k,1922) = lu(k,1922) - lu(k,211) * lu(k,1871) - lu(k,2006) = lu(k,2006) - lu(k,212) * lu(k,1871) - lu(k,2009) = lu(k,2009) - lu(k,213) * lu(k,1871) - lu(k,214) = 1._r8 / lu(k,214) - lu(k,215) = lu(k,215) * lu(k,214) - lu(k,216) = lu(k,216) * lu(k,214) - lu(k,217) = lu(k,217) * lu(k,214) - lu(k,1917) = - lu(k,215) * lu(k,1872) - lu(k,1979) = lu(k,1979) - lu(k,216) * lu(k,1872) - lu(k,2009) = lu(k,2009) - lu(k,217) * lu(k,1872) - lu(k,218) = 1._r8 / lu(k,218) - lu(k,219) = lu(k,219) * lu(k,218) - lu(k,220) = lu(k,220) * lu(k,218) - lu(k,221) = lu(k,221) * lu(k,218) - lu(k,222) = lu(k,222) * lu(k,218) - lu(k,1916) = lu(k,1916) - lu(k,219) * lu(k,1873) - lu(k,1921) = lu(k,1921) - lu(k,220) * lu(k,1873) - lu(k,2006) = lu(k,2006) - lu(k,221) * lu(k,1873) - lu(k,2009) = lu(k,2009) - lu(k,222) * lu(k,1873) - lu(k,223) = 1._r8 / lu(k,223) - lu(k,224) = lu(k,224) * lu(k,223) - lu(k,227) = lu(k,227) - lu(k,224) * lu(k,225) - lu(k,1495) = - lu(k,224) * lu(k,1486) - lu(k,1586) = lu(k,1586) - lu(k,224) * lu(k,1568) - lu(k,2411) = lu(k,2411) - lu(k,224) * lu(k,2370) - lu(k,2454) = lu(k,2454) - lu(k,224) * lu(k,2429) - lu(k,226) = 1._r8 / lu(k,226) - lu(k,227) = lu(k,227) * lu(k,226) - lu(k,1495) = lu(k,1495) - lu(k,227) * lu(k,1487) - lu(k,1586) = lu(k,1586) - lu(k,227) * lu(k,1569) - lu(k,1827) = lu(k,1827) - lu(k,227) * lu(k,1811) - lu(k,2411) = lu(k,2411) - lu(k,227) * lu(k,2371) - lu(k,2454) = lu(k,2454) - lu(k,227) * lu(k,2430) - lu(k,229) = 1._r8 / lu(k,229) - lu(k,230) = lu(k,230) * lu(k,229) - lu(k,231) = lu(k,231) * lu(k,229) - lu(k,232) = lu(k,232) * lu(k,229) - lu(k,233) = lu(k,233) * lu(k,229) - lu(k,234) = lu(k,234) * lu(k,229) - lu(k,235) = lu(k,235) * lu(k,229) - lu(k,1875) = lu(k,1875) - lu(k,230) * lu(k,1874) - lu(k,1876) = lu(k,1876) - lu(k,231) * lu(k,1874) - lu(k,1914) = lu(k,1914) - lu(k,232) * lu(k,1874) - lu(k,1949) = lu(k,1949) - lu(k,233) * lu(k,1874) - lu(k,2006) = lu(k,2006) - lu(k,234) * lu(k,1874) - lu(k,2009) = lu(k,2009) - lu(k,235) * lu(k,1874) - lu(k,236) = 1._r8 / lu(k,236) - lu(k,237) = lu(k,237) * lu(k,236) - lu(k,238) = lu(k,238) * lu(k,236) - lu(k,239) = lu(k,239) * lu(k,236) - lu(k,240) = lu(k,240) * lu(k,236) - lu(k,1916) = lu(k,1916) - lu(k,237) * lu(k,1875) - lu(k,1921) = lu(k,1921) - lu(k,238) * lu(k,1875) - lu(k,2006) = lu(k,2006) - lu(k,239) * lu(k,1875) - lu(k,2009) = lu(k,2009) - lu(k,240) * lu(k,1875) - lu(k,241) = 1._r8 / lu(k,241) - lu(k,242) = lu(k,242) * lu(k,241) - lu(k,243) = lu(k,243) * lu(k,241) - lu(k,244) = lu(k,244) * lu(k,241) - lu(k,258) = - lu(k,242) * lu(k,253) - lu(k,259) = - lu(k,243) * lu(k,253) - lu(k,261) = lu(k,261) - lu(k,244) * lu(k,253) - lu(k,1979) = lu(k,1979) - lu(k,242) * lu(k,1876) - lu(k,1994) = lu(k,1994) - lu(k,243) * lu(k,1876) - lu(k,2009) = lu(k,2009) - lu(k,244) * lu(k,1876) - lu(k,245) = 1._r8 / lu(k,245) - lu(k,246) = lu(k,246) * lu(k,245) - lu(k,247) = lu(k,247) * lu(k,245) - lu(k,1277) = lu(k,1277) - lu(k,246) * lu(k,1271) - lu(k,1283) = - lu(k,247) * lu(k,1271) - lu(k,1985) = lu(k,1985) - lu(k,246) * lu(k,1877) - lu(k,2006) = lu(k,2006) - lu(k,247) * lu(k,1877) - lu(k,2191) = lu(k,2191) - lu(k,246) * lu(k,2127) - lu(k,2211) = lu(k,2211) - lu(k,247) * lu(k,2127) - lu(k,248) = 1._r8 / lu(k,248) - lu(k,249) = lu(k,249) * lu(k,248) - lu(k,250) = lu(k,250) * lu(k,248) - lu(k,251) = lu(k,251) * lu(k,248) - lu(k,1832) = lu(k,1832) - lu(k,249) * lu(k,1812) - lu(k,1833) = lu(k,1833) - lu(k,250) * lu(k,1812) - lu(k,1836) = lu(k,1836) - lu(k,251) * lu(k,1812) - lu(k,2005) = - lu(k,249) * lu(k,1878) - lu(k,2006) = lu(k,2006) - lu(k,250) * lu(k,1878) - lu(k,2009) = lu(k,2009) - lu(k,251) * lu(k,1878) - lu(k,254) = 1._r8 / lu(k,254) - lu(k,255) = lu(k,255) * lu(k,254) - lu(k,256) = lu(k,256) * lu(k,254) - lu(k,257) = lu(k,257) * lu(k,254) - lu(k,258) = lu(k,258) * lu(k,254) - lu(k,259) = lu(k,259) * lu(k,254) - lu(k,260) = lu(k,260) * lu(k,254) - lu(k,261) = lu(k,261) * lu(k,254) - lu(k,1880) = lu(k,1880) - lu(k,255) * lu(k,1879) - lu(k,1914) = lu(k,1914) - lu(k,256) * lu(k,1879) - lu(k,1950) = lu(k,1950) - lu(k,257) * lu(k,1879) - lu(k,1979) = lu(k,1979) - lu(k,258) * lu(k,1879) - lu(k,1994) = lu(k,1994) - lu(k,259) * lu(k,1879) - lu(k,2006) = lu(k,2006) - lu(k,260) * lu(k,1879) - lu(k,2009) = lu(k,2009) - lu(k,261) * lu(k,1879) + lu(k,204) = 1._r8 / lu(k,204) + lu(k,205) = lu(k,205) * lu(k,204) + lu(k,206) = lu(k,206) * lu(k,204) + lu(k,309) = lu(k,309) - lu(k,205) * lu(k,308) + lu(k,312) = lu(k,312) - lu(k,206) * lu(k,308) + lu(k,2501) = lu(k,2501) - lu(k,205) * lu(k,2500) + lu(k,2526) = lu(k,2526) - lu(k,206) * lu(k,2500) + lu(k,207) = 1._r8 / lu(k,207) + lu(k,208) = lu(k,208) * lu(k,207) + lu(k,885) = lu(k,885) - lu(k,208) * lu(k,881) + lu(k,1048) = lu(k,1048) - lu(k,208) * lu(k,1042) + lu(k,1545) = lu(k,1545) - lu(k,208) * lu(k,1535) + lu(k,2009) = lu(k,2009) - lu(k,208) * lu(k,1975) + lu(k,2488) = lu(k,2488) - lu(k,208) * lu(k,2474) + lu(k,210) = 1._r8 / lu(k,210) + lu(k,211) = lu(k,211) * lu(k,210) + lu(k,212) = lu(k,212) * lu(k,210) + lu(k,213) = lu(k,213) * lu(k,210) + lu(k,214) = lu(k,214) * lu(k,210) + lu(k,215) = lu(k,215) * lu(k,210) + lu(k,1722) = lu(k,1722) - lu(k,211) * lu(k,1721) + lu(k,1723) = lu(k,1723) - lu(k,212) * lu(k,1721) + lu(k,1770) = lu(k,1770) - lu(k,213) * lu(k,1721) + lu(k,1854) = lu(k,1854) - lu(k,214) * lu(k,1721) + lu(k,1863) = lu(k,1863) - lu(k,215) * lu(k,1721) + lu(k,216) = 1._r8 / lu(k,216) + lu(k,217) = lu(k,217) * lu(k,216) + lu(k,218) = lu(k,218) * lu(k,216) + lu(k,219) = lu(k,219) * lu(k,216) + lu(k,1767) = - lu(k,217) * lu(k,1722) + lu(k,1829) = lu(k,1829) - lu(k,218) * lu(k,1722) + lu(k,1863) = lu(k,1863) - lu(k,219) * lu(k,1722) + lu(k,220) = 1._r8 / lu(k,220) + lu(k,221) = lu(k,221) * lu(k,220) + lu(k,222) = lu(k,222) * lu(k,220) + lu(k,223) = lu(k,223) * lu(k,220) + lu(k,224) = lu(k,224) * lu(k,220) + lu(k,1766) = lu(k,1766) - lu(k,221) * lu(k,1723) + lu(k,1771) = lu(k,1771) - lu(k,222) * lu(k,1723) + lu(k,1854) = lu(k,1854) - lu(k,223) * lu(k,1723) + lu(k,1863) = lu(k,1863) - lu(k,224) * lu(k,1723) + lu(k,225) = 1._r8 / lu(k,225) + lu(k,226) = lu(k,226) * lu(k,225) + lu(k,229) = lu(k,229) - lu(k,226) * lu(k,227) + lu(k,1496) = - lu(k,226) * lu(k,1487) + lu(k,1587) = lu(k,1587) - lu(k,226) * lu(k,1569) + lu(k,2046) = lu(k,2046) - lu(k,226) * lu(k,2021) + lu(k,2110) = lu(k,2110) - lu(k,226) * lu(k,2069) + lu(k,228) = 1._r8 / lu(k,228) + lu(k,229) = lu(k,229) * lu(k,228) + lu(k,1496) = lu(k,1496) - lu(k,229) * lu(k,1488) + lu(k,1587) = lu(k,1587) - lu(k,229) * lu(k,1570) + lu(k,2046) = lu(k,2046) - lu(k,229) * lu(k,2022) + lu(k,2110) = lu(k,2110) - lu(k,229) * lu(k,2070) + lu(k,2226) = lu(k,2226) - lu(k,229) * lu(k,2210) + lu(k,231) = 1._r8 / lu(k,231) + lu(k,232) = lu(k,232) * lu(k,231) + lu(k,233) = lu(k,233) * lu(k,231) + lu(k,234) = lu(k,234) * lu(k,231) + lu(k,235) = lu(k,235) * lu(k,231) + lu(k,236) = lu(k,236) * lu(k,231) + lu(k,237) = lu(k,237) * lu(k,231) + lu(k,1725) = lu(k,1725) - lu(k,232) * lu(k,1724) + lu(k,1726) = lu(k,1726) - lu(k,233) * lu(k,1724) + lu(k,1764) = lu(k,1764) - lu(k,234) * lu(k,1724) + lu(k,1798) = lu(k,1798) - lu(k,235) * lu(k,1724) + lu(k,1854) = lu(k,1854) - lu(k,236) * lu(k,1724) + lu(k,1863) = lu(k,1863) - lu(k,237) * lu(k,1724) + lu(k,238) = 1._r8 / lu(k,238) + lu(k,239) = lu(k,239) * lu(k,238) + lu(k,240) = lu(k,240) * lu(k,238) + lu(k,241) = lu(k,241) * lu(k,238) + lu(k,242) = lu(k,242) * lu(k,238) + lu(k,1766) = lu(k,1766) - lu(k,239) * lu(k,1725) + lu(k,1771) = lu(k,1771) - lu(k,240) * lu(k,1725) + lu(k,1854) = lu(k,1854) - lu(k,241) * lu(k,1725) + lu(k,1863) = lu(k,1863) - lu(k,242) * lu(k,1725) + lu(k,243) = 1._r8 / lu(k,243) + lu(k,244) = lu(k,244) * lu(k,243) + lu(k,245) = lu(k,245) * lu(k,243) + lu(k,246) = lu(k,246) * lu(k,243) + lu(k,260) = - lu(k,244) * lu(k,255) + lu(k,261) = - lu(k,245) * lu(k,255) + lu(k,263) = lu(k,263) - lu(k,246) * lu(k,255) + lu(k,1829) = lu(k,1829) - lu(k,244) * lu(k,1726) + lu(k,1844) = lu(k,1844) - lu(k,245) * lu(k,1726) + lu(k,1863) = lu(k,1863) - lu(k,246) * lu(k,1726) + lu(k,247) = 1._r8 / lu(k,247) + lu(k,248) = lu(k,248) * lu(k,247) + lu(k,249) = lu(k,249) * lu(k,247) + lu(k,1278) = lu(k,1278) - lu(k,248) * lu(k,1272) + lu(k,1283) = - lu(k,249) * lu(k,1272) + lu(k,1835) = lu(k,1835) - lu(k,248) * lu(k,1727) + lu(k,1854) = lu(k,1854) - lu(k,249) * lu(k,1727) + lu(k,2355) = lu(k,2355) - lu(k,248) * lu(k,2291) + lu(k,2373) = lu(k,2373) - lu(k,249) * lu(k,2291) + lu(k,250) = 1._r8 / lu(k,250) + lu(k,251) = lu(k,251) * lu(k,250) + lu(k,252) = lu(k,252) * lu(k,250) + lu(k,253) = lu(k,253) * lu(k,250) + lu(k,1854) = lu(k,1854) - lu(k,251) * lu(k,1728) + lu(k,1861) = - lu(k,252) * lu(k,1728) + lu(k,1863) = lu(k,1863) - lu(k,253) * lu(k,1728) + lu(k,2230) = lu(k,2230) - lu(k,251) * lu(k,2211) + lu(k,2237) = lu(k,2237) - lu(k,252) * lu(k,2211) + lu(k,2239) = lu(k,2239) - lu(k,253) * lu(k,2211) end do end subroutine lu_fac04 subroutine lu_fac05( avec_len, lu ) @@ -402,106 +389,111 @@ subroutine lu_fac05( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,262) = 1._r8 / lu(k,262) - lu(k,263) = lu(k,263) * lu(k,262) - lu(k,264) = lu(k,264) * lu(k,262) - lu(k,265) = lu(k,265) * lu(k,262) - lu(k,266) = lu(k,266) * lu(k,262) - lu(k,1921) = lu(k,1921) - lu(k,263) * lu(k,1880) - lu(k,1923) = lu(k,1923) - lu(k,264) * lu(k,1880) - lu(k,2006) = lu(k,2006) - lu(k,265) * lu(k,1880) - lu(k,2009) = lu(k,2009) - lu(k,266) * lu(k,1880) - lu(k,267) = 1._r8 / lu(k,267) - lu(k,268) = lu(k,268) * lu(k,267) - lu(k,269) = lu(k,269) * lu(k,267) - lu(k,298) = - lu(k,268) * lu(k,296) - lu(k,299) = lu(k,299) - lu(k,269) * lu(k,296) - lu(k,357) = - lu(k,268) * lu(k,355) - lu(k,358) = lu(k,358) - lu(k,269) * lu(k,355) - lu(k,1823) = lu(k,1823) - lu(k,268) * lu(k,1813) - lu(k,1832) = lu(k,1832) - lu(k,269) * lu(k,1813) - lu(k,1962) = - lu(k,268) * lu(k,1881) - lu(k,2005) = lu(k,2005) - lu(k,269) * lu(k,1881) - lu(k,270) = 1._r8 / lu(k,270) - lu(k,271) = lu(k,271) * lu(k,270) - lu(k,272) = lu(k,272) * lu(k,270) - lu(k,1007) = - lu(k,271) * lu(k,1003) - lu(k,1019) = lu(k,1019) - lu(k,272) * lu(k,1003) - lu(k,1063) = - lu(k,271) * lu(k,1059) - lu(k,1075) = lu(k,1075) - lu(k,272) * lu(k,1059) - lu(k,1969) = lu(k,1969) - lu(k,271) * lu(k,1882) - lu(k,2006) = lu(k,2006) - lu(k,272) * lu(k,1882) - lu(k,2385) = - lu(k,271) * lu(k,2372) - lu(k,2417) = lu(k,2417) - lu(k,272) * lu(k,2372) - lu(k,273) = 1._r8 / lu(k,273) - lu(k,274) = lu(k,274) * lu(k,273) - lu(k,275) = lu(k,275) * lu(k,273) - lu(k,843) = lu(k,843) - lu(k,274) * lu(k,840) - lu(k,846) = - lu(k,275) * lu(k,840) - lu(k,1540) = - lu(k,274) * lu(k,1535) - lu(k,1547) = lu(k,1547) - lu(k,275) * lu(k,1535) - lu(k,1607) = lu(k,1607) - lu(k,274) * lu(k,1600) - lu(k,1617) = lu(k,1617) - lu(k,275) * lu(k,1600) - lu(k,1633) = lu(k,1633) - lu(k,274) * lu(k,1626) - lu(k,1643) = lu(k,1643) - lu(k,275) * lu(k,1626) - lu(k,276) = 1._r8 / lu(k,276) - lu(k,277) = lu(k,277) * lu(k,276) - lu(k,278) = lu(k,278) * lu(k,276) - lu(k,1226) = lu(k,1226) - lu(k,277) * lu(k,1215) - lu(k,1230) = - lu(k,278) * lu(k,1215) - lu(k,1244) = lu(k,1244) - lu(k,277) * lu(k,1234) - lu(k,1248) = lu(k,1248) - lu(k,278) * lu(k,1234) - lu(k,1787) = lu(k,1787) - lu(k,277) * lu(k,1719) - lu(k,1796) = - lu(k,278) * lu(k,1719) - lu(k,2003) = lu(k,2003) - lu(k,277) * lu(k,1883) - lu(k,2012) = lu(k,2012) - lu(k,278) * lu(k,1883) - lu(k,279) = 1._r8 / lu(k,279) - lu(k,280) = lu(k,280) * lu(k,279) - lu(k,281) = lu(k,281) * lu(k,279) - lu(k,375) = - lu(k,280) * lu(k,372) - lu(k,376) = lu(k,376) - lu(k,281) * lu(k,372) - lu(k,482) = - lu(k,280) * lu(k,479) - lu(k,485) = - lu(k,281) * lu(k,479) - lu(k,1733) = lu(k,1733) - lu(k,280) * lu(k,1720) - lu(k,1790) = lu(k,1790) - lu(k,281) * lu(k,1720) - lu(k,1925) = lu(k,1925) - lu(k,280) * lu(k,1884) - lu(k,2006) = lu(k,2006) - lu(k,281) * lu(k,1884) - lu(k,282) = 1._r8 / lu(k,282) - lu(k,283) = lu(k,283) * lu(k,282) - lu(k,284) = lu(k,284) * lu(k,282) - lu(k,285) = lu(k,285) * lu(k,282) - lu(k,286) = lu(k,286) * lu(k,282) - lu(k,1362) = - lu(k,283) * lu(k,1359) - lu(k,1373) = - lu(k,284) * lu(k,1359) - lu(k,1384) = - lu(k,285) * lu(k,1359) - lu(k,1386) = lu(k,1386) - lu(k,286) * lu(k,1359) - lu(k,1937) = - lu(k,283) * lu(k,1885) - lu(k,1985) = lu(k,1985) - lu(k,284) * lu(k,1885) - lu(k,2006) = lu(k,2006) - lu(k,285) * lu(k,1885) - lu(k,2009) = lu(k,2009) - lu(k,286) * lu(k,1885) - lu(k,287) = 1._r8 / lu(k,287) - lu(k,288) = lu(k,288) * lu(k,287) - lu(k,289) = lu(k,289) * lu(k,287) - lu(k,290) = lu(k,290) * lu(k,287) - lu(k,291) = lu(k,291) * lu(k,287) - lu(k,1815) = lu(k,1815) - lu(k,288) * lu(k,1814) - lu(k,1832) = lu(k,1832) - lu(k,289) * lu(k,1814) - lu(k,1833) = lu(k,1833) - lu(k,290) * lu(k,1814) - lu(k,1837) = lu(k,1837) - lu(k,291) * lu(k,1814) - lu(k,1887) = lu(k,1887) - lu(k,288) * lu(k,1886) - lu(k,2005) = lu(k,2005) - lu(k,289) * lu(k,1886) - lu(k,2006) = lu(k,2006) - lu(k,290) * lu(k,1886) - lu(k,2010) = lu(k,2010) - lu(k,291) * lu(k,1886) - lu(k,292) = 1._r8 / lu(k,292) - lu(k,293) = lu(k,293) * lu(k,292) - lu(k,294) = lu(k,294) * lu(k,292) - lu(k,295) = lu(k,295) * lu(k,292) - lu(k,1823) = lu(k,1823) - lu(k,293) * lu(k,1815) - lu(k,1832) = lu(k,1832) - lu(k,294) * lu(k,1815) - lu(k,1837) = lu(k,1837) - lu(k,295) * lu(k,1815) - lu(k,1962) = lu(k,1962) - lu(k,293) * lu(k,1887) - lu(k,2005) = lu(k,2005) - lu(k,294) * lu(k,1887) - lu(k,2010) = lu(k,2010) - lu(k,295) * lu(k,1887) + lu(k,256) = 1._r8 / lu(k,256) + lu(k,257) = lu(k,257) * lu(k,256) + lu(k,258) = lu(k,258) * lu(k,256) + lu(k,259) = lu(k,259) * lu(k,256) + lu(k,260) = lu(k,260) * lu(k,256) + lu(k,261) = lu(k,261) * lu(k,256) + lu(k,262) = lu(k,262) * lu(k,256) + lu(k,263) = lu(k,263) * lu(k,256) + lu(k,1730) = lu(k,1730) - lu(k,257) * lu(k,1729) + lu(k,1764) = lu(k,1764) - lu(k,258) * lu(k,1729) + lu(k,1800) = lu(k,1800) - lu(k,259) * lu(k,1729) + lu(k,1829) = lu(k,1829) - lu(k,260) * lu(k,1729) + lu(k,1844) = lu(k,1844) - lu(k,261) * lu(k,1729) + lu(k,1854) = lu(k,1854) - lu(k,262) * lu(k,1729) + lu(k,1863) = lu(k,1863) - lu(k,263) * lu(k,1729) + lu(k,264) = 1._r8 / lu(k,264) + lu(k,265) = lu(k,265) * lu(k,264) + lu(k,266) = lu(k,266) * lu(k,264) + lu(k,267) = lu(k,267) * lu(k,264) + lu(k,268) = lu(k,268) * lu(k,264) + lu(k,1771) = lu(k,1771) - lu(k,265) * lu(k,1730) + lu(k,1773) = lu(k,1773) - lu(k,266) * lu(k,1730) + lu(k,1854) = lu(k,1854) - lu(k,267) * lu(k,1730) + lu(k,1863) = lu(k,1863) - lu(k,268) * lu(k,1730) + lu(k,269) = 1._r8 / lu(k,269) + lu(k,270) = lu(k,270) * lu(k,269) + lu(k,271) = lu(k,271) * lu(k,269) + lu(k,1008) = - lu(k,270) * lu(k,1004) + lu(k,1020) = lu(k,1020) - lu(k,271) * lu(k,1004) + lu(k,1064) = - lu(k,270) * lu(k,1060) + lu(k,1076) = lu(k,1076) - lu(k,271) * lu(k,1060) + lu(k,1819) = lu(k,1819) - lu(k,270) * lu(k,1731) + lu(k,1854) = lu(k,1854) - lu(k,271) * lu(k,1731) + lu(k,2084) = - lu(k,270) * lu(k,2071) + lu(k,2114) = lu(k,2114) - lu(k,271) * lu(k,2071) + lu(k,272) = 1._r8 / lu(k,272) + lu(k,273) = lu(k,273) * lu(k,272) + lu(k,274) = lu(k,274) * lu(k,272) + lu(k,834) = lu(k,834) - lu(k,273) * lu(k,831) + lu(k,837) = - lu(k,274) * lu(k,831) + lu(k,1541) = - lu(k,273) * lu(k,1536) + lu(k,1545) = lu(k,1545) - lu(k,274) * lu(k,1536) + lu(k,1608) = lu(k,1608) - lu(k,273) * lu(k,1601) + lu(k,1614) = lu(k,1614) - lu(k,274) * lu(k,1601) + lu(k,2482) = lu(k,2482) - lu(k,273) * lu(k,2475) + lu(k,2488) = lu(k,2488) - lu(k,274) * lu(k,2475) + lu(k,275) = 1._r8 / lu(k,275) + lu(k,276) = lu(k,276) * lu(k,275) + lu(k,277) = lu(k,277) * lu(k,275) + lu(k,1227) = lu(k,1227) - lu(k,276) * lu(k,1216) + lu(k,1231) = - lu(k,277) * lu(k,1216) + lu(k,1245) = lu(k,1245) - lu(k,276) * lu(k,1235) + lu(k,1248) = lu(k,1248) - lu(k,277) * lu(k,1235) + lu(k,1853) = lu(k,1853) - lu(k,276) * lu(k,1732) + lu(k,1862) = lu(k,1862) - lu(k,277) * lu(k,1732) + lu(k,1960) = lu(k,1960) - lu(k,276) * lu(k,1891) + lu(k,1969) = - lu(k,277) * lu(k,1891) + lu(k,278) = 1._r8 / lu(k,278) + lu(k,279) = lu(k,279) * lu(k,278) + lu(k,280) = lu(k,280) * lu(k,278) + lu(k,372) = - lu(k,279) * lu(k,369) + lu(k,373) = lu(k,373) - lu(k,280) * lu(k,369) + lu(k,478) = - lu(k,279) * lu(k,475) + lu(k,480) = - lu(k,280) * lu(k,475) + lu(k,1775) = lu(k,1775) - lu(k,279) * lu(k,1733) + lu(k,1854) = lu(k,1854) - lu(k,280) * lu(k,1733) + lu(k,1905) = lu(k,1905) - lu(k,279) * lu(k,1892) + lu(k,1961) = lu(k,1961) - lu(k,280) * lu(k,1892) + lu(k,281) = 1._r8 / lu(k,281) + lu(k,282) = lu(k,282) * lu(k,281) + lu(k,283) = lu(k,283) * lu(k,281) + lu(k,284) = lu(k,284) * lu(k,281) + lu(k,285) = lu(k,285) * lu(k,281) + lu(k,1363) = - lu(k,282) * lu(k,1360) + lu(k,1374) = - lu(k,283) * lu(k,1360) + lu(k,1384) = - lu(k,284) * lu(k,1360) + lu(k,1389) = lu(k,1389) - lu(k,285) * lu(k,1360) + lu(k,1785) = - lu(k,282) * lu(k,1734) + lu(k,1835) = lu(k,1835) - lu(k,283) * lu(k,1734) + lu(k,1854) = lu(k,1854) - lu(k,284) * lu(k,1734) + lu(k,1863) = lu(k,1863) - lu(k,285) * lu(k,1734) + lu(k,286) = 1._r8 / lu(k,286) + lu(k,287) = lu(k,287) * lu(k,286) + lu(k,288) = lu(k,288) * lu(k,286) + lu(k,300) = - lu(k,287) * lu(k,298) + lu(k,303) = lu(k,303) - lu(k,288) * lu(k,298) + lu(k,356) = - lu(k,287) * lu(k,354) + lu(k,359) = lu(k,359) - lu(k,288) * lu(k,354) + lu(k,1812) = - lu(k,287) * lu(k,1735) + lu(k,1861) = lu(k,1861) - lu(k,288) * lu(k,1735) + lu(k,2222) = lu(k,2222) - lu(k,287) * lu(k,2212) + lu(k,2237) = lu(k,2237) - lu(k,288) * lu(k,2212) + lu(k,289) = 1._r8 / lu(k,289) + lu(k,290) = lu(k,290) * lu(k,289) + lu(k,291) = lu(k,291) * lu(k,289) + lu(k,292) = lu(k,292) * lu(k,289) + lu(k,293) = lu(k,293) * lu(k,289) + lu(k,1737) = lu(k,1737) - lu(k,290) * lu(k,1736) + lu(k,1854) = lu(k,1854) - lu(k,291) * lu(k,1736) + lu(k,1856) = lu(k,1856) - lu(k,292) * lu(k,1736) + lu(k,1861) = lu(k,1861) - lu(k,293) * lu(k,1736) + lu(k,2214) = lu(k,2214) - lu(k,290) * lu(k,2213) + lu(k,2230) = lu(k,2230) - lu(k,291) * lu(k,2213) + lu(k,2232) = lu(k,2232) - lu(k,292) * lu(k,2213) + lu(k,2237) = lu(k,2237) - lu(k,293) * lu(k,2213) end do end subroutine lu_fac05 subroutine lu_fac06( avec_len, lu ) @@ -518,132 +510,129 @@ subroutine lu_fac06( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,297) = 1._r8 / lu(k,297) - lu(k,298) = lu(k,298) * lu(k,297) - lu(k,299) = lu(k,299) * lu(k,297) - lu(k,300) = lu(k,300) * lu(k,297) - lu(k,301) = lu(k,301) * lu(k,297) - lu(k,1823) = lu(k,1823) - lu(k,298) * lu(k,1816) - lu(k,1832) = lu(k,1832) - lu(k,299) * lu(k,1816) - lu(k,1833) = lu(k,1833) - lu(k,300) * lu(k,1816) - lu(k,1837) = lu(k,1837) - lu(k,301) * lu(k,1816) - lu(k,1962) = lu(k,1962) - lu(k,298) * lu(k,1888) - lu(k,2005) = lu(k,2005) - lu(k,299) * lu(k,1888) - lu(k,2006) = lu(k,2006) - lu(k,300) * lu(k,1888) - lu(k,2010) = lu(k,2010) - lu(k,301) * lu(k,1888) - lu(k,302) = 1._r8 / lu(k,302) - lu(k,303) = lu(k,303) * lu(k,302) - lu(k,304) = lu(k,304) * lu(k,302) - lu(k,305) = lu(k,305) * lu(k,302) - lu(k,1046) = lu(k,1046) - lu(k,303) * lu(k,1037) - lu(k,1048) = lu(k,1048) - lu(k,304) * lu(k,1037) - lu(k,1049) = - lu(k,305) * lu(k,1037) - lu(k,1678) = lu(k,1678) - lu(k,303) * lu(k,1652) - lu(k,1682) = lu(k,1682) - lu(k,304) * lu(k,1652) - lu(k,1683) = - lu(k,305) * lu(k,1652) - lu(k,1827) = lu(k,1827) - lu(k,303) * lu(k,1817) - lu(k,1831) = lu(k,1831) - lu(k,304) * lu(k,1817) - lu(k,1832) = lu(k,1832) - lu(k,305) * lu(k,1817) - lu(k,307) = 1._r8 / lu(k,307) - lu(k,308) = lu(k,308) * lu(k,307) - lu(k,309) = lu(k,309) * lu(k,307) - lu(k,310) = lu(k,310) * lu(k,307) - lu(k,991) = lu(k,991) - lu(k,308) * lu(k,990) - lu(k,995) = lu(k,995) - lu(k,309) * lu(k,990) - lu(k,996) = - lu(k,310) * lu(k,990) - lu(k,1964) = lu(k,1964) - lu(k,308) * lu(k,1889) - lu(k,2015) = lu(k,2015) - lu(k,309) * lu(k,1889) - lu(k,2017) = lu(k,2017) - lu(k,310) * lu(k,1889) - lu(k,2502) = - lu(k,308) * lu(k,2499) - lu(k,2522) = lu(k,2522) - lu(k,309) * lu(k,2499) - lu(k,2524) = lu(k,2524) - lu(k,310) * lu(k,2499) - lu(k,311) = 1._r8 / lu(k,311) - lu(k,312) = lu(k,312) * lu(k,311) - lu(k,313) = lu(k,313) * lu(k,311) - lu(k,314) = lu(k,314) * lu(k,311) - lu(k,951) = lu(k,951) - lu(k,312) * lu(k,947) - lu(k,955) = - lu(k,313) * lu(k,947) - lu(k,956) = lu(k,956) - lu(k,314) * lu(k,947) - lu(k,1978) = lu(k,1978) - lu(k,312) * lu(k,1890) - lu(k,2006) = lu(k,2006) - lu(k,313) * lu(k,1890) - lu(k,2009) = lu(k,2009) - lu(k,314) * lu(k,1890) - lu(k,2330) = lu(k,2330) - lu(k,312) * lu(k,2313) - lu(k,2353) = - lu(k,313) * lu(k,2313) - lu(k,2356) = lu(k,2356) - lu(k,314) * lu(k,2313) - lu(k,315) = 1._r8 / lu(k,315) - lu(k,316) = lu(k,316) * lu(k,315) - lu(k,317) = lu(k,317) * lu(k,315) - lu(k,318) = lu(k,318) * lu(k,315) - lu(k,691) = lu(k,691) - lu(k,316) * lu(k,690) - lu(k,692) = lu(k,692) - lu(k,317) * lu(k,690) - lu(k,695) = - lu(k,318) * lu(k,690) - lu(k,1921) = lu(k,1921) - lu(k,316) * lu(k,1891) - lu(k,1939) = lu(k,1939) - lu(k,317) * lu(k,1891) - lu(k,2006) = lu(k,2006) - lu(k,318) * lu(k,1891) - lu(k,2148) = - lu(k,316) * lu(k,2128) - lu(k,2157) = lu(k,2157) - lu(k,317) * lu(k,2128) - lu(k,2211) = lu(k,2211) - lu(k,318) * lu(k,2128) - lu(k,319) = 1._r8 / lu(k,319) - lu(k,320) = lu(k,320) * lu(k,319) - lu(k,321) = lu(k,321) * lu(k,319) - lu(k,322) = lu(k,322) * lu(k,319) - lu(k,323) = lu(k,323) * lu(k,319) - lu(k,324) = lu(k,324) * lu(k,319) - lu(k,1681) = lu(k,1681) - lu(k,320) * lu(k,1653) - lu(k,1682) = lu(k,1682) - lu(k,321) * lu(k,1653) - lu(k,1685) = lu(k,1685) - lu(k,322) * lu(k,1653) - lu(k,1690) = lu(k,1690) - lu(k,323) * lu(k,1653) - lu(k,1693) = lu(k,1693) - lu(k,324) * lu(k,1653) - lu(k,2063) = lu(k,2063) - lu(k,320) * lu(k,2020) - lu(k,2064) = lu(k,2064) - lu(k,321) * lu(k,2020) - lu(k,2067) = lu(k,2067) - lu(k,322) * lu(k,2020) - lu(k,2072) = lu(k,2072) - lu(k,323) * lu(k,2020) - lu(k,2075) = lu(k,2075) - lu(k,324) * lu(k,2020) - lu(k,325) = 1._r8 / lu(k,325) - lu(k,326) = lu(k,326) * lu(k,325) - lu(k,327) = lu(k,327) * lu(k,325) - lu(k,328) = lu(k,328) * lu(k,325) - lu(k,329) = lu(k,329) * lu(k,325) - lu(k,330) = lu(k,330) * lu(k,325) - lu(k,1959) = lu(k,1959) - lu(k,326) * lu(k,1892) - lu(k,1970) = lu(k,1970) - lu(k,327) * lu(k,1892) - lu(k,1979) = lu(k,1979) - lu(k,328) * lu(k,1892) - lu(k,2006) = lu(k,2006) - lu(k,329) * lu(k,1892) - lu(k,2009) = lu(k,2009) - lu(k,330) * lu(k,1892) - lu(k,2235) = - lu(k,326) * lu(k,2224) - lu(k,2239) = - lu(k,327) * lu(k,2224) - lu(k,2242) = lu(k,2242) - lu(k,328) * lu(k,2224) - lu(k,2257) = lu(k,2257) - lu(k,329) * lu(k,2224) - lu(k,2260) = lu(k,2260) - lu(k,330) * lu(k,2224) - lu(k,331) = 1._r8 / lu(k,331) - lu(k,332) = lu(k,332) * lu(k,331) - lu(k,333) = lu(k,333) * lu(k,331) - lu(k,666) = - lu(k,332) * lu(k,660) - lu(k,670) = lu(k,670) - lu(k,333) * lu(k,660) - lu(k,769) = - lu(k,332) * lu(k,762) - lu(k,776) = lu(k,776) - lu(k,333) * lu(k,762) - lu(k,796) = - lu(k,332) * lu(k,790) - lu(k,804) = lu(k,804) - lu(k,333) * lu(k,790) - lu(k,812) = - lu(k,332) * lu(k,805) - lu(k,821) = lu(k,821) - lu(k,333) * lu(k,805) - lu(k,1745) = lu(k,1745) - lu(k,332) * lu(k,1721) - lu(k,1793) = lu(k,1793) - lu(k,333) * lu(k,1721) - lu(k,334) = 1._r8 / lu(k,334) - lu(k,335) = lu(k,335) * lu(k,334) - lu(k,336) = lu(k,336) * lu(k,334) - lu(k,337) = lu(k,337) * lu(k,334) - lu(k,338) = lu(k,338) * lu(k,334) - lu(k,339) = lu(k,339) * lu(k,334) - lu(k,1960) = lu(k,1960) - lu(k,335) * lu(k,1893) - lu(k,1998) = lu(k,1998) - lu(k,336) * lu(k,1893) - lu(k,2006) = lu(k,2006) - lu(k,337) * lu(k,1893) - lu(k,2010) = lu(k,2010) - lu(k,338) * lu(k,1893) - lu(k,2017) = lu(k,2017) - lu(k,339) * lu(k,1893) - lu(k,2236) = lu(k,2236) - lu(k,335) * lu(k,2225) - lu(k,2249) = lu(k,2249) - lu(k,336) * lu(k,2225) - lu(k,2257) = lu(k,2257) - lu(k,337) * lu(k,2225) - lu(k,2261) = lu(k,2261) - lu(k,338) * lu(k,2225) - lu(k,2268) = - lu(k,339) * lu(k,2225) + lu(k,294) = 1._r8 / lu(k,294) + lu(k,295) = lu(k,295) * lu(k,294) + lu(k,296) = lu(k,296) * lu(k,294) + lu(k,297) = lu(k,297) * lu(k,294) + lu(k,1812) = lu(k,1812) - lu(k,295) * lu(k,1737) + lu(k,1856) = lu(k,1856) - lu(k,296) * lu(k,1737) + lu(k,1861) = lu(k,1861) - lu(k,297) * lu(k,1737) + lu(k,2222) = lu(k,2222) - lu(k,295) * lu(k,2214) + lu(k,2232) = lu(k,2232) - lu(k,296) * lu(k,2214) + lu(k,2237) = lu(k,2237) - lu(k,297) * lu(k,2214) + lu(k,299) = 1._r8 / lu(k,299) + lu(k,300) = lu(k,300) * lu(k,299) + lu(k,301) = lu(k,301) * lu(k,299) + lu(k,302) = lu(k,302) * lu(k,299) + lu(k,303) = lu(k,303) * lu(k,299) + lu(k,1812) = lu(k,1812) - lu(k,300) * lu(k,1738) + lu(k,1854) = lu(k,1854) - lu(k,301) * lu(k,1738) + lu(k,1856) = lu(k,1856) - lu(k,302) * lu(k,1738) + lu(k,1861) = lu(k,1861) - lu(k,303) * lu(k,1738) + lu(k,2222) = lu(k,2222) - lu(k,300) * lu(k,2215) + lu(k,2230) = lu(k,2230) - lu(k,301) * lu(k,2215) + lu(k,2232) = lu(k,2232) - lu(k,302) * lu(k,2215) + lu(k,2237) = lu(k,2237) - lu(k,303) * lu(k,2215) + lu(k,304) = 1._r8 / lu(k,304) + lu(k,305) = lu(k,305) * lu(k,304) + lu(k,306) = lu(k,306) * lu(k,304) + lu(k,307) = lu(k,307) * lu(k,304) + lu(k,947) = lu(k,947) - lu(k,305) * lu(k,943) + lu(k,950) = - lu(k,306) * lu(k,943) + lu(k,953) = lu(k,953) - lu(k,307) * lu(k,943) + lu(k,1828) = lu(k,1828) - lu(k,305) * lu(k,1739) + lu(k,1854) = lu(k,1854) - lu(k,306) * lu(k,1739) + lu(k,1863) = lu(k,1863) - lu(k,307) * lu(k,1739) + lu(k,2166) = lu(k,2166) - lu(k,305) * lu(k,2149) + lu(k,2187) = - lu(k,306) * lu(k,2149) + lu(k,2196) = lu(k,2196) - lu(k,307) * lu(k,2149) + lu(k,309) = 1._r8 / lu(k,309) + lu(k,310) = lu(k,310) * lu(k,309) + lu(k,311) = lu(k,311) * lu(k,309) + lu(k,312) = lu(k,312) * lu(k,309) + lu(k,992) = lu(k,992) - lu(k,310) * lu(k,991) + lu(k,995) = lu(k,995) - lu(k,311) * lu(k,991) + lu(k,997) = - lu(k,312) * lu(k,991) + lu(k,1814) = lu(k,1814) - lu(k,310) * lu(k,1740) + lu(k,1857) = lu(k,1857) - lu(k,311) * lu(k,1740) + lu(k,1867) = lu(k,1867) - lu(k,312) * lu(k,1740) + lu(k,2504) = - lu(k,310) * lu(k,2501) + lu(k,2516) = lu(k,2516) - lu(k,311) * lu(k,2501) + lu(k,2526) = lu(k,2526) - lu(k,312) * lu(k,2501) + lu(k,313) = 1._r8 / lu(k,313) + lu(k,314) = lu(k,314) * lu(k,313) + lu(k,315) = lu(k,315) * lu(k,313) + lu(k,316) = lu(k,316) * lu(k,313) + lu(k,697) = lu(k,697) - lu(k,314) * lu(k,696) + lu(k,698) = lu(k,698) - lu(k,315) * lu(k,696) + lu(k,700) = - lu(k,316) * lu(k,696) + lu(k,1771) = lu(k,1771) - lu(k,314) * lu(k,1741) + lu(k,1789) = lu(k,1789) - lu(k,315) * lu(k,1741) + lu(k,1854) = lu(k,1854) - lu(k,316) * lu(k,1741) + lu(k,2312) = - lu(k,314) * lu(k,2292) + lu(k,2321) = lu(k,2321) - lu(k,315) * lu(k,2292) + lu(k,2373) = lu(k,2373) - lu(k,316) * lu(k,2292) + lu(k,317) = 1._r8 / lu(k,317) + lu(k,318) = lu(k,318) * lu(k,317) + lu(k,319) = lu(k,319) * lu(k,317) + lu(k,320) = lu(k,320) * lu(k,317) + lu(k,1035) = lu(k,1035) - lu(k,318) * lu(k,1026) + lu(k,1038) = lu(k,1038) - lu(k,319) * lu(k,1026) + lu(k,1041) = - lu(k,320) * lu(k,1026) + lu(k,1677) = lu(k,1677) - lu(k,318) * lu(k,1651) + lu(k,1682) = lu(k,1682) - lu(k,319) * lu(k,1651) + lu(k,1688) = - lu(k,320) * lu(k,1651) + lu(k,2226) = lu(k,2226) - lu(k,318) * lu(k,2216) + lu(k,2231) = lu(k,2231) - lu(k,319) * lu(k,2216) + lu(k,2237) = lu(k,2237) - lu(k,320) * lu(k,2216) + lu(k,321) = 1._r8 / lu(k,321) + lu(k,322) = lu(k,322) * lu(k,321) + lu(k,323) = lu(k,323) * lu(k,321) + lu(k,324) = lu(k,324) * lu(k,321) + lu(k,325) = lu(k,325) * lu(k,321) + lu(k,326) = lu(k,326) * lu(k,321) + lu(k,1810) = lu(k,1810) - lu(k,322) * lu(k,1742) + lu(k,1820) = lu(k,1820) - lu(k,323) * lu(k,1742) + lu(k,1829) = lu(k,1829) - lu(k,324) * lu(k,1742) + lu(k,1854) = lu(k,1854) - lu(k,325) * lu(k,1742) + lu(k,1863) = lu(k,1863) - lu(k,326) * lu(k,1742) + lu(k,1988) = - lu(k,322) * lu(k,1976) + lu(k,1991) = - lu(k,323) * lu(k,1976) + lu(k,1994) = lu(k,1994) - lu(k,324) * lu(k,1976) + lu(k,2007) = lu(k,2007) - lu(k,325) * lu(k,1976) + lu(k,2016) = lu(k,2016) - lu(k,326) * lu(k,1976) + lu(k,327) = 1._r8 / lu(k,327) + lu(k,328) = lu(k,328) * lu(k,327) + lu(k,329) = lu(k,329) * lu(k,327) + lu(k,330) = lu(k,330) * lu(k,327) + lu(k,331) = lu(k,331) * lu(k,327) + lu(k,332) = lu(k,332) * lu(k,327) + lu(k,1809) = lu(k,1809) - lu(k,328) * lu(k,1743) + lu(k,1848) = lu(k,1848) - lu(k,329) * lu(k,1743) + lu(k,1854) = lu(k,1854) - lu(k,330) * lu(k,1743) + lu(k,1856) = lu(k,1856) - lu(k,331) * lu(k,1743) + lu(k,1867) = lu(k,1867) - lu(k,332) * lu(k,1743) + lu(k,1987) = lu(k,1987) - lu(k,328) * lu(k,1977) + lu(k,2001) = lu(k,2001) - lu(k,329) * lu(k,1977) + lu(k,2007) = lu(k,2007) - lu(k,330) * lu(k,1977) + lu(k,2009) = lu(k,2009) - lu(k,331) * lu(k,1977) + lu(k,2020) = - lu(k,332) * lu(k,1977) + lu(k,333) = 1._r8 / lu(k,333) + lu(k,334) = lu(k,334) * lu(k,333) + lu(k,335) = lu(k,335) * lu(k,333) + lu(k,336) = lu(k,336) * lu(k,333) + lu(k,337) = lu(k,337) * lu(k,333) + lu(k,338) = lu(k,338) * lu(k,333) + lu(k,1813) = lu(k,1813) - lu(k,334) * lu(k,1744) + lu(k,1848) = lu(k,1848) - lu(k,335) * lu(k,1744) + lu(k,1854) = lu(k,1854) - lu(k,336) * lu(k,1744) + lu(k,1856) = lu(k,1856) - lu(k,337) * lu(k,1744) + lu(k,1867) = lu(k,1867) - lu(k,338) * lu(k,1744) + lu(k,1989) = lu(k,1989) - lu(k,334) * lu(k,1978) + lu(k,2001) = lu(k,2001) - lu(k,335) * lu(k,1978) + lu(k,2007) = lu(k,2007) - lu(k,336) * lu(k,1978) + lu(k,2009) = lu(k,2009) - lu(k,337) * lu(k,1978) + lu(k,2020) = lu(k,2020) - lu(k,338) * lu(k,1978) end do end subroutine lu_fac06 subroutine lu_fac07( avec_len, lu ) @@ -660,152 +649,163 @@ subroutine lu_fac07( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,340) = 1._r8 / lu(k,340) - lu(k,341) = lu(k,341) * lu(k,340) - lu(k,342) = lu(k,342) * lu(k,340) - lu(k,343) = lu(k,343) * lu(k,340) - lu(k,344) = lu(k,344) * lu(k,340) - lu(k,345) = lu(k,345) * lu(k,340) - lu(k,1963) = lu(k,1963) - lu(k,341) * lu(k,1894) - lu(k,1998) = lu(k,1998) - lu(k,342) * lu(k,1894) - lu(k,2006) = lu(k,2006) - lu(k,343) * lu(k,1894) - lu(k,2010) = lu(k,2010) - lu(k,344) * lu(k,1894) - lu(k,2017) = lu(k,2017) - lu(k,345) * lu(k,1894) - lu(k,2237) = lu(k,2237) - lu(k,341) * lu(k,2226) - lu(k,2249) = lu(k,2249) - lu(k,342) * lu(k,2226) - lu(k,2257) = lu(k,2257) - lu(k,343) * lu(k,2226) - lu(k,2261) = lu(k,2261) - lu(k,344) * lu(k,2226) - lu(k,2268) = lu(k,2268) - lu(k,345) * lu(k,2226) - lu(k,346) = 1._r8 / lu(k,346) - lu(k,347) = lu(k,347) * lu(k,346) - lu(k,348) = lu(k,348) * lu(k,346) - lu(k,969) = lu(k,969) - lu(k,347) * lu(k,968) - lu(k,974) = lu(k,974) - lu(k,348) * lu(k,968) - lu(k,1504) = lu(k,1504) - lu(k,347) * lu(k,1503) - lu(k,1512) = lu(k,1512) - lu(k,348) * lu(k,1503) - lu(k,2079) = lu(k,2079) - lu(k,347) * lu(k,2078) - lu(k,2096) = lu(k,2096) - lu(k,348) * lu(k,2078) - lu(k,2291) = lu(k,2291) - lu(k,347) * lu(k,2290) - lu(k,2306) = - lu(k,348) * lu(k,2290) - lu(k,2501) = lu(k,2501) - lu(k,347) * lu(k,2500) - lu(k,2518) = lu(k,2518) - lu(k,348) * lu(k,2500) - lu(k,349) = 1._r8 / lu(k,349) - lu(k,350) = lu(k,350) * lu(k,349) - lu(k,351) = lu(k,351) * lu(k,349) - lu(k,352) = lu(k,352) * lu(k,349) - lu(k,353) = lu(k,353) * lu(k,349) - lu(k,354) = lu(k,354) * lu(k,349) - lu(k,1964) = lu(k,1964) - lu(k,350) * lu(k,1895) - lu(k,2006) = lu(k,2006) - lu(k,351) * lu(k,1895) - lu(k,2007) = lu(k,2007) - lu(k,352) * lu(k,1895) - lu(k,2009) = lu(k,2009) - lu(k,353) * lu(k,1895) - lu(k,2012) = lu(k,2012) - lu(k,354) * lu(k,1895) - lu(k,2028) = lu(k,2028) - lu(k,350) * lu(k,2021) - lu(k,2066) = lu(k,2066) - lu(k,351) * lu(k,2021) - lu(k,2067) = lu(k,2067) - lu(k,352) * lu(k,2021) - lu(k,2069) = lu(k,2069) - lu(k,353) * lu(k,2021) - lu(k,2072) = lu(k,2072) - lu(k,354) * lu(k,2021) - lu(k,356) = 1._r8 / lu(k,356) - lu(k,357) = lu(k,357) * lu(k,356) - lu(k,358) = lu(k,358) * lu(k,356) - lu(k,359) = lu(k,359) * lu(k,356) - lu(k,360) = lu(k,360) * lu(k,356) - lu(k,361) = lu(k,361) * lu(k,356) - lu(k,1823) = lu(k,1823) - lu(k,357) * lu(k,1818) - lu(k,1832) = lu(k,1832) - lu(k,358) * lu(k,1818) - lu(k,1833) = lu(k,1833) - lu(k,359) * lu(k,1818) - lu(k,1837) = lu(k,1837) - lu(k,360) * lu(k,1818) - lu(k,1844) = lu(k,1844) - lu(k,361) * lu(k,1818) - lu(k,1962) = lu(k,1962) - lu(k,357) * lu(k,1896) - lu(k,2005) = lu(k,2005) - lu(k,358) * lu(k,1896) - lu(k,2006) = lu(k,2006) - lu(k,359) * lu(k,1896) - lu(k,2010) = lu(k,2010) - lu(k,360) * lu(k,1896) - lu(k,2017) = lu(k,2017) - lu(k,361) * lu(k,1896) - lu(k,362) = 1._r8 / lu(k,362) - lu(k,363) = lu(k,363) * lu(k,362) - lu(k,364) = lu(k,364) * lu(k,362) - lu(k,365) = lu(k,365) * lu(k,362) - lu(k,366) = lu(k,366) * lu(k,362) - lu(k,1519) = lu(k,1519) - lu(k,363) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,364) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,365) * lu(k,1517) - lu(k,1532) = lu(k,1532) - lu(k,366) * lu(k,1517) - lu(k,1604) = lu(k,1604) - lu(k,363) * lu(k,1601) - lu(k,1605) = lu(k,1605) - lu(k,364) * lu(k,1601) - lu(k,1610) = lu(k,1610) - lu(k,365) * lu(k,1601) - lu(k,1621) = lu(k,1621) - lu(k,366) * lu(k,1601) - lu(k,1629) = lu(k,1629) - lu(k,363) * lu(k,1627) - lu(k,1631) = lu(k,1631) - lu(k,364) * lu(k,1627) - lu(k,1636) = lu(k,1636) - lu(k,365) * lu(k,1627) - lu(k,1648) = lu(k,1648) - lu(k,366) * lu(k,1627) - lu(k,367) = 1._r8 / lu(k,367) - lu(k,368) = lu(k,368) * lu(k,367) - lu(k,369) = lu(k,369) * lu(k,367) - lu(k,370) = lu(k,370) * lu(k,367) - lu(k,371) = lu(k,371) * lu(k,367) - lu(k,500) = lu(k,500) - lu(k,368) * lu(k,499) - lu(k,501) = lu(k,501) - lu(k,369) * lu(k,499) - lu(k,504) = - lu(k,370) * lu(k,499) - lu(k,505) = lu(k,505) - lu(k,371) * lu(k,499) - lu(k,1916) = lu(k,1916) - lu(k,368) * lu(k,1897) - lu(k,1970) = lu(k,1970) - lu(k,369) * lu(k,1897) - lu(k,2006) = lu(k,2006) - lu(k,370) * lu(k,1897) - lu(k,2009) = lu(k,2009) - lu(k,371) * lu(k,1897) - lu(k,2143) = lu(k,2143) - lu(k,368) * lu(k,2129) - lu(k,2179) = lu(k,2179) - lu(k,369) * lu(k,2129) - lu(k,2211) = lu(k,2211) - lu(k,370) * lu(k,2129) - lu(k,2214) = lu(k,2214) - lu(k,371) * lu(k,2129) - lu(k,373) = 1._r8 / lu(k,373) - lu(k,374) = lu(k,374) * lu(k,373) - lu(k,375) = lu(k,375) * lu(k,373) - lu(k,376) = lu(k,376) * lu(k,373) - lu(k,377) = lu(k,377) * lu(k,373) - lu(k,481) = lu(k,481) - lu(k,374) * lu(k,480) - lu(k,482) = lu(k,482) - lu(k,375) * lu(k,480) - lu(k,485) = lu(k,485) - lu(k,376) * lu(k,480) - lu(k,486) = lu(k,486) - lu(k,377) * lu(k,480) - lu(k,1914) = lu(k,1914) - lu(k,374) * lu(k,1898) - lu(k,1925) = lu(k,1925) - lu(k,375) * lu(k,1898) - lu(k,2006) = lu(k,2006) - lu(k,376) * lu(k,1898) - lu(k,2009) = lu(k,2009) - lu(k,377) * lu(k,1898) - lu(k,2141) = lu(k,2141) - lu(k,374) * lu(k,2130) - lu(k,2151) = lu(k,2151) - lu(k,375) * lu(k,2130) - lu(k,2211) = lu(k,2211) - lu(k,376) * lu(k,2130) - lu(k,2214) = lu(k,2214) - lu(k,377) * lu(k,2130) - lu(k,378) = 1._r8 / lu(k,378) - lu(k,379) = lu(k,379) * lu(k,378) - lu(k,380) = lu(k,380) * lu(k,378) - lu(k,381) = lu(k,381) * lu(k,378) - lu(k,382) = lu(k,382) * lu(k,378) - lu(k,950) = lu(k,950) - lu(k,379) * lu(k,948) - lu(k,951) = lu(k,951) - lu(k,380) * lu(k,948) - lu(k,955) = lu(k,955) - lu(k,381) * lu(k,948) - lu(k,956) = lu(k,956) - lu(k,382) * lu(k,948) - lu(k,1960) = lu(k,1960) - lu(k,379) * lu(k,1899) - lu(k,1978) = lu(k,1978) - lu(k,380) * lu(k,1899) - lu(k,2006) = lu(k,2006) - lu(k,381) * lu(k,1899) - lu(k,2009) = lu(k,2009) - lu(k,382) * lu(k,1899) - lu(k,2175) = lu(k,2175) - lu(k,379) * lu(k,2131) - lu(k,2185) = lu(k,2185) - lu(k,380) * lu(k,2131) - lu(k,2211) = lu(k,2211) - lu(k,381) * lu(k,2131) - lu(k,2214) = lu(k,2214) - lu(k,382) * lu(k,2131) + lu(k,339) = 1._r8 / lu(k,339) + lu(k,340) = lu(k,340) * lu(k,339) + lu(k,341) = lu(k,341) * lu(k,339) + lu(k,342) = lu(k,342) * lu(k,339) + lu(k,343) = lu(k,343) * lu(k,339) + lu(k,344) = lu(k,344) * lu(k,339) + lu(k,1680) = lu(k,1680) - lu(k,340) * lu(k,1652) + lu(k,1682) = lu(k,1682) - lu(k,341) * lu(k,1652) + lu(k,1684) = lu(k,1684) - lu(k,342) * lu(k,1652) + lu(k,1689) = lu(k,1689) - lu(k,343) * lu(k,1652) + lu(k,1691) = lu(k,1691) - lu(k,344) * lu(k,1652) + lu(k,2432) = lu(k,2432) - lu(k,340) * lu(k,2389) + lu(k,2434) = lu(k,2434) - lu(k,341) * lu(k,2389) + lu(k,2436) = lu(k,2436) - lu(k,342) * lu(k,2389) + lu(k,2441) = lu(k,2441) - lu(k,343) * lu(k,2389) + lu(k,2443) = lu(k,2443) - lu(k,344) * lu(k,2389) + lu(k,345) = 1._r8 / lu(k,345) + lu(k,346) = lu(k,346) * lu(k,345) + lu(k,347) = lu(k,347) * lu(k,345) + lu(k,348) = lu(k,348) * lu(k,345) + lu(k,349) = lu(k,349) * lu(k,345) + lu(k,350) = lu(k,350) * lu(k,345) + lu(k,1814) = lu(k,1814) - lu(k,346) * lu(k,1745) + lu(k,1854) = lu(k,1854) - lu(k,347) * lu(k,1745) + lu(k,1862) = lu(k,1862) - lu(k,348) * lu(k,1745) + lu(k,1863) = lu(k,1863) - lu(k,349) * lu(k,1745) + lu(k,1864) = lu(k,1864) - lu(k,350) * lu(k,1745) + lu(k,2397) = lu(k,2397) - lu(k,346) * lu(k,2390) + lu(k,2433) = lu(k,2433) - lu(k,347) * lu(k,2390) + lu(k,2441) = lu(k,2441) - lu(k,348) * lu(k,2390) + lu(k,2442) = lu(k,2442) - lu(k,349) * lu(k,2390) + lu(k,2443) = lu(k,2443) - lu(k,350) * lu(k,2390) + lu(k,351) = 1._r8 / lu(k,351) + lu(k,352) = lu(k,352) * lu(k,351) + lu(k,353) = lu(k,353) * lu(k,351) + lu(k,656) = - lu(k,352) * lu(k,650) + lu(k,660) = lu(k,660) - lu(k,353) * lu(k,650) + lu(k,769) = - lu(k,352) * lu(k,762) + lu(k,776) = lu(k,776) - lu(k,353) * lu(k,762) + lu(k,789) = - lu(k,352) * lu(k,783) + lu(k,797) = lu(k,797) - lu(k,353) * lu(k,783) + lu(k,813) = - lu(k,352) * lu(k,806) + lu(k,822) = lu(k,822) - lu(k,353) * lu(k,806) + lu(k,1918) = lu(k,1918) - lu(k,352) * lu(k,1893) + lu(k,1970) = lu(k,1970) - lu(k,353) * lu(k,1893) + lu(k,355) = 1._r8 / lu(k,355) + lu(k,356) = lu(k,356) * lu(k,355) + lu(k,357) = lu(k,357) * lu(k,355) + lu(k,358) = lu(k,358) * lu(k,355) + lu(k,359) = lu(k,359) * lu(k,355) + lu(k,360) = lu(k,360) * lu(k,355) + lu(k,1812) = lu(k,1812) - lu(k,356) * lu(k,1746) + lu(k,1854) = lu(k,1854) - lu(k,357) * lu(k,1746) + lu(k,1856) = lu(k,1856) - lu(k,358) * lu(k,1746) + lu(k,1861) = lu(k,1861) - lu(k,359) * lu(k,1746) + lu(k,1867) = lu(k,1867) - lu(k,360) * lu(k,1746) + lu(k,2222) = lu(k,2222) - lu(k,356) * lu(k,2217) + lu(k,2230) = lu(k,2230) - lu(k,357) * lu(k,2217) + lu(k,2232) = lu(k,2232) - lu(k,358) * lu(k,2217) + lu(k,2237) = lu(k,2237) - lu(k,359) * lu(k,2217) + lu(k,2243) = lu(k,2243) - lu(k,360) * lu(k,2217) + lu(k,361) = 1._r8 / lu(k,361) + lu(k,362) = lu(k,362) * lu(k,361) + lu(k,363) = lu(k,363) * lu(k,361) + lu(k,970) = lu(k,970) - lu(k,362) * lu(k,969) + lu(k,974) = lu(k,974) - lu(k,363) * lu(k,969) + lu(k,1505) = lu(k,1505) - lu(k,362) * lu(k,1504) + lu(k,1512) = lu(k,1512) - lu(k,363) * lu(k,1504) + lu(k,1626) = lu(k,1626) - lu(k,362) * lu(k,1625) + lu(k,1641) = lu(k,1641) - lu(k,363) * lu(k,1625) + lu(k,2245) = lu(k,2245) - lu(k,362) * lu(k,2244) + lu(k,2258) = - lu(k,363) * lu(k,2244) + lu(k,2503) = lu(k,2503) - lu(k,362) * lu(k,2502) + lu(k,2518) = lu(k,2518) - lu(k,363) * lu(k,2502) + lu(k,364) = 1._r8 / lu(k,364) + lu(k,365) = lu(k,365) * lu(k,364) + lu(k,366) = lu(k,366) * lu(k,364) + lu(k,367) = lu(k,367) * lu(k,364) + lu(k,368) = lu(k,368) * lu(k,364) + lu(k,502) = lu(k,502) - lu(k,365) * lu(k,501) + lu(k,503) = lu(k,503) - lu(k,366) * lu(k,501) + lu(k,505) = - lu(k,367) * lu(k,501) + lu(k,507) = lu(k,507) - lu(k,368) * lu(k,501) + lu(k,1766) = lu(k,1766) - lu(k,365) * lu(k,1747) + lu(k,1820) = lu(k,1820) - lu(k,366) * lu(k,1747) + lu(k,1854) = lu(k,1854) - lu(k,367) * lu(k,1747) + lu(k,1863) = lu(k,1863) - lu(k,368) * lu(k,1747) + lu(k,2307) = lu(k,2307) - lu(k,365) * lu(k,2293) + lu(k,2343) = lu(k,2343) - lu(k,366) * lu(k,2293) + lu(k,2373) = lu(k,2373) - lu(k,367) * lu(k,2293) + lu(k,2382) = lu(k,2382) - lu(k,368) * lu(k,2293) + lu(k,370) = 1._r8 / lu(k,370) + lu(k,371) = lu(k,371) * lu(k,370) + lu(k,372) = lu(k,372) * lu(k,370) + lu(k,373) = lu(k,373) * lu(k,370) + lu(k,374) = lu(k,374) * lu(k,370) + lu(k,477) = lu(k,477) - lu(k,371) * lu(k,476) + lu(k,478) = lu(k,478) - lu(k,372) * lu(k,476) + lu(k,480) = lu(k,480) - lu(k,373) * lu(k,476) + lu(k,482) = lu(k,482) - lu(k,374) * lu(k,476) + lu(k,1764) = lu(k,1764) - lu(k,371) * lu(k,1748) + lu(k,1775) = lu(k,1775) - lu(k,372) * lu(k,1748) + lu(k,1854) = lu(k,1854) - lu(k,373) * lu(k,1748) + lu(k,1863) = lu(k,1863) - lu(k,374) * lu(k,1748) + lu(k,2304) = lu(k,2304) - lu(k,371) * lu(k,2294) + lu(k,2315) = lu(k,2315) - lu(k,372) * lu(k,2294) + lu(k,2373) = lu(k,2373) - lu(k,373) * lu(k,2294) + lu(k,2382) = lu(k,2382) - lu(k,374) * lu(k,2294) + lu(k,375) = 1._r8 / lu(k,375) + lu(k,376) = lu(k,376) * lu(k,375) + lu(k,377) = lu(k,377) * lu(k,375) + lu(k,378) = lu(k,378) * lu(k,375) + lu(k,379) = lu(k,379) * lu(k,375) + lu(k,946) = lu(k,946) - lu(k,376) * lu(k,944) + lu(k,947) = lu(k,947) - lu(k,377) * lu(k,944) + lu(k,950) = lu(k,950) - lu(k,378) * lu(k,944) + lu(k,953) = lu(k,953) - lu(k,379) * lu(k,944) + lu(k,1809) = lu(k,1809) - lu(k,376) * lu(k,1749) + lu(k,1828) = lu(k,1828) - lu(k,377) * lu(k,1749) + lu(k,1854) = lu(k,1854) - lu(k,378) * lu(k,1749) + lu(k,1863) = lu(k,1863) - lu(k,379) * lu(k,1749) + lu(k,2338) = lu(k,2338) - lu(k,376) * lu(k,2295) + lu(k,2349) = lu(k,2349) - lu(k,377) * lu(k,2295) + lu(k,2373) = lu(k,2373) - lu(k,378) * lu(k,2295) + lu(k,2382) = lu(k,2382) - lu(k,379) * lu(k,2295) + lu(k,380) = 1._r8 / lu(k,380) + lu(k,381) = lu(k,381) * lu(k,380) + lu(k,382) = lu(k,382) * lu(k,380) + lu(k,1374) = lu(k,1374) - lu(k,381) * lu(k,1361) + lu(k,1384) = lu(k,1384) - lu(k,382) * lu(k,1361) + lu(k,1464) = lu(k,1464) - lu(k,381) * lu(k,1455) + lu(k,1478) = lu(k,1478) - lu(k,382) * lu(k,1455) + lu(k,1835) = lu(k,1835) - lu(k,381) * lu(k,1750) + lu(k,1854) = lu(k,1854) - lu(k,382) * lu(k,1750) + lu(k,1945) = lu(k,1945) - lu(k,381) * lu(k,1894) + lu(k,1961) = lu(k,1961) - lu(k,382) * lu(k,1894) + lu(k,2172) = lu(k,2172) - lu(k,381) * lu(k,2150) + lu(k,2187) = lu(k,2187) - lu(k,382) * lu(k,2150) + lu(k,2416) = lu(k,2416) - lu(k,381) * lu(k,2391) + lu(k,2433) = lu(k,2433) - lu(k,382) * lu(k,2391) lu(k,383) = 1._r8 / lu(k,383) lu(k,384) = lu(k,384) * lu(k,383) lu(k,385) = lu(k,385) * lu(k,383) lu(k,386) = lu(k,386) * lu(k,383) lu(k,387) = lu(k,387) * lu(k,383) - lu(k,772) = - lu(k,384) * lu(k,763) - lu(k,773) = lu(k,773) - lu(k,385) * lu(k,763) - lu(k,774) = - lu(k,386) * lu(k,763) - lu(k,776) = lu(k,776) - lu(k,387) * lu(k,763) - lu(k,815) = - lu(k,384) * lu(k,806) - lu(k,816) = lu(k,816) - lu(k,385) * lu(k,806) - lu(k,817) = - lu(k,386) * lu(k,806) - lu(k,821) = lu(k,821) - lu(k,387) * lu(k,806) - lu(k,1766) = lu(k,1766) - lu(k,384) * lu(k,1722) - lu(k,1775) = lu(k,1775) - lu(k,385) * lu(k,1722) - lu(k,1781) = lu(k,1781) - lu(k,386) * lu(k,1722) - lu(k,1793) = lu(k,1793) - lu(k,387) * lu(k,1722) + lu(k,743) = lu(k,743) - lu(k,384) * lu(k,742) + lu(k,744) = lu(k,744) - lu(k,385) * lu(k,742) + lu(k,745) = lu(k,745) - lu(k,386) * lu(k,742) + lu(k,747) = lu(k,747) - lu(k,387) * lu(k,742) + lu(k,1793) = lu(k,1793) - lu(k,384) * lu(k,1751) + lu(k,1828) = lu(k,1828) - lu(k,385) * lu(k,1751) + lu(k,1844) = lu(k,1844) - lu(k,386) * lu(k,1751) + lu(k,1854) = lu(k,1854) - lu(k,387) * lu(k,1751) + lu(k,2324) = lu(k,2324) - lu(k,384) * lu(k,2296) + lu(k,2349) = lu(k,2349) - lu(k,385) * lu(k,2296) + lu(k,2364) = lu(k,2364) - lu(k,386) * lu(k,2296) + lu(k,2373) = lu(k,2373) - lu(k,387) * lu(k,2296) end do end subroutine lu_fac07 subroutine lu_fac08( avec_len, lu ) @@ -827,158 +827,139 @@ subroutine lu_fac08( avec_len, lu ) lu(k,390) = lu(k,390) * lu(k,388) lu(k,391) = lu(k,391) * lu(k,388) lu(k,392) = lu(k,392) * lu(k,388) - lu(k,721) = lu(k,721) - lu(k,389) * lu(k,720) - lu(k,722) = lu(k,722) - lu(k,390) * lu(k,720) - lu(k,723) = lu(k,723) - lu(k,391) * lu(k,720) - lu(k,726) = lu(k,726) - lu(k,392) * lu(k,720) - lu(k,1942) = lu(k,1942) - lu(k,389) * lu(k,1900) - lu(k,1978) = lu(k,1978) - lu(k,390) * lu(k,1900) - lu(k,1994) = lu(k,1994) - lu(k,391) * lu(k,1900) - lu(k,2006) = lu(k,2006) - lu(k,392) * lu(k,1900) - lu(k,2159) = lu(k,2159) - lu(k,389) * lu(k,2132) - lu(k,2185) = lu(k,2185) - lu(k,390) * lu(k,2132) - lu(k,2200) = lu(k,2200) - lu(k,391) * lu(k,2132) - lu(k,2211) = lu(k,2211) - lu(k,392) * lu(k,2132) + lu(k,1401) = lu(k,1401) - lu(k,389) * lu(k,1393) + lu(k,1402) = - lu(k,390) * lu(k,1393) + lu(k,1406) = - lu(k,391) * lu(k,1393) + lu(k,1410) = lu(k,1410) - lu(k,392) * lu(k,1393) + lu(k,1841) = lu(k,1841) - lu(k,389) * lu(k,1752) + lu(k,1843) = lu(k,1843) - lu(k,390) * lu(k,1752) + lu(k,1854) = lu(k,1854) - lu(k,391) * lu(k,1752) + lu(k,1863) = lu(k,1863) - lu(k,392) * lu(k,1752) + lu(k,2361) = lu(k,2361) - lu(k,389) * lu(k,2297) + lu(k,2363) = lu(k,2363) - lu(k,390) * lu(k,2297) + lu(k,2373) = lu(k,2373) - lu(k,391) * lu(k,2297) + lu(k,2382) = lu(k,2382) - lu(k,392) * lu(k,2297) lu(k,393) = 1._r8 / lu(k,393) lu(k,394) = lu(k,394) * lu(k,393) lu(k,395) = lu(k,395) * lu(k,393) lu(k,396) = lu(k,396) * lu(k,393) lu(k,397) = lu(k,397) * lu(k,393) - lu(k,1400) = lu(k,1400) - lu(k,394) * lu(k,1392) - lu(k,1401) = - lu(k,395) * lu(k,1392) - lu(k,1406) = - lu(k,396) * lu(k,1392) - lu(k,1408) = lu(k,1408) - lu(k,397) * lu(k,1392) - lu(k,1991) = lu(k,1991) - lu(k,394) * lu(k,1901) - lu(k,1993) = lu(k,1993) - lu(k,395) * lu(k,1901) - lu(k,2006) = lu(k,2006) - lu(k,396) * lu(k,1901) - lu(k,2009) = lu(k,2009) - lu(k,397) * lu(k,1901) - lu(k,2197) = lu(k,2197) - lu(k,394) * lu(k,2133) - lu(k,2199) = lu(k,2199) - lu(k,395) * lu(k,2133) - lu(k,2211) = lu(k,2211) - lu(k,396) * lu(k,2133) - lu(k,2214) = lu(k,2214) - lu(k,397) * lu(k,2133) + lu(k,1520) = lu(k,1520) - lu(k,394) * lu(k,1518) + lu(k,1521) = lu(k,1521) - lu(k,395) * lu(k,1518) + lu(k,1529) = lu(k,1529) - lu(k,396) * lu(k,1518) + lu(k,1533) = lu(k,1533) - lu(k,397) * lu(k,1518) + lu(k,1605) = lu(k,1605) - lu(k,394) * lu(k,1602) + lu(k,1606) = lu(k,1606) - lu(k,395) * lu(k,1602) + lu(k,1615) = lu(k,1615) - lu(k,396) * lu(k,1602) + lu(k,1623) = lu(k,1623) - lu(k,397) * lu(k,1602) + lu(k,2478) = lu(k,2478) - lu(k,394) * lu(k,2476) + lu(k,2480) = lu(k,2480) - lu(k,395) * lu(k,2476) + lu(k,2489) = lu(k,2489) - lu(k,396) * lu(k,2476) + lu(k,2498) = lu(k,2498) - lu(k,397) * lu(k,2476) lu(k,398) = 1._r8 / lu(k,398) lu(k,399) = lu(k,399) * lu(k,398) lu(k,400) = lu(k,400) * lu(k,398) - lu(k,1373) = lu(k,1373) - lu(k,399) * lu(k,1360) - lu(k,1384) = lu(k,1384) - lu(k,400) * lu(k,1360) - lu(k,1463) = lu(k,1463) - lu(k,399) * lu(k,1454) - lu(k,1477) = lu(k,1477) - lu(k,400) * lu(k,1454) - lu(k,1772) = lu(k,1772) - lu(k,399) * lu(k,1723) - lu(k,1790) = lu(k,1790) - lu(k,400) * lu(k,1723) - lu(k,1985) = lu(k,1985) - lu(k,399) * lu(k,1902) - lu(k,2006) = lu(k,2006) - lu(k,400) * lu(k,1902) - lu(k,2047) = lu(k,2047) - lu(k,399) * lu(k,2022) - lu(k,2066) = lu(k,2066) - lu(k,400) * lu(k,2022) - lu(k,2336) = lu(k,2336) - lu(k,399) * lu(k,2314) - lu(k,2353) = lu(k,2353) - lu(k,400) * lu(k,2314) - lu(k,401) = 1._r8 / lu(k,401) - lu(k,402) = lu(k,402) * lu(k,401) - lu(k,403) = lu(k,403) * lu(k,401) - lu(k,404) = lu(k,404) * lu(k,401) - lu(k,405) = lu(k,405) * lu(k,401) - lu(k,406) = lu(k,406) * lu(k,401) - lu(k,407) = lu(k,407) * lu(k,401) - lu(k,408) = lu(k,408) * lu(k,401) - lu(k,1979) = lu(k,1979) - lu(k,402) * lu(k,1903) - lu(k,1998) = lu(k,1998) - lu(k,403) * lu(k,1903) - lu(k,2006) = lu(k,2006) - lu(k,404) * lu(k,1903) - lu(k,2009) = lu(k,2009) - lu(k,405) * lu(k,1903) - lu(k,2010) = lu(k,2010) - lu(k,406) * lu(k,1903) - lu(k,2013) = lu(k,2013) - lu(k,407) * lu(k,1903) - lu(k,2017) = lu(k,2017) - lu(k,408) * lu(k,1903) - lu(k,2242) = lu(k,2242) - lu(k,402) * lu(k,2227) - lu(k,2249) = lu(k,2249) - lu(k,403) * lu(k,2227) - lu(k,2257) = lu(k,2257) - lu(k,404) * lu(k,2227) - lu(k,2260) = lu(k,2260) - lu(k,405) * lu(k,2227) - lu(k,2261) = lu(k,2261) - lu(k,406) * lu(k,2227) - lu(k,2264) = lu(k,2264) - lu(k,407) * lu(k,2227) - lu(k,2268) = lu(k,2268) - lu(k,408) * lu(k,2227) - lu(k,409) = 1._r8 / lu(k,409) - lu(k,410) = lu(k,410) * lu(k,409) - lu(k,411) = lu(k,411) * lu(k,409) - lu(k,412) = lu(k,412) * lu(k,409) - lu(k,413) = lu(k,413) * lu(k,409) - lu(k,414) = lu(k,414) * lu(k,409) - lu(k,415) = lu(k,415) * lu(k,409) - lu(k,416) = lu(k,416) * lu(k,409) - lu(k,1929) = lu(k,1929) - lu(k,410) * lu(k,1904) - lu(k,1973) = lu(k,1973) - lu(k,411) * lu(k,1904) - lu(k,1978) = lu(k,1978) - lu(k,412) * lu(k,1904) - lu(k,2003) = lu(k,2003) - lu(k,413) * lu(k,1904) - lu(k,2006) = lu(k,2006) - lu(k,414) * lu(k,1904) - lu(k,2007) = lu(k,2007) - lu(k,415) * lu(k,1904) - lu(k,2016) = lu(k,2016) - lu(k,416) * lu(k,1904) - lu(k,2024) = - lu(k,410) * lu(k,2023) - lu(k,2035) = lu(k,2035) - lu(k,411) * lu(k,2023) - lu(k,2040) = lu(k,2040) - lu(k,412) * lu(k,2023) - lu(k,2063) = lu(k,2063) - lu(k,413) * lu(k,2023) - lu(k,2066) = lu(k,2066) - lu(k,414) * lu(k,2023) - lu(k,2067) = lu(k,2067) - lu(k,415) * lu(k,2023) - lu(k,2076) = lu(k,2076) - lu(k,416) * lu(k,2023) - lu(k,417) = 1._r8 / lu(k,417) - lu(k,418) = lu(k,418) * lu(k,417) - lu(k,419) = lu(k,419) * lu(k,417) - lu(k,420) = lu(k,420) * lu(k,417) - lu(k,421) = lu(k,421) * lu(k,417) - lu(k,422) = lu(k,422) * lu(k,417) - lu(k,423) = lu(k,423) * lu(k,417) - lu(k,424) = lu(k,424) * lu(k,417) - lu(k,1947) = lu(k,1947) - lu(k,418) * lu(k,1905) - lu(k,1964) = lu(k,1964) - lu(k,419) * lu(k,1905) - lu(k,1979) = lu(k,1979) - lu(k,420) * lu(k,1905) - lu(k,1997) = lu(k,1997) - lu(k,421) * lu(k,1905) - lu(k,2006) = lu(k,2006) - lu(k,422) * lu(k,1905) - lu(k,2011) = lu(k,2011) - lu(k,423) * lu(k,1905) - lu(k,2015) = lu(k,2015) - lu(k,424) * lu(k,1905) - lu(k,2437) = - lu(k,418) * lu(k,2431) - lu(k,2445) = - lu(k,419) * lu(k,2431) - lu(k,2448) = lu(k,2448) - lu(k,420) * lu(k,2431) - lu(k,2451) = lu(k,2451) - lu(k,421) * lu(k,2431) - lu(k,2460) = lu(k,2460) - lu(k,422) * lu(k,2431) - lu(k,2465) = lu(k,2465) - lu(k,423) * lu(k,2431) - lu(k,2469) = lu(k,2469) - lu(k,424) * lu(k,2431) - lu(k,425) = 1._r8 / lu(k,425) - lu(k,426) = lu(k,426) * lu(k,425) - lu(k,427) = lu(k,427) * lu(k,425) - lu(k,428) = lu(k,428) * lu(k,425) - lu(k,429) = lu(k,429) * lu(k,425) - lu(k,430) = lu(k,430) * lu(k,425) - lu(k,1261) = lu(k,1261) - lu(k,426) * lu(k,1258) - lu(k,1263) = lu(k,1263) - lu(k,427) * lu(k,1258) - lu(k,1266) = lu(k,1266) - lu(k,428) * lu(k,1258) - lu(k,1269) = lu(k,1269) - lu(k,429) * lu(k,1258) - lu(k,1270) = - lu(k,430) * lu(k,1258) - lu(k,1984) = lu(k,1984) - lu(k,426) * lu(k,1906) - lu(k,1994) = lu(k,1994) - lu(k,427) * lu(k,1906) - lu(k,2006) = lu(k,2006) - lu(k,428) * lu(k,1906) - lu(k,2016) = lu(k,2016) - lu(k,429) * lu(k,1906) - lu(k,2017) = lu(k,2017) - lu(k,430) * lu(k,1906) - lu(k,2190) = lu(k,2190) - lu(k,426) * lu(k,2134) - lu(k,2200) = lu(k,2200) - lu(k,427) * lu(k,2134) - lu(k,2211) = lu(k,2211) - lu(k,428) * lu(k,2134) - lu(k,2221) = lu(k,2221) - lu(k,429) * lu(k,2134) - lu(k,2222) = lu(k,2222) - lu(k,430) * lu(k,2134) - lu(k,431) = 1._r8 / lu(k,431) - lu(k,432) = lu(k,432) * lu(k,431) - lu(k,433) = lu(k,433) * lu(k,431) - lu(k,434) = lu(k,434) * lu(k,431) - lu(k,435) = lu(k,435) * lu(k,431) - lu(k,436) = lu(k,436) * lu(k,431) - lu(k,1149) = lu(k,1149) - lu(k,432) * lu(k,1146) - lu(k,1150) = lu(k,1150) - lu(k,433) * lu(k,1146) - lu(k,1154) = lu(k,1154) - lu(k,434) * lu(k,1146) - lu(k,1156) = - lu(k,435) * lu(k,1146) - lu(k,1159) = - lu(k,436) * lu(k,1146) - lu(k,1972) = lu(k,1972) - lu(k,432) * lu(k,1907) - lu(k,1975) = lu(k,1975) - lu(k,433) * lu(k,1907) - lu(k,2003) = lu(k,2003) - lu(k,434) * lu(k,1907) - lu(k,2006) = lu(k,2006) - lu(k,435) * lu(k,1907) - lu(k,2012) = lu(k,2012) - lu(k,436) * lu(k,1907) - lu(k,2181) = - lu(k,432) * lu(k,2135) - lu(k,2183) = lu(k,2183) - lu(k,433) * lu(k,2135) - lu(k,2208) = lu(k,2208) - lu(k,434) * lu(k,2135) - lu(k,2211) = lu(k,2211) - lu(k,435) * lu(k,2135) - lu(k,2217) = - lu(k,436) * lu(k,2135) + lu(k,401) = lu(k,401) * lu(k,398) + lu(k,402) = lu(k,402) * lu(k,398) + lu(k,772) = - lu(k,399) * lu(k,763) + lu(k,773) = lu(k,773) - lu(k,400) * lu(k,763) + lu(k,774) = - lu(k,401) * lu(k,763) + lu(k,776) = lu(k,776) - lu(k,402) * lu(k,763) + lu(k,816) = - lu(k,399) * lu(k,807) + lu(k,817) = lu(k,817) - lu(k,400) * lu(k,807) + lu(k,818) = - lu(k,401) * lu(k,807) + lu(k,822) = lu(k,822) - lu(k,402) * lu(k,807) + lu(k,1939) = lu(k,1939) - lu(k,399) * lu(k,1895) + lu(k,1948) = lu(k,1948) - lu(k,400) * lu(k,1895) + lu(k,1954) = lu(k,1954) - lu(k,401) * lu(k,1895) + lu(k,1970) = lu(k,1970) - lu(k,402) * lu(k,1895) + lu(k,403) = 1._r8 / lu(k,403) + lu(k,404) = lu(k,404) * lu(k,403) + lu(k,405) = lu(k,405) * lu(k,403) + lu(k,406) = lu(k,406) * lu(k,403) + lu(k,407) = lu(k,407) * lu(k,403) + lu(k,408) = lu(k,408) * lu(k,403) + lu(k,409) = lu(k,409) * lu(k,403) + lu(k,410) = lu(k,410) * lu(k,403) + lu(k,1780) = lu(k,1780) - lu(k,404) * lu(k,1753) + lu(k,1823) = lu(k,1823) - lu(k,405) * lu(k,1753) + lu(k,1828) = lu(k,1828) - lu(k,406) * lu(k,1753) + lu(k,1853) = lu(k,1853) - lu(k,407) * lu(k,1753) + lu(k,1854) = lu(k,1854) - lu(k,408) * lu(k,1753) + lu(k,1864) = lu(k,1864) - lu(k,409) * lu(k,1753) + lu(k,1865) = lu(k,1865) - lu(k,410) * lu(k,1753) + lu(k,2393) = - lu(k,404) * lu(k,2392) + lu(k,2404) = lu(k,2404) - lu(k,405) * lu(k,2392) + lu(k,2409) = lu(k,2409) - lu(k,406) * lu(k,2392) + lu(k,2432) = lu(k,2432) - lu(k,407) * lu(k,2392) + lu(k,2433) = lu(k,2433) - lu(k,408) * lu(k,2392) + lu(k,2443) = lu(k,2443) - lu(k,409) * lu(k,2392) + lu(k,2444) = lu(k,2444) - lu(k,410) * lu(k,2392) + lu(k,411) = 1._r8 / lu(k,411) + lu(k,412) = lu(k,412) * lu(k,411) + lu(k,413) = lu(k,413) * lu(k,411) + lu(k,414) = lu(k,414) * lu(k,411) + lu(k,415) = lu(k,415) * lu(k,411) + lu(k,416) = lu(k,416) * lu(k,411) + lu(k,417) = lu(k,417) * lu(k,411) + lu(k,418) = lu(k,418) * lu(k,411) + lu(k,1829) = lu(k,1829) - lu(k,412) * lu(k,1754) + lu(k,1848) = lu(k,1848) - lu(k,413) * lu(k,1754) + lu(k,1854) = lu(k,1854) - lu(k,414) * lu(k,1754) + lu(k,1856) = lu(k,1856) - lu(k,415) * lu(k,1754) + lu(k,1860) = lu(k,1860) - lu(k,416) * lu(k,1754) + lu(k,1863) = lu(k,1863) - lu(k,417) * lu(k,1754) + lu(k,1867) = lu(k,1867) - lu(k,418) * lu(k,1754) + lu(k,1994) = lu(k,1994) - lu(k,412) * lu(k,1979) + lu(k,2001) = lu(k,2001) - lu(k,413) * lu(k,1979) + lu(k,2007) = lu(k,2007) - lu(k,414) * lu(k,1979) + lu(k,2009) = lu(k,2009) - lu(k,415) * lu(k,1979) + lu(k,2013) = lu(k,2013) - lu(k,416) * lu(k,1979) + lu(k,2016) = lu(k,2016) - lu(k,417) * lu(k,1979) + lu(k,2020) = lu(k,2020) - lu(k,418) * lu(k,1979) + lu(k,419) = 1._r8 / lu(k,419) + lu(k,420) = lu(k,420) * lu(k,419) + lu(k,421) = lu(k,421) * lu(k,419) + lu(k,422) = lu(k,422) * lu(k,419) + lu(k,423) = lu(k,423) * lu(k,419) + lu(k,424) = lu(k,424) * lu(k,419) + lu(k,425) = lu(k,425) * lu(k,419) + lu(k,426) = lu(k,426) * lu(k,419) + lu(k,1795) = lu(k,1795) - lu(k,420) * lu(k,1755) + lu(k,1814) = lu(k,1814) - lu(k,421) * lu(k,1755) + lu(k,1829) = lu(k,1829) - lu(k,422) * lu(k,1755) + lu(k,1847) = lu(k,1847) - lu(k,423) * lu(k,1755) + lu(k,1854) = lu(k,1854) - lu(k,424) * lu(k,1755) + lu(k,1857) = lu(k,1857) - lu(k,425) * lu(k,1755) + lu(k,1859) = lu(k,1859) - lu(k,426) * lu(k,1755) + lu(k,2029) = - lu(k,420) * lu(k,2023) + lu(k,2037) = - lu(k,421) * lu(k,2023) + lu(k,2040) = lu(k,2040) - lu(k,422) * lu(k,2023) + lu(k,2043) = lu(k,2043) - lu(k,423) * lu(k,2023) + lu(k,2050) = lu(k,2050) - lu(k,424) * lu(k,2023) + lu(k,2053) = lu(k,2053) - lu(k,425) * lu(k,2023) + lu(k,2055) = lu(k,2055) - lu(k,426) * lu(k,2023) + lu(k,427) = 1._r8 / lu(k,427) + lu(k,428) = lu(k,428) * lu(k,427) + lu(k,429) = lu(k,429) * lu(k,427) + lu(k,430) = lu(k,430) * lu(k,427) + lu(k,431) = lu(k,431) * lu(k,427) + lu(k,432) = lu(k,432) * lu(k,427) + lu(k,1262) = lu(k,1262) - lu(k,428) * lu(k,1259) + lu(k,1264) = lu(k,1264) - lu(k,429) * lu(k,1259) + lu(k,1266) = lu(k,1266) - lu(k,430) * lu(k,1259) + lu(k,1270) = lu(k,1270) - lu(k,431) * lu(k,1259) + lu(k,1271) = - lu(k,432) * lu(k,1259) + lu(k,1834) = lu(k,1834) - lu(k,428) * lu(k,1756) + lu(k,1844) = lu(k,1844) - lu(k,429) * lu(k,1756) + lu(k,1854) = lu(k,1854) - lu(k,430) * lu(k,1756) + lu(k,1865) = lu(k,1865) - lu(k,431) * lu(k,1756) + lu(k,1867) = lu(k,1867) - lu(k,432) * lu(k,1756) + lu(k,2354) = lu(k,2354) - lu(k,428) * lu(k,2298) + lu(k,2364) = lu(k,2364) - lu(k,429) * lu(k,2298) + lu(k,2373) = lu(k,2373) - lu(k,430) * lu(k,2298) + lu(k,2384) = lu(k,2384) - lu(k,431) * lu(k,2298) + lu(k,2386) = lu(k,2386) - lu(k,432) * lu(k,2298) end do end subroutine lu_fac08 subroutine lu_fac09( avec_len, lu ) @@ -995,132 +976,132 @@ subroutine lu_fac09( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,437) = 1._r8 / lu(k,437) - lu(k,438) = lu(k,438) * lu(k,437) - lu(k,439) = lu(k,439) * lu(k,437) - lu(k,440) = lu(k,440) * lu(k,437) - lu(k,441) = lu(k,441) * lu(k,437) - lu(k,442) = lu(k,442) * lu(k,437) - lu(k,979) = lu(k,979) - lu(k,438) * lu(k,978) - lu(k,980) = lu(k,980) - lu(k,439) * lu(k,978) - lu(k,985) = - lu(k,440) * lu(k,978) - lu(k,986) = lu(k,986) - lu(k,441) * lu(k,978) - lu(k,989) = - lu(k,442) * lu(k,978) - lu(k,1963) = lu(k,1963) - lu(k,438) * lu(k,1908) - lu(k,1973) = lu(k,1973) - lu(k,439) * lu(k,1908) - lu(k,2006) = lu(k,2006) - lu(k,440) * lu(k,1908) - lu(k,2009) = lu(k,2009) - lu(k,441) * lu(k,1908) - lu(k,2017) = lu(k,2017) - lu(k,442) * lu(k,1908) - lu(k,2177) = lu(k,2177) - lu(k,438) * lu(k,2136) - lu(k,2182) = - lu(k,439) * lu(k,2136) - lu(k,2211) = lu(k,2211) - lu(k,440) * lu(k,2136) - lu(k,2214) = lu(k,2214) - lu(k,441) * lu(k,2136) - lu(k,2222) = lu(k,2222) - lu(k,442) * lu(k,2136) - lu(k,443) = 1._r8 / lu(k,443) - lu(k,444) = lu(k,444) * lu(k,443) - lu(k,445) = lu(k,445) * lu(k,443) - lu(k,446) = lu(k,446) * lu(k,443) - lu(k,447) = lu(k,447) * lu(k,443) - lu(k,448) = lu(k,448) * lu(k,443) - lu(k,1290) = - lu(k,444) * lu(k,1288) - lu(k,1292) = - lu(k,445) * lu(k,1288) - lu(k,1303) = lu(k,1303) - lu(k,446) * lu(k,1288) - lu(k,1305) = - lu(k,447) * lu(k,1288) - lu(k,1307) = lu(k,1307) - lu(k,448) * lu(k,1288) - lu(k,1945) = lu(k,1945) - lu(k,444) * lu(k,1909) - lu(k,1958) = lu(k,1958) - lu(k,445) * lu(k,1909) - lu(k,2003) = lu(k,2003) - lu(k,446) * lu(k,1909) - lu(k,2006) = lu(k,2006) - lu(k,447) * lu(k,1909) - lu(k,2009) = lu(k,2009) - lu(k,448) * lu(k,1909) - lu(k,2162) = lu(k,2162) - lu(k,444) * lu(k,2137) - lu(k,2173) = - lu(k,445) * lu(k,2137) - lu(k,2208) = lu(k,2208) - lu(k,446) * lu(k,2137) - lu(k,2211) = lu(k,2211) - lu(k,447) * lu(k,2137) - lu(k,2214) = lu(k,2214) - lu(k,448) * lu(k,2137) - lu(k,449) = 1._r8 / lu(k,449) - lu(k,450) = lu(k,450) * lu(k,449) - lu(k,451) = lu(k,451) * lu(k,449) - lu(k,452) = lu(k,452) * lu(k,449) - lu(k,453) = lu(k,453) * lu(k,449) - lu(k,454) = lu(k,454) * lu(k,449) - lu(k,540) = lu(k,540) - lu(k,450) * lu(k,539) - lu(k,541) = lu(k,541) - lu(k,451) * lu(k,539) - lu(k,543) = lu(k,543) - lu(k,452) * lu(k,539) - lu(k,546) = - lu(k,453) * lu(k,539) - lu(k,547) = lu(k,547) - lu(k,454) * lu(k,539) - lu(k,1917) = lu(k,1917) - lu(k,450) * lu(k,1910) - lu(k,1922) = lu(k,1922) - lu(k,451) * lu(k,1910) - lu(k,1970) = lu(k,1970) - lu(k,452) * lu(k,1910) - lu(k,2006) = lu(k,2006) - lu(k,453) * lu(k,1910) - lu(k,2009) = lu(k,2009) - lu(k,454) * lu(k,1910) - lu(k,2144) = - lu(k,450) * lu(k,2138) - lu(k,2149) = lu(k,2149) - lu(k,451) * lu(k,2138) - lu(k,2179) = lu(k,2179) - lu(k,452) * lu(k,2138) - lu(k,2211) = lu(k,2211) - lu(k,453) * lu(k,2138) - lu(k,2214) = lu(k,2214) - lu(k,454) * lu(k,2138) - lu(k,455) = 1._r8 / lu(k,455) - lu(k,456) = lu(k,456) * lu(k,455) - lu(k,457) = lu(k,457) * lu(k,455) - lu(k,458) = lu(k,458) * lu(k,455) - lu(k,459) = lu(k,459) * lu(k,455) - lu(k,460) = lu(k,460) * lu(k,455) - lu(k,2006) = lu(k,2006) - lu(k,456) * lu(k,1911) - lu(k,2011) = lu(k,2011) - lu(k,457) * lu(k,1911) - lu(k,2013) = lu(k,2013) - lu(k,458) * lu(k,1911) - lu(k,2016) = lu(k,2016) - lu(k,459) * lu(k,1911) - lu(k,2017) = lu(k,2017) - lu(k,460) * lu(k,1911) - lu(k,2211) = lu(k,2211) - lu(k,456) * lu(k,2139) - lu(k,2216) = lu(k,2216) - lu(k,457) * lu(k,2139) - lu(k,2218) = lu(k,2218) - lu(k,458) * lu(k,2139) - lu(k,2221) = lu(k,2221) - lu(k,459) * lu(k,2139) - lu(k,2222) = lu(k,2222) - lu(k,460) * lu(k,2139) - lu(k,2353) = lu(k,2353) - lu(k,456) * lu(k,2315) - lu(k,2358) = - lu(k,457) * lu(k,2315) - lu(k,2360) = lu(k,2360) - lu(k,458) * lu(k,2315) - lu(k,2363) = lu(k,2363) - lu(k,459) * lu(k,2315) - lu(k,2364) = - lu(k,460) * lu(k,2315) - lu(k,461) = 1._r8 / lu(k,461) - lu(k,462) = lu(k,462) * lu(k,461) - lu(k,463) = lu(k,463) * lu(k,461) - lu(k,464) = lu(k,464) * lu(k,461) - lu(k,465) = lu(k,465) * lu(k,461) - lu(k,466) = lu(k,466) * lu(k,461) - lu(k,1825) = lu(k,1825) - lu(k,462) * lu(k,1819) - lu(k,1826) = lu(k,1826) - lu(k,463) * lu(k,1819) - lu(k,1832) = lu(k,1832) - lu(k,464) * lu(k,1819) - lu(k,1833) = lu(k,1833) - lu(k,465) * lu(k,1819) - lu(k,1837) = lu(k,1837) - lu(k,466) * lu(k,1819) - lu(k,1998) = lu(k,1998) - lu(k,462) * lu(k,1912) - lu(k,1999) = lu(k,1999) - lu(k,463) * lu(k,1912) - lu(k,2005) = lu(k,2005) - lu(k,464) * lu(k,1912) - lu(k,2006) = lu(k,2006) - lu(k,465) * lu(k,1912) - lu(k,2010) = lu(k,2010) - lu(k,466) * lu(k,1912) - lu(k,2249) = lu(k,2249) - lu(k,462) * lu(k,2228) - lu(k,2250) = lu(k,2250) - lu(k,463) * lu(k,2228) - lu(k,2256) = - lu(k,464) * lu(k,2228) - lu(k,2257) = lu(k,2257) - lu(k,465) * lu(k,2228) - lu(k,2261) = lu(k,2261) - lu(k,466) * lu(k,2228) - lu(k,467) = 1._r8 / lu(k,467) - lu(k,468) = lu(k,468) * lu(k,467) - lu(k,469) = lu(k,469) * lu(k,467) - lu(k,470) = lu(k,470) * lu(k,467) - lu(k,471) = lu(k,471) * lu(k,467) - lu(k,472) = lu(k,472) * lu(k,467) - lu(k,1008) = - lu(k,468) * lu(k,1004) - lu(k,1014) = lu(k,1014) - lu(k,469) * lu(k,1004) - lu(k,1016) = - lu(k,470) * lu(k,1004) - lu(k,1017) = lu(k,1017) - lu(k,471) * lu(k,1004) - lu(k,1021) = lu(k,1021) - lu(k,472) * lu(k,1004) - lu(k,1064) = - lu(k,468) * lu(k,1060) - lu(k,1070) = lu(k,1070) - lu(k,469) * lu(k,1060) - lu(k,1072) = - lu(k,470) * lu(k,1060) - lu(k,1073) = lu(k,1073) - lu(k,471) * lu(k,1060) - lu(k,1077) = lu(k,1077) - lu(k,472) * lu(k,1060) - lu(k,2386) = - lu(k,468) * lu(k,2373) - lu(k,2394) = lu(k,2394) - lu(k,469) * lu(k,2373) - lu(k,2401) = lu(k,2401) - lu(k,470) * lu(k,2373) - lu(k,2407) = lu(k,2407) - lu(k,471) * lu(k,2373) - lu(k,2420) = lu(k,2420) - lu(k,472) * lu(k,2373) + lu(k,433) = 1._r8 / lu(k,433) + lu(k,434) = lu(k,434) * lu(k,433) + lu(k,435) = lu(k,435) * lu(k,433) + lu(k,436) = lu(k,436) * lu(k,433) + lu(k,437) = lu(k,437) * lu(k,433) + lu(k,438) = lu(k,438) * lu(k,433) + lu(k,980) = lu(k,980) - lu(k,434) * lu(k,979) + lu(k,981) = lu(k,981) - lu(k,435) * lu(k,979) + lu(k,985) = - lu(k,436) * lu(k,979) + lu(k,988) = lu(k,988) - lu(k,437) * lu(k,979) + lu(k,990) = - lu(k,438) * lu(k,979) + lu(k,1813) = lu(k,1813) - lu(k,434) * lu(k,1757) + lu(k,1823) = lu(k,1823) - lu(k,435) * lu(k,1757) + lu(k,1854) = lu(k,1854) - lu(k,436) * lu(k,1757) + lu(k,1863) = lu(k,1863) - lu(k,437) * lu(k,1757) + lu(k,1867) = lu(k,1867) - lu(k,438) * lu(k,1757) + lu(k,2341) = lu(k,2341) - lu(k,434) * lu(k,2299) + lu(k,2346) = - lu(k,435) * lu(k,2299) + lu(k,2373) = lu(k,2373) - lu(k,436) * lu(k,2299) + lu(k,2382) = lu(k,2382) - lu(k,437) * lu(k,2299) + lu(k,2386) = lu(k,2386) - lu(k,438) * lu(k,2299) + lu(k,439) = 1._r8 / lu(k,439) + lu(k,440) = lu(k,440) * lu(k,439) + lu(k,441) = lu(k,441) * lu(k,439) + lu(k,442) = lu(k,442) * lu(k,439) + lu(k,443) = lu(k,443) * lu(k,439) + lu(k,444) = lu(k,444) * lu(k,439) + lu(k,1291) = - lu(k,440) * lu(k,1289) + lu(k,1293) = - lu(k,441) * lu(k,1289) + lu(k,1304) = lu(k,1304) - lu(k,442) * lu(k,1289) + lu(k,1305) = - lu(k,443) * lu(k,1289) + lu(k,1309) = lu(k,1309) - lu(k,444) * lu(k,1289) + lu(k,1799) = lu(k,1799) - lu(k,440) * lu(k,1758) + lu(k,1807) = lu(k,1807) - lu(k,441) * lu(k,1758) + lu(k,1853) = lu(k,1853) - lu(k,442) * lu(k,1758) + lu(k,1854) = lu(k,1854) - lu(k,443) * lu(k,1758) + lu(k,1863) = lu(k,1863) - lu(k,444) * lu(k,1758) + lu(k,2329) = lu(k,2329) - lu(k,440) * lu(k,2300) + lu(k,2337) = - lu(k,441) * lu(k,2300) + lu(k,2372) = lu(k,2372) - lu(k,442) * lu(k,2300) + lu(k,2373) = lu(k,2373) - lu(k,443) * lu(k,2300) + lu(k,2382) = lu(k,2382) - lu(k,444) * lu(k,2300) + lu(k,445) = 1._r8 / lu(k,445) + lu(k,446) = lu(k,446) * lu(k,445) + lu(k,447) = lu(k,447) * lu(k,445) + lu(k,448) = lu(k,448) * lu(k,445) + lu(k,449) = lu(k,449) * lu(k,445) + lu(k,450) = lu(k,450) * lu(k,445) + lu(k,1854) = lu(k,1854) - lu(k,446) * lu(k,1759) + lu(k,1859) = lu(k,1859) - lu(k,447) * lu(k,1759) + lu(k,1860) = lu(k,1860) - lu(k,448) * lu(k,1759) + lu(k,1865) = lu(k,1865) - lu(k,449) * lu(k,1759) + lu(k,1867) = lu(k,1867) - lu(k,450) * lu(k,1759) + lu(k,2187) = lu(k,2187) - lu(k,446) * lu(k,2151) + lu(k,2192) = - lu(k,447) * lu(k,2151) + lu(k,2193) = lu(k,2193) - lu(k,448) * lu(k,2151) + lu(k,2198) = lu(k,2198) - lu(k,449) * lu(k,2151) + lu(k,2200) = - lu(k,450) * lu(k,2151) + lu(k,2373) = lu(k,2373) - lu(k,446) * lu(k,2301) + lu(k,2378) = lu(k,2378) - lu(k,447) * lu(k,2301) + lu(k,2379) = lu(k,2379) - lu(k,448) * lu(k,2301) + lu(k,2384) = lu(k,2384) - lu(k,449) * lu(k,2301) + lu(k,2386) = lu(k,2386) - lu(k,450) * lu(k,2301) + lu(k,451) = 1._r8 / lu(k,451) + lu(k,452) = lu(k,452) * lu(k,451) + lu(k,453) = lu(k,453) * lu(k,451) + lu(k,454) = lu(k,454) * lu(k,451) + lu(k,455) = lu(k,455) * lu(k,451) + lu(k,456) = lu(k,456) * lu(k,451) + lu(k,1848) = lu(k,1848) - lu(k,452) * lu(k,1760) + lu(k,1849) = lu(k,1849) - lu(k,453) * lu(k,1760) + lu(k,1854) = lu(k,1854) - lu(k,454) * lu(k,1760) + lu(k,1856) = lu(k,1856) - lu(k,455) * lu(k,1760) + lu(k,1861) = lu(k,1861) - lu(k,456) * lu(k,1760) + lu(k,2001) = lu(k,2001) - lu(k,452) * lu(k,1980) + lu(k,2002) = lu(k,2002) - lu(k,453) * lu(k,1980) + lu(k,2007) = lu(k,2007) - lu(k,454) * lu(k,1980) + lu(k,2009) = lu(k,2009) - lu(k,455) * lu(k,1980) + lu(k,2014) = - lu(k,456) * lu(k,1980) + lu(k,2224) = lu(k,2224) - lu(k,452) * lu(k,2218) + lu(k,2225) = lu(k,2225) - lu(k,453) * lu(k,2218) + lu(k,2230) = lu(k,2230) - lu(k,454) * lu(k,2218) + lu(k,2232) = lu(k,2232) - lu(k,455) * lu(k,2218) + lu(k,2237) = lu(k,2237) - lu(k,456) * lu(k,2218) + lu(k,457) = 1._r8 / lu(k,457) + lu(k,458) = lu(k,458) * lu(k,457) + lu(k,459) = lu(k,459) * lu(k,457) + lu(k,460) = lu(k,460) * lu(k,457) + lu(k,461) = lu(k,461) * lu(k,457) + lu(k,462) = lu(k,462) * lu(k,457) + lu(k,531) = lu(k,531) - lu(k,458) * lu(k,530) + lu(k,532) = lu(k,532) - lu(k,459) * lu(k,530) + lu(k,534) = lu(k,534) - lu(k,460) * lu(k,530) + lu(k,536) = - lu(k,461) * lu(k,530) + lu(k,538) = lu(k,538) - lu(k,462) * lu(k,530) + lu(k,1767) = lu(k,1767) - lu(k,458) * lu(k,1761) + lu(k,1770) = lu(k,1770) - lu(k,459) * lu(k,1761) + lu(k,1820) = lu(k,1820) - lu(k,460) * lu(k,1761) + lu(k,1854) = lu(k,1854) - lu(k,461) * lu(k,1761) + lu(k,1863) = lu(k,1863) - lu(k,462) * lu(k,1761) + lu(k,2308) = - lu(k,458) * lu(k,2302) + lu(k,2311) = lu(k,2311) - lu(k,459) * lu(k,2302) + lu(k,2343) = lu(k,2343) - lu(k,460) * lu(k,2302) + lu(k,2373) = lu(k,2373) - lu(k,461) * lu(k,2302) + lu(k,2382) = lu(k,2382) - lu(k,462) * lu(k,2302) + lu(k,463) = 1._r8 / lu(k,463) + lu(k,464) = lu(k,464) * lu(k,463) + lu(k,465) = lu(k,465) * lu(k,463) + lu(k,466) = lu(k,466) * lu(k,463) + lu(k,467) = lu(k,467) * lu(k,463) + lu(k,468) = lu(k,468) * lu(k,463) + lu(k,1293) = lu(k,1293) - lu(k,464) * lu(k,1290) + lu(k,1296) = - lu(k,465) * lu(k,1290) + lu(k,1305) = lu(k,1305) - lu(k,466) * lu(k,1290) + lu(k,1308) = - lu(k,467) * lu(k,1290) + lu(k,1309) = lu(k,1309) - lu(k,468) * lu(k,1290) + lu(k,1807) = lu(k,1807) - lu(k,464) * lu(k,1762) + lu(k,1830) = lu(k,1830) - lu(k,465) * lu(k,1762) + lu(k,1854) = lu(k,1854) - lu(k,466) * lu(k,1762) + lu(k,1862) = lu(k,1862) - lu(k,467) * lu(k,1762) + lu(k,1863) = lu(k,1863) - lu(k,468) * lu(k,1762) + lu(k,2156) = - lu(k,464) * lu(k,2152) + lu(k,2168) = lu(k,2168) - lu(k,465) * lu(k,2152) + lu(k,2187) = lu(k,2187) - lu(k,466) * lu(k,2152) + lu(k,2195) = - lu(k,467) * lu(k,2152) + lu(k,2196) = lu(k,2196) - lu(k,468) * lu(k,2152) end do end subroutine lu_fac09 subroutine lu_fac10( avec_len, lu ) @@ -1137,151 +1118,151 @@ subroutine lu_fac10( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,473) = 1._r8 / lu(k,473) - lu(k,474) = lu(k,474) * lu(k,473) - lu(k,475) = lu(k,475) * lu(k,473) - lu(k,476) = lu(k,476) * lu(k,473) - lu(k,477) = lu(k,477) * lu(k,473) - lu(k,478) = lu(k,478) * lu(k,473) - lu(k,556) = lu(k,556) - lu(k,474) * lu(k,555) - lu(k,557) = lu(k,557) - lu(k,475) * lu(k,555) - lu(k,558) = lu(k,558) - lu(k,476) * lu(k,555) - lu(k,561) = - lu(k,477) * lu(k,555) - lu(k,562) = lu(k,562) - lu(k,478) * lu(k,555) - lu(k,1923) = lu(k,1923) - lu(k,474) * lu(k,1913) - lu(k,1970) = lu(k,1970) - lu(k,475) * lu(k,1913) - lu(k,1988) = lu(k,1988) - lu(k,476) * lu(k,1913) - lu(k,2006) = lu(k,2006) - lu(k,477) * lu(k,1913) - lu(k,2009) = lu(k,2009) - lu(k,478) * lu(k,1913) - lu(k,2150) = lu(k,2150) - lu(k,474) * lu(k,2140) - lu(k,2179) = lu(k,2179) - lu(k,475) * lu(k,2140) - lu(k,2194) = lu(k,2194) - lu(k,476) * lu(k,2140) - lu(k,2211) = lu(k,2211) - lu(k,477) * lu(k,2140) - lu(k,2214) = lu(k,2214) - lu(k,478) * lu(k,2140) - lu(k,481) = 1._r8 / lu(k,481) - lu(k,482) = lu(k,482) * lu(k,481) - lu(k,483) = lu(k,483) * lu(k,481) - lu(k,484) = lu(k,484) * lu(k,481) - lu(k,485) = lu(k,485) * lu(k,481) - lu(k,486) = lu(k,486) * lu(k,481) - lu(k,1733) = lu(k,1733) - lu(k,482) * lu(k,1724) - lu(k,1787) = lu(k,1787) - lu(k,483) * lu(k,1724) - lu(k,1788) = lu(k,1788) - lu(k,484) * lu(k,1724) - lu(k,1790) = lu(k,1790) - lu(k,485) * lu(k,1724) - lu(k,1793) = lu(k,1793) - lu(k,486) * lu(k,1724) - lu(k,1925) = lu(k,1925) - lu(k,482) * lu(k,1914) - lu(k,2003) = lu(k,2003) - lu(k,483) * lu(k,1914) - lu(k,2004) = lu(k,2004) - lu(k,484) * lu(k,1914) - lu(k,2006) = lu(k,2006) - lu(k,485) * lu(k,1914) - lu(k,2009) = lu(k,2009) - lu(k,486) * lu(k,1914) - lu(k,2151) = lu(k,2151) - lu(k,482) * lu(k,2141) - lu(k,2208) = lu(k,2208) - lu(k,483) * lu(k,2141) - lu(k,2209) = lu(k,2209) - lu(k,484) * lu(k,2141) - lu(k,2211) = lu(k,2211) - lu(k,485) * lu(k,2141) - lu(k,2214) = lu(k,2214) - lu(k,486) * lu(k,2141) - lu(k,487) = 1._r8 / lu(k,487) - lu(k,488) = lu(k,488) * lu(k,487) - lu(k,489) = lu(k,489) * lu(k,487) - lu(k,490) = lu(k,490) * lu(k,487) - lu(k,491) = lu(k,491) * lu(k,487) - lu(k,492) = lu(k,492) * lu(k,487) - lu(k,1752) = lu(k,1752) - lu(k,488) * lu(k,1725) - lu(k,1787) = lu(k,1787) - lu(k,489) * lu(k,1725) - lu(k,1788) = lu(k,1788) - lu(k,490) * lu(k,1725) - lu(k,1793) = lu(k,1793) - lu(k,491) * lu(k,1725) - lu(k,1800) = lu(k,1800) - lu(k,492) * lu(k,1725) - lu(k,2174) = lu(k,2174) - lu(k,488) * lu(k,2142) - lu(k,2208) = lu(k,2208) - lu(k,489) * lu(k,2142) - lu(k,2209) = lu(k,2209) - lu(k,490) * lu(k,2142) - lu(k,2214) = lu(k,2214) - lu(k,491) * lu(k,2142) - lu(k,2221) = lu(k,2221) - lu(k,492) * lu(k,2142) - lu(k,2474) = - lu(k,488) * lu(k,2472) - lu(k,2483) = - lu(k,489) * lu(k,2472) - lu(k,2484) = - lu(k,490) * lu(k,2472) - lu(k,2489) = lu(k,2489) - lu(k,491) * lu(k,2472) - lu(k,2496) = lu(k,2496) - lu(k,492) * lu(k,2472) - lu(k,493) = 1._r8 / lu(k,493) - lu(k,494) = lu(k,494) * lu(k,493) - lu(k,495) = lu(k,495) * lu(k,493) - lu(k,496) = lu(k,496) * lu(k,493) - lu(k,497) = lu(k,497) * lu(k,493) - lu(k,498) = lu(k,498) * lu(k,493) - lu(k,1292) = lu(k,1292) - lu(k,494) * lu(k,1289) - lu(k,1295) = - lu(k,495) * lu(k,1289) - lu(k,1305) = lu(k,1305) - lu(k,496) * lu(k,1289) - lu(k,1307) = lu(k,1307) - lu(k,497) * lu(k,1289) - lu(k,1308) = - lu(k,498) * lu(k,1289) - lu(k,1958) = lu(k,1958) - lu(k,494) * lu(k,1915) - lu(k,1980) = lu(k,1980) - lu(k,495) * lu(k,1915) - lu(k,2006) = lu(k,2006) - lu(k,496) * lu(k,1915) - lu(k,2009) = lu(k,2009) - lu(k,497) * lu(k,1915) - lu(k,2012) = lu(k,2012) - lu(k,498) * lu(k,1915) - lu(k,2320) = - lu(k,494) * lu(k,2316) - lu(k,2332) = lu(k,2332) - lu(k,495) * lu(k,2316) - lu(k,2353) = lu(k,2353) - lu(k,496) * lu(k,2316) - lu(k,2356) = lu(k,2356) - lu(k,497) * lu(k,2316) - lu(k,2359) = - lu(k,498) * lu(k,2316) - lu(k,500) = 1._r8 / lu(k,500) - lu(k,501) = lu(k,501) * lu(k,500) - lu(k,502) = lu(k,502) * lu(k,500) - lu(k,503) = lu(k,503) * lu(k,500) - lu(k,504) = lu(k,504) * lu(k,500) - lu(k,505) = lu(k,505) * lu(k,500) - lu(k,1758) = lu(k,1758) - lu(k,501) * lu(k,1726) - lu(k,1787) = lu(k,1787) - lu(k,502) * lu(k,1726) - lu(k,1788) = lu(k,1788) - lu(k,503) * lu(k,1726) - lu(k,1790) = lu(k,1790) - lu(k,504) * lu(k,1726) - lu(k,1793) = lu(k,1793) - lu(k,505) * lu(k,1726) - lu(k,1970) = lu(k,1970) - lu(k,501) * lu(k,1916) - lu(k,2003) = lu(k,2003) - lu(k,502) * lu(k,1916) - lu(k,2004) = lu(k,2004) - lu(k,503) * lu(k,1916) - lu(k,2006) = lu(k,2006) - lu(k,504) * lu(k,1916) - lu(k,2009) = lu(k,2009) - lu(k,505) * lu(k,1916) - lu(k,2179) = lu(k,2179) - lu(k,501) * lu(k,2143) - lu(k,2208) = lu(k,2208) - lu(k,502) * lu(k,2143) - lu(k,2209) = lu(k,2209) - lu(k,503) * lu(k,2143) - lu(k,2211) = lu(k,2211) - lu(k,504) * lu(k,2143) - lu(k,2214) = lu(k,2214) - lu(k,505) * lu(k,2143) - lu(k,506) = 1._r8 / lu(k,506) - lu(k,507) = lu(k,507) * lu(k,506) - lu(k,508) = lu(k,508) * lu(k,506) - lu(k,542) = - lu(k,507) * lu(k,540) - lu(k,547) = lu(k,547) - lu(k,508) * lu(k,540) - lu(k,664) = - lu(k,507) * lu(k,661) - lu(k,670) = lu(k,670) - lu(k,508) * lu(k,661) - lu(k,767) = - lu(k,507) * lu(k,764) - lu(k,776) = lu(k,776) - lu(k,508) * lu(k,764) - lu(k,794) = - lu(k,507) * lu(k,791) - lu(k,804) = lu(k,804) - lu(k,508) * lu(k,791) - lu(k,810) = - lu(k,507) * lu(k,807) - lu(k,821) = lu(k,821) - lu(k,508) * lu(k,807) - lu(k,1742) = lu(k,1742) - lu(k,507) * lu(k,1727) - lu(k,1793) = lu(k,1793) - lu(k,508) * lu(k,1727) - lu(k,1948) = - lu(k,507) * lu(k,1917) - lu(k,2009) = lu(k,2009) - lu(k,508) * lu(k,1917) - lu(k,2164) = lu(k,2164) - lu(k,507) * lu(k,2144) - lu(k,2214) = lu(k,2214) - lu(k,508) * lu(k,2144) - lu(k,509) = 1._r8 / lu(k,509) - lu(k,510) = lu(k,510) * lu(k,509) - lu(k,511) = lu(k,511) * lu(k,509) - lu(k,512) = lu(k,512) * lu(k,509) - lu(k,513) = lu(k,513) * lu(k,509) - lu(k,833) = - lu(k,510) * lu(k,831) - lu(k,834) = - lu(k,511) * lu(k,831) - lu(k,838) = lu(k,838) - lu(k,512) * lu(k,831) - lu(k,839) = lu(k,839) - lu(k,513) * lu(k,831) - lu(k,1582) = lu(k,1582) - lu(k,510) * lu(k,1570) - lu(k,1586) = lu(k,1586) - lu(k,511) * lu(k,1570) - lu(k,1593) = lu(k,1593) - lu(k,512) * lu(k,1570) - lu(k,1598) = - lu(k,513) * lu(k,1570) - lu(k,1767) = lu(k,1767) - lu(k,510) * lu(k,1728) - lu(k,1784) = lu(k,1784) - lu(k,511) * lu(k,1728) - lu(k,1793) = lu(k,1793) - lu(k,512) * lu(k,1728) - lu(k,1800) = lu(k,1800) - lu(k,513) * lu(k,1728) - lu(k,2187) = - lu(k,510) * lu(k,2145) - lu(k,2205) = lu(k,2205) - lu(k,511) * lu(k,2145) - lu(k,2214) = lu(k,2214) - lu(k,512) * lu(k,2145) - lu(k,2221) = lu(k,2221) - lu(k,513) * lu(k,2145) + lu(k,469) = 1._r8 / lu(k,469) + lu(k,470) = lu(k,470) * lu(k,469) + lu(k,471) = lu(k,471) * lu(k,469) + lu(k,472) = lu(k,472) * lu(k,469) + lu(k,473) = lu(k,473) * lu(k,469) + lu(k,474) = lu(k,474) * lu(k,469) + lu(k,558) = lu(k,558) - lu(k,470) * lu(k,557) + lu(k,559) = lu(k,559) - lu(k,471) * lu(k,557) + lu(k,560) = lu(k,560) - lu(k,472) * lu(k,557) + lu(k,562) = - lu(k,473) * lu(k,557) + lu(k,564) = lu(k,564) - lu(k,474) * lu(k,557) + lu(k,1773) = lu(k,1773) - lu(k,470) * lu(k,1763) + lu(k,1820) = lu(k,1820) - lu(k,471) * lu(k,1763) + lu(k,1838) = lu(k,1838) - lu(k,472) * lu(k,1763) + lu(k,1854) = lu(k,1854) - lu(k,473) * lu(k,1763) + lu(k,1863) = lu(k,1863) - lu(k,474) * lu(k,1763) + lu(k,2314) = lu(k,2314) - lu(k,470) * lu(k,2303) + lu(k,2343) = lu(k,2343) - lu(k,471) * lu(k,2303) + lu(k,2358) = lu(k,2358) - lu(k,472) * lu(k,2303) + lu(k,2373) = lu(k,2373) - lu(k,473) * lu(k,2303) + lu(k,2382) = lu(k,2382) - lu(k,474) * lu(k,2303) + lu(k,477) = 1._r8 / lu(k,477) + lu(k,478) = lu(k,478) * lu(k,477) + lu(k,479) = lu(k,479) * lu(k,477) + lu(k,480) = lu(k,480) * lu(k,477) + lu(k,481) = lu(k,481) * lu(k,477) + lu(k,482) = lu(k,482) * lu(k,477) + lu(k,1775) = lu(k,1775) - lu(k,478) * lu(k,1764) + lu(k,1853) = lu(k,1853) - lu(k,479) * lu(k,1764) + lu(k,1854) = lu(k,1854) - lu(k,480) * lu(k,1764) + lu(k,1855) = lu(k,1855) - lu(k,481) * lu(k,1764) + lu(k,1863) = lu(k,1863) - lu(k,482) * lu(k,1764) + lu(k,1905) = lu(k,1905) - lu(k,478) * lu(k,1896) + lu(k,1960) = lu(k,1960) - lu(k,479) * lu(k,1896) + lu(k,1961) = lu(k,1961) - lu(k,480) * lu(k,1896) + lu(k,1962) = lu(k,1962) - lu(k,481) * lu(k,1896) + lu(k,1970) = lu(k,1970) - lu(k,482) * lu(k,1896) + lu(k,2315) = lu(k,2315) - lu(k,478) * lu(k,2304) + lu(k,2372) = lu(k,2372) - lu(k,479) * lu(k,2304) + lu(k,2373) = lu(k,2373) - lu(k,480) * lu(k,2304) + lu(k,2374) = lu(k,2374) - lu(k,481) * lu(k,2304) + lu(k,2382) = lu(k,2382) - lu(k,482) * lu(k,2304) + lu(k,483) = 1._r8 / lu(k,483) + lu(k,484) = lu(k,484) * lu(k,483) + lu(k,485) = lu(k,485) * lu(k,483) + lu(k,486) = lu(k,486) * lu(k,483) + lu(k,487) = lu(k,487) * lu(k,483) + lu(k,488) = lu(k,488) * lu(k,483) + lu(k,1926) = lu(k,1926) - lu(k,484) * lu(k,1897) + lu(k,1960) = lu(k,1960) - lu(k,485) * lu(k,1897) + lu(k,1962) = lu(k,1962) - lu(k,486) * lu(k,1897) + lu(k,1970) = lu(k,1970) - lu(k,487) * lu(k,1897) + lu(k,1972) = lu(k,1972) - lu(k,488) * lu(k,1897) + lu(k,2339) = lu(k,2339) - lu(k,484) * lu(k,2305) + lu(k,2372) = lu(k,2372) - lu(k,485) * lu(k,2305) + lu(k,2374) = lu(k,2374) - lu(k,486) * lu(k,2305) + lu(k,2382) = lu(k,2382) - lu(k,487) * lu(k,2305) + lu(k,2384) = lu(k,2384) - lu(k,488) * lu(k,2305) + lu(k,2449) = - lu(k,484) * lu(k,2447) + lu(k,2458) = - lu(k,485) * lu(k,2447) + lu(k,2460) = - lu(k,486) * lu(k,2447) + lu(k,2468) = lu(k,2468) - lu(k,487) * lu(k,2447) + lu(k,2470) = lu(k,2470) - lu(k,488) * lu(k,2447) + lu(k,489) = 1._r8 / lu(k,489) + lu(k,490) = lu(k,490) * lu(k,489) + lu(k,491) = lu(k,491) * lu(k,489) + lu(k,492) = lu(k,492) * lu(k,489) + lu(k,493) = lu(k,493) * lu(k,489) + lu(k,494) = lu(k,494) * lu(k,489) + lu(k,1150) = lu(k,1150) - lu(k,490) * lu(k,1147) + lu(k,1151) = lu(k,1151) - lu(k,491) * lu(k,1147) + lu(k,1155) = lu(k,1155) - lu(k,492) * lu(k,1147) + lu(k,1156) = - lu(k,493) * lu(k,1147) + lu(k,1159) = - lu(k,494) * lu(k,1147) + lu(k,1822) = lu(k,1822) - lu(k,490) * lu(k,1765) + lu(k,1825) = lu(k,1825) - lu(k,491) * lu(k,1765) + lu(k,1853) = lu(k,1853) - lu(k,492) * lu(k,1765) + lu(k,1854) = lu(k,1854) - lu(k,493) * lu(k,1765) + lu(k,1862) = lu(k,1862) - lu(k,494) * lu(k,1765) + lu(k,2345) = - lu(k,490) * lu(k,2306) + lu(k,2347) = lu(k,2347) - lu(k,491) * lu(k,2306) + lu(k,2372) = lu(k,2372) - lu(k,492) * lu(k,2306) + lu(k,2373) = lu(k,2373) - lu(k,493) * lu(k,2306) + lu(k,2381) = - lu(k,494) * lu(k,2306) + lu(k,495) = 1._r8 / lu(k,495) + lu(k,496) = lu(k,496) * lu(k,495) + lu(k,497) = lu(k,497) * lu(k,495) + lu(k,498) = lu(k,498) * lu(k,495) + lu(k,499) = lu(k,499) * lu(k,495) + lu(k,500) = lu(k,500) * lu(k,495) + lu(k,1009) = - lu(k,496) * lu(k,1005) + lu(k,1015) = lu(k,1015) - lu(k,497) * lu(k,1005) + lu(k,1017) = - lu(k,498) * lu(k,1005) + lu(k,1018) = lu(k,1018) - lu(k,499) * lu(k,1005) + lu(k,1022) = lu(k,1022) - lu(k,500) * lu(k,1005) + lu(k,1065) = - lu(k,496) * lu(k,1061) + lu(k,1071) = lu(k,1071) - lu(k,497) * lu(k,1061) + lu(k,1073) = - lu(k,498) * lu(k,1061) + lu(k,1074) = lu(k,1074) - lu(k,499) * lu(k,1061) + lu(k,1078) = lu(k,1078) - lu(k,500) * lu(k,1061) + lu(k,2085) = - lu(k,496) * lu(k,2072) + lu(k,2093) = lu(k,2093) - lu(k,497) * lu(k,2072) + lu(k,2100) = lu(k,2100) - lu(k,498) * lu(k,2072) + lu(k,2106) = lu(k,2106) - lu(k,499) * lu(k,2072) + lu(k,2123) = lu(k,2123) - lu(k,500) * lu(k,2072) + lu(k,502) = 1._r8 / lu(k,502) + lu(k,503) = lu(k,503) * lu(k,502) + lu(k,504) = lu(k,504) * lu(k,502) + lu(k,505) = lu(k,505) * lu(k,502) + lu(k,506) = lu(k,506) * lu(k,502) + lu(k,507) = lu(k,507) * lu(k,502) + lu(k,1820) = lu(k,1820) - lu(k,503) * lu(k,1766) + lu(k,1853) = lu(k,1853) - lu(k,504) * lu(k,1766) + lu(k,1854) = lu(k,1854) - lu(k,505) * lu(k,1766) + lu(k,1855) = lu(k,1855) - lu(k,506) * lu(k,1766) + lu(k,1863) = lu(k,1863) - lu(k,507) * lu(k,1766) + lu(k,1931) = lu(k,1931) - lu(k,503) * lu(k,1898) + lu(k,1960) = lu(k,1960) - lu(k,504) * lu(k,1898) + lu(k,1961) = lu(k,1961) - lu(k,505) * lu(k,1898) + lu(k,1962) = lu(k,1962) - lu(k,506) * lu(k,1898) + lu(k,1970) = lu(k,1970) - lu(k,507) * lu(k,1898) + lu(k,2343) = lu(k,2343) - lu(k,503) * lu(k,2307) + lu(k,2372) = lu(k,2372) - lu(k,504) * lu(k,2307) + lu(k,2373) = lu(k,2373) - lu(k,505) * lu(k,2307) + lu(k,2374) = lu(k,2374) - lu(k,506) * lu(k,2307) + lu(k,2382) = lu(k,2382) - lu(k,507) * lu(k,2307) + lu(k,508) = 1._r8 / lu(k,508) + lu(k,509) = lu(k,509) * lu(k,508) + lu(k,510) = lu(k,510) * lu(k,508) + lu(k,533) = - lu(k,509) * lu(k,531) + lu(k,538) = lu(k,538) - lu(k,510) * lu(k,531) + lu(k,654) = - lu(k,509) * lu(k,651) + lu(k,660) = lu(k,660) - lu(k,510) * lu(k,651) + lu(k,767) = - lu(k,509) * lu(k,764) + lu(k,776) = lu(k,776) - lu(k,510) * lu(k,764) + lu(k,787) = - lu(k,509) * lu(k,784) + lu(k,797) = lu(k,797) - lu(k,510) * lu(k,784) + lu(k,811) = - lu(k,509) * lu(k,808) + lu(k,822) = lu(k,822) - lu(k,510) * lu(k,808) + lu(k,1797) = - lu(k,509) * lu(k,1767) + lu(k,1863) = lu(k,1863) - lu(k,510) * lu(k,1767) + lu(k,1915) = lu(k,1915) - lu(k,509) * lu(k,1899) + lu(k,1970) = lu(k,1970) - lu(k,510) * lu(k,1899) + lu(k,2327) = lu(k,2327) - lu(k,509) * lu(k,2308) + lu(k,2382) = lu(k,2382) - lu(k,510) * lu(k,2308) end do end subroutine lu_fac10 subroutine lu_fac11( avec_len, lu ) @@ -1298,178 +1279,174 @@ subroutine lu_fac11( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,514) = 1._r8 / lu(k,514) - lu(k,515) = lu(k,515) * lu(k,514) - lu(k,516) = lu(k,516) * lu(k,514) - lu(k,517) = lu(k,517) * lu(k,514) - lu(k,518) = lu(k,518) * lu(k,514) - lu(k,519) = lu(k,519) * lu(k,514) - lu(k,520) = lu(k,520) * lu(k,514) - lu(k,1825) = lu(k,1825) - lu(k,515) * lu(k,1820) - lu(k,1826) = lu(k,1826) - lu(k,516) * lu(k,1820) - lu(k,1832) = lu(k,1832) - lu(k,517) * lu(k,1820) - lu(k,1833) = lu(k,1833) - lu(k,518) * lu(k,1820) - lu(k,1837) = lu(k,1837) - lu(k,519) * lu(k,1820) - lu(k,1844) = lu(k,1844) - lu(k,520) * lu(k,1820) - lu(k,1998) = lu(k,1998) - lu(k,515) * lu(k,1918) - lu(k,1999) = lu(k,1999) - lu(k,516) * lu(k,1918) - lu(k,2005) = lu(k,2005) - lu(k,517) * lu(k,1918) - lu(k,2006) = lu(k,2006) - lu(k,518) * lu(k,1918) - lu(k,2010) = lu(k,2010) - lu(k,519) * lu(k,1918) - lu(k,2017) = lu(k,2017) - lu(k,520) * lu(k,1918) - lu(k,2249) = lu(k,2249) - lu(k,515) * lu(k,2229) - lu(k,2250) = lu(k,2250) - lu(k,516) * lu(k,2229) - lu(k,2256) = lu(k,2256) - lu(k,517) * lu(k,2229) - lu(k,2257) = lu(k,2257) - lu(k,518) * lu(k,2229) - lu(k,2261) = lu(k,2261) - lu(k,519) * lu(k,2229) - lu(k,2268) = lu(k,2268) - lu(k,520) * lu(k,2229) - lu(k,521) = 1._r8 / lu(k,521) - lu(k,522) = lu(k,522) * lu(k,521) - lu(k,523) = lu(k,523) * lu(k,521) - lu(k,524) = lu(k,524) * lu(k,521) - lu(k,525) = lu(k,525) * lu(k,521) - lu(k,526) = lu(k,526) * lu(k,521) - lu(k,527) = lu(k,527) * lu(k,521) - lu(k,1678) = lu(k,1678) - lu(k,522) * lu(k,1654) - lu(k,1681) = lu(k,1681) - lu(k,523) * lu(k,1654) - lu(k,1684) = lu(k,1684) - lu(k,524) * lu(k,1654) - lu(k,1685) = lu(k,1685) - lu(k,525) * lu(k,1654) - lu(k,1687) = lu(k,1687) - lu(k,526) * lu(k,1654) - lu(k,1695) = - lu(k,527) * lu(k,1654) - lu(k,2000) = lu(k,2000) - lu(k,522) * lu(k,1919) - lu(k,2003) = lu(k,2003) - lu(k,523) * lu(k,1919) - lu(k,2006) = lu(k,2006) - lu(k,524) * lu(k,1919) - lu(k,2007) = lu(k,2007) - lu(k,525) * lu(k,1919) - lu(k,2009) = lu(k,2009) - lu(k,526) * lu(k,1919) - lu(k,2017) = lu(k,2017) - lu(k,527) * lu(k,1919) - lu(k,2205) = lu(k,2205) - lu(k,522) * lu(k,2146) - lu(k,2208) = lu(k,2208) - lu(k,523) * lu(k,2146) - lu(k,2211) = lu(k,2211) - lu(k,524) * lu(k,2146) - lu(k,2212) = lu(k,2212) - lu(k,525) * lu(k,2146) - lu(k,2214) = lu(k,2214) - lu(k,526) * lu(k,2146) - lu(k,2222) = lu(k,2222) - lu(k,527) * lu(k,2146) - lu(k,528) = 1._r8 / lu(k,528) - lu(k,529) = lu(k,529) * lu(k,528) - lu(k,530) = lu(k,530) * lu(k,528) - lu(k,531) = lu(k,531) * lu(k,528) - lu(k,532) = lu(k,532) * lu(k,528) - lu(k,533) = lu(k,533) * lu(k,528) - lu(k,534) = lu(k,534) * lu(k,528) - lu(k,1106) = lu(k,1106) - lu(k,529) * lu(k,1103) - lu(k,1107) = lu(k,1107) - lu(k,530) * lu(k,1103) - lu(k,1108) = lu(k,1108) - lu(k,531) * lu(k,1103) - lu(k,1111) = - lu(k,532) * lu(k,1103) - lu(k,1112) = lu(k,1112) - lu(k,533) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,534) * lu(k,1103) - lu(k,1971) = lu(k,1971) - lu(k,529) * lu(k,1920) - lu(k,1972) = lu(k,1972) - lu(k,530) * lu(k,1920) - lu(k,1973) = lu(k,1973) - lu(k,531) * lu(k,1920) - lu(k,2006) = lu(k,2006) - lu(k,532) * lu(k,1920) - lu(k,2009) = lu(k,2009) - lu(k,533) * lu(k,1920) - lu(k,2016) = lu(k,2016) - lu(k,534) * lu(k,1920) - lu(k,2180) = lu(k,2180) - lu(k,529) * lu(k,2147) - lu(k,2181) = lu(k,2181) - lu(k,530) * lu(k,2147) - lu(k,2182) = lu(k,2182) - lu(k,531) * lu(k,2147) - lu(k,2211) = lu(k,2211) - lu(k,532) * lu(k,2147) - lu(k,2214) = lu(k,2214) - lu(k,533) * lu(k,2147) - lu(k,2221) = lu(k,2221) - lu(k,534) * lu(k,2147) - lu(k,535) = 1._r8 / lu(k,535) - lu(k,536) = lu(k,536) * lu(k,535) - lu(k,537) = lu(k,537) * lu(k,535) - lu(k,538) = lu(k,538) * lu(k,535) - lu(k,692) = lu(k,692) - lu(k,536) * lu(k,691) - lu(k,693) = lu(k,693) - lu(k,537) * lu(k,691) - lu(k,697) = - lu(k,538) * lu(k,691) - lu(k,1660) = - lu(k,536) * lu(k,1655) - lu(k,1681) = lu(k,1681) - lu(k,537) * lu(k,1655) - lu(k,1692) = lu(k,1692) - lu(k,538) * lu(k,1655) - lu(k,1739) = lu(k,1739) - lu(k,536) * lu(k,1729) - lu(k,1787) = lu(k,1787) - lu(k,537) * lu(k,1729) - lu(k,1798) = lu(k,1798) - lu(k,538) * lu(k,1729) - lu(k,1939) = lu(k,1939) - lu(k,536) * lu(k,1921) - lu(k,2003) = lu(k,2003) - lu(k,537) * lu(k,1921) - lu(k,2014) = lu(k,2014) - lu(k,538) * lu(k,1921) - lu(k,2157) = lu(k,2157) - lu(k,536) * lu(k,2148) - lu(k,2208) = lu(k,2208) - lu(k,537) * lu(k,2148) - lu(k,2219) = lu(k,2219) - lu(k,538) * lu(k,2148) - lu(k,2376) = lu(k,2376) - lu(k,536) * lu(k,2374) - lu(k,2414) = lu(k,2414) - lu(k,537) * lu(k,2374) - lu(k,2425) = lu(k,2425) - lu(k,538) * lu(k,2374) - lu(k,541) = 1._r8 / lu(k,541) - lu(k,542) = lu(k,542) * lu(k,541) - lu(k,543) = lu(k,543) * lu(k,541) - lu(k,544) = lu(k,544) * lu(k,541) - lu(k,545) = lu(k,545) * lu(k,541) - lu(k,546) = lu(k,546) * lu(k,541) - lu(k,547) = lu(k,547) * lu(k,541) - lu(k,1742) = lu(k,1742) - lu(k,542) * lu(k,1730) - lu(k,1758) = lu(k,1758) - lu(k,543) * lu(k,1730) - lu(k,1787) = lu(k,1787) - lu(k,544) * lu(k,1730) - lu(k,1788) = lu(k,1788) - lu(k,545) * lu(k,1730) - lu(k,1790) = lu(k,1790) - lu(k,546) * lu(k,1730) - lu(k,1793) = lu(k,1793) - lu(k,547) * lu(k,1730) - lu(k,1948) = lu(k,1948) - lu(k,542) * lu(k,1922) - lu(k,1970) = lu(k,1970) - lu(k,543) * lu(k,1922) - lu(k,2003) = lu(k,2003) - lu(k,544) * lu(k,1922) - lu(k,2004) = lu(k,2004) - lu(k,545) * lu(k,1922) - lu(k,2006) = lu(k,2006) - lu(k,546) * lu(k,1922) - lu(k,2009) = lu(k,2009) - lu(k,547) * lu(k,1922) - lu(k,2164) = lu(k,2164) - lu(k,542) * lu(k,2149) - lu(k,2179) = lu(k,2179) - lu(k,543) * lu(k,2149) - lu(k,2208) = lu(k,2208) - lu(k,544) * lu(k,2149) - lu(k,2209) = lu(k,2209) - lu(k,545) * lu(k,2149) - lu(k,2211) = lu(k,2211) - lu(k,546) * lu(k,2149) - lu(k,2214) = lu(k,2214) - lu(k,547) * lu(k,2149) - lu(k,548) = 1._r8 / lu(k,548) - lu(k,549) = lu(k,549) * lu(k,548) - lu(k,550) = lu(k,550) * lu(k,548) - lu(k,551) = lu(k,551) * lu(k,548) - lu(k,552) = lu(k,552) * lu(k,548) - lu(k,553) = lu(k,553) * lu(k,548) - lu(k,554) = lu(k,554) * lu(k,548) - lu(k,1039) = - lu(k,549) * lu(k,1038) - lu(k,1040) = lu(k,1040) - lu(k,550) * lu(k,1038) - lu(k,1041) = lu(k,1041) - lu(k,551) * lu(k,1038) - lu(k,1043) = lu(k,1043) - lu(k,552) * lu(k,1038) - lu(k,1046) = lu(k,1046) - lu(k,553) * lu(k,1038) - lu(k,1052) = lu(k,1052) - lu(k,554) * lu(k,1038) - lu(k,1575) = lu(k,1575) - lu(k,549) * lu(k,1571) - lu(k,1576) = lu(k,1576) - lu(k,550) * lu(k,1571) - lu(k,1577) = lu(k,1577) - lu(k,551) * lu(k,1571) - lu(k,1580) = lu(k,1580) - lu(k,552) * lu(k,1571) - lu(k,1586) = lu(k,1586) - lu(k,553) * lu(k,1571) - lu(k,1597) = lu(k,1597) - lu(k,554) * lu(k,1571) - lu(k,2439) = lu(k,2439) - lu(k,549) * lu(k,2432) - lu(k,2442) = lu(k,2442) - lu(k,550) * lu(k,2432) - lu(k,2443) = - lu(k,551) * lu(k,2432) - lu(k,2447) = lu(k,2447) - lu(k,552) * lu(k,2432) - lu(k,2454) = lu(k,2454) - lu(k,553) * lu(k,2432) - lu(k,2469) = lu(k,2469) - lu(k,554) * lu(k,2432) - lu(k,556) = 1._r8 / lu(k,556) - lu(k,557) = lu(k,557) * lu(k,556) - lu(k,558) = lu(k,558) * lu(k,556) - lu(k,559) = lu(k,559) * lu(k,556) - lu(k,560) = lu(k,560) * lu(k,556) - lu(k,561) = lu(k,561) * lu(k,556) - lu(k,562) = lu(k,562) * lu(k,556) - lu(k,1758) = lu(k,1758) - lu(k,557) * lu(k,1731) - lu(k,1775) = lu(k,1775) - lu(k,558) * lu(k,1731) - lu(k,1787) = lu(k,1787) - lu(k,559) * lu(k,1731) - lu(k,1788) = lu(k,1788) - lu(k,560) * lu(k,1731) - lu(k,1790) = lu(k,1790) - lu(k,561) * lu(k,1731) - lu(k,1793) = lu(k,1793) - lu(k,562) * lu(k,1731) - lu(k,1970) = lu(k,1970) - lu(k,557) * lu(k,1923) - lu(k,1988) = lu(k,1988) - lu(k,558) * lu(k,1923) - lu(k,2003) = lu(k,2003) - lu(k,559) * lu(k,1923) - lu(k,2004) = lu(k,2004) - lu(k,560) * lu(k,1923) - lu(k,2006) = lu(k,2006) - lu(k,561) * lu(k,1923) - lu(k,2009) = lu(k,2009) - lu(k,562) * lu(k,1923) - lu(k,2179) = lu(k,2179) - lu(k,557) * lu(k,2150) - lu(k,2194) = lu(k,2194) - lu(k,558) * lu(k,2150) - lu(k,2208) = lu(k,2208) - lu(k,559) * lu(k,2150) - lu(k,2209) = lu(k,2209) - lu(k,560) * lu(k,2150) - lu(k,2211) = lu(k,2211) - lu(k,561) * lu(k,2150) - lu(k,2214) = lu(k,2214) - lu(k,562) * lu(k,2150) + lu(k,511) = 1._r8 / lu(k,511) + lu(k,512) = lu(k,512) * lu(k,511) + lu(k,513) = lu(k,513) * lu(k,511) + lu(k,514) = lu(k,514) * lu(k,511) + lu(k,515) = lu(k,515) * lu(k,511) + lu(k,843) = - lu(k,512) * lu(k,841) + lu(k,844) = - lu(k,513) * lu(k,841) + lu(k,848) = lu(k,848) - lu(k,514) * lu(k,841) + lu(k,849) = lu(k,849) - lu(k,515) * lu(k,841) + lu(k,1583) = lu(k,1583) - lu(k,512) * lu(k,1571) + lu(k,1587) = lu(k,1587) - lu(k,513) * lu(k,1571) + lu(k,1597) = lu(k,1597) - lu(k,514) * lu(k,1571) + lu(k,1598) = - lu(k,515) * lu(k,1571) + lu(k,1940) = lu(k,1940) - lu(k,512) * lu(k,1900) + lu(k,1957) = lu(k,1957) - lu(k,513) * lu(k,1900) + lu(k,1970) = lu(k,1970) - lu(k,514) * lu(k,1900) + lu(k,1972) = lu(k,1972) - lu(k,515) * lu(k,1900) + lu(k,2351) = - lu(k,512) * lu(k,2309) + lu(k,2369) = lu(k,2369) - lu(k,513) * lu(k,2309) + lu(k,2382) = lu(k,2382) - lu(k,514) * lu(k,2309) + lu(k,2384) = lu(k,2384) - lu(k,515) * lu(k,2309) + lu(k,516) = 1._r8 / lu(k,516) + lu(k,517) = lu(k,517) * lu(k,516) + lu(k,518) = lu(k,518) * lu(k,516) + lu(k,519) = lu(k,519) * lu(k,516) + lu(k,520) = lu(k,520) * lu(k,516) + lu(k,521) = lu(k,521) * lu(k,516) + lu(k,522) = lu(k,522) * lu(k,516) + lu(k,1848) = lu(k,1848) - lu(k,517) * lu(k,1768) + lu(k,1849) = lu(k,1849) - lu(k,518) * lu(k,1768) + lu(k,1854) = lu(k,1854) - lu(k,519) * lu(k,1768) + lu(k,1856) = lu(k,1856) - lu(k,520) * lu(k,1768) + lu(k,1861) = lu(k,1861) - lu(k,521) * lu(k,1768) + lu(k,1867) = lu(k,1867) - lu(k,522) * lu(k,1768) + lu(k,2001) = lu(k,2001) - lu(k,517) * lu(k,1981) + lu(k,2002) = lu(k,2002) - lu(k,518) * lu(k,1981) + lu(k,2007) = lu(k,2007) - lu(k,519) * lu(k,1981) + lu(k,2009) = lu(k,2009) - lu(k,520) * lu(k,1981) + lu(k,2014) = lu(k,2014) - lu(k,521) * lu(k,1981) + lu(k,2020) = lu(k,2020) - lu(k,522) * lu(k,1981) + lu(k,2224) = lu(k,2224) - lu(k,517) * lu(k,2219) + lu(k,2225) = lu(k,2225) - lu(k,518) * lu(k,2219) + lu(k,2230) = lu(k,2230) - lu(k,519) * lu(k,2219) + lu(k,2232) = lu(k,2232) - lu(k,520) * lu(k,2219) + lu(k,2237) = lu(k,2237) - lu(k,521) * lu(k,2219) + lu(k,2243) = lu(k,2243) - lu(k,522) * lu(k,2219) + lu(k,523) = 1._r8 / lu(k,523) + lu(k,524) = lu(k,524) * lu(k,523) + lu(k,525) = lu(k,525) * lu(k,523) + lu(k,526) = lu(k,526) * lu(k,523) + lu(k,527) = lu(k,527) * lu(k,523) + lu(k,528) = lu(k,528) * lu(k,523) + lu(k,529) = lu(k,529) * lu(k,523) + lu(k,1107) = lu(k,1107) - lu(k,524) * lu(k,1104) + lu(k,1108) = lu(k,1108) - lu(k,525) * lu(k,1104) + lu(k,1109) = lu(k,1109) - lu(k,526) * lu(k,1104) + lu(k,1111) = - lu(k,527) * lu(k,1104) + lu(k,1115) = lu(k,1115) - lu(k,528) * lu(k,1104) + lu(k,1116) = lu(k,1116) - lu(k,529) * lu(k,1104) + lu(k,1821) = lu(k,1821) - lu(k,524) * lu(k,1769) + lu(k,1822) = lu(k,1822) - lu(k,525) * lu(k,1769) + lu(k,1823) = lu(k,1823) - lu(k,526) * lu(k,1769) + lu(k,1854) = lu(k,1854) - lu(k,527) * lu(k,1769) + lu(k,1863) = lu(k,1863) - lu(k,528) * lu(k,1769) + lu(k,1865) = lu(k,1865) - lu(k,529) * lu(k,1769) + lu(k,2344) = lu(k,2344) - lu(k,524) * lu(k,2310) + lu(k,2345) = lu(k,2345) - lu(k,525) * lu(k,2310) + lu(k,2346) = lu(k,2346) - lu(k,526) * lu(k,2310) + lu(k,2373) = lu(k,2373) - lu(k,527) * lu(k,2310) + lu(k,2382) = lu(k,2382) - lu(k,528) * lu(k,2310) + lu(k,2384) = lu(k,2384) - lu(k,529) * lu(k,2310) + lu(k,532) = 1._r8 / lu(k,532) + lu(k,533) = lu(k,533) * lu(k,532) + lu(k,534) = lu(k,534) * lu(k,532) + lu(k,535) = lu(k,535) * lu(k,532) + lu(k,536) = lu(k,536) * lu(k,532) + lu(k,537) = lu(k,537) * lu(k,532) + lu(k,538) = lu(k,538) * lu(k,532) + lu(k,1797) = lu(k,1797) - lu(k,533) * lu(k,1770) + lu(k,1820) = lu(k,1820) - lu(k,534) * lu(k,1770) + lu(k,1853) = lu(k,1853) - lu(k,535) * lu(k,1770) + lu(k,1854) = lu(k,1854) - lu(k,536) * lu(k,1770) + lu(k,1855) = lu(k,1855) - lu(k,537) * lu(k,1770) + lu(k,1863) = lu(k,1863) - lu(k,538) * lu(k,1770) + lu(k,1915) = lu(k,1915) - lu(k,533) * lu(k,1901) + lu(k,1931) = lu(k,1931) - lu(k,534) * lu(k,1901) + lu(k,1960) = lu(k,1960) - lu(k,535) * lu(k,1901) + lu(k,1961) = lu(k,1961) - lu(k,536) * lu(k,1901) + lu(k,1962) = lu(k,1962) - lu(k,537) * lu(k,1901) + lu(k,1970) = lu(k,1970) - lu(k,538) * lu(k,1901) + lu(k,2327) = lu(k,2327) - lu(k,533) * lu(k,2311) + lu(k,2343) = lu(k,2343) - lu(k,534) * lu(k,2311) + lu(k,2372) = lu(k,2372) - lu(k,535) * lu(k,2311) + lu(k,2373) = lu(k,2373) - lu(k,536) * lu(k,2311) + lu(k,2374) = lu(k,2374) - lu(k,537) * lu(k,2311) + lu(k,2382) = lu(k,2382) - lu(k,538) * lu(k,2311) + lu(k,539) = 1._r8 / lu(k,539) + lu(k,540) = lu(k,540) * lu(k,539) + lu(k,541) = lu(k,541) * lu(k,539) + lu(k,542) = lu(k,542) * lu(k,539) + lu(k,698) = lu(k,698) - lu(k,540) * lu(k,697) + lu(k,699) = lu(k,699) - lu(k,541) * lu(k,697) + lu(k,702) = - lu(k,542) * lu(k,697) + lu(k,1659) = - lu(k,540) * lu(k,1653) + lu(k,1680) = lu(k,1680) - lu(k,541) * lu(k,1653) + lu(k,1685) = lu(k,1685) - lu(k,542) * lu(k,1653) + lu(k,1789) = lu(k,1789) - lu(k,540) * lu(k,1771) + lu(k,1853) = lu(k,1853) - lu(k,541) * lu(k,1771) + lu(k,1858) = lu(k,1858) - lu(k,542) * lu(k,1771) + lu(k,1911) = lu(k,1911) - lu(k,540) * lu(k,1902) + lu(k,1960) = lu(k,1960) - lu(k,541) * lu(k,1902) + lu(k,1965) = lu(k,1965) - lu(k,542) * lu(k,1902) + lu(k,2075) = lu(k,2075) - lu(k,540) * lu(k,2073) + lu(k,2113) = lu(k,2113) - lu(k,541) * lu(k,2073) + lu(k,2118) = lu(k,2118) - lu(k,542) * lu(k,2073) + lu(k,2321) = lu(k,2321) - lu(k,540) * lu(k,2312) + lu(k,2372) = lu(k,2372) - lu(k,541) * lu(k,2312) + lu(k,2377) = lu(k,2377) - lu(k,542) * lu(k,2312) + lu(k,543) = 1._r8 / lu(k,543) + lu(k,544) = lu(k,544) * lu(k,543) + lu(k,545) = lu(k,545) * lu(k,543) + lu(k,546) = lu(k,546) * lu(k,543) + lu(k,547) = lu(k,547) * lu(k,543) + lu(k,548) = lu(k,548) * lu(k,543) + lu(k,549) = lu(k,549) * lu(k,543) + lu(k,1028) = - lu(k,544) * lu(k,1027) + lu(k,1029) = lu(k,1029) - lu(k,545) * lu(k,1027) + lu(k,1030) = lu(k,1030) - lu(k,546) * lu(k,1027) + lu(k,1032) = lu(k,1032) - lu(k,547) * lu(k,1027) + lu(k,1035) = lu(k,1035) - lu(k,548) * lu(k,1027) + lu(k,1039) = lu(k,1039) - lu(k,549) * lu(k,1027) + lu(k,1576) = lu(k,1576) - lu(k,544) * lu(k,1572) + lu(k,1577) = lu(k,1577) - lu(k,545) * lu(k,1572) + lu(k,1578) = lu(k,1578) - lu(k,546) * lu(k,1572) + lu(k,1581) = lu(k,1581) - lu(k,547) * lu(k,1572) + lu(k,1587) = lu(k,1587) - lu(k,548) * lu(k,1572) + lu(k,1593) = lu(k,1593) - lu(k,549) * lu(k,1572) + lu(k,2031) = lu(k,2031) - lu(k,544) * lu(k,2024) + lu(k,2034) = lu(k,2034) - lu(k,545) * lu(k,2024) + lu(k,2035) = - lu(k,546) * lu(k,2024) + lu(k,2038) = lu(k,2038) - lu(k,547) * lu(k,2024) + lu(k,2046) = lu(k,2046) - lu(k,548) * lu(k,2024) + lu(k,2053) = lu(k,2053) - lu(k,549) * lu(k,2024) + lu(k,550) = 1._r8 / lu(k,550) + lu(k,551) = lu(k,551) * lu(k,550) + lu(k,552) = lu(k,552) * lu(k,550) + lu(k,553) = lu(k,553) * lu(k,550) + lu(k,554) = lu(k,554) * lu(k,550) + lu(k,555) = lu(k,555) * lu(k,550) + lu(k,556) = lu(k,556) * lu(k,550) + lu(k,1677) = lu(k,1677) - lu(k,551) * lu(k,1654) + lu(k,1680) = lu(k,1680) - lu(k,552) * lu(k,1654) + lu(k,1681) = lu(k,1681) - lu(k,553) * lu(k,1654) + lu(k,1690) = lu(k,1690) - lu(k,554) * lu(k,1654) + lu(k,1691) = lu(k,1691) - lu(k,555) * lu(k,1654) + lu(k,1694) = - lu(k,556) * lu(k,1654) + lu(k,1850) = lu(k,1850) - lu(k,551) * lu(k,1772) + lu(k,1853) = lu(k,1853) - lu(k,552) * lu(k,1772) + lu(k,1854) = lu(k,1854) - lu(k,553) * lu(k,1772) + lu(k,1863) = lu(k,1863) - lu(k,554) * lu(k,1772) + lu(k,1864) = lu(k,1864) - lu(k,555) * lu(k,1772) + lu(k,1867) = lu(k,1867) - lu(k,556) * lu(k,1772) + lu(k,2369) = lu(k,2369) - lu(k,551) * lu(k,2313) + lu(k,2372) = lu(k,2372) - lu(k,552) * lu(k,2313) + lu(k,2373) = lu(k,2373) - lu(k,553) * lu(k,2313) + lu(k,2382) = lu(k,2382) - lu(k,554) * lu(k,2313) + lu(k,2383) = lu(k,2383) - lu(k,555) * lu(k,2313) + lu(k,2386) = lu(k,2386) - lu(k,556) * lu(k,2313) end do end subroutine lu_fac11 subroutine lu_fac12( avec_len, lu ) @@ -1486,140 +1463,169 @@ subroutine lu_fac12( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,563) = 1._r8 / lu(k,563) - lu(k,564) = lu(k,564) * lu(k,563) - lu(k,565) = lu(k,565) * lu(k,563) - lu(k,566) = lu(k,566) * lu(k,563) - lu(k,567) = lu(k,567) * lu(k,563) - lu(k,700) = - lu(k,564) * lu(k,698) - lu(k,701) = - lu(k,565) * lu(k,698) - lu(k,704) = - lu(k,566) * lu(k,698) - lu(k,706) = lu(k,706) - lu(k,567) * lu(k,698) - lu(k,711) = - lu(k,564) * lu(k,709) - lu(k,712) = - lu(k,565) * lu(k,709) - lu(k,716) = - lu(k,566) * lu(k,709) - lu(k,717) = lu(k,717) - lu(k,567) * lu(k,709) - lu(k,1084) = - lu(k,564) * lu(k,1081) - lu(k,1085) = - lu(k,565) * lu(k,1081) - lu(k,1089) = - lu(k,566) * lu(k,1081) - lu(k,1093) = - lu(k,567) * lu(k,1081) - lu(k,1741) = lu(k,1741) - lu(k,564) * lu(k,1732) - lu(k,1753) = lu(k,1753) - lu(k,565) * lu(k,1732) - lu(k,1781) = lu(k,1781) - lu(k,566) * lu(k,1732) - lu(k,1790) = lu(k,1790) - lu(k,567) * lu(k,1732) - lu(k,1942) = lu(k,1942) - lu(k,564) * lu(k,1924) - lu(k,1960) = lu(k,1960) - lu(k,565) * lu(k,1924) - lu(k,1994) = lu(k,1994) - lu(k,566) * lu(k,1924) - lu(k,2006) = lu(k,2006) - lu(k,567) * lu(k,1924) - lu(k,569) = 1._r8 / lu(k,569) - lu(k,570) = lu(k,570) * lu(k,569) - lu(k,571) = lu(k,571) * lu(k,569) - lu(k,572) = lu(k,572) * lu(k,569) - lu(k,573) = lu(k,573) * lu(k,569) - lu(k,574) = lu(k,574) * lu(k,569) - lu(k,1660) = lu(k,1660) - lu(k,570) * lu(k,1656) - lu(k,1681) = lu(k,1681) - lu(k,571) * lu(k,1656) - lu(k,1682) = lu(k,1682) - lu(k,572) * lu(k,1656) - lu(k,1684) = lu(k,1684) - lu(k,573) * lu(k,1656) - lu(k,1687) = lu(k,1687) - lu(k,574) * lu(k,1656) - lu(k,1739) = lu(k,1739) - lu(k,570) * lu(k,1733) - lu(k,1787) = lu(k,1787) - lu(k,571) * lu(k,1733) - lu(k,1788) = lu(k,1788) - lu(k,572) * lu(k,1733) - lu(k,1790) = lu(k,1790) - lu(k,573) * lu(k,1733) - lu(k,1793) = lu(k,1793) - lu(k,574) * lu(k,1733) - lu(k,1939) = lu(k,1939) - lu(k,570) * lu(k,1925) - lu(k,2003) = lu(k,2003) - lu(k,571) * lu(k,1925) - lu(k,2004) = lu(k,2004) - lu(k,572) * lu(k,1925) - lu(k,2006) = lu(k,2006) - lu(k,573) * lu(k,1925) - lu(k,2009) = lu(k,2009) - lu(k,574) * lu(k,1925) - lu(k,2157) = lu(k,2157) - lu(k,570) * lu(k,2151) - lu(k,2208) = lu(k,2208) - lu(k,571) * lu(k,2151) - lu(k,2209) = lu(k,2209) - lu(k,572) * lu(k,2151) - lu(k,2211) = lu(k,2211) - lu(k,573) * lu(k,2151) - lu(k,2214) = lu(k,2214) - lu(k,574) * lu(k,2151) - lu(k,575) = 1._r8 / lu(k,575) - lu(k,576) = lu(k,576) * lu(k,575) - lu(k,577) = lu(k,577) * lu(k,575) - lu(k,578) = lu(k,578) * lu(k,575) - lu(k,579) = lu(k,579) * lu(k,575) - lu(k,744) = lu(k,744) - lu(k,576) * lu(k,738) - lu(k,745) = lu(k,745) - lu(k,577) * lu(k,738) - lu(k,746) = - lu(k,578) * lu(k,738) - lu(k,747) = - lu(k,579) * lu(k,738) - lu(k,891) = lu(k,891) - lu(k,576) * lu(k,888) - lu(k,892) = - lu(k,577) * lu(k,888) - lu(k,893) = - lu(k,578) * lu(k,888) - lu(k,894) = - lu(k,579) * lu(k,888) - lu(k,910) = lu(k,910) - lu(k,576) * lu(k,904) - lu(k,913) = - lu(k,577) * lu(k,904) - lu(k,914) = - lu(k,578) * lu(k,904) - lu(k,915) = lu(k,915) - lu(k,579) * lu(k,904) - lu(k,1580) = lu(k,1580) - lu(k,576) * lu(k,1572) - lu(k,1586) = lu(k,1586) - lu(k,577) * lu(k,1572) - lu(k,1590) = lu(k,1590) - lu(k,578) * lu(k,1572) - lu(k,1591) = lu(k,1591) - lu(k,579) * lu(k,1572) - lu(k,2447) = lu(k,2447) - lu(k,576) * lu(k,2433) - lu(k,2454) = lu(k,2454) - lu(k,577) * lu(k,2433) - lu(k,2458) = lu(k,2458) - lu(k,578) * lu(k,2433) - lu(k,2459) = - lu(k,579) * lu(k,2433) - lu(k,580) = 1._r8 / lu(k,580) - lu(k,581) = lu(k,581) * lu(k,580) - lu(k,582) = lu(k,582) * lu(k,580) - lu(k,583) = lu(k,583) * lu(k,580) - lu(k,584) = lu(k,584) * lu(k,580) - lu(k,585) = lu(k,585) * lu(k,580) - lu(k,586) = lu(k,586) * lu(k,580) - lu(k,587) = lu(k,587) * lu(k,580) - lu(k,1472) = lu(k,1472) - lu(k,581) * lu(k,1455) - lu(k,1473) = lu(k,1473) - lu(k,582) * lu(k,1455) - lu(k,1475) = lu(k,1475) - lu(k,583) * lu(k,1455) - lu(k,1477) = lu(k,1477) - lu(k,584) * lu(k,1455) - lu(k,1478) = - lu(k,585) * lu(k,1455) - lu(k,1482) = lu(k,1482) - lu(k,586) * lu(k,1455) - lu(k,1484) = lu(k,1484) - lu(k,587) * lu(k,1455) - lu(k,1673) = lu(k,1673) - lu(k,581) * lu(k,1657) - lu(k,1674) = - lu(k,582) * lu(k,1657) - lu(k,1681) = lu(k,1681) - lu(k,583) * lu(k,1657) - lu(k,1684) = lu(k,1684) - lu(k,584) * lu(k,1657) - lu(k,1685) = lu(k,1685) - lu(k,585) * lu(k,1657) - lu(k,1691) = - lu(k,586) * lu(k,1657) - lu(k,1694) = - lu(k,587) * lu(k,1657) - lu(k,1994) = lu(k,1994) - lu(k,581) * lu(k,1926) - lu(k,1995) = lu(k,1995) - lu(k,582) * lu(k,1926) - lu(k,2003) = lu(k,2003) - lu(k,583) * lu(k,1926) - lu(k,2006) = lu(k,2006) - lu(k,584) * lu(k,1926) - lu(k,2007) = lu(k,2007) - lu(k,585) * lu(k,1926) - lu(k,2013) = lu(k,2013) - lu(k,586) * lu(k,1926) - lu(k,2016) = lu(k,2016) - lu(k,587) * lu(k,1926) - lu(k,588) = 1._r8 / lu(k,588) - lu(k,589) = lu(k,589) * lu(k,588) - lu(k,590) = lu(k,590) * lu(k,588) - lu(k,591) = lu(k,591) * lu(k,588) - lu(k,592) = lu(k,592) * lu(k,588) - lu(k,593) = lu(k,593) * lu(k,588) - lu(k,594) = lu(k,594) * lu(k,588) - lu(k,595) = lu(k,595) * lu(k,588) - lu(k,862) = lu(k,862) - lu(k,589) * lu(k,861) - lu(k,863) = lu(k,863) - lu(k,590) * lu(k,861) - lu(k,864) = - lu(k,591) * lu(k,861) - lu(k,868) = - lu(k,592) * lu(k,861) - lu(k,869) = lu(k,869) - lu(k,593) * lu(k,861) - lu(k,870) = lu(k,870) - lu(k,594) * lu(k,861) - lu(k,871) = - lu(k,595) * lu(k,861) - lu(k,1954) = lu(k,1954) - lu(k,589) * lu(k,1927) - lu(k,1978) = lu(k,1978) - lu(k,590) * lu(k,1927) - lu(k,1983) = lu(k,1983) - lu(k,591) * lu(k,1927) - lu(k,2006) = lu(k,2006) - lu(k,592) * lu(k,1927) - lu(k,2009) = lu(k,2009) - lu(k,593) * lu(k,1927) - lu(k,2016) = lu(k,2016) - lu(k,594) * lu(k,1927) - lu(k,2017) = lu(k,2017) - lu(k,595) * lu(k,1927) - lu(k,2170) = lu(k,2170) - lu(k,589) * lu(k,2152) - lu(k,2185) = lu(k,2185) - lu(k,590) * lu(k,2152) - lu(k,2189) = - lu(k,591) * lu(k,2152) - lu(k,2211) = lu(k,2211) - lu(k,592) * lu(k,2152) - lu(k,2214) = lu(k,2214) - lu(k,593) * lu(k,2152) - lu(k,2221) = lu(k,2221) - lu(k,594) * lu(k,2152) - lu(k,2222) = lu(k,2222) - lu(k,595) * lu(k,2152) + lu(k,558) = 1._r8 / lu(k,558) + lu(k,559) = lu(k,559) * lu(k,558) + lu(k,560) = lu(k,560) * lu(k,558) + lu(k,561) = lu(k,561) * lu(k,558) + lu(k,562) = lu(k,562) * lu(k,558) + lu(k,563) = lu(k,563) * lu(k,558) + lu(k,564) = lu(k,564) * lu(k,558) + lu(k,1820) = lu(k,1820) - lu(k,559) * lu(k,1773) + lu(k,1838) = lu(k,1838) - lu(k,560) * lu(k,1773) + lu(k,1853) = lu(k,1853) - lu(k,561) * lu(k,1773) + lu(k,1854) = lu(k,1854) - lu(k,562) * lu(k,1773) + lu(k,1855) = lu(k,1855) - lu(k,563) * lu(k,1773) + lu(k,1863) = lu(k,1863) - lu(k,564) * lu(k,1773) + lu(k,1931) = lu(k,1931) - lu(k,559) * lu(k,1903) + lu(k,1948) = lu(k,1948) - lu(k,560) * lu(k,1903) + lu(k,1960) = lu(k,1960) - lu(k,561) * lu(k,1903) + lu(k,1961) = lu(k,1961) - lu(k,562) * lu(k,1903) + lu(k,1962) = lu(k,1962) - lu(k,563) * lu(k,1903) + lu(k,1970) = lu(k,1970) - lu(k,564) * lu(k,1903) + lu(k,2343) = lu(k,2343) - lu(k,559) * lu(k,2314) + lu(k,2358) = lu(k,2358) - lu(k,560) * lu(k,2314) + lu(k,2372) = lu(k,2372) - lu(k,561) * lu(k,2314) + lu(k,2373) = lu(k,2373) - lu(k,562) * lu(k,2314) + lu(k,2374) = lu(k,2374) - lu(k,563) * lu(k,2314) + lu(k,2382) = lu(k,2382) - lu(k,564) * lu(k,2314) + lu(k,565) = 1._r8 / lu(k,565) + lu(k,566) = lu(k,566) * lu(k,565) + lu(k,567) = lu(k,567) * lu(k,565) + lu(k,568) = lu(k,568) * lu(k,565) + lu(k,569) = lu(k,569) * lu(k,565) + lu(k,712) = - lu(k,566) * lu(k,710) + lu(k,713) = - lu(k,567) * lu(k,710) + lu(k,717) = - lu(k,568) * lu(k,710) + lu(k,718) = lu(k,718) - lu(k,569) * lu(k,710) + lu(k,733) = - lu(k,566) * lu(k,731) + lu(k,734) = - lu(k,567) * lu(k,731) + lu(k,737) = - lu(k,568) * lu(k,731) + lu(k,739) = lu(k,739) - lu(k,569) * lu(k,731) + lu(k,1085) = - lu(k,566) * lu(k,1082) + lu(k,1086) = - lu(k,567) * lu(k,1082) + lu(k,1090) = - lu(k,568) * lu(k,1082) + lu(k,1093) = - lu(k,569) * lu(k,1082) + lu(k,1793) = lu(k,1793) - lu(k,566) * lu(k,1774) + lu(k,1809) = lu(k,1809) - lu(k,567) * lu(k,1774) + lu(k,1844) = lu(k,1844) - lu(k,568) * lu(k,1774) + lu(k,1854) = lu(k,1854) - lu(k,569) * lu(k,1774) + lu(k,1914) = lu(k,1914) - lu(k,566) * lu(k,1904) + lu(k,1925) = lu(k,1925) - lu(k,567) * lu(k,1904) + lu(k,1954) = lu(k,1954) - lu(k,568) * lu(k,1904) + lu(k,1961) = lu(k,1961) - lu(k,569) * lu(k,1904) + lu(k,571) = 1._r8 / lu(k,571) + lu(k,572) = lu(k,572) * lu(k,571) + lu(k,573) = lu(k,573) * lu(k,571) + lu(k,574) = lu(k,574) * lu(k,571) + lu(k,575) = lu(k,575) * lu(k,571) + lu(k,576) = lu(k,576) * lu(k,571) + lu(k,1659) = lu(k,1659) - lu(k,572) * lu(k,1655) + lu(k,1680) = lu(k,1680) - lu(k,573) * lu(k,1655) + lu(k,1681) = lu(k,1681) - lu(k,574) * lu(k,1655) + lu(k,1682) = lu(k,1682) - lu(k,575) * lu(k,1655) + lu(k,1690) = lu(k,1690) - lu(k,576) * lu(k,1655) + lu(k,1789) = lu(k,1789) - lu(k,572) * lu(k,1775) + lu(k,1853) = lu(k,1853) - lu(k,573) * lu(k,1775) + lu(k,1854) = lu(k,1854) - lu(k,574) * lu(k,1775) + lu(k,1855) = lu(k,1855) - lu(k,575) * lu(k,1775) + lu(k,1863) = lu(k,1863) - lu(k,576) * lu(k,1775) + lu(k,1911) = lu(k,1911) - lu(k,572) * lu(k,1905) + lu(k,1960) = lu(k,1960) - lu(k,573) * lu(k,1905) + lu(k,1961) = lu(k,1961) - lu(k,574) * lu(k,1905) + lu(k,1962) = lu(k,1962) - lu(k,575) * lu(k,1905) + lu(k,1970) = lu(k,1970) - lu(k,576) * lu(k,1905) + lu(k,2321) = lu(k,2321) - lu(k,572) * lu(k,2315) + lu(k,2372) = lu(k,2372) - lu(k,573) * lu(k,2315) + lu(k,2373) = lu(k,2373) - lu(k,574) * lu(k,2315) + lu(k,2374) = lu(k,2374) - lu(k,575) * lu(k,2315) + lu(k,2382) = lu(k,2382) - lu(k,576) * lu(k,2315) + lu(k,577) = 1._r8 / lu(k,577) + lu(k,578) = lu(k,578) * lu(k,577) + lu(k,579) = lu(k,579) * lu(k,577) + lu(k,580) = lu(k,580) * lu(k,577) + lu(k,581) = lu(k,581) * lu(k,577) + lu(k,582) = lu(k,582) * lu(k,577) + lu(k,583) = lu(k,583) * lu(k,577) + lu(k,584) = lu(k,584) * lu(k,577) + lu(k,1802) = lu(k,1802) - lu(k,578) * lu(k,1776) + lu(k,1810) = lu(k,1810) - lu(k,579) * lu(k,1776) + lu(k,1829) = lu(k,1829) - lu(k,580) * lu(k,1776) + lu(k,1854) = lu(k,1854) - lu(k,581) * lu(k,1776) + lu(k,1858) = lu(k,1858) - lu(k,582) * lu(k,1776) + lu(k,1863) = lu(k,1863) - lu(k,583) * lu(k,1776) + lu(k,1865) = lu(k,1865) - lu(k,584) * lu(k,1776) + lu(k,1985) = - lu(k,578) * lu(k,1982) + lu(k,1988) = lu(k,1988) - lu(k,579) * lu(k,1982) + lu(k,1994) = lu(k,1994) - lu(k,580) * lu(k,1982) + lu(k,2007) = lu(k,2007) - lu(k,581) * lu(k,1982) + lu(k,2011) = lu(k,2011) - lu(k,582) * lu(k,1982) + lu(k,2016) = lu(k,2016) - lu(k,583) * lu(k,1982) + lu(k,2018) = lu(k,2018) - lu(k,584) * lu(k,1982) + lu(k,2078) = - lu(k,578) * lu(k,2074) + lu(k,2080) = lu(k,2080) - lu(k,579) * lu(k,2074) + lu(k,2093) = lu(k,2093) - lu(k,580) * lu(k,2074) + lu(k,2114) = lu(k,2114) - lu(k,581) * lu(k,2074) + lu(k,2118) = lu(k,2118) - lu(k,582) * lu(k,2074) + lu(k,2123) = lu(k,2123) - lu(k,583) * lu(k,2074) + lu(k,2125) = lu(k,2125) - lu(k,584) * lu(k,2074) + lu(k,585) = 1._r8 / lu(k,585) + lu(k,586) = lu(k,586) * lu(k,585) + lu(k,587) = lu(k,587) * lu(k,585) + lu(k,588) = lu(k,588) * lu(k,585) + lu(k,589) = lu(k,589) * lu(k,585) + lu(k,590) = lu(k,590) * lu(k,585) + lu(k,591) = lu(k,591) * lu(k,585) + lu(k,592) = lu(k,592) * lu(k,585) + lu(k,1473) = lu(k,1473) - lu(k,586) * lu(k,1456) + lu(k,1474) = lu(k,1474) - lu(k,587) * lu(k,1456) + lu(k,1477) = lu(k,1477) - lu(k,588) * lu(k,1456) + lu(k,1478) = lu(k,1478) - lu(k,589) * lu(k,1456) + lu(k,1481) = lu(k,1481) - lu(k,590) * lu(k,1456) + lu(k,1484) = - lu(k,591) * lu(k,1456) + lu(k,1485) = lu(k,1485) - lu(k,592) * lu(k,1456) + lu(k,1672) = lu(k,1672) - lu(k,586) * lu(k,1656) + lu(k,1673) = - lu(k,587) * lu(k,1656) + lu(k,1680) = lu(k,1680) - lu(k,588) * lu(k,1656) + lu(k,1681) = lu(k,1681) - lu(k,589) * lu(k,1656) + lu(k,1687) = - lu(k,590) * lu(k,1656) + lu(k,1691) = lu(k,1691) - lu(k,591) * lu(k,1656) + lu(k,1692) = - lu(k,592) * lu(k,1656) + lu(k,1844) = lu(k,1844) - lu(k,586) * lu(k,1777) + lu(k,1845) = lu(k,1845) - lu(k,587) * lu(k,1777) + lu(k,1853) = lu(k,1853) - lu(k,588) * lu(k,1777) + lu(k,1854) = lu(k,1854) - lu(k,589) * lu(k,1777) + lu(k,1860) = lu(k,1860) - lu(k,590) * lu(k,1777) + lu(k,1864) = lu(k,1864) - lu(k,591) * lu(k,1777) + lu(k,1865) = lu(k,1865) - lu(k,592) * lu(k,1777) + lu(k,593) = 1._r8 / lu(k,593) + lu(k,594) = lu(k,594) * lu(k,593) + lu(k,595) = lu(k,595) * lu(k,593) + lu(k,596) = lu(k,596) * lu(k,593) + lu(k,597) = lu(k,597) * lu(k,593) + lu(k,598) = lu(k,598) * lu(k,593) + lu(k,599) = lu(k,599) * lu(k,593) + lu(k,600) = lu(k,600) * lu(k,593) + lu(k,1366) = - lu(k,594) * lu(k,1362) + lu(k,1370) = lu(k,1370) - lu(k,595) * lu(k,1362) + lu(k,1371) = - lu(k,596) * lu(k,1362) + lu(k,1372) = lu(k,1372) - lu(k,597) * lu(k,1362) + lu(k,1384) = lu(k,1384) - lu(k,598) * lu(k,1362) + lu(k,1388) = - lu(k,599) * lu(k,1362) + lu(k,1389) = lu(k,1389) - lu(k,600) * lu(k,1362) + lu(k,1807) = lu(k,1807) - lu(k,594) * lu(k,1778) + lu(k,1830) = lu(k,1830) - lu(k,595) * lu(k,1778) + lu(k,1832) = lu(k,1832) - lu(k,596) * lu(k,1778) + lu(k,1833) = lu(k,1833) - lu(k,597) * lu(k,1778) + lu(k,1854) = lu(k,1854) - lu(k,598) * lu(k,1778) + lu(k,1862) = lu(k,1862) - lu(k,599) * lu(k,1778) + lu(k,1863) = lu(k,1863) - lu(k,600) * lu(k,1778) + lu(k,1924) = - lu(k,594) * lu(k,1906) + lu(k,1940) = lu(k,1940) - lu(k,595) * lu(k,1906) + lu(k,1942) = lu(k,1942) - lu(k,596) * lu(k,1906) + lu(k,1943) = lu(k,1943) - lu(k,597) * lu(k,1906) + lu(k,1961) = lu(k,1961) - lu(k,598) * lu(k,1906) + lu(k,1969) = lu(k,1969) - lu(k,599) * lu(k,1906) + lu(k,1970) = lu(k,1970) - lu(k,600) * lu(k,1906) end do end subroutine lu_fac12 subroutine lu_fac13( avec_len, lu ) @@ -1636,155 +1642,159 @@ subroutine lu_fac13( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,596) = 1._r8 / lu(k,596) - lu(k,597) = lu(k,597) * lu(k,596) - lu(k,598) = lu(k,598) * lu(k,596) - lu(k,599) = lu(k,599) * lu(k,596) - lu(k,600) = lu(k,600) * lu(k,596) - lu(k,601) = lu(k,601) * lu(k,596) - lu(k,602) = lu(k,602) * lu(k,596) - lu(k,603) = lu(k,603) * lu(k,596) - lu(k,1365) = - lu(k,597) * lu(k,1361) - lu(k,1369) = lu(k,1369) - lu(k,598) * lu(k,1361) - lu(k,1370) = - lu(k,599) * lu(k,1361) - lu(k,1371) = lu(k,1371) - lu(k,600) * lu(k,1361) - lu(k,1384) = lu(k,1384) - lu(k,601) * lu(k,1361) - lu(k,1386) = lu(k,1386) - lu(k,602) * lu(k,1361) - lu(k,1387) = - lu(k,603) * lu(k,1361) - lu(k,1751) = - lu(k,597) * lu(k,1734) - lu(k,1767) = lu(k,1767) - lu(k,598) * lu(k,1734) - lu(k,1769) = lu(k,1769) - lu(k,599) * lu(k,1734) - lu(k,1770) = lu(k,1770) - lu(k,600) * lu(k,1734) - lu(k,1790) = lu(k,1790) - lu(k,601) * lu(k,1734) - lu(k,1793) = lu(k,1793) - lu(k,602) * lu(k,1734) - lu(k,1796) = lu(k,1796) - lu(k,603) * lu(k,1734) - lu(k,1958) = lu(k,1958) - lu(k,597) * lu(k,1928) - lu(k,1980) = lu(k,1980) - lu(k,598) * lu(k,1928) - lu(k,1982) = lu(k,1982) - lu(k,599) * lu(k,1928) - lu(k,1983) = lu(k,1983) - lu(k,600) * lu(k,1928) - lu(k,2006) = lu(k,2006) - lu(k,601) * lu(k,1928) - lu(k,2009) = lu(k,2009) - lu(k,602) * lu(k,1928) - lu(k,2012) = lu(k,2012) - lu(k,603) * lu(k,1928) - lu(k,604) = 1._r8 / lu(k,604) - lu(k,605) = lu(k,605) * lu(k,604) - lu(k,606) = lu(k,606) * lu(k,604) - lu(k,607) = lu(k,607) * lu(k,604) - lu(k,608) = lu(k,608) * lu(k,604) - lu(k,609) = lu(k,609) * lu(k,604) - lu(k,610) = lu(k,610) * lu(k,604) - lu(k,611) = lu(k,611) * lu(k,604) - lu(k,1603) = lu(k,1603) - lu(k,605) * lu(k,1602) - lu(k,1607) = lu(k,1607) - lu(k,606) * lu(k,1602) - lu(k,1609) = lu(k,1609) - lu(k,607) * lu(k,1602) - lu(k,1611) = lu(k,1611) - lu(k,608) * lu(k,1602) - lu(k,1615) = - lu(k,609) * lu(k,1602) - lu(k,1619) = - lu(k,610) * lu(k,1602) - lu(k,1621) = lu(k,1621) - lu(k,611) * lu(k,1602) - lu(k,1663) = - lu(k,605) * lu(k,1658) - lu(k,1677) = - lu(k,606) * lu(k,1658) - lu(k,1679) = lu(k,1679) - lu(k,607) * lu(k,1658) - lu(k,1681) = lu(k,1681) - lu(k,608) * lu(k,1658) - lu(k,1685) = lu(k,1685) - lu(k,609) * lu(k,1658) - lu(k,1690) = lu(k,1690) - lu(k,610) * lu(k,1658) - lu(k,1693) = lu(k,1693) - lu(k,611) * lu(k,1658) - lu(k,2438) = lu(k,2438) - lu(k,605) * lu(k,2434) - lu(k,2453) = lu(k,2453) - lu(k,606) * lu(k,2434) - lu(k,2455) = lu(k,2455) - lu(k,607) * lu(k,2434) - lu(k,2457) = lu(k,2457) - lu(k,608) * lu(k,2434) - lu(k,2461) = lu(k,2461) - lu(k,609) * lu(k,2434) - lu(k,2466) = - lu(k,610) * lu(k,2434) - lu(k,2469) = lu(k,2469) - lu(k,611) * lu(k,2434) - lu(k,612) = 1._r8 / lu(k,612) - lu(k,613) = lu(k,613) * lu(k,612) - lu(k,614) = lu(k,614) * lu(k,612) - lu(k,615) = lu(k,615) * lu(k,612) - lu(k,616) = lu(k,616) * lu(k,612) - lu(k,617) = lu(k,617) * lu(k,612) - lu(k,618) = lu(k,618) * lu(k,612) - lu(k,619) = lu(k,619) * lu(k,612) - lu(k,1761) = lu(k,1761) - lu(k,613) * lu(k,1735) - lu(k,1765) = lu(k,1765) - lu(k,614) * lu(k,1735) - lu(k,1769) = lu(k,1769) - lu(k,615) * lu(k,1735) - lu(k,1787) = lu(k,1787) - lu(k,616) * lu(k,1735) - lu(k,1788) = lu(k,1788) - lu(k,617) * lu(k,1735) - lu(k,1793) = lu(k,1793) - lu(k,618) * lu(k,1735) - lu(k,1800) = lu(k,1800) - lu(k,619) * lu(k,1735) - lu(k,1973) = lu(k,1973) - lu(k,613) * lu(k,1929) - lu(k,1978) = lu(k,1978) - lu(k,614) * lu(k,1929) - lu(k,1982) = lu(k,1982) - lu(k,615) * lu(k,1929) - lu(k,2003) = lu(k,2003) - lu(k,616) * lu(k,1929) - lu(k,2004) = lu(k,2004) - lu(k,617) * lu(k,1929) - lu(k,2009) = lu(k,2009) - lu(k,618) * lu(k,1929) - lu(k,2016) = lu(k,2016) - lu(k,619) * lu(k,1929) - lu(k,2035) = lu(k,2035) - lu(k,613) * lu(k,2024) - lu(k,2040) = lu(k,2040) - lu(k,614) * lu(k,2024) - lu(k,2044) = - lu(k,615) * lu(k,2024) - lu(k,2063) = lu(k,2063) - lu(k,616) * lu(k,2024) - lu(k,2064) = lu(k,2064) - lu(k,617) * lu(k,2024) - lu(k,2069) = lu(k,2069) - lu(k,618) * lu(k,2024) - lu(k,2076) = lu(k,2076) - lu(k,619) * lu(k,2024) - lu(k,620) = 1._r8 / lu(k,620) - lu(k,621) = lu(k,621) * lu(k,620) - lu(k,622) = lu(k,622) * lu(k,620) - lu(k,623) = lu(k,623) * lu(k,620) - lu(k,624) = lu(k,624) * lu(k,620) - lu(k,625) = lu(k,625) * lu(k,620) - lu(k,626) = lu(k,626) * lu(k,620) - lu(k,627) = lu(k,627) * lu(k,620) - lu(k,1952) = lu(k,1952) - lu(k,621) * lu(k,1930) - lu(k,1959) = lu(k,1959) - lu(k,622) * lu(k,1930) - lu(k,1979) = lu(k,1979) - lu(k,623) * lu(k,1930) - lu(k,2006) = lu(k,2006) - lu(k,624) * lu(k,1930) - lu(k,2009) = lu(k,2009) - lu(k,625) * lu(k,1930) - lu(k,2014) = lu(k,2014) - lu(k,626) * lu(k,1930) - lu(k,2016) = lu(k,2016) - lu(k,627) * lu(k,1930) - lu(k,2233) = - lu(k,621) * lu(k,2230) - lu(k,2235) = lu(k,2235) - lu(k,622) * lu(k,2230) - lu(k,2242) = lu(k,2242) - lu(k,623) * lu(k,2230) - lu(k,2257) = lu(k,2257) - lu(k,624) * lu(k,2230) - lu(k,2260) = lu(k,2260) - lu(k,625) * lu(k,2230) - lu(k,2265) = lu(k,2265) - lu(k,626) * lu(k,2230) - lu(k,2267) = lu(k,2267) - lu(k,627) * lu(k,2230) - lu(k,2379) = - lu(k,621) * lu(k,2375) - lu(k,2381) = lu(k,2381) - lu(k,622) * lu(k,2375) - lu(k,2394) = lu(k,2394) - lu(k,623) * lu(k,2375) - lu(k,2417) = lu(k,2417) - lu(k,624) * lu(k,2375) - lu(k,2420) = lu(k,2420) - lu(k,625) * lu(k,2375) - lu(k,2425) = lu(k,2425) - lu(k,626) * lu(k,2375) - lu(k,2427) = lu(k,2427) - lu(k,627) * lu(k,2375) - lu(k,628) = 1._r8 / lu(k,628) - lu(k,629) = lu(k,629) * lu(k,628) - lu(k,630) = lu(k,630) * lu(k,628) - lu(k,631) = lu(k,631) * lu(k,628) - lu(k,632) = lu(k,632) * lu(k,628) - lu(k,633) = lu(k,633) * lu(k,628) - lu(k,634) = lu(k,634) * lu(k,628) - lu(k,635) = lu(k,635) * lu(k,628) - lu(k,636) = lu(k,636) * lu(k,628) - lu(k,1825) = lu(k,1825) - lu(k,629) * lu(k,1821) - lu(k,1826) = lu(k,1826) - lu(k,630) * lu(k,1821) - lu(k,1832) = lu(k,1832) - lu(k,631) * lu(k,1821) - lu(k,1833) = lu(k,1833) - lu(k,632) * lu(k,1821) - lu(k,1836) = lu(k,1836) - lu(k,633) * lu(k,1821) - lu(k,1837) = lu(k,1837) - lu(k,634) * lu(k,1821) - lu(k,1840) = lu(k,1840) - lu(k,635) * lu(k,1821) - lu(k,1844) = lu(k,1844) - lu(k,636) * lu(k,1821) - lu(k,1998) = lu(k,1998) - lu(k,629) * lu(k,1931) - lu(k,1999) = lu(k,1999) - lu(k,630) * lu(k,1931) - lu(k,2005) = lu(k,2005) - lu(k,631) * lu(k,1931) - lu(k,2006) = lu(k,2006) - lu(k,632) * lu(k,1931) - lu(k,2009) = lu(k,2009) - lu(k,633) * lu(k,1931) - lu(k,2010) = lu(k,2010) - lu(k,634) * lu(k,1931) - lu(k,2013) = lu(k,2013) - lu(k,635) * lu(k,1931) - lu(k,2017) = lu(k,2017) - lu(k,636) * lu(k,1931) - lu(k,2249) = lu(k,2249) - lu(k,629) * lu(k,2231) - lu(k,2250) = lu(k,2250) - lu(k,630) * lu(k,2231) - lu(k,2256) = lu(k,2256) - lu(k,631) * lu(k,2231) - lu(k,2257) = lu(k,2257) - lu(k,632) * lu(k,2231) - lu(k,2260) = lu(k,2260) - lu(k,633) * lu(k,2231) - lu(k,2261) = lu(k,2261) - lu(k,634) * lu(k,2231) - lu(k,2264) = lu(k,2264) - lu(k,635) * lu(k,2231) - lu(k,2268) = lu(k,2268) - lu(k,636) * lu(k,2231) + lu(k,601) = 1._r8 / lu(k,601) + lu(k,602) = lu(k,602) * lu(k,601) + lu(k,603) = lu(k,603) * lu(k,601) + lu(k,604) = lu(k,604) * lu(k,601) + lu(k,605) = lu(k,605) * lu(k,601) + lu(k,606) = lu(k,606) * lu(k,601) + lu(k,607) = lu(k,607) * lu(k,601) + lu(k,608) = lu(k,608) * lu(k,601) + lu(k,859) = lu(k,859) - lu(k,602) * lu(k,858) + lu(k,860) = lu(k,860) - lu(k,603) * lu(k,858) + lu(k,861) = - lu(k,604) * lu(k,858) + lu(k,864) = - lu(k,605) * lu(k,858) + lu(k,866) = lu(k,866) - lu(k,606) * lu(k,858) + lu(k,867) = lu(k,867) - lu(k,607) * lu(k,858) + lu(k,868) = - lu(k,608) * lu(k,858) + lu(k,1803) = lu(k,1803) - lu(k,602) * lu(k,1779) + lu(k,1828) = lu(k,1828) - lu(k,603) * lu(k,1779) + lu(k,1833) = lu(k,1833) - lu(k,604) * lu(k,1779) + lu(k,1854) = lu(k,1854) - lu(k,605) * lu(k,1779) + lu(k,1863) = lu(k,1863) - lu(k,606) * lu(k,1779) + lu(k,1865) = lu(k,1865) - lu(k,607) * lu(k,1779) + lu(k,1867) = lu(k,1867) - lu(k,608) * lu(k,1779) + lu(k,2334) = lu(k,2334) - lu(k,602) * lu(k,2316) + lu(k,2349) = lu(k,2349) - lu(k,603) * lu(k,2316) + lu(k,2353) = - lu(k,604) * lu(k,2316) + lu(k,2373) = lu(k,2373) - lu(k,605) * lu(k,2316) + lu(k,2382) = lu(k,2382) - lu(k,606) * lu(k,2316) + lu(k,2384) = lu(k,2384) - lu(k,607) * lu(k,2316) + lu(k,2386) = lu(k,2386) - lu(k,608) * lu(k,2316) + lu(k,609) = 1._r8 / lu(k,609) + lu(k,610) = lu(k,610) * lu(k,609) + lu(k,611) = lu(k,611) * lu(k,609) + lu(k,612) = lu(k,612) * lu(k,609) + lu(k,613) = lu(k,613) * lu(k,609) + lu(k,614) = lu(k,614) * lu(k,609) + lu(k,615) = lu(k,615) * lu(k,609) + lu(k,616) = lu(k,616) * lu(k,609) + lu(k,1823) = lu(k,1823) - lu(k,610) * lu(k,1780) + lu(k,1828) = lu(k,1828) - lu(k,611) * lu(k,1780) + lu(k,1832) = lu(k,1832) - lu(k,612) * lu(k,1780) + lu(k,1853) = lu(k,1853) - lu(k,613) * lu(k,1780) + lu(k,1855) = lu(k,1855) - lu(k,614) * lu(k,1780) + lu(k,1863) = lu(k,1863) - lu(k,615) * lu(k,1780) + lu(k,1865) = lu(k,1865) - lu(k,616) * lu(k,1780) + lu(k,1934) = lu(k,1934) - lu(k,610) * lu(k,1907) + lu(k,1938) = lu(k,1938) - lu(k,611) * lu(k,1907) + lu(k,1942) = lu(k,1942) - lu(k,612) * lu(k,1907) + lu(k,1960) = lu(k,1960) - lu(k,613) * lu(k,1907) + lu(k,1962) = lu(k,1962) - lu(k,614) * lu(k,1907) + lu(k,1970) = lu(k,1970) - lu(k,615) * lu(k,1907) + lu(k,1972) = lu(k,1972) - lu(k,616) * lu(k,1907) + lu(k,2404) = lu(k,2404) - lu(k,610) * lu(k,2393) + lu(k,2409) = lu(k,2409) - lu(k,611) * lu(k,2393) + lu(k,2413) = - lu(k,612) * lu(k,2393) + lu(k,2432) = lu(k,2432) - lu(k,613) * lu(k,2393) + lu(k,2434) = lu(k,2434) - lu(k,614) * lu(k,2393) + lu(k,2442) = lu(k,2442) - lu(k,615) * lu(k,2393) + lu(k,2444) = lu(k,2444) - lu(k,616) * lu(k,2393) + lu(k,617) = 1._r8 / lu(k,617) + lu(k,618) = lu(k,618) * lu(k,617) + lu(k,619) = lu(k,619) * lu(k,617) + lu(k,620) = lu(k,620) * lu(k,617) + lu(k,621) = lu(k,621) * lu(k,617) + lu(k,622) = lu(k,622) * lu(k,617) + lu(k,623) = lu(k,623) * lu(k,617) + lu(k,624) = lu(k,624) * lu(k,617) + lu(k,1604) = lu(k,1604) - lu(k,618) * lu(k,1603) + lu(k,1608) = lu(k,1608) - lu(k,619) * lu(k,1603) + lu(k,1610) = lu(k,1610) - lu(k,620) * lu(k,1603) + lu(k,1611) = lu(k,1611) - lu(k,621) * lu(k,1603) + lu(k,1615) = lu(k,1615) - lu(k,622) * lu(k,1603) + lu(k,1619) = - lu(k,623) * lu(k,1603) + lu(k,1621) = - lu(k,624) * lu(k,1603) + lu(k,1662) = - lu(k,618) * lu(k,1657) + lu(k,1676) = - lu(k,619) * lu(k,1657) + lu(k,1678) = lu(k,1678) - lu(k,620) * lu(k,1657) + lu(k,1680) = lu(k,1680) - lu(k,621) * lu(k,1657) + lu(k,1684) = lu(k,1684) - lu(k,622) * lu(k,1657) + lu(k,1689) = lu(k,1689) - lu(k,623) * lu(k,1657) + lu(k,1691) = lu(k,1691) - lu(k,624) * lu(k,1657) + lu(k,2030) = lu(k,2030) - lu(k,618) * lu(k,2025) + lu(k,2045) = lu(k,2045) - lu(k,619) * lu(k,2025) + lu(k,2047) = lu(k,2047) - lu(k,620) * lu(k,2025) + lu(k,2049) = lu(k,2049) - lu(k,621) * lu(k,2025) + lu(k,2053) = lu(k,2053) - lu(k,622) * lu(k,2025) + lu(k,2058) = - lu(k,623) * lu(k,2025) + lu(k,2060) = lu(k,2060) - lu(k,624) * lu(k,2025) + lu(k,625) = 1._r8 / lu(k,625) + lu(k,626) = lu(k,626) * lu(k,625) + lu(k,627) = lu(k,627) * lu(k,625) + lu(k,628) = lu(k,628) * lu(k,625) + lu(k,629) = lu(k,629) * lu(k,625) + lu(k,630) = lu(k,630) * lu(k,625) + lu(k,631) = lu(k,631) * lu(k,625) + lu(k,632) = lu(k,632) * lu(k,625) + lu(k,633) = lu(k,633) * lu(k,625) + lu(k,1440) = - lu(k,626) * lu(k,1437) + lu(k,1442) = lu(k,1442) - lu(k,627) * lu(k,1437) + lu(k,1444) = lu(k,1444) - lu(k,628) * lu(k,1437) + lu(k,1445) = lu(k,1445) - lu(k,629) * lu(k,1437) + lu(k,1446) = lu(k,1446) - lu(k,630) * lu(k,1437) + lu(k,1451) = lu(k,1451) - lu(k,631) * lu(k,1437) + lu(k,1452) = lu(k,1452) - lu(k,632) * lu(k,1437) + lu(k,1453) = lu(k,1453) - lu(k,633) * lu(k,1437) + lu(k,1669) = - lu(k,626) * lu(k,1658) + lu(k,1671) = lu(k,1671) - lu(k,627) * lu(k,1658) + lu(k,1673) = lu(k,1673) - lu(k,628) * lu(k,1658) + lu(k,1680) = lu(k,1680) - lu(k,629) * lu(k,1658) + lu(k,1681) = lu(k,1681) - lu(k,630) * lu(k,1658) + lu(k,1690) = lu(k,1690) - lu(k,631) * lu(k,1658) + lu(k,1691) = lu(k,1691) - lu(k,632) * lu(k,1658) + lu(k,1692) = lu(k,1692) - lu(k,633) * lu(k,1658) + lu(k,1833) = lu(k,1833) - lu(k,626) * lu(k,1781) + lu(k,1843) = lu(k,1843) - lu(k,627) * lu(k,1781) + lu(k,1845) = lu(k,1845) - lu(k,628) * lu(k,1781) + lu(k,1853) = lu(k,1853) - lu(k,629) * lu(k,1781) + lu(k,1854) = lu(k,1854) - lu(k,630) * lu(k,1781) + lu(k,1863) = lu(k,1863) - lu(k,631) * lu(k,1781) + lu(k,1864) = lu(k,1864) - lu(k,632) * lu(k,1781) + lu(k,1865) = lu(k,1865) - lu(k,633) * lu(k,1781) + lu(k,634) = 1._r8 / lu(k,634) + lu(k,635) = lu(k,635) * lu(k,634) + lu(k,636) = lu(k,636) * lu(k,634) + lu(k,637) = lu(k,637) * lu(k,634) + lu(k,638) = lu(k,638) * lu(k,634) + lu(k,639) = lu(k,639) * lu(k,634) + lu(k,640) = lu(k,640) * lu(k,634) + lu(k,641) = lu(k,641) * lu(k,634) + lu(k,642) = lu(k,642) * lu(k,634) + lu(k,1337) = - lu(k,635) * lu(k,1334) + lu(k,1338) = - lu(k,636) * lu(k,1334) + lu(k,1339) = - lu(k,637) * lu(k,1334) + lu(k,1350) = lu(k,1350) - lu(k,638) * lu(k,1334) + lu(k,1351) = - lu(k,639) * lu(k,1334) + lu(k,1355) = - lu(k,640) * lu(k,1334) + lu(k,1356) = lu(k,1356) - lu(k,641) * lu(k,1334) + lu(k,1358) = lu(k,1358) - lu(k,642) * lu(k,1334) + lu(k,1830) = lu(k,1830) - lu(k,635) * lu(k,1782) + lu(k,1832) = lu(k,1832) - lu(k,636) * lu(k,1782) + lu(k,1833) = lu(k,1833) - lu(k,637) * lu(k,1782) + lu(k,1853) = lu(k,1853) - lu(k,638) * lu(k,1782) + lu(k,1854) = lu(k,1854) - lu(k,639) * lu(k,1782) + lu(k,1862) = lu(k,1862) - lu(k,640) * lu(k,1782) + lu(k,1863) = lu(k,1863) - lu(k,641) * lu(k,1782) + lu(k,1865) = lu(k,1865) - lu(k,642) * lu(k,1782) + lu(k,1940) = lu(k,1940) - lu(k,635) * lu(k,1908) + lu(k,1942) = lu(k,1942) - lu(k,636) * lu(k,1908) + lu(k,1943) = lu(k,1943) - lu(k,637) * lu(k,1908) + lu(k,1960) = lu(k,1960) - lu(k,638) * lu(k,1908) + lu(k,1961) = lu(k,1961) - lu(k,639) * lu(k,1908) + lu(k,1969) = lu(k,1969) - lu(k,640) * lu(k,1908) + lu(k,1970) = lu(k,1970) - lu(k,641) * lu(k,1908) + lu(k,1972) = lu(k,1972) - lu(k,642) * lu(k,1908) end do end subroutine lu_fac13 subroutine lu_fac14( avec_len, lu ) @@ -1801,167 +1811,162 @@ subroutine lu_fac14( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,637) = 1._r8 / lu(k,637) - lu(k,638) = lu(k,638) * lu(k,637) - lu(k,639) = lu(k,639) * lu(k,637) - lu(k,640) = lu(k,640) * lu(k,637) - lu(k,641) = lu(k,641) * lu(k,637) - lu(k,642) = lu(k,642) * lu(k,637) - lu(k,643) = lu(k,643) * lu(k,637) - lu(k,1442) = lu(k,1442) - lu(k,638) * lu(k,1436) - lu(k,1443) = lu(k,1443) - lu(k,639) * lu(k,1436) - lu(k,1446) = lu(k,1446) - lu(k,640) * lu(k,1436) - lu(k,1450) = lu(k,1450) - lu(k,641) * lu(k,1436) - lu(k,1452) = lu(k,1452) - lu(k,642) * lu(k,1436) - lu(k,1453) = - lu(k,643) * lu(k,1436) - lu(k,1472) = lu(k,1472) - lu(k,638) * lu(k,1456) - lu(k,1473) = lu(k,1473) - lu(k,639) * lu(k,1456) - lu(k,1477) = lu(k,1477) - lu(k,640) * lu(k,1456) - lu(k,1482) = lu(k,1482) - lu(k,641) * lu(k,1456) - lu(k,1484) = lu(k,1484) - lu(k,642) * lu(k,1456) - lu(k,1485) = - lu(k,643) * lu(k,1456) - lu(k,1994) = lu(k,1994) - lu(k,638) * lu(k,1932) - lu(k,1995) = lu(k,1995) - lu(k,639) * lu(k,1932) - lu(k,2006) = lu(k,2006) - lu(k,640) * lu(k,1932) - lu(k,2013) = lu(k,2013) - lu(k,641) * lu(k,1932) - lu(k,2016) = lu(k,2016) - lu(k,642) * lu(k,1932) - lu(k,2017) = lu(k,2017) - lu(k,643) * lu(k,1932) - lu(k,2200) = lu(k,2200) - lu(k,638) * lu(k,2153) - lu(k,2201) = lu(k,2201) - lu(k,639) * lu(k,2153) - lu(k,2211) = lu(k,2211) - lu(k,640) * lu(k,2153) - lu(k,2218) = lu(k,2218) - lu(k,641) * lu(k,2153) - lu(k,2221) = lu(k,2221) - lu(k,642) * lu(k,2153) - lu(k,2222) = lu(k,2222) - lu(k,643) * lu(k,2153) - lu(k,644) = 1._r8 / lu(k,644) - lu(k,645) = lu(k,645) * lu(k,644) - lu(k,646) = lu(k,646) * lu(k,644) - lu(k,647) = lu(k,647) * lu(k,644) - lu(k,648) = lu(k,648) * lu(k,644) - lu(k,649) = lu(k,649) * lu(k,644) - lu(k,650) = lu(k,650) * lu(k,644) - lu(k,1998) = lu(k,1998) - lu(k,645) * lu(k,1933) - lu(k,2006) = lu(k,2006) - lu(k,646) * lu(k,1933) - lu(k,2009) = lu(k,2009) - lu(k,647) * lu(k,1933) - lu(k,2010) = lu(k,2010) - lu(k,648) * lu(k,1933) - lu(k,2015) = lu(k,2015) - lu(k,649) * lu(k,1933) - lu(k,2017) = lu(k,2017) - lu(k,650) * lu(k,1933) - lu(k,2203) = lu(k,2203) - lu(k,645) * lu(k,2154) - lu(k,2211) = lu(k,2211) - lu(k,646) * lu(k,2154) - lu(k,2214) = lu(k,2214) - lu(k,647) * lu(k,2154) - lu(k,2215) = lu(k,2215) - lu(k,648) * lu(k,2154) - lu(k,2220) = lu(k,2220) - lu(k,649) * lu(k,2154) - lu(k,2222) = lu(k,2222) - lu(k,650) * lu(k,2154) - lu(k,2249) = lu(k,2249) - lu(k,645) * lu(k,2232) - lu(k,2257) = lu(k,2257) - lu(k,646) * lu(k,2232) - lu(k,2260) = lu(k,2260) - lu(k,647) * lu(k,2232) - lu(k,2261) = lu(k,2261) - lu(k,648) * lu(k,2232) - lu(k,2266) = - lu(k,649) * lu(k,2232) - lu(k,2268) = lu(k,2268) - lu(k,650) * lu(k,2232) - lu(k,2452) = lu(k,2452) - lu(k,645) * lu(k,2435) - lu(k,2460) = lu(k,2460) - lu(k,646) * lu(k,2435) - lu(k,2463) = lu(k,2463) - lu(k,647) * lu(k,2435) - lu(k,2464) = lu(k,2464) - lu(k,648) * lu(k,2435) - lu(k,2469) = lu(k,2469) - lu(k,649) * lu(k,2435) - lu(k,2471) = - lu(k,650) * lu(k,2435) - lu(k,651) = 1._r8 / lu(k,651) - lu(k,652) = lu(k,652) * lu(k,651) - lu(k,653) = lu(k,653) * lu(k,651) - lu(k,654) = lu(k,654) * lu(k,651) - lu(k,655) = lu(k,655) * lu(k,651) - lu(k,656) = lu(k,656) * lu(k,651) - lu(k,657) = lu(k,657) * lu(k,651) - lu(k,658) = lu(k,658) * lu(k,651) - lu(k,659) = lu(k,659) * lu(k,651) - lu(k,1336) = - lu(k,652) * lu(k,1333) - lu(k,1337) = - lu(k,653) * lu(k,1333) - lu(k,1338) = - lu(k,654) * lu(k,1333) - lu(k,1349) = lu(k,1349) - lu(k,655) * lu(k,1333) - lu(k,1351) = - lu(k,656) * lu(k,1333) - lu(k,1353) = lu(k,1353) - lu(k,657) * lu(k,1333) - lu(k,1354) = - lu(k,658) * lu(k,1333) - lu(k,1357) = lu(k,1357) - lu(k,659) * lu(k,1333) - lu(k,1767) = lu(k,1767) - lu(k,652) * lu(k,1736) - lu(k,1769) = lu(k,1769) - lu(k,653) * lu(k,1736) - lu(k,1770) = lu(k,1770) - lu(k,654) * lu(k,1736) - lu(k,1787) = lu(k,1787) - lu(k,655) * lu(k,1736) - lu(k,1790) = lu(k,1790) - lu(k,656) * lu(k,1736) - lu(k,1793) = lu(k,1793) - lu(k,657) * lu(k,1736) - lu(k,1796) = lu(k,1796) - lu(k,658) * lu(k,1736) - lu(k,1800) = lu(k,1800) - lu(k,659) * lu(k,1736) - lu(k,1980) = lu(k,1980) - lu(k,652) * lu(k,1934) - lu(k,1982) = lu(k,1982) - lu(k,653) * lu(k,1934) - lu(k,1983) = lu(k,1983) - lu(k,654) * lu(k,1934) - lu(k,2003) = lu(k,2003) - lu(k,655) * lu(k,1934) - lu(k,2006) = lu(k,2006) - lu(k,656) * lu(k,1934) - lu(k,2009) = lu(k,2009) - lu(k,657) * lu(k,1934) - lu(k,2012) = lu(k,2012) - lu(k,658) * lu(k,1934) - lu(k,2016) = lu(k,2016) - lu(k,659) * lu(k,1934) - lu(k,662) = 1._r8 / lu(k,662) - lu(k,663) = lu(k,663) * lu(k,662) - lu(k,664) = lu(k,664) * lu(k,662) - lu(k,665) = lu(k,665) * lu(k,662) - lu(k,666) = lu(k,666) * lu(k,662) - lu(k,667) = lu(k,667) * lu(k,662) - lu(k,668) = lu(k,668) * lu(k,662) - lu(k,669) = lu(k,669) * lu(k,662) - lu(k,670) = lu(k,670) * lu(k,662) - lu(k,793) = lu(k,793) - lu(k,663) * lu(k,792) - lu(k,794) = lu(k,794) - lu(k,664) * lu(k,792) - lu(k,795) = lu(k,795) - lu(k,665) * lu(k,792) - lu(k,796) = lu(k,796) - lu(k,666) * lu(k,792) - lu(k,798) = lu(k,798) - lu(k,667) * lu(k,792) - lu(k,800) = lu(k,800) - lu(k,668) * lu(k,792) - lu(k,803) = - lu(k,669) * lu(k,792) - lu(k,804) = lu(k,804) - lu(k,670) * lu(k,792) - lu(k,1937) = lu(k,1937) - lu(k,663) * lu(k,1935) - lu(k,1948) = lu(k,1948) - lu(k,664) * lu(k,1935) - lu(k,1949) = lu(k,1949) - lu(k,665) * lu(k,1935) - lu(k,1951) = - lu(k,666) * lu(k,1935) - lu(k,1970) = lu(k,1970) - lu(k,667) * lu(k,1935) - lu(k,1988) = lu(k,1988) - lu(k,668) * lu(k,1935) - lu(k,2006) = lu(k,2006) - lu(k,669) * lu(k,1935) - lu(k,2009) = lu(k,2009) - lu(k,670) * lu(k,1935) - lu(k,2156) = - lu(k,663) * lu(k,2155) - lu(k,2164) = lu(k,2164) - lu(k,664) * lu(k,2155) - lu(k,2165) = lu(k,2165) - lu(k,665) * lu(k,2155) - lu(k,2167) = lu(k,2167) - lu(k,666) * lu(k,2155) - lu(k,2179) = lu(k,2179) - lu(k,667) * lu(k,2155) - lu(k,2194) = lu(k,2194) - lu(k,668) * lu(k,2155) - lu(k,2211) = lu(k,2211) - lu(k,669) * lu(k,2155) - lu(k,2214) = lu(k,2214) - lu(k,670) * lu(k,2155) - lu(k,671) = 1._r8 / lu(k,671) - lu(k,672) = lu(k,672) * lu(k,671) - lu(k,673) = lu(k,673) * lu(k,671) - lu(k,674) = lu(k,674) * lu(k,671) - lu(k,675) = lu(k,675) * lu(k,671) - lu(k,676) = lu(k,676) * lu(k,671) - lu(k,677) = lu(k,677) * lu(k,671) - lu(k,678) = lu(k,678) * lu(k,671) - lu(k,679) = lu(k,679) * lu(k,671) - lu(k,1439) = - lu(k,672) * lu(k,1437) - lu(k,1441) = lu(k,1441) - lu(k,673) * lu(k,1437) - lu(k,1443) = lu(k,1443) - lu(k,674) * lu(k,1437) - lu(k,1444) = lu(k,1444) - lu(k,675) * lu(k,1437) - lu(k,1446) = lu(k,1446) - lu(k,676) * lu(k,1437) - lu(k,1447) = lu(k,1447) - lu(k,677) * lu(k,1437) - lu(k,1448) = lu(k,1448) - lu(k,678) * lu(k,1437) - lu(k,1452) = lu(k,1452) - lu(k,679) * lu(k,1437) - lu(k,1670) = - lu(k,672) * lu(k,1659) - lu(k,1672) = lu(k,1672) - lu(k,673) * lu(k,1659) - lu(k,1674) = lu(k,1674) - lu(k,674) * lu(k,1659) - lu(k,1681) = lu(k,1681) - lu(k,675) * lu(k,1659) - lu(k,1684) = lu(k,1684) - lu(k,676) * lu(k,1659) - lu(k,1685) = lu(k,1685) - lu(k,677) * lu(k,1659) - lu(k,1687) = lu(k,1687) - lu(k,678) * lu(k,1659) - lu(k,1694) = lu(k,1694) - lu(k,679) * lu(k,1659) - lu(k,1983) = lu(k,1983) - lu(k,672) * lu(k,1936) - lu(k,1993) = lu(k,1993) - lu(k,673) * lu(k,1936) - lu(k,1995) = lu(k,1995) - lu(k,674) * lu(k,1936) - lu(k,2003) = lu(k,2003) - lu(k,675) * lu(k,1936) - lu(k,2006) = lu(k,2006) - lu(k,676) * lu(k,1936) - lu(k,2007) = lu(k,2007) - lu(k,677) * lu(k,1936) - lu(k,2009) = lu(k,2009) - lu(k,678) * lu(k,1936) - lu(k,2016) = lu(k,2016) - lu(k,679) * lu(k,1936) + lu(k,643) = 1._r8 / lu(k,643) + lu(k,644) = lu(k,644) * lu(k,643) + lu(k,645) = lu(k,645) * lu(k,643) + lu(k,646) = lu(k,646) * lu(k,643) + lu(k,647) = lu(k,647) * lu(k,643) + lu(k,648) = lu(k,648) * lu(k,643) + lu(k,649) = lu(k,649) * lu(k,643) + lu(k,1848) = lu(k,1848) - lu(k,644) * lu(k,1783) + lu(k,1854) = lu(k,1854) - lu(k,645) * lu(k,1783) + lu(k,1856) = lu(k,1856) - lu(k,646) * lu(k,1783) + lu(k,1857) = lu(k,1857) - lu(k,647) * lu(k,1783) + lu(k,1863) = lu(k,1863) - lu(k,648) * lu(k,1783) + lu(k,1867) = lu(k,1867) - lu(k,649) * lu(k,1783) + lu(k,2001) = lu(k,2001) - lu(k,644) * lu(k,1983) + lu(k,2007) = lu(k,2007) - lu(k,645) * lu(k,1983) + lu(k,2009) = lu(k,2009) - lu(k,646) * lu(k,1983) + lu(k,2010) = - lu(k,647) * lu(k,1983) + lu(k,2016) = lu(k,2016) - lu(k,648) * lu(k,1983) + lu(k,2020) = lu(k,2020) - lu(k,649) * lu(k,1983) + lu(k,2044) = lu(k,2044) - lu(k,644) * lu(k,2026) + lu(k,2050) = lu(k,2050) - lu(k,645) * lu(k,2026) + lu(k,2052) = lu(k,2052) - lu(k,646) * lu(k,2026) + lu(k,2053) = lu(k,2053) - lu(k,647) * lu(k,2026) + lu(k,2059) = lu(k,2059) - lu(k,648) * lu(k,2026) + lu(k,2063) = - lu(k,649) * lu(k,2026) + lu(k,2367) = lu(k,2367) - lu(k,644) * lu(k,2317) + lu(k,2373) = lu(k,2373) - lu(k,645) * lu(k,2317) + lu(k,2375) = lu(k,2375) - lu(k,646) * lu(k,2317) + lu(k,2376) = lu(k,2376) - lu(k,647) * lu(k,2317) + lu(k,2382) = lu(k,2382) - lu(k,648) * lu(k,2317) + lu(k,2386) = lu(k,2386) - lu(k,649) * lu(k,2317) + lu(k,652) = 1._r8 / lu(k,652) + lu(k,653) = lu(k,653) * lu(k,652) + lu(k,654) = lu(k,654) * lu(k,652) + lu(k,655) = lu(k,655) * lu(k,652) + lu(k,656) = lu(k,656) * lu(k,652) + lu(k,657) = lu(k,657) * lu(k,652) + lu(k,658) = lu(k,658) * lu(k,652) + lu(k,659) = lu(k,659) * lu(k,652) + lu(k,660) = lu(k,660) * lu(k,652) + lu(k,786) = lu(k,786) - lu(k,653) * lu(k,785) + lu(k,787) = lu(k,787) - lu(k,654) * lu(k,785) + lu(k,788) = lu(k,788) - lu(k,655) * lu(k,785) + lu(k,789) = lu(k,789) - lu(k,656) * lu(k,785) + lu(k,791) = lu(k,791) - lu(k,657) * lu(k,785) + lu(k,793) = lu(k,793) - lu(k,658) * lu(k,785) + lu(k,795) = - lu(k,659) * lu(k,785) + lu(k,797) = lu(k,797) - lu(k,660) * lu(k,785) + lu(k,1785) = lu(k,1785) - lu(k,653) * lu(k,1784) + lu(k,1797) = lu(k,1797) - lu(k,654) * lu(k,1784) + lu(k,1798) = lu(k,1798) - lu(k,655) * lu(k,1784) + lu(k,1801) = - lu(k,656) * lu(k,1784) + lu(k,1820) = lu(k,1820) - lu(k,657) * lu(k,1784) + lu(k,1838) = lu(k,1838) - lu(k,658) * lu(k,1784) + lu(k,1854) = lu(k,1854) - lu(k,659) * lu(k,1784) + lu(k,1863) = lu(k,1863) - lu(k,660) * lu(k,1784) + lu(k,2319) = - lu(k,653) * lu(k,2318) + lu(k,2327) = lu(k,2327) - lu(k,654) * lu(k,2318) + lu(k,2328) = lu(k,2328) - lu(k,655) * lu(k,2318) + lu(k,2331) = lu(k,2331) - lu(k,656) * lu(k,2318) + lu(k,2343) = lu(k,2343) - lu(k,657) * lu(k,2318) + lu(k,2358) = lu(k,2358) - lu(k,658) * lu(k,2318) + lu(k,2373) = lu(k,2373) - lu(k,659) * lu(k,2318) + lu(k,2382) = lu(k,2382) - lu(k,660) * lu(k,2318) + lu(k,661) = 1._r8 / lu(k,661) + lu(k,662) = lu(k,662) * lu(k,661) + lu(k,663) = lu(k,663) * lu(k,661) + lu(k,664) = lu(k,664) * lu(k,661) + lu(k,770) = - lu(k,662) * lu(k,765) + lu(k,772) = lu(k,772) - lu(k,663) * lu(k,765) + lu(k,776) = lu(k,776) - lu(k,664) * lu(k,765) + lu(k,790) = - lu(k,662) * lu(k,786) + lu(k,792) = - lu(k,663) * lu(k,786) + lu(k,797) = lu(k,797) - lu(k,664) * lu(k,786) + lu(k,814) = - lu(k,662) * lu(k,809) + lu(k,816) = lu(k,816) - lu(k,663) * lu(k,809) + lu(k,822) = lu(k,822) - lu(k,664) * lu(k,809) + lu(k,1133) = - lu(k,662) * lu(k,1131) + lu(k,1136) = - lu(k,663) * lu(k,1131) + lu(k,1145) = lu(k,1145) - lu(k,664) * lu(k,1131) + lu(k,1367) = - lu(k,662) * lu(k,1363) + lu(k,1369) = - lu(k,663) * lu(k,1363) + lu(k,1389) = lu(k,1389) - lu(k,664) * lu(k,1363) + lu(k,1811) = - lu(k,662) * lu(k,1785) + lu(k,1829) = lu(k,1829) - lu(k,663) * lu(k,1785) + lu(k,1863) = lu(k,1863) - lu(k,664) * lu(k,1785) + lu(k,1927) = lu(k,1927) - lu(k,662) * lu(k,1909) + lu(k,1939) = lu(k,1939) - lu(k,663) * lu(k,1909) + lu(k,1970) = lu(k,1970) - lu(k,664) * lu(k,1909) + lu(k,2340) = lu(k,2340) - lu(k,662) * lu(k,2319) + lu(k,2350) = lu(k,2350) - lu(k,663) * lu(k,2319) + lu(k,2382) = lu(k,2382) - lu(k,664) * lu(k,2319) + lu(k,665) = 1._r8 / lu(k,665) + lu(k,666) = lu(k,666) * lu(k,665) + lu(k,667) = lu(k,667) * lu(k,665) + lu(k,668) = lu(k,668) * lu(k,665) + lu(k,669) = lu(k,669) * lu(k,665) + lu(k,670) = lu(k,670) * lu(k,665) + lu(k,671) = lu(k,671) * lu(k,665) + lu(k,1443) = lu(k,1443) - lu(k,666) * lu(k,1438) + lu(k,1444) = lu(k,1444) - lu(k,667) * lu(k,1438) + lu(k,1446) = lu(k,1446) - lu(k,668) * lu(k,1438) + lu(k,1449) = lu(k,1449) - lu(k,669) * lu(k,1438) + lu(k,1453) = lu(k,1453) - lu(k,670) * lu(k,1438) + lu(k,1454) = - lu(k,671) * lu(k,1438) + lu(k,1473) = lu(k,1473) - lu(k,666) * lu(k,1457) + lu(k,1474) = lu(k,1474) - lu(k,667) * lu(k,1457) + lu(k,1478) = lu(k,1478) - lu(k,668) * lu(k,1457) + lu(k,1481) = lu(k,1481) - lu(k,669) * lu(k,1457) + lu(k,1485) = lu(k,1485) - lu(k,670) * lu(k,1457) + lu(k,1486) = - lu(k,671) * lu(k,1457) + lu(k,1844) = lu(k,1844) - lu(k,666) * lu(k,1786) + lu(k,1845) = lu(k,1845) - lu(k,667) * lu(k,1786) + lu(k,1854) = lu(k,1854) - lu(k,668) * lu(k,1786) + lu(k,1860) = lu(k,1860) - lu(k,669) * lu(k,1786) + lu(k,1865) = lu(k,1865) - lu(k,670) * lu(k,1786) + lu(k,1867) = lu(k,1867) - lu(k,671) * lu(k,1786) + lu(k,2364) = lu(k,2364) - lu(k,666) * lu(k,2320) + lu(k,2365) = lu(k,2365) - lu(k,667) * lu(k,2320) + lu(k,2373) = lu(k,2373) - lu(k,668) * lu(k,2320) + lu(k,2379) = lu(k,2379) - lu(k,669) * lu(k,2320) + lu(k,2384) = lu(k,2384) - lu(k,670) * lu(k,2320) + lu(k,2386) = lu(k,2386) - lu(k,671) * lu(k,2320) + lu(k,672) = 1._r8 / lu(k,672) + lu(k,673) = lu(k,673) * lu(k,672) + lu(k,674) = lu(k,674) * lu(k,672) + lu(k,675) = lu(k,675) * lu(k,672) + lu(k,676) = lu(k,676) * lu(k,672) + lu(k,677) = lu(k,677) * lu(k,672) + lu(k,678) = lu(k,678) * lu(k,672) + lu(k,679) = lu(k,679) * lu(k,672) + lu(k,680) = lu(k,680) * lu(k,672) + lu(k,906) = lu(k,906) - lu(k,673) * lu(k,905) + lu(k,907) = - lu(k,674) * lu(k,905) + lu(k,908) = lu(k,908) - lu(k,675) * lu(k,905) + lu(k,909) = lu(k,909) - lu(k,676) * lu(k,905) + lu(k,910) = lu(k,910) - lu(k,677) * lu(k,905) + lu(k,911) = lu(k,911) - lu(k,678) * lu(k,905) + lu(k,914) = - lu(k,679) * lu(k,905) + lu(k,916) = lu(k,916) - lu(k,680) * lu(k,905) + lu(k,1574) = lu(k,1574) - lu(k,673) * lu(k,1573) + lu(k,1576) = lu(k,1576) - lu(k,674) * lu(k,1573) + lu(k,1577) = lu(k,1577) - lu(k,675) * lu(k,1573) + lu(k,1578) = lu(k,1578) - lu(k,676) * lu(k,1573) + lu(k,1579) = lu(k,1579) - lu(k,677) * lu(k,1573) + lu(k,1581) = lu(k,1581) - lu(k,678) * lu(k,1573) + lu(k,1587) = lu(k,1587) - lu(k,679) * lu(k,1573) + lu(k,1593) = lu(k,1593) - lu(k,680) * lu(k,1573) + lu(k,2028) = lu(k,2028) - lu(k,673) * lu(k,2027) + lu(k,2031) = lu(k,2031) - lu(k,674) * lu(k,2027) + lu(k,2034) = lu(k,2034) - lu(k,675) * lu(k,2027) + lu(k,2035) = lu(k,2035) - lu(k,676) * lu(k,2027) + lu(k,2036) = lu(k,2036) - lu(k,677) * lu(k,2027) + lu(k,2038) = lu(k,2038) - lu(k,678) * lu(k,2027) + lu(k,2046) = lu(k,2046) - lu(k,679) * lu(k,2027) + lu(k,2053) = lu(k,2053) - lu(k,680) * lu(k,2027) end do end subroutine lu_fac14 subroutine lu_fac15( avec_len, lu ) @@ -1978,170 +1983,169 @@ subroutine lu_fac15( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,680) = 1._r8 / lu(k,680) - lu(k,681) = lu(k,681) * lu(k,680) - lu(k,682) = lu(k,682) * lu(k,680) - lu(k,683) = lu(k,683) * lu(k,680) - lu(k,770) = - lu(k,681) * lu(k,765) - lu(k,772) = lu(k,772) - lu(k,682) * lu(k,765) - lu(k,776) = lu(k,776) - lu(k,683) * lu(k,765) - lu(k,797) = - lu(k,681) * lu(k,793) - lu(k,799) = - lu(k,682) * lu(k,793) - lu(k,804) = lu(k,804) - lu(k,683) * lu(k,793) - lu(k,813) = - lu(k,681) * lu(k,808) - lu(k,815) = lu(k,815) - lu(k,682) * lu(k,808) - lu(k,821) = lu(k,821) - lu(k,683) * lu(k,808) - lu(k,1132) = - lu(k,681) * lu(k,1130) - lu(k,1135) = - lu(k,682) * lu(k,1130) - lu(k,1142) = lu(k,1142) - lu(k,683) * lu(k,1130) - lu(k,1366) = - lu(k,681) * lu(k,1362) - lu(k,1368) = - lu(k,682) * lu(k,1362) - lu(k,1386) = lu(k,1386) - lu(k,683) * lu(k,1362) - lu(k,1754) = lu(k,1754) - lu(k,681) * lu(k,1737) - lu(k,1766) = lu(k,1766) - lu(k,682) * lu(k,1737) - lu(k,1793) = lu(k,1793) - lu(k,683) * lu(k,1737) - lu(k,1961) = - lu(k,681) * lu(k,1937) - lu(k,1979) = lu(k,1979) - lu(k,682) * lu(k,1937) - lu(k,2009) = lu(k,2009) - lu(k,683) * lu(k,1937) - lu(k,2176) = lu(k,2176) - lu(k,681) * lu(k,2156) - lu(k,2186) = lu(k,2186) - lu(k,682) * lu(k,2156) - lu(k,2214) = lu(k,2214) - lu(k,683) * lu(k,2156) - lu(k,684) = 1._r8 / lu(k,684) - lu(k,685) = lu(k,685) * lu(k,684) - lu(k,686) = lu(k,686) * lu(k,684) - lu(k,687) = lu(k,687) * lu(k,684) - lu(k,688) = lu(k,688) * lu(k,684) - lu(k,689) = lu(k,689) * lu(k,684) - lu(k,1107) = lu(k,1107) - lu(k,685) * lu(k,1104) - lu(k,1109) = lu(k,1109) - lu(k,686) * lu(k,1104) - lu(k,1111) = lu(k,1111) - lu(k,687) * lu(k,1104) - lu(k,1112) = lu(k,1112) - lu(k,688) * lu(k,1104) - lu(k,1113) = - lu(k,689) * lu(k,1104) - lu(k,1149) = lu(k,1149) - lu(k,685) * lu(k,1147) - lu(k,1154) = lu(k,1154) - lu(k,686) * lu(k,1147) - lu(k,1156) = lu(k,1156) - lu(k,687) * lu(k,1147) - lu(k,1158) = lu(k,1158) - lu(k,688) * lu(k,1147) - lu(k,1159) = lu(k,1159) - lu(k,689) * lu(k,1147) - lu(k,1760) = lu(k,1760) - lu(k,685) * lu(k,1738) - lu(k,1787) = lu(k,1787) - lu(k,686) * lu(k,1738) - lu(k,1790) = lu(k,1790) - lu(k,687) * lu(k,1738) - lu(k,1793) = lu(k,1793) - lu(k,688) * lu(k,1738) - lu(k,1796) = lu(k,1796) - lu(k,689) * lu(k,1738) - lu(k,1972) = lu(k,1972) - lu(k,685) * lu(k,1938) - lu(k,2003) = lu(k,2003) - lu(k,686) * lu(k,1938) - lu(k,2006) = lu(k,2006) - lu(k,687) * lu(k,1938) - lu(k,2009) = lu(k,2009) - lu(k,688) * lu(k,1938) - lu(k,2012) = lu(k,2012) - lu(k,689) * lu(k,1938) - lu(k,2325) = lu(k,2325) - lu(k,685) * lu(k,2317) - lu(k,2350) = lu(k,2350) - lu(k,686) * lu(k,2317) - lu(k,2353) = lu(k,2353) - lu(k,687) * lu(k,2317) - lu(k,2356) = lu(k,2356) - lu(k,688) * lu(k,2317) - lu(k,2359) = lu(k,2359) - lu(k,689) * lu(k,2317) - lu(k,692) = 1._r8 / lu(k,692) - lu(k,693) = lu(k,693) * lu(k,692) - lu(k,694) = lu(k,694) * lu(k,692) - lu(k,695) = lu(k,695) * lu(k,692) - lu(k,696) = lu(k,696) * lu(k,692) - lu(k,697) = lu(k,697) * lu(k,692) - lu(k,1681) = lu(k,1681) - lu(k,693) * lu(k,1660) - lu(k,1682) = lu(k,1682) - lu(k,694) * lu(k,1660) - lu(k,1684) = lu(k,1684) - lu(k,695) * lu(k,1660) - lu(k,1687) = lu(k,1687) - lu(k,696) * lu(k,1660) - lu(k,1692) = lu(k,1692) - lu(k,697) * lu(k,1660) - lu(k,1787) = lu(k,1787) - lu(k,693) * lu(k,1739) - lu(k,1788) = lu(k,1788) - lu(k,694) * lu(k,1739) - lu(k,1790) = lu(k,1790) - lu(k,695) * lu(k,1739) - lu(k,1793) = lu(k,1793) - lu(k,696) * lu(k,1739) - lu(k,1798) = lu(k,1798) - lu(k,697) * lu(k,1739) - lu(k,2003) = lu(k,2003) - lu(k,693) * lu(k,1939) - lu(k,2004) = lu(k,2004) - lu(k,694) * lu(k,1939) - lu(k,2006) = lu(k,2006) - lu(k,695) * lu(k,1939) - lu(k,2009) = lu(k,2009) - lu(k,696) * lu(k,1939) - lu(k,2014) = lu(k,2014) - lu(k,697) * lu(k,1939) - lu(k,2208) = lu(k,2208) - lu(k,693) * lu(k,2157) - lu(k,2209) = lu(k,2209) - lu(k,694) * lu(k,2157) - lu(k,2211) = lu(k,2211) - lu(k,695) * lu(k,2157) - lu(k,2214) = lu(k,2214) - lu(k,696) * lu(k,2157) - lu(k,2219) = lu(k,2219) - lu(k,697) * lu(k,2157) - lu(k,2414) = lu(k,2414) - lu(k,693) * lu(k,2376) - lu(k,2415) = lu(k,2415) - lu(k,694) * lu(k,2376) - lu(k,2417) = lu(k,2417) - lu(k,695) * lu(k,2376) - lu(k,2420) = lu(k,2420) - lu(k,696) * lu(k,2376) - lu(k,2425) = lu(k,2425) - lu(k,697) * lu(k,2376) - lu(k,699) = 1._r8 / lu(k,699) - lu(k,700) = lu(k,700) * lu(k,699) - lu(k,701) = lu(k,701) * lu(k,699) - lu(k,702) = lu(k,702) * lu(k,699) - lu(k,703) = lu(k,703) * lu(k,699) - lu(k,704) = lu(k,704) * lu(k,699) - lu(k,705) = lu(k,705) * lu(k,699) - lu(k,706) = lu(k,706) * lu(k,699) - lu(k,707) = lu(k,707) * lu(k,699) - lu(k,708) = lu(k,708) * lu(k,699) - lu(k,1084) = lu(k,1084) - lu(k,700) * lu(k,1082) - lu(k,1085) = lu(k,1085) - lu(k,701) * lu(k,1082) - lu(k,1087) = lu(k,1087) - lu(k,702) * lu(k,1082) - lu(k,1088) = lu(k,1088) - lu(k,703) * lu(k,1082) - lu(k,1089) = lu(k,1089) - lu(k,704) * lu(k,1082) - lu(k,1091) = lu(k,1091) - lu(k,705) * lu(k,1082) - lu(k,1093) = lu(k,1093) - lu(k,706) * lu(k,1082) - lu(k,1094) = lu(k,1094) - lu(k,707) * lu(k,1082) - lu(k,1096) = lu(k,1096) - lu(k,708) * lu(k,1082) - lu(k,1741) = lu(k,1741) - lu(k,700) * lu(k,1740) - lu(k,1753) = lu(k,1753) - lu(k,701) * lu(k,1740) - lu(k,1761) = lu(k,1761) - lu(k,702) * lu(k,1740) - lu(k,1765) = lu(k,1765) - lu(k,703) * lu(k,1740) - lu(k,1781) = lu(k,1781) - lu(k,704) * lu(k,1740) - lu(k,1787) = lu(k,1787) - lu(k,705) * lu(k,1740) - lu(k,1790) = lu(k,1790) - lu(k,706) * lu(k,1740) - lu(k,1793) = lu(k,1793) - lu(k,707) * lu(k,1740) - lu(k,1800) = lu(k,1800) - lu(k,708) * lu(k,1740) - lu(k,1942) = lu(k,1942) - lu(k,700) * lu(k,1940) - lu(k,1960) = lu(k,1960) - lu(k,701) * lu(k,1940) - lu(k,1973) = lu(k,1973) - lu(k,702) * lu(k,1940) - lu(k,1978) = lu(k,1978) - lu(k,703) * lu(k,1940) - lu(k,1994) = lu(k,1994) - lu(k,704) * lu(k,1940) - lu(k,2003) = lu(k,2003) - lu(k,705) * lu(k,1940) - lu(k,2006) = lu(k,2006) - lu(k,706) * lu(k,1940) - lu(k,2009) = lu(k,2009) - lu(k,707) * lu(k,1940) - lu(k,2016) = lu(k,2016) - lu(k,708) * lu(k,1940) - lu(k,710) = 1._r8 / lu(k,710) - lu(k,711) = lu(k,711) * lu(k,710) - lu(k,712) = lu(k,712) * lu(k,710) - lu(k,713) = lu(k,713) * lu(k,710) - lu(k,714) = lu(k,714) * lu(k,710) - lu(k,715) = lu(k,715) * lu(k,710) - lu(k,716) = lu(k,716) * lu(k,710) - lu(k,717) = lu(k,717) * lu(k,710) - lu(k,718) = lu(k,718) * lu(k,710) - lu(k,719) = lu(k,719) * lu(k,710) - lu(k,1084) = lu(k,1084) - lu(k,711) * lu(k,1083) + lu(k,681) = 1._r8 / lu(k,681) + lu(k,682) = lu(k,682) * lu(k,681) + lu(k,683) = lu(k,683) * lu(k,681) + lu(k,684) = lu(k,684) * lu(k,681) + lu(k,685) = lu(k,685) * lu(k,681) + lu(k,686) = lu(k,686) * lu(k,681) + lu(k,687) = lu(k,687) * lu(k,681) + lu(k,688) = lu(k,688) * lu(k,681) + lu(k,689) = lu(k,689) * lu(k,681) + lu(k,1848) = lu(k,1848) - lu(k,682) * lu(k,1787) + lu(k,1849) = lu(k,1849) - lu(k,683) * lu(k,1787) + lu(k,1854) = lu(k,1854) - lu(k,684) * lu(k,1787) + lu(k,1856) = lu(k,1856) - lu(k,685) * lu(k,1787) + lu(k,1860) = lu(k,1860) - lu(k,686) * lu(k,1787) + lu(k,1861) = lu(k,1861) - lu(k,687) * lu(k,1787) + lu(k,1863) = lu(k,1863) - lu(k,688) * lu(k,1787) + lu(k,1867) = lu(k,1867) - lu(k,689) * lu(k,1787) + lu(k,2001) = lu(k,2001) - lu(k,682) * lu(k,1984) + lu(k,2002) = lu(k,2002) - lu(k,683) * lu(k,1984) + lu(k,2007) = lu(k,2007) - lu(k,684) * lu(k,1984) + lu(k,2009) = lu(k,2009) - lu(k,685) * lu(k,1984) + lu(k,2013) = lu(k,2013) - lu(k,686) * lu(k,1984) + lu(k,2014) = lu(k,2014) - lu(k,687) * lu(k,1984) + lu(k,2016) = lu(k,2016) - lu(k,688) * lu(k,1984) + lu(k,2020) = lu(k,2020) - lu(k,689) * lu(k,1984) + lu(k,2224) = lu(k,2224) - lu(k,682) * lu(k,2220) + lu(k,2225) = lu(k,2225) - lu(k,683) * lu(k,2220) + lu(k,2230) = lu(k,2230) - lu(k,684) * lu(k,2220) + lu(k,2232) = lu(k,2232) - lu(k,685) * lu(k,2220) + lu(k,2236) = lu(k,2236) - lu(k,686) * lu(k,2220) + lu(k,2237) = lu(k,2237) - lu(k,687) * lu(k,2220) + lu(k,2239) = lu(k,2239) - lu(k,688) * lu(k,2220) + lu(k,2243) = lu(k,2243) - lu(k,689) * lu(k,2220) + lu(k,690) = 1._r8 / lu(k,690) + lu(k,691) = lu(k,691) * lu(k,690) + lu(k,692) = lu(k,692) * lu(k,690) + lu(k,693) = lu(k,693) * lu(k,690) + lu(k,694) = lu(k,694) * lu(k,690) + lu(k,695) = lu(k,695) * lu(k,690) + lu(k,1108) = lu(k,1108) - lu(k,691) * lu(k,1105) + lu(k,1110) = lu(k,1110) - lu(k,692) * lu(k,1105) + lu(k,1111) = lu(k,1111) - lu(k,693) * lu(k,1105) + lu(k,1114) = - lu(k,694) * lu(k,1105) + lu(k,1115) = lu(k,1115) - lu(k,695) * lu(k,1105) + lu(k,1150) = lu(k,1150) - lu(k,691) * lu(k,1148) + lu(k,1155) = lu(k,1155) - lu(k,692) * lu(k,1148) + lu(k,1156) = lu(k,1156) - lu(k,693) * lu(k,1148) + lu(k,1159) = lu(k,1159) - lu(k,694) * lu(k,1148) + lu(k,1160) = lu(k,1160) - lu(k,695) * lu(k,1148) + lu(k,1822) = lu(k,1822) - lu(k,691) * lu(k,1788) + lu(k,1853) = lu(k,1853) - lu(k,692) * lu(k,1788) + lu(k,1854) = lu(k,1854) - lu(k,693) * lu(k,1788) + lu(k,1862) = lu(k,1862) - lu(k,694) * lu(k,1788) + lu(k,1863) = lu(k,1863) - lu(k,695) * lu(k,1788) + lu(k,1933) = lu(k,1933) - lu(k,691) * lu(k,1910) + lu(k,1960) = lu(k,1960) - lu(k,692) * lu(k,1910) + lu(k,1961) = lu(k,1961) - lu(k,693) * lu(k,1910) + lu(k,1969) = lu(k,1969) - lu(k,694) * lu(k,1910) + lu(k,1970) = lu(k,1970) - lu(k,695) * lu(k,1910) + lu(k,2161) = lu(k,2161) - lu(k,691) * lu(k,2153) + lu(k,2186) = lu(k,2186) - lu(k,692) * lu(k,2153) + lu(k,2187) = lu(k,2187) - lu(k,693) * lu(k,2153) + lu(k,2195) = lu(k,2195) - lu(k,694) * lu(k,2153) + lu(k,2196) = lu(k,2196) - lu(k,695) * lu(k,2153) + lu(k,698) = 1._r8 / lu(k,698) + lu(k,699) = lu(k,699) * lu(k,698) + lu(k,700) = lu(k,700) * lu(k,698) + lu(k,701) = lu(k,701) * lu(k,698) + lu(k,702) = lu(k,702) * lu(k,698) + lu(k,703) = lu(k,703) * lu(k,698) + lu(k,1680) = lu(k,1680) - lu(k,699) * lu(k,1659) + lu(k,1681) = lu(k,1681) - lu(k,700) * lu(k,1659) + lu(k,1682) = lu(k,1682) - lu(k,701) * lu(k,1659) + lu(k,1685) = lu(k,1685) - lu(k,702) * lu(k,1659) + lu(k,1690) = lu(k,1690) - lu(k,703) * lu(k,1659) + lu(k,1853) = lu(k,1853) - lu(k,699) * lu(k,1789) + lu(k,1854) = lu(k,1854) - lu(k,700) * lu(k,1789) + lu(k,1855) = lu(k,1855) - lu(k,701) * lu(k,1789) + lu(k,1858) = lu(k,1858) - lu(k,702) * lu(k,1789) + lu(k,1863) = lu(k,1863) - lu(k,703) * lu(k,1789) + lu(k,1960) = lu(k,1960) - lu(k,699) * lu(k,1911) + lu(k,1961) = lu(k,1961) - lu(k,700) * lu(k,1911) + lu(k,1962) = lu(k,1962) - lu(k,701) * lu(k,1911) + lu(k,1965) = lu(k,1965) - lu(k,702) * lu(k,1911) + lu(k,1970) = lu(k,1970) - lu(k,703) * lu(k,1911) + lu(k,2113) = lu(k,2113) - lu(k,699) * lu(k,2075) + lu(k,2114) = lu(k,2114) - lu(k,700) * lu(k,2075) + lu(k,2115) = lu(k,2115) - lu(k,701) * lu(k,2075) + lu(k,2118) = lu(k,2118) - lu(k,702) * lu(k,2075) + lu(k,2123) = lu(k,2123) - lu(k,703) * lu(k,2075) + lu(k,2372) = lu(k,2372) - lu(k,699) * lu(k,2321) + lu(k,2373) = lu(k,2373) - lu(k,700) * lu(k,2321) + lu(k,2374) = lu(k,2374) - lu(k,701) * lu(k,2321) + lu(k,2377) = lu(k,2377) - lu(k,702) * lu(k,2321) + lu(k,2382) = lu(k,2382) - lu(k,703) * lu(k,2321) + lu(k,704) = 1._r8 / lu(k,704) + lu(k,705) = lu(k,705) * lu(k,704) + lu(k,706) = lu(k,706) * lu(k,704) + lu(k,707) = lu(k,707) * lu(k,704) + lu(k,708) = lu(k,708) * lu(k,704) + lu(k,709) = lu(k,709) * lu(k,704) + lu(k,892) = lu(k,892) - lu(k,705) * lu(k,889) + lu(k,893) = - lu(k,706) * lu(k,889) + lu(k,894) = - lu(k,707) * lu(k,889) + lu(k,895) = lu(k,895) - lu(k,708) * lu(k,889) + lu(k,896) = - lu(k,709) * lu(k,889) + lu(k,911) = lu(k,911) - lu(k,705) * lu(k,906) + lu(k,914) = lu(k,914) - lu(k,706) * lu(k,906) + lu(k,915) = - lu(k,707) * lu(k,906) + lu(k,916) = lu(k,916) - lu(k,708) * lu(k,906) + lu(k,917) = lu(k,917) - lu(k,709) * lu(k,906) + lu(k,1581) = lu(k,1581) - lu(k,705) * lu(k,1574) + lu(k,1587) = lu(k,1587) - lu(k,706) * lu(k,1574) + lu(k,1591) = lu(k,1591) - lu(k,707) * lu(k,1574) + lu(k,1593) = lu(k,1593) - lu(k,708) * lu(k,1574) + lu(k,1596) = lu(k,1596) - lu(k,709) * lu(k,1574) + lu(k,1929) = lu(k,1929) - lu(k,705) * lu(k,1912) + lu(k,1957) = lu(k,1957) - lu(k,706) * lu(k,1912) + lu(k,1962) = lu(k,1962) - lu(k,707) * lu(k,1912) + lu(k,1964) = lu(k,1964) - lu(k,708) * lu(k,1912) + lu(k,1968) = - lu(k,709) * lu(k,1912) + lu(k,2038) = lu(k,2038) - lu(k,705) * lu(k,2028) + lu(k,2046) = lu(k,2046) - lu(k,706) * lu(k,2028) + lu(k,2051) = lu(k,2051) - lu(k,707) * lu(k,2028) + lu(k,2053) = lu(k,2053) - lu(k,708) * lu(k,2028) + lu(k,2057) = - lu(k,709) * lu(k,2028) + lu(k,711) = 1._r8 / lu(k,711) + lu(k,712) = lu(k,712) * lu(k,711) + lu(k,713) = lu(k,713) * lu(k,711) + lu(k,714) = lu(k,714) * lu(k,711) + lu(k,715) = lu(k,715) * lu(k,711) + lu(k,716) = lu(k,716) * lu(k,711) + lu(k,717) = lu(k,717) * lu(k,711) + lu(k,718) = lu(k,718) * lu(k,711) + lu(k,719) = lu(k,719) * lu(k,711) + lu(k,720) = lu(k,720) * lu(k,711) lu(k,1085) = lu(k,1085) - lu(k,712) * lu(k,1083) lu(k,1086) = lu(k,1086) - lu(k,713) * lu(k,1083) lu(k,1087) = lu(k,1087) - lu(k,714) * lu(k,1083) lu(k,1088) = lu(k,1088) - lu(k,715) * lu(k,1083) lu(k,1089) = lu(k,1089) - lu(k,716) * lu(k,1083) - lu(k,1093) = lu(k,1093) - lu(k,717) * lu(k,1083) - lu(k,1094) = lu(k,1094) - lu(k,718) * lu(k,1083) + lu(k,1090) = lu(k,1090) - lu(k,717) * lu(k,1083) + lu(k,1093) = lu(k,1093) - lu(k,718) * lu(k,1083) lu(k,1096) = lu(k,1096) - lu(k,719) * lu(k,1083) - lu(k,1942) = lu(k,1942) - lu(k,711) * lu(k,1941) - lu(k,1960) = lu(k,1960) - lu(k,712) * lu(k,1941) - lu(k,1969) = lu(k,1969) - lu(k,713) * lu(k,1941) - lu(k,1973) = lu(k,1973) - lu(k,714) * lu(k,1941) - lu(k,1978) = lu(k,1978) - lu(k,715) * lu(k,1941) - lu(k,1994) = lu(k,1994) - lu(k,716) * lu(k,1941) - lu(k,2006) = lu(k,2006) - lu(k,717) * lu(k,1941) - lu(k,2009) = lu(k,2009) - lu(k,718) * lu(k,1941) - lu(k,2016) = lu(k,2016) - lu(k,719) * lu(k,1941) - lu(k,2159) = lu(k,2159) - lu(k,711) * lu(k,2158) - lu(k,2175) = lu(k,2175) - lu(k,712) * lu(k,2158) - lu(k,2178) = lu(k,2178) - lu(k,713) * lu(k,2158) - lu(k,2182) = lu(k,2182) - lu(k,714) * lu(k,2158) - lu(k,2185) = lu(k,2185) - lu(k,715) * lu(k,2158) - lu(k,2200) = lu(k,2200) - lu(k,716) * lu(k,2158) - lu(k,2211) = lu(k,2211) - lu(k,717) * lu(k,2158) - lu(k,2214) = lu(k,2214) - lu(k,718) * lu(k,2158) - lu(k,2221) = lu(k,2221) - lu(k,719) * lu(k,2158) + lu(k,1097) = lu(k,1097) - lu(k,720) * lu(k,1083) + lu(k,1793) = lu(k,1793) - lu(k,712) * lu(k,1790) + lu(k,1809) = lu(k,1809) - lu(k,713) * lu(k,1790) + lu(k,1819) = lu(k,1819) - lu(k,714) * lu(k,1790) + lu(k,1823) = lu(k,1823) - lu(k,715) * lu(k,1790) + lu(k,1828) = lu(k,1828) - lu(k,716) * lu(k,1790) + lu(k,1844) = lu(k,1844) - lu(k,717) * lu(k,1790) + lu(k,1854) = lu(k,1854) - lu(k,718) * lu(k,1790) + lu(k,1863) = lu(k,1863) - lu(k,719) * lu(k,1790) + lu(k,1865) = lu(k,1865) - lu(k,720) * lu(k,1790) + lu(k,2324) = lu(k,2324) - lu(k,712) * lu(k,2322) + lu(k,2338) = lu(k,2338) - lu(k,713) * lu(k,2322) + lu(k,2342) = lu(k,2342) - lu(k,714) * lu(k,2322) + lu(k,2346) = lu(k,2346) - lu(k,715) * lu(k,2322) + lu(k,2349) = lu(k,2349) - lu(k,716) * lu(k,2322) + lu(k,2364) = lu(k,2364) - lu(k,717) * lu(k,2322) + lu(k,2373) = lu(k,2373) - lu(k,718) * lu(k,2322) + lu(k,2382) = lu(k,2382) - lu(k,719) * lu(k,2322) + lu(k,2384) = lu(k,2384) - lu(k,720) * lu(k,2322) lu(k,721) = 1._r8 / lu(k,721) lu(k,722) = lu(k,722) * lu(k,721) lu(k,723) = lu(k,723) * lu(k,721) @@ -2149,30 +2153,36 @@ subroutine lu_fac15( avec_len, lu ) lu(k,725) = lu(k,725) * lu(k,721) lu(k,726) = lu(k,726) * lu(k,721) lu(k,727) = lu(k,727) * lu(k,721) - lu(k,1088) = lu(k,1088) - lu(k,722) * lu(k,1084) - lu(k,1089) = lu(k,1089) - lu(k,723) * lu(k,1084) - lu(k,1091) = lu(k,1091) - lu(k,724) * lu(k,1084) - lu(k,1092) = lu(k,1092) - lu(k,725) * lu(k,1084) - lu(k,1093) = lu(k,1093) - lu(k,726) * lu(k,1084) - lu(k,1094) = lu(k,1094) - lu(k,727) * lu(k,1084) - lu(k,1765) = lu(k,1765) - lu(k,722) * lu(k,1741) - lu(k,1781) = lu(k,1781) - lu(k,723) * lu(k,1741) - lu(k,1787) = lu(k,1787) - lu(k,724) * lu(k,1741) - lu(k,1788) = lu(k,1788) - lu(k,725) * lu(k,1741) - lu(k,1790) = lu(k,1790) - lu(k,726) * lu(k,1741) - lu(k,1793) = lu(k,1793) - lu(k,727) * lu(k,1741) - lu(k,1978) = lu(k,1978) - lu(k,722) * lu(k,1942) - lu(k,1994) = lu(k,1994) - lu(k,723) * lu(k,1942) - lu(k,2003) = lu(k,2003) - lu(k,724) * lu(k,1942) - lu(k,2004) = lu(k,2004) - lu(k,725) * lu(k,1942) - lu(k,2006) = lu(k,2006) - lu(k,726) * lu(k,1942) - lu(k,2009) = lu(k,2009) - lu(k,727) * lu(k,1942) - lu(k,2185) = lu(k,2185) - lu(k,722) * lu(k,2159) - lu(k,2200) = lu(k,2200) - lu(k,723) * lu(k,2159) - lu(k,2208) = lu(k,2208) - lu(k,724) * lu(k,2159) - lu(k,2209) = lu(k,2209) - lu(k,725) * lu(k,2159) - lu(k,2211) = lu(k,2211) - lu(k,726) * lu(k,2159) - lu(k,2214) = lu(k,2214) - lu(k,727) * lu(k,2159) + lu(k,728) = lu(k,728) * lu(k,721) + lu(k,729) = lu(k,729) * lu(k,721) + lu(k,730) = lu(k,730) * lu(k,721) + lu(k,1219) = lu(k,1219) - lu(k,722) * lu(k,1217) + lu(k,1220) = lu(k,1220) - lu(k,723) * lu(k,1217) + lu(k,1221) = lu(k,1221) - lu(k,724) * lu(k,1217) + lu(k,1222) = lu(k,1222) - lu(k,725) * lu(k,1217) + lu(k,1223) = lu(k,1223) - lu(k,726) * lu(k,1217) + lu(k,1226) = lu(k,1226) - lu(k,727) * lu(k,1217) + lu(k,1228) = - lu(k,728) * lu(k,1217) + lu(k,1232) = lu(k,1232) - lu(k,729) * lu(k,1217) + lu(k,1233) = lu(k,1233) - lu(k,730) * lu(k,1217) + lu(k,1823) = lu(k,1823) - lu(k,722) * lu(k,1791) + lu(k,1826) = lu(k,1826) - lu(k,723) * lu(k,1791) + lu(k,1829) = lu(k,1829) - lu(k,724) * lu(k,1791) + lu(k,1830) = lu(k,1830) - lu(k,725) * lu(k,1791) + lu(k,1831) = lu(k,1831) - lu(k,726) * lu(k,1791) + lu(k,1845) = lu(k,1845) - lu(k,727) * lu(k,1791) + lu(k,1854) = lu(k,1854) - lu(k,728) * lu(k,1791) + lu(k,1863) = lu(k,1863) - lu(k,729) * lu(k,1791) + lu(k,1865) = lu(k,1865) - lu(k,730) * lu(k,1791) + lu(k,2346) = lu(k,2346) - lu(k,722) * lu(k,2323) + lu(k,2348) = - lu(k,723) * lu(k,2323) + lu(k,2350) = lu(k,2350) - lu(k,724) * lu(k,2323) + lu(k,2351) = lu(k,2351) - lu(k,725) * lu(k,2323) + lu(k,2352) = lu(k,2352) - lu(k,726) * lu(k,2323) + lu(k,2365) = lu(k,2365) - lu(k,727) * lu(k,2323) + lu(k,2373) = lu(k,2373) - lu(k,728) * lu(k,2323) + lu(k,2382) = lu(k,2382) - lu(k,729) * lu(k,2323) + lu(k,2384) = lu(k,2384) - lu(k,730) * lu(k,2323) end do end subroutine lu_fac15 subroutine lu_fac16( avec_len, lu ) @@ -2189,113 +2199,107 @@ subroutine lu_fac16( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,728) = 1._r8 / lu(k,728) - lu(k,729) = lu(k,729) * lu(k,728) - lu(k,730) = lu(k,730) * lu(k,728) - lu(k,731) = lu(k,731) * lu(k,728) - lu(k,732) = lu(k,732) * lu(k,728) - lu(k,733) = lu(k,733) * lu(k,728) - lu(k,734) = lu(k,734) * lu(k,728) - lu(k,735) = lu(k,735) * lu(k,728) - lu(k,736) = lu(k,736) * lu(k,728) - lu(k,737) = lu(k,737) * lu(k,728) - lu(k,1218) = lu(k,1218) - lu(k,729) * lu(k,1216) - lu(k,1219) = lu(k,1219) - lu(k,730) * lu(k,1216) - lu(k,1220) = lu(k,1220) - lu(k,731) * lu(k,1216) - lu(k,1221) = lu(k,1221) - lu(k,732) * lu(k,1216) - lu(k,1222) = lu(k,1222) - lu(k,733) * lu(k,1216) - lu(k,1225) = lu(k,1225) - lu(k,734) * lu(k,1216) - lu(k,1228) = - lu(k,735) * lu(k,1216) - lu(k,1229) = lu(k,1229) - lu(k,736) * lu(k,1216) - lu(k,1232) = lu(k,1232) - lu(k,737) * lu(k,1216) - lu(k,1973) = lu(k,1973) - lu(k,729) * lu(k,1943) - lu(k,1976) = lu(k,1976) - lu(k,730) * lu(k,1943) - lu(k,1979) = lu(k,1979) - lu(k,731) * lu(k,1943) - lu(k,1980) = lu(k,1980) - lu(k,732) * lu(k,1943) - lu(k,1981) = lu(k,1981) - lu(k,733) * lu(k,1943) - lu(k,1995) = lu(k,1995) - lu(k,734) * lu(k,1943) - lu(k,2006) = lu(k,2006) - lu(k,735) * lu(k,1943) - lu(k,2009) = lu(k,2009) - lu(k,736) * lu(k,1943) - lu(k,2016) = lu(k,2016) - lu(k,737) * lu(k,1943) - lu(k,2182) = lu(k,2182) - lu(k,729) * lu(k,2160) - lu(k,2184) = - lu(k,730) * lu(k,2160) - lu(k,2186) = lu(k,2186) - lu(k,731) * lu(k,2160) - lu(k,2187) = lu(k,2187) - lu(k,732) * lu(k,2160) - lu(k,2188) = lu(k,2188) - lu(k,733) * lu(k,2160) - lu(k,2201) = lu(k,2201) - lu(k,734) * lu(k,2160) - lu(k,2211) = lu(k,2211) - lu(k,735) * lu(k,2160) - lu(k,2214) = lu(k,2214) - lu(k,736) * lu(k,2160) - lu(k,2221) = lu(k,2221) - lu(k,737) * lu(k,2160) - lu(k,739) = 1._r8 / lu(k,739) - lu(k,740) = lu(k,740) * lu(k,739) - lu(k,741) = lu(k,741) * lu(k,739) - lu(k,742) = lu(k,742) * lu(k,739) - lu(k,743) = lu(k,743) * lu(k,739) - lu(k,744) = lu(k,744) * lu(k,739) - lu(k,745) = lu(k,745) * lu(k,739) - lu(k,746) = lu(k,746) * lu(k,739) - lu(k,747) = lu(k,747) * lu(k,739) - lu(k,748) = lu(k,748) * lu(k,739) - lu(k,906) = - lu(k,740) * lu(k,905) - lu(k,907) = lu(k,907) - lu(k,741) * lu(k,905) - lu(k,908) = lu(k,908) - lu(k,742) * lu(k,905) - lu(k,909) = lu(k,909) - lu(k,743) * lu(k,905) - lu(k,910) = lu(k,910) - lu(k,744) * lu(k,905) - lu(k,913) = lu(k,913) - lu(k,745) * lu(k,905) - lu(k,914) = lu(k,914) - lu(k,746) * lu(k,905) - lu(k,915) = lu(k,915) - lu(k,747) * lu(k,905) - lu(k,916) = lu(k,916) - lu(k,748) * lu(k,905) - lu(k,1575) = lu(k,1575) - lu(k,740) * lu(k,1573) - lu(k,1576) = lu(k,1576) - lu(k,741) * lu(k,1573) - lu(k,1577) = lu(k,1577) - lu(k,742) * lu(k,1573) - lu(k,1578) = lu(k,1578) - lu(k,743) * lu(k,1573) - lu(k,1580) = lu(k,1580) - lu(k,744) * lu(k,1573) - lu(k,1586) = lu(k,1586) - lu(k,745) * lu(k,1573) - lu(k,1590) = lu(k,1590) - lu(k,746) * lu(k,1573) - lu(k,1591) = lu(k,1591) - lu(k,747) * lu(k,1573) - lu(k,1597) = lu(k,1597) - lu(k,748) * lu(k,1573) - lu(k,2439) = lu(k,2439) - lu(k,740) * lu(k,2436) - lu(k,2442) = lu(k,2442) - lu(k,741) * lu(k,2436) - lu(k,2443) = lu(k,2443) - lu(k,742) * lu(k,2436) - lu(k,2444) = lu(k,2444) - lu(k,743) * lu(k,2436) - lu(k,2447) = lu(k,2447) - lu(k,744) * lu(k,2436) - lu(k,2454) = lu(k,2454) - lu(k,745) * lu(k,2436) - lu(k,2458) = lu(k,2458) - lu(k,746) * lu(k,2436) - lu(k,2459) = lu(k,2459) - lu(k,747) * lu(k,2436) - lu(k,2469) = lu(k,2469) - lu(k,748) * lu(k,2436) - lu(k,749) = 1._r8 / lu(k,749) - lu(k,750) = lu(k,750) * lu(k,749) - lu(k,751) = lu(k,751) * lu(k,749) - lu(k,752) = lu(k,752) * lu(k,749) - lu(k,753) = lu(k,753) * lu(k,749) - lu(k,1183) = lu(k,1183) - lu(k,750) * lu(k,1173) - lu(k,1187) = lu(k,1187) - lu(k,751) * lu(k,1173) - lu(k,1191) = lu(k,1191) - lu(k,752) * lu(k,1173) - lu(k,1194) = - lu(k,753) * lu(k,1173) - lu(k,1443) = lu(k,1443) - lu(k,750) * lu(k,1438) - lu(k,1446) = lu(k,1446) - lu(k,751) * lu(k,1438) - lu(k,1450) = lu(k,1450) - lu(k,752) * lu(k,1438) - lu(k,1453) = lu(k,1453) - lu(k,753) * lu(k,1438) - lu(k,1473) = lu(k,1473) - lu(k,750) * lu(k,1457) - lu(k,1477) = lu(k,1477) - lu(k,751) * lu(k,1457) - lu(k,1482) = lu(k,1482) - lu(k,752) * lu(k,1457) - lu(k,1485) = lu(k,1485) - lu(k,753) * lu(k,1457) - lu(k,1995) = lu(k,1995) - lu(k,750) * lu(k,1944) - lu(k,2006) = lu(k,2006) - lu(k,751) * lu(k,1944) - lu(k,2013) = lu(k,2013) - lu(k,752) * lu(k,1944) - lu(k,2017) = lu(k,2017) - lu(k,753) * lu(k,1944) - lu(k,2201) = lu(k,2201) - lu(k,750) * lu(k,2161) - lu(k,2211) = lu(k,2211) - lu(k,751) * lu(k,2161) - lu(k,2218) = lu(k,2218) - lu(k,752) * lu(k,2161) - lu(k,2222) = lu(k,2222) - lu(k,753) * lu(k,2161) - lu(k,2346) = lu(k,2346) - lu(k,750) * lu(k,2318) - lu(k,2353) = lu(k,2353) - lu(k,751) * lu(k,2318) - lu(k,2360) = lu(k,2360) - lu(k,752) * lu(k,2318) - lu(k,2364) = lu(k,2364) - lu(k,753) * lu(k,2318) - lu(k,2408) = lu(k,2408) - lu(k,750) * lu(k,2377) - lu(k,2417) = lu(k,2417) - lu(k,751) * lu(k,2377) - lu(k,2424) = lu(k,2424) - lu(k,752) * lu(k,2377) - lu(k,2428) = - lu(k,753) * lu(k,2377) + lu(k,732) = 1._r8 / lu(k,732) + lu(k,733) = lu(k,733) * lu(k,732) + lu(k,734) = lu(k,734) * lu(k,732) + lu(k,735) = lu(k,735) * lu(k,732) + lu(k,736) = lu(k,736) * lu(k,732) + lu(k,737) = lu(k,737) * lu(k,732) + lu(k,738) = lu(k,738) * lu(k,732) + lu(k,739) = lu(k,739) * lu(k,732) + lu(k,740) = lu(k,740) * lu(k,732) + lu(k,741) = lu(k,741) * lu(k,732) + lu(k,1085) = lu(k,1085) - lu(k,733) * lu(k,1084) + lu(k,1086) = lu(k,1086) - lu(k,734) * lu(k,1084) + lu(k,1088) = lu(k,1088) - lu(k,735) * lu(k,1084) + lu(k,1089) = lu(k,1089) - lu(k,736) * lu(k,1084) + lu(k,1090) = lu(k,1090) - lu(k,737) * lu(k,1084) + lu(k,1092) = lu(k,1092) - lu(k,738) * lu(k,1084) + lu(k,1093) = lu(k,1093) - lu(k,739) * lu(k,1084) + lu(k,1096) = lu(k,1096) - lu(k,740) * lu(k,1084) + lu(k,1097) = lu(k,1097) - lu(k,741) * lu(k,1084) + lu(k,1793) = lu(k,1793) - lu(k,733) * lu(k,1792) + lu(k,1809) = lu(k,1809) - lu(k,734) * lu(k,1792) + lu(k,1823) = lu(k,1823) - lu(k,735) * lu(k,1792) + lu(k,1828) = lu(k,1828) - lu(k,736) * lu(k,1792) + lu(k,1844) = lu(k,1844) - lu(k,737) * lu(k,1792) + lu(k,1853) = lu(k,1853) - lu(k,738) * lu(k,1792) + lu(k,1854) = lu(k,1854) - lu(k,739) * lu(k,1792) + lu(k,1863) = lu(k,1863) - lu(k,740) * lu(k,1792) + lu(k,1865) = lu(k,1865) - lu(k,741) * lu(k,1792) + lu(k,1914) = lu(k,1914) - lu(k,733) * lu(k,1913) + lu(k,1925) = lu(k,1925) - lu(k,734) * lu(k,1913) + lu(k,1934) = lu(k,1934) - lu(k,735) * lu(k,1913) + lu(k,1938) = lu(k,1938) - lu(k,736) * lu(k,1913) + lu(k,1954) = lu(k,1954) - lu(k,737) * lu(k,1913) + lu(k,1960) = lu(k,1960) - lu(k,738) * lu(k,1913) + lu(k,1961) = lu(k,1961) - lu(k,739) * lu(k,1913) + lu(k,1970) = lu(k,1970) - lu(k,740) * lu(k,1913) + lu(k,1972) = lu(k,1972) - lu(k,741) * lu(k,1913) + lu(k,743) = 1._r8 / lu(k,743) + lu(k,744) = lu(k,744) * lu(k,743) + lu(k,745) = lu(k,745) * lu(k,743) + lu(k,746) = lu(k,746) * lu(k,743) + lu(k,747) = lu(k,747) * lu(k,743) + lu(k,748) = lu(k,748) * lu(k,743) + lu(k,749) = lu(k,749) * lu(k,743) + lu(k,1089) = lu(k,1089) - lu(k,744) * lu(k,1085) + lu(k,1090) = lu(k,1090) - lu(k,745) * lu(k,1085) + lu(k,1092) = lu(k,1092) - lu(k,746) * lu(k,1085) + lu(k,1093) = lu(k,1093) - lu(k,747) * lu(k,1085) + lu(k,1094) = lu(k,1094) - lu(k,748) * lu(k,1085) + lu(k,1096) = lu(k,1096) - lu(k,749) * lu(k,1085) + lu(k,1828) = lu(k,1828) - lu(k,744) * lu(k,1793) + lu(k,1844) = lu(k,1844) - lu(k,745) * lu(k,1793) + lu(k,1853) = lu(k,1853) - lu(k,746) * lu(k,1793) + lu(k,1854) = lu(k,1854) - lu(k,747) * lu(k,1793) + lu(k,1855) = lu(k,1855) - lu(k,748) * lu(k,1793) + lu(k,1863) = lu(k,1863) - lu(k,749) * lu(k,1793) + lu(k,1938) = lu(k,1938) - lu(k,744) * lu(k,1914) + lu(k,1954) = lu(k,1954) - lu(k,745) * lu(k,1914) + lu(k,1960) = lu(k,1960) - lu(k,746) * lu(k,1914) + lu(k,1961) = lu(k,1961) - lu(k,747) * lu(k,1914) + lu(k,1962) = lu(k,1962) - lu(k,748) * lu(k,1914) + lu(k,1970) = lu(k,1970) - lu(k,749) * lu(k,1914) + lu(k,2349) = lu(k,2349) - lu(k,744) * lu(k,2324) + lu(k,2364) = lu(k,2364) - lu(k,745) * lu(k,2324) + lu(k,2372) = lu(k,2372) - lu(k,746) * lu(k,2324) + lu(k,2373) = lu(k,2373) - lu(k,747) * lu(k,2324) + lu(k,2374) = lu(k,2374) - lu(k,748) * lu(k,2324) + lu(k,2382) = lu(k,2382) - lu(k,749) * lu(k,2324) + lu(k,750) = 1._r8 / lu(k,750) + lu(k,751) = lu(k,751) * lu(k,750) + lu(k,752) = lu(k,752) * lu(k,750) + lu(k,753) = lu(k,753) * lu(k,750) + lu(k,754) = lu(k,754) * lu(k,750) + lu(k,1184) = lu(k,1184) - lu(k,751) * lu(k,1174) + lu(k,1188) = lu(k,1188) - lu(k,752) * lu(k,1174) + lu(k,1191) = lu(k,1191) - lu(k,753) * lu(k,1174) + lu(k,1195) = - lu(k,754) * lu(k,1174) + lu(k,1444) = lu(k,1444) - lu(k,751) * lu(k,1439) + lu(k,1446) = lu(k,1446) - lu(k,752) * lu(k,1439) + lu(k,1449) = lu(k,1449) - lu(k,753) * lu(k,1439) + lu(k,1454) = lu(k,1454) - lu(k,754) * lu(k,1439) + lu(k,1474) = lu(k,1474) - lu(k,751) * lu(k,1458) + lu(k,1478) = lu(k,1478) - lu(k,752) * lu(k,1458) + lu(k,1481) = lu(k,1481) - lu(k,753) * lu(k,1458) + lu(k,1486) = lu(k,1486) - lu(k,754) * lu(k,1458) + lu(k,1845) = lu(k,1845) - lu(k,751) * lu(k,1794) + lu(k,1854) = lu(k,1854) - lu(k,752) * lu(k,1794) + lu(k,1860) = lu(k,1860) - lu(k,753) * lu(k,1794) + lu(k,1867) = lu(k,1867) - lu(k,754) * lu(k,1794) + lu(k,2107) = lu(k,2107) - lu(k,751) * lu(k,2076) + lu(k,2114) = lu(k,2114) - lu(k,752) * lu(k,2076) + lu(k,2120) = lu(k,2120) - lu(k,753) * lu(k,2076) + lu(k,2127) = - lu(k,754) * lu(k,2076) + lu(k,2182) = lu(k,2182) - lu(k,751) * lu(k,2154) + lu(k,2187) = lu(k,2187) - lu(k,752) * lu(k,2154) + lu(k,2193) = lu(k,2193) - lu(k,753) * lu(k,2154) + lu(k,2200) = lu(k,2200) - lu(k,754) * lu(k,2154) + lu(k,2365) = lu(k,2365) - lu(k,751) * lu(k,2325) + lu(k,2373) = lu(k,2373) - lu(k,752) * lu(k,2325) + lu(k,2379) = lu(k,2379) - lu(k,753) * lu(k,2325) + lu(k,2386) = lu(k,2386) - lu(k,754) * lu(k,2325) lu(k,755) = 1._r8 / lu(k,755) lu(k,756) = lu(k,756) * lu(k,755) lu(k,757) = lu(k,757) * lu(k,755) @@ -2303,36 +2307,36 @@ subroutine lu_fac16( avec_len, lu ) lu(k,759) = lu(k,759) * lu(k,755) lu(k,760) = lu(k,760) * lu(k,755) lu(k,761) = lu(k,761) * lu(k,755) - lu(k,1296) = - lu(k,756) * lu(k,1290) - lu(k,1298) = - lu(k,757) * lu(k,1290) - lu(k,1300) = - lu(k,758) * lu(k,1290) - lu(k,1305) = lu(k,1305) - lu(k,759) * lu(k,1290) - lu(k,1307) = lu(k,1307) - lu(k,760) * lu(k,1290) - lu(k,1310) = lu(k,1310) - lu(k,761) * lu(k,1290) - lu(k,1340) = - lu(k,756) * lu(k,1334) - lu(k,1341) = lu(k,1341) - lu(k,757) * lu(k,1334) - lu(k,1345) = lu(k,1345) - lu(k,758) * lu(k,1334) - lu(k,1351) = lu(k,1351) - lu(k,759) * lu(k,1334) - lu(k,1353) = lu(k,1353) - lu(k,760) * lu(k,1334) - lu(k,1357) = lu(k,1357) - lu(k,761) * lu(k,1334) - lu(k,1373) = lu(k,1373) - lu(k,756) * lu(k,1363) - lu(k,1374) = - lu(k,757) * lu(k,1363) - lu(k,1378) = - lu(k,758) * lu(k,1363) - lu(k,1384) = lu(k,1384) - lu(k,759) * lu(k,1363) - lu(k,1386) = lu(k,1386) - lu(k,760) * lu(k,1363) - lu(k,1390) = lu(k,1390) - lu(k,761) * lu(k,1363) - lu(k,1985) = lu(k,1985) - lu(k,756) * lu(k,1945) - lu(k,1987) = lu(k,1987) - lu(k,757) * lu(k,1945) - lu(k,1992) = lu(k,1992) - lu(k,758) * lu(k,1945) - lu(k,2006) = lu(k,2006) - lu(k,759) * lu(k,1945) - lu(k,2009) = lu(k,2009) - lu(k,760) * lu(k,1945) - lu(k,2016) = lu(k,2016) - lu(k,761) * lu(k,1945) - lu(k,2191) = lu(k,2191) - lu(k,756) * lu(k,2162) - lu(k,2193) = - lu(k,757) * lu(k,2162) - lu(k,2198) = - lu(k,758) * lu(k,2162) - lu(k,2211) = lu(k,2211) - lu(k,759) * lu(k,2162) - lu(k,2214) = lu(k,2214) - lu(k,760) * lu(k,2162) - lu(k,2221) = lu(k,2221) - lu(k,761) * lu(k,2162) + lu(k,1521) = lu(k,1521) - lu(k,756) * lu(k,1519) + lu(k,1523) = lu(k,1523) - lu(k,757) * lu(k,1519) + lu(k,1526) = lu(k,1526) - lu(k,758) * lu(k,1519) + lu(k,1529) = lu(k,1529) - lu(k,759) * lu(k,1519) + lu(k,1530) = lu(k,1530) - lu(k,760) * lu(k,1519) + lu(k,1531) = lu(k,1531) - lu(k,761) * lu(k,1519) + lu(k,1585) = lu(k,1585) - lu(k,756) * lu(k,1575) + lu(k,1587) = lu(k,1587) - lu(k,757) * lu(k,1575) + lu(k,1590) = - lu(k,758) * lu(k,1575) + lu(k,1593) = lu(k,1593) - lu(k,759) * lu(k,1575) + lu(k,1594) = lu(k,1594) - lu(k,760) * lu(k,1575) + lu(k,1595) = lu(k,1595) - lu(k,761) * lu(k,1575) + lu(k,1847) = lu(k,1847) - lu(k,756) * lu(k,1795) + lu(k,1850) = lu(k,1850) - lu(k,757) * lu(k,1795) + lu(k,1854) = lu(k,1854) - lu(k,758) * lu(k,1795) + lu(k,1857) = lu(k,1857) - lu(k,759) * lu(k,1795) + lu(k,1858) = lu(k,1858) - lu(k,760) * lu(k,1795) + lu(k,1859) = lu(k,1859) - lu(k,761) * lu(k,1795) + lu(k,2043) = lu(k,2043) - lu(k,756) * lu(k,2029) + lu(k,2046) = lu(k,2046) - lu(k,757) * lu(k,2029) + lu(k,2050) = lu(k,2050) - lu(k,758) * lu(k,2029) + lu(k,2053) = lu(k,2053) - lu(k,759) * lu(k,2029) + lu(k,2054) = lu(k,2054) - lu(k,760) * lu(k,2029) + lu(k,2055) = lu(k,2055) - lu(k,761) * lu(k,2029) + lu(k,2108) = lu(k,2108) - lu(k,756) * lu(k,2077) + lu(k,2110) = lu(k,2110) - lu(k,757) * lu(k,2077) + lu(k,2114) = lu(k,2114) - lu(k,758) * lu(k,2077) + lu(k,2117) = lu(k,2117) - lu(k,759) * lu(k,2077) + lu(k,2118) = lu(k,2118) - lu(k,760) * lu(k,2077) + lu(k,2119) = lu(k,2119) - lu(k,761) * lu(k,2077) lu(k,766) = 1._r8 / lu(k,766) lu(k,767) = lu(k,767) * lu(k,766) lu(k,768) = lu(k,768) * lu(k,766) @@ -2344,36 +2348,72 @@ subroutine lu_fac16( avec_len, lu ) lu(k,774) = lu(k,774) * lu(k,766) lu(k,775) = lu(k,775) * lu(k,766) lu(k,776) = lu(k,776) * lu(k,766) - lu(k,810) = lu(k,810) - lu(k,767) * lu(k,809) - lu(k,811) = lu(k,811) - lu(k,768) * lu(k,809) - lu(k,812) = lu(k,812) - lu(k,769) * lu(k,809) - lu(k,813) = lu(k,813) - lu(k,770) * lu(k,809) - lu(k,814) = lu(k,814) - lu(k,771) * lu(k,809) - lu(k,815) = lu(k,815) - lu(k,772) * lu(k,809) - lu(k,816) = lu(k,816) - lu(k,773) * lu(k,809) - lu(k,817) = lu(k,817) - lu(k,774) * lu(k,809) - lu(k,820) = - lu(k,775) * lu(k,809) - lu(k,821) = lu(k,821) - lu(k,776) * lu(k,809) - lu(k,1948) = lu(k,1948) - lu(k,767) * lu(k,1946) - lu(k,1950) = lu(k,1950) - lu(k,768) * lu(k,1946) - lu(k,1951) = lu(k,1951) - lu(k,769) * lu(k,1946) - lu(k,1961) = lu(k,1961) - lu(k,770) * lu(k,1946) - lu(k,1970) = lu(k,1970) - lu(k,771) * lu(k,1946) - lu(k,1979) = lu(k,1979) - lu(k,772) * lu(k,1946) - lu(k,1988) = lu(k,1988) - lu(k,773) * lu(k,1946) - lu(k,1994) = lu(k,1994) - lu(k,774) * lu(k,1946) - lu(k,2006) = lu(k,2006) - lu(k,775) * lu(k,1946) - lu(k,2009) = lu(k,2009) - lu(k,776) * lu(k,1946) - lu(k,2164) = lu(k,2164) - lu(k,767) * lu(k,2163) - lu(k,2166) = lu(k,2166) - lu(k,768) * lu(k,2163) - lu(k,2167) = lu(k,2167) - lu(k,769) * lu(k,2163) - lu(k,2176) = lu(k,2176) - lu(k,770) * lu(k,2163) - lu(k,2179) = lu(k,2179) - lu(k,771) * lu(k,2163) - lu(k,2186) = lu(k,2186) - lu(k,772) * lu(k,2163) - lu(k,2194) = lu(k,2194) - lu(k,773) * lu(k,2163) - lu(k,2200) = lu(k,2200) - lu(k,774) * lu(k,2163) - lu(k,2211) = lu(k,2211) - lu(k,775) * lu(k,2163) - lu(k,2214) = lu(k,2214) - lu(k,776) * lu(k,2163) + lu(k,811) = lu(k,811) - lu(k,767) * lu(k,810) + lu(k,812) = lu(k,812) - lu(k,768) * lu(k,810) + lu(k,813) = lu(k,813) - lu(k,769) * lu(k,810) + lu(k,814) = lu(k,814) - lu(k,770) * lu(k,810) + lu(k,815) = lu(k,815) - lu(k,771) * lu(k,810) + lu(k,816) = lu(k,816) - lu(k,772) * lu(k,810) + lu(k,817) = lu(k,817) - lu(k,773) * lu(k,810) + lu(k,818) = lu(k,818) - lu(k,774) * lu(k,810) + lu(k,820) = - lu(k,775) * lu(k,810) + lu(k,822) = lu(k,822) - lu(k,776) * lu(k,810) + lu(k,1797) = lu(k,1797) - lu(k,767) * lu(k,1796) + lu(k,1800) = lu(k,1800) - lu(k,768) * lu(k,1796) + lu(k,1801) = lu(k,1801) - lu(k,769) * lu(k,1796) + lu(k,1811) = lu(k,1811) - lu(k,770) * lu(k,1796) + lu(k,1820) = lu(k,1820) - lu(k,771) * lu(k,1796) + lu(k,1829) = lu(k,1829) - lu(k,772) * lu(k,1796) + lu(k,1838) = lu(k,1838) - lu(k,773) * lu(k,1796) + lu(k,1844) = lu(k,1844) - lu(k,774) * lu(k,1796) + lu(k,1854) = lu(k,1854) - lu(k,775) * lu(k,1796) + lu(k,1863) = lu(k,1863) - lu(k,776) * lu(k,1796) + lu(k,2327) = lu(k,2327) - lu(k,767) * lu(k,2326) + lu(k,2330) = lu(k,2330) - lu(k,768) * lu(k,2326) + lu(k,2331) = lu(k,2331) - lu(k,769) * lu(k,2326) + lu(k,2340) = lu(k,2340) - lu(k,770) * lu(k,2326) + lu(k,2343) = lu(k,2343) - lu(k,771) * lu(k,2326) + lu(k,2350) = lu(k,2350) - lu(k,772) * lu(k,2326) + lu(k,2358) = lu(k,2358) - lu(k,773) * lu(k,2326) + lu(k,2364) = lu(k,2364) - lu(k,774) * lu(k,2326) + lu(k,2373) = lu(k,2373) - lu(k,775) * lu(k,2326) + lu(k,2382) = lu(k,2382) - lu(k,776) * lu(k,2326) + lu(k,777) = 1._r8 / lu(k,777) + lu(k,778) = lu(k,778) * lu(k,777) + lu(k,779) = lu(k,779) * lu(k,777) + lu(k,780) = lu(k,780) * lu(k,777) + lu(k,781) = lu(k,781) * lu(k,777) + lu(k,782) = lu(k,782) * lu(k,777) + lu(k,791) = lu(k,791) - lu(k,778) * lu(k,787) + lu(k,792) = lu(k,792) - lu(k,779) * lu(k,787) + lu(k,794) = lu(k,794) - lu(k,780) * lu(k,787) + lu(k,796) = lu(k,796) - lu(k,781) * lu(k,787) + lu(k,797) = lu(k,797) - lu(k,782) * lu(k,787) + lu(k,815) = lu(k,815) - lu(k,778) * lu(k,811) + lu(k,816) = lu(k,816) - lu(k,779) * lu(k,811) + lu(k,819) = lu(k,819) - lu(k,780) * lu(k,811) + lu(k,821) = lu(k,821) - lu(k,781) * lu(k,811) + lu(k,822) = lu(k,822) - lu(k,782) * lu(k,811) + lu(k,1667) = - lu(k,778) * lu(k,1660) + lu(k,1668) = - lu(k,779) * lu(k,1660) + lu(k,1680) = lu(k,1680) - lu(k,780) * lu(k,1660) + lu(k,1682) = lu(k,1682) - lu(k,781) * lu(k,1660) + lu(k,1690) = lu(k,1690) - lu(k,782) * lu(k,1660) + lu(k,1820) = lu(k,1820) - lu(k,778) * lu(k,1797) + lu(k,1829) = lu(k,1829) - lu(k,779) * lu(k,1797) + lu(k,1853) = lu(k,1853) - lu(k,780) * lu(k,1797) + lu(k,1855) = lu(k,1855) - lu(k,781) * lu(k,1797) + lu(k,1863) = lu(k,1863) - lu(k,782) * lu(k,1797) + lu(k,1931) = lu(k,1931) - lu(k,778) * lu(k,1915) + lu(k,1939) = lu(k,1939) - lu(k,779) * lu(k,1915) + lu(k,1960) = lu(k,1960) - lu(k,780) * lu(k,1915) + lu(k,1962) = lu(k,1962) - lu(k,781) * lu(k,1915) + lu(k,1970) = lu(k,1970) - lu(k,782) * lu(k,1915) + lu(k,2343) = lu(k,2343) - lu(k,778) * lu(k,2327) + lu(k,2350) = lu(k,2350) - lu(k,779) * lu(k,2327) + lu(k,2372) = lu(k,2372) - lu(k,780) * lu(k,2327) + lu(k,2374) = lu(k,2374) - lu(k,781) * lu(k,2327) + lu(k,2382) = lu(k,2382) - lu(k,782) * lu(k,2327) end do end subroutine lu_fac16 subroutine lu_fac17( avec_len, lu ) @@ -2390,193 +2430,157 @@ subroutine lu_fac17( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,777) = 1._r8 / lu(k,777) - lu(k,778) = lu(k,778) * lu(k,777) - lu(k,779) = lu(k,779) * lu(k,777) - lu(k,780) = lu(k,780) * lu(k,777) - lu(k,781) = lu(k,781) * lu(k,777) - lu(k,782) = lu(k,782) * lu(k,777) - lu(k,783) = lu(k,783) * lu(k,777) - lu(k,1520) = lu(k,1520) - lu(k,778) * lu(k,1518) - lu(k,1522) = lu(k,1522) - lu(k,779) * lu(k,1518) - lu(k,1527) = lu(k,1527) - lu(k,780) * lu(k,1518) - lu(k,1530) = lu(k,1530) - lu(k,781) * lu(k,1518) - lu(k,1531) = lu(k,1531) - lu(k,782) * lu(k,1518) - lu(k,1532) = lu(k,1532) - lu(k,783) * lu(k,1518) - lu(k,1584) = lu(k,1584) - lu(k,778) * lu(k,1574) - lu(k,1586) = lu(k,1586) - lu(k,779) * lu(k,1574) - lu(k,1592) = - lu(k,780) * lu(k,1574) - lu(k,1595) = lu(k,1595) - lu(k,781) * lu(k,1574) - lu(k,1596) = lu(k,1596) - lu(k,782) * lu(k,1574) - lu(k,1597) = lu(k,1597) - lu(k,783) * lu(k,1574) - lu(k,1997) = lu(k,1997) - lu(k,778) * lu(k,1947) - lu(k,2000) = lu(k,2000) - lu(k,779) * lu(k,1947) - lu(k,2006) = lu(k,2006) - lu(k,780) * lu(k,1947) - lu(k,2011) = lu(k,2011) - lu(k,781) * lu(k,1947) - lu(k,2014) = lu(k,2014) - lu(k,782) * lu(k,1947) - lu(k,2015) = lu(k,2015) - lu(k,783) * lu(k,1947) - lu(k,2409) = lu(k,2409) - lu(k,778) * lu(k,2378) - lu(k,2411) = lu(k,2411) - lu(k,779) * lu(k,2378) - lu(k,2417) = lu(k,2417) - lu(k,780) * lu(k,2378) - lu(k,2422) = lu(k,2422) - lu(k,781) * lu(k,2378) - lu(k,2425) = lu(k,2425) - lu(k,782) * lu(k,2378) - lu(k,2426) = lu(k,2426) - lu(k,783) * lu(k,2378) - lu(k,2451) = lu(k,2451) - lu(k,778) * lu(k,2437) - lu(k,2454) = lu(k,2454) - lu(k,779) * lu(k,2437) - lu(k,2460) = lu(k,2460) - lu(k,780) * lu(k,2437) - lu(k,2465) = lu(k,2465) - lu(k,781) * lu(k,2437) - lu(k,2468) = lu(k,2468) - lu(k,782) * lu(k,2437) - lu(k,2469) = lu(k,2469) - lu(k,783) * lu(k,2437) - lu(k,784) = 1._r8 / lu(k,784) - lu(k,785) = lu(k,785) * lu(k,784) - lu(k,786) = lu(k,786) * lu(k,784) - lu(k,787) = lu(k,787) * lu(k,784) - lu(k,788) = lu(k,788) * lu(k,784) - lu(k,789) = lu(k,789) * lu(k,784) - lu(k,798) = lu(k,798) - lu(k,785) * lu(k,794) - lu(k,799) = lu(k,799) - lu(k,786) * lu(k,794) - lu(k,801) = lu(k,801) - lu(k,787) * lu(k,794) - lu(k,802) = lu(k,802) - lu(k,788) * lu(k,794) - lu(k,804) = lu(k,804) - lu(k,789) * lu(k,794) - lu(k,814) = lu(k,814) - lu(k,785) * lu(k,810) - lu(k,815) = lu(k,815) - lu(k,786) * lu(k,810) - lu(k,818) = lu(k,818) - lu(k,787) * lu(k,810) - lu(k,819) = lu(k,819) - lu(k,788) * lu(k,810) - lu(k,821) = lu(k,821) - lu(k,789) * lu(k,810) - lu(k,1668) = - lu(k,785) * lu(k,1661) - lu(k,1669) = - lu(k,786) * lu(k,1661) - lu(k,1681) = lu(k,1681) - lu(k,787) * lu(k,1661) - lu(k,1682) = lu(k,1682) - lu(k,788) * lu(k,1661) - lu(k,1687) = lu(k,1687) - lu(k,789) * lu(k,1661) - lu(k,1758) = lu(k,1758) - lu(k,785) * lu(k,1742) - lu(k,1766) = lu(k,1766) - lu(k,786) * lu(k,1742) - lu(k,1787) = lu(k,1787) - lu(k,787) * lu(k,1742) - lu(k,1788) = lu(k,1788) - lu(k,788) * lu(k,1742) - lu(k,1793) = lu(k,1793) - lu(k,789) * lu(k,1742) - lu(k,1970) = lu(k,1970) - lu(k,785) * lu(k,1948) - lu(k,1979) = lu(k,1979) - lu(k,786) * lu(k,1948) - lu(k,2003) = lu(k,2003) - lu(k,787) * lu(k,1948) - lu(k,2004) = lu(k,2004) - lu(k,788) * lu(k,1948) - lu(k,2009) = lu(k,2009) - lu(k,789) * lu(k,1948) - lu(k,2179) = lu(k,2179) - lu(k,785) * lu(k,2164) - lu(k,2186) = lu(k,2186) - lu(k,786) * lu(k,2164) - lu(k,2208) = lu(k,2208) - lu(k,787) * lu(k,2164) - lu(k,2209) = lu(k,2209) - lu(k,788) * lu(k,2164) - lu(k,2214) = lu(k,2214) - lu(k,789) * lu(k,2164) - lu(k,795) = 1._r8 / lu(k,795) - lu(k,796) = lu(k,796) * lu(k,795) - lu(k,797) = lu(k,797) * lu(k,795) - lu(k,798) = lu(k,798) * lu(k,795) - lu(k,799) = lu(k,799) * lu(k,795) - lu(k,800) = lu(k,800) * lu(k,795) - lu(k,801) = lu(k,801) * lu(k,795) - lu(k,802) = lu(k,802) * lu(k,795) - lu(k,803) = lu(k,803) * lu(k,795) - lu(k,804) = lu(k,804) * lu(k,795) - lu(k,1745) = lu(k,1745) - lu(k,796) * lu(k,1743) - lu(k,1754) = lu(k,1754) - lu(k,797) * lu(k,1743) - lu(k,1758) = lu(k,1758) - lu(k,798) * lu(k,1743) - lu(k,1766) = lu(k,1766) - lu(k,799) * lu(k,1743) - lu(k,1775) = lu(k,1775) - lu(k,800) * lu(k,1743) - lu(k,1787) = lu(k,1787) - lu(k,801) * lu(k,1743) - lu(k,1788) = lu(k,1788) - lu(k,802) * lu(k,1743) - lu(k,1790) = lu(k,1790) - lu(k,803) * lu(k,1743) - lu(k,1793) = lu(k,1793) - lu(k,804) * lu(k,1743) - lu(k,1951) = lu(k,1951) - lu(k,796) * lu(k,1949) - lu(k,1961) = lu(k,1961) - lu(k,797) * lu(k,1949) - lu(k,1970) = lu(k,1970) - lu(k,798) * lu(k,1949) - lu(k,1979) = lu(k,1979) - lu(k,799) * lu(k,1949) - lu(k,1988) = lu(k,1988) - lu(k,800) * lu(k,1949) - lu(k,2003) = lu(k,2003) - lu(k,801) * lu(k,1949) - lu(k,2004) = lu(k,2004) - lu(k,802) * lu(k,1949) - lu(k,2006) = lu(k,2006) - lu(k,803) * lu(k,1949) - lu(k,2009) = lu(k,2009) - lu(k,804) * lu(k,1949) - lu(k,2167) = lu(k,2167) - lu(k,796) * lu(k,2165) - lu(k,2176) = lu(k,2176) - lu(k,797) * lu(k,2165) - lu(k,2179) = lu(k,2179) - lu(k,798) * lu(k,2165) - lu(k,2186) = lu(k,2186) - lu(k,799) * lu(k,2165) - lu(k,2194) = lu(k,2194) - lu(k,800) * lu(k,2165) - lu(k,2208) = lu(k,2208) - lu(k,801) * lu(k,2165) - lu(k,2209) = lu(k,2209) - lu(k,802) * lu(k,2165) - lu(k,2211) = lu(k,2211) - lu(k,803) * lu(k,2165) - lu(k,2214) = lu(k,2214) - lu(k,804) * lu(k,2165) - lu(k,811) = 1._r8 / lu(k,811) - lu(k,812) = lu(k,812) * lu(k,811) - lu(k,813) = lu(k,813) * lu(k,811) - lu(k,814) = lu(k,814) * lu(k,811) - lu(k,815) = lu(k,815) * lu(k,811) - lu(k,816) = lu(k,816) * lu(k,811) - lu(k,817) = lu(k,817) * lu(k,811) - lu(k,818) = lu(k,818) * lu(k,811) - lu(k,819) = lu(k,819) * lu(k,811) - lu(k,820) = lu(k,820) * lu(k,811) - lu(k,821) = lu(k,821) * lu(k,811) - lu(k,1745) = lu(k,1745) - lu(k,812) * lu(k,1744) - lu(k,1754) = lu(k,1754) - lu(k,813) * lu(k,1744) - lu(k,1758) = lu(k,1758) - lu(k,814) * lu(k,1744) - lu(k,1766) = lu(k,1766) - lu(k,815) * lu(k,1744) - lu(k,1775) = lu(k,1775) - lu(k,816) * lu(k,1744) - lu(k,1781) = lu(k,1781) - lu(k,817) * lu(k,1744) - lu(k,1787) = lu(k,1787) - lu(k,818) * lu(k,1744) - lu(k,1788) = lu(k,1788) - lu(k,819) * lu(k,1744) - lu(k,1790) = lu(k,1790) - lu(k,820) * lu(k,1744) - lu(k,1793) = lu(k,1793) - lu(k,821) * lu(k,1744) - lu(k,1951) = lu(k,1951) - lu(k,812) * lu(k,1950) - lu(k,1961) = lu(k,1961) - lu(k,813) * lu(k,1950) - lu(k,1970) = lu(k,1970) - lu(k,814) * lu(k,1950) - lu(k,1979) = lu(k,1979) - lu(k,815) * lu(k,1950) - lu(k,1988) = lu(k,1988) - lu(k,816) * lu(k,1950) - lu(k,1994) = lu(k,1994) - lu(k,817) * lu(k,1950) - lu(k,2003) = lu(k,2003) - lu(k,818) * lu(k,1950) - lu(k,2004) = lu(k,2004) - lu(k,819) * lu(k,1950) - lu(k,2006) = lu(k,2006) - lu(k,820) * lu(k,1950) - lu(k,2009) = lu(k,2009) - lu(k,821) * lu(k,1950) - lu(k,2167) = lu(k,2167) - lu(k,812) * lu(k,2166) - lu(k,2176) = lu(k,2176) - lu(k,813) * lu(k,2166) - lu(k,2179) = lu(k,2179) - lu(k,814) * lu(k,2166) - lu(k,2186) = lu(k,2186) - lu(k,815) * lu(k,2166) - lu(k,2194) = lu(k,2194) - lu(k,816) * lu(k,2166) - lu(k,2200) = lu(k,2200) - lu(k,817) * lu(k,2166) - lu(k,2208) = lu(k,2208) - lu(k,818) * lu(k,2166) - lu(k,2209) = lu(k,2209) - lu(k,819) * lu(k,2166) - lu(k,2211) = lu(k,2211) - lu(k,820) * lu(k,2166) - lu(k,2214) = lu(k,2214) - lu(k,821) * lu(k,2166) - lu(k,822) = 1._r8 / lu(k,822) - lu(k,823) = lu(k,823) * lu(k,822) - lu(k,824) = lu(k,824) * lu(k,822) - lu(k,825) = lu(k,825) * lu(k,822) - lu(k,826) = lu(k,826) * lu(k,822) - lu(k,827) = lu(k,827) * lu(k,822) - lu(k,828) = lu(k,828) * lu(k,822) - lu(k,829) = lu(k,829) * lu(k,822) - lu(k,1669) = lu(k,1669) - lu(k,823) * lu(k,1662) - lu(k,1671) = - lu(k,824) * lu(k,1662) - lu(k,1681) = lu(k,1681) - lu(k,825) * lu(k,1662) - lu(k,1682) = lu(k,1682) - lu(k,826) * lu(k,1662) - lu(k,1684) = lu(k,1684) - lu(k,827) * lu(k,1662) - lu(k,1687) = lu(k,1687) - lu(k,828) * lu(k,1662) - lu(k,1691) = lu(k,1691) - lu(k,829) * lu(k,1662) - lu(k,1766) = lu(k,1766) - lu(k,823) * lu(k,1745) - lu(k,1775) = lu(k,1775) - lu(k,824) * lu(k,1745) - lu(k,1787) = lu(k,1787) - lu(k,825) * lu(k,1745) - lu(k,1788) = lu(k,1788) - lu(k,826) * lu(k,1745) - lu(k,1790) = lu(k,1790) - lu(k,827) * lu(k,1745) - lu(k,1793) = lu(k,1793) - lu(k,828) * lu(k,1745) - lu(k,1797) = lu(k,1797) - lu(k,829) * lu(k,1745) - lu(k,1979) = lu(k,1979) - lu(k,823) * lu(k,1951) - lu(k,1988) = lu(k,1988) - lu(k,824) * lu(k,1951) - lu(k,2003) = lu(k,2003) - lu(k,825) * lu(k,1951) - lu(k,2004) = lu(k,2004) - lu(k,826) * lu(k,1951) - lu(k,2006) = lu(k,2006) - lu(k,827) * lu(k,1951) - lu(k,2009) = lu(k,2009) - lu(k,828) * lu(k,1951) - lu(k,2013) = lu(k,2013) - lu(k,829) * lu(k,1951) - lu(k,2186) = lu(k,2186) - lu(k,823) * lu(k,2167) - lu(k,2194) = lu(k,2194) - lu(k,824) * lu(k,2167) - lu(k,2208) = lu(k,2208) - lu(k,825) * lu(k,2167) - lu(k,2209) = lu(k,2209) - lu(k,826) * lu(k,2167) - lu(k,2211) = lu(k,2211) - lu(k,827) * lu(k,2167) - lu(k,2214) = lu(k,2214) - lu(k,828) * lu(k,2167) - lu(k,2218) = lu(k,2218) - lu(k,829) * lu(k,2167) + lu(k,788) = 1._r8 / lu(k,788) + lu(k,789) = lu(k,789) * lu(k,788) + lu(k,790) = lu(k,790) * lu(k,788) + lu(k,791) = lu(k,791) * lu(k,788) + lu(k,792) = lu(k,792) * lu(k,788) + lu(k,793) = lu(k,793) * lu(k,788) + lu(k,794) = lu(k,794) * lu(k,788) + lu(k,795) = lu(k,795) * lu(k,788) + lu(k,796) = lu(k,796) * lu(k,788) + lu(k,797) = lu(k,797) * lu(k,788) + lu(k,1801) = lu(k,1801) - lu(k,789) * lu(k,1798) + lu(k,1811) = lu(k,1811) - lu(k,790) * lu(k,1798) + lu(k,1820) = lu(k,1820) - lu(k,791) * lu(k,1798) + lu(k,1829) = lu(k,1829) - lu(k,792) * lu(k,1798) + lu(k,1838) = lu(k,1838) - lu(k,793) * lu(k,1798) + lu(k,1853) = lu(k,1853) - lu(k,794) * lu(k,1798) + lu(k,1854) = lu(k,1854) - lu(k,795) * lu(k,1798) + lu(k,1855) = lu(k,1855) - lu(k,796) * lu(k,1798) + lu(k,1863) = lu(k,1863) - lu(k,797) * lu(k,1798) + lu(k,1918) = lu(k,1918) - lu(k,789) * lu(k,1916) + lu(k,1927) = lu(k,1927) - lu(k,790) * lu(k,1916) + lu(k,1931) = lu(k,1931) - lu(k,791) * lu(k,1916) + lu(k,1939) = lu(k,1939) - lu(k,792) * lu(k,1916) + lu(k,1948) = lu(k,1948) - lu(k,793) * lu(k,1916) + lu(k,1960) = lu(k,1960) - lu(k,794) * lu(k,1916) + lu(k,1961) = lu(k,1961) - lu(k,795) * lu(k,1916) + lu(k,1962) = lu(k,1962) - lu(k,796) * lu(k,1916) + lu(k,1970) = lu(k,1970) - lu(k,797) * lu(k,1916) + lu(k,2331) = lu(k,2331) - lu(k,789) * lu(k,2328) + lu(k,2340) = lu(k,2340) - lu(k,790) * lu(k,2328) + lu(k,2343) = lu(k,2343) - lu(k,791) * lu(k,2328) + lu(k,2350) = lu(k,2350) - lu(k,792) * lu(k,2328) + lu(k,2358) = lu(k,2358) - lu(k,793) * lu(k,2328) + lu(k,2372) = lu(k,2372) - lu(k,794) * lu(k,2328) + lu(k,2373) = lu(k,2373) - lu(k,795) * lu(k,2328) + lu(k,2374) = lu(k,2374) - lu(k,796) * lu(k,2328) + lu(k,2382) = lu(k,2382) - lu(k,797) * lu(k,2328) + lu(k,799) = 1._r8 / lu(k,799) + lu(k,800) = lu(k,800) * lu(k,799) + lu(k,801) = lu(k,801) * lu(k,799) + lu(k,802) = lu(k,802) * lu(k,799) + lu(k,803) = lu(k,803) * lu(k,799) + lu(k,804) = lu(k,804) * lu(k,799) + lu(k,805) = lu(k,805) * lu(k,799) + lu(k,1297) = - lu(k,800) * lu(k,1291) + lu(k,1299) = - lu(k,801) * lu(k,1291) + lu(k,1301) = - lu(k,802) * lu(k,1291) + lu(k,1305) = lu(k,1305) - lu(k,803) * lu(k,1291) + lu(k,1309) = lu(k,1309) - lu(k,804) * lu(k,1291) + lu(k,1311) = lu(k,1311) - lu(k,805) * lu(k,1291) + lu(k,1341) = - lu(k,800) * lu(k,1335) + lu(k,1342) = lu(k,1342) - lu(k,801) * lu(k,1335) + lu(k,1346) = lu(k,1346) - lu(k,802) * lu(k,1335) + lu(k,1351) = lu(k,1351) - lu(k,803) * lu(k,1335) + lu(k,1356) = lu(k,1356) - lu(k,804) * lu(k,1335) + lu(k,1358) = lu(k,1358) - lu(k,805) * lu(k,1335) + lu(k,1374) = lu(k,1374) - lu(k,800) * lu(k,1364) + lu(k,1375) = - lu(k,801) * lu(k,1364) + lu(k,1379) = - lu(k,802) * lu(k,1364) + lu(k,1384) = lu(k,1384) - lu(k,803) * lu(k,1364) + lu(k,1389) = lu(k,1389) - lu(k,804) * lu(k,1364) + lu(k,1391) = lu(k,1391) - lu(k,805) * lu(k,1364) + lu(k,1835) = lu(k,1835) - lu(k,800) * lu(k,1799) + lu(k,1837) = lu(k,1837) - lu(k,801) * lu(k,1799) + lu(k,1842) = lu(k,1842) - lu(k,802) * lu(k,1799) + lu(k,1854) = lu(k,1854) - lu(k,803) * lu(k,1799) + lu(k,1863) = lu(k,1863) - lu(k,804) * lu(k,1799) + lu(k,1865) = lu(k,1865) - lu(k,805) * lu(k,1799) + lu(k,2355) = lu(k,2355) - lu(k,800) * lu(k,2329) + lu(k,2357) = - lu(k,801) * lu(k,2329) + lu(k,2362) = - lu(k,802) * lu(k,2329) + lu(k,2373) = lu(k,2373) - lu(k,803) * lu(k,2329) + lu(k,2382) = lu(k,2382) - lu(k,804) * lu(k,2329) + lu(k,2384) = lu(k,2384) - lu(k,805) * lu(k,2329) + lu(k,812) = 1._r8 / lu(k,812) + lu(k,813) = lu(k,813) * lu(k,812) + lu(k,814) = lu(k,814) * lu(k,812) + lu(k,815) = lu(k,815) * lu(k,812) + lu(k,816) = lu(k,816) * lu(k,812) + lu(k,817) = lu(k,817) * lu(k,812) + lu(k,818) = lu(k,818) * lu(k,812) + lu(k,819) = lu(k,819) * lu(k,812) + lu(k,820) = lu(k,820) * lu(k,812) + lu(k,821) = lu(k,821) * lu(k,812) + lu(k,822) = lu(k,822) * lu(k,812) + lu(k,1801) = lu(k,1801) - lu(k,813) * lu(k,1800) + lu(k,1811) = lu(k,1811) - lu(k,814) * lu(k,1800) + lu(k,1820) = lu(k,1820) - lu(k,815) * lu(k,1800) + lu(k,1829) = lu(k,1829) - lu(k,816) * lu(k,1800) + lu(k,1838) = lu(k,1838) - lu(k,817) * lu(k,1800) + lu(k,1844) = lu(k,1844) - lu(k,818) * lu(k,1800) + lu(k,1853) = lu(k,1853) - lu(k,819) * lu(k,1800) + lu(k,1854) = lu(k,1854) - lu(k,820) * lu(k,1800) + lu(k,1855) = lu(k,1855) - lu(k,821) * lu(k,1800) + lu(k,1863) = lu(k,1863) - lu(k,822) * lu(k,1800) + lu(k,1918) = lu(k,1918) - lu(k,813) * lu(k,1917) + lu(k,1927) = lu(k,1927) - lu(k,814) * lu(k,1917) + lu(k,1931) = lu(k,1931) - lu(k,815) * lu(k,1917) + lu(k,1939) = lu(k,1939) - lu(k,816) * lu(k,1917) + lu(k,1948) = lu(k,1948) - lu(k,817) * lu(k,1917) + lu(k,1954) = lu(k,1954) - lu(k,818) * lu(k,1917) + lu(k,1960) = lu(k,1960) - lu(k,819) * lu(k,1917) + lu(k,1961) = lu(k,1961) - lu(k,820) * lu(k,1917) + lu(k,1962) = lu(k,1962) - lu(k,821) * lu(k,1917) + lu(k,1970) = lu(k,1970) - lu(k,822) * lu(k,1917) + lu(k,2331) = lu(k,2331) - lu(k,813) * lu(k,2330) + lu(k,2340) = lu(k,2340) - lu(k,814) * lu(k,2330) + lu(k,2343) = lu(k,2343) - lu(k,815) * lu(k,2330) + lu(k,2350) = lu(k,2350) - lu(k,816) * lu(k,2330) + lu(k,2358) = lu(k,2358) - lu(k,817) * lu(k,2330) + lu(k,2364) = lu(k,2364) - lu(k,818) * lu(k,2330) + lu(k,2372) = lu(k,2372) - lu(k,819) * lu(k,2330) + lu(k,2373) = lu(k,2373) - lu(k,820) * lu(k,2330) + lu(k,2374) = lu(k,2374) - lu(k,821) * lu(k,2330) + lu(k,2382) = lu(k,2382) - lu(k,822) * lu(k,2330) + lu(k,823) = 1._r8 / lu(k,823) + lu(k,824) = lu(k,824) * lu(k,823) + lu(k,825) = lu(k,825) * lu(k,823) + lu(k,826) = lu(k,826) * lu(k,823) + lu(k,827) = lu(k,827) * lu(k,823) + lu(k,828) = lu(k,828) * lu(k,823) + lu(k,829) = lu(k,829) * lu(k,823) + lu(k,830) = lu(k,830) * lu(k,823) + lu(k,1668) = lu(k,1668) - lu(k,824) * lu(k,1661) + lu(k,1670) = - lu(k,825) * lu(k,1661) + lu(k,1680) = lu(k,1680) - lu(k,826) * lu(k,1661) + lu(k,1681) = lu(k,1681) - lu(k,827) * lu(k,1661) + lu(k,1682) = lu(k,1682) - lu(k,828) * lu(k,1661) + lu(k,1687) = lu(k,1687) - lu(k,829) * lu(k,1661) + lu(k,1690) = lu(k,1690) - lu(k,830) * lu(k,1661) + lu(k,1829) = lu(k,1829) - lu(k,824) * lu(k,1801) + lu(k,1838) = lu(k,1838) - lu(k,825) * lu(k,1801) + lu(k,1853) = lu(k,1853) - lu(k,826) * lu(k,1801) + lu(k,1854) = lu(k,1854) - lu(k,827) * lu(k,1801) + lu(k,1855) = lu(k,1855) - lu(k,828) * lu(k,1801) + lu(k,1860) = lu(k,1860) - lu(k,829) * lu(k,1801) + lu(k,1863) = lu(k,1863) - lu(k,830) * lu(k,1801) + lu(k,1939) = lu(k,1939) - lu(k,824) * lu(k,1918) + lu(k,1948) = lu(k,1948) - lu(k,825) * lu(k,1918) + lu(k,1960) = lu(k,1960) - lu(k,826) * lu(k,1918) + lu(k,1961) = lu(k,1961) - lu(k,827) * lu(k,1918) + lu(k,1962) = lu(k,1962) - lu(k,828) * lu(k,1918) + lu(k,1967) = lu(k,1967) - lu(k,829) * lu(k,1918) + lu(k,1970) = lu(k,1970) - lu(k,830) * lu(k,1918) + lu(k,2350) = lu(k,2350) - lu(k,824) * lu(k,2331) + lu(k,2358) = lu(k,2358) - lu(k,825) * lu(k,2331) + lu(k,2372) = lu(k,2372) - lu(k,826) * lu(k,2331) + lu(k,2373) = lu(k,2373) - lu(k,827) * lu(k,2331) + lu(k,2374) = lu(k,2374) - lu(k,828) * lu(k,2331) + lu(k,2379) = lu(k,2379) - lu(k,829) * lu(k,2331) + lu(k,2382) = lu(k,2382) - lu(k,830) * lu(k,2331) lu(k,832) = 1._r8 / lu(k,832) lu(k,833) = lu(k,833) * lu(k,832) lu(k,834) = lu(k,834) * lu(k,832) @@ -2585,41 +2589,41 @@ subroutine lu_fac17( avec_len, lu ) lu(k,837) = lu(k,837) * lu(k,832) lu(k,838) = lu(k,838) * lu(k,832) lu(k,839) = lu(k,839) * lu(k,832) - lu(k,1767) = lu(k,1767) - lu(k,833) * lu(k,1746) - lu(k,1784) = lu(k,1784) - lu(k,834) * lu(k,1746) - lu(k,1787) = lu(k,1787) - lu(k,835) * lu(k,1746) - lu(k,1788) = lu(k,1788) - lu(k,836) * lu(k,1746) - lu(k,1790) = lu(k,1790) - lu(k,837) * lu(k,1746) - lu(k,1793) = lu(k,1793) - lu(k,838) * lu(k,1746) - lu(k,1800) = lu(k,1800) - lu(k,839) * lu(k,1746) - lu(k,1980) = lu(k,1980) - lu(k,833) * lu(k,1952) - lu(k,2000) = lu(k,2000) - lu(k,834) * lu(k,1952) - lu(k,2003) = lu(k,2003) - lu(k,835) * lu(k,1952) - lu(k,2004) = lu(k,2004) - lu(k,836) * lu(k,1952) - lu(k,2006) = lu(k,2006) - lu(k,837) * lu(k,1952) - lu(k,2009) = lu(k,2009) - lu(k,838) * lu(k,1952) - lu(k,2016) = lu(k,2016) - lu(k,839) * lu(k,1952) - lu(k,2187) = lu(k,2187) - lu(k,833) * lu(k,2168) - lu(k,2205) = lu(k,2205) - lu(k,834) * lu(k,2168) - lu(k,2208) = lu(k,2208) - lu(k,835) * lu(k,2168) - lu(k,2209) = lu(k,2209) - lu(k,836) * lu(k,2168) - lu(k,2211) = lu(k,2211) - lu(k,837) * lu(k,2168) - lu(k,2214) = lu(k,2214) - lu(k,838) * lu(k,2168) - lu(k,2221) = lu(k,2221) - lu(k,839) * lu(k,2168) - lu(k,2243) = - lu(k,833) * lu(k,2233) - lu(k,2251) = lu(k,2251) - lu(k,834) * lu(k,2233) - lu(k,2254) = - lu(k,835) * lu(k,2233) - lu(k,2255) = - lu(k,836) * lu(k,2233) - lu(k,2257) = lu(k,2257) - lu(k,837) * lu(k,2233) - lu(k,2260) = lu(k,2260) - lu(k,838) * lu(k,2233) - lu(k,2267) = lu(k,2267) - lu(k,839) * lu(k,2233) - lu(k,2395) = - lu(k,833) * lu(k,2379) - lu(k,2411) = lu(k,2411) - lu(k,834) * lu(k,2379) - lu(k,2414) = lu(k,2414) - lu(k,835) * lu(k,2379) - lu(k,2415) = lu(k,2415) - lu(k,836) * lu(k,2379) - lu(k,2417) = lu(k,2417) - lu(k,837) * lu(k,2379) - lu(k,2420) = lu(k,2420) - lu(k,838) * lu(k,2379) - lu(k,2427) = lu(k,2427) - lu(k,839) * lu(k,2379) + lu(k,1540) = lu(k,1540) - lu(k,833) * lu(k,1537) + lu(k,1541) = lu(k,1541) - lu(k,834) * lu(k,1537) + lu(k,1542) = - lu(k,835) * lu(k,1537) + lu(k,1544) = lu(k,1544) - lu(k,836) * lu(k,1537) + lu(k,1545) = lu(k,1545) - lu(k,837) * lu(k,1537) + lu(k,1546) = lu(k,1546) - lu(k,838) * lu(k,1537) + lu(k,1552) = lu(k,1552) - lu(k,839) * lu(k,1537) + lu(k,1607) = - lu(k,833) * lu(k,1604) + lu(k,1608) = lu(k,1608) - lu(k,834) * lu(k,1604) + lu(k,1610) = lu(k,1610) - lu(k,835) * lu(k,1604) + lu(k,1612) = lu(k,1612) - lu(k,836) * lu(k,1604) + lu(k,1614) = lu(k,1614) - lu(k,837) * lu(k,1604) + lu(k,1615) = lu(k,1615) - lu(k,838) * lu(k,1604) + lu(k,1624) = - lu(k,839) * lu(k,1604) + lu(k,1675) = - lu(k,833) * lu(k,1662) + lu(k,1676) = lu(k,1676) - lu(k,834) * lu(k,1662) + lu(k,1678) = lu(k,1678) - lu(k,835) * lu(k,1662) + lu(k,1681) = lu(k,1681) - lu(k,836) * lu(k,1662) + lu(k,1683) = - lu(k,837) * lu(k,1662) + lu(k,1684) = lu(k,1684) - lu(k,838) * lu(k,1662) + lu(k,1694) = lu(k,1694) - lu(k,839) * lu(k,1662) + lu(k,2044) = lu(k,2044) - lu(k,833) * lu(k,2030) + lu(k,2045) = lu(k,2045) - lu(k,834) * lu(k,2030) + lu(k,2047) = lu(k,2047) - lu(k,835) * lu(k,2030) + lu(k,2050) = lu(k,2050) - lu(k,836) * lu(k,2030) + lu(k,2052) = lu(k,2052) - lu(k,837) * lu(k,2030) + lu(k,2053) = lu(k,2053) - lu(k,838) * lu(k,2030) + lu(k,2063) = lu(k,2063) - lu(k,839) * lu(k,2030) + lu(k,2367) = lu(k,2367) - lu(k,833) * lu(k,2332) + lu(k,2368) = lu(k,2368) - lu(k,834) * lu(k,2332) + lu(k,2370) = lu(k,2370) - lu(k,835) * lu(k,2332) + lu(k,2373) = lu(k,2373) - lu(k,836) * lu(k,2332) + lu(k,2375) = lu(k,2375) - lu(k,837) * lu(k,2332) + lu(k,2376) = lu(k,2376) - lu(k,838) * lu(k,2332) + lu(k,2386) = lu(k,2386) - lu(k,839) * lu(k,2332) end do end subroutine lu_fac17 subroutine lu_fac18( avec_len, lu ) @@ -2636,178 +2640,178 @@ subroutine lu_fac18( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,841) = 1._r8 / lu(k,841) - lu(k,842) = lu(k,842) * lu(k,841) - lu(k,843) = lu(k,843) * lu(k,841) - lu(k,844) = lu(k,844) * lu(k,841) - lu(k,845) = lu(k,845) * lu(k,841) - lu(k,846) = lu(k,846) * lu(k,841) - lu(k,847) = lu(k,847) * lu(k,841) - lu(k,848) = lu(k,848) * lu(k,841) - lu(k,1539) = lu(k,1539) - lu(k,842) * lu(k,1536) - lu(k,1540) = lu(k,1540) - lu(k,843) * lu(k,1536) - lu(k,1541) = - lu(k,844) * lu(k,1536) - lu(k,1545) = lu(k,1545) - lu(k,845) * lu(k,1536) - lu(k,1547) = lu(k,1547) - lu(k,846) * lu(k,1536) - lu(k,1550) = lu(k,1550) - lu(k,847) * lu(k,1536) - lu(k,1551) = lu(k,1551) - lu(k,848) * lu(k,1536) - lu(k,1606) = - lu(k,842) * lu(k,1603) - lu(k,1607) = lu(k,1607) - lu(k,843) * lu(k,1603) - lu(k,1609) = lu(k,1609) - lu(k,844) * lu(k,1603) - lu(k,1614) = lu(k,1614) - lu(k,845) * lu(k,1603) - lu(k,1617) = lu(k,1617) - lu(k,846) * lu(k,1603) - lu(k,1621) = lu(k,1621) - lu(k,847) * lu(k,1603) - lu(k,1623) = - lu(k,848) * lu(k,1603) - lu(k,1676) = - lu(k,842) * lu(k,1663) - lu(k,1677) = lu(k,1677) - lu(k,843) * lu(k,1663) - lu(k,1679) = lu(k,1679) - lu(k,844) * lu(k,1663) - lu(k,1684) = lu(k,1684) - lu(k,845) * lu(k,1663) - lu(k,1688) = - lu(k,846) * lu(k,1663) - lu(k,1693) = lu(k,1693) - lu(k,847) * lu(k,1663) - lu(k,1695) = lu(k,1695) - lu(k,848) * lu(k,1663) - lu(k,2203) = lu(k,2203) - lu(k,842) * lu(k,2169) - lu(k,2204) = lu(k,2204) - lu(k,843) * lu(k,2169) - lu(k,2206) = lu(k,2206) - lu(k,844) * lu(k,2169) - lu(k,2211) = lu(k,2211) - lu(k,845) * lu(k,2169) - lu(k,2215) = lu(k,2215) - lu(k,846) * lu(k,2169) - lu(k,2220) = lu(k,2220) - lu(k,847) * lu(k,2169) - lu(k,2222) = lu(k,2222) - lu(k,848) * lu(k,2169) - lu(k,2452) = lu(k,2452) - lu(k,842) * lu(k,2438) - lu(k,2453) = lu(k,2453) - lu(k,843) * lu(k,2438) - lu(k,2455) = lu(k,2455) - lu(k,844) * lu(k,2438) - lu(k,2460) = lu(k,2460) - lu(k,845) * lu(k,2438) - lu(k,2464) = lu(k,2464) - lu(k,846) * lu(k,2438) - lu(k,2469) = lu(k,2469) - lu(k,847) * lu(k,2438) - lu(k,2471) = lu(k,2471) - lu(k,848) * lu(k,2438) - lu(k,849) = 1._r8 / lu(k,849) - lu(k,850) = lu(k,850) * lu(k,849) - lu(k,851) = lu(k,851) * lu(k,849) - lu(k,852) = lu(k,852) * lu(k,849) - lu(k,853) = lu(k,853) * lu(k,849) - lu(k,854) = lu(k,854) * lu(k,849) - lu(k,855) = lu(k,855) * lu(k,849) - lu(k,856) = lu(k,856) * lu(k,849) - lu(k,907) = lu(k,907) - lu(k,850) * lu(k,906) - lu(k,908) = lu(k,908) - lu(k,851) * lu(k,906) - lu(k,910) = lu(k,910) - lu(k,852) * lu(k,906) - lu(k,911) = - lu(k,853) * lu(k,906) - lu(k,912) = - lu(k,854) * lu(k,906) - lu(k,913) = lu(k,913) - lu(k,855) * lu(k,906) - lu(k,916) = lu(k,916) - lu(k,856) * lu(k,906) - lu(k,1040) = lu(k,1040) - lu(k,850) * lu(k,1039) - lu(k,1041) = lu(k,1041) - lu(k,851) * lu(k,1039) - lu(k,1043) = lu(k,1043) - lu(k,852) * lu(k,1039) - lu(k,1044) = - lu(k,853) * lu(k,1039) - lu(k,1045) = - lu(k,854) * lu(k,1039) - lu(k,1046) = lu(k,1046) - lu(k,855) * lu(k,1039) - lu(k,1052) = lu(k,1052) - lu(k,856) * lu(k,1039) - lu(k,1489) = - lu(k,850) * lu(k,1488) - lu(k,1490) = lu(k,1490) - lu(k,851) * lu(k,1488) - lu(k,1492) = - lu(k,852) * lu(k,1488) - lu(k,1493) = lu(k,1493) - lu(k,853) * lu(k,1488) - lu(k,1494) = lu(k,1494) - lu(k,854) * lu(k,1488) - lu(k,1495) = lu(k,1495) - lu(k,855) * lu(k,1488) - lu(k,1502) = lu(k,1502) - lu(k,856) * lu(k,1488) - lu(k,1576) = lu(k,1576) - lu(k,850) * lu(k,1575) - lu(k,1577) = lu(k,1577) - lu(k,851) * lu(k,1575) - lu(k,1580) = lu(k,1580) - lu(k,852) * lu(k,1575) - lu(k,1581) = - lu(k,853) * lu(k,1575) - lu(k,1583) = - lu(k,854) * lu(k,1575) - lu(k,1586) = lu(k,1586) - lu(k,855) * lu(k,1575) - lu(k,1597) = lu(k,1597) - lu(k,856) * lu(k,1575) - lu(k,2442) = lu(k,2442) - lu(k,850) * lu(k,2439) - lu(k,2443) = lu(k,2443) - lu(k,851) * lu(k,2439) - lu(k,2447) = lu(k,2447) - lu(k,852) * lu(k,2439) - lu(k,2448) = lu(k,2448) - lu(k,853) * lu(k,2439) - lu(k,2449) = - lu(k,854) * lu(k,2439) - lu(k,2454) = lu(k,2454) - lu(k,855) * lu(k,2439) - lu(k,2469) = lu(k,2469) - lu(k,856) * lu(k,2439) - lu(k,857) = 1._r8 / lu(k,857) - lu(k,858) = lu(k,858) * lu(k,857) - lu(k,859) = lu(k,859) * lu(k,857) - lu(k,860) = lu(k,860) * lu(k,857) - lu(k,955) = lu(k,955) - lu(k,858) * lu(k,949) - lu(k,956) = lu(k,956) - lu(k,859) * lu(k,949) - lu(k,958) = lu(k,958) - lu(k,860) * lu(k,949) - lu(k,1111) = lu(k,1111) - lu(k,858) * lu(k,1105) - lu(k,1112) = lu(k,1112) - lu(k,859) * lu(k,1105) - lu(k,1115) = lu(k,1115) - lu(k,860) * lu(k,1105) - lu(k,1156) = lu(k,1156) - lu(k,858) * lu(k,1148) - lu(k,1158) = lu(k,1158) - lu(k,859) * lu(k,1148) - lu(k,1161) = lu(k,1161) - lu(k,860) * lu(k,1148) - lu(k,1228) = lu(k,1228) - lu(k,858) * lu(k,1217) - lu(k,1229) = lu(k,1229) - lu(k,859) * lu(k,1217) - lu(k,1232) = lu(k,1232) - lu(k,860) * lu(k,1217) - lu(k,1266) = lu(k,1266) - lu(k,858) * lu(k,1259) - lu(k,1267) = lu(k,1267) - lu(k,859) * lu(k,1259) - lu(k,1269) = lu(k,1269) - lu(k,860) * lu(k,1259) - lu(k,1283) = lu(k,1283) - lu(k,858) * lu(k,1272) - lu(k,1285) = lu(k,1285) - lu(k,859) * lu(k,1272) - lu(k,1287) = lu(k,1287) - lu(k,860) * lu(k,1272) - lu(k,1305) = lu(k,1305) - lu(k,858) * lu(k,1291) - lu(k,1307) = lu(k,1307) - lu(k,859) * lu(k,1291) - lu(k,1310) = lu(k,1310) - lu(k,860) * lu(k,1291) - lu(k,1351) = lu(k,1351) - lu(k,858) * lu(k,1335) - lu(k,1353) = lu(k,1353) - lu(k,859) * lu(k,1335) - lu(k,1357) = lu(k,1357) - lu(k,860) * lu(k,1335) - lu(k,1384) = lu(k,1384) - lu(k,858) * lu(k,1364) - lu(k,1386) = lu(k,1386) - lu(k,859) * lu(k,1364) - lu(k,1390) = lu(k,1390) - lu(k,860) * lu(k,1364) - lu(k,1406) = lu(k,1406) - lu(k,858) * lu(k,1393) - lu(k,1408) = lu(k,1408) - lu(k,859) * lu(k,1393) - lu(k,1411) = lu(k,1411) - lu(k,860) * lu(k,1393) - lu(k,2006) = lu(k,2006) - lu(k,858) * lu(k,1953) - lu(k,2009) = lu(k,2009) - lu(k,859) * lu(k,1953) - lu(k,2016) = lu(k,2016) - lu(k,860) * lu(k,1953) - lu(k,2353) = lu(k,2353) - lu(k,858) * lu(k,2319) - lu(k,2356) = lu(k,2356) - lu(k,859) * lu(k,2319) - lu(k,2363) = lu(k,2363) - lu(k,860) * lu(k,2319) - lu(k,862) = 1._r8 / lu(k,862) - lu(k,863) = lu(k,863) * lu(k,862) - lu(k,864) = lu(k,864) * lu(k,862) - lu(k,865) = lu(k,865) * lu(k,862) - lu(k,866) = lu(k,866) * lu(k,862) - lu(k,867) = lu(k,867) * lu(k,862) - lu(k,868) = lu(k,868) * lu(k,862) - lu(k,869) = lu(k,869) * lu(k,862) - lu(k,870) = lu(k,870) * lu(k,862) - lu(k,871) = lu(k,871) * lu(k,862) - lu(k,1178) = lu(k,1178) - lu(k,863) * lu(k,1174) - lu(k,1180) = - lu(k,864) * lu(k,1174) - lu(k,1184) = - lu(k,865) * lu(k,1174) - lu(k,1185) = - lu(k,866) * lu(k,1174) - lu(k,1186) = - lu(k,867) * lu(k,1174) - lu(k,1187) = lu(k,1187) - lu(k,868) * lu(k,1174) - lu(k,1190) = lu(k,1190) - lu(k,869) * lu(k,1174) - lu(k,1193) = lu(k,1193) - lu(k,870) * lu(k,1174) - lu(k,1194) = lu(k,1194) - lu(k,871) * lu(k,1174) - lu(k,1765) = lu(k,1765) - lu(k,863) * lu(k,1747) - lu(k,1770) = lu(k,1770) - lu(k,864) * lu(k,1747) - lu(k,1784) = lu(k,1784) - lu(k,865) * lu(k,1747) - lu(k,1787) = lu(k,1787) - lu(k,866) * lu(k,1747) - lu(k,1788) = lu(k,1788) - lu(k,867) * lu(k,1747) - lu(k,1790) = lu(k,1790) - lu(k,868) * lu(k,1747) - lu(k,1793) = lu(k,1793) - lu(k,869) * lu(k,1747) - lu(k,1800) = lu(k,1800) - lu(k,870) * lu(k,1747) - lu(k,1801) = - lu(k,871) * lu(k,1747) - lu(k,1978) = lu(k,1978) - lu(k,863) * lu(k,1954) - lu(k,1983) = lu(k,1983) - lu(k,864) * lu(k,1954) - lu(k,2000) = lu(k,2000) - lu(k,865) * lu(k,1954) - lu(k,2003) = lu(k,2003) - lu(k,866) * lu(k,1954) - lu(k,2004) = lu(k,2004) - lu(k,867) * lu(k,1954) - lu(k,2006) = lu(k,2006) - lu(k,868) * lu(k,1954) - lu(k,2009) = lu(k,2009) - lu(k,869) * lu(k,1954) - lu(k,2016) = lu(k,2016) - lu(k,870) * lu(k,1954) - lu(k,2017) = lu(k,2017) - lu(k,871) * lu(k,1954) - lu(k,2185) = lu(k,2185) - lu(k,863) * lu(k,2170) - lu(k,2189) = lu(k,2189) - lu(k,864) * lu(k,2170) - lu(k,2205) = lu(k,2205) - lu(k,865) * lu(k,2170) - lu(k,2208) = lu(k,2208) - lu(k,866) * lu(k,2170) - lu(k,2209) = lu(k,2209) - lu(k,867) * lu(k,2170) - lu(k,2211) = lu(k,2211) - lu(k,868) * lu(k,2170) - lu(k,2214) = lu(k,2214) - lu(k,869) * lu(k,2170) - lu(k,2221) = lu(k,2221) - lu(k,870) * lu(k,2170) - lu(k,2222) = lu(k,2222) - lu(k,871) * lu(k,2170) + lu(k,842) = 1._r8 / lu(k,842) + lu(k,843) = lu(k,843) * lu(k,842) + lu(k,844) = lu(k,844) * lu(k,842) + lu(k,845) = lu(k,845) * lu(k,842) + lu(k,846) = lu(k,846) * lu(k,842) + lu(k,847) = lu(k,847) * lu(k,842) + lu(k,848) = lu(k,848) * lu(k,842) + lu(k,849) = lu(k,849) * lu(k,842) + lu(k,1830) = lu(k,1830) - lu(k,843) * lu(k,1802) + lu(k,1850) = lu(k,1850) - lu(k,844) * lu(k,1802) + lu(k,1853) = lu(k,1853) - lu(k,845) * lu(k,1802) + lu(k,1854) = lu(k,1854) - lu(k,846) * lu(k,1802) + lu(k,1855) = lu(k,1855) - lu(k,847) * lu(k,1802) + lu(k,1863) = lu(k,1863) - lu(k,848) * lu(k,1802) + lu(k,1865) = lu(k,1865) - lu(k,849) * lu(k,1802) + lu(k,1940) = lu(k,1940) - lu(k,843) * lu(k,1919) + lu(k,1957) = lu(k,1957) - lu(k,844) * lu(k,1919) + lu(k,1960) = lu(k,1960) - lu(k,845) * lu(k,1919) + lu(k,1961) = lu(k,1961) - lu(k,846) * lu(k,1919) + lu(k,1962) = lu(k,1962) - lu(k,847) * lu(k,1919) + lu(k,1970) = lu(k,1970) - lu(k,848) * lu(k,1919) + lu(k,1972) = lu(k,1972) - lu(k,849) * lu(k,1919) + lu(k,1995) = - lu(k,843) * lu(k,1985) + lu(k,2003) = lu(k,2003) - lu(k,844) * lu(k,1985) + lu(k,2006) = - lu(k,845) * lu(k,1985) + lu(k,2007) = lu(k,2007) - lu(k,846) * lu(k,1985) + lu(k,2008) = - lu(k,847) * lu(k,1985) + lu(k,2016) = lu(k,2016) - lu(k,848) * lu(k,1985) + lu(k,2018) = lu(k,2018) - lu(k,849) * lu(k,1985) + lu(k,2094) = - lu(k,843) * lu(k,2078) + lu(k,2110) = lu(k,2110) - lu(k,844) * lu(k,2078) + lu(k,2113) = lu(k,2113) - lu(k,845) * lu(k,2078) + lu(k,2114) = lu(k,2114) - lu(k,846) * lu(k,2078) + lu(k,2115) = lu(k,2115) - lu(k,847) * lu(k,2078) + lu(k,2123) = lu(k,2123) - lu(k,848) * lu(k,2078) + lu(k,2125) = lu(k,2125) - lu(k,849) * lu(k,2078) + lu(k,2351) = lu(k,2351) - lu(k,843) * lu(k,2333) + lu(k,2369) = lu(k,2369) - lu(k,844) * lu(k,2333) + lu(k,2372) = lu(k,2372) - lu(k,845) * lu(k,2333) + lu(k,2373) = lu(k,2373) - lu(k,846) * lu(k,2333) + lu(k,2374) = lu(k,2374) - lu(k,847) * lu(k,2333) + lu(k,2382) = lu(k,2382) - lu(k,848) * lu(k,2333) + lu(k,2384) = lu(k,2384) - lu(k,849) * lu(k,2333) + lu(k,850) = 1._r8 / lu(k,850) + lu(k,851) = lu(k,851) * lu(k,850) + lu(k,852) = lu(k,852) * lu(k,850) + lu(k,853) = lu(k,853) * lu(k,850) + lu(k,854) = lu(k,854) * lu(k,850) + lu(k,855) = lu(k,855) * lu(k,850) + lu(k,856) = lu(k,856) * lu(k,850) + lu(k,857) = lu(k,857) * lu(k,850) + lu(k,908) = lu(k,908) - lu(k,851) * lu(k,907) + lu(k,909) = lu(k,909) - lu(k,852) * lu(k,907) + lu(k,911) = lu(k,911) - lu(k,853) * lu(k,907) + lu(k,912) = - lu(k,854) * lu(k,907) + lu(k,913) = - lu(k,855) * lu(k,907) + lu(k,914) = lu(k,914) - lu(k,856) * lu(k,907) + lu(k,916) = lu(k,916) - lu(k,857) * lu(k,907) + lu(k,1029) = lu(k,1029) - lu(k,851) * lu(k,1028) + lu(k,1030) = lu(k,1030) - lu(k,852) * lu(k,1028) + lu(k,1032) = lu(k,1032) - lu(k,853) * lu(k,1028) + lu(k,1033) = - lu(k,854) * lu(k,1028) + lu(k,1034) = - lu(k,855) * lu(k,1028) + lu(k,1035) = lu(k,1035) - lu(k,856) * lu(k,1028) + lu(k,1039) = lu(k,1039) - lu(k,857) * lu(k,1028) + lu(k,1490) = - lu(k,851) * lu(k,1489) + lu(k,1491) = lu(k,1491) - lu(k,852) * lu(k,1489) + lu(k,1493) = - lu(k,853) * lu(k,1489) + lu(k,1494) = lu(k,1494) - lu(k,854) * lu(k,1489) + lu(k,1495) = lu(k,1495) - lu(k,855) * lu(k,1489) + lu(k,1496) = lu(k,1496) - lu(k,856) * lu(k,1489) + lu(k,1500) = lu(k,1500) - lu(k,857) * lu(k,1489) + lu(k,1577) = lu(k,1577) - lu(k,851) * lu(k,1576) + lu(k,1578) = lu(k,1578) - lu(k,852) * lu(k,1576) + lu(k,1581) = lu(k,1581) - lu(k,853) * lu(k,1576) + lu(k,1582) = - lu(k,854) * lu(k,1576) + lu(k,1584) = - lu(k,855) * lu(k,1576) + lu(k,1587) = lu(k,1587) - lu(k,856) * lu(k,1576) + lu(k,1593) = lu(k,1593) - lu(k,857) * lu(k,1576) + lu(k,2034) = lu(k,2034) - lu(k,851) * lu(k,2031) + lu(k,2035) = lu(k,2035) - lu(k,852) * lu(k,2031) + lu(k,2038) = lu(k,2038) - lu(k,853) * lu(k,2031) + lu(k,2040) = lu(k,2040) - lu(k,854) * lu(k,2031) + lu(k,2041) = - lu(k,855) * lu(k,2031) + lu(k,2046) = lu(k,2046) - lu(k,856) * lu(k,2031) + lu(k,2053) = lu(k,2053) - lu(k,857) * lu(k,2031) + lu(k,859) = 1._r8 / lu(k,859) + lu(k,860) = lu(k,860) * lu(k,859) + lu(k,861) = lu(k,861) * lu(k,859) + lu(k,862) = lu(k,862) * lu(k,859) + lu(k,863) = lu(k,863) * lu(k,859) + lu(k,864) = lu(k,864) * lu(k,859) + lu(k,865) = lu(k,865) * lu(k,859) + lu(k,866) = lu(k,866) * lu(k,859) + lu(k,867) = lu(k,867) * lu(k,859) + lu(k,868) = lu(k,868) * lu(k,859) + lu(k,1179) = lu(k,1179) - lu(k,860) * lu(k,1175) + lu(k,1181) = - lu(k,861) * lu(k,1175) + lu(k,1185) = - lu(k,862) * lu(k,1175) + lu(k,1187) = - lu(k,863) * lu(k,1175) + lu(k,1188) = lu(k,1188) - lu(k,864) * lu(k,1175) + lu(k,1189) = - lu(k,865) * lu(k,1175) + lu(k,1192) = lu(k,1192) - lu(k,866) * lu(k,1175) + lu(k,1194) = lu(k,1194) - lu(k,867) * lu(k,1175) + lu(k,1195) = lu(k,1195) - lu(k,868) * lu(k,1175) + lu(k,1828) = lu(k,1828) - lu(k,860) * lu(k,1803) + lu(k,1833) = lu(k,1833) - lu(k,861) * lu(k,1803) + lu(k,1850) = lu(k,1850) - lu(k,862) * lu(k,1803) + lu(k,1853) = lu(k,1853) - lu(k,863) * lu(k,1803) + lu(k,1854) = lu(k,1854) - lu(k,864) * lu(k,1803) + lu(k,1855) = lu(k,1855) - lu(k,865) * lu(k,1803) + lu(k,1863) = lu(k,1863) - lu(k,866) * lu(k,1803) + lu(k,1865) = lu(k,1865) - lu(k,867) * lu(k,1803) + lu(k,1867) = lu(k,1867) - lu(k,868) * lu(k,1803) + lu(k,1938) = lu(k,1938) - lu(k,860) * lu(k,1920) + lu(k,1943) = lu(k,1943) - lu(k,861) * lu(k,1920) + lu(k,1957) = lu(k,1957) - lu(k,862) * lu(k,1920) + lu(k,1960) = lu(k,1960) - lu(k,863) * lu(k,1920) + lu(k,1961) = lu(k,1961) - lu(k,864) * lu(k,1920) + lu(k,1962) = lu(k,1962) - lu(k,865) * lu(k,1920) + lu(k,1970) = lu(k,1970) - lu(k,866) * lu(k,1920) + lu(k,1972) = lu(k,1972) - lu(k,867) * lu(k,1920) + lu(k,1974) = - lu(k,868) * lu(k,1920) + lu(k,2349) = lu(k,2349) - lu(k,860) * lu(k,2334) + lu(k,2353) = lu(k,2353) - lu(k,861) * lu(k,2334) + lu(k,2369) = lu(k,2369) - lu(k,862) * lu(k,2334) + lu(k,2372) = lu(k,2372) - lu(k,863) * lu(k,2334) + lu(k,2373) = lu(k,2373) - lu(k,864) * lu(k,2334) + lu(k,2374) = lu(k,2374) - lu(k,865) * lu(k,2334) + lu(k,2382) = lu(k,2382) - lu(k,866) * lu(k,2334) + lu(k,2384) = lu(k,2384) - lu(k,867) * lu(k,2334) + lu(k,2386) = lu(k,2386) - lu(k,868) * lu(k,2334) + lu(k,869) = 1._r8 / lu(k,869) + lu(k,870) = lu(k,870) * lu(k,869) + lu(k,871) = lu(k,871) * lu(k,869) + lu(k,872) = lu(k,872) * lu(k,869) + lu(k,950) = lu(k,950) - lu(k,870) * lu(k,945) + lu(k,953) = lu(k,953) - lu(k,871) * lu(k,945) + lu(k,954) = lu(k,954) - lu(k,872) * lu(k,945) + lu(k,1111) = lu(k,1111) - lu(k,870) * lu(k,1106) + lu(k,1115) = lu(k,1115) - lu(k,871) * lu(k,1106) + lu(k,1116) = lu(k,1116) - lu(k,872) * lu(k,1106) + lu(k,1156) = lu(k,1156) - lu(k,870) * lu(k,1149) + lu(k,1160) = lu(k,1160) - lu(k,871) * lu(k,1149) + lu(k,1162) = lu(k,1162) - lu(k,872) * lu(k,1149) + lu(k,1228) = lu(k,1228) - lu(k,870) * lu(k,1218) + lu(k,1232) = lu(k,1232) - lu(k,871) * lu(k,1218) + lu(k,1233) = lu(k,1233) - lu(k,872) * lu(k,1218) + lu(k,1266) = lu(k,1266) - lu(k,870) * lu(k,1260) + lu(k,1269) = lu(k,1269) - lu(k,871) * lu(k,1260) + lu(k,1270) = lu(k,1270) - lu(k,872) * lu(k,1260) + lu(k,1283) = lu(k,1283) - lu(k,870) * lu(k,1273) + lu(k,1286) = lu(k,1286) - lu(k,871) * lu(k,1273) + lu(k,1288) = lu(k,1288) - lu(k,872) * lu(k,1273) + lu(k,1305) = lu(k,1305) - lu(k,870) * lu(k,1292) + lu(k,1309) = lu(k,1309) - lu(k,871) * lu(k,1292) + lu(k,1311) = lu(k,1311) - lu(k,872) * lu(k,1292) + lu(k,1351) = lu(k,1351) - lu(k,870) * lu(k,1336) + lu(k,1356) = lu(k,1356) - lu(k,871) * lu(k,1336) + lu(k,1358) = lu(k,1358) - lu(k,872) * lu(k,1336) + lu(k,1384) = lu(k,1384) - lu(k,870) * lu(k,1365) + lu(k,1389) = lu(k,1389) - lu(k,871) * lu(k,1365) + lu(k,1391) = lu(k,1391) - lu(k,872) * lu(k,1365) + lu(k,1406) = lu(k,1406) - lu(k,870) * lu(k,1394) + lu(k,1410) = lu(k,1410) - lu(k,871) * lu(k,1394) + lu(k,1412) = lu(k,1412) - lu(k,872) * lu(k,1394) + lu(k,1854) = lu(k,1854) - lu(k,870) * lu(k,1804) + lu(k,1863) = lu(k,1863) - lu(k,871) * lu(k,1804) + lu(k,1865) = lu(k,1865) - lu(k,872) * lu(k,1804) + lu(k,2187) = lu(k,2187) - lu(k,870) * lu(k,2155) + lu(k,2196) = lu(k,2196) - lu(k,871) * lu(k,2155) + lu(k,2198) = lu(k,2198) - lu(k,872) * lu(k,2155) lu(k,873) = 1._r8 / lu(k,873) lu(k,874) = lu(k,874) * lu(k,873) lu(k,875) = lu(k,875) * lu(k,873) @@ -2815,48 +2819,49 @@ subroutine lu_fac18( avec_len, lu ) lu(k,877) = lu(k,877) * lu(k,873) lu(k,878) = lu(k,878) * lu(k,873) lu(k,879) = lu(k,879) * lu(k,873) - lu(k,1028) = lu(k,1028) - lu(k,874) * lu(k,1026) - lu(k,1029) = lu(k,1029) - lu(k,875) * lu(k,1026) - lu(k,1031) = lu(k,1031) - lu(k,876) * lu(k,1026) - lu(k,1033) = lu(k,1033) - lu(k,877) * lu(k,1026) - lu(k,1035) = lu(k,1035) - lu(k,878) * lu(k,1026) - lu(k,1036) = - lu(k,879) * lu(k,1026) - lu(k,1539) = lu(k,1539) - lu(k,874) * lu(k,1537) - lu(k,1542) = lu(k,1542) - lu(k,875) * lu(k,1537) - lu(k,1545) = lu(k,1545) - lu(k,876) * lu(k,1537) - lu(k,1547) = lu(k,1547) - lu(k,877) * lu(k,1537) - lu(k,1550) = lu(k,1550) - lu(k,878) * lu(k,1537) - lu(k,1551) = lu(k,1551) - lu(k,879) * lu(k,1537) - lu(k,1632) = lu(k,1632) - lu(k,874) * lu(k,1628) - lu(k,1636) = lu(k,1636) - lu(k,875) * lu(k,1628) - lu(k,1640) = lu(k,1640) - lu(k,876) * lu(k,1628) - lu(k,1643) = lu(k,1643) - lu(k,877) * lu(k,1628) - lu(k,1648) = lu(k,1648) - lu(k,878) * lu(k,1628) - lu(k,1650) = - lu(k,879) * lu(k,1628) - lu(k,1998) = lu(k,1998) - lu(k,874) * lu(k,1955) - lu(k,2002) = lu(k,2002) - lu(k,875) * lu(k,1955) - lu(k,2006) = lu(k,2006) - lu(k,876) * lu(k,1955) - lu(k,2010) = lu(k,2010) - lu(k,877) * lu(k,1955) - lu(k,2015) = lu(k,2015) - lu(k,878) * lu(k,1955) - lu(k,2017) = lu(k,2017) - lu(k,879) * lu(k,1955) - lu(k,2203) = lu(k,2203) - lu(k,874) * lu(k,2171) - lu(k,2207) = lu(k,2207) - lu(k,875) * lu(k,2171) - lu(k,2211) = lu(k,2211) - lu(k,876) * lu(k,2171) - lu(k,2215) = lu(k,2215) - lu(k,877) * lu(k,2171) - lu(k,2220) = lu(k,2220) - lu(k,878) * lu(k,2171) - lu(k,2222) = lu(k,2222) - lu(k,879) * lu(k,2171) - lu(k,2249) = lu(k,2249) - lu(k,874) * lu(k,2234) - lu(k,2253) = lu(k,2253) - lu(k,875) * lu(k,2234) - lu(k,2257) = lu(k,2257) - lu(k,876) * lu(k,2234) - lu(k,2261) = lu(k,2261) - lu(k,877) * lu(k,2234) - lu(k,2266) = lu(k,2266) - lu(k,878) * lu(k,2234) - lu(k,2268) = lu(k,2268) - lu(k,879) * lu(k,2234) - lu(k,2452) = lu(k,2452) - lu(k,874) * lu(k,2440) - lu(k,2456) = lu(k,2456) - lu(k,875) * lu(k,2440) - lu(k,2460) = lu(k,2460) - lu(k,876) * lu(k,2440) - lu(k,2464) = lu(k,2464) - lu(k,877) * lu(k,2440) - lu(k,2469) = lu(k,2469) - lu(k,878) * lu(k,2440) - lu(k,2471) = lu(k,2471) - lu(k,879) * lu(k,2440) + lu(k,880) = lu(k,880) * lu(k,873) + lu(k,1556) = lu(k,1556) - lu(k,874) * lu(k,1553) + lu(k,1558) = lu(k,1558) - lu(k,875) * lu(k,1553) + lu(k,1560) = - lu(k,876) * lu(k,1553) + lu(k,1562) = - lu(k,877) * lu(k,1553) + lu(k,1564) = - lu(k,878) * lu(k,1553) + lu(k,1565) = - lu(k,879) * lu(k,1553) + lu(k,1568) = - lu(k,880) * lu(k,1553) + lu(k,1849) = lu(k,1849) - lu(k,874) * lu(k,1805) + lu(k,1851) = lu(k,1851) - lu(k,875) * lu(k,1805) + lu(k,1854) = lu(k,1854) - lu(k,876) * lu(k,1805) + lu(k,1857) = lu(k,1857) - lu(k,877) * lu(k,1805) + lu(k,1859) = lu(k,1859) - lu(k,878) * lu(k,1805) + lu(k,1861) = lu(k,1861) - lu(k,879) * lu(k,1805) + lu(k,1867) = lu(k,1867) - lu(k,880) * lu(k,1805) + lu(k,2045) = lu(k,2045) - lu(k,874) * lu(k,2032) + lu(k,2047) = lu(k,2047) - lu(k,875) * lu(k,2032) + lu(k,2050) = lu(k,2050) - lu(k,876) * lu(k,2032) + lu(k,2053) = lu(k,2053) - lu(k,877) * lu(k,2032) + lu(k,2055) = lu(k,2055) - lu(k,878) * lu(k,2032) + lu(k,2057) = lu(k,2057) - lu(k,879) * lu(k,2032) + lu(k,2063) = lu(k,2063) - lu(k,880) * lu(k,2032) + lu(k,2225) = lu(k,2225) - lu(k,874) * lu(k,2221) + lu(k,2227) = lu(k,2227) - lu(k,875) * lu(k,2221) + lu(k,2230) = lu(k,2230) - lu(k,876) * lu(k,2221) + lu(k,2233) = lu(k,2233) - lu(k,877) * lu(k,2221) + lu(k,2235) = lu(k,2235) - lu(k,878) * lu(k,2221) + lu(k,2237) = lu(k,2237) - lu(k,879) * lu(k,2221) + lu(k,2243) = lu(k,2243) - lu(k,880) * lu(k,2221) + lu(k,2368) = lu(k,2368) - lu(k,874) * lu(k,2335) + lu(k,2370) = lu(k,2370) - lu(k,875) * lu(k,2335) + lu(k,2373) = lu(k,2373) - lu(k,876) * lu(k,2335) + lu(k,2376) = lu(k,2376) - lu(k,877) * lu(k,2335) + lu(k,2378) = lu(k,2378) - lu(k,878) * lu(k,2335) + lu(k,2380) = - lu(k,879) * lu(k,2335) + lu(k,2386) = lu(k,2386) - lu(k,880) * lu(k,2335) + lu(k,2454) = lu(k,2454) - lu(k,874) * lu(k,2448) + lu(k,2456) = - lu(k,875) * lu(k,2448) + lu(k,2459) = lu(k,2459) - lu(k,876) * lu(k,2448) + lu(k,2462) = lu(k,2462) - lu(k,877) * lu(k,2448) + lu(k,2464) = lu(k,2464) - lu(k,878) * lu(k,2448) + lu(k,2466) = - lu(k,879) * lu(k,2448) + lu(k,2472) = lu(k,2472) - lu(k,880) * lu(k,2448) end do end subroutine lu_fac18 subroutine lu_fac19( avec_len, lu ) @@ -2873,252 +2878,302 @@ subroutine lu_fac19( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,880) = 1._r8 / lu(k,880) - lu(k,881) = lu(k,881) * lu(k,880) - lu(k,882) = lu(k,882) * lu(k,880) - lu(k,883) = lu(k,883) * lu(k,880) - lu(k,884) = lu(k,884) * lu(k,880) - lu(k,885) = lu(k,885) * lu(k,880) - lu(k,886) = lu(k,886) * lu(k,880) - lu(k,887) = lu(k,887) * lu(k,880) - lu(k,1555) = lu(k,1555) - lu(k,881) * lu(k,1552) - lu(k,1557) = lu(k,1557) - lu(k,882) * lu(k,1552) - lu(k,1560) = - lu(k,883) * lu(k,1552) - lu(k,1561) = - lu(k,884) * lu(k,1552) - lu(k,1563) = - lu(k,885) * lu(k,1552) - lu(k,1565) = - lu(k,886) * lu(k,1552) - lu(k,1567) = - lu(k,887) * lu(k,1552) - lu(k,1826) = lu(k,1826) - lu(k,881) * lu(k,1822) - lu(k,1828) = lu(k,1828) - lu(k,882) * lu(k,1822) - lu(k,1832) = lu(k,1832) - lu(k,883) * lu(k,1822) - lu(k,1833) = lu(k,1833) - lu(k,884) * lu(k,1822) - lu(k,1838) = lu(k,1838) - lu(k,885) * lu(k,1822) - lu(k,1842) = lu(k,1842) - lu(k,886) * lu(k,1822) - lu(k,1844) = lu(k,1844) - lu(k,887) * lu(k,1822) - lu(k,1999) = lu(k,1999) - lu(k,881) * lu(k,1956) - lu(k,2001) = lu(k,2001) - lu(k,882) * lu(k,1956) - lu(k,2005) = lu(k,2005) - lu(k,883) * lu(k,1956) - lu(k,2006) = lu(k,2006) - lu(k,884) * lu(k,1956) - lu(k,2011) = lu(k,2011) - lu(k,885) * lu(k,1956) - lu(k,2015) = lu(k,2015) - lu(k,886) * lu(k,1956) - lu(k,2017) = lu(k,2017) - lu(k,887) * lu(k,1956) - lu(k,2204) = lu(k,2204) - lu(k,881) * lu(k,2172) - lu(k,2206) = lu(k,2206) - lu(k,882) * lu(k,2172) - lu(k,2210) = - lu(k,883) * lu(k,2172) - lu(k,2211) = lu(k,2211) - lu(k,884) * lu(k,2172) - lu(k,2216) = lu(k,2216) - lu(k,885) * lu(k,2172) - lu(k,2220) = lu(k,2220) - lu(k,886) * lu(k,2172) - lu(k,2222) = lu(k,2222) - lu(k,887) * lu(k,2172) - lu(k,2453) = lu(k,2453) - lu(k,881) * lu(k,2441) - lu(k,2455) = lu(k,2455) - lu(k,882) * lu(k,2441) - lu(k,2459) = lu(k,2459) - lu(k,883) * lu(k,2441) - lu(k,2460) = lu(k,2460) - lu(k,884) * lu(k,2441) - lu(k,2465) = lu(k,2465) - lu(k,885) * lu(k,2441) - lu(k,2469) = lu(k,2469) - lu(k,886) * lu(k,2441) - lu(k,2471) = lu(k,2471) - lu(k,887) * lu(k,2441) - lu(k,2479) = lu(k,2479) - lu(k,881) * lu(k,2473) - lu(k,2481) = - lu(k,882) * lu(k,2473) - lu(k,2485) = - lu(k,883) * lu(k,2473) - lu(k,2486) = lu(k,2486) - lu(k,884) * lu(k,2473) - lu(k,2491) = lu(k,2491) - lu(k,885) * lu(k,2473) - lu(k,2495) = lu(k,2495) - lu(k,886) * lu(k,2473) - lu(k,2497) = lu(k,2497) - lu(k,887) * lu(k,2473) - lu(k,889) = 1._r8 / lu(k,889) - lu(k,890) = lu(k,890) * lu(k,889) - lu(k,891) = lu(k,891) * lu(k,889) - lu(k,892) = lu(k,892) * lu(k,889) - lu(k,893) = lu(k,893) * lu(k,889) - lu(k,894) = lu(k,894) * lu(k,889) - lu(k,895) = lu(k,895) * lu(k,889) - lu(k,898) = lu(k,898) - lu(k,890) * lu(k,896) - lu(k,899) = lu(k,899) - lu(k,891) * lu(k,896) - lu(k,900) = lu(k,900) - lu(k,892) * lu(k,896) - lu(k,901) = lu(k,901) - lu(k,893) * lu(k,896) - lu(k,902) = lu(k,902) - lu(k,894) * lu(k,896) - lu(k,903) = lu(k,903) - lu(k,895) * lu(k,896) - lu(k,909) = lu(k,909) - lu(k,890) * lu(k,907) - lu(k,910) = lu(k,910) - lu(k,891) * lu(k,907) - lu(k,913) = lu(k,913) - lu(k,892) * lu(k,907) - lu(k,914) = lu(k,914) - lu(k,893) * lu(k,907) - lu(k,915) = lu(k,915) - lu(k,894) * lu(k,907) - lu(k,916) = lu(k,916) - lu(k,895) * lu(k,907) - lu(k,1042) = lu(k,1042) - lu(k,890) * lu(k,1040) - lu(k,1043) = lu(k,1043) - lu(k,891) * lu(k,1040) - lu(k,1046) = lu(k,1046) - lu(k,892) * lu(k,1040) - lu(k,1048) = lu(k,1048) - lu(k,893) * lu(k,1040) - lu(k,1049) = lu(k,1049) - lu(k,894) * lu(k,1040) - lu(k,1052) = lu(k,1052) - lu(k,895) * lu(k,1040) - lu(k,1491) = - lu(k,890) * lu(k,1489) - lu(k,1492) = lu(k,1492) - lu(k,891) * lu(k,1489) - lu(k,1495) = lu(k,1495) - lu(k,892) * lu(k,1489) - lu(k,1497) = - lu(k,893) * lu(k,1489) - lu(k,1498) = - lu(k,894) * lu(k,1489) - lu(k,1502) = lu(k,1502) - lu(k,895) * lu(k,1489) - lu(k,1578) = lu(k,1578) - lu(k,890) * lu(k,1576) - lu(k,1580) = lu(k,1580) - lu(k,891) * lu(k,1576) - lu(k,1586) = lu(k,1586) - lu(k,892) * lu(k,1576) - lu(k,1590) = lu(k,1590) - lu(k,893) * lu(k,1576) - lu(k,1591) = lu(k,1591) - lu(k,894) * lu(k,1576) - lu(k,1597) = lu(k,1597) - lu(k,895) * lu(k,1576) - lu(k,1750) = lu(k,1750) - lu(k,890) * lu(k,1748) - lu(k,1756) = lu(k,1756) - lu(k,891) * lu(k,1748) - lu(k,1784) = lu(k,1784) - lu(k,892) * lu(k,1748) - lu(k,1788) = lu(k,1788) - lu(k,893) * lu(k,1748) - lu(k,1789) = - lu(k,894) * lu(k,1748) - lu(k,1799) = lu(k,1799) - lu(k,895) * lu(k,1748) - lu(k,2444) = lu(k,2444) - lu(k,890) * lu(k,2442) - lu(k,2447) = lu(k,2447) - lu(k,891) * lu(k,2442) - lu(k,2454) = lu(k,2454) - lu(k,892) * lu(k,2442) - lu(k,2458) = lu(k,2458) - lu(k,893) * lu(k,2442) - lu(k,2459) = lu(k,2459) - lu(k,894) * lu(k,2442) - lu(k,2469) = lu(k,2469) - lu(k,895) * lu(k,2442) - lu(k,897) = 1._r8 / lu(k,897) - lu(k,898) = lu(k,898) * lu(k,897) - lu(k,899) = lu(k,899) * lu(k,897) - lu(k,900) = lu(k,900) * lu(k,897) - lu(k,901) = lu(k,901) * lu(k,897) - lu(k,902) = lu(k,902) * lu(k,897) - lu(k,903) = lu(k,903) * lu(k,897) - lu(k,909) = lu(k,909) - lu(k,898) * lu(k,908) - lu(k,910) = lu(k,910) - lu(k,899) * lu(k,908) - lu(k,913) = lu(k,913) - lu(k,900) * lu(k,908) - lu(k,914) = lu(k,914) - lu(k,901) * lu(k,908) - lu(k,915) = lu(k,915) - lu(k,902) * lu(k,908) - lu(k,916) = lu(k,916) - lu(k,903) * lu(k,908) - lu(k,1042) = lu(k,1042) - lu(k,898) * lu(k,1041) - lu(k,1043) = lu(k,1043) - lu(k,899) * lu(k,1041) - lu(k,1046) = lu(k,1046) - lu(k,900) * lu(k,1041) - lu(k,1048) = lu(k,1048) - lu(k,901) * lu(k,1041) - lu(k,1049) = lu(k,1049) - lu(k,902) * lu(k,1041) - lu(k,1052) = lu(k,1052) - lu(k,903) * lu(k,1041) - lu(k,1491) = lu(k,1491) - lu(k,898) * lu(k,1490) - lu(k,1492) = lu(k,1492) - lu(k,899) * lu(k,1490) - lu(k,1495) = lu(k,1495) - lu(k,900) * lu(k,1490) - lu(k,1497) = lu(k,1497) - lu(k,901) * lu(k,1490) - lu(k,1498) = lu(k,1498) - lu(k,902) * lu(k,1490) - lu(k,1502) = lu(k,1502) - lu(k,903) * lu(k,1490) - lu(k,1578) = lu(k,1578) - lu(k,898) * lu(k,1577) - lu(k,1580) = lu(k,1580) - lu(k,899) * lu(k,1577) - lu(k,1586) = lu(k,1586) - lu(k,900) * lu(k,1577) - lu(k,1590) = lu(k,1590) - lu(k,901) * lu(k,1577) - lu(k,1591) = lu(k,1591) - lu(k,902) * lu(k,1577) - lu(k,1597) = lu(k,1597) - lu(k,903) * lu(k,1577) - lu(k,1750) = lu(k,1750) - lu(k,898) * lu(k,1749) - lu(k,1756) = lu(k,1756) - lu(k,899) * lu(k,1749) - lu(k,1784) = lu(k,1784) - lu(k,900) * lu(k,1749) - lu(k,1788) = lu(k,1788) - lu(k,901) * lu(k,1749) - lu(k,1789) = lu(k,1789) - lu(k,902) * lu(k,1749) - lu(k,1799) = lu(k,1799) - lu(k,903) * lu(k,1749) - lu(k,2444) = lu(k,2444) - lu(k,898) * lu(k,2443) - lu(k,2447) = lu(k,2447) - lu(k,899) * lu(k,2443) - lu(k,2454) = lu(k,2454) - lu(k,900) * lu(k,2443) - lu(k,2458) = lu(k,2458) - lu(k,901) * lu(k,2443) - lu(k,2459) = lu(k,2459) - lu(k,902) * lu(k,2443) - lu(k,2469) = lu(k,2469) - lu(k,903) * lu(k,2443) - lu(k,909) = 1._r8 / lu(k,909) - lu(k,910) = lu(k,910) * lu(k,909) - lu(k,911) = lu(k,911) * lu(k,909) - lu(k,912) = lu(k,912) * lu(k,909) - lu(k,913) = lu(k,913) * lu(k,909) - lu(k,914) = lu(k,914) * lu(k,909) - lu(k,915) = lu(k,915) * lu(k,909) - lu(k,916) = lu(k,916) * lu(k,909) - lu(k,1043) = lu(k,1043) - lu(k,910) * lu(k,1042) - lu(k,1044) = lu(k,1044) - lu(k,911) * lu(k,1042) - lu(k,1045) = lu(k,1045) - lu(k,912) * lu(k,1042) - lu(k,1046) = lu(k,1046) - lu(k,913) * lu(k,1042) - lu(k,1048) = lu(k,1048) - lu(k,914) * lu(k,1042) - lu(k,1049) = lu(k,1049) - lu(k,915) * lu(k,1042) - lu(k,1052) = lu(k,1052) - lu(k,916) * lu(k,1042) - lu(k,1492) = lu(k,1492) - lu(k,910) * lu(k,1491) - lu(k,1493) = lu(k,1493) - lu(k,911) * lu(k,1491) - lu(k,1494) = lu(k,1494) - lu(k,912) * lu(k,1491) - lu(k,1495) = lu(k,1495) - lu(k,913) * lu(k,1491) - lu(k,1497) = lu(k,1497) - lu(k,914) * lu(k,1491) - lu(k,1498) = lu(k,1498) - lu(k,915) * lu(k,1491) - lu(k,1502) = lu(k,1502) - lu(k,916) * lu(k,1491) - lu(k,1580) = lu(k,1580) - lu(k,910) * lu(k,1578) - lu(k,1581) = lu(k,1581) - lu(k,911) * lu(k,1578) - lu(k,1583) = lu(k,1583) - lu(k,912) * lu(k,1578) - lu(k,1586) = lu(k,1586) - lu(k,913) * lu(k,1578) - lu(k,1590) = lu(k,1590) - lu(k,914) * lu(k,1578) - lu(k,1591) = lu(k,1591) - lu(k,915) * lu(k,1578) - lu(k,1597) = lu(k,1597) - lu(k,916) * lu(k,1578) - lu(k,1756) = lu(k,1756) - lu(k,910) * lu(k,1750) - lu(k,1766) = lu(k,1766) - lu(k,911) * lu(k,1750) - lu(k,1782) = lu(k,1782) - lu(k,912) * lu(k,1750) - lu(k,1784) = lu(k,1784) - lu(k,913) * lu(k,1750) - lu(k,1788) = lu(k,1788) - lu(k,914) * lu(k,1750) - lu(k,1789) = lu(k,1789) - lu(k,915) * lu(k,1750) - lu(k,1799) = lu(k,1799) - lu(k,916) * lu(k,1750) - lu(k,2447) = lu(k,2447) - lu(k,910) * lu(k,2444) - lu(k,2448) = lu(k,2448) - lu(k,911) * lu(k,2444) - lu(k,2449) = lu(k,2449) - lu(k,912) * lu(k,2444) - lu(k,2454) = lu(k,2454) - lu(k,913) * lu(k,2444) - lu(k,2458) = lu(k,2458) - lu(k,914) * lu(k,2444) - lu(k,2459) = lu(k,2459) - lu(k,915) * lu(k,2444) - lu(k,2469) = lu(k,2469) - lu(k,916) * lu(k,2444) - lu(k,920) = 1._r8 / lu(k,920) - lu(k,921) = lu(k,921) * lu(k,920) - lu(k,922) = lu(k,922) * lu(k,920) - lu(k,923) = lu(k,923) * lu(k,920) - lu(k,924) = lu(k,924) * lu(k,920) - lu(k,925) = lu(k,925) * lu(k,920) - lu(k,926) = lu(k,926) * lu(k,920) - lu(k,927) = lu(k,927) * lu(k,920) - lu(k,928) = lu(k,928) * lu(k,920) - lu(k,929) = lu(k,929) * lu(k,920) - lu(k,930) = lu(k,930) * lu(k,920) - lu(k,931) = lu(k,931) * lu(k,920) - lu(k,932) = lu(k,932) * lu(k,920) - lu(k,933) = lu(k,933) * lu(k,920) - lu(k,934) = lu(k,934) * lu(k,920) - lu(k,935) = lu(k,935) * lu(k,920) - lu(k,1959) = lu(k,1959) - lu(k,921) * lu(k,1957) - lu(k,1977) = lu(k,1977) - lu(k,922) * lu(k,1957) - lu(k,1979) = lu(k,1979) - lu(k,923) * lu(k,1957) - lu(k,1986) = - lu(k,924) * lu(k,1957) - lu(k,1987) = lu(k,1987) - lu(k,925) * lu(k,1957) - lu(k,1989) = lu(k,1989) - lu(k,926) * lu(k,1957) - lu(k,1990) = lu(k,1990) - lu(k,927) * lu(k,1957) - lu(k,1992) = lu(k,1992) - lu(k,928) * lu(k,1957) - lu(k,1994) = lu(k,1994) - lu(k,929) * lu(k,1957) - lu(k,2006) = lu(k,2006) - lu(k,930) * lu(k,1957) - lu(k,2007) = lu(k,2007) - lu(k,931) * lu(k,1957) - lu(k,2009) = lu(k,2009) - lu(k,932) * lu(k,1957) - lu(k,2013) = lu(k,2013) - lu(k,933) * lu(k,1957) - lu(k,2014) = lu(k,2014) - lu(k,934) * lu(k,1957) - lu(k,2016) = lu(k,2016) - lu(k,935) * lu(k,1957) - lu(k,2027) = - lu(k,921) * lu(k,2025) - lu(k,2039) = lu(k,2039) - lu(k,922) * lu(k,2025) - lu(k,2041) = lu(k,2041) - lu(k,923) * lu(k,2025) - lu(k,2048) = lu(k,2048) - lu(k,924) * lu(k,2025) - lu(k,2049) = lu(k,2049) - lu(k,925) * lu(k,2025) - lu(k,2051) = lu(k,2051) - lu(k,926) * lu(k,2025) - lu(k,2052) = lu(k,2052) - lu(k,927) * lu(k,2025) - lu(k,2054) = lu(k,2054) - lu(k,928) * lu(k,2025) - lu(k,2056) = lu(k,2056) - lu(k,929) * lu(k,2025) - lu(k,2066) = lu(k,2066) - lu(k,930) * lu(k,2025) - lu(k,2067) = lu(k,2067) - lu(k,931) * lu(k,2025) - lu(k,2069) = lu(k,2069) - lu(k,932) * lu(k,2025) - lu(k,2073) = - lu(k,933) * lu(k,2025) - lu(k,2074) = - lu(k,934) * lu(k,2025) - lu(k,2076) = lu(k,2076) - lu(k,935) * lu(k,2025) - lu(k,2381) = lu(k,2381) - lu(k,921) * lu(k,2380) - lu(k,2392) = lu(k,2392) - lu(k,922) * lu(k,2380) - lu(k,2394) = lu(k,2394) - lu(k,923) * lu(k,2380) - lu(k,2399) = - lu(k,924) * lu(k,2380) - lu(k,2400) = lu(k,2400) - lu(k,925) * lu(k,2380) - lu(k,2402) = - lu(k,926) * lu(k,2380) - lu(k,2403) = - lu(k,927) * lu(k,2380) - lu(k,2405) = lu(k,2405) - lu(k,928) * lu(k,2380) - lu(k,2407) = lu(k,2407) - lu(k,929) * lu(k,2380) - lu(k,2417) = lu(k,2417) - lu(k,930) * lu(k,2380) - lu(k,2418) = lu(k,2418) - lu(k,931) * lu(k,2380) - lu(k,2420) = lu(k,2420) - lu(k,932) * lu(k,2380) - lu(k,2424) = lu(k,2424) - lu(k,933) * lu(k,2380) - lu(k,2425) = lu(k,2425) - lu(k,934) * lu(k,2380) - lu(k,2427) = lu(k,2427) - lu(k,935) * lu(k,2380) + lu(k,882) = 1._r8 / lu(k,882) + lu(k,883) = lu(k,883) * lu(k,882) + lu(k,884) = lu(k,884) * lu(k,882) + lu(k,885) = lu(k,885) * lu(k,882) + lu(k,886) = lu(k,886) * lu(k,882) + lu(k,887) = lu(k,887) * lu(k,882) + lu(k,888) = lu(k,888) * lu(k,882) + lu(k,1045) = lu(k,1045) - lu(k,883) * lu(k,1043) + lu(k,1047) = lu(k,1047) - lu(k,884) * lu(k,1043) + lu(k,1048) = lu(k,1048) - lu(k,885) * lu(k,1043) + lu(k,1049) = lu(k,1049) - lu(k,886) * lu(k,1043) + lu(k,1052) = lu(k,1052) - lu(k,887) * lu(k,1043) + lu(k,1053) = - lu(k,888) * lu(k,1043) + lu(k,1540) = lu(k,1540) - lu(k,883) * lu(k,1538) + lu(k,1544) = lu(k,1544) - lu(k,884) * lu(k,1538) + lu(k,1545) = lu(k,1545) - lu(k,885) * lu(k,1538) + lu(k,1546) = lu(k,1546) - lu(k,886) * lu(k,1538) + lu(k,1551) = lu(k,1551) - lu(k,887) * lu(k,1538) + lu(k,1552) = lu(k,1552) - lu(k,888) * lu(k,1538) + lu(k,1848) = lu(k,1848) - lu(k,883) * lu(k,1806) + lu(k,1854) = lu(k,1854) - lu(k,884) * lu(k,1806) + lu(k,1856) = lu(k,1856) - lu(k,885) * lu(k,1806) + lu(k,1857) = lu(k,1857) - lu(k,886) * lu(k,1806) + lu(k,1866) = lu(k,1866) - lu(k,887) * lu(k,1806) + lu(k,1867) = lu(k,1867) - lu(k,888) * lu(k,1806) + lu(k,2001) = lu(k,2001) - lu(k,883) * lu(k,1986) + lu(k,2007) = lu(k,2007) - lu(k,884) * lu(k,1986) + lu(k,2009) = lu(k,2009) - lu(k,885) * lu(k,1986) + lu(k,2010) = lu(k,2010) - lu(k,886) * lu(k,1986) + lu(k,2019) = lu(k,2019) - lu(k,887) * lu(k,1986) + lu(k,2020) = lu(k,2020) - lu(k,888) * lu(k,1986) + lu(k,2044) = lu(k,2044) - lu(k,883) * lu(k,2033) + lu(k,2050) = lu(k,2050) - lu(k,884) * lu(k,2033) + lu(k,2052) = lu(k,2052) - lu(k,885) * lu(k,2033) + lu(k,2053) = lu(k,2053) - lu(k,886) * lu(k,2033) + lu(k,2062) = lu(k,2062) - lu(k,887) * lu(k,2033) + lu(k,2063) = lu(k,2063) - lu(k,888) * lu(k,2033) + lu(k,2367) = lu(k,2367) - lu(k,883) * lu(k,2336) + lu(k,2373) = lu(k,2373) - lu(k,884) * lu(k,2336) + lu(k,2375) = lu(k,2375) - lu(k,885) * lu(k,2336) + lu(k,2376) = lu(k,2376) - lu(k,886) * lu(k,2336) + lu(k,2385) = lu(k,2385) - lu(k,887) * lu(k,2336) + lu(k,2386) = lu(k,2386) - lu(k,888) * lu(k,2336) + lu(k,2481) = lu(k,2481) - lu(k,883) * lu(k,2477) + lu(k,2486) = lu(k,2486) - lu(k,884) * lu(k,2477) + lu(k,2488) = lu(k,2488) - lu(k,885) * lu(k,2477) + lu(k,2489) = lu(k,2489) - lu(k,886) * lu(k,2477) + lu(k,2498) = lu(k,2498) - lu(k,887) * lu(k,2477) + lu(k,2499) = - lu(k,888) * lu(k,2477) + lu(k,890) = 1._r8 / lu(k,890) + lu(k,891) = lu(k,891) * lu(k,890) + lu(k,892) = lu(k,892) * lu(k,890) + lu(k,893) = lu(k,893) * lu(k,890) + lu(k,894) = lu(k,894) * lu(k,890) + lu(k,895) = lu(k,895) * lu(k,890) + lu(k,896) = lu(k,896) * lu(k,890) + lu(k,899) = lu(k,899) - lu(k,891) * lu(k,897) + lu(k,900) = lu(k,900) - lu(k,892) * lu(k,897) + lu(k,901) = lu(k,901) - lu(k,893) * lu(k,897) + lu(k,902) = lu(k,902) - lu(k,894) * lu(k,897) + lu(k,903) = lu(k,903) - lu(k,895) * lu(k,897) + lu(k,904) = lu(k,904) - lu(k,896) * lu(k,897) + lu(k,910) = lu(k,910) - lu(k,891) * lu(k,908) + lu(k,911) = lu(k,911) - lu(k,892) * lu(k,908) + lu(k,914) = lu(k,914) - lu(k,893) * lu(k,908) + lu(k,915) = lu(k,915) - lu(k,894) * lu(k,908) + lu(k,916) = lu(k,916) - lu(k,895) * lu(k,908) + lu(k,917) = lu(k,917) - lu(k,896) * lu(k,908) + lu(k,1031) = lu(k,1031) - lu(k,891) * lu(k,1029) + lu(k,1032) = lu(k,1032) - lu(k,892) * lu(k,1029) + lu(k,1035) = lu(k,1035) - lu(k,893) * lu(k,1029) + lu(k,1038) = lu(k,1038) - lu(k,894) * lu(k,1029) + lu(k,1039) = lu(k,1039) - lu(k,895) * lu(k,1029) + lu(k,1041) = lu(k,1041) - lu(k,896) * lu(k,1029) + lu(k,1492) = - lu(k,891) * lu(k,1490) + lu(k,1493) = lu(k,1493) - lu(k,892) * lu(k,1490) + lu(k,1496) = lu(k,1496) - lu(k,893) * lu(k,1490) + lu(k,1499) = - lu(k,894) * lu(k,1490) + lu(k,1500) = lu(k,1500) - lu(k,895) * lu(k,1490) + lu(k,1502) = - lu(k,896) * lu(k,1490) + lu(k,1579) = lu(k,1579) - lu(k,891) * lu(k,1577) + lu(k,1581) = lu(k,1581) - lu(k,892) * lu(k,1577) + lu(k,1587) = lu(k,1587) - lu(k,893) * lu(k,1577) + lu(k,1591) = lu(k,1591) - lu(k,894) * lu(k,1577) + lu(k,1593) = lu(k,1593) - lu(k,895) * lu(k,1577) + lu(k,1596) = lu(k,1596) - lu(k,896) * lu(k,1577) + lu(k,1923) = lu(k,1923) - lu(k,891) * lu(k,1921) + lu(k,1929) = lu(k,1929) - lu(k,892) * lu(k,1921) + lu(k,1957) = lu(k,1957) - lu(k,893) * lu(k,1921) + lu(k,1962) = lu(k,1962) - lu(k,894) * lu(k,1921) + lu(k,1964) = lu(k,1964) - lu(k,895) * lu(k,1921) + lu(k,1968) = lu(k,1968) - lu(k,896) * lu(k,1921) + lu(k,2036) = lu(k,2036) - lu(k,891) * lu(k,2034) + lu(k,2038) = lu(k,2038) - lu(k,892) * lu(k,2034) + lu(k,2046) = lu(k,2046) - lu(k,893) * lu(k,2034) + lu(k,2051) = lu(k,2051) - lu(k,894) * lu(k,2034) + lu(k,2053) = lu(k,2053) - lu(k,895) * lu(k,2034) + lu(k,2057) = lu(k,2057) - lu(k,896) * lu(k,2034) + lu(k,898) = 1._r8 / lu(k,898) + lu(k,899) = lu(k,899) * lu(k,898) + lu(k,900) = lu(k,900) * lu(k,898) + lu(k,901) = lu(k,901) * lu(k,898) + lu(k,902) = lu(k,902) * lu(k,898) + lu(k,903) = lu(k,903) * lu(k,898) + lu(k,904) = lu(k,904) * lu(k,898) + lu(k,910) = lu(k,910) - lu(k,899) * lu(k,909) + lu(k,911) = lu(k,911) - lu(k,900) * lu(k,909) + lu(k,914) = lu(k,914) - lu(k,901) * lu(k,909) + lu(k,915) = lu(k,915) - lu(k,902) * lu(k,909) + lu(k,916) = lu(k,916) - lu(k,903) * lu(k,909) + lu(k,917) = lu(k,917) - lu(k,904) * lu(k,909) + lu(k,1031) = lu(k,1031) - lu(k,899) * lu(k,1030) + lu(k,1032) = lu(k,1032) - lu(k,900) * lu(k,1030) + lu(k,1035) = lu(k,1035) - lu(k,901) * lu(k,1030) + lu(k,1038) = lu(k,1038) - lu(k,902) * lu(k,1030) + lu(k,1039) = lu(k,1039) - lu(k,903) * lu(k,1030) + lu(k,1041) = lu(k,1041) - lu(k,904) * lu(k,1030) + lu(k,1492) = lu(k,1492) - lu(k,899) * lu(k,1491) + lu(k,1493) = lu(k,1493) - lu(k,900) * lu(k,1491) + lu(k,1496) = lu(k,1496) - lu(k,901) * lu(k,1491) + lu(k,1499) = lu(k,1499) - lu(k,902) * lu(k,1491) + lu(k,1500) = lu(k,1500) - lu(k,903) * lu(k,1491) + lu(k,1502) = lu(k,1502) - lu(k,904) * lu(k,1491) + lu(k,1579) = lu(k,1579) - lu(k,899) * lu(k,1578) + lu(k,1581) = lu(k,1581) - lu(k,900) * lu(k,1578) + lu(k,1587) = lu(k,1587) - lu(k,901) * lu(k,1578) + lu(k,1591) = lu(k,1591) - lu(k,902) * lu(k,1578) + lu(k,1593) = lu(k,1593) - lu(k,903) * lu(k,1578) + lu(k,1596) = lu(k,1596) - lu(k,904) * lu(k,1578) + lu(k,1923) = lu(k,1923) - lu(k,899) * lu(k,1922) + lu(k,1929) = lu(k,1929) - lu(k,900) * lu(k,1922) + lu(k,1957) = lu(k,1957) - lu(k,901) * lu(k,1922) + lu(k,1962) = lu(k,1962) - lu(k,902) * lu(k,1922) + lu(k,1964) = lu(k,1964) - lu(k,903) * lu(k,1922) + lu(k,1968) = lu(k,1968) - lu(k,904) * lu(k,1922) + lu(k,2036) = lu(k,2036) - lu(k,899) * lu(k,2035) + lu(k,2038) = lu(k,2038) - lu(k,900) * lu(k,2035) + lu(k,2046) = lu(k,2046) - lu(k,901) * lu(k,2035) + lu(k,2051) = lu(k,2051) - lu(k,902) * lu(k,2035) + lu(k,2053) = lu(k,2053) - lu(k,903) * lu(k,2035) + lu(k,2057) = lu(k,2057) - lu(k,904) * lu(k,2035) + lu(k,910) = 1._r8 / lu(k,910) + lu(k,911) = lu(k,911) * lu(k,910) + lu(k,912) = lu(k,912) * lu(k,910) + lu(k,913) = lu(k,913) * lu(k,910) + lu(k,914) = lu(k,914) * lu(k,910) + lu(k,915) = lu(k,915) * lu(k,910) + lu(k,916) = lu(k,916) * lu(k,910) + lu(k,917) = lu(k,917) * lu(k,910) + lu(k,1032) = lu(k,1032) - lu(k,911) * lu(k,1031) + lu(k,1033) = lu(k,1033) - lu(k,912) * lu(k,1031) + lu(k,1034) = lu(k,1034) - lu(k,913) * lu(k,1031) + lu(k,1035) = lu(k,1035) - lu(k,914) * lu(k,1031) + lu(k,1038) = lu(k,1038) - lu(k,915) * lu(k,1031) + lu(k,1039) = lu(k,1039) - lu(k,916) * lu(k,1031) + lu(k,1041) = lu(k,1041) - lu(k,917) * lu(k,1031) + lu(k,1493) = lu(k,1493) - lu(k,911) * lu(k,1492) + lu(k,1494) = lu(k,1494) - lu(k,912) * lu(k,1492) + lu(k,1495) = lu(k,1495) - lu(k,913) * lu(k,1492) + lu(k,1496) = lu(k,1496) - lu(k,914) * lu(k,1492) + lu(k,1499) = lu(k,1499) - lu(k,915) * lu(k,1492) + lu(k,1500) = lu(k,1500) - lu(k,916) * lu(k,1492) + lu(k,1502) = lu(k,1502) - lu(k,917) * lu(k,1492) + lu(k,1581) = lu(k,1581) - lu(k,911) * lu(k,1579) + lu(k,1582) = lu(k,1582) - lu(k,912) * lu(k,1579) + lu(k,1584) = lu(k,1584) - lu(k,913) * lu(k,1579) + lu(k,1587) = lu(k,1587) - lu(k,914) * lu(k,1579) + lu(k,1591) = lu(k,1591) - lu(k,915) * lu(k,1579) + lu(k,1593) = lu(k,1593) - lu(k,916) * lu(k,1579) + lu(k,1596) = lu(k,1596) - lu(k,917) * lu(k,1579) + lu(k,1929) = lu(k,1929) - lu(k,911) * lu(k,1923) + lu(k,1939) = lu(k,1939) - lu(k,912) * lu(k,1923) + lu(k,1955) = lu(k,1955) - lu(k,913) * lu(k,1923) + lu(k,1957) = lu(k,1957) - lu(k,914) * lu(k,1923) + lu(k,1962) = lu(k,1962) - lu(k,915) * lu(k,1923) + lu(k,1964) = lu(k,1964) - lu(k,916) * lu(k,1923) + lu(k,1968) = lu(k,1968) - lu(k,917) * lu(k,1923) + lu(k,2038) = lu(k,2038) - lu(k,911) * lu(k,2036) + lu(k,2040) = lu(k,2040) - lu(k,912) * lu(k,2036) + lu(k,2041) = lu(k,2041) - lu(k,913) * lu(k,2036) + lu(k,2046) = lu(k,2046) - lu(k,914) * lu(k,2036) + lu(k,2051) = lu(k,2051) - lu(k,915) * lu(k,2036) + lu(k,2053) = lu(k,2053) - lu(k,916) * lu(k,2036) + lu(k,2057) = lu(k,2057) - lu(k,917) * lu(k,2036) + lu(k,918) = 1._r8 / lu(k,918) + lu(k,919) = lu(k,919) * lu(k,918) + lu(k,920) = lu(k,920) * lu(k,918) + lu(k,921) = lu(k,921) * lu(k,918) + lu(k,922) = lu(k,922) * lu(k,918) + lu(k,923) = lu(k,923) * lu(k,918) + lu(k,1137) = - lu(k,919) * lu(k,1132) + lu(k,1138) = - lu(k,920) * lu(k,1132) + lu(k,1140) = lu(k,1140) - lu(k,921) * lu(k,1132) + lu(k,1141) = lu(k,1141) - lu(k,922) * lu(k,1132) + lu(k,1146) = - lu(k,923) * lu(k,1132) + lu(k,1182) = - lu(k,919) * lu(k,1176) + lu(k,1183) = - lu(k,920) * lu(k,1176) + lu(k,1187) = lu(k,1187) - lu(k,921) * lu(k,1176) + lu(k,1188) = lu(k,1188) - lu(k,922) * lu(k,1176) + lu(k,1194) = lu(k,1194) - lu(k,923) * lu(k,1176) + lu(k,1300) = - lu(k,919) * lu(k,1293) + lu(k,1302) = lu(k,1302) - lu(k,920) * lu(k,1293) + lu(k,1304) = lu(k,1304) - lu(k,921) * lu(k,1293) + lu(k,1305) = lu(k,1305) - lu(k,922) * lu(k,1293) + lu(k,1311) = lu(k,1311) - lu(k,923) * lu(k,1293) + lu(k,1376) = lu(k,1376) - lu(k,919) * lu(k,1366) + lu(k,1381) = lu(k,1381) - lu(k,920) * lu(k,1366) + lu(k,1383) = lu(k,1383) - lu(k,921) * lu(k,1366) + lu(k,1384) = lu(k,1384) - lu(k,922) * lu(k,1366) + lu(k,1391) = lu(k,1391) - lu(k,923) * lu(k,1366) + lu(k,1838) = lu(k,1838) - lu(k,919) * lu(k,1807) + lu(k,1844) = lu(k,1844) - lu(k,920) * lu(k,1807) + lu(k,1853) = lu(k,1853) - lu(k,921) * lu(k,1807) + lu(k,1854) = lu(k,1854) - lu(k,922) * lu(k,1807) + lu(k,1865) = lu(k,1865) - lu(k,923) * lu(k,1807) + lu(k,1948) = lu(k,1948) - lu(k,919) * lu(k,1924) + lu(k,1954) = lu(k,1954) - lu(k,920) * lu(k,1924) + lu(k,1960) = lu(k,1960) - lu(k,921) * lu(k,1924) + lu(k,1961) = lu(k,1961) - lu(k,922) * lu(k,1924) + lu(k,1972) = lu(k,1972) - lu(k,923) * lu(k,1924) + lu(k,2175) = lu(k,2175) - lu(k,919) * lu(k,2156) + lu(k,2181) = lu(k,2181) - lu(k,920) * lu(k,2156) + lu(k,2186) = lu(k,2186) - lu(k,921) * lu(k,2156) + lu(k,2187) = lu(k,2187) - lu(k,922) * lu(k,2156) + lu(k,2198) = lu(k,2198) - lu(k,923) * lu(k,2156) + lu(k,2358) = lu(k,2358) - lu(k,919) * lu(k,2337) + lu(k,2364) = lu(k,2364) - lu(k,920) * lu(k,2337) + lu(k,2372) = lu(k,2372) - lu(k,921) * lu(k,2337) + lu(k,2373) = lu(k,2373) - lu(k,922) * lu(k,2337) + lu(k,2384) = lu(k,2384) - lu(k,923) * lu(k,2337) + lu(k,2419) = lu(k,2419) - lu(k,919) * lu(k,2394) + lu(k,2425) = lu(k,2425) - lu(k,920) * lu(k,2394) + lu(k,2432) = lu(k,2432) - lu(k,921) * lu(k,2394) + lu(k,2433) = lu(k,2433) - lu(k,922) * lu(k,2394) + lu(k,2444) = lu(k,2444) - lu(k,923) * lu(k,2394) + lu(k,927) = 1._r8 / lu(k,927) + lu(k,928) = lu(k,928) * lu(k,927) + lu(k,929) = lu(k,929) * lu(k,927) + lu(k,930) = lu(k,930) * lu(k,927) + lu(k,931) = lu(k,931) * lu(k,927) + lu(k,932) = lu(k,932) * lu(k,927) + lu(k,933) = lu(k,933) * lu(k,927) + lu(k,934) = lu(k,934) * lu(k,927) + lu(k,935) = lu(k,935) * lu(k,927) + lu(k,936) = lu(k,936) * lu(k,927) + lu(k,937) = lu(k,937) * lu(k,927) + lu(k,938) = lu(k,938) * lu(k,927) + lu(k,939) = lu(k,939) * lu(k,927) + lu(k,940) = lu(k,940) * lu(k,927) + lu(k,941) = lu(k,941) * lu(k,927) + lu(k,942) = lu(k,942) * lu(k,927) + lu(k,1810) = lu(k,1810) - lu(k,928) * lu(k,1808) + lu(k,1827) = lu(k,1827) - lu(k,929) * lu(k,1808) + lu(k,1829) = lu(k,1829) - lu(k,930) * lu(k,1808) + lu(k,1836) = - lu(k,931) * lu(k,1808) + lu(k,1837) = lu(k,1837) - lu(k,932) * lu(k,1808) + lu(k,1839) = lu(k,1839) - lu(k,933) * lu(k,1808) + lu(k,1840) = lu(k,1840) - lu(k,934) * lu(k,1808) + lu(k,1842) = lu(k,1842) - lu(k,935) * lu(k,1808) + lu(k,1844) = lu(k,1844) - lu(k,936) * lu(k,1808) + lu(k,1854) = lu(k,1854) - lu(k,937) * lu(k,1808) + lu(k,1858) = lu(k,1858) - lu(k,938) * lu(k,1808) + lu(k,1860) = lu(k,1860) - lu(k,939) * lu(k,1808) + lu(k,1863) = lu(k,1863) - lu(k,940) * lu(k,1808) + lu(k,1864) = lu(k,1864) - lu(k,941) * lu(k,1808) + lu(k,1865) = lu(k,1865) - lu(k,942) * lu(k,1808) + lu(k,2080) = lu(k,2080) - lu(k,928) * lu(k,2079) + lu(k,2091) = lu(k,2091) - lu(k,929) * lu(k,2079) + lu(k,2093) = lu(k,2093) - lu(k,930) * lu(k,2079) + lu(k,2098) = - lu(k,931) * lu(k,2079) + lu(k,2099) = lu(k,2099) - lu(k,932) * lu(k,2079) + lu(k,2101) = - lu(k,933) * lu(k,2079) + lu(k,2102) = - lu(k,934) * lu(k,2079) + lu(k,2104) = lu(k,2104) - lu(k,935) * lu(k,2079) + lu(k,2106) = lu(k,2106) - lu(k,936) * lu(k,2079) + lu(k,2114) = lu(k,2114) - lu(k,937) * lu(k,2079) + lu(k,2118) = lu(k,2118) - lu(k,938) * lu(k,2079) + lu(k,2120) = lu(k,2120) - lu(k,939) * lu(k,2079) + lu(k,2123) = lu(k,2123) - lu(k,940) * lu(k,2079) + lu(k,2124) = lu(k,2124) - lu(k,941) * lu(k,2079) + lu(k,2125) = lu(k,2125) - lu(k,942) * lu(k,2079) + lu(k,2396) = - lu(k,928) * lu(k,2395) + lu(k,2408) = lu(k,2408) - lu(k,929) * lu(k,2395) + lu(k,2410) = lu(k,2410) - lu(k,930) * lu(k,2395) + lu(k,2417) = lu(k,2417) - lu(k,931) * lu(k,2395) + lu(k,2418) = lu(k,2418) - lu(k,932) * lu(k,2395) + lu(k,2420) = lu(k,2420) - lu(k,933) * lu(k,2395) + lu(k,2421) = lu(k,2421) - lu(k,934) * lu(k,2395) + lu(k,2423) = lu(k,2423) - lu(k,935) * lu(k,2395) + lu(k,2425) = lu(k,2425) - lu(k,936) * lu(k,2395) + lu(k,2433) = lu(k,2433) - lu(k,937) * lu(k,2395) + lu(k,2437) = - lu(k,938) * lu(k,2395) + lu(k,2439) = - lu(k,939) * lu(k,2395) + lu(k,2442) = lu(k,2442) - lu(k,940) * lu(k,2395) + lu(k,2443) = lu(k,2443) - lu(k,941) * lu(k,2395) + lu(k,2444) = lu(k,2444) - lu(k,942) * lu(k,2395) end do end subroutine lu_fac19 subroutine lu_fac20( avec_len, lu ) @@ -3135,281 +3190,230 @@ subroutine lu_fac20( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,936) = 1._r8 / lu(k,936) - lu(k,937) = lu(k,937) * lu(k,936) - lu(k,938) = lu(k,938) * lu(k,936) - lu(k,939) = lu(k,939) * lu(k,936) - lu(k,940) = lu(k,940) * lu(k,936) - lu(k,941) = lu(k,941) * lu(k,936) - lu(k,1136) = - lu(k,937) * lu(k,1131) - lu(k,1137) = - lu(k,938) * lu(k,1131) - lu(k,1139) = lu(k,1139) - lu(k,939) * lu(k,1131) - lu(k,1141) = lu(k,1141) - lu(k,940) * lu(k,1131) - lu(k,1145) = - lu(k,941) * lu(k,1131) - lu(k,1181) = - lu(k,937) * lu(k,1175) - lu(k,1182) = - lu(k,938) * lu(k,1175) - lu(k,1185) = lu(k,1185) - lu(k,939) * lu(k,1175) - lu(k,1187) = lu(k,1187) - lu(k,940) * lu(k,1175) - lu(k,1193) = lu(k,1193) - lu(k,941) * lu(k,1175) - lu(k,1299) = - lu(k,937) * lu(k,1292) - lu(k,1301) = lu(k,1301) - lu(k,938) * lu(k,1292) - lu(k,1303) = lu(k,1303) - lu(k,939) * lu(k,1292) - lu(k,1305) = lu(k,1305) - lu(k,940) * lu(k,1292) - lu(k,1310) = lu(k,1310) - lu(k,941) * lu(k,1292) - lu(k,1375) = lu(k,1375) - lu(k,937) * lu(k,1365) - lu(k,1380) = lu(k,1380) - lu(k,938) * lu(k,1365) - lu(k,1382) = lu(k,1382) - lu(k,939) * lu(k,1365) - lu(k,1384) = lu(k,1384) - lu(k,940) * lu(k,1365) - lu(k,1390) = lu(k,1390) - lu(k,941) * lu(k,1365) - lu(k,1775) = lu(k,1775) - lu(k,937) * lu(k,1751) - lu(k,1781) = lu(k,1781) - lu(k,938) * lu(k,1751) - lu(k,1787) = lu(k,1787) - lu(k,939) * lu(k,1751) - lu(k,1790) = lu(k,1790) - lu(k,940) * lu(k,1751) - lu(k,1800) = lu(k,1800) - lu(k,941) * lu(k,1751) - lu(k,1988) = lu(k,1988) - lu(k,937) * lu(k,1958) - lu(k,1994) = lu(k,1994) - lu(k,938) * lu(k,1958) - lu(k,2003) = lu(k,2003) - lu(k,939) * lu(k,1958) - lu(k,2006) = lu(k,2006) - lu(k,940) * lu(k,1958) - lu(k,2016) = lu(k,2016) - lu(k,941) * lu(k,1958) - lu(k,2050) = lu(k,2050) - lu(k,937) * lu(k,2026) - lu(k,2056) = lu(k,2056) - lu(k,938) * lu(k,2026) - lu(k,2063) = lu(k,2063) - lu(k,939) * lu(k,2026) - lu(k,2066) = lu(k,2066) - lu(k,940) * lu(k,2026) - lu(k,2076) = lu(k,2076) - lu(k,941) * lu(k,2026) - lu(k,2194) = lu(k,2194) - lu(k,937) * lu(k,2173) - lu(k,2200) = lu(k,2200) - lu(k,938) * lu(k,2173) - lu(k,2208) = lu(k,2208) - lu(k,939) * lu(k,2173) - lu(k,2211) = lu(k,2211) - lu(k,940) * lu(k,2173) - lu(k,2221) = lu(k,2221) - lu(k,941) * lu(k,2173) - lu(k,2339) = lu(k,2339) - lu(k,937) * lu(k,2320) - lu(k,2345) = lu(k,2345) - lu(k,938) * lu(k,2320) - lu(k,2350) = lu(k,2350) - lu(k,939) * lu(k,2320) - lu(k,2353) = lu(k,2353) - lu(k,940) * lu(k,2320) - lu(k,2363) = lu(k,2363) - lu(k,941) * lu(k,2320) - lu(k,942) = 1._r8 / lu(k,942) - lu(k,943) = lu(k,943) * lu(k,942) - lu(k,944) = lu(k,944) * lu(k,942) - lu(k,945) = lu(k,945) * lu(k,942) - lu(k,946) = lu(k,946) * lu(k,942) - lu(k,1018) = lu(k,1018) - lu(k,943) * lu(k,1005) - lu(k,1019) = lu(k,1019) - lu(k,944) * lu(k,1005) - lu(k,1021) = lu(k,1021) - lu(k,945) * lu(k,1005) - lu(k,1024) = - lu(k,946) * lu(k,1005) - lu(k,1074) = lu(k,1074) - lu(k,943) * lu(k,1061) - lu(k,1075) = lu(k,1075) - lu(k,944) * lu(k,1061) - lu(k,1077) = lu(k,1077) - lu(k,945) * lu(k,1061) - lu(k,1080) = - lu(k,946) * lu(k,1061) - lu(k,1183) = lu(k,1183) - lu(k,943) * lu(k,1176) - lu(k,1187) = lu(k,1187) - lu(k,944) * lu(k,1176) - lu(k,1190) = lu(k,1190) - lu(k,945) * lu(k,1176) - lu(k,1194) = lu(k,1194) - lu(k,946) * lu(k,1176) - lu(k,1318) = - lu(k,943) * lu(k,1311) - lu(k,1319) = lu(k,1319) - lu(k,944) * lu(k,1311) - lu(k,1320) = lu(k,1320) - lu(k,945) * lu(k,1311) - lu(k,1323) = lu(k,1323) - lu(k,946) * lu(k,1311) - lu(k,1423) = lu(k,1423) - lu(k,943) * lu(k,1413) - lu(k,1427) = lu(k,1427) - lu(k,944) * lu(k,1413) - lu(k,1430) = lu(k,1430) - lu(k,945) * lu(k,1413) - lu(k,1435) = - lu(k,946) * lu(k,1413) - lu(k,1782) = lu(k,1782) - lu(k,943) * lu(k,1752) - lu(k,1790) = lu(k,1790) - lu(k,944) * lu(k,1752) - lu(k,1793) = lu(k,1793) - lu(k,945) * lu(k,1752) - lu(k,1801) = lu(k,1801) - lu(k,946) * lu(k,1752) - lu(k,1995) = lu(k,1995) - lu(k,943) * lu(k,1959) - lu(k,2006) = lu(k,2006) - lu(k,944) * lu(k,1959) - lu(k,2009) = lu(k,2009) - lu(k,945) * lu(k,1959) - lu(k,2017) = lu(k,2017) - lu(k,946) * lu(k,1959) - lu(k,2057) = - lu(k,943) * lu(k,2027) - lu(k,2066) = lu(k,2066) - lu(k,944) * lu(k,2027) - lu(k,2069) = lu(k,2069) - lu(k,945) * lu(k,2027) - lu(k,2077) = - lu(k,946) * lu(k,2027) - lu(k,2201) = lu(k,2201) - lu(k,943) * lu(k,2174) - lu(k,2211) = lu(k,2211) - lu(k,944) * lu(k,2174) - lu(k,2214) = lu(k,2214) - lu(k,945) * lu(k,2174) - lu(k,2222) = lu(k,2222) - lu(k,946) * lu(k,2174) - lu(k,2247) = - lu(k,943) * lu(k,2235) - lu(k,2257) = lu(k,2257) - lu(k,944) * lu(k,2235) - lu(k,2260) = lu(k,2260) - lu(k,945) * lu(k,2235) - lu(k,2268) = lu(k,2268) - lu(k,946) * lu(k,2235) - lu(k,2408) = lu(k,2408) - lu(k,943) * lu(k,2381) - lu(k,2417) = lu(k,2417) - lu(k,944) * lu(k,2381) - lu(k,2420) = lu(k,2420) - lu(k,945) * lu(k,2381) - lu(k,2428) = lu(k,2428) - lu(k,946) * lu(k,2381) - lu(k,2476) = - lu(k,943) * lu(k,2474) - lu(k,2486) = lu(k,2486) - lu(k,944) * lu(k,2474) - lu(k,2489) = lu(k,2489) - lu(k,945) * lu(k,2474) - lu(k,2497) = lu(k,2497) - lu(k,946) * lu(k,2474) - lu(k,950) = 1._r8 / lu(k,950) - lu(k,951) = lu(k,951) * lu(k,950) - lu(k,952) = lu(k,952) * lu(k,950) - lu(k,953) = lu(k,953) * lu(k,950) - lu(k,954) = lu(k,954) * lu(k,950) - lu(k,955) = lu(k,955) * lu(k,950) - lu(k,956) = lu(k,956) * lu(k,950) - lu(k,957) = lu(k,957) * lu(k,950) - lu(k,958) = lu(k,958) * lu(k,950) - lu(k,1088) = lu(k,1088) - lu(k,951) * lu(k,1085) - lu(k,1090) = - lu(k,952) * lu(k,1085) - lu(k,1091) = lu(k,1091) - lu(k,953) * lu(k,1085) - lu(k,1092) = lu(k,1092) - lu(k,954) * lu(k,1085) - lu(k,1093) = lu(k,1093) - lu(k,955) * lu(k,1085) - lu(k,1094) = lu(k,1094) - lu(k,956) * lu(k,1085) - lu(k,1095) = - lu(k,957) * lu(k,1085) - lu(k,1096) = lu(k,1096) - lu(k,958) * lu(k,1085) - lu(k,1765) = lu(k,1765) - lu(k,951) * lu(k,1753) - lu(k,1784) = lu(k,1784) - lu(k,952) * lu(k,1753) - lu(k,1787) = lu(k,1787) - lu(k,953) * lu(k,1753) - lu(k,1788) = lu(k,1788) - lu(k,954) * lu(k,1753) - lu(k,1790) = lu(k,1790) - lu(k,955) * lu(k,1753) - lu(k,1793) = lu(k,1793) - lu(k,956) * lu(k,1753) - lu(k,1797) = lu(k,1797) - lu(k,957) * lu(k,1753) - lu(k,1800) = lu(k,1800) - lu(k,958) * lu(k,1753) - lu(k,1978) = lu(k,1978) - lu(k,951) * lu(k,1960) - lu(k,2000) = lu(k,2000) - lu(k,952) * lu(k,1960) - lu(k,2003) = lu(k,2003) - lu(k,953) * lu(k,1960) - lu(k,2004) = lu(k,2004) - lu(k,954) * lu(k,1960) - lu(k,2006) = lu(k,2006) - lu(k,955) * lu(k,1960) - lu(k,2009) = lu(k,2009) - lu(k,956) * lu(k,1960) - lu(k,2013) = lu(k,2013) - lu(k,957) * lu(k,1960) - lu(k,2016) = lu(k,2016) - lu(k,958) * lu(k,1960) - lu(k,2185) = lu(k,2185) - lu(k,951) * lu(k,2175) - lu(k,2205) = lu(k,2205) - lu(k,952) * lu(k,2175) - lu(k,2208) = lu(k,2208) - lu(k,953) * lu(k,2175) - lu(k,2209) = lu(k,2209) - lu(k,954) * lu(k,2175) - lu(k,2211) = lu(k,2211) - lu(k,955) * lu(k,2175) - lu(k,2214) = lu(k,2214) - lu(k,956) * lu(k,2175) - lu(k,2218) = lu(k,2218) - lu(k,957) * lu(k,2175) - lu(k,2221) = lu(k,2221) - lu(k,958) * lu(k,2175) - lu(k,2241) = - lu(k,951) * lu(k,2236) - lu(k,2251) = lu(k,2251) - lu(k,952) * lu(k,2236) - lu(k,2254) = lu(k,2254) - lu(k,953) * lu(k,2236) - lu(k,2255) = lu(k,2255) - lu(k,954) * lu(k,2236) - lu(k,2257) = lu(k,2257) - lu(k,955) * lu(k,2236) - lu(k,2260) = lu(k,2260) - lu(k,956) * lu(k,2236) - lu(k,2264) = lu(k,2264) - lu(k,957) * lu(k,2236) - lu(k,2267) = lu(k,2267) - lu(k,958) * lu(k,2236) - lu(k,2330) = lu(k,2330) - lu(k,951) * lu(k,2321) - lu(k,2347) = lu(k,2347) - lu(k,952) * lu(k,2321) - lu(k,2350) = lu(k,2350) - lu(k,953) * lu(k,2321) - lu(k,2351) = lu(k,2351) - lu(k,954) * lu(k,2321) - lu(k,2353) = lu(k,2353) - lu(k,955) * lu(k,2321) - lu(k,2356) = lu(k,2356) - lu(k,956) * lu(k,2321) - lu(k,2360) = lu(k,2360) - lu(k,957) * lu(k,2321) - lu(k,2363) = lu(k,2363) - lu(k,958) * lu(k,2321) - lu(k,959) = 1._r8 / lu(k,959) - lu(k,960) = lu(k,960) * lu(k,959) - lu(k,961) = lu(k,961) * lu(k,959) - lu(k,962) = lu(k,962) * lu(k,959) - lu(k,963) = lu(k,963) * lu(k,959) - lu(k,964) = lu(k,964) * lu(k,959) - lu(k,965) = lu(k,965) * lu(k,959) - lu(k,966) = lu(k,966) * lu(k,959) - lu(k,967) = lu(k,967) * lu(k,959) - lu(k,1133) = lu(k,1133) - lu(k,960) * lu(k,1132) - lu(k,1135) = lu(k,1135) - lu(k,961) * lu(k,1132) - lu(k,1136) = lu(k,1136) - lu(k,962) * lu(k,1132) - lu(k,1139) = lu(k,1139) - lu(k,963) * lu(k,1132) - lu(k,1140) = - lu(k,964) * lu(k,1132) - lu(k,1141) = lu(k,1141) - lu(k,965) * lu(k,1132) - lu(k,1142) = lu(k,1142) - lu(k,966) * lu(k,1132) - lu(k,1144) = - lu(k,967) * lu(k,1132) - lu(k,1367) = lu(k,1367) - lu(k,960) * lu(k,1366) - lu(k,1368) = lu(k,1368) - lu(k,961) * lu(k,1366) - lu(k,1375) = lu(k,1375) - lu(k,962) * lu(k,1366) - lu(k,1382) = lu(k,1382) - lu(k,963) * lu(k,1366) - lu(k,1383) = lu(k,1383) - lu(k,964) * lu(k,1366) - lu(k,1384) = lu(k,1384) - lu(k,965) * lu(k,1366) - lu(k,1386) = lu(k,1386) - lu(k,966) * lu(k,1366) - lu(k,1388) = lu(k,1388) - lu(k,967) * lu(k,1366) - lu(k,1668) = lu(k,1668) - lu(k,960) * lu(k,1664) - lu(k,1669) = lu(k,1669) - lu(k,961) * lu(k,1664) - lu(k,1671) = lu(k,1671) - lu(k,962) * lu(k,1664) - lu(k,1681) = lu(k,1681) - lu(k,963) * lu(k,1664) - lu(k,1682) = lu(k,1682) - lu(k,964) * lu(k,1664) - lu(k,1684) = lu(k,1684) - lu(k,965) * lu(k,1664) - lu(k,1687) = lu(k,1687) - lu(k,966) * lu(k,1664) - lu(k,1691) = lu(k,1691) - lu(k,967) * lu(k,1664) - lu(k,1758) = lu(k,1758) - lu(k,960) * lu(k,1754) - lu(k,1766) = lu(k,1766) - lu(k,961) * lu(k,1754) - lu(k,1775) = lu(k,1775) - lu(k,962) * lu(k,1754) - lu(k,1787) = lu(k,1787) - lu(k,963) * lu(k,1754) - lu(k,1788) = lu(k,1788) - lu(k,964) * lu(k,1754) - lu(k,1790) = lu(k,1790) - lu(k,965) * lu(k,1754) - lu(k,1793) = lu(k,1793) - lu(k,966) * lu(k,1754) - lu(k,1797) = lu(k,1797) - lu(k,967) * lu(k,1754) - lu(k,1970) = lu(k,1970) - lu(k,960) * lu(k,1961) - lu(k,1979) = lu(k,1979) - lu(k,961) * lu(k,1961) - lu(k,1988) = lu(k,1988) - lu(k,962) * lu(k,1961) - lu(k,2003) = lu(k,2003) - lu(k,963) * lu(k,1961) - lu(k,2004) = lu(k,2004) - lu(k,964) * lu(k,1961) - lu(k,2006) = lu(k,2006) - lu(k,965) * lu(k,1961) - lu(k,2009) = lu(k,2009) - lu(k,966) * lu(k,1961) - lu(k,2013) = lu(k,2013) - lu(k,967) * lu(k,1961) - lu(k,2179) = lu(k,2179) - lu(k,960) * lu(k,2176) - lu(k,2186) = lu(k,2186) - lu(k,961) * lu(k,2176) - lu(k,2194) = lu(k,2194) - lu(k,962) * lu(k,2176) - lu(k,2208) = lu(k,2208) - lu(k,963) * lu(k,2176) - lu(k,2209) = lu(k,2209) - lu(k,964) * lu(k,2176) - lu(k,2211) = lu(k,2211) - lu(k,965) * lu(k,2176) - lu(k,2214) = lu(k,2214) - lu(k,966) * lu(k,2176) - lu(k,2218) = lu(k,2218) - lu(k,967) * lu(k,2176) - lu(k,969) = 1._r8 / lu(k,969) - lu(k,970) = lu(k,970) * lu(k,969) - lu(k,971) = lu(k,971) * lu(k,969) - lu(k,972) = lu(k,972) * lu(k,969) - lu(k,973) = lu(k,973) * lu(k,969) - lu(k,974) = lu(k,974) * lu(k,969) - lu(k,975) = lu(k,975) * lu(k,969) - lu(k,976) = lu(k,976) * lu(k,969) - lu(k,977) = lu(k,977) * lu(k,969) - lu(k,1505) = lu(k,1505) - lu(k,970) * lu(k,1504) - lu(k,1508) = lu(k,1508) - lu(k,971) * lu(k,1504) - lu(k,1509) = - lu(k,972) * lu(k,1504) - lu(k,1510) = - lu(k,973) * lu(k,1504) - lu(k,1512) = lu(k,1512) - lu(k,974) * lu(k,1504) - lu(k,1513) = - lu(k,975) * lu(k,1504) - lu(k,1514) = - lu(k,976) * lu(k,1504) - lu(k,1516) = lu(k,1516) - lu(k,977) * lu(k,1504) - lu(k,1824) = lu(k,1824) - lu(k,970) * lu(k,1823) - lu(k,1833) = lu(k,1833) - lu(k,971) * lu(k,1823) - lu(k,1834) = - lu(k,972) * lu(k,1823) - lu(k,1835) = lu(k,1835) - lu(k,973) * lu(k,1823) - lu(k,1838) = lu(k,1838) - lu(k,974) * lu(k,1823) - lu(k,1839) = - lu(k,975) * lu(k,1823) - lu(k,1840) = lu(k,1840) - lu(k,976) * lu(k,1823) - lu(k,1844) = lu(k,1844) - lu(k,977) * lu(k,1823) - lu(k,1996) = lu(k,1996) - lu(k,970) * lu(k,1962) - lu(k,2006) = lu(k,2006) - lu(k,971) * lu(k,1962) - lu(k,2007) = lu(k,2007) - lu(k,972) * lu(k,1962) - lu(k,2008) = lu(k,2008) - lu(k,973) * lu(k,1962) - lu(k,2011) = lu(k,2011) - lu(k,974) * lu(k,1962) - lu(k,2012) = lu(k,2012) - lu(k,975) * lu(k,1962) - lu(k,2013) = lu(k,2013) - lu(k,976) * lu(k,1962) - lu(k,2017) = lu(k,2017) - lu(k,977) * lu(k,1962) - lu(k,2082) = lu(k,2082) - lu(k,970) * lu(k,2079) - lu(k,2091) = lu(k,2091) - lu(k,971) * lu(k,2079) - lu(k,2092) = - lu(k,972) * lu(k,2079) - lu(k,2093) = lu(k,2093) - lu(k,973) * lu(k,2079) - lu(k,2096) = lu(k,2096) - lu(k,974) * lu(k,2079) - lu(k,2097) = - lu(k,975) * lu(k,2079) - lu(k,2098) = lu(k,2098) - lu(k,976) * lu(k,2079) - lu(k,2102) = lu(k,2102) - lu(k,977) * lu(k,2079) - lu(k,2292) = - lu(k,970) * lu(k,2291) - lu(k,2301) = lu(k,2301) - lu(k,971) * lu(k,2291) - lu(k,2302) = lu(k,2302) - lu(k,972) * lu(k,2291) - lu(k,2303) = - lu(k,973) * lu(k,2291) - lu(k,2306) = lu(k,2306) - lu(k,974) * lu(k,2291) - lu(k,2307) = lu(k,2307) - lu(k,975) * lu(k,2291) - lu(k,2308) = - lu(k,976) * lu(k,2291) - lu(k,2312) = lu(k,2312) - lu(k,977) * lu(k,2291) - lu(k,2503) = lu(k,2503) - lu(k,970) * lu(k,2501) - lu(k,2513) = lu(k,2513) - lu(k,971) * lu(k,2501) - lu(k,2514) = - lu(k,972) * lu(k,2501) - lu(k,2515) = - lu(k,973) * lu(k,2501) - lu(k,2518) = lu(k,2518) - lu(k,974) * lu(k,2501) - lu(k,2519) = - lu(k,975) * lu(k,2501) - lu(k,2520) = - lu(k,976) * lu(k,2501) - lu(k,2524) = lu(k,2524) - lu(k,977) * lu(k,2501) + lu(k,946) = 1._r8 / lu(k,946) + lu(k,947) = lu(k,947) * lu(k,946) + lu(k,948) = lu(k,948) * lu(k,946) + lu(k,949) = lu(k,949) * lu(k,946) + lu(k,950) = lu(k,950) * lu(k,946) + lu(k,951) = lu(k,951) * lu(k,946) + lu(k,952) = lu(k,952) * lu(k,946) + lu(k,953) = lu(k,953) * lu(k,946) + lu(k,954) = lu(k,954) * lu(k,946) + lu(k,1089) = lu(k,1089) - lu(k,947) * lu(k,1086) + lu(k,1091) = - lu(k,948) * lu(k,1086) + lu(k,1092) = lu(k,1092) - lu(k,949) * lu(k,1086) + lu(k,1093) = lu(k,1093) - lu(k,950) * lu(k,1086) + lu(k,1094) = lu(k,1094) - lu(k,951) * lu(k,1086) + lu(k,1095) = - lu(k,952) * lu(k,1086) + lu(k,1096) = lu(k,1096) - lu(k,953) * lu(k,1086) + lu(k,1097) = lu(k,1097) - lu(k,954) * lu(k,1086) + lu(k,1828) = lu(k,1828) - lu(k,947) * lu(k,1809) + lu(k,1850) = lu(k,1850) - lu(k,948) * lu(k,1809) + lu(k,1853) = lu(k,1853) - lu(k,949) * lu(k,1809) + lu(k,1854) = lu(k,1854) - lu(k,950) * lu(k,1809) + lu(k,1855) = lu(k,1855) - lu(k,951) * lu(k,1809) + lu(k,1860) = lu(k,1860) - lu(k,952) * lu(k,1809) + lu(k,1863) = lu(k,1863) - lu(k,953) * lu(k,1809) + lu(k,1865) = lu(k,1865) - lu(k,954) * lu(k,1809) + lu(k,1938) = lu(k,1938) - lu(k,947) * lu(k,1925) + lu(k,1957) = lu(k,1957) - lu(k,948) * lu(k,1925) + lu(k,1960) = lu(k,1960) - lu(k,949) * lu(k,1925) + lu(k,1961) = lu(k,1961) - lu(k,950) * lu(k,1925) + lu(k,1962) = lu(k,1962) - lu(k,951) * lu(k,1925) + lu(k,1967) = lu(k,1967) - lu(k,952) * lu(k,1925) + lu(k,1970) = lu(k,1970) - lu(k,953) * lu(k,1925) + lu(k,1972) = lu(k,1972) - lu(k,954) * lu(k,1925) + lu(k,1993) = - lu(k,947) * lu(k,1987) + lu(k,2003) = lu(k,2003) - lu(k,948) * lu(k,1987) + lu(k,2006) = lu(k,2006) - lu(k,949) * lu(k,1987) + lu(k,2007) = lu(k,2007) - lu(k,950) * lu(k,1987) + lu(k,2008) = lu(k,2008) - lu(k,951) * lu(k,1987) + lu(k,2013) = lu(k,2013) - lu(k,952) * lu(k,1987) + lu(k,2016) = lu(k,2016) - lu(k,953) * lu(k,1987) + lu(k,2018) = lu(k,2018) - lu(k,954) * lu(k,1987) + lu(k,2166) = lu(k,2166) - lu(k,947) * lu(k,2157) + lu(k,2183) = lu(k,2183) - lu(k,948) * lu(k,2157) + lu(k,2186) = lu(k,2186) - lu(k,949) * lu(k,2157) + lu(k,2187) = lu(k,2187) - lu(k,950) * lu(k,2157) + lu(k,2188) = lu(k,2188) - lu(k,951) * lu(k,2157) + lu(k,2193) = lu(k,2193) - lu(k,952) * lu(k,2157) + lu(k,2196) = lu(k,2196) - lu(k,953) * lu(k,2157) + lu(k,2198) = lu(k,2198) - lu(k,954) * lu(k,2157) + lu(k,2349) = lu(k,2349) - lu(k,947) * lu(k,2338) + lu(k,2369) = lu(k,2369) - lu(k,948) * lu(k,2338) + lu(k,2372) = lu(k,2372) - lu(k,949) * lu(k,2338) + lu(k,2373) = lu(k,2373) - lu(k,950) * lu(k,2338) + lu(k,2374) = lu(k,2374) - lu(k,951) * lu(k,2338) + lu(k,2379) = lu(k,2379) - lu(k,952) * lu(k,2338) + lu(k,2382) = lu(k,2382) - lu(k,953) * lu(k,2338) + lu(k,2384) = lu(k,2384) - lu(k,954) * lu(k,2338) + lu(k,955) = 1._r8 / lu(k,955) + lu(k,956) = lu(k,956) * lu(k,955) + lu(k,957) = lu(k,957) * lu(k,955) + lu(k,958) = lu(k,958) * lu(k,955) + lu(k,959) = lu(k,959) * lu(k,955) + lu(k,1019) = lu(k,1019) - lu(k,956) * lu(k,1006) + lu(k,1020) = lu(k,1020) - lu(k,957) * lu(k,1006) + lu(k,1022) = lu(k,1022) - lu(k,958) * lu(k,1006) + lu(k,1025) = - lu(k,959) * lu(k,1006) + lu(k,1075) = lu(k,1075) - lu(k,956) * lu(k,1062) + lu(k,1076) = lu(k,1076) - lu(k,957) * lu(k,1062) + lu(k,1078) = lu(k,1078) - lu(k,958) * lu(k,1062) + lu(k,1081) = - lu(k,959) * lu(k,1062) + lu(k,1184) = lu(k,1184) - lu(k,956) * lu(k,1177) + lu(k,1188) = lu(k,1188) - lu(k,957) * lu(k,1177) + lu(k,1192) = lu(k,1192) - lu(k,958) * lu(k,1177) + lu(k,1195) = lu(k,1195) - lu(k,959) * lu(k,1177) + lu(k,1319) = - lu(k,956) * lu(k,1312) + lu(k,1320) = lu(k,1320) - lu(k,957) * lu(k,1312) + lu(k,1322) = lu(k,1322) - lu(k,958) * lu(k,1312) + lu(k,1324) = lu(k,1324) - lu(k,959) * lu(k,1312) + lu(k,1424) = lu(k,1424) - lu(k,956) * lu(k,1414) + lu(k,1428) = lu(k,1428) - lu(k,957) * lu(k,1414) + lu(k,1433) = lu(k,1433) - lu(k,958) * lu(k,1414) + lu(k,1436) = - lu(k,959) * lu(k,1414) + lu(k,1845) = lu(k,1845) - lu(k,956) * lu(k,1810) + lu(k,1854) = lu(k,1854) - lu(k,957) * lu(k,1810) + lu(k,1863) = lu(k,1863) - lu(k,958) * lu(k,1810) + lu(k,1867) = lu(k,1867) - lu(k,959) * lu(k,1810) + lu(k,1955) = lu(k,1955) - lu(k,956) * lu(k,1926) + lu(k,1961) = lu(k,1961) - lu(k,957) * lu(k,1926) + lu(k,1970) = lu(k,1970) - lu(k,958) * lu(k,1926) + lu(k,1974) = lu(k,1974) - lu(k,959) * lu(k,1926) + lu(k,1999) = - lu(k,956) * lu(k,1988) + lu(k,2007) = lu(k,2007) - lu(k,957) * lu(k,1988) + lu(k,2016) = lu(k,2016) - lu(k,958) * lu(k,1988) + lu(k,2020) = lu(k,2020) - lu(k,959) * lu(k,1988) + lu(k,2107) = lu(k,2107) - lu(k,956) * lu(k,2080) + lu(k,2114) = lu(k,2114) - lu(k,957) * lu(k,2080) + lu(k,2123) = lu(k,2123) - lu(k,958) * lu(k,2080) + lu(k,2127) = lu(k,2127) - lu(k,959) * lu(k,2080) + lu(k,2365) = lu(k,2365) - lu(k,956) * lu(k,2339) + lu(k,2373) = lu(k,2373) - lu(k,957) * lu(k,2339) + lu(k,2382) = lu(k,2382) - lu(k,958) * lu(k,2339) + lu(k,2386) = lu(k,2386) - lu(k,959) * lu(k,2339) + lu(k,2426) = - lu(k,956) * lu(k,2396) + lu(k,2433) = lu(k,2433) - lu(k,957) * lu(k,2396) + lu(k,2442) = lu(k,2442) - lu(k,958) * lu(k,2396) + lu(k,2446) = - lu(k,959) * lu(k,2396) + lu(k,2451) = - lu(k,956) * lu(k,2449) + lu(k,2459) = lu(k,2459) - lu(k,957) * lu(k,2449) + lu(k,2468) = lu(k,2468) - lu(k,958) * lu(k,2449) + lu(k,2472) = lu(k,2472) - lu(k,959) * lu(k,2449) + lu(k,960) = 1._r8 / lu(k,960) + lu(k,961) = lu(k,961) * lu(k,960) + lu(k,962) = lu(k,962) * lu(k,960) + lu(k,963) = lu(k,963) * lu(k,960) + lu(k,964) = lu(k,964) * lu(k,960) + lu(k,965) = lu(k,965) * lu(k,960) + lu(k,966) = lu(k,966) * lu(k,960) + lu(k,967) = lu(k,967) * lu(k,960) + lu(k,968) = lu(k,968) * lu(k,960) + lu(k,1134) = lu(k,1134) - lu(k,961) * lu(k,1133) + lu(k,1136) = lu(k,1136) - lu(k,962) * lu(k,1133) + lu(k,1137) = lu(k,1137) - lu(k,963) * lu(k,1133) + lu(k,1140) = lu(k,1140) - lu(k,964) * lu(k,1133) + lu(k,1141) = lu(k,1141) - lu(k,965) * lu(k,1133) + lu(k,1142) = - lu(k,966) * lu(k,1133) + lu(k,1143) = - lu(k,967) * lu(k,1133) + lu(k,1145) = lu(k,1145) - lu(k,968) * lu(k,1133) + lu(k,1368) = lu(k,1368) - lu(k,961) * lu(k,1367) + lu(k,1369) = lu(k,1369) - lu(k,962) * lu(k,1367) + lu(k,1376) = lu(k,1376) - lu(k,963) * lu(k,1367) + lu(k,1383) = lu(k,1383) - lu(k,964) * lu(k,1367) + lu(k,1384) = lu(k,1384) - lu(k,965) * lu(k,1367) + lu(k,1385) = lu(k,1385) - lu(k,966) * lu(k,1367) + lu(k,1387) = lu(k,1387) - lu(k,967) * lu(k,1367) + lu(k,1389) = lu(k,1389) - lu(k,968) * lu(k,1367) + lu(k,1667) = lu(k,1667) - lu(k,961) * lu(k,1663) + lu(k,1668) = lu(k,1668) - lu(k,962) * lu(k,1663) + lu(k,1670) = lu(k,1670) - lu(k,963) * lu(k,1663) + lu(k,1680) = lu(k,1680) - lu(k,964) * lu(k,1663) + lu(k,1681) = lu(k,1681) - lu(k,965) * lu(k,1663) + lu(k,1682) = lu(k,1682) - lu(k,966) * lu(k,1663) + lu(k,1687) = lu(k,1687) - lu(k,967) * lu(k,1663) + lu(k,1690) = lu(k,1690) - lu(k,968) * lu(k,1663) + lu(k,1820) = lu(k,1820) - lu(k,961) * lu(k,1811) + lu(k,1829) = lu(k,1829) - lu(k,962) * lu(k,1811) + lu(k,1838) = lu(k,1838) - lu(k,963) * lu(k,1811) + lu(k,1853) = lu(k,1853) - lu(k,964) * lu(k,1811) + lu(k,1854) = lu(k,1854) - lu(k,965) * lu(k,1811) + lu(k,1855) = lu(k,1855) - lu(k,966) * lu(k,1811) + lu(k,1860) = lu(k,1860) - lu(k,967) * lu(k,1811) + lu(k,1863) = lu(k,1863) - lu(k,968) * lu(k,1811) + lu(k,1931) = lu(k,1931) - lu(k,961) * lu(k,1927) + lu(k,1939) = lu(k,1939) - lu(k,962) * lu(k,1927) + lu(k,1948) = lu(k,1948) - lu(k,963) * lu(k,1927) + lu(k,1960) = lu(k,1960) - lu(k,964) * lu(k,1927) + lu(k,1961) = lu(k,1961) - lu(k,965) * lu(k,1927) + lu(k,1962) = lu(k,1962) - lu(k,966) * lu(k,1927) + lu(k,1967) = lu(k,1967) - lu(k,967) * lu(k,1927) + lu(k,1970) = lu(k,1970) - lu(k,968) * lu(k,1927) + lu(k,2343) = lu(k,2343) - lu(k,961) * lu(k,2340) + lu(k,2350) = lu(k,2350) - lu(k,962) * lu(k,2340) + lu(k,2358) = lu(k,2358) - lu(k,963) * lu(k,2340) + lu(k,2372) = lu(k,2372) - lu(k,964) * lu(k,2340) + lu(k,2373) = lu(k,2373) - lu(k,965) * lu(k,2340) + lu(k,2374) = lu(k,2374) - lu(k,966) * lu(k,2340) + lu(k,2379) = lu(k,2379) - lu(k,967) * lu(k,2340) + lu(k,2382) = lu(k,2382) - lu(k,968) * lu(k,2340) + lu(k,970) = 1._r8 / lu(k,970) + lu(k,971) = lu(k,971) * lu(k,970) + lu(k,972) = lu(k,972) * lu(k,970) + lu(k,973) = lu(k,973) * lu(k,970) + lu(k,974) = lu(k,974) * lu(k,970) + lu(k,975) = lu(k,975) * lu(k,970) + lu(k,976) = lu(k,976) * lu(k,970) + lu(k,977) = lu(k,977) * lu(k,970) + lu(k,978) = lu(k,978) * lu(k,970) + lu(k,1506) = lu(k,1506) - lu(k,971) * lu(k,1505) + lu(k,1508) = - lu(k,972) * lu(k,1505) + lu(k,1509) = lu(k,1509) - lu(k,973) * lu(k,1505) + lu(k,1512) = lu(k,1512) - lu(k,974) * lu(k,1505) + lu(k,1513) = - lu(k,975) * lu(k,1505) + lu(k,1515) = - lu(k,976) * lu(k,1505) + lu(k,1516) = - lu(k,977) * lu(k,1505) + lu(k,1517) = lu(k,1517) - lu(k,978) * lu(k,1505) + lu(k,1629) = lu(k,1629) - lu(k,971) * lu(k,1626) + lu(k,1634) = lu(k,1634) - lu(k,972) * lu(k,1626) + lu(k,1636) = lu(k,1636) - lu(k,973) * lu(k,1626) + lu(k,1641) = lu(k,1641) - lu(k,974) * lu(k,1626) + lu(k,1642) = lu(k,1642) - lu(k,975) * lu(k,1626) + lu(k,1644) = - lu(k,976) * lu(k,1626) + lu(k,1646) = - lu(k,977) * lu(k,1626) + lu(k,1649) = lu(k,1649) - lu(k,978) * lu(k,1626) + lu(k,1846) = lu(k,1846) - lu(k,971) * lu(k,1812) + lu(k,1852) = lu(k,1852) - lu(k,972) * lu(k,1812) + lu(k,1854) = lu(k,1854) - lu(k,973) * lu(k,1812) + lu(k,1859) = lu(k,1859) - lu(k,974) * lu(k,1812) + lu(k,1860) = lu(k,1860) - lu(k,975) * lu(k,1812) + lu(k,1862) = lu(k,1862) - lu(k,976) * lu(k,1812) + lu(k,1864) = lu(k,1864) - lu(k,977) * lu(k,1812) + lu(k,1867) = lu(k,1867) - lu(k,978) * lu(k,1812) + lu(k,2223) = lu(k,2223) - lu(k,971) * lu(k,2222) + lu(k,2228) = lu(k,2228) - lu(k,972) * lu(k,2222) + lu(k,2230) = lu(k,2230) - lu(k,973) * lu(k,2222) + lu(k,2235) = lu(k,2235) - lu(k,974) * lu(k,2222) + lu(k,2236) = lu(k,2236) - lu(k,975) * lu(k,2222) + lu(k,2238) = - lu(k,976) * lu(k,2222) + lu(k,2240) = - lu(k,977) * lu(k,2222) + lu(k,2243) = lu(k,2243) - lu(k,978) * lu(k,2222) + lu(k,2246) = - lu(k,971) * lu(k,2245) + lu(k,2251) = - lu(k,972) * lu(k,2245) + lu(k,2253) = lu(k,2253) - lu(k,973) * lu(k,2245) + lu(k,2258) = lu(k,2258) - lu(k,974) * lu(k,2245) + lu(k,2259) = - lu(k,975) * lu(k,2245) + lu(k,2261) = lu(k,2261) - lu(k,976) * lu(k,2245) + lu(k,2263) = lu(k,2263) - lu(k,977) * lu(k,2245) + lu(k,2266) = lu(k,2266) - lu(k,978) * lu(k,2245) + lu(k,2505) = lu(k,2505) - lu(k,971) * lu(k,2503) + lu(k,2511) = - lu(k,972) * lu(k,2503) + lu(k,2513) = lu(k,2513) - lu(k,973) * lu(k,2503) + lu(k,2518) = lu(k,2518) - lu(k,974) * lu(k,2503) + lu(k,2519) = - lu(k,975) * lu(k,2503) + lu(k,2521) = - lu(k,976) * lu(k,2503) + lu(k,2523) = - lu(k,977) * lu(k,2503) + lu(k,2526) = lu(k,2526) - lu(k,978) * lu(k,2503) end do end subroutine lu_fac20 subroutine lu_fac21( avec_len, lu ) @@ -3426,260 +3430,260 @@ subroutine lu_fac21( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,979) = 1._r8 / lu(k,979) - lu(k,980) = lu(k,980) * lu(k,979) - lu(k,981) = lu(k,981) * lu(k,979) - lu(k,982) = lu(k,982) * lu(k,979) - lu(k,983) = lu(k,983) * lu(k,979) - lu(k,984) = lu(k,984) * lu(k,979) - lu(k,985) = lu(k,985) * lu(k,979) - lu(k,986) = lu(k,986) * lu(k,979) - lu(k,987) = lu(k,987) * lu(k,979) - lu(k,988) = lu(k,988) * lu(k,979) - lu(k,989) = lu(k,989) * lu(k,979) - lu(k,1761) = lu(k,1761) - lu(k,980) * lu(k,1755) - lu(k,1765) = lu(k,1765) - lu(k,981) * lu(k,1755) - lu(k,1784) = lu(k,1784) - lu(k,982) * lu(k,1755) - lu(k,1787) = lu(k,1787) - lu(k,983) * lu(k,1755) - lu(k,1788) = lu(k,1788) - lu(k,984) * lu(k,1755) - lu(k,1790) = lu(k,1790) - lu(k,985) * lu(k,1755) - lu(k,1793) = lu(k,1793) - lu(k,986) * lu(k,1755) - lu(k,1797) = lu(k,1797) - lu(k,987) * lu(k,1755) - lu(k,1800) = lu(k,1800) - lu(k,988) * lu(k,1755) - lu(k,1801) = lu(k,1801) - lu(k,989) * lu(k,1755) - lu(k,1973) = lu(k,1973) - lu(k,980) * lu(k,1963) - lu(k,1978) = lu(k,1978) - lu(k,981) * lu(k,1963) - lu(k,2000) = lu(k,2000) - lu(k,982) * lu(k,1963) - lu(k,2003) = lu(k,2003) - lu(k,983) * lu(k,1963) - lu(k,2004) = lu(k,2004) - lu(k,984) * lu(k,1963) - lu(k,2006) = lu(k,2006) - lu(k,985) * lu(k,1963) - lu(k,2009) = lu(k,2009) - lu(k,986) * lu(k,1963) - lu(k,2013) = lu(k,2013) - lu(k,987) * lu(k,1963) - lu(k,2016) = lu(k,2016) - lu(k,988) * lu(k,1963) - lu(k,2017) = lu(k,2017) - lu(k,989) * lu(k,1963) - lu(k,2182) = lu(k,2182) - lu(k,980) * lu(k,2177) - lu(k,2185) = lu(k,2185) - lu(k,981) * lu(k,2177) - lu(k,2205) = lu(k,2205) - lu(k,982) * lu(k,2177) - lu(k,2208) = lu(k,2208) - lu(k,983) * lu(k,2177) - lu(k,2209) = lu(k,2209) - lu(k,984) * lu(k,2177) - lu(k,2211) = lu(k,2211) - lu(k,985) * lu(k,2177) - lu(k,2214) = lu(k,2214) - lu(k,986) * lu(k,2177) - lu(k,2218) = lu(k,2218) - lu(k,987) * lu(k,2177) - lu(k,2221) = lu(k,2221) - lu(k,988) * lu(k,2177) - lu(k,2222) = lu(k,2222) - lu(k,989) * lu(k,2177) - lu(k,2240) = - lu(k,980) * lu(k,2237) - lu(k,2241) = lu(k,2241) - lu(k,981) * lu(k,2237) - lu(k,2251) = lu(k,2251) - lu(k,982) * lu(k,2237) - lu(k,2254) = lu(k,2254) - lu(k,983) * lu(k,2237) - lu(k,2255) = lu(k,2255) - lu(k,984) * lu(k,2237) - lu(k,2257) = lu(k,2257) - lu(k,985) * lu(k,2237) - lu(k,2260) = lu(k,2260) - lu(k,986) * lu(k,2237) - lu(k,2264) = lu(k,2264) - lu(k,987) * lu(k,2237) - lu(k,2267) = lu(k,2267) - lu(k,988) * lu(k,2237) - lu(k,2268) = lu(k,2268) - lu(k,989) * lu(k,2237) - lu(k,2326) = lu(k,2326) - lu(k,980) * lu(k,2322) - lu(k,2330) = lu(k,2330) - lu(k,981) * lu(k,2322) - lu(k,2347) = lu(k,2347) - lu(k,982) * lu(k,2322) - lu(k,2350) = lu(k,2350) - lu(k,983) * lu(k,2322) - lu(k,2351) = lu(k,2351) - lu(k,984) * lu(k,2322) - lu(k,2353) = lu(k,2353) - lu(k,985) * lu(k,2322) - lu(k,2356) = lu(k,2356) - lu(k,986) * lu(k,2322) - lu(k,2360) = lu(k,2360) - lu(k,987) * lu(k,2322) - lu(k,2363) = lu(k,2363) - lu(k,988) * lu(k,2322) - lu(k,2364) = lu(k,2364) - lu(k,989) * lu(k,2322) - lu(k,991) = 1._r8 / lu(k,991) - lu(k,992) = lu(k,992) * lu(k,991) - lu(k,993) = lu(k,993) * lu(k,991) - lu(k,994) = lu(k,994) * lu(k,991) - lu(k,995) = lu(k,995) * lu(k,991) - lu(k,996) = lu(k,996) * lu(k,991) - lu(k,1520) = lu(k,1520) - lu(k,992) * lu(k,1519) - lu(k,1527) = lu(k,1527) - lu(k,993) * lu(k,1519) - lu(k,1528) = - lu(k,994) * lu(k,1519) - lu(k,1532) = lu(k,1532) - lu(k,995) * lu(k,1519) - lu(k,1533) = - lu(k,996) * lu(k,1519) - lu(k,1584) = lu(k,1584) - lu(k,992) * lu(k,1579) - lu(k,1592) = lu(k,1592) - lu(k,993) * lu(k,1579) - lu(k,1593) = lu(k,1593) - lu(k,994) * lu(k,1579) - lu(k,1597) = lu(k,1597) - lu(k,995) * lu(k,1579) - lu(k,1599) = - lu(k,996) * lu(k,1579) - lu(k,1605) = lu(k,1605) - lu(k,992) * lu(k,1604) - lu(k,1614) = lu(k,1614) - lu(k,993) * lu(k,1604) - lu(k,1616) = lu(k,1616) - lu(k,994) * lu(k,1604) - lu(k,1621) = lu(k,1621) - lu(k,995) * lu(k,1604) - lu(k,1623) = lu(k,1623) - lu(k,996) * lu(k,1604) - lu(k,1631) = lu(k,1631) - lu(k,992) * lu(k,1629) - lu(k,1640) = lu(k,1640) - lu(k,993) * lu(k,1629) - lu(k,1642) = lu(k,1642) - lu(k,994) * lu(k,1629) - lu(k,1648) = lu(k,1648) - lu(k,995) * lu(k,1629) - lu(k,1650) = lu(k,1650) - lu(k,996) * lu(k,1629) - lu(k,1675) = lu(k,1675) - lu(k,992) * lu(k,1665) - lu(k,1684) = lu(k,1684) - lu(k,993) * lu(k,1665) - lu(k,1687) = lu(k,1687) - lu(k,994) * lu(k,1665) - lu(k,1693) = lu(k,1693) - lu(k,995) * lu(k,1665) - lu(k,1695) = lu(k,1695) - lu(k,996) * lu(k,1665) - lu(k,1997) = lu(k,1997) - lu(k,992) * lu(k,1964) - lu(k,2006) = lu(k,2006) - lu(k,993) * lu(k,1964) - lu(k,2009) = lu(k,2009) - lu(k,994) * lu(k,1964) - lu(k,2015) = lu(k,2015) - lu(k,995) * lu(k,1964) - lu(k,2017) = lu(k,2017) - lu(k,996) * lu(k,1964) - lu(k,2058) = - lu(k,992) * lu(k,2028) - lu(k,2066) = lu(k,2066) - lu(k,993) * lu(k,2028) - lu(k,2069) = lu(k,2069) - lu(k,994) * lu(k,2028) - lu(k,2075) = lu(k,2075) - lu(k,995) * lu(k,2028) - lu(k,2077) = lu(k,2077) - lu(k,996) * lu(k,2028) - lu(k,2409) = lu(k,2409) - lu(k,992) * lu(k,2382) - lu(k,2417) = lu(k,2417) - lu(k,993) * lu(k,2382) - lu(k,2420) = lu(k,2420) - lu(k,994) * lu(k,2382) - lu(k,2426) = lu(k,2426) - lu(k,995) * lu(k,2382) - lu(k,2428) = lu(k,2428) - lu(k,996) * lu(k,2382) - lu(k,2451) = lu(k,2451) - lu(k,992) * lu(k,2445) - lu(k,2460) = lu(k,2460) - lu(k,993) * lu(k,2445) - lu(k,2463) = lu(k,2463) - lu(k,994) * lu(k,2445) - lu(k,2469) = lu(k,2469) - lu(k,995) * lu(k,2445) - lu(k,2471) = lu(k,2471) - lu(k,996) * lu(k,2445) - lu(k,2504) = - lu(k,992) * lu(k,2502) - lu(k,2513) = lu(k,2513) - lu(k,993) * lu(k,2502) - lu(k,2516) = - lu(k,994) * lu(k,2502) - lu(k,2522) = lu(k,2522) - lu(k,995) * lu(k,2502) - lu(k,2524) = lu(k,2524) - lu(k,996) * lu(k,2502) - lu(k,1006) = 1._r8 / lu(k,1006) - lu(k,1007) = lu(k,1007) * lu(k,1006) - lu(k,1008) = lu(k,1008) * lu(k,1006) - lu(k,1009) = lu(k,1009) * lu(k,1006) - lu(k,1010) = lu(k,1010) * lu(k,1006) - lu(k,1011) = lu(k,1011) * lu(k,1006) - lu(k,1012) = lu(k,1012) * lu(k,1006) - lu(k,1013) = lu(k,1013) * lu(k,1006) - lu(k,1014) = lu(k,1014) * lu(k,1006) - lu(k,1015) = lu(k,1015) * lu(k,1006) - lu(k,1016) = lu(k,1016) * lu(k,1006) - lu(k,1017) = lu(k,1017) * lu(k,1006) - lu(k,1018) = lu(k,1018) * lu(k,1006) - lu(k,1019) = lu(k,1019) * lu(k,1006) - lu(k,1020) = lu(k,1020) * lu(k,1006) - lu(k,1021) = lu(k,1021) * lu(k,1006) - lu(k,1022) = lu(k,1022) * lu(k,1006) - lu(k,1023) = lu(k,1023) * lu(k,1006) - lu(k,1024) = lu(k,1024) * lu(k,1006) - lu(k,1969) = lu(k,1969) - lu(k,1007) * lu(k,1965) - lu(k,1970) = lu(k,1970) - lu(k,1008) * lu(k,1965) - lu(k,1971) = lu(k,1971) - lu(k,1009) * lu(k,1965) - lu(k,1972) = lu(k,1972) - lu(k,1010) * lu(k,1965) - lu(k,1973) = lu(k,1973) - lu(k,1011) * lu(k,1965) - lu(k,1975) = lu(k,1975) - lu(k,1012) * lu(k,1965) - lu(k,1976) = lu(k,1976) - lu(k,1013) * lu(k,1965) - lu(k,1979) = lu(k,1979) - lu(k,1014) * lu(k,1965) - lu(k,1984) = lu(k,1984) - lu(k,1015) * lu(k,1965) - lu(k,1988) = lu(k,1988) - lu(k,1016) * lu(k,1965) - lu(k,1994) = lu(k,1994) - lu(k,1017) * lu(k,1965) - lu(k,1995) = lu(k,1995) - lu(k,1018) * lu(k,1965) - lu(k,2006) = lu(k,2006) - lu(k,1019) * lu(k,1965) - lu(k,2007) = lu(k,2007) - lu(k,1020) * lu(k,1965) - lu(k,2009) = lu(k,2009) - lu(k,1021) * lu(k,1965) - lu(k,2014) = lu(k,2014) - lu(k,1022) * lu(k,1965) - lu(k,2016) = lu(k,2016) - lu(k,1023) * lu(k,1965) - lu(k,2017) = lu(k,2017) - lu(k,1024) * lu(k,1965) - lu(k,2031) = - lu(k,1007) * lu(k,2029) - lu(k,2032) = lu(k,2032) - lu(k,1008) * lu(k,2029) - lu(k,2033) = - lu(k,1009) * lu(k,2029) - lu(k,2034) = lu(k,2034) - lu(k,1010) * lu(k,2029) - lu(k,2035) = lu(k,2035) - lu(k,1011) * lu(k,2029) - lu(k,2037) = lu(k,2037) - lu(k,1012) * lu(k,2029) - lu(k,2038) = - lu(k,1013) * lu(k,2029) - lu(k,2041) = lu(k,2041) - lu(k,1014) * lu(k,2029) - lu(k,2046) = - lu(k,1015) * lu(k,2029) - lu(k,2050) = lu(k,2050) - lu(k,1016) * lu(k,2029) - lu(k,2056) = lu(k,2056) - lu(k,1017) * lu(k,2029) - lu(k,2057) = lu(k,2057) - lu(k,1018) * lu(k,2029) - lu(k,2066) = lu(k,2066) - lu(k,1019) * lu(k,2029) - lu(k,2067) = lu(k,2067) - lu(k,1020) * lu(k,2029) - lu(k,2069) = lu(k,2069) - lu(k,1021) * lu(k,2029) - lu(k,2074) = lu(k,2074) - lu(k,1022) * lu(k,2029) - lu(k,2076) = lu(k,2076) - lu(k,1023) * lu(k,2029) - lu(k,2077) = lu(k,2077) - lu(k,1024) * lu(k,2029) - lu(k,2385) = lu(k,2385) - lu(k,1007) * lu(k,2383) - lu(k,2386) = lu(k,2386) - lu(k,1008) * lu(k,2383) - lu(k,2387) = - lu(k,1009) * lu(k,2383) - lu(k,2388) = lu(k,2388) - lu(k,1010) * lu(k,2383) - lu(k,2389) = lu(k,2389) - lu(k,1011) * lu(k,2383) - lu(k,2390) = - lu(k,1012) * lu(k,2383) - lu(k,2391) = lu(k,2391) - lu(k,1013) * lu(k,2383) - lu(k,2394) = lu(k,2394) - lu(k,1014) * lu(k,2383) - lu(k,2398) = lu(k,2398) - lu(k,1015) * lu(k,2383) - lu(k,2401) = lu(k,2401) - lu(k,1016) * lu(k,2383) - lu(k,2407) = lu(k,2407) - lu(k,1017) * lu(k,2383) - lu(k,2408) = lu(k,2408) - lu(k,1018) * lu(k,2383) - lu(k,2417) = lu(k,2417) - lu(k,1019) * lu(k,2383) - lu(k,2418) = lu(k,2418) - lu(k,1020) * lu(k,2383) - lu(k,2420) = lu(k,2420) - lu(k,1021) * lu(k,2383) - lu(k,2425) = lu(k,2425) - lu(k,1022) * lu(k,2383) - lu(k,2427) = lu(k,2427) - lu(k,1023) * lu(k,2383) - lu(k,2428) = lu(k,2428) - lu(k,1024) * lu(k,2383) - lu(k,1027) = 1._r8 / lu(k,1027) - lu(k,1028) = lu(k,1028) * lu(k,1027) - lu(k,1029) = lu(k,1029) * lu(k,1027) - lu(k,1030) = lu(k,1030) * lu(k,1027) - lu(k,1031) = lu(k,1031) * lu(k,1027) - lu(k,1032) = lu(k,1032) * lu(k,1027) - lu(k,1033) = lu(k,1033) * lu(k,1027) - lu(k,1034) = lu(k,1034) * lu(k,1027) - lu(k,1035) = lu(k,1035) * lu(k,1027) - lu(k,1036) = lu(k,1036) * lu(k,1027) - lu(k,1539) = lu(k,1539) - lu(k,1028) * lu(k,1538) - lu(k,1542) = lu(k,1542) - lu(k,1029) * lu(k,1538) - lu(k,1543) = - lu(k,1030) * lu(k,1538) - lu(k,1545) = lu(k,1545) - lu(k,1031) * lu(k,1538) - lu(k,1546) = - lu(k,1032) * lu(k,1538) - lu(k,1547) = lu(k,1547) - lu(k,1033) * lu(k,1538) - lu(k,1549) = lu(k,1549) - lu(k,1034) * lu(k,1538) - lu(k,1550) = lu(k,1550) - lu(k,1035) * lu(k,1538) - lu(k,1551) = lu(k,1551) - lu(k,1036) * lu(k,1538) - lu(k,1632) = lu(k,1632) - lu(k,1028) * lu(k,1630) - lu(k,1636) = lu(k,1636) - lu(k,1029) * lu(k,1630) - lu(k,1637) = lu(k,1637) - lu(k,1030) * lu(k,1630) - lu(k,1640) = lu(k,1640) - lu(k,1031) * lu(k,1630) - lu(k,1641) = - lu(k,1032) * lu(k,1630) - lu(k,1643) = lu(k,1643) - lu(k,1033) * lu(k,1630) - lu(k,1645) = - lu(k,1034) * lu(k,1630) - lu(k,1648) = lu(k,1648) - lu(k,1035) * lu(k,1630) - lu(k,1650) = lu(k,1650) - lu(k,1036) * lu(k,1630) - lu(k,1676) = lu(k,1676) - lu(k,1028) * lu(k,1666) - lu(k,1680) = lu(k,1680) - lu(k,1029) * lu(k,1666) - lu(k,1681) = lu(k,1681) - lu(k,1030) * lu(k,1666) - lu(k,1684) = lu(k,1684) - lu(k,1031) * lu(k,1666) - lu(k,1685) = lu(k,1685) - lu(k,1032) * lu(k,1666) - lu(k,1688) = lu(k,1688) - lu(k,1033) * lu(k,1666) - lu(k,1690) = lu(k,1690) - lu(k,1034) * lu(k,1666) - lu(k,1693) = lu(k,1693) - lu(k,1035) * lu(k,1666) - lu(k,1695) = lu(k,1695) - lu(k,1036) * lu(k,1666) - lu(k,1998) = lu(k,1998) - lu(k,1028) * lu(k,1966) - lu(k,2002) = lu(k,2002) - lu(k,1029) * lu(k,1966) - lu(k,2003) = lu(k,2003) - lu(k,1030) * lu(k,1966) - lu(k,2006) = lu(k,2006) - lu(k,1031) * lu(k,1966) - lu(k,2007) = lu(k,2007) - lu(k,1032) * lu(k,1966) - lu(k,2010) = lu(k,2010) - lu(k,1033) * lu(k,1966) - lu(k,2012) = lu(k,2012) - lu(k,1034) * lu(k,1966) - lu(k,2015) = lu(k,2015) - lu(k,1035) * lu(k,1966) - lu(k,2017) = lu(k,2017) - lu(k,1036) * lu(k,1966) - lu(k,2249) = lu(k,2249) - lu(k,1028) * lu(k,2238) - lu(k,2253) = lu(k,2253) - lu(k,1029) * lu(k,2238) - lu(k,2254) = lu(k,2254) - lu(k,1030) * lu(k,2238) - lu(k,2257) = lu(k,2257) - lu(k,1031) * lu(k,2238) - lu(k,2258) = lu(k,2258) - lu(k,1032) * lu(k,2238) - lu(k,2261) = lu(k,2261) - lu(k,1033) * lu(k,2238) - lu(k,2263) = - lu(k,1034) * lu(k,2238) - lu(k,2266) = lu(k,2266) - lu(k,1035) * lu(k,2238) - lu(k,2268) = lu(k,2268) - lu(k,1036) * lu(k,2238) - lu(k,2452) = lu(k,2452) - lu(k,1028) * lu(k,2446) - lu(k,2456) = lu(k,2456) - lu(k,1029) * lu(k,2446) - lu(k,2457) = lu(k,2457) - lu(k,1030) * lu(k,2446) - lu(k,2460) = lu(k,2460) - lu(k,1031) * lu(k,2446) - lu(k,2461) = lu(k,2461) - lu(k,1032) * lu(k,2446) - lu(k,2464) = lu(k,2464) - lu(k,1033) * lu(k,2446) - lu(k,2466) = lu(k,2466) - lu(k,1034) * lu(k,2446) - lu(k,2469) = lu(k,2469) - lu(k,1035) * lu(k,2446) - lu(k,2471) = lu(k,2471) - lu(k,1036) * lu(k,2446) + lu(k,980) = 1._r8 / lu(k,980) + lu(k,981) = lu(k,981) * lu(k,980) + lu(k,982) = lu(k,982) * lu(k,980) + lu(k,983) = lu(k,983) * lu(k,980) + lu(k,984) = lu(k,984) * lu(k,980) + lu(k,985) = lu(k,985) * lu(k,980) + lu(k,986) = lu(k,986) * lu(k,980) + lu(k,987) = lu(k,987) * lu(k,980) + lu(k,988) = lu(k,988) * lu(k,980) + lu(k,989) = lu(k,989) * lu(k,980) + lu(k,990) = lu(k,990) * lu(k,980) + lu(k,1823) = lu(k,1823) - lu(k,981) * lu(k,1813) + lu(k,1828) = lu(k,1828) - lu(k,982) * lu(k,1813) + lu(k,1850) = lu(k,1850) - lu(k,983) * lu(k,1813) + lu(k,1853) = lu(k,1853) - lu(k,984) * lu(k,1813) + lu(k,1854) = lu(k,1854) - lu(k,985) * lu(k,1813) + lu(k,1855) = lu(k,1855) - lu(k,986) * lu(k,1813) + lu(k,1860) = lu(k,1860) - lu(k,987) * lu(k,1813) + lu(k,1863) = lu(k,1863) - lu(k,988) * lu(k,1813) + lu(k,1865) = lu(k,1865) - lu(k,989) * lu(k,1813) + lu(k,1867) = lu(k,1867) - lu(k,990) * lu(k,1813) + lu(k,1934) = lu(k,1934) - lu(k,981) * lu(k,1928) + lu(k,1938) = lu(k,1938) - lu(k,982) * lu(k,1928) + lu(k,1957) = lu(k,1957) - lu(k,983) * lu(k,1928) + lu(k,1960) = lu(k,1960) - lu(k,984) * lu(k,1928) + lu(k,1961) = lu(k,1961) - lu(k,985) * lu(k,1928) + lu(k,1962) = lu(k,1962) - lu(k,986) * lu(k,1928) + lu(k,1967) = lu(k,1967) - lu(k,987) * lu(k,1928) + lu(k,1970) = lu(k,1970) - lu(k,988) * lu(k,1928) + lu(k,1972) = lu(k,1972) - lu(k,989) * lu(k,1928) + lu(k,1974) = lu(k,1974) - lu(k,990) * lu(k,1928) + lu(k,1992) = - lu(k,981) * lu(k,1989) + lu(k,1993) = lu(k,1993) - lu(k,982) * lu(k,1989) + lu(k,2003) = lu(k,2003) - lu(k,983) * lu(k,1989) + lu(k,2006) = lu(k,2006) - lu(k,984) * lu(k,1989) + lu(k,2007) = lu(k,2007) - lu(k,985) * lu(k,1989) + lu(k,2008) = lu(k,2008) - lu(k,986) * lu(k,1989) + lu(k,2013) = lu(k,2013) - lu(k,987) * lu(k,1989) + lu(k,2016) = lu(k,2016) - lu(k,988) * lu(k,1989) + lu(k,2018) = lu(k,2018) - lu(k,989) * lu(k,1989) + lu(k,2020) = lu(k,2020) - lu(k,990) * lu(k,1989) + lu(k,2162) = lu(k,2162) - lu(k,981) * lu(k,2158) + lu(k,2166) = lu(k,2166) - lu(k,982) * lu(k,2158) + lu(k,2183) = lu(k,2183) - lu(k,983) * lu(k,2158) + lu(k,2186) = lu(k,2186) - lu(k,984) * lu(k,2158) + lu(k,2187) = lu(k,2187) - lu(k,985) * lu(k,2158) + lu(k,2188) = lu(k,2188) - lu(k,986) * lu(k,2158) + lu(k,2193) = lu(k,2193) - lu(k,987) * lu(k,2158) + lu(k,2196) = lu(k,2196) - lu(k,988) * lu(k,2158) + lu(k,2198) = lu(k,2198) - lu(k,989) * lu(k,2158) + lu(k,2200) = lu(k,2200) - lu(k,990) * lu(k,2158) + lu(k,2346) = lu(k,2346) - lu(k,981) * lu(k,2341) + lu(k,2349) = lu(k,2349) - lu(k,982) * lu(k,2341) + lu(k,2369) = lu(k,2369) - lu(k,983) * lu(k,2341) + lu(k,2372) = lu(k,2372) - lu(k,984) * lu(k,2341) + lu(k,2373) = lu(k,2373) - lu(k,985) * lu(k,2341) + lu(k,2374) = lu(k,2374) - lu(k,986) * lu(k,2341) + lu(k,2379) = lu(k,2379) - lu(k,987) * lu(k,2341) + lu(k,2382) = lu(k,2382) - lu(k,988) * lu(k,2341) + lu(k,2384) = lu(k,2384) - lu(k,989) * lu(k,2341) + lu(k,2386) = lu(k,2386) - lu(k,990) * lu(k,2341) + lu(k,992) = 1._r8 / lu(k,992) + lu(k,993) = lu(k,993) * lu(k,992) + lu(k,994) = lu(k,994) * lu(k,992) + lu(k,995) = lu(k,995) * lu(k,992) + lu(k,996) = lu(k,996) * lu(k,992) + lu(k,997) = lu(k,997) * lu(k,992) + lu(k,1521) = lu(k,1521) - lu(k,993) * lu(k,1520) + lu(k,1526) = lu(k,1526) - lu(k,994) * lu(k,1520) + lu(k,1529) = lu(k,1529) - lu(k,995) * lu(k,1520) + lu(k,1532) = - lu(k,996) * lu(k,1520) + lu(k,1534) = - lu(k,997) * lu(k,1520) + lu(k,1585) = lu(k,1585) - lu(k,993) * lu(k,1580) + lu(k,1590) = lu(k,1590) - lu(k,994) * lu(k,1580) + lu(k,1593) = lu(k,1593) - lu(k,995) * lu(k,1580) + lu(k,1597) = lu(k,1597) - lu(k,996) * lu(k,1580) + lu(k,1600) = - lu(k,997) * lu(k,1580) + lu(k,1606) = lu(k,1606) - lu(k,993) * lu(k,1605) + lu(k,1612) = lu(k,1612) - lu(k,994) * lu(k,1605) + lu(k,1615) = lu(k,1615) - lu(k,995) * lu(k,1605) + lu(k,1620) = lu(k,1620) - lu(k,996) * lu(k,1605) + lu(k,1624) = lu(k,1624) - lu(k,997) * lu(k,1605) + lu(k,1674) = lu(k,1674) - lu(k,993) * lu(k,1664) + lu(k,1681) = lu(k,1681) - lu(k,994) * lu(k,1664) + lu(k,1684) = lu(k,1684) - lu(k,995) * lu(k,1664) + lu(k,1690) = lu(k,1690) - lu(k,996) * lu(k,1664) + lu(k,1694) = lu(k,1694) - lu(k,997) * lu(k,1664) + lu(k,1847) = lu(k,1847) - lu(k,993) * lu(k,1814) + lu(k,1854) = lu(k,1854) - lu(k,994) * lu(k,1814) + lu(k,1857) = lu(k,1857) - lu(k,995) * lu(k,1814) + lu(k,1863) = lu(k,1863) - lu(k,996) * lu(k,1814) + lu(k,1867) = lu(k,1867) - lu(k,997) * lu(k,1814) + lu(k,2043) = lu(k,2043) - lu(k,993) * lu(k,2037) + lu(k,2050) = lu(k,2050) - lu(k,994) * lu(k,2037) + lu(k,2053) = lu(k,2053) - lu(k,995) * lu(k,2037) + lu(k,2059) = lu(k,2059) - lu(k,996) * lu(k,2037) + lu(k,2063) = lu(k,2063) - lu(k,997) * lu(k,2037) + lu(k,2108) = lu(k,2108) - lu(k,993) * lu(k,2081) + lu(k,2114) = lu(k,2114) - lu(k,994) * lu(k,2081) + lu(k,2117) = lu(k,2117) - lu(k,995) * lu(k,2081) + lu(k,2123) = lu(k,2123) - lu(k,996) * lu(k,2081) + lu(k,2127) = lu(k,2127) - lu(k,997) * lu(k,2081) + lu(k,2427) = - lu(k,993) * lu(k,2397) + lu(k,2433) = lu(k,2433) - lu(k,994) * lu(k,2397) + lu(k,2436) = lu(k,2436) - lu(k,995) * lu(k,2397) + lu(k,2442) = lu(k,2442) - lu(k,996) * lu(k,2397) + lu(k,2446) = lu(k,2446) - lu(k,997) * lu(k,2397) + lu(k,2480) = lu(k,2480) - lu(k,993) * lu(k,2478) + lu(k,2486) = lu(k,2486) - lu(k,994) * lu(k,2478) + lu(k,2489) = lu(k,2489) - lu(k,995) * lu(k,2478) + lu(k,2495) = lu(k,2495) - lu(k,996) * lu(k,2478) + lu(k,2499) = lu(k,2499) - lu(k,997) * lu(k,2478) + lu(k,2506) = - lu(k,993) * lu(k,2504) + lu(k,2513) = lu(k,2513) - lu(k,994) * lu(k,2504) + lu(k,2516) = lu(k,2516) - lu(k,995) * lu(k,2504) + lu(k,2522) = - lu(k,996) * lu(k,2504) + lu(k,2526) = lu(k,2526) - lu(k,997) * lu(k,2504) + lu(k,1007) = 1._r8 / lu(k,1007) + lu(k,1008) = lu(k,1008) * lu(k,1007) + lu(k,1009) = lu(k,1009) * lu(k,1007) + lu(k,1010) = lu(k,1010) * lu(k,1007) + lu(k,1011) = lu(k,1011) * lu(k,1007) + lu(k,1012) = lu(k,1012) * lu(k,1007) + lu(k,1013) = lu(k,1013) * lu(k,1007) + lu(k,1014) = lu(k,1014) * lu(k,1007) + lu(k,1015) = lu(k,1015) * lu(k,1007) + lu(k,1016) = lu(k,1016) * lu(k,1007) + lu(k,1017) = lu(k,1017) * lu(k,1007) + lu(k,1018) = lu(k,1018) * lu(k,1007) + lu(k,1019) = lu(k,1019) * lu(k,1007) + lu(k,1020) = lu(k,1020) * lu(k,1007) + lu(k,1021) = lu(k,1021) * lu(k,1007) + lu(k,1022) = lu(k,1022) * lu(k,1007) + lu(k,1023) = lu(k,1023) * lu(k,1007) + lu(k,1024) = lu(k,1024) * lu(k,1007) + lu(k,1025) = lu(k,1025) * lu(k,1007) + lu(k,1819) = lu(k,1819) - lu(k,1008) * lu(k,1815) + lu(k,1820) = lu(k,1820) - lu(k,1009) * lu(k,1815) + lu(k,1821) = lu(k,1821) - lu(k,1010) * lu(k,1815) + lu(k,1822) = lu(k,1822) - lu(k,1011) * lu(k,1815) + lu(k,1823) = lu(k,1823) - lu(k,1012) * lu(k,1815) + lu(k,1825) = lu(k,1825) - lu(k,1013) * lu(k,1815) + lu(k,1826) = lu(k,1826) - lu(k,1014) * lu(k,1815) + lu(k,1829) = lu(k,1829) - lu(k,1015) * lu(k,1815) + lu(k,1834) = lu(k,1834) - lu(k,1016) * lu(k,1815) + lu(k,1838) = lu(k,1838) - lu(k,1017) * lu(k,1815) + lu(k,1844) = lu(k,1844) - lu(k,1018) * lu(k,1815) + lu(k,1845) = lu(k,1845) - lu(k,1019) * lu(k,1815) + lu(k,1854) = lu(k,1854) - lu(k,1020) * lu(k,1815) + lu(k,1858) = lu(k,1858) - lu(k,1021) * lu(k,1815) + lu(k,1863) = lu(k,1863) - lu(k,1022) * lu(k,1815) + lu(k,1864) = lu(k,1864) - lu(k,1023) * lu(k,1815) + lu(k,1865) = lu(k,1865) - lu(k,1024) * lu(k,1815) + lu(k,1867) = lu(k,1867) - lu(k,1025) * lu(k,1815) + lu(k,2084) = lu(k,2084) - lu(k,1008) * lu(k,2082) + lu(k,2085) = lu(k,2085) - lu(k,1009) * lu(k,2082) + lu(k,2086) = - lu(k,1010) * lu(k,2082) + lu(k,2087) = lu(k,2087) - lu(k,1011) * lu(k,2082) + lu(k,2088) = lu(k,2088) - lu(k,1012) * lu(k,2082) + lu(k,2089) = - lu(k,1013) * lu(k,2082) + lu(k,2090) = lu(k,2090) - lu(k,1014) * lu(k,2082) + lu(k,2093) = lu(k,2093) - lu(k,1015) * lu(k,2082) + lu(k,2097) = lu(k,2097) - lu(k,1016) * lu(k,2082) + lu(k,2100) = lu(k,2100) - lu(k,1017) * lu(k,2082) + lu(k,2106) = lu(k,2106) - lu(k,1018) * lu(k,2082) + lu(k,2107) = lu(k,2107) - lu(k,1019) * lu(k,2082) + lu(k,2114) = lu(k,2114) - lu(k,1020) * lu(k,2082) + lu(k,2118) = lu(k,2118) - lu(k,1021) * lu(k,2082) + lu(k,2123) = lu(k,2123) - lu(k,1022) * lu(k,2082) + lu(k,2124) = lu(k,2124) - lu(k,1023) * lu(k,2082) + lu(k,2125) = lu(k,2125) - lu(k,1024) * lu(k,2082) + lu(k,2127) = lu(k,2127) - lu(k,1025) * lu(k,2082) + lu(k,2400) = - lu(k,1008) * lu(k,2398) + lu(k,2401) = lu(k,2401) - lu(k,1009) * lu(k,2398) + lu(k,2402) = - lu(k,1010) * lu(k,2398) + lu(k,2403) = lu(k,2403) - lu(k,1011) * lu(k,2398) + lu(k,2404) = lu(k,2404) - lu(k,1012) * lu(k,2398) + lu(k,2406) = lu(k,2406) - lu(k,1013) * lu(k,2398) + lu(k,2407) = - lu(k,1014) * lu(k,2398) + lu(k,2410) = lu(k,2410) - lu(k,1015) * lu(k,2398) + lu(k,2415) = - lu(k,1016) * lu(k,2398) + lu(k,2419) = lu(k,2419) - lu(k,1017) * lu(k,2398) + lu(k,2425) = lu(k,2425) - lu(k,1018) * lu(k,2398) + lu(k,2426) = lu(k,2426) - lu(k,1019) * lu(k,2398) + lu(k,2433) = lu(k,2433) - lu(k,1020) * lu(k,2398) + lu(k,2437) = lu(k,2437) - lu(k,1021) * lu(k,2398) + lu(k,2442) = lu(k,2442) - lu(k,1022) * lu(k,2398) + lu(k,2443) = lu(k,2443) - lu(k,1023) * lu(k,2398) + lu(k,2444) = lu(k,2444) - lu(k,1024) * lu(k,2398) + lu(k,2446) = lu(k,2446) - lu(k,1025) * lu(k,2398) + lu(k,1032) = 1._r8 / lu(k,1032) + lu(k,1033) = lu(k,1033) * lu(k,1032) + lu(k,1034) = lu(k,1034) * lu(k,1032) + lu(k,1035) = lu(k,1035) * lu(k,1032) + lu(k,1036) = lu(k,1036) * lu(k,1032) + lu(k,1037) = lu(k,1037) * lu(k,1032) + lu(k,1038) = lu(k,1038) * lu(k,1032) + lu(k,1039) = lu(k,1039) * lu(k,1032) + lu(k,1040) = lu(k,1040) * lu(k,1032) + lu(k,1041) = lu(k,1041) * lu(k,1032) + lu(k,1494) = lu(k,1494) - lu(k,1033) * lu(k,1493) + lu(k,1495) = lu(k,1495) - lu(k,1034) * lu(k,1493) + lu(k,1496) = lu(k,1496) - lu(k,1035) * lu(k,1493) + lu(k,1497) = - lu(k,1036) * lu(k,1493) + lu(k,1498) = - lu(k,1037) * lu(k,1493) + lu(k,1499) = lu(k,1499) - lu(k,1038) * lu(k,1493) + lu(k,1500) = lu(k,1500) - lu(k,1039) * lu(k,1493) + lu(k,1501) = - lu(k,1040) * lu(k,1493) + lu(k,1502) = lu(k,1502) - lu(k,1041) * lu(k,1493) + lu(k,1582) = lu(k,1582) - lu(k,1033) * lu(k,1581) + lu(k,1584) = lu(k,1584) - lu(k,1034) * lu(k,1581) + lu(k,1587) = lu(k,1587) - lu(k,1035) * lu(k,1581) + lu(k,1589) = - lu(k,1036) * lu(k,1581) + lu(k,1590) = lu(k,1590) - lu(k,1037) * lu(k,1581) + lu(k,1591) = lu(k,1591) - lu(k,1038) * lu(k,1581) + lu(k,1593) = lu(k,1593) - lu(k,1039) * lu(k,1581) + lu(k,1595) = lu(k,1595) - lu(k,1040) * lu(k,1581) + lu(k,1596) = lu(k,1596) - lu(k,1041) * lu(k,1581) + lu(k,1668) = lu(k,1668) - lu(k,1033) * lu(k,1665) + lu(k,1673) = lu(k,1673) - lu(k,1034) * lu(k,1665) + lu(k,1677) = lu(k,1677) - lu(k,1035) * lu(k,1665) + lu(k,1680) = lu(k,1680) - lu(k,1036) * lu(k,1665) + lu(k,1681) = lu(k,1681) - lu(k,1037) * lu(k,1665) + lu(k,1682) = lu(k,1682) - lu(k,1038) * lu(k,1665) + lu(k,1684) = lu(k,1684) - lu(k,1039) * lu(k,1665) + lu(k,1686) = - lu(k,1040) * lu(k,1665) + lu(k,1688) = lu(k,1688) - lu(k,1041) * lu(k,1665) + lu(k,1829) = lu(k,1829) - lu(k,1033) * lu(k,1816) + lu(k,1845) = lu(k,1845) - lu(k,1034) * lu(k,1816) + lu(k,1850) = lu(k,1850) - lu(k,1035) * lu(k,1816) + lu(k,1853) = lu(k,1853) - lu(k,1036) * lu(k,1816) + lu(k,1854) = lu(k,1854) - lu(k,1037) * lu(k,1816) + lu(k,1855) = lu(k,1855) - lu(k,1038) * lu(k,1816) + lu(k,1857) = lu(k,1857) - lu(k,1039) * lu(k,1816) + lu(k,1859) = lu(k,1859) - lu(k,1040) * lu(k,1816) + lu(k,1861) = lu(k,1861) - lu(k,1041) * lu(k,1816) + lu(k,1939) = lu(k,1939) - lu(k,1033) * lu(k,1929) + lu(k,1955) = lu(k,1955) - lu(k,1034) * lu(k,1929) + lu(k,1957) = lu(k,1957) - lu(k,1035) * lu(k,1929) + lu(k,1960) = lu(k,1960) - lu(k,1036) * lu(k,1929) + lu(k,1961) = lu(k,1961) - lu(k,1037) * lu(k,1929) + lu(k,1962) = lu(k,1962) - lu(k,1038) * lu(k,1929) + lu(k,1964) = lu(k,1964) - lu(k,1039) * lu(k,1929) + lu(k,1966) = - lu(k,1040) * lu(k,1929) + lu(k,1968) = lu(k,1968) - lu(k,1041) * lu(k,1929) + lu(k,2040) = lu(k,2040) - lu(k,1033) * lu(k,2038) + lu(k,2041) = lu(k,2041) - lu(k,1034) * lu(k,2038) + lu(k,2046) = lu(k,2046) - lu(k,1035) * lu(k,2038) + lu(k,2049) = lu(k,2049) - lu(k,1036) * lu(k,2038) + lu(k,2050) = lu(k,2050) - lu(k,1037) * lu(k,2038) + lu(k,2051) = lu(k,2051) - lu(k,1038) * lu(k,2038) + lu(k,2053) = lu(k,2053) - lu(k,1039) * lu(k,2038) + lu(k,2055) = lu(k,2055) - lu(k,1040) * lu(k,2038) + lu(k,2057) = lu(k,2057) - lu(k,1041) * lu(k,2038) end do end subroutine lu_fac21 subroutine lu_fac22( avec_len, lu ) @@ -3696,261 +3700,261 @@ subroutine lu_fac22( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1043) = 1._r8 / lu(k,1043) - lu(k,1044) = lu(k,1044) * lu(k,1043) - lu(k,1045) = lu(k,1045) * lu(k,1043) - lu(k,1046) = lu(k,1046) * lu(k,1043) - lu(k,1047) = lu(k,1047) * lu(k,1043) - lu(k,1048) = lu(k,1048) * lu(k,1043) - lu(k,1049) = lu(k,1049) * lu(k,1043) - lu(k,1050) = lu(k,1050) * lu(k,1043) - lu(k,1051) = lu(k,1051) * lu(k,1043) - lu(k,1052) = lu(k,1052) * lu(k,1043) - lu(k,1493) = lu(k,1493) - lu(k,1044) * lu(k,1492) - lu(k,1494) = lu(k,1494) - lu(k,1045) * lu(k,1492) - lu(k,1495) = lu(k,1495) - lu(k,1046) * lu(k,1492) - lu(k,1496) = - lu(k,1047) * lu(k,1492) - lu(k,1497) = lu(k,1497) - lu(k,1048) * lu(k,1492) - lu(k,1498) = lu(k,1498) - lu(k,1049) * lu(k,1492) - lu(k,1499) = - lu(k,1050) * lu(k,1492) - lu(k,1501) = - lu(k,1051) * lu(k,1492) - lu(k,1502) = lu(k,1502) - lu(k,1052) * lu(k,1492) - lu(k,1581) = lu(k,1581) - lu(k,1044) * lu(k,1580) - lu(k,1583) = lu(k,1583) - lu(k,1045) * lu(k,1580) - lu(k,1586) = lu(k,1586) - lu(k,1046) * lu(k,1580) - lu(k,1589) = - lu(k,1047) * lu(k,1580) - lu(k,1590) = lu(k,1590) - lu(k,1048) * lu(k,1580) - lu(k,1591) = lu(k,1591) - lu(k,1049) * lu(k,1580) - lu(k,1592) = lu(k,1592) - lu(k,1050) * lu(k,1580) - lu(k,1595) = lu(k,1595) - lu(k,1051) * lu(k,1580) - lu(k,1597) = lu(k,1597) - lu(k,1052) * lu(k,1580) - lu(k,1669) = lu(k,1669) - lu(k,1044) * lu(k,1667) - lu(k,1674) = lu(k,1674) - lu(k,1045) * lu(k,1667) - lu(k,1678) = lu(k,1678) - lu(k,1046) * lu(k,1667) - lu(k,1681) = lu(k,1681) - lu(k,1047) * lu(k,1667) - lu(k,1682) = lu(k,1682) - lu(k,1048) * lu(k,1667) - lu(k,1683) = lu(k,1683) - lu(k,1049) * lu(k,1667) - lu(k,1684) = lu(k,1684) - lu(k,1050) * lu(k,1667) - lu(k,1689) = - lu(k,1051) * lu(k,1667) - lu(k,1693) = lu(k,1693) - lu(k,1052) * lu(k,1667) - lu(k,1766) = lu(k,1766) - lu(k,1044) * lu(k,1756) - lu(k,1782) = lu(k,1782) - lu(k,1045) * lu(k,1756) - lu(k,1784) = lu(k,1784) - lu(k,1046) * lu(k,1756) - lu(k,1787) = lu(k,1787) - lu(k,1047) * lu(k,1756) - lu(k,1788) = lu(k,1788) - lu(k,1048) * lu(k,1756) - lu(k,1789) = lu(k,1789) - lu(k,1049) * lu(k,1756) - lu(k,1790) = lu(k,1790) - lu(k,1050) * lu(k,1756) - lu(k,1795) = - lu(k,1051) * lu(k,1756) - lu(k,1799) = lu(k,1799) - lu(k,1052) * lu(k,1756) - lu(k,1979) = lu(k,1979) - lu(k,1044) * lu(k,1967) - lu(k,1995) = lu(k,1995) - lu(k,1045) * lu(k,1967) - lu(k,2000) = lu(k,2000) - lu(k,1046) * lu(k,1967) - lu(k,2003) = lu(k,2003) - lu(k,1047) * lu(k,1967) - lu(k,2004) = lu(k,2004) - lu(k,1048) * lu(k,1967) - lu(k,2005) = lu(k,2005) - lu(k,1049) * lu(k,1967) - lu(k,2006) = lu(k,2006) - lu(k,1050) * lu(k,1967) - lu(k,2011) = lu(k,2011) - lu(k,1051) * lu(k,1967) - lu(k,2015) = lu(k,2015) - lu(k,1052) * lu(k,1967) - lu(k,2448) = lu(k,2448) - lu(k,1044) * lu(k,2447) - lu(k,2449) = lu(k,2449) - lu(k,1045) * lu(k,2447) - lu(k,2454) = lu(k,2454) - lu(k,1046) * lu(k,2447) - lu(k,2457) = lu(k,2457) - lu(k,1047) * lu(k,2447) - lu(k,2458) = lu(k,2458) - lu(k,1048) * lu(k,2447) - lu(k,2459) = lu(k,2459) - lu(k,1049) * lu(k,2447) - lu(k,2460) = lu(k,2460) - lu(k,1050) * lu(k,2447) - lu(k,2465) = lu(k,2465) - lu(k,1051) * lu(k,2447) - lu(k,2469) = lu(k,2469) - lu(k,1052) * lu(k,2447) - lu(k,1062) = 1._r8 / lu(k,1062) - lu(k,1063) = lu(k,1063) * lu(k,1062) - lu(k,1064) = lu(k,1064) * lu(k,1062) - lu(k,1065) = lu(k,1065) * lu(k,1062) - lu(k,1066) = lu(k,1066) * lu(k,1062) - lu(k,1067) = lu(k,1067) * lu(k,1062) - lu(k,1068) = lu(k,1068) * lu(k,1062) - lu(k,1069) = lu(k,1069) * lu(k,1062) - lu(k,1070) = lu(k,1070) * lu(k,1062) - lu(k,1071) = lu(k,1071) * lu(k,1062) - lu(k,1072) = lu(k,1072) * lu(k,1062) - lu(k,1073) = lu(k,1073) * lu(k,1062) - lu(k,1074) = lu(k,1074) * lu(k,1062) - lu(k,1075) = lu(k,1075) * lu(k,1062) - lu(k,1076) = lu(k,1076) * lu(k,1062) - lu(k,1077) = lu(k,1077) * lu(k,1062) - lu(k,1078) = lu(k,1078) * lu(k,1062) - lu(k,1079) = lu(k,1079) * lu(k,1062) - lu(k,1080) = lu(k,1080) * lu(k,1062) - lu(k,1969) = lu(k,1969) - lu(k,1063) * lu(k,1968) - lu(k,1970) = lu(k,1970) - lu(k,1064) * lu(k,1968) - lu(k,1971) = lu(k,1971) - lu(k,1065) * lu(k,1968) - lu(k,1972) = lu(k,1972) - lu(k,1066) * lu(k,1968) - lu(k,1973) = lu(k,1973) - lu(k,1067) * lu(k,1968) - lu(k,1975) = lu(k,1975) - lu(k,1068) * lu(k,1968) - lu(k,1976) = lu(k,1976) - lu(k,1069) * lu(k,1968) - lu(k,1979) = lu(k,1979) - lu(k,1070) * lu(k,1968) - lu(k,1984) = lu(k,1984) - lu(k,1071) * lu(k,1968) - lu(k,1988) = lu(k,1988) - lu(k,1072) * lu(k,1968) - lu(k,1994) = lu(k,1994) - lu(k,1073) * lu(k,1968) - lu(k,1995) = lu(k,1995) - lu(k,1074) * lu(k,1968) - lu(k,2006) = lu(k,2006) - lu(k,1075) * lu(k,1968) - lu(k,2007) = lu(k,2007) - lu(k,1076) * lu(k,1968) - lu(k,2009) = lu(k,2009) - lu(k,1077) * lu(k,1968) - lu(k,2014) = lu(k,2014) - lu(k,1078) * lu(k,1968) - lu(k,2016) = lu(k,2016) - lu(k,1079) * lu(k,1968) - lu(k,2017) = lu(k,2017) - lu(k,1080) * lu(k,1968) - lu(k,2031) = lu(k,2031) - lu(k,1063) * lu(k,2030) - lu(k,2032) = lu(k,2032) - lu(k,1064) * lu(k,2030) - lu(k,2033) = lu(k,2033) - lu(k,1065) * lu(k,2030) - lu(k,2034) = lu(k,2034) - lu(k,1066) * lu(k,2030) - lu(k,2035) = lu(k,2035) - lu(k,1067) * lu(k,2030) - lu(k,2037) = lu(k,2037) - lu(k,1068) * lu(k,2030) - lu(k,2038) = lu(k,2038) - lu(k,1069) * lu(k,2030) - lu(k,2041) = lu(k,2041) - lu(k,1070) * lu(k,2030) - lu(k,2046) = lu(k,2046) - lu(k,1071) * lu(k,2030) - lu(k,2050) = lu(k,2050) - lu(k,1072) * lu(k,2030) - lu(k,2056) = lu(k,2056) - lu(k,1073) * lu(k,2030) - lu(k,2057) = lu(k,2057) - lu(k,1074) * lu(k,2030) - lu(k,2066) = lu(k,2066) - lu(k,1075) * lu(k,2030) - lu(k,2067) = lu(k,2067) - lu(k,1076) * lu(k,2030) - lu(k,2069) = lu(k,2069) - lu(k,1077) * lu(k,2030) - lu(k,2074) = lu(k,2074) - lu(k,1078) * lu(k,2030) - lu(k,2076) = lu(k,2076) - lu(k,1079) * lu(k,2030) - lu(k,2077) = lu(k,2077) - lu(k,1080) * lu(k,2030) - lu(k,2385) = lu(k,2385) - lu(k,1063) * lu(k,2384) - lu(k,2386) = lu(k,2386) - lu(k,1064) * lu(k,2384) - lu(k,2387) = lu(k,2387) - lu(k,1065) * lu(k,2384) - lu(k,2388) = lu(k,2388) - lu(k,1066) * lu(k,2384) - lu(k,2389) = lu(k,2389) - lu(k,1067) * lu(k,2384) - lu(k,2390) = lu(k,2390) - lu(k,1068) * lu(k,2384) - lu(k,2391) = lu(k,2391) - lu(k,1069) * lu(k,2384) - lu(k,2394) = lu(k,2394) - lu(k,1070) * lu(k,2384) - lu(k,2398) = lu(k,2398) - lu(k,1071) * lu(k,2384) - lu(k,2401) = lu(k,2401) - lu(k,1072) * lu(k,2384) - lu(k,2407) = lu(k,2407) - lu(k,1073) * lu(k,2384) - lu(k,2408) = lu(k,2408) - lu(k,1074) * lu(k,2384) - lu(k,2417) = lu(k,2417) - lu(k,1075) * lu(k,2384) - lu(k,2418) = lu(k,2418) - lu(k,1076) * lu(k,2384) - lu(k,2420) = lu(k,2420) - lu(k,1077) * lu(k,2384) - lu(k,2425) = lu(k,2425) - lu(k,1078) * lu(k,2384) - lu(k,2427) = lu(k,2427) - lu(k,1079) * lu(k,2384) - lu(k,2428) = lu(k,2428) - lu(k,1080) * lu(k,2384) - lu(k,1086) = 1._r8 / lu(k,1086) - lu(k,1087) = lu(k,1087) * lu(k,1086) - lu(k,1088) = lu(k,1088) * lu(k,1086) - lu(k,1089) = lu(k,1089) * lu(k,1086) - lu(k,1090) = lu(k,1090) * lu(k,1086) - lu(k,1091) = lu(k,1091) * lu(k,1086) - lu(k,1092) = lu(k,1092) * lu(k,1086) - lu(k,1093) = lu(k,1093) * lu(k,1086) - lu(k,1094) = lu(k,1094) * lu(k,1086) - lu(k,1095) = lu(k,1095) * lu(k,1086) - lu(k,1096) = lu(k,1096) * lu(k,1086) - lu(k,1761) = lu(k,1761) - lu(k,1087) * lu(k,1757) - lu(k,1765) = lu(k,1765) - lu(k,1088) * lu(k,1757) - lu(k,1781) = lu(k,1781) - lu(k,1089) * lu(k,1757) - lu(k,1784) = lu(k,1784) - lu(k,1090) * lu(k,1757) - lu(k,1787) = lu(k,1787) - lu(k,1091) * lu(k,1757) - lu(k,1788) = lu(k,1788) - lu(k,1092) * lu(k,1757) - lu(k,1790) = lu(k,1790) - lu(k,1093) * lu(k,1757) - lu(k,1793) = lu(k,1793) - lu(k,1094) * lu(k,1757) - lu(k,1797) = lu(k,1797) - lu(k,1095) * lu(k,1757) - lu(k,1800) = lu(k,1800) - lu(k,1096) * lu(k,1757) - lu(k,1973) = lu(k,1973) - lu(k,1087) * lu(k,1969) - lu(k,1978) = lu(k,1978) - lu(k,1088) * lu(k,1969) - lu(k,1994) = lu(k,1994) - lu(k,1089) * lu(k,1969) - lu(k,2000) = lu(k,2000) - lu(k,1090) * lu(k,1969) - lu(k,2003) = lu(k,2003) - lu(k,1091) * lu(k,1969) - lu(k,2004) = lu(k,2004) - lu(k,1092) * lu(k,1969) - lu(k,2006) = lu(k,2006) - lu(k,1093) * lu(k,1969) - lu(k,2009) = lu(k,2009) - lu(k,1094) * lu(k,1969) - lu(k,2013) = lu(k,2013) - lu(k,1095) * lu(k,1969) - lu(k,2016) = lu(k,2016) - lu(k,1096) * lu(k,1969) - lu(k,2035) = lu(k,2035) - lu(k,1087) * lu(k,2031) - lu(k,2040) = lu(k,2040) - lu(k,1088) * lu(k,2031) - lu(k,2056) = lu(k,2056) - lu(k,1089) * lu(k,2031) - lu(k,2060) = lu(k,2060) - lu(k,1090) * lu(k,2031) - lu(k,2063) = lu(k,2063) - lu(k,1091) * lu(k,2031) - lu(k,2064) = lu(k,2064) - lu(k,1092) * lu(k,2031) - lu(k,2066) = lu(k,2066) - lu(k,1093) * lu(k,2031) - lu(k,2069) = lu(k,2069) - lu(k,1094) * lu(k,2031) - lu(k,2073) = lu(k,2073) - lu(k,1095) * lu(k,2031) - lu(k,2076) = lu(k,2076) - lu(k,1096) * lu(k,2031) - lu(k,2182) = lu(k,2182) - lu(k,1087) * lu(k,2178) - lu(k,2185) = lu(k,2185) - lu(k,1088) * lu(k,2178) - lu(k,2200) = lu(k,2200) - lu(k,1089) * lu(k,2178) - lu(k,2205) = lu(k,2205) - lu(k,1090) * lu(k,2178) - lu(k,2208) = lu(k,2208) - lu(k,1091) * lu(k,2178) - lu(k,2209) = lu(k,2209) - lu(k,1092) * lu(k,2178) - lu(k,2211) = lu(k,2211) - lu(k,1093) * lu(k,2178) - lu(k,2214) = lu(k,2214) - lu(k,1094) * lu(k,2178) - lu(k,2218) = lu(k,2218) - lu(k,1095) * lu(k,2178) - lu(k,2221) = lu(k,2221) - lu(k,1096) * lu(k,2178) - lu(k,2389) = lu(k,2389) - lu(k,1087) * lu(k,2385) - lu(k,2393) = lu(k,2393) - lu(k,1088) * lu(k,2385) - lu(k,2407) = lu(k,2407) - lu(k,1089) * lu(k,2385) - lu(k,2411) = lu(k,2411) - lu(k,1090) * lu(k,2385) - lu(k,2414) = lu(k,2414) - lu(k,1091) * lu(k,2385) - lu(k,2415) = lu(k,2415) - lu(k,1092) * lu(k,2385) - lu(k,2417) = lu(k,2417) - lu(k,1093) * lu(k,2385) - lu(k,2420) = lu(k,2420) - lu(k,1094) * lu(k,2385) - lu(k,2424) = lu(k,2424) - lu(k,1095) * lu(k,2385) - lu(k,2427) = lu(k,2427) - lu(k,1096) * lu(k,2385) - lu(k,1098) = 1._r8 / lu(k,1098) - lu(k,1099) = lu(k,1099) * lu(k,1098) - lu(k,1100) = lu(k,1100) * lu(k,1098) - lu(k,1101) = lu(k,1101) * lu(k,1098) - lu(k,1102) = lu(k,1102) * lu(k,1098) - lu(k,1135) = lu(k,1135) - lu(k,1099) * lu(k,1133) - lu(k,1138) = - lu(k,1100) * lu(k,1133) - lu(k,1141) = lu(k,1141) - lu(k,1101) * lu(k,1133) - lu(k,1142) = lu(k,1142) - lu(k,1102) * lu(k,1133) - lu(k,1209) = lu(k,1209) - lu(k,1099) * lu(k,1208) - lu(k,1211) = lu(k,1211) - lu(k,1100) * lu(k,1208) - lu(k,1212) = lu(k,1212) - lu(k,1101) * lu(k,1208) - lu(k,1213) = lu(k,1213) - lu(k,1102) * lu(k,1208) - lu(k,1274) = lu(k,1274) - lu(k,1099) * lu(k,1273) - lu(k,1280) = lu(k,1280) - lu(k,1100) * lu(k,1273) - lu(k,1283) = lu(k,1283) - lu(k,1101) * lu(k,1273) - lu(k,1285) = lu(k,1285) - lu(k,1102) * lu(k,1273) - lu(k,1368) = lu(k,1368) - lu(k,1099) * lu(k,1367) - lu(k,1381) = - lu(k,1100) * lu(k,1367) - lu(k,1384) = lu(k,1384) - lu(k,1101) * lu(k,1367) - lu(k,1386) = lu(k,1386) - lu(k,1102) * lu(k,1367) - lu(k,1460) = lu(k,1460) - lu(k,1099) * lu(k,1458) - lu(k,1473) = lu(k,1473) - lu(k,1100) * lu(k,1458) - lu(k,1477) = lu(k,1477) - lu(k,1101) * lu(k,1458) - lu(k,1480) = lu(k,1480) - lu(k,1102) * lu(k,1458) - lu(k,1669) = lu(k,1669) - lu(k,1099) * lu(k,1668) - lu(k,1674) = lu(k,1674) - lu(k,1100) * lu(k,1668) - lu(k,1684) = lu(k,1684) - lu(k,1101) * lu(k,1668) - lu(k,1687) = lu(k,1687) - lu(k,1102) * lu(k,1668) - lu(k,1766) = lu(k,1766) - lu(k,1099) * lu(k,1758) - lu(k,1782) = lu(k,1782) - lu(k,1100) * lu(k,1758) - lu(k,1790) = lu(k,1790) - lu(k,1101) * lu(k,1758) - lu(k,1793) = lu(k,1793) - lu(k,1102) * lu(k,1758) - lu(k,1979) = lu(k,1979) - lu(k,1099) * lu(k,1970) - lu(k,1995) = lu(k,1995) - lu(k,1100) * lu(k,1970) - lu(k,2006) = lu(k,2006) - lu(k,1101) * lu(k,1970) - lu(k,2009) = lu(k,2009) - lu(k,1102) * lu(k,1970) - lu(k,2041) = lu(k,2041) - lu(k,1099) * lu(k,2032) - lu(k,2057) = lu(k,2057) - lu(k,1100) * lu(k,2032) - lu(k,2066) = lu(k,2066) - lu(k,1101) * lu(k,2032) - lu(k,2069) = lu(k,2069) - lu(k,1102) * lu(k,2032) - lu(k,2186) = lu(k,2186) - lu(k,1099) * lu(k,2179) - lu(k,2201) = lu(k,2201) - lu(k,1100) * lu(k,2179) - lu(k,2211) = lu(k,2211) - lu(k,1101) * lu(k,2179) - lu(k,2214) = lu(k,2214) - lu(k,1102) * lu(k,2179) - lu(k,2242) = lu(k,2242) - lu(k,1099) * lu(k,2239) - lu(k,2247) = lu(k,2247) - lu(k,1100) * lu(k,2239) - lu(k,2257) = lu(k,2257) - lu(k,1101) * lu(k,2239) - lu(k,2260) = lu(k,2260) - lu(k,1102) * lu(k,2239) - lu(k,2331) = lu(k,2331) - lu(k,1099) * lu(k,2323) - lu(k,2346) = lu(k,2346) - lu(k,1100) * lu(k,2323) - lu(k,2353) = lu(k,2353) - lu(k,1101) * lu(k,2323) - lu(k,2356) = lu(k,2356) - lu(k,1102) * lu(k,2323) - lu(k,2394) = lu(k,2394) - lu(k,1099) * lu(k,2386) - lu(k,2408) = lu(k,2408) - lu(k,1100) * lu(k,2386) - lu(k,2417) = lu(k,2417) - lu(k,1101) * lu(k,2386) - lu(k,2420) = lu(k,2420) - lu(k,1102) * lu(k,2386) + lu(k,1044) = 1._r8 / lu(k,1044) + lu(k,1045) = lu(k,1045) * lu(k,1044) + lu(k,1046) = lu(k,1046) * lu(k,1044) + lu(k,1047) = lu(k,1047) * lu(k,1044) + lu(k,1048) = lu(k,1048) * lu(k,1044) + lu(k,1049) = lu(k,1049) * lu(k,1044) + lu(k,1050) = lu(k,1050) * lu(k,1044) + lu(k,1051) = lu(k,1051) * lu(k,1044) + lu(k,1052) = lu(k,1052) * lu(k,1044) + lu(k,1053) = lu(k,1053) * lu(k,1044) + lu(k,1540) = lu(k,1540) - lu(k,1045) * lu(k,1539) + lu(k,1543) = - lu(k,1046) * lu(k,1539) + lu(k,1544) = lu(k,1544) - lu(k,1047) * lu(k,1539) + lu(k,1545) = lu(k,1545) - lu(k,1048) * lu(k,1539) + lu(k,1546) = lu(k,1546) - lu(k,1049) * lu(k,1539) + lu(k,1549) = lu(k,1549) - lu(k,1050) * lu(k,1539) + lu(k,1550) = - lu(k,1051) * lu(k,1539) + lu(k,1551) = lu(k,1551) - lu(k,1052) * lu(k,1539) + lu(k,1552) = lu(k,1552) - lu(k,1053) * lu(k,1539) + lu(k,1675) = lu(k,1675) - lu(k,1045) * lu(k,1666) + lu(k,1680) = lu(k,1680) - lu(k,1046) * lu(k,1666) + lu(k,1681) = lu(k,1681) - lu(k,1047) * lu(k,1666) + lu(k,1683) = lu(k,1683) - lu(k,1048) * lu(k,1666) + lu(k,1684) = lu(k,1684) - lu(k,1049) * lu(k,1666) + lu(k,1689) = lu(k,1689) - lu(k,1050) * lu(k,1666) + lu(k,1691) = lu(k,1691) - lu(k,1051) * lu(k,1666) + lu(k,1693) = lu(k,1693) - lu(k,1052) * lu(k,1666) + lu(k,1694) = lu(k,1694) - lu(k,1053) * lu(k,1666) + lu(k,1848) = lu(k,1848) - lu(k,1045) * lu(k,1817) + lu(k,1853) = lu(k,1853) - lu(k,1046) * lu(k,1817) + lu(k,1854) = lu(k,1854) - lu(k,1047) * lu(k,1817) + lu(k,1856) = lu(k,1856) - lu(k,1048) * lu(k,1817) + lu(k,1857) = lu(k,1857) - lu(k,1049) * lu(k,1817) + lu(k,1862) = lu(k,1862) - lu(k,1050) * lu(k,1817) + lu(k,1864) = lu(k,1864) - lu(k,1051) * lu(k,1817) + lu(k,1866) = lu(k,1866) - lu(k,1052) * lu(k,1817) + lu(k,1867) = lu(k,1867) - lu(k,1053) * lu(k,1817) + lu(k,2001) = lu(k,2001) - lu(k,1045) * lu(k,1990) + lu(k,2006) = lu(k,2006) - lu(k,1046) * lu(k,1990) + lu(k,2007) = lu(k,2007) - lu(k,1047) * lu(k,1990) + lu(k,2009) = lu(k,2009) - lu(k,1048) * lu(k,1990) + lu(k,2010) = lu(k,2010) - lu(k,1049) * lu(k,1990) + lu(k,2015) = - lu(k,1050) * lu(k,1990) + lu(k,2017) = lu(k,2017) - lu(k,1051) * lu(k,1990) + lu(k,2019) = lu(k,2019) - lu(k,1052) * lu(k,1990) + lu(k,2020) = lu(k,2020) - lu(k,1053) * lu(k,1990) + lu(k,2044) = lu(k,2044) - lu(k,1045) * lu(k,2039) + lu(k,2049) = lu(k,2049) - lu(k,1046) * lu(k,2039) + lu(k,2050) = lu(k,2050) - lu(k,1047) * lu(k,2039) + lu(k,2052) = lu(k,2052) - lu(k,1048) * lu(k,2039) + lu(k,2053) = lu(k,2053) - lu(k,1049) * lu(k,2039) + lu(k,2058) = lu(k,2058) - lu(k,1050) * lu(k,2039) + lu(k,2060) = lu(k,2060) - lu(k,1051) * lu(k,2039) + lu(k,2062) = lu(k,2062) - lu(k,1052) * lu(k,2039) + lu(k,2063) = lu(k,2063) - lu(k,1053) * lu(k,2039) + lu(k,2481) = lu(k,2481) - lu(k,1045) * lu(k,2479) + lu(k,2485) = lu(k,2485) - lu(k,1046) * lu(k,2479) + lu(k,2486) = lu(k,2486) - lu(k,1047) * lu(k,2479) + lu(k,2488) = lu(k,2488) - lu(k,1048) * lu(k,2479) + lu(k,2489) = lu(k,2489) - lu(k,1049) * lu(k,2479) + lu(k,2494) = - lu(k,1050) * lu(k,2479) + lu(k,2496) = - lu(k,1051) * lu(k,2479) + lu(k,2498) = lu(k,2498) - lu(k,1052) * lu(k,2479) + lu(k,2499) = lu(k,2499) - lu(k,1053) * lu(k,2479) + lu(k,1063) = 1._r8 / lu(k,1063) + lu(k,1064) = lu(k,1064) * lu(k,1063) + lu(k,1065) = lu(k,1065) * lu(k,1063) + lu(k,1066) = lu(k,1066) * lu(k,1063) + lu(k,1067) = lu(k,1067) * lu(k,1063) + lu(k,1068) = lu(k,1068) * lu(k,1063) + lu(k,1069) = lu(k,1069) * lu(k,1063) + lu(k,1070) = lu(k,1070) * lu(k,1063) + lu(k,1071) = lu(k,1071) * lu(k,1063) + lu(k,1072) = lu(k,1072) * lu(k,1063) + lu(k,1073) = lu(k,1073) * lu(k,1063) + lu(k,1074) = lu(k,1074) * lu(k,1063) + lu(k,1075) = lu(k,1075) * lu(k,1063) + lu(k,1076) = lu(k,1076) * lu(k,1063) + lu(k,1077) = lu(k,1077) * lu(k,1063) + lu(k,1078) = lu(k,1078) * lu(k,1063) + lu(k,1079) = lu(k,1079) * lu(k,1063) + lu(k,1080) = lu(k,1080) * lu(k,1063) + lu(k,1081) = lu(k,1081) * lu(k,1063) + lu(k,1819) = lu(k,1819) - lu(k,1064) * lu(k,1818) + lu(k,1820) = lu(k,1820) - lu(k,1065) * lu(k,1818) + lu(k,1821) = lu(k,1821) - lu(k,1066) * lu(k,1818) + lu(k,1822) = lu(k,1822) - lu(k,1067) * lu(k,1818) + lu(k,1823) = lu(k,1823) - lu(k,1068) * lu(k,1818) + lu(k,1825) = lu(k,1825) - lu(k,1069) * lu(k,1818) + lu(k,1826) = lu(k,1826) - lu(k,1070) * lu(k,1818) + lu(k,1829) = lu(k,1829) - lu(k,1071) * lu(k,1818) + lu(k,1834) = lu(k,1834) - lu(k,1072) * lu(k,1818) + lu(k,1838) = lu(k,1838) - lu(k,1073) * lu(k,1818) + lu(k,1844) = lu(k,1844) - lu(k,1074) * lu(k,1818) + lu(k,1845) = lu(k,1845) - lu(k,1075) * lu(k,1818) + lu(k,1854) = lu(k,1854) - lu(k,1076) * lu(k,1818) + lu(k,1858) = lu(k,1858) - lu(k,1077) * lu(k,1818) + lu(k,1863) = lu(k,1863) - lu(k,1078) * lu(k,1818) + lu(k,1864) = lu(k,1864) - lu(k,1079) * lu(k,1818) + lu(k,1865) = lu(k,1865) - lu(k,1080) * lu(k,1818) + lu(k,1867) = lu(k,1867) - lu(k,1081) * lu(k,1818) + lu(k,2084) = lu(k,2084) - lu(k,1064) * lu(k,2083) + lu(k,2085) = lu(k,2085) - lu(k,1065) * lu(k,2083) + lu(k,2086) = lu(k,2086) - lu(k,1066) * lu(k,2083) + lu(k,2087) = lu(k,2087) - lu(k,1067) * lu(k,2083) + lu(k,2088) = lu(k,2088) - lu(k,1068) * lu(k,2083) + lu(k,2089) = lu(k,2089) - lu(k,1069) * lu(k,2083) + lu(k,2090) = lu(k,2090) - lu(k,1070) * lu(k,2083) + lu(k,2093) = lu(k,2093) - lu(k,1071) * lu(k,2083) + lu(k,2097) = lu(k,2097) - lu(k,1072) * lu(k,2083) + lu(k,2100) = lu(k,2100) - lu(k,1073) * lu(k,2083) + lu(k,2106) = lu(k,2106) - lu(k,1074) * lu(k,2083) + lu(k,2107) = lu(k,2107) - lu(k,1075) * lu(k,2083) + lu(k,2114) = lu(k,2114) - lu(k,1076) * lu(k,2083) + lu(k,2118) = lu(k,2118) - lu(k,1077) * lu(k,2083) + lu(k,2123) = lu(k,2123) - lu(k,1078) * lu(k,2083) + lu(k,2124) = lu(k,2124) - lu(k,1079) * lu(k,2083) + lu(k,2125) = lu(k,2125) - lu(k,1080) * lu(k,2083) + lu(k,2127) = lu(k,2127) - lu(k,1081) * lu(k,2083) + lu(k,2400) = lu(k,2400) - lu(k,1064) * lu(k,2399) + lu(k,2401) = lu(k,2401) - lu(k,1065) * lu(k,2399) + lu(k,2402) = lu(k,2402) - lu(k,1066) * lu(k,2399) + lu(k,2403) = lu(k,2403) - lu(k,1067) * lu(k,2399) + lu(k,2404) = lu(k,2404) - lu(k,1068) * lu(k,2399) + lu(k,2406) = lu(k,2406) - lu(k,1069) * lu(k,2399) + lu(k,2407) = lu(k,2407) - lu(k,1070) * lu(k,2399) + lu(k,2410) = lu(k,2410) - lu(k,1071) * lu(k,2399) + lu(k,2415) = lu(k,2415) - lu(k,1072) * lu(k,2399) + lu(k,2419) = lu(k,2419) - lu(k,1073) * lu(k,2399) + lu(k,2425) = lu(k,2425) - lu(k,1074) * lu(k,2399) + lu(k,2426) = lu(k,2426) - lu(k,1075) * lu(k,2399) + lu(k,2433) = lu(k,2433) - lu(k,1076) * lu(k,2399) + lu(k,2437) = lu(k,2437) - lu(k,1077) * lu(k,2399) + lu(k,2442) = lu(k,2442) - lu(k,1078) * lu(k,2399) + lu(k,2443) = lu(k,2443) - lu(k,1079) * lu(k,2399) + lu(k,2444) = lu(k,2444) - lu(k,1080) * lu(k,2399) + lu(k,2446) = lu(k,2446) - lu(k,1081) * lu(k,2399) + lu(k,1087) = 1._r8 / lu(k,1087) + lu(k,1088) = lu(k,1088) * lu(k,1087) + lu(k,1089) = lu(k,1089) * lu(k,1087) + lu(k,1090) = lu(k,1090) * lu(k,1087) + lu(k,1091) = lu(k,1091) * lu(k,1087) + lu(k,1092) = lu(k,1092) * lu(k,1087) + lu(k,1093) = lu(k,1093) * lu(k,1087) + lu(k,1094) = lu(k,1094) * lu(k,1087) + lu(k,1095) = lu(k,1095) * lu(k,1087) + lu(k,1096) = lu(k,1096) * lu(k,1087) + lu(k,1097) = lu(k,1097) * lu(k,1087) + lu(k,1823) = lu(k,1823) - lu(k,1088) * lu(k,1819) + lu(k,1828) = lu(k,1828) - lu(k,1089) * lu(k,1819) + lu(k,1844) = lu(k,1844) - lu(k,1090) * lu(k,1819) + lu(k,1850) = lu(k,1850) - lu(k,1091) * lu(k,1819) + lu(k,1853) = lu(k,1853) - lu(k,1092) * lu(k,1819) + lu(k,1854) = lu(k,1854) - lu(k,1093) * lu(k,1819) + lu(k,1855) = lu(k,1855) - lu(k,1094) * lu(k,1819) + lu(k,1860) = lu(k,1860) - lu(k,1095) * lu(k,1819) + lu(k,1863) = lu(k,1863) - lu(k,1096) * lu(k,1819) + lu(k,1865) = lu(k,1865) - lu(k,1097) * lu(k,1819) + lu(k,1934) = lu(k,1934) - lu(k,1088) * lu(k,1930) + lu(k,1938) = lu(k,1938) - lu(k,1089) * lu(k,1930) + lu(k,1954) = lu(k,1954) - lu(k,1090) * lu(k,1930) + lu(k,1957) = lu(k,1957) - lu(k,1091) * lu(k,1930) + lu(k,1960) = lu(k,1960) - lu(k,1092) * lu(k,1930) + lu(k,1961) = lu(k,1961) - lu(k,1093) * lu(k,1930) + lu(k,1962) = lu(k,1962) - lu(k,1094) * lu(k,1930) + lu(k,1967) = lu(k,1967) - lu(k,1095) * lu(k,1930) + lu(k,1970) = lu(k,1970) - lu(k,1096) * lu(k,1930) + lu(k,1972) = lu(k,1972) - lu(k,1097) * lu(k,1930) + lu(k,2088) = lu(k,2088) - lu(k,1088) * lu(k,2084) + lu(k,2092) = lu(k,2092) - lu(k,1089) * lu(k,2084) + lu(k,2106) = lu(k,2106) - lu(k,1090) * lu(k,2084) + lu(k,2110) = lu(k,2110) - lu(k,1091) * lu(k,2084) + lu(k,2113) = lu(k,2113) - lu(k,1092) * lu(k,2084) + lu(k,2114) = lu(k,2114) - lu(k,1093) * lu(k,2084) + lu(k,2115) = lu(k,2115) - lu(k,1094) * lu(k,2084) + lu(k,2120) = lu(k,2120) - lu(k,1095) * lu(k,2084) + lu(k,2123) = lu(k,2123) - lu(k,1096) * lu(k,2084) + lu(k,2125) = lu(k,2125) - lu(k,1097) * lu(k,2084) + lu(k,2346) = lu(k,2346) - lu(k,1088) * lu(k,2342) + lu(k,2349) = lu(k,2349) - lu(k,1089) * lu(k,2342) + lu(k,2364) = lu(k,2364) - lu(k,1090) * lu(k,2342) + lu(k,2369) = lu(k,2369) - lu(k,1091) * lu(k,2342) + lu(k,2372) = lu(k,2372) - lu(k,1092) * lu(k,2342) + lu(k,2373) = lu(k,2373) - lu(k,1093) * lu(k,2342) + lu(k,2374) = lu(k,2374) - lu(k,1094) * lu(k,2342) + lu(k,2379) = lu(k,2379) - lu(k,1095) * lu(k,2342) + lu(k,2382) = lu(k,2382) - lu(k,1096) * lu(k,2342) + lu(k,2384) = lu(k,2384) - lu(k,1097) * lu(k,2342) + lu(k,2404) = lu(k,2404) - lu(k,1088) * lu(k,2400) + lu(k,2409) = lu(k,2409) - lu(k,1089) * lu(k,2400) + lu(k,2425) = lu(k,2425) - lu(k,1090) * lu(k,2400) + lu(k,2429) = lu(k,2429) - lu(k,1091) * lu(k,2400) + lu(k,2432) = lu(k,2432) - lu(k,1092) * lu(k,2400) + lu(k,2433) = lu(k,2433) - lu(k,1093) * lu(k,2400) + lu(k,2434) = lu(k,2434) - lu(k,1094) * lu(k,2400) + lu(k,2439) = lu(k,2439) - lu(k,1095) * lu(k,2400) + lu(k,2442) = lu(k,2442) - lu(k,1096) * lu(k,2400) + lu(k,2444) = lu(k,2444) - lu(k,1097) * lu(k,2400) + lu(k,1099) = 1._r8 / lu(k,1099) + lu(k,1100) = lu(k,1100) * lu(k,1099) + lu(k,1101) = lu(k,1101) * lu(k,1099) + lu(k,1102) = lu(k,1102) * lu(k,1099) + lu(k,1103) = lu(k,1103) * lu(k,1099) + lu(k,1136) = lu(k,1136) - lu(k,1100) * lu(k,1134) + lu(k,1139) = - lu(k,1101) * lu(k,1134) + lu(k,1141) = lu(k,1141) - lu(k,1102) * lu(k,1134) + lu(k,1145) = lu(k,1145) - lu(k,1103) * lu(k,1134) + lu(k,1210) = lu(k,1210) - lu(k,1100) * lu(k,1209) + lu(k,1212) = lu(k,1212) - lu(k,1101) * lu(k,1209) + lu(k,1213) = lu(k,1213) - lu(k,1102) * lu(k,1209) + lu(k,1214) = lu(k,1214) - lu(k,1103) * lu(k,1209) + lu(k,1275) = lu(k,1275) - lu(k,1100) * lu(k,1274) + lu(k,1281) = lu(k,1281) - lu(k,1101) * lu(k,1274) + lu(k,1283) = lu(k,1283) - lu(k,1102) * lu(k,1274) + lu(k,1286) = lu(k,1286) - lu(k,1103) * lu(k,1274) + lu(k,1369) = lu(k,1369) - lu(k,1100) * lu(k,1368) + lu(k,1382) = - lu(k,1101) * lu(k,1368) + lu(k,1384) = lu(k,1384) - lu(k,1102) * lu(k,1368) + lu(k,1389) = lu(k,1389) - lu(k,1103) * lu(k,1368) + lu(k,1461) = lu(k,1461) - lu(k,1100) * lu(k,1459) + lu(k,1474) = lu(k,1474) - lu(k,1101) * lu(k,1459) + lu(k,1478) = lu(k,1478) - lu(k,1102) * lu(k,1459) + lu(k,1483) = lu(k,1483) - lu(k,1103) * lu(k,1459) + lu(k,1668) = lu(k,1668) - lu(k,1100) * lu(k,1667) + lu(k,1673) = lu(k,1673) - lu(k,1101) * lu(k,1667) + lu(k,1681) = lu(k,1681) - lu(k,1102) * lu(k,1667) + lu(k,1690) = lu(k,1690) - lu(k,1103) * lu(k,1667) + lu(k,1829) = lu(k,1829) - lu(k,1100) * lu(k,1820) + lu(k,1845) = lu(k,1845) - lu(k,1101) * lu(k,1820) + lu(k,1854) = lu(k,1854) - lu(k,1102) * lu(k,1820) + lu(k,1863) = lu(k,1863) - lu(k,1103) * lu(k,1820) + lu(k,1939) = lu(k,1939) - lu(k,1100) * lu(k,1931) + lu(k,1955) = lu(k,1955) - lu(k,1101) * lu(k,1931) + lu(k,1961) = lu(k,1961) - lu(k,1102) * lu(k,1931) + lu(k,1970) = lu(k,1970) - lu(k,1103) * lu(k,1931) + lu(k,1994) = lu(k,1994) - lu(k,1100) * lu(k,1991) + lu(k,1999) = lu(k,1999) - lu(k,1101) * lu(k,1991) + lu(k,2007) = lu(k,2007) - lu(k,1102) * lu(k,1991) + lu(k,2016) = lu(k,2016) - lu(k,1103) * lu(k,1991) + lu(k,2093) = lu(k,2093) - lu(k,1100) * lu(k,2085) + lu(k,2107) = lu(k,2107) - lu(k,1101) * lu(k,2085) + lu(k,2114) = lu(k,2114) - lu(k,1102) * lu(k,2085) + lu(k,2123) = lu(k,2123) - lu(k,1103) * lu(k,2085) + lu(k,2167) = lu(k,2167) - lu(k,1100) * lu(k,2159) + lu(k,2182) = lu(k,2182) - lu(k,1101) * lu(k,2159) + lu(k,2187) = lu(k,2187) - lu(k,1102) * lu(k,2159) + lu(k,2196) = lu(k,2196) - lu(k,1103) * lu(k,2159) + lu(k,2350) = lu(k,2350) - lu(k,1100) * lu(k,2343) + lu(k,2365) = lu(k,2365) - lu(k,1101) * lu(k,2343) + lu(k,2373) = lu(k,2373) - lu(k,1102) * lu(k,2343) + lu(k,2382) = lu(k,2382) - lu(k,1103) * lu(k,2343) + lu(k,2410) = lu(k,2410) - lu(k,1100) * lu(k,2401) + lu(k,2426) = lu(k,2426) - lu(k,1101) * lu(k,2401) + lu(k,2433) = lu(k,2433) - lu(k,1102) * lu(k,2401) + lu(k,2442) = lu(k,2442) - lu(k,1103) * lu(k,2401) end do end subroutine lu_fac22 subroutine lu_fac23( avec_len, lu ) @@ -3967,261 +3971,261 @@ subroutine lu_fac23( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1106) = 1._r8 / lu(k,1106) - lu(k,1107) = lu(k,1107) * lu(k,1106) - lu(k,1108) = lu(k,1108) * lu(k,1106) - lu(k,1109) = lu(k,1109) * lu(k,1106) - lu(k,1110) = lu(k,1110) * lu(k,1106) - lu(k,1111) = lu(k,1111) * lu(k,1106) - lu(k,1112) = lu(k,1112) * lu(k,1106) - lu(k,1113) = lu(k,1113) * lu(k,1106) - lu(k,1114) = lu(k,1114) * lu(k,1106) - lu(k,1115) = lu(k,1115) * lu(k,1106) - lu(k,1760) = lu(k,1760) - lu(k,1107) * lu(k,1759) - lu(k,1761) = lu(k,1761) - lu(k,1108) * lu(k,1759) - lu(k,1787) = lu(k,1787) - lu(k,1109) * lu(k,1759) - lu(k,1788) = lu(k,1788) - lu(k,1110) * lu(k,1759) - lu(k,1790) = lu(k,1790) - lu(k,1111) * lu(k,1759) - lu(k,1793) = lu(k,1793) - lu(k,1112) * lu(k,1759) - lu(k,1796) = lu(k,1796) - lu(k,1113) * lu(k,1759) - lu(k,1797) = lu(k,1797) - lu(k,1114) * lu(k,1759) - lu(k,1800) = lu(k,1800) - lu(k,1115) * lu(k,1759) - lu(k,1972) = lu(k,1972) - lu(k,1107) * lu(k,1971) - lu(k,1973) = lu(k,1973) - lu(k,1108) * lu(k,1971) - lu(k,2003) = lu(k,2003) - lu(k,1109) * lu(k,1971) - lu(k,2004) = lu(k,2004) - lu(k,1110) * lu(k,1971) - lu(k,2006) = lu(k,2006) - lu(k,1111) * lu(k,1971) - lu(k,2009) = lu(k,2009) - lu(k,1112) * lu(k,1971) - lu(k,2012) = lu(k,2012) - lu(k,1113) * lu(k,1971) - lu(k,2013) = lu(k,2013) - lu(k,1114) * lu(k,1971) - lu(k,2016) = lu(k,2016) - lu(k,1115) * lu(k,1971) - lu(k,2034) = lu(k,2034) - lu(k,1107) * lu(k,2033) - lu(k,2035) = lu(k,2035) - lu(k,1108) * lu(k,2033) - lu(k,2063) = lu(k,2063) - lu(k,1109) * lu(k,2033) - lu(k,2064) = lu(k,2064) - lu(k,1110) * lu(k,2033) - lu(k,2066) = lu(k,2066) - lu(k,1111) * lu(k,2033) - lu(k,2069) = lu(k,2069) - lu(k,1112) * lu(k,2033) - lu(k,2072) = lu(k,2072) - lu(k,1113) * lu(k,2033) - lu(k,2073) = lu(k,2073) - lu(k,1114) * lu(k,2033) - lu(k,2076) = lu(k,2076) - lu(k,1115) * lu(k,2033) - lu(k,2181) = lu(k,2181) - lu(k,1107) * lu(k,2180) - lu(k,2182) = lu(k,2182) - lu(k,1108) * lu(k,2180) - lu(k,2208) = lu(k,2208) - lu(k,1109) * lu(k,2180) - lu(k,2209) = lu(k,2209) - lu(k,1110) * lu(k,2180) - lu(k,2211) = lu(k,2211) - lu(k,1111) * lu(k,2180) - lu(k,2214) = lu(k,2214) - lu(k,1112) * lu(k,2180) - lu(k,2217) = lu(k,2217) - lu(k,1113) * lu(k,2180) - lu(k,2218) = lu(k,2218) - lu(k,1114) * lu(k,2180) - lu(k,2221) = lu(k,2221) - lu(k,1115) * lu(k,2180) - lu(k,2325) = lu(k,2325) - lu(k,1107) * lu(k,2324) - lu(k,2326) = lu(k,2326) - lu(k,1108) * lu(k,2324) - lu(k,2350) = lu(k,2350) - lu(k,1109) * lu(k,2324) - lu(k,2351) = lu(k,2351) - lu(k,1110) * lu(k,2324) - lu(k,2353) = lu(k,2353) - lu(k,1111) * lu(k,2324) - lu(k,2356) = lu(k,2356) - lu(k,1112) * lu(k,2324) - lu(k,2359) = lu(k,2359) - lu(k,1113) * lu(k,2324) - lu(k,2360) = lu(k,2360) - lu(k,1114) * lu(k,2324) - lu(k,2363) = lu(k,2363) - lu(k,1115) * lu(k,2324) - lu(k,2388) = lu(k,2388) - lu(k,1107) * lu(k,2387) - lu(k,2389) = lu(k,2389) - lu(k,1108) * lu(k,2387) - lu(k,2414) = lu(k,2414) - lu(k,1109) * lu(k,2387) - lu(k,2415) = lu(k,2415) - lu(k,1110) * lu(k,2387) - lu(k,2417) = lu(k,2417) - lu(k,1111) * lu(k,2387) - lu(k,2420) = lu(k,2420) - lu(k,1112) * lu(k,2387) - lu(k,2423) = - lu(k,1113) * lu(k,2387) - lu(k,2424) = lu(k,2424) - lu(k,1114) * lu(k,2387) - lu(k,2427) = lu(k,2427) - lu(k,1115) * lu(k,2387) - lu(k,1116) = 1._r8 / lu(k,1116) - lu(k,1117) = lu(k,1117) * lu(k,1116) - lu(k,1118) = lu(k,1118) * lu(k,1116) - lu(k,1119) = lu(k,1119) * lu(k,1116) - lu(k,1120) = lu(k,1120) * lu(k,1116) - lu(k,1121) = lu(k,1121) * lu(k,1116) - lu(k,1122) = lu(k,1122) * lu(k,1116) - lu(k,1123) = lu(k,1123) * lu(k,1116) - lu(k,1150) = lu(k,1150) - lu(k,1117) * lu(k,1149) - lu(k,1151) = - lu(k,1118) * lu(k,1149) - lu(k,1152) = - lu(k,1119) * lu(k,1149) - lu(k,1153) = - lu(k,1120) * lu(k,1149) - lu(k,1156) = lu(k,1156) - lu(k,1121) * lu(k,1149) - lu(k,1157) = lu(k,1157) - lu(k,1122) * lu(k,1149) - lu(k,1158) = lu(k,1158) - lu(k,1123) * lu(k,1149) - lu(k,1763) = lu(k,1763) - lu(k,1117) * lu(k,1760) - lu(k,1764) = lu(k,1764) - lu(k,1118) * lu(k,1760) - lu(k,1766) = lu(k,1766) - lu(k,1119) * lu(k,1760) - lu(k,1768) = lu(k,1768) - lu(k,1120) * lu(k,1760) - lu(k,1790) = lu(k,1790) - lu(k,1121) * lu(k,1760) - lu(k,1791) = lu(k,1791) - lu(k,1122) * lu(k,1760) - lu(k,1793) = lu(k,1793) - lu(k,1123) * lu(k,1760) - lu(k,1975) = lu(k,1975) - lu(k,1117) * lu(k,1972) - lu(k,1976) = lu(k,1976) - lu(k,1118) * lu(k,1972) - lu(k,1979) = lu(k,1979) - lu(k,1119) * lu(k,1972) - lu(k,1981) = lu(k,1981) - lu(k,1120) * lu(k,1972) - lu(k,2006) = lu(k,2006) - lu(k,1121) * lu(k,1972) - lu(k,2007) = lu(k,2007) - lu(k,1122) * lu(k,1972) - lu(k,2009) = lu(k,2009) - lu(k,1123) * lu(k,1972) - lu(k,2037) = lu(k,2037) - lu(k,1117) * lu(k,2034) - lu(k,2038) = lu(k,2038) - lu(k,1118) * lu(k,2034) - lu(k,2041) = lu(k,2041) - lu(k,1119) * lu(k,2034) - lu(k,2043) = lu(k,2043) - lu(k,1120) * lu(k,2034) - lu(k,2066) = lu(k,2066) - lu(k,1121) * lu(k,2034) - lu(k,2067) = lu(k,2067) - lu(k,1122) * lu(k,2034) - lu(k,2069) = lu(k,2069) - lu(k,1123) * lu(k,2034) - lu(k,2183) = lu(k,2183) - lu(k,1117) * lu(k,2181) - lu(k,2184) = lu(k,2184) - lu(k,1118) * lu(k,2181) - lu(k,2186) = lu(k,2186) - lu(k,1119) * lu(k,2181) - lu(k,2188) = lu(k,2188) - lu(k,1120) * lu(k,2181) - lu(k,2211) = lu(k,2211) - lu(k,1121) * lu(k,2181) - lu(k,2212) = lu(k,2212) - lu(k,1122) * lu(k,2181) - lu(k,2214) = lu(k,2214) - lu(k,1123) * lu(k,2181) - lu(k,2328) = lu(k,2328) - lu(k,1117) * lu(k,2325) - lu(k,2329) = lu(k,2329) - lu(k,1118) * lu(k,2325) - lu(k,2331) = lu(k,2331) - lu(k,1119) * lu(k,2325) - lu(k,2333) = lu(k,2333) - lu(k,1120) * lu(k,2325) - lu(k,2353) = lu(k,2353) - lu(k,1121) * lu(k,2325) - lu(k,2354) = - lu(k,1122) * lu(k,2325) - lu(k,2356) = lu(k,2356) - lu(k,1123) * lu(k,2325) - lu(k,2390) = lu(k,2390) - lu(k,1117) * lu(k,2388) - lu(k,2391) = lu(k,2391) - lu(k,1118) * lu(k,2388) - lu(k,2394) = lu(k,2394) - lu(k,1119) * lu(k,2388) - lu(k,2396) = - lu(k,1120) * lu(k,2388) - lu(k,2417) = lu(k,2417) - lu(k,1121) * lu(k,2388) - lu(k,2418) = lu(k,2418) - lu(k,1122) * lu(k,2388) - lu(k,2420) = lu(k,2420) - lu(k,1123) * lu(k,2388) - lu(k,1124) = 1._r8 / lu(k,1124) - lu(k,1125) = lu(k,1125) * lu(k,1124) - lu(k,1126) = lu(k,1126) * lu(k,1124) - lu(k,1127) = lu(k,1127) * lu(k,1124) - lu(k,1128) = lu(k,1128) * lu(k,1124) - lu(k,1129) = lu(k,1129) * lu(k,1124) - lu(k,1165) = lu(k,1165) - lu(k,1125) * lu(k,1162) - lu(k,1166) = lu(k,1166) - lu(k,1126) * lu(k,1162) - lu(k,1168) = lu(k,1168) - lu(k,1127) * lu(k,1162) - lu(k,1170) = - lu(k,1128) * lu(k,1162) - lu(k,1172) = - lu(k,1129) * lu(k,1162) - lu(k,1223) = - lu(k,1125) * lu(k,1218) - lu(k,1224) = - lu(k,1126) * lu(k,1218) - lu(k,1228) = lu(k,1228) - lu(k,1127) * lu(k,1218) - lu(k,1231) = lu(k,1231) - lu(k,1128) * lu(k,1218) - lu(k,1233) = - lu(k,1129) * lu(k,1218) - lu(k,1241) = - lu(k,1125) * lu(k,1235) - lu(k,1242) = lu(k,1242) - lu(k,1126) * lu(k,1235) - lu(k,1245) = lu(k,1245) - lu(k,1127) * lu(k,1235) - lu(k,1249) = - lu(k,1128) * lu(k,1235) - lu(k,1251) = - lu(k,1129) * lu(k,1235) - lu(k,1771) = lu(k,1771) - lu(k,1125) * lu(k,1761) - lu(k,1781) = lu(k,1781) - lu(k,1126) * lu(k,1761) - lu(k,1790) = lu(k,1790) - lu(k,1127) * lu(k,1761) - lu(k,1797) = lu(k,1797) - lu(k,1128) * lu(k,1761) - lu(k,1801) = lu(k,1801) - lu(k,1129) * lu(k,1761) - lu(k,1984) = lu(k,1984) - lu(k,1125) * lu(k,1973) - lu(k,1994) = lu(k,1994) - lu(k,1126) * lu(k,1973) - lu(k,2006) = lu(k,2006) - lu(k,1127) * lu(k,1973) - lu(k,2013) = lu(k,2013) - lu(k,1128) * lu(k,1973) - lu(k,2017) = lu(k,2017) - lu(k,1129) * lu(k,1973) - lu(k,2046) = lu(k,2046) - lu(k,1125) * lu(k,2035) - lu(k,2056) = lu(k,2056) - lu(k,1126) * lu(k,2035) - lu(k,2066) = lu(k,2066) - lu(k,1127) * lu(k,2035) - lu(k,2073) = lu(k,2073) - lu(k,1128) * lu(k,2035) - lu(k,2077) = lu(k,2077) - lu(k,1129) * lu(k,2035) - lu(k,2190) = lu(k,2190) - lu(k,1125) * lu(k,2182) - lu(k,2200) = lu(k,2200) - lu(k,1126) * lu(k,2182) - lu(k,2211) = lu(k,2211) - lu(k,1127) * lu(k,2182) - lu(k,2218) = lu(k,2218) - lu(k,1128) * lu(k,2182) - lu(k,2222) = lu(k,2222) - lu(k,1129) * lu(k,2182) - lu(k,2244) = - lu(k,1125) * lu(k,2240) - lu(k,2246) = - lu(k,1126) * lu(k,2240) - lu(k,2257) = lu(k,2257) - lu(k,1127) * lu(k,2240) - lu(k,2264) = lu(k,2264) - lu(k,1128) * lu(k,2240) - lu(k,2268) = lu(k,2268) - lu(k,1129) * lu(k,2240) - lu(k,2335) = lu(k,2335) - lu(k,1125) * lu(k,2326) - lu(k,2345) = lu(k,2345) - lu(k,1126) * lu(k,2326) - lu(k,2353) = lu(k,2353) - lu(k,1127) * lu(k,2326) - lu(k,2360) = lu(k,2360) - lu(k,1128) * lu(k,2326) - lu(k,2364) = lu(k,2364) - lu(k,1129) * lu(k,2326) - lu(k,2398) = lu(k,2398) - lu(k,1125) * lu(k,2389) - lu(k,2407) = lu(k,2407) - lu(k,1126) * lu(k,2389) - lu(k,2417) = lu(k,2417) - lu(k,1127) * lu(k,2389) - lu(k,2424) = lu(k,2424) - lu(k,1128) * lu(k,2389) - lu(k,2428) = lu(k,2428) - lu(k,1129) * lu(k,2389) - lu(k,1134) = 1._r8 / lu(k,1134) - lu(k,1135) = lu(k,1135) * lu(k,1134) - lu(k,1136) = lu(k,1136) * lu(k,1134) - lu(k,1137) = lu(k,1137) * lu(k,1134) - lu(k,1138) = lu(k,1138) * lu(k,1134) - lu(k,1139) = lu(k,1139) * lu(k,1134) - lu(k,1140) = lu(k,1140) * lu(k,1134) - lu(k,1141) = lu(k,1141) * lu(k,1134) - lu(k,1142) = lu(k,1142) * lu(k,1134) - lu(k,1143) = lu(k,1143) * lu(k,1134) - lu(k,1144) = lu(k,1144) * lu(k,1134) - lu(k,1145) = lu(k,1145) * lu(k,1134) - lu(k,1294) = - lu(k,1135) * lu(k,1293) - lu(k,1299) = lu(k,1299) - lu(k,1136) * lu(k,1293) - lu(k,1301) = lu(k,1301) - lu(k,1137) * lu(k,1293) - lu(k,1302) = - lu(k,1138) * lu(k,1293) - lu(k,1303) = lu(k,1303) - lu(k,1139) * lu(k,1293) - lu(k,1304) = lu(k,1304) - lu(k,1140) * lu(k,1293) - lu(k,1305) = lu(k,1305) - lu(k,1141) * lu(k,1293) - lu(k,1307) = lu(k,1307) - lu(k,1142) * lu(k,1293) - lu(k,1308) = lu(k,1308) - lu(k,1143) * lu(k,1293) - lu(k,1309) = lu(k,1309) - lu(k,1144) * lu(k,1293) - lu(k,1310) = lu(k,1310) - lu(k,1145) * lu(k,1293) - lu(k,1460) = lu(k,1460) - lu(k,1135) * lu(k,1459) - lu(k,1466) = lu(k,1466) - lu(k,1136) * lu(k,1459) - lu(k,1472) = lu(k,1472) - lu(k,1137) * lu(k,1459) - lu(k,1473) = lu(k,1473) - lu(k,1138) * lu(k,1459) - lu(k,1475) = lu(k,1475) - lu(k,1139) * lu(k,1459) - lu(k,1476) = lu(k,1476) - lu(k,1140) * lu(k,1459) - lu(k,1477) = lu(k,1477) - lu(k,1141) * lu(k,1459) - lu(k,1480) = lu(k,1480) - lu(k,1142) * lu(k,1459) - lu(k,1481) = - lu(k,1143) * lu(k,1459) - lu(k,1482) = lu(k,1482) - lu(k,1144) * lu(k,1459) - lu(k,1484) = lu(k,1484) - lu(k,1145) * lu(k,1459) - lu(k,1766) = lu(k,1766) - lu(k,1135) * lu(k,1762) - lu(k,1775) = lu(k,1775) - lu(k,1136) * lu(k,1762) - lu(k,1781) = lu(k,1781) - lu(k,1137) * lu(k,1762) - lu(k,1782) = lu(k,1782) - lu(k,1138) * lu(k,1762) - lu(k,1787) = lu(k,1787) - lu(k,1139) * lu(k,1762) - lu(k,1788) = lu(k,1788) - lu(k,1140) * lu(k,1762) - lu(k,1790) = lu(k,1790) - lu(k,1141) * lu(k,1762) - lu(k,1793) = lu(k,1793) - lu(k,1142) * lu(k,1762) - lu(k,1796) = lu(k,1796) - lu(k,1143) * lu(k,1762) - lu(k,1797) = lu(k,1797) - lu(k,1144) * lu(k,1762) - lu(k,1800) = lu(k,1800) - lu(k,1145) * lu(k,1762) - lu(k,1979) = lu(k,1979) - lu(k,1135) * lu(k,1974) - lu(k,1988) = lu(k,1988) - lu(k,1136) * lu(k,1974) - lu(k,1994) = lu(k,1994) - lu(k,1137) * lu(k,1974) - lu(k,1995) = lu(k,1995) - lu(k,1138) * lu(k,1974) - lu(k,2003) = lu(k,2003) - lu(k,1139) * lu(k,1974) - lu(k,2004) = lu(k,2004) - lu(k,1140) * lu(k,1974) - lu(k,2006) = lu(k,2006) - lu(k,1141) * lu(k,1974) - lu(k,2009) = lu(k,2009) - lu(k,1142) * lu(k,1974) - lu(k,2012) = lu(k,2012) - lu(k,1143) * lu(k,1974) - lu(k,2013) = lu(k,2013) - lu(k,1144) * lu(k,1974) - lu(k,2016) = lu(k,2016) - lu(k,1145) * lu(k,1974) - lu(k,2041) = lu(k,2041) - lu(k,1135) * lu(k,2036) - lu(k,2050) = lu(k,2050) - lu(k,1136) * lu(k,2036) - lu(k,2056) = lu(k,2056) - lu(k,1137) * lu(k,2036) - lu(k,2057) = lu(k,2057) - lu(k,1138) * lu(k,2036) - lu(k,2063) = lu(k,2063) - lu(k,1139) * lu(k,2036) - lu(k,2064) = lu(k,2064) - lu(k,1140) * lu(k,2036) - lu(k,2066) = lu(k,2066) - lu(k,1141) * lu(k,2036) - lu(k,2069) = lu(k,2069) - lu(k,1142) * lu(k,2036) - lu(k,2072) = lu(k,2072) - lu(k,1143) * lu(k,2036) - lu(k,2073) = lu(k,2073) - lu(k,1144) * lu(k,2036) - lu(k,2076) = lu(k,2076) - lu(k,1145) * lu(k,2036) - lu(k,2331) = lu(k,2331) - lu(k,1135) * lu(k,2327) - lu(k,2339) = lu(k,2339) - lu(k,1136) * lu(k,2327) - lu(k,2345) = lu(k,2345) - lu(k,1137) * lu(k,2327) - lu(k,2346) = lu(k,2346) - lu(k,1138) * lu(k,2327) - lu(k,2350) = lu(k,2350) - lu(k,1139) * lu(k,2327) - lu(k,2351) = lu(k,2351) - lu(k,1140) * lu(k,2327) - lu(k,2353) = lu(k,2353) - lu(k,1141) * lu(k,2327) - lu(k,2356) = lu(k,2356) - lu(k,1142) * lu(k,2327) - lu(k,2359) = lu(k,2359) - lu(k,1143) * lu(k,2327) - lu(k,2360) = lu(k,2360) - lu(k,1144) * lu(k,2327) - lu(k,2363) = lu(k,2363) - lu(k,1145) * lu(k,2327) + lu(k,1107) = 1._r8 / lu(k,1107) + lu(k,1108) = lu(k,1108) * lu(k,1107) + lu(k,1109) = lu(k,1109) * lu(k,1107) + lu(k,1110) = lu(k,1110) * lu(k,1107) + lu(k,1111) = lu(k,1111) * lu(k,1107) + lu(k,1112) = lu(k,1112) * lu(k,1107) + lu(k,1113) = lu(k,1113) * lu(k,1107) + lu(k,1114) = lu(k,1114) * lu(k,1107) + lu(k,1115) = lu(k,1115) * lu(k,1107) + lu(k,1116) = lu(k,1116) * lu(k,1107) + lu(k,1822) = lu(k,1822) - lu(k,1108) * lu(k,1821) + lu(k,1823) = lu(k,1823) - lu(k,1109) * lu(k,1821) + lu(k,1853) = lu(k,1853) - lu(k,1110) * lu(k,1821) + lu(k,1854) = lu(k,1854) - lu(k,1111) * lu(k,1821) + lu(k,1855) = lu(k,1855) - lu(k,1112) * lu(k,1821) + lu(k,1860) = lu(k,1860) - lu(k,1113) * lu(k,1821) + lu(k,1862) = lu(k,1862) - lu(k,1114) * lu(k,1821) + lu(k,1863) = lu(k,1863) - lu(k,1115) * lu(k,1821) + lu(k,1865) = lu(k,1865) - lu(k,1116) * lu(k,1821) + lu(k,1933) = lu(k,1933) - lu(k,1108) * lu(k,1932) + lu(k,1934) = lu(k,1934) - lu(k,1109) * lu(k,1932) + lu(k,1960) = lu(k,1960) - lu(k,1110) * lu(k,1932) + lu(k,1961) = lu(k,1961) - lu(k,1111) * lu(k,1932) + lu(k,1962) = lu(k,1962) - lu(k,1112) * lu(k,1932) + lu(k,1967) = lu(k,1967) - lu(k,1113) * lu(k,1932) + lu(k,1969) = lu(k,1969) - lu(k,1114) * lu(k,1932) + lu(k,1970) = lu(k,1970) - lu(k,1115) * lu(k,1932) + lu(k,1972) = lu(k,1972) - lu(k,1116) * lu(k,1932) + lu(k,2087) = lu(k,2087) - lu(k,1108) * lu(k,2086) + lu(k,2088) = lu(k,2088) - lu(k,1109) * lu(k,2086) + lu(k,2113) = lu(k,2113) - lu(k,1110) * lu(k,2086) + lu(k,2114) = lu(k,2114) - lu(k,1111) * lu(k,2086) + lu(k,2115) = lu(k,2115) - lu(k,1112) * lu(k,2086) + lu(k,2120) = lu(k,2120) - lu(k,1113) * lu(k,2086) + lu(k,2122) = - lu(k,1114) * lu(k,2086) + lu(k,2123) = lu(k,2123) - lu(k,1115) * lu(k,2086) + lu(k,2125) = lu(k,2125) - lu(k,1116) * lu(k,2086) + lu(k,2161) = lu(k,2161) - lu(k,1108) * lu(k,2160) + lu(k,2162) = lu(k,2162) - lu(k,1109) * lu(k,2160) + lu(k,2186) = lu(k,2186) - lu(k,1110) * lu(k,2160) + lu(k,2187) = lu(k,2187) - lu(k,1111) * lu(k,2160) + lu(k,2188) = lu(k,2188) - lu(k,1112) * lu(k,2160) + lu(k,2193) = lu(k,2193) - lu(k,1113) * lu(k,2160) + lu(k,2195) = lu(k,2195) - lu(k,1114) * lu(k,2160) + lu(k,2196) = lu(k,2196) - lu(k,1115) * lu(k,2160) + lu(k,2198) = lu(k,2198) - lu(k,1116) * lu(k,2160) + lu(k,2345) = lu(k,2345) - lu(k,1108) * lu(k,2344) + lu(k,2346) = lu(k,2346) - lu(k,1109) * lu(k,2344) + lu(k,2372) = lu(k,2372) - lu(k,1110) * lu(k,2344) + lu(k,2373) = lu(k,2373) - lu(k,1111) * lu(k,2344) + lu(k,2374) = lu(k,2374) - lu(k,1112) * lu(k,2344) + lu(k,2379) = lu(k,2379) - lu(k,1113) * lu(k,2344) + lu(k,2381) = lu(k,2381) - lu(k,1114) * lu(k,2344) + lu(k,2382) = lu(k,2382) - lu(k,1115) * lu(k,2344) + lu(k,2384) = lu(k,2384) - lu(k,1116) * lu(k,2344) + lu(k,2403) = lu(k,2403) - lu(k,1108) * lu(k,2402) + lu(k,2404) = lu(k,2404) - lu(k,1109) * lu(k,2402) + lu(k,2432) = lu(k,2432) - lu(k,1110) * lu(k,2402) + lu(k,2433) = lu(k,2433) - lu(k,1111) * lu(k,2402) + lu(k,2434) = lu(k,2434) - lu(k,1112) * lu(k,2402) + lu(k,2439) = lu(k,2439) - lu(k,1113) * lu(k,2402) + lu(k,2441) = lu(k,2441) - lu(k,1114) * lu(k,2402) + lu(k,2442) = lu(k,2442) - lu(k,1115) * lu(k,2402) + lu(k,2444) = lu(k,2444) - lu(k,1116) * lu(k,2402) + lu(k,1117) = 1._r8 / lu(k,1117) + lu(k,1118) = lu(k,1118) * lu(k,1117) + lu(k,1119) = lu(k,1119) * lu(k,1117) + lu(k,1120) = lu(k,1120) * lu(k,1117) + lu(k,1121) = lu(k,1121) * lu(k,1117) + lu(k,1122) = lu(k,1122) * lu(k,1117) + lu(k,1123) = lu(k,1123) * lu(k,1117) + lu(k,1124) = lu(k,1124) * lu(k,1117) + lu(k,1151) = lu(k,1151) - lu(k,1118) * lu(k,1150) + lu(k,1152) = - lu(k,1119) * lu(k,1150) + lu(k,1153) = - lu(k,1120) * lu(k,1150) + lu(k,1154) = - lu(k,1121) * lu(k,1150) + lu(k,1156) = lu(k,1156) - lu(k,1122) * lu(k,1150) + lu(k,1160) = lu(k,1160) - lu(k,1123) * lu(k,1150) + lu(k,1161) = lu(k,1161) - lu(k,1124) * lu(k,1150) + lu(k,1825) = lu(k,1825) - lu(k,1118) * lu(k,1822) + lu(k,1826) = lu(k,1826) - lu(k,1119) * lu(k,1822) + lu(k,1829) = lu(k,1829) - lu(k,1120) * lu(k,1822) + lu(k,1831) = lu(k,1831) - lu(k,1121) * lu(k,1822) + lu(k,1854) = lu(k,1854) - lu(k,1122) * lu(k,1822) + lu(k,1863) = lu(k,1863) - lu(k,1123) * lu(k,1822) + lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1822) + lu(k,1936) = lu(k,1936) - lu(k,1118) * lu(k,1933) + lu(k,1937) = lu(k,1937) - lu(k,1119) * lu(k,1933) + lu(k,1939) = lu(k,1939) - lu(k,1120) * lu(k,1933) + lu(k,1941) = lu(k,1941) - lu(k,1121) * lu(k,1933) + lu(k,1961) = lu(k,1961) - lu(k,1122) * lu(k,1933) + lu(k,1970) = lu(k,1970) - lu(k,1123) * lu(k,1933) + lu(k,1971) = lu(k,1971) - lu(k,1124) * lu(k,1933) + lu(k,2089) = lu(k,2089) - lu(k,1118) * lu(k,2087) + lu(k,2090) = lu(k,2090) - lu(k,1119) * lu(k,2087) + lu(k,2093) = lu(k,2093) - lu(k,1120) * lu(k,2087) + lu(k,2095) = - lu(k,1121) * lu(k,2087) + lu(k,2114) = lu(k,2114) - lu(k,1122) * lu(k,2087) + lu(k,2123) = lu(k,2123) - lu(k,1123) * lu(k,2087) + lu(k,2124) = lu(k,2124) - lu(k,1124) * lu(k,2087) + lu(k,2164) = lu(k,2164) - lu(k,1118) * lu(k,2161) + lu(k,2165) = lu(k,2165) - lu(k,1119) * lu(k,2161) + lu(k,2167) = lu(k,2167) - lu(k,1120) * lu(k,2161) + lu(k,2169) = lu(k,2169) - lu(k,1121) * lu(k,2161) + lu(k,2187) = lu(k,2187) - lu(k,1122) * lu(k,2161) + lu(k,2196) = lu(k,2196) - lu(k,1123) * lu(k,2161) + lu(k,2197) = - lu(k,1124) * lu(k,2161) + lu(k,2347) = lu(k,2347) - lu(k,1118) * lu(k,2345) + lu(k,2348) = lu(k,2348) - lu(k,1119) * lu(k,2345) + lu(k,2350) = lu(k,2350) - lu(k,1120) * lu(k,2345) + lu(k,2352) = lu(k,2352) - lu(k,1121) * lu(k,2345) + lu(k,2373) = lu(k,2373) - lu(k,1122) * lu(k,2345) + lu(k,2382) = lu(k,2382) - lu(k,1123) * lu(k,2345) + lu(k,2383) = lu(k,2383) - lu(k,1124) * lu(k,2345) + lu(k,2406) = lu(k,2406) - lu(k,1118) * lu(k,2403) + lu(k,2407) = lu(k,2407) - lu(k,1119) * lu(k,2403) + lu(k,2410) = lu(k,2410) - lu(k,1120) * lu(k,2403) + lu(k,2412) = lu(k,2412) - lu(k,1121) * lu(k,2403) + lu(k,2433) = lu(k,2433) - lu(k,1122) * lu(k,2403) + lu(k,2442) = lu(k,2442) - lu(k,1123) * lu(k,2403) + lu(k,2443) = lu(k,2443) - lu(k,1124) * lu(k,2403) + lu(k,1125) = 1._r8 / lu(k,1125) + lu(k,1126) = lu(k,1126) * lu(k,1125) + lu(k,1127) = lu(k,1127) * lu(k,1125) + lu(k,1128) = lu(k,1128) * lu(k,1125) + lu(k,1129) = lu(k,1129) * lu(k,1125) + lu(k,1130) = lu(k,1130) * lu(k,1125) + lu(k,1166) = lu(k,1166) - lu(k,1126) * lu(k,1163) + lu(k,1167) = lu(k,1167) - lu(k,1127) * lu(k,1163) + lu(k,1169) = lu(k,1169) - lu(k,1128) * lu(k,1163) + lu(k,1170) = - lu(k,1129) * lu(k,1163) + lu(k,1173) = - lu(k,1130) * lu(k,1163) + lu(k,1224) = - lu(k,1126) * lu(k,1219) + lu(k,1225) = - lu(k,1127) * lu(k,1219) + lu(k,1228) = lu(k,1228) - lu(k,1128) * lu(k,1219) + lu(k,1230) = lu(k,1230) - lu(k,1129) * lu(k,1219) + lu(k,1234) = - lu(k,1130) * lu(k,1219) + lu(k,1242) = - lu(k,1126) * lu(k,1236) + lu(k,1243) = lu(k,1243) - lu(k,1127) * lu(k,1236) + lu(k,1246) = lu(k,1246) - lu(k,1128) * lu(k,1236) + lu(k,1247) = - lu(k,1129) * lu(k,1236) + lu(k,1252) = - lu(k,1130) * lu(k,1236) + lu(k,1834) = lu(k,1834) - lu(k,1126) * lu(k,1823) + lu(k,1844) = lu(k,1844) - lu(k,1127) * lu(k,1823) + lu(k,1854) = lu(k,1854) - lu(k,1128) * lu(k,1823) + lu(k,1860) = lu(k,1860) - lu(k,1129) * lu(k,1823) + lu(k,1867) = lu(k,1867) - lu(k,1130) * lu(k,1823) + lu(k,1944) = lu(k,1944) - lu(k,1126) * lu(k,1934) + lu(k,1954) = lu(k,1954) - lu(k,1127) * lu(k,1934) + lu(k,1961) = lu(k,1961) - lu(k,1128) * lu(k,1934) + lu(k,1967) = lu(k,1967) - lu(k,1129) * lu(k,1934) + lu(k,1974) = lu(k,1974) - lu(k,1130) * lu(k,1934) + lu(k,1996) = - lu(k,1126) * lu(k,1992) + lu(k,1998) = - lu(k,1127) * lu(k,1992) + lu(k,2007) = lu(k,2007) - lu(k,1128) * lu(k,1992) + lu(k,2013) = lu(k,2013) - lu(k,1129) * lu(k,1992) + lu(k,2020) = lu(k,2020) - lu(k,1130) * lu(k,1992) + lu(k,2097) = lu(k,2097) - lu(k,1126) * lu(k,2088) + lu(k,2106) = lu(k,2106) - lu(k,1127) * lu(k,2088) + lu(k,2114) = lu(k,2114) - lu(k,1128) * lu(k,2088) + lu(k,2120) = lu(k,2120) - lu(k,1129) * lu(k,2088) + lu(k,2127) = lu(k,2127) - lu(k,1130) * lu(k,2088) + lu(k,2171) = lu(k,2171) - lu(k,1126) * lu(k,2162) + lu(k,2181) = lu(k,2181) - lu(k,1127) * lu(k,2162) + lu(k,2187) = lu(k,2187) - lu(k,1128) * lu(k,2162) + lu(k,2193) = lu(k,2193) - lu(k,1129) * lu(k,2162) + lu(k,2200) = lu(k,2200) - lu(k,1130) * lu(k,2162) + lu(k,2354) = lu(k,2354) - lu(k,1126) * lu(k,2346) + lu(k,2364) = lu(k,2364) - lu(k,1127) * lu(k,2346) + lu(k,2373) = lu(k,2373) - lu(k,1128) * lu(k,2346) + lu(k,2379) = lu(k,2379) - lu(k,1129) * lu(k,2346) + lu(k,2386) = lu(k,2386) - lu(k,1130) * lu(k,2346) + lu(k,2415) = lu(k,2415) - lu(k,1126) * lu(k,2404) + lu(k,2425) = lu(k,2425) - lu(k,1127) * lu(k,2404) + lu(k,2433) = lu(k,2433) - lu(k,1128) * lu(k,2404) + lu(k,2439) = lu(k,2439) - lu(k,1129) * lu(k,2404) + lu(k,2446) = lu(k,2446) - lu(k,1130) * lu(k,2404) + lu(k,1135) = 1._r8 / lu(k,1135) + lu(k,1136) = lu(k,1136) * lu(k,1135) + lu(k,1137) = lu(k,1137) * lu(k,1135) + lu(k,1138) = lu(k,1138) * lu(k,1135) + lu(k,1139) = lu(k,1139) * lu(k,1135) + lu(k,1140) = lu(k,1140) * lu(k,1135) + lu(k,1141) = lu(k,1141) * lu(k,1135) + lu(k,1142) = lu(k,1142) * lu(k,1135) + lu(k,1143) = lu(k,1143) * lu(k,1135) + lu(k,1144) = lu(k,1144) * lu(k,1135) + lu(k,1145) = lu(k,1145) * lu(k,1135) + lu(k,1146) = lu(k,1146) * lu(k,1135) + lu(k,1295) = - lu(k,1136) * lu(k,1294) + lu(k,1300) = lu(k,1300) - lu(k,1137) * lu(k,1294) + lu(k,1302) = lu(k,1302) - lu(k,1138) * lu(k,1294) + lu(k,1303) = - lu(k,1139) * lu(k,1294) + lu(k,1304) = lu(k,1304) - lu(k,1140) * lu(k,1294) + lu(k,1305) = lu(k,1305) - lu(k,1141) * lu(k,1294) + lu(k,1306) = lu(k,1306) - lu(k,1142) * lu(k,1294) + lu(k,1307) = lu(k,1307) - lu(k,1143) * lu(k,1294) + lu(k,1308) = lu(k,1308) - lu(k,1144) * lu(k,1294) + lu(k,1309) = lu(k,1309) - lu(k,1145) * lu(k,1294) + lu(k,1311) = lu(k,1311) - lu(k,1146) * lu(k,1294) + lu(k,1461) = lu(k,1461) - lu(k,1136) * lu(k,1460) + lu(k,1467) = lu(k,1467) - lu(k,1137) * lu(k,1460) + lu(k,1473) = lu(k,1473) - lu(k,1138) * lu(k,1460) + lu(k,1474) = lu(k,1474) - lu(k,1139) * lu(k,1460) + lu(k,1477) = lu(k,1477) - lu(k,1140) * lu(k,1460) + lu(k,1478) = lu(k,1478) - lu(k,1141) * lu(k,1460) + lu(k,1479) = lu(k,1479) - lu(k,1142) * lu(k,1460) + lu(k,1481) = lu(k,1481) - lu(k,1143) * lu(k,1460) + lu(k,1482) = - lu(k,1144) * lu(k,1460) + lu(k,1483) = lu(k,1483) - lu(k,1145) * lu(k,1460) + lu(k,1485) = lu(k,1485) - lu(k,1146) * lu(k,1460) + lu(k,1829) = lu(k,1829) - lu(k,1136) * lu(k,1824) + lu(k,1838) = lu(k,1838) - lu(k,1137) * lu(k,1824) + lu(k,1844) = lu(k,1844) - lu(k,1138) * lu(k,1824) + lu(k,1845) = lu(k,1845) - lu(k,1139) * lu(k,1824) + lu(k,1853) = lu(k,1853) - lu(k,1140) * lu(k,1824) + lu(k,1854) = lu(k,1854) - lu(k,1141) * lu(k,1824) + lu(k,1855) = lu(k,1855) - lu(k,1142) * lu(k,1824) + lu(k,1860) = lu(k,1860) - lu(k,1143) * lu(k,1824) + lu(k,1862) = lu(k,1862) - lu(k,1144) * lu(k,1824) + lu(k,1863) = lu(k,1863) - lu(k,1145) * lu(k,1824) + lu(k,1865) = lu(k,1865) - lu(k,1146) * lu(k,1824) + lu(k,1939) = lu(k,1939) - lu(k,1136) * lu(k,1935) + lu(k,1948) = lu(k,1948) - lu(k,1137) * lu(k,1935) + lu(k,1954) = lu(k,1954) - lu(k,1138) * lu(k,1935) + lu(k,1955) = lu(k,1955) - lu(k,1139) * lu(k,1935) + lu(k,1960) = lu(k,1960) - lu(k,1140) * lu(k,1935) + lu(k,1961) = lu(k,1961) - lu(k,1141) * lu(k,1935) + lu(k,1962) = lu(k,1962) - lu(k,1142) * lu(k,1935) + lu(k,1967) = lu(k,1967) - lu(k,1143) * lu(k,1935) + lu(k,1969) = lu(k,1969) - lu(k,1144) * lu(k,1935) + lu(k,1970) = lu(k,1970) - lu(k,1145) * lu(k,1935) + lu(k,1972) = lu(k,1972) - lu(k,1146) * lu(k,1935) + lu(k,2167) = lu(k,2167) - lu(k,1136) * lu(k,2163) + lu(k,2175) = lu(k,2175) - lu(k,1137) * lu(k,2163) + lu(k,2181) = lu(k,2181) - lu(k,1138) * lu(k,2163) + lu(k,2182) = lu(k,2182) - lu(k,1139) * lu(k,2163) + lu(k,2186) = lu(k,2186) - lu(k,1140) * lu(k,2163) + lu(k,2187) = lu(k,2187) - lu(k,1141) * lu(k,2163) + lu(k,2188) = lu(k,2188) - lu(k,1142) * lu(k,2163) + lu(k,2193) = lu(k,2193) - lu(k,1143) * lu(k,2163) + lu(k,2195) = lu(k,2195) - lu(k,1144) * lu(k,2163) + lu(k,2196) = lu(k,2196) - lu(k,1145) * lu(k,2163) + lu(k,2198) = lu(k,2198) - lu(k,1146) * lu(k,2163) + lu(k,2410) = lu(k,2410) - lu(k,1136) * lu(k,2405) + lu(k,2419) = lu(k,2419) - lu(k,1137) * lu(k,2405) + lu(k,2425) = lu(k,2425) - lu(k,1138) * lu(k,2405) + lu(k,2426) = lu(k,2426) - lu(k,1139) * lu(k,2405) + lu(k,2432) = lu(k,2432) - lu(k,1140) * lu(k,2405) + lu(k,2433) = lu(k,2433) - lu(k,1141) * lu(k,2405) + lu(k,2434) = lu(k,2434) - lu(k,1142) * lu(k,2405) + lu(k,2439) = lu(k,2439) - lu(k,1143) * lu(k,2405) + lu(k,2441) = lu(k,2441) - lu(k,1144) * lu(k,2405) + lu(k,2442) = lu(k,2442) - lu(k,1145) * lu(k,2405) + lu(k,2444) = lu(k,2444) - lu(k,1146) * lu(k,2405) end do end subroutine lu_fac23 subroutine lu_fac24( avec_len, lu ) @@ -4238,324 +4242,324 @@ subroutine lu_fac24( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1150) = 1._r8 / lu(k,1150) - lu(k,1151) = lu(k,1151) * lu(k,1150) - lu(k,1152) = lu(k,1152) * lu(k,1150) - lu(k,1153) = lu(k,1153) * lu(k,1150) - lu(k,1154) = lu(k,1154) * lu(k,1150) - lu(k,1155) = lu(k,1155) * lu(k,1150) - lu(k,1156) = lu(k,1156) * lu(k,1150) - lu(k,1157) = lu(k,1157) * lu(k,1150) - lu(k,1158) = lu(k,1158) * lu(k,1150) - lu(k,1159) = lu(k,1159) * lu(k,1150) - lu(k,1160) = lu(k,1160) * lu(k,1150) - lu(k,1161) = lu(k,1161) * lu(k,1150) - lu(k,1764) = lu(k,1764) - lu(k,1151) * lu(k,1763) - lu(k,1766) = lu(k,1766) - lu(k,1152) * lu(k,1763) - lu(k,1768) = lu(k,1768) - lu(k,1153) * lu(k,1763) - lu(k,1787) = lu(k,1787) - lu(k,1154) * lu(k,1763) - lu(k,1788) = lu(k,1788) - lu(k,1155) * lu(k,1763) - lu(k,1790) = lu(k,1790) - lu(k,1156) * lu(k,1763) - lu(k,1791) = lu(k,1791) - lu(k,1157) * lu(k,1763) - lu(k,1793) = lu(k,1793) - lu(k,1158) * lu(k,1763) - lu(k,1796) = lu(k,1796) - lu(k,1159) * lu(k,1763) - lu(k,1797) = lu(k,1797) - lu(k,1160) * lu(k,1763) - lu(k,1800) = lu(k,1800) - lu(k,1161) * lu(k,1763) - lu(k,1976) = lu(k,1976) - lu(k,1151) * lu(k,1975) - lu(k,1979) = lu(k,1979) - lu(k,1152) * lu(k,1975) - lu(k,1981) = lu(k,1981) - lu(k,1153) * lu(k,1975) - lu(k,2003) = lu(k,2003) - lu(k,1154) * lu(k,1975) - lu(k,2004) = lu(k,2004) - lu(k,1155) * lu(k,1975) - lu(k,2006) = lu(k,2006) - lu(k,1156) * lu(k,1975) - lu(k,2007) = lu(k,2007) - lu(k,1157) * lu(k,1975) - lu(k,2009) = lu(k,2009) - lu(k,1158) * lu(k,1975) - lu(k,2012) = lu(k,2012) - lu(k,1159) * lu(k,1975) - lu(k,2013) = lu(k,2013) - lu(k,1160) * lu(k,1975) - lu(k,2016) = lu(k,2016) - lu(k,1161) * lu(k,1975) - lu(k,2038) = lu(k,2038) - lu(k,1151) * lu(k,2037) - lu(k,2041) = lu(k,2041) - lu(k,1152) * lu(k,2037) - lu(k,2043) = lu(k,2043) - lu(k,1153) * lu(k,2037) - lu(k,2063) = lu(k,2063) - lu(k,1154) * lu(k,2037) - lu(k,2064) = lu(k,2064) - lu(k,1155) * lu(k,2037) - lu(k,2066) = lu(k,2066) - lu(k,1156) * lu(k,2037) - lu(k,2067) = lu(k,2067) - lu(k,1157) * lu(k,2037) - lu(k,2069) = lu(k,2069) - lu(k,1158) * lu(k,2037) - lu(k,2072) = lu(k,2072) - lu(k,1159) * lu(k,2037) - lu(k,2073) = lu(k,2073) - lu(k,1160) * lu(k,2037) - lu(k,2076) = lu(k,2076) - lu(k,1161) * lu(k,2037) - lu(k,2184) = lu(k,2184) - lu(k,1151) * lu(k,2183) - lu(k,2186) = lu(k,2186) - lu(k,1152) * lu(k,2183) - lu(k,2188) = lu(k,2188) - lu(k,1153) * lu(k,2183) - lu(k,2208) = lu(k,2208) - lu(k,1154) * lu(k,2183) - lu(k,2209) = lu(k,2209) - lu(k,1155) * lu(k,2183) - lu(k,2211) = lu(k,2211) - lu(k,1156) * lu(k,2183) - lu(k,2212) = lu(k,2212) - lu(k,1157) * lu(k,2183) - lu(k,2214) = lu(k,2214) - lu(k,1158) * lu(k,2183) - lu(k,2217) = lu(k,2217) - lu(k,1159) * lu(k,2183) - lu(k,2218) = lu(k,2218) - lu(k,1160) * lu(k,2183) - lu(k,2221) = lu(k,2221) - lu(k,1161) * lu(k,2183) - lu(k,2329) = lu(k,2329) - lu(k,1151) * lu(k,2328) - lu(k,2331) = lu(k,2331) - lu(k,1152) * lu(k,2328) - lu(k,2333) = lu(k,2333) - lu(k,1153) * lu(k,2328) - lu(k,2350) = lu(k,2350) - lu(k,1154) * lu(k,2328) - lu(k,2351) = lu(k,2351) - lu(k,1155) * lu(k,2328) - lu(k,2353) = lu(k,2353) - lu(k,1156) * lu(k,2328) - lu(k,2354) = lu(k,2354) - lu(k,1157) * lu(k,2328) - lu(k,2356) = lu(k,2356) - lu(k,1158) * lu(k,2328) - lu(k,2359) = lu(k,2359) - lu(k,1159) * lu(k,2328) - lu(k,2360) = lu(k,2360) - lu(k,1160) * lu(k,2328) - lu(k,2363) = lu(k,2363) - lu(k,1161) * lu(k,2328) - lu(k,2391) = lu(k,2391) - lu(k,1151) * lu(k,2390) - lu(k,2394) = lu(k,2394) - lu(k,1152) * lu(k,2390) - lu(k,2396) = lu(k,2396) - lu(k,1153) * lu(k,2390) - lu(k,2414) = lu(k,2414) - lu(k,1154) * lu(k,2390) - lu(k,2415) = lu(k,2415) - lu(k,1155) * lu(k,2390) - lu(k,2417) = lu(k,2417) - lu(k,1156) * lu(k,2390) - lu(k,2418) = lu(k,2418) - lu(k,1157) * lu(k,2390) - lu(k,2420) = lu(k,2420) - lu(k,1158) * lu(k,2390) - lu(k,2423) = lu(k,2423) - lu(k,1159) * lu(k,2390) - lu(k,2424) = lu(k,2424) - lu(k,1160) * lu(k,2390) - lu(k,2427) = lu(k,2427) - lu(k,1161) * lu(k,2390) - lu(k,1163) = 1._r8 / lu(k,1163) - lu(k,1164) = lu(k,1164) * lu(k,1163) - lu(k,1165) = lu(k,1165) * lu(k,1163) - lu(k,1166) = lu(k,1166) * lu(k,1163) - lu(k,1167) = lu(k,1167) * lu(k,1163) - lu(k,1168) = lu(k,1168) * lu(k,1163) - lu(k,1169) = lu(k,1169) * lu(k,1163) - lu(k,1170) = lu(k,1170) * lu(k,1163) - lu(k,1171) = lu(k,1171) * lu(k,1163) - lu(k,1172) = lu(k,1172) * lu(k,1163) - lu(k,1220) = lu(k,1220) - lu(k,1164) * lu(k,1219) - lu(k,1223) = lu(k,1223) - lu(k,1165) * lu(k,1219) - lu(k,1224) = lu(k,1224) - lu(k,1166) * lu(k,1219) - lu(k,1225) = lu(k,1225) - lu(k,1167) * lu(k,1219) - lu(k,1228) = lu(k,1228) - lu(k,1168) * lu(k,1219) - lu(k,1229) = lu(k,1229) - lu(k,1169) * lu(k,1219) - lu(k,1231) = lu(k,1231) - lu(k,1170) * lu(k,1219) - lu(k,1232) = lu(k,1232) - lu(k,1171) * lu(k,1219) - lu(k,1233) = lu(k,1233) - lu(k,1172) * lu(k,1219) - lu(k,1766) = lu(k,1766) - lu(k,1164) * lu(k,1764) - lu(k,1771) = lu(k,1771) - lu(k,1165) * lu(k,1764) - lu(k,1781) = lu(k,1781) - lu(k,1166) * lu(k,1764) - lu(k,1782) = lu(k,1782) - lu(k,1167) * lu(k,1764) - lu(k,1790) = lu(k,1790) - lu(k,1168) * lu(k,1764) - lu(k,1793) = lu(k,1793) - lu(k,1169) * lu(k,1764) - lu(k,1797) = lu(k,1797) - lu(k,1170) * lu(k,1764) - lu(k,1800) = lu(k,1800) - lu(k,1171) * lu(k,1764) - lu(k,1801) = lu(k,1801) - lu(k,1172) * lu(k,1764) - lu(k,1979) = lu(k,1979) - lu(k,1164) * lu(k,1976) - lu(k,1984) = lu(k,1984) - lu(k,1165) * lu(k,1976) - lu(k,1994) = lu(k,1994) - lu(k,1166) * lu(k,1976) - lu(k,1995) = lu(k,1995) - lu(k,1167) * lu(k,1976) - lu(k,2006) = lu(k,2006) - lu(k,1168) * lu(k,1976) - lu(k,2009) = lu(k,2009) - lu(k,1169) * lu(k,1976) - lu(k,2013) = lu(k,2013) - lu(k,1170) * lu(k,1976) - lu(k,2016) = lu(k,2016) - lu(k,1171) * lu(k,1976) - lu(k,2017) = lu(k,2017) - lu(k,1172) * lu(k,1976) - lu(k,2041) = lu(k,2041) - lu(k,1164) * lu(k,2038) - lu(k,2046) = lu(k,2046) - lu(k,1165) * lu(k,2038) - lu(k,2056) = lu(k,2056) - lu(k,1166) * lu(k,2038) - lu(k,2057) = lu(k,2057) - lu(k,1167) * lu(k,2038) - lu(k,2066) = lu(k,2066) - lu(k,1168) * lu(k,2038) - lu(k,2069) = lu(k,2069) - lu(k,1169) * lu(k,2038) - lu(k,2073) = lu(k,2073) - lu(k,1170) * lu(k,2038) - lu(k,2076) = lu(k,2076) - lu(k,1171) * lu(k,2038) - lu(k,2077) = lu(k,2077) - lu(k,1172) * lu(k,2038) - lu(k,2186) = lu(k,2186) - lu(k,1164) * lu(k,2184) - lu(k,2190) = lu(k,2190) - lu(k,1165) * lu(k,2184) - lu(k,2200) = lu(k,2200) - lu(k,1166) * lu(k,2184) - lu(k,2201) = lu(k,2201) - lu(k,1167) * lu(k,2184) - lu(k,2211) = lu(k,2211) - lu(k,1168) * lu(k,2184) - lu(k,2214) = lu(k,2214) - lu(k,1169) * lu(k,2184) - lu(k,2218) = lu(k,2218) - lu(k,1170) * lu(k,2184) - lu(k,2221) = lu(k,2221) - lu(k,1171) * lu(k,2184) - lu(k,2222) = lu(k,2222) - lu(k,1172) * lu(k,2184) - lu(k,2331) = lu(k,2331) - lu(k,1164) * lu(k,2329) - lu(k,2335) = lu(k,2335) - lu(k,1165) * lu(k,2329) - lu(k,2345) = lu(k,2345) - lu(k,1166) * lu(k,2329) - lu(k,2346) = lu(k,2346) - lu(k,1167) * lu(k,2329) - lu(k,2353) = lu(k,2353) - lu(k,1168) * lu(k,2329) - lu(k,2356) = lu(k,2356) - lu(k,1169) * lu(k,2329) - lu(k,2360) = lu(k,2360) - lu(k,1170) * lu(k,2329) - lu(k,2363) = lu(k,2363) - lu(k,1171) * lu(k,2329) - lu(k,2364) = lu(k,2364) - lu(k,1172) * lu(k,2329) - lu(k,2394) = lu(k,2394) - lu(k,1164) * lu(k,2391) - lu(k,2398) = lu(k,2398) - lu(k,1165) * lu(k,2391) - lu(k,2407) = lu(k,2407) - lu(k,1166) * lu(k,2391) - lu(k,2408) = lu(k,2408) - lu(k,1167) * lu(k,2391) - lu(k,2417) = lu(k,2417) - lu(k,1168) * lu(k,2391) - lu(k,2420) = lu(k,2420) - lu(k,1169) * lu(k,2391) - lu(k,2424) = lu(k,2424) - lu(k,1170) * lu(k,2391) - lu(k,2427) = lu(k,2427) - lu(k,1171) * lu(k,2391) - lu(k,2428) = lu(k,2428) - lu(k,1172) * lu(k,2391) - lu(k,1177) = 1._r8 / lu(k,1177) - lu(k,1178) = lu(k,1178) * lu(k,1177) - lu(k,1179) = lu(k,1179) * lu(k,1177) - lu(k,1180) = lu(k,1180) * lu(k,1177) - lu(k,1181) = lu(k,1181) * lu(k,1177) - lu(k,1182) = lu(k,1182) * lu(k,1177) - lu(k,1183) = lu(k,1183) * lu(k,1177) - lu(k,1184) = lu(k,1184) * lu(k,1177) - lu(k,1185) = lu(k,1185) * lu(k,1177) - lu(k,1186) = lu(k,1186) * lu(k,1177) - lu(k,1187) = lu(k,1187) * lu(k,1177) - lu(k,1188) = lu(k,1188) * lu(k,1177) - lu(k,1189) = lu(k,1189) * lu(k,1177) - lu(k,1190) = lu(k,1190) * lu(k,1177) - lu(k,1191) = lu(k,1191) * lu(k,1177) - lu(k,1192) = lu(k,1192) * lu(k,1177) - lu(k,1193) = lu(k,1193) * lu(k,1177) - lu(k,1194) = lu(k,1194) * lu(k,1177) - lu(k,1415) = lu(k,1415) - lu(k,1178) * lu(k,1414) - lu(k,1416) = lu(k,1416) - lu(k,1179) * lu(k,1414) - lu(k,1417) = - lu(k,1180) * lu(k,1414) - lu(k,1418) = lu(k,1418) - lu(k,1181) * lu(k,1414) - lu(k,1422) = lu(k,1422) - lu(k,1182) * lu(k,1414) - lu(k,1423) = lu(k,1423) - lu(k,1183) * lu(k,1414) - lu(k,1424) = - lu(k,1184) * lu(k,1414) - lu(k,1425) = - lu(k,1185) * lu(k,1414) - lu(k,1426) = - lu(k,1186) * lu(k,1414) - lu(k,1427) = lu(k,1427) - lu(k,1187) * lu(k,1414) - lu(k,1428) = - lu(k,1188) * lu(k,1414) - lu(k,1429) = - lu(k,1189) * lu(k,1414) - lu(k,1430) = lu(k,1430) - lu(k,1190) * lu(k,1414) - lu(k,1432) = lu(k,1432) - lu(k,1191) * lu(k,1414) - lu(k,1433) = lu(k,1433) - lu(k,1192) * lu(k,1414) - lu(k,1434) = lu(k,1434) - lu(k,1193) * lu(k,1414) - lu(k,1435) = lu(k,1435) - lu(k,1194) * lu(k,1414) - lu(k,1978) = lu(k,1978) - lu(k,1178) * lu(k,1977) - lu(k,1979) = lu(k,1979) - lu(k,1179) * lu(k,1977) - lu(k,1983) = lu(k,1983) - lu(k,1180) * lu(k,1977) - lu(k,1988) = lu(k,1988) - lu(k,1181) * lu(k,1977) - lu(k,1994) = lu(k,1994) - lu(k,1182) * lu(k,1977) - lu(k,1995) = lu(k,1995) - lu(k,1183) * lu(k,1977) - lu(k,2000) = lu(k,2000) - lu(k,1184) * lu(k,1977) - lu(k,2003) = lu(k,2003) - lu(k,1185) * lu(k,1977) - lu(k,2004) = lu(k,2004) - lu(k,1186) * lu(k,1977) - lu(k,2006) = lu(k,2006) - lu(k,1187) * lu(k,1977) - lu(k,2007) = lu(k,2007) - lu(k,1188) * lu(k,1977) - lu(k,2008) = lu(k,2008) - lu(k,1189) * lu(k,1977) - lu(k,2009) = lu(k,2009) - lu(k,1190) * lu(k,1977) - lu(k,2013) = lu(k,2013) - lu(k,1191) * lu(k,1977) - lu(k,2014) = lu(k,2014) - lu(k,1192) * lu(k,1977) - lu(k,2016) = lu(k,2016) - lu(k,1193) * lu(k,1977) - lu(k,2017) = lu(k,2017) - lu(k,1194) * lu(k,1977) - lu(k,2040) = lu(k,2040) - lu(k,1178) * lu(k,2039) - lu(k,2041) = lu(k,2041) - lu(k,1179) * lu(k,2039) - lu(k,2045) = lu(k,2045) - lu(k,1180) * lu(k,2039) - lu(k,2050) = lu(k,2050) - lu(k,1181) * lu(k,2039) - lu(k,2056) = lu(k,2056) - lu(k,1182) * lu(k,2039) - lu(k,2057) = lu(k,2057) - lu(k,1183) * lu(k,2039) - lu(k,2060) = lu(k,2060) - lu(k,1184) * lu(k,2039) - lu(k,2063) = lu(k,2063) - lu(k,1185) * lu(k,2039) - lu(k,2064) = lu(k,2064) - lu(k,1186) * lu(k,2039) - lu(k,2066) = lu(k,2066) - lu(k,1187) * lu(k,2039) - lu(k,2067) = lu(k,2067) - lu(k,1188) * lu(k,2039) - lu(k,2068) = - lu(k,1189) * lu(k,2039) - lu(k,2069) = lu(k,2069) - lu(k,1190) * lu(k,2039) - lu(k,2073) = lu(k,2073) - lu(k,1191) * lu(k,2039) - lu(k,2074) = lu(k,2074) - lu(k,1192) * lu(k,2039) - lu(k,2076) = lu(k,2076) - lu(k,1193) * lu(k,2039) - lu(k,2077) = lu(k,2077) - lu(k,1194) * lu(k,2039) - lu(k,2393) = lu(k,2393) - lu(k,1178) * lu(k,2392) - lu(k,2394) = lu(k,2394) - lu(k,1179) * lu(k,2392) - lu(k,2397) = - lu(k,1180) * lu(k,2392) - lu(k,2401) = lu(k,2401) - lu(k,1181) * lu(k,2392) - lu(k,2407) = lu(k,2407) - lu(k,1182) * lu(k,2392) - lu(k,2408) = lu(k,2408) - lu(k,1183) * lu(k,2392) - lu(k,2411) = lu(k,2411) - lu(k,1184) * lu(k,2392) - lu(k,2414) = lu(k,2414) - lu(k,1185) * lu(k,2392) - lu(k,2415) = lu(k,2415) - lu(k,1186) * lu(k,2392) - lu(k,2417) = lu(k,2417) - lu(k,1187) * lu(k,2392) - lu(k,2418) = lu(k,2418) - lu(k,1188) * lu(k,2392) - lu(k,2419) = lu(k,2419) - lu(k,1189) * lu(k,2392) - lu(k,2420) = lu(k,2420) - lu(k,1190) * lu(k,2392) - lu(k,2424) = lu(k,2424) - lu(k,1191) * lu(k,2392) - lu(k,2425) = lu(k,2425) - lu(k,1192) * lu(k,2392) - lu(k,2427) = lu(k,2427) - lu(k,1193) * lu(k,2392) - lu(k,2428) = lu(k,2428) - lu(k,1194) * lu(k,2392) - lu(k,1195) = 1._r8 / lu(k,1195) - lu(k,1196) = lu(k,1196) * lu(k,1195) - lu(k,1197) = lu(k,1197) * lu(k,1195) - lu(k,1198) = lu(k,1198) * lu(k,1195) - lu(k,1199) = lu(k,1199) * lu(k,1195) - lu(k,1200) = lu(k,1200) * lu(k,1195) - lu(k,1201) = lu(k,1201) * lu(k,1195) - lu(k,1202) = lu(k,1202) * lu(k,1195) - lu(k,1203) = lu(k,1203) * lu(k,1195) - lu(k,1237) = lu(k,1237) - lu(k,1196) * lu(k,1236) - lu(k,1242) = lu(k,1242) - lu(k,1197) * lu(k,1236) - lu(k,1245) = lu(k,1245) - lu(k,1198) * lu(k,1236) - lu(k,1246) = - lu(k,1199) * lu(k,1236) - lu(k,1247) = lu(k,1247) - lu(k,1200) * lu(k,1236) - lu(k,1248) = lu(k,1248) - lu(k,1201) * lu(k,1236) - lu(k,1249) = lu(k,1249) - lu(k,1202) * lu(k,1236) - lu(k,1251) = lu(k,1251) - lu(k,1203) * lu(k,1236) - lu(k,1416) = lu(k,1416) - lu(k,1196) * lu(k,1415) - lu(k,1422) = lu(k,1422) - lu(k,1197) * lu(k,1415) - lu(k,1427) = lu(k,1427) - lu(k,1198) * lu(k,1415) - lu(k,1428) = lu(k,1428) - lu(k,1199) * lu(k,1415) - lu(k,1430) = lu(k,1430) - lu(k,1200) * lu(k,1415) - lu(k,1431) = - lu(k,1201) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,1202) * lu(k,1415) - lu(k,1435) = lu(k,1435) - lu(k,1203) * lu(k,1415) - lu(k,1766) = lu(k,1766) - lu(k,1196) * lu(k,1765) - lu(k,1781) = lu(k,1781) - lu(k,1197) * lu(k,1765) - lu(k,1790) = lu(k,1790) - lu(k,1198) * lu(k,1765) - lu(k,1791) = lu(k,1791) - lu(k,1199) * lu(k,1765) - lu(k,1793) = lu(k,1793) - lu(k,1200) * lu(k,1765) - lu(k,1796) = lu(k,1796) - lu(k,1201) * lu(k,1765) - lu(k,1797) = lu(k,1797) - lu(k,1202) * lu(k,1765) - lu(k,1801) = lu(k,1801) - lu(k,1203) * lu(k,1765) - lu(k,1979) = lu(k,1979) - lu(k,1196) * lu(k,1978) - lu(k,1994) = lu(k,1994) - lu(k,1197) * lu(k,1978) - lu(k,2006) = lu(k,2006) - lu(k,1198) * lu(k,1978) - lu(k,2007) = lu(k,2007) - lu(k,1199) * lu(k,1978) - lu(k,2009) = lu(k,2009) - lu(k,1200) * lu(k,1978) - lu(k,2012) = lu(k,2012) - lu(k,1201) * lu(k,1978) - lu(k,2013) = lu(k,2013) - lu(k,1202) * lu(k,1978) - lu(k,2017) = lu(k,2017) - lu(k,1203) * lu(k,1978) - lu(k,2041) = lu(k,2041) - lu(k,1196) * lu(k,2040) - lu(k,2056) = lu(k,2056) - lu(k,1197) * lu(k,2040) - lu(k,2066) = lu(k,2066) - lu(k,1198) * lu(k,2040) - lu(k,2067) = lu(k,2067) - lu(k,1199) * lu(k,2040) - lu(k,2069) = lu(k,2069) - lu(k,1200) * lu(k,2040) - lu(k,2072) = lu(k,2072) - lu(k,1201) * lu(k,2040) - lu(k,2073) = lu(k,2073) - lu(k,1202) * lu(k,2040) - lu(k,2077) = lu(k,2077) - lu(k,1203) * lu(k,2040) - lu(k,2186) = lu(k,2186) - lu(k,1196) * lu(k,2185) - lu(k,2200) = lu(k,2200) - lu(k,1197) * lu(k,2185) - lu(k,2211) = lu(k,2211) - lu(k,1198) * lu(k,2185) - lu(k,2212) = lu(k,2212) - lu(k,1199) * lu(k,2185) - lu(k,2214) = lu(k,2214) - lu(k,1200) * lu(k,2185) - lu(k,2217) = lu(k,2217) - lu(k,1201) * lu(k,2185) - lu(k,2218) = lu(k,2218) - lu(k,1202) * lu(k,2185) - lu(k,2222) = lu(k,2222) - lu(k,1203) * lu(k,2185) - lu(k,2242) = lu(k,2242) - lu(k,1196) * lu(k,2241) - lu(k,2246) = lu(k,2246) - lu(k,1197) * lu(k,2241) - lu(k,2257) = lu(k,2257) - lu(k,1198) * lu(k,2241) - lu(k,2258) = lu(k,2258) - lu(k,1199) * lu(k,2241) - lu(k,2260) = lu(k,2260) - lu(k,1200) * lu(k,2241) - lu(k,2263) = lu(k,2263) - lu(k,1201) * lu(k,2241) - lu(k,2264) = lu(k,2264) - lu(k,1202) * lu(k,2241) - lu(k,2268) = lu(k,2268) - lu(k,1203) * lu(k,2241) - lu(k,2331) = lu(k,2331) - lu(k,1196) * lu(k,2330) - lu(k,2345) = lu(k,2345) - lu(k,1197) * lu(k,2330) - lu(k,2353) = lu(k,2353) - lu(k,1198) * lu(k,2330) - lu(k,2354) = lu(k,2354) - lu(k,1199) * lu(k,2330) - lu(k,2356) = lu(k,2356) - lu(k,1200) * lu(k,2330) - lu(k,2359) = lu(k,2359) - lu(k,1201) * lu(k,2330) - lu(k,2360) = lu(k,2360) - lu(k,1202) * lu(k,2330) - lu(k,2364) = lu(k,2364) - lu(k,1203) * lu(k,2330) - lu(k,2394) = lu(k,2394) - lu(k,1196) * lu(k,2393) - lu(k,2407) = lu(k,2407) - lu(k,1197) * lu(k,2393) - lu(k,2417) = lu(k,2417) - lu(k,1198) * lu(k,2393) - lu(k,2418) = lu(k,2418) - lu(k,1199) * lu(k,2393) - lu(k,2420) = lu(k,2420) - lu(k,1200) * lu(k,2393) - lu(k,2423) = lu(k,2423) - lu(k,1201) * lu(k,2393) - lu(k,2424) = lu(k,2424) - lu(k,1202) * lu(k,2393) - lu(k,2428) = lu(k,2428) - lu(k,1203) * lu(k,2393) + lu(k,1151) = 1._r8 / lu(k,1151) + lu(k,1152) = lu(k,1152) * lu(k,1151) + lu(k,1153) = lu(k,1153) * lu(k,1151) + lu(k,1154) = lu(k,1154) * lu(k,1151) + lu(k,1155) = lu(k,1155) * lu(k,1151) + lu(k,1156) = lu(k,1156) * lu(k,1151) + lu(k,1157) = lu(k,1157) * lu(k,1151) + lu(k,1158) = lu(k,1158) * lu(k,1151) + lu(k,1159) = lu(k,1159) * lu(k,1151) + lu(k,1160) = lu(k,1160) * lu(k,1151) + lu(k,1161) = lu(k,1161) * lu(k,1151) + lu(k,1162) = lu(k,1162) * lu(k,1151) + lu(k,1826) = lu(k,1826) - lu(k,1152) * lu(k,1825) + lu(k,1829) = lu(k,1829) - lu(k,1153) * lu(k,1825) + lu(k,1831) = lu(k,1831) - lu(k,1154) * lu(k,1825) + lu(k,1853) = lu(k,1853) - lu(k,1155) * lu(k,1825) + lu(k,1854) = lu(k,1854) - lu(k,1156) * lu(k,1825) + lu(k,1855) = lu(k,1855) - lu(k,1157) * lu(k,1825) + lu(k,1860) = lu(k,1860) - lu(k,1158) * lu(k,1825) + lu(k,1862) = lu(k,1862) - lu(k,1159) * lu(k,1825) + lu(k,1863) = lu(k,1863) - lu(k,1160) * lu(k,1825) + lu(k,1864) = lu(k,1864) - lu(k,1161) * lu(k,1825) + lu(k,1865) = lu(k,1865) - lu(k,1162) * lu(k,1825) + lu(k,1937) = lu(k,1937) - lu(k,1152) * lu(k,1936) + lu(k,1939) = lu(k,1939) - lu(k,1153) * lu(k,1936) + lu(k,1941) = lu(k,1941) - lu(k,1154) * lu(k,1936) + lu(k,1960) = lu(k,1960) - lu(k,1155) * lu(k,1936) + lu(k,1961) = lu(k,1961) - lu(k,1156) * lu(k,1936) + lu(k,1962) = lu(k,1962) - lu(k,1157) * lu(k,1936) + lu(k,1967) = lu(k,1967) - lu(k,1158) * lu(k,1936) + lu(k,1969) = lu(k,1969) - lu(k,1159) * lu(k,1936) + lu(k,1970) = lu(k,1970) - lu(k,1160) * lu(k,1936) + lu(k,1971) = lu(k,1971) - lu(k,1161) * lu(k,1936) + lu(k,1972) = lu(k,1972) - lu(k,1162) * lu(k,1936) + lu(k,2090) = lu(k,2090) - lu(k,1152) * lu(k,2089) + lu(k,2093) = lu(k,2093) - lu(k,1153) * lu(k,2089) + lu(k,2095) = lu(k,2095) - lu(k,1154) * lu(k,2089) + lu(k,2113) = lu(k,2113) - lu(k,1155) * lu(k,2089) + lu(k,2114) = lu(k,2114) - lu(k,1156) * lu(k,2089) + lu(k,2115) = lu(k,2115) - lu(k,1157) * lu(k,2089) + lu(k,2120) = lu(k,2120) - lu(k,1158) * lu(k,2089) + lu(k,2122) = lu(k,2122) - lu(k,1159) * lu(k,2089) + lu(k,2123) = lu(k,2123) - lu(k,1160) * lu(k,2089) + lu(k,2124) = lu(k,2124) - lu(k,1161) * lu(k,2089) + lu(k,2125) = lu(k,2125) - lu(k,1162) * lu(k,2089) + lu(k,2165) = lu(k,2165) - lu(k,1152) * lu(k,2164) + lu(k,2167) = lu(k,2167) - lu(k,1153) * lu(k,2164) + lu(k,2169) = lu(k,2169) - lu(k,1154) * lu(k,2164) + lu(k,2186) = lu(k,2186) - lu(k,1155) * lu(k,2164) + lu(k,2187) = lu(k,2187) - lu(k,1156) * lu(k,2164) + lu(k,2188) = lu(k,2188) - lu(k,1157) * lu(k,2164) + lu(k,2193) = lu(k,2193) - lu(k,1158) * lu(k,2164) + lu(k,2195) = lu(k,2195) - lu(k,1159) * lu(k,2164) + lu(k,2196) = lu(k,2196) - lu(k,1160) * lu(k,2164) + lu(k,2197) = lu(k,2197) - lu(k,1161) * lu(k,2164) + lu(k,2198) = lu(k,2198) - lu(k,1162) * lu(k,2164) + lu(k,2348) = lu(k,2348) - lu(k,1152) * lu(k,2347) + lu(k,2350) = lu(k,2350) - lu(k,1153) * lu(k,2347) + lu(k,2352) = lu(k,2352) - lu(k,1154) * lu(k,2347) + lu(k,2372) = lu(k,2372) - lu(k,1155) * lu(k,2347) + lu(k,2373) = lu(k,2373) - lu(k,1156) * lu(k,2347) + lu(k,2374) = lu(k,2374) - lu(k,1157) * lu(k,2347) + lu(k,2379) = lu(k,2379) - lu(k,1158) * lu(k,2347) + lu(k,2381) = lu(k,2381) - lu(k,1159) * lu(k,2347) + lu(k,2382) = lu(k,2382) - lu(k,1160) * lu(k,2347) + lu(k,2383) = lu(k,2383) - lu(k,1161) * lu(k,2347) + lu(k,2384) = lu(k,2384) - lu(k,1162) * lu(k,2347) + lu(k,2407) = lu(k,2407) - lu(k,1152) * lu(k,2406) + lu(k,2410) = lu(k,2410) - lu(k,1153) * lu(k,2406) + lu(k,2412) = lu(k,2412) - lu(k,1154) * lu(k,2406) + lu(k,2432) = lu(k,2432) - lu(k,1155) * lu(k,2406) + lu(k,2433) = lu(k,2433) - lu(k,1156) * lu(k,2406) + lu(k,2434) = lu(k,2434) - lu(k,1157) * lu(k,2406) + lu(k,2439) = lu(k,2439) - lu(k,1158) * lu(k,2406) + lu(k,2441) = lu(k,2441) - lu(k,1159) * lu(k,2406) + lu(k,2442) = lu(k,2442) - lu(k,1160) * lu(k,2406) + lu(k,2443) = lu(k,2443) - lu(k,1161) * lu(k,2406) + lu(k,2444) = lu(k,2444) - lu(k,1162) * lu(k,2406) + lu(k,1164) = 1._r8 / lu(k,1164) + lu(k,1165) = lu(k,1165) * lu(k,1164) + lu(k,1166) = lu(k,1166) * lu(k,1164) + lu(k,1167) = lu(k,1167) * lu(k,1164) + lu(k,1168) = lu(k,1168) * lu(k,1164) + lu(k,1169) = lu(k,1169) * lu(k,1164) + lu(k,1170) = lu(k,1170) * lu(k,1164) + lu(k,1171) = lu(k,1171) * lu(k,1164) + lu(k,1172) = lu(k,1172) * lu(k,1164) + lu(k,1173) = lu(k,1173) * lu(k,1164) + lu(k,1221) = lu(k,1221) - lu(k,1165) * lu(k,1220) + lu(k,1224) = lu(k,1224) - lu(k,1166) * lu(k,1220) + lu(k,1225) = lu(k,1225) - lu(k,1167) * lu(k,1220) + lu(k,1226) = lu(k,1226) - lu(k,1168) * lu(k,1220) + lu(k,1228) = lu(k,1228) - lu(k,1169) * lu(k,1220) + lu(k,1230) = lu(k,1230) - lu(k,1170) * lu(k,1220) + lu(k,1232) = lu(k,1232) - lu(k,1171) * lu(k,1220) + lu(k,1233) = lu(k,1233) - lu(k,1172) * lu(k,1220) + lu(k,1234) = lu(k,1234) - lu(k,1173) * lu(k,1220) + lu(k,1829) = lu(k,1829) - lu(k,1165) * lu(k,1826) + lu(k,1834) = lu(k,1834) - lu(k,1166) * lu(k,1826) + lu(k,1844) = lu(k,1844) - lu(k,1167) * lu(k,1826) + lu(k,1845) = lu(k,1845) - lu(k,1168) * lu(k,1826) + lu(k,1854) = lu(k,1854) - lu(k,1169) * lu(k,1826) + lu(k,1860) = lu(k,1860) - lu(k,1170) * lu(k,1826) + lu(k,1863) = lu(k,1863) - lu(k,1171) * lu(k,1826) + lu(k,1865) = lu(k,1865) - lu(k,1172) * lu(k,1826) + lu(k,1867) = lu(k,1867) - lu(k,1173) * lu(k,1826) + lu(k,1939) = lu(k,1939) - lu(k,1165) * lu(k,1937) + lu(k,1944) = lu(k,1944) - lu(k,1166) * lu(k,1937) + lu(k,1954) = lu(k,1954) - lu(k,1167) * lu(k,1937) + lu(k,1955) = lu(k,1955) - lu(k,1168) * lu(k,1937) + lu(k,1961) = lu(k,1961) - lu(k,1169) * lu(k,1937) + lu(k,1967) = lu(k,1967) - lu(k,1170) * lu(k,1937) + lu(k,1970) = lu(k,1970) - lu(k,1171) * lu(k,1937) + lu(k,1972) = lu(k,1972) - lu(k,1172) * lu(k,1937) + lu(k,1974) = lu(k,1974) - lu(k,1173) * lu(k,1937) + lu(k,2093) = lu(k,2093) - lu(k,1165) * lu(k,2090) + lu(k,2097) = lu(k,2097) - lu(k,1166) * lu(k,2090) + lu(k,2106) = lu(k,2106) - lu(k,1167) * lu(k,2090) + lu(k,2107) = lu(k,2107) - lu(k,1168) * lu(k,2090) + lu(k,2114) = lu(k,2114) - lu(k,1169) * lu(k,2090) + lu(k,2120) = lu(k,2120) - lu(k,1170) * lu(k,2090) + lu(k,2123) = lu(k,2123) - lu(k,1171) * lu(k,2090) + lu(k,2125) = lu(k,2125) - lu(k,1172) * lu(k,2090) + lu(k,2127) = lu(k,2127) - lu(k,1173) * lu(k,2090) + lu(k,2167) = lu(k,2167) - lu(k,1165) * lu(k,2165) + lu(k,2171) = lu(k,2171) - lu(k,1166) * lu(k,2165) + lu(k,2181) = lu(k,2181) - lu(k,1167) * lu(k,2165) + lu(k,2182) = lu(k,2182) - lu(k,1168) * lu(k,2165) + lu(k,2187) = lu(k,2187) - lu(k,1169) * lu(k,2165) + lu(k,2193) = lu(k,2193) - lu(k,1170) * lu(k,2165) + lu(k,2196) = lu(k,2196) - lu(k,1171) * lu(k,2165) + lu(k,2198) = lu(k,2198) - lu(k,1172) * lu(k,2165) + lu(k,2200) = lu(k,2200) - lu(k,1173) * lu(k,2165) + lu(k,2350) = lu(k,2350) - lu(k,1165) * lu(k,2348) + lu(k,2354) = lu(k,2354) - lu(k,1166) * lu(k,2348) + lu(k,2364) = lu(k,2364) - lu(k,1167) * lu(k,2348) + lu(k,2365) = lu(k,2365) - lu(k,1168) * lu(k,2348) + lu(k,2373) = lu(k,2373) - lu(k,1169) * lu(k,2348) + lu(k,2379) = lu(k,2379) - lu(k,1170) * lu(k,2348) + lu(k,2382) = lu(k,2382) - lu(k,1171) * lu(k,2348) + lu(k,2384) = lu(k,2384) - lu(k,1172) * lu(k,2348) + lu(k,2386) = lu(k,2386) - lu(k,1173) * lu(k,2348) + lu(k,2410) = lu(k,2410) - lu(k,1165) * lu(k,2407) + lu(k,2415) = lu(k,2415) - lu(k,1166) * lu(k,2407) + lu(k,2425) = lu(k,2425) - lu(k,1167) * lu(k,2407) + lu(k,2426) = lu(k,2426) - lu(k,1168) * lu(k,2407) + lu(k,2433) = lu(k,2433) - lu(k,1169) * lu(k,2407) + lu(k,2439) = lu(k,2439) - lu(k,1170) * lu(k,2407) + lu(k,2442) = lu(k,2442) - lu(k,1171) * lu(k,2407) + lu(k,2444) = lu(k,2444) - lu(k,1172) * lu(k,2407) + lu(k,2446) = lu(k,2446) - lu(k,1173) * lu(k,2407) + lu(k,1178) = 1._r8 / lu(k,1178) + lu(k,1179) = lu(k,1179) * lu(k,1178) + lu(k,1180) = lu(k,1180) * lu(k,1178) + lu(k,1181) = lu(k,1181) * lu(k,1178) + lu(k,1182) = lu(k,1182) * lu(k,1178) + lu(k,1183) = lu(k,1183) * lu(k,1178) + lu(k,1184) = lu(k,1184) * lu(k,1178) + lu(k,1185) = lu(k,1185) * lu(k,1178) + lu(k,1186) = lu(k,1186) * lu(k,1178) + lu(k,1187) = lu(k,1187) * lu(k,1178) + lu(k,1188) = lu(k,1188) * lu(k,1178) + lu(k,1189) = lu(k,1189) * lu(k,1178) + lu(k,1190) = lu(k,1190) * lu(k,1178) + lu(k,1191) = lu(k,1191) * lu(k,1178) + lu(k,1192) = lu(k,1192) * lu(k,1178) + lu(k,1193) = lu(k,1193) * lu(k,1178) + lu(k,1194) = lu(k,1194) * lu(k,1178) + lu(k,1195) = lu(k,1195) * lu(k,1178) + lu(k,1416) = lu(k,1416) - lu(k,1179) * lu(k,1415) + lu(k,1417) = lu(k,1417) - lu(k,1180) * lu(k,1415) + lu(k,1418) = - lu(k,1181) * lu(k,1415) + lu(k,1419) = lu(k,1419) - lu(k,1182) * lu(k,1415) + lu(k,1423) = lu(k,1423) - lu(k,1183) * lu(k,1415) + lu(k,1424) = lu(k,1424) - lu(k,1184) * lu(k,1415) + lu(k,1425) = - lu(k,1185) * lu(k,1415) + lu(k,1426) = - lu(k,1186) * lu(k,1415) + lu(k,1427) = - lu(k,1187) * lu(k,1415) + lu(k,1428) = lu(k,1428) - lu(k,1188) * lu(k,1415) + lu(k,1429) = - lu(k,1189) * lu(k,1415) + lu(k,1430) = lu(k,1430) - lu(k,1190) * lu(k,1415) + lu(k,1431) = lu(k,1431) - lu(k,1191) * lu(k,1415) + lu(k,1433) = lu(k,1433) - lu(k,1192) * lu(k,1415) + lu(k,1434) = - lu(k,1193) * lu(k,1415) + lu(k,1435) = lu(k,1435) - lu(k,1194) * lu(k,1415) + lu(k,1436) = lu(k,1436) - lu(k,1195) * lu(k,1415) + lu(k,1828) = lu(k,1828) - lu(k,1179) * lu(k,1827) + lu(k,1829) = lu(k,1829) - lu(k,1180) * lu(k,1827) + lu(k,1833) = lu(k,1833) - lu(k,1181) * lu(k,1827) + lu(k,1838) = lu(k,1838) - lu(k,1182) * lu(k,1827) + lu(k,1844) = lu(k,1844) - lu(k,1183) * lu(k,1827) + lu(k,1845) = lu(k,1845) - lu(k,1184) * lu(k,1827) + lu(k,1850) = lu(k,1850) - lu(k,1185) * lu(k,1827) + lu(k,1852) = lu(k,1852) - lu(k,1186) * lu(k,1827) + lu(k,1853) = lu(k,1853) - lu(k,1187) * lu(k,1827) + lu(k,1854) = lu(k,1854) - lu(k,1188) * lu(k,1827) + lu(k,1855) = lu(k,1855) - lu(k,1189) * lu(k,1827) + lu(k,1858) = lu(k,1858) - lu(k,1190) * lu(k,1827) + lu(k,1860) = lu(k,1860) - lu(k,1191) * lu(k,1827) + lu(k,1863) = lu(k,1863) - lu(k,1192) * lu(k,1827) + lu(k,1864) = lu(k,1864) - lu(k,1193) * lu(k,1827) + lu(k,1865) = lu(k,1865) - lu(k,1194) * lu(k,1827) + lu(k,1867) = lu(k,1867) - lu(k,1195) * lu(k,1827) + lu(k,2092) = lu(k,2092) - lu(k,1179) * lu(k,2091) + lu(k,2093) = lu(k,2093) - lu(k,1180) * lu(k,2091) + lu(k,2096) = - lu(k,1181) * lu(k,2091) + lu(k,2100) = lu(k,2100) - lu(k,1182) * lu(k,2091) + lu(k,2106) = lu(k,2106) - lu(k,1183) * lu(k,2091) + lu(k,2107) = lu(k,2107) - lu(k,1184) * lu(k,2091) + lu(k,2110) = lu(k,2110) - lu(k,1185) * lu(k,2091) + lu(k,2112) = lu(k,2112) - lu(k,1186) * lu(k,2091) + lu(k,2113) = lu(k,2113) - lu(k,1187) * lu(k,2091) + lu(k,2114) = lu(k,2114) - lu(k,1188) * lu(k,2091) + lu(k,2115) = lu(k,2115) - lu(k,1189) * lu(k,2091) + lu(k,2118) = lu(k,2118) - lu(k,1190) * lu(k,2091) + lu(k,2120) = lu(k,2120) - lu(k,1191) * lu(k,2091) + lu(k,2123) = lu(k,2123) - lu(k,1192) * lu(k,2091) + lu(k,2124) = lu(k,2124) - lu(k,1193) * lu(k,2091) + lu(k,2125) = lu(k,2125) - lu(k,1194) * lu(k,2091) + lu(k,2127) = lu(k,2127) - lu(k,1195) * lu(k,2091) + lu(k,2409) = lu(k,2409) - lu(k,1179) * lu(k,2408) + lu(k,2410) = lu(k,2410) - lu(k,1180) * lu(k,2408) + lu(k,2414) = lu(k,2414) - lu(k,1181) * lu(k,2408) + lu(k,2419) = lu(k,2419) - lu(k,1182) * lu(k,2408) + lu(k,2425) = lu(k,2425) - lu(k,1183) * lu(k,2408) + lu(k,2426) = lu(k,2426) - lu(k,1184) * lu(k,2408) + lu(k,2429) = lu(k,2429) - lu(k,1185) * lu(k,2408) + lu(k,2431) = - lu(k,1186) * lu(k,2408) + lu(k,2432) = lu(k,2432) - lu(k,1187) * lu(k,2408) + lu(k,2433) = lu(k,2433) - lu(k,1188) * lu(k,2408) + lu(k,2434) = lu(k,2434) - lu(k,1189) * lu(k,2408) + lu(k,2437) = lu(k,2437) - lu(k,1190) * lu(k,2408) + lu(k,2439) = lu(k,2439) - lu(k,1191) * lu(k,2408) + lu(k,2442) = lu(k,2442) - lu(k,1192) * lu(k,2408) + lu(k,2443) = lu(k,2443) - lu(k,1193) * lu(k,2408) + lu(k,2444) = lu(k,2444) - lu(k,1194) * lu(k,2408) + lu(k,2446) = lu(k,2446) - lu(k,1195) * lu(k,2408) + lu(k,1196) = 1._r8 / lu(k,1196) + lu(k,1197) = lu(k,1197) * lu(k,1196) + lu(k,1198) = lu(k,1198) * lu(k,1196) + lu(k,1199) = lu(k,1199) * lu(k,1196) + lu(k,1200) = lu(k,1200) * lu(k,1196) + lu(k,1201) = lu(k,1201) * lu(k,1196) + lu(k,1202) = lu(k,1202) * lu(k,1196) + lu(k,1203) = lu(k,1203) * lu(k,1196) + lu(k,1204) = lu(k,1204) * lu(k,1196) + lu(k,1238) = lu(k,1238) - lu(k,1197) * lu(k,1237) + lu(k,1243) = lu(k,1243) - lu(k,1198) * lu(k,1237) + lu(k,1246) = lu(k,1246) - lu(k,1199) * lu(k,1237) + lu(k,1247) = lu(k,1247) - lu(k,1200) * lu(k,1237) + lu(k,1248) = lu(k,1248) - lu(k,1201) * lu(k,1237) + lu(k,1249) = lu(k,1249) - lu(k,1202) * lu(k,1237) + lu(k,1250) = - lu(k,1203) * lu(k,1237) + lu(k,1252) = lu(k,1252) - lu(k,1204) * lu(k,1237) + lu(k,1417) = lu(k,1417) - lu(k,1197) * lu(k,1416) + lu(k,1423) = lu(k,1423) - lu(k,1198) * lu(k,1416) + lu(k,1428) = lu(k,1428) - lu(k,1199) * lu(k,1416) + lu(k,1431) = lu(k,1431) - lu(k,1200) * lu(k,1416) + lu(k,1432) = - lu(k,1201) * lu(k,1416) + lu(k,1433) = lu(k,1433) - lu(k,1202) * lu(k,1416) + lu(k,1434) = lu(k,1434) - lu(k,1203) * lu(k,1416) + lu(k,1436) = lu(k,1436) - lu(k,1204) * lu(k,1416) + lu(k,1829) = lu(k,1829) - lu(k,1197) * lu(k,1828) + lu(k,1844) = lu(k,1844) - lu(k,1198) * lu(k,1828) + lu(k,1854) = lu(k,1854) - lu(k,1199) * lu(k,1828) + lu(k,1860) = lu(k,1860) - lu(k,1200) * lu(k,1828) + lu(k,1862) = lu(k,1862) - lu(k,1201) * lu(k,1828) + lu(k,1863) = lu(k,1863) - lu(k,1202) * lu(k,1828) + lu(k,1864) = lu(k,1864) - lu(k,1203) * lu(k,1828) + lu(k,1867) = lu(k,1867) - lu(k,1204) * lu(k,1828) + lu(k,1939) = lu(k,1939) - lu(k,1197) * lu(k,1938) + lu(k,1954) = lu(k,1954) - lu(k,1198) * lu(k,1938) + lu(k,1961) = lu(k,1961) - lu(k,1199) * lu(k,1938) + lu(k,1967) = lu(k,1967) - lu(k,1200) * lu(k,1938) + lu(k,1969) = lu(k,1969) - lu(k,1201) * lu(k,1938) + lu(k,1970) = lu(k,1970) - lu(k,1202) * lu(k,1938) + lu(k,1971) = lu(k,1971) - lu(k,1203) * lu(k,1938) + lu(k,1974) = lu(k,1974) - lu(k,1204) * lu(k,1938) + lu(k,1994) = lu(k,1994) - lu(k,1197) * lu(k,1993) + lu(k,1998) = lu(k,1998) - lu(k,1198) * lu(k,1993) + lu(k,2007) = lu(k,2007) - lu(k,1199) * lu(k,1993) + lu(k,2013) = lu(k,2013) - lu(k,1200) * lu(k,1993) + lu(k,2015) = lu(k,2015) - lu(k,1201) * lu(k,1993) + lu(k,2016) = lu(k,2016) - lu(k,1202) * lu(k,1993) + lu(k,2017) = lu(k,2017) - lu(k,1203) * lu(k,1993) + lu(k,2020) = lu(k,2020) - lu(k,1204) * lu(k,1993) + lu(k,2093) = lu(k,2093) - lu(k,1197) * lu(k,2092) + lu(k,2106) = lu(k,2106) - lu(k,1198) * lu(k,2092) + lu(k,2114) = lu(k,2114) - lu(k,1199) * lu(k,2092) + lu(k,2120) = lu(k,2120) - lu(k,1200) * lu(k,2092) + lu(k,2122) = lu(k,2122) - lu(k,1201) * lu(k,2092) + lu(k,2123) = lu(k,2123) - lu(k,1202) * lu(k,2092) + lu(k,2124) = lu(k,2124) - lu(k,1203) * lu(k,2092) + lu(k,2127) = lu(k,2127) - lu(k,1204) * lu(k,2092) + lu(k,2167) = lu(k,2167) - lu(k,1197) * lu(k,2166) + lu(k,2181) = lu(k,2181) - lu(k,1198) * lu(k,2166) + lu(k,2187) = lu(k,2187) - lu(k,1199) * lu(k,2166) + lu(k,2193) = lu(k,2193) - lu(k,1200) * lu(k,2166) + lu(k,2195) = lu(k,2195) - lu(k,1201) * lu(k,2166) + lu(k,2196) = lu(k,2196) - lu(k,1202) * lu(k,2166) + lu(k,2197) = lu(k,2197) - lu(k,1203) * lu(k,2166) + lu(k,2200) = lu(k,2200) - lu(k,1204) * lu(k,2166) + lu(k,2350) = lu(k,2350) - lu(k,1197) * lu(k,2349) + lu(k,2364) = lu(k,2364) - lu(k,1198) * lu(k,2349) + lu(k,2373) = lu(k,2373) - lu(k,1199) * lu(k,2349) + lu(k,2379) = lu(k,2379) - lu(k,1200) * lu(k,2349) + lu(k,2381) = lu(k,2381) - lu(k,1201) * lu(k,2349) + lu(k,2382) = lu(k,2382) - lu(k,1202) * lu(k,2349) + lu(k,2383) = lu(k,2383) - lu(k,1203) * lu(k,2349) + lu(k,2386) = lu(k,2386) - lu(k,1204) * lu(k,2349) + lu(k,2410) = lu(k,2410) - lu(k,1197) * lu(k,2409) + lu(k,2425) = lu(k,2425) - lu(k,1198) * lu(k,2409) + lu(k,2433) = lu(k,2433) - lu(k,1199) * lu(k,2409) + lu(k,2439) = lu(k,2439) - lu(k,1200) * lu(k,2409) + lu(k,2441) = lu(k,2441) - lu(k,1201) * lu(k,2409) + lu(k,2442) = lu(k,2442) - lu(k,1202) * lu(k,2409) + lu(k,2443) = lu(k,2443) - lu(k,1203) * lu(k,2409) + lu(k,2446) = lu(k,2446) - lu(k,1204) * lu(k,2409) end do end subroutine lu_fac24 subroutine lu_fac25( avec_len, lu ) @@ -4572,398 +4576,398 @@ subroutine lu_fac25( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1204) = 1._r8 / lu(k,1204) - lu(k,1205) = lu(k,1205) * lu(k,1204) - lu(k,1206) = lu(k,1206) * lu(k,1204) - lu(k,1207) = lu(k,1207) * lu(k,1204) - lu(k,1211) = lu(k,1211) - lu(k,1205) * lu(k,1209) - lu(k,1212) = lu(k,1212) - lu(k,1206) * lu(k,1209) - lu(k,1213) = lu(k,1213) - lu(k,1207) * lu(k,1209) - lu(k,1225) = lu(k,1225) - lu(k,1205) * lu(k,1220) - lu(k,1228) = lu(k,1228) - lu(k,1206) * lu(k,1220) - lu(k,1229) = lu(k,1229) - lu(k,1207) * lu(k,1220) - lu(k,1243) = - lu(k,1205) * lu(k,1237) - lu(k,1245) = lu(k,1245) - lu(k,1206) * lu(k,1237) - lu(k,1247) = lu(k,1247) - lu(k,1207) * lu(k,1237) - lu(k,1280) = lu(k,1280) - lu(k,1205) * lu(k,1274) - lu(k,1283) = lu(k,1283) - lu(k,1206) * lu(k,1274) - lu(k,1285) = lu(k,1285) - lu(k,1207) * lu(k,1274) - lu(k,1302) = lu(k,1302) - lu(k,1205) * lu(k,1294) - lu(k,1305) = lu(k,1305) - lu(k,1206) * lu(k,1294) - lu(k,1307) = lu(k,1307) - lu(k,1207) * lu(k,1294) - lu(k,1318) = lu(k,1318) - lu(k,1205) * lu(k,1312) - lu(k,1319) = lu(k,1319) - lu(k,1206) * lu(k,1312) - lu(k,1320) = lu(k,1320) - lu(k,1207) * lu(k,1312) - lu(k,1327) = - lu(k,1205) * lu(k,1324) - lu(k,1328) = lu(k,1328) - lu(k,1206) * lu(k,1324) - lu(k,1330) = lu(k,1330) - lu(k,1207) * lu(k,1324) - lu(k,1381) = lu(k,1381) - lu(k,1205) * lu(k,1368) - lu(k,1384) = lu(k,1384) - lu(k,1206) * lu(k,1368) - lu(k,1386) = lu(k,1386) - lu(k,1207) * lu(k,1368) - lu(k,1403) = - lu(k,1205) * lu(k,1394) - lu(k,1406) = lu(k,1406) - lu(k,1206) * lu(k,1394) - lu(k,1408) = lu(k,1408) - lu(k,1207) * lu(k,1394) - lu(k,1423) = lu(k,1423) - lu(k,1205) * lu(k,1416) - lu(k,1427) = lu(k,1427) - lu(k,1206) * lu(k,1416) - lu(k,1430) = lu(k,1430) - lu(k,1207) * lu(k,1416) - lu(k,1473) = lu(k,1473) - lu(k,1205) * lu(k,1460) - lu(k,1477) = lu(k,1477) - lu(k,1206) * lu(k,1460) - lu(k,1480) = lu(k,1480) - lu(k,1207) * lu(k,1460) - lu(k,1494) = lu(k,1494) - lu(k,1205) * lu(k,1493) - lu(k,1499) = lu(k,1499) - lu(k,1206) * lu(k,1493) - lu(k,1500) = - lu(k,1207) * lu(k,1493) - lu(k,1554) = - lu(k,1205) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,1206) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,1207) * lu(k,1553) - lu(k,1583) = lu(k,1583) - lu(k,1205) * lu(k,1581) - lu(k,1592) = lu(k,1592) - lu(k,1206) * lu(k,1581) - lu(k,1593) = lu(k,1593) - lu(k,1207) * lu(k,1581) - lu(k,1674) = lu(k,1674) - lu(k,1205) * lu(k,1669) - lu(k,1684) = lu(k,1684) - lu(k,1206) * lu(k,1669) - lu(k,1687) = lu(k,1687) - lu(k,1207) * lu(k,1669) - lu(k,1782) = lu(k,1782) - lu(k,1205) * lu(k,1766) - lu(k,1790) = lu(k,1790) - lu(k,1206) * lu(k,1766) - lu(k,1793) = lu(k,1793) - lu(k,1207) * lu(k,1766) - lu(k,1995) = lu(k,1995) - lu(k,1205) * lu(k,1979) - lu(k,2006) = lu(k,2006) - lu(k,1206) * lu(k,1979) - lu(k,2009) = lu(k,2009) - lu(k,1207) * lu(k,1979) - lu(k,2057) = lu(k,2057) - lu(k,1205) * lu(k,2041) - lu(k,2066) = lu(k,2066) - lu(k,1206) * lu(k,2041) - lu(k,2069) = lu(k,2069) - lu(k,1207) * lu(k,2041) - lu(k,2081) = lu(k,2081) - lu(k,1205) * lu(k,2080) - lu(k,2091) = lu(k,2091) - lu(k,1206) * lu(k,2080) - lu(k,2094) = lu(k,2094) - lu(k,1207) * lu(k,2080) - lu(k,2201) = lu(k,2201) - lu(k,1205) * lu(k,2186) - lu(k,2211) = lu(k,2211) - lu(k,1206) * lu(k,2186) - lu(k,2214) = lu(k,2214) - lu(k,1207) * lu(k,2186) - lu(k,2247) = lu(k,2247) - lu(k,1205) * lu(k,2242) - lu(k,2257) = lu(k,2257) - lu(k,1206) * lu(k,2242) - lu(k,2260) = lu(k,2260) - lu(k,1207) * lu(k,2242) - lu(k,2346) = lu(k,2346) - lu(k,1205) * lu(k,2331) - lu(k,2353) = lu(k,2353) - lu(k,1206) * lu(k,2331) - lu(k,2356) = lu(k,2356) - lu(k,1207) * lu(k,2331) - lu(k,2408) = lu(k,2408) - lu(k,1205) * lu(k,2394) - lu(k,2417) = lu(k,2417) - lu(k,1206) * lu(k,2394) - lu(k,2420) = lu(k,2420) - lu(k,1207) * lu(k,2394) - lu(k,2449) = lu(k,2449) - lu(k,1205) * lu(k,2448) - lu(k,2460) = lu(k,2460) - lu(k,1206) * lu(k,2448) - lu(k,2463) = lu(k,2463) - lu(k,1207) * lu(k,2448) - lu(k,2476) = lu(k,2476) - lu(k,1205) * lu(k,2475) - lu(k,2486) = lu(k,2486) - lu(k,1206) * lu(k,2475) - lu(k,2489) = lu(k,2489) - lu(k,1207) * lu(k,2475) - lu(k,1210) = 1._r8 / lu(k,1210) - lu(k,1211) = lu(k,1211) * lu(k,1210) - lu(k,1212) = lu(k,1212) * lu(k,1210) - lu(k,1213) = lu(k,1213) * lu(k,1210) - lu(k,1214) = lu(k,1214) * lu(k,1210) - lu(k,1225) = lu(k,1225) - lu(k,1211) * lu(k,1221) - lu(k,1228) = lu(k,1228) - lu(k,1212) * lu(k,1221) - lu(k,1229) = lu(k,1229) - lu(k,1213) * lu(k,1221) - lu(k,1232) = lu(k,1232) - lu(k,1214) * lu(k,1221) - lu(k,1243) = lu(k,1243) - lu(k,1211) * lu(k,1238) - lu(k,1245) = lu(k,1245) - lu(k,1212) * lu(k,1238) - lu(k,1247) = lu(k,1247) - lu(k,1213) * lu(k,1238) - lu(k,1250) = lu(k,1250) - lu(k,1214) * lu(k,1238) - lu(k,1280) = lu(k,1280) - lu(k,1211) * lu(k,1275) - lu(k,1283) = lu(k,1283) - lu(k,1212) * lu(k,1275) - lu(k,1285) = lu(k,1285) - lu(k,1213) * lu(k,1275) - lu(k,1287) = lu(k,1287) - lu(k,1214) * lu(k,1275) - lu(k,1302) = lu(k,1302) - lu(k,1211) * lu(k,1295) - lu(k,1305) = lu(k,1305) - lu(k,1212) * lu(k,1295) - lu(k,1307) = lu(k,1307) - lu(k,1213) * lu(k,1295) - lu(k,1310) = lu(k,1310) - lu(k,1214) * lu(k,1295) - lu(k,1348) = lu(k,1348) - lu(k,1211) * lu(k,1336) - lu(k,1351) = lu(k,1351) - lu(k,1212) * lu(k,1336) - lu(k,1353) = lu(k,1353) - lu(k,1213) * lu(k,1336) - lu(k,1357) = lu(k,1357) - lu(k,1214) * lu(k,1336) - lu(k,1381) = lu(k,1381) - lu(k,1211) * lu(k,1369) - lu(k,1384) = lu(k,1384) - lu(k,1212) * lu(k,1369) - lu(k,1386) = lu(k,1386) - lu(k,1213) * lu(k,1369) - lu(k,1390) = lu(k,1390) - lu(k,1214) * lu(k,1369) - lu(k,1403) = lu(k,1403) - lu(k,1211) * lu(k,1395) - lu(k,1406) = lu(k,1406) - lu(k,1212) * lu(k,1395) - lu(k,1408) = lu(k,1408) - lu(k,1213) * lu(k,1395) - lu(k,1411) = lu(k,1411) - lu(k,1214) * lu(k,1395) - lu(k,1473) = lu(k,1473) - lu(k,1211) * lu(k,1461) - lu(k,1477) = lu(k,1477) - lu(k,1212) * lu(k,1461) - lu(k,1480) = lu(k,1480) - lu(k,1213) * lu(k,1461) - lu(k,1484) = lu(k,1484) - lu(k,1214) * lu(k,1461) - lu(k,1583) = lu(k,1583) - lu(k,1211) * lu(k,1582) - lu(k,1592) = lu(k,1592) - lu(k,1212) * lu(k,1582) - lu(k,1593) = lu(k,1593) - lu(k,1213) * lu(k,1582) - lu(k,1598) = lu(k,1598) - lu(k,1214) * lu(k,1582) - lu(k,1782) = lu(k,1782) - lu(k,1211) * lu(k,1767) - lu(k,1790) = lu(k,1790) - lu(k,1212) * lu(k,1767) - lu(k,1793) = lu(k,1793) - lu(k,1213) * lu(k,1767) - lu(k,1800) = lu(k,1800) - lu(k,1214) * lu(k,1767) - lu(k,1995) = lu(k,1995) - lu(k,1211) * lu(k,1980) - lu(k,2006) = lu(k,2006) - lu(k,1212) * lu(k,1980) - lu(k,2009) = lu(k,2009) - lu(k,1213) * lu(k,1980) - lu(k,2016) = lu(k,2016) - lu(k,1214) * lu(k,1980) - lu(k,2057) = lu(k,2057) - lu(k,1211) * lu(k,2042) - lu(k,2066) = lu(k,2066) - lu(k,1212) * lu(k,2042) - lu(k,2069) = lu(k,2069) - lu(k,1213) * lu(k,2042) - lu(k,2076) = lu(k,2076) - lu(k,1214) * lu(k,2042) - lu(k,2201) = lu(k,2201) - lu(k,1211) * lu(k,2187) - lu(k,2211) = lu(k,2211) - lu(k,1212) * lu(k,2187) - lu(k,2214) = lu(k,2214) - lu(k,1213) * lu(k,2187) - lu(k,2221) = lu(k,2221) - lu(k,1214) * lu(k,2187) - lu(k,2247) = lu(k,2247) - lu(k,1211) * lu(k,2243) - lu(k,2257) = lu(k,2257) - lu(k,1212) * lu(k,2243) - lu(k,2260) = lu(k,2260) - lu(k,1213) * lu(k,2243) - lu(k,2267) = lu(k,2267) - lu(k,1214) * lu(k,2243) - lu(k,2346) = lu(k,2346) - lu(k,1211) * lu(k,2332) - lu(k,2353) = lu(k,2353) - lu(k,1212) * lu(k,2332) - lu(k,2356) = lu(k,2356) - lu(k,1213) * lu(k,2332) - lu(k,2363) = lu(k,2363) - lu(k,1214) * lu(k,2332) - lu(k,2408) = lu(k,2408) - lu(k,1211) * lu(k,2395) - lu(k,2417) = lu(k,2417) - lu(k,1212) * lu(k,2395) - lu(k,2420) = lu(k,2420) - lu(k,1213) * lu(k,2395) - lu(k,2427) = lu(k,2427) - lu(k,1214) * lu(k,2395) - lu(k,1222) = 1._r8 / lu(k,1222) - lu(k,1223) = lu(k,1223) * lu(k,1222) - lu(k,1224) = lu(k,1224) * lu(k,1222) - lu(k,1225) = lu(k,1225) * lu(k,1222) - lu(k,1226) = lu(k,1226) * lu(k,1222) - lu(k,1227) = lu(k,1227) * lu(k,1222) - lu(k,1228) = lu(k,1228) * lu(k,1222) - lu(k,1229) = lu(k,1229) * lu(k,1222) - lu(k,1230) = lu(k,1230) * lu(k,1222) - lu(k,1231) = lu(k,1231) * lu(k,1222) - lu(k,1232) = lu(k,1232) * lu(k,1222) - lu(k,1233) = lu(k,1233) * lu(k,1222) - lu(k,1771) = lu(k,1771) - lu(k,1223) * lu(k,1768) - lu(k,1781) = lu(k,1781) - lu(k,1224) * lu(k,1768) - lu(k,1782) = lu(k,1782) - lu(k,1225) * lu(k,1768) - lu(k,1787) = lu(k,1787) - lu(k,1226) * lu(k,1768) - lu(k,1788) = lu(k,1788) - lu(k,1227) * lu(k,1768) - lu(k,1790) = lu(k,1790) - lu(k,1228) * lu(k,1768) - lu(k,1793) = lu(k,1793) - lu(k,1229) * lu(k,1768) - lu(k,1796) = lu(k,1796) - lu(k,1230) * lu(k,1768) - lu(k,1797) = lu(k,1797) - lu(k,1231) * lu(k,1768) - lu(k,1800) = lu(k,1800) - lu(k,1232) * lu(k,1768) - lu(k,1801) = lu(k,1801) - lu(k,1233) * lu(k,1768) - lu(k,1984) = lu(k,1984) - lu(k,1223) * lu(k,1981) - lu(k,1994) = lu(k,1994) - lu(k,1224) * lu(k,1981) - lu(k,1995) = lu(k,1995) - lu(k,1225) * lu(k,1981) - lu(k,2003) = lu(k,2003) - lu(k,1226) * lu(k,1981) - lu(k,2004) = lu(k,2004) - lu(k,1227) * lu(k,1981) - lu(k,2006) = lu(k,2006) - lu(k,1228) * lu(k,1981) - lu(k,2009) = lu(k,2009) - lu(k,1229) * lu(k,1981) - lu(k,2012) = lu(k,2012) - lu(k,1230) * lu(k,1981) - lu(k,2013) = lu(k,2013) - lu(k,1231) * lu(k,1981) - lu(k,2016) = lu(k,2016) - lu(k,1232) * lu(k,1981) - lu(k,2017) = lu(k,2017) - lu(k,1233) * lu(k,1981) - lu(k,2046) = lu(k,2046) - lu(k,1223) * lu(k,2043) - lu(k,2056) = lu(k,2056) - lu(k,1224) * lu(k,2043) - lu(k,2057) = lu(k,2057) - lu(k,1225) * lu(k,2043) - lu(k,2063) = lu(k,2063) - lu(k,1226) * lu(k,2043) - lu(k,2064) = lu(k,2064) - lu(k,1227) * lu(k,2043) - lu(k,2066) = lu(k,2066) - lu(k,1228) * lu(k,2043) - lu(k,2069) = lu(k,2069) - lu(k,1229) * lu(k,2043) - lu(k,2072) = lu(k,2072) - lu(k,1230) * lu(k,2043) - lu(k,2073) = lu(k,2073) - lu(k,1231) * lu(k,2043) - lu(k,2076) = lu(k,2076) - lu(k,1232) * lu(k,2043) - lu(k,2077) = lu(k,2077) - lu(k,1233) * lu(k,2043) - lu(k,2190) = lu(k,2190) - lu(k,1223) * lu(k,2188) - lu(k,2200) = lu(k,2200) - lu(k,1224) * lu(k,2188) - lu(k,2201) = lu(k,2201) - lu(k,1225) * lu(k,2188) - lu(k,2208) = lu(k,2208) - lu(k,1226) * lu(k,2188) - lu(k,2209) = lu(k,2209) - lu(k,1227) * lu(k,2188) - lu(k,2211) = lu(k,2211) - lu(k,1228) * lu(k,2188) - lu(k,2214) = lu(k,2214) - lu(k,1229) * lu(k,2188) - lu(k,2217) = lu(k,2217) - lu(k,1230) * lu(k,2188) - lu(k,2218) = lu(k,2218) - lu(k,1231) * lu(k,2188) - lu(k,2221) = lu(k,2221) - lu(k,1232) * lu(k,2188) - lu(k,2222) = lu(k,2222) - lu(k,1233) * lu(k,2188) - lu(k,2335) = lu(k,2335) - lu(k,1223) * lu(k,2333) - lu(k,2345) = lu(k,2345) - lu(k,1224) * lu(k,2333) - lu(k,2346) = lu(k,2346) - lu(k,1225) * lu(k,2333) - lu(k,2350) = lu(k,2350) - lu(k,1226) * lu(k,2333) - lu(k,2351) = lu(k,2351) - lu(k,1227) * lu(k,2333) - lu(k,2353) = lu(k,2353) - lu(k,1228) * lu(k,2333) - lu(k,2356) = lu(k,2356) - lu(k,1229) * lu(k,2333) - lu(k,2359) = lu(k,2359) - lu(k,1230) * lu(k,2333) - lu(k,2360) = lu(k,2360) - lu(k,1231) * lu(k,2333) - lu(k,2363) = lu(k,2363) - lu(k,1232) * lu(k,2333) - lu(k,2364) = lu(k,2364) - lu(k,1233) * lu(k,2333) - lu(k,2398) = lu(k,2398) - lu(k,1223) * lu(k,2396) - lu(k,2407) = lu(k,2407) - lu(k,1224) * lu(k,2396) - lu(k,2408) = lu(k,2408) - lu(k,1225) * lu(k,2396) - lu(k,2414) = lu(k,2414) - lu(k,1226) * lu(k,2396) - lu(k,2415) = lu(k,2415) - lu(k,1227) * lu(k,2396) - lu(k,2417) = lu(k,2417) - lu(k,1228) * lu(k,2396) - lu(k,2420) = lu(k,2420) - lu(k,1229) * lu(k,2396) - lu(k,2423) = lu(k,2423) - lu(k,1230) * lu(k,2396) - lu(k,2424) = lu(k,2424) - lu(k,1231) * lu(k,2396) - lu(k,2427) = lu(k,2427) - lu(k,1232) * lu(k,2396) - lu(k,2428) = lu(k,2428) - lu(k,1233) * lu(k,2396) - lu(k,1239) = 1._r8 / lu(k,1239) - lu(k,1240) = lu(k,1240) * lu(k,1239) - lu(k,1241) = lu(k,1241) * lu(k,1239) - lu(k,1242) = lu(k,1242) * lu(k,1239) - lu(k,1243) = lu(k,1243) * lu(k,1239) - lu(k,1244) = lu(k,1244) * lu(k,1239) - lu(k,1245) = lu(k,1245) * lu(k,1239) - lu(k,1246) = lu(k,1246) * lu(k,1239) - lu(k,1247) = lu(k,1247) * lu(k,1239) - lu(k,1248) = lu(k,1248) * lu(k,1239) - lu(k,1249) = lu(k,1249) * lu(k,1239) - lu(k,1250) = lu(k,1250) * lu(k,1239) - lu(k,1251) = lu(k,1251) * lu(k,1239) - lu(k,1338) = lu(k,1338) - lu(k,1240) * lu(k,1337) - lu(k,1339) = - lu(k,1241) * lu(k,1337) - lu(k,1347) = lu(k,1347) - lu(k,1242) * lu(k,1337) - lu(k,1348) = lu(k,1348) - lu(k,1243) * lu(k,1337) - lu(k,1349) = lu(k,1349) - lu(k,1244) * lu(k,1337) - lu(k,1351) = lu(k,1351) - lu(k,1245) * lu(k,1337) - lu(k,1352) = lu(k,1352) - lu(k,1246) * lu(k,1337) - lu(k,1353) = lu(k,1353) - lu(k,1247) * lu(k,1337) - lu(k,1354) = lu(k,1354) - lu(k,1248) * lu(k,1337) - lu(k,1355) = lu(k,1355) - lu(k,1249) * lu(k,1337) - lu(k,1357) = lu(k,1357) - lu(k,1250) * lu(k,1337) - lu(k,1358) = - lu(k,1251) * lu(k,1337) - lu(k,1371) = lu(k,1371) - lu(k,1240) * lu(k,1370) - lu(k,1372) = - lu(k,1241) * lu(k,1370) - lu(k,1380) = lu(k,1380) - lu(k,1242) * lu(k,1370) - lu(k,1381) = lu(k,1381) - lu(k,1243) * lu(k,1370) - lu(k,1382) = lu(k,1382) - lu(k,1244) * lu(k,1370) - lu(k,1384) = lu(k,1384) - lu(k,1245) * lu(k,1370) - lu(k,1385) = lu(k,1385) - lu(k,1246) * lu(k,1370) - lu(k,1386) = lu(k,1386) - lu(k,1247) * lu(k,1370) - lu(k,1387) = lu(k,1387) - lu(k,1248) * lu(k,1370) - lu(k,1388) = lu(k,1388) - lu(k,1249) * lu(k,1370) - lu(k,1390) = lu(k,1390) - lu(k,1250) * lu(k,1370) - lu(k,1391) = - lu(k,1251) * lu(k,1370) - lu(k,1397) = lu(k,1397) - lu(k,1240) * lu(k,1396) - lu(k,1398) = - lu(k,1241) * lu(k,1396) - lu(k,1402) = lu(k,1402) - lu(k,1242) * lu(k,1396) - lu(k,1403) = lu(k,1403) - lu(k,1243) * lu(k,1396) - lu(k,1404) = lu(k,1404) - lu(k,1244) * lu(k,1396) - lu(k,1406) = lu(k,1406) - lu(k,1245) * lu(k,1396) - lu(k,1407) = lu(k,1407) - lu(k,1246) * lu(k,1396) - lu(k,1408) = lu(k,1408) - lu(k,1247) * lu(k,1396) - lu(k,1409) = - lu(k,1248) * lu(k,1396) - lu(k,1410) = lu(k,1410) - lu(k,1249) * lu(k,1396) - lu(k,1411) = lu(k,1411) - lu(k,1250) * lu(k,1396) - lu(k,1412) = - lu(k,1251) * lu(k,1396) - lu(k,1770) = lu(k,1770) - lu(k,1240) * lu(k,1769) - lu(k,1771) = lu(k,1771) - lu(k,1241) * lu(k,1769) - lu(k,1781) = lu(k,1781) - lu(k,1242) * lu(k,1769) - lu(k,1782) = lu(k,1782) - lu(k,1243) * lu(k,1769) - lu(k,1787) = lu(k,1787) - lu(k,1244) * lu(k,1769) - lu(k,1790) = lu(k,1790) - lu(k,1245) * lu(k,1769) - lu(k,1791) = lu(k,1791) - lu(k,1246) * lu(k,1769) - lu(k,1793) = lu(k,1793) - lu(k,1247) * lu(k,1769) - lu(k,1796) = lu(k,1796) - lu(k,1248) * lu(k,1769) - lu(k,1797) = lu(k,1797) - lu(k,1249) * lu(k,1769) - lu(k,1800) = lu(k,1800) - lu(k,1250) * lu(k,1769) - lu(k,1801) = lu(k,1801) - lu(k,1251) * lu(k,1769) - lu(k,1983) = lu(k,1983) - lu(k,1240) * lu(k,1982) - lu(k,1984) = lu(k,1984) - lu(k,1241) * lu(k,1982) - lu(k,1994) = lu(k,1994) - lu(k,1242) * lu(k,1982) - lu(k,1995) = lu(k,1995) - lu(k,1243) * lu(k,1982) - lu(k,2003) = lu(k,2003) - lu(k,1244) * lu(k,1982) - lu(k,2006) = lu(k,2006) - lu(k,1245) * lu(k,1982) - lu(k,2007) = lu(k,2007) - lu(k,1246) * lu(k,1982) - lu(k,2009) = lu(k,2009) - lu(k,1247) * lu(k,1982) - lu(k,2012) = lu(k,2012) - lu(k,1248) * lu(k,1982) - lu(k,2013) = lu(k,2013) - lu(k,1249) * lu(k,1982) - lu(k,2016) = lu(k,2016) - lu(k,1250) * lu(k,1982) - lu(k,2017) = lu(k,2017) - lu(k,1251) * lu(k,1982) - lu(k,2045) = lu(k,2045) - lu(k,1240) * lu(k,2044) - lu(k,2046) = lu(k,2046) - lu(k,1241) * lu(k,2044) - lu(k,2056) = lu(k,2056) - lu(k,1242) * lu(k,2044) - lu(k,2057) = lu(k,2057) - lu(k,1243) * lu(k,2044) - lu(k,2063) = lu(k,2063) - lu(k,1244) * lu(k,2044) - lu(k,2066) = lu(k,2066) - lu(k,1245) * lu(k,2044) - lu(k,2067) = lu(k,2067) - lu(k,1246) * lu(k,2044) - lu(k,2069) = lu(k,2069) - lu(k,1247) * lu(k,2044) - lu(k,2072) = lu(k,2072) - lu(k,1248) * lu(k,2044) - lu(k,2073) = lu(k,2073) - lu(k,1249) * lu(k,2044) - lu(k,2076) = lu(k,2076) - lu(k,1250) * lu(k,2044) - lu(k,2077) = lu(k,2077) - lu(k,1251) * lu(k,2044) - lu(k,1252) = 1._r8 / lu(k,1252) - lu(k,1253) = lu(k,1253) * lu(k,1252) - lu(k,1254) = lu(k,1254) * lu(k,1252) - lu(k,1255) = lu(k,1255) * lu(k,1252) - lu(k,1256) = lu(k,1256) * lu(k,1252) - lu(k,1257) = lu(k,1257) * lu(k,1252) - lu(k,1262) = lu(k,1262) - lu(k,1253) * lu(k,1260) - lu(k,1263) = lu(k,1263) - lu(k,1254) * lu(k,1260) - lu(k,1266) = lu(k,1266) - lu(k,1255) * lu(k,1260) - lu(k,1267) = lu(k,1267) - lu(k,1256) * lu(k,1260) - lu(k,1269) = lu(k,1269) - lu(k,1257) * lu(k,1260) - lu(k,1278) = lu(k,1278) - lu(k,1253) * lu(k,1276) - lu(k,1279) = lu(k,1279) - lu(k,1254) * lu(k,1276) - lu(k,1283) = lu(k,1283) - lu(k,1255) * lu(k,1276) - lu(k,1285) = lu(k,1285) - lu(k,1256) * lu(k,1276) - lu(k,1287) = lu(k,1287) - lu(k,1257) * lu(k,1276) - lu(k,1342) = - lu(k,1253) * lu(k,1338) - lu(k,1347) = lu(k,1347) - lu(k,1254) * lu(k,1338) - lu(k,1351) = lu(k,1351) - lu(k,1255) * lu(k,1338) - lu(k,1353) = lu(k,1353) - lu(k,1256) * lu(k,1338) - lu(k,1357) = lu(k,1357) - lu(k,1257) * lu(k,1338) - lu(k,1375) = lu(k,1375) - lu(k,1253) * lu(k,1371) - lu(k,1380) = lu(k,1380) - lu(k,1254) * lu(k,1371) - lu(k,1384) = lu(k,1384) - lu(k,1255) * lu(k,1371) - lu(k,1386) = lu(k,1386) - lu(k,1256) * lu(k,1371) - lu(k,1390) = lu(k,1390) - lu(k,1257) * lu(k,1371) - lu(k,1399) = lu(k,1399) - lu(k,1253) * lu(k,1397) - lu(k,1402) = lu(k,1402) - lu(k,1254) * lu(k,1397) - lu(k,1406) = lu(k,1406) - lu(k,1255) * lu(k,1397) - lu(k,1408) = lu(k,1408) - lu(k,1256) * lu(k,1397) - lu(k,1411) = lu(k,1411) - lu(k,1257) * lu(k,1397) - lu(k,1418) = lu(k,1418) - lu(k,1253) * lu(k,1417) - lu(k,1422) = lu(k,1422) - lu(k,1254) * lu(k,1417) - lu(k,1427) = lu(k,1427) - lu(k,1255) * lu(k,1417) - lu(k,1430) = lu(k,1430) - lu(k,1256) * lu(k,1417) - lu(k,1434) = lu(k,1434) - lu(k,1257) * lu(k,1417) - lu(k,1440) = - lu(k,1253) * lu(k,1439) - lu(k,1442) = lu(k,1442) - lu(k,1254) * lu(k,1439) - lu(k,1446) = lu(k,1446) - lu(k,1255) * lu(k,1439) - lu(k,1448) = lu(k,1448) - lu(k,1256) * lu(k,1439) - lu(k,1452) = lu(k,1452) - lu(k,1257) * lu(k,1439) - lu(k,1466) = lu(k,1466) - lu(k,1253) * lu(k,1462) - lu(k,1472) = lu(k,1472) - lu(k,1254) * lu(k,1462) - lu(k,1477) = lu(k,1477) - lu(k,1255) * lu(k,1462) - lu(k,1480) = lu(k,1480) - lu(k,1256) * lu(k,1462) - lu(k,1484) = lu(k,1484) - lu(k,1257) * lu(k,1462) - lu(k,1671) = lu(k,1671) - lu(k,1253) * lu(k,1670) - lu(k,1673) = lu(k,1673) - lu(k,1254) * lu(k,1670) - lu(k,1684) = lu(k,1684) - lu(k,1255) * lu(k,1670) - lu(k,1687) = lu(k,1687) - lu(k,1256) * lu(k,1670) - lu(k,1694) = lu(k,1694) - lu(k,1257) * lu(k,1670) - lu(k,1775) = lu(k,1775) - lu(k,1253) * lu(k,1770) - lu(k,1781) = lu(k,1781) - lu(k,1254) * lu(k,1770) - lu(k,1790) = lu(k,1790) - lu(k,1255) * lu(k,1770) - lu(k,1793) = lu(k,1793) - lu(k,1256) * lu(k,1770) - lu(k,1800) = lu(k,1800) - lu(k,1257) * lu(k,1770) - lu(k,1988) = lu(k,1988) - lu(k,1253) * lu(k,1983) - lu(k,1994) = lu(k,1994) - lu(k,1254) * lu(k,1983) - lu(k,2006) = lu(k,2006) - lu(k,1255) * lu(k,1983) - lu(k,2009) = lu(k,2009) - lu(k,1256) * lu(k,1983) - lu(k,2016) = lu(k,2016) - lu(k,1257) * lu(k,1983) - lu(k,2050) = lu(k,2050) - lu(k,1253) * lu(k,2045) - lu(k,2056) = lu(k,2056) - lu(k,1254) * lu(k,2045) - lu(k,2066) = lu(k,2066) - lu(k,1255) * lu(k,2045) - lu(k,2069) = lu(k,2069) - lu(k,1256) * lu(k,2045) - lu(k,2076) = lu(k,2076) - lu(k,1257) * lu(k,2045) - lu(k,2194) = lu(k,2194) - lu(k,1253) * lu(k,2189) - lu(k,2200) = lu(k,2200) - lu(k,1254) * lu(k,2189) - lu(k,2211) = lu(k,2211) - lu(k,1255) * lu(k,2189) - lu(k,2214) = lu(k,2214) - lu(k,1256) * lu(k,2189) - lu(k,2221) = lu(k,2221) - lu(k,1257) * lu(k,2189) - lu(k,2339) = lu(k,2339) - lu(k,1253) * lu(k,2334) - lu(k,2345) = lu(k,2345) - lu(k,1254) * lu(k,2334) - lu(k,2353) = lu(k,2353) - lu(k,1255) * lu(k,2334) - lu(k,2356) = lu(k,2356) - lu(k,1256) * lu(k,2334) - lu(k,2363) = lu(k,2363) - lu(k,1257) * lu(k,2334) - lu(k,2401) = lu(k,2401) - lu(k,1253) * lu(k,2397) - lu(k,2407) = lu(k,2407) - lu(k,1254) * lu(k,2397) - lu(k,2417) = lu(k,2417) - lu(k,1255) * lu(k,2397) - lu(k,2420) = lu(k,2420) - lu(k,1256) * lu(k,2397) - lu(k,2427) = lu(k,2427) - lu(k,1257) * lu(k,2397) + lu(k,1205) = 1._r8 / lu(k,1205) + lu(k,1206) = lu(k,1206) * lu(k,1205) + lu(k,1207) = lu(k,1207) * lu(k,1205) + lu(k,1208) = lu(k,1208) * lu(k,1205) + lu(k,1212) = lu(k,1212) - lu(k,1206) * lu(k,1210) + lu(k,1213) = lu(k,1213) - lu(k,1207) * lu(k,1210) + lu(k,1214) = lu(k,1214) - lu(k,1208) * lu(k,1210) + lu(k,1226) = lu(k,1226) - lu(k,1206) * lu(k,1221) + lu(k,1228) = lu(k,1228) - lu(k,1207) * lu(k,1221) + lu(k,1232) = lu(k,1232) - lu(k,1208) * lu(k,1221) + lu(k,1244) = - lu(k,1206) * lu(k,1238) + lu(k,1246) = lu(k,1246) - lu(k,1207) * lu(k,1238) + lu(k,1249) = lu(k,1249) - lu(k,1208) * lu(k,1238) + lu(k,1281) = lu(k,1281) - lu(k,1206) * lu(k,1275) + lu(k,1283) = lu(k,1283) - lu(k,1207) * lu(k,1275) + lu(k,1286) = lu(k,1286) - lu(k,1208) * lu(k,1275) + lu(k,1303) = lu(k,1303) - lu(k,1206) * lu(k,1295) + lu(k,1305) = lu(k,1305) - lu(k,1207) * lu(k,1295) + lu(k,1309) = lu(k,1309) - lu(k,1208) * lu(k,1295) + lu(k,1319) = lu(k,1319) - lu(k,1206) * lu(k,1313) + lu(k,1320) = lu(k,1320) - lu(k,1207) * lu(k,1313) + lu(k,1322) = lu(k,1322) - lu(k,1208) * lu(k,1313) + lu(k,1328) = - lu(k,1206) * lu(k,1325) + lu(k,1329) = lu(k,1329) - lu(k,1207) * lu(k,1325) + lu(k,1331) = lu(k,1331) - lu(k,1208) * lu(k,1325) + lu(k,1382) = lu(k,1382) - lu(k,1206) * lu(k,1369) + lu(k,1384) = lu(k,1384) - lu(k,1207) * lu(k,1369) + lu(k,1389) = lu(k,1389) - lu(k,1208) * lu(k,1369) + lu(k,1404) = - lu(k,1206) * lu(k,1395) + lu(k,1406) = lu(k,1406) - lu(k,1207) * lu(k,1395) + lu(k,1410) = lu(k,1410) - lu(k,1208) * lu(k,1395) + lu(k,1424) = lu(k,1424) - lu(k,1206) * lu(k,1417) + lu(k,1428) = lu(k,1428) - lu(k,1207) * lu(k,1417) + lu(k,1433) = lu(k,1433) - lu(k,1208) * lu(k,1417) + lu(k,1474) = lu(k,1474) - lu(k,1206) * lu(k,1461) + lu(k,1478) = lu(k,1478) - lu(k,1207) * lu(k,1461) + lu(k,1483) = lu(k,1483) - lu(k,1208) * lu(k,1461) + lu(k,1495) = lu(k,1495) - lu(k,1206) * lu(k,1494) + lu(k,1498) = lu(k,1498) - lu(k,1207) * lu(k,1494) + lu(k,1503) = - lu(k,1208) * lu(k,1494) + lu(k,1555) = - lu(k,1206) * lu(k,1554) + lu(k,1560) = lu(k,1560) - lu(k,1207) * lu(k,1554) + lu(k,1566) = lu(k,1566) - lu(k,1208) * lu(k,1554) + lu(k,1584) = lu(k,1584) - lu(k,1206) * lu(k,1582) + lu(k,1590) = lu(k,1590) - lu(k,1207) * lu(k,1582) + lu(k,1597) = lu(k,1597) - lu(k,1208) * lu(k,1582) + lu(k,1628) = lu(k,1628) - lu(k,1206) * lu(k,1627) + lu(k,1636) = lu(k,1636) - lu(k,1207) * lu(k,1627) + lu(k,1645) = lu(k,1645) - lu(k,1208) * lu(k,1627) + lu(k,1673) = lu(k,1673) - lu(k,1206) * lu(k,1668) + lu(k,1681) = lu(k,1681) - lu(k,1207) * lu(k,1668) + lu(k,1690) = lu(k,1690) - lu(k,1208) * lu(k,1668) + lu(k,1845) = lu(k,1845) - lu(k,1206) * lu(k,1829) + lu(k,1854) = lu(k,1854) - lu(k,1207) * lu(k,1829) + lu(k,1863) = lu(k,1863) - lu(k,1208) * lu(k,1829) + lu(k,1955) = lu(k,1955) - lu(k,1206) * lu(k,1939) + lu(k,1961) = lu(k,1961) - lu(k,1207) * lu(k,1939) + lu(k,1970) = lu(k,1970) - lu(k,1208) * lu(k,1939) + lu(k,1999) = lu(k,1999) - lu(k,1206) * lu(k,1994) + lu(k,2007) = lu(k,2007) - lu(k,1207) * lu(k,1994) + lu(k,2016) = lu(k,2016) - lu(k,1208) * lu(k,1994) + lu(k,2041) = lu(k,2041) - lu(k,1206) * lu(k,2040) + lu(k,2050) = lu(k,2050) - lu(k,1207) * lu(k,2040) + lu(k,2059) = lu(k,2059) - lu(k,1208) * lu(k,2040) + lu(k,2107) = lu(k,2107) - lu(k,1206) * lu(k,2093) + lu(k,2114) = lu(k,2114) - lu(k,1207) * lu(k,2093) + lu(k,2123) = lu(k,2123) - lu(k,1208) * lu(k,2093) + lu(k,2182) = lu(k,2182) - lu(k,1206) * lu(k,2167) + lu(k,2187) = lu(k,2187) - lu(k,1207) * lu(k,2167) + lu(k,2196) = lu(k,2196) - lu(k,1208) * lu(k,2167) + lu(k,2365) = lu(k,2365) - lu(k,1206) * lu(k,2350) + lu(k,2373) = lu(k,2373) - lu(k,1207) * lu(k,2350) + lu(k,2382) = lu(k,2382) - lu(k,1208) * lu(k,2350) + lu(k,2426) = lu(k,2426) - lu(k,1206) * lu(k,2410) + lu(k,2433) = lu(k,2433) - lu(k,1207) * lu(k,2410) + lu(k,2442) = lu(k,2442) - lu(k,1208) * lu(k,2410) + lu(k,2451) = lu(k,2451) - lu(k,1206) * lu(k,2450) + lu(k,2459) = lu(k,2459) - lu(k,1207) * lu(k,2450) + lu(k,2468) = lu(k,2468) - lu(k,1208) * lu(k,2450) + lu(k,1211) = 1._r8 / lu(k,1211) + lu(k,1212) = lu(k,1212) * lu(k,1211) + lu(k,1213) = lu(k,1213) * lu(k,1211) + lu(k,1214) = lu(k,1214) * lu(k,1211) + lu(k,1215) = lu(k,1215) * lu(k,1211) + lu(k,1226) = lu(k,1226) - lu(k,1212) * lu(k,1222) + lu(k,1228) = lu(k,1228) - lu(k,1213) * lu(k,1222) + lu(k,1232) = lu(k,1232) - lu(k,1214) * lu(k,1222) + lu(k,1233) = lu(k,1233) - lu(k,1215) * lu(k,1222) + lu(k,1244) = lu(k,1244) - lu(k,1212) * lu(k,1239) + lu(k,1246) = lu(k,1246) - lu(k,1213) * lu(k,1239) + lu(k,1249) = lu(k,1249) - lu(k,1214) * lu(k,1239) + lu(k,1251) = lu(k,1251) - lu(k,1215) * lu(k,1239) + lu(k,1281) = lu(k,1281) - lu(k,1212) * lu(k,1276) + lu(k,1283) = lu(k,1283) - lu(k,1213) * lu(k,1276) + lu(k,1286) = lu(k,1286) - lu(k,1214) * lu(k,1276) + lu(k,1288) = lu(k,1288) - lu(k,1215) * lu(k,1276) + lu(k,1303) = lu(k,1303) - lu(k,1212) * lu(k,1296) + lu(k,1305) = lu(k,1305) - lu(k,1213) * lu(k,1296) + lu(k,1309) = lu(k,1309) - lu(k,1214) * lu(k,1296) + lu(k,1311) = lu(k,1311) - lu(k,1215) * lu(k,1296) + lu(k,1349) = lu(k,1349) - lu(k,1212) * lu(k,1337) + lu(k,1351) = lu(k,1351) - lu(k,1213) * lu(k,1337) + lu(k,1356) = lu(k,1356) - lu(k,1214) * lu(k,1337) + lu(k,1358) = lu(k,1358) - lu(k,1215) * lu(k,1337) + lu(k,1382) = lu(k,1382) - lu(k,1212) * lu(k,1370) + lu(k,1384) = lu(k,1384) - lu(k,1213) * lu(k,1370) + lu(k,1389) = lu(k,1389) - lu(k,1214) * lu(k,1370) + lu(k,1391) = lu(k,1391) - lu(k,1215) * lu(k,1370) + lu(k,1404) = lu(k,1404) - lu(k,1212) * lu(k,1396) + lu(k,1406) = lu(k,1406) - lu(k,1213) * lu(k,1396) + lu(k,1410) = lu(k,1410) - lu(k,1214) * lu(k,1396) + lu(k,1412) = lu(k,1412) - lu(k,1215) * lu(k,1396) + lu(k,1474) = lu(k,1474) - lu(k,1212) * lu(k,1462) + lu(k,1478) = lu(k,1478) - lu(k,1213) * lu(k,1462) + lu(k,1483) = lu(k,1483) - lu(k,1214) * lu(k,1462) + lu(k,1485) = lu(k,1485) - lu(k,1215) * lu(k,1462) + lu(k,1584) = lu(k,1584) - lu(k,1212) * lu(k,1583) + lu(k,1590) = lu(k,1590) - lu(k,1213) * lu(k,1583) + lu(k,1597) = lu(k,1597) - lu(k,1214) * lu(k,1583) + lu(k,1598) = lu(k,1598) - lu(k,1215) * lu(k,1583) + lu(k,1845) = lu(k,1845) - lu(k,1212) * lu(k,1830) + lu(k,1854) = lu(k,1854) - lu(k,1213) * lu(k,1830) + lu(k,1863) = lu(k,1863) - lu(k,1214) * lu(k,1830) + lu(k,1865) = lu(k,1865) - lu(k,1215) * lu(k,1830) + lu(k,1955) = lu(k,1955) - lu(k,1212) * lu(k,1940) + lu(k,1961) = lu(k,1961) - lu(k,1213) * lu(k,1940) + lu(k,1970) = lu(k,1970) - lu(k,1214) * lu(k,1940) + lu(k,1972) = lu(k,1972) - lu(k,1215) * lu(k,1940) + lu(k,1999) = lu(k,1999) - lu(k,1212) * lu(k,1995) + lu(k,2007) = lu(k,2007) - lu(k,1213) * lu(k,1995) + lu(k,2016) = lu(k,2016) - lu(k,1214) * lu(k,1995) + lu(k,2018) = lu(k,2018) - lu(k,1215) * lu(k,1995) + lu(k,2107) = lu(k,2107) - lu(k,1212) * lu(k,2094) + lu(k,2114) = lu(k,2114) - lu(k,1213) * lu(k,2094) + lu(k,2123) = lu(k,2123) - lu(k,1214) * lu(k,2094) + lu(k,2125) = lu(k,2125) - lu(k,1215) * lu(k,2094) + lu(k,2182) = lu(k,2182) - lu(k,1212) * lu(k,2168) + lu(k,2187) = lu(k,2187) - lu(k,1213) * lu(k,2168) + lu(k,2196) = lu(k,2196) - lu(k,1214) * lu(k,2168) + lu(k,2198) = lu(k,2198) - lu(k,1215) * lu(k,2168) + lu(k,2365) = lu(k,2365) - lu(k,1212) * lu(k,2351) + lu(k,2373) = lu(k,2373) - lu(k,1213) * lu(k,2351) + lu(k,2382) = lu(k,2382) - lu(k,1214) * lu(k,2351) + lu(k,2384) = lu(k,2384) - lu(k,1215) * lu(k,2351) + lu(k,2426) = lu(k,2426) - lu(k,1212) * lu(k,2411) + lu(k,2433) = lu(k,2433) - lu(k,1213) * lu(k,2411) + lu(k,2442) = lu(k,2442) - lu(k,1214) * lu(k,2411) + lu(k,2444) = lu(k,2444) - lu(k,1215) * lu(k,2411) + lu(k,1223) = 1._r8 / lu(k,1223) + lu(k,1224) = lu(k,1224) * lu(k,1223) + lu(k,1225) = lu(k,1225) * lu(k,1223) + lu(k,1226) = lu(k,1226) * lu(k,1223) + lu(k,1227) = lu(k,1227) * lu(k,1223) + lu(k,1228) = lu(k,1228) * lu(k,1223) + lu(k,1229) = lu(k,1229) * lu(k,1223) + lu(k,1230) = lu(k,1230) * lu(k,1223) + lu(k,1231) = lu(k,1231) * lu(k,1223) + lu(k,1232) = lu(k,1232) * lu(k,1223) + lu(k,1233) = lu(k,1233) * lu(k,1223) + lu(k,1234) = lu(k,1234) * lu(k,1223) + lu(k,1834) = lu(k,1834) - lu(k,1224) * lu(k,1831) + lu(k,1844) = lu(k,1844) - lu(k,1225) * lu(k,1831) + lu(k,1845) = lu(k,1845) - lu(k,1226) * lu(k,1831) + lu(k,1853) = lu(k,1853) - lu(k,1227) * lu(k,1831) + lu(k,1854) = lu(k,1854) - lu(k,1228) * lu(k,1831) + lu(k,1855) = lu(k,1855) - lu(k,1229) * lu(k,1831) + lu(k,1860) = lu(k,1860) - lu(k,1230) * lu(k,1831) + lu(k,1862) = lu(k,1862) - lu(k,1231) * lu(k,1831) + lu(k,1863) = lu(k,1863) - lu(k,1232) * lu(k,1831) + lu(k,1865) = lu(k,1865) - lu(k,1233) * lu(k,1831) + lu(k,1867) = lu(k,1867) - lu(k,1234) * lu(k,1831) + lu(k,1944) = lu(k,1944) - lu(k,1224) * lu(k,1941) + lu(k,1954) = lu(k,1954) - lu(k,1225) * lu(k,1941) + lu(k,1955) = lu(k,1955) - lu(k,1226) * lu(k,1941) + lu(k,1960) = lu(k,1960) - lu(k,1227) * lu(k,1941) + lu(k,1961) = lu(k,1961) - lu(k,1228) * lu(k,1941) + lu(k,1962) = lu(k,1962) - lu(k,1229) * lu(k,1941) + lu(k,1967) = lu(k,1967) - lu(k,1230) * lu(k,1941) + lu(k,1969) = lu(k,1969) - lu(k,1231) * lu(k,1941) + lu(k,1970) = lu(k,1970) - lu(k,1232) * lu(k,1941) + lu(k,1972) = lu(k,1972) - lu(k,1233) * lu(k,1941) + lu(k,1974) = lu(k,1974) - lu(k,1234) * lu(k,1941) + lu(k,2097) = lu(k,2097) - lu(k,1224) * lu(k,2095) + lu(k,2106) = lu(k,2106) - lu(k,1225) * lu(k,2095) + lu(k,2107) = lu(k,2107) - lu(k,1226) * lu(k,2095) + lu(k,2113) = lu(k,2113) - lu(k,1227) * lu(k,2095) + lu(k,2114) = lu(k,2114) - lu(k,1228) * lu(k,2095) + lu(k,2115) = lu(k,2115) - lu(k,1229) * lu(k,2095) + lu(k,2120) = lu(k,2120) - lu(k,1230) * lu(k,2095) + lu(k,2122) = lu(k,2122) - lu(k,1231) * lu(k,2095) + lu(k,2123) = lu(k,2123) - lu(k,1232) * lu(k,2095) + lu(k,2125) = lu(k,2125) - lu(k,1233) * lu(k,2095) + lu(k,2127) = lu(k,2127) - lu(k,1234) * lu(k,2095) + lu(k,2171) = lu(k,2171) - lu(k,1224) * lu(k,2169) + lu(k,2181) = lu(k,2181) - lu(k,1225) * lu(k,2169) + lu(k,2182) = lu(k,2182) - lu(k,1226) * lu(k,2169) + lu(k,2186) = lu(k,2186) - lu(k,1227) * lu(k,2169) + lu(k,2187) = lu(k,2187) - lu(k,1228) * lu(k,2169) + lu(k,2188) = lu(k,2188) - lu(k,1229) * lu(k,2169) + lu(k,2193) = lu(k,2193) - lu(k,1230) * lu(k,2169) + lu(k,2195) = lu(k,2195) - lu(k,1231) * lu(k,2169) + lu(k,2196) = lu(k,2196) - lu(k,1232) * lu(k,2169) + lu(k,2198) = lu(k,2198) - lu(k,1233) * lu(k,2169) + lu(k,2200) = lu(k,2200) - lu(k,1234) * lu(k,2169) + lu(k,2354) = lu(k,2354) - lu(k,1224) * lu(k,2352) + lu(k,2364) = lu(k,2364) - lu(k,1225) * lu(k,2352) + lu(k,2365) = lu(k,2365) - lu(k,1226) * lu(k,2352) + lu(k,2372) = lu(k,2372) - lu(k,1227) * lu(k,2352) + lu(k,2373) = lu(k,2373) - lu(k,1228) * lu(k,2352) + lu(k,2374) = lu(k,2374) - lu(k,1229) * lu(k,2352) + lu(k,2379) = lu(k,2379) - lu(k,1230) * lu(k,2352) + lu(k,2381) = lu(k,2381) - lu(k,1231) * lu(k,2352) + lu(k,2382) = lu(k,2382) - lu(k,1232) * lu(k,2352) + lu(k,2384) = lu(k,2384) - lu(k,1233) * lu(k,2352) + lu(k,2386) = lu(k,2386) - lu(k,1234) * lu(k,2352) + lu(k,2415) = lu(k,2415) - lu(k,1224) * lu(k,2412) + lu(k,2425) = lu(k,2425) - lu(k,1225) * lu(k,2412) + lu(k,2426) = lu(k,2426) - lu(k,1226) * lu(k,2412) + lu(k,2432) = lu(k,2432) - lu(k,1227) * lu(k,2412) + lu(k,2433) = lu(k,2433) - lu(k,1228) * lu(k,2412) + lu(k,2434) = lu(k,2434) - lu(k,1229) * lu(k,2412) + lu(k,2439) = lu(k,2439) - lu(k,1230) * lu(k,2412) + lu(k,2441) = lu(k,2441) - lu(k,1231) * lu(k,2412) + lu(k,2442) = lu(k,2442) - lu(k,1232) * lu(k,2412) + lu(k,2444) = lu(k,2444) - lu(k,1233) * lu(k,2412) + lu(k,2446) = lu(k,2446) - lu(k,1234) * lu(k,2412) + lu(k,1240) = 1._r8 / lu(k,1240) + lu(k,1241) = lu(k,1241) * lu(k,1240) + lu(k,1242) = lu(k,1242) * lu(k,1240) + lu(k,1243) = lu(k,1243) * lu(k,1240) + lu(k,1244) = lu(k,1244) * lu(k,1240) + lu(k,1245) = lu(k,1245) * lu(k,1240) + lu(k,1246) = lu(k,1246) * lu(k,1240) + lu(k,1247) = lu(k,1247) * lu(k,1240) + lu(k,1248) = lu(k,1248) * lu(k,1240) + lu(k,1249) = lu(k,1249) * lu(k,1240) + lu(k,1250) = lu(k,1250) * lu(k,1240) + lu(k,1251) = lu(k,1251) * lu(k,1240) + lu(k,1252) = lu(k,1252) * lu(k,1240) + lu(k,1339) = lu(k,1339) - lu(k,1241) * lu(k,1338) + lu(k,1340) = - lu(k,1242) * lu(k,1338) + lu(k,1348) = lu(k,1348) - lu(k,1243) * lu(k,1338) + lu(k,1349) = lu(k,1349) - lu(k,1244) * lu(k,1338) + lu(k,1350) = lu(k,1350) - lu(k,1245) * lu(k,1338) + lu(k,1351) = lu(k,1351) - lu(k,1246) * lu(k,1338) + lu(k,1354) = lu(k,1354) - lu(k,1247) * lu(k,1338) + lu(k,1355) = lu(k,1355) - lu(k,1248) * lu(k,1338) + lu(k,1356) = lu(k,1356) - lu(k,1249) * lu(k,1338) + lu(k,1357) = lu(k,1357) - lu(k,1250) * lu(k,1338) + lu(k,1358) = lu(k,1358) - lu(k,1251) * lu(k,1338) + lu(k,1359) = - lu(k,1252) * lu(k,1338) + lu(k,1372) = lu(k,1372) - lu(k,1241) * lu(k,1371) + lu(k,1373) = - lu(k,1242) * lu(k,1371) + lu(k,1381) = lu(k,1381) - lu(k,1243) * lu(k,1371) + lu(k,1382) = lu(k,1382) - lu(k,1244) * lu(k,1371) + lu(k,1383) = lu(k,1383) - lu(k,1245) * lu(k,1371) + lu(k,1384) = lu(k,1384) - lu(k,1246) * lu(k,1371) + lu(k,1387) = lu(k,1387) - lu(k,1247) * lu(k,1371) + lu(k,1388) = lu(k,1388) - lu(k,1248) * lu(k,1371) + lu(k,1389) = lu(k,1389) - lu(k,1249) * lu(k,1371) + lu(k,1390) = lu(k,1390) - lu(k,1250) * lu(k,1371) + lu(k,1391) = lu(k,1391) - lu(k,1251) * lu(k,1371) + lu(k,1392) = - lu(k,1252) * lu(k,1371) + lu(k,1398) = lu(k,1398) - lu(k,1241) * lu(k,1397) + lu(k,1399) = - lu(k,1242) * lu(k,1397) + lu(k,1403) = lu(k,1403) - lu(k,1243) * lu(k,1397) + lu(k,1404) = lu(k,1404) - lu(k,1244) * lu(k,1397) + lu(k,1405) = lu(k,1405) - lu(k,1245) * lu(k,1397) + lu(k,1406) = lu(k,1406) - lu(k,1246) * lu(k,1397) + lu(k,1408) = lu(k,1408) - lu(k,1247) * lu(k,1397) + lu(k,1409) = - lu(k,1248) * lu(k,1397) + lu(k,1410) = lu(k,1410) - lu(k,1249) * lu(k,1397) + lu(k,1411) = lu(k,1411) - lu(k,1250) * lu(k,1397) + lu(k,1412) = lu(k,1412) - lu(k,1251) * lu(k,1397) + lu(k,1413) = - lu(k,1252) * lu(k,1397) + lu(k,1833) = lu(k,1833) - lu(k,1241) * lu(k,1832) + lu(k,1834) = lu(k,1834) - lu(k,1242) * lu(k,1832) + lu(k,1844) = lu(k,1844) - lu(k,1243) * lu(k,1832) + lu(k,1845) = lu(k,1845) - lu(k,1244) * lu(k,1832) + lu(k,1853) = lu(k,1853) - lu(k,1245) * lu(k,1832) + lu(k,1854) = lu(k,1854) - lu(k,1246) * lu(k,1832) + lu(k,1860) = lu(k,1860) - lu(k,1247) * lu(k,1832) + lu(k,1862) = lu(k,1862) - lu(k,1248) * lu(k,1832) + lu(k,1863) = lu(k,1863) - lu(k,1249) * lu(k,1832) + lu(k,1864) = lu(k,1864) - lu(k,1250) * lu(k,1832) + lu(k,1865) = lu(k,1865) - lu(k,1251) * lu(k,1832) + lu(k,1867) = lu(k,1867) - lu(k,1252) * lu(k,1832) + lu(k,1943) = lu(k,1943) - lu(k,1241) * lu(k,1942) + lu(k,1944) = lu(k,1944) - lu(k,1242) * lu(k,1942) + lu(k,1954) = lu(k,1954) - lu(k,1243) * lu(k,1942) + lu(k,1955) = lu(k,1955) - lu(k,1244) * lu(k,1942) + lu(k,1960) = lu(k,1960) - lu(k,1245) * lu(k,1942) + lu(k,1961) = lu(k,1961) - lu(k,1246) * lu(k,1942) + lu(k,1967) = lu(k,1967) - lu(k,1247) * lu(k,1942) + lu(k,1969) = lu(k,1969) - lu(k,1248) * lu(k,1942) + lu(k,1970) = lu(k,1970) - lu(k,1249) * lu(k,1942) + lu(k,1971) = lu(k,1971) - lu(k,1250) * lu(k,1942) + lu(k,1972) = lu(k,1972) - lu(k,1251) * lu(k,1942) + lu(k,1974) = lu(k,1974) - lu(k,1252) * lu(k,1942) + lu(k,2414) = lu(k,2414) - lu(k,1241) * lu(k,2413) + lu(k,2415) = lu(k,2415) - lu(k,1242) * lu(k,2413) + lu(k,2425) = lu(k,2425) - lu(k,1243) * lu(k,2413) + lu(k,2426) = lu(k,2426) - lu(k,1244) * lu(k,2413) + lu(k,2432) = lu(k,2432) - lu(k,1245) * lu(k,2413) + lu(k,2433) = lu(k,2433) - lu(k,1246) * lu(k,2413) + lu(k,2439) = lu(k,2439) - lu(k,1247) * lu(k,2413) + lu(k,2441) = lu(k,2441) - lu(k,1248) * lu(k,2413) + lu(k,2442) = lu(k,2442) - lu(k,1249) * lu(k,2413) + lu(k,2443) = lu(k,2443) - lu(k,1250) * lu(k,2413) + lu(k,2444) = lu(k,2444) - lu(k,1251) * lu(k,2413) + lu(k,2446) = lu(k,2446) - lu(k,1252) * lu(k,2413) + lu(k,1253) = 1._r8 / lu(k,1253) + lu(k,1254) = lu(k,1254) * lu(k,1253) + lu(k,1255) = lu(k,1255) * lu(k,1253) + lu(k,1256) = lu(k,1256) * lu(k,1253) + lu(k,1257) = lu(k,1257) * lu(k,1253) + lu(k,1258) = lu(k,1258) * lu(k,1253) + lu(k,1263) = lu(k,1263) - lu(k,1254) * lu(k,1261) + lu(k,1264) = lu(k,1264) - lu(k,1255) * lu(k,1261) + lu(k,1266) = lu(k,1266) - lu(k,1256) * lu(k,1261) + lu(k,1269) = lu(k,1269) - lu(k,1257) * lu(k,1261) + lu(k,1270) = lu(k,1270) - lu(k,1258) * lu(k,1261) + lu(k,1279) = lu(k,1279) - lu(k,1254) * lu(k,1277) + lu(k,1280) = lu(k,1280) - lu(k,1255) * lu(k,1277) + lu(k,1283) = lu(k,1283) - lu(k,1256) * lu(k,1277) + lu(k,1286) = lu(k,1286) - lu(k,1257) * lu(k,1277) + lu(k,1288) = lu(k,1288) - lu(k,1258) * lu(k,1277) + lu(k,1343) = - lu(k,1254) * lu(k,1339) + lu(k,1348) = lu(k,1348) - lu(k,1255) * lu(k,1339) + lu(k,1351) = lu(k,1351) - lu(k,1256) * lu(k,1339) + lu(k,1356) = lu(k,1356) - lu(k,1257) * lu(k,1339) + lu(k,1358) = lu(k,1358) - lu(k,1258) * lu(k,1339) + lu(k,1376) = lu(k,1376) - lu(k,1254) * lu(k,1372) + lu(k,1381) = lu(k,1381) - lu(k,1255) * lu(k,1372) + lu(k,1384) = lu(k,1384) - lu(k,1256) * lu(k,1372) + lu(k,1389) = lu(k,1389) - lu(k,1257) * lu(k,1372) + lu(k,1391) = lu(k,1391) - lu(k,1258) * lu(k,1372) + lu(k,1400) = lu(k,1400) - lu(k,1254) * lu(k,1398) + lu(k,1403) = lu(k,1403) - lu(k,1255) * lu(k,1398) + lu(k,1406) = lu(k,1406) - lu(k,1256) * lu(k,1398) + lu(k,1410) = lu(k,1410) - lu(k,1257) * lu(k,1398) + lu(k,1412) = lu(k,1412) - lu(k,1258) * lu(k,1398) + lu(k,1419) = lu(k,1419) - lu(k,1254) * lu(k,1418) + lu(k,1423) = lu(k,1423) - lu(k,1255) * lu(k,1418) + lu(k,1428) = lu(k,1428) - lu(k,1256) * lu(k,1418) + lu(k,1433) = lu(k,1433) - lu(k,1257) * lu(k,1418) + lu(k,1435) = lu(k,1435) - lu(k,1258) * lu(k,1418) + lu(k,1441) = - lu(k,1254) * lu(k,1440) + lu(k,1443) = lu(k,1443) - lu(k,1255) * lu(k,1440) + lu(k,1446) = lu(k,1446) - lu(k,1256) * lu(k,1440) + lu(k,1451) = lu(k,1451) - lu(k,1257) * lu(k,1440) + lu(k,1453) = lu(k,1453) - lu(k,1258) * lu(k,1440) + lu(k,1467) = lu(k,1467) - lu(k,1254) * lu(k,1463) + lu(k,1473) = lu(k,1473) - lu(k,1255) * lu(k,1463) + lu(k,1478) = lu(k,1478) - lu(k,1256) * lu(k,1463) + lu(k,1483) = lu(k,1483) - lu(k,1257) * lu(k,1463) + lu(k,1485) = lu(k,1485) - lu(k,1258) * lu(k,1463) + lu(k,1670) = lu(k,1670) - lu(k,1254) * lu(k,1669) + lu(k,1672) = lu(k,1672) - lu(k,1255) * lu(k,1669) + lu(k,1681) = lu(k,1681) - lu(k,1256) * lu(k,1669) + lu(k,1690) = lu(k,1690) - lu(k,1257) * lu(k,1669) + lu(k,1692) = lu(k,1692) - lu(k,1258) * lu(k,1669) + lu(k,1838) = lu(k,1838) - lu(k,1254) * lu(k,1833) + lu(k,1844) = lu(k,1844) - lu(k,1255) * lu(k,1833) + lu(k,1854) = lu(k,1854) - lu(k,1256) * lu(k,1833) + lu(k,1863) = lu(k,1863) - lu(k,1257) * lu(k,1833) + lu(k,1865) = lu(k,1865) - lu(k,1258) * lu(k,1833) + lu(k,1948) = lu(k,1948) - lu(k,1254) * lu(k,1943) + lu(k,1954) = lu(k,1954) - lu(k,1255) * lu(k,1943) + lu(k,1961) = lu(k,1961) - lu(k,1256) * lu(k,1943) + lu(k,1970) = lu(k,1970) - lu(k,1257) * lu(k,1943) + lu(k,1972) = lu(k,1972) - lu(k,1258) * lu(k,1943) + lu(k,2100) = lu(k,2100) - lu(k,1254) * lu(k,2096) + lu(k,2106) = lu(k,2106) - lu(k,1255) * lu(k,2096) + lu(k,2114) = lu(k,2114) - lu(k,1256) * lu(k,2096) + lu(k,2123) = lu(k,2123) - lu(k,1257) * lu(k,2096) + lu(k,2125) = lu(k,2125) - lu(k,1258) * lu(k,2096) + lu(k,2175) = lu(k,2175) - lu(k,1254) * lu(k,2170) + lu(k,2181) = lu(k,2181) - lu(k,1255) * lu(k,2170) + lu(k,2187) = lu(k,2187) - lu(k,1256) * lu(k,2170) + lu(k,2196) = lu(k,2196) - lu(k,1257) * lu(k,2170) + lu(k,2198) = lu(k,2198) - lu(k,1258) * lu(k,2170) + lu(k,2358) = lu(k,2358) - lu(k,1254) * lu(k,2353) + lu(k,2364) = lu(k,2364) - lu(k,1255) * lu(k,2353) + lu(k,2373) = lu(k,2373) - lu(k,1256) * lu(k,2353) + lu(k,2382) = lu(k,2382) - lu(k,1257) * lu(k,2353) + lu(k,2384) = lu(k,2384) - lu(k,1258) * lu(k,2353) + lu(k,2419) = lu(k,2419) - lu(k,1254) * lu(k,2414) + lu(k,2425) = lu(k,2425) - lu(k,1255) * lu(k,2414) + lu(k,2433) = lu(k,2433) - lu(k,1256) * lu(k,2414) + lu(k,2442) = lu(k,2442) - lu(k,1257) * lu(k,2414) + lu(k,2444) = lu(k,2444) - lu(k,1258) * lu(k,2414) end do end subroutine lu_fac25 subroutine lu_fac26( avec_len, lu ) @@ -4980,413 +4984,413 @@ subroutine lu_fac26( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1261) = 1._r8 / lu(k,1261) - lu(k,1262) = lu(k,1262) * lu(k,1261) - lu(k,1263) = lu(k,1263) * lu(k,1261) - lu(k,1264) = lu(k,1264) * lu(k,1261) - lu(k,1265) = lu(k,1265) * lu(k,1261) - lu(k,1266) = lu(k,1266) * lu(k,1261) - lu(k,1267) = lu(k,1267) * lu(k,1261) - lu(k,1268) = lu(k,1268) * lu(k,1261) - lu(k,1269) = lu(k,1269) * lu(k,1261) - lu(k,1270) = lu(k,1270) * lu(k,1261) - lu(k,1342) = lu(k,1342) - lu(k,1262) * lu(k,1339) - lu(k,1347) = lu(k,1347) - lu(k,1263) * lu(k,1339) - lu(k,1349) = lu(k,1349) - lu(k,1264) * lu(k,1339) - lu(k,1350) = lu(k,1350) - lu(k,1265) * lu(k,1339) - lu(k,1351) = lu(k,1351) - lu(k,1266) * lu(k,1339) - lu(k,1353) = lu(k,1353) - lu(k,1267) * lu(k,1339) - lu(k,1355) = lu(k,1355) - lu(k,1268) * lu(k,1339) - lu(k,1357) = lu(k,1357) - lu(k,1269) * lu(k,1339) - lu(k,1358) = lu(k,1358) - lu(k,1270) * lu(k,1339) - lu(k,1375) = lu(k,1375) - lu(k,1262) * lu(k,1372) - lu(k,1380) = lu(k,1380) - lu(k,1263) * lu(k,1372) - lu(k,1382) = lu(k,1382) - lu(k,1264) * lu(k,1372) - lu(k,1383) = lu(k,1383) - lu(k,1265) * lu(k,1372) - lu(k,1384) = lu(k,1384) - lu(k,1266) * lu(k,1372) - lu(k,1386) = lu(k,1386) - lu(k,1267) * lu(k,1372) - lu(k,1388) = lu(k,1388) - lu(k,1268) * lu(k,1372) - lu(k,1390) = lu(k,1390) - lu(k,1269) * lu(k,1372) - lu(k,1391) = lu(k,1391) - lu(k,1270) * lu(k,1372) - lu(k,1399) = lu(k,1399) - lu(k,1262) * lu(k,1398) - lu(k,1402) = lu(k,1402) - lu(k,1263) * lu(k,1398) - lu(k,1404) = lu(k,1404) - lu(k,1264) * lu(k,1398) - lu(k,1405) = lu(k,1405) - lu(k,1265) * lu(k,1398) - lu(k,1406) = lu(k,1406) - lu(k,1266) * lu(k,1398) - lu(k,1408) = lu(k,1408) - lu(k,1267) * lu(k,1398) - lu(k,1410) = lu(k,1410) - lu(k,1268) * lu(k,1398) - lu(k,1411) = lu(k,1411) - lu(k,1269) * lu(k,1398) - lu(k,1412) = lu(k,1412) - lu(k,1270) * lu(k,1398) - lu(k,1775) = lu(k,1775) - lu(k,1262) * lu(k,1771) - lu(k,1781) = lu(k,1781) - lu(k,1263) * lu(k,1771) - lu(k,1787) = lu(k,1787) - lu(k,1264) * lu(k,1771) - lu(k,1788) = lu(k,1788) - lu(k,1265) * lu(k,1771) - lu(k,1790) = lu(k,1790) - lu(k,1266) * lu(k,1771) - lu(k,1793) = lu(k,1793) - lu(k,1267) * lu(k,1771) - lu(k,1797) = lu(k,1797) - lu(k,1268) * lu(k,1771) - lu(k,1800) = lu(k,1800) - lu(k,1269) * lu(k,1771) - lu(k,1801) = lu(k,1801) - lu(k,1270) * lu(k,1771) - lu(k,1988) = lu(k,1988) - lu(k,1262) * lu(k,1984) - lu(k,1994) = lu(k,1994) - lu(k,1263) * lu(k,1984) - lu(k,2003) = lu(k,2003) - lu(k,1264) * lu(k,1984) - lu(k,2004) = lu(k,2004) - lu(k,1265) * lu(k,1984) - lu(k,2006) = lu(k,2006) - lu(k,1266) * lu(k,1984) - lu(k,2009) = lu(k,2009) - lu(k,1267) * lu(k,1984) - lu(k,2013) = lu(k,2013) - lu(k,1268) * lu(k,1984) - lu(k,2016) = lu(k,2016) - lu(k,1269) * lu(k,1984) - lu(k,2017) = lu(k,2017) - lu(k,1270) * lu(k,1984) - lu(k,2050) = lu(k,2050) - lu(k,1262) * lu(k,2046) - lu(k,2056) = lu(k,2056) - lu(k,1263) * lu(k,2046) - lu(k,2063) = lu(k,2063) - lu(k,1264) * lu(k,2046) - lu(k,2064) = lu(k,2064) - lu(k,1265) * lu(k,2046) - lu(k,2066) = lu(k,2066) - lu(k,1266) * lu(k,2046) - lu(k,2069) = lu(k,2069) - lu(k,1267) * lu(k,2046) - lu(k,2073) = lu(k,2073) - lu(k,1268) * lu(k,2046) - lu(k,2076) = lu(k,2076) - lu(k,1269) * lu(k,2046) - lu(k,2077) = lu(k,2077) - lu(k,1270) * lu(k,2046) - lu(k,2194) = lu(k,2194) - lu(k,1262) * lu(k,2190) - lu(k,2200) = lu(k,2200) - lu(k,1263) * lu(k,2190) - lu(k,2208) = lu(k,2208) - lu(k,1264) * lu(k,2190) - lu(k,2209) = lu(k,2209) - lu(k,1265) * lu(k,2190) - lu(k,2211) = lu(k,2211) - lu(k,1266) * lu(k,2190) - lu(k,2214) = lu(k,2214) - lu(k,1267) * lu(k,2190) - lu(k,2218) = lu(k,2218) - lu(k,1268) * lu(k,2190) - lu(k,2221) = lu(k,2221) - lu(k,1269) * lu(k,2190) - lu(k,2222) = lu(k,2222) - lu(k,1270) * lu(k,2190) - lu(k,2245) = - lu(k,1262) * lu(k,2244) - lu(k,2246) = lu(k,2246) - lu(k,1263) * lu(k,2244) - lu(k,2254) = lu(k,2254) - lu(k,1264) * lu(k,2244) - lu(k,2255) = lu(k,2255) - lu(k,1265) * lu(k,2244) - lu(k,2257) = lu(k,2257) - lu(k,1266) * lu(k,2244) - lu(k,2260) = lu(k,2260) - lu(k,1267) * lu(k,2244) - lu(k,2264) = lu(k,2264) - lu(k,1268) * lu(k,2244) - lu(k,2267) = lu(k,2267) - lu(k,1269) * lu(k,2244) - lu(k,2268) = lu(k,2268) - lu(k,1270) * lu(k,2244) - lu(k,2339) = lu(k,2339) - lu(k,1262) * lu(k,2335) - lu(k,2345) = lu(k,2345) - lu(k,1263) * lu(k,2335) - lu(k,2350) = lu(k,2350) - lu(k,1264) * lu(k,2335) - lu(k,2351) = lu(k,2351) - lu(k,1265) * lu(k,2335) - lu(k,2353) = lu(k,2353) - lu(k,1266) * lu(k,2335) - lu(k,2356) = lu(k,2356) - lu(k,1267) * lu(k,2335) - lu(k,2360) = lu(k,2360) - lu(k,1268) * lu(k,2335) - lu(k,2363) = lu(k,2363) - lu(k,1269) * lu(k,2335) - lu(k,2364) = lu(k,2364) - lu(k,1270) * lu(k,2335) - lu(k,2401) = lu(k,2401) - lu(k,1262) * lu(k,2398) - lu(k,2407) = lu(k,2407) - lu(k,1263) * lu(k,2398) - lu(k,2414) = lu(k,2414) - lu(k,1264) * lu(k,2398) - lu(k,2415) = lu(k,2415) - lu(k,1265) * lu(k,2398) - lu(k,2417) = lu(k,2417) - lu(k,1266) * lu(k,2398) - lu(k,2420) = lu(k,2420) - lu(k,1267) * lu(k,2398) - lu(k,2424) = lu(k,2424) - lu(k,1268) * lu(k,2398) - lu(k,2427) = lu(k,2427) - lu(k,1269) * lu(k,2398) - lu(k,2428) = lu(k,2428) - lu(k,1270) * lu(k,2398) - lu(k,1277) = 1._r8 / lu(k,1277) - lu(k,1278) = lu(k,1278) * lu(k,1277) - lu(k,1279) = lu(k,1279) * lu(k,1277) - lu(k,1280) = lu(k,1280) * lu(k,1277) - lu(k,1281) = lu(k,1281) * lu(k,1277) - lu(k,1282) = lu(k,1282) * lu(k,1277) - lu(k,1283) = lu(k,1283) * lu(k,1277) - lu(k,1284) = lu(k,1284) * lu(k,1277) - lu(k,1285) = lu(k,1285) * lu(k,1277) - lu(k,1286) = lu(k,1286) * lu(k,1277) - lu(k,1287) = lu(k,1287) * lu(k,1277) - lu(k,1299) = lu(k,1299) - lu(k,1278) * lu(k,1296) - lu(k,1301) = lu(k,1301) - lu(k,1279) * lu(k,1296) - lu(k,1302) = lu(k,1302) - lu(k,1280) * lu(k,1296) - lu(k,1303) = lu(k,1303) - lu(k,1281) * lu(k,1296) - lu(k,1304) = lu(k,1304) - lu(k,1282) * lu(k,1296) - lu(k,1305) = lu(k,1305) - lu(k,1283) * lu(k,1296) - lu(k,1306) = lu(k,1306) - lu(k,1284) * lu(k,1296) - lu(k,1307) = lu(k,1307) - lu(k,1285) * lu(k,1296) - lu(k,1309) = lu(k,1309) - lu(k,1286) * lu(k,1296) - lu(k,1310) = lu(k,1310) - lu(k,1287) * lu(k,1296) - lu(k,1342) = lu(k,1342) - lu(k,1278) * lu(k,1340) - lu(k,1347) = lu(k,1347) - lu(k,1279) * lu(k,1340) - lu(k,1348) = lu(k,1348) - lu(k,1280) * lu(k,1340) - lu(k,1349) = lu(k,1349) - lu(k,1281) * lu(k,1340) - lu(k,1350) = lu(k,1350) - lu(k,1282) * lu(k,1340) - lu(k,1351) = lu(k,1351) - lu(k,1283) * lu(k,1340) - lu(k,1352) = lu(k,1352) - lu(k,1284) * lu(k,1340) - lu(k,1353) = lu(k,1353) - lu(k,1285) * lu(k,1340) - lu(k,1355) = lu(k,1355) - lu(k,1286) * lu(k,1340) - lu(k,1357) = lu(k,1357) - lu(k,1287) * lu(k,1340) - lu(k,1375) = lu(k,1375) - lu(k,1278) * lu(k,1373) - lu(k,1380) = lu(k,1380) - lu(k,1279) * lu(k,1373) - lu(k,1381) = lu(k,1381) - lu(k,1280) * lu(k,1373) - lu(k,1382) = lu(k,1382) - lu(k,1281) * lu(k,1373) - lu(k,1383) = lu(k,1383) - lu(k,1282) * lu(k,1373) - lu(k,1384) = lu(k,1384) - lu(k,1283) * lu(k,1373) - lu(k,1385) = lu(k,1385) - lu(k,1284) * lu(k,1373) - lu(k,1386) = lu(k,1386) - lu(k,1285) * lu(k,1373) - lu(k,1388) = lu(k,1388) - lu(k,1286) * lu(k,1373) - lu(k,1390) = lu(k,1390) - lu(k,1287) * lu(k,1373) - lu(k,1466) = lu(k,1466) - lu(k,1278) * lu(k,1463) - lu(k,1472) = lu(k,1472) - lu(k,1279) * lu(k,1463) - lu(k,1473) = lu(k,1473) - lu(k,1280) * lu(k,1463) - lu(k,1475) = lu(k,1475) - lu(k,1281) * lu(k,1463) - lu(k,1476) = lu(k,1476) - lu(k,1282) * lu(k,1463) - lu(k,1477) = lu(k,1477) - lu(k,1283) * lu(k,1463) - lu(k,1478) = lu(k,1478) - lu(k,1284) * lu(k,1463) - lu(k,1480) = lu(k,1480) - lu(k,1285) * lu(k,1463) - lu(k,1482) = lu(k,1482) - lu(k,1286) * lu(k,1463) - lu(k,1484) = lu(k,1484) - lu(k,1287) * lu(k,1463) - lu(k,1775) = lu(k,1775) - lu(k,1278) * lu(k,1772) - lu(k,1781) = lu(k,1781) - lu(k,1279) * lu(k,1772) - lu(k,1782) = lu(k,1782) - lu(k,1280) * lu(k,1772) - lu(k,1787) = lu(k,1787) - lu(k,1281) * lu(k,1772) - lu(k,1788) = lu(k,1788) - lu(k,1282) * lu(k,1772) - lu(k,1790) = lu(k,1790) - lu(k,1283) * lu(k,1772) - lu(k,1791) = lu(k,1791) - lu(k,1284) * lu(k,1772) - lu(k,1793) = lu(k,1793) - lu(k,1285) * lu(k,1772) - lu(k,1797) = lu(k,1797) - lu(k,1286) * lu(k,1772) - lu(k,1800) = lu(k,1800) - lu(k,1287) * lu(k,1772) - lu(k,1988) = lu(k,1988) - lu(k,1278) * lu(k,1985) - lu(k,1994) = lu(k,1994) - lu(k,1279) * lu(k,1985) - lu(k,1995) = lu(k,1995) - lu(k,1280) * lu(k,1985) - lu(k,2003) = lu(k,2003) - lu(k,1281) * lu(k,1985) - lu(k,2004) = lu(k,2004) - lu(k,1282) * lu(k,1985) - lu(k,2006) = lu(k,2006) - lu(k,1283) * lu(k,1985) - lu(k,2007) = lu(k,2007) - lu(k,1284) * lu(k,1985) - lu(k,2009) = lu(k,2009) - lu(k,1285) * lu(k,1985) - lu(k,2013) = lu(k,2013) - lu(k,1286) * lu(k,1985) - lu(k,2016) = lu(k,2016) - lu(k,1287) * lu(k,1985) - lu(k,2050) = lu(k,2050) - lu(k,1278) * lu(k,2047) - lu(k,2056) = lu(k,2056) - lu(k,1279) * lu(k,2047) - lu(k,2057) = lu(k,2057) - lu(k,1280) * lu(k,2047) - lu(k,2063) = lu(k,2063) - lu(k,1281) * lu(k,2047) - lu(k,2064) = lu(k,2064) - lu(k,1282) * lu(k,2047) - lu(k,2066) = lu(k,2066) - lu(k,1283) * lu(k,2047) - lu(k,2067) = lu(k,2067) - lu(k,1284) * lu(k,2047) - lu(k,2069) = lu(k,2069) - lu(k,1285) * lu(k,2047) - lu(k,2073) = lu(k,2073) - lu(k,1286) * lu(k,2047) - lu(k,2076) = lu(k,2076) - lu(k,1287) * lu(k,2047) - lu(k,2194) = lu(k,2194) - lu(k,1278) * lu(k,2191) - lu(k,2200) = lu(k,2200) - lu(k,1279) * lu(k,2191) - lu(k,2201) = lu(k,2201) - lu(k,1280) * lu(k,2191) - lu(k,2208) = lu(k,2208) - lu(k,1281) * lu(k,2191) - lu(k,2209) = lu(k,2209) - lu(k,1282) * lu(k,2191) - lu(k,2211) = lu(k,2211) - lu(k,1283) * lu(k,2191) - lu(k,2212) = lu(k,2212) - lu(k,1284) * lu(k,2191) - lu(k,2214) = lu(k,2214) - lu(k,1285) * lu(k,2191) - lu(k,2218) = lu(k,2218) - lu(k,1286) * lu(k,2191) - lu(k,2221) = lu(k,2221) - lu(k,1287) * lu(k,2191) - lu(k,2339) = lu(k,2339) - lu(k,1278) * lu(k,2336) - lu(k,2345) = lu(k,2345) - lu(k,1279) * lu(k,2336) - lu(k,2346) = lu(k,2346) - lu(k,1280) * lu(k,2336) - lu(k,2350) = lu(k,2350) - lu(k,1281) * lu(k,2336) - lu(k,2351) = lu(k,2351) - lu(k,1282) * lu(k,2336) - lu(k,2353) = lu(k,2353) - lu(k,1283) * lu(k,2336) - lu(k,2354) = lu(k,2354) - lu(k,1284) * lu(k,2336) - lu(k,2356) = lu(k,2356) - lu(k,1285) * lu(k,2336) - lu(k,2360) = lu(k,2360) - lu(k,1286) * lu(k,2336) - lu(k,2363) = lu(k,2363) - lu(k,1287) * lu(k,2336) - lu(k,1297) = 1._r8 / lu(k,1297) - lu(k,1298) = lu(k,1298) * lu(k,1297) - lu(k,1299) = lu(k,1299) * lu(k,1297) - lu(k,1300) = lu(k,1300) * lu(k,1297) - lu(k,1301) = lu(k,1301) * lu(k,1297) - lu(k,1302) = lu(k,1302) * lu(k,1297) - lu(k,1303) = lu(k,1303) * lu(k,1297) - lu(k,1304) = lu(k,1304) * lu(k,1297) - lu(k,1305) = lu(k,1305) * lu(k,1297) - lu(k,1306) = lu(k,1306) * lu(k,1297) - lu(k,1307) = lu(k,1307) * lu(k,1297) - lu(k,1308) = lu(k,1308) * lu(k,1297) - lu(k,1309) = lu(k,1309) * lu(k,1297) - lu(k,1310) = lu(k,1310) * lu(k,1297) - lu(k,1465) = lu(k,1465) - lu(k,1298) * lu(k,1464) - lu(k,1466) = lu(k,1466) - lu(k,1299) * lu(k,1464) - lu(k,1470) = lu(k,1470) - lu(k,1300) * lu(k,1464) - lu(k,1472) = lu(k,1472) - lu(k,1301) * lu(k,1464) - lu(k,1473) = lu(k,1473) - lu(k,1302) * lu(k,1464) - lu(k,1475) = lu(k,1475) - lu(k,1303) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,1304) * lu(k,1464) - lu(k,1477) = lu(k,1477) - lu(k,1305) * lu(k,1464) - lu(k,1478) = lu(k,1478) - lu(k,1306) * lu(k,1464) - lu(k,1480) = lu(k,1480) - lu(k,1307) * lu(k,1464) - lu(k,1481) = lu(k,1481) - lu(k,1308) * lu(k,1464) - lu(k,1482) = lu(k,1482) - lu(k,1309) * lu(k,1464) - lu(k,1484) = lu(k,1484) - lu(k,1310) * lu(k,1464) - lu(k,1774) = lu(k,1774) - lu(k,1298) * lu(k,1773) - lu(k,1775) = lu(k,1775) - lu(k,1299) * lu(k,1773) - lu(k,1779) = lu(k,1779) - lu(k,1300) * lu(k,1773) - lu(k,1781) = lu(k,1781) - lu(k,1301) * lu(k,1773) - lu(k,1782) = lu(k,1782) - lu(k,1302) * lu(k,1773) - lu(k,1787) = lu(k,1787) - lu(k,1303) * lu(k,1773) - lu(k,1788) = lu(k,1788) - lu(k,1304) * lu(k,1773) - lu(k,1790) = lu(k,1790) - lu(k,1305) * lu(k,1773) - lu(k,1791) = lu(k,1791) - lu(k,1306) * lu(k,1773) - lu(k,1793) = lu(k,1793) - lu(k,1307) * lu(k,1773) - lu(k,1796) = lu(k,1796) - lu(k,1308) * lu(k,1773) - lu(k,1797) = lu(k,1797) - lu(k,1309) * lu(k,1773) - lu(k,1800) = lu(k,1800) - lu(k,1310) * lu(k,1773) - lu(k,1987) = lu(k,1987) - lu(k,1298) * lu(k,1986) - lu(k,1988) = lu(k,1988) - lu(k,1299) * lu(k,1986) - lu(k,1992) = lu(k,1992) - lu(k,1300) * lu(k,1986) - lu(k,1994) = lu(k,1994) - lu(k,1301) * lu(k,1986) - lu(k,1995) = lu(k,1995) - lu(k,1302) * lu(k,1986) - lu(k,2003) = lu(k,2003) - lu(k,1303) * lu(k,1986) - lu(k,2004) = lu(k,2004) - lu(k,1304) * lu(k,1986) - lu(k,2006) = lu(k,2006) - lu(k,1305) * lu(k,1986) - lu(k,2007) = lu(k,2007) - lu(k,1306) * lu(k,1986) - lu(k,2009) = lu(k,2009) - lu(k,1307) * lu(k,1986) - lu(k,2012) = lu(k,2012) - lu(k,1308) * lu(k,1986) - lu(k,2013) = lu(k,2013) - lu(k,1309) * lu(k,1986) - lu(k,2016) = lu(k,2016) - lu(k,1310) * lu(k,1986) - lu(k,2049) = lu(k,2049) - lu(k,1298) * lu(k,2048) - lu(k,2050) = lu(k,2050) - lu(k,1299) * lu(k,2048) - lu(k,2054) = lu(k,2054) - lu(k,1300) * lu(k,2048) - lu(k,2056) = lu(k,2056) - lu(k,1301) * lu(k,2048) - lu(k,2057) = lu(k,2057) - lu(k,1302) * lu(k,2048) - lu(k,2063) = lu(k,2063) - lu(k,1303) * lu(k,2048) - lu(k,2064) = lu(k,2064) - lu(k,1304) * lu(k,2048) - lu(k,2066) = lu(k,2066) - lu(k,1305) * lu(k,2048) - lu(k,2067) = lu(k,2067) - lu(k,1306) * lu(k,2048) - lu(k,2069) = lu(k,2069) - lu(k,1307) * lu(k,2048) - lu(k,2072) = lu(k,2072) - lu(k,1308) * lu(k,2048) - lu(k,2073) = lu(k,2073) - lu(k,1309) * lu(k,2048) - lu(k,2076) = lu(k,2076) - lu(k,1310) * lu(k,2048) - lu(k,2193) = lu(k,2193) - lu(k,1298) * lu(k,2192) - lu(k,2194) = lu(k,2194) - lu(k,1299) * lu(k,2192) - lu(k,2198) = lu(k,2198) - lu(k,1300) * lu(k,2192) - lu(k,2200) = lu(k,2200) - lu(k,1301) * lu(k,2192) - lu(k,2201) = lu(k,2201) - lu(k,1302) * lu(k,2192) - lu(k,2208) = lu(k,2208) - lu(k,1303) * lu(k,2192) - lu(k,2209) = lu(k,2209) - lu(k,1304) * lu(k,2192) - lu(k,2211) = lu(k,2211) - lu(k,1305) * lu(k,2192) - lu(k,2212) = lu(k,2212) - lu(k,1306) * lu(k,2192) - lu(k,2214) = lu(k,2214) - lu(k,1307) * lu(k,2192) - lu(k,2217) = lu(k,2217) - lu(k,1308) * lu(k,2192) - lu(k,2218) = lu(k,2218) - lu(k,1309) * lu(k,2192) - lu(k,2221) = lu(k,2221) - lu(k,1310) * lu(k,2192) - lu(k,2338) = lu(k,2338) - lu(k,1298) * lu(k,2337) - lu(k,2339) = lu(k,2339) - lu(k,1299) * lu(k,2337) - lu(k,2343) = lu(k,2343) - lu(k,1300) * lu(k,2337) - lu(k,2345) = lu(k,2345) - lu(k,1301) * lu(k,2337) - lu(k,2346) = lu(k,2346) - lu(k,1302) * lu(k,2337) - lu(k,2350) = lu(k,2350) - lu(k,1303) * lu(k,2337) - lu(k,2351) = lu(k,2351) - lu(k,1304) * lu(k,2337) - lu(k,2353) = lu(k,2353) - lu(k,1305) * lu(k,2337) - lu(k,2354) = lu(k,2354) - lu(k,1306) * lu(k,2337) - lu(k,2356) = lu(k,2356) - lu(k,1307) * lu(k,2337) - lu(k,2359) = lu(k,2359) - lu(k,1308) * lu(k,2337) - lu(k,2360) = lu(k,2360) - lu(k,1309) * lu(k,2337) - lu(k,2363) = lu(k,2363) - lu(k,1310) * lu(k,2337) - lu(k,2400) = lu(k,2400) - lu(k,1298) * lu(k,2399) - lu(k,2401) = lu(k,2401) - lu(k,1299) * lu(k,2399) - lu(k,2405) = lu(k,2405) - lu(k,1300) * lu(k,2399) - lu(k,2407) = lu(k,2407) - lu(k,1301) * lu(k,2399) - lu(k,2408) = lu(k,2408) - lu(k,1302) * lu(k,2399) - lu(k,2414) = lu(k,2414) - lu(k,1303) * lu(k,2399) - lu(k,2415) = lu(k,2415) - lu(k,1304) * lu(k,2399) - lu(k,2417) = lu(k,2417) - lu(k,1305) * lu(k,2399) - lu(k,2418) = lu(k,2418) - lu(k,1306) * lu(k,2399) - lu(k,2420) = lu(k,2420) - lu(k,1307) * lu(k,2399) - lu(k,2423) = lu(k,2423) - lu(k,1308) * lu(k,2399) - lu(k,2424) = lu(k,2424) - lu(k,1309) * lu(k,2399) - lu(k,2427) = lu(k,2427) - lu(k,1310) * lu(k,2399) - lu(k,1313) = 1._r8 / lu(k,1313) - lu(k,1314) = lu(k,1314) * lu(k,1313) - lu(k,1315) = lu(k,1315) * lu(k,1313) - lu(k,1316) = lu(k,1316) * lu(k,1313) - lu(k,1317) = lu(k,1317) * lu(k,1313) - lu(k,1318) = lu(k,1318) * lu(k,1313) - lu(k,1319) = lu(k,1319) * lu(k,1313) - lu(k,1320) = lu(k,1320) * lu(k,1313) - lu(k,1321) = lu(k,1321) * lu(k,1313) - lu(k,1322) = lu(k,1322) * lu(k,1313) - lu(k,1323) = lu(k,1323) * lu(k,1313) - lu(k,1342) = lu(k,1342) - lu(k,1314) * lu(k,1341) - lu(k,1344) = - lu(k,1315) * lu(k,1341) - lu(k,1346) = - lu(k,1316) * lu(k,1341) - lu(k,1347) = lu(k,1347) - lu(k,1317) * lu(k,1341) - lu(k,1348) = lu(k,1348) - lu(k,1318) * lu(k,1341) - lu(k,1351) = lu(k,1351) - lu(k,1319) * lu(k,1341) - lu(k,1353) = lu(k,1353) - lu(k,1320) * lu(k,1341) - lu(k,1356) = - lu(k,1321) * lu(k,1341) - lu(k,1357) = lu(k,1357) - lu(k,1322) * lu(k,1341) - lu(k,1358) = lu(k,1358) - lu(k,1323) * lu(k,1341) - lu(k,1375) = lu(k,1375) - lu(k,1314) * lu(k,1374) - lu(k,1377) = - lu(k,1315) * lu(k,1374) - lu(k,1379) = - lu(k,1316) * lu(k,1374) - lu(k,1380) = lu(k,1380) - lu(k,1317) * lu(k,1374) - lu(k,1381) = lu(k,1381) - lu(k,1318) * lu(k,1374) - lu(k,1384) = lu(k,1384) - lu(k,1319) * lu(k,1374) - lu(k,1386) = lu(k,1386) - lu(k,1320) * lu(k,1374) - lu(k,1389) = - lu(k,1321) * lu(k,1374) - lu(k,1390) = lu(k,1390) - lu(k,1322) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,1323) * lu(k,1374) - lu(k,1466) = lu(k,1466) - lu(k,1314) * lu(k,1465) - lu(k,1469) = lu(k,1469) - lu(k,1315) * lu(k,1465) - lu(k,1471) = lu(k,1471) - lu(k,1316) * lu(k,1465) - lu(k,1472) = lu(k,1472) - lu(k,1317) * lu(k,1465) - lu(k,1473) = lu(k,1473) - lu(k,1318) * lu(k,1465) - lu(k,1477) = lu(k,1477) - lu(k,1319) * lu(k,1465) - lu(k,1480) = lu(k,1480) - lu(k,1320) * lu(k,1465) - lu(k,1483) = lu(k,1483) - lu(k,1321) * lu(k,1465) - lu(k,1484) = lu(k,1484) - lu(k,1322) * lu(k,1465) - lu(k,1485) = lu(k,1485) - lu(k,1323) * lu(k,1465) - lu(k,1775) = lu(k,1775) - lu(k,1314) * lu(k,1774) - lu(k,1778) = lu(k,1778) - lu(k,1315) * lu(k,1774) - lu(k,1780) = lu(k,1780) - lu(k,1316) * lu(k,1774) - lu(k,1781) = lu(k,1781) - lu(k,1317) * lu(k,1774) - lu(k,1782) = lu(k,1782) - lu(k,1318) * lu(k,1774) - lu(k,1790) = lu(k,1790) - lu(k,1319) * lu(k,1774) - lu(k,1793) = lu(k,1793) - lu(k,1320) * lu(k,1774) - lu(k,1798) = lu(k,1798) - lu(k,1321) * lu(k,1774) - lu(k,1800) = lu(k,1800) - lu(k,1322) * lu(k,1774) - lu(k,1801) = lu(k,1801) - lu(k,1323) * lu(k,1774) - lu(k,1988) = lu(k,1988) - lu(k,1314) * lu(k,1987) - lu(k,1991) = lu(k,1991) - lu(k,1315) * lu(k,1987) - lu(k,1993) = lu(k,1993) - lu(k,1316) * lu(k,1987) - lu(k,1994) = lu(k,1994) - lu(k,1317) * lu(k,1987) - lu(k,1995) = lu(k,1995) - lu(k,1318) * lu(k,1987) - lu(k,2006) = lu(k,2006) - lu(k,1319) * lu(k,1987) - lu(k,2009) = lu(k,2009) - lu(k,1320) * lu(k,1987) - lu(k,2014) = lu(k,2014) - lu(k,1321) * lu(k,1987) - lu(k,2016) = lu(k,2016) - lu(k,1322) * lu(k,1987) - lu(k,2017) = lu(k,2017) - lu(k,1323) * lu(k,1987) - lu(k,2050) = lu(k,2050) - lu(k,1314) * lu(k,2049) - lu(k,2053) = lu(k,2053) - lu(k,1315) * lu(k,2049) - lu(k,2055) = lu(k,2055) - lu(k,1316) * lu(k,2049) - lu(k,2056) = lu(k,2056) - lu(k,1317) * lu(k,2049) - lu(k,2057) = lu(k,2057) - lu(k,1318) * lu(k,2049) - lu(k,2066) = lu(k,2066) - lu(k,1319) * lu(k,2049) - lu(k,2069) = lu(k,2069) - lu(k,1320) * lu(k,2049) - lu(k,2074) = lu(k,2074) - lu(k,1321) * lu(k,2049) - lu(k,2076) = lu(k,2076) - lu(k,1322) * lu(k,2049) - lu(k,2077) = lu(k,2077) - lu(k,1323) * lu(k,2049) - lu(k,2194) = lu(k,2194) - lu(k,1314) * lu(k,2193) - lu(k,2197) = lu(k,2197) - lu(k,1315) * lu(k,2193) - lu(k,2199) = lu(k,2199) - lu(k,1316) * lu(k,2193) - lu(k,2200) = lu(k,2200) - lu(k,1317) * lu(k,2193) - lu(k,2201) = lu(k,2201) - lu(k,1318) * lu(k,2193) - lu(k,2211) = lu(k,2211) - lu(k,1319) * lu(k,2193) - lu(k,2214) = lu(k,2214) - lu(k,1320) * lu(k,2193) - lu(k,2219) = lu(k,2219) - lu(k,1321) * lu(k,2193) - lu(k,2221) = lu(k,2221) - lu(k,1322) * lu(k,2193) - lu(k,2222) = lu(k,2222) - lu(k,1323) * lu(k,2193) - lu(k,2339) = lu(k,2339) - lu(k,1314) * lu(k,2338) - lu(k,2342) = lu(k,2342) - lu(k,1315) * lu(k,2338) - lu(k,2344) = lu(k,2344) - lu(k,1316) * lu(k,2338) - lu(k,2345) = lu(k,2345) - lu(k,1317) * lu(k,2338) - lu(k,2346) = lu(k,2346) - lu(k,1318) * lu(k,2338) - lu(k,2353) = lu(k,2353) - lu(k,1319) * lu(k,2338) - lu(k,2356) = lu(k,2356) - lu(k,1320) * lu(k,2338) - lu(k,2361) = - lu(k,1321) * lu(k,2338) - lu(k,2363) = lu(k,2363) - lu(k,1322) * lu(k,2338) - lu(k,2364) = lu(k,2364) - lu(k,1323) * lu(k,2338) - lu(k,2401) = lu(k,2401) - lu(k,1314) * lu(k,2400) - lu(k,2404) = - lu(k,1315) * lu(k,2400) - lu(k,2406) = - lu(k,1316) * lu(k,2400) - lu(k,2407) = lu(k,2407) - lu(k,1317) * lu(k,2400) - lu(k,2408) = lu(k,2408) - lu(k,1318) * lu(k,2400) - lu(k,2417) = lu(k,2417) - lu(k,1319) * lu(k,2400) - lu(k,2420) = lu(k,2420) - lu(k,1320) * lu(k,2400) - lu(k,2425) = lu(k,2425) - lu(k,1321) * lu(k,2400) - lu(k,2427) = lu(k,2427) - lu(k,1322) * lu(k,2400) - lu(k,2428) = lu(k,2428) - lu(k,1323) * lu(k,2400) + lu(k,1262) = 1._r8 / lu(k,1262) + lu(k,1263) = lu(k,1263) * lu(k,1262) + lu(k,1264) = lu(k,1264) * lu(k,1262) + lu(k,1265) = lu(k,1265) * lu(k,1262) + lu(k,1266) = lu(k,1266) * lu(k,1262) + lu(k,1267) = lu(k,1267) * lu(k,1262) + lu(k,1268) = lu(k,1268) * lu(k,1262) + lu(k,1269) = lu(k,1269) * lu(k,1262) + lu(k,1270) = lu(k,1270) * lu(k,1262) + lu(k,1271) = lu(k,1271) * lu(k,1262) + lu(k,1343) = lu(k,1343) - lu(k,1263) * lu(k,1340) + lu(k,1348) = lu(k,1348) - lu(k,1264) * lu(k,1340) + lu(k,1350) = lu(k,1350) - lu(k,1265) * lu(k,1340) + lu(k,1351) = lu(k,1351) - lu(k,1266) * lu(k,1340) + lu(k,1352) = lu(k,1352) - lu(k,1267) * lu(k,1340) + lu(k,1354) = lu(k,1354) - lu(k,1268) * lu(k,1340) + lu(k,1356) = lu(k,1356) - lu(k,1269) * lu(k,1340) + lu(k,1358) = lu(k,1358) - lu(k,1270) * lu(k,1340) + lu(k,1359) = lu(k,1359) - lu(k,1271) * lu(k,1340) + lu(k,1376) = lu(k,1376) - lu(k,1263) * lu(k,1373) + lu(k,1381) = lu(k,1381) - lu(k,1264) * lu(k,1373) + lu(k,1383) = lu(k,1383) - lu(k,1265) * lu(k,1373) + lu(k,1384) = lu(k,1384) - lu(k,1266) * lu(k,1373) + lu(k,1385) = lu(k,1385) - lu(k,1267) * lu(k,1373) + lu(k,1387) = lu(k,1387) - lu(k,1268) * lu(k,1373) + lu(k,1389) = lu(k,1389) - lu(k,1269) * lu(k,1373) + lu(k,1391) = lu(k,1391) - lu(k,1270) * lu(k,1373) + lu(k,1392) = lu(k,1392) - lu(k,1271) * lu(k,1373) + lu(k,1400) = lu(k,1400) - lu(k,1263) * lu(k,1399) + lu(k,1403) = lu(k,1403) - lu(k,1264) * lu(k,1399) + lu(k,1405) = lu(k,1405) - lu(k,1265) * lu(k,1399) + lu(k,1406) = lu(k,1406) - lu(k,1266) * lu(k,1399) + lu(k,1407) = lu(k,1407) - lu(k,1267) * lu(k,1399) + lu(k,1408) = lu(k,1408) - lu(k,1268) * lu(k,1399) + lu(k,1410) = lu(k,1410) - lu(k,1269) * lu(k,1399) + lu(k,1412) = lu(k,1412) - lu(k,1270) * lu(k,1399) + lu(k,1413) = lu(k,1413) - lu(k,1271) * lu(k,1399) + lu(k,1838) = lu(k,1838) - lu(k,1263) * lu(k,1834) + lu(k,1844) = lu(k,1844) - lu(k,1264) * lu(k,1834) + lu(k,1853) = lu(k,1853) - lu(k,1265) * lu(k,1834) + lu(k,1854) = lu(k,1854) - lu(k,1266) * lu(k,1834) + lu(k,1855) = lu(k,1855) - lu(k,1267) * lu(k,1834) + lu(k,1860) = lu(k,1860) - lu(k,1268) * lu(k,1834) + lu(k,1863) = lu(k,1863) - lu(k,1269) * lu(k,1834) + lu(k,1865) = lu(k,1865) - lu(k,1270) * lu(k,1834) + lu(k,1867) = lu(k,1867) - lu(k,1271) * lu(k,1834) + lu(k,1948) = lu(k,1948) - lu(k,1263) * lu(k,1944) + lu(k,1954) = lu(k,1954) - lu(k,1264) * lu(k,1944) + lu(k,1960) = lu(k,1960) - lu(k,1265) * lu(k,1944) + lu(k,1961) = lu(k,1961) - lu(k,1266) * lu(k,1944) + lu(k,1962) = lu(k,1962) - lu(k,1267) * lu(k,1944) + lu(k,1967) = lu(k,1967) - lu(k,1268) * lu(k,1944) + lu(k,1970) = lu(k,1970) - lu(k,1269) * lu(k,1944) + lu(k,1972) = lu(k,1972) - lu(k,1270) * lu(k,1944) + lu(k,1974) = lu(k,1974) - lu(k,1271) * lu(k,1944) + lu(k,1997) = - lu(k,1263) * lu(k,1996) + lu(k,1998) = lu(k,1998) - lu(k,1264) * lu(k,1996) + lu(k,2006) = lu(k,2006) - lu(k,1265) * lu(k,1996) + lu(k,2007) = lu(k,2007) - lu(k,1266) * lu(k,1996) + lu(k,2008) = lu(k,2008) - lu(k,1267) * lu(k,1996) + lu(k,2013) = lu(k,2013) - lu(k,1268) * lu(k,1996) + lu(k,2016) = lu(k,2016) - lu(k,1269) * lu(k,1996) + lu(k,2018) = lu(k,2018) - lu(k,1270) * lu(k,1996) + lu(k,2020) = lu(k,2020) - lu(k,1271) * lu(k,1996) + lu(k,2100) = lu(k,2100) - lu(k,1263) * lu(k,2097) + lu(k,2106) = lu(k,2106) - lu(k,1264) * lu(k,2097) + lu(k,2113) = lu(k,2113) - lu(k,1265) * lu(k,2097) + lu(k,2114) = lu(k,2114) - lu(k,1266) * lu(k,2097) + lu(k,2115) = lu(k,2115) - lu(k,1267) * lu(k,2097) + lu(k,2120) = lu(k,2120) - lu(k,1268) * lu(k,2097) + lu(k,2123) = lu(k,2123) - lu(k,1269) * lu(k,2097) + lu(k,2125) = lu(k,2125) - lu(k,1270) * lu(k,2097) + lu(k,2127) = lu(k,2127) - lu(k,1271) * lu(k,2097) + lu(k,2175) = lu(k,2175) - lu(k,1263) * lu(k,2171) + lu(k,2181) = lu(k,2181) - lu(k,1264) * lu(k,2171) + lu(k,2186) = lu(k,2186) - lu(k,1265) * lu(k,2171) + lu(k,2187) = lu(k,2187) - lu(k,1266) * lu(k,2171) + lu(k,2188) = lu(k,2188) - lu(k,1267) * lu(k,2171) + lu(k,2193) = lu(k,2193) - lu(k,1268) * lu(k,2171) + lu(k,2196) = lu(k,2196) - lu(k,1269) * lu(k,2171) + lu(k,2198) = lu(k,2198) - lu(k,1270) * lu(k,2171) + lu(k,2200) = lu(k,2200) - lu(k,1271) * lu(k,2171) + lu(k,2358) = lu(k,2358) - lu(k,1263) * lu(k,2354) + lu(k,2364) = lu(k,2364) - lu(k,1264) * lu(k,2354) + lu(k,2372) = lu(k,2372) - lu(k,1265) * lu(k,2354) + lu(k,2373) = lu(k,2373) - lu(k,1266) * lu(k,2354) + lu(k,2374) = lu(k,2374) - lu(k,1267) * lu(k,2354) + lu(k,2379) = lu(k,2379) - lu(k,1268) * lu(k,2354) + lu(k,2382) = lu(k,2382) - lu(k,1269) * lu(k,2354) + lu(k,2384) = lu(k,2384) - lu(k,1270) * lu(k,2354) + lu(k,2386) = lu(k,2386) - lu(k,1271) * lu(k,2354) + lu(k,2419) = lu(k,2419) - lu(k,1263) * lu(k,2415) + lu(k,2425) = lu(k,2425) - lu(k,1264) * lu(k,2415) + lu(k,2432) = lu(k,2432) - lu(k,1265) * lu(k,2415) + lu(k,2433) = lu(k,2433) - lu(k,1266) * lu(k,2415) + lu(k,2434) = lu(k,2434) - lu(k,1267) * lu(k,2415) + lu(k,2439) = lu(k,2439) - lu(k,1268) * lu(k,2415) + lu(k,2442) = lu(k,2442) - lu(k,1269) * lu(k,2415) + lu(k,2444) = lu(k,2444) - lu(k,1270) * lu(k,2415) + lu(k,2446) = lu(k,2446) - lu(k,1271) * lu(k,2415) + lu(k,1278) = 1._r8 / lu(k,1278) + lu(k,1279) = lu(k,1279) * lu(k,1278) + lu(k,1280) = lu(k,1280) * lu(k,1278) + lu(k,1281) = lu(k,1281) * lu(k,1278) + lu(k,1282) = lu(k,1282) * lu(k,1278) + lu(k,1283) = lu(k,1283) * lu(k,1278) + lu(k,1284) = lu(k,1284) * lu(k,1278) + lu(k,1285) = lu(k,1285) * lu(k,1278) + lu(k,1286) = lu(k,1286) * lu(k,1278) + lu(k,1287) = lu(k,1287) * lu(k,1278) + lu(k,1288) = lu(k,1288) * lu(k,1278) + lu(k,1300) = lu(k,1300) - lu(k,1279) * lu(k,1297) + lu(k,1302) = lu(k,1302) - lu(k,1280) * lu(k,1297) + lu(k,1303) = lu(k,1303) - lu(k,1281) * lu(k,1297) + lu(k,1304) = lu(k,1304) - lu(k,1282) * lu(k,1297) + lu(k,1305) = lu(k,1305) - lu(k,1283) * lu(k,1297) + lu(k,1306) = lu(k,1306) - lu(k,1284) * lu(k,1297) + lu(k,1307) = lu(k,1307) - lu(k,1285) * lu(k,1297) + lu(k,1309) = lu(k,1309) - lu(k,1286) * lu(k,1297) + lu(k,1310) = lu(k,1310) - lu(k,1287) * lu(k,1297) + lu(k,1311) = lu(k,1311) - lu(k,1288) * lu(k,1297) + lu(k,1343) = lu(k,1343) - lu(k,1279) * lu(k,1341) + lu(k,1348) = lu(k,1348) - lu(k,1280) * lu(k,1341) + lu(k,1349) = lu(k,1349) - lu(k,1281) * lu(k,1341) + lu(k,1350) = lu(k,1350) - lu(k,1282) * lu(k,1341) + lu(k,1351) = lu(k,1351) - lu(k,1283) * lu(k,1341) + lu(k,1352) = lu(k,1352) - lu(k,1284) * lu(k,1341) + lu(k,1354) = lu(k,1354) - lu(k,1285) * lu(k,1341) + lu(k,1356) = lu(k,1356) - lu(k,1286) * lu(k,1341) + lu(k,1357) = lu(k,1357) - lu(k,1287) * lu(k,1341) + lu(k,1358) = lu(k,1358) - lu(k,1288) * lu(k,1341) + lu(k,1376) = lu(k,1376) - lu(k,1279) * lu(k,1374) + lu(k,1381) = lu(k,1381) - lu(k,1280) * lu(k,1374) + lu(k,1382) = lu(k,1382) - lu(k,1281) * lu(k,1374) + lu(k,1383) = lu(k,1383) - lu(k,1282) * lu(k,1374) + lu(k,1384) = lu(k,1384) - lu(k,1283) * lu(k,1374) + lu(k,1385) = lu(k,1385) - lu(k,1284) * lu(k,1374) + lu(k,1387) = lu(k,1387) - lu(k,1285) * lu(k,1374) + lu(k,1389) = lu(k,1389) - lu(k,1286) * lu(k,1374) + lu(k,1390) = lu(k,1390) - lu(k,1287) * lu(k,1374) + lu(k,1391) = lu(k,1391) - lu(k,1288) * lu(k,1374) + lu(k,1467) = lu(k,1467) - lu(k,1279) * lu(k,1464) + lu(k,1473) = lu(k,1473) - lu(k,1280) * lu(k,1464) + lu(k,1474) = lu(k,1474) - lu(k,1281) * lu(k,1464) + lu(k,1477) = lu(k,1477) - lu(k,1282) * lu(k,1464) + lu(k,1478) = lu(k,1478) - lu(k,1283) * lu(k,1464) + lu(k,1479) = lu(k,1479) - lu(k,1284) * lu(k,1464) + lu(k,1481) = lu(k,1481) - lu(k,1285) * lu(k,1464) + lu(k,1483) = lu(k,1483) - lu(k,1286) * lu(k,1464) + lu(k,1484) = lu(k,1484) - lu(k,1287) * lu(k,1464) + lu(k,1485) = lu(k,1485) - lu(k,1288) * lu(k,1464) + lu(k,1838) = lu(k,1838) - lu(k,1279) * lu(k,1835) + lu(k,1844) = lu(k,1844) - lu(k,1280) * lu(k,1835) + lu(k,1845) = lu(k,1845) - lu(k,1281) * lu(k,1835) + lu(k,1853) = lu(k,1853) - lu(k,1282) * lu(k,1835) + lu(k,1854) = lu(k,1854) - lu(k,1283) * lu(k,1835) + lu(k,1855) = lu(k,1855) - lu(k,1284) * lu(k,1835) + lu(k,1860) = lu(k,1860) - lu(k,1285) * lu(k,1835) + lu(k,1863) = lu(k,1863) - lu(k,1286) * lu(k,1835) + lu(k,1864) = lu(k,1864) - lu(k,1287) * lu(k,1835) + lu(k,1865) = lu(k,1865) - lu(k,1288) * lu(k,1835) + lu(k,1948) = lu(k,1948) - lu(k,1279) * lu(k,1945) + lu(k,1954) = lu(k,1954) - lu(k,1280) * lu(k,1945) + lu(k,1955) = lu(k,1955) - lu(k,1281) * lu(k,1945) + lu(k,1960) = lu(k,1960) - lu(k,1282) * lu(k,1945) + lu(k,1961) = lu(k,1961) - lu(k,1283) * lu(k,1945) + lu(k,1962) = lu(k,1962) - lu(k,1284) * lu(k,1945) + lu(k,1967) = lu(k,1967) - lu(k,1285) * lu(k,1945) + lu(k,1970) = lu(k,1970) - lu(k,1286) * lu(k,1945) + lu(k,1971) = lu(k,1971) - lu(k,1287) * lu(k,1945) + lu(k,1972) = lu(k,1972) - lu(k,1288) * lu(k,1945) + lu(k,2175) = lu(k,2175) - lu(k,1279) * lu(k,2172) + lu(k,2181) = lu(k,2181) - lu(k,1280) * lu(k,2172) + lu(k,2182) = lu(k,2182) - lu(k,1281) * lu(k,2172) + lu(k,2186) = lu(k,2186) - lu(k,1282) * lu(k,2172) + lu(k,2187) = lu(k,2187) - lu(k,1283) * lu(k,2172) + lu(k,2188) = lu(k,2188) - lu(k,1284) * lu(k,2172) + lu(k,2193) = lu(k,2193) - lu(k,1285) * lu(k,2172) + lu(k,2196) = lu(k,2196) - lu(k,1286) * lu(k,2172) + lu(k,2197) = lu(k,2197) - lu(k,1287) * lu(k,2172) + lu(k,2198) = lu(k,2198) - lu(k,1288) * lu(k,2172) + lu(k,2358) = lu(k,2358) - lu(k,1279) * lu(k,2355) + lu(k,2364) = lu(k,2364) - lu(k,1280) * lu(k,2355) + lu(k,2365) = lu(k,2365) - lu(k,1281) * lu(k,2355) + lu(k,2372) = lu(k,2372) - lu(k,1282) * lu(k,2355) + lu(k,2373) = lu(k,2373) - lu(k,1283) * lu(k,2355) + lu(k,2374) = lu(k,2374) - lu(k,1284) * lu(k,2355) + lu(k,2379) = lu(k,2379) - lu(k,1285) * lu(k,2355) + lu(k,2382) = lu(k,2382) - lu(k,1286) * lu(k,2355) + lu(k,2383) = lu(k,2383) - lu(k,1287) * lu(k,2355) + lu(k,2384) = lu(k,2384) - lu(k,1288) * lu(k,2355) + lu(k,2419) = lu(k,2419) - lu(k,1279) * lu(k,2416) + lu(k,2425) = lu(k,2425) - lu(k,1280) * lu(k,2416) + lu(k,2426) = lu(k,2426) - lu(k,1281) * lu(k,2416) + lu(k,2432) = lu(k,2432) - lu(k,1282) * lu(k,2416) + lu(k,2433) = lu(k,2433) - lu(k,1283) * lu(k,2416) + lu(k,2434) = lu(k,2434) - lu(k,1284) * lu(k,2416) + lu(k,2439) = lu(k,2439) - lu(k,1285) * lu(k,2416) + lu(k,2442) = lu(k,2442) - lu(k,1286) * lu(k,2416) + lu(k,2443) = lu(k,2443) - lu(k,1287) * lu(k,2416) + lu(k,2444) = lu(k,2444) - lu(k,1288) * lu(k,2416) + lu(k,1298) = 1._r8 / lu(k,1298) + lu(k,1299) = lu(k,1299) * lu(k,1298) + lu(k,1300) = lu(k,1300) * lu(k,1298) + lu(k,1301) = lu(k,1301) * lu(k,1298) + lu(k,1302) = lu(k,1302) * lu(k,1298) + lu(k,1303) = lu(k,1303) * lu(k,1298) + lu(k,1304) = lu(k,1304) * lu(k,1298) + lu(k,1305) = lu(k,1305) * lu(k,1298) + lu(k,1306) = lu(k,1306) * lu(k,1298) + lu(k,1307) = lu(k,1307) * lu(k,1298) + lu(k,1308) = lu(k,1308) * lu(k,1298) + lu(k,1309) = lu(k,1309) * lu(k,1298) + lu(k,1310) = lu(k,1310) * lu(k,1298) + lu(k,1311) = lu(k,1311) * lu(k,1298) + lu(k,1466) = lu(k,1466) - lu(k,1299) * lu(k,1465) + lu(k,1467) = lu(k,1467) - lu(k,1300) * lu(k,1465) + lu(k,1471) = lu(k,1471) - lu(k,1301) * lu(k,1465) + lu(k,1473) = lu(k,1473) - lu(k,1302) * lu(k,1465) + lu(k,1474) = lu(k,1474) - lu(k,1303) * lu(k,1465) + lu(k,1477) = lu(k,1477) - lu(k,1304) * lu(k,1465) + lu(k,1478) = lu(k,1478) - lu(k,1305) * lu(k,1465) + lu(k,1479) = lu(k,1479) - lu(k,1306) * lu(k,1465) + lu(k,1481) = lu(k,1481) - lu(k,1307) * lu(k,1465) + lu(k,1482) = lu(k,1482) - lu(k,1308) * lu(k,1465) + lu(k,1483) = lu(k,1483) - lu(k,1309) * lu(k,1465) + lu(k,1484) = lu(k,1484) - lu(k,1310) * lu(k,1465) + lu(k,1485) = lu(k,1485) - lu(k,1311) * lu(k,1465) + lu(k,1837) = lu(k,1837) - lu(k,1299) * lu(k,1836) + lu(k,1838) = lu(k,1838) - lu(k,1300) * lu(k,1836) + lu(k,1842) = lu(k,1842) - lu(k,1301) * lu(k,1836) + lu(k,1844) = lu(k,1844) - lu(k,1302) * lu(k,1836) + lu(k,1845) = lu(k,1845) - lu(k,1303) * lu(k,1836) + lu(k,1853) = lu(k,1853) - lu(k,1304) * lu(k,1836) + lu(k,1854) = lu(k,1854) - lu(k,1305) * lu(k,1836) + lu(k,1855) = lu(k,1855) - lu(k,1306) * lu(k,1836) + lu(k,1860) = lu(k,1860) - lu(k,1307) * lu(k,1836) + lu(k,1862) = lu(k,1862) - lu(k,1308) * lu(k,1836) + lu(k,1863) = lu(k,1863) - lu(k,1309) * lu(k,1836) + lu(k,1864) = lu(k,1864) - lu(k,1310) * lu(k,1836) + lu(k,1865) = lu(k,1865) - lu(k,1311) * lu(k,1836) + lu(k,1947) = lu(k,1947) - lu(k,1299) * lu(k,1946) + lu(k,1948) = lu(k,1948) - lu(k,1300) * lu(k,1946) + lu(k,1952) = lu(k,1952) - lu(k,1301) * lu(k,1946) + lu(k,1954) = lu(k,1954) - lu(k,1302) * lu(k,1946) + lu(k,1955) = lu(k,1955) - lu(k,1303) * lu(k,1946) + lu(k,1960) = lu(k,1960) - lu(k,1304) * lu(k,1946) + lu(k,1961) = lu(k,1961) - lu(k,1305) * lu(k,1946) + lu(k,1962) = lu(k,1962) - lu(k,1306) * lu(k,1946) + lu(k,1967) = lu(k,1967) - lu(k,1307) * lu(k,1946) + lu(k,1969) = lu(k,1969) - lu(k,1308) * lu(k,1946) + lu(k,1970) = lu(k,1970) - lu(k,1309) * lu(k,1946) + lu(k,1971) = lu(k,1971) - lu(k,1310) * lu(k,1946) + lu(k,1972) = lu(k,1972) - lu(k,1311) * lu(k,1946) + lu(k,2099) = lu(k,2099) - lu(k,1299) * lu(k,2098) + lu(k,2100) = lu(k,2100) - lu(k,1300) * lu(k,2098) + lu(k,2104) = lu(k,2104) - lu(k,1301) * lu(k,2098) + lu(k,2106) = lu(k,2106) - lu(k,1302) * lu(k,2098) + lu(k,2107) = lu(k,2107) - lu(k,1303) * lu(k,2098) + lu(k,2113) = lu(k,2113) - lu(k,1304) * lu(k,2098) + lu(k,2114) = lu(k,2114) - lu(k,1305) * lu(k,2098) + lu(k,2115) = lu(k,2115) - lu(k,1306) * lu(k,2098) + lu(k,2120) = lu(k,2120) - lu(k,1307) * lu(k,2098) + lu(k,2122) = lu(k,2122) - lu(k,1308) * lu(k,2098) + lu(k,2123) = lu(k,2123) - lu(k,1309) * lu(k,2098) + lu(k,2124) = lu(k,2124) - lu(k,1310) * lu(k,2098) + lu(k,2125) = lu(k,2125) - lu(k,1311) * lu(k,2098) + lu(k,2174) = lu(k,2174) - lu(k,1299) * lu(k,2173) + lu(k,2175) = lu(k,2175) - lu(k,1300) * lu(k,2173) + lu(k,2179) = lu(k,2179) - lu(k,1301) * lu(k,2173) + lu(k,2181) = lu(k,2181) - lu(k,1302) * lu(k,2173) + lu(k,2182) = lu(k,2182) - lu(k,1303) * lu(k,2173) + lu(k,2186) = lu(k,2186) - lu(k,1304) * lu(k,2173) + lu(k,2187) = lu(k,2187) - lu(k,1305) * lu(k,2173) + lu(k,2188) = lu(k,2188) - lu(k,1306) * lu(k,2173) + lu(k,2193) = lu(k,2193) - lu(k,1307) * lu(k,2173) + lu(k,2195) = lu(k,2195) - lu(k,1308) * lu(k,2173) + lu(k,2196) = lu(k,2196) - lu(k,1309) * lu(k,2173) + lu(k,2197) = lu(k,2197) - lu(k,1310) * lu(k,2173) + lu(k,2198) = lu(k,2198) - lu(k,1311) * lu(k,2173) + lu(k,2357) = lu(k,2357) - lu(k,1299) * lu(k,2356) + lu(k,2358) = lu(k,2358) - lu(k,1300) * lu(k,2356) + lu(k,2362) = lu(k,2362) - lu(k,1301) * lu(k,2356) + lu(k,2364) = lu(k,2364) - lu(k,1302) * lu(k,2356) + lu(k,2365) = lu(k,2365) - lu(k,1303) * lu(k,2356) + lu(k,2372) = lu(k,2372) - lu(k,1304) * lu(k,2356) + lu(k,2373) = lu(k,2373) - lu(k,1305) * lu(k,2356) + lu(k,2374) = lu(k,2374) - lu(k,1306) * lu(k,2356) + lu(k,2379) = lu(k,2379) - lu(k,1307) * lu(k,2356) + lu(k,2381) = lu(k,2381) - lu(k,1308) * lu(k,2356) + lu(k,2382) = lu(k,2382) - lu(k,1309) * lu(k,2356) + lu(k,2383) = lu(k,2383) - lu(k,1310) * lu(k,2356) + lu(k,2384) = lu(k,2384) - lu(k,1311) * lu(k,2356) + lu(k,2418) = lu(k,2418) - lu(k,1299) * lu(k,2417) + lu(k,2419) = lu(k,2419) - lu(k,1300) * lu(k,2417) + lu(k,2423) = lu(k,2423) - lu(k,1301) * lu(k,2417) + lu(k,2425) = lu(k,2425) - lu(k,1302) * lu(k,2417) + lu(k,2426) = lu(k,2426) - lu(k,1303) * lu(k,2417) + lu(k,2432) = lu(k,2432) - lu(k,1304) * lu(k,2417) + lu(k,2433) = lu(k,2433) - lu(k,1305) * lu(k,2417) + lu(k,2434) = lu(k,2434) - lu(k,1306) * lu(k,2417) + lu(k,2439) = lu(k,2439) - lu(k,1307) * lu(k,2417) + lu(k,2441) = lu(k,2441) - lu(k,1308) * lu(k,2417) + lu(k,2442) = lu(k,2442) - lu(k,1309) * lu(k,2417) + lu(k,2443) = lu(k,2443) - lu(k,1310) * lu(k,2417) + lu(k,2444) = lu(k,2444) - lu(k,1311) * lu(k,2417) + lu(k,1314) = 1._r8 / lu(k,1314) + lu(k,1315) = lu(k,1315) * lu(k,1314) + lu(k,1316) = lu(k,1316) * lu(k,1314) + lu(k,1317) = lu(k,1317) * lu(k,1314) + lu(k,1318) = lu(k,1318) * lu(k,1314) + lu(k,1319) = lu(k,1319) * lu(k,1314) + lu(k,1320) = lu(k,1320) * lu(k,1314) + lu(k,1321) = lu(k,1321) * lu(k,1314) + lu(k,1322) = lu(k,1322) * lu(k,1314) + lu(k,1323) = lu(k,1323) * lu(k,1314) + lu(k,1324) = lu(k,1324) * lu(k,1314) + lu(k,1343) = lu(k,1343) - lu(k,1315) * lu(k,1342) + lu(k,1345) = - lu(k,1316) * lu(k,1342) + lu(k,1347) = - lu(k,1317) * lu(k,1342) + lu(k,1348) = lu(k,1348) - lu(k,1318) * lu(k,1342) + lu(k,1349) = lu(k,1349) - lu(k,1319) * lu(k,1342) + lu(k,1351) = lu(k,1351) - lu(k,1320) * lu(k,1342) + lu(k,1353) = - lu(k,1321) * lu(k,1342) + lu(k,1356) = lu(k,1356) - lu(k,1322) * lu(k,1342) + lu(k,1358) = lu(k,1358) - lu(k,1323) * lu(k,1342) + lu(k,1359) = lu(k,1359) - lu(k,1324) * lu(k,1342) + lu(k,1376) = lu(k,1376) - lu(k,1315) * lu(k,1375) + lu(k,1378) = - lu(k,1316) * lu(k,1375) + lu(k,1380) = - lu(k,1317) * lu(k,1375) + lu(k,1381) = lu(k,1381) - lu(k,1318) * lu(k,1375) + lu(k,1382) = lu(k,1382) - lu(k,1319) * lu(k,1375) + lu(k,1384) = lu(k,1384) - lu(k,1320) * lu(k,1375) + lu(k,1386) = - lu(k,1321) * lu(k,1375) + lu(k,1389) = lu(k,1389) - lu(k,1322) * lu(k,1375) + lu(k,1391) = lu(k,1391) - lu(k,1323) * lu(k,1375) + lu(k,1392) = lu(k,1392) - lu(k,1324) * lu(k,1375) + lu(k,1467) = lu(k,1467) - lu(k,1315) * lu(k,1466) + lu(k,1470) = lu(k,1470) - lu(k,1316) * lu(k,1466) + lu(k,1472) = lu(k,1472) - lu(k,1317) * lu(k,1466) + lu(k,1473) = lu(k,1473) - lu(k,1318) * lu(k,1466) + lu(k,1474) = lu(k,1474) - lu(k,1319) * lu(k,1466) + lu(k,1478) = lu(k,1478) - lu(k,1320) * lu(k,1466) + lu(k,1480) = lu(k,1480) - lu(k,1321) * lu(k,1466) + lu(k,1483) = lu(k,1483) - lu(k,1322) * lu(k,1466) + lu(k,1485) = lu(k,1485) - lu(k,1323) * lu(k,1466) + lu(k,1486) = lu(k,1486) - lu(k,1324) * lu(k,1466) + lu(k,1838) = lu(k,1838) - lu(k,1315) * lu(k,1837) + lu(k,1841) = lu(k,1841) - lu(k,1316) * lu(k,1837) + lu(k,1843) = lu(k,1843) - lu(k,1317) * lu(k,1837) + lu(k,1844) = lu(k,1844) - lu(k,1318) * lu(k,1837) + lu(k,1845) = lu(k,1845) - lu(k,1319) * lu(k,1837) + lu(k,1854) = lu(k,1854) - lu(k,1320) * lu(k,1837) + lu(k,1858) = lu(k,1858) - lu(k,1321) * lu(k,1837) + lu(k,1863) = lu(k,1863) - lu(k,1322) * lu(k,1837) + lu(k,1865) = lu(k,1865) - lu(k,1323) * lu(k,1837) + lu(k,1867) = lu(k,1867) - lu(k,1324) * lu(k,1837) + lu(k,1948) = lu(k,1948) - lu(k,1315) * lu(k,1947) + lu(k,1951) = lu(k,1951) - lu(k,1316) * lu(k,1947) + lu(k,1953) = lu(k,1953) - lu(k,1317) * lu(k,1947) + lu(k,1954) = lu(k,1954) - lu(k,1318) * lu(k,1947) + lu(k,1955) = lu(k,1955) - lu(k,1319) * lu(k,1947) + lu(k,1961) = lu(k,1961) - lu(k,1320) * lu(k,1947) + lu(k,1965) = lu(k,1965) - lu(k,1321) * lu(k,1947) + lu(k,1970) = lu(k,1970) - lu(k,1322) * lu(k,1947) + lu(k,1972) = lu(k,1972) - lu(k,1323) * lu(k,1947) + lu(k,1974) = lu(k,1974) - lu(k,1324) * lu(k,1947) + lu(k,2100) = lu(k,2100) - lu(k,1315) * lu(k,2099) + lu(k,2103) = - lu(k,1316) * lu(k,2099) + lu(k,2105) = - lu(k,1317) * lu(k,2099) + lu(k,2106) = lu(k,2106) - lu(k,1318) * lu(k,2099) + lu(k,2107) = lu(k,2107) - lu(k,1319) * lu(k,2099) + lu(k,2114) = lu(k,2114) - lu(k,1320) * lu(k,2099) + lu(k,2118) = lu(k,2118) - lu(k,1321) * lu(k,2099) + lu(k,2123) = lu(k,2123) - lu(k,1322) * lu(k,2099) + lu(k,2125) = lu(k,2125) - lu(k,1323) * lu(k,2099) + lu(k,2127) = lu(k,2127) - lu(k,1324) * lu(k,2099) + lu(k,2175) = lu(k,2175) - lu(k,1315) * lu(k,2174) + lu(k,2178) = lu(k,2178) - lu(k,1316) * lu(k,2174) + lu(k,2180) = lu(k,2180) - lu(k,1317) * lu(k,2174) + lu(k,2181) = lu(k,2181) - lu(k,1318) * lu(k,2174) + lu(k,2182) = lu(k,2182) - lu(k,1319) * lu(k,2174) + lu(k,2187) = lu(k,2187) - lu(k,1320) * lu(k,2174) + lu(k,2191) = - lu(k,1321) * lu(k,2174) + lu(k,2196) = lu(k,2196) - lu(k,1322) * lu(k,2174) + lu(k,2198) = lu(k,2198) - lu(k,1323) * lu(k,2174) + lu(k,2200) = lu(k,2200) - lu(k,1324) * lu(k,2174) + lu(k,2358) = lu(k,2358) - lu(k,1315) * lu(k,2357) + lu(k,2361) = lu(k,2361) - lu(k,1316) * lu(k,2357) + lu(k,2363) = lu(k,2363) - lu(k,1317) * lu(k,2357) + lu(k,2364) = lu(k,2364) - lu(k,1318) * lu(k,2357) + lu(k,2365) = lu(k,2365) - lu(k,1319) * lu(k,2357) + lu(k,2373) = lu(k,2373) - lu(k,1320) * lu(k,2357) + lu(k,2377) = lu(k,2377) - lu(k,1321) * lu(k,2357) + lu(k,2382) = lu(k,2382) - lu(k,1322) * lu(k,2357) + lu(k,2384) = lu(k,2384) - lu(k,1323) * lu(k,2357) + lu(k,2386) = lu(k,2386) - lu(k,1324) * lu(k,2357) + lu(k,2419) = lu(k,2419) - lu(k,1315) * lu(k,2418) + lu(k,2422) = lu(k,2422) - lu(k,1316) * lu(k,2418) + lu(k,2424) = lu(k,2424) - lu(k,1317) * lu(k,2418) + lu(k,2425) = lu(k,2425) - lu(k,1318) * lu(k,2418) + lu(k,2426) = lu(k,2426) - lu(k,1319) * lu(k,2418) + lu(k,2433) = lu(k,2433) - lu(k,1320) * lu(k,2418) + lu(k,2437) = lu(k,2437) - lu(k,1321) * lu(k,2418) + lu(k,2442) = lu(k,2442) - lu(k,1322) * lu(k,2418) + lu(k,2444) = lu(k,2444) - lu(k,1323) * lu(k,2418) + lu(k,2446) = lu(k,2446) - lu(k,1324) * lu(k,2418) end do end subroutine lu_fac26 subroutine lu_fac27( avec_len, lu ) @@ -5403,463 +5407,463 @@ subroutine lu_fac27( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1325) = 1._r8 / lu(k,1325) - lu(k,1326) = lu(k,1326) * lu(k,1325) - lu(k,1327) = lu(k,1327) * lu(k,1325) - lu(k,1328) = lu(k,1328) * lu(k,1325) - lu(k,1329) = lu(k,1329) * lu(k,1325) - lu(k,1330) = lu(k,1330) * lu(k,1325) - lu(k,1331) = lu(k,1331) * lu(k,1325) - lu(k,1332) = lu(k,1332) * lu(k,1325) - lu(k,1347) = lu(k,1347) - lu(k,1326) * lu(k,1342) - lu(k,1348) = lu(k,1348) - lu(k,1327) * lu(k,1342) - lu(k,1351) = lu(k,1351) - lu(k,1328) * lu(k,1342) - lu(k,1352) = lu(k,1352) - lu(k,1329) * lu(k,1342) - lu(k,1353) = lu(k,1353) - lu(k,1330) * lu(k,1342) - lu(k,1354) = lu(k,1354) - lu(k,1331) * lu(k,1342) - lu(k,1358) = lu(k,1358) - lu(k,1332) * lu(k,1342) - lu(k,1380) = lu(k,1380) - lu(k,1326) * lu(k,1375) - lu(k,1381) = lu(k,1381) - lu(k,1327) * lu(k,1375) - lu(k,1384) = lu(k,1384) - lu(k,1328) * lu(k,1375) - lu(k,1385) = lu(k,1385) - lu(k,1329) * lu(k,1375) - lu(k,1386) = lu(k,1386) - lu(k,1330) * lu(k,1375) - lu(k,1387) = lu(k,1387) - lu(k,1331) * lu(k,1375) - lu(k,1391) = lu(k,1391) - lu(k,1332) * lu(k,1375) - lu(k,1402) = lu(k,1402) - lu(k,1326) * lu(k,1399) - lu(k,1403) = lu(k,1403) - lu(k,1327) * lu(k,1399) - lu(k,1406) = lu(k,1406) - lu(k,1328) * lu(k,1399) - lu(k,1407) = lu(k,1407) - lu(k,1329) * lu(k,1399) - lu(k,1408) = lu(k,1408) - lu(k,1330) * lu(k,1399) - lu(k,1409) = lu(k,1409) - lu(k,1331) * lu(k,1399) - lu(k,1412) = lu(k,1412) - lu(k,1332) * lu(k,1399) - lu(k,1422) = lu(k,1422) - lu(k,1326) * lu(k,1418) - lu(k,1423) = lu(k,1423) - lu(k,1327) * lu(k,1418) - lu(k,1427) = lu(k,1427) - lu(k,1328) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,1329) * lu(k,1418) - lu(k,1430) = lu(k,1430) - lu(k,1330) * lu(k,1418) - lu(k,1431) = lu(k,1431) - lu(k,1331) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,1332) * lu(k,1418) - lu(k,1442) = lu(k,1442) - lu(k,1326) * lu(k,1440) - lu(k,1443) = lu(k,1443) - lu(k,1327) * lu(k,1440) - lu(k,1446) = lu(k,1446) - lu(k,1328) * lu(k,1440) - lu(k,1447) = lu(k,1447) - lu(k,1329) * lu(k,1440) - lu(k,1448) = lu(k,1448) - lu(k,1330) * lu(k,1440) - lu(k,1449) = - lu(k,1331) * lu(k,1440) - lu(k,1453) = lu(k,1453) - lu(k,1332) * lu(k,1440) - lu(k,1472) = lu(k,1472) - lu(k,1326) * lu(k,1466) - lu(k,1473) = lu(k,1473) - lu(k,1327) * lu(k,1466) - lu(k,1477) = lu(k,1477) - lu(k,1328) * lu(k,1466) - lu(k,1478) = lu(k,1478) - lu(k,1329) * lu(k,1466) - lu(k,1480) = lu(k,1480) - lu(k,1330) * lu(k,1466) - lu(k,1481) = lu(k,1481) - lu(k,1331) * lu(k,1466) - lu(k,1485) = lu(k,1485) - lu(k,1332) * lu(k,1466) - lu(k,1673) = lu(k,1673) - lu(k,1326) * lu(k,1671) - lu(k,1674) = lu(k,1674) - lu(k,1327) * lu(k,1671) - lu(k,1684) = lu(k,1684) - lu(k,1328) * lu(k,1671) - lu(k,1685) = lu(k,1685) - lu(k,1329) * lu(k,1671) - lu(k,1687) = lu(k,1687) - lu(k,1330) * lu(k,1671) - lu(k,1690) = lu(k,1690) - lu(k,1331) * lu(k,1671) - lu(k,1695) = lu(k,1695) - lu(k,1332) * lu(k,1671) - lu(k,1781) = lu(k,1781) - lu(k,1326) * lu(k,1775) - lu(k,1782) = lu(k,1782) - lu(k,1327) * lu(k,1775) - lu(k,1790) = lu(k,1790) - lu(k,1328) * lu(k,1775) - lu(k,1791) = lu(k,1791) - lu(k,1329) * lu(k,1775) - lu(k,1793) = lu(k,1793) - lu(k,1330) * lu(k,1775) - lu(k,1796) = lu(k,1796) - lu(k,1331) * lu(k,1775) - lu(k,1801) = lu(k,1801) - lu(k,1332) * lu(k,1775) - lu(k,1994) = lu(k,1994) - lu(k,1326) * lu(k,1988) - lu(k,1995) = lu(k,1995) - lu(k,1327) * lu(k,1988) - lu(k,2006) = lu(k,2006) - lu(k,1328) * lu(k,1988) - lu(k,2007) = lu(k,2007) - lu(k,1329) * lu(k,1988) - lu(k,2009) = lu(k,2009) - lu(k,1330) * lu(k,1988) - lu(k,2012) = lu(k,2012) - lu(k,1331) * lu(k,1988) - lu(k,2017) = lu(k,2017) - lu(k,1332) * lu(k,1988) - lu(k,2056) = lu(k,2056) - lu(k,1326) * lu(k,2050) - lu(k,2057) = lu(k,2057) - lu(k,1327) * lu(k,2050) - lu(k,2066) = lu(k,2066) - lu(k,1328) * lu(k,2050) - lu(k,2067) = lu(k,2067) - lu(k,1329) * lu(k,2050) - lu(k,2069) = lu(k,2069) - lu(k,1330) * lu(k,2050) - lu(k,2072) = lu(k,2072) - lu(k,1331) * lu(k,2050) - lu(k,2077) = lu(k,2077) - lu(k,1332) * lu(k,2050) - lu(k,2200) = lu(k,2200) - lu(k,1326) * lu(k,2194) - lu(k,2201) = lu(k,2201) - lu(k,1327) * lu(k,2194) - lu(k,2211) = lu(k,2211) - lu(k,1328) * lu(k,2194) - lu(k,2212) = lu(k,2212) - lu(k,1329) * lu(k,2194) - lu(k,2214) = lu(k,2214) - lu(k,1330) * lu(k,2194) - lu(k,2217) = lu(k,2217) - lu(k,1331) * lu(k,2194) - lu(k,2222) = lu(k,2222) - lu(k,1332) * lu(k,2194) - lu(k,2246) = lu(k,2246) - lu(k,1326) * lu(k,2245) - lu(k,2247) = lu(k,2247) - lu(k,1327) * lu(k,2245) - lu(k,2257) = lu(k,2257) - lu(k,1328) * lu(k,2245) - lu(k,2258) = lu(k,2258) - lu(k,1329) * lu(k,2245) - lu(k,2260) = lu(k,2260) - lu(k,1330) * lu(k,2245) - lu(k,2263) = lu(k,2263) - lu(k,1331) * lu(k,2245) - lu(k,2268) = lu(k,2268) - lu(k,1332) * lu(k,2245) - lu(k,2345) = lu(k,2345) - lu(k,1326) * lu(k,2339) - lu(k,2346) = lu(k,2346) - lu(k,1327) * lu(k,2339) - lu(k,2353) = lu(k,2353) - lu(k,1328) * lu(k,2339) - lu(k,2354) = lu(k,2354) - lu(k,1329) * lu(k,2339) - lu(k,2356) = lu(k,2356) - lu(k,1330) * lu(k,2339) - lu(k,2359) = lu(k,2359) - lu(k,1331) * lu(k,2339) - lu(k,2364) = lu(k,2364) - lu(k,1332) * lu(k,2339) - lu(k,2407) = lu(k,2407) - lu(k,1326) * lu(k,2401) - lu(k,2408) = lu(k,2408) - lu(k,1327) * lu(k,2401) - lu(k,2417) = lu(k,2417) - lu(k,1328) * lu(k,2401) - lu(k,2418) = lu(k,2418) - lu(k,1329) * lu(k,2401) - lu(k,2420) = lu(k,2420) - lu(k,1330) * lu(k,2401) - lu(k,2423) = lu(k,2423) - lu(k,1331) * lu(k,2401) - lu(k,2428) = lu(k,2428) - lu(k,1332) * lu(k,2401) - lu(k,1343) = 1._r8 / lu(k,1343) - lu(k,1344) = lu(k,1344) * lu(k,1343) - lu(k,1345) = lu(k,1345) * lu(k,1343) - lu(k,1346) = lu(k,1346) * lu(k,1343) - lu(k,1347) = lu(k,1347) * lu(k,1343) - lu(k,1348) = lu(k,1348) * lu(k,1343) - lu(k,1349) = lu(k,1349) * lu(k,1343) - lu(k,1350) = lu(k,1350) * lu(k,1343) - lu(k,1351) = lu(k,1351) * lu(k,1343) - lu(k,1352) = lu(k,1352) * lu(k,1343) - lu(k,1353) = lu(k,1353) * lu(k,1343) - lu(k,1354) = lu(k,1354) * lu(k,1343) - lu(k,1355) = lu(k,1355) * lu(k,1343) - lu(k,1356) = lu(k,1356) * lu(k,1343) - lu(k,1357) = lu(k,1357) * lu(k,1343) - lu(k,1358) = lu(k,1358) * lu(k,1343) - lu(k,1469) = lu(k,1469) - lu(k,1344) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,1345) * lu(k,1467) - lu(k,1471) = lu(k,1471) - lu(k,1346) * lu(k,1467) - lu(k,1472) = lu(k,1472) - lu(k,1347) * lu(k,1467) - lu(k,1473) = lu(k,1473) - lu(k,1348) * lu(k,1467) - lu(k,1475) = lu(k,1475) - lu(k,1349) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,1350) * lu(k,1467) - lu(k,1477) = lu(k,1477) - lu(k,1351) * lu(k,1467) - lu(k,1478) = lu(k,1478) - lu(k,1352) * lu(k,1467) - lu(k,1480) = lu(k,1480) - lu(k,1353) * lu(k,1467) - lu(k,1481) = lu(k,1481) - lu(k,1354) * lu(k,1467) - lu(k,1482) = lu(k,1482) - lu(k,1355) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,1356) * lu(k,1467) - lu(k,1484) = lu(k,1484) - lu(k,1357) * lu(k,1467) - lu(k,1485) = lu(k,1485) - lu(k,1358) * lu(k,1467) - lu(k,1778) = lu(k,1778) - lu(k,1344) * lu(k,1776) - lu(k,1779) = lu(k,1779) - lu(k,1345) * lu(k,1776) - lu(k,1780) = lu(k,1780) - lu(k,1346) * lu(k,1776) - lu(k,1781) = lu(k,1781) - lu(k,1347) * lu(k,1776) - lu(k,1782) = lu(k,1782) - lu(k,1348) * lu(k,1776) - lu(k,1787) = lu(k,1787) - lu(k,1349) * lu(k,1776) - lu(k,1788) = lu(k,1788) - lu(k,1350) * lu(k,1776) - lu(k,1790) = lu(k,1790) - lu(k,1351) * lu(k,1776) - lu(k,1791) = lu(k,1791) - lu(k,1352) * lu(k,1776) - lu(k,1793) = lu(k,1793) - lu(k,1353) * lu(k,1776) - lu(k,1796) = lu(k,1796) - lu(k,1354) * lu(k,1776) - lu(k,1797) = lu(k,1797) - lu(k,1355) * lu(k,1776) - lu(k,1798) = lu(k,1798) - lu(k,1356) * lu(k,1776) - lu(k,1800) = lu(k,1800) - lu(k,1357) * lu(k,1776) - lu(k,1801) = lu(k,1801) - lu(k,1358) * lu(k,1776) - lu(k,1991) = lu(k,1991) - lu(k,1344) * lu(k,1989) - lu(k,1992) = lu(k,1992) - lu(k,1345) * lu(k,1989) - lu(k,1993) = lu(k,1993) - lu(k,1346) * lu(k,1989) - lu(k,1994) = lu(k,1994) - lu(k,1347) * lu(k,1989) - lu(k,1995) = lu(k,1995) - lu(k,1348) * lu(k,1989) - lu(k,2003) = lu(k,2003) - lu(k,1349) * lu(k,1989) - lu(k,2004) = lu(k,2004) - lu(k,1350) * lu(k,1989) - lu(k,2006) = lu(k,2006) - lu(k,1351) * lu(k,1989) - lu(k,2007) = lu(k,2007) - lu(k,1352) * lu(k,1989) - lu(k,2009) = lu(k,2009) - lu(k,1353) * lu(k,1989) - lu(k,2012) = lu(k,2012) - lu(k,1354) * lu(k,1989) - lu(k,2013) = lu(k,2013) - lu(k,1355) * lu(k,1989) - lu(k,2014) = lu(k,2014) - lu(k,1356) * lu(k,1989) - lu(k,2016) = lu(k,2016) - lu(k,1357) * lu(k,1989) - lu(k,2017) = lu(k,2017) - lu(k,1358) * lu(k,1989) - lu(k,2053) = lu(k,2053) - lu(k,1344) * lu(k,2051) - lu(k,2054) = lu(k,2054) - lu(k,1345) * lu(k,2051) - lu(k,2055) = lu(k,2055) - lu(k,1346) * lu(k,2051) - lu(k,2056) = lu(k,2056) - lu(k,1347) * lu(k,2051) - lu(k,2057) = lu(k,2057) - lu(k,1348) * lu(k,2051) - lu(k,2063) = lu(k,2063) - lu(k,1349) * lu(k,2051) - lu(k,2064) = lu(k,2064) - lu(k,1350) * lu(k,2051) - lu(k,2066) = lu(k,2066) - lu(k,1351) * lu(k,2051) - lu(k,2067) = lu(k,2067) - lu(k,1352) * lu(k,2051) - lu(k,2069) = lu(k,2069) - lu(k,1353) * lu(k,2051) - lu(k,2072) = lu(k,2072) - lu(k,1354) * lu(k,2051) - lu(k,2073) = lu(k,2073) - lu(k,1355) * lu(k,2051) - lu(k,2074) = lu(k,2074) - lu(k,1356) * lu(k,2051) - lu(k,2076) = lu(k,2076) - lu(k,1357) * lu(k,2051) - lu(k,2077) = lu(k,2077) - lu(k,1358) * lu(k,2051) - lu(k,2197) = lu(k,2197) - lu(k,1344) * lu(k,2195) - lu(k,2198) = lu(k,2198) - lu(k,1345) * lu(k,2195) - lu(k,2199) = lu(k,2199) - lu(k,1346) * lu(k,2195) - lu(k,2200) = lu(k,2200) - lu(k,1347) * lu(k,2195) - lu(k,2201) = lu(k,2201) - lu(k,1348) * lu(k,2195) - lu(k,2208) = lu(k,2208) - lu(k,1349) * lu(k,2195) - lu(k,2209) = lu(k,2209) - lu(k,1350) * lu(k,2195) - lu(k,2211) = lu(k,2211) - lu(k,1351) * lu(k,2195) - lu(k,2212) = lu(k,2212) - lu(k,1352) * lu(k,2195) - lu(k,2214) = lu(k,2214) - lu(k,1353) * lu(k,2195) - lu(k,2217) = lu(k,2217) - lu(k,1354) * lu(k,2195) - lu(k,2218) = lu(k,2218) - lu(k,1355) * lu(k,2195) - lu(k,2219) = lu(k,2219) - lu(k,1356) * lu(k,2195) - lu(k,2221) = lu(k,2221) - lu(k,1357) * lu(k,2195) - lu(k,2222) = lu(k,2222) - lu(k,1358) * lu(k,2195) - lu(k,2342) = lu(k,2342) - lu(k,1344) * lu(k,2340) - lu(k,2343) = lu(k,2343) - lu(k,1345) * lu(k,2340) - lu(k,2344) = lu(k,2344) - lu(k,1346) * lu(k,2340) - lu(k,2345) = lu(k,2345) - lu(k,1347) * lu(k,2340) - lu(k,2346) = lu(k,2346) - lu(k,1348) * lu(k,2340) - lu(k,2350) = lu(k,2350) - lu(k,1349) * lu(k,2340) - lu(k,2351) = lu(k,2351) - lu(k,1350) * lu(k,2340) - lu(k,2353) = lu(k,2353) - lu(k,1351) * lu(k,2340) - lu(k,2354) = lu(k,2354) - lu(k,1352) * lu(k,2340) - lu(k,2356) = lu(k,2356) - lu(k,1353) * lu(k,2340) - lu(k,2359) = lu(k,2359) - lu(k,1354) * lu(k,2340) - lu(k,2360) = lu(k,2360) - lu(k,1355) * lu(k,2340) - lu(k,2361) = lu(k,2361) - lu(k,1356) * lu(k,2340) - lu(k,2363) = lu(k,2363) - lu(k,1357) * lu(k,2340) - lu(k,2364) = lu(k,2364) - lu(k,1358) * lu(k,2340) - lu(k,2404) = lu(k,2404) - lu(k,1344) * lu(k,2402) - lu(k,2405) = lu(k,2405) - lu(k,1345) * lu(k,2402) - lu(k,2406) = lu(k,2406) - lu(k,1346) * lu(k,2402) - lu(k,2407) = lu(k,2407) - lu(k,1347) * lu(k,2402) - lu(k,2408) = lu(k,2408) - lu(k,1348) * lu(k,2402) - lu(k,2414) = lu(k,2414) - lu(k,1349) * lu(k,2402) - lu(k,2415) = lu(k,2415) - lu(k,1350) * lu(k,2402) - lu(k,2417) = lu(k,2417) - lu(k,1351) * lu(k,2402) - lu(k,2418) = lu(k,2418) - lu(k,1352) * lu(k,2402) - lu(k,2420) = lu(k,2420) - lu(k,1353) * lu(k,2402) - lu(k,2423) = lu(k,2423) - lu(k,1354) * lu(k,2402) - lu(k,2424) = lu(k,2424) - lu(k,1355) * lu(k,2402) - lu(k,2425) = lu(k,2425) - lu(k,1356) * lu(k,2402) - lu(k,2427) = lu(k,2427) - lu(k,1357) * lu(k,2402) - lu(k,2428) = lu(k,2428) - lu(k,1358) * lu(k,2402) - lu(k,1376) = 1._r8 / lu(k,1376) - lu(k,1377) = lu(k,1377) * lu(k,1376) - lu(k,1378) = lu(k,1378) * lu(k,1376) - lu(k,1379) = lu(k,1379) * lu(k,1376) - lu(k,1380) = lu(k,1380) * lu(k,1376) - lu(k,1381) = lu(k,1381) * lu(k,1376) - lu(k,1382) = lu(k,1382) * lu(k,1376) - lu(k,1383) = lu(k,1383) * lu(k,1376) - lu(k,1384) = lu(k,1384) * lu(k,1376) - lu(k,1385) = lu(k,1385) * lu(k,1376) - lu(k,1386) = lu(k,1386) * lu(k,1376) - lu(k,1387) = lu(k,1387) * lu(k,1376) - lu(k,1388) = lu(k,1388) * lu(k,1376) - lu(k,1389) = lu(k,1389) * lu(k,1376) - lu(k,1390) = lu(k,1390) * lu(k,1376) - lu(k,1391) = lu(k,1391) * lu(k,1376) - lu(k,1469) = lu(k,1469) - lu(k,1377) * lu(k,1468) - lu(k,1470) = lu(k,1470) - lu(k,1378) * lu(k,1468) - lu(k,1471) = lu(k,1471) - lu(k,1379) * lu(k,1468) - lu(k,1472) = lu(k,1472) - lu(k,1380) * lu(k,1468) - lu(k,1473) = lu(k,1473) - lu(k,1381) * lu(k,1468) - lu(k,1475) = lu(k,1475) - lu(k,1382) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,1383) * lu(k,1468) - lu(k,1477) = lu(k,1477) - lu(k,1384) * lu(k,1468) - lu(k,1478) = lu(k,1478) - lu(k,1385) * lu(k,1468) - lu(k,1480) = lu(k,1480) - lu(k,1386) * lu(k,1468) - lu(k,1481) = lu(k,1481) - lu(k,1387) * lu(k,1468) - lu(k,1482) = lu(k,1482) - lu(k,1388) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,1389) * lu(k,1468) - lu(k,1484) = lu(k,1484) - lu(k,1390) * lu(k,1468) - lu(k,1485) = lu(k,1485) - lu(k,1391) * lu(k,1468) - lu(k,1778) = lu(k,1778) - lu(k,1377) * lu(k,1777) - lu(k,1779) = lu(k,1779) - lu(k,1378) * lu(k,1777) - lu(k,1780) = lu(k,1780) - lu(k,1379) * lu(k,1777) - lu(k,1781) = lu(k,1781) - lu(k,1380) * lu(k,1777) - lu(k,1782) = lu(k,1782) - lu(k,1381) * lu(k,1777) - lu(k,1787) = lu(k,1787) - lu(k,1382) * lu(k,1777) - lu(k,1788) = lu(k,1788) - lu(k,1383) * lu(k,1777) - lu(k,1790) = lu(k,1790) - lu(k,1384) * lu(k,1777) - lu(k,1791) = lu(k,1791) - lu(k,1385) * lu(k,1777) - lu(k,1793) = lu(k,1793) - lu(k,1386) * lu(k,1777) - lu(k,1796) = lu(k,1796) - lu(k,1387) * lu(k,1777) - lu(k,1797) = lu(k,1797) - lu(k,1388) * lu(k,1777) - lu(k,1798) = lu(k,1798) - lu(k,1389) * lu(k,1777) - lu(k,1800) = lu(k,1800) - lu(k,1390) * lu(k,1777) - lu(k,1801) = lu(k,1801) - lu(k,1391) * lu(k,1777) - lu(k,1991) = lu(k,1991) - lu(k,1377) * lu(k,1990) - lu(k,1992) = lu(k,1992) - lu(k,1378) * lu(k,1990) - lu(k,1993) = lu(k,1993) - lu(k,1379) * lu(k,1990) - lu(k,1994) = lu(k,1994) - lu(k,1380) * lu(k,1990) - lu(k,1995) = lu(k,1995) - lu(k,1381) * lu(k,1990) - lu(k,2003) = lu(k,2003) - lu(k,1382) * lu(k,1990) - lu(k,2004) = lu(k,2004) - lu(k,1383) * lu(k,1990) - lu(k,2006) = lu(k,2006) - lu(k,1384) * lu(k,1990) - lu(k,2007) = lu(k,2007) - lu(k,1385) * lu(k,1990) - lu(k,2009) = lu(k,2009) - lu(k,1386) * lu(k,1990) - lu(k,2012) = lu(k,2012) - lu(k,1387) * lu(k,1990) - lu(k,2013) = lu(k,2013) - lu(k,1388) * lu(k,1990) - lu(k,2014) = lu(k,2014) - lu(k,1389) * lu(k,1990) - lu(k,2016) = lu(k,2016) - lu(k,1390) * lu(k,1990) - lu(k,2017) = lu(k,2017) - lu(k,1391) * lu(k,1990) - lu(k,2053) = lu(k,2053) - lu(k,1377) * lu(k,2052) - lu(k,2054) = lu(k,2054) - lu(k,1378) * lu(k,2052) - lu(k,2055) = lu(k,2055) - lu(k,1379) * lu(k,2052) - lu(k,2056) = lu(k,2056) - lu(k,1380) * lu(k,2052) - lu(k,2057) = lu(k,2057) - lu(k,1381) * lu(k,2052) - lu(k,2063) = lu(k,2063) - lu(k,1382) * lu(k,2052) - lu(k,2064) = lu(k,2064) - lu(k,1383) * lu(k,2052) - lu(k,2066) = lu(k,2066) - lu(k,1384) * lu(k,2052) - lu(k,2067) = lu(k,2067) - lu(k,1385) * lu(k,2052) - lu(k,2069) = lu(k,2069) - lu(k,1386) * lu(k,2052) - lu(k,2072) = lu(k,2072) - lu(k,1387) * lu(k,2052) - lu(k,2073) = lu(k,2073) - lu(k,1388) * lu(k,2052) - lu(k,2074) = lu(k,2074) - lu(k,1389) * lu(k,2052) - lu(k,2076) = lu(k,2076) - lu(k,1390) * lu(k,2052) - lu(k,2077) = lu(k,2077) - lu(k,1391) * lu(k,2052) - lu(k,2197) = lu(k,2197) - lu(k,1377) * lu(k,2196) - lu(k,2198) = lu(k,2198) - lu(k,1378) * lu(k,2196) - lu(k,2199) = lu(k,2199) - lu(k,1379) * lu(k,2196) - lu(k,2200) = lu(k,2200) - lu(k,1380) * lu(k,2196) - lu(k,2201) = lu(k,2201) - lu(k,1381) * lu(k,2196) - lu(k,2208) = lu(k,2208) - lu(k,1382) * lu(k,2196) - lu(k,2209) = lu(k,2209) - lu(k,1383) * lu(k,2196) - lu(k,2211) = lu(k,2211) - lu(k,1384) * lu(k,2196) - lu(k,2212) = lu(k,2212) - lu(k,1385) * lu(k,2196) - lu(k,2214) = lu(k,2214) - lu(k,1386) * lu(k,2196) - lu(k,2217) = lu(k,2217) - lu(k,1387) * lu(k,2196) - lu(k,2218) = lu(k,2218) - lu(k,1388) * lu(k,2196) - lu(k,2219) = lu(k,2219) - lu(k,1389) * lu(k,2196) - lu(k,2221) = lu(k,2221) - lu(k,1390) * lu(k,2196) - lu(k,2222) = lu(k,2222) - lu(k,1391) * lu(k,2196) - lu(k,2342) = lu(k,2342) - lu(k,1377) * lu(k,2341) - lu(k,2343) = lu(k,2343) - lu(k,1378) * lu(k,2341) - lu(k,2344) = lu(k,2344) - lu(k,1379) * lu(k,2341) - lu(k,2345) = lu(k,2345) - lu(k,1380) * lu(k,2341) - lu(k,2346) = lu(k,2346) - lu(k,1381) * lu(k,2341) - lu(k,2350) = lu(k,2350) - lu(k,1382) * lu(k,2341) - lu(k,2351) = lu(k,2351) - lu(k,1383) * lu(k,2341) - lu(k,2353) = lu(k,2353) - lu(k,1384) * lu(k,2341) - lu(k,2354) = lu(k,2354) - lu(k,1385) * lu(k,2341) - lu(k,2356) = lu(k,2356) - lu(k,1386) * lu(k,2341) - lu(k,2359) = lu(k,2359) - lu(k,1387) * lu(k,2341) - lu(k,2360) = lu(k,2360) - lu(k,1388) * lu(k,2341) - lu(k,2361) = lu(k,2361) - lu(k,1389) * lu(k,2341) - lu(k,2363) = lu(k,2363) - lu(k,1390) * lu(k,2341) - lu(k,2364) = lu(k,2364) - lu(k,1391) * lu(k,2341) - lu(k,2404) = lu(k,2404) - lu(k,1377) * lu(k,2403) - lu(k,2405) = lu(k,2405) - lu(k,1378) * lu(k,2403) - lu(k,2406) = lu(k,2406) - lu(k,1379) * lu(k,2403) - lu(k,2407) = lu(k,2407) - lu(k,1380) * lu(k,2403) - lu(k,2408) = lu(k,2408) - lu(k,1381) * lu(k,2403) - lu(k,2414) = lu(k,2414) - lu(k,1382) * lu(k,2403) - lu(k,2415) = lu(k,2415) - lu(k,1383) * lu(k,2403) - lu(k,2417) = lu(k,2417) - lu(k,1384) * lu(k,2403) - lu(k,2418) = lu(k,2418) - lu(k,1385) * lu(k,2403) - lu(k,2420) = lu(k,2420) - lu(k,1386) * lu(k,2403) - lu(k,2423) = lu(k,2423) - lu(k,1387) * lu(k,2403) - lu(k,2424) = lu(k,2424) - lu(k,1388) * lu(k,2403) - lu(k,2425) = lu(k,2425) - lu(k,1389) * lu(k,2403) - lu(k,2427) = lu(k,2427) - lu(k,1390) * lu(k,2403) - lu(k,2428) = lu(k,2428) - lu(k,1391) * lu(k,2403) - lu(k,1400) = 1._r8 / lu(k,1400) - lu(k,1401) = lu(k,1401) * lu(k,1400) - lu(k,1402) = lu(k,1402) * lu(k,1400) - lu(k,1403) = lu(k,1403) * lu(k,1400) - lu(k,1404) = lu(k,1404) * lu(k,1400) - lu(k,1405) = lu(k,1405) * lu(k,1400) - lu(k,1406) = lu(k,1406) * lu(k,1400) - lu(k,1407) = lu(k,1407) * lu(k,1400) - lu(k,1408) = lu(k,1408) * lu(k,1400) - lu(k,1409) = lu(k,1409) * lu(k,1400) - lu(k,1410) = lu(k,1410) * lu(k,1400) - lu(k,1411) = lu(k,1411) * lu(k,1400) - lu(k,1412) = lu(k,1412) * lu(k,1400) - lu(k,1421) = - lu(k,1401) * lu(k,1419) - lu(k,1422) = lu(k,1422) - lu(k,1402) * lu(k,1419) - lu(k,1423) = lu(k,1423) - lu(k,1403) * lu(k,1419) - lu(k,1425) = lu(k,1425) - lu(k,1404) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,1405) * lu(k,1419) - lu(k,1427) = lu(k,1427) - lu(k,1406) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,1407) * lu(k,1419) - lu(k,1430) = lu(k,1430) - lu(k,1408) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,1409) * lu(k,1419) - lu(k,1432) = lu(k,1432) - lu(k,1410) * lu(k,1419) - lu(k,1434) = lu(k,1434) - lu(k,1411) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,1412) * lu(k,1419) - lu(k,1471) = lu(k,1471) - lu(k,1401) * lu(k,1469) - lu(k,1472) = lu(k,1472) - lu(k,1402) * lu(k,1469) - lu(k,1473) = lu(k,1473) - lu(k,1403) * lu(k,1469) - lu(k,1475) = lu(k,1475) - lu(k,1404) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,1405) * lu(k,1469) - lu(k,1477) = lu(k,1477) - lu(k,1406) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,1407) * lu(k,1469) - lu(k,1480) = lu(k,1480) - lu(k,1408) * lu(k,1469) - lu(k,1481) = lu(k,1481) - lu(k,1409) * lu(k,1469) - lu(k,1482) = lu(k,1482) - lu(k,1410) * lu(k,1469) - lu(k,1484) = lu(k,1484) - lu(k,1411) * lu(k,1469) - lu(k,1485) = lu(k,1485) - lu(k,1412) * lu(k,1469) - lu(k,1780) = lu(k,1780) - lu(k,1401) * lu(k,1778) - lu(k,1781) = lu(k,1781) - lu(k,1402) * lu(k,1778) - lu(k,1782) = lu(k,1782) - lu(k,1403) * lu(k,1778) - lu(k,1787) = lu(k,1787) - lu(k,1404) * lu(k,1778) - lu(k,1788) = lu(k,1788) - lu(k,1405) * lu(k,1778) - lu(k,1790) = lu(k,1790) - lu(k,1406) * lu(k,1778) - lu(k,1791) = lu(k,1791) - lu(k,1407) * lu(k,1778) - lu(k,1793) = lu(k,1793) - lu(k,1408) * lu(k,1778) - lu(k,1796) = lu(k,1796) - lu(k,1409) * lu(k,1778) - lu(k,1797) = lu(k,1797) - lu(k,1410) * lu(k,1778) - lu(k,1800) = lu(k,1800) - lu(k,1411) * lu(k,1778) - lu(k,1801) = lu(k,1801) - lu(k,1412) * lu(k,1778) - lu(k,1993) = lu(k,1993) - lu(k,1401) * lu(k,1991) - lu(k,1994) = lu(k,1994) - lu(k,1402) * lu(k,1991) - lu(k,1995) = lu(k,1995) - lu(k,1403) * lu(k,1991) - lu(k,2003) = lu(k,2003) - lu(k,1404) * lu(k,1991) - lu(k,2004) = lu(k,2004) - lu(k,1405) * lu(k,1991) - lu(k,2006) = lu(k,2006) - lu(k,1406) * lu(k,1991) - lu(k,2007) = lu(k,2007) - lu(k,1407) * lu(k,1991) - lu(k,2009) = lu(k,2009) - lu(k,1408) * lu(k,1991) - lu(k,2012) = lu(k,2012) - lu(k,1409) * lu(k,1991) - lu(k,2013) = lu(k,2013) - lu(k,1410) * lu(k,1991) - lu(k,2016) = lu(k,2016) - lu(k,1411) * lu(k,1991) - lu(k,2017) = lu(k,2017) - lu(k,1412) * lu(k,1991) - lu(k,2055) = lu(k,2055) - lu(k,1401) * lu(k,2053) - lu(k,2056) = lu(k,2056) - lu(k,1402) * lu(k,2053) - lu(k,2057) = lu(k,2057) - lu(k,1403) * lu(k,2053) - lu(k,2063) = lu(k,2063) - lu(k,1404) * lu(k,2053) - lu(k,2064) = lu(k,2064) - lu(k,1405) * lu(k,2053) - lu(k,2066) = lu(k,2066) - lu(k,1406) * lu(k,2053) - lu(k,2067) = lu(k,2067) - lu(k,1407) * lu(k,2053) - lu(k,2069) = lu(k,2069) - lu(k,1408) * lu(k,2053) - lu(k,2072) = lu(k,2072) - lu(k,1409) * lu(k,2053) - lu(k,2073) = lu(k,2073) - lu(k,1410) * lu(k,2053) - lu(k,2076) = lu(k,2076) - lu(k,1411) * lu(k,2053) - lu(k,2077) = lu(k,2077) - lu(k,1412) * lu(k,2053) - lu(k,2199) = lu(k,2199) - lu(k,1401) * lu(k,2197) - lu(k,2200) = lu(k,2200) - lu(k,1402) * lu(k,2197) - lu(k,2201) = lu(k,2201) - lu(k,1403) * lu(k,2197) - lu(k,2208) = lu(k,2208) - lu(k,1404) * lu(k,2197) - lu(k,2209) = lu(k,2209) - lu(k,1405) * lu(k,2197) - lu(k,2211) = lu(k,2211) - lu(k,1406) * lu(k,2197) - lu(k,2212) = lu(k,2212) - lu(k,1407) * lu(k,2197) - lu(k,2214) = lu(k,2214) - lu(k,1408) * lu(k,2197) - lu(k,2217) = lu(k,2217) - lu(k,1409) * lu(k,2197) - lu(k,2218) = lu(k,2218) - lu(k,1410) * lu(k,2197) - lu(k,2221) = lu(k,2221) - lu(k,1411) * lu(k,2197) - lu(k,2222) = lu(k,2222) - lu(k,1412) * lu(k,2197) - lu(k,2344) = lu(k,2344) - lu(k,1401) * lu(k,2342) - lu(k,2345) = lu(k,2345) - lu(k,1402) * lu(k,2342) - lu(k,2346) = lu(k,2346) - lu(k,1403) * lu(k,2342) - lu(k,2350) = lu(k,2350) - lu(k,1404) * lu(k,2342) - lu(k,2351) = lu(k,2351) - lu(k,1405) * lu(k,2342) - lu(k,2353) = lu(k,2353) - lu(k,1406) * lu(k,2342) - lu(k,2354) = lu(k,2354) - lu(k,1407) * lu(k,2342) - lu(k,2356) = lu(k,2356) - lu(k,1408) * lu(k,2342) - lu(k,2359) = lu(k,2359) - lu(k,1409) * lu(k,2342) - lu(k,2360) = lu(k,2360) - lu(k,1410) * lu(k,2342) - lu(k,2363) = lu(k,2363) - lu(k,1411) * lu(k,2342) - lu(k,2364) = lu(k,2364) - lu(k,1412) * lu(k,2342) - lu(k,2406) = lu(k,2406) - lu(k,1401) * lu(k,2404) - lu(k,2407) = lu(k,2407) - lu(k,1402) * lu(k,2404) - lu(k,2408) = lu(k,2408) - lu(k,1403) * lu(k,2404) - lu(k,2414) = lu(k,2414) - lu(k,1404) * lu(k,2404) - lu(k,2415) = lu(k,2415) - lu(k,1405) * lu(k,2404) - lu(k,2417) = lu(k,2417) - lu(k,1406) * lu(k,2404) - lu(k,2418) = lu(k,2418) - lu(k,1407) * lu(k,2404) - lu(k,2420) = lu(k,2420) - lu(k,1408) * lu(k,2404) - lu(k,2423) = lu(k,2423) - lu(k,1409) * lu(k,2404) - lu(k,2424) = lu(k,2424) - lu(k,1410) * lu(k,2404) - lu(k,2427) = lu(k,2427) - lu(k,1411) * lu(k,2404) - lu(k,2428) = lu(k,2428) - lu(k,1412) * lu(k,2404) + lu(k,1326) = 1._r8 / lu(k,1326) + lu(k,1327) = lu(k,1327) * lu(k,1326) + lu(k,1328) = lu(k,1328) * lu(k,1326) + lu(k,1329) = lu(k,1329) * lu(k,1326) + lu(k,1330) = lu(k,1330) * lu(k,1326) + lu(k,1331) = lu(k,1331) * lu(k,1326) + lu(k,1332) = lu(k,1332) * lu(k,1326) + lu(k,1333) = lu(k,1333) * lu(k,1326) + lu(k,1348) = lu(k,1348) - lu(k,1327) * lu(k,1343) + lu(k,1349) = lu(k,1349) - lu(k,1328) * lu(k,1343) + lu(k,1351) = lu(k,1351) - lu(k,1329) * lu(k,1343) + lu(k,1355) = lu(k,1355) - lu(k,1330) * lu(k,1343) + lu(k,1356) = lu(k,1356) - lu(k,1331) * lu(k,1343) + lu(k,1357) = lu(k,1357) - lu(k,1332) * lu(k,1343) + lu(k,1359) = lu(k,1359) - lu(k,1333) * lu(k,1343) + lu(k,1381) = lu(k,1381) - lu(k,1327) * lu(k,1376) + lu(k,1382) = lu(k,1382) - lu(k,1328) * lu(k,1376) + lu(k,1384) = lu(k,1384) - lu(k,1329) * lu(k,1376) + lu(k,1388) = lu(k,1388) - lu(k,1330) * lu(k,1376) + lu(k,1389) = lu(k,1389) - lu(k,1331) * lu(k,1376) + lu(k,1390) = lu(k,1390) - lu(k,1332) * lu(k,1376) + lu(k,1392) = lu(k,1392) - lu(k,1333) * lu(k,1376) + lu(k,1403) = lu(k,1403) - lu(k,1327) * lu(k,1400) + lu(k,1404) = lu(k,1404) - lu(k,1328) * lu(k,1400) + lu(k,1406) = lu(k,1406) - lu(k,1329) * lu(k,1400) + lu(k,1409) = lu(k,1409) - lu(k,1330) * lu(k,1400) + lu(k,1410) = lu(k,1410) - lu(k,1331) * lu(k,1400) + lu(k,1411) = lu(k,1411) - lu(k,1332) * lu(k,1400) + lu(k,1413) = lu(k,1413) - lu(k,1333) * lu(k,1400) + lu(k,1423) = lu(k,1423) - lu(k,1327) * lu(k,1419) + lu(k,1424) = lu(k,1424) - lu(k,1328) * lu(k,1419) + lu(k,1428) = lu(k,1428) - lu(k,1329) * lu(k,1419) + lu(k,1432) = lu(k,1432) - lu(k,1330) * lu(k,1419) + lu(k,1433) = lu(k,1433) - lu(k,1331) * lu(k,1419) + lu(k,1434) = lu(k,1434) - lu(k,1332) * lu(k,1419) + lu(k,1436) = lu(k,1436) - lu(k,1333) * lu(k,1419) + lu(k,1443) = lu(k,1443) - lu(k,1327) * lu(k,1441) + lu(k,1444) = lu(k,1444) - lu(k,1328) * lu(k,1441) + lu(k,1446) = lu(k,1446) - lu(k,1329) * lu(k,1441) + lu(k,1450) = - lu(k,1330) * lu(k,1441) + lu(k,1451) = lu(k,1451) - lu(k,1331) * lu(k,1441) + lu(k,1452) = lu(k,1452) - lu(k,1332) * lu(k,1441) + lu(k,1454) = lu(k,1454) - lu(k,1333) * lu(k,1441) + lu(k,1473) = lu(k,1473) - lu(k,1327) * lu(k,1467) + lu(k,1474) = lu(k,1474) - lu(k,1328) * lu(k,1467) + lu(k,1478) = lu(k,1478) - lu(k,1329) * lu(k,1467) + lu(k,1482) = lu(k,1482) - lu(k,1330) * lu(k,1467) + lu(k,1483) = lu(k,1483) - lu(k,1331) * lu(k,1467) + lu(k,1484) = lu(k,1484) - lu(k,1332) * lu(k,1467) + lu(k,1486) = lu(k,1486) - lu(k,1333) * lu(k,1467) + lu(k,1672) = lu(k,1672) - lu(k,1327) * lu(k,1670) + lu(k,1673) = lu(k,1673) - lu(k,1328) * lu(k,1670) + lu(k,1681) = lu(k,1681) - lu(k,1329) * lu(k,1670) + lu(k,1689) = lu(k,1689) - lu(k,1330) * lu(k,1670) + lu(k,1690) = lu(k,1690) - lu(k,1331) * lu(k,1670) + lu(k,1691) = lu(k,1691) - lu(k,1332) * lu(k,1670) + lu(k,1694) = lu(k,1694) - lu(k,1333) * lu(k,1670) + lu(k,1844) = lu(k,1844) - lu(k,1327) * lu(k,1838) + lu(k,1845) = lu(k,1845) - lu(k,1328) * lu(k,1838) + lu(k,1854) = lu(k,1854) - lu(k,1329) * lu(k,1838) + lu(k,1862) = lu(k,1862) - lu(k,1330) * lu(k,1838) + lu(k,1863) = lu(k,1863) - lu(k,1331) * lu(k,1838) + lu(k,1864) = lu(k,1864) - lu(k,1332) * lu(k,1838) + lu(k,1867) = lu(k,1867) - lu(k,1333) * lu(k,1838) + lu(k,1954) = lu(k,1954) - lu(k,1327) * lu(k,1948) + lu(k,1955) = lu(k,1955) - lu(k,1328) * lu(k,1948) + lu(k,1961) = lu(k,1961) - lu(k,1329) * lu(k,1948) + lu(k,1969) = lu(k,1969) - lu(k,1330) * lu(k,1948) + lu(k,1970) = lu(k,1970) - lu(k,1331) * lu(k,1948) + lu(k,1971) = lu(k,1971) - lu(k,1332) * lu(k,1948) + lu(k,1974) = lu(k,1974) - lu(k,1333) * lu(k,1948) + lu(k,1998) = lu(k,1998) - lu(k,1327) * lu(k,1997) + lu(k,1999) = lu(k,1999) - lu(k,1328) * lu(k,1997) + lu(k,2007) = lu(k,2007) - lu(k,1329) * lu(k,1997) + lu(k,2015) = lu(k,2015) - lu(k,1330) * lu(k,1997) + lu(k,2016) = lu(k,2016) - lu(k,1331) * lu(k,1997) + lu(k,2017) = lu(k,2017) - lu(k,1332) * lu(k,1997) + lu(k,2020) = lu(k,2020) - lu(k,1333) * lu(k,1997) + lu(k,2106) = lu(k,2106) - lu(k,1327) * lu(k,2100) + lu(k,2107) = lu(k,2107) - lu(k,1328) * lu(k,2100) + lu(k,2114) = lu(k,2114) - lu(k,1329) * lu(k,2100) + lu(k,2122) = lu(k,2122) - lu(k,1330) * lu(k,2100) + lu(k,2123) = lu(k,2123) - lu(k,1331) * lu(k,2100) + lu(k,2124) = lu(k,2124) - lu(k,1332) * lu(k,2100) + lu(k,2127) = lu(k,2127) - lu(k,1333) * lu(k,2100) + lu(k,2181) = lu(k,2181) - lu(k,1327) * lu(k,2175) + lu(k,2182) = lu(k,2182) - lu(k,1328) * lu(k,2175) + lu(k,2187) = lu(k,2187) - lu(k,1329) * lu(k,2175) + lu(k,2195) = lu(k,2195) - lu(k,1330) * lu(k,2175) + lu(k,2196) = lu(k,2196) - lu(k,1331) * lu(k,2175) + lu(k,2197) = lu(k,2197) - lu(k,1332) * lu(k,2175) + lu(k,2200) = lu(k,2200) - lu(k,1333) * lu(k,2175) + lu(k,2364) = lu(k,2364) - lu(k,1327) * lu(k,2358) + lu(k,2365) = lu(k,2365) - lu(k,1328) * lu(k,2358) + lu(k,2373) = lu(k,2373) - lu(k,1329) * lu(k,2358) + lu(k,2381) = lu(k,2381) - lu(k,1330) * lu(k,2358) + lu(k,2382) = lu(k,2382) - lu(k,1331) * lu(k,2358) + lu(k,2383) = lu(k,2383) - lu(k,1332) * lu(k,2358) + lu(k,2386) = lu(k,2386) - lu(k,1333) * lu(k,2358) + lu(k,2425) = lu(k,2425) - lu(k,1327) * lu(k,2419) + lu(k,2426) = lu(k,2426) - lu(k,1328) * lu(k,2419) + lu(k,2433) = lu(k,2433) - lu(k,1329) * lu(k,2419) + lu(k,2441) = lu(k,2441) - lu(k,1330) * lu(k,2419) + lu(k,2442) = lu(k,2442) - lu(k,1331) * lu(k,2419) + lu(k,2443) = lu(k,2443) - lu(k,1332) * lu(k,2419) + lu(k,2446) = lu(k,2446) - lu(k,1333) * lu(k,2419) + lu(k,1344) = 1._r8 / lu(k,1344) + lu(k,1345) = lu(k,1345) * lu(k,1344) + lu(k,1346) = lu(k,1346) * lu(k,1344) + lu(k,1347) = lu(k,1347) * lu(k,1344) + lu(k,1348) = lu(k,1348) * lu(k,1344) + lu(k,1349) = lu(k,1349) * lu(k,1344) + lu(k,1350) = lu(k,1350) * lu(k,1344) + lu(k,1351) = lu(k,1351) * lu(k,1344) + lu(k,1352) = lu(k,1352) * lu(k,1344) + lu(k,1353) = lu(k,1353) * lu(k,1344) + lu(k,1354) = lu(k,1354) * lu(k,1344) + lu(k,1355) = lu(k,1355) * lu(k,1344) + lu(k,1356) = lu(k,1356) * lu(k,1344) + lu(k,1357) = lu(k,1357) * lu(k,1344) + lu(k,1358) = lu(k,1358) * lu(k,1344) + lu(k,1359) = lu(k,1359) * lu(k,1344) + lu(k,1470) = lu(k,1470) - lu(k,1345) * lu(k,1468) + lu(k,1471) = lu(k,1471) - lu(k,1346) * lu(k,1468) + lu(k,1472) = lu(k,1472) - lu(k,1347) * lu(k,1468) + lu(k,1473) = lu(k,1473) - lu(k,1348) * lu(k,1468) + lu(k,1474) = lu(k,1474) - lu(k,1349) * lu(k,1468) + lu(k,1477) = lu(k,1477) - lu(k,1350) * lu(k,1468) + lu(k,1478) = lu(k,1478) - lu(k,1351) * lu(k,1468) + lu(k,1479) = lu(k,1479) - lu(k,1352) * lu(k,1468) + lu(k,1480) = lu(k,1480) - lu(k,1353) * lu(k,1468) + lu(k,1481) = lu(k,1481) - lu(k,1354) * lu(k,1468) + lu(k,1482) = lu(k,1482) - lu(k,1355) * lu(k,1468) + lu(k,1483) = lu(k,1483) - lu(k,1356) * lu(k,1468) + lu(k,1484) = lu(k,1484) - lu(k,1357) * lu(k,1468) + lu(k,1485) = lu(k,1485) - lu(k,1358) * lu(k,1468) + lu(k,1486) = lu(k,1486) - lu(k,1359) * lu(k,1468) + lu(k,1841) = lu(k,1841) - lu(k,1345) * lu(k,1839) + lu(k,1842) = lu(k,1842) - lu(k,1346) * lu(k,1839) + lu(k,1843) = lu(k,1843) - lu(k,1347) * lu(k,1839) + lu(k,1844) = lu(k,1844) - lu(k,1348) * lu(k,1839) + lu(k,1845) = lu(k,1845) - lu(k,1349) * lu(k,1839) + lu(k,1853) = lu(k,1853) - lu(k,1350) * lu(k,1839) + lu(k,1854) = lu(k,1854) - lu(k,1351) * lu(k,1839) + lu(k,1855) = lu(k,1855) - lu(k,1352) * lu(k,1839) + lu(k,1858) = lu(k,1858) - lu(k,1353) * lu(k,1839) + lu(k,1860) = lu(k,1860) - lu(k,1354) * lu(k,1839) + lu(k,1862) = lu(k,1862) - lu(k,1355) * lu(k,1839) + lu(k,1863) = lu(k,1863) - lu(k,1356) * lu(k,1839) + lu(k,1864) = lu(k,1864) - lu(k,1357) * lu(k,1839) + lu(k,1865) = lu(k,1865) - lu(k,1358) * lu(k,1839) + lu(k,1867) = lu(k,1867) - lu(k,1359) * lu(k,1839) + lu(k,1951) = lu(k,1951) - lu(k,1345) * lu(k,1949) + lu(k,1952) = lu(k,1952) - lu(k,1346) * lu(k,1949) + lu(k,1953) = lu(k,1953) - lu(k,1347) * lu(k,1949) + lu(k,1954) = lu(k,1954) - lu(k,1348) * lu(k,1949) + lu(k,1955) = lu(k,1955) - lu(k,1349) * lu(k,1949) + lu(k,1960) = lu(k,1960) - lu(k,1350) * lu(k,1949) + lu(k,1961) = lu(k,1961) - lu(k,1351) * lu(k,1949) + lu(k,1962) = lu(k,1962) - lu(k,1352) * lu(k,1949) + lu(k,1965) = lu(k,1965) - lu(k,1353) * lu(k,1949) + lu(k,1967) = lu(k,1967) - lu(k,1354) * lu(k,1949) + lu(k,1969) = lu(k,1969) - lu(k,1355) * lu(k,1949) + lu(k,1970) = lu(k,1970) - lu(k,1356) * lu(k,1949) + lu(k,1971) = lu(k,1971) - lu(k,1357) * lu(k,1949) + lu(k,1972) = lu(k,1972) - lu(k,1358) * lu(k,1949) + lu(k,1974) = lu(k,1974) - lu(k,1359) * lu(k,1949) + lu(k,2103) = lu(k,2103) - lu(k,1345) * lu(k,2101) + lu(k,2104) = lu(k,2104) - lu(k,1346) * lu(k,2101) + lu(k,2105) = lu(k,2105) - lu(k,1347) * lu(k,2101) + lu(k,2106) = lu(k,2106) - lu(k,1348) * lu(k,2101) + lu(k,2107) = lu(k,2107) - lu(k,1349) * lu(k,2101) + lu(k,2113) = lu(k,2113) - lu(k,1350) * lu(k,2101) + lu(k,2114) = lu(k,2114) - lu(k,1351) * lu(k,2101) + lu(k,2115) = lu(k,2115) - lu(k,1352) * lu(k,2101) + lu(k,2118) = lu(k,2118) - lu(k,1353) * lu(k,2101) + lu(k,2120) = lu(k,2120) - lu(k,1354) * lu(k,2101) + lu(k,2122) = lu(k,2122) - lu(k,1355) * lu(k,2101) + lu(k,2123) = lu(k,2123) - lu(k,1356) * lu(k,2101) + lu(k,2124) = lu(k,2124) - lu(k,1357) * lu(k,2101) + lu(k,2125) = lu(k,2125) - lu(k,1358) * lu(k,2101) + lu(k,2127) = lu(k,2127) - lu(k,1359) * lu(k,2101) + lu(k,2178) = lu(k,2178) - lu(k,1345) * lu(k,2176) + lu(k,2179) = lu(k,2179) - lu(k,1346) * lu(k,2176) + lu(k,2180) = lu(k,2180) - lu(k,1347) * lu(k,2176) + lu(k,2181) = lu(k,2181) - lu(k,1348) * lu(k,2176) + lu(k,2182) = lu(k,2182) - lu(k,1349) * lu(k,2176) + lu(k,2186) = lu(k,2186) - lu(k,1350) * lu(k,2176) + lu(k,2187) = lu(k,2187) - lu(k,1351) * lu(k,2176) + lu(k,2188) = lu(k,2188) - lu(k,1352) * lu(k,2176) + lu(k,2191) = lu(k,2191) - lu(k,1353) * lu(k,2176) + lu(k,2193) = lu(k,2193) - lu(k,1354) * lu(k,2176) + lu(k,2195) = lu(k,2195) - lu(k,1355) * lu(k,2176) + lu(k,2196) = lu(k,2196) - lu(k,1356) * lu(k,2176) + lu(k,2197) = lu(k,2197) - lu(k,1357) * lu(k,2176) + lu(k,2198) = lu(k,2198) - lu(k,1358) * lu(k,2176) + lu(k,2200) = lu(k,2200) - lu(k,1359) * lu(k,2176) + lu(k,2361) = lu(k,2361) - lu(k,1345) * lu(k,2359) + lu(k,2362) = lu(k,2362) - lu(k,1346) * lu(k,2359) + lu(k,2363) = lu(k,2363) - lu(k,1347) * lu(k,2359) + lu(k,2364) = lu(k,2364) - lu(k,1348) * lu(k,2359) + lu(k,2365) = lu(k,2365) - lu(k,1349) * lu(k,2359) + lu(k,2372) = lu(k,2372) - lu(k,1350) * lu(k,2359) + lu(k,2373) = lu(k,2373) - lu(k,1351) * lu(k,2359) + lu(k,2374) = lu(k,2374) - lu(k,1352) * lu(k,2359) + lu(k,2377) = lu(k,2377) - lu(k,1353) * lu(k,2359) + lu(k,2379) = lu(k,2379) - lu(k,1354) * lu(k,2359) + lu(k,2381) = lu(k,2381) - lu(k,1355) * lu(k,2359) + lu(k,2382) = lu(k,2382) - lu(k,1356) * lu(k,2359) + lu(k,2383) = lu(k,2383) - lu(k,1357) * lu(k,2359) + lu(k,2384) = lu(k,2384) - lu(k,1358) * lu(k,2359) + lu(k,2386) = lu(k,2386) - lu(k,1359) * lu(k,2359) + lu(k,2422) = lu(k,2422) - lu(k,1345) * lu(k,2420) + lu(k,2423) = lu(k,2423) - lu(k,1346) * lu(k,2420) + lu(k,2424) = lu(k,2424) - lu(k,1347) * lu(k,2420) + lu(k,2425) = lu(k,2425) - lu(k,1348) * lu(k,2420) + lu(k,2426) = lu(k,2426) - lu(k,1349) * lu(k,2420) + lu(k,2432) = lu(k,2432) - lu(k,1350) * lu(k,2420) + lu(k,2433) = lu(k,2433) - lu(k,1351) * lu(k,2420) + lu(k,2434) = lu(k,2434) - lu(k,1352) * lu(k,2420) + lu(k,2437) = lu(k,2437) - lu(k,1353) * lu(k,2420) + lu(k,2439) = lu(k,2439) - lu(k,1354) * lu(k,2420) + lu(k,2441) = lu(k,2441) - lu(k,1355) * lu(k,2420) + lu(k,2442) = lu(k,2442) - lu(k,1356) * lu(k,2420) + lu(k,2443) = lu(k,2443) - lu(k,1357) * lu(k,2420) + lu(k,2444) = lu(k,2444) - lu(k,1358) * lu(k,2420) + lu(k,2446) = lu(k,2446) - lu(k,1359) * lu(k,2420) + lu(k,1377) = 1._r8 / lu(k,1377) + lu(k,1378) = lu(k,1378) * lu(k,1377) + lu(k,1379) = lu(k,1379) * lu(k,1377) + lu(k,1380) = lu(k,1380) * lu(k,1377) + lu(k,1381) = lu(k,1381) * lu(k,1377) + lu(k,1382) = lu(k,1382) * lu(k,1377) + lu(k,1383) = lu(k,1383) * lu(k,1377) + lu(k,1384) = lu(k,1384) * lu(k,1377) + lu(k,1385) = lu(k,1385) * lu(k,1377) + lu(k,1386) = lu(k,1386) * lu(k,1377) + lu(k,1387) = lu(k,1387) * lu(k,1377) + lu(k,1388) = lu(k,1388) * lu(k,1377) + lu(k,1389) = lu(k,1389) * lu(k,1377) + lu(k,1390) = lu(k,1390) * lu(k,1377) + lu(k,1391) = lu(k,1391) * lu(k,1377) + lu(k,1392) = lu(k,1392) * lu(k,1377) + lu(k,1470) = lu(k,1470) - lu(k,1378) * lu(k,1469) + lu(k,1471) = lu(k,1471) - lu(k,1379) * lu(k,1469) + lu(k,1472) = lu(k,1472) - lu(k,1380) * lu(k,1469) + lu(k,1473) = lu(k,1473) - lu(k,1381) * lu(k,1469) + lu(k,1474) = lu(k,1474) - lu(k,1382) * lu(k,1469) + lu(k,1477) = lu(k,1477) - lu(k,1383) * lu(k,1469) + lu(k,1478) = lu(k,1478) - lu(k,1384) * lu(k,1469) + lu(k,1479) = lu(k,1479) - lu(k,1385) * lu(k,1469) + lu(k,1480) = lu(k,1480) - lu(k,1386) * lu(k,1469) + lu(k,1481) = lu(k,1481) - lu(k,1387) * lu(k,1469) + lu(k,1482) = lu(k,1482) - lu(k,1388) * lu(k,1469) + lu(k,1483) = lu(k,1483) - lu(k,1389) * lu(k,1469) + lu(k,1484) = lu(k,1484) - lu(k,1390) * lu(k,1469) + lu(k,1485) = lu(k,1485) - lu(k,1391) * lu(k,1469) + lu(k,1486) = lu(k,1486) - lu(k,1392) * lu(k,1469) + lu(k,1841) = lu(k,1841) - lu(k,1378) * lu(k,1840) + lu(k,1842) = lu(k,1842) - lu(k,1379) * lu(k,1840) + lu(k,1843) = lu(k,1843) - lu(k,1380) * lu(k,1840) + lu(k,1844) = lu(k,1844) - lu(k,1381) * lu(k,1840) + lu(k,1845) = lu(k,1845) - lu(k,1382) * lu(k,1840) + lu(k,1853) = lu(k,1853) - lu(k,1383) * lu(k,1840) + lu(k,1854) = lu(k,1854) - lu(k,1384) * lu(k,1840) + lu(k,1855) = lu(k,1855) - lu(k,1385) * lu(k,1840) + lu(k,1858) = lu(k,1858) - lu(k,1386) * lu(k,1840) + lu(k,1860) = lu(k,1860) - lu(k,1387) * lu(k,1840) + lu(k,1862) = lu(k,1862) - lu(k,1388) * lu(k,1840) + lu(k,1863) = lu(k,1863) - lu(k,1389) * lu(k,1840) + lu(k,1864) = lu(k,1864) - lu(k,1390) * lu(k,1840) + lu(k,1865) = lu(k,1865) - lu(k,1391) * lu(k,1840) + lu(k,1867) = lu(k,1867) - lu(k,1392) * lu(k,1840) + lu(k,1951) = lu(k,1951) - lu(k,1378) * lu(k,1950) + lu(k,1952) = lu(k,1952) - lu(k,1379) * lu(k,1950) + lu(k,1953) = lu(k,1953) - lu(k,1380) * lu(k,1950) + lu(k,1954) = lu(k,1954) - lu(k,1381) * lu(k,1950) + lu(k,1955) = lu(k,1955) - lu(k,1382) * lu(k,1950) + lu(k,1960) = lu(k,1960) - lu(k,1383) * lu(k,1950) + lu(k,1961) = lu(k,1961) - lu(k,1384) * lu(k,1950) + lu(k,1962) = lu(k,1962) - lu(k,1385) * lu(k,1950) + lu(k,1965) = lu(k,1965) - lu(k,1386) * lu(k,1950) + lu(k,1967) = lu(k,1967) - lu(k,1387) * lu(k,1950) + lu(k,1969) = lu(k,1969) - lu(k,1388) * lu(k,1950) + lu(k,1970) = lu(k,1970) - lu(k,1389) * lu(k,1950) + lu(k,1971) = lu(k,1971) - lu(k,1390) * lu(k,1950) + lu(k,1972) = lu(k,1972) - lu(k,1391) * lu(k,1950) + lu(k,1974) = lu(k,1974) - lu(k,1392) * lu(k,1950) + lu(k,2103) = lu(k,2103) - lu(k,1378) * lu(k,2102) + lu(k,2104) = lu(k,2104) - lu(k,1379) * lu(k,2102) + lu(k,2105) = lu(k,2105) - lu(k,1380) * lu(k,2102) + lu(k,2106) = lu(k,2106) - lu(k,1381) * lu(k,2102) + lu(k,2107) = lu(k,2107) - lu(k,1382) * lu(k,2102) + lu(k,2113) = lu(k,2113) - lu(k,1383) * lu(k,2102) + lu(k,2114) = lu(k,2114) - lu(k,1384) * lu(k,2102) + lu(k,2115) = lu(k,2115) - lu(k,1385) * lu(k,2102) + lu(k,2118) = lu(k,2118) - lu(k,1386) * lu(k,2102) + lu(k,2120) = lu(k,2120) - lu(k,1387) * lu(k,2102) + lu(k,2122) = lu(k,2122) - lu(k,1388) * lu(k,2102) + lu(k,2123) = lu(k,2123) - lu(k,1389) * lu(k,2102) + lu(k,2124) = lu(k,2124) - lu(k,1390) * lu(k,2102) + lu(k,2125) = lu(k,2125) - lu(k,1391) * lu(k,2102) + lu(k,2127) = lu(k,2127) - lu(k,1392) * lu(k,2102) + lu(k,2178) = lu(k,2178) - lu(k,1378) * lu(k,2177) + lu(k,2179) = lu(k,2179) - lu(k,1379) * lu(k,2177) + lu(k,2180) = lu(k,2180) - lu(k,1380) * lu(k,2177) + lu(k,2181) = lu(k,2181) - lu(k,1381) * lu(k,2177) + lu(k,2182) = lu(k,2182) - lu(k,1382) * lu(k,2177) + lu(k,2186) = lu(k,2186) - lu(k,1383) * lu(k,2177) + lu(k,2187) = lu(k,2187) - lu(k,1384) * lu(k,2177) + lu(k,2188) = lu(k,2188) - lu(k,1385) * lu(k,2177) + lu(k,2191) = lu(k,2191) - lu(k,1386) * lu(k,2177) + lu(k,2193) = lu(k,2193) - lu(k,1387) * lu(k,2177) + lu(k,2195) = lu(k,2195) - lu(k,1388) * lu(k,2177) + lu(k,2196) = lu(k,2196) - lu(k,1389) * lu(k,2177) + lu(k,2197) = lu(k,2197) - lu(k,1390) * lu(k,2177) + lu(k,2198) = lu(k,2198) - lu(k,1391) * lu(k,2177) + lu(k,2200) = lu(k,2200) - lu(k,1392) * lu(k,2177) + lu(k,2361) = lu(k,2361) - lu(k,1378) * lu(k,2360) + lu(k,2362) = lu(k,2362) - lu(k,1379) * lu(k,2360) + lu(k,2363) = lu(k,2363) - lu(k,1380) * lu(k,2360) + lu(k,2364) = lu(k,2364) - lu(k,1381) * lu(k,2360) + lu(k,2365) = lu(k,2365) - lu(k,1382) * lu(k,2360) + lu(k,2372) = lu(k,2372) - lu(k,1383) * lu(k,2360) + lu(k,2373) = lu(k,2373) - lu(k,1384) * lu(k,2360) + lu(k,2374) = lu(k,2374) - lu(k,1385) * lu(k,2360) + lu(k,2377) = lu(k,2377) - lu(k,1386) * lu(k,2360) + lu(k,2379) = lu(k,2379) - lu(k,1387) * lu(k,2360) + lu(k,2381) = lu(k,2381) - lu(k,1388) * lu(k,2360) + lu(k,2382) = lu(k,2382) - lu(k,1389) * lu(k,2360) + lu(k,2383) = lu(k,2383) - lu(k,1390) * lu(k,2360) + lu(k,2384) = lu(k,2384) - lu(k,1391) * lu(k,2360) + lu(k,2386) = lu(k,2386) - lu(k,1392) * lu(k,2360) + lu(k,2422) = lu(k,2422) - lu(k,1378) * lu(k,2421) + lu(k,2423) = lu(k,2423) - lu(k,1379) * lu(k,2421) + lu(k,2424) = lu(k,2424) - lu(k,1380) * lu(k,2421) + lu(k,2425) = lu(k,2425) - lu(k,1381) * lu(k,2421) + lu(k,2426) = lu(k,2426) - lu(k,1382) * lu(k,2421) + lu(k,2432) = lu(k,2432) - lu(k,1383) * lu(k,2421) + lu(k,2433) = lu(k,2433) - lu(k,1384) * lu(k,2421) + lu(k,2434) = lu(k,2434) - lu(k,1385) * lu(k,2421) + lu(k,2437) = lu(k,2437) - lu(k,1386) * lu(k,2421) + lu(k,2439) = lu(k,2439) - lu(k,1387) * lu(k,2421) + lu(k,2441) = lu(k,2441) - lu(k,1388) * lu(k,2421) + lu(k,2442) = lu(k,2442) - lu(k,1389) * lu(k,2421) + lu(k,2443) = lu(k,2443) - lu(k,1390) * lu(k,2421) + lu(k,2444) = lu(k,2444) - lu(k,1391) * lu(k,2421) + lu(k,2446) = lu(k,2446) - lu(k,1392) * lu(k,2421) + lu(k,1401) = 1._r8 / lu(k,1401) + lu(k,1402) = lu(k,1402) * lu(k,1401) + lu(k,1403) = lu(k,1403) * lu(k,1401) + lu(k,1404) = lu(k,1404) * lu(k,1401) + lu(k,1405) = lu(k,1405) * lu(k,1401) + lu(k,1406) = lu(k,1406) * lu(k,1401) + lu(k,1407) = lu(k,1407) * lu(k,1401) + lu(k,1408) = lu(k,1408) * lu(k,1401) + lu(k,1409) = lu(k,1409) * lu(k,1401) + lu(k,1410) = lu(k,1410) * lu(k,1401) + lu(k,1411) = lu(k,1411) * lu(k,1401) + lu(k,1412) = lu(k,1412) * lu(k,1401) + lu(k,1413) = lu(k,1413) * lu(k,1401) + lu(k,1422) = - lu(k,1402) * lu(k,1420) + lu(k,1423) = lu(k,1423) - lu(k,1403) * lu(k,1420) + lu(k,1424) = lu(k,1424) - lu(k,1404) * lu(k,1420) + lu(k,1427) = lu(k,1427) - lu(k,1405) * lu(k,1420) + lu(k,1428) = lu(k,1428) - lu(k,1406) * lu(k,1420) + lu(k,1429) = lu(k,1429) - lu(k,1407) * lu(k,1420) + lu(k,1431) = lu(k,1431) - lu(k,1408) * lu(k,1420) + lu(k,1432) = lu(k,1432) - lu(k,1409) * lu(k,1420) + lu(k,1433) = lu(k,1433) - lu(k,1410) * lu(k,1420) + lu(k,1434) = lu(k,1434) - lu(k,1411) * lu(k,1420) + lu(k,1435) = lu(k,1435) - lu(k,1412) * lu(k,1420) + lu(k,1436) = lu(k,1436) - lu(k,1413) * lu(k,1420) + lu(k,1472) = lu(k,1472) - lu(k,1402) * lu(k,1470) + lu(k,1473) = lu(k,1473) - lu(k,1403) * lu(k,1470) + lu(k,1474) = lu(k,1474) - lu(k,1404) * lu(k,1470) + lu(k,1477) = lu(k,1477) - lu(k,1405) * lu(k,1470) + lu(k,1478) = lu(k,1478) - lu(k,1406) * lu(k,1470) + lu(k,1479) = lu(k,1479) - lu(k,1407) * lu(k,1470) + lu(k,1481) = lu(k,1481) - lu(k,1408) * lu(k,1470) + lu(k,1482) = lu(k,1482) - lu(k,1409) * lu(k,1470) + lu(k,1483) = lu(k,1483) - lu(k,1410) * lu(k,1470) + lu(k,1484) = lu(k,1484) - lu(k,1411) * lu(k,1470) + lu(k,1485) = lu(k,1485) - lu(k,1412) * lu(k,1470) + lu(k,1486) = lu(k,1486) - lu(k,1413) * lu(k,1470) + lu(k,1843) = lu(k,1843) - lu(k,1402) * lu(k,1841) + lu(k,1844) = lu(k,1844) - lu(k,1403) * lu(k,1841) + lu(k,1845) = lu(k,1845) - lu(k,1404) * lu(k,1841) + lu(k,1853) = lu(k,1853) - lu(k,1405) * lu(k,1841) + lu(k,1854) = lu(k,1854) - lu(k,1406) * lu(k,1841) + lu(k,1855) = lu(k,1855) - lu(k,1407) * lu(k,1841) + lu(k,1860) = lu(k,1860) - lu(k,1408) * lu(k,1841) + lu(k,1862) = lu(k,1862) - lu(k,1409) * lu(k,1841) + lu(k,1863) = lu(k,1863) - lu(k,1410) * lu(k,1841) + lu(k,1864) = lu(k,1864) - lu(k,1411) * lu(k,1841) + lu(k,1865) = lu(k,1865) - lu(k,1412) * lu(k,1841) + lu(k,1867) = lu(k,1867) - lu(k,1413) * lu(k,1841) + lu(k,1953) = lu(k,1953) - lu(k,1402) * lu(k,1951) + lu(k,1954) = lu(k,1954) - lu(k,1403) * lu(k,1951) + lu(k,1955) = lu(k,1955) - lu(k,1404) * lu(k,1951) + lu(k,1960) = lu(k,1960) - lu(k,1405) * lu(k,1951) + lu(k,1961) = lu(k,1961) - lu(k,1406) * lu(k,1951) + lu(k,1962) = lu(k,1962) - lu(k,1407) * lu(k,1951) + lu(k,1967) = lu(k,1967) - lu(k,1408) * lu(k,1951) + lu(k,1969) = lu(k,1969) - lu(k,1409) * lu(k,1951) + lu(k,1970) = lu(k,1970) - lu(k,1410) * lu(k,1951) + lu(k,1971) = lu(k,1971) - lu(k,1411) * lu(k,1951) + lu(k,1972) = lu(k,1972) - lu(k,1412) * lu(k,1951) + lu(k,1974) = lu(k,1974) - lu(k,1413) * lu(k,1951) + lu(k,2105) = lu(k,2105) - lu(k,1402) * lu(k,2103) + lu(k,2106) = lu(k,2106) - lu(k,1403) * lu(k,2103) + lu(k,2107) = lu(k,2107) - lu(k,1404) * lu(k,2103) + lu(k,2113) = lu(k,2113) - lu(k,1405) * lu(k,2103) + lu(k,2114) = lu(k,2114) - lu(k,1406) * lu(k,2103) + lu(k,2115) = lu(k,2115) - lu(k,1407) * lu(k,2103) + lu(k,2120) = lu(k,2120) - lu(k,1408) * lu(k,2103) + lu(k,2122) = lu(k,2122) - lu(k,1409) * lu(k,2103) + lu(k,2123) = lu(k,2123) - lu(k,1410) * lu(k,2103) + lu(k,2124) = lu(k,2124) - lu(k,1411) * lu(k,2103) + lu(k,2125) = lu(k,2125) - lu(k,1412) * lu(k,2103) + lu(k,2127) = lu(k,2127) - lu(k,1413) * lu(k,2103) + lu(k,2180) = lu(k,2180) - lu(k,1402) * lu(k,2178) + lu(k,2181) = lu(k,2181) - lu(k,1403) * lu(k,2178) + lu(k,2182) = lu(k,2182) - lu(k,1404) * lu(k,2178) + lu(k,2186) = lu(k,2186) - lu(k,1405) * lu(k,2178) + lu(k,2187) = lu(k,2187) - lu(k,1406) * lu(k,2178) + lu(k,2188) = lu(k,2188) - lu(k,1407) * lu(k,2178) + lu(k,2193) = lu(k,2193) - lu(k,1408) * lu(k,2178) + lu(k,2195) = lu(k,2195) - lu(k,1409) * lu(k,2178) + lu(k,2196) = lu(k,2196) - lu(k,1410) * lu(k,2178) + lu(k,2197) = lu(k,2197) - lu(k,1411) * lu(k,2178) + lu(k,2198) = lu(k,2198) - lu(k,1412) * lu(k,2178) + lu(k,2200) = lu(k,2200) - lu(k,1413) * lu(k,2178) + lu(k,2363) = lu(k,2363) - lu(k,1402) * lu(k,2361) + lu(k,2364) = lu(k,2364) - lu(k,1403) * lu(k,2361) + lu(k,2365) = lu(k,2365) - lu(k,1404) * lu(k,2361) + lu(k,2372) = lu(k,2372) - lu(k,1405) * lu(k,2361) + lu(k,2373) = lu(k,2373) - lu(k,1406) * lu(k,2361) + lu(k,2374) = lu(k,2374) - lu(k,1407) * lu(k,2361) + lu(k,2379) = lu(k,2379) - lu(k,1408) * lu(k,2361) + lu(k,2381) = lu(k,2381) - lu(k,1409) * lu(k,2361) + lu(k,2382) = lu(k,2382) - lu(k,1410) * lu(k,2361) + lu(k,2383) = lu(k,2383) - lu(k,1411) * lu(k,2361) + lu(k,2384) = lu(k,2384) - lu(k,1412) * lu(k,2361) + lu(k,2386) = lu(k,2386) - lu(k,1413) * lu(k,2361) + lu(k,2424) = lu(k,2424) - lu(k,1402) * lu(k,2422) + lu(k,2425) = lu(k,2425) - lu(k,1403) * lu(k,2422) + lu(k,2426) = lu(k,2426) - lu(k,1404) * lu(k,2422) + lu(k,2432) = lu(k,2432) - lu(k,1405) * lu(k,2422) + lu(k,2433) = lu(k,2433) - lu(k,1406) * lu(k,2422) + lu(k,2434) = lu(k,2434) - lu(k,1407) * lu(k,2422) + lu(k,2439) = lu(k,2439) - lu(k,1408) * lu(k,2422) + lu(k,2441) = lu(k,2441) - lu(k,1409) * lu(k,2422) + lu(k,2442) = lu(k,2442) - lu(k,1410) * lu(k,2422) + lu(k,2443) = lu(k,2443) - lu(k,1411) * lu(k,2422) + lu(k,2444) = lu(k,2444) - lu(k,1412) * lu(k,2422) + lu(k,2446) = lu(k,2446) - lu(k,1413) * lu(k,2422) end do end subroutine lu_fac27 subroutine lu_fac28( avec_len, lu ) @@ -5876,467 +5880,467 @@ subroutine lu_fac28( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1420) = 1._r8 / lu(k,1420) - lu(k,1421) = lu(k,1421) * lu(k,1420) - lu(k,1422) = lu(k,1422) * lu(k,1420) - lu(k,1423) = lu(k,1423) * lu(k,1420) - lu(k,1424) = lu(k,1424) * lu(k,1420) - lu(k,1425) = lu(k,1425) * lu(k,1420) - lu(k,1426) = lu(k,1426) * lu(k,1420) - lu(k,1427) = lu(k,1427) * lu(k,1420) - lu(k,1428) = lu(k,1428) * lu(k,1420) - lu(k,1429) = lu(k,1429) * lu(k,1420) - lu(k,1430) = lu(k,1430) * lu(k,1420) - lu(k,1431) = lu(k,1431) * lu(k,1420) - lu(k,1432) = lu(k,1432) * lu(k,1420) - lu(k,1433) = lu(k,1433) * lu(k,1420) - lu(k,1434) = lu(k,1434) * lu(k,1420) - lu(k,1435) = lu(k,1435) * lu(k,1420) - lu(k,1471) = lu(k,1471) - lu(k,1421) * lu(k,1470) - lu(k,1472) = lu(k,1472) - lu(k,1422) * lu(k,1470) - lu(k,1473) = lu(k,1473) - lu(k,1423) * lu(k,1470) - lu(k,1474) = - lu(k,1424) * lu(k,1470) - lu(k,1475) = lu(k,1475) - lu(k,1425) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,1426) * lu(k,1470) - lu(k,1477) = lu(k,1477) - lu(k,1427) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,1428) * lu(k,1470) - lu(k,1479) = - lu(k,1429) * lu(k,1470) - lu(k,1480) = lu(k,1480) - lu(k,1430) * lu(k,1470) - lu(k,1481) = lu(k,1481) - lu(k,1431) * lu(k,1470) - lu(k,1482) = lu(k,1482) - lu(k,1432) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,1433) * lu(k,1470) - lu(k,1484) = lu(k,1484) - lu(k,1434) * lu(k,1470) - lu(k,1485) = lu(k,1485) - lu(k,1435) * lu(k,1470) - lu(k,1780) = lu(k,1780) - lu(k,1421) * lu(k,1779) - lu(k,1781) = lu(k,1781) - lu(k,1422) * lu(k,1779) - lu(k,1782) = lu(k,1782) - lu(k,1423) * lu(k,1779) - lu(k,1784) = lu(k,1784) - lu(k,1424) * lu(k,1779) - lu(k,1787) = lu(k,1787) - lu(k,1425) * lu(k,1779) - lu(k,1788) = lu(k,1788) - lu(k,1426) * lu(k,1779) - lu(k,1790) = lu(k,1790) - lu(k,1427) * lu(k,1779) - lu(k,1791) = lu(k,1791) - lu(k,1428) * lu(k,1779) - lu(k,1792) = - lu(k,1429) * lu(k,1779) - lu(k,1793) = lu(k,1793) - lu(k,1430) * lu(k,1779) - lu(k,1796) = lu(k,1796) - lu(k,1431) * lu(k,1779) - lu(k,1797) = lu(k,1797) - lu(k,1432) * lu(k,1779) - lu(k,1798) = lu(k,1798) - lu(k,1433) * lu(k,1779) - lu(k,1800) = lu(k,1800) - lu(k,1434) * lu(k,1779) - lu(k,1801) = lu(k,1801) - lu(k,1435) * lu(k,1779) - lu(k,1993) = lu(k,1993) - lu(k,1421) * lu(k,1992) - lu(k,1994) = lu(k,1994) - lu(k,1422) * lu(k,1992) - lu(k,1995) = lu(k,1995) - lu(k,1423) * lu(k,1992) - lu(k,2000) = lu(k,2000) - lu(k,1424) * lu(k,1992) - lu(k,2003) = lu(k,2003) - lu(k,1425) * lu(k,1992) - lu(k,2004) = lu(k,2004) - lu(k,1426) * lu(k,1992) - lu(k,2006) = lu(k,2006) - lu(k,1427) * lu(k,1992) - lu(k,2007) = lu(k,2007) - lu(k,1428) * lu(k,1992) - lu(k,2008) = lu(k,2008) - lu(k,1429) * lu(k,1992) - lu(k,2009) = lu(k,2009) - lu(k,1430) * lu(k,1992) - lu(k,2012) = lu(k,2012) - lu(k,1431) * lu(k,1992) - lu(k,2013) = lu(k,2013) - lu(k,1432) * lu(k,1992) - lu(k,2014) = lu(k,2014) - lu(k,1433) * lu(k,1992) - lu(k,2016) = lu(k,2016) - lu(k,1434) * lu(k,1992) - lu(k,2017) = lu(k,2017) - lu(k,1435) * lu(k,1992) - lu(k,2055) = lu(k,2055) - lu(k,1421) * lu(k,2054) - lu(k,2056) = lu(k,2056) - lu(k,1422) * lu(k,2054) - lu(k,2057) = lu(k,2057) - lu(k,1423) * lu(k,2054) - lu(k,2060) = lu(k,2060) - lu(k,1424) * lu(k,2054) - lu(k,2063) = lu(k,2063) - lu(k,1425) * lu(k,2054) - lu(k,2064) = lu(k,2064) - lu(k,1426) * lu(k,2054) - lu(k,2066) = lu(k,2066) - lu(k,1427) * lu(k,2054) - lu(k,2067) = lu(k,2067) - lu(k,1428) * lu(k,2054) - lu(k,2068) = lu(k,2068) - lu(k,1429) * lu(k,2054) - lu(k,2069) = lu(k,2069) - lu(k,1430) * lu(k,2054) - lu(k,2072) = lu(k,2072) - lu(k,1431) * lu(k,2054) - lu(k,2073) = lu(k,2073) - lu(k,1432) * lu(k,2054) - lu(k,2074) = lu(k,2074) - lu(k,1433) * lu(k,2054) - lu(k,2076) = lu(k,2076) - lu(k,1434) * lu(k,2054) - lu(k,2077) = lu(k,2077) - lu(k,1435) * lu(k,2054) - lu(k,2199) = lu(k,2199) - lu(k,1421) * lu(k,2198) - lu(k,2200) = lu(k,2200) - lu(k,1422) * lu(k,2198) - lu(k,2201) = lu(k,2201) - lu(k,1423) * lu(k,2198) - lu(k,2205) = lu(k,2205) - lu(k,1424) * lu(k,2198) - lu(k,2208) = lu(k,2208) - lu(k,1425) * lu(k,2198) - lu(k,2209) = lu(k,2209) - lu(k,1426) * lu(k,2198) - lu(k,2211) = lu(k,2211) - lu(k,1427) * lu(k,2198) - lu(k,2212) = lu(k,2212) - lu(k,1428) * lu(k,2198) - lu(k,2213) = - lu(k,1429) * lu(k,2198) - lu(k,2214) = lu(k,2214) - lu(k,1430) * lu(k,2198) - lu(k,2217) = lu(k,2217) - lu(k,1431) * lu(k,2198) - lu(k,2218) = lu(k,2218) - lu(k,1432) * lu(k,2198) - lu(k,2219) = lu(k,2219) - lu(k,1433) * lu(k,2198) - lu(k,2221) = lu(k,2221) - lu(k,1434) * lu(k,2198) - lu(k,2222) = lu(k,2222) - lu(k,1435) * lu(k,2198) - lu(k,2344) = lu(k,2344) - lu(k,1421) * lu(k,2343) - lu(k,2345) = lu(k,2345) - lu(k,1422) * lu(k,2343) - lu(k,2346) = lu(k,2346) - lu(k,1423) * lu(k,2343) - lu(k,2347) = lu(k,2347) - lu(k,1424) * lu(k,2343) - lu(k,2350) = lu(k,2350) - lu(k,1425) * lu(k,2343) - lu(k,2351) = lu(k,2351) - lu(k,1426) * lu(k,2343) - lu(k,2353) = lu(k,2353) - lu(k,1427) * lu(k,2343) - lu(k,2354) = lu(k,2354) - lu(k,1428) * lu(k,2343) - lu(k,2355) = - lu(k,1429) * lu(k,2343) - lu(k,2356) = lu(k,2356) - lu(k,1430) * lu(k,2343) - lu(k,2359) = lu(k,2359) - lu(k,1431) * lu(k,2343) - lu(k,2360) = lu(k,2360) - lu(k,1432) * lu(k,2343) - lu(k,2361) = lu(k,2361) - lu(k,1433) * lu(k,2343) - lu(k,2363) = lu(k,2363) - lu(k,1434) * lu(k,2343) - lu(k,2364) = lu(k,2364) - lu(k,1435) * lu(k,2343) - lu(k,2406) = lu(k,2406) - lu(k,1421) * lu(k,2405) - lu(k,2407) = lu(k,2407) - lu(k,1422) * lu(k,2405) - lu(k,2408) = lu(k,2408) - lu(k,1423) * lu(k,2405) - lu(k,2411) = lu(k,2411) - lu(k,1424) * lu(k,2405) - lu(k,2414) = lu(k,2414) - lu(k,1425) * lu(k,2405) - lu(k,2415) = lu(k,2415) - lu(k,1426) * lu(k,2405) - lu(k,2417) = lu(k,2417) - lu(k,1427) * lu(k,2405) - lu(k,2418) = lu(k,2418) - lu(k,1428) * lu(k,2405) - lu(k,2419) = lu(k,2419) - lu(k,1429) * lu(k,2405) - lu(k,2420) = lu(k,2420) - lu(k,1430) * lu(k,2405) - lu(k,2423) = lu(k,2423) - lu(k,1431) * lu(k,2405) - lu(k,2424) = lu(k,2424) - lu(k,1432) * lu(k,2405) - lu(k,2425) = lu(k,2425) - lu(k,1433) * lu(k,2405) - lu(k,2427) = lu(k,2427) - lu(k,1434) * lu(k,2405) - lu(k,2428) = lu(k,2428) - lu(k,1435) * lu(k,2405) - lu(k,1441) = 1._r8 / lu(k,1441) - lu(k,1442) = lu(k,1442) * lu(k,1441) - lu(k,1443) = lu(k,1443) * lu(k,1441) - lu(k,1444) = lu(k,1444) * lu(k,1441) - lu(k,1445) = lu(k,1445) * lu(k,1441) - lu(k,1446) = lu(k,1446) * lu(k,1441) - lu(k,1447) = lu(k,1447) * lu(k,1441) - lu(k,1448) = lu(k,1448) * lu(k,1441) - lu(k,1449) = lu(k,1449) * lu(k,1441) - lu(k,1450) = lu(k,1450) * lu(k,1441) - lu(k,1451) = lu(k,1451) * lu(k,1441) - lu(k,1452) = lu(k,1452) * lu(k,1441) - lu(k,1453) = lu(k,1453) * lu(k,1441) - lu(k,1472) = lu(k,1472) - lu(k,1442) * lu(k,1471) - lu(k,1473) = lu(k,1473) - lu(k,1443) * lu(k,1471) - lu(k,1475) = lu(k,1475) - lu(k,1444) * lu(k,1471) - lu(k,1476) = lu(k,1476) - lu(k,1445) * lu(k,1471) - lu(k,1477) = lu(k,1477) - lu(k,1446) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,1447) * lu(k,1471) - lu(k,1480) = lu(k,1480) - lu(k,1448) * lu(k,1471) - lu(k,1481) = lu(k,1481) - lu(k,1449) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,1450) * lu(k,1471) - lu(k,1483) = lu(k,1483) - lu(k,1451) * lu(k,1471) - lu(k,1484) = lu(k,1484) - lu(k,1452) * lu(k,1471) - lu(k,1485) = lu(k,1485) - lu(k,1453) * lu(k,1471) - lu(k,1673) = lu(k,1673) - lu(k,1442) * lu(k,1672) - lu(k,1674) = lu(k,1674) - lu(k,1443) * lu(k,1672) - lu(k,1681) = lu(k,1681) - lu(k,1444) * lu(k,1672) - lu(k,1682) = lu(k,1682) - lu(k,1445) * lu(k,1672) - lu(k,1684) = lu(k,1684) - lu(k,1446) * lu(k,1672) - lu(k,1685) = lu(k,1685) - lu(k,1447) * lu(k,1672) - lu(k,1687) = lu(k,1687) - lu(k,1448) * lu(k,1672) - lu(k,1690) = lu(k,1690) - lu(k,1449) * lu(k,1672) - lu(k,1691) = lu(k,1691) - lu(k,1450) * lu(k,1672) - lu(k,1692) = lu(k,1692) - lu(k,1451) * lu(k,1672) - lu(k,1694) = lu(k,1694) - lu(k,1452) * lu(k,1672) - lu(k,1695) = lu(k,1695) - lu(k,1453) * lu(k,1672) - lu(k,1781) = lu(k,1781) - lu(k,1442) * lu(k,1780) - lu(k,1782) = lu(k,1782) - lu(k,1443) * lu(k,1780) - lu(k,1787) = lu(k,1787) - lu(k,1444) * lu(k,1780) - lu(k,1788) = lu(k,1788) - lu(k,1445) * lu(k,1780) - lu(k,1790) = lu(k,1790) - lu(k,1446) * lu(k,1780) - lu(k,1791) = lu(k,1791) - lu(k,1447) * lu(k,1780) - lu(k,1793) = lu(k,1793) - lu(k,1448) * lu(k,1780) - lu(k,1796) = lu(k,1796) - lu(k,1449) * lu(k,1780) - lu(k,1797) = lu(k,1797) - lu(k,1450) * lu(k,1780) - lu(k,1798) = lu(k,1798) - lu(k,1451) * lu(k,1780) - lu(k,1800) = lu(k,1800) - lu(k,1452) * lu(k,1780) - lu(k,1801) = lu(k,1801) - lu(k,1453) * lu(k,1780) - lu(k,1994) = lu(k,1994) - lu(k,1442) * lu(k,1993) - lu(k,1995) = lu(k,1995) - lu(k,1443) * lu(k,1993) - lu(k,2003) = lu(k,2003) - lu(k,1444) * lu(k,1993) - lu(k,2004) = lu(k,2004) - lu(k,1445) * lu(k,1993) - lu(k,2006) = lu(k,2006) - lu(k,1446) * lu(k,1993) - lu(k,2007) = lu(k,2007) - lu(k,1447) * lu(k,1993) - lu(k,2009) = lu(k,2009) - lu(k,1448) * lu(k,1993) - lu(k,2012) = lu(k,2012) - lu(k,1449) * lu(k,1993) - lu(k,2013) = lu(k,2013) - lu(k,1450) * lu(k,1993) - lu(k,2014) = lu(k,2014) - lu(k,1451) * lu(k,1993) - lu(k,2016) = lu(k,2016) - lu(k,1452) * lu(k,1993) - lu(k,2017) = lu(k,2017) - lu(k,1453) * lu(k,1993) - lu(k,2056) = lu(k,2056) - lu(k,1442) * lu(k,2055) - lu(k,2057) = lu(k,2057) - lu(k,1443) * lu(k,2055) - lu(k,2063) = lu(k,2063) - lu(k,1444) * lu(k,2055) - lu(k,2064) = lu(k,2064) - lu(k,1445) * lu(k,2055) - lu(k,2066) = lu(k,2066) - lu(k,1446) * lu(k,2055) - lu(k,2067) = lu(k,2067) - lu(k,1447) * lu(k,2055) - lu(k,2069) = lu(k,2069) - lu(k,1448) * lu(k,2055) - lu(k,2072) = lu(k,2072) - lu(k,1449) * lu(k,2055) - lu(k,2073) = lu(k,2073) - lu(k,1450) * lu(k,2055) - lu(k,2074) = lu(k,2074) - lu(k,1451) * lu(k,2055) - lu(k,2076) = lu(k,2076) - lu(k,1452) * lu(k,2055) - lu(k,2077) = lu(k,2077) - lu(k,1453) * lu(k,2055) - lu(k,2200) = lu(k,2200) - lu(k,1442) * lu(k,2199) - lu(k,2201) = lu(k,2201) - lu(k,1443) * lu(k,2199) - lu(k,2208) = lu(k,2208) - lu(k,1444) * lu(k,2199) - lu(k,2209) = lu(k,2209) - lu(k,1445) * lu(k,2199) - lu(k,2211) = lu(k,2211) - lu(k,1446) * lu(k,2199) - lu(k,2212) = lu(k,2212) - lu(k,1447) * lu(k,2199) - lu(k,2214) = lu(k,2214) - lu(k,1448) * lu(k,2199) - lu(k,2217) = lu(k,2217) - lu(k,1449) * lu(k,2199) - lu(k,2218) = lu(k,2218) - lu(k,1450) * lu(k,2199) - lu(k,2219) = lu(k,2219) - lu(k,1451) * lu(k,2199) - lu(k,2221) = lu(k,2221) - lu(k,1452) * lu(k,2199) - lu(k,2222) = lu(k,2222) - lu(k,1453) * lu(k,2199) - lu(k,2345) = lu(k,2345) - lu(k,1442) * lu(k,2344) - lu(k,2346) = lu(k,2346) - lu(k,1443) * lu(k,2344) - lu(k,2350) = lu(k,2350) - lu(k,1444) * lu(k,2344) - lu(k,2351) = lu(k,2351) - lu(k,1445) * lu(k,2344) - lu(k,2353) = lu(k,2353) - lu(k,1446) * lu(k,2344) - lu(k,2354) = lu(k,2354) - lu(k,1447) * lu(k,2344) - lu(k,2356) = lu(k,2356) - lu(k,1448) * lu(k,2344) - lu(k,2359) = lu(k,2359) - lu(k,1449) * lu(k,2344) - lu(k,2360) = lu(k,2360) - lu(k,1450) * lu(k,2344) - lu(k,2361) = lu(k,2361) - lu(k,1451) * lu(k,2344) - lu(k,2363) = lu(k,2363) - lu(k,1452) * lu(k,2344) - lu(k,2364) = lu(k,2364) - lu(k,1453) * lu(k,2344) - lu(k,2407) = lu(k,2407) - lu(k,1442) * lu(k,2406) - lu(k,2408) = lu(k,2408) - lu(k,1443) * lu(k,2406) - lu(k,2414) = lu(k,2414) - lu(k,1444) * lu(k,2406) - lu(k,2415) = lu(k,2415) - lu(k,1445) * lu(k,2406) - lu(k,2417) = lu(k,2417) - lu(k,1446) * lu(k,2406) - lu(k,2418) = lu(k,2418) - lu(k,1447) * lu(k,2406) - lu(k,2420) = lu(k,2420) - lu(k,1448) * lu(k,2406) - lu(k,2423) = lu(k,2423) - lu(k,1449) * lu(k,2406) - lu(k,2424) = lu(k,2424) - lu(k,1450) * lu(k,2406) - lu(k,2425) = lu(k,2425) - lu(k,1451) * lu(k,2406) - lu(k,2427) = lu(k,2427) - lu(k,1452) * lu(k,2406) - lu(k,2428) = lu(k,2428) - lu(k,1453) * lu(k,2406) - lu(k,1472) = 1._r8 / lu(k,1472) - lu(k,1473) = lu(k,1473) * lu(k,1472) - lu(k,1474) = lu(k,1474) * lu(k,1472) - lu(k,1475) = lu(k,1475) * lu(k,1472) - lu(k,1476) = lu(k,1476) * lu(k,1472) - lu(k,1477) = lu(k,1477) * lu(k,1472) - lu(k,1478) = lu(k,1478) * lu(k,1472) - lu(k,1479) = lu(k,1479) * lu(k,1472) - lu(k,1480) = lu(k,1480) * lu(k,1472) - lu(k,1481) = lu(k,1481) * lu(k,1472) - lu(k,1482) = lu(k,1482) * lu(k,1472) - lu(k,1483) = lu(k,1483) * lu(k,1472) - lu(k,1484) = lu(k,1484) * lu(k,1472) - lu(k,1485) = lu(k,1485) * lu(k,1472) - lu(k,1674) = lu(k,1674) - lu(k,1473) * lu(k,1673) - lu(k,1678) = lu(k,1678) - lu(k,1474) * lu(k,1673) - lu(k,1681) = lu(k,1681) - lu(k,1475) * lu(k,1673) - lu(k,1682) = lu(k,1682) - lu(k,1476) * lu(k,1673) - lu(k,1684) = lu(k,1684) - lu(k,1477) * lu(k,1673) - lu(k,1685) = lu(k,1685) - lu(k,1478) * lu(k,1673) - lu(k,1686) = - lu(k,1479) * lu(k,1673) - lu(k,1687) = lu(k,1687) - lu(k,1480) * lu(k,1673) - lu(k,1690) = lu(k,1690) - lu(k,1481) * lu(k,1673) - lu(k,1691) = lu(k,1691) - lu(k,1482) * lu(k,1673) - lu(k,1692) = lu(k,1692) - lu(k,1483) * lu(k,1673) - lu(k,1694) = lu(k,1694) - lu(k,1484) * lu(k,1673) - lu(k,1695) = lu(k,1695) - lu(k,1485) * lu(k,1673) - lu(k,1782) = lu(k,1782) - lu(k,1473) * lu(k,1781) - lu(k,1784) = lu(k,1784) - lu(k,1474) * lu(k,1781) - lu(k,1787) = lu(k,1787) - lu(k,1475) * lu(k,1781) - lu(k,1788) = lu(k,1788) - lu(k,1476) * lu(k,1781) - lu(k,1790) = lu(k,1790) - lu(k,1477) * lu(k,1781) - lu(k,1791) = lu(k,1791) - lu(k,1478) * lu(k,1781) - lu(k,1792) = lu(k,1792) - lu(k,1479) * lu(k,1781) - lu(k,1793) = lu(k,1793) - lu(k,1480) * lu(k,1781) - lu(k,1796) = lu(k,1796) - lu(k,1481) * lu(k,1781) - lu(k,1797) = lu(k,1797) - lu(k,1482) * lu(k,1781) - lu(k,1798) = lu(k,1798) - lu(k,1483) * lu(k,1781) - lu(k,1800) = lu(k,1800) - lu(k,1484) * lu(k,1781) - lu(k,1801) = lu(k,1801) - lu(k,1485) * lu(k,1781) - lu(k,1995) = lu(k,1995) - lu(k,1473) * lu(k,1994) - lu(k,2000) = lu(k,2000) - lu(k,1474) * lu(k,1994) - lu(k,2003) = lu(k,2003) - lu(k,1475) * lu(k,1994) - lu(k,2004) = lu(k,2004) - lu(k,1476) * lu(k,1994) - lu(k,2006) = lu(k,2006) - lu(k,1477) * lu(k,1994) - lu(k,2007) = lu(k,2007) - lu(k,1478) * lu(k,1994) - lu(k,2008) = lu(k,2008) - lu(k,1479) * lu(k,1994) - lu(k,2009) = lu(k,2009) - lu(k,1480) * lu(k,1994) - lu(k,2012) = lu(k,2012) - lu(k,1481) * lu(k,1994) - lu(k,2013) = lu(k,2013) - lu(k,1482) * lu(k,1994) - lu(k,2014) = lu(k,2014) - lu(k,1483) * lu(k,1994) - lu(k,2016) = lu(k,2016) - lu(k,1484) * lu(k,1994) - lu(k,2017) = lu(k,2017) - lu(k,1485) * lu(k,1994) - lu(k,2057) = lu(k,2057) - lu(k,1473) * lu(k,2056) - lu(k,2060) = lu(k,2060) - lu(k,1474) * lu(k,2056) - lu(k,2063) = lu(k,2063) - lu(k,1475) * lu(k,2056) - lu(k,2064) = lu(k,2064) - lu(k,1476) * lu(k,2056) - lu(k,2066) = lu(k,2066) - lu(k,1477) * lu(k,2056) - lu(k,2067) = lu(k,2067) - lu(k,1478) * lu(k,2056) - lu(k,2068) = lu(k,2068) - lu(k,1479) * lu(k,2056) - lu(k,2069) = lu(k,2069) - lu(k,1480) * lu(k,2056) - lu(k,2072) = lu(k,2072) - lu(k,1481) * lu(k,2056) - lu(k,2073) = lu(k,2073) - lu(k,1482) * lu(k,2056) - lu(k,2074) = lu(k,2074) - lu(k,1483) * lu(k,2056) - lu(k,2076) = lu(k,2076) - lu(k,1484) * lu(k,2056) - lu(k,2077) = lu(k,2077) - lu(k,1485) * lu(k,2056) - lu(k,2201) = lu(k,2201) - lu(k,1473) * lu(k,2200) - lu(k,2205) = lu(k,2205) - lu(k,1474) * lu(k,2200) - lu(k,2208) = lu(k,2208) - lu(k,1475) * lu(k,2200) - lu(k,2209) = lu(k,2209) - lu(k,1476) * lu(k,2200) - lu(k,2211) = lu(k,2211) - lu(k,1477) * lu(k,2200) - lu(k,2212) = lu(k,2212) - lu(k,1478) * lu(k,2200) - lu(k,2213) = lu(k,2213) - lu(k,1479) * lu(k,2200) - lu(k,2214) = lu(k,2214) - lu(k,1480) * lu(k,2200) - lu(k,2217) = lu(k,2217) - lu(k,1481) * lu(k,2200) - lu(k,2218) = lu(k,2218) - lu(k,1482) * lu(k,2200) - lu(k,2219) = lu(k,2219) - lu(k,1483) * lu(k,2200) - lu(k,2221) = lu(k,2221) - lu(k,1484) * lu(k,2200) - lu(k,2222) = lu(k,2222) - lu(k,1485) * lu(k,2200) - lu(k,2247) = lu(k,2247) - lu(k,1473) * lu(k,2246) - lu(k,2251) = lu(k,2251) - lu(k,1474) * lu(k,2246) - lu(k,2254) = lu(k,2254) - lu(k,1475) * lu(k,2246) - lu(k,2255) = lu(k,2255) - lu(k,1476) * lu(k,2246) - lu(k,2257) = lu(k,2257) - lu(k,1477) * lu(k,2246) - lu(k,2258) = lu(k,2258) - lu(k,1478) * lu(k,2246) - lu(k,2259) = lu(k,2259) - lu(k,1479) * lu(k,2246) - lu(k,2260) = lu(k,2260) - lu(k,1480) * lu(k,2246) - lu(k,2263) = lu(k,2263) - lu(k,1481) * lu(k,2246) - lu(k,2264) = lu(k,2264) - lu(k,1482) * lu(k,2246) - lu(k,2265) = lu(k,2265) - lu(k,1483) * lu(k,2246) - lu(k,2267) = lu(k,2267) - lu(k,1484) * lu(k,2246) - lu(k,2268) = lu(k,2268) - lu(k,1485) * lu(k,2246) - lu(k,2346) = lu(k,2346) - lu(k,1473) * lu(k,2345) - lu(k,2347) = lu(k,2347) - lu(k,1474) * lu(k,2345) - lu(k,2350) = lu(k,2350) - lu(k,1475) * lu(k,2345) - lu(k,2351) = lu(k,2351) - lu(k,1476) * lu(k,2345) - lu(k,2353) = lu(k,2353) - lu(k,1477) * lu(k,2345) - lu(k,2354) = lu(k,2354) - lu(k,1478) * lu(k,2345) - lu(k,2355) = lu(k,2355) - lu(k,1479) * lu(k,2345) - lu(k,2356) = lu(k,2356) - lu(k,1480) * lu(k,2345) - lu(k,2359) = lu(k,2359) - lu(k,1481) * lu(k,2345) - lu(k,2360) = lu(k,2360) - lu(k,1482) * lu(k,2345) - lu(k,2361) = lu(k,2361) - lu(k,1483) * lu(k,2345) - lu(k,2363) = lu(k,2363) - lu(k,1484) * lu(k,2345) - lu(k,2364) = lu(k,2364) - lu(k,1485) * lu(k,2345) - lu(k,2408) = lu(k,2408) - lu(k,1473) * lu(k,2407) - lu(k,2411) = lu(k,2411) - lu(k,1474) * lu(k,2407) - lu(k,2414) = lu(k,2414) - lu(k,1475) * lu(k,2407) - lu(k,2415) = lu(k,2415) - lu(k,1476) * lu(k,2407) - lu(k,2417) = lu(k,2417) - lu(k,1477) * lu(k,2407) - lu(k,2418) = lu(k,2418) - lu(k,1478) * lu(k,2407) - lu(k,2419) = lu(k,2419) - lu(k,1479) * lu(k,2407) - lu(k,2420) = lu(k,2420) - lu(k,1480) * lu(k,2407) - lu(k,2423) = lu(k,2423) - lu(k,1481) * lu(k,2407) - lu(k,2424) = lu(k,2424) - lu(k,1482) * lu(k,2407) - lu(k,2425) = lu(k,2425) - lu(k,1483) * lu(k,2407) - lu(k,2427) = lu(k,2427) - lu(k,1484) * lu(k,2407) - lu(k,2428) = lu(k,2428) - lu(k,1485) * lu(k,2407) - lu(k,1494) = 1._r8 / lu(k,1494) - lu(k,1495) = lu(k,1495) * lu(k,1494) - lu(k,1496) = lu(k,1496) * lu(k,1494) - lu(k,1497) = lu(k,1497) * lu(k,1494) - lu(k,1498) = lu(k,1498) * lu(k,1494) - lu(k,1499) = lu(k,1499) * lu(k,1494) - lu(k,1500) = lu(k,1500) * lu(k,1494) - lu(k,1501) = lu(k,1501) * lu(k,1494) - lu(k,1502) = lu(k,1502) * lu(k,1494) - lu(k,1556) = lu(k,1556) - lu(k,1495) * lu(k,1554) - lu(k,1558) = - lu(k,1496) * lu(k,1554) - lu(k,1559) = - lu(k,1497) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,1498) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,1499) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,1500) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,1501) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,1502) * lu(k,1554) - lu(k,1586) = lu(k,1586) - lu(k,1495) * lu(k,1583) - lu(k,1589) = lu(k,1589) - lu(k,1496) * lu(k,1583) - lu(k,1590) = lu(k,1590) - lu(k,1497) * lu(k,1583) - lu(k,1591) = lu(k,1591) - lu(k,1498) * lu(k,1583) - lu(k,1592) = lu(k,1592) - lu(k,1499) * lu(k,1583) - lu(k,1593) = lu(k,1593) - lu(k,1500) * lu(k,1583) - lu(k,1595) = lu(k,1595) - lu(k,1501) * lu(k,1583) - lu(k,1597) = lu(k,1597) - lu(k,1502) * lu(k,1583) - lu(k,1678) = lu(k,1678) - lu(k,1495) * lu(k,1674) - lu(k,1681) = lu(k,1681) - lu(k,1496) * lu(k,1674) - lu(k,1682) = lu(k,1682) - lu(k,1497) * lu(k,1674) - lu(k,1683) = lu(k,1683) - lu(k,1498) * lu(k,1674) - lu(k,1684) = lu(k,1684) - lu(k,1499) * lu(k,1674) - lu(k,1687) = lu(k,1687) - lu(k,1500) * lu(k,1674) - lu(k,1689) = lu(k,1689) - lu(k,1501) * lu(k,1674) - lu(k,1693) = lu(k,1693) - lu(k,1502) * lu(k,1674) - lu(k,1784) = lu(k,1784) - lu(k,1495) * lu(k,1782) - lu(k,1787) = lu(k,1787) - lu(k,1496) * lu(k,1782) - lu(k,1788) = lu(k,1788) - lu(k,1497) * lu(k,1782) - lu(k,1789) = lu(k,1789) - lu(k,1498) * lu(k,1782) - lu(k,1790) = lu(k,1790) - lu(k,1499) * lu(k,1782) - lu(k,1793) = lu(k,1793) - lu(k,1500) * lu(k,1782) - lu(k,1795) = lu(k,1795) - lu(k,1501) * lu(k,1782) - lu(k,1799) = lu(k,1799) - lu(k,1502) * lu(k,1782) - lu(k,2000) = lu(k,2000) - lu(k,1495) * lu(k,1995) - lu(k,2003) = lu(k,2003) - lu(k,1496) * lu(k,1995) - lu(k,2004) = lu(k,2004) - lu(k,1497) * lu(k,1995) - lu(k,2005) = lu(k,2005) - lu(k,1498) * lu(k,1995) - lu(k,2006) = lu(k,2006) - lu(k,1499) * lu(k,1995) - lu(k,2009) = lu(k,2009) - lu(k,1500) * lu(k,1995) - lu(k,2011) = lu(k,2011) - lu(k,1501) * lu(k,1995) - lu(k,2015) = lu(k,2015) - lu(k,1502) * lu(k,1995) - lu(k,2060) = lu(k,2060) - lu(k,1495) * lu(k,2057) - lu(k,2063) = lu(k,2063) - lu(k,1496) * lu(k,2057) - lu(k,2064) = lu(k,2064) - lu(k,1497) * lu(k,2057) - lu(k,2065) = - lu(k,1498) * lu(k,2057) - lu(k,2066) = lu(k,2066) - lu(k,1499) * lu(k,2057) - lu(k,2069) = lu(k,2069) - lu(k,1500) * lu(k,2057) - lu(k,2071) = - lu(k,1501) * lu(k,2057) - lu(k,2075) = lu(k,2075) - lu(k,1502) * lu(k,2057) - lu(k,2085) = - lu(k,1495) * lu(k,2081) - lu(k,2088) = - lu(k,1496) * lu(k,2081) - lu(k,2089) = - lu(k,1497) * lu(k,2081) - lu(k,2090) = lu(k,2090) - lu(k,1498) * lu(k,2081) - lu(k,2091) = lu(k,2091) - lu(k,1499) * lu(k,2081) - lu(k,2094) = lu(k,2094) - lu(k,1500) * lu(k,2081) - lu(k,2096) = lu(k,2096) - lu(k,1501) * lu(k,2081) - lu(k,2100) = lu(k,2100) - lu(k,1502) * lu(k,2081) - lu(k,2205) = lu(k,2205) - lu(k,1495) * lu(k,2201) - lu(k,2208) = lu(k,2208) - lu(k,1496) * lu(k,2201) - lu(k,2209) = lu(k,2209) - lu(k,1497) * lu(k,2201) - lu(k,2210) = lu(k,2210) - lu(k,1498) * lu(k,2201) - lu(k,2211) = lu(k,2211) - lu(k,1499) * lu(k,2201) - lu(k,2214) = lu(k,2214) - lu(k,1500) * lu(k,2201) - lu(k,2216) = lu(k,2216) - lu(k,1501) * lu(k,2201) - lu(k,2220) = lu(k,2220) - lu(k,1502) * lu(k,2201) - lu(k,2251) = lu(k,2251) - lu(k,1495) * lu(k,2247) - lu(k,2254) = lu(k,2254) - lu(k,1496) * lu(k,2247) - lu(k,2255) = lu(k,2255) - lu(k,1497) * lu(k,2247) - lu(k,2256) = lu(k,2256) - lu(k,1498) * lu(k,2247) - lu(k,2257) = lu(k,2257) - lu(k,1499) * lu(k,2247) - lu(k,2260) = lu(k,2260) - lu(k,1500) * lu(k,2247) - lu(k,2262) = lu(k,2262) - lu(k,1501) * lu(k,2247) - lu(k,2266) = lu(k,2266) - lu(k,1502) * lu(k,2247) - lu(k,2347) = lu(k,2347) - lu(k,1495) * lu(k,2346) - lu(k,2350) = lu(k,2350) - lu(k,1496) * lu(k,2346) - lu(k,2351) = lu(k,2351) - lu(k,1497) * lu(k,2346) - lu(k,2352) = - lu(k,1498) * lu(k,2346) - lu(k,2353) = lu(k,2353) - lu(k,1499) * lu(k,2346) - lu(k,2356) = lu(k,2356) - lu(k,1500) * lu(k,2346) - lu(k,2358) = lu(k,2358) - lu(k,1501) * lu(k,2346) - lu(k,2362) = - lu(k,1502) * lu(k,2346) - lu(k,2411) = lu(k,2411) - lu(k,1495) * lu(k,2408) - lu(k,2414) = lu(k,2414) - lu(k,1496) * lu(k,2408) - lu(k,2415) = lu(k,2415) - lu(k,1497) * lu(k,2408) - lu(k,2416) = lu(k,2416) - lu(k,1498) * lu(k,2408) - lu(k,2417) = lu(k,2417) - lu(k,1499) * lu(k,2408) - lu(k,2420) = lu(k,2420) - lu(k,1500) * lu(k,2408) - lu(k,2422) = lu(k,2422) - lu(k,1501) * lu(k,2408) - lu(k,2426) = lu(k,2426) - lu(k,1502) * lu(k,2408) - lu(k,2454) = lu(k,2454) - lu(k,1495) * lu(k,2449) - lu(k,2457) = lu(k,2457) - lu(k,1496) * lu(k,2449) - lu(k,2458) = lu(k,2458) - lu(k,1497) * lu(k,2449) - lu(k,2459) = lu(k,2459) - lu(k,1498) * lu(k,2449) - lu(k,2460) = lu(k,2460) - lu(k,1499) * lu(k,2449) - lu(k,2463) = lu(k,2463) - lu(k,1500) * lu(k,2449) - lu(k,2465) = lu(k,2465) - lu(k,1501) * lu(k,2449) - lu(k,2469) = lu(k,2469) - lu(k,1502) * lu(k,2449) - lu(k,2480) = - lu(k,1495) * lu(k,2476) - lu(k,2483) = lu(k,2483) - lu(k,1496) * lu(k,2476) - lu(k,2484) = lu(k,2484) - lu(k,1497) * lu(k,2476) - lu(k,2485) = lu(k,2485) - lu(k,1498) * lu(k,2476) - lu(k,2486) = lu(k,2486) - lu(k,1499) * lu(k,2476) - lu(k,2489) = lu(k,2489) - lu(k,1500) * lu(k,2476) - lu(k,2491) = lu(k,2491) - lu(k,1501) * lu(k,2476) - lu(k,2495) = lu(k,2495) - lu(k,1502) * lu(k,2476) + lu(k,1421) = 1._r8 / lu(k,1421) + lu(k,1422) = lu(k,1422) * lu(k,1421) + lu(k,1423) = lu(k,1423) * lu(k,1421) + lu(k,1424) = lu(k,1424) * lu(k,1421) + lu(k,1425) = lu(k,1425) * lu(k,1421) + lu(k,1426) = lu(k,1426) * lu(k,1421) + lu(k,1427) = lu(k,1427) * lu(k,1421) + lu(k,1428) = lu(k,1428) * lu(k,1421) + lu(k,1429) = lu(k,1429) * lu(k,1421) + lu(k,1430) = lu(k,1430) * lu(k,1421) + lu(k,1431) = lu(k,1431) * lu(k,1421) + lu(k,1432) = lu(k,1432) * lu(k,1421) + lu(k,1433) = lu(k,1433) * lu(k,1421) + lu(k,1434) = lu(k,1434) * lu(k,1421) + lu(k,1435) = lu(k,1435) * lu(k,1421) + lu(k,1436) = lu(k,1436) * lu(k,1421) + lu(k,1472) = lu(k,1472) - lu(k,1422) * lu(k,1471) + lu(k,1473) = lu(k,1473) - lu(k,1423) * lu(k,1471) + lu(k,1474) = lu(k,1474) - lu(k,1424) * lu(k,1471) + lu(k,1475) = - lu(k,1425) * lu(k,1471) + lu(k,1476) = - lu(k,1426) * lu(k,1471) + lu(k,1477) = lu(k,1477) - lu(k,1427) * lu(k,1471) + lu(k,1478) = lu(k,1478) - lu(k,1428) * lu(k,1471) + lu(k,1479) = lu(k,1479) - lu(k,1429) * lu(k,1471) + lu(k,1480) = lu(k,1480) - lu(k,1430) * lu(k,1471) + lu(k,1481) = lu(k,1481) - lu(k,1431) * lu(k,1471) + lu(k,1482) = lu(k,1482) - lu(k,1432) * lu(k,1471) + lu(k,1483) = lu(k,1483) - lu(k,1433) * lu(k,1471) + lu(k,1484) = lu(k,1484) - lu(k,1434) * lu(k,1471) + lu(k,1485) = lu(k,1485) - lu(k,1435) * lu(k,1471) + lu(k,1486) = lu(k,1486) - lu(k,1436) * lu(k,1471) + lu(k,1843) = lu(k,1843) - lu(k,1422) * lu(k,1842) + lu(k,1844) = lu(k,1844) - lu(k,1423) * lu(k,1842) + lu(k,1845) = lu(k,1845) - lu(k,1424) * lu(k,1842) + lu(k,1850) = lu(k,1850) - lu(k,1425) * lu(k,1842) + lu(k,1852) = lu(k,1852) - lu(k,1426) * lu(k,1842) + lu(k,1853) = lu(k,1853) - lu(k,1427) * lu(k,1842) + lu(k,1854) = lu(k,1854) - lu(k,1428) * lu(k,1842) + lu(k,1855) = lu(k,1855) - lu(k,1429) * lu(k,1842) + lu(k,1858) = lu(k,1858) - lu(k,1430) * lu(k,1842) + lu(k,1860) = lu(k,1860) - lu(k,1431) * lu(k,1842) + lu(k,1862) = lu(k,1862) - lu(k,1432) * lu(k,1842) + lu(k,1863) = lu(k,1863) - lu(k,1433) * lu(k,1842) + lu(k,1864) = lu(k,1864) - lu(k,1434) * lu(k,1842) + lu(k,1865) = lu(k,1865) - lu(k,1435) * lu(k,1842) + lu(k,1867) = lu(k,1867) - lu(k,1436) * lu(k,1842) + lu(k,1953) = lu(k,1953) - lu(k,1422) * lu(k,1952) + lu(k,1954) = lu(k,1954) - lu(k,1423) * lu(k,1952) + lu(k,1955) = lu(k,1955) - lu(k,1424) * lu(k,1952) + lu(k,1957) = lu(k,1957) - lu(k,1425) * lu(k,1952) + lu(k,1959) = - lu(k,1426) * lu(k,1952) + lu(k,1960) = lu(k,1960) - lu(k,1427) * lu(k,1952) + lu(k,1961) = lu(k,1961) - lu(k,1428) * lu(k,1952) + lu(k,1962) = lu(k,1962) - lu(k,1429) * lu(k,1952) + lu(k,1965) = lu(k,1965) - lu(k,1430) * lu(k,1952) + lu(k,1967) = lu(k,1967) - lu(k,1431) * lu(k,1952) + lu(k,1969) = lu(k,1969) - lu(k,1432) * lu(k,1952) + lu(k,1970) = lu(k,1970) - lu(k,1433) * lu(k,1952) + lu(k,1971) = lu(k,1971) - lu(k,1434) * lu(k,1952) + lu(k,1972) = lu(k,1972) - lu(k,1435) * lu(k,1952) + lu(k,1974) = lu(k,1974) - lu(k,1436) * lu(k,1952) + lu(k,2105) = lu(k,2105) - lu(k,1422) * lu(k,2104) + lu(k,2106) = lu(k,2106) - lu(k,1423) * lu(k,2104) + lu(k,2107) = lu(k,2107) - lu(k,1424) * lu(k,2104) + lu(k,2110) = lu(k,2110) - lu(k,1425) * lu(k,2104) + lu(k,2112) = lu(k,2112) - lu(k,1426) * lu(k,2104) + lu(k,2113) = lu(k,2113) - lu(k,1427) * lu(k,2104) + lu(k,2114) = lu(k,2114) - lu(k,1428) * lu(k,2104) + lu(k,2115) = lu(k,2115) - lu(k,1429) * lu(k,2104) + lu(k,2118) = lu(k,2118) - lu(k,1430) * lu(k,2104) + lu(k,2120) = lu(k,2120) - lu(k,1431) * lu(k,2104) + lu(k,2122) = lu(k,2122) - lu(k,1432) * lu(k,2104) + lu(k,2123) = lu(k,2123) - lu(k,1433) * lu(k,2104) + lu(k,2124) = lu(k,2124) - lu(k,1434) * lu(k,2104) + lu(k,2125) = lu(k,2125) - lu(k,1435) * lu(k,2104) + lu(k,2127) = lu(k,2127) - lu(k,1436) * lu(k,2104) + lu(k,2180) = lu(k,2180) - lu(k,1422) * lu(k,2179) + lu(k,2181) = lu(k,2181) - lu(k,1423) * lu(k,2179) + lu(k,2182) = lu(k,2182) - lu(k,1424) * lu(k,2179) + lu(k,2183) = lu(k,2183) - lu(k,1425) * lu(k,2179) + lu(k,2185) = - lu(k,1426) * lu(k,2179) + lu(k,2186) = lu(k,2186) - lu(k,1427) * lu(k,2179) + lu(k,2187) = lu(k,2187) - lu(k,1428) * lu(k,2179) + lu(k,2188) = lu(k,2188) - lu(k,1429) * lu(k,2179) + lu(k,2191) = lu(k,2191) - lu(k,1430) * lu(k,2179) + lu(k,2193) = lu(k,2193) - lu(k,1431) * lu(k,2179) + lu(k,2195) = lu(k,2195) - lu(k,1432) * lu(k,2179) + lu(k,2196) = lu(k,2196) - lu(k,1433) * lu(k,2179) + lu(k,2197) = lu(k,2197) - lu(k,1434) * lu(k,2179) + lu(k,2198) = lu(k,2198) - lu(k,1435) * lu(k,2179) + lu(k,2200) = lu(k,2200) - lu(k,1436) * lu(k,2179) + lu(k,2363) = lu(k,2363) - lu(k,1422) * lu(k,2362) + lu(k,2364) = lu(k,2364) - lu(k,1423) * lu(k,2362) + lu(k,2365) = lu(k,2365) - lu(k,1424) * lu(k,2362) + lu(k,2369) = lu(k,2369) - lu(k,1425) * lu(k,2362) + lu(k,2371) = - lu(k,1426) * lu(k,2362) + lu(k,2372) = lu(k,2372) - lu(k,1427) * lu(k,2362) + lu(k,2373) = lu(k,2373) - lu(k,1428) * lu(k,2362) + lu(k,2374) = lu(k,2374) - lu(k,1429) * lu(k,2362) + lu(k,2377) = lu(k,2377) - lu(k,1430) * lu(k,2362) + lu(k,2379) = lu(k,2379) - lu(k,1431) * lu(k,2362) + lu(k,2381) = lu(k,2381) - lu(k,1432) * lu(k,2362) + lu(k,2382) = lu(k,2382) - lu(k,1433) * lu(k,2362) + lu(k,2383) = lu(k,2383) - lu(k,1434) * lu(k,2362) + lu(k,2384) = lu(k,2384) - lu(k,1435) * lu(k,2362) + lu(k,2386) = lu(k,2386) - lu(k,1436) * lu(k,2362) + lu(k,2424) = lu(k,2424) - lu(k,1422) * lu(k,2423) + lu(k,2425) = lu(k,2425) - lu(k,1423) * lu(k,2423) + lu(k,2426) = lu(k,2426) - lu(k,1424) * lu(k,2423) + lu(k,2429) = lu(k,2429) - lu(k,1425) * lu(k,2423) + lu(k,2431) = lu(k,2431) - lu(k,1426) * lu(k,2423) + lu(k,2432) = lu(k,2432) - lu(k,1427) * lu(k,2423) + lu(k,2433) = lu(k,2433) - lu(k,1428) * lu(k,2423) + lu(k,2434) = lu(k,2434) - lu(k,1429) * lu(k,2423) + lu(k,2437) = lu(k,2437) - lu(k,1430) * lu(k,2423) + lu(k,2439) = lu(k,2439) - lu(k,1431) * lu(k,2423) + lu(k,2441) = lu(k,2441) - lu(k,1432) * lu(k,2423) + lu(k,2442) = lu(k,2442) - lu(k,1433) * lu(k,2423) + lu(k,2443) = lu(k,2443) - lu(k,1434) * lu(k,2423) + lu(k,2444) = lu(k,2444) - lu(k,1435) * lu(k,2423) + lu(k,2446) = lu(k,2446) - lu(k,1436) * lu(k,2423) + lu(k,1442) = 1._r8 / lu(k,1442) + lu(k,1443) = lu(k,1443) * lu(k,1442) + lu(k,1444) = lu(k,1444) * lu(k,1442) + lu(k,1445) = lu(k,1445) * lu(k,1442) + lu(k,1446) = lu(k,1446) * lu(k,1442) + lu(k,1447) = lu(k,1447) * lu(k,1442) + lu(k,1448) = lu(k,1448) * lu(k,1442) + lu(k,1449) = lu(k,1449) * lu(k,1442) + lu(k,1450) = lu(k,1450) * lu(k,1442) + lu(k,1451) = lu(k,1451) * lu(k,1442) + lu(k,1452) = lu(k,1452) * lu(k,1442) + lu(k,1453) = lu(k,1453) * lu(k,1442) + lu(k,1454) = lu(k,1454) * lu(k,1442) + lu(k,1473) = lu(k,1473) - lu(k,1443) * lu(k,1472) + lu(k,1474) = lu(k,1474) - lu(k,1444) * lu(k,1472) + lu(k,1477) = lu(k,1477) - lu(k,1445) * lu(k,1472) + lu(k,1478) = lu(k,1478) - lu(k,1446) * lu(k,1472) + lu(k,1479) = lu(k,1479) - lu(k,1447) * lu(k,1472) + lu(k,1480) = lu(k,1480) - lu(k,1448) * lu(k,1472) + lu(k,1481) = lu(k,1481) - lu(k,1449) * lu(k,1472) + lu(k,1482) = lu(k,1482) - lu(k,1450) * lu(k,1472) + lu(k,1483) = lu(k,1483) - lu(k,1451) * lu(k,1472) + lu(k,1484) = lu(k,1484) - lu(k,1452) * lu(k,1472) + lu(k,1485) = lu(k,1485) - lu(k,1453) * lu(k,1472) + lu(k,1486) = lu(k,1486) - lu(k,1454) * lu(k,1472) + lu(k,1672) = lu(k,1672) - lu(k,1443) * lu(k,1671) + lu(k,1673) = lu(k,1673) - lu(k,1444) * lu(k,1671) + lu(k,1680) = lu(k,1680) - lu(k,1445) * lu(k,1671) + lu(k,1681) = lu(k,1681) - lu(k,1446) * lu(k,1671) + lu(k,1682) = lu(k,1682) - lu(k,1447) * lu(k,1671) + lu(k,1685) = lu(k,1685) - lu(k,1448) * lu(k,1671) + lu(k,1687) = lu(k,1687) - lu(k,1449) * lu(k,1671) + lu(k,1689) = lu(k,1689) - lu(k,1450) * lu(k,1671) + lu(k,1690) = lu(k,1690) - lu(k,1451) * lu(k,1671) + lu(k,1691) = lu(k,1691) - lu(k,1452) * lu(k,1671) + lu(k,1692) = lu(k,1692) - lu(k,1453) * lu(k,1671) + lu(k,1694) = lu(k,1694) - lu(k,1454) * lu(k,1671) + lu(k,1844) = lu(k,1844) - lu(k,1443) * lu(k,1843) + lu(k,1845) = lu(k,1845) - lu(k,1444) * lu(k,1843) + lu(k,1853) = lu(k,1853) - lu(k,1445) * lu(k,1843) + lu(k,1854) = lu(k,1854) - lu(k,1446) * lu(k,1843) + lu(k,1855) = lu(k,1855) - lu(k,1447) * lu(k,1843) + lu(k,1858) = lu(k,1858) - lu(k,1448) * lu(k,1843) + lu(k,1860) = lu(k,1860) - lu(k,1449) * lu(k,1843) + lu(k,1862) = lu(k,1862) - lu(k,1450) * lu(k,1843) + lu(k,1863) = lu(k,1863) - lu(k,1451) * lu(k,1843) + lu(k,1864) = lu(k,1864) - lu(k,1452) * lu(k,1843) + lu(k,1865) = lu(k,1865) - lu(k,1453) * lu(k,1843) + lu(k,1867) = lu(k,1867) - lu(k,1454) * lu(k,1843) + lu(k,1954) = lu(k,1954) - lu(k,1443) * lu(k,1953) + lu(k,1955) = lu(k,1955) - lu(k,1444) * lu(k,1953) + lu(k,1960) = lu(k,1960) - lu(k,1445) * lu(k,1953) + lu(k,1961) = lu(k,1961) - lu(k,1446) * lu(k,1953) + lu(k,1962) = lu(k,1962) - lu(k,1447) * lu(k,1953) + lu(k,1965) = lu(k,1965) - lu(k,1448) * lu(k,1953) + lu(k,1967) = lu(k,1967) - lu(k,1449) * lu(k,1953) + lu(k,1969) = lu(k,1969) - lu(k,1450) * lu(k,1953) + lu(k,1970) = lu(k,1970) - lu(k,1451) * lu(k,1953) + lu(k,1971) = lu(k,1971) - lu(k,1452) * lu(k,1953) + lu(k,1972) = lu(k,1972) - lu(k,1453) * lu(k,1953) + lu(k,1974) = lu(k,1974) - lu(k,1454) * lu(k,1953) + lu(k,2106) = lu(k,2106) - lu(k,1443) * lu(k,2105) + lu(k,2107) = lu(k,2107) - lu(k,1444) * lu(k,2105) + lu(k,2113) = lu(k,2113) - lu(k,1445) * lu(k,2105) + lu(k,2114) = lu(k,2114) - lu(k,1446) * lu(k,2105) + lu(k,2115) = lu(k,2115) - lu(k,1447) * lu(k,2105) + lu(k,2118) = lu(k,2118) - lu(k,1448) * lu(k,2105) + lu(k,2120) = lu(k,2120) - lu(k,1449) * lu(k,2105) + lu(k,2122) = lu(k,2122) - lu(k,1450) * lu(k,2105) + lu(k,2123) = lu(k,2123) - lu(k,1451) * lu(k,2105) + lu(k,2124) = lu(k,2124) - lu(k,1452) * lu(k,2105) + lu(k,2125) = lu(k,2125) - lu(k,1453) * lu(k,2105) + lu(k,2127) = lu(k,2127) - lu(k,1454) * lu(k,2105) + lu(k,2181) = lu(k,2181) - lu(k,1443) * lu(k,2180) + lu(k,2182) = lu(k,2182) - lu(k,1444) * lu(k,2180) + lu(k,2186) = lu(k,2186) - lu(k,1445) * lu(k,2180) + lu(k,2187) = lu(k,2187) - lu(k,1446) * lu(k,2180) + lu(k,2188) = lu(k,2188) - lu(k,1447) * lu(k,2180) + lu(k,2191) = lu(k,2191) - lu(k,1448) * lu(k,2180) + lu(k,2193) = lu(k,2193) - lu(k,1449) * lu(k,2180) + lu(k,2195) = lu(k,2195) - lu(k,1450) * lu(k,2180) + lu(k,2196) = lu(k,2196) - lu(k,1451) * lu(k,2180) + lu(k,2197) = lu(k,2197) - lu(k,1452) * lu(k,2180) + lu(k,2198) = lu(k,2198) - lu(k,1453) * lu(k,2180) + lu(k,2200) = lu(k,2200) - lu(k,1454) * lu(k,2180) + lu(k,2364) = lu(k,2364) - lu(k,1443) * lu(k,2363) + lu(k,2365) = lu(k,2365) - lu(k,1444) * lu(k,2363) + lu(k,2372) = lu(k,2372) - lu(k,1445) * lu(k,2363) + lu(k,2373) = lu(k,2373) - lu(k,1446) * lu(k,2363) + lu(k,2374) = lu(k,2374) - lu(k,1447) * lu(k,2363) + lu(k,2377) = lu(k,2377) - lu(k,1448) * lu(k,2363) + lu(k,2379) = lu(k,2379) - lu(k,1449) * lu(k,2363) + lu(k,2381) = lu(k,2381) - lu(k,1450) * lu(k,2363) + lu(k,2382) = lu(k,2382) - lu(k,1451) * lu(k,2363) + lu(k,2383) = lu(k,2383) - lu(k,1452) * lu(k,2363) + lu(k,2384) = lu(k,2384) - lu(k,1453) * lu(k,2363) + lu(k,2386) = lu(k,2386) - lu(k,1454) * lu(k,2363) + lu(k,2425) = lu(k,2425) - lu(k,1443) * lu(k,2424) + lu(k,2426) = lu(k,2426) - lu(k,1444) * lu(k,2424) + lu(k,2432) = lu(k,2432) - lu(k,1445) * lu(k,2424) + lu(k,2433) = lu(k,2433) - lu(k,1446) * lu(k,2424) + lu(k,2434) = lu(k,2434) - lu(k,1447) * lu(k,2424) + lu(k,2437) = lu(k,2437) - lu(k,1448) * lu(k,2424) + lu(k,2439) = lu(k,2439) - lu(k,1449) * lu(k,2424) + lu(k,2441) = lu(k,2441) - lu(k,1450) * lu(k,2424) + lu(k,2442) = lu(k,2442) - lu(k,1451) * lu(k,2424) + lu(k,2443) = lu(k,2443) - lu(k,1452) * lu(k,2424) + lu(k,2444) = lu(k,2444) - lu(k,1453) * lu(k,2424) + lu(k,2446) = lu(k,2446) - lu(k,1454) * lu(k,2424) + lu(k,1473) = 1._r8 / lu(k,1473) + lu(k,1474) = lu(k,1474) * lu(k,1473) + lu(k,1475) = lu(k,1475) * lu(k,1473) + lu(k,1476) = lu(k,1476) * lu(k,1473) + lu(k,1477) = lu(k,1477) * lu(k,1473) + lu(k,1478) = lu(k,1478) * lu(k,1473) + lu(k,1479) = lu(k,1479) * lu(k,1473) + lu(k,1480) = lu(k,1480) * lu(k,1473) + lu(k,1481) = lu(k,1481) * lu(k,1473) + lu(k,1482) = lu(k,1482) * lu(k,1473) + lu(k,1483) = lu(k,1483) * lu(k,1473) + lu(k,1484) = lu(k,1484) * lu(k,1473) + lu(k,1485) = lu(k,1485) * lu(k,1473) + lu(k,1486) = lu(k,1486) * lu(k,1473) + lu(k,1673) = lu(k,1673) - lu(k,1474) * lu(k,1672) + lu(k,1677) = lu(k,1677) - lu(k,1475) * lu(k,1672) + lu(k,1679) = - lu(k,1476) * lu(k,1672) + lu(k,1680) = lu(k,1680) - lu(k,1477) * lu(k,1672) + lu(k,1681) = lu(k,1681) - lu(k,1478) * lu(k,1672) + lu(k,1682) = lu(k,1682) - lu(k,1479) * lu(k,1672) + lu(k,1685) = lu(k,1685) - lu(k,1480) * lu(k,1672) + lu(k,1687) = lu(k,1687) - lu(k,1481) * lu(k,1672) + lu(k,1689) = lu(k,1689) - lu(k,1482) * lu(k,1672) + lu(k,1690) = lu(k,1690) - lu(k,1483) * lu(k,1672) + lu(k,1691) = lu(k,1691) - lu(k,1484) * lu(k,1672) + lu(k,1692) = lu(k,1692) - lu(k,1485) * lu(k,1672) + lu(k,1694) = lu(k,1694) - lu(k,1486) * lu(k,1672) + lu(k,1845) = lu(k,1845) - lu(k,1474) * lu(k,1844) + lu(k,1850) = lu(k,1850) - lu(k,1475) * lu(k,1844) + lu(k,1852) = lu(k,1852) - lu(k,1476) * lu(k,1844) + lu(k,1853) = lu(k,1853) - lu(k,1477) * lu(k,1844) + lu(k,1854) = lu(k,1854) - lu(k,1478) * lu(k,1844) + lu(k,1855) = lu(k,1855) - lu(k,1479) * lu(k,1844) + lu(k,1858) = lu(k,1858) - lu(k,1480) * lu(k,1844) + lu(k,1860) = lu(k,1860) - lu(k,1481) * lu(k,1844) + lu(k,1862) = lu(k,1862) - lu(k,1482) * lu(k,1844) + lu(k,1863) = lu(k,1863) - lu(k,1483) * lu(k,1844) + lu(k,1864) = lu(k,1864) - lu(k,1484) * lu(k,1844) + lu(k,1865) = lu(k,1865) - lu(k,1485) * lu(k,1844) + lu(k,1867) = lu(k,1867) - lu(k,1486) * lu(k,1844) + lu(k,1955) = lu(k,1955) - lu(k,1474) * lu(k,1954) + lu(k,1957) = lu(k,1957) - lu(k,1475) * lu(k,1954) + lu(k,1959) = lu(k,1959) - lu(k,1476) * lu(k,1954) + lu(k,1960) = lu(k,1960) - lu(k,1477) * lu(k,1954) + lu(k,1961) = lu(k,1961) - lu(k,1478) * lu(k,1954) + lu(k,1962) = lu(k,1962) - lu(k,1479) * lu(k,1954) + lu(k,1965) = lu(k,1965) - lu(k,1480) * lu(k,1954) + lu(k,1967) = lu(k,1967) - lu(k,1481) * lu(k,1954) + lu(k,1969) = lu(k,1969) - lu(k,1482) * lu(k,1954) + lu(k,1970) = lu(k,1970) - lu(k,1483) * lu(k,1954) + lu(k,1971) = lu(k,1971) - lu(k,1484) * lu(k,1954) + lu(k,1972) = lu(k,1972) - lu(k,1485) * lu(k,1954) + lu(k,1974) = lu(k,1974) - lu(k,1486) * lu(k,1954) + lu(k,1999) = lu(k,1999) - lu(k,1474) * lu(k,1998) + lu(k,2003) = lu(k,2003) - lu(k,1475) * lu(k,1998) + lu(k,2005) = lu(k,2005) - lu(k,1476) * lu(k,1998) + lu(k,2006) = lu(k,2006) - lu(k,1477) * lu(k,1998) + lu(k,2007) = lu(k,2007) - lu(k,1478) * lu(k,1998) + lu(k,2008) = lu(k,2008) - lu(k,1479) * lu(k,1998) + lu(k,2011) = lu(k,2011) - lu(k,1480) * lu(k,1998) + lu(k,2013) = lu(k,2013) - lu(k,1481) * lu(k,1998) + lu(k,2015) = lu(k,2015) - lu(k,1482) * lu(k,1998) + lu(k,2016) = lu(k,2016) - lu(k,1483) * lu(k,1998) + lu(k,2017) = lu(k,2017) - lu(k,1484) * lu(k,1998) + lu(k,2018) = lu(k,2018) - lu(k,1485) * lu(k,1998) + lu(k,2020) = lu(k,2020) - lu(k,1486) * lu(k,1998) + lu(k,2107) = lu(k,2107) - lu(k,1474) * lu(k,2106) + lu(k,2110) = lu(k,2110) - lu(k,1475) * lu(k,2106) + lu(k,2112) = lu(k,2112) - lu(k,1476) * lu(k,2106) + lu(k,2113) = lu(k,2113) - lu(k,1477) * lu(k,2106) + lu(k,2114) = lu(k,2114) - lu(k,1478) * lu(k,2106) + lu(k,2115) = lu(k,2115) - lu(k,1479) * lu(k,2106) + lu(k,2118) = lu(k,2118) - lu(k,1480) * lu(k,2106) + lu(k,2120) = lu(k,2120) - lu(k,1481) * lu(k,2106) + lu(k,2122) = lu(k,2122) - lu(k,1482) * lu(k,2106) + lu(k,2123) = lu(k,2123) - lu(k,1483) * lu(k,2106) + lu(k,2124) = lu(k,2124) - lu(k,1484) * lu(k,2106) + lu(k,2125) = lu(k,2125) - lu(k,1485) * lu(k,2106) + lu(k,2127) = lu(k,2127) - lu(k,1486) * lu(k,2106) + lu(k,2182) = lu(k,2182) - lu(k,1474) * lu(k,2181) + lu(k,2183) = lu(k,2183) - lu(k,1475) * lu(k,2181) + lu(k,2185) = lu(k,2185) - lu(k,1476) * lu(k,2181) + lu(k,2186) = lu(k,2186) - lu(k,1477) * lu(k,2181) + lu(k,2187) = lu(k,2187) - lu(k,1478) * lu(k,2181) + lu(k,2188) = lu(k,2188) - lu(k,1479) * lu(k,2181) + lu(k,2191) = lu(k,2191) - lu(k,1480) * lu(k,2181) + lu(k,2193) = lu(k,2193) - lu(k,1481) * lu(k,2181) + lu(k,2195) = lu(k,2195) - lu(k,1482) * lu(k,2181) + lu(k,2196) = lu(k,2196) - lu(k,1483) * lu(k,2181) + lu(k,2197) = lu(k,2197) - lu(k,1484) * lu(k,2181) + lu(k,2198) = lu(k,2198) - lu(k,1485) * lu(k,2181) + lu(k,2200) = lu(k,2200) - lu(k,1486) * lu(k,2181) + lu(k,2365) = lu(k,2365) - lu(k,1474) * lu(k,2364) + lu(k,2369) = lu(k,2369) - lu(k,1475) * lu(k,2364) + lu(k,2371) = lu(k,2371) - lu(k,1476) * lu(k,2364) + lu(k,2372) = lu(k,2372) - lu(k,1477) * lu(k,2364) + lu(k,2373) = lu(k,2373) - lu(k,1478) * lu(k,2364) + lu(k,2374) = lu(k,2374) - lu(k,1479) * lu(k,2364) + lu(k,2377) = lu(k,2377) - lu(k,1480) * lu(k,2364) + lu(k,2379) = lu(k,2379) - lu(k,1481) * lu(k,2364) + lu(k,2381) = lu(k,2381) - lu(k,1482) * lu(k,2364) + lu(k,2382) = lu(k,2382) - lu(k,1483) * lu(k,2364) + lu(k,2383) = lu(k,2383) - lu(k,1484) * lu(k,2364) + lu(k,2384) = lu(k,2384) - lu(k,1485) * lu(k,2364) + lu(k,2386) = lu(k,2386) - lu(k,1486) * lu(k,2364) + lu(k,2426) = lu(k,2426) - lu(k,1474) * lu(k,2425) + lu(k,2429) = lu(k,2429) - lu(k,1475) * lu(k,2425) + lu(k,2431) = lu(k,2431) - lu(k,1476) * lu(k,2425) + lu(k,2432) = lu(k,2432) - lu(k,1477) * lu(k,2425) + lu(k,2433) = lu(k,2433) - lu(k,1478) * lu(k,2425) + lu(k,2434) = lu(k,2434) - lu(k,1479) * lu(k,2425) + lu(k,2437) = lu(k,2437) - lu(k,1480) * lu(k,2425) + lu(k,2439) = lu(k,2439) - lu(k,1481) * lu(k,2425) + lu(k,2441) = lu(k,2441) - lu(k,1482) * lu(k,2425) + lu(k,2442) = lu(k,2442) - lu(k,1483) * lu(k,2425) + lu(k,2443) = lu(k,2443) - lu(k,1484) * lu(k,2425) + lu(k,2444) = lu(k,2444) - lu(k,1485) * lu(k,2425) + lu(k,2446) = lu(k,2446) - lu(k,1486) * lu(k,2425) + lu(k,1495) = 1._r8 / lu(k,1495) + lu(k,1496) = lu(k,1496) * lu(k,1495) + lu(k,1497) = lu(k,1497) * lu(k,1495) + lu(k,1498) = lu(k,1498) * lu(k,1495) + lu(k,1499) = lu(k,1499) * lu(k,1495) + lu(k,1500) = lu(k,1500) * lu(k,1495) + lu(k,1501) = lu(k,1501) * lu(k,1495) + lu(k,1502) = lu(k,1502) * lu(k,1495) + lu(k,1503) = lu(k,1503) * lu(k,1495) + lu(k,1557) = lu(k,1557) - lu(k,1496) * lu(k,1555) + lu(k,1559) = - lu(k,1497) * lu(k,1555) + lu(k,1560) = lu(k,1560) - lu(k,1498) * lu(k,1555) + lu(k,1561) = - lu(k,1499) * lu(k,1555) + lu(k,1562) = lu(k,1562) - lu(k,1500) * lu(k,1555) + lu(k,1564) = lu(k,1564) - lu(k,1501) * lu(k,1555) + lu(k,1565) = lu(k,1565) - lu(k,1502) * lu(k,1555) + lu(k,1566) = lu(k,1566) - lu(k,1503) * lu(k,1555) + lu(k,1587) = lu(k,1587) - lu(k,1496) * lu(k,1584) + lu(k,1589) = lu(k,1589) - lu(k,1497) * lu(k,1584) + lu(k,1590) = lu(k,1590) - lu(k,1498) * lu(k,1584) + lu(k,1591) = lu(k,1591) - lu(k,1499) * lu(k,1584) + lu(k,1593) = lu(k,1593) - lu(k,1500) * lu(k,1584) + lu(k,1595) = lu(k,1595) - lu(k,1501) * lu(k,1584) + lu(k,1596) = lu(k,1596) - lu(k,1502) * lu(k,1584) + lu(k,1597) = lu(k,1597) - lu(k,1503) * lu(k,1584) + lu(k,1632) = - lu(k,1496) * lu(k,1628) + lu(k,1635) = - lu(k,1497) * lu(k,1628) + lu(k,1636) = lu(k,1636) - lu(k,1498) * lu(k,1628) + lu(k,1637) = - lu(k,1499) * lu(k,1628) + lu(k,1639) = lu(k,1639) - lu(k,1500) * lu(k,1628) + lu(k,1641) = lu(k,1641) - lu(k,1501) * lu(k,1628) + lu(k,1643) = lu(k,1643) - lu(k,1502) * lu(k,1628) + lu(k,1645) = lu(k,1645) - lu(k,1503) * lu(k,1628) + lu(k,1677) = lu(k,1677) - lu(k,1496) * lu(k,1673) + lu(k,1680) = lu(k,1680) - lu(k,1497) * lu(k,1673) + lu(k,1681) = lu(k,1681) - lu(k,1498) * lu(k,1673) + lu(k,1682) = lu(k,1682) - lu(k,1499) * lu(k,1673) + lu(k,1684) = lu(k,1684) - lu(k,1500) * lu(k,1673) + lu(k,1686) = lu(k,1686) - lu(k,1501) * lu(k,1673) + lu(k,1688) = lu(k,1688) - lu(k,1502) * lu(k,1673) + lu(k,1690) = lu(k,1690) - lu(k,1503) * lu(k,1673) + lu(k,1850) = lu(k,1850) - lu(k,1496) * lu(k,1845) + lu(k,1853) = lu(k,1853) - lu(k,1497) * lu(k,1845) + lu(k,1854) = lu(k,1854) - lu(k,1498) * lu(k,1845) + lu(k,1855) = lu(k,1855) - lu(k,1499) * lu(k,1845) + lu(k,1857) = lu(k,1857) - lu(k,1500) * lu(k,1845) + lu(k,1859) = lu(k,1859) - lu(k,1501) * lu(k,1845) + lu(k,1861) = lu(k,1861) - lu(k,1502) * lu(k,1845) + lu(k,1863) = lu(k,1863) - lu(k,1503) * lu(k,1845) + lu(k,1957) = lu(k,1957) - lu(k,1496) * lu(k,1955) + lu(k,1960) = lu(k,1960) - lu(k,1497) * lu(k,1955) + lu(k,1961) = lu(k,1961) - lu(k,1498) * lu(k,1955) + lu(k,1962) = lu(k,1962) - lu(k,1499) * lu(k,1955) + lu(k,1964) = lu(k,1964) - lu(k,1500) * lu(k,1955) + lu(k,1966) = lu(k,1966) - lu(k,1501) * lu(k,1955) + lu(k,1968) = lu(k,1968) - lu(k,1502) * lu(k,1955) + lu(k,1970) = lu(k,1970) - lu(k,1503) * lu(k,1955) + lu(k,2003) = lu(k,2003) - lu(k,1496) * lu(k,1999) + lu(k,2006) = lu(k,2006) - lu(k,1497) * lu(k,1999) + lu(k,2007) = lu(k,2007) - lu(k,1498) * lu(k,1999) + lu(k,2008) = lu(k,2008) - lu(k,1499) * lu(k,1999) + lu(k,2010) = lu(k,2010) - lu(k,1500) * lu(k,1999) + lu(k,2012) = lu(k,2012) - lu(k,1501) * lu(k,1999) + lu(k,2014) = lu(k,2014) - lu(k,1502) * lu(k,1999) + lu(k,2016) = lu(k,2016) - lu(k,1503) * lu(k,1999) + lu(k,2046) = lu(k,2046) - lu(k,1496) * lu(k,2041) + lu(k,2049) = lu(k,2049) - lu(k,1497) * lu(k,2041) + lu(k,2050) = lu(k,2050) - lu(k,1498) * lu(k,2041) + lu(k,2051) = lu(k,2051) - lu(k,1499) * lu(k,2041) + lu(k,2053) = lu(k,2053) - lu(k,1500) * lu(k,2041) + lu(k,2055) = lu(k,2055) - lu(k,1501) * lu(k,2041) + lu(k,2057) = lu(k,2057) - lu(k,1502) * lu(k,2041) + lu(k,2059) = lu(k,2059) - lu(k,1503) * lu(k,2041) + lu(k,2110) = lu(k,2110) - lu(k,1496) * lu(k,2107) + lu(k,2113) = lu(k,2113) - lu(k,1497) * lu(k,2107) + lu(k,2114) = lu(k,2114) - lu(k,1498) * lu(k,2107) + lu(k,2115) = lu(k,2115) - lu(k,1499) * lu(k,2107) + lu(k,2117) = lu(k,2117) - lu(k,1500) * lu(k,2107) + lu(k,2119) = lu(k,2119) - lu(k,1501) * lu(k,2107) + lu(k,2121) = lu(k,2121) - lu(k,1502) * lu(k,2107) + lu(k,2123) = lu(k,2123) - lu(k,1503) * lu(k,2107) + lu(k,2183) = lu(k,2183) - lu(k,1496) * lu(k,2182) + lu(k,2186) = lu(k,2186) - lu(k,1497) * lu(k,2182) + lu(k,2187) = lu(k,2187) - lu(k,1498) * lu(k,2182) + lu(k,2188) = lu(k,2188) - lu(k,1499) * lu(k,2182) + lu(k,2190) = - lu(k,1500) * lu(k,2182) + lu(k,2192) = lu(k,2192) - lu(k,1501) * lu(k,2182) + lu(k,2194) = - lu(k,1502) * lu(k,2182) + lu(k,2196) = lu(k,2196) - lu(k,1503) * lu(k,2182) + lu(k,2369) = lu(k,2369) - lu(k,1496) * lu(k,2365) + lu(k,2372) = lu(k,2372) - lu(k,1497) * lu(k,2365) + lu(k,2373) = lu(k,2373) - lu(k,1498) * lu(k,2365) + lu(k,2374) = lu(k,2374) - lu(k,1499) * lu(k,2365) + lu(k,2376) = lu(k,2376) - lu(k,1500) * lu(k,2365) + lu(k,2378) = lu(k,2378) - lu(k,1501) * lu(k,2365) + lu(k,2380) = lu(k,2380) - lu(k,1502) * lu(k,2365) + lu(k,2382) = lu(k,2382) - lu(k,1503) * lu(k,2365) + lu(k,2429) = lu(k,2429) - lu(k,1496) * lu(k,2426) + lu(k,2432) = lu(k,2432) - lu(k,1497) * lu(k,2426) + lu(k,2433) = lu(k,2433) - lu(k,1498) * lu(k,2426) + lu(k,2434) = lu(k,2434) - lu(k,1499) * lu(k,2426) + lu(k,2436) = lu(k,2436) - lu(k,1500) * lu(k,2426) + lu(k,2438) = - lu(k,1501) * lu(k,2426) + lu(k,2440) = - lu(k,1502) * lu(k,2426) + lu(k,2442) = lu(k,2442) - lu(k,1503) * lu(k,2426) + lu(k,2455) = - lu(k,1496) * lu(k,2451) + lu(k,2458) = lu(k,2458) - lu(k,1497) * lu(k,2451) + lu(k,2459) = lu(k,2459) - lu(k,1498) * lu(k,2451) + lu(k,2460) = lu(k,2460) - lu(k,1499) * lu(k,2451) + lu(k,2462) = lu(k,2462) - lu(k,1500) * lu(k,2451) + lu(k,2464) = lu(k,2464) - lu(k,1501) * lu(k,2451) + lu(k,2466) = lu(k,2466) - lu(k,1502) * lu(k,2451) + lu(k,2468) = lu(k,2468) - lu(k,1503) * lu(k,2451) end do end subroutine lu_fac28 subroutine lu_fac29( avec_len, lu ) @@ -6353,259 +6357,259 @@ subroutine lu_fac29( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1505) = 1._r8 / lu(k,1505) - lu(k,1506) = lu(k,1506) * lu(k,1505) - lu(k,1507) = lu(k,1507) * lu(k,1505) - lu(k,1508) = lu(k,1508) * lu(k,1505) - lu(k,1509) = lu(k,1509) * lu(k,1505) - lu(k,1510) = lu(k,1510) * lu(k,1505) - lu(k,1511) = lu(k,1511) * lu(k,1505) - lu(k,1512) = lu(k,1512) * lu(k,1505) - lu(k,1513) = lu(k,1513) * lu(k,1505) - lu(k,1514) = lu(k,1514) * lu(k,1505) - lu(k,1515) = lu(k,1515) * lu(k,1505) - lu(k,1516) = lu(k,1516) * lu(k,1505) - lu(k,1825) = lu(k,1825) - lu(k,1506) * lu(k,1824) - lu(k,1832) = lu(k,1832) - lu(k,1507) * lu(k,1824) - lu(k,1833) = lu(k,1833) - lu(k,1508) * lu(k,1824) - lu(k,1834) = lu(k,1834) - lu(k,1509) * lu(k,1824) - lu(k,1835) = lu(k,1835) - lu(k,1510) * lu(k,1824) - lu(k,1837) = lu(k,1837) - lu(k,1511) * lu(k,1824) - lu(k,1838) = lu(k,1838) - lu(k,1512) * lu(k,1824) - lu(k,1839) = lu(k,1839) - lu(k,1513) * lu(k,1824) - lu(k,1840) = lu(k,1840) - lu(k,1514) * lu(k,1824) - lu(k,1842) = lu(k,1842) - lu(k,1515) * lu(k,1824) - lu(k,1844) = lu(k,1844) - lu(k,1516) * lu(k,1824) - lu(k,1998) = lu(k,1998) - lu(k,1506) * lu(k,1996) - lu(k,2005) = lu(k,2005) - lu(k,1507) * lu(k,1996) - lu(k,2006) = lu(k,2006) - lu(k,1508) * lu(k,1996) - lu(k,2007) = lu(k,2007) - lu(k,1509) * lu(k,1996) - lu(k,2008) = lu(k,2008) - lu(k,1510) * lu(k,1996) - lu(k,2010) = lu(k,2010) - lu(k,1511) * lu(k,1996) - lu(k,2011) = lu(k,2011) - lu(k,1512) * lu(k,1996) - lu(k,2012) = lu(k,2012) - lu(k,1513) * lu(k,1996) - lu(k,2013) = lu(k,2013) - lu(k,1514) * lu(k,1996) - lu(k,2015) = lu(k,2015) - lu(k,1515) * lu(k,1996) - lu(k,2017) = lu(k,2017) - lu(k,1516) * lu(k,1996) - lu(k,2083) = lu(k,2083) - lu(k,1506) * lu(k,2082) - lu(k,2090) = lu(k,2090) - lu(k,1507) * lu(k,2082) - lu(k,2091) = lu(k,2091) - lu(k,1508) * lu(k,2082) - lu(k,2092) = lu(k,2092) - lu(k,1509) * lu(k,2082) - lu(k,2093) = lu(k,2093) - lu(k,1510) * lu(k,2082) - lu(k,2095) = lu(k,2095) - lu(k,1511) * lu(k,2082) - lu(k,2096) = lu(k,2096) - lu(k,1512) * lu(k,2082) - lu(k,2097) = lu(k,2097) - lu(k,1513) * lu(k,2082) - lu(k,2098) = lu(k,2098) - lu(k,1514) * lu(k,2082) - lu(k,2100) = lu(k,2100) - lu(k,1515) * lu(k,2082) - lu(k,2102) = lu(k,2102) - lu(k,1516) * lu(k,2082) - lu(k,2203) = lu(k,2203) - lu(k,1506) * lu(k,2202) - lu(k,2210) = lu(k,2210) - lu(k,1507) * lu(k,2202) - lu(k,2211) = lu(k,2211) - lu(k,1508) * lu(k,2202) - lu(k,2212) = lu(k,2212) - lu(k,1509) * lu(k,2202) - lu(k,2213) = lu(k,2213) - lu(k,1510) * lu(k,2202) - lu(k,2215) = lu(k,2215) - lu(k,1511) * lu(k,2202) - lu(k,2216) = lu(k,2216) - lu(k,1512) * lu(k,2202) - lu(k,2217) = lu(k,2217) - lu(k,1513) * lu(k,2202) - lu(k,2218) = lu(k,2218) - lu(k,1514) * lu(k,2202) - lu(k,2220) = lu(k,2220) - lu(k,1515) * lu(k,2202) - lu(k,2222) = lu(k,2222) - lu(k,1516) * lu(k,2202) - lu(k,2249) = lu(k,2249) - lu(k,1506) * lu(k,2248) - lu(k,2256) = lu(k,2256) - lu(k,1507) * lu(k,2248) - lu(k,2257) = lu(k,2257) - lu(k,1508) * lu(k,2248) - lu(k,2258) = lu(k,2258) - lu(k,1509) * lu(k,2248) - lu(k,2259) = lu(k,2259) - lu(k,1510) * lu(k,2248) - lu(k,2261) = lu(k,2261) - lu(k,1511) * lu(k,2248) - lu(k,2262) = lu(k,2262) - lu(k,1512) * lu(k,2248) - lu(k,2263) = lu(k,2263) - lu(k,1513) * lu(k,2248) - lu(k,2264) = lu(k,2264) - lu(k,1514) * lu(k,2248) - lu(k,2266) = lu(k,2266) - lu(k,1515) * lu(k,2248) - lu(k,2268) = lu(k,2268) - lu(k,1516) * lu(k,2248) - lu(k,2270) = - lu(k,1506) * lu(k,2269) - lu(k,2277) = - lu(k,1507) * lu(k,2269) - lu(k,2278) = lu(k,2278) - lu(k,1508) * lu(k,2269) - lu(k,2279) = - lu(k,1509) * lu(k,2269) - lu(k,2280) = - lu(k,1510) * lu(k,2269) - lu(k,2282) = - lu(k,1511) * lu(k,2269) - lu(k,2283) = lu(k,2283) - lu(k,1512) * lu(k,2269) - lu(k,2284) = - lu(k,1513) * lu(k,2269) - lu(k,2285) = - lu(k,1514) * lu(k,2269) - lu(k,2287) = lu(k,2287) - lu(k,1515) * lu(k,2269) - lu(k,2289) = lu(k,2289) - lu(k,1516) * lu(k,2269) - lu(k,2293) = - lu(k,1506) * lu(k,2292) - lu(k,2300) = - lu(k,1507) * lu(k,2292) - lu(k,2301) = lu(k,2301) - lu(k,1508) * lu(k,2292) - lu(k,2302) = lu(k,2302) - lu(k,1509) * lu(k,2292) - lu(k,2303) = lu(k,2303) - lu(k,1510) * lu(k,2292) - lu(k,2305) = - lu(k,1511) * lu(k,2292) - lu(k,2306) = lu(k,2306) - lu(k,1512) * lu(k,2292) - lu(k,2307) = lu(k,2307) - lu(k,1513) * lu(k,2292) - lu(k,2308) = lu(k,2308) - lu(k,1514) * lu(k,2292) - lu(k,2310) = - lu(k,1515) * lu(k,2292) - lu(k,2312) = lu(k,2312) - lu(k,1516) * lu(k,2292) - lu(k,2452) = lu(k,2452) - lu(k,1506) * lu(k,2450) - lu(k,2459) = lu(k,2459) - lu(k,1507) * lu(k,2450) - lu(k,2460) = lu(k,2460) - lu(k,1508) * lu(k,2450) - lu(k,2461) = lu(k,2461) - lu(k,1509) * lu(k,2450) - lu(k,2462) = - lu(k,1510) * lu(k,2450) - lu(k,2464) = lu(k,2464) - lu(k,1511) * lu(k,2450) - lu(k,2465) = lu(k,2465) - lu(k,1512) * lu(k,2450) - lu(k,2466) = lu(k,2466) - lu(k,1513) * lu(k,2450) - lu(k,2467) = - lu(k,1514) * lu(k,2450) - lu(k,2469) = lu(k,2469) - lu(k,1515) * lu(k,2450) - lu(k,2471) = lu(k,2471) - lu(k,1516) * lu(k,2450) - lu(k,2478) = lu(k,2478) - lu(k,1506) * lu(k,2477) - lu(k,2485) = lu(k,2485) - lu(k,1507) * lu(k,2477) - lu(k,2486) = lu(k,2486) - lu(k,1508) * lu(k,2477) - lu(k,2487) = lu(k,2487) - lu(k,1509) * lu(k,2477) - lu(k,2488) = - lu(k,1510) * lu(k,2477) - lu(k,2490) = lu(k,2490) - lu(k,1511) * lu(k,2477) - lu(k,2491) = lu(k,2491) - lu(k,1512) * lu(k,2477) - lu(k,2492) = lu(k,2492) - lu(k,1513) * lu(k,2477) - lu(k,2493) = - lu(k,1514) * lu(k,2477) - lu(k,2495) = lu(k,2495) - lu(k,1515) * lu(k,2477) - lu(k,2497) = lu(k,2497) - lu(k,1516) * lu(k,2477) - lu(k,2505) = - lu(k,1506) * lu(k,2503) - lu(k,2512) = lu(k,2512) - lu(k,1507) * lu(k,2503) - lu(k,2513) = lu(k,2513) - lu(k,1508) * lu(k,2503) - lu(k,2514) = lu(k,2514) - lu(k,1509) * lu(k,2503) - lu(k,2515) = lu(k,2515) - lu(k,1510) * lu(k,2503) - lu(k,2517) = - lu(k,1511) * lu(k,2503) - lu(k,2518) = lu(k,2518) - lu(k,1512) * lu(k,2503) - lu(k,2519) = lu(k,2519) - lu(k,1513) * lu(k,2503) - lu(k,2520) = lu(k,2520) - lu(k,1514) * lu(k,2503) - lu(k,2522) = lu(k,2522) - lu(k,1515) * lu(k,2503) - lu(k,2524) = lu(k,2524) - lu(k,1516) * lu(k,2503) - lu(k,1520) = 1._r8 / lu(k,1520) - lu(k,1521) = lu(k,1521) * lu(k,1520) - lu(k,1522) = lu(k,1522) * lu(k,1520) - lu(k,1523) = lu(k,1523) * lu(k,1520) - lu(k,1524) = lu(k,1524) * lu(k,1520) - lu(k,1525) = lu(k,1525) * lu(k,1520) - lu(k,1526) = lu(k,1526) * lu(k,1520) - lu(k,1527) = lu(k,1527) * lu(k,1520) - lu(k,1528) = lu(k,1528) * lu(k,1520) - lu(k,1529) = lu(k,1529) * lu(k,1520) - lu(k,1530) = lu(k,1530) * lu(k,1520) - lu(k,1531) = lu(k,1531) * lu(k,1520) - lu(k,1532) = lu(k,1532) * lu(k,1520) - lu(k,1533) = lu(k,1533) * lu(k,1520) - lu(k,1585) = - lu(k,1521) * lu(k,1584) - lu(k,1586) = lu(k,1586) - lu(k,1522) * lu(k,1584) - lu(k,1587) = - lu(k,1523) * lu(k,1584) - lu(k,1588) = - lu(k,1524) * lu(k,1584) - lu(k,1589) = lu(k,1589) - lu(k,1525) * lu(k,1584) - lu(k,1590) = lu(k,1590) - lu(k,1526) * lu(k,1584) - lu(k,1592) = lu(k,1592) - lu(k,1527) * lu(k,1584) - lu(k,1593) = lu(k,1593) - lu(k,1528) * lu(k,1584) - lu(k,1594) = - lu(k,1529) * lu(k,1584) - lu(k,1595) = lu(k,1595) - lu(k,1530) * lu(k,1584) - lu(k,1596) = lu(k,1596) - lu(k,1531) * lu(k,1584) - lu(k,1597) = lu(k,1597) - lu(k,1532) * lu(k,1584) - lu(k,1599) = lu(k,1599) - lu(k,1533) * lu(k,1584) - lu(k,1607) = lu(k,1607) - lu(k,1521) * lu(k,1605) - lu(k,1608) = lu(k,1608) - lu(k,1522) * lu(k,1605) - lu(k,1609) = lu(k,1609) - lu(k,1523) * lu(k,1605) - lu(k,1610) = lu(k,1610) - lu(k,1524) * lu(k,1605) - lu(k,1611) = lu(k,1611) - lu(k,1525) * lu(k,1605) - lu(k,1612) = lu(k,1612) - lu(k,1526) * lu(k,1605) - lu(k,1614) = lu(k,1614) - lu(k,1527) * lu(k,1605) - lu(k,1616) = lu(k,1616) - lu(k,1528) * lu(k,1605) - lu(k,1617) = lu(k,1617) - lu(k,1529) * lu(k,1605) - lu(k,1618) = - lu(k,1530) * lu(k,1605) - lu(k,1620) = - lu(k,1531) * lu(k,1605) - lu(k,1621) = lu(k,1621) - lu(k,1532) * lu(k,1605) - lu(k,1623) = lu(k,1623) - lu(k,1533) * lu(k,1605) - lu(k,1633) = lu(k,1633) - lu(k,1521) * lu(k,1631) - lu(k,1634) = lu(k,1634) - lu(k,1522) * lu(k,1631) - lu(k,1635) = lu(k,1635) - lu(k,1523) * lu(k,1631) - lu(k,1636) = lu(k,1636) - lu(k,1524) * lu(k,1631) - lu(k,1637) = lu(k,1637) - lu(k,1525) * lu(k,1631) - lu(k,1638) = lu(k,1638) - lu(k,1526) * lu(k,1631) - lu(k,1640) = lu(k,1640) - lu(k,1527) * lu(k,1631) - lu(k,1642) = lu(k,1642) - lu(k,1528) * lu(k,1631) - lu(k,1643) = lu(k,1643) - lu(k,1529) * lu(k,1631) - lu(k,1644) = - lu(k,1530) * lu(k,1631) - lu(k,1647) = - lu(k,1531) * lu(k,1631) - lu(k,1648) = lu(k,1648) - lu(k,1532) * lu(k,1631) - lu(k,1650) = lu(k,1650) - lu(k,1533) * lu(k,1631) - lu(k,1677) = lu(k,1677) - lu(k,1521) * lu(k,1675) - lu(k,1678) = lu(k,1678) - lu(k,1522) * lu(k,1675) - lu(k,1679) = lu(k,1679) - lu(k,1523) * lu(k,1675) - lu(k,1680) = lu(k,1680) - lu(k,1524) * lu(k,1675) - lu(k,1681) = lu(k,1681) - lu(k,1525) * lu(k,1675) - lu(k,1682) = lu(k,1682) - lu(k,1526) * lu(k,1675) - lu(k,1684) = lu(k,1684) - lu(k,1527) * lu(k,1675) - lu(k,1687) = lu(k,1687) - lu(k,1528) * lu(k,1675) - lu(k,1688) = lu(k,1688) - lu(k,1529) * lu(k,1675) - lu(k,1689) = lu(k,1689) - lu(k,1530) * lu(k,1675) - lu(k,1692) = lu(k,1692) - lu(k,1531) * lu(k,1675) - lu(k,1693) = lu(k,1693) - lu(k,1532) * lu(k,1675) - lu(k,1695) = lu(k,1695) - lu(k,1533) * lu(k,1675) - lu(k,1999) = lu(k,1999) - lu(k,1521) * lu(k,1997) - lu(k,2000) = lu(k,2000) - lu(k,1522) * lu(k,1997) - lu(k,2001) = lu(k,2001) - lu(k,1523) * lu(k,1997) - lu(k,2002) = lu(k,2002) - lu(k,1524) * lu(k,1997) - lu(k,2003) = lu(k,2003) - lu(k,1525) * lu(k,1997) - lu(k,2004) = lu(k,2004) - lu(k,1526) * lu(k,1997) - lu(k,2006) = lu(k,2006) - lu(k,1527) * lu(k,1997) - lu(k,2009) = lu(k,2009) - lu(k,1528) * lu(k,1997) - lu(k,2010) = lu(k,2010) - lu(k,1529) * lu(k,1997) - lu(k,2011) = lu(k,2011) - lu(k,1530) * lu(k,1997) - lu(k,2014) = lu(k,2014) - lu(k,1531) * lu(k,1997) - lu(k,2015) = lu(k,2015) - lu(k,1532) * lu(k,1997) - lu(k,2017) = lu(k,2017) - lu(k,1533) * lu(k,1997) - lu(k,2059) = - lu(k,1521) * lu(k,2058) - lu(k,2060) = lu(k,2060) - lu(k,1522) * lu(k,2058) - lu(k,2061) = - lu(k,1523) * lu(k,2058) - lu(k,2062) = - lu(k,1524) * lu(k,2058) - lu(k,2063) = lu(k,2063) - lu(k,1525) * lu(k,2058) - lu(k,2064) = lu(k,2064) - lu(k,1526) * lu(k,2058) - lu(k,2066) = lu(k,2066) - lu(k,1527) * lu(k,2058) - lu(k,2069) = lu(k,2069) - lu(k,1528) * lu(k,2058) - lu(k,2070) = - lu(k,1529) * lu(k,2058) - lu(k,2071) = lu(k,2071) - lu(k,1530) * lu(k,2058) - lu(k,2074) = lu(k,2074) - lu(k,1531) * lu(k,2058) - lu(k,2075) = lu(k,2075) - lu(k,1532) * lu(k,2058) - lu(k,2077) = lu(k,2077) - lu(k,1533) * lu(k,2058) - lu(k,2410) = lu(k,2410) - lu(k,1521) * lu(k,2409) - lu(k,2411) = lu(k,2411) - lu(k,1522) * lu(k,2409) - lu(k,2412) = lu(k,2412) - lu(k,1523) * lu(k,2409) - lu(k,2413) = lu(k,2413) - lu(k,1524) * lu(k,2409) - lu(k,2414) = lu(k,2414) - lu(k,1525) * lu(k,2409) - lu(k,2415) = lu(k,2415) - lu(k,1526) * lu(k,2409) - lu(k,2417) = lu(k,2417) - lu(k,1527) * lu(k,2409) - lu(k,2420) = lu(k,2420) - lu(k,1528) * lu(k,2409) - lu(k,2421) = lu(k,2421) - lu(k,1529) * lu(k,2409) - lu(k,2422) = lu(k,2422) - lu(k,1530) * lu(k,2409) - lu(k,2425) = lu(k,2425) - lu(k,1531) * lu(k,2409) - lu(k,2426) = lu(k,2426) - lu(k,1532) * lu(k,2409) - lu(k,2428) = lu(k,2428) - lu(k,1533) * lu(k,2409) - lu(k,2453) = lu(k,2453) - lu(k,1521) * lu(k,2451) - lu(k,2454) = lu(k,2454) - lu(k,1522) * lu(k,2451) - lu(k,2455) = lu(k,2455) - lu(k,1523) * lu(k,2451) - lu(k,2456) = lu(k,2456) - lu(k,1524) * lu(k,2451) - lu(k,2457) = lu(k,2457) - lu(k,1525) * lu(k,2451) - lu(k,2458) = lu(k,2458) - lu(k,1526) * lu(k,2451) - lu(k,2460) = lu(k,2460) - lu(k,1527) * lu(k,2451) - lu(k,2463) = lu(k,2463) - lu(k,1528) * lu(k,2451) - lu(k,2464) = lu(k,2464) - lu(k,1529) * lu(k,2451) - lu(k,2465) = lu(k,2465) - lu(k,1530) * lu(k,2451) - lu(k,2468) = lu(k,2468) - lu(k,1531) * lu(k,2451) - lu(k,2469) = lu(k,2469) - lu(k,1532) * lu(k,2451) - lu(k,2471) = lu(k,2471) - lu(k,1533) * lu(k,2451) - lu(k,2506) = - lu(k,1521) * lu(k,2504) - lu(k,2507) = - lu(k,1522) * lu(k,2504) - lu(k,2508) = - lu(k,1523) * lu(k,2504) - lu(k,2509) = - lu(k,1524) * lu(k,2504) - lu(k,2510) = - lu(k,1525) * lu(k,2504) - lu(k,2511) = - lu(k,1526) * lu(k,2504) - lu(k,2513) = lu(k,2513) - lu(k,1527) * lu(k,2504) - lu(k,2516) = lu(k,2516) - lu(k,1528) * lu(k,2504) - lu(k,2517) = lu(k,2517) - lu(k,1529) * lu(k,2504) - lu(k,2518) = lu(k,2518) - lu(k,1530) * lu(k,2504) - lu(k,2521) = - lu(k,1531) * lu(k,2504) - lu(k,2522) = lu(k,2522) - lu(k,1532) * lu(k,2504) - lu(k,2524) = lu(k,2524) - lu(k,1533) * lu(k,2504) + lu(k,1506) = 1._r8 / lu(k,1506) + lu(k,1507) = lu(k,1507) * lu(k,1506) + lu(k,1508) = lu(k,1508) * lu(k,1506) + lu(k,1509) = lu(k,1509) * lu(k,1506) + lu(k,1510) = lu(k,1510) * lu(k,1506) + lu(k,1511) = lu(k,1511) * lu(k,1506) + lu(k,1512) = lu(k,1512) * lu(k,1506) + lu(k,1513) = lu(k,1513) * lu(k,1506) + lu(k,1514) = lu(k,1514) * lu(k,1506) + lu(k,1515) = lu(k,1515) * lu(k,1506) + lu(k,1516) = lu(k,1516) * lu(k,1506) + lu(k,1517) = lu(k,1517) * lu(k,1506) + lu(k,1630) = lu(k,1630) - lu(k,1507) * lu(k,1629) + lu(k,1634) = lu(k,1634) - lu(k,1508) * lu(k,1629) + lu(k,1636) = lu(k,1636) - lu(k,1509) * lu(k,1629) + lu(k,1638) = lu(k,1638) - lu(k,1510) * lu(k,1629) + lu(k,1639) = lu(k,1639) - lu(k,1511) * lu(k,1629) + lu(k,1641) = lu(k,1641) - lu(k,1512) * lu(k,1629) + lu(k,1642) = lu(k,1642) - lu(k,1513) * lu(k,1629) + lu(k,1643) = lu(k,1643) - lu(k,1514) * lu(k,1629) + lu(k,1644) = lu(k,1644) - lu(k,1515) * lu(k,1629) + lu(k,1646) = lu(k,1646) - lu(k,1516) * lu(k,1629) + lu(k,1649) = lu(k,1649) - lu(k,1517) * lu(k,1629) + lu(k,1848) = lu(k,1848) - lu(k,1507) * lu(k,1846) + lu(k,1852) = lu(k,1852) - lu(k,1508) * lu(k,1846) + lu(k,1854) = lu(k,1854) - lu(k,1509) * lu(k,1846) + lu(k,1856) = lu(k,1856) - lu(k,1510) * lu(k,1846) + lu(k,1857) = lu(k,1857) - lu(k,1511) * lu(k,1846) + lu(k,1859) = lu(k,1859) - lu(k,1512) * lu(k,1846) + lu(k,1860) = lu(k,1860) - lu(k,1513) * lu(k,1846) + lu(k,1861) = lu(k,1861) - lu(k,1514) * lu(k,1846) + lu(k,1862) = lu(k,1862) - lu(k,1515) * lu(k,1846) + lu(k,1864) = lu(k,1864) - lu(k,1516) * lu(k,1846) + lu(k,1867) = lu(k,1867) - lu(k,1517) * lu(k,1846) + lu(k,2001) = lu(k,2001) - lu(k,1507) * lu(k,2000) + lu(k,2005) = lu(k,2005) - lu(k,1508) * lu(k,2000) + lu(k,2007) = lu(k,2007) - lu(k,1509) * lu(k,2000) + lu(k,2009) = lu(k,2009) - lu(k,1510) * lu(k,2000) + lu(k,2010) = lu(k,2010) - lu(k,1511) * lu(k,2000) + lu(k,2012) = lu(k,2012) - lu(k,1512) * lu(k,2000) + lu(k,2013) = lu(k,2013) - lu(k,1513) * lu(k,2000) + lu(k,2014) = lu(k,2014) - lu(k,1514) * lu(k,2000) + lu(k,2015) = lu(k,2015) - lu(k,1515) * lu(k,2000) + lu(k,2017) = lu(k,2017) - lu(k,1516) * lu(k,2000) + lu(k,2020) = lu(k,2020) - lu(k,1517) * lu(k,2000) + lu(k,2044) = lu(k,2044) - lu(k,1507) * lu(k,2042) + lu(k,2048) = - lu(k,1508) * lu(k,2042) + lu(k,2050) = lu(k,2050) - lu(k,1509) * lu(k,2042) + lu(k,2052) = lu(k,2052) - lu(k,1510) * lu(k,2042) + lu(k,2053) = lu(k,2053) - lu(k,1511) * lu(k,2042) + lu(k,2055) = lu(k,2055) - lu(k,1512) * lu(k,2042) + lu(k,2056) = - lu(k,1513) * lu(k,2042) + lu(k,2057) = lu(k,2057) - lu(k,1514) * lu(k,2042) + lu(k,2058) = lu(k,2058) - lu(k,1515) * lu(k,2042) + lu(k,2060) = lu(k,2060) - lu(k,1516) * lu(k,2042) + lu(k,2063) = lu(k,2063) - lu(k,1517) * lu(k,2042) + lu(k,2129) = - lu(k,1507) * lu(k,2128) + lu(k,2133) = - lu(k,1508) * lu(k,2128) + lu(k,2135) = lu(k,2135) - lu(k,1509) * lu(k,2128) + lu(k,2137) = - lu(k,1510) * lu(k,2128) + lu(k,2138) = lu(k,2138) - lu(k,1511) * lu(k,2128) + lu(k,2140) = lu(k,2140) - lu(k,1512) * lu(k,2128) + lu(k,2141) = - lu(k,1513) * lu(k,2128) + lu(k,2142) = - lu(k,1514) * lu(k,2128) + lu(k,2143) = - lu(k,1515) * lu(k,2128) + lu(k,2145) = - lu(k,1516) * lu(k,2128) + lu(k,2148) = lu(k,2148) - lu(k,1517) * lu(k,2128) + lu(k,2224) = lu(k,2224) - lu(k,1507) * lu(k,2223) + lu(k,2228) = lu(k,2228) - lu(k,1508) * lu(k,2223) + lu(k,2230) = lu(k,2230) - lu(k,1509) * lu(k,2223) + lu(k,2232) = lu(k,2232) - lu(k,1510) * lu(k,2223) + lu(k,2233) = lu(k,2233) - lu(k,1511) * lu(k,2223) + lu(k,2235) = lu(k,2235) - lu(k,1512) * lu(k,2223) + lu(k,2236) = lu(k,2236) - lu(k,1513) * lu(k,2223) + lu(k,2237) = lu(k,2237) - lu(k,1514) * lu(k,2223) + lu(k,2238) = lu(k,2238) - lu(k,1515) * lu(k,2223) + lu(k,2240) = lu(k,2240) - lu(k,1516) * lu(k,2223) + lu(k,2243) = lu(k,2243) - lu(k,1517) * lu(k,2223) + lu(k,2247) = - lu(k,1507) * lu(k,2246) + lu(k,2251) = lu(k,2251) - lu(k,1508) * lu(k,2246) + lu(k,2253) = lu(k,2253) - lu(k,1509) * lu(k,2246) + lu(k,2255) = - lu(k,1510) * lu(k,2246) + lu(k,2256) = - lu(k,1511) * lu(k,2246) + lu(k,2258) = lu(k,2258) - lu(k,1512) * lu(k,2246) + lu(k,2259) = lu(k,2259) - lu(k,1513) * lu(k,2246) + lu(k,2260) = - lu(k,1514) * lu(k,2246) + lu(k,2261) = lu(k,2261) - lu(k,1515) * lu(k,2246) + lu(k,2263) = lu(k,2263) - lu(k,1516) * lu(k,2246) + lu(k,2266) = lu(k,2266) - lu(k,1517) * lu(k,2246) + lu(k,2367) = lu(k,2367) - lu(k,1507) * lu(k,2366) + lu(k,2371) = lu(k,2371) - lu(k,1508) * lu(k,2366) + lu(k,2373) = lu(k,2373) - lu(k,1509) * lu(k,2366) + lu(k,2375) = lu(k,2375) - lu(k,1510) * lu(k,2366) + lu(k,2376) = lu(k,2376) - lu(k,1511) * lu(k,2366) + lu(k,2378) = lu(k,2378) - lu(k,1512) * lu(k,2366) + lu(k,2379) = lu(k,2379) - lu(k,1513) * lu(k,2366) + lu(k,2380) = lu(k,2380) - lu(k,1514) * lu(k,2366) + lu(k,2381) = lu(k,2381) - lu(k,1515) * lu(k,2366) + lu(k,2383) = lu(k,2383) - lu(k,1516) * lu(k,2366) + lu(k,2386) = lu(k,2386) - lu(k,1517) * lu(k,2366) + lu(k,2453) = lu(k,2453) - lu(k,1507) * lu(k,2452) + lu(k,2457) = - lu(k,1508) * lu(k,2452) + lu(k,2459) = lu(k,2459) - lu(k,1509) * lu(k,2452) + lu(k,2461) = lu(k,2461) - lu(k,1510) * lu(k,2452) + lu(k,2462) = lu(k,2462) - lu(k,1511) * lu(k,2452) + lu(k,2464) = lu(k,2464) - lu(k,1512) * lu(k,2452) + lu(k,2465) = - lu(k,1513) * lu(k,2452) + lu(k,2466) = lu(k,2466) - lu(k,1514) * lu(k,2452) + lu(k,2467) = lu(k,2467) - lu(k,1515) * lu(k,2452) + lu(k,2469) = lu(k,2469) - lu(k,1516) * lu(k,2452) + lu(k,2472) = lu(k,2472) - lu(k,1517) * lu(k,2452) + lu(k,2507) = - lu(k,1507) * lu(k,2505) + lu(k,2511) = lu(k,2511) - lu(k,1508) * lu(k,2505) + lu(k,2513) = lu(k,2513) - lu(k,1509) * lu(k,2505) + lu(k,2515) = - lu(k,1510) * lu(k,2505) + lu(k,2516) = lu(k,2516) - lu(k,1511) * lu(k,2505) + lu(k,2518) = lu(k,2518) - lu(k,1512) * lu(k,2505) + lu(k,2519) = lu(k,2519) - lu(k,1513) * lu(k,2505) + lu(k,2520) = lu(k,2520) - lu(k,1514) * lu(k,2505) + lu(k,2521) = lu(k,2521) - lu(k,1515) * lu(k,2505) + lu(k,2523) = lu(k,2523) - lu(k,1516) * lu(k,2505) + lu(k,2526) = lu(k,2526) - lu(k,1517) * lu(k,2505) + lu(k,1521) = 1._r8 / lu(k,1521) + lu(k,1522) = lu(k,1522) * lu(k,1521) + lu(k,1523) = lu(k,1523) * lu(k,1521) + lu(k,1524) = lu(k,1524) * lu(k,1521) + lu(k,1525) = lu(k,1525) * lu(k,1521) + lu(k,1526) = lu(k,1526) * lu(k,1521) + lu(k,1527) = lu(k,1527) * lu(k,1521) + lu(k,1528) = lu(k,1528) * lu(k,1521) + lu(k,1529) = lu(k,1529) * lu(k,1521) + lu(k,1530) = lu(k,1530) * lu(k,1521) + lu(k,1531) = lu(k,1531) * lu(k,1521) + lu(k,1532) = lu(k,1532) * lu(k,1521) + lu(k,1533) = lu(k,1533) * lu(k,1521) + lu(k,1534) = lu(k,1534) * lu(k,1521) + lu(k,1586) = - lu(k,1522) * lu(k,1585) + lu(k,1587) = lu(k,1587) - lu(k,1523) * lu(k,1585) + lu(k,1588) = - lu(k,1524) * lu(k,1585) + lu(k,1589) = lu(k,1589) - lu(k,1525) * lu(k,1585) + lu(k,1590) = lu(k,1590) - lu(k,1526) * lu(k,1585) + lu(k,1591) = lu(k,1591) - lu(k,1527) * lu(k,1585) + lu(k,1592) = - lu(k,1528) * lu(k,1585) + lu(k,1593) = lu(k,1593) - lu(k,1529) * lu(k,1585) + lu(k,1594) = lu(k,1594) - lu(k,1530) * lu(k,1585) + lu(k,1595) = lu(k,1595) - lu(k,1531) * lu(k,1585) + lu(k,1597) = lu(k,1597) - lu(k,1532) * lu(k,1585) + lu(k,1599) = - lu(k,1533) * lu(k,1585) + lu(k,1600) = lu(k,1600) - lu(k,1534) * lu(k,1585) + lu(k,1608) = lu(k,1608) - lu(k,1522) * lu(k,1606) + lu(k,1609) = lu(k,1609) - lu(k,1523) * lu(k,1606) + lu(k,1610) = lu(k,1610) - lu(k,1524) * lu(k,1606) + lu(k,1611) = lu(k,1611) - lu(k,1525) * lu(k,1606) + lu(k,1612) = lu(k,1612) - lu(k,1526) * lu(k,1606) + lu(k,1613) = lu(k,1613) - lu(k,1527) * lu(k,1606) + lu(k,1614) = lu(k,1614) - lu(k,1528) * lu(k,1606) + lu(k,1615) = lu(k,1615) - lu(k,1529) * lu(k,1606) + lu(k,1616) = - lu(k,1530) * lu(k,1606) + lu(k,1617) = - lu(k,1531) * lu(k,1606) + lu(k,1620) = lu(k,1620) - lu(k,1532) * lu(k,1606) + lu(k,1623) = lu(k,1623) - lu(k,1533) * lu(k,1606) + lu(k,1624) = lu(k,1624) - lu(k,1534) * lu(k,1606) + lu(k,1676) = lu(k,1676) - lu(k,1522) * lu(k,1674) + lu(k,1677) = lu(k,1677) - lu(k,1523) * lu(k,1674) + lu(k,1678) = lu(k,1678) - lu(k,1524) * lu(k,1674) + lu(k,1680) = lu(k,1680) - lu(k,1525) * lu(k,1674) + lu(k,1681) = lu(k,1681) - lu(k,1526) * lu(k,1674) + lu(k,1682) = lu(k,1682) - lu(k,1527) * lu(k,1674) + lu(k,1683) = lu(k,1683) - lu(k,1528) * lu(k,1674) + lu(k,1684) = lu(k,1684) - lu(k,1529) * lu(k,1674) + lu(k,1685) = lu(k,1685) - lu(k,1530) * lu(k,1674) + lu(k,1686) = lu(k,1686) - lu(k,1531) * lu(k,1674) + lu(k,1690) = lu(k,1690) - lu(k,1532) * lu(k,1674) + lu(k,1693) = lu(k,1693) - lu(k,1533) * lu(k,1674) + lu(k,1694) = lu(k,1694) - lu(k,1534) * lu(k,1674) + lu(k,1849) = lu(k,1849) - lu(k,1522) * lu(k,1847) + lu(k,1850) = lu(k,1850) - lu(k,1523) * lu(k,1847) + lu(k,1851) = lu(k,1851) - lu(k,1524) * lu(k,1847) + lu(k,1853) = lu(k,1853) - lu(k,1525) * lu(k,1847) + lu(k,1854) = lu(k,1854) - lu(k,1526) * lu(k,1847) + lu(k,1855) = lu(k,1855) - lu(k,1527) * lu(k,1847) + lu(k,1856) = lu(k,1856) - lu(k,1528) * lu(k,1847) + lu(k,1857) = lu(k,1857) - lu(k,1529) * lu(k,1847) + lu(k,1858) = lu(k,1858) - lu(k,1530) * lu(k,1847) + lu(k,1859) = lu(k,1859) - lu(k,1531) * lu(k,1847) + lu(k,1863) = lu(k,1863) - lu(k,1532) * lu(k,1847) + lu(k,1866) = lu(k,1866) - lu(k,1533) * lu(k,1847) + lu(k,1867) = lu(k,1867) - lu(k,1534) * lu(k,1847) + lu(k,2045) = lu(k,2045) - lu(k,1522) * lu(k,2043) + lu(k,2046) = lu(k,2046) - lu(k,1523) * lu(k,2043) + lu(k,2047) = lu(k,2047) - lu(k,1524) * lu(k,2043) + lu(k,2049) = lu(k,2049) - lu(k,1525) * lu(k,2043) + lu(k,2050) = lu(k,2050) - lu(k,1526) * lu(k,2043) + lu(k,2051) = lu(k,2051) - lu(k,1527) * lu(k,2043) + lu(k,2052) = lu(k,2052) - lu(k,1528) * lu(k,2043) + lu(k,2053) = lu(k,2053) - lu(k,1529) * lu(k,2043) + lu(k,2054) = lu(k,2054) - lu(k,1530) * lu(k,2043) + lu(k,2055) = lu(k,2055) - lu(k,1531) * lu(k,2043) + lu(k,2059) = lu(k,2059) - lu(k,1532) * lu(k,2043) + lu(k,2062) = lu(k,2062) - lu(k,1533) * lu(k,2043) + lu(k,2063) = lu(k,2063) - lu(k,1534) * lu(k,2043) + lu(k,2109) = lu(k,2109) - lu(k,1522) * lu(k,2108) + lu(k,2110) = lu(k,2110) - lu(k,1523) * lu(k,2108) + lu(k,2111) = lu(k,2111) - lu(k,1524) * lu(k,2108) + lu(k,2113) = lu(k,2113) - lu(k,1525) * lu(k,2108) + lu(k,2114) = lu(k,2114) - lu(k,1526) * lu(k,2108) + lu(k,2115) = lu(k,2115) - lu(k,1527) * lu(k,2108) + lu(k,2116) = lu(k,2116) - lu(k,1528) * lu(k,2108) + lu(k,2117) = lu(k,2117) - lu(k,1529) * lu(k,2108) + lu(k,2118) = lu(k,2118) - lu(k,1530) * lu(k,2108) + lu(k,2119) = lu(k,2119) - lu(k,1531) * lu(k,2108) + lu(k,2123) = lu(k,2123) - lu(k,1532) * lu(k,2108) + lu(k,2126) = lu(k,2126) - lu(k,1533) * lu(k,2108) + lu(k,2127) = lu(k,2127) - lu(k,1534) * lu(k,2108) + lu(k,2428) = - lu(k,1522) * lu(k,2427) + lu(k,2429) = lu(k,2429) - lu(k,1523) * lu(k,2427) + lu(k,2430) = - lu(k,1524) * lu(k,2427) + lu(k,2432) = lu(k,2432) - lu(k,1525) * lu(k,2427) + lu(k,2433) = lu(k,2433) - lu(k,1526) * lu(k,2427) + lu(k,2434) = lu(k,2434) - lu(k,1527) * lu(k,2427) + lu(k,2435) = - lu(k,1528) * lu(k,2427) + lu(k,2436) = lu(k,2436) - lu(k,1529) * lu(k,2427) + lu(k,2437) = lu(k,2437) - lu(k,1530) * lu(k,2427) + lu(k,2438) = lu(k,2438) - lu(k,1531) * lu(k,2427) + lu(k,2442) = lu(k,2442) - lu(k,1532) * lu(k,2427) + lu(k,2445) = - lu(k,1533) * lu(k,2427) + lu(k,2446) = lu(k,2446) - lu(k,1534) * lu(k,2427) + lu(k,2482) = lu(k,2482) - lu(k,1522) * lu(k,2480) + lu(k,2483) = lu(k,2483) - lu(k,1523) * lu(k,2480) + lu(k,2484) = lu(k,2484) - lu(k,1524) * lu(k,2480) + lu(k,2485) = lu(k,2485) - lu(k,1525) * lu(k,2480) + lu(k,2486) = lu(k,2486) - lu(k,1526) * lu(k,2480) + lu(k,2487) = lu(k,2487) - lu(k,1527) * lu(k,2480) + lu(k,2488) = lu(k,2488) - lu(k,1528) * lu(k,2480) + lu(k,2489) = lu(k,2489) - lu(k,1529) * lu(k,2480) + lu(k,2490) = - lu(k,1530) * lu(k,2480) + lu(k,2491) = - lu(k,1531) * lu(k,2480) + lu(k,2495) = lu(k,2495) - lu(k,1532) * lu(k,2480) + lu(k,2498) = lu(k,2498) - lu(k,1533) * lu(k,2480) + lu(k,2499) = lu(k,2499) - lu(k,1534) * lu(k,2480) + lu(k,2508) = - lu(k,1522) * lu(k,2506) + lu(k,2509) = - lu(k,1523) * lu(k,2506) + lu(k,2510) = - lu(k,1524) * lu(k,2506) + lu(k,2512) = - lu(k,1525) * lu(k,2506) + lu(k,2513) = lu(k,2513) - lu(k,1526) * lu(k,2506) + lu(k,2514) = - lu(k,1527) * lu(k,2506) + lu(k,2515) = lu(k,2515) - lu(k,1528) * lu(k,2506) + lu(k,2516) = lu(k,2516) - lu(k,1529) * lu(k,2506) + lu(k,2517) = - lu(k,1530) * lu(k,2506) + lu(k,2518) = lu(k,2518) - lu(k,1531) * lu(k,2506) + lu(k,2522) = lu(k,2522) - lu(k,1532) * lu(k,2506) + lu(k,2525) = - lu(k,1533) * lu(k,2506) + lu(k,2526) = lu(k,2526) - lu(k,1534) * lu(k,2506) end do end subroutine lu_fac29 subroutine lu_fac30( avec_len, lu ) @@ -6622,392 +6626,392 @@ subroutine lu_fac30( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1539) = 1._r8 / lu(k,1539) - lu(k,1540) = lu(k,1540) * lu(k,1539) - lu(k,1541) = lu(k,1541) * lu(k,1539) - lu(k,1542) = lu(k,1542) * lu(k,1539) - lu(k,1543) = lu(k,1543) * lu(k,1539) - lu(k,1544) = lu(k,1544) * lu(k,1539) - lu(k,1545) = lu(k,1545) * lu(k,1539) - lu(k,1546) = lu(k,1546) * lu(k,1539) - lu(k,1547) = lu(k,1547) * lu(k,1539) - lu(k,1548) = lu(k,1548) * lu(k,1539) - lu(k,1549) = lu(k,1549) * lu(k,1539) - lu(k,1550) = lu(k,1550) * lu(k,1539) - lu(k,1551) = lu(k,1551) * lu(k,1539) - lu(k,1607) = lu(k,1607) - lu(k,1540) * lu(k,1606) - lu(k,1609) = lu(k,1609) - lu(k,1541) * lu(k,1606) - lu(k,1610) = lu(k,1610) - lu(k,1542) * lu(k,1606) - lu(k,1611) = lu(k,1611) - lu(k,1543) * lu(k,1606) - lu(k,1613) = - lu(k,1544) * lu(k,1606) - lu(k,1614) = lu(k,1614) - lu(k,1545) * lu(k,1606) - lu(k,1615) = lu(k,1615) - lu(k,1546) * lu(k,1606) - lu(k,1617) = lu(k,1617) - lu(k,1547) * lu(k,1606) - lu(k,1618) = lu(k,1618) - lu(k,1548) * lu(k,1606) - lu(k,1619) = lu(k,1619) - lu(k,1549) * lu(k,1606) - lu(k,1621) = lu(k,1621) - lu(k,1550) * lu(k,1606) - lu(k,1623) = lu(k,1623) - lu(k,1551) * lu(k,1606) - lu(k,1633) = lu(k,1633) - lu(k,1540) * lu(k,1632) - lu(k,1635) = lu(k,1635) - lu(k,1541) * lu(k,1632) - lu(k,1636) = lu(k,1636) - lu(k,1542) * lu(k,1632) - lu(k,1637) = lu(k,1637) - lu(k,1543) * lu(k,1632) - lu(k,1639) = - lu(k,1544) * lu(k,1632) - lu(k,1640) = lu(k,1640) - lu(k,1545) * lu(k,1632) - lu(k,1641) = lu(k,1641) - lu(k,1546) * lu(k,1632) - lu(k,1643) = lu(k,1643) - lu(k,1547) * lu(k,1632) - lu(k,1644) = lu(k,1644) - lu(k,1548) * lu(k,1632) - lu(k,1645) = lu(k,1645) - lu(k,1549) * lu(k,1632) - lu(k,1648) = lu(k,1648) - lu(k,1550) * lu(k,1632) - lu(k,1650) = lu(k,1650) - lu(k,1551) * lu(k,1632) - lu(k,1677) = lu(k,1677) - lu(k,1540) * lu(k,1676) - lu(k,1679) = lu(k,1679) - lu(k,1541) * lu(k,1676) - lu(k,1680) = lu(k,1680) - lu(k,1542) * lu(k,1676) - lu(k,1681) = lu(k,1681) - lu(k,1543) * lu(k,1676) - lu(k,1683) = lu(k,1683) - lu(k,1544) * lu(k,1676) - lu(k,1684) = lu(k,1684) - lu(k,1545) * lu(k,1676) - lu(k,1685) = lu(k,1685) - lu(k,1546) * lu(k,1676) - lu(k,1688) = lu(k,1688) - lu(k,1547) * lu(k,1676) - lu(k,1689) = lu(k,1689) - lu(k,1548) * lu(k,1676) - lu(k,1690) = lu(k,1690) - lu(k,1549) * lu(k,1676) - lu(k,1693) = lu(k,1693) - lu(k,1550) * lu(k,1676) - lu(k,1695) = lu(k,1695) - lu(k,1551) * lu(k,1676) - lu(k,1826) = lu(k,1826) - lu(k,1540) * lu(k,1825) - lu(k,1828) = lu(k,1828) - lu(k,1541) * lu(k,1825) - lu(k,1829) = lu(k,1829) - lu(k,1542) * lu(k,1825) - lu(k,1830) = - lu(k,1543) * lu(k,1825) - lu(k,1832) = lu(k,1832) - lu(k,1544) * lu(k,1825) - lu(k,1833) = lu(k,1833) - lu(k,1545) * lu(k,1825) - lu(k,1834) = lu(k,1834) - lu(k,1546) * lu(k,1825) - lu(k,1837) = lu(k,1837) - lu(k,1547) * lu(k,1825) - lu(k,1838) = lu(k,1838) - lu(k,1548) * lu(k,1825) - lu(k,1839) = lu(k,1839) - lu(k,1549) * lu(k,1825) - lu(k,1842) = lu(k,1842) - lu(k,1550) * lu(k,1825) - lu(k,1844) = lu(k,1844) - lu(k,1551) * lu(k,1825) - lu(k,1999) = lu(k,1999) - lu(k,1540) * lu(k,1998) - lu(k,2001) = lu(k,2001) - lu(k,1541) * lu(k,1998) - lu(k,2002) = lu(k,2002) - lu(k,1542) * lu(k,1998) - lu(k,2003) = lu(k,2003) - lu(k,1543) * lu(k,1998) - lu(k,2005) = lu(k,2005) - lu(k,1544) * lu(k,1998) - lu(k,2006) = lu(k,2006) - lu(k,1545) * lu(k,1998) - lu(k,2007) = lu(k,2007) - lu(k,1546) * lu(k,1998) - lu(k,2010) = lu(k,2010) - lu(k,1547) * lu(k,1998) - lu(k,2011) = lu(k,2011) - lu(k,1548) * lu(k,1998) - lu(k,2012) = lu(k,2012) - lu(k,1549) * lu(k,1998) - lu(k,2015) = lu(k,2015) - lu(k,1550) * lu(k,1998) - lu(k,2017) = lu(k,2017) - lu(k,1551) * lu(k,1998) - lu(k,2084) = - lu(k,1540) * lu(k,2083) - lu(k,2086) = - lu(k,1541) * lu(k,2083) - lu(k,2087) = - lu(k,1542) * lu(k,2083) - lu(k,2088) = lu(k,2088) - lu(k,1543) * lu(k,2083) - lu(k,2090) = lu(k,2090) - lu(k,1544) * lu(k,2083) - lu(k,2091) = lu(k,2091) - lu(k,1545) * lu(k,2083) - lu(k,2092) = lu(k,2092) - lu(k,1546) * lu(k,2083) - lu(k,2095) = lu(k,2095) - lu(k,1547) * lu(k,2083) - lu(k,2096) = lu(k,2096) - lu(k,1548) * lu(k,2083) - lu(k,2097) = lu(k,2097) - lu(k,1549) * lu(k,2083) - lu(k,2100) = lu(k,2100) - lu(k,1550) * lu(k,2083) - lu(k,2102) = lu(k,2102) - lu(k,1551) * lu(k,2083) - lu(k,2204) = lu(k,2204) - lu(k,1540) * lu(k,2203) - lu(k,2206) = lu(k,2206) - lu(k,1541) * lu(k,2203) - lu(k,2207) = lu(k,2207) - lu(k,1542) * lu(k,2203) - lu(k,2208) = lu(k,2208) - lu(k,1543) * lu(k,2203) - lu(k,2210) = lu(k,2210) - lu(k,1544) * lu(k,2203) - lu(k,2211) = lu(k,2211) - lu(k,1545) * lu(k,2203) - lu(k,2212) = lu(k,2212) - lu(k,1546) * lu(k,2203) - lu(k,2215) = lu(k,2215) - lu(k,1547) * lu(k,2203) - lu(k,2216) = lu(k,2216) - lu(k,1548) * lu(k,2203) - lu(k,2217) = lu(k,2217) - lu(k,1549) * lu(k,2203) - lu(k,2220) = lu(k,2220) - lu(k,1550) * lu(k,2203) - lu(k,2222) = lu(k,2222) - lu(k,1551) * lu(k,2203) - lu(k,2250) = lu(k,2250) - lu(k,1540) * lu(k,2249) - lu(k,2252) = - lu(k,1541) * lu(k,2249) - lu(k,2253) = lu(k,2253) - lu(k,1542) * lu(k,2249) - lu(k,2254) = lu(k,2254) - lu(k,1543) * lu(k,2249) - lu(k,2256) = lu(k,2256) - lu(k,1544) * lu(k,2249) - lu(k,2257) = lu(k,2257) - lu(k,1545) * lu(k,2249) - lu(k,2258) = lu(k,2258) - lu(k,1546) * lu(k,2249) - lu(k,2261) = lu(k,2261) - lu(k,1547) * lu(k,2249) - lu(k,2262) = lu(k,2262) - lu(k,1548) * lu(k,2249) - lu(k,2263) = lu(k,2263) - lu(k,1549) * lu(k,2249) - lu(k,2266) = lu(k,2266) - lu(k,1550) * lu(k,2249) - lu(k,2268) = lu(k,2268) - lu(k,1551) * lu(k,2249) - lu(k,2271) = - lu(k,1540) * lu(k,2270) - lu(k,2273) = - lu(k,1541) * lu(k,2270) - lu(k,2274) = - lu(k,1542) * lu(k,2270) - lu(k,2275) = - lu(k,1543) * lu(k,2270) - lu(k,2277) = lu(k,2277) - lu(k,1544) * lu(k,2270) - lu(k,2278) = lu(k,2278) - lu(k,1545) * lu(k,2270) - lu(k,2279) = lu(k,2279) - lu(k,1546) * lu(k,2270) - lu(k,2282) = lu(k,2282) - lu(k,1547) * lu(k,2270) - lu(k,2283) = lu(k,2283) - lu(k,1548) * lu(k,2270) - lu(k,2284) = lu(k,2284) - lu(k,1549) * lu(k,2270) - lu(k,2287) = lu(k,2287) - lu(k,1550) * lu(k,2270) - lu(k,2289) = lu(k,2289) - lu(k,1551) * lu(k,2270) - lu(k,2294) = - lu(k,1540) * lu(k,2293) - lu(k,2296) = - lu(k,1541) * lu(k,2293) - lu(k,2297) = - lu(k,1542) * lu(k,2293) - lu(k,2298) = lu(k,2298) - lu(k,1543) * lu(k,2293) - lu(k,2300) = lu(k,2300) - lu(k,1544) * lu(k,2293) - lu(k,2301) = lu(k,2301) - lu(k,1545) * lu(k,2293) - lu(k,2302) = lu(k,2302) - lu(k,1546) * lu(k,2293) - lu(k,2305) = lu(k,2305) - lu(k,1547) * lu(k,2293) - lu(k,2306) = lu(k,2306) - lu(k,1548) * lu(k,2293) - lu(k,2307) = lu(k,2307) - lu(k,1549) * lu(k,2293) - lu(k,2310) = lu(k,2310) - lu(k,1550) * lu(k,2293) - lu(k,2312) = lu(k,2312) - lu(k,1551) * lu(k,2293) - lu(k,2453) = lu(k,2453) - lu(k,1540) * lu(k,2452) - lu(k,2455) = lu(k,2455) - lu(k,1541) * lu(k,2452) - lu(k,2456) = lu(k,2456) - lu(k,1542) * lu(k,2452) - lu(k,2457) = lu(k,2457) - lu(k,1543) * lu(k,2452) - lu(k,2459) = lu(k,2459) - lu(k,1544) * lu(k,2452) - lu(k,2460) = lu(k,2460) - lu(k,1545) * lu(k,2452) - lu(k,2461) = lu(k,2461) - lu(k,1546) * lu(k,2452) - lu(k,2464) = lu(k,2464) - lu(k,1547) * lu(k,2452) - lu(k,2465) = lu(k,2465) - lu(k,1548) * lu(k,2452) - lu(k,2466) = lu(k,2466) - lu(k,1549) * lu(k,2452) - lu(k,2469) = lu(k,2469) - lu(k,1550) * lu(k,2452) - lu(k,2471) = lu(k,2471) - lu(k,1551) * lu(k,2452) - lu(k,2479) = lu(k,2479) - lu(k,1540) * lu(k,2478) - lu(k,2481) = lu(k,2481) - lu(k,1541) * lu(k,2478) - lu(k,2482) = - lu(k,1542) * lu(k,2478) - lu(k,2483) = lu(k,2483) - lu(k,1543) * lu(k,2478) - lu(k,2485) = lu(k,2485) - lu(k,1544) * lu(k,2478) - lu(k,2486) = lu(k,2486) - lu(k,1545) * lu(k,2478) - lu(k,2487) = lu(k,2487) - lu(k,1546) * lu(k,2478) - lu(k,2490) = lu(k,2490) - lu(k,1547) * lu(k,2478) - lu(k,2491) = lu(k,2491) - lu(k,1548) * lu(k,2478) - lu(k,2492) = lu(k,2492) - lu(k,1549) * lu(k,2478) - lu(k,2495) = lu(k,2495) - lu(k,1550) * lu(k,2478) - lu(k,2497) = lu(k,2497) - lu(k,1551) * lu(k,2478) - lu(k,2506) = lu(k,2506) - lu(k,1540) * lu(k,2505) - lu(k,2508) = lu(k,2508) - lu(k,1541) * lu(k,2505) - lu(k,2509) = lu(k,2509) - lu(k,1542) * lu(k,2505) - lu(k,2510) = lu(k,2510) - lu(k,1543) * lu(k,2505) - lu(k,2512) = lu(k,2512) - lu(k,1544) * lu(k,2505) - lu(k,2513) = lu(k,2513) - lu(k,1545) * lu(k,2505) - lu(k,2514) = lu(k,2514) - lu(k,1546) * lu(k,2505) - lu(k,2517) = lu(k,2517) - lu(k,1547) * lu(k,2505) - lu(k,2518) = lu(k,2518) - lu(k,1548) * lu(k,2505) - lu(k,2519) = lu(k,2519) - lu(k,1549) * lu(k,2505) - lu(k,2522) = lu(k,2522) - lu(k,1550) * lu(k,2505) - lu(k,2524) = lu(k,2524) - lu(k,1551) * lu(k,2505) - lu(k,1555) = 1._r8 / lu(k,1555) - lu(k,1556) = lu(k,1556) * lu(k,1555) - lu(k,1557) = lu(k,1557) * lu(k,1555) - lu(k,1558) = lu(k,1558) * lu(k,1555) - lu(k,1559) = lu(k,1559) * lu(k,1555) - lu(k,1560) = lu(k,1560) * lu(k,1555) - lu(k,1561) = lu(k,1561) * lu(k,1555) - lu(k,1562) = lu(k,1562) * lu(k,1555) - lu(k,1563) = lu(k,1563) * lu(k,1555) - lu(k,1564) = lu(k,1564) * lu(k,1555) - lu(k,1565) = lu(k,1565) * lu(k,1555) - lu(k,1566) = lu(k,1566) * lu(k,1555) - lu(k,1567) = lu(k,1567) * lu(k,1555) - lu(k,1586) = lu(k,1586) - lu(k,1556) * lu(k,1585) - lu(k,1587) = lu(k,1587) - lu(k,1557) * lu(k,1585) - lu(k,1589) = lu(k,1589) - lu(k,1558) * lu(k,1585) - lu(k,1590) = lu(k,1590) - lu(k,1559) * lu(k,1585) - lu(k,1591) = lu(k,1591) - lu(k,1560) * lu(k,1585) - lu(k,1592) = lu(k,1592) - lu(k,1561) * lu(k,1585) - lu(k,1593) = lu(k,1593) - lu(k,1562) * lu(k,1585) - lu(k,1595) = lu(k,1595) - lu(k,1563) * lu(k,1585) - lu(k,1596) = lu(k,1596) - lu(k,1564) * lu(k,1585) - lu(k,1597) = lu(k,1597) - lu(k,1565) * lu(k,1585) - lu(k,1598) = lu(k,1598) - lu(k,1566) * lu(k,1585) - lu(k,1599) = lu(k,1599) - lu(k,1567) * lu(k,1585) - lu(k,1608) = lu(k,1608) - lu(k,1556) * lu(k,1607) - lu(k,1609) = lu(k,1609) - lu(k,1557) * lu(k,1607) - lu(k,1611) = lu(k,1611) - lu(k,1558) * lu(k,1607) - lu(k,1612) = lu(k,1612) - lu(k,1559) * lu(k,1607) - lu(k,1613) = lu(k,1613) - lu(k,1560) * lu(k,1607) - lu(k,1614) = lu(k,1614) - lu(k,1561) * lu(k,1607) - lu(k,1616) = lu(k,1616) - lu(k,1562) * lu(k,1607) - lu(k,1618) = lu(k,1618) - lu(k,1563) * lu(k,1607) - lu(k,1620) = lu(k,1620) - lu(k,1564) * lu(k,1607) - lu(k,1621) = lu(k,1621) - lu(k,1565) * lu(k,1607) - lu(k,1622) = - lu(k,1566) * lu(k,1607) - lu(k,1623) = lu(k,1623) - lu(k,1567) * lu(k,1607) - lu(k,1634) = lu(k,1634) - lu(k,1556) * lu(k,1633) - lu(k,1635) = lu(k,1635) - lu(k,1557) * lu(k,1633) - lu(k,1637) = lu(k,1637) - lu(k,1558) * lu(k,1633) - lu(k,1638) = lu(k,1638) - lu(k,1559) * lu(k,1633) - lu(k,1639) = lu(k,1639) - lu(k,1560) * lu(k,1633) - lu(k,1640) = lu(k,1640) - lu(k,1561) * lu(k,1633) - lu(k,1642) = lu(k,1642) - lu(k,1562) * lu(k,1633) - lu(k,1644) = lu(k,1644) - lu(k,1563) * lu(k,1633) - lu(k,1647) = lu(k,1647) - lu(k,1564) * lu(k,1633) - lu(k,1648) = lu(k,1648) - lu(k,1565) * lu(k,1633) - lu(k,1649) = lu(k,1649) - lu(k,1566) * lu(k,1633) - lu(k,1650) = lu(k,1650) - lu(k,1567) * lu(k,1633) - lu(k,1678) = lu(k,1678) - lu(k,1556) * lu(k,1677) - lu(k,1679) = lu(k,1679) - lu(k,1557) * lu(k,1677) - lu(k,1681) = lu(k,1681) - lu(k,1558) * lu(k,1677) - lu(k,1682) = lu(k,1682) - lu(k,1559) * lu(k,1677) - lu(k,1683) = lu(k,1683) - lu(k,1560) * lu(k,1677) - lu(k,1684) = lu(k,1684) - lu(k,1561) * lu(k,1677) - lu(k,1687) = lu(k,1687) - lu(k,1562) * lu(k,1677) - lu(k,1689) = lu(k,1689) - lu(k,1563) * lu(k,1677) - lu(k,1692) = lu(k,1692) - lu(k,1564) * lu(k,1677) - lu(k,1693) = lu(k,1693) - lu(k,1565) * lu(k,1677) - lu(k,1694) = lu(k,1694) - lu(k,1566) * lu(k,1677) - lu(k,1695) = lu(k,1695) - lu(k,1567) * lu(k,1677) - lu(k,1784) = lu(k,1784) - lu(k,1556) * lu(k,1783) - lu(k,1785) = lu(k,1785) - lu(k,1557) * lu(k,1783) - lu(k,1787) = lu(k,1787) - lu(k,1558) * lu(k,1783) - lu(k,1788) = lu(k,1788) - lu(k,1559) * lu(k,1783) - lu(k,1789) = lu(k,1789) - lu(k,1560) * lu(k,1783) - lu(k,1790) = lu(k,1790) - lu(k,1561) * lu(k,1783) - lu(k,1793) = lu(k,1793) - lu(k,1562) * lu(k,1783) - lu(k,1795) = lu(k,1795) - lu(k,1563) * lu(k,1783) - lu(k,1798) = lu(k,1798) - lu(k,1564) * lu(k,1783) - lu(k,1799) = lu(k,1799) - lu(k,1565) * lu(k,1783) - lu(k,1800) = lu(k,1800) - lu(k,1566) * lu(k,1783) - lu(k,1801) = lu(k,1801) - lu(k,1567) * lu(k,1783) - lu(k,1827) = lu(k,1827) - lu(k,1556) * lu(k,1826) - lu(k,1828) = lu(k,1828) - lu(k,1557) * lu(k,1826) - lu(k,1830) = lu(k,1830) - lu(k,1558) * lu(k,1826) - lu(k,1831) = lu(k,1831) - lu(k,1559) * lu(k,1826) - lu(k,1832) = lu(k,1832) - lu(k,1560) * lu(k,1826) - lu(k,1833) = lu(k,1833) - lu(k,1561) * lu(k,1826) - lu(k,1836) = lu(k,1836) - lu(k,1562) * lu(k,1826) - lu(k,1838) = lu(k,1838) - lu(k,1563) * lu(k,1826) - lu(k,1841) = lu(k,1841) - lu(k,1564) * lu(k,1826) - lu(k,1842) = lu(k,1842) - lu(k,1565) * lu(k,1826) - lu(k,1843) = lu(k,1843) - lu(k,1566) * lu(k,1826) - lu(k,1844) = lu(k,1844) - lu(k,1567) * lu(k,1826) - lu(k,2000) = lu(k,2000) - lu(k,1556) * lu(k,1999) - lu(k,2001) = lu(k,2001) - lu(k,1557) * lu(k,1999) - lu(k,2003) = lu(k,2003) - lu(k,1558) * lu(k,1999) - lu(k,2004) = lu(k,2004) - lu(k,1559) * lu(k,1999) - lu(k,2005) = lu(k,2005) - lu(k,1560) * lu(k,1999) - lu(k,2006) = lu(k,2006) - lu(k,1561) * lu(k,1999) - lu(k,2009) = lu(k,2009) - lu(k,1562) * lu(k,1999) - lu(k,2011) = lu(k,2011) - lu(k,1563) * lu(k,1999) - lu(k,2014) = lu(k,2014) - lu(k,1564) * lu(k,1999) - lu(k,2015) = lu(k,2015) - lu(k,1565) * lu(k,1999) - lu(k,2016) = lu(k,2016) - lu(k,1566) * lu(k,1999) - lu(k,2017) = lu(k,2017) - lu(k,1567) * lu(k,1999) - lu(k,2060) = lu(k,2060) - lu(k,1556) * lu(k,2059) - lu(k,2061) = lu(k,2061) - lu(k,1557) * lu(k,2059) - lu(k,2063) = lu(k,2063) - lu(k,1558) * lu(k,2059) - lu(k,2064) = lu(k,2064) - lu(k,1559) * lu(k,2059) - lu(k,2065) = lu(k,2065) - lu(k,1560) * lu(k,2059) - lu(k,2066) = lu(k,2066) - lu(k,1561) * lu(k,2059) - lu(k,2069) = lu(k,2069) - lu(k,1562) * lu(k,2059) - lu(k,2071) = lu(k,2071) - lu(k,1563) * lu(k,2059) - lu(k,2074) = lu(k,2074) - lu(k,1564) * lu(k,2059) - lu(k,2075) = lu(k,2075) - lu(k,1565) * lu(k,2059) - lu(k,2076) = lu(k,2076) - lu(k,1566) * lu(k,2059) - lu(k,2077) = lu(k,2077) - lu(k,1567) * lu(k,2059) - lu(k,2085) = lu(k,2085) - lu(k,1556) * lu(k,2084) - lu(k,2086) = lu(k,2086) - lu(k,1557) * lu(k,2084) - lu(k,2088) = lu(k,2088) - lu(k,1558) * lu(k,2084) - lu(k,2089) = lu(k,2089) - lu(k,1559) * lu(k,2084) - lu(k,2090) = lu(k,2090) - lu(k,1560) * lu(k,2084) - lu(k,2091) = lu(k,2091) - lu(k,1561) * lu(k,2084) - lu(k,2094) = lu(k,2094) - lu(k,1562) * lu(k,2084) - lu(k,2096) = lu(k,2096) - lu(k,1563) * lu(k,2084) - lu(k,2099) = - lu(k,1564) * lu(k,2084) - lu(k,2100) = lu(k,2100) - lu(k,1565) * lu(k,2084) - lu(k,2101) = lu(k,2101) - lu(k,1566) * lu(k,2084) - lu(k,2102) = lu(k,2102) - lu(k,1567) * lu(k,2084) - lu(k,2205) = lu(k,2205) - lu(k,1556) * lu(k,2204) - lu(k,2206) = lu(k,2206) - lu(k,1557) * lu(k,2204) - lu(k,2208) = lu(k,2208) - lu(k,1558) * lu(k,2204) - lu(k,2209) = lu(k,2209) - lu(k,1559) * lu(k,2204) - lu(k,2210) = lu(k,2210) - lu(k,1560) * lu(k,2204) - lu(k,2211) = lu(k,2211) - lu(k,1561) * lu(k,2204) - lu(k,2214) = lu(k,2214) - lu(k,1562) * lu(k,2204) - lu(k,2216) = lu(k,2216) - lu(k,1563) * lu(k,2204) - lu(k,2219) = lu(k,2219) - lu(k,1564) * lu(k,2204) - lu(k,2220) = lu(k,2220) - lu(k,1565) * lu(k,2204) - lu(k,2221) = lu(k,2221) - lu(k,1566) * lu(k,2204) - lu(k,2222) = lu(k,2222) - lu(k,1567) * lu(k,2204) - lu(k,2251) = lu(k,2251) - lu(k,1556) * lu(k,2250) - lu(k,2252) = lu(k,2252) - lu(k,1557) * lu(k,2250) - lu(k,2254) = lu(k,2254) - lu(k,1558) * lu(k,2250) - lu(k,2255) = lu(k,2255) - lu(k,1559) * lu(k,2250) - lu(k,2256) = lu(k,2256) - lu(k,1560) * lu(k,2250) - lu(k,2257) = lu(k,2257) - lu(k,1561) * lu(k,2250) - lu(k,2260) = lu(k,2260) - lu(k,1562) * lu(k,2250) - lu(k,2262) = lu(k,2262) - lu(k,1563) * lu(k,2250) - lu(k,2265) = lu(k,2265) - lu(k,1564) * lu(k,2250) - lu(k,2266) = lu(k,2266) - lu(k,1565) * lu(k,2250) - lu(k,2267) = lu(k,2267) - lu(k,1566) * lu(k,2250) - lu(k,2268) = lu(k,2268) - lu(k,1567) * lu(k,2250) - lu(k,2272) = lu(k,2272) - lu(k,1556) * lu(k,2271) - lu(k,2273) = lu(k,2273) - lu(k,1557) * lu(k,2271) - lu(k,2275) = lu(k,2275) - lu(k,1558) * lu(k,2271) - lu(k,2276) = - lu(k,1559) * lu(k,2271) - lu(k,2277) = lu(k,2277) - lu(k,1560) * lu(k,2271) - lu(k,2278) = lu(k,2278) - lu(k,1561) * lu(k,2271) - lu(k,2281) = lu(k,2281) - lu(k,1562) * lu(k,2271) - lu(k,2283) = lu(k,2283) - lu(k,1563) * lu(k,2271) - lu(k,2286) = lu(k,2286) - lu(k,1564) * lu(k,2271) - lu(k,2287) = lu(k,2287) - lu(k,1565) * lu(k,2271) - lu(k,2288) = - lu(k,1566) * lu(k,2271) - lu(k,2289) = lu(k,2289) - lu(k,1567) * lu(k,2271) - lu(k,2295) = - lu(k,1556) * lu(k,2294) - lu(k,2296) = lu(k,2296) - lu(k,1557) * lu(k,2294) - lu(k,2298) = lu(k,2298) - lu(k,1558) * lu(k,2294) - lu(k,2299) = - lu(k,1559) * lu(k,2294) - lu(k,2300) = lu(k,2300) - lu(k,1560) * lu(k,2294) - lu(k,2301) = lu(k,2301) - lu(k,1561) * lu(k,2294) - lu(k,2304) = - lu(k,1562) * lu(k,2294) - lu(k,2306) = lu(k,2306) - lu(k,1563) * lu(k,2294) - lu(k,2309) = - lu(k,1564) * lu(k,2294) - lu(k,2310) = lu(k,2310) - lu(k,1565) * lu(k,2294) - lu(k,2311) = - lu(k,1566) * lu(k,2294) - lu(k,2312) = lu(k,2312) - lu(k,1567) * lu(k,2294) - lu(k,2411) = lu(k,2411) - lu(k,1556) * lu(k,2410) - lu(k,2412) = lu(k,2412) - lu(k,1557) * lu(k,2410) - lu(k,2414) = lu(k,2414) - lu(k,1558) * lu(k,2410) - lu(k,2415) = lu(k,2415) - lu(k,1559) * lu(k,2410) - lu(k,2416) = lu(k,2416) - lu(k,1560) * lu(k,2410) - lu(k,2417) = lu(k,2417) - lu(k,1561) * lu(k,2410) - lu(k,2420) = lu(k,2420) - lu(k,1562) * lu(k,2410) - lu(k,2422) = lu(k,2422) - lu(k,1563) * lu(k,2410) - lu(k,2425) = lu(k,2425) - lu(k,1564) * lu(k,2410) - lu(k,2426) = lu(k,2426) - lu(k,1565) * lu(k,2410) - lu(k,2427) = lu(k,2427) - lu(k,1566) * lu(k,2410) - lu(k,2428) = lu(k,2428) - lu(k,1567) * lu(k,2410) - lu(k,2454) = lu(k,2454) - lu(k,1556) * lu(k,2453) - lu(k,2455) = lu(k,2455) - lu(k,1557) * lu(k,2453) - lu(k,2457) = lu(k,2457) - lu(k,1558) * lu(k,2453) - lu(k,2458) = lu(k,2458) - lu(k,1559) * lu(k,2453) - lu(k,2459) = lu(k,2459) - lu(k,1560) * lu(k,2453) - lu(k,2460) = lu(k,2460) - lu(k,1561) * lu(k,2453) - lu(k,2463) = lu(k,2463) - lu(k,1562) * lu(k,2453) - lu(k,2465) = lu(k,2465) - lu(k,1563) * lu(k,2453) - lu(k,2468) = lu(k,2468) - lu(k,1564) * lu(k,2453) - lu(k,2469) = lu(k,2469) - lu(k,1565) * lu(k,2453) - lu(k,2470) = lu(k,2470) - lu(k,1566) * lu(k,2453) - lu(k,2471) = lu(k,2471) - lu(k,1567) * lu(k,2453) - lu(k,2480) = lu(k,2480) - lu(k,1556) * lu(k,2479) - lu(k,2481) = lu(k,2481) - lu(k,1557) * lu(k,2479) - lu(k,2483) = lu(k,2483) - lu(k,1558) * lu(k,2479) - lu(k,2484) = lu(k,2484) - lu(k,1559) * lu(k,2479) - lu(k,2485) = lu(k,2485) - lu(k,1560) * lu(k,2479) - lu(k,2486) = lu(k,2486) - lu(k,1561) * lu(k,2479) - lu(k,2489) = lu(k,2489) - lu(k,1562) * lu(k,2479) - lu(k,2491) = lu(k,2491) - lu(k,1563) * lu(k,2479) - lu(k,2494) = - lu(k,1564) * lu(k,2479) - lu(k,2495) = lu(k,2495) - lu(k,1565) * lu(k,2479) - lu(k,2496) = lu(k,2496) - lu(k,1566) * lu(k,2479) - lu(k,2497) = lu(k,2497) - lu(k,1567) * lu(k,2479) - lu(k,2507) = lu(k,2507) - lu(k,1556) * lu(k,2506) - lu(k,2508) = lu(k,2508) - lu(k,1557) * lu(k,2506) - lu(k,2510) = lu(k,2510) - lu(k,1558) * lu(k,2506) - lu(k,2511) = lu(k,2511) - lu(k,1559) * lu(k,2506) - lu(k,2512) = lu(k,2512) - lu(k,1560) * lu(k,2506) - lu(k,2513) = lu(k,2513) - lu(k,1561) * lu(k,2506) - lu(k,2516) = lu(k,2516) - lu(k,1562) * lu(k,2506) - lu(k,2518) = lu(k,2518) - lu(k,1563) * lu(k,2506) - lu(k,2521) = lu(k,2521) - lu(k,1564) * lu(k,2506) - lu(k,2522) = lu(k,2522) - lu(k,1565) * lu(k,2506) - lu(k,2523) = - lu(k,1566) * lu(k,2506) - lu(k,2524) = lu(k,2524) - lu(k,1567) * lu(k,2506) + lu(k,1540) = 1._r8 / lu(k,1540) + lu(k,1541) = lu(k,1541) * lu(k,1540) + lu(k,1542) = lu(k,1542) * lu(k,1540) + lu(k,1543) = lu(k,1543) * lu(k,1540) + lu(k,1544) = lu(k,1544) * lu(k,1540) + lu(k,1545) = lu(k,1545) * lu(k,1540) + lu(k,1546) = lu(k,1546) * lu(k,1540) + lu(k,1547) = lu(k,1547) * lu(k,1540) + lu(k,1548) = lu(k,1548) * lu(k,1540) + lu(k,1549) = lu(k,1549) * lu(k,1540) + lu(k,1550) = lu(k,1550) * lu(k,1540) + lu(k,1551) = lu(k,1551) * lu(k,1540) + lu(k,1552) = lu(k,1552) * lu(k,1540) + lu(k,1608) = lu(k,1608) - lu(k,1541) * lu(k,1607) + lu(k,1610) = lu(k,1610) - lu(k,1542) * lu(k,1607) + lu(k,1611) = lu(k,1611) - lu(k,1543) * lu(k,1607) + lu(k,1612) = lu(k,1612) - lu(k,1544) * lu(k,1607) + lu(k,1614) = lu(k,1614) - lu(k,1545) * lu(k,1607) + lu(k,1615) = lu(k,1615) - lu(k,1546) * lu(k,1607) + lu(k,1617) = lu(k,1617) - lu(k,1547) * lu(k,1607) + lu(k,1618) = - lu(k,1548) * lu(k,1607) + lu(k,1619) = lu(k,1619) - lu(k,1549) * lu(k,1607) + lu(k,1621) = lu(k,1621) - lu(k,1550) * lu(k,1607) + lu(k,1623) = lu(k,1623) - lu(k,1551) * lu(k,1607) + lu(k,1624) = lu(k,1624) - lu(k,1552) * lu(k,1607) + lu(k,1631) = - lu(k,1541) * lu(k,1630) + lu(k,1633) = - lu(k,1542) * lu(k,1630) + lu(k,1635) = lu(k,1635) - lu(k,1543) * lu(k,1630) + lu(k,1636) = lu(k,1636) - lu(k,1544) * lu(k,1630) + lu(k,1638) = lu(k,1638) - lu(k,1545) * lu(k,1630) + lu(k,1639) = lu(k,1639) - lu(k,1546) * lu(k,1630) + lu(k,1641) = lu(k,1641) - lu(k,1547) * lu(k,1630) + lu(k,1643) = lu(k,1643) - lu(k,1548) * lu(k,1630) + lu(k,1644) = lu(k,1644) - lu(k,1549) * lu(k,1630) + lu(k,1646) = lu(k,1646) - lu(k,1550) * lu(k,1630) + lu(k,1648) = - lu(k,1551) * lu(k,1630) + lu(k,1649) = lu(k,1649) - lu(k,1552) * lu(k,1630) + lu(k,1676) = lu(k,1676) - lu(k,1541) * lu(k,1675) + lu(k,1678) = lu(k,1678) - lu(k,1542) * lu(k,1675) + lu(k,1680) = lu(k,1680) - lu(k,1543) * lu(k,1675) + lu(k,1681) = lu(k,1681) - lu(k,1544) * lu(k,1675) + lu(k,1683) = lu(k,1683) - lu(k,1545) * lu(k,1675) + lu(k,1684) = lu(k,1684) - lu(k,1546) * lu(k,1675) + lu(k,1686) = lu(k,1686) - lu(k,1547) * lu(k,1675) + lu(k,1688) = lu(k,1688) - lu(k,1548) * lu(k,1675) + lu(k,1689) = lu(k,1689) - lu(k,1549) * lu(k,1675) + lu(k,1691) = lu(k,1691) - lu(k,1550) * lu(k,1675) + lu(k,1693) = lu(k,1693) - lu(k,1551) * lu(k,1675) + lu(k,1694) = lu(k,1694) - lu(k,1552) * lu(k,1675) + lu(k,1849) = lu(k,1849) - lu(k,1541) * lu(k,1848) + lu(k,1851) = lu(k,1851) - lu(k,1542) * lu(k,1848) + lu(k,1853) = lu(k,1853) - lu(k,1543) * lu(k,1848) + lu(k,1854) = lu(k,1854) - lu(k,1544) * lu(k,1848) + lu(k,1856) = lu(k,1856) - lu(k,1545) * lu(k,1848) + lu(k,1857) = lu(k,1857) - lu(k,1546) * lu(k,1848) + lu(k,1859) = lu(k,1859) - lu(k,1547) * lu(k,1848) + lu(k,1861) = lu(k,1861) - lu(k,1548) * lu(k,1848) + lu(k,1862) = lu(k,1862) - lu(k,1549) * lu(k,1848) + lu(k,1864) = lu(k,1864) - lu(k,1550) * lu(k,1848) + lu(k,1866) = lu(k,1866) - lu(k,1551) * lu(k,1848) + lu(k,1867) = lu(k,1867) - lu(k,1552) * lu(k,1848) + lu(k,2002) = lu(k,2002) - lu(k,1541) * lu(k,2001) + lu(k,2004) = - lu(k,1542) * lu(k,2001) + lu(k,2006) = lu(k,2006) - lu(k,1543) * lu(k,2001) + lu(k,2007) = lu(k,2007) - lu(k,1544) * lu(k,2001) + lu(k,2009) = lu(k,2009) - lu(k,1545) * lu(k,2001) + lu(k,2010) = lu(k,2010) - lu(k,1546) * lu(k,2001) + lu(k,2012) = lu(k,2012) - lu(k,1547) * lu(k,2001) + lu(k,2014) = lu(k,2014) - lu(k,1548) * lu(k,2001) + lu(k,2015) = lu(k,2015) - lu(k,1549) * lu(k,2001) + lu(k,2017) = lu(k,2017) - lu(k,1550) * lu(k,2001) + lu(k,2019) = lu(k,2019) - lu(k,1551) * lu(k,2001) + lu(k,2020) = lu(k,2020) - lu(k,1552) * lu(k,2001) + lu(k,2045) = lu(k,2045) - lu(k,1541) * lu(k,2044) + lu(k,2047) = lu(k,2047) - lu(k,1542) * lu(k,2044) + lu(k,2049) = lu(k,2049) - lu(k,1543) * lu(k,2044) + lu(k,2050) = lu(k,2050) - lu(k,1544) * lu(k,2044) + lu(k,2052) = lu(k,2052) - lu(k,1545) * lu(k,2044) + lu(k,2053) = lu(k,2053) - lu(k,1546) * lu(k,2044) + lu(k,2055) = lu(k,2055) - lu(k,1547) * lu(k,2044) + lu(k,2057) = lu(k,2057) - lu(k,1548) * lu(k,2044) + lu(k,2058) = lu(k,2058) - lu(k,1549) * lu(k,2044) + lu(k,2060) = lu(k,2060) - lu(k,1550) * lu(k,2044) + lu(k,2062) = lu(k,2062) - lu(k,1551) * lu(k,2044) + lu(k,2063) = lu(k,2063) - lu(k,1552) * lu(k,2044) + lu(k,2130) = - lu(k,1541) * lu(k,2129) + lu(k,2132) = - lu(k,1542) * lu(k,2129) + lu(k,2134) = - lu(k,1543) * lu(k,2129) + lu(k,2135) = lu(k,2135) - lu(k,1544) * lu(k,2129) + lu(k,2137) = lu(k,2137) - lu(k,1545) * lu(k,2129) + lu(k,2138) = lu(k,2138) - lu(k,1546) * lu(k,2129) + lu(k,2140) = lu(k,2140) - lu(k,1547) * lu(k,2129) + lu(k,2142) = lu(k,2142) - lu(k,1548) * lu(k,2129) + lu(k,2143) = lu(k,2143) - lu(k,1549) * lu(k,2129) + lu(k,2145) = lu(k,2145) - lu(k,1550) * lu(k,2129) + lu(k,2147) = - lu(k,1551) * lu(k,2129) + lu(k,2148) = lu(k,2148) - lu(k,1552) * lu(k,2129) + lu(k,2225) = lu(k,2225) - lu(k,1541) * lu(k,2224) + lu(k,2227) = lu(k,2227) - lu(k,1542) * lu(k,2224) + lu(k,2229) = - lu(k,1543) * lu(k,2224) + lu(k,2230) = lu(k,2230) - lu(k,1544) * lu(k,2224) + lu(k,2232) = lu(k,2232) - lu(k,1545) * lu(k,2224) + lu(k,2233) = lu(k,2233) - lu(k,1546) * lu(k,2224) + lu(k,2235) = lu(k,2235) - lu(k,1547) * lu(k,2224) + lu(k,2237) = lu(k,2237) - lu(k,1548) * lu(k,2224) + lu(k,2238) = lu(k,2238) - lu(k,1549) * lu(k,2224) + lu(k,2240) = lu(k,2240) - lu(k,1550) * lu(k,2224) + lu(k,2242) = lu(k,2242) - lu(k,1551) * lu(k,2224) + lu(k,2243) = lu(k,2243) - lu(k,1552) * lu(k,2224) + lu(k,2248) = - lu(k,1541) * lu(k,2247) + lu(k,2250) = - lu(k,1542) * lu(k,2247) + lu(k,2252) = lu(k,2252) - lu(k,1543) * lu(k,2247) + lu(k,2253) = lu(k,2253) - lu(k,1544) * lu(k,2247) + lu(k,2255) = lu(k,2255) - lu(k,1545) * lu(k,2247) + lu(k,2256) = lu(k,2256) - lu(k,1546) * lu(k,2247) + lu(k,2258) = lu(k,2258) - lu(k,1547) * lu(k,2247) + lu(k,2260) = lu(k,2260) - lu(k,1548) * lu(k,2247) + lu(k,2261) = lu(k,2261) - lu(k,1549) * lu(k,2247) + lu(k,2263) = lu(k,2263) - lu(k,1550) * lu(k,2247) + lu(k,2265) = - lu(k,1551) * lu(k,2247) + lu(k,2266) = lu(k,2266) - lu(k,1552) * lu(k,2247) + lu(k,2368) = lu(k,2368) - lu(k,1541) * lu(k,2367) + lu(k,2370) = lu(k,2370) - lu(k,1542) * lu(k,2367) + lu(k,2372) = lu(k,2372) - lu(k,1543) * lu(k,2367) + lu(k,2373) = lu(k,2373) - lu(k,1544) * lu(k,2367) + lu(k,2375) = lu(k,2375) - lu(k,1545) * lu(k,2367) + lu(k,2376) = lu(k,2376) - lu(k,1546) * lu(k,2367) + lu(k,2378) = lu(k,2378) - lu(k,1547) * lu(k,2367) + lu(k,2380) = lu(k,2380) - lu(k,1548) * lu(k,2367) + lu(k,2381) = lu(k,2381) - lu(k,1549) * lu(k,2367) + lu(k,2383) = lu(k,2383) - lu(k,1550) * lu(k,2367) + lu(k,2385) = lu(k,2385) - lu(k,1551) * lu(k,2367) + lu(k,2386) = lu(k,2386) - lu(k,1552) * lu(k,2367) + lu(k,2454) = lu(k,2454) - lu(k,1541) * lu(k,2453) + lu(k,2456) = lu(k,2456) - lu(k,1542) * lu(k,2453) + lu(k,2458) = lu(k,2458) - lu(k,1543) * lu(k,2453) + lu(k,2459) = lu(k,2459) - lu(k,1544) * lu(k,2453) + lu(k,2461) = lu(k,2461) - lu(k,1545) * lu(k,2453) + lu(k,2462) = lu(k,2462) - lu(k,1546) * lu(k,2453) + lu(k,2464) = lu(k,2464) - lu(k,1547) * lu(k,2453) + lu(k,2466) = lu(k,2466) - lu(k,1548) * lu(k,2453) + lu(k,2467) = lu(k,2467) - lu(k,1549) * lu(k,2453) + lu(k,2469) = lu(k,2469) - lu(k,1550) * lu(k,2453) + lu(k,2471) = - lu(k,1551) * lu(k,2453) + lu(k,2472) = lu(k,2472) - lu(k,1552) * lu(k,2453) + lu(k,2482) = lu(k,2482) - lu(k,1541) * lu(k,2481) + lu(k,2484) = lu(k,2484) - lu(k,1542) * lu(k,2481) + lu(k,2485) = lu(k,2485) - lu(k,1543) * lu(k,2481) + lu(k,2486) = lu(k,2486) - lu(k,1544) * lu(k,2481) + lu(k,2488) = lu(k,2488) - lu(k,1545) * lu(k,2481) + lu(k,2489) = lu(k,2489) - lu(k,1546) * lu(k,2481) + lu(k,2491) = lu(k,2491) - lu(k,1547) * lu(k,2481) + lu(k,2493) = - lu(k,1548) * lu(k,2481) + lu(k,2494) = lu(k,2494) - lu(k,1549) * lu(k,2481) + lu(k,2496) = lu(k,2496) - lu(k,1550) * lu(k,2481) + lu(k,2498) = lu(k,2498) - lu(k,1551) * lu(k,2481) + lu(k,2499) = lu(k,2499) - lu(k,1552) * lu(k,2481) + lu(k,2508) = lu(k,2508) - lu(k,1541) * lu(k,2507) + lu(k,2510) = lu(k,2510) - lu(k,1542) * lu(k,2507) + lu(k,2512) = lu(k,2512) - lu(k,1543) * lu(k,2507) + lu(k,2513) = lu(k,2513) - lu(k,1544) * lu(k,2507) + lu(k,2515) = lu(k,2515) - lu(k,1545) * lu(k,2507) + lu(k,2516) = lu(k,2516) - lu(k,1546) * lu(k,2507) + lu(k,2518) = lu(k,2518) - lu(k,1547) * lu(k,2507) + lu(k,2520) = lu(k,2520) - lu(k,1548) * lu(k,2507) + lu(k,2521) = lu(k,2521) - lu(k,1549) * lu(k,2507) + lu(k,2523) = lu(k,2523) - lu(k,1550) * lu(k,2507) + lu(k,2525) = lu(k,2525) - lu(k,1551) * lu(k,2507) + lu(k,2526) = lu(k,2526) - lu(k,1552) * lu(k,2507) + lu(k,1556) = 1._r8 / lu(k,1556) + lu(k,1557) = lu(k,1557) * lu(k,1556) + lu(k,1558) = lu(k,1558) * lu(k,1556) + lu(k,1559) = lu(k,1559) * lu(k,1556) + lu(k,1560) = lu(k,1560) * lu(k,1556) + lu(k,1561) = lu(k,1561) * lu(k,1556) + lu(k,1562) = lu(k,1562) * lu(k,1556) + lu(k,1563) = lu(k,1563) * lu(k,1556) + lu(k,1564) = lu(k,1564) * lu(k,1556) + lu(k,1565) = lu(k,1565) * lu(k,1556) + lu(k,1566) = lu(k,1566) * lu(k,1556) + lu(k,1567) = lu(k,1567) * lu(k,1556) + lu(k,1568) = lu(k,1568) * lu(k,1556) + lu(k,1587) = lu(k,1587) - lu(k,1557) * lu(k,1586) + lu(k,1588) = lu(k,1588) - lu(k,1558) * lu(k,1586) + lu(k,1589) = lu(k,1589) - lu(k,1559) * lu(k,1586) + lu(k,1590) = lu(k,1590) - lu(k,1560) * lu(k,1586) + lu(k,1591) = lu(k,1591) - lu(k,1561) * lu(k,1586) + lu(k,1593) = lu(k,1593) - lu(k,1562) * lu(k,1586) + lu(k,1594) = lu(k,1594) - lu(k,1563) * lu(k,1586) + lu(k,1595) = lu(k,1595) - lu(k,1564) * lu(k,1586) + lu(k,1596) = lu(k,1596) - lu(k,1565) * lu(k,1586) + lu(k,1597) = lu(k,1597) - lu(k,1566) * lu(k,1586) + lu(k,1598) = lu(k,1598) - lu(k,1567) * lu(k,1586) + lu(k,1600) = lu(k,1600) - lu(k,1568) * lu(k,1586) + lu(k,1609) = lu(k,1609) - lu(k,1557) * lu(k,1608) + lu(k,1610) = lu(k,1610) - lu(k,1558) * lu(k,1608) + lu(k,1611) = lu(k,1611) - lu(k,1559) * lu(k,1608) + lu(k,1612) = lu(k,1612) - lu(k,1560) * lu(k,1608) + lu(k,1613) = lu(k,1613) - lu(k,1561) * lu(k,1608) + lu(k,1615) = lu(k,1615) - lu(k,1562) * lu(k,1608) + lu(k,1616) = lu(k,1616) - lu(k,1563) * lu(k,1608) + lu(k,1617) = lu(k,1617) - lu(k,1564) * lu(k,1608) + lu(k,1618) = lu(k,1618) - lu(k,1565) * lu(k,1608) + lu(k,1620) = lu(k,1620) - lu(k,1566) * lu(k,1608) + lu(k,1622) = - lu(k,1567) * lu(k,1608) + lu(k,1624) = lu(k,1624) - lu(k,1568) * lu(k,1608) + lu(k,1632) = lu(k,1632) - lu(k,1557) * lu(k,1631) + lu(k,1633) = lu(k,1633) - lu(k,1558) * lu(k,1631) + lu(k,1635) = lu(k,1635) - lu(k,1559) * lu(k,1631) + lu(k,1636) = lu(k,1636) - lu(k,1560) * lu(k,1631) + lu(k,1637) = lu(k,1637) - lu(k,1561) * lu(k,1631) + lu(k,1639) = lu(k,1639) - lu(k,1562) * lu(k,1631) + lu(k,1640) = - lu(k,1563) * lu(k,1631) + lu(k,1641) = lu(k,1641) - lu(k,1564) * lu(k,1631) + lu(k,1643) = lu(k,1643) - lu(k,1565) * lu(k,1631) + lu(k,1645) = lu(k,1645) - lu(k,1566) * lu(k,1631) + lu(k,1647) = lu(k,1647) - lu(k,1567) * lu(k,1631) + lu(k,1649) = lu(k,1649) - lu(k,1568) * lu(k,1631) + lu(k,1677) = lu(k,1677) - lu(k,1557) * lu(k,1676) + lu(k,1678) = lu(k,1678) - lu(k,1558) * lu(k,1676) + lu(k,1680) = lu(k,1680) - lu(k,1559) * lu(k,1676) + lu(k,1681) = lu(k,1681) - lu(k,1560) * lu(k,1676) + lu(k,1682) = lu(k,1682) - lu(k,1561) * lu(k,1676) + lu(k,1684) = lu(k,1684) - lu(k,1562) * lu(k,1676) + lu(k,1685) = lu(k,1685) - lu(k,1563) * lu(k,1676) + lu(k,1686) = lu(k,1686) - lu(k,1564) * lu(k,1676) + lu(k,1688) = lu(k,1688) - lu(k,1565) * lu(k,1676) + lu(k,1690) = lu(k,1690) - lu(k,1566) * lu(k,1676) + lu(k,1692) = lu(k,1692) - lu(k,1567) * lu(k,1676) + lu(k,1694) = lu(k,1694) - lu(k,1568) * lu(k,1676) + lu(k,1850) = lu(k,1850) - lu(k,1557) * lu(k,1849) + lu(k,1851) = lu(k,1851) - lu(k,1558) * lu(k,1849) + lu(k,1853) = lu(k,1853) - lu(k,1559) * lu(k,1849) + lu(k,1854) = lu(k,1854) - lu(k,1560) * lu(k,1849) + lu(k,1855) = lu(k,1855) - lu(k,1561) * lu(k,1849) + lu(k,1857) = lu(k,1857) - lu(k,1562) * lu(k,1849) + lu(k,1858) = lu(k,1858) - lu(k,1563) * lu(k,1849) + lu(k,1859) = lu(k,1859) - lu(k,1564) * lu(k,1849) + lu(k,1861) = lu(k,1861) - lu(k,1565) * lu(k,1849) + lu(k,1863) = lu(k,1863) - lu(k,1566) * lu(k,1849) + lu(k,1865) = lu(k,1865) - lu(k,1567) * lu(k,1849) + lu(k,1867) = lu(k,1867) - lu(k,1568) * lu(k,1849) + lu(k,1957) = lu(k,1957) - lu(k,1557) * lu(k,1956) + lu(k,1958) = lu(k,1958) - lu(k,1558) * lu(k,1956) + lu(k,1960) = lu(k,1960) - lu(k,1559) * lu(k,1956) + lu(k,1961) = lu(k,1961) - lu(k,1560) * lu(k,1956) + lu(k,1962) = lu(k,1962) - lu(k,1561) * lu(k,1956) + lu(k,1964) = lu(k,1964) - lu(k,1562) * lu(k,1956) + lu(k,1965) = lu(k,1965) - lu(k,1563) * lu(k,1956) + lu(k,1966) = lu(k,1966) - lu(k,1564) * lu(k,1956) + lu(k,1968) = lu(k,1968) - lu(k,1565) * lu(k,1956) + lu(k,1970) = lu(k,1970) - lu(k,1566) * lu(k,1956) + lu(k,1972) = lu(k,1972) - lu(k,1567) * lu(k,1956) + lu(k,1974) = lu(k,1974) - lu(k,1568) * lu(k,1956) + lu(k,2003) = lu(k,2003) - lu(k,1557) * lu(k,2002) + lu(k,2004) = lu(k,2004) - lu(k,1558) * lu(k,2002) + lu(k,2006) = lu(k,2006) - lu(k,1559) * lu(k,2002) + lu(k,2007) = lu(k,2007) - lu(k,1560) * lu(k,2002) + lu(k,2008) = lu(k,2008) - lu(k,1561) * lu(k,2002) + lu(k,2010) = lu(k,2010) - lu(k,1562) * lu(k,2002) + lu(k,2011) = lu(k,2011) - lu(k,1563) * lu(k,2002) + lu(k,2012) = lu(k,2012) - lu(k,1564) * lu(k,2002) + lu(k,2014) = lu(k,2014) - lu(k,1565) * lu(k,2002) + lu(k,2016) = lu(k,2016) - lu(k,1566) * lu(k,2002) + lu(k,2018) = lu(k,2018) - lu(k,1567) * lu(k,2002) + lu(k,2020) = lu(k,2020) - lu(k,1568) * lu(k,2002) + lu(k,2046) = lu(k,2046) - lu(k,1557) * lu(k,2045) + lu(k,2047) = lu(k,2047) - lu(k,1558) * lu(k,2045) + lu(k,2049) = lu(k,2049) - lu(k,1559) * lu(k,2045) + lu(k,2050) = lu(k,2050) - lu(k,1560) * lu(k,2045) + lu(k,2051) = lu(k,2051) - lu(k,1561) * lu(k,2045) + lu(k,2053) = lu(k,2053) - lu(k,1562) * lu(k,2045) + lu(k,2054) = lu(k,2054) - lu(k,1563) * lu(k,2045) + lu(k,2055) = lu(k,2055) - lu(k,1564) * lu(k,2045) + lu(k,2057) = lu(k,2057) - lu(k,1565) * lu(k,2045) + lu(k,2059) = lu(k,2059) - lu(k,1566) * lu(k,2045) + lu(k,2061) = lu(k,2061) - lu(k,1567) * lu(k,2045) + lu(k,2063) = lu(k,2063) - lu(k,1568) * lu(k,2045) + lu(k,2110) = lu(k,2110) - lu(k,1557) * lu(k,2109) + lu(k,2111) = lu(k,2111) - lu(k,1558) * lu(k,2109) + lu(k,2113) = lu(k,2113) - lu(k,1559) * lu(k,2109) + lu(k,2114) = lu(k,2114) - lu(k,1560) * lu(k,2109) + lu(k,2115) = lu(k,2115) - lu(k,1561) * lu(k,2109) + lu(k,2117) = lu(k,2117) - lu(k,1562) * lu(k,2109) + lu(k,2118) = lu(k,2118) - lu(k,1563) * lu(k,2109) + lu(k,2119) = lu(k,2119) - lu(k,1564) * lu(k,2109) + lu(k,2121) = lu(k,2121) - lu(k,1565) * lu(k,2109) + lu(k,2123) = lu(k,2123) - lu(k,1566) * lu(k,2109) + lu(k,2125) = lu(k,2125) - lu(k,1567) * lu(k,2109) + lu(k,2127) = lu(k,2127) - lu(k,1568) * lu(k,2109) + lu(k,2131) = lu(k,2131) - lu(k,1557) * lu(k,2130) + lu(k,2132) = lu(k,2132) - lu(k,1558) * lu(k,2130) + lu(k,2134) = lu(k,2134) - lu(k,1559) * lu(k,2130) + lu(k,2135) = lu(k,2135) - lu(k,1560) * lu(k,2130) + lu(k,2136) = - lu(k,1561) * lu(k,2130) + lu(k,2138) = lu(k,2138) - lu(k,1562) * lu(k,2130) + lu(k,2139) = lu(k,2139) - lu(k,1563) * lu(k,2130) + lu(k,2140) = lu(k,2140) - lu(k,1564) * lu(k,2130) + lu(k,2142) = lu(k,2142) - lu(k,1565) * lu(k,2130) + lu(k,2144) = lu(k,2144) - lu(k,1566) * lu(k,2130) + lu(k,2146) = - lu(k,1567) * lu(k,2130) + lu(k,2148) = lu(k,2148) - lu(k,1568) * lu(k,2130) + lu(k,2226) = lu(k,2226) - lu(k,1557) * lu(k,2225) + lu(k,2227) = lu(k,2227) - lu(k,1558) * lu(k,2225) + lu(k,2229) = lu(k,2229) - lu(k,1559) * lu(k,2225) + lu(k,2230) = lu(k,2230) - lu(k,1560) * lu(k,2225) + lu(k,2231) = lu(k,2231) - lu(k,1561) * lu(k,2225) + lu(k,2233) = lu(k,2233) - lu(k,1562) * lu(k,2225) + lu(k,2234) = lu(k,2234) - lu(k,1563) * lu(k,2225) + lu(k,2235) = lu(k,2235) - lu(k,1564) * lu(k,2225) + lu(k,2237) = lu(k,2237) - lu(k,1565) * lu(k,2225) + lu(k,2239) = lu(k,2239) - lu(k,1566) * lu(k,2225) + lu(k,2241) = lu(k,2241) - lu(k,1567) * lu(k,2225) + lu(k,2243) = lu(k,2243) - lu(k,1568) * lu(k,2225) + lu(k,2249) = - lu(k,1557) * lu(k,2248) + lu(k,2250) = lu(k,2250) - lu(k,1558) * lu(k,2248) + lu(k,2252) = lu(k,2252) - lu(k,1559) * lu(k,2248) + lu(k,2253) = lu(k,2253) - lu(k,1560) * lu(k,2248) + lu(k,2254) = - lu(k,1561) * lu(k,2248) + lu(k,2256) = lu(k,2256) - lu(k,1562) * lu(k,2248) + lu(k,2257) = - lu(k,1563) * lu(k,2248) + lu(k,2258) = lu(k,2258) - lu(k,1564) * lu(k,2248) + lu(k,2260) = lu(k,2260) - lu(k,1565) * lu(k,2248) + lu(k,2262) = - lu(k,1566) * lu(k,2248) + lu(k,2264) = - lu(k,1567) * lu(k,2248) + lu(k,2266) = lu(k,2266) - lu(k,1568) * lu(k,2248) + lu(k,2369) = lu(k,2369) - lu(k,1557) * lu(k,2368) + lu(k,2370) = lu(k,2370) - lu(k,1558) * lu(k,2368) + lu(k,2372) = lu(k,2372) - lu(k,1559) * lu(k,2368) + lu(k,2373) = lu(k,2373) - lu(k,1560) * lu(k,2368) + lu(k,2374) = lu(k,2374) - lu(k,1561) * lu(k,2368) + lu(k,2376) = lu(k,2376) - lu(k,1562) * lu(k,2368) + lu(k,2377) = lu(k,2377) - lu(k,1563) * lu(k,2368) + lu(k,2378) = lu(k,2378) - lu(k,1564) * lu(k,2368) + lu(k,2380) = lu(k,2380) - lu(k,1565) * lu(k,2368) + lu(k,2382) = lu(k,2382) - lu(k,1566) * lu(k,2368) + lu(k,2384) = lu(k,2384) - lu(k,1567) * lu(k,2368) + lu(k,2386) = lu(k,2386) - lu(k,1568) * lu(k,2368) + lu(k,2429) = lu(k,2429) - lu(k,1557) * lu(k,2428) + lu(k,2430) = lu(k,2430) - lu(k,1558) * lu(k,2428) + lu(k,2432) = lu(k,2432) - lu(k,1559) * lu(k,2428) + lu(k,2433) = lu(k,2433) - lu(k,1560) * lu(k,2428) + lu(k,2434) = lu(k,2434) - lu(k,1561) * lu(k,2428) + lu(k,2436) = lu(k,2436) - lu(k,1562) * lu(k,2428) + lu(k,2437) = lu(k,2437) - lu(k,1563) * lu(k,2428) + lu(k,2438) = lu(k,2438) - lu(k,1564) * lu(k,2428) + lu(k,2440) = lu(k,2440) - lu(k,1565) * lu(k,2428) + lu(k,2442) = lu(k,2442) - lu(k,1566) * lu(k,2428) + lu(k,2444) = lu(k,2444) - lu(k,1567) * lu(k,2428) + lu(k,2446) = lu(k,2446) - lu(k,1568) * lu(k,2428) + lu(k,2455) = lu(k,2455) - lu(k,1557) * lu(k,2454) + lu(k,2456) = lu(k,2456) - lu(k,1558) * lu(k,2454) + lu(k,2458) = lu(k,2458) - lu(k,1559) * lu(k,2454) + lu(k,2459) = lu(k,2459) - lu(k,1560) * lu(k,2454) + lu(k,2460) = lu(k,2460) - lu(k,1561) * lu(k,2454) + lu(k,2462) = lu(k,2462) - lu(k,1562) * lu(k,2454) + lu(k,2463) = - lu(k,1563) * lu(k,2454) + lu(k,2464) = lu(k,2464) - lu(k,1564) * lu(k,2454) + lu(k,2466) = lu(k,2466) - lu(k,1565) * lu(k,2454) + lu(k,2468) = lu(k,2468) - lu(k,1566) * lu(k,2454) + lu(k,2470) = lu(k,2470) - lu(k,1567) * lu(k,2454) + lu(k,2472) = lu(k,2472) - lu(k,1568) * lu(k,2454) + lu(k,2483) = lu(k,2483) - lu(k,1557) * lu(k,2482) + lu(k,2484) = lu(k,2484) - lu(k,1558) * lu(k,2482) + lu(k,2485) = lu(k,2485) - lu(k,1559) * lu(k,2482) + lu(k,2486) = lu(k,2486) - lu(k,1560) * lu(k,2482) + lu(k,2487) = lu(k,2487) - lu(k,1561) * lu(k,2482) + lu(k,2489) = lu(k,2489) - lu(k,1562) * lu(k,2482) + lu(k,2490) = lu(k,2490) - lu(k,1563) * lu(k,2482) + lu(k,2491) = lu(k,2491) - lu(k,1564) * lu(k,2482) + lu(k,2493) = lu(k,2493) - lu(k,1565) * lu(k,2482) + lu(k,2495) = lu(k,2495) - lu(k,1566) * lu(k,2482) + lu(k,2497) = lu(k,2497) - lu(k,1567) * lu(k,2482) + lu(k,2499) = lu(k,2499) - lu(k,1568) * lu(k,2482) + lu(k,2509) = lu(k,2509) - lu(k,1557) * lu(k,2508) + lu(k,2510) = lu(k,2510) - lu(k,1558) * lu(k,2508) + lu(k,2512) = lu(k,2512) - lu(k,1559) * lu(k,2508) + lu(k,2513) = lu(k,2513) - lu(k,1560) * lu(k,2508) + lu(k,2514) = lu(k,2514) - lu(k,1561) * lu(k,2508) + lu(k,2516) = lu(k,2516) - lu(k,1562) * lu(k,2508) + lu(k,2517) = lu(k,2517) - lu(k,1563) * lu(k,2508) + lu(k,2518) = lu(k,2518) - lu(k,1564) * lu(k,2508) + lu(k,2520) = lu(k,2520) - lu(k,1565) * lu(k,2508) + lu(k,2522) = lu(k,2522) - lu(k,1566) * lu(k,2508) + lu(k,2524) = - lu(k,1567) * lu(k,2508) + lu(k,2526) = lu(k,2526) - lu(k,1568) * lu(k,2508) end do end subroutine lu_fac30 subroutine lu_fac31( avec_len, lu ) @@ -7024,916 +7028,917 @@ subroutine lu_fac31( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1586) = 1._r8 / lu(k,1586) - lu(k,1587) = lu(k,1587) * lu(k,1586) - lu(k,1588) = lu(k,1588) * lu(k,1586) - lu(k,1589) = lu(k,1589) * lu(k,1586) - lu(k,1590) = lu(k,1590) * lu(k,1586) - lu(k,1591) = lu(k,1591) * lu(k,1586) - lu(k,1592) = lu(k,1592) * lu(k,1586) - lu(k,1593) = lu(k,1593) * lu(k,1586) - lu(k,1594) = lu(k,1594) * lu(k,1586) - lu(k,1595) = lu(k,1595) * lu(k,1586) - lu(k,1596) = lu(k,1596) * lu(k,1586) - lu(k,1597) = lu(k,1597) * lu(k,1586) - lu(k,1598) = lu(k,1598) * lu(k,1586) - lu(k,1599) = lu(k,1599) * lu(k,1586) - lu(k,1609) = lu(k,1609) - lu(k,1587) * lu(k,1608) - lu(k,1610) = lu(k,1610) - lu(k,1588) * lu(k,1608) - lu(k,1611) = lu(k,1611) - lu(k,1589) * lu(k,1608) - lu(k,1612) = lu(k,1612) - lu(k,1590) * lu(k,1608) - lu(k,1613) = lu(k,1613) - lu(k,1591) * lu(k,1608) - lu(k,1614) = lu(k,1614) - lu(k,1592) * lu(k,1608) - lu(k,1616) = lu(k,1616) - lu(k,1593) * lu(k,1608) - lu(k,1617) = lu(k,1617) - lu(k,1594) * lu(k,1608) - lu(k,1618) = lu(k,1618) - lu(k,1595) * lu(k,1608) - lu(k,1620) = lu(k,1620) - lu(k,1596) * lu(k,1608) - lu(k,1621) = lu(k,1621) - lu(k,1597) * lu(k,1608) - lu(k,1622) = lu(k,1622) - lu(k,1598) * lu(k,1608) - lu(k,1623) = lu(k,1623) - lu(k,1599) * lu(k,1608) - lu(k,1635) = lu(k,1635) - lu(k,1587) * lu(k,1634) - lu(k,1636) = lu(k,1636) - lu(k,1588) * lu(k,1634) - lu(k,1637) = lu(k,1637) - lu(k,1589) * lu(k,1634) - lu(k,1638) = lu(k,1638) - lu(k,1590) * lu(k,1634) - lu(k,1639) = lu(k,1639) - lu(k,1591) * lu(k,1634) - lu(k,1640) = lu(k,1640) - lu(k,1592) * lu(k,1634) - lu(k,1642) = lu(k,1642) - lu(k,1593) * lu(k,1634) - lu(k,1643) = lu(k,1643) - lu(k,1594) * lu(k,1634) - lu(k,1644) = lu(k,1644) - lu(k,1595) * lu(k,1634) - lu(k,1647) = lu(k,1647) - lu(k,1596) * lu(k,1634) - lu(k,1648) = lu(k,1648) - lu(k,1597) * lu(k,1634) - lu(k,1649) = lu(k,1649) - lu(k,1598) * lu(k,1634) - lu(k,1650) = lu(k,1650) - lu(k,1599) * lu(k,1634) - lu(k,1679) = lu(k,1679) - lu(k,1587) * lu(k,1678) - lu(k,1680) = lu(k,1680) - lu(k,1588) * lu(k,1678) - lu(k,1681) = lu(k,1681) - lu(k,1589) * lu(k,1678) - lu(k,1682) = lu(k,1682) - lu(k,1590) * lu(k,1678) - lu(k,1683) = lu(k,1683) - lu(k,1591) * lu(k,1678) - lu(k,1684) = lu(k,1684) - lu(k,1592) * lu(k,1678) - lu(k,1687) = lu(k,1687) - lu(k,1593) * lu(k,1678) - lu(k,1688) = lu(k,1688) - lu(k,1594) * lu(k,1678) - lu(k,1689) = lu(k,1689) - lu(k,1595) * lu(k,1678) - lu(k,1692) = lu(k,1692) - lu(k,1596) * lu(k,1678) - lu(k,1693) = lu(k,1693) - lu(k,1597) * lu(k,1678) - lu(k,1694) = lu(k,1694) - lu(k,1598) * lu(k,1678) - lu(k,1695) = lu(k,1695) - lu(k,1599) * lu(k,1678) - lu(k,1785) = lu(k,1785) - lu(k,1587) * lu(k,1784) - lu(k,1786) = lu(k,1786) - lu(k,1588) * lu(k,1784) - lu(k,1787) = lu(k,1787) - lu(k,1589) * lu(k,1784) - lu(k,1788) = lu(k,1788) - lu(k,1590) * lu(k,1784) - lu(k,1789) = lu(k,1789) - lu(k,1591) * lu(k,1784) - lu(k,1790) = lu(k,1790) - lu(k,1592) * lu(k,1784) - lu(k,1793) = lu(k,1793) - lu(k,1593) * lu(k,1784) - lu(k,1794) = lu(k,1794) - lu(k,1594) * lu(k,1784) - lu(k,1795) = lu(k,1795) - lu(k,1595) * lu(k,1784) - lu(k,1798) = lu(k,1798) - lu(k,1596) * lu(k,1784) - lu(k,1799) = lu(k,1799) - lu(k,1597) * lu(k,1784) - lu(k,1800) = lu(k,1800) - lu(k,1598) * lu(k,1784) - lu(k,1801) = lu(k,1801) - lu(k,1599) * lu(k,1784) - lu(k,1828) = lu(k,1828) - lu(k,1587) * lu(k,1827) - lu(k,1829) = lu(k,1829) - lu(k,1588) * lu(k,1827) - lu(k,1830) = lu(k,1830) - lu(k,1589) * lu(k,1827) - lu(k,1831) = lu(k,1831) - lu(k,1590) * lu(k,1827) - lu(k,1832) = lu(k,1832) - lu(k,1591) * lu(k,1827) - lu(k,1833) = lu(k,1833) - lu(k,1592) * lu(k,1827) - lu(k,1836) = lu(k,1836) - lu(k,1593) * lu(k,1827) - lu(k,1837) = lu(k,1837) - lu(k,1594) * lu(k,1827) - lu(k,1838) = lu(k,1838) - lu(k,1595) * lu(k,1827) - lu(k,1841) = lu(k,1841) - lu(k,1596) * lu(k,1827) - lu(k,1842) = lu(k,1842) - lu(k,1597) * lu(k,1827) - lu(k,1843) = lu(k,1843) - lu(k,1598) * lu(k,1827) - lu(k,1844) = lu(k,1844) - lu(k,1599) * lu(k,1827) - lu(k,2001) = lu(k,2001) - lu(k,1587) * lu(k,2000) - lu(k,2002) = lu(k,2002) - lu(k,1588) * lu(k,2000) - lu(k,2003) = lu(k,2003) - lu(k,1589) * lu(k,2000) - lu(k,2004) = lu(k,2004) - lu(k,1590) * lu(k,2000) - lu(k,2005) = lu(k,2005) - lu(k,1591) * lu(k,2000) - lu(k,2006) = lu(k,2006) - lu(k,1592) * lu(k,2000) - lu(k,2009) = lu(k,2009) - lu(k,1593) * lu(k,2000) - lu(k,2010) = lu(k,2010) - lu(k,1594) * lu(k,2000) - lu(k,2011) = lu(k,2011) - lu(k,1595) * lu(k,2000) - lu(k,2014) = lu(k,2014) - lu(k,1596) * lu(k,2000) - lu(k,2015) = lu(k,2015) - lu(k,1597) * lu(k,2000) - lu(k,2016) = lu(k,2016) - lu(k,1598) * lu(k,2000) - lu(k,2017) = lu(k,2017) - lu(k,1599) * lu(k,2000) - lu(k,2061) = lu(k,2061) - lu(k,1587) * lu(k,2060) - lu(k,2062) = lu(k,2062) - lu(k,1588) * lu(k,2060) - lu(k,2063) = lu(k,2063) - lu(k,1589) * lu(k,2060) - lu(k,2064) = lu(k,2064) - lu(k,1590) * lu(k,2060) - lu(k,2065) = lu(k,2065) - lu(k,1591) * lu(k,2060) - lu(k,2066) = lu(k,2066) - lu(k,1592) * lu(k,2060) - lu(k,2069) = lu(k,2069) - lu(k,1593) * lu(k,2060) - lu(k,2070) = lu(k,2070) - lu(k,1594) * lu(k,2060) - lu(k,2071) = lu(k,2071) - lu(k,1595) * lu(k,2060) - lu(k,2074) = lu(k,2074) - lu(k,1596) * lu(k,2060) - lu(k,2075) = lu(k,2075) - lu(k,1597) * lu(k,2060) - lu(k,2076) = lu(k,2076) - lu(k,1598) * lu(k,2060) - lu(k,2077) = lu(k,2077) - lu(k,1599) * lu(k,2060) - lu(k,2086) = lu(k,2086) - lu(k,1587) * lu(k,2085) - lu(k,2087) = lu(k,2087) - lu(k,1588) * lu(k,2085) - lu(k,2088) = lu(k,2088) - lu(k,1589) * lu(k,2085) - lu(k,2089) = lu(k,2089) - lu(k,1590) * lu(k,2085) - lu(k,2090) = lu(k,2090) - lu(k,1591) * lu(k,2085) - lu(k,2091) = lu(k,2091) - lu(k,1592) * lu(k,2085) - lu(k,2094) = lu(k,2094) - lu(k,1593) * lu(k,2085) - lu(k,2095) = lu(k,2095) - lu(k,1594) * lu(k,2085) - lu(k,2096) = lu(k,2096) - lu(k,1595) * lu(k,2085) - lu(k,2099) = lu(k,2099) - lu(k,1596) * lu(k,2085) - lu(k,2100) = lu(k,2100) - lu(k,1597) * lu(k,2085) - lu(k,2101) = lu(k,2101) - lu(k,1598) * lu(k,2085) - lu(k,2102) = lu(k,2102) - lu(k,1599) * lu(k,2085) - lu(k,2206) = lu(k,2206) - lu(k,1587) * lu(k,2205) - lu(k,2207) = lu(k,2207) - lu(k,1588) * lu(k,2205) - lu(k,2208) = lu(k,2208) - lu(k,1589) * lu(k,2205) - lu(k,2209) = lu(k,2209) - lu(k,1590) * lu(k,2205) - lu(k,2210) = lu(k,2210) - lu(k,1591) * lu(k,2205) - lu(k,2211) = lu(k,2211) - lu(k,1592) * lu(k,2205) - lu(k,2214) = lu(k,2214) - lu(k,1593) * lu(k,2205) - lu(k,2215) = lu(k,2215) - lu(k,1594) * lu(k,2205) - lu(k,2216) = lu(k,2216) - lu(k,1595) * lu(k,2205) - lu(k,2219) = lu(k,2219) - lu(k,1596) * lu(k,2205) - lu(k,2220) = lu(k,2220) - lu(k,1597) * lu(k,2205) - lu(k,2221) = lu(k,2221) - lu(k,1598) * lu(k,2205) - lu(k,2222) = lu(k,2222) - lu(k,1599) * lu(k,2205) - lu(k,2252) = lu(k,2252) - lu(k,1587) * lu(k,2251) - lu(k,2253) = lu(k,2253) - lu(k,1588) * lu(k,2251) - lu(k,2254) = lu(k,2254) - lu(k,1589) * lu(k,2251) - lu(k,2255) = lu(k,2255) - lu(k,1590) * lu(k,2251) - lu(k,2256) = lu(k,2256) - lu(k,1591) * lu(k,2251) - lu(k,2257) = lu(k,2257) - lu(k,1592) * lu(k,2251) - lu(k,2260) = lu(k,2260) - lu(k,1593) * lu(k,2251) - lu(k,2261) = lu(k,2261) - lu(k,1594) * lu(k,2251) - lu(k,2262) = lu(k,2262) - lu(k,1595) * lu(k,2251) - lu(k,2265) = lu(k,2265) - lu(k,1596) * lu(k,2251) - lu(k,2266) = lu(k,2266) - lu(k,1597) * lu(k,2251) - lu(k,2267) = lu(k,2267) - lu(k,1598) * lu(k,2251) - lu(k,2268) = lu(k,2268) - lu(k,1599) * lu(k,2251) - lu(k,2273) = lu(k,2273) - lu(k,1587) * lu(k,2272) - lu(k,2274) = lu(k,2274) - lu(k,1588) * lu(k,2272) - lu(k,2275) = lu(k,2275) - lu(k,1589) * lu(k,2272) - lu(k,2276) = lu(k,2276) - lu(k,1590) * lu(k,2272) - lu(k,2277) = lu(k,2277) - lu(k,1591) * lu(k,2272) - lu(k,2278) = lu(k,2278) - lu(k,1592) * lu(k,2272) - lu(k,2281) = lu(k,2281) - lu(k,1593) * lu(k,2272) - lu(k,2282) = lu(k,2282) - lu(k,1594) * lu(k,2272) - lu(k,2283) = lu(k,2283) - lu(k,1595) * lu(k,2272) - lu(k,2286) = lu(k,2286) - lu(k,1596) * lu(k,2272) - lu(k,2287) = lu(k,2287) - lu(k,1597) * lu(k,2272) - lu(k,2288) = lu(k,2288) - lu(k,1598) * lu(k,2272) - lu(k,2289) = lu(k,2289) - lu(k,1599) * lu(k,2272) - lu(k,2296) = lu(k,2296) - lu(k,1587) * lu(k,2295) - lu(k,2297) = lu(k,2297) - lu(k,1588) * lu(k,2295) - lu(k,2298) = lu(k,2298) - lu(k,1589) * lu(k,2295) - lu(k,2299) = lu(k,2299) - lu(k,1590) * lu(k,2295) - lu(k,2300) = lu(k,2300) - lu(k,1591) * lu(k,2295) - lu(k,2301) = lu(k,2301) - lu(k,1592) * lu(k,2295) - lu(k,2304) = lu(k,2304) - lu(k,1593) * lu(k,2295) - lu(k,2305) = lu(k,2305) - lu(k,1594) * lu(k,2295) - lu(k,2306) = lu(k,2306) - lu(k,1595) * lu(k,2295) - lu(k,2309) = lu(k,2309) - lu(k,1596) * lu(k,2295) - lu(k,2310) = lu(k,2310) - lu(k,1597) * lu(k,2295) - lu(k,2311) = lu(k,2311) - lu(k,1598) * lu(k,2295) - lu(k,2312) = lu(k,2312) - lu(k,1599) * lu(k,2295) - lu(k,2348) = - lu(k,1587) * lu(k,2347) - lu(k,2349) = lu(k,2349) - lu(k,1588) * lu(k,2347) - lu(k,2350) = lu(k,2350) - lu(k,1589) * lu(k,2347) - lu(k,2351) = lu(k,2351) - lu(k,1590) * lu(k,2347) - lu(k,2352) = lu(k,2352) - lu(k,1591) * lu(k,2347) - lu(k,2353) = lu(k,2353) - lu(k,1592) * lu(k,2347) - lu(k,2356) = lu(k,2356) - lu(k,1593) * lu(k,2347) - lu(k,2357) = lu(k,2357) - lu(k,1594) * lu(k,2347) - lu(k,2358) = lu(k,2358) - lu(k,1595) * lu(k,2347) - lu(k,2361) = lu(k,2361) - lu(k,1596) * lu(k,2347) - lu(k,2362) = lu(k,2362) - lu(k,1597) * lu(k,2347) - lu(k,2363) = lu(k,2363) - lu(k,1598) * lu(k,2347) - lu(k,2364) = lu(k,2364) - lu(k,1599) * lu(k,2347) - lu(k,2412) = lu(k,2412) - lu(k,1587) * lu(k,2411) - lu(k,2413) = lu(k,2413) - lu(k,1588) * lu(k,2411) - lu(k,2414) = lu(k,2414) - lu(k,1589) * lu(k,2411) - lu(k,2415) = lu(k,2415) - lu(k,1590) * lu(k,2411) - lu(k,2416) = lu(k,2416) - lu(k,1591) * lu(k,2411) - lu(k,2417) = lu(k,2417) - lu(k,1592) * lu(k,2411) - lu(k,2420) = lu(k,2420) - lu(k,1593) * lu(k,2411) - lu(k,2421) = lu(k,2421) - lu(k,1594) * lu(k,2411) - lu(k,2422) = lu(k,2422) - lu(k,1595) * lu(k,2411) - lu(k,2425) = lu(k,2425) - lu(k,1596) * lu(k,2411) - lu(k,2426) = lu(k,2426) - lu(k,1597) * lu(k,2411) - lu(k,2427) = lu(k,2427) - lu(k,1598) * lu(k,2411) - lu(k,2428) = lu(k,2428) - lu(k,1599) * lu(k,2411) - lu(k,2455) = lu(k,2455) - lu(k,1587) * lu(k,2454) - lu(k,2456) = lu(k,2456) - lu(k,1588) * lu(k,2454) - lu(k,2457) = lu(k,2457) - lu(k,1589) * lu(k,2454) - lu(k,2458) = lu(k,2458) - lu(k,1590) * lu(k,2454) - lu(k,2459) = lu(k,2459) - lu(k,1591) * lu(k,2454) - lu(k,2460) = lu(k,2460) - lu(k,1592) * lu(k,2454) - lu(k,2463) = lu(k,2463) - lu(k,1593) * lu(k,2454) - lu(k,2464) = lu(k,2464) - lu(k,1594) * lu(k,2454) - lu(k,2465) = lu(k,2465) - lu(k,1595) * lu(k,2454) - lu(k,2468) = lu(k,2468) - lu(k,1596) * lu(k,2454) - lu(k,2469) = lu(k,2469) - lu(k,1597) * lu(k,2454) - lu(k,2470) = lu(k,2470) - lu(k,1598) * lu(k,2454) - lu(k,2471) = lu(k,2471) - lu(k,1599) * lu(k,2454) - lu(k,2481) = lu(k,2481) - lu(k,1587) * lu(k,2480) - lu(k,2482) = lu(k,2482) - lu(k,1588) * lu(k,2480) - lu(k,2483) = lu(k,2483) - lu(k,1589) * lu(k,2480) - lu(k,2484) = lu(k,2484) - lu(k,1590) * lu(k,2480) - lu(k,2485) = lu(k,2485) - lu(k,1591) * lu(k,2480) - lu(k,2486) = lu(k,2486) - lu(k,1592) * lu(k,2480) - lu(k,2489) = lu(k,2489) - lu(k,1593) * lu(k,2480) - lu(k,2490) = lu(k,2490) - lu(k,1594) * lu(k,2480) - lu(k,2491) = lu(k,2491) - lu(k,1595) * lu(k,2480) - lu(k,2494) = lu(k,2494) - lu(k,1596) * lu(k,2480) - lu(k,2495) = lu(k,2495) - lu(k,1597) * lu(k,2480) - lu(k,2496) = lu(k,2496) - lu(k,1598) * lu(k,2480) - lu(k,2497) = lu(k,2497) - lu(k,1599) * lu(k,2480) - lu(k,2508) = lu(k,2508) - lu(k,1587) * lu(k,2507) - lu(k,2509) = lu(k,2509) - lu(k,1588) * lu(k,2507) - lu(k,2510) = lu(k,2510) - lu(k,1589) * lu(k,2507) - lu(k,2511) = lu(k,2511) - lu(k,1590) * lu(k,2507) - lu(k,2512) = lu(k,2512) - lu(k,1591) * lu(k,2507) - lu(k,2513) = lu(k,2513) - lu(k,1592) * lu(k,2507) - lu(k,2516) = lu(k,2516) - lu(k,1593) * lu(k,2507) - lu(k,2517) = lu(k,2517) - lu(k,1594) * lu(k,2507) - lu(k,2518) = lu(k,2518) - lu(k,1595) * lu(k,2507) - lu(k,2521) = lu(k,2521) - lu(k,1596) * lu(k,2507) - lu(k,2522) = lu(k,2522) - lu(k,1597) * lu(k,2507) - lu(k,2523) = lu(k,2523) - lu(k,1598) * lu(k,2507) - lu(k,2524) = lu(k,2524) - lu(k,1599) * lu(k,2507) - lu(k,1609) = 1._r8 / lu(k,1609) - lu(k,1610) = lu(k,1610) * lu(k,1609) - lu(k,1611) = lu(k,1611) * lu(k,1609) - lu(k,1612) = lu(k,1612) * lu(k,1609) - lu(k,1613) = lu(k,1613) * lu(k,1609) - lu(k,1614) = lu(k,1614) * lu(k,1609) - lu(k,1615) = lu(k,1615) * lu(k,1609) - lu(k,1616) = lu(k,1616) * lu(k,1609) - lu(k,1617) = lu(k,1617) * lu(k,1609) - lu(k,1618) = lu(k,1618) * lu(k,1609) - lu(k,1619) = lu(k,1619) * lu(k,1609) - lu(k,1620) = lu(k,1620) * lu(k,1609) - lu(k,1621) = lu(k,1621) * lu(k,1609) - lu(k,1622) = lu(k,1622) * lu(k,1609) - lu(k,1623) = lu(k,1623) * lu(k,1609) - lu(k,1636) = lu(k,1636) - lu(k,1610) * lu(k,1635) - lu(k,1637) = lu(k,1637) - lu(k,1611) * lu(k,1635) - lu(k,1638) = lu(k,1638) - lu(k,1612) * lu(k,1635) - lu(k,1639) = lu(k,1639) - lu(k,1613) * lu(k,1635) - lu(k,1640) = lu(k,1640) - lu(k,1614) * lu(k,1635) - lu(k,1641) = lu(k,1641) - lu(k,1615) * lu(k,1635) - lu(k,1642) = lu(k,1642) - lu(k,1616) * lu(k,1635) - lu(k,1643) = lu(k,1643) - lu(k,1617) * lu(k,1635) - lu(k,1644) = lu(k,1644) - lu(k,1618) * lu(k,1635) - lu(k,1645) = lu(k,1645) - lu(k,1619) * lu(k,1635) - lu(k,1647) = lu(k,1647) - lu(k,1620) * lu(k,1635) - lu(k,1648) = lu(k,1648) - lu(k,1621) * lu(k,1635) - lu(k,1649) = lu(k,1649) - lu(k,1622) * lu(k,1635) - lu(k,1650) = lu(k,1650) - lu(k,1623) * lu(k,1635) - lu(k,1680) = lu(k,1680) - lu(k,1610) * lu(k,1679) - lu(k,1681) = lu(k,1681) - lu(k,1611) * lu(k,1679) - lu(k,1682) = lu(k,1682) - lu(k,1612) * lu(k,1679) - lu(k,1683) = lu(k,1683) - lu(k,1613) * lu(k,1679) - lu(k,1684) = lu(k,1684) - lu(k,1614) * lu(k,1679) - lu(k,1685) = lu(k,1685) - lu(k,1615) * lu(k,1679) - lu(k,1687) = lu(k,1687) - lu(k,1616) * lu(k,1679) - lu(k,1688) = lu(k,1688) - lu(k,1617) * lu(k,1679) - lu(k,1689) = lu(k,1689) - lu(k,1618) * lu(k,1679) - lu(k,1690) = lu(k,1690) - lu(k,1619) * lu(k,1679) - lu(k,1692) = lu(k,1692) - lu(k,1620) * lu(k,1679) - lu(k,1693) = lu(k,1693) - lu(k,1621) * lu(k,1679) - lu(k,1694) = lu(k,1694) - lu(k,1622) * lu(k,1679) - lu(k,1695) = lu(k,1695) - lu(k,1623) * lu(k,1679) - lu(k,1786) = lu(k,1786) - lu(k,1610) * lu(k,1785) - lu(k,1787) = lu(k,1787) - lu(k,1611) * lu(k,1785) - lu(k,1788) = lu(k,1788) - lu(k,1612) * lu(k,1785) - lu(k,1789) = lu(k,1789) - lu(k,1613) * lu(k,1785) - lu(k,1790) = lu(k,1790) - lu(k,1614) * lu(k,1785) - lu(k,1791) = lu(k,1791) - lu(k,1615) * lu(k,1785) - lu(k,1793) = lu(k,1793) - lu(k,1616) * lu(k,1785) - lu(k,1794) = lu(k,1794) - lu(k,1617) * lu(k,1785) - lu(k,1795) = lu(k,1795) - lu(k,1618) * lu(k,1785) - lu(k,1796) = lu(k,1796) - lu(k,1619) * lu(k,1785) - lu(k,1798) = lu(k,1798) - lu(k,1620) * lu(k,1785) - lu(k,1799) = lu(k,1799) - lu(k,1621) * lu(k,1785) - lu(k,1800) = lu(k,1800) - lu(k,1622) * lu(k,1785) - lu(k,1801) = lu(k,1801) - lu(k,1623) * lu(k,1785) - lu(k,1829) = lu(k,1829) - lu(k,1610) * lu(k,1828) - lu(k,1830) = lu(k,1830) - lu(k,1611) * lu(k,1828) - lu(k,1831) = lu(k,1831) - lu(k,1612) * lu(k,1828) - lu(k,1832) = lu(k,1832) - lu(k,1613) * lu(k,1828) - lu(k,1833) = lu(k,1833) - lu(k,1614) * lu(k,1828) - lu(k,1834) = lu(k,1834) - lu(k,1615) * lu(k,1828) - lu(k,1836) = lu(k,1836) - lu(k,1616) * lu(k,1828) - lu(k,1837) = lu(k,1837) - lu(k,1617) * lu(k,1828) - lu(k,1838) = lu(k,1838) - lu(k,1618) * lu(k,1828) - lu(k,1839) = lu(k,1839) - lu(k,1619) * lu(k,1828) - lu(k,1841) = lu(k,1841) - lu(k,1620) * lu(k,1828) - lu(k,1842) = lu(k,1842) - lu(k,1621) * lu(k,1828) - lu(k,1843) = lu(k,1843) - lu(k,1622) * lu(k,1828) - lu(k,1844) = lu(k,1844) - lu(k,1623) * lu(k,1828) - lu(k,2002) = lu(k,2002) - lu(k,1610) * lu(k,2001) - lu(k,2003) = lu(k,2003) - lu(k,1611) * lu(k,2001) - lu(k,2004) = lu(k,2004) - lu(k,1612) * lu(k,2001) - lu(k,2005) = lu(k,2005) - lu(k,1613) * lu(k,2001) - lu(k,2006) = lu(k,2006) - lu(k,1614) * lu(k,2001) - lu(k,2007) = lu(k,2007) - lu(k,1615) * lu(k,2001) - lu(k,2009) = lu(k,2009) - lu(k,1616) * lu(k,2001) - lu(k,2010) = lu(k,2010) - lu(k,1617) * lu(k,2001) - lu(k,2011) = lu(k,2011) - lu(k,1618) * lu(k,2001) - lu(k,2012) = lu(k,2012) - lu(k,1619) * lu(k,2001) - lu(k,2014) = lu(k,2014) - lu(k,1620) * lu(k,2001) - lu(k,2015) = lu(k,2015) - lu(k,1621) * lu(k,2001) - lu(k,2016) = lu(k,2016) - lu(k,1622) * lu(k,2001) - lu(k,2017) = lu(k,2017) - lu(k,1623) * lu(k,2001) - lu(k,2062) = lu(k,2062) - lu(k,1610) * lu(k,2061) - lu(k,2063) = lu(k,2063) - lu(k,1611) * lu(k,2061) - lu(k,2064) = lu(k,2064) - lu(k,1612) * lu(k,2061) - lu(k,2065) = lu(k,2065) - lu(k,1613) * lu(k,2061) - lu(k,2066) = lu(k,2066) - lu(k,1614) * lu(k,2061) - lu(k,2067) = lu(k,2067) - lu(k,1615) * lu(k,2061) - lu(k,2069) = lu(k,2069) - lu(k,1616) * lu(k,2061) - lu(k,2070) = lu(k,2070) - lu(k,1617) * lu(k,2061) - lu(k,2071) = lu(k,2071) - lu(k,1618) * lu(k,2061) - lu(k,2072) = lu(k,2072) - lu(k,1619) * lu(k,2061) - lu(k,2074) = lu(k,2074) - lu(k,1620) * lu(k,2061) - lu(k,2075) = lu(k,2075) - lu(k,1621) * lu(k,2061) - lu(k,2076) = lu(k,2076) - lu(k,1622) * lu(k,2061) - lu(k,2077) = lu(k,2077) - lu(k,1623) * lu(k,2061) - lu(k,2087) = lu(k,2087) - lu(k,1610) * lu(k,2086) - lu(k,2088) = lu(k,2088) - lu(k,1611) * lu(k,2086) - lu(k,2089) = lu(k,2089) - lu(k,1612) * lu(k,2086) - lu(k,2090) = lu(k,2090) - lu(k,1613) * lu(k,2086) - lu(k,2091) = lu(k,2091) - lu(k,1614) * lu(k,2086) - lu(k,2092) = lu(k,2092) - lu(k,1615) * lu(k,2086) - lu(k,2094) = lu(k,2094) - lu(k,1616) * lu(k,2086) - lu(k,2095) = lu(k,2095) - lu(k,1617) * lu(k,2086) - lu(k,2096) = lu(k,2096) - lu(k,1618) * lu(k,2086) - lu(k,2097) = lu(k,2097) - lu(k,1619) * lu(k,2086) - lu(k,2099) = lu(k,2099) - lu(k,1620) * lu(k,2086) - lu(k,2100) = lu(k,2100) - lu(k,1621) * lu(k,2086) - lu(k,2101) = lu(k,2101) - lu(k,1622) * lu(k,2086) - lu(k,2102) = lu(k,2102) - lu(k,1623) * lu(k,2086) - lu(k,2207) = lu(k,2207) - lu(k,1610) * lu(k,2206) - lu(k,2208) = lu(k,2208) - lu(k,1611) * lu(k,2206) - lu(k,2209) = lu(k,2209) - lu(k,1612) * lu(k,2206) - lu(k,2210) = lu(k,2210) - lu(k,1613) * lu(k,2206) - lu(k,2211) = lu(k,2211) - lu(k,1614) * lu(k,2206) - lu(k,2212) = lu(k,2212) - lu(k,1615) * lu(k,2206) - lu(k,2214) = lu(k,2214) - lu(k,1616) * lu(k,2206) - lu(k,2215) = lu(k,2215) - lu(k,1617) * lu(k,2206) - lu(k,2216) = lu(k,2216) - lu(k,1618) * lu(k,2206) - lu(k,2217) = lu(k,2217) - lu(k,1619) * lu(k,2206) - lu(k,2219) = lu(k,2219) - lu(k,1620) * lu(k,2206) - lu(k,2220) = lu(k,2220) - lu(k,1621) * lu(k,2206) - lu(k,2221) = lu(k,2221) - lu(k,1622) * lu(k,2206) - lu(k,2222) = lu(k,2222) - lu(k,1623) * lu(k,2206) - lu(k,2253) = lu(k,2253) - lu(k,1610) * lu(k,2252) - lu(k,2254) = lu(k,2254) - lu(k,1611) * lu(k,2252) - lu(k,2255) = lu(k,2255) - lu(k,1612) * lu(k,2252) - lu(k,2256) = lu(k,2256) - lu(k,1613) * lu(k,2252) - lu(k,2257) = lu(k,2257) - lu(k,1614) * lu(k,2252) - lu(k,2258) = lu(k,2258) - lu(k,1615) * lu(k,2252) - lu(k,2260) = lu(k,2260) - lu(k,1616) * lu(k,2252) - lu(k,2261) = lu(k,2261) - lu(k,1617) * lu(k,2252) - lu(k,2262) = lu(k,2262) - lu(k,1618) * lu(k,2252) - lu(k,2263) = lu(k,2263) - lu(k,1619) * lu(k,2252) - lu(k,2265) = lu(k,2265) - lu(k,1620) * lu(k,2252) - lu(k,2266) = lu(k,2266) - lu(k,1621) * lu(k,2252) - lu(k,2267) = lu(k,2267) - lu(k,1622) * lu(k,2252) - lu(k,2268) = lu(k,2268) - lu(k,1623) * lu(k,2252) - lu(k,2274) = lu(k,2274) - lu(k,1610) * lu(k,2273) - lu(k,2275) = lu(k,2275) - lu(k,1611) * lu(k,2273) - lu(k,2276) = lu(k,2276) - lu(k,1612) * lu(k,2273) - lu(k,2277) = lu(k,2277) - lu(k,1613) * lu(k,2273) - lu(k,2278) = lu(k,2278) - lu(k,1614) * lu(k,2273) - lu(k,2279) = lu(k,2279) - lu(k,1615) * lu(k,2273) - lu(k,2281) = lu(k,2281) - lu(k,1616) * lu(k,2273) - lu(k,2282) = lu(k,2282) - lu(k,1617) * lu(k,2273) - lu(k,2283) = lu(k,2283) - lu(k,1618) * lu(k,2273) - lu(k,2284) = lu(k,2284) - lu(k,1619) * lu(k,2273) - lu(k,2286) = lu(k,2286) - lu(k,1620) * lu(k,2273) - lu(k,2287) = lu(k,2287) - lu(k,1621) * lu(k,2273) - lu(k,2288) = lu(k,2288) - lu(k,1622) * lu(k,2273) - lu(k,2289) = lu(k,2289) - lu(k,1623) * lu(k,2273) - lu(k,2297) = lu(k,2297) - lu(k,1610) * lu(k,2296) - lu(k,2298) = lu(k,2298) - lu(k,1611) * lu(k,2296) - lu(k,2299) = lu(k,2299) - lu(k,1612) * lu(k,2296) - lu(k,2300) = lu(k,2300) - lu(k,1613) * lu(k,2296) - lu(k,2301) = lu(k,2301) - lu(k,1614) * lu(k,2296) - lu(k,2302) = lu(k,2302) - lu(k,1615) * lu(k,2296) - lu(k,2304) = lu(k,2304) - lu(k,1616) * lu(k,2296) - lu(k,2305) = lu(k,2305) - lu(k,1617) * lu(k,2296) - lu(k,2306) = lu(k,2306) - lu(k,1618) * lu(k,2296) - lu(k,2307) = lu(k,2307) - lu(k,1619) * lu(k,2296) - lu(k,2309) = lu(k,2309) - lu(k,1620) * lu(k,2296) - lu(k,2310) = lu(k,2310) - lu(k,1621) * lu(k,2296) - lu(k,2311) = lu(k,2311) - lu(k,1622) * lu(k,2296) - lu(k,2312) = lu(k,2312) - lu(k,1623) * lu(k,2296) - lu(k,2349) = lu(k,2349) - lu(k,1610) * lu(k,2348) - lu(k,2350) = lu(k,2350) - lu(k,1611) * lu(k,2348) - lu(k,2351) = lu(k,2351) - lu(k,1612) * lu(k,2348) - lu(k,2352) = lu(k,2352) - lu(k,1613) * lu(k,2348) - lu(k,2353) = lu(k,2353) - lu(k,1614) * lu(k,2348) - lu(k,2354) = lu(k,2354) - lu(k,1615) * lu(k,2348) - lu(k,2356) = lu(k,2356) - lu(k,1616) * lu(k,2348) - lu(k,2357) = lu(k,2357) - lu(k,1617) * lu(k,2348) - lu(k,2358) = lu(k,2358) - lu(k,1618) * lu(k,2348) - lu(k,2359) = lu(k,2359) - lu(k,1619) * lu(k,2348) - lu(k,2361) = lu(k,2361) - lu(k,1620) * lu(k,2348) - lu(k,2362) = lu(k,2362) - lu(k,1621) * lu(k,2348) - lu(k,2363) = lu(k,2363) - lu(k,1622) * lu(k,2348) - lu(k,2364) = lu(k,2364) - lu(k,1623) * lu(k,2348) - lu(k,2413) = lu(k,2413) - lu(k,1610) * lu(k,2412) - lu(k,2414) = lu(k,2414) - lu(k,1611) * lu(k,2412) - lu(k,2415) = lu(k,2415) - lu(k,1612) * lu(k,2412) - lu(k,2416) = lu(k,2416) - lu(k,1613) * lu(k,2412) - lu(k,2417) = lu(k,2417) - lu(k,1614) * lu(k,2412) - lu(k,2418) = lu(k,2418) - lu(k,1615) * lu(k,2412) - lu(k,2420) = lu(k,2420) - lu(k,1616) * lu(k,2412) - lu(k,2421) = lu(k,2421) - lu(k,1617) * lu(k,2412) - lu(k,2422) = lu(k,2422) - lu(k,1618) * lu(k,2412) - lu(k,2423) = lu(k,2423) - lu(k,1619) * lu(k,2412) - lu(k,2425) = lu(k,2425) - lu(k,1620) * lu(k,2412) - lu(k,2426) = lu(k,2426) - lu(k,1621) * lu(k,2412) - lu(k,2427) = lu(k,2427) - lu(k,1622) * lu(k,2412) - lu(k,2428) = lu(k,2428) - lu(k,1623) * lu(k,2412) - lu(k,2456) = lu(k,2456) - lu(k,1610) * lu(k,2455) - lu(k,2457) = lu(k,2457) - lu(k,1611) * lu(k,2455) - lu(k,2458) = lu(k,2458) - lu(k,1612) * lu(k,2455) - lu(k,2459) = lu(k,2459) - lu(k,1613) * lu(k,2455) - lu(k,2460) = lu(k,2460) - lu(k,1614) * lu(k,2455) - lu(k,2461) = lu(k,2461) - lu(k,1615) * lu(k,2455) - lu(k,2463) = lu(k,2463) - lu(k,1616) * lu(k,2455) - lu(k,2464) = lu(k,2464) - lu(k,1617) * lu(k,2455) - lu(k,2465) = lu(k,2465) - lu(k,1618) * lu(k,2455) - lu(k,2466) = lu(k,2466) - lu(k,1619) * lu(k,2455) - lu(k,2468) = lu(k,2468) - lu(k,1620) * lu(k,2455) - lu(k,2469) = lu(k,2469) - lu(k,1621) * lu(k,2455) - lu(k,2470) = lu(k,2470) - lu(k,1622) * lu(k,2455) - lu(k,2471) = lu(k,2471) - lu(k,1623) * lu(k,2455) - lu(k,2482) = lu(k,2482) - lu(k,1610) * lu(k,2481) - lu(k,2483) = lu(k,2483) - lu(k,1611) * lu(k,2481) - lu(k,2484) = lu(k,2484) - lu(k,1612) * lu(k,2481) - lu(k,2485) = lu(k,2485) - lu(k,1613) * lu(k,2481) - lu(k,2486) = lu(k,2486) - lu(k,1614) * lu(k,2481) - lu(k,2487) = lu(k,2487) - lu(k,1615) * lu(k,2481) - lu(k,2489) = lu(k,2489) - lu(k,1616) * lu(k,2481) - lu(k,2490) = lu(k,2490) - lu(k,1617) * lu(k,2481) - lu(k,2491) = lu(k,2491) - lu(k,1618) * lu(k,2481) - lu(k,2492) = lu(k,2492) - lu(k,1619) * lu(k,2481) - lu(k,2494) = lu(k,2494) - lu(k,1620) * lu(k,2481) - lu(k,2495) = lu(k,2495) - lu(k,1621) * lu(k,2481) - lu(k,2496) = lu(k,2496) - lu(k,1622) * lu(k,2481) - lu(k,2497) = lu(k,2497) - lu(k,1623) * lu(k,2481) - lu(k,2509) = lu(k,2509) - lu(k,1610) * lu(k,2508) - lu(k,2510) = lu(k,2510) - lu(k,1611) * lu(k,2508) - lu(k,2511) = lu(k,2511) - lu(k,1612) * lu(k,2508) - lu(k,2512) = lu(k,2512) - lu(k,1613) * lu(k,2508) - lu(k,2513) = lu(k,2513) - lu(k,1614) * lu(k,2508) - lu(k,2514) = lu(k,2514) - lu(k,1615) * lu(k,2508) - lu(k,2516) = lu(k,2516) - lu(k,1616) * lu(k,2508) - lu(k,2517) = lu(k,2517) - lu(k,1617) * lu(k,2508) - lu(k,2518) = lu(k,2518) - lu(k,1618) * lu(k,2508) - lu(k,2519) = lu(k,2519) - lu(k,1619) * lu(k,2508) - lu(k,2521) = lu(k,2521) - lu(k,1620) * lu(k,2508) - lu(k,2522) = lu(k,2522) - lu(k,1621) * lu(k,2508) - lu(k,2523) = lu(k,2523) - lu(k,1622) * lu(k,2508) - lu(k,2524) = lu(k,2524) - lu(k,1623) * lu(k,2508) - lu(k,1636) = 1._r8 / lu(k,1636) - lu(k,1637) = lu(k,1637) * lu(k,1636) - lu(k,1638) = lu(k,1638) * lu(k,1636) - lu(k,1639) = lu(k,1639) * lu(k,1636) - lu(k,1640) = lu(k,1640) * lu(k,1636) - lu(k,1641) = lu(k,1641) * lu(k,1636) - lu(k,1642) = lu(k,1642) * lu(k,1636) - lu(k,1643) = lu(k,1643) * lu(k,1636) - lu(k,1644) = lu(k,1644) * lu(k,1636) - lu(k,1645) = lu(k,1645) * lu(k,1636) - lu(k,1646) = lu(k,1646) * lu(k,1636) - lu(k,1647) = lu(k,1647) * lu(k,1636) - lu(k,1648) = lu(k,1648) * lu(k,1636) - lu(k,1649) = lu(k,1649) * lu(k,1636) - lu(k,1650) = lu(k,1650) * lu(k,1636) - lu(k,1681) = lu(k,1681) - lu(k,1637) * lu(k,1680) - lu(k,1682) = lu(k,1682) - lu(k,1638) * lu(k,1680) - lu(k,1683) = lu(k,1683) - lu(k,1639) * lu(k,1680) - lu(k,1684) = lu(k,1684) - lu(k,1640) * lu(k,1680) - lu(k,1685) = lu(k,1685) - lu(k,1641) * lu(k,1680) - lu(k,1687) = lu(k,1687) - lu(k,1642) * lu(k,1680) - lu(k,1688) = lu(k,1688) - lu(k,1643) * lu(k,1680) - lu(k,1689) = lu(k,1689) - lu(k,1644) * lu(k,1680) - lu(k,1690) = lu(k,1690) - lu(k,1645) * lu(k,1680) - lu(k,1691) = lu(k,1691) - lu(k,1646) * lu(k,1680) - lu(k,1692) = lu(k,1692) - lu(k,1647) * lu(k,1680) - lu(k,1693) = lu(k,1693) - lu(k,1648) * lu(k,1680) - lu(k,1694) = lu(k,1694) - lu(k,1649) * lu(k,1680) - lu(k,1695) = lu(k,1695) - lu(k,1650) * lu(k,1680) - lu(k,1787) = lu(k,1787) - lu(k,1637) * lu(k,1786) - lu(k,1788) = lu(k,1788) - lu(k,1638) * lu(k,1786) - lu(k,1789) = lu(k,1789) - lu(k,1639) * lu(k,1786) - lu(k,1790) = lu(k,1790) - lu(k,1640) * lu(k,1786) - lu(k,1791) = lu(k,1791) - lu(k,1641) * lu(k,1786) - lu(k,1793) = lu(k,1793) - lu(k,1642) * lu(k,1786) - lu(k,1794) = lu(k,1794) - lu(k,1643) * lu(k,1786) - lu(k,1795) = lu(k,1795) - lu(k,1644) * lu(k,1786) - lu(k,1796) = lu(k,1796) - lu(k,1645) * lu(k,1786) - lu(k,1797) = lu(k,1797) - lu(k,1646) * lu(k,1786) - lu(k,1798) = lu(k,1798) - lu(k,1647) * lu(k,1786) - lu(k,1799) = lu(k,1799) - lu(k,1648) * lu(k,1786) - lu(k,1800) = lu(k,1800) - lu(k,1649) * lu(k,1786) - lu(k,1801) = lu(k,1801) - lu(k,1650) * lu(k,1786) - lu(k,1830) = lu(k,1830) - lu(k,1637) * lu(k,1829) - lu(k,1831) = lu(k,1831) - lu(k,1638) * lu(k,1829) - lu(k,1832) = lu(k,1832) - lu(k,1639) * lu(k,1829) - lu(k,1833) = lu(k,1833) - lu(k,1640) * lu(k,1829) - lu(k,1834) = lu(k,1834) - lu(k,1641) * lu(k,1829) - lu(k,1836) = lu(k,1836) - lu(k,1642) * lu(k,1829) - lu(k,1837) = lu(k,1837) - lu(k,1643) * lu(k,1829) - lu(k,1838) = lu(k,1838) - lu(k,1644) * lu(k,1829) - lu(k,1839) = lu(k,1839) - lu(k,1645) * lu(k,1829) - lu(k,1840) = lu(k,1840) - lu(k,1646) * lu(k,1829) - lu(k,1841) = lu(k,1841) - lu(k,1647) * lu(k,1829) - lu(k,1842) = lu(k,1842) - lu(k,1648) * lu(k,1829) - lu(k,1843) = lu(k,1843) - lu(k,1649) * lu(k,1829) - lu(k,1844) = lu(k,1844) - lu(k,1650) * lu(k,1829) - lu(k,2003) = lu(k,2003) - lu(k,1637) * lu(k,2002) - lu(k,2004) = lu(k,2004) - lu(k,1638) * lu(k,2002) - lu(k,2005) = lu(k,2005) - lu(k,1639) * lu(k,2002) - lu(k,2006) = lu(k,2006) - lu(k,1640) * lu(k,2002) - lu(k,2007) = lu(k,2007) - lu(k,1641) * lu(k,2002) - lu(k,2009) = lu(k,2009) - lu(k,1642) * lu(k,2002) - lu(k,2010) = lu(k,2010) - lu(k,1643) * lu(k,2002) - lu(k,2011) = lu(k,2011) - lu(k,1644) * lu(k,2002) - lu(k,2012) = lu(k,2012) - lu(k,1645) * lu(k,2002) - lu(k,2013) = lu(k,2013) - lu(k,1646) * lu(k,2002) - lu(k,2014) = lu(k,2014) - lu(k,1647) * lu(k,2002) - lu(k,2015) = lu(k,2015) - lu(k,1648) * lu(k,2002) - lu(k,2016) = lu(k,2016) - lu(k,1649) * lu(k,2002) - lu(k,2017) = lu(k,2017) - lu(k,1650) * lu(k,2002) - lu(k,2063) = lu(k,2063) - lu(k,1637) * lu(k,2062) - lu(k,2064) = lu(k,2064) - lu(k,1638) * lu(k,2062) - lu(k,2065) = lu(k,2065) - lu(k,1639) * lu(k,2062) - lu(k,2066) = lu(k,2066) - lu(k,1640) * lu(k,2062) - lu(k,2067) = lu(k,2067) - lu(k,1641) * lu(k,2062) - lu(k,2069) = lu(k,2069) - lu(k,1642) * lu(k,2062) - lu(k,2070) = lu(k,2070) - lu(k,1643) * lu(k,2062) - lu(k,2071) = lu(k,2071) - lu(k,1644) * lu(k,2062) - lu(k,2072) = lu(k,2072) - lu(k,1645) * lu(k,2062) - lu(k,2073) = lu(k,2073) - lu(k,1646) * lu(k,2062) - lu(k,2074) = lu(k,2074) - lu(k,1647) * lu(k,2062) - lu(k,2075) = lu(k,2075) - lu(k,1648) * lu(k,2062) - lu(k,2076) = lu(k,2076) - lu(k,1649) * lu(k,2062) - lu(k,2077) = lu(k,2077) - lu(k,1650) * lu(k,2062) - lu(k,2088) = lu(k,2088) - lu(k,1637) * lu(k,2087) - lu(k,2089) = lu(k,2089) - lu(k,1638) * lu(k,2087) - lu(k,2090) = lu(k,2090) - lu(k,1639) * lu(k,2087) - lu(k,2091) = lu(k,2091) - lu(k,1640) * lu(k,2087) - lu(k,2092) = lu(k,2092) - lu(k,1641) * lu(k,2087) - lu(k,2094) = lu(k,2094) - lu(k,1642) * lu(k,2087) - lu(k,2095) = lu(k,2095) - lu(k,1643) * lu(k,2087) - lu(k,2096) = lu(k,2096) - lu(k,1644) * lu(k,2087) - lu(k,2097) = lu(k,2097) - lu(k,1645) * lu(k,2087) - lu(k,2098) = lu(k,2098) - lu(k,1646) * lu(k,2087) - lu(k,2099) = lu(k,2099) - lu(k,1647) * lu(k,2087) - lu(k,2100) = lu(k,2100) - lu(k,1648) * lu(k,2087) - lu(k,2101) = lu(k,2101) - lu(k,1649) * lu(k,2087) - lu(k,2102) = lu(k,2102) - lu(k,1650) * lu(k,2087) - lu(k,2208) = lu(k,2208) - lu(k,1637) * lu(k,2207) - lu(k,2209) = lu(k,2209) - lu(k,1638) * lu(k,2207) - lu(k,2210) = lu(k,2210) - lu(k,1639) * lu(k,2207) - lu(k,2211) = lu(k,2211) - lu(k,1640) * lu(k,2207) - lu(k,2212) = lu(k,2212) - lu(k,1641) * lu(k,2207) - lu(k,2214) = lu(k,2214) - lu(k,1642) * lu(k,2207) - lu(k,2215) = lu(k,2215) - lu(k,1643) * lu(k,2207) - lu(k,2216) = lu(k,2216) - lu(k,1644) * lu(k,2207) - lu(k,2217) = lu(k,2217) - lu(k,1645) * lu(k,2207) - lu(k,2218) = lu(k,2218) - lu(k,1646) * lu(k,2207) - lu(k,2219) = lu(k,2219) - lu(k,1647) * lu(k,2207) - lu(k,2220) = lu(k,2220) - lu(k,1648) * lu(k,2207) - lu(k,2221) = lu(k,2221) - lu(k,1649) * lu(k,2207) - lu(k,2222) = lu(k,2222) - lu(k,1650) * lu(k,2207) - lu(k,2254) = lu(k,2254) - lu(k,1637) * lu(k,2253) - lu(k,2255) = lu(k,2255) - lu(k,1638) * lu(k,2253) - lu(k,2256) = lu(k,2256) - lu(k,1639) * lu(k,2253) - lu(k,2257) = lu(k,2257) - lu(k,1640) * lu(k,2253) - lu(k,2258) = lu(k,2258) - lu(k,1641) * lu(k,2253) - lu(k,2260) = lu(k,2260) - lu(k,1642) * lu(k,2253) - lu(k,2261) = lu(k,2261) - lu(k,1643) * lu(k,2253) - lu(k,2262) = lu(k,2262) - lu(k,1644) * lu(k,2253) - lu(k,2263) = lu(k,2263) - lu(k,1645) * lu(k,2253) - lu(k,2264) = lu(k,2264) - lu(k,1646) * lu(k,2253) - lu(k,2265) = lu(k,2265) - lu(k,1647) * lu(k,2253) - lu(k,2266) = lu(k,2266) - lu(k,1648) * lu(k,2253) - lu(k,2267) = lu(k,2267) - lu(k,1649) * lu(k,2253) - lu(k,2268) = lu(k,2268) - lu(k,1650) * lu(k,2253) - lu(k,2275) = lu(k,2275) - lu(k,1637) * lu(k,2274) - lu(k,2276) = lu(k,2276) - lu(k,1638) * lu(k,2274) - lu(k,2277) = lu(k,2277) - lu(k,1639) * lu(k,2274) - lu(k,2278) = lu(k,2278) - lu(k,1640) * lu(k,2274) - lu(k,2279) = lu(k,2279) - lu(k,1641) * lu(k,2274) - lu(k,2281) = lu(k,2281) - lu(k,1642) * lu(k,2274) - lu(k,2282) = lu(k,2282) - lu(k,1643) * lu(k,2274) - lu(k,2283) = lu(k,2283) - lu(k,1644) * lu(k,2274) - lu(k,2284) = lu(k,2284) - lu(k,1645) * lu(k,2274) - lu(k,2285) = lu(k,2285) - lu(k,1646) * lu(k,2274) - lu(k,2286) = lu(k,2286) - lu(k,1647) * lu(k,2274) - lu(k,2287) = lu(k,2287) - lu(k,1648) * lu(k,2274) - lu(k,2288) = lu(k,2288) - lu(k,1649) * lu(k,2274) - lu(k,2289) = lu(k,2289) - lu(k,1650) * lu(k,2274) - lu(k,2298) = lu(k,2298) - lu(k,1637) * lu(k,2297) - lu(k,2299) = lu(k,2299) - lu(k,1638) * lu(k,2297) - lu(k,2300) = lu(k,2300) - lu(k,1639) * lu(k,2297) - lu(k,2301) = lu(k,2301) - lu(k,1640) * lu(k,2297) - lu(k,2302) = lu(k,2302) - lu(k,1641) * lu(k,2297) - lu(k,2304) = lu(k,2304) - lu(k,1642) * lu(k,2297) - lu(k,2305) = lu(k,2305) - lu(k,1643) * lu(k,2297) - lu(k,2306) = lu(k,2306) - lu(k,1644) * lu(k,2297) - lu(k,2307) = lu(k,2307) - lu(k,1645) * lu(k,2297) - lu(k,2308) = lu(k,2308) - lu(k,1646) * lu(k,2297) - lu(k,2309) = lu(k,2309) - lu(k,1647) * lu(k,2297) - lu(k,2310) = lu(k,2310) - lu(k,1648) * lu(k,2297) - lu(k,2311) = lu(k,2311) - lu(k,1649) * lu(k,2297) - lu(k,2312) = lu(k,2312) - lu(k,1650) * lu(k,2297) - lu(k,2350) = lu(k,2350) - lu(k,1637) * lu(k,2349) - lu(k,2351) = lu(k,2351) - lu(k,1638) * lu(k,2349) - lu(k,2352) = lu(k,2352) - lu(k,1639) * lu(k,2349) - lu(k,2353) = lu(k,2353) - lu(k,1640) * lu(k,2349) - lu(k,2354) = lu(k,2354) - lu(k,1641) * lu(k,2349) - lu(k,2356) = lu(k,2356) - lu(k,1642) * lu(k,2349) - lu(k,2357) = lu(k,2357) - lu(k,1643) * lu(k,2349) - lu(k,2358) = lu(k,2358) - lu(k,1644) * lu(k,2349) - lu(k,2359) = lu(k,2359) - lu(k,1645) * lu(k,2349) - lu(k,2360) = lu(k,2360) - lu(k,1646) * lu(k,2349) - lu(k,2361) = lu(k,2361) - lu(k,1647) * lu(k,2349) - lu(k,2362) = lu(k,2362) - lu(k,1648) * lu(k,2349) - lu(k,2363) = lu(k,2363) - lu(k,1649) * lu(k,2349) - lu(k,2364) = lu(k,2364) - lu(k,1650) * lu(k,2349) - lu(k,2414) = lu(k,2414) - lu(k,1637) * lu(k,2413) - lu(k,2415) = lu(k,2415) - lu(k,1638) * lu(k,2413) - lu(k,2416) = lu(k,2416) - lu(k,1639) * lu(k,2413) - lu(k,2417) = lu(k,2417) - lu(k,1640) * lu(k,2413) - lu(k,2418) = lu(k,2418) - lu(k,1641) * lu(k,2413) - lu(k,2420) = lu(k,2420) - lu(k,1642) * lu(k,2413) - lu(k,2421) = lu(k,2421) - lu(k,1643) * lu(k,2413) - lu(k,2422) = lu(k,2422) - lu(k,1644) * lu(k,2413) - lu(k,2423) = lu(k,2423) - lu(k,1645) * lu(k,2413) - lu(k,2424) = lu(k,2424) - lu(k,1646) * lu(k,2413) - lu(k,2425) = lu(k,2425) - lu(k,1647) * lu(k,2413) - lu(k,2426) = lu(k,2426) - lu(k,1648) * lu(k,2413) - lu(k,2427) = lu(k,2427) - lu(k,1649) * lu(k,2413) - lu(k,2428) = lu(k,2428) - lu(k,1650) * lu(k,2413) - lu(k,2457) = lu(k,2457) - lu(k,1637) * lu(k,2456) - lu(k,2458) = lu(k,2458) - lu(k,1638) * lu(k,2456) - lu(k,2459) = lu(k,2459) - lu(k,1639) * lu(k,2456) - lu(k,2460) = lu(k,2460) - lu(k,1640) * lu(k,2456) - lu(k,2461) = lu(k,2461) - lu(k,1641) * lu(k,2456) - lu(k,2463) = lu(k,2463) - lu(k,1642) * lu(k,2456) - lu(k,2464) = lu(k,2464) - lu(k,1643) * lu(k,2456) - lu(k,2465) = lu(k,2465) - lu(k,1644) * lu(k,2456) - lu(k,2466) = lu(k,2466) - lu(k,1645) * lu(k,2456) - lu(k,2467) = lu(k,2467) - lu(k,1646) * lu(k,2456) - lu(k,2468) = lu(k,2468) - lu(k,1647) * lu(k,2456) - lu(k,2469) = lu(k,2469) - lu(k,1648) * lu(k,2456) - lu(k,2470) = lu(k,2470) - lu(k,1649) * lu(k,2456) - lu(k,2471) = lu(k,2471) - lu(k,1650) * lu(k,2456) - lu(k,2483) = lu(k,2483) - lu(k,1637) * lu(k,2482) - lu(k,2484) = lu(k,2484) - lu(k,1638) * lu(k,2482) - lu(k,2485) = lu(k,2485) - lu(k,1639) * lu(k,2482) - lu(k,2486) = lu(k,2486) - lu(k,1640) * lu(k,2482) - lu(k,2487) = lu(k,2487) - lu(k,1641) * lu(k,2482) - lu(k,2489) = lu(k,2489) - lu(k,1642) * lu(k,2482) - lu(k,2490) = lu(k,2490) - lu(k,1643) * lu(k,2482) - lu(k,2491) = lu(k,2491) - lu(k,1644) * lu(k,2482) - lu(k,2492) = lu(k,2492) - lu(k,1645) * lu(k,2482) - lu(k,2493) = lu(k,2493) - lu(k,1646) * lu(k,2482) - lu(k,2494) = lu(k,2494) - lu(k,1647) * lu(k,2482) - lu(k,2495) = lu(k,2495) - lu(k,1648) * lu(k,2482) - lu(k,2496) = lu(k,2496) - lu(k,1649) * lu(k,2482) - lu(k,2497) = lu(k,2497) - lu(k,1650) * lu(k,2482) - lu(k,2510) = lu(k,2510) - lu(k,1637) * lu(k,2509) - lu(k,2511) = lu(k,2511) - lu(k,1638) * lu(k,2509) - lu(k,2512) = lu(k,2512) - lu(k,1639) * lu(k,2509) - lu(k,2513) = lu(k,2513) - lu(k,1640) * lu(k,2509) - lu(k,2514) = lu(k,2514) - lu(k,1641) * lu(k,2509) - lu(k,2516) = lu(k,2516) - lu(k,1642) * lu(k,2509) - lu(k,2517) = lu(k,2517) - lu(k,1643) * lu(k,2509) - lu(k,2518) = lu(k,2518) - lu(k,1644) * lu(k,2509) - lu(k,2519) = lu(k,2519) - lu(k,1645) * lu(k,2509) - lu(k,2520) = lu(k,2520) - lu(k,1646) * lu(k,2509) - lu(k,2521) = lu(k,2521) - lu(k,1647) * lu(k,2509) - lu(k,2522) = lu(k,2522) - lu(k,1648) * lu(k,2509) - lu(k,2523) = lu(k,2523) - lu(k,1649) * lu(k,2509) - lu(k,2524) = lu(k,2524) - lu(k,1650) * lu(k,2509) - lu(k,1681) = 1._r8 / lu(k,1681) - lu(k,1682) = lu(k,1682) * lu(k,1681) - lu(k,1683) = lu(k,1683) * lu(k,1681) - lu(k,1684) = lu(k,1684) * lu(k,1681) - lu(k,1685) = lu(k,1685) * lu(k,1681) - lu(k,1686) = lu(k,1686) * lu(k,1681) - lu(k,1687) = lu(k,1687) * lu(k,1681) - lu(k,1688) = lu(k,1688) * lu(k,1681) - lu(k,1689) = lu(k,1689) * lu(k,1681) - lu(k,1690) = lu(k,1690) * lu(k,1681) - lu(k,1691) = lu(k,1691) * lu(k,1681) - lu(k,1692) = lu(k,1692) * lu(k,1681) - lu(k,1693) = lu(k,1693) * lu(k,1681) - lu(k,1694) = lu(k,1694) * lu(k,1681) - lu(k,1695) = lu(k,1695) * lu(k,1681) - lu(k,1788) = lu(k,1788) - lu(k,1682) * lu(k,1787) - lu(k,1789) = lu(k,1789) - lu(k,1683) * lu(k,1787) - lu(k,1790) = lu(k,1790) - lu(k,1684) * lu(k,1787) - lu(k,1791) = lu(k,1791) - lu(k,1685) * lu(k,1787) - lu(k,1792) = lu(k,1792) - lu(k,1686) * lu(k,1787) - lu(k,1793) = lu(k,1793) - lu(k,1687) * lu(k,1787) - lu(k,1794) = lu(k,1794) - lu(k,1688) * lu(k,1787) - lu(k,1795) = lu(k,1795) - lu(k,1689) * lu(k,1787) - lu(k,1796) = lu(k,1796) - lu(k,1690) * lu(k,1787) - lu(k,1797) = lu(k,1797) - lu(k,1691) * lu(k,1787) - lu(k,1798) = lu(k,1798) - lu(k,1692) * lu(k,1787) - lu(k,1799) = lu(k,1799) - lu(k,1693) * lu(k,1787) - lu(k,1800) = lu(k,1800) - lu(k,1694) * lu(k,1787) - lu(k,1801) = lu(k,1801) - lu(k,1695) * lu(k,1787) - lu(k,1831) = lu(k,1831) - lu(k,1682) * lu(k,1830) - lu(k,1832) = lu(k,1832) - lu(k,1683) * lu(k,1830) - lu(k,1833) = lu(k,1833) - lu(k,1684) * lu(k,1830) - lu(k,1834) = lu(k,1834) - lu(k,1685) * lu(k,1830) - lu(k,1835) = lu(k,1835) - lu(k,1686) * lu(k,1830) - lu(k,1836) = lu(k,1836) - lu(k,1687) * lu(k,1830) - lu(k,1837) = lu(k,1837) - lu(k,1688) * lu(k,1830) - lu(k,1838) = lu(k,1838) - lu(k,1689) * lu(k,1830) - lu(k,1839) = lu(k,1839) - lu(k,1690) * lu(k,1830) - lu(k,1840) = lu(k,1840) - lu(k,1691) * lu(k,1830) - lu(k,1841) = lu(k,1841) - lu(k,1692) * lu(k,1830) - lu(k,1842) = lu(k,1842) - lu(k,1693) * lu(k,1830) - lu(k,1843) = lu(k,1843) - lu(k,1694) * lu(k,1830) - lu(k,1844) = lu(k,1844) - lu(k,1695) * lu(k,1830) - lu(k,2004) = lu(k,2004) - lu(k,1682) * lu(k,2003) - lu(k,2005) = lu(k,2005) - lu(k,1683) * lu(k,2003) - lu(k,2006) = lu(k,2006) - lu(k,1684) * lu(k,2003) - lu(k,2007) = lu(k,2007) - lu(k,1685) * lu(k,2003) - lu(k,2008) = lu(k,2008) - lu(k,1686) * lu(k,2003) - lu(k,2009) = lu(k,2009) - lu(k,1687) * lu(k,2003) - lu(k,2010) = lu(k,2010) - lu(k,1688) * lu(k,2003) - lu(k,2011) = lu(k,2011) - lu(k,1689) * lu(k,2003) - lu(k,2012) = lu(k,2012) - lu(k,1690) * lu(k,2003) - lu(k,2013) = lu(k,2013) - lu(k,1691) * lu(k,2003) - lu(k,2014) = lu(k,2014) - lu(k,1692) * lu(k,2003) - lu(k,2015) = lu(k,2015) - lu(k,1693) * lu(k,2003) - lu(k,2016) = lu(k,2016) - lu(k,1694) * lu(k,2003) - lu(k,2017) = lu(k,2017) - lu(k,1695) * lu(k,2003) - lu(k,2064) = lu(k,2064) - lu(k,1682) * lu(k,2063) - lu(k,2065) = lu(k,2065) - lu(k,1683) * lu(k,2063) - lu(k,2066) = lu(k,2066) - lu(k,1684) * lu(k,2063) - lu(k,2067) = lu(k,2067) - lu(k,1685) * lu(k,2063) - lu(k,2068) = lu(k,2068) - lu(k,1686) * lu(k,2063) - lu(k,2069) = lu(k,2069) - lu(k,1687) * lu(k,2063) - lu(k,2070) = lu(k,2070) - lu(k,1688) * lu(k,2063) - lu(k,2071) = lu(k,2071) - lu(k,1689) * lu(k,2063) - lu(k,2072) = lu(k,2072) - lu(k,1690) * lu(k,2063) - lu(k,2073) = lu(k,2073) - lu(k,1691) * lu(k,2063) - lu(k,2074) = lu(k,2074) - lu(k,1692) * lu(k,2063) - lu(k,2075) = lu(k,2075) - lu(k,1693) * lu(k,2063) - lu(k,2076) = lu(k,2076) - lu(k,1694) * lu(k,2063) - lu(k,2077) = lu(k,2077) - lu(k,1695) * lu(k,2063) - lu(k,2089) = lu(k,2089) - lu(k,1682) * lu(k,2088) - lu(k,2090) = lu(k,2090) - lu(k,1683) * lu(k,2088) - lu(k,2091) = lu(k,2091) - lu(k,1684) * lu(k,2088) - lu(k,2092) = lu(k,2092) - lu(k,1685) * lu(k,2088) - lu(k,2093) = lu(k,2093) - lu(k,1686) * lu(k,2088) - lu(k,2094) = lu(k,2094) - lu(k,1687) * lu(k,2088) - lu(k,2095) = lu(k,2095) - lu(k,1688) * lu(k,2088) - lu(k,2096) = lu(k,2096) - lu(k,1689) * lu(k,2088) - lu(k,2097) = lu(k,2097) - lu(k,1690) * lu(k,2088) - lu(k,2098) = lu(k,2098) - lu(k,1691) * lu(k,2088) - lu(k,2099) = lu(k,2099) - lu(k,1692) * lu(k,2088) - lu(k,2100) = lu(k,2100) - lu(k,1693) * lu(k,2088) - lu(k,2101) = lu(k,2101) - lu(k,1694) * lu(k,2088) - lu(k,2102) = lu(k,2102) - lu(k,1695) * lu(k,2088) - lu(k,2209) = lu(k,2209) - lu(k,1682) * lu(k,2208) - lu(k,2210) = lu(k,2210) - lu(k,1683) * lu(k,2208) - lu(k,2211) = lu(k,2211) - lu(k,1684) * lu(k,2208) - lu(k,2212) = lu(k,2212) - lu(k,1685) * lu(k,2208) - lu(k,2213) = lu(k,2213) - lu(k,1686) * lu(k,2208) - lu(k,2214) = lu(k,2214) - lu(k,1687) * lu(k,2208) - lu(k,2215) = lu(k,2215) - lu(k,1688) * lu(k,2208) - lu(k,2216) = lu(k,2216) - lu(k,1689) * lu(k,2208) - lu(k,2217) = lu(k,2217) - lu(k,1690) * lu(k,2208) - lu(k,2218) = lu(k,2218) - lu(k,1691) * lu(k,2208) - lu(k,2219) = lu(k,2219) - lu(k,1692) * lu(k,2208) - lu(k,2220) = lu(k,2220) - lu(k,1693) * lu(k,2208) - lu(k,2221) = lu(k,2221) - lu(k,1694) * lu(k,2208) - lu(k,2222) = lu(k,2222) - lu(k,1695) * lu(k,2208) - lu(k,2255) = lu(k,2255) - lu(k,1682) * lu(k,2254) - lu(k,2256) = lu(k,2256) - lu(k,1683) * lu(k,2254) - lu(k,2257) = lu(k,2257) - lu(k,1684) * lu(k,2254) - lu(k,2258) = lu(k,2258) - lu(k,1685) * lu(k,2254) - lu(k,2259) = lu(k,2259) - lu(k,1686) * lu(k,2254) - lu(k,2260) = lu(k,2260) - lu(k,1687) * lu(k,2254) - lu(k,2261) = lu(k,2261) - lu(k,1688) * lu(k,2254) - lu(k,2262) = lu(k,2262) - lu(k,1689) * lu(k,2254) - lu(k,2263) = lu(k,2263) - lu(k,1690) * lu(k,2254) - lu(k,2264) = lu(k,2264) - lu(k,1691) * lu(k,2254) - lu(k,2265) = lu(k,2265) - lu(k,1692) * lu(k,2254) - lu(k,2266) = lu(k,2266) - lu(k,1693) * lu(k,2254) - lu(k,2267) = lu(k,2267) - lu(k,1694) * lu(k,2254) - lu(k,2268) = lu(k,2268) - lu(k,1695) * lu(k,2254) - lu(k,2276) = lu(k,2276) - lu(k,1682) * lu(k,2275) - lu(k,2277) = lu(k,2277) - lu(k,1683) * lu(k,2275) - lu(k,2278) = lu(k,2278) - lu(k,1684) * lu(k,2275) - lu(k,2279) = lu(k,2279) - lu(k,1685) * lu(k,2275) - lu(k,2280) = lu(k,2280) - lu(k,1686) * lu(k,2275) - lu(k,2281) = lu(k,2281) - lu(k,1687) * lu(k,2275) - lu(k,2282) = lu(k,2282) - lu(k,1688) * lu(k,2275) - lu(k,2283) = lu(k,2283) - lu(k,1689) * lu(k,2275) - lu(k,2284) = lu(k,2284) - lu(k,1690) * lu(k,2275) - lu(k,2285) = lu(k,2285) - lu(k,1691) * lu(k,2275) - lu(k,2286) = lu(k,2286) - lu(k,1692) * lu(k,2275) - lu(k,2287) = lu(k,2287) - lu(k,1693) * lu(k,2275) - lu(k,2288) = lu(k,2288) - lu(k,1694) * lu(k,2275) - lu(k,2289) = lu(k,2289) - lu(k,1695) * lu(k,2275) - lu(k,2299) = lu(k,2299) - lu(k,1682) * lu(k,2298) - lu(k,2300) = lu(k,2300) - lu(k,1683) * lu(k,2298) - lu(k,2301) = lu(k,2301) - lu(k,1684) * lu(k,2298) - lu(k,2302) = lu(k,2302) - lu(k,1685) * lu(k,2298) - lu(k,2303) = lu(k,2303) - lu(k,1686) * lu(k,2298) - lu(k,2304) = lu(k,2304) - lu(k,1687) * lu(k,2298) - lu(k,2305) = lu(k,2305) - lu(k,1688) * lu(k,2298) - lu(k,2306) = lu(k,2306) - lu(k,1689) * lu(k,2298) - lu(k,2307) = lu(k,2307) - lu(k,1690) * lu(k,2298) - lu(k,2308) = lu(k,2308) - lu(k,1691) * lu(k,2298) - lu(k,2309) = lu(k,2309) - lu(k,1692) * lu(k,2298) - lu(k,2310) = lu(k,2310) - lu(k,1693) * lu(k,2298) - lu(k,2311) = lu(k,2311) - lu(k,1694) * lu(k,2298) - lu(k,2312) = lu(k,2312) - lu(k,1695) * lu(k,2298) - lu(k,2351) = lu(k,2351) - lu(k,1682) * lu(k,2350) - lu(k,2352) = lu(k,2352) - lu(k,1683) * lu(k,2350) - lu(k,2353) = lu(k,2353) - lu(k,1684) * lu(k,2350) - lu(k,2354) = lu(k,2354) - lu(k,1685) * lu(k,2350) - lu(k,2355) = lu(k,2355) - lu(k,1686) * lu(k,2350) - lu(k,2356) = lu(k,2356) - lu(k,1687) * lu(k,2350) - lu(k,2357) = lu(k,2357) - lu(k,1688) * lu(k,2350) - lu(k,2358) = lu(k,2358) - lu(k,1689) * lu(k,2350) - lu(k,2359) = lu(k,2359) - lu(k,1690) * lu(k,2350) - lu(k,2360) = lu(k,2360) - lu(k,1691) * lu(k,2350) - lu(k,2361) = lu(k,2361) - lu(k,1692) * lu(k,2350) - lu(k,2362) = lu(k,2362) - lu(k,1693) * lu(k,2350) - lu(k,2363) = lu(k,2363) - lu(k,1694) * lu(k,2350) - lu(k,2364) = lu(k,2364) - lu(k,1695) * lu(k,2350) - lu(k,2415) = lu(k,2415) - lu(k,1682) * lu(k,2414) - lu(k,2416) = lu(k,2416) - lu(k,1683) * lu(k,2414) - lu(k,2417) = lu(k,2417) - lu(k,1684) * lu(k,2414) - lu(k,2418) = lu(k,2418) - lu(k,1685) * lu(k,2414) - lu(k,2419) = lu(k,2419) - lu(k,1686) * lu(k,2414) - lu(k,2420) = lu(k,2420) - lu(k,1687) * lu(k,2414) - lu(k,2421) = lu(k,2421) - lu(k,1688) * lu(k,2414) - lu(k,2422) = lu(k,2422) - lu(k,1689) * lu(k,2414) - lu(k,2423) = lu(k,2423) - lu(k,1690) * lu(k,2414) - lu(k,2424) = lu(k,2424) - lu(k,1691) * lu(k,2414) - lu(k,2425) = lu(k,2425) - lu(k,1692) * lu(k,2414) - lu(k,2426) = lu(k,2426) - lu(k,1693) * lu(k,2414) - lu(k,2427) = lu(k,2427) - lu(k,1694) * lu(k,2414) - lu(k,2428) = lu(k,2428) - lu(k,1695) * lu(k,2414) - lu(k,2458) = lu(k,2458) - lu(k,1682) * lu(k,2457) - lu(k,2459) = lu(k,2459) - lu(k,1683) * lu(k,2457) - lu(k,2460) = lu(k,2460) - lu(k,1684) * lu(k,2457) - lu(k,2461) = lu(k,2461) - lu(k,1685) * lu(k,2457) - lu(k,2462) = lu(k,2462) - lu(k,1686) * lu(k,2457) - lu(k,2463) = lu(k,2463) - lu(k,1687) * lu(k,2457) - lu(k,2464) = lu(k,2464) - lu(k,1688) * lu(k,2457) - lu(k,2465) = lu(k,2465) - lu(k,1689) * lu(k,2457) - lu(k,2466) = lu(k,2466) - lu(k,1690) * lu(k,2457) - lu(k,2467) = lu(k,2467) - lu(k,1691) * lu(k,2457) - lu(k,2468) = lu(k,2468) - lu(k,1692) * lu(k,2457) - lu(k,2469) = lu(k,2469) - lu(k,1693) * lu(k,2457) - lu(k,2470) = lu(k,2470) - lu(k,1694) * lu(k,2457) - lu(k,2471) = lu(k,2471) - lu(k,1695) * lu(k,2457) - lu(k,2484) = lu(k,2484) - lu(k,1682) * lu(k,2483) - lu(k,2485) = lu(k,2485) - lu(k,1683) * lu(k,2483) - lu(k,2486) = lu(k,2486) - lu(k,1684) * lu(k,2483) - lu(k,2487) = lu(k,2487) - lu(k,1685) * lu(k,2483) - lu(k,2488) = lu(k,2488) - lu(k,1686) * lu(k,2483) - lu(k,2489) = lu(k,2489) - lu(k,1687) * lu(k,2483) - lu(k,2490) = lu(k,2490) - lu(k,1688) * lu(k,2483) - lu(k,2491) = lu(k,2491) - lu(k,1689) * lu(k,2483) - lu(k,2492) = lu(k,2492) - lu(k,1690) * lu(k,2483) - lu(k,2493) = lu(k,2493) - lu(k,1691) * lu(k,2483) - lu(k,2494) = lu(k,2494) - lu(k,1692) * lu(k,2483) - lu(k,2495) = lu(k,2495) - lu(k,1693) * lu(k,2483) - lu(k,2496) = lu(k,2496) - lu(k,1694) * lu(k,2483) - lu(k,2497) = lu(k,2497) - lu(k,1695) * lu(k,2483) - lu(k,2511) = lu(k,2511) - lu(k,1682) * lu(k,2510) - lu(k,2512) = lu(k,2512) - lu(k,1683) * lu(k,2510) - lu(k,2513) = lu(k,2513) - lu(k,1684) * lu(k,2510) - lu(k,2514) = lu(k,2514) - lu(k,1685) * lu(k,2510) - lu(k,2515) = lu(k,2515) - lu(k,1686) * lu(k,2510) - lu(k,2516) = lu(k,2516) - lu(k,1687) * lu(k,2510) - lu(k,2517) = lu(k,2517) - lu(k,1688) * lu(k,2510) - lu(k,2518) = lu(k,2518) - lu(k,1689) * lu(k,2510) - lu(k,2519) = lu(k,2519) - lu(k,1690) * lu(k,2510) - lu(k,2520) = lu(k,2520) - lu(k,1691) * lu(k,2510) - lu(k,2521) = lu(k,2521) - lu(k,1692) * lu(k,2510) - lu(k,2522) = lu(k,2522) - lu(k,1693) * lu(k,2510) - lu(k,2523) = lu(k,2523) - lu(k,1694) * lu(k,2510) - lu(k,2524) = lu(k,2524) - lu(k,1695) * lu(k,2510) + lu(k,1587) = 1._r8 / lu(k,1587) + lu(k,1588) = lu(k,1588) * lu(k,1587) + lu(k,1589) = lu(k,1589) * lu(k,1587) + lu(k,1590) = lu(k,1590) * lu(k,1587) + lu(k,1591) = lu(k,1591) * lu(k,1587) + lu(k,1592) = lu(k,1592) * lu(k,1587) + lu(k,1593) = lu(k,1593) * lu(k,1587) + lu(k,1594) = lu(k,1594) * lu(k,1587) + lu(k,1595) = lu(k,1595) * lu(k,1587) + lu(k,1596) = lu(k,1596) * lu(k,1587) + lu(k,1597) = lu(k,1597) * lu(k,1587) + lu(k,1598) = lu(k,1598) * lu(k,1587) + lu(k,1599) = lu(k,1599) * lu(k,1587) + lu(k,1600) = lu(k,1600) * lu(k,1587) + lu(k,1610) = lu(k,1610) - lu(k,1588) * lu(k,1609) + lu(k,1611) = lu(k,1611) - lu(k,1589) * lu(k,1609) + lu(k,1612) = lu(k,1612) - lu(k,1590) * lu(k,1609) + lu(k,1613) = lu(k,1613) - lu(k,1591) * lu(k,1609) + lu(k,1614) = lu(k,1614) - lu(k,1592) * lu(k,1609) + lu(k,1615) = lu(k,1615) - lu(k,1593) * lu(k,1609) + lu(k,1616) = lu(k,1616) - lu(k,1594) * lu(k,1609) + lu(k,1617) = lu(k,1617) - lu(k,1595) * lu(k,1609) + lu(k,1618) = lu(k,1618) - lu(k,1596) * lu(k,1609) + lu(k,1620) = lu(k,1620) - lu(k,1597) * lu(k,1609) + lu(k,1622) = lu(k,1622) - lu(k,1598) * lu(k,1609) + lu(k,1623) = lu(k,1623) - lu(k,1599) * lu(k,1609) + lu(k,1624) = lu(k,1624) - lu(k,1600) * lu(k,1609) + lu(k,1633) = lu(k,1633) - lu(k,1588) * lu(k,1632) + lu(k,1635) = lu(k,1635) - lu(k,1589) * lu(k,1632) + lu(k,1636) = lu(k,1636) - lu(k,1590) * lu(k,1632) + lu(k,1637) = lu(k,1637) - lu(k,1591) * lu(k,1632) + lu(k,1638) = lu(k,1638) - lu(k,1592) * lu(k,1632) + lu(k,1639) = lu(k,1639) - lu(k,1593) * lu(k,1632) + lu(k,1640) = lu(k,1640) - lu(k,1594) * lu(k,1632) + lu(k,1641) = lu(k,1641) - lu(k,1595) * lu(k,1632) + lu(k,1643) = lu(k,1643) - lu(k,1596) * lu(k,1632) + lu(k,1645) = lu(k,1645) - lu(k,1597) * lu(k,1632) + lu(k,1647) = lu(k,1647) - lu(k,1598) * lu(k,1632) + lu(k,1648) = lu(k,1648) - lu(k,1599) * lu(k,1632) + lu(k,1649) = lu(k,1649) - lu(k,1600) * lu(k,1632) + lu(k,1678) = lu(k,1678) - lu(k,1588) * lu(k,1677) + lu(k,1680) = lu(k,1680) - lu(k,1589) * lu(k,1677) + lu(k,1681) = lu(k,1681) - lu(k,1590) * lu(k,1677) + lu(k,1682) = lu(k,1682) - lu(k,1591) * lu(k,1677) + lu(k,1683) = lu(k,1683) - lu(k,1592) * lu(k,1677) + lu(k,1684) = lu(k,1684) - lu(k,1593) * lu(k,1677) + lu(k,1685) = lu(k,1685) - lu(k,1594) * lu(k,1677) + lu(k,1686) = lu(k,1686) - lu(k,1595) * lu(k,1677) + lu(k,1688) = lu(k,1688) - lu(k,1596) * lu(k,1677) + lu(k,1690) = lu(k,1690) - lu(k,1597) * lu(k,1677) + lu(k,1692) = lu(k,1692) - lu(k,1598) * lu(k,1677) + lu(k,1693) = lu(k,1693) - lu(k,1599) * lu(k,1677) + lu(k,1694) = lu(k,1694) - lu(k,1600) * lu(k,1677) + lu(k,1851) = lu(k,1851) - lu(k,1588) * lu(k,1850) + lu(k,1853) = lu(k,1853) - lu(k,1589) * lu(k,1850) + lu(k,1854) = lu(k,1854) - lu(k,1590) * lu(k,1850) + lu(k,1855) = lu(k,1855) - lu(k,1591) * lu(k,1850) + lu(k,1856) = lu(k,1856) - lu(k,1592) * lu(k,1850) + lu(k,1857) = lu(k,1857) - lu(k,1593) * lu(k,1850) + lu(k,1858) = lu(k,1858) - lu(k,1594) * lu(k,1850) + lu(k,1859) = lu(k,1859) - lu(k,1595) * lu(k,1850) + lu(k,1861) = lu(k,1861) - lu(k,1596) * lu(k,1850) + lu(k,1863) = lu(k,1863) - lu(k,1597) * lu(k,1850) + lu(k,1865) = lu(k,1865) - lu(k,1598) * lu(k,1850) + lu(k,1866) = lu(k,1866) - lu(k,1599) * lu(k,1850) + lu(k,1867) = lu(k,1867) - lu(k,1600) * lu(k,1850) + lu(k,1958) = lu(k,1958) - lu(k,1588) * lu(k,1957) + lu(k,1960) = lu(k,1960) - lu(k,1589) * lu(k,1957) + lu(k,1961) = lu(k,1961) - lu(k,1590) * lu(k,1957) + lu(k,1962) = lu(k,1962) - lu(k,1591) * lu(k,1957) + lu(k,1963) = lu(k,1963) - lu(k,1592) * lu(k,1957) + lu(k,1964) = lu(k,1964) - lu(k,1593) * lu(k,1957) + lu(k,1965) = lu(k,1965) - lu(k,1594) * lu(k,1957) + lu(k,1966) = lu(k,1966) - lu(k,1595) * lu(k,1957) + lu(k,1968) = lu(k,1968) - lu(k,1596) * lu(k,1957) + lu(k,1970) = lu(k,1970) - lu(k,1597) * lu(k,1957) + lu(k,1972) = lu(k,1972) - lu(k,1598) * lu(k,1957) + lu(k,1973) = lu(k,1973) - lu(k,1599) * lu(k,1957) + lu(k,1974) = lu(k,1974) - lu(k,1600) * lu(k,1957) + lu(k,2004) = lu(k,2004) - lu(k,1588) * lu(k,2003) + lu(k,2006) = lu(k,2006) - lu(k,1589) * lu(k,2003) + lu(k,2007) = lu(k,2007) - lu(k,1590) * lu(k,2003) + lu(k,2008) = lu(k,2008) - lu(k,1591) * lu(k,2003) + lu(k,2009) = lu(k,2009) - lu(k,1592) * lu(k,2003) + lu(k,2010) = lu(k,2010) - lu(k,1593) * lu(k,2003) + lu(k,2011) = lu(k,2011) - lu(k,1594) * lu(k,2003) + lu(k,2012) = lu(k,2012) - lu(k,1595) * lu(k,2003) + lu(k,2014) = lu(k,2014) - lu(k,1596) * lu(k,2003) + lu(k,2016) = lu(k,2016) - lu(k,1597) * lu(k,2003) + lu(k,2018) = lu(k,2018) - lu(k,1598) * lu(k,2003) + lu(k,2019) = lu(k,2019) - lu(k,1599) * lu(k,2003) + lu(k,2020) = lu(k,2020) - lu(k,1600) * lu(k,2003) + lu(k,2047) = lu(k,2047) - lu(k,1588) * lu(k,2046) + lu(k,2049) = lu(k,2049) - lu(k,1589) * lu(k,2046) + lu(k,2050) = lu(k,2050) - lu(k,1590) * lu(k,2046) + lu(k,2051) = lu(k,2051) - lu(k,1591) * lu(k,2046) + lu(k,2052) = lu(k,2052) - lu(k,1592) * lu(k,2046) + lu(k,2053) = lu(k,2053) - lu(k,1593) * lu(k,2046) + lu(k,2054) = lu(k,2054) - lu(k,1594) * lu(k,2046) + lu(k,2055) = lu(k,2055) - lu(k,1595) * lu(k,2046) + lu(k,2057) = lu(k,2057) - lu(k,1596) * lu(k,2046) + lu(k,2059) = lu(k,2059) - lu(k,1597) * lu(k,2046) + lu(k,2061) = lu(k,2061) - lu(k,1598) * lu(k,2046) + lu(k,2062) = lu(k,2062) - lu(k,1599) * lu(k,2046) + lu(k,2063) = lu(k,2063) - lu(k,1600) * lu(k,2046) + lu(k,2111) = lu(k,2111) - lu(k,1588) * lu(k,2110) + lu(k,2113) = lu(k,2113) - lu(k,1589) * lu(k,2110) + lu(k,2114) = lu(k,2114) - lu(k,1590) * lu(k,2110) + lu(k,2115) = lu(k,2115) - lu(k,1591) * lu(k,2110) + lu(k,2116) = lu(k,2116) - lu(k,1592) * lu(k,2110) + lu(k,2117) = lu(k,2117) - lu(k,1593) * lu(k,2110) + lu(k,2118) = lu(k,2118) - lu(k,1594) * lu(k,2110) + lu(k,2119) = lu(k,2119) - lu(k,1595) * lu(k,2110) + lu(k,2121) = lu(k,2121) - lu(k,1596) * lu(k,2110) + lu(k,2123) = lu(k,2123) - lu(k,1597) * lu(k,2110) + lu(k,2125) = lu(k,2125) - lu(k,1598) * lu(k,2110) + lu(k,2126) = lu(k,2126) - lu(k,1599) * lu(k,2110) + lu(k,2127) = lu(k,2127) - lu(k,1600) * lu(k,2110) + lu(k,2132) = lu(k,2132) - lu(k,1588) * lu(k,2131) + lu(k,2134) = lu(k,2134) - lu(k,1589) * lu(k,2131) + lu(k,2135) = lu(k,2135) - lu(k,1590) * lu(k,2131) + lu(k,2136) = lu(k,2136) - lu(k,1591) * lu(k,2131) + lu(k,2137) = lu(k,2137) - lu(k,1592) * lu(k,2131) + lu(k,2138) = lu(k,2138) - lu(k,1593) * lu(k,2131) + lu(k,2139) = lu(k,2139) - lu(k,1594) * lu(k,2131) + lu(k,2140) = lu(k,2140) - lu(k,1595) * lu(k,2131) + lu(k,2142) = lu(k,2142) - lu(k,1596) * lu(k,2131) + lu(k,2144) = lu(k,2144) - lu(k,1597) * lu(k,2131) + lu(k,2146) = lu(k,2146) - lu(k,1598) * lu(k,2131) + lu(k,2147) = lu(k,2147) - lu(k,1599) * lu(k,2131) + lu(k,2148) = lu(k,2148) - lu(k,1600) * lu(k,2131) + lu(k,2184) = - lu(k,1588) * lu(k,2183) + lu(k,2186) = lu(k,2186) - lu(k,1589) * lu(k,2183) + lu(k,2187) = lu(k,2187) - lu(k,1590) * lu(k,2183) + lu(k,2188) = lu(k,2188) - lu(k,1591) * lu(k,2183) + lu(k,2189) = lu(k,2189) - lu(k,1592) * lu(k,2183) + lu(k,2190) = lu(k,2190) - lu(k,1593) * lu(k,2183) + lu(k,2191) = lu(k,2191) - lu(k,1594) * lu(k,2183) + lu(k,2192) = lu(k,2192) - lu(k,1595) * lu(k,2183) + lu(k,2194) = lu(k,2194) - lu(k,1596) * lu(k,2183) + lu(k,2196) = lu(k,2196) - lu(k,1597) * lu(k,2183) + lu(k,2198) = lu(k,2198) - lu(k,1598) * lu(k,2183) + lu(k,2199) = lu(k,2199) - lu(k,1599) * lu(k,2183) + lu(k,2200) = lu(k,2200) - lu(k,1600) * lu(k,2183) + lu(k,2227) = lu(k,2227) - lu(k,1588) * lu(k,2226) + lu(k,2229) = lu(k,2229) - lu(k,1589) * lu(k,2226) + lu(k,2230) = lu(k,2230) - lu(k,1590) * lu(k,2226) + lu(k,2231) = lu(k,2231) - lu(k,1591) * lu(k,2226) + lu(k,2232) = lu(k,2232) - lu(k,1592) * lu(k,2226) + lu(k,2233) = lu(k,2233) - lu(k,1593) * lu(k,2226) + lu(k,2234) = lu(k,2234) - lu(k,1594) * lu(k,2226) + lu(k,2235) = lu(k,2235) - lu(k,1595) * lu(k,2226) + lu(k,2237) = lu(k,2237) - lu(k,1596) * lu(k,2226) + lu(k,2239) = lu(k,2239) - lu(k,1597) * lu(k,2226) + lu(k,2241) = lu(k,2241) - lu(k,1598) * lu(k,2226) + lu(k,2242) = lu(k,2242) - lu(k,1599) * lu(k,2226) + lu(k,2243) = lu(k,2243) - lu(k,1600) * lu(k,2226) + lu(k,2250) = lu(k,2250) - lu(k,1588) * lu(k,2249) + lu(k,2252) = lu(k,2252) - lu(k,1589) * lu(k,2249) + lu(k,2253) = lu(k,2253) - lu(k,1590) * lu(k,2249) + lu(k,2254) = lu(k,2254) - lu(k,1591) * lu(k,2249) + lu(k,2255) = lu(k,2255) - lu(k,1592) * lu(k,2249) + lu(k,2256) = lu(k,2256) - lu(k,1593) * lu(k,2249) + lu(k,2257) = lu(k,2257) - lu(k,1594) * lu(k,2249) + lu(k,2258) = lu(k,2258) - lu(k,1595) * lu(k,2249) + lu(k,2260) = lu(k,2260) - lu(k,1596) * lu(k,2249) + lu(k,2262) = lu(k,2262) - lu(k,1597) * lu(k,2249) + lu(k,2264) = lu(k,2264) - lu(k,1598) * lu(k,2249) + lu(k,2265) = lu(k,2265) - lu(k,1599) * lu(k,2249) + lu(k,2266) = lu(k,2266) - lu(k,1600) * lu(k,2249) + lu(k,2370) = lu(k,2370) - lu(k,1588) * lu(k,2369) + lu(k,2372) = lu(k,2372) - lu(k,1589) * lu(k,2369) + lu(k,2373) = lu(k,2373) - lu(k,1590) * lu(k,2369) + lu(k,2374) = lu(k,2374) - lu(k,1591) * lu(k,2369) + lu(k,2375) = lu(k,2375) - lu(k,1592) * lu(k,2369) + lu(k,2376) = lu(k,2376) - lu(k,1593) * lu(k,2369) + lu(k,2377) = lu(k,2377) - lu(k,1594) * lu(k,2369) + lu(k,2378) = lu(k,2378) - lu(k,1595) * lu(k,2369) + lu(k,2380) = lu(k,2380) - lu(k,1596) * lu(k,2369) + lu(k,2382) = lu(k,2382) - lu(k,1597) * lu(k,2369) + lu(k,2384) = lu(k,2384) - lu(k,1598) * lu(k,2369) + lu(k,2385) = lu(k,2385) - lu(k,1599) * lu(k,2369) + lu(k,2386) = lu(k,2386) - lu(k,1600) * lu(k,2369) + lu(k,2430) = lu(k,2430) - lu(k,1588) * lu(k,2429) + lu(k,2432) = lu(k,2432) - lu(k,1589) * lu(k,2429) + lu(k,2433) = lu(k,2433) - lu(k,1590) * lu(k,2429) + lu(k,2434) = lu(k,2434) - lu(k,1591) * lu(k,2429) + lu(k,2435) = lu(k,2435) - lu(k,1592) * lu(k,2429) + lu(k,2436) = lu(k,2436) - lu(k,1593) * lu(k,2429) + lu(k,2437) = lu(k,2437) - lu(k,1594) * lu(k,2429) + lu(k,2438) = lu(k,2438) - lu(k,1595) * lu(k,2429) + lu(k,2440) = lu(k,2440) - lu(k,1596) * lu(k,2429) + lu(k,2442) = lu(k,2442) - lu(k,1597) * lu(k,2429) + lu(k,2444) = lu(k,2444) - lu(k,1598) * lu(k,2429) + lu(k,2445) = lu(k,2445) - lu(k,1599) * lu(k,2429) + lu(k,2446) = lu(k,2446) - lu(k,1600) * lu(k,2429) + lu(k,2456) = lu(k,2456) - lu(k,1588) * lu(k,2455) + lu(k,2458) = lu(k,2458) - lu(k,1589) * lu(k,2455) + lu(k,2459) = lu(k,2459) - lu(k,1590) * lu(k,2455) + lu(k,2460) = lu(k,2460) - lu(k,1591) * lu(k,2455) + lu(k,2461) = lu(k,2461) - lu(k,1592) * lu(k,2455) + lu(k,2462) = lu(k,2462) - lu(k,1593) * lu(k,2455) + lu(k,2463) = lu(k,2463) - lu(k,1594) * lu(k,2455) + lu(k,2464) = lu(k,2464) - lu(k,1595) * lu(k,2455) + lu(k,2466) = lu(k,2466) - lu(k,1596) * lu(k,2455) + lu(k,2468) = lu(k,2468) - lu(k,1597) * lu(k,2455) + lu(k,2470) = lu(k,2470) - lu(k,1598) * lu(k,2455) + lu(k,2471) = lu(k,2471) - lu(k,1599) * lu(k,2455) + lu(k,2472) = lu(k,2472) - lu(k,1600) * lu(k,2455) + lu(k,2484) = lu(k,2484) - lu(k,1588) * lu(k,2483) + lu(k,2485) = lu(k,2485) - lu(k,1589) * lu(k,2483) + lu(k,2486) = lu(k,2486) - lu(k,1590) * lu(k,2483) + lu(k,2487) = lu(k,2487) - lu(k,1591) * lu(k,2483) + lu(k,2488) = lu(k,2488) - lu(k,1592) * lu(k,2483) + lu(k,2489) = lu(k,2489) - lu(k,1593) * lu(k,2483) + lu(k,2490) = lu(k,2490) - lu(k,1594) * lu(k,2483) + lu(k,2491) = lu(k,2491) - lu(k,1595) * lu(k,2483) + lu(k,2493) = lu(k,2493) - lu(k,1596) * lu(k,2483) + lu(k,2495) = lu(k,2495) - lu(k,1597) * lu(k,2483) + lu(k,2497) = lu(k,2497) - lu(k,1598) * lu(k,2483) + lu(k,2498) = lu(k,2498) - lu(k,1599) * lu(k,2483) + lu(k,2499) = lu(k,2499) - lu(k,1600) * lu(k,2483) + lu(k,2510) = lu(k,2510) - lu(k,1588) * lu(k,2509) + lu(k,2512) = lu(k,2512) - lu(k,1589) * lu(k,2509) + lu(k,2513) = lu(k,2513) - lu(k,1590) * lu(k,2509) + lu(k,2514) = lu(k,2514) - lu(k,1591) * lu(k,2509) + lu(k,2515) = lu(k,2515) - lu(k,1592) * lu(k,2509) + lu(k,2516) = lu(k,2516) - lu(k,1593) * lu(k,2509) + lu(k,2517) = lu(k,2517) - lu(k,1594) * lu(k,2509) + lu(k,2518) = lu(k,2518) - lu(k,1595) * lu(k,2509) + lu(k,2520) = lu(k,2520) - lu(k,1596) * lu(k,2509) + lu(k,2522) = lu(k,2522) - lu(k,1597) * lu(k,2509) + lu(k,2524) = lu(k,2524) - lu(k,1598) * lu(k,2509) + lu(k,2525) = lu(k,2525) - lu(k,1599) * lu(k,2509) + lu(k,2526) = lu(k,2526) - lu(k,1600) * lu(k,2509) + lu(k,1610) = 1._r8 / lu(k,1610) + lu(k,1611) = lu(k,1611) * lu(k,1610) + lu(k,1612) = lu(k,1612) * lu(k,1610) + lu(k,1613) = lu(k,1613) * lu(k,1610) + lu(k,1614) = lu(k,1614) * lu(k,1610) + lu(k,1615) = lu(k,1615) * lu(k,1610) + lu(k,1616) = lu(k,1616) * lu(k,1610) + lu(k,1617) = lu(k,1617) * lu(k,1610) + lu(k,1618) = lu(k,1618) * lu(k,1610) + lu(k,1619) = lu(k,1619) * lu(k,1610) + lu(k,1620) = lu(k,1620) * lu(k,1610) + lu(k,1621) = lu(k,1621) * lu(k,1610) + lu(k,1622) = lu(k,1622) * lu(k,1610) + lu(k,1623) = lu(k,1623) * lu(k,1610) + lu(k,1624) = lu(k,1624) * lu(k,1610) + lu(k,1635) = lu(k,1635) - lu(k,1611) * lu(k,1633) + lu(k,1636) = lu(k,1636) - lu(k,1612) * lu(k,1633) + lu(k,1637) = lu(k,1637) - lu(k,1613) * lu(k,1633) + lu(k,1638) = lu(k,1638) - lu(k,1614) * lu(k,1633) + lu(k,1639) = lu(k,1639) - lu(k,1615) * lu(k,1633) + lu(k,1640) = lu(k,1640) - lu(k,1616) * lu(k,1633) + lu(k,1641) = lu(k,1641) - lu(k,1617) * lu(k,1633) + lu(k,1643) = lu(k,1643) - lu(k,1618) * lu(k,1633) + lu(k,1644) = lu(k,1644) - lu(k,1619) * lu(k,1633) + lu(k,1645) = lu(k,1645) - lu(k,1620) * lu(k,1633) + lu(k,1646) = lu(k,1646) - lu(k,1621) * lu(k,1633) + lu(k,1647) = lu(k,1647) - lu(k,1622) * lu(k,1633) + lu(k,1648) = lu(k,1648) - lu(k,1623) * lu(k,1633) + lu(k,1649) = lu(k,1649) - lu(k,1624) * lu(k,1633) + lu(k,1680) = lu(k,1680) - lu(k,1611) * lu(k,1678) + lu(k,1681) = lu(k,1681) - lu(k,1612) * lu(k,1678) + lu(k,1682) = lu(k,1682) - lu(k,1613) * lu(k,1678) + lu(k,1683) = lu(k,1683) - lu(k,1614) * lu(k,1678) + lu(k,1684) = lu(k,1684) - lu(k,1615) * lu(k,1678) + lu(k,1685) = lu(k,1685) - lu(k,1616) * lu(k,1678) + lu(k,1686) = lu(k,1686) - lu(k,1617) * lu(k,1678) + lu(k,1688) = lu(k,1688) - lu(k,1618) * lu(k,1678) + lu(k,1689) = lu(k,1689) - lu(k,1619) * lu(k,1678) + lu(k,1690) = lu(k,1690) - lu(k,1620) * lu(k,1678) + lu(k,1691) = lu(k,1691) - lu(k,1621) * lu(k,1678) + lu(k,1692) = lu(k,1692) - lu(k,1622) * lu(k,1678) + lu(k,1693) = lu(k,1693) - lu(k,1623) * lu(k,1678) + lu(k,1694) = lu(k,1694) - lu(k,1624) * lu(k,1678) + lu(k,1853) = lu(k,1853) - lu(k,1611) * lu(k,1851) + lu(k,1854) = lu(k,1854) - lu(k,1612) * lu(k,1851) + lu(k,1855) = lu(k,1855) - lu(k,1613) * lu(k,1851) + lu(k,1856) = lu(k,1856) - lu(k,1614) * lu(k,1851) + lu(k,1857) = lu(k,1857) - lu(k,1615) * lu(k,1851) + lu(k,1858) = lu(k,1858) - lu(k,1616) * lu(k,1851) + lu(k,1859) = lu(k,1859) - lu(k,1617) * lu(k,1851) + lu(k,1861) = lu(k,1861) - lu(k,1618) * lu(k,1851) + lu(k,1862) = lu(k,1862) - lu(k,1619) * lu(k,1851) + lu(k,1863) = lu(k,1863) - lu(k,1620) * lu(k,1851) + lu(k,1864) = lu(k,1864) - lu(k,1621) * lu(k,1851) + lu(k,1865) = lu(k,1865) - lu(k,1622) * lu(k,1851) + lu(k,1866) = lu(k,1866) - lu(k,1623) * lu(k,1851) + lu(k,1867) = lu(k,1867) - lu(k,1624) * lu(k,1851) + lu(k,1960) = lu(k,1960) - lu(k,1611) * lu(k,1958) + lu(k,1961) = lu(k,1961) - lu(k,1612) * lu(k,1958) + lu(k,1962) = lu(k,1962) - lu(k,1613) * lu(k,1958) + lu(k,1963) = lu(k,1963) - lu(k,1614) * lu(k,1958) + lu(k,1964) = lu(k,1964) - lu(k,1615) * lu(k,1958) + lu(k,1965) = lu(k,1965) - lu(k,1616) * lu(k,1958) + lu(k,1966) = lu(k,1966) - lu(k,1617) * lu(k,1958) + lu(k,1968) = lu(k,1968) - lu(k,1618) * lu(k,1958) + lu(k,1969) = lu(k,1969) - lu(k,1619) * lu(k,1958) + lu(k,1970) = lu(k,1970) - lu(k,1620) * lu(k,1958) + lu(k,1971) = lu(k,1971) - lu(k,1621) * lu(k,1958) + lu(k,1972) = lu(k,1972) - lu(k,1622) * lu(k,1958) + lu(k,1973) = lu(k,1973) - lu(k,1623) * lu(k,1958) + lu(k,1974) = lu(k,1974) - lu(k,1624) * lu(k,1958) + lu(k,2006) = lu(k,2006) - lu(k,1611) * lu(k,2004) + lu(k,2007) = lu(k,2007) - lu(k,1612) * lu(k,2004) + lu(k,2008) = lu(k,2008) - lu(k,1613) * lu(k,2004) + lu(k,2009) = lu(k,2009) - lu(k,1614) * lu(k,2004) + lu(k,2010) = lu(k,2010) - lu(k,1615) * lu(k,2004) + lu(k,2011) = lu(k,2011) - lu(k,1616) * lu(k,2004) + lu(k,2012) = lu(k,2012) - lu(k,1617) * lu(k,2004) + lu(k,2014) = lu(k,2014) - lu(k,1618) * lu(k,2004) + lu(k,2015) = lu(k,2015) - lu(k,1619) * lu(k,2004) + lu(k,2016) = lu(k,2016) - lu(k,1620) * lu(k,2004) + lu(k,2017) = lu(k,2017) - lu(k,1621) * lu(k,2004) + lu(k,2018) = lu(k,2018) - lu(k,1622) * lu(k,2004) + lu(k,2019) = lu(k,2019) - lu(k,1623) * lu(k,2004) + lu(k,2020) = lu(k,2020) - lu(k,1624) * lu(k,2004) + lu(k,2049) = lu(k,2049) - lu(k,1611) * lu(k,2047) + lu(k,2050) = lu(k,2050) - lu(k,1612) * lu(k,2047) + lu(k,2051) = lu(k,2051) - lu(k,1613) * lu(k,2047) + lu(k,2052) = lu(k,2052) - lu(k,1614) * lu(k,2047) + lu(k,2053) = lu(k,2053) - lu(k,1615) * lu(k,2047) + lu(k,2054) = lu(k,2054) - lu(k,1616) * lu(k,2047) + lu(k,2055) = lu(k,2055) - lu(k,1617) * lu(k,2047) + lu(k,2057) = lu(k,2057) - lu(k,1618) * lu(k,2047) + lu(k,2058) = lu(k,2058) - lu(k,1619) * lu(k,2047) + lu(k,2059) = lu(k,2059) - lu(k,1620) * lu(k,2047) + lu(k,2060) = lu(k,2060) - lu(k,1621) * lu(k,2047) + lu(k,2061) = lu(k,2061) - lu(k,1622) * lu(k,2047) + lu(k,2062) = lu(k,2062) - lu(k,1623) * lu(k,2047) + lu(k,2063) = lu(k,2063) - lu(k,1624) * lu(k,2047) + lu(k,2113) = lu(k,2113) - lu(k,1611) * lu(k,2111) + lu(k,2114) = lu(k,2114) - lu(k,1612) * lu(k,2111) + lu(k,2115) = lu(k,2115) - lu(k,1613) * lu(k,2111) + lu(k,2116) = lu(k,2116) - lu(k,1614) * lu(k,2111) + lu(k,2117) = lu(k,2117) - lu(k,1615) * lu(k,2111) + lu(k,2118) = lu(k,2118) - lu(k,1616) * lu(k,2111) + lu(k,2119) = lu(k,2119) - lu(k,1617) * lu(k,2111) + lu(k,2121) = lu(k,2121) - lu(k,1618) * lu(k,2111) + lu(k,2122) = lu(k,2122) - lu(k,1619) * lu(k,2111) + lu(k,2123) = lu(k,2123) - lu(k,1620) * lu(k,2111) + lu(k,2124) = lu(k,2124) - lu(k,1621) * lu(k,2111) + lu(k,2125) = lu(k,2125) - lu(k,1622) * lu(k,2111) + lu(k,2126) = lu(k,2126) - lu(k,1623) * lu(k,2111) + lu(k,2127) = lu(k,2127) - lu(k,1624) * lu(k,2111) + lu(k,2134) = lu(k,2134) - lu(k,1611) * lu(k,2132) + lu(k,2135) = lu(k,2135) - lu(k,1612) * lu(k,2132) + lu(k,2136) = lu(k,2136) - lu(k,1613) * lu(k,2132) + lu(k,2137) = lu(k,2137) - lu(k,1614) * lu(k,2132) + lu(k,2138) = lu(k,2138) - lu(k,1615) * lu(k,2132) + lu(k,2139) = lu(k,2139) - lu(k,1616) * lu(k,2132) + lu(k,2140) = lu(k,2140) - lu(k,1617) * lu(k,2132) + lu(k,2142) = lu(k,2142) - lu(k,1618) * lu(k,2132) + lu(k,2143) = lu(k,2143) - lu(k,1619) * lu(k,2132) + lu(k,2144) = lu(k,2144) - lu(k,1620) * lu(k,2132) + lu(k,2145) = lu(k,2145) - lu(k,1621) * lu(k,2132) + lu(k,2146) = lu(k,2146) - lu(k,1622) * lu(k,2132) + lu(k,2147) = lu(k,2147) - lu(k,1623) * lu(k,2132) + lu(k,2148) = lu(k,2148) - lu(k,1624) * lu(k,2132) + lu(k,2186) = lu(k,2186) - lu(k,1611) * lu(k,2184) + lu(k,2187) = lu(k,2187) - lu(k,1612) * lu(k,2184) + lu(k,2188) = lu(k,2188) - lu(k,1613) * lu(k,2184) + lu(k,2189) = lu(k,2189) - lu(k,1614) * lu(k,2184) + lu(k,2190) = lu(k,2190) - lu(k,1615) * lu(k,2184) + lu(k,2191) = lu(k,2191) - lu(k,1616) * lu(k,2184) + lu(k,2192) = lu(k,2192) - lu(k,1617) * lu(k,2184) + lu(k,2194) = lu(k,2194) - lu(k,1618) * lu(k,2184) + lu(k,2195) = lu(k,2195) - lu(k,1619) * lu(k,2184) + lu(k,2196) = lu(k,2196) - lu(k,1620) * lu(k,2184) + lu(k,2197) = lu(k,2197) - lu(k,1621) * lu(k,2184) + lu(k,2198) = lu(k,2198) - lu(k,1622) * lu(k,2184) + lu(k,2199) = lu(k,2199) - lu(k,1623) * lu(k,2184) + lu(k,2200) = lu(k,2200) - lu(k,1624) * lu(k,2184) + lu(k,2229) = lu(k,2229) - lu(k,1611) * lu(k,2227) + lu(k,2230) = lu(k,2230) - lu(k,1612) * lu(k,2227) + lu(k,2231) = lu(k,2231) - lu(k,1613) * lu(k,2227) + lu(k,2232) = lu(k,2232) - lu(k,1614) * lu(k,2227) + lu(k,2233) = lu(k,2233) - lu(k,1615) * lu(k,2227) + lu(k,2234) = lu(k,2234) - lu(k,1616) * lu(k,2227) + lu(k,2235) = lu(k,2235) - lu(k,1617) * lu(k,2227) + lu(k,2237) = lu(k,2237) - lu(k,1618) * lu(k,2227) + lu(k,2238) = lu(k,2238) - lu(k,1619) * lu(k,2227) + lu(k,2239) = lu(k,2239) - lu(k,1620) * lu(k,2227) + lu(k,2240) = lu(k,2240) - lu(k,1621) * lu(k,2227) + lu(k,2241) = lu(k,2241) - lu(k,1622) * lu(k,2227) + lu(k,2242) = lu(k,2242) - lu(k,1623) * lu(k,2227) + lu(k,2243) = lu(k,2243) - lu(k,1624) * lu(k,2227) + lu(k,2252) = lu(k,2252) - lu(k,1611) * lu(k,2250) + lu(k,2253) = lu(k,2253) - lu(k,1612) * lu(k,2250) + lu(k,2254) = lu(k,2254) - lu(k,1613) * lu(k,2250) + lu(k,2255) = lu(k,2255) - lu(k,1614) * lu(k,2250) + lu(k,2256) = lu(k,2256) - lu(k,1615) * lu(k,2250) + lu(k,2257) = lu(k,2257) - lu(k,1616) * lu(k,2250) + lu(k,2258) = lu(k,2258) - lu(k,1617) * lu(k,2250) + lu(k,2260) = lu(k,2260) - lu(k,1618) * lu(k,2250) + lu(k,2261) = lu(k,2261) - lu(k,1619) * lu(k,2250) + lu(k,2262) = lu(k,2262) - lu(k,1620) * lu(k,2250) + lu(k,2263) = lu(k,2263) - lu(k,1621) * lu(k,2250) + lu(k,2264) = lu(k,2264) - lu(k,1622) * lu(k,2250) + lu(k,2265) = lu(k,2265) - lu(k,1623) * lu(k,2250) + lu(k,2266) = lu(k,2266) - lu(k,1624) * lu(k,2250) + lu(k,2372) = lu(k,2372) - lu(k,1611) * lu(k,2370) + lu(k,2373) = lu(k,2373) - lu(k,1612) * lu(k,2370) + lu(k,2374) = lu(k,2374) - lu(k,1613) * lu(k,2370) + lu(k,2375) = lu(k,2375) - lu(k,1614) * lu(k,2370) + lu(k,2376) = lu(k,2376) - lu(k,1615) * lu(k,2370) + lu(k,2377) = lu(k,2377) - lu(k,1616) * lu(k,2370) + lu(k,2378) = lu(k,2378) - lu(k,1617) * lu(k,2370) + lu(k,2380) = lu(k,2380) - lu(k,1618) * lu(k,2370) + lu(k,2381) = lu(k,2381) - lu(k,1619) * lu(k,2370) + lu(k,2382) = lu(k,2382) - lu(k,1620) * lu(k,2370) + lu(k,2383) = lu(k,2383) - lu(k,1621) * lu(k,2370) + lu(k,2384) = lu(k,2384) - lu(k,1622) * lu(k,2370) + lu(k,2385) = lu(k,2385) - lu(k,1623) * lu(k,2370) + lu(k,2386) = lu(k,2386) - lu(k,1624) * lu(k,2370) + lu(k,2432) = lu(k,2432) - lu(k,1611) * lu(k,2430) + lu(k,2433) = lu(k,2433) - lu(k,1612) * lu(k,2430) + lu(k,2434) = lu(k,2434) - lu(k,1613) * lu(k,2430) + lu(k,2435) = lu(k,2435) - lu(k,1614) * lu(k,2430) + lu(k,2436) = lu(k,2436) - lu(k,1615) * lu(k,2430) + lu(k,2437) = lu(k,2437) - lu(k,1616) * lu(k,2430) + lu(k,2438) = lu(k,2438) - lu(k,1617) * lu(k,2430) + lu(k,2440) = lu(k,2440) - lu(k,1618) * lu(k,2430) + lu(k,2441) = lu(k,2441) - lu(k,1619) * lu(k,2430) + lu(k,2442) = lu(k,2442) - lu(k,1620) * lu(k,2430) + lu(k,2443) = lu(k,2443) - lu(k,1621) * lu(k,2430) + lu(k,2444) = lu(k,2444) - lu(k,1622) * lu(k,2430) + lu(k,2445) = lu(k,2445) - lu(k,1623) * lu(k,2430) + lu(k,2446) = lu(k,2446) - lu(k,1624) * lu(k,2430) + lu(k,2458) = lu(k,2458) - lu(k,1611) * lu(k,2456) + lu(k,2459) = lu(k,2459) - lu(k,1612) * lu(k,2456) + lu(k,2460) = lu(k,2460) - lu(k,1613) * lu(k,2456) + lu(k,2461) = lu(k,2461) - lu(k,1614) * lu(k,2456) + lu(k,2462) = lu(k,2462) - lu(k,1615) * lu(k,2456) + lu(k,2463) = lu(k,2463) - lu(k,1616) * lu(k,2456) + lu(k,2464) = lu(k,2464) - lu(k,1617) * lu(k,2456) + lu(k,2466) = lu(k,2466) - lu(k,1618) * lu(k,2456) + lu(k,2467) = lu(k,2467) - lu(k,1619) * lu(k,2456) + lu(k,2468) = lu(k,2468) - lu(k,1620) * lu(k,2456) + lu(k,2469) = lu(k,2469) - lu(k,1621) * lu(k,2456) + lu(k,2470) = lu(k,2470) - lu(k,1622) * lu(k,2456) + lu(k,2471) = lu(k,2471) - lu(k,1623) * lu(k,2456) + lu(k,2472) = lu(k,2472) - lu(k,1624) * lu(k,2456) + lu(k,2485) = lu(k,2485) - lu(k,1611) * lu(k,2484) + lu(k,2486) = lu(k,2486) - lu(k,1612) * lu(k,2484) + lu(k,2487) = lu(k,2487) - lu(k,1613) * lu(k,2484) + lu(k,2488) = lu(k,2488) - lu(k,1614) * lu(k,2484) + lu(k,2489) = lu(k,2489) - lu(k,1615) * lu(k,2484) + lu(k,2490) = lu(k,2490) - lu(k,1616) * lu(k,2484) + lu(k,2491) = lu(k,2491) - lu(k,1617) * lu(k,2484) + lu(k,2493) = lu(k,2493) - lu(k,1618) * lu(k,2484) + lu(k,2494) = lu(k,2494) - lu(k,1619) * lu(k,2484) + lu(k,2495) = lu(k,2495) - lu(k,1620) * lu(k,2484) + lu(k,2496) = lu(k,2496) - lu(k,1621) * lu(k,2484) + lu(k,2497) = lu(k,2497) - lu(k,1622) * lu(k,2484) + lu(k,2498) = lu(k,2498) - lu(k,1623) * lu(k,2484) + lu(k,2499) = lu(k,2499) - lu(k,1624) * lu(k,2484) + lu(k,2512) = lu(k,2512) - lu(k,1611) * lu(k,2510) + lu(k,2513) = lu(k,2513) - lu(k,1612) * lu(k,2510) + lu(k,2514) = lu(k,2514) - lu(k,1613) * lu(k,2510) + lu(k,2515) = lu(k,2515) - lu(k,1614) * lu(k,2510) + lu(k,2516) = lu(k,2516) - lu(k,1615) * lu(k,2510) + lu(k,2517) = lu(k,2517) - lu(k,1616) * lu(k,2510) + lu(k,2518) = lu(k,2518) - lu(k,1617) * lu(k,2510) + lu(k,2520) = lu(k,2520) - lu(k,1618) * lu(k,2510) + lu(k,2521) = lu(k,2521) - lu(k,1619) * lu(k,2510) + lu(k,2522) = lu(k,2522) - lu(k,1620) * lu(k,2510) + lu(k,2523) = lu(k,2523) - lu(k,1621) * lu(k,2510) + lu(k,2524) = lu(k,2524) - lu(k,1622) * lu(k,2510) + lu(k,2525) = lu(k,2525) - lu(k,1623) * lu(k,2510) + lu(k,2526) = lu(k,2526) - lu(k,1624) * lu(k,2510) + lu(k,1634) = 1._r8 / lu(k,1634) + lu(k,1635) = lu(k,1635) * lu(k,1634) + lu(k,1636) = lu(k,1636) * lu(k,1634) + lu(k,1637) = lu(k,1637) * lu(k,1634) + lu(k,1638) = lu(k,1638) * lu(k,1634) + lu(k,1639) = lu(k,1639) * lu(k,1634) + lu(k,1640) = lu(k,1640) * lu(k,1634) + lu(k,1641) = lu(k,1641) * lu(k,1634) + lu(k,1642) = lu(k,1642) * lu(k,1634) + lu(k,1643) = lu(k,1643) * lu(k,1634) + lu(k,1644) = lu(k,1644) * lu(k,1634) + lu(k,1645) = lu(k,1645) * lu(k,1634) + lu(k,1646) = lu(k,1646) * lu(k,1634) + lu(k,1647) = lu(k,1647) * lu(k,1634) + lu(k,1648) = lu(k,1648) * lu(k,1634) + lu(k,1649) = lu(k,1649) * lu(k,1634) + lu(k,1680) = lu(k,1680) - lu(k,1635) * lu(k,1679) + lu(k,1681) = lu(k,1681) - lu(k,1636) * lu(k,1679) + lu(k,1682) = lu(k,1682) - lu(k,1637) * lu(k,1679) + lu(k,1683) = lu(k,1683) - lu(k,1638) * lu(k,1679) + lu(k,1684) = lu(k,1684) - lu(k,1639) * lu(k,1679) + lu(k,1685) = lu(k,1685) - lu(k,1640) * lu(k,1679) + lu(k,1686) = lu(k,1686) - lu(k,1641) * lu(k,1679) + lu(k,1687) = lu(k,1687) - lu(k,1642) * lu(k,1679) + lu(k,1688) = lu(k,1688) - lu(k,1643) * lu(k,1679) + lu(k,1689) = lu(k,1689) - lu(k,1644) * lu(k,1679) + lu(k,1690) = lu(k,1690) - lu(k,1645) * lu(k,1679) + lu(k,1691) = lu(k,1691) - lu(k,1646) * lu(k,1679) + lu(k,1692) = lu(k,1692) - lu(k,1647) * lu(k,1679) + lu(k,1693) = lu(k,1693) - lu(k,1648) * lu(k,1679) + lu(k,1694) = lu(k,1694) - lu(k,1649) * lu(k,1679) + lu(k,1853) = lu(k,1853) - lu(k,1635) * lu(k,1852) + lu(k,1854) = lu(k,1854) - lu(k,1636) * lu(k,1852) + lu(k,1855) = lu(k,1855) - lu(k,1637) * lu(k,1852) + lu(k,1856) = lu(k,1856) - lu(k,1638) * lu(k,1852) + lu(k,1857) = lu(k,1857) - lu(k,1639) * lu(k,1852) + lu(k,1858) = lu(k,1858) - lu(k,1640) * lu(k,1852) + lu(k,1859) = lu(k,1859) - lu(k,1641) * lu(k,1852) + lu(k,1860) = lu(k,1860) - lu(k,1642) * lu(k,1852) + lu(k,1861) = lu(k,1861) - lu(k,1643) * lu(k,1852) + lu(k,1862) = lu(k,1862) - lu(k,1644) * lu(k,1852) + lu(k,1863) = lu(k,1863) - lu(k,1645) * lu(k,1852) + lu(k,1864) = lu(k,1864) - lu(k,1646) * lu(k,1852) + lu(k,1865) = lu(k,1865) - lu(k,1647) * lu(k,1852) + lu(k,1866) = lu(k,1866) - lu(k,1648) * lu(k,1852) + lu(k,1867) = lu(k,1867) - lu(k,1649) * lu(k,1852) + lu(k,1960) = lu(k,1960) - lu(k,1635) * lu(k,1959) + lu(k,1961) = lu(k,1961) - lu(k,1636) * lu(k,1959) + lu(k,1962) = lu(k,1962) - lu(k,1637) * lu(k,1959) + lu(k,1963) = lu(k,1963) - lu(k,1638) * lu(k,1959) + lu(k,1964) = lu(k,1964) - lu(k,1639) * lu(k,1959) + lu(k,1965) = lu(k,1965) - lu(k,1640) * lu(k,1959) + lu(k,1966) = lu(k,1966) - lu(k,1641) * lu(k,1959) + lu(k,1967) = lu(k,1967) - lu(k,1642) * lu(k,1959) + lu(k,1968) = lu(k,1968) - lu(k,1643) * lu(k,1959) + lu(k,1969) = lu(k,1969) - lu(k,1644) * lu(k,1959) + lu(k,1970) = lu(k,1970) - lu(k,1645) * lu(k,1959) + lu(k,1971) = lu(k,1971) - lu(k,1646) * lu(k,1959) + lu(k,1972) = lu(k,1972) - lu(k,1647) * lu(k,1959) + lu(k,1973) = lu(k,1973) - lu(k,1648) * lu(k,1959) + lu(k,1974) = lu(k,1974) - lu(k,1649) * lu(k,1959) + lu(k,2006) = lu(k,2006) - lu(k,1635) * lu(k,2005) + lu(k,2007) = lu(k,2007) - lu(k,1636) * lu(k,2005) + lu(k,2008) = lu(k,2008) - lu(k,1637) * lu(k,2005) + lu(k,2009) = lu(k,2009) - lu(k,1638) * lu(k,2005) + lu(k,2010) = lu(k,2010) - lu(k,1639) * lu(k,2005) + lu(k,2011) = lu(k,2011) - lu(k,1640) * lu(k,2005) + lu(k,2012) = lu(k,2012) - lu(k,1641) * lu(k,2005) + lu(k,2013) = lu(k,2013) - lu(k,1642) * lu(k,2005) + lu(k,2014) = lu(k,2014) - lu(k,1643) * lu(k,2005) + lu(k,2015) = lu(k,2015) - lu(k,1644) * lu(k,2005) + lu(k,2016) = lu(k,2016) - lu(k,1645) * lu(k,2005) + lu(k,2017) = lu(k,2017) - lu(k,1646) * lu(k,2005) + lu(k,2018) = lu(k,2018) - lu(k,1647) * lu(k,2005) + lu(k,2019) = lu(k,2019) - lu(k,1648) * lu(k,2005) + lu(k,2020) = lu(k,2020) - lu(k,1649) * lu(k,2005) + lu(k,2049) = lu(k,2049) - lu(k,1635) * lu(k,2048) + lu(k,2050) = lu(k,2050) - lu(k,1636) * lu(k,2048) + lu(k,2051) = lu(k,2051) - lu(k,1637) * lu(k,2048) + lu(k,2052) = lu(k,2052) - lu(k,1638) * lu(k,2048) + lu(k,2053) = lu(k,2053) - lu(k,1639) * lu(k,2048) + lu(k,2054) = lu(k,2054) - lu(k,1640) * lu(k,2048) + lu(k,2055) = lu(k,2055) - lu(k,1641) * lu(k,2048) + lu(k,2056) = lu(k,2056) - lu(k,1642) * lu(k,2048) + lu(k,2057) = lu(k,2057) - lu(k,1643) * lu(k,2048) + lu(k,2058) = lu(k,2058) - lu(k,1644) * lu(k,2048) + lu(k,2059) = lu(k,2059) - lu(k,1645) * lu(k,2048) + lu(k,2060) = lu(k,2060) - lu(k,1646) * lu(k,2048) + lu(k,2061) = lu(k,2061) - lu(k,1647) * lu(k,2048) + lu(k,2062) = lu(k,2062) - lu(k,1648) * lu(k,2048) + lu(k,2063) = lu(k,2063) - lu(k,1649) * lu(k,2048) + lu(k,2113) = lu(k,2113) - lu(k,1635) * lu(k,2112) + lu(k,2114) = lu(k,2114) - lu(k,1636) * lu(k,2112) + lu(k,2115) = lu(k,2115) - lu(k,1637) * lu(k,2112) + lu(k,2116) = lu(k,2116) - lu(k,1638) * lu(k,2112) + lu(k,2117) = lu(k,2117) - lu(k,1639) * lu(k,2112) + lu(k,2118) = lu(k,2118) - lu(k,1640) * lu(k,2112) + lu(k,2119) = lu(k,2119) - lu(k,1641) * lu(k,2112) + lu(k,2120) = lu(k,2120) - lu(k,1642) * lu(k,2112) + lu(k,2121) = lu(k,2121) - lu(k,1643) * lu(k,2112) + lu(k,2122) = lu(k,2122) - lu(k,1644) * lu(k,2112) + lu(k,2123) = lu(k,2123) - lu(k,1645) * lu(k,2112) + lu(k,2124) = lu(k,2124) - lu(k,1646) * lu(k,2112) + lu(k,2125) = lu(k,2125) - lu(k,1647) * lu(k,2112) + lu(k,2126) = lu(k,2126) - lu(k,1648) * lu(k,2112) + lu(k,2127) = lu(k,2127) - lu(k,1649) * lu(k,2112) + lu(k,2134) = lu(k,2134) - lu(k,1635) * lu(k,2133) + lu(k,2135) = lu(k,2135) - lu(k,1636) * lu(k,2133) + lu(k,2136) = lu(k,2136) - lu(k,1637) * lu(k,2133) + lu(k,2137) = lu(k,2137) - lu(k,1638) * lu(k,2133) + lu(k,2138) = lu(k,2138) - lu(k,1639) * lu(k,2133) + lu(k,2139) = lu(k,2139) - lu(k,1640) * lu(k,2133) + lu(k,2140) = lu(k,2140) - lu(k,1641) * lu(k,2133) + lu(k,2141) = lu(k,2141) - lu(k,1642) * lu(k,2133) + lu(k,2142) = lu(k,2142) - lu(k,1643) * lu(k,2133) + lu(k,2143) = lu(k,2143) - lu(k,1644) * lu(k,2133) + lu(k,2144) = lu(k,2144) - lu(k,1645) * lu(k,2133) + lu(k,2145) = lu(k,2145) - lu(k,1646) * lu(k,2133) + lu(k,2146) = lu(k,2146) - lu(k,1647) * lu(k,2133) + lu(k,2147) = lu(k,2147) - lu(k,1648) * lu(k,2133) + lu(k,2148) = lu(k,2148) - lu(k,1649) * lu(k,2133) + lu(k,2186) = lu(k,2186) - lu(k,1635) * lu(k,2185) + lu(k,2187) = lu(k,2187) - lu(k,1636) * lu(k,2185) + lu(k,2188) = lu(k,2188) - lu(k,1637) * lu(k,2185) + lu(k,2189) = lu(k,2189) - lu(k,1638) * lu(k,2185) + lu(k,2190) = lu(k,2190) - lu(k,1639) * lu(k,2185) + lu(k,2191) = lu(k,2191) - lu(k,1640) * lu(k,2185) + lu(k,2192) = lu(k,2192) - lu(k,1641) * lu(k,2185) + lu(k,2193) = lu(k,2193) - lu(k,1642) * lu(k,2185) + lu(k,2194) = lu(k,2194) - lu(k,1643) * lu(k,2185) + lu(k,2195) = lu(k,2195) - lu(k,1644) * lu(k,2185) + lu(k,2196) = lu(k,2196) - lu(k,1645) * lu(k,2185) + lu(k,2197) = lu(k,2197) - lu(k,1646) * lu(k,2185) + lu(k,2198) = lu(k,2198) - lu(k,1647) * lu(k,2185) + lu(k,2199) = lu(k,2199) - lu(k,1648) * lu(k,2185) + lu(k,2200) = lu(k,2200) - lu(k,1649) * lu(k,2185) + lu(k,2229) = lu(k,2229) - lu(k,1635) * lu(k,2228) + lu(k,2230) = lu(k,2230) - lu(k,1636) * lu(k,2228) + lu(k,2231) = lu(k,2231) - lu(k,1637) * lu(k,2228) + lu(k,2232) = lu(k,2232) - lu(k,1638) * lu(k,2228) + lu(k,2233) = lu(k,2233) - lu(k,1639) * lu(k,2228) + lu(k,2234) = lu(k,2234) - lu(k,1640) * lu(k,2228) + lu(k,2235) = lu(k,2235) - lu(k,1641) * lu(k,2228) + lu(k,2236) = lu(k,2236) - lu(k,1642) * lu(k,2228) + lu(k,2237) = lu(k,2237) - lu(k,1643) * lu(k,2228) + lu(k,2238) = lu(k,2238) - lu(k,1644) * lu(k,2228) + lu(k,2239) = lu(k,2239) - lu(k,1645) * lu(k,2228) + lu(k,2240) = lu(k,2240) - lu(k,1646) * lu(k,2228) + lu(k,2241) = lu(k,2241) - lu(k,1647) * lu(k,2228) + lu(k,2242) = lu(k,2242) - lu(k,1648) * lu(k,2228) + lu(k,2243) = lu(k,2243) - lu(k,1649) * lu(k,2228) + lu(k,2252) = lu(k,2252) - lu(k,1635) * lu(k,2251) + lu(k,2253) = lu(k,2253) - lu(k,1636) * lu(k,2251) + lu(k,2254) = lu(k,2254) - lu(k,1637) * lu(k,2251) + lu(k,2255) = lu(k,2255) - lu(k,1638) * lu(k,2251) + lu(k,2256) = lu(k,2256) - lu(k,1639) * lu(k,2251) + lu(k,2257) = lu(k,2257) - lu(k,1640) * lu(k,2251) + lu(k,2258) = lu(k,2258) - lu(k,1641) * lu(k,2251) + lu(k,2259) = lu(k,2259) - lu(k,1642) * lu(k,2251) + lu(k,2260) = lu(k,2260) - lu(k,1643) * lu(k,2251) + lu(k,2261) = lu(k,2261) - lu(k,1644) * lu(k,2251) + lu(k,2262) = lu(k,2262) - lu(k,1645) * lu(k,2251) + lu(k,2263) = lu(k,2263) - lu(k,1646) * lu(k,2251) + lu(k,2264) = lu(k,2264) - lu(k,1647) * lu(k,2251) + lu(k,2265) = lu(k,2265) - lu(k,1648) * lu(k,2251) + lu(k,2266) = lu(k,2266) - lu(k,1649) * lu(k,2251) + lu(k,2372) = lu(k,2372) - lu(k,1635) * lu(k,2371) + lu(k,2373) = lu(k,2373) - lu(k,1636) * lu(k,2371) + lu(k,2374) = lu(k,2374) - lu(k,1637) * lu(k,2371) + lu(k,2375) = lu(k,2375) - lu(k,1638) * lu(k,2371) + lu(k,2376) = lu(k,2376) - lu(k,1639) * lu(k,2371) + lu(k,2377) = lu(k,2377) - lu(k,1640) * lu(k,2371) + lu(k,2378) = lu(k,2378) - lu(k,1641) * lu(k,2371) + lu(k,2379) = lu(k,2379) - lu(k,1642) * lu(k,2371) + lu(k,2380) = lu(k,2380) - lu(k,1643) * lu(k,2371) + lu(k,2381) = lu(k,2381) - lu(k,1644) * lu(k,2371) + lu(k,2382) = lu(k,2382) - lu(k,1645) * lu(k,2371) + lu(k,2383) = lu(k,2383) - lu(k,1646) * lu(k,2371) + lu(k,2384) = lu(k,2384) - lu(k,1647) * lu(k,2371) + lu(k,2385) = lu(k,2385) - lu(k,1648) * lu(k,2371) + lu(k,2386) = lu(k,2386) - lu(k,1649) * lu(k,2371) + lu(k,2432) = lu(k,2432) - lu(k,1635) * lu(k,2431) + lu(k,2433) = lu(k,2433) - lu(k,1636) * lu(k,2431) + lu(k,2434) = lu(k,2434) - lu(k,1637) * lu(k,2431) + lu(k,2435) = lu(k,2435) - lu(k,1638) * lu(k,2431) + lu(k,2436) = lu(k,2436) - lu(k,1639) * lu(k,2431) + lu(k,2437) = lu(k,2437) - lu(k,1640) * lu(k,2431) + lu(k,2438) = lu(k,2438) - lu(k,1641) * lu(k,2431) + lu(k,2439) = lu(k,2439) - lu(k,1642) * lu(k,2431) + lu(k,2440) = lu(k,2440) - lu(k,1643) * lu(k,2431) + lu(k,2441) = lu(k,2441) - lu(k,1644) * lu(k,2431) + lu(k,2442) = lu(k,2442) - lu(k,1645) * lu(k,2431) + lu(k,2443) = lu(k,2443) - lu(k,1646) * lu(k,2431) + lu(k,2444) = lu(k,2444) - lu(k,1647) * lu(k,2431) + lu(k,2445) = lu(k,2445) - lu(k,1648) * lu(k,2431) + lu(k,2446) = lu(k,2446) - lu(k,1649) * lu(k,2431) + lu(k,2458) = lu(k,2458) - lu(k,1635) * lu(k,2457) + lu(k,2459) = lu(k,2459) - lu(k,1636) * lu(k,2457) + lu(k,2460) = lu(k,2460) - lu(k,1637) * lu(k,2457) + lu(k,2461) = lu(k,2461) - lu(k,1638) * lu(k,2457) + lu(k,2462) = lu(k,2462) - lu(k,1639) * lu(k,2457) + lu(k,2463) = lu(k,2463) - lu(k,1640) * lu(k,2457) + lu(k,2464) = lu(k,2464) - lu(k,1641) * lu(k,2457) + lu(k,2465) = lu(k,2465) - lu(k,1642) * lu(k,2457) + lu(k,2466) = lu(k,2466) - lu(k,1643) * lu(k,2457) + lu(k,2467) = lu(k,2467) - lu(k,1644) * lu(k,2457) + lu(k,2468) = lu(k,2468) - lu(k,1645) * lu(k,2457) + lu(k,2469) = lu(k,2469) - lu(k,1646) * lu(k,2457) + lu(k,2470) = lu(k,2470) - lu(k,1647) * lu(k,2457) + lu(k,2471) = lu(k,2471) - lu(k,1648) * lu(k,2457) + lu(k,2472) = lu(k,2472) - lu(k,1649) * lu(k,2457) + lu(k,2512) = lu(k,2512) - lu(k,1635) * lu(k,2511) + lu(k,2513) = lu(k,2513) - lu(k,1636) * lu(k,2511) + lu(k,2514) = lu(k,2514) - lu(k,1637) * lu(k,2511) + lu(k,2515) = lu(k,2515) - lu(k,1638) * lu(k,2511) + lu(k,2516) = lu(k,2516) - lu(k,1639) * lu(k,2511) + lu(k,2517) = lu(k,2517) - lu(k,1640) * lu(k,2511) + lu(k,2518) = lu(k,2518) - lu(k,1641) * lu(k,2511) + lu(k,2519) = lu(k,2519) - lu(k,1642) * lu(k,2511) + lu(k,2520) = lu(k,2520) - lu(k,1643) * lu(k,2511) + lu(k,2521) = lu(k,2521) - lu(k,1644) * lu(k,2511) + lu(k,2522) = lu(k,2522) - lu(k,1645) * lu(k,2511) + lu(k,2523) = lu(k,2523) - lu(k,1646) * lu(k,2511) + lu(k,2524) = lu(k,2524) - lu(k,1647) * lu(k,2511) + lu(k,2525) = lu(k,2525) - lu(k,1648) * lu(k,2511) + lu(k,2526) = lu(k,2526) - lu(k,1649) * lu(k,2511) + lu(k,1680) = 1._r8 / lu(k,1680) + lu(k,1681) = lu(k,1681) * lu(k,1680) + lu(k,1682) = lu(k,1682) * lu(k,1680) + lu(k,1683) = lu(k,1683) * lu(k,1680) + lu(k,1684) = lu(k,1684) * lu(k,1680) + lu(k,1685) = lu(k,1685) * lu(k,1680) + lu(k,1686) = lu(k,1686) * lu(k,1680) + lu(k,1687) = lu(k,1687) * lu(k,1680) + lu(k,1688) = lu(k,1688) * lu(k,1680) + lu(k,1689) = lu(k,1689) * lu(k,1680) + lu(k,1690) = lu(k,1690) * lu(k,1680) + lu(k,1691) = lu(k,1691) * lu(k,1680) + lu(k,1692) = lu(k,1692) * lu(k,1680) + lu(k,1693) = lu(k,1693) * lu(k,1680) + lu(k,1694) = lu(k,1694) * lu(k,1680) + lu(k,1854) = lu(k,1854) - lu(k,1681) * lu(k,1853) + lu(k,1855) = lu(k,1855) - lu(k,1682) * lu(k,1853) + lu(k,1856) = lu(k,1856) - lu(k,1683) * lu(k,1853) + lu(k,1857) = lu(k,1857) - lu(k,1684) * lu(k,1853) + lu(k,1858) = lu(k,1858) - lu(k,1685) * lu(k,1853) + lu(k,1859) = lu(k,1859) - lu(k,1686) * lu(k,1853) + lu(k,1860) = lu(k,1860) - lu(k,1687) * lu(k,1853) + lu(k,1861) = lu(k,1861) - lu(k,1688) * lu(k,1853) + lu(k,1862) = lu(k,1862) - lu(k,1689) * lu(k,1853) + lu(k,1863) = lu(k,1863) - lu(k,1690) * lu(k,1853) + lu(k,1864) = lu(k,1864) - lu(k,1691) * lu(k,1853) + lu(k,1865) = lu(k,1865) - lu(k,1692) * lu(k,1853) + lu(k,1866) = lu(k,1866) - lu(k,1693) * lu(k,1853) + lu(k,1867) = lu(k,1867) - lu(k,1694) * lu(k,1853) + lu(k,1961) = lu(k,1961) - lu(k,1681) * lu(k,1960) + lu(k,1962) = lu(k,1962) - lu(k,1682) * lu(k,1960) + lu(k,1963) = lu(k,1963) - lu(k,1683) * lu(k,1960) + lu(k,1964) = lu(k,1964) - lu(k,1684) * lu(k,1960) + lu(k,1965) = lu(k,1965) - lu(k,1685) * lu(k,1960) + lu(k,1966) = lu(k,1966) - lu(k,1686) * lu(k,1960) + lu(k,1967) = lu(k,1967) - lu(k,1687) * lu(k,1960) + lu(k,1968) = lu(k,1968) - lu(k,1688) * lu(k,1960) + lu(k,1969) = lu(k,1969) - lu(k,1689) * lu(k,1960) + lu(k,1970) = lu(k,1970) - lu(k,1690) * lu(k,1960) + lu(k,1971) = lu(k,1971) - lu(k,1691) * lu(k,1960) + lu(k,1972) = lu(k,1972) - lu(k,1692) * lu(k,1960) + lu(k,1973) = lu(k,1973) - lu(k,1693) * lu(k,1960) + lu(k,1974) = lu(k,1974) - lu(k,1694) * lu(k,1960) + lu(k,2007) = lu(k,2007) - lu(k,1681) * lu(k,2006) + lu(k,2008) = lu(k,2008) - lu(k,1682) * lu(k,2006) + lu(k,2009) = lu(k,2009) - lu(k,1683) * lu(k,2006) + lu(k,2010) = lu(k,2010) - lu(k,1684) * lu(k,2006) + lu(k,2011) = lu(k,2011) - lu(k,1685) * lu(k,2006) + lu(k,2012) = lu(k,2012) - lu(k,1686) * lu(k,2006) + lu(k,2013) = lu(k,2013) - lu(k,1687) * lu(k,2006) + lu(k,2014) = lu(k,2014) - lu(k,1688) * lu(k,2006) + lu(k,2015) = lu(k,2015) - lu(k,1689) * lu(k,2006) + lu(k,2016) = lu(k,2016) - lu(k,1690) * lu(k,2006) + lu(k,2017) = lu(k,2017) - lu(k,1691) * lu(k,2006) + lu(k,2018) = lu(k,2018) - lu(k,1692) * lu(k,2006) + lu(k,2019) = lu(k,2019) - lu(k,1693) * lu(k,2006) + lu(k,2020) = lu(k,2020) - lu(k,1694) * lu(k,2006) + lu(k,2050) = lu(k,2050) - lu(k,1681) * lu(k,2049) + lu(k,2051) = lu(k,2051) - lu(k,1682) * lu(k,2049) + lu(k,2052) = lu(k,2052) - lu(k,1683) * lu(k,2049) + lu(k,2053) = lu(k,2053) - lu(k,1684) * lu(k,2049) + lu(k,2054) = lu(k,2054) - lu(k,1685) * lu(k,2049) + lu(k,2055) = lu(k,2055) - lu(k,1686) * lu(k,2049) + lu(k,2056) = lu(k,2056) - lu(k,1687) * lu(k,2049) + lu(k,2057) = lu(k,2057) - lu(k,1688) * lu(k,2049) + lu(k,2058) = lu(k,2058) - lu(k,1689) * lu(k,2049) + lu(k,2059) = lu(k,2059) - lu(k,1690) * lu(k,2049) + lu(k,2060) = lu(k,2060) - lu(k,1691) * lu(k,2049) + lu(k,2061) = lu(k,2061) - lu(k,1692) * lu(k,2049) + lu(k,2062) = lu(k,2062) - lu(k,1693) * lu(k,2049) + lu(k,2063) = lu(k,2063) - lu(k,1694) * lu(k,2049) + lu(k,2114) = lu(k,2114) - lu(k,1681) * lu(k,2113) + lu(k,2115) = lu(k,2115) - lu(k,1682) * lu(k,2113) + lu(k,2116) = lu(k,2116) - lu(k,1683) * lu(k,2113) + lu(k,2117) = lu(k,2117) - lu(k,1684) * lu(k,2113) + lu(k,2118) = lu(k,2118) - lu(k,1685) * lu(k,2113) + lu(k,2119) = lu(k,2119) - lu(k,1686) * lu(k,2113) + lu(k,2120) = lu(k,2120) - lu(k,1687) * lu(k,2113) + lu(k,2121) = lu(k,2121) - lu(k,1688) * lu(k,2113) + lu(k,2122) = lu(k,2122) - lu(k,1689) * lu(k,2113) + lu(k,2123) = lu(k,2123) - lu(k,1690) * lu(k,2113) + lu(k,2124) = lu(k,2124) - lu(k,1691) * lu(k,2113) + lu(k,2125) = lu(k,2125) - lu(k,1692) * lu(k,2113) + lu(k,2126) = lu(k,2126) - lu(k,1693) * lu(k,2113) + lu(k,2127) = lu(k,2127) - lu(k,1694) * lu(k,2113) + lu(k,2135) = lu(k,2135) - lu(k,1681) * lu(k,2134) + lu(k,2136) = lu(k,2136) - lu(k,1682) * lu(k,2134) + lu(k,2137) = lu(k,2137) - lu(k,1683) * lu(k,2134) + lu(k,2138) = lu(k,2138) - lu(k,1684) * lu(k,2134) + lu(k,2139) = lu(k,2139) - lu(k,1685) * lu(k,2134) + lu(k,2140) = lu(k,2140) - lu(k,1686) * lu(k,2134) + lu(k,2141) = lu(k,2141) - lu(k,1687) * lu(k,2134) + lu(k,2142) = lu(k,2142) - lu(k,1688) * lu(k,2134) + lu(k,2143) = lu(k,2143) - lu(k,1689) * lu(k,2134) + lu(k,2144) = lu(k,2144) - lu(k,1690) * lu(k,2134) + lu(k,2145) = lu(k,2145) - lu(k,1691) * lu(k,2134) + lu(k,2146) = lu(k,2146) - lu(k,1692) * lu(k,2134) + lu(k,2147) = lu(k,2147) - lu(k,1693) * lu(k,2134) + lu(k,2148) = lu(k,2148) - lu(k,1694) * lu(k,2134) + lu(k,2187) = lu(k,2187) - lu(k,1681) * lu(k,2186) + lu(k,2188) = lu(k,2188) - lu(k,1682) * lu(k,2186) + lu(k,2189) = lu(k,2189) - lu(k,1683) * lu(k,2186) + lu(k,2190) = lu(k,2190) - lu(k,1684) * lu(k,2186) + lu(k,2191) = lu(k,2191) - lu(k,1685) * lu(k,2186) + lu(k,2192) = lu(k,2192) - lu(k,1686) * lu(k,2186) + lu(k,2193) = lu(k,2193) - lu(k,1687) * lu(k,2186) + lu(k,2194) = lu(k,2194) - lu(k,1688) * lu(k,2186) + lu(k,2195) = lu(k,2195) - lu(k,1689) * lu(k,2186) + lu(k,2196) = lu(k,2196) - lu(k,1690) * lu(k,2186) + lu(k,2197) = lu(k,2197) - lu(k,1691) * lu(k,2186) + lu(k,2198) = lu(k,2198) - lu(k,1692) * lu(k,2186) + lu(k,2199) = lu(k,2199) - lu(k,1693) * lu(k,2186) + lu(k,2200) = lu(k,2200) - lu(k,1694) * lu(k,2186) + lu(k,2230) = lu(k,2230) - lu(k,1681) * lu(k,2229) + lu(k,2231) = lu(k,2231) - lu(k,1682) * lu(k,2229) + lu(k,2232) = lu(k,2232) - lu(k,1683) * lu(k,2229) + lu(k,2233) = lu(k,2233) - lu(k,1684) * lu(k,2229) + lu(k,2234) = lu(k,2234) - lu(k,1685) * lu(k,2229) + lu(k,2235) = lu(k,2235) - lu(k,1686) * lu(k,2229) + lu(k,2236) = lu(k,2236) - lu(k,1687) * lu(k,2229) + lu(k,2237) = lu(k,2237) - lu(k,1688) * lu(k,2229) + lu(k,2238) = lu(k,2238) - lu(k,1689) * lu(k,2229) + lu(k,2239) = lu(k,2239) - lu(k,1690) * lu(k,2229) + lu(k,2240) = lu(k,2240) - lu(k,1691) * lu(k,2229) + lu(k,2241) = lu(k,2241) - lu(k,1692) * lu(k,2229) + lu(k,2242) = lu(k,2242) - lu(k,1693) * lu(k,2229) + lu(k,2243) = lu(k,2243) - lu(k,1694) * lu(k,2229) + lu(k,2253) = lu(k,2253) - lu(k,1681) * lu(k,2252) + lu(k,2254) = lu(k,2254) - lu(k,1682) * lu(k,2252) + lu(k,2255) = lu(k,2255) - lu(k,1683) * lu(k,2252) + lu(k,2256) = lu(k,2256) - lu(k,1684) * lu(k,2252) + lu(k,2257) = lu(k,2257) - lu(k,1685) * lu(k,2252) + lu(k,2258) = lu(k,2258) - lu(k,1686) * lu(k,2252) + lu(k,2259) = lu(k,2259) - lu(k,1687) * lu(k,2252) + lu(k,2260) = lu(k,2260) - lu(k,1688) * lu(k,2252) + lu(k,2261) = lu(k,2261) - lu(k,1689) * lu(k,2252) + lu(k,2262) = lu(k,2262) - lu(k,1690) * lu(k,2252) + lu(k,2263) = lu(k,2263) - lu(k,1691) * lu(k,2252) + lu(k,2264) = lu(k,2264) - lu(k,1692) * lu(k,2252) + lu(k,2265) = lu(k,2265) - lu(k,1693) * lu(k,2252) + lu(k,2266) = lu(k,2266) - lu(k,1694) * lu(k,2252) + lu(k,2373) = lu(k,2373) - lu(k,1681) * lu(k,2372) + lu(k,2374) = lu(k,2374) - lu(k,1682) * lu(k,2372) + lu(k,2375) = lu(k,2375) - lu(k,1683) * lu(k,2372) + lu(k,2376) = lu(k,2376) - lu(k,1684) * lu(k,2372) + lu(k,2377) = lu(k,2377) - lu(k,1685) * lu(k,2372) + lu(k,2378) = lu(k,2378) - lu(k,1686) * lu(k,2372) + lu(k,2379) = lu(k,2379) - lu(k,1687) * lu(k,2372) + lu(k,2380) = lu(k,2380) - lu(k,1688) * lu(k,2372) + lu(k,2381) = lu(k,2381) - lu(k,1689) * lu(k,2372) + lu(k,2382) = lu(k,2382) - lu(k,1690) * lu(k,2372) + lu(k,2383) = lu(k,2383) - lu(k,1691) * lu(k,2372) + lu(k,2384) = lu(k,2384) - lu(k,1692) * lu(k,2372) + lu(k,2385) = lu(k,2385) - lu(k,1693) * lu(k,2372) + lu(k,2386) = lu(k,2386) - lu(k,1694) * lu(k,2372) + lu(k,2433) = lu(k,2433) - lu(k,1681) * lu(k,2432) + lu(k,2434) = lu(k,2434) - lu(k,1682) * lu(k,2432) + lu(k,2435) = lu(k,2435) - lu(k,1683) * lu(k,2432) + lu(k,2436) = lu(k,2436) - lu(k,1684) * lu(k,2432) + lu(k,2437) = lu(k,2437) - lu(k,1685) * lu(k,2432) + lu(k,2438) = lu(k,2438) - lu(k,1686) * lu(k,2432) + lu(k,2439) = lu(k,2439) - lu(k,1687) * lu(k,2432) + lu(k,2440) = lu(k,2440) - lu(k,1688) * lu(k,2432) + lu(k,2441) = lu(k,2441) - lu(k,1689) * lu(k,2432) + lu(k,2442) = lu(k,2442) - lu(k,1690) * lu(k,2432) + lu(k,2443) = lu(k,2443) - lu(k,1691) * lu(k,2432) + lu(k,2444) = lu(k,2444) - lu(k,1692) * lu(k,2432) + lu(k,2445) = lu(k,2445) - lu(k,1693) * lu(k,2432) + lu(k,2446) = lu(k,2446) - lu(k,1694) * lu(k,2432) + lu(k,2459) = lu(k,2459) - lu(k,1681) * lu(k,2458) + lu(k,2460) = lu(k,2460) - lu(k,1682) * lu(k,2458) + lu(k,2461) = lu(k,2461) - lu(k,1683) * lu(k,2458) + lu(k,2462) = lu(k,2462) - lu(k,1684) * lu(k,2458) + lu(k,2463) = lu(k,2463) - lu(k,1685) * lu(k,2458) + lu(k,2464) = lu(k,2464) - lu(k,1686) * lu(k,2458) + lu(k,2465) = lu(k,2465) - lu(k,1687) * lu(k,2458) + lu(k,2466) = lu(k,2466) - lu(k,1688) * lu(k,2458) + lu(k,2467) = lu(k,2467) - lu(k,1689) * lu(k,2458) + lu(k,2468) = lu(k,2468) - lu(k,1690) * lu(k,2458) + lu(k,2469) = lu(k,2469) - lu(k,1691) * lu(k,2458) + lu(k,2470) = lu(k,2470) - lu(k,1692) * lu(k,2458) + lu(k,2471) = lu(k,2471) - lu(k,1693) * lu(k,2458) + lu(k,2472) = lu(k,2472) - lu(k,1694) * lu(k,2458) + lu(k,2486) = lu(k,2486) - lu(k,1681) * lu(k,2485) + lu(k,2487) = lu(k,2487) - lu(k,1682) * lu(k,2485) + lu(k,2488) = lu(k,2488) - lu(k,1683) * lu(k,2485) + lu(k,2489) = lu(k,2489) - lu(k,1684) * lu(k,2485) + lu(k,2490) = lu(k,2490) - lu(k,1685) * lu(k,2485) + lu(k,2491) = lu(k,2491) - lu(k,1686) * lu(k,2485) + lu(k,2492) = lu(k,2492) - lu(k,1687) * lu(k,2485) + lu(k,2493) = lu(k,2493) - lu(k,1688) * lu(k,2485) + lu(k,2494) = lu(k,2494) - lu(k,1689) * lu(k,2485) + lu(k,2495) = lu(k,2495) - lu(k,1690) * lu(k,2485) + lu(k,2496) = lu(k,2496) - lu(k,1691) * lu(k,2485) + lu(k,2497) = lu(k,2497) - lu(k,1692) * lu(k,2485) + lu(k,2498) = lu(k,2498) - lu(k,1693) * lu(k,2485) + lu(k,2499) = lu(k,2499) - lu(k,1694) * lu(k,2485) + lu(k,2513) = lu(k,2513) - lu(k,1681) * lu(k,2512) + lu(k,2514) = lu(k,2514) - lu(k,1682) * lu(k,2512) + lu(k,2515) = lu(k,2515) - lu(k,1683) * lu(k,2512) + lu(k,2516) = lu(k,2516) - lu(k,1684) * lu(k,2512) + lu(k,2517) = lu(k,2517) - lu(k,1685) * lu(k,2512) + lu(k,2518) = lu(k,2518) - lu(k,1686) * lu(k,2512) + lu(k,2519) = lu(k,2519) - lu(k,1687) * lu(k,2512) + lu(k,2520) = lu(k,2520) - lu(k,1688) * lu(k,2512) + lu(k,2521) = lu(k,2521) - lu(k,1689) * lu(k,2512) + lu(k,2522) = lu(k,2522) - lu(k,1690) * lu(k,2512) + lu(k,2523) = lu(k,2523) - lu(k,1691) * lu(k,2512) + lu(k,2524) = lu(k,2524) - lu(k,1692) * lu(k,2512) + lu(k,2525) = lu(k,2525) - lu(k,1693) * lu(k,2512) + lu(k,2526) = lu(k,2526) - lu(k,1694) * lu(k,2512) end do end subroutine lu_fac31 subroutine lu_fac32( avec_len, lu ) @@ -7950,681 +7955,681 @@ subroutine lu_fac32( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,1788) = 1._r8 / lu(k,1788) - lu(k,1789) = lu(k,1789) * lu(k,1788) - lu(k,1790) = lu(k,1790) * lu(k,1788) - lu(k,1791) = lu(k,1791) * lu(k,1788) - lu(k,1792) = lu(k,1792) * lu(k,1788) - lu(k,1793) = lu(k,1793) * lu(k,1788) - lu(k,1794) = lu(k,1794) * lu(k,1788) - lu(k,1795) = lu(k,1795) * lu(k,1788) - lu(k,1796) = lu(k,1796) * lu(k,1788) - lu(k,1797) = lu(k,1797) * lu(k,1788) - lu(k,1798) = lu(k,1798) * lu(k,1788) - lu(k,1799) = lu(k,1799) * lu(k,1788) - lu(k,1800) = lu(k,1800) * lu(k,1788) - lu(k,1801) = lu(k,1801) * lu(k,1788) - lu(k,1832) = lu(k,1832) - lu(k,1789) * lu(k,1831) - lu(k,1833) = lu(k,1833) - lu(k,1790) * lu(k,1831) - lu(k,1834) = lu(k,1834) - lu(k,1791) * lu(k,1831) - lu(k,1835) = lu(k,1835) - lu(k,1792) * lu(k,1831) - lu(k,1836) = lu(k,1836) - lu(k,1793) * lu(k,1831) - lu(k,1837) = lu(k,1837) - lu(k,1794) * lu(k,1831) - lu(k,1838) = lu(k,1838) - lu(k,1795) * lu(k,1831) - lu(k,1839) = lu(k,1839) - lu(k,1796) * lu(k,1831) - lu(k,1840) = lu(k,1840) - lu(k,1797) * lu(k,1831) - lu(k,1841) = lu(k,1841) - lu(k,1798) * lu(k,1831) - lu(k,1842) = lu(k,1842) - lu(k,1799) * lu(k,1831) - lu(k,1843) = lu(k,1843) - lu(k,1800) * lu(k,1831) - lu(k,1844) = lu(k,1844) - lu(k,1801) * lu(k,1831) - lu(k,2005) = lu(k,2005) - lu(k,1789) * lu(k,2004) - lu(k,2006) = lu(k,2006) - lu(k,1790) * lu(k,2004) - lu(k,2007) = lu(k,2007) - lu(k,1791) * lu(k,2004) - lu(k,2008) = lu(k,2008) - lu(k,1792) * lu(k,2004) - lu(k,2009) = lu(k,2009) - lu(k,1793) * lu(k,2004) - lu(k,2010) = lu(k,2010) - lu(k,1794) * lu(k,2004) - lu(k,2011) = lu(k,2011) - lu(k,1795) * lu(k,2004) - lu(k,2012) = lu(k,2012) - lu(k,1796) * lu(k,2004) - lu(k,2013) = lu(k,2013) - lu(k,1797) * lu(k,2004) - lu(k,2014) = lu(k,2014) - lu(k,1798) * lu(k,2004) - lu(k,2015) = lu(k,2015) - lu(k,1799) * lu(k,2004) - lu(k,2016) = lu(k,2016) - lu(k,1800) * lu(k,2004) - lu(k,2017) = lu(k,2017) - lu(k,1801) * lu(k,2004) - lu(k,2065) = lu(k,2065) - lu(k,1789) * lu(k,2064) - lu(k,2066) = lu(k,2066) - lu(k,1790) * lu(k,2064) - lu(k,2067) = lu(k,2067) - lu(k,1791) * lu(k,2064) - lu(k,2068) = lu(k,2068) - lu(k,1792) * lu(k,2064) - lu(k,2069) = lu(k,2069) - lu(k,1793) * lu(k,2064) - lu(k,2070) = lu(k,2070) - lu(k,1794) * lu(k,2064) - lu(k,2071) = lu(k,2071) - lu(k,1795) * lu(k,2064) - lu(k,2072) = lu(k,2072) - lu(k,1796) * lu(k,2064) - lu(k,2073) = lu(k,2073) - lu(k,1797) * lu(k,2064) - lu(k,2074) = lu(k,2074) - lu(k,1798) * lu(k,2064) - lu(k,2075) = lu(k,2075) - lu(k,1799) * lu(k,2064) - lu(k,2076) = lu(k,2076) - lu(k,1800) * lu(k,2064) - lu(k,2077) = lu(k,2077) - lu(k,1801) * lu(k,2064) - lu(k,2090) = lu(k,2090) - lu(k,1789) * lu(k,2089) - lu(k,2091) = lu(k,2091) - lu(k,1790) * lu(k,2089) - lu(k,2092) = lu(k,2092) - lu(k,1791) * lu(k,2089) - lu(k,2093) = lu(k,2093) - lu(k,1792) * lu(k,2089) - lu(k,2094) = lu(k,2094) - lu(k,1793) * lu(k,2089) - lu(k,2095) = lu(k,2095) - lu(k,1794) * lu(k,2089) - lu(k,2096) = lu(k,2096) - lu(k,1795) * lu(k,2089) - lu(k,2097) = lu(k,2097) - lu(k,1796) * lu(k,2089) - lu(k,2098) = lu(k,2098) - lu(k,1797) * lu(k,2089) - lu(k,2099) = lu(k,2099) - lu(k,1798) * lu(k,2089) - lu(k,2100) = lu(k,2100) - lu(k,1799) * lu(k,2089) - lu(k,2101) = lu(k,2101) - lu(k,1800) * lu(k,2089) - lu(k,2102) = lu(k,2102) - lu(k,1801) * lu(k,2089) - lu(k,2210) = lu(k,2210) - lu(k,1789) * lu(k,2209) - lu(k,2211) = lu(k,2211) - lu(k,1790) * lu(k,2209) - lu(k,2212) = lu(k,2212) - lu(k,1791) * lu(k,2209) - lu(k,2213) = lu(k,2213) - lu(k,1792) * lu(k,2209) - lu(k,2214) = lu(k,2214) - lu(k,1793) * lu(k,2209) - lu(k,2215) = lu(k,2215) - lu(k,1794) * lu(k,2209) - lu(k,2216) = lu(k,2216) - lu(k,1795) * lu(k,2209) - lu(k,2217) = lu(k,2217) - lu(k,1796) * lu(k,2209) - lu(k,2218) = lu(k,2218) - lu(k,1797) * lu(k,2209) - lu(k,2219) = lu(k,2219) - lu(k,1798) * lu(k,2209) - lu(k,2220) = lu(k,2220) - lu(k,1799) * lu(k,2209) - lu(k,2221) = lu(k,2221) - lu(k,1800) * lu(k,2209) - lu(k,2222) = lu(k,2222) - lu(k,1801) * lu(k,2209) - lu(k,2256) = lu(k,2256) - lu(k,1789) * lu(k,2255) - lu(k,2257) = lu(k,2257) - lu(k,1790) * lu(k,2255) - lu(k,2258) = lu(k,2258) - lu(k,1791) * lu(k,2255) - lu(k,2259) = lu(k,2259) - lu(k,1792) * lu(k,2255) - lu(k,2260) = lu(k,2260) - lu(k,1793) * lu(k,2255) - lu(k,2261) = lu(k,2261) - lu(k,1794) * lu(k,2255) - lu(k,2262) = lu(k,2262) - lu(k,1795) * lu(k,2255) - lu(k,2263) = lu(k,2263) - lu(k,1796) * lu(k,2255) - lu(k,2264) = lu(k,2264) - lu(k,1797) * lu(k,2255) - lu(k,2265) = lu(k,2265) - lu(k,1798) * lu(k,2255) - lu(k,2266) = lu(k,2266) - lu(k,1799) * lu(k,2255) - lu(k,2267) = lu(k,2267) - lu(k,1800) * lu(k,2255) - lu(k,2268) = lu(k,2268) - lu(k,1801) * lu(k,2255) - lu(k,2277) = lu(k,2277) - lu(k,1789) * lu(k,2276) - lu(k,2278) = lu(k,2278) - lu(k,1790) * lu(k,2276) - lu(k,2279) = lu(k,2279) - lu(k,1791) * lu(k,2276) - lu(k,2280) = lu(k,2280) - lu(k,1792) * lu(k,2276) - lu(k,2281) = lu(k,2281) - lu(k,1793) * lu(k,2276) - lu(k,2282) = lu(k,2282) - lu(k,1794) * lu(k,2276) - lu(k,2283) = lu(k,2283) - lu(k,1795) * lu(k,2276) - lu(k,2284) = lu(k,2284) - lu(k,1796) * lu(k,2276) - lu(k,2285) = lu(k,2285) - lu(k,1797) * lu(k,2276) - lu(k,2286) = lu(k,2286) - lu(k,1798) * lu(k,2276) - lu(k,2287) = lu(k,2287) - lu(k,1799) * lu(k,2276) - lu(k,2288) = lu(k,2288) - lu(k,1800) * lu(k,2276) - lu(k,2289) = lu(k,2289) - lu(k,1801) * lu(k,2276) - lu(k,2300) = lu(k,2300) - lu(k,1789) * lu(k,2299) - lu(k,2301) = lu(k,2301) - lu(k,1790) * lu(k,2299) - lu(k,2302) = lu(k,2302) - lu(k,1791) * lu(k,2299) - lu(k,2303) = lu(k,2303) - lu(k,1792) * lu(k,2299) - lu(k,2304) = lu(k,2304) - lu(k,1793) * lu(k,2299) - lu(k,2305) = lu(k,2305) - lu(k,1794) * lu(k,2299) - lu(k,2306) = lu(k,2306) - lu(k,1795) * lu(k,2299) - lu(k,2307) = lu(k,2307) - lu(k,1796) * lu(k,2299) - lu(k,2308) = lu(k,2308) - lu(k,1797) * lu(k,2299) - lu(k,2309) = lu(k,2309) - lu(k,1798) * lu(k,2299) - lu(k,2310) = lu(k,2310) - lu(k,1799) * lu(k,2299) - lu(k,2311) = lu(k,2311) - lu(k,1800) * lu(k,2299) - lu(k,2312) = lu(k,2312) - lu(k,1801) * lu(k,2299) - lu(k,2352) = lu(k,2352) - lu(k,1789) * lu(k,2351) - lu(k,2353) = lu(k,2353) - lu(k,1790) * lu(k,2351) - lu(k,2354) = lu(k,2354) - lu(k,1791) * lu(k,2351) - lu(k,2355) = lu(k,2355) - lu(k,1792) * lu(k,2351) - lu(k,2356) = lu(k,2356) - lu(k,1793) * lu(k,2351) - lu(k,2357) = lu(k,2357) - lu(k,1794) * lu(k,2351) - lu(k,2358) = lu(k,2358) - lu(k,1795) * lu(k,2351) - lu(k,2359) = lu(k,2359) - lu(k,1796) * lu(k,2351) - lu(k,2360) = lu(k,2360) - lu(k,1797) * lu(k,2351) - lu(k,2361) = lu(k,2361) - lu(k,1798) * lu(k,2351) - lu(k,2362) = lu(k,2362) - lu(k,1799) * lu(k,2351) - lu(k,2363) = lu(k,2363) - lu(k,1800) * lu(k,2351) - lu(k,2364) = lu(k,2364) - lu(k,1801) * lu(k,2351) - lu(k,2416) = lu(k,2416) - lu(k,1789) * lu(k,2415) - lu(k,2417) = lu(k,2417) - lu(k,1790) * lu(k,2415) - lu(k,2418) = lu(k,2418) - lu(k,1791) * lu(k,2415) - lu(k,2419) = lu(k,2419) - lu(k,1792) * lu(k,2415) - lu(k,2420) = lu(k,2420) - lu(k,1793) * lu(k,2415) - lu(k,2421) = lu(k,2421) - lu(k,1794) * lu(k,2415) - lu(k,2422) = lu(k,2422) - lu(k,1795) * lu(k,2415) - lu(k,2423) = lu(k,2423) - lu(k,1796) * lu(k,2415) - lu(k,2424) = lu(k,2424) - lu(k,1797) * lu(k,2415) - lu(k,2425) = lu(k,2425) - lu(k,1798) * lu(k,2415) - lu(k,2426) = lu(k,2426) - lu(k,1799) * lu(k,2415) - lu(k,2427) = lu(k,2427) - lu(k,1800) * lu(k,2415) - lu(k,2428) = lu(k,2428) - lu(k,1801) * lu(k,2415) - lu(k,2459) = lu(k,2459) - lu(k,1789) * lu(k,2458) - lu(k,2460) = lu(k,2460) - lu(k,1790) * lu(k,2458) - lu(k,2461) = lu(k,2461) - lu(k,1791) * lu(k,2458) - lu(k,2462) = lu(k,2462) - lu(k,1792) * lu(k,2458) - lu(k,2463) = lu(k,2463) - lu(k,1793) * lu(k,2458) - lu(k,2464) = lu(k,2464) - lu(k,1794) * lu(k,2458) - lu(k,2465) = lu(k,2465) - lu(k,1795) * lu(k,2458) - lu(k,2466) = lu(k,2466) - lu(k,1796) * lu(k,2458) - lu(k,2467) = lu(k,2467) - lu(k,1797) * lu(k,2458) - lu(k,2468) = lu(k,2468) - lu(k,1798) * lu(k,2458) - lu(k,2469) = lu(k,2469) - lu(k,1799) * lu(k,2458) - lu(k,2470) = lu(k,2470) - lu(k,1800) * lu(k,2458) - lu(k,2471) = lu(k,2471) - lu(k,1801) * lu(k,2458) - lu(k,2485) = lu(k,2485) - lu(k,1789) * lu(k,2484) - lu(k,2486) = lu(k,2486) - lu(k,1790) * lu(k,2484) - lu(k,2487) = lu(k,2487) - lu(k,1791) * lu(k,2484) - lu(k,2488) = lu(k,2488) - lu(k,1792) * lu(k,2484) - lu(k,2489) = lu(k,2489) - lu(k,1793) * lu(k,2484) - lu(k,2490) = lu(k,2490) - lu(k,1794) * lu(k,2484) - lu(k,2491) = lu(k,2491) - lu(k,1795) * lu(k,2484) - lu(k,2492) = lu(k,2492) - lu(k,1796) * lu(k,2484) - lu(k,2493) = lu(k,2493) - lu(k,1797) * lu(k,2484) - lu(k,2494) = lu(k,2494) - lu(k,1798) * lu(k,2484) - lu(k,2495) = lu(k,2495) - lu(k,1799) * lu(k,2484) - lu(k,2496) = lu(k,2496) - lu(k,1800) * lu(k,2484) - lu(k,2497) = lu(k,2497) - lu(k,1801) * lu(k,2484) - lu(k,2512) = lu(k,2512) - lu(k,1789) * lu(k,2511) - lu(k,2513) = lu(k,2513) - lu(k,1790) * lu(k,2511) - lu(k,2514) = lu(k,2514) - lu(k,1791) * lu(k,2511) - lu(k,2515) = lu(k,2515) - lu(k,1792) * lu(k,2511) - lu(k,2516) = lu(k,2516) - lu(k,1793) * lu(k,2511) - lu(k,2517) = lu(k,2517) - lu(k,1794) * lu(k,2511) - lu(k,2518) = lu(k,2518) - lu(k,1795) * lu(k,2511) - lu(k,2519) = lu(k,2519) - lu(k,1796) * lu(k,2511) - lu(k,2520) = lu(k,2520) - lu(k,1797) * lu(k,2511) - lu(k,2521) = lu(k,2521) - lu(k,1798) * lu(k,2511) - lu(k,2522) = lu(k,2522) - lu(k,1799) * lu(k,2511) - lu(k,2523) = lu(k,2523) - lu(k,1800) * lu(k,2511) - lu(k,2524) = lu(k,2524) - lu(k,1801) * lu(k,2511) - lu(k,1832) = 1._r8 / lu(k,1832) - lu(k,1833) = lu(k,1833) * lu(k,1832) - lu(k,1834) = lu(k,1834) * lu(k,1832) - lu(k,1835) = lu(k,1835) * lu(k,1832) - lu(k,1836) = lu(k,1836) * lu(k,1832) - lu(k,1837) = lu(k,1837) * lu(k,1832) - lu(k,1838) = lu(k,1838) * lu(k,1832) - lu(k,1839) = lu(k,1839) * lu(k,1832) - lu(k,1840) = lu(k,1840) * lu(k,1832) - lu(k,1841) = lu(k,1841) * lu(k,1832) - lu(k,1842) = lu(k,1842) * lu(k,1832) - lu(k,1843) = lu(k,1843) * lu(k,1832) - lu(k,1844) = lu(k,1844) * lu(k,1832) - lu(k,2006) = lu(k,2006) - lu(k,1833) * lu(k,2005) - lu(k,2007) = lu(k,2007) - lu(k,1834) * lu(k,2005) - lu(k,2008) = lu(k,2008) - lu(k,1835) * lu(k,2005) - lu(k,2009) = lu(k,2009) - lu(k,1836) * lu(k,2005) - lu(k,2010) = lu(k,2010) - lu(k,1837) * lu(k,2005) - lu(k,2011) = lu(k,2011) - lu(k,1838) * lu(k,2005) - lu(k,2012) = lu(k,2012) - lu(k,1839) * lu(k,2005) - lu(k,2013) = lu(k,2013) - lu(k,1840) * lu(k,2005) - lu(k,2014) = lu(k,2014) - lu(k,1841) * lu(k,2005) - lu(k,2015) = lu(k,2015) - lu(k,1842) * lu(k,2005) - lu(k,2016) = lu(k,2016) - lu(k,1843) * lu(k,2005) - lu(k,2017) = lu(k,2017) - lu(k,1844) * lu(k,2005) - lu(k,2066) = lu(k,2066) - lu(k,1833) * lu(k,2065) - lu(k,2067) = lu(k,2067) - lu(k,1834) * lu(k,2065) - lu(k,2068) = lu(k,2068) - lu(k,1835) * lu(k,2065) - lu(k,2069) = lu(k,2069) - lu(k,1836) * lu(k,2065) - lu(k,2070) = lu(k,2070) - lu(k,1837) * lu(k,2065) - lu(k,2071) = lu(k,2071) - lu(k,1838) * lu(k,2065) - lu(k,2072) = lu(k,2072) - lu(k,1839) * lu(k,2065) - lu(k,2073) = lu(k,2073) - lu(k,1840) * lu(k,2065) - lu(k,2074) = lu(k,2074) - lu(k,1841) * lu(k,2065) - lu(k,2075) = lu(k,2075) - lu(k,1842) * lu(k,2065) - lu(k,2076) = lu(k,2076) - lu(k,1843) * lu(k,2065) - lu(k,2077) = lu(k,2077) - lu(k,1844) * lu(k,2065) - lu(k,2091) = lu(k,2091) - lu(k,1833) * lu(k,2090) - lu(k,2092) = lu(k,2092) - lu(k,1834) * lu(k,2090) - lu(k,2093) = lu(k,2093) - lu(k,1835) * lu(k,2090) - lu(k,2094) = lu(k,2094) - lu(k,1836) * lu(k,2090) - lu(k,2095) = lu(k,2095) - lu(k,1837) * lu(k,2090) - lu(k,2096) = lu(k,2096) - lu(k,1838) * lu(k,2090) - lu(k,2097) = lu(k,2097) - lu(k,1839) * lu(k,2090) - lu(k,2098) = lu(k,2098) - lu(k,1840) * lu(k,2090) - lu(k,2099) = lu(k,2099) - lu(k,1841) * lu(k,2090) - lu(k,2100) = lu(k,2100) - lu(k,1842) * lu(k,2090) - lu(k,2101) = lu(k,2101) - lu(k,1843) * lu(k,2090) - lu(k,2102) = lu(k,2102) - lu(k,1844) * lu(k,2090) - lu(k,2211) = lu(k,2211) - lu(k,1833) * lu(k,2210) - lu(k,2212) = lu(k,2212) - lu(k,1834) * lu(k,2210) - lu(k,2213) = lu(k,2213) - lu(k,1835) * lu(k,2210) - lu(k,2214) = lu(k,2214) - lu(k,1836) * lu(k,2210) - lu(k,2215) = lu(k,2215) - lu(k,1837) * lu(k,2210) - lu(k,2216) = lu(k,2216) - lu(k,1838) * lu(k,2210) - lu(k,2217) = lu(k,2217) - lu(k,1839) * lu(k,2210) - lu(k,2218) = lu(k,2218) - lu(k,1840) * lu(k,2210) - lu(k,2219) = lu(k,2219) - lu(k,1841) * lu(k,2210) - lu(k,2220) = lu(k,2220) - lu(k,1842) * lu(k,2210) - lu(k,2221) = lu(k,2221) - lu(k,1843) * lu(k,2210) - lu(k,2222) = lu(k,2222) - lu(k,1844) * lu(k,2210) - lu(k,2257) = lu(k,2257) - lu(k,1833) * lu(k,2256) - lu(k,2258) = lu(k,2258) - lu(k,1834) * lu(k,2256) - lu(k,2259) = lu(k,2259) - lu(k,1835) * lu(k,2256) - lu(k,2260) = lu(k,2260) - lu(k,1836) * lu(k,2256) - lu(k,2261) = lu(k,2261) - lu(k,1837) * lu(k,2256) - lu(k,2262) = lu(k,2262) - lu(k,1838) * lu(k,2256) - lu(k,2263) = lu(k,2263) - lu(k,1839) * lu(k,2256) - lu(k,2264) = lu(k,2264) - lu(k,1840) * lu(k,2256) - lu(k,2265) = lu(k,2265) - lu(k,1841) * lu(k,2256) - lu(k,2266) = lu(k,2266) - lu(k,1842) * lu(k,2256) - lu(k,2267) = lu(k,2267) - lu(k,1843) * lu(k,2256) - lu(k,2268) = lu(k,2268) - lu(k,1844) * lu(k,2256) - lu(k,2278) = lu(k,2278) - lu(k,1833) * lu(k,2277) - lu(k,2279) = lu(k,2279) - lu(k,1834) * lu(k,2277) - lu(k,2280) = lu(k,2280) - lu(k,1835) * lu(k,2277) - lu(k,2281) = lu(k,2281) - lu(k,1836) * lu(k,2277) - lu(k,2282) = lu(k,2282) - lu(k,1837) * lu(k,2277) - lu(k,2283) = lu(k,2283) - lu(k,1838) * lu(k,2277) - lu(k,2284) = lu(k,2284) - lu(k,1839) * lu(k,2277) - lu(k,2285) = lu(k,2285) - lu(k,1840) * lu(k,2277) - lu(k,2286) = lu(k,2286) - lu(k,1841) * lu(k,2277) - lu(k,2287) = lu(k,2287) - lu(k,1842) * lu(k,2277) - lu(k,2288) = lu(k,2288) - lu(k,1843) * lu(k,2277) - lu(k,2289) = lu(k,2289) - lu(k,1844) * lu(k,2277) - lu(k,2301) = lu(k,2301) - lu(k,1833) * lu(k,2300) - lu(k,2302) = lu(k,2302) - lu(k,1834) * lu(k,2300) - lu(k,2303) = lu(k,2303) - lu(k,1835) * lu(k,2300) - lu(k,2304) = lu(k,2304) - lu(k,1836) * lu(k,2300) - lu(k,2305) = lu(k,2305) - lu(k,1837) * lu(k,2300) - lu(k,2306) = lu(k,2306) - lu(k,1838) * lu(k,2300) - lu(k,2307) = lu(k,2307) - lu(k,1839) * lu(k,2300) - lu(k,2308) = lu(k,2308) - lu(k,1840) * lu(k,2300) - lu(k,2309) = lu(k,2309) - lu(k,1841) * lu(k,2300) - lu(k,2310) = lu(k,2310) - lu(k,1842) * lu(k,2300) - lu(k,2311) = lu(k,2311) - lu(k,1843) * lu(k,2300) - lu(k,2312) = lu(k,2312) - lu(k,1844) * lu(k,2300) - lu(k,2353) = lu(k,2353) - lu(k,1833) * lu(k,2352) - lu(k,2354) = lu(k,2354) - lu(k,1834) * lu(k,2352) - lu(k,2355) = lu(k,2355) - lu(k,1835) * lu(k,2352) - lu(k,2356) = lu(k,2356) - lu(k,1836) * lu(k,2352) - lu(k,2357) = lu(k,2357) - lu(k,1837) * lu(k,2352) - lu(k,2358) = lu(k,2358) - lu(k,1838) * lu(k,2352) - lu(k,2359) = lu(k,2359) - lu(k,1839) * lu(k,2352) - lu(k,2360) = lu(k,2360) - lu(k,1840) * lu(k,2352) - lu(k,2361) = lu(k,2361) - lu(k,1841) * lu(k,2352) - lu(k,2362) = lu(k,2362) - lu(k,1842) * lu(k,2352) - lu(k,2363) = lu(k,2363) - lu(k,1843) * lu(k,2352) - lu(k,2364) = lu(k,2364) - lu(k,1844) * lu(k,2352) - lu(k,2417) = lu(k,2417) - lu(k,1833) * lu(k,2416) - lu(k,2418) = lu(k,2418) - lu(k,1834) * lu(k,2416) - lu(k,2419) = lu(k,2419) - lu(k,1835) * lu(k,2416) - lu(k,2420) = lu(k,2420) - lu(k,1836) * lu(k,2416) - lu(k,2421) = lu(k,2421) - lu(k,1837) * lu(k,2416) - lu(k,2422) = lu(k,2422) - lu(k,1838) * lu(k,2416) - lu(k,2423) = lu(k,2423) - lu(k,1839) * lu(k,2416) - lu(k,2424) = lu(k,2424) - lu(k,1840) * lu(k,2416) - lu(k,2425) = lu(k,2425) - lu(k,1841) * lu(k,2416) - lu(k,2426) = lu(k,2426) - lu(k,1842) * lu(k,2416) - lu(k,2427) = lu(k,2427) - lu(k,1843) * lu(k,2416) - lu(k,2428) = lu(k,2428) - lu(k,1844) * lu(k,2416) - lu(k,2460) = lu(k,2460) - lu(k,1833) * lu(k,2459) - lu(k,2461) = lu(k,2461) - lu(k,1834) * lu(k,2459) - lu(k,2462) = lu(k,2462) - lu(k,1835) * lu(k,2459) - lu(k,2463) = lu(k,2463) - lu(k,1836) * lu(k,2459) - lu(k,2464) = lu(k,2464) - lu(k,1837) * lu(k,2459) - lu(k,2465) = lu(k,2465) - lu(k,1838) * lu(k,2459) - lu(k,2466) = lu(k,2466) - lu(k,1839) * lu(k,2459) - lu(k,2467) = lu(k,2467) - lu(k,1840) * lu(k,2459) - lu(k,2468) = lu(k,2468) - lu(k,1841) * lu(k,2459) - lu(k,2469) = lu(k,2469) - lu(k,1842) * lu(k,2459) - lu(k,2470) = lu(k,2470) - lu(k,1843) * lu(k,2459) - lu(k,2471) = lu(k,2471) - lu(k,1844) * lu(k,2459) - lu(k,2486) = lu(k,2486) - lu(k,1833) * lu(k,2485) - lu(k,2487) = lu(k,2487) - lu(k,1834) * lu(k,2485) - lu(k,2488) = lu(k,2488) - lu(k,1835) * lu(k,2485) - lu(k,2489) = lu(k,2489) - lu(k,1836) * lu(k,2485) - lu(k,2490) = lu(k,2490) - lu(k,1837) * lu(k,2485) - lu(k,2491) = lu(k,2491) - lu(k,1838) * lu(k,2485) - lu(k,2492) = lu(k,2492) - lu(k,1839) * lu(k,2485) - lu(k,2493) = lu(k,2493) - lu(k,1840) * lu(k,2485) - lu(k,2494) = lu(k,2494) - lu(k,1841) * lu(k,2485) - lu(k,2495) = lu(k,2495) - lu(k,1842) * lu(k,2485) - lu(k,2496) = lu(k,2496) - lu(k,1843) * lu(k,2485) - lu(k,2497) = lu(k,2497) - lu(k,1844) * lu(k,2485) - lu(k,2513) = lu(k,2513) - lu(k,1833) * lu(k,2512) - lu(k,2514) = lu(k,2514) - lu(k,1834) * lu(k,2512) - lu(k,2515) = lu(k,2515) - lu(k,1835) * lu(k,2512) - lu(k,2516) = lu(k,2516) - lu(k,1836) * lu(k,2512) - lu(k,2517) = lu(k,2517) - lu(k,1837) * lu(k,2512) - lu(k,2518) = lu(k,2518) - lu(k,1838) * lu(k,2512) - lu(k,2519) = lu(k,2519) - lu(k,1839) * lu(k,2512) - lu(k,2520) = lu(k,2520) - lu(k,1840) * lu(k,2512) - lu(k,2521) = lu(k,2521) - lu(k,1841) * lu(k,2512) - lu(k,2522) = lu(k,2522) - lu(k,1842) * lu(k,2512) - lu(k,2523) = lu(k,2523) - lu(k,1843) * lu(k,2512) - lu(k,2524) = lu(k,2524) - lu(k,1844) * lu(k,2512) - lu(k,2006) = 1._r8 / lu(k,2006) - lu(k,2007) = lu(k,2007) * lu(k,2006) - lu(k,2008) = lu(k,2008) * lu(k,2006) - lu(k,2009) = lu(k,2009) * lu(k,2006) - lu(k,2010) = lu(k,2010) * lu(k,2006) - lu(k,2011) = lu(k,2011) * lu(k,2006) - lu(k,2012) = lu(k,2012) * lu(k,2006) - lu(k,2013) = lu(k,2013) * lu(k,2006) - lu(k,2014) = lu(k,2014) * lu(k,2006) - lu(k,2015) = lu(k,2015) * lu(k,2006) - lu(k,2016) = lu(k,2016) * lu(k,2006) - lu(k,2017) = lu(k,2017) * lu(k,2006) - lu(k,2067) = lu(k,2067) - lu(k,2007) * lu(k,2066) - lu(k,2068) = lu(k,2068) - lu(k,2008) * lu(k,2066) - lu(k,2069) = lu(k,2069) - lu(k,2009) * lu(k,2066) - lu(k,2070) = lu(k,2070) - lu(k,2010) * lu(k,2066) - lu(k,2071) = lu(k,2071) - lu(k,2011) * lu(k,2066) - lu(k,2072) = lu(k,2072) - lu(k,2012) * lu(k,2066) - lu(k,2073) = lu(k,2073) - lu(k,2013) * lu(k,2066) - lu(k,2074) = lu(k,2074) - lu(k,2014) * lu(k,2066) - lu(k,2075) = lu(k,2075) - lu(k,2015) * lu(k,2066) - lu(k,2076) = lu(k,2076) - lu(k,2016) * lu(k,2066) - lu(k,2077) = lu(k,2077) - lu(k,2017) * lu(k,2066) - lu(k,2092) = lu(k,2092) - lu(k,2007) * lu(k,2091) - lu(k,2093) = lu(k,2093) - lu(k,2008) * lu(k,2091) - lu(k,2094) = lu(k,2094) - lu(k,2009) * lu(k,2091) - lu(k,2095) = lu(k,2095) - lu(k,2010) * lu(k,2091) - lu(k,2096) = lu(k,2096) - lu(k,2011) * lu(k,2091) - lu(k,2097) = lu(k,2097) - lu(k,2012) * lu(k,2091) - lu(k,2098) = lu(k,2098) - lu(k,2013) * lu(k,2091) - lu(k,2099) = lu(k,2099) - lu(k,2014) * lu(k,2091) - lu(k,2100) = lu(k,2100) - lu(k,2015) * lu(k,2091) - lu(k,2101) = lu(k,2101) - lu(k,2016) * lu(k,2091) - lu(k,2102) = lu(k,2102) - lu(k,2017) * lu(k,2091) - lu(k,2212) = lu(k,2212) - lu(k,2007) * lu(k,2211) - lu(k,2213) = lu(k,2213) - lu(k,2008) * lu(k,2211) - lu(k,2214) = lu(k,2214) - lu(k,2009) * lu(k,2211) - lu(k,2215) = lu(k,2215) - lu(k,2010) * lu(k,2211) - lu(k,2216) = lu(k,2216) - lu(k,2011) * lu(k,2211) - lu(k,2217) = lu(k,2217) - lu(k,2012) * lu(k,2211) - lu(k,2218) = lu(k,2218) - lu(k,2013) * lu(k,2211) - lu(k,2219) = lu(k,2219) - lu(k,2014) * lu(k,2211) - lu(k,2220) = lu(k,2220) - lu(k,2015) * lu(k,2211) - lu(k,2221) = lu(k,2221) - lu(k,2016) * lu(k,2211) - lu(k,2222) = lu(k,2222) - lu(k,2017) * lu(k,2211) - lu(k,2258) = lu(k,2258) - lu(k,2007) * lu(k,2257) - lu(k,2259) = lu(k,2259) - lu(k,2008) * lu(k,2257) - lu(k,2260) = lu(k,2260) - lu(k,2009) * lu(k,2257) - lu(k,2261) = lu(k,2261) - lu(k,2010) * lu(k,2257) - lu(k,2262) = lu(k,2262) - lu(k,2011) * lu(k,2257) - lu(k,2263) = lu(k,2263) - lu(k,2012) * lu(k,2257) - lu(k,2264) = lu(k,2264) - lu(k,2013) * lu(k,2257) - lu(k,2265) = lu(k,2265) - lu(k,2014) * lu(k,2257) - lu(k,2266) = lu(k,2266) - lu(k,2015) * lu(k,2257) - lu(k,2267) = lu(k,2267) - lu(k,2016) * lu(k,2257) - lu(k,2268) = lu(k,2268) - lu(k,2017) * lu(k,2257) - lu(k,2279) = lu(k,2279) - lu(k,2007) * lu(k,2278) - lu(k,2280) = lu(k,2280) - lu(k,2008) * lu(k,2278) - lu(k,2281) = lu(k,2281) - lu(k,2009) * lu(k,2278) - lu(k,2282) = lu(k,2282) - lu(k,2010) * lu(k,2278) - lu(k,2283) = lu(k,2283) - lu(k,2011) * lu(k,2278) - lu(k,2284) = lu(k,2284) - lu(k,2012) * lu(k,2278) - lu(k,2285) = lu(k,2285) - lu(k,2013) * lu(k,2278) - lu(k,2286) = lu(k,2286) - lu(k,2014) * lu(k,2278) - lu(k,2287) = lu(k,2287) - lu(k,2015) * lu(k,2278) - lu(k,2288) = lu(k,2288) - lu(k,2016) * lu(k,2278) - lu(k,2289) = lu(k,2289) - lu(k,2017) * lu(k,2278) - lu(k,2302) = lu(k,2302) - lu(k,2007) * lu(k,2301) - lu(k,2303) = lu(k,2303) - lu(k,2008) * lu(k,2301) - lu(k,2304) = lu(k,2304) - lu(k,2009) * lu(k,2301) - lu(k,2305) = lu(k,2305) - lu(k,2010) * lu(k,2301) - lu(k,2306) = lu(k,2306) - lu(k,2011) * lu(k,2301) - lu(k,2307) = lu(k,2307) - lu(k,2012) * lu(k,2301) - lu(k,2308) = lu(k,2308) - lu(k,2013) * lu(k,2301) - lu(k,2309) = lu(k,2309) - lu(k,2014) * lu(k,2301) - lu(k,2310) = lu(k,2310) - lu(k,2015) * lu(k,2301) - lu(k,2311) = lu(k,2311) - lu(k,2016) * lu(k,2301) - lu(k,2312) = lu(k,2312) - lu(k,2017) * lu(k,2301) - lu(k,2354) = lu(k,2354) - lu(k,2007) * lu(k,2353) - lu(k,2355) = lu(k,2355) - lu(k,2008) * lu(k,2353) - lu(k,2356) = lu(k,2356) - lu(k,2009) * lu(k,2353) - lu(k,2357) = lu(k,2357) - lu(k,2010) * lu(k,2353) - lu(k,2358) = lu(k,2358) - lu(k,2011) * lu(k,2353) - lu(k,2359) = lu(k,2359) - lu(k,2012) * lu(k,2353) - lu(k,2360) = lu(k,2360) - lu(k,2013) * lu(k,2353) - lu(k,2361) = lu(k,2361) - lu(k,2014) * lu(k,2353) - lu(k,2362) = lu(k,2362) - lu(k,2015) * lu(k,2353) - lu(k,2363) = lu(k,2363) - lu(k,2016) * lu(k,2353) - lu(k,2364) = lu(k,2364) - lu(k,2017) * lu(k,2353) - lu(k,2418) = lu(k,2418) - lu(k,2007) * lu(k,2417) - lu(k,2419) = lu(k,2419) - lu(k,2008) * lu(k,2417) - lu(k,2420) = lu(k,2420) - lu(k,2009) * lu(k,2417) - lu(k,2421) = lu(k,2421) - lu(k,2010) * lu(k,2417) - lu(k,2422) = lu(k,2422) - lu(k,2011) * lu(k,2417) - lu(k,2423) = lu(k,2423) - lu(k,2012) * lu(k,2417) - lu(k,2424) = lu(k,2424) - lu(k,2013) * lu(k,2417) - lu(k,2425) = lu(k,2425) - lu(k,2014) * lu(k,2417) - lu(k,2426) = lu(k,2426) - lu(k,2015) * lu(k,2417) - lu(k,2427) = lu(k,2427) - lu(k,2016) * lu(k,2417) - lu(k,2428) = lu(k,2428) - lu(k,2017) * lu(k,2417) - lu(k,2461) = lu(k,2461) - lu(k,2007) * lu(k,2460) - lu(k,2462) = lu(k,2462) - lu(k,2008) * lu(k,2460) - lu(k,2463) = lu(k,2463) - lu(k,2009) * lu(k,2460) - lu(k,2464) = lu(k,2464) - lu(k,2010) * lu(k,2460) - lu(k,2465) = lu(k,2465) - lu(k,2011) * lu(k,2460) - lu(k,2466) = lu(k,2466) - lu(k,2012) * lu(k,2460) - lu(k,2467) = lu(k,2467) - lu(k,2013) * lu(k,2460) - lu(k,2468) = lu(k,2468) - lu(k,2014) * lu(k,2460) - lu(k,2469) = lu(k,2469) - lu(k,2015) * lu(k,2460) - lu(k,2470) = lu(k,2470) - lu(k,2016) * lu(k,2460) - lu(k,2471) = lu(k,2471) - lu(k,2017) * lu(k,2460) - lu(k,2487) = lu(k,2487) - lu(k,2007) * lu(k,2486) - lu(k,2488) = lu(k,2488) - lu(k,2008) * lu(k,2486) - lu(k,2489) = lu(k,2489) - lu(k,2009) * lu(k,2486) - lu(k,2490) = lu(k,2490) - lu(k,2010) * lu(k,2486) - lu(k,2491) = lu(k,2491) - lu(k,2011) * lu(k,2486) - lu(k,2492) = lu(k,2492) - lu(k,2012) * lu(k,2486) - lu(k,2493) = lu(k,2493) - lu(k,2013) * lu(k,2486) - lu(k,2494) = lu(k,2494) - lu(k,2014) * lu(k,2486) - lu(k,2495) = lu(k,2495) - lu(k,2015) * lu(k,2486) - lu(k,2496) = lu(k,2496) - lu(k,2016) * lu(k,2486) - lu(k,2497) = lu(k,2497) - lu(k,2017) * lu(k,2486) - lu(k,2514) = lu(k,2514) - lu(k,2007) * lu(k,2513) - lu(k,2515) = lu(k,2515) - lu(k,2008) * lu(k,2513) - lu(k,2516) = lu(k,2516) - lu(k,2009) * lu(k,2513) - lu(k,2517) = lu(k,2517) - lu(k,2010) * lu(k,2513) - lu(k,2518) = lu(k,2518) - lu(k,2011) * lu(k,2513) - lu(k,2519) = lu(k,2519) - lu(k,2012) * lu(k,2513) - lu(k,2520) = lu(k,2520) - lu(k,2013) * lu(k,2513) - lu(k,2521) = lu(k,2521) - lu(k,2014) * lu(k,2513) - lu(k,2522) = lu(k,2522) - lu(k,2015) * lu(k,2513) - lu(k,2523) = lu(k,2523) - lu(k,2016) * lu(k,2513) - lu(k,2524) = lu(k,2524) - lu(k,2017) * lu(k,2513) - lu(k,2067) = 1._r8 / lu(k,2067) - lu(k,2068) = lu(k,2068) * lu(k,2067) - lu(k,2069) = lu(k,2069) * lu(k,2067) - lu(k,2070) = lu(k,2070) * lu(k,2067) - lu(k,2071) = lu(k,2071) * lu(k,2067) - lu(k,2072) = lu(k,2072) * lu(k,2067) - lu(k,2073) = lu(k,2073) * lu(k,2067) - lu(k,2074) = lu(k,2074) * lu(k,2067) - lu(k,2075) = lu(k,2075) * lu(k,2067) - lu(k,2076) = lu(k,2076) * lu(k,2067) - lu(k,2077) = lu(k,2077) * lu(k,2067) - lu(k,2093) = lu(k,2093) - lu(k,2068) * lu(k,2092) - lu(k,2094) = lu(k,2094) - lu(k,2069) * lu(k,2092) - lu(k,2095) = lu(k,2095) - lu(k,2070) * lu(k,2092) - lu(k,2096) = lu(k,2096) - lu(k,2071) * lu(k,2092) - lu(k,2097) = lu(k,2097) - lu(k,2072) * lu(k,2092) - lu(k,2098) = lu(k,2098) - lu(k,2073) * lu(k,2092) - lu(k,2099) = lu(k,2099) - lu(k,2074) * lu(k,2092) - lu(k,2100) = lu(k,2100) - lu(k,2075) * lu(k,2092) - lu(k,2101) = lu(k,2101) - lu(k,2076) * lu(k,2092) - lu(k,2102) = lu(k,2102) - lu(k,2077) * lu(k,2092) - lu(k,2213) = lu(k,2213) - lu(k,2068) * lu(k,2212) - lu(k,2214) = lu(k,2214) - lu(k,2069) * lu(k,2212) - lu(k,2215) = lu(k,2215) - lu(k,2070) * lu(k,2212) - lu(k,2216) = lu(k,2216) - lu(k,2071) * lu(k,2212) - lu(k,2217) = lu(k,2217) - lu(k,2072) * lu(k,2212) - lu(k,2218) = lu(k,2218) - lu(k,2073) * lu(k,2212) - lu(k,2219) = lu(k,2219) - lu(k,2074) * lu(k,2212) - lu(k,2220) = lu(k,2220) - lu(k,2075) * lu(k,2212) - lu(k,2221) = lu(k,2221) - lu(k,2076) * lu(k,2212) - lu(k,2222) = lu(k,2222) - lu(k,2077) * lu(k,2212) - lu(k,2259) = lu(k,2259) - lu(k,2068) * lu(k,2258) - lu(k,2260) = lu(k,2260) - lu(k,2069) * lu(k,2258) - lu(k,2261) = lu(k,2261) - lu(k,2070) * lu(k,2258) - lu(k,2262) = lu(k,2262) - lu(k,2071) * lu(k,2258) - lu(k,2263) = lu(k,2263) - lu(k,2072) * lu(k,2258) - lu(k,2264) = lu(k,2264) - lu(k,2073) * lu(k,2258) - lu(k,2265) = lu(k,2265) - lu(k,2074) * lu(k,2258) - lu(k,2266) = lu(k,2266) - lu(k,2075) * lu(k,2258) - lu(k,2267) = lu(k,2267) - lu(k,2076) * lu(k,2258) - lu(k,2268) = lu(k,2268) - lu(k,2077) * lu(k,2258) - lu(k,2280) = lu(k,2280) - lu(k,2068) * lu(k,2279) - lu(k,2281) = lu(k,2281) - lu(k,2069) * lu(k,2279) - lu(k,2282) = lu(k,2282) - lu(k,2070) * lu(k,2279) - lu(k,2283) = lu(k,2283) - lu(k,2071) * lu(k,2279) - lu(k,2284) = lu(k,2284) - lu(k,2072) * lu(k,2279) - lu(k,2285) = lu(k,2285) - lu(k,2073) * lu(k,2279) - lu(k,2286) = lu(k,2286) - lu(k,2074) * lu(k,2279) - lu(k,2287) = lu(k,2287) - lu(k,2075) * lu(k,2279) - lu(k,2288) = lu(k,2288) - lu(k,2076) * lu(k,2279) - lu(k,2289) = lu(k,2289) - lu(k,2077) * lu(k,2279) - lu(k,2303) = lu(k,2303) - lu(k,2068) * lu(k,2302) - lu(k,2304) = lu(k,2304) - lu(k,2069) * lu(k,2302) - lu(k,2305) = lu(k,2305) - lu(k,2070) * lu(k,2302) - lu(k,2306) = lu(k,2306) - lu(k,2071) * lu(k,2302) - lu(k,2307) = lu(k,2307) - lu(k,2072) * lu(k,2302) - lu(k,2308) = lu(k,2308) - lu(k,2073) * lu(k,2302) - lu(k,2309) = lu(k,2309) - lu(k,2074) * lu(k,2302) - lu(k,2310) = lu(k,2310) - lu(k,2075) * lu(k,2302) - lu(k,2311) = lu(k,2311) - lu(k,2076) * lu(k,2302) - lu(k,2312) = lu(k,2312) - lu(k,2077) * lu(k,2302) - lu(k,2355) = lu(k,2355) - lu(k,2068) * lu(k,2354) - lu(k,2356) = lu(k,2356) - lu(k,2069) * lu(k,2354) - lu(k,2357) = lu(k,2357) - lu(k,2070) * lu(k,2354) - lu(k,2358) = lu(k,2358) - lu(k,2071) * lu(k,2354) - lu(k,2359) = lu(k,2359) - lu(k,2072) * lu(k,2354) - lu(k,2360) = lu(k,2360) - lu(k,2073) * lu(k,2354) - lu(k,2361) = lu(k,2361) - lu(k,2074) * lu(k,2354) - lu(k,2362) = lu(k,2362) - lu(k,2075) * lu(k,2354) - lu(k,2363) = lu(k,2363) - lu(k,2076) * lu(k,2354) - lu(k,2364) = lu(k,2364) - lu(k,2077) * lu(k,2354) - lu(k,2419) = lu(k,2419) - lu(k,2068) * lu(k,2418) - lu(k,2420) = lu(k,2420) - lu(k,2069) * lu(k,2418) - lu(k,2421) = lu(k,2421) - lu(k,2070) * lu(k,2418) - lu(k,2422) = lu(k,2422) - lu(k,2071) * lu(k,2418) - lu(k,2423) = lu(k,2423) - lu(k,2072) * lu(k,2418) - lu(k,2424) = lu(k,2424) - lu(k,2073) * lu(k,2418) - lu(k,2425) = lu(k,2425) - lu(k,2074) * lu(k,2418) - lu(k,2426) = lu(k,2426) - lu(k,2075) * lu(k,2418) - lu(k,2427) = lu(k,2427) - lu(k,2076) * lu(k,2418) - lu(k,2428) = lu(k,2428) - lu(k,2077) * lu(k,2418) - lu(k,2462) = lu(k,2462) - lu(k,2068) * lu(k,2461) - lu(k,2463) = lu(k,2463) - lu(k,2069) * lu(k,2461) - lu(k,2464) = lu(k,2464) - lu(k,2070) * lu(k,2461) - lu(k,2465) = lu(k,2465) - lu(k,2071) * lu(k,2461) - lu(k,2466) = lu(k,2466) - lu(k,2072) * lu(k,2461) - lu(k,2467) = lu(k,2467) - lu(k,2073) * lu(k,2461) - lu(k,2468) = lu(k,2468) - lu(k,2074) * lu(k,2461) - lu(k,2469) = lu(k,2469) - lu(k,2075) * lu(k,2461) - lu(k,2470) = lu(k,2470) - lu(k,2076) * lu(k,2461) - lu(k,2471) = lu(k,2471) - lu(k,2077) * lu(k,2461) - lu(k,2488) = lu(k,2488) - lu(k,2068) * lu(k,2487) - lu(k,2489) = lu(k,2489) - lu(k,2069) * lu(k,2487) - lu(k,2490) = lu(k,2490) - lu(k,2070) * lu(k,2487) - lu(k,2491) = lu(k,2491) - lu(k,2071) * lu(k,2487) - lu(k,2492) = lu(k,2492) - lu(k,2072) * lu(k,2487) - lu(k,2493) = lu(k,2493) - lu(k,2073) * lu(k,2487) - lu(k,2494) = lu(k,2494) - lu(k,2074) * lu(k,2487) - lu(k,2495) = lu(k,2495) - lu(k,2075) * lu(k,2487) - lu(k,2496) = lu(k,2496) - lu(k,2076) * lu(k,2487) - lu(k,2497) = lu(k,2497) - lu(k,2077) * lu(k,2487) - lu(k,2515) = lu(k,2515) - lu(k,2068) * lu(k,2514) - lu(k,2516) = lu(k,2516) - lu(k,2069) * lu(k,2514) - lu(k,2517) = lu(k,2517) - lu(k,2070) * lu(k,2514) - lu(k,2518) = lu(k,2518) - lu(k,2071) * lu(k,2514) - lu(k,2519) = lu(k,2519) - lu(k,2072) * lu(k,2514) - lu(k,2520) = lu(k,2520) - lu(k,2073) * lu(k,2514) - lu(k,2521) = lu(k,2521) - lu(k,2074) * lu(k,2514) - lu(k,2522) = lu(k,2522) - lu(k,2075) * lu(k,2514) - lu(k,2523) = lu(k,2523) - lu(k,2076) * lu(k,2514) - lu(k,2524) = lu(k,2524) - lu(k,2077) * lu(k,2514) - lu(k,2093) = 1._r8 / lu(k,2093) - lu(k,2094) = lu(k,2094) * lu(k,2093) - lu(k,2095) = lu(k,2095) * lu(k,2093) - lu(k,2096) = lu(k,2096) * lu(k,2093) - lu(k,2097) = lu(k,2097) * lu(k,2093) - lu(k,2098) = lu(k,2098) * lu(k,2093) - lu(k,2099) = lu(k,2099) * lu(k,2093) - lu(k,2100) = lu(k,2100) * lu(k,2093) - lu(k,2101) = lu(k,2101) * lu(k,2093) - lu(k,2102) = lu(k,2102) * lu(k,2093) - lu(k,2214) = lu(k,2214) - lu(k,2094) * lu(k,2213) - lu(k,2215) = lu(k,2215) - lu(k,2095) * lu(k,2213) - lu(k,2216) = lu(k,2216) - lu(k,2096) * lu(k,2213) - lu(k,2217) = lu(k,2217) - lu(k,2097) * lu(k,2213) - lu(k,2218) = lu(k,2218) - lu(k,2098) * lu(k,2213) - lu(k,2219) = lu(k,2219) - lu(k,2099) * lu(k,2213) - lu(k,2220) = lu(k,2220) - lu(k,2100) * lu(k,2213) - lu(k,2221) = lu(k,2221) - lu(k,2101) * lu(k,2213) - lu(k,2222) = lu(k,2222) - lu(k,2102) * lu(k,2213) - lu(k,2260) = lu(k,2260) - lu(k,2094) * lu(k,2259) - lu(k,2261) = lu(k,2261) - lu(k,2095) * lu(k,2259) - lu(k,2262) = lu(k,2262) - lu(k,2096) * lu(k,2259) - lu(k,2263) = lu(k,2263) - lu(k,2097) * lu(k,2259) - lu(k,2264) = lu(k,2264) - lu(k,2098) * lu(k,2259) - lu(k,2265) = lu(k,2265) - lu(k,2099) * lu(k,2259) - lu(k,2266) = lu(k,2266) - lu(k,2100) * lu(k,2259) - lu(k,2267) = lu(k,2267) - lu(k,2101) * lu(k,2259) - lu(k,2268) = lu(k,2268) - lu(k,2102) * lu(k,2259) - lu(k,2281) = lu(k,2281) - lu(k,2094) * lu(k,2280) - lu(k,2282) = lu(k,2282) - lu(k,2095) * lu(k,2280) - lu(k,2283) = lu(k,2283) - lu(k,2096) * lu(k,2280) - lu(k,2284) = lu(k,2284) - lu(k,2097) * lu(k,2280) - lu(k,2285) = lu(k,2285) - lu(k,2098) * lu(k,2280) - lu(k,2286) = lu(k,2286) - lu(k,2099) * lu(k,2280) - lu(k,2287) = lu(k,2287) - lu(k,2100) * lu(k,2280) - lu(k,2288) = lu(k,2288) - lu(k,2101) * lu(k,2280) - lu(k,2289) = lu(k,2289) - lu(k,2102) * lu(k,2280) - lu(k,2304) = lu(k,2304) - lu(k,2094) * lu(k,2303) - lu(k,2305) = lu(k,2305) - lu(k,2095) * lu(k,2303) - lu(k,2306) = lu(k,2306) - lu(k,2096) * lu(k,2303) - lu(k,2307) = lu(k,2307) - lu(k,2097) * lu(k,2303) - lu(k,2308) = lu(k,2308) - lu(k,2098) * lu(k,2303) - lu(k,2309) = lu(k,2309) - lu(k,2099) * lu(k,2303) - lu(k,2310) = lu(k,2310) - lu(k,2100) * lu(k,2303) - lu(k,2311) = lu(k,2311) - lu(k,2101) * lu(k,2303) - lu(k,2312) = lu(k,2312) - lu(k,2102) * lu(k,2303) - lu(k,2356) = lu(k,2356) - lu(k,2094) * lu(k,2355) - lu(k,2357) = lu(k,2357) - lu(k,2095) * lu(k,2355) - lu(k,2358) = lu(k,2358) - lu(k,2096) * lu(k,2355) - lu(k,2359) = lu(k,2359) - lu(k,2097) * lu(k,2355) - lu(k,2360) = lu(k,2360) - lu(k,2098) * lu(k,2355) - lu(k,2361) = lu(k,2361) - lu(k,2099) * lu(k,2355) - lu(k,2362) = lu(k,2362) - lu(k,2100) * lu(k,2355) - lu(k,2363) = lu(k,2363) - lu(k,2101) * lu(k,2355) - lu(k,2364) = lu(k,2364) - lu(k,2102) * lu(k,2355) - lu(k,2420) = lu(k,2420) - lu(k,2094) * lu(k,2419) - lu(k,2421) = lu(k,2421) - lu(k,2095) * lu(k,2419) - lu(k,2422) = lu(k,2422) - lu(k,2096) * lu(k,2419) - lu(k,2423) = lu(k,2423) - lu(k,2097) * lu(k,2419) - lu(k,2424) = lu(k,2424) - lu(k,2098) * lu(k,2419) - lu(k,2425) = lu(k,2425) - lu(k,2099) * lu(k,2419) - lu(k,2426) = lu(k,2426) - lu(k,2100) * lu(k,2419) - lu(k,2427) = lu(k,2427) - lu(k,2101) * lu(k,2419) - lu(k,2428) = lu(k,2428) - lu(k,2102) * lu(k,2419) - lu(k,2463) = lu(k,2463) - lu(k,2094) * lu(k,2462) - lu(k,2464) = lu(k,2464) - lu(k,2095) * lu(k,2462) - lu(k,2465) = lu(k,2465) - lu(k,2096) * lu(k,2462) - lu(k,2466) = lu(k,2466) - lu(k,2097) * lu(k,2462) - lu(k,2467) = lu(k,2467) - lu(k,2098) * lu(k,2462) - lu(k,2468) = lu(k,2468) - lu(k,2099) * lu(k,2462) - lu(k,2469) = lu(k,2469) - lu(k,2100) * lu(k,2462) - lu(k,2470) = lu(k,2470) - lu(k,2101) * lu(k,2462) - lu(k,2471) = lu(k,2471) - lu(k,2102) * lu(k,2462) - lu(k,2489) = lu(k,2489) - lu(k,2094) * lu(k,2488) - lu(k,2490) = lu(k,2490) - lu(k,2095) * lu(k,2488) - lu(k,2491) = lu(k,2491) - lu(k,2096) * lu(k,2488) - lu(k,2492) = lu(k,2492) - lu(k,2097) * lu(k,2488) - lu(k,2493) = lu(k,2493) - lu(k,2098) * lu(k,2488) - lu(k,2494) = lu(k,2494) - lu(k,2099) * lu(k,2488) - lu(k,2495) = lu(k,2495) - lu(k,2100) * lu(k,2488) - lu(k,2496) = lu(k,2496) - lu(k,2101) * lu(k,2488) - lu(k,2497) = lu(k,2497) - lu(k,2102) * lu(k,2488) - lu(k,2516) = lu(k,2516) - lu(k,2094) * lu(k,2515) - lu(k,2517) = lu(k,2517) - lu(k,2095) * lu(k,2515) - lu(k,2518) = lu(k,2518) - lu(k,2096) * lu(k,2515) - lu(k,2519) = lu(k,2519) - lu(k,2097) * lu(k,2515) - lu(k,2520) = lu(k,2520) - lu(k,2098) * lu(k,2515) - lu(k,2521) = lu(k,2521) - lu(k,2099) * lu(k,2515) - lu(k,2522) = lu(k,2522) - lu(k,2100) * lu(k,2515) - lu(k,2523) = lu(k,2523) - lu(k,2101) * lu(k,2515) - lu(k,2524) = lu(k,2524) - lu(k,2102) * lu(k,2515) + lu(k,1854) = 1._r8 / lu(k,1854) + lu(k,1855) = lu(k,1855) * lu(k,1854) + lu(k,1856) = lu(k,1856) * lu(k,1854) + lu(k,1857) = lu(k,1857) * lu(k,1854) + lu(k,1858) = lu(k,1858) * lu(k,1854) + lu(k,1859) = lu(k,1859) * lu(k,1854) + lu(k,1860) = lu(k,1860) * lu(k,1854) + lu(k,1861) = lu(k,1861) * lu(k,1854) + lu(k,1862) = lu(k,1862) * lu(k,1854) + lu(k,1863) = lu(k,1863) * lu(k,1854) + lu(k,1864) = lu(k,1864) * lu(k,1854) + lu(k,1865) = lu(k,1865) * lu(k,1854) + lu(k,1866) = lu(k,1866) * lu(k,1854) + lu(k,1867) = lu(k,1867) * lu(k,1854) + lu(k,1962) = lu(k,1962) - lu(k,1855) * lu(k,1961) + lu(k,1963) = lu(k,1963) - lu(k,1856) * lu(k,1961) + lu(k,1964) = lu(k,1964) - lu(k,1857) * lu(k,1961) + lu(k,1965) = lu(k,1965) - lu(k,1858) * lu(k,1961) + lu(k,1966) = lu(k,1966) - lu(k,1859) * lu(k,1961) + lu(k,1967) = lu(k,1967) - lu(k,1860) * lu(k,1961) + lu(k,1968) = lu(k,1968) - lu(k,1861) * lu(k,1961) + lu(k,1969) = lu(k,1969) - lu(k,1862) * lu(k,1961) + lu(k,1970) = lu(k,1970) - lu(k,1863) * lu(k,1961) + lu(k,1971) = lu(k,1971) - lu(k,1864) * lu(k,1961) + lu(k,1972) = lu(k,1972) - lu(k,1865) * lu(k,1961) + lu(k,1973) = lu(k,1973) - lu(k,1866) * lu(k,1961) + lu(k,1974) = lu(k,1974) - lu(k,1867) * lu(k,1961) + lu(k,2008) = lu(k,2008) - lu(k,1855) * lu(k,2007) + lu(k,2009) = lu(k,2009) - lu(k,1856) * lu(k,2007) + lu(k,2010) = lu(k,2010) - lu(k,1857) * lu(k,2007) + lu(k,2011) = lu(k,2011) - lu(k,1858) * lu(k,2007) + lu(k,2012) = lu(k,2012) - lu(k,1859) * lu(k,2007) + lu(k,2013) = lu(k,2013) - lu(k,1860) * lu(k,2007) + lu(k,2014) = lu(k,2014) - lu(k,1861) * lu(k,2007) + lu(k,2015) = lu(k,2015) - lu(k,1862) * lu(k,2007) + lu(k,2016) = lu(k,2016) - lu(k,1863) * lu(k,2007) + lu(k,2017) = lu(k,2017) - lu(k,1864) * lu(k,2007) + lu(k,2018) = lu(k,2018) - lu(k,1865) * lu(k,2007) + lu(k,2019) = lu(k,2019) - lu(k,1866) * lu(k,2007) + lu(k,2020) = lu(k,2020) - lu(k,1867) * lu(k,2007) + lu(k,2051) = lu(k,2051) - lu(k,1855) * lu(k,2050) + lu(k,2052) = lu(k,2052) - lu(k,1856) * lu(k,2050) + lu(k,2053) = lu(k,2053) - lu(k,1857) * lu(k,2050) + lu(k,2054) = lu(k,2054) - lu(k,1858) * lu(k,2050) + lu(k,2055) = lu(k,2055) - lu(k,1859) * lu(k,2050) + lu(k,2056) = lu(k,2056) - lu(k,1860) * lu(k,2050) + lu(k,2057) = lu(k,2057) - lu(k,1861) * lu(k,2050) + lu(k,2058) = lu(k,2058) - lu(k,1862) * lu(k,2050) + lu(k,2059) = lu(k,2059) - lu(k,1863) * lu(k,2050) + lu(k,2060) = lu(k,2060) - lu(k,1864) * lu(k,2050) + lu(k,2061) = lu(k,2061) - lu(k,1865) * lu(k,2050) + lu(k,2062) = lu(k,2062) - lu(k,1866) * lu(k,2050) + lu(k,2063) = lu(k,2063) - lu(k,1867) * lu(k,2050) + lu(k,2115) = lu(k,2115) - lu(k,1855) * lu(k,2114) + lu(k,2116) = lu(k,2116) - lu(k,1856) * lu(k,2114) + lu(k,2117) = lu(k,2117) - lu(k,1857) * lu(k,2114) + lu(k,2118) = lu(k,2118) - lu(k,1858) * lu(k,2114) + lu(k,2119) = lu(k,2119) - lu(k,1859) * lu(k,2114) + lu(k,2120) = lu(k,2120) - lu(k,1860) * lu(k,2114) + lu(k,2121) = lu(k,2121) - lu(k,1861) * lu(k,2114) + lu(k,2122) = lu(k,2122) - lu(k,1862) * lu(k,2114) + lu(k,2123) = lu(k,2123) - lu(k,1863) * lu(k,2114) + lu(k,2124) = lu(k,2124) - lu(k,1864) * lu(k,2114) + lu(k,2125) = lu(k,2125) - lu(k,1865) * lu(k,2114) + lu(k,2126) = lu(k,2126) - lu(k,1866) * lu(k,2114) + lu(k,2127) = lu(k,2127) - lu(k,1867) * lu(k,2114) + lu(k,2136) = lu(k,2136) - lu(k,1855) * lu(k,2135) + lu(k,2137) = lu(k,2137) - lu(k,1856) * lu(k,2135) + lu(k,2138) = lu(k,2138) - lu(k,1857) * lu(k,2135) + lu(k,2139) = lu(k,2139) - lu(k,1858) * lu(k,2135) + lu(k,2140) = lu(k,2140) - lu(k,1859) * lu(k,2135) + lu(k,2141) = lu(k,2141) - lu(k,1860) * lu(k,2135) + lu(k,2142) = lu(k,2142) - lu(k,1861) * lu(k,2135) + lu(k,2143) = lu(k,2143) - lu(k,1862) * lu(k,2135) + lu(k,2144) = lu(k,2144) - lu(k,1863) * lu(k,2135) + lu(k,2145) = lu(k,2145) - lu(k,1864) * lu(k,2135) + lu(k,2146) = lu(k,2146) - lu(k,1865) * lu(k,2135) + lu(k,2147) = lu(k,2147) - lu(k,1866) * lu(k,2135) + lu(k,2148) = lu(k,2148) - lu(k,1867) * lu(k,2135) + lu(k,2188) = lu(k,2188) - lu(k,1855) * lu(k,2187) + lu(k,2189) = lu(k,2189) - lu(k,1856) * lu(k,2187) + lu(k,2190) = lu(k,2190) - lu(k,1857) * lu(k,2187) + lu(k,2191) = lu(k,2191) - lu(k,1858) * lu(k,2187) + lu(k,2192) = lu(k,2192) - lu(k,1859) * lu(k,2187) + lu(k,2193) = lu(k,2193) - lu(k,1860) * lu(k,2187) + lu(k,2194) = lu(k,2194) - lu(k,1861) * lu(k,2187) + lu(k,2195) = lu(k,2195) - lu(k,1862) * lu(k,2187) + lu(k,2196) = lu(k,2196) - lu(k,1863) * lu(k,2187) + lu(k,2197) = lu(k,2197) - lu(k,1864) * lu(k,2187) + lu(k,2198) = lu(k,2198) - lu(k,1865) * lu(k,2187) + lu(k,2199) = lu(k,2199) - lu(k,1866) * lu(k,2187) + lu(k,2200) = lu(k,2200) - lu(k,1867) * lu(k,2187) + lu(k,2231) = lu(k,2231) - lu(k,1855) * lu(k,2230) + lu(k,2232) = lu(k,2232) - lu(k,1856) * lu(k,2230) + lu(k,2233) = lu(k,2233) - lu(k,1857) * lu(k,2230) + lu(k,2234) = lu(k,2234) - lu(k,1858) * lu(k,2230) + lu(k,2235) = lu(k,2235) - lu(k,1859) * lu(k,2230) + lu(k,2236) = lu(k,2236) - lu(k,1860) * lu(k,2230) + lu(k,2237) = lu(k,2237) - lu(k,1861) * lu(k,2230) + lu(k,2238) = lu(k,2238) - lu(k,1862) * lu(k,2230) + lu(k,2239) = lu(k,2239) - lu(k,1863) * lu(k,2230) + lu(k,2240) = lu(k,2240) - lu(k,1864) * lu(k,2230) + lu(k,2241) = lu(k,2241) - lu(k,1865) * lu(k,2230) + lu(k,2242) = lu(k,2242) - lu(k,1866) * lu(k,2230) + lu(k,2243) = lu(k,2243) - lu(k,1867) * lu(k,2230) + lu(k,2254) = lu(k,2254) - lu(k,1855) * lu(k,2253) + lu(k,2255) = lu(k,2255) - lu(k,1856) * lu(k,2253) + lu(k,2256) = lu(k,2256) - lu(k,1857) * lu(k,2253) + lu(k,2257) = lu(k,2257) - lu(k,1858) * lu(k,2253) + lu(k,2258) = lu(k,2258) - lu(k,1859) * lu(k,2253) + lu(k,2259) = lu(k,2259) - lu(k,1860) * lu(k,2253) + lu(k,2260) = lu(k,2260) - lu(k,1861) * lu(k,2253) + lu(k,2261) = lu(k,2261) - lu(k,1862) * lu(k,2253) + lu(k,2262) = lu(k,2262) - lu(k,1863) * lu(k,2253) + lu(k,2263) = lu(k,2263) - lu(k,1864) * lu(k,2253) + lu(k,2264) = lu(k,2264) - lu(k,1865) * lu(k,2253) + lu(k,2265) = lu(k,2265) - lu(k,1866) * lu(k,2253) + lu(k,2266) = lu(k,2266) - lu(k,1867) * lu(k,2253) + lu(k,2374) = lu(k,2374) - lu(k,1855) * lu(k,2373) + lu(k,2375) = lu(k,2375) - lu(k,1856) * lu(k,2373) + lu(k,2376) = lu(k,2376) - lu(k,1857) * lu(k,2373) + lu(k,2377) = lu(k,2377) - lu(k,1858) * lu(k,2373) + lu(k,2378) = lu(k,2378) - lu(k,1859) * lu(k,2373) + lu(k,2379) = lu(k,2379) - lu(k,1860) * lu(k,2373) + lu(k,2380) = lu(k,2380) - lu(k,1861) * lu(k,2373) + lu(k,2381) = lu(k,2381) - lu(k,1862) * lu(k,2373) + lu(k,2382) = lu(k,2382) - lu(k,1863) * lu(k,2373) + lu(k,2383) = lu(k,2383) - lu(k,1864) * lu(k,2373) + lu(k,2384) = lu(k,2384) - lu(k,1865) * lu(k,2373) + lu(k,2385) = lu(k,2385) - lu(k,1866) * lu(k,2373) + lu(k,2386) = lu(k,2386) - lu(k,1867) * lu(k,2373) + lu(k,2434) = lu(k,2434) - lu(k,1855) * lu(k,2433) + lu(k,2435) = lu(k,2435) - lu(k,1856) * lu(k,2433) + lu(k,2436) = lu(k,2436) - lu(k,1857) * lu(k,2433) + lu(k,2437) = lu(k,2437) - lu(k,1858) * lu(k,2433) + lu(k,2438) = lu(k,2438) - lu(k,1859) * lu(k,2433) + lu(k,2439) = lu(k,2439) - lu(k,1860) * lu(k,2433) + lu(k,2440) = lu(k,2440) - lu(k,1861) * lu(k,2433) + lu(k,2441) = lu(k,2441) - lu(k,1862) * lu(k,2433) + lu(k,2442) = lu(k,2442) - lu(k,1863) * lu(k,2433) + lu(k,2443) = lu(k,2443) - lu(k,1864) * lu(k,2433) + lu(k,2444) = lu(k,2444) - lu(k,1865) * lu(k,2433) + lu(k,2445) = lu(k,2445) - lu(k,1866) * lu(k,2433) + lu(k,2446) = lu(k,2446) - lu(k,1867) * lu(k,2433) + lu(k,2460) = lu(k,2460) - lu(k,1855) * lu(k,2459) + lu(k,2461) = lu(k,2461) - lu(k,1856) * lu(k,2459) + lu(k,2462) = lu(k,2462) - lu(k,1857) * lu(k,2459) + lu(k,2463) = lu(k,2463) - lu(k,1858) * lu(k,2459) + lu(k,2464) = lu(k,2464) - lu(k,1859) * lu(k,2459) + lu(k,2465) = lu(k,2465) - lu(k,1860) * lu(k,2459) + lu(k,2466) = lu(k,2466) - lu(k,1861) * lu(k,2459) + lu(k,2467) = lu(k,2467) - lu(k,1862) * lu(k,2459) + lu(k,2468) = lu(k,2468) - lu(k,1863) * lu(k,2459) + lu(k,2469) = lu(k,2469) - lu(k,1864) * lu(k,2459) + lu(k,2470) = lu(k,2470) - lu(k,1865) * lu(k,2459) + lu(k,2471) = lu(k,2471) - lu(k,1866) * lu(k,2459) + lu(k,2472) = lu(k,2472) - lu(k,1867) * lu(k,2459) + lu(k,2487) = lu(k,2487) - lu(k,1855) * lu(k,2486) + lu(k,2488) = lu(k,2488) - lu(k,1856) * lu(k,2486) + lu(k,2489) = lu(k,2489) - lu(k,1857) * lu(k,2486) + lu(k,2490) = lu(k,2490) - lu(k,1858) * lu(k,2486) + lu(k,2491) = lu(k,2491) - lu(k,1859) * lu(k,2486) + lu(k,2492) = lu(k,2492) - lu(k,1860) * lu(k,2486) + lu(k,2493) = lu(k,2493) - lu(k,1861) * lu(k,2486) + lu(k,2494) = lu(k,2494) - lu(k,1862) * lu(k,2486) + lu(k,2495) = lu(k,2495) - lu(k,1863) * lu(k,2486) + lu(k,2496) = lu(k,2496) - lu(k,1864) * lu(k,2486) + lu(k,2497) = lu(k,2497) - lu(k,1865) * lu(k,2486) + lu(k,2498) = lu(k,2498) - lu(k,1866) * lu(k,2486) + lu(k,2499) = lu(k,2499) - lu(k,1867) * lu(k,2486) + lu(k,2514) = lu(k,2514) - lu(k,1855) * lu(k,2513) + lu(k,2515) = lu(k,2515) - lu(k,1856) * lu(k,2513) + lu(k,2516) = lu(k,2516) - lu(k,1857) * lu(k,2513) + lu(k,2517) = lu(k,2517) - lu(k,1858) * lu(k,2513) + lu(k,2518) = lu(k,2518) - lu(k,1859) * lu(k,2513) + lu(k,2519) = lu(k,2519) - lu(k,1860) * lu(k,2513) + lu(k,2520) = lu(k,2520) - lu(k,1861) * lu(k,2513) + lu(k,2521) = lu(k,2521) - lu(k,1862) * lu(k,2513) + lu(k,2522) = lu(k,2522) - lu(k,1863) * lu(k,2513) + lu(k,2523) = lu(k,2523) - lu(k,1864) * lu(k,2513) + lu(k,2524) = lu(k,2524) - lu(k,1865) * lu(k,2513) + lu(k,2525) = lu(k,2525) - lu(k,1866) * lu(k,2513) + lu(k,2526) = lu(k,2526) - lu(k,1867) * lu(k,2513) + lu(k,1962) = 1._r8 / lu(k,1962) + lu(k,1963) = lu(k,1963) * lu(k,1962) + lu(k,1964) = lu(k,1964) * lu(k,1962) + lu(k,1965) = lu(k,1965) * lu(k,1962) + lu(k,1966) = lu(k,1966) * lu(k,1962) + lu(k,1967) = lu(k,1967) * lu(k,1962) + lu(k,1968) = lu(k,1968) * lu(k,1962) + lu(k,1969) = lu(k,1969) * lu(k,1962) + lu(k,1970) = lu(k,1970) * lu(k,1962) + lu(k,1971) = lu(k,1971) * lu(k,1962) + lu(k,1972) = lu(k,1972) * lu(k,1962) + lu(k,1973) = lu(k,1973) * lu(k,1962) + lu(k,1974) = lu(k,1974) * lu(k,1962) + lu(k,2009) = lu(k,2009) - lu(k,1963) * lu(k,2008) + lu(k,2010) = lu(k,2010) - lu(k,1964) * lu(k,2008) + lu(k,2011) = lu(k,2011) - lu(k,1965) * lu(k,2008) + lu(k,2012) = lu(k,2012) - lu(k,1966) * lu(k,2008) + lu(k,2013) = lu(k,2013) - lu(k,1967) * lu(k,2008) + lu(k,2014) = lu(k,2014) - lu(k,1968) * lu(k,2008) + lu(k,2015) = lu(k,2015) - lu(k,1969) * lu(k,2008) + lu(k,2016) = lu(k,2016) - lu(k,1970) * lu(k,2008) + lu(k,2017) = lu(k,2017) - lu(k,1971) * lu(k,2008) + lu(k,2018) = lu(k,2018) - lu(k,1972) * lu(k,2008) + lu(k,2019) = lu(k,2019) - lu(k,1973) * lu(k,2008) + lu(k,2020) = lu(k,2020) - lu(k,1974) * lu(k,2008) + lu(k,2052) = lu(k,2052) - lu(k,1963) * lu(k,2051) + lu(k,2053) = lu(k,2053) - lu(k,1964) * lu(k,2051) + lu(k,2054) = lu(k,2054) - lu(k,1965) * lu(k,2051) + lu(k,2055) = lu(k,2055) - lu(k,1966) * lu(k,2051) + lu(k,2056) = lu(k,2056) - lu(k,1967) * lu(k,2051) + lu(k,2057) = lu(k,2057) - lu(k,1968) * lu(k,2051) + lu(k,2058) = lu(k,2058) - lu(k,1969) * lu(k,2051) + lu(k,2059) = lu(k,2059) - lu(k,1970) * lu(k,2051) + lu(k,2060) = lu(k,2060) - lu(k,1971) * lu(k,2051) + lu(k,2061) = lu(k,2061) - lu(k,1972) * lu(k,2051) + lu(k,2062) = lu(k,2062) - lu(k,1973) * lu(k,2051) + lu(k,2063) = lu(k,2063) - lu(k,1974) * lu(k,2051) + lu(k,2116) = lu(k,2116) - lu(k,1963) * lu(k,2115) + lu(k,2117) = lu(k,2117) - lu(k,1964) * lu(k,2115) + lu(k,2118) = lu(k,2118) - lu(k,1965) * lu(k,2115) + lu(k,2119) = lu(k,2119) - lu(k,1966) * lu(k,2115) + lu(k,2120) = lu(k,2120) - lu(k,1967) * lu(k,2115) + lu(k,2121) = lu(k,2121) - lu(k,1968) * lu(k,2115) + lu(k,2122) = lu(k,2122) - lu(k,1969) * lu(k,2115) + lu(k,2123) = lu(k,2123) - lu(k,1970) * lu(k,2115) + lu(k,2124) = lu(k,2124) - lu(k,1971) * lu(k,2115) + lu(k,2125) = lu(k,2125) - lu(k,1972) * lu(k,2115) + lu(k,2126) = lu(k,2126) - lu(k,1973) * lu(k,2115) + lu(k,2127) = lu(k,2127) - lu(k,1974) * lu(k,2115) + lu(k,2137) = lu(k,2137) - lu(k,1963) * lu(k,2136) + lu(k,2138) = lu(k,2138) - lu(k,1964) * lu(k,2136) + lu(k,2139) = lu(k,2139) - lu(k,1965) * lu(k,2136) + lu(k,2140) = lu(k,2140) - lu(k,1966) * lu(k,2136) + lu(k,2141) = lu(k,2141) - lu(k,1967) * lu(k,2136) + lu(k,2142) = lu(k,2142) - lu(k,1968) * lu(k,2136) + lu(k,2143) = lu(k,2143) - lu(k,1969) * lu(k,2136) + lu(k,2144) = lu(k,2144) - lu(k,1970) * lu(k,2136) + lu(k,2145) = lu(k,2145) - lu(k,1971) * lu(k,2136) + lu(k,2146) = lu(k,2146) - lu(k,1972) * lu(k,2136) + lu(k,2147) = lu(k,2147) - lu(k,1973) * lu(k,2136) + lu(k,2148) = lu(k,2148) - lu(k,1974) * lu(k,2136) + lu(k,2189) = lu(k,2189) - lu(k,1963) * lu(k,2188) + lu(k,2190) = lu(k,2190) - lu(k,1964) * lu(k,2188) + lu(k,2191) = lu(k,2191) - lu(k,1965) * lu(k,2188) + lu(k,2192) = lu(k,2192) - lu(k,1966) * lu(k,2188) + lu(k,2193) = lu(k,2193) - lu(k,1967) * lu(k,2188) + lu(k,2194) = lu(k,2194) - lu(k,1968) * lu(k,2188) + lu(k,2195) = lu(k,2195) - lu(k,1969) * lu(k,2188) + lu(k,2196) = lu(k,2196) - lu(k,1970) * lu(k,2188) + lu(k,2197) = lu(k,2197) - lu(k,1971) * lu(k,2188) + lu(k,2198) = lu(k,2198) - lu(k,1972) * lu(k,2188) + lu(k,2199) = lu(k,2199) - lu(k,1973) * lu(k,2188) + lu(k,2200) = lu(k,2200) - lu(k,1974) * lu(k,2188) + lu(k,2232) = lu(k,2232) - lu(k,1963) * lu(k,2231) + lu(k,2233) = lu(k,2233) - lu(k,1964) * lu(k,2231) + lu(k,2234) = lu(k,2234) - lu(k,1965) * lu(k,2231) + lu(k,2235) = lu(k,2235) - lu(k,1966) * lu(k,2231) + lu(k,2236) = lu(k,2236) - lu(k,1967) * lu(k,2231) + lu(k,2237) = lu(k,2237) - lu(k,1968) * lu(k,2231) + lu(k,2238) = lu(k,2238) - lu(k,1969) * lu(k,2231) + lu(k,2239) = lu(k,2239) - lu(k,1970) * lu(k,2231) + lu(k,2240) = lu(k,2240) - lu(k,1971) * lu(k,2231) + lu(k,2241) = lu(k,2241) - lu(k,1972) * lu(k,2231) + lu(k,2242) = lu(k,2242) - lu(k,1973) * lu(k,2231) + lu(k,2243) = lu(k,2243) - lu(k,1974) * lu(k,2231) + lu(k,2255) = lu(k,2255) - lu(k,1963) * lu(k,2254) + lu(k,2256) = lu(k,2256) - lu(k,1964) * lu(k,2254) + lu(k,2257) = lu(k,2257) - lu(k,1965) * lu(k,2254) + lu(k,2258) = lu(k,2258) - lu(k,1966) * lu(k,2254) + lu(k,2259) = lu(k,2259) - lu(k,1967) * lu(k,2254) + lu(k,2260) = lu(k,2260) - lu(k,1968) * lu(k,2254) + lu(k,2261) = lu(k,2261) - lu(k,1969) * lu(k,2254) + lu(k,2262) = lu(k,2262) - lu(k,1970) * lu(k,2254) + lu(k,2263) = lu(k,2263) - lu(k,1971) * lu(k,2254) + lu(k,2264) = lu(k,2264) - lu(k,1972) * lu(k,2254) + lu(k,2265) = lu(k,2265) - lu(k,1973) * lu(k,2254) + lu(k,2266) = lu(k,2266) - lu(k,1974) * lu(k,2254) + lu(k,2375) = lu(k,2375) - lu(k,1963) * lu(k,2374) + lu(k,2376) = lu(k,2376) - lu(k,1964) * lu(k,2374) + lu(k,2377) = lu(k,2377) - lu(k,1965) * lu(k,2374) + lu(k,2378) = lu(k,2378) - lu(k,1966) * lu(k,2374) + lu(k,2379) = lu(k,2379) - lu(k,1967) * lu(k,2374) + lu(k,2380) = lu(k,2380) - lu(k,1968) * lu(k,2374) + lu(k,2381) = lu(k,2381) - lu(k,1969) * lu(k,2374) + lu(k,2382) = lu(k,2382) - lu(k,1970) * lu(k,2374) + lu(k,2383) = lu(k,2383) - lu(k,1971) * lu(k,2374) + lu(k,2384) = lu(k,2384) - lu(k,1972) * lu(k,2374) + lu(k,2385) = lu(k,2385) - lu(k,1973) * lu(k,2374) + lu(k,2386) = lu(k,2386) - lu(k,1974) * lu(k,2374) + lu(k,2435) = lu(k,2435) - lu(k,1963) * lu(k,2434) + lu(k,2436) = lu(k,2436) - lu(k,1964) * lu(k,2434) + lu(k,2437) = lu(k,2437) - lu(k,1965) * lu(k,2434) + lu(k,2438) = lu(k,2438) - lu(k,1966) * lu(k,2434) + lu(k,2439) = lu(k,2439) - lu(k,1967) * lu(k,2434) + lu(k,2440) = lu(k,2440) - lu(k,1968) * lu(k,2434) + lu(k,2441) = lu(k,2441) - lu(k,1969) * lu(k,2434) + lu(k,2442) = lu(k,2442) - lu(k,1970) * lu(k,2434) + lu(k,2443) = lu(k,2443) - lu(k,1971) * lu(k,2434) + lu(k,2444) = lu(k,2444) - lu(k,1972) * lu(k,2434) + lu(k,2445) = lu(k,2445) - lu(k,1973) * lu(k,2434) + lu(k,2446) = lu(k,2446) - lu(k,1974) * lu(k,2434) + lu(k,2461) = lu(k,2461) - lu(k,1963) * lu(k,2460) + lu(k,2462) = lu(k,2462) - lu(k,1964) * lu(k,2460) + lu(k,2463) = lu(k,2463) - lu(k,1965) * lu(k,2460) + lu(k,2464) = lu(k,2464) - lu(k,1966) * lu(k,2460) + lu(k,2465) = lu(k,2465) - lu(k,1967) * lu(k,2460) + lu(k,2466) = lu(k,2466) - lu(k,1968) * lu(k,2460) + lu(k,2467) = lu(k,2467) - lu(k,1969) * lu(k,2460) + lu(k,2468) = lu(k,2468) - lu(k,1970) * lu(k,2460) + lu(k,2469) = lu(k,2469) - lu(k,1971) * lu(k,2460) + lu(k,2470) = lu(k,2470) - lu(k,1972) * lu(k,2460) + lu(k,2471) = lu(k,2471) - lu(k,1973) * lu(k,2460) + lu(k,2472) = lu(k,2472) - lu(k,1974) * lu(k,2460) + lu(k,2488) = lu(k,2488) - lu(k,1963) * lu(k,2487) + lu(k,2489) = lu(k,2489) - lu(k,1964) * lu(k,2487) + lu(k,2490) = lu(k,2490) - lu(k,1965) * lu(k,2487) + lu(k,2491) = lu(k,2491) - lu(k,1966) * lu(k,2487) + lu(k,2492) = lu(k,2492) - lu(k,1967) * lu(k,2487) + lu(k,2493) = lu(k,2493) - lu(k,1968) * lu(k,2487) + lu(k,2494) = lu(k,2494) - lu(k,1969) * lu(k,2487) + lu(k,2495) = lu(k,2495) - lu(k,1970) * lu(k,2487) + lu(k,2496) = lu(k,2496) - lu(k,1971) * lu(k,2487) + lu(k,2497) = lu(k,2497) - lu(k,1972) * lu(k,2487) + lu(k,2498) = lu(k,2498) - lu(k,1973) * lu(k,2487) + lu(k,2499) = lu(k,2499) - lu(k,1974) * lu(k,2487) + lu(k,2515) = lu(k,2515) - lu(k,1963) * lu(k,2514) + lu(k,2516) = lu(k,2516) - lu(k,1964) * lu(k,2514) + lu(k,2517) = lu(k,2517) - lu(k,1965) * lu(k,2514) + lu(k,2518) = lu(k,2518) - lu(k,1966) * lu(k,2514) + lu(k,2519) = lu(k,2519) - lu(k,1967) * lu(k,2514) + lu(k,2520) = lu(k,2520) - lu(k,1968) * lu(k,2514) + lu(k,2521) = lu(k,2521) - lu(k,1969) * lu(k,2514) + lu(k,2522) = lu(k,2522) - lu(k,1970) * lu(k,2514) + lu(k,2523) = lu(k,2523) - lu(k,1971) * lu(k,2514) + lu(k,2524) = lu(k,2524) - lu(k,1972) * lu(k,2514) + lu(k,2525) = lu(k,2525) - lu(k,1973) * lu(k,2514) + lu(k,2526) = lu(k,2526) - lu(k,1974) * lu(k,2514) + lu(k,2009) = 1._r8 / lu(k,2009) + lu(k,2010) = lu(k,2010) * lu(k,2009) + lu(k,2011) = lu(k,2011) * lu(k,2009) + lu(k,2012) = lu(k,2012) * lu(k,2009) + lu(k,2013) = lu(k,2013) * lu(k,2009) + lu(k,2014) = lu(k,2014) * lu(k,2009) + lu(k,2015) = lu(k,2015) * lu(k,2009) + lu(k,2016) = lu(k,2016) * lu(k,2009) + lu(k,2017) = lu(k,2017) * lu(k,2009) + lu(k,2018) = lu(k,2018) * lu(k,2009) + lu(k,2019) = lu(k,2019) * lu(k,2009) + lu(k,2020) = lu(k,2020) * lu(k,2009) + lu(k,2053) = lu(k,2053) - lu(k,2010) * lu(k,2052) + lu(k,2054) = lu(k,2054) - lu(k,2011) * lu(k,2052) + lu(k,2055) = lu(k,2055) - lu(k,2012) * lu(k,2052) + lu(k,2056) = lu(k,2056) - lu(k,2013) * lu(k,2052) + lu(k,2057) = lu(k,2057) - lu(k,2014) * lu(k,2052) + lu(k,2058) = lu(k,2058) - lu(k,2015) * lu(k,2052) + lu(k,2059) = lu(k,2059) - lu(k,2016) * lu(k,2052) + lu(k,2060) = lu(k,2060) - lu(k,2017) * lu(k,2052) + lu(k,2061) = lu(k,2061) - lu(k,2018) * lu(k,2052) + lu(k,2062) = lu(k,2062) - lu(k,2019) * lu(k,2052) + lu(k,2063) = lu(k,2063) - lu(k,2020) * lu(k,2052) + lu(k,2117) = lu(k,2117) - lu(k,2010) * lu(k,2116) + lu(k,2118) = lu(k,2118) - lu(k,2011) * lu(k,2116) + lu(k,2119) = lu(k,2119) - lu(k,2012) * lu(k,2116) + lu(k,2120) = lu(k,2120) - lu(k,2013) * lu(k,2116) + lu(k,2121) = lu(k,2121) - lu(k,2014) * lu(k,2116) + lu(k,2122) = lu(k,2122) - lu(k,2015) * lu(k,2116) + lu(k,2123) = lu(k,2123) - lu(k,2016) * lu(k,2116) + lu(k,2124) = lu(k,2124) - lu(k,2017) * lu(k,2116) + lu(k,2125) = lu(k,2125) - lu(k,2018) * lu(k,2116) + lu(k,2126) = lu(k,2126) - lu(k,2019) * lu(k,2116) + lu(k,2127) = lu(k,2127) - lu(k,2020) * lu(k,2116) + lu(k,2138) = lu(k,2138) - lu(k,2010) * lu(k,2137) + lu(k,2139) = lu(k,2139) - lu(k,2011) * lu(k,2137) + lu(k,2140) = lu(k,2140) - lu(k,2012) * lu(k,2137) + lu(k,2141) = lu(k,2141) - lu(k,2013) * lu(k,2137) + lu(k,2142) = lu(k,2142) - lu(k,2014) * lu(k,2137) + lu(k,2143) = lu(k,2143) - lu(k,2015) * lu(k,2137) + lu(k,2144) = lu(k,2144) - lu(k,2016) * lu(k,2137) + lu(k,2145) = lu(k,2145) - lu(k,2017) * lu(k,2137) + lu(k,2146) = lu(k,2146) - lu(k,2018) * lu(k,2137) + lu(k,2147) = lu(k,2147) - lu(k,2019) * lu(k,2137) + lu(k,2148) = lu(k,2148) - lu(k,2020) * lu(k,2137) + lu(k,2190) = lu(k,2190) - lu(k,2010) * lu(k,2189) + lu(k,2191) = lu(k,2191) - lu(k,2011) * lu(k,2189) + lu(k,2192) = lu(k,2192) - lu(k,2012) * lu(k,2189) + lu(k,2193) = lu(k,2193) - lu(k,2013) * lu(k,2189) + lu(k,2194) = lu(k,2194) - lu(k,2014) * lu(k,2189) + lu(k,2195) = lu(k,2195) - lu(k,2015) * lu(k,2189) + lu(k,2196) = lu(k,2196) - lu(k,2016) * lu(k,2189) + lu(k,2197) = lu(k,2197) - lu(k,2017) * lu(k,2189) + lu(k,2198) = lu(k,2198) - lu(k,2018) * lu(k,2189) + lu(k,2199) = lu(k,2199) - lu(k,2019) * lu(k,2189) + lu(k,2200) = lu(k,2200) - lu(k,2020) * lu(k,2189) + lu(k,2233) = lu(k,2233) - lu(k,2010) * lu(k,2232) + lu(k,2234) = lu(k,2234) - lu(k,2011) * lu(k,2232) + lu(k,2235) = lu(k,2235) - lu(k,2012) * lu(k,2232) + lu(k,2236) = lu(k,2236) - lu(k,2013) * lu(k,2232) + lu(k,2237) = lu(k,2237) - lu(k,2014) * lu(k,2232) + lu(k,2238) = lu(k,2238) - lu(k,2015) * lu(k,2232) + lu(k,2239) = lu(k,2239) - lu(k,2016) * lu(k,2232) + lu(k,2240) = lu(k,2240) - lu(k,2017) * lu(k,2232) + lu(k,2241) = lu(k,2241) - lu(k,2018) * lu(k,2232) + lu(k,2242) = lu(k,2242) - lu(k,2019) * lu(k,2232) + lu(k,2243) = lu(k,2243) - lu(k,2020) * lu(k,2232) + lu(k,2256) = lu(k,2256) - lu(k,2010) * lu(k,2255) + lu(k,2257) = lu(k,2257) - lu(k,2011) * lu(k,2255) + lu(k,2258) = lu(k,2258) - lu(k,2012) * lu(k,2255) + lu(k,2259) = lu(k,2259) - lu(k,2013) * lu(k,2255) + lu(k,2260) = lu(k,2260) - lu(k,2014) * lu(k,2255) + lu(k,2261) = lu(k,2261) - lu(k,2015) * lu(k,2255) + lu(k,2262) = lu(k,2262) - lu(k,2016) * lu(k,2255) + lu(k,2263) = lu(k,2263) - lu(k,2017) * lu(k,2255) + lu(k,2264) = lu(k,2264) - lu(k,2018) * lu(k,2255) + lu(k,2265) = lu(k,2265) - lu(k,2019) * lu(k,2255) + lu(k,2266) = lu(k,2266) - lu(k,2020) * lu(k,2255) + lu(k,2376) = lu(k,2376) - lu(k,2010) * lu(k,2375) + lu(k,2377) = lu(k,2377) - lu(k,2011) * lu(k,2375) + lu(k,2378) = lu(k,2378) - lu(k,2012) * lu(k,2375) + lu(k,2379) = lu(k,2379) - lu(k,2013) * lu(k,2375) + lu(k,2380) = lu(k,2380) - lu(k,2014) * lu(k,2375) + lu(k,2381) = lu(k,2381) - lu(k,2015) * lu(k,2375) + lu(k,2382) = lu(k,2382) - lu(k,2016) * lu(k,2375) + lu(k,2383) = lu(k,2383) - lu(k,2017) * lu(k,2375) + lu(k,2384) = lu(k,2384) - lu(k,2018) * lu(k,2375) + lu(k,2385) = lu(k,2385) - lu(k,2019) * lu(k,2375) + lu(k,2386) = lu(k,2386) - lu(k,2020) * lu(k,2375) + lu(k,2436) = lu(k,2436) - lu(k,2010) * lu(k,2435) + lu(k,2437) = lu(k,2437) - lu(k,2011) * lu(k,2435) + lu(k,2438) = lu(k,2438) - lu(k,2012) * lu(k,2435) + lu(k,2439) = lu(k,2439) - lu(k,2013) * lu(k,2435) + lu(k,2440) = lu(k,2440) - lu(k,2014) * lu(k,2435) + lu(k,2441) = lu(k,2441) - lu(k,2015) * lu(k,2435) + lu(k,2442) = lu(k,2442) - lu(k,2016) * lu(k,2435) + lu(k,2443) = lu(k,2443) - lu(k,2017) * lu(k,2435) + lu(k,2444) = lu(k,2444) - lu(k,2018) * lu(k,2435) + lu(k,2445) = lu(k,2445) - lu(k,2019) * lu(k,2435) + lu(k,2446) = lu(k,2446) - lu(k,2020) * lu(k,2435) + lu(k,2462) = lu(k,2462) - lu(k,2010) * lu(k,2461) + lu(k,2463) = lu(k,2463) - lu(k,2011) * lu(k,2461) + lu(k,2464) = lu(k,2464) - lu(k,2012) * lu(k,2461) + lu(k,2465) = lu(k,2465) - lu(k,2013) * lu(k,2461) + lu(k,2466) = lu(k,2466) - lu(k,2014) * lu(k,2461) + lu(k,2467) = lu(k,2467) - lu(k,2015) * lu(k,2461) + lu(k,2468) = lu(k,2468) - lu(k,2016) * lu(k,2461) + lu(k,2469) = lu(k,2469) - lu(k,2017) * lu(k,2461) + lu(k,2470) = lu(k,2470) - lu(k,2018) * lu(k,2461) + lu(k,2471) = lu(k,2471) - lu(k,2019) * lu(k,2461) + lu(k,2472) = lu(k,2472) - lu(k,2020) * lu(k,2461) + lu(k,2489) = lu(k,2489) - lu(k,2010) * lu(k,2488) + lu(k,2490) = lu(k,2490) - lu(k,2011) * lu(k,2488) + lu(k,2491) = lu(k,2491) - lu(k,2012) * lu(k,2488) + lu(k,2492) = lu(k,2492) - lu(k,2013) * lu(k,2488) + lu(k,2493) = lu(k,2493) - lu(k,2014) * lu(k,2488) + lu(k,2494) = lu(k,2494) - lu(k,2015) * lu(k,2488) + lu(k,2495) = lu(k,2495) - lu(k,2016) * lu(k,2488) + lu(k,2496) = lu(k,2496) - lu(k,2017) * lu(k,2488) + lu(k,2497) = lu(k,2497) - lu(k,2018) * lu(k,2488) + lu(k,2498) = lu(k,2498) - lu(k,2019) * lu(k,2488) + lu(k,2499) = lu(k,2499) - lu(k,2020) * lu(k,2488) + lu(k,2516) = lu(k,2516) - lu(k,2010) * lu(k,2515) + lu(k,2517) = lu(k,2517) - lu(k,2011) * lu(k,2515) + lu(k,2518) = lu(k,2518) - lu(k,2012) * lu(k,2515) + lu(k,2519) = lu(k,2519) - lu(k,2013) * lu(k,2515) + lu(k,2520) = lu(k,2520) - lu(k,2014) * lu(k,2515) + lu(k,2521) = lu(k,2521) - lu(k,2015) * lu(k,2515) + lu(k,2522) = lu(k,2522) - lu(k,2016) * lu(k,2515) + lu(k,2523) = lu(k,2523) - lu(k,2017) * lu(k,2515) + lu(k,2524) = lu(k,2524) - lu(k,2018) * lu(k,2515) + lu(k,2525) = lu(k,2525) - lu(k,2019) * lu(k,2515) + lu(k,2526) = lu(k,2526) - lu(k,2020) * lu(k,2515) + lu(k,2053) = 1._r8 / lu(k,2053) + lu(k,2054) = lu(k,2054) * lu(k,2053) + lu(k,2055) = lu(k,2055) * lu(k,2053) + lu(k,2056) = lu(k,2056) * lu(k,2053) + lu(k,2057) = lu(k,2057) * lu(k,2053) + lu(k,2058) = lu(k,2058) * lu(k,2053) + lu(k,2059) = lu(k,2059) * lu(k,2053) + lu(k,2060) = lu(k,2060) * lu(k,2053) + lu(k,2061) = lu(k,2061) * lu(k,2053) + lu(k,2062) = lu(k,2062) * lu(k,2053) + lu(k,2063) = lu(k,2063) * lu(k,2053) + lu(k,2118) = lu(k,2118) - lu(k,2054) * lu(k,2117) + lu(k,2119) = lu(k,2119) - lu(k,2055) * lu(k,2117) + lu(k,2120) = lu(k,2120) - lu(k,2056) * lu(k,2117) + lu(k,2121) = lu(k,2121) - lu(k,2057) * lu(k,2117) + lu(k,2122) = lu(k,2122) - lu(k,2058) * lu(k,2117) + lu(k,2123) = lu(k,2123) - lu(k,2059) * lu(k,2117) + lu(k,2124) = lu(k,2124) - lu(k,2060) * lu(k,2117) + lu(k,2125) = lu(k,2125) - lu(k,2061) * lu(k,2117) + lu(k,2126) = lu(k,2126) - lu(k,2062) * lu(k,2117) + lu(k,2127) = lu(k,2127) - lu(k,2063) * lu(k,2117) + lu(k,2139) = lu(k,2139) - lu(k,2054) * lu(k,2138) + lu(k,2140) = lu(k,2140) - lu(k,2055) * lu(k,2138) + lu(k,2141) = lu(k,2141) - lu(k,2056) * lu(k,2138) + lu(k,2142) = lu(k,2142) - lu(k,2057) * lu(k,2138) + lu(k,2143) = lu(k,2143) - lu(k,2058) * lu(k,2138) + lu(k,2144) = lu(k,2144) - lu(k,2059) * lu(k,2138) + lu(k,2145) = lu(k,2145) - lu(k,2060) * lu(k,2138) + lu(k,2146) = lu(k,2146) - lu(k,2061) * lu(k,2138) + lu(k,2147) = lu(k,2147) - lu(k,2062) * lu(k,2138) + lu(k,2148) = lu(k,2148) - lu(k,2063) * lu(k,2138) + lu(k,2191) = lu(k,2191) - lu(k,2054) * lu(k,2190) + lu(k,2192) = lu(k,2192) - lu(k,2055) * lu(k,2190) + lu(k,2193) = lu(k,2193) - lu(k,2056) * lu(k,2190) + lu(k,2194) = lu(k,2194) - lu(k,2057) * lu(k,2190) + lu(k,2195) = lu(k,2195) - lu(k,2058) * lu(k,2190) + lu(k,2196) = lu(k,2196) - lu(k,2059) * lu(k,2190) + lu(k,2197) = lu(k,2197) - lu(k,2060) * lu(k,2190) + lu(k,2198) = lu(k,2198) - lu(k,2061) * lu(k,2190) + lu(k,2199) = lu(k,2199) - lu(k,2062) * lu(k,2190) + lu(k,2200) = lu(k,2200) - lu(k,2063) * lu(k,2190) + lu(k,2234) = lu(k,2234) - lu(k,2054) * lu(k,2233) + lu(k,2235) = lu(k,2235) - lu(k,2055) * lu(k,2233) + lu(k,2236) = lu(k,2236) - lu(k,2056) * lu(k,2233) + lu(k,2237) = lu(k,2237) - lu(k,2057) * lu(k,2233) + lu(k,2238) = lu(k,2238) - lu(k,2058) * lu(k,2233) + lu(k,2239) = lu(k,2239) - lu(k,2059) * lu(k,2233) + lu(k,2240) = lu(k,2240) - lu(k,2060) * lu(k,2233) + lu(k,2241) = lu(k,2241) - lu(k,2061) * lu(k,2233) + lu(k,2242) = lu(k,2242) - lu(k,2062) * lu(k,2233) + lu(k,2243) = lu(k,2243) - lu(k,2063) * lu(k,2233) + lu(k,2257) = lu(k,2257) - lu(k,2054) * lu(k,2256) + lu(k,2258) = lu(k,2258) - lu(k,2055) * lu(k,2256) + lu(k,2259) = lu(k,2259) - lu(k,2056) * lu(k,2256) + lu(k,2260) = lu(k,2260) - lu(k,2057) * lu(k,2256) + lu(k,2261) = lu(k,2261) - lu(k,2058) * lu(k,2256) + lu(k,2262) = lu(k,2262) - lu(k,2059) * lu(k,2256) + lu(k,2263) = lu(k,2263) - lu(k,2060) * lu(k,2256) + lu(k,2264) = lu(k,2264) - lu(k,2061) * lu(k,2256) + lu(k,2265) = lu(k,2265) - lu(k,2062) * lu(k,2256) + lu(k,2266) = lu(k,2266) - lu(k,2063) * lu(k,2256) + lu(k,2377) = lu(k,2377) - lu(k,2054) * lu(k,2376) + lu(k,2378) = lu(k,2378) - lu(k,2055) * lu(k,2376) + lu(k,2379) = lu(k,2379) - lu(k,2056) * lu(k,2376) + lu(k,2380) = lu(k,2380) - lu(k,2057) * lu(k,2376) + lu(k,2381) = lu(k,2381) - lu(k,2058) * lu(k,2376) + lu(k,2382) = lu(k,2382) - lu(k,2059) * lu(k,2376) + lu(k,2383) = lu(k,2383) - lu(k,2060) * lu(k,2376) + lu(k,2384) = lu(k,2384) - lu(k,2061) * lu(k,2376) + lu(k,2385) = lu(k,2385) - lu(k,2062) * lu(k,2376) + lu(k,2386) = lu(k,2386) - lu(k,2063) * lu(k,2376) + lu(k,2437) = lu(k,2437) - lu(k,2054) * lu(k,2436) + lu(k,2438) = lu(k,2438) - lu(k,2055) * lu(k,2436) + lu(k,2439) = lu(k,2439) - lu(k,2056) * lu(k,2436) + lu(k,2440) = lu(k,2440) - lu(k,2057) * lu(k,2436) + lu(k,2441) = lu(k,2441) - lu(k,2058) * lu(k,2436) + lu(k,2442) = lu(k,2442) - lu(k,2059) * lu(k,2436) + lu(k,2443) = lu(k,2443) - lu(k,2060) * lu(k,2436) + lu(k,2444) = lu(k,2444) - lu(k,2061) * lu(k,2436) + lu(k,2445) = lu(k,2445) - lu(k,2062) * lu(k,2436) + lu(k,2446) = lu(k,2446) - lu(k,2063) * lu(k,2436) + lu(k,2463) = lu(k,2463) - lu(k,2054) * lu(k,2462) + lu(k,2464) = lu(k,2464) - lu(k,2055) * lu(k,2462) + lu(k,2465) = lu(k,2465) - lu(k,2056) * lu(k,2462) + lu(k,2466) = lu(k,2466) - lu(k,2057) * lu(k,2462) + lu(k,2467) = lu(k,2467) - lu(k,2058) * lu(k,2462) + lu(k,2468) = lu(k,2468) - lu(k,2059) * lu(k,2462) + lu(k,2469) = lu(k,2469) - lu(k,2060) * lu(k,2462) + lu(k,2470) = lu(k,2470) - lu(k,2061) * lu(k,2462) + lu(k,2471) = lu(k,2471) - lu(k,2062) * lu(k,2462) + lu(k,2472) = lu(k,2472) - lu(k,2063) * lu(k,2462) + lu(k,2490) = lu(k,2490) - lu(k,2054) * lu(k,2489) + lu(k,2491) = lu(k,2491) - lu(k,2055) * lu(k,2489) + lu(k,2492) = lu(k,2492) - lu(k,2056) * lu(k,2489) + lu(k,2493) = lu(k,2493) - lu(k,2057) * lu(k,2489) + lu(k,2494) = lu(k,2494) - lu(k,2058) * lu(k,2489) + lu(k,2495) = lu(k,2495) - lu(k,2059) * lu(k,2489) + lu(k,2496) = lu(k,2496) - lu(k,2060) * lu(k,2489) + lu(k,2497) = lu(k,2497) - lu(k,2061) * lu(k,2489) + lu(k,2498) = lu(k,2498) - lu(k,2062) * lu(k,2489) + lu(k,2499) = lu(k,2499) - lu(k,2063) * lu(k,2489) + lu(k,2517) = lu(k,2517) - lu(k,2054) * lu(k,2516) + lu(k,2518) = lu(k,2518) - lu(k,2055) * lu(k,2516) + lu(k,2519) = lu(k,2519) - lu(k,2056) * lu(k,2516) + lu(k,2520) = lu(k,2520) - lu(k,2057) * lu(k,2516) + lu(k,2521) = lu(k,2521) - lu(k,2058) * lu(k,2516) + lu(k,2522) = lu(k,2522) - lu(k,2059) * lu(k,2516) + lu(k,2523) = lu(k,2523) - lu(k,2060) * lu(k,2516) + lu(k,2524) = lu(k,2524) - lu(k,2061) * lu(k,2516) + lu(k,2525) = lu(k,2525) - lu(k,2062) * lu(k,2516) + lu(k,2526) = lu(k,2526) - lu(k,2063) * lu(k,2516) + lu(k,2118) = 1._r8 / lu(k,2118) + lu(k,2119) = lu(k,2119) * lu(k,2118) + lu(k,2120) = lu(k,2120) * lu(k,2118) + lu(k,2121) = lu(k,2121) * lu(k,2118) + lu(k,2122) = lu(k,2122) * lu(k,2118) + lu(k,2123) = lu(k,2123) * lu(k,2118) + lu(k,2124) = lu(k,2124) * lu(k,2118) + lu(k,2125) = lu(k,2125) * lu(k,2118) + lu(k,2126) = lu(k,2126) * lu(k,2118) + lu(k,2127) = lu(k,2127) * lu(k,2118) + lu(k,2140) = lu(k,2140) - lu(k,2119) * lu(k,2139) + lu(k,2141) = lu(k,2141) - lu(k,2120) * lu(k,2139) + lu(k,2142) = lu(k,2142) - lu(k,2121) * lu(k,2139) + lu(k,2143) = lu(k,2143) - lu(k,2122) * lu(k,2139) + lu(k,2144) = lu(k,2144) - lu(k,2123) * lu(k,2139) + lu(k,2145) = lu(k,2145) - lu(k,2124) * lu(k,2139) + lu(k,2146) = lu(k,2146) - lu(k,2125) * lu(k,2139) + lu(k,2147) = lu(k,2147) - lu(k,2126) * lu(k,2139) + lu(k,2148) = lu(k,2148) - lu(k,2127) * lu(k,2139) + lu(k,2192) = lu(k,2192) - lu(k,2119) * lu(k,2191) + lu(k,2193) = lu(k,2193) - lu(k,2120) * lu(k,2191) + lu(k,2194) = lu(k,2194) - lu(k,2121) * lu(k,2191) + lu(k,2195) = lu(k,2195) - lu(k,2122) * lu(k,2191) + lu(k,2196) = lu(k,2196) - lu(k,2123) * lu(k,2191) + lu(k,2197) = lu(k,2197) - lu(k,2124) * lu(k,2191) + lu(k,2198) = lu(k,2198) - lu(k,2125) * lu(k,2191) + lu(k,2199) = lu(k,2199) - lu(k,2126) * lu(k,2191) + lu(k,2200) = lu(k,2200) - lu(k,2127) * lu(k,2191) + lu(k,2235) = lu(k,2235) - lu(k,2119) * lu(k,2234) + lu(k,2236) = lu(k,2236) - lu(k,2120) * lu(k,2234) + lu(k,2237) = lu(k,2237) - lu(k,2121) * lu(k,2234) + lu(k,2238) = lu(k,2238) - lu(k,2122) * lu(k,2234) + lu(k,2239) = lu(k,2239) - lu(k,2123) * lu(k,2234) + lu(k,2240) = lu(k,2240) - lu(k,2124) * lu(k,2234) + lu(k,2241) = lu(k,2241) - lu(k,2125) * lu(k,2234) + lu(k,2242) = lu(k,2242) - lu(k,2126) * lu(k,2234) + lu(k,2243) = lu(k,2243) - lu(k,2127) * lu(k,2234) + lu(k,2258) = lu(k,2258) - lu(k,2119) * lu(k,2257) + lu(k,2259) = lu(k,2259) - lu(k,2120) * lu(k,2257) + lu(k,2260) = lu(k,2260) - lu(k,2121) * lu(k,2257) + lu(k,2261) = lu(k,2261) - lu(k,2122) * lu(k,2257) + lu(k,2262) = lu(k,2262) - lu(k,2123) * lu(k,2257) + lu(k,2263) = lu(k,2263) - lu(k,2124) * lu(k,2257) + lu(k,2264) = lu(k,2264) - lu(k,2125) * lu(k,2257) + lu(k,2265) = lu(k,2265) - lu(k,2126) * lu(k,2257) + lu(k,2266) = lu(k,2266) - lu(k,2127) * lu(k,2257) + lu(k,2378) = lu(k,2378) - lu(k,2119) * lu(k,2377) + lu(k,2379) = lu(k,2379) - lu(k,2120) * lu(k,2377) + lu(k,2380) = lu(k,2380) - lu(k,2121) * lu(k,2377) + lu(k,2381) = lu(k,2381) - lu(k,2122) * lu(k,2377) + lu(k,2382) = lu(k,2382) - lu(k,2123) * lu(k,2377) + lu(k,2383) = lu(k,2383) - lu(k,2124) * lu(k,2377) + lu(k,2384) = lu(k,2384) - lu(k,2125) * lu(k,2377) + lu(k,2385) = lu(k,2385) - lu(k,2126) * lu(k,2377) + lu(k,2386) = lu(k,2386) - lu(k,2127) * lu(k,2377) + lu(k,2438) = lu(k,2438) - lu(k,2119) * lu(k,2437) + lu(k,2439) = lu(k,2439) - lu(k,2120) * lu(k,2437) + lu(k,2440) = lu(k,2440) - lu(k,2121) * lu(k,2437) + lu(k,2441) = lu(k,2441) - lu(k,2122) * lu(k,2437) + lu(k,2442) = lu(k,2442) - lu(k,2123) * lu(k,2437) + lu(k,2443) = lu(k,2443) - lu(k,2124) * lu(k,2437) + lu(k,2444) = lu(k,2444) - lu(k,2125) * lu(k,2437) + lu(k,2445) = lu(k,2445) - lu(k,2126) * lu(k,2437) + lu(k,2446) = lu(k,2446) - lu(k,2127) * lu(k,2437) + lu(k,2464) = lu(k,2464) - lu(k,2119) * lu(k,2463) + lu(k,2465) = lu(k,2465) - lu(k,2120) * lu(k,2463) + lu(k,2466) = lu(k,2466) - lu(k,2121) * lu(k,2463) + lu(k,2467) = lu(k,2467) - lu(k,2122) * lu(k,2463) + lu(k,2468) = lu(k,2468) - lu(k,2123) * lu(k,2463) + lu(k,2469) = lu(k,2469) - lu(k,2124) * lu(k,2463) + lu(k,2470) = lu(k,2470) - lu(k,2125) * lu(k,2463) + lu(k,2471) = lu(k,2471) - lu(k,2126) * lu(k,2463) + lu(k,2472) = lu(k,2472) - lu(k,2127) * lu(k,2463) + lu(k,2491) = lu(k,2491) - lu(k,2119) * lu(k,2490) + lu(k,2492) = lu(k,2492) - lu(k,2120) * lu(k,2490) + lu(k,2493) = lu(k,2493) - lu(k,2121) * lu(k,2490) + lu(k,2494) = lu(k,2494) - lu(k,2122) * lu(k,2490) + lu(k,2495) = lu(k,2495) - lu(k,2123) * lu(k,2490) + lu(k,2496) = lu(k,2496) - lu(k,2124) * lu(k,2490) + lu(k,2497) = lu(k,2497) - lu(k,2125) * lu(k,2490) + lu(k,2498) = lu(k,2498) - lu(k,2126) * lu(k,2490) + lu(k,2499) = lu(k,2499) - lu(k,2127) * lu(k,2490) + lu(k,2518) = lu(k,2518) - lu(k,2119) * lu(k,2517) + lu(k,2519) = lu(k,2519) - lu(k,2120) * lu(k,2517) + lu(k,2520) = lu(k,2520) - lu(k,2121) * lu(k,2517) + lu(k,2521) = lu(k,2521) - lu(k,2122) * lu(k,2517) + lu(k,2522) = lu(k,2522) - lu(k,2123) * lu(k,2517) + lu(k,2523) = lu(k,2523) - lu(k,2124) * lu(k,2517) + lu(k,2524) = lu(k,2524) - lu(k,2125) * lu(k,2517) + lu(k,2525) = lu(k,2525) - lu(k,2126) * lu(k,2517) + lu(k,2526) = lu(k,2526) - lu(k,2127) * lu(k,2517) end do end subroutine lu_fac32 subroutine lu_fac33( avec_len, lu ) @@ -8641,255 +8646,255 @@ subroutine lu_fac33( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,2214) = 1._r8 / lu(k,2214) - lu(k,2215) = lu(k,2215) * lu(k,2214) - lu(k,2216) = lu(k,2216) * lu(k,2214) - lu(k,2217) = lu(k,2217) * lu(k,2214) - lu(k,2218) = lu(k,2218) * lu(k,2214) - lu(k,2219) = lu(k,2219) * lu(k,2214) - lu(k,2220) = lu(k,2220) * lu(k,2214) - lu(k,2221) = lu(k,2221) * lu(k,2214) - lu(k,2222) = lu(k,2222) * lu(k,2214) - lu(k,2261) = lu(k,2261) - lu(k,2215) * lu(k,2260) - lu(k,2262) = lu(k,2262) - lu(k,2216) * lu(k,2260) - lu(k,2263) = lu(k,2263) - lu(k,2217) * lu(k,2260) - lu(k,2264) = lu(k,2264) - lu(k,2218) * lu(k,2260) - lu(k,2265) = lu(k,2265) - lu(k,2219) * lu(k,2260) - lu(k,2266) = lu(k,2266) - lu(k,2220) * lu(k,2260) - lu(k,2267) = lu(k,2267) - lu(k,2221) * lu(k,2260) - lu(k,2268) = lu(k,2268) - lu(k,2222) * lu(k,2260) - lu(k,2282) = lu(k,2282) - lu(k,2215) * lu(k,2281) - lu(k,2283) = lu(k,2283) - lu(k,2216) * lu(k,2281) - lu(k,2284) = lu(k,2284) - lu(k,2217) * lu(k,2281) - lu(k,2285) = lu(k,2285) - lu(k,2218) * lu(k,2281) - lu(k,2286) = lu(k,2286) - lu(k,2219) * lu(k,2281) - lu(k,2287) = lu(k,2287) - lu(k,2220) * lu(k,2281) - lu(k,2288) = lu(k,2288) - lu(k,2221) * lu(k,2281) - lu(k,2289) = lu(k,2289) - lu(k,2222) * lu(k,2281) - lu(k,2305) = lu(k,2305) - lu(k,2215) * lu(k,2304) - lu(k,2306) = lu(k,2306) - lu(k,2216) * lu(k,2304) - lu(k,2307) = lu(k,2307) - lu(k,2217) * lu(k,2304) - lu(k,2308) = lu(k,2308) - lu(k,2218) * lu(k,2304) - lu(k,2309) = lu(k,2309) - lu(k,2219) * lu(k,2304) - lu(k,2310) = lu(k,2310) - lu(k,2220) * lu(k,2304) - lu(k,2311) = lu(k,2311) - lu(k,2221) * lu(k,2304) - lu(k,2312) = lu(k,2312) - lu(k,2222) * lu(k,2304) - lu(k,2357) = lu(k,2357) - lu(k,2215) * lu(k,2356) - lu(k,2358) = lu(k,2358) - lu(k,2216) * lu(k,2356) - lu(k,2359) = lu(k,2359) - lu(k,2217) * lu(k,2356) - lu(k,2360) = lu(k,2360) - lu(k,2218) * lu(k,2356) - lu(k,2361) = lu(k,2361) - lu(k,2219) * lu(k,2356) - lu(k,2362) = lu(k,2362) - lu(k,2220) * lu(k,2356) - lu(k,2363) = lu(k,2363) - lu(k,2221) * lu(k,2356) - lu(k,2364) = lu(k,2364) - lu(k,2222) * lu(k,2356) - lu(k,2421) = lu(k,2421) - lu(k,2215) * lu(k,2420) - lu(k,2422) = lu(k,2422) - lu(k,2216) * lu(k,2420) - lu(k,2423) = lu(k,2423) - lu(k,2217) * lu(k,2420) - lu(k,2424) = lu(k,2424) - lu(k,2218) * lu(k,2420) - lu(k,2425) = lu(k,2425) - lu(k,2219) * lu(k,2420) - lu(k,2426) = lu(k,2426) - lu(k,2220) * lu(k,2420) - lu(k,2427) = lu(k,2427) - lu(k,2221) * lu(k,2420) - lu(k,2428) = lu(k,2428) - lu(k,2222) * lu(k,2420) - lu(k,2464) = lu(k,2464) - lu(k,2215) * lu(k,2463) - lu(k,2465) = lu(k,2465) - lu(k,2216) * lu(k,2463) - lu(k,2466) = lu(k,2466) - lu(k,2217) * lu(k,2463) - lu(k,2467) = lu(k,2467) - lu(k,2218) * lu(k,2463) - lu(k,2468) = lu(k,2468) - lu(k,2219) * lu(k,2463) - lu(k,2469) = lu(k,2469) - lu(k,2220) * lu(k,2463) - lu(k,2470) = lu(k,2470) - lu(k,2221) * lu(k,2463) - lu(k,2471) = lu(k,2471) - lu(k,2222) * lu(k,2463) - lu(k,2490) = lu(k,2490) - lu(k,2215) * lu(k,2489) - lu(k,2491) = lu(k,2491) - lu(k,2216) * lu(k,2489) - lu(k,2492) = lu(k,2492) - lu(k,2217) * lu(k,2489) - lu(k,2493) = lu(k,2493) - lu(k,2218) * lu(k,2489) - lu(k,2494) = lu(k,2494) - lu(k,2219) * lu(k,2489) - lu(k,2495) = lu(k,2495) - lu(k,2220) * lu(k,2489) - lu(k,2496) = lu(k,2496) - lu(k,2221) * lu(k,2489) - lu(k,2497) = lu(k,2497) - lu(k,2222) * lu(k,2489) - lu(k,2517) = lu(k,2517) - lu(k,2215) * lu(k,2516) - lu(k,2518) = lu(k,2518) - lu(k,2216) * lu(k,2516) - lu(k,2519) = lu(k,2519) - lu(k,2217) * lu(k,2516) - lu(k,2520) = lu(k,2520) - lu(k,2218) * lu(k,2516) - lu(k,2521) = lu(k,2521) - lu(k,2219) * lu(k,2516) - lu(k,2522) = lu(k,2522) - lu(k,2220) * lu(k,2516) - lu(k,2523) = lu(k,2523) - lu(k,2221) * lu(k,2516) - lu(k,2524) = lu(k,2524) - lu(k,2222) * lu(k,2516) + lu(k,2140) = 1._r8 / lu(k,2140) + lu(k,2141) = lu(k,2141) * lu(k,2140) + lu(k,2142) = lu(k,2142) * lu(k,2140) + lu(k,2143) = lu(k,2143) * lu(k,2140) + lu(k,2144) = lu(k,2144) * lu(k,2140) + lu(k,2145) = lu(k,2145) * lu(k,2140) + lu(k,2146) = lu(k,2146) * lu(k,2140) + lu(k,2147) = lu(k,2147) * lu(k,2140) + lu(k,2148) = lu(k,2148) * lu(k,2140) + lu(k,2193) = lu(k,2193) - lu(k,2141) * lu(k,2192) + lu(k,2194) = lu(k,2194) - lu(k,2142) * lu(k,2192) + lu(k,2195) = lu(k,2195) - lu(k,2143) * lu(k,2192) + lu(k,2196) = lu(k,2196) - lu(k,2144) * lu(k,2192) + lu(k,2197) = lu(k,2197) - lu(k,2145) * lu(k,2192) + lu(k,2198) = lu(k,2198) - lu(k,2146) * lu(k,2192) + lu(k,2199) = lu(k,2199) - lu(k,2147) * lu(k,2192) + lu(k,2200) = lu(k,2200) - lu(k,2148) * lu(k,2192) + lu(k,2236) = lu(k,2236) - lu(k,2141) * lu(k,2235) + lu(k,2237) = lu(k,2237) - lu(k,2142) * lu(k,2235) + lu(k,2238) = lu(k,2238) - lu(k,2143) * lu(k,2235) + lu(k,2239) = lu(k,2239) - lu(k,2144) * lu(k,2235) + lu(k,2240) = lu(k,2240) - lu(k,2145) * lu(k,2235) + lu(k,2241) = lu(k,2241) - lu(k,2146) * lu(k,2235) + lu(k,2242) = lu(k,2242) - lu(k,2147) * lu(k,2235) + lu(k,2243) = lu(k,2243) - lu(k,2148) * lu(k,2235) + lu(k,2259) = lu(k,2259) - lu(k,2141) * lu(k,2258) + lu(k,2260) = lu(k,2260) - lu(k,2142) * lu(k,2258) + lu(k,2261) = lu(k,2261) - lu(k,2143) * lu(k,2258) + lu(k,2262) = lu(k,2262) - lu(k,2144) * lu(k,2258) + lu(k,2263) = lu(k,2263) - lu(k,2145) * lu(k,2258) + lu(k,2264) = lu(k,2264) - lu(k,2146) * lu(k,2258) + lu(k,2265) = lu(k,2265) - lu(k,2147) * lu(k,2258) + lu(k,2266) = lu(k,2266) - lu(k,2148) * lu(k,2258) + lu(k,2379) = lu(k,2379) - lu(k,2141) * lu(k,2378) + lu(k,2380) = lu(k,2380) - lu(k,2142) * lu(k,2378) + lu(k,2381) = lu(k,2381) - lu(k,2143) * lu(k,2378) + lu(k,2382) = lu(k,2382) - lu(k,2144) * lu(k,2378) + lu(k,2383) = lu(k,2383) - lu(k,2145) * lu(k,2378) + lu(k,2384) = lu(k,2384) - lu(k,2146) * lu(k,2378) + lu(k,2385) = lu(k,2385) - lu(k,2147) * lu(k,2378) + lu(k,2386) = lu(k,2386) - lu(k,2148) * lu(k,2378) + lu(k,2439) = lu(k,2439) - lu(k,2141) * lu(k,2438) + lu(k,2440) = lu(k,2440) - lu(k,2142) * lu(k,2438) + lu(k,2441) = lu(k,2441) - lu(k,2143) * lu(k,2438) + lu(k,2442) = lu(k,2442) - lu(k,2144) * lu(k,2438) + lu(k,2443) = lu(k,2443) - lu(k,2145) * lu(k,2438) + lu(k,2444) = lu(k,2444) - lu(k,2146) * lu(k,2438) + lu(k,2445) = lu(k,2445) - lu(k,2147) * lu(k,2438) + lu(k,2446) = lu(k,2446) - lu(k,2148) * lu(k,2438) + lu(k,2465) = lu(k,2465) - lu(k,2141) * lu(k,2464) + lu(k,2466) = lu(k,2466) - lu(k,2142) * lu(k,2464) + lu(k,2467) = lu(k,2467) - lu(k,2143) * lu(k,2464) + lu(k,2468) = lu(k,2468) - lu(k,2144) * lu(k,2464) + lu(k,2469) = lu(k,2469) - lu(k,2145) * lu(k,2464) + lu(k,2470) = lu(k,2470) - lu(k,2146) * lu(k,2464) + lu(k,2471) = lu(k,2471) - lu(k,2147) * lu(k,2464) + lu(k,2472) = lu(k,2472) - lu(k,2148) * lu(k,2464) + lu(k,2492) = lu(k,2492) - lu(k,2141) * lu(k,2491) + lu(k,2493) = lu(k,2493) - lu(k,2142) * lu(k,2491) + lu(k,2494) = lu(k,2494) - lu(k,2143) * lu(k,2491) + lu(k,2495) = lu(k,2495) - lu(k,2144) * lu(k,2491) + lu(k,2496) = lu(k,2496) - lu(k,2145) * lu(k,2491) + lu(k,2497) = lu(k,2497) - lu(k,2146) * lu(k,2491) + lu(k,2498) = lu(k,2498) - lu(k,2147) * lu(k,2491) + lu(k,2499) = lu(k,2499) - lu(k,2148) * lu(k,2491) + lu(k,2519) = lu(k,2519) - lu(k,2141) * lu(k,2518) + lu(k,2520) = lu(k,2520) - lu(k,2142) * lu(k,2518) + lu(k,2521) = lu(k,2521) - lu(k,2143) * lu(k,2518) + lu(k,2522) = lu(k,2522) - lu(k,2144) * lu(k,2518) + lu(k,2523) = lu(k,2523) - lu(k,2145) * lu(k,2518) + lu(k,2524) = lu(k,2524) - lu(k,2146) * lu(k,2518) + lu(k,2525) = lu(k,2525) - lu(k,2147) * lu(k,2518) + lu(k,2526) = lu(k,2526) - lu(k,2148) * lu(k,2518) + lu(k,2193) = 1._r8 / lu(k,2193) + lu(k,2194) = lu(k,2194) * lu(k,2193) + lu(k,2195) = lu(k,2195) * lu(k,2193) + lu(k,2196) = lu(k,2196) * lu(k,2193) + lu(k,2197) = lu(k,2197) * lu(k,2193) + lu(k,2198) = lu(k,2198) * lu(k,2193) + lu(k,2199) = lu(k,2199) * lu(k,2193) + lu(k,2200) = lu(k,2200) * lu(k,2193) + lu(k,2237) = lu(k,2237) - lu(k,2194) * lu(k,2236) + lu(k,2238) = lu(k,2238) - lu(k,2195) * lu(k,2236) + lu(k,2239) = lu(k,2239) - lu(k,2196) * lu(k,2236) + lu(k,2240) = lu(k,2240) - lu(k,2197) * lu(k,2236) + lu(k,2241) = lu(k,2241) - lu(k,2198) * lu(k,2236) + lu(k,2242) = lu(k,2242) - lu(k,2199) * lu(k,2236) + lu(k,2243) = lu(k,2243) - lu(k,2200) * lu(k,2236) + lu(k,2260) = lu(k,2260) - lu(k,2194) * lu(k,2259) + lu(k,2261) = lu(k,2261) - lu(k,2195) * lu(k,2259) + lu(k,2262) = lu(k,2262) - lu(k,2196) * lu(k,2259) + lu(k,2263) = lu(k,2263) - lu(k,2197) * lu(k,2259) + lu(k,2264) = lu(k,2264) - lu(k,2198) * lu(k,2259) + lu(k,2265) = lu(k,2265) - lu(k,2199) * lu(k,2259) + lu(k,2266) = lu(k,2266) - lu(k,2200) * lu(k,2259) + lu(k,2380) = lu(k,2380) - lu(k,2194) * lu(k,2379) + lu(k,2381) = lu(k,2381) - lu(k,2195) * lu(k,2379) + lu(k,2382) = lu(k,2382) - lu(k,2196) * lu(k,2379) + lu(k,2383) = lu(k,2383) - lu(k,2197) * lu(k,2379) + lu(k,2384) = lu(k,2384) - lu(k,2198) * lu(k,2379) + lu(k,2385) = lu(k,2385) - lu(k,2199) * lu(k,2379) + lu(k,2386) = lu(k,2386) - lu(k,2200) * lu(k,2379) + lu(k,2440) = lu(k,2440) - lu(k,2194) * lu(k,2439) + lu(k,2441) = lu(k,2441) - lu(k,2195) * lu(k,2439) + lu(k,2442) = lu(k,2442) - lu(k,2196) * lu(k,2439) + lu(k,2443) = lu(k,2443) - lu(k,2197) * lu(k,2439) + lu(k,2444) = lu(k,2444) - lu(k,2198) * lu(k,2439) + lu(k,2445) = lu(k,2445) - lu(k,2199) * lu(k,2439) + lu(k,2446) = lu(k,2446) - lu(k,2200) * lu(k,2439) + lu(k,2466) = lu(k,2466) - lu(k,2194) * lu(k,2465) + lu(k,2467) = lu(k,2467) - lu(k,2195) * lu(k,2465) + lu(k,2468) = lu(k,2468) - lu(k,2196) * lu(k,2465) + lu(k,2469) = lu(k,2469) - lu(k,2197) * lu(k,2465) + lu(k,2470) = lu(k,2470) - lu(k,2198) * lu(k,2465) + lu(k,2471) = lu(k,2471) - lu(k,2199) * lu(k,2465) + lu(k,2472) = lu(k,2472) - lu(k,2200) * lu(k,2465) + lu(k,2493) = lu(k,2493) - lu(k,2194) * lu(k,2492) + lu(k,2494) = lu(k,2494) - lu(k,2195) * lu(k,2492) + lu(k,2495) = lu(k,2495) - lu(k,2196) * lu(k,2492) + lu(k,2496) = lu(k,2496) - lu(k,2197) * lu(k,2492) + lu(k,2497) = lu(k,2497) - lu(k,2198) * lu(k,2492) + lu(k,2498) = lu(k,2498) - lu(k,2199) * lu(k,2492) + lu(k,2499) = lu(k,2499) - lu(k,2200) * lu(k,2492) + lu(k,2520) = lu(k,2520) - lu(k,2194) * lu(k,2519) + lu(k,2521) = lu(k,2521) - lu(k,2195) * lu(k,2519) + lu(k,2522) = lu(k,2522) - lu(k,2196) * lu(k,2519) + lu(k,2523) = lu(k,2523) - lu(k,2197) * lu(k,2519) + lu(k,2524) = lu(k,2524) - lu(k,2198) * lu(k,2519) + lu(k,2525) = lu(k,2525) - lu(k,2199) * lu(k,2519) + lu(k,2526) = lu(k,2526) - lu(k,2200) * lu(k,2519) + lu(k,2237) = 1._r8 / lu(k,2237) + lu(k,2238) = lu(k,2238) * lu(k,2237) + lu(k,2239) = lu(k,2239) * lu(k,2237) + lu(k,2240) = lu(k,2240) * lu(k,2237) + lu(k,2241) = lu(k,2241) * lu(k,2237) + lu(k,2242) = lu(k,2242) * lu(k,2237) + lu(k,2243) = lu(k,2243) * lu(k,2237) + lu(k,2261) = lu(k,2261) - lu(k,2238) * lu(k,2260) + lu(k,2262) = lu(k,2262) - lu(k,2239) * lu(k,2260) + lu(k,2263) = lu(k,2263) - lu(k,2240) * lu(k,2260) + lu(k,2264) = lu(k,2264) - lu(k,2241) * lu(k,2260) + lu(k,2265) = lu(k,2265) - lu(k,2242) * lu(k,2260) + lu(k,2266) = lu(k,2266) - lu(k,2243) * lu(k,2260) + lu(k,2381) = lu(k,2381) - lu(k,2238) * lu(k,2380) + lu(k,2382) = lu(k,2382) - lu(k,2239) * lu(k,2380) + lu(k,2383) = lu(k,2383) - lu(k,2240) * lu(k,2380) + lu(k,2384) = lu(k,2384) - lu(k,2241) * lu(k,2380) + lu(k,2385) = lu(k,2385) - lu(k,2242) * lu(k,2380) + lu(k,2386) = lu(k,2386) - lu(k,2243) * lu(k,2380) + lu(k,2441) = lu(k,2441) - lu(k,2238) * lu(k,2440) + lu(k,2442) = lu(k,2442) - lu(k,2239) * lu(k,2440) + lu(k,2443) = lu(k,2443) - lu(k,2240) * lu(k,2440) + lu(k,2444) = lu(k,2444) - lu(k,2241) * lu(k,2440) + lu(k,2445) = lu(k,2445) - lu(k,2242) * lu(k,2440) + lu(k,2446) = lu(k,2446) - lu(k,2243) * lu(k,2440) + lu(k,2467) = lu(k,2467) - lu(k,2238) * lu(k,2466) + lu(k,2468) = lu(k,2468) - lu(k,2239) * lu(k,2466) + lu(k,2469) = lu(k,2469) - lu(k,2240) * lu(k,2466) + lu(k,2470) = lu(k,2470) - lu(k,2241) * lu(k,2466) + lu(k,2471) = lu(k,2471) - lu(k,2242) * lu(k,2466) + lu(k,2472) = lu(k,2472) - lu(k,2243) * lu(k,2466) + lu(k,2494) = lu(k,2494) - lu(k,2238) * lu(k,2493) + lu(k,2495) = lu(k,2495) - lu(k,2239) * lu(k,2493) + lu(k,2496) = lu(k,2496) - lu(k,2240) * lu(k,2493) + lu(k,2497) = lu(k,2497) - lu(k,2241) * lu(k,2493) + lu(k,2498) = lu(k,2498) - lu(k,2242) * lu(k,2493) + lu(k,2499) = lu(k,2499) - lu(k,2243) * lu(k,2493) + lu(k,2521) = lu(k,2521) - lu(k,2238) * lu(k,2520) + lu(k,2522) = lu(k,2522) - lu(k,2239) * lu(k,2520) + lu(k,2523) = lu(k,2523) - lu(k,2240) * lu(k,2520) + lu(k,2524) = lu(k,2524) - lu(k,2241) * lu(k,2520) + lu(k,2525) = lu(k,2525) - lu(k,2242) * lu(k,2520) + lu(k,2526) = lu(k,2526) - lu(k,2243) * lu(k,2520) lu(k,2261) = 1._r8 / lu(k,2261) lu(k,2262) = lu(k,2262) * lu(k,2261) lu(k,2263) = lu(k,2263) * lu(k,2261) lu(k,2264) = lu(k,2264) * lu(k,2261) lu(k,2265) = lu(k,2265) * lu(k,2261) lu(k,2266) = lu(k,2266) * lu(k,2261) - lu(k,2267) = lu(k,2267) * lu(k,2261) - lu(k,2268) = lu(k,2268) * lu(k,2261) - lu(k,2283) = lu(k,2283) - lu(k,2262) * lu(k,2282) - lu(k,2284) = lu(k,2284) - lu(k,2263) * lu(k,2282) - lu(k,2285) = lu(k,2285) - lu(k,2264) * lu(k,2282) - lu(k,2286) = lu(k,2286) - lu(k,2265) * lu(k,2282) - lu(k,2287) = lu(k,2287) - lu(k,2266) * lu(k,2282) - lu(k,2288) = lu(k,2288) - lu(k,2267) * lu(k,2282) - lu(k,2289) = lu(k,2289) - lu(k,2268) * lu(k,2282) - lu(k,2306) = lu(k,2306) - lu(k,2262) * lu(k,2305) - lu(k,2307) = lu(k,2307) - lu(k,2263) * lu(k,2305) - lu(k,2308) = lu(k,2308) - lu(k,2264) * lu(k,2305) - lu(k,2309) = lu(k,2309) - lu(k,2265) * lu(k,2305) - lu(k,2310) = lu(k,2310) - lu(k,2266) * lu(k,2305) - lu(k,2311) = lu(k,2311) - lu(k,2267) * lu(k,2305) - lu(k,2312) = lu(k,2312) - lu(k,2268) * lu(k,2305) - lu(k,2358) = lu(k,2358) - lu(k,2262) * lu(k,2357) - lu(k,2359) = lu(k,2359) - lu(k,2263) * lu(k,2357) - lu(k,2360) = lu(k,2360) - lu(k,2264) * lu(k,2357) - lu(k,2361) = lu(k,2361) - lu(k,2265) * lu(k,2357) - lu(k,2362) = lu(k,2362) - lu(k,2266) * lu(k,2357) - lu(k,2363) = lu(k,2363) - lu(k,2267) * lu(k,2357) - lu(k,2364) = lu(k,2364) - lu(k,2268) * lu(k,2357) - lu(k,2422) = lu(k,2422) - lu(k,2262) * lu(k,2421) - lu(k,2423) = lu(k,2423) - lu(k,2263) * lu(k,2421) - lu(k,2424) = lu(k,2424) - lu(k,2264) * lu(k,2421) - lu(k,2425) = lu(k,2425) - lu(k,2265) * lu(k,2421) - lu(k,2426) = lu(k,2426) - lu(k,2266) * lu(k,2421) - lu(k,2427) = lu(k,2427) - lu(k,2267) * lu(k,2421) - lu(k,2428) = lu(k,2428) - lu(k,2268) * lu(k,2421) - lu(k,2465) = lu(k,2465) - lu(k,2262) * lu(k,2464) - lu(k,2466) = lu(k,2466) - lu(k,2263) * lu(k,2464) - lu(k,2467) = lu(k,2467) - lu(k,2264) * lu(k,2464) - lu(k,2468) = lu(k,2468) - lu(k,2265) * lu(k,2464) - lu(k,2469) = lu(k,2469) - lu(k,2266) * lu(k,2464) - lu(k,2470) = lu(k,2470) - lu(k,2267) * lu(k,2464) - lu(k,2471) = lu(k,2471) - lu(k,2268) * lu(k,2464) - lu(k,2491) = lu(k,2491) - lu(k,2262) * lu(k,2490) - lu(k,2492) = lu(k,2492) - lu(k,2263) * lu(k,2490) - lu(k,2493) = lu(k,2493) - lu(k,2264) * lu(k,2490) - lu(k,2494) = lu(k,2494) - lu(k,2265) * lu(k,2490) - lu(k,2495) = lu(k,2495) - lu(k,2266) * lu(k,2490) - lu(k,2496) = lu(k,2496) - lu(k,2267) * lu(k,2490) - lu(k,2497) = lu(k,2497) - lu(k,2268) * lu(k,2490) - lu(k,2518) = lu(k,2518) - lu(k,2262) * lu(k,2517) - lu(k,2519) = lu(k,2519) - lu(k,2263) * lu(k,2517) - lu(k,2520) = lu(k,2520) - lu(k,2264) * lu(k,2517) - lu(k,2521) = lu(k,2521) - lu(k,2265) * lu(k,2517) - lu(k,2522) = lu(k,2522) - lu(k,2266) * lu(k,2517) - lu(k,2523) = lu(k,2523) - lu(k,2267) * lu(k,2517) - lu(k,2524) = lu(k,2524) - lu(k,2268) * lu(k,2517) - lu(k,2283) = 1._r8 / lu(k,2283) - lu(k,2284) = lu(k,2284) * lu(k,2283) - lu(k,2285) = lu(k,2285) * lu(k,2283) - lu(k,2286) = lu(k,2286) * lu(k,2283) - lu(k,2287) = lu(k,2287) * lu(k,2283) - lu(k,2288) = lu(k,2288) * lu(k,2283) - lu(k,2289) = lu(k,2289) * lu(k,2283) - lu(k,2307) = lu(k,2307) - lu(k,2284) * lu(k,2306) - lu(k,2308) = lu(k,2308) - lu(k,2285) * lu(k,2306) - lu(k,2309) = lu(k,2309) - lu(k,2286) * lu(k,2306) - lu(k,2310) = lu(k,2310) - lu(k,2287) * lu(k,2306) - lu(k,2311) = lu(k,2311) - lu(k,2288) * lu(k,2306) - lu(k,2312) = lu(k,2312) - lu(k,2289) * lu(k,2306) - lu(k,2359) = lu(k,2359) - lu(k,2284) * lu(k,2358) - lu(k,2360) = lu(k,2360) - lu(k,2285) * lu(k,2358) - lu(k,2361) = lu(k,2361) - lu(k,2286) * lu(k,2358) - lu(k,2362) = lu(k,2362) - lu(k,2287) * lu(k,2358) - lu(k,2363) = lu(k,2363) - lu(k,2288) * lu(k,2358) - lu(k,2364) = lu(k,2364) - lu(k,2289) * lu(k,2358) - lu(k,2423) = lu(k,2423) - lu(k,2284) * lu(k,2422) - lu(k,2424) = lu(k,2424) - lu(k,2285) * lu(k,2422) - lu(k,2425) = lu(k,2425) - lu(k,2286) * lu(k,2422) - lu(k,2426) = lu(k,2426) - lu(k,2287) * lu(k,2422) - lu(k,2427) = lu(k,2427) - lu(k,2288) * lu(k,2422) - lu(k,2428) = lu(k,2428) - lu(k,2289) * lu(k,2422) - lu(k,2466) = lu(k,2466) - lu(k,2284) * lu(k,2465) - lu(k,2467) = lu(k,2467) - lu(k,2285) * lu(k,2465) - lu(k,2468) = lu(k,2468) - lu(k,2286) * lu(k,2465) - lu(k,2469) = lu(k,2469) - lu(k,2287) * lu(k,2465) - lu(k,2470) = lu(k,2470) - lu(k,2288) * lu(k,2465) - lu(k,2471) = lu(k,2471) - lu(k,2289) * lu(k,2465) - lu(k,2492) = lu(k,2492) - lu(k,2284) * lu(k,2491) - lu(k,2493) = lu(k,2493) - lu(k,2285) * lu(k,2491) - lu(k,2494) = lu(k,2494) - lu(k,2286) * lu(k,2491) - lu(k,2495) = lu(k,2495) - lu(k,2287) * lu(k,2491) - lu(k,2496) = lu(k,2496) - lu(k,2288) * lu(k,2491) - lu(k,2497) = lu(k,2497) - lu(k,2289) * lu(k,2491) - lu(k,2519) = lu(k,2519) - lu(k,2284) * lu(k,2518) - lu(k,2520) = lu(k,2520) - lu(k,2285) * lu(k,2518) - lu(k,2521) = lu(k,2521) - lu(k,2286) * lu(k,2518) - lu(k,2522) = lu(k,2522) - lu(k,2287) * lu(k,2518) - lu(k,2523) = lu(k,2523) - lu(k,2288) * lu(k,2518) - lu(k,2524) = lu(k,2524) - lu(k,2289) * lu(k,2518) - lu(k,2307) = 1._r8 / lu(k,2307) - lu(k,2308) = lu(k,2308) * lu(k,2307) - lu(k,2309) = lu(k,2309) * lu(k,2307) - lu(k,2310) = lu(k,2310) * lu(k,2307) - lu(k,2311) = lu(k,2311) * lu(k,2307) - lu(k,2312) = lu(k,2312) * lu(k,2307) - lu(k,2360) = lu(k,2360) - lu(k,2308) * lu(k,2359) - lu(k,2361) = lu(k,2361) - lu(k,2309) * lu(k,2359) - lu(k,2362) = lu(k,2362) - lu(k,2310) * lu(k,2359) - lu(k,2363) = lu(k,2363) - lu(k,2311) * lu(k,2359) - lu(k,2364) = lu(k,2364) - lu(k,2312) * lu(k,2359) - lu(k,2424) = lu(k,2424) - lu(k,2308) * lu(k,2423) - lu(k,2425) = lu(k,2425) - lu(k,2309) * lu(k,2423) - lu(k,2426) = lu(k,2426) - lu(k,2310) * lu(k,2423) - lu(k,2427) = lu(k,2427) - lu(k,2311) * lu(k,2423) - lu(k,2428) = lu(k,2428) - lu(k,2312) * lu(k,2423) - lu(k,2467) = lu(k,2467) - lu(k,2308) * lu(k,2466) - lu(k,2468) = lu(k,2468) - lu(k,2309) * lu(k,2466) - lu(k,2469) = lu(k,2469) - lu(k,2310) * lu(k,2466) - lu(k,2470) = lu(k,2470) - lu(k,2311) * lu(k,2466) - lu(k,2471) = lu(k,2471) - lu(k,2312) * lu(k,2466) - lu(k,2493) = lu(k,2493) - lu(k,2308) * lu(k,2492) - lu(k,2494) = lu(k,2494) - lu(k,2309) * lu(k,2492) - lu(k,2495) = lu(k,2495) - lu(k,2310) * lu(k,2492) - lu(k,2496) = lu(k,2496) - lu(k,2311) * lu(k,2492) - lu(k,2497) = lu(k,2497) - lu(k,2312) * lu(k,2492) - lu(k,2520) = lu(k,2520) - lu(k,2308) * lu(k,2519) - lu(k,2521) = lu(k,2521) - lu(k,2309) * lu(k,2519) - lu(k,2522) = lu(k,2522) - lu(k,2310) * lu(k,2519) - lu(k,2523) = lu(k,2523) - lu(k,2311) * lu(k,2519) - lu(k,2524) = lu(k,2524) - lu(k,2312) * lu(k,2519) - lu(k,2360) = 1._r8 / lu(k,2360) - lu(k,2361) = lu(k,2361) * lu(k,2360) - lu(k,2362) = lu(k,2362) * lu(k,2360) - lu(k,2363) = lu(k,2363) * lu(k,2360) - lu(k,2364) = lu(k,2364) * lu(k,2360) - lu(k,2425) = lu(k,2425) - lu(k,2361) * lu(k,2424) - lu(k,2426) = lu(k,2426) - lu(k,2362) * lu(k,2424) - lu(k,2427) = lu(k,2427) - lu(k,2363) * lu(k,2424) - lu(k,2428) = lu(k,2428) - lu(k,2364) * lu(k,2424) - lu(k,2468) = lu(k,2468) - lu(k,2361) * lu(k,2467) - lu(k,2469) = lu(k,2469) - lu(k,2362) * lu(k,2467) - lu(k,2470) = lu(k,2470) - lu(k,2363) * lu(k,2467) - lu(k,2471) = lu(k,2471) - lu(k,2364) * lu(k,2467) - lu(k,2494) = lu(k,2494) - lu(k,2361) * lu(k,2493) - lu(k,2495) = lu(k,2495) - lu(k,2362) * lu(k,2493) - lu(k,2496) = lu(k,2496) - lu(k,2363) * lu(k,2493) - lu(k,2497) = lu(k,2497) - lu(k,2364) * lu(k,2493) - lu(k,2521) = lu(k,2521) - lu(k,2361) * lu(k,2520) - lu(k,2522) = lu(k,2522) - lu(k,2362) * lu(k,2520) - lu(k,2523) = lu(k,2523) - lu(k,2363) * lu(k,2520) - lu(k,2524) = lu(k,2524) - lu(k,2364) * lu(k,2520) - lu(k,2425) = 1._r8 / lu(k,2425) - lu(k,2426) = lu(k,2426) * lu(k,2425) - lu(k,2427) = lu(k,2427) * lu(k,2425) - lu(k,2428) = lu(k,2428) * lu(k,2425) - lu(k,2469) = lu(k,2469) - lu(k,2426) * lu(k,2468) - lu(k,2470) = lu(k,2470) - lu(k,2427) * lu(k,2468) - lu(k,2471) = lu(k,2471) - lu(k,2428) * lu(k,2468) - lu(k,2495) = lu(k,2495) - lu(k,2426) * lu(k,2494) - lu(k,2496) = lu(k,2496) - lu(k,2427) * lu(k,2494) - lu(k,2497) = lu(k,2497) - lu(k,2428) * lu(k,2494) - lu(k,2522) = lu(k,2522) - lu(k,2426) * lu(k,2521) - lu(k,2523) = lu(k,2523) - lu(k,2427) * lu(k,2521) - lu(k,2524) = lu(k,2524) - lu(k,2428) * lu(k,2521) - lu(k,2469) = 1._r8 / lu(k,2469) - lu(k,2470) = lu(k,2470) * lu(k,2469) - lu(k,2471) = lu(k,2471) * lu(k,2469) - lu(k,2496) = lu(k,2496) - lu(k,2470) * lu(k,2495) - lu(k,2497) = lu(k,2497) - lu(k,2471) * lu(k,2495) - lu(k,2523) = lu(k,2523) - lu(k,2470) * lu(k,2522) - lu(k,2524) = lu(k,2524) - lu(k,2471) * lu(k,2522) - lu(k,2496) = 1._r8 / lu(k,2496) - lu(k,2497) = lu(k,2497) * lu(k,2496) - lu(k,2524) = lu(k,2524) - lu(k,2497) * lu(k,2523) - lu(k,2524) = 1._r8 / lu(k,2524) + lu(k,2382) = lu(k,2382) - lu(k,2262) * lu(k,2381) + lu(k,2383) = lu(k,2383) - lu(k,2263) * lu(k,2381) + lu(k,2384) = lu(k,2384) - lu(k,2264) * lu(k,2381) + lu(k,2385) = lu(k,2385) - lu(k,2265) * lu(k,2381) + lu(k,2386) = lu(k,2386) - lu(k,2266) * lu(k,2381) + lu(k,2442) = lu(k,2442) - lu(k,2262) * lu(k,2441) + lu(k,2443) = lu(k,2443) - lu(k,2263) * lu(k,2441) + lu(k,2444) = lu(k,2444) - lu(k,2264) * lu(k,2441) + lu(k,2445) = lu(k,2445) - lu(k,2265) * lu(k,2441) + lu(k,2446) = lu(k,2446) - lu(k,2266) * lu(k,2441) + lu(k,2468) = lu(k,2468) - lu(k,2262) * lu(k,2467) + lu(k,2469) = lu(k,2469) - lu(k,2263) * lu(k,2467) + lu(k,2470) = lu(k,2470) - lu(k,2264) * lu(k,2467) + lu(k,2471) = lu(k,2471) - lu(k,2265) * lu(k,2467) + lu(k,2472) = lu(k,2472) - lu(k,2266) * lu(k,2467) + lu(k,2495) = lu(k,2495) - lu(k,2262) * lu(k,2494) + lu(k,2496) = lu(k,2496) - lu(k,2263) * lu(k,2494) + lu(k,2497) = lu(k,2497) - lu(k,2264) * lu(k,2494) + lu(k,2498) = lu(k,2498) - lu(k,2265) * lu(k,2494) + lu(k,2499) = lu(k,2499) - lu(k,2266) * lu(k,2494) + lu(k,2522) = lu(k,2522) - lu(k,2262) * lu(k,2521) + lu(k,2523) = lu(k,2523) - lu(k,2263) * lu(k,2521) + lu(k,2524) = lu(k,2524) - lu(k,2264) * lu(k,2521) + lu(k,2525) = lu(k,2525) - lu(k,2265) * lu(k,2521) + lu(k,2526) = lu(k,2526) - lu(k,2266) * lu(k,2521) + lu(k,2382) = 1._r8 / lu(k,2382) + lu(k,2383) = lu(k,2383) * lu(k,2382) + lu(k,2384) = lu(k,2384) * lu(k,2382) + lu(k,2385) = lu(k,2385) * lu(k,2382) + lu(k,2386) = lu(k,2386) * lu(k,2382) + lu(k,2443) = lu(k,2443) - lu(k,2383) * lu(k,2442) + lu(k,2444) = lu(k,2444) - lu(k,2384) * lu(k,2442) + lu(k,2445) = lu(k,2445) - lu(k,2385) * lu(k,2442) + lu(k,2446) = lu(k,2446) - lu(k,2386) * lu(k,2442) + lu(k,2469) = lu(k,2469) - lu(k,2383) * lu(k,2468) + lu(k,2470) = lu(k,2470) - lu(k,2384) * lu(k,2468) + lu(k,2471) = lu(k,2471) - lu(k,2385) * lu(k,2468) + lu(k,2472) = lu(k,2472) - lu(k,2386) * lu(k,2468) + lu(k,2496) = lu(k,2496) - lu(k,2383) * lu(k,2495) + lu(k,2497) = lu(k,2497) - lu(k,2384) * lu(k,2495) + lu(k,2498) = lu(k,2498) - lu(k,2385) * lu(k,2495) + lu(k,2499) = lu(k,2499) - lu(k,2386) * lu(k,2495) + lu(k,2523) = lu(k,2523) - lu(k,2383) * lu(k,2522) + lu(k,2524) = lu(k,2524) - lu(k,2384) * lu(k,2522) + lu(k,2525) = lu(k,2525) - lu(k,2385) * lu(k,2522) + lu(k,2526) = lu(k,2526) - lu(k,2386) * lu(k,2522) + lu(k,2443) = 1._r8 / lu(k,2443) + lu(k,2444) = lu(k,2444) * lu(k,2443) + lu(k,2445) = lu(k,2445) * lu(k,2443) + lu(k,2446) = lu(k,2446) * lu(k,2443) + lu(k,2470) = lu(k,2470) - lu(k,2444) * lu(k,2469) + lu(k,2471) = lu(k,2471) - lu(k,2445) * lu(k,2469) + lu(k,2472) = lu(k,2472) - lu(k,2446) * lu(k,2469) + lu(k,2497) = lu(k,2497) - lu(k,2444) * lu(k,2496) + lu(k,2498) = lu(k,2498) - lu(k,2445) * lu(k,2496) + lu(k,2499) = lu(k,2499) - lu(k,2446) * lu(k,2496) + lu(k,2524) = lu(k,2524) - lu(k,2444) * lu(k,2523) + lu(k,2525) = lu(k,2525) - lu(k,2445) * lu(k,2523) + lu(k,2526) = lu(k,2526) - lu(k,2446) * lu(k,2523) + lu(k,2470) = 1._r8 / lu(k,2470) + lu(k,2471) = lu(k,2471) * lu(k,2470) + lu(k,2472) = lu(k,2472) * lu(k,2470) + lu(k,2498) = lu(k,2498) - lu(k,2471) * lu(k,2497) + lu(k,2499) = lu(k,2499) - lu(k,2472) * lu(k,2497) + lu(k,2525) = lu(k,2525) - lu(k,2471) * lu(k,2524) + lu(k,2526) = lu(k,2526) - lu(k,2472) * lu(k,2524) + lu(k,2498) = 1._r8 / lu(k,2498) + lu(k,2499) = lu(k,2499) * lu(k,2498) + lu(k,2526) = lu(k,2526) - lu(k,2499) * lu(k,2525) + lu(k,2526) = 1._r8 / lu(k,2526) end do end subroutine lu_fac33 subroutine lu_fac( avec_len, lu ) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_solve.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_solve.F90 index 78e24390c0..e3e7cb32bd 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_lu_solve.F90 @@ -21,212 +21,212 @@ subroutine lu_slv01( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,263) = b(k,263) - lu(k,142) * b(k,89) - b(k,274) = b(k,274) - lu(k,143) * b(k,89) - b(k,262) = b(k,262) - lu(k,145) * b(k,90) - b(k,267) = b(k,267) - lu(k,146) * b(k,90) - b(k,263) = b(k,263) - lu(k,148) * b(k,91) - b(k,266) = b(k,266) - lu(k,149) * b(k,91) - b(k,259) = b(k,259) - lu(k,151) * b(k,92) - b(k,267) = b(k,267) - lu(k,152) * b(k,92) - b(k,126) = b(k,126) - lu(k,154) * b(k,93) - b(k,262) = b(k,262) - lu(k,155) * b(k,93) - b(k,267) = b(k,267) - lu(k,156) * b(k,93) - b(k,119) = b(k,119) - lu(k,158) * b(k,94) - b(k,262) = b(k,262) - lu(k,159) * b(k,94) - b(k,267) = b(k,267) - lu(k,160) * b(k,94) - b(k,119) = b(k,119) - lu(k,162) * b(k,95) - b(k,262) = b(k,262) - lu(k,163) * b(k,95) - b(k,267) = b(k,267) - lu(k,164) * b(k,95) - b(k,263) = b(k,263) - lu(k,166) * b(k,96) - b(k,267) = b(k,267) - lu(k,167) * b(k,96) - b(k,274) = b(k,274) - lu(k,168) * b(k,96) - b(k,119) = b(k,119) - lu(k,170) * b(k,97) - b(k,256) = b(k,256) - lu(k,171) * b(k,97) - b(k,262) = b(k,262) - lu(k,172) * b(k,97) - b(k,242) = b(k,242) - lu(k,174) * b(k,98) - b(k,263) = b(k,263) - lu(k,175) * b(k,98) - b(k,129) = b(k,129) - lu(k,177) * b(k,99) - b(k,274) = b(k,274) - lu(k,178) * b(k,99) - b(k,165) = b(k,165) - lu(k,180) * b(k,100) - b(k,263) = b(k,263) - lu(k,181) * b(k,100) - b(k,174) = b(k,174) - lu(k,183) * b(k,101) - b(k,260) = b(k,260) - lu(k,184) * b(k,101) - b(k,119) = b(k,119) - lu(k,186) * b(k,102) - b(k,256) = b(k,256) - lu(k,187) * b(k,102) - b(k,262) = b(k,262) - lu(k,188) * b(k,102) - b(k,267) = b(k,267) - lu(k,189) * b(k,102) - b(k,119) = b(k,119) - lu(k,191) * b(k,103) - b(k,219) = b(k,219) - lu(k,192) * b(k,103) - b(k,256) = b(k,256) - lu(k,193) * b(k,103) - b(k,262) = b(k,262) - lu(k,194) * b(k,103) - b(k,119) = b(k,119) - lu(k,196) * b(k,104) - b(k,126) = b(k,126) - lu(k,197) * b(k,104) - b(k,262) = b(k,262) - lu(k,198) * b(k,104) - b(k,267) = b(k,267) - lu(k,199) * b(k,104) - b(k,119) = b(k,119) - lu(k,201) * b(k,105) - b(k,219) = b(k,219) - lu(k,202) * b(k,105) - b(k,262) = b(k,262) - lu(k,203) * b(k,105) - b(k,267) = b(k,267) - lu(k,204) * b(k,105) - b(k,267) = b(k,267) - lu(k,206) * b(k,106) - b(k,108) = b(k,108) - lu(k,209) * b(k,107) - b(k,109) = b(k,109) - lu(k,210) * b(k,107) - b(k,170) = b(k,170) - lu(k,211) * b(k,107) - b(k,263) = b(k,263) - lu(k,212) * b(k,107) - b(k,266) = b(k,266) - lu(k,213) * b(k,107) - b(k,164) = b(k,164) - lu(k,215) * b(k,108) - b(k,236) = b(k,236) - lu(k,216) * b(k,108) - b(k,266) = b(k,266) - lu(k,217) * b(k,108) - b(k,163) = b(k,163) - lu(k,219) * b(k,109) - b(k,169) = b(k,169) - lu(k,220) * b(k,109) - b(k,263) = b(k,263) - lu(k,221) * b(k,109) - b(k,266) = b(k,266) - lu(k,222) * b(k,109) - b(k,257) = b(k,257) - lu(k,224) * b(k,110) - b(k,257) = b(k,257) - lu(k,227) * b(k,111) - b(k,113) = b(k,113) - lu(k,230) * b(k,112) - b(k,114) = b(k,114) - lu(k,231) * b(k,112) - b(k,160) = b(k,160) - lu(k,232) * b(k,112) - b(k,201) = b(k,201) - lu(k,233) * b(k,112) - b(k,263) = b(k,263) - lu(k,234) * b(k,112) - b(k,266) = b(k,266) - lu(k,235) * b(k,112) - b(k,163) = b(k,163) - lu(k,237) * b(k,113) - b(k,169) = b(k,169) - lu(k,238) * b(k,113) - b(k,263) = b(k,263) - lu(k,239) * b(k,113) - b(k,266) = b(k,266) - lu(k,240) * b(k,113) - b(k,236) = b(k,236) - lu(k,242) * b(k,114) - b(k,251) = b(k,251) - lu(k,243) * b(k,114) - b(k,266) = b(k,266) - lu(k,244) * b(k,114) - b(k,242) = b(k,242) - lu(k,246) * b(k,115) - b(k,263) = b(k,263) - lu(k,247) * b(k,115) - b(k,262) = b(k,262) - lu(k,249) * b(k,116) - b(k,263) = b(k,263) - lu(k,250) * b(k,116) - b(k,266) = b(k,266) - lu(k,251) * b(k,116) - b(k,118) = b(k,118) - lu(k,255) * b(k,117) - b(k,160) = b(k,160) - lu(k,256) * b(k,117) - b(k,202) = b(k,202) - lu(k,257) * b(k,117) - b(k,236) = b(k,236) - lu(k,258) * b(k,117) - b(k,251) = b(k,251) - lu(k,259) * b(k,117) - b(k,263) = b(k,263) - lu(k,260) * b(k,117) - b(k,266) = b(k,266) - lu(k,261) * b(k,117) - b(k,169) = b(k,169) - lu(k,263) * b(k,118) - b(k,172) = b(k,172) - lu(k,264) * b(k,118) - b(k,263) = b(k,263) - lu(k,265) * b(k,118) - b(k,266) = b(k,266) - lu(k,266) * b(k,118) - b(k,219) = b(k,219) - lu(k,268) * b(k,119) - b(k,262) = b(k,262) - lu(k,269) * b(k,119) - b(k,226) = b(k,226) - lu(k,271) * b(k,120) - b(k,263) = b(k,263) - lu(k,272) * b(k,120) - b(k,256) = b(k,256) - lu(k,274) * b(k,121) - b(k,267) = b(k,267) - lu(k,275) * b(k,121) - b(k,260) = b(k,260) - lu(k,277) * b(k,122) - b(k,269) = b(k,269) - lu(k,278) * b(k,122) - b(k,174) = b(k,174) - lu(k,280) * b(k,123) - b(k,263) = b(k,263) - lu(k,281) * b(k,123) - b(k,188) = b(k,188) - lu(k,283) * b(k,124) - b(k,242) = b(k,242) - lu(k,284) * b(k,124) - b(k,263) = b(k,263) - lu(k,285) * b(k,124) - b(k,266) = b(k,266) - lu(k,286) * b(k,124) - b(k,126) = b(k,126) - lu(k,288) * b(k,125) - b(k,262) = b(k,262) - lu(k,289) * b(k,125) - b(k,263) = b(k,263) - lu(k,290) * b(k,125) - b(k,267) = b(k,267) - lu(k,291) * b(k,125) - b(k,219) = b(k,219) - lu(k,293) * b(k,126) - b(k,262) = b(k,262) - lu(k,294) * b(k,126) - b(k,267) = b(k,267) - lu(k,295) * b(k,126) - b(k,219) = b(k,219) - lu(k,298) * b(k,127) - b(k,262) = b(k,262) - lu(k,299) * b(k,127) - b(k,263) = b(k,263) - lu(k,300) * b(k,127) - b(k,267) = b(k,267) - lu(k,301) * b(k,127) - b(k,257) = b(k,257) - lu(k,303) * b(k,128) - b(k,261) = b(k,261) - lu(k,304) * b(k,128) - b(k,262) = b(k,262) - lu(k,305) * b(k,128) - b(k,221) = b(k,221) - lu(k,308) * b(k,129) - b(k,272) = b(k,272) - lu(k,309) * b(k,129) - b(k,274) = b(k,274) - lu(k,310) * b(k,129) - b(k,235) = b(k,235) - lu(k,312) * b(k,130) - b(k,263) = b(k,263) - lu(k,313) * b(k,130) - b(k,266) = b(k,266) - lu(k,314) * b(k,130) - b(k,169) = b(k,169) - lu(k,316) * b(k,131) - b(k,190) = b(k,190) - lu(k,317) * b(k,131) - b(k,263) = b(k,263) - lu(k,318) * b(k,131) - b(k,260) = b(k,260) - lu(k,320) * b(k,132) - b(k,261) = b(k,261) - lu(k,321) * b(k,132) - b(k,264) = b(k,264) - lu(k,322) * b(k,132) - b(k,269) = b(k,269) - lu(k,323) * b(k,132) - b(k,272) = b(k,272) - lu(k,324) * b(k,132) - b(k,216) = b(k,216) - lu(k,326) * b(k,133) - b(k,227) = b(k,227) - lu(k,327) * b(k,133) - b(k,236) = b(k,236) - lu(k,328) * b(k,133) - b(k,263) = b(k,263) - lu(k,329) * b(k,133) - b(k,266) = b(k,266) - lu(k,330) * b(k,133) - b(k,203) = b(k,203) - lu(k,332) * b(k,134) - b(k,266) = b(k,266) - lu(k,333) * b(k,134) - b(k,217) = b(k,217) - lu(k,335) * b(k,135) - b(k,255) = b(k,255) - lu(k,336) * b(k,135) - b(k,263) = b(k,263) - lu(k,337) * b(k,135) - b(k,267) = b(k,267) - lu(k,338) * b(k,135) - b(k,274) = b(k,274) - lu(k,339) * b(k,135) - b(k,220) = b(k,220) - lu(k,341) * b(k,136) - b(k,255) = b(k,255) - lu(k,342) * b(k,136) - b(k,263) = b(k,263) - lu(k,343) * b(k,136) - b(k,267) = b(k,267) - lu(k,344) * b(k,136) - b(k,274) = b(k,274) - lu(k,345) * b(k,136) - b(k,219) = b(k,219) - lu(k,347) * b(k,137) - b(k,268) = b(k,268) - lu(k,348) * b(k,137) - b(k,221) = b(k,221) - lu(k,350) * b(k,138) - b(k,263) = b(k,263) - lu(k,351) * b(k,138) - b(k,264) = b(k,264) - lu(k,352) * b(k,138) - b(k,266) = b(k,266) - lu(k,353) * b(k,138) - b(k,269) = b(k,269) - lu(k,354) * b(k,138) - b(k,219) = b(k,219) - lu(k,357) * b(k,139) - b(k,262) = b(k,262) - lu(k,358) * b(k,139) - b(k,263) = b(k,263) - lu(k,359) * b(k,139) - b(k,267) = b(k,267) - lu(k,360) * b(k,139) - b(k,274) = b(k,274) - lu(k,361) * b(k,139) - b(k,221) = b(k,221) - lu(k,363) * b(k,140) - b(k,254) = b(k,254) - lu(k,364) * b(k,140) - b(k,259) = b(k,259) - lu(k,365) * b(k,140) - b(k,272) = b(k,272) - lu(k,366) * b(k,140) - b(k,163) = b(k,163) - lu(k,368) * b(k,141) - b(k,227) = b(k,227) - lu(k,369) * b(k,141) - b(k,263) = b(k,263) - lu(k,370) * b(k,141) - b(k,266) = b(k,266) - lu(k,371) * b(k,141) - b(k,160) = b(k,160) - lu(k,374) * b(k,142) - b(k,174) = b(k,174) - lu(k,375) * b(k,142) - b(k,263) = b(k,263) - lu(k,376) * b(k,142) - b(k,266) = b(k,266) - lu(k,377) * b(k,142) - b(k,217) = b(k,217) - lu(k,379) * b(k,143) - b(k,235) = b(k,235) - lu(k,380) * b(k,143) - b(k,263) = b(k,263) - lu(k,381) * b(k,143) - b(k,266) = b(k,266) - lu(k,382) * b(k,143) - b(k,236) = b(k,236) - lu(k,384) * b(k,144) - b(k,245) = b(k,245) - lu(k,385) * b(k,144) - b(k,251) = b(k,251) - lu(k,386) * b(k,144) - b(k,266) = b(k,266) - lu(k,387) * b(k,144) - b(k,193) = b(k,193) - lu(k,389) * b(k,145) - b(k,235) = b(k,235) - lu(k,390) * b(k,145) - b(k,251) = b(k,251) - lu(k,391) * b(k,145) - b(k,263) = b(k,263) - lu(k,392) * b(k,145) - b(k,248) = b(k,248) - lu(k,394) * b(k,146) - b(k,250) = b(k,250) - lu(k,395) * b(k,146) - b(k,263) = b(k,263) - lu(k,396) * b(k,146) - b(k,266) = b(k,266) - lu(k,397) * b(k,146) - b(k,242) = b(k,242) - lu(k,399) * b(k,147) - b(k,263) = b(k,263) - lu(k,400) * b(k,147) - b(k,236) = b(k,236) - lu(k,402) * b(k,148) - b(k,255) = b(k,255) - lu(k,403) * b(k,148) - b(k,263) = b(k,263) - lu(k,404) * b(k,148) - b(k,266) = b(k,266) - lu(k,405) * b(k,148) - b(k,267) = b(k,267) - lu(k,406) * b(k,148) - b(k,270) = b(k,270) - lu(k,407) * b(k,148) - b(k,274) = b(k,274) - lu(k,408) * b(k,148) - b(k,180) = b(k,180) - lu(k,410) * b(k,149) - b(k,230) = b(k,230) - lu(k,411) * b(k,149) - b(k,235) = b(k,235) - lu(k,412) * b(k,149) - b(k,260) = b(k,260) - lu(k,413) * b(k,149) - b(k,263) = b(k,263) - lu(k,414) * b(k,149) - b(k,264) = b(k,264) - lu(k,415) * b(k,149) - b(k,273) = b(k,273) - lu(k,416) * b(k,149) + b(k,263) = b(k,263) - lu(k,144) * b(k,91) + b(k,276) = b(k,276) - lu(k,145) * b(k,91) + b(k,265) = b(k,265) - lu(k,147) * b(k,92) + b(k,270) = b(k,270) - lu(k,148) * b(k,92) + b(k,263) = b(k,263) - lu(k,150) * b(k,93) + b(k,272) = b(k,272) - lu(k,151) * b(k,93) + b(k,265) = b(k,265) - lu(k,153) * b(k,94) + b(k,275) = b(k,275) - lu(k,154) * b(k,94) + b(k,128) = b(k,128) - lu(k,156) * b(k,95) + b(k,265) = b(k,265) - lu(k,157) * b(k,95) + b(k,270) = b(k,270) - lu(k,158) * b(k,95) + b(k,126) = b(k,126) - lu(k,160) * b(k,96) + b(k,265) = b(k,265) - lu(k,161) * b(k,96) + b(k,270) = b(k,270) - lu(k,162) * b(k,96) + b(k,126) = b(k,126) - lu(k,164) * b(k,97) + b(k,265) = b(k,265) - lu(k,165) * b(k,97) + b(k,270) = b(k,270) - lu(k,166) * b(k,97) + b(k,263) = b(k,263) - lu(k,168) * b(k,98) + b(k,265) = b(k,265) - lu(k,169) * b(k,98) + b(k,276) = b(k,276) - lu(k,170) * b(k,98) + b(k,126) = b(k,126) - lu(k,172) * b(k,99) + b(k,258) = b(k,258) - lu(k,173) * b(k,99) + b(k,270) = b(k,270) - lu(k,174) * b(k,99) + b(k,176) = b(k,176) - lu(k,176) * b(k,100) + b(k,262) = b(k,262) - lu(k,177) * b(k,100) + b(k,126) = b(k,126) - lu(k,179) * b(k,101) + b(k,258) = b(k,258) - lu(k,180) * b(k,101) + b(k,265) = b(k,265) - lu(k,181) * b(k,101) + b(k,270) = b(k,270) - lu(k,182) * b(k,101) + b(k,126) = b(k,126) - lu(k,184) * b(k,102) + b(k,221) = b(k,221) - lu(k,185) * b(k,102) + b(k,258) = b(k,258) - lu(k,186) * b(k,102) + b(k,270) = b(k,270) - lu(k,187) * b(k,102) + b(k,126) = b(k,126) - lu(k,189) * b(k,103) + b(k,128) = b(k,128) - lu(k,190) * b(k,103) + b(k,265) = b(k,265) - lu(k,191) * b(k,103) + b(k,270) = b(k,270) - lu(k,192) * b(k,103) + b(k,126) = b(k,126) - lu(k,194) * b(k,104) + b(k,221) = b(k,221) - lu(k,195) * b(k,104) + b(k,265) = b(k,265) - lu(k,196) * b(k,104) + b(k,270) = b(k,270) - lu(k,197) * b(k,104) + b(k,244) = b(k,244) - lu(k,199) * b(k,105) + b(k,263) = b(k,263) - lu(k,200) * b(k,105) + b(k,167) = b(k,167) - lu(k,202) * b(k,106) + b(k,263) = b(k,263) - lu(k,203) * b(k,106) + b(k,131) = b(k,131) - lu(k,205) * b(k,107) + b(k,276) = b(k,276) - lu(k,206) * b(k,107) + b(k,265) = b(k,265) - lu(k,208) * b(k,108) + b(k,110) = b(k,110) - lu(k,211) * b(k,109) + b(k,111) = b(k,111) - lu(k,212) * b(k,109) + b(k,170) = b(k,170) - lu(k,213) * b(k,109) + b(k,263) = b(k,263) - lu(k,214) * b(k,109) + b(k,272) = b(k,272) - lu(k,215) * b(k,109) + b(k,166) = b(k,166) - lu(k,217) * b(k,110) + b(k,238) = b(k,238) - lu(k,218) * b(k,110) + b(k,272) = b(k,272) - lu(k,219) * b(k,110) + b(k,165) = b(k,165) - lu(k,221) * b(k,111) + b(k,171) = b(k,171) - lu(k,222) * b(k,111) + b(k,263) = b(k,263) - lu(k,223) * b(k,111) + b(k,272) = b(k,272) - lu(k,224) * b(k,111) + b(k,259) = b(k,259) - lu(k,226) * b(k,112) + b(k,259) = b(k,259) - lu(k,229) * b(k,113) + b(k,115) = b(k,115) - lu(k,232) * b(k,114) + b(k,116) = b(k,116) - lu(k,233) * b(k,114) + b(k,161) = b(k,161) - lu(k,234) * b(k,114) + b(k,202) = b(k,202) - lu(k,235) * b(k,114) + b(k,263) = b(k,263) - lu(k,236) * b(k,114) + b(k,272) = b(k,272) - lu(k,237) * b(k,114) + b(k,165) = b(k,165) - lu(k,239) * b(k,115) + b(k,171) = b(k,171) - lu(k,240) * b(k,115) + b(k,263) = b(k,263) - lu(k,241) * b(k,115) + b(k,272) = b(k,272) - lu(k,242) * b(k,115) + b(k,238) = b(k,238) - lu(k,244) * b(k,116) + b(k,253) = b(k,253) - lu(k,245) * b(k,116) + b(k,272) = b(k,272) - lu(k,246) * b(k,116) + b(k,244) = b(k,244) - lu(k,248) * b(k,117) + b(k,263) = b(k,263) - lu(k,249) * b(k,117) + b(k,263) = b(k,263) - lu(k,251) * b(k,118) + b(k,270) = b(k,270) - lu(k,252) * b(k,118) + b(k,272) = b(k,272) - lu(k,253) * b(k,118) + b(k,120) = b(k,120) - lu(k,257) * b(k,119) + b(k,161) = b(k,161) - lu(k,258) * b(k,119) + b(k,204) = b(k,204) - lu(k,259) * b(k,119) + b(k,238) = b(k,238) - lu(k,260) * b(k,119) + b(k,253) = b(k,253) - lu(k,261) * b(k,119) + b(k,263) = b(k,263) - lu(k,262) * b(k,119) + b(k,272) = b(k,272) - lu(k,263) * b(k,119) + b(k,171) = b(k,171) - lu(k,265) * b(k,120) + b(k,174) = b(k,174) - lu(k,266) * b(k,120) + b(k,263) = b(k,263) - lu(k,267) * b(k,120) + b(k,272) = b(k,272) - lu(k,268) * b(k,120) + b(k,228) = b(k,228) - lu(k,270) * b(k,121) + b(k,263) = b(k,263) - lu(k,271) * b(k,121) + b(k,258) = b(k,258) - lu(k,273) * b(k,122) + b(k,265) = b(k,265) - lu(k,274) * b(k,122) + b(k,262) = b(k,262) - lu(k,276) * b(k,123) + b(k,271) = b(k,271) - lu(k,277) * b(k,123) + b(k,176) = b(k,176) - lu(k,279) * b(k,124) + b(k,263) = b(k,263) - lu(k,280) * b(k,124) + b(k,187) = b(k,187) - lu(k,282) * b(k,125) + b(k,244) = b(k,244) - lu(k,283) * b(k,125) + b(k,263) = b(k,263) - lu(k,284) * b(k,125) + b(k,272) = b(k,272) - lu(k,285) * b(k,125) + b(k,221) = b(k,221) - lu(k,287) * b(k,126) + b(k,270) = b(k,270) - lu(k,288) * b(k,126) + b(k,128) = b(k,128) - lu(k,290) * b(k,127) + b(k,263) = b(k,263) - lu(k,291) * b(k,127) + b(k,265) = b(k,265) - lu(k,292) * b(k,127) + b(k,270) = b(k,270) - lu(k,293) * b(k,127) + b(k,221) = b(k,221) - lu(k,295) * b(k,128) + b(k,265) = b(k,265) - lu(k,296) * b(k,128) + b(k,270) = b(k,270) - lu(k,297) * b(k,128) + b(k,221) = b(k,221) - lu(k,300) * b(k,129) + b(k,263) = b(k,263) - lu(k,301) * b(k,129) + b(k,265) = b(k,265) - lu(k,302) * b(k,129) + b(k,270) = b(k,270) - lu(k,303) * b(k,129) + b(k,237) = b(k,237) - lu(k,305) * b(k,130) + b(k,263) = b(k,263) - lu(k,306) * b(k,130) + b(k,272) = b(k,272) - lu(k,307) * b(k,130) + b(k,223) = b(k,223) - lu(k,310) * b(k,131) + b(k,266) = b(k,266) - lu(k,311) * b(k,131) + b(k,276) = b(k,276) - lu(k,312) * b(k,131) + b(k,171) = b(k,171) - lu(k,314) * b(k,132) + b(k,192) = b(k,192) - lu(k,315) * b(k,132) + b(k,263) = b(k,263) - lu(k,316) * b(k,132) + b(k,259) = b(k,259) - lu(k,318) * b(k,133) + b(k,264) = b(k,264) - lu(k,319) * b(k,133) + b(k,270) = b(k,270) - lu(k,320) * b(k,133) + b(k,219) = b(k,219) - lu(k,322) * b(k,134) + b(k,229) = b(k,229) - lu(k,323) * b(k,134) + b(k,238) = b(k,238) - lu(k,324) * b(k,134) + b(k,263) = b(k,263) - lu(k,325) * b(k,134) + b(k,272) = b(k,272) - lu(k,326) * b(k,134) + b(k,218) = b(k,218) - lu(k,328) * b(k,135) + b(k,257) = b(k,257) - lu(k,329) * b(k,135) + b(k,263) = b(k,263) - lu(k,330) * b(k,135) + b(k,265) = b(k,265) - lu(k,331) * b(k,135) + b(k,276) = b(k,276) - lu(k,332) * b(k,135) + b(k,222) = b(k,222) - lu(k,334) * b(k,136) + b(k,257) = b(k,257) - lu(k,335) * b(k,136) + b(k,263) = b(k,263) - lu(k,336) * b(k,136) + b(k,265) = b(k,265) - lu(k,337) * b(k,136) + b(k,276) = b(k,276) - lu(k,338) * b(k,136) + b(k,262) = b(k,262) - lu(k,340) * b(k,137) + b(k,264) = b(k,264) - lu(k,341) * b(k,137) + b(k,266) = b(k,266) - lu(k,342) * b(k,137) + b(k,271) = b(k,271) - lu(k,343) * b(k,137) + b(k,273) = b(k,273) - lu(k,344) * b(k,137) + b(k,223) = b(k,223) - lu(k,346) * b(k,138) + b(k,263) = b(k,263) - lu(k,347) * b(k,138) + b(k,271) = b(k,271) - lu(k,348) * b(k,138) + b(k,272) = b(k,272) - lu(k,349) * b(k,138) + b(k,273) = b(k,273) - lu(k,350) * b(k,138) + b(k,205) = b(k,205) - lu(k,352) * b(k,139) + b(k,272) = b(k,272) - lu(k,353) * b(k,139) + b(k,221) = b(k,221) - lu(k,356) * b(k,140) + b(k,263) = b(k,263) - lu(k,357) * b(k,140) + b(k,265) = b(k,265) - lu(k,358) * b(k,140) + b(k,270) = b(k,270) - lu(k,359) * b(k,140) + b(k,276) = b(k,276) - lu(k,360) * b(k,140) + b(k,221) = b(k,221) - lu(k,362) * b(k,141) + b(k,268) = b(k,268) - lu(k,363) * b(k,141) + b(k,165) = b(k,165) - lu(k,365) * b(k,142) + b(k,229) = b(k,229) - lu(k,366) * b(k,142) + b(k,263) = b(k,263) - lu(k,367) * b(k,142) + b(k,272) = b(k,272) - lu(k,368) * b(k,142) + b(k,161) = b(k,161) - lu(k,371) * b(k,143) + b(k,176) = b(k,176) - lu(k,372) * b(k,143) + b(k,263) = b(k,263) - lu(k,373) * b(k,143) + b(k,272) = b(k,272) - lu(k,374) * b(k,143) + b(k,218) = b(k,218) - lu(k,376) * b(k,144) + b(k,237) = b(k,237) - lu(k,377) * b(k,144) + b(k,263) = b(k,263) - lu(k,378) * b(k,144) + b(k,272) = b(k,272) - lu(k,379) * b(k,144) + b(k,244) = b(k,244) - lu(k,381) * b(k,145) + b(k,263) = b(k,263) - lu(k,382) * b(k,145) + b(k,197) = b(k,197) - lu(k,384) * b(k,146) + b(k,237) = b(k,237) - lu(k,385) * b(k,146) + b(k,253) = b(k,253) - lu(k,386) * b(k,146) + b(k,263) = b(k,263) - lu(k,387) * b(k,146) + b(k,250) = b(k,250) - lu(k,389) * b(k,147) + b(k,252) = b(k,252) - lu(k,390) * b(k,147) + b(k,263) = b(k,263) - lu(k,391) * b(k,147) + b(k,272) = b(k,272) - lu(k,392) * b(k,147) + b(k,223) = b(k,223) - lu(k,394) * b(k,148) + b(k,256) = b(k,256) - lu(k,395) * b(k,148) + b(k,266) = b(k,266) - lu(k,396) * b(k,148) + b(k,275) = b(k,275) - lu(k,397) * b(k,148) + b(k,238) = b(k,238) - lu(k,399) * b(k,149) + b(k,247) = b(k,247) - lu(k,400) * b(k,149) + b(k,253) = b(k,253) - lu(k,401) * b(k,149) + b(k,272) = b(k,272) - lu(k,402) * b(k,149) + b(k,181) = b(k,181) - lu(k,404) * b(k,150) + b(k,232) = b(k,232) - lu(k,405) * b(k,150) + b(k,237) = b(k,237) - lu(k,406) * b(k,150) + b(k,262) = b(k,262) - lu(k,407) * b(k,150) + b(k,263) = b(k,263) - lu(k,408) * b(k,150) + b(k,273) = b(k,273) - lu(k,409) * b(k,150) + b(k,274) = b(k,274) - lu(k,410) * b(k,150) + b(k,238) = b(k,238) - lu(k,412) * b(k,151) + b(k,257) = b(k,257) - lu(k,413) * b(k,151) + b(k,263) = b(k,263) - lu(k,414) * b(k,151) + b(k,265) = b(k,265) - lu(k,415) * b(k,151) + b(k,269) = b(k,269) - lu(k,416) * b(k,151) + b(k,272) = b(k,272) - lu(k,417) * b(k,151) + b(k,276) = b(k,276) - lu(k,418) * b(k,151) end do end subroutine lu_slv01 subroutine lu_slv02( avec_len, lu, b ) @@ -247,214 +247,207 @@ subroutine lu_slv02( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,199) = b(k,199) - lu(k,418) * b(k,150) - b(k,221) = b(k,221) - lu(k,419) * b(k,150) - b(k,236) = b(k,236) - lu(k,420) * b(k,150) - b(k,254) = b(k,254) - lu(k,421) * b(k,150) - b(k,263) = b(k,263) - lu(k,422) * b(k,150) - b(k,268) = b(k,268) - lu(k,423) * b(k,150) - b(k,272) = b(k,272) - lu(k,424) * b(k,150) - b(k,241) = b(k,241) - lu(k,426) * b(k,151) - b(k,251) = b(k,251) - lu(k,427) * b(k,151) - b(k,263) = b(k,263) - lu(k,428) * b(k,151) - b(k,273) = b(k,273) - lu(k,429) * b(k,151) - b(k,274) = b(k,274) - lu(k,430) * b(k,151) - b(k,229) = b(k,229) - lu(k,432) * b(k,152) - b(k,232) = b(k,232) - lu(k,433) * b(k,152) - b(k,260) = b(k,260) - lu(k,434) * b(k,152) - b(k,263) = b(k,263) - lu(k,435) * b(k,152) - b(k,269) = b(k,269) - lu(k,436) * b(k,152) - b(k,220) = b(k,220) - lu(k,438) * b(k,153) - b(k,230) = b(k,230) - lu(k,439) * b(k,153) - b(k,263) = b(k,263) - lu(k,440) * b(k,153) - b(k,266) = b(k,266) - lu(k,441) * b(k,153) - b(k,274) = b(k,274) - lu(k,442) * b(k,153) - b(k,197) = b(k,197) - lu(k,444) * b(k,154) - b(k,215) = b(k,215) - lu(k,445) * b(k,154) - b(k,260) = b(k,260) - lu(k,446) * b(k,154) - b(k,263) = b(k,263) - lu(k,447) * b(k,154) - b(k,266) = b(k,266) - lu(k,448) * b(k,154) - b(k,164) = b(k,164) - lu(k,450) * b(k,155) - b(k,170) = b(k,170) - lu(k,451) * b(k,155) - b(k,227) = b(k,227) - lu(k,452) * b(k,155) - b(k,263) = b(k,263) - lu(k,453) * b(k,155) - b(k,266) = b(k,266) - lu(k,454) * b(k,155) - b(k,263) = b(k,263) - lu(k,456) * b(k,156) - b(k,268) = b(k,268) - lu(k,457) * b(k,156) - b(k,270) = b(k,270) - lu(k,458) * b(k,156) - b(k,273) = b(k,273) - lu(k,459) * b(k,156) - b(k,274) = b(k,274) - lu(k,460) * b(k,156) - b(k,255) = b(k,255) - lu(k,462) * b(k,157) - b(k,256) = b(k,256) - lu(k,463) * b(k,157) - b(k,262) = b(k,262) - lu(k,464) * b(k,157) - b(k,263) = b(k,263) - lu(k,465) * b(k,157) - b(k,267) = b(k,267) - lu(k,466) * b(k,157) - b(k,227) = b(k,227) - lu(k,468) * b(k,158) - b(k,236) = b(k,236) - lu(k,469) * b(k,158) - b(k,245) = b(k,245) - lu(k,470) * b(k,158) - b(k,251) = b(k,251) - lu(k,471) * b(k,158) - b(k,266) = b(k,266) - lu(k,472) * b(k,158) - b(k,172) = b(k,172) - lu(k,474) * b(k,159) - b(k,227) = b(k,227) - lu(k,475) * b(k,159) - b(k,245) = b(k,245) - lu(k,476) * b(k,159) - b(k,263) = b(k,263) - lu(k,477) * b(k,159) - b(k,266) = b(k,266) - lu(k,478) * b(k,159) - b(k,174) = b(k,174) - lu(k,482) * b(k,160) - b(k,260) = b(k,260) - lu(k,483) * b(k,160) - b(k,261) = b(k,261) - lu(k,484) * b(k,160) - b(k,263) = b(k,263) - lu(k,485) * b(k,160) - b(k,266) = b(k,266) - lu(k,486) * b(k,160) - b(k,216) = b(k,216) - lu(k,488) * b(k,161) - b(k,260) = b(k,260) - lu(k,489) * b(k,161) - b(k,261) = b(k,261) - lu(k,490) * b(k,161) - b(k,266) = b(k,266) - lu(k,491) * b(k,161) - b(k,273) = b(k,273) - lu(k,492) * b(k,161) - b(k,215) = b(k,215) - lu(k,494) * b(k,162) - b(k,237) = b(k,237) - lu(k,495) * b(k,162) - b(k,263) = b(k,263) - lu(k,496) * b(k,162) - b(k,266) = b(k,266) - lu(k,497) * b(k,162) - b(k,269) = b(k,269) - lu(k,498) * b(k,162) - b(k,227) = b(k,227) - lu(k,501) * b(k,163) - b(k,260) = b(k,260) - lu(k,502) * b(k,163) - b(k,261) = b(k,261) - lu(k,503) * b(k,163) - b(k,263) = b(k,263) - lu(k,504) * b(k,163) - b(k,266) = b(k,266) - lu(k,505) * b(k,163) - b(k,200) = b(k,200) - lu(k,507) * b(k,164) - b(k,266) = b(k,266) - lu(k,508) * b(k,164) - b(k,237) = b(k,237) - lu(k,510) * b(k,165) - b(k,257) = b(k,257) - lu(k,511) * b(k,165) - b(k,266) = b(k,266) - lu(k,512) * b(k,165) - b(k,273) = b(k,273) - lu(k,513) * b(k,165) - b(k,255) = b(k,255) - lu(k,515) * b(k,166) - b(k,256) = b(k,256) - lu(k,516) * b(k,166) - b(k,262) = b(k,262) - lu(k,517) * b(k,166) - b(k,263) = b(k,263) - lu(k,518) * b(k,166) - b(k,267) = b(k,267) - lu(k,519) * b(k,166) - b(k,274) = b(k,274) - lu(k,520) * b(k,166) - b(k,257) = b(k,257) - lu(k,522) * b(k,167) - b(k,260) = b(k,260) - lu(k,523) * b(k,167) - b(k,263) = b(k,263) - lu(k,524) * b(k,167) - b(k,264) = b(k,264) - lu(k,525) * b(k,167) - b(k,266) = b(k,266) - lu(k,526) * b(k,167) - b(k,274) = b(k,274) - lu(k,527) * b(k,167) - b(k,228) = b(k,228) - lu(k,529) * b(k,168) - b(k,229) = b(k,229) - lu(k,530) * b(k,168) - b(k,230) = b(k,230) - lu(k,531) * b(k,168) - b(k,263) = b(k,263) - lu(k,532) * b(k,168) - b(k,266) = b(k,266) - lu(k,533) * b(k,168) - b(k,273) = b(k,273) - lu(k,534) * b(k,168) - b(k,190) = b(k,190) - lu(k,536) * b(k,169) - b(k,260) = b(k,260) - lu(k,537) * b(k,169) - b(k,271) = b(k,271) - lu(k,538) * b(k,169) - b(k,200) = b(k,200) - lu(k,542) * b(k,170) - b(k,227) = b(k,227) - lu(k,543) * b(k,170) - b(k,260) = b(k,260) - lu(k,544) * b(k,170) - b(k,261) = b(k,261) - lu(k,545) * b(k,170) - b(k,263) = b(k,263) - lu(k,546) * b(k,170) - b(k,266) = b(k,266) - lu(k,547) * b(k,170) - b(k,206) = b(k,206) - lu(k,549) * b(k,171) - b(k,211) = b(k,211) - lu(k,550) * b(k,171) - b(k,212) = b(k,212) - lu(k,551) * b(k,171) - b(k,224) = b(k,224) - lu(k,552) * b(k,171) - b(k,257) = b(k,257) - lu(k,553) * b(k,171) - b(k,272) = b(k,272) - lu(k,554) * b(k,171) - b(k,227) = b(k,227) - lu(k,557) * b(k,172) - b(k,245) = b(k,245) - lu(k,558) * b(k,172) - b(k,260) = b(k,260) - lu(k,559) * b(k,172) - b(k,261) = b(k,261) - lu(k,560) * b(k,172) - b(k,263) = b(k,263) - lu(k,561) * b(k,172) - b(k,266) = b(k,266) - lu(k,562) * b(k,172) - b(k,193) = b(k,193) - lu(k,564) * b(k,173) - b(k,217) = b(k,217) - lu(k,565) * b(k,173) - b(k,251) = b(k,251) - lu(k,566) * b(k,173) - b(k,263) = b(k,263) - lu(k,567) * b(k,173) - b(k,190) = b(k,190) - lu(k,570) * b(k,174) - b(k,260) = b(k,260) - lu(k,571) * b(k,174) - b(k,261) = b(k,261) - lu(k,572) * b(k,174) - b(k,263) = b(k,263) - lu(k,573) * b(k,174) - b(k,266) = b(k,266) - lu(k,574) * b(k,174) - b(k,224) = b(k,224) - lu(k,576) * b(k,175) - b(k,257) = b(k,257) - lu(k,577) * b(k,175) - b(k,261) = b(k,261) - lu(k,578) * b(k,175) - b(k,262) = b(k,262) - lu(k,579) * b(k,175) - b(k,251) = b(k,251) - lu(k,581) * b(k,176) - b(k,252) = b(k,252) - lu(k,582) * b(k,176) - b(k,260) = b(k,260) - lu(k,583) * b(k,176) - b(k,263) = b(k,263) - lu(k,584) * b(k,176) - b(k,264) = b(k,264) - lu(k,585) * b(k,176) - b(k,270) = b(k,270) - lu(k,586) * b(k,176) - b(k,273) = b(k,273) - lu(k,587) * b(k,176) - b(k,208) = b(k,208) - lu(k,589) * b(k,177) - b(k,235) = b(k,235) - lu(k,590) * b(k,177) - b(k,240) = b(k,240) - lu(k,591) * b(k,177) - b(k,263) = b(k,263) - lu(k,592) * b(k,177) - b(k,266) = b(k,266) - lu(k,593) * b(k,177) - b(k,273) = b(k,273) - lu(k,594) * b(k,177) - b(k,274) = b(k,274) - lu(k,595) * b(k,177) - b(k,215) = b(k,215) - lu(k,597) * b(k,178) - b(k,237) = b(k,237) - lu(k,598) * b(k,178) - b(k,239) = b(k,239) - lu(k,599) * b(k,178) - b(k,240) = b(k,240) - lu(k,600) * b(k,178) - b(k,263) = b(k,263) - lu(k,601) * b(k,178) - b(k,266) = b(k,266) - lu(k,602) * b(k,178) - b(k,269) = b(k,269) - lu(k,603) * b(k,178) - b(k,205) = b(k,205) - lu(k,605) * b(k,179) - b(k,256) = b(k,256) - lu(k,606) * b(k,179) - b(k,258) = b(k,258) - lu(k,607) * b(k,179) - b(k,260) = b(k,260) - lu(k,608) * b(k,179) - b(k,264) = b(k,264) - lu(k,609) * b(k,179) - b(k,269) = b(k,269) - lu(k,610) * b(k,179) - b(k,272) = b(k,272) - lu(k,611) * b(k,179) - b(k,230) = b(k,230) - lu(k,613) * b(k,180) - b(k,235) = b(k,235) - lu(k,614) * b(k,180) - b(k,239) = b(k,239) - lu(k,615) * b(k,180) - b(k,260) = b(k,260) - lu(k,616) * b(k,180) - b(k,261) = b(k,261) - lu(k,617) * b(k,180) - b(k,266) = b(k,266) - lu(k,618) * b(k,180) - b(k,273) = b(k,273) - lu(k,619) * b(k,180) - b(k,204) = b(k,204) - lu(k,621) * b(k,181) - b(k,216) = b(k,216) - lu(k,622) * b(k,181) - b(k,236) = b(k,236) - lu(k,623) * b(k,181) - b(k,263) = b(k,263) - lu(k,624) * b(k,181) - b(k,266) = b(k,266) - lu(k,625) * b(k,181) - b(k,271) = b(k,271) - lu(k,626) * b(k,181) - b(k,273) = b(k,273) - lu(k,627) * b(k,181) - b(k,255) = b(k,255) - lu(k,629) * b(k,182) - b(k,256) = b(k,256) - lu(k,630) * b(k,182) - b(k,262) = b(k,262) - lu(k,631) * b(k,182) - b(k,263) = b(k,263) - lu(k,632) * b(k,182) - b(k,266) = b(k,266) - lu(k,633) * b(k,182) - b(k,267) = b(k,267) - lu(k,634) * b(k,182) - b(k,270) = b(k,270) - lu(k,635) * b(k,182) - b(k,274) = b(k,274) - lu(k,636) * b(k,182) - b(k,251) = b(k,251) - lu(k,638) * b(k,183) - b(k,252) = b(k,252) - lu(k,639) * b(k,183) - b(k,263) = b(k,263) - lu(k,640) * b(k,183) - b(k,270) = b(k,270) - lu(k,641) * b(k,183) - b(k,273) = b(k,273) - lu(k,642) * b(k,183) - b(k,274) = b(k,274) - lu(k,643) * b(k,183) - b(k,255) = b(k,255) - lu(k,645) * b(k,184) - b(k,263) = b(k,263) - lu(k,646) * b(k,184) - b(k,266) = b(k,266) - lu(k,647) * b(k,184) - b(k,267) = b(k,267) - lu(k,648) * b(k,184) - b(k,272) = b(k,272) - lu(k,649) * b(k,184) - b(k,274) = b(k,274) - lu(k,650) * b(k,184) - b(k,237) = b(k,237) - lu(k,652) * b(k,185) - b(k,239) = b(k,239) - lu(k,653) * b(k,185) - b(k,240) = b(k,240) - lu(k,654) * b(k,185) - b(k,260) = b(k,260) - lu(k,655) * b(k,185) - b(k,263) = b(k,263) - lu(k,656) * b(k,185) - b(k,266) = b(k,266) - lu(k,657) * b(k,185) - b(k,269) = b(k,269) - lu(k,658) * b(k,185) - b(k,273) = b(k,273) - lu(k,659) * b(k,185) - b(k,188) = b(k,188) - lu(k,663) * b(k,186) - b(k,200) = b(k,200) - lu(k,664) * b(k,186) - b(k,201) = b(k,201) - lu(k,665) * b(k,186) - b(k,203) = b(k,203) - lu(k,666) * b(k,186) - b(k,227) = b(k,227) - lu(k,667) * b(k,186) - b(k,245) = b(k,245) - lu(k,668) * b(k,186) - b(k,263) = b(k,263) - lu(k,669) * b(k,186) - b(k,266) = b(k,266) - lu(k,670) * b(k,186) + b(k,199) = b(k,199) - lu(k,420) * b(k,152) + b(k,223) = b(k,223) - lu(k,421) * b(k,152) + b(k,238) = b(k,238) - lu(k,422) * b(k,152) + b(k,256) = b(k,256) - lu(k,423) * b(k,152) + b(k,263) = b(k,263) - lu(k,424) * b(k,152) + b(k,266) = b(k,266) - lu(k,425) * b(k,152) + b(k,268) = b(k,268) - lu(k,426) * b(k,152) + b(k,243) = b(k,243) - lu(k,428) * b(k,153) + b(k,253) = b(k,253) - lu(k,429) * b(k,153) + b(k,263) = b(k,263) - lu(k,430) * b(k,153) + b(k,274) = b(k,274) - lu(k,431) * b(k,153) + b(k,276) = b(k,276) - lu(k,432) * b(k,153) + b(k,222) = b(k,222) - lu(k,434) * b(k,154) + b(k,232) = b(k,232) - lu(k,435) * b(k,154) + b(k,263) = b(k,263) - lu(k,436) * b(k,154) + b(k,272) = b(k,272) - lu(k,437) * b(k,154) + b(k,276) = b(k,276) - lu(k,438) * b(k,154) + b(k,203) = b(k,203) - lu(k,440) * b(k,155) + b(k,216) = b(k,216) - lu(k,441) * b(k,155) + b(k,262) = b(k,262) - lu(k,442) * b(k,155) + b(k,263) = b(k,263) - lu(k,443) * b(k,155) + b(k,272) = b(k,272) - lu(k,444) * b(k,155) + b(k,263) = b(k,263) - lu(k,446) * b(k,156) + b(k,268) = b(k,268) - lu(k,447) * b(k,156) + b(k,269) = b(k,269) - lu(k,448) * b(k,156) + b(k,274) = b(k,274) - lu(k,449) * b(k,156) + b(k,276) = b(k,276) - lu(k,450) * b(k,156) + b(k,257) = b(k,257) - lu(k,452) * b(k,157) + b(k,258) = b(k,258) - lu(k,453) * b(k,157) + b(k,263) = b(k,263) - lu(k,454) * b(k,157) + b(k,265) = b(k,265) - lu(k,455) * b(k,157) + b(k,270) = b(k,270) - lu(k,456) * b(k,157) + b(k,166) = b(k,166) - lu(k,458) * b(k,158) + b(k,170) = b(k,170) - lu(k,459) * b(k,158) + b(k,229) = b(k,229) - lu(k,460) * b(k,158) + b(k,263) = b(k,263) - lu(k,461) * b(k,158) + b(k,272) = b(k,272) - lu(k,462) * b(k,158) + b(k,216) = b(k,216) - lu(k,464) * b(k,159) + b(k,239) = b(k,239) - lu(k,465) * b(k,159) + b(k,263) = b(k,263) - lu(k,466) * b(k,159) + b(k,271) = b(k,271) - lu(k,467) * b(k,159) + b(k,272) = b(k,272) - lu(k,468) * b(k,159) + b(k,174) = b(k,174) - lu(k,470) * b(k,160) + b(k,229) = b(k,229) - lu(k,471) * b(k,160) + b(k,247) = b(k,247) - lu(k,472) * b(k,160) + b(k,263) = b(k,263) - lu(k,473) * b(k,160) + b(k,272) = b(k,272) - lu(k,474) * b(k,160) + b(k,176) = b(k,176) - lu(k,478) * b(k,161) + b(k,262) = b(k,262) - lu(k,479) * b(k,161) + b(k,263) = b(k,263) - lu(k,480) * b(k,161) + b(k,264) = b(k,264) - lu(k,481) * b(k,161) + b(k,272) = b(k,272) - lu(k,482) * b(k,161) + b(k,219) = b(k,219) - lu(k,484) * b(k,162) + b(k,262) = b(k,262) - lu(k,485) * b(k,162) + b(k,264) = b(k,264) - lu(k,486) * b(k,162) + b(k,272) = b(k,272) - lu(k,487) * b(k,162) + b(k,274) = b(k,274) - lu(k,488) * b(k,162) + b(k,231) = b(k,231) - lu(k,490) * b(k,163) + b(k,234) = b(k,234) - lu(k,491) * b(k,163) + b(k,262) = b(k,262) - lu(k,492) * b(k,163) + b(k,263) = b(k,263) - lu(k,493) * b(k,163) + b(k,271) = b(k,271) - lu(k,494) * b(k,163) + b(k,229) = b(k,229) - lu(k,496) * b(k,164) + b(k,238) = b(k,238) - lu(k,497) * b(k,164) + b(k,247) = b(k,247) - lu(k,498) * b(k,164) + b(k,253) = b(k,253) - lu(k,499) * b(k,164) + b(k,272) = b(k,272) - lu(k,500) * b(k,164) + b(k,229) = b(k,229) - lu(k,503) * b(k,165) + b(k,262) = b(k,262) - lu(k,504) * b(k,165) + b(k,263) = b(k,263) - lu(k,505) * b(k,165) + b(k,264) = b(k,264) - lu(k,506) * b(k,165) + b(k,272) = b(k,272) - lu(k,507) * b(k,165) + b(k,201) = b(k,201) - lu(k,509) * b(k,166) + b(k,272) = b(k,272) - lu(k,510) * b(k,166) + b(k,239) = b(k,239) - lu(k,512) * b(k,167) + b(k,259) = b(k,259) - lu(k,513) * b(k,167) + b(k,272) = b(k,272) - lu(k,514) * b(k,167) + b(k,274) = b(k,274) - lu(k,515) * b(k,167) + b(k,257) = b(k,257) - lu(k,517) * b(k,168) + b(k,258) = b(k,258) - lu(k,518) * b(k,168) + b(k,263) = b(k,263) - lu(k,519) * b(k,168) + b(k,265) = b(k,265) - lu(k,520) * b(k,168) + b(k,270) = b(k,270) - lu(k,521) * b(k,168) + b(k,276) = b(k,276) - lu(k,522) * b(k,168) + b(k,230) = b(k,230) - lu(k,524) * b(k,169) + b(k,231) = b(k,231) - lu(k,525) * b(k,169) + b(k,232) = b(k,232) - lu(k,526) * b(k,169) + b(k,263) = b(k,263) - lu(k,527) * b(k,169) + b(k,272) = b(k,272) - lu(k,528) * b(k,169) + b(k,274) = b(k,274) - lu(k,529) * b(k,169) + b(k,201) = b(k,201) - lu(k,533) * b(k,170) + b(k,229) = b(k,229) - lu(k,534) * b(k,170) + b(k,262) = b(k,262) - lu(k,535) * b(k,170) + b(k,263) = b(k,263) - lu(k,536) * b(k,170) + b(k,264) = b(k,264) - lu(k,537) * b(k,170) + b(k,272) = b(k,272) - lu(k,538) * b(k,170) + b(k,192) = b(k,192) - lu(k,540) * b(k,171) + b(k,262) = b(k,262) - lu(k,541) * b(k,171) + b(k,267) = b(k,267) - lu(k,542) * b(k,171) + b(k,208) = b(k,208) - lu(k,544) * b(k,172) + b(k,213) = b(k,213) - lu(k,545) * b(k,172) + b(k,214) = b(k,214) - lu(k,546) * b(k,172) + b(k,225) = b(k,225) - lu(k,547) * b(k,172) + b(k,259) = b(k,259) - lu(k,548) * b(k,172) + b(k,266) = b(k,266) - lu(k,549) * b(k,172) + b(k,259) = b(k,259) - lu(k,551) * b(k,173) + b(k,262) = b(k,262) - lu(k,552) * b(k,173) + b(k,263) = b(k,263) - lu(k,553) * b(k,173) + b(k,272) = b(k,272) - lu(k,554) * b(k,173) + b(k,273) = b(k,273) - lu(k,555) * b(k,173) + b(k,276) = b(k,276) - lu(k,556) * b(k,173) + b(k,229) = b(k,229) - lu(k,559) * b(k,174) + b(k,247) = b(k,247) - lu(k,560) * b(k,174) + b(k,262) = b(k,262) - lu(k,561) * b(k,174) + b(k,263) = b(k,263) - lu(k,562) * b(k,174) + b(k,264) = b(k,264) - lu(k,563) * b(k,174) + b(k,272) = b(k,272) - lu(k,564) * b(k,174) + b(k,197) = b(k,197) - lu(k,566) * b(k,175) + b(k,218) = b(k,218) - lu(k,567) * b(k,175) + b(k,253) = b(k,253) - lu(k,568) * b(k,175) + b(k,263) = b(k,263) - lu(k,569) * b(k,175) + b(k,192) = b(k,192) - lu(k,572) * b(k,176) + b(k,262) = b(k,262) - lu(k,573) * b(k,176) + b(k,263) = b(k,263) - lu(k,574) * b(k,176) + b(k,264) = b(k,264) - lu(k,575) * b(k,176) + b(k,272) = b(k,272) - lu(k,576) * b(k,176) + b(k,207) = b(k,207) - lu(k,578) * b(k,177) + b(k,219) = b(k,219) - lu(k,579) * b(k,177) + b(k,238) = b(k,238) - lu(k,580) * b(k,177) + b(k,263) = b(k,263) - lu(k,581) * b(k,177) + b(k,267) = b(k,267) - lu(k,582) * b(k,177) + b(k,272) = b(k,272) - lu(k,583) * b(k,177) + b(k,274) = b(k,274) - lu(k,584) * b(k,177) + b(k,253) = b(k,253) - lu(k,586) * b(k,178) + b(k,254) = b(k,254) - lu(k,587) * b(k,178) + b(k,262) = b(k,262) - lu(k,588) * b(k,178) + b(k,263) = b(k,263) - lu(k,589) * b(k,178) + b(k,269) = b(k,269) - lu(k,590) * b(k,178) + b(k,273) = b(k,273) - lu(k,591) * b(k,178) + b(k,274) = b(k,274) - lu(k,592) * b(k,178) + b(k,216) = b(k,216) - lu(k,594) * b(k,179) + b(k,239) = b(k,239) - lu(k,595) * b(k,179) + b(k,241) = b(k,241) - lu(k,596) * b(k,179) + b(k,242) = b(k,242) - lu(k,597) * b(k,179) + b(k,263) = b(k,263) - lu(k,598) * b(k,179) + b(k,271) = b(k,271) - lu(k,599) * b(k,179) + b(k,272) = b(k,272) - lu(k,600) * b(k,179) + b(k,209) = b(k,209) - lu(k,602) * b(k,180) + b(k,237) = b(k,237) - lu(k,603) * b(k,180) + b(k,242) = b(k,242) - lu(k,604) * b(k,180) + b(k,263) = b(k,263) - lu(k,605) * b(k,180) + b(k,272) = b(k,272) - lu(k,606) * b(k,180) + b(k,274) = b(k,274) - lu(k,607) * b(k,180) + b(k,276) = b(k,276) - lu(k,608) * b(k,180) + b(k,232) = b(k,232) - lu(k,610) * b(k,181) + b(k,237) = b(k,237) - lu(k,611) * b(k,181) + b(k,241) = b(k,241) - lu(k,612) * b(k,181) + b(k,262) = b(k,262) - lu(k,613) * b(k,181) + b(k,264) = b(k,264) - lu(k,614) * b(k,181) + b(k,272) = b(k,272) - lu(k,615) * b(k,181) + b(k,274) = b(k,274) - lu(k,616) * b(k,181) + b(k,206) = b(k,206) - lu(k,618) * b(k,182) + b(k,258) = b(k,258) - lu(k,619) * b(k,182) + b(k,260) = b(k,260) - lu(k,620) * b(k,182) + b(k,262) = b(k,262) - lu(k,621) * b(k,182) + b(k,266) = b(k,266) - lu(k,622) * b(k,182) + b(k,271) = b(k,271) - lu(k,623) * b(k,182) + b(k,273) = b(k,273) - lu(k,624) * b(k,182) + b(k,242) = b(k,242) - lu(k,626) * b(k,183) + b(k,252) = b(k,252) - lu(k,627) * b(k,183) + b(k,254) = b(k,254) - lu(k,628) * b(k,183) + b(k,262) = b(k,262) - lu(k,629) * b(k,183) + b(k,263) = b(k,263) - lu(k,630) * b(k,183) + b(k,272) = b(k,272) - lu(k,631) * b(k,183) + b(k,273) = b(k,273) - lu(k,632) * b(k,183) + b(k,274) = b(k,274) - lu(k,633) * b(k,183) + b(k,239) = b(k,239) - lu(k,635) * b(k,184) + b(k,241) = b(k,241) - lu(k,636) * b(k,184) + b(k,242) = b(k,242) - lu(k,637) * b(k,184) + b(k,262) = b(k,262) - lu(k,638) * b(k,184) + b(k,263) = b(k,263) - lu(k,639) * b(k,184) + b(k,271) = b(k,271) - lu(k,640) * b(k,184) + b(k,272) = b(k,272) - lu(k,641) * b(k,184) + b(k,274) = b(k,274) - lu(k,642) * b(k,184) + b(k,257) = b(k,257) - lu(k,644) * b(k,185) + b(k,263) = b(k,263) - lu(k,645) * b(k,185) + b(k,265) = b(k,265) - lu(k,646) * b(k,185) + b(k,266) = b(k,266) - lu(k,647) * b(k,185) + b(k,272) = b(k,272) - lu(k,648) * b(k,185) + b(k,276) = b(k,276) - lu(k,649) * b(k,185) + b(k,187) = b(k,187) - lu(k,653) * b(k,186) + b(k,201) = b(k,201) - lu(k,654) * b(k,186) + b(k,202) = b(k,202) - lu(k,655) * b(k,186) + b(k,205) = b(k,205) - lu(k,656) * b(k,186) + b(k,229) = b(k,229) - lu(k,657) * b(k,186) + b(k,247) = b(k,247) - lu(k,658) * b(k,186) + b(k,263) = b(k,263) - lu(k,659) * b(k,186) + b(k,272) = b(k,272) - lu(k,660) * b(k,186) + b(k,220) = b(k,220) - lu(k,662) * b(k,187) + b(k,238) = b(k,238) - lu(k,663) * b(k,187) + b(k,272) = b(k,272) - lu(k,664) * b(k,187) end do end subroutine lu_slv02 subroutine lu_slv03( avec_len, lu, b ) @@ -475,211 +468,218 @@ subroutine lu_slv03( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,240) = b(k,240) - lu(k,672) * b(k,187) - b(k,250) = b(k,250) - lu(k,673) * b(k,187) - b(k,252) = b(k,252) - lu(k,674) * b(k,187) - b(k,260) = b(k,260) - lu(k,675) * b(k,187) - b(k,263) = b(k,263) - lu(k,676) * b(k,187) - b(k,264) = b(k,264) - lu(k,677) * b(k,187) - b(k,266) = b(k,266) - lu(k,678) * b(k,187) - b(k,273) = b(k,273) - lu(k,679) * b(k,187) - b(k,218) = b(k,218) - lu(k,681) * b(k,188) - b(k,236) = b(k,236) - lu(k,682) * b(k,188) - b(k,266) = b(k,266) - lu(k,683) * b(k,188) - b(k,229) = b(k,229) - lu(k,685) * b(k,189) - b(k,260) = b(k,260) - lu(k,686) * b(k,189) - b(k,263) = b(k,263) - lu(k,687) * b(k,189) - b(k,266) = b(k,266) - lu(k,688) * b(k,189) - b(k,269) = b(k,269) - lu(k,689) * b(k,189) - b(k,260) = b(k,260) - lu(k,693) * b(k,190) - b(k,261) = b(k,261) - lu(k,694) * b(k,190) - b(k,263) = b(k,263) - lu(k,695) * b(k,190) - b(k,266) = b(k,266) - lu(k,696) * b(k,190) - b(k,271) = b(k,271) - lu(k,697) * b(k,190) - b(k,193) = b(k,193) - lu(k,700) * b(k,191) - b(k,217) = b(k,217) - lu(k,701) * b(k,191) - b(k,230) = b(k,230) - lu(k,702) * b(k,191) - b(k,235) = b(k,235) - lu(k,703) * b(k,191) - b(k,251) = b(k,251) - lu(k,704) * b(k,191) - b(k,260) = b(k,260) - lu(k,705) * b(k,191) - b(k,263) = b(k,263) - lu(k,706) * b(k,191) - b(k,266) = b(k,266) - lu(k,707) * b(k,191) - b(k,273) = b(k,273) - lu(k,708) * b(k,191) - b(k,193) = b(k,193) - lu(k,711) * b(k,192) - b(k,217) = b(k,217) - lu(k,712) * b(k,192) - b(k,226) = b(k,226) - lu(k,713) * b(k,192) - b(k,230) = b(k,230) - lu(k,714) * b(k,192) - b(k,235) = b(k,235) - lu(k,715) * b(k,192) - b(k,251) = b(k,251) - lu(k,716) * b(k,192) - b(k,263) = b(k,263) - lu(k,717) * b(k,192) - b(k,266) = b(k,266) - lu(k,718) * b(k,192) - b(k,273) = b(k,273) - lu(k,719) * b(k,192) - b(k,235) = b(k,235) - lu(k,722) * b(k,193) - b(k,251) = b(k,251) - lu(k,723) * b(k,193) - b(k,260) = b(k,260) - lu(k,724) * b(k,193) - b(k,261) = b(k,261) - lu(k,725) * b(k,193) - b(k,263) = b(k,263) - lu(k,726) * b(k,193) - b(k,266) = b(k,266) - lu(k,727) * b(k,193) - b(k,230) = b(k,230) - lu(k,729) * b(k,194) - b(k,233) = b(k,233) - lu(k,730) * b(k,194) - b(k,236) = b(k,236) - lu(k,731) * b(k,194) - b(k,237) = b(k,237) - lu(k,732) * b(k,194) - b(k,238) = b(k,238) - lu(k,733) * b(k,194) - b(k,252) = b(k,252) - lu(k,734) * b(k,194) - b(k,263) = b(k,263) - lu(k,735) * b(k,194) - b(k,266) = b(k,266) - lu(k,736) * b(k,194) - b(k,273) = b(k,273) - lu(k,737) * b(k,194) - b(k,206) = b(k,206) - lu(k,740) * b(k,195) - b(k,211) = b(k,211) - lu(k,741) * b(k,195) - b(k,212) = b(k,212) - lu(k,742) * b(k,195) - b(k,213) = b(k,213) - lu(k,743) * b(k,195) - b(k,224) = b(k,224) - lu(k,744) * b(k,195) - b(k,257) = b(k,257) - lu(k,745) * b(k,195) - b(k,261) = b(k,261) - lu(k,746) * b(k,195) - b(k,262) = b(k,262) - lu(k,747) * b(k,195) - b(k,272) = b(k,272) - lu(k,748) * b(k,195) - b(k,252) = b(k,252) - lu(k,750) * b(k,196) - b(k,263) = b(k,263) - lu(k,751) * b(k,196) - b(k,270) = b(k,270) - lu(k,752) * b(k,196) - b(k,274) = b(k,274) - lu(k,753) * b(k,196) - b(k,242) = b(k,242) - lu(k,756) * b(k,197) - b(k,244) = b(k,244) - lu(k,757) * b(k,197) - b(k,249) = b(k,249) - lu(k,758) * b(k,197) - b(k,263) = b(k,263) - lu(k,759) * b(k,197) - b(k,266) = b(k,266) - lu(k,760) * b(k,197) - b(k,273) = b(k,273) - lu(k,761) * b(k,197) - b(k,200) = b(k,200) - lu(k,767) * b(k,198) - b(k,202) = b(k,202) - lu(k,768) * b(k,198) - b(k,203) = b(k,203) - lu(k,769) * b(k,198) - b(k,218) = b(k,218) - lu(k,770) * b(k,198) - b(k,227) = b(k,227) - lu(k,771) * b(k,198) - b(k,236) = b(k,236) - lu(k,772) * b(k,198) - b(k,245) = b(k,245) - lu(k,773) * b(k,198) - b(k,251) = b(k,251) - lu(k,774) * b(k,198) - b(k,263) = b(k,263) - lu(k,775) * b(k,198) - b(k,266) = b(k,266) - lu(k,776) * b(k,198) - b(k,254) = b(k,254) - lu(k,778) * b(k,199) - b(k,257) = b(k,257) - lu(k,779) * b(k,199) - b(k,263) = b(k,263) - lu(k,780) * b(k,199) - b(k,268) = b(k,268) - lu(k,781) * b(k,199) - b(k,271) = b(k,271) - lu(k,782) * b(k,199) - b(k,272) = b(k,272) - lu(k,783) * b(k,199) - b(k,227) = b(k,227) - lu(k,785) * b(k,200) - b(k,236) = b(k,236) - lu(k,786) * b(k,200) - b(k,260) = b(k,260) - lu(k,787) * b(k,200) - b(k,261) = b(k,261) - lu(k,788) * b(k,200) - b(k,266) = b(k,266) - lu(k,789) * b(k,200) - b(k,203) = b(k,203) - lu(k,796) * b(k,201) - b(k,218) = b(k,218) - lu(k,797) * b(k,201) - b(k,227) = b(k,227) - lu(k,798) * b(k,201) - b(k,236) = b(k,236) - lu(k,799) * b(k,201) - b(k,245) = b(k,245) - lu(k,800) * b(k,201) - b(k,260) = b(k,260) - lu(k,801) * b(k,201) - b(k,261) = b(k,261) - lu(k,802) * b(k,201) - b(k,263) = b(k,263) - lu(k,803) * b(k,201) - b(k,266) = b(k,266) - lu(k,804) * b(k,201) - b(k,203) = b(k,203) - lu(k,812) * b(k,202) - b(k,218) = b(k,218) - lu(k,813) * b(k,202) - b(k,227) = b(k,227) - lu(k,814) * b(k,202) - b(k,236) = b(k,236) - lu(k,815) * b(k,202) - b(k,245) = b(k,245) - lu(k,816) * b(k,202) - b(k,251) = b(k,251) - lu(k,817) * b(k,202) - b(k,260) = b(k,260) - lu(k,818) * b(k,202) - b(k,261) = b(k,261) - lu(k,819) * b(k,202) - b(k,263) = b(k,263) - lu(k,820) * b(k,202) - b(k,266) = b(k,266) - lu(k,821) * b(k,202) - b(k,236) = b(k,236) - lu(k,823) * b(k,203) - b(k,245) = b(k,245) - lu(k,824) * b(k,203) - b(k,260) = b(k,260) - lu(k,825) * b(k,203) - b(k,261) = b(k,261) - lu(k,826) * b(k,203) - b(k,263) = b(k,263) - lu(k,827) * b(k,203) - b(k,266) = b(k,266) - lu(k,828) * b(k,203) - b(k,270) = b(k,270) - lu(k,829) * b(k,203) - b(k,237) = b(k,237) - lu(k,833) * b(k,204) - b(k,257) = b(k,257) - lu(k,834) * b(k,204) - b(k,260) = b(k,260) - lu(k,835) * b(k,204) - b(k,261) = b(k,261) - lu(k,836) * b(k,204) - b(k,263) = b(k,263) - lu(k,837) * b(k,204) - b(k,266) = b(k,266) - lu(k,838) * b(k,204) - b(k,273) = b(k,273) - lu(k,839) * b(k,204) - b(k,255) = b(k,255) - lu(k,842) * b(k,205) - b(k,256) = b(k,256) - lu(k,843) * b(k,205) - b(k,258) = b(k,258) - lu(k,844) * b(k,205) - b(k,263) = b(k,263) - lu(k,845) * b(k,205) - b(k,267) = b(k,267) - lu(k,846) * b(k,205) - b(k,272) = b(k,272) - lu(k,847) * b(k,205) - b(k,274) = b(k,274) - lu(k,848) * b(k,205) - b(k,211) = b(k,211) - lu(k,850) * b(k,206) - b(k,212) = b(k,212) - lu(k,851) * b(k,206) - b(k,224) = b(k,224) - lu(k,852) * b(k,206) - b(k,236) = b(k,236) - lu(k,853) * b(k,206) - b(k,252) = b(k,252) - lu(k,854) * b(k,206) - b(k,257) = b(k,257) - lu(k,855) * b(k,206) - b(k,272) = b(k,272) - lu(k,856) * b(k,206) - b(k,263) = b(k,263) - lu(k,858) * b(k,207) - b(k,266) = b(k,266) - lu(k,859) * b(k,207) - b(k,273) = b(k,273) - lu(k,860) * b(k,207) - b(k,235) = b(k,235) - lu(k,863) * b(k,208) - b(k,240) = b(k,240) - lu(k,864) * b(k,208) - b(k,257) = b(k,257) - lu(k,865) * b(k,208) - b(k,260) = b(k,260) - lu(k,866) * b(k,208) - b(k,261) = b(k,261) - lu(k,867) * b(k,208) - b(k,263) = b(k,263) - lu(k,868) * b(k,208) - b(k,266) = b(k,266) - lu(k,869) * b(k,208) - b(k,273) = b(k,273) - lu(k,870) * b(k,208) - b(k,274) = b(k,274) - lu(k,871) * b(k,208) - b(k,255) = b(k,255) - lu(k,874) * b(k,209) - b(k,259) = b(k,259) - lu(k,875) * b(k,209) - b(k,263) = b(k,263) - lu(k,876) * b(k,209) - b(k,267) = b(k,267) - lu(k,877) * b(k,209) - b(k,272) = b(k,272) - lu(k,878) * b(k,209) - b(k,274) = b(k,274) - lu(k,879) * b(k,209) - b(k,256) = b(k,256) - lu(k,881) * b(k,210) - b(k,258) = b(k,258) - lu(k,882) * b(k,210) - b(k,262) = b(k,262) - lu(k,883) * b(k,210) - b(k,263) = b(k,263) - lu(k,884) * b(k,210) - b(k,268) = b(k,268) - lu(k,885) * b(k,210) - b(k,272) = b(k,272) - lu(k,886) * b(k,210) - b(k,274) = b(k,274) - lu(k,887) * b(k,210) - b(k,213) = b(k,213) - lu(k,890) * b(k,211) - b(k,224) = b(k,224) - lu(k,891) * b(k,211) - b(k,257) = b(k,257) - lu(k,892) * b(k,211) - b(k,261) = b(k,261) - lu(k,893) * b(k,211) - b(k,262) = b(k,262) - lu(k,894) * b(k,211) - b(k,272) = b(k,272) - lu(k,895) * b(k,211) - b(k,213) = b(k,213) - lu(k,898) * b(k,212) - b(k,224) = b(k,224) - lu(k,899) * b(k,212) - b(k,257) = b(k,257) - lu(k,900) * b(k,212) - b(k,261) = b(k,261) - lu(k,901) * b(k,212) - b(k,262) = b(k,262) - lu(k,902) * b(k,212) - b(k,272) = b(k,272) - lu(k,903) * b(k,212) - b(k,224) = b(k,224) - lu(k,910) * b(k,213) - b(k,236) = b(k,236) - lu(k,911) * b(k,213) - b(k,252) = b(k,252) - lu(k,912) * b(k,213) - b(k,257) = b(k,257) - lu(k,913) * b(k,213) - b(k,261) = b(k,261) - lu(k,914) * b(k,213) - b(k,262) = b(k,262) - lu(k,915) * b(k,213) - b(k,272) = b(k,272) - lu(k,916) * b(k,213) - b(k,216) = b(k,216) - lu(k,921) * b(k,214) - b(k,234) = b(k,234) - lu(k,922) * b(k,214) - b(k,236) = b(k,236) - lu(k,923) * b(k,214) - b(k,243) = b(k,243) - lu(k,924) * b(k,214) - b(k,244) = b(k,244) - lu(k,925) * b(k,214) - b(k,246) = b(k,246) - lu(k,926) * b(k,214) - b(k,247) = b(k,247) - lu(k,927) * b(k,214) - b(k,249) = b(k,249) - lu(k,928) * b(k,214) - b(k,251) = b(k,251) - lu(k,929) * b(k,214) - b(k,263) = b(k,263) - lu(k,930) * b(k,214) - b(k,264) = b(k,264) - lu(k,931) * b(k,214) - b(k,266) = b(k,266) - lu(k,932) * b(k,214) - b(k,270) = b(k,270) - lu(k,933) * b(k,214) - b(k,271) = b(k,271) - lu(k,934) * b(k,214) - b(k,273) = b(k,273) - lu(k,935) * b(k,214) - b(k,245) = b(k,245) - lu(k,937) * b(k,215) - b(k,251) = b(k,251) - lu(k,938) * b(k,215) - b(k,260) = b(k,260) - lu(k,939) * b(k,215) - b(k,263) = b(k,263) - lu(k,940) * b(k,215) - b(k,273) = b(k,273) - lu(k,941) * b(k,215) + b(k,253) = b(k,253) - lu(k,666) * b(k,188) + b(k,254) = b(k,254) - lu(k,667) * b(k,188) + b(k,263) = b(k,263) - lu(k,668) * b(k,188) + b(k,269) = b(k,269) - lu(k,669) * b(k,188) + b(k,274) = b(k,274) - lu(k,670) * b(k,188) + b(k,276) = b(k,276) - lu(k,671) * b(k,188) + b(k,193) = b(k,193) - lu(k,673) * b(k,189) + b(k,208) = b(k,208) - lu(k,674) * b(k,189) + b(k,213) = b(k,213) - lu(k,675) * b(k,189) + b(k,214) = b(k,214) - lu(k,676) * b(k,189) + b(k,215) = b(k,215) - lu(k,677) * b(k,189) + b(k,225) = b(k,225) - lu(k,678) * b(k,189) + b(k,259) = b(k,259) - lu(k,679) * b(k,189) + b(k,266) = b(k,266) - lu(k,680) * b(k,189) + b(k,257) = b(k,257) - lu(k,682) * b(k,190) + b(k,258) = b(k,258) - lu(k,683) * b(k,190) + b(k,263) = b(k,263) - lu(k,684) * b(k,190) + b(k,265) = b(k,265) - lu(k,685) * b(k,190) + b(k,269) = b(k,269) - lu(k,686) * b(k,190) + b(k,270) = b(k,270) - lu(k,687) * b(k,190) + b(k,272) = b(k,272) - lu(k,688) * b(k,190) + b(k,276) = b(k,276) - lu(k,689) * b(k,190) + b(k,231) = b(k,231) - lu(k,691) * b(k,191) + b(k,262) = b(k,262) - lu(k,692) * b(k,191) + b(k,263) = b(k,263) - lu(k,693) * b(k,191) + b(k,271) = b(k,271) - lu(k,694) * b(k,191) + b(k,272) = b(k,272) - lu(k,695) * b(k,191) + b(k,262) = b(k,262) - lu(k,699) * b(k,192) + b(k,263) = b(k,263) - lu(k,700) * b(k,192) + b(k,264) = b(k,264) - lu(k,701) * b(k,192) + b(k,267) = b(k,267) - lu(k,702) * b(k,192) + b(k,272) = b(k,272) - lu(k,703) * b(k,192) + b(k,225) = b(k,225) - lu(k,705) * b(k,193) + b(k,259) = b(k,259) - lu(k,706) * b(k,193) + b(k,264) = b(k,264) - lu(k,707) * b(k,193) + b(k,266) = b(k,266) - lu(k,708) * b(k,193) + b(k,270) = b(k,270) - lu(k,709) * b(k,193) + b(k,197) = b(k,197) - lu(k,712) * b(k,194) + b(k,218) = b(k,218) - lu(k,713) * b(k,194) + b(k,228) = b(k,228) - lu(k,714) * b(k,194) + b(k,232) = b(k,232) - lu(k,715) * b(k,194) + b(k,237) = b(k,237) - lu(k,716) * b(k,194) + b(k,253) = b(k,253) - lu(k,717) * b(k,194) + b(k,263) = b(k,263) - lu(k,718) * b(k,194) + b(k,272) = b(k,272) - lu(k,719) * b(k,194) + b(k,274) = b(k,274) - lu(k,720) * b(k,194) + b(k,232) = b(k,232) - lu(k,722) * b(k,195) + b(k,235) = b(k,235) - lu(k,723) * b(k,195) + b(k,238) = b(k,238) - lu(k,724) * b(k,195) + b(k,239) = b(k,239) - lu(k,725) * b(k,195) + b(k,240) = b(k,240) - lu(k,726) * b(k,195) + b(k,254) = b(k,254) - lu(k,727) * b(k,195) + b(k,263) = b(k,263) - lu(k,728) * b(k,195) + b(k,272) = b(k,272) - lu(k,729) * b(k,195) + b(k,274) = b(k,274) - lu(k,730) * b(k,195) + b(k,197) = b(k,197) - lu(k,733) * b(k,196) + b(k,218) = b(k,218) - lu(k,734) * b(k,196) + b(k,232) = b(k,232) - lu(k,735) * b(k,196) + b(k,237) = b(k,237) - lu(k,736) * b(k,196) + b(k,253) = b(k,253) - lu(k,737) * b(k,196) + b(k,262) = b(k,262) - lu(k,738) * b(k,196) + b(k,263) = b(k,263) - lu(k,739) * b(k,196) + b(k,272) = b(k,272) - lu(k,740) * b(k,196) + b(k,274) = b(k,274) - lu(k,741) * b(k,196) + b(k,237) = b(k,237) - lu(k,744) * b(k,197) + b(k,253) = b(k,253) - lu(k,745) * b(k,197) + b(k,262) = b(k,262) - lu(k,746) * b(k,197) + b(k,263) = b(k,263) - lu(k,747) * b(k,197) + b(k,264) = b(k,264) - lu(k,748) * b(k,197) + b(k,272) = b(k,272) - lu(k,749) * b(k,197) + b(k,254) = b(k,254) - lu(k,751) * b(k,198) + b(k,263) = b(k,263) - lu(k,752) * b(k,198) + b(k,269) = b(k,269) - lu(k,753) * b(k,198) + b(k,276) = b(k,276) - lu(k,754) * b(k,198) + b(k,256) = b(k,256) - lu(k,756) * b(k,199) + b(k,259) = b(k,259) - lu(k,757) * b(k,199) + b(k,263) = b(k,263) - lu(k,758) * b(k,199) + b(k,266) = b(k,266) - lu(k,759) * b(k,199) + b(k,267) = b(k,267) - lu(k,760) * b(k,199) + b(k,268) = b(k,268) - lu(k,761) * b(k,199) + b(k,201) = b(k,201) - lu(k,767) * b(k,200) + b(k,204) = b(k,204) - lu(k,768) * b(k,200) + b(k,205) = b(k,205) - lu(k,769) * b(k,200) + b(k,220) = b(k,220) - lu(k,770) * b(k,200) + b(k,229) = b(k,229) - lu(k,771) * b(k,200) + b(k,238) = b(k,238) - lu(k,772) * b(k,200) + b(k,247) = b(k,247) - lu(k,773) * b(k,200) + b(k,253) = b(k,253) - lu(k,774) * b(k,200) + b(k,263) = b(k,263) - lu(k,775) * b(k,200) + b(k,272) = b(k,272) - lu(k,776) * b(k,200) + b(k,229) = b(k,229) - lu(k,778) * b(k,201) + b(k,238) = b(k,238) - lu(k,779) * b(k,201) + b(k,262) = b(k,262) - lu(k,780) * b(k,201) + b(k,264) = b(k,264) - lu(k,781) * b(k,201) + b(k,272) = b(k,272) - lu(k,782) * b(k,201) + b(k,205) = b(k,205) - lu(k,789) * b(k,202) + b(k,220) = b(k,220) - lu(k,790) * b(k,202) + b(k,229) = b(k,229) - lu(k,791) * b(k,202) + b(k,238) = b(k,238) - lu(k,792) * b(k,202) + b(k,247) = b(k,247) - lu(k,793) * b(k,202) + b(k,262) = b(k,262) - lu(k,794) * b(k,202) + b(k,263) = b(k,263) - lu(k,795) * b(k,202) + b(k,264) = b(k,264) - lu(k,796) * b(k,202) + b(k,272) = b(k,272) - lu(k,797) * b(k,202) + b(k,244) = b(k,244) - lu(k,800) * b(k,203) + b(k,246) = b(k,246) - lu(k,801) * b(k,203) + b(k,251) = b(k,251) - lu(k,802) * b(k,203) + b(k,263) = b(k,263) - lu(k,803) * b(k,203) + b(k,272) = b(k,272) - lu(k,804) * b(k,203) + b(k,274) = b(k,274) - lu(k,805) * b(k,203) + b(k,205) = b(k,205) - lu(k,813) * b(k,204) + b(k,220) = b(k,220) - lu(k,814) * b(k,204) + b(k,229) = b(k,229) - lu(k,815) * b(k,204) + b(k,238) = b(k,238) - lu(k,816) * b(k,204) + b(k,247) = b(k,247) - lu(k,817) * b(k,204) + b(k,253) = b(k,253) - lu(k,818) * b(k,204) + b(k,262) = b(k,262) - lu(k,819) * b(k,204) + b(k,263) = b(k,263) - lu(k,820) * b(k,204) + b(k,264) = b(k,264) - lu(k,821) * b(k,204) + b(k,272) = b(k,272) - lu(k,822) * b(k,204) + b(k,238) = b(k,238) - lu(k,824) * b(k,205) + b(k,247) = b(k,247) - lu(k,825) * b(k,205) + b(k,262) = b(k,262) - lu(k,826) * b(k,205) + b(k,263) = b(k,263) - lu(k,827) * b(k,205) + b(k,264) = b(k,264) - lu(k,828) * b(k,205) + b(k,269) = b(k,269) - lu(k,829) * b(k,205) + b(k,272) = b(k,272) - lu(k,830) * b(k,205) + b(k,257) = b(k,257) - lu(k,833) * b(k,206) + b(k,258) = b(k,258) - lu(k,834) * b(k,206) + b(k,260) = b(k,260) - lu(k,835) * b(k,206) + b(k,263) = b(k,263) - lu(k,836) * b(k,206) + b(k,265) = b(k,265) - lu(k,837) * b(k,206) + b(k,266) = b(k,266) - lu(k,838) * b(k,206) + b(k,276) = b(k,276) - lu(k,839) * b(k,206) + b(k,239) = b(k,239) - lu(k,843) * b(k,207) + b(k,259) = b(k,259) - lu(k,844) * b(k,207) + b(k,262) = b(k,262) - lu(k,845) * b(k,207) + b(k,263) = b(k,263) - lu(k,846) * b(k,207) + b(k,264) = b(k,264) - lu(k,847) * b(k,207) + b(k,272) = b(k,272) - lu(k,848) * b(k,207) + b(k,274) = b(k,274) - lu(k,849) * b(k,207) + b(k,213) = b(k,213) - lu(k,851) * b(k,208) + b(k,214) = b(k,214) - lu(k,852) * b(k,208) + b(k,225) = b(k,225) - lu(k,853) * b(k,208) + b(k,238) = b(k,238) - lu(k,854) * b(k,208) + b(k,254) = b(k,254) - lu(k,855) * b(k,208) + b(k,259) = b(k,259) - lu(k,856) * b(k,208) + b(k,266) = b(k,266) - lu(k,857) * b(k,208) + b(k,237) = b(k,237) - lu(k,860) * b(k,209) + b(k,242) = b(k,242) - lu(k,861) * b(k,209) + b(k,259) = b(k,259) - lu(k,862) * b(k,209) + b(k,262) = b(k,262) - lu(k,863) * b(k,209) + b(k,263) = b(k,263) - lu(k,864) * b(k,209) + b(k,264) = b(k,264) - lu(k,865) * b(k,209) + b(k,272) = b(k,272) - lu(k,866) * b(k,209) + b(k,274) = b(k,274) - lu(k,867) * b(k,209) + b(k,276) = b(k,276) - lu(k,868) * b(k,209) + b(k,263) = b(k,263) - lu(k,870) * b(k,210) + b(k,272) = b(k,272) - lu(k,871) * b(k,210) + b(k,274) = b(k,274) - lu(k,872) * b(k,210) + b(k,258) = b(k,258) - lu(k,874) * b(k,211) + b(k,260) = b(k,260) - lu(k,875) * b(k,211) + b(k,263) = b(k,263) - lu(k,876) * b(k,211) + b(k,266) = b(k,266) - lu(k,877) * b(k,211) + b(k,268) = b(k,268) - lu(k,878) * b(k,211) + b(k,270) = b(k,270) - lu(k,879) * b(k,211) + b(k,276) = b(k,276) - lu(k,880) * b(k,211) + b(k,257) = b(k,257) - lu(k,883) * b(k,212) + b(k,263) = b(k,263) - lu(k,884) * b(k,212) + b(k,265) = b(k,265) - lu(k,885) * b(k,212) + b(k,266) = b(k,266) - lu(k,886) * b(k,212) + b(k,275) = b(k,275) - lu(k,887) * b(k,212) + b(k,276) = b(k,276) - lu(k,888) * b(k,212) + b(k,215) = b(k,215) - lu(k,891) * b(k,213) + b(k,225) = b(k,225) - lu(k,892) * b(k,213) + b(k,259) = b(k,259) - lu(k,893) * b(k,213) + b(k,264) = b(k,264) - lu(k,894) * b(k,213) + b(k,266) = b(k,266) - lu(k,895) * b(k,213) + b(k,270) = b(k,270) - lu(k,896) * b(k,213) + b(k,215) = b(k,215) - lu(k,899) * b(k,214) + b(k,225) = b(k,225) - lu(k,900) * b(k,214) + b(k,259) = b(k,259) - lu(k,901) * b(k,214) + b(k,264) = b(k,264) - lu(k,902) * b(k,214) + b(k,266) = b(k,266) - lu(k,903) * b(k,214) + b(k,270) = b(k,270) - lu(k,904) * b(k,214) + b(k,225) = b(k,225) - lu(k,911) * b(k,215) + b(k,238) = b(k,238) - lu(k,912) * b(k,215) + b(k,254) = b(k,254) - lu(k,913) * b(k,215) + b(k,259) = b(k,259) - lu(k,914) * b(k,215) + b(k,264) = b(k,264) - lu(k,915) * b(k,215) + b(k,266) = b(k,266) - lu(k,916) * b(k,215) + b(k,270) = b(k,270) - lu(k,917) * b(k,215) + b(k,247) = b(k,247) - lu(k,919) * b(k,216) + b(k,253) = b(k,253) - lu(k,920) * b(k,216) + b(k,262) = b(k,262) - lu(k,921) * b(k,216) + b(k,263) = b(k,263) - lu(k,922) * b(k,216) + b(k,274) = b(k,274) - lu(k,923) * b(k,216) + b(k,219) = b(k,219) - lu(k,928) * b(k,217) + b(k,236) = b(k,236) - lu(k,929) * b(k,217) + b(k,238) = b(k,238) - lu(k,930) * b(k,217) + b(k,245) = b(k,245) - lu(k,931) * b(k,217) + b(k,246) = b(k,246) - lu(k,932) * b(k,217) + b(k,248) = b(k,248) - lu(k,933) * b(k,217) + b(k,249) = b(k,249) - lu(k,934) * b(k,217) + b(k,251) = b(k,251) - lu(k,935) * b(k,217) + b(k,253) = b(k,253) - lu(k,936) * b(k,217) + b(k,263) = b(k,263) - lu(k,937) * b(k,217) + b(k,267) = b(k,267) - lu(k,938) * b(k,217) + b(k,269) = b(k,269) - lu(k,939) * b(k,217) + b(k,272) = b(k,272) - lu(k,940) * b(k,217) + b(k,273) = b(k,273) - lu(k,941) * b(k,217) + b(k,274) = b(k,274) - lu(k,942) * b(k,217) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -700,212 +700,212 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,252) = b(k,252) - lu(k,943) * b(k,216) - b(k,263) = b(k,263) - lu(k,944) * b(k,216) - b(k,266) = b(k,266) - lu(k,945) * b(k,216) - b(k,274) = b(k,274) - lu(k,946) * b(k,216) - b(k,235) = b(k,235) - lu(k,951) * b(k,217) - b(k,257) = b(k,257) - lu(k,952) * b(k,217) - b(k,260) = b(k,260) - lu(k,953) * b(k,217) - b(k,261) = b(k,261) - lu(k,954) * b(k,217) - b(k,263) = b(k,263) - lu(k,955) * b(k,217) - b(k,266) = b(k,266) - lu(k,956) * b(k,217) - b(k,270) = b(k,270) - lu(k,957) * b(k,217) - b(k,273) = b(k,273) - lu(k,958) * b(k,217) - b(k,227) = b(k,227) - lu(k,960) * b(k,218) - b(k,236) = b(k,236) - lu(k,961) * b(k,218) - b(k,245) = b(k,245) - lu(k,962) * b(k,218) - b(k,260) = b(k,260) - lu(k,963) * b(k,218) - b(k,261) = b(k,261) - lu(k,964) * b(k,218) - b(k,263) = b(k,263) - lu(k,965) * b(k,218) - b(k,266) = b(k,266) - lu(k,966) * b(k,218) - b(k,270) = b(k,270) - lu(k,967) * b(k,218) - b(k,253) = b(k,253) - lu(k,970) * b(k,219) - b(k,263) = b(k,263) - lu(k,971) * b(k,219) - b(k,264) = b(k,264) - lu(k,972) * b(k,219) - b(k,265) = b(k,265) - lu(k,973) * b(k,219) - b(k,268) = b(k,268) - lu(k,974) * b(k,219) - b(k,269) = b(k,269) - lu(k,975) * b(k,219) - b(k,270) = b(k,270) - lu(k,976) * b(k,219) - b(k,274) = b(k,274) - lu(k,977) * b(k,219) - b(k,230) = b(k,230) - lu(k,980) * b(k,220) - b(k,235) = b(k,235) - lu(k,981) * b(k,220) - b(k,257) = b(k,257) - lu(k,982) * b(k,220) - b(k,260) = b(k,260) - lu(k,983) * b(k,220) - b(k,261) = b(k,261) - lu(k,984) * b(k,220) - b(k,263) = b(k,263) - lu(k,985) * b(k,220) - b(k,266) = b(k,266) - lu(k,986) * b(k,220) - b(k,270) = b(k,270) - lu(k,987) * b(k,220) - b(k,273) = b(k,273) - lu(k,988) * b(k,220) - b(k,274) = b(k,274) - lu(k,989) * b(k,220) - b(k,254) = b(k,254) - lu(k,992) * b(k,221) - b(k,263) = b(k,263) - lu(k,993) * b(k,221) - b(k,266) = b(k,266) - lu(k,994) * b(k,221) - b(k,272) = b(k,272) - lu(k,995) * b(k,221) - b(k,274) = b(k,274) - lu(k,996) * b(k,221) - b(k,226) = b(k,226) - lu(k,1007) * b(k,222) - b(k,227) = b(k,227) - lu(k,1008) * b(k,222) - b(k,228) = b(k,228) - lu(k,1009) * b(k,222) - b(k,229) = b(k,229) - lu(k,1010) * b(k,222) - b(k,230) = b(k,230) - lu(k,1011) * b(k,222) - b(k,232) = b(k,232) - lu(k,1012) * b(k,222) - b(k,233) = b(k,233) - lu(k,1013) * b(k,222) - b(k,236) = b(k,236) - lu(k,1014) * b(k,222) - b(k,241) = b(k,241) - lu(k,1015) * b(k,222) - b(k,245) = b(k,245) - lu(k,1016) * b(k,222) - b(k,251) = b(k,251) - lu(k,1017) * b(k,222) - b(k,252) = b(k,252) - lu(k,1018) * b(k,222) - b(k,263) = b(k,263) - lu(k,1019) * b(k,222) - b(k,264) = b(k,264) - lu(k,1020) * b(k,222) - b(k,266) = b(k,266) - lu(k,1021) * b(k,222) - b(k,271) = b(k,271) - lu(k,1022) * b(k,222) - b(k,273) = b(k,273) - lu(k,1023) * b(k,222) - b(k,274) = b(k,274) - lu(k,1024) * b(k,222) - b(k,255) = b(k,255) - lu(k,1028) * b(k,223) - b(k,259) = b(k,259) - lu(k,1029) * b(k,223) - b(k,260) = b(k,260) - lu(k,1030) * b(k,223) - b(k,263) = b(k,263) - lu(k,1031) * b(k,223) - b(k,264) = b(k,264) - lu(k,1032) * b(k,223) - b(k,267) = b(k,267) - lu(k,1033) * b(k,223) - b(k,269) = b(k,269) - lu(k,1034) * b(k,223) - b(k,272) = b(k,272) - lu(k,1035) * b(k,223) - b(k,274) = b(k,274) - lu(k,1036) * b(k,223) - b(k,236) = b(k,236) - lu(k,1044) * b(k,224) - b(k,252) = b(k,252) - lu(k,1045) * b(k,224) - b(k,257) = b(k,257) - lu(k,1046) * b(k,224) - b(k,260) = b(k,260) - lu(k,1047) * b(k,224) - b(k,261) = b(k,261) - lu(k,1048) * b(k,224) - b(k,262) = b(k,262) - lu(k,1049) * b(k,224) - b(k,263) = b(k,263) - lu(k,1050) * b(k,224) - b(k,268) = b(k,268) - lu(k,1051) * b(k,224) - b(k,272) = b(k,272) - lu(k,1052) * b(k,224) - b(k,226) = b(k,226) - lu(k,1063) * b(k,225) - b(k,227) = b(k,227) - lu(k,1064) * b(k,225) - b(k,228) = b(k,228) - lu(k,1065) * b(k,225) - b(k,229) = b(k,229) - lu(k,1066) * b(k,225) - b(k,230) = b(k,230) - lu(k,1067) * b(k,225) - b(k,232) = b(k,232) - lu(k,1068) * b(k,225) - b(k,233) = b(k,233) - lu(k,1069) * b(k,225) - b(k,236) = b(k,236) - lu(k,1070) * b(k,225) - b(k,241) = b(k,241) - lu(k,1071) * b(k,225) - b(k,245) = b(k,245) - lu(k,1072) * b(k,225) - b(k,251) = b(k,251) - lu(k,1073) * b(k,225) - b(k,252) = b(k,252) - lu(k,1074) * b(k,225) - b(k,263) = b(k,263) - lu(k,1075) * b(k,225) - b(k,264) = b(k,264) - lu(k,1076) * b(k,225) - b(k,266) = b(k,266) - lu(k,1077) * b(k,225) - b(k,271) = b(k,271) - lu(k,1078) * b(k,225) - b(k,273) = b(k,273) - lu(k,1079) * b(k,225) - b(k,274) = b(k,274) - lu(k,1080) * b(k,225) - b(k,230) = b(k,230) - lu(k,1087) * b(k,226) - b(k,235) = b(k,235) - lu(k,1088) * b(k,226) - b(k,251) = b(k,251) - lu(k,1089) * b(k,226) - b(k,257) = b(k,257) - lu(k,1090) * b(k,226) - b(k,260) = b(k,260) - lu(k,1091) * b(k,226) - b(k,261) = b(k,261) - lu(k,1092) * b(k,226) - b(k,263) = b(k,263) - lu(k,1093) * b(k,226) - b(k,266) = b(k,266) - lu(k,1094) * b(k,226) - b(k,270) = b(k,270) - lu(k,1095) * b(k,226) - b(k,273) = b(k,273) - lu(k,1096) * b(k,226) - b(k,236) = b(k,236) - lu(k,1099) * b(k,227) - b(k,252) = b(k,252) - lu(k,1100) * b(k,227) - b(k,263) = b(k,263) - lu(k,1101) * b(k,227) - b(k,266) = b(k,266) - lu(k,1102) * b(k,227) - b(k,229) = b(k,229) - lu(k,1107) * b(k,228) - b(k,230) = b(k,230) - lu(k,1108) * b(k,228) - b(k,260) = b(k,260) - lu(k,1109) * b(k,228) - b(k,261) = b(k,261) - lu(k,1110) * b(k,228) - b(k,263) = b(k,263) - lu(k,1111) * b(k,228) - b(k,266) = b(k,266) - lu(k,1112) * b(k,228) - b(k,269) = b(k,269) - lu(k,1113) * b(k,228) - b(k,270) = b(k,270) - lu(k,1114) * b(k,228) - b(k,273) = b(k,273) - lu(k,1115) * b(k,228) - b(k,232) = b(k,232) - lu(k,1117) * b(k,229) - b(k,233) = b(k,233) - lu(k,1118) * b(k,229) - b(k,236) = b(k,236) - lu(k,1119) * b(k,229) - b(k,238) = b(k,238) - lu(k,1120) * b(k,229) - b(k,263) = b(k,263) - lu(k,1121) * b(k,229) - b(k,264) = b(k,264) - lu(k,1122) * b(k,229) - b(k,266) = b(k,266) - lu(k,1123) * b(k,229) - b(k,241) = b(k,241) - lu(k,1125) * b(k,230) - b(k,251) = b(k,251) - lu(k,1126) * b(k,230) - b(k,263) = b(k,263) - lu(k,1127) * b(k,230) - b(k,270) = b(k,270) - lu(k,1128) * b(k,230) - b(k,274) = b(k,274) - lu(k,1129) * b(k,230) - b(k,236) = b(k,236) - lu(k,1135) * b(k,231) - b(k,245) = b(k,245) - lu(k,1136) * b(k,231) - b(k,251) = b(k,251) - lu(k,1137) * b(k,231) - b(k,252) = b(k,252) - lu(k,1138) * b(k,231) - b(k,260) = b(k,260) - lu(k,1139) * b(k,231) - b(k,261) = b(k,261) - lu(k,1140) * b(k,231) - b(k,263) = b(k,263) - lu(k,1141) * b(k,231) - b(k,266) = b(k,266) - lu(k,1142) * b(k,231) - b(k,269) = b(k,269) - lu(k,1143) * b(k,231) - b(k,270) = b(k,270) - lu(k,1144) * b(k,231) - b(k,273) = b(k,273) - lu(k,1145) * b(k,231) - b(k,233) = b(k,233) - lu(k,1151) * b(k,232) - b(k,236) = b(k,236) - lu(k,1152) * b(k,232) - b(k,238) = b(k,238) - lu(k,1153) * b(k,232) - b(k,260) = b(k,260) - lu(k,1154) * b(k,232) - b(k,261) = b(k,261) - lu(k,1155) * b(k,232) - b(k,263) = b(k,263) - lu(k,1156) * b(k,232) - b(k,264) = b(k,264) - lu(k,1157) * b(k,232) - b(k,266) = b(k,266) - lu(k,1158) * b(k,232) - b(k,269) = b(k,269) - lu(k,1159) * b(k,232) - b(k,270) = b(k,270) - lu(k,1160) * b(k,232) - b(k,273) = b(k,273) - lu(k,1161) * b(k,232) - b(k,236) = b(k,236) - lu(k,1164) * b(k,233) - b(k,241) = b(k,241) - lu(k,1165) * b(k,233) - b(k,251) = b(k,251) - lu(k,1166) * b(k,233) - b(k,252) = b(k,252) - lu(k,1167) * b(k,233) - b(k,263) = b(k,263) - lu(k,1168) * b(k,233) - b(k,266) = b(k,266) - lu(k,1169) * b(k,233) - b(k,270) = b(k,270) - lu(k,1170) * b(k,233) - b(k,273) = b(k,273) - lu(k,1171) * b(k,233) - b(k,274) = b(k,274) - lu(k,1172) * b(k,233) - b(k,235) = b(k,235) - lu(k,1178) * b(k,234) - b(k,236) = b(k,236) - lu(k,1179) * b(k,234) - b(k,240) = b(k,240) - lu(k,1180) * b(k,234) - b(k,245) = b(k,245) - lu(k,1181) * b(k,234) - b(k,251) = b(k,251) - lu(k,1182) * b(k,234) - b(k,252) = b(k,252) - lu(k,1183) * b(k,234) - b(k,257) = b(k,257) - lu(k,1184) * b(k,234) - b(k,260) = b(k,260) - lu(k,1185) * b(k,234) - b(k,261) = b(k,261) - lu(k,1186) * b(k,234) - b(k,263) = b(k,263) - lu(k,1187) * b(k,234) - b(k,264) = b(k,264) - lu(k,1188) * b(k,234) - b(k,265) = b(k,265) - lu(k,1189) * b(k,234) - b(k,266) = b(k,266) - lu(k,1190) * b(k,234) - b(k,270) = b(k,270) - lu(k,1191) * b(k,234) - b(k,271) = b(k,271) - lu(k,1192) * b(k,234) - b(k,273) = b(k,273) - lu(k,1193) * b(k,234) - b(k,274) = b(k,274) - lu(k,1194) * b(k,234) - b(k,236) = b(k,236) - lu(k,1196) * b(k,235) - b(k,251) = b(k,251) - lu(k,1197) * b(k,235) - b(k,263) = b(k,263) - lu(k,1198) * b(k,235) - b(k,264) = b(k,264) - lu(k,1199) * b(k,235) - b(k,266) = b(k,266) - lu(k,1200) * b(k,235) - b(k,269) = b(k,269) - lu(k,1201) * b(k,235) - b(k,270) = b(k,270) - lu(k,1202) * b(k,235) - b(k,274) = b(k,274) - lu(k,1203) * b(k,235) - b(k,252) = b(k,252) - lu(k,1205) * b(k,236) - b(k,263) = b(k,263) - lu(k,1206) * b(k,236) - b(k,266) = b(k,266) - lu(k,1207) * b(k,236) - b(k,252) = b(k,252) - lu(k,1211) * b(k,237) - b(k,263) = b(k,263) - lu(k,1212) * b(k,237) - b(k,266) = b(k,266) - lu(k,1213) * b(k,237) - b(k,273) = b(k,273) - lu(k,1214) * b(k,237) - b(k,241) = b(k,241) - lu(k,1223) * b(k,238) - b(k,251) = b(k,251) - lu(k,1224) * b(k,238) - b(k,252) = b(k,252) - lu(k,1225) * b(k,238) - b(k,260) = b(k,260) - lu(k,1226) * b(k,238) - b(k,261) = b(k,261) - lu(k,1227) * b(k,238) - b(k,263) = b(k,263) - lu(k,1228) * b(k,238) - b(k,266) = b(k,266) - lu(k,1229) * b(k,238) - b(k,269) = b(k,269) - lu(k,1230) * b(k,238) - b(k,270) = b(k,270) - lu(k,1231) * b(k,238) - b(k,273) = b(k,273) - lu(k,1232) * b(k,238) - b(k,274) = b(k,274) - lu(k,1233) * b(k,238) + b(k,237) = b(k,237) - lu(k,947) * b(k,218) + b(k,259) = b(k,259) - lu(k,948) * b(k,218) + b(k,262) = b(k,262) - lu(k,949) * b(k,218) + b(k,263) = b(k,263) - lu(k,950) * b(k,218) + b(k,264) = b(k,264) - lu(k,951) * b(k,218) + b(k,269) = b(k,269) - lu(k,952) * b(k,218) + b(k,272) = b(k,272) - lu(k,953) * b(k,218) + b(k,274) = b(k,274) - lu(k,954) * b(k,218) + b(k,254) = b(k,254) - lu(k,956) * b(k,219) + b(k,263) = b(k,263) - lu(k,957) * b(k,219) + b(k,272) = b(k,272) - lu(k,958) * b(k,219) + b(k,276) = b(k,276) - lu(k,959) * b(k,219) + b(k,229) = b(k,229) - lu(k,961) * b(k,220) + b(k,238) = b(k,238) - lu(k,962) * b(k,220) + b(k,247) = b(k,247) - lu(k,963) * b(k,220) + b(k,262) = b(k,262) - lu(k,964) * b(k,220) + b(k,263) = b(k,263) - lu(k,965) * b(k,220) + b(k,264) = b(k,264) - lu(k,966) * b(k,220) + b(k,269) = b(k,269) - lu(k,967) * b(k,220) + b(k,272) = b(k,272) - lu(k,968) * b(k,220) + b(k,255) = b(k,255) - lu(k,971) * b(k,221) + b(k,261) = b(k,261) - lu(k,972) * b(k,221) + b(k,263) = b(k,263) - lu(k,973) * b(k,221) + b(k,268) = b(k,268) - lu(k,974) * b(k,221) + b(k,269) = b(k,269) - lu(k,975) * b(k,221) + b(k,271) = b(k,271) - lu(k,976) * b(k,221) + b(k,273) = b(k,273) - lu(k,977) * b(k,221) + b(k,276) = b(k,276) - lu(k,978) * b(k,221) + b(k,232) = b(k,232) - lu(k,981) * b(k,222) + b(k,237) = b(k,237) - lu(k,982) * b(k,222) + b(k,259) = b(k,259) - lu(k,983) * b(k,222) + b(k,262) = b(k,262) - lu(k,984) * b(k,222) + b(k,263) = b(k,263) - lu(k,985) * b(k,222) + b(k,264) = b(k,264) - lu(k,986) * b(k,222) + b(k,269) = b(k,269) - lu(k,987) * b(k,222) + b(k,272) = b(k,272) - lu(k,988) * b(k,222) + b(k,274) = b(k,274) - lu(k,989) * b(k,222) + b(k,276) = b(k,276) - lu(k,990) * b(k,222) + b(k,256) = b(k,256) - lu(k,993) * b(k,223) + b(k,263) = b(k,263) - lu(k,994) * b(k,223) + b(k,266) = b(k,266) - lu(k,995) * b(k,223) + b(k,272) = b(k,272) - lu(k,996) * b(k,223) + b(k,276) = b(k,276) - lu(k,997) * b(k,223) + b(k,228) = b(k,228) - lu(k,1008) * b(k,224) + b(k,229) = b(k,229) - lu(k,1009) * b(k,224) + b(k,230) = b(k,230) - lu(k,1010) * b(k,224) + b(k,231) = b(k,231) - lu(k,1011) * b(k,224) + b(k,232) = b(k,232) - lu(k,1012) * b(k,224) + b(k,234) = b(k,234) - lu(k,1013) * b(k,224) + b(k,235) = b(k,235) - lu(k,1014) * b(k,224) + b(k,238) = b(k,238) - lu(k,1015) * b(k,224) + b(k,243) = b(k,243) - lu(k,1016) * b(k,224) + b(k,247) = b(k,247) - lu(k,1017) * b(k,224) + b(k,253) = b(k,253) - lu(k,1018) * b(k,224) + b(k,254) = b(k,254) - lu(k,1019) * b(k,224) + b(k,263) = b(k,263) - lu(k,1020) * b(k,224) + b(k,267) = b(k,267) - lu(k,1021) * b(k,224) + b(k,272) = b(k,272) - lu(k,1022) * b(k,224) + b(k,273) = b(k,273) - lu(k,1023) * b(k,224) + b(k,274) = b(k,274) - lu(k,1024) * b(k,224) + b(k,276) = b(k,276) - lu(k,1025) * b(k,224) + b(k,238) = b(k,238) - lu(k,1033) * b(k,225) + b(k,254) = b(k,254) - lu(k,1034) * b(k,225) + b(k,259) = b(k,259) - lu(k,1035) * b(k,225) + b(k,262) = b(k,262) - lu(k,1036) * b(k,225) + b(k,263) = b(k,263) - lu(k,1037) * b(k,225) + b(k,264) = b(k,264) - lu(k,1038) * b(k,225) + b(k,266) = b(k,266) - lu(k,1039) * b(k,225) + b(k,268) = b(k,268) - lu(k,1040) * b(k,225) + b(k,270) = b(k,270) - lu(k,1041) * b(k,225) + b(k,257) = b(k,257) - lu(k,1045) * b(k,226) + b(k,262) = b(k,262) - lu(k,1046) * b(k,226) + b(k,263) = b(k,263) - lu(k,1047) * b(k,226) + b(k,265) = b(k,265) - lu(k,1048) * b(k,226) + b(k,266) = b(k,266) - lu(k,1049) * b(k,226) + b(k,271) = b(k,271) - lu(k,1050) * b(k,226) + b(k,273) = b(k,273) - lu(k,1051) * b(k,226) + b(k,275) = b(k,275) - lu(k,1052) * b(k,226) + b(k,276) = b(k,276) - lu(k,1053) * b(k,226) + b(k,228) = b(k,228) - lu(k,1064) * b(k,227) + b(k,229) = b(k,229) - lu(k,1065) * b(k,227) + b(k,230) = b(k,230) - lu(k,1066) * b(k,227) + b(k,231) = b(k,231) - lu(k,1067) * b(k,227) + b(k,232) = b(k,232) - lu(k,1068) * b(k,227) + b(k,234) = b(k,234) - lu(k,1069) * b(k,227) + b(k,235) = b(k,235) - lu(k,1070) * b(k,227) + b(k,238) = b(k,238) - lu(k,1071) * b(k,227) + b(k,243) = b(k,243) - lu(k,1072) * b(k,227) + b(k,247) = b(k,247) - lu(k,1073) * b(k,227) + b(k,253) = b(k,253) - lu(k,1074) * b(k,227) + b(k,254) = b(k,254) - lu(k,1075) * b(k,227) + b(k,263) = b(k,263) - lu(k,1076) * b(k,227) + b(k,267) = b(k,267) - lu(k,1077) * b(k,227) + b(k,272) = b(k,272) - lu(k,1078) * b(k,227) + b(k,273) = b(k,273) - lu(k,1079) * b(k,227) + b(k,274) = b(k,274) - lu(k,1080) * b(k,227) + b(k,276) = b(k,276) - lu(k,1081) * b(k,227) + b(k,232) = b(k,232) - lu(k,1088) * b(k,228) + b(k,237) = b(k,237) - lu(k,1089) * b(k,228) + b(k,253) = b(k,253) - lu(k,1090) * b(k,228) + b(k,259) = b(k,259) - lu(k,1091) * b(k,228) + b(k,262) = b(k,262) - lu(k,1092) * b(k,228) + b(k,263) = b(k,263) - lu(k,1093) * b(k,228) + b(k,264) = b(k,264) - lu(k,1094) * b(k,228) + b(k,269) = b(k,269) - lu(k,1095) * b(k,228) + b(k,272) = b(k,272) - lu(k,1096) * b(k,228) + b(k,274) = b(k,274) - lu(k,1097) * b(k,228) + b(k,238) = b(k,238) - lu(k,1100) * b(k,229) + b(k,254) = b(k,254) - lu(k,1101) * b(k,229) + b(k,263) = b(k,263) - lu(k,1102) * b(k,229) + b(k,272) = b(k,272) - lu(k,1103) * b(k,229) + b(k,231) = b(k,231) - lu(k,1108) * b(k,230) + b(k,232) = b(k,232) - lu(k,1109) * b(k,230) + b(k,262) = b(k,262) - lu(k,1110) * b(k,230) + b(k,263) = b(k,263) - lu(k,1111) * b(k,230) + b(k,264) = b(k,264) - lu(k,1112) * b(k,230) + b(k,269) = b(k,269) - lu(k,1113) * b(k,230) + b(k,271) = b(k,271) - lu(k,1114) * b(k,230) + b(k,272) = b(k,272) - lu(k,1115) * b(k,230) + b(k,274) = b(k,274) - lu(k,1116) * b(k,230) + b(k,234) = b(k,234) - lu(k,1118) * b(k,231) + b(k,235) = b(k,235) - lu(k,1119) * b(k,231) + b(k,238) = b(k,238) - lu(k,1120) * b(k,231) + b(k,240) = b(k,240) - lu(k,1121) * b(k,231) + b(k,263) = b(k,263) - lu(k,1122) * b(k,231) + b(k,272) = b(k,272) - lu(k,1123) * b(k,231) + b(k,273) = b(k,273) - lu(k,1124) * b(k,231) + b(k,243) = b(k,243) - lu(k,1126) * b(k,232) + b(k,253) = b(k,253) - lu(k,1127) * b(k,232) + b(k,263) = b(k,263) - lu(k,1128) * b(k,232) + b(k,269) = b(k,269) - lu(k,1129) * b(k,232) + b(k,276) = b(k,276) - lu(k,1130) * b(k,232) + b(k,238) = b(k,238) - lu(k,1136) * b(k,233) + b(k,247) = b(k,247) - lu(k,1137) * b(k,233) + b(k,253) = b(k,253) - lu(k,1138) * b(k,233) + b(k,254) = b(k,254) - lu(k,1139) * b(k,233) + b(k,262) = b(k,262) - lu(k,1140) * b(k,233) + b(k,263) = b(k,263) - lu(k,1141) * b(k,233) + b(k,264) = b(k,264) - lu(k,1142) * b(k,233) + b(k,269) = b(k,269) - lu(k,1143) * b(k,233) + b(k,271) = b(k,271) - lu(k,1144) * b(k,233) + b(k,272) = b(k,272) - lu(k,1145) * b(k,233) + b(k,274) = b(k,274) - lu(k,1146) * b(k,233) + b(k,235) = b(k,235) - lu(k,1152) * b(k,234) + b(k,238) = b(k,238) - lu(k,1153) * b(k,234) + b(k,240) = b(k,240) - lu(k,1154) * b(k,234) + b(k,262) = b(k,262) - lu(k,1155) * b(k,234) + b(k,263) = b(k,263) - lu(k,1156) * b(k,234) + b(k,264) = b(k,264) - lu(k,1157) * b(k,234) + b(k,269) = b(k,269) - lu(k,1158) * b(k,234) + b(k,271) = b(k,271) - lu(k,1159) * b(k,234) + b(k,272) = b(k,272) - lu(k,1160) * b(k,234) + b(k,273) = b(k,273) - lu(k,1161) * b(k,234) + b(k,274) = b(k,274) - lu(k,1162) * b(k,234) + b(k,238) = b(k,238) - lu(k,1165) * b(k,235) + b(k,243) = b(k,243) - lu(k,1166) * b(k,235) + b(k,253) = b(k,253) - lu(k,1167) * b(k,235) + b(k,254) = b(k,254) - lu(k,1168) * b(k,235) + b(k,263) = b(k,263) - lu(k,1169) * b(k,235) + b(k,269) = b(k,269) - lu(k,1170) * b(k,235) + b(k,272) = b(k,272) - lu(k,1171) * b(k,235) + b(k,274) = b(k,274) - lu(k,1172) * b(k,235) + b(k,276) = b(k,276) - lu(k,1173) * b(k,235) + b(k,237) = b(k,237) - lu(k,1179) * b(k,236) + b(k,238) = b(k,238) - lu(k,1180) * b(k,236) + b(k,242) = b(k,242) - lu(k,1181) * b(k,236) + b(k,247) = b(k,247) - lu(k,1182) * b(k,236) + b(k,253) = b(k,253) - lu(k,1183) * b(k,236) + b(k,254) = b(k,254) - lu(k,1184) * b(k,236) + b(k,259) = b(k,259) - lu(k,1185) * b(k,236) + b(k,261) = b(k,261) - lu(k,1186) * b(k,236) + b(k,262) = b(k,262) - lu(k,1187) * b(k,236) + b(k,263) = b(k,263) - lu(k,1188) * b(k,236) + b(k,264) = b(k,264) - lu(k,1189) * b(k,236) + b(k,267) = b(k,267) - lu(k,1190) * b(k,236) + b(k,269) = b(k,269) - lu(k,1191) * b(k,236) + b(k,272) = b(k,272) - lu(k,1192) * b(k,236) + b(k,273) = b(k,273) - lu(k,1193) * b(k,236) + b(k,274) = b(k,274) - lu(k,1194) * b(k,236) + b(k,276) = b(k,276) - lu(k,1195) * b(k,236) + b(k,238) = b(k,238) - lu(k,1197) * b(k,237) + b(k,253) = b(k,253) - lu(k,1198) * b(k,237) + b(k,263) = b(k,263) - lu(k,1199) * b(k,237) + b(k,269) = b(k,269) - lu(k,1200) * b(k,237) + b(k,271) = b(k,271) - lu(k,1201) * b(k,237) + b(k,272) = b(k,272) - lu(k,1202) * b(k,237) + b(k,273) = b(k,273) - lu(k,1203) * b(k,237) + b(k,276) = b(k,276) - lu(k,1204) * b(k,237) + b(k,254) = b(k,254) - lu(k,1206) * b(k,238) + b(k,263) = b(k,263) - lu(k,1207) * b(k,238) + b(k,272) = b(k,272) - lu(k,1208) * b(k,238) + b(k,254) = b(k,254) - lu(k,1212) * b(k,239) + b(k,263) = b(k,263) - lu(k,1213) * b(k,239) + b(k,272) = b(k,272) - lu(k,1214) * b(k,239) + b(k,274) = b(k,274) - lu(k,1215) * b(k,239) + b(k,243) = b(k,243) - lu(k,1224) * b(k,240) + b(k,253) = b(k,253) - lu(k,1225) * b(k,240) + b(k,254) = b(k,254) - lu(k,1226) * b(k,240) + b(k,262) = b(k,262) - lu(k,1227) * b(k,240) + b(k,263) = b(k,263) - lu(k,1228) * b(k,240) + b(k,264) = b(k,264) - lu(k,1229) * b(k,240) + b(k,269) = b(k,269) - lu(k,1230) * b(k,240) + b(k,271) = b(k,271) - lu(k,1231) * b(k,240) + b(k,272) = b(k,272) - lu(k,1232) * b(k,240) + b(k,274) = b(k,274) - lu(k,1233) * b(k,240) + b(k,276) = b(k,276) - lu(k,1234) * b(k,240) end do end subroutine lu_slv04 subroutine lu_slv05( avec_len, lu, b ) @@ -926,210 +926,210 @@ subroutine lu_slv05( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,240) = b(k,240) - lu(k,1240) * b(k,239) - b(k,241) = b(k,241) - lu(k,1241) * b(k,239) - b(k,251) = b(k,251) - lu(k,1242) * b(k,239) - b(k,252) = b(k,252) - lu(k,1243) * b(k,239) - b(k,260) = b(k,260) - lu(k,1244) * b(k,239) - b(k,263) = b(k,263) - lu(k,1245) * b(k,239) - b(k,264) = b(k,264) - lu(k,1246) * b(k,239) - b(k,266) = b(k,266) - lu(k,1247) * b(k,239) - b(k,269) = b(k,269) - lu(k,1248) * b(k,239) - b(k,270) = b(k,270) - lu(k,1249) * b(k,239) - b(k,273) = b(k,273) - lu(k,1250) * b(k,239) - b(k,274) = b(k,274) - lu(k,1251) * b(k,239) - b(k,245) = b(k,245) - lu(k,1253) * b(k,240) - b(k,251) = b(k,251) - lu(k,1254) * b(k,240) - b(k,263) = b(k,263) - lu(k,1255) * b(k,240) - b(k,266) = b(k,266) - lu(k,1256) * b(k,240) - b(k,273) = b(k,273) - lu(k,1257) * b(k,240) - b(k,245) = b(k,245) - lu(k,1262) * b(k,241) - b(k,251) = b(k,251) - lu(k,1263) * b(k,241) - b(k,260) = b(k,260) - lu(k,1264) * b(k,241) - b(k,261) = b(k,261) - lu(k,1265) * b(k,241) - b(k,263) = b(k,263) - lu(k,1266) * b(k,241) - b(k,266) = b(k,266) - lu(k,1267) * b(k,241) - b(k,270) = b(k,270) - lu(k,1268) * b(k,241) - b(k,273) = b(k,273) - lu(k,1269) * b(k,241) - b(k,274) = b(k,274) - lu(k,1270) * b(k,241) - b(k,245) = b(k,245) - lu(k,1278) * b(k,242) - b(k,251) = b(k,251) - lu(k,1279) * b(k,242) - b(k,252) = b(k,252) - lu(k,1280) * b(k,242) - b(k,260) = b(k,260) - lu(k,1281) * b(k,242) - b(k,261) = b(k,261) - lu(k,1282) * b(k,242) - b(k,263) = b(k,263) - lu(k,1283) * b(k,242) - b(k,264) = b(k,264) - lu(k,1284) * b(k,242) - b(k,266) = b(k,266) - lu(k,1285) * b(k,242) - b(k,270) = b(k,270) - lu(k,1286) * b(k,242) - b(k,273) = b(k,273) - lu(k,1287) * b(k,242) - b(k,244) = b(k,244) - lu(k,1298) * b(k,243) - b(k,245) = b(k,245) - lu(k,1299) * b(k,243) - b(k,249) = b(k,249) - lu(k,1300) * b(k,243) - b(k,251) = b(k,251) - lu(k,1301) * b(k,243) - b(k,252) = b(k,252) - lu(k,1302) * b(k,243) - b(k,260) = b(k,260) - lu(k,1303) * b(k,243) - b(k,261) = b(k,261) - lu(k,1304) * b(k,243) - b(k,263) = b(k,263) - lu(k,1305) * b(k,243) - b(k,264) = b(k,264) - lu(k,1306) * b(k,243) - b(k,266) = b(k,266) - lu(k,1307) * b(k,243) - b(k,269) = b(k,269) - lu(k,1308) * b(k,243) - b(k,270) = b(k,270) - lu(k,1309) * b(k,243) - b(k,273) = b(k,273) - lu(k,1310) * b(k,243) - b(k,245) = b(k,245) - lu(k,1314) * b(k,244) - b(k,248) = b(k,248) - lu(k,1315) * b(k,244) - b(k,250) = b(k,250) - lu(k,1316) * b(k,244) - b(k,251) = b(k,251) - lu(k,1317) * b(k,244) - b(k,252) = b(k,252) - lu(k,1318) * b(k,244) - b(k,263) = b(k,263) - lu(k,1319) * b(k,244) - b(k,266) = b(k,266) - lu(k,1320) * b(k,244) - b(k,271) = b(k,271) - lu(k,1321) * b(k,244) - b(k,273) = b(k,273) - lu(k,1322) * b(k,244) - b(k,274) = b(k,274) - lu(k,1323) * b(k,244) - b(k,251) = b(k,251) - lu(k,1326) * b(k,245) - b(k,252) = b(k,252) - lu(k,1327) * b(k,245) - b(k,263) = b(k,263) - lu(k,1328) * b(k,245) - b(k,264) = b(k,264) - lu(k,1329) * b(k,245) - b(k,266) = b(k,266) - lu(k,1330) * b(k,245) - b(k,269) = b(k,269) - lu(k,1331) * b(k,245) - b(k,274) = b(k,274) - lu(k,1332) * b(k,245) - b(k,248) = b(k,248) - lu(k,1344) * b(k,246) - b(k,249) = b(k,249) - lu(k,1345) * b(k,246) - b(k,250) = b(k,250) - lu(k,1346) * b(k,246) - b(k,251) = b(k,251) - lu(k,1347) * b(k,246) - b(k,252) = b(k,252) - lu(k,1348) * b(k,246) - b(k,260) = b(k,260) - lu(k,1349) * b(k,246) - b(k,261) = b(k,261) - lu(k,1350) * b(k,246) - b(k,263) = b(k,263) - lu(k,1351) * b(k,246) - b(k,264) = b(k,264) - lu(k,1352) * b(k,246) - b(k,266) = b(k,266) - lu(k,1353) * b(k,246) - b(k,269) = b(k,269) - lu(k,1354) * b(k,246) - b(k,270) = b(k,270) - lu(k,1355) * b(k,246) - b(k,271) = b(k,271) - lu(k,1356) * b(k,246) - b(k,273) = b(k,273) - lu(k,1357) * b(k,246) - b(k,274) = b(k,274) - lu(k,1358) * b(k,246) - b(k,248) = b(k,248) - lu(k,1377) * b(k,247) - b(k,249) = b(k,249) - lu(k,1378) * b(k,247) - b(k,250) = b(k,250) - lu(k,1379) * b(k,247) - b(k,251) = b(k,251) - lu(k,1380) * b(k,247) - b(k,252) = b(k,252) - lu(k,1381) * b(k,247) - b(k,260) = b(k,260) - lu(k,1382) * b(k,247) - b(k,261) = b(k,261) - lu(k,1383) * b(k,247) - b(k,263) = b(k,263) - lu(k,1384) * b(k,247) - b(k,264) = b(k,264) - lu(k,1385) * b(k,247) - b(k,266) = b(k,266) - lu(k,1386) * b(k,247) - b(k,269) = b(k,269) - lu(k,1387) * b(k,247) - b(k,270) = b(k,270) - lu(k,1388) * b(k,247) - b(k,271) = b(k,271) - lu(k,1389) * b(k,247) - b(k,273) = b(k,273) - lu(k,1390) * b(k,247) - b(k,274) = b(k,274) - lu(k,1391) * b(k,247) - b(k,250) = b(k,250) - lu(k,1401) * b(k,248) - b(k,251) = b(k,251) - lu(k,1402) * b(k,248) - b(k,252) = b(k,252) - lu(k,1403) * b(k,248) - b(k,260) = b(k,260) - lu(k,1404) * b(k,248) - b(k,261) = b(k,261) - lu(k,1405) * b(k,248) - b(k,263) = b(k,263) - lu(k,1406) * b(k,248) - b(k,264) = b(k,264) - lu(k,1407) * b(k,248) - b(k,266) = b(k,266) - lu(k,1408) * b(k,248) - b(k,269) = b(k,269) - lu(k,1409) * b(k,248) - b(k,270) = b(k,270) - lu(k,1410) * b(k,248) - b(k,273) = b(k,273) - lu(k,1411) * b(k,248) - b(k,274) = b(k,274) - lu(k,1412) * b(k,248) - b(k,250) = b(k,250) - lu(k,1421) * b(k,249) - b(k,251) = b(k,251) - lu(k,1422) * b(k,249) - b(k,252) = b(k,252) - lu(k,1423) * b(k,249) - b(k,257) = b(k,257) - lu(k,1424) * b(k,249) - b(k,260) = b(k,260) - lu(k,1425) * b(k,249) - b(k,261) = b(k,261) - lu(k,1426) * b(k,249) - b(k,263) = b(k,263) - lu(k,1427) * b(k,249) - b(k,264) = b(k,264) - lu(k,1428) * b(k,249) - b(k,265) = b(k,265) - lu(k,1429) * b(k,249) - b(k,266) = b(k,266) - lu(k,1430) * b(k,249) - b(k,269) = b(k,269) - lu(k,1431) * b(k,249) - b(k,270) = b(k,270) - lu(k,1432) * b(k,249) - b(k,271) = b(k,271) - lu(k,1433) * b(k,249) - b(k,273) = b(k,273) - lu(k,1434) * b(k,249) - b(k,274) = b(k,274) - lu(k,1435) * b(k,249) - b(k,251) = b(k,251) - lu(k,1442) * b(k,250) - b(k,252) = b(k,252) - lu(k,1443) * b(k,250) - b(k,260) = b(k,260) - lu(k,1444) * b(k,250) - b(k,261) = b(k,261) - lu(k,1445) * b(k,250) - b(k,263) = b(k,263) - lu(k,1446) * b(k,250) - b(k,264) = b(k,264) - lu(k,1447) * b(k,250) - b(k,266) = b(k,266) - lu(k,1448) * b(k,250) - b(k,269) = b(k,269) - lu(k,1449) * b(k,250) - b(k,270) = b(k,270) - lu(k,1450) * b(k,250) - b(k,271) = b(k,271) - lu(k,1451) * b(k,250) - b(k,273) = b(k,273) - lu(k,1452) * b(k,250) - b(k,274) = b(k,274) - lu(k,1453) * b(k,250) - b(k,252) = b(k,252) - lu(k,1473) * b(k,251) - b(k,257) = b(k,257) - lu(k,1474) * b(k,251) - b(k,260) = b(k,260) - lu(k,1475) * b(k,251) - b(k,261) = b(k,261) - lu(k,1476) * b(k,251) - b(k,263) = b(k,263) - lu(k,1477) * b(k,251) - b(k,264) = b(k,264) - lu(k,1478) * b(k,251) - b(k,265) = b(k,265) - lu(k,1479) * b(k,251) - b(k,266) = b(k,266) - lu(k,1480) * b(k,251) - b(k,269) = b(k,269) - lu(k,1481) * b(k,251) - b(k,270) = b(k,270) - lu(k,1482) * b(k,251) - b(k,271) = b(k,271) - lu(k,1483) * b(k,251) - b(k,273) = b(k,273) - lu(k,1484) * b(k,251) - b(k,274) = b(k,274) - lu(k,1485) * b(k,251) - b(k,257) = b(k,257) - lu(k,1495) * b(k,252) - b(k,260) = b(k,260) - lu(k,1496) * b(k,252) - b(k,261) = b(k,261) - lu(k,1497) * b(k,252) - b(k,262) = b(k,262) - lu(k,1498) * b(k,252) - b(k,263) = b(k,263) - lu(k,1499) * b(k,252) - b(k,266) = b(k,266) - lu(k,1500) * b(k,252) - b(k,268) = b(k,268) - lu(k,1501) * b(k,252) - b(k,272) = b(k,272) - lu(k,1502) * b(k,252) - b(k,255) = b(k,255) - lu(k,1506) * b(k,253) - b(k,262) = b(k,262) - lu(k,1507) * b(k,253) - b(k,263) = b(k,263) - lu(k,1508) * b(k,253) - b(k,264) = b(k,264) - lu(k,1509) * b(k,253) - b(k,265) = b(k,265) - lu(k,1510) * b(k,253) - b(k,267) = b(k,267) - lu(k,1511) * b(k,253) - b(k,268) = b(k,268) - lu(k,1512) * b(k,253) - b(k,269) = b(k,269) - lu(k,1513) * b(k,253) - b(k,270) = b(k,270) - lu(k,1514) * b(k,253) - b(k,272) = b(k,272) - lu(k,1515) * b(k,253) - b(k,274) = b(k,274) - lu(k,1516) * b(k,253) - b(k,256) = b(k,256) - lu(k,1521) * b(k,254) - b(k,257) = b(k,257) - lu(k,1522) * b(k,254) - b(k,258) = b(k,258) - lu(k,1523) * b(k,254) - b(k,259) = b(k,259) - lu(k,1524) * b(k,254) - b(k,260) = b(k,260) - lu(k,1525) * b(k,254) - b(k,261) = b(k,261) - lu(k,1526) * b(k,254) - b(k,263) = b(k,263) - lu(k,1527) * b(k,254) - b(k,266) = b(k,266) - lu(k,1528) * b(k,254) - b(k,267) = b(k,267) - lu(k,1529) * b(k,254) - b(k,268) = b(k,268) - lu(k,1530) * b(k,254) - b(k,271) = b(k,271) - lu(k,1531) * b(k,254) - b(k,272) = b(k,272) - lu(k,1532) * b(k,254) - b(k,274) = b(k,274) - lu(k,1533) * b(k,254) - b(k,256) = b(k,256) - lu(k,1540) * b(k,255) - b(k,258) = b(k,258) - lu(k,1541) * b(k,255) - b(k,259) = b(k,259) - lu(k,1542) * b(k,255) - b(k,260) = b(k,260) - lu(k,1543) * b(k,255) - b(k,262) = b(k,262) - lu(k,1544) * b(k,255) - b(k,263) = b(k,263) - lu(k,1545) * b(k,255) - b(k,264) = b(k,264) - lu(k,1546) * b(k,255) - b(k,267) = b(k,267) - lu(k,1547) * b(k,255) - b(k,268) = b(k,268) - lu(k,1548) * b(k,255) - b(k,269) = b(k,269) - lu(k,1549) * b(k,255) - b(k,272) = b(k,272) - lu(k,1550) * b(k,255) - b(k,274) = b(k,274) - lu(k,1551) * b(k,255) - b(k,257) = b(k,257) - lu(k,1556) * b(k,256) - b(k,258) = b(k,258) - lu(k,1557) * b(k,256) - b(k,260) = b(k,260) - lu(k,1558) * b(k,256) - b(k,261) = b(k,261) - lu(k,1559) * b(k,256) - b(k,262) = b(k,262) - lu(k,1560) * b(k,256) - b(k,263) = b(k,263) - lu(k,1561) * b(k,256) - b(k,266) = b(k,266) - lu(k,1562) * b(k,256) - b(k,268) = b(k,268) - lu(k,1563) * b(k,256) - b(k,271) = b(k,271) - lu(k,1564) * b(k,256) - b(k,272) = b(k,272) - lu(k,1565) * b(k,256) - b(k,273) = b(k,273) - lu(k,1566) * b(k,256) - b(k,274) = b(k,274) - lu(k,1567) * b(k,256) + b(k,242) = b(k,242) - lu(k,1241) * b(k,241) + b(k,243) = b(k,243) - lu(k,1242) * b(k,241) + b(k,253) = b(k,253) - lu(k,1243) * b(k,241) + b(k,254) = b(k,254) - lu(k,1244) * b(k,241) + b(k,262) = b(k,262) - lu(k,1245) * b(k,241) + b(k,263) = b(k,263) - lu(k,1246) * b(k,241) + b(k,269) = b(k,269) - lu(k,1247) * b(k,241) + b(k,271) = b(k,271) - lu(k,1248) * b(k,241) + b(k,272) = b(k,272) - lu(k,1249) * b(k,241) + b(k,273) = b(k,273) - lu(k,1250) * b(k,241) + b(k,274) = b(k,274) - lu(k,1251) * b(k,241) + b(k,276) = b(k,276) - lu(k,1252) * b(k,241) + b(k,247) = b(k,247) - lu(k,1254) * b(k,242) + b(k,253) = b(k,253) - lu(k,1255) * b(k,242) + b(k,263) = b(k,263) - lu(k,1256) * b(k,242) + b(k,272) = b(k,272) - lu(k,1257) * b(k,242) + b(k,274) = b(k,274) - lu(k,1258) * b(k,242) + b(k,247) = b(k,247) - lu(k,1263) * b(k,243) + b(k,253) = b(k,253) - lu(k,1264) * b(k,243) + b(k,262) = b(k,262) - lu(k,1265) * b(k,243) + b(k,263) = b(k,263) - lu(k,1266) * b(k,243) + b(k,264) = b(k,264) - lu(k,1267) * b(k,243) + b(k,269) = b(k,269) - lu(k,1268) * b(k,243) + b(k,272) = b(k,272) - lu(k,1269) * b(k,243) + b(k,274) = b(k,274) - lu(k,1270) * b(k,243) + b(k,276) = b(k,276) - lu(k,1271) * b(k,243) + b(k,247) = b(k,247) - lu(k,1279) * b(k,244) + b(k,253) = b(k,253) - lu(k,1280) * b(k,244) + b(k,254) = b(k,254) - lu(k,1281) * b(k,244) + b(k,262) = b(k,262) - lu(k,1282) * b(k,244) + b(k,263) = b(k,263) - lu(k,1283) * b(k,244) + b(k,264) = b(k,264) - lu(k,1284) * b(k,244) + b(k,269) = b(k,269) - lu(k,1285) * b(k,244) + b(k,272) = b(k,272) - lu(k,1286) * b(k,244) + b(k,273) = b(k,273) - lu(k,1287) * b(k,244) + b(k,274) = b(k,274) - lu(k,1288) * b(k,244) + b(k,246) = b(k,246) - lu(k,1299) * b(k,245) + b(k,247) = b(k,247) - lu(k,1300) * b(k,245) + b(k,251) = b(k,251) - lu(k,1301) * b(k,245) + b(k,253) = b(k,253) - lu(k,1302) * b(k,245) + b(k,254) = b(k,254) - lu(k,1303) * b(k,245) + b(k,262) = b(k,262) - lu(k,1304) * b(k,245) + b(k,263) = b(k,263) - lu(k,1305) * b(k,245) + b(k,264) = b(k,264) - lu(k,1306) * b(k,245) + b(k,269) = b(k,269) - lu(k,1307) * b(k,245) + b(k,271) = b(k,271) - lu(k,1308) * b(k,245) + b(k,272) = b(k,272) - lu(k,1309) * b(k,245) + b(k,273) = b(k,273) - lu(k,1310) * b(k,245) + b(k,274) = b(k,274) - lu(k,1311) * b(k,245) + b(k,247) = b(k,247) - lu(k,1315) * b(k,246) + b(k,250) = b(k,250) - lu(k,1316) * b(k,246) + b(k,252) = b(k,252) - lu(k,1317) * b(k,246) + b(k,253) = b(k,253) - lu(k,1318) * b(k,246) + b(k,254) = b(k,254) - lu(k,1319) * b(k,246) + b(k,263) = b(k,263) - lu(k,1320) * b(k,246) + b(k,267) = b(k,267) - lu(k,1321) * b(k,246) + b(k,272) = b(k,272) - lu(k,1322) * b(k,246) + b(k,274) = b(k,274) - lu(k,1323) * b(k,246) + b(k,276) = b(k,276) - lu(k,1324) * b(k,246) + b(k,253) = b(k,253) - lu(k,1327) * b(k,247) + b(k,254) = b(k,254) - lu(k,1328) * b(k,247) + b(k,263) = b(k,263) - lu(k,1329) * b(k,247) + b(k,271) = b(k,271) - lu(k,1330) * b(k,247) + b(k,272) = b(k,272) - lu(k,1331) * b(k,247) + b(k,273) = b(k,273) - lu(k,1332) * b(k,247) + b(k,276) = b(k,276) - lu(k,1333) * b(k,247) + b(k,250) = b(k,250) - lu(k,1345) * b(k,248) + b(k,251) = b(k,251) - lu(k,1346) * b(k,248) + b(k,252) = b(k,252) - lu(k,1347) * b(k,248) + b(k,253) = b(k,253) - lu(k,1348) * b(k,248) + b(k,254) = b(k,254) - lu(k,1349) * b(k,248) + b(k,262) = b(k,262) - lu(k,1350) * b(k,248) + b(k,263) = b(k,263) - lu(k,1351) * b(k,248) + b(k,264) = b(k,264) - lu(k,1352) * b(k,248) + b(k,267) = b(k,267) - lu(k,1353) * b(k,248) + b(k,269) = b(k,269) - lu(k,1354) * b(k,248) + b(k,271) = b(k,271) - lu(k,1355) * b(k,248) + b(k,272) = b(k,272) - lu(k,1356) * b(k,248) + b(k,273) = b(k,273) - lu(k,1357) * b(k,248) + b(k,274) = b(k,274) - lu(k,1358) * b(k,248) + b(k,276) = b(k,276) - lu(k,1359) * b(k,248) + b(k,250) = b(k,250) - lu(k,1378) * b(k,249) + b(k,251) = b(k,251) - lu(k,1379) * b(k,249) + b(k,252) = b(k,252) - lu(k,1380) * b(k,249) + b(k,253) = b(k,253) - lu(k,1381) * b(k,249) + b(k,254) = b(k,254) - lu(k,1382) * b(k,249) + b(k,262) = b(k,262) - lu(k,1383) * b(k,249) + b(k,263) = b(k,263) - lu(k,1384) * b(k,249) + b(k,264) = b(k,264) - lu(k,1385) * b(k,249) + b(k,267) = b(k,267) - lu(k,1386) * b(k,249) + b(k,269) = b(k,269) - lu(k,1387) * b(k,249) + b(k,271) = b(k,271) - lu(k,1388) * b(k,249) + b(k,272) = b(k,272) - lu(k,1389) * b(k,249) + b(k,273) = b(k,273) - lu(k,1390) * b(k,249) + b(k,274) = b(k,274) - lu(k,1391) * b(k,249) + b(k,276) = b(k,276) - lu(k,1392) * b(k,249) + b(k,252) = b(k,252) - lu(k,1402) * b(k,250) + b(k,253) = b(k,253) - lu(k,1403) * b(k,250) + b(k,254) = b(k,254) - lu(k,1404) * b(k,250) + b(k,262) = b(k,262) - lu(k,1405) * b(k,250) + b(k,263) = b(k,263) - lu(k,1406) * b(k,250) + b(k,264) = b(k,264) - lu(k,1407) * b(k,250) + b(k,269) = b(k,269) - lu(k,1408) * b(k,250) + b(k,271) = b(k,271) - lu(k,1409) * b(k,250) + b(k,272) = b(k,272) - lu(k,1410) * b(k,250) + b(k,273) = b(k,273) - lu(k,1411) * b(k,250) + b(k,274) = b(k,274) - lu(k,1412) * b(k,250) + b(k,276) = b(k,276) - lu(k,1413) * b(k,250) + b(k,252) = b(k,252) - lu(k,1422) * b(k,251) + b(k,253) = b(k,253) - lu(k,1423) * b(k,251) + b(k,254) = b(k,254) - lu(k,1424) * b(k,251) + b(k,259) = b(k,259) - lu(k,1425) * b(k,251) + b(k,261) = b(k,261) - lu(k,1426) * b(k,251) + b(k,262) = b(k,262) - lu(k,1427) * b(k,251) + b(k,263) = b(k,263) - lu(k,1428) * b(k,251) + b(k,264) = b(k,264) - lu(k,1429) * b(k,251) + b(k,267) = b(k,267) - lu(k,1430) * b(k,251) + b(k,269) = b(k,269) - lu(k,1431) * b(k,251) + b(k,271) = b(k,271) - lu(k,1432) * b(k,251) + b(k,272) = b(k,272) - lu(k,1433) * b(k,251) + b(k,273) = b(k,273) - lu(k,1434) * b(k,251) + b(k,274) = b(k,274) - lu(k,1435) * b(k,251) + b(k,276) = b(k,276) - lu(k,1436) * b(k,251) + b(k,253) = b(k,253) - lu(k,1443) * b(k,252) + b(k,254) = b(k,254) - lu(k,1444) * b(k,252) + b(k,262) = b(k,262) - lu(k,1445) * b(k,252) + b(k,263) = b(k,263) - lu(k,1446) * b(k,252) + b(k,264) = b(k,264) - lu(k,1447) * b(k,252) + b(k,267) = b(k,267) - lu(k,1448) * b(k,252) + b(k,269) = b(k,269) - lu(k,1449) * b(k,252) + b(k,271) = b(k,271) - lu(k,1450) * b(k,252) + b(k,272) = b(k,272) - lu(k,1451) * b(k,252) + b(k,273) = b(k,273) - lu(k,1452) * b(k,252) + b(k,274) = b(k,274) - lu(k,1453) * b(k,252) + b(k,276) = b(k,276) - lu(k,1454) * b(k,252) + b(k,254) = b(k,254) - lu(k,1474) * b(k,253) + b(k,259) = b(k,259) - lu(k,1475) * b(k,253) + b(k,261) = b(k,261) - lu(k,1476) * b(k,253) + b(k,262) = b(k,262) - lu(k,1477) * b(k,253) + b(k,263) = b(k,263) - lu(k,1478) * b(k,253) + b(k,264) = b(k,264) - lu(k,1479) * b(k,253) + b(k,267) = b(k,267) - lu(k,1480) * b(k,253) + b(k,269) = b(k,269) - lu(k,1481) * b(k,253) + b(k,271) = b(k,271) - lu(k,1482) * b(k,253) + b(k,272) = b(k,272) - lu(k,1483) * b(k,253) + b(k,273) = b(k,273) - lu(k,1484) * b(k,253) + b(k,274) = b(k,274) - lu(k,1485) * b(k,253) + b(k,276) = b(k,276) - lu(k,1486) * b(k,253) + b(k,259) = b(k,259) - lu(k,1496) * b(k,254) + b(k,262) = b(k,262) - lu(k,1497) * b(k,254) + b(k,263) = b(k,263) - lu(k,1498) * b(k,254) + b(k,264) = b(k,264) - lu(k,1499) * b(k,254) + b(k,266) = b(k,266) - lu(k,1500) * b(k,254) + b(k,268) = b(k,268) - lu(k,1501) * b(k,254) + b(k,270) = b(k,270) - lu(k,1502) * b(k,254) + b(k,272) = b(k,272) - lu(k,1503) * b(k,254) + b(k,257) = b(k,257) - lu(k,1507) * b(k,255) + b(k,261) = b(k,261) - lu(k,1508) * b(k,255) + b(k,263) = b(k,263) - lu(k,1509) * b(k,255) + b(k,265) = b(k,265) - lu(k,1510) * b(k,255) + b(k,266) = b(k,266) - lu(k,1511) * b(k,255) + b(k,268) = b(k,268) - lu(k,1512) * b(k,255) + b(k,269) = b(k,269) - lu(k,1513) * b(k,255) + b(k,270) = b(k,270) - lu(k,1514) * b(k,255) + b(k,271) = b(k,271) - lu(k,1515) * b(k,255) + b(k,273) = b(k,273) - lu(k,1516) * b(k,255) + b(k,276) = b(k,276) - lu(k,1517) * b(k,255) + b(k,258) = b(k,258) - lu(k,1522) * b(k,256) + b(k,259) = b(k,259) - lu(k,1523) * b(k,256) + b(k,260) = b(k,260) - lu(k,1524) * b(k,256) + b(k,262) = b(k,262) - lu(k,1525) * b(k,256) + b(k,263) = b(k,263) - lu(k,1526) * b(k,256) + b(k,264) = b(k,264) - lu(k,1527) * b(k,256) + b(k,265) = b(k,265) - lu(k,1528) * b(k,256) + b(k,266) = b(k,266) - lu(k,1529) * b(k,256) + b(k,267) = b(k,267) - lu(k,1530) * b(k,256) + b(k,268) = b(k,268) - lu(k,1531) * b(k,256) + b(k,272) = b(k,272) - lu(k,1532) * b(k,256) + b(k,275) = b(k,275) - lu(k,1533) * b(k,256) + b(k,276) = b(k,276) - lu(k,1534) * b(k,256) + b(k,258) = b(k,258) - lu(k,1541) * b(k,257) + b(k,260) = b(k,260) - lu(k,1542) * b(k,257) + b(k,262) = b(k,262) - lu(k,1543) * b(k,257) + b(k,263) = b(k,263) - lu(k,1544) * b(k,257) + b(k,265) = b(k,265) - lu(k,1545) * b(k,257) + b(k,266) = b(k,266) - lu(k,1546) * b(k,257) + b(k,268) = b(k,268) - lu(k,1547) * b(k,257) + b(k,270) = b(k,270) - lu(k,1548) * b(k,257) + b(k,271) = b(k,271) - lu(k,1549) * b(k,257) + b(k,273) = b(k,273) - lu(k,1550) * b(k,257) + b(k,275) = b(k,275) - lu(k,1551) * b(k,257) + b(k,276) = b(k,276) - lu(k,1552) * b(k,257) + b(k,259) = b(k,259) - lu(k,1557) * b(k,258) + b(k,260) = b(k,260) - lu(k,1558) * b(k,258) + b(k,262) = b(k,262) - lu(k,1559) * b(k,258) + b(k,263) = b(k,263) - lu(k,1560) * b(k,258) + b(k,264) = b(k,264) - lu(k,1561) * b(k,258) + b(k,266) = b(k,266) - lu(k,1562) * b(k,258) + b(k,267) = b(k,267) - lu(k,1563) * b(k,258) + b(k,268) = b(k,268) - lu(k,1564) * b(k,258) + b(k,270) = b(k,270) - lu(k,1565) * b(k,258) + b(k,272) = b(k,272) - lu(k,1566) * b(k,258) + b(k,274) = b(k,274) - lu(k,1567) * b(k,258) + b(k,276) = b(k,276) - lu(k,1568) * b(k,258) end do end subroutine lu_slv05 subroutine lu_slv06( avec_len, lu, b ) @@ -1150,152 +1150,153 @@ subroutine lu_slv06( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,258) = b(k,258) - lu(k,1587) * b(k,257) - b(k,259) = b(k,259) - lu(k,1588) * b(k,257) - b(k,260) = b(k,260) - lu(k,1589) * b(k,257) - b(k,261) = b(k,261) - lu(k,1590) * b(k,257) - b(k,262) = b(k,262) - lu(k,1591) * b(k,257) - b(k,263) = b(k,263) - lu(k,1592) * b(k,257) - b(k,266) = b(k,266) - lu(k,1593) * b(k,257) - b(k,267) = b(k,267) - lu(k,1594) * b(k,257) - b(k,268) = b(k,268) - lu(k,1595) * b(k,257) - b(k,271) = b(k,271) - lu(k,1596) * b(k,257) - b(k,272) = b(k,272) - lu(k,1597) * b(k,257) - b(k,273) = b(k,273) - lu(k,1598) * b(k,257) - b(k,274) = b(k,274) - lu(k,1599) * b(k,257) - b(k,259) = b(k,259) - lu(k,1610) * b(k,258) - b(k,260) = b(k,260) - lu(k,1611) * b(k,258) - b(k,261) = b(k,261) - lu(k,1612) * b(k,258) - b(k,262) = b(k,262) - lu(k,1613) * b(k,258) - b(k,263) = b(k,263) - lu(k,1614) * b(k,258) - b(k,264) = b(k,264) - lu(k,1615) * b(k,258) - b(k,266) = b(k,266) - lu(k,1616) * b(k,258) - b(k,267) = b(k,267) - lu(k,1617) * b(k,258) - b(k,268) = b(k,268) - lu(k,1618) * b(k,258) - b(k,269) = b(k,269) - lu(k,1619) * b(k,258) - b(k,271) = b(k,271) - lu(k,1620) * b(k,258) - b(k,272) = b(k,272) - lu(k,1621) * b(k,258) - b(k,273) = b(k,273) - lu(k,1622) * b(k,258) - b(k,274) = b(k,274) - lu(k,1623) * b(k,258) - b(k,260) = b(k,260) - lu(k,1637) * b(k,259) - b(k,261) = b(k,261) - lu(k,1638) * b(k,259) - b(k,262) = b(k,262) - lu(k,1639) * b(k,259) - b(k,263) = b(k,263) - lu(k,1640) * b(k,259) - b(k,264) = b(k,264) - lu(k,1641) * b(k,259) - b(k,266) = b(k,266) - lu(k,1642) * b(k,259) - b(k,267) = b(k,267) - lu(k,1643) * b(k,259) - b(k,268) = b(k,268) - lu(k,1644) * b(k,259) - b(k,269) = b(k,269) - lu(k,1645) * b(k,259) - b(k,270) = b(k,270) - lu(k,1646) * b(k,259) - b(k,271) = b(k,271) - lu(k,1647) * b(k,259) - b(k,272) = b(k,272) - lu(k,1648) * b(k,259) - b(k,273) = b(k,273) - lu(k,1649) * b(k,259) - b(k,274) = b(k,274) - lu(k,1650) * b(k,259) - b(k,261) = b(k,261) - lu(k,1682) * b(k,260) - b(k,262) = b(k,262) - lu(k,1683) * b(k,260) - b(k,263) = b(k,263) - lu(k,1684) * b(k,260) - b(k,264) = b(k,264) - lu(k,1685) * b(k,260) - b(k,265) = b(k,265) - lu(k,1686) * b(k,260) - b(k,266) = b(k,266) - lu(k,1687) * b(k,260) - b(k,267) = b(k,267) - lu(k,1688) * b(k,260) - b(k,268) = b(k,268) - lu(k,1689) * b(k,260) - b(k,269) = b(k,269) - lu(k,1690) * b(k,260) - b(k,270) = b(k,270) - lu(k,1691) * b(k,260) - b(k,271) = b(k,271) - lu(k,1692) * b(k,260) - b(k,272) = b(k,272) - lu(k,1693) * b(k,260) - b(k,273) = b(k,273) - lu(k,1694) * b(k,260) - b(k,274) = b(k,274) - lu(k,1695) * b(k,260) - b(k,262) = b(k,262) - lu(k,1789) * b(k,261) - b(k,263) = b(k,263) - lu(k,1790) * b(k,261) - b(k,264) = b(k,264) - lu(k,1791) * b(k,261) - b(k,265) = b(k,265) - lu(k,1792) * b(k,261) - b(k,266) = b(k,266) - lu(k,1793) * b(k,261) - b(k,267) = b(k,267) - lu(k,1794) * b(k,261) - b(k,268) = b(k,268) - lu(k,1795) * b(k,261) - b(k,269) = b(k,269) - lu(k,1796) * b(k,261) - b(k,270) = b(k,270) - lu(k,1797) * b(k,261) - b(k,271) = b(k,271) - lu(k,1798) * b(k,261) - b(k,272) = b(k,272) - lu(k,1799) * b(k,261) - b(k,273) = b(k,273) - lu(k,1800) * b(k,261) - b(k,274) = b(k,274) - lu(k,1801) * b(k,261) - b(k,263) = b(k,263) - lu(k,1833) * b(k,262) - b(k,264) = b(k,264) - lu(k,1834) * b(k,262) - b(k,265) = b(k,265) - lu(k,1835) * b(k,262) - b(k,266) = b(k,266) - lu(k,1836) * b(k,262) - b(k,267) = b(k,267) - lu(k,1837) * b(k,262) - b(k,268) = b(k,268) - lu(k,1838) * b(k,262) - b(k,269) = b(k,269) - lu(k,1839) * b(k,262) - b(k,270) = b(k,270) - lu(k,1840) * b(k,262) - b(k,271) = b(k,271) - lu(k,1841) * b(k,262) - b(k,272) = b(k,272) - lu(k,1842) * b(k,262) - b(k,273) = b(k,273) - lu(k,1843) * b(k,262) - b(k,274) = b(k,274) - lu(k,1844) * b(k,262) - b(k,264) = b(k,264) - lu(k,2007) * b(k,263) - b(k,265) = b(k,265) - lu(k,2008) * b(k,263) - b(k,266) = b(k,266) - lu(k,2009) * b(k,263) - b(k,267) = b(k,267) - lu(k,2010) * b(k,263) - b(k,268) = b(k,268) - lu(k,2011) * b(k,263) - b(k,269) = b(k,269) - lu(k,2012) * b(k,263) - b(k,270) = b(k,270) - lu(k,2013) * b(k,263) - b(k,271) = b(k,271) - lu(k,2014) * b(k,263) - b(k,272) = b(k,272) - lu(k,2015) * b(k,263) - b(k,273) = b(k,273) - lu(k,2016) * b(k,263) - b(k,274) = b(k,274) - lu(k,2017) * b(k,263) - b(k,265) = b(k,265) - lu(k,2068) * b(k,264) - b(k,266) = b(k,266) - lu(k,2069) * b(k,264) - b(k,267) = b(k,267) - lu(k,2070) * b(k,264) - b(k,268) = b(k,268) - lu(k,2071) * b(k,264) - b(k,269) = b(k,269) - lu(k,2072) * b(k,264) - b(k,270) = b(k,270) - lu(k,2073) * b(k,264) - b(k,271) = b(k,271) - lu(k,2074) * b(k,264) - b(k,272) = b(k,272) - lu(k,2075) * b(k,264) - b(k,273) = b(k,273) - lu(k,2076) * b(k,264) - b(k,274) = b(k,274) - lu(k,2077) * b(k,264) - b(k,266) = b(k,266) - lu(k,2094) * b(k,265) - b(k,267) = b(k,267) - lu(k,2095) * b(k,265) - b(k,268) = b(k,268) - lu(k,2096) * b(k,265) - b(k,269) = b(k,269) - lu(k,2097) * b(k,265) - b(k,270) = b(k,270) - lu(k,2098) * b(k,265) - b(k,271) = b(k,271) - lu(k,2099) * b(k,265) - b(k,272) = b(k,272) - lu(k,2100) * b(k,265) - b(k,273) = b(k,273) - lu(k,2101) * b(k,265) - b(k,274) = b(k,274) - lu(k,2102) * b(k,265) - b(k,267) = b(k,267) - lu(k,2215) * b(k,266) - b(k,268) = b(k,268) - lu(k,2216) * b(k,266) - b(k,269) = b(k,269) - lu(k,2217) * b(k,266) - b(k,270) = b(k,270) - lu(k,2218) * b(k,266) - b(k,271) = b(k,271) - lu(k,2219) * b(k,266) - b(k,272) = b(k,272) - lu(k,2220) * b(k,266) - b(k,273) = b(k,273) - lu(k,2221) * b(k,266) - b(k,274) = b(k,274) - lu(k,2222) * b(k,266) - b(k,268) = b(k,268) - lu(k,2262) * b(k,267) - b(k,269) = b(k,269) - lu(k,2263) * b(k,267) - b(k,270) = b(k,270) - lu(k,2264) * b(k,267) - b(k,271) = b(k,271) - lu(k,2265) * b(k,267) - b(k,272) = b(k,272) - lu(k,2266) * b(k,267) - b(k,273) = b(k,273) - lu(k,2267) * b(k,267) - b(k,274) = b(k,274) - lu(k,2268) * b(k,267) - b(k,269) = b(k,269) - lu(k,2284) * b(k,268) - b(k,270) = b(k,270) - lu(k,2285) * b(k,268) - b(k,271) = b(k,271) - lu(k,2286) * b(k,268) - b(k,272) = b(k,272) - lu(k,2287) * b(k,268) - b(k,273) = b(k,273) - lu(k,2288) * b(k,268) - b(k,274) = b(k,274) - lu(k,2289) * b(k,268) - b(k,270) = b(k,270) - lu(k,2308) * b(k,269) - b(k,271) = b(k,271) - lu(k,2309) * b(k,269) - b(k,272) = b(k,272) - lu(k,2310) * b(k,269) - b(k,273) = b(k,273) - lu(k,2311) * b(k,269) - b(k,274) = b(k,274) - lu(k,2312) * b(k,269) - b(k,271) = b(k,271) - lu(k,2361) * b(k,270) - b(k,272) = b(k,272) - lu(k,2362) * b(k,270) - b(k,273) = b(k,273) - lu(k,2363) * b(k,270) - b(k,274) = b(k,274) - lu(k,2364) * b(k,270) - b(k,272) = b(k,272) - lu(k,2426) * b(k,271) - b(k,273) = b(k,273) - lu(k,2427) * b(k,271) - b(k,274) = b(k,274) - lu(k,2428) * b(k,271) - b(k,273) = b(k,273) - lu(k,2470) * b(k,272) - b(k,274) = b(k,274) - lu(k,2471) * b(k,272) - b(k,274) = b(k,274) - lu(k,2497) * b(k,273) + b(k,260) = b(k,260) - lu(k,1588) * b(k,259) + b(k,262) = b(k,262) - lu(k,1589) * b(k,259) + b(k,263) = b(k,263) - lu(k,1590) * b(k,259) + b(k,264) = b(k,264) - lu(k,1591) * b(k,259) + b(k,265) = b(k,265) - lu(k,1592) * b(k,259) + b(k,266) = b(k,266) - lu(k,1593) * b(k,259) + b(k,267) = b(k,267) - lu(k,1594) * b(k,259) + b(k,268) = b(k,268) - lu(k,1595) * b(k,259) + b(k,270) = b(k,270) - lu(k,1596) * b(k,259) + b(k,272) = b(k,272) - lu(k,1597) * b(k,259) + b(k,274) = b(k,274) - lu(k,1598) * b(k,259) + b(k,275) = b(k,275) - lu(k,1599) * b(k,259) + b(k,276) = b(k,276) - lu(k,1600) * b(k,259) + b(k,262) = b(k,262) - lu(k,1611) * b(k,260) + b(k,263) = b(k,263) - lu(k,1612) * b(k,260) + b(k,264) = b(k,264) - lu(k,1613) * b(k,260) + b(k,265) = b(k,265) - lu(k,1614) * b(k,260) + b(k,266) = b(k,266) - lu(k,1615) * b(k,260) + b(k,267) = b(k,267) - lu(k,1616) * b(k,260) + b(k,268) = b(k,268) - lu(k,1617) * b(k,260) + b(k,270) = b(k,270) - lu(k,1618) * b(k,260) + b(k,271) = b(k,271) - lu(k,1619) * b(k,260) + b(k,272) = b(k,272) - lu(k,1620) * b(k,260) + b(k,273) = b(k,273) - lu(k,1621) * b(k,260) + b(k,274) = b(k,274) - lu(k,1622) * b(k,260) + b(k,275) = b(k,275) - lu(k,1623) * b(k,260) + b(k,276) = b(k,276) - lu(k,1624) * b(k,260) + b(k,262) = b(k,262) - lu(k,1635) * b(k,261) + b(k,263) = b(k,263) - lu(k,1636) * b(k,261) + b(k,264) = b(k,264) - lu(k,1637) * b(k,261) + b(k,265) = b(k,265) - lu(k,1638) * b(k,261) + b(k,266) = b(k,266) - lu(k,1639) * b(k,261) + b(k,267) = b(k,267) - lu(k,1640) * b(k,261) + b(k,268) = b(k,268) - lu(k,1641) * b(k,261) + b(k,269) = b(k,269) - lu(k,1642) * b(k,261) + b(k,270) = b(k,270) - lu(k,1643) * b(k,261) + b(k,271) = b(k,271) - lu(k,1644) * b(k,261) + b(k,272) = b(k,272) - lu(k,1645) * b(k,261) + b(k,273) = b(k,273) - lu(k,1646) * b(k,261) + b(k,274) = b(k,274) - lu(k,1647) * b(k,261) + b(k,275) = b(k,275) - lu(k,1648) * b(k,261) + b(k,276) = b(k,276) - lu(k,1649) * b(k,261) + b(k,263) = b(k,263) - lu(k,1681) * b(k,262) + b(k,264) = b(k,264) - lu(k,1682) * b(k,262) + b(k,265) = b(k,265) - lu(k,1683) * b(k,262) + b(k,266) = b(k,266) - lu(k,1684) * b(k,262) + b(k,267) = b(k,267) - lu(k,1685) * b(k,262) + b(k,268) = b(k,268) - lu(k,1686) * b(k,262) + b(k,269) = b(k,269) - lu(k,1687) * b(k,262) + b(k,270) = b(k,270) - lu(k,1688) * b(k,262) + b(k,271) = b(k,271) - lu(k,1689) * b(k,262) + b(k,272) = b(k,272) - lu(k,1690) * b(k,262) + b(k,273) = b(k,273) - lu(k,1691) * b(k,262) + b(k,274) = b(k,274) - lu(k,1692) * b(k,262) + b(k,275) = b(k,275) - lu(k,1693) * b(k,262) + b(k,276) = b(k,276) - lu(k,1694) * b(k,262) + b(k,264) = b(k,264) - lu(k,1855) * b(k,263) + b(k,265) = b(k,265) - lu(k,1856) * b(k,263) + b(k,266) = b(k,266) - lu(k,1857) * b(k,263) + b(k,267) = b(k,267) - lu(k,1858) * b(k,263) + b(k,268) = b(k,268) - lu(k,1859) * b(k,263) + b(k,269) = b(k,269) - lu(k,1860) * b(k,263) + b(k,270) = b(k,270) - lu(k,1861) * b(k,263) + b(k,271) = b(k,271) - lu(k,1862) * b(k,263) + b(k,272) = b(k,272) - lu(k,1863) * b(k,263) + b(k,273) = b(k,273) - lu(k,1864) * b(k,263) + b(k,274) = b(k,274) - lu(k,1865) * b(k,263) + b(k,275) = b(k,275) - lu(k,1866) * b(k,263) + b(k,276) = b(k,276) - lu(k,1867) * b(k,263) + b(k,265) = b(k,265) - lu(k,1963) * b(k,264) + b(k,266) = b(k,266) - lu(k,1964) * b(k,264) + b(k,267) = b(k,267) - lu(k,1965) * b(k,264) + b(k,268) = b(k,268) - lu(k,1966) * b(k,264) + b(k,269) = b(k,269) - lu(k,1967) * b(k,264) + b(k,270) = b(k,270) - lu(k,1968) * b(k,264) + b(k,271) = b(k,271) - lu(k,1969) * b(k,264) + b(k,272) = b(k,272) - lu(k,1970) * b(k,264) + b(k,273) = b(k,273) - lu(k,1971) * b(k,264) + b(k,274) = b(k,274) - lu(k,1972) * b(k,264) + b(k,275) = b(k,275) - lu(k,1973) * b(k,264) + b(k,276) = b(k,276) - lu(k,1974) * b(k,264) + b(k,266) = b(k,266) - lu(k,2010) * b(k,265) + b(k,267) = b(k,267) - lu(k,2011) * b(k,265) + b(k,268) = b(k,268) - lu(k,2012) * b(k,265) + b(k,269) = b(k,269) - lu(k,2013) * b(k,265) + b(k,270) = b(k,270) - lu(k,2014) * b(k,265) + b(k,271) = b(k,271) - lu(k,2015) * b(k,265) + b(k,272) = b(k,272) - lu(k,2016) * b(k,265) + b(k,273) = b(k,273) - lu(k,2017) * b(k,265) + b(k,274) = b(k,274) - lu(k,2018) * b(k,265) + b(k,275) = b(k,275) - lu(k,2019) * b(k,265) + b(k,276) = b(k,276) - lu(k,2020) * b(k,265) + b(k,267) = b(k,267) - lu(k,2054) * b(k,266) + b(k,268) = b(k,268) - lu(k,2055) * b(k,266) + b(k,269) = b(k,269) - lu(k,2056) * b(k,266) + b(k,270) = b(k,270) - lu(k,2057) * b(k,266) + b(k,271) = b(k,271) - lu(k,2058) * b(k,266) + b(k,272) = b(k,272) - lu(k,2059) * b(k,266) + b(k,273) = b(k,273) - lu(k,2060) * b(k,266) + b(k,274) = b(k,274) - lu(k,2061) * b(k,266) + b(k,275) = b(k,275) - lu(k,2062) * b(k,266) + b(k,276) = b(k,276) - lu(k,2063) * b(k,266) + b(k,268) = b(k,268) - lu(k,2119) * b(k,267) + b(k,269) = b(k,269) - lu(k,2120) * b(k,267) + b(k,270) = b(k,270) - lu(k,2121) * b(k,267) + b(k,271) = b(k,271) - lu(k,2122) * b(k,267) + b(k,272) = b(k,272) - lu(k,2123) * b(k,267) + b(k,273) = b(k,273) - lu(k,2124) * b(k,267) + b(k,274) = b(k,274) - lu(k,2125) * b(k,267) + b(k,275) = b(k,275) - lu(k,2126) * b(k,267) + b(k,276) = b(k,276) - lu(k,2127) * b(k,267) + b(k,269) = b(k,269) - lu(k,2141) * b(k,268) + b(k,270) = b(k,270) - lu(k,2142) * b(k,268) + b(k,271) = b(k,271) - lu(k,2143) * b(k,268) + b(k,272) = b(k,272) - lu(k,2144) * b(k,268) + b(k,273) = b(k,273) - lu(k,2145) * b(k,268) + b(k,274) = b(k,274) - lu(k,2146) * b(k,268) + b(k,275) = b(k,275) - lu(k,2147) * b(k,268) + b(k,276) = b(k,276) - lu(k,2148) * b(k,268) + b(k,270) = b(k,270) - lu(k,2194) * b(k,269) + b(k,271) = b(k,271) - lu(k,2195) * b(k,269) + b(k,272) = b(k,272) - lu(k,2196) * b(k,269) + b(k,273) = b(k,273) - lu(k,2197) * b(k,269) + b(k,274) = b(k,274) - lu(k,2198) * b(k,269) + b(k,275) = b(k,275) - lu(k,2199) * b(k,269) + b(k,276) = b(k,276) - lu(k,2200) * b(k,269) + b(k,271) = b(k,271) - lu(k,2238) * b(k,270) + b(k,272) = b(k,272) - lu(k,2239) * b(k,270) + b(k,273) = b(k,273) - lu(k,2240) * b(k,270) + b(k,274) = b(k,274) - lu(k,2241) * b(k,270) + b(k,275) = b(k,275) - lu(k,2242) * b(k,270) + b(k,276) = b(k,276) - lu(k,2243) * b(k,270) + b(k,272) = b(k,272) - lu(k,2262) * b(k,271) + b(k,273) = b(k,273) - lu(k,2263) * b(k,271) + b(k,274) = b(k,274) - lu(k,2264) * b(k,271) + b(k,275) = b(k,275) - lu(k,2265) * b(k,271) + b(k,276) = b(k,276) - lu(k,2266) * b(k,271) + b(k,273) = b(k,273) - lu(k,2383) * b(k,272) + b(k,274) = b(k,274) - lu(k,2384) * b(k,272) + b(k,275) = b(k,275) - lu(k,2385) * b(k,272) + b(k,276) = b(k,276) - lu(k,2386) * b(k,272) + b(k,274) = b(k,274) - lu(k,2444) * b(k,273) + b(k,275) = b(k,275) - lu(k,2445) * b(k,273) + b(k,276) = b(k,276) - lu(k,2446) * b(k,273) + b(k,275) = b(k,275) - lu(k,2471) * b(k,274) + b(k,276) = b(k,276) - lu(k,2472) * b(k,274) + b(k,276) = b(k,276) - lu(k,2499) * b(k,275) end do end subroutine lu_slv06 subroutine lu_slv07( avec_len, lu, b ) @@ -1319,208 +1320,256 @@ subroutine lu_slv07( avec_len, lu, b ) !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,274) = b(k,274) * lu(k,2524) - b(k,273) = b(k,273) - lu(k,2523) * b(k,274) - b(k,272) = b(k,272) - lu(k,2522) * b(k,274) - b(k,271) = b(k,271) - lu(k,2521) * b(k,274) - b(k,270) = b(k,270) - lu(k,2520) * b(k,274) - b(k,269) = b(k,269) - lu(k,2519) * b(k,274) - b(k,268) = b(k,268) - lu(k,2518) * b(k,274) - b(k,267) = b(k,267) - lu(k,2517) * b(k,274) - b(k,266) = b(k,266) - lu(k,2516) * b(k,274) - b(k,265) = b(k,265) - lu(k,2515) * b(k,274) - b(k,264) = b(k,264) - lu(k,2514) * b(k,274) - b(k,263) = b(k,263) - lu(k,2513) * b(k,274) - b(k,262) = b(k,262) - lu(k,2512) * b(k,274) - b(k,261) = b(k,261) - lu(k,2511) * b(k,274) - b(k,260) = b(k,260) - lu(k,2510) * b(k,274) - b(k,259) = b(k,259) - lu(k,2509) * b(k,274) - b(k,258) = b(k,258) - lu(k,2508) * b(k,274) - b(k,257) = b(k,257) - lu(k,2507) * b(k,274) - b(k,256) = b(k,256) - lu(k,2506) * b(k,274) - b(k,255) = b(k,255) - lu(k,2505) * b(k,274) - b(k,254) = b(k,254) - lu(k,2504) * b(k,274) - b(k,253) = b(k,253) - lu(k,2503) * b(k,274) - b(k,221) = b(k,221) - lu(k,2502) * b(k,274) - b(k,219) = b(k,219) - lu(k,2501) * b(k,274) - b(k,137) = b(k,137) - lu(k,2500) * b(k,274) - b(k,129) = b(k,129) - lu(k,2499) * b(k,274) - b(k,99) = b(k,99) - lu(k,2498) * b(k,274) - b(k,273) = b(k,273) * lu(k,2496) - b(k,272) = b(k,272) - lu(k,2495) * b(k,273) - b(k,271) = b(k,271) - lu(k,2494) * b(k,273) - b(k,270) = b(k,270) - lu(k,2493) * b(k,273) - b(k,269) = b(k,269) - lu(k,2492) * b(k,273) - b(k,268) = b(k,268) - lu(k,2491) * b(k,273) - b(k,267) = b(k,267) - lu(k,2490) * b(k,273) - b(k,266) = b(k,266) - lu(k,2489) * b(k,273) - b(k,265) = b(k,265) - lu(k,2488) * b(k,273) - b(k,264) = b(k,264) - lu(k,2487) * b(k,273) - b(k,263) = b(k,263) - lu(k,2486) * b(k,273) - b(k,262) = b(k,262) - lu(k,2485) * b(k,273) - b(k,261) = b(k,261) - lu(k,2484) * b(k,273) - b(k,260) = b(k,260) - lu(k,2483) * b(k,273) - b(k,259) = b(k,259) - lu(k,2482) * b(k,273) - b(k,258) = b(k,258) - lu(k,2481) * b(k,273) - b(k,257) = b(k,257) - lu(k,2480) * b(k,273) - b(k,256) = b(k,256) - lu(k,2479) * b(k,273) - b(k,255) = b(k,255) - lu(k,2478) * b(k,273) - b(k,253) = b(k,253) - lu(k,2477) * b(k,273) - b(k,252) = b(k,252) - lu(k,2476) * b(k,273) - b(k,236) = b(k,236) - lu(k,2475) * b(k,273) - b(k,216) = b(k,216) - lu(k,2474) * b(k,273) - b(k,210) = b(k,210) - lu(k,2473) * b(k,273) - b(k,161) = b(k,161) - lu(k,2472) * b(k,273) - b(k,272) = b(k,272) * lu(k,2469) - b(k,271) = b(k,271) - lu(k,2468) * b(k,272) - b(k,270) = b(k,270) - lu(k,2467) * b(k,272) - b(k,269) = b(k,269) - lu(k,2466) * b(k,272) - b(k,268) = b(k,268) - lu(k,2465) * b(k,272) - b(k,267) = b(k,267) - lu(k,2464) * b(k,272) - b(k,266) = b(k,266) - lu(k,2463) * b(k,272) - b(k,265) = b(k,265) - lu(k,2462) * b(k,272) - b(k,264) = b(k,264) - lu(k,2461) * b(k,272) - b(k,263) = b(k,263) - lu(k,2460) * b(k,272) - b(k,262) = b(k,262) - lu(k,2459) * b(k,272) - b(k,261) = b(k,261) - lu(k,2458) * b(k,272) - b(k,260) = b(k,260) - lu(k,2457) * b(k,272) - b(k,259) = b(k,259) - lu(k,2456) * b(k,272) - b(k,258) = b(k,258) - lu(k,2455) * b(k,272) - b(k,257) = b(k,257) - lu(k,2454) * b(k,272) - b(k,256) = b(k,256) - lu(k,2453) * b(k,272) - b(k,255) = b(k,255) - lu(k,2452) * b(k,272) - b(k,254) = b(k,254) - lu(k,2451) * b(k,272) - b(k,253) = b(k,253) - lu(k,2450) * b(k,272) - b(k,252) = b(k,252) - lu(k,2449) * b(k,272) - b(k,236) = b(k,236) - lu(k,2448) * b(k,272) - b(k,224) = b(k,224) - lu(k,2447) * b(k,272) - b(k,223) = b(k,223) - lu(k,2446) * b(k,272) - b(k,221) = b(k,221) - lu(k,2445) * b(k,272) - b(k,213) = b(k,213) - lu(k,2444) * b(k,272) - b(k,212) = b(k,212) - lu(k,2443) * b(k,272) - b(k,211) = b(k,211) - lu(k,2442) * b(k,272) - b(k,210) = b(k,210) - lu(k,2441) * b(k,272) - b(k,209) = b(k,209) - lu(k,2440) * b(k,272) - b(k,206) = b(k,206) - lu(k,2439) * b(k,272) - b(k,205) = b(k,205) - lu(k,2438) * b(k,272) - b(k,199) = b(k,199) - lu(k,2437) * b(k,272) - b(k,195) = b(k,195) - lu(k,2436) * b(k,272) - b(k,184) = b(k,184) - lu(k,2435) * b(k,272) - b(k,179) = b(k,179) - lu(k,2434) * b(k,272) - b(k,175) = b(k,175) - lu(k,2433) * b(k,272) - b(k,171) = b(k,171) - lu(k,2432) * b(k,272) - b(k,150) = b(k,150) - lu(k,2431) * b(k,272) - b(k,111) = b(k,111) - lu(k,2430) * b(k,272) - b(k,110) = b(k,110) - lu(k,2429) * b(k,272) - b(k,271) = b(k,271) * lu(k,2425) - b(k,270) = b(k,270) - lu(k,2424) * b(k,271) - b(k,269) = b(k,269) - lu(k,2423) * b(k,271) - b(k,268) = b(k,268) - lu(k,2422) * b(k,271) - b(k,267) = b(k,267) - lu(k,2421) * b(k,271) - b(k,266) = b(k,266) - lu(k,2420) * b(k,271) - b(k,265) = b(k,265) - lu(k,2419) * b(k,271) - b(k,264) = b(k,264) - lu(k,2418) * b(k,271) - b(k,263) = b(k,263) - lu(k,2417) * b(k,271) - b(k,262) = b(k,262) - lu(k,2416) * b(k,271) - b(k,261) = b(k,261) - lu(k,2415) * b(k,271) - b(k,260) = b(k,260) - lu(k,2414) * b(k,271) - b(k,259) = b(k,259) - lu(k,2413) * b(k,271) - b(k,258) = b(k,258) - lu(k,2412) * b(k,271) - b(k,257) = b(k,257) - lu(k,2411) * b(k,271) - b(k,256) = b(k,256) - lu(k,2410) * b(k,271) - b(k,254) = b(k,254) - lu(k,2409) * b(k,271) - b(k,252) = b(k,252) - lu(k,2408) * b(k,271) - b(k,251) = b(k,251) - lu(k,2407) * b(k,271) - b(k,250) = b(k,250) - lu(k,2406) * b(k,271) - b(k,249) = b(k,249) - lu(k,2405) * b(k,271) - b(k,248) = b(k,248) - lu(k,2404) * b(k,271) - b(k,247) = b(k,247) - lu(k,2403) * b(k,271) - b(k,246) = b(k,246) - lu(k,2402) * b(k,271) - b(k,245) = b(k,245) - lu(k,2401) * b(k,271) - b(k,244) = b(k,244) - lu(k,2400) * b(k,271) - b(k,243) = b(k,243) - lu(k,2399) * b(k,271) - b(k,241) = b(k,241) - lu(k,2398) * b(k,271) - b(k,240) = b(k,240) - lu(k,2397) * b(k,271) - b(k,238) = b(k,238) - lu(k,2396) * b(k,271) - b(k,237) = b(k,237) - lu(k,2395) * b(k,271) - b(k,236) = b(k,236) - lu(k,2394) * b(k,271) - b(k,235) = b(k,235) - lu(k,2393) * b(k,271) - b(k,234) = b(k,234) - lu(k,2392) * b(k,271) - b(k,233) = b(k,233) - lu(k,2391) * b(k,271) - b(k,232) = b(k,232) - lu(k,2390) * b(k,271) - b(k,230) = b(k,230) - lu(k,2389) * b(k,271) - b(k,229) = b(k,229) - lu(k,2388) * b(k,271) - b(k,228) = b(k,228) - lu(k,2387) * b(k,271) - b(k,227) = b(k,227) - lu(k,2386) * b(k,271) - b(k,226) = b(k,226) - lu(k,2385) * b(k,271) - b(k,225) = b(k,225) - lu(k,2384) * b(k,271) - b(k,222) = b(k,222) - lu(k,2383) * b(k,271) - b(k,221) = b(k,221) - lu(k,2382) * b(k,271) - b(k,216) = b(k,216) - lu(k,2381) * b(k,271) - b(k,214) = b(k,214) - lu(k,2380) * b(k,271) - b(k,204) = b(k,204) - lu(k,2379) * b(k,271) - b(k,199) = b(k,199) - lu(k,2378) * b(k,271) - b(k,196) = b(k,196) - lu(k,2377) * b(k,271) - b(k,190) = b(k,190) - lu(k,2376) * b(k,271) - b(k,181) = b(k,181) - lu(k,2375) * b(k,271) - b(k,169) = b(k,169) - lu(k,2374) * b(k,271) - b(k,158) = b(k,158) - lu(k,2373) * b(k,271) - b(k,120) = b(k,120) - lu(k,2372) * b(k,271) - b(k,111) = b(k,111) - lu(k,2371) * b(k,271) - b(k,110) = b(k,110) - lu(k,2370) * b(k,271) - b(k,72) = b(k,72) - lu(k,2369) * b(k,271) - b(k,71) = b(k,71) - lu(k,2368) * b(k,271) - b(k,70) = b(k,70) - lu(k,2367) * b(k,271) - b(k,69) = b(k,69) - lu(k,2366) * b(k,271) - b(k,68) = b(k,68) - lu(k,2365) * b(k,271) - b(k,270) = b(k,270) * lu(k,2360) - b(k,269) = b(k,269) - lu(k,2359) * b(k,270) - b(k,268) = b(k,268) - lu(k,2358) * b(k,270) - b(k,267) = b(k,267) - lu(k,2357) * b(k,270) - b(k,266) = b(k,266) - lu(k,2356) * b(k,270) - b(k,265) = b(k,265) - lu(k,2355) * b(k,270) - b(k,264) = b(k,264) - lu(k,2354) * b(k,270) - b(k,263) = b(k,263) - lu(k,2353) * b(k,270) - b(k,262) = b(k,262) - lu(k,2352) * b(k,270) - b(k,261) = b(k,261) - lu(k,2351) * b(k,270) - b(k,260) = b(k,260) - lu(k,2350) * b(k,270) - b(k,259) = b(k,259) - lu(k,2349) * b(k,270) - b(k,258) = b(k,258) - lu(k,2348) * b(k,270) - b(k,257) = b(k,257) - lu(k,2347) * b(k,270) - b(k,252) = b(k,252) - lu(k,2346) * b(k,270) - b(k,251) = b(k,251) - lu(k,2345) * b(k,270) - b(k,250) = b(k,250) - lu(k,2344) * b(k,270) - b(k,249) = b(k,249) - lu(k,2343) * b(k,270) - b(k,248) = b(k,248) - lu(k,2342) * b(k,270) - b(k,247) = b(k,247) - lu(k,2341) * b(k,270) - b(k,246) = b(k,246) - lu(k,2340) * b(k,270) - b(k,245) = b(k,245) - lu(k,2339) * b(k,270) - b(k,244) = b(k,244) - lu(k,2338) * b(k,270) - b(k,243) = b(k,243) - lu(k,2337) * b(k,270) - b(k,242) = b(k,242) - lu(k,2336) * b(k,270) - b(k,241) = b(k,241) - lu(k,2335) * b(k,270) - b(k,240) = b(k,240) - lu(k,2334) * b(k,270) - b(k,238) = b(k,238) - lu(k,2333) * b(k,270) - b(k,237) = b(k,237) - lu(k,2332) * b(k,270) - b(k,236) = b(k,236) - lu(k,2331) * b(k,270) - b(k,235) = b(k,235) - lu(k,2330) * b(k,270) - b(k,233) = b(k,233) - lu(k,2329) * b(k,270) - b(k,232) = b(k,232) - lu(k,2328) * b(k,270) - b(k,231) = b(k,231) - lu(k,2327) * b(k,270) - b(k,230) = b(k,230) - lu(k,2326) * b(k,270) - b(k,229) = b(k,229) - lu(k,2325) * b(k,270) - b(k,228) = b(k,228) - lu(k,2324) * b(k,270) - b(k,227) = b(k,227) - lu(k,2323) * b(k,270) - b(k,220) = b(k,220) - lu(k,2322) * b(k,270) - b(k,217) = b(k,217) - lu(k,2321) * b(k,270) - b(k,215) = b(k,215) - lu(k,2320) * b(k,270) - b(k,207) = b(k,207) - lu(k,2319) * b(k,270) - b(k,196) = b(k,196) - lu(k,2318) * b(k,270) - b(k,189) = b(k,189) - lu(k,2317) * b(k,270) - b(k,162) = b(k,162) - lu(k,2316) * b(k,270) - b(k,156) = b(k,156) - lu(k,2315) * b(k,270) - b(k,147) = b(k,147) - lu(k,2314) * b(k,270) - b(k,130) = b(k,130) - lu(k,2313) * b(k,270) + b(k,276) = b(k,276) * lu(k,2526) + b(k,275) = b(k,275) - lu(k,2525) * b(k,276) + b(k,274) = b(k,274) - lu(k,2524) * b(k,276) + b(k,273) = b(k,273) - lu(k,2523) * b(k,276) + b(k,272) = b(k,272) - lu(k,2522) * b(k,276) + b(k,271) = b(k,271) - lu(k,2521) * b(k,276) + b(k,270) = b(k,270) - lu(k,2520) * b(k,276) + b(k,269) = b(k,269) - lu(k,2519) * b(k,276) + b(k,268) = b(k,268) - lu(k,2518) * b(k,276) + b(k,267) = b(k,267) - lu(k,2517) * b(k,276) + b(k,266) = b(k,266) - lu(k,2516) * b(k,276) + b(k,265) = b(k,265) - lu(k,2515) * b(k,276) + b(k,264) = b(k,264) - lu(k,2514) * b(k,276) + b(k,263) = b(k,263) - lu(k,2513) * b(k,276) + b(k,262) = b(k,262) - lu(k,2512) * b(k,276) + b(k,261) = b(k,261) - lu(k,2511) * b(k,276) + b(k,260) = b(k,260) - lu(k,2510) * b(k,276) + b(k,259) = b(k,259) - lu(k,2509) * b(k,276) + b(k,258) = b(k,258) - lu(k,2508) * b(k,276) + b(k,257) = b(k,257) - lu(k,2507) * b(k,276) + b(k,256) = b(k,256) - lu(k,2506) * b(k,276) + b(k,255) = b(k,255) - lu(k,2505) * b(k,276) + b(k,223) = b(k,223) - lu(k,2504) * b(k,276) + b(k,221) = b(k,221) - lu(k,2503) * b(k,276) + b(k,141) = b(k,141) - lu(k,2502) * b(k,276) + b(k,131) = b(k,131) - lu(k,2501) * b(k,276) + b(k,107) = b(k,107) - lu(k,2500) * b(k,276) + b(k,275) = b(k,275) * lu(k,2498) + b(k,274) = b(k,274) - lu(k,2497) * b(k,275) + b(k,273) = b(k,273) - lu(k,2496) * b(k,275) + b(k,272) = b(k,272) - lu(k,2495) * b(k,275) + b(k,271) = b(k,271) - lu(k,2494) * b(k,275) + b(k,270) = b(k,270) - lu(k,2493) * b(k,275) + b(k,269) = b(k,269) - lu(k,2492) * b(k,275) + b(k,268) = b(k,268) - lu(k,2491) * b(k,275) + b(k,267) = b(k,267) - lu(k,2490) * b(k,275) + b(k,266) = b(k,266) - lu(k,2489) * b(k,275) + b(k,265) = b(k,265) - lu(k,2488) * b(k,275) + b(k,264) = b(k,264) - lu(k,2487) * b(k,275) + b(k,263) = b(k,263) - lu(k,2486) * b(k,275) + b(k,262) = b(k,262) - lu(k,2485) * b(k,275) + b(k,260) = b(k,260) - lu(k,2484) * b(k,275) + b(k,259) = b(k,259) - lu(k,2483) * b(k,275) + b(k,258) = b(k,258) - lu(k,2482) * b(k,275) + b(k,257) = b(k,257) - lu(k,2481) * b(k,275) + b(k,256) = b(k,256) - lu(k,2480) * b(k,275) + b(k,226) = b(k,226) - lu(k,2479) * b(k,275) + b(k,223) = b(k,223) - lu(k,2478) * b(k,275) + b(k,212) = b(k,212) - lu(k,2477) * b(k,275) + b(k,148) = b(k,148) - lu(k,2476) * b(k,275) + b(k,122) = b(k,122) - lu(k,2475) * b(k,275) + b(k,108) = b(k,108) - lu(k,2474) * b(k,275) + b(k,94) = b(k,94) - lu(k,2473) * b(k,275) + b(k,274) = b(k,274) * lu(k,2470) + b(k,273) = b(k,273) - lu(k,2469) * b(k,274) + b(k,272) = b(k,272) - lu(k,2468) * b(k,274) + b(k,271) = b(k,271) - lu(k,2467) * b(k,274) + b(k,270) = b(k,270) - lu(k,2466) * b(k,274) + b(k,269) = b(k,269) - lu(k,2465) * b(k,274) + b(k,268) = b(k,268) - lu(k,2464) * b(k,274) + b(k,267) = b(k,267) - lu(k,2463) * b(k,274) + b(k,266) = b(k,266) - lu(k,2462) * b(k,274) + b(k,265) = b(k,265) - lu(k,2461) * b(k,274) + b(k,264) = b(k,264) - lu(k,2460) * b(k,274) + b(k,263) = b(k,263) - lu(k,2459) * b(k,274) + b(k,262) = b(k,262) - lu(k,2458) * b(k,274) + b(k,261) = b(k,261) - lu(k,2457) * b(k,274) + b(k,260) = b(k,260) - lu(k,2456) * b(k,274) + b(k,259) = b(k,259) - lu(k,2455) * b(k,274) + b(k,258) = b(k,258) - lu(k,2454) * b(k,274) + b(k,257) = b(k,257) - lu(k,2453) * b(k,274) + b(k,255) = b(k,255) - lu(k,2452) * b(k,274) + b(k,254) = b(k,254) - lu(k,2451) * b(k,274) + b(k,238) = b(k,238) - lu(k,2450) * b(k,274) + b(k,219) = b(k,219) - lu(k,2449) * b(k,274) + b(k,211) = b(k,211) - lu(k,2448) * b(k,274) + b(k,162) = b(k,162) - lu(k,2447) * b(k,274) + b(k,273) = b(k,273) * lu(k,2443) + b(k,272) = b(k,272) - lu(k,2442) * b(k,273) + b(k,271) = b(k,271) - lu(k,2441) * b(k,273) + b(k,270) = b(k,270) - lu(k,2440) * b(k,273) + b(k,269) = b(k,269) - lu(k,2439) * b(k,273) + b(k,268) = b(k,268) - lu(k,2438) * b(k,273) + b(k,267) = b(k,267) - lu(k,2437) * b(k,273) + b(k,266) = b(k,266) - lu(k,2436) * b(k,273) + b(k,265) = b(k,265) - lu(k,2435) * b(k,273) + b(k,264) = b(k,264) - lu(k,2434) * b(k,273) + b(k,263) = b(k,263) - lu(k,2433) * b(k,273) + b(k,262) = b(k,262) - lu(k,2432) * b(k,273) + b(k,261) = b(k,261) - lu(k,2431) * b(k,273) + b(k,260) = b(k,260) - lu(k,2430) * b(k,273) + b(k,259) = b(k,259) - lu(k,2429) * b(k,273) + b(k,258) = b(k,258) - lu(k,2428) * b(k,273) + b(k,256) = b(k,256) - lu(k,2427) * b(k,273) + b(k,254) = b(k,254) - lu(k,2426) * b(k,273) + b(k,253) = b(k,253) - lu(k,2425) * b(k,273) + b(k,252) = b(k,252) - lu(k,2424) * b(k,273) + b(k,251) = b(k,251) - lu(k,2423) * b(k,273) + b(k,250) = b(k,250) - lu(k,2422) * b(k,273) + b(k,249) = b(k,249) - lu(k,2421) * b(k,273) + b(k,248) = b(k,248) - lu(k,2420) * b(k,273) + b(k,247) = b(k,247) - lu(k,2419) * b(k,273) + b(k,246) = b(k,246) - lu(k,2418) * b(k,273) + b(k,245) = b(k,245) - lu(k,2417) * b(k,273) + b(k,244) = b(k,244) - lu(k,2416) * b(k,273) + b(k,243) = b(k,243) - lu(k,2415) * b(k,273) + b(k,242) = b(k,242) - lu(k,2414) * b(k,273) + b(k,241) = b(k,241) - lu(k,2413) * b(k,273) + b(k,240) = b(k,240) - lu(k,2412) * b(k,273) + b(k,239) = b(k,239) - lu(k,2411) * b(k,273) + b(k,238) = b(k,238) - lu(k,2410) * b(k,273) + b(k,237) = b(k,237) - lu(k,2409) * b(k,273) + b(k,236) = b(k,236) - lu(k,2408) * b(k,273) + b(k,235) = b(k,235) - lu(k,2407) * b(k,273) + b(k,234) = b(k,234) - lu(k,2406) * b(k,273) + b(k,233) = b(k,233) - lu(k,2405) * b(k,273) + b(k,232) = b(k,232) - lu(k,2404) * b(k,273) + b(k,231) = b(k,231) - lu(k,2403) * b(k,273) + b(k,230) = b(k,230) - lu(k,2402) * b(k,273) + b(k,229) = b(k,229) - lu(k,2401) * b(k,273) + b(k,228) = b(k,228) - lu(k,2400) * b(k,273) + b(k,227) = b(k,227) - lu(k,2399) * b(k,273) + b(k,224) = b(k,224) - lu(k,2398) * b(k,273) + b(k,223) = b(k,223) - lu(k,2397) * b(k,273) + b(k,219) = b(k,219) - lu(k,2396) * b(k,273) + b(k,217) = b(k,217) - lu(k,2395) * b(k,273) + b(k,216) = b(k,216) - lu(k,2394) * b(k,273) + b(k,181) = b(k,181) - lu(k,2393) * b(k,273) + b(k,150) = b(k,150) - lu(k,2392) * b(k,273) + b(k,145) = b(k,145) - lu(k,2391) * b(k,273) + b(k,138) = b(k,138) - lu(k,2390) * b(k,273) + b(k,137) = b(k,137) - lu(k,2389) * b(k,273) + b(k,72) = b(k,72) - lu(k,2388) * b(k,273) + b(k,71) = b(k,71) - lu(k,2387) * b(k,273) + b(k,272) = b(k,272) * lu(k,2382) + b(k,271) = b(k,271) - lu(k,2381) * b(k,272) + b(k,270) = b(k,270) - lu(k,2380) * b(k,272) + b(k,269) = b(k,269) - lu(k,2379) * b(k,272) + b(k,268) = b(k,268) - lu(k,2378) * b(k,272) + b(k,267) = b(k,267) - lu(k,2377) * b(k,272) + b(k,266) = b(k,266) - lu(k,2376) * b(k,272) + b(k,265) = b(k,265) - lu(k,2375) * b(k,272) + b(k,264) = b(k,264) - lu(k,2374) * b(k,272) + b(k,263) = b(k,263) - lu(k,2373) * b(k,272) + b(k,262) = b(k,262) - lu(k,2372) * b(k,272) + b(k,261) = b(k,261) - lu(k,2371) * b(k,272) + b(k,260) = b(k,260) - lu(k,2370) * b(k,272) + b(k,259) = b(k,259) - lu(k,2369) * b(k,272) + b(k,258) = b(k,258) - lu(k,2368) * b(k,272) + b(k,257) = b(k,257) - lu(k,2367) * b(k,272) + b(k,255) = b(k,255) - lu(k,2366) * b(k,272) + b(k,254) = b(k,254) - lu(k,2365) * b(k,272) + b(k,253) = b(k,253) - lu(k,2364) * b(k,272) + b(k,252) = b(k,252) - lu(k,2363) * b(k,272) + b(k,251) = b(k,251) - lu(k,2362) * b(k,272) + b(k,250) = b(k,250) - lu(k,2361) * b(k,272) + b(k,249) = b(k,249) - lu(k,2360) * b(k,272) + b(k,248) = b(k,248) - lu(k,2359) * b(k,272) + b(k,247) = b(k,247) - lu(k,2358) * b(k,272) + b(k,246) = b(k,246) - lu(k,2357) * b(k,272) + b(k,245) = b(k,245) - lu(k,2356) * b(k,272) + b(k,244) = b(k,244) - lu(k,2355) * b(k,272) + b(k,243) = b(k,243) - lu(k,2354) * b(k,272) + b(k,242) = b(k,242) - lu(k,2353) * b(k,272) + b(k,240) = b(k,240) - lu(k,2352) * b(k,272) + b(k,239) = b(k,239) - lu(k,2351) * b(k,272) + b(k,238) = b(k,238) - lu(k,2350) * b(k,272) + b(k,237) = b(k,237) - lu(k,2349) * b(k,272) + b(k,235) = b(k,235) - lu(k,2348) * b(k,272) + b(k,234) = b(k,234) - lu(k,2347) * b(k,272) + b(k,232) = b(k,232) - lu(k,2346) * b(k,272) + b(k,231) = b(k,231) - lu(k,2345) * b(k,272) + b(k,230) = b(k,230) - lu(k,2344) * b(k,272) + b(k,229) = b(k,229) - lu(k,2343) * b(k,272) + b(k,228) = b(k,228) - lu(k,2342) * b(k,272) + b(k,222) = b(k,222) - lu(k,2341) * b(k,272) + b(k,220) = b(k,220) - lu(k,2340) * b(k,272) + b(k,219) = b(k,219) - lu(k,2339) * b(k,272) + b(k,218) = b(k,218) - lu(k,2338) * b(k,272) + b(k,216) = b(k,216) - lu(k,2337) * b(k,272) + b(k,212) = b(k,212) - lu(k,2336) * b(k,272) + b(k,211) = b(k,211) - lu(k,2335) * b(k,272) + b(k,209) = b(k,209) - lu(k,2334) * b(k,272) + b(k,207) = b(k,207) - lu(k,2333) * b(k,272) + b(k,206) = b(k,206) - lu(k,2332) * b(k,272) + b(k,205) = b(k,205) - lu(k,2331) * b(k,272) + b(k,204) = b(k,204) - lu(k,2330) * b(k,272) + b(k,203) = b(k,203) - lu(k,2329) * b(k,272) + b(k,202) = b(k,202) - lu(k,2328) * b(k,272) + b(k,201) = b(k,201) - lu(k,2327) * b(k,272) + b(k,200) = b(k,200) - lu(k,2326) * b(k,272) + b(k,198) = b(k,198) - lu(k,2325) * b(k,272) + b(k,197) = b(k,197) - lu(k,2324) * b(k,272) + b(k,195) = b(k,195) - lu(k,2323) * b(k,272) + b(k,194) = b(k,194) - lu(k,2322) * b(k,272) + b(k,192) = b(k,192) - lu(k,2321) * b(k,272) + b(k,188) = b(k,188) - lu(k,2320) * b(k,272) + b(k,187) = b(k,187) - lu(k,2319) * b(k,272) + b(k,186) = b(k,186) - lu(k,2318) * b(k,272) + b(k,185) = b(k,185) - lu(k,2317) * b(k,272) + b(k,180) = b(k,180) - lu(k,2316) * b(k,272) + b(k,176) = b(k,176) - lu(k,2315) * b(k,272) + b(k,174) = b(k,174) - lu(k,2314) * b(k,272) + b(k,173) = b(k,173) - lu(k,2313) * b(k,272) + b(k,171) = b(k,171) - lu(k,2312) * b(k,272) + b(k,170) = b(k,170) - lu(k,2311) * b(k,272) + b(k,169) = b(k,169) - lu(k,2310) * b(k,272) + b(k,167) = b(k,167) - lu(k,2309) * b(k,272) + b(k,166) = b(k,166) - lu(k,2308) * b(k,272) + b(k,165) = b(k,165) - lu(k,2307) * b(k,272) + b(k,163) = b(k,163) - lu(k,2306) * b(k,272) + b(k,162) = b(k,162) - lu(k,2305) * b(k,272) + b(k,161) = b(k,161) - lu(k,2304) * b(k,272) + b(k,160) = b(k,160) - lu(k,2303) * b(k,272) + b(k,158) = b(k,158) - lu(k,2302) * b(k,272) + b(k,156) = b(k,156) - lu(k,2301) * b(k,272) + b(k,155) = b(k,155) - lu(k,2300) * b(k,272) + b(k,154) = b(k,154) - lu(k,2299) * b(k,272) + b(k,153) = b(k,153) - lu(k,2298) * b(k,272) + b(k,147) = b(k,147) - lu(k,2297) * b(k,272) + b(k,146) = b(k,146) - lu(k,2296) * b(k,272) + b(k,144) = b(k,144) - lu(k,2295) * b(k,272) + b(k,143) = b(k,143) - lu(k,2294) * b(k,272) + b(k,142) = b(k,142) - lu(k,2293) * b(k,272) + b(k,132) = b(k,132) - lu(k,2292) * b(k,272) + b(k,117) = b(k,117) - lu(k,2291) * b(k,272) + b(k,106) = b(k,106) - lu(k,2290) * b(k,272) + b(k,90) = b(k,90) - lu(k,2289) * b(k,272) + b(k,89) = b(k,89) - lu(k,2288) * b(k,272) + b(k,88) = b(k,88) - lu(k,2287) * b(k,272) + b(k,86) = b(k,86) - lu(k,2286) * b(k,272) + b(k,84) = b(k,84) - lu(k,2285) * b(k,272) + b(k,83) = b(k,83) - lu(k,2284) * b(k,272) + b(k,82) = b(k,82) - lu(k,2283) * b(k,272) + b(k,81) = b(k,81) - lu(k,2282) * b(k,272) + b(k,77) = b(k,77) - lu(k,2281) * b(k,272) + b(k,76) = b(k,76) - lu(k,2280) * b(k,272) + b(k,75) = b(k,75) - lu(k,2279) * b(k,272) + b(k,74) = b(k,74) - lu(k,2278) * b(k,272) + b(k,73) = b(k,73) - lu(k,2277) * b(k,272) + b(k,72) = b(k,72) - lu(k,2276) * b(k,272) + b(k,71) = b(k,71) - lu(k,2275) * b(k,272) + b(k,70) = b(k,70) - lu(k,2274) * b(k,272) + b(k,69) = b(k,69) - lu(k,2273) * b(k,272) + b(k,68) = b(k,68) - lu(k,2272) * b(k,272) + b(k,67) = b(k,67) - lu(k,2271) * b(k,272) + b(k,66) = b(k,66) - lu(k,2270) * b(k,272) + b(k,65) = b(k,65) - lu(k,2269) * b(k,272) + b(k,64) = b(k,64) - lu(k,2268) * b(k,272) + b(k,63) = b(k,63) - lu(k,2267) * b(k,272) end do end subroutine lu_slv07 subroutine lu_slv08( avec_len, lu, b ) @@ -1541,256 +1590,207 @@ subroutine lu_slv08( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,269) = b(k,269) * lu(k,2307) - b(k,268) = b(k,268) - lu(k,2306) * b(k,269) - b(k,267) = b(k,267) - lu(k,2305) * b(k,269) - b(k,266) = b(k,266) - lu(k,2304) * b(k,269) - b(k,265) = b(k,265) - lu(k,2303) * b(k,269) - b(k,264) = b(k,264) - lu(k,2302) * b(k,269) - b(k,263) = b(k,263) - lu(k,2301) * b(k,269) - b(k,262) = b(k,262) - lu(k,2300) * b(k,269) - b(k,261) = b(k,261) - lu(k,2299) * b(k,269) - b(k,260) = b(k,260) - lu(k,2298) * b(k,269) - b(k,259) = b(k,259) - lu(k,2297) * b(k,269) - b(k,258) = b(k,258) - lu(k,2296) * b(k,269) - b(k,257) = b(k,257) - lu(k,2295) * b(k,269) - b(k,256) = b(k,256) - lu(k,2294) * b(k,269) - b(k,255) = b(k,255) - lu(k,2293) * b(k,269) - b(k,253) = b(k,253) - lu(k,2292) * b(k,269) - b(k,219) = b(k,219) - lu(k,2291) * b(k,269) - b(k,137) = b(k,137) - lu(k,2290) * b(k,269) - b(k,268) = b(k,268) * lu(k,2283) - b(k,267) = b(k,267) - lu(k,2282) * b(k,268) - b(k,266) = b(k,266) - lu(k,2281) * b(k,268) - b(k,265) = b(k,265) - lu(k,2280) * b(k,268) - b(k,264) = b(k,264) - lu(k,2279) * b(k,268) - b(k,263) = b(k,263) - lu(k,2278) * b(k,268) - b(k,262) = b(k,262) - lu(k,2277) * b(k,268) - b(k,261) = b(k,261) - lu(k,2276) * b(k,268) - b(k,260) = b(k,260) - lu(k,2275) * b(k,268) - b(k,259) = b(k,259) - lu(k,2274) * b(k,268) - b(k,258) = b(k,258) - lu(k,2273) * b(k,268) - b(k,257) = b(k,257) - lu(k,2272) * b(k,268) - b(k,256) = b(k,256) - lu(k,2271) * b(k,268) - b(k,255) = b(k,255) - lu(k,2270) * b(k,268) - b(k,253) = b(k,253) - lu(k,2269) * b(k,268) - b(k,267) = b(k,267) * lu(k,2261) - b(k,266) = b(k,266) - lu(k,2260) * b(k,267) - b(k,265) = b(k,265) - lu(k,2259) * b(k,267) - b(k,264) = b(k,264) - lu(k,2258) * b(k,267) - b(k,263) = b(k,263) - lu(k,2257) * b(k,267) - b(k,262) = b(k,262) - lu(k,2256) * b(k,267) - b(k,261) = b(k,261) - lu(k,2255) * b(k,267) - b(k,260) = b(k,260) - lu(k,2254) * b(k,267) - b(k,259) = b(k,259) - lu(k,2253) * b(k,267) - b(k,258) = b(k,258) - lu(k,2252) * b(k,267) - b(k,257) = b(k,257) - lu(k,2251) * b(k,267) - b(k,256) = b(k,256) - lu(k,2250) * b(k,267) - b(k,255) = b(k,255) - lu(k,2249) * b(k,267) - b(k,253) = b(k,253) - lu(k,2248) * b(k,267) - b(k,252) = b(k,252) - lu(k,2247) * b(k,267) - b(k,251) = b(k,251) - lu(k,2246) * b(k,267) - b(k,245) = b(k,245) - lu(k,2245) * b(k,267) - b(k,241) = b(k,241) - lu(k,2244) * b(k,267) - b(k,237) = b(k,237) - lu(k,2243) * b(k,267) - b(k,236) = b(k,236) - lu(k,2242) * b(k,267) - b(k,235) = b(k,235) - lu(k,2241) * b(k,267) - b(k,230) = b(k,230) - lu(k,2240) * b(k,267) - b(k,227) = b(k,227) - lu(k,2239) * b(k,267) - b(k,223) = b(k,223) - lu(k,2238) * b(k,267) - b(k,220) = b(k,220) - lu(k,2237) * b(k,267) - b(k,217) = b(k,217) - lu(k,2236) * b(k,267) - b(k,216) = b(k,216) - lu(k,2235) * b(k,267) - b(k,209) = b(k,209) - lu(k,2234) * b(k,267) - b(k,204) = b(k,204) - lu(k,2233) * b(k,267) - b(k,184) = b(k,184) - lu(k,2232) * b(k,267) - b(k,182) = b(k,182) - lu(k,2231) * b(k,267) - b(k,181) = b(k,181) - lu(k,2230) * b(k,267) - b(k,166) = b(k,166) - lu(k,2229) * b(k,267) - b(k,157) = b(k,157) - lu(k,2228) * b(k,267) - b(k,148) = b(k,148) - lu(k,2227) * b(k,267) - b(k,136) = b(k,136) - lu(k,2226) * b(k,267) - b(k,135) = b(k,135) - lu(k,2225) * b(k,267) - b(k,133) = b(k,133) - lu(k,2224) * b(k,267) - b(k,106) = b(k,106) - lu(k,2223) * b(k,267) - b(k,266) = b(k,266) * lu(k,2214) - b(k,265) = b(k,265) - lu(k,2213) * b(k,266) - b(k,264) = b(k,264) - lu(k,2212) * b(k,266) - b(k,263) = b(k,263) - lu(k,2211) * b(k,266) - b(k,262) = b(k,262) - lu(k,2210) * b(k,266) - b(k,261) = b(k,261) - lu(k,2209) * b(k,266) - b(k,260) = b(k,260) - lu(k,2208) * b(k,266) - b(k,259) = b(k,259) - lu(k,2207) * b(k,266) - b(k,258) = b(k,258) - lu(k,2206) * b(k,266) - b(k,257) = b(k,257) - lu(k,2205) * b(k,266) - b(k,256) = b(k,256) - lu(k,2204) * b(k,266) - b(k,255) = b(k,255) - lu(k,2203) * b(k,266) - b(k,253) = b(k,253) - lu(k,2202) * b(k,266) - b(k,252) = b(k,252) - lu(k,2201) * b(k,266) - b(k,251) = b(k,251) - lu(k,2200) * b(k,266) - b(k,250) = b(k,250) - lu(k,2199) * b(k,266) - b(k,249) = b(k,249) - lu(k,2198) * b(k,266) - b(k,248) = b(k,248) - lu(k,2197) * b(k,266) - b(k,247) = b(k,247) - lu(k,2196) * b(k,266) - b(k,246) = b(k,246) - lu(k,2195) * b(k,266) - b(k,245) = b(k,245) - lu(k,2194) * b(k,266) - b(k,244) = b(k,244) - lu(k,2193) * b(k,266) - b(k,243) = b(k,243) - lu(k,2192) * b(k,266) - b(k,242) = b(k,242) - lu(k,2191) * b(k,266) - b(k,241) = b(k,241) - lu(k,2190) * b(k,266) - b(k,240) = b(k,240) - lu(k,2189) * b(k,266) - b(k,238) = b(k,238) - lu(k,2188) * b(k,266) - b(k,237) = b(k,237) - lu(k,2187) * b(k,266) - b(k,236) = b(k,236) - lu(k,2186) * b(k,266) - b(k,235) = b(k,235) - lu(k,2185) * b(k,266) - b(k,233) = b(k,233) - lu(k,2184) * b(k,266) - b(k,232) = b(k,232) - lu(k,2183) * b(k,266) - b(k,230) = b(k,230) - lu(k,2182) * b(k,266) - b(k,229) = b(k,229) - lu(k,2181) * b(k,266) - b(k,228) = b(k,228) - lu(k,2180) * b(k,266) - b(k,227) = b(k,227) - lu(k,2179) * b(k,266) - b(k,226) = b(k,226) - lu(k,2178) * b(k,266) - b(k,220) = b(k,220) - lu(k,2177) * b(k,266) - b(k,218) = b(k,218) - lu(k,2176) * b(k,266) - b(k,217) = b(k,217) - lu(k,2175) * b(k,266) - b(k,216) = b(k,216) - lu(k,2174) * b(k,266) - b(k,215) = b(k,215) - lu(k,2173) * b(k,266) - b(k,210) = b(k,210) - lu(k,2172) * b(k,266) - b(k,209) = b(k,209) - lu(k,2171) * b(k,266) - b(k,208) = b(k,208) - lu(k,2170) * b(k,266) - b(k,205) = b(k,205) - lu(k,2169) * b(k,266) - b(k,204) = b(k,204) - lu(k,2168) * b(k,266) - b(k,203) = b(k,203) - lu(k,2167) * b(k,266) - b(k,202) = b(k,202) - lu(k,2166) * b(k,266) - b(k,201) = b(k,201) - lu(k,2165) * b(k,266) - b(k,200) = b(k,200) - lu(k,2164) * b(k,266) - b(k,198) = b(k,198) - lu(k,2163) * b(k,266) - b(k,197) = b(k,197) - lu(k,2162) * b(k,266) - b(k,196) = b(k,196) - lu(k,2161) * b(k,266) - b(k,194) = b(k,194) - lu(k,2160) * b(k,266) - b(k,193) = b(k,193) - lu(k,2159) * b(k,266) - b(k,192) = b(k,192) - lu(k,2158) * b(k,266) - b(k,190) = b(k,190) - lu(k,2157) * b(k,266) - b(k,188) = b(k,188) - lu(k,2156) * b(k,266) - b(k,186) = b(k,186) - lu(k,2155) * b(k,266) - b(k,184) = b(k,184) - lu(k,2154) * b(k,266) - b(k,183) = b(k,183) - lu(k,2153) * b(k,266) - b(k,177) = b(k,177) - lu(k,2152) * b(k,266) - b(k,174) = b(k,174) - lu(k,2151) * b(k,266) - b(k,172) = b(k,172) - lu(k,2150) * b(k,266) - b(k,170) = b(k,170) - lu(k,2149) * b(k,266) - b(k,169) = b(k,169) - lu(k,2148) * b(k,266) - b(k,168) = b(k,168) - lu(k,2147) * b(k,266) - b(k,167) = b(k,167) - lu(k,2146) * b(k,266) - b(k,165) = b(k,165) - lu(k,2145) * b(k,266) - b(k,164) = b(k,164) - lu(k,2144) * b(k,266) - b(k,163) = b(k,163) - lu(k,2143) * b(k,266) - b(k,161) = b(k,161) - lu(k,2142) * b(k,266) - b(k,160) = b(k,160) - lu(k,2141) * b(k,266) - b(k,159) = b(k,159) - lu(k,2140) * b(k,266) - b(k,156) = b(k,156) - lu(k,2139) * b(k,266) - b(k,155) = b(k,155) - lu(k,2138) * b(k,266) - b(k,154) = b(k,154) - lu(k,2137) * b(k,266) - b(k,153) = b(k,153) - lu(k,2136) * b(k,266) - b(k,152) = b(k,152) - lu(k,2135) * b(k,266) - b(k,151) = b(k,151) - lu(k,2134) * b(k,266) - b(k,146) = b(k,146) - lu(k,2133) * b(k,266) - b(k,145) = b(k,145) - lu(k,2132) * b(k,266) - b(k,143) = b(k,143) - lu(k,2131) * b(k,266) - b(k,142) = b(k,142) - lu(k,2130) * b(k,266) - b(k,141) = b(k,141) - lu(k,2129) * b(k,266) - b(k,131) = b(k,131) - lu(k,2128) * b(k,266) - b(k,115) = b(k,115) - lu(k,2127) * b(k,266) - b(k,100) = b(k,100) - lu(k,2126) * b(k,266) - b(k,88) = b(k,88) - lu(k,2125) * b(k,266) - b(k,87) = b(k,87) - lu(k,2124) * b(k,266) - b(k,82) = b(k,82) - lu(k,2123) * b(k,266) - b(k,81) = b(k,81) - lu(k,2122) * b(k,266) - b(k,80) = b(k,80) - lu(k,2121) * b(k,266) - b(k,79) = b(k,79) - lu(k,2120) * b(k,266) - b(k,78) = b(k,78) - lu(k,2119) * b(k,266) - b(k,77) = b(k,77) - lu(k,2118) * b(k,266) - b(k,76) = b(k,76) - lu(k,2117) * b(k,266) - b(k,75) = b(k,75) - lu(k,2116) * b(k,266) - b(k,74) = b(k,74) - lu(k,2115) * b(k,266) - b(k,73) = b(k,73) - lu(k,2114) * b(k,266) - b(k,72) = b(k,72) - lu(k,2113) * b(k,266) - b(k,71) = b(k,71) - lu(k,2112) * b(k,266) - b(k,70) = b(k,70) - lu(k,2111) * b(k,266) - b(k,69) = b(k,69) - lu(k,2110) * b(k,266) - b(k,68) = b(k,68) - lu(k,2109) * b(k,266) - b(k,66) = b(k,66) - lu(k,2108) * b(k,266) - b(k,65) = b(k,65) - lu(k,2107) * b(k,266) - b(k,64) = b(k,64) - lu(k,2106) * b(k,266) - b(k,63) = b(k,63) - lu(k,2105) * b(k,266) - b(k,62) = b(k,62) - lu(k,2104) * b(k,266) - b(k,61) = b(k,61) - lu(k,2103) * b(k,266) - b(k,265) = b(k,265) * lu(k,2093) - b(k,264) = b(k,264) - lu(k,2092) * b(k,265) - b(k,263) = b(k,263) - lu(k,2091) * b(k,265) - b(k,262) = b(k,262) - lu(k,2090) * b(k,265) - b(k,261) = b(k,261) - lu(k,2089) * b(k,265) - b(k,260) = b(k,260) - lu(k,2088) * b(k,265) - b(k,259) = b(k,259) - lu(k,2087) * b(k,265) - b(k,258) = b(k,258) - lu(k,2086) * b(k,265) - b(k,257) = b(k,257) - lu(k,2085) * b(k,265) - b(k,256) = b(k,256) - lu(k,2084) * b(k,265) - b(k,255) = b(k,255) - lu(k,2083) * b(k,265) - b(k,253) = b(k,253) - lu(k,2082) * b(k,265) - b(k,252) = b(k,252) - lu(k,2081) * b(k,265) - b(k,236) = b(k,236) - lu(k,2080) * b(k,265) - b(k,219) = b(k,219) - lu(k,2079) * b(k,265) - b(k,137) = b(k,137) - lu(k,2078) * b(k,265) - b(k,264) = b(k,264) * lu(k,2067) - b(k,263) = b(k,263) - lu(k,2066) * b(k,264) - b(k,262) = b(k,262) - lu(k,2065) * b(k,264) - b(k,261) = b(k,261) - lu(k,2064) * b(k,264) - b(k,260) = b(k,260) - lu(k,2063) * b(k,264) - b(k,259) = b(k,259) - lu(k,2062) * b(k,264) - b(k,258) = b(k,258) - lu(k,2061) * b(k,264) - b(k,257) = b(k,257) - lu(k,2060) * b(k,264) - b(k,256) = b(k,256) - lu(k,2059) * b(k,264) - b(k,254) = b(k,254) - lu(k,2058) * b(k,264) - b(k,252) = b(k,252) - lu(k,2057) * b(k,264) - b(k,251) = b(k,251) - lu(k,2056) * b(k,264) - b(k,250) = b(k,250) - lu(k,2055) * b(k,264) - b(k,249) = b(k,249) - lu(k,2054) * b(k,264) - b(k,248) = b(k,248) - lu(k,2053) * b(k,264) - b(k,247) = b(k,247) - lu(k,2052) * b(k,264) - b(k,246) = b(k,246) - lu(k,2051) * b(k,264) - b(k,245) = b(k,245) - lu(k,2050) * b(k,264) - b(k,244) = b(k,244) - lu(k,2049) * b(k,264) - b(k,243) = b(k,243) - lu(k,2048) * b(k,264) - b(k,242) = b(k,242) - lu(k,2047) * b(k,264) - b(k,241) = b(k,241) - lu(k,2046) * b(k,264) - b(k,240) = b(k,240) - lu(k,2045) * b(k,264) - b(k,239) = b(k,239) - lu(k,2044) * b(k,264) - b(k,238) = b(k,238) - lu(k,2043) * b(k,264) - b(k,237) = b(k,237) - lu(k,2042) * b(k,264) - b(k,236) = b(k,236) - lu(k,2041) * b(k,264) - b(k,235) = b(k,235) - lu(k,2040) * b(k,264) - b(k,234) = b(k,234) - lu(k,2039) * b(k,264) - b(k,233) = b(k,233) - lu(k,2038) * b(k,264) - b(k,232) = b(k,232) - lu(k,2037) * b(k,264) - b(k,231) = b(k,231) - lu(k,2036) * b(k,264) - b(k,230) = b(k,230) - lu(k,2035) * b(k,264) - b(k,229) = b(k,229) - lu(k,2034) * b(k,264) - b(k,228) = b(k,228) - lu(k,2033) * b(k,264) - b(k,227) = b(k,227) - lu(k,2032) * b(k,264) - b(k,226) = b(k,226) - lu(k,2031) * b(k,264) - b(k,225) = b(k,225) - lu(k,2030) * b(k,264) - b(k,222) = b(k,222) - lu(k,2029) * b(k,264) - b(k,221) = b(k,221) - lu(k,2028) * b(k,264) - b(k,216) = b(k,216) - lu(k,2027) * b(k,264) - b(k,215) = b(k,215) - lu(k,2026) * b(k,264) - b(k,214) = b(k,214) - lu(k,2025) * b(k,264) - b(k,180) = b(k,180) - lu(k,2024) * b(k,264) - b(k,149) = b(k,149) - lu(k,2023) * b(k,264) - b(k,147) = b(k,147) - lu(k,2022) * b(k,264) - b(k,138) = b(k,138) - lu(k,2021) * b(k,264) - b(k,132) = b(k,132) - lu(k,2020) * b(k,264) - b(k,72) = b(k,72) - lu(k,2019) * b(k,264) - b(k,71) = b(k,71) - lu(k,2018) * b(k,264) + b(k,271) = b(k,271) * lu(k,2261) + b(k,270) = b(k,270) - lu(k,2260) * b(k,271) + b(k,269) = b(k,269) - lu(k,2259) * b(k,271) + b(k,268) = b(k,268) - lu(k,2258) * b(k,271) + b(k,267) = b(k,267) - lu(k,2257) * b(k,271) + b(k,266) = b(k,266) - lu(k,2256) * b(k,271) + b(k,265) = b(k,265) - lu(k,2255) * b(k,271) + b(k,264) = b(k,264) - lu(k,2254) * b(k,271) + b(k,263) = b(k,263) - lu(k,2253) * b(k,271) + b(k,262) = b(k,262) - lu(k,2252) * b(k,271) + b(k,261) = b(k,261) - lu(k,2251) * b(k,271) + b(k,260) = b(k,260) - lu(k,2250) * b(k,271) + b(k,259) = b(k,259) - lu(k,2249) * b(k,271) + b(k,258) = b(k,258) - lu(k,2248) * b(k,271) + b(k,257) = b(k,257) - lu(k,2247) * b(k,271) + b(k,255) = b(k,255) - lu(k,2246) * b(k,271) + b(k,221) = b(k,221) - lu(k,2245) * b(k,271) + b(k,141) = b(k,141) - lu(k,2244) * b(k,271) + b(k,270) = b(k,270) * lu(k,2237) + b(k,269) = b(k,269) - lu(k,2236) * b(k,270) + b(k,268) = b(k,268) - lu(k,2235) * b(k,270) + b(k,267) = b(k,267) - lu(k,2234) * b(k,270) + b(k,266) = b(k,266) - lu(k,2233) * b(k,270) + b(k,265) = b(k,265) - lu(k,2232) * b(k,270) + b(k,264) = b(k,264) - lu(k,2231) * b(k,270) + b(k,263) = b(k,263) - lu(k,2230) * b(k,270) + b(k,262) = b(k,262) - lu(k,2229) * b(k,270) + b(k,261) = b(k,261) - lu(k,2228) * b(k,270) + b(k,260) = b(k,260) - lu(k,2227) * b(k,270) + b(k,259) = b(k,259) - lu(k,2226) * b(k,270) + b(k,258) = b(k,258) - lu(k,2225) * b(k,270) + b(k,257) = b(k,257) - lu(k,2224) * b(k,270) + b(k,255) = b(k,255) - lu(k,2223) * b(k,270) + b(k,221) = b(k,221) - lu(k,2222) * b(k,270) + b(k,211) = b(k,211) - lu(k,2221) * b(k,270) + b(k,190) = b(k,190) - lu(k,2220) * b(k,270) + b(k,168) = b(k,168) - lu(k,2219) * b(k,270) + b(k,157) = b(k,157) - lu(k,2218) * b(k,270) + b(k,140) = b(k,140) - lu(k,2217) * b(k,270) + b(k,133) = b(k,133) - lu(k,2216) * b(k,270) + b(k,129) = b(k,129) - lu(k,2215) * b(k,270) + b(k,128) = b(k,128) - lu(k,2214) * b(k,270) + b(k,127) = b(k,127) - lu(k,2213) * b(k,270) + b(k,126) = b(k,126) - lu(k,2212) * b(k,270) + b(k,118) = b(k,118) - lu(k,2211) * b(k,270) + b(k,113) = b(k,113) - lu(k,2210) * b(k,270) + b(k,104) = b(k,104) - lu(k,2209) * b(k,270) + b(k,103) = b(k,103) - lu(k,2208) * b(k,270) + b(k,102) = b(k,102) - lu(k,2207) * b(k,270) + b(k,101) = b(k,101) - lu(k,2206) * b(k,270) + b(k,99) = b(k,99) - lu(k,2205) * b(k,270) + b(k,97) = b(k,97) - lu(k,2204) * b(k,270) + b(k,96) = b(k,96) - lu(k,2203) * b(k,270) + b(k,95) = b(k,95) - lu(k,2202) * b(k,270) + b(k,92) = b(k,92) - lu(k,2201) * b(k,270) + b(k,269) = b(k,269) * lu(k,2193) + b(k,268) = b(k,268) - lu(k,2192) * b(k,269) + b(k,267) = b(k,267) - lu(k,2191) * b(k,269) + b(k,266) = b(k,266) - lu(k,2190) * b(k,269) + b(k,265) = b(k,265) - lu(k,2189) * b(k,269) + b(k,264) = b(k,264) - lu(k,2188) * b(k,269) + b(k,263) = b(k,263) - lu(k,2187) * b(k,269) + b(k,262) = b(k,262) - lu(k,2186) * b(k,269) + b(k,261) = b(k,261) - lu(k,2185) * b(k,269) + b(k,260) = b(k,260) - lu(k,2184) * b(k,269) + b(k,259) = b(k,259) - lu(k,2183) * b(k,269) + b(k,254) = b(k,254) - lu(k,2182) * b(k,269) + b(k,253) = b(k,253) - lu(k,2181) * b(k,269) + b(k,252) = b(k,252) - lu(k,2180) * b(k,269) + b(k,251) = b(k,251) - lu(k,2179) * b(k,269) + b(k,250) = b(k,250) - lu(k,2178) * b(k,269) + b(k,249) = b(k,249) - lu(k,2177) * b(k,269) + b(k,248) = b(k,248) - lu(k,2176) * b(k,269) + b(k,247) = b(k,247) - lu(k,2175) * b(k,269) + b(k,246) = b(k,246) - lu(k,2174) * b(k,269) + b(k,245) = b(k,245) - lu(k,2173) * b(k,269) + b(k,244) = b(k,244) - lu(k,2172) * b(k,269) + b(k,243) = b(k,243) - lu(k,2171) * b(k,269) + b(k,242) = b(k,242) - lu(k,2170) * b(k,269) + b(k,240) = b(k,240) - lu(k,2169) * b(k,269) + b(k,239) = b(k,239) - lu(k,2168) * b(k,269) + b(k,238) = b(k,238) - lu(k,2167) * b(k,269) + b(k,237) = b(k,237) - lu(k,2166) * b(k,269) + b(k,235) = b(k,235) - lu(k,2165) * b(k,269) + b(k,234) = b(k,234) - lu(k,2164) * b(k,269) + b(k,233) = b(k,233) - lu(k,2163) * b(k,269) + b(k,232) = b(k,232) - lu(k,2162) * b(k,269) + b(k,231) = b(k,231) - lu(k,2161) * b(k,269) + b(k,230) = b(k,230) - lu(k,2160) * b(k,269) + b(k,229) = b(k,229) - lu(k,2159) * b(k,269) + b(k,222) = b(k,222) - lu(k,2158) * b(k,269) + b(k,218) = b(k,218) - lu(k,2157) * b(k,269) + b(k,216) = b(k,216) - lu(k,2156) * b(k,269) + b(k,210) = b(k,210) - lu(k,2155) * b(k,269) + b(k,198) = b(k,198) - lu(k,2154) * b(k,269) + b(k,191) = b(k,191) - lu(k,2153) * b(k,269) + b(k,159) = b(k,159) - lu(k,2152) * b(k,269) + b(k,156) = b(k,156) - lu(k,2151) * b(k,269) + b(k,145) = b(k,145) - lu(k,2150) * b(k,269) + b(k,130) = b(k,130) - lu(k,2149) * b(k,269) + b(k,268) = b(k,268) * lu(k,2140) + b(k,267) = b(k,267) - lu(k,2139) * b(k,268) + b(k,266) = b(k,266) - lu(k,2138) * b(k,268) + b(k,265) = b(k,265) - lu(k,2137) * b(k,268) + b(k,264) = b(k,264) - lu(k,2136) * b(k,268) + b(k,263) = b(k,263) - lu(k,2135) * b(k,268) + b(k,262) = b(k,262) - lu(k,2134) * b(k,268) + b(k,261) = b(k,261) - lu(k,2133) * b(k,268) + b(k,260) = b(k,260) - lu(k,2132) * b(k,268) + b(k,259) = b(k,259) - lu(k,2131) * b(k,268) + b(k,258) = b(k,258) - lu(k,2130) * b(k,268) + b(k,257) = b(k,257) - lu(k,2129) * b(k,268) + b(k,255) = b(k,255) - lu(k,2128) * b(k,268) + b(k,267) = b(k,267) * lu(k,2118) + b(k,266) = b(k,266) - lu(k,2117) * b(k,267) + b(k,265) = b(k,265) - lu(k,2116) * b(k,267) + b(k,264) = b(k,264) - lu(k,2115) * b(k,267) + b(k,263) = b(k,263) - lu(k,2114) * b(k,267) + b(k,262) = b(k,262) - lu(k,2113) * b(k,267) + b(k,261) = b(k,261) - lu(k,2112) * b(k,267) + b(k,260) = b(k,260) - lu(k,2111) * b(k,267) + b(k,259) = b(k,259) - lu(k,2110) * b(k,267) + b(k,258) = b(k,258) - lu(k,2109) * b(k,267) + b(k,256) = b(k,256) - lu(k,2108) * b(k,267) + b(k,254) = b(k,254) - lu(k,2107) * b(k,267) + b(k,253) = b(k,253) - lu(k,2106) * b(k,267) + b(k,252) = b(k,252) - lu(k,2105) * b(k,267) + b(k,251) = b(k,251) - lu(k,2104) * b(k,267) + b(k,250) = b(k,250) - lu(k,2103) * b(k,267) + b(k,249) = b(k,249) - lu(k,2102) * b(k,267) + b(k,248) = b(k,248) - lu(k,2101) * b(k,267) + b(k,247) = b(k,247) - lu(k,2100) * b(k,267) + b(k,246) = b(k,246) - lu(k,2099) * b(k,267) + b(k,245) = b(k,245) - lu(k,2098) * b(k,267) + b(k,243) = b(k,243) - lu(k,2097) * b(k,267) + b(k,242) = b(k,242) - lu(k,2096) * b(k,267) + b(k,240) = b(k,240) - lu(k,2095) * b(k,267) + b(k,239) = b(k,239) - lu(k,2094) * b(k,267) + b(k,238) = b(k,238) - lu(k,2093) * b(k,267) + b(k,237) = b(k,237) - lu(k,2092) * b(k,267) + b(k,236) = b(k,236) - lu(k,2091) * b(k,267) + b(k,235) = b(k,235) - lu(k,2090) * b(k,267) + b(k,234) = b(k,234) - lu(k,2089) * b(k,267) + b(k,232) = b(k,232) - lu(k,2088) * b(k,267) + b(k,231) = b(k,231) - lu(k,2087) * b(k,267) + b(k,230) = b(k,230) - lu(k,2086) * b(k,267) + b(k,229) = b(k,229) - lu(k,2085) * b(k,267) + b(k,228) = b(k,228) - lu(k,2084) * b(k,267) + b(k,227) = b(k,227) - lu(k,2083) * b(k,267) + b(k,224) = b(k,224) - lu(k,2082) * b(k,267) + b(k,223) = b(k,223) - lu(k,2081) * b(k,267) + b(k,219) = b(k,219) - lu(k,2080) * b(k,267) + b(k,217) = b(k,217) - lu(k,2079) * b(k,267) + b(k,207) = b(k,207) - lu(k,2078) * b(k,267) + b(k,199) = b(k,199) - lu(k,2077) * b(k,267) + b(k,198) = b(k,198) - lu(k,2076) * b(k,267) + b(k,192) = b(k,192) - lu(k,2075) * b(k,267) + b(k,177) = b(k,177) - lu(k,2074) * b(k,267) + b(k,171) = b(k,171) - lu(k,2073) * b(k,267) + b(k,164) = b(k,164) - lu(k,2072) * b(k,267) + b(k,121) = b(k,121) - lu(k,2071) * b(k,267) + b(k,113) = b(k,113) - lu(k,2070) * b(k,267) + b(k,112) = b(k,112) - lu(k,2069) * b(k,267) + b(k,72) = b(k,72) - lu(k,2068) * b(k,267) + b(k,71) = b(k,71) - lu(k,2067) * b(k,267) + b(k,70) = b(k,70) - lu(k,2066) * b(k,267) + b(k,69) = b(k,69) - lu(k,2065) * b(k,267) + b(k,68) = b(k,68) - lu(k,2064) * b(k,267) + b(k,266) = b(k,266) * lu(k,2053) + b(k,265) = b(k,265) - lu(k,2052) * b(k,266) + b(k,264) = b(k,264) - lu(k,2051) * b(k,266) + b(k,263) = b(k,263) - lu(k,2050) * b(k,266) + b(k,262) = b(k,262) - lu(k,2049) * b(k,266) + b(k,261) = b(k,261) - lu(k,2048) * b(k,266) + b(k,260) = b(k,260) - lu(k,2047) * b(k,266) + b(k,259) = b(k,259) - lu(k,2046) * b(k,266) + b(k,258) = b(k,258) - lu(k,2045) * b(k,266) + b(k,257) = b(k,257) - lu(k,2044) * b(k,266) + b(k,256) = b(k,256) - lu(k,2043) * b(k,266) + b(k,255) = b(k,255) - lu(k,2042) * b(k,266) + b(k,254) = b(k,254) - lu(k,2041) * b(k,266) + b(k,238) = b(k,238) - lu(k,2040) * b(k,266) + b(k,226) = b(k,226) - lu(k,2039) * b(k,266) + b(k,225) = b(k,225) - lu(k,2038) * b(k,266) + b(k,223) = b(k,223) - lu(k,2037) * b(k,266) + b(k,215) = b(k,215) - lu(k,2036) * b(k,266) + b(k,214) = b(k,214) - lu(k,2035) * b(k,266) + b(k,213) = b(k,213) - lu(k,2034) * b(k,266) + b(k,212) = b(k,212) - lu(k,2033) * b(k,266) + b(k,211) = b(k,211) - lu(k,2032) * b(k,266) + b(k,208) = b(k,208) - lu(k,2031) * b(k,266) + b(k,206) = b(k,206) - lu(k,2030) * b(k,266) + b(k,199) = b(k,199) - lu(k,2029) * b(k,266) + b(k,193) = b(k,193) - lu(k,2028) * b(k,266) + b(k,189) = b(k,189) - lu(k,2027) * b(k,266) + b(k,185) = b(k,185) - lu(k,2026) * b(k,266) + b(k,182) = b(k,182) - lu(k,2025) * b(k,266) + b(k,172) = b(k,172) - lu(k,2024) * b(k,266) + b(k,152) = b(k,152) - lu(k,2023) * b(k,266) + b(k,113) = b(k,113) - lu(k,2022) * b(k,266) + b(k,112) = b(k,112) - lu(k,2021) * b(k,266) end do end subroutine lu_slv08 subroutine lu_slv09( avec_len, lu, b ) @@ -1811,292 +1811,296 @@ subroutine lu_slv09( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,263) = b(k,263) * lu(k,2006) - b(k,262) = b(k,262) - lu(k,2005) * b(k,263) - b(k,261) = b(k,261) - lu(k,2004) * b(k,263) - b(k,260) = b(k,260) - lu(k,2003) * b(k,263) - b(k,259) = b(k,259) - lu(k,2002) * b(k,263) - b(k,258) = b(k,258) - lu(k,2001) * b(k,263) - b(k,257) = b(k,257) - lu(k,2000) * b(k,263) - b(k,256) = b(k,256) - lu(k,1999) * b(k,263) - b(k,255) = b(k,255) - lu(k,1998) * b(k,263) - b(k,254) = b(k,254) - lu(k,1997) * b(k,263) - b(k,253) = b(k,253) - lu(k,1996) * b(k,263) - b(k,252) = b(k,252) - lu(k,1995) * b(k,263) - b(k,251) = b(k,251) - lu(k,1994) * b(k,263) - b(k,250) = b(k,250) - lu(k,1993) * b(k,263) - b(k,249) = b(k,249) - lu(k,1992) * b(k,263) - b(k,248) = b(k,248) - lu(k,1991) * b(k,263) - b(k,247) = b(k,247) - lu(k,1990) * b(k,263) - b(k,246) = b(k,246) - lu(k,1989) * b(k,263) - b(k,245) = b(k,245) - lu(k,1988) * b(k,263) - b(k,244) = b(k,244) - lu(k,1987) * b(k,263) - b(k,243) = b(k,243) - lu(k,1986) * b(k,263) - b(k,242) = b(k,242) - lu(k,1985) * b(k,263) - b(k,241) = b(k,241) - lu(k,1984) * b(k,263) - b(k,240) = b(k,240) - lu(k,1983) * b(k,263) - b(k,239) = b(k,239) - lu(k,1982) * b(k,263) - b(k,238) = b(k,238) - lu(k,1981) * b(k,263) - b(k,237) = b(k,237) - lu(k,1980) * b(k,263) - b(k,236) = b(k,236) - lu(k,1979) * b(k,263) - b(k,235) = b(k,235) - lu(k,1978) * b(k,263) - b(k,234) = b(k,234) - lu(k,1977) * b(k,263) - b(k,233) = b(k,233) - lu(k,1976) * b(k,263) - b(k,232) = b(k,232) - lu(k,1975) * b(k,263) - b(k,231) = b(k,231) - lu(k,1974) * b(k,263) - b(k,230) = b(k,230) - lu(k,1973) * b(k,263) - b(k,229) = b(k,229) - lu(k,1972) * b(k,263) - b(k,228) = b(k,228) - lu(k,1971) * b(k,263) - b(k,227) = b(k,227) - lu(k,1970) * b(k,263) - b(k,226) = b(k,226) - lu(k,1969) * b(k,263) - b(k,225) = b(k,225) - lu(k,1968) * b(k,263) - b(k,224) = b(k,224) - lu(k,1967) * b(k,263) - b(k,223) = b(k,223) - lu(k,1966) * b(k,263) - b(k,222) = b(k,222) - lu(k,1965) * b(k,263) - b(k,221) = b(k,221) - lu(k,1964) * b(k,263) - b(k,220) = b(k,220) - lu(k,1963) * b(k,263) - b(k,219) = b(k,219) - lu(k,1962) * b(k,263) - b(k,218) = b(k,218) - lu(k,1961) * b(k,263) - b(k,217) = b(k,217) - lu(k,1960) * b(k,263) - b(k,216) = b(k,216) - lu(k,1959) * b(k,263) - b(k,215) = b(k,215) - lu(k,1958) * b(k,263) - b(k,214) = b(k,214) - lu(k,1957) * b(k,263) - b(k,210) = b(k,210) - lu(k,1956) * b(k,263) - b(k,209) = b(k,209) - lu(k,1955) * b(k,263) - b(k,208) = b(k,208) - lu(k,1954) * b(k,263) - b(k,207) = b(k,207) - lu(k,1953) * b(k,263) - b(k,204) = b(k,204) - lu(k,1952) * b(k,263) - b(k,203) = b(k,203) - lu(k,1951) * b(k,263) - b(k,202) = b(k,202) - lu(k,1950) * b(k,263) - b(k,201) = b(k,201) - lu(k,1949) * b(k,263) - b(k,200) = b(k,200) - lu(k,1948) * b(k,263) - b(k,199) = b(k,199) - lu(k,1947) * b(k,263) - b(k,198) = b(k,198) - lu(k,1946) * b(k,263) - b(k,197) = b(k,197) - lu(k,1945) * b(k,263) - b(k,196) = b(k,196) - lu(k,1944) * b(k,263) - b(k,194) = b(k,194) - lu(k,1943) * b(k,263) - b(k,193) = b(k,193) - lu(k,1942) * b(k,263) - b(k,192) = b(k,192) - lu(k,1941) * b(k,263) - b(k,191) = b(k,191) - lu(k,1940) * b(k,263) - b(k,190) = b(k,190) - lu(k,1939) * b(k,263) - b(k,189) = b(k,189) - lu(k,1938) * b(k,263) - b(k,188) = b(k,188) - lu(k,1937) * b(k,263) - b(k,187) = b(k,187) - lu(k,1936) * b(k,263) - b(k,186) = b(k,186) - lu(k,1935) * b(k,263) - b(k,185) = b(k,185) - lu(k,1934) * b(k,263) - b(k,184) = b(k,184) - lu(k,1933) * b(k,263) - b(k,183) = b(k,183) - lu(k,1932) * b(k,263) - b(k,182) = b(k,182) - lu(k,1931) * b(k,263) - b(k,181) = b(k,181) - lu(k,1930) * b(k,263) - b(k,180) = b(k,180) - lu(k,1929) * b(k,263) - b(k,178) = b(k,178) - lu(k,1928) * b(k,263) - b(k,177) = b(k,177) - lu(k,1927) * b(k,263) - b(k,176) = b(k,176) - lu(k,1926) * b(k,263) - b(k,174) = b(k,174) - lu(k,1925) * b(k,263) - b(k,173) = b(k,173) - lu(k,1924) * b(k,263) - b(k,172) = b(k,172) - lu(k,1923) * b(k,263) - b(k,170) = b(k,170) - lu(k,1922) * b(k,263) - b(k,169) = b(k,169) - lu(k,1921) * b(k,263) - b(k,168) = b(k,168) - lu(k,1920) * b(k,263) - b(k,167) = b(k,167) - lu(k,1919) * b(k,263) - b(k,166) = b(k,166) - lu(k,1918) * b(k,263) - b(k,164) = b(k,164) - lu(k,1917) * b(k,263) - b(k,163) = b(k,163) - lu(k,1916) * b(k,263) - b(k,162) = b(k,162) - lu(k,1915) * b(k,263) - b(k,160) = b(k,160) - lu(k,1914) * b(k,263) - b(k,159) = b(k,159) - lu(k,1913) * b(k,263) - b(k,157) = b(k,157) - lu(k,1912) * b(k,263) - b(k,156) = b(k,156) - lu(k,1911) * b(k,263) - b(k,155) = b(k,155) - lu(k,1910) * b(k,263) - b(k,154) = b(k,154) - lu(k,1909) * b(k,263) - b(k,153) = b(k,153) - lu(k,1908) * b(k,263) - b(k,152) = b(k,152) - lu(k,1907) * b(k,263) - b(k,151) = b(k,151) - lu(k,1906) * b(k,263) - b(k,150) = b(k,150) - lu(k,1905) * b(k,263) - b(k,149) = b(k,149) - lu(k,1904) * b(k,263) - b(k,148) = b(k,148) - lu(k,1903) * b(k,263) - b(k,147) = b(k,147) - lu(k,1902) * b(k,263) - b(k,146) = b(k,146) - lu(k,1901) * b(k,263) - b(k,145) = b(k,145) - lu(k,1900) * b(k,263) - b(k,143) = b(k,143) - lu(k,1899) * b(k,263) - b(k,142) = b(k,142) - lu(k,1898) * b(k,263) - b(k,141) = b(k,141) - lu(k,1897) * b(k,263) - b(k,139) = b(k,139) - lu(k,1896) * b(k,263) - b(k,138) = b(k,138) - lu(k,1895) * b(k,263) - b(k,136) = b(k,136) - lu(k,1894) * b(k,263) - b(k,135) = b(k,135) - lu(k,1893) * b(k,263) - b(k,133) = b(k,133) - lu(k,1892) * b(k,263) - b(k,131) = b(k,131) - lu(k,1891) * b(k,263) - b(k,130) = b(k,130) - lu(k,1890) * b(k,263) - b(k,129) = b(k,129) - lu(k,1889) * b(k,263) - b(k,127) = b(k,127) - lu(k,1888) * b(k,263) - b(k,126) = b(k,126) - lu(k,1887) * b(k,263) - b(k,125) = b(k,125) - lu(k,1886) * b(k,263) - b(k,124) = b(k,124) - lu(k,1885) * b(k,263) - b(k,123) = b(k,123) - lu(k,1884) * b(k,263) - b(k,122) = b(k,122) - lu(k,1883) * b(k,263) - b(k,120) = b(k,120) - lu(k,1882) * b(k,263) - b(k,119) = b(k,119) - lu(k,1881) * b(k,263) - b(k,118) = b(k,118) - lu(k,1880) * b(k,263) - b(k,117) = b(k,117) - lu(k,1879) * b(k,263) - b(k,116) = b(k,116) - lu(k,1878) * b(k,263) - b(k,115) = b(k,115) - lu(k,1877) * b(k,263) - b(k,114) = b(k,114) - lu(k,1876) * b(k,263) - b(k,113) = b(k,113) - lu(k,1875) * b(k,263) - b(k,112) = b(k,112) - lu(k,1874) * b(k,263) - b(k,109) = b(k,109) - lu(k,1873) * b(k,263) - b(k,108) = b(k,108) - lu(k,1872) * b(k,263) - b(k,107) = b(k,107) - lu(k,1871) * b(k,263) - b(k,98) = b(k,98) - lu(k,1870) * b(k,263) - b(k,96) = b(k,96) - lu(k,1869) * b(k,263) - b(k,91) = b(k,91) - lu(k,1868) * b(k,263) - b(k,89) = b(k,89) - lu(k,1867) * b(k,263) - b(k,88) = b(k,88) - lu(k,1866) * b(k,263) - b(k,87) = b(k,87) - lu(k,1865) * b(k,263) - b(k,86) = b(k,86) - lu(k,1864) * b(k,263) - b(k,85) = b(k,85) - lu(k,1863) * b(k,263) - b(k,83) = b(k,83) - lu(k,1862) * b(k,263) - b(k,82) = b(k,82) - lu(k,1861) * b(k,263) - b(k,81) = b(k,81) - lu(k,1860) * b(k,263) - b(k,80) = b(k,80) - lu(k,1859) * b(k,263) - b(k,79) = b(k,79) - lu(k,1858) * b(k,263) - b(k,78) = b(k,78) - lu(k,1857) * b(k,263) - b(k,77) = b(k,77) - lu(k,1856) * b(k,263) - b(k,76) = b(k,76) - lu(k,1855) * b(k,263) - b(k,75) = b(k,75) - lu(k,1854) * b(k,263) - b(k,74) = b(k,74) - lu(k,1853) * b(k,263) - b(k,73) = b(k,73) - lu(k,1852) * b(k,263) - b(k,67) = b(k,67) - lu(k,1851) * b(k,263) - b(k,66) = b(k,66) - lu(k,1850) * b(k,263) - b(k,65) = b(k,65) - lu(k,1849) * b(k,263) - b(k,64) = b(k,64) - lu(k,1848) * b(k,263) - b(k,63) = b(k,63) - lu(k,1847) * b(k,263) - b(k,62) = b(k,62) - lu(k,1846) * b(k,263) - b(k,61) = b(k,61) - lu(k,1845) * b(k,263) - b(k,262) = b(k,262) * lu(k,1832) - b(k,261) = b(k,261) - lu(k,1831) * b(k,262) - b(k,260) = b(k,260) - lu(k,1830) * b(k,262) - b(k,259) = b(k,259) - lu(k,1829) * b(k,262) - b(k,258) = b(k,258) - lu(k,1828) * b(k,262) - b(k,257) = b(k,257) - lu(k,1827) * b(k,262) - b(k,256) = b(k,256) - lu(k,1826) * b(k,262) - b(k,255) = b(k,255) - lu(k,1825) * b(k,262) - b(k,253) = b(k,253) - lu(k,1824) * b(k,262) - b(k,219) = b(k,219) - lu(k,1823) * b(k,262) - b(k,210) = b(k,210) - lu(k,1822) * b(k,262) - b(k,182) = b(k,182) - lu(k,1821) * b(k,262) - b(k,166) = b(k,166) - lu(k,1820) * b(k,262) - b(k,157) = b(k,157) - lu(k,1819) * b(k,262) - b(k,139) = b(k,139) - lu(k,1818) * b(k,262) - b(k,128) = b(k,128) - lu(k,1817) * b(k,262) - b(k,127) = b(k,127) - lu(k,1816) * b(k,262) - b(k,126) = b(k,126) - lu(k,1815) * b(k,262) - b(k,125) = b(k,125) - lu(k,1814) * b(k,262) - b(k,119) = b(k,119) - lu(k,1813) * b(k,262) - b(k,116) = b(k,116) - lu(k,1812) * b(k,262) - b(k,111) = b(k,111) - lu(k,1811) * b(k,262) - b(k,105) = b(k,105) - lu(k,1810) * b(k,262) - b(k,104) = b(k,104) - lu(k,1809) * b(k,262) - b(k,103) = b(k,103) - lu(k,1808) * b(k,262) - b(k,102) = b(k,102) - lu(k,1807) * b(k,262) - b(k,97) = b(k,97) - lu(k,1806) * b(k,262) - b(k,95) = b(k,95) - lu(k,1805) * b(k,262) - b(k,94) = b(k,94) - lu(k,1804) * b(k,262) - b(k,93) = b(k,93) - lu(k,1803) * b(k,262) - b(k,90) = b(k,90) - lu(k,1802) * b(k,262) - b(k,261) = b(k,261) * lu(k,1788) - b(k,260) = b(k,260) - lu(k,1787) * b(k,261) - b(k,259) = b(k,259) - lu(k,1786) * b(k,261) - b(k,258) = b(k,258) - lu(k,1785) * b(k,261) - b(k,257) = b(k,257) - lu(k,1784) * b(k,261) - b(k,256) = b(k,256) - lu(k,1783) * b(k,261) - b(k,252) = b(k,252) - lu(k,1782) * b(k,261) - b(k,251) = b(k,251) - lu(k,1781) * b(k,261) - b(k,250) = b(k,250) - lu(k,1780) * b(k,261) - b(k,249) = b(k,249) - lu(k,1779) * b(k,261) - b(k,248) = b(k,248) - lu(k,1778) * b(k,261) - b(k,247) = b(k,247) - lu(k,1777) * b(k,261) - b(k,246) = b(k,246) - lu(k,1776) * b(k,261) - b(k,245) = b(k,245) - lu(k,1775) * b(k,261) - b(k,244) = b(k,244) - lu(k,1774) * b(k,261) - b(k,243) = b(k,243) - lu(k,1773) * b(k,261) - b(k,242) = b(k,242) - lu(k,1772) * b(k,261) - b(k,241) = b(k,241) - lu(k,1771) * b(k,261) - b(k,240) = b(k,240) - lu(k,1770) * b(k,261) - b(k,239) = b(k,239) - lu(k,1769) * b(k,261) - b(k,238) = b(k,238) - lu(k,1768) * b(k,261) - b(k,237) = b(k,237) - lu(k,1767) * b(k,261) - b(k,236) = b(k,236) - lu(k,1766) * b(k,261) - b(k,235) = b(k,235) - lu(k,1765) * b(k,261) - b(k,233) = b(k,233) - lu(k,1764) * b(k,261) - b(k,232) = b(k,232) - lu(k,1763) * b(k,261) - b(k,231) = b(k,231) - lu(k,1762) * b(k,261) - b(k,230) = b(k,230) - lu(k,1761) * b(k,261) - b(k,229) = b(k,229) - lu(k,1760) * b(k,261) - b(k,228) = b(k,228) - lu(k,1759) * b(k,261) - b(k,227) = b(k,227) - lu(k,1758) * b(k,261) - b(k,226) = b(k,226) - lu(k,1757) * b(k,261) - b(k,224) = b(k,224) - lu(k,1756) * b(k,261) - b(k,220) = b(k,220) - lu(k,1755) * b(k,261) - b(k,218) = b(k,218) - lu(k,1754) * b(k,261) - b(k,217) = b(k,217) - lu(k,1753) * b(k,261) - b(k,216) = b(k,216) - lu(k,1752) * b(k,261) - b(k,215) = b(k,215) - lu(k,1751) * b(k,261) - b(k,213) = b(k,213) - lu(k,1750) * b(k,261) - b(k,212) = b(k,212) - lu(k,1749) * b(k,261) - b(k,211) = b(k,211) - lu(k,1748) * b(k,261) - b(k,208) = b(k,208) - lu(k,1747) * b(k,261) - b(k,204) = b(k,204) - lu(k,1746) * b(k,261) - b(k,203) = b(k,203) - lu(k,1745) * b(k,261) - b(k,202) = b(k,202) - lu(k,1744) * b(k,261) - b(k,201) = b(k,201) - lu(k,1743) * b(k,261) - b(k,200) = b(k,200) - lu(k,1742) * b(k,261) - b(k,193) = b(k,193) - lu(k,1741) * b(k,261) - b(k,191) = b(k,191) - lu(k,1740) * b(k,261) - b(k,190) = b(k,190) - lu(k,1739) * b(k,261) - b(k,189) = b(k,189) - lu(k,1738) * b(k,261) - b(k,188) = b(k,188) - lu(k,1737) * b(k,261) - b(k,185) = b(k,185) - lu(k,1736) * b(k,261) - b(k,180) = b(k,180) - lu(k,1735) * b(k,261) - b(k,178) = b(k,178) - lu(k,1734) * b(k,261) - b(k,174) = b(k,174) - lu(k,1733) * b(k,261) - b(k,173) = b(k,173) - lu(k,1732) * b(k,261) - b(k,172) = b(k,172) - lu(k,1731) * b(k,261) - b(k,170) = b(k,170) - lu(k,1730) * b(k,261) - b(k,169) = b(k,169) - lu(k,1729) * b(k,261) - b(k,165) = b(k,165) - lu(k,1728) * b(k,261) - b(k,164) = b(k,164) - lu(k,1727) * b(k,261) - b(k,163) = b(k,163) - lu(k,1726) * b(k,261) - b(k,161) = b(k,161) - lu(k,1725) * b(k,261) - b(k,160) = b(k,160) - lu(k,1724) * b(k,261) - b(k,147) = b(k,147) - lu(k,1723) * b(k,261) - b(k,144) = b(k,144) - lu(k,1722) * b(k,261) - b(k,134) = b(k,134) - lu(k,1721) * b(k,261) - b(k,123) = b(k,123) - lu(k,1720) * b(k,261) - b(k,122) = b(k,122) - lu(k,1719) * b(k,261) - b(k,88) = b(k,88) - lu(k,1718) * b(k,261) - b(k,87) = b(k,87) - lu(k,1717) * b(k,261) - b(k,82) = b(k,82) - lu(k,1716) * b(k,261) - b(k,81) = b(k,81) - lu(k,1715) * b(k,261) - b(k,80) = b(k,80) - lu(k,1714) * b(k,261) - b(k,79) = b(k,79) - lu(k,1713) * b(k,261) - b(k,78) = b(k,78) - lu(k,1712) * b(k,261) - b(k,77) = b(k,77) - lu(k,1711) * b(k,261) - b(k,76) = b(k,76) - lu(k,1710) * b(k,261) - b(k,75) = b(k,75) - lu(k,1709) * b(k,261) - b(k,74) = b(k,74) - lu(k,1708) * b(k,261) - b(k,73) = b(k,73) - lu(k,1707) * b(k,261) - b(k,72) = b(k,72) - lu(k,1706) * b(k,261) - b(k,71) = b(k,71) - lu(k,1705) * b(k,261) - b(k,70) = b(k,70) - lu(k,1704) * b(k,261) - b(k,69) = b(k,69) - lu(k,1703) * b(k,261) - b(k,68) = b(k,68) - lu(k,1702) * b(k,261) - b(k,66) = b(k,66) - lu(k,1701) * b(k,261) - b(k,65) = b(k,65) - lu(k,1700) * b(k,261) - b(k,64) = b(k,64) - lu(k,1699) * b(k,261) - b(k,63) = b(k,63) - lu(k,1698) * b(k,261) - b(k,62) = b(k,62) - lu(k,1697) * b(k,261) - b(k,61) = b(k,61) - lu(k,1696) * b(k,261) + b(k,265) = b(k,265) * lu(k,2009) + b(k,264) = b(k,264) - lu(k,2008) * b(k,265) + b(k,263) = b(k,263) - lu(k,2007) * b(k,265) + b(k,262) = b(k,262) - lu(k,2006) * b(k,265) + b(k,261) = b(k,261) - lu(k,2005) * b(k,265) + b(k,260) = b(k,260) - lu(k,2004) * b(k,265) + b(k,259) = b(k,259) - lu(k,2003) * b(k,265) + b(k,258) = b(k,258) - lu(k,2002) * b(k,265) + b(k,257) = b(k,257) - lu(k,2001) * b(k,265) + b(k,255) = b(k,255) - lu(k,2000) * b(k,265) + b(k,254) = b(k,254) - lu(k,1999) * b(k,265) + b(k,253) = b(k,253) - lu(k,1998) * b(k,265) + b(k,247) = b(k,247) - lu(k,1997) * b(k,265) + b(k,243) = b(k,243) - lu(k,1996) * b(k,265) + b(k,239) = b(k,239) - lu(k,1995) * b(k,265) + b(k,238) = b(k,238) - lu(k,1994) * b(k,265) + b(k,237) = b(k,237) - lu(k,1993) * b(k,265) + b(k,232) = b(k,232) - lu(k,1992) * b(k,265) + b(k,229) = b(k,229) - lu(k,1991) * b(k,265) + b(k,226) = b(k,226) - lu(k,1990) * b(k,265) + b(k,222) = b(k,222) - lu(k,1989) * b(k,265) + b(k,219) = b(k,219) - lu(k,1988) * b(k,265) + b(k,218) = b(k,218) - lu(k,1987) * b(k,265) + b(k,212) = b(k,212) - lu(k,1986) * b(k,265) + b(k,207) = b(k,207) - lu(k,1985) * b(k,265) + b(k,190) = b(k,190) - lu(k,1984) * b(k,265) + b(k,185) = b(k,185) - lu(k,1983) * b(k,265) + b(k,177) = b(k,177) - lu(k,1982) * b(k,265) + b(k,168) = b(k,168) - lu(k,1981) * b(k,265) + b(k,157) = b(k,157) - lu(k,1980) * b(k,265) + b(k,151) = b(k,151) - lu(k,1979) * b(k,265) + b(k,136) = b(k,136) - lu(k,1978) * b(k,265) + b(k,135) = b(k,135) - lu(k,1977) * b(k,265) + b(k,134) = b(k,134) - lu(k,1976) * b(k,265) + b(k,108) = b(k,108) - lu(k,1975) * b(k,265) + b(k,264) = b(k,264) * lu(k,1962) + b(k,263) = b(k,263) - lu(k,1961) * b(k,264) + b(k,262) = b(k,262) - lu(k,1960) * b(k,264) + b(k,261) = b(k,261) - lu(k,1959) * b(k,264) + b(k,260) = b(k,260) - lu(k,1958) * b(k,264) + b(k,259) = b(k,259) - lu(k,1957) * b(k,264) + b(k,258) = b(k,258) - lu(k,1956) * b(k,264) + b(k,254) = b(k,254) - lu(k,1955) * b(k,264) + b(k,253) = b(k,253) - lu(k,1954) * b(k,264) + b(k,252) = b(k,252) - lu(k,1953) * b(k,264) + b(k,251) = b(k,251) - lu(k,1952) * b(k,264) + b(k,250) = b(k,250) - lu(k,1951) * b(k,264) + b(k,249) = b(k,249) - lu(k,1950) * b(k,264) + b(k,248) = b(k,248) - lu(k,1949) * b(k,264) + b(k,247) = b(k,247) - lu(k,1948) * b(k,264) + b(k,246) = b(k,246) - lu(k,1947) * b(k,264) + b(k,245) = b(k,245) - lu(k,1946) * b(k,264) + b(k,244) = b(k,244) - lu(k,1945) * b(k,264) + b(k,243) = b(k,243) - lu(k,1944) * b(k,264) + b(k,242) = b(k,242) - lu(k,1943) * b(k,264) + b(k,241) = b(k,241) - lu(k,1942) * b(k,264) + b(k,240) = b(k,240) - lu(k,1941) * b(k,264) + b(k,239) = b(k,239) - lu(k,1940) * b(k,264) + b(k,238) = b(k,238) - lu(k,1939) * b(k,264) + b(k,237) = b(k,237) - lu(k,1938) * b(k,264) + b(k,235) = b(k,235) - lu(k,1937) * b(k,264) + b(k,234) = b(k,234) - lu(k,1936) * b(k,264) + b(k,233) = b(k,233) - lu(k,1935) * b(k,264) + b(k,232) = b(k,232) - lu(k,1934) * b(k,264) + b(k,231) = b(k,231) - lu(k,1933) * b(k,264) + b(k,230) = b(k,230) - lu(k,1932) * b(k,264) + b(k,229) = b(k,229) - lu(k,1931) * b(k,264) + b(k,228) = b(k,228) - lu(k,1930) * b(k,264) + b(k,225) = b(k,225) - lu(k,1929) * b(k,264) + b(k,222) = b(k,222) - lu(k,1928) * b(k,264) + b(k,220) = b(k,220) - lu(k,1927) * b(k,264) + b(k,219) = b(k,219) - lu(k,1926) * b(k,264) + b(k,218) = b(k,218) - lu(k,1925) * b(k,264) + b(k,216) = b(k,216) - lu(k,1924) * b(k,264) + b(k,215) = b(k,215) - lu(k,1923) * b(k,264) + b(k,214) = b(k,214) - lu(k,1922) * b(k,264) + b(k,213) = b(k,213) - lu(k,1921) * b(k,264) + b(k,209) = b(k,209) - lu(k,1920) * b(k,264) + b(k,207) = b(k,207) - lu(k,1919) * b(k,264) + b(k,205) = b(k,205) - lu(k,1918) * b(k,264) + b(k,204) = b(k,204) - lu(k,1917) * b(k,264) + b(k,202) = b(k,202) - lu(k,1916) * b(k,264) + b(k,201) = b(k,201) - lu(k,1915) * b(k,264) + b(k,197) = b(k,197) - lu(k,1914) * b(k,264) + b(k,196) = b(k,196) - lu(k,1913) * b(k,264) + b(k,193) = b(k,193) - lu(k,1912) * b(k,264) + b(k,192) = b(k,192) - lu(k,1911) * b(k,264) + b(k,191) = b(k,191) - lu(k,1910) * b(k,264) + b(k,187) = b(k,187) - lu(k,1909) * b(k,264) + b(k,184) = b(k,184) - lu(k,1908) * b(k,264) + b(k,181) = b(k,181) - lu(k,1907) * b(k,264) + b(k,179) = b(k,179) - lu(k,1906) * b(k,264) + b(k,176) = b(k,176) - lu(k,1905) * b(k,264) + b(k,175) = b(k,175) - lu(k,1904) * b(k,264) + b(k,174) = b(k,174) - lu(k,1903) * b(k,264) + b(k,171) = b(k,171) - lu(k,1902) * b(k,264) + b(k,170) = b(k,170) - lu(k,1901) * b(k,264) + b(k,167) = b(k,167) - lu(k,1900) * b(k,264) + b(k,166) = b(k,166) - lu(k,1899) * b(k,264) + b(k,165) = b(k,165) - lu(k,1898) * b(k,264) + b(k,162) = b(k,162) - lu(k,1897) * b(k,264) + b(k,161) = b(k,161) - lu(k,1896) * b(k,264) + b(k,149) = b(k,149) - lu(k,1895) * b(k,264) + b(k,145) = b(k,145) - lu(k,1894) * b(k,264) + b(k,139) = b(k,139) - lu(k,1893) * b(k,264) + b(k,124) = b(k,124) - lu(k,1892) * b(k,264) + b(k,123) = b(k,123) - lu(k,1891) * b(k,264) + b(k,90) = b(k,90) - lu(k,1890) * b(k,264) + b(k,89) = b(k,89) - lu(k,1889) * b(k,264) + b(k,88) = b(k,88) - lu(k,1888) * b(k,264) + b(k,86) = b(k,86) - lu(k,1887) * b(k,264) + b(k,84) = b(k,84) - lu(k,1886) * b(k,264) + b(k,83) = b(k,83) - lu(k,1885) * b(k,264) + b(k,82) = b(k,82) - lu(k,1884) * b(k,264) + b(k,81) = b(k,81) - lu(k,1883) * b(k,264) + b(k,77) = b(k,77) - lu(k,1882) * b(k,264) + b(k,76) = b(k,76) - lu(k,1881) * b(k,264) + b(k,75) = b(k,75) - lu(k,1880) * b(k,264) + b(k,74) = b(k,74) - lu(k,1879) * b(k,264) + b(k,73) = b(k,73) - lu(k,1878) * b(k,264) + b(k,72) = b(k,72) - lu(k,1877) * b(k,264) + b(k,71) = b(k,71) - lu(k,1876) * b(k,264) + b(k,70) = b(k,70) - lu(k,1875) * b(k,264) + b(k,69) = b(k,69) - lu(k,1874) * b(k,264) + b(k,68) = b(k,68) - lu(k,1873) * b(k,264) + b(k,67) = b(k,67) - lu(k,1872) * b(k,264) + b(k,66) = b(k,66) - lu(k,1871) * b(k,264) + b(k,65) = b(k,65) - lu(k,1870) * b(k,264) + b(k,64) = b(k,64) - lu(k,1869) * b(k,264) + b(k,63) = b(k,63) - lu(k,1868) * b(k,264) + b(k,263) = b(k,263) * lu(k,1854) + b(k,262) = b(k,262) - lu(k,1853) * b(k,263) + b(k,261) = b(k,261) - lu(k,1852) * b(k,263) + b(k,260) = b(k,260) - lu(k,1851) * b(k,263) + b(k,259) = b(k,259) - lu(k,1850) * b(k,263) + b(k,258) = b(k,258) - lu(k,1849) * b(k,263) + b(k,257) = b(k,257) - lu(k,1848) * b(k,263) + b(k,256) = b(k,256) - lu(k,1847) * b(k,263) + b(k,255) = b(k,255) - lu(k,1846) * b(k,263) + b(k,254) = b(k,254) - lu(k,1845) * b(k,263) + b(k,253) = b(k,253) - lu(k,1844) * b(k,263) + b(k,252) = b(k,252) - lu(k,1843) * b(k,263) + b(k,251) = b(k,251) - lu(k,1842) * b(k,263) + b(k,250) = b(k,250) - lu(k,1841) * b(k,263) + b(k,249) = b(k,249) - lu(k,1840) * b(k,263) + b(k,248) = b(k,248) - lu(k,1839) * b(k,263) + b(k,247) = b(k,247) - lu(k,1838) * b(k,263) + b(k,246) = b(k,246) - lu(k,1837) * b(k,263) + b(k,245) = b(k,245) - lu(k,1836) * b(k,263) + b(k,244) = b(k,244) - lu(k,1835) * b(k,263) + b(k,243) = b(k,243) - lu(k,1834) * b(k,263) + b(k,242) = b(k,242) - lu(k,1833) * b(k,263) + b(k,241) = b(k,241) - lu(k,1832) * b(k,263) + b(k,240) = b(k,240) - lu(k,1831) * b(k,263) + b(k,239) = b(k,239) - lu(k,1830) * b(k,263) + b(k,238) = b(k,238) - lu(k,1829) * b(k,263) + b(k,237) = b(k,237) - lu(k,1828) * b(k,263) + b(k,236) = b(k,236) - lu(k,1827) * b(k,263) + b(k,235) = b(k,235) - lu(k,1826) * b(k,263) + b(k,234) = b(k,234) - lu(k,1825) * b(k,263) + b(k,233) = b(k,233) - lu(k,1824) * b(k,263) + b(k,232) = b(k,232) - lu(k,1823) * b(k,263) + b(k,231) = b(k,231) - lu(k,1822) * b(k,263) + b(k,230) = b(k,230) - lu(k,1821) * b(k,263) + b(k,229) = b(k,229) - lu(k,1820) * b(k,263) + b(k,228) = b(k,228) - lu(k,1819) * b(k,263) + b(k,227) = b(k,227) - lu(k,1818) * b(k,263) + b(k,226) = b(k,226) - lu(k,1817) * b(k,263) + b(k,225) = b(k,225) - lu(k,1816) * b(k,263) + b(k,224) = b(k,224) - lu(k,1815) * b(k,263) + b(k,223) = b(k,223) - lu(k,1814) * b(k,263) + b(k,222) = b(k,222) - lu(k,1813) * b(k,263) + b(k,221) = b(k,221) - lu(k,1812) * b(k,263) + b(k,220) = b(k,220) - lu(k,1811) * b(k,263) + b(k,219) = b(k,219) - lu(k,1810) * b(k,263) + b(k,218) = b(k,218) - lu(k,1809) * b(k,263) + b(k,217) = b(k,217) - lu(k,1808) * b(k,263) + b(k,216) = b(k,216) - lu(k,1807) * b(k,263) + b(k,212) = b(k,212) - lu(k,1806) * b(k,263) + b(k,211) = b(k,211) - lu(k,1805) * b(k,263) + b(k,210) = b(k,210) - lu(k,1804) * b(k,263) + b(k,209) = b(k,209) - lu(k,1803) * b(k,263) + b(k,207) = b(k,207) - lu(k,1802) * b(k,263) + b(k,205) = b(k,205) - lu(k,1801) * b(k,263) + b(k,204) = b(k,204) - lu(k,1800) * b(k,263) + b(k,203) = b(k,203) - lu(k,1799) * b(k,263) + b(k,202) = b(k,202) - lu(k,1798) * b(k,263) + b(k,201) = b(k,201) - lu(k,1797) * b(k,263) + b(k,200) = b(k,200) - lu(k,1796) * b(k,263) + b(k,199) = b(k,199) - lu(k,1795) * b(k,263) + b(k,198) = b(k,198) - lu(k,1794) * b(k,263) + b(k,197) = b(k,197) - lu(k,1793) * b(k,263) + b(k,196) = b(k,196) - lu(k,1792) * b(k,263) + b(k,195) = b(k,195) - lu(k,1791) * b(k,263) + b(k,194) = b(k,194) - lu(k,1790) * b(k,263) + b(k,192) = b(k,192) - lu(k,1789) * b(k,263) + b(k,191) = b(k,191) - lu(k,1788) * b(k,263) + b(k,190) = b(k,190) - lu(k,1787) * b(k,263) + b(k,188) = b(k,188) - lu(k,1786) * b(k,263) + b(k,187) = b(k,187) - lu(k,1785) * b(k,263) + b(k,186) = b(k,186) - lu(k,1784) * b(k,263) + b(k,185) = b(k,185) - lu(k,1783) * b(k,263) + b(k,184) = b(k,184) - lu(k,1782) * b(k,263) + b(k,183) = b(k,183) - lu(k,1781) * b(k,263) + b(k,181) = b(k,181) - lu(k,1780) * b(k,263) + b(k,180) = b(k,180) - lu(k,1779) * b(k,263) + b(k,179) = b(k,179) - lu(k,1778) * b(k,263) + b(k,178) = b(k,178) - lu(k,1777) * b(k,263) + b(k,177) = b(k,177) - lu(k,1776) * b(k,263) + b(k,176) = b(k,176) - lu(k,1775) * b(k,263) + b(k,175) = b(k,175) - lu(k,1774) * b(k,263) + b(k,174) = b(k,174) - lu(k,1773) * b(k,263) + b(k,173) = b(k,173) - lu(k,1772) * b(k,263) + b(k,171) = b(k,171) - lu(k,1771) * b(k,263) + b(k,170) = b(k,170) - lu(k,1770) * b(k,263) + b(k,169) = b(k,169) - lu(k,1769) * b(k,263) + b(k,168) = b(k,168) - lu(k,1768) * b(k,263) + b(k,166) = b(k,166) - lu(k,1767) * b(k,263) + b(k,165) = b(k,165) - lu(k,1766) * b(k,263) + b(k,163) = b(k,163) - lu(k,1765) * b(k,263) + b(k,161) = b(k,161) - lu(k,1764) * b(k,263) + b(k,160) = b(k,160) - lu(k,1763) * b(k,263) + b(k,159) = b(k,159) - lu(k,1762) * b(k,263) + b(k,158) = b(k,158) - lu(k,1761) * b(k,263) + b(k,157) = b(k,157) - lu(k,1760) * b(k,263) + b(k,156) = b(k,156) - lu(k,1759) * b(k,263) + b(k,155) = b(k,155) - lu(k,1758) * b(k,263) + b(k,154) = b(k,154) - lu(k,1757) * b(k,263) + b(k,153) = b(k,153) - lu(k,1756) * b(k,263) + b(k,152) = b(k,152) - lu(k,1755) * b(k,263) + b(k,151) = b(k,151) - lu(k,1754) * b(k,263) + b(k,150) = b(k,150) - lu(k,1753) * b(k,263) + b(k,147) = b(k,147) - lu(k,1752) * b(k,263) + b(k,146) = b(k,146) - lu(k,1751) * b(k,263) + b(k,145) = b(k,145) - lu(k,1750) * b(k,263) + b(k,144) = b(k,144) - lu(k,1749) * b(k,263) + b(k,143) = b(k,143) - lu(k,1748) * b(k,263) + b(k,142) = b(k,142) - lu(k,1747) * b(k,263) + b(k,140) = b(k,140) - lu(k,1746) * b(k,263) + b(k,138) = b(k,138) - lu(k,1745) * b(k,263) + b(k,136) = b(k,136) - lu(k,1744) * b(k,263) + b(k,135) = b(k,135) - lu(k,1743) * b(k,263) + b(k,134) = b(k,134) - lu(k,1742) * b(k,263) + b(k,132) = b(k,132) - lu(k,1741) * b(k,263) + b(k,131) = b(k,131) - lu(k,1740) * b(k,263) + b(k,130) = b(k,130) - lu(k,1739) * b(k,263) + b(k,129) = b(k,129) - lu(k,1738) * b(k,263) + b(k,128) = b(k,128) - lu(k,1737) * b(k,263) + b(k,127) = b(k,127) - lu(k,1736) * b(k,263) + b(k,126) = b(k,126) - lu(k,1735) * b(k,263) + b(k,125) = b(k,125) - lu(k,1734) * b(k,263) + b(k,124) = b(k,124) - lu(k,1733) * b(k,263) + b(k,123) = b(k,123) - lu(k,1732) * b(k,263) + b(k,121) = b(k,121) - lu(k,1731) * b(k,263) + b(k,120) = b(k,120) - lu(k,1730) * b(k,263) + b(k,119) = b(k,119) - lu(k,1729) * b(k,263) + b(k,118) = b(k,118) - lu(k,1728) * b(k,263) + b(k,117) = b(k,117) - lu(k,1727) * b(k,263) + b(k,116) = b(k,116) - lu(k,1726) * b(k,263) + b(k,115) = b(k,115) - lu(k,1725) * b(k,263) + b(k,114) = b(k,114) - lu(k,1724) * b(k,263) + b(k,111) = b(k,111) - lu(k,1723) * b(k,263) + b(k,110) = b(k,110) - lu(k,1722) * b(k,263) + b(k,109) = b(k,109) - lu(k,1721) * b(k,263) + b(k,105) = b(k,105) - lu(k,1720) * b(k,263) + b(k,98) = b(k,98) - lu(k,1719) * b(k,263) + b(k,93) = b(k,93) - lu(k,1718) * b(k,263) + b(k,91) = b(k,91) - lu(k,1717) * b(k,263) + b(k,90) = b(k,90) - lu(k,1716) * b(k,263) + b(k,89) = b(k,89) - lu(k,1715) * b(k,263) + b(k,88) = b(k,88) - lu(k,1714) * b(k,263) + b(k,87) = b(k,87) - lu(k,1713) * b(k,263) + b(k,86) = b(k,86) - lu(k,1712) * b(k,263) + b(k,85) = b(k,85) - lu(k,1711) * b(k,263) + b(k,84) = b(k,84) - lu(k,1710) * b(k,263) + b(k,83) = b(k,83) - lu(k,1709) * b(k,263) + b(k,82) = b(k,82) - lu(k,1708) * b(k,263) + b(k,81) = b(k,81) - lu(k,1707) * b(k,263) + b(k,80) = b(k,80) - lu(k,1706) * b(k,263) + b(k,79) = b(k,79) - lu(k,1705) * b(k,263) + b(k,77) = b(k,77) - lu(k,1704) * b(k,263) + b(k,76) = b(k,76) - lu(k,1703) * b(k,263) + b(k,75) = b(k,75) - lu(k,1702) * b(k,263) + b(k,74) = b(k,74) - lu(k,1701) * b(k,263) + b(k,73) = b(k,73) - lu(k,1700) * b(k,263) + b(k,67) = b(k,67) - lu(k,1699) * b(k,263) + b(k,66) = b(k,66) - lu(k,1698) * b(k,263) + b(k,65) = b(k,65) - lu(k,1697) * b(k,263) + b(k,64) = b(k,64) - lu(k,1696) * b(k,263) + b(k,63) = b(k,63) - lu(k,1695) * b(k,263) end do end subroutine lu_slv09 subroutine lu_slv10( avec_len, lu, b ) @@ -2117,209 +2121,214 @@ subroutine lu_slv10( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,260) = b(k,260) * lu(k,1681) - b(k,259) = b(k,259) - lu(k,1680) * b(k,260) - b(k,258) = b(k,258) - lu(k,1679) * b(k,260) - b(k,257) = b(k,257) - lu(k,1678) * b(k,260) - b(k,256) = b(k,256) - lu(k,1677) * b(k,260) - b(k,255) = b(k,255) - lu(k,1676) * b(k,260) - b(k,254) = b(k,254) - lu(k,1675) * b(k,260) - b(k,252) = b(k,252) - lu(k,1674) * b(k,260) - b(k,251) = b(k,251) - lu(k,1673) * b(k,260) - b(k,250) = b(k,250) - lu(k,1672) * b(k,260) - b(k,245) = b(k,245) - lu(k,1671) * b(k,260) - b(k,240) = b(k,240) - lu(k,1670) * b(k,260) - b(k,236) = b(k,236) - lu(k,1669) * b(k,260) - b(k,227) = b(k,227) - lu(k,1668) * b(k,260) - b(k,224) = b(k,224) - lu(k,1667) * b(k,260) - b(k,223) = b(k,223) - lu(k,1666) * b(k,260) - b(k,221) = b(k,221) - lu(k,1665) * b(k,260) - b(k,218) = b(k,218) - lu(k,1664) * b(k,260) - b(k,205) = b(k,205) - lu(k,1663) * b(k,260) - b(k,203) = b(k,203) - lu(k,1662) * b(k,260) - b(k,200) = b(k,200) - lu(k,1661) * b(k,260) - b(k,190) = b(k,190) - lu(k,1660) * b(k,260) - b(k,187) = b(k,187) - lu(k,1659) * b(k,260) - b(k,179) = b(k,179) - lu(k,1658) * b(k,260) - b(k,176) = b(k,176) - lu(k,1657) * b(k,260) - b(k,174) = b(k,174) - lu(k,1656) * b(k,260) - b(k,169) = b(k,169) - lu(k,1655) * b(k,260) - b(k,167) = b(k,167) - lu(k,1654) * b(k,260) - b(k,132) = b(k,132) - lu(k,1653) * b(k,260) - b(k,128) = b(k,128) - lu(k,1652) * b(k,260) - b(k,101) = b(k,101) - lu(k,1651) * b(k,260) - b(k,259) = b(k,259) * lu(k,1636) - b(k,258) = b(k,258) - lu(k,1635) * b(k,259) - b(k,257) = b(k,257) - lu(k,1634) * b(k,259) - b(k,256) = b(k,256) - lu(k,1633) * b(k,259) - b(k,255) = b(k,255) - lu(k,1632) * b(k,259) - b(k,254) = b(k,254) - lu(k,1631) * b(k,259) - b(k,223) = b(k,223) - lu(k,1630) * b(k,259) - b(k,221) = b(k,221) - lu(k,1629) * b(k,259) - b(k,209) = b(k,209) - lu(k,1628) * b(k,259) - b(k,140) = b(k,140) - lu(k,1627) * b(k,259) - b(k,121) = b(k,121) - lu(k,1626) * b(k,259) - b(k,106) = b(k,106) - lu(k,1625) * b(k,259) - b(k,92) = b(k,92) - lu(k,1624) * b(k,259) - b(k,258) = b(k,258) * lu(k,1609) - b(k,257) = b(k,257) - lu(k,1608) * b(k,258) - b(k,256) = b(k,256) - lu(k,1607) * b(k,258) - b(k,255) = b(k,255) - lu(k,1606) * b(k,258) - b(k,254) = b(k,254) - lu(k,1605) * b(k,258) - b(k,221) = b(k,221) - lu(k,1604) * b(k,258) - b(k,205) = b(k,205) - lu(k,1603) * b(k,258) - b(k,179) = b(k,179) - lu(k,1602) * b(k,258) - b(k,140) = b(k,140) - lu(k,1601) * b(k,258) - b(k,121) = b(k,121) - lu(k,1600) * b(k,258) - b(k,257) = b(k,257) * lu(k,1586) - b(k,256) = b(k,256) - lu(k,1585) * b(k,257) - b(k,254) = b(k,254) - lu(k,1584) * b(k,257) - b(k,252) = b(k,252) - lu(k,1583) * b(k,257) - b(k,237) = b(k,237) - lu(k,1582) * b(k,257) - b(k,236) = b(k,236) - lu(k,1581) * b(k,257) - b(k,224) = b(k,224) - lu(k,1580) * b(k,257) - b(k,221) = b(k,221) - lu(k,1579) * b(k,257) - b(k,213) = b(k,213) - lu(k,1578) * b(k,257) - b(k,212) = b(k,212) - lu(k,1577) * b(k,257) - b(k,211) = b(k,211) - lu(k,1576) * b(k,257) - b(k,206) = b(k,206) - lu(k,1575) * b(k,257) - b(k,199) = b(k,199) - lu(k,1574) * b(k,257) - b(k,195) = b(k,195) - lu(k,1573) * b(k,257) - b(k,175) = b(k,175) - lu(k,1572) * b(k,257) - b(k,171) = b(k,171) - lu(k,1571) * b(k,257) - b(k,165) = b(k,165) - lu(k,1570) * b(k,257) - b(k,111) = b(k,111) - lu(k,1569) * b(k,257) - b(k,110) = b(k,110) - lu(k,1568) * b(k,257) - b(k,256) = b(k,256) * lu(k,1555) - b(k,252) = b(k,252) - lu(k,1554) * b(k,256) - b(k,236) = b(k,236) - lu(k,1553) * b(k,256) - b(k,210) = b(k,210) - lu(k,1552) * b(k,256) - b(k,255) = b(k,255) * lu(k,1539) - b(k,223) = b(k,223) - lu(k,1538) * b(k,255) - b(k,209) = b(k,209) - lu(k,1537) * b(k,255) - b(k,205) = b(k,205) - lu(k,1536) * b(k,255) - b(k,121) = b(k,121) - lu(k,1535) * b(k,255) - b(k,106) = b(k,106) - lu(k,1534) * b(k,255) - b(k,254) = b(k,254) * lu(k,1520) - b(k,221) = b(k,221) - lu(k,1519) * b(k,254) - b(k,199) = b(k,199) - lu(k,1518) * b(k,254) - b(k,140) = b(k,140) - lu(k,1517) * b(k,254) - b(k,253) = b(k,253) * lu(k,1505) - b(k,219) = b(k,219) - lu(k,1504) * b(k,253) - b(k,137) = b(k,137) - lu(k,1503) * b(k,253) - b(k,252) = b(k,252) * lu(k,1494) - b(k,236) = b(k,236) - lu(k,1493) * b(k,252) - b(k,224) = b(k,224) - lu(k,1492) * b(k,252) - b(k,213) = b(k,213) - lu(k,1491) * b(k,252) - b(k,212) = b(k,212) - lu(k,1490) * b(k,252) - b(k,211) = b(k,211) - lu(k,1489) * b(k,252) - b(k,206) = b(k,206) - lu(k,1488) * b(k,252) - b(k,111) = b(k,111) - lu(k,1487) * b(k,252) - b(k,110) = b(k,110) - lu(k,1486) * b(k,252) - b(k,251) = b(k,251) * lu(k,1472) - b(k,250) = b(k,250) - lu(k,1471) * b(k,251) - b(k,249) = b(k,249) - lu(k,1470) * b(k,251) - b(k,248) = b(k,248) - lu(k,1469) * b(k,251) - b(k,247) = b(k,247) - lu(k,1468) * b(k,251) - b(k,246) = b(k,246) - lu(k,1467) * b(k,251) - b(k,245) = b(k,245) - lu(k,1466) * b(k,251) - b(k,244) = b(k,244) - lu(k,1465) * b(k,251) - b(k,243) = b(k,243) - lu(k,1464) * b(k,251) - b(k,242) = b(k,242) - lu(k,1463) * b(k,251) - b(k,240) = b(k,240) - lu(k,1462) * b(k,251) - b(k,237) = b(k,237) - lu(k,1461) * b(k,251) - b(k,236) = b(k,236) - lu(k,1460) * b(k,251) - b(k,231) = b(k,231) - lu(k,1459) * b(k,251) - b(k,227) = b(k,227) - lu(k,1458) * b(k,251) - b(k,196) = b(k,196) - lu(k,1457) * b(k,251) - b(k,183) = b(k,183) - lu(k,1456) * b(k,251) - b(k,176) = b(k,176) - lu(k,1455) * b(k,251) - b(k,147) = b(k,147) - lu(k,1454) * b(k,251) - b(k,250) = b(k,250) * lu(k,1441) - b(k,245) = b(k,245) - lu(k,1440) * b(k,250) - b(k,240) = b(k,240) - lu(k,1439) * b(k,250) - b(k,196) = b(k,196) - lu(k,1438) * b(k,250) - b(k,187) = b(k,187) - lu(k,1437) * b(k,250) - b(k,183) = b(k,183) - lu(k,1436) * b(k,250) - b(k,249) = b(k,249) * lu(k,1420) - b(k,248) = b(k,248) - lu(k,1419) * b(k,249) - b(k,245) = b(k,245) - lu(k,1418) * b(k,249) - b(k,240) = b(k,240) - lu(k,1417) * b(k,249) - b(k,236) = b(k,236) - lu(k,1416) * b(k,249) - b(k,235) = b(k,235) - lu(k,1415) * b(k,249) - b(k,234) = b(k,234) - lu(k,1414) * b(k,249) - b(k,216) = b(k,216) - lu(k,1413) * b(k,249) - b(k,248) = b(k,248) * lu(k,1400) - b(k,245) = b(k,245) - lu(k,1399) * b(k,248) - b(k,241) = b(k,241) - lu(k,1398) * b(k,248) - b(k,240) = b(k,240) - lu(k,1397) * b(k,248) - b(k,239) = b(k,239) - lu(k,1396) * b(k,248) - b(k,237) = b(k,237) - lu(k,1395) * b(k,248) - b(k,236) = b(k,236) - lu(k,1394) * b(k,248) - b(k,207) = b(k,207) - lu(k,1393) * b(k,248) - b(k,146) = b(k,146) - lu(k,1392) * b(k,248) - b(k,247) = b(k,247) * lu(k,1376) - b(k,245) = b(k,245) - lu(k,1375) * b(k,247) - b(k,244) = b(k,244) - lu(k,1374) * b(k,247) - b(k,242) = b(k,242) - lu(k,1373) * b(k,247) - b(k,241) = b(k,241) - lu(k,1372) * b(k,247) - b(k,240) = b(k,240) - lu(k,1371) * b(k,247) - b(k,239) = b(k,239) - lu(k,1370) * b(k,247) - b(k,237) = b(k,237) - lu(k,1369) * b(k,247) - b(k,236) = b(k,236) - lu(k,1368) * b(k,247) - b(k,227) = b(k,227) - lu(k,1367) * b(k,247) - b(k,218) = b(k,218) - lu(k,1366) * b(k,247) - b(k,215) = b(k,215) - lu(k,1365) * b(k,247) - b(k,207) = b(k,207) - lu(k,1364) * b(k,247) - b(k,197) = b(k,197) - lu(k,1363) * b(k,247) - b(k,188) = b(k,188) - lu(k,1362) * b(k,247) - b(k,178) = b(k,178) - lu(k,1361) * b(k,247) - b(k,147) = b(k,147) - lu(k,1360) * b(k,247) - b(k,124) = b(k,124) - lu(k,1359) * b(k,247) - b(k,246) = b(k,246) * lu(k,1343) - b(k,245) = b(k,245) - lu(k,1342) * b(k,246) - b(k,244) = b(k,244) - lu(k,1341) * b(k,246) - b(k,242) = b(k,242) - lu(k,1340) * b(k,246) - b(k,241) = b(k,241) - lu(k,1339) * b(k,246) - b(k,240) = b(k,240) - lu(k,1338) * b(k,246) - b(k,239) = b(k,239) - lu(k,1337) * b(k,246) - b(k,237) = b(k,237) - lu(k,1336) * b(k,246) - b(k,207) = b(k,207) - lu(k,1335) * b(k,246) - b(k,197) = b(k,197) - lu(k,1334) * b(k,246) - b(k,185) = b(k,185) - lu(k,1333) * b(k,246) - b(k,245) = b(k,245) * lu(k,1325) - b(k,236) = b(k,236) - lu(k,1324) * b(k,245) - b(k,244) = b(k,244) * lu(k,1313) - b(k,236) = b(k,236) - lu(k,1312) * b(k,244) - b(k,216) = b(k,216) - lu(k,1311) * b(k,244) - b(k,243) = b(k,243) * lu(k,1297) - b(k,242) = b(k,242) - lu(k,1296) * b(k,243) - b(k,237) = b(k,237) - lu(k,1295) * b(k,243) - b(k,236) = b(k,236) - lu(k,1294) * b(k,243) - b(k,231) = b(k,231) - lu(k,1293) * b(k,243) - b(k,215) = b(k,215) - lu(k,1292) * b(k,243) - b(k,207) = b(k,207) - lu(k,1291) * b(k,243) - b(k,197) = b(k,197) - lu(k,1290) * b(k,243) - b(k,162) = b(k,162) - lu(k,1289) * b(k,243) - b(k,154) = b(k,154) - lu(k,1288) * b(k,243) - b(k,242) = b(k,242) * lu(k,1277) - b(k,240) = b(k,240) - lu(k,1276) * b(k,242) - b(k,237) = b(k,237) - lu(k,1275) * b(k,242) - b(k,236) = b(k,236) - lu(k,1274) * b(k,242) - b(k,227) = b(k,227) - lu(k,1273) * b(k,242) - b(k,207) = b(k,207) - lu(k,1272) * b(k,242) - b(k,115) = b(k,115) - lu(k,1271) * b(k,242) - b(k,241) = b(k,241) * lu(k,1261) - b(k,240) = b(k,240) - lu(k,1260) * b(k,241) - b(k,207) = b(k,207) - lu(k,1259) * b(k,241) - b(k,151) = b(k,151) - lu(k,1258) * b(k,241) - b(k,240) = b(k,240) * lu(k,1252) - b(k,239) = b(k,239) * lu(k,1239) - b(k,237) = b(k,237) - lu(k,1238) * b(k,239) - b(k,236) = b(k,236) - lu(k,1237) * b(k,239) - b(k,235) = b(k,235) - lu(k,1236) * b(k,239) - b(k,230) = b(k,230) - lu(k,1235) * b(k,239) - b(k,122) = b(k,122) - lu(k,1234) * b(k,239) + b(k,262) = b(k,262) * lu(k,1680) + b(k,261) = b(k,261) - lu(k,1679) * b(k,262) + b(k,260) = b(k,260) - lu(k,1678) * b(k,262) + b(k,259) = b(k,259) - lu(k,1677) * b(k,262) + b(k,258) = b(k,258) - lu(k,1676) * b(k,262) + b(k,257) = b(k,257) - lu(k,1675) * b(k,262) + b(k,256) = b(k,256) - lu(k,1674) * b(k,262) + b(k,254) = b(k,254) - lu(k,1673) * b(k,262) + b(k,253) = b(k,253) - lu(k,1672) * b(k,262) + b(k,252) = b(k,252) - lu(k,1671) * b(k,262) + b(k,247) = b(k,247) - lu(k,1670) * b(k,262) + b(k,242) = b(k,242) - lu(k,1669) * b(k,262) + b(k,238) = b(k,238) - lu(k,1668) * b(k,262) + b(k,229) = b(k,229) - lu(k,1667) * b(k,262) + b(k,226) = b(k,226) - lu(k,1666) * b(k,262) + b(k,225) = b(k,225) - lu(k,1665) * b(k,262) + b(k,223) = b(k,223) - lu(k,1664) * b(k,262) + b(k,220) = b(k,220) - lu(k,1663) * b(k,262) + b(k,206) = b(k,206) - lu(k,1662) * b(k,262) + b(k,205) = b(k,205) - lu(k,1661) * b(k,262) + b(k,201) = b(k,201) - lu(k,1660) * b(k,262) + b(k,192) = b(k,192) - lu(k,1659) * b(k,262) + b(k,183) = b(k,183) - lu(k,1658) * b(k,262) + b(k,182) = b(k,182) - lu(k,1657) * b(k,262) + b(k,178) = b(k,178) - lu(k,1656) * b(k,262) + b(k,176) = b(k,176) - lu(k,1655) * b(k,262) + b(k,173) = b(k,173) - lu(k,1654) * b(k,262) + b(k,171) = b(k,171) - lu(k,1653) * b(k,262) + b(k,137) = b(k,137) - lu(k,1652) * b(k,262) + b(k,133) = b(k,133) - lu(k,1651) * b(k,262) + b(k,100) = b(k,100) - lu(k,1650) * b(k,262) + b(k,261) = b(k,261) * lu(k,1634) + b(k,260) = b(k,260) - lu(k,1633) * b(k,261) + b(k,259) = b(k,259) - lu(k,1632) * b(k,261) + b(k,258) = b(k,258) - lu(k,1631) * b(k,261) + b(k,257) = b(k,257) - lu(k,1630) * b(k,261) + b(k,255) = b(k,255) - lu(k,1629) * b(k,261) + b(k,254) = b(k,254) - lu(k,1628) * b(k,261) + b(k,238) = b(k,238) - lu(k,1627) * b(k,261) + b(k,221) = b(k,221) - lu(k,1626) * b(k,261) + b(k,141) = b(k,141) - lu(k,1625) * b(k,261) + b(k,260) = b(k,260) * lu(k,1610) + b(k,259) = b(k,259) - lu(k,1609) * b(k,260) + b(k,258) = b(k,258) - lu(k,1608) * b(k,260) + b(k,257) = b(k,257) - lu(k,1607) * b(k,260) + b(k,256) = b(k,256) - lu(k,1606) * b(k,260) + b(k,223) = b(k,223) - lu(k,1605) * b(k,260) + b(k,206) = b(k,206) - lu(k,1604) * b(k,260) + b(k,182) = b(k,182) - lu(k,1603) * b(k,260) + b(k,148) = b(k,148) - lu(k,1602) * b(k,260) + b(k,122) = b(k,122) - lu(k,1601) * b(k,260) + b(k,259) = b(k,259) * lu(k,1587) + b(k,258) = b(k,258) - lu(k,1586) * b(k,259) + b(k,256) = b(k,256) - lu(k,1585) * b(k,259) + b(k,254) = b(k,254) - lu(k,1584) * b(k,259) + b(k,239) = b(k,239) - lu(k,1583) * b(k,259) + b(k,238) = b(k,238) - lu(k,1582) * b(k,259) + b(k,225) = b(k,225) - lu(k,1581) * b(k,259) + b(k,223) = b(k,223) - lu(k,1580) * b(k,259) + b(k,215) = b(k,215) - lu(k,1579) * b(k,259) + b(k,214) = b(k,214) - lu(k,1578) * b(k,259) + b(k,213) = b(k,213) - lu(k,1577) * b(k,259) + b(k,208) = b(k,208) - lu(k,1576) * b(k,259) + b(k,199) = b(k,199) - lu(k,1575) * b(k,259) + b(k,193) = b(k,193) - lu(k,1574) * b(k,259) + b(k,189) = b(k,189) - lu(k,1573) * b(k,259) + b(k,172) = b(k,172) - lu(k,1572) * b(k,259) + b(k,167) = b(k,167) - lu(k,1571) * b(k,259) + b(k,113) = b(k,113) - lu(k,1570) * b(k,259) + b(k,112) = b(k,112) - lu(k,1569) * b(k,259) + b(k,258) = b(k,258) * lu(k,1556) + b(k,254) = b(k,254) - lu(k,1555) * b(k,258) + b(k,238) = b(k,238) - lu(k,1554) * b(k,258) + b(k,211) = b(k,211) - lu(k,1553) * b(k,258) + b(k,257) = b(k,257) * lu(k,1540) + b(k,226) = b(k,226) - lu(k,1539) * b(k,257) + b(k,212) = b(k,212) - lu(k,1538) * b(k,257) + b(k,206) = b(k,206) - lu(k,1537) * b(k,257) + b(k,122) = b(k,122) - lu(k,1536) * b(k,257) + b(k,108) = b(k,108) - lu(k,1535) * b(k,257) + b(k,256) = b(k,256) * lu(k,1521) + b(k,223) = b(k,223) - lu(k,1520) * b(k,256) + b(k,199) = b(k,199) - lu(k,1519) * b(k,256) + b(k,148) = b(k,148) - lu(k,1518) * b(k,256) + b(k,255) = b(k,255) * lu(k,1506) + b(k,221) = b(k,221) - lu(k,1505) * b(k,255) + b(k,141) = b(k,141) - lu(k,1504) * b(k,255) + b(k,254) = b(k,254) * lu(k,1495) + b(k,238) = b(k,238) - lu(k,1494) * b(k,254) + b(k,225) = b(k,225) - lu(k,1493) * b(k,254) + b(k,215) = b(k,215) - lu(k,1492) * b(k,254) + b(k,214) = b(k,214) - lu(k,1491) * b(k,254) + b(k,213) = b(k,213) - lu(k,1490) * b(k,254) + b(k,208) = b(k,208) - lu(k,1489) * b(k,254) + b(k,113) = b(k,113) - lu(k,1488) * b(k,254) + b(k,112) = b(k,112) - lu(k,1487) * b(k,254) + b(k,253) = b(k,253) * lu(k,1473) + b(k,252) = b(k,252) - lu(k,1472) * b(k,253) + b(k,251) = b(k,251) - lu(k,1471) * b(k,253) + b(k,250) = b(k,250) - lu(k,1470) * b(k,253) + b(k,249) = b(k,249) - lu(k,1469) * b(k,253) + b(k,248) = b(k,248) - lu(k,1468) * b(k,253) + b(k,247) = b(k,247) - lu(k,1467) * b(k,253) + b(k,246) = b(k,246) - lu(k,1466) * b(k,253) + b(k,245) = b(k,245) - lu(k,1465) * b(k,253) + b(k,244) = b(k,244) - lu(k,1464) * b(k,253) + b(k,242) = b(k,242) - lu(k,1463) * b(k,253) + b(k,239) = b(k,239) - lu(k,1462) * b(k,253) + b(k,238) = b(k,238) - lu(k,1461) * b(k,253) + b(k,233) = b(k,233) - lu(k,1460) * b(k,253) + b(k,229) = b(k,229) - lu(k,1459) * b(k,253) + b(k,198) = b(k,198) - lu(k,1458) * b(k,253) + b(k,188) = b(k,188) - lu(k,1457) * b(k,253) + b(k,178) = b(k,178) - lu(k,1456) * b(k,253) + b(k,145) = b(k,145) - lu(k,1455) * b(k,253) + b(k,252) = b(k,252) * lu(k,1442) + b(k,247) = b(k,247) - lu(k,1441) * b(k,252) + b(k,242) = b(k,242) - lu(k,1440) * b(k,252) + b(k,198) = b(k,198) - lu(k,1439) * b(k,252) + b(k,188) = b(k,188) - lu(k,1438) * b(k,252) + b(k,183) = b(k,183) - lu(k,1437) * b(k,252) + b(k,251) = b(k,251) * lu(k,1421) + b(k,250) = b(k,250) - lu(k,1420) * b(k,251) + b(k,247) = b(k,247) - lu(k,1419) * b(k,251) + b(k,242) = b(k,242) - lu(k,1418) * b(k,251) + b(k,238) = b(k,238) - lu(k,1417) * b(k,251) + b(k,237) = b(k,237) - lu(k,1416) * b(k,251) + b(k,236) = b(k,236) - lu(k,1415) * b(k,251) + b(k,219) = b(k,219) - lu(k,1414) * b(k,251) + b(k,250) = b(k,250) * lu(k,1401) + b(k,247) = b(k,247) - lu(k,1400) * b(k,250) + b(k,243) = b(k,243) - lu(k,1399) * b(k,250) + b(k,242) = b(k,242) - lu(k,1398) * b(k,250) + b(k,241) = b(k,241) - lu(k,1397) * b(k,250) + b(k,239) = b(k,239) - lu(k,1396) * b(k,250) + b(k,238) = b(k,238) - lu(k,1395) * b(k,250) + b(k,210) = b(k,210) - lu(k,1394) * b(k,250) + b(k,147) = b(k,147) - lu(k,1393) * b(k,250) + b(k,249) = b(k,249) * lu(k,1377) + b(k,247) = b(k,247) - lu(k,1376) * b(k,249) + b(k,246) = b(k,246) - lu(k,1375) * b(k,249) + b(k,244) = b(k,244) - lu(k,1374) * b(k,249) + b(k,243) = b(k,243) - lu(k,1373) * b(k,249) + b(k,242) = b(k,242) - lu(k,1372) * b(k,249) + b(k,241) = b(k,241) - lu(k,1371) * b(k,249) + b(k,239) = b(k,239) - lu(k,1370) * b(k,249) + b(k,238) = b(k,238) - lu(k,1369) * b(k,249) + b(k,229) = b(k,229) - lu(k,1368) * b(k,249) + b(k,220) = b(k,220) - lu(k,1367) * b(k,249) + b(k,216) = b(k,216) - lu(k,1366) * b(k,249) + b(k,210) = b(k,210) - lu(k,1365) * b(k,249) + b(k,203) = b(k,203) - lu(k,1364) * b(k,249) + b(k,187) = b(k,187) - lu(k,1363) * b(k,249) + b(k,179) = b(k,179) - lu(k,1362) * b(k,249) + b(k,145) = b(k,145) - lu(k,1361) * b(k,249) + b(k,125) = b(k,125) - lu(k,1360) * b(k,249) + b(k,248) = b(k,248) * lu(k,1344) + b(k,247) = b(k,247) - lu(k,1343) * b(k,248) + b(k,246) = b(k,246) - lu(k,1342) * b(k,248) + b(k,244) = b(k,244) - lu(k,1341) * b(k,248) + b(k,243) = b(k,243) - lu(k,1340) * b(k,248) + b(k,242) = b(k,242) - lu(k,1339) * b(k,248) + b(k,241) = b(k,241) - lu(k,1338) * b(k,248) + b(k,239) = b(k,239) - lu(k,1337) * b(k,248) + b(k,210) = b(k,210) - lu(k,1336) * b(k,248) + b(k,203) = b(k,203) - lu(k,1335) * b(k,248) + b(k,184) = b(k,184) - lu(k,1334) * b(k,248) + b(k,247) = b(k,247) * lu(k,1326) + b(k,238) = b(k,238) - lu(k,1325) * b(k,247) + b(k,246) = b(k,246) * lu(k,1314) + b(k,238) = b(k,238) - lu(k,1313) * b(k,246) + b(k,219) = b(k,219) - lu(k,1312) * b(k,246) + b(k,245) = b(k,245) * lu(k,1298) + b(k,244) = b(k,244) - lu(k,1297) * b(k,245) + b(k,239) = b(k,239) - lu(k,1296) * b(k,245) + b(k,238) = b(k,238) - lu(k,1295) * b(k,245) + b(k,233) = b(k,233) - lu(k,1294) * b(k,245) + b(k,216) = b(k,216) - lu(k,1293) * b(k,245) + b(k,210) = b(k,210) - lu(k,1292) * b(k,245) + b(k,203) = b(k,203) - lu(k,1291) * b(k,245) + b(k,159) = b(k,159) - lu(k,1290) * b(k,245) + b(k,155) = b(k,155) - lu(k,1289) * b(k,245) + b(k,244) = b(k,244) * lu(k,1278) + b(k,242) = b(k,242) - lu(k,1277) * b(k,244) + b(k,239) = b(k,239) - lu(k,1276) * b(k,244) + b(k,238) = b(k,238) - lu(k,1275) * b(k,244) + b(k,229) = b(k,229) - lu(k,1274) * b(k,244) + b(k,210) = b(k,210) - lu(k,1273) * b(k,244) + b(k,117) = b(k,117) - lu(k,1272) * b(k,244) + b(k,243) = b(k,243) * lu(k,1262) + b(k,242) = b(k,242) - lu(k,1261) * b(k,243) + b(k,210) = b(k,210) - lu(k,1260) * b(k,243) + b(k,153) = b(k,153) - lu(k,1259) * b(k,243) + b(k,242) = b(k,242) * lu(k,1253) + b(k,241) = b(k,241) * lu(k,1240) + b(k,239) = b(k,239) - lu(k,1239) * b(k,241) + b(k,238) = b(k,238) - lu(k,1238) * b(k,241) + b(k,237) = b(k,237) - lu(k,1237) * b(k,241) + b(k,232) = b(k,232) - lu(k,1236) * b(k,241) + b(k,123) = b(k,123) - lu(k,1235) * b(k,241) + b(k,240) = b(k,240) * lu(k,1223) + b(k,239) = b(k,239) - lu(k,1222) * b(k,240) + b(k,238) = b(k,238) - lu(k,1221) * b(k,240) + b(k,235) = b(k,235) - lu(k,1220) * b(k,240) + b(k,232) = b(k,232) - lu(k,1219) * b(k,240) + b(k,210) = b(k,210) - lu(k,1218) * b(k,240) + b(k,195) = b(k,195) - lu(k,1217) * b(k,240) + b(k,123) = b(k,123) - lu(k,1216) * b(k,240) end do end subroutine lu_slv10 subroutine lu_slv11( avec_len, lu, b ) @@ -2340,207 +2349,207 @@ subroutine lu_slv11( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,238) = b(k,238) * lu(k,1222) - b(k,237) = b(k,237) - lu(k,1221) * b(k,238) - b(k,236) = b(k,236) - lu(k,1220) * b(k,238) - b(k,233) = b(k,233) - lu(k,1219) * b(k,238) - b(k,230) = b(k,230) - lu(k,1218) * b(k,238) - b(k,207) = b(k,207) - lu(k,1217) * b(k,238) - b(k,194) = b(k,194) - lu(k,1216) * b(k,238) - b(k,122) = b(k,122) - lu(k,1215) * b(k,238) - b(k,237) = b(k,237) * lu(k,1210) - b(k,236) = b(k,236) - lu(k,1209) * b(k,237) - b(k,227) = b(k,227) - lu(k,1208) * b(k,237) - b(k,236) = b(k,236) * lu(k,1204) - b(k,235) = b(k,235) * lu(k,1195) - b(k,234) = b(k,234) * lu(k,1177) - b(k,216) = b(k,216) - lu(k,1176) * b(k,234) - b(k,215) = b(k,215) - lu(k,1175) * b(k,234) - b(k,208) = b(k,208) - lu(k,1174) * b(k,234) - b(k,196) = b(k,196) - lu(k,1173) * b(k,234) - b(k,233) = b(k,233) * lu(k,1163) - b(k,230) = b(k,230) - lu(k,1162) * b(k,233) - b(k,232) = b(k,232) * lu(k,1150) - b(k,229) = b(k,229) - lu(k,1149) * b(k,232) - b(k,207) = b(k,207) - lu(k,1148) * b(k,232) - b(k,189) = b(k,189) - lu(k,1147) * b(k,232) - b(k,152) = b(k,152) - lu(k,1146) * b(k,232) - b(k,231) = b(k,231) * lu(k,1134) - b(k,227) = b(k,227) - lu(k,1133) * b(k,231) - b(k,218) = b(k,218) - lu(k,1132) * b(k,231) - b(k,215) = b(k,215) - lu(k,1131) * b(k,231) - b(k,188) = b(k,188) - lu(k,1130) * b(k,231) - b(k,230) = b(k,230) * lu(k,1124) - b(k,229) = b(k,229) * lu(k,1116) - b(k,228) = b(k,228) * lu(k,1106) - b(k,207) = b(k,207) - lu(k,1105) * b(k,228) - b(k,189) = b(k,189) - lu(k,1104) * b(k,228) - b(k,168) = b(k,168) - lu(k,1103) * b(k,228) - b(k,227) = b(k,227) * lu(k,1098) - b(k,68) = b(k,68) - lu(k,1097) * b(k,227) - b(k,226) = b(k,226) * lu(k,1086) - b(k,217) = b(k,217) - lu(k,1085) * b(k,226) - b(k,193) = b(k,193) - lu(k,1084) * b(k,226) - b(k,192) = b(k,192) - lu(k,1083) * b(k,226) - b(k,191) = b(k,191) - lu(k,1082) * b(k,226) - b(k,173) = b(k,173) - lu(k,1081) * b(k,226) - b(k,225) = b(k,225) * lu(k,1062) - b(k,216) = b(k,216) - lu(k,1061) * b(k,225) - b(k,158) = b(k,158) - lu(k,1060) * b(k,225) - b(k,120) = b(k,120) - lu(k,1059) * b(k,225) - b(k,75) = b(k,75) - lu(k,1058) * b(k,225) - b(k,72) = b(k,72) - lu(k,1057) * b(k,225) - b(k,71) = b(k,71) - lu(k,1056) * b(k,225) - b(k,70) = b(k,70) - lu(k,1055) * b(k,225) - b(k,69) = b(k,69) - lu(k,1054) * b(k,225) - b(k,68) = b(k,68) - lu(k,1053) * b(k,225) - b(k,224) = b(k,224) * lu(k,1043) - b(k,213) = b(k,213) - lu(k,1042) * b(k,224) - b(k,212) = b(k,212) - lu(k,1041) * b(k,224) - b(k,211) = b(k,211) - lu(k,1040) * b(k,224) - b(k,206) = b(k,206) - lu(k,1039) * b(k,224) - b(k,171) = b(k,171) - lu(k,1038) * b(k,224) - b(k,128) = b(k,128) - lu(k,1037) * b(k,224) - b(k,223) = b(k,223) * lu(k,1027) - b(k,209) = b(k,209) - lu(k,1026) * b(k,223) - b(k,106) = b(k,106) - lu(k,1025) * b(k,223) - b(k,222) = b(k,222) * lu(k,1006) - b(k,216) = b(k,216) - lu(k,1005) * b(k,222) - b(k,158) = b(k,158) - lu(k,1004) * b(k,222) - b(k,120) = b(k,120) - lu(k,1003) * b(k,222) - b(k,74) = b(k,74) - lu(k,1002) * b(k,222) - b(k,72) = b(k,72) - lu(k,1001) * b(k,222) - b(k,71) = b(k,71) - lu(k,1000) * b(k,222) - b(k,70) = b(k,70) - lu(k,999) * b(k,222) - b(k,69) = b(k,69) - lu(k,998) * b(k,222) - b(k,68) = b(k,68) - lu(k,997) * b(k,222) - b(k,221) = b(k,221) * lu(k,991) - b(k,129) = b(k,129) - lu(k,990) * b(k,221) - b(k,220) = b(k,220) * lu(k,979) - b(k,153) = b(k,153) - lu(k,978) * b(k,220) - b(k,219) = b(k,219) * lu(k,969) - b(k,137) = b(k,137) - lu(k,968) * b(k,219) - b(k,218) = b(k,218) * lu(k,959) - b(k,217) = b(k,217) * lu(k,950) - b(k,207) = b(k,207) - lu(k,949) * b(k,217) - b(k,143) = b(k,143) - lu(k,948) * b(k,217) - b(k,130) = b(k,130) - lu(k,947) * b(k,217) - b(k,216) = b(k,216) * lu(k,942) - b(k,215) = b(k,215) * lu(k,936) - b(k,214) = b(k,214) * lu(k,920) - b(k,73) = b(k,73) - lu(k,919) * b(k,214) - b(k,72) = b(k,72) - lu(k,918) * b(k,214) - b(k,71) = b(k,71) - lu(k,917) * b(k,214) - b(k,213) = b(k,213) * lu(k,909) - b(k,212) = b(k,212) - lu(k,908) * b(k,213) - b(k,211) = b(k,211) - lu(k,907) * b(k,213) - b(k,206) = b(k,206) - lu(k,906) * b(k,213) - b(k,195) = b(k,195) - lu(k,905) * b(k,213) - b(k,175) = b(k,175) - lu(k,904) * b(k,213) - b(k,212) = b(k,212) * lu(k,897) - b(k,211) = b(k,211) - lu(k,896) * b(k,212) - b(k,211) = b(k,211) * lu(k,889) - b(k,175) = b(k,175) - lu(k,888) * b(k,211) - b(k,210) = b(k,210) * lu(k,880) - b(k,209) = b(k,209) * lu(k,873) - b(k,106) = b(k,106) - lu(k,872) * b(k,209) - b(k,208) = b(k,208) * lu(k,862) - b(k,177) = b(k,177) - lu(k,861) * b(k,208) - b(k,207) = b(k,207) * lu(k,857) - b(k,206) = b(k,206) * lu(k,849) - b(k,205) = b(k,205) * lu(k,841) - b(k,121) = b(k,121) - lu(k,840) * b(k,205) - b(k,204) = b(k,204) * lu(k,832) - b(k,165) = b(k,165) - lu(k,831) * b(k,204) - b(k,100) = b(k,100) - lu(k,830) * b(k,204) - b(k,203) = b(k,203) * lu(k,822) - b(k,202) = b(k,202) * lu(k,811) - b(k,200) = b(k,200) - lu(k,810) * b(k,202) - b(k,198) = b(k,198) - lu(k,809) * b(k,202) - b(k,188) = b(k,188) - lu(k,808) * b(k,202) - b(k,164) = b(k,164) - lu(k,807) * b(k,202) - b(k,144) = b(k,144) - lu(k,806) * b(k,202) - b(k,134) = b(k,134) - lu(k,805) * b(k,202) - b(k,201) = b(k,201) * lu(k,795) - b(k,200) = b(k,200) - lu(k,794) * b(k,201) - b(k,188) = b(k,188) - lu(k,793) * b(k,201) - b(k,186) = b(k,186) - lu(k,792) * b(k,201) - b(k,164) = b(k,164) - lu(k,791) * b(k,201) - b(k,134) = b(k,134) - lu(k,790) * b(k,201) - b(k,200) = b(k,200) * lu(k,784) - b(k,199) = b(k,199) * lu(k,777) - b(k,198) = b(k,198) * lu(k,766) - b(k,188) = b(k,188) - lu(k,765) * b(k,198) - b(k,164) = b(k,164) - lu(k,764) * b(k,198) - b(k,144) = b(k,144) - lu(k,763) * b(k,198) - b(k,134) = b(k,134) - lu(k,762) * b(k,198) - b(k,197) = b(k,197) * lu(k,755) - b(k,98) = b(k,98) - lu(k,754) * b(k,197) - b(k,196) = b(k,196) * lu(k,749) - b(k,195) = b(k,195) * lu(k,739) - b(k,175) = b(k,175) - lu(k,738) * b(k,195) - b(k,194) = b(k,194) * lu(k,728) - b(k,193) = b(k,193) * lu(k,721) - b(k,145) = b(k,145) - lu(k,720) * b(k,193) - b(k,192) = b(k,192) * lu(k,710) - b(k,173) = b(k,173) - lu(k,709) * b(k,192) - b(k,191) = b(k,191) * lu(k,699) - b(k,173) = b(k,173) - lu(k,698) * b(k,191) - b(k,190) = b(k,190) * lu(k,692) - b(k,169) = b(k,169) - lu(k,691) * b(k,190) - b(k,131) = b(k,131) - lu(k,690) * b(k,190) - b(k,189) = b(k,189) * lu(k,684) - b(k,188) = b(k,188) * lu(k,680) - b(k,187) = b(k,187) * lu(k,671) - b(k,186) = b(k,186) * lu(k,662) - b(k,164) = b(k,164) - lu(k,661) * b(k,186) - b(k,134) = b(k,134) - lu(k,660) * b(k,186) - b(k,185) = b(k,185) * lu(k,651) - b(k,184) = b(k,184) * lu(k,644) - b(k,183) = b(k,183) * lu(k,637) - b(k,182) = b(k,182) * lu(k,628) - b(k,181) = b(k,181) * lu(k,620) - b(k,180) = b(k,180) * lu(k,612) - b(k,179) = b(k,179) * lu(k,604) - b(k,178) = b(k,178) * lu(k,596) - b(k,177) = b(k,177) * lu(k,588) - b(k,176) = b(k,176) * lu(k,580) - b(k,175) = b(k,175) * lu(k,575) - b(k,174) = b(k,174) * lu(k,569) - b(k,101) = b(k,101) - lu(k,568) * b(k,174) - b(k,173) = b(k,173) * lu(k,563) - b(k,172) = b(k,172) * lu(k,556) - b(k,159) = b(k,159) - lu(k,555) * b(k,172) - b(k,171) = b(k,171) * lu(k,548) - b(k,170) = b(k,170) * lu(k,541) - b(k,164) = b(k,164) - lu(k,540) * b(k,170) - b(k,155) = b(k,155) - lu(k,539) * b(k,170) - b(k,169) = b(k,169) * lu(k,535) - b(k,168) = b(k,168) * lu(k,528) - b(k,167) = b(k,167) * lu(k,521) - b(k,166) = b(k,166) * lu(k,514) - b(k,165) = b(k,165) * lu(k,509) - b(k,164) = b(k,164) * lu(k,506) - b(k,163) = b(k,163) * lu(k,500) - b(k,141) = b(k,141) - lu(k,499) * b(k,163) - b(k,162) = b(k,162) * lu(k,493) - b(k,161) = b(k,161) * lu(k,487) - b(k,160) = b(k,160) * lu(k,481) - b(k,142) = b(k,142) - lu(k,480) * b(k,160) - b(k,123) = b(k,123) - lu(k,479) * b(k,160) - b(k,159) = b(k,159) * lu(k,473) - b(k,158) = b(k,158) * lu(k,467) - b(k,157) = b(k,157) * lu(k,461) - b(k,156) = b(k,156) * lu(k,455) - b(k,155) = b(k,155) * lu(k,449) - b(k,154) = b(k,154) * lu(k,443) - b(k,153) = b(k,153) * lu(k,437) - b(k,152) = b(k,152) * lu(k,431) - b(k,151) = b(k,151) * lu(k,425) - b(k,150) = b(k,150) * lu(k,417) - b(k,149) = b(k,149) * lu(k,409) - b(k,148) = b(k,148) * lu(k,401) - b(k,147) = b(k,147) * lu(k,398) + b(k,239) = b(k,239) * lu(k,1211) + b(k,238) = b(k,238) - lu(k,1210) * b(k,239) + b(k,229) = b(k,229) - lu(k,1209) * b(k,239) + b(k,238) = b(k,238) * lu(k,1205) + b(k,237) = b(k,237) * lu(k,1196) + b(k,236) = b(k,236) * lu(k,1178) + b(k,219) = b(k,219) - lu(k,1177) * b(k,236) + b(k,216) = b(k,216) - lu(k,1176) * b(k,236) + b(k,209) = b(k,209) - lu(k,1175) * b(k,236) + b(k,198) = b(k,198) - lu(k,1174) * b(k,236) + b(k,235) = b(k,235) * lu(k,1164) + b(k,232) = b(k,232) - lu(k,1163) * b(k,235) + b(k,234) = b(k,234) * lu(k,1151) + b(k,231) = b(k,231) - lu(k,1150) * b(k,234) + b(k,210) = b(k,210) - lu(k,1149) * b(k,234) + b(k,191) = b(k,191) - lu(k,1148) * b(k,234) + b(k,163) = b(k,163) - lu(k,1147) * b(k,234) + b(k,233) = b(k,233) * lu(k,1135) + b(k,229) = b(k,229) - lu(k,1134) * b(k,233) + b(k,220) = b(k,220) - lu(k,1133) * b(k,233) + b(k,216) = b(k,216) - lu(k,1132) * b(k,233) + b(k,187) = b(k,187) - lu(k,1131) * b(k,233) + b(k,232) = b(k,232) * lu(k,1125) + b(k,231) = b(k,231) * lu(k,1117) + b(k,230) = b(k,230) * lu(k,1107) + b(k,210) = b(k,210) - lu(k,1106) * b(k,230) + b(k,191) = b(k,191) - lu(k,1105) * b(k,230) + b(k,169) = b(k,169) - lu(k,1104) * b(k,230) + b(k,229) = b(k,229) * lu(k,1099) + b(k,68) = b(k,68) - lu(k,1098) * b(k,229) + b(k,228) = b(k,228) * lu(k,1087) + b(k,218) = b(k,218) - lu(k,1086) * b(k,228) + b(k,197) = b(k,197) - lu(k,1085) * b(k,228) + b(k,196) = b(k,196) - lu(k,1084) * b(k,228) + b(k,194) = b(k,194) - lu(k,1083) * b(k,228) + b(k,175) = b(k,175) - lu(k,1082) * b(k,228) + b(k,227) = b(k,227) * lu(k,1063) + b(k,219) = b(k,219) - lu(k,1062) * b(k,227) + b(k,164) = b(k,164) - lu(k,1061) * b(k,227) + b(k,121) = b(k,121) - lu(k,1060) * b(k,227) + b(k,81) = b(k,81) - lu(k,1059) * b(k,227) + b(k,72) = b(k,72) - lu(k,1058) * b(k,227) + b(k,71) = b(k,71) - lu(k,1057) * b(k,227) + b(k,70) = b(k,70) - lu(k,1056) * b(k,227) + b(k,69) = b(k,69) - lu(k,1055) * b(k,227) + b(k,68) = b(k,68) - lu(k,1054) * b(k,227) + b(k,226) = b(k,226) * lu(k,1044) + b(k,212) = b(k,212) - lu(k,1043) * b(k,226) + b(k,108) = b(k,108) - lu(k,1042) * b(k,226) + b(k,225) = b(k,225) * lu(k,1032) + b(k,215) = b(k,215) - lu(k,1031) * b(k,225) + b(k,214) = b(k,214) - lu(k,1030) * b(k,225) + b(k,213) = b(k,213) - lu(k,1029) * b(k,225) + b(k,208) = b(k,208) - lu(k,1028) * b(k,225) + b(k,172) = b(k,172) - lu(k,1027) * b(k,225) + b(k,133) = b(k,133) - lu(k,1026) * b(k,225) + b(k,224) = b(k,224) * lu(k,1007) + b(k,219) = b(k,219) - lu(k,1006) * b(k,224) + b(k,164) = b(k,164) - lu(k,1005) * b(k,224) + b(k,121) = b(k,121) - lu(k,1004) * b(k,224) + b(k,88) = b(k,88) - lu(k,1003) * b(k,224) + b(k,72) = b(k,72) - lu(k,1002) * b(k,224) + b(k,71) = b(k,71) - lu(k,1001) * b(k,224) + b(k,70) = b(k,70) - lu(k,1000) * b(k,224) + b(k,69) = b(k,69) - lu(k,999) * b(k,224) + b(k,68) = b(k,68) - lu(k,998) * b(k,224) + b(k,223) = b(k,223) * lu(k,992) + b(k,131) = b(k,131) - lu(k,991) * b(k,223) + b(k,222) = b(k,222) * lu(k,980) + b(k,154) = b(k,154) - lu(k,979) * b(k,222) + b(k,221) = b(k,221) * lu(k,970) + b(k,141) = b(k,141) - lu(k,969) * b(k,221) + b(k,220) = b(k,220) * lu(k,960) + b(k,219) = b(k,219) * lu(k,955) + b(k,218) = b(k,218) * lu(k,946) + b(k,210) = b(k,210) - lu(k,945) * b(k,218) + b(k,144) = b(k,144) - lu(k,944) * b(k,218) + b(k,130) = b(k,130) - lu(k,943) * b(k,218) + b(k,217) = b(k,217) * lu(k,927) + b(k,83) = b(k,83) - lu(k,926) * b(k,217) + b(k,72) = b(k,72) - lu(k,925) * b(k,217) + b(k,71) = b(k,71) - lu(k,924) * b(k,217) + b(k,216) = b(k,216) * lu(k,918) + b(k,215) = b(k,215) * lu(k,910) + b(k,214) = b(k,214) - lu(k,909) * b(k,215) + b(k,213) = b(k,213) - lu(k,908) * b(k,215) + b(k,208) = b(k,208) - lu(k,907) * b(k,215) + b(k,193) = b(k,193) - lu(k,906) * b(k,215) + b(k,189) = b(k,189) - lu(k,905) * b(k,215) + b(k,214) = b(k,214) * lu(k,898) + b(k,213) = b(k,213) - lu(k,897) * b(k,214) + b(k,213) = b(k,213) * lu(k,890) + b(k,193) = b(k,193) - lu(k,889) * b(k,213) + b(k,212) = b(k,212) * lu(k,882) + b(k,108) = b(k,108) - lu(k,881) * b(k,212) + b(k,211) = b(k,211) * lu(k,873) + b(k,210) = b(k,210) * lu(k,869) + b(k,209) = b(k,209) * lu(k,859) + b(k,180) = b(k,180) - lu(k,858) * b(k,209) + b(k,208) = b(k,208) * lu(k,850) + b(k,207) = b(k,207) * lu(k,842) + b(k,167) = b(k,167) - lu(k,841) * b(k,207) + b(k,106) = b(k,106) - lu(k,840) * b(k,207) + b(k,206) = b(k,206) * lu(k,832) + b(k,122) = b(k,122) - lu(k,831) * b(k,206) + b(k,205) = b(k,205) * lu(k,823) + b(k,204) = b(k,204) * lu(k,812) + b(k,201) = b(k,201) - lu(k,811) * b(k,204) + b(k,200) = b(k,200) - lu(k,810) * b(k,204) + b(k,187) = b(k,187) - lu(k,809) * b(k,204) + b(k,166) = b(k,166) - lu(k,808) * b(k,204) + b(k,149) = b(k,149) - lu(k,807) * b(k,204) + b(k,139) = b(k,139) - lu(k,806) * b(k,204) + b(k,203) = b(k,203) * lu(k,799) + b(k,105) = b(k,105) - lu(k,798) * b(k,203) + b(k,202) = b(k,202) * lu(k,788) + b(k,201) = b(k,201) - lu(k,787) * b(k,202) + b(k,187) = b(k,187) - lu(k,786) * b(k,202) + b(k,186) = b(k,186) - lu(k,785) * b(k,202) + b(k,166) = b(k,166) - lu(k,784) * b(k,202) + b(k,139) = b(k,139) - lu(k,783) * b(k,202) + b(k,201) = b(k,201) * lu(k,777) + b(k,200) = b(k,200) * lu(k,766) + b(k,187) = b(k,187) - lu(k,765) * b(k,200) + b(k,166) = b(k,166) - lu(k,764) * b(k,200) + b(k,149) = b(k,149) - lu(k,763) * b(k,200) + b(k,139) = b(k,139) - lu(k,762) * b(k,200) + b(k,199) = b(k,199) * lu(k,755) + b(k,198) = b(k,198) * lu(k,750) + b(k,197) = b(k,197) * lu(k,743) + b(k,146) = b(k,146) - lu(k,742) * b(k,197) + b(k,196) = b(k,196) * lu(k,732) + b(k,175) = b(k,175) - lu(k,731) * b(k,196) + b(k,195) = b(k,195) * lu(k,721) + b(k,194) = b(k,194) * lu(k,711) + b(k,175) = b(k,175) - lu(k,710) * b(k,194) + b(k,193) = b(k,193) * lu(k,704) + b(k,192) = b(k,192) * lu(k,698) + b(k,171) = b(k,171) - lu(k,697) * b(k,192) + b(k,132) = b(k,132) - lu(k,696) * b(k,192) + b(k,191) = b(k,191) * lu(k,690) + b(k,190) = b(k,190) * lu(k,681) + b(k,189) = b(k,189) * lu(k,672) + b(k,188) = b(k,188) * lu(k,665) + b(k,187) = b(k,187) * lu(k,661) + b(k,186) = b(k,186) * lu(k,652) + b(k,166) = b(k,166) - lu(k,651) * b(k,186) + b(k,139) = b(k,139) - lu(k,650) * b(k,186) + b(k,185) = b(k,185) * lu(k,643) + b(k,184) = b(k,184) * lu(k,634) + b(k,183) = b(k,183) * lu(k,625) + b(k,182) = b(k,182) * lu(k,617) + b(k,181) = b(k,181) * lu(k,609) + b(k,180) = b(k,180) * lu(k,601) + b(k,179) = b(k,179) * lu(k,593) + b(k,178) = b(k,178) * lu(k,585) + b(k,177) = b(k,177) * lu(k,577) + b(k,176) = b(k,176) * lu(k,571) + b(k,100) = b(k,100) - lu(k,570) * b(k,176) + b(k,175) = b(k,175) * lu(k,565) + b(k,174) = b(k,174) * lu(k,558) + b(k,160) = b(k,160) - lu(k,557) * b(k,174) + b(k,173) = b(k,173) * lu(k,550) + b(k,172) = b(k,172) * lu(k,543) + b(k,171) = b(k,171) * lu(k,539) + b(k,170) = b(k,170) * lu(k,532) + b(k,166) = b(k,166) - lu(k,531) * b(k,170) + b(k,158) = b(k,158) - lu(k,530) * b(k,170) + b(k,169) = b(k,169) * lu(k,523) + b(k,168) = b(k,168) * lu(k,516) + b(k,167) = b(k,167) * lu(k,511) + b(k,166) = b(k,166) * lu(k,508) + b(k,165) = b(k,165) * lu(k,502) + b(k,142) = b(k,142) - lu(k,501) * b(k,165) + b(k,164) = b(k,164) * lu(k,495) + b(k,163) = b(k,163) * lu(k,489) + b(k,162) = b(k,162) * lu(k,483) + b(k,161) = b(k,161) * lu(k,477) + b(k,143) = b(k,143) - lu(k,476) * b(k,161) + b(k,124) = b(k,124) - lu(k,475) * b(k,161) + b(k,160) = b(k,160) * lu(k,469) + b(k,159) = b(k,159) * lu(k,463) + b(k,158) = b(k,158) * lu(k,457) + b(k,157) = b(k,157) * lu(k,451) + b(k,156) = b(k,156) * lu(k,445) + b(k,155) = b(k,155) * lu(k,439) + b(k,154) = b(k,154) * lu(k,433) + b(k,153) = b(k,153) * lu(k,427) + b(k,152) = b(k,152) * lu(k,419) + b(k,151) = b(k,151) * lu(k,411) + b(k,150) = b(k,150) * lu(k,403) + b(k,149) = b(k,149) * lu(k,398) + b(k,148) = b(k,148) * lu(k,393) + b(k,147) = b(k,147) * lu(k,388) + b(k,146) = b(k,146) * lu(k,383) + b(k,145) = b(k,145) * lu(k,380) + b(k,144) = b(k,144) * lu(k,375) + b(k,143) = b(k,143) * lu(k,370) + b(k,124) = b(k,124) - lu(k,369) * b(k,143) + b(k,142) = b(k,142) * lu(k,364) + b(k,141) = b(k,141) * lu(k,361) end do end subroutine lu_slv11 subroutine lu_slv12( avec_len, lu, b ) @@ -2561,148 +2570,141 @@ subroutine lu_slv12( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,146) = b(k,146) * lu(k,393) - b(k,145) = b(k,145) * lu(k,388) - b(k,144) = b(k,144) * lu(k,383) - b(k,143) = b(k,143) * lu(k,378) - b(k,142) = b(k,142) * lu(k,373) - b(k,123) = b(k,123) - lu(k,372) * b(k,142) - b(k,141) = b(k,141) * lu(k,367) - b(k,140) = b(k,140) * lu(k,362) - b(k,139) = b(k,139) * lu(k,356) - b(k,119) = b(k,119) - lu(k,355) * b(k,139) - b(k,138) = b(k,138) * lu(k,349) - b(k,137) = b(k,137) * lu(k,346) - b(k,136) = b(k,136) * lu(k,340) - b(k,135) = b(k,135) * lu(k,334) - b(k,134) = b(k,134) * lu(k,331) - b(k,133) = b(k,133) * lu(k,325) - b(k,132) = b(k,132) * lu(k,319) - b(k,131) = b(k,131) * lu(k,315) - b(k,130) = b(k,130) * lu(k,311) - b(k,129) = b(k,129) * lu(k,307) - b(k,99) = b(k,99) - lu(k,306) * b(k,129) - b(k,128) = b(k,128) * lu(k,302) - b(k,127) = b(k,127) * lu(k,297) - b(k,119) = b(k,119) - lu(k,296) * b(k,127) - b(k,126) = b(k,126) * lu(k,292) - b(k,125) = b(k,125) * lu(k,287) - b(k,124) = b(k,124) * lu(k,282) - b(k,123) = b(k,123) * lu(k,279) - b(k,122) = b(k,122) * lu(k,276) - b(k,121) = b(k,121) * lu(k,273) - b(k,120) = b(k,120) * lu(k,270) - b(k,119) = b(k,119) * lu(k,267) - b(k,118) = b(k,118) * lu(k,262) - b(k,117) = b(k,117) * lu(k,254) - b(k,114) = b(k,114) - lu(k,253) * b(k,117) - b(k,88) = b(k,88) - lu(k,252) * b(k,117) - b(k,116) = b(k,116) * lu(k,248) - b(k,115) = b(k,115) * lu(k,245) - b(k,114) = b(k,114) * lu(k,241) - b(k,113) = b(k,113) * lu(k,236) - b(k,112) = b(k,112) * lu(k,229) - b(k,87) = b(k,87) - lu(k,228) * b(k,112) - b(k,111) = b(k,111) * lu(k,226) - b(k,110) = b(k,110) - lu(k,225) * b(k,111) - b(k,110) = b(k,110) * lu(k,223) - b(k,109) = b(k,109) * lu(k,218) - b(k,108) = b(k,108) * lu(k,214) - b(k,107) = b(k,107) * lu(k,208) - b(k,81) = b(k,81) - lu(k,207) * b(k,107) - b(k,106) = b(k,106) * lu(k,205) - b(k,105) = b(k,105) * lu(k,200) - b(k,104) = b(k,104) * lu(k,195) - b(k,103) = b(k,103) * lu(k,190) - b(k,102) = b(k,102) * lu(k,185) - b(k,101) = b(k,101) * lu(k,182) - b(k,100) = b(k,100) * lu(k,179) - b(k,99) = b(k,99) * lu(k,176) - b(k,98) = b(k,98) * lu(k,173) - b(k,97) = b(k,97) * lu(k,169) - b(k,96) = b(k,96) * lu(k,165) - b(k,95) = b(k,95) * lu(k,161) - b(k,94) = b(k,94) * lu(k,157) - b(k,93) = b(k,93) * lu(k,153) - b(k,92) = b(k,92) * lu(k,150) - b(k,91) = b(k,91) * lu(k,147) - b(k,90) = b(k,90) * lu(k,144) - b(k,89) = b(k,89) * lu(k,141) - b(k,88) = b(k,88) * lu(k,140) - b(k,80) = b(k,80) - lu(k,139) * b(k,88) - b(k,79) = b(k,79) - lu(k,138) * b(k,88) - b(k,78) = b(k,78) - lu(k,137) * b(k,88) - b(k,77) = b(k,77) - lu(k,136) * b(k,88) - b(k,76) = b(k,76) - lu(k,135) * b(k,88) - b(k,87) = b(k,87) * lu(k,134) - b(k,80) = b(k,80) - lu(k,133) * b(k,87) - b(k,79) = b(k,79) - lu(k,132) * b(k,87) - b(k,78) = b(k,78) - lu(k,131) * b(k,87) - b(k,77) = b(k,77) - lu(k,130) * b(k,87) - b(k,76) = b(k,76) - lu(k,129) * b(k,87) - b(k,86) = b(k,86) * lu(k,128) - b(k,80) = b(k,80) - lu(k,127) * b(k,86) - b(k,79) = b(k,79) - lu(k,126) * b(k,86) - b(k,78) = b(k,78) - lu(k,125) * b(k,86) - b(k,77) = b(k,77) - lu(k,124) * b(k,86) - b(k,76) = b(k,76) - lu(k,123) * b(k,86) - b(k,85) = b(k,85) * lu(k,122) - b(k,65) = b(k,65) - lu(k,121) * b(k,85) - b(k,64) = b(k,64) - lu(k,120) * b(k,85) - b(k,63) = b(k,63) - lu(k,119) * b(k,85) - b(k,62) = b(k,62) - lu(k,118) * b(k,85) - b(k,61) = b(k,61) - lu(k,117) * b(k,85) - b(k,84) = b(k,84) * lu(k,116) - b(k,83) = b(k,83) * lu(k,115) - b(k,82) = b(k,82) - lu(k,114) * b(k,83) - b(k,82) = b(k,82) * lu(k,113) - b(k,80) = b(k,80) - lu(k,112) * b(k,82) - b(k,79) = b(k,79) - lu(k,111) * b(k,82) - b(k,78) = b(k,78) - lu(k,110) * b(k,82) - b(k,77) = b(k,77) - lu(k,109) * b(k,82) - b(k,76) = b(k,76) - lu(k,108) * b(k,82) - b(k,81) = b(k,81) * lu(k,107) - b(k,80) = b(k,80) - lu(k,106) * b(k,81) - b(k,79) = b(k,79) - lu(k,105) * b(k,81) - b(k,78) = b(k,78) - lu(k,104) * b(k,81) - b(k,77) = b(k,77) - lu(k,103) * b(k,81) - b(k,76) = b(k,76) - lu(k,102) * b(k,81) - b(k,80) = b(k,80) * lu(k,101) - b(k,79) = b(k,79) * lu(k,100) - b(k,78) = b(k,78) * lu(k,99) - b(k,77) = b(k,77) * lu(k,98) - b(k,76) = b(k,76) * lu(k,97) - b(k,75) = b(k,75) * lu(k,96) - b(k,72) = b(k,72) - lu(k,95) * b(k,75) - b(k,71) = b(k,71) - lu(k,94) * b(k,75) - b(k,70) = b(k,70) - lu(k,93) * b(k,75) - b(k,69) = b(k,69) - lu(k,92) * b(k,75) - b(k,68) = b(k,68) - lu(k,91) * b(k,75) - b(k,74) = b(k,74) * lu(k,90) - b(k,72) = b(k,72) - lu(k,89) * b(k,74) - b(k,71) = b(k,71) - lu(k,88) * b(k,74) - b(k,70) = b(k,70) - lu(k,87) * b(k,74) - b(k,69) = b(k,69) - lu(k,86) * b(k,74) - b(k,68) = b(k,68) - lu(k,85) * b(k,74) - b(k,73) = b(k,73) * lu(k,84) - b(k,72) = b(k,72) - lu(k,83) * b(k,73) - b(k,71) = b(k,71) - lu(k,82) * b(k,73) - b(k,70) = b(k,70) - lu(k,81) * b(k,73) - b(k,69) = b(k,69) - lu(k,80) * b(k,73) - b(k,68) = b(k,68) - lu(k,79) * b(k,73) - b(k,72) = b(k,72) * lu(k,78) - b(k,71) = b(k,71) * lu(k,77) - b(k,70) = b(k,70) * lu(k,76) - b(k,69) = b(k,69) * lu(k,75) - b(k,68) = b(k,68) * lu(k,74) - b(k,67) = b(k,67) * lu(k,73) - b(k,66) = b(k,66) - lu(k,72) * b(k,67) - b(k,66) = b(k,66) * lu(k,71) - b(k,65) = b(k,65) - lu(k,70) * b(k,66) - b(k,64) = b(k,64) - lu(k,69) * b(k,66) - b(k,63) = b(k,63) - lu(k,68) * b(k,66) - b(k,62) = b(k,62) - lu(k,67) * b(k,66) - b(k,61) = b(k,61) - lu(k,66) * b(k,66) + b(k,140) = b(k,140) * lu(k,355) + b(k,126) = b(k,126) - lu(k,354) * b(k,140) + b(k,139) = b(k,139) * lu(k,351) + b(k,138) = b(k,138) * lu(k,345) + b(k,137) = b(k,137) * lu(k,339) + b(k,136) = b(k,136) * lu(k,333) + b(k,135) = b(k,135) * lu(k,327) + b(k,134) = b(k,134) * lu(k,321) + b(k,133) = b(k,133) * lu(k,317) + b(k,132) = b(k,132) * lu(k,313) + b(k,131) = b(k,131) * lu(k,309) + b(k,107) = b(k,107) - lu(k,308) * b(k,131) + b(k,130) = b(k,130) * lu(k,304) + b(k,129) = b(k,129) * lu(k,299) + b(k,126) = b(k,126) - lu(k,298) * b(k,129) + b(k,128) = b(k,128) * lu(k,294) + b(k,127) = b(k,127) * lu(k,289) + b(k,126) = b(k,126) * lu(k,286) + b(k,125) = b(k,125) * lu(k,281) + b(k,124) = b(k,124) * lu(k,278) + b(k,123) = b(k,123) * lu(k,275) + b(k,122) = b(k,122) * lu(k,272) + b(k,121) = b(k,121) * lu(k,269) + b(k,120) = b(k,120) * lu(k,264) + b(k,119) = b(k,119) * lu(k,256) + b(k,116) = b(k,116) - lu(k,255) * b(k,119) + b(k,90) = b(k,90) - lu(k,254) * b(k,119) + b(k,118) = b(k,118) * lu(k,250) + b(k,117) = b(k,117) * lu(k,247) + b(k,116) = b(k,116) * lu(k,243) + b(k,115) = b(k,115) * lu(k,238) + b(k,114) = b(k,114) * lu(k,231) + b(k,89) = b(k,89) - lu(k,230) * b(k,114) + b(k,113) = b(k,113) * lu(k,228) + b(k,112) = b(k,112) - lu(k,227) * b(k,113) + b(k,112) = b(k,112) * lu(k,225) + b(k,111) = b(k,111) * lu(k,220) + b(k,110) = b(k,110) * lu(k,216) + b(k,109) = b(k,109) * lu(k,210) + b(k,82) = b(k,82) - lu(k,209) * b(k,109) + b(k,108) = b(k,108) * lu(k,207) + b(k,107) = b(k,107) * lu(k,204) + b(k,106) = b(k,106) * lu(k,201) + b(k,105) = b(k,105) * lu(k,198) + b(k,104) = b(k,104) * lu(k,193) + b(k,103) = b(k,103) * lu(k,188) + b(k,102) = b(k,102) * lu(k,183) + b(k,101) = b(k,101) * lu(k,178) + b(k,100) = b(k,100) * lu(k,175) + b(k,99) = b(k,99) * lu(k,171) + b(k,98) = b(k,98) * lu(k,167) + b(k,97) = b(k,97) * lu(k,163) + b(k,96) = b(k,96) * lu(k,159) + b(k,95) = b(k,95) * lu(k,155) + b(k,94) = b(k,94) * lu(k,152) + b(k,93) = b(k,93) * lu(k,149) + b(k,92) = b(k,92) * lu(k,146) + b(k,91) = b(k,91) * lu(k,143) + b(k,90) = b(k,90) * lu(k,142) + b(k,77) = b(k,77) - lu(k,141) * b(k,90) + b(k,76) = b(k,76) - lu(k,140) * b(k,90) + b(k,75) = b(k,75) - lu(k,139) * b(k,90) + b(k,74) = b(k,74) - lu(k,138) * b(k,90) + b(k,73) = b(k,73) - lu(k,137) * b(k,90) + b(k,89) = b(k,89) * lu(k,136) + b(k,77) = b(k,77) - lu(k,135) * b(k,89) + b(k,76) = b(k,76) - lu(k,134) * b(k,89) + b(k,75) = b(k,75) - lu(k,133) * b(k,89) + b(k,74) = b(k,74) - lu(k,132) * b(k,89) + b(k,73) = b(k,73) - lu(k,131) * b(k,89) + b(k,88) = b(k,88) * lu(k,130) + b(k,72) = b(k,72) - lu(k,129) * b(k,88) + b(k,71) = b(k,71) - lu(k,128) * b(k,88) + b(k,70) = b(k,70) - lu(k,127) * b(k,88) + b(k,69) = b(k,69) - lu(k,126) * b(k,88) + b(k,68) = b(k,68) - lu(k,125) * b(k,88) + b(k,87) = b(k,87) * lu(k,124) + b(k,86) = b(k,86) - lu(k,123) * b(k,87) + b(k,86) = b(k,86) * lu(k,122) + b(k,77) = b(k,77) - lu(k,121) * b(k,86) + b(k,76) = b(k,76) - lu(k,120) * b(k,86) + b(k,75) = b(k,75) - lu(k,119) * b(k,86) + b(k,74) = b(k,74) - lu(k,118) * b(k,86) + b(k,73) = b(k,73) - lu(k,117) * b(k,86) + b(k,85) = b(k,85) * lu(k,116) + b(k,84) = b(k,84) - lu(k,115) * b(k,85) + b(k,84) = b(k,84) * lu(k,114) + b(k,67) = b(k,67) - lu(k,113) * b(k,84) + b(k,66) = b(k,66) - lu(k,112) * b(k,84) + b(k,65) = b(k,65) - lu(k,111) * b(k,84) + b(k,64) = b(k,64) - lu(k,110) * b(k,84) + b(k,63) = b(k,63) - lu(k,109) * b(k,84) + b(k,83) = b(k,83) * lu(k,108) + b(k,72) = b(k,72) - lu(k,107) * b(k,83) + b(k,71) = b(k,71) - lu(k,106) * b(k,83) + b(k,70) = b(k,70) - lu(k,105) * b(k,83) + b(k,69) = b(k,69) - lu(k,104) * b(k,83) + b(k,68) = b(k,68) - lu(k,103) * b(k,83) + b(k,82) = b(k,82) * lu(k,102) + b(k,77) = b(k,77) - lu(k,101) * b(k,82) + b(k,76) = b(k,76) - lu(k,100) * b(k,82) + b(k,75) = b(k,75) - lu(k,99) * b(k,82) + b(k,74) = b(k,74) - lu(k,98) * b(k,82) + b(k,73) = b(k,73) - lu(k,97) * b(k,82) + b(k,81) = b(k,81) * lu(k,96) + b(k,72) = b(k,72) - lu(k,95) * b(k,81) + b(k,71) = b(k,71) - lu(k,94) * b(k,81) + b(k,70) = b(k,70) - lu(k,93) * b(k,81) + b(k,69) = b(k,69) - lu(k,92) * b(k,81) + b(k,68) = b(k,68) - lu(k,91) * b(k,81) + b(k,80) = b(k,80) * lu(k,90) + b(k,77) = b(k,77) - lu(k,89) * b(k,80) + b(k,76) = b(k,76) - lu(k,88) * b(k,80) + b(k,75) = b(k,75) - lu(k,87) * b(k,80) + b(k,74) = b(k,74) - lu(k,86) * b(k,80) + b(k,73) = b(k,73) - lu(k,85) * b(k,80) + b(k,79) = b(k,79) * lu(k,84) + b(k,67) = b(k,67) - lu(k,83) * b(k,79) + b(k,66) = b(k,66) - lu(k,82) * b(k,79) + b(k,65) = b(k,65) - lu(k,81) * b(k,79) + b(k,64) = b(k,64) - lu(k,80) * b(k,79) + b(k,63) = b(k,63) - lu(k,79) * b(k,79) + b(k,78) = b(k,78) * lu(k,78) + b(k,77) = b(k,77) * lu(k,77) + b(k,76) = b(k,76) * lu(k,76) + b(k,75) = b(k,75) * lu(k,75) + b(k,74) = b(k,74) * lu(k,74) + b(k,73) = b(k,73) * lu(k,73) + b(k,72) = b(k,72) * lu(k,72) + b(k,71) = b(k,71) * lu(k,71) + b(k,70) = b(k,70) * lu(k,70) + b(k,69) = b(k,69) * lu(k,69) + b(k,68) = b(k,68) * lu(k,68) + b(k,67) = b(k,67) * lu(k,67) + b(k,66) = b(k,66) * lu(k,66) b(k,65) = b(k,65) * lu(k,65) b(k,64) = b(k,64) * lu(k,64) b(k,63) = b(k,63) * lu(k,63) @@ -2762,26 +2764,6 @@ subroutine lu_slv12( avec_len, lu, b ) b(k,9) = b(k,9) * lu(k,9) b(k,8) = b(k,8) * lu(k,8) b(k,7) = b(k,7) * lu(k,7) - end do - end subroutine lu_slv12 - subroutine lu_slv13( avec_len, lu, b ) - use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : clscnt4, nzcnt - implicit none -!----------------------------------------------------------------------- -! ... Dummy args -!----------------------------------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: lu(veclen,max(1,nzcnt)) - real(r8), intent(inout) :: b(veclen,clscnt4) -!----------------------------------------------------------------------- -! ... Local variables -!----------------------------------------------------------------------- - integer :: k -!----------------------------------------------------------------------- -! ... solve L * y = b -!----------------------------------------------------------------------- - do k = 1,avec_len b(k,6) = b(k,6) * lu(k,6) b(k,5) = b(k,5) * lu(k,5) b(k,4) = b(k,4) * lu(k,4) @@ -2789,7 +2771,7 @@ subroutine lu_slv13( avec_len, lu, b ) b(k,2) = b(k,2) * lu(k,2) b(k,1) = b(k,1) * lu(k,1) end do - end subroutine lu_slv13 + end subroutine lu_slv12 subroutine lu_slv( avec_len, lu, b ) use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : clscnt4, nzcnt @@ -2812,6 +2794,5 @@ subroutine lu_slv( avec_len, lu, b ) call lu_slv10( avec_len, lu, b ) call lu_slv11( avec_len, lu, b ) call lu_slv12( avec_len, lu, b ) - call lu_slv13( avec_len, lu, b ) end subroutine lu_slv end module mo_lu_solve diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_nln_matrix.F90 index a13c9749f0..bdb8bb7ab4 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_nln_matrix.F90 @@ -22,259 +22,249 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,699) = -(rxt(k,416)*y(k,265)) - mat(k,1940) = -rxt(k,416)*y(k,1) - mat(k,1740) = rxt(k,419)*y(k,234) - mat(k,1082) = rxt(k,419)*y(k,131) - mat(k,710) = -(rxt(k,420)*y(k,265)) - mat(k,1941) = -rxt(k,420)*y(k,2) - mat(k,1083) = rxt(k,417)*y(k,247) - mat(k,2158) = rxt(k,417)*y(k,234) - mat(k,1062) = -(rxt(k,499)*y(k,133) + rxt(k,500)*y(k,143) + rxt(k,501) & + mat(k,732) = -(rxt(k,419)*y(k,265)) + mat(k,1792) = -rxt(k,419)*y(k,1) + mat(k,1913) = rxt(k,422)*y(k,228) + mat(k,1084) = rxt(k,422)*y(k,125) + mat(k,711) = -(rxt(k,423)*y(k,265)) + mat(k,1790) = -rxt(k,423)*y(k,2) + mat(k,1083) = rxt(k,420)*y(k,243) + mat(k,2322) = rxt(k,420)*y(k,228) + mat(k,1063) = -(rxt(k,502)*y(k,127) + rxt(k,503)*y(k,137) + rxt(k,504) & *y(k,265)) - mat(k,2030) = -rxt(k,499)*y(k,6) - mat(k,2384) = -rxt(k,500)*y(k,6) - mat(k,1968) = -rxt(k,501)*y(k,6) - mat(k,96) = -(rxt(k,554)*y(k,247) + rxt(k,555)*y(k,131)) - mat(k,2116) = -rxt(k,554)*y(k,7) - mat(k,1709) = -rxt(k,555)*y(k,7) - mat(k,1058) = rxt(k,557)*y(k,265) - mat(k,1854) = rxt(k,557)*y(k,6) - mat(k,208) = -(rxt(k,458)*y(k,265)) - mat(k,1871) = -rxt(k,458)*y(k,8) - mat(k,107) = -(rxt(k,559)*y(k,247) + rxt(k,560)*y(k,131)) - mat(k,2122) = -rxt(k,559)*y(k,9) - mat(k,1715) = -rxt(k,560)*y(k,9) - mat(k,207) = rxt(k,558)*y(k,265) - mat(k,1860) = rxt(k,558)*y(k,8) - mat(k,449) = -(rxt(k,461)*y(k,265)) - mat(k,1910) = -rxt(k,461)*y(k,10) - mat(k,539) = rxt(k,459)*y(k,247) - mat(k,2138) = rxt(k,459)*y(k,235) - mat(k,209) = .120_r8*rxt(k,458)*y(k,265) - mat(k,1872) = .120_r8*rxt(k,458)*y(k,8) - mat(k,1060) = .100_r8*rxt(k,500)*y(k,143) - mat(k,1004) = .100_r8*rxt(k,503)*y(k,143) - mat(k,2373) = .100_r8*rxt(k,500)*y(k,6) + .100_r8*rxt(k,503)*y(k,116) - mat(k,1727) = .500_r8*rxt(k,460)*y(k,235) + .200_r8*rxt(k,487)*y(k,272) & - + .060_r8*rxt(k,493)*y(k,274) - mat(k,540) = .500_r8*rxt(k,460)*y(k,131) - mat(k,791) = .200_r8*rxt(k,487)*y(k,131) - mat(k,807) = .060_r8*rxt(k,493)*y(k,131) - mat(k,1721) = .200_r8*rxt(k,487)*y(k,272) + .200_r8*rxt(k,493)*y(k,274) - mat(k,790) = .200_r8*rxt(k,487)*y(k,131) - mat(k,805) = .200_r8*rxt(k,493)*y(k,131) - mat(k,1737) = .200_r8*rxt(k,487)*y(k,272) + .150_r8*rxt(k,493)*y(k,274) - mat(k,793) = .200_r8*rxt(k,487)*y(k,131) - mat(k,808) = .150_r8*rxt(k,493)*y(k,131) - mat(k,1722) = .210_r8*rxt(k,493)*y(k,274) - mat(k,806) = .210_r8*rxt(k,493)*y(k,131) - mat(k,270) = -(rxt(k,421)*y(k,265)) - mat(k,1882) = -rxt(k,421)*y(k,17) - mat(k,1059) = .050_r8*rxt(k,500)*y(k,143) - mat(k,1003) = .050_r8*rxt(k,503)*y(k,143) - mat(k,2372) = .050_r8*rxt(k,500)*y(k,6) + .050_r8*rxt(k,503)*y(k,116) - mat(k,409) = -(rxt(k,387)*y(k,133) + rxt(k,388)*y(k,265)) - mat(k,2023) = -rxt(k,387)*y(k,18) - mat(k,1904) = -rxt(k,388)*y(k,18) - mat(k,1555) = -(rxt(k,270)*y(k,44) + rxt(k,271)*y(k,247) + rxt(k,272) & - *y(k,143)) - mat(k,2479) = -rxt(k,270)*y(k,19) - mat(k,2204) = -rxt(k,271)*y(k,19) - mat(k,2410) = -rxt(k,272)*y(k,19) - mat(k,1607) = 4.000_r8*rxt(k,273)*y(k,21) + (rxt(k,274)+rxt(k,275))*y(k,61) & - + rxt(k,278)*y(k,131) + rxt(k,281)*y(k,141) + rxt(k,529) & - *y(k,161) + rxt(k,282)*y(k,265) - mat(k,187) = rxt(k,260)*y(k,261) - mat(k,193) = rxt(k,286)*y(k,261) - mat(k,516) = 2.000_r8*rxt(k,297)*y(k,58) + 2.000_r8*rxt(k,309)*y(k,261) & - + 2.000_r8*rxt(k,298)*y(k,265) - mat(k,630) = rxt(k,299)*y(k,58) + rxt(k,310)*y(k,261) + rxt(k,300)*y(k,265) - mat(k,463) = 3.000_r8*rxt(k,304)*y(k,58) + 3.000_r8*rxt(k,287)*y(k,261) & - + 3.000_r8*rxt(k,305)*y(k,265) - mat(k,2250) = 2.000_r8*rxt(k,297)*y(k,43) + rxt(k,299)*y(k,45) & - + 3.000_r8*rxt(k,304)*y(k,57) - mat(k,1633) = (rxt(k,274)+rxt(k,275))*y(k,21) - mat(k,171) = 2.000_r8*rxt(k,288)*y(k,261) - mat(k,881) = rxt(k,283)*y(k,141) + rxt(k,289)*y(k,261) + rxt(k,284)*y(k,265) - mat(k,1783) = rxt(k,278)*y(k,21) - mat(k,2453) = rxt(k,281)*y(k,21) + rxt(k,283)*y(k,83) - mat(k,1521) = rxt(k,529)*y(k,21) - mat(k,1826) = rxt(k,260)*y(k,36) + rxt(k,286)*y(k,37) + 2.000_r8*rxt(k,309) & - *y(k,43) + rxt(k,310)*y(k,45) + 3.000_r8*rxt(k,287)*y(k,57) & - + 2.000_r8*rxt(k,288)*y(k,80) + rxt(k,289)*y(k,83) - mat(k,1999) = rxt(k,282)*y(k,21) + 2.000_r8*rxt(k,298)*y(k,43) + rxt(k,300) & - *y(k,45) + 3.000_r8*rxt(k,305)*y(k,57) + rxt(k,284)*y(k,83) - mat(k,1600) = rxt(k,276)*y(k,61) - mat(k,1626) = rxt(k,276)*y(k,21) - mat(k,1535) = (rxt(k,594)+rxt(k,599))*y(k,93) - mat(k,840) = (rxt(k,594)+rxt(k,599))*y(k,87) - mat(k,1609) = -(4._r8*rxt(k,273)*y(k,21) + (rxt(k,274) + rxt(k,275) + rxt(k,276) & - ) * y(k,61) + rxt(k,277)*y(k,247) + rxt(k,278)*y(k,131) & - + rxt(k,279)*y(k,132) + rxt(k,281)*y(k,141) + rxt(k,282) & - *y(k,265) + rxt(k,529)*y(k,161)) - mat(k,1635) = -(rxt(k,274) + rxt(k,275) + rxt(k,276)) * y(k,21) - mat(k,2206) = -rxt(k,277)*y(k,21) - mat(k,1785) = -rxt(k,278)*y(k,21) - mat(k,1679) = -rxt(k,279)*y(k,21) - mat(k,2455) = -rxt(k,281)*y(k,21) - mat(k,2001) = -rxt(k,282)*y(k,21) - mat(k,1523) = -rxt(k,529)*y(k,21) - mat(k,1557) = rxt(k,272)*y(k,143) - mat(k,607) = rxt(k,280)*y(k,141) - mat(k,882) = rxt(k,290)*y(k,261) - mat(k,844) = rxt(k,285)*y(k,141) - mat(k,2455) = mat(k,2455) + rxt(k,280)*y(k,22) + rxt(k,285)*y(k,93) - mat(k,2412) = rxt(k,272)*y(k,19) - mat(k,1828) = rxt(k,290)*y(k,83) - mat(k,604) = -(rxt(k,280)*y(k,141)) - mat(k,2434) = -rxt(k,280)*y(k,22) - mat(k,1602) = rxt(k,279)*y(k,132) - mat(k,1658) = rxt(k,279)*y(k,21) - mat(k,279) = -(rxt(k,462)*y(k,265)) - mat(k,1884) = -rxt(k,462)*y(k,24) - mat(k,1720) = rxt(k,465)*y(k,236) - mat(k,479) = rxt(k,465)*y(k,131) - mat(k,373) = -(rxt(k,464)*y(k,265)) - mat(k,1898) = -rxt(k,464)*y(k,25) - mat(k,480) = rxt(k,463)*y(k,247) - mat(k,2130) = rxt(k,463)*y(k,236) - mat(k,325) = -(rxt(k,335)*y(k,58) + rxt(k,336)*y(k,265)) - mat(k,2224) = -rxt(k,335)*y(k,26) - mat(k,1892) = -rxt(k,336)*y(k,26) - mat(k,620) = -(rxt(k,337)*y(k,58) + rxt(k,338)*y(k,143) + rxt(k,363)*y(k,265)) - mat(k,2230) = -rxt(k,337)*y(k,27) - mat(k,2375) = -rxt(k,338)*y(k,27) - mat(k,1930) = -rxt(k,363)*y(k,27) - mat(k,311) = -(rxt(k,343)*y(k,265)) - mat(k,1890) = -rxt(k,343)*y(k,28) - mat(k,947) = .800_r8*rxt(k,339)*y(k,237) + .200_r8*rxt(k,340)*y(k,241) - mat(k,2313) = .200_r8*rxt(k,340)*y(k,237) - mat(k,378) = -(rxt(k,344)*y(k,265)) - mat(k,1899) = -rxt(k,344)*y(k,29) - mat(k,948) = rxt(k,341)*y(k,247) - mat(k,2131) = rxt(k,341)*y(k,237) - mat(k,334) = -(rxt(k,345)*y(k,58) + rxt(k,346)*y(k,265)) - mat(k,2225) = -rxt(k,345)*y(k,30) - mat(k,1893) = -rxt(k,346)*y(k,30) - mat(k,1177) = -(rxt(k,366)*y(k,133) + rxt(k,367)*y(k,143) + rxt(k,385) & + mat(k,2399) = -rxt(k,502)*y(k,6) + mat(k,2083) = -rxt(k,503)*y(k,6) + mat(k,1818) = -rxt(k,504)*y(k,6) + mat(k,210) = -(rxt(k,461)*y(k,265)) + mat(k,1721) = -rxt(k,461)*y(k,7) + mat(k,457) = -(rxt(k,464)*y(k,265)) + mat(k,1761) = -rxt(k,464)*y(k,8) + mat(k,530) = rxt(k,462)*y(k,243) + mat(k,2302) = rxt(k,462)*y(k,230) + mat(k,211) = .120_r8*rxt(k,461)*y(k,265) + mat(k,1722) = .120_r8*rxt(k,461)*y(k,7) + mat(k,1061) = .100_r8*rxt(k,503)*y(k,137) + mat(k,1005) = .100_r8*rxt(k,506)*y(k,137) + mat(k,2072) = .100_r8*rxt(k,503)*y(k,6) + .100_r8*rxt(k,506)*y(k,111) + mat(k,1899) = .500_r8*rxt(k,463)*y(k,230) + .200_r8*rxt(k,490)*y(k,272) & + + .060_r8*rxt(k,496)*y(k,275) + mat(k,531) = .500_r8*rxt(k,463)*y(k,125) + mat(k,784) = .200_r8*rxt(k,490)*y(k,125) + mat(k,808) = .060_r8*rxt(k,496)*y(k,125) + mat(k,1893) = .200_r8*rxt(k,490)*y(k,272) + .200_r8*rxt(k,496)*y(k,275) + mat(k,783) = .200_r8*rxt(k,490)*y(k,125) + mat(k,806) = .200_r8*rxt(k,496)*y(k,125) + mat(k,1909) = .200_r8*rxt(k,490)*y(k,272) + .150_r8*rxt(k,496)*y(k,275) + mat(k,786) = .200_r8*rxt(k,490)*y(k,125) + mat(k,809) = .150_r8*rxt(k,496)*y(k,125) + mat(k,1895) = .210_r8*rxt(k,496)*y(k,275) + mat(k,807) = .210_r8*rxt(k,496)*y(k,125) + mat(k,269) = -(rxt(k,424)*y(k,265)) + mat(k,1731) = -rxt(k,424)*y(k,15) + mat(k,1060) = .050_r8*rxt(k,503)*y(k,137) + mat(k,1004) = .050_r8*rxt(k,506)*y(k,137) + mat(k,2071) = .050_r8*rxt(k,503)*y(k,6) + .050_r8*rxt(k,506)*y(k,111) + mat(k,403) = -(rxt(k,390)*y(k,127) + rxt(k,391)*y(k,265)) + mat(k,2392) = -rxt(k,390)*y(k,16) + mat(k,1753) = -rxt(k,391)*y(k,16) + mat(k,1556) = -(rxt(k,273)*y(k,42) + rxt(k,274)*y(k,243) + rxt(k,275) & + *y(k,137)) + mat(k,2454) = -rxt(k,273)*y(k,17) + mat(k,2368) = -rxt(k,274)*y(k,17) + mat(k,2109) = -rxt(k,275)*y(k,17) + mat(k,1608) = 4.000_r8*rxt(k,276)*y(k,19) + (rxt(k,277)+rxt(k,278))*y(k,59) & + + rxt(k,281)*y(k,125) + rxt(k,284)*y(k,135) + rxt(k,532) & + *y(k,157) + rxt(k,285)*y(k,265) + mat(k,180) = rxt(k,263)*y(k,261) + mat(k,186) = rxt(k,289)*y(k,261) + mat(k,518) = 2.000_r8*rxt(k,300)*y(k,56) + 2.000_r8*rxt(k,312)*y(k,261) & + + 2.000_r8*rxt(k,301)*y(k,265) + mat(k,683) = rxt(k,302)*y(k,56) + rxt(k,313)*y(k,261) + rxt(k,303)*y(k,265) + mat(k,453) = 3.000_r8*rxt(k,307)*y(k,56) + 3.000_r8*rxt(k,290)*y(k,261) & + + 3.000_r8*rxt(k,308)*y(k,265) + mat(k,2002) = 2.000_r8*rxt(k,300)*y(k,41) + rxt(k,302)*y(k,43) & + + 3.000_r8*rxt(k,307)*y(k,55) + mat(k,2482) = (rxt(k,277)+rxt(k,278))*y(k,19) + mat(k,173) = 2.000_r8*rxt(k,291)*y(k,261) + mat(k,874) = rxt(k,286)*y(k,135) + rxt(k,292)*y(k,261) + rxt(k,287)*y(k,265) + mat(k,1956) = rxt(k,281)*y(k,19) + mat(k,2045) = rxt(k,284)*y(k,19) + rxt(k,286)*y(k,81) + mat(k,1522) = rxt(k,532)*y(k,19) + mat(k,2225) = rxt(k,263)*y(k,34) + rxt(k,289)*y(k,35) + 2.000_r8*rxt(k,312) & + *y(k,41) + rxt(k,313)*y(k,43) + 3.000_r8*rxt(k,290)*y(k,55) & + + 2.000_r8*rxt(k,291)*y(k,78) + rxt(k,292)*y(k,81) + mat(k,1849) = rxt(k,285)*y(k,19) + 2.000_r8*rxt(k,301)*y(k,41) + rxt(k,303) & + *y(k,43) + 3.000_r8*rxt(k,308)*y(k,55) + rxt(k,287)*y(k,81) + mat(k,1601) = rxt(k,279)*y(k,59) + mat(k,2475) = rxt(k,279)*y(k,19) + mat(k,1536) = (rxt(k,597)+rxt(k,602))*y(k,91) + mat(k,831) = (rxt(k,597)+rxt(k,602))*y(k,85) + mat(k,1610) = -(4._r8*rxt(k,276)*y(k,19) + (rxt(k,277) + rxt(k,278) + rxt(k,279) & + ) * y(k,59) + rxt(k,280)*y(k,243) + rxt(k,281)*y(k,125) & + + rxt(k,282)*y(k,126) + rxt(k,284)*y(k,135) + rxt(k,285) & + *y(k,265) + rxt(k,532)*y(k,157)) + mat(k,2484) = -(rxt(k,277) + rxt(k,278) + rxt(k,279)) * y(k,19) + mat(k,2370) = -rxt(k,280)*y(k,19) + mat(k,1958) = -rxt(k,281)*y(k,19) + mat(k,1678) = -rxt(k,282)*y(k,19) + mat(k,2047) = -rxt(k,284)*y(k,19) + mat(k,1851) = -rxt(k,285)*y(k,19) + mat(k,1524) = -rxt(k,532)*y(k,19) + mat(k,1558) = rxt(k,275)*y(k,137) + mat(k,620) = rxt(k,283)*y(k,135) + mat(k,875) = rxt(k,293)*y(k,261) + mat(k,835) = rxt(k,288)*y(k,135) + mat(k,2047) = mat(k,2047) + rxt(k,283)*y(k,20) + rxt(k,288)*y(k,91) + mat(k,2111) = rxt(k,275)*y(k,17) + mat(k,2227) = rxt(k,293)*y(k,81) + mat(k,617) = -(rxt(k,283)*y(k,135)) + mat(k,2025) = -rxt(k,283)*y(k,20) + mat(k,1603) = rxt(k,282)*y(k,126) + mat(k,1657) = rxt(k,282)*y(k,19) + mat(k,278) = -(rxt(k,465)*y(k,265)) + mat(k,1733) = -rxt(k,465)*y(k,22) + mat(k,1892) = rxt(k,468)*y(k,232) + mat(k,475) = rxt(k,468)*y(k,125) + mat(k,370) = -(rxt(k,467)*y(k,265)) + mat(k,1748) = -rxt(k,467)*y(k,23) + mat(k,476) = rxt(k,466)*y(k,243) + mat(k,2294) = rxt(k,466)*y(k,232) + mat(k,321) = -(rxt(k,338)*y(k,56) + rxt(k,339)*y(k,265)) + mat(k,1976) = -rxt(k,338)*y(k,24) + mat(k,1742) = -rxt(k,339)*y(k,24) + mat(k,577) = -(rxt(k,340)*y(k,56) + rxt(k,341)*y(k,137) + rxt(k,366)*y(k,265)) + mat(k,1982) = -rxt(k,340)*y(k,25) + mat(k,2074) = -rxt(k,341)*y(k,25) + mat(k,1776) = -rxt(k,366)*y(k,25) + mat(k,304) = -(rxt(k,346)*y(k,265)) + mat(k,1739) = -rxt(k,346)*y(k,26) + mat(k,943) = .800_r8*rxt(k,342)*y(k,233) + .200_r8*rxt(k,343)*y(k,237) + mat(k,2149) = .200_r8*rxt(k,343)*y(k,233) + mat(k,375) = -(rxt(k,347)*y(k,265)) + mat(k,1749) = -rxt(k,347)*y(k,27) + mat(k,944) = rxt(k,344)*y(k,243) + mat(k,2295) = rxt(k,344)*y(k,233) + mat(k,327) = -(rxt(k,348)*y(k,56) + rxt(k,349)*y(k,265)) + mat(k,1977) = -rxt(k,348)*y(k,28) + mat(k,1743) = -rxt(k,349)*y(k,28) + mat(k,1178) = -(rxt(k,369)*y(k,127) + rxt(k,370)*y(k,137) + rxt(k,388) & *y(k,265)) - mat(k,2039) = -rxt(k,366)*y(k,31) - mat(k,2392) = -rxt(k,367)*y(k,31) - mat(k,1977) = -rxt(k,385)*y(k,31) - mat(k,922) = .130_r8*rxt(k,445)*y(k,143) - mat(k,2392) = mat(k,2392) + .130_r8*rxt(k,445)*y(k,100) - mat(k,437) = -(rxt(k,371)*y(k,265)) - mat(k,1908) = -rxt(k,371)*y(k,32) - mat(k,978) = rxt(k,369)*y(k,247) - mat(k,2136) = rxt(k,369)*y(k,238) - mat(k,340) = -(rxt(k,372)*y(k,265) + rxt(k,375)*y(k,58)) - mat(k,1894) = -rxt(k,372)*y(k,33) - mat(k,2226) = -rxt(k,375)*y(k,33) - mat(k,315) = -(rxt(k,468)*y(k,265)) - mat(k,1891) = -rxt(k,468)*y(k,34) - mat(k,690) = rxt(k,466)*y(k,247) - mat(k,2128) = rxt(k,466)*y(k,239) - mat(k,144) = -(rxt(k,259)*y(k,261)) - mat(k,1802) = -rxt(k,259)*y(k,35) - mat(k,185) = -(rxt(k,260)*y(k,261)) - mat(k,1807) = -rxt(k,260)*y(k,36) - mat(k,190) = -(rxt(k,286)*y(k,261)) - mat(k,1808) = -rxt(k,286)*y(k,37) - mat(k,153) = -(rxt(k,261)*y(k,261)) - mat(k,1803) = -rxt(k,261)*y(k,38) - mat(k,195) = -(rxt(k,262)*y(k,261)) - mat(k,1809) = -rxt(k,262)*y(k,39) - mat(k,157) = -(rxt(k,263)*y(k,261)) - mat(k,1804) = -rxt(k,263)*y(k,40) - mat(k,200) = -(rxt(k,264)*y(k,261)) - mat(k,1810) = -rxt(k,264)*y(k,41) - mat(k,161) = -(rxt(k,265)*y(k,261)) - mat(k,1805) = -rxt(k,265)*y(k,42) - mat(k,514) = -(rxt(k,297)*y(k,58) + rxt(k,298)*y(k,265) + rxt(k,309)*y(k,261)) - mat(k,2229) = -rxt(k,297)*y(k,43) - mat(k,1918) = -rxt(k,298)*y(k,43) - mat(k,1820) = -rxt(k,309)*y(k,43) - mat(k,2496) = -(rxt(k,234)*y(k,58) + rxt(k,270)*y(k,19) + rxt(k,314)*y(k,247) & - + rxt(k,315)*y(k,133) + rxt(k,316)*y(k,141) + rxt(k,317) & + mat(k,2408) = -rxt(k,369)*y(k,29) + mat(k,2091) = -rxt(k,370)*y(k,29) + mat(k,1827) = -rxt(k,388)*y(k,29) + mat(k,929) = .130_r8*rxt(k,448)*y(k,137) + mat(k,2091) = mat(k,2091) + .130_r8*rxt(k,448)*y(k,98) + mat(k,433) = -(rxt(k,374)*y(k,265)) + mat(k,1757) = -rxt(k,374)*y(k,30) + mat(k,979) = rxt(k,372)*y(k,243) + mat(k,2299) = rxt(k,372)*y(k,234) + mat(k,333) = -(rxt(k,375)*y(k,265) + rxt(k,378)*y(k,56)) + mat(k,1744) = -rxt(k,375)*y(k,31) + mat(k,1978) = -rxt(k,378)*y(k,31) + mat(k,313) = -(rxt(k,471)*y(k,265)) + mat(k,1741) = -rxt(k,471)*y(k,32) + mat(k,696) = rxt(k,469)*y(k,243) + mat(k,2292) = rxt(k,469)*y(k,235) + mat(k,146) = -(rxt(k,262)*y(k,261)) + mat(k,2201) = -rxt(k,262)*y(k,33) + mat(k,178) = -(rxt(k,263)*y(k,261)) + mat(k,2206) = -rxt(k,263)*y(k,34) + mat(k,183) = -(rxt(k,289)*y(k,261)) + mat(k,2207) = -rxt(k,289)*y(k,35) + mat(k,155) = -(rxt(k,264)*y(k,261)) + mat(k,2202) = -rxt(k,264)*y(k,36) + mat(k,188) = -(rxt(k,265)*y(k,261)) + mat(k,2208) = -rxt(k,265)*y(k,37) + mat(k,159) = -(rxt(k,266)*y(k,261)) + mat(k,2203) = -rxt(k,266)*y(k,38) + mat(k,193) = -(rxt(k,267)*y(k,261)) + mat(k,2209) = -rxt(k,267)*y(k,39) + mat(k,163) = -(rxt(k,268)*y(k,261)) + mat(k,2204) = -rxt(k,268)*y(k,40) + mat(k,516) = -(rxt(k,300)*y(k,56) + rxt(k,301)*y(k,265) + rxt(k,312)*y(k,261)) + mat(k,1981) = -rxt(k,300)*y(k,41) + mat(k,1768) = -rxt(k,301)*y(k,41) + mat(k,2219) = -rxt(k,312)*y(k,41) + mat(k,2470) = -(rxt(k,237)*y(k,56) + rxt(k,273)*y(k,17) + rxt(k,317)*y(k,243) & + + rxt(k,318)*y(k,127) + rxt(k,319)*y(k,135) + rxt(k,320) & *y(k,265)) - mat(k,2267) = -rxt(k,234)*y(k,44) - mat(k,1566) = -rxt(k,270)*y(k,44) - mat(k,2221) = -rxt(k,314)*y(k,44) - mat(k,2076) = -rxt(k,315)*y(k,44) - mat(k,2470) = -rxt(k,316)*y(k,44) - mat(k,2016) = -rxt(k,317)*y(k,44) - mat(k,708) = .400_r8*rxt(k,416)*y(k,265) - mat(k,1079) = .340_r8*rxt(k,500)*y(k,143) - mat(k,416) = .500_r8*rxt(k,387)*y(k,133) - mat(k,627) = rxt(k,338)*y(k,143) - mat(k,1193) = .500_r8*rxt(k,367)*y(k,143) - mat(k,642) = .500_r8*rxt(k,355)*y(k,265) - mat(k,860) = rxt(k,322)*y(k,265) - mat(k,459) = .300_r8*rxt(k,323)*y(k,265) - mat(k,2101) = (rxt(k,331)+rxt(k,332))*y(k,261) - mat(k,1649) = rxt(k,241)*y(k,241) - mat(k,1214) = .800_r8*rxt(k,360)*y(k,265) - mat(k,935) = .910_r8*rxt(k,445)*y(k,143) - mat(k,659) = .300_r8*rxt(k,436)*y(k,265) - mat(k,1310) = .800_r8*rxt(k,440)*y(k,241) - mat(k,1322) = .120_r8*rxt(k,398)*y(k,143) - mat(k,679) = .500_r8*rxt(k,411)*y(k,265) - mat(k,1023) = .340_r8*rxt(k,503)*y(k,143) - mat(k,1434) = .600_r8*rxt(k,412)*y(k,143) - mat(k,1800) = .100_r8*rxt(k,418)*y(k,234) + rxt(k,321)*y(k,241) & - + .500_r8*rxt(k,389)*y(k,244) + .500_r8*rxt(k,357)*y(k,246) & - + .920_r8*rxt(k,428)*y(k,249) + .250_r8*rxt(k,396)*y(k,251) & - + rxt(k,405)*y(k,253) + rxt(k,379)*y(k,268) + rxt(k,383) & - *y(k,269) + .340_r8*rxt(k,512)*y(k,270) + .320_r8*rxt(k,517) & - *y(k,271) + .250_r8*rxt(k,453)*y(k,273) - mat(k,2076) = mat(k,2076) + .500_r8*rxt(k,387)*y(k,18) + rxt(k,429)*y(k,249) & - + .250_r8*rxt(k,395)*y(k,251) + rxt(k,406)*y(k,253) - mat(k,2427) = .340_r8*rxt(k,500)*y(k,6) + rxt(k,338)*y(k,27) & - + .500_r8*rxt(k,367)*y(k,31) + .910_r8*rxt(k,445)*y(k,100) & - + .120_r8*rxt(k,398)*y(k,111) + .340_r8*rxt(k,503)*y(k,116) & - + .600_r8*rxt(k,412)*y(k,118) - mat(k,587) = rxt(k,362)*y(k,265) - mat(k,1171) = .680_r8*rxt(k,521)*y(k,265) - mat(k,1096) = .100_r8*rxt(k,418)*y(k,131) - mat(k,958) = .700_r8*rxt(k,340)*y(k,241) - mat(k,988) = rxt(k,368)*y(k,241) - mat(k,1484) = rxt(k,351)*y(k,241) + rxt(k,425)*y(k,249) + .250_r8*rxt(k,392) & - *y(k,251) + rxt(k,401)*y(k,253) + .250_r8*rxt(k,450)*y(k,273) - mat(k,2363) = rxt(k,241)*y(k,61) + .800_r8*rxt(k,440)*y(k,103) + rxt(k,321) & - *y(k,131) + .700_r8*rxt(k,340)*y(k,237) + rxt(k,368)*y(k,238) & - + rxt(k,351)*y(k,240) + (4.000_r8*rxt(k,318)+2.000_r8*rxt(k,319)) & - *y(k,241) + 1.500_r8*rxt(k,426)*y(k,249) + .750_r8*rxt(k,431) & - *y(k,250) + .880_r8*rxt(k,393)*y(k,251) + 2.000_r8*rxt(k,402) & - *y(k,253) + .750_r8*rxt(k,505)*y(k,260) + .800_r8*rxt(k,381) & - *y(k,269) + .930_r8*rxt(k,510)*y(k,270) + .950_r8*rxt(k,515) & - *y(k,271) + .800_r8*rxt(k,451)*y(k,273) - mat(k,619) = .500_r8*rxt(k,389)*y(k,131) - mat(k,839) = .500_r8*rxt(k,357)*y(k,131) - mat(k,2221) = mat(k,2221) + .450_r8*rxt(k,403)*y(k,253) + .150_r8*rxt(k,382) & + mat(k,2018) = -rxt(k,237)*y(k,42) + mat(k,1567) = -rxt(k,273)*y(k,42) + mat(k,2384) = -rxt(k,317)*y(k,42) + mat(k,2444) = -rxt(k,318)*y(k,42) + mat(k,2061) = -rxt(k,319)*y(k,42) + mat(k,1865) = -rxt(k,320)*y(k,42) + mat(k,741) = .400_r8*rxt(k,419)*y(k,265) + mat(k,1080) = .340_r8*rxt(k,503)*y(k,137) + mat(k,410) = .500_r8*rxt(k,390)*y(k,127) + mat(k,584) = rxt(k,341)*y(k,137) + mat(k,1194) = .500_r8*rxt(k,370)*y(k,137) + mat(k,670) = .500_r8*rxt(k,358)*y(k,265) + mat(k,872) = rxt(k,325)*y(k,265) + mat(k,449) = .300_r8*rxt(k,326)*y(k,265) + mat(k,1647) = (rxt(k,334)+rxt(k,335))*y(k,261) + mat(k,2497) = rxt(k,244)*y(k,237) + mat(k,1215) = .800_r8*rxt(k,363)*y(k,265) + mat(k,942) = .910_r8*rxt(k,448)*y(k,137) + mat(k,642) = .300_r8*rxt(k,439)*y(k,265) + mat(k,1311) = .800_r8*rxt(k,443)*y(k,237) + mat(k,1323) = .120_r8*rxt(k,401)*y(k,137) + mat(k,633) = .500_r8*rxt(k,414)*y(k,265) + mat(k,1024) = .340_r8*rxt(k,506)*y(k,137) + mat(k,1435) = .600_r8*rxt(k,415)*y(k,137) + mat(k,1972) = .100_r8*rxt(k,421)*y(k,228) + rxt(k,324)*y(k,237) & + + .500_r8*rxt(k,392)*y(k,240) + .500_r8*rxt(k,360)*y(k,242) & + + .920_r8*rxt(k,431)*y(k,245) + .250_r8*rxt(k,399)*y(k,250) & + + rxt(k,408)*y(k,252) + rxt(k,382)*y(k,268) + rxt(k,386) & + *y(k,269) + .340_r8*rxt(k,515)*y(k,270) + .320_r8*rxt(k,520) & + *y(k,271) + .250_r8*rxt(k,456)*y(k,274) + mat(k,2444) = mat(k,2444) + .500_r8*rxt(k,390)*y(k,16) + rxt(k,432)*y(k,245) & + + .250_r8*rxt(k,398)*y(k,250) + rxt(k,409)*y(k,252) + mat(k,2125) = .340_r8*rxt(k,503)*y(k,6) + rxt(k,341)*y(k,25) & + + .500_r8*rxt(k,370)*y(k,29) + .910_r8*rxt(k,448)*y(k,98) & + + .120_r8*rxt(k,401)*y(k,106) + .340_r8*rxt(k,506)*y(k,111) & + + .600_r8*rxt(k,415)*y(k,112) + mat(k,592) = rxt(k,365)*y(k,265) + mat(k,1172) = .680_r8*rxt(k,524)*y(k,265) + mat(k,1097) = .100_r8*rxt(k,421)*y(k,125) + mat(k,954) = .700_r8*rxt(k,343)*y(k,237) + mat(k,989) = rxt(k,371)*y(k,237) + mat(k,1485) = rxt(k,354)*y(k,237) + rxt(k,428)*y(k,245) + .250_r8*rxt(k,395) & + *y(k,250) + rxt(k,404)*y(k,252) + .250_r8*rxt(k,453)*y(k,274) + mat(k,2198) = rxt(k,244)*y(k,59) + .800_r8*rxt(k,443)*y(k,101) + rxt(k,324) & + *y(k,125) + .700_r8*rxt(k,343)*y(k,233) + rxt(k,371)*y(k,234) & + + rxt(k,354)*y(k,236) + (4.000_r8*rxt(k,321)+2.000_r8*rxt(k,322)) & + *y(k,237) + 1.500_r8*rxt(k,429)*y(k,245) + .750_r8*rxt(k,434) & + *y(k,246) + .880_r8*rxt(k,396)*y(k,250) + 2.000_r8*rxt(k,405) & + *y(k,252) + .750_r8*rxt(k,508)*y(k,260) + .800_r8*rxt(k,384) & + *y(k,269) + .930_r8*rxt(k,513)*y(k,270) + .950_r8*rxt(k,518) & + *y(k,271) + .800_r8*rxt(k,454)*y(k,274) + mat(k,616) = .500_r8*rxt(k,392)*y(k,125) + mat(k,849) = .500_r8*rxt(k,360)*y(k,125) + mat(k,2384) = mat(k,2384) + .450_r8*rxt(k,406)*y(k,252) + .150_r8*rxt(k,385) & *y(k,269) - mat(k,1357) = .920_r8*rxt(k,428)*y(k,131) + rxt(k,429)*y(k,133) + rxt(k,425) & - *y(k,240) + 1.500_r8*rxt(k,426)*y(k,241) - mat(k,1390) = .750_r8*rxt(k,431)*y(k,241) - mat(k,1411) = .250_r8*rxt(k,396)*y(k,131) + .250_r8*rxt(k,395)*y(k,133) & - + .250_r8*rxt(k,392)*y(k,240) + .880_r8*rxt(k,393)*y(k,241) - mat(k,1452) = rxt(k,405)*y(k,131) + rxt(k,406)*y(k,133) + rxt(k,401)*y(k,240) & - + 2.000_r8*rxt(k,402)*y(k,241) + .450_r8*rxt(k,403)*y(k,247) & - + 4.000_r8*rxt(k,404)*y(k,253) - mat(k,1161) = .750_r8*rxt(k,505)*y(k,241) - mat(k,1843) = (rxt(k,331)+rxt(k,332))*y(k,56) - mat(k,2016) = mat(k,2016) + .400_r8*rxt(k,416)*y(k,1) + .500_r8*rxt(k,355) & - *y(k,53) + rxt(k,322)*y(k,54) + .300_r8*rxt(k,323)*y(k,55) & - + .800_r8*rxt(k,360)*y(k,76) + .300_r8*rxt(k,436)*y(k,101) & - + .500_r8*rxt(k,411)*y(k,115) + rxt(k,362)*y(k,148) & - + .680_r8*rxt(k,521)*y(k,221) - mat(k,870) = rxt(k,379)*y(k,131) - mat(k,1269) = rxt(k,383)*y(k,131) + .800_r8*rxt(k,381)*y(k,241) & - + .150_r8*rxt(k,382)*y(k,247) - mat(k,1232) = .340_r8*rxt(k,512)*y(k,131) + .930_r8*rxt(k,510)*y(k,241) - mat(k,1115) = .320_r8*rxt(k,517)*y(k,131) + .950_r8*rxt(k,515)*y(k,241) - mat(k,1287) = .250_r8*rxt(k,453)*y(k,131) + .250_r8*rxt(k,450)*y(k,240) & - + .800_r8*rxt(k,451)*y(k,241) + mat(k,1358) = .920_r8*rxt(k,431)*y(k,125) + rxt(k,432)*y(k,127) + rxt(k,428) & + *y(k,236) + 1.500_r8*rxt(k,429)*y(k,237) + mat(k,1391) = .750_r8*rxt(k,434)*y(k,237) + mat(k,1412) = .250_r8*rxt(k,399)*y(k,125) + .250_r8*rxt(k,398)*y(k,127) & + + .250_r8*rxt(k,395)*y(k,236) + .880_r8*rxt(k,396)*y(k,237) + mat(k,1453) = rxt(k,408)*y(k,125) + rxt(k,409)*y(k,127) + rxt(k,404)*y(k,236) & + + 2.000_r8*rxt(k,405)*y(k,237) + .450_r8*rxt(k,406)*y(k,243) & + + 4.000_r8*rxt(k,407)*y(k,252) + mat(k,1162) = .750_r8*rxt(k,508)*y(k,237) + mat(k,2241) = (rxt(k,334)+rxt(k,335))*y(k,54) + mat(k,1865) = mat(k,1865) + .400_r8*rxt(k,419)*y(k,1) + .500_r8*rxt(k,358) & + *y(k,51) + rxt(k,325)*y(k,52) + .300_r8*rxt(k,326)*y(k,53) & + + .800_r8*rxt(k,363)*y(k,74) + .300_r8*rxt(k,439)*y(k,99) & + + .500_r8*rxt(k,414)*y(k,110) + rxt(k,365)*y(k,142) & + + .680_r8*rxt(k,524)*y(k,217) + mat(k,867) = rxt(k,382)*y(k,125) + mat(k,1270) = rxt(k,386)*y(k,125) + .800_r8*rxt(k,384)*y(k,237) & + + .150_r8*rxt(k,385)*y(k,243) + mat(k,1233) = .340_r8*rxt(k,515)*y(k,125) + .930_r8*rxt(k,513)*y(k,237) + mat(k,1116) = .320_r8*rxt(k,520)*y(k,125) + .950_r8*rxt(k,518)*y(k,237) + mat(k,1288) = .250_r8*rxt(k,456)*y(k,125) + .250_r8*rxt(k,453)*y(k,236) & + + .800_r8*rxt(k,454)*y(k,237) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -295,222 +285,222 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,628) = -(rxt(k,299)*y(k,58) + rxt(k,300)*y(k,265) + rxt(k,310)*y(k,261)) - mat(k,2231) = -rxt(k,299)*y(k,45) - mat(k,1931) = -rxt(k,300)*y(k,45) - mat(k,1821) = -rxt(k,310)*y(k,45) - mat(k,165) = -(rxt(k,301)*y(k,265)) - mat(k,1869) = -rxt(k,301)*y(k,46) - mat(k,1195) = -(rxt(k,347)*y(k,133) + rxt(k,348)*y(k,265)) - mat(k,2040) = -rxt(k,347)*y(k,47) - mat(k,1978) = -rxt(k,348)*y(k,47) - mat(k,703) = .800_r8*rxt(k,416)*y(k,265) - mat(k,412) = rxt(k,387)*y(k,133) - mat(k,312) = rxt(k,343)*y(k,265) - mat(k,380) = .500_r8*rxt(k,344)*y(k,265) - mat(k,1178) = .500_r8*rxt(k,367)*y(k,143) - mat(k,1415) = .100_r8*rxt(k,412)*y(k,143) - mat(k,1765) = .400_r8*rxt(k,418)*y(k,234) + rxt(k,342)*y(k,237) & - + .270_r8*rxt(k,370)*y(k,238) + rxt(k,389)*y(k,244) + rxt(k,408) & - *y(k,255) + rxt(k,379)*y(k,268) - mat(k,2040) = mat(k,2040) + rxt(k,387)*y(k,18) - mat(k,2393) = .500_r8*rxt(k,367)*y(k,31) + .100_r8*rxt(k,412)*y(k,118) - mat(k,1088) = .400_r8*rxt(k,418)*y(k,131) - mat(k,951) = rxt(k,342)*y(k,131) + 3.200_r8*rxt(k,339)*y(k,237) & - + .800_r8*rxt(k,340)*y(k,241) - mat(k,981) = .270_r8*rxt(k,370)*y(k,131) - mat(k,2330) = .800_r8*rxt(k,340)*y(k,237) - mat(k,614) = rxt(k,389)*y(k,131) - mat(k,2185) = .200_r8*rxt(k,407)*y(k,255) - mat(k,722) = rxt(k,408)*y(k,131) + .200_r8*rxt(k,407)*y(k,247) - mat(k,1978) = mat(k,1978) + .800_r8*rxt(k,416)*y(k,1) + rxt(k,343)*y(k,28) & - + .500_r8*rxt(k,344)*y(k,29) - mat(k,863) = rxt(k,379)*y(k,131) - mat(k,401) = -(rxt(k,302)*y(k,58) + rxt(k,303)*y(k,265)) - mat(k,2227) = -rxt(k,302)*y(k,48) - mat(k,1903) = -rxt(k,303)*y(k,48) - mat(k,147) = -(rxt(k,349)*y(k,265)) - mat(k,1868) = -rxt(k,349)*y(k,49) - mat(k,1124) = -(rxt(k,386)*y(k,265)) - mat(k,1973) = -rxt(k,386)*y(k,50) - mat(k,702) = .800_r8*rxt(k,416)*y(k,265) - mat(k,1067) = .520_r8*rxt(k,500)*y(k,143) - mat(k,411) = .500_r8*rxt(k,387)*y(k,133) - mat(k,1011) = .520_r8*rxt(k,503)*y(k,143) - mat(k,1761) = .250_r8*rxt(k,418)*y(k,234) + .820_r8*rxt(k,370)*y(k,238) & - + .500_r8*rxt(k,389)*y(k,244) + .270_r8*rxt(k,512)*y(k,270) & - + .040_r8*rxt(k,517)*y(k,271) - mat(k,2035) = .500_r8*rxt(k,387)*y(k,18) - mat(k,2389) = .520_r8*rxt(k,500)*y(k,6) + .520_r8*rxt(k,503)*y(k,116) - mat(k,1162) = .500_r8*rxt(k,521)*y(k,265) - mat(k,1087) = .250_r8*rxt(k,418)*y(k,131) - mat(k,980) = .820_r8*rxt(k,370)*y(k,131) + .820_r8*rxt(k,368)*y(k,241) - mat(k,2326) = .820_r8*rxt(k,368)*y(k,238) + .150_r8*rxt(k,510)*y(k,270) & - + .025_r8*rxt(k,515)*y(k,271) - mat(k,613) = .500_r8*rxt(k,389)*y(k,131) - mat(k,1973) = mat(k,1973) + .800_r8*rxt(k,416)*y(k,1) + .500_r8*rxt(k,521) & - *y(k,221) - mat(k,1218) = .270_r8*rxt(k,512)*y(k,131) + .150_r8*rxt(k,510)*y(k,241) - mat(k,1108) = .040_r8*rxt(k,517)*y(k,131) + .025_r8*rxt(k,515)*y(k,241) - mat(k,1325) = -(rxt(k,373)*y(k,133) + rxt(k,374)*y(k,265)) - mat(k,2050) = -rxt(k,373)*y(k,51) - mat(k,1988) = -rxt(k,374)*y(k,51) - mat(k,1253) = rxt(k,376)*y(k,265) - mat(k,1314) = .880_r8*rxt(k,398)*y(k,143) - mat(k,1418) = .500_r8*rxt(k,412)*y(k,143) - mat(k,1775) = .170_r8*rxt(k,471)*y(k,242) + .050_r8*rxt(k,434)*y(k,250) & - + .250_r8*rxt(k,396)*y(k,251) + .170_r8*rxt(k,477)*y(k,254) & - + .400_r8*rxt(k,487)*y(k,272) + .250_r8*rxt(k,453)*y(k,273) & - + .540_r8*rxt(k,493)*y(k,274) + .510_r8*rxt(k,496)*y(k,275) - mat(k,2050) = mat(k,2050) + .050_r8*rxt(k,435)*y(k,250) + .250_r8*rxt(k,395) & - *y(k,251) + .250_r8*rxt(k,454)*y(k,273) - mat(k,937) = rxt(k,377)*y(k,265) - mat(k,2401) = .880_r8*rxt(k,398)*y(k,111) + .500_r8*rxt(k,412)*y(k,118) - mat(k,1466) = .250_r8*rxt(k,392)*y(k,251) + .250_r8*rxt(k,450)*y(k,273) - mat(k,2339) = .240_r8*rxt(k,393)*y(k,251) + .500_r8*rxt(k,381)*y(k,269) & - + .100_r8*rxt(k,451)*y(k,273) - mat(k,824) = .170_r8*rxt(k,471)*y(k,131) + .070_r8*rxt(k,470)*y(k,247) - mat(k,2194) = .070_r8*rxt(k,470)*y(k,242) + .070_r8*rxt(k,476)*y(k,254) - mat(k,1375) = .050_r8*rxt(k,434)*y(k,131) + .050_r8*rxt(k,435)*y(k,133) - mat(k,1399) = .250_r8*rxt(k,396)*y(k,131) + .250_r8*rxt(k,395)*y(k,133) & - + .250_r8*rxt(k,392)*y(k,240) + .240_r8*rxt(k,393)*y(k,241) - mat(k,962) = .170_r8*rxt(k,477)*y(k,131) + .070_r8*rxt(k,476)*y(k,247) - mat(k,1988) = mat(k,1988) + rxt(k,376)*y(k,97) + rxt(k,377)*y(k,134) - mat(k,1262) = .500_r8*rxt(k,381)*y(k,241) - mat(k,800) = .400_r8*rxt(k,487)*y(k,131) - mat(k,1278) = .250_r8*rxt(k,453)*y(k,131) + .250_r8*rxt(k,454)*y(k,133) & - + .250_r8*rxt(k,450)*y(k,240) + .100_r8*rxt(k,451)*y(k,241) - mat(k,816) = .540_r8*rxt(k,493)*y(k,131) - mat(k,558) = .510_r8*rxt(k,496)*y(k,131) - mat(k,749) = -(rxt(k,354)*y(k,265)) - mat(k,1944) = -rxt(k,354)*y(k,52) - mat(k,1173) = .120_r8*rxt(k,367)*y(k,143) - mat(k,2377) = .120_r8*rxt(k,367)*y(k,31) - mat(k,1457) = .100_r8*rxt(k,351)*y(k,241) + .150_r8*rxt(k,352)*y(k,247) - mat(k,2318) = .100_r8*rxt(k,351)*y(k,240) - mat(k,2161) = .150_r8*rxt(k,352)*y(k,240) + .150_r8*rxt(k,403)*y(k,253) - mat(k,1438) = .150_r8*rxt(k,403)*y(k,247) - mat(k,637) = -(rxt(k,355)*y(k,265)) - mat(k,1932) = -rxt(k,355)*y(k,53) - mat(k,1456) = .400_r8*rxt(k,352)*y(k,247) - mat(k,2153) = .400_r8*rxt(k,352)*y(k,240) + .400_r8*rxt(k,403)*y(k,253) - mat(k,1436) = .400_r8*rxt(k,403)*y(k,247) - mat(k,857) = -(rxt(k,322)*y(k,265)) - mat(k,1953) = -rxt(k,322)*y(k,54) - mat(k,1291) = .200_r8*rxt(k,440)*y(k,241) - mat(k,949) = .300_r8*rxt(k,340)*y(k,241) - mat(k,2319) = .200_r8*rxt(k,440)*y(k,103) + .300_r8*rxt(k,340)*y(k,237) & - + 2.000_r8*rxt(k,319)*y(k,241) + .250_r8*rxt(k,426)*y(k,249) & - + .250_r8*rxt(k,431)*y(k,250) + .250_r8*rxt(k,393)*y(k,251) & - + .250_r8*rxt(k,505)*y(k,260) + .500_r8*rxt(k,381)*y(k,269) & - + .250_r8*rxt(k,510)*y(k,270) + .250_r8*rxt(k,515)*y(k,271) & - + .300_r8*rxt(k,451)*y(k,273) - mat(k,1335) = .250_r8*rxt(k,426)*y(k,241) - mat(k,1364) = .250_r8*rxt(k,431)*y(k,241) - mat(k,1393) = .250_r8*rxt(k,393)*y(k,241) - mat(k,1148) = .250_r8*rxt(k,505)*y(k,241) - mat(k,1259) = .500_r8*rxt(k,381)*y(k,241) - mat(k,1217) = .250_r8*rxt(k,510)*y(k,241) - mat(k,1105) = .250_r8*rxt(k,515)*y(k,241) - mat(k,1272) = .300_r8*rxt(k,451)*y(k,241) - mat(k,455) = -(rxt(k,323)*y(k,265)) - mat(k,1911) = -rxt(k,323)*y(k,55) - mat(k,2315) = rxt(k,320)*y(k,247) - mat(k,2139) = rxt(k,320)*y(k,241) - mat(k,2093) = -(rxt(k,235)*y(k,58) + rxt(k,291)*y(k,75) + rxt(k,324)*y(k,265) & - + (rxt(k,330) + rxt(k,331) + rxt(k,332)) * y(k,261)) - mat(k,2259) = -rxt(k,235)*y(k,56) - mat(k,973) = -rxt(k,291)*y(k,56) - mat(k,2008) = -rxt(k,324)*y(k,56) - mat(k,1835) = -(rxt(k,330) + rxt(k,331) + rxt(k,332)) * y(k,56) - mat(k,1189) = .100_r8*rxt(k,367)*y(k,143) - mat(k,2419) = .100_r8*rxt(k,367)*y(k,31) - mat(k,461) = -(rxt(k,287)*y(k,261) + rxt(k,304)*y(k,58) + rxt(k,305)*y(k,265)) - mat(k,1819) = -rxt(k,287)*y(k,57) - mat(k,2228) = -rxt(k,304)*y(k,57) - mat(k,1912) = -rxt(k,305)*y(k,57) - mat(k,2261) = -(rxt(k,234)*y(k,44) + rxt(k,235)*y(k,56) + rxt(k,236)*y(k,79) & - + rxt(k,237)*y(k,81) + (rxt(k,238) + rxt(k,239)) * y(k,247) & - + rxt(k,240)*y(k,143) + rxt(k,247)*y(k,62) + rxt(k,256)*y(k,94) & - + rxt(k,297)*y(k,43) + rxt(k,299)*y(k,45) + rxt(k,302)*y(k,48) & - + rxt(k,304)*y(k,57) + rxt(k,345)*y(k,30) + rxt(k,375)*y(k,33)) - mat(k,2490) = -rxt(k,234)*y(k,58) - mat(k,2095) = -rxt(k,235)*y(k,58) - mat(k,1511) = -rxt(k,236)*y(k,58) - mat(k,648) = -rxt(k,237)*y(k,58) - mat(k,2215) = -(rxt(k,238) + rxt(k,239)) * y(k,58) - mat(k,2421) = -rxt(k,240)*y(k,58) - mat(k,1033) = -rxt(k,247)*y(k,58) - mat(k,877) = -rxt(k,256)*y(k,58) - mat(k,519) = -rxt(k,297)*y(k,58) - mat(k,634) = -rxt(k,299)*y(k,58) - mat(k,406) = -rxt(k,302)*y(k,58) - mat(k,466) = -rxt(k,304)*y(k,58) - mat(k,338) = -rxt(k,345)*y(k,58) - mat(k,344) = -rxt(k,375)*y(k,58) - mat(k,1617) = rxt(k,275)*y(k,61) - mat(k,146) = 4.000_r8*rxt(k,259)*y(k,261) - mat(k,189) = rxt(k,260)*y(k,261) - mat(k,156) = 2.000_r8*rxt(k,261)*y(k,261) - mat(k,199) = 2.000_r8*rxt(k,262)*y(k,261) - mat(k,160) = 2.000_r8*rxt(k,263)*y(k,261) - mat(k,204) = rxt(k,264)*y(k,261) - mat(k,164) = 2.000_r8*rxt(k,265)*y(k,261) - mat(k,167) = 3.000_r8*rxt(k,301)*y(k,265) - mat(k,406) = mat(k,406) + rxt(k,303)*y(k,265) - mat(k,1643) = rxt(k,275)*y(k,21) + (4.000_r8*rxt(k,242)+2.000_r8*rxt(k,244)) & - *y(k,61) + rxt(k,246)*y(k,131) + rxt(k,251)*y(k,141) & - + rxt(k,530)*y(k,161) + rxt(k,241)*y(k,241) + rxt(k,252) & + mat(k,681) = -(rxt(k,302)*y(k,56) + rxt(k,303)*y(k,265) + rxt(k,313)*y(k,261)) + mat(k,1984) = -rxt(k,302)*y(k,43) + mat(k,1787) = -rxt(k,303)*y(k,43) + mat(k,2220) = -rxt(k,313)*y(k,43) + mat(k,167) = -(rxt(k,304)*y(k,265)) + mat(k,1719) = -rxt(k,304)*y(k,44) + mat(k,1196) = -(rxt(k,350)*y(k,127) + rxt(k,351)*y(k,265)) + mat(k,2409) = -rxt(k,350)*y(k,45) + mat(k,1828) = -rxt(k,351)*y(k,45) + mat(k,736) = .800_r8*rxt(k,419)*y(k,265) + mat(k,406) = rxt(k,390)*y(k,127) + mat(k,305) = rxt(k,346)*y(k,265) + mat(k,377) = .500_r8*rxt(k,347)*y(k,265) + mat(k,1179) = .500_r8*rxt(k,370)*y(k,137) + mat(k,1416) = .100_r8*rxt(k,415)*y(k,137) + mat(k,1938) = .400_r8*rxt(k,421)*y(k,228) + rxt(k,345)*y(k,233) & + + .270_r8*rxt(k,373)*y(k,234) + rxt(k,392)*y(k,240) + rxt(k,411) & + *y(k,254) + rxt(k,382)*y(k,268) + mat(k,2409) = mat(k,2409) + rxt(k,390)*y(k,16) + mat(k,2092) = .500_r8*rxt(k,370)*y(k,29) + .100_r8*rxt(k,415)*y(k,112) + mat(k,1089) = .400_r8*rxt(k,421)*y(k,125) + mat(k,947) = rxt(k,345)*y(k,125) + 3.200_r8*rxt(k,342)*y(k,233) & + + .800_r8*rxt(k,343)*y(k,237) + mat(k,982) = .270_r8*rxt(k,373)*y(k,125) + mat(k,2166) = .800_r8*rxt(k,343)*y(k,233) + mat(k,611) = rxt(k,392)*y(k,125) + mat(k,2349) = .200_r8*rxt(k,410)*y(k,254) + mat(k,744) = rxt(k,411)*y(k,125) + .200_r8*rxt(k,410)*y(k,243) + mat(k,1828) = mat(k,1828) + .800_r8*rxt(k,419)*y(k,1) + rxt(k,346)*y(k,26) & + + .500_r8*rxt(k,347)*y(k,27) + mat(k,860) = rxt(k,382)*y(k,125) + mat(k,411) = -(rxt(k,305)*y(k,56) + rxt(k,306)*y(k,265)) + mat(k,1979) = -rxt(k,305)*y(k,46) + mat(k,1754) = -rxt(k,306)*y(k,46) + mat(k,149) = -(rxt(k,352)*y(k,265)) + mat(k,1718) = -rxt(k,352)*y(k,47) + mat(k,1125) = -(rxt(k,389)*y(k,265)) + mat(k,1823) = -rxt(k,389)*y(k,48) + mat(k,735) = .800_r8*rxt(k,419)*y(k,265) + mat(k,1068) = .520_r8*rxt(k,503)*y(k,137) + mat(k,405) = .500_r8*rxt(k,390)*y(k,127) + mat(k,1012) = .520_r8*rxt(k,506)*y(k,137) + mat(k,1934) = .250_r8*rxt(k,421)*y(k,228) + .820_r8*rxt(k,373)*y(k,234) & + + .500_r8*rxt(k,392)*y(k,240) + .270_r8*rxt(k,515)*y(k,270) & + + .040_r8*rxt(k,520)*y(k,271) + mat(k,2404) = .500_r8*rxt(k,390)*y(k,16) + mat(k,2088) = .520_r8*rxt(k,503)*y(k,6) + .520_r8*rxt(k,506)*y(k,111) + mat(k,1163) = .500_r8*rxt(k,524)*y(k,265) + mat(k,1088) = .250_r8*rxt(k,421)*y(k,125) + mat(k,981) = .820_r8*rxt(k,373)*y(k,125) + .820_r8*rxt(k,371)*y(k,237) + mat(k,2162) = .820_r8*rxt(k,371)*y(k,234) + .150_r8*rxt(k,513)*y(k,270) & + + .025_r8*rxt(k,518)*y(k,271) + mat(k,610) = .500_r8*rxt(k,392)*y(k,125) + mat(k,1823) = mat(k,1823) + .800_r8*rxt(k,419)*y(k,1) + .500_r8*rxt(k,524) & + *y(k,217) + mat(k,1219) = .270_r8*rxt(k,515)*y(k,125) + .150_r8*rxt(k,513)*y(k,237) + mat(k,1109) = .040_r8*rxt(k,520)*y(k,125) + .025_r8*rxt(k,518)*y(k,237) + mat(k,1326) = -(rxt(k,376)*y(k,127) + rxt(k,377)*y(k,265)) + mat(k,2419) = -rxt(k,376)*y(k,49) + mat(k,1838) = -rxt(k,377)*y(k,49) + mat(k,1254) = rxt(k,379)*y(k,265) + mat(k,1315) = .880_r8*rxt(k,401)*y(k,137) + mat(k,1419) = .500_r8*rxt(k,415)*y(k,137) + mat(k,1948) = .170_r8*rxt(k,474)*y(k,238) + .050_r8*rxt(k,437)*y(k,246) & + + .250_r8*rxt(k,399)*y(k,250) + .170_r8*rxt(k,480)*y(k,253) & + + .400_r8*rxt(k,490)*y(k,272) + .250_r8*rxt(k,456)*y(k,274) & + + .540_r8*rxt(k,496)*y(k,275) + .510_r8*rxt(k,499)*y(k,277) + mat(k,2419) = mat(k,2419) + .050_r8*rxt(k,438)*y(k,246) + .250_r8*rxt(k,398) & + *y(k,250) + .250_r8*rxt(k,457)*y(k,274) + mat(k,919) = rxt(k,380)*y(k,265) + mat(k,2100) = .880_r8*rxt(k,401)*y(k,106) + .500_r8*rxt(k,415)*y(k,112) + mat(k,1467) = .250_r8*rxt(k,395)*y(k,250) + .250_r8*rxt(k,453)*y(k,274) + mat(k,2175) = .240_r8*rxt(k,396)*y(k,250) + .500_r8*rxt(k,384)*y(k,269) & + + .100_r8*rxt(k,454)*y(k,274) + mat(k,825) = .170_r8*rxt(k,474)*y(k,125) + .070_r8*rxt(k,473)*y(k,243) + mat(k,2358) = .070_r8*rxt(k,473)*y(k,238) + .070_r8*rxt(k,479)*y(k,253) + mat(k,1376) = .050_r8*rxt(k,437)*y(k,125) + .050_r8*rxt(k,438)*y(k,127) + mat(k,1400) = .250_r8*rxt(k,399)*y(k,125) + .250_r8*rxt(k,398)*y(k,127) & + + .250_r8*rxt(k,395)*y(k,236) + .240_r8*rxt(k,396)*y(k,237) + mat(k,963) = .170_r8*rxt(k,480)*y(k,125) + .070_r8*rxt(k,479)*y(k,243) + mat(k,1838) = mat(k,1838) + rxt(k,379)*y(k,95) + rxt(k,380)*y(k,128) + mat(k,1263) = .500_r8*rxt(k,384)*y(k,237) + mat(k,793) = .400_r8*rxt(k,490)*y(k,125) + mat(k,1279) = .250_r8*rxt(k,456)*y(k,125) + .250_r8*rxt(k,457)*y(k,127) & + + .250_r8*rxt(k,453)*y(k,236) + .100_r8*rxt(k,454)*y(k,237) + mat(k,817) = .540_r8*rxt(k,496)*y(k,125) + mat(k,560) = .510_r8*rxt(k,499)*y(k,125) + mat(k,750) = -(rxt(k,357)*y(k,265)) + mat(k,1794) = -rxt(k,357)*y(k,50) + mat(k,1174) = .120_r8*rxt(k,370)*y(k,137) + mat(k,2076) = .120_r8*rxt(k,370)*y(k,29) + mat(k,1458) = .100_r8*rxt(k,354)*y(k,237) + .150_r8*rxt(k,355)*y(k,243) + mat(k,2154) = .100_r8*rxt(k,354)*y(k,236) + mat(k,2325) = .150_r8*rxt(k,355)*y(k,236) + .150_r8*rxt(k,406)*y(k,252) + mat(k,1439) = .150_r8*rxt(k,406)*y(k,243) + mat(k,665) = -(rxt(k,358)*y(k,265)) + mat(k,1786) = -rxt(k,358)*y(k,51) + mat(k,1457) = .400_r8*rxt(k,355)*y(k,243) + mat(k,2320) = .400_r8*rxt(k,355)*y(k,236) + .400_r8*rxt(k,406)*y(k,252) + mat(k,1438) = .400_r8*rxt(k,406)*y(k,243) + mat(k,869) = -(rxt(k,325)*y(k,265)) + mat(k,1804) = -rxt(k,325)*y(k,52) + mat(k,1292) = .200_r8*rxt(k,443)*y(k,237) + mat(k,945) = .300_r8*rxt(k,343)*y(k,237) + mat(k,2155) = .200_r8*rxt(k,443)*y(k,101) + .300_r8*rxt(k,343)*y(k,233) & + + 2.000_r8*rxt(k,322)*y(k,237) + .250_r8*rxt(k,429)*y(k,245) & + + .250_r8*rxt(k,434)*y(k,246) + .250_r8*rxt(k,396)*y(k,250) & + + .250_r8*rxt(k,508)*y(k,260) + .500_r8*rxt(k,384)*y(k,269) & + + .250_r8*rxt(k,513)*y(k,270) + .250_r8*rxt(k,518)*y(k,271) & + + .300_r8*rxt(k,454)*y(k,274) + mat(k,1336) = .250_r8*rxt(k,429)*y(k,237) + mat(k,1365) = .250_r8*rxt(k,434)*y(k,237) + mat(k,1394) = .250_r8*rxt(k,396)*y(k,237) + mat(k,1149) = .250_r8*rxt(k,508)*y(k,237) + mat(k,1260) = .500_r8*rxt(k,384)*y(k,237) + mat(k,1218) = .250_r8*rxt(k,513)*y(k,237) + mat(k,1106) = .250_r8*rxt(k,518)*y(k,237) + mat(k,1273) = .300_r8*rxt(k,454)*y(k,237) + mat(k,445) = -(rxt(k,326)*y(k,265)) + mat(k,1759) = -rxt(k,326)*y(k,53) + mat(k,2151) = rxt(k,323)*y(k,243) + mat(k,2301) = rxt(k,323)*y(k,237) + mat(k,1634) = -(rxt(k,238)*y(k,56) + rxt(k,294)*y(k,73) + rxt(k,327)*y(k,265) & + + (rxt(k,333) + rxt(k,334) + rxt(k,335)) * y(k,261)) + mat(k,2005) = -rxt(k,238)*y(k,54) + mat(k,972) = -rxt(k,294)*y(k,54) + mat(k,1852) = -rxt(k,327)*y(k,54) + mat(k,2228) = -(rxt(k,333) + rxt(k,334) + rxt(k,335)) * y(k,54) + mat(k,1186) = .100_r8*rxt(k,370)*y(k,137) + mat(k,2112) = .100_r8*rxt(k,370)*y(k,29) + mat(k,451) = -(rxt(k,290)*y(k,261) + rxt(k,307)*y(k,56) + rxt(k,308)*y(k,265)) + mat(k,2218) = -rxt(k,290)*y(k,55) + mat(k,1980) = -rxt(k,307)*y(k,55) + mat(k,1760) = -rxt(k,308)*y(k,55) + mat(k,2009) = -(rxt(k,237)*y(k,42) + rxt(k,238)*y(k,54) + rxt(k,239)*y(k,77) & + + rxt(k,240)*y(k,79) + (rxt(k,241) + rxt(k,242)) * y(k,243) & + + rxt(k,243)*y(k,137) + rxt(k,250)*y(k,60) + rxt(k,259)*y(k,92) & + + rxt(k,300)*y(k,41) + rxt(k,302)*y(k,43) + rxt(k,305)*y(k,46) & + + rxt(k,307)*y(k,55) + rxt(k,348)*y(k,28) + rxt(k,378)*y(k,31)) + mat(k,2461) = -rxt(k,237)*y(k,56) + mat(k,1638) = -rxt(k,238)*y(k,56) + mat(k,1510) = -rxt(k,239)*y(k,56) + mat(k,646) = -rxt(k,240)*y(k,56) + mat(k,2375) = -(rxt(k,241) + rxt(k,242)) * y(k,56) + mat(k,2116) = -rxt(k,243)*y(k,56) + mat(k,1048) = -rxt(k,250)*y(k,56) + mat(k,885) = -rxt(k,259)*y(k,56) + mat(k,520) = -rxt(k,300)*y(k,56) + mat(k,685) = -rxt(k,302)*y(k,56) + mat(k,415) = -rxt(k,305)*y(k,56) + mat(k,455) = -rxt(k,307)*y(k,56) + mat(k,331) = -rxt(k,348)*y(k,56) + mat(k,337) = -rxt(k,378)*y(k,56) + mat(k,1614) = rxt(k,278)*y(k,59) + mat(k,147) = 4.000_r8*rxt(k,262)*y(k,261) + mat(k,181) = rxt(k,263)*y(k,261) + mat(k,157) = 2.000_r8*rxt(k,264)*y(k,261) + mat(k,191) = 2.000_r8*rxt(k,265)*y(k,261) + mat(k,161) = 2.000_r8*rxt(k,266)*y(k,261) + mat(k,196) = rxt(k,267)*y(k,261) + mat(k,165) = 2.000_r8*rxt(k,268)*y(k,261) + mat(k,169) = 3.000_r8*rxt(k,304)*y(k,265) + mat(k,415) = mat(k,415) + rxt(k,306)*y(k,265) + mat(k,2488) = rxt(k,278)*y(k,19) + (4.000_r8*rxt(k,245)+2.000_r8*rxt(k,247)) & + *y(k,59) + rxt(k,249)*y(k,125) + rxt(k,254)*y(k,135) & + + rxt(k,533)*y(k,157) + rxt(k,244)*y(k,237) + rxt(k,255) & *y(k,265) - mat(k,295) = rxt(k,296)*y(k,261) - mat(k,291) = rxt(k,311)*y(k,261) + rxt(k,306)*y(k,265) - mat(k,301) = rxt(k,312)*y(k,261) + rxt(k,307)*y(k,265) - mat(k,360) = rxt(k,313)*y(k,261) + rxt(k,308)*y(k,265) - mat(k,1547) = rxt(k,254)*y(k,141) + rxt(k,266)*y(k,261) + rxt(k,255)*y(k,265) - mat(k,1794) = rxt(k,246)*y(k,61) - mat(k,2464) = rxt(k,251)*y(k,61) + rxt(k,254)*y(k,87) - mat(k,1529) = rxt(k,530)*y(k,61) - mat(k,2357) = rxt(k,241)*y(k,61) - mat(k,1837) = 4.000_r8*rxt(k,259)*y(k,35) + rxt(k,260)*y(k,36) & - + 2.000_r8*rxt(k,261)*y(k,38) + 2.000_r8*rxt(k,262)*y(k,39) & - + 2.000_r8*rxt(k,263)*y(k,40) + rxt(k,264)*y(k,41) & - + 2.000_r8*rxt(k,265)*y(k,42) + rxt(k,296)*y(k,67) + rxt(k,311) & - *y(k,84) + rxt(k,312)*y(k,85) + rxt(k,313)*y(k,86) + rxt(k,266) & - *y(k,87) - mat(k,2010) = 3.000_r8*rxt(k,301)*y(k,46) + rxt(k,303)*y(k,48) + rxt(k,252) & - *y(k,61) + rxt(k,306)*y(k,84) + rxt(k,307)*y(k,85) + rxt(k,308) & - *y(k,86) + rxt(k,255)*y(k,87) - mat(k,2223) = rxt(k,247)*y(k,62) - mat(k,1625) = 2.000_r8*rxt(k,243)*y(k,61) - mat(k,1025) = rxt(k,247)*y(k,58) + (rxt(k,592)+rxt(k,597)+rxt(k,602))*y(k,87) - mat(k,1534) = (rxt(k,592)+rxt(k,597)+rxt(k,602))*y(k,62) + (rxt(k,587) & - +rxt(k,593)+rxt(k,598))*y(k,94) - mat(k,872) = (rxt(k,587)+rxt(k,593)+rxt(k,598))*y(k,87) - mat(k,1624) = 2.000_r8*rxt(k,268)*y(k,61) - mat(k,1636) = -(rxt(k,241)*y(k,241) + (4._r8*rxt(k,242) + 4._r8*rxt(k,243) & - + 4._r8*rxt(k,244) + 4._r8*rxt(k,268)) * y(k,61) + rxt(k,245) & - *y(k,247) + rxt(k,246)*y(k,131) + rxt(k,248)*y(k,132) + rxt(k,251) & - *y(k,141) + (rxt(k,252) + rxt(k,253)) * y(k,265) + (rxt(k,274) & - + rxt(k,275) + rxt(k,276)) * y(k,21) + rxt(k,530)*y(k,161)) - mat(k,2349) = -rxt(k,241)*y(k,61) - mat(k,2207) = -rxt(k,245)*y(k,61) - mat(k,1786) = -rxt(k,246)*y(k,61) - mat(k,1680) = -rxt(k,248)*y(k,61) - mat(k,2456) = -rxt(k,251)*y(k,61) - mat(k,2002) = -(rxt(k,252) + rxt(k,253)) * y(k,61) - mat(k,1610) = -(rxt(k,274) + rxt(k,275) + rxt(k,276)) * y(k,61) - mat(k,1524) = -rxt(k,530)*y(k,61) - mat(k,2253) = rxt(k,256)*y(k,94) + rxt(k,240)*y(k,143) + rxt(k,239)*y(k,247) - mat(k,1029) = rxt(k,249)*y(k,141) - mat(k,1542) = rxt(k,267)*y(k,261) - mat(k,875) = rxt(k,256)*y(k,58) + rxt(k,257)*y(k,141) + rxt(k,258)*y(k,265) - mat(k,2456) = mat(k,2456) + rxt(k,249)*y(k,62) + rxt(k,257)*y(k,94) - mat(k,2413) = rxt(k,240)*y(k,58) - mat(k,365) = rxt(k,535)*y(k,161) - mat(k,1524) = mat(k,1524) + rxt(k,535)*y(k,145) - mat(k,2207) = mat(k,2207) + rxt(k,239)*y(k,58) - mat(k,1829) = rxt(k,267)*y(k,87) - mat(k,2002) = mat(k,2002) + rxt(k,258)*y(k,94) + mat(k,296) = rxt(k,299)*y(k,261) + mat(k,292) = rxt(k,314)*y(k,261) + rxt(k,309)*y(k,265) + mat(k,302) = rxt(k,315)*y(k,261) + rxt(k,310)*y(k,265) + mat(k,358) = rxt(k,316)*y(k,261) + rxt(k,311)*y(k,265) + mat(k,1545) = rxt(k,257)*y(k,135) + rxt(k,269)*y(k,261) + rxt(k,258)*y(k,265) + mat(k,1963) = rxt(k,249)*y(k,59) + mat(k,2052) = rxt(k,254)*y(k,59) + rxt(k,257)*y(k,85) + mat(k,1528) = rxt(k,533)*y(k,59) + mat(k,2189) = rxt(k,244)*y(k,59) + mat(k,2232) = 4.000_r8*rxt(k,262)*y(k,33) + rxt(k,263)*y(k,34) & + + 2.000_r8*rxt(k,264)*y(k,36) + 2.000_r8*rxt(k,265)*y(k,37) & + + 2.000_r8*rxt(k,266)*y(k,38) + rxt(k,267)*y(k,39) & + + 2.000_r8*rxt(k,268)*y(k,40) + rxt(k,299)*y(k,65) + rxt(k,314) & + *y(k,82) + rxt(k,315)*y(k,83) + rxt(k,316)*y(k,84) + rxt(k,269) & + *y(k,85) + mat(k,1856) = 3.000_r8*rxt(k,304)*y(k,44) + rxt(k,306)*y(k,46) + rxt(k,255) & + *y(k,59) + rxt(k,309)*y(k,82) + rxt(k,310)*y(k,83) + rxt(k,311) & + *y(k,84) + rxt(k,258)*y(k,85) + mat(k,1975) = rxt(k,250)*y(k,60) + mat(k,2474) = 2.000_r8*rxt(k,246)*y(k,59) + mat(k,1042) = rxt(k,250)*y(k,56) + (rxt(k,595)+rxt(k,600)+rxt(k,605))*y(k,85) + mat(k,1535) = (rxt(k,595)+rxt(k,600)+rxt(k,605))*y(k,60) + (rxt(k,590) & + +rxt(k,596)+rxt(k,601))*y(k,92) + mat(k,881) = (rxt(k,590)+rxt(k,596)+rxt(k,601))*y(k,85) + mat(k,2473) = 2.000_r8*rxt(k,271)*y(k,59) + mat(k,2498) = -(rxt(k,244)*y(k,237) + (4._r8*rxt(k,245) + 4._r8*rxt(k,246) & + + 4._r8*rxt(k,247) + 4._r8*rxt(k,271)) * y(k,59) + rxt(k,248) & + *y(k,243) + rxt(k,249)*y(k,125) + rxt(k,251)*y(k,126) + rxt(k,254) & + *y(k,135) + (rxt(k,255) + rxt(k,256)) * y(k,265) + (rxt(k,277) & + + rxt(k,278) + rxt(k,279)) * y(k,19) + rxt(k,533)*y(k,157)) + mat(k,2199) = -rxt(k,244)*y(k,59) + mat(k,2385) = -rxt(k,248)*y(k,59) + mat(k,1973) = -rxt(k,249)*y(k,59) + mat(k,1693) = -rxt(k,251)*y(k,59) + mat(k,2062) = -rxt(k,254)*y(k,59) + mat(k,1866) = -(rxt(k,255) + rxt(k,256)) * y(k,59) + mat(k,1623) = -(rxt(k,277) + rxt(k,278) + rxt(k,279)) * y(k,59) + mat(k,1533) = -rxt(k,533)*y(k,59) + mat(k,2019) = rxt(k,259)*y(k,92) + rxt(k,243)*y(k,137) + rxt(k,242)*y(k,243) + mat(k,1052) = rxt(k,252)*y(k,135) + mat(k,1551) = rxt(k,270)*y(k,261) + mat(k,887) = rxt(k,259)*y(k,56) + rxt(k,260)*y(k,135) + rxt(k,261)*y(k,265) + mat(k,2062) = mat(k,2062) + rxt(k,252)*y(k,60) + rxt(k,260)*y(k,92) + mat(k,2126) = rxt(k,243)*y(k,56) + mat(k,397) = rxt(k,538)*y(k,157) + mat(k,1533) = mat(k,1533) + rxt(k,538)*y(k,139) + mat(k,2385) = mat(k,2385) + rxt(k,242)*y(k,56) + mat(k,2242) = rxt(k,270)*y(k,85) + mat(k,1866) = mat(k,1866) + rxt(k,261)*y(k,92) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -531,210 +521,210 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1027) = -(rxt(k,247)*y(k,58) + rxt(k,249)*y(k,141) + rxt(k,250) & - *y(k,265) + (rxt(k,592) + rxt(k,597) + rxt(k,602)) * y(k,87)) - mat(k,2238) = -rxt(k,247)*y(k,62) - mat(k,2446) = -rxt(k,249)*y(k,62) - mat(k,1966) = -rxt(k,250)*y(k,62) - mat(k,1538) = -(rxt(k,592) + rxt(k,597) + rxt(k,602)) * y(k,62) - mat(k,1630) = rxt(k,248)*y(k,132) - mat(k,1666) = rxt(k,248)*y(k,61) - mat(k,1204) = -(rxt(k,334)*y(k,265)) - mat(k,1979) = -rxt(k,334)*y(k,64) - mat(k,1070) = .230_r8*rxt(k,500)*y(k,143) - mat(k,1553) = rxt(k,270)*y(k,44) - mat(k,328) = .350_r8*rxt(k,336)*y(k,265) - mat(k,623) = .630_r8*rxt(k,338)*y(k,143) - mat(k,1179) = .560_r8*rxt(k,367)*y(k,143) - mat(k,2475) = rxt(k,270)*y(k,19) + rxt(k,234)*y(k,58) + rxt(k,315)*y(k,133) & - + rxt(k,316)*y(k,141) + rxt(k,317)*y(k,265) - mat(k,402) = rxt(k,302)*y(k,58) - mat(k,1324) = rxt(k,373)*y(k,133) + rxt(k,374)*y(k,265) - mat(k,2242) = rxt(k,234)*y(k,44) + rxt(k,302)*y(k,48) - mat(k,1493) = rxt(k,615)*y(k,266) - mat(k,1099) = rxt(k,361)*y(k,265) - mat(k,923) = .620_r8*rxt(k,445)*y(k,143) - mat(k,1312) = .650_r8*rxt(k,398)*y(k,143) - mat(k,1014) = .230_r8*rxt(k,503)*y(k,143) - mat(k,1416) = .560_r8*rxt(k,412)*y(k,143) - mat(k,1766) = .170_r8*rxt(k,471)*y(k,242) + .220_r8*rxt(k,396)*y(k,251) & - + .400_r8*rxt(k,474)*y(k,252) + .350_r8*rxt(k,477)*y(k,254) & - + .225_r8*rxt(k,512)*y(k,270) + .250_r8*rxt(k,453)*y(k,273) - mat(k,2041) = rxt(k,315)*y(k,44) + rxt(k,373)*y(k,51) + .220_r8*rxt(k,395) & - *y(k,251) + .500_r8*rxt(k,454)*y(k,273) - mat(k,2448) = rxt(k,316)*y(k,44) + rxt(k,524)*y(k,146) - mat(k,2394) = .230_r8*rxt(k,500)*y(k,6) + .630_r8*rxt(k,338)*y(k,27) & - + .560_r8*rxt(k,367)*y(k,31) + .620_r8*rxt(k,445)*y(k,100) & - + .650_r8*rxt(k,398)*y(k,111) + .230_r8*rxt(k,503)*y(k,116) & - + .560_r8*rxt(k,412)*y(k,118) - mat(k,420) = rxt(k,524)*y(k,141) + rxt(k,525)*y(k,265) - mat(k,1164) = .700_r8*rxt(k,521)*y(k,265) - mat(k,1460) = .220_r8*rxt(k,392)*y(k,251) + .250_r8*rxt(k,450)*y(k,273) - mat(k,2331) = .110_r8*rxt(k,393)*y(k,251) + .125_r8*rxt(k,510)*y(k,270) & - + .200_r8*rxt(k,451)*y(k,273) - mat(k,823) = .170_r8*rxt(k,471)*y(k,131) + .070_r8*rxt(k,470)*y(k,247) - mat(k,2186) = .070_r8*rxt(k,470)*y(k,242) + .160_r8*rxt(k,473)*y(k,252) & - + .140_r8*rxt(k,476)*y(k,254) - mat(k,1394) = .220_r8*rxt(k,396)*y(k,131) + .220_r8*rxt(k,395)*y(k,133) & - + .220_r8*rxt(k,392)*y(k,240) + .110_r8*rxt(k,393)*y(k,241) - mat(k,786) = .400_r8*rxt(k,474)*y(k,131) + .160_r8*rxt(k,473)*y(k,247) - mat(k,961) = .350_r8*rxt(k,477)*y(k,131) + .140_r8*rxt(k,476)*y(k,247) - mat(k,1979) = mat(k,1979) + .350_r8*rxt(k,336)*y(k,26) + rxt(k,317)*y(k,44) & - + rxt(k,374)*y(k,51) + rxt(k,361)*y(k,77) + rxt(k,525)*y(k,146) & - + .700_r8*rxt(k,521)*y(k,221) - mat(k,853) = rxt(k,615)*y(k,65) - mat(k,1220) = .225_r8*rxt(k,512)*y(k,131) + .125_r8*rxt(k,510)*y(k,241) - mat(k,1274) = .250_r8*rxt(k,453)*y(k,131) + .500_r8*rxt(k,454)*y(k,133) & - + .250_r8*rxt(k,450)*y(k,240) + .200_r8*rxt(k,451)*y(k,241) - mat(k,1494) = -(rxt(k,615)*y(k,266)) - mat(k,854) = -rxt(k,615)*y(k,65) - mat(k,1074) = .270_r8*rxt(k,500)*y(k,143) - mat(k,1183) = .200_r8*rxt(k,367)*y(k,143) - mat(k,750) = rxt(k,354)*y(k,265) - mat(k,639) = .500_r8*rxt(k,355)*y(k,265) - mat(k,1205) = rxt(k,334)*y(k,265) - mat(k,1211) = .800_r8*rxt(k,360)*y(k,265) - mat(k,1100) = rxt(k,361)*y(k,265) - mat(k,943) = rxt(k,326)*y(k,265) - mat(k,674) = .500_r8*rxt(k,411)*y(k,265) - mat(k,1018) = .270_r8*rxt(k,503)*y(k,143) - mat(k,1423) = .100_r8*rxt(k,412)*y(k,143) - mat(k,1782) = rxt(k,353)*y(k,240) + .900_r8*rxt(k,512)*y(k,270) - mat(k,2408) = .270_r8*rxt(k,500)*y(k,6) + .200_r8*rxt(k,367)*y(k,31) & - + .270_r8*rxt(k,503)*y(k,116) + .100_r8*rxt(k,412)*y(k,118) - mat(k,1167) = 1.800_r8*rxt(k,521)*y(k,265) - mat(k,1473) = rxt(k,353)*y(k,131) + 4.000_r8*rxt(k,350)*y(k,240) & - + .900_r8*rxt(k,351)*y(k,241) + rxt(k,425)*y(k,249) & - + 2.000_r8*rxt(k,401)*y(k,253) + rxt(k,450)*y(k,273) - mat(k,2346) = .900_r8*rxt(k,351)*y(k,240) + rxt(k,402)*y(k,253) & - + .500_r8*rxt(k,510)*y(k,270) - mat(k,2201) = .450_r8*rxt(k,403)*y(k,253) - mat(k,1348) = rxt(k,425)*y(k,240) - mat(k,1443) = 2.000_r8*rxt(k,401)*y(k,240) + rxt(k,402)*y(k,241) & - + .450_r8*rxt(k,403)*y(k,247) + 4.000_r8*rxt(k,404)*y(k,253) - mat(k,1995) = rxt(k,354)*y(k,52) + .500_r8*rxt(k,355)*y(k,53) + rxt(k,334) & - *y(k,64) + .800_r8*rxt(k,360)*y(k,76) + rxt(k,361)*y(k,77) & - + rxt(k,326)*y(k,89) + .500_r8*rxt(k,411)*y(k,115) & - + 1.800_r8*rxt(k,521)*y(k,221) - mat(k,1225) = .900_r8*rxt(k,512)*y(k,131) + .500_r8*rxt(k,510)*y(k,241) - mat(k,1280) = rxt(k,450)*y(k,240) - mat(k,267) = -(rxt(k,295)*y(k,261)) - mat(k,1813) = -rxt(k,295)*y(k,66) - mat(k,186) = rxt(k,260)*y(k,261) - mat(k,191) = rxt(k,286)*y(k,261) - mat(k,196) = rxt(k,262)*y(k,261) - mat(k,158) = 2.000_r8*rxt(k,263)*y(k,261) - mat(k,201) = 2.000_r8*rxt(k,264)*y(k,261) - mat(k,162) = rxt(k,265)*y(k,261) - mat(k,170) = 2.000_r8*rxt(k,288)*y(k,261) - mat(k,296) = rxt(k,312)*y(k,261) + rxt(k,307)*y(k,265) - mat(k,355) = rxt(k,313)*y(k,261) + rxt(k,308)*y(k,265) - mat(k,1813) = mat(k,1813) + rxt(k,260)*y(k,36) + rxt(k,286)*y(k,37) & - + rxt(k,262)*y(k,39) + 2.000_r8*rxt(k,263)*y(k,40) & - + 2.000_r8*rxt(k,264)*y(k,41) + rxt(k,265)*y(k,42) & - + 2.000_r8*rxt(k,288)*y(k,80) + rxt(k,312)*y(k,85) + rxt(k,313) & - *y(k,86) - mat(k,1881) = rxt(k,307)*y(k,85) + rxt(k,308)*y(k,86) - mat(k,292) = -(rxt(k,296)*y(k,261)) - mat(k,1815) = -rxt(k,296)*y(k,67) - mat(k,154) = rxt(k,261)*y(k,261) - mat(k,197) = rxt(k,262)*y(k,261) - mat(k,288) = rxt(k,311)*y(k,261) + rxt(k,306)*y(k,265) - mat(k,1815) = mat(k,1815) + rxt(k,261)*y(k,38) + rxt(k,262)*y(k,39) & - + rxt(k,311)*y(k,84) - mat(k,1887) = rxt(k,306)*y(k,84) - mat(k,236) = -(rxt(k,469)*y(k,265)) - mat(k,1875) = -rxt(k,469)*y(k,68) - mat(k,230) = .180_r8*rxt(k,489)*y(k,265) - mat(k,1875) = mat(k,1875) + .180_r8*rxt(k,489)*y(k,223) - mat(k,349) = -(rxt(k,522)*y(k,133) + (rxt(k,523) + rxt(k,537)) * y(k,265)) - mat(k,2021) = -rxt(k,522)*y(k,69) - mat(k,1895) = -(rxt(k,523) + rxt(k,537)) * y(k,69) - mat(k,830) = rxt(k,356)*y(k,247) - mat(k,2126) = rxt(k,356)*y(k,246) - mat(k,969) = -(rxt(k,291)*y(k,56) + rxt(k,292)*y(k,79) + rxt(k,293)*y(k,276) & - + rxt(k,294)*y(k,91)) - mat(k,2079) = -rxt(k,291)*y(k,75) - mat(k,1504) = -rxt(k,292)*y(k,75) - mat(k,2501) = -rxt(k,293)*y(k,75) - mat(k,2291) = -rxt(k,294)*y(k,75) - mat(k,192) = rxt(k,286)*y(k,261) - mat(k,202) = rxt(k,264)*y(k,261) - mat(k,268) = 2.000_r8*rxt(k,295)*y(k,261) - mat(k,293) = rxt(k,296)*y(k,261) - mat(k,1823) = rxt(k,286)*y(k,37) + rxt(k,264)*y(k,41) + 2.000_r8*rxt(k,295) & - *y(k,66) + rxt(k,296)*y(k,67) - mat(k,1210) = -(rxt(k,360)*y(k,265)) - mat(k,1980) = -rxt(k,360)*y(k,76) - mat(k,652) = .700_r8*rxt(k,436)*y(k,265) - mat(k,598) = .500_r8*rxt(k,437)*y(k,265) - mat(k,495) = rxt(k,448)*y(k,265) - mat(k,1767) = .050_r8*rxt(k,434)*y(k,250) + .530_r8*rxt(k,396)*y(k,251) & - + .225_r8*rxt(k,512)*y(k,270) + .250_r8*rxt(k,453)*y(k,273) - mat(k,2042) = .050_r8*rxt(k,435)*y(k,250) + .530_r8*rxt(k,395)*y(k,251) & - + .250_r8*rxt(k,454)*y(k,273) - mat(k,1582) = rxt(k,359)*y(k,245) - mat(k,1461) = .530_r8*rxt(k,392)*y(k,251) + .250_r8*rxt(k,450)*y(k,273) - mat(k,2332) = .260_r8*rxt(k,393)*y(k,251) + .125_r8*rxt(k,510)*y(k,270) & - + .100_r8*rxt(k,451)*y(k,273) - mat(k,510) = rxt(k,359)*y(k,142) - mat(k,1369) = .050_r8*rxt(k,434)*y(k,131) + .050_r8*rxt(k,435)*y(k,133) - mat(k,1395) = .530_r8*rxt(k,396)*y(k,131) + .530_r8*rxt(k,395)*y(k,133) & - + .530_r8*rxt(k,392)*y(k,240) + .260_r8*rxt(k,393)*y(k,241) - mat(k,1980) = mat(k,1980) + .700_r8*rxt(k,436)*y(k,101) + .500_r8*rxt(k,437) & - *y(k,102) + rxt(k,448)*y(k,122) - mat(k,1221) = .225_r8*rxt(k,512)*y(k,131) + .125_r8*rxt(k,510)*y(k,241) - mat(k,1275) = .250_r8*rxt(k,453)*y(k,131) + .250_r8*rxt(k,454)*y(k,133) & - + .250_r8*rxt(k,450)*y(k,240) + .100_r8*rxt(k,451)*y(k,241) - mat(k,1098) = -(rxt(k,361)*y(k,265)) - mat(k,1970) = -rxt(k,361)*y(k,77) - mat(k,327) = .650_r8*rxt(k,336)*y(k,265) - mat(k,1208) = .200_r8*rxt(k,360)*y(k,265) - mat(k,1133) = rxt(k,449)*y(k,265) - mat(k,1758) = rxt(k,460)*y(k,235) + .050_r8*rxt(k,434)*y(k,250) & - + .400_r8*rxt(k,474)*y(k,252) + .170_r8*rxt(k,477)*y(k,254) & - + .700_r8*rxt(k,480)*y(k,267) + .600_r8*rxt(k,487)*y(k,272) & - + .250_r8*rxt(k,453)*y(k,273) + .340_r8*rxt(k,493)*y(k,274) & - + .170_r8*rxt(k,496)*y(k,275) - mat(k,2032) = .050_r8*rxt(k,435)*y(k,250) + .250_r8*rxt(k,454)*y(k,273) - mat(k,543) = rxt(k,460)*y(k,131) - mat(k,1458) = .250_r8*rxt(k,450)*y(k,273) - mat(k,2323) = .100_r8*rxt(k,451)*y(k,273) - mat(k,2179) = .160_r8*rxt(k,473)*y(k,252) + .070_r8*rxt(k,476)*y(k,254) - mat(k,1367) = .050_r8*rxt(k,434)*y(k,131) + .050_r8*rxt(k,435)*y(k,133) - mat(k,785) = .400_r8*rxt(k,474)*y(k,131) + .160_r8*rxt(k,473)*y(k,247) - mat(k,960) = .170_r8*rxt(k,477)*y(k,131) + .070_r8*rxt(k,476)*y(k,247) - mat(k,1970) = mat(k,1970) + .650_r8*rxt(k,336)*y(k,26) + .200_r8*rxt(k,360) & - *y(k,76) + rxt(k,449)*y(k,123) - mat(k,501) = .700_r8*rxt(k,480)*y(k,131) - mat(k,798) = .600_r8*rxt(k,487)*y(k,131) - mat(k,1273) = .250_r8*rxt(k,453)*y(k,131) + .250_r8*rxt(k,454)*y(k,133) & - + .250_r8*rxt(k,450)*y(k,240) + .100_r8*rxt(k,451)*y(k,241) - mat(k,814) = .340_r8*rxt(k,493)*y(k,131) - mat(k,557) = .170_r8*rxt(k,496)*y(k,131) - mat(k,2283) = -((rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,247) + rxt(k,195) & - *y(k,142) + rxt(k,198)*y(k,143)) - mat(k,2216) = -(rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,78) - mat(k,1595) = -rxt(k,195)*y(k,78) - mat(k,2422) = -rxt(k,198)*y(k,78) - mat(k,2491) = rxt(k,317)*y(k,265) - mat(k,2096) = rxt(k,331)*y(k,261) - mat(k,2262) = rxt(k,236)*y(k,79) - mat(k,974) = rxt(k,292)*y(k,79) - mat(k,1512) = rxt(k,236)*y(k,58) + rxt(k,292)*y(k,75) + rxt(k,190)*y(k,141) & + mat(k,1044) = -(rxt(k,250)*y(k,56) + rxt(k,252)*y(k,135) + rxt(k,253) & + *y(k,265) + (rxt(k,595) + rxt(k,600) + rxt(k,605)) * y(k,85)) + mat(k,1990) = -rxt(k,250)*y(k,60) + mat(k,2039) = -rxt(k,252)*y(k,60) + mat(k,1817) = -rxt(k,253)*y(k,60) + mat(k,1539) = -(rxt(k,595) + rxt(k,600) + rxt(k,605)) * y(k,60) + mat(k,2479) = rxt(k,251)*y(k,126) + mat(k,1666) = rxt(k,251)*y(k,59) + mat(k,1205) = -(rxt(k,337)*y(k,265)) + mat(k,1829) = -rxt(k,337)*y(k,62) + mat(k,1071) = .230_r8*rxt(k,503)*y(k,137) + mat(k,1554) = rxt(k,273)*y(k,42) + mat(k,324) = .350_r8*rxt(k,339)*y(k,265) + mat(k,580) = .630_r8*rxt(k,341)*y(k,137) + mat(k,1180) = .560_r8*rxt(k,370)*y(k,137) + mat(k,2450) = rxt(k,273)*y(k,17) + rxt(k,237)*y(k,56) + rxt(k,318)*y(k,127) & + + rxt(k,319)*y(k,135) + rxt(k,320)*y(k,265) + mat(k,412) = rxt(k,305)*y(k,56) + mat(k,1325) = rxt(k,376)*y(k,127) + rxt(k,377)*y(k,265) + mat(k,1994) = rxt(k,237)*y(k,42) + rxt(k,305)*y(k,46) + mat(k,1494) = rxt(k,618)*y(k,266) + mat(k,1100) = rxt(k,364)*y(k,265) + mat(k,930) = .620_r8*rxt(k,448)*y(k,137) + mat(k,1313) = .650_r8*rxt(k,401)*y(k,137) + mat(k,1015) = .230_r8*rxt(k,506)*y(k,137) + mat(k,1417) = .560_r8*rxt(k,415)*y(k,137) + mat(k,1939) = .170_r8*rxt(k,474)*y(k,238) + .220_r8*rxt(k,399)*y(k,250) & + + .400_r8*rxt(k,477)*y(k,251) + .350_r8*rxt(k,480)*y(k,253) & + + .225_r8*rxt(k,515)*y(k,270) + .250_r8*rxt(k,456)*y(k,274) + mat(k,2410) = rxt(k,318)*y(k,42) + rxt(k,376)*y(k,49) + .220_r8*rxt(k,398) & + *y(k,250) + .500_r8*rxt(k,457)*y(k,274) + mat(k,2040) = rxt(k,319)*y(k,42) + rxt(k,527)*y(k,140) + mat(k,2093) = .230_r8*rxt(k,503)*y(k,6) + .630_r8*rxt(k,341)*y(k,25) & + + .560_r8*rxt(k,370)*y(k,29) + .620_r8*rxt(k,448)*y(k,98) & + + .650_r8*rxt(k,401)*y(k,106) + .230_r8*rxt(k,506)*y(k,111) & + + .560_r8*rxt(k,415)*y(k,112) + mat(k,422) = rxt(k,527)*y(k,135) + rxt(k,528)*y(k,265) + mat(k,1165) = .700_r8*rxt(k,524)*y(k,265) + mat(k,1461) = .220_r8*rxt(k,395)*y(k,250) + .250_r8*rxt(k,453)*y(k,274) + mat(k,2167) = .110_r8*rxt(k,396)*y(k,250) + .125_r8*rxt(k,513)*y(k,270) & + + .200_r8*rxt(k,454)*y(k,274) + mat(k,824) = .170_r8*rxt(k,474)*y(k,125) + .070_r8*rxt(k,473)*y(k,243) + mat(k,2350) = .070_r8*rxt(k,473)*y(k,238) + .160_r8*rxt(k,476)*y(k,251) & + + .140_r8*rxt(k,479)*y(k,253) + mat(k,1395) = .220_r8*rxt(k,399)*y(k,125) + .220_r8*rxt(k,398)*y(k,127) & + + .220_r8*rxt(k,395)*y(k,236) + .110_r8*rxt(k,396)*y(k,237) + mat(k,779) = .400_r8*rxt(k,477)*y(k,125) + .160_r8*rxt(k,476)*y(k,243) + mat(k,962) = .350_r8*rxt(k,480)*y(k,125) + .140_r8*rxt(k,479)*y(k,243) + mat(k,1829) = mat(k,1829) + .350_r8*rxt(k,339)*y(k,24) + rxt(k,320)*y(k,42) & + + rxt(k,377)*y(k,49) + rxt(k,364)*y(k,75) + rxt(k,528)*y(k,140) & + + .700_r8*rxt(k,524)*y(k,217) + mat(k,854) = rxt(k,618)*y(k,63) + mat(k,1221) = .225_r8*rxt(k,515)*y(k,125) + .125_r8*rxt(k,513)*y(k,237) + mat(k,1275) = .250_r8*rxt(k,456)*y(k,125) + .500_r8*rxt(k,457)*y(k,127) & + + .250_r8*rxt(k,453)*y(k,236) + .200_r8*rxt(k,454)*y(k,237) + mat(k,1495) = -(rxt(k,618)*y(k,266)) + mat(k,855) = -rxt(k,618)*y(k,63) + mat(k,1075) = .270_r8*rxt(k,503)*y(k,137) + mat(k,1184) = .200_r8*rxt(k,370)*y(k,137) + mat(k,751) = rxt(k,357)*y(k,265) + mat(k,667) = .500_r8*rxt(k,358)*y(k,265) + mat(k,1206) = rxt(k,337)*y(k,265) + mat(k,1212) = .800_r8*rxt(k,363)*y(k,265) + mat(k,1101) = rxt(k,364)*y(k,265) + mat(k,956) = rxt(k,329)*y(k,265) + mat(k,628) = .500_r8*rxt(k,414)*y(k,265) + mat(k,1019) = .270_r8*rxt(k,506)*y(k,137) + mat(k,1424) = .100_r8*rxt(k,415)*y(k,137) + mat(k,1955) = rxt(k,356)*y(k,236) + .900_r8*rxt(k,515)*y(k,270) + mat(k,2107) = .270_r8*rxt(k,503)*y(k,6) + .200_r8*rxt(k,370)*y(k,29) & + + .270_r8*rxt(k,506)*y(k,111) + .100_r8*rxt(k,415)*y(k,112) + mat(k,1168) = 1.800_r8*rxt(k,524)*y(k,265) + mat(k,1474) = rxt(k,356)*y(k,125) + 4.000_r8*rxt(k,353)*y(k,236) & + + .900_r8*rxt(k,354)*y(k,237) + rxt(k,428)*y(k,245) & + + 2.000_r8*rxt(k,404)*y(k,252) + rxt(k,453)*y(k,274) + mat(k,2182) = .900_r8*rxt(k,354)*y(k,236) + rxt(k,405)*y(k,252) & + + .500_r8*rxt(k,513)*y(k,270) + mat(k,2365) = .450_r8*rxt(k,406)*y(k,252) + mat(k,1349) = rxt(k,428)*y(k,236) + mat(k,1444) = 2.000_r8*rxt(k,404)*y(k,236) + rxt(k,405)*y(k,237) & + + .450_r8*rxt(k,406)*y(k,243) + 4.000_r8*rxt(k,407)*y(k,252) + mat(k,1845) = rxt(k,357)*y(k,50) + .500_r8*rxt(k,358)*y(k,51) + rxt(k,337) & + *y(k,62) + .800_r8*rxt(k,363)*y(k,74) + rxt(k,364)*y(k,75) & + + rxt(k,329)*y(k,87) + .500_r8*rxt(k,414)*y(k,110) & + + 1.800_r8*rxt(k,524)*y(k,217) + mat(k,1226) = .900_r8*rxt(k,515)*y(k,125) + .500_r8*rxt(k,513)*y(k,237) + mat(k,1281) = rxt(k,453)*y(k,236) + mat(k,286) = -(rxt(k,298)*y(k,261)) + mat(k,2212) = -rxt(k,298)*y(k,64) + mat(k,179) = rxt(k,263)*y(k,261) + mat(k,184) = rxt(k,289)*y(k,261) + mat(k,189) = rxt(k,265)*y(k,261) + mat(k,160) = 2.000_r8*rxt(k,266)*y(k,261) + mat(k,194) = 2.000_r8*rxt(k,267)*y(k,261) + mat(k,164) = rxt(k,268)*y(k,261) + mat(k,172) = 2.000_r8*rxt(k,291)*y(k,261) + mat(k,298) = rxt(k,315)*y(k,261) + rxt(k,310)*y(k,265) + mat(k,354) = rxt(k,316)*y(k,261) + rxt(k,311)*y(k,265) + mat(k,2212) = mat(k,2212) + rxt(k,263)*y(k,34) + rxt(k,289)*y(k,35) & + + rxt(k,265)*y(k,37) + 2.000_r8*rxt(k,266)*y(k,38) & + + 2.000_r8*rxt(k,267)*y(k,39) + rxt(k,268)*y(k,40) & + + 2.000_r8*rxt(k,291)*y(k,78) + rxt(k,315)*y(k,83) + rxt(k,316) & + *y(k,84) + mat(k,1735) = rxt(k,310)*y(k,83) + rxt(k,311)*y(k,84) + mat(k,294) = -(rxt(k,299)*y(k,261)) + mat(k,2214) = -rxt(k,299)*y(k,65) + mat(k,156) = rxt(k,264)*y(k,261) + mat(k,190) = rxt(k,265)*y(k,261) + mat(k,290) = rxt(k,314)*y(k,261) + rxt(k,309)*y(k,265) + mat(k,2214) = mat(k,2214) + rxt(k,264)*y(k,36) + rxt(k,265)*y(k,37) & + + rxt(k,314)*y(k,82) + mat(k,1737) = rxt(k,309)*y(k,82) + mat(k,238) = -(rxt(k,472)*y(k,265)) + mat(k,1725) = -rxt(k,472)*y(k,66) + mat(k,232) = .180_r8*rxt(k,492)*y(k,265) + mat(k,1725) = mat(k,1725) + .180_r8*rxt(k,492)*y(k,219) + mat(k,345) = -(rxt(k,525)*y(k,127) + (rxt(k,526) + rxt(k,540)) * y(k,265)) + mat(k,2390) = -rxt(k,525)*y(k,67) + mat(k,1745) = -(rxt(k,526) + rxt(k,540)) * y(k,67) + mat(k,840) = rxt(k,359)*y(k,243) + mat(k,2290) = rxt(k,359)*y(k,242) + mat(k,970) = -(rxt(k,294)*y(k,54) + rxt(k,295)*y(k,77) + rxt(k,296)*y(k,278) & + + rxt(k,297)*y(k,89)) + mat(k,1626) = -rxt(k,294)*y(k,73) + mat(k,1505) = -rxt(k,295)*y(k,73) + mat(k,2503) = -rxt(k,296)*y(k,73) + mat(k,2245) = -rxt(k,297)*y(k,73) + mat(k,185) = rxt(k,289)*y(k,261) + mat(k,195) = rxt(k,267)*y(k,261) + mat(k,287) = 2.000_r8*rxt(k,298)*y(k,261) + mat(k,295) = rxt(k,299)*y(k,261) + mat(k,2222) = rxt(k,289)*y(k,35) + rxt(k,267)*y(k,39) + 2.000_r8*rxt(k,298) & + *y(k,64) + rxt(k,299)*y(k,65) + mat(k,1211) = -(rxt(k,363)*y(k,265)) + mat(k,1830) = -rxt(k,363)*y(k,74) + mat(k,635) = .700_r8*rxt(k,439)*y(k,265) + mat(k,595) = .500_r8*rxt(k,440)*y(k,265) + mat(k,465) = rxt(k,451)*y(k,265) + mat(k,1940) = .050_r8*rxt(k,437)*y(k,246) + .530_r8*rxt(k,399)*y(k,250) & + + .225_r8*rxt(k,515)*y(k,270) + .250_r8*rxt(k,456)*y(k,274) + mat(k,2411) = .050_r8*rxt(k,438)*y(k,246) + .530_r8*rxt(k,398)*y(k,250) & + + .250_r8*rxt(k,457)*y(k,274) + mat(k,1583) = rxt(k,362)*y(k,241) + mat(k,1462) = .530_r8*rxt(k,395)*y(k,250) + .250_r8*rxt(k,453)*y(k,274) + mat(k,2168) = .260_r8*rxt(k,396)*y(k,250) + .125_r8*rxt(k,513)*y(k,270) & + + .100_r8*rxt(k,454)*y(k,274) + mat(k,512) = rxt(k,362)*y(k,136) + mat(k,1370) = .050_r8*rxt(k,437)*y(k,125) + .050_r8*rxt(k,438)*y(k,127) + mat(k,1396) = .530_r8*rxt(k,399)*y(k,125) + .530_r8*rxt(k,398)*y(k,127) & + + .530_r8*rxt(k,395)*y(k,236) + .260_r8*rxt(k,396)*y(k,237) + mat(k,1830) = mat(k,1830) + .700_r8*rxt(k,439)*y(k,99) + .500_r8*rxt(k,440) & + *y(k,100) + rxt(k,451)*y(k,116) + mat(k,1222) = .225_r8*rxt(k,515)*y(k,125) + .125_r8*rxt(k,513)*y(k,237) + mat(k,1276) = .250_r8*rxt(k,456)*y(k,125) + .250_r8*rxt(k,457)*y(k,127) & + + .250_r8*rxt(k,453)*y(k,236) + .100_r8*rxt(k,454)*y(k,237) + mat(k,1099) = -(rxt(k,364)*y(k,265)) + mat(k,1820) = -rxt(k,364)*y(k,75) + mat(k,323) = .650_r8*rxt(k,339)*y(k,265) + mat(k,1209) = .200_r8*rxt(k,363)*y(k,265) + mat(k,1134) = rxt(k,452)*y(k,265) + mat(k,1931) = rxt(k,463)*y(k,230) + .050_r8*rxt(k,437)*y(k,246) & + + .400_r8*rxt(k,477)*y(k,251) + .170_r8*rxt(k,480)*y(k,253) & + + .700_r8*rxt(k,483)*y(k,267) + .600_r8*rxt(k,490)*y(k,272) & + + .250_r8*rxt(k,456)*y(k,274) + .340_r8*rxt(k,496)*y(k,275) & + + .170_r8*rxt(k,499)*y(k,277) + mat(k,2401) = .050_r8*rxt(k,438)*y(k,246) + .250_r8*rxt(k,457)*y(k,274) + mat(k,534) = rxt(k,463)*y(k,125) + mat(k,1459) = .250_r8*rxt(k,453)*y(k,274) + mat(k,2159) = .100_r8*rxt(k,454)*y(k,274) + mat(k,2343) = .160_r8*rxt(k,476)*y(k,251) + .070_r8*rxt(k,479)*y(k,253) + mat(k,1368) = .050_r8*rxt(k,437)*y(k,125) + .050_r8*rxt(k,438)*y(k,127) + mat(k,778) = .400_r8*rxt(k,477)*y(k,125) + .160_r8*rxt(k,476)*y(k,243) + mat(k,961) = .170_r8*rxt(k,480)*y(k,125) + .070_r8*rxt(k,479)*y(k,243) + mat(k,1820) = mat(k,1820) + .650_r8*rxt(k,339)*y(k,24) + .200_r8*rxt(k,363) & + *y(k,74) + rxt(k,452)*y(k,117) + mat(k,503) = .700_r8*rxt(k,483)*y(k,125) + mat(k,791) = .600_r8*rxt(k,490)*y(k,125) + mat(k,1274) = .250_r8*rxt(k,456)*y(k,125) + .250_r8*rxt(k,457)*y(k,127) & + + .250_r8*rxt(k,453)*y(k,236) + .100_r8*rxt(k,454)*y(k,237) + mat(k,815) = .340_r8*rxt(k,496)*y(k,125) + mat(k,559) = .170_r8*rxt(k,499)*y(k,125) + mat(k,2140) = -((rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,243) + rxt(k,195) & + *y(k,136) + rxt(k,198)*y(k,137)) + mat(k,2378) = -(rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,76) + mat(k,1595) = -rxt(k,195)*y(k,76) + mat(k,2119) = -rxt(k,198)*y(k,76) + mat(k,2464) = rxt(k,320)*y(k,265) + mat(k,1641) = rxt(k,334)*y(k,261) + mat(k,2012) = rxt(k,239)*y(k,77) + mat(k,974) = rxt(k,295)*y(k,77) + mat(k,1512) = rxt(k,239)*y(k,56) + rxt(k,295)*y(k,73) + rxt(k,190)*y(k,135) & + rxt(k,173)*y(k,261) + rxt(k,199)*y(k,265) - mat(k,885) = rxt(k,290)*y(k,261) - mat(k,1548) = rxt(k,267)*y(k,261) - mat(k,1051) = rxt(k,222)*y(k,265) - mat(k,2465) = rxt(k,190)*y(k,79) + rxt(k,202)*y(k,265) - mat(k,423) = rxt(k,525)*y(k,265) - mat(k,781) = rxt(k,531)*y(k,265) - mat(k,1530) = rxt(k,536)*y(k,265) - mat(k,1838) = rxt(k,331)*y(k,56) + rxt(k,173)*y(k,79) + rxt(k,290)*y(k,83) & - + rxt(k,267)*y(k,87) - mat(k,2011) = rxt(k,317)*y(k,44) + rxt(k,199)*y(k,79) + rxt(k,222)*y(k,119) & - + rxt(k,202)*y(k,141) + rxt(k,525)*y(k,146) + rxt(k,531) & - *y(k,159) + rxt(k,536)*y(k,161) + mat(k,878) = rxt(k,293)*y(k,261) + mat(k,1547) = rxt(k,270)*y(k,261) + mat(k,1040) = rxt(k,222)*y(k,265) + mat(k,2055) = rxt(k,190)*y(k,77) + rxt(k,202)*y(k,265) + mat(k,426) = rxt(k,528)*y(k,265) + mat(k,761) = rxt(k,534)*y(k,265) + mat(k,1531) = rxt(k,539)*y(k,265) + mat(k,2235) = rxt(k,334)*y(k,54) + rxt(k,173)*y(k,77) + rxt(k,293)*y(k,81) & + + rxt(k,270)*y(k,85) + mat(k,1859) = rxt(k,320)*y(k,42) + rxt(k,199)*y(k,77) + rxt(k,222)*y(k,113) & + + rxt(k,202)*y(k,135) + rxt(k,528)*y(k,140) + rxt(k,534) & + *y(k,155) + rxt(k,539)*y(k,157) end do end subroutine nlnmat03 subroutine nlnmat04( avec_len, mat, y, rxt ) @@ -755,208 +745,208 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,1505) = -(rxt(k,173)*y(k,261) + rxt(k,190)*y(k,141) + rxt(k,199) & - *y(k,265) + rxt(k,236)*y(k,58) + rxt(k,292)*y(k,75)) - mat(k,1824) = -rxt(k,173)*y(k,79) - mat(k,2450) = -rxt(k,190)*y(k,79) - mat(k,1996) = -rxt(k,199)*y(k,79) - mat(k,2248) = -rxt(k,236)*y(k,79) - mat(k,970) = -rxt(k,292)*y(k,79) - mat(k,2082) = rxt(k,332)*y(k,261) - mat(k,2269) = rxt(k,192)*y(k,247) - mat(k,2202) = rxt(k,192)*y(k,78) - mat(k,1824) = mat(k,1824) + rxt(k,332)*y(k,56) - mat(k,169) = -(rxt(k,288)*y(k,261)) - mat(k,1806) = -rxt(k,288)*y(k,80) - mat(k,644) = -(rxt(k,191)*y(k,141) + rxt(k,200)*y(k,265) + rxt(k,237)*y(k,58)) - mat(k,2435) = -rxt(k,191)*y(k,81) - mat(k,1933) = -rxt(k,200)*y(k,81) - mat(k,2232) = -rxt(k,237)*y(k,81) - mat(k,2154) = 2.000_r8*rxt(k,206)*y(k,247) - mat(k,1933) = mat(k,1933) + 2.000_r8*rxt(k,205)*y(k,265) - mat(k,306) = rxt(k,538)*y(k,276) - mat(k,2498) = rxt(k,538)*y(k,163) - mat(k,880) = -(rxt(k,283)*y(k,141) + rxt(k,284)*y(k,265) + (rxt(k,289) & - + rxt(k,290)) * y(k,261)) - mat(k,2441) = -rxt(k,283)*y(k,83) - mat(k,1956) = -rxt(k,284)*y(k,83) - mat(k,1822) = -(rxt(k,289) + rxt(k,290)) * y(k,83) - mat(k,1552) = rxt(k,270)*y(k,44) + rxt(k,271)*y(k,247) - mat(k,2473) = rxt(k,270)*y(k,19) - mat(k,2172) = rxt(k,271)*y(k,19) - mat(k,287) = -(rxt(k,306)*y(k,265) + rxt(k,311)*y(k,261)) - mat(k,1886) = -rxt(k,306)*y(k,84) - mat(k,1814) = -rxt(k,311)*y(k,84) - mat(k,297) = -(rxt(k,307)*y(k,265) + rxt(k,312)*y(k,261)) - mat(k,1888) = -rxt(k,307)*y(k,85) - mat(k,1816) = -rxt(k,312)*y(k,85) - mat(k,356) = -(rxt(k,308)*y(k,265) + rxt(k,313)*y(k,261)) - mat(k,1896) = -rxt(k,308)*y(k,86) - mat(k,1818) = -rxt(k,313)*y(k,86) - mat(k,1539) = -(rxt(k,254)*y(k,141) + rxt(k,255)*y(k,265) + (rxt(k,266) & - + rxt(k,267)) * y(k,261) + (rxt(k,587) + rxt(k,593) + rxt(k,598) & - ) * y(k,94) + (rxt(k,592) + rxt(k,597) + rxt(k,602)) * y(k,62) & - + (rxt(k,594) + rxt(k,599)) * y(k,93)) - mat(k,2452) = -rxt(k,254)*y(k,87) - mat(k,1998) = -rxt(k,255)*y(k,87) - mat(k,1825) = -(rxt(k,266) + rxt(k,267)) * y(k,87) - mat(k,874) = -(rxt(k,587) + rxt(k,593) + rxt(k,598)) * y(k,87) - mat(k,1028) = -(rxt(k,592) + rxt(k,597) + rxt(k,602)) * y(k,87) - mat(k,842) = -(rxt(k,594) + rxt(k,599)) * y(k,87) - mat(k,336) = rxt(k,345)*y(k,58) - mat(k,342) = rxt(k,375)*y(k,58) - mat(k,515) = rxt(k,297)*y(k,58) - mat(k,2478) = rxt(k,234)*y(k,58) - mat(k,629) = rxt(k,299)*y(k,58) - mat(k,403) = 2.000_r8*rxt(k,302)*y(k,58) - mat(k,2083) = rxt(k,235)*y(k,58) - mat(k,462) = rxt(k,304)*y(k,58) - mat(k,2249) = rxt(k,345)*y(k,30) + rxt(k,375)*y(k,33) + rxt(k,297)*y(k,43) & - + rxt(k,234)*y(k,44) + rxt(k,299)*y(k,45) + 2.000_r8*rxt(k,302) & - *y(k,48) + rxt(k,235)*y(k,56) + rxt(k,304)*y(k,57) + rxt(k,236) & - *y(k,79) + rxt(k,237)*y(k,81) + rxt(k,256)*y(k,94) + rxt(k,238) & - *y(k,247) - mat(k,1632) = rxt(k,253)*y(k,265) - mat(k,1506) = rxt(k,236)*y(k,58) - mat(k,645) = rxt(k,237)*y(k,58) - mat(k,874) = mat(k,874) + rxt(k,256)*y(k,58) - mat(k,2203) = rxt(k,238)*y(k,58) - mat(k,1998) = mat(k,1998) + rxt(k,253)*y(k,61) - mat(k,248) = -(rxt(k,325)*y(k,265) + rxt(k,333)*y(k,261)) - mat(k,1878) = -rxt(k,325)*y(k,88) - mat(k,1812) = -rxt(k,333)*y(k,88) - mat(k,942) = -(rxt(k,326)*y(k,265)) - mat(k,1959) = -rxt(k,326)*y(k,89) - mat(k,1061) = .050_r8*rxt(k,500)*y(k,143) - mat(k,326) = .350_r8*rxt(k,336)*y(k,265) - mat(k,622) = .370_r8*rxt(k,338)*y(k,143) - mat(k,1176) = .120_r8*rxt(k,367)*y(k,143) - mat(k,921) = .110_r8*rxt(k,445)*y(k,143) - mat(k,1311) = .330_r8*rxt(k,398)*y(k,143) - mat(k,1005) = .050_r8*rxt(k,503)*y(k,143) - mat(k,1413) = .120_r8*rxt(k,412)*y(k,143) - mat(k,1752) = rxt(k,329)*y(k,248) - mat(k,2381) = .050_r8*rxt(k,500)*y(k,6) + .370_r8*rxt(k,338)*y(k,27) & - + .120_r8*rxt(k,367)*y(k,31) + .110_r8*rxt(k,445)*y(k,100) & - + .330_r8*rxt(k,398)*y(k,111) + .050_r8*rxt(k,503)*y(k,116) & - + .120_r8*rxt(k,412)*y(k,118) - mat(k,2174) = rxt(k,327)*y(k,248) - mat(k,488) = rxt(k,329)*y(k,131) + rxt(k,327)*y(k,247) - mat(k,1959) = mat(k,1959) + .350_r8*rxt(k,336)*y(k,26) - mat(k,2078) = rxt(k,291)*y(k,75) - mat(k,968) = rxt(k,291)*y(k,56) + rxt(k,292)*y(k,79) + rxt(k,294)*y(k,91) & - + rxt(k,293)*y(k,276) - mat(k,1503) = rxt(k,292)*y(k,75) - mat(k,2290) = rxt(k,294)*y(k,75) - mat(k,2500) = rxt(k,293)*y(k,75) - mat(k,2307) = -(rxt(k,231)*y(k,265) + rxt(k,294)*y(k,75)) - mat(k,2012) = -rxt(k,231)*y(k,91) - mat(k,975) = -rxt(k,294)*y(k,91) - mat(k,2492) = rxt(k,315)*y(k,133) - mat(k,1201) = rxt(k,347)*y(k,133) - mat(k,1331) = rxt(k,373)*y(k,133) - mat(k,1034) = (rxt(k,592)+rxt(k,597)+rxt(k,602))*y(k,87) - mat(k,354) = rxt(k,522)*y(k,133) - mat(k,1549) = (rxt(k,592)+rxt(k,597)+rxt(k,602))*y(k,62) - mat(k,1690) = rxt(k,230)*y(k,265) - mat(k,2072) = rxt(k,315)*y(k,44) + rxt(k,347)*y(k,47) + rxt(k,373)*y(k,51) & - + rxt(k,522)*y(k,69) - mat(k,2012) = mat(k,2012) + rxt(k,230)*y(k,132) - mat(k,521) = -(rxt(k,207)*y(k,265)) - mat(k,1919) = -rxt(k,207)*y(k,92) - mat(k,1654) = rxt(k,228)*y(k,247) - mat(k,2146) = rxt(k,228)*y(k,132) - mat(k,841) = -(rxt(k,285)*y(k,141) + (rxt(k,594) + rxt(k,599)) * y(k,87)) - mat(k,2438) = -rxt(k,285)*y(k,93) - mat(k,1536) = -(rxt(k,594) + rxt(k,599)) * y(k,93) - mat(k,1603) = rxt(k,277)*y(k,247) - mat(k,2169) = rxt(k,277)*y(k,21) - mat(k,873) = -(rxt(k,256)*y(k,58) + rxt(k,257)*y(k,141) + rxt(k,258)*y(k,265) & - + (rxt(k,587) + rxt(k,593) + rxt(k,598)) * y(k,87)) - mat(k,2234) = -rxt(k,256)*y(k,94) - mat(k,2440) = -rxt(k,257)*y(k,94) - mat(k,1955) = -rxt(k,258)*y(k,94) - mat(k,1537) = -(rxt(k,587) + rxt(k,593) + rxt(k,598)) * y(k,94) - mat(k,1628) = rxt(k,245)*y(k,247) - mat(k,1026) = rxt(k,250)*y(k,265) - mat(k,2171) = rxt(k,245)*y(k,61) - mat(k,1955) = mat(k,1955) + rxt(k,250)*y(k,62) - mat(k,1239) = -(rxt(k,391)*y(k,265)) - mat(k,1982) = -rxt(k,391)*y(k,95) - mat(k,653) = .300_r8*rxt(k,436)*y(k,265) - mat(k,599) = .500_r8*rxt(k,437)*y(k,265) - mat(k,1769) = rxt(k,390)*y(k,244) + rxt(k,397)*y(k,251) - mat(k,615) = rxt(k,390)*y(k,131) - mat(k,1396) = rxt(k,397)*y(k,131) - mat(k,1982) = mat(k,1982) + .300_r8*rxt(k,436)*y(k,101) + .500_r8*rxt(k,437) & - *y(k,102) - mat(k,282) = -(rxt(k,422)*y(k,265)) - mat(k,1885) = -rxt(k,422)*y(k,96) - mat(k,1252) = -(rxt(k,376)*y(k,265)) - mat(k,1983) = -rxt(k,376)*y(k,97) - mat(k,654) = .700_r8*rxt(k,436)*y(k,265) - mat(k,600) = .500_r8*rxt(k,437)*y(k,265) - mat(k,672) = .500_r8*rxt(k,411)*y(k,265) - mat(k,1770) = .050_r8*rxt(k,434)*y(k,250) + .220_r8*rxt(k,396)*y(k,251) & - + .250_r8*rxt(k,453)*y(k,273) - mat(k,2045) = .050_r8*rxt(k,435)*y(k,250) + .220_r8*rxt(k,395)*y(k,251) & - + .250_r8*rxt(k,454)*y(k,273) - mat(k,591) = .500_r8*rxt(k,380)*y(k,265) - mat(k,1462) = .220_r8*rxt(k,392)*y(k,251) + .250_r8*rxt(k,450)*y(k,273) - mat(k,2334) = .230_r8*rxt(k,393)*y(k,251) + .200_r8*rxt(k,381)*y(k,269) & - + .100_r8*rxt(k,451)*y(k,273) - mat(k,1371) = .050_r8*rxt(k,434)*y(k,131) + .050_r8*rxt(k,435)*y(k,133) - mat(k,1397) = .220_r8*rxt(k,396)*y(k,131) + .220_r8*rxt(k,395)*y(k,133) & - + .220_r8*rxt(k,392)*y(k,240) + .230_r8*rxt(k,393)*y(k,241) - mat(k,1983) = mat(k,1983) + .700_r8*rxt(k,436)*y(k,101) + .500_r8*rxt(k,437) & - *y(k,102) + .500_r8*rxt(k,411)*y(k,115) + .500_r8*rxt(k,380) & - *y(k,157) - mat(k,1260) = .200_r8*rxt(k,381)*y(k,241) - mat(k,1276) = .250_r8*rxt(k,453)*y(k,131) + .250_r8*rxt(k,454)*y(k,133) & - + .250_r8*rxt(k,450)*y(k,240) + .100_r8*rxt(k,451)*y(k,241) - mat(k,398) = -(rxt(k,423)*y(k,265)) - mat(k,1902) = -rxt(k,423)*y(k,98) - mat(k,1723) = .870_r8*rxt(k,434)*y(k,250) - mat(k,2022) = .950_r8*rxt(k,435)*y(k,250) - mat(k,1454) = rxt(k,430)*y(k,250) - mat(k,2314) = .750_r8*rxt(k,431)*y(k,250) - mat(k,1360) = .870_r8*rxt(k,434)*y(k,131) + .950_r8*rxt(k,435)*y(k,133) & - + rxt(k,430)*y(k,240) + .750_r8*rxt(k,431)*y(k,241) - mat(k,173) = -(rxt(k,424)*y(k,265)) - mat(k,1870) = -rxt(k,424)*y(k,99) - mat(k,754) = .600_r8*rxt(k,447)*y(k,265) - mat(k,1870) = mat(k,1870) + .600_r8*rxt(k,447)*y(k,106) - mat(k,920) = -(rxt(k,438)*y(k,133) + rxt(k,445)*y(k,143) + rxt(k,446) & + mat(k,1506) = -(rxt(k,173)*y(k,261) + rxt(k,190)*y(k,135) + rxt(k,199) & + *y(k,265) + rxt(k,239)*y(k,56) + rxt(k,295)*y(k,73)) + mat(k,2223) = -rxt(k,173)*y(k,77) + mat(k,2042) = -rxt(k,190)*y(k,77) + mat(k,1846) = -rxt(k,199)*y(k,77) + mat(k,2000) = -rxt(k,239)*y(k,77) + mat(k,971) = -rxt(k,295)*y(k,77) + mat(k,1629) = rxt(k,335)*y(k,261) + mat(k,2128) = rxt(k,192)*y(k,243) + mat(k,2366) = rxt(k,192)*y(k,76) + mat(k,2223) = mat(k,2223) + rxt(k,335)*y(k,54) + mat(k,171) = -(rxt(k,291)*y(k,261)) + mat(k,2205) = -rxt(k,291)*y(k,78) + mat(k,643) = -(rxt(k,191)*y(k,135) + rxt(k,200)*y(k,265) + rxt(k,240)*y(k,56)) + mat(k,2026) = -rxt(k,191)*y(k,79) + mat(k,1783) = -rxt(k,200)*y(k,79) + mat(k,1983) = -rxt(k,240)*y(k,79) + mat(k,2317) = 2.000_r8*rxt(k,206)*y(k,243) + mat(k,1783) = mat(k,1783) + 2.000_r8*rxt(k,205)*y(k,265) + mat(k,308) = rxt(k,541)*y(k,278) + mat(k,2500) = rxt(k,541)*y(k,159) + mat(k,873) = -(rxt(k,286)*y(k,135) + rxt(k,287)*y(k,265) + (rxt(k,292) & + + rxt(k,293)) * y(k,261)) + mat(k,2032) = -rxt(k,286)*y(k,81) + mat(k,1805) = -rxt(k,287)*y(k,81) + mat(k,2221) = -(rxt(k,292) + rxt(k,293)) * y(k,81) + mat(k,1553) = rxt(k,273)*y(k,42) + rxt(k,274)*y(k,243) + mat(k,2448) = rxt(k,273)*y(k,17) + mat(k,2335) = rxt(k,274)*y(k,17) + mat(k,289) = -(rxt(k,309)*y(k,265) + rxt(k,314)*y(k,261)) + mat(k,1736) = -rxt(k,309)*y(k,82) + mat(k,2213) = -rxt(k,314)*y(k,82) + mat(k,299) = -(rxt(k,310)*y(k,265) + rxt(k,315)*y(k,261)) + mat(k,1738) = -rxt(k,310)*y(k,83) + mat(k,2215) = -rxt(k,315)*y(k,83) + mat(k,355) = -(rxt(k,311)*y(k,265) + rxt(k,316)*y(k,261)) + mat(k,1746) = -rxt(k,311)*y(k,84) + mat(k,2217) = -rxt(k,316)*y(k,84) + mat(k,1540) = -(rxt(k,257)*y(k,135) + rxt(k,258)*y(k,265) + (rxt(k,269) & + + rxt(k,270)) * y(k,261) + (rxt(k,590) + rxt(k,596) + rxt(k,601) & + ) * y(k,92) + (rxt(k,595) + rxt(k,600) + rxt(k,605)) * y(k,60) & + + (rxt(k,597) + rxt(k,602)) * y(k,91)) + mat(k,2044) = -rxt(k,257)*y(k,85) + mat(k,1848) = -rxt(k,258)*y(k,85) + mat(k,2224) = -(rxt(k,269) + rxt(k,270)) * y(k,85) + mat(k,883) = -(rxt(k,590) + rxt(k,596) + rxt(k,601)) * y(k,85) + mat(k,1045) = -(rxt(k,595) + rxt(k,600) + rxt(k,605)) * y(k,85) + mat(k,833) = -(rxt(k,597) + rxt(k,602)) * y(k,85) + mat(k,329) = rxt(k,348)*y(k,56) + mat(k,335) = rxt(k,378)*y(k,56) + mat(k,517) = rxt(k,300)*y(k,56) + mat(k,2453) = rxt(k,237)*y(k,56) + mat(k,682) = rxt(k,302)*y(k,56) + mat(k,413) = 2.000_r8*rxt(k,305)*y(k,56) + mat(k,1630) = rxt(k,238)*y(k,56) + mat(k,452) = rxt(k,307)*y(k,56) + mat(k,2001) = rxt(k,348)*y(k,28) + rxt(k,378)*y(k,31) + rxt(k,300)*y(k,41) & + + rxt(k,237)*y(k,42) + rxt(k,302)*y(k,43) + 2.000_r8*rxt(k,305) & + *y(k,46) + rxt(k,238)*y(k,54) + rxt(k,307)*y(k,55) + rxt(k,239) & + *y(k,77) + rxt(k,240)*y(k,79) + rxt(k,259)*y(k,92) + rxt(k,241) & + *y(k,243) + mat(k,2481) = rxt(k,256)*y(k,265) + mat(k,1507) = rxt(k,239)*y(k,56) + mat(k,644) = rxt(k,240)*y(k,56) + mat(k,883) = mat(k,883) + rxt(k,259)*y(k,56) + mat(k,2367) = rxt(k,241)*y(k,56) + mat(k,1848) = mat(k,1848) + rxt(k,256)*y(k,59) + mat(k,250) = -(rxt(k,328)*y(k,265) + rxt(k,336)*y(k,261)) + mat(k,1728) = -rxt(k,328)*y(k,86) + mat(k,2211) = -rxt(k,336)*y(k,86) + mat(k,955) = -(rxt(k,329)*y(k,265)) + mat(k,1810) = -rxt(k,329)*y(k,87) + mat(k,1062) = .050_r8*rxt(k,503)*y(k,137) + mat(k,322) = .350_r8*rxt(k,339)*y(k,265) + mat(k,579) = .370_r8*rxt(k,341)*y(k,137) + mat(k,1177) = .120_r8*rxt(k,370)*y(k,137) + mat(k,928) = .110_r8*rxt(k,448)*y(k,137) + mat(k,1312) = .330_r8*rxt(k,401)*y(k,137) + mat(k,1006) = .050_r8*rxt(k,506)*y(k,137) + mat(k,1414) = .120_r8*rxt(k,415)*y(k,137) + mat(k,1926) = rxt(k,332)*y(k,244) + mat(k,2080) = .050_r8*rxt(k,503)*y(k,6) + .370_r8*rxt(k,341)*y(k,25) & + + .120_r8*rxt(k,370)*y(k,29) + .110_r8*rxt(k,448)*y(k,98) & + + .330_r8*rxt(k,401)*y(k,106) + .050_r8*rxt(k,506)*y(k,111) & + + .120_r8*rxt(k,415)*y(k,112) + mat(k,2339) = rxt(k,330)*y(k,244) + mat(k,484) = rxt(k,332)*y(k,125) + rxt(k,330)*y(k,243) + mat(k,1810) = mat(k,1810) + .350_r8*rxt(k,339)*y(k,24) + mat(k,1625) = rxt(k,294)*y(k,73) + mat(k,969) = rxt(k,294)*y(k,54) + rxt(k,295)*y(k,77) + rxt(k,297)*y(k,89) & + + rxt(k,296)*y(k,278) + mat(k,1504) = rxt(k,295)*y(k,73) + mat(k,2244) = rxt(k,297)*y(k,73) + mat(k,2502) = rxt(k,296)*y(k,73) + mat(k,2261) = -(rxt(k,231)*y(k,265) + rxt(k,297)*y(k,73)) + mat(k,1862) = -rxt(k,231)*y(k,89) + mat(k,976) = -rxt(k,297)*y(k,89) + mat(k,2467) = rxt(k,318)*y(k,127) + mat(k,1201) = rxt(k,350)*y(k,127) + mat(k,1330) = rxt(k,376)*y(k,127) + mat(k,1050) = (rxt(k,595)+rxt(k,600)+rxt(k,605))*y(k,85) + mat(k,348) = rxt(k,525)*y(k,127) + mat(k,1549) = (rxt(k,595)+rxt(k,600)+rxt(k,605))*y(k,60) + mat(k,1689) = rxt(k,230)*y(k,265) + mat(k,2441) = rxt(k,318)*y(k,42) + rxt(k,350)*y(k,45) + rxt(k,376)*y(k,49) & + + rxt(k,525)*y(k,67) + mat(k,1862) = mat(k,1862) + rxt(k,230)*y(k,126) + mat(k,550) = -(rxt(k,208)*y(k,265)) + mat(k,1772) = -rxt(k,208)*y(k,90) + mat(k,1654) = rxt(k,228)*y(k,243) + mat(k,2313) = rxt(k,228)*y(k,126) + mat(k,832) = -(rxt(k,288)*y(k,135) + (rxt(k,597) + rxt(k,602)) * y(k,85)) + mat(k,2030) = -rxt(k,288)*y(k,91) + mat(k,1537) = -(rxt(k,597) + rxt(k,602)) * y(k,91) + mat(k,1604) = rxt(k,280)*y(k,243) + mat(k,2332) = rxt(k,280)*y(k,19) + mat(k,882) = -(rxt(k,259)*y(k,56) + rxt(k,260)*y(k,135) + rxt(k,261)*y(k,265) & + + (rxt(k,590) + rxt(k,596) + rxt(k,601)) * y(k,85)) + mat(k,1986) = -rxt(k,259)*y(k,92) + mat(k,2033) = -rxt(k,260)*y(k,92) + mat(k,1806) = -rxt(k,261)*y(k,92) + mat(k,1538) = -(rxt(k,590) + rxt(k,596) + rxt(k,601)) * y(k,92) + mat(k,2477) = rxt(k,248)*y(k,243) + mat(k,1043) = rxt(k,253)*y(k,265) + mat(k,2336) = rxt(k,248)*y(k,59) + mat(k,1806) = mat(k,1806) + rxt(k,253)*y(k,60) + mat(k,1240) = -(rxt(k,394)*y(k,265)) + mat(k,1832) = -rxt(k,394)*y(k,93) + mat(k,636) = .300_r8*rxt(k,439)*y(k,265) + mat(k,596) = .500_r8*rxt(k,440)*y(k,265) + mat(k,1942) = rxt(k,393)*y(k,240) + rxt(k,400)*y(k,250) + mat(k,612) = rxt(k,393)*y(k,125) + mat(k,1397) = rxt(k,400)*y(k,125) + mat(k,1832) = mat(k,1832) + .300_r8*rxt(k,439)*y(k,99) + .500_r8*rxt(k,440) & + *y(k,100) + mat(k,281) = -(rxt(k,425)*y(k,265)) + mat(k,1734) = -rxt(k,425)*y(k,94) + mat(k,1253) = -(rxt(k,379)*y(k,265)) + mat(k,1833) = -rxt(k,379)*y(k,95) + mat(k,637) = .700_r8*rxt(k,439)*y(k,265) + mat(k,597) = .500_r8*rxt(k,440)*y(k,265) + mat(k,626) = .500_r8*rxt(k,414)*y(k,265) + mat(k,1943) = .050_r8*rxt(k,437)*y(k,246) + .220_r8*rxt(k,399)*y(k,250) & + + .250_r8*rxt(k,456)*y(k,274) + mat(k,2414) = .050_r8*rxt(k,438)*y(k,246) + .220_r8*rxt(k,398)*y(k,250) & + + .250_r8*rxt(k,457)*y(k,274) + mat(k,604) = .500_r8*rxt(k,383)*y(k,265) + mat(k,1463) = .220_r8*rxt(k,395)*y(k,250) + .250_r8*rxt(k,453)*y(k,274) + mat(k,2170) = .230_r8*rxt(k,396)*y(k,250) + .200_r8*rxt(k,384)*y(k,269) & + + .100_r8*rxt(k,454)*y(k,274) + mat(k,1372) = .050_r8*rxt(k,437)*y(k,125) + .050_r8*rxt(k,438)*y(k,127) + mat(k,1398) = .220_r8*rxt(k,399)*y(k,125) + .220_r8*rxt(k,398)*y(k,127) & + + .220_r8*rxt(k,395)*y(k,236) + .230_r8*rxt(k,396)*y(k,237) + mat(k,1833) = mat(k,1833) + .700_r8*rxt(k,439)*y(k,99) + .500_r8*rxt(k,440) & + *y(k,100) + .500_r8*rxt(k,414)*y(k,110) + .500_r8*rxt(k,383) & + *y(k,153) + mat(k,1261) = .200_r8*rxt(k,384)*y(k,237) + mat(k,1277) = .250_r8*rxt(k,456)*y(k,125) + .250_r8*rxt(k,457)*y(k,127) & + + .250_r8*rxt(k,453)*y(k,236) + .100_r8*rxt(k,454)*y(k,237) + mat(k,380) = -(rxt(k,426)*y(k,265)) + mat(k,1750) = -rxt(k,426)*y(k,96) + mat(k,1894) = .870_r8*rxt(k,437)*y(k,246) + mat(k,2391) = .950_r8*rxt(k,438)*y(k,246) + mat(k,1455) = rxt(k,433)*y(k,246) + mat(k,2150) = .750_r8*rxt(k,434)*y(k,246) + mat(k,1361) = .870_r8*rxt(k,437)*y(k,125) + .950_r8*rxt(k,438)*y(k,127) & + + rxt(k,433)*y(k,236) + .750_r8*rxt(k,434)*y(k,237) + mat(k,198) = -(rxt(k,427)*y(k,265)) + mat(k,1720) = -rxt(k,427)*y(k,97) + mat(k,798) = .600_r8*rxt(k,450)*y(k,265) + mat(k,1720) = mat(k,1720) + .600_r8*rxt(k,450)*y(k,103) + mat(k,927) = -(rxt(k,441)*y(k,127) + rxt(k,448)*y(k,137) + rxt(k,449) & *y(k,265)) - mat(k,2025) = -rxt(k,438)*y(k,100) - mat(k,2380) = -rxt(k,445)*y(k,100) - mat(k,1957) = -rxt(k,446)*y(k,100) - mat(k,651) = -(rxt(k,436)*y(k,265)) - mat(k,1934) = -rxt(k,436)*y(k,101) - mat(k,1736) = .080_r8*rxt(k,428)*y(k,249) - mat(k,1333) = .080_r8*rxt(k,428)*y(k,131) - mat(k,596) = -(rxt(k,437)*y(k,265)) - mat(k,1928) = -rxt(k,437)*y(k,102) - mat(k,1734) = .080_r8*rxt(k,434)*y(k,250) - mat(k,1361) = .080_r8*rxt(k,434)*y(k,131) - mat(k,1297) = -(rxt(k,439)*y(k,240) + rxt(k,440)*y(k,241) + rxt(k,441) & - *y(k,247) + rxt(k,442)*y(k,131) + rxt(k,443)*y(k,133)) - mat(k,1464) = -rxt(k,439)*y(k,103) - mat(k,2337) = -rxt(k,440)*y(k,103) - mat(k,2192) = -rxt(k,441)*y(k,103) - mat(k,1773) = -rxt(k,442)*y(k,103) - mat(k,2048) = -rxt(k,443)*y(k,103) - mat(k,924) = rxt(k,438)*y(k,133) - mat(k,2048) = mat(k,2048) + rxt(k,438)*y(k,100) - mat(k,443) = -(rxt(k,444)*y(k,265)) - mat(k,1909) = -rxt(k,444)*y(k,104) - mat(k,1288) = rxt(k,441)*y(k,247) - mat(k,2137) = rxt(k,441)*y(k,103) - mat(k,84) = -(rxt(k,562)*y(k,247) + rxt(k,563)*y(k,131)) - mat(k,2114) = -rxt(k,562)*y(k,105) - mat(k,1707) = -rxt(k,563)*y(k,105) - mat(k,919) = rxt(k,565)*y(k,265) - mat(k,1852) = rxt(k,565)*y(k,100) + mat(k,2395) = -rxt(k,441)*y(k,98) + mat(k,2079) = -rxt(k,448)*y(k,98) + mat(k,1808) = -rxt(k,449)*y(k,98) + mat(k,634) = -(rxt(k,439)*y(k,265)) + mat(k,1782) = -rxt(k,439)*y(k,99) + mat(k,1908) = .080_r8*rxt(k,431)*y(k,245) + mat(k,1334) = .080_r8*rxt(k,431)*y(k,125) + mat(k,593) = -(rxt(k,440)*y(k,265)) + mat(k,1778) = -rxt(k,440)*y(k,100) + mat(k,1906) = .080_r8*rxt(k,437)*y(k,246) + mat(k,1362) = .080_r8*rxt(k,437)*y(k,125) + mat(k,1298) = -(rxt(k,442)*y(k,236) + rxt(k,443)*y(k,237) + rxt(k,444) & + *y(k,243) + rxt(k,445)*y(k,125) + rxt(k,446)*y(k,127)) + mat(k,1465) = -rxt(k,442)*y(k,101) + mat(k,2173) = -rxt(k,443)*y(k,101) + mat(k,2356) = -rxt(k,444)*y(k,101) + mat(k,1946) = -rxt(k,445)*y(k,101) + mat(k,2417) = -rxt(k,446)*y(k,101) + mat(k,931) = rxt(k,441)*y(k,127) + mat(k,2417) = mat(k,2417) + rxt(k,441)*y(k,98) + mat(k,439) = -(rxt(k,447)*y(k,265)) + mat(k,1758) = -rxt(k,447)*y(k,102) + mat(k,1289) = rxt(k,444)*y(k,243) + mat(k,2300) = rxt(k,444)*y(k,101) + mat(k,799) = -(rxt(k,450)*y(k,265)) + mat(k,1799) = -rxt(k,450)*y(k,103) + mat(k,2329) = rxt(k,430)*y(k,245) + rxt(k,435)*y(k,246) + mat(k,1335) = rxt(k,430)*y(k,243) + mat(k,1364) = rxt(k,435)*y(k,243) end do end subroutine nlnmat04 subroutine nlnmat05( avec_len, mat, y, rxt ) @@ -977,264 +967,246 @@ subroutine nlnmat05( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,755) = -(rxt(k,447)*y(k,265)) - mat(k,1945) = -rxt(k,447)*y(k,106) - mat(k,2162) = rxt(k,427)*y(k,249) + rxt(k,432)*y(k,250) - mat(k,1334) = rxt(k,427)*y(k,247) - mat(k,1363) = rxt(k,432)*y(k,247) - mat(k,73) = -(rxt(k,568)*y(k,265)) - mat(k,1851) = -rxt(k,568)*y(k,107) - mat(k,71) = -(rxt(k,566)*y(k,247) + rxt(k,567)*y(k,131)) - mat(k,2108) = -rxt(k,566)*y(k,108) - mat(k,1701) = -rxt(k,567)*y(k,108) - mat(k,72) = rxt(k,568)*y(k,265) - mat(k,1850) = rxt(k,568)*y(k,107) - mat(k,115) = -(rxt(k,571)*y(k,265)) - mat(k,1862) = -rxt(k,571)*y(k,109) - mat(k,113) = -(rxt(k,569)*y(k,247) + rxt(k,570)*y(k,131)) - mat(k,2123) = -rxt(k,569)*y(k,110) - mat(k,1716) = -rxt(k,570)*y(k,110) - mat(k,114) = rxt(k,571)*y(k,265) - mat(k,1861) = rxt(k,571)*y(k,109) - mat(k,1313) = -(rxt(k,398)*y(k,143) + rxt(k,399)*y(k,265)) - mat(k,2400) = -rxt(k,398)*y(k,111) - mat(k,1987) = -rxt(k,399)*y(k,111) - mat(k,925) = .300_r8*rxt(k,445)*y(k,143) - mat(k,1774) = .360_r8*rxt(k,428)*y(k,249) - mat(k,2049) = .400_r8*rxt(k,429)*y(k,249) - mat(k,2400) = mat(k,2400) + .300_r8*rxt(k,445)*y(k,100) - mat(k,1465) = .390_r8*rxt(k,425)*y(k,249) - mat(k,2338) = .310_r8*rxt(k,426)*y(k,249) - mat(k,1341) = .360_r8*rxt(k,428)*y(k,131) + .400_r8*rxt(k,429)*y(k,133) & - + .390_r8*rxt(k,425)*y(k,240) + .310_r8*rxt(k,426)*y(k,241) - mat(k,393) = -(rxt(k,400)*y(k,265)) - mat(k,1901) = -rxt(k,400)*y(k,112) - mat(k,2133) = rxt(k,394)*y(k,251) - mat(k,1392) = rxt(k,394)*y(k,247) - mat(k,563) = -(rxt(k,409)*y(k,265)) - mat(k,1924) = -rxt(k,409)*y(k,113) - mat(k,1732) = .800_r8*rxt(k,418)*y(k,234) - mat(k,1081) = .800_r8*rxt(k,418)*y(k,131) - mat(k,388) = -(rxt(k,410)*y(k,265)) - mat(k,1900) = -rxt(k,410)*y(k,114) - mat(k,2132) = .800_r8*rxt(k,407)*y(k,255) - mat(k,720) = .800_r8*rxt(k,407)*y(k,247) - mat(k,671) = -(rxt(k,411)*y(k,265)) - mat(k,1936) = -rxt(k,411)*y(k,115) - mat(k,1659) = rxt(k,414)*y(k,253) - mat(k,1437) = rxt(k,414)*y(k,132) - mat(k,1006) = -(rxt(k,502)*y(k,133) + rxt(k,503)*y(k,143) + rxt(k,504) & + mat(k,116) = -(rxt(k,571)*y(k,265)) + mat(k,1711) = -rxt(k,571)*y(k,104) + mat(k,124) = -(rxt(k,574)*y(k,265)) + mat(k,1713) = -rxt(k,574)*y(k,105) + mat(k,1314) = -(rxt(k,401)*y(k,137) + rxt(k,402)*y(k,265)) + mat(k,2099) = -rxt(k,401)*y(k,106) + mat(k,1837) = -rxt(k,402)*y(k,106) + mat(k,932) = .300_r8*rxt(k,448)*y(k,137) + mat(k,1947) = .360_r8*rxt(k,431)*y(k,245) + mat(k,2418) = .400_r8*rxt(k,432)*y(k,245) + mat(k,2099) = mat(k,2099) + .300_r8*rxt(k,448)*y(k,98) + mat(k,1466) = .390_r8*rxt(k,428)*y(k,245) + mat(k,2174) = .310_r8*rxt(k,429)*y(k,245) + mat(k,1342) = .360_r8*rxt(k,431)*y(k,125) + .400_r8*rxt(k,432)*y(k,127) & + + .390_r8*rxt(k,428)*y(k,236) + .310_r8*rxt(k,429)*y(k,237) + mat(k,388) = -(rxt(k,403)*y(k,265)) + mat(k,1752) = -rxt(k,403)*y(k,107) + mat(k,2297) = rxt(k,397)*y(k,250) + mat(k,1393) = rxt(k,397)*y(k,243) + mat(k,565) = -(rxt(k,412)*y(k,265)) + mat(k,1774) = -rxt(k,412)*y(k,108) + mat(k,1904) = .800_r8*rxt(k,421)*y(k,228) + mat(k,1082) = .800_r8*rxt(k,421)*y(k,125) + mat(k,383) = -(rxt(k,413)*y(k,265)) + mat(k,1751) = -rxt(k,413)*y(k,109) + mat(k,2296) = .800_r8*rxt(k,410)*y(k,254) + mat(k,742) = .800_r8*rxt(k,410)*y(k,243) + mat(k,625) = -(rxt(k,414)*y(k,265)) + mat(k,1781) = -rxt(k,414)*y(k,110) + mat(k,1658) = rxt(k,417)*y(k,252) + mat(k,1437) = rxt(k,417)*y(k,126) + mat(k,1007) = -(rxt(k,505)*y(k,127) + rxt(k,506)*y(k,137) + rxt(k,507) & *y(k,265)) - mat(k,2029) = -rxt(k,502)*y(k,116) - mat(k,2383) = -rxt(k,503)*y(k,116) - mat(k,1965) = -rxt(k,504)*y(k,116) - mat(k,90) = -(rxt(k,573)*y(k,247) + rxt(k,574)*y(k,131)) - mat(k,2115) = -rxt(k,573)*y(k,117) - mat(k,1708) = -rxt(k,574)*y(k,117) - mat(k,1002) = rxt(k,576)*y(k,265) - mat(k,1853) = rxt(k,576)*y(k,116) - mat(k,1420) = -(rxt(k,412)*y(k,143) + rxt(k,413)*y(k,265)) - mat(k,2405) = -rxt(k,412)*y(k,118) - mat(k,1992) = -rxt(k,413)*y(k,118) - mat(k,928) = .200_r8*rxt(k,445)*y(k,143) - mat(k,1779) = .560_r8*rxt(k,428)*y(k,249) - mat(k,2054) = .600_r8*rxt(k,429)*y(k,249) - mat(k,2405) = mat(k,2405) + .200_r8*rxt(k,445)*y(k,100) - mat(k,1470) = .610_r8*rxt(k,425)*y(k,249) - mat(k,2343) = .440_r8*rxt(k,426)*y(k,249) - mat(k,1345) = .560_r8*rxt(k,428)*y(k,131) + .600_r8*rxt(k,429)*y(k,133) & - + .610_r8*rxt(k,425)*y(k,240) + .440_r8*rxt(k,426)*y(k,241) - mat(k,1043) = -(rxt(k,210)*y(k,131) + (rxt(k,211) + rxt(k,212) + rxt(k,213) & - ) * y(k,132) + rxt(k,214)*y(k,142) + rxt(k,222)*y(k,265) & - + rxt(k,612)*y(k,264)) - mat(k,1756) = -rxt(k,210)*y(k,119) - mat(k,1667) = -(rxt(k,211) + rxt(k,212) + rxt(k,213)) * y(k,119) - mat(k,1580) = -rxt(k,214)*y(k,119) - mat(k,1967) = -rxt(k,222)*y(k,119) - mat(k,899) = -rxt(k,612)*y(k,119) - mat(k,2447) = rxt(k,208)*y(k,256) + rxt(k,609)*y(k,259) - mat(k,1580) = mat(k,1580) + rxt(k,610)*y(k,259) - mat(k,910) = 1.100_r8*rxt(k,605)*y(k,257) + .200_r8*rxt(k,603)*y(k,258) - mat(k,576) = rxt(k,208)*y(k,141) - mat(k,744) = 1.100_r8*rxt(k,605)*y(k,243) - mat(k,891) = .200_r8*rxt(k,603)*y(k,243) - mat(k,552) = rxt(k,609)*y(k,141) + rxt(k,610)*y(k,142) - mat(k,302) = -((rxt(k,226) + rxt(k,227)) * y(k,261)) - mat(k,1817) = -(rxt(k,226) + rxt(k,227)) * y(k,120) - mat(k,1037) = rxt(k,211)*y(k,132) - mat(k,1652) = rxt(k,211)*y(k,119) - mat(k,1653) = rxt(k,229)*y(k,133) - mat(k,2020) = rxt(k,229)*y(k,132) - mat(k,493) = -(rxt(k,448)*y(k,265)) - mat(k,1915) = -rxt(k,448)*y(k,122) - mat(k,1289) = .200_r8*rxt(k,440)*y(k,241) - mat(k,2316) = .200_r8*rxt(k,440)*y(k,103) - mat(k,1134) = -(rxt(k,449)*y(k,265)) - mat(k,1974) = -rxt(k,449)*y(k,123) - mat(k,1293) = rxt(k,442)*y(k,131) + rxt(k,443)*y(k,133) + rxt(k,439)*y(k,240) & - + .800_r8*rxt(k,440)*y(k,241) - mat(k,1762) = rxt(k,442)*y(k,103) - mat(k,2036) = rxt(k,443)*y(k,103) - mat(k,1459) = rxt(k,439)*y(k,103) - mat(k,2327) = .800_r8*rxt(k,440)*y(k,103) - mat(k,141) = -(rxt(k,539)*y(k,265)) - mat(k,1867) = -rxt(k,539)*y(k,127) - mat(k,1788) = -(rxt(k,210)*y(k,119) + rxt(k,219)*y(k,133) + rxt(k,223) & - *y(k,247) + rxt(k,224)*y(k,143) + rxt(k,225)*y(k,141) + rxt(k,246) & - *y(k,61) + rxt(k,278)*y(k,21) + rxt(k,321)*y(k,241) + rxt(k,329) & - *y(k,248) + rxt(k,342)*y(k,237) + rxt(k,353)*y(k,240) + rxt(k,357) & - *y(k,246) + rxt(k,370)*y(k,238) + rxt(k,379)*y(k,268) + rxt(k,383) & - *y(k,269) + (rxt(k,389) + rxt(k,390)) * y(k,244) + (rxt(k,396) & - + rxt(k,397)) * y(k,251) + rxt(k,405)*y(k,253) + rxt(k,408) & - *y(k,255) + (rxt(k,418) + rxt(k,419)) * y(k,234) + rxt(k,428) & - *y(k,249) + rxt(k,434)*y(k,250) + rxt(k,442)*y(k,103) + rxt(k,453) & - *y(k,273) + rxt(k,457)*y(k,233) + rxt(k,460)*y(k,235) + rxt(k,465) & - *y(k,236) + rxt(k,467)*y(k,239) + rxt(k,471)*y(k,242) + rxt(k,474) & - *y(k,252) + rxt(k,477)*y(k,254) + rxt(k,480)*y(k,267) + rxt(k,487) & - *y(k,272) + rxt(k,493)*y(k,274) + rxt(k,496)*y(k,275) + rxt(k,507) & - *y(k,260) + rxt(k,512)*y(k,270) + rxt(k,517)*y(k,271) + rxt(k,614) & - *y(k,264)) - mat(k,1048) = -rxt(k,210)*y(k,131) - mat(k,2064) = -rxt(k,219)*y(k,131) - mat(k,2209) = -rxt(k,223)*y(k,131) - mat(k,2415) = -rxt(k,224)*y(k,131) - mat(k,2458) = -rxt(k,225)*y(k,131) - mat(k,1638) = -rxt(k,246)*y(k,131) - mat(k,1612) = -rxt(k,278)*y(k,131) - mat(k,2351) = -rxt(k,321)*y(k,131) - mat(k,490) = -rxt(k,329)*y(k,131) - mat(k,954) = -rxt(k,342)*y(k,131) - mat(k,1476) = -rxt(k,353)*y(k,131) - mat(k,836) = -rxt(k,357)*y(k,131) - mat(k,984) = -rxt(k,370)*y(k,131) - mat(k,867) = -rxt(k,379)*y(k,131) - mat(k,1265) = -rxt(k,383)*y(k,131) - mat(k,617) = -(rxt(k,389) + rxt(k,390)) * y(k,131) - mat(k,1405) = -(rxt(k,396) + rxt(k,397)) * y(k,131) - mat(k,1445) = -rxt(k,405)*y(k,131) - mat(k,725) = -rxt(k,408)*y(k,131) - mat(k,1092) = -(rxt(k,418) + rxt(k,419)) * y(k,131) - mat(k,1350) = -rxt(k,428)*y(k,131) - mat(k,1383) = -rxt(k,434)*y(k,131) - mat(k,1304) = -rxt(k,442)*y(k,131) - mat(k,1282) = -rxt(k,453)*y(k,131) - mat(k,572) = -rxt(k,457)*y(k,131) - mat(k,545) = -rxt(k,460)*y(k,131) - mat(k,484) = -rxt(k,465)*y(k,131) - mat(k,694) = -rxt(k,467)*y(k,131) - mat(k,826) = -rxt(k,471)*y(k,131) - mat(k,788) = -rxt(k,474)*y(k,131) - mat(k,964) = -rxt(k,477)*y(k,131) - mat(k,503) = -rxt(k,480)*y(k,131) - mat(k,802) = -rxt(k,487)*y(k,131) - mat(k,819) = -rxt(k,493)*y(k,131) - mat(k,560) = -rxt(k,496)*y(k,131) - mat(k,1155) = -rxt(k,507)*y(k,131) - mat(k,1227) = -rxt(k,512)*y(k,131) - mat(k,1110) = -rxt(k,517)*y(k,131) - mat(k,901) = -rxt(k,614)*y(k,131) - mat(k,1048) = mat(k,1048) + 2.000_r8*rxt(k,212)*y(k,132) + rxt(k,214) & - *y(k,142) + rxt(k,222)*y(k,265) - mat(k,304) = 2.000_r8*rxt(k,226)*y(k,261) - mat(k,1682) = 2.000_r8*rxt(k,212)*y(k,119) + rxt(k,215)*y(k,141) + rxt(k,532) & - *y(k,161) - mat(k,2458) = mat(k,2458) + rxt(k,215)*y(k,132) - mat(k,1590) = rxt(k,214)*y(k,119) + rxt(k,209)*y(k,256) - mat(k,1526) = rxt(k,532)*y(k,132) - mat(k,578) = rxt(k,209)*y(k,142) - mat(k,1831) = 2.000_r8*rxt(k,226)*y(k,120) - mat(k,2004) = rxt(k,222)*y(k,119) - mat(k,1681) = -((rxt(k,211) + rxt(k,212) + rxt(k,213)) * y(k,119) + (rxt(k,215) & - + rxt(k,217)) * y(k,141) + rxt(k,216)*y(k,143) + rxt(k,228) & - *y(k,247) + rxt(k,229)*y(k,133) + rxt(k,230)*y(k,265) + rxt(k,248) & - *y(k,61) + rxt(k,279)*y(k,21) + rxt(k,364)*y(k,240) + rxt(k,414) & - *y(k,253) + rxt(k,472)*y(k,242) + rxt(k,475)*y(k,252) + rxt(k,478) & - *y(k,254) + rxt(k,482)*y(k,150) + rxt(k,485)*y(k,233) + rxt(k,532) & - *y(k,161)) - mat(k,1047) = -(rxt(k,211) + rxt(k,212) + rxt(k,213)) * y(k,132) - mat(k,2457) = -(rxt(k,215) + rxt(k,217)) * y(k,132) - mat(k,2414) = -rxt(k,216)*y(k,132) - mat(k,2208) = -rxt(k,228)*y(k,132) - mat(k,2063) = -rxt(k,229)*y(k,132) - mat(k,2003) = -rxt(k,230)*y(k,132) - mat(k,1637) = -rxt(k,248)*y(k,132) - mat(k,1611) = -rxt(k,279)*y(k,132) - mat(k,1475) = -rxt(k,364)*y(k,132) - mat(k,1444) = -rxt(k,414)*y(k,132) - mat(k,825) = -rxt(k,472)*y(k,132) - mat(k,787) = -rxt(k,475)*y(k,132) - mat(k,963) = -rxt(k,478)*y(k,132) - mat(k,537) = -rxt(k,482)*y(k,132) - mat(k,571) = -rxt(k,485)*y(k,132) - mat(k,1525) = -rxt(k,532)*y(k,132) - mat(k,705) = rxt(k,416)*y(k,265) - mat(k,413) = rxt(k,387)*y(k,133) - mat(k,1611) = mat(k,1611) + rxt(k,278)*y(k,131) - mat(k,1637) = mat(k,1637) + rxt(k,246)*y(k,131) - mat(k,523) = rxt(k,207)*y(k,265) - mat(k,655) = .700_r8*rxt(k,436)*y(k,265) - mat(k,1303) = rxt(k,442)*y(k,131) + rxt(k,443)*y(k,133) - mat(k,1787) = rxt(k,278)*y(k,21) + rxt(k,246)*y(k,61) + rxt(k,442)*y(k,103) & - + 2.000_r8*rxt(k,219)*y(k,133) + rxt(k,225)*y(k,141) & - + rxt(k,224)*y(k,143) + rxt(k,457)*y(k,233) + rxt(k,418) & - *y(k,234) + rxt(k,460)*y(k,235) + rxt(k,465)*y(k,236) & - + rxt(k,342)*y(k,237) + rxt(k,370)*y(k,238) + rxt(k,467) & - *y(k,239) + rxt(k,353)*y(k,240) + rxt(k,321)*y(k,241) & - + rxt(k,471)*y(k,242) + rxt(k,389)*y(k,244) + rxt(k,357) & - *y(k,246) + rxt(k,223)*y(k,247) + rxt(k,329)*y(k,248) & - + .920_r8*rxt(k,428)*y(k,249) + .920_r8*rxt(k,434)*y(k,250) & - + rxt(k,396)*y(k,251) + rxt(k,474)*y(k,252) + rxt(k,405) & - *y(k,253) + rxt(k,477)*y(k,254) + rxt(k,408)*y(k,255) & - + 1.600_r8*rxt(k,507)*y(k,260) + rxt(k,480)*y(k,267) & - + rxt(k,379)*y(k,268) + rxt(k,383)*y(k,269) + .900_r8*rxt(k,512) & - *y(k,270) + .800_r8*rxt(k,517)*y(k,271) + rxt(k,487)*y(k,272) & - + rxt(k,453)*y(k,273) + rxt(k,493)*y(k,274) + rxt(k,496) & - *y(k,275) - mat(k,2063) = mat(k,2063) + rxt(k,387)*y(k,18) + rxt(k,443)*y(k,103) & - + 2.000_r8*rxt(k,219)*y(k,131) + rxt(k,220)*y(k,141) & - + rxt(k,218)*y(k,247) + rxt(k,429)*y(k,249) + rxt(k,435) & - *y(k,250) + rxt(k,395)*y(k,251) + rxt(k,406)*y(k,253) & - + 2.000_r8*rxt(k,508)*y(k,260) + rxt(k,221)*y(k,265) & - + rxt(k,454)*y(k,273) - mat(k,939) = rxt(k,377)*y(k,265) - mat(k,2457) = mat(k,2457) + rxt(k,225)*y(k,131) + rxt(k,220)*y(k,133) - mat(k,2414) = mat(k,2414) + rxt(k,224)*y(k,131) - mat(k,686) = rxt(k,514)*y(k,265) - mat(k,571) = mat(k,571) + rxt(k,457)*y(k,131) - mat(k,1091) = rxt(k,418)*y(k,131) - mat(k,544) = rxt(k,460)*y(k,131) - mat(k,483) = rxt(k,465)*y(k,131) - mat(k,953) = rxt(k,342)*y(k,131) - mat(k,983) = rxt(k,370)*y(k,131) - mat(k,693) = rxt(k,467)*y(k,131) - mat(k,1475) = mat(k,1475) + rxt(k,353)*y(k,131) - mat(k,2350) = rxt(k,321)*y(k,131) + .500_r8*rxt(k,505)*y(k,260) - mat(k,825) = mat(k,825) + rxt(k,471)*y(k,131) - mat(k,616) = rxt(k,389)*y(k,131) - mat(k,835) = rxt(k,357)*y(k,131) - mat(k,2208) = mat(k,2208) + rxt(k,223)*y(k,131) + rxt(k,218)*y(k,133) - mat(k,489) = rxt(k,329)*y(k,131) - mat(k,1349) = .920_r8*rxt(k,428)*y(k,131) + rxt(k,429)*y(k,133) - mat(k,1382) = .920_r8*rxt(k,434)*y(k,131) + rxt(k,435)*y(k,133) - mat(k,1404) = rxt(k,396)*y(k,131) + rxt(k,395)*y(k,133) - mat(k,787) = mat(k,787) + rxt(k,474)*y(k,131) - mat(k,1444) = mat(k,1444) + rxt(k,405)*y(k,131) + rxt(k,406)*y(k,133) - mat(k,963) = mat(k,963) + rxt(k,477)*y(k,131) - mat(k,724) = rxt(k,408)*y(k,131) - mat(k,1154) = 1.600_r8*rxt(k,507)*y(k,131) + 2.000_r8*rxt(k,508)*y(k,133) & - + .500_r8*rxt(k,505)*y(k,241) - mat(k,2003) = mat(k,2003) + rxt(k,416)*y(k,1) + rxt(k,207)*y(k,92) & - + .700_r8*rxt(k,436)*y(k,101) + rxt(k,221)*y(k,133) + rxt(k,377) & - *y(k,134) + rxt(k,514)*y(k,218) - mat(k,502) = rxt(k,480)*y(k,131) - mat(k,866) = rxt(k,379)*y(k,131) - mat(k,1264) = rxt(k,383)*y(k,131) - mat(k,1226) = .900_r8*rxt(k,512)*y(k,131) - mat(k,1109) = .800_r8*rxt(k,517)*y(k,131) - mat(k,801) = rxt(k,487)*y(k,131) - mat(k,1281) = rxt(k,453)*y(k,131) + rxt(k,454)*y(k,133) - mat(k,818) = rxt(k,493)*y(k,131) - mat(k,559) = rxt(k,496)*y(k,131) + mat(k,2398) = -rxt(k,505)*y(k,111) + mat(k,2082) = -rxt(k,506)*y(k,111) + mat(k,1815) = -rxt(k,507)*y(k,111) + mat(k,1421) = -(rxt(k,415)*y(k,137) + rxt(k,416)*y(k,265)) + mat(k,2104) = -rxt(k,415)*y(k,112) + mat(k,1842) = -rxt(k,416)*y(k,112) + mat(k,935) = .200_r8*rxt(k,448)*y(k,137) + mat(k,1952) = .560_r8*rxt(k,431)*y(k,245) + mat(k,2423) = .600_r8*rxt(k,432)*y(k,245) + mat(k,2104) = mat(k,2104) + .200_r8*rxt(k,448)*y(k,98) + mat(k,1471) = .610_r8*rxt(k,428)*y(k,245) + mat(k,2179) = .440_r8*rxt(k,429)*y(k,245) + mat(k,1346) = .560_r8*rxt(k,431)*y(k,125) + .600_r8*rxt(k,432)*y(k,127) & + + .610_r8*rxt(k,428)*y(k,236) + .440_r8*rxt(k,429)*y(k,237) + mat(k,1032) = -(rxt(k,211)*y(k,125) + (rxt(k,212) + rxt(k,213) + rxt(k,214) & + ) * y(k,126) + rxt(k,222)*y(k,265) + rxt(k,236)*y(k,136) & + + rxt(k,615)*y(k,264)) + mat(k,1929) = -rxt(k,211)*y(k,113) + mat(k,1665) = -(rxt(k,212) + rxt(k,213) + rxt(k,214)) * y(k,113) + mat(k,1816) = -rxt(k,222)*y(k,113) + mat(k,1581) = -rxt(k,236)*y(k,113) + mat(k,900) = -rxt(k,615)*y(k,113) + mat(k,2038) = rxt(k,210)*y(k,256) + rxt(k,612)*y(k,259) + mat(k,1581) = mat(k,1581) + rxt(k,613)*y(k,259) + mat(k,911) = rxt(k,233)*y(k,256) + 1.100_r8*rxt(k,608)*y(k,257) & + + .200_r8*rxt(k,606)*y(k,258) + mat(k,705) = rxt(k,210)*y(k,135) + rxt(k,233)*y(k,239) + mat(k,678) = 1.100_r8*rxt(k,608)*y(k,239) + mat(k,892) = .200_r8*rxt(k,606)*y(k,239) + mat(k,547) = rxt(k,612)*y(k,135) + rxt(k,613)*y(k,136) + mat(k,317) = -((rxt(k,226) + rxt(k,227)) * y(k,261)) + mat(k,2216) = -(rxt(k,226) + rxt(k,227)) * y(k,114) + mat(k,1026) = rxt(k,212)*y(k,126) + mat(k,1651) = rxt(k,212)*y(k,113) + mat(k,1652) = rxt(k,229)*y(k,127) + mat(k,2389) = rxt(k,229)*y(k,126) + mat(k,463) = -(rxt(k,451)*y(k,265)) + mat(k,1762) = -rxt(k,451)*y(k,116) + mat(k,1290) = .200_r8*rxt(k,443)*y(k,237) + mat(k,2152) = .200_r8*rxt(k,443)*y(k,101) + mat(k,1135) = -(rxt(k,452)*y(k,265)) + mat(k,1824) = -rxt(k,452)*y(k,117) + mat(k,1294) = rxt(k,445)*y(k,125) + rxt(k,446)*y(k,127) + rxt(k,442)*y(k,236) & + + .800_r8*rxt(k,443)*y(k,237) + mat(k,1935) = rxt(k,445)*y(k,101) + mat(k,2405) = rxt(k,446)*y(k,101) + mat(k,1460) = rxt(k,442)*y(k,101) + mat(k,2163) = .800_r8*rxt(k,443)*y(k,101) + mat(k,143) = -(rxt(k,542)*y(k,265)) + mat(k,1717) = -rxt(k,542)*y(k,121) + mat(k,1962) = -(rxt(k,209)*y(k,256) + rxt(k,211)*y(k,113) + rxt(k,219) & + *y(k,127) + rxt(k,223)*y(k,243) + rxt(k,224)*y(k,137) + rxt(k,225) & + *y(k,135) + rxt(k,249)*y(k,59) + rxt(k,281)*y(k,19) + rxt(k,324) & + *y(k,237) + rxt(k,332)*y(k,244) + rxt(k,345)*y(k,233) + rxt(k,356) & + *y(k,236) + rxt(k,360)*y(k,242) + rxt(k,373)*y(k,234) + rxt(k,382) & + *y(k,268) + rxt(k,386)*y(k,269) + (rxt(k,392) + rxt(k,393) & + ) * y(k,240) + (rxt(k,399) + rxt(k,400)) * y(k,250) + rxt(k,408) & + *y(k,252) + rxt(k,411)*y(k,254) + (rxt(k,421) + rxt(k,422) & + ) * y(k,228) + rxt(k,431)*y(k,245) + rxt(k,437)*y(k,246) & + + rxt(k,445)*y(k,101) + rxt(k,456)*y(k,274) + rxt(k,460) & + *y(k,227) + rxt(k,463)*y(k,230) + rxt(k,468)*y(k,232) + rxt(k,470) & + *y(k,235) + rxt(k,474)*y(k,238) + rxt(k,477)*y(k,251) + rxt(k,480) & + *y(k,253) + rxt(k,483)*y(k,267) + rxt(k,490)*y(k,272) + rxt(k,496) & + *y(k,275) + rxt(k,499)*y(k,277) + rxt(k,510)*y(k,260) + rxt(k,515) & + *y(k,270) + rxt(k,520)*y(k,271) + rxt(k,617)*y(k,264)) + mat(k,707) = -rxt(k,209)*y(k,125) + mat(k,1038) = -rxt(k,211)*y(k,125) + mat(k,2434) = -rxt(k,219)*y(k,125) + mat(k,2374) = -rxt(k,223)*y(k,125) + mat(k,2115) = -rxt(k,224)*y(k,125) + mat(k,2051) = -rxt(k,225)*y(k,125) + mat(k,2487) = -rxt(k,249)*y(k,125) + mat(k,1613) = -rxt(k,281)*y(k,125) + mat(k,2188) = -rxt(k,324)*y(k,125) + mat(k,486) = -rxt(k,332)*y(k,125) + mat(k,951) = -rxt(k,345)*y(k,125) + mat(k,1479) = -rxt(k,356)*y(k,125) + mat(k,847) = -rxt(k,360)*y(k,125) + mat(k,986) = -rxt(k,373)*y(k,125) + mat(k,865) = -rxt(k,382)*y(k,125) + mat(k,1267) = -rxt(k,386)*y(k,125) + mat(k,614) = -(rxt(k,392) + rxt(k,393)) * y(k,125) + mat(k,1407) = -(rxt(k,399) + rxt(k,400)) * y(k,125) + mat(k,1447) = -rxt(k,408)*y(k,125) + mat(k,748) = -rxt(k,411)*y(k,125) + mat(k,1094) = -(rxt(k,421) + rxt(k,422)) * y(k,125) + mat(k,1352) = -rxt(k,431)*y(k,125) + mat(k,1385) = -rxt(k,437)*y(k,125) + mat(k,1306) = -rxt(k,445)*y(k,125) + mat(k,1284) = -rxt(k,456)*y(k,125) + mat(k,575) = -rxt(k,460)*y(k,125) + mat(k,537) = -rxt(k,463)*y(k,125) + mat(k,481) = -rxt(k,468)*y(k,125) + mat(k,701) = -rxt(k,470)*y(k,125) + mat(k,828) = -rxt(k,474)*y(k,125) + mat(k,781) = -rxt(k,477)*y(k,125) + mat(k,966) = -rxt(k,480)*y(k,125) + mat(k,506) = -rxt(k,483)*y(k,125) + mat(k,796) = -rxt(k,490)*y(k,125) + mat(k,821) = -rxt(k,496)*y(k,125) + mat(k,563) = -rxt(k,499)*y(k,125) + mat(k,1157) = -rxt(k,510)*y(k,125) + mat(k,1229) = -rxt(k,515)*y(k,125) + mat(k,1112) = -rxt(k,520)*y(k,125) + mat(k,902) = -rxt(k,617)*y(k,125) + mat(k,1038) = mat(k,1038) + 2.000_r8*rxt(k,213)*y(k,126) + rxt(k,236) & + *y(k,136) + rxt(k,222)*y(k,265) + mat(k,319) = 2.000_r8*rxt(k,226)*y(k,261) + mat(k,1682) = 2.000_r8*rxt(k,213)*y(k,113) + rxt(k,215)*y(k,135) + rxt(k,535) & + *y(k,157) + mat(k,2051) = mat(k,2051) + rxt(k,215)*y(k,126) + mat(k,1591) = rxt(k,236)*y(k,113) + rxt(k,234)*y(k,256) + mat(k,1527) = rxt(k,535)*y(k,126) + mat(k,707) = mat(k,707) + rxt(k,234)*y(k,136) + mat(k,2231) = 2.000_r8*rxt(k,226)*y(k,114) + mat(k,1855) = rxt(k,222)*y(k,113) + mat(k,1680) = -((rxt(k,212) + rxt(k,213) + rxt(k,214)) * y(k,113) + (rxt(k,215) & + + rxt(k,217)) * y(k,135) + rxt(k,216)*y(k,137) + rxt(k,228) & + *y(k,243) + rxt(k,229)*y(k,127) + rxt(k,230)*y(k,265) + rxt(k,251) & + *y(k,59) + rxt(k,282)*y(k,19) + rxt(k,367)*y(k,236) + rxt(k,417) & + *y(k,252) + rxt(k,475)*y(k,238) + rxt(k,478)*y(k,251) + rxt(k,481) & + *y(k,253) + rxt(k,485)*y(k,144) + rxt(k,488)*y(k,227) + rxt(k,535) & + *y(k,157)) + mat(k,1036) = -(rxt(k,212) + rxt(k,213) + rxt(k,214)) * y(k,126) + mat(k,2049) = -(rxt(k,215) + rxt(k,217)) * y(k,126) + mat(k,2113) = -rxt(k,216)*y(k,126) + mat(k,2372) = -rxt(k,228)*y(k,126) + mat(k,2432) = -rxt(k,229)*y(k,126) + mat(k,1853) = -rxt(k,230)*y(k,126) + mat(k,2485) = -rxt(k,251)*y(k,126) + mat(k,1611) = -rxt(k,282)*y(k,126) + mat(k,1477) = -rxt(k,367)*y(k,126) + mat(k,1445) = -rxt(k,417)*y(k,126) + mat(k,826) = -rxt(k,475)*y(k,126) + mat(k,780) = -rxt(k,478)*y(k,126) + mat(k,964) = -rxt(k,481)*y(k,126) + mat(k,541) = -rxt(k,485)*y(k,126) + mat(k,573) = -rxt(k,488)*y(k,126) + mat(k,1525) = -rxt(k,535)*y(k,126) + mat(k,738) = rxt(k,419)*y(k,265) + mat(k,407) = rxt(k,390)*y(k,127) + mat(k,1611) = mat(k,1611) + rxt(k,281)*y(k,125) + mat(k,2485) = mat(k,2485) + rxt(k,249)*y(k,125) + mat(k,552) = rxt(k,208)*y(k,265) + mat(k,638) = .700_r8*rxt(k,439)*y(k,265) + mat(k,1304) = rxt(k,445)*y(k,125) + rxt(k,446)*y(k,127) + mat(k,1960) = rxt(k,281)*y(k,19) + rxt(k,249)*y(k,59) + rxt(k,445)*y(k,101) & + + 2.000_r8*rxt(k,219)*y(k,127) + rxt(k,225)*y(k,135) & + + rxt(k,224)*y(k,137) + rxt(k,460)*y(k,227) + rxt(k,421) & + *y(k,228) + rxt(k,463)*y(k,230) + rxt(k,468)*y(k,232) & + + rxt(k,345)*y(k,233) + rxt(k,373)*y(k,234) + rxt(k,470) & + *y(k,235) + rxt(k,356)*y(k,236) + rxt(k,324)*y(k,237) & + + rxt(k,474)*y(k,238) + rxt(k,392)*y(k,240) + rxt(k,360) & + *y(k,242) + rxt(k,223)*y(k,243) + rxt(k,332)*y(k,244) & + + .920_r8*rxt(k,431)*y(k,245) + .920_r8*rxt(k,437)*y(k,246) & + + rxt(k,399)*y(k,250) + rxt(k,477)*y(k,251) + rxt(k,408) & + *y(k,252) + rxt(k,480)*y(k,253) + rxt(k,411)*y(k,254) & + + 1.600_r8*rxt(k,510)*y(k,260) + rxt(k,483)*y(k,267) & + + rxt(k,382)*y(k,268) + rxt(k,386)*y(k,269) + .900_r8*rxt(k,515) & + *y(k,270) + .800_r8*rxt(k,520)*y(k,271) + rxt(k,490)*y(k,272) & + + rxt(k,456)*y(k,274) + rxt(k,496)*y(k,275) + rxt(k,499) & + *y(k,277) + mat(k,2432) = mat(k,2432) + rxt(k,390)*y(k,16) + rxt(k,446)*y(k,101) & + + 2.000_r8*rxt(k,219)*y(k,125) + rxt(k,220)*y(k,135) & + + rxt(k,218)*y(k,243) + rxt(k,432)*y(k,245) + rxt(k,438) & + *y(k,246) + rxt(k,398)*y(k,250) + rxt(k,409)*y(k,252) & + + 2.000_r8*rxt(k,511)*y(k,260) + rxt(k,221)*y(k,265) & + + rxt(k,457)*y(k,274) + mat(k,921) = rxt(k,380)*y(k,265) + mat(k,2049) = mat(k,2049) + rxt(k,225)*y(k,125) + rxt(k,220)*y(k,127) + mat(k,2113) = mat(k,2113) + rxt(k,224)*y(k,125) + mat(k,692) = rxt(k,517)*y(k,265) + mat(k,573) = mat(k,573) + rxt(k,460)*y(k,125) + mat(k,1092) = rxt(k,421)*y(k,125) + mat(k,535) = rxt(k,463)*y(k,125) + mat(k,479) = rxt(k,468)*y(k,125) + mat(k,949) = rxt(k,345)*y(k,125) + mat(k,984) = rxt(k,373)*y(k,125) + mat(k,699) = rxt(k,470)*y(k,125) + mat(k,1477) = mat(k,1477) + rxt(k,356)*y(k,125) + mat(k,2186) = rxt(k,324)*y(k,125) + .500_r8*rxt(k,508)*y(k,260) + mat(k,826) = mat(k,826) + rxt(k,474)*y(k,125) + mat(k,613) = rxt(k,392)*y(k,125) + mat(k,845) = rxt(k,360)*y(k,125) + mat(k,2372) = mat(k,2372) + rxt(k,223)*y(k,125) + rxt(k,218)*y(k,127) + mat(k,485) = rxt(k,332)*y(k,125) + mat(k,1350) = .920_r8*rxt(k,431)*y(k,125) + rxt(k,432)*y(k,127) + mat(k,1383) = .920_r8*rxt(k,437)*y(k,125) + rxt(k,438)*y(k,127) + mat(k,1405) = rxt(k,399)*y(k,125) + rxt(k,398)*y(k,127) + mat(k,780) = mat(k,780) + rxt(k,477)*y(k,125) + mat(k,1445) = mat(k,1445) + rxt(k,408)*y(k,125) + rxt(k,409)*y(k,127) + mat(k,964) = mat(k,964) + rxt(k,480)*y(k,125) + mat(k,746) = rxt(k,411)*y(k,125) + mat(k,1155) = 1.600_r8*rxt(k,510)*y(k,125) + 2.000_r8*rxt(k,511)*y(k,127) & + + .500_r8*rxt(k,508)*y(k,237) + mat(k,1853) = mat(k,1853) + rxt(k,419)*y(k,1) + rxt(k,208)*y(k,90) & + + .700_r8*rxt(k,439)*y(k,99) + rxt(k,221)*y(k,127) + rxt(k,380) & + *y(k,128) + rxt(k,517)*y(k,214) + mat(k,504) = rxt(k,483)*y(k,125) + mat(k,863) = rxt(k,382)*y(k,125) + mat(k,1265) = rxt(k,386)*y(k,125) + mat(k,1227) = .900_r8*rxt(k,515)*y(k,125) + mat(k,1110) = .800_r8*rxt(k,520)*y(k,125) + mat(k,794) = rxt(k,490)*y(k,125) + mat(k,1282) = rxt(k,456)*y(k,125) + rxt(k,457)*y(k,127) + mat(k,819) = rxt(k,496)*y(k,125) + mat(k,561) = rxt(k,499)*y(k,125) end do end subroutine nlnmat05 subroutine nlnmat06( avec_len, mat, y, rxt ) @@ -1255,207 +1227,208 @@ subroutine nlnmat06( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,2067) = -(rxt(k,218)*y(k,247) + rxt(k,219)*y(k,131) + rxt(k,220) & - *y(k,141) + rxt(k,221)*y(k,265) + rxt(k,229)*y(k,132) + rxt(k,315) & - *y(k,44) + rxt(k,347)*y(k,47) + rxt(k,366)*y(k,31) + rxt(k,373) & - *y(k,51) + rxt(k,387)*y(k,18) + rxt(k,395)*y(k,251) + rxt(k,406) & - *y(k,253) + rxt(k,429)*y(k,249) + rxt(k,435)*y(k,250) + rxt(k,438) & - *y(k,100) + rxt(k,443)*y(k,103) + rxt(k,454)*y(k,273) + rxt(k,499) & - *y(k,6) + rxt(k,502)*y(k,116) + rxt(k,508)*y(k,260) + rxt(k,519) & - *y(k,220) + rxt(k,522)*y(k,69)) - mat(k,2212) = -rxt(k,218)*y(k,133) - mat(k,1791) = -rxt(k,219)*y(k,133) - mat(k,2461) = -rxt(k,220)*y(k,133) - mat(k,2007) = -rxt(k,221)*y(k,133) - mat(k,1685) = -rxt(k,229)*y(k,133) - mat(k,2487) = -rxt(k,315)*y(k,133) - mat(k,1199) = -rxt(k,347)*y(k,133) - mat(k,1188) = -rxt(k,366)*y(k,133) - mat(k,1329) = -rxt(k,373)*y(k,133) - mat(k,415) = -rxt(k,387)*y(k,133) - mat(k,1407) = -rxt(k,395)*y(k,133) - mat(k,1447) = -rxt(k,406)*y(k,133) - mat(k,1352) = -rxt(k,429)*y(k,133) - mat(k,1385) = -rxt(k,435)*y(k,133) - mat(k,931) = -rxt(k,438)*y(k,133) - mat(k,1306) = -rxt(k,443)*y(k,133) - mat(k,1284) = -rxt(k,454)*y(k,133) - mat(k,1076) = -rxt(k,499)*y(k,133) - mat(k,1020) = -rxt(k,502)*y(k,133) - mat(k,1157) = -rxt(k,508)*y(k,133) - mat(k,1122) = -rxt(k,519)*y(k,133) - mat(k,352) = -rxt(k,522)*y(k,133) - mat(k,609) = rxt(k,280)*y(k,141) - mat(k,2258) = rxt(k,247)*y(k,62) - mat(k,1032) = rxt(k,247)*y(k,58) + rxt(k,249)*y(k,141) + rxt(k,250)*y(k,265) - mat(k,972) = rxt(k,294)*y(k,91) - mat(k,2302) = rxt(k,294)*y(k,75) + rxt(k,231)*y(k,265) - mat(k,677) = .500_r8*rxt(k,411)*y(k,265) - mat(k,1685) = mat(k,1685) + rxt(k,217)*y(k,141) + rxt(k,216)*y(k,143) - mat(k,2461) = mat(k,2461) + rxt(k,280)*y(k,22) + rxt(k,249)*y(k,62) & - + rxt(k,217)*y(k,132) - mat(k,2418) = rxt(k,216)*y(k,132) - mat(k,585) = rxt(k,362)*y(k,265) - mat(k,2007) = mat(k,2007) + rxt(k,250)*y(k,62) + rxt(k,231)*y(k,91) & - + .500_r8*rxt(k,411)*y(k,115) + rxt(k,362)*y(k,148) - mat(k,936) = -(rxt(k,377)*y(k,265)) - mat(k,1958) = -rxt(k,377)*y(k,134) - mat(k,1175) = rxt(k,366)*y(k,133) - mat(k,597) = .500_r8*rxt(k,437)*y(k,265) - mat(k,445) = rxt(k,444)*y(k,265) - mat(k,494) = rxt(k,448)*y(k,265) - mat(k,1131) = rxt(k,449)*y(k,265) - mat(k,2026) = rxt(k,366)*y(k,31) - mat(k,1958) = mat(k,1958) + .500_r8*rxt(k,437)*y(k,102) + rxt(k,444)*y(k,104) & - + rxt(k,448)*y(k,122) + rxt(k,449)*y(k,123) - mat(k,431) = -(rxt(k,509)*y(k,265)) - mat(k,1907) = -rxt(k,509)*y(k,135) - mat(k,2135) = rxt(k,506)*y(k,260) - mat(k,1146) = rxt(k,506)*y(k,247) - mat(k,2469) = -(rxt(k,187)*y(k,143) + 4._r8*rxt(k,188)*y(k,141) + rxt(k,189) & - *y(k,142) + rxt(k,190)*y(k,79) + rxt(k,191)*y(k,81) + rxt(k,196) & - *y(k,247) + rxt(k,202)*y(k,265) + (rxt(k,215) + rxt(k,217) & - ) * y(k,132) + rxt(k,220)*y(k,133) + rxt(k,225)*y(k,131) & - + rxt(k,249)*y(k,62) + rxt(k,251)*y(k,61) + rxt(k,254)*y(k,87) & - + rxt(k,257)*y(k,94) + rxt(k,280)*y(k,22) + rxt(k,281)*y(k,21) & - + rxt(k,283)*y(k,83) + rxt(k,285)*y(k,93) + rxt(k,316)*y(k,44) & - + rxt(k,524)*y(k,146) + (rxt(k,607) + rxt(k,608)) * y(k,257) & - + rxt(k,609)*y(k,259)) - mat(k,2426) = -rxt(k,187)*y(k,141) - mat(k,1597) = -rxt(k,189)*y(k,141) - mat(k,1515) = -rxt(k,190)*y(k,141) - mat(k,649) = -rxt(k,191)*y(k,141) - mat(k,2220) = -rxt(k,196)*y(k,141) - mat(k,2015) = -rxt(k,202)*y(k,141) - mat(k,1693) = -(rxt(k,215) + rxt(k,217)) * y(k,141) - mat(k,2075) = -rxt(k,220)*y(k,141) - mat(k,1799) = -rxt(k,225)*y(k,141) - mat(k,1035) = -rxt(k,249)*y(k,141) - mat(k,1648) = -rxt(k,251)*y(k,141) - mat(k,1550) = -rxt(k,254)*y(k,141) - mat(k,878) = -rxt(k,257)*y(k,141) - mat(k,611) = -rxt(k,280)*y(k,141) - mat(k,1621) = -rxt(k,281)*y(k,141) - mat(k,886) = -rxt(k,283)*y(k,141) - mat(k,847) = -rxt(k,285)*y(k,141) - mat(k,2495) = -rxt(k,316)*y(k,141) - mat(k,424) = -rxt(k,524)*y(k,141) - mat(k,748) = -(rxt(k,607) + rxt(k,608)) * y(k,141) - mat(k,554) = -rxt(k,609)*y(k,141) - mat(k,2287) = rxt(k,194)*y(k,247) - mat(k,1052) = rxt(k,210)*y(k,131) + rxt(k,211)*y(k,132) + rxt(k,214)*y(k,142) & - + rxt(k,612)*y(k,264) - mat(k,1799) = mat(k,1799) + rxt(k,210)*y(k,119) - mat(k,1693) = mat(k,1693) + rxt(k,211)*y(k,119) - mat(k,1597) = mat(k,1597) + rxt(k,214)*y(k,119) + rxt(k,526)*y(k,159) & - + rxt(k,533)*y(k,161) + rxt(k,611)*y(k,259) + (rxt(k,176) & - +rxt(k,177))*y(k,261) + rxt(k,617)*y(k,266) - mat(k,783) = rxt(k,526)*y(k,142) - mat(k,1532) = rxt(k,533)*y(k,142) - mat(k,916) = rxt(k,603)*y(k,258) + 1.150_r8*rxt(k,604)*y(k,264) - mat(k,2220) = mat(k,2220) + rxt(k,194)*y(k,78) - mat(k,895) = rxt(k,603)*y(k,243) - mat(k,554) = mat(k,554) + rxt(k,611)*y(k,142) - mat(k,1842) = (rxt(k,176)+rxt(k,177))*y(k,142) - mat(k,903) = rxt(k,612)*y(k,119) + 1.150_r8*rxt(k,604)*y(k,243) - mat(k,2015) = mat(k,2015) + 2.000_r8*rxt(k,204)*y(k,265) - mat(k,856) = rxt(k,617)*y(k,142) - mat(k,1586) = -(rxt(k,176)*y(k,261) + rxt(k,181)*y(k,262) + rxt(k,189) & - *y(k,141) + rxt(k,195)*y(k,78) + rxt(k,209)*y(k,256) + rxt(k,214) & - *y(k,119) + rxt(k,359)*y(k,245) + rxt(k,526)*y(k,159) + rxt(k,533) & - *y(k,161) + rxt(k,606)*y(k,257) + (rxt(k,610) + rxt(k,611) & - ) * y(k,259) + rxt(k,617)*y(k,266)) - mat(k,1827) = -rxt(k,176)*y(k,142) - mat(k,224) = -rxt(k,181)*y(k,142) - mat(k,2454) = -rxt(k,189)*y(k,142) - mat(k,2272) = -rxt(k,195)*y(k,142) - mat(k,577) = -rxt(k,209)*y(k,142) - mat(k,1046) = -rxt(k,214)*y(k,142) - mat(k,511) = -rxt(k,359)*y(k,142) - mat(k,779) = -rxt(k,526)*y(k,142) - mat(k,1522) = -rxt(k,533)*y(k,142) - mat(k,745) = -rxt(k,606)*y(k,142) - mat(k,553) = -(rxt(k,610) + rxt(k,611)) * y(k,142) - mat(k,855) = -rxt(k,617)*y(k,142) - mat(k,1556) = rxt(k,272)*y(k,143) + rxt(k,271)*y(k,247) - mat(k,1608) = 2.000_r8*rxt(k,273)*y(k,21) + (rxt(k,275)+rxt(k,276))*y(k,61) & - + rxt(k,281)*y(k,141) + rxt(k,277)*y(k,247) - mat(k,2251) = rxt(k,240)*y(k,143) + rxt(k,238)*y(k,247) - mat(k,1634) = (rxt(k,275)+rxt(k,276))*y(k,21) + (2.000_r8*rxt(k,242) & - +2.000_r8*rxt(k,243))*y(k,61) + rxt(k,251)*y(k,141) & - + rxt(k,245)*y(k,247) + rxt(k,253)*y(k,265) - mat(k,2272) = mat(k,2272) + rxt(k,198)*y(k,143) + rxt(k,192)*y(k,247) - mat(k,522) = rxt(k,207)*y(k,265) - mat(k,1046) = mat(k,1046) + rxt(k,213)*y(k,132) - mat(k,303) = rxt(k,227)*y(k,261) - mat(k,1784) = rxt(k,224)*y(k,143) + rxt(k,614)*y(k,264) - mat(k,1678) = rxt(k,213)*y(k,119) + rxt(k,215)*y(k,141) + rxt(k,216)*y(k,143) - mat(k,2060) = rxt(k,220)*y(k,141) + rxt(k,218)*y(k,247) - mat(k,2454) = mat(k,2454) + rxt(k,281)*y(k,21) + rxt(k,251)*y(k,61) & - + rxt(k,215)*y(k,132) + rxt(k,220)*y(k,133) & - + 2.000_r8*rxt(k,188)*y(k,141) + 2.000_r8*rxt(k,187)*y(k,143) & - + rxt(k,196)*y(k,247) + rxt(k,180)*y(k,262) + rxt(k,202) & + mat(k,2443) = -(rxt(k,218)*y(k,243) + rxt(k,219)*y(k,125) + rxt(k,220) & + *y(k,135) + rxt(k,221)*y(k,265) + rxt(k,229)*y(k,126) + rxt(k,318) & + *y(k,42) + rxt(k,350)*y(k,45) + rxt(k,369)*y(k,29) + rxt(k,376) & + *y(k,49) + rxt(k,390)*y(k,16) + rxt(k,398)*y(k,250) + rxt(k,409) & + *y(k,252) + rxt(k,432)*y(k,245) + rxt(k,438)*y(k,246) + rxt(k,441) & + *y(k,98) + rxt(k,446)*y(k,101) + rxt(k,457)*y(k,274) + rxt(k,502) & + *y(k,6) + rxt(k,505)*y(k,111) + rxt(k,511)*y(k,260) + rxt(k,522) & + *y(k,216) + rxt(k,525)*y(k,67)) + mat(k,2383) = -rxt(k,218)*y(k,127) + mat(k,1971) = -rxt(k,219)*y(k,127) + mat(k,2060) = -rxt(k,220)*y(k,127) + mat(k,1864) = -rxt(k,221)*y(k,127) + mat(k,1691) = -rxt(k,229)*y(k,127) + mat(k,2469) = -rxt(k,318)*y(k,127) + mat(k,1203) = -rxt(k,350)*y(k,127) + mat(k,1193) = -rxt(k,369)*y(k,127) + mat(k,1332) = -rxt(k,376)*y(k,127) + mat(k,409) = -rxt(k,390)*y(k,127) + mat(k,1411) = -rxt(k,398)*y(k,127) + mat(k,1452) = -rxt(k,409)*y(k,127) + mat(k,1357) = -rxt(k,432)*y(k,127) + mat(k,1390) = -rxt(k,438)*y(k,127) + mat(k,941) = -rxt(k,441)*y(k,127) + mat(k,1310) = -rxt(k,446)*y(k,127) + mat(k,1287) = -rxt(k,457)*y(k,127) + mat(k,1079) = -rxt(k,502)*y(k,127) + mat(k,1023) = -rxt(k,505)*y(k,127) + mat(k,1161) = -rxt(k,511)*y(k,127) + mat(k,1124) = -rxt(k,522)*y(k,127) + mat(k,350) = -rxt(k,525)*y(k,127) + mat(k,624) = rxt(k,283)*y(k,135) + mat(k,2017) = rxt(k,250)*y(k,60) + mat(k,1051) = rxt(k,250)*y(k,56) + rxt(k,252)*y(k,135) + rxt(k,253)*y(k,265) + mat(k,977) = rxt(k,297)*y(k,89) + mat(k,2263) = rxt(k,297)*y(k,73) + rxt(k,231)*y(k,265) + mat(k,632) = .500_r8*rxt(k,414)*y(k,265) + mat(k,1691) = mat(k,1691) + rxt(k,217)*y(k,135) + rxt(k,216)*y(k,137) + mat(k,2060) = mat(k,2060) + rxt(k,283)*y(k,20) + rxt(k,252)*y(k,60) & + + rxt(k,217)*y(k,126) + mat(k,2124) = rxt(k,216)*y(k,126) + mat(k,591) = rxt(k,365)*y(k,265) + mat(k,1864) = mat(k,1864) + rxt(k,253)*y(k,60) + rxt(k,231)*y(k,89) & + + .500_r8*rxt(k,414)*y(k,110) + rxt(k,365)*y(k,142) + mat(k,918) = -(rxt(k,380)*y(k,265)) + mat(k,1807) = -rxt(k,380)*y(k,128) + mat(k,1176) = rxt(k,369)*y(k,127) + mat(k,594) = .500_r8*rxt(k,440)*y(k,265) + mat(k,441) = rxt(k,447)*y(k,265) + mat(k,464) = rxt(k,451)*y(k,265) + mat(k,1132) = rxt(k,452)*y(k,265) + mat(k,2394) = rxt(k,369)*y(k,29) + mat(k,1807) = mat(k,1807) + .500_r8*rxt(k,440)*y(k,100) + rxt(k,447)*y(k,102) & + + rxt(k,451)*y(k,116) + rxt(k,452)*y(k,117) + mat(k,489) = -(rxt(k,512)*y(k,265)) + mat(k,1765) = -rxt(k,512)*y(k,129) + mat(k,2306) = rxt(k,509)*y(k,260) + mat(k,1147) = rxt(k,509)*y(k,243) + mat(k,2053) = -(rxt(k,187)*y(k,137) + 4._r8*rxt(k,188)*y(k,135) + rxt(k,189) & + *y(k,136) + rxt(k,190)*y(k,77) + rxt(k,191)*y(k,79) + rxt(k,196) & + *y(k,243) + rxt(k,202)*y(k,265) + (rxt(k,215) + rxt(k,217) & + ) * y(k,126) + rxt(k,220)*y(k,127) + rxt(k,225)*y(k,125) & + + rxt(k,252)*y(k,60) + rxt(k,254)*y(k,59) + rxt(k,257)*y(k,85) & + + rxt(k,260)*y(k,92) + rxt(k,283)*y(k,20) + rxt(k,284)*y(k,19) & + + rxt(k,286)*y(k,81) + rxt(k,288)*y(k,91) + rxt(k,319)*y(k,42) & + + rxt(k,527)*y(k,140) + (rxt(k,610) + rxt(k,611)) * y(k,257) & + + rxt(k,612)*y(k,259)) + mat(k,2117) = -rxt(k,187)*y(k,135) + mat(k,1593) = -rxt(k,189)*y(k,135) + mat(k,1511) = -rxt(k,190)*y(k,135) + mat(k,647) = -rxt(k,191)*y(k,135) + mat(k,2376) = -rxt(k,196)*y(k,135) + mat(k,1857) = -rxt(k,202)*y(k,135) + mat(k,1684) = -(rxt(k,215) + rxt(k,217)) * y(k,135) + mat(k,2436) = -rxt(k,220)*y(k,135) + mat(k,1964) = -rxt(k,225)*y(k,135) + mat(k,1049) = -rxt(k,252)*y(k,135) + mat(k,2489) = -rxt(k,254)*y(k,135) + mat(k,1546) = -rxt(k,257)*y(k,135) + mat(k,886) = -rxt(k,260)*y(k,135) + mat(k,622) = -rxt(k,283)*y(k,135) + mat(k,1615) = -rxt(k,284)*y(k,135) + mat(k,877) = -rxt(k,286)*y(k,135) + mat(k,838) = -rxt(k,288)*y(k,135) + mat(k,2462) = -rxt(k,319)*y(k,135) + mat(k,425) = -rxt(k,527)*y(k,135) + mat(k,680) = -(rxt(k,610) + rxt(k,611)) * y(k,135) + mat(k,549) = -rxt(k,612)*y(k,135) + mat(k,2138) = rxt(k,194)*y(k,243) + mat(k,1039) = rxt(k,211)*y(k,125) + rxt(k,212)*y(k,126) + rxt(k,236)*y(k,136) & + + rxt(k,615)*y(k,264) + mat(k,1964) = mat(k,1964) + rxt(k,211)*y(k,113) + rxt(k,209)*y(k,256) + mat(k,1684) = mat(k,1684) + rxt(k,212)*y(k,113) + mat(k,1593) = mat(k,1593) + rxt(k,236)*y(k,113) + rxt(k,529)*y(k,155) & + + rxt(k,536)*y(k,157) + rxt(k,614)*y(k,259) + (rxt(k,176) & + +rxt(k,177))*y(k,261) + rxt(k,620)*y(k,266) + mat(k,759) = rxt(k,529)*y(k,136) + mat(k,1529) = rxt(k,536)*y(k,136) + mat(k,916) = rxt(k,606)*y(k,258) + 1.150_r8*rxt(k,607)*y(k,264) + mat(k,2376) = mat(k,2376) + rxt(k,194)*y(k,76) + mat(k,708) = rxt(k,209)*y(k,125) + mat(k,895) = rxt(k,606)*y(k,239) + mat(k,549) = mat(k,549) + rxt(k,614)*y(k,136) + mat(k,2233) = (rxt(k,176)+rxt(k,177))*y(k,136) + mat(k,903) = rxt(k,615)*y(k,113) + 1.150_r8*rxt(k,607)*y(k,239) + mat(k,1857) = mat(k,1857) + 2.000_r8*rxt(k,204)*y(k,265) + mat(k,857) = rxt(k,620)*y(k,136) + mat(k,1587) = -(rxt(k,176)*y(k,261) + rxt(k,181)*y(k,262) + rxt(k,189) & + *y(k,135) + rxt(k,195)*y(k,76) + rxt(k,234)*y(k,256) + rxt(k,236) & + *y(k,113) + rxt(k,362)*y(k,241) + rxt(k,529)*y(k,155) + rxt(k,536) & + *y(k,157) + rxt(k,609)*y(k,257) + (rxt(k,613) + rxt(k,614) & + ) * y(k,259) + rxt(k,620)*y(k,266)) + mat(k,2226) = -rxt(k,176)*y(k,136) + mat(k,226) = -rxt(k,181)*y(k,136) + mat(k,2046) = -rxt(k,189)*y(k,136) + mat(k,2131) = -rxt(k,195)*y(k,136) + mat(k,706) = -rxt(k,234)*y(k,136) + mat(k,1035) = -rxt(k,236)*y(k,136) + mat(k,513) = -rxt(k,362)*y(k,136) + mat(k,757) = -rxt(k,529)*y(k,136) + mat(k,1523) = -rxt(k,536)*y(k,136) + mat(k,679) = -rxt(k,609)*y(k,136) + mat(k,548) = -(rxt(k,613) + rxt(k,614)) * y(k,136) + mat(k,856) = -rxt(k,620)*y(k,136) + mat(k,1557) = rxt(k,275)*y(k,137) + rxt(k,274)*y(k,243) + mat(k,1609) = 2.000_r8*rxt(k,276)*y(k,19) + (rxt(k,278)+rxt(k,279))*y(k,59) & + + rxt(k,284)*y(k,135) + rxt(k,280)*y(k,243) + mat(k,2003) = rxt(k,243)*y(k,137) + rxt(k,241)*y(k,243) + mat(k,2483) = (rxt(k,278)+rxt(k,279))*y(k,19) + (2.000_r8*rxt(k,245) & + +2.000_r8*rxt(k,246))*y(k,59) + rxt(k,254)*y(k,135) & + + rxt(k,248)*y(k,243) + rxt(k,256)*y(k,265) + mat(k,2131) = mat(k,2131) + rxt(k,198)*y(k,137) + rxt(k,192)*y(k,243) + mat(k,551) = rxt(k,208)*y(k,265) + mat(k,1035) = mat(k,1035) + rxt(k,214)*y(k,126) + mat(k,318) = rxt(k,227)*y(k,261) + mat(k,1957) = rxt(k,224)*y(k,137) + rxt(k,617)*y(k,264) + mat(k,1677) = rxt(k,214)*y(k,113) + rxt(k,215)*y(k,135) + rxt(k,216)*y(k,137) + mat(k,2429) = rxt(k,220)*y(k,135) + rxt(k,218)*y(k,243) + mat(k,2046) = mat(k,2046) + rxt(k,284)*y(k,19) + rxt(k,254)*y(k,59) & + + rxt(k,215)*y(k,126) + rxt(k,220)*y(k,127) & + + 2.000_r8*rxt(k,188)*y(k,135) + 2.000_r8*rxt(k,187)*y(k,137) & + + rxt(k,196)*y(k,243) + rxt(k,180)*y(k,262) + rxt(k,202) & *y(k,265) - mat(k,1586) = mat(k,1586) + 2.000_r8*rxt(k,181)*y(k,262) - mat(k,2411) = rxt(k,272)*y(k,19) + rxt(k,240)*y(k,58) + rxt(k,198)*y(k,78) & - + rxt(k,224)*y(k,131) + rxt(k,216)*y(k,132) & - + 2.000_r8*rxt(k,187)*y(k,141) + rxt(k,528)*y(k,159) & - + rxt(k,534)*y(k,161) + 2.000_r8*rxt(k,197)*y(k,247) & + mat(k,1587) = mat(k,1587) + 2.000_r8*rxt(k,181)*y(k,262) + mat(k,2110) = rxt(k,275)*y(k,17) + rxt(k,243)*y(k,56) + rxt(k,198)*y(k,76) & + + rxt(k,224)*y(k,125) + rxt(k,216)*y(k,126) & + + 2.000_r8*rxt(k,187)*y(k,135) + rxt(k,531)*y(k,155) & + + rxt(k,537)*y(k,157) + 2.000_r8*rxt(k,197)*y(k,243) & + 2.000_r8*rxt(k,178)*y(k,261) + rxt(k,203)*y(k,265) - mat(k,779) = mat(k,779) + rxt(k,528)*y(k,143) - mat(k,1522) = mat(k,1522) + rxt(k,534)*y(k,143) - mat(k,952) = rxt(k,341)*y(k,247) - mat(k,982) = rxt(k,369)*y(k,247) - mat(k,2347) = rxt(k,320)*y(k,247) - mat(k,2205) = rxt(k,271)*y(k,19) + rxt(k,277)*y(k,21) + rxt(k,238)*y(k,58) & - + rxt(k,245)*y(k,61) + rxt(k,192)*y(k,78) + rxt(k,218)*y(k,133) & - + rxt(k,196)*y(k,141) + 2.000_r8*rxt(k,197)*y(k,143) & - + rxt(k,341)*y(k,237) + rxt(k,369)*y(k,238) + rxt(k,320) & - *y(k,241) + 2.000_r8*rxt(k,206)*y(k,247) + rxt(k,201)*y(k,265) & - + rxt(k,378)*y(k,268) - mat(k,1827) = mat(k,1827) + rxt(k,227)*y(k,120) + 2.000_r8*rxt(k,178) & - *y(k,143) - mat(k,224) = mat(k,224) + rxt(k,180)*y(k,141) + 2.000_r8*rxt(k,181)*y(k,142) - mat(k,900) = rxt(k,614)*y(k,131) - mat(k,2000) = rxt(k,253)*y(k,61) + rxt(k,207)*y(k,92) + rxt(k,202)*y(k,141) & - + rxt(k,203)*y(k,143) + rxt(k,201)*y(k,247) - mat(k,865) = rxt(k,378)*y(k,247) - mat(k,2425) = -(rxt(k,178)*y(k,261) + rxt(k,187)*y(k,141) + rxt(k,197) & - *y(k,247) + rxt(k,198)*y(k,78) + rxt(k,203)*y(k,265) + rxt(k,216) & - *y(k,132) + rxt(k,224)*y(k,131) + rxt(k,240)*y(k,58) + rxt(k,272) & - *y(k,19) + rxt(k,338)*y(k,27) + rxt(k,367)*y(k,31) + rxt(k,398) & - *y(k,111) + rxt(k,412)*y(k,118) + rxt(k,445)*y(k,100) + rxt(k,483) & - *y(k,150) + rxt(k,500)*y(k,6) + rxt(k,503)*y(k,116) + rxt(k,528) & - *y(k,159) + rxt(k,534)*y(k,161)) - mat(k,1841) = -rxt(k,178)*y(k,143) - mat(k,2468) = -rxt(k,187)*y(k,143) - mat(k,2219) = -rxt(k,197)*y(k,143) - mat(k,2286) = -rxt(k,198)*y(k,143) - mat(k,2014) = -rxt(k,203)*y(k,143) - mat(k,1692) = -rxt(k,216)*y(k,143) - mat(k,1798) = -rxt(k,224)*y(k,143) - mat(k,2265) = -rxt(k,240)*y(k,143) - mat(k,1564) = -rxt(k,272)*y(k,143) - mat(k,626) = -rxt(k,338)*y(k,143) - mat(k,1192) = -rxt(k,367)*y(k,143) - mat(k,1321) = -rxt(k,398)*y(k,143) - mat(k,1433) = -rxt(k,412)*y(k,143) - mat(k,934) = -rxt(k,445)*y(k,143) - mat(k,538) = -rxt(k,483)*y(k,143) - mat(k,1078) = -rxt(k,500)*y(k,143) - mat(k,1022) = -rxt(k,503)*y(k,143) - mat(k,782) = -rxt(k,528)*y(k,143) - mat(k,1531) = -rxt(k,534)*y(k,143) - mat(k,2468) = mat(k,2468) + rxt(k,189)*y(k,142) - mat(k,1596) = rxt(k,189)*y(k,141) - mat(k,1483) = .150_r8*rxt(k,352)*y(k,247) - mat(k,2219) = mat(k,2219) + .150_r8*rxt(k,352)*y(k,240) + .150_r8*rxt(k,403) & - *y(k,253) - mat(k,1451) = .150_r8*rxt(k,403)*y(k,247) - mat(k,362) = -(rxt(k,535)*y(k,161)) - mat(k,1517) = -rxt(k,535)*y(k,145) - mat(k,1601) = rxt(k,274)*y(k,61) - mat(k,1627) = rxt(k,274)*y(k,21) + 2.000_r8*rxt(k,244)*y(k,61) + mat(k,757) = mat(k,757) + rxt(k,531)*y(k,137) + mat(k,1523) = mat(k,1523) + rxt(k,537)*y(k,137) + mat(k,948) = rxt(k,344)*y(k,243) + mat(k,983) = rxt(k,372)*y(k,243) + mat(k,2183) = rxt(k,323)*y(k,243) + mat(k,2369) = rxt(k,274)*y(k,17) + rxt(k,280)*y(k,19) + rxt(k,241)*y(k,56) & + + rxt(k,248)*y(k,59) + rxt(k,192)*y(k,76) + rxt(k,218)*y(k,127) & + + rxt(k,196)*y(k,135) + 2.000_r8*rxt(k,197)*y(k,137) & + + rxt(k,344)*y(k,233) + rxt(k,372)*y(k,234) + rxt(k,323) & + *y(k,237) + 2.000_r8*rxt(k,206)*y(k,243) + rxt(k,201)*y(k,265) & + + rxt(k,381)*y(k,268) + mat(k,2226) = mat(k,2226) + rxt(k,227)*y(k,114) + 2.000_r8*rxt(k,178) & + *y(k,137) + mat(k,226) = mat(k,226) + rxt(k,180)*y(k,135) + 2.000_r8*rxt(k,181)*y(k,136) + mat(k,901) = rxt(k,617)*y(k,125) + mat(k,1850) = rxt(k,256)*y(k,59) + rxt(k,208)*y(k,90) + rxt(k,202)*y(k,135) & + + rxt(k,203)*y(k,137) + rxt(k,201)*y(k,243) + mat(k,862) = rxt(k,381)*y(k,243) + mat(k,2118) = -(rxt(k,178)*y(k,261) + rxt(k,187)*y(k,135) + rxt(k,197) & + *y(k,243) + rxt(k,198)*y(k,76) + rxt(k,203)*y(k,265) + rxt(k,216) & + *y(k,126) + rxt(k,224)*y(k,125) + rxt(k,243)*y(k,56) + rxt(k,275) & + *y(k,17) + rxt(k,341)*y(k,25) + rxt(k,370)*y(k,29) + rxt(k,401) & + *y(k,106) + rxt(k,415)*y(k,112) + rxt(k,448)*y(k,98) + rxt(k,486) & + *y(k,144) + rxt(k,503)*y(k,6) + rxt(k,506)*y(k,111) + rxt(k,531) & + *y(k,155) + rxt(k,537)*y(k,157)) + mat(k,2234) = -rxt(k,178)*y(k,137) + mat(k,2054) = -rxt(k,187)*y(k,137) + mat(k,2377) = -rxt(k,197)*y(k,137) + mat(k,2139) = -rxt(k,198)*y(k,137) + mat(k,1858) = -rxt(k,203)*y(k,137) + mat(k,1685) = -rxt(k,216)*y(k,137) + mat(k,1965) = -rxt(k,224)*y(k,137) + mat(k,2011) = -rxt(k,243)*y(k,137) + mat(k,1563) = -rxt(k,275)*y(k,137) + mat(k,582) = -rxt(k,341)*y(k,137) + mat(k,1190) = -rxt(k,370)*y(k,137) + mat(k,1321) = -rxt(k,401)*y(k,137) + mat(k,1430) = -rxt(k,415)*y(k,137) + mat(k,938) = -rxt(k,448)*y(k,137) + mat(k,542) = -rxt(k,486)*y(k,137) + mat(k,1077) = -rxt(k,503)*y(k,137) + mat(k,1021) = -rxt(k,506)*y(k,137) + mat(k,760) = -rxt(k,531)*y(k,137) + mat(k,1530) = -rxt(k,537)*y(k,137) + mat(k,2054) = mat(k,2054) + rxt(k,189)*y(k,136) + mat(k,1594) = rxt(k,189)*y(k,135) + mat(k,1480) = .150_r8*rxt(k,355)*y(k,243) + mat(k,2377) = mat(k,2377) + .150_r8*rxt(k,355)*y(k,236) + .150_r8*rxt(k,406) & + *y(k,252) + mat(k,1448) = .150_r8*rxt(k,406)*y(k,243) + mat(k,393) = -(rxt(k,538)*y(k,157)) + mat(k,1518) = -rxt(k,538)*y(k,139) + mat(k,1602) = rxt(k,277)*y(k,59) + mat(k,2476) = rxt(k,277)*y(k,19) + 2.000_r8*rxt(k,247)*y(k,59) end do end subroutine nlnmat06 subroutine nlnmat07( avec_len, mat, y, rxt ) @@ -1476,218 +1449,216 @@ subroutine nlnmat07( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,417) = -(rxt(k,524)*y(k,141) + rxt(k,525)*y(k,265)) - mat(k,2431) = -rxt(k,524)*y(k,146) - mat(k,1905) = -rxt(k,525)*y(k,146) - mat(k,1234) = rxt(k,391)*y(k,265) - mat(k,1719) = .100_r8*rxt(k,512)*y(k,270) - mat(k,1883) = rxt(k,391)*y(k,95) - mat(k,1215) = .100_r8*rxt(k,512)*y(k,131) - mat(k,580) = -(rxt(k,362)*y(k,265)) - mat(k,1926) = -rxt(k,362)*y(k,148) - mat(k,1657) = rxt(k,364)*y(k,240) - mat(k,1455) = rxt(k,364)*y(k,132) - mat(k,1651) = rxt(k,485)*y(k,233) - mat(k,568) = rxt(k,485)*y(k,132) - mat(k,535) = -(rxt(k,482)*y(k,132) + rxt(k,483)*y(k,143)) - mat(k,1655) = -rxt(k,482)*y(k,150) - mat(k,2374) = -rxt(k,483)*y(k,150) - mat(k,238) = .070_r8*rxt(k,469)*y(k,265) - mat(k,1729) = rxt(k,467)*y(k,239) - mat(k,220) = .060_r8*rxt(k,481)*y(k,265) - mat(k,263) = .070_r8*rxt(k,497)*y(k,265) - mat(k,691) = rxt(k,467)*y(k,131) - mat(k,1921) = .070_r8*rxt(k,469)*y(k,68) + .060_r8*rxt(k,481)*y(k,151) & - + .070_r8*rxt(k,497)*y(k,229) - mat(k,218) = -(rxt(k,481)*y(k,265)) - mat(k,1873) = -rxt(k,481)*y(k,151) - mat(k,210) = .530_r8*rxt(k,458)*y(k,265) - mat(k,1873) = mat(k,1873) + .530_r8*rxt(k,458)*y(k,8) - mat(k,367) = -(rxt(k,484)*y(k,265)) - mat(k,1897) = -rxt(k,484)*y(k,152) - mat(k,2129) = rxt(k,479)*y(k,267) - mat(k,499) = rxt(k,479)*y(k,247) - mat(k,588) = -(rxt(k,380)*y(k,265)) - mat(k,1927) = -rxt(k,380)*y(k,157) - mat(k,2152) = rxt(k,378)*y(k,268) - mat(k,861) = rxt(k,378)*y(k,247) - mat(k,425) = -(rxt(k,384)*y(k,265)) - mat(k,1906) = -rxt(k,384)*y(k,158) - mat(k,2134) = .850_r8*rxt(k,382)*y(k,269) - mat(k,1258) = .850_r8*rxt(k,382)*y(k,247) - mat(k,777) = -(rxt(k,526)*y(k,142) + rxt(k,528)*y(k,143) + rxt(k,531) & + mat(k,419) = -(rxt(k,527)*y(k,135) + rxt(k,528)*y(k,265)) + mat(k,2023) = -rxt(k,527)*y(k,140) + mat(k,1755) = -rxt(k,528)*y(k,140) + mat(k,1235) = rxt(k,394)*y(k,265) + mat(k,1891) = .100_r8*rxt(k,515)*y(k,270) + mat(k,1732) = rxt(k,394)*y(k,93) + mat(k,1216) = .100_r8*rxt(k,515)*y(k,125) + mat(k,585) = -(rxt(k,365)*y(k,265)) + mat(k,1777) = -rxt(k,365)*y(k,142) + mat(k,1656) = rxt(k,367)*y(k,236) + mat(k,1456) = rxt(k,367)*y(k,126) + mat(k,1650) = rxt(k,488)*y(k,227) + mat(k,570) = rxt(k,488)*y(k,126) + mat(k,539) = -(rxt(k,485)*y(k,126) + rxt(k,486)*y(k,137)) + mat(k,1653) = -rxt(k,485)*y(k,144) + mat(k,2073) = -rxt(k,486)*y(k,144) + mat(k,240) = .070_r8*rxt(k,472)*y(k,265) + mat(k,1902) = rxt(k,470)*y(k,235) + mat(k,222) = .060_r8*rxt(k,484)*y(k,265) + mat(k,265) = .070_r8*rxt(k,500)*y(k,265) + mat(k,697) = rxt(k,470)*y(k,125) + mat(k,1771) = .070_r8*rxt(k,472)*y(k,66) + .060_r8*rxt(k,484)*y(k,145) & + + .070_r8*rxt(k,500)*y(k,223) + mat(k,220) = -(rxt(k,484)*y(k,265)) + mat(k,1723) = -rxt(k,484)*y(k,145) + mat(k,212) = .530_r8*rxt(k,461)*y(k,265) + mat(k,1723) = mat(k,1723) + .530_r8*rxt(k,461)*y(k,7) + mat(k,364) = -(rxt(k,487)*y(k,265)) + mat(k,1747) = -rxt(k,487)*y(k,146) + mat(k,2293) = rxt(k,482)*y(k,267) + mat(k,501) = rxt(k,482)*y(k,243) + mat(k,601) = -(rxt(k,383)*y(k,265)) + mat(k,1779) = -rxt(k,383)*y(k,153) + mat(k,2316) = rxt(k,381)*y(k,268) + mat(k,858) = rxt(k,381)*y(k,243) + mat(k,427) = -(rxt(k,387)*y(k,265)) + mat(k,1756) = -rxt(k,387)*y(k,154) + mat(k,2298) = .850_r8*rxt(k,385)*y(k,269) + mat(k,1259) = .850_r8*rxt(k,385)*y(k,243) + mat(k,755) = -(rxt(k,529)*y(k,136) + rxt(k,531)*y(k,137) + rxt(k,534) & *y(k,265)) - mat(k,1574) = -rxt(k,526)*y(k,159) - mat(k,2378) = -rxt(k,528)*y(k,159) - mat(k,1947) = -rxt(k,531)*y(k,159) - mat(k,1520) = -(rxt(k,529)*y(k,21) + rxt(k,530)*y(k,61) + rxt(k,532)*y(k,132) & - + rxt(k,533)*y(k,142) + rxt(k,534)*y(k,143) + rxt(k,535) & - *y(k,145) + rxt(k,536)*y(k,265)) - mat(k,1605) = -rxt(k,529)*y(k,161) - mat(k,1631) = -rxt(k,530)*y(k,161) - mat(k,1675) = -rxt(k,532)*y(k,161) - mat(k,1584) = -rxt(k,533)*y(k,161) - mat(k,2409) = -rxt(k,534)*y(k,161) - mat(k,364) = -rxt(k,535)*y(k,161) - mat(k,1997) = -rxt(k,536)*y(k,161) - mat(k,2451) = rxt(k,524)*y(k,146) - mat(k,1584) = mat(k,1584) + rxt(k,526)*y(k,159) - mat(k,2409) = mat(k,2409) + rxt(k,528)*y(k,159) - mat(k,421) = rxt(k,524)*y(k,141) - mat(k,778) = rxt(k,526)*y(k,142) + rxt(k,528)*y(k,143) + rxt(k,531)*y(k,265) - mat(k,1997) = mat(k,1997) + rxt(k,531)*y(k,159) - mat(k,991) = -(rxt(k,527)*y(k,265)) - mat(k,1964) = -rxt(k,527)*y(k,162) - mat(k,1604) = rxt(k,529)*y(k,161) - mat(k,1629) = rxt(k,530)*y(k,161) - mat(k,350) = rxt(k,522)*y(k,133) + (rxt(k,523)+.500_r8*rxt(k,537))*y(k,265) - mat(k,1665) = rxt(k,532)*y(k,161) - mat(k,2028) = rxt(k,522)*y(k,69) - mat(k,1579) = rxt(k,533)*y(k,161) - mat(k,2382) = rxt(k,534)*y(k,161) - mat(k,363) = rxt(k,535)*y(k,161) - mat(k,419) = rxt(k,525)*y(k,265) - mat(k,1519) = rxt(k,529)*y(k,21) + rxt(k,530)*y(k,61) + rxt(k,532)*y(k,132) & - + rxt(k,533)*y(k,142) + rxt(k,534)*y(k,143) + rxt(k,535) & - *y(k,145) + rxt(k,536)*y(k,265) - mat(k,1964) = mat(k,1964) + (rxt(k,523)+.500_r8*rxt(k,537))*y(k,69) & - + rxt(k,525)*y(k,146) + rxt(k,536)*y(k,161) - mat(k,307) = -(rxt(k,538)*y(k,276)) - mat(k,2499) = -rxt(k,538)*y(k,163) - mat(k,990) = rxt(k,527)*y(k,265) - mat(k,1889) = rxt(k,527)*y(k,162) - mat(k,66) = .1056005_r8*rxt(k,567)*y(k,131) + .2381005_r8*rxt(k,566)*y(k,247) - mat(k,1696) = .1056005_r8*rxt(k,567)*y(k,108) - mat(k,117) = .5931005_r8*rxt(k,577)*y(k,265) - mat(k,2103) = .2381005_r8*rxt(k,566)*y(k,108) - mat(k,1845) = .5931005_r8*rxt(k,577)*y(k,214) - mat(k,67) = .1026005_r8*rxt(k,567)*y(k,131) + .1308005_r8*rxt(k,566)*y(k,247) - mat(k,1697) = .1026005_r8*rxt(k,567)*y(k,108) - mat(k,118) = .1534005_r8*rxt(k,577)*y(k,265) - mat(k,2104) = .1308005_r8*rxt(k,566)*y(k,108) - mat(k,1846) = .1534005_r8*rxt(k,577)*y(k,214) - mat(k,68) = .0521005_r8*rxt(k,567)*y(k,131) + .0348005_r8*rxt(k,566)*y(k,247) - mat(k,1698) = .0521005_r8*rxt(k,567)*y(k,108) - mat(k,119) = .0459005_r8*rxt(k,577)*y(k,265) - mat(k,2105) = .0348005_r8*rxt(k,566)*y(k,108) - mat(k,1847) = .0459005_r8*rxt(k,577)*y(k,214) - mat(k,69) = .0143005_r8*rxt(k,567)*y(k,131) + .0076005_r8*rxt(k,566)*y(k,247) - mat(k,1699) = .0143005_r8*rxt(k,567)*y(k,108) - mat(k,120) = .0085005_r8*rxt(k,577)*y(k,265) - mat(k,2106) = .0076005_r8*rxt(k,566)*y(k,108) - mat(k,1848) = .0085005_r8*rxt(k,577)*y(k,214) - mat(k,70) = .0166005_r8*rxt(k,567)*y(k,131) + .0113005_r8*rxt(k,566)*y(k,247) - mat(k,1700) = .0166005_r8*rxt(k,567)*y(k,108) - mat(k,121) = .0128005_r8*rxt(k,577)*y(k,265) - mat(k,2107) = .0113005_r8*rxt(k,566)*y(k,108) - mat(k,1849) = .0128005_r8*rxt(k,577)*y(k,214) - mat(k,1053) = .2202005_r8*rxt(k,556)*y(k,143) - mat(k,91) = .1279005_r8*rxt(k,555)*y(k,131) + .2202005_r8*rxt(k,554)*y(k,247) - mat(k,79) = .0003005_r8*rxt(k,563)*y(k,131) + .0031005_r8*rxt(k,562)*y(k,247) - mat(k,997) = .0508005_r8*rxt(k,575)*y(k,143) - mat(k,85) = .0245005_r8*rxt(k,574)*y(k,131) + .0508005_r8*rxt(k,573)*y(k,247) - mat(k,1702) = .1279005_r8*rxt(k,555)*y(k,7) + .0003005_r8*rxt(k,563)*y(k,105) & - + .0245005_r8*rxt(k,574)*y(k,117) - mat(k,2365) = .2202005_r8*rxt(k,556)*y(k,6) + .0508005_r8*rxt(k,575)*y(k,116) - mat(k,2109) = .2202005_r8*rxt(k,554)*y(k,7) + .0031005_r8*rxt(k,562)*y(k,105) & - + .0508005_r8*rxt(k,573)*y(k,117) - mat(k,1054) = .2067005_r8*rxt(k,556)*y(k,143) - mat(k,92) = .1792005_r8*rxt(k,555)*y(k,131) + .2067005_r8*rxt(k,554)*y(k,247) - mat(k,80) = .0003005_r8*rxt(k,563)*y(k,131) + .0035005_r8*rxt(k,562)*y(k,247) - mat(k,998) = .1149005_r8*rxt(k,575)*y(k,143) - mat(k,86) = .0082005_r8*rxt(k,574)*y(k,131) + .1149005_r8*rxt(k,573)*y(k,247) - mat(k,1703) = .1792005_r8*rxt(k,555)*y(k,7) + .0003005_r8*rxt(k,563)*y(k,105) & - + .0082005_r8*rxt(k,574)*y(k,117) - mat(k,2366) = .2067005_r8*rxt(k,556)*y(k,6) + .1149005_r8*rxt(k,575)*y(k,116) - mat(k,2110) = .2067005_r8*rxt(k,554)*y(k,7) + .0035005_r8*rxt(k,562)*y(k,105) & - + .1149005_r8*rxt(k,573)*y(k,117) - mat(k,1055) = .0653005_r8*rxt(k,556)*y(k,143) - mat(k,93) = .0676005_r8*rxt(k,555)*y(k,131) + .0653005_r8*rxt(k,554)*y(k,247) - mat(k,81) = .0073005_r8*rxt(k,563)*y(k,131) + .0003005_r8*rxt(k,562)*y(k,247) - mat(k,999) = .0348005_r8*rxt(k,575)*y(k,143) - mat(k,87) = .0772005_r8*rxt(k,574)*y(k,131) + .0348005_r8*rxt(k,573)*y(k,247) - mat(k,1704) = .0676005_r8*rxt(k,555)*y(k,7) + .0073005_r8*rxt(k,563)*y(k,105) & - + .0772005_r8*rxt(k,574)*y(k,117) - mat(k,2367) = .0653005_r8*rxt(k,556)*y(k,6) + .0348005_r8*rxt(k,575)*y(k,116) - mat(k,2111) = .0653005_r8*rxt(k,554)*y(k,7) + .0003005_r8*rxt(k,562)*y(k,105) & - + .0348005_r8*rxt(k,573)*y(k,117) - mat(k,1056) = .1749305_r8*rxt(k,553)*y(k,133) + .1284005_r8*rxt(k,556) & - *y(k,143) - mat(k,94) = .079_r8*rxt(k,555)*y(k,131) + .1284005_r8*rxt(k,554)*y(k,247) - mat(k,917) = .0590245_r8*rxt(k,561)*y(k,133) + .0033005_r8*rxt(k,564) & - *y(k,143) - mat(k,82) = .0057005_r8*rxt(k,563)*y(k,131) + .0271005_r8*rxt(k,562)*y(k,247) - mat(k,1000) = .1749305_r8*rxt(k,572)*y(k,133) + .0554005_r8*rxt(k,575) & - *y(k,143) - mat(k,88) = .0332005_r8*rxt(k,574)*y(k,131) + .0554005_r8*rxt(k,573)*y(k,247) - mat(k,1705) = .079_r8*rxt(k,555)*y(k,7) + .0057005_r8*rxt(k,563)*y(k,105) & - + .0332005_r8*rxt(k,574)*y(k,117) - mat(k,2018) = .1749305_r8*rxt(k,553)*y(k,6) + .0590245_r8*rxt(k,561)*y(k,100) & - + .1749305_r8*rxt(k,572)*y(k,116) - mat(k,2368) = .1284005_r8*rxt(k,556)*y(k,6) + .0033005_r8*rxt(k,564)*y(k,100) & - + .0554005_r8*rxt(k,575)*y(k,116) - mat(k,2112) = .1284005_r8*rxt(k,554)*y(k,7) + .0271005_r8*rxt(k,562)*y(k,105) & - + .0554005_r8*rxt(k,573)*y(k,117) - mat(k,1057) = .5901905_r8*rxt(k,553)*y(k,133) + .114_r8*rxt(k,556)*y(k,143) - mat(k,95) = .1254005_r8*rxt(k,555)*y(k,131) + .114_r8*rxt(k,554)*y(k,247) - mat(k,918) = .0250245_r8*rxt(k,561)*y(k,133) - mat(k,83) = .0623005_r8*rxt(k,563)*y(k,131) + .0474005_r8*rxt(k,562)*y(k,247) - mat(k,1001) = .5901905_r8*rxt(k,572)*y(k,133) + .1278005_r8*rxt(k,575) & - *y(k,143) - mat(k,89) = .130_r8*rxt(k,574)*y(k,131) + .1278005_r8*rxt(k,573)*y(k,247) - mat(k,1706) = .1254005_r8*rxt(k,555)*y(k,7) + .0623005_r8*rxt(k,563)*y(k,105) & - + .130_r8*rxt(k,574)*y(k,117) - mat(k,2019) = .5901905_r8*rxt(k,553)*y(k,6) + .0250245_r8*rxt(k,561)*y(k,100) & - + .5901905_r8*rxt(k,572)*y(k,116) - mat(k,2369) = .114_r8*rxt(k,556)*y(k,6) + .1278005_r8*rxt(k,575)*y(k,116) - mat(k,2113) = .114_r8*rxt(k,554)*y(k,7) + .0474005_r8*rxt(k,562)*y(k,105) & - + .1278005_r8*rxt(k,573)*y(k,117) - mat(k,102) = .0097005_r8*rxt(k,560)*y(k,131) + .0023005_r8*rxt(k,559) & - *y(k,247) - mat(k,108) = .1056005_r8*rxt(k,570)*y(k,131) + .2381005_r8*rxt(k,569) & - *y(k,247) - mat(k,1710) = .0097005_r8*rxt(k,560)*y(k,9) + .1056005_r8*rxt(k,570)*y(k,110) & - + .0154005_r8*rxt(k,581)*y(k,224) + .0063005_r8*rxt(k,585) & - *y(k,228) - mat(k,123) = .5931005_r8*rxt(k,578)*y(k,265) - mat(k,129) = .0154005_r8*rxt(k,581)*y(k,131) + .1364005_r8*rxt(k,580) & - *y(k,247) - mat(k,135) = .0063005_r8*rxt(k,585)*y(k,131) + .1677005_r8*rxt(k,584) & - *y(k,247) - mat(k,2117) = .0023005_r8*rxt(k,559)*y(k,9) + .2381005_r8*rxt(k,569)*y(k,110) & - + .1364005_r8*rxt(k,580)*y(k,224) + .1677005_r8*rxt(k,584) & - *y(k,228) - mat(k,1855) = .5931005_r8*rxt(k,578)*y(k,215) - mat(k,103) = .0034005_r8*rxt(k,560)*y(k,131) + .0008005_r8*rxt(k,559) & - *y(k,247) - mat(k,109) = .1026005_r8*rxt(k,570)*y(k,131) + .1308005_r8*rxt(k,569) & - *y(k,247) - mat(k,1711) = .0034005_r8*rxt(k,560)*y(k,9) + .1026005_r8*rxt(k,570)*y(k,110) & - + .0452005_r8*rxt(k,581)*y(k,224) + .0237005_r8*rxt(k,585) & - *y(k,228) - mat(k,124) = .1534005_r8*rxt(k,578)*y(k,265) - mat(k,130) = .0452005_r8*rxt(k,581)*y(k,131) + .0101005_r8*rxt(k,580) & - *y(k,247) - mat(k,136) = .0237005_r8*rxt(k,585)*y(k,131) + .0174005_r8*rxt(k,584) & - *y(k,247) - mat(k,2118) = .0008005_r8*rxt(k,559)*y(k,9) + .1308005_r8*rxt(k,569)*y(k,110) & - + .0101005_r8*rxt(k,580)*y(k,224) + .0174005_r8*rxt(k,584) & - *y(k,228) - mat(k,1856) = .1534005_r8*rxt(k,578)*y(k,215) - mat(k,104) = .1579005_r8*rxt(k,560)*y(k,131) + .0843005_r8*rxt(k,559) & - *y(k,247) - mat(k,110) = .0521005_r8*rxt(k,570)*y(k,131) + .0348005_r8*rxt(k,569) & - *y(k,247) - mat(k,1712) = .1579005_r8*rxt(k,560)*y(k,9) + .0521005_r8*rxt(k,570)*y(k,110) & - + .0966005_r8*rxt(k,581)*y(k,224) + .0025005_r8*rxt(k,585) & - *y(k,228) - mat(k,125) = .0459005_r8*rxt(k,578)*y(k,265) - mat(k,131) = .0966005_r8*rxt(k,581)*y(k,131) + .0763005_r8*rxt(k,580) & - *y(k,247) - mat(k,137) = .0025005_r8*rxt(k,585)*y(k,131) + .086_r8*rxt(k,584)*y(k,247) - mat(k,2119) = .0843005_r8*rxt(k,559)*y(k,9) + .0348005_r8*rxt(k,569)*y(k,110) & - + .0763005_r8*rxt(k,580)*y(k,224) + .086_r8*rxt(k,584)*y(k,228) - mat(k,1857) = .0459005_r8*rxt(k,578)*y(k,215) + mat(k,1575) = -rxt(k,529)*y(k,155) + mat(k,2077) = -rxt(k,531)*y(k,155) + mat(k,1795) = -rxt(k,534)*y(k,155) + mat(k,1521) = -(rxt(k,532)*y(k,19) + rxt(k,533)*y(k,59) + rxt(k,535)*y(k,126) & + + rxt(k,536)*y(k,136) + rxt(k,537)*y(k,137) + rxt(k,538) & + *y(k,139) + rxt(k,539)*y(k,265)) + mat(k,1606) = -rxt(k,532)*y(k,157) + mat(k,2480) = -rxt(k,533)*y(k,157) + mat(k,1674) = -rxt(k,535)*y(k,157) + mat(k,1585) = -rxt(k,536)*y(k,157) + mat(k,2108) = -rxt(k,537)*y(k,157) + mat(k,395) = -rxt(k,538)*y(k,157) + mat(k,1847) = -rxt(k,539)*y(k,157) + mat(k,2043) = rxt(k,527)*y(k,140) + mat(k,1585) = mat(k,1585) + rxt(k,529)*y(k,155) + mat(k,2108) = mat(k,2108) + rxt(k,531)*y(k,155) + mat(k,423) = rxt(k,527)*y(k,135) + mat(k,756) = rxt(k,529)*y(k,136) + rxt(k,531)*y(k,137) + rxt(k,534)*y(k,265) + mat(k,1847) = mat(k,1847) + rxt(k,534)*y(k,155) + mat(k,992) = -(rxt(k,530)*y(k,265)) + mat(k,1814) = -rxt(k,530)*y(k,158) + mat(k,1605) = rxt(k,532)*y(k,157) + mat(k,2478) = rxt(k,533)*y(k,157) + mat(k,346) = rxt(k,525)*y(k,127) + (rxt(k,526)+.500_r8*rxt(k,540))*y(k,265) + mat(k,1664) = rxt(k,535)*y(k,157) + mat(k,2397) = rxt(k,525)*y(k,67) + mat(k,1580) = rxt(k,536)*y(k,157) + mat(k,2081) = rxt(k,537)*y(k,157) + mat(k,394) = rxt(k,538)*y(k,157) + mat(k,421) = rxt(k,528)*y(k,265) + mat(k,1520) = rxt(k,532)*y(k,19) + rxt(k,533)*y(k,59) + rxt(k,535)*y(k,126) & + + rxt(k,536)*y(k,136) + rxt(k,537)*y(k,137) + rxt(k,538) & + *y(k,139) + rxt(k,539)*y(k,265) + mat(k,1814) = mat(k,1814) + (rxt(k,526)+.500_r8*rxt(k,540))*y(k,67) & + + rxt(k,528)*y(k,140) + rxt(k,539)*y(k,157) + mat(k,309) = -(rxt(k,541)*y(k,278)) + mat(k,2501) = -rxt(k,541)*y(k,159) + mat(k,991) = rxt(k,530)*y(k,265) + mat(k,1740) = rxt(k,530)*y(k,158) + mat(k,1868) = .1056005_r8*rxt(k,570)*y(k,248) + mat(k,79) = .5931005_r8*rxt(k,580)*y(k,265) + mat(k,2267) = .2381005_r8*rxt(k,569)*y(k,248) + mat(k,109) = .1056005_r8*rxt(k,570)*y(k,125) + .2381005_r8*rxt(k,569) & + *y(k,243) + mat(k,1695) = .5931005_r8*rxt(k,580)*y(k,210) + mat(k,1869) = .1026005_r8*rxt(k,570)*y(k,248) + mat(k,80) = .1534005_r8*rxt(k,580)*y(k,265) + mat(k,2268) = .1308005_r8*rxt(k,569)*y(k,248) + mat(k,110) = .1026005_r8*rxt(k,570)*y(k,125) + .1308005_r8*rxt(k,569) & + *y(k,243) + mat(k,1696) = .1534005_r8*rxt(k,580)*y(k,210) + mat(k,1870) = .0521005_r8*rxt(k,570)*y(k,248) + mat(k,81) = .0459005_r8*rxt(k,580)*y(k,265) + mat(k,2269) = .0348005_r8*rxt(k,569)*y(k,248) + mat(k,111) = .0521005_r8*rxt(k,570)*y(k,125) + .0348005_r8*rxt(k,569) & + *y(k,243) + mat(k,1697) = .0459005_r8*rxt(k,580)*y(k,210) + mat(k,1871) = .0143005_r8*rxt(k,570)*y(k,248) + mat(k,82) = .0085005_r8*rxt(k,580)*y(k,265) + mat(k,2270) = .0076005_r8*rxt(k,569)*y(k,248) + mat(k,112) = .0143005_r8*rxt(k,570)*y(k,125) + .0076005_r8*rxt(k,569) & + *y(k,243) + mat(k,1698) = .0085005_r8*rxt(k,580)*y(k,210) + mat(k,1872) = .0166005_r8*rxt(k,570)*y(k,248) + mat(k,83) = .0128005_r8*rxt(k,580)*y(k,265) + mat(k,2271) = .0113005_r8*rxt(k,569)*y(k,248) + mat(k,113) = .0166005_r8*rxt(k,570)*y(k,125) + .0113005_r8*rxt(k,569) & + *y(k,243) + mat(k,1699) = .0128005_r8*rxt(k,580)*y(k,210) + mat(k,1054) = .2202005_r8*rxt(k,559)*y(k,137) + mat(k,998) = .0508005_r8*rxt(k,578)*y(k,137) + mat(k,1873) = .1279005_r8*rxt(k,558)*y(k,229) + .0003005_r8*rxt(k,566) & + *y(k,247) + .0245005_r8*rxt(k,577)*y(k,255) + mat(k,2064) = .2202005_r8*rxt(k,559)*y(k,6) + .0508005_r8*rxt(k,578)*y(k,111) + mat(k,91) = .1279005_r8*rxt(k,558)*y(k,125) + .2202005_r8*rxt(k,557)*y(k,243) + mat(k,2272) = .2202005_r8*rxt(k,557)*y(k,229) + .0031005_r8*rxt(k,565) & + *y(k,247) + .0508005_r8*rxt(k,576)*y(k,255) + mat(k,103) = .0003005_r8*rxt(k,566)*y(k,125) + .0031005_r8*rxt(k,565) & + *y(k,243) + mat(k,125) = .0245005_r8*rxt(k,577)*y(k,125) + .0508005_r8*rxt(k,576) & + *y(k,243) + mat(k,1055) = .2067005_r8*rxt(k,559)*y(k,137) + mat(k,999) = .1149005_r8*rxt(k,578)*y(k,137) + mat(k,1874) = .1792005_r8*rxt(k,558)*y(k,229) + .0003005_r8*rxt(k,566) & + *y(k,247) + .0082005_r8*rxt(k,577)*y(k,255) + mat(k,2065) = .2067005_r8*rxt(k,559)*y(k,6) + .1149005_r8*rxt(k,578)*y(k,111) + mat(k,92) = .1792005_r8*rxt(k,558)*y(k,125) + .2067005_r8*rxt(k,557)*y(k,243) + mat(k,2273) = .2067005_r8*rxt(k,557)*y(k,229) + .0035005_r8*rxt(k,565) & + *y(k,247) + .1149005_r8*rxt(k,576)*y(k,255) + mat(k,104) = .0003005_r8*rxt(k,566)*y(k,125) + .0035005_r8*rxt(k,565) & + *y(k,243) + mat(k,126) = .0082005_r8*rxt(k,577)*y(k,125) + .1149005_r8*rxt(k,576) & + *y(k,243) + mat(k,1056) = .0653005_r8*rxt(k,559)*y(k,137) + mat(k,1000) = .0348005_r8*rxt(k,578)*y(k,137) + mat(k,1875) = .0676005_r8*rxt(k,558)*y(k,229) + .0073005_r8*rxt(k,566) & + *y(k,247) + .0772005_r8*rxt(k,577)*y(k,255) + mat(k,2066) = .0653005_r8*rxt(k,559)*y(k,6) + .0348005_r8*rxt(k,578)*y(k,111) + mat(k,93) = .0676005_r8*rxt(k,558)*y(k,125) + .0653005_r8*rxt(k,557)*y(k,243) + mat(k,2274) = .0653005_r8*rxt(k,557)*y(k,229) + .0003005_r8*rxt(k,565) & + *y(k,247) + .0348005_r8*rxt(k,576)*y(k,255) + mat(k,105) = .0073005_r8*rxt(k,566)*y(k,125) + .0003005_r8*rxt(k,565) & + *y(k,243) + mat(k,127) = .0772005_r8*rxt(k,577)*y(k,125) + .0348005_r8*rxt(k,576) & + *y(k,243) + mat(k,1057) = .1749305_r8*rxt(k,556)*y(k,127) + .1284005_r8*rxt(k,559) & + *y(k,137) + mat(k,924) = .0590245_r8*rxt(k,564)*y(k,127) + .0033005_r8*rxt(k,567) & + *y(k,137) + mat(k,1001) = .1749305_r8*rxt(k,575)*y(k,127) + .0554005_r8*rxt(k,578) & + *y(k,137) + mat(k,1876) = .079_r8*rxt(k,558)*y(k,229) + .0057005_r8*rxt(k,566)*y(k,247) & + + .0332005_r8*rxt(k,577)*y(k,255) + mat(k,2387) = .1749305_r8*rxt(k,556)*y(k,6) + .0590245_r8*rxt(k,564)*y(k,98) & + + .1749305_r8*rxt(k,575)*y(k,111) + mat(k,2067) = .1284005_r8*rxt(k,559)*y(k,6) + .0033005_r8*rxt(k,567)*y(k,98) & + + .0554005_r8*rxt(k,578)*y(k,111) + mat(k,94) = .079_r8*rxt(k,558)*y(k,125) + .1284005_r8*rxt(k,557)*y(k,243) + mat(k,2275) = .1284005_r8*rxt(k,557)*y(k,229) + .0271005_r8*rxt(k,565) & + *y(k,247) + .0554005_r8*rxt(k,576)*y(k,255) + mat(k,106) = .0057005_r8*rxt(k,566)*y(k,125) + .0271005_r8*rxt(k,565) & + *y(k,243) + mat(k,128) = .0332005_r8*rxt(k,577)*y(k,125) + .0554005_r8*rxt(k,576) & + *y(k,243) + mat(k,1058) = .5901905_r8*rxt(k,556)*y(k,127) + .114_r8*rxt(k,559)*y(k,137) + mat(k,925) = .0250245_r8*rxt(k,564)*y(k,127) + mat(k,1002) = .5901905_r8*rxt(k,575)*y(k,127) + .1278005_r8*rxt(k,578) & + *y(k,137) + mat(k,1877) = .1254005_r8*rxt(k,558)*y(k,229) + .0623005_r8*rxt(k,566) & + *y(k,247) + .130_r8*rxt(k,577)*y(k,255) + mat(k,2388) = .5901905_r8*rxt(k,556)*y(k,6) + .0250245_r8*rxt(k,564)*y(k,98) & + + .5901905_r8*rxt(k,575)*y(k,111) + mat(k,2068) = .114_r8*rxt(k,559)*y(k,6) + .1278005_r8*rxt(k,578)*y(k,111) + mat(k,95) = .1254005_r8*rxt(k,558)*y(k,125) + .114_r8*rxt(k,557)*y(k,243) + mat(k,2276) = .114_r8*rxt(k,557)*y(k,229) + .0474005_r8*rxt(k,565)*y(k,247) & + + .1278005_r8*rxt(k,576)*y(k,255) + mat(k,107) = .0623005_r8*rxt(k,566)*y(k,125) + .0474005_r8*rxt(k,565) & + *y(k,243) + mat(k,129) = .130_r8*rxt(k,577)*y(k,125) + .1278005_r8*rxt(k,576)*y(k,243) + mat(k,1878) = .0097005_r8*rxt(k,563)*y(k,231) + .1056005_r8*rxt(k,573) & + *y(k,249) + .0154005_r8*rxt(k,584)*y(k,273) & + + .0063005_r8*rxt(k,588)*y(k,276) + mat(k,85) = .5931005_r8*rxt(k,581)*y(k,265) + mat(k,97) = .0097005_r8*rxt(k,563)*y(k,125) + .0023005_r8*rxt(k,562)*y(k,243) + mat(k,2277) = .0023005_r8*rxt(k,562)*y(k,231) + .2381005_r8*rxt(k,572) & + *y(k,249) + .1364005_r8*rxt(k,583)*y(k,273) & + + .1677005_r8*rxt(k,587)*y(k,276) + mat(k,117) = .1056005_r8*rxt(k,573)*y(k,125) + .2381005_r8*rxt(k,572) & + *y(k,243) + mat(k,1700) = .5931005_r8*rxt(k,581)*y(k,211) + mat(k,131) = .0154005_r8*rxt(k,584)*y(k,125) + .1364005_r8*rxt(k,583) & + *y(k,243) + mat(k,137) = .0063005_r8*rxt(k,588)*y(k,125) + .1677005_r8*rxt(k,587) & + *y(k,243) + mat(k,1879) = .0034005_r8*rxt(k,563)*y(k,231) + .1026005_r8*rxt(k,573) & + *y(k,249) + .0452005_r8*rxt(k,584)*y(k,273) & + + .0237005_r8*rxt(k,588)*y(k,276) + mat(k,86) = .1534005_r8*rxt(k,581)*y(k,265) + mat(k,98) = .0034005_r8*rxt(k,563)*y(k,125) + .0008005_r8*rxt(k,562)*y(k,243) + mat(k,2278) = .0008005_r8*rxt(k,562)*y(k,231) + .1308005_r8*rxt(k,572) & + *y(k,249) + .0101005_r8*rxt(k,583)*y(k,273) & + + .0174005_r8*rxt(k,587)*y(k,276) + mat(k,118) = .1026005_r8*rxt(k,573)*y(k,125) + .1308005_r8*rxt(k,572) & + *y(k,243) + mat(k,1701) = .1534005_r8*rxt(k,581)*y(k,211) + mat(k,132) = .0452005_r8*rxt(k,584)*y(k,125) + .0101005_r8*rxt(k,583) & + *y(k,243) + mat(k,138) = .0237005_r8*rxt(k,588)*y(k,125) + .0174005_r8*rxt(k,587) & + *y(k,243) end do end subroutine nlnmat07 subroutine nlnmat08( avec_len, mat, y, rxt ) @@ -1708,210 +1679,226 @@ subroutine nlnmat08( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,105) = .0059005_r8*rxt(k,560)*y(k,131) + .0443005_r8*rxt(k,559) & - *y(k,247) - mat(k,111) = .0143005_r8*rxt(k,570)*y(k,131) + .0076005_r8*rxt(k,569) & - *y(k,247) - mat(k,1713) = .0059005_r8*rxt(k,560)*y(k,9) + .0143005_r8*rxt(k,570)*y(k,110) & - + .0073005_r8*rxt(k,581)*y(k,224) + .011_r8*rxt(k,585)*y(k,228) - mat(k,126) = .0085005_r8*rxt(k,578)*y(k,265) - mat(k,132) = .0073005_r8*rxt(k,581)*y(k,131) + .2157005_r8*rxt(k,580) & - *y(k,247) - mat(k,138) = .011_r8*rxt(k,585)*y(k,131) + .0512005_r8*rxt(k,584)*y(k,247) - mat(k,2120) = .0443005_r8*rxt(k,559)*y(k,9) + .0076005_r8*rxt(k,569)*y(k,110) & - + .2157005_r8*rxt(k,580)*y(k,224) + .0512005_r8*rxt(k,584) & - *y(k,228) - mat(k,1858) = .0085005_r8*rxt(k,578)*y(k,215) - mat(k,106) = .0536005_r8*rxt(k,560)*y(k,131) + .1621005_r8*rxt(k,559) & - *y(k,247) - mat(k,112) = .0166005_r8*rxt(k,570)*y(k,131) + .0113005_r8*rxt(k,569) & - *y(k,247) - mat(k,1714) = .0536005_r8*rxt(k,560)*y(k,9) + .0166005_r8*rxt(k,570)*y(k,110) & - + .238_r8*rxt(k,581)*y(k,224) + .1185005_r8*rxt(k,585)*y(k,228) - mat(k,127) = .0128005_r8*rxt(k,578)*y(k,265) - mat(k,133) = .238_r8*rxt(k,581)*y(k,131) + .0738005_r8*rxt(k,580)*y(k,247) - mat(k,139) = .1185005_r8*rxt(k,585)*y(k,131) + .1598005_r8*rxt(k,584) & - *y(k,247) - mat(k,2121) = .1621005_r8*rxt(k,559)*y(k,9) + .0113005_r8*rxt(k,569)*y(k,110) & - + .0738005_r8*rxt(k,580)*y(k,224) + .1598005_r8*rxt(k,584) & - *y(k,228) - mat(k,1859) = .0128005_r8*rxt(k,578)*y(k,215) - mat(k,122) = -(rxt(k,577)*y(k,265)) - mat(k,1863) = -rxt(k,577)*y(k,214) - mat(k,128) = -(rxt(k,578)*y(k,265)) - mat(k,1864) = -rxt(k,578)*y(k,215) - mat(k,231) = .100_r8*rxt(k,489)*y(k,265) - mat(k,253) = .230_r8*rxt(k,491)*y(k,265) - mat(k,1876) = .100_r8*rxt(k,489)*y(k,223) + .230_r8*rxt(k,491)*y(k,226) - mat(k,728) = -(rxt(k,513)*y(k,265)) - mat(k,1943) = -rxt(k,513)*y(k,217) - mat(k,2160) = rxt(k,511)*y(k,270) - mat(k,1216) = rxt(k,511)*y(k,247) - mat(k,684) = -(rxt(k,514)*y(k,265)) - mat(k,1938) = -rxt(k,514)*y(k,218) - mat(k,1738) = .200_r8*rxt(k,507)*y(k,260) + .200_r8*rxt(k,517)*y(k,271) - mat(k,2317) = .500_r8*rxt(k,505)*y(k,260) - mat(k,1147) = .200_r8*rxt(k,507)*y(k,131) + .500_r8*rxt(k,505)*y(k,241) - mat(k,1104) = .200_r8*rxt(k,517)*y(k,131) - mat(k,528) = -(rxt(k,518)*y(k,265)) - mat(k,1920) = -rxt(k,518)*y(k,219) - mat(k,2147) = rxt(k,516)*y(k,271) - mat(k,1103) = rxt(k,516)*y(k,247) - mat(k,1116) = -(rxt(k,519)*y(k,133) + rxt(k,520)*y(k,265)) - mat(k,2034) = -rxt(k,519)*y(k,220) - mat(k,1972) = -rxt(k,520)*y(k,220) - mat(k,1066) = .330_r8*rxt(k,500)*y(k,143) - mat(k,1010) = .330_r8*rxt(k,503)*y(k,143) - mat(k,1760) = .800_r8*rxt(k,507)*y(k,260) + .800_r8*rxt(k,517)*y(k,271) - mat(k,2034) = mat(k,2034) + rxt(k,508)*y(k,260) - mat(k,2388) = .330_r8*rxt(k,500)*y(k,6) + .330_r8*rxt(k,503)*y(k,116) - mat(k,685) = rxt(k,514)*y(k,265) - mat(k,2325) = .500_r8*rxt(k,505)*y(k,260) + rxt(k,515)*y(k,271) - mat(k,1149) = .800_r8*rxt(k,507)*y(k,131) + rxt(k,508)*y(k,133) & - + .500_r8*rxt(k,505)*y(k,241) - mat(k,1972) = mat(k,1972) + rxt(k,514)*y(k,218) - mat(k,1107) = .800_r8*rxt(k,517)*y(k,131) + rxt(k,515)*y(k,241) - mat(k,1163) = -(rxt(k,521)*y(k,265)) - mat(k,1976) = -rxt(k,521)*y(k,221) - mat(k,1069) = .300_r8*rxt(k,500)*y(k,143) - mat(k,1013) = .300_r8*rxt(k,503)*y(k,143) - mat(k,1764) = .900_r8*rxt(k,512)*y(k,270) - mat(k,2391) = .300_r8*rxt(k,500)*y(k,6) + .300_r8*rxt(k,503)*y(k,116) - mat(k,2329) = rxt(k,510)*y(k,270) - mat(k,1219) = .900_r8*rxt(k,512)*y(k,131) + rxt(k,510)*y(k,241) - mat(k,662) = -(rxt(k,488)*y(k,265)) - mat(k,1935) = -rxt(k,488)*y(k,222) - mat(k,2155) = rxt(k,486)*y(k,272) - mat(k,792) = rxt(k,486)*y(k,247) - mat(k,229) = -((rxt(k,489) + rxt(k,579)) * y(k,265)) - mat(k,1874) = -(rxt(k,489) + rxt(k,579)) * y(k,223) - mat(k,134) = -(rxt(k,580)*y(k,247) + rxt(k,581)*y(k,131)) - mat(k,2124) = -rxt(k,580)*y(k,224) - mat(k,1717) = -rxt(k,581)*y(k,224) - mat(k,228) = rxt(k,579)*y(k,265) - mat(k,1865) = rxt(k,579)*y(k,223) - mat(k,245) = -(rxt(k,455)*y(k,265)) - mat(k,1877) = -rxt(k,455)*y(k,225) - mat(k,2127) = rxt(k,452)*y(k,273) - mat(k,1271) = rxt(k,452)*y(k,247) - mat(k,254) = -(rxt(k,491)*y(k,265)) - mat(k,1879) = -rxt(k,491)*y(k,226) - mat(k,766) = -(rxt(k,494)*y(k,265)) - mat(k,1946) = -rxt(k,494)*y(k,227) - mat(k,2163) = rxt(k,492)*y(k,274) - mat(k,809) = rxt(k,492)*y(k,247) - mat(k,140) = -(rxt(k,584)*y(k,247) + rxt(k,585)*y(k,131)) - mat(k,2125) = -rxt(k,584)*y(k,228) - mat(k,1718) = -rxt(k,585)*y(k,228) - mat(k,252) = rxt(k,583)*y(k,265) - mat(k,1866) = rxt(k,583)*y(k,226) - mat(k,262) = -(rxt(k,497)*y(k,265)) - mat(k,1880) = -rxt(k,497)*y(k,229) - mat(k,255) = .150_r8*rxt(k,491)*y(k,265) - mat(k,1880) = mat(k,1880) + .150_r8*rxt(k,491)*y(k,226) - mat(k,473) = -(rxt(k,498)*y(k,265)) - mat(k,1913) = -rxt(k,498)*y(k,230) - mat(k,2140) = rxt(k,495)*y(k,275) - mat(k,555) = rxt(k,495)*y(k,247) - mat(k,569) = -(rxt(k,456)*y(k,247) + rxt(k,457)*y(k,131) + rxt(k,485) & - *y(k,132)) - mat(k,2151) = -rxt(k,456)*y(k,233) - mat(k,1733) = -rxt(k,457)*y(k,233) - mat(k,1656) = -rxt(k,485)*y(k,233) - mat(k,280) = rxt(k,462)*y(k,265) - mat(k,1925) = rxt(k,462)*y(k,24) - mat(k,1086) = -(rxt(k,417)*y(k,247) + (rxt(k,418) + rxt(k,419)) * y(k,131)) - mat(k,2178) = -rxt(k,417)*y(k,234) - mat(k,1757) = -(rxt(k,418) + rxt(k,419)) * y(k,234) - mat(k,713) = rxt(k,420)*y(k,265) - mat(k,271) = rxt(k,421)*y(k,265) - mat(k,1969) = rxt(k,420)*y(k,2) + rxt(k,421)*y(k,17) - mat(k,541) = -(rxt(k,459)*y(k,247) + rxt(k,460)*y(k,131)) - mat(k,2149) = -rxt(k,459)*y(k,235) - mat(k,1730) = -rxt(k,460)*y(k,235) - mat(k,211) = .350_r8*rxt(k,458)*y(k,265) - mat(k,451) = rxt(k,461)*y(k,265) - mat(k,1922) = .350_r8*rxt(k,458)*y(k,8) + rxt(k,461)*y(k,10) - mat(k,481) = -(rxt(k,463)*y(k,247) + rxt(k,465)*y(k,131)) - mat(k,2141) = -rxt(k,463)*y(k,236) - mat(k,1724) = -rxt(k,465)*y(k,236) - mat(k,374) = rxt(k,464)*y(k,265) - mat(k,232) = .070_r8*rxt(k,489)*y(k,265) - mat(k,256) = .060_r8*rxt(k,491)*y(k,265) - mat(k,1914) = rxt(k,464)*y(k,25) + .070_r8*rxt(k,489)*y(k,223) & - + .060_r8*rxt(k,491)*y(k,226) - mat(k,950) = -(4._r8*rxt(k,339)*y(k,237) + rxt(k,340)*y(k,241) + rxt(k,341) & - *y(k,247) + rxt(k,342)*y(k,131)) - mat(k,2321) = -rxt(k,340)*y(k,237) - mat(k,2175) = -rxt(k,341)*y(k,237) - mat(k,1753) = -rxt(k,342)*y(k,237) - mat(k,379) = .500_r8*rxt(k,344)*y(k,265) - mat(k,335) = rxt(k,345)*y(k,58) + rxt(k,346)*y(k,265) - mat(k,2236) = rxt(k,345)*y(k,30) - mat(k,1960) = .500_r8*rxt(k,344)*y(k,29) + rxt(k,346)*y(k,30) - mat(k,979) = -(rxt(k,368)*y(k,241) + rxt(k,369)*y(k,247) + rxt(k,370) & - *y(k,131)) - mat(k,2322) = -rxt(k,368)*y(k,238) - mat(k,2177) = -rxt(k,369)*y(k,238) - mat(k,1755) = -rxt(k,370)*y(k,238) - mat(k,438) = rxt(k,371)*y(k,265) - mat(k,341) = rxt(k,375)*y(k,58) + rxt(k,372)*y(k,265) - mat(k,2237) = rxt(k,375)*y(k,33) - mat(k,1963) = rxt(k,371)*y(k,32) + rxt(k,372)*y(k,33) - mat(k,692) = -(rxt(k,466)*y(k,247) + rxt(k,467)*y(k,131)) - mat(k,2157) = -rxt(k,466)*y(k,239) - mat(k,1739) = -rxt(k,467)*y(k,239) - mat(k,317) = rxt(k,468)*y(k,265) - mat(k,1739) = mat(k,1739) + rxt(k,457)*y(k,233) - mat(k,2376) = rxt(k,483)*y(k,150) - mat(k,536) = rxt(k,483)*y(k,143) - mat(k,570) = rxt(k,457)*y(k,131) + .400_r8*rxt(k,456)*y(k,247) - mat(k,2157) = mat(k,2157) + .400_r8*rxt(k,456)*y(k,233) - mat(k,1939) = rxt(k,468)*y(k,34) - mat(k,1472) = -(4._r8*rxt(k,350)*y(k,240) + rxt(k,351)*y(k,241) + rxt(k,352) & - *y(k,247) + rxt(k,353)*y(k,131) + rxt(k,364)*y(k,132) + rxt(k,392) & - *y(k,251) + rxt(k,425)*y(k,249) + rxt(k,430)*y(k,250) + rxt(k,439) & - *y(k,103) + rxt(k,450)*y(k,273)) - mat(k,2345) = -rxt(k,351)*y(k,240) - mat(k,2200) = -rxt(k,352)*y(k,240) - mat(k,1781) = -rxt(k,353)*y(k,240) - mat(k,1673) = -rxt(k,364)*y(k,240) - mat(k,1402) = -rxt(k,392)*y(k,240) - mat(k,1347) = -rxt(k,425)*y(k,240) - mat(k,1380) = -rxt(k,430)*y(k,240) - mat(k,1301) = -rxt(k,439)*y(k,240) - mat(k,1279) = -rxt(k,450)*y(k,240) - mat(k,1073) = .060_r8*rxt(k,500)*y(k,143) - mat(k,1197) = rxt(k,347)*y(k,133) + rxt(k,348)*y(k,265) - mat(k,1326) = rxt(k,373)*y(k,133) + rxt(k,374)*y(k,265) - mat(k,638) = .500_r8*rxt(k,355)*y(k,265) - mat(k,929) = .080_r8*rxt(k,445)*y(k,143) - mat(k,1317) = .100_r8*rxt(k,398)*y(k,143) - mat(k,1017) = .060_r8*rxt(k,503)*y(k,143) - mat(k,1422) = .280_r8*rxt(k,412)*y(k,143) - mat(k,1781) = mat(k,1781) + .530_r8*rxt(k,396)*y(k,251) + rxt(k,405)*y(k,253) & - + rxt(k,408)*y(k,255) + rxt(k,383)*y(k,269) - mat(k,2056) = rxt(k,347)*y(k,47) + rxt(k,373)*y(k,51) + .530_r8*rxt(k,395) & - *y(k,251) + rxt(k,406)*y(k,253) - mat(k,2407) = .060_r8*rxt(k,500)*y(k,6) + .080_r8*rxt(k,445)*y(k,100) & - + .100_r8*rxt(k,398)*y(k,111) + .060_r8*rxt(k,503)*y(k,116) & - + .280_r8*rxt(k,412)*y(k,118) - mat(k,1166) = .650_r8*rxt(k,521)*y(k,265) - mat(k,1472) = mat(k,1472) + .530_r8*rxt(k,392)*y(k,251) - mat(k,2345) = mat(k,2345) + .260_r8*rxt(k,393)*y(k,251) + rxt(k,402)*y(k,253) & - + .300_r8*rxt(k,381)*y(k,269) - mat(k,2200) = mat(k,2200) + .450_r8*rxt(k,403)*y(k,253) + .200_r8*rxt(k,407) & - *y(k,255) + .150_r8*rxt(k,382)*y(k,269) - mat(k,1402) = mat(k,1402) + .530_r8*rxt(k,396)*y(k,131) + .530_r8*rxt(k,395) & - *y(k,133) + .530_r8*rxt(k,392)*y(k,240) + .260_r8*rxt(k,393) & - *y(k,241) - mat(k,1442) = rxt(k,405)*y(k,131) + rxt(k,406)*y(k,133) + rxt(k,402)*y(k,241) & - + .450_r8*rxt(k,403)*y(k,247) + 4.000_r8*rxt(k,404)*y(k,253) - mat(k,723) = rxt(k,408)*y(k,131) + .200_r8*rxt(k,407)*y(k,247) - mat(k,1994) = rxt(k,348)*y(k,47) + rxt(k,374)*y(k,51) + .500_r8*rxt(k,355) & - *y(k,53) + .650_r8*rxt(k,521)*y(k,221) - mat(k,1263) = rxt(k,383)*y(k,131) + .300_r8*rxt(k,381)*y(k,241) & - + .150_r8*rxt(k,382)*y(k,247) + mat(k,1880) = .1579005_r8*rxt(k,563)*y(k,231) + .0521005_r8*rxt(k,573) & + *y(k,249) + .0966005_r8*rxt(k,584)*y(k,273) & + + .0025005_r8*rxt(k,588)*y(k,276) + mat(k,87) = .0459005_r8*rxt(k,581)*y(k,265) + mat(k,99) = .1579005_r8*rxt(k,563)*y(k,125) + .0843005_r8*rxt(k,562)*y(k,243) + mat(k,2279) = .0843005_r8*rxt(k,562)*y(k,231) + .0348005_r8*rxt(k,572) & + *y(k,249) + .0763005_r8*rxt(k,583)*y(k,273) + .086_r8*rxt(k,587) & + *y(k,276) + mat(k,119) = .0521005_r8*rxt(k,573)*y(k,125) + .0348005_r8*rxt(k,572) & + *y(k,243) + mat(k,1702) = .0459005_r8*rxt(k,581)*y(k,211) + mat(k,133) = .0966005_r8*rxt(k,584)*y(k,125) + .0763005_r8*rxt(k,583) & + *y(k,243) + mat(k,139) = .0025005_r8*rxt(k,588)*y(k,125) + .086_r8*rxt(k,587)*y(k,243) + mat(k,1881) = .0059005_r8*rxt(k,563)*y(k,231) + .0143005_r8*rxt(k,573) & + *y(k,249) + .0073005_r8*rxt(k,584)*y(k,273) + .011_r8*rxt(k,588) & + *y(k,276) + mat(k,88) = .0085005_r8*rxt(k,581)*y(k,265) + mat(k,100) = .0059005_r8*rxt(k,563)*y(k,125) + .0443005_r8*rxt(k,562) & + *y(k,243) + mat(k,2280) = .0443005_r8*rxt(k,562)*y(k,231) + .0076005_r8*rxt(k,572) & + *y(k,249) + .2157005_r8*rxt(k,583)*y(k,273) & + + .0512005_r8*rxt(k,587)*y(k,276) + mat(k,120) = .0143005_r8*rxt(k,573)*y(k,125) + .0076005_r8*rxt(k,572) & + *y(k,243) + mat(k,1703) = .0085005_r8*rxt(k,581)*y(k,211) + mat(k,134) = .0073005_r8*rxt(k,584)*y(k,125) + .2157005_r8*rxt(k,583) & + *y(k,243) + mat(k,140) = .011_r8*rxt(k,588)*y(k,125) + .0512005_r8*rxt(k,587)*y(k,243) + mat(k,1882) = .0536005_r8*rxt(k,563)*y(k,231) + .0166005_r8*rxt(k,573) & + *y(k,249) + .238_r8*rxt(k,584)*y(k,273) + .1185005_r8*rxt(k,588) & + *y(k,276) + mat(k,89) = .0128005_r8*rxt(k,581)*y(k,265) + mat(k,101) = .0536005_r8*rxt(k,563)*y(k,125) + .1621005_r8*rxt(k,562) & + *y(k,243) + mat(k,2281) = .1621005_r8*rxt(k,562)*y(k,231) + .0113005_r8*rxt(k,572) & + *y(k,249) + .0738005_r8*rxt(k,583)*y(k,273) & + + .1598005_r8*rxt(k,587)*y(k,276) + mat(k,121) = .0166005_r8*rxt(k,573)*y(k,125) + .0113005_r8*rxt(k,572) & + *y(k,243) + mat(k,1704) = .0128005_r8*rxt(k,581)*y(k,211) + mat(k,135) = .238_r8*rxt(k,584)*y(k,125) + .0738005_r8*rxt(k,583)*y(k,243) + mat(k,141) = .1185005_r8*rxt(k,588)*y(k,125) + .1598005_r8*rxt(k,587) & + *y(k,243) + mat(k,84) = -(rxt(k,580)*y(k,265)) + mat(k,1705) = -rxt(k,580)*y(k,210) + mat(k,90) = -(rxt(k,581)*y(k,265)) + mat(k,1706) = -rxt(k,581)*y(k,211) + mat(k,233) = .100_r8*rxt(k,492)*y(k,265) + mat(k,255) = .230_r8*rxt(k,494)*y(k,265) + mat(k,1726) = .100_r8*rxt(k,492)*y(k,219) + .230_r8*rxt(k,494)*y(k,221) + mat(k,721) = -(rxt(k,516)*y(k,265)) + mat(k,1791) = -rxt(k,516)*y(k,213) + mat(k,2323) = rxt(k,514)*y(k,270) + mat(k,1217) = rxt(k,514)*y(k,243) + mat(k,690) = -(rxt(k,517)*y(k,265)) + mat(k,1788) = -rxt(k,517)*y(k,214) + mat(k,1910) = .200_r8*rxt(k,510)*y(k,260) + .200_r8*rxt(k,520)*y(k,271) + mat(k,2153) = .500_r8*rxt(k,508)*y(k,260) + mat(k,1148) = .200_r8*rxt(k,510)*y(k,125) + .500_r8*rxt(k,508)*y(k,237) + mat(k,1105) = .200_r8*rxt(k,520)*y(k,125) + mat(k,523) = -(rxt(k,521)*y(k,265)) + mat(k,1769) = -rxt(k,521)*y(k,215) + mat(k,2310) = rxt(k,519)*y(k,271) + mat(k,1104) = rxt(k,519)*y(k,243) + mat(k,1117) = -(rxt(k,522)*y(k,127) + rxt(k,523)*y(k,265)) + mat(k,2403) = -rxt(k,522)*y(k,216) + mat(k,1822) = -rxt(k,523)*y(k,216) + mat(k,1067) = .330_r8*rxt(k,503)*y(k,137) + mat(k,1011) = .330_r8*rxt(k,506)*y(k,137) + mat(k,1933) = .800_r8*rxt(k,510)*y(k,260) + .800_r8*rxt(k,520)*y(k,271) + mat(k,2403) = mat(k,2403) + rxt(k,511)*y(k,260) + mat(k,2087) = .330_r8*rxt(k,503)*y(k,6) + .330_r8*rxt(k,506)*y(k,111) + mat(k,691) = rxt(k,517)*y(k,265) + mat(k,2161) = .500_r8*rxt(k,508)*y(k,260) + rxt(k,518)*y(k,271) + mat(k,1150) = .800_r8*rxt(k,510)*y(k,125) + rxt(k,511)*y(k,127) & + + .500_r8*rxt(k,508)*y(k,237) + mat(k,1822) = mat(k,1822) + rxt(k,517)*y(k,214) + mat(k,1108) = .800_r8*rxt(k,520)*y(k,125) + rxt(k,518)*y(k,237) + mat(k,1164) = -(rxt(k,524)*y(k,265)) + mat(k,1826) = -rxt(k,524)*y(k,217) + mat(k,1070) = .300_r8*rxt(k,503)*y(k,137) + mat(k,1014) = .300_r8*rxt(k,506)*y(k,137) + mat(k,1937) = .900_r8*rxt(k,515)*y(k,270) + mat(k,2090) = .300_r8*rxt(k,503)*y(k,6) + .300_r8*rxt(k,506)*y(k,111) + mat(k,2165) = rxt(k,513)*y(k,270) + mat(k,1220) = .900_r8*rxt(k,515)*y(k,125) + rxt(k,513)*y(k,237) + mat(k,652) = -(rxt(k,491)*y(k,265)) + mat(k,1784) = -rxt(k,491)*y(k,218) + mat(k,2318) = rxt(k,489)*y(k,272) + mat(k,785) = rxt(k,489)*y(k,243) + mat(k,231) = -((rxt(k,492) + rxt(k,582)) * y(k,265)) + mat(k,1724) = -(rxt(k,492) + rxt(k,582)) * y(k,219) + mat(k,247) = -(rxt(k,458)*y(k,265)) + mat(k,1727) = -rxt(k,458)*y(k,220) + mat(k,2291) = rxt(k,455)*y(k,274) + mat(k,1272) = rxt(k,455)*y(k,243) + mat(k,256) = -(rxt(k,494)*y(k,265)) + mat(k,1729) = -rxt(k,494)*y(k,221) + mat(k,766) = -(rxt(k,497)*y(k,265)) + mat(k,1796) = -rxt(k,497)*y(k,222) + mat(k,2326) = rxt(k,495)*y(k,275) + mat(k,810) = rxt(k,495)*y(k,243) + mat(k,264) = -(rxt(k,500)*y(k,265)) + mat(k,1730) = -rxt(k,500)*y(k,223) + mat(k,257) = .150_r8*rxt(k,494)*y(k,265) + mat(k,1730) = mat(k,1730) + .150_r8*rxt(k,494)*y(k,221) + mat(k,469) = -(rxt(k,501)*y(k,265)) + mat(k,1763) = -rxt(k,501)*y(k,224) + mat(k,2303) = rxt(k,498)*y(k,277) + mat(k,557) = rxt(k,498)*y(k,243) + mat(k,571) = -(rxt(k,459)*y(k,243) + rxt(k,460)*y(k,125) + rxt(k,488) & + *y(k,126)) + mat(k,2315) = -rxt(k,459)*y(k,227) + mat(k,1905) = -rxt(k,460)*y(k,227) + mat(k,1655) = -rxt(k,488)*y(k,227) + mat(k,279) = rxt(k,465)*y(k,265) + mat(k,1775) = rxt(k,465)*y(k,22) + mat(k,1087) = -(rxt(k,420)*y(k,243) + (rxt(k,421) + rxt(k,422)) * y(k,125)) + mat(k,2342) = -rxt(k,420)*y(k,228) + mat(k,1930) = -(rxt(k,421) + rxt(k,422)) * y(k,228) + mat(k,714) = rxt(k,423)*y(k,265) + mat(k,270) = rxt(k,424)*y(k,265) + mat(k,1819) = rxt(k,423)*y(k,2) + rxt(k,424)*y(k,15) + mat(k,96) = -(rxt(k,557)*y(k,243) + rxt(k,558)*y(k,125)) + mat(k,2282) = -rxt(k,557)*y(k,229) + mat(k,1883) = -rxt(k,558)*y(k,229) + mat(k,1059) = rxt(k,560)*y(k,265) + mat(k,1707) = rxt(k,560)*y(k,6) + mat(k,532) = -(rxt(k,462)*y(k,243) + rxt(k,463)*y(k,125)) + mat(k,2311) = -rxt(k,462)*y(k,230) + mat(k,1901) = -rxt(k,463)*y(k,230) + mat(k,213) = .350_r8*rxt(k,461)*y(k,265) + mat(k,459) = rxt(k,464)*y(k,265) + mat(k,1770) = .350_r8*rxt(k,461)*y(k,7) + rxt(k,464)*y(k,8) + mat(k,102) = -(rxt(k,562)*y(k,243) + rxt(k,563)*y(k,125)) + mat(k,2283) = -rxt(k,562)*y(k,231) + mat(k,1884) = -rxt(k,563)*y(k,231) + mat(k,209) = rxt(k,561)*y(k,265) + mat(k,1708) = rxt(k,561)*y(k,7) + mat(k,477) = -(rxt(k,466)*y(k,243) + rxt(k,468)*y(k,125)) + mat(k,2304) = -rxt(k,466)*y(k,232) + mat(k,1896) = -rxt(k,468)*y(k,232) + mat(k,371) = rxt(k,467)*y(k,265) + mat(k,234) = .070_r8*rxt(k,492)*y(k,265) + mat(k,258) = .060_r8*rxt(k,494)*y(k,265) + mat(k,1764) = rxt(k,467)*y(k,23) + .070_r8*rxt(k,492)*y(k,219) & + + .060_r8*rxt(k,494)*y(k,221) + mat(k,946) = -(4._r8*rxt(k,342)*y(k,233) + rxt(k,343)*y(k,237) + rxt(k,344) & + *y(k,243) + rxt(k,345)*y(k,125)) + mat(k,2157) = -rxt(k,343)*y(k,233) + mat(k,2338) = -rxt(k,344)*y(k,233) + mat(k,1925) = -rxt(k,345)*y(k,233) + mat(k,376) = .500_r8*rxt(k,347)*y(k,265) + mat(k,328) = rxt(k,348)*y(k,56) + rxt(k,349)*y(k,265) + mat(k,1987) = rxt(k,348)*y(k,28) + mat(k,1809) = .500_r8*rxt(k,347)*y(k,27) + rxt(k,349)*y(k,28) + mat(k,980) = -(rxt(k,371)*y(k,237) + rxt(k,372)*y(k,243) + rxt(k,373) & + *y(k,125)) + mat(k,2158) = -rxt(k,371)*y(k,234) + mat(k,2341) = -rxt(k,372)*y(k,234) + mat(k,1928) = -rxt(k,373)*y(k,234) + mat(k,434) = rxt(k,374)*y(k,265) + mat(k,334) = rxt(k,378)*y(k,56) + rxt(k,375)*y(k,265) + mat(k,1989) = rxt(k,378)*y(k,31) + mat(k,1813) = rxt(k,374)*y(k,30) + rxt(k,375)*y(k,31) + mat(k,698) = -(rxt(k,469)*y(k,243) + rxt(k,470)*y(k,125)) + mat(k,2321) = -rxt(k,469)*y(k,235) + mat(k,1911) = -rxt(k,470)*y(k,235) + mat(k,315) = rxt(k,471)*y(k,265) + mat(k,1911) = mat(k,1911) + rxt(k,460)*y(k,227) + mat(k,2075) = rxt(k,486)*y(k,144) + mat(k,540) = rxt(k,486)*y(k,137) + mat(k,572) = rxt(k,460)*y(k,125) + .400_r8*rxt(k,459)*y(k,243) + mat(k,2321) = mat(k,2321) + .400_r8*rxt(k,459)*y(k,227) + mat(k,1789) = rxt(k,471)*y(k,32) + mat(k,1473) = -(4._r8*rxt(k,353)*y(k,236) + rxt(k,354)*y(k,237) + rxt(k,355) & + *y(k,243) + rxt(k,356)*y(k,125) + rxt(k,367)*y(k,126) + rxt(k,395) & + *y(k,250) + rxt(k,428)*y(k,245) + rxt(k,433)*y(k,246) + rxt(k,442) & + *y(k,101) + rxt(k,453)*y(k,274)) + mat(k,2181) = -rxt(k,354)*y(k,236) + mat(k,2364) = -rxt(k,355)*y(k,236) + mat(k,1954) = -rxt(k,356)*y(k,236) + mat(k,1672) = -rxt(k,367)*y(k,236) + mat(k,1403) = -rxt(k,395)*y(k,236) + mat(k,1348) = -rxt(k,428)*y(k,236) + mat(k,1381) = -rxt(k,433)*y(k,236) + mat(k,1302) = -rxt(k,442)*y(k,236) + mat(k,1280) = -rxt(k,453)*y(k,236) + mat(k,1074) = .060_r8*rxt(k,503)*y(k,137) + mat(k,1198) = rxt(k,350)*y(k,127) + rxt(k,351)*y(k,265) + mat(k,1327) = rxt(k,376)*y(k,127) + rxt(k,377)*y(k,265) + mat(k,666) = .500_r8*rxt(k,358)*y(k,265) + mat(k,936) = .080_r8*rxt(k,448)*y(k,137) + mat(k,1318) = .100_r8*rxt(k,401)*y(k,137) + mat(k,1018) = .060_r8*rxt(k,506)*y(k,137) + mat(k,1423) = .280_r8*rxt(k,415)*y(k,137) + mat(k,1954) = mat(k,1954) + .530_r8*rxt(k,399)*y(k,250) + rxt(k,408)*y(k,252) & + + rxt(k,411)*y(k,254) + rxt(k,386)*y(k,269) + mat(k,2425) = rxt(k,350)*y(k,45) + rxt(k,376)*y(k,49) + .530_r8*rxt(k,398) & + *y(k,250) + rxt(k,409)*y(k,252) + mat(k,2106) = .060_r8*rxt(k,503)*y(k,6) + .080_r8*rxt(k,448)*y(k,98) & + + .100_r8*rxt(k,401)*y(k,106) + .060_r8*rxt(k,506)*y(k,111) & + + .280_r8*rxt(k,415)*y(k,112) + mat(k,1167) = .650_r8*rxt(k,524)*y(k,265) + mat(k,1473) = mat(k,1473) + .530_r8*rxt(k,395)*y(k,250) + mat(k,2181) = mat(k,2181) + .260_r8*rxt(k,396)*y(k,250) + rxt(k,405)*y(k,252) & + + .300_r8*rxt(k,384)*y(k,269) + mat(k,2364) = mat(k,2364) + .450_r8*rxt(k,406)*y(k,252) + .200_r8*rxt(k,410) & + *y(k,254) + .150_r8*rxt(k,385)*y(k,269) + mat(k,1403) = mat(k,1403) + .530_r8*rxt(k,399)*y(k,125) + .530_r8*rxt(k,398) & + *y(k,127) + .530_r8*rxt(k,395)*y(k,236) + .260_r8*rxt(k,396) & + *y(k,237) + mat(k,1443) = rxt(k,408)*y(k,125) + rxt(k,409)*y(k,127) + rxt(k,405)*y(k,237) & + + .450_r8*rxt(k,406)*y(k,243) + 4.000_r8*rxt(k,407)*y(k,252) + mat(k,745) = rxt(k,411)*y(k,125) + .200_r8*rxt(k,410)*y(k,243) + mat(k,1844) = rxt(k,351)*y(k,45) + rxt(k,377)*y(k,49) + .500_r8*rxt(k,358) & + *y(k,51) + .650_r8*rxt(k,524)*y(k,217) + mat(k,1264) = rxt(k,386)*y(k,125) + .300_r8*rxt(k,384)*y(k,237) & + + .150_r8*rxt(k,385)*y(k,243) end do end subroutine nlnmat08 subroutine nlnmat09( avec_len, mat, y, rxt ) @@ -1932,271 +1919,271 @@ subroutine nlnmat09( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,2360) = -(rxt(k,241)*y(k,61) + (4._r8*rxt(k,318) + 4._r8*rxt(k,319) & - ) * y(k,241) + rxt(k,320)*y(k,247) + rxt(k,321)*y(k,131) & - + rxt(k,340)*y(k,237) + rxt(k,351)*y(k,240) + rxt(k,368) & - *y(k,238) + rxt(k,381)*y(k,269) + rxt(k,393)*y(k,251) + rxt(k,402) & - *y(k,253) + rxt(k,426)*y(k,249) + rxt(k,431)*y(k,250) + rxt(k,440) & - *y(k,103) + rxt(k,451)*y(k,273) + rxt(k,505)*y(k,260) + rxt(k,510) & - *y(k,270) + rxt(k,515)*y(k,271)) - mat(k,1646) = -rxt(k,241)*y(k,241) - mat(k,2218) = -rxt(k,320)*y(k,241) - mat(k,1797) = -rxt(k,321)*y(k,241) - mat(k,957) = -rxt(k,340)*y(k,241) - mat(k,1482) = -rxt(k,351)*y(k,241) - mat(k,987) = -rxt(k,368)*y(k,241) - mat(k,1268) = -rxt(k,381)*y(k,241) - mat(k,1410) = -rxt(k,393)*y(k,241) - mat(k,1450) = -rxt(k,402)*y(k,241) - mat(k,1355) = -rxt(k,426)*y(k,241) - mat(k,1388) = -rxt(k,431)*y(k,241) - mat(k,1309) = -rxt(k,440)*y(k,241) - mat(k,1286) = -rxt(k,451)*y(k,241) - mat(k,1160) = -rxt(k,505)*y(k,241) - mat(k,1231) = -rxt(k,510)*y(k,241) - mat(k,1114) = -rxt(k,515)*y(k,241) - mat(k,1191) = .280_r8*rxt(k,367)*y(k,143) - mat(k,752) = rxt(k,354)*y(k,265) - mat(k,458) = .700_r8*rxt(k,323)*y(k,265) - mat(k,2098) = rxt(k,235)*y(k,58) + rxt(k,291)*y(k,75) + rxt(k,330)*y(k,261) & - + rxt(k,324)*y(k,265) - mat(k,2264) = rxt(k,235)*y(k,56) - mat(k,976) = rxt(k,291)*y(k,56) - mat(k,933) = .050_r8*rxt(k,445)*y(k,143) - mat(k,1309) = mat(k,1309) + rxt(k,439)*y(k,240) - mat(k,1797) = mat(k,1797) + rxt(k,353)*y(k,240) + .830_r8*rxt(k,471)*y(k,242) & - + .170_r8*rxt(k,477)*y(k,254) - mat(k,2424) = .280_r8*rxt(k,367)*y(k,31) + .050_r8*rxt(k,445)*y(k,100) - mat(k,1482) = mat(k,1482) + rxt(k,439)*y(k,103) + rxt(k,353)*y(k,131) & - + 4.000_r8*rxt(k,350)*y(k,240) + .900_r8*rxt(k,351)*y(k,241) & - + .450_r8*rxt(k,352)*y(k,247) + rxt(k,425)*y(k,249) + rxt(k,430) & - *y(k,250) + rxt(k,392)*y(k,251) + rxt(k,401)*y(k,253) & - + rxt(k,450)*y(k,273) - mat(k,2360) = mat(k,2360) + .900_r8*rxt(k,351)*y(k,240) - mat(k,829) = .830_r8*rxt(k,471)*y(k,131) + .330_r8*rxt(k,470)*y(k,247) - mat(k,2218) = mat(k,2218) + .450_r8*rxt(k,352)*y(k,240) + .330_r8*rxt(k,470) & - *y(k,242) + .070_r8*rxt(k,476)*y(k,254) - mat(k,1355) = mat(k,1355) + rxt(k,425)*y(k,240) - mat(k,1388) = mat(k,1388) + rxt(k,430)*y(k,240) - mat(k,1410) = mat(k,1410) + rxt(k,392)*y(k,240) - mat(k,1450) = mat(k,1450) + rxt(k,401)*y(k,240) - mat(k,967) = .170_r8*rxt(k,477)*y(k,131) + .070_r8*rxt(k,476)*y(k,247) - mat(k,1840) = rxt(k,330)*y(k,56) - mat(k,2013) = rxt(k,354)*y(k,52) + .700_r8*rxt(k,323)*y(k,55) + rxt(k,324) & - *y(k,56) - mat(k,1286) = mat(k,1286) + rxt(k,450)*y(k,240) - mat(k,822) = -(rxt(k,470)*y(k,247) + rxt(k,471)*y(k,131) + rxt(k,472) & - *y(k,132)) - mat(k,2167) = -rxt(k,470)*y(k,242) - mat(k,1745) = -rxt(k,471)*y(k,242) - mat(k,1662) = -rxt(k,472)*y(k,242) - mat(k,909) = -(rxt(k,603)*y(k,258) + rxt(k,604)*y(k,264) + rxt(k,605) & + mat(k,2193) = -(rxt(k,244)*y(k,59) + (4._r8*rxt(k,321) + 4._r8*rxt(k,322) & + ) * y(k,237) + rxt(k,323)*y(k,243) + rxt(k,324)*y(k,125) & + + rxt(k,343)*y(k,233) + rxt(k,354)*y(k,236) + rxt(k,371) & + *y(k,234) + rxt(k,384)*y(k,269) + rxt(k,396)*y(k,250) + rxt(k,405) & + *y(k,252) + rxt(k,429)*y(k,245) + rxt(k,434)*y(k,246) + rxt(k,443) & + *y(k,101) + rxt(k,454)*y(k,274) + rxt(k,508)*y(k,260) + rxt(k,513) & + *y(k,270) + rxt(k,518)*y(k,271)) + mat(k,2492) = -rxt(k,244)*y(k,237) + mat(k,2379) = -rxt(k,323)*y(k,237) + mat(k,1967) = -rxt(k,324)*y(k,237) + mat(k,952) = -rxt(k,343)*y(k,237) + mat(k,1481) = -rxt(k,354)*y(k,237) + mat(k,987) = -rxt(k,371)*y(k,237) + mat(k,1268) = -rxt(k,384)*y(k,237) + mat(k,1408) = -rxt(k,396)*y(k,237) + mat(k,1449) = -rxt(k,405)*y(k,237) + mat(k,1354) = -rxt(k,429)*y(k,237) + mat(k,1387) = -rxt(k,434)*y(k,237) + mat(k,1307) = -rxt(k,443)*y(k,237) + mat(k,1285) = -rxt(k,454)*y(k,237) + mat(k,1158) = -rxt(k,508)*y(k,237) + mat(k,1230) = -rxt(k,513)*y(k,237) + mat(k,1113) = -rxt(k,518)*y(k,237) + mat(k,1191) = .280_r8*rxt(k,370)*y(k,137) + mat(k,753) = rxt(k,357)*y(k,265) + mat(k,448) = .700_r8*rxt(k,326)*y(k,265) + mat(k,1642) = rxt(k,238)*y(k,56) + rxt(k,294)*y(k,73) + rxt(k,333)*y(k,261) & + + rxt(k,327)*y(k,265) + mat(k,2013) = rxt(k,238)*y(k,54) + mat(k,975) = rxt(k,294)*y(k,54) + mat(k,939) = .050_r8*rxt(k,448)*y(k,137) + mat(k,1307) = mat(k,1307) + rxt(k,442)*y(k,236) + mat(k,1967) = mat(k,1967) + rxt(k,356)*y(k,236) + .830_r8*rxt(k,474)*y(k,238) & + + .170_r8*rxt(k,480)*y(k,253) + mat(k,2120) = .280_r8*rxt(k,370)*y(k,29) + .050_r8*rxt(k,448)*y(k,98) + mat(k,1481) = mat(k,1481) + rxt(k,442)*y(k,101) + rxt(k,356)*y(k,125) & + + 4.000_r8*rxt(k,353)*y(k,236) + .900_r8*rxt(k,354)*y(k,237) & + + .450_r8*rxt(k,355)*y(k,243) + rxt(k,428)*y(k,245) + rxt(k,433) & + *y(k,246) + rxt(k,395)*y(k,250) + rxt(k,404)*y(k,252) & + + rxt(k,453)*y(k,274) + mat(k,2193) = mat(k,2193) + .900_r8*rxt(k,354)*y(k,236) + mat(k,829) = .830_r8*rxt(k,474)*y(k,125) + .330_r8*rxt(k,473)*y(k,243) + mat(k,2379) = mat(k,2379) + .450_r8*rxt(k,355)*y(k,236) + .330_r8*rxt(k,473) & + *y(k,238) + .070_r8*rxt(k,479)*y(k,253) + mat(k,1354) = mat(k,1354) + rxt(k,428)*y(k,236) + mat(k,1387) = mat(k,1387) + rxt(k,433)*y(k,236) + mat(k,1408) = mat(k,1408) + rxt(k,395)*y(k,236) + mat(k,1449) = mat(k,1449) + rxt(k,404)*y(k,236) + mat(k,967) = .170_r8*rxt(k,480)*y(k,125) + .070_r8*rxt(k,479)*y(k,243) + mat(k,2236) = rxt(k,333)*y(k,54) + mat(k,1860) = rxt(k,357)*y(k,50) + .700_r8*rxt(k,326)*y(k,53) + rxt(k,327) & + *y(k,54) + mat(k,1285) = mat(k,1285) + rxt(k,453)*y(k,236) + mat(k,823) = -(rxt(k,473)*y(k,243) + rxt(k,474)*y(k,125) + rxt(k,475) & + *y(k,126)) + mat(k,2331) = -rxt(k,473)*y(k,238) + mat(k,1918) = -rxt(k,474)*y(k,238) + mat(k,1661) = -rxt(k,475)*y(k,238) + mat(k,910) = -(rxt(k,606)*y(k,258) + rxt(k,607)*y(k,264) + rxt(k,608) & *y(k,257)) - mat(k,890) = -rxt(k,603)*y(k,243) - mat(k,898) = -rxt(k,604)*y(k,243) - mat(k,743) = -rxt(k,605)*y(k,243) - mat(k,612) = -((rxt(k,389) + rxt(k,390)) * y(k,131)) - mat(k,1735) = -(rxt(k,389) + rxt(k,390)) * y(k,244) - mat(k,410) = rxt(k,388)*y(k,265) - mat(k,1929) = rxt(k,388)*y(k,18) - mat(k,509) = -(rxt(k,359)*y(k,142)) - mat(k,1570) = -rxt(k,359)*y(k,245) - mat(k,1728) = .750_r8*rxt(k,357)*y(k,246) - mat(k,831) = .750_r8*rxt(k,357)*y(k,131) - mat(k,832) = -(rxt(k,356)*y(k,247) + rxt(k,357)*y(k,131)) - mat(k,2168) = -rxt(k,356)*y(k,246) - mat(k,1746) = -rxt(k,357)*y(k,246) - mat(k,621) = rxt(k,363)*y(k,265) - mat(k,1952) = rxt(k,363)*y(k,27) - mat(k,2214) = -((rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,78) + rxt(k,196) & - *y(k,141) + rxt(k,197)*y(k,143) + rxt(k,201)*y(k,265) & - + 4._r8*rxt(k,206)*y(k,247) + rxt(k,218)*y(k,133) + rxt(k,223) & - *y(k,131) + rxt(k,228)*y(k,132) + (rxt(k,238) + rxt(k,239) & - ) * y(k,58) + rxt(k,245)*y(k,61) + rxt(k,271)*y(k,19) + rxt(k,277) & - *y(k,21) + rxt(k,314)*y(k,44) + rxt(k,320)*y(k,241) + rxt(k,327) & - *y(k,248) + rxt(k,341)*y(k,237) + rxt(k,352)*y(k,240) + rxt(k,356) & - *y(k,246) + rxt(k,369)*y(k,238) + rxt(k,378)*y(k,268) + rxt(k,382) & - *y(k,269) + rxt(k,394)*y(k,251) + rxt(k,403)*y(k,253) + rxt(k,407) & - *y(k,255) + rxt(k,417)*y(k,234) + rxt(k,427)*y(k,249) + rxt(k,432) & - *y(k,250) + rxt(k,441)*y(k,103) + rxt(k,452)*y(k,273) + rxt(k,456) & - *y(k,233) + rxt(k,459)*y(k,235) + rxt(k,463)*y(k,236) + rxt(k,466) & - *y(k,239) + rxt(k,470)*y(k,242) + rxt(k,473)*y(k,252) + rxt(k,476) & - *y(k,254) + rxt(k,479)*y(k,267) + rxt(k,486)*y(k,272) + rxt(k,492) & - *y(k,274) + rxt(k,495)*y(k,275) + rxt(k,506)*y(k,260) + rxt(k,511) & - *y(k,270) + rxt(k,516)*y(k,271)) - mat(k,2281) = -(rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,247) - mat(k,2463) = -rxt(k,196)*y(k,247) - mat(k,2420) = -rxt(k,197)*y(k,247) - mat(k,2009) = -rxt(k,201)*y(k,247) - mat(k,2069) = -rxt(k,218)*y(k,247) - mat(k,1793) = -rxt(k,223)*y(k,247) - mat(k,1687) = -rxt(k,228)*y(k,247) - mat(k,2260) = -(rxt(k,238) + rxt(k,239)) * y(k,247) - mat(k,1642) = -rxt(k,245)*y(k,247) - mat(k,1562) = -rxt(k,271)*y(k,247) - mat(k,1616) = -rxt(k,277)*y(k,247) - mat(k,2489) = -rxt(k,314)*y(k,247) - mat(k,2356) = -rxt(k,320)*y(k,247) - mat(k,491) = -rxt(k,327)*y(k,247) - mat(k,956) = -rxt(k,341)*y(k,247) - mat(k,1480) = -rxt(k,352)*y(k,247) - mat(k,838) = -rxt(k,356)*y(k,247) - mat(k,986) = -rxt(k,369)*y(k,247) - mat(k,869) = -rxt(k,378)*y(k,247) - mat(k,1267) = -rxt(k,382)*y(k,247) - mat(k,1408) = -rxt(k,394)*y(k,247) - mat(k,1448) = -rxt(k,403)*y(k,247) - mat(k,727) = -rxt(k,407)*y(k,247) - mat(k,1094) = -rxt(k,417)*y(k,247) - mat(k,1353) = -rxt(k,427)*y(k,247) - mat(k,1386) = -rxt(k,432)*y(k,247) - mat(k,1307) = -rxt(k,441)*y(k,247) - mat(k,1285) = -rxt(k,452)*y(k,247) - mat(k,574) = -rxt(k,456)*y(k,247) - mat(k,547) = -rxt(k,459)*y(k,247) - mat(k,486) = -rxt(k,463)*y(k,247) - mat(k,696) = -rxt(k,466)*y(k,247) - mat(k,828) = -rxt(k,470)*y(k,247) - mat(k,789) = -rxt(k,473)*y(k,247) - mat(k,966) = -rxt(k,476)*y(k,247) - mat(k,505) = -rxt(k,479)*y(k,247) - mat(k,804) = -rxt(k,486)*y(k,247) - mat(k,821) = -rxt(k,492)*y(k,247) - mat(k,562) = -rxt(k,495)*y(k,247) - mat(k,1158) = -rxt(k,506)*y(k,247) - mat(k,1229) = -rxt(k,511)*y(k,247) - mat(k,1112) = -rxt(k,516)*y(k,247) - mat(k,1077) = .570_r8*rxt(k,500)*y(k,143) - mat(k,213) = .650_r8*rxt(k,458)*y(k,265) - mat(k,1562) = mat(k,1562) + rxt(k,270)*y(k,44) - mat(k,1616) = mat(k,1616) + rxt(k,282)*y(k,265) - mat(k,330) = .350_r8*rxt(k,336)*y(k,265) - mat(k,625) = .130_r8*rxt(k,338)*y(k,143) - mat(k,314) = rxt(k,343)*y(k,265) - mat(k,1190) = .280_r8*rxt(k,367)*y(k,143) - mat(k,2489) = mat(k,2489) + rxt(k,270)*y(k,19) + rxt(k,234)*y(k,58) & - + rxt(k,315)*y(k,133) + rxt(k,316)*y(k,141) - mat(k,633) = rxt(k,299)*y(k,58) + rxt(k,300)*y(k,265) - mat(k,405) = rxt(k,302)*y(k,58) + rxt(k,303)*y(k,265) - mat(k,149) = rxt(k,349)*y(k,265) - mat(k,859) = rxt(k,322)*y(k,265) - mat(k,2094) = rxt(k,331)*y(k,261) - mat(k,2260) = mat(k,2260) + rxt(k,234)*y(k,44) + rxt(k,299)*y(k,45) & - + rxt(k,302)*y(k,48) + rxt(k,237)*y(k,81) - mat(k,1642) = mat(k,1642) + rxt(k,241)*y(k,241) + rxt(k,252)*y(k,265) - mat(k,1207) = rxt(k,334)*y(k,265) - mat(k,240) = .730_r8*rxt(k,469)*y(k,265) - mat(k,353) = .500_r8*rxt(k,537)*y(k,265) - mat(k,1213) = rxt(k,360)*y(k,265) - mat(k,1102) = rxt(k,361)*y(k,265) - mat(k,2281) = mat(k,2281) + rxt(k,195)*y(k,142) - mat(k,647) = rxt(k,237)*y(k,58) + rxt(k,191)*y(k,141) + rxt(k,200)*y(k,265) - mat(k,251) = rxt(k,325)*y(k,265) - mat(k,945) = rxt(k,326)*y(k,265) - mat(k,1247) = rxt(k,391)*y(k,265) - mat(k,1256) = rxt(k,376)*y(k,265) - mat(k,932) = .370_r8*rxt(k,445)*y(k,143) - mat(k,657) = .300_r8*rxt(k,436)*y(k,265) - mat(k,602) = rxt(k,437)*y(k,265) - mat(k,1307) = mat(k,1307) + rxt(k,442)*y(k,131) + rxt(k,443)*y(k,133) & - + rxt(k,439)*y(k,240) + 1.200_r8*rxt(k,440)*y(k,241) - mat(k,448) = rxt(k,444)*y(k,265) - mat(k,1320) = .140_r8*rxt(k,398)*y(k,143) - mat(k,397) = .200_r8*rxt(k,400)*y(k,265) - mat(k,678) = .500_r8*rxt(k,411)*y(k,265) - mat(k,1021) = .570_r8*rxt(k,503)*y(k,143) - mat(k,1430) = .280_r8*rxt(k,412)*y(k,143) - mat(k,497) = rxt(k,448)*y(k,265) - mat(k,1142) = rxt(k,449)*y(k,265) - mat(k,1793) = mat(k,1793) + rxt(k,442)*y(k,103) + rxt(k,418)*y(k,234) & - + rxt(k,460)*y(k,235) + rxt(k,465)*y(k,236) + rxt(k,342) & - *y(k,237) + rxt(k,370)*y(k,238) + rxt(k,321)*y(k,241) & - + .170_r8*rxt(k,471)*y(k,242) + rxt(k,389)*y(k,244) & - + .250_r8*rxt(k,357)*y(k,246) + rxt(k,329)*y(k,248) & - + .920_r8*rxt(k,428)*y(k,249) + .920_r8*rxt(k,434)*y(k,250) & - + .470_r8*rxt(k,396)*y(k,251) + .400_r8*rxt(k,474)*y(k,252) & - + .830_r8*rxt(k,477)*y(k,254) + rxt(k,480)*y(k,267) + rxt(k,379) & - *y(k,268) + .900_r8*rxt(k,512)*y(k,270) + .800_r8*rxt(k,517) & - *y(k,271) + rxt(k,487)*y(k,272) + rxt(k,453)*y(k,273) & - + rxt(k,493)*y(k,274) + rxt(k,496)*y(k,275) - mat(k,2069) = mat(k,2069) + rxt(k,315)*y(k,44) + rxt(k,443)*y(k,103) & - + rxt(k,429)*y(k,249) + rxt(k,435)*y(k,250) + .470_r8*rxt(k,395) & - *y(k,251) + rxt(k,221)*y(k,265) + rxt(k,454)*y(k,273) - mat(k,2463) = mat(k,2463) + rxt(k,316)*y(k,44) + rxt(k,191)*y(k,81) - mat(k,1593) = rxt(k,195)*y(k,78) + rxt(k,359)*y(k,245) - mat(k,2420) = mat(k,2420) + .570_r8*rxt(k,500)*y(k,6) + .130_r8*rxt(k,338) & - *y(k,27) + .280_r8*rxt(k,367)*y(k,31) + .370_r8*rxt(k,445) & - *y(k,100) + .140_r8*rxt(k,398)*y(k,111) + .570_r8*rxt(k,503) & - *y(k,116) + .280_r8*rxt(k,412)*y(k,118) + rxt(k,203)*y(k,265) - mat(k,222) = .800_r8*rxt(k,481)*y(k,265) - mat(k,994) = rxt(k,527)*y(k,265) - mat(k,1169) = .200_r8*rxt(k,521)*y(k,265) - mat(k,235) = .280_r8*rxt(k,489)*y(k,265) - mat(k,261) = .380_r8*rxt(k,491)*y(k,265) - mat(k,266) = .630_r8*rxt(k,497)*y(k,265) - mat(k,1094) = mat(k,1094) + rxt(k,418)*y(k,131) - mat(k,547) = mat(k,547) + rxt(k,460)*y(k,131) - mat(k,486) = mat(k,486) + rxt(k,465)*y(k,131) - mat(k,956) = mat(k,956) + rxt(k,342)*y(k,131) + 2.400_r8*rxt(k,339)*y(k,237) & - + rxt(k,340)*y(k,241) - mat(k,986) = mat(k,986) + rxt(k,370)*y(k,131) + rxt(k,368)*y(k,241) - mat(k,1480) = mat(k,1480) + rxt(k,439)*y(k,103) + .900_r8*rxt(k,351)*y(k,241) & - + rxt(k,425)*y(k,249) + rxt(k,430)*y(k,250) + .470_r8*rxt(k,392) & - *y(k,251) + rxt(k,450)*y(k,273) - mat(k,2356) = mat(k,2356) + rxt(k,241)*y(k,61) + 1.200_r8*rxt(k,440)*y(k,103) & - + rxt(k,321)*y(k,131) + rxt(k,340)*y(k,237) + rxt(k,368) & - *y(k,238) + .900_r8*rxt(k,351)*y(k,240) + 4.000_r8*rxt(k,318) & - *y(k,241) + rxt(k,426)*y(k,249) + rxt(k,431)*y(k,250) & - + .730_r8*rxt(k,393)*y(k,251) + rxt(k,402)*y(k,253) & - + .500_r8*rxt(k,505)*y(k,260) + .300_r8*rxt(k,381)*y(k,269) & - + rxt(k,510)*y(k,270) + rxt(k,515)*y(k,271) + .800_r8*rxt(k,451) & - *y(k,273) - mat(k,828) = mat(k,828) + .170_r8*rxt(k,471)*y(k,131) + .070_r8*rxt(k,470) & - *y(k,247) - mat(k,618) = rxt(k,389)*y(k,131) - mat(k,512) = rxt(k,359)*y(k,142) - mat(k,838) = mat(k,838) + .250_r8*rxt(k,357)*y(k,131) - mat(k,2214) = mat(k,2214) + .070_r8*rxt(k,470)*y(k,242) + .160_r8*rxt(k,473) & - *y(k,252) + .330_r8*rxt(k,476)*y(k,254) - mat(k,491) = mat(k,491) + rxt(k,329)*y(k,131) - mat(k,1353) = mat(k,1353) + .920_r8*rxt(k,428)*y(k,131) + rxt(k,429)*y(k,133) & - + rxt(k,425)*y(k,240) + rxt(k,426)*y(k,241) - mat(k,1386) = mat(k,1386) + .920_r8*rxt(k,434)*y(k,131) + rxt(k,435)*y(k,133) & - + rxt(k,430)*y(k,240) + rxt(k,431)*y(k,241) - mat(k,1408) = mat(k,1408) + .470_r8*rxt(k,396)*y(k,131) + .470_r8*rxt(k,395) & - *y(k,133) + .470_r8*rxt(k,392)*y(k,240) + .730_r8*rxt(k,393) & - *y(k,241) - mat(k,789) = mat(k,789) + .400_r8*rxt(k,474)*y(k,131) + .160_r8*rxt(k,473) & - *y(k,247) - mat(k,1448) = mat(k,1448) + rxt(k,402)*y(k,241) - mat(k,966) = mat(k,966) + .830_r8*rxt(k,477)*y(k,131) + .330_r8*rxt(k,476) & - *y(k,247) - mat(k,1158) = mat(k,1158) + .500_r8*rxt(k,505)*y(k,241) - mat(k,1836) = rxt(k,331)*y(k,56) - mat(k,2009) = mat(k,2009) + .650_r8*rxt(k,458)*y(k,8) + rxt(k,282)*y(k,21) & - + .350_r8*rxt(k,336)*y(k,26) + rxt(k,343)*y(k,28) + rxt(k,300) & - *y(k,45) + rxt(k,303)*y(k,48) + rxt(k,349)*y(k,49) + rxt(k,322) & - *y(k,54) + rxt(k,252)*y(k,61) + rxt(k,334)*y(k,64) & - + .730_r8*rxt(k,469)*y(k,68) + .500_r8*rxt(k,537)*y(k,69) & - + rxt(k,360)*y(k,76) + rxt(k,361)*y(k,77) + rxt(k,200)*y(k,81) & - + rxt(k,325)*y(k,88) + rxt(k,326)*y(k,89) + rxt(k,391)*y(k,95) & - + rxt(k,376)*y(k,97) + .300_r8*rxt(k,436)*y(k,101) + rxt(k,437) & - *y(k,102) + rxt(k,444)*y(k,104) + .200_r8*rxt(k,400)*y(k,112) & - + .500_r8*rxt(k,411)*y(k,115) + rxt(k,448)*y(k,122) + rxt(k,449) & - *y(k,123) + rxt(k,221)*y(k,133) + rxt(k,203)*y(k,143) & - + .800_r8*rxt(k,481)*y(k,151) + rxt(k,527)*y(k,162) & - + .200_r8*rxt(k,521)*y(k,221) + .280_r8*rxt(k,489)*y(k,223) & - + .380_r8*rxt(k,491)*y(k,226) + .630_r8*rxt(k,497)*y(k,229) - mat(k,505) = mat(k,505) + rxt(k,480)*y(k,131) - mat(k,869) = mat(k,869) + rxt(k,379)*y(k,131) - mat(k,1267) = mat(k,1267) + .300_r8*rxt(k,381)*y(k,241) - mat(k,1229) = mat(k,1229) + .900_r8*rxt(k,512)*y(k,131) + rxt(k,510)*y(k,241) - mat(k,1112) = mat(k,1112) + .800_r8*rxt(k,517)*y(k,131) + rxt(k,515)*y(k,241) - mat(k,804) = mat(k,804) + rxt(k,487)*y(k,131) - mat(k,1285) = mat(k,1285) + rxt(k,453)*y(k,131) + rxt(k,454)*y(k,133) & - + rxt(k,450)*y(k,240) + .800_r8*rxt(k,451)*y(k,241) - mat(k,821) = mat(k,821) + rxt(k,493)*y(k,131) - mat(k,562) = mat(k,562) + rxt(k,496)*y(k,131) + mat(k,891) = -rxt(k,606)*y(k,239) + mat(k,899) = -rxt(k,607)*y(k,239) + mat(k,677) = -rxt(k,608)*y(k,239) + mat(k,609) = -((rxt(k,392) + rxt(k,393)) * y(k,125)) + mat(k,1907) = -(rxt(k,392) + rxt(k,393)) * y(k,240) + mat(k,404) = rxt(k,391)*y(k,265) + mat(k,1780) = rxt(k,391)*y(k,16) + mat(k,511) = -(rxt(k,362)*y(k,136)) + mat(k,1571) = -rxt(k,362)*y(k,241) + mat(k,1900) = .750_r8*rxt(k,360)*y(k,242) + mat(k,841) = .750_r8*rxt(k,360)*y(k,125) + mat(k,842) = -(rxt(k,359)*y(k,243) + rxt(k,360)*y(k,125)) + mat(k,2333) = -rxt(k,359)*y(k,242) + mat(k,1919) = -rxt(k,360)*y(k,242) + mat(k,578) = rxt(k,366)*y(k,265) + mat(k,1802) = rxt(k,366)*y(k,25) + mat(k,2382) = -((rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,76) + rxt(k,196) & + *y(k,135) + rxt(k,197)*y(k,137) + rxt(k,201)*y(k,265) & + + 4._r8*rxt(k,206)*y(k,243) + rxt(k,218)*y(k,127) + rxt(k,223) & + *y(k,125) + rxt(k,228)*y(k,126) + (rxt(k,241) + rxt(k,242) & + ) * y(k,56) + rxt(k,248)*y(k,59) + rxt(k,274)*y(k,17) + rxt(k,280) & + *y(k,19) + rxt(k,317)*y(k,42) + rxt(k,323)*y(k,237) + rxt(k,330) & + *y(k,244) + rxt(k,344)*y(k,233) + rxt(k,355)*y(k,236) + rxt(k,359) & + *y(k,242) + rxt(k,372)*y(k,234) + rxt(k,381)*y(k,268) + rxt(k,385) & + *y(k,269) + rxt(k,397)*y(k,250) + rxt(k,406)*y(k,252) + rxt(k,410) & + *y(k,254) + rxt(k,420)*y(k,228) + rxt(k,430)*y(k,245) + rxt(k,435) & + *y(k,246) + rxt(k,444)*y(k,101) + rxt(k,455)*y(k,274) + rxt(k,459) & + *y(k,227) + rxt(k,462)*y(k,230) + rxt(k,466)*y(k,232) + rxt(k,469) & + *y(k,235) + rxt(k,473)*y(k,238) + rxt(k,476)*y(k,251) + rxt(k,479) & + *y(k,253) + rxt(k,482)*y(k,267) + rxt(k,489)*y(k,272) + rxt(k,495) & + *y(k,275) + rxt(k,498)*y(k,277) + rxt(k,509)*y(k,260) + rxt(k,514) & + *y(k,270) + rxt(k,519)*y(k,271)) + mat(k,2144) = -(rxt(k,192) + rxt(k,193) + rxt(k,194)) * y(k,243) + mat(k,2059) = -rxt(k,196)*y(k,243) + mat(k,2123) = -rxt(k,197)*y(k,243) + mat(k,1863) = -rxt(k,201)*y(k,243) + mat(k,2442) = -rxt(k,218)*y(k,243) + mat(k,1970) = -rxt(k,223)*y(k,243) + mat(k,1690) = -rxt(k,228)*y(k,243) + mat(k,2016) = -(rxt(k,241) + rxt(k,242)) * y(k,243) + mat(k,2495) = -rxt(k,248)*y(k,243) + mat(k,1566) = -rxt(k,274)*y(k,243) + mat(k,1620) = -rxt(k,280)*y(k,243) + mat(k,2468) = -rxt(k,317)*y(k,243) + mat(k,2196) = -rxt(k,323)*y(k,243) + mat(k,487) = -rxt(k,330)*y(k,243) + mat(k,953) = -rxt(k,344)*y(k,243) + mat(k,1483) = -rxt(k,355)*y(k,243) + mat(k,848) = -rxt(k,359)*y(k,243) + mat(k,988) = -rxt(k,372)*y(k,243) + mat(k,866) = -rxt(k,381)*y(k,243) + mat(k,1269) = -rxt(k,385)*y(k,243) + mat(k,1410) = -rxt(k,397)*y(k,243) + mat(k,1451) = -rxt(k,406)*y(k,243) + mat(k,749) = -rxt(k,410)*y(k,243) + mat(k,1096) = -rxt(k,420)*y(k,243) + mat(k,1356) = -rxt(k,430)*y(k,243) + mat(k,1389) = -rxt(k,435)*y(k,243) + mat(k,1309) = -rxt(k,444)*y(k,243) + mat(k,1286) = -rxt(k,455)*y(k,243) + mat(k,576) = -rxt(k,459)*y(k,243) + mat(k,538) = -rxt(k,462)*y(k,243) + mat(k,482) = -rxt(k,466)*y(k,243) + mat(k,703) = -rxt(k,469)*y(k,243) + mat(k,830) = -rxt(k,473)*y(k,243) + mat(k,782) = -rxt(k,476)*y(k,243) + mat(k,968) = -rxt(k,479)*y(k,243) + mat(k,507) = -rxt(k,482)*y(k,243) + mat(k,797) = -rxt(k,489)*y(k,243) + mat(k,822) = -rxt(k,495)*y(k,243) + mat(k,564) = -rxt(k,498)*y(k,243) + mat(k,1160) = -rxt(k,509)*y(k,243) + mat(k,1232) = -rxt(k,514)*y(k,243) + mat(k,1115) = -rxt(k,519)*y(k,243) + mat(k,1078) = .570_r8*rxt(k,503)*y(k,137) + mat(k,215) = .650_r8*rxt(k,461)*y(k,265) + mat(k,1566) = mat(k,1566) + rxt(k,273)*y(k,42) + mat(k,1620) = mat(k,1620) + rxt(k,285)*y(k,265) + mat(k,326) = .350_r8*rxt(k,339)*y(k,265) + mat(k,583) = .130_r8*rxt(k,341)*y(k,137) + mat(k,307) = rxt(k,346)*y(k,265) + mat(k,1192) = .280_r8*rxt(k,370)*y(k,137) + mat(k,2468) = mat(k,2468) + rxt(k,273)*y(k,17) + rxt(k,237)*y(k,56) & + + rxt(k,318)*y(k,127) + rxt(k,319)*y(k,135) + mat(k,688) = rxt(k,302)*y(k,56) + rxt(k,303)*y(k,265) + mat(k,417) = rxt(k,305)*y(k,56) + rxt(k,306)*y(k,265) + mat(k,151) = rxt(k,352)*y(k,265) + mat(k,871) = rxt(k,325)*y(k,265) + mat(k,1645) = rxt(k,334)*y(k,261) + mat(k,2016) = mat(k,2016) + rxt(k,237)*y(k,42) + rxt(k,302)*y(k,43) & + + rxt(k,305)*y(k,46) + rxt(k,240)*y(k,79) + mat(k,2495) = mat(k,2495) + rxt(k,244)*y(k,237) + rxt(k,255)*y(k,265) + mat(k,1208) = rxt(k,337)*y(k,265) + mat(k,242) = .730_r8*rxt(k,472)*y(k,265) + mat(k,349) = .500_r8*rxt(k,540)*y(k,265) + mat(k,1214) = rxt(k,363)*y(k,265) + mat(k,1103) = rxt(k,364)*y(k,265) + mat(k,2144) = mat(k,2144) + rxt(k,195)*y(k,136) + mat(k,648) = rxt(k,240)*y(k,56) + rxt(k,191)*y(k,135) + rxt(k,200)*y(k,265) + mat(k,253) = rxt(k,328)*y(k,265) + mat(k,958) = rxt(k,329)*y(k,265) + mat(k,1249) = rxt(k,394)*y(k,265) + mat(k,1257) = rxt(k,379)*y(k,265) + mat(k,940) = .370_r8*rxt(k,448)*y(k,137) + mat(k,641) = .300_r8*rxt(k,439)*y(k,265) + mat(k,600) = rxt(k,440)*y(k,265) + mat(k,1309) = mat(k,1309) + rxt(k,445)*y(k,125) + rxt(k,446)*y(k,127) & + + rxt(k,442)*y(k,236) + 1.200_r8*rxt(k,443)*y(k,237) + mat(k,444) = rxt(k,447)*y(k,265) + mat(k,1322) = .140_r8*rxt(k,401)*y(k,137) + mat(k,392) = .200_r8*rxt(k,403)*y(k,265) + mat(k,631) = .500_r8*rxt(k,414)*y(k,265) + mat(k,1022) = .570_r8*rxt(k,506)*y(k,137) + mat(k,1433) = .280_r8*rxt(k,415)*y(k,137) + mat(k,468) = rxt(k,451)*y(k,265) + mat(k,1145) = rxt(k,452)*y(k,265) + mat(k,1970) = mat(k,1970) + rxt(k,445)*y(k,101) + rxt(k,421)*y(k,228) & + + rxt(k,463)*y(k,230) + rxt(k,468)*y(k,232) + rxt(k,345) & + *y(k,233) + rxt(k,373)*y(k,234) + rxt(k,324)*y(k,237) & + + .170_r8*rxt(k,474)*y(k,238) + rxt(k,392)*y(k,240) & + + .250_r8*rxt(k,360)*y(k,242) + rxt(k,332)*y(k,244) & + + .920_r8*rxt(k,431)*y(k,245) + .920_r8*rxt(k,437)*y(k,246) & + + .470_r8*rxt(k,399)*y(k,250) + .400_r8*rxt(k,477)*y(k,251) & + + .830_r8*rxt(k,480)*y(k,253) + rxt(k,483)*y(k,267) + rxt(k,382) & + *y(k,268) + .900_r8*rxt(k,515)*y(k,270) + .800_r8*rxt(k,520) & + *y(k,271) + rxt(k,490)*y(k,272) + rxt(k,456)*y(k,274) & + + rxt(k,496)*y(k,275) + rxt(k,499)*y(k,277) + mat(k,2442) = mat(k,2442) + rxt(k,318)*y(k,42) + rxt(k,446)*y(k,101) & + + rxt(k,432)*y(k,245) + rxt(k,438)*y(k,246) + .470_r8*rxt(k,398) & + *y(k,250) + rxt(k,221)*y(k,265) + rxt(k,457)*y(k,274) + mat(k,2059) = mat(k,2059) + rxt(k,319)*y(k,42) + rxt(k,191)*y(k,79) + mat(k,1597) = rxt(k,195)*y(k,76) + rxt(k,362)*y(k,241) + mat(k,2123) = mat(k,2123) + .570_r8*rxt(k,503)*y(k,6) + .130_r8*rxt(k,341) & + *y(k,25) + .280_r8*rxt(k,370)*y(k,29) + .370_r8*rxt(k,448) & + *y(k,98) + .140_r8*rxt(k,401)*y(k,106) + .570_r8*rxt(k,506) & + *y(k,111) + .280_r8*rxt(k,415)*y(k,112) + rxt(k,203)*y(k,265) + mat(k,224) = .800_r8*rxt(k,484)*y(k,265) + mat(k,996) = rxt(k,530)*y(k,265) + mat(k,1171) = .200_r8*rxt(k,524)*y(k,265) + mat(k,237) = .280_r8*rxt(k,492)*y(k,265) + mat(k,263) = .380_r8*rxt(k,494)*y(k,265) + mat(k,268) = .630_r8*rxt(k,500)*y(k,265) + mat(k,1096) = mat(k,1096) + rxt(k,421)*y(k,125) + mat(k,538) = mat(k,538) + rxt(k,463)*y(k,125) + mat(k,482) = mat(k,482) + rxt(k,468)*y(k,125) + mat(k,953) = mat(k,953) + rxt(k,345)*y(k,125) + 2.400_r8*rxt(k,342)*y(k,233) & + + rxt(k,343)*y(k,237) + mat(k,988) = mat(k,988) + rxt(k,373)*y(k,125) + rxt(k,371)*y(k,237) + mat(k,1483) = mat(k,1483) + rxt(k,442)*y(k,101) + .900_r8*rxt(k,354)*y(k,237) & + + rxt(k,428)*y(k,245) + rxt(k,433)*y(k,246) + .470_r8*rxt(k,395) & + *y(k,250) + rxt(k,453)*y(k,274) + mat(k,2196) = mat(k,2196) + rxt(k,244)*y(k,59) + 1.200_r8*rxt(k,443)*y(k,101) & + + rxt(k,324)*y(k,125) + rxt(k,343)*y(k,233) + rxt(k,371) & + *y(k,234) + .900_r8*rxt(k,354)*y(k,236) + 4.000_r8*rxt(k,321) & + *y(k,237) + rxt(k,429)*y(k,245) + rxt(k,434)*y(k,246) & + + .730_r8*rxt(k,396)*y(k,250) + rxt(k,405)*y(k,252) & + + .500_r8*rxt(k,508)*y(k,260) + .300_r8*rxt(k,384)*y(k,269) & + + rxt(k,513)*y(k,270) + rxt(k,518)*y(k,271) + .800_r8*rxt(k,454) & + *y(k,274) + mat(k,830) = mat(k,830) + .170_r8*rxt(k,474)*y(k,125) + .070_r8*rxt(k,473) & + *y(k,243) + mat(k,615) = rxt(k,392)*y(k,125) + mat(k,514) = rxt(k,362)*y(k,136) + mat(k,848) = mat(k,848) + .250_r8*rxt(k,360)*y(k,125) + mat(k,2382) = mat(k,2382) + .070_r8*rxt(k,473)*y(k,238) + .160_r8*rxt(k,476) & + *y(k,251) + .330_r8*rxt(k,479)*y(k,253) + mat(k,487) = mat(k,487) + rxt(k,332)*y(k,125) + mat(k,1356) = mat(k,1356) + .920_r8*rxt(k,431)*y(k,125) + rxt(k,432)*y(k,127) & + + rxt(k,428)*y(k,236) + rxt(k,429)*y(k,237) + mat(k,1389) = mat(k,1389) + .920_r8*rxt(k,437)*y(k,125) + rxt(k,438)*y(k,127) & + + rxt(k,433)*y(k,236) + rxt(k,434)*y(k,237) + mat(k,1410) = mat(k,1410) + .470_r8*rxt(k,399)*y(k,125) + .470_r8*rxt(k,398) & + *y(k,127) + .470_r8*rxt(k,395)*y(k,236) + .730_r8*rxt(k,396) & + *y(k,237) + mat(k,782) = mat(k,782) + .400_r8*rxt(k,477)*y(k,125) + .160_r8*rxt(k,476) & + *y(k,243) + mat(k,1451) = mat(k,1451) + rxt(k,405)*y(k,237) + mat(k,968) = mat(k,968) + .830_r8*rxt(k,480)*y(k,125) + .330_r8*rxt(k,479) & + *y(k,243) + mat(k,1160) = mat(k,1160) + .500_r8*rxt(k,508)*y(k,237) + mat(k,2239) = rxt(k,334)*y(k,54) + mat(k,1863) = mat(k,1863) + .650_r8*rxt(k,461)*y(k,7) + rxt(k,285)*y(k,19) & + + .350_r8*rxt(k,339)*y(k,24) + rxt(k,346)*y(k,26) + rxt(k,303) & + *y(k,43) + rxt(k,306)*y(k,46) + rxt(k,352)*y(k,47) + rxt(k,325) & + *y(k,52) + rxt(k,255)*y(k,59) + rxt(k,337)*y(k,62) & + + .730_r8*rxt(k,472)*y(k,66) + .500_r8*rxt(k,540)*y(k,67) & + + rxt(k,363)*y(k,74) + rxt(k,364)*y(k,75) + rxt(k,200)*y(k,79) & + + rxt(k,328)*y(k,86) + rxt(k,329)*y(k,87) + rxt(k,394)*y(k,93) & + + rxt(k,379)*y(k,95) + .300_r8*rxt(k,439)*y(k,99) + rxt(k,440) & + *y(k,100) + rxt(k,447)*y(k,102) + .200_r8*rxt(k,403)*y(k,107) & + + .500_r8*rxt(k,414)*y(k,110) + rxt(k,451)*y(k,116) + rxt(k,452) & + *y(k,117) + rxt(k,221)*y(k,127) + rxt(k,203)*y(k,137) & + + .800_r8*rxt(k,484)*y(k,145) + rxt(k,530)*y(k,158) & + + .200_r8*rxt(k,524)*y(k,217) + .280_r8*rxt(k,492)*y(k,219) & + + .380_r8*rxt(k,494)*y(k,221) + .630_r8*rxt(k,500)*y(k,223) + mat(k,507) = mat(k,507) + rxt(k,483)*y(k,125) + mat(k,866) = mat(k,866) + rxt(k,382)*y(k,125) + mat(k,1269) = mat(k,1269) + .300_r8*rxt(k,384)*y(k,237) + mat(k,1232) = mat(k,1232) + .900_r8*rxt(k,515)*y(k,125) + rxt(k,513)*y(k,237) + mat(k,1115) = mat(k,1115) + .800_r8*rxt(k,520)*y(k,125) + rxt(k,518)*y(k,237) + mat(k,797) = mat(k,797) + rxt(k,490)*y(k,125) + mat(k,1286) = mat(k,1286) + rxt(k,456)*y(k,125) + rxt(k,457)*y(k,127) & + + rxt(k,453)*y(k,236) + .800_r8*rxt(k,454)*y(k,237) + mat(k,822) = mat(k,822) + rxt(k,496)*y(k,125) + mat(k,564) = mat(k,564) + rxt(k,499)*y(k,125) end do end subroutine nlnmat09 subroutine nlnmat10( avec_len, mat, y, rxt ) @@ -2217,371 +2204,395 @@ subroutine nlnmat10( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,487) = -(rxt(k,327)*y(k,247) + rxt(k,329)*y(k,131)) - mat(k,2142) = -rxt(k,327)*y(k,248) - mat(k,1725) = -rxt(k,329)*y(k,248) - mat(k,2472) = rxt(k,314)*y(k,247) - mat(k,2142) = mat(k,2142) + rxt(k,314)*y(k,44) - mat(k,1343) = -(rxt(k,425)*y(k,240) + rxt(k,426)*y(k,241) + rxt(k,427) & - *y(k,247) + rxt(k,428)*y(k,131) + rxt(k,429)*y(k,133)) - mat(k,1467) = -rxt(k,425)*y(k,249) - mat(k,2340) = -rxt(k,426)*y(k,249) - mat(k,2195) = -rxt(k,427)*y(k,249) - mat(k,1776) = -rxt(k,428)*y(k,249) - mat(k,2051) = -rxt(k,429)*y(k,249) - mat(k,926) = .600_r8*rxt(k,446)*y(k,265) - mat(k,1989) = .600_r8*rxt(k,446)*y(k,100) - mat(k,1376) = -(rxt(k,430)*y(k,240) + rxt(k,431)*y(k,241) + rxt(k,432) & - *y(k,247) + rxt(k,434)*y(k,131) + rxt(k,435)*y(k,133)) - mat(k,1468) = -rxt(k,430)*y(k,250) - mat(k,2341) = -rxt(k,431)*y(k,250) - mat(k,2196) = -rxt(k,432)*y(k,250) - mat(k,1777) = -rxt(k,434)*y(k,250) - mat(k,2052) = -rxt(k,435)*y(k,250) - mat(k,927) = .400_r8*rxt(k,446)*y(k,265) - mat(k,1990) = .400_r8*rxt(k,446)*y(k,100) - mat(k,1400) = -(rxt(k,392)*y(k,240) + rxt(k,393)*y(k,241) + rxt(k,394) & - *y(k,247) + rxt(k,395)*y(k,133) + (rxt(k,396) + rxt(k,397) & - ) * y(k,131)) - mat(k,1469) = -rxt(k,392)*y(k,251) - mat(k,2342) = -rxt(k,393)*y(k,251) - mat(k,2197) = -rxt(k,394)*y(k,251) - mat(k,2053) = -rxt(k,395)*y(k,251) - mat(k,1778) = -(rxt(k,396) + rxt(k,397)) * y(k,251) - mat(k,1315) = .500_r8*rxt(k,399)*y(k,265) - mat(k,394) = .200_r8*rxt(k,400)*y(k,265) - mat(k,1419) = rxt(k,413)*y(k,265) - mat(k,1991) = .500_r8*rxt(k,399)*y(k,111) + .200_r8*rxt(k,400)*y(k,112) & - + rxt(k,413)*y(k,118) - mat(k,784) = -(rxt(k,473)*y(k,247) + rxt(k,474)*y(k,131) + rxt(k,475) & - *y(k,132)) - mat(k,2164) = -rxt(k,473)*y(k,252) - mat(k,1742) = -rxt(k,474)*y(k,252) - mat(k,1661) = -rxt(k,475)*y(k,252) - mat(k,1441) = -(rxt(k,401)*y(k,240) + rxt(k,402)*y(k,241) + rxt(k,403) & - *y(k,247) + 4._r8*rxt(k,404)*y(k,253) + rxt(k,405)*y(k,131) & - + rxt(k,406)*y(k,133) + rxt(k,414)*y(k,132)) - mat(k,1471) = -rxt(k,401)*y(k,253) - mat(k,2344) = -rxt(k,402)*y(k,253) - mat(k,2199) = -rxt(k,403)*y(k,253) - mat(k,1780) = -rxt(k,405)*y(k,253) - mat(k,2055) = -rxt(k,406)*y(k,253) - mat(k,1672) = -rxt(k,414)*y(k,253) - mat(k,1316) = .500_r8*rxt(k,399)*y(k,265) - mat(k,395) = .500_r8*rxt(k,400)*y(k,265) - mat(k,1993) = .500_r8*rxt(k,399)*y(k,111) + .500_r8*rxt(k,400)*y(k,112) - mat(k,959) = -(rxt(k,476)*y(k,247) + rxt(k,477)*y(k,131) + rxt(k,478) & - *y(k,132)) - mat(k,2176) = -rxt(k,476)*y(k,254) - mat(k,1754) = -rxt(k,477)*y(k,254) - mat(k,1664) = -rxt(k,478)*y(k,254) - mat(k,721) = -(rxt(k,407)*y(k,247) + rxt(k,408)*y(k,131)) - mat(k,2159) = -rxt(k,407)*y(k,255) - mat(k,1741) = -rxt(k,408)*y(k,255) - mat(k,564) = rxt(k,409)*y(k,265) - mat(k,389) = rxt(k,410)*y(k,265) - mat(k,1942) = rxt(k,409)*y(k,113) + rxt(k,410)*y(k,114) - mat(k,575) = -(rxt(k,208)*y(k,141) + rxt(k,209)*y(k,142)) - mat(k,2433) = -rxt(k,208)*y(k,256) - mat(k,1572) = -rxt(k,209)*y(k,256) - mat(k,2433) = mat(k,2433) + rxt(k,607)*y(k,257) - mat(k,904) = .900_r8*rxt(k,605)*y(k,257) + .800_r8*rxt(k,603)*y(k,258) - mat(k,738) = rxt(k,607)*y(k,141) + .900_r8*rxt(k,605)*y(k,243) - mat(k,888) = .800_r8*rxt(k,603)*y(k,243) - mat(k,739) = -(rxt(k,605)*y(k,243) + rxt(k,606)*y(k,142) + (rxt(k,607) & - + rxt(k,608)) * y(k,141)) - mat(k,905) = -rxt(k,605)*y(k,257) - mat(k,1573) = -rxt(k,606)*y(k,257) - mat(k,2436) = -(rxt(k,607) + rxt(k,608)) * y(k,257) - mat(k,889) = -(rxt(k,603)*y(k,243)) - mat(k,907) = -rxt(k,603)*y(k,258) - mat(k,1040) = rxt(k,612)*y(k,264) - mat(k,1748) = rxt(k,614)*y(k,264) - mat(k,2442) = rxt(k,607)*y(k,257) - mat(k,1576) = rxt(k,611)*y(k,259) - mat(k,741) = rxt(k,607)*y(k,141) - mat(k,550) = rxt(k,611)*y(k,142) - mat(k,896) = rxt(k,612)*y(k,119) + rxt(k,614)*y(k,131) - mat(k,548) = -(rxt(k,609)*y(k,141) + (rxt(k,610) + rxt(k,611)) * y(k,142)) - mat(k,2432) = -rxt(k,609)*y(k,259) - mat(k,1571) = -(rxt(k,610) + rxt(k,611)) * y(k,259) - mat(k,1150) = -(rxt(k,505)*y(k,241) + rxt(k,506)*y(k,247) + rxt(k,507) & - *y(k,131) + rxt(k,508)*y(k,133)) - mat(k,2328) = -rxt(k,505)*y(k,260) - mat(k,2183) = -rxt(k,506)*y(k,260) - mat(k,1763) = -rxt(k,507)*y(k,260) - mat(k,2037) = -rxt(k,508)*y(k,260) - mat(k,1068) = rxt(k,499)*y(k,133) - mat(k,1012) = rxt(k,502)*y(k,133) - mat(k,2037) = mat(k,2037) + rxt(k,499)*y(k,6) + rxt(k,502)*y(k,116) & - + .500_r8*rxt(k,519)*y(k,220) - mat(k,433) = rxt(k,509)*y(k,265) - mat(k,1117) = .500_r8*rxt(k,519)*y(k,133) - mat(k,1975) = rxt(k,509)*y(k,135) - mat(k,1832) = -(rxt(k,173)*y(k,79) + rxt(k,174)*y(k,276) + (rxt(k,176) & - + rxt(k,177)) * y(k,142) + rxt(k,178)*y(k,143) + (rxt(k,226) & - + rxt(k,227)) * y(k,120) + rxt(k,259)*y(k,35) + rxt(k,260) & - *y(k,36) + rxt(k,261)*y(k,38) + rxt(k,262)*y(k,39) + rxt(k,263) & - *y(k,40) + rxt(k,264)*y(k,41) + rxt(k,265)*y(k,42) + (rxt(k,266) & - + rxt(k,267)) * y(k,87) + rxt(k,286)*y(k,37) + rxt(k,287) & - *y(k,57) + rxt(k,288)*y(k,80) + (rxt(k,289) + rxt(k,290) & - ) * y(k,83) + rxt(k,295)*y(k,66) + rxt(k,296)*y(k,67) + rxt(k,309) & - *y(k,43) + rxt(k,310)*y(k,45) + rxt(k,311)*y(k,84) + rxt(k,312) & - *y(k,85) + rxt(k,313)*y(k,86) + (rxt(k,330) + rxt(k,331) & - + rxt(k,332)) * y(k,56) + rxt(k,333)*y(k,88)) - mat(k,1507) = -rxt(k,173)*y(k,261) - mat(k,2512) = -rxt(k,174)*y(k,261) - mat(k,1591) = -(rxt(k,176) + rxt(k,177)) * y(k,261) - mat(k,2416) = -rxt(k,178)*y(k,261) - mat(k,305) = -(rxt(k,226) + rxt(k,227)) * y(k,261) - mat(k,145) = -rxt(k,259)*y(k,261) - mat(k,188) = -rxt(k,260)*y(k,261) - mat(k,155) = -rxt(k,261)*y(k,261) - mat(k,198) = -rxt(k,262)*y(k,261) - mat(k,159) = -rxt(k,263)*y(k,261) - mat(k,203) = -rxt(k,264)*y(k,261) - mat(k,163) = -rxt(k,265)*y(k,261) - mat(k,1544) = -(rxt(k,266) + rxt(k,267)) * y(k,261) - mat(k,194) = -rxt(k,286)*y(k,261) - mat(k,464) = -rxt(k,287)*y(k,261) - mat(k,172) = -rxt(k,288)*y(k,261) - mat(k,883) = -(rxt(k,289) + rxt(k,290)) * y(k,261) - mat(k,269) = -rxt(k,295)*y(k,261) - mat(k,294) = -rxt(k,296)*y(k,261) - mat(k,517) = -rxt(k,309)*y(k,261) - mat(k,631) = -rxt(k,310)*y(k,261) - mat(k,289) = -rxt(k,311)*y(k,261) - mat(k,299) = -rxt(k,312)*y(k,261) - mat(k,358) = -rxt(k,313)*y(k,261) - mat(k,2090) = -(rxt(k,330) + rxt(k,331) + rxt(k,332)) * y(k,261) - mat(k,249) = -rxt(k,333)*y(k,261) - mat(k,1591) = mat(k,1591) + rxt(k,209)*y(k,256) - mat(k,915) = .850_r8*rxt(k,604)*y(k,264) - mat(k,579) = rxt(k,209)*y(k,142) - mat(k,902) = .850_r8*rxt(k,604)*y(k,243) - mat(k,223) = -(rxt(k,180)*y(k,141) + rxt(k,181)*y(k,142)) - mat(k,2429) = -rxt(k,180)*y(k,262) - mat(k,1568) = -rxt(k,181)*y(k,262) - mat(k,1486) = rxt(k,182)*y(k,263) - mat(k,2429) = mat(k,2429) + rxt(k,184)*y(k,263) - mat(k,1568) = mat(k,1568) + rxt(k,185)*y(k,263) - mat(k,2370) = rxt(k,186)*y(k,263) - mat(k,225) = rxt(k,182)*y(k,65) + rxt(k,184)*y(k,141) + rxt(k,185)*y(k,142) & - + rxt(k,186)*y(k,143) - mat(k,226) = -(rxt(k,182)*y(k,65) + rxt(k,184)*y(k,141) + rxt(k,185)*y(k,142) & - + rxt(k,186)*y(k,143)) - mat(k,1487) = -rxt(k,182)*y(k,263) - mat(k,2430) = -rxt(k,184)*y(k,263) - mat(k,1569) = -rxt(k,185)*y(k,263) - mat(k,2371) = -rxt(k,186)*y(k,263) - mat(k,1569) = mat(k,1569) + rxt(k,176)*y(k,261) - mat(k,1811) = rxt(k,176)*y(k,142) - mat(k,897) = -(rxt(k,604)*y(k,243) + rxt(k,612)*y(k,119) + rxt(k,614) & - *y(k,131)) - mat(k,908) = -rxt(k,604)*y(k,264) - mat(k,1041) = -rxt(k,612)*y(k,264) - mat(k,1749) = -rxt(k,614)*y(k,264) - mat(k,1490) = rxt(k,615)*y(k,266) - mat(k,1577) = rxt(k,606)*y(k,257) + rxt(k,610)*y(k,259) + rxt(k,617)*y(k,266) - mat(k,742) = rxt(k,606)*y(k,142) - mat(k,551) = rxt(k,610)*y(k,142) - mat(k,851) = rxt(k,615)*y(k,65) + rxt(k,617)*y(k,142) - mat(k,2006) = -(rxt(k,199)*y(k,79) + rxt(k,200)*y(k,81) + rxt(k,201)*y(k,247) & - + rxt(k,202)*y(k,141) + rxt(k,203)*y(k,143) + (4._r8*rxt(k,204) & - + 4._r8*rxt(k,205)) * y(k,265) + rxt(k,207)*y(k,92) + rxt(k,221) & - *y(k,133) + rxt(k,222)*y(k,119) + rxt(k,230)*y(k,132) + rxt(k,231) & - *y(k,91) + rxt(k,250)*y(k,62) + (rxt(k,252) + rxt(k,253) & - ) * y(k,61) + rxt(k,255)*y(k,87) + rxt(k,258)*y(k,94) + rxt(k,282) & - *y(k,21) + rxt(k,284)*y(k,83) + rxt(k,298)*y(k,43) + rxt(k,300) & - *y(k,45) + rxt(k,301)*y(k,46) + rxt(k,303)*y(k,48) + rxt(k,305) & - *y(k,57) + rxt(k,306)*y(k,84) + rxt(k,307)*y(k,85) + rxt(k,308) & - *y(k,86) + rxt(k,317)*y(k,44) + rxt(k,322)*y(k,54) + rxt(k,323) & - *y(k,55) + rxt(k,324)*y(k,56) + rxt(k,325)*y(k,88) + rxt(k,326) & - *y(k,89) + rxt(k,334)*y(k,64) + rxt(k,336)*y(k,26) + rxt(k,343) & - *y(k,28) + rxt(k,344)*y(k,29) + rxt(k,346)*y(k,30) + rxt(k,348) & - *y(k,47) + rxt(k,349)*y(k,49) + rxt(k,354)*y(k,52) + rxt(k,355) & - *y(k,53) + rxt(k,360)*y(k,76) + rxt(k,361)*y(k,77) + rxt(k,362) & - *y(k,148) + rxt(k,363)*y(k,27) + rxt(k,371)*y(k,32) + rxt(k,372) & - *y(k,33) + rxt(k,374)*y(k,51) + rxt(k,376)*y(k,97) + rxt(k,377) & - *y(k,134) + rxt(k,380)*y(k,157) + rxt(k,384)*y(k,158) + rxt(k,385) & - *y(k,31) + rxt(k,386)*y(k,50) + rxt(k,388)*y(k,18) + rxt(k,391) & - *y(k,95) + rxt(k,399)*y(k,111) + rxt(k,400)*y(k,112) + rxt(k,409) & - *y(k,113) + rxt(k,410)*y(k,114) + rxt(k,411)*y(k,115) + rxt(k,413) & - *y(k,118) + rxt(k,416)*y(k,1) + rxt(k,420)*y(k,2) + rxt(k,421) & - *y(k,17) + rxt(k,422)*y(k,96) + rxt(k,423)*y(k,98) + rxt(k,424) & - *y(k,99) + rxt(k,436)*y(k,101) + rxt(k,437)*y(k,102) + rxt(k,444) & - *y(k,104) + rxt(k,446)*y(k,100) + rxt(k,447)*y(k,106) + rxt(k,448) & - *y(k,122) + rxt(k,449)*y(k,123) + rxt(k,455)*y(k,225) + rxt(k,458) & - *y(k,8) + rxt(k,461)*y(k,10) + rxt(k,462)*y(k,24) + rxt(k,464) & - *y(k,25) + rxt(k,468)*y(k,34) + rxt(k,469)*y(k,68) + rxt(k,481) & - *y(k,151) + rxt(k,484)*y(k,152) + rxt(k,488)*y(k,222) + (rxt(k,489) & - + rxt(k,579)) * y(k,223) + rxt(k,491)*y(k,226) + rxt(k,494) & - *y(k,227) + rxt(k,497)*y(k,229) + rxt(k,498)*y(k,230) + rxt(k,501) & - *y(k,6) + rxt(k,504)*y(k,116) + rxt(k,509)*y(k,135) + rxt(k,513) & - *y(k,217) + rxt(k,514)*y(k,218) + rxt(k,518)*y(k,219) + rxt(k,520) & - *y(k,220) + rxt(k,521)*y(k,221) + (rxt(k,523) + rxt(k,537) & - ) * y(k,69) + rxt(k,525)*y(k,146) + rxt(k,527)*y(k,162) & - + rxt(k,531)*y(k,159) + rxt(k,536)*y(k,161) + rxt(k,539) & - *y(k,127)) - mat(k,1508) = -rxt(k,199)*y(k,265) - mat(k,646) = -rxt(k,200)*y(k,265) - mat(k,2211) = -rxt(k,201)*y(k,265) - mat(k,2460) = -rxt(k,202)*y(k,265) - mat(k,2417) = -rxt(k,203)*y(k,265) - mat(k,524) = -rxt(k,207)*y(k,265) - mat(k,2066) = -rxt(k,221)*y(k,265) - mat(k,1050) = -rxt(k,222)*y(k,265) - mat(k,1684) = -rxt(k,230)*y(k,265) - mat(k,2301) = -rxt(k,231)*y(k,265) - mat(k,1031) = -rxt(k,250)*y(k,265) - mat(k,1640) = -(rxt(k,252) + rxt(k,253)) * y(k,265) - mat(k,1545) = -rxt(k,255)*y(k,265) - mat(k,876) = -rxt(k,258)*y(k,265) - mat(k,1614) = -rxt(k,282)*y(k,265) - mat(k,884) = -rxt(k,284)*y(k,265) - mat(k,518) = -rxt(k,298)*y(k,265) - mat(k,632) = -rxt(k,300)*y(k,265) - mat(k,166) = -rxt(k,301)*y(k,265) - mat(k,404) = -rxt(k,303)*y(k,265) - mat(k,465) = -rxt(k,305)*y(k,265) - mat(k,290) = -rxt(k,306)*y(k,265) - mat(k,300) = -rxt(k,307)*y(k,265) - mat(k,359) = -rxt(k,308)*y(k,265) - mat(k,2486) = -rxt(k,317)*y(k,265) - mat(k,858) = -rxt(k,322)*y(k,265) - mat(k,456) = -rxt(k,323)*y(k,265) - mat(k,2091) = -rxt(k,324)*y(k,265) - mat(k,250) = -rxt(k,325)*y(k,265) - mat(k,944) = -rxt(k,326)*y(k,265) - mat(k,1206) = -rxt(k,334)*y(k,265) - mat(k,329) = -rxt(k,336)*y(k,265) - mat(k,313) = -rxt(k,343)*y(k,265) - mat(k,381) = -rxt(k,344)*y(k,265) - mat(k,337) = -rxt(k,346)*y(k,265) - mat(k,1198) = -rxt(k,348)*y(k,265) - mat(k,148) = -rxt(k,349)*y(k,265) - mat(k,751) = -rxt(k,354)*y(k,265) - mat(k,640) = -rxt(k,355)*y(k,265) - mat(k,1212) = -rxt(k,360)*y(k,265) - mat(k,1101) = -rxt(k,361)*y(k,265) - mat(k,584) = -rxt(k,362)*y(k,265) - mat(k,624) = -rxt(k,363)*y(k,265) - mat(k,440) = -rxt(k,371)*y(k,265) - mat(k,343) = -rxt(k,372)*y(k,265) - mat(k,1328) = -rxt(k,374)*y(k,265) - mat(k,1255) = -rxt(k,376)*y(k,265) - mat(k,940) = -rxt(k,377)*y(k,265) - mat(k,592) = -rxt(k,380)*y(k,265) - mat(k,428) = -rxt(k,384)*y(k,265) - mat(k,1187) = -rxt(k,385)*y(k,265) - mat(k,1127) = -rxt(k,386)*y(k,265) - mat(k,414) = -rxt(k,388)*y(k,265) - mat(k,1245) = -rxt(k,391)*y(k,265) - mat(k,1319) = -rxt(k,399)*y(k,265) - mat(k,396) = -rxt(k,400)*y(k,265) - mat(k,567) = -rxt(k,409)*y(k,265) - mat(k,392) = -rxt(k,410)*y(k,265) - mat(k,676) = -rxt(k,411)*y(k,265) - mat(k,1427) = -rxt(k,413)*y(k,265) - mat(k,706) = -rxt(k,416)*y(k,265) - mat(k,717) = -rxt(k,420)*y(k,265) - mat(k,272) = -rxt(k,421)*y(k,265) - mat(k,285) = -rxt(k,422)*y(k,265) - mat(k,400) = -rxt(k,423)*y(k,265) - mat(k,175) = -rxt(k,424)*y(k,265) - mat(k,656) = -rxt(k,436)*y(k,265) - mat(k,601) = -rxt(k,437)*y(k,265) - mat(k,447) = -rxt(k,444)*y(k,265) - mat(k,930) = -rxt(k,446)*y(k,265) - mat(k,759) = -rxt(k,447)*y(k,265) - mat(k,496) = -rxt(k,448)*y(k,265) - mat(k,1141) = -rxt(k,449)*y(k,265) - mat(k,247) = -rxt(k,455)*y(k,265) - mat(k,212) = -rxt(k,458)*y(k,265) - mat(k,453) = -rxt(k,461)*y(k,265) - mat(k,281) = -rxt(k,462)*y(k,265) - mat(k,376) = -rxt(k,464)*y(k,265) - mat(k,318) = -rxt(k,468)*y(k,265) - mat(k,239) = -rxt(k,469)*y(k,265) - mat(k,221) = -rxt(k,481)*y(k,265) - mat(k,370) = -rxt(k,484)*y(k,265) - mat(k,669) = -rxt(k,488)*y(k,265) - mat(k,234) = -(rxt(k,489) + rxt(k,579)) * y(k,265) - mat(k,260) = -rxt(k,491)*y(k,265) - mat(k,775) = -rxt(k,494)*y(k,265) - mat(k,265) = -rxt(k,497)*y(k,265) - mat(k,477) = -rxt(k,498)*y(k,265) - mat(k,1075) = -rxt(k,501)*y(k,265) - mat(k,1019) = -rxt(k,504)*y(k,265) - mat(k,435) = -rxt(k,509)*y(k,265) - mat(k,735) = -rxt(k,513)*y(k,265) - mat(k,687) = -rxt(k,514)*y(k,265) - mat(k,532) = -rxt(k,518)*y(k,265) - mat(k,1121) = -rxt(k,520)*y(k,265) - mat(k,1168) = -rxt(k,521)*y(k,265) - mat(k,351) = -(rxt(k,523) + rxt(k,537)) * y(k,265) - mat(k,422) = -rxt(k,525)*y(k,265) - mat(k,993) = -rxt(k,527)*y(k,265) - mat(k,780) = -rxt(k,531)*y(k,265) - mat(k,1527) = -rxt(k,536)*y(k,265) - mat(k,142) = -rxt(k,539)*y(k,265) - mat(k,1075) = mat(k,1075) + .630_r8*rxt(k,500)*y(k,143) - mat(k,329) = mat(k,329) + .650_r8*rxt(k,336)*y(k,265) - mat(k,624) = mat(k,624) + .130_r8*rxt(k,338)*y(k,143) - mat(k,381) = mat(k,381) + .500_r8*rxt(k,344)*y(k,265) - mat(k,1187) = mat(k,1187) + .360_r8*rxt(k,367)*y(k,143) - mat(k,2486) = mat(k,2486) + rxt(k,316)*y(k,141) - mat(k,456) = mat(k,456) + .300_r8*rxt(k,323)*y(k,265) - mat(k,2091) = mat(k,2091) + rxt(k,330)*y(k,261) - mat(k,2257) = rxt(k,239)*y(k,247) - mat(k,971) = rxt(k,293)*y(k,276) - mat(k,2278) = rxt(k,198)*y(k,143) + 2.000_r8*rxt(k,193)*y(k,247) - mat(k,1508) = mat(k,1508) + rxt(k,190)*y(k,141) + rxt(k,173)*y(k,261) - mat(k,646) = mat(k,646) + rxt(k,191)*y(k,141) - mat(k,884) = mat(k,884) + rxt(k,283)*y(k,141) + rxt(k,289)*y(k,261) - mat(k,1545) = mat(k,1545) + rxt(k,254)*y(k,141) + rxt(k,266)*y(k,261) - mat(k,250) = mat(k,250) + rxt(k,333)*y(k,261) - mat(k,845) = rxt(k,285)*y(k,141) - mat(k,876) = mat(k,876) + rxt(k,257)*y(k,141) - mat(k,930) = mat(k,930) + .320_r8*rxt(k,445)*y(k,143) - mat(k,759) = mat(k,759) + .600_r8*rxt(k,447)*y(k,265) - mat(k,1319) = mat(k,1319) + .240_r8*rxt(k,398)*y(k,143) - mat(k,396) = mat(k,396) + .100_r8*rxt(k,400)*y(k,265) - mat(k,1019) = mat(k,1019) + .630_r8*rxt(k,503)*y(k,143) - mat(k,1427) = mat(k,1427) + .360_r8*rxt(k,412)*y(k,143) - mat(k,1790) = rxt(k,223)*y(k,247) - mat(k,2066) = mat(k,2066) + rxt(k,218)*y(k,247) - mat(k,2460) = mat(k,2460) + rxt(k,316)*y(k,44) + rxt(k,190)*y(k,79) & - + rxt(k,191)*y(k,81) + rxt(k,283)*y(k,83) + rxt(k,254)*y(k,87) & - + rxt(k,285)*y(k,93) + rxt(k,257)*y(k,94) + rxt(k,196)*y(k,247) - mat(k,2417) = mat(k,2417) + .630_r8*rxt(k,500)*y(k,6) + .130_r8*rxt(k,338) & - *y(k,27) + .360_r8*rxt(k,367)*y(k,31) + rxt(k,198)*y(k,78) & - + .320_r8*rxt(k,445)*y(k,100) + .240_r8*rxt(k,398)*y(k,111) & - + .630_r8*rxt(k,503)*y(k,116) + .360_r8*rxt(k,412)*y(k,118) & - + rxt(k,197)*y(k,247) - mat(k,592) = mat(k,592) + .500_r8*rxt(k,380)*y(k,265) - mat(k,247) = mat(k,247) + .500_r8*rxt(k,455)*y(k,265) - mat(k,573) = .400_r8*rxt(k,456)*y(k,247) - mat(k,1477) = .450_r8*rxt(k,352)*y(k,247) - mat(k,827) = .400_r8*rxt(k,470)*y(k,247) - mat(k,2211) = mat(k,2211) + rxt(k,239)*y(k,58) + 2.000_r8*rxt(k,193)*y(k,78) & - + rxt(k,223)*y(k,131) + rxt(k,218)*y(k,133) + rxt(k,196) & - *y(k,141) + rxt(k,197)*y(k,143) + .400_r8*rxt(k,456)*y(k,233) & - + .450_r8*rxt(k,352)*y(k,240) + .400_r8*rxt(k,470)*y(k,242) & - + .450_r8*rxt(k,403)*y(k,253) + .400_r8*rxt(k,476)*y(k,254) & - + .200_r8*rxt(k,407)*y(k,255) + .150_r8*rxt(k,382)*y(k,269) - mat(k,1446) = .450_r8*rxt(k,403)*y(k,247) - mat(k,965) = .400_r8*rxt(k,476)*y(k,247) - mat(k,726) = .200_r8*rxt(k,407)*y(k,247) - mat(k,1833) = rxt(k,330)*y(k,56) + rxt(k,173)*y(k,79) + rxt(k,289)*y(k,83) & - + rxt(k,266)*y(k,87) + rxt(k,333)*y(k,88) + 2.000_r8*rxt(k,174) & - *y(k,276) - mat(k,2006) = mat(k,2006) + .650_r8*rxt(k,336)*y(k,26) + .500_r8*rxt(k,344) & - *y(k,29) + .300_r8*rxt(k,323)*y(k,55) + .600_r8*rxt(k,447) & - *y(k,106) + .100_r8*rxt(k,400)*y(k,112) + .500_r8*rxt(k,380) & - *y(k,157) + .500_r8*rxt(k,455)*y(k,225) - mat(k,1266) = .150_r8*rxt(k,382)*y(k,247) - mat(k,2513) = rxt(k,293)*y(k,75) + 2.000_r8*rxt(k,174)*y(k,261) + mat(k,483) = -(rxt(k,330)*y(k,243) + rxt(k,332)*y(k,125)) + mat(k,2305) = -rxt(k,330)*y(k,244) + mat(k,1897) = -rxt(k,332)*y(k,244) + mat(k,2447) = rxt(k,317)*y(k,243) + mat(k,2305) = mat(k,2305) + rxt(k,317)*y(k,42) + mat(k,1344) = -(rxt(k,428)*y(k,236) + rxt(k,429)*y(k,237) + rxt(k,430) & + *y(k,243) + rxt(k,431)*y(k,125) + rxt(k,432)*y(k,127)) + mat(k,1468) = -rxt(k,428)*y(k,245) + mat(k,2176) = -rxt(k,429)*y(k,245) + mat(k,2359) = -rxt(k,430)*y(k,245) + mat(k,1949) = -rxt(k,431)*y(k,245) + mat(k,2420) = -rxt(k,432)*y(k,245) + mat(k,933) = .600_r8*rxt(k,449)*y(k,265) + mat(k,1839) = .600_r8*rxt(k,449)*y(k,98) + mat(k,1377) = -(rxt(k,433)*y(k,236) + rxt(k,434)*y(k,237) + rxt(k,435) & + *y(k,243) + rxt(k,437)*y(k,125) + rxt(k,438)*y(k,127)) + mat(k,1469) = -rxt(k,433)*y(k,246) + mat(k,2177) = -rxt(k,434)*y(k,246) + mat(k,2360) = -rxt(k,435)*y(k,246) + mat(k,1950) = -rxt(k,437)*y(k,246) + mat(k,2421) = -rxt(k,438)*y(k,246) + mat(k,934) = .400_r8*rxt(k,449)*y(k,265) + mat(k,1840) = .400_r8*rxt(k,449)*y(k,98) + mat(k,108) = -(rxt(k,565)*y(k,243) + rxt(k,566)*y(k,125)) + mat(k,2284) = -rxt(k,565)*y(k,247) + mat(k,1885) = -rxt(k,566)*y(k,247) + mat(k,926) = rxt(k,568)*y(k,265) + mat(k,1709) = rxt(k,568)*y(k,98) + mat(k,114) = -(rxt(k,569)*y(k,243) + rxt(k,570)*y(k,125)) + mat(k,2285) = -rxt(k,569)*y(k,248) + mat(k,1886) = -rxt(k,570)*y(k,248) + mat(k,115) = rxt(k,571)*y(k,265) + mat(k,1710) = rxt(k,571)*y(k,104) + mat(k,122) = -(rxt(k,572)*y(k,243) + rxt(k,573)*y(k,125)) + mat(k,2286) = -rxt(k,572)*y(k,249) + mat(k,1887) = -rxt(k,573)*y(k,249) + mat(k,123) = rxt(k,574)*y(k,265) + mat(k,1712) = rxt(k,574)*y(k,105) + mat(k,1401) = -(rxt(k,395)*y(k,236) + rxt(k,396)*y(k,237) + rxt(k,397) & + *y(k,243) + rxt(k,398)*y(k,127) + (rxt(k,399) + rxt(k,400) & + ) * y(k,125)) + mat(k,1470) = -rxt(k,395)*y(k,250) + mat(k,2178) = -rxt(k,396)*y(k,250) + mat(k,2361) = -rxt(k,397)*y(k,250) + mat(k,2422) = -rxt(k,398)*y(k,250) + mat(k,1951) = -(rxt(k,399) + rxt(k,400)) * y(k,250) + mat(k,1316) = .500_r8*rxt(k,402)*y(k,265) + mat(k,389) = .200_r8*rxt(k,403)*y(k,265) + mat(k,1420) = rxt(k,416)*y(k,265) + mat(k,1841) = .500_r8*rxt(k,402)*y(k,106) + .200_r8*rxt(k,403)*y(k,107) & + + rxt(k,416)*y(k,112) + mat(k,777) = -(rxt(k,476)*y(k,243) + rxt(k,477)*y(k,125) + rxt(k,478) & + *y(k,126)) + mat(k,2327) = -rxt(k,476)*y(k,251) + mat(k,1915) = -rxt(k,477)*y(k,251) + mat(k,1660) = -rxt(k,478)*y(k,251) + mat(k,1442) = -(rxt(k,404)*y(k,236) + rxt(k,405)*y(k,237) + rxt(k,406) & + *y(k,243) + 4._r8*rxt(k,407)*y(k,252) + rxt(k,408)*y(k,125) & + + rxt(k,409)*y(k,127) + rxt(k,417)*y(k,126)) + mat(k,1472) = -rxt(k,404)*y(k,252) + mat(k,2180) = -rxt(k,405)*y(k,252) + mat(k,2363) = -rxt(k,406)*y(k,252) + mat(k,1953) = -rxt(k,408)*y(k,252) + mat(k,2424) = -rxt(k,409)*y(k,252) + mat(k,1671) = -rxt(k,417)*y(k,252) + mat(k,1317) = .500_r8*rxt(k,402)*y(k,265) + mat(k,390) = .500_r8*rxt(k,403)*y(k,265) + mat(k,1843) = .500_r8*rxt(k,402)*y(k,106) + .500_r8*rxt(k,403)*y(k,107) + mat(k,960) = -(rxt(k,479)*y(k,243) + rxt(k,480)*y(k,125) + rxt(k,481) & + *y(k,126)) + mat(k,2340) = -rxt(k,479)*y(k,253) + mat(k,1927) = -rxt(k,480)*y(k,253) + mat(k,1663) = -rxt(k,481)*y(k,253) + mat(k,743) = -(rxt(k,410)*y(k,243) + rxt(k,411)*y(k,125)) + mat(k,2324) = -rxt(k,410)*y(k,254) + mat(k,1914) = -rxt(k,411)*y(k,254) + mat(k,566) = rxt(k,412)*y(k,265) + mat(k,384) = rxt(k,413)*y(k,265) + mat(k,1793) = rxt(k,412)*y(k,108) + rxt(k,413)*y(k,109) + mat(k,130) = -(rxt(k,576)*y(k,243) + rxt(k,577)*y(k,125)) + mat(k,2287) = -rxt(k,576)*y(k,255) + mat(k,1888) = -rxt(k,577)*y(k,255) + mat(k,1003) = rxt(k,579)*y(k,265) + mat(k,1714) = rxt(k,579)*y(k,111) + mat(k,704) = -(rxt(k,209)*y(k,125) + rxt(k,210)*y(k,135) + rxt(k,233) & + *y(k,239) + rxt(k,234)*y(k,136)) + mat(k,1912) = -rxt(k,209)*y(k,256) + mat(k,2028) = -rxt(k,210)*y(k,256) + mat(k,906) = -rxt(k,233)*y(k,256) + mat(k,1574) = -rxt(k,234)*y(k,256) + mat(k,2028) = mat(k,2028) + rxt(k,610)*y(k,257) + mat(k,906) = mat(k,906) + .900_r8*rxt(k,608)*y(k,257) + .800_r8*rxt(k,606) & + *y(k,258) + mat(k,673) = rxt(k,610)*y(k,135) + .900_r8*rxt(k,608)*y(k,239) + mat(k,889) = .800_r8*rxt(k,606)*y(k,239) + mat(k,672) = -(rxt(k,608)*y(k,239) + rxt(k,609)*y(k,136) + (rxt(k,610) & + + rxt(k,611)) * y(k,135)) + mat(k,905) = -rxt(k,608)*y(k,257) + mat(k,1573) = -rxt(k,609)*y(k,257) + mat(k,2027) = -(rxt(k,610) + rxt(k,611)) * y(k,257) + mat(k,890) = -(rxt(k,606)*y(k,239)) + mat(k,908) = -rxt(k,606)*y(k,258) + mat(k,1029) = rxt(k,615)*y(k,264) + mat(k,1921) = rxt(k,617)*y(k,264) + mat(k,2034) = rxt(k,610)*y(k,257) + mat(k,1577) = rxt(k,614)*y(k,259) + mat(k,675) = rxt(k,610)*y(k,135) + mat(k,545) = rxt(k,614)*y(k,136) + mat(k,897) = rxt(k,615)*y(k,113) + rxt(k,617)*y(k,125) + mat(k,543) = -(rxt(k,612)*y(k,135) + (rxt(k,613) + rxt(k,614)) * y(k,136)) + mat(k,2024) = -rxt(k,612)*y(k,259) + mat(k,1572) = -(rxt(k,613) + rxt(k,614)) * y(k,259) + mat(k,1151) = -(rxt(k,508)*y(k,237) + rxt(k,509)*y(k,243) + rxt(k,510) & + *y(k,125) + rxt(k,511)*y(k,127)) + mat(k,2164) = -rxt(k,508)*y(k,260) + mat(k,2347) = -rxt(k,509)*y(k,260) + mat(k,1936) = -rxt(k,510)*y(k,260) + mat(k,2406) = -rxt(k,511)*y(k,260) + mat(k,1069) = rxt(k,502)*y(k,127) + mat(k,1013) = rxt(k,505)*y(k,127) + mat(k,2406) = mat(k,2406) + rxt(k,502)*y(k,6) + rxt(k,505)*y(k,111) & + + .500_r8*rxt(k,522)*y(k,216) + mat(k,491) = rxt(k,512)*y(k,265) + mat(k,1118) = .500_r8*rxt(k,522)*y(k,127) + mat(k,1825) = rxt(k,512)*y(k,129) + mat(k,2237) = -(rxt(k,173)*y(k,77) + rxt(k,174)*y(k,278) + (rxt(k,176) & + + rxt(k,177)) * y(k,136) + rxt(k,178)*y(k,137) + (rxt(k,226) & + + rxt(k,227)) * y(k,114) + rxt(k,262)*y(k,33) + rxt(k,263) & + *y(k,34) + rxt(k,264)*y(k,36) + rxt(k,265)*y(k,37) + rxt(k,266) & + *y(k,38) + rxt(k,267)*y(k,39) + rxt(k,268)*y(k,40) + (rxt(k,269) & + + rxt(k,270)) * y(k,85) + rxt(k,289)*y(k,35) + rxt(k,290) & + *y(k,55) + rxt(k,291)*y(k,78) + (rxt(k,292) + rxt(k,293) & + ) * y(k,81) + rxt(k,298)*y(k,64) + rxt(k,299)*y(k,65) + rxt(k,312) & + *y(k,41) + rxt(k,313)*y(k,43) + rxt(k,314)*y(k,82) + rxt(k,315) & + *y(k,83) + rxt(k,316)*y(k,84) + (rxt(k,333) + rxt(k,334) & + + rxt(k,335)) * y(k,54) + rxt(k,336)*y(k,86)) + mat(k,1514) = -rxt(k,173)*y(k,261) + mat(k,2520) = -rxt(k,174)*y(k,261) + mat(k,1596) = -(rxt(k,176) + rxt(k,177)) * y(k,261) + mat(k,2121) = -rxt(k,178)*y(k,261) + mat(k,320) = -(rxt(k,226) + rxt(k,227)) * y(k,261) + mat(k,148) = -rxt(k,262)*y(k,261) + mat(k,182) = -rxt(k,263)*y(k,261) + mat(k,158) = -rxt(k,264)*y(k,261) + mat(k,192) = -rxt(k,265)*y(k,261) + mat(k,162) = -rxt(k,266)*y(k,261) + mat(k,197) = -rxt(k,267)*y(k,261) + mat(k,166) = -rxt(k,268)*y(k,261) + mat(k,1548) = -(rxt(k,269) + rxt(k,270)) * y(k,261) + mat(k,187) = -rxt(k,289)*y(k,261) + mat(k,456) = -rxt(k,290)*y(k,261) + mat(k,174) = -rxt(k,291)*y(k,261) + mat(k,879) = -(rxt(k,292) + rxt(k,293)) * y(k,261) + mat(k,288) = -rxt(k,298)*y(k,261) + mat(k,297) = -rxt(k,299)*y(k,261) + mat(k,521) = -rxt(k,312)*y(k,261) + mat(k,687) = -rxt(k,313)*y(k,261) + mat(k,293) = -rxt(k,314)*y(k,261) + mat(k,303) = -rxt(k,315)*y(k,261) + mat(k,359) = -rxt(k,316)*y(k,261) + mat(k,1643) = -(rxt(k,333) + rxt(k,334) + rxt(k,335)) * y(k,261) + mat(k,252) = -rxt(k,336)*y(k,261) + mat(k,1596) = mat(k,1596) + rxt(k,234)*y(k,256) + mat(k,917) = .850_r8*rxt(k,607)*y(k,264) + mat(k,709) = rxt(k,234)*y(k,136) + mat(k,904) = .850_r8*rxt(k,607)*y(k,239) + mat(k,225) = -(rxt(k,180)*y(k,135) + rxt(k,181)*y(k,136)) + mat(k,2021) = -rxt(k,180)*y(k,262) + mat(k,1569) = -rxt(k,181)*y(k,262) + mat(k,1487) = rxt(k,182)*y(k,263) + mat(k,2021) = mat(k,2021) + rxt(k,184)*y(k,263) + mat(k,1569) = mat(k,1569) + rxt(k,185)*y(k,263) + mat(k,2069) = rxt(k,186)*y(k,263) + mat(k,227) = rxt(k,182)*y(k,63) + rxt(k,184)*y(k,135) + rxt(k,185)*y(k,136) & + + rxt(k,186)*y(k,137) + mat(k,228) = -(rxt(k,182)*y(k,63) + rxt(k,184)*y(k,135) + rxt(k,185)*y(k,136) & + + rxt(k,186)*y(k,137)) + mat(k,1488) = -rxt(k,182)*y(k,263) + mat(k,2022) = -rxt(k,184)*y(k,263) + mat(k,1570) = -rxt(k,185)*y(k,263) + mat(k,2070) = -rxt(k,186)*y(k,263) + mat(k,1570) = mat(k,1570) + rxt(k,176)*y(k,261) + mat(k,2210) = rxt(k,176)*y(k,136) + mat(k,898) = -(rxt(k,607)*y(k,239) + rxt(k,615)*y(k,113) + rxt(k,617) & + *y(k,125)) + mat(k,909) = -rxt(k,607)*y(k,264) + mat(k,1030) = -rxt(k,615)*y(k,264) + mat(k,1922) = -rxt(k,617)*y(k,264) + mat(k,1491) = rxt(k,618)*y(k,266) + mat(k,1578) = rxt(k,609)*y(k,257) + rxt(k,613)*y(k,259) + rxt(k,620)*y(k,266) + mat(k,676) = rxt(k,609)*y(k,136) + mat(k,546) = rxt(k,613)*y(k,136) + mat(k,852) = rxt(k,618)*y(k,63) + rxt(k,620)*y(k,136) + mat(k,1854) = -(rxt(k,199)*y(k,77) + rxt(k,200)*y(k,79) + rxt(k,201)*y(k,243) & + + rxt(k,202)*y(k,135) + rxt(k,203)*y(k,137) + (4._r8*rxt(k,204) & + + 4._r8*rxt(k,205)) * y(k,265) + rxt(k,208)*y(k,90) + rxt(k,221) & + *y(k,127) + rxt(k,222)*y(k,113) + rxt(k,230)*y(k,126) + rxt(k,231) & + *y(k,89) + rxt(k,253)*y(k,60) + (rxt(k,255) + rxt(k,256) & + ) * y(k,59) + rxt(k,258)*y(k,85) + rxt(k,261)*y(k,92) + rxt(k,285) & + *y(k,19) + rxt(k,287)*y(k,81) + rxt(k,301)*y(k,41) + rxt(k,303) & + *y(k,43) + rxt(k,304)*y(k,44) + rxt(k,306)*y(k,46) + rxt(k,308) & + *y(k,55) + rxt(k,309)*y(k,82) + rxt(k,310)*y(k,83) + rxt(k,311) & + *y(k,84) + rxt(k,320)*y(k,42) + rxt(k,325)*y(k,52) + rxt(k,326) & + *y(k,53) + rxt(k,327)*y(k,54) + rxt(k,328)*y(k,86) + rxt(k,329) & + *y(k,87) + rxt(k,337)*y(k,62) + rxt(k,339)*y(k,24) + rxt(k,346) & + *y(k,26) + rxt(k,347)*y(k,27) + rxt(k,349)*y(k,28) + rxt(k,351) & + *y(k,45) + rxt(k,352)*y(k,47) + rxt(k,357)*y(k,50) + rxt(k,358) & + *y(k,51) + rxt(k,363)*y(k,74) + rxt(k,364)*y(k,75) + rxt(k,365) & + *y(k,142) + rxt(k,366)*y(k,25) + rxt(k,374)*y(k,30) + rxt(k,375) & + *y(k,31) + rxt(k,377)*y(k,49) + rxt(k,379)*y(k,95) + rxt(k,380) & + *y(k,128) + rxt(k,383)*y(k,153) + rxt(k,387)*y(k,154) + rxt(k,388) & + *y(k,29) + rxt(k,389)*y(k,48) + rxt(k,391)*y(k,16) + rxt(k,394) & + *y(k,93) + rxt(k,402)*y(k,106) + rxt(k,403)*y(k,107) + rxt(k,412) & + *y(k,108) + rxt(k,413)*y(k,109) + rxt(k,414)*y(k,110) + rxt(k,416) & + *y(k,112) + rxt(k,419)*y(k,1) + rxt(k,423)*y(k,2) + rxt(k,424) & + *y(k,15) + rxt(k,425)*y(k,94) + rxt(k,426)*y(k,96) + rxt(k,427) & + *y(k,97) + rxt(k,439)*y(k,99) + rxt(k,440)*y(k,100) + rxt(k,447) & + *y(k,102) + rxt(k,449)*y(k,98) + rxt(k,450)*y(k,103) + rxt(k,451) & + *y(k,116) + rxt(k,452)*y(k,117) + rxt(k,458)*y(k,220) + rxt(k,461) & + *y(k,7) + rxt(k,464)*y(k,8) + rxt(k,465)*y(k,22) + rxt(k,467) & + *y(k,23) + rxt(k,471)*y(k,32) + rxt(k,472)*y(k,66) + rxt(k,484) & + *y(k,145) + rxt(k,487)*y(k,146) + rxt(k,491)*y(k,218) + (rxt(k,492) & + + rxt(k,582)) * y(k,219) + rxt(k,494)*y(k,221) + rxt(k,497) & + *y(k,222) + rxt(k,500)*y(k,223) + rxt(k,501)*y(k,224) + rxt(k,504) & + *y(k,6) + rxt(k,507)*y(k,111) + rxt(k,512)*y(k,129) + rxt(k,516) & + *y(k,213) + rxt(k,517)*y(k,214) + rxt(k,521)*y(k,215) + rxt(k,523) & + *y(k,216) + rxt(k,524)*y(k,217) + (rxt(k,526) + rxt(k,540) & + ) * y(k,67) + rxt(k,528)*y(k,140) + rxt(k,530)*y(k,158) & + + rxt(k,534)*y(k,155) + rxt(k,539)*y(k,157) + rxt(k,542) & + *y(k,121)) + mat(k,1509) = -rxt(k,199)*y(k,265) + mat(k,645) = -rxt(k,200)*y(k,265) + mat(k,2373) = -rxt(k,201)*y(k,265) + mat(k,2050) = -rxt(k,202)*y(k,265) + mat(k,2114) = -rxt(k,203)*y(k,265) + mat(k,553) = -rxt(k,208)*y(k,265) + mat(k,2433) = -rxt(k,221)*y(k,265) + mat(k,1037) = -rxt(k,222)*y(k,265) + mat(k,1681) = -rxt(k,230)*y(k,265) + mat(k,2253) = -rxt(k,231)*y(k,265) + mat(k,1047) = -rxt(k,253)*y(k,265) + mat(k,2486) = -(rxt(k,255) + rxt(k,256)) * y(k,265) + mat(k,1544) = -rxt(k,258)*y(k,265) + mat(k,884) = -rxt(k,261)*y(k,265) + mat(k,1612) = -rxt(k,285)*y(k,265) + mat(k,876) = -rxt(k,287)*y(k,265) + mat(k,519) = -rxt(k,301)*y(k,265) + mat(k,684) = -rxt(k,303)*y(k,265) + mat(k,168) = -rxt(k,304)*y(k,265) + mat(k,414) = -rxt(k,306)*y(k,265) + mat(k,454) = -rxt(k,308)*y(k,265) + mat(k,291) = -rxt(k,309)*y(k,265) + mat(k,301) = -rxt(k,310)*y(k,265) + mat(k,357) = -rxt(k,311)*y(k,265) + mat(k,2459) = -rxt(k,320)*y(k,265) + mat(k,870) = -rxt(k,325)*y(k,265) + mat(k,446) = -rxt(k,326)*y(k,265) + mat(k,1636) = -rxt(k,327)*y(k,265) + mat(k,251) = -rxt(k,328)*y(k,265) + mat(k,957) = -rxt(k,329)*y(k,265) + mat(k,1207) = -rxt(k,337)*y(k,265) + mat(k,325) = -rxt(k,339)*y(k,265) + mat(k,306) = -rxt(k,346)*y(k,265) + mat(k,378) = -rxt(k,347)*y(k,265) + mat(k,330) = -rxt(k,349)*y(k,265) + mat(k,1199) = -rxt(k,351)*y(k,265) + mat(k,150) = -rxt(k,352)*y(k,265) + mat(k,752) = -rxt(k,357)*y(k,265) + mat(k,668) = -rxt(k,358)*y(k,265) + mat(k,1213) = -rxt(k,363)*y(k,265) + mat(k,1102) = -rxt(k,364)*y(k,265) + mat(k,589) = -rxt(k,365)*y(k,265) + mat(k,581) = -rxt(k,366)*y(k,265) + mat(k,436) = -rxt(k,374)*y(k,265) + mat(k,336) = -rxt(k,375)*y(k,265) + mat(k,1329) = -rxt(k,377)*y(k,265) + mat(k,1256) = -rxt(k,379)*y(k,265) + mat(k,922) = -rxt(k,380)*y(k,265) + mat(k,605) = -rxt(k,383)*y(k,265) + mat(k,430) = -rxt(k,387)*y(k,265) + mat(k,1188) = -rxt(k,388)*y(k,265) + mat(k,1128) = -rxt(k,389)*y(k,265) + mat(k,408) = -rxt(k,391)*y(k,265) + mat(k,1246) = -rxt(k,394)*y(k,265) + mat(k,1320) = -rxt(k,402)*y(k,265) + mat(k,391) = -rxt(k,403)*y(k,265) + mat(k,569) = -rxt(k,412)*y(k,265) + mat(k,387) = -rxt(k,413)*y(k,265) + mat(k,630) = -rxt(k,414)*y(k,265) + mat(k,1428) = -rxt(k,416)*y(k,265) + mat(k,739) = -rxt(k,419)*y(k,265) + mat(k,718) = -rxt(k,423)*y(k,265) + mat(k,271) = -rxt(k,424)*y(k,265) + mat(k,284) = -rxt(k,425)*y(k,265) + mat(k,382) = -rxt(k,426)*y(k,265) + mat(k,200) = -rxt(k,427)*y(k,265) + mat(k,639) = -rxt(k,439)*y(k,265) + mat(k,598) = -rxt(k,440)*y(k,265) + mat(k,443) = -rxt(k,447)*y(k,265) + mat(k,937) = -rxt(k,449)*y(k,265) + mat(k,803) = -rxt(k,450)*y(k,265) + mat(k,466) = -rxt(k,451)*y(k,265) + mat(k,1141) = -rxt(k,452)*y(k,265) + mat(k,249) = -rxt(k,458)*y(k,265) + mat(k,214) = -rxt(k,461)*y(k,265) + mat(k,461) = -rxt(k,464)*y(k,265) + mat(k,280) = -rxt(k,465)*y(k,265) + mat(k,373) = -rxt(k,467)*y(k,265) + mat(k,316) = -rxt(k,471)*y(k,265) + mat(k,241) = -rxt(k,472)*y(k,265) + mat(k,223) = -rxt(k,484)*y(k,265) + mat(k,367) = -rxt(k,487)*y(k,265) + mat(k,659) = -rxt(k,491)*y(k,265) + mat(k,236) = -(rxt(k,492) + rxt(k,582)) * y(k,265) + mat(k,262) = -rxt(k,494)*y(k,265) + mat(k,775) = -rxt(k,497)*y(k,265) + mat(k,267) = -rxt(k,500)*y(k,265) + mat(k,473) = -rxt(k,501)*y(k,265) + mat(k,1076) = -rxt(k,504)*y(k,265) + mat(k,1020) = -rxt(k,507)*y(k,265) + mat(k,493) = -rxt(k,512)*y(k,265) + mat(k,728) = -rxt(k,516)*y(k,265) + mat(k,693) = -rxt(k,517)*y(k,265) + mat(k,527) = -rxt(k,521)*y(k,265) + mat(k,1122) = -rxt(k,523)*y(k,265) + mat(k,1169) = -rxt(k,524)*y(k,265) + mat(k,347) = -(rxt(k,526) + rxt(k,540)) * y(k,265) + mat(k,424) = -rxt(k,528)*y(k,265) + mat(k,994) = -rxt(k,530)*y(k,265) + mat(k,758) = -rxt(k,534)*y(k,265) + mat(k,1526) = -rxt(k,539)*y(k,265) + mat(k,144) = -rxt(k,542)*y(k,265) + mat(k,1076) = mat(k,1076) + .630_r8*rxt(k,503)*y(k,137) + mat(k,325) = mat(k,325) + .650_r8*rxt(k,339)*y(k,265) + mat(k,581) = mat(k,581) + .130_r8*rxt(k,341)*y(k,137) + mat(k,378) = mat(k,378) + .500_r8*rxt(k,347)*y(k,265) + mat(k,1188) = mat(k,1188) + .360_r8*rxt(k,370)*y(k,137) + mat(k,2459) = mat(k,2459) + rxt(k,319)*y(k,135) + mat(k,446) = mat(k,446) + .300_r8*rxt(k,326)*y(k,265) + mat(k,1636) = mat(k,1636) + rxt(k,333)*y(k,261) + mat(k,2007) = rxt(k,242)*y(k,243) + mat(k,973) = rxt(k,296)*y(k,278) + mat(k,2135) = rxt(k,198)*y(k,137) + 2.000_r8*rxt(k,193)*y(k,243) + mat(k,1509) = mat(k,1509) + rxt(k,190)*y(k,135) + rxt(k,173)*y(k,261) + mat(k,645) = mat(k,645) + rxt(k,191)*y(k,135) + mat(k,876) = mat(k,876) + rxt(k,286)*y(k,135) + rxt(k,292)*y(k,261) + mat(k,1544) = mat(k,1544) + rxt(k,257)*y(k,135) + rxt(k,269)*y(k,261) + mat(k,251) = mat(k,251) + rxt(k,336)*y(k,261) + mat(k,836) = rxt(k,288)*y(k,135) + mat(k,884) = mat(k,884) + rxt(k,260)*y(k,135) + mat(k,937) = mat(k,937) + .320_r8*rxt(k,448)*y(k,137) + mat(k,803) = mat(k,803) + .600_r8*rxt(k,450)*y(k,265) + mat(k,1320) = mat(k,1320) + .240_r8*rxt(k,401)*y(k,137) + mat(k,391) = mat(k,391) + .100_r8*rxt(k,403)*y(k,265) + mat(k,1020) = mat(k,1020) + .630_r8*rxt(k,506)*y(k,137) + mat(k,1428) = mat(k,1428) + .360_r8*rxt(k,415)*y(k,137) + mat(k,1961) = rxt(k,223)*y(k,243) + mat(k,2433) = mat(k,2433) + rxt(k,218)*y(k,243) + mat(k,2050) = mat(k,2050) + rxt(k,319)*y(k,42) + rxt(k,190)*y(k,77) & + + rxt(k,191)*y(k,79) + rxt(k,286)*y(k,81) + rxt(k,257)*y(k,85) & + + rxt(k,288)*y(k,91) + rxt(k,260)*y(k,92) + rxt(k,196)*y(k,243) + mat(k,2114) = mat(k,2114) + .630_r8*rxt(k,503)*y(k,6) + .130_r8*rxt(k,341) & + *y(k,25) + .360_r8*rxt(k,370)*y(k,29) + rxt(k,198)*y(k,76) & + + .320_r8*rxt(k,448)*y(k,98) + .240_r8*rxt(k,401)*y(k,106) & + + .630_r8*rxt(k,506)*y(k,111) + .360_r8*rxt(k,415)*y(k,112) & + + rxt(k,197)*y(k,243) + mat(k,605) = mat(k,605) + .500_r8*rxt(k,383)*y(k,265) + mat(k,249) = mat(k,249) + .500_r8*rxt(k,458)*y(k,265) + mat(k,574) = .400_r8*rxt(k,459)*y(k,243) + mat(k,1478) = .450_r8*rxt(k,355)*y(k,243) + mat(k,827) = .400_r8*rxt(k,473)*y(k,243) + mat(k,2373) = mat(k,2373) + rxt(k,242)*y(k,56) + 2.000_r8*rxt(k,193)*y(k,76) & + + rxt(k,223)*y(k,125) + rxt(k,218)*y(k,127) + rxt(k,196) & + *y(k,135) + rxt(k,197)*y(k,137) + .400_r8*rxt(k,459)*y(k,227) & + + .450_r8*rxt(k,355)*y(k,236) + .400_r8*rxt(k,473)*y(k,238) & + + .450_r8*rxt(k,406)*y(k,252) + .400_r8*rxt(k,479)*y(k,253) & + + .200_r8*rxt(k,410)*y(k,254) + .150_r8*rxt(k,385)*y(k,269) + mat(k,1446) = .450_r8*rxt(k,406)*y(k,243) + mat(k,965) = .400_r8*rxt(k,479)*y(k,243) + mat(k,747) = .200_r8*rxt(k,410)*y(k,243) + mat(k,2230) = rxt(k,333)*y(k,54) + rxt(k,173)*y(k,77) + rxt(k,292)*y(k,81) & + + rxt(k,269)*y(k,85) + rxt(k,336)*y(k,86) + 2.000_r8*rxt(k,174) & + *y(k,278) + mat(k,1854) = mat(k,1854) + .650_r8*rxt(k,339)*y(k,24) + .500_r8*rxt(k,347) & + *y(k,27) + .300_r8*rxt(k,326)*y(k,53) + .600_r8*rxt(k,450) & + *y(k,103) + .100_r8*rxt(k,403)*y(k,107) + .500_r8*rxt(k,383) & + *y(k,153) + .500_r8*rxt(k,458)*y(k,220) + mat(k,1266) = .150_r8*rxt(k,385)*y(k,243) + mat(k,2513) = rxt(k,296)*y(k,73) + 2.000_r8*rxt(k,174)*y(k,261) end do end subroutine nlnmat10 subroutine nlnmat11( avec_len, mat, y, rxt ) @@ -2602,136 +2613,146 @@ subroutine nlnmat11( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,849) = -(rxt(k,615)*y(k,65) + rxt(k,617)*y(k,142)) - mat(k,1488) = -rxt(k,615)*y(k,266) - mat(k,1575) = -rxt(k,617)*y(k,266) - mat(k,2439) = rxt(k,608)*y(k,257) + rxt(k,609)*y(k,259) - mat(k,740) = rxt(k,608)*y(k,141) - mat(k,549) = rxt(k,609)*y(k,141) - mat(k,500) = -(rxt(k,479)*y(k,247) + rxt(k,480)*y(k,131)) - mat(k,2143) = -rxt(k,479)*y(k,267) - mat(k,1726) = -rxt(k,480)*y(k,267) - mat(k,237) = .200_r8*rxt(k,469)*y(k,265) - mat(k,219) = .140_r8*rxt(k,481)*y(k,265) - mat(k,368) = rxt(k,484)*y(k,265) - mat(k,1916) = .200_r8*rxt(k,469)*y(k,68) + .140_r8*rxt(k,481)*y(k,151) & - + rxt(k,484)*y(k,152) - mat(k,862) = -(rxt(k,378)*y(k,247) + rxt(k,379)*y(k,131)) - mat(k,2170) = -rxt(k,378)*y(k,268) - mat(k,1747) = -rxt(k,379)*y(k,268) - mat(k,1174) = rxt(k,385)*y(k,265) - mat(k,589) = .500_r8*rxt(k,380)*y(k,265) - mat(k,1954) = rxt(k,385)*y(k,31) + .500_r8*rxt(k,380)*y(k,157) - mat(k,1261) = -(rxt(k,381)*y(k,241) + rxt(k,382)*y(k,247) + rxt(k,383) & - *y(k,131)) - mat(k,2335) = -rxt(k,381)*y(k,269) - mat(k,2190) = -rxt(k,382)*y(k,269) - mat(k,1771) = -rxt(k,383)*y(k,269) - mat(k,1071) = .060_r8*rxt(k,500)*y(k,143) - mat(k,1125) = rxt(k,386)*y(k,265) - mat(k,1015) = .060_r8*rxt(k,503)*y(k,143) - mat(k,2398) = .060_r8*rxt(k,500)*y(k,6) + .060_r8*rxt(k,503)*y(k,116) - mat(k,426) = rxt(k,384)*y(k,265) - mat(k,1165) = .150_r8*rxt(k,521)*y(k,265) - mat(k,1984) = rxt(k,386)*y(k,50) + rxt(k,384)*y(k,158) + .150_r8*rxt(k,521) & - *y(k,221) - mat(k,1222) = -(rxt(k,510)*y(k,241) + rxt(k,511)*y(k,247) + rxt(k,512) & - *y(k,131)) - mat(k,2333) = -rxt(k,510)*y(k,270) - mat(k,2188) = -rxt(k,511)*y(k,270) - mat(k,1768) = -rxt(k,512)*y(k,270) - mat(k,2043) = .500_r8*rxt(k,519)*y(k,220) - mat(k,733) = rxt(k,513)*y(k,265) - mat(k,1120) = .500_r8*rxt(k,519)*y(k,133) + rxt(k,520)*y(k,265) - mat(k,1981) = rxt(k,513)*y(k,217) + rxt(k,520)*y(k,220) - mat(k,1106) = -(rxt(k,515)*y(k,241) + rxt(k,516)*y(k,247) + rxt(k,517) & - *y(k,131)) - mat(k,2324) = -rxt(k,515)*y(k,271) - mat(k,2180) = -rxt(k,516)*y(k,271) - mat(k,1759) = -rxt(k,517)*y(k,271) - mat(k,1065) = rxt(k,501)*y(k,265) - mat(k,1009) = rxt(k,504)*y(k,265) - mat(k,529) = rxt(k,518)*y(k,265) - mat(k,1971) = rxt(k,501)*y(k,6) + rxt(k,504)*y(k,116) + rxt(k,518)*y(k,219) - mat(k,795) = -(rxt(k,486)*y(k,247) + rxt(k,487)*y(k,131)) - mat(k,2165) = -rxt(k,486)*y(k,272) - mat(k,1743) = -rxt(k,487)*y(k,272) - mat(k,665) = rxt(k,488)*y(k,265) - mat(k,233) = (.650_r8*rxt(k,489)+rxt(k,579))*y(k,265) - mat(k,1949) = rxt(k,488)*y(k,222) + (.650_r8*rxt(k,489)+rxt(k,579))*y(k,223) - mat(k,1277) = -(rxt(k,450)*y(k,240) + rxt(k,451)*y(k,241) + rxt(k,452) & - *y(k,247) + rxt(k,453)*y(k,131) + rxt(k,454)*y(k,133)) - mat(k,1463) = -rxt(k,450)*y(k,273) - mat(k,2336) = -rxt(k,451)*y(k,273) - mat(k,2191) = -rxt(k,452)*y(k,273) - mat(k,1772) = -rxt(k,453)*y(k,273) - mat(k,2047) = -rxt(k,454)*y(k,273) - mat(k,284) = rxt(k,422)*y(k,265) - mat(k,399) = rxt(k,423)*y(k,265) - mat(k,174) = rxt(k,424)*y(k,265) - mat(k,756) = .400_r8*rxt(k,447)*y(k,265) - mat(k,246) = .500_r8*rxt(k,455)*y(k,265) - mat(k,1985) = rxt(k,422)*y(k,96) + rxt(k,423)*y(k,98) + rxt(k,424)*y(k,99) & - + .400_r8*rxt(k,447)*y(k,106) + .500_r8*rxt(k,455)*y(k,225) - mat(k,811) = -(rxt(k,492)*y(k,247) + rxt(k,493)*y(k,131)) - mat(k,2166) = -rxt(k,492)*y(k,274) - mat(k,1744) = -rxt(k,493)*y(k,274) - mat(k,257) = .560_r8*rxt(k,491)*y(k,265) - mat(k,768) = rxt(k,494)*y(k,265) - mat(k,1950) = .560_r8*rxt(k,491)*y(k,226) + rxt(k,494)*y(k,227) - mat(k,556) = -(rxt(k,495)*y(k,247) + rxt(k,496)*y(k,131)) - mat(k,2150) = -rxt(k,495)*y(k,275) - mat(k,1731) = -rxt(k,496)*y(k,275) - mat(k,264) = .300_r8*rxt(k,497)*y(k,265) - mat(k,474) = rxt(k,498)*y(k,265) - mat(k,1923) = .300_r8*rxt(k,497)*y(k,229) + rxt(k,498)*y(k,230) - mat(k,2524) = -(rxt(k,174)*y(k,261) + rxt(k,293)*y(k,75) + rxt(k,538) & - *y(k,163)) - mat(k,1844) = -rxt(k,174)*y(k,276) - mat(k,977) = -rxt(k,293)*y(k,276) - mat(k,310) = -rxt(k,538)*y(k,276) - mat(k,339) = rxt(k,346)*y(k,265) - mat(k,442) = rxt(k,371)*y(k,265) - mat(k,345) = rxt(k,372)*y(k,265) - mat(k,520) = rxt(k,298)*y(k,265) - mat(k,2497) = rxt(k,317)*y(k,265) - mat(k,636) = rxt(k,300)*y(k,265) - mat(k,168) = rxt(k,301)*y(k,265) - mat(k,1203) = rxt(k,348)*y(k,265) - mat(k,408) = rxt(k,303)*y(k,265) - mat(k,1129) = rxt(k,386)*y(k,265) - mat(k,1332) = rxt(k,374)*y(k,265) - mat(k,753) = rxt(k,354)*y(k,265) - mat(k,643) = rxt(k,355)*y(k,265) - mat(k,460) = rxt(k,323)*y(k,265) - mat(k,2102) = rxt(k,324)*y(k,265) - mat(k,2289) = rxt(k,194)*y(k,247) - mat(k,1516) = rxt(k,199)*y(k,265) - mat(k,650) = rxt(k,200)*y(k,265) - mat(k,887) = rxt(k,284)*y(k,265) - mat(k,361) = rxt(k,308)*y(k,265) - mat(k,1551) = (rxt(k,594)+rxt(k,599))*y(k,93) + (rxt(k,587)+rxt(k,593) & - +rxt(k,598))*y(k,94) + rxt(k,255)*y(k,265) - mat(k,946) = rxt(k,326)*y(k,265) - mat(k,2312) = rxt(k,231)*y(k,265) - mat(k,527) = rxt(k,207)*y(k,265) - mat(k,848) = (rxt(k,594)+rxt(k,599))*y(k,87) - mat(k,879) = (rxt(k,587)+rxt(k,593)+rxt(k,598))*y(k,87) + rxt(k,258)*y(k,265) - mat(k,1323) = .500_r8*rxt(k,399)*y(k,265) - mat(k,143) = rxt(k,539)*y(k,265) - mat(k,595) = rxt(k,380)*y(k,265) - mat(k,430) = rxt(k,384)*y(k,265) - mat(k,2222) = rxt(k,194)*y(k,78) + rxt(k,201)*y(k,265) - mat(k,2017) = rxt(k,346)*y(k,30) + rxt(k,371)*y(k,32) + rxt(k,372)*y(k,33) & - + rxt(k,298)*y(k,43) + rxt(k,317)*y(k,44) + rxt(k,300)*y(k,45) & - + rxt(k,301)*y(k,46) + rxt(k,348)*y(k,47) + rxt(k,303)*y(k,48) & - + rxt(k,386)*y(k,50) + rxt(k,374)*y(k,51) + rxt(k,354)*y(k,52) & - + rxt(k,355)*y(k,53) + rxt(k,323)*y(k,55) + rxt(k,324)*y(k,56) & - + rxt(k,199)*y(k,79) + rxt(k,200)*y(k,81) + rxt(k,284)*y(k,83) & - + rxt(k,308)*y(k,86) + rxt(k,255)*y(k,87) + rxt(k,326)*y(k,89) & - + rxt(k,231)*y(k,91) + rxt(k,207)*y(k,92) + rxt(k,258)*y(k,94) & - + .500_r8*rxt(k,399)*y(k,111) + rxt(k,539)*y(k,127) + rxt(k,380) & - *y(k,157) + rxt(k,384)*y(k,158) + rxt(k,201)*y(k,247) & + mat(k,850) = -(rxt(k,618)*y(k,63) + rxt(k,620)*y(k,136)) + mat(k,1489) = -rxt(k,618)*y(k,266) + mat(k,1576) = -rxt(k,620)*y(k,266) + mat(k,2031) = rxt(k,611)*y(k,257) + rxt(k,612)*y(k,259) + mat(k,674) = rxt(k,611)*y(k,135) + mat(k,544) = rxt(k,612)*y(k,135) + mat(k,502) = -(rxt(k,482)*y(k,243) + rxt(k,483)*y(k,125)) + mat(k,2307) = -rxt(k,482)*y(k,267) + mat(k,1898) = -rxt(k,483)*y(k,267) + mat(k,239) = .200_r8*rxt(k,472)*y(k,265) + mat(k,221) = .140_r8*rxt(k,484)*y(k,265) + mat(k,365) = rxt(k,487)*y(k,265) + mat(k,1766) = .200_r8*rxt(k,472)*y(k,66) + .140_r8*rxt(k,484)*y(k,145) & + + rxt(k,487)*y(k,146) + mat(k,859) = -(rxt(k,381)*y(k,243) + rxt(k,382)*y(k,125)) + mat(k,2334) = -rxt(k,381)*y(k,268) + mat(k,1920) = -rxt(k,382)*y(k,268) + mat(k,1175) = rxt(k,388)*y(k,265) + mat(k,602) = .500_r8*rxt(k,383)*y(k,265) + mat(k,1803) = rxt(k,388)*y(k,29) + .500_r8*rxt(k,383)*y(k,153) + mat(k,1262) = -(rxt(k,384)*y(k,237) + rxt(k,385)*y(k,243) + rxt(k,386) & + *y(k,125)) + mat(k,2171) = -rxt(k,384)*y(k,269) + mat(k,2354) = -rxt(k,385)*y(k,269) + mat(k,1944) = -rxt(k,386)*y(k,269) + mat(k,1072) = .060_r8*rxt(k,503)*y(k,137) + mat(k,1126) = rxt(k,389)*y(k,265) + mat(k,1016) = .060_r8*rxt(k,506)*y(k,137) + mat(k,2097) = .060_r8*rxt(k,503)*y(k,6) + .060_r8*rxt(k,506)*y(k,111) + mat(k,428) = rxt(k,387)*y(k,265) + mat(k,1166) = .150_r8*rxt(k,524)*y(k,265) + mat(k,1834) = rxt(k,389)*y(k,48) + rxt(k,387)*y(k,154) + .150_r8*rxt(k,524) & + *y(k,217) + mat(k,1223) = -(rxt(k,513)*y(k,237) + rxt(k,514)*y(k,243) + rxt(k,515) & + *y(k,125)) + mat(k,2169) = -rxt(k,513)*y(k,270) + mat(k,2352) = -rxt(k,514)*y(k,270) + mat(k,1941) = -rxt(k,515)*y(k,270) + mat(k,2412) = .500_r8*rxt(k,522)*y(k,216) + mat(k,726) = rxt(k,516)*y(k,265) + mat(k,1121) = .500_r8*rxt(k,522)*y(k,127) + rxt(k,523)*y(k,265) + mat(k,1831) = rxt(k,516)*y(k,213) + rxt(k,523)*y(k,216) + mat(k,1107) = -(rxt(k,518)*y(k,237) + rxt(k,519)*y(k,243) + rxt(k,520) & + *y(k,125)) + mat(k,2160) = -rxt(k,518)*y(k,271) + mat(k,2344) = -rxt(k,519)*y(k,271) + mat(k,1932) = -rxt(k,520)*y(k,271) + mat(k,1066) = rxt(k,504)*y(k,265) + mat(k,1010) = rxt(k,507)*y(k,265) + mat(k,524) = rxt(k,521)*y(k,265) + mat(k,1821) = rxt(k,504)*y(k,6) + rxt(k,507)*y(k,111) + rxt(k,521)*y(k,215) + mat(k,788) = -(rxt(k,489)*y(k,243) + rxt(k,490)*y(k,125)) + mat(k,2328) = -rxt(k,489)*y(k,272) + mat(k,1916) = -rxt(k,490)*y(k,272) + mat(k,655) = rxt(k,491)*y(k,265) + mat(k,235) = (.650_r8*rxt(k,492)+rxt(k,582))*y(k,265) + mat(k,1798) = rxt(k,491)*y(k,218) + (.650_r8*rxt(k,492)+rxt(k,582))*y(k,219) + mat(k,136) = -(rxt(k,583)*y(k,243) + rxt(k,584)*y(k,125)) + mat(k,2288) = -rxt(k,583)*y(k,273) + mat(k,1889) = -rxt(k,584)*y(k,273) + mat(k,230) = rxt(k,582)*y(k,265) + mat(k,1715) = rxt(k,582)*y(k,219) + mat(k,1278) = -(rxt(k,453)*y(k,236) + rxt(k,454)*y(k,237) + rxt(k,455) & + *y(k,243) + rxt(k,456)*y(k,125) + rxt(k,457)*y(k,127)) + mat(k,1464) = -rxt(k,453)*y(k,274) + mat(k,2172) = -rxt(k,454)*y(k,274) + mat(k,2355) = -rxt(k,455)*y(k,274) + mat(k,1945) = -rxt(k,456)*y(k,274) + mat(k,2416) = -rxt(k,457)*y(k,274) + mat(k,283) = rxt(k,425)*y(k,265) + mat(k,381) = rxt(k,426)*y(k,265) + mat(k,199) = rxt(k,427)*y(k,265) + mat(k,800) = .400_r8*rxt(k,450)*y(k,265) + mat(k,248) = .500_r8*rxt(k,458)*y(k,265) + mat(k,1835) = rxt(k,425)*y(k,94) + rxt(k,426)*y(k,96) + rxt(k,427)*y(k,97) & + + .400_r8*rxt(k,450)*y(k,103) + .500_r8*rxt(k,458)*y(k,220) + mat(k,812) = -(rxt(k,495)*y(k,243) + rxt(k,496)*y(k,125)) + mat(k,2330) = -rxt(k,495)*y(k,275) + mat(k,1917) = -rxt(k,496)*y(k,275) + mat(k,259) = .560_r8*rxt(k,494)*y(k,265) + mat(k,768) = rxt(k,497)*y(k,265) + mat(k,1800) = .560_r8*rxt(k,494)*y(k,221) + rxt(k,497)*y(k,222) + mat(k,142) = -(rxt(k,587)*y(k,243) + rxt(k,588)*y(k,125)) + mat(k,2289) = -rxt(k,587)*y(k,276) + mat(k,1890) = -rxt(k,588)*y(k,276) + mat(k,254) = rxt(k,586)*y(k,265) + mat(k,1716) = rxt(k,586)*y(k,221) + mat(k,558) = -(rxt(k,498)*y(k,243) + rxt(k,499)*y(k,125)) + mat(k,2314) = -rxt(k,498)*y(k,277) + mat(k,1903) = -rxt(k,499)*y(k,277) + mat(k,266) = .300_r8*rxt(k,500)*y(k,265) + mat(k,470) = rxt(k,501)*y(k,265) + mat(k,1773) = .300_r8*rxt(k,500)*y(k,223) + rxt(k,501)*y(k,224) + mat(k,2526) = -(rxt(k,174)*y(k,261) + rxt(k,296)*y(k,73) + rxt(k,541) & + *y(k,159)) + mat(k,2243) = -rxt(k,174)*y(k,278) + mat(k,978) = -rxt(k,296)*y(k,278) + mat(k,312) = -rxt(k,541)*y(k,278) + mat(k,332) = rxt(k,349)*y(k,265) + mat(k,438) = rxt(k,374)*y(k,265) + mat(k,338) = rxt(k,375)*y(k,265) + mat(k,522) = rxt(k,301)*y(k,265) + mat(k,2472) = rxt(k,320)*y(k,265) + mat(k,689) = rxt(k,303)*y(k,265) + mat(k,170) = rxt(k,304)*y(k,265) + mat(k,1204) = rxt(k,351)*y(k,265) + mat(k,418) = rxt(k,306)*y(k,265) + mat(k,1130) = rxt(k,389)*y(k,265) + mat(k,1333) = rxt(k,377)*y(k,265) + mat(k,754) = rxt(k,357)*y(k,265) + mat(k,671) = rxt(k,358)*y(k,265) + mat(k,450) = rxt(k,326)*y(k,265) + mat(k,1649) = rxt(k,327)*y(k,265) + mat(k,2148) = rxt(k,194)*y(k,243) + mat(k,1517) = rxt(k,199)*y(k,265) + mat(k,649) = rxt(k,200)*y(k,265) + mat(k,880) = rxt(k,287)*y(k,265) + mat(k,360) = rxt(k,311)*y(k,265) + mat(k,1552) = (rxt(k,597)+rxt(k,602))*y(k,91) + (rxt(k,590)+rxt(k,596) & + +rxt(k,601))*y(k,92) + rxt(k,258)*y(k,265) + mat(k,959) = rxt(k,329)*y(k,265) + mat(k,2266) = rxt(k,231)*y(k,265) + mat(k,556) = rxt(k,208)*y(k,265) + mat(k,839) = (rxt(k,597)+rxt(k,602))*y(k,85) + mat(k,888) = (rxt(k,590)+rxt(k,596)+rxt(k,601))*y(k,85) + rxt(k,261)*y(k,265) + mat(k,1324) = .500_r8*rxt(k,402)*y(k,265) + mat(k,145) = rxt(k,542)*y(k,265) + mat(k,608) = rxt(k,383)*y(k,265) + mat(k,432) = rxt(k,387)*y(k,265) + mat(k,2386) = rxt(k,194)*y(k,76) + rxt(k,201)*y(k,265) + mat(k,1867) = rxt(k,349)*y(k,28) + rxt(k,374)*y(k,30) + rxt(k,375)*y(k,31) & + + rxt(k,301)*y(k,41) + rxt(k,320)*y(k,42) + rxt(k,303)*y(k,43) & + + rxt(k,304)*y(k,44) + rxt(k,351)*y(k,45) + rxt(k,306)*y(k,46) & + + rxt(k,389)*y(k,48) + rxt(k,377)*y(k,49) + rxt(k,357)*y(k,50) & + + rxt(k,358)*y(k,51) + rxt(k,326)*y(k,53) + rxt(k,327)*y(k,54) & + + rxt(k,199)*y(k,77) + rxt(k,200)*y(k,79) + rxt(k,287)*y(k,81) & + + rxt(k,311)*y(k,84) + rxt(k,258)*y(k,85) + rxt(k,329)*y(k,87) & + + rxt(k,231)*y(k,89) + rxt(k,208)*y(k,90) + rxt(k,261)*y(k,92) & + + .500_r8*rxt(k,402)*y(k,106) + rxt(k,542)*y(k,121) + rxt(k,383) & + *y(k,153) + rxt(k,387)*y(k,154) + rxt(k,201)*y(k,243) & + 2.000_r8*rxt(k,204)*y(k,265) end do end subroutine nlnmat11 @@ -2818,8 +2839,14 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 63) = lmat(k, 63) mat(k, 64) = lmat(k, 64) mat(k, 65) = lmat(k, 65) - mat(k, 71) = mat(k, 71) + lmat(k, 71) - mat(k, 73) = mat(k, 73) + lmat(k, 73) + mat(k, 66) = lmat(k, 66) + mat(k, 67) = lmat(k, 67) + mat(k, 68) = lmat(k, 68) + mat(k, 69) = lmat(k, 69) + mat(k, 70) = lmat(k, 70) + mat(k, 71) = lmat(k, 71) + mat(k, 72) = lmat(k, 72) + mat(k, 73) = lmat(k, 73) mat(k, 74) = lmat(k, 74) mat(k, 75) = lmat(k, 75) mat(k, 76) = lmat(k, 76) @@ -2828,334 +2855,326 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 84) = mat(k, 84) + lmat(k, 84) mat(k, 90) = mat(k, 90) + lmat(k, 90) mat(k, 96) = mat(k, 96) + lmat(k, 96) - mat(k, 97) = lmat(k, 97) - mat(k, 98) = lmat(k, 98) - mat(k, 99) = lmat(k, 99) - mat(k, 100) = lmat(k, 100) - mat(k, 101) = lmat(k, 101) - mat(k, 107) = mat(k, 107) + lmat(k, 107) - mat(k, 113) = mat(k, 113) + lmat(k, 113) - mat(k, 115) = mat(k, 115) + lmat(k, 115) - mat(k, 116) = lmat(k, 116) + mat(k, 102) = mat(k, 102) + lmat(k, 102) + mat(k, 108) = mat(k, 108) + lmat(k, 108) + mat(k, 114) = mat(k, 114) + lmat(k, 114) + mat(k, 116) = mat(k, 116) + lmat(k, 116) mat(k, 122) = mat(k, 122) + lmat(k, 122) - mat(k, 128) = mat(k, 128) + lmat(k, 128) - mat(k, 134) = mat(k, 134) + lmat(k, 134) - mat(k, 140) = mat(k, 140) + lmat(k, 140) - mat(k, 141) = mat(k, 141) + lmat(k, 141) - mat(k, 144) = mat(k, 144) + lmat(k, 144) + mat(k, 124) = mat(k, 124) + lmat(k, 124) + mat(k, 130) = mat(k, 130) + lmat(k, 130) + mat(k, 136) = mat(k, 136) + lmat(k, 136) + mat(k, 142) = mat(k, 142) + lmat(k, 142) + mat(k, 143) = mat(k, 143) + lmat(k, 143) mat(k, 146) = mat(k, 146) + lmat(k, 146) mat(k, 147) = mat(k, 147) + lmat(k, 147) - mat(k, 150) = lmat(k, 150) - mat(k, 151) = lmat(k, 151) + mat(k, 149) = mat(k, 149) + lmat(k, 149) mat(k, 152) = lmat(k, 152) - mat(k, 153) = mat(k, 153) + lmat(k, 153) - mat(k, 154) = mat(k, 154) + lmat(k, 154) + mat(k, 153) = lmat(k, 153) + mat(k, 154) = lmat(k, 154) + mat(k, 155) = mat(k, 155) + lmat(k, 155) mat(k, 156) = mat(k, 156) + lmat(k, 156) mat(k, 157) = mat(k, 157) + lmat(k, 157) - mat(k, 158) = mat(k, 158) + lmat(k, 158) + mat(k, 159) = mat(k, 159) + lmat(k, 159) mat(k, 160) = mat(k, 160) + lmat(k, 160) mat(k, 161) = mat(k, 161) + lmat(k, 161) - mat(k, 162) = mat(k, 162) + lmat(k, 162) + mat(k, 163) = mat(k, 163) + lmat(k, 163) mat(k, 164) = mat(k, 164) + lmat(k, 164) mat(k, 165) = mat(k, 165) + lmat(k, 165) mat(k, 167) = mat(k, 167) + lmat(k, 167) mat(k, 169) = mat(k, 169) + lmat(k, 169) - mat(k, 170) = mat(k, 170) + lmat(k, 170) mat(k, 171) = mat(k, 171) + lmat(k, 171) + mat(k, 172) = mat(k, 172) + lmat(k, 172) mat(k, 173) = mat(k, 173) + lmat(k, 173) + mat(k, 175) = lmat(k, 175) mat(k, 176) = lmat(k, 176) mat(k, 177) = lmat(k, 177) - mat(k, 178) = lmat(k, 178) - mat(k, 179) = lmat(k, 179) - mat(k, 180) = lmat(k, 180) - mat(k, 181) = lmat(k, 181) - mat(k, 182) = lmat(k, 182) - mat(k, 183) = lmat(k, 183) - mat(k, 184) = lmat(k, 184) + mat(k, 178) = mat(k, 178) + lmat(k, 178) + mat(k, 179) = mat(k, 179) + lmat(k, 179) + mat(k, 180) = mat(k, 180) + lmat(k, 180) + mat(k, 181) = mat(k, 181) + lmat(k, 181) + mat(k, 183) = mat(k, 183) + lmat(k, 183) + mat(k, 184) = mat(k, 184) + lmat(k, 184) mat(k, 185) = mat(k, 185) + lmat(k, 185) mat(k, 186) = mat(k, 186) + lmat(k, 186) - mat(k, 187) = mat(k, 187) + lmat(k, 187) + mat(k, 188) = mat(k, 188) + lmat(k, 188) mat(k, 189) = mat(k, 189) + lmat(k, 189) mat(k, 190) = mat(k, 190) + lmat(k, 190) mat(k, 191) = mat(k, 191) + lmat(k, 191) - mat(k, 192) = mat(k, 192) + lmat(k, 192) mat(k, 193) = mat(k, 193) + lmat(k, 193) + mat(k, 194) = mat(k, 194) + lmat(k, 194) mat(k, 195) = mat(k, 195) + lmat(k, 195) mat(k, 196) = mat(k, 196) + lmat(k, 196) - mat(k, 197) = mat(k, 197) + lmat(k, 197) - mat(k, 199) = mat(k, 199) + lmat(k, 199) - mat(k, 200) = mat(k, 200) + lmat(k, 200) - mat(k, 201) = mat(k, 201) + lmat(k, 201) - mat(k, 202) = mat(k, 202) + lmat(k, 202) - mat(k, 204) = mat(k, 204) + lmat(k, 204) + mat(k, 198) = mat(k, 198) + lmat(k, 198) + mat(k, 201) = lmat(k, 201) + mat(k, 202) = lmat(k, 202) + mat(k, 203) = lmat(k, 203) + mat(k, 204) = lmat(k, 204) mat(k, 205) = lmat(k, 205) mat(k, 206) = lmat(k, 206) - mat(k, 208) = mat(k, 208) + lmat(k, 208) - mat(k, 214) = lmat(k, 214) - mat(k, 215) = lmat(k, 215) + mat(k, 207) = lmat(k, 207) + mat(k, 208) = lmat(k, 208) + mat(k, 210) = mat(k, 210) + lmat(k, 210) mat(k, 216) = lmat(k, 216) mat(k, 217) = lmat(k, 217) - mat(k, 218) = mat(k, 218) + lmat(k, 218) - mat(k, 223) = mat(k, 223) + lmat(k, 223) - mat(k, 224) = mat(k, 224) + lmat(k, 224) + mat(k, 218) = lmat(k, 218) + mat(k, 219) = lmat(k, 219) + mat(k, 220) = mat(k, 220) + lmat(k, 220) mat(k, 225) = mat(k, 225) + lmat(k, 225) mat(k, 226) = mat(k, 226) + lmat(k, 226) - mat(k, 227) = lmat(k, 227) - mat(k, 229) = mat(k, 229) + lmat(k, 229) - mat(k, 236) = mat(k, 236) + lmat(k, 236) - mat(k, 241) = lmat(k, 241) - mat(k, 242) = lmat(k, 242) + mat(k, 227) = mat(k, 227) + lmat(k, 227) + mat(k, 228) = mat(k, 228) + lmat(k, 228) + mat(k, 229) = lmat(k, 229) + mat(k, 231) = mat(k, 231) + lmat(k, 231) + mat(k, 238) = mat(k, 238) + lmat(k, 238) mat(k, 243) = lmat(k, 243) mat(k, 244) = lmat(k, 244) - mat(k, 245) = mat(k, 245) + lmat(k, 245) + mat(k, 245) = lmat(k, 245) + mat(k, 246) = lmat(k, 246) mat(k, 247) = mat(k, 247) + lmat(k, 247) - mat(k, 248) = mat(k, 248) + lmat(k, 248) - mat(k, 254) = mat(k, 254) + lmat(k, 254) - mat(k, 262) = mat(k, 262) + lmat(k, 262) - mat(k, 267) = mat(k, 267) + lmat(k, 267) - mat(k, 268) = mat(k, 268) + lmat(k, 268) - mat(k, 270) = mat(k, 270) + lmat(k, 270) + mat(k, 249) = mat(k, 249) + lmat(k, 249) + mat(k, 250) = mat(k, 250) + lmat(k, 250) + mat(k, 256) = mat(k, 256) + lmat(k, 256) + mat(k, 264) = mat(k, 264) + lmat(k, 264) + mat(k, 269) = mat(k, 269) + lmat(k, 269) + mat(k, 272) = lmat(k, 272) mat(k, 273) = lmat(k, 273) mat(k, 274) = lmat(k, 274) mat(k, 275) = lmat(k, 275) mat(k, 276) = lmat(k, 276) mat(k, 277) = lmat(k, 277) - mat(k, 278) = lmat(k, 278) - mat(k, 279) = mat(k, 279) + lmat(k, 279) - mat(k, 282) = mat(k, 282) + lmat(k, 282) - mat(k, 283) = lmat(k, 283) - mat(k, 285) = mat(k, 285) + lmat(k, 285) - mat(k, 286) = lmat(k, 286) + mat(k, 278) = mat(k, 278) + lmat(k, 278) + mat(k, 281) = mat(k, 281) + lmat(k, 281) + mat(k, 282) = lmat(k, 282) + mat(k, 284) = mat(k, 284) + lmat(k, 284) + mat(k, 285) = lmat(k, 285) + mat(k, 286) = mat(k, 286) + lmat(k, 286) mat(k, 287) = mat(k, 287) + lmat(k, 287) - mat(k, 288) = mat(k, 288) + lmat(k, 288) - mat(k, 291) = mat(k, 291) + lmat(k, 291) + mat(k, 289) = mat(k, 289) + lmat(k, 289) + mat(k, 290) = mat(k, 290) + lmat(k, 290) mat(k, 292) = mat(k, 292) + lmat(k, 292) - mat(k, 293) = mat(k, 293) + lmat(k, 293) + mat(k, 294) = mat(k, 294) + lmat(k, 294) mat(k, 295) = mat(k, 295) + lmat(k, 295) mat(k, 296) = mat(k, 296) + lmat(k, 296) - mat(k, 297) = mat(k, 297) + lmat(k, 297) - mat(k, 301) = mat(k, 301) + lmat(k, 301) + mat(k, 298) = mat(k, 298) + lmat(k, 298) + mat(k, 299) = mat(k, 299) + lmat(k, 299) mat(k, 302) = mat(k, 302) + lmat(k, 302) - mat(k, 305) = mat(k, 305) + lmat(k, 305) - mat(k, 307) = mat(k, 307) + lmat(k, 307) - mat(k, 308) = lmat(k, 308) - mat(k, 309) = lmat(k, 309) - mat(k, 311) = mat(k, 311) + lmat(k, 311) - mat(k, 315) = mat(k, 315) + lmat(k, 315) - mat(k, 316) = lmat(k, 316) - mat(k, 318) = mat(k, 318) + lmat(k, 318) - mat(k, 319) = lmat(k, 319) - mat(k, 320) = lmat(k, 320) - mat(k, 321) = lmat(k, 321) - mat(k, 322) = lmat(k, 322) - mat(k, 323) = lmat(k, 323) - mat(k, 324) = lmat(k, 324) - mat(k, 325) = mat(k, 325) + lmat(k, 325) - mat(k, 331) = lmat(k, 331) - mat(k, 332) = lmat(k, 332) - mat(k, 333) = lmat(k, 333) - mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 340) = mat(k, 340) + lmat(k, 340) - mat(k, 346) = lmat(k, 346) - mat(k, 347) = lmat(k, 347) - mat(k, 348) = lmat(k, 348) - mat(k, 349) = mat(k, 349) + lmat(k, 349) + mat(k, 304) = mat(k, 304) + lmat(k, 304) + mat(k, 309) = mat(k, 309) + lmat(k, 309) + mat(k, 310) = lmat(k, 310) + mat(k, 311) = lmat(k, 311) + mat(k, 313) = mat(k, 313) + lmat(k, 313) + mat(k, 314) = lmat(k, 314) + mat(k, 316) = mat(k, 316) + lmat(k, 316) + mat(k, 317) = mat(k, 317) + lmat(k, 317) + mat(k, 320) = mat(k, 320) + lmat(k, 320) + mat(k, 321) = mat(k, 321) + lmat(k, 321) + mat(k, 327) = mat(k, 327) + lmat(k, 327) + mat(k, 333) = mat(k, 333) + lmat(k, 333) + mat(k, 339) = lmat(k, 339) + mat(k, 340) = lmat(k, 340) + mat(k, 341) = lmat(k, 341) + mat(k, 342) = lmat(k, 342) + mat(k, 343) = lmat(k, 343) + mat(k, 344) = lmat(k, 344) + mat(k, 345) = mat(k, 345) + lmat(k, 345) + mat(k, 351) = lmat(k, 351) + mat(k, 352) = lmat(k, 352) + mat(k, 353) = lmat(k, 353) + mat(k, 354) = mat(k, 354) + lmat(k, 354) mat(k, 355) = mat(k, 355) + lmat(k, 355) - mat(k, 356) = mat(k, 356) + lmat(k, 356) - mat(k, 360) = mat(k, 360) + lmat(k, 360) - mat(k, 362) = mat(k, 362) + lmat(k, 362) - mat(k, 365) = mat(k, 365) + lmat(k, 365) + mat(k, 358) = mat(k, 358) + lmat(k, 358) + mat(k, 361) = lmat(k, 361) + mat(k, 362) = lmat(k, 362) + mat(k, 363) = lmat(k, 363) + mat(k, 364) = mat(k, 364) + lmat(k, 364) mat(k, 366) = lmat(k, 366) mat(k, 367) = mat(k, 367) + lmat(k, 367) + mat(k, 368) = lmat(k, 368) mat(k, 369) = lmat(k, 369) mat(k, 370) = mat(k, 370) + lmat(k, 370) - mat(k, 371) = lmat(k, 371) - mat(k, 372) = lmat(k, 372) mat(k, 373) = mat(k, 373) + lmat(k, 373) - mat(k, 376) = mat(k, 376) + lmat(k, 376) - mat(k, 377) = lmat(k, 377) + mat(k, 374) = lmat(k, 374) + mat(k, 375) = mat(k, 375) + lmat(k, 375) + mat(k, 377) = mat(k, 377) + lmat(k, 377) mat(k, 378) = mat(k, 378) + lmat(k, 378) + mat(k, 379) = lmat(k, 379) mat(k, 380) = mat(k, 380) + lmat(k, 380) - mat(k, 381) = mat(k, 381) + lmat(k, 381) - mat(k, 382) = lmat(k, 382) - mat(k, 383) = lmat(k, 383) - mat(k, 384) = lmat(k, 384) + mat(k, 383) = mat(k, 383) + lmat(k, 383) mat(k, 385) = lmat(k, 385) mat(k, 386) = lmat(k, 386) - mat(k, 387) = lmat(k, 387) + mat(k, 387) = mat(k, 387) + lmat(k, 387) mat(k, 388) = mat(k, 388) + lmat(k, 388) - mat(k, 390) = lmat(k, 390) - mat(k, 391) = lmat(k, 391) - mat(k, 392) = mat(k, 392) + lmat(k, 392) mat(k, 393) = mat(k, 393) + lmat(k, 393) - mat(k, 398) = mat(k, 398) + lmat(k, 398) - mat(k, 401) = mat(k, 401) + lmat(k, 401) - mat(k, 406) = mat(k, 406) + lmat(k, 406) - mat(k, 407) = lmat(k, 407) - mat(k, 409) = mat(k, 409) + lmat(k, 409) - mat(k, 417) = mat(k, 417) + lmat(k, 417) - mat(k, 418) = lmat(k, 418) - mat(k, 420) = mat(k, 420) + lmat(k, 420) - mat(k, 425) = mat(k, 425) + lmat(k, 425) - mat(k, 427) = lmat(k, 427) - mat(k, 428) = mat(k, 428) + lmat(k, 428) + mat(k, 396) = lmat(k, 396) + mat(k, 397) = mat(k, 397) + lmat(k, 397) + mat(k, 398) = lmat(k, 398) + mat(k, 399) = lmat(k, 399) + mat(k, 400) = lmat(k, 400) + mat(k, 401) = lmat(k, 401) + mat(k, 402) = lmat(k, 402) + mat(k, 403) = mat(k, 403) + lmat(k, 403) + mat(k, 411) = mat(k, 411) + lmat(k, 411) + mat(k, 415) = mat(k, 415) + lmat(k, 415) + mat(k, 416) = lmat(k, 416) + mat(k, 419) = mat(k, 419) + lmat(k, 419) + mat(k, 420) = lmat(k, 420) + mat(k, 422) = mat(k, 422) + lmat(k, 422) + mat(k, 427) = mat(k, 427) + lmat(k, 427) mat(k, 429) = lmat(k, 429) - mat(k, 431) = mat(k, 431) + lmat(k, 431) - mat(k, 432) = lmat(k, 432) - mat(k, 434) = lmat(k, 434) - mat(k, 435) = mat(k, 435) + lmat(k, 435) - mat(k, 436) = lmat(k, 436) - mat(k, 437) = mat(k, 437) + lmat(k, 437) - mat(k, 439) = lmat(k, 439) - mat(k, 440) = mat(k, 440) + lmat(k, 440) - mat(k, 441) = lmat(k, 441) - mat(k, 443) = mat(k, 443) + lmat(k, 443) - mat(k, 444) = lmat(k, 444) - mat(k, 446) = lmat(k, 446) - mat(k, 448) = mat(k, 448) + lmat(k, 448) + mat(k, 430) = mat(k, 430) + lmat(k, 430) + mat(k, 431) = lmat(k, 431) + mat(k, 433) = mat(k, 433) + lmat(k, 433) + mat(k, 435) = lmat(k, 435) + mat(k, 436) = mat(k, 436) + lmat(k, 436) + mat(k, 437) = lmat(k, 437) + mat(k, 439) = mat(k, 439) + lmat(k, 439) + mat(k, 440) = lmat(k, 440) + mat(k, 442) = lmat(k, 442) + mat(k, 444) = mat(k, 444) + lmat(k, 444) + mat(k, 445) = mat(k, 445) + lmat(k, 445) + mat(k, 446) = mat(k, 446) + lmat(k, 446) + mat(k, 447) = lmat(k, 447) mat(k, 449) = mat(k, 449) + lmat(k, 449) - mat(k, 450) = lmat(k, 450) - mat(k, 452) = lmat(k, 452) + mat(k, 451) = mat(k, 451) + lmat(k, 451) mat(k, 453) = mat(k, 453) + lmat(k, 453) - mat(k, 454) = lmat(k, 454) - mat(k, 455) = mat(k, 455) + lmat(k, 455) - mat(k, 456) = mat(k, 456) + lmat(k, 456) - mat(k, 457) = lmat(k, 457) - mat(k, 459) = mat(k, 459) + lmat(k, 459) + mat(k, 457) = mat(k, 457) + lmat(k, 457) + mat(k, 458) = lmat(k, 458) + mat(k, 460) = lmat(k, 460) mat(k, 461) = mat(k, 461) + lmat(k, 461) + mat(k, 462) = lmat(k, 462) mat(k, 463) = mat(k, 463) + lmat(k, 463) mat(k, 467) = lmat(k, 467) - mat(k, 468) = lmat(k, 468) - mat(k, 469) = lmat(k, 469) - mat(k, 470) = lmat(k, 470) + mat(k, 469) = mat(k, 469) + lmat(k, 469) mat(k, 471) = lmat(k, 471) mat(k, 472) = lmat(k, 472) mat(k, 473) = mat(k, 473) + lmat(k, 473) - mat(k, 475) = lmat(k, 475) - mat(k, 476) = lmat(k, 476) + mat(k, 474) = lmat(k, 474) mat(k, 477) = mat(k, 477) + lmat(k, 477) - mat(k, 478) = lmat(k, 478) - mat(k, 481) = mat(k, 481) + lmat(k, 481) + mat(k, 483) = mat(k, 483) + lmat(k, 483) mat(k, 487) = mat(k, 487) + lmat(k, 487) - mat(k, 491) = mat(k, 491) + lmat(k, 491) + mat(k, 488) = lmat(k, 488) + mat(k, 489) = mat(k, 489) + lmat(k, 489) + mat(k, 490) = lmat(k, 490) mat(k, 492) = lmat(k, 492) mat(k, 493) = mat(k, 493) + lmat(k, 493) + mat(k, 494) = lmat(k, 494) + mat(k, 495) = lmat(k, 495) + mat(k, 496) = lmat(k, 496) + mat(k, 497) = lmat(k, 497) mat(k, 498) = lmat(k, 498) - mat(k, 500) = mat(k, 500) + lmat(k, 500) - mat(k, 506) = lmat(k, 506) - mat(k, 507) = lmat(k, 507) + mat(k, 499) = lmat(k, 499) + mat(k, 500) = lmat(k, 500) + mat(k, 502) = mat(k, 502) + lmat(k, 502) mat(k, 508) = lmat(k, 508) - mat(k, 509) = mat(k, 509) + lmat(k, 509) - mat(k, 512) = mat(k, 512) + lmat(k, 512) - mat(k, 513) = lmat(k, 513) + mat(k, 509) = lmat(k, 509) + mat(k, 510) = lmat(k, 510) + mat(k, 511) = mat(k, 511) + lmat(k, 511) mat(k, 514) = mat(k, 514) + lmat(k, 514) + mat(k, 515) = lmat(k, 515) mat(k, 516) = mat(k, 516) + lmat(k, 516) - mat(k, 521) = mat(k, 521) + lmat(k, 521) + mat(k, 518) = mat(k, 518) + lmat(k, 518) mat(k, 523) = mat(k, 523) + lmat(k, 523) - mat(k, 524) = mat(k, 524) + lmat(k, 524) mat(k, 525) = lmat(k, 525) mat(k, 526) = lmat(k, 526) - mat(k, 528) = mat(k, 528) + lmat(k, 528) - mat(k, 530) = lmat(k, 530) - mat(k, 531) = lmat(k, 531) + mat(k, 527) = mat(k, 527) + lmat(k, 527) + mat(k, 528) = lmat(k, 528) + mat(k, 529) = lmat(k, 529) mat(k, 532) = mat(k, 532) + lmat(k, 532) - mat(k, 533) = lmat(k, 533) - mat(k, 534) = lmat(k, 534) - mat(k, 535) = mat(k, 535) + lmat(k, 535) - mat(k, 541) = mat(k, 541) + lmat(k, 541) - mat(k, 548) = mat(k, 548) + lmat(k, 548) - mat(k, 556) = mat(k, 556) + lmat(k, 556) - mat(k, 563) = mat(k, 563) + lmat(k, 563) - mat(k, 565) = lmat(k, 565) - mat(k, 566) = lmat(k, 566) - mat(k, 569) = mat(k, 569) + lmat(k, 569) - mat(k, 575) = mat(k, 575) + lmat(k, 575) - mat(k, 580) = mat(k, 580) + lmat(k, 580) - mat(k, 581) = lmat(k, 581) - mat(k, 582) = lmat(k, 582) - mat(k, 583) = lmat(k, 583) + mat(k, 539) = mat(k, 539) + lmat(k, 539) + mat(k, 543) = mat(k, 543) + lmat(k, 543) + mat(k, 550) = mat(k, 550) + lmat(k, 550) + mat(k, 552) = mat(k, 552) + lmat(k, 552) + mat(k, 553) = mat(k, 553) + lmat(k, 553) + mat(k, 554) = lmat(k, 554) + mat(k, 555) = lmat(k, 555) + mat(k, 558) = mat(k, 558) + lmat(k, 558) + mat(k, 565) = mat(k, 565) + lmat(k, 565) + mat(k, 567) = lmat(k, 567) + mat(k, 568) = lmat(k, 568) + mat(k, 571) = mat(k, 571) + lmat(k, 571) + mat(k, 577) = mat(k, 577) + lmat(k, 577) mat(k, 585) = mat(k, 585) + lmat(k, 585) mat(k, 586) = lmat(k, 586) - mat(k, 588) = mat(k, 588) + lmat(k, 588) + mat(k, 587) = lmat(k, 587) + mat(k, 588) = lmat(k, 588) mat(k, 590) = lmat(k, 590) - mat(k, 592) = mat(k, 592) + lmat(k, 592) - mat(k, 593) = lmat(k, 593) - mat(k, 594) = lmat(k, 594) - mat(k, 596) = mat(k, 596) + lmat(k, 596) + mat(k, 591) = mat(k, 591) + lmat(k, 591) + mat(k, 593) = mat(k, 593) + lmat(k, 593) + mat(k, 599) = lmat(k, 599) + mat(k, 601) = mat(k, 601) + lmat(k, 601) mat(k, 603) = lmat(k, 603) - mat(k, 604) = mat(k, 604) + lmat(k, 604) - mat(k, 605) = lmat(k, 605) + mat(k, 605) = mat(k, 605) + lmat(k, 605) mat(k, 606) = lmat(k, 606) - mat(k, 607) = mat(k, 607) + lmat(k, 607) - mat(k, 608) = lmat(k, 608) + mat(k, 607) = lmat(k, 607) mat(k, 609) = mat(k, 609) + lmat(k, 609) - mat(k, 610) = lmat(k, 610) - mat(k, 612) = mat(k, 612) + lmat(k, 612) + mat(k, 617) = mat(k, 617) + lmat(k, 617) + mat(k, 618) = lmat(k, 618) + mat(k, 619) = lmat(k, 619) mat(k, 620) = mat(k, 620) + lmat(k, 620) - mat(k, 628) = mat(k, 628) + lmat(k, 628) - mat(k, 630) = mat(k, 630) + lmat(k, 630) - mat(k, 635) = lmat(k, 635) - mat(k, 637) = mat(k, 637) + lmat(k, 637) - mat(k, 639) = mat(k, 639) + lmat(k, 639) - mat(k, 640) = mat(k, 640) + lmat(k, 640) - mat(k, 641) = lmat(k, 641) - mat(k, 644) = mat(k, 644) + lmat(k, 644) - mat(k, 646) = mat(k, 646) + lmat(k, 646) - mat(k, 651) = mat(k, 651) + lmat(k, 651) + mat(k, 621) = lmat(k, 621) + mat(k, 623) = lmat(k, 623) + mat(k, 624) = mat(k, 624) + lmat(k, 624) + mat(k, 625) = mat(k, 625) + lmat(k, 625) + mat(k, 627) = lmat(k, 627) + mat(k, 629) = lmat(k, 629) + mat(k, 634) = mat(k, 634) + lmat(k, 634) + mat(k, 640) = lmat(k, 640) + mat(k, 643) = mat(k, 643) + lmat(k, 643) + mat(k, 645) = mat(k, 645) + lmat(k, 645) + mat(k, 650) = lmat(k, 650) + mat(k, 651) = lmat(k, 651) + mat(k, 652) = mat(k, 652) + lmat(k, 652) + mat(k, 653) = lmat(k, 653) + mat(k, 657) = lmat(k, 657) mat(k, 658) = lmat(k, 658) + mat(k, 659) = mat(k, 659) + lmat(k, 659) mat(k, 660) = lmat(k, 660) mat(k, 661) = lmat(k, 661) - mat(k, 662) = mat(k, 662) + lmat(k, 662) + mat(k, 662) = lmat(k, 662) mat(k, 663) = lmat(k, 663) - mat(k, 667) = lmat(k, 667) - mat(k, 668) = lmat(k, 668) - mat(k, 669) = mat(k, 669) + lmat(k, 669) - mat(k, 670) = lmat(k, 670) - mat(k, 671) = mat(k, 671) + lmat(k, 671) - mat(k, 673) = lmat(k, 673) - mat(k, 675) = lmat(k, 675) - mat(k, 680) = lmat(k, 680) - mat(k, 681) = lmat(k, 681) - mat(k, 682) = lmat(k, 682) - mat(k, 683) = lmat(k, 683) - mat(k, 684) = mat(k, 684) + lmat(k, 684) - mat(k, 685) = mat(k, 685) + lmat(k, 685) - mat(k, 686) = mat(k, 686) + lmat(k, 686) - mat(k, 688) = lmat(k, 688) - mat(k, 689) = lmat(k, 689) + mat(k, 664) = lmat(k, 664) + mat(k, 665) = mat(k, 665) + lmat(k, 665) + mat(k, 667) = mat(k, 667) + lmat(k, 667) + mat(k, 668) = mat(k, 668) + lmat(k, 668) + mat(k, 669) = lmat(k, 669) + mat(k, 672) = mat(k, 672) + lmat(k, 672) + mat(k, 681) = mat(k, 681) + lmat(k, 681) + mat(k, 683) = mat(k, 683) + lmat(k, 683) + mat(k, 686) = lmat(k, 686) + mat(k, 690) = mat(k, 690) + lmat(k, 690) + mat(k, 691) = mat(k, 691) + lmat(k, 691) mat(k, 692) = mat(k, 692) + lmat(k, 692) - mat(k, 698) = lmat(k, 698) - mat(k, 699) = mat(k, 699) + lmat(k, 699) - mat(k, 702) = mat(k, 702) + lmat(k, 702) - mat(k, 703) = mat(k, 703) + lmat(k, 703) + mat(k, 694) = lmat(k, 694) + mat(k, 695) = lmat(k, 695) + mat(k, 698) = mat(k, 698) + lmat(k, 698) + mat(k, 704) = mat(k, 704) + lmat(k, 704) mat(k, 705) = mat(k, 705) + lmat(k, 705) - mat(k, 707) = lmat(k, 707) - mat(k, 708) = mat(k, 708) + lmat(k, 708) - mat(k, 709) = lmat(k, 709) - mat(k, 710) = mat(k, 710) + lmat(k, 710) - mat(k, 714) = lmat(k, 714) + mat(k, 710) = lmat(k, 710) + mat(k, 711) = mat(k, 711) + lmat(k, 711) mat(k, 715) = lmat(k, 715) - mat(k, 717) = mat(k, 717) + lmat(k, 717) - mat(k, 718) = lmat(k, 718) + mat(k, 716) = lmat(k, 716) + mat(k, 718) = mat(k, 718) + lmat(k, 718) mat(k, 719) = lmat(k, 719) + mat(k, 720) = lmat(k, 720) mat(k, 721) = mat(k, 721) + lmat(k, 721) + mat(k, 722) = lmat(k, 722) + mat(k, 723) = lmat(k, 723) + mat(k, 724) = lmat(k, 724) + mat(k, 725) = lmat(k, 725) + mat(k, 727) = lmat(k, 727) mat(k, 728) = mat(k, 728) + lmat(k, 728) mat(k, 729) = lmat(k, 729) mat(k, 730) = lmat(k, 730) mat(k, 731) = lmat(k, 731) - mat(k, 732) = lmat(k, 732) - mat(k, 734) = lmat(k, 734) + mat(k, 732) = mat(k, 732) + lmat(k, 732) mat(k, 735) = mat(k, 735) + lmat(k, 735) - mat(k, 736) = lmat(k, 736) - mat(k, 737) = lmat(k, 737) - mat(k, 739) = mat(k, 739) + lmat(k, 739) - mat(k, 749) = mat(k, 749) + lmat(k, 749) + mat(k, 736) = mat(k, 736) + lmat(k, 736) + mat(k, 738) = mat(k, 738) + lmat(k, 738) + mat(k, 740) = lmat(k, 740) + mat(k, 741) = mat(k, 741) + lmat(k, 741) + mat(k, 743) = mat(k, 743) + lmat(k, 743) + mat(k, 750) = mat(k, 750) + lmat(k, 750) mat(k, 755) = mat(k, 755) + lmat(k, 755) - mat(k, 757) = lmat(k, 757) - mat(k, 758) = lmat(k, 758) - mat(k, 759) = mat(k, 759) + lmat(k, 759) - mat(k, 760) = lmat(k, 760) - mat(k, 761) = lmat(k, 761) mat(k, 762) = lmat(k, 762) mat(k, 763) = lmat(k, 763) mat(k, 764) = lmat(k, 764) @@ -3166,626 +3185,629 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 775) = mat(k, 775) + lmat(k, 775) mat(k, 776) = lmat(k, 776) mat(k, 777) = mat(k, 777) + lmat(k, 777) - mat(k, 784) = mat(k, 784) + lmat(k, 784) - mat(k, 795) = mat(k, 795) + lmat(k, 795) - mat(k, 811) = mat(k, 811) + lmat(k, 811) - mat(k, 822) = mat(k, 822) + lmat(k, 822) + mat(k, 788) = mat(k, 788) + lmat(k, 788) + mat(k, 799) = mat(k, 799) + lmat(k, 799) + mat(k, 801) = lmat(k, 801) + mat(k, 802) = lmat(k, 802) + mat(k, 803) = mat(k, 803) + lmat(k, 803) + mat(k, 804) = lmat(k, 804) + mat(k, 805) = lmat(k, 805) + mat(k, 812) = mat(k, 812) + lmat(k, 812) + mat(k, 823) = mat(k, 823) + lmat(k, 823) mat(k, 832) = mat(k, 832) + lmat(k, 832) - mat(k, 841) = mat(k, 841) + lmat(k, 841) - mat(k, 843) = lmat(k, 843) - mat(k, 845) = mat(k, 845) + lmat(k, 845) - mat(k, 849) = mat(k, 849) + lmat(k, 849) - mat(k, 850) = lmat(k, 850) - mat(k, 852) = lmat(k, 852) - mat(k, 857) = mat(k, 857) + lmat(k, 857) - mat(k, 862) = mat(k, 862) + lmat(k, 862) + mat(k, 834) = lmat(k, 834) + mat(k, 836) = mat(k, 836) + lmat(k, 836) + mat(k, 842) = mat(k, 842) + lmat(k, 842) + mat(k, 850) = mat(k, 850) + lmat(k, 850) + mat(k, 851) = lmat(k, 851) + mat(k, 853) = lmat(k, 853) + mat(k, 859) = mat(k, 859) + lmat(k, 859) + mat(k, 869) = mat(k, 869) + lmat(k, 869) mat(k, 873) = mat(k, 873) + lmat(k, 873) - mat(k, 876) = mat(k, 876) + lmat(k, 876) - mat(k, 877) = mat(k, 877) + lmat(k, 877) - mat(k, 880) = mat(k, 880) + lmat(k, 880) - mat(k, 881) = mat(k, 881) + lmat(k, 881) + mat(k, 874) = mat(k, 874) + lmat(k, 874) + mat(k, 878) = mat(k, 878) + lmat(k, 878) + mat(k, 882) = mat(k, 882) + lmat(k, 882) + mat(k, 884) = mat(k, 884) + lmat(k, 884) mat(k, 885) = mat(k, 885) + lmat(k, 885) - mat(k, 889) = mat(k, 889) + lmat(k, 889) - mat(k, 896) = mat(k, 896) + lmat(k, 896) + mat(k, 890) = mat(k, 890) + lmat(k, 890) mat(k, 897) = mat(k, 897) + lmat(k, 897) - mat(k, 901) = mat(k, 901) + lmat(k, 901) - mat(k, 909) = mat(k, 909) + lmat(k, 909) - mat(k, 920) = mat(k, 920) + lmat(k, 920) - mat(k, 936) = mat(k, 936) + lmat(k, 936) - mat(k, 938) = lmat(k, 938) - mat(k, 939) = mat(k, 939) + lmat(k, 939) - mat(k, 941) = lmat(k, 941) - mat(k, 942) = mat(k, 942) + lmat(k, 942) - mat(k, 950) = mat(k, 950) + lmat(k, 950) - mat(k, 959) = mat(k, 959) + lmat(k, 959) - mat(k, 969) = mat(k, 969) + lmat(k, 969) - mat(k, 979) = mat(k, 979) + lmat(k, 979) - mat(k, 991) = mat(k, 991) + lmat(k, 991) - mat(k, 992) = lmat(k, 992) + mat(k, 898) = mat(k, 898) + lmat(k, 898) + mat(k, 902) = mat(k, 902) + lmat(k, 902) + mat(k, 910) = mat(k, 910) + lmat(k, 910) + mat(k, 918) = mat(k, 918) + lmat(k, 918) + mat(k, 920) = lmat(k, 920) + mat(k, 921) = mat(k, 921) + lmat(k, 921) + mat(k, 923) = lmat(k, 923) + mat(k, 927) = mat(k, 927) + lmat(k, 927) + mat(k, 946) = mat(k, 946) + lmat(k, 946) + mat(k, 955) = mat(k, 955) + lmat(k, 955) + mat(k, 960) = mat(k, 960) + lmat(k, 960) + mat(k, 970) = mat(k, 970) + lmat(k, 970) + mat(k, 980) = mat(k, 980) + lmat(k, 980) + mat(k, 992) = mat(k, 992) + lmat(k, 992) + mat(k, 993) = lmat(k, 993) mat(k, 995) = lmat(k, 995) - mat(k,1006) = mat(k,1006) + lmat(k,1006) - mat(k,1026) = mat(k,1026) + lmat(k,1026) - mat(k,1027) = mat(k,1027) + lmat(k,1027) - mat(k,1029) = mat(k,1029) + lmat(k,1029) - mat(k,1030) = lmat(k,1030) + mat(k,1007) = mat(k,1007) + lmat(k,1007) + mat(k,1027) = lmat(k,1027) + mat(k,1031) = lmat(k,1031) mat(k,1032) = mat(k,1032) + lmat(k,1032) - mat(k,1033) = mat(k,1033) + lmat(k,1033) - mat(k,1034) = mat(k,1034) + lmat(k,1034) - mat(k,1038) = lmat(k,1038) - mat(k,1042) = lmat(k,1042) mat(k,1043) = mat(k,1043) + lmat(k,1043) - mat(k,1062) = mat(k,1062) + lmat(k,1062) - mat(k,1086) = mat(k,1086) + lmat(k,1086) - mat(k,1097) = lmat(k,1097) - mat(k,1098) = mat(k,1098) + lmat(k,1098) + mat(k,1044) = mat(k,1044) + lmat(k,1044) + mat(k,1046) = lmat(k,1046) + mat(k,1048) = mat(k,1048) + lmat(k,1048) + mat(k,1050) = mat(k,1050) + lmat(k,1050) + mat(k,1051) = mat(k,1051) + lmat(k,1051) + mat(k,1052) = mat(k,1052) + lmat(k,1052) + mat(k,1063) = mat(k,1063) + lmat(k,1063) + mat(k,1087) = mat(k,1087) + lmat(k,1087) + mat(k,1098) = lmat(k,1098) mat(k,1099) = mat(k,1099) + lmat(k,1099) - mat(k,1102) = mat(k,1102) + lmat(k,1102) - mat(k,1106) = mat(k,1106) + lmat(k,1106) - mat(k,1116) = mat(k,1116) + lmat(k,1116) - mat(k,1118) = lmat(k,1118) + mat(k,1100) = mat(k,1100) + lmat(k,1100) + mat(k,1103) = mat(k,1103) + lmat(k,1103) + mat(k,1107) = mat(k,1107) + lmat(k,1107) + mat(k,1117) = mat(k,1117) + lmat(k,1117) mat(k,1119) = lmat(k,1119) + mat(k,1120) = lmat(k,1120) mat(k,1123) = lmat(k,1123) - mat(k,1124) = mat(k,1124) + lmat(k,1124) - mat(k,1126) = lmat(k,1126) - mat(k,1128) = lmat(k,1128) - mat(k,1130) = lmat(k,1130) - mat(k,1134) = mat(k,1134) + lmat(k,1134) - mat(k,1139) = lmat(k,1139) - mat(k,1142) = mat(k,1142) + lmat(k,1142) - mat(k,1143) = lmat(k,1143) - mat(k,1150) = mat(k,1150) + lmat(k,1150) - mat(k,1162) = mat(k,1162) + lmat(k,1162) + mat(k,1125) = mat(k,1125) + lmat(k,1125) + mat(k,1127) = lmat(k,1127) + mat(k,1129) = lmat(k,1129) + mat(k,1131) = lmat(k,1131) + mat(k,1135) = mat(k,1135) + lmat(k,1135) + mat(k,1140) = lmat(k,1140) + mat(k,1144) = lmat(k,1144) + mat(k,1145) = mat(k,1145) + lmat(k,1145) + mat(k,1151) = mat(k,1151) + lmat(k,1151) mat(k,1163) = mat(k,1163) + lmat(k,1163) mat(k,1164) = mat(k,1164) + lmat(k,1164) mat(k,1165) = mat(k,1165) + lmat(k,1165) mat(k,1166) = mat(k,1166) + lmat(k,1166) mat(k,1167) = mat(k,1167) + lmat(k,1167) - mat(k,1169) = mat(k,1169) + lmat(k,1169) + mat(k,1168) = mat(k,1168) + lmat(k,1168) mat(k,1171) = mat(k,1171) + lmat(k,1171) - mat(k,1177) = mat(k,1177) + lmat(k,1177) - mat(k,1195) = mat(k,1195) + lmat(k,1195) - mat(k,1196) = lmat(k,1196) + mat(k,1172) = mat(k,1172) + lmat(k,1172) + mat(k,1178) = mat(k,1178) + lmat(k,1178) + mat(k,1196) = mat(k,1196) + lmat(k,1196) + mat(k,1197) = lmat(k,1197) mat(k,1200) = lmat(k,1200) mat(k,1202) = lmat(k,1202) - mat(k,1204) = mat(k,1204) + lmat(k,1204) - mat(k,1209) = lmat(k,1209) - mat(k,1210) = mat(k,1210) + lmat(k,1210) - mat(k,1213) = mat(k,1213) + lmat(k,1213) + mat(k,1205) = mat(k,1205) + lmat(k,1205) + mat(k,1210) = lmat(k,1210) + mat(k,1211) = mat(k,1211) + lmat(k,1211) mat(k,1214) = mat(k,1214) + lmat(k,1214) - mat(k,1222) = mat(k,1222) + lmat(k,1222) - mat(k,1235) = lmat(k,1235) + mat(k,1215) = mat(k,1215) + lmat(k,1215) + mat(k,1223) = mat(k,1223) + lmat(k,1223) mat(k,1236) = lmat(k,1236) mat(k,1237) = lmat(k,1237) mat(k,1238) = lmat(k,1238) - mat(k,1239) = mat(k,1239) + lmat(k,1239) - mat(k,1240) = lmat(k,1240) - mat(k,1242) = lmat(k,1242) - mat(k,1244) = lmat(k,1244) - mat(k,1247) = mat(k,1247) + lmat(k,1247) + mat(k,1239) = lmat(k,1239) + mat(k,1240) = mat(k,1240) + lmat(k,1240) + mat(k,1241) = lmat(k,1241) + mat(k,1243) = lmat(k,1243) + mat(k,1245) = lmat(k,1245) mat(k,1248) = lmat(k,1248) - mat(k,1250) = lmat(k,1250) - mat(k,1252) = mat(k,1252) + lmat(k,1252) - mat(k,1254) = lmat(k,1254) - mat(k,1256) = mat(k,1256) + lmat(k,1256) - mat(k,1257) = lmat(k,1257) - mat(k,1261) = mat(k,1261) + lmat(k,1261) - mat(k,1277) = mat(k,1277) + lmat(k,1277) - mat(k,1297) = mat(k,1297) + lmat(k,1297) - mat(k,1312) = mat(k,1312) + lmat(k,1312) + mat(k,1249) = mat(k,1249) + lmat(k,1249) + mat(k,1251) = lmat(k,1251) + mat(k,1253) = mat(k,1253) + lmat(k,1253) + mat(k,1255) = lmat(k,1255) + mat(k,1257) = mat(k,1257) + lmat(k,1257) + mat(k,1258) = lmat(k,1258) + mat(k,1262) = mat(k,1262) + lmat(k,1262) + mat(k,1278) = mat(k,1278) + lmat(k,1278) + mat(k,1298) = mat(k,1298) + lmat(k,1298) mat(k,1313) = mat(k,1313) + lmat(k,1313) - mat(k,1316) = mat(k,1316) + lmat(k,1316) + mat(k,1314) = mat(k,1314) + lmat(k,1314) mat(k,1317) = mat(k,1317) + lmat(k,1317) - mat(k,1320) = mat(k,1320) + lmat(k,1320) + mat(k,1318) = mat(k,1318) + lmat(k,1318) mat(k,1322) = mat(k,1322) + lmat(k,1322) - mat(k,1324) = mat(k,1324) + lmat(k,1324) + mat(k,1323) = mat(k,1323) + lmat(k,1323) mat(k,1325) = mat(k,1325) + lmat(k,1325) mat(k,1326) = mat(k,1326) + lmat(k,1326) - mat(k,1330) = lmat(k,1330) - mat(k,1343) = mat(k,1343) + lmat(k,1343) - mat(k,1359) = lmat(k,1359) - mat(k,1376) = mat(k,1376) + lmat(k,1376) - mat(k,1386) = mat(k,1386) + lmat(k,1386) - mat(k,1400) = mat(k,1400) + lmat(k,1400) - mat(k,1414) = lmat(k,1414) - mat(k,1416) = mat(k,1416) + lmat(k,1416) - mat(k,1420) = mat(k,1420) + lmat(k,1420) - mat(k,1422) = mat(k,1422) + lmat(k,1422) - mat(k,1432) = lmat(k,1432) - mat(k,1441) = mat(k,1441) + lmat(k,1441) - mat(k,1472) = mat(k,1472) + lmat(k,1472) - mat(k,1493) = mat(k,1493) + lmat(k,1493) + mat(k,1327) = mat(k,1327) + lmat(k,1327) + mat(k,1331) = lmat(k,1331) + mat(k,1344) = mat(k,1344) + lmat(k,1344) + mat(k,1360) = lmat(k,1360) + mat(k,1377) = mat(k,1377) + lmat(k,1377) + mat(k,1389) = mat(k,1389) + lmat(k,1389) + mat(k,1401) = mat(k,1401) + lmat(k,1401) + mat(k,1415) = lmat(k,1415) + mat(k,1417) = mat(k,1417) + lmat(k,1417) + mat(k,1421) = mat(k,1421) + lmat(k,1421) + mat(k,1423) = mat(k,1423) + lmat(k,1423) + mat(k,1431) = lmat(k,1431) + mat(k,1442) = mat(k,1442) + lmat(k,1442) + mat(k,1473) = mat(k,1473) + lmat(k,1473) mat(k,1494) = mat(k,1494) + lmat(k,1494) - mat(k,1502) = lmat(k,1502) - mat(k,1505) = mat(k,1505) + lmat(k,1505) - mat(k,1518) = lmat(k,1518) - mat(k,1520) = mat(k,1520) + lmat(k,1520) - mat(k,1532) = mat(k,1532) + lmat(k,1532) - mat(k,1539) = mat(k,1539) + lmat(k,1539) + mat(k,1495) = mat(k,1495) + lmat(k,1495) + mat(k,1500) = lmat(k,1500) + mat(k,1506) = mat(k,1506) + lmat(k,1506) + mat(k,1519) = lmat(k,1519) + mat(k,1521) = mat(k,1521) + lmat(k,1521) + mat(k,1529) = mat(k,1529) + lmat(k,1529) + mat(k,1540) = mat(k,1540) + lmat(k,1540) + mat(k,1545) = mat(k,1545) + lmat(k,1545) mat(k,1547) = mat(k,1547) + lmat(k,1547) - mat(k,1548) = mat(k,1548) + lmat(k,1548) - mat(k,1555) = mat(k,1555) + lmat(k,1555) - mat(k,1575) = mat(k,1575) + lmat(k,1575) - mat(k,1577) = mat(k,1577) + lmat(k,1577) - mat(k,1578) = lmat(k,1578) - mat(k,1586) = mat(k,1586) + lmat(k,1586) - mat(k,1591) = mat(k,1591) + lmat(k,1591) - mat(k,1597) = mat(k,1597) + lmat(k,1597) - mat(k,1607) = mat(k,1607) + lmat(k,1607) - mat(k,1609) = mat(k,1609) + lmat(k,1609) - mat(k,1621) = mat(k,1621) + lmat(k,1621) + mat(k,1556) = mat(k,1556) + lmat(k,1556) + mat(k,1576) = mat(k,1576) + lmat(k,1576) + mat(k,1578) = mat(k,1578) + lmat(k,1578) + mat(k,1579) = lmat(k,1579) + mat(k,1587) = mat(k,1587) + lmat(k,1587) + mat(k,1593) = mat(k,1593) + lmat(k,1593) + mat(k,1596) = mat(k,1596) + lmat(k,1596) + mat(k,1608) = mat(k,1608) + lmat(k,1608) + mat(k,1610) = mat(k,1610) + lmat(k,1610) + mat(k,1615) = mat(k,1615) + lmat(k,1615) + mat(k,1627) = lmat(k,1627) + mat(k,1628) = lmat(k,1628) + mat(k,1629) = mat(k,1629) + lmat(k,1629) + mat(k,1634) = mat(k,1634) + lmat(k,1634) mat(k,1636) = mat(k,1636) + lmat(k,1636) - mat(k,1643) = mat(k,1643) + lmat(k,1643) - mat(k,1648) = mat(k,1648) + lmat(k,1648) + mat(k,1639) = lmat(k,1639) + mat(k,1641) = mat(k,1641) + lmat(k,1641) + mat(k,1642) = mat(k,1642) + lmat(k,1642) + mat(k,1647) = mat(k,1647) + lmat(k,1647) + mat(k,1649) = mat(k,1649) + lmat(k,1649) + mat(k,1680) = mat(k,1680) + lmat(k,1680) mat(k,1681) = mat(k,1681) + lmat(k,1681) mat(k,1682) = mat(k,1682) + lmat(k,1682) mat(k,1684) = mat(k,1684) + lmat(k,1684) - mat(k,1690) = mat(k,1690) + lmat(k,1690) - mat(k,1693) = mat(k,1693) + lmat(k,1693) - mat(k,1748) = mat(k,1748) + lmat(k,1748) - mat(k,1750) = lmat(k,1750) - mat(k,1756) = mat(k,1756) + lmat(k,1756) - mat(k,1788) = mat(k,1788) + lmat(k,1788) - mat(k,1799) = mat(k,1799) + lmat(k,1799) - mat(k,1832) = mat(k,1832) + lmat(k,1832) - mat(k,1842) = mat(k,1842) + lmat(k,1842) - mat(k,2006) = mat(k,2006) + lmat(k,2006) - mat(k,2060) = mat(k,2060) + lmat(k,2060) - mat(k,2063) = mat(k,2063) + lmat(k,2063) - mat(k,2064) = mat(k,2064) + lmat(k,2064) - mat(k,2067) = mat(k,2067) + lmat(k,2067) - mat(k,2072) = mat(k,2072) + lmat(k,2072) - mat(k,2075) = mat(k,2075) + lmat(k,2075) - mat(k,2080) = lmat(k,2080) - mat(k,2081) = lmat(k,2081) - mat(k,2082) = mat(k,2082) + lmat(k,2082) - mat(k,2091) = mat(k,2091) + lmat(k,2091) - mat(k,2093) = mat(k,2093) + lmat(k,2093) - mat(k,2096) = mat(k,2096) + lmat(k,2096) - mat(k,2098) = mat(k,2098) + lmat(k,2098) - mat(k,2100) = lmat(k,2100) - mat(k,2101) = mat(k,2101) + lmat(k,2101) - mat(k,2102) = mat(k,2102) + lmat(k,2102) - mat(k,2214) = mat(k,2214) + lmat(k,2214) - mat(k,2222) = mat(k,2222) + lmat(k,2222) + mat(k,1689) = mat(k,1689) + lmat(k,1689) + mat(k,1854) = mat(k,1854) + lmat(k,1854) + mat(k,1921) = mat(k,1921) + lmat(k,1921) + mat(k,1923) = lmat(k,1923) + mat(k,1929) = mat(k,1929) + lmat(k,1929) + mat(k,1962) = mat(k,1962) + lmat(k,1962) + mat(k,1964) = mat(k,1964) + lmat(k,1964) + mat(k,2009) = mat(k,2009) + lmat(k,2009) + mat(k,2031) = mat(k,2031) + lmat(k,2031) + mat(k,2036) = lmat(k,2036) + mat(k,2053) = mat(k,2053) + lmat(k,2053) + mat(k,2069) = mat(k,2069) + lmat(k,2069) + mat(k,2110) = mat(k,2110) + lmat(k,2110) + mat(k,2117) = mat(k,2117) + lmat(k,2117) + mat(k,2118) = mat(k,2118) + lmat(k,2118) + mat(k,2121) = mat(k,2121) + lmat(k,2121) + mat(k,2140) = mat(k,2140) + lmat(k,2140) + mat(k,2193) = mat(k,2193) + lmat(k,2193) + mat(k,2233) = mat(k,2233) + lmat(k,2233) + mat(k,2237) = mat(k,2237) + lmat(k,2237) + mat(k,2252) = lmat(k,2252) + mat(k,2253) = mat(k,2253) + lmat(k,2253) mat(k,2261) = mat(k,2261) + lmat(k,2261) - mat(k,2283) = mat(k,2283) + lmat(k,2283) - mat(k,2298) = lmat(k,2298) - mat(k,2301) = mat(k,2301) + lmat(k,2301) - mat(k,2307) = mat(k,2307) + lmat(k,2307) - mat(k,2360) = mat(k,2360) + lmat(k,2360) - mat(k,2370) = mat(k,2370) + lmat(k,2370) - mat(k,2411) = mat(k,2411) + lmat(k,2411) - mat(k,2416) = mat(k,2416) + lmat(k,2416) - mat(k,2425) = mat(k,2425) + lmat(k,2425) - mat(k,2426) = mat(k,2426) + lmat(k,2426) - mat(k,2439) = mat(k,2439) + lmat(k,2439) - mat(k,2444) = lmat(k,2444) - mat(k,2469) = mat(k,2469) + lmat(k,2469) - mat(k,2475) = mat(k,2475) + lmat(k,2475) - mat(k,2477) = lmat(k,2477) - mat(k,2491) = mat(k,2491) + lmat(k,2491) - mat(k,2496) = mat(k,2496) + lmat(k,2496) - mat(k,2503) = lmat(k,2503) - mat(k,2512) = mat(k,2512) + lmat(k,2512) + mat(k,2382) = mat(k,2382) + lmat(k,2382) + mat(k,2386) = mat(k,2386) + lmat(k,2386) + mat(k,2429) = mat(k,2429) + lmat(k,2429) + mat(k,2432) = mat(k,2432) + lmat(k,2432) + mat(k,2434) = mat(k,2434) + lmat(k,2434) + mat(k,2436) = mat(k,2436) + lmat(k,2436) + mat(k,2441) = mat(k,2441) + lmat(k,2441) + mat(k,2443) = mat(k,2443) + lmat(k,2443) + mat(k,2450) = mat(k,2450) + lmat(k,2450) + mat(k,2452) = lmat(k,2452) + mat(k,2464) = mat(k,2464) + lmat(k,2464) + mat(k,2470) = mat(k,2470) + lmat(k,2470) + mat(k,2488) = mat(k,2488) + lmat(k,2488) + mat(k,2489) = mat(k,2489) + lmat(k,2489) + mat(k,2498) = mat(k,2498) + lmat(k,2498) + mat(k,2505) = lmat(k,2505) mat(k,2513) = mat(k,2513) + lmat(k,2513) + mat(k,2516) = lmat(k,2516) mat(k,2518) = lmat(k,2518) - mat(k,2522) = lmat(k,2522) - mat(k,2524) = mat(k,2524) + lmat(k,2524) - mat(k, 258) = 0._r8 - mat(k, 259) = 0._r8 - mat(k, 298) = 0._r8 - mat(k, 357) = 0._r8 - mat(k, 375) = 0._r8 - mat(k, 482) = 0._r8 - mat(k, 485) = 0._r8 - mat(k, 504) = 0._r8 - mat(k, 542) = 0._r8 - mat(k, 546) = 0._r8 - mat(k, 561) = 0._r8 - mat(k, 664) = 0._r8 - mat(k, 666) = 0._r8 - mat(k, 695) = 0._r8 - mat(k, 697) = 0._r8 + mat(k,2520) = mat(k,2520) + lmat(k,2520) + mat(k,2526) = mat(k,2526) + lmat(k,2526) + mat(k, 260) = 0._r8 + mat(k, 261) = 0._r8 + mat(k, 300) = 0._r8 + mat(k, 356) = 0._r8 + mat(k, 372) = 0._r8 + mat(k, 478) = 0._r8 + mat(k, 480) = 0._r8 + mat(k, 505) = 0._r8 + mat(k, 533) = 0._r8 + mat(k, 536) = 0._r8 + mat(k, 562) = 0._r8 + mat(k, 654) = 0._r8 + mat(k, 656) = 0._r8 mat(k, 700) = 0._r8 - mat(k, 701) = 0._r8 - mat(k, 704) = 0._r8 - mat(k, 711) = 0._r8 + mat(k, 702) = 0._r8 mat(k, 712) = 0._r8 - mat(k, 716) = 0._r8 - mat(k, 746) = 0._r8 - mat(k, 747) = 0._r8 + mat(k, 713) = 0._r8 + mat(k, 717) = 0._r8 + mat(k, 733) = 0._r8 + mat(k, 734) = 0._r8 + mat(k, 737) = 0._r8 mat(k, 767) = 0._r8 mat(k, 769) = 0._r8 mat(k, 770) = 0._r8 mat(k, 772) = 0._r8 mat(k, 774) = 0._r8 - mat(k, 794) = 0._r8 - mat(k, 796) = 0._r8 - mat(k, 797) = 0._r8 - mat(k, 799) = 0._r8 - mat(k, 803) = 0._r8 - mat(k, 810) = 0._r8 - mat(k, 812) = 0._r8 + mat(k, 787) = 0._r8 + mat(k, 789) = 0._r8 + mat(k, 790) = 0._r8 + mat(k, 792) = 0._r8 + mat(k, 795) = 0._r8 + mat(k, 811) = 0._r8 mat(k, 813) = 0._r8 - mat(k, 815) = 0._r8 - mat(k, 817) = 0._r8 + mat(k, 814) = 0._r8 + mat(k, 816) = 0._r8 + mat(k, 818) = 0._r8 mat(k, 820) = 0._r8 - mat(k, 833) = 0._r8 - mat(k, 834) = 0._r8 mat(k, 837) = 0._r8 + mat(k, 843) = 0._r8 + mat(k, 844) = 0._r8 mat(k, 846) = 0._r8 + mat(k, 861) = 0._r8 mat(k, 864) = 0._r8 mat(k, 868) = 0._r8 - mat(k, 871) = 0._r8 - mat(k, 892) = 0._r8 mat(k, 893) = 0._r8 mat(k, 894) = 0._r8 - mat(k, 906) = 0._r8 - mat(k, 911) = 0._r8 + mat(k, 896) = 0._r8 + mat(k, 907) = 0._r8 mat(k, 912) = 0._r8 mat(k, 913) = 0._r8 mat(k, 914) = 0._r8 - mat(k, 955) = 0._r8 + mat(k, 915) = 0._r8 + mat(k, 950) = 0._r8 mat(k, 985) = 0._r8 - mat(k, 989) = 0._r8 - mat(k, 996) = 0._r8 - mat(k,1007) = 0._r8 + mat(k, 990) = 0._r8 + mat(k, 997) = 0._r8 mat(k,1008) = 0._r8 - mat(k,1016) = 0._r8 - mat(k,1024) = 0._r8 - mat(k,1036) = 0._r8 - mat(k,1039) = 0._r8 - mat(k,1044) = 0._r8 - mat(k,1045) = 0._r8 - mat(k,1049) = 0._r8 - mat(k,1063) = 0._r8 + mat(k,1009) = 0._r8 + mat(k,1017) = 0._r8 + mat(k,1025) = 0._r8 + mat(k,1028) = 0._r8 + mat(k,1033) = 0._r8 + mat(k,1034) = 0._r8 + mat(k,1041) = 0._r8 + mat(k,1053) = 0._r8 mat(k,1064) = 0._r8 - mat(k,1072) = 0._r8 - mat(k,1080) = 0._r8 - mat(k,1084) = 0._r8 + mat(k,1065) = 0._r8 + mat(k,1073) = 0._r8 + mat(k,1081) = 0._r8 mat(k,1085) = 0._r8 - mat(k,1089) = 0._r8 + mat(k,1086) = 0._r8 mat(k,1090) = 0._r8 + mat(k,1091) = 0._r8 mat(k,1093) = 0._r8 mat(k,1095) = 0._r8 mat(k,1111) = 0._r8 - mat(k,1113) = 0._r8 - mat(k,1132) = 0._r8 - mat(k,1135) = 0._r8 + mat(k,1114) = 0._r8 + mat(k,1133) = 0._r8 mat(k,1136) = 0._r8 mat(k,1137) = 0._r8 mat(k,1138) = 0._r8 - mat(k,1140) = 0._r8 - mat(k,1144) = 0._r8 - mat(k,1145) = 0._r8 - mat(k,1151) = 0._r8 + mat(k,1139) = 0._r8 + mat(k,1142) = 0._r8 + mat(k,1143) = 0._r8 + mat(k,1146) = 0._r8 mat(k,1152) = 0._r8 mat(k,1153) = 0._r8 + mat(k,1154) = 0._r8 mat(k,1156) = 0._r8 mat(k,1159) = 0._r8 mat(k,1170) = 0._r8 - mat(k,1172) = 0._r8 - mat(k,1180) = 0._r8 + mat(k,1173) = 0._r8 mat(k,1181) = 0._r8 mat(k,1182) = 0._r8 - mat(k,1184) = 0._r8 + mat(k,1183) = 0._r8 mat(k,1185) = 0._r8 - mat(k,1186) = 0._r8 - mat(k,1194) = 0._r8 - mat(k,1223) = 0._r8 + mat(k,1187) = 0._r8 + mat(k,1189) = 0._r8 + mat(k,1195) = 0._r8 mat(k,1224) = 0._r8 + mat(k,1225) = 0._r8 mat(k,1228) = 0._r8 - mat(k,1230) = 0._r8 - mat(k,1233) = 0._r8 - mat(k,1241) = 0._r8 - mat(k,1243) = 0._r8 - mat(k,1246) = 0._r8 - mat(k,1249) = 0._r8 - mat(k,1251) = 0._r8 - mat(k,1270) = 0._r8 + mat(k,1231) = 0._r8 + mat(k,1234) = 0._r8 + mat(k,1242) = 0._r8 + mat(k,1244) = 0._r8 + mat(k,1247) = 0._r8 + mat(k,1250) = 0._r8 + mat(k,1252) = 0._r8 + mat(k,1271) = 0._r8 mat(k,1283) = 0._r8 - mat(k,1290) = 0._r8 - mat(k,1292) = 0._r8 - mat(k,1294) = 0._r8 + mat(k,1291) = 0._r8 + mat(k,1293) = 0._r8 mat(k,1295) = 0._r8 mat(k,1296) = 0._r8 - mat(k,1298) = 0._r8 + mat(k,1297) = 0._r8 mat(k,1299) = 0._r8 mat(k,1300) = 0._r8 - mat(k,1302) = 0._r8 + mat(k,1301) = 0._r8 + mat(k,1303) = 0._r8 mat(k,1305) = 0._r8 mat(k,1308) = 0._r8 - mat(k,1318) = 0._r8 - mat(k,1327) = 0._r8 - mat(k,1336) = 0._r8 + mat(k,1319) = 0._r8 + mat(k,1328) = 0._r8 mat(k,1337) = 0._r8 mat(k,1338) = 0._r8 mat(k,1339) = 0._r8 mat(k,1340) = 0._r8 - mat(k,1342) = 0._r8 - mat(k,1344) = 0._r8 - mat(k,1346) = 0._r8 + mat(k,1341) = 0._r8 + mat(k,1343) = 0._r8 + mat(k,1345) = 0._r8 + mat(k,1347) = 0._r8 mat(k,1351) = 0._r8 - mat(k,1354) = 0._r8 - mat(k,1356) = 0._r8 - mat(k,1358) = 0._r8 - mat(k,1362) = 0._r8 - mat(k,1365) = 0._r8 + mat(k,1353) = 0._r8 + mat(k,1355) = 0._r8 + mat(k,1359) = 0._r8 + mat(k,1363) = 0._r8 mat(k,1366) = 0._r8 - mat(k,1368) = 0._r8 - mat(k,1370) = 0._r8 - mat(k,1372) = 0._r8 + mat(k,1367) = 0._r8 + mat(k,1369) = 0._r8 + mat(k,1371) = 0._r8 mat(k,1373) = 0._r8 mat(k,1374) = 0._r8 - mat(k,1377) = 0._r8 + mat(k,1375) = 0._r8 mat(k,1378) = 0._r8 mat(k,1379) = 0._r8 - mat(k,1381) = 0._r8 + mat(k,1380) = 0._r8 + mat(k,1382) = 0._r8 mat(k,1384) = 0._r8 - mat(k,1387) = 0._r8 - mat(k,1389) = 0._r8 - mat(k,1391) = 0._r8 - mat(k,1398) = 0._r8 - mat(k,1401) = 0._r8 - mat(k,1403) = 0._r8 + mat(k,1386) = 0._r8 + mat(k,1388) = 0._r8 + mat(k,1392) = 0._r8 + mat(k,1399) = 0._r8 + mat(k,1402) = 0._r8 + mat(k,1404) = 0._r8 mat(k,1406) = 0._r8 mat(k,1409) = 0._r8 - mat(k,1412) = 0._r8 - mat(k,1417) = 0._r8 - mat(k,1421) = 0._r8 - mat(k,1424) = 0._r8 + mat(k,1413) = 0._r8 + mat(k,1418) = 0._r8 + mat(k,1422) = 0._r8 mat(k,1425) = 0._r8 mat(k,1426) = 0._r8 - mat(k,1428) = 0._r8 + mat(k,1427) = 0._r8 mat(k,1429) = 0._r8 - mat(k,1431) = 0._r8 - mat(k,1435) = 0._r8 - mat(k,1439) = 0._r8 + mat(k,1432) = 0._r8 + mat(k,1434) = 0._r8 + mat(k,1436) = 0._r8 mat(k,1440) = 0._r8 - mat(k,1449) = 0._r8 - mat(k,1453) = 0._r8 - mat(k,1474) = 0._r8 - mat(k,1478) = 0._r8 - mat(k,1479) = 0._r8 - mat(k,1481) = 0._r8 - mat(k,1485) = 0._r8 - mat(k,1489) = 0._r8 - mat(k,1491) = 0._r8 + mat(k,1441) = 0._r8 + mat(k,1450) = 0._r8 + mat(k,1454) = 0._r8 + mat(k,1475) = 0._r8 + mat(k,1476) = 0._r8 + mat(k,1482) = 0._r8 + mat(k,1484) = 0._r8 + mat(k,1486) = 0._r8 + mat(k,1490) = 0._r8 mat(k,1492) = 0._r8 - mat(k,1495) = 0._r8 + mat(k,1493) = 0._r8 mat(k,1496) = 0._r8 mat(k,1497) = 0._r8 mat(k,1498) = 0._r8 mat(k,1499) = 0._r8 - mat(k,1500) = 0._r8 mat(k,1501) = 0._r8 - mat(k,1509) = 0._r8 - mat(k,1510) = 0._r8 + mat(k,1502) = 0._r8 + mat(k,1503) = 0._r8 + mat(k,1508) = 0._r8 mat(k,1513) = 0._r8 - mat(k,1514) = 0._r8 - mat(k,1528) = 0._r8 - mat(k,1533) = 0._r8 - mat(k,1540) = 0._r8 + mat(k,1515) = 0._r8 + mat(k,1516) = 0._r8 + mat(k,1532) = 0._r8 + mat(k,1534) = 0._r8 mat(k,1541) = 0._r8 + mat(k,1542) = 0._r8 mat(k,1543) = 0._r8 - mat(k,1546) = 0._r8 - mat(k,1554) = 0._r8 - mat(k,1558) = 0._r8 + mat(k,1550) = 0._r8 + mat(k,1555) = 0._r8 mat(k,1559) = 0._r8 mat(k,1560) = 0._r8 mat(k,1561) = 0._r8 - mat(k,1563) = 0._r8 + mat(k,1562) = 0._r8 + mat(k,1564) = 0._r8 mat(k,1565) = 0._r8 - mat(k,1567) = 0._r8 - mat(k,1581) = 0._r8 - mat(k,1583) = 0._r8 - mat(k,1585) = 0._r8 - mat(k,1587) = 0._r8 + mat(k,1568) = 0._r8 + mat(k,1582) = 0._r8 + mat(k,1584) = 0._r8 + mat(k,1586) = 0._r8 mat(k,1588) = 0._r8 mat(k,1589) = 0._r8 + mat(k,1590) = 0._r8 mat(k,1592) = 0._r8 - mat(k,1594) = 0._r8 mat(k,1598) = 0._r8 mat(k,1599) = 0._r8 - mat(k,1606) = 0._r8 - mat(k,1613) = 0._r8 - mat(k,1615) = 0._r8 + mat(k,1600) = 0._r8 + mat(k,1607) = 0._r8 + mat(k,1616) = 0._r8 + mat(k,1617) = 0._r8 mat(k,1618) = 0._r8 mat(k,1619) = 0._r8 - mat(k,1620) = 0._r8 + mat(k,1621) = 0._r8 mat(k,1622) = 0._r8 - mat(k,1623) = 0._r8 - mat(k,1639) = 0._r8 - mat(k,1641) = 0._r8 + mat(k,1624) = 0._r8 + mat(k,1631) = 0._r8 + mat(k,1632) = 0._r8 + mat(k,1633) = 0._r8 + mat(k,1635) = 0._r8 + mat(k,1637) = 0._r8 + mat(k,1640) = 0._r8 mat(k,1644) = 0._r8 - mat(k,1645) = 0._r8 - mat(k,1647) = 0._r8 - mat(k,1650) = 0._r8 - mat(k,1660) = 0._r8 - mat(k,1663) = 0._r8 + mat(k,1646) = 0._r8 + mat(k,1648) = 0._r8 + mat(k,1659) = 0._r8 + mat(k,1662) = 0._r8 + mat(k,1667) = 0._r8 mat(k,1668) = 0._r8 mat(k,1669) = 0._r8 mat(k,1670) = 0._r8 - mat(k,1671) = 0._r8 - mat(k,1674) = 0._r8 + mat(k,1673) = 0._r8 + mat(k,1675) = 0._r8 mat(k,1676) = 0._r8 - mat(k,1677) = 0._r8 + mat(k,1679) = 0._r8 mat(k,1683) = 0._r8 mat(k,1686) = 0._r8 + mat(k,1687) = 0._r8 mat(k,1688) = 0._r8 - mat(k,1689) = 0._r8 - mat(k,1691) = 0._r8 + mat(k,1692) = 0._r8 mat(k,1694) = 0._r8 - mat(k,1695) = 0._r8 - mat(k,1751) = 0._r8 - mat(k,1789) = 0._r8 - mat(k,1792) = 0._r8 - mat(k,1795) = 0._r8 - mat(k,1796) = 0._r8 + mat(k,1767) = 0._r8 + mat(k,1785) = 0._r8 + mat(k,1797) = 0._r8 mat(k,1801) = 0._r8 - mat(k,1830) = 0._r8 - mat(k,1834) = 0._r8 - mat(k,1839) = 0._r8 - mat(k,1917) = 0._r8 - mat(k,1937) = 0._r8 - mat(k,1948) = 0._r8 - mat(k,1951) = 0._r8 - mat(k,1961) = 0._r8 - mat(k,1962) = 0._r8 - mat(k,1986) = 0._r8 - mat(k,2005) = 0._r8 - mat(k,2024) = 0._r8 - mat(k,2027) = 0._r8 - mat(k,2031) = 0._r8 - mat(k,2033) = 0._r8 - mat(k,2038) = 0._r8 - mat(k,2044) = 0._r8 - mat(k,2046) = 0._r8 + mat(k,1811) = 0._r8 + mat(k,1812) = 0._r8 + mat(k,1836) = 0._r8 + mat(k,1861) = 0._r8 + mat(k,1924) = 0._r8 + mat(k,1959) = 0._r8 + mat(k,1966) = 0._r8 + mat(k,1968) = 0._r8 + mat(k,1969) = 0._r8 + mat(k,1974) = 0._r8 + mat(k,1985) = 0._r8 + mat(k,1988) = 0._r8 + mat(k,1991) = 0._r8 + mat(k,1992) = 0._r8 + mat(k,1993) = 0._r8 + mat(k,1995) = 0._r8 + mat(k,1996) = 0._r8 + mat(k,1997) = 0._r8 + mat(k,1998) = 0._r8 + mat(k,1999) = 0._r8 + mat(k,2004) = 0._r8 + mat(k,2006) = 0._r8 + mat(k,2008) = 0._r8 + mat(k,2010) = 0._r8 + mat(k,2014) = 0._r8 + mat(k,2015) = 0._r8 + mat(k,2020) = 0._r8 + mat(k,2029) = 0._r8 + mat(k,2035) = 0._r8 + mat(k,2037) = 0._r8 + mat(k,2041) = 0._r8 + mat(k,2048) = 0._r8 + mat(k,2056) = 0._r8 mat(k,2057) = 0._r8 mat(k,2058) = 0._r8 - mat(k,2059) = 0._r8 - mat(k,2061) = 0._r8 - mat(k,2062) = 0._r8 - mat(k,2065) = 0._r8 - mat(k,2068) = 0._r8 - mat(k,2070) = 0._r8 - mat(k,2071) = 0._r8 - mat(k,2073) = 0._r8 - mat(k,2074) = 0._r8 - mat(k,2077) = 0._r8 + mat(k,2063) = 0._r8 + mat(k,2078) = 0._r8 mat(k,2084) = 0._r8 mat(k,2085) = 0._r8 mat(k,2086) = 0._r8 - mat(k,2087) = 0._r8 - mat(k,2088) = 0._r8 mat(k,2089) = 0._r8 - mat(k,2092) = 0._r8 - mat(k,2097) = 0._r8 - mat(k,2099) = 0._r8 - mat(k,2144) = 0._r8 + mat(k,2094) = 0._r8 + mat(k,2095) = 0._r8 + mat(k,2096) = 0._r8 + mat(k,2098) = 0._r8 + mat(k,2101) = 0._r8 + mat(k,2102) = 0._r8 + mat(k,2103) = 0._r8 + mat(k,2105) = 0._r8 + mat(k,2122) = 0._r8 + mat(k,2127) = 0._r8 + mat(k,2129) = 0._r8 + mat(k,2130) = 0._r8 + mat(k,2132) = 0._r8 + mat(k,2133) = 0._r8 + mat(k,2134) = 0._r8 + mat(k,2136) = 0._r8 + mat(k,2137) = 0._r8 + mat(k,2141) = 0._r8 + mat(k,2142) = 0._r8 + mat(k,2143) = 0._r8 mat(k,2145) = 0._r8 - mat(k,2148) = 0._r8 + mat(k,2146) = 0._r8 + mat(k,2147) = 0._r8 mat(k,2156) = 0._r8 - mat(k,2173) = 0._r8 - mat(k,2181) = 0._r8 - mat(k,2182) = 0._r8 mat(k,2184) = 0._r8 + mat(k,2185) = 0._r8 mat(k,2187) = 0._r8 - mat(k,2189) = 0._r8 - mat(k,2193) = 0._r8 - mat(k,2198) = 0._r8 - mat(k,2210) = 0._r8 - mat(k,2213) = 0._r8 - mat(k,2217) = 0._r8 - mat(k,2233) = 0._r8 - mat(k,2235) = 0._r8 - mat(k,2239) = 0._r8 + mat(k,2190) = 0._r8 + mat(k,2191) = 0._r8 + mat(k,2192) = 0._r8 + mat(k,2194) = 0._r8 + mat(k,2195) = 0._r8 + mat(k,2197) = 0._r8 + mat(k,2200) = 0._r8 + mat(k,2229) = 0._r8 + mat(k,2238) = 0._r8 mat(k,2240) = 0._r8 - mat(k,2241) = 0._r8 - mat(k,2243) = 0._r8 - mat(k,2244) = 0._r8 - mat(k,2245) = 0._r8 mat(k,2246) = 0._r8 mat(k,2247) = 0._r8 - mat(k,2252) = 0._r8 + mat(k,2248) = 0._r8 + mat(k,2249) = 0._r8 + mat(k,2250) = 0._r8 + mat(k,2251) = 0._r8 mat(k,2254) = 0._r8 mat(k,2255) = 0._r8 mat(k,2256) = 0._r8 - mat(k,2263) = 0._r8 - mat(k,2266) = 0._r8 - mat(k,2268) = 0._r8 - mat(k,2270) = 0._r8 - mat(k,2271) = 0._r8 - mat(k,2273) = 0._r8 - mat(k,2274) = 0._r8 - mat(k,2275) = 0._r8 - mat(k,2276) = 0._r8 - mat(k,2277) = 0._r8 - mat(k,2279) = 0._r8 - mat(k,2280) = 0._r8 - mat(k,2282) = 0._r8 - mat(k,2284) = 0._r8 - mat(k,2285) = 0._r8 - mat(k,2288) = 0._r8 - mat(k,2292) = 0._r8 - mat(k,2293) = 0._r8 - mat(k,2294) = 0._r8 - mat(k,2295) = 0._r8 - mat(k,2296) = 0._r8 - mat(k,2297) = 0._r8 - mat(k,2299) = 0._r8 - mat(k,2300) = 0._r8 - mat(k,2303) = 0._r8 - mat(k,2304) = 0._r8 - mat(k,2305) = 0._r8 - mat(k,2306) = 0._r8 + mat(k,2257) = 0._r8 + mat(k,2258) = 0._r8 + mat(k,2259) = 0._r8 + mat(k,2260) = 0._r8 + mat(k,2262) = 0._r8 + mat(k,2264) = 0._r8 + mat(k,2265) = 0._r8 mat(k,2308) = 0._r8 mat(k,2309) = 0._r8 - mat(k,2310) = 0._r8 - mat(k,2311) = 0._r8 - mat(k,2320) = 0._r8 + mat(k,2312) = 0._r8 + mat(k,2319) = 0._r8 + mat(k,2337) = 0._r8 + mat(k,2345) = 0._r8 + mat(k,2346) = 0._r8 mat(k,2348) = 0._r8 - mat(k,2352) = 0._r8 + mat(k,2351) = 0._r8 mat(k,2353) = 0._r8 - mat(k,2354) = 0._r8 - mat(k,2355) = 0._r8 - mat(k,2358) = 0._r8 - mat(k,2359) = 0._r8 - mat(k,2361) = 0._r8 + mat(k,2357) = 0._r8 mat(k,2362) = 0._r8 - mat(k,2364) = 0._r8 - mat(k,2379) = 0._r8 - mat(k,2385) = 0._r8 - mat(k,2386) = 0._r8 - mat(k,2387) = 0._r8 - mat(k,2390) = 0._r8 - mat(k,2395) = 0._r8 + mat(k,2371) = 0._r8 + mat(k,2380) = 0._r8 + mat(k,2381) = 0._r8 + mat(k,2393) = 0._r8 mat(k,2396) = 0._r8 - mat(k,2397) = 0._r8 - mat(k,2399) = 0._r8 + mat(k,2400) = 0._r8 mat(k,2402) = 0._r8 - mat(k,2403) = 0._r8 - mat(k,2404) = 0._r8 - mat(k,2406) = 0._r8 - mat(k,2423) = 0._r8 + mat(k,2407) = 0._r8 + mat(k,2413) = 0._r8 + mat(k,2415) = 0._r8 + mat(k,2426) = 0._r8 + mat(k,2427) = 0._r8 mat(k,2428) = 0._r8 + mat(k,2430) = 0._r8 + mat(k,2431) = 0._r8 + mat(k,2435) = 0._r8 mat(k,2437) = 0._r8 - mat(k,2443) = 0._r8 + mat(k,2438) = 0._r8 + mat(k,2439) = 0._r8 + mat(k,2440) = 0._r8 mat(k,2445) = 0._r8 + mat(k,2446) = 0._r8 mat(k,2449) = 0._r8 - mat(k,2459) = 0._r8 - mat(k,2462) = 0._r8 + mat(k,2451) = 0._r8 + mat(k,2455) = 0._r8 + mat(k,2456) = 0._r8 + mat(k,2457) = 0._r8 + mat(k,2458) = 0._r8 + mat(k,2460) = 0._r8 + mat(k,2463) = 0._r8 + mat(k,2465) = 0._r8 mat(k,2466) = 0._r8 - mat(k,2467) = 0._r8 mat(k,2471) = 0._r8 - mat(k,2474) = 0._r8 - mat(k,2476) = 0._r8 - mat(k,2480) = 0._r8 - mat(k,2481) = 0._r8 - mat(k,2482) = 0._r8 - mat(k,2483) = 0._r8 - mat(k,2484) = 0._r8 - mat(k,2485) = 0._r8 - mat(k,2488) = 0._r8 + mat(k,2490) = 0._r8 + mat(k,2491) = 0._r8 mat(k,2493) = 0._r8 mat(k,2494) = 0._r8 - mat(k,2502) = 0._r8 + mat(k,2496) = 0._r8 + mat(k,2499) = 0._r8 mat(k,2504) = 0._r8 - mat(k,2505) = 0._r8 mat(k,2506) = 0._r8 mat(k,2507) = 0._r8 mat(k,2508) = 0._r8 mat(k,2509) = 0._r8 mat(k,2510) = 0._r8 mat(k,2511) = 0._r8 + mat(k,2512) = 0._r8 mat(k,2514) = 0._r8 mat(k,2515) = 0._r8 - mat(k,2516) = 0._r8 mat(k,2517) = 0._r8 mat(k,2519) = 0._r8 - mat(k,2520) = 0._r8 mat(k,2521) = 0._r8 + mat(k,2522) = 0._r8 mat(k,2523) = 0._r8 + mat(k,2524) = 0._r8 + mat(k,2525) = 0._r8 mat(k, 1) = mat(k, 1) - dti(k) mat(k, 2) = mat(k, 2) - dti(k) mat(k, 3) = mat(k, 3) - dti(k) @@ -3851,7 +3873,13 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 63) = mat(k, 63) - dti(k) mat(k, 64) = mat(k, 64) - dti(k) mat(k, 65) = mat(k, 65) - dti(k) + mat(k, 66) = mat(k, 66) - dti(k) + mat(k, 67) = mat(k, 67) - dti(k) + mat(k, 68) = mat(k, 68) - dti(k) + mat(k, 69) = mat(k, 69) - dti(k) + mat(k, 70) = mat(k, 70) - dti(k) mat(k, 71) = mat(k, 71) - dti(k) + mat(k, 72) = mat(k, 72) - dti(k) mat(k, 73) = mat(k, 73) - dti(k) mat(k, 74) = mat(k, 74) - dti(k) mat(k, 75) = mat(k, 75) - dti(k) @@ -3861,205 +3889,201 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 84) = mat(k, 84) - dti(k) mat(k, 90) = mat(k, 90) - dti(k) mat(k, 96) = mat(k, 96) - dti(k) - mat(k, 97) = mat(k, 97) - dti(k) - mat(k, 98) = mat(k, 98) - dti(k) - mat(k, 99) = mat(k, 99) - dti(k) - mat(k, 100) = mat(k, 100) - dti(k) - mat(k, 101) = mat(k, 101) - dti(k) - mat(k, 107) = mat(k, 107) - dti(k) - mat(k, 113) = mat(k, 113) - dti(k) - mat(k, 115) = mat(k, 115) - dti(k) + mat(k, 102) = mat(k, 102) - dti(k) + mat(k, 108) = mat(k, 108) - dti(k) + mat(k, 114) = mat(k, 114) - dti(k) mat(k, 116) = mat(k, 116) - dti(k) mat(k, 122) = mat(k, 122) - dti(k) - mat(k, 128) = mat(k, 128) - dti(k) - mat(k, 134) = mat(k, 134) - dti(k) - mat(k, 140) = mat(k, 140) - dti(k) - mat(k, 141) = mat(k, 141) - dti(k) - mat(k, 144) = mat(k, 144) - dti(k) - mat(k, 147) = mat(k, 147) - dti(k) - mat(k, 150) = mat(k, 150) - dti(k) - mat(k, 153) = mat(k, 153) - dti(k) - mat(k, 157) = mat(k, 157) - dti(k) - mat(k, 161) = mat(k, 161) - dti(k) - mat(k, 165) = mat(k, 165) - dti(k) - mat(k, 169) = mat(k, 169) - dti(k) - mat(k, 173) = mat(k, 173) - dti(k) - mat(k, 176) = mat(k, 176) - dti(k) - mat(k, 179) = mat(k, 179) - dti(k) - mat(k, 182) = mat(k, 182) - dti(k) - mat(k, 185) = mat(k, 185) - dti(k) - mat(k, 190) = mat(k, 190) - dti(k) - mat(k, 195) = mat(k, 195) - dti(k) - mat(k, 200) = mat(k, 200) - dti(k) - mat(k, 205) = mat(k, 205) - dti(k) - mat(k, 208) = mat(k, 208) - dti(k) - mat(k, 214) = mat(k, 214) - dti(k) - mat(k, 218) = mat(k, 218) - dti(k) - mat(k, 223) = mat(k, 223) - dti(k) - mat(k, 226) = mat(k, 226) - dti(k) - mat(k, 229) = mat(k, 229) - dti(k) - mat(k, 236) = mat(k, 236) - dti(k) - mat(k, 241) = mat(k, 241) - dti(k) - mat(k, 245) = mat(k, 245) - dti(k) - mat(k, 248) = mat(k, 248) - dti(k) - mat(k, 254) = mat(k, 254) - dti(k) - mat(k, 262) = mat(k, 262) - dti(k) - mat(k, 267) = mat(k, 267) - dti(k) - mat(k, 270) = mat(k, 270) - dti(k) - mat(k, 273) = mat(k, 273) - dti(k) - mat(k, 276) = mat(k, 276) - dti(k) - mat(k, 279) = mat(k, 279) - dti(k) - mat(k, 282) = mat(k, 282) - dti(k) - mat(k, 287) = mat(k, 287) - dti(k) - mat(k, 292) = mat(k, 292) - dti(k) - mat(k, 297) = mat(k, 297) - dti(k) - mat(k, 302) = mat(k, 302) - dti(k) - mat(k, 307) = mat(k, 307) - dti(k) - mat(k, 311) = mat(k, 311) - dti(k) - mat(k, 315) = mat(k, 315) - dti(k) - mat(k, 319) = mat(k, 319) - dti(k) - mat(k, 325) = mat(k, 325) - dti(k) - mat(k, 331) = mat(k, 331) - dti(k) - mat(k, 334) = mat(k, 334) - dti(k) - mat(k, 340) = mat(k, 340) - dti(k) - mat(k, 346) = mat(k, 346) - dti(k) - mat(k, 349) = mat(k, 349) - dti(k) - mat(k, 356) = mat(k, 356) - dti(k) - mat(k, 362) = mat(k, 362) - dti(k) - mat(k, 367) = mat(k, 367) - dti(k) - mat(k, 373) = mat(k, 373) - dti(k) - mat(k, 378) = mat(k, 378) - dti(k) + mat(k, 124) = mat(k, 124) - dti(k) + mat(k, 130) = mat(k, 130) - dti(k) + mat(k, 136) = mat(k, 136) - dti(k) + mat(k, 142) = mat(k, 142) - dti(k) + mat(k, 143) = mat(k, 143) - dti(k) + mat(k, 146) = mat(k, 146) - dti(k) + mat(k, 149) = mat(k, 149) - dti(k) + mat(k, 152) = mat(k, 152) - dti(k) + mat(k, 155) = mat(k, 155) - dti(k) + mat(k, 159) = mat(k, 159) - dti(k) + mat(k, 163) = mat(k, 163) - dti(k) + mat(k, 167) = mat(k, 167) - dti(k) + mat(k, 171) = mat(k, 171) - dti(k) + mat(k, 175) = mat(k, 175) - dti(k) + mat(k, 178) = mat(k, 178) - dti(k) + mat(k, 183) = mat(k, 183) - dti(k) + mat(k, 188) = mat(k, 188) - dti(k) + mat(k, 193) = mat(k, 193) - dti(k) + mat(k, 198) = mat(k, 198) - dti(k) + mat(k, 201) = mat(k, 201) - dti(k) + mat(k, 204) = mat(k, 204) - dti(k) + mat(k, 207) = mat(k, 207) - dti(k) + mat(k, 210) = mat(k, 210) - dti(k) + mat(k, 216) = mat(k, 216) - dti(k) + mat(k, 220) = mat(k, 220) - dti(k) + mat(k, 225) = mat(k, 225) - dti(k) + mat(k, 228) = mat(k, 228) - dti(k) + mat(k, 231) = mat(k, 231) - dti(k) + mat(k, 238) = mat(k, 238) - dti(k) + mat(k, 243) = mat(k, 243) - dti(k) + mat(k, 247) = mat(k, 247) - dti(k) + mat(k, 250) = mat(k, 250) - dti(k) + mat(k, 256) = mat(k, 256) - dti(k) + mat(k, 264) = mat(k, 264) - dti(k) + mat(k, 269) = mat(k, 269) - dti(k) + mat(k, 272) = mat(k, 272) - dti(k) + mat(k, 275) = mat(k, 275) - dti(k) + mat(k, 278) = mat(k, 278) - dti(k) + mat(k, 281) = mat(k, 281) - dti(k) + mat(k, 286) = mat(k, 286) - dti(k) + mat(k, 289) = mat(k, 289) - dti(k) + mat(k, 294) = mat(k, 294) - dti(k) + mat(k, 299) = mat(k, 299) - dti(k) + mat(k, 304) = mat(k, 304) - dti(k) + mat(k, 309) = mat(k, 309) - dti(k) + mat(k, 313) = mat(k, 313) - dti(k) + mat(k, 317) = mat(k, 317) - dti(k) + mat(k, 321) = mat(k, 321) - dti(k) + mat(k, 327) = mat(k, 327) - dti(k) + mat(k, 333) = mat(k, 333) - dti(k) + mat(k, 339) = mat(k, 339) - dti(k) + mat(k, 345) = mat(k, 345) - dti(k) + mat(k, 351) = mat(k, 351) - dti(k) + mat(k, 355) = mat(k, 355) - dti(k) + mat(k, 361) = mat(k, 361) - dti(k) + mat(k, 364) = mat(k, 364) - dti(k) + mat(k, 370) = mat(k, 370) - dti(k) + mat(k, 375) = mat(k, 375) - dti(k) + mat(k, 380) = mat(k, 380) - dti(k) mat(k, 383) = mat(k, 383) - dti(k) mat(k, 388) = mat(k, 388) - dti(k) mat(k, 393) = mat(k, 393) - dti(k) mat(k, 398) = mat(k, 398) - dti(k) - mat(k, 401) = mat(k, 401) - dti(k) - mat(k, 409) = mat(k, 409) - dti(k) - mat(k, 417) = mat(k, 417) - dti(k) - mat(k, 425) = mat(k, 425) - dti(k) - mat(k, 431) = mat(k, 431) - dti(k) - mat(k, 437) = mat(k, 437) - dti(k) - mat(k, 443) = mat(k, 443) - dti(k) - mat(k, 449) = mat(k, 449) - dti(k) - mat(k, 455) = mat(k, 455) - dti(k) - mat(k, 461) = mat(k, 461) - dti(k) - mat(k, 467) = mat(k, 467) - dti(k) - mat(k, 473) = mat(k, 473) - dti(k) - mat(k, 481) = mat(k, 481) - dti(k) - mat(k, 487) = mat(k, 487) - dti(k) - mat(k, 493) = mat(k, 493) - dti(k) - mat(k, 500) = mat(k, 500) - dti(k) - mat(k, 506) = mat(k, 506) - dti(k) - mat(k, 509) = mat(k, 509) - dti(k) - mat(k, 514) = mat(k, 514) - dti(k) - mat(k, 521) = mat(k, 521) - dti(k) - mat(k, 528) = mat(k, 528) - dti(k) - mat(k, 535) = mat(k, 535) - dti(k) - mat(k, 541) = mat(k, 541) - dti(k) - mat(k, 548) = mat(k, 548) - dti(k) - mat(k, 556) = mat(k, 556) - dti(k) - mat(k, 563) = mat(k, 563) - dti(k) - mat(k, 569) = mat(k, 569) - dti(k) - mat(k, 575) = mat(k, 575) - dti(k) - mat(k, 580) = mat(k, 580) - dti(k) - mat(k, 588) = mat(k, 588) - dti(k) - mat(k, 596) = mat(k, 596) - dti(k) - mat(k, 604) = mat(k, 604) - dti(k) - mat(k, 612) = mat(k, 612) - dti(k) - mat(k, 620) = mat(k, 620) - dti(k) - mat(k, 628) = mat(k, 628) - dti(k) - mat(k, 637) = mat(k, 637) - dti(k) - mat(k, 644) = mat(k, 644) - dti(k) - mat(k, 651) = mat(k, 651) - dti(k) - mat(k, 662) = mat(k, 662) - dti(k) - mat(k, 671) = mat(k, 671) - dti(k) - mat(k, 680) = mat(k, 680) - dti(k) - mat(k, 684) = mat(k, 684) - dti(k) - mat(k, 692) = mat(k, 692) - dti(k) - mat(k, 699) = mat(k, 699) - dti(k) - mat(k, 710) = mat(k, 710) - dti(k) + mat(k, 403) = mat(k, 403) - dti(k) + mat(k, 411) = mat(k, 411) - dti(k) + mat(k, 419) = mat(k, 419) - dti(k) + mat(k, 427) = mat(k, 427) - dti(k) + mat(k, 433) = mat(k, 433) - dti(k) + mat(k, 439) = mat(k, 439) - dti(k) + mat(k, 445) = mat(k, 445) - dti(k) + mat(k, 451) = mat(k, 451) - dti(k) + mat(k, 457) = mat(k, 457) - dti(k) + mat(k, 463) = mat(k, 463) - dti(k) + mat(k, 469) = mat(k, 469) - dti(k) + mat(k, 477) = mat(k, 477) - dti(k) + mat(k, 483) = mat(k, 483) - dti(k) + mat(k, 489) = mat(k, 489) - dti(k) + mat(k, 495) = mat(k, 495) - dti(k) + mat(k, 502) = mat(k, 502) - dti(k) + mat(k, 508) = mat(k, 508) - dti(k) + mat(k, 511) = mat(k, 511) - dti(k) + mat(k, 516) = mat(k, 516) - dti(k) + mat(k, 523) = mat(k, 523) - dti(k) + mat(k, 532) = mat(k, 532) - dti(k) + mat(k, 539) = mat(k, 539) - dti(k) + mat(k, 543) = mat(k, 543) - dti(k) + mat(k, 550) = mat(k, 550) - dti(k) + mat(k, 558) = mat(k, 558) - dti(k) + mat(k, 565) = mat(k, 565) - dti(k) + mat(k, 571) = mat(k, 571) - dti(k) + mat(k, 577) = mat(k, 577) - dti(k) + mat(k, 585) = mat(k, 585) - dti(k) + mat(k, 593) = mat(k, 593) - dti(k) + mat(k, 601) = mat(k, 601) - dti(k) + mat(k, 609) = mat(k, 609) - dti(k) + mat(k, 617) = mat(k, 617) - dti(k) + mat(k, 625) = mat(k, 625) - dti(k) + mat(k, 634) = mat(k, 634) - dti(k) + mat(k, 643) = mat(k, 643) - dti(k) + mat(k, 652) = mat(k, 652) - dti(k) + mat(k, 661) = mat(k, 661) - dti(k) + mat(k, 665) = mat(k, 665) - dti(k) + mat(k, 672) = mat(k, 672) - dti(k) + mat(k, 681) = mat(k, 681) - dti(k) + mat(k, 690) = mat(k, 690) - dti(k) + mat(k, 698) = mat(k, 698) - dti(k) + mat(k, 704) = mat(k, 704) - dti(k) + mat(k, 711) = mat(k, 711) - dti(k) mat(k, 721) = mat(k, 721) - dti(k) - mat(k, 728) = mat(k, 728) - dti(k) - mat(k, 739) = mat(k, 739) - dti(k) - mat(k, 749) = mat(k, 749) - dti(k) + mat(k, 732) = mat(k, 732) - dti(k) + mat(k, 743) = mat(k, 743) - dti(k) + mat(k, 750) = mat(k, 750) - dti(k) mat(k, 755) = mat(k, 755) - dti(k) mat(k, 766) = mat(k, 766) - dti(k) mat(k, 777) = mat(k, 777) - dti(k) - mat(k, 784) = mat(k, 784) - dti(k) - mat(k, 795) = mat(k, 795) - dti(k) - mat(k, 811) = mat(k, 811) - dti(k) - mat(k, 822) = mat(k, 822) - dti(k) + mat(k, 788) = mat(k, 788) - dti(k) + mat(k, 799) = mat(k, 799) - dti(k) + mat(k, 812) = mat(k, 812) - dti(k) + mat(k, 823) = mat(k, 823) - dti(k) mat(k, 832) = mat(k, 832) - dti(k) - mat(k, 841) = mat(k, 841) - dti(k) - mat(k, 849) = mat(k, 849) - dti(k) - mat(k, 857) = mat(k, 857) - dti(k) - mat(k, 862) = mat(k, 862) - dti(k) + mat(k, 842) = mat(k, 842) - dti(k) + mat(k, 850) = mat(k, 850) - dti(k) + mat(k, 859) = mat(k, 859) - dti(k) + mat(k, 869) = mat(k, 869) - dti(k) mat(k, 873) = mat(k, 873) - dti(k) - mat(k, 880) = mat(k, 880) - dti(k) - mat(k, 889) = mat(k, 889) - dti(k) - mat(k, 897) = mat(k, 897) - dti(k) - mat(k, 909) = mat(k, 909) - dti(k) - mat(k, 920) = mat(k, 920) - dti(k) - mat(k, 936) = mat(k, 936) - dti(k) - mat(k, 942) = mat(k, 942) - dti(k) - mat(k, 950) = mat(k, 950) - dti(k) - mat(k, 959) = mat(k, 959) - dti(k) - mat(k, 969) = mat(k, 969) - dti(k) - mat(k, 979) = mat(k, 979) - dti(k) - mat(k, 991) = mat(k, 991) - dti(k) - mat(k,1006) = mat(k,1006) - dti(k) - mat(k,1027) = mat(k,1027) - dti(k) - mat(k,1043) = mat(k,1043) - dti(k) - mat(k,1062) = mat(k,1062) - dti(k) - mat(k,1086) = mat(k,1086) - dti(k) - mat(k,1098) = mat(k,1098) - dti(k) - mat(k,1106) = mat(k,1106) - dti(k) - mat(k,1116) = mat(k,1116) - dti(k) - mat(k,1124) = mat(k,1124) - dti(k) - mat(k,1134) = mat(k,1134) - dti(k) - mat(k,1150) = mat(k,1150) - dti(k) - mat(k,1163) = mat(k,1163) - dti(k) - mat(k,1177) = mat(k,1177) - dti(k) - mat(k,1195) = mat(k,1195) - dti(k) - mat(k,1204) = mat(k,1204) - dti(k) - mat(k,1210) = mat(k,1210) - dti(k) - mat(k,1222) = mat(k,1222) - dti(k) - mat(k,1239) = mat(k,1239) - dti(k) - mat(k,1252) = mat(k,1252) - dti(k) - mat(k,1261) = mat(k,1261) - dti(k) - mat(k,1277) = mat(k,1277) - dti(k) - mat(k,1297) = mat(k,1297) - dti(k) - mat(k,1313) = mat(k,1313) - dti(k) - mat(k,1325) = mat(k,1325) - dti(k) - mat(k,1343) = mat(k,1343) - dti(k) - mat(k,1376) = mat(k,1376) - dti(k) - mat(k,1400) = mat(k,1400) - dti(k) - mat(k,1420) = mat(k,1420) - dti(k) - mat(k,1441) = mat(k,1441) - dti(k) - mat(k,1472) = mat(k,1472) - dti(k) - mat(k,1494) = mat(k,1494) - dti(k) - mat(k,1505) = mat(k,1505) - dti(k) - mat(k,1520) = mat(k,1520) - dti(k) - mat(k,1539) = mat(k,1539) - dti(k) - mat(k,1555) = mat(k,1555) - dti(k) - mat(k,1586) = mat(k,1586) - dti(k) - mat(k,1609) = mat(k,1609) - dti(k) - mat(k,1636) = mat(k,1636) - dti(k) - mat(k,1681) = mat(k,1681) - dti(k) - mat(k,1788) = mat(k,1788) - dti(k) - mat(k,1832) = mat(k,1832) - dti(k) - mat(k,2006) = mat(k,2006) - dti(k) - mat(k,2067) = mat(k,2067) - dti(k) - mat(k,2093) = mat(k,2093) - dti(k) - mat(k,2214) = mat(k,2214) - dti(k) + mat(k, 882) = mat(k, 882) - dti(k) + mat(k, 890) = mat(k, 890) - dti(k) + mat(k, 898) = mat(k, 898) - dti(k) + mat(k, 910) = mat(k, 910) - dti(k) + mat(k, 918) = mat(k, 918) - dti(k) + mat(k, 927) = mat(k, 927) - dti(k) + mat(k, 946) = mat(k, 946) - dti(k) + mat(k, 955) = mat(k, 955) - dti(k) + mat(k, 960) = mat(k, 960) - dti(k) + mat(k, 970) = mat(k, 970) - dti(k) + mat(k, 980) = mat(k, 980) - dti(k) + mat(k, 992) = mat(k, 992) - dti(k) + mat(k,1007) = mat(k,1007) - dti(k) + mat(k,1032) = mat(k,1032) - dti(k) + mat(k,1044) = mat(k,1044) - dti(k) + mat(k,1063) = mat(k,1063) - dti(k) + mat(k,1087) = mat(k,1087) - dti(k) + mat(k,1099) = mat(k,1099) - dti(k) + mat(k,1107) = mat(k,1107) - dti(k) + mat(k,1117) = mat(k,1117) - dti(k) + mat(k,1125) = mat(k,1125) - dti(k) + mat(k,1135) = mat(k,1135) - dti(k) + mat(k,1151) = mat(k,1151) - dti(k) + mat(k,1164) = mat(k,1164) - dti(k) + mat(k,1178) = mat(k,1178) - dti(k) + mat(k,1196) = mat(k,1196) - dti(k) + mat(k,1205) = mat(k,1205) - dti(k) + mat(k,1211) = mat(k,1211) - dti(k) + mat(k,1223) = mat(k,1223) - dti(k) + mat(k,1240) = mat(k,1240) - dti(k) + mat(k,1253) = mat(k,1253) - dti(k) + mat(k,1262) = mat(k,1262) - dti(k) + mat(k,1278) = mat(k,1278) - dti(k) + mat(k,1298) = mat(k,1298) - dti(k) + mat(k,1314) = mat(k,1314) - dti(k) + mat(k,1326) = mat(k,1326) - dti(k) + mat(k,1344) = mat(k,1344) - dti(k) + mat(k,1377) = mat(k,1377) - dti(k) + mat(k,1401) = mat(k,1401) - dti(k) + mat(k,1421) = mat(k,1421) - dti(k) + mat(k,1442) = mat(k,1442) - dti(k) + mat(k,1473) = mat(k,1473) - dti(k) + mat(k,1495) = mat(k,1495) - dti(k) + mat(k,1506) = mat(k,1506) - dti(k) + mat(k,1521) = mat(k,1521) - dti(k) + mat(k,1540) = mat(k,1540) - dti(k) + mat(k,1556) = mat(k,1556) - dti(k) + mat(k,1587) = mat(k,1587) - dti(k) + mat(k,1610) = mat(k,1610) - dti(k) + mat(k,1634) = mat(k,1634) - dti(k) + mat(k,1680) = mat(k,1680) - dti(k) + mat(k,1854) = mat(k,1854) - dti(k) + mat(k,1962) = mat(k,1962) - dti(k) + mat(k,2009) = mat(k,2009) - dti(k) + mat(k,2053) = mat(k,2053) - dti(k) + mat(k,2118) = mat(k,2118) - dti(k) + mat(k,2140) = mat(k,2140) - dti(k) + mat(k,2193) = mat(k,2193) - dti(k) + mat(k,2237) = mat(k,2237) - dti(k) mat(k,2261) = mat(k,2261) - dti(k) - mat(k,2283) = mat(k,2283) - dti(k) - mat(k,2307) = mat(k,2307) - dti(k) - mat(k,2360) = mat(k,2360) - dti(k) - mat(k,2425) = mat(k,2425) - dti(k) - mat(k,2469) = mat(k,2469) - dti(k) - mat(k,2496) = mat(k,2496) - dti(k) - mat(k,2524) = mat(k,2524) - dti(k) + mat(k,2382) = mat(k,2382) - dti(k) + mat(k,2443) = mat(k,2443) - dti(k) + mat(k,2470) = mat(k,2470) - dti(k) + mat(k,2498) = mat(k,2498) - dti(k) + mat(k,2526) = mat(k,2526) - dti(k) end do end subroutine nlnmat_finit subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_prod_loss.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_prod_loss.F90 index 0d38183ca3..84363dd9c3 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_prod_loss.F90 @@ -27,9 +27,9 @@ subroutine exp_prod_loss( ofl, ofu, prod, loss, y, & ! ... loss and production for Explicit method !-------------------------------------------------------------------- do k = ofl,ofu - loss(k,1) = ( + het_rates(k,231))* y(k,231) + loss(k,1) = ( + het_rates(k,225))* y(k,225) prod(k,1) = 0._r8 - loss(k,2) = ( + het_rates(k,232))* y(k,232) + loss(k,2) = ( + het_rates(k,226))* y(k,226) prod(k,2) = 0._r8 end do end subroutine exp_prod_loss @@ -55,1370 +55,1381 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & ! ... loss and production for Implicit method !-------------------------------------------------------------------- do k = 1,avec_len - loss(k,191) = (rxt(k,416)* y(k,265) + rxt(k,20) + het_rates(k,1))* y(k,1) - prod(k,191) =rxt(k,419)*y(k,234)*y(k,131) - loss(k,192) = (rxt(k,420)* y(k,265) + rxt(k,21) + het_rates(k,2))* y(k,2) - prod(k,192) =rxt(k,417)*y(k,247)*y(k,234) + loss(k,196) = (rxt(k,419)* y(k,265) + rxt(k,20) + het_rates(k,1))* y(k,1) + prod(k,196) =rxt(k,422)*y(k,228)*y(k,125) + loss(k,194) = (rxt(k,423)* y(k,265) + rxt(k,21) + het_rates(k,2))* y(k,2) + prod(k,194) =rxt(k,420)*y(k,243)*y(k,228) loss(k,1) = ( + het_rates(k,3))* y(k,3) prod(k,1) = 0._r8 loss(k,2) = ( + het_rates(k,4))* y(k,4) prod(k,2) = 0._r8 loss(k,3) = ( + het_rates(k,5))* y(k,5) prod(k,3) = 0._r8 - loss(k,225) = (rxt(k,499)* y(k,133) +rxt(k,500)* y(k,143) +rxt(k,501) & + loss(k,227) = (rxt(k,502)* y(k,127) +rxt(k,503)* y(k,137) +rxt(k,504) & * y(k,265) + het_rates(k,6))* y(k,6) - prod(k,225) = 0._r8 - loss(k,75) = (rxt(k,555)* y(k,131) +rxt(k,554)* y(k,247) + het_rates(k,7)) & - * y(k,7) - prod(k,75) =rxt(k,557)*y(k,265)*y(k,6) - loss(k,107) = (rxt(k,458)* y(k,265) + het_rates(k,8))* y(k,8) - prod(k,107) = 0._r8 - loss(k,81) = (rxt(k,560)* y(k,131) +rxt(k,559)* y(k,247) + het_rates(k,9)) & - * y(k,9) - prod(k,81) =rxt(k,558)*y(k,265)*y(k,8) - loss(k,155) = (rxt(k,461)* y(k,265) + rxt(k,22) + het_rates(k,10))* y(k,10) - prod(k,155) =rxt(k,459)*y(k,247)*y(k,235) - loss(k,108) = ( + rxt(k,23) + het_rates(k,11))* y(k,11) - prod(k,108) =.120_r8*rxt(k,458)*y(k,265)*y(k,8) - loss(k,158) = ( + rxt(k,24) + het_rates(k,12))* y(k,12) - prod(k,158) = (.100_r8*rxt(k,500)*y(k,6) +.100_r8*rxt(k,503)*y(k,116)) & - *y(k,143) - loss(k,164) = ( + rxt(k,25) + het_rates(k,13))* y(k,13) - prod(k,164) = (.500_r8*rxt(k,460)*y(k,235) +.200_r8*rxt(k,487)*y(k,272) + & - .060_r8*rxt(k,493)*y(k,274))*y(k,131) +.500_r8*rxt(k,22)*y(k,10) & - +rxt(k,23)*y(k,11) +.200_r8*rxt(k,71)*y(k,222) +.060_r8*rxt(k,73) & - *y(k,227) - loss(k,134) = ( + rxt(k,26) + het_rates(k,14))* y(k,14) - prod(k,134) = (.200_r8*rxt(k,487)*y(k,272) +.200_r8*rxt(k,493)*y(k,274)) & - *y(k,131) +.200_r8*rxt(k,71)*y(k,222) +.200_r8*rxt(k,73)*y(k,227) - loss(k,188) = ( + rxt(k,27) + het_rates(k,15))* y(k,15) - prod(k,188) = (.200_r8*rxt(k,487)*y(k,272) +.150_r8*rxt(k,493)*y(k,274)) & - *y(k,131) +rxt(k,47)*y(k,96) +rxt(k,57)*y(k,123) +.200_r8*rxt(k,71) & - *y(k,222) +.150_r8*rxt(k,73)*y(k,227) - loss(k,144) = ( + rxt(k,28) + het_rates(k,16))* y(k,16) - prod(k,144) =.210_r8*rxt(k,493)*y(k,274)*y(k,131) +.210_r8*rxt(k,73)*y(k,227) - loss(k,120) = (rxt(k,421)* y(k,265) + het_rates(k,17))* y(k,17) - prod(k,120) = (.050_r8*rxt(k,500)*y(k,6) +.050_r8*rxt(k,503)*y(k,116)) & - *y(k,143) - loss(k,149) = (rxt(k,387)* y(k,133) +rxt(k,388)* y(k,265) + het_rates(k,18)) & - * y(k,18) - prod(k,149) = 0._r8 - loss(k,256) = (rxt(k,270)* y(k,44) +rxt(k,272)* y(k,143) +rxt(k,271) & - * y(k,247) + het_rates(k,19))* y(k,19) - prod(k,256) = (rxt(k,76) +2.000_r8*rxt(k,273)*y(k,21) +rxt(k,274)*y(k,61) + & - rxt(k,275)*y(k,61) +rxt(k,278)*y(k,131) +rxt(k,281)*y(k,141) + & - rxt(k,282)*y(k,265) +rxt(k,529)*y(k,161))*y(k,21) & - + (rxt(k,260)*y(k,36) +rxt(k,286)*y(k,37) + & - 3.000_r8*rxt(k,287)*y(k,57) +2.000_r8*rxt(k,288)*y(k,80) + & - rxt(k,289)*y(k,83) +2.000_r8*rxt(k,309)*y(k,43) +rxt(k,310)*y(k,45)) & - *y(k,261) + (rxt(k,284)*y(k,83) +2.000_r8*rxt(k,298)*y(k,43) + & - rxt(k,300)*y(k,45) +3.000_r8*rxt(k,305)*y(k,57))*y(k,265) & - + (2.000_r8*rxt(k,297)*y(k,43) +rxt(k,299)*y(k,45) + & - 3.000_r8*rxt(k,304)*y(k,57))*y(k,58) + (rxt(k,100) + & - rxt(k,283)*y(k,141))*y(k,83) +rxt(k,75)*y(k,20) +rxt(k,78)*y(k,22) & - +rxt(k,80)*y(k,36) +rxt(k,81)*y(k,37) +2.000_r8*rxt(k,87)*y(k,43) & - +rxt(k,88)*y(k,45) +3.000_r8*rxt(k,91)*y(k,57) +2.000_r8*rxt(k,99) & - *y(k,80) +rxt(k,106)*y(k,93) - loss(k,121) = ( + rxt(k,75) + het_rates(k,20))* y(k,20) - prod(k,121) = (rxt(k,594)*y(k,93) +rxt(k,599)*y(k,93))*y(k,87) & - +rxt(k,276)*y(k,61)*y(k,21) - loss(k,258) = (2._r8*rxt(k,273)* y(k,21) + (rxt(k,274) +rxt(k,275) + & - rxt(k,276))* y(k,61) +rxt(k,278)* y(k,131) +rxt(k,279)* y(k,132) & - +rxt(k,281)* y(k,141) +rxt(k,529)* y(k,161) +rxt(k,277)* y(k,247) & - +rxt(k,282)* y(k,265) + rxt(k,76) + het_rates(k,21))* y(k,21) - prod(k,258) = (rxt(k,77) +rxt(k,280)*y(k,141))*y(k,22) +rxt(k,272)*y(k,143) & - *y(k,19) +rxt(k,290)*y(k,261)*y(k,83) +rxt(k,285)*y(k,141)*y(k,93) - loss(k,179) = (rxt(k,280)* y(k,141) + rxt(k,77) + rxt(k,78) + rxt(k,588) & - + rxt(k,591) + rxt(k,596) + het_rates(k,22))* y(k,22) - prod(k,179) =rxt(k,279)*y(k,132)*y(k,21) - loss(k,4) = ( + het_rates(k,23))* y(k,23) + prod(k,227) = 0._r8 + loss(k,109) = (rxt(k,461)* y(k,265) + het_rates(k,7))* y(k,7) + prod(k,109) = 0._r8 + loss(k,158) = (rxt(k,464)* y(k,265) + rxt(k,22) + het_rates(k,8))* y(k,8) + prod(k,158) =rxt(k,462)*y(k,243)*y(k,230) + loss(k,110) = ( + rxt(k,23) + het_rates(k,9))* y(k,9) + prod(k,110) =.120_r8*rxt(k,461)*y(k,265)*y(k,7) + loss(k,164) = ( + rxt(k,24) + het_rates(k,10))* y(k,10) + prod(k,164) = (.100_r8*rxt(k,503)*y(k,6) +.100_r8*rxt(k,506)*y(k,111)) & + *y(k,137) + loss(k,166) = ( + rxt(k,25) + het_rates(k,11))* y(k,11) + prod(k,166) = (.500_r8*rxt(k,463)*y(k,230) +.200_r8*rxt(k,490)*y(k,272) + & + .060_r8*rxt(k,496)*y(k,275))*y(k,125) +.500_r8*rxt(k,22)*y(k,8) & + +rxt(k,23)*y(k,9) +.200_r8*rxt(k,71)*y(k,218) +.060_r8*rxt(k,73) & + *y(k,222) + loss(k,139) = ( + rxt(k,26) + het_rates(k,12))* y(k,12) + prod(k,139) = (.200_r8*rxt(k,490)*y(k,272) +.200_r8*rxt(k,496)*y(k,275)) & + *y(k,125) +.200_r8*rxt(k,71)*y(k,218) +.200_r8*rxt(k,73)*y(k,222) + loss(k,187) = ( + rxt(k,27) + het_rates(k,13))* y(k,13) + prod(k,187) = (.200_r8*rxt(k,490)*y(k,272) +.150_r8*rxt(k,496)*y(k,275)) & + *y(k,125) +rxt(k,47)*y(k,94) +rxt(k,57)*y(k,117) +.200_r8*rxt(k,71) & + *y(k,218) +.150_r8*rxt(k,73)*y(k,222) + loss(k,149) = ( + rxt(k,28) + het_rates(k,14))* y(k,14) + prod(k,149) =.210_r8*rxt(k,496)*y(k,275)*y(k,125) +.210_r8*rxt(k,73)*y(k,222) + loss(k,121) = (rxt(k,424)* y(k,265) + het_rates(k,15))* y(k,15) + prod(k,121) = (.050_r8*rxt(k,503)*y(k,6) +.050_r8*rxt(k,506)*y(k,111)) & + *y(k,137) + loss(k,150) = (rxt(k,390)* y(k,127) +rxt(k,391)* y(k,265) + het_rates(k,16)) & + * y(k,16) + prod(k,150) = 0._r8 + loss(k,258) = (rxt(k,273)* y(k,42) +rxt(k,275)* y(k,137) +rxt(k,274) & + * y(k,243) + het_rates(k,17))* y(k,17) + prod(k,258) = (rxt(k,76) +2.000_r8*rxt(k,276)*y(k,19) +rxt(k,277)*y(k,59) + & + rxt(k,278)*y(k,59) +rxt(k,281)*y(k,125) +rxt(k,284)*y(k,135) + & + rxt(k,285)*y(k,265) +rxt(k,532)*y(k,157))*y(k,19) & + + (rxt(k,263)*y(k,34) +rxt(k,289)*y(k,35) + & + 3.000_r8*rxt(k,290)*y(k,55) +2.000_r8*rxt(k,291)*y(k,78) + & + rxt(k,292)*y(k,81) +2.000_r8*rxt(k,312)*y(k,41) +rxt(k,313)*y(k,43)) & + *y(k,261) + (rxt(k,287)*y(k,81) +2.000_r8*rxt(k,301)*y(k,41) + & + rxt(k,303)*y(k,43) +3.000_r8*rxt(k,308)*y(k,55))*y(k,265) & + + (2.000_r8*rxt(k,300)*y(k,41) +rxt(k,302)*y(k,43) + & + 3.000_r8*rxt(k,307)*y(k,55))*y(k,56) + (rxt(k,100) + & + rxt(k,286)*y(k,135))*y(k,81) +rxt(k,75)*y(k,18) +rxt(k,78)*y(k,20) & + +rxt(k,80)*y(k,34) +rxt(k,81)*y(k,35) +2.000_r8*rxt(k,87)*y(k,41) & + +rxt(k,88)*y(k,43) +3.000_r8*rxt(k,91)*y(k,55) +2.000_r8*rxt(k,99) & + *y(k,78) +rxt(k,106)*y(k,91) + loss(k,122) = ( + rxt(k,75) + het_rates(k,18))* y(k,18) + prod(k,122) = (rxt(k,597)*y(k,91) +rxt(k,602)*y(k,91))*y(k,85) & + +rxt(k,279)*y(k,59)*y(k,19) + loss(k,260) = (2._r8*rxt(k,276)* y(k,19) + (rxt(k,277) +rxt(k,278) + & + rxt(k,279))* y(k,59) +rxt(k,281)* y(k,125) +rxt(k,282)* y(k,126) & + +rxt(k,284)* y(k,135) +rxt(k,532)* y(k,157) +rxt(k,280)* y(k,243) & + +rxt(k,285)* y(k,265) + rxt(k,76) + het_rates(k,19))* y(k,19) + prod(k,260) = (rxt(k,77) +rxt(k,283)*y(k,135))*y(k,20) +rxt(k,275)*y(k,137) & + *y(k,17) +rxt(k,293)*y(k,261)*y(k,81) +rxt(k,288)*y(k,135)*y(k,91) + loss(k,182) = (rxt(k,283)* y(k,135) + rxt(k,77) + rxt(k,78) + rxt(k,591) & + + rxt(k,594) + rxt(k,599) + het_rates(k,20))* y(k,20) + prod(k,182) =rxt(k,282)*y(k,126)*y(k,19) + loss(k,4) = ( + het_rates(k,21))* y(k,21) prod(k,4) = 0._r8 - loss(k,123) = (rxt(k,462)* y(k,265) + het_rates(k,24))* y(k,24) - prod(k,123) =rxt(k,29)*y(k,25) +rxt(k,465)*y(k,236)*y(k,131) - loss(k,142) = (rxt(k,464)* y(k,265) + rxt(k,29) + het_rates(k,25))* y(k,25) - prod(k,142) =rxt(k,463)*y(k,247)*y(k,236) - loss(k,133) = (rxt(k,335)* y(k,58) +rxt(k,336)* y(k,265) + het_rates(k,26)) & - * y(k,26) - prod(k,133) = 0._r8 - loss(k,181) = (rxt(k,337)* y(k,58) +rxt(k,338)* y(k,143) +rxt(k,363) & - * y(k,265) + het_rates(k,27))* y(k,27) - prod(k,181) = 0._r8 - loss(k,130) = (rxt(k,343)* y(k,265) + het_rates(k,28))* y(k,28) - prod(k,130) = (.400_r8*rxt(k,339)*y(k,237) +.200_r8*rxt(k,340)*y(k,241)) & - *y(k,237) - loss(k,143) = (rxt(k,344)* y(k,265) + rxt(k,30) + het_rates(k,29))* y(k,29) - prod(k,143) =rxt(k,341)*y(k,247)*y(k,237) - loss(k,135) = (rxt(k,345)* y(k,58) +rxt(k,346)* y(k,265) + het_rates(k,30)) & - * y(k,30) + loss(k,124) = (rxt(k,465)* y(k,265) + het_rates(k,22))* y(k,22) + prod(k,124) =rxt(k,29)*y(k,23) +rxt(k,468)*y(k,232)*y(k,125) + loss(k,143) = (rxt(k,467)* y(k,265) + rxt(k,29) + het_rates(k,23))* y(k,23) + prod(k,143) =rxt(k,466)*y(k,243)*y(k,232) + loss(k,134) = (rxt(k,338)* y(k,56) +rxt(k,339)* y(k,265) + het_rates(k,24)) & + * y(k,24) + prod(k,134) = 0._r8 + loss(k,177) = (rxt(k,340)* y(k,56) +rxt(k,341)* y(k,137) +rxt(k,366) & + * y(k,265) + het_rates(k,25))* y(k,25) + prod(k,177) = 0._r8 + loss(k,130) = (rxt(k,346)* y(k,265) + het_rates(k,26))* y(k,26) + prod(k,130) = (.400_r8*rxt(k,342)*y(k,233) +.200_r8*rxt(k,343)*y(k,237)) & + *y(k,233) + loss(k,144) = (rxt(k,347)* y(k,265) + rxt(k,30) + het_rates(k,27))* y(k,27) + prod(k,144) =rxt(k,344)*y(k,243)*y(k,233) + loss(k,135) = (rxt(k,348)* y(k,56) +rxt(k,349)* y(k,265) + het_rates(k,28)) & + * y(k,28) prod(k,135) = 0._r8 - loss(k,234) = (rxt(k,366)* y(k,133) +rxt(k,367)* y(k,143) +rxt(k,385) & - * y(k,265) + het_rates(k,31))* y(k,31) - prod(k,234) =.130_r8*rxt(k,445)*y(k,143)*y(k,100) +.700_r8*rxt(k,56)*y(k,118) - loss(k,153) = (rxt(k,371)* y(k,265) + rxt(k,31) + het_rates(k,32))* y(k,32) - prod(k,153) =rxt(k,369)*y(k,247)*y(k,238) - loss(k,136) = (rxt(k,375)* y(k,58) +rxt(k,372)* y(k,265) + het_rates(k,33)) & - * y(k,33) + loss(k,236) = (rxt(k,369)* y(k,127) +rxt(k,370)* y(k,137) +rxt(k,388) & + * y(k,265) + het_rates(k,29))* y(k,29) + prod(k,236) =.130_r8*rxt(k,448)*y(k,137)*y(k,98) +.700_r8*rxt(k,56)*y(k,112) + loss(k,154) = (rxt(k,374)* y(k,265) + rxt(k,31) + het_rates(k,30))* y(k,30) + prod(k,154) =rxt(k,372)*y(k,243)*y(k,234) + loss(k,136) = (rxt(k,378)* y(k,56) +rxt(k,375)* y(k,265) + het_rates(k,31)) & + * y(k,31) prod(k,136) = 0._r8 - loss(k,131) = (rxt(k,468)* y(k,265) + rxt(k,32) + het_rates(k,34))* y(k,34) - prod(k,131) =rxt(k,466)*y(k,247)*y(k,239) - loss(k,90) = (rxt(k,259)* y(k,261) + rxt(k,79) + het_rates(k,35))* y(k,35) - prod(k,90) = 0._r8 - loss(k,102) = (rxt(k,260)* y(k,261) + rxt(k,80) + het_rates(k,36))* y(k,36) + loss(k,132) = (rxt(k,471)* y(k,265) + rxt(k,32) + het_rates(k,32))* y(k,32) + prod(k,132) =rxt(k,469)*y(k,243)*y(k,235) + loss(k,92) = (rxt(k,262)* y(k,261) + rxt(k,79) + het_rates(k,33))* y(k,33) + prod(k,92) = 0._r8 + loss(k,101) = (rxt(k,263)* y(k,261) + rxt(k,80) + het_rates(k,34))* y(k,34) + prod(k,101) = 0._r8 + loss(k,102) = (rxt(k,289)* y(k,261) + rxt(k,81) + het_rates(k,35))* y(k,35) prod(k,102) = 0._r8 - loss(k,103) = (rxt(k,286)* y(k,261) + rxt(k,81) + het_rates(k,37))* y(k,37) - prod(k,103) = 0._r8 - loss(k,93) = (rxt(k,261)* y(k,261) + rxt(k,82) + het_rates(k,38))* y(k,38) - prod(k,93) = 0._r8 - loss(k,104) = (rxt(k,262)* y(k,261) + rxt(k,83) + het_rates(k,39))* y(k,39) - prod(k,104) = 0._r8 - loss(k,94) = (rxt(k,263)* y(k,261) + rxt(k,84) + het_rates(k,40))* y(k,40) - prod(k,94) = 0._r8 - loss(k,105) = (rxt(k,264)* y(k,261) + rxt(k,85) + het_rates(k,41))* y(k,41) - prod(k,105) = 0._r8 - loss(k,95) = (rxt(k,265)* y(k,261) + rxt(k,86) + het_rates(k,42))* y(k,42) + loss(k,95) = (rxt(k,264)* y(k,261) + rxt(k,82) + het_rates(k,36))* y(k,36) prod(k,95) = 0._r8 - loss(k,166) = (rxt(k,297)* y(k,58) +rxt(k,309)* y(k,261) +rxt(k,298) & - * y(k,265) + rxt(k,87) + het_rates(k,43))* y(k,43) - prod(k,166) = 0._r8 - loss(k,273) = (rxt(k,270)* y(k,19) +rxt(k,234)* y(k,58) +rxt(k,315)* y(k,133) & - +rxt(k,316)* y(k,141) +rxt(k,314)* y(k,247) +rxt(k,317)* y(k,265) & - + rxt(k,33) + rxt(k,34) + het_rates(k,44))* y(k,44) - prod(k,273) = (rxt(k,241)*y(k,61) +2.000_r8*rxt(k,318)*y(k,241) + & - rxt(k,319)*y(k,241) +rxt(k,321)*y(k,131) + & - .700_r8*rxt(k,340)*y(k,237) +rxt(k,351)*y(k,240) + & - rxt(k,368)*y(k,238) +.800_r8*rxt(k,381)*y(k,269) + & - .880_r8*rxt(k,393)*y(k,251) +2.000_r8*rxt(k,402)*y(k,253) + & - 1.500_r8*rxt(k,426)*y(k,249) +.750_r8*rxt(k,431)*y(k,250) + & - .800_r8*rxt(k,440)*y(k,103) +.800_r8*rxt(k,451)*y(k,273) + & - .750_r8*rxt(k,505)*y(k,260) +.930_r8*rxt(k,510)*y(k,270) + & - .950_r8*rxt(k,515)*y(k,271))*y(k,241) & - + (.500_r8*rxt(k,357)*y(k,246) +rxt(k,379)*y(k,268) + & - rxt(k,383)*y(k,269) +.500_r8*rxt(k,389)*y(k,244) + & - .250_r8*rxt(k,396)*y(k,251) +rxt(k,405)*y(k,253) + & - .100_r8*rxt(k,418)*y(k,234) +.920_r8*rxt(k,428)*y(k,249) + & - .250_r8*rxt(k,453)*y(k,273) +.340_r8*rxt(k,512)*y(k,270) + & - .320_r8*rxt(k,517)*y(k,271))*y(k,131) + (rxt(k,322)*y(k,54) + & - .300_r8*rxt(k,323)*y(k,55) +.500_r8*rxt(k,355)*y(k,53) + & - .800_r8*rxt(k,360)*y(k,76) +rxt(k,362)*y(k,148) + & - .500_r8*rxt(k,411)*y(k,115) +.400_r8*rxt(k,416)*y(k,1) + & - .300_r8*rxt(k,436)*y(k,101) +.680_r8*rxt(k,521)*y(k,221))*y(k,265) & - + (rxt(k,338)*y(k,27) +.500_r8*rxt(k,367)*y(k,31) + & - .120_r8*rxt(k,398)*y(k,111) +.600_r8*rxt(k,412)*y(k,118) + & - .910_r8*rxt(k,445)*y(k,100) +.340_r8*rxt(k,500)*y(k,6) + & - .340_r8*rxt(k,503)*y(k,116))*y(k,143) + (.500_r8*rxt(k,387)*y(k,18) + & - .250_r8*rxt(k,395)*y(k,251) +rxt(k,406)*y(k,253) + & - rxt(k,429)*y(k,249))*y(k,133) + (.250_r8*rxt(k,392)*y(k,251) + & - rxt(k,401)*y(k,253) +rxt(k,425)*y(k,249) + & - .250_r8*rxt(k,450)*y(k,273))*y(k,240) + (.180_r8*rxt(k,40) + & - rxt(k,331)*y(k,261) +rxt(k,332)*y(k,261))*y(k,56) & - + (.150_r8*rxt(k,382)*y(k,269) +.450_r8*rxt(k,403)*y(k,253)) & - *y(k,247) +.100_r8*rxt(k,20)*y(k,1) +.100_r8*rxt(k,21)*y(k,2) & - +rxt(k,39)*y(k,55) +rxt(k,44)*y(k,76) +.330_r8*rxt(k,46)*y(k,95) & - +rxt(k,48)*y(k,97) +rxt(k,50)*y(k,106) +1.340_r8*rxt(k,51)*y(k,111) & - +rxt(k,58)*y(k,134) +rxt(k,63)*y(k,157) +rxt(k,64)*y(k,158) & - +.375_r8*rxt(k,66)*y(k,217) +.400_r8*rxt(k,68)*y(k,219) & - +.680_r8*rxt(k,70)*y(k,221) +2.000_r8*rxt(k,358)*y(k,245) & - +rxt(k,328)*y(k,248) +2.000_r8*rxt(k,404)*y(k,253)*y(k,253) - loss(k,182) = (rxt(k,299)* y(k,58) +rxt(k,310)* y(k,261) +rxt(k,300) & - * y(k,265) + rxt(k,88) + het_rates(k,45))* y(k,45) - prod(k,182) = 0._r8 - loss(k,96) = (rxt(k,301)* y(k,265) + rxt(k,89) + het_rates(k,46))* y(k,46) + loss(k,103) = (rxt(k,265)* y(k,261) + rxt(k,83) + het_rates(k,37))* y(k,37) + prod(k,103) = 0._r8 + loss(k,96) = (rxt(k,266)* y(k,261) + rxt(k,84) + het_rates(k,38))* y(k,38) prod(k,96) = 0._r8 - loss(k,235) = (rxt(k,347)* y(k,133) +rxt(k,348)* y(k,265) + rxt(k,35) & - + het_rates(k,47))* y(k,47) - prod(k,235) = (rxt(k,342)*y(k,237) +.270_r8*rxt(k,370)*y(k,238) + & - rxt(k,379)*y(k,268) +rxt(k,389)*y(k,244) +rxt(k,408)*y(k,255) + & - .400_r8*rxt(k,418)*y(k,234))*y(k,131) + (rxt(k,343)*y(k,28) + & - .500_r8*rxt(k,344)*y(k,29) +.800_r8*rxt(k,416)*y(k,1))*y(k,265) & - + (.500_r8*rxt(k,367)*y(k,31) +.100_r8*rxt(k,412)*y(k,118))*y(k,143) & - + (1.600_r8*rxt(k,339)*y(k,237) +.800_r8*rxt(k,340)*y(k,241)) & - *y(k,237) +.400_r8*rxt(k,20)*y(k,1) +.400_r8*rxt(k,21)*y(k,2) & - +rxt(k,387)*y(k,133)*y(k,18) +rxt(k,30)*y(k,29) +.330_r8*rxt(k,46) & - *y(k,95) +rxt(k,54)*y(k,114) +rxt(k,63)*y(k,157) & - +.200_r8*rxt(k,407)*y(k,255)*y(k,247) - loss(k,148) = (rxt(k,302)* y(k,58) +rxt(k,303)* y(k,265) + rxt(k,90) & - + het_rates(k,48))* y(k,48) - prod(k,148) = 0._r8 - loss(k,91) = (rxt(k,349)* y(k,265) + het_rates(k,49))* y(k,49) - prod(k,91) = 0._r8 - loss(k,230) = (rxt(k,386)* y(k,265) + rxt(k,36) + het_rates(k,50))* y(k,50) - prod(k,230) = (.820_r8*rxt(k,370)*y(k,238) +.500_r8*rxt(k,389)*y(k,244) + & - .250_r8*rxt(k,418)*y(k,234) +.270_r8*rxt(k,512)*y(k,270) + & - .040_r8*rxt(k,517)*y(k,271))*y(k,131) & - + (.820_r8*rxt(k,368)*y(k,238) +.150_r8*rxt(k,510)*y(k,270) + & - .025_r8*rxt(k,515)*y(k,271))*y(k,241) + (.250_r8*rxt(k,20) + & - .800_r8*rxt(k,416)*y(k,265))*y(k,1) + (.520_r8*rxt(k,500)*y(k,6) + & - .520_r8*rxt(k,503)*y(k,116))*y(k,143) + (.500_r8*rxt(k,70) + & - .500_r8*rxt(k,521)*y(k,265))*y(k,221) +.250_r8*rxt(k,21)*y(k,2) & - +.500_r8*rxt(k,387)*y(k,133)*y(k,18) +.820_r8*rxt(k,31)*y(k,32) & - +.170_r8*rxt(k,46)*y(k,95) +.300_r8*rxt(k,66)*y(k,217) & - +.050_r8*rxt(k,68)*y(k,219) - loss(k,245) = (rxt(k,373)* y(k,133) +rxt(k,374)* y(k,265) + rxt(k,37) & - + het_rates(k,51))* y(k,51) - prod(k,245) = (.250_r8*rxt(k,396)*y(k,251) +.050_r8*rxt(k,434)*y(k,250) + & - .250_r8*rxt(k,453)*y(k,273) +.170_r8*rxt(k,471)*y(k,242) + & - .170_r8*rxt(k,477)*y(k,254) +.400_r8*rxt(k,487)*y(k,272) + & - .540_r8*rxt(k,493)*y(k,274) +.510_r8*rxt(k,496)*y(k,275))*y(k,131) & - + (.250_r8*rxt(k,395)*y(k,251) +.050_r8*rxt(k,435)*y(k,250) + & - .250_r8*rxt(k,454)*y(k,273))*y(k,133) & - + (.500_r8*rxt(k,381)*y(k,269) +.240_r8*rxt(k,393)*y(k,251) + & - .100_r8*rxt(k,451)*y(k,273))*y(k,241) & - + (.880_r8*rxt(k,398)*y(k,111) +.500_r8*rxt(k,412)*y(k,118)) & - *y(k,143) + (.250_r8*rxt(k,392)*y(k,251) + & - .250_r8*rxt(k,450)*y(k,273))*y(k,240) & - + (.070_r8*rxt(k,470)*y(k,242) +.070_r8*rxt(k,476)*y(k,254)) & - *y(k,247) + (rxt(k,376)*y(k,97) +rxt(k,377)*y(k,134))*y(k,265) & - +.180_r8*rxt(k,24)*y(k,12) +rxt(k,28)*y(k,16) +.400_r8*rxt(k,71) & - *y(k,222) +.540_r8*rxt(k,73)*y(k,227) +.510_r8*rxt(k,74)*y(k,230) - loss(k,196) = (rxt(k,354)* y(k,265) + het_rates(k,52))* y(k,52) - prod(k,196) = (.100_r8*rxt(k,351)*y(k,241) +.150_r8*rxt(k,352)*y(k,247)) & - *y(k,240) +.120_r8*rxt(k,367)*y(k,143)*y(k,31) & - +.150_r8*rxt(k,403)*y(k,253)*y(k,247) - loss(k,183) = (rxt(k,355)* y(k,265) + rxt(k,38) + het_rates(k,53))* y(k,53) - prod(k,183) = (.400_r8*rxt(k,352)*y(k,240) +.400_r8*rxt(k,403)*y(k,253)) & - *y(k,247) - loss(k,207) = (rxt(k,322)* y(k,265) + het_rates(k,54))* y(k,54) - prod(k,207) = (rxt(k,319)*y(k,241) +.300_r8*rxt(k,340)*y(k,237) + & - .500_r8*rxt(k,381)*y(k,269) +.250_r8*rxt(k,393)*y(k,251) + & - .250_r8*rxt(k,426)*y(k,249) +.250_r8*rxt(k,431)*y(k,250) + & - .200_r8*rxt(k,440)*y(k,103) +.300_r8*rxt(k,451)*y(k,273) + & - .250_r8*rxt(k,505)*y(k,260) +.250_r8*rxt(k,510)*y(k,270) + & - .250_r8*rxt(k,515)*y(k,271))*y(k,241) - loss(k,156) = (rxt(k,323)* y(k,265) + rxt(k,39) + het_rates(k,55))* y(k,55) - prod(k,156) =rxt(k,320)*y(k,247)*y(k,241) - loss(k,265) = (rxt(k,235)* y(k,58) +rxt(k,291)* y(k,75) + (rxt(k,330) + & - rxt(k,331) +rxt(k,332))* y(k,261) +rxt(k,324)* y(k,265) + rxt(k,40) & - + rxt(k,41) + het_rates(k,56))* y(k,56) - prod(k,265) =.100_r8*rxt(k,367)*y(k,143)*y(k,31) - loss(k,157) = (rxt(k,304)* y(k,58) +rxt(k,287)* y(k,261) +rxt(k,305) & - * y(k,265) + rxt(k,91) + het_rates(k,57))* y(k,57) + loss(k,104) = (rxt(k,267)* y(k,261) + rxt(k,85) + het_rates(k,39))* y(k,39) + prod(k,104) = 0._r8 + loss(k,97) = (rxt(k,268)* y(k,261) + rxt(k,86) + het_rates(k,40))* y(k,40) + prod(k,97) = 0._r8 + loss(k,168) = (rxt(k,300)* y(k,56) +rxt(k,312)* y(k,261) +rxt(k,301) & + * y(k,265) + rxt(k,87) + het_rates(k,41))* y(k,41) + prod(k,168) = 0._r8 + loss(k,274) = (rxt(k,273)* y(k,17) +rxt(k,237)* y(k,56) +rxt(k,318)* y(k,127) & + +rxt(k,319)* y(k,135) +rxt(k,317)* y(k,243) +rxt(k,320)* y(k,265) & + + rxt(k,33) + rxt(k,34) + het_rates(k,42))* y(k,42) + prod(k,274) = (rxt(k,244)*y(k,59) +2.000_r8*rxt(k,321)*y(k,237) + & + rxt(k,322)*y(k,237) +rxt(k,324)*y(k,125) + & + .700_r8*rxt(k,343)*y(k,233) +rxt(k,354)*y(k,236) + & + rxt(k,371)*y(k,234) +.800_r8*rxt(k,384)*y(k,269) + & + .880_r8*rxt(k,396)*y(k,250) +2.000_r8*rxt(k,405)*y(k,252) + & + 1.500_r8*rxt(k,429)*y(k,245) +.750_r8*rxt(k,434)*y(k,246) + & + .800_r8*rxt(k,443)*y(k,101) +.800_r8*rxt(k,454)*y(k,274) + & + .750_r8*rxt(k,508)*y(k,260) +.930_r8*rxt(k,513)*y(k,270) + & + .950_r8*rxt(k,518)*y(k,271))*y(k,237) & + + (.500_r8*rxt(k,360)*y(k,242) +rxt(k,382)*y(k,268) + & + rxt(k,386)*y(k,269) +.500_r8*rxt(k,392)*y(k,240) + & + .250_r8*rxt(k,399)*y(k,250) +rxt(k,408)*y(k,252) + & + .100_r8*rxt(k,421)*y(k,228) +.920_r8*rxt(k,431)*y(k,245) + & + .250_r8*rxt(k,456)*y(k,274) +.340_r8*rxt(k,515)*y(k,270) + & + .320_r8*rxt(k,520)*y(k,271))*y(k,125) + (rxt(k,325)*y(k,52) + & + .300_r8*rxt(k,326)*y(k,53) +.500_r8*rxt(k,358)*y(k,51) + & + .800_r8*rxt(k,363)*y(k,74) +rxt(k,365)*y(k,142) + & + .500_r8*rxt(k,414)*y(k,110) +.400_r8*rxt(k,419)*y(k,1) + & + .300_r8*rxt(k,439)*y(k,99) +.680_r8*rxt(k,524)*y(k,217))*y(k,265) & + + (rxt(k,341)*y(k,25) +.500_r8*rxt(k,370)*y(k,29) + & + .120_r8*rxt(k,401)*y(k,106) +.600_r8*rxt(k,415)*y(k,112) + & + .910_r8*rxt(k,448)*y(k,98) +.340_r8*rxt(k,503)*y(k,6) + & + .340_r8*rxt(k,506)*y(k,111))*y(k,137) + (.500_r8*rxt(k,390)*y(k,16) + & + .250_r8*rxt(k,398)*y(k,250) +rxt(k,409)*y(k,252) + & + rxt(k,432)*y(k,245))*y(k,127) + (.250_r8*rxt(k,395)*y(k,250) + & + rxt(k,404)*y(k,252) +rxt(k,428)*y(k,245) + & + .250_r8*rxt(k,453)*y(k,274))*y(k,236) + (.180_r8*rxt(k,40) + & + rxt(k,334)*y(k,261) +rxt(k,335)*y(k,261))*y(k,54) & + + (.150_r8*rxt(k,385)*y(k,269) +.450_r8*rxt(k,406)*y(k,252)) & + *y(k,243) +.100_r8*rxt(k,20)*y(k,1) +.100_r8*rxt(k,21)*y(k,2) & + +rxt(k,39)*y(k,53) +rxt(k,44)*y(k,74) +.330_r8*rxt(k,46)*y(k,93) & + +rxt(k,48)*y(k,95) +rxt(k,50)*y(k,103) +1.340_r8*rxt(k,51)*y(k,106) & + +rxt(k,58)*y(k,128) +rxt(k,63)*y(k,153) +rxt(k,64)*y(k,154) & + +.375_r8*rxt(k,66)*y(k,213) +.400_r8*rxt(k,68)*y(k,215) & + +.680_r8*rxt(k,70)*y(k,217) +2.000_r8*rxt(k,361)*y(k,241) & + +rxt(k,331)*y(k,244) +2.000_r8*rxt(k,407)*y(k,252)*y(k,252) + loss(k,190) = (rxt(k,302)* y(k,56) +rxt(k,313)* y(k,261) +rxt(k,303) & + * y(k,265) + rxt(k,88) + het_rates(k,43))* y(k,43) + prod(k,190) = 0._r8 + loss(k,98) = (rxt(k,304)* y(k,265) + rxt(k,89) + het_rates(k,44))* y(k,44) + prod(k,98) = 0._r8 + loss(k,237) = (rxt(k,350)* y(k,127) +rxt(k,351)* y(k,265) + rxt(k,35) & + + het_rates(k,45))* y(k,45) + prod(k,237) = (rxt(k,345)*y(k,233) +.270_r8*rxt(k,373)*y(k,234) + & + rxt(k,382)*y(k,268) +rxt(k,392)*y(k,240) +rxt(k,411)*y(k,254) + & + .400_r8*rxt(k,421)*y(k,228))*y(k,125) + (rxt(k,346)*y(k,26) + & + .500_r8*rxt(k,347)*y(k,27) +.800_r8*rxt(k,419)*y(k,1))*y(k,265) & + + (.500_r8*rxt(k,370)*y(k,29) +.100_r8*rxt(k,415)*y(k,112))*y(k,137) & + + (1.600_r8*rxt(k,342)*y(k,233) +.800_r8*rxt(k,343)*y(k,237)) & + *y(k,233) +.400_r8*rxt(k,20)*y(k,1) +.400_r8*rxt(k,21)*y(k,2) & + +rxt(k,390)*y(k,127)*y(k,16) +rxt(k,30)*y(k,27) +.330_r8*rxt(k,46) & + *y(k,93) +rxt(k,54)*y(k,109) +rxt(k,63)*y(k,153) & + +.200_r8*rxt(k,410)*y(k,254)*y(k,243) + loss(k,151) = (rxt(k,305)* y(k,56) +rxt(k,306)* y(k,265) + rxt(k,90) & + + het_rates(k,46))* y(k,46) + prod(k,151) = 0._r8 + loss(k,93) = (rxt(k,352)* y(k,265) + het_rates(k,47))* y(k,47) + prod(k,93) = 0._r8 + loss(k,232) = (rxt(k,389)* y(k,265) + rxt(k,36) + het_rates(k,48))* y(k,48) + prod(k,232) = (.820_r8*rxt(k,373)*y(k,234) +.500_r8*rxt(k,392)*y(k,240) + & + .250_r8*rxt(k,421)*y(k,228) +.270_r8*rxt(k,515)*y(k,270) + & + .040_r8*rxt(k,520)*y(k,271))*y(k,125) & + + (.820_r8*rxt(k,371)*y(k,234) +.150_r8*rxt(k,513)*y(k,270) + & + .025_r8*rxt(k,518)*y(k,271))*y(k,237) + (.250_r8*rxt(k,20) + & + .800_r8*rxt(k,419)*y(k,265))*y(k,1) + (.520_r8*rxt(k,503)*y(k,6) + & + .520_r8*rxt(k,506)*y(k,111))*y(k,137) + (.500_r8*rxt(k,70) + & + .500_r8*rxt(k,524)*y(k,265))*y(k,217) +.250_r8*rxt(k,21)*y(k,2) & + +.500_r8*rxt(k,390)*y(k,127)*y(k,16) +.820_r8*rxt(k,31)*y(k,30) & + +.170_r8*rxt(k,46)*y(k,93) +.300_r8*rxt(k,66)*y(k,213) & + +.050_r8*rxt(k,68)*y(k,215) + loss(k,247) = (rxt(k,376)* y(k,127) +rxt(k,377)* y(k,265) + rxt(k,37) & + + het_rates(k,49))* y(k,49) + prod(k,247) = (.250_r8*rxt(k,399)*y(k,250) +.050_r8*rxt(k,437)*y(k,246) + & + .250_r8*rxt(k,456)*y(k,274) +.170_r8*rxt(k,474)*y(k,238) + & + .170_r8*rxt(k,480)*y(k,253) +.400_r8*rxt(k,490)*y(k,272) + & + .540_r8*rxt(k,496)*y(k,275) +.510_r8*rxt(k,499)*y(k,277))*y(k,125) & + + (.250_r8*rxt(k,398)*y(k,250) +.050_r8*rxt(k,438)*y(k,246) + & + .250_r8*rxt(k,457)*y(k,274))*y(k,127) & + + (.500_r8*rxt(k,384)*y(k,269) +.240_r8*rxt(k,396)*y(k,250) + & + .100_r8*rxt(k,454)*y(k,274))*y(k,237) & + + (.880_r8*rxt(k,401)*y(k,106) +.500_r8*rxt(k,415)*y(k,112)) & + *y(k,137) + (.250_r8*rxt(k,395)*y(k,250) + & + .250_r8*rxt(k,453)*y(k,274))*y(k,236) & + + (.070_r8*rxt(k,473)*y(k,238) +.070_r8*rxt(k,479)*y(k,253)) & + *y(k,243) + (rxt(k,379)*y(k,95) +rxt(k,380)*y(k,128))*y(k,265) & + +.180_r8*rxt(k,24)*y(k,10) +rxt(k,28)*y(k,14) +.400_r8*rxt(k,71) & + *y(k,218) +.540_r8*rxt(k,73)*y(k,222) +.510_r8*rxt(k,74)*y(k,224) + loss(k,198) = (rxt(k,357)* y(k,265) + het_rates(k,50))* y(k,50) + prod(k,198) = (.100_r8*rxt(k,354)*y(k,237) +.150_r8*rxt(k,355)*y(k,243)) & + *y(k,236) +.120_r8*rxt(k,370)*y(k,137)*y(k,29) & + +.150_r8*rxt(k,406)*y(k,252)*y(k,243) + loss(k,188) = (rxt(k,358)* y(k,265) + rxt(k,38) + het_rates(k,51))* y(k,51) + prod(k,188) = (.400_r8*rxt(k,355)*y(k,236) +.400_r8*rxt(k,406)*y(k,252)) & + *y(k,243) + loss(k,210) = (rxt(k,325)* y(k,265) + het_rates(k,52))* y(k,52) + prod(k,210) = (rxt(k,322)*y(k,237) +.300_r8*rxt(k,343)*y(k,233) + & + .500_r8*rxt(k,384)*y(k,269) +.250_r8*rxt(k,396)*y(k,250) + & + .250_r8*rxt(k,429)*y(k,245) +.250_r8*rxt(k,434)*y(k,246) + & + .200_r8*rxt(k,443)*y(k,101) +.300_r8*rxt(k,454)*y(k,274) + & + .250_r8*rxt(k,508)*y(k,260) +.250_r8*rxt(k,513)*y(k,270) + & + .250_r8*rxt(k,518)*y(k,271))*y(k,237) + loss(k,156) = (rxt(k,326)* y(k,265) + rxt(k,39) + het_rates(k,53))* y(k,53) + prod(k,156) =rxt(k,323)*y(k,243)*y(k,237) + loss(k,261) = (rxt(k,238)* y(k,56) +rxt(k,294)* y(k,73) + (rxt(k,333) + & + rxt(k,334) +rxt(k,335))* y(k,261) +rxt(k,327)* y(k,265) + rxt(k,40) & + + rxt(k,41) + het_rates(k,54))* y(k,54) + prod(k,261) =.100_r8*rxt(k,370)*y(k,137)*y(k,29) + loss(k,157) = (rxt(k,307)* y(k,56) +rxt(k,290)* y(k,261) +rxt(k,308) & + * y(k,265) + rxt(k,91) + het_rates(k,55))* y(k,55) prod(k,157) = 0._r8 - loss(k,267) = (rxt(k,345)* y(k,30) +rxt(k,375)* y(k,33) +rxt(k,297)* y(k,43) & - +rxt(k,234)* y(k,44) +rxt(k,299)* y(k,45) +rxt(k,302)* y(k,48) & - +rxt(k,235)* y(k,56) +rxt(k,304)* y(k,57) +rxt(k,247)* y(k,62) & - +rxt(k,236)* y(k,79) +rxt(k,237)* y(k,81) +rxt(k,256)* y(k,94) & - +rxt(k,240)* y(k,143) + (rxt(k,238) +rxt(k,239))* y(k,247) & - + het_rates(k,58))* y(k,58) - prod(k,267) = (4.000_r8*rxt(k,259)*y(k,35) +rxt(k,260)*y(k,36) + & - 2.000_r8*rxt(k,261)*y(k,38) +2.000_r8*rxt(k,262)*y(k,39) + & - 2.000_r8*rxt(k,263)*y(k,40) +rxt(k,264)*y(k,41) + & - 2.000_r8*rxt(k,265)*y(k,42) +rxt(k,266)*y(k,87) +rxt(k,296)*y(k,67) + & - rxt(k,311)*y(k,84) +rxt(k,312)*y(k,85) +rxt(k,313)*y(k,86))*y(k,261) & - + (rxt(k,94) +rxt(k,241)*y(k,241) +2.000_r8*rxt(k,242)*y(k,61) + & - rxt(k,244)*y(k,61) +rxt(k,246)*y(k,131) +rxt(k,251)*y(k,141) + & - rxt(k,252)*y(k,265) +rxt(k,275)*y(k,21) +rxt(k,530)*y(k,161))*y(k,61) & - + (rxt(k,255)*y(k,87) +3.000_r8*rxt(k,301)*y(k,46) + & - rxt(k,303)*y(k,48) +rxt(k,306)*y(k,84) +rxt(k,307)*y(k,85) + & - rxt(k,308)*y(k,86))*y(k,265) + (rxt(k,104) +rxt(k,254)*y(k,141)) & - *y(k,87) +rxt(k,75)*y(k,20) +4.000_r8*rxt(k,79)*y(k,35) +rxt(k,80) & - *y(k,36) +2.000_r8*rxt(k,82)*y(k,38) +2.000_r8*rxt(k,83)*y(k,39) & - +2.000_r8*rxt(k,84)*y(k,40) +rxt(k,85)*y(k,41) +2.000_r8*rxt(k,86) & - *y(k,42) +3.000_r8*rxt(k,89)*y(k,46) +rxt(k,90)*y(k,48) & - +2.000_r8*rxt(k,92)*y(k,59) +2.000_r8*rxt(k,93)*y(k,60) +rxt(k,95) & - *y(k,62) +rxt(k,98)*y(k,67) +rxt(k,101)*y(k,84) +rxt(k,102)*y(k,85) & - +rxt(k,103)*y(k,86) +rxt(k,107)*y(k,94) - loss(k,106) = ( + rxt(k,92) + het_rates(k,59))* y(k,59) - prod(k,106) = (rxt(k,587)*y(k,94) +rxt(k,592)*y(k,62) +rxt(k,593)*y(k,94) + & - rxt(k,597)*y(k,62) +rxt(k,598)*y(k,94) +rxt(k,602)*y(k,62))*y(k,87) & - +rxt(k,247)*y(k,62)*y(k,58) +rxt(k,243)*y(k,61)*y(k,61) - loss(k,92) = ( + rxt(k,93) + rxt(k,269) + het_rates(k,60))* y(k,60) - prod(k,92) =rxt(k,268)*y(k,61)*y(k,61) - loss(k,259) = ((rxt(k,274) +rxt(k,275) +rxt(k,276))* y(k,21) & - + 2._r8*(rxt(k,242) +rxt(k,243) +rxt(k,244) +rxt(k,268))* y(k,61) & - +rxt(k,246)* y(k,131) +rxt(k,248)* y(k,132) +rxt(k,251)* y(k,141) & - +rxt(k,530)* y(k,161) +rxt(k,241)* y(k,241) +rxt(k,245)* y(k,247) & - + (rxt(k,252) +rxt(k,253))* y(k,265) + rxt(k,94) + het_rates(k,61)) & - * y(k,61) - prod(k,259) = (rxt(k,239)*y(k,247) +rxt(k,240)*y(k,143) +rxt(k,256)*y(k,94)) & - *y(k,58) + (rxt(k,96) +rxt(k,249)*y(k,141))*y(k,62) & - + (rxt(k,257)*y(k,141) +rxt(k,258)*y(k,265))*y(k,94) + (rxt(k,108) + & - rxt(k,535)*y(k,161))*y(k,145) +2.000_r8*rxt(k,269)*y(k,60) & - +rxt(k,267)*y(k,261)*y(k,87) - loss(k,223) = (rxt(k,247)* y(k,58) + (rxt(k,592) +rxt(k,597) +rxt(k,602)) & - * y(k,87) +rxt(k,249)* y(k,141) +rxt(k,250)* y(k,265) + rxt(k,95) & - + rxt(k,96) + rxt(k,590) + rxt(k,595) + rxt(k,601) & - + het_rates(k,62))* y(k,62) - prod(k,223) =rxt(k,248)*y(k,132)*y(k,61) - loss(k,5) = ( + het_rates(k,63))* y(k,63) + loss(k,265) = (rxt(k,348)* y(k,28) +rxt(k,378)* y(k,31) +rxt(k,300)* y(k,41) & + +rxt(k,237)* y(k,42) +rxt(k,302)* y(k,43) +rxt(k,305)* y(k,46) & + +rxt(k,238)* y(k,54) +rxt(k,307)* y(k,55) +rxt(k,250)* y(k,60) & + +rxt(k,239)* y(k,77) +rxt(k,240)* y(k,79) +rxt(k,259)* y(k,92) & + +rxt(k,243)* y(k,137) + (rxt(k,241) +rxt(k,242))* y(k,243) & + + het_rates(k,56))* y(k,56) + prod(k,265) = (4.000_r8*rxt(k,262)*y(k,33) +rxt(k,263)*y(k,34) + & + 2.000_r8*rxt(k,264)*y(k,36) +2.000_r8*rxt(k,265)*y(k,37) + & + 2.000_r8*rxt(k,266)*y(k,38) +rxt(k,267)*y(k,39) + & + 2.000_r8*rxt(k,268)*y(k,40) +rxt(k,269)*y(k,85) +rxt(k,299)*y(k,65) + & + rxt(k,314)*y(k,82) +rxt(k,315)*y(k,83) +rxt(k,316)*y(k,84))*y(k,261) & + + (rxt(k,94) +rxt(k,244)*y(k,237) +2.000_r8*rxt(k,245)*y(k,59) + & + rxt(k,247)*y(k,59) +rxt(k,249)*y(k,125) +rxt(k,254)*y(k,135) + & + rxt(k,255)*y(k,265) +rxt(k,278)*y(k,19) +rxt(k,533)*y(k,157))*y(k,59) & + + (rxt(k,258)*y(k,85) +3.000_r8*rxt(k,304)*y(k,44) + & + rxt(k,306)*y(k,46) +rxt(k,309)*y(k,82) +rxt(k,310)*y(k,83) + & + rxt(k,311)*y(k,84))*y(k,265) + (rxt(k,104) +rxt(k,257)*y(k,135)) & + *y(k,85) +rxt(k,75)*y(k,18) +4.000_r8*rxt(k,79)*y(k,33) +rxt(k,80) & + *y(k,34) +2.000_r8*rxt(k,82)*y(k,36) +2.000_r8*rxt(k,83)*y(k,37) & + +2.000_r8*rxt(k,84)*y(k,38) +rxt(k,85)*y(k,39) +2.000_r8*rxt(k,86) & + *y(k,40) +3.000_r8*rxt(k,89)*y(k,44) +rxt(k,90)*y(k,46) & + +2.000_r8*rxt(k,92)*y(k,57) +2.000_r8*rxt(k,93)*y(k,58) +rxt(k,95) & + *y(k,60) +rxt(k,98)*y(k,65) +rxt(k,101)*y(k,82) +rxt(k,102)*y(k,83) & + +rxt(k,103)*y(k,84) +rxt(k,107)*y(k,92) + loss(k,108) = ( + rxt(k,92) + het_rates(k,57))* y(k,57) + prod(k,108) = (rxt(k,590)*y(k,92) +rxt(k,595)*y(k,60) +rxt(k,596)*y(k,92) + & + rxt(k,600)*y(k,60) +rxt(k,601)*y(k,92) +rxt(k,605)*y(k,60))*y(k,85) & + +rxt(k,250)*y(k,60)*y(k,56) +rxt(k,246)*y(k,59)*y(k,59) + loss(k,94) = ( + rxt(k,93) + rxt(k,272) + het_rates(k,58))* y(k,58) + prod(k,94) =rxt(k,271)*y(k,59)*y(k,59) + loss(k,275) = ((rxt(k,277) +rxt(k,278) +rxt(k,279))* y(k,19) & + + 2._r8*(rxt(k,245) +rxt(k,246) +rxt(k,247) +rxt(k,271))* y(k,59) & + +rxt(k,249)* y(k,125) +rxt(k,251)* y(k,126) +rxt(k,254)* y(k,135) & + +rxt(k,533)* y(k,157) +rxt(k,244)* y(k,237) +rxt(k,248)* y(k,243) & + + (rxt(k,255) +rxt(k,256))* y(k,265) + rxt(k,94) + het_rates(k,59)) & + * y(k,59) + prod(k,275) = (rxt(k,242)*y(k,243) +rxt(k,243)*y(k,137) +rxt(k,259)*y(k,92)) & + *y(k,56) + (rxt(k,96) +rxt(k,252)*y(k,135))*y(k,60) & + + (rxt(k,260)*y(k,135) +rxt(k,261)*y(k,265))*y(k,92) + (rxt(k,108) + & + rxt(k,538)*y(k,157))*y(k,139) +2.000_r8*rxt(k,272)*y(k,58) & + +rxt(k,270)*y(k,261)*y(k,85) + loss(k,226) = (rxt(k,250)* y(k,56) + (rxt(k,595) +rxt(k,600) +rxt(k,605)) & + * y(k,85) +rxt(k,252)* y(k,135) +rxt(k,253)* y(k,265) + rxt(k,95) & + + rxt(k,96) + rxt(k,593) + rxt(k,598) + rxt(k,604) & + + het_rates(k,60))* y(k,60) + prod(k,226) =rxt(k,251)*y(k,126)*y(k,59) + loss(k,5) = ( + het_rates(k,61))* y(k,61) prod(k,5) = 0._r8 - loss(k,236) = (rxt(k,334)* y(k,265) + het_rates(k,64))* y(k,64) - prod(k,236) = (rxt(k,33) +rxt(k,34) +rxt(k,234)*y(k,58) +rxt(k,270)*y(k,19) + & - rxt(k,315)*y(k,133) +rxt(k,316)*y(k,141) +rxt(k,317)*y(k,265)) & - *y(k,44) + (.630_r8*rxt(k,338)*y(k,27) +.560_r8*rxt(k,367)*y(k,31) + & - .650_r8*rxt(k,398)*y(k,111) +.560_r8*rxt(k,412)*y(k,118) + & - .620_r8*rxt(k,445)*y(k,100) +.230_r8*rxt(k,500)*y(k,6) + & - .230_r8*rxt(k,503)*y(k,116))*y(k,143) & - + (.220_r8*rxt(k,396)*y(k,251) +.250_r8*rxt(k,453)*y(k,273) + & - .170_r8*rxt(k,471)*y(k,242) +.400_r8*rxt(k,474)*y(k,252) + & - .350_r8*rxt(k,477)*y(k,254) +.225_r8*rxt(k,512)*y(k,270))*y(k,131) & - + (.350_r8*rxt(k,336)*y(k,26) +rxt(k,361)*y(k,77) + & - rxt(k,374)*y(k,51) +.700_r8*rxt(k,521)*y(k,221) +rxt(k,525)*y(k,146)) & - *y(k,265) + (rxt(k,42) +rxt(k,110) +rxt(k,615)*y(k,266))*y(k,65) & - + (rxt(k,373)*y(k,51) +.220_r8*rxt(k,395)*y(k,251) + & - .500_r8*rxt(k,454)*y(k,273))*y(k,133) & - + (.110_r8*rxt(k,393)*y(k,251) +.200_r8*rxt(k,451)*y(k,273) + & - .125_r8*rxt(k,510)*y(k,270))*y(k,241) & - + (.070_r8*rxt(k,470)*y(k,242) +.160_r8*rxt(k,473)*y(k,252) + & - .140_r8*rxt(k,476)*y(k,254))*y(k,247) + (rxt(k,137) + & - rxt(k,524)*y(k,141))*y(k,146) + (.220_r8*rxt(k,392)*y(k,251) + & - .250_r8*rxt(k,450)*y(k,273))*y(k,240) +1.500_r8*rxt(k,23)*y(k,11) & - +.450_r8*rxt(k,24)*y(k,12) +.600_r8*rxt(k,27)*y(k,15) +rxt(k,28) & - *y(k,16) +rxt(k,35)*y(k,47) +rxt(k,302)*y(k,58)*y(k,48) +rxt(k,37) & - *y(k,51) +.380_r8*rxt(k,40)*y(k,56) +rxt(k,44)*y(k,76) & - +2.000_r8*rxt(k,45)*y(k,77) +.330_r8*rxt(k,46)*y(k,95) & - +1.340_r8*rxt(k,52)*y(k,111) +.700_r8*rxt(k,56)*y(k,118) & - +1.500_r8*rxt(k,65)*y(k,216) +.250_r8*rxt(k,66)*y(k,217) +rxt(k,69) & - *y(k,220) +1.700_r8*rxt(k,70)*y(k,221) - loss(k,252) = (rxt(k,615)* y(k,266) + rxt(k,42) + rxt(k,110) & - + het_rates(k,65))* y(k,65) - prod(k,252) = (rxt(k,326)*y(k,89) +rxt(k,334)*y(k,64) +rxt(k,354)*y(k,52) + & - .500_r8*rxt(k,355)*y(k,53) +.800_r8*rxt(k,360)*y(k,76) + & - rxt(k,361)*y(k,77) +.500_r8*rxt(k,411)*y(k,115) + & - 1.800_r8*rxt(k,521)*y(k,221))*y(k,265) & - + (2.000_r8*rxt(k,350)*y(k,240) +.900_r8*rxt(k,351)*y(k,241) + & - rxt(k,353)*y(k,131) +2.000_r8*rxt(k,401)*y(k,253) + & - rxt(k,425)*y(k,249) +rxt(k,450)*y(k,273))*y(k,240) & - + (.200_r8*rxt(k,367)*y(k,31) +.100_r8*rxt(k,412)*y(k,118) + & - .270_r8*rxt(k,500)*y(k,6) +.270_r8*rxt(k,503)*y(k,116))*y(k,143) & - + (rxt(k,402)*y(k,241) +.450_r8*rxt(k,403)*y(k,247) + & - 2.000_r8*rxt(k,404)*y(k,253))*y(k,253) & - + (.500_r8*rxt(k,510)*y(k,241) +.900_r8*rxt(k,512)*y(k,131)) & - *y(k,270) +rxt(k,38)*y(k,53) +.440_r8*rxt(k,40)*y(k,56) & - +.400_r8*rxt(k,61)*y(k,148) +rxt(k,66)*y(k,217) +.800_r8*rxt(k,70) & - *y(k,221) - loss(k,119) = (rxt(k,295)* y(k,261) + rxt(k,97) + het_rates(k,66))* y(k,66) - prod(k,119) = (rxt(k,260)*y(k,36) +rxt(k,262)*y(k,39) + & - 2.000_r8*rxt(k,263)*y(k,40) +2.000_r8*rxt(k,264)*y(k,41) + & - rxt(k,265)*y(k,42) +rxt(k,286)*y(k,37) +2.000_r8*rxt(k,288)*y(k,80) + & - rxt(k,312)*y(k,85) +rxt(k,313)*y(k,86))*y(k,261) + (rxt(k,102) + & - rxt(k,307)*y(k,265))*y(k,85) + (rxt(k,103) +rxt(k,308)*y(k,265)) & - *y(k,86) +rxt(k,80)*y(k,36) +rxt(k,81)*y(k,37) +rxt(k,83)*y(k,39) & - +2.000_r8*rxt(k,84)*y(k,40) +2.000_r8*rxt(k,85)*y(k,41) +rxt(k,86) & - *y(k,42) +2.000_r8*rxt(k,99)*y(k,80) - loss(k,126) = (rxt(k,296)* y(k,261) + rxt(k,98) + het_rates(k,67))* y(k,67) - prod(k,126) = (rxt(k,101) +rxt(k,306)*y(k,265) +rxt(k,311)*y(k,261))*y(k,84) & - + (rxt(k,82) +rxt(k,261)*y(k,261))*y(k,38) + (rxt(k,83) + & - rxt(k,262)*y(k,261))*y(k,39) - loss(k,113) = (rxt(k,469)* y(k,265) + het_rates(k,68))* y(k,68) - prod(k,113) =.180_r8*rxt(k,489)*y(k,265)*y(k,223) - loss(k,138) = (rxt(k,522)* y(k,133) + (rxt(k,523) +rxt(k,537))* y(k,265) & - + het_rates(k,69))* y(k,69) + loss(k,238) = (rxt(k,337)* y(k,265) + het_rates(k,62))* y(k,62) + prod(k,238) = (rxt(k,33) +rxt(k,34) +rxt(k,237)*y(k,56) +rxt(k,273)*y(k,17) + & + rxt(k,318)*y(k,127) +rxt(k,319)*y(k,135) +rxt(k,320)*y(k,265)) & + *y(k,42) + (.630_r8*rxt(k,341)*y(k,25) +.560_r8*rxt(k,370)*y(k,29) + & + .650_r8*rxt(k,401)*y(k,106) +.560_r8*rxt(k,415)*y(k,112) + & + .620_r8*rxt(k,448)*y(k,98) +.230_r8*rxt(k,503)*y(k,6) + & + .230_r8*rxt(k,506)*y(k,111))*y(k,137) & + + (.220_r8*rxt(k,399)*y(k,250) +.250_r8*rxt(k,456)*y(k,274) + & + .170_r8*rxt(k,474)*y(k,238) +.400_r8*rxt(k,477)*y(k,251) + & + .350_r8*rxt(k,480)*y(k,253) +.225_r8*rxt(k,515)*y(k,270))*y(k,125) & + + (.350_r8*rxt(k,339)*y(k,24) +rxt(k,364)*y(k,75) + & + rxt(k,377)*y(k,49) +.700_r8*rxt(k,524)*y(k,217) +rxt(k,528)*y(k,140)) & + *y(k,265) + (rxt(k,42) +rxt(k,110) +rxt(k,618)*y(k,266))*y(k,63) & + + (rxt(k,376)*y(k,49) +.220_r8*rxt(k,398)*y(k,250) + & + .500_r8*rxt(k,457)*y(k,274))*y(k,127) & + + (.110_r8*rxt(k,396)*y(k,250) +.200_r8*rxt(k,454)*y(k,274) + & + .125_r8*rxt(k,513)*y(k,270))*y(k,237) & + + (.070_r8*rxt(k,473)*y(k,238) +.160_r8*rxt(k,476)*y(k,251) + & + .140_r8*rxt(k,479)*y(k,253))*y(k,243) + (rxt(k,137) + & + rxt(k,527)*y(k,135))*y(k,140) + (.220_r8*rxt(k,395)*y(k,250) + & + .250_r8*rxt(k,453)*y(k,274))*y(k,236) +1.500_r8*rxt(k,23)*y(k,9) & + +.450_r8*rxt(k,24)*y(k,10) +.600_r8*rxt(k,27)*y(k,13) +rxt(k,28) & + *y(k,14) +rxt(k,35)*y(k,45) +rxt(k,305)*y(k,56)*y(k,46) +rxt(k,37) & + *y(k,49) +.380_r8*rxt(k,40)*y(k,54) +rxt(k,44)*y(k,74) & + +2.000_r8*rxt(k,45)*y(k,75) +.330_r8*rxt(k,46)*y(k,93) & + +1.340_r8*rxt(k,52)*y(k,106) +.700_r8*rxt(k,56)*y(k,112) & + +1.500_r8*rxt(k,65)*y(k,212) +.250_r8*rxt(k,66)*y(k,213) +rxt(k,69) & + *y(k,216) +1.700_r8*rxt(k,70)*y(k,217) + loss(k,254) = (rxt(k,618)* y(k,266) + rxt(k,42) + rxt(k,110) & + + het_rates(k,63))* y(k,63) + prod(k,254) = (rxt(k,329)*y(k,87) +rxt(k,337)*y(k,62) +rxt(k,357)*y(k,50) + & + .500_r8*rxt(k,358)*y(k,51) +.800_r8*rxt(k,363)*y(k,74) + & + rxt(k,364)*y(k,75) +.500_r8*rxt(k,414)*y(k,110) + & + 1.800_r8*rxt(k,524)*y(k,217))*y(k,265) & + + (2.000_r8*rxt(k,353)*y(k,236) +.900_r8*rxt(k,354)*y(k,237) + & + rxt(k,356)*y(k,125) +2.000_r8*rxt(k,404)*y(k,252) + & + rxt(k,428)*y(k,245) +rxt(k,453)*y(k,274))*y(k,236) & + + (.200_r8*rxt(k,370)*y(k,29) +.100_r8*rxt(k,415)*y(k,112) + & + .270_r8*rxt(k,503)*y(k,6) +.270_r8*rxt(k,506)*y(k,111))*y(k,137) & + + (rxt(k,405)*y(k,237) +.450_r8*rxt(k,406)*y(k,243) + & + 2.000_r8*rxt(k,407)*y(k,252))*y(k,252) & + + (.500_r8*rxt(k,513)*y(k,237) +.900_r8*rxt(k,515)*y(k,125)) & + *y(k,270) +rxt(k,38)*y(k,51) +.440_r8*rxt(k,40)*y(k,54) & + +.400_r8*rxt(k,61)*y(k,142) +rxt(k,66)*y(k,213) +.800_r8*rxt(k,70) & + *y(k,217) + loss(k,126) = (rxt(k,298)* y(k,261) + rxt(k,97) + het_rates(k,64))* y(k,64) + prod(k,126) = (rxt(k,263)*y(k,34) +rxt(k,265)*y(k,37) + & + 2.000_r8*rxt(k,266)*y(k,38) +2.000_r8*rxt(k,267)*y(k,39) + & + rxt(k,268)*y(k,40) +rxt(k,289)*y(k,35) +2.000_r8*rxt(k,291)*y(k,78) + & + rxt(k,315)*y(k,83) +rxt(k,316)*y(k,84))*y(k,261) + (rxt(k,102) + & + rxt(k,310)*y(k,265))*y(k,83) + (rxt(k,103) +rxt(k,311)*y(k,265)) & + *y(k,84) +rxt(k,80)*y(k,34) +rxt(k,81)*y(k,35) +rxt(k,83)*y(k,37) & + +2.000_r8*rxt(k,84)*y(k,38) +2.000_r8*rxt(k,85)*y(k,39) +rxt(k,86) & + *y(k,40) +2.000_r8*rxt(k,99)*y(k,78) + loss(k,128) = (rxt(k,299)* y(k,261) + rxt(k,98) + het_rates(k,65))* y(k,65) + prod(k,128) = (rxt(k,101) +rxt(k,309)*y(k,265) +rxt(k,314)*y(k,261))*y(k,82) & + + (rxt(k,82) +rxt(k,264)*y(k,261))*y(k,36) + (rxt(k,83) + & + rxt(k,265)*y(k,261))*y(k,37) + loss(k,115) = (rxt(k,472)* y(k,265) + het_rates(k,66))* y(k,66) + prod(k,115) =.180_r8*rxt(k,492)*y(k,265)*y(k,219) + loss(k,138) = (rxt(k,525)* y(k,127) + (rxt(k,526) +rxt(k,540))* y(k,265) & + + het_rates(k,67))* y(k,67) prod(k,138) = 0._r8 - loss(k,6) = ( + het_rates(k,70))* y(k,70) + loss(k,6) = ( + het_rates(k,68))* y(k,68) prod(k,6) = 0._r8 - loss(k,7) = ( + het_rates(k,71))* y(k,71) + loss(k,7) = ( + het_rates(k,69))* y(k,69) prod(k,7) = 0._r8 - loss(k,8) = ( + het_rates(k,72))* y(k,72) + loss(k,8) = ( + het_rates(k,70))* y(k,70) prod(k,8) = 0._r8 - loss(k,9) = ( + rxt(k,618) + het_rates(k,73))* y(k,73) + loss(k,9) = ( + rxt(k,621) + het_rates(k,71))* y(k,71) prod(k,9) = 0._r8 - loss(k,100) = ( + rxt(k,43) + het_rates(k,74))* y(k,74) - prod(k,100) =rxt(k,356)*y(k,247)*y(k,246) - loss(k,219) = (rxt(k,291)* y(k,56) +rxt(k,292)* y(k,79) +rxt(k,294)* y(k,91) & - +rxt(k,293)* y(k,276) + het_rates(k,75))* y(k,75) - prod(k,219) = (rxt(k,264)*y(k,41) +rxt(k,286)*y(k,37) + & - 2.000_r8*rxt(k,295)*y(k,66) +rxt(k,296)*y(k,67))*y(k,261) +rxt(k,81) & - *y(k,37) +rxt(k,85)*y(k,41) +2.000_r8*rxt(k,97)*y(k,66) +rxt(k,98) & - *y(k,67) +rxt(k,105)*y(k,90) - loss(k,237) = (rxt(k,360)* y(k,265) + rxt(k,44) + het_rates(k,76))* y(k,76) - prod(k,237) = (.530_r8*rxt(k,396)*y(k,251) +.050_r8*rxt(k,434)*y(k,250) + & - .250_r8*rxt(k,453)*y(k,273) +.225_r8*rxt(k,512)*y(k,270))*y(k,131) & - + (.530_r8*rxt(k,395)*y(k,251) +.050_r8*rxt(k,435)*y(k,250) + & - .250_r8*rxt(k,454)*y(k,273))*y(k,133) & - + (.260_r8*rxt(k,393)*y(k,251) +.100_r8*rxt(k,451)*y(k,273) + & - .125_r8*rxt(k,510)*y(k,270))*y(k,241) & - + (.700_r8*rxt(k,436)*y(k,101) +.500_r8*rxt(k,437)*y(k,102) + & - rxt(k,448)*y(k,122))*y(k,265) + (.530_r8*rxt(k,392)*y(k,251) + & - .250_r8*rxt(k,450)*y(k,273))*y(k,240) +.330_r8*rxt(k,46)*y(k,95) & - +rxt(k,359)*y(k,245)*y(k,142) +.250_r8*rxt(k,66)*y(k,217) - loss(k,227) = (rxt(k,361)* y(k,265) + rxt(k,45) + rxt(k,582) & - + het_rates(k,77))* y(k,77) - prod(k,227) = (.050_r8*rxt(k,434)*y(k,250) +.250_r8*rxt(k,453)*y(k,273) + & - rxt(k,460)*y(k,235) +.400_r8*rxt(k,474)*y(k,252) + & - .170_r8*rxt(k,477)*y(k,254) +.700_r8*rxt(k,480)*y(k,267) + & - .600_r8*rxt(k,487)*y(k,272) +.340_r8*rxt(k,493)*y(k,274) + & - .170_r8*rxt(k,496)*y(k,275))*y(k,131) + (.650_r8*rxt(k,336)*y(k,26) + & - .200_r8*rxt(k,360)*y(k,76) +rxt(k,449)*y(k,123))*y(k,265) & - + (.250_r8*rxt(k,450)*y(k,240) +.100_r8*rxt(k,451)*y(k,241) + & - .250_r8*rxt(k,454)*y(k,133))*y(k,273) & - + (.160_r8*rxt(k,473)*y(k,252) +.070_r8*rxt(k,476)*y(k,254)) & - *y(k,247) +rxt(k,22)*y(k,10) +.130_r8*rxt(k,24)*y(k,12) & - +.050_r8*rxt(k,435)*y(k,250)*y(k,133) +.700_r8*rxt(k,62)*y(k,152) & - +.600_r8*rxt(k,71)*y(k,222) +.340_r8*rxt(k,73)*y(k,227) & - +.170_r8*rxt(k,74)*y(k,230) - loss(k,268) = (rxt(k,195)* y(k,142) +rxt(k,198)* y(k,143) + (rxt(k,192) + & - rxt(k,193) +rxt(k,194))* y(k,247) + het_rates(k,78))* y(k,78) - prod(k,268) = (rxt(k,199)*y(k,79) +rxt(k,202)*y(k,141) +rxt(k,222)*y(k,119) + & - rxt(k,317)*y(k,44) +rxt(k,525)*y(k,146) +rxt(k,531)*y(k,159) + & - rxt(k,536)*y(k,161))*y(k,265) + (rxt(k,173)*y(k,261) + & - rxt(k,190)*y(k,141) +rxt(k,236)*y(k,58) +rxt(k,292)*y(k,75))*y(k,79) & - + (.330_r8*rxt(k,40) +rxt(k,41) +rxt(k,331)*y(k,261))*y(k,56) & - + (rxt(k,100) +rxt(k,290)*y(k,261))*y(k,83) + (rxt(k,104) + & - rxt(k,267)*y(k,261))*y(k,87) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,276) & - +2.000_r8*rxt(k,34)*y(k,44) +rxt(k,39)*y(k,55) +rxt(k,105)*y(k,90) - loss(k,253) = (rxt(k,236)* y(k,58) +rxt(k,292)* y(k,75) +rxt(k,190)* y(k,141) & - +rxt(k,173)* y(k,261) +rxt(k,199)* y(k,265) + het_rates(k,79)) & - * y(k,79) - prod(k,253) = (1.440_r8*rxt(k,40) +rxt(k,332)*y(k,261))*y(k,56) +rxt(k,33) & - *y(k,44) +rxt(k,192)*y(k,247)*y(k,78) +rxt(k,1)*y(k,276) - loss(k,97) = (rxt(k,288)* y(k,261) + rxt(k,99) + het_rates(k,80))* y(k,80) - prod(k,97) = 0._r8 - loss(k,184) = (rxt(k,237)* y(k,58) +rxt(k,191)* y(k,141) +rxt(k,200) & - * y(k,265) + rxt(k,4) + het_rates(k,81))* y(k,81) - prod(k,184) =rxt(k,206)*y(k,247)*y(k,247) +rxt(k,205)*y(k,265)*y(k,265) - loss(k,99) = ( + rxt(k,136) + het_rates(k,82))* y(k,82) - prod(k,99) =rxt(k,538)*y(k,276)*y(k,163) - loss(k,210) = (rxt(k,283)* y(k,141) + (rxt(k,289) +rxt(k,290))* y(k,261) & - +rxt(k,284)* y(k,265) + rxt(k,100) + het_rates(k,83))* y(k,83) - prod(k,210) = (rxt(k,270)*y(k,44) +rxt(k,271)*y(k,247))*y(k,19) - loss(k,125) = (rxt(k,311)* y(k,261) +rxt(k,306)* y(k,265) + rxt(k,101) & - + het_rates(k,84))* y(k,84) - prod(k,125) = 0._r8 - loss(k,127) = (rxt(k,312)* y(k,261) +rxt(k,307)* y(k,265) + rxt(k,102) & - + het_rates(k,85))* y(k,85) + loss(k,106) = ( + rxt(k,43) + het_rates(k,72))* y(k,72) + prod(k,106) =rxt(k,359)*y(k,243)*y(k,242) + loss(k,221) = (rxt(k,294)* y(k,54) +rxt(k,295)* y(k,77) +rxt(k,297)* y(k,89) & + +rxt(k,296)* y(k,278) + het_rates(k,73))* y(k,73) + prod(k,221) = (rxt(k,267)*y(k,39) +rxt(k,289)*y(k,35) + & + 2.000_r8*rxt(k,298)*y(k,64) +rxt(k,299)*y(k,65))*y(k,261) +rxt(k,81) & + *y(k,35) +rxt(k,85)*y(k,39) +2.000_r8*rxt(k,97)*y(k,64) +rxt(k,98) & + *y(k,65) +rxt(k,105)*y(k,88) + loss(k,239) = (rxt(k,363)* y(k,265) + rxt(k,44) + het_rates(k,74))* y(k,74) + prod(k,239) = (.530_r8*rxt(k,399)*y(k,250) +.050_r8*rxt(k,437)*y(k,246) + & + .250_r8*rxt(k,456)*y(k,274) +.225_r8*rxt(k,515)*y(k,270))*y(k,125) & + + (.530_r8*rxt(k,398)*y(k,250) +.050_r8*rxt(k,438)*y(k,246) + & + .250_r8*rxt(k,457)*y(k,274))*y(k,127) & + + (.260_r8*rxt(k,396)*y(k,250) +.100_r8*rxt(k,454)*y(k,274) + & + .125_r8*rxt(k,513)*y(k,270))*y(k,237) + (.700_r8*rxt(k,439)*y(k,99) + & + .500_r8*rxt(k,440)*y(k,100) +rxt(k,451)*y(k,116))*y(k,265) & + + (.530_r8*rxt(k,395)*y(k,250) +.250_r8*rxt(k,453)*y(k,274)) & + *y(k,236) +.330_r8*rxt(k,46)*y(k,93) +rxt(k,362)*y(k,241)*y(k,136) & + +.250_r8*rxt(k,66)*y(k,213) + loss(k,229) = (rxt(k,364)* y(k,265) + rxt(k,45) + rxt(k,585) & + + het_rates(k,75))* y(k,75) + prod(k,229) = (.050_r8*rxt(k,437)*y(k,246) +.250_r8*rxt(k,456)*y(k,274) + & + rxt(k,463)*y(k,230) +.400_r8*rxt(k,477)*y(k,251) + & + .170_r8*rxt(k,480)*y(k,253) +.700_r8*rxt(k,483)*y(k,267) + & + .600_r8*rxt(k,490)*y(k,272) +.340_r8*rxt(k,496)*y(k,275) + & + .170_r8*rxt(k,499)*y(k,277))*y(k,125) + (.650_r8*rxt(k,339)*y(k,24) + & + .200_r8*rxt(k,363)*y(k,74) +rxt(k,452)*y(k,117))*y(k,265) & + + (.250_r8*rxt(k,453)*y(k,236) +.100_r8*rxt(k,454)*y(k,237) + & + .250_r8*rxt(k,457)*y(k,127))*y(k,274) & + + (.160_r8*rxt(k,476)*y(k,251) +.070_r8*rxt(k,479)*y(k,253)) & + *y(k,243) +rxt(k,22)*y(k,8) +.130_r8*rxt(k,24)*y(k,10) & + +.050_r8*rxt(k,438)*y(k,246)*y(k,127) +.700_r8*rxt(k,62)*y(k,146) & + +.600_r8*rxt(k,71)*y(k,218) +.340_r8*rxt(k,73)*y(k,222) & + +.170_r8*rxt(k,74)*y(k,224) + loss(k,268) = (rxt(k,195)* y(k,136) +rxt(k,198)* y(k,137) + (rxt(k,192) + & + rxt(k,193) +rxt(k,194))* y(k,243) + het_rates(k,76))* y(k,76) + prod(k,268) = (rxt(k,199)*y(k,77) +rxt(k,202)*y(k,135) +rxt(k,222)*y(k,113) + & + rxt(k,320)*y(k,42) +rxt(k,528)*y(k,140) +rxt(k,534)*y(k,155) + & + rxt(k,539)*y(k,157))*y(k,265) + (rxt(k,173)*y(k,261) + & + rxt(k,190)*y(k,135) +rxt(k,239)*y(k,56) +rxt(k,295)*y(k,73))*y(k,77) & + + (.330_r8*rxt(k,40) +rxt(k,41) +rxt(k,334)*y(k,261))*y(k,54) & + + (rxt(k,100) +rxt(k,293)*y(k,261))*y(k,81) + (rxt(k,104) + & + rxt(k,270)*y(k,261))*y(k,85) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,278) & + +2.000_r8*rxt(k,34)*y(k,42) +rxt(k,39)*y(k,53) +rxt(k,105)*y(k,88) + loss(k,255) = (rxt(k,239)* y(k,56) +rxt(k,295)* y(k,73) +rxt(k,190)* y(k,135) & + +rxt(k,173)* y(k,261) +rxt(k,199)* y(k,265) + het_rates(k,77)) & + * y(k,77) + prod(k,255) = (1.440_r8*rxt(k,40) +rxt(k,335)*y(k,261))*y(k,54) +rxt(k,33) & + *y(k,42) +rxt(k,192)*y(k,243)*y(k,76) +rxt(k,1)*y(k,278) + loss(k,99) = (rxt(k,291)* y(k,261) + rxt(k,99) + het_rates(k,78))* y(k,78) + prod(k,99) = 0._r8 + loss(k,185) = (rxt(k,240)* y(k,56) +rxt(k,191)* y(k,135) +rxt(k,200) & + * y(k,265) + rxt(k,4) + het_rates(k,79))* y(k,79) + prod(k,185) =rxt(k,206)*y(k,243)*y(k,243) +rxt(k,205)*y(k,265)*y(k,265) + loss(k,107) = ( + rxt(k,136) + het_rates(k,80))* y(k,80) + prod(k,107) =rxt(k,541)*y(k,278)*y(k,159) + loss(k,211) = (rxt(k,286)* y(k,135) + (rxt(k,292) +rxt(k,293))* y(k,261) & + +rxt(k,287)* y(k,265) + rxt(k,100) + het_rates(k,81))* y(k,81) + prod(k,211) = (rxt(k,273)*y(k,42) +rxt(k,274)*y(k,243))*y(k,17) + loss(k,127) = (rxt(k,314)* y(k,261) +rxt(k,309)* y(k,265) + rxt(k,101) & + + het_rates(k,82))* y(k,82) prod(k,127) = 0._r8 - loss(k,139) = (rxt(k,313)* y(k,261) +rxt(k,308)* y(k,265) + rxt(k,103) & - + het_rates(k,86))* y(k,86) - prod(k,139) = 0._r8 - loss(k,255) = ((rxt(k,592) +rxt(k,597) +rxt(k,602))* y(k,62) + (rxt(k,594) + & - rxt(k,599))* y(k,93) + (rxt(k,587) +rxt(k,593) +rxt(k,598))* y(k,94) & - +rxt(k,254)* y(k,141) + (rxt(k,266) +rxt(k,267))* y(k,261) & - +rxt(k,255)* y(k,265) + rxt(k,104) + het_rates(k,87))* y(k,87) - prod(k,255) = (rxt(k,234)*y(k,44) +rxt(k,235)*y(k,56) +rxt(k,236)*y(k,79) + & - rxt(k,237)*y(k,81) +rxt(k,238)*y(k,247) +rxt(k,256)*y(k,94) + & - rxt(k,297)*y(k,43) +rxt(k,299)*y(k,45) +2.000_r8*rxt(k,302)*y(k,48) + & - rxt(k,304)*y(k,57) +rxt(k,345)*y(k,30) +rxt(k,375)*y(k,33))*y(k,58) & - +rxt(k,253)*y(k,265)*y(k,61) - loss(k,116) = (rxt(k,333)* y(k,261) +rxt(k,325)* y(k,265) + het_rates(k,88)) & - * y(k,88) - prod(k,116) = 0._r8 - loss(k,216) = (rxt(k,326)* y(k,265) + het_rates(k,89))* y(k,89) - prod(k,216) = (.370_r8*rxt(k,338)*y(k,27) +.120_r8*rxt(k,367)*y(k,31) + & - .330_r8*rxt(k,398)*y(k,111) +.120_r8*rxt(k,412)*y(k,118) + & - .110_r8*rxt(k,445)*y(k,100) +.050_r8*rxt(k,500)*y(k,6) + & - .050_r8*rxt(k,503)*y(k,116))*y(k,143) + (rxt(k,327)*y(k,247) + & - rxt(k,329)*y(k,131))*y(k,248) +.350_r8*rxt(k,336)*y(k,265)*y(k,26) - loss(k,137) = ( + rxt(k,105) + het_rates(k,90))* y(k,90) - prod(k,137) = (rxt(k,291)*y(k,56) +rxt(k,292)*y(k,79) +rxt(k,293)*y(k,276) + & - rxt(k,294)*y(k,91))*y(k,75) - loss(k,269) = (rxt(k,294)* y(k,75) +rxt(k,231)* y(k,265) + rxt(k,9) & - + het_rates(k,91))* y(k,91) - prod(k,269) = (rxt(k,590) +rxt(k,595) +rxt(k,601) +rxt(k,592)*y(k,87) + & - rxt(k,597)*y(k,87) +rxt(k,602)*y(k,87))*y(k,62) + (rxt(k,549) + & - rxt(k,315)*y(k,44) +rxt(k,347)*y(k,47) +rxt(k,373)*y(k,51) + & - rxt(k,522)*y(k,69))*y(k,133) + (2.000_r8*rxt(k,544) + & - 2.000_r8*rxt(k,586) +2.000_r8*rxt(k,589) +2.000_r8*rxt(k,600)) & - *y(k,121) + (rxt(k,588) +rxt(k,591) +rxt(k,596))*y(k,22) & - + (.500_r8*rxt(k,548) +rxt(k,230)*y(k,265))*y(k,132) +rxt(k,541) & - *y(k,95) +rxt(k,542)*y(k,101) +rxt(k,543)*y(k,102) +rxt(k,545) & - *y(k,122) +rxt(k,546)*y(k,123) +rxt(k,550)*y(k,135) +rxt(k,551) & - *y(k,147) +rxt(k,552)*y(k,218) - loss(k,167) = (rxt(k,207)* y(k,265) + rxt(k,10) + rxt(k,11) + rxt(k,232) & + loss(k,129) = (rxt(k,315)* y(k,261) +rxt(k,310)* y(k,265) + rxt(k,102) & + + het_rates(k,83))* y(k,83) + prod(k,129) = 0._r8 + loss(k,140) = (rxt(k,316)* y(k,261) +rxt(k,311)* y(k,265) + rxt(k,103) & + + het_rates(k,84))* y(k,84) + prod(k,140) = 0._r8 + loss(k,257) = ((rxt(k,595) +rxt(k,600) +rxt(k,605))* y(k,60) + (rxt(k,597) + & + rxt(k,602))* y(k,91) + (rxt(k,590) +rxt(k,596) +rxt(k,601))* y(k,92) & + +rxt(k,257)* y(k,135) + (rxt(k,269) +rxt(k,270))* y(k,261) & + +rxt(k,258)* y(k,265) + rxt(k,104) + het_rates(k,85))* y(k,85) + prod(k,257) = (rxt(k,237)*y(k,42) +rxt(k,238)*y(k,54) +rxt(k,239)*y(k,77) + & + rxt(k,240)*y(k,79) +rxt(k,241)*y(k,243) +rxt(k,259)*y(k,92) + & + rxt(k,300)*y(k,41) +rxt(k,302)*y(k,43) +2.000_r8*rxt(k,305)*y(k,46) + & + rxt(k,307)*y(k,55) +rxt(k,348)*y(k,28) +rxt(k,378)*y(k,31))*y(k,56) & + +rxt(k,256)*y(k,265)*y(k,59) + loss(k,118) = (rxt(k,336)* y(k,261) +rxt(k,328)* y(k,265) + het_rates(k,86)) & + * y(k,86) + prod(k,118) = 0._r8 + loss(k,219) = (rxt(k,329)* y(k,265) + het_rates(k,87))* y(k,87) + prod(k,219) = (.370_r8*rxt(k,341)*y(k,25) +.120_r8*rxt(k,370)*y(k,29) + & + .330_r8*rxt(k,401)*y(k,106) +.120_r8*rxt(k,415)*y(k,112) + & + .110_r8*rxt(k,448)*y(k,98) +.050_r8*rxt(k,503)*y(k,6) + & + .050_r8*rxt(k,506)*y(k,111))*y(k,137) + (rxt(k,330)*y(k,243) + & + rxt(k,332)*y(k,125))*y(k,244) +.350_r8*rxt(k,339)*y(k,265)*y(k,24) + loss(k,141) = ( + rxt(k,105) + het_rates(k,88))* y(k,88) + prod(k,141) = (rxt(k,294)*y(k,54) +rxt(k,295)*y(k,77) +rxt(k,296)*y(k,278) + & + rxt(k,297)*y(k,89))*y(k,73) + loss(k,271) = (rxt(k,297)* y(k,73) +rxt(k,231)* y(k,265) + rxt(k,9) & + + het_rates(k,89))* y(k,89) + prod(k,271) = (rxt(k,593) +rxt(k,598) +rxt(k,604) +rxt(k,595)*y(k,85) + & + rxt(k,600)*y(k,85) +rxt(k,605)*y(k,85))*y(k,60) + (rxt(k,552) + & + rxt(k,318)*y(k,42) +rxt(k,350)*y(k,45) +rxt(k,376)*y(k,49) + & + rxt(k,525)*y(k,67))*y(k,127) + (2.000_r8*rxt(k,547) + & + 2.000_r8*rxt(k,589) +2.000_r8*rxt(k,592) +2.000_r8*rxt(k,603)) & + *y(k,115) + (rxt(k,591) +rxt(k,594) +rxt(k,599))*y(k,20) & + + (.500_r8*rxt(k,551) +rxt(k,230)*y(k,265))*y(k,126) +rxt(k,544) & + *y(k,93) +rxt(k,545)*y(k,99) +rxt(k,546)*y(k,100) +rxt(k,548) & + *y(k,116) +rxt(k,549)*y(k,117) +rxt(k,553)*y(k,129) +rxt(k,554) & + *y(k,141) +rxt(k,555)*y(k,214) + loss(k,173) = (rxt(k,208)* y(k,265) + rxt(k,10) + rxt(k,11) + rxt(k,232) & + + het_rates(k,90))* y(k,90) + prod(k,173) =rxt(k,228)*y(k,243)*y(k,126) + loss(k,206) = ((rxt(k,597) +rxt(k,602))* y(k,85) +rxt(k,288)* y(k,135) & + + rxt(k,106) + het_rates(k,91))* y(k,91) + prod(k,206) = (rxt(k,591) +rxt(k,594) +rxt(k,599))*y(k,20) & + +rxt(k,280)*y(k,243)*y(k,19) + loss(k,212) = (rxt(k,259)* y(k,56) + (rxt(k,590) +rxt(k,596) +rxt(k,601)) & + * y(k,85) +rxt(k,260)* y(k,135) +rxt(k,261)* y(k,265) + rxt(k,107) & + het_rates(k,92))* y(k,92) - prod(k,167) =rxt(k,228)*y(k,247)*y(k,132) - loss(k,205) = ((rxt(k,594) +rxt(k,599))* y(k,87) +rxt(k,285)* y(k,141) & - + rxt(k,106) + het_rates(k,93))* y(k,93) - prod(k,205) = (rxt(k,588) +rxt(k,591) +rxt(k,596))*y(k,22) & - +rxt(k,277)*y(k,247)*y(k,21) - loss(k,209) = (rxt(k,256)* y(k,58) + (rxt(k,587) +rxt(k,593) +rxt(k,598)) & - * y(k,87) +rxt(k,257)* y(k,141) +rxt(k,258)* y(k,265) + rxt(k,107) & - + het_rates(k,94))* y(k,94) - prod(k,209) = (rxt(k,590) +rxt(k,595) +rxt(k,601) +rxt(k,250)*y(k,265)) & - *y(k,62) +rxt(k,245)*y(k,247)*y(k,61) - loss(k,239) = (rxt(k,391)* y(k,265) + rxt(k,46) + rxt(k,541) & - + het_rates(k,95))* y(k,95) - prod(k,239) = (rxt(k,390)*y(k,244) +rxt(k,397)*y(k,251))*y(k,131) & - + (.300_r8*rxt(k,436)*y(k,101) +.500_r8*rxt(k,437)*y(k,102)) & - *y(k,265) - loss(k,124) = (rxt(k,422)* y(k,265) + rxt(k,47) + het_rates(k,96))* y(k,96) - prod(k,124) =rxt(k,433)*y(k,250) - loss(k,240) = (rxt(k,376)* y(k,265) + rxt(k,48) + het_rates(k,97))* y(k,97) - prod(k,240) = (.220_r8*rxt(k,392)*y(k,240) +.230_r8*rxt(k,393)*y(k,241) + & - .220_r8*rxt(k,395)*y(k,133) +.220_r8*rxt(k,396)*y(k,131))*y(k,251) & - + (.500_r8*rxt(k,380)*y(k,157) +.500_r8*rxt(k,411)*y(k,115) + & - .700_r8*rxt(k,436)*y(k,101) +.500_r8*rxt(k,437)*y(k,102))*y(k,265) & - + (.250_r8*rxt(k,450)*y(k,240) +.100_r8*rxt(k,451)*y(k,241) + & - .250_r8*rxt(k,453)*y(k,131) +.250_r8*rxt(k,454)*y(k,133))*y(k,273) & - + (.050_r8*rxt(k,434)*y(k,131) +.050_r8*rxt(k,435)*y(k,133)) & - *y(k,250) +.170_r8*rxt(k,46)*y(k,95) +.200_r8*rxt(k,381)*y(k,269) & - *y(k,241) - loss(k,147) = (rxt(k,423)* y(k,265) + het_rates(k,98))* y(k,98) - prod(k,147) = (rxt(k,430)*y(k,240) +.750_r8*rxt(k,431)*y(k,241) + & - .870_r8*rxt(k,434)*y(k,131) +.950_r8*rxt(k,435)*y(k,133))*y(k,250) - loss(k,98) = (rxt(k,424)* y(k,265) + het_rates(k,99))* y(k,99) - prod(k,98) =.600_r8*rxt(k,447)*y(k,265)*y(k,106) - loss(k,214) = (rxt(k,438)* y(k,133) +rxt(k,445)* y(k,143) +rxt(k,446) & - * y(k,265) + het_rates(k,100))* y(k,100) - prod(k,214) = 0._r8 - loss(k,185) = (rxt(k,436)* y(k,265) + rxt(k,542) + het_rates(k,101)) & - * y(k,101) - prod(k,185) =.080_r8*rxt(k,428)*y(k,249)*y(k,131) - loss(k,178) = (rxt(k,437)* y(k,265) + rxt(k,543) + het_rates(k,102)) & - * y(k,102) - prod(k,178) =.080_r8*rxt(k,434)*y(k,250)*y(k,131) - loss(k,243) = (rxt(k,442)* y(k,131) +rxt(k,443)* y(k,133) +rxt(k,439) & - * y(k,240) +rxt(k,440)* y(k,241) +rxt(k,441)* y(k,247) & - + het_rates(k,103))* y(k,103) - prod(k,243) =rxt(k,438)*y(k,133)*y(k,100) - loss(k,154) = (rxt(k,444)* y(k,265) + rxt(k,49) + het_rates(k,104))* y(k,104) - prod(k,154) =rxt(k,441)*y(k,247)*y(k,103) - loss(k,73) = (rxt(k,563)* y(k,131) +rxt(k,562)* y(k,247) + het_rates(k,105)) & - * y(k,105) - prod(k,73) =rxt(k,565)*y(k,265)*y(k,100) - loss(k,197) = (rxt(k,447)* y(k,265) + rxt(k,50) + het_rates(k,106))* y(k,106) - prod(k,197) = (rxt(k,427)*y(k,249) +rxt(k,432)*y(k,250))*y(k,247) +rxt(k,49) & - *y(k,104) - loss(k,67) = (rxt(k,568)* y(k,265) + het_rates(k,107))* y(k,107) - prod(k,67) = 0._r8 - loss(k,66) = (rxt(k,567)* y(k,131) +rxt(k,566)* y(k,247) + het_rates(k,108)) & - * y(k,108) - prod(k,66) =rxt(k,568)*y(k,265)*y(k,107) - loss(k,83) = (rxt(k,571)* y(k,265) + het_rates(k,109))* y(k,109) - prod(k,83) = 0._r8 - loss(k,82) = (rxt(k,570)* y(k,131) +rxt(k,569)* y(k,247) + het_rates(k,110)) & - * y(k,110) - prod(k,82) =rxt(k,571)*y(k,265)*y(k,109) - loss(k,244) = (rxt(k,398)* y(k,143) +rxt(k,399)* y(k,265) + rxt(k,51) & - + rxt(k,52) + het_rates(k,111))* y(k,111) - prod(k,244) = (.390_r8*rxt(k,425)*y(k,240) +.310_r8*rxt(k,426)*y(k,241) + & - .360_r8*rxt(k,428)*y(k,131) +.400_r8*rxt(k,429)*y(k,133))*y(k,249) & - +.300_r8*rxt(k,445)*y(k,143)*y(k,100) +.300_r8*rxt(k,50)*y(k,106) - loss(k,146) = (rxt(k,400)* y(k,265) + het_rates(k,112))* y(k,112) - prod(k,146) =rxt(k,394)*y(k,251)*y(k,247) - loss(k,173) = (rxt(k,409)* y(k,265) + rxt(k,53) + het_rates(k,113))* y(k,113) - prod(k,173) =.800_r8*rxt(k,20)*y(k,1) +.800_r8*rxt(k,21)*y(k,2) & - +.800_r8*rxt(k,418)*y(k,234)*y(k,131) - loss(k,145) = (rxt(k,410)* y(k,265) + rxt(k,54) + het_rates(k,114))* y(k,114) - prod(k,145) =.800_r8*rxt(k,407)*y(k,255)*y(k,247) - loss(k,187) = (rxt(k,411)* y(k,265) + rxt(k,55) + rxt(k,415) & - + het_rates(k,115))* y(k,115) - prod(k,187) =rxt(k,414)*y(k,253)*y(k,132) - loss(k,222) = (rxt(k,502)* y(k,133) +rxt(k,503)* y(k,143) +rxt(k,504) & - * y(k,265) + het_rates(k,116))* y(k,116) - prod(k,222) = 0._r8 - loss(k,74) = (rxt(k,574)* y(k,131) +rxt(k,573)* y(k,247) + het_rates(k,117)) & - * y(k,117) - prod(k,74) =rxt(k,576)*y(k,265)*y(k,116) - loss(k,249) = (rxt(k,412)* y(k,143) +rxt(k,413)* y(k,265) + rxt(k,56) & - + het_rates(k,118))* y(k,118) - prod(k,249) = (.610_r8*rxt(k,425)*y(k,240) +.440_r8*rxt(k,426)*y(k,241) + & - .560_r8*rxt(k,428)*y(k,131) +.600_r8*rxt(k,429)*y(k,133))*y(k,249) & - +.200_r8*rxt(k,445)*y(k,143)*y(k,100) +.700_r8*rxt(k,50)*y(k,106) - loss(k,224) = (rxt(k,210)* y(k,131) + (rxt(k,211) +rxt(k,212) +rxt(k,213)) & - * y(k,132) +rxt(k,214)* y(k,142) +rxt(k,612)* y(k,264) +rxt(k,222) & - * y(k,265) + rxt(k,111) + het_rates(k,119))* y(k,119) - prod(k,224) = (rxt(k,208)*y(k,256) +rxt(k,609)*y(k,259))*y(k,141) & - + (.200_r8*rxt(k,603)*y(k,258) +1.100_r8*rxt(k,605)*y(k,257)) & - *y(k,243) +rxt(k,15)*y(k,131) +rxt(k,610)*y(k,259)*y(k,142) & - +rxt(k,616)*y(k,266) - loss(k,128) = ((rxt(k,226) +rxt(k,227))* y(k,261) + rxt(k,12) & - + het_rates(k,120))* y(k,120) - prod(k,128) =rxt(k,211)*y(k,132)*y(k,119) - loss(k,132) = ( + rxt(k,13) + rxt(k,14) + rxt(k,233) + rxt(k,544) & - + rxt(k,586) + rxt(k,589) + rxt(k,600) + het_rates(k,121))* y(k,121) - prod(k,132) =rxt(k,229)*y(k,133)*y(k,132) - loss(k,162) = (rxt(k,448)* y(k,265) + rxt(k,545) + het_rates(k,122)) & - * y(k,122) - prod(k,162) =.200_r8*rxt(k,440)*y(k,241)*y(k,103) - loss(k,231) = (rxt(k,449)* y(k,265) + rxt(k,57) + rxt(k,546) & - + het_rates(k,123))* y(k,123) - prod(k,231) = (rxt(k,439)*y(k,240) +.800_r8*rxt(k,440)*y(k,241) + & - rxt(k,442)*y(k,131) +rxt(k,443)*y(k,133))*y(k,103) - loss(k,10) = ( + het_rates(k,124))* y(k,124) + prod(k,212) = (rxt(k,593) +rxt(k,598) +rxt(k,604) +rxt(k,253)*y(k,265)) & + *y(k,60) +rxt(k,248)*y(k,243)*y(k,59) + loss(k,241) = (rxt(k,394)* y(k,265) + rxt(k,46) + rxt(k,544) & + + het_rates(k,93))* y(k,93) + prod(k,241) = (rxt(k,393)*y(k,240) +rxt(k,400)*y(k,250))*y(k,125) & + + (.300_r8*rxt(k,439)*y(k,99) +.500_r8*rxt(k,440)*y(k,100))*y(k,265) + loss(k,125) = (rxt(k,425)* y(k,265) + rxt(k,47) + het_rates(k,94))* y(k,94) + prod(k,125) =rxt(k,436)*y(k,246) + loss(k,242) = (rxt(k,379)* y(k,265) + rxt(k,48) + het_rates(k,95))* y(k,95) + prod(k,242) = (.220_r8*rxt(k,395)*y(k,236) +.230_r8*rxt(k,396)*y(k,237) + & + .220_r8*rxt(k,398)*y(k,127) +.220_r8*rxt(k,399)*y(k,125))*y(k,250) & + + (.500_r8*rxt(k,383)*y(k,153) +.500_r8*rxt(k,414)*y(k,110) + & + .700_r8*rxt(k,439)*y(k,99) +.500_r8*rxt(k,440)*y(k,100))*y(k,265) & + + (.250_r8*rxt(k,453)*y(k,236) +.100_r8*rxt(k,454)*y(k,237) + & + .250_r8*rxt(k,456)*y(k,125) +.250_r8*rxt(k,457)*y(k,127))*y(k,274) & + + (.050_r8*rxt(k,437)*y(k,125) +.050_r8*rxt(k,438)*y(k,127)) & + *y(k,246) +.170_r8*rxt(k,46)*y(k,93) +.200_r8*rxt(k,384)*y(k,269) & + *y(k,237) + loss(k,145) = (rxt(k,426)* y(k,265) + het_rates(k,96))* y(k,96) + prod(k,145) = (rxt(k,433)*y(k,236) +.750_r8*rxt(k,434)*y(k,237) + & + .870_r8*rxt(k,437)*y(k,125) +.950_r8*rxt(k,438)*y(k,127))*y(k,246) + loss(k,105) = (rxt(k,427)* y(k,265) + het_rates(k,97))* y(k,97) + prod(k,105) =.600_r8*rxt(k,450)*y(k,265)*y(k,103) + loss(k,217) = (rxt(k,441)* y(k,127) +rxt(k,448)* y(k,137) +rxt(k,449) & + * y(k,265) + het_rates(k,98))* y(k,98) + prod(k,217) = 0._r8 + loss(k,184) = (rxt(k,439)* y(k,265) + rxt(k,545) + het_rates(k,99))* y(k,99) + prod(k,184) =.080_r8*rxt(k,431)*y(k,245)*y(k,125) + loss(k,179) = (rxt(k,440)* y(k,265) + rxt(k,546) + het_rates(k,100)) & + * y(k,100) + prod(k,179) =.080_r8*rxt(k,437)*y(k,246)*y(k,125) + loss(k,245) = (rxt(k,445)* y(k,125) +rxt(k,446)* y(k,127) +rxt(k,442) & + * y(k,236) +rxt(k,443)* y(k,237) +rxt(k,444)* y(k,243) & + + het_rates(k,101))* y(k,101) + prod(k,245) =rxt(k,441)*y(k,127)*y(k,98) + loss(k,155) = (rxt(k,447)* y(k,265) + rxt(k,49) + het_rates(k,102))* y(k,102) + prod(k,155) =rxt(k,444)*y(k,243)*y(k,101) + loss(k,203) = (rxt(k,450)* y(k,265) + rxt(k,50) + het_rates(k,103))* y(k,103) + prod(k,203) = (rxt(k,430)*y(k,245) +rxt(k,435)*y(k,246))*y(k,243) +rxt(k,49) & + *y(k,102) + loss(k,85) = (rxt(k,571)* y(k,265) + het_rates(k,104))* y(k,104) + prod(k,85) = 0._r8 + loss(k,87) = (rxt(k,574)* y(k,265) + het_rates(k,105))* y(k,105) + prod(k,87) = 0._r8 + loss(k,246) = (rxt(k,401)* y(k,137) +rxt(k,402)* y(k,265) + rxt(k,51) & + + rxt(k,52) + het_rates(k,106))* y(k,106) + prod(k,246) = (.390_r8*rxt(k,428)*y(k,236) +.310_r8*rxt(k,429)*y(k,237) + & + .360_r8*rxt(k,431)*y(k,125) +.400_r8*rxt(k,432)*y(k,127))*y(k,245) & + +.300_r8*rxt(k,448)*y(k,137)*y(k,98) +.300_r8*rxt(k,50)*y(k,103) + loss(k,147) = (rxt(k,403)* y(k,265) + het_rates(k,107))* y(k,107) + prod(k,147) =rxt(k,397)*y(k,250)*y(k,243) + loss(k,175) = (rxt(k,412)* y(k,265) + rxt(k,53) + het_rates(k,108))* y(k,108) + prod(k,175) =.800_r8*rxt(k,20)*y(k,1) +.800_r8*rxt(k,21)*y(k,2) & + +.800_r8*rxt(k,421)*y(k,228)*y(k,125) + loss(k,146) = (rxt(k,413)* y(k,265) + rxt(k,54) + het_rates(k,109))* y(k,109) + prod(k,146) =.800_r8*rxt(k,410)*y(k,254)*y(k,243) + loss(k,183) = (rxt(k,414)* y(k,265) + rxt(k,55) + rxt(k,418) & + + het_rates(k,110))* y(k,110) + prod(k,183) =rxt(k,417)*y(k,252)*y(k,126) + loss(k,224) = (rxt(k,505)* y(k,127) +rxt(k,506)* y(k,137) +rxt(k,507) & + * y(k,265) + het_rates(k,111))* y(k,111) + prod(k,224) = 0._r8 + loss(k,251) = (rxt(k,415)* y(k,137) +rxt(k,416)* y(k,265) + rxt(k,56) & + + het_rates(k,112))* y(k,112) + prod(k,251) = (.610_r8*rxt(k,428)*y(k,236) +.440_r8*rxt(k,429)*y(k,237) + & + .560_r8*rxt(k,431)*y(k,125) +.600_r8*rxt(k,432)*y(k,127))*y(k,245) & + +.200_r8*rxt(k,448)*y(k,137)*y(k,98) +.700_r8*rxt(k,50)*y(k,103) + loss(k,225) = (rxt(k,211)* y(k,125) + (rxt(k,212) +rxt(k,213) +rxt(k,214)) & + * y(k,126) +rxt(k,236)* y(k,136) +rxt(k,615)* y(k,264) +rxt(k,222) & + * y(k,265) + rxt(k,111) + het_rates(k,113))* y(k,113) + prod(k,225) = (rxt(k,233)*y(k,256) +.200_r8*rxt(k,606)*y(k,258) + & + 1.100_r8*rxt(k,608)*y(k,257))*y(k,239) + (rxt(k,210)*y(k,256) + & + rxt(k,612)*y(k,259))*y(k,135) +rxt(k,15)*y(k,125) & + +rxt(k,613)*y(k,259)*y(k,136) +rxt(k,207)*y(k,256) +rxt(k,619) & + *y(k,266) + loss(k,133) = ((rxt(k,226) +rxt(k,227))* y(k,261) + rxt(k,12) & + + het_rates(k,114))* y(k,114) + prod(k,133) =rxt(k,212)*y(k,126)*y(k,113) + loss(k,137) = ( + rxt(k,13) + rxt(k,14) + rxt(k,235) + rxt(k,547) & + + rxt(k,589) + rxt(k,592) + rxt(k,603) + het_rates(k,115))* y(k,115) + prod(k,137) =rxt(k,229)*y(k,127)*y(k,126) + loss(k,159) = (rxt(k,451)* y(k,265) + rxt(k,548) + het_rates(k,116)) & + * y(k,116) + prod(k,159) =.200_r8*rxt(k,443)*y(k,237)*y(k,101) + loss(k,233) = (rxt(k,452)* y(k,265) + rxt(k,57) + rxt(k,549) & + + het_rates(k,117))* y(k,117) + prod(k,233) = (rxt(k,442)*y(k,236) +.800_r8*rxt(k,443)*y(k,237) + & + rxt(k,445)*y(k,125) +rxt(k,446)*y(k,127))*y(k,101) + loss(k,10) = ( + het_rates(k,118))* y(k,118) prod(k,10) = 0._r8 - loss(k,11) = ( + het_rates(k,125))* y(k,125) + loss(k,11) = ( + het_rates(k,119))* y(k,119) prod(k,11) = 0._r8 - loss(k,12) = ( + het_rates(k,126))* y(k,126) + loss(k,12) = ( + het_rates(k,120))* y(k,120) prod(k,12) = 0._r8 - loss(k,89) = (rxt(k,539)* y(k,265) + het_rates(k,127))* y(k,127) - prod(k,89) = 0._r8 - loss(k,13) = ( + rxt(k,547) + het_rates(k,128))* y(k,128) + loss(k,91) = (rxt(k,542)* y(k,265) + het_rates(k,121))* y(k,121) + prod(k,91) = 0._r8 + loss(k,13) = ( + rxt(k,550) + het_rates(k,122))* y(k,122) prod(k,13) = 0._r8 - loss(k,14) = ( + rxt(k,620) + het_rates(k,129))* y(k,129) + loss(k,14) = ( + rxt(k,623) + het_rates(k,123))* y(k,123) prod(k,14) = 0._r8 - loss(k,15) = ( + rxt(k,619) + het_rates(k,130))* y(k,130) + loss(k,15) = ( + rxt(k,622) + het_rates(k,124))* y(k,124) prod(k,15) = 0._r8 - loss(k,261) = (rxt(k,278)* y(k,21) +rxt(k,246)* y(k,61) +rxt(k,442)* y(k,103) & - +rxt(k,210)* y(k,119) +rxt(k,219)* y(k,133) +rxt(k,225)* y(k,141) & - +rxt(k,224)* y(k,143) +rxt(k,457)* y(k,233) + (rxt(k,418) + & - rxt(k,419))* y(k,234) +rxt(k,460)* y(k,235) +rxt(k,465)* y(k,236) & - +rxt(k,342)* y(k,237) +rxt(k,370)* y(k,238) +rxt(k,467)* y(k,239) & - +rxt(k,353)* y(k,240) +rxt(k,321)* y(k,241) +rxt(k,471)* y(k,242) & - + (rxt(k,389) +rxt(k,390))* y(k,244) +rxt(k,357)* y(k,246) & - +rxt(k,223)* y(k,247) +rxt(k,329)* y(k,248) +rxt(k,428)* y(k,249) & - +rxt(k,434)* y(k,250) + (rxt(k,396) +rxt(k,397))* y(k,251) & - +rxt(k,474)* y(k,252) +rxt(k,405)* y(k,253) +rxt(k,477)* y(k,254) & - +rxt(k,408)* y(k,255) +rxt(k,507)* y(k,260) +rxt(k,614)* y(k,264) & - +rxt(k,480)* y(k,267) +rxt(k,379)* y(k,268) +rxt(k,383)* y(k,269) & - +rxt(k,512)* y(k,270) +rxt(k,517)* y(k,271) +rxt(k,487)* y(k,272) & - +rxt(k,453)* y(k,273) +rxt(k,493)* y(k,274) +rxt(k,496)* y(k,275) & - + rxt(k,15) + rxt(k,16) + het_rates(k,131))* y(k,131) - prod(k,261) = (rxt(k,17) +.500_r8*rxt(k,548) +2.000_r8*rxt(k,212)*y(k,119) + & - rxt(k,215)*y(k,141) +rxt(k,532)*y(k,161))*y(k,132) & - + (rxt(k,214)*y(k,142) +rxt(k,222)*y(k,265))*y(k,119) & - +2.000_r8*rxt(k,226)*y(k,261)*y(k,120) +rxt(k,14)*y(k,121) & - +rxt(k,19)*y(k,133) +rxt(k,209)*y(k,256)*y(k,142) +rxt(k,613) & + loss(k,264) = (rxt(k,281)* y(k,19) +rxt(k,249)* y(k,59) +rxt(k,445)* y(k,101) & + +rxt(k,211)* y(k,113) +rxt(k,219)* y(k,127) +rxt(k,225)* y(k,135) & + +rxt(k,224)* y(k,137) +rxt(k,460)* y(k,227) + (rxt(k,421) + & + rxt(k,422))* y(k,228) +rxt(k,463)* y(k,230) +rxt(k,468)* y(k,232) & + +rxt(k,345)* y(k,233) +rxt(k,373)* y(k,234) +rxt(k,470)* y(k,235) & + +rxt(k,356)* y(k,236) +rxt(k,324)* y(k,237) +rxt(k,474)* y(k,238) & + + (rxt(k,392) +rxt(k,393))* y(k,240) +rxt(k,360)* y(k,242) & + +rxt(k,223)* y(k,243) +rxt(k,332)* y(k,244) +rxt(k,431)* y(k,245) & + +rxt(k,437)* y(k,246) + (rxt(k,399) +rxt(k,400))* y(k,250) & + +rxt(k,477)* y(k,251) +rxt(k,408)* y(k,252) +rxt(k,480)* y(k,253) & + +rxt(k,411)* y(k,254) +rxt(k,209)* y(k,256) +rxt(k,510)* y(k,260) & + +rxt(k,617)* y(k,264) +rxt(k,483)* y(k,267) +rxt(k,382)* y(k,268) & + +rxt(k,386)* y(k,269) +rxt(k,515)* y(k,270) +rxt(k,520)* y(k,271) & + +rxt(k,490)* y(k,272) +rxt(k,456)* y(k,274) +rxt(k,496)* y(k,275) & + +rxt(k,499)* y(k,277) + rxt(k,15) + rxt(k,16) + het_rates(k,125)) & + * y(k,125) + prod(k,264) = (rxt(k,17) +.500_r8*rxt(k,551) +2.000_r8*rxt(k,213)*y(k,113) + & + rxt(k,215)*y(k,135) +rxt(k,535)*y(k,157))*y(k,126) & + + (rxt(k,222)*y(k,265) +rxt(k,236)*y(k,136))*y(k,113) & + +2.000_r8*rxt(k,226)*y(k,261)*y(k,114) +rxt(k,14)*y(k,115) & + +rxt(k,19)*y(k,127) +rxt(k,234)*y(k,256)*y(k,136) +rxt(k,616) & *y(k,264) - loss(k,260) = (rxt(k,279)* y(k,21) +rxt(k,248)* y(k,61) + (rxt(k,211) + & - rxt(k,212) +rxt(k,213))* y(k,119) +rxt(k,229)* y(k,133) & - + (rxt(k,215) +rxt(k,217))* y(k,141) +rxt(k,216)* y(k,143) & - +rxt(k,482)* y(k,150) +rxt(k,532)* y(k,161) +rxt(k,485)* y(k,233) & - +rxt(k,364)* y(k,240) +rxt(k,472)* y(k,242) +rxt(k,228)* y(k,247) & - +rxt(k,475)* y(k,252) +rxt(k,414)* y(k,253) +rxt(k,478)* y(k,254) & - +rxt(k,230)* y(k,265) + rxt(k,17) + rxt(k,548) + het_rates(k,132)) & - * y(k,132) - prod(k,260) = (2.000_r8*rxt(k,219)*y(k,133) +rxt(k,223)*y(k,247) + & - rxt(k,224)*y(k,143) +rxt(k,225)*y(k,141) +rxt(k,246)*y(k,61) + & - rxt(k,278)*y(k,21) +rxt(k,321)*y(k,241) +rxt(k,329)*y(k,248) + & - rxt(k,342)*y(k,237) +rxt(k,353)*y(k,240) +rxt(k,357)*y(k,246) + & - rxt(k,370)*y(k,238) +rxt(k,379)*y(k,268) +rxt(k,383)*y(k,269) + & - rxt(k,389)*y(k,244) +rxt(k,396)*y(k,251) +rxt(k,405)*y(k,253) + & - rxt(k,408)*y(k,255) +rxt(k,418)*y(k,234) + & - .920_r8*rxt(k,428)*y(k,249) +.920_r8*rxt(k,434)*y(k,250) + & - rxt(k,442)*y(k,103) +rxt(k,453)*y(k,273) +rxt(k,457)*y(k,233) + & - rxt(k,460)*y(k,235) +rxt(k,465)*y(k,236) +rxt(k,467)*y(k,239) + & - rxt(k,471)*y(k,242) +rxt(k,474)*y(k,252) +rxt(k,477)*y(k,254) + & - rxt(k,480)*y(k,267) +rxt(k,487)*y(k,272) +rxt(k,493)*y(k,274) + & - rxt(k,496)*y(k,275) +1.600_r8*rxt(k,507)*y(k,260) + & - .900_r8*rxt(k,512)*y(k,270) +.800_r8*rxt(k,517)*y(k,271))*y(k,131) & - + (rxt(k,18) +rxt(k,218)*y(k,247) +rxt(k,220)*y(k,141) + & - rxt(k,221)*y(k,265) +rxt(k,387)*y(k,18) +rxt(k,395)*y(k,251) + & - rxt(k,406)*y(k,253) +rxt(k,429)*y(k,249) +rxt(k,435)*y(k,250) + & - rxt(k,443)*y(k,103) +rxt(k,454)*y(k,273) + & - 2.000_r8*rxt(k,508)*y(k,260))*y(k,133) + (rxt(k,207)*y(k,92) + & - rxt(k,377)*y(k,134) +rxt(k,416)*y(k,1) +.700_r8*rxt(k,436)*y(k,101) + & - rxt(k,514)*y(k,218))*y(k,265) + (rxt(k,11) +rxt(k,232))*y(k,92) & - + (rxt(k,55) +rxt(k,415))*y(k,115) + (rxt(k,13) +rxt(k,233)) & - *y(k,121) + (.600_r8*rxt(k,61) +rxt(k,365))*y(k,148) +rxt(k,20) & - *y(k,1) +rxt(k,77)*y(k,22) +rxt(k,96)*y(k,62) +rxt(k,9)*y(k,91) & - +rxt(k,46)*y(k,95) +rxt(k,49)*y(k,104) +rxt(k,57)*y(k,123) & - +rxt(k,58)*y(k,134) +rxt(k,59)*y(k,135) +rxt(k,60)*y(k,147) & - +rxt(k,490)*y(k,149) +rxt(k,67)*y(k,218) & - +.500_r8*rxt(k,505)*y(k,260)*y(k,241) - loss(k,264) = (rxt(k,499)* y(k,6) +rxt(k,387)* y(k,18) +rxt(k,366)* y(k,31) & - +rxt(k,315)* y(k,44) +rxt(k,347)* y(k,47) +rxt(k,373)* y(k,51) & - +rxt(k,522)* y(k,69) +rxt(k,438)* y(k,100) +rxt(k,443)* y(k,103) & - +rxt(k,502)* y(k,116) +rxt(k,219)* y(k,131) +rxt(k,229)* y(k,132) & - +rxt(k,220)* y(k,141) +rxt(k,519)* y(k,220) +rxt(k,218)* y(k,247) & - +rxt(k,429)* y(k,249) +rxt(k,435)* y(k,250) +rxt(k,395)* y(k,251) & - +rxt(k,406)* y(k,253) +rxt(k,508)* y(k,260) +rxt(k,221)* y(k,265) & - +rxt(k,454)* y(k,273) + rxt(k,18) + rxt(k,19) + rxt(k,549) & - + het_rates(k,133))* y(k,133) - prod(k,264) = (rxt(k,95) +rxt(k,247)*y(k,58) +rxt(k,249)*y(k,141) + & - rxt(k,250)*y(k,265))*y(k,62) + (rxt(k,13) +rxt(k,14) +rxt(k,233)) & - *y(k,121) + (rxt(k,231)*y(k,91) +rxt(k,362)*y(k,148) + & - .500_r8*rxt(k,411)*y(k,115))*y(k,265) + (rxt(k,78) + & - rxt(k,280)*y(k,141))*y(k,22) + (rxt(k,216)*y(k,143) + & - rxt(k,217)*y(k,141))*y(k,132) +rxt(k,294)*y(k,91)*y(k,75) +rxt(k,10) & - *y(k,92) +.400_r8*rxt(k,61)*y(k,148) - loss(k,215) = (rxt(k,377)* y(k,265) + rxt(k,58) + het_rates(k,134))* y(k,134) - prod(k,215) = (.500_r8*rxt(k,437)*y(k,102) +rxt(k,444)*y(k,104) + & - rxt(k,448)*y(k,122) +rxt(k,449)*y(k,123))*y(k,265) & - +rxt(k,366)*y(k,133)*y(k,31) - loss(k,152) = (rxt(k,509)* y(k,265) + rxt(k,59) + rxt(k,550) & - + het_rates(k,135))* y(k,135) - prod(k,152) =rxt(k,506)*y(k,260)*y(k,247) - loss(k,16) = ( + het_rates(k,136))* y(k,136) + loss(k,262) = (rxt(k,282)* y(k,19) +rxt(k,251)* y(k,59) + (rxt(k,212) + & + rxt(k,213) +rxt(k,214))* y(k,113) +rxt(k,229)* y(k,127) & + + (rxt(k,215) +rxt(k,217))* y(k,135) +rxt(k,216)* y(k,137) & + +rxt(k,485)* y(k,144) +rxt(k,535)* y(k,157) +rxt(k,488)* y(k,227) & + +rxt(k,367)* y(k,236) +rxt(k,475)* y(k,238) +rxt(k,228)* y(k,243) & + +rxt(k,478)* y(k,251) +rxt(k,417)* y(k,252) +rxt(k,481)* y(k,253) & + +rxt(k,230)* y(k,265) + rxt(k,17) + rxt(k,551) + het_rates(k,126)) & + * y(k,126) + prod(k,262) = (2.000_r8*rxt(k,219)*y(k,127) +rxt(k,223)*y(k,243) + & + rxt(k,224)*y(k,137) +rxt(k,225)*y(k,135) +rxt(k,249)*y(k,59) + & + rxt(k,281)*y(k,19) +rxt(k,324)*y(k,237) +rxt(k,332)*y(k,244) + & + rxt(k,345)*y(k,233) +rxt(k,356)*y(k,236) +rxt(k,360)*y(k,242) + & + rxt(k,373)*y(k,234) +rxt(k,382)*y(k,268) +rxt(k,386)*y(k,269) + & + rxt(k,392)*y(k,240) +rxt(k,399)*y(k,250) +rxt(k,408)*y(k,252) + & + rxt(k,411)*y(k,254) +rxt(k,421)*y(k,228) + & + .920_r8*rxt(k,431)*y(k,245) +.920_r8*rxt(k,437)*y(k,246) + & + rxt(k,445)*y(k,101) +rxt(k,456)*y(k,274) +rxt(k,460)*y(k,227) + & + rxt(k,463)*y(k,230) +rxt(k,468)*y(k,232) +rxt(k,470)*y(k,235) + & + rxt(k,474)*y(k,238) +rxt(k,477)*y(k,251) +rxt(k,480)*y(k,253) + & + rxt(k,483)*y(k,267) +rxt(k,490)*y(k,272) +rxt(k,496)*y(k,275) + & + rxt(k,499)*y(k,277) +1.600_r8*rxt(k,510)*y(k,260) + & + .900_r8*rxt(k,515)*y(k,270) +.800_r8*rxt(k,520)*y(k,271))*y(k,125) & + + (rxt(k,18) +rxt(k,218)*y(k,243) +rxt(k,220)*y(k,135) + & + rxt(k,221)*y(k,265) +rxt(k,390)*y(k,16) +rxt(k,398)*y(k,250) + & + rxt(k,409)*y(k,252) +rxt(k,432)*y(k,245) +rxt(k,438)*y(k,246) + & + rxt(k,446)*y(k,101) +rxt(k,457)*y(k,274) + & + 2.000_r8*rxt(k,511)*y(k,260))*y(k,127) + (rxt(k,208)*y(k,90) + & + rxt(k,380)*y(k,128) +rxt(k,419)*y(k,1) +.700_r8*rxt(k,439)*y(k,99) + & + rxt(k,517)*y(k,214))*y(k,265) + (rxt(k,11) +rxt(k,232))*y(k,90) & + + (rxt(k,55) +rxt(k,418))*y(k,110) + (rxt(k,13) +rxt(k,235)) & + *y(k,115) + (.600_r8*rxt(k,61) +rxt(k,368))*y(k,142) +rxt(k,20) & + *y(k,1) +rxt(k,77)*y(k,20) +rxt(k,96)*y(k,60) +rxt(k,9)*y(k,89) & + +rxt(k,46)*y(k,93) +rxt(k,49)*y(k,102) +rxt(k,57)*y(k,117) & + +rxt(k,58)*y(k,128) +rxt(k,59)*y(k,129) +rxt(k,60)*y(k,141) & + +rxt(k,493)*y(k,143) +rxt(k,67)*y(k,214) & + +.500_r8*rxt(k,508)*y(k,260)*y(k,237) + loss(k,273) = (rxt(k,502)* y(k,6) +rxt(k,390)* y(k,16) +rxt(k,369)* y(k,29) & + +rxt(k,318)* y(k,42) +rxt(k,350)* y(k,45) +rxt(k,376)* y(k,49) & + +rxt(k,525)* y(k,67) +rxt(k,441)* y(k,98) +rxt(k,446)* y(k,101) & + +rxt(k,505)* y(k,111) +rxt(k,219)* y(k,125) +rxt(k,229)* y(k,126) & + +rxt(k,220)* y(k,135) +rxt(k,522)* y(k,216) +rxt(k,218)* y(k,243) & + +rxt(k,432)* y(k,245) +rxt(k,438)* y(k,246) +rxt(k,398)* y(k,250) & + +rxt(k,409)* y(k,252) +rxt(k,511)* y(k,260) +rxt(k,221)* y(k,265) & + +rxt(k,457)* y(k,274) + rxt(k,18) + rxt(k,19) + rxt(k,552) & + + het_rates(k,127))* y(k,127) + prod(k,273) = (rxt(k,95) +rxt(k,250)*y(k,56) +rxt(k,252)*y(k,135) + & + rxt(k,253)*y(k,265))*y(k,60) + (rxt(k,13) +rxt(k,14) +rxt(k,235)) & + *y(k,115) + (rxt(k,231)*y(k,89) +rxt(k,365)*y(k,142) + & + .500_r8*rxt(k,414)*y(k,110))*y(k,265) + (rxt(k,78) + & + rxt(k,283)*y(k,135))*y(k,20) + (rxt(k,216)*y(k,137) + & + rxt(k,217)*y(k,135))*y(k,126) +rxt(k,297)*y(k,89)*y(k,73) +rxt(k,10) & + *y(k,90) +.400_r8*rxt(k,61)*y(k,142) + loss(k,216) = (rxt(k,380)* y(k,265) + rxt(k,58) + het_rates(k,128))* y(k,128) + prod(k,216) = (.500_r8*rxt(k,440)*y(k,100) +rxt(k,447)*y(k,102) + & + rxt(k,451)*y(k,116) +rxt(k,452)*y(k,117))*y(k,265) & + +rxt(k,369)*y(k,127)*y(k,29) + loss(k,163) = (rxt(k,512)* y(k,265) + rxt(k,59) + rxt(k,553) & + + het_rates(k,129))* y(k,129) + prod(k,163) =rxt(k,509)*y(k,260)*y(k,243) + loss(k,16) = ( + het_rates(k,130))* y(k,130) prod(k,16) = 0._r8 - loss(k,17) = ( + het_rates(k,137))* y(k,137) + loss(k,17) = ( + het_rates(k,131))* y(k,131) prod(k,17) = 0._r8 - loss(k,18) = ( + het_rates(k,138))* y(k,138) + loss(k,18) = ( + het_rates(k,132))* y(k,132) prod(k,18) = 0._r8 - loss(k,19) = ( + het_rates(k,139))* y(k,139) + loss(k,19) = ( + het_rates(k,133))* y(k,133) prod(k,19) = 0._r8 - loss(k,20) = ( + het_rates(k,140))* y(k,140) + loss(k,20) = ( + het_rates(k,134))* y(k,134) prod(k,20) = 0._r8 - loss(k,272) = (rxt(k,281)* y(k,21) +rxt(k,280)* y(k,22) +rxt(k,316)* y(k,44) & - +rxt(k,251)* y(k,61) +rxt(k,249)* y(k,62) +rxt(k,190)* y(k,79) & - +rxt(k,191)* y(k,81) +rxt(k,283)* y(k,83) +rxt(k,254)* y(k,87) & - +rxt(k,285)* y(k,93) +rxt(k,257)* y(k,94) +rxt(k,225)* y(k,131) & - + (rxt(k,215) +rxt(k,217))* y(k,132) +rxt(k,220)* y(k,133) & - + 2._r8*rxt(k,188)* y(k,141) +rxt(k,189)* y(k,142) +rxt(k,187) & - * y(k,143) +rxt(k,524)* y(k,146) +rxt(k,196)* y(k,247) & - + (rxt(k,607) +rxt(k,608))* y(k,257) +rxt(k,609)* y(k,259) & + loss(k,266) = (rxt(k,284)* y(k,19) +rxt(k,283)* y(k,20) +rxt(k,319)* y(k,42) & + +rxt(k,254)* y(k,59) +rxt(k,252)* y(k,60) +rxt(k,190)* y(k,77) & + +rxt(k,191)* y(k,79) +rxt(k,286)* y(k,81) +rxt(k,257)* y(k,85) & + +rxt(k,288)* y(k,91) +rxt(k,260)* y(k,92) +rxt(k,225)* y(k,125) & + + (rxt(k,215) +rxt(k,217))* y(k,126) +rxt(k,220)* y(k,127) & + + 2._r8*rxt(k,188)* y(k,135) +rxt(k,189)* y(k,136) +rxt(k,187) & + * y(k,137) +rxt(k,527)* y(k,140) +rxt(k,196)* y(k,243) & + + (rxt(k,610) +rxt(k,611))* y(k,257) +rxt(k,612)* y(k,259) & +rxt(k,202)* y(k,265) + rxt(k,120) + rxt(k,121) + rxt(k,122) & - + rxt(k,123) + rxt(k,124) + rxt(k,125) + het_rates(k,141))* y(k,141) - prod(k,272) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,127) +rxt(k,128) + & + + rxt(k,123) + rxt(k,124) + rxt(k,125) + het_rates(k,135))* y(k,135) + prod(k,266) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,127) +rxt(k,128) + & rxt(k,129) +rxt(k,131) +rxt(k,132) +rxt(k,133) +2.000_r8*rxt(k,134) + & 2.000_r8*rxt(k,135) +rxt(k,176)*y(k,261) +rxt(k,177)*y(k,261) + & - rxt(k,214)*y(k,119) +rxt(k,526)*y(k,159) +rxt(k,533)*y(k,161) + & - rxt(k,611)*y(k,259) +rxt(k,617)*y(k,266))*y(k,142) & - + (rxt(k,210)*y(k,131) +rxt(k,211)*y(k,132) +rxt(k,612)*y(k,264)) & - *y(k,119) + (rxt(k,42) +rxt(k,110))*y(k,65) + (rxt(k,603)*y(k,258) + & - 1.150_r8*rxt(k,604)*y(k,264))*y(k,243) +rxt(k,76)*y(k,21) & - +.180_r8*rxt(k,40)*y(k,56) +rxt(k,94)*y(k,61) +rxt(k,194)*y(k,247) & - *y(k,78) +rxt(k,14)*y(k,121) +rxt(k,15)*y(k,131) +rxt(k,17)*y(k,132) & - +rxt(k,18)*y(k,133) +rxt(k,8)*y(k,143) +rxt(k,108)*y(k,145) & - +rxt(k,138)*y(k,161) +rxt(k,139)*y(k,162) +rxt(k,140)*y(k,163) & - +rxt(k,175)*y(k,261) +rxt(k,204)*y(k,265)*y(k,265) +rxt(k,2) & - *y(k,276) - loss(k,257) = (rxt(k,195)* y(k,78) +rxt(k,214)* y(k,119) +rxt(k,189) & - * y(k,141) +rxt(k,526)* y(k,159) +rxt(k,533)* y(k,161) +rxt(k,359) & - * y(k,245) +rxt(k,209)* y(k,256) +rxt(k,606)* y(k,257) & - + (rxt(k,610) +rxt(k,611))* y(k,259) +rxt(k,176)* y(k,261) & - +rxt(k,181)* y(k,262) +rxt(k,617)* y(k,266) + rxt(k,5) + rxt(k,6) & + rxt(k,236)*y(k,113) +rxt(k,529)*y(k,155) +rxt(k,536)*y(k,157) + & + rxt(k,614)*y(k,259) +rxt(k,620)*y(k,266))*y(k,136) & + + (rxt(k,211)*y(k,125) +rxt(k,212)*y(k,126) +rxt(k,615)*y(k,264)) & + *y(k,113) + (rxt(k,42) +rxt(k,110))*y(k,63) + (rxt(k,15) + & + rxt(k,209)*y(k,256))*y(k,125) + (rxt(k,606)*y(k,258) + & + 1.150_r8*rxt(k,607)*y(k,264))*y(k,239) +rxt(k,76)*y(k,19) & + +.180_r8*rxt(k,40)*y(k,54) +rxt(k,94)*y(k,59) +rxt(k,194)*y(k,243) & + *y(k,76) +rxt(k,14)*y(k,115) +rxt(k,17)*y(k,126) +rxt(k,18)*y(k,127) & + +rxt(k,8)*y(k,137) +rxt(k,108)*y(k,139) +rxt(k,138)*y(k,157) & + +rxt(k,139)*y(k,158) +rxt(k,140)*y(k,159) +rxt(k,175)*y(k,261) & + +rxt(k,204)*y(k,265)*y(k,265) +rxt(k,2)*y(k,278) + loss(k,259) = (rxt(k,195)* y(k,76) +rxt(k,236)* y(k,113) +rxt(k,189) & + * y(k,135) +rxt(k,529)* y(k,155) +rxt(k,536)* y(k,157) +rxt(k,362) & + * y(k,241) +rxt(k,234)* y(k,256) +rxt(k,609)* y(k,257) & + + (rxt(k,613) +rxt(k,614))* y(k,259) +rxt(k,176)* y(k,261) & + +rxt(k,181)* y(k,262) +rxt(k,620)* y(k,266) + rxt(k,5) + rxt(k,6) & + rxt(k,126) + rxt(k,127) + rxt(k,128) + rxt(k,129) + rxt(k,130) & + rxt(k,131) + rxt(k,132) + rxt(k,133) + rxt(k,134) + rxt(k,135) & - + het_rates(k,142))* y(k,142) - prod(k,257) = (rxt(k,192)*y(k,78) +rxt(k,196)*y(k,141) + & - 2.000_r8*rxt(k,197)*y(k,143) +rxt(k,201)*y(k,265) + & - rxt(k,206)*y(k,247) +rxt(k,218)*y(k,133) +rxt(k,238)*y(k,58) + & - rxt(k,245)*y(k,61) +rxt(k,271)*y(k,19) +rxt(k,277)*y(k,21) + & - rxt(k,320)*y(k,241) +rxt(k,341)*y(k,237) +rxt(k,369)*y(k,238) + & - rxt(k,378)*y(k,268))*y(k,247) + (rxt(k,8) + & - 2.000_r8*rxt(k,178)*y(k,261) +2.000_r8*rxt(k,187)*y(k,141) + & - rxt(k,198)*y(k,78) +rxt(k,203)*y(k,265) +rxt(k,216)*y(k,132) + & - rxt(k,224)*y(k,131) +rxt(k,240)*y(k,58) +rxt(k,272)*y(k,19) + & - rxt(k,528)*y(k,159) +rxt(k,534)*y(k,161))*y(k,143) & - + (rxt(k,180)*y(k,262) +rxt(k,188)*y(k,141) +rxt(k,202)*y(k,265) + & - rxt(k,215)*y(k,132) +rxt(k,220)*y(k,133) +rxt(k,251)*y(k,61) + & - rxt(k,281)*y(k,21))*y(k,141) + (rxt(k,242)*y(k,61) + & - rxt(k,243)*y(k,61) +rxt(k,253)*y(k,265) +rxt(k,275)*y(k,21) + & - rxt(k,276)*y(k,21))*y(k,61) + (rxt(k,171) +rxt(k,179) + & - 2.000_r8*rxt(k,181)*y(k,142))*y(k,262) +rxt(k,273)*y(k,21)*y(k,21) & - +rxt(k,207)*y(k,265)*y(k,92) +rxt(k,213)*y(k,132)*y(k,119) & - +rxt(k,227)*y(k,261)*y(k,120) +rxt(k,614)*y(k,264)*y(k,131) & - +rxt(k,19)*y(k,133) +rxt(k,172)*y(k,263) - loss(k,271) = (rxt(k,500)* y(k,6) +rxt(k,272)* y(k,19) +rxt(k,338)* y(k,27) & - +rxt(k,367)* y(k,31) +rxt(k,240)* y(k,58) +rxt(k,198)* y(k,78) & - +rxt(k,445)* y(k,100) +rxt(k,398)* y(k,111) +rxt(k,503)* y(k,116) & - +rxt(k,412)* y(k,118) +rxt(k,224)* y(k,131) +rxt(k,216)* y(k,132) & - +rxt(k,187)* y(k,141) +rxt(k,483)* y(k,150) +rxt(k,528)* y(k,159) & - +rxt(k,534)* y(k,161) +rxt(k,197)* y(k,247) +rxt(k,178)* y(k,261) & - +rxt(k,203)* y(k,265) + rxt(k,7) + rxt(k,8) + het_rates(k,143)) & - * y(k,143) - prod(k,271) = (.150_r8*rxt(k,352)*y(k,240) +.150_r8*rxt(k,403)*y(k,253)) & - *y(k,247) +rxt(k,189)*y(k,142)*y(k,141) - loss(k,21) = ( + het_rates(k,144))* y(k,144) + + het_rates(k,136))* y(k,136) + prod(k,259) = (rxt(k,192)*y(k,76) +rxt(k,196)*y(k,135) + & + 2.000_r8*rxt(k,197)*y(k,137) +rxt(k,201)*y(k,265) + & + rxt(k,206)*y(k,243) +rxt(k,218)*y(k,127) +rxt(k,241)*y(k,56) + & + rxt(k,248)*y(k,59) +rxt(k,274)*y(k,17) +rxt(k,280)*y(k,19) + & + rxt(k,323)*y(k,237) +rxt(k,344)*y(k,233) +rxt(k,372)*y(k,234) + & + rxt(k,381)*y(k,268))*y(k,243) + (rxt(k,8) + & + 2.000_r8*rxt(k,178)*y(k,261) +2.000_r8*rxt(k,187)*y(k,135) + & + rxt(k,198)*y(k,76) +rxt(k,203)*y(k,265) +rxt(k,216)*y(k,126) + & + rxt(k,224)*y(k,125) +rxt(k,243)*y(k,56) +rxt(k,275)*y(k,17) + & + rxt(k,531)*y(k,155) +rxt(k,537)*y(k,157))*y(k,137) & + + (rxt(k,180)*y(k,262) +rxt(k,188)*y(k,135) +rxt(k,202)*y(k,265) + & + rxt(k,215)*y(k,126) +rxt(k,220)*y(k,127) +rxt(k,254)*y(k,59) + & + rxt(k,284)*y(k,19))*y(k,135) + (rxt(k,245)*y(k,59) + & + rxt(k,246)*y(k,59) +rxt(k,256)*y(k,265) +rxt(k,278)*y(k,19) + & + rxt(k,279)*y(k,19))*y(k,59) + (rxt(k,171) +rxt(k,179) + & + 2.000_r8*rxt(k,181)*y(k,136))*y(k,262) +rxt(k,276)*y(k,19)*y(k,19) & + +rxt(k,208)*y(k,265)*y(k,90) +rxt(k,214)*y(k,126)*y(k,113) & + +rxt(k,227)*y(k,261)*y(k,114) +rxt(k,617)*y(k,264)*y(k,125) & + +rxt(k,19)*y(k,127) +rxt(k,172)*y(k,263) + loss(k,267) = (rxt(k,503)* y(k,6) +rxt(k,275)* y(k,17) +rxt(k,341)* y(k,25) & + +rxt(k,370)* y(k,29) +rxt(k,243)* y(k,56) +rxt(k,198)* y(k,76) & + +rxt(k,448)* y(k,98) +rxt(k,401)* y(k,106) +rxt(k,506)* y(k,111) & + +rxt(k,415)* y(k,112) +rxt(k,224)* y(k,125) +rxt(k,216)* y(k,126) & + +rxt(k,187)* y(k,135) +rxt(k,486)* y(k,144) +rxt(k,531)* y(k,155) & + +rxt(k,537)* y(k,157) +rxt(k,197)* y(k,243) +rxt(k,178)* y(k,261) & + +rxt(k,203)* y(k,265) + rxt(k,7) + rxt(k,8) + het_rates(k,137)) & + * y(k,137) + prod(k,267) = (.150_r8*rxt(k,355)*y(k,236) +.150_r8*rxt(k,406)*y(k,252)) & + *y(k,243) +rxt(k,189)*y(k,136)*y(k,135) + loss(k,21) = ( + het_rates(k,138))* y(k,138) prod(k,21) = 0._r8 - loss(k,140) = (rxt(k,535)* y(k,161) + rxt(k,108) + het_rates(k,145)) & - * y(k,145) - prod(k,140) = (rxt(k,244)*y(k,61) +rxt(k,274)*y(k,21))*y(k,61) - loss(k,150) = (rxt(k,524)* y(k,141) +rxt(k,525)* y(k,265) + rxt(k,137) & - + het_rates(k,146))* y(k,146) - prod(k,150) = 0._r8 - loss(k,122) = ( + rxt(k,60) + rxt(k,551) + het_rates(k,147))* y(k,147) - prod(k,122) =rxt(k,391)*y(k,265)*y(k,95) +.100_r8*rxt(k,512)*y(k,270) & - *y(k,131) - loss(k,176) = (rxt(k,362)* y(k,265) + rxt(k,61) + rxt(k,365) & - + het_rates(k,148))* y(k,148) - prod(k,176) =rxt(k,364)*y(k,240)*y(k,132) - loss(k,101) = ( + rxt(k,490) + het_rates(k,149))* y(k,149) - prod(k,101) =rxt(k,485)*y(k,233)*y(k,132) - loss(k,169) = (rxt(k,482)* y(k,132) +rxt(k,483)* y(k,143) + het_rates(k,150)) & - * y(k,150) - prod(k,169) = (.070_r8*rxt(k,469)*y(k,68) +.060_r8*rxt(k,481)*y(k,151) + & - .070_r8*rxt(k,497)*y(k,229))*y(k,265) +rxt(k,32)*y(k,34) & - +rxt(k,467)*y(k,239)*y(k,131) - loss(k,109) = (rxt(k,481)* y(k,265) + het_rates(k,151))* y(k,151) - prod(k,109) =.530_r8*rxt(k,458)*y(k,265)*y(k,8) - loss(k,141) = (rxt(k,484)* y(k,265) + rxt(k,62) + het_rates(k,152))* y(k,152) - prod(k,141) =rxt(k,479)*y(k,267)*y(k,247) - loss(k,22) = ( + het_rates(k,153))* y(k,153) + loss(k,148) = (rxt(k,538)* y(k,157) + rxt(k,108) + het_rates(k,139)) & + * y(k,139) + prod(k,148) = (rxt(k,247)*y(k,59) +rxt(k,277)*y(k,19))*y(k,59) + loss(k,152) = (rxt(k,527)* y(k,135) +rxt(k,528)* y(k,265) + rxt(k,137) & + + het_rates(k,140))* y(k,140) + prod(k,152) = 0._r8 + loss(k,123) = ( + rxt(k,60) + rxt(k,554) + het_rates(k,141))* y(k,141) + prod(k,123) =rxt(k,394)*y(k,265)*y(k,93) +.100_r8*rxt(k,515)*y(k,270) & + *y(k,125) + loss(k,178) = (rxt(k,365)* y(k,265) + rxt(k,61) + rxt(k,368) & + + het_rates(k,142))* y(k,142) + prod(k,178) =rxt(k,367)*y(k,236)*y(k,126) + loss(k,100) = ( + rxt(k,493) + het_rates(k,143))* y(k,143) + prod(k,100) =rxt(k,488)*y(k,227)*y(k,126) + loss(k,171) = (rxt(k,485)* y(k,126) +rxt(k,486)* y(k,137) + het_rates(k,144)) & + * y(k,144) + prod(k,171) = (.070_r8*rxt(k,472)*y(k,66) +.060_r8*rxt(k,484)*y(k,145) + & + .070_r8*rxt(k,500)*y(k,223))*y(k,265) +rxt(k,32)*y(k,32) & + +rxt(k,470)*y(k,235)*y(k,125) + loss(k,111) = (rxt(k,484)* y(k,265) + het_rates(k,145))* y(k,145) + prod(k,111) =.530_r8*rxt(k,461)*y(k,265)*y(k,7) + loss(k,142) = (rxt(k,487)* y(k,265) + rxt(k,62) + het_rates(k,146))* y(k,146) + prod(k,142) =rxt(k,482)*y(k,267)*y(k,243) + loss(k,22) = ( + het_rates(k,147))* y(k,147) prod(k,22) = 0._r8 - loss(k,23) = ( + het_rates(k,154))* y(k,154) + loss(k,23) = ( + het_rates(k,148))* y(k,148) prod(k,23) = 0._r8 - loss(k,24) = ( + het_rates(k,155))* y(k,155) + loss(k,24) = ( + het_rates(k,149))* y(k,149) prod(k,24) = 0._r8 - loss(k,25) = ( + het_rates(k,156))* y(k,156) + loss(k,25) = ( + het_rates(k,150))* y(k,150) prod(k,25) = 0._r8 - loss(k,177) = (rxt(k,380)* y(k,265) + rxt(k,63) + het_rates(k,157))* y(k,157) - prod(k,177) =rxt(k,378)*y(k,268)*y(k,247) - loss(k,151) = (rxt(k,384)* y(k,265) + rxt(k,64) + het_rates(k,158))* y(k,158) - prod(k,151) =.850_r8*rxt(k,382)*y(k,269)*y(k,247) - loss(k,199) = (rxt(k,526)* y(k,142) +rxt(k,528)* y(k,143) +rxt(k,531) & - * y(k,265) + het_rates(k,159))* y(k,159) - prod(k,199) =rxt(k,137)*y(k,146) +rxt(k,138)*y(k,161) - loss(k,26) = ( + rxt(k,109) + het_rates(k,160))* y(k,160) + loss(k,26) = ( + het_rates(k,151))* y(k,151) prod(k,26) = 0._r8 - loss(k,254) = (rxt(k,529)* y(k,21) +rxt(k,530)* y(k,61) +rxt(k,532)* y(k,132) & - +rxt(k,533)* y(k,142) +rxt(k,534)* y(k,143) +rxt(k,535)* y(k,145) & - +rxt(k,536)* y(k,265) + rxt(k,138) + het_rates(k,161))* y(k,161) - prod(k,254) = (rxt(k,526)*y(k,142) +rxt(k,528)*y(k,143) +rxt(k,531)*y(k,265)) & - *y(k,159) +rxt(k,524)*y(k,146)*y(k,141) +rxt(k,139)*y(k,162) - loss(k,221) = (rxt(k,527)* y(k,265) + rxt(k,139) + het_rates(k,162)) & - * y(k,162) - prod(k,221) = (rxt(k,529)*y(k,21) +rxt(k,530)*y(k,61) +rxt(k,532)*y(k,132) + & - rxt(k,533)*y(k,142) +rxt(k,534)*y(k,143) +rxt(k,535)*y(k,145) + & - rxt(k,536)*y(k,265))*y(k,161) + (rxt(k,522)*y(k,133) + & - rxt(k,523)*y(k,265) +.500_r8*rxt(k,537)*y(k,265))*y(k,69) & - +rxt(k,525)*y(k,265)*y(k,146) +rxt(k,140)*y(k,163) - loss(k,129) = (rxt(k,538)* y(k,276) + rxt(k,140) + het_rates(k,163)) & - * y(k,163) - prod(k,129) =rxt(k,136)*y(k,82) +rxt(k,527)*y(k,265)*y(k,162) - loss(k,27) = ( + het_rates(k,164))* y(k,164) + loss(k,27) = ( + het_rates(k,152))* y(k,152) prod(k,27) = 0._r8 - loss(k,28) = ( + het_rates(k,165))* y(k,165) + loss(k,180) = (rxt(k,383)* y(k,265) + rxt(k,63) + het_rates(k,153))* y(k,153) + prod(k,180) =rxt(k,381)*y(k,268)*y(k,243) + loss(k,153) = (rxt(k,387)* y(k,265) + rxt(k,64) + het_rates(k,154))* y(k,154) + prod(k,153) =.850_r8*rxt(k,385)*y(k,269)*y(k,243) + loss(k,199) = (rxt(k,529)* y(k,136) +rxt(k,531)* y(k,137) +rxt(k,534) & + * y(k,265) + het_rates(k,155))* y(k,155) + prod(k,199) =rxt(k,137)*y(k,140) +rxt(k,138)*y(k,157) + loss(k,28) = ( + rxt(k,109) + het_rates(k,156))* y(k,156) prod(k,28) = 0._r8 - loss(k,29) = ( + het_rates(k,166))* y(k,166) + loss(k,256) = (rxt(k,532)* y(k,19) +rxt(k,533)* y(k,59) +rxt(k,535)* y(k,126) & + +rxt(k,536)* y(k,136) +rxt(k,537)* y(k,137) +rxt(k,538)* y(k,139) & + +rxt(k,539)* y(k,265) + rxt(k,138) + het_rates(k,157))* y(k,157) + prod(k,256) = (rxt(k,529)*y(k,136) +rxt(k,531)*y(k,137) +rxt(k,534)*y(k,265)) & + *y(k,155) +rxt(k,527)*y(k,140)*y(k,135) +rxt(k,139)*y(k,158) + loss(k,223) = (rxt(k,530)* y(k,265) + rxt(k,139) + het_rates(k,158)) & + * y(k,158) + prod(k,223) = (rxt(k,532)*y(k,19) +rxt(k,533)*y(k,59) +rxt(k,535)*y(k,126) + & + rxt(k,536)*y(k,136) +rxt(k,537)*y(k,137) +rxt(k,538)*y(k,139) + & + rxt(k,539)*y(k,265))*y(k,157) + (rxt(k,525)*y(k,127) + & + rxt(k,526)*y(k,265) +.500_r8*rxt(k,540)*y(k,265))*y(k,67) & + +rxt(k,528)*y(k,265)*y(k,140) +rxt(k,140)*y(k,159) + loss(k,131) = (rxt(k,541)* y(k,278) + rxt(k,140) + het_rates(k,159)) & + * y(k,159) + prod(k,131) =rxt(k,136)*y(k,80) +rxt(k,530)*y(k,265)*y(k,158) + loss(k,29) = ( + het_rates(k,160))* y(k,160) prod(k,29) = 0._r8 - loss(k,30) = ( + het_rates(k,167))* y(k,167) + loss(k,30) = ( + het_rates(k,161))* y(k,161) prod(k,30) = 0._r8 - loss(k,31) = ( + rxt(k,141) + het_rates(k,168))* y(k,168) + loss(k,31) = ( + het_rates(k,162))* y(k,162) prod(k,31) = 0._r8 - loss(k,32) = ( + rxt(k,142) + het_rates(k,169))* y(k,169) + loss(k,32) = ( + het_rates(k,163))* y(k,163) prod(k,32) = 0._r8 - loss(k,33) = ( + rxt(k,143) + het_rates(k,170))* y(k,170) + loss(k,33) = ( + rxt(k,141) + het_rates(k,164))* y(k,164) prod(k,33) = 0._r8 - loss(k,34) = ( + rxt(k,144) + het_rates(k,171))* y(k,171) + loss(k,34) = ( + rxt(k,142) + het_rates(k,165))* y(k,165) prod(k,34) = 0._r8 - loss(k,35) = ( + rxt(k,145) + het_rates(k,172))* y(k,172) + loss(k,35) = ( + rxt(k,143) + het_rates(k,166))* y(k,166) prod(k,35) = 0._r8 - loss(k,36) = ( + rxt(k,146) + het_rates(k,173))* y(k,173) + loss(k,36) = ( + rxt(k,144) + het_rates(k,167))* y(k,167) prod(k,36) = 0._r8 - loss(k,37) = ( + rxt(k,147) + het_rates(k,174))* y(k,174) + loss(k,37) = ( + rxt(k,145) + het_rates(k,168))* y(k,168) prod(k,37) = 0._r8 - loss(k,38) = ( + rxt(k,148) + het_rates(k,175))* y(k,175) + loss(k,38) = ( + rxt(k,146) + het_rates(k,169))* y(k,169) prod(k,38) = 0._r8 - loss(k,39) = ( + rxt(k,149) + het_rates(k,176))* y(k,176) + loss(k,39) = ( + rxt(k,147) + het_rates(k,170))* y(k,170) prod(k,39) = 0._r8 - loss(k,40) = ( + rxt(k,150) + het_rates(k,177))* y(k,177) + loss(k,40) = ( + rxt(k,148) + het_rates(k,171))* y(k,171) prod(k,40) = 0._r8 - loss(k,41) = ( + rxt(k,151) + het_rates(k,178))* y(k,178) + loss(k,41) = ( + rxt(k,149) + het_rates(k,172))* y(k,172) prod(k,41) = 0._r8 - loss(k,42) = ( + rxt(k,152) + het_rates(k,179))* y(k,179) + loss(k,42) = ( + rxt(k,150) + het_rates(k,173))* y(k,173) prod(k,42) = 0._r8 - loss(k,43) = ( + rxt(k,153) + het_rates(k,180))* y(k,180) + loss(k,43) = ( + rxt(k,151) + het_rates(k,174))* y(k,174) prod(k,43) = 0._r8 - loss(k,44) = ( + rxt(k,154) + het_rates(k,181))* y(k,181) + loss(k,44) = ( + rxt(k,152) + het_rates(k,175))* y(k,175) prod(k,44) = 0._r8 - loss(k,45) = ( + rxt(k,155) + het_rates(k,182))* y(k,182) + loss(k,45) = ( + rxt(k,153) + het_rates(k,176))* y(k,176) prod(k,45) = 0._r8 - loss(k,46) = ( + rxt(k,156) + het_rates(k,183))* y(k,183) + loss(k,46) = ( + rxt(k,154) + het_rates(k,177))* y(k,177) prod(k,46) = 0._r8 - loss(k,47) = ( + rxt(k,157) + het_rates(k,184))* y(k,184) + loss(k,47) = ( + rxt(k,155) + het_rates(k,178))* y(k,178) prod(k,47) = 0._r8 - loss(k,48) = ( + rxt(k,158) + het_rates(k,185))* y(k,185) + loss(k,48) = ( + rxt(k,156) + het_rates(k,179))* y(k,179) prod(k,48) = 0._r8 - loss(k,49) = ( + rxt(k,159) + het_rates(k,186))* y(k,186) + loss(k,49) = ( + rxt(k,157) + het_rates(k,180))* y(k,180) prod(k,49) = 0._r8 - loss(k,50) = ( + rxt(k,160) + het_rates(k,187))* y(k,187) + loss(k,50) = ( + rxt(k,158) + het_rates(k,181))* y(k,181) prod(k,50) = 0._r8 - loss(k,51) = ( + rxt(k,161) + het_rates(k,188))* y(k,188) + loss(k,51) = ( + rxt(k,159) + het_rates(k,182))* y(k,182) prod(k,51) = 0._r8 - loss(k,52) = ( + rxt(k,162) + het_rates(k,189))* y(k,189) + loss(k,52) = ( + rxt(k,160) + het_rates(k,183))* y(k,183) prod(k,52) = 0._r8 - loss(k,53) = ( + rxt(k,163) + het_rates(k,190))* y(k,190) + loss(k,53) = ( + rxt(k,161) + het_rates(k,184))* y(k,184) prod(k,53) = 0._r8 - loss(k,54) = ( + rxt(k,164) + het_rates(k,191))* y(k,191) + loss(k,54) = ( + rxt(k,162) + het_rates(k,185))* y(k,185) prod(k,54) = 0._r8 - loss(k,55) = ( + rxt(k,165) + het_rates(k,192))* y(k,192) + loss(k,55) = ( + rxt(k,163) + het_rates(k,186))* y(k,186) prod(k,55) = 0._r8 - loss(k,56) = ( + rxt(k,166) + het_rates(k,193))* y(k,193) + loss(k,56) = ( + rxt(k,164) + het_rates(k,187))* y(k,187) prod(k,56) = 0._r8 - loss(k,57) = ( + rxt(k,167) + het_rates(k,194))* y(k,194) + loss(k,57) = ( + rxt(k,165) + het_rates(k,188))* y(k,188) prod(k,57) = 0._r8 - loss(k,58) = ( + rxt(k,168) + het_rates(k,195))* y(k,195) + loss(k,58) = ( + rxt(k,166) + het_rates(k,189))* y(k,189) prod(k,58) = 0._r8 - loss(k,59) = ( + rxt(k,169) + het_rates(k,196))* y(k,196) + loss(k,59) = ( + rxt(k,167) + het_rates(k,190))* y(k,190) prod(k,59) = 0._r8 - loss(k,60) = ( + rxt(k,170) + het_rates(k,197))* y(k,197) + loss(k,60) = ( + rxt(k,168) + het_rates(k,191))* y(k,191) prod(k,60) = 0._r8 - loss(k,61) = ( + het_rates(k,198))* y(k,198) - prod(k,61) = (.2381005_r8*rxt(k,566)*y(k,247) + & - .1056005_r8*rxt(k,567)*y(k,131))*y(k,108) & - +.5931005_r8*rxt(k,577)*y(k,265)*y(k,214) - loss(k,62) = ( + het_rates(k,199))* y(k,199) - prod(k,62) = (.1308005_r8*rxt(k,566)*y(k,247) + & - .1026005_r8*rxt(k,567)*y(k,131))*y(k,108) & - +.1534005_r8*rxt(k,577)*y(k,265)*y(k,214) - loss(k,63) = ( + het_rates(k,200))* y(k,200) - prod(k,63) = (.0348005_r8*rxt(k,566)*y(k,247) + & - .0521005_r8*rxt(k,567)*y(k,131))*y(k,108) & - +.0459005_r8*rxt(k,577)*y(k,265)*y(k,214) - loss(k,64) = ( + het_rates(k,201))* y(k,201) - prod(k,64) = (.0076005_r8*rxt(k,566)*y(k,247) + & - .0143005_r8*rxt(k,567)*y(k,131))*y(k,108) & - +.0085005_r8*rxt(k,577)*y(k,265)*y(k,214) - loss(k,65) = ( + het_rates(k,202))* y(k,202) - prod(k,65) = (.0113005_r8*rxt(k,566)*y(k,247) + & - .0166005_r8*rxt(k,567)*y(k,131))*y(k,108) & - +.0128005_r8*rxt(k,577)*y(k,265)*y(k,214) - loss(k,68) = ( + het_rates(k,203))* y(k,203) - prod(k,68) = (.1279005_r8*rxt(k,555)*y(k,7) + & - .0003005_r8*rxt(k,563)*y(k,105) +.0245005_r8*rxt(k,574)*y(k,117)) & - *y(k,131) + (.2202005_r8*rxt(k,554)*y(k,7) + & - .0031005_r8*rxt(k,562)*y(k,105) +.0508005_r8*rxt(k,573)*y(k,117)) & - *y(k,247) + (.2202005_r8*rxt(k,556)*y(k,6) + & - .0508005_r8*rxt(k,575)*y(k,116))*y(k,143) +rxt(k,582)*y(k,77) - loss(k,69) = ( + het_rates(k,204))* y(k,204) - prod(k,69) = (.1792005_r8*rxt(k,555)*y(k,7) + & - .0003005_r8*rxt(k,563)*y(k,105) +.0082005_r8*rxt(k,574)*y(k,117)) & - *y(k,131) + (.2067005_r8*rxt(k,554)*y(k,7) + & - .0035005_r8*rxt(k,562)*y(k,105) +.1149005_r8*rxt(k,573)*y(k,117)) & - *y(k,247) + (.2067005_r8*rxt(k,556)*y(k,6) + & - .1149005_r8*rxt(k,575)*y(k,116))*y(k,143) - loss(k,70) = ( + het_rates(k,205))* y(k,205) - prod(k,70) = (.0676005_r8*rxt(k,555)*y(k,7) + & - .0073005_r8*rxt(k,563)*y(k,105) +.0772005_r8*rxt(k,574)*y(k,117)) & - *y(k,131) + (.0653005_r8*rxt(k,554)*y(k,7) + & - .0003005_r8*rxt(k,562)*y(k,105) +.0348005_r8*rxt(k,573)*y(k,117)) & - *y(k,247) + (.0653005_r8*rxt(k,556)*y(k,6) + & - .0348005_r8*rxt(k,575)*y(k,116))*y(k,143) - loss(k,71) = ( + het_rates(k,206))* y(k,206) - prod(k,71) = (.079_r8*rxt(k,555)*y(k,7) +.0057005_r8*rxt(k,563)*y(k,105) + & - .0332005_r8*rxt(k,574)*y(k,117))*y(k,131) & - + (.1749305_r8*rxt(k,553)*y(k,6) +.0590245_r8*rxt(k,561)*y(k,100) + & - .1749305_r8*rxt(k,572)*y(k,116))*y(k,133) & - + (.1284005_r8*rxt(k,556)*y(k,6) +.0033005_r8*rxt(k,564)*y(k,100) + & - .0554005_r8*rxt(k,575)*y(k,116))*y(k,143) & - + (.1284005_r8*rxt(k,554)*y(k,7) +.0271005_r8*rxt(k,562)*y(k,105) + & - .0554005_r8*rxt(k,573)*y(k,117))*y(k,247) - loss(k,72) = ( + het_rates(k,207))* y(k,207) - prod(k,72) = (.1254005_r8*rxt(k,555)*y(k,7) + & - .0623005_r8*rxt(k,563)*y(k,105) +.130_r8*rxt(k,574)*y(k,117)) & - *y(k,131) + (.5901905_r8*rxt(k,553)*y(k,6) + & - .0250245_r8*rxt(k,561)*y(k,100) +.5901905_r8*rxt(k,572)*y(k,116)) & - *y(k,133) + (.114_r8*rxt(k,554)*y(k,7) + & - .0474005_r8*rxt(k,562)*y(k,105) +.1278005_r8*rxt(k,573)*y(k,117)) & - *y(k,247) + (.114_r8*rxt(k,556)*y(k,6) + & - .1278005_r8*rxt(k,575)*y(k,116))*y(k,143) - loss(k,76) = ( + het_rates(k,208))* y(k,208) - prod(k,76) = (.0097005_r8*rxt(k,560)*y(k,9) + & - .1056005_r8*rxt(k,570)*y(k,110) +.0154005_r8*rxt(k,581)*y(k,224) + & - .0063005_r8*rxt(k,585)*y(k,228))*y(k,131) & - + (.0023005_r8*rxt(k,559)*y(k,9) +.2381005_r8*rxt(k,569)*y(k,110) + & - .1364005_r8*rxt(k,580)*y(k,224) +.1677005_r8*rxt(k,584)*y(k,228)) & - *y(k,247) +.5931005_r8*rxt(k,578)*y(k,265)*y(k,215) - loss(k,77) = ( + het_rates(k,209))* y(k,209) - prod(k,77) = (.0034005_r8*rxt(k,560)*y(k,9) + & - .1026005_r8*rxt(k,570)*y(k,110) +.0452005_r8*rxt(k,581)*y(k,224) + & - .0237005_r8*rxt(k,585)*y(k,228))*y(k,131) & - + (.0008005_r8*rxt(k,559)*y(k,9) +.1308005_r8*rxt(k,569)*y(k,110) + & - .0101005_r8*rxt(k,580)*y(k,224) +.0174005_r8*rxt(k,584)*y(k,228)) & - *y(k,247) +.1534005_r8*rxt(k,578)*y(k,265)*y(k,215) - loss(k,78) = ( + het_rates(k,210))* y(k,210) - prod(k,78) = (.1579005_r8*rxt(k,560)*y(k,9) + & - .0521005_r8*rxt(k,570)*y(k,110) +.0966005_r8*rxt(k,581)*y(k,224) + & - .0025005_r8*rxt(k,585)*y(k,228))*y(k,131) & - + (.0843005_r8*rxt(k,559)*y(k,9) +.0348005_r8*rxt(k,569)*y(k,110) + & - .0763005_r8*rxt(k,580)*y(k,224) +.086_r8*rxt(k,584)*y(k,228)) & - *y(k,247) +.0459005_r8*rxt(k,578)*y(k,265)*y(k,215) - loss(k,79) = ( + het_rates(k,211))* y(k,211) - prod(k,79) = (.0059005_r8*rxt(k,560)*y(k,9) + & - .0143005_r8*rxt(k,570)*y(k,110) +.0073005_r8*rxt(k,581)*y(k,224) + & - .011_r8*rxt(k,585)*y(k,228))*y(k,131) & - + (.0443005_r8*rxt(k,559)*y(k,9) +.0076005_r8*rxt(k,569)*y(k,110) + & - .2157005_r8*rxt(k,580)*y(k,224) +.0512005_r8*rxt(k,584)*y(k,228)) & - *y(k,247) +.0085005_r8*rxt(k,578)*y(k,265)*y(k,215) - loss(k,80) = ( + het_rates(k,212))* y(k,212) - prod(k,80) = (.0536005_r8*rxt(k,560)*y(k,9) + & - .0166005_r8*rxt(k,570)*y(k,110) +.238_r8*rxt(k,581)*y(k,224) + & - .1185005_r8*rxt(k,585)*y(k,228))*y(k,131) & - + (.1621005_r8*rxt(k,559)*y(k,9) +.0113005_r8*rxt(k,569)*y(k,110) + & - .0738005_r8*rxt(k,580)*y(k,224) +.1598005_r8*rxt(k,584)*y(k,228)) & - *y(k,247) +.0128005_r8*rxt(k,578)*y(k,265)*y(k,215) - loss(k,84) = ( + rxt(k,621) + het_rates(k,213))* y(k,213) - prod(k,84) = 0._r8 - loss(k,85) = (rxt(k,577)* y(k,265) + het_rates(k,214))* y(k,214) - prod(k,85) = 0._r8 - loss(k,86) = (rxt(k,578)* y(k,265) + het_rates(k,215))* y(k,215) - prod(k,86) = 0._r8 - loss(k,114) = ( + rxt(k,65) + het_rates(k,216))* y(k,216) - prod(k,114) = (.100_r8*rxt(k,489)*y(k,223) +.230_r8*rxt(k,491)*y(k,226)) & + loss(k,61) = ( + rxt(k,169) + het_rates(k,192))* y(k,192) + prod(k,61) = 0._r8 + loss(k,62) = ( + rxt(k,170) + het_rates(k,193))* y(k,193) + prod(k,62) = 0._r8 + loss(k,63) = ( + het_rates(k,194))* y(k,194) + prod(k,63) = (.2381005_r8*rxt(k,569)*y(k,243) + & + .1056005_r8*rxt(k,570)*y(k,125))*y(k,248) & + +.5931005_r8*rxt(k,580)*y(k,265)*y(k,210) + loss(k,64) = ( + het_rates(k,195))* y(k,195) + prod(k,64) = (.1308005_r8*rxt(k,569)*y(k,243) + & + .1026005_r8*rxt(k,570)*y(k,125))*y(k,248) & + +.1534005_r8*rxt(k,580)*y(k,265)*y(k,210) + loss(k,65) = ( + het_rates(k,196))* y(k,196) + prod(k,65) = (.0348005_r8*rxt(k,569)*y(k,243) + & + .0521005_r8*rxt(k,570)*y(k,125))*y(k,248) & + +.0459005_r8*rxt(k,580)*y(k,265)*y(k,210) + loss(k,66) = ( + het_rates(k,197))* y(k,197) + prod(k,66) = (.0076005_r8*rxt(k,569)*y(k,243) + & + .0143005_r8*rxt(k,570)*y(k,125))*y(k,248) & + +.0085005_r8*rxt(k,580)*y(k,265)*y(k,210) + loss(k,67) = ( + het_rates(k,198))* y(k,198) + prod(k,67) = (.0113005_r8*rxt(k,569)*y(k,243) + & + .0166005_r8*rxt(k,570)*y(k,125))*y(k,248) & + +.0128005_r8*rxt(k,580)*y(k,265)*y(k,210) + loss(k,68) = ( + het_rates(k,199))* y(k,199) + prod(k,68) = (.1279005_r8*rxt(k,558)*y(k,229) + & + .0003005_r8*rxt(k,566)*y(k,247) +.0245005_r8*rxt(k,577)*y(k,255)) & + *y(k,125) + (.2202005_r8*rxt(k,557)*y(k,229) + & + .0031005_r8*rxt(k,565)*y(k,247) +.0508005_r8*rxt(k,576)*y(k,255)) & + *y(k,243) + (.2202005_r8*rxt(k,559)*y(k,6) + & + .0508005_r8*rxt(k,578)*y(k,111))*y(k,137) +rxt(k,585)*y(k,75) + loss(k,69) = ( + het_rates(k,200))* y(k,200) + prod(k,69) = (.1792005_r8*rxt(k,558)*y(k,229) + & + .0003005_r8*rxt(k,566)*y(k,247) +.0082005_r8*rxt(k,577)*y(k,255)) & + *y(k,125) + (.2067005_r8*rxt(k,557)*y(k,229) + & + .0035005_r8*rxt(k,565)*y(k,247) +.1149005_r8*rxt(k,576)*y(k,255)) & + *y(k,243) + (.2067005_r8*rxt(k,559)*y(k,6) + & + .1149005_r8*rxt(k,578)*y(k,111))*y(k,137) + loss(k,70) = ( + het_rates(k,201))* y(k,201) + prod(k,70) = (.0676005_r8*rxt(k,558)*y(k,229) + & + .0073005_r8*rxt(k,566)*y(k,247) +.0772005_r8*rxt(k,577)*y(k,255)) & + *y(k,125) + (.0653005_r8*rxt(k,557)*y(k,229) + & + .0003005_r8*rxt(k,565)*y(k,247) +.0348005_r8*rxt(k,576)*y(k,255)) & + *y(k,243) + (.0653005_r8*rxt(k,559)*y(k,6) + & + .0348005_r8*rxt(k,578)*y(k,111))*y(k,137) + loss(k,71) = ( + het_rates(k,202))* y(k,202) + prod(k,71) = (.079_r8*rxt(k,558)*y(k,229) +.0057005_r8*rxt(k,566)*y(k,247) + & + .0332005_r8*rxt(k,577)*y(k,255))*y(k,125) & + + (.1749305_r8*rxt(k,556)*y(k,6) +.0590245_r8*rxt(k,564)*y(k,98) + & + .1749305_r8*rxt(k,575)*y(k,111))*y(k,127) & + + (.1284005_r8*rxt(k,559)*y(k,6) +.0033005_r8*rxt(k,567)*y(k,98) + & + .0554005_r8*rxt(k,578)*y(k,111))*y(k,137) & + + (.1284005_r8*rxt(k,557)*y(k,229) + & + .0271005_r8*rxt(k,565)*y(k,247) +.0554005_r8*rxt(k,576)*y(k,255)) & + *y(k,243) + loss(k,72) = ( + het_rates(k,203))* y(k,203) + prod(k,72) = (.1254005_r8*rxt(k,558)*y(k,229) + & + .0623005_r8*rxt(k,566)*y(k,247) +.130_r8*rxt(k,577)*y(k,255)) & + *y(k,125) + (.5901905_r8*rxt(k,556)*y(k,6) + & + .0250245_r8*rxt(k,564)*y(k,98) +.5901905_r8*rxt(k,575)*y(k,111)) & + *y(k,127) + (.114_r8*rxt(k,557)*y(k,229) + & + .0474005_r8*rxt(k,565)*y(k,247) +.1278005_r8*rxt(k,576)*y(k,255)) & + *y(k,243) + (.114_r8*rxt(k,559)*y(k,6) + & + .1278005_r8*rxt(k,578)*y(k,111))*y(k,137) + loss(k,73) = ( + het_rates(k,204))* y(k,204) + prod(k,73) = (.0097005_r8*rxt(k,563)*y(k,231) + & + .1056005_r8*rxt(k,573)*y(k,249) +.0154005_r8*rxt(k,584)*y(k,273) + & + .0063005_r8*rxt(k,588)*y(k,276))*y(k,125) & + + (.0023005_r8*rxt(k,562)*y(k,231) + & + .2381005_r8*rxt(k,572)*y(k,249) +.1364005_r8*rxt(k,583)*y(k,273) + & + .1677005_r8*rxt(k,587)*y(k,276))*y(k,243) & + +.5931005_r8*rxt(k,581)*y(k,265)*y(k,211) + loss(k,74) = ( + het_rates(k,205))* y(k,205) + prod(k,74) = (.0034005_r8*rxt(k,563)*y(k,231) + & + .1026005_r8*rxt(k,573)*y(k,249) +.0452005_r8*rxt(k,584)*y(k,273) + & + .0237005_r8*rxt(k,588)*y(k,276))*y(k,125) & + + (.0008005_r8*rxt(k,562)*y(k,231) + & + .1308005_r8*rxt(k,572)*y(k,249) +.0101005_r8*rxt(k,583)*y(k,273) + & + .0174005_r8*rxt(k,587)*y(k,276))*y(k,243) & + +.1534005_r8*rxt(k,581)*y(k,265)*y(k,211) + loss(k,75) = ( + het_rates(k,206))* y(k,206) + prod(k,75) = (.1579005_r8*rxt(k,563)*y(k,231) + & + .0521005_r8*rxt(k,573)*y(k,249) +.0966005_r8*rxt(k,584)*y(k,273) + & + .0025005_r8*rxt(k,588)*y(k,276))*y(k,125) & + + (.0843005_r8*rxt(k,562)*y(k,231) + & + .0348005_r8*rxt(k,572)*y(k,249) +.0763005_r8*rxt(k,583)*y(k,273) + & + .086_r8*rxt(k,587)*y(k,276))*y(k,243) & + +.0459005_r8*rxt(k,581)*y(k,265)*y(k,211) + loss(k,76) = ( + het_rates(k,207))* y(k,207) + prod(k,76) = (.0059005_r8*rxt(k,563)*y(k,231) + & + .0143005_r8*rxt(k,573)*y(k,249) +.0073005_r8*rxt(k,584)*y(k,273) + & + .011_r8*rxt(k,588)*y(k,276))*y(k,125) & + + (.0443005_r8*rxt(k,562)*y(k,231) + & + .0076005_r8*rxt(k,572)*y(k,249) +.2157005_r8*rxt(k,583)*y(k,273) + & + .0512005_r8*rxt(k,587)*y(k,276))*y(k,243) & + +.0085005_r8*rxt(k,581)*y(k,265)*y(k,211) + loss(k,77) = ( + het_rates(k,208))* y(k,208) + prod(k,77) = (.0536005_r8*rxt(k,563)*y(k,231) + & + .0166005_r8*rxt(k,573)*y(k,249) +.238_r8*rxt(k,584)*y(k,273) + & + .1185005_r8*rxt(k,588)*y(k,276))*y(k,125) & + + (.1621005_r8*rxt(k,562)*y(k,231) + & + .0113005_r8*rxt(k,572)*y(k,249) +.0738005_r8*rxt(k,583)*y(k,273) + & + .1598005_r8*rxt(k,587)*y(k,276))*y(k,243) & + +.0128005_r8*rxt(k,581)*y(k,265)*y(k,211) + loss(k,78) = ( + rxt(k,624) + het_rates(k,209))* y(k,209) + prod(k,78) = 0._r8 + loss(k,79) = (rxt(k,580)* y(k,265) + het_rates(k,210))* y(k,210) + prod(k,79) = 0._r8 + loss(k,80) = (rxt(k,581)* y(k,265) + het_rates(k,211))* y(k,211) + prod(k,80) = 0._r8 + loss(k,116) = ( + rxt(k,65) + het_rates(k,212))* y(k,212) + prod(k,116) = (.100_r8*rxt(k,492)*y(k,219) +.230_r8*rxt(k,494)*y(k,221)) & *y(k,265) - loss(k,194) = (rxt(k,513)* y(k,265) + rxt(k,66) + het_rates(k,217))* y(k,217) - prod(k,194) =rxt(k,511)*y(k,270)*y(k,247) - loss(k,189) = (rxt(k,514)* y(k,265) + rxt(k,67) + rxt(k,552) & - + het_rates(k,218))* y(k,218) - prod(k,189) = (.200_r8*rxt(k,507)*y(k,260) +.200_r8*rxt(k,517)*y(k,271)) & - *y(k,131) +.500_r8*rxt(k,505)*y(k,260)*y(k,241) - loss(k,168) = (rxt(k,518)* y(k,265) + rxt(k,68) + het_rates(k,219))* y(k,219) - prod(k,168) =rxt(k,516)*y(k,271)*y(k,247) - loss(k,229) = (rxt(k,519)* y(k,133) +rxt(k,520)* y(k,265) + rxt(k,69) & - + het_rates(k,220))* y(k,220) - prod(k,229) = (.500_r8*rxt(k,505)*y(k,241) +.800_r8*rxt(k,507)*y(k,131) + & - rxt(k,508)*y(k,133))*y(k,260) + (.330_r8*rxt(k,500)*y(k,6) + & - .330_r8*rxt(k,503)*y(k,116))*y(k,143) + (rxt(k,67) + & - rxt(k,514)*y(k,265))*y(k,218) + (rxt(k,515)*y(k,241) + & - .800_r8*rxt(k,517)*y(k,131))*y(k,271) +rxt(k,59)*y(k,135) +rxt(k,68) & - *y(k,219) - loss(k,233) = (rxt(k,521)* y(k,265) + rxt(k,70) + het_rates(k,221))* y(k,221) - prod(k,233) = (.300_r8*rxt(k,500)*y(k,6) +.300_r8*rxt(k,503)*y(k,116)) & - *y(k,143) + (rxt(k,510)*y(k,241) +.900_r8*rxt(k,512)*y(k,131)) & - *y(k,270) +rxt(k,66)*y(k,217) +rxt(k,69)*y(k,220) - loss(k,186) = (rxt(k,488)* y(k,265) + rxt(k,71) + het_rates(k,222))* y(k,222) - prod(k,186) =rxt(k,486)*y(k,272)*y(k,247) - loss(k,112) = ((rxt(k,489) +rxt(k,579))* y(k,265) + het_rates(k,223)) & - * y(k,223) - prod(k,112) = 0._r8 - loss(k,87) = (rxt(k,581)* y(k,131) +rxt(k,580)* y(k,247) + het_rates(k,224)) & - * y(k,224) - prod(k,87) =rxt(k,579)*y(k,265)*y(k,223) - loss(k,115) = (rxt(k,455)* y(k,265) + rxt(k,72) + het_rates(k,225))* y(k,225) - prod(k,115) =rxt(k,452)*y(k,273)*y(k,247) - loss(k,117) = (rxt(k,491)* y(k,265) + het_rates(k,226))* y(k,226) - prod(k,117) = 0._r8 - loss(k,198) = (rxt(k,494)* y(k,265) + rxt(k,73) + het_rates(k,227))* y(k,227) - prod(k,198) =rxt(k,492)*y(k,274)*y(k,247) - loss(k,88) = (rxt(k,585)* y(k,131) +rxt(k,584)* y(k,247) + het_rates(k,228)) & - * y(k,228) - prod(k,88) =rxt(k,583)*y(k,265)*y(k,226) - loss(k,118) = (rxt(k,497)* y(k,265) + het_rates(k,229))* y(k,229) - prod(k,118) =.150_r8*rxt(k,491)*y(k,265)*y(k,226) - loss(k,159) = (rxt(k,498)* y(k,265) + rxt(k,74) + het_rates(k,230))* y(k,230) - prod(k,159) =rxt(k,495)*y(k,275)*y(k,247) - loss(k,174) = (rxt(k,457)* y(k,131) +rxt(k,485)* y(k,132) +rxt(k,456) & - * y(k,247) + het_rates(k,233))* y(k,233) - prod(k,174) =rxt(k,462)*y(k,265)*y(k,24) +rxt(k,490)*y(k,149) - loss(k,226) = ((rxt(k,418) +rxt(k,419))* y(k,131) +rxt(k,417)* y(k,247) & - + het_rates(k,234))* y(k,234) - prod(k,226) = (rxt(k,420)*y(k,2) +rxt(k,421)*y(k,17))*y(k,265) - loss(k,170) = (rxt(k,460)* y(k,131) +rxt(k,459)* y(k,247) + het_rates(k,235)) & + loss(k,195) = (rxt(k,516)* y(k,265) + rxt(k,66) + het_rates(k,213))* y(k,213) + prod(k,195) =rxt(k,514)*y(k,270)*y(k,243) + loss(k,191) = (rxt(k,517)* y(k,265) + rxt(k,67) + rxt(k,555) & + + het_rates(k,214))* y(k,214) + prod(k,191) = (.200_r8*rxt(k,510)*y(k,260) +.200_r8*rxt(k,520)*y(k,271)) & + *y(k,125) +.500_r8*rxt(k,508)*y(k,260)*y(k,237) + loss(k,169) = (rxt(k,521)* y(k,265) + rxt(k,68) + het_rates(k,215))* y(k,215) + prod(k,169) =rxt(k,519)*y(k,271)*y(k,243) + loss(k,231) = (rxt(k,522)* y(k,127) +rxt(k,523)* y(k,265) + rxt(k,69) & + + het_rates(k,216))* y(k,216) + prod(k,231) = (.500_r8*rxt(k,508)*y(k,237) +.800_r8*rxt(k,510)*y(k,125) + & + rxt(k,511)*y(k,127))*y(k,260) + (.330_r8*rxt(k,503)*y(k,6) + & + .330_r8*rxt(k,506)*y(k,111))*y(k,137) + (rxt(k,67) + & + rxt(k,517)*y(k,265))*y(k,214) + (rxt(k,518)*y(k,237) + & + .800_r8*rxt(k,520)*y(k,125))*y(k,271) +rxt(k,59)*y(k,129) +rxt(k,68) & + *y(k,215) + loss(k,235) = (rxt(k,524)* y(k,265) + rxt(k,70) + het_rates(k,217))* y(k,217) + prod(k,235) = (.300_r8*rxt(k,503)*y(k,6) +.300_r8*rxt(k,506)*y(k,111)) & + *y(k,137) + (rxt(k,513)*y(k,237) +.900_r8*rxt(k,515)*y(k,125)) & + *y(k,270) +rxt(k,66)*y(k,213) +rxt(k,69)*y(k,216) + loss(k,186) = (rxt(k,491)* y(k,265) + rxt(k,71) + het_rates(k,218))* y(k,218) + prod(k,186) =rxt(k,489)*y(k,272)*y(k,243) + loss(k,114) = ((rxt(k,492) +rxt(k,582))* y(k,265) + het_rates(k,219)) & + * y(k,219) + prod(k,114) = 0._r8 + loss(k,117) = (rxt(k,458)* y(k,265) + rxt(k,72) + het_rates(k,220))* y(k,220) + prod(k,117) =rxt(k,455)*y(k,274)*y(k,243) + loss(k,119) = (rxt(k,494)* y(k,265) + het_rates(k,221))* y(k,221) + prod(k,119) = 0._r8 + loss(k,200) = (rxt(k,497)* y(k,265) + rxt(k,73) + het_rates(k,222))* y(k,222) + prod(k,200) =rxt(k,495)*y(k,275)*y(k,243) + loss(k,120) = (rxt(k,500)* y(k,265) + het_rates(k,223))* y(k,223) + prod(k,120) =.150_r8*rxt(k,494)*y(k,265)*y(k,221) + loss(k,160) = (rxt(k,501)* y(k,265) + rxt(k,74) + het_rates(k,224))* y(k,224) + prod(k,160) =rxt(k,498)*y(k,277)*y(k,243) + loss(k,176) = (rxt(k,460)* y(k,125) +rxt(k,488)* y(k,126) +rxt(k,459) & + * y(k,243) + het_rates(k,227))* y(k,227) + prod(k,176) =rxt(k,465)*y(k,265)*y(k,22) +rxt(k,493)*y(k,143) + loss(k,228) = ((rxt(k,421) +rxt(k,422))* y(k,125) +rxt(k,420)* y(k,243) & + + het_rates(k,228))* y(k,228) + prod(k,228) = (rxt(k,423)*y(k,2) +rxt(k,424)*y(k,15))*y(k,265) + loss(k,81) = (rxt(k,558)* y(k,125) +rxt(k,557)* y(k,243) + het_rates(k,229)) & + * y(k,229) + prod(k,81) =rxt(k,560)*y(k,265)*y(k,6) + loss(k,170) = (rxt(k,463)* y(k,125) +rxt(k,462)* y(k,243) + het_rates(k,230)) & + * y(k,230) + prod(k,170) = (.350_r8*rxt(k,461)*y(k,7) +rxt(k,464)*y(k,8))*y(k,265) + loss(k,82) = (rxt(k,563)* y(k,125) +rxt(k,562)* y(k,243) + het_rates(k,231)) & + * y(k,231) + prod(k,82) =rxt(k,561)*y(k,265)*y(k,7) + loss(k,161) = (rxt(k,468)* y(k,125) +rxt(k,466)* y(k,243) + het_rates(k,232)) & + * y(k,232) + prod(k,161) = (rxt(k,467)*y(k,23) +.070_r8*rxt(k,492)*y(k,219) + & + .060_r8*rxt(k,494)*y(k,221))*y(k,265) + loss(k,218) = (rxt(k,345)* y(k,125) + 2._r8*rxt(k,342)* y(k,233) +rxt(k,343) & + * y(k,237) +rxt(k,344)* y(k,243) + het_rates(k,233))* y(k,233) + prod(k,218) = (rxt(k,348)*y(k,56) +rxt(k,349)*y(k,265))*y(k,28) & + +.500_r8*rxt(k,347)*y(k,265)*y(k,27) +rxt(k,53)*y(k,108) + loss(k,222) = (rxt(k,373)* y(k,125) +rxt(k,371)* y(k,237) +rxt(k,372) & + * y(k,243) + het_rates(k,234))* y(k,234) + prod(k,222) = (rxt(k,375)*y(k,265) +rxt(k,378)*y(k,56))*y(k,31) & + +rxt(k,374)*y(k,265)*y(k,30) + loss(k,192) = (rxt(k,470)* y(k,125) +rxt(k,469)* y(k,243) + het_rates(k,235)) & * y(k,235) - prod(k,170) = (.350_r8*rxt(k,458)*y(k,8) +rxt(k,461)*y(k,10))*y(k,265) - loss(k,160) = (rxt(k,465)* y(k,131) +rxt(k,463)* y(k,247) + het_rates(k,236)) & + prod(k,192) = (.400_r8*rxt(k,459)*y(k,243) +rxt(k,460)*y(k,125))*y(k,227) & + +rxt(k,471)*y(k,265)*y(k,32) +rxt(k,486)*y(k,144)*y(k,137) + loss(k,253) = (rxt(k,442)* y(k,101) +rxt(k,356)* y(k,125) +rxt(k,367) & + * y(k,126) + 2._r8*rxt(k,353)* y(k,236) +rxt(k,354)* y(k,237) & + +rxt(k,355)* y(k,243) +rxt(k,428)* y(k,245) +rxt(k,433)* y(k,246) & + +rxt(k,395)* y(k,250) +rxt(k,453)* y(k,274) + het_rates(k,236)) & * y(k,236) - prod(k,160) = (rxt(k,464)*y(k,25) +.070_r8*rxt(k,489)*y(k,223) + & - .060_r8*rxt(k,491)*y(k,226))*y(k,265) - loss(k,217) = (rxt(k,342)* y(k,131) + 2._r8*rxt(k,339)* y(k,237) +rxt(k,340) & - * y(k,241) +rxt(k,341)* y(k,247) + het_rates(k,237))* y(k,237) - prod(k,217) = (rxt(k,345)*y(k,58) +rxt(k,346)*y(k,265))*y(k,30) & - +.500_r8*rxt(k,344)*y(k,265)*y(k,29) +rxt(k,53)*y(k,113) - loss(k,220) = (rxt(k,370)* y(k,131) +rxt(k,368)* y(k,241) +rxt(k,369) & - * y(k,247) + het_rates(k,238))* y(k,238) - prod(k,220) = (rxt(k,372)*y(k,265) +rxt(k,375)*y(k,58))*y(k,33) & - +rxt(k,371)*y(k,265)*y(k,32) - loss(k,190) = (rxt(k,467)* y(k,131) +rxt(k,466)* y(k,247) + het_rates(k,239)) & - * y(k,239) - prod(k,190) = (.400_r8*rxt(k,456)*y(k,247) +rxt(k,457)*y(k,131))*y(k,233) & - +rxt(k,468)*y(k,265)*y(k,34) +rxt(k,483)*y(k,150)*y(k,143) - loss(k,251) = (rxt(k,439)* y(k,103) +rxt(k,353)* y(k,131) +rxt(k,364) & - * y(k,132) + 2._r8*rxt(k,350)* y(k,240) +rxt(k,351)* y(k,241) & - +rxt(k,352)* y(k,247) +rxt(k,425)* y(k,249) +rxt(k,430)* y(k,250) & - +rxt(k,392)* y(k,251) +rxt(k,450)* y(k,273) + het_rates(k,240)) & + prod(k,253) = (.100_r8*rxt(k,401)*y(k,106) +.280_r8*rxt(k,415)*y(k,112) + & + .080_r8*rxt(k,448)*y(k,98) +.060_r8*rxt(k,503)*y(k,6) + & + .060_r8*rxt(k,506)*y(k,111))*y(k,137) + (rxt(k,405)*y(k,237) + & + .450_r8*rxt(k,406)*y(k,243) +2.000_r8*rxt(k,407)*y(k,252) + & + rxt(k,408)*y(k,125) +rxt(k,409)*y(k,127))*y(k,252) & + + (.530_r8*rxt(k,395)*y(k,236) +.260_r8*rxt(k,396)*y(k,237) + & + .530_r8*rxt(k,398)*y(k,127) +.530_r8*rxt(k,399)*y(k,125))*y(k,250) & + + (rxt(k,351)*y(k,45) +.500_r8*rxt(k,358)*y(k,51) + & + rxt(k,377)*y(k,49) +.650_r8*rxt(k,524)*y(k,217))*y(k,265) & + + (.300_r8*rxt(k,384)*y(k,237) +.150_r8*rxt(k,385)*y(k,243) + & + rxt(k,386)*y(k,125))*y(k,269) + (rxt(k,37) +rxt(k,376)*y(k,127)) & + *y(k,49) + (.600_r8*rxt(k,61) +rxt(k,368))*y(k,142) & + + (.200_r8*rxt(k,410)*y(k,243) +rxt(k,411)*y(k,125))*y(k,254) & + +.130_r8*rxt(k,24)*y(k,10) +rxt(k,28)*y(k,14) +rxt(k,350)*y(k,127) & + *y(k,45) +rxt(k,36)*y(k,48) +.330_r8*rxt(k,46)*y(k,93) +rxt(k,48) & + *y(k,95) +1.340_r8*rxt(k,51)*y(k,106) +rxt(k,53)*y(k,108) +rxt(k,54) & + *y(k,109) +.300_r8*rxt(k,56)*y(k,112) +rxt(k,58)*y(k,128) +rxt(k,64) & + *y(k,154) +.500_r8*rxt(k,65)*y(k,212) +.650_r8*rxt(k,70)*y(k,217) + loss(k,269) = (rxt(k,244)* y(k,59) +rxt(k,443)* y(k,101) +rxt(k,324) & + * y(k,125) +rxt(k,343)* y(k,233) +rxt(k,371)* y(k,234) +rxt(k,354) & + * y(k,236) + 2._r8*(rxt(k,321) +rxt(k,322))* y(k,237) +rxt(k,323) & + * y(k,243) +rxt(k,429)* y(k,245) +rxt(k,434)* y(k,246) +rxt(k,396) & + * y(k,250) +rxt(k,405)* y(k,252) +rxt(k,508)* y(k,260) +rxt(k,384) & + * y(k,269) +rxt(k,513)* y(k,270) +rxt(k,518)* y(k,271) +rxt(k,454) & + * y(k,274) + het_rates(k,237))* y(k,237) + prod(k,269) = (2.000_r8*rxt(k,353)*y(k,236) +.900_r8*rxt(k,354)*y(k,237) + & + .450_r8*rxt(k,355)*y(k,243) +rxt(k,356)*y(k,125) + & + rxt(k,395)*y(k,250) +rxt(k,404)*y(k,252) +rxt(k,428)*y(k,245) + & + rxt(k,433)*y(k,246) +rxt(k,442)*y(k,101) +rxt(k,453)*y(k,274)) & + *y(k,236) + (rxt(k,41) +rxt(k,238)*y(k,56) +rxt(k,294)*y(k,73) + & + rxt(k,327)*y(k,265) +rxt(k,333)*y(k,261))*y(k,54) & + + (.830_r8*rxt(k,474)*y(k,238) +.170_r8*rxt(k,480)*y(k,253)) & + *y(k,125) + (.280_r8*rxt(k,370)*y(k,29) +.050_r8*rxt(k,448)*y(k,98)) & + *y(k,137) + (.330_r8*rxt(k,473)*y(k,238) + & + .070_r8*rxt(k,479)*y(k,253))*y(k,243) + (.700_r8*rxt(k,326)*y(k,53) + & + rxt(k,357)*y(k,50))*y(k,265) +rxt(k,88)*y(k,43) +rxt(k,35)*y(k,45) & + +rxt(k,90)*y(k,46) +rxt(k,36)*y(k,48) +rxt(k,38)*y(k,51) & + +.300_r8*rxt(k,56)*y(k,112) +.400_r8*rxt(k,61)*y(k,142) + loss(k,205) = (rxt(k,474)* y(k,125) +rxt(k,475)* y(k,126) +rxt(k,473) & + * y(k,243) + het_rates(k,238))* y(k,238) + prod(k,205) =.600_r8*rxt(k,26)*y(k,12) + loss(k,215) = (rxt(k,608)* y(k,257) +rxt(k,606)* y(k,258) +rxt(k,607) & + * y(k,264) + het_rates(k,239))* y(k,239) + prod(k,215) = (rxt(k,126) +rxt(k,127) +rxt(k,128) +rxt(k,129) +rxt(k,130) + & + rxt(k,131) +rxt(k,132) +rxt(k,133))*y(k,136) + (rxt(k,120) + & + rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) +rxt(k,125))*y(k,135) & + +rxt(k,111)*y(k,113) +rxt(k,16)*y(k,125) + loss(k,181) = ((rxt(k,392) +rxt(k,393))* y(k,125) + het_rates(k,240)) & * y(k,240) - prod(k,251) = (.100_r8*rxt(k,398)*y(k,111) +.280_r8*rxt(k,412)*y(k,118) + & - .080_r8*rxt(k,445)*y(k,100) +.060_r8*rxt(k,500)*y(k,6) + & - .060_r8*rxt(k,503)*y(k,116))*y(k,143) + (rxt(k,402)*y(k,241) + & - .450_r8*rxt(k,403)*y(k,247) +2.000_r8*rxt(k,404)*y(k,253) + & - rxt(k,405)*y(k,131) +rxt(k,406)*y(k,133))*y(k,253) & - + (.530_r8*rxt(k,392)*y(k,240) +.260_r8*rxt(k,393)*y(k,241) + & - .530_r8*rxt(k,395)*y(k,133) +.530_r8*rxt(k,396)*y(k,131))*y(k,251) & - + (rxt(k,348)*y(k,47) +.500_r8*rxt(k,355)*y(k,53) + & - rxt(k,374)*y(k,51) +.650_r8*rxt(k,521)*y(k,221))*y(k,265) & - + (.300_r8*rxt(k,381)*y(k,241) +.150_r8*rxt(k,382)*y(k,247) + & - rxt(k,383)*y(k,131))*y(k,269) + (rxt(k,37) +rxt(k,373)*y(k,133)) & - *y(k,51) + (.600_r8*rxt(k,61) +rxt(k,365))*y(k,148) & - + (.200_r8*rxt(k,407)*y(k,247) +rxt(k,408)*y(k,131))*y(k,255) & - +.130_r8*rxt(k,24)*y(k,12) +rxt(k,28)*y(k,16) +rxt(k,347)*y(k,133) & - *y(k,47) +rxt(k,36)*y(k,50) +.330_r8*rxt(k,46)*y(k,95) +rxt(k,48) & - *y(k,97) +1.340_r8*rxt(k,51)*y(k,111) +rxt(k,53)*y(k,113) +rxt(k,54) & - *y(k,114) +.300_r8*rxt(k,56)*y(k,118) +rxt(k,58)*y(k,134) +rxt(k,64) & - *y(k,158) +.500_r8*rxt(k,65)*y(k,216) +.650_r8*rxt(k,70)*y(k,221) - loss(k,270) = (rxt(k,241)* y(k,61) +rxt(k,440)* y(k,103) +rxt(k,321) & - * y(k,131) +rxt(k,340)* y(k,237) +rxt(k,368)* y(k,238) +rxt(k,351) & - * y(k,240) + 2._r8*(rxt(k,318) +rxt(k,319))* y(k,241) +rxt(k,320) & - * y(k,247) +rxt(k,426)* y(k,249) +rxt(k,431)* y(k,250) +rxt(k,393) & - * y(k,251) +rxt(k,402)* y(k,253) +rxt(k,505)* y(k,260) +rxt(k,381) & - * y(k,269) +rxt(k,510)* y(k,270) +rxt(k,515)* y(k,271) +rxt(k,451) & - * y(k,273) + het_rates(k,241))* y(k,241) - prod(k,270) = (2.000_r8*rxt(k,350)*y(k,240) +.900_r8*rxt(k,351)*y(k,241) + & - .450_r8*rxt(k,352)*y(k,247) +rxt(k,353)*y(k,131) + & - rxt(k,392)*y(k,251) +rxt(k,401)*y(k,253) +rxt(k,425)*y(k,249) + & - rxt(k,430)*y(k,250) +rxt(k,439)*y(k,103) +rxt(k,450)*y(k,273)) & - *y(k,240) + (rxt(k,41) +rxt(k,235)*y(k,58) +rxt(k,291)*y(k,75) + & - rxt(k,324)*y(k,265) +rxt(k,330)*y(k,261))*y(k,56) & - + (.830_r8*rxt(k,471)*y(k,242) +.170_r8*rxt(k,477)*y(k,254)) & - *y(k,131) + (.280_r8*rxt(k,367)*y(k,31) +.050_r8*rxt(k,445)*y(k,100)) & - *y(k,143) + (.330_r8*rxt(k,470)*y(k,242) + & - .070_r8*rxt(k,476)*y(k,254))*y(k,247) + (.700_r8*rxt(k,323)*y(k,55) + & - rxt(k,354)*y(k,52))*y(k,265) +rxt(k,88)*y(k,45) +rxt(k,35)*y(k,47) & - +rxt(k,90)*y(k,48) +rxt(k,36)*y(k,50) +rxt(k,38)*y(k,53) & - +.300_r8*rxt(k,56)*y(k,118) +.400_r8*rxt(k,61)*y(k,148) - loss(k,203) = (rxt(k,471)* y(k,131) +rxt(k,472)* y(k,132) +rxt(k,470) & - * y(k,247) + het_rates(k,242))* y(k,242) - prod(k,203) =.600_r8*rxt(k,26)*y(k,14) - loss(k,213) = (rxt(k,605)* y(k,257) +rxt(k,603)* y(k,258) +rxt(k,604) & - * y(k,264) + het_rates(k,243))* y(k,243) - prod(k,213) = (rxt(k,126) +rxt(k,127) +rxt(k,128) +rxt(k,129) +rxt(k,130) + & - rxt(k,131) +rxt(k,132) +rxt(k,133))*y(k,142) + (rxt(k,120) + & - rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) +rxt(k,125))*y(k,141) & - +rxt(k,111)*y(k,119) +rxt(k,16)*y(k,131) - loss(k,180) = ((rxt(k,389) +rxt(k,390))* y(k,131) + het_rates(k,244)) & - * y(k,244) - prod(k,180) =rxt(k,388)*y(k,265)*y(k,18) - loss(k,165) = (rxt(k,359)* y(k,142) + rxt(k,358) + het_rates(k,245)) & - * y(k,245) - prod(k,165) =rxt(k,43)*y(k,74) +.750_r8*rxt(k,357)*y(k,246)*y(k,131) - loss(k,204) = (rxt(k,357)* y(k,131) +rxt(k,356)* y(k,247) + het_rates(k,246)) & - * y(k,246) - prod(k,204) =rxt(k,363)*y(k,265)*y(k,27) - loss(k,266) = (rxt(k,271)* y(k,19) +rxt(k,277)* y(k,21) +rxt(k,314)* y(k,44) & - + (rxt(k,238) +rxt(k,239))* y(k,58) +rxt(k,245)* y(k,61) & - + (rxt(k,192) +rxt(k,193) +rxt(k,194))* y(k,78) +rxt(k,441) & - * y(k,103) +rxt(k,223)* y(k,131) +rxt(k,228)* y(k,132) +rxt(k,218) & - * y(k,133) +rxt(k,196)* y(k,141) +rxt(k,197)* y(k,143) +rxt(k,456) & - * y(k,233) +rxt(k,417)* y(k,234) +rxt(k,459)* y(k,235) +rxt(k,463) & - * y(k,236) +rxt(k,341)* y(k,237) +rxt(k,369)* y(k,238) +rxt(k,466) & - * y(k,239) +rxt(k,352)* y(k,240) +rxt(k,320)* y(k,241) +rxt(k,470) & - * y(k,242) +rxt(k,356)* y(k,246) + 2._r8*rxt(k,206)* y(k,247) & - +rxt(k,327)* y(k,248) +rxt(k,427)* y(k,249) +rxt(k,432)* y(k,250) & - +rxt(k,394)* y(k,251) +rxt(k,473)* y(k,252) +rxt(k,403)* y(k,253) & - +rxt(k,476)* y(k,254) +rxt(k,407)* y(k,255) +rxt(k,506)* y(k,260) & - +rxt(k,201)* y(k,265) +rxt(k,479)* y(k,267) +rxt(k,378)* y(k,268) & - +rxt(k,382)* y(k,269) +rxt(k,511)* y(k,270) +rxt(k,516)* y(k,271) & - +rxt(k,486)* y(k,272) +rxt(k,452)* y(k,273) +rxt(k,492)* y(k,274) & - +rxt(k,495)* y(k,275) + rxt(k,540) + het_rates(k,247))* y(k,247) - prod(k,266) = (rxt(k,200)*y(k,81) +rxt(k,203)*y(k,143) +rxt(k,221)*y(k,133) + & - rxt(k,252)*y(k,61) +rxt(k,282)*y(k,21) +rxt(k,300)*y(k,45) + & - rxt(k,303)*y(k,48) +rxt(k,322)*y(k,54) +rxt(k,325)*y(k,88) + & - rxt(k,326)*y(k,89) +rxt(k,334)*y(k,64) +.350_r8*rxt(k,336)*y(k,26) + & - rxt(k,343)*y(k,28) +rxt(k,349)*y(k,49) +rxt(k,360)*y(k,76) + & - rxt(k,361)*y(k,77) +rxt(k,376)*y(k,97) +rxt(k,391)*y(k,95) + & - .200_r8*rxt(k,400)*y(k,112) +.500_r8*rxt(k,411)*y(k,115) + & - .300_r8*rxt(k,436)*y(k,101) +rxt(k,437)*y(k,102) + & - rxt(k,444)*y(k,104) +rxt(k,448)*y(k,122) +rxt(k,449)*y(k,123) + & - .650_r8*rxt(k,458)*y(k,8) +.730_r8*rxt(k,469)*y(k,68) + & - .800_r8*rxt(k,481)*y(k,151) +.280_r8*rxt(k,489)*y(k,223) + & - .380_r8*rxt(k,491)*y(k,226) +.630_r8*rxt(k,497)*y(k,229) + & - .200_r8*rxt(k,521)*y(k,221) +rxt(k,527)*y(k,162) + & - .500_r8*rxt(k,537)*y(k,69))*y(k,265) + (rxt(k,321)*y(k,241) + & - rxt(k,329)*y(k,248) +rxt(k,342)*y(k,237) + & - .250_r8*rxt(k,357)*y(k,246) +rxt(k,370)*y(k,238) + & - rxt(k,379)*y(k,268) +rxt(k,389)*y(k,244) + & - .470_r8*rxt(k,396)*y(k,251) +rxt(k,418)*y(k,234) + & - .920_r8*rxt(k,428)*y(k,249) +.920_r8*rxt(k,434)*y(k,250) + & - rxt(k,442)*y(k,103) +rxt(k,453)*y(k,273) +rxt(k,460)*y(k,235) + & - rxt(k,465)*y(k,236) +.170_r8*rxt(k,471)*y(k,242) + & - .400_r8*rxt(k,474)*y(k,252) +.830_r8*rxt(k,477)*y(k,254) + & - rxt(k,480)*y(k,267) +rxt(k,487)*y(k,272) +rxt(k,493)*y(k,274) + & - rxt(k,496)*y(k,275) +.900_r8*rxt(k,512)*y(k,270) + & - .800_r8*rxt(k,517)*y(k,271))*y(k,131) + (rxt(k,241)*y(k,61) + & - 2.000_r8*rxt(k,318)*y(k,241) +rxt(k,340)*y(k,237) + & - .900_r8*rxt(k,351)*y(k,240) +rxt(k,368)*y(k,238) + & - .300_r8*rxt(k,381)*y(k,269) +.730_r8*rxt(k,393)*y(k,251) + & - rxt(k,402)*y(k,253) +rxt(k,426)*y(k,249) +rxt(k,431)*y(k,250) + & - 1.200_r8*rxt(k,440)*y(k,103) +.800_r8*rxt(k,451)*y(k,273) + & - .500_r8*rxt(k,505)*y(k,260) +rxt(k,510)*y(k,270) + & - rxt(k,515)*y(k,271))*y(k,241) + (.130_r8*rxt(k,338)*y(k,27) + & - .280_r8*rxt(k,367)*y(k,31) +.140_r8*rxt(k,398)*y(k,111) + & - .280_r8*rxt(k,412)*y(k,118) +.370_r8*rxt(k,445)*y(k,100) + & - .570_r8*rxt(k,500)*y(k,6) +.570_r8*rxt(k,503)*y(k,116))*y(k,143) & - + (rxt(k,315)*y(k,44) +.470_r8*rxt(k,395)*y(k,251) + & - rxt(k,429)*y(k,249) +rxt(k,435)*y(k,250) +rxt(k,443)*y(k,103) + & - rxt(k,454)*y(k,273))*y(k,133) + (.470_r8*rxt(k,392)*y(k,251) + & - rxt(k,425)*y(k,249) +rxt(k,430)*y(k,250) +rxt(k,439)*y(k,103) + & - rxt(k,450)*y(k,273))*y(k,240) + (rxt(k,234)*y(k,44) + & - rxt(k,237)*y(k,81) +rxt(k,299)*y(k,45) +rxt(k,302)*y(k,48))*y(k,58) & - + (.070_r8*rxt(k,470)*y(k,242) +.160_r8*rxt(k,473)*y(k,252) + & - .330_r8*rxt(k,476)*y(k,254))*y(k,247) + (rxt(k,270)*y(k,19) + & - rxt(k,316)*y(k,141))*y(k,44) + (rxt(k,11) +rxt(k,232))*y(k,92) & - + (1.340_r8*rxt(k,51) +.660_r8*rxt(k,52))*y(k,111) & - + (rxt(k,195)*y(k,78) +rxt(k,359)*y(k,245))*y(k,142) +rxt(k,20) & - *y(k,1) +.900_r8*rxt(k,21)*y(k,2) +rxt(k,22)*y(k,10) & - +1.500_r8*rxt(k,23)*y(k,11) +.560_r8*rxt(k,24)*y(k,12) +rxt(k,25) & - *y(k,13) +.600_r8*rxt(k,26)*y(k,14) +.600_r8*rxt(k,27)*y(k,15) & - +rxt(k,28)*y(k,16) +rxt(k,29)*y(k,25) +rxt(k,30)*y(k,29) +rxt(k,31) & - *y(k,32) +rxt(k,35)*y(k,47) +rxt(k,37)*y(k,51) +rxt(k,331)*y(k,261) & - *y(k,56) +2.000_r8*rxt(k,44)*y(k,76) +2.000_r8*rxt(k,45)*y(k,77) & - +rxt(k,191)*y(k,141)*y(k,81) +.670_r8*rxt(k,46)*y(k,95) +rxt(k,47) & - *y(k,96) +rxt(k,48)*y(k,97) +rxt(k,49)*y(k,104) +rxt(k,50)*y(k,106) & - +rxt(k,57)*y(k,123) +rxt(k,62)*y(k,152) +rxt(k,63)*y(k,157) & - +rxt(k,65)*y(k,216) +rxt(k,66)*y(k,217) +rxt(k,67)*y(k,218) & - +rxt(k,68)*y(k,219) +rxt(k,69)*y(k,220) +1.200_r8*rxt(k,70)*y(k,221) & - +rxt(k,71)*y(k,222) +rxt(k,73)*y(k,227) +rxt(k,74)*y(k,230) & - +1.200_r8*rxt(k,339)*y(k,237)*y(k,237) +rxt(k,358)*y(k,245) & - +rxt(k,328)*y(k,248) +rxt(k,433)*y(k,250) - loss(k,161) = (rxt(k,329)* y(k,131) +rxt(k,327)* y(k,247) + rxt(k,328) & - + het_rates(k,248))* y(k,248) - prod(k,161) =rxt(k,314)*y(k,247)*y(k,44) - loss(k,246) = (rxt(k,428)* y(k,131) +rxt(k,429)* y(k,133) +rxt(k,425) & - * y(k,240) +rxt(k,426)* y(k,241) +rxt(k,427)* y(k,247) & - + het_rates(k,249))* y(k,249) - prod(k,246) =.600_r8*rxt(k,446)*y(k,265)*y(k,100) - loss(k,247) = (rxt(k,434)* y(k,131) +rxt(k,435)* y(k,133) +rxt(k,430) & - * y(k,240) +rxt(k,431)* y(k,241) +rxt(k,432)* y(k,247) + rxt(k,433) & + prod(k,181) =rxt(k,391)*y(k,265)*y(k,16) + loss(k,167) = (rxt(k,362)* y(k,136) + rxt(k,361) + het_rates(k,241)) & + * y(k,241) + prod(k,167) =rxt(k,43)*y(k,72) +.750_r8*rxt(k,360)*y(k,242)*y(k,125) + loss(k,207) = (rxt(k,360)* y(k,125) +rxt(k,359)* y(k,243) + het_rates(k,242)) & + * y(k,242) + prod(k,207) =rxt(k,366)*y(k,265)*y(k,25) + loss(k,272) = (rxt(k,274)* y(k,17) +rxt(k,280)* y(k,19) +rxt(k,317)* y(k,42) & + + (rxt(k,241) +rxt(k,242))* y(k,56) +rxt(k,248)* y(k,59) & + + (rxt(k,192) +rxt(k,193) +rxt(k,194))* y(k,76) +rxt(k,444) & + * y(k,101) +rxt(k,223)* y(k,125) +rxt(k,228)* y(k,126) +rxt(k,218) & + * y(k,127) +rxt(k,196)* y(k,135) +rxt(k,197)* y(k,137) +rxt(k,459) & + * y(k,227) +rxt(k,420)* y(k,228) +rxt(k,462)* y(k,230) +rxt(k,466) & + * y(k,232) +rxt(k,344)* y(k,233) +rxt(k,372)* y(k,234) +rxt(k,469) & + * y(k,235) +rxt(k,355)* y(k,236) +rxt(k,323)* y(k,237) +rxt(k,473) & + * y(k,238) +rxt(k,359)* y(k,242) + 2._r8*rxt(k,206)* y(k,243) & + +rxt(k,330)* y(k,244) +rxt(k,430)* y(k,245) +rxt(k,435)* y(k,246) & + +rxt(k,397)* y(k,250) +rxt(k,476)* y(k,251) +rxt(k,406)* y(k,252) & + +rxt(k,479)* y(k,253) +rxt(k,410)* y(k,254) +rxt(k,509)* y(k,260) & + +rxt(k,201)* y(k,265) +rxt(k,482)* y(k,267) +rxt(k,381)* y(k,268) & + +rxt(k,385)* y(k,269) +rxt(k,514)* y(k,270) +rxt(k,519)* y(k,271) & + +rxt(k,489)* y(k,272) +rxt(k,455)* y(k,274) +rxt(k,495)* y(k,275) & + +rxt(k,498)* y(k,277) + rxt(k,543) + het_rates(k,243))* y(k,243) + prod(k,272) = (rxt(k,200)*y(k,79) +rxt(k,203)*y(k,137) +rxt(k,221)*y(k,127) + & + rxt(k,255)*y(k,59) +rxt(k,285)*y(k,19) +rxt(k,303)*y(k,43) + & + rxt(k,306)*y(k,46) +rxt(k,325)*y(k,52) +rxt(k,328)*y(k,86) + & + rxt(k,329)*y(k,87) +rxt(k,337)*y(k,62) +.350_r8*rxt(k,339)*y(k,24) + & + rxt(k,346)*y(k,26) +rxt(k,352)*y(k,47) +rxt(k,363)*y(k,74) + & + rxt(k,364)*y(k,75) +rxt(k,379)*y(k,95) +rxt(k,394)*y(k,93) + & + .200_r8*rxt(k,403)*y(k,107) +.500_r8*rxt(k,414)*y(k,110) + & + .300_r8*rxt(k,439)*y(k,99) +rxt(k,440)*y(k,100) + & + rxt(k,447)*y(k,102) +rxt(k,451)*y(k,116) +rxt(k,452)*y(k,117) + & + .650_r8*rxt(k,461)*y(k,7) +.730_r8*rxt(k,472)*y(k,66) + & + .800_r8*rxt(k,484)*y(k,145) +.280_r8*rxt(k,492)*y(k,219) + & + .380_r8*rxt(k,494)*y(k,221) +.630_r8*rxt(k,500)*y(k,223) + & + .200_r8*rxt(k,524)*y(k,217) +rxt(k,530)*y(k,158) + & + .500_r8*rxt(k,540)*y(k,67))*y(k,265) + (rxt(k,324)*y(k,237) + & + rxt(k,332)*y(k,244) +rxt(k,345)*y(k,233) + & + .250_r8*rxt(k,360)*y(k,242) +rxt(k,373)*y(k,234) + & + rxt(k,382)*y(k,268) +rxt(k,392)*y(k,240) + & + .470_r8*rxt(k,399)*y(k,250) +rxt(k,421)*y(k,228) + & + .920_r8*rxt(k,431)*y(k,245) +.920_r8*rxt(k,437)*y(k,246) + & + rxt(k,445)*y(k,101) +rxt(k,456)*y(k,274) +rxt(k,463)*y(k,230) + & + rxt(k,468)*y(k,232) +.170_r8*rxt(k,474)*y(k,238) + & + .400_r8*rxt(k,477)*y(k,251) +.830_r8*rxt(k,480)*y(k,253) + & + rxt(k,483)*y(k,267) +rxt(k,490)*y(k,272) +rxt(k,496)*y(k,275) + & + rxt(k,499)*y(k,277) +.900_r8*rxt(k,515)*y(k,270) + & + .800_r8*rxt(k,520)*y(k,271))*y(k,125) + (rxt(k,244)*y(k,59) + & + 2.000_r8*rxt(k,321)*y(k,237) +rxt(k,343)*y(k,233) + & + .900_r8*rxt(k,354)*y(k,236) +rxt(k,371)*y(k,234) + & + .300_r8*rxt(k,384)*y(k,269) +.730_r8*rxt(k,396)*y(k,250) + & + rxt(k,405)*y(k,252) +rxt(k,429)*y(k,245) +rxt(k,434)*y(k,246) + & + 1.200_r8*rxt(k,443)*y(k,101) +.800_r8*rxt(k,454)*y(k,274) + & + .500_r8*rxt(k,508)*y(k,260) +rxt(k,513)*y(k,270) + & + rxt(k,518)*y(k,271))*y(k,237) + (.130_r8*rxt(k,341)*y(k,25) + & + .280_r8*rxt(k,370)*y(k,29) +.140_r8*rxt(k,401)*y(k,106) + & + .280_r8*rxt(k,415)*y(k,112) +.370_r8*rxt(k,448)*y(k,98) + & + .570_r8*rxt(k,503)*y(k,6) +.570_r8*rxt(k,506)*y(k,111))*y(k,137) & + + (rxt(k,318)*y(k,42) +.470_r8*rxt(k,398)*y(k,250) + & + rxt(k,432)*y(k,245) +rxt(k,438)*y(k,246) +rxt(k,446)*y(k,101) + & + rxt(k,457)*y(k,274))*y(k,127) + (.470_r8*rxt(k,395)*y(k,250) + & + rxt(k,428)*y(k,245) +rxt(k,433)*y(k,246) +rxt(k,442)*y(k,101) + & + rxt(k,453)*y(k,274))*y(k,236) + (rxt(k,237)*y(k,42) + & + rxt(k,240)*y(k,79) +rxt(k,302)*y(k,43) +rxt(k,305)*y(k,46))*y(k,56) & + + (.070_r8*rxt(k,473)*y(k,238) +.160_r8*rxt(k,476)*y(k,251) + & + .330_r8*rxt(k,479)*y(k,253))*y(k,243) + (rxt(k,273)*y(k,17) + & + rxt(k,319)*y(k,135))*y(k,42) + (rxt(k,11) +rxt(k,232))*y(k,90) & + + (1.340_r8*rxt(k,51) +.660_r8*rxt(k,52))*y(k,106) & + + (rxt(k,195)*y(k,76) +rxt(k,362)*y(k,241))*y(k,136) +rxt(k,20) & + *y(k,1) +.900_r8*rxt(k,21)*y(k,2) +rxt(k,22)*y(k,8) & + +1.500_r8*rxt(k,23)*y(k,9) +.560_r8*rxt(k,24)*y(k,10) +rxt(k,25) & + *y(k,11) +.600_r8*rxt(k,26)*y(k,12) +.600_r8*rxt(k,27)*y(k,13) & + +rxt(k,28)*y(k,14) +rxt(k,29)*y(k,23) +rxt(k,30)*y(k,27) +rxt(k,31) & + *y(k,30) +rxt(k,35)*y(k,45) +rxt(k,37)*y(k,49) +rxt(k,334)*y(k,261) & + *y(k,54) +2.000_r8*rxt(k,44)*y(k,74) +2.000_r8*rxt(k,45)*y(k,75) & + +rxt(k,191)*y(k,135)*y(k,79) +.670_r8*rxt(k,46)*y(k,93) +rxt(k,47) & + *y(k,94) +rxt(k,48)*y(k,95) +rxt(k,49)*y(k,102) +rxt(k,50)*y(k,103) & + +rxt(k,57)*y(k,117) +rxt(k,62)*y(k,146) +rxt(k,63)*y(k,153) & + +rxt(k,65)*y(k,212) +rxt(k,66)*y(k,213) +rxt(k,67)*y(k,214) & + +rxt(k,68)*y(k,215) +rxt(k,69)*y(k,216) +1.200_r8*rxt(k,70)*y(k,217) & + +rxt(k,71)*y(k,218) +rxt(k,73)*y(k,222) +rxt(k,74)*y(k,224) & + +1.200_r8*rxt(k,342)*y(k,233)*y(k,233) +rxt(k,361)*y(k,241) & + +rxt(k,331)*y(k,244) +rxt(k,436)*y(k,246) + loss(k,162) = (rxt(k,332)* y(k,125) +rxt(k,330)* y(k,243) + rxt(k,331) & + + het_rates(k,244))* y(k,244) + prod(k,162) =rxt(k,317)*y(k,243)*y(k,42) + loss(k,248) = (rxt(k,431)* y(k,125) +rxt(k,432)* y(k,127) +rxt(k,428) & + * y(k,236) +rxt(k,429)* y(k,237) +rxt(k,430)* y(k,243) & + + het_rates(k,245))* y(k,245) + prod(k,248) =.600_r8*rxt(k,449)*y(k,265)*y(k,98) + loss(k,249) = (rxt(k,437)* y(k,125) +rxt(k,438)* y(k,127) +rxt(k,433) & + * y(k,236) +rxt(k,434)* y(k,237) +rxt(k,435)* y(k,243) + rxt(k,436) & + + het_rates(k,246))* y(k,246) + prod(k,249) =.400_r8*rxt(k,449)*y(k,265)*y(k,98) + loss(k,83) = (rxt(k,566)* y(k,125) +rxt(k,565)* y(k,243) + het_rates(k,247)) & + * y(k,247) + prod(k,83) =rxt(k,568)*y(k,265)*y(k,98) + loss(k,84) = (rxt(k,570)* y(k,125) +rxt(k,569)* y(k,243) + het_rates(k,248)) & + * y(k,248) + prod(k,84) =rxt(k,571)*y(k,265)*y(k,104) + loss(k,86) = (rxt(k,573)* y(k,125) +rxt(k,572)* y(k,243) + het_rates(k,249)) & + * y(k,249) + prod(k,86) =rxt(k,574)*y(k,265)*y(k,105) + loss(k,250) = ((rxt(k,399) +rxt(k,400))* y(k,125) +rxt(k,398)* y(k,127) & + +rxt(k,395)* y(k,236) +rxt(k,396)* y(k,237) +rxt(k,397)* y(k,243) & + het_rates(k,250))* y(k,250) - prod(k,247) =.400_r8*rxt(k,446)*y(k,265)*y(k,100) - loss(k,248) = ((rxt(k,396) +rxt(k,397))* y(k,131) +rxt(k,395)* y(k,133) & - +rxt(k,392)* y(k,240) +rxt(k,393)* y(k,241) +rxt(k,394)* y(k,247) & - + het_rates(k,251))* y(k,251) - prod(k,248) = (.500_r8*rxt(k,399)*y(k,111) +.200_r8*rxt(k,400)*y(k,112) + & - rxt(k,413)*y(k,118))*y(k,265) - loss(k,200) = (rxt(k,474)* y(k,131) +rxt(k,475)* y(k,132) +rxt(k,473) & - * y(k,247) + het_rates(k,252))* y(k,252) - prod(k,200) =.600_r8*rxt(k,25)*y(k,13) - loss(k,250) = (rxt(k,405)* y(k,131) +rxt(k,414)* y(k,132) +rxt(k,406) & - * y(k,133) +rxt(k,401)* y(k,240) +rxt(k,402)* y(k,241) +rxt(k,403) & - * y(k,247) + 2._r8*rxt(k,404)* y(k,253) + het_rates(k,253))* y(k,253) - prod(k,250) = (.660_r8*rxt(k,51) +.500_r8*rxt(k,399)*y(k,265))*y(k,111) & - + (rxt(k,55) +rxt(k,415))*y(k,115) +.500_r8*rxt(k,400)*y(k,265) & - *y(k,112) - loss(k,218) = (rxt(k,477)* y(k,131) +rxt(k,478)* y(k,132) +rxt(k,476) & - * y(k,247) + het_rates(k,254))* y(k,254) - prod(k,218) =.600_r8*rxt(k,27)*y(k,15) - loss(k,193) = (rxt(k,408)* y(k,131) +rxt(k,407)* y(k,247) + het_rates(k,255)) & + prod(k,250) = (.500_r8*rxt(k,402)*y(k,106) +.200_r8*rxt(k,403)*y(k,107) + & + rxt(k,416)*y(k,112))*y(k,265) + loss(k,201) = (rxt(k,477)* y(k,125) +rxt(k,478)* y(k,126) +rxt(k,476) & + * y(k,243) + het_rates(k,251))* y(k,251) + prod(k,201) =.600_r8*rxt(k,25)*y(k,11) + loss(k,252) = (rxt(k,408)* y(k,125) +rxt(k,417)* y(k,126) +rxt(k,409) & + * y(k,127) +rxt(k,404)* y(k,236) +rxt(k,405)* y(k,237) +rxt(k,406) & + * y(k,243) + 2._r8*rxt(k,407)* y(k,252) + het_rates(k,252))* y(k,252) + prod(k,252) = (.660_r8*rxt(k,51) +.500_r8*rxt(k,402)*y(k,265))*y(k,106) & + + (rxt(k,55) +rxt(k,418))*y(k,110) +.500_r8*rxt(k,403)*y(k,265) & + *y(k,107) + loss(k,220) = (rxt(k,480)* y(k,125) +rxt(k,481)* y(k,126) +rxt(k,479) & + * y(k,243) + het_rates(k,253))* y(k,253) + prod(k,220) =.600_r8*rxt(k,27)*y(k,13) + loss(k,197) = (rxt(k,411)* y(k,125) +rxt(k,410)* y(k,243) + het_rates(k,254)) & + * y(k,254) + prod(k,197) = (rxt(k,412)*y(k,108) +rxt(k,413)*y(k,109))*y(k,265) + loss(k,88) = (rxt(k,577)* y(k,125) +rxt(k,576)* y(k,243) + het_rates(k,255)) & * y(k,255) - prod(k,193) = (rxt(k,409)*y(k,113) +rxt(k,410)*y(k,114))*y(k,265) - loss(k,175) = (rxt(k,208)* y(k,141) +rxt(k,209)* y(k,142) + het_rates(k,256)) & + prod(k,88) =rxt(k,579)*y(k,265)*y(k,111) + loss(k,193) = (rxt(k,209)* y(k,125) +rxt(k,210)* y(k,135) +rxt(k,234) & + * y(k,136) +rxt(k,233)* y(k,239) + rxt(k,207) + het_rates(k,256)) & * y(k,256) - prod(k,175) = (.800_r8*rxt(k,603)*y(k,258) +.900_r8*rxt(k,605)*y(k,257)) & - *y(k,243) +rxt(k,607)*y(k,257)*y(k,141) - loss(k,195) = ((rxt(k,607) +rxt(k,608))* y(k,141) +rxt(k,606)* y(k,142) & - +rxt(k,605)* y(k,243) + het_rates(k,257))* y(k,257) - prod(k,195) = 0._r8 - loss(k,211) = (rxt(k,603)* y(k,243) + het_rates(k,258))* y(k,258) - prod(k,211) = (rxt(k,613) +rxt(k,612)*y(k,119) +rxt(k,614)*y(k,131))*y(k,264) & - +rxt(k,16)*y(k,131) +rxt(k,607)*y(k,257)*y(k,141) & - +rxt(k,611)*y(k,259)*y(k,142) +rxt(k,616)*y(k,266) - loss(k,171) = (rxt(k,609)* y(k,141) + (rxt(k,610) +rxt(k,611))* y(k,142) & + prod(k,193) = (.800_r8*rxt(k,606)*y(k,258) +.900_r8*rxt(k,608)*y(k,257)) & + *y(k,239) +rxt(k,610)*y(k,257)*y(k,135) + loss(k,189) = ((rxt(k,610) +rxt(k,611))* y(k,135) +rxt(k,609)* y(k,136) & + +rxt(k,608)* y(k,239) + het_rates(k,257))* y(k,257) + prod(k,189) = 0._r8 + loss(k,213) = (rxt(k,606)* y(k,239) + het_rates(k,258))* y(k,258) + prod(k,213) = (rxt(k,616) +rxt(k,615)*y(k,113) +rxt(k,617)*y(k,125))*y(k,264) & + +rxt(k,16)*y(k,125) +rxt(k,610)*y(k,257)*y(k,135) & + +rxt(k,614)*y(k,259)*y(k,136) +rxt(k,619)*y(k,266) + loss(k,172) = (rxt(k,612)* y(k,135) + (rxt(k,613) +rxt(k,614))* y(k,136) & + het_rates(k,259))* y(k,259) - prod(k,171) =rxt(k,111)*y(k,119) - loss(k,232) = (rxt(k,507)* y(k,131) +rxt(k,508)* y(k,133) +rxt(k,505) & - * y(k,241) +rxt(k,506)* y(k,247) + het_rates(k,260))* y(k,260) - prod(k,232) = (rxt(k,499)*y(k,6) +rxt(k,502)*y(k,116) + & - .500_r8*rxt(k,519)*y(k,220))*y(k,133) +rxt(k,509)*y(k,265)*y(k,135) - loss(k,262) = (rxt(k,259)* y(k,35) +rxt(k,260)* y(k,36) +rxt(k,286)* y(k,37) & - +rxt(k,261)* y(k,38) +rxt(k,262)* y(k,39) +rxt(k,263)* y(k,40) & - +rxt(k,264)* y(k,41) +rxt(k,265)* y(k,42) +rxt(k,309)* y(k,43) & - +rxt(k,310)* y(k,45) + (rxt(k,330) +rxt(k,331) +rxt(k,332))* y(k,56) & - +rxt(k,287)* y(k,57) +rxt(k,295)* y(k,66) +rxt(k,296)* y(k,67) & - +rxt(k,173)* y(k,79) +rxt(k,288)* y(k,80) + (rxt(k,289) +rxt(k,290)) & - * y(k,83) +rxt(k,311)* y(k,84) +rxt(k,312)* y(k,85) +rxt(k,313) & - * y(k,86) + (rxt(k,266) +rxt(k,267))* y(k,87) +rxt(k,333)* y(k,88) & - + (rxt(k,226) +rxt(k,227))* y(k,120) + (rxt(k,176) +rxt(k,177)) & - * y(k,142) +rxt(k,178)* y(k,143) +rxt(k,174)* y(k,276) + rxt(k,175) & + prod(k,172) =rxt(k,111)*y(k,113) + loss(k,234) = (rxt(k,510)* y(k,125) +rxt(k,511)* y(k,127) +rxt(k,508) & + * y(k,237) +rxt(k,509)* y(k,243) + het_rates(k,260))* y(k,260) + prod(k,234) = (rxt(k,502)*y(k,6) +rxt(k,505)*y(k,111) + & + .500_r8*rxt(k,522)*y(k,216))*y(k,127) +rxt(k,512)*y(k,265)*y(k,129) + loss(k,270) = (rxt(k,262)* y(k,33) +rxt(k,263)* y(k,34) +rxt(k,289)* y(k,35) & + +rxt(k,264)* y(k,36) +rxt(k,265)* y(k,37) +rxt(k,266)* y(k,38) & + +rxt(k,267)* y(k,39) +rxt(k,268)* y(k,40) +rxt(k,312)* y(k,41) & + +rxt(k,313)* y(k,43) + (rxt(k,333) +rxt(k,334) +rxt(k,335))* y(k,54) & + +rxt(k,290)* y(k,55) +rxt(k,298)* y(k,64) +rxt(k,299)* y(k,65) & + +rxt(k,173)* y(k,77) +rxt(k,291)* y(k,78) + (rxt(k,292) +rxt(k,293)) & + * y(k,81) +rxt(k,314)* y(k,82) +rxt(k,315)* y(k,83) +rxt(k,316) & + * y(k,84) + (rxt(k,269) +rxt(k,270))* y(k,85) +rxt(k,336)* y(k,86) & + + (rxt(k,226) +rxt(k,227))* y(k,114) + (rxt(k,176) +rxt(k,177)) & + * y(k,136) +rxt(k,178)* y(k,137) +rxt(k,174)* y(k,278) + rxt(k,175) & + het_rates(k,261))* y(k,261) - prod(k,262) = (rxt(k,6) +rxt(k,209)*y(k,256))*y(k,142) +rxt(k,12)*y(k,120) & - +rxt(k,7)*y(k,143) +.850_r8*rxt(k,604)*y(k,264)*y(k,243) +rxt(k,1) & - *y(k,276) - loss(k,110) = (rxt(k,180)* y(k,141) +rxt(k,181)* y(k,142) + rxt(k,171) & + prod(k,270) = (rxt(k,6) +rxt(k,234)*y(k,256))*y(k,136) +rxt(k,12)*y(k,114) & + +rxt(k,7)*y(k,137) +.850_r8*rxt(k,607)*y(k,264)*y(k,239) +rxt(k,1) & + *y(k,278) + loss(k,112) = (rxt(k,180)* y(k,135) +rxt(k,181)* y(k,136) + rxt(k,171) & + rxt(k,179) + het_rates(k,262))* y(k,262) - prod(k,110) = (rxt(k,183) +rxt(k,182)*y(k,65) +rxt(k,184)*y(k,141) + & - rxt(k,185)*y(k,142) +rxt(k,186)*y(k,143))*y(k,263) +rxt(k,7)*y(k,143) - loss(k,111) = (rxt(k,182)* y(k,65) +rxt(k,184)* y(k,141) +rxt(k,185) & - * y(k,142) +rxt(k,186)* y(k,143) + rxt(k,172) + rxt(k,183) & + prod(k,112) = (rxt(k,183) +rxt(k,182)*y(k,63) +rxt(k,184)*y(k,135) + & + rxt(k,185)*y(k,136) +rxt(k,186)*y(k,137))*y(k,263) +rxt(k,7)*y(k,137) + loss(k,113) = (rxt(k,182)* y(k,63) +rxt(k,184)* y(k,135) +rxt(k,185) & + * y(k,136) +rxt(k,186)* y(k,137) + rxt(k,172) + rxt(k,183) & + het_rates(k,263))* y(k,263) - prod(k,111) =rxt(k,176)*y(k,261)*y(k,142) - loss(k,212) = (rxt(k,612)* y(k,119) +rxt(k,614)* y(k,131) +rxt(k,604) & - * y(k,243) + rxt(k,613) + het_rates(k,264))* y(k,264) - prod(k,212) = (rxt(k,126) +rxt(k,130) +rxt(k,606)*y(k,257) + & - rxt(k,610)*y(k,259) +rxt(k,617)*y(k,266))*y(k,142) & - +rxt(k,615)*y(k,266)*y(k,65) - loss(k,263) = (rxt(k,416)* y(k,1) +rxt(k,420)* y(k,2) +rxt(k,501)* y(k,6) & - +rxt(k,458)* y(k,8) +rxt(k,461)* y(k,10) +rxt(k,421)* y(k,17) & - +rxt(k,388)* y(k,18) +rxt(k,282)* y(k,21) +rxt(k,462)* y(k,24) & - +rxt(k,464)* y(k,25) +rxt(k,336)* y(k,26) +rxt(k,363)* y(k,27) & - +rxt(k,343)* y(k,28) +rxt(k,344)* y(k,29) +rxt(k,346)* y(k,30) & - +rxt(k,385)* y(k,31) +rxt(k,371)* y(k,32) +rxt(k,372)* y(k,33) & - +rxt(k,468)* y(k,34) +rxt(k,298)* y(k,43) +rxt(k,317)* y(k,44) & - +rxt(k,300)* y(k,45) +rxt(k,301)* y(k,46) +rxt(k,348)* y(k,47) & - +rxt(k,303)* y(k,48) +rxt(k,349)* y(k,49) +rxt(k,386)* y(k,50) & - +rxt(k,374)* y(k,51) +rxt(k,354)* y(k,52) +rxt(k,355)* y(k,53) & - +rxt(k,322)* y(k,54) +rxt(k,323)* y(k,55) +rxt(k,324)* y(k,56) & - +rxt(k,305)* y(k,57) + (rxt(k,252) +rxt(k,253))* y(k,61) +rxt(k,250) & - * y(k,62) +rxt(k,334)* y(k,64) +rxt(k,469)* y(k,68) + (rxt(k,523) + & - rxt(k,537))* y(k,69) +rxt(k,360)* y(k,76) +rxt(k,361)* y(k,77) & - +rxt(k,199)* y(k,79) +rxt(k,200)* y(k,81) +rxt(k,284)* y(k,83) & - +rxt(k,306)* y(k,84) +rxt(k,307)* y(k,85) +rxt(k,308)* y(k,86) & - +rxt(k,255)* y(k,87) +rxt(k,325)* y(k,88) +rxt(k,326)* y(k,89) & - +rxt(k,231)* y(k,91) +rxt(k,207)* y(k,92) +rxt(k,258)* y(k,94) & - +rxt(k,391)* y(k,95) +rxt(k,422)* y(k,96) +rxt(k,376)* y(k,97) & - +rxt(k,423)* y(k,98) +rxt(k,424)* y(k,99) +rxt(k,446)* y(k,100) & - +rxt(k,436)* y(k,101) +rxt(k,437)* y(k,102) +rxt(k,444)* y(k,104) & - +rxt(k,447)* y(k,106) +rxt(k,399)* y(k,111) +rxt(k,400)* y(k,112) & - +rxt(k,409)* y(k,113) +rxt(k,410)* y(k,114) +rxt(k,411)* y(k,115) & - +rxt(k,504)* y(k,116) +rxt(k,413)* y(k,118) +rxt(k,222)* y(k,119) & - +rxt(k,448)* y(k,122) +rxt(k,449)* y(k,123) +rxt(k,539)* y(k,127) & - +rxt(k,230)* y(k,132) +rxt(k,221)* y(k,133) +rxt(k,377)* y(k,134) & - +rxt(k,509)* y(k,135) +rxt(k,202)* y(k,141) +rxt(k,203)* y(k,143) & - +rxt(k,525)* y(k,146) +rxt(k,362)* y(k,148) +rxt(k,481)* y(k,151) & - +rxt(k,484)* y(k,152) +rxt(k,380)* y(k,157) +rxt(k,384)* y(k,158) & - +rxt(k,531)* y(k,159) +rxt(k,536)* y(k,161) +rxt(k,527)* y(k,162) & - +rxt(k,513)* y(k,217) +rxt(k,514)* y(k,218) +rxt(k,518)* y(k,219) & - +rxt(k,520)* y(k,220) +rxt(k,521)* y(k,221) +rxt(k,488)* y(k,222) & - + (rxt(k,489) +rxt(k,579))* y(k,223) +rxt(k,455)* y(k,225) & - +rxt(k,491)* y(k,226) +rxt(k,494)* y(k,227) +rxt(k,497)* y(k,229) & - +rxt(k,498)* y(k,230) +rxt(k,201)* y(k,247) + 2._r8*(rxt(k,204) + & + prod(k,113) =rxt(k,176)*y(k,261)*y(k,136) + loss(k,214) = (rxt(k,615)* y(k,113) +rxt(k,617)* y(k,125) +rxt(k,607) & + * y(k,239) + rxt(k,616) + het_rates(k,264))* y(k,264) + prod(k,214) = (rxt(k,126) +rxt(k,130) +rxt(k,609)*y(k,257) + & + rxt(k,613)*y(k,259) +rxt(k,620)*y(k,266))*y(k,136) & + +rxt(k,618)*y(k,266)*y(k,63) + loss(k,263) = (rxt(k,419)* y(k,1) +rxt(k,423)* y(k,2) +rxt(k,504)* y(k,6) & + +rxt(k,461)* y(k,7) +rxt(k,464)* y(k,8) +rxt(k,424)* y(k,15) & + +rxt(k,391)* y(k,16) +rxt(k,285)* y(k,19) +rxt(k,465)* y(k,22) & + +rxt(k,467)* y(k,23) +rxt(k,339)* y(k,24) +rxt(k,366)* y(k,25) & + +rxt(k,346)* y(k,26) +rxt(k,347)* y(k,27) +rxt(k,349)* y(k,28) & + +rxt(k,388)* y(k,29) +rxt(k,374)* y(k,30) +rxt(k,375)* y(k,31) & + +rxt(k,471)* y(k,32) +rxt(k,301)* y(k,41) +rxt(k,320)* y(k,42) & + +rxt(k,303)* y(k,43) +rxt(k,304)* y(k,44) +rxt(k,351)* y(k,45) & + +rxt(k,306)* y(k,46) +rxt(k,352)* y(k,47) +rxt(k,389)* y(k,48) & + +rxt(k,377)* y(k,49) +rxt(k,357)* y(k,50) +rxt(k,358)* y(k,51) & + +rxt(k,325)* y(k,52) +rxt(k,326)* y(k,53) +rxt(k,327)* y(k,54) & + +rxt(k,308)* y(k,55) + (rxt(k,255) +rxt(k,256))* y(k,59) +rxt(k,253) & + * y(k,60) +rxt(k,337)* y(k,62) +rxt(k,472)* y(k,66) + (rxt(k,526) + & + rxt(k,540))* y(k,67) +rxt(k,363)* y(k,74) +rxt(k,364)* y(k,75) & + +rxt(k,199)* y(k,77) +rxt(k,200)* y(k,79) +rxt(k,287)* y(k,81) & + +rxt(k,309)* y(k,82) +rxt(k,310)* y(k,83) +rxt(k,311)* y(k,84) & + +rxt(k,258)* y(k,85) +rxt(k,328)* y(k,86) +rxt(k,329)* y(k,87) & + +rxt(k,231)* y(k,89) +rxt(k,208)* y(k,90) +rxt(k,261)* y(k,92) & + +rxt(k,394)* y(k,93) +rxt(k,425)* y(k,94) +rxt(k,379)* y(k,95) & + +rxt(k,426)* y(k,96) +rxt(k,427)* y(k,97) +rxt(k,449)* y(k,98) & + +rxt(k,439)* y(k,99) +rxt(k,440)* y(k,100) +rxt(k,447)* y(k,102) & + +rxt(k,450)* y(k,103) +rxt(k,402)* y(k,106) +rxt(k,403)* y(k,107) & + +rxt(k,412)* y(k,108) +rxt(k,413)* y(k,109) +rxt(k,414)* y(k,110) & + +rxt(k,507)* y(k,111) +rxt(k,416)* y(k,112) +rxt(k,222)* y(k,113) & + +rxt(k,451)* y(k,116) +rxt(k,452)* y(k,117) +rxt(k,542)* y(k,121) & + +rxt(k,230)* y(k,126) +rxt(k,221)* y(k,127) +rxt(k,380)* y(k,128) & + +rxt(k,512)* y(k,129) +rxt(k,202)* y(k,135) +rxt(k,203)* y(k,137) & + +rxt(k,528)* y(k,140) +rxt(k,365)* y(k,142) +rxt(k,484)* y(k,145) & + +rxt(k,487)* y(k,146) +rxt(k,383)* y(k,153) +rxt(k,387)* y(k,154) & + +rxt(k,534)* y(k,155) +rxt(k,539)* y(k,157) +rxt(k,530)* y(k,158) & + +rxt(k,516)* y(k,213) +rxt(k,517)* y(k,214) +rxt(k,521)* y(k,215) & + +rxt(k,523)* y(k,216) +rxt(k,524)* y(k,217) +rxt(k,491)* y(k,218) & + + (rxt(k,492) +rxt(k,582))* y(k,219) +rxt(k,458)* y(k,220) & + +rxt(k,494)* y(k,221) +rxt(k,497)* y(k,222) +rxt(k,500)* y(k,223) & + +rxt(k,501)* y(k,224) +rxt(k,201)* y(k,243) + 2._r8*(rxt(k,204) + & rxt(k,205))* y(k,265) + het_rates(k,265))* y(k,265) - prod(k,263) = (2.000_r8*rxt(k,193)*y(k,78) +rxt(k,196)*y(k,141) + & - rxt(k,197)*y(k,143) +rxt(k,218)*y(k,133) +rxt(k,223)*y(k,131) + & - rxt(k,239)*y(k,58) +.450_r8*rxt(k,352)*y(k,240) + & - .150_r8*rxt(k,382)*y(k,269) +.450_r8*rxt(k,403)*y(k,253) + & - .200_r8*rxt(k,407)*y(k,255) +.400_r8*rxt(k,456)*y(k,233) + & - .400_r8*rxt(k,470)*y(k,242) +.400_r8*rxt(k,476)*y(k,254))*y(k,247) & - + (rxt(k,198)*y(k,78) +.130_r8*rxt(k,338)*y(k,27) + & - .360_r8*rxt(k,367)*y(k,31) +.240_r8*rxt(k,398)*y(k,111) + & - .360_r8*rxt(k,412)*y(k,118) +.320_r8*rxt(k,445)*y(k,100) + & - .630_r8*rxt(k,500)*y(k,6) +.630_r8*rxt(k,503)*y(k,116))*y(k,143) & - + (rxt(k,190)*y(k,79) +rxt(k,191)*y(k,81) +rxt(k,254)*y(k,87) + & - rxt(k,257)*y(k,94) +rxt(k,283)*y(k,83) +rxt(k,285)*y(k,93) + & - rxt(k,316)*y(k,44))*y(k,141) + (.300_r8*rxt(k,323)*y(k,55) + & - .650_r8*rxt(k,336)*y(k,26) +.500_r8*rxt(k,344)*y(k,29) + & - .500_r8*rxt(k,380)*y(k,157) +.100_r8*rxt(k,400)*y(k,112) + & - .600_r8*rxt(k,447)*y(k,106) +.500_r8*rxt(k,455)*y(k,225))*y(k,265) & - + (rxt(k,173)*y(k,79) +2.000_r8*rxt(k,174)*y(k,276) + & - rxt(k,266)*y(k,87) +rxt(k,289)*y(k,83) +rxt(k,330)*y(k,56) + & - rxt(k,333)*y(k,88))*y(k,261) + (rxt(k,3) +rxt(k,293)*y(k,75)) & - *y(k,276) +rxt(k,21)*y(k,2) +rxt(k,22)*y(k,10) +rxt(k,29)*y(k,25) & - +rxt(k,30)*y(k,29) +rxt(k,31)*y(k,32) +rxt(k,32)*y(k,34) +rxt(k,38) & - *y(k,53) +rxt(k,39)*y(k,55) +.330_r8*rxt(k,40)*y(k,56) +rxt(k,43) & - *y(k,74) +2.000_r8*rxt(k,4)*y(k,81) +rxt(k,9)*y(k,91) +rxt(k,10) & - *y(k,92) +rxt(k,106)*y(k,93) +rxt(k,107)*y(k,94) +rxt(k,47)*y(k,96) & - +rxt(k,50)*y(k,106) +rxt(k,54)*y(k,114) +.500_r8*rxt(k,548)*y(k,132) & - +rxt(k,59)*y(k,135) +rxt(k,62)*y(k,152) +rxt(k,63)*y(k,157) & - +rxt(k,64)*y(k,158) +rxt(k,66)*y(k,217) +rxt(k,68)*y(k,219) & - +rxt(k,71)*y(k,222) +rxt(k,72)*y(k,225) +rxt(k,73)*y(k,227) & - +rxt(k,74)*y(k,230) - loss(k,206) = (rxt(k,615)* y(k,65) +rxt(k,617)* y(k,142) + rxt(k,616) & + prod(k,263) = (2.000_r8*rxt(k,193)*y(k,76) +rxt(k,196)*y(k,135) + & + rxt(k,197)*y(k,137) +rxt(k,218)*y(k,127) +rxt(k,223)*y(k,125) + & + rxt(k,242)*y(k,56) +.450_r8*rxt(k,355)*y(k,236) + & + .150_r8*rxt(k,385)*y(k,269) +.450_r8*rxt(k,406)*y(k,252) + & + .200_r8*rxt(k,410)*y(k,254) +.400_r8*rxt(k,459)*y(k,227) + & + .400_r8*rxt(k,473)*y(k,238) +.400_r8*rxt(k,479)*y(k,253))*y(k,243) & + + (rxt(k,198)*y(k,76) +.130_r8*rxt(k,341)*y(k,25) + & + .360_r8*rxt(k,370)*y(k,29) +.240_r8*rxt(k,401)*y(k,106) + & + .360_r8*rxt(k,415)*y(k,112) +.320_r8*rxt(k,448)*y(k,98) + & + .630_r8*rxt(k,503)*y(k,6) +.630_r8*rxt(k,506)*y(k,111))*y(k,137) & + + (rxt(k,190)*y(k,77) +rxt(k,191)*y(k,79) +rxt(k,257)*y(k,85) + & + rxt(k,260)*y(k,92) +rxt(k,286)*y(k,81) +rxt(k,288)*y(k,91) + & + rxt(k,319)*y(k,42))*y(k,135) + (.300_r8*rxt(k,326)*y(k,53) + & + .650_r8*rxt(k,339)*y(k,24) +.500_r8*rxt(k,347)*y(k,27) + & + .500_r8*rxt(k,383)*y(k,153) +.100_r8*rxt(k,403)*y(k,107) + & + .600_r8*rxt(k,450)*y(k,103) +.500_r8*rxt(k,458)*y(k,220))*y(k,265) & + + (rxt(k,173)*y(k,77) +2.000_r8*rxt(k,174)*y(k,278) + & + rxt(k,269)*y(k,85) +rxt(k,292)*y(k,81) +rxt(k,333)*y(k,54) + & + rxt(k,336)*y(k,86))*y(k,261) + (rxt(k,3) +rxt(k,296)*y(k,73)) & + *y(k,278) +rxt(k,21)*y(k,2) +rxt(k,22)*y(k,8) +rxt(k,29)*y(k,23) & + +rxt(k,30)*y(k,27) +rxt(k,31)*y(k,30) +rxt(k,32)*y(k,32) +rxt(k,38) & + *y(k,51) +rxt(k,39)*y(k,53) +.330_r8*rxt(k,40)*y(k,54) +rxt(k,43) & + *y(k,72) +2.000_r8*rxt(k,4)*y(k,79) +rxt(k,9)*y(k,89) +rxt(k,10) & + *y(k,90) +rxt(k,106)*y(k,91) +rxt(k,107)*y(k,92) +rxt(k,47)*y(k,94) & + +rxt(k,50)*y(k,103) +rxt(k,54)*y(k,109) +.500_r8*rxt(k,551)*y(k,126) & + +rxt(k,59)*y(k,129) +rxt(k,62)*y(k,146) +rxt(k,63)*y(k,153) & + +rxt(k,64)*y(k,154) +rxt(k,66)*y(k,213) +rxt(k,68)*y(k,215) & + +rxt(k,71)*y(k,218) +rxt(k,72)*y(k,220) +rxt(k,73)*y(k,222) & + +rxt(k,74)*y(k,224) + loss(k,208) = (rxt(k,618)* y(k,63) +rxt(k,620)* y(k,136) + rxt(k,619) & + het_rates(k,266))* y(k,266) - prod(k,206) = (rxt(k,120) +rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) + & - rxt(k,125) +rxt(k,608)*y(k,257) +rxt(k,609)*y(k,259))*y(k,141) & + prod(k,208) = (rxt(k,120) +rxt(k,121) +rxt(k,122) +rxt(k,123) +rxt(k,124) + & + rxt(k,125) +rxt(k,611)*y(k,257) +rxt(k,612)*y(k,259))*y(k,135) & + (rxt(k,127) +rxt(k,128) +rxt(k,129) +rxt(k,131) +rxt(k,132) + & - rxt(k,133))*y(k,142) - loss(k,163) = (rxt(k,480)* y(k,131) +rxt(k,479)* y(k,247) + het_rates(k,267)) & + rxt(k,133))*y(k,136) + loss(k,165) = (rxt(k,483)* y(k,125) +rxt(k,482)* y(k,243) + het_rates(k,267)) & * y(k,267) - prod(k,163) = (.200_r8*rxt(k,469)*y(k,68) +.140_r8*rxt(k,481)*y(k,151) + & - rxt(k,484)*y(k,152))*y(k,265) - loss(k,208) = (rxt(k,379)* y(k,131) +rxt(k,378)* y(k,247) + het_rates(k,268)) & + prod(k,165) = (.200_r8*rxt(k,472)*y(k,66) +.140_r8*rxt(k,484)*y(k,145) + & + rxt(k,487)*y(k,146))*y(k,265) + loss(k,209) = (rxt(k,382)* y(k,125) +rxt(k,381)* y(k,243) + het_rates(k,268)) & * y(k,268) - prod(k,208) = (.500_r8*rxt(k,380)*y(k,157) +rxt(k,385)*y(k,31))*y(k,265) - loss(k,241) = (rxt(k,383)* y(k,131) +rxt(k,381)* y(k,241) +rxt(k,382) & - * y(k,247) + het_rates(k,269))* y(k,269) - prod(k,241) = (rxt(k,384)*y(k,158) +rxt(k,386)*y(k,50) + & - .150_r8*rxt(k,521)*y(k,221))*y(k,265) + (.060_r8*rxt(k,500)*y(k,6) + & - .060_r8*rxt(k,503)*y(k,116))*y(k,143) +.150_r8*rxt(k,70)*y(k,221) - loss(k,238) = (rxt(k,512)* y(k,131) +rxt(k,510)* y(k,241) +rxt(k,511) & - * y(k,247) + het_rates(k,270))* y(k,270) - prod(k,238) = (.500_r8*rxt(k,519)*y(k,133) +rxt(k,520)*y(k,265))*y(k,220) & - +rxt(k,513)*y(k,265)*y(k,217) - loss(k,228) = (rxt(k,517)* y(k,131) +rxt(k,515)* y(k,241) +rxt(k,516) & - * y(k,247) + het_rates(k,271))* y(k,271) - prod(k,228) = (rxt(k,501)*y(k,6) +rxt(k,504)*y(k,116) +rxt(k,518)*y(k,219)) & + prod(k,209) = (.500_r8*rxt(k,383)*y(k,153) +rxt(k,388)*y(k,29))*y(k,265) + loss(k,243) = (rxt(k,386)* y(k,125) +rxt(k,384)* y(k,237) +rxt(k,385) & + * y(k,243) + het_rates(k,269))* y(k,269) + prod(k,243) = (rxt(k,387)*y(k,154) +rxt(k,389)*y(k,48) + & + .150_r8*rxt(k,524)*y(k,217))*y(k,265) + (.060_r8*rxt(k,503)*y(k,6) + & + .060_r8*rxt(k,506)*y(k,111))*y(k,137) +.150_r8*rxt(k,70)*y(k,217) + loss(k,240) = (rxt(k,515)* y(k,125) +rxt(k,513)* y(k,237) +rxt(k,514) & + * y(k,243) + het_rates(k,270))* y(k,270) + prod(k,240) = (.500_r8*rxt(k,522)*y(k,127) +rxt(k,523)*y(k,265))*y(k,216) & + +rxt(k,516)*y(k,265)*y(k,213) + loss(k,230) = (rxt(k,520)* y(k,125) +rxt(k,518)* y(k,237) +rxt(k,519) & + * y(k,243) + het_rates(k,271))* y(k,271) + prod(k,230) = (rxt(k,504)*y(k,6) +rxt(k,507)*y(k,111) +rxt(k,521)*y(k,215)) & *y(k,265) - loss(k,201) = (rxt(k,487)* y(k,131) +rxt(k,486)* y(k,247) + het_rates(k,272)) & + loss(k,202) = (rxt(k,490)* y(k,125) +rxt(k,489)* y(k,243) + het_rates(k,272)) & * y(k,272) - prod(k,201) = (rxt(k,488)*y(k,222) +.650_r8*rxt(k,489)*y(k,223) + & - rxt(k,579)*y(k,223))*y(k,265) - loss(k,242) = (rxt(k,453)* y(k,131) +rxt(k,454)* y(k,133) +rxt(k,450) & - * y(k,240) +rxt(k,451)* y(k,241) +rxt(k,452)* y(k,247) & - + het_rates(k,273))* y(k,273) - prod(k,242) = (rxt(k,422)*y(k,96) +rxt(k,423)*y(k,98) +rxt(k,424)*y(k,99) + & - .400_r8*rxt(k,447)*y(k,106) +.500_r8*rxt(k,455)*y(k,225))*y(k,265) - loss(k,202) = (rxt(k,493)* y(k,131) +rxt(k,492)* y(k,247) + het_rates(k,274)) & - * y(k,274) - prod(k,202) = (.560_r8*rxt(k,491)*y(k,226) +rxt(k,494)*y(k,227))*y(k,265) - loss(k,172) = (rxt(k,496)* y(k,131) +rxt(k,495)* y(k,247) + het_rates(k,275)) & + prod(k,202) = (rxt(k,491)*y(k,218) +.650_r8*rxt(k,492)*y(k,219) + & + rxt(k,582)*y(k,219))*y(k,265) + loss(k,89) = (rxt(k,584)* y(k,125) +rxt(k,583)* y(k,243) + het_rates(k,273)) & + * y(k,273) + prod(k,89) =rxt(k,582)*y(k,265)*y(k,219) + loss(k,244) = (rxt(k,456)* y(k,125) +rxt(k,457)* y(k,127) +rxt(k,453) & + * y(k,236) +rxt(k,454)* y(k,237) +rxt(k,455)* y(k,243) & + + het_rates(k,274))* y(k,274) + prod(k,244) = (rxt(k,425)*y(k,94) +rxt(k,426)*y(k,96) +rxt(k,427)*y(k,97) + & + .400_r8*rxt(k,450)*y(k,103) +.500_r8*rxt(k,458)*y(k,220))*y(k,265) + loss(k,204) = (rxt(k,496)* y(k,125) +rxt(k,495)* y(k,243) + het_rates(k,275)) & * y(k,275) - prod(k,172) = (.300_r8*rxt(k,497)*y(k,229) +rxt(k,498)*y(k,230))*y(k,265) - loss(k,274) = (rxt(k,293)* y(k,75) +rxt(k,538)* y(k,163) +rxt(k,174) & - * y(k,261) + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,276)) & + prod(k,204) = (.560_r8*rxt(k,494)*y(k,221) +rxt(k,497)*y(k,222))*y(k,265) + loss(k,90) = (rxt(k,588)* y(k,125) +rxt(k,587)* y(k,243) + het_rates(k,276)) & * y(k,276) - prod(k,274) = (rxt(k,199)*y(k,79) +rxt(k,200)*y(k,81) +rxt(k,201)*y(k,247) + & - rxt(k,204)*y(k,265) +rxt(k,207)*y(k,92) +rxt(k,231)*y(k,91) + & - rxt(k,255)*y(k,87) +rxt(k,258)*y(k,94) +rxt(k,284)*y(k,83) + & - rxt(k,298)*y(k,43) +rxt(k,300)*y(k,45) +rxt(k,301)*y(k,46) + & - rxt(k,303)*y(k,48) +rxt(k,308)*y(k,86) +rxt(k,317)*y(k,44) + & - rxt(k,323)*y(k,55) +rxt(k,324)*y(k,56) +rxt(k,326)*y(k,89) + & - rxt(k,346)*y(k,30) +rxt(k,348)*y(k,47) +rxt(k,354)*y(k,52) + & - rxt(k,355)*y(k,53) +rxt(k,371)*y(k,32) +rxt(k,372)*y(k,33) + & - rxt(k,374)*y(k,51) +rxt(k,380)*y(k,157) +rxt(k,384)*y(k,158) + & - rxt(k,386)*y(k,50) +.500_r8*rxt(k,399)*y(k,111) +rxt(k,539)*y(k,127)) & - *y(k,265) + (rxt(k,587)*y(k,94) +rxt(k,593)*y(k,94) + & - rxt(k,594)*y(k,93) +rxt(k,598)*y(k,94) +rxt(k,599)*y(k,93))*y(k,87) & - + (rxt(k,540) +rxt(k,194)*y(k,78))*y(k,247) +.050_r8*rxt(k,40) & - *y(k,56) +rxt(k,136)*y(k,82) + prod(k,90) =rxt(k,586)*y(k,265)*y(k,221) + loss(k,174) = (rxt(k,499)* y(k,125) +rxt(k,498)* y(k,243) + het_rates(k,277)) & + * y(k,277) + prod(k,174) = (.300_r8*rxt(k,500)*y(k,223) +rxt(k,501)*y(k,224))*y(k,265) + loss(k,276) = (rxt(k,296)* y(k,73) +rxt(k,541)* y(k,159) +rxt(k,174) & + * y(k,261) + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,278)) & + * y(k,278) + prod(k,276) = (rxt(k,199)*y(k,77) +rxt(k,200)*y(k,79) +rxt(k,201)*y(k,243) + & + rxt(k,204)*y(k,265) +rxt(k,208)*y(k,90) +rxt(k,231)*y(k,89) + & + rxt(k,258)*y(k,85) +rxt(k,261)*y(k,92) +rxt(k,287)*y(k,81) + & + rxt(k,301)*y(k,41) +rxt(k,303)*y(k,43) +rxt(k,304)*y(k,44) + & + rxt(k,306)*y(k,46) +rxt(k,311)*y(k,84) +rxt(k,320)*y(k,42) + & + rxt(k,326)*y(k,53) +rxt(k,327)*y(k,54) +rxt(k,329)*y(k,87) + & + rxt(k,349)*y(k,28) +rxt(k,351)*y(k,45) +rxt(k,357)*y(k,50) + & + rxt(k,358)*y(k,51) +rxt(k,374)*y(k,30) +rxt(k,375)*y(k,31) + & + rxt(k,377)*y(k,49) +rxt(k,383)*y(k,153) +rxt(k,387)*y(k,154) + & + rxt(k,389)*y(k,48) +.500_r8*rxt(k,402)*y(k,106) +rxt(k,542)*y(k,121)) & + *y(k,265) + (rxt(k,590)*y(k,92) +rxt(k,596)*y(k,92) + & + rxt(k,597)*y(k,91) +rxt(k,601)*y(k,92) +rxt(k,602)*y(k,91))*y(k,85) & + + (rxt(k,543) +rxt(k,194)*y(k,76))*y(k,243) +.050_r8*rxt(k,40) & + *y(k,54) +rxt(k,136)*y(k,80) end do end subroutine imp_prod_loss end module mo_prod_loss diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_rxt_rates_conv.F90 index 3081fef32d..0fc4ca88be 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_rxt_rates_conv.F90 @@ -8,117 +8,117 @@ subroutine set_rates( rxt_rates, sol, ncol ) real(r8), intent(inout) :: rxt_rates(:,:,:) real(r8), intent(in) :: sol(:,:,:) integer, intent(in) :: ncol - rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 276) ! rate_const*H2O - rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 276) ! rate_const*H2O - rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 276) ! rate_const*H2O - rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 81) ! rate_const*H2O2 - rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 143) ! rate_const*O3 - rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 143) ! rate_const*O3 - rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 91) ! rate_const*HNO3 - rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 92) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 92) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 120) ! rate_const*N2O - rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 131) ! rate_const*NO - rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 131) ! rate_const*NO - rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 132) ! rate_const*NO2 - rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 133) ! rate_const*NO3 - rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 133) ! rate_const*NO3 + rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 278) ! rate_const*H2O + rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 278) ! rate_const*H2O + rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 278) ! rate_const*H2O + rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 79) ! rate_const*H2O2 + rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 137) ! rate_const*O3 + rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 137) ! rate_const*O3 + rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 89) ! rate_const*HNO3 + rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 90) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 90) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 114) ! rate_const*N2O + rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 125) ! rate_const*NO + rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 125) ! rate_const*NO + rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 126) ! rate_const*NO2 + rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 127) ! rate_const*NO3 + rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 127) ! rate_const*NO3 rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 1) ! rate_const*ALKNIT rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 2) ! rate_const*ALKOOH - rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 10) ! rate_const*BENZOOH - rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 11) ! rate_const*BEPOMUC - rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 12) ! rate_const*BIGALD - rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 13) ! rate_const*BIGALD1 - rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 14) ! rate_const*BIGALD2 - rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 15) ! rate_const*BIGALD3 - rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 16) ! rate_const*BIGALD4 - rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 25) ! rate_const*BZOOH - rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 29) ! rate_const*C2H5OOH - rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 32) ! rate_const*C3H7OOH - rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 34) ! rate_const*C6H5OOH - rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 44) ! rate_const*CH2O - rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 44) ! rate_const*CH2O - rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 47) ! rate_const*CH3CHO - rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 50) ! rate_const*CH3COCH3 - rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 51) ! rate_const*CH3COCHO - rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 53) ! rate_const*CH3COOOH - rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 55) ! rate_const*CH3OOH - rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 56) ! rate_const*CH4 - rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 56) ! rate_const*CH4 - rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 65) ! rate_const*CO2 - rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 74) ! rate_const*EOOH - rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 76) ! rate_const*GLYALD - rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 77) ! rate_const*GLYOXAL - rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 95) ! rate_const*HONITR - rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 96) ! rate_const*HPALD - rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 97) ! rate_const*HYAC - rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 104) ! rate_const*ISOPNOOH - rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 106) ! rate_const*ISOPOOH - rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 111) ! rate_const*MACR - rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 111) ! rate_const*MACR - rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 113) ! rate_const*MEK - rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 114) ! rate_const*MEKOOH - rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 115) ! rate_const*MPAN - rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 118) ! rate_const*MVK - rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 123) ! rate_const*NC4CHO - rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 134) ! rate_const*NOA - rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 135) ! rate_const*NTERPOOH - rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 147) ! rate_const*ONITR - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 148) ! rate_const*PAN - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 152) ! rate_const*PHENOOH - rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 157) ! rate_const*POOH - rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 158) ! rate_const*ROOH - rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 216) ! rate_const*TEPOMUC - rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 217) ! rate_const*TERP2OOH - rxt_rates(:ncol,:, 67) = rxt_rates(:ncol,:, 67)*sol(:ncol,:, 218) ! rate_const*TERPNIT - rxt_rates(:ncol,:, 68) = rxt_rates(:ncol,:, 68)*sol(:ncol,:, 219) ! rate_const*TERPOOH - rxt_rates(:ncol,:, 69) = rxt_rates(:ncol,:, 69)*sol(:ncol,:, 220) ! rate_const*TERPROD1 - rxt_rates(:ncol,:, 70) = rxt_rates(:ncol,:, 70)*sol(:ncol,:, 221) ! rate_const*TERPROD2 - rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 222) ! rate_const*TOLOOH - rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 225) ! rate_const*XOOH - rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 227) ! rate_const*XYLENOOH - rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 230) ! rate_const*XYLOLOOH - rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 20) ! rate_const*BRCL - rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 21) ! rate_const*BRO - rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 22) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 22) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 35) ! rate_const*CCL4 - rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 36) ! rate_const*CF2CLBR - rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 37) ! rate_const*CF3BR - rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 38) ! rate_const*CFC11 - rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 39) ! rate_const*CFC113 - rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 40) ! rate_const*CFC114 - rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 41) ! rate_const*CFC115 - rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 42) ! rate_const*CFC12 - rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 43) ! rate_const*CH2BR2 - rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 45) ! rate_const*CH3BR - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 46) ! rate_const*CH3CCL3 - rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 48) ! rate_const*CH3CL - rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 57) ! rate_const*CHBR3 - rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 59) ! rate_const*CL2 - rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 60) ! rate_const*CL2O2 - rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 61) ! rate_const*CLO - rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 62) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 62) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 66) ! rate_const*COF2 - rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 67) ! rate_const*COFCL - rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 80) ! rate_const*H2402 - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 83) ! rate_const*HBR - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 84) ! rate_const*HCFC141B - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 85) ! rate_const*HCFC142B - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 86) ! rate_const*HCFC22 - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 87) ! rate_const*HCL - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 90) ! rate_const*HF - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 93) ! rate_const*HOBR - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 94) ! rate_const*HOCL - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 145) ! rate_const*OCLO - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 160) ! rate_const*SF6 - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 65) ! rate_const*CO2 - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 119) ! rate_const*N + rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 8) ! rate_const*BENZOOH + rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 9) ! rate_const*BEPOMUC + rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 10) ! rate_const*BIGALD + rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 11) ! rate_const*BIGALD1 + rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 12) ! rate_const*BIGALD2 + rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 13) ! rate_const*BIGALD3 + rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 14) ! rate_const*BIGALD4 + rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 23) ! rate_const*BZOOH + rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 27) ! rate_const*C2H5OOH + rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 30) ! rate_const*C3H7OOH + rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 32) ! rate_const*C6H5OOH + rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 42) ! rate_const*CH2O + rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 42) ! rate_const*CH2O + rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 45) ! rate_const*CH3CHO + rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 48) ! rate_const*CH3COCH3 + rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 49) ! rate_const*CH3COCHO + rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 51) ! rate_const*CH3COOOH + rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 53) ! rate_const*CH3OOH + rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 54) ! rate_const*CH4 + rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 54) ! rate_const*CH4 + rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 63) ! rate_const*CO2 + rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 72) ! rate_const*EOOH + rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 74) ! rate_const*GLYALD + rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 75) ! rate_const*GLYOXAL + rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 93) ! rate_const*HONITR + rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 94) ! rate_const*HPALD + rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 95) ! rate_const*HYAC + rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 102) ! rate_const*ISOPNOOH + rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 103) ! rate_const*ISOPOOH + rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 106) ! rate_const*MACR + rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 106) ! rate_const*MACR + rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 108) ! rate_const*MEK + rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 109) ! rate_const*MEKOOH + rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 110) ! rate_const*MPAN + rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 112) ! rate_const*MVK + rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 117) ! rate_const*NC4CHO + rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 128) ! rate_const*NOA + rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 129) ! rate_const*NTERPOOH + rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 141) ! rate_const*ONITR + rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 142) ! rate_const*PAN + rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 146) ! rate_const*PHENOOH + rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 153) ! rate_const*POOH + rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 154) ! rate_const*ROOH + rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 212) ! rate_const*TEPOMUC + rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 213) ! rate_const*TERP2OOH + rxt_rates(:ncol,:, 67) = rxt_rates(:ncol,:, 67)*sol(:ncol,:, 214) ! rate_const*TERPNIT + rxt_rates(:ncol,:, 68) = rxt_rates(:ncol,:, 68)*sol(:ncol,:, 215) ! rate_const*TERPOOH + rxt_rates(:ncol,:, 69) = rxt_rates(:ncol,:, 69)*sol(:ncol,:, 216) ! rate_const*TERPROD1 + rxt_rates(:ncol,:, 70) = rxt_rates(:ncol,:, 70)*sol(:ncol,:, 217) ! rate_const*TERPROD2 + rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 218) ! rate_const*TOLOOH + rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 220) ! rate_const*XOOH + rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 222) ! rate_const*XYLENOOH + rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 224) ! rate_const*XYLOLOOH + rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 18) ! rate_const*BRCL + rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 19) ! rate_const*BRO + rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 33) ! rate_const*CCL4 + rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 34) ! rate_const*CF2CLBR + rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 35) ! rate_const*CF3BR + rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 36) ! rate_const*CFC11 + rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 37) ! rate_const*CFC113 + rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 38) ! rate_const*CFC114 + rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 39) ! rate_const*CFC115 + rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 40) ! rate_const*CFC12 + rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 41) ! rate_const*CH2BR2 + rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 43) ! rate_const*CH3BR + rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 44) ! rate_const*CH3CCL3 + rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 46) ! rate_const*CH3CL + rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 55) ! rate_const*CHBR3 + rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 57) ! rate_const*CL2 + rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 58) ! rate_const*CL2O2 + rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 59) ! rate_const*CLO + rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 64) ! rate_const*COF2 + rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 65) ! rate_const*COFCL + rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 78) ! rate_const*H2402 + rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 81) ! rate_const*HBR + rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 82) ! rate_const*HCFC141B + rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 83) ! rate_const*HCFC142B + rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 84) ! rate_const*HCFC22 + rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 85) ! rate_const*HCL + rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 88) ! rate_const*HF + rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 91) ! rate_const*HOBR + rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 92) ! rate_const*HOCL + rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 139) ! rate_const*OCLO + rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 156) ! rate_const*SF6 + rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 63) ! rate_const*CO2 + rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 113) ! rate_const*N ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 @@ -127,507 +127,510 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 141) ! rate_const*O - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 142) ! rate_const*O2 - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 82) ! rate_const*H2SO4 - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 146) ! rate_const*OCS - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 161) ! rate_const*SO - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 162) ! rate_const*SO2 - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 163) ! rate_const*SO3 - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 168) ! rate_const*soabb1_a1 - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 169) ! rate_const*soabb1_a2 - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 170) ! rate_const*soabb2_a1 - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 171) ! rate_const*soabb2_a2 - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 172) ! rate_const*soabb3_a1 - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 173) ! rate_const*soabb3_a2 - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 174) ! rate_const*soabb4_a1 - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 175) ! rate_const*soabb4_a2 - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 176) ! rate_const*soabb5_a1 - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 177) ! rate_const*soabb5_a2 - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 178) ! rate_const*soabg1_a1 - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 179) ! rate_const*soabg1_a2 - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 180) ! rate_const*soabg2_a1 - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 181) ! rate_const*soabg2_a2 - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 182) ! rate_const*soabg3_a1 - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 183) ! rate_const*soabg3_a2 - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 184) ! rate_const*soabg4_a1 - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 185) ! rate_const*soabg4_a2 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 186) ! rate_const*soabg5_a1 - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 187) ! rate_const*soabg5_a2 - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 188) ! rate_const*soaff1_a1 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 189) ! rate_const*soaff1_a2 - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 190) ! rate_const*soaff2_a1 - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 191) ! rate_const*soaff2_a2 - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 192) ! rate_const*soaff3_a1 - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 193) ! rate_const*soaff3_a2 - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 194) ! rate_const*soaff4_a1 - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 195) ! rate_const*soaff4_a2 - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 196) ! rate_const*soaff5_a1 - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 197) ! rate_const*soaff5_a2 + rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 135) ! rate_const*O + rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 136) ! rate_const*O2 + rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 80) ! rate_const*H2SO4 + rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 140) ! rate_const*OCS + rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 157) ! rate_const*SO + rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 158) ! rate_const*SO2 + rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 159) ! rate_const*SO3 + rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 164) ! rate_const*soabb1_a1 + rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 165) ! rate_const*soabb1_a2 + rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 166) ! rate_const*soabb2_a1 + rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 167) ! rate_const*soabb2_a2 + rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 168) ! rate_const*soabb3_a1 + rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 169) ! rate_const*soabb3_a2 + rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 170) ! rate_const*soabb4_a1 + rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 171) ! rate_const*soabb4_a2 + rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 172) ! rate_const*soabb5_a1 + rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 173) ! rate_const*soabb5_a2 + rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 174) ! rate_const*soabg1_a1 + rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 175) ! rate_const*soabg1_a2 + rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 176) ! rate_const*soabg2_a1 + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 177) ! rate_const*soabg2_a2 + rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 178) ! rate_const*soabg3_a1 + rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 179) ! rate_const*soabg3_a2 + rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 180) ! rate_const*soabg4_a1 + rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 181) ! rate_const*soabg4_a2 + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 182) ! rate_const*soabg5_a1 + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 183) ! rate_const*soabg5_a2 + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 184) ! rate_const*soaff1_a1 + rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 185) ! rate_const*soaff1_a2 + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 186) ! rate_const*soaff2_a1 + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 187) ! rate_const*soaff2_a2 + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 188) ! rate_const*soaff3_a1 + rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 189) ! rate_const*soaff3_a2 + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 190) ! rate_const*soaff4_a1 + rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 191) ! rate_const*soaff4_a2 + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 192) ! rate_const*soaff5_a1 + rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 193) ! rate_const*soaff5_a2 rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 262) ! rate_const*O2_1D rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 263) ! rate_const*O2_1S - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 261)*sol(:ncol,:, 79) ! rate_const*O1D*H2 - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 261)*sol(:ncol,:, 276) ! rate_const*O1D*H2O + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 261)*sol(:ncol,:, 77) ! rate_const*O1D*H2 + rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 261)*sol(:ncol,:, 278) ! rate_const*O1D*H2O rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 261) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 261)*sol(:ncol,:, 142) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 261)*sol(:ncol,:, 142) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 261)*sol(:ncol,:, 143) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 261)*sol(:ncol,:, 136) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 261)*sol(:ncol,:, 136) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 261)*sol(:ncol,:, 137) ! rate_const*O1D*O3 rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 262) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 262)*sol(:ncol,:, 141) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 262)*sol(:ncol,:, 142) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 263)*sol(:ncol,:, 65) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 262)*sol(:ncol,:, 135) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 262)*sol(:ncol,:, 136) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 263)*sol(:ncol,:, 63) ! rate_const*O2_1S*CO2 rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 263) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 263)*sol(:ncol,:, 141) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 263)*sol(:ncol,:, 142) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 263)*sol(:ncol,:, 143) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 141)*sol(:ncol,:, 143) ! rate_const*O*O3 - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 141)*sol(:ncol,:, 141) ! rate_const*M*O*O - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 141)*sol(:ncol,:, 142) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 79)*sol(:ncol,:, 141) ! rate_const*H2*O - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 81)*sol(:ncol,:, 141) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 78)*sol(:ncol,:, 247) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 78)*sol(:ncol,:, 247) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 78)*sol(:ncol,:, 247) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 78)*sol(:ncol,:, 142) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 247)*sol(:ncol,:, 141) ! rate_const*HO2*O - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 247)*sol(:ncol,:, 143) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 78)*sol(:ncol,:, 143) ! rate_const*H*O3 - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 265)*sol(:ncol,:, 79) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 265)*sol(:ncol,:, 81) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 265)*sol(:ncol,:, 247) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 265)*sol(:ncol,:, 141) ! rate_const*OH*O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 265)*sol(:ncol,:, 143) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 263)*sol(:ncol,:, 135) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 263)*sol(:ncol,:, 136) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 263)*sol(:ncol,:, 137) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 135)*sol(:ncol,:, 137) ! rate_const*O*O3 + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 135)*sol(:ncol,:, 135) ! rate_const*M*O*O + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 135)*sol(:ncol,:, 136) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 77)*sol(:ncol,:, 135) ! rate_const*H2*O + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 79)*sol(:ncol,:, 135) ! rate_const*H2O2*O + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 76)*sol(:ncol,:, 243) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 76)*sol(:ncol,:, 243) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 76)*sol(:ncol,:, 243) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 76)*sol(:ncol,:, 136) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 243)*sol(:ncol,:, 135) ! rate_const*HO2*O + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 243)*sol(:ncol,:, 137) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 76)*sol(:ncol,:, 137) ! rate_const*H*O3 + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 265)*sol(:ncol,:, 77) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 265)*sol(:ncol,:, 79) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 265)*sol(:ncol,:, 243) ! rate_const*OH*HO2 + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 265)*sol(:ncol,:, 135) ! rate_const*OH*O + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 265)*sol(:ncol,:, 137) ! rate_const*OH*O3 rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 265)*sol(:ncol,:, 265) ! rate_const*OH*OH rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 265)*sol(:ncol,:, 265) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 247)*sol(:ncol,:, 247) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 92)*sol(:ncol,:, 265) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 256)*sol(:ncol,:, 141) ! rate_const*N2D*O - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 256)*sol(:ncol,:, 142) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 119)*sol(:ncol,:, 131) ! rate_const*N*NO - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 119)*sol(:ncol,:, 132) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 119)*sol(:ncol,:, 132) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 119)*sol(:ncol,:, 132) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 119)*sol(:ncol,:, 142) ! rate_const*N*O2 - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 132)*sol(:ncol,:, 141) ! rate_const*NO2*O - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 132)*sol(:ncol,:, 143) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 132)*sol(:ncol,:, 141) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 133)*sol(:ncol,:, 247) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 133)*sol(:ncol,:, 131) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 133)*sol(:ncol,:, 141) ! rate_const*NO3*O - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 133)*sol(:ncol,:, 265) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 119)*sol(:ncol,:, 265) ! rate_const*N*OH - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 131)*sol(:ncol,:, 247) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 131)*sol(:ncol,:, 143) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 131)*sol(:ncol,:, 141) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 261)*sol(:ncol,:, 120) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 261)*sol(:ncol,:, 120) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 132)*sol(:ncol,:, 247) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 132)*sol(:ncol,:, 133) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 132)*sol(:ncol,:, 265) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 91)*sol(:ncol,:, 265) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 92) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 121) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 58)*sol(:ncol,:, 44) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 58)*sol(:ncol,:, 56) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 58)*sol(:ncol,:, 79) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 58)*sol(:ncol,:, 81) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 58)*sol(:ncol,:, 247) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 58)*sol(:ncol,:, 247) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 58)*sol(:ncol,:, 143) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 61)*sol(:ncol,:, 241) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 61)*sol(:ncol,:, 61) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 61)*sol(:ncol,:, 61) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 61)*sol(:ncol,:, 61) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 61)*sol(:ncol,:, 247) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 61)*sol(:ncol,:, 131) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 62)*sol(:ncol,:, 58) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 61)*sol(:ncol,:, 132) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 62)*sol(:ncol,:, 141) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 62)*sol(:ncol,:, 265) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 61)*sol(:ncol,:, 141) ! rate_const*CLO*O - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 61)*sol(:ncol,:, 265) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 61)*sol(:ncol,:, 265) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 87)*sol(:ncol,:, 141) ! rate_const*HCL*O - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 87)*sol(:ncol,:, 265) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 94)*sol(:ncol,:, 58) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 94)*sol(:ncol,:, 141) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 94)*sol(:ncol,:, 265) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 261)*sol(:ncol,:, 35) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 261)*sol(:ncol,:, 36) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 261)*sol(:ncol,:, 38) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 261)*sol(:ncol,:, 39) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 261)*sol(:ncol,:, 40) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 261)*sol(:ncol,:, 41) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 261)*sol(:ncol,:, 42) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 261)*sol(:ncol,:, 87) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 261)*sol(:ncol,:, 87) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 61)*sol(:ncol,:, 61) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 60) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 19)*sol(:ncol,:, 44) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 19)*sol(:ncol,:, 247) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 19)*sol(:ncol,:, 143) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 21)*sol(:ncol,:, 21) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 21)*sol(:ncol,:, 61) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 21)*sol(:ncol,:, 61) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 21)*sol(:ncol,:, 61) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 21)*sol(:ncol,:, 247) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 21)*sol(:ncol,:, 131) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 21)*sol(:ncol,:, 132) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 22)*sol(:ncol,:, 141) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 21)*sol(:ncol,:, 141) ! rate_const*BRO*O - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 21)*sol(:ncol,:, 265) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 83)*sol(:ncol,:, 141) ! rate_const*HBR*O - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 83)*sol(:ncol,:, 265) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 93)*sol(:ncol,:, 141) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 261)*sol(:ncol,:, 37) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 261)*sol(:ncol,:, 57) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 261)*sol(:ncol,:, 80) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 261)*sol(:ncol,:, 83) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 261)*sol(:ncol,:, 83) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 75)*sol(:ncol,:, 56) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 75)*sol(:ncol,:, 79) ! rate_const*F*H2 - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 75)*sol(:ncol,:, 276) ! rate_const*F*H2O - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 75)*sol(:ncol,:, 91) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 261)*sol(:ncol,:, 66) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 261)*sol(:ncol,:, 67) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 43)*sol(:ncol,:, 58) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 43)*sol(:ncol,:, 265) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 45)*sol(:ncol,:, 58) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 45)*sol(:ncol,:, 265) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 46)*sol(:ncol,:, 265) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 48)*sol(:ncol,:, 58) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 48)*sol(:ncol,:, 265) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 57)*sol(:ncol,:, 58) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 57)*sol(:ncol,:, 265) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 84)*sol(:ncol,:, 265) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 85)*sol(:ncol,:, 265) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 86)*sol(:ncol,:, 265) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 261)*sol(:ncol,:, 43) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 261)*sol(:ncol,:, 45) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 261)*sol(:ncol,:, 84) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 261)*sol(:ncol,:, 85) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 261)*sol(:ncol,:, 86) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 44)*sol(:ncol,:, 247) ! rate_const*CH2O*HO2 - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 44)*sol(:ncol,:, 133) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 44)*sol(:ncol,:, 141) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 44)*sol(:ncol,:, 265) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 241)*sol(:ncol,:, 241) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 241)*sol(:ncol,:, 241) ! rate_const*CH3O2*CH3O2 - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 241)*sol(:ncol,:, 247) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 241)*sol(:ncol,:, 131) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 54)*sol(:ncol,:, 265) ! rate_const*CH3OH*OH - rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 55)*sol(:ncol,:, 265) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 56)*sol(:ncol,:, 265) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 88)*sol(:ncol,:, 265) ! rate_const*M*HCN*OH - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 89)*sol(:ncol,:, 265) ! rate_const*HCOOH*OH - rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 248)*sol(:ncol,:, 247) ! rate_const*HOCH2OO*HO2 - rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 248) ! rate_const*HOCH2OO - rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 248)*sol(:ncol,:, 131) ! rate_const*HOCH2OO*NO - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 261)*sol(:ncol,:, 56) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 261)*sol(:ncol,:, 56) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 261)*sol(:ncol,:, 56) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 261)*sol(:ncol,:, 88) ! rate_const*O1D*HCN - rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 64)*sol(:ncol,:, 265) ! rate_const*CO*OH - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 26)*sol(:ncol,:, 58) ! rate_const*M*C2H2*CL - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 26)*sol(:ncol,:, 265) ! rate_const*M*C2H2*OH - rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 27)*sol(:ncol,:, 58) ! rate_const*M*C2H4*CL - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 27)*sol(:ncol,:, 143) ! rate_const*C2H4*O3 - rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 237)*sol(:ncol,:, 237) ! rate_const*C2H5O2*C2H5O2 - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 237)*sol(:ncol,:, 241) ! rate_const*C2H5O2*CH3O2 - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 237)*sol(:ncol,:, 247) ! rate_const*C2H5O2*HO2 - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 237)*sol(:ncol,:, 131) ! rate_const*C2H5O2*NO - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 28)*sol(:ncol,:, 265) ! rate_const*C2H5OH*OH - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 29)*sol(:ncol,:, 265) ! rate_const*C2H5OOH*OH - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 30)*sol(:ncol,:, 58) ! rate_const*C2H6*CL - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 30)*sol(:ncol,:, 265) ! rate_const*C2H6*OH - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 47)*sol(:ncol,:, 133) ! rate_const*CH3CHO*NO3 - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 47)*sol(:ncol,:, 265) ! rate_const*CH3CHO*OH - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 49)*sol(:ncol,:, 265) ! rate_const*CH3CN*OH - rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 240)*sol(:ncol,:, 240) ! rate_const*CH3CO3*CH3CO3 - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 240)*sol(:ncol,:, 241) ! rate_const*CH3CO3*CH3O2 - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 240)*sol(:ncol,:, 247) ! rate_const*CH3CO3*HO2 - rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 240)*sol(:ncol,:, 131) ! rate_const*CH3CO3*NO - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 52)*sol(:ncol,:, 265) ! rate_const*CH3COOH*OH - rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 53)*sol(:ncol,:, 265) ! rate_const*CH3COOOH*OH - rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 246)*sol(:ncol,:, 247) ! rate_const*EO2*HO2 - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 246)*sol(:ncol,:, 131) ! rate_const*EO2*NO - rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 245) ! rate_const*EO - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 245)*sol(:ncol,:, 142) ! rate_const*EO*O2 - rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 76)*sol(:ncol,:, 265) ! rate_const*GLYALD*OH - rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 77)*sol(:ncol,:, 265) ! rate_const*GLYOXAL*OH - rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 148)*sol(:ncol,:, 265) ! rate_const*PAN*OH - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 27)*sol(:ncol,:, 265) ! rate_const*M*C2H4*OH - rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 240)*sol(:ncol,:, 132) ! rate_const*M*CH3CO3*NO2 - rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 148) ! rate_const*M*PAN - rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 31)*sol(:ncol,:, 133) ! rate_const*C3H6*NO3 - rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 31)*sol(:ncol,:, 143) ! rate_const*C3H6*O3 - rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 238)*sol(:ncol,:, 241) ! rate_const*C3H7O2*CH3O2 - rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 238)*sol(:ncol,:, 247) ! rate_const*C3H7O2*HO2 - rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 238)*sol(:ncol,:, 131) ! rate_const*C3H7O2*NO - rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 32)*sol(:ncol,:, 265) ! rate_const*C3H7OOH*OH - rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 33)*sol(:ncol,:, 265) ! rate_const*C3H8*OH - rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 51)*sol(:ncol,:, 133) ! rate_const*CH3COCHO*NO3 - rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 51)*sol(:ncol,:, 265) ! rate_const*CH3COCHO*OH - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 58)*sol(:ncol,:, 33) ! rate_const*CL*C3H8 - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 97)*sol(:ncol,:, 265) ! rate_const*HYAC*OH - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 134)*sol(:ncol,:, 265) ! rate_const*NOA*OH - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 268)*sol(:ncol,:, 247) ! rate_const*PO2*HO2 - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 268)*sol(:ncol,:, 131) ! rate_const*PO2*NO - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 157)*sol(:ncol,:, 265) ! rate_const*POOH*OH - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 269)*sol(:ncol,:, 241) ! rate_const*RO2*CH3O2 - rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 269)*sol(:ncol,:, 247) ! rate_const*RO2*HO2 - rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 269)*sol(:ncol,:, 131) ! rate_const*RO2*NO - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 158)*sol(:ncol,:, 265) ! rate_const*ROOH*OH - rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 31)*sol(:ncol,:, 265) ! rate_const*M*C3H6*OH - rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 50)*sol(:ncol,:, 265) ! rate_const*CH3COCH3*OH - rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 18)*sol(:ncol,:, 133) ! rate_const*BIGENE*NO3 - rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 18)*sol(:ncol,:, 265) ! rate_const*BIGENE*OH - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 244)*sol(:ncol,:, 131) ! rate_const*ENEO2*NO - rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 244)*sol(:ncol,:, 131) ! rate_const*ENEO2*NO - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 95)*sol(:ncol,:, 265) ! rate_const*HONITR*OH - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 251)*sol(:ncol,:, 240) ! rate_const*MACRO2*CH3CO3 - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 251)*sol(:ncol,:, 241) ! rate_const*MACRO2*CH3O2 - rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 251)*sol(:ncol,:, 247) ! rate_const*MACRO2*HO2 - rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 251)*sol(:ncol,:, 133) ! rate_const*MACRO2*NO3 - rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 251)*sol(:ncol,:, 131) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 251)*sol(:ncol,:, 131) ! rate_const*MACRO2*NO - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 111)*sol(:ncol,:, 143) ! rate_const*MACR*O3 - rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 111)*sol(:ncol,:, 265) ! rate_const*MACR*OH - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 112)*sol(:ncol,:, 265) ! rate_const*MACROOH*OH - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 253)*sol(:ncol,:, 240) ! rate_const*MCO3*CH3CO3 - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 253)*sol(:ncol,:, 241) ! rate_const*MCO3*CH3O2 - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 253)*sol(:ncol,:, 247) ! rate_const*MCO3*HO2 - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 253)*sol(:ncol,:, 253) ! rate_const*MCO3*MCO3 - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 253)*sol(:ncol,:, 131) ! rate_const*MCO3*NO - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 253)*sol(:ncol,:, 133) ! rate_const*MCO3*NO3 - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 255)*sol(:ncol,:, 247) ! rate_const*MEKO2*HO2 - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 255)*sol(:ncol,:, 131) ! rate_const*MEKO2*NO - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 113)*sol(:ncol,:, 265) ! rate_const*MEK*OH - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 114)*sol(:ncol,:, 265) ! rate_const*MEKOOH*OH - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 115)*sol(:ncol,:, 265) ! rate_const*M*MPAN*OH - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 118)*sol(:ncol,:, 143) ! rate_const*MVK*O3 - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 118)*sol(:ncol,:, 265) ! rate_const*MVK*OH - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 253)*sol(:ncol,:, 132) ! rate_const*M*MCO3*NO2 - rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 115) ! rate_const*M*MPAN - rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 1)*sol(:ncol,:, 265) ! rate_const*ALKNIT*OH - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 234)*sol(:ncol,:, 247) ! rate_const*ALKO2*HO2 - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 234)*sol(:ncol,:, 131) ! rate_const*ALKO2*NO - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 234)*sol(:ncol,:, 131) ! rate_const*ALKO2*NO - rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 2)*sol(:ncol,:, 265) ! rate_const*ALKOOH*OH - rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 17)*sol(:ncol,:, 265) ! rate_const*BIGALK*OH - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 96)*sol(:ncol,:, 265) ! rate_const*HPALD*OH - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 98)*sol(:ncol,:, 265) ! rate_const*HYDRALD*OH - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 99)*sol(:ncol,:, 265) ! rate_const*IEPOX*OH - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 249)*sol(:ncol,:, 240) ! rate_const*ISOPAO2*CH3CO3 - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 249)*sol(:ncol,:, 241) ! rate_const*ISOPAO2*CH3O2 - rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 249)*sol(:ncol,:, 247) ! rate_const*ISOPAO2*HO2 - rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 249)*sol(:ncol,:, 131) ! rate_const*ISOPAO2*NO - rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 249)*sol(:ncol,:, 133) ! rate_const*ISOPAO2*NO3 - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 250)*sol(:ncol,:, 240) ! rate_const*ISOPBO2*CH3CO3 - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 250)*sol(:ncol,:, 241) ! rate_const*ISOPBO2*CH3O2 - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 250)*sol(:ncol,:, 247) ! rate_const*ISOPBO2*HO2 - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 250) ! rate_const*ISOPBO2 - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 250)*sol(:ncol,:, 131) ! rate_const*ISOPBO2*NO - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 250)*sol(:ncol,:, 133) ! rate_const*ISOPBO2*NO3 - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 101)*sol(:ncol,:, 265) ! rate_const*ISOPNITA*OH - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 102)*sol(:ncol,:, 265) ! rate_const*ISOPNITB*OH - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 100)*sol(:ncol,:, 133) ! rate_const*ISOP*NO3 - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 103)*sol(:ncol,:, 240) ! rate_const*ISOPNO3*CH3CO3 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 103)*sol(:ncol,:, 241) ! rate_const*ISOPNO3*CH3O2 - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 103)*sol(:ncol,:, 247) ! rate_const*ISOPNO3*HO2 - rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 103)*sol(:ncol,:, 131) ! rate_const*ISOPNO3*NO - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 103)*sol(:ncol,:, 133) ! rate_const*ISOPNO3*NO3 - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 104)*sol(:ncol,:, 265) ! rate_const*ISOPNOOH*OH - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 100)*sol(:ncol,:, 143) ! rate_const*ISOP*O3 - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 100)*sol(:ncol,:, 265) ! rate_const*ISOP*OH - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 106)*sol(:ncol,:, 265) ! rate_const*ISOPOOH*OH - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 122)*sol(:ncol,:, 265) ! rate_const*NC4CH2OH*OH - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 123)*sol(:ncol,:, 265) ! rate_const*NC4CHO*OH - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 273)*sol(:ncol,:, 240) ! rate_const*XO2*CH3CO3 - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 273)*sol(:ncol,:, 241) ! rate_const*XO2*CH3O2 - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 273)*sol(:ncol,:, 247) ! rate_const*XO2*HO2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 273)*sol(:ncol,:, 131) ! rate_const*XO2*NO - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 273)*sol(:ncol,:, 133) ! rate_const*XO2*NO3 - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 225)*sol(:ncol,:, 265) ! rate_const*XOOH*OH - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 233)*sol(:ncol,:, 247) ! rate_const*ACBZO2*HO2 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 233)*sol(:ncol,:, 131) ! rate_const*ACBZO2*NO - rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 8)*sol(:ncol,:, 265) ! rate_const*BENZENE*OH - rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 235)*sol(:ncol,:, 247) ! rate_const*BENZO2*HO2 - rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 235)*sol(:ncol,:, 131) ! rate_const*BENZO2*NO - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 10)*sol(:ncol,:, 265) ! rate_const*BENZOOH*OH - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 24)*sol(:ncol,:, 265) ! rate_const*BZALD*OH - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 236)*sol(:ncol,:, 247) ! rate_const*BZOO*HO2 - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 25)*sol(:ncol,:, 265) ! rate_const*BZOOH*OH - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 236)*sol(:ncol,:, 131) ! rate_const*BZOO*NO - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 239)*sol(:ncol,:, 247) ! rate_const*C6H5O2*HO2 - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 239)*sol(:ncol,:, 131) ! rate_const*C6H5O2*NO - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 34)*sol(:ncol,:, 265) ! rate_const*C6H5OOH*OH - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 68)*sol(:ncol,:, 265) ! rate_const*CRESOL*OH - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 242)*sol(:ncol,:, 247) ! rate_const*DICARBO2*HO2 - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 242)*sol(:ncol,:, 131) ! rate_const*DICARBO2*NO - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 242)*sol(:ncol,:, 132) ! rate_const*M*DICARBO2*NO2 - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 252)*sol(:ncol,:, 247) ! rate_const*MALO2*HO2 - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 252)*sol(:ncol,:, 131) ! rate_const*MALO2*NO - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 252)*sol(:ncol,:, 132) ! rate_const*M*MALO2*NO2 - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 254)*sol(:ncol,:, 247) ! rate_const*MDIALO2*HO2 - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 254)*sol(:ncol,:, 131) ! rate_const*MDIALO2*NO - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 254)*sol(:ncol,:, 132) ! rate_const*M*MDIALO2*NO2 - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 267)*sol(:ncol,:, 247) ! rate_const*PHENO2*HO2 - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 267)*sol(:ncol,:, 131) ! rate_const*PHENO2*NO - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 151)*sol(:ncol,:, 265) ! rate_const*PHENOL*OH - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 150)*sol(:ncol,:, 132) ! rate_const*PHENO*NO2 - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 150)*sol(:ncol,:, 143) ! rate_const*PHENO*O3 - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 152)*sol(:ncol,:, 265) ! rate_const*PHENOOH*OH - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 233)*sol(:ncol,:, 132) ! rate_const*M*ACBZO2*NO2 - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 272)*sol(:ncol,:, 247) ! rate_const*TOLO2*HO2 - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 272)*sol(:ncol,:, 131) ! rate_const*TOLO2*NO - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 222)*sol(:ncol,:, 265) ! rate_const*TOLOOH*OH - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 223)*sol(:ncol,:, 265) ! rate_const*TOLUENE*OH - rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 149) ! rate_const*M*PBZNIT - rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 226)*sol(:ncol,:, 265) ! rate_const*XYLENES*OH - rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 274)*sol(:ncol,:, 247) ! rate_const*XYLENO2*HO2 - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 274)*sol(:ncol,:, 131) ! rate_const*XYLENO2*NO - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 227)*sol(:ncol,:, 265) ! rate_const*XYLENOOH*OH - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 275)*sol(:ncol,:, 247) ! rate_const*XYLOLO2*HO2 - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 275)*sol(:ncol,:, 131) ! rate_const*XYLOLO2*NO - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 229)*sol(:ncol,:, 265) ! rate_const*XYLOL*OH - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 230)*sol(:ncol,:, 265) ! rate_const*XYLOLOOH*OH - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 6)*sol(:ncol,:, 133) ! rate_const*BCARY*NO3 - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 6)*sol(:ncol,:, 143) ! rate_const*BCARY*O3 - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 6)*sol(:ncol,:, 265) ! rate_const*BCARY*OH - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 116)*sol(:ncol,:, 133) ! rate_const*MTERP*NO3 - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 116)*sol(:ncol,:, 143) ! rate_const*MTERP*O3 - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 116)*sol(:ncol,:, 265) ! rate_const*MTERP*OH - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 260)*sol(:ncol,:, 241) ! rate_const*NTERPO2*CH3O2 - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 260)*sol(:ncol,:, 247) ! rate_const*NTERPO2*HO2 - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 260)*sol(:ncol,:, 131) ! rate_const*NTERPO2*NO - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 260)*sol(:ncol,:, 133) ! rate_const*NTERPO2*NO3 - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 135)*sol(:ncol,:, 265) ! rate_const*NTERPOOH*OH - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 270)*sol(:ncol,:, 241) ! rate_const*TERP2O2*CH3O2 - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 270)*sol(:ncol,:, 247) ! rate_const*TERP2O2*HO2 - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 270)*sol(:ncol,:, 131) ! rate_const*TERP2O2*NO - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 217)*sol(:ncol,:, 265) ! rate_const*TERP2OOH*OH - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 218)*sol(:ncol,:, 265) ! rate_const*TERPNIT*OH - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 271)*sol(:ncol,:, 241) ! rate_const*TERPO2*CH3O2 - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 271)*sol(:ncol,:, 247) ! rate_const*TERPO2*HO2 - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 271)*sol(:ncol,:, 131) ! rate_const*TERPO2*NO - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 219)*sol(:ncol,:, 265) ! rate_const*TERPOOH*OH - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 220)*sol(:ncol,:, 133) ! rate_const*TERPROD1*NO3 - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 220)*sol(:ncol,:, 265) ! rate_const*TERPROD1*OH - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 221)*sol(:ncol,:, 265) ! rate_const*TERPROD2*OH - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 69)*sol(:ncol,:, 133) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 69)*sol(:ncol,:, 265) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 146)*sol(:ncol,:, 141) ! rate_const*OCS*O - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 146)*sol(:ncol,:, 265) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 159)*sol(:ncol,:, 142) ! rate_const*S*O2 - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 162)*sol(:ncol,:, 265) ! rate_const*M*SO2*OH - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 159)*sol(:ncol,:, 143) ! rate_const*S*O3 - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 161)*sol(:ncol,:, 21) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 161)*sol(:ncol,:, 61) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 159)*sol(:ncol,:, 265) ! rate_const*S*OH - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 161)*sol(:ncol,:, 132) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 161)*sol(:ncol,:, 142) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 161)*sol(:ncol,:, 143) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 161)*sol(:ncol,:, 145) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 161)*sol(:ncol,:, 265) ! rate_const*SO*OH - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 69)*sol(:ncol,:, 265) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 163)*sol(:ncol,:, 276) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 127)*sol(:ncol,:, 265) ! rate_const*NH3*OH - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 247) ! rate_const*HO2 - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 95) ! rate_const*HONITR - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 101) ! rate_const*ISOPNITA - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 102) ! rate_const*ISOPNITB - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 122) ! rate_const*NC4CH2OH - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 123) ! rate_const*NC4CHO - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 128) ! rate_const*NH4 - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 132) ! rate_const*NO2 - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 133) ! rate_const*NO3 - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 135) ! rate_const*NTERPOOH - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 147) ! rate_const*ONITR - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 218) ! rate_const*TERPNIT - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 6)*sol(:ncol,:, 133) ! rate_const*BCARY*NO3 - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 7)*sol(:ncol,:, 247) ! rate_const*BCARYO2VBS*HO2 - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 7)*sol(:ncol,:, 131) ! rate_const*BCARYO2VBS*NO - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 6)*sol(:ncol,:, 143) ! rate_const*BCARY*O3 - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 6)*sol(:ncol,:, 265) ! rate_const*BCARY*OH - rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 8)*sol(:ncol,:, 265) ! rate_const*BENZENE*OH - rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 9)*sol(:ncol,:, 247) ! rate_const*BENZO2VBS*HO2 - rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 9)*sol(:ncol,:, 131) ! rate_const*BENZO2VBS*NO - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 100)*sol(:ncol,:, 133) ! rate_const*ISOP*NO3 - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 105)*sol(:ncol,:, 247) ! rate_const*ISOPO2VBS*HO2 - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 105)*sol(:ncol,:, 131) ! rate_const*ISOPO2VBS*NO - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 100)*sol(:ncol,:, 143) ! rate_const*ISOP*O3 - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 100)*sol(:ncol,:, 265) ! rate_const*ISOP*OH - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 108)*sol(:ncol,:, 247) ! rate_const*IVOCbbO2VBS*HO2 - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 108)*sol(:ncol,:, 131) ! rate_const*IVOCbbO2VBS*NO - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 107)*sol(:ncol,:, 265) ! rate_const*IVOCbb*OH - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 110)*sol(:ncol,:, 247) ! rate_const*IVOCffO2VBS*HO2 - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 110)*sol(:ncol,:, 131) ! rate_const*IVOCffO2VBS*NO - rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 109)*sol(:ncol,:, 265) ! rate_const*IVOCff*OH - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 116)*sol(:ncol,:, 133) ! rate_const*MTERP*NO3 - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 117)*sol(:ncol,:, 247) ! rate_const*MTERPO2VBS*HO2 - rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 117)*sol(:ncol,:, 131) ! rate_const*MTERPO2VBS*NO - rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 116)*sol(:ncol,:, 143) ! rate_const*MTERP*O3 - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 116)*sol(:ncol,:, 265) ! rate_const*MTERP*OH - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 214)*sol(:ncol,:, 265) ! rate_const*SVOCbb*OH - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 215)*sol(:ncol,:, 265) ! rate_const*SVOCff*OH - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 223)*sol(:ncol,:, 265) ! rate_const*TOLUENE*OH - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 224)*sol(:ncol,:, 247) ! rate_const*TOLUO2VBS*HO2 - rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 224)*sol(:ncol,:, 131) ! rate_const*TOLUO2VBS*NO - rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 77) ! rate_const*GLYOXAL - rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 226)*sol(:ncol,:, 265) ! rate_const*XYLENES*OH - rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 228)*sol(:ncol,:, 247) ! rate_const*XYLEO2VBS*HO2 - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 228)*sol(:ncol,:, 131) ! rate_const*XYLEO2VBS*NO - rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 94)*sol(:ncol,:, 87) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 22) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 62) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 22) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 62)*sol(:ncol,:, 87) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 94)*sol(:ncol,:, 87) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 93)*sol(:ncol,:, 87) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 62) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 22) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 62)*sol(:ncol,:, 87) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 94)*sol(:ncol,:, 87) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 93)*sol(:ncol,:, 87) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 121) ! rate_const*N2O5 - rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 62) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 62)*sol(:ncol,:, 87) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 258)*sol(:ncol,:, 243) ! rate_const*NOp*e - rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 264)*sol(:ncol,:, 243) ! rate_const*O2p*e - rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 257)*sol(:ncol,:, 243) ! rate_const*N2p*e - rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 257)*sol(:ncol,:, 142) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 607) = rxt_rates(:ncol,:, 607)*sol(:ncol,:, 257)*sol(:ncol,:, 141) ! rate_const*N2p*O - rxt_rates(:ncol,:, 608) = rxt_rates(:ncol,:, 608)*sol(:ncol,:, 257)*sol(:ncol,:, 141) ! rate_const*N2p*O - rxt_rates(:ncol,:, 609) = rxt_rates(:ncol,:, 609)*sol(:ncol,:, 259)*sol(:ncol,:, 141) ! rate_const*Np*O - rxt_rates(:ncol,:, 610) = rxt_rates(:ncol,:, 610)*sol(:ncol,:, 259)*sol(:ncol,:, 142) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 611) = rxt_rates(:ncol,:, 611)*sol(:ncol,:, 259)*sol(:ncol,:, 142) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 612) = rxt_rates(:ncol,:, 612)*sol(:ncol,:, 264)*sol(:ncol,:, 119) ! rate_const*O2p*N - rxt_rates(:ncol,:, 613) = rxt_rates(:ncol,:, 613)*sol(:ncol,:, 264) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 614) = rxt_rates(:ncol,:, 614)*sol(:ncol,:, 264)*sol(:ncol,:, 131) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 615) = rxt_rates(:ncol,:, 615)*sol(:ncol,:, 266)*sol(:ncol,:, 65) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 616) = rxt_rates(:ncol,:, 616)*sol(:ncol,:, 266) ! rate_const*N2*Op - rxt_rates(:ncol,:, 617) = rxt_rates(:ncol,:, 617)*sol(:ncol,:, 266)*sol(:ncol,:, 142) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 618) = rxt_rates(:ncol,:, 618)*sol(:ncol,:, 73) ! rate_const*E90 - rxt_rates(:ncol,:, 619) = rxt_rates(:ncol,:, 619)*sol(:ncol,:, 130) ! rate_const*NH_50 - rxt_rates(:ncol,:, 620) = rxt_rates(:ncol,:, 620)*sol(:ncol,:, 129) ! rate_const*NH_5 - rxt_rates(:ncol,:, 621) = rxt_rates(:ncol,:, 621)*sol(:ncol,:, 213) ! rate_const*ST80_25 + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 243)*sol(:ncol,:, 243) ! rate_const*HO2*HO2 + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 256) ! rate_const*N2D + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 90)*sol(:ncol,:, 265) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 256)*sol(:ncol,:, 125) ! rate_const*N2D*NO + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 256)*sol(:ncol,:, 135) ! rate_const*N2D*O + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 113)*sol(:ncol,:, 125) ! rate_const*N*NO + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 113)*sol(:ncol,:, 126) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 113)*sol(:ncol,:, 126) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 113)*sol(:ncol,:, 126) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 126)*sol(:ncol,:, 135) ! rate_const*NO2*O + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 126)*sol(:ncol,:, 137) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 126)*sol(:ncol,:, 135) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 127)*sol(:ncol,:, 243) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 127)*sol(:ncol,:, 125) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 127)*sol(:ncol,:, 135) ! rate_const*NO3*O + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 127)*sol(:ncol,:, 265) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 113)*sol(:ncol,:, 265) ! rate_const*N*OH + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 125)*sol(:ncol,:, 243) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 125)*sol(:ncol,:, 137) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 125)*sol(:ncol,:, 135) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 261)*sol(:ncol,:, 114) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 261)*sol(:ncol,:, 114) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 126)*sol(:ncol,:, 243) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 126)*sol(:ncol,:, 127) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 126)*sol(:ncol,:, 265) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 89)*sol(:ncol,:, 265) ! rate_const*HNO3*OH + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 90) ! rate_const*M*HO2NO2 + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 256)*sol(:ncol,:, 239) ! rate_const*N2D*e + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 256)*sol(:ncol,:, 136) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 115) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 113)*sol(:ncol,:, 136) ! rate_const*N*O2 + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 56)*sol(:ncol,:, 42) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 56)*sol(:ncol,:, 54) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 56)*sol(:ncol,:, 77) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 56)*sol(:ncol,:, 79) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 56)*sol(:ncol,:, 243) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 56)*sol(:ncol,:, 243) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 56)*sol(:ncol,:, 137) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 59)*sol(:ncol,:, 237) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 59)*sol(:ncol,:, 243) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 59)*sol(:ncol,:, 125) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 59)*sol(:ncol,:, 126) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 60)*sol(:ncol,:, 135) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 60)*sol(:ncol,:, 265) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 59)*sol(:ncol,:, 135) ! rate_const*CLO*O + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 59)*sol(:ncol,:, 265) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 59)*sol(:ncol,:, 265) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 85)*sol(:ncol,:, 135) ! rate_const*HCL*O + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 85)*sol(:ncol,:, 265) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 92)*sol(:ncol,:, 56) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 92)*sol(:ncol,:, 135) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 92)*sol(:ncol,:, 265) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 261)*sol(:ncol,:, 33) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 261)*sol(:ncol,:, 34) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 261)*sol(:ncol,:, 36) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 261)*sol(:ncol,:, 37) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 261)*sol(:ncol,:, 38) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 261)*sol(:ncol,:, 39) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 261)*sol(:ncol,:, 40) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 261)*sol(:ncol,:, 85) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 261)*sol(:ncol,:, 85) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 59)*sol(:ncol,:, 59) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 58) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 17)*sol(:ncol,:, 42) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 17)*sol(:ncol,:, 243) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 17)*sol(:ncol,:, 137) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 19)*sol(:ncol,:, 19) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 19)*sol(:ncol,:, 59) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 19)*sol(:ncol,:, 243) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 19)*sol(:ncol,:, 125) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 19)*sol(:ncol,:, 126) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 20)*sol(:ncol,:, 135) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 19)*sol(:ncol,:, 135) ! rate_const*BRO*O + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 19)*sol(:ncol,:, 265) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 81)*sol(:ncol,:, 135) ! rate_const*HBR*O + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 81)*sol(:ncol,:, 265) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 91)*sol(:ncol,:, 135) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 261)*sol(:ncol,:, 35) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 261)*sol(:ncol,:, 55) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 261)*sol(:ncol,:, 78) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 261)*sol(:ncol,:, 81) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 261)*sol(:ncol,:, 81) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 73)*sol(:ncol,:, 54) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 73)*sol(:ncol,:, 77) ! rate_const*F*H2 + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 73)*sol(:ncol,:, 278) ! rate_const*F*H2O + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 73)*sol(:ncol,:, 89) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 261)*sol(:ncol,:, 64) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 261)*sol(:ncol,:, 65) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 41)*sol(:ncol,:, 56) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 41)*sol(:ncol,:, 265) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 43)*sol(:ncol,:, 56) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 43)*sol(:ncol,:, 265) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 44)*sol(:ncol,:, 265) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 46)*sol(:ncol,:, 56) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 46)*sol(:ncol,:, 265) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 55)*sol(:ncol,:, 56) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 55)*sol(:ncol,:, 265) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 82)*sol(:ncol,:, 265) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 83)*sol(:ncol,:, 265) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 84)*sol(:ncol,:, 265) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 261)*sol(:ncol,:, 41) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 261)*sol(:ncol,:, 43) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 261)*sol(:ncol,:, 82) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 261)*sol(:ncol,:, 83) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 261)*sol(:ncol,:, 84) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 42)*sol(:ncol,:, 243) ! rate_const*CH2O*HO2 + rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 42)*sol(:ncol,:, 127) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 42)*sol(:ncol,:, 135) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 42)*sol(:ncol,:, 265) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 237)*sol(:ncol,:, 237) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 237)*sol(:ncol,:, 237) ! rate_const*CH3O2*CH3O2 + rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 237)*sol(:ncol,:, 243) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 237)*sol(:ncol,:, 125) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 52)*sol(:ncol,:, 265) ! rate_const*CH3OH*OH + rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 53)*sol(:ncol,:, 265) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 54)*sol(:ncol,:, 265) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 86)*sol(:ncol,:, 265) ! rate_const*M*HCN*OH + rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 87)*sol(:ncol,:, 265) ! rate_const*HCOOH*OH + rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 244)*sol(:ncol,:, 243) ! rate_const*HOCH2OO*HO2 + rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 244) ! rate_const*HOCH2OO + rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 244)*sol(:ncol,:, 125) ! rate_const*HOCH2OO*NO + rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 261)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 261)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 261)*sol(:ncol,:, 54) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 261)*sol(:ncol,:, 86) ! rate_const*O1D*HCN + rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 62)*sol(:ncol,:, 265) ! rate_const*CO*OH + rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 24)*sol(:ncol,:, 56) ! rate_const*M*C2H2*CL + rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 24)*sol(:ncol,:, 265) ! rate_const*M*C2H2*OH + rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 25)*sol(:ncol,:, 56) ! rate_const*M*C2H4*CL + rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 25)*sol(:ncol,:, 137) ! rate_const*C2H4*O3 + rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 233)*sol(:ncol,:, 233) ! rate_const*C2H5O2*C2H5O2 + rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 233)*sol(:ncol,:, 237) ! rate_const*C2H5O2*CH3O2 + rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 233)*sol(:ncol,:, 243) ! rate_const*C2H5O2*HO2 + rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 233)*sol(:ncol,:, 125) ! rate_const*C2H5O2*NO + rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 26)*sol(:ncol,:, 265) ! rate_const*C2H5OH*OH + rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 27)*sol(:ncol,:, 265) ! rate_const*C2H5OOH*OH + rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 28)*sol(:ncol,:, 56) ! rate_const*C2H6*CL + rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 28)*sol(:ncol,:, 265) ! rate_const*C2H6*OH + rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 45)*sol(:ncol,:, 127) ! rate_const*CH3CHO*NO3 + rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 45)*sol(:ncol,:, 265) ! rate_const*CH3CHO*OH + rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 47)*sol(:ncol,:, 265) ! rate_const*CH3CN*OH + rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 236)*sol(:ncol,:, 236) ! rate_const*CH3CO3*CH3CO3 + rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 236)*sol(:ncol,:, 237) ! rate_const*CH3CO3*CH3O2 + rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 236)*sol(:ncol,:, 243) ! rate_const*CH3CO3*HO2 + rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 236)*sol(:ncol,:, 125) ! rate_const*CH3CO3*NO + rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 50)*sol(:ncol,:, 265) ! rate_const*CH3COOH*OH + rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 51)*sol(:ncol,:, 265) ! rate_const*CH3COOOH*OH + rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 242)*sol(:ncol,:, 243) ! rate_const*EO2*HO2 + rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 242)*sol(:ncol,:, 125) ! rate_const*EO2*NO + rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 241) ! rate_const*EO + rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 241)*sol(:ncol,:, 136) ! rate_const*EO*O2 + rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 74)*sol(:ncol,:, 265) ! rate_const*GLYALD*OH + rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 75)*sol(:ncol,:, 265) ! rate_const*GLYOXAL*OH + rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 142)*sol(:ncol,:, 265) ! rate_const*PAN*OH + rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 25)*sol(:ncol,:, 265) ! rate_const*M*C2H4*OH + rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 236)*sol(:ncol,:, 126) ! rate_const*M*CH3CO3*NO2 + rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 142) ! rate_const*M*PAN + rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 29)*sol(:ncol,:, 127) ! rate_const*C3H6*NO3 + rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 29)*sol(:ncol,:, 137) ! rate_const*C3H6*O3 + rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 234)*sol(:ncol,:, 237) ! rate_const*C3H7O2*CH3O2 + rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 234)*sol(:ncol,:, 243) ! rate_const*C3H7O2*HO2 + rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 234)*sol(:ncol,:, 125) ! rate_const*C3H7O2*NO + rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 30)*sol(:ncol,:, 265) ! rate_const*C3H7OOH*OH + rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 31)*sol(:ncol,:, 265) ! rate_const*C3H8*OH + rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 49)*sol(:ncol,:, 127) ! rate_const*CH3COCHO*NO3 + rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 49)*sol(:ncol,:, 265) ! rate_const*CH3COCHO*OH + rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 56)*sol(:ncol,:, 31) ! rate_const*CL*C3H8 + rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 95)*sol(:ncol,:, 265) ! rate_const*HYAC*OH + rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 128)*sol(:ncol,:, 265) ! rate_const*NOA*OH + rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 268)*sol(:ncol,:, 243) ! rate_const*PO2*HO2 + rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 268)*sol(:ncol,:, 125) ! rate_const*PO2*NO + rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 153)*sol(:ncol,:, 265) ! rate_const*POOH*OH + rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 269)*sol(:ncol,:, 237) ! rate_const*RO2*CH3O2 + rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 269)*sol(:ncol,:, 243) ! rate_const*RO2*HO2 + rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 269)*sol(:ncol,:, 125) ! rate_const*RO2*NO + rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 154)*sol(:ncol,:, 265) ! rate_const*ROOH*OH + rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 29)*sol(:ncol,:, 265) ! rate_const*M*C3H6*OH + rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 48)*sol(:ncol,:, 265) ! rate_const*CH3COCH3*OH + rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 16)*sol(:ncol,:, 127) ! rate_const*BIGENE*NO3 + rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 16)*sol(:ncol,:, 265) ! rate_const*BIGENE*OH + rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 240)*sol(:ncol,:, 125) ! rate_const*ENEO2*NO + rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 240)*sol(:ncol,:, 125) ! rate_const*ENEO2*NO + rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 93)*sol(:ncol,:, 265) ! rate_const*HONITR*OH + rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 250)*sol(:ncol,:, 236) ! rate_const*MACRO2*CH3CO3 + rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 250)*sol(:ncol,:, 237) ! rate_const*MACRO2*CH3O2 + rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 250)*sol(:ncol,:, 243) ! rate_const*MACRO2*HO2 + rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 250)*sol(:ncol,:, 127) ! rate_const*MACRO2*NO3 + rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 250)*sol(:ncol,:, 125) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 250)*sol(:ncol,:, 125) ! rate_const*MACRO2*NO + rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 106)*sol(:ncol,:, 137) ! rate_const*MACR*O3 + rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 106)*sol(:ncol,:, 265) ! rate_const*MACR*OH + rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 107)*sol(:ncol,:, 265) ! rate_const*MACROOH*OH + rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 252)*sol(:ncol,:, 236) ! rate_const*MCO3*CH3CO3 + rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 252)*sol(:ncol,:, 237) ! rate_const*MCO3*CH3O2 + rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 252)*sol(:ncol,:, 243) ! rate_const*MCO3*HO2 + rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 252)*sol(:ncol,:, 252) ! rate_const*MCO3*MCO3 + rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 252)*sol(:ncol,:, 125) ! rate_const*MCO3*NO + rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 252)*sol(:ncol,:, 127) ! rate_const*MCO3*NO3 + rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 254)*sol(:ncol,:, 243) ! rate_const*MEKO2*HO2 + rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 254)*sol(:ncol,:, 125) ! rate_const*MEKO2*NO + rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 108)*sol(:ncol,:, 265) ! rate_const*MEK*OH + rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 109)*sol(:ncol,:, 265) ! rate_const*MEKOOH*OH + rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 110)*sol(:ncol,:, 265) ! rate_const*M*MPAN*OH + rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 112)*sol(:ncol,:, 137) ! rate_const*MVK*O3 + rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 112)*sol(:ncol,:, 265) ! rate_const*MVK*OH + rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 252)*sol(:ncol,:, 126) ! rate_const*M*MCO3*NO2 + rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 110) ! rate_const*M*MPAN + rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 1)*sol(:ncol,:, 265) ! rate_const*ALKNIT*OH + rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 228)*sol(:ncol,:, 243) ! rate_const*ALKO2*HO2 + rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 228)*sol(:ncol,:, 125) ! rate_const*ALKO2*NO + rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 228)*sol(:ncol,:, 125) ! rate_const*ALKO2*NO + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 2)*sol(:ncol,:, 265) ! rate_const*ALKOOH*OH + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 15)*sol(:ncol,:, 265) ! rate_const*BIGALK*OH + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 94)*sol(:ncol,:, 265) ! rate_const*HPALD*OH + rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 96)*sol(:ncol,:, 265) ! rate_const*HYDRALD*OH + rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 97)*sol(:ncol,:, 265) ! rate_const*IEPOX*OH + rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 245)*sol(:ncol,:, 236) ! rate_const*ISOPAO2*CH3CO3 + rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 245)*sol(:ncol,:, 237) ! rate_const*ISOPAO2*CH3O2 + rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 245)*sol(:ncol,:, 243) ! rate_const*ISOPAO2*HO2 + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 245)*sol(:ncol,:, 125) ! rate_const*ISOPAO2*NO + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 245)*sol(:ncol,:, 127) ! rate_const*ISOPAO2*NO3 + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 246)*sol(:ncol,:, 236) ! rate_const*ISOPBO2*CH3CO3 + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 246)*sol(:ncol,:, 237) ! rate_const*ISOPBO2*CH3O2 + rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 246)*sol(:ncol,:, 243) ! rate_const*ISOPBO2*HO2 + rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 246) ! rate_const*ISOPBO2 + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 246)*sol(:ncol,:, 125) ! rate_const*ISOPBO2*NO + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 246)*sol(:ncol,:, 127) ! rate_const*ISOPBO2*NO3 + rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 99)*sol(:ncol,:, 265) ! rate_const*ISOPNITA*OH + rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 100)*sol(:ncol,:, 265) ! rate_const*ISOPNITB*OH + rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 98)*sol(:ncol,:, 127) ! rate_const*ISOP*NO3 + rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 101)*sol(:ncol,:, 236) ! rate_const*ISOPNO3*CH3CO3 + rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 101)*sol(:ncol,:, 237) ! rate_const*ISOPNO3*CH3O2 + rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 101)*sol(:ncol,:, 243) ! rate_const*ISOPNO3*HO2 + rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 101)*sol(:ncol,:, 125) ! rate_const*ISOPNO3*NO + rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 101)*sol(:ncol,:, 127) ! rate_const*ISOPNO3*NO3 + rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 102)*sol(:ncol,:, 265) ! rate_const*ISOPNOOH*OH + rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 98)*sol(:ncol,:, 137) ! rate_const*ISOP*O3 + rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 98)*sol(:ncol,:, 265) ! rate_const*ISOP*OH + rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 103)*sol(:ncol,:, 265) ! rate_const*ISOPOOH*OH + rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 116)*sol(:ncol,:, 265) ! rate_const*NC4CH2OH*OH + rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 117)*sol(:ncol,:, 265) ! rate_const*NC4CHO*OH + rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 274)*sol(:ncol,:, 236) ! rate_const*XO2*CH3CO3 + rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 274)*sol(:ncol,:, 237) ! rate_const*XO2*CH3O2 + rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 274)*sol(:ncol,:, 243) ! rate_const*XO2*HO2 + rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 274)*sol(:ncol,:, 125) ! rate_const*XO2*NO + rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 274)*sol(:ncol,:, 127) ! rate_const*XO2*NO3 + rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 220)*sol(:ncol,:, 265) ! rate_const*XOOH*OH + rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 227)*sol(:ncol,:, 243) ! rate_const*ACBZO2*HO2 + rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 227)*sol(:ncol,:, 125) ! rate_const*ACBZO2*NO + rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 7)*sol(:ncol,:, 265) ! rate_const*BENZENE*OH + rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 230)*sol(:ncol,:, 243) ! rate_const*BENZO2*HO2 + rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 230)*sol(:ncol,:, 125) ! rate_const*BENZO2*NO + rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 8)*sol(:ncol,:, 265) ! rate_const*BENZOOH*OH + rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 22)*sol(:ncol,:, 265) ! rate_const*BZALD*OH + rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 232)*sol(:ncol,:, 243) ! rate_const*BZOO*HO2 + rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 23)*sol(:ncol,:, 265) ! rate_const*BZOOH*OH + rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 232)*sol(:ncol,:, 125) ! rate_const*BZOO*NO + rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 235)*sol(:ncol,:, 243) ! rate_const*C6H5O2*HO2 + rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 235)*sol(:ncol,:, 125) ! rate_const*C6H5O2*NO + rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 32)*sol(:ncol,:, 265) ! rate_const*C6H5OOH*OH + rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 66)*sol(:ncol,:, 265) ! rate_const*CRESOL*OH + rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 238)*sol(:ncol,:, 243) ! rate_const*DICARBO2*HO2 + rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 238)*sol(:ncol,:, 125) ! rate_const*DICARBO2*NO + rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 238)*sol(:ncol,:, 126) ! rate_const*M*DICARBO2*NO2 + rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 251)*sol(:ncol,:, 243) ! rate_const*MALO2*HO2 + rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 251)*sol(:ncol,:, 125) ! rate_const*MALO2*NO + rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 251)*sol(:ncol,:, 126) ! rate_const*M*MALO2*NO2 + rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 253)*sol(:ncol,:, 243) ! rate_const*MDIALO2*HO2 + rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 253)*sol(:ncol,:, 125) ! rate_const*MDIALO2*NO + rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 253)*sol(:ncol,:, 126) ! rate_const*M*MDIALO2*NO2 + rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 267)*sol(:ncol,:, 243) ! rate_const*PHENO2*HO2 + rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 267)*sol(:ncol,:, 125) ! rate_const*PHENO2*NO + rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 145)*sol(:ncol,:, 265) ! rate_const*PHENOL*OH + rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 144)*sol(:ncol,:, 126) ! rate_const*PHENO*NO2 + rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 144)*sol(:ncol,:, 137) ! rate_const*PHENO*O3 + rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 146)*sol(:ncol,:, 265) ! rate_const*PHENOOH*OH + rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 227)*sol(:ncol,:, 126) ! rate_const*M*ACBZO2*NO2 + rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 272)*sol(:ncol,:, 243) ! rate_const*TOLO2*HO2 + rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 272)*sol(:ncol,:, 125) ! rate_const*TOLO2*NO + rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 218)*sol(:ncol,:, 265) ! rate_const*TOLOOH*OH + rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 219)*sol(:ncol,:, 265) ! rate_const*TOLUENE*OH + rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 143) ! rate_const*M*PBZNIT + rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 221)*sol(:ncol,:, 265) ! rate_const*XYLENES*OH + rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 275)*sol(:ncol,:, 243) ! rate_const*XYLENO2*HO2 + rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 275)*sol(:ncol,:, 125) ! rate_const*XYLENO2*NO + rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 222)*sol(:ncol,:, 265) ! rate_const*XYLENOOH*OH + rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 277)*sol(:ncol,:, 243) ! rate_const*XYLOLO2*HO2 + rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 277)*sol(:ncol,:, 125) ! rate_const*XYLOLO2*NO + rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 223)*sol(:ncol,:, 265) ! rate_const*XYLOL*OH + rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 224)*sol(:ncol,:, 265) ! rate_const*XYLOLOOH*OH + rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 6)*sol(:ncol,:, 127) ! rate_const*BCARY*NO3 + rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 6)*sol(:ncol,:, 137) ! rate_const*BCARY*O3 + rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 6)*sol(:ncol,:, 265) ! rate_const*BCARY*OH + rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 111)*sol(:ncol,:, 127) ! rate_const*MTERP*NO3 + rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 111)*sol(:ncol,:, 137) ! rate_const*MTERP*O3 + rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 111)*sol(:ncol,:, 265) ! rate_const*MTERP*OH + rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 260)*sol(:ncol,:, 237) ! rate_const*NTERPO2*CH3O2 + rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 260)*sol(:ncol,:, 243) ! rate_const*NTERPO2*HO2 + rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 260)*sol(:ncol,:, 125) ! rate_const*NTERPO2*NO + rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 260)*sol(:ncol,:, 127) ! rate_const*NTERPO2*NO3 + rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 129)*sol(:ncol,:, 265) ! rate_const*NTERPOOH*OH + rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 270)*sol(:ncol,:, 237) ! rate_const*TERP2O2*CH3O2 + rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 270)*sol(:ncol,:, 243) ! rate_const*TERP2O2*HO2 + rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 270)*sol(:ncol,:, 125) ! rate_const*TERP2O2*NO + rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 213)*sol(:ncol,:, 265) ! rate_const*TERP2OOH*OH + rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 214)*sol(:ncol,:, 265) ! rate_const*TERPNIT*OH + rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 271)*sol(:ncol,:, 237) ! rate_const*TERPO2*CH3O2 + rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 271)*sol(:ncol,:, 243) ! rate_const*TERPO2*HO2 + rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 271)*sol(:ncol,:, 125) ! rate_const*TERPO2*NO + rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 215)*sol(:ncol,:, 265) ! rate_const*TERPOOH*OH + rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 216)*sol(:ncol,:, 127) ! rate_const*TERPROD1*NO3 + rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 216)*sol(:ncol,:, 265) ! rate_const*TERPROD1*OH + rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 217)*sol(:ncol,:, 265) ! rate_const*TERPROD2*OH + rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 67)*sol(:ncol,:, 127) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 67)*sol(:ncol,:, 265) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 140)*sol(:ncol,:, 135) ! rate_const*OCS*O + rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 140)*sol(:ncol,:, 265) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 155)*sol(:ncol,:, 136) ! rate_const*S*O2 + rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 158)*sol(:ncol,:, 265) ! rate_const*M*SO2*OH + rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 155)*sol(:ncol,:, 137) ! rate_const*S*O3 + rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 157)*sol(:ncol,:, 19) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 157)*sol(:ncol,:, 59) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 155)*sol(:ncol,:, 265) ! rate_const*S*OH + rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 157)*sol(:ncol,:, 126) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 157)*sol(:ncol,:, 136) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 157)*sol(:ncol,:, 137) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 157)*sol(:ncol,:, 139) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 157)*sol(:ncol,:, 265) ! rate_const*SO*OH + rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 67)*sol(:ncol,:, 265) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 159)*sol(:ncol,:, 278) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 121)*sol(:ncol,:, 265) ! rate_const*NH3*OH + rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 243) ! rate_const*HO2 + rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 93) ! rate_const*HONITR + rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 99) ! rate_const*ISOPNITA + rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 100) ! rate_const*ISOPNITB + rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 116) ! rate_const*NC4CH2OH + rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 117) ! rate_const*NC4CHO + rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 122) ! rate_const*NH4 + rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 126) ! rate_const*NO2 + rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 127) ! rate_const*NO3 + rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 129) ! rate_const*NTERPOOH + rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 141) ! rate_const*ONITR + rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 214) ! rate_const*TERPNIT + rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 6)*sol(:ncol,:, 127) ! rate_const*BCARY*NO3 + rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 229)*sol(:ncol,:, 243) ! rate_const*BCARYO2VBS*HO2 + rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 229)*sol(:ncol,:, 125) ! rate_const*BCARYO2VBS*NO + rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 6)*sol(:ncol,:, 137) ! rate_const*BCARY*O3 + rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 6)*sol(:ncol,:, 265) ! rate_const*BCARY*OH + rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 7)*sol(:ncol,:, 265) ! rate_const*BENZENE*OH + rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 231)*sol(:ncol,:, 243) ! rate_const*BENZO2VBS*HO2 + rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 231)*sol(:ncol,:, 125) ! rate_const*BENZO2VBS*NO + rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 98)*sol(:ncol,:, 127) ! rate_const*ISOP*NO3 + rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 247)*sol(:ncol,:, 243) ! rate_const*ISOPO2VBS*HO2 + rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 247)*sol(:ncol,:, 125) ! rate_const*ISOPO2VBS*NO + rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 98)*sol(:ncol,:, 137) ! rate_const*ISOP*O3 + rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 98)*sol(:ncol,:, 265) ! rate_const*ISOP*OH + rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 248)*sol(:ncol,:, 243) ! rate_const*IVOCbbO2VBS*HO2 + rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 248)*sol(:ncol,:, 125) ! rate_const*IVOCbbO2VBS*NO + rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 104)*sol(:ncol,:, 265) ! rate_const*IVOCbb*OH + rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 249)*sol(:ncol,:, 243) ! rate_const*IVOCffO2VBS*HO2 + rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 249)*sol(:ncol,:, 125) ! rate_const*IVOCffO2VBS*NO + rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 105)*sol(:ncol,:, 265) ! rate_const*IVOCff*OH + rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 111)*sol(:ncol,:, 127) ! rate_const*MTERP*NO3 + rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 255)*sol(:ncol,:, 243) ! rate_const*MTERPO2VBS*HO2 + rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 255)*sol(:ncol,:, 125) ! rate_const*MTERPO2VBS*NO + rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 111)*sol(:ncol,:, 137) ! rate_const*MTERP*O3 + rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 111)*sol(:ncol,:, 265) ! rate_const*MTERP*OH + rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 210)*sol(:ncol,:, 265) ! rate_const*SVOCbb*OH + rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 211)*sol(:ncol,:, 265) ! rate_const*SVOCff*OH + rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 219)*sol(:ncol,:, 265) ! rate_const*TOLUENE*OH + rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 273)*sol(:ncol,:, 243) ! rate_const*TOLUO2VBS*HO2 + rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 273)*sol(:ncol,:, 125) ! rate_const*TOLUO2VBS*NO + rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 75) ! rate_const*GLYOXAL + rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 221)*sol(:ncol,:, 265) ! rate_const*XYLENES*OH + rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 276)*sol(:ncol,:, 243) ! rate_const*XYLEO2VBS*HO2 + rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 276)*sol(:ncol,:, 125) ! rate_const*XYLEO2VBS*NO + rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 91)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 20) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 92)*sol(:ncol,:, 85) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 91)*sol(:ncol,:, 85) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 115) ! rate_const*N2O5 + rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 60) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 60)*sol(:ncol,:, 85) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 258)*sol(:ncol,:, 239) ! rate_const*NOp*e + rxt_rates(:ncol,:, 607) = rxt_rates(:ncol,:, 607)*sol(:ncol,:, 264)*sol(:ncol,:, 239) ! rate_const*O2p*e + rxt_rates(:ncol,:, 608) = rxt_rates(:ncol,:, 608)*sol(:ncol,:, 257)*sol(:ncol,:, 239) ! rate_const*N2p*e + rxt_rates(:ncol,:, 609) = rxt_rates(:ncol,:, 609)*sol(:ncol,:, 257)*sol(:ncol,:, 136) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 610) = rxt_rates(:ncol,:, 610)*sol(:ncol,:, 257)*sol(:ncol,:, 135) ! rate_const*N2p*O + rxt_rates(:ncol,:, 611) = rxt_rates(:ncol,:, 611)*sol(:ncol,:, 257)*sol(:ncol,:, 135) ! rate_const*N2p*O + rxt_rates(:ncol,:, 612) = rxt_rates(:ncol,:, 612)*sol(:ncol,:, 259)*sol(:ncol,:, 135) ! rate_const*Np*O + rxt_rates(:ncol,:, 613) = rxt_rates(:ncol,:, 613)*sol(:ncol,:, 259)*sol(:ncol,:, 136) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 614) = rxt_rates(:ncol,:, 614)*sol(:ncol,:, 259)*sol(:ncol,:, 136) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 615) = rxt_rates(:ncol,:, 615)*sol(:ncol,:, 264)*sol(:ncol,:, 113) ! rate_const*O2p*N + rxt_rates(:ncol,:, 616) = rxt_rates(:ncol,:, 616)*sol(:ncol,:, 264) ! rate_const*N2*O2p + rxt_rates(:ncol,:, 617) = rxt_rates(:ncol,:, 617)*sol(:ncol,:, 264)*sol(:ncol,:, 125) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 618) = rxt_rates(:ncol,:, 618)*sol(:ncol,:, 266)*sol(:ncol,:, 63) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 619) = rxt_rates(:ncol,:, 619)*sol(:ncol,:, 266) ! rate_const*N2*Op + rxt_rates(:ncol,:, 620) = rxt_rates(:ncol,:, 620)*sol(:ncol,:, 266)*sol(:ncol,:, 136) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 621) = rxt_rates(:ncol,:, 621)*sol(:ncol,:, 71) ! rate_const*E90 + rxt_rates(:ncol,:, 622) = rxt_rates(:ncol,:, 622)*sol(:ncol,:, 124) ! rate_const*NH_50 + rxt_rates(:ncol,:, 623) = rxt_rates(:ncol,:, 623)*sol(:ncol,:, 123) ! rate_const*NH_5 + rxt_rates(:ncol,:, 624) = rxt_rates(:ncol,:, 624)*sol(:ncol,:, 209) ! rate_const*ST80_25 end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_setrxt.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_setrxt.F90 index eefe84491d..bfe396fed1 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_setrxt.F90 @@ -51,114 +51,115 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,194) = 1.6e-12_r8 rate(:,200) = 1.8e-12_r8 rate(:,204) = 1.8e-12_r8 - rate(:,208) = 7e-13_r8 - rate(:,209) = 5e-12_r8 + rate(:,207) = 1.06e-05_r8 + rate(:,209) = 7e-11_r8 + rate(:,210) = 7e-13_r8 rate(:,218) = 3.5e-12_r8 rate(:,220) = 1.3e-11_r8 rate(:,221) = 2.2e-11_r8 rate(:,222) = 5e-11_r8 - rate(:,257) = 1.7e-13_r8 - rate(:,259) = 2.607e-10_r8 - rate(:,260) = 9.75e-11_r8 - rate(:,261) = 2.07e-10_r8 - rate(:,262) = 2.088e-10_r8 - rate(:,263) = 1.17e-10_r8 - rate(:,264) = 4.644e-11_r8 - rate(:,265) = 1.204e-10_r8 - rate(:,266) = 9.9e-11_r8 - rate(:,267) = 3.3e-12_r8 - rate(:,286) = 4.5e-11_r8 - rate(:,287) = 4.62e-10_r8 - rate(:,288) = 1.2e-10_r8 - rate(:,289) = 9e-11_r8 - rate(:,290) = 3e-11_r8 - rate(:,295) = 2.14e-11_r8 - rate(:,296) = 1.9e-10_r8 - rate(:,309) = 2.57e-10_r8 - rate(:,310) = 1.8e-10_r8 - rate(:,311) = 1.794e-10_r8 - rate(:,312) = 1.3e-10_r8 - rate(:,313) = 7.65e-11_r8 - rate(:,326) = 4e-13_r8 - rate(:,330) = 1.31e-10_r8 - rate(:,331) = 3.5e-11_r8 - rate(:,332) = 9e-12_r8 - rate(:,339) = 6.8e-14_r8 - rate(:,340) = 2e-13_r8 - rate(:,355) = 1e-12_r8 - rate(:,359) = 1e-14_r8 - rate(:,360) = 1e-11_r8 - rate(:,361) = 1.15e-11_r8 - rate(:,362) = 4e-14_r8 - rate(:,375) = 1.45e-10_r8 - rate(:,376) = 3e-12_r8 - rate(:,377) = 6.7e-13_r8 - rate(:,387) = 3.5e-13_r8 - rate(:,388) = 5.4e-11_r8 - rate(:,391) = 2e-12_r8 - rate(:,392) = 1.4e-11_r8 - rate(:,395) = 2.4e-12_r8 - rate(:,406) = 5e-12_r8 - rate(:,416) = 1.6e-12_r8 - rate(:,418) = 6.7e-12_r8 - rate(:,421) = 3.5e-12_r8 - rate(:,424) = 1.3e-11_r8 - rate(:,425) = 1.4e-11_r8 - rate(:,429) = 2.4e-12_r8 - rate(:,430) = 1.4e-11_r8 - rate(:,435) = 2.4e-12_r8 - rate(:,436) = 4e-11_r8 - rate(:,437) = 4e-11_r8 - rate(:,439) = 1.4e-11_r8 - rate(:,443) = 2.4e-12_r8 - rate(:,444) = 4e-11_r8 - rate(:,448) = 7e-11_r8 - rate(:,449) = 1e-10_r8 - rate(:,454) = 2.4e-12_r8 - rate(:,469) = 4.7e-11_r8 - rate(:,482) = 2.1e-12_r8 - rate(:,483) = 2.8e-13_r8 - rate(:,491) = 1.7e-11_r8 - rate(:,497) = 8.4e-11_r8 - rate(:,499) = 1.9e-11_r8 - rate(:,500) = 1.2e-14_r8 - rate(:,501) = 2e-10_r8 - rate(:,508) = 2.4e-12_r8 - rate(:,509) = 2e-11_r8 - rate(:,513) = 2.3e-11_r8 - rate(:,514) = 2e-11_r8 - rate(:,518) = 3.3e-11_r8 - rate(:,519) = 1e-12_r8 - rate(:,520) = 5.7e-11_r8 - rate(:,521) = 3.4e-11_r8 - rate(:,526) = 2.3e-12_r8 - rate(:,528) = 1.2e-11_r8 - rate(:,529) = 5.7e-11_r8 - rate(:,530) = 2.8e-11_r8 - rate(:,531) = 6.6e-11_r8 - rate(:,532) = 1.4e-11_r8 - rate(:,535) = 1.9e-12_r8 - rate(:,547) = 6.34e-08_r8 - rate(:,553) = 1.9e-11_r8 - rate(:,556) = 1.2e-14_r8 - rate(:,557) = 2e-10_r8 - rate(:,568) = 1.34e-11_r8 + rate(:,260) = 1.7e-13_r8 + rate(:,262) = 2.607e-10_r8 + rate(:,263) = 9.75e-11_r8 + rate(:,264) = 2.07e-10_r8 + rate(:,265) = 2.088e-10_r8 + rate(:,266) = 1.17e-10_r8 + rate(:,267) = 4.644e-11_r8 + rate(:,268) = 1.204e-10_r8 + rate(:,269) = 9.9e-11_r8 + rate(:,270) = 3.3e-12_r8 + rate(:,289) = 4.5e-11_r8 + rate(:,290) = 4.62e-10_r8 + rate(:,291) = 1.2e-10_r8 + rate(:,292) = 9e-11_r8 + rate(:,293) = 3e-11_r8 + rate(:,298) = 2.14e-11_r8 + rate(:,299) = 1.9e-10_r8 + rate(:,312) = 2.57e-10_r8 + rate(:,313) = 1.8e-10_r8 + rate(:,314) = 1.794e-10_r8 + rate(:,315) = 1.3e-10_r8 + rate(:,316) = 7.65e-11_r8 + rate(:,329) = 4e-13_r8 + rate(:,333) = 1.31e-10_r8 + rate(:,334) = 3.5e-11_r8 + rate(:,335) = 9e-12_r8 + rate(:,342) = 6.8e-14_r8 + rate(:,343) = 2e-13_r8 + rate(:,358) = 1e-12_r8 + rate(:,362) = 1e-14_r8 + rate(:,363) = 1e-11_r8 + rate(:,364) = 1.15e-11_r8 + rate(:,365) = 4e-14_r8 + rate(:,378) = 1.45e-10_r8 + rate(:,379) = 3e-12_r8 + rate(:,380) = 6.7e-13_r8 + rate(:,390) = 3.5e-13_r8 + rate(:,391) = 5.4e-11_r8 + rate(:,394) = 2e-12_r8 + rate(:,395) = 1.4e-11_r8 + rate(:,398) = 2.4e-12_r8 + rate(:,409) = 5e-12_r8 + rate(:,419) = 2.2e-12_r8 + rate(:,421) = 6.7e-12_r8 + rate(:,424) = 3.5e-12_r8 + rate(:,427) = 1.3e-11_r8 + rate(:,428) = 1.4e-11_r8 + rate(:,432) = 2.4e-12_r8 + rate(:,433) = 1.4e-11_r8 + rate(:,438) = 2.4e-12_r8 + rate(:,439) = 4e-11_r8 + rate(:,440) = 4e-11_r8 + rate(:,442) = 1.4e-11_r8 + rate(:,446) = 2.4e-12_r8 + rate(:,447) = 4e-11_r8 + rate(:,451) = 7e-11_r8 + rate(:,452) = 1e-10_r8 + rate(:,457) = 2.4e-12_r8 + rate(:,472) = 4.7e-11_r8 + rate(:,485) = 2.1e-12_r8 + rate(:,486) = 2.8e-13_r8 + rate(:,494) = 1.7e-11_r8 + rate(:,500) = 8.4e-11_r8 + rate(:,502) = 1.9e-11_r8 + rate(:,503) = 1.2e-14_r8 + rate(:,504) = 2e-10_r8 + rate(:,511) = 2.4e-12_r8 + rate(:,512) = 2e-11_r8 + rate(:,516) = 2.3e-11_r8 + rate(:,517) = 2e-11_r8 + rate(:,521) = 3.3e-11_r8 + rate(:,522) = 1e-12_r8 + rate(:,523) = 5.7e-11_r8 + rate(:,524) = 3.4e-11_r8 + rate(:,529) = 2.3e-12_r8 + rate(:,531) = 1.2e-11_r8 + rate(:,532) = 5.7e-11_r8 + rate(:,533) = 2.8e-11_r8 + rate(:,534) = 6.6e-11_r8 + rate(:,535) = 1.4e-11_r8 + rate(:,538) = 1.9e-12_r8 + rate(:,550) = 6.34e-08_r8 + rate(:,556) = 1.9e-11_r8 + rate(:,559) = 1.2e-14_r8 + rate(:,560) = 2e-10_r8 rate(:,571) = 1.34e-11_r8 - rate(:,577) = 1.34e-11_r8 - rate(:,578) = 1.34e-11_r8 - rate(:,583) = 1.7e-11_r8 - rate(:,606) = 6e-11_r8 - rate(:,609) = 1e-12_r8 - rate(:,610) = 4e-10_r8 - rate(:,611) = 2e-10_r8 - rate(:,612) = 1e-10_r8 - rate(:,613) = 5e-16_r8 - rate(:,614) = 4.4e-10_r8 - rate(:,615) = 9e-10_r8 - rate(:,618) = 1.29e-07_r8 - rate(:,619) = 2.31e-07_r8 - rate(:,620) = 2.31e-06_r8 - rate(:,621) = 4.63e-07_r8 + rate(:,574) = 1.34e-11_r8 + rate(:,580) = 1.34e-11_r8 + rate(:,581) = 1.34e-11_r8 + rate(:,586) = 1.7e-11_r8 + rate(:,609) = 6e-11_r8 + rate(:,612) = 1e-12_r8 + rate(:,613) = 4e-10_r8 + rate(:,614) = 2e-10_r8 + rate(:,615) = 1e-10_r8 + rate(:,616) = 5e-16_r8 + rate(:,617) = 4.4e-10_r8 + rate(:,618) = 9e-10_r8 + rate(:,621) = 1.29e-07_r8 + rate(:,622) = 2.31e-07_r8 + rate(:,623) = 2.31e-06_r8 + rate(:,624) = 4.63e-07_r8 do n = 1,pver offset = (n-1)*ncol @@ -177,375 +178,374 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,190) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) exp_fac(:) = exp( -2000._r8 * itemp(:) ) rate(:,191) = 1.4e-12_r8 * exp_fac(:) - rate(:,445) = 1.05e-14_r8 * exp_fac(:) - rate(:,564) = 1.05e-14_r8 * exp_fac(:) + rate(:,448) = 1.05e-14_r8 * exp_fac(:) + rate(:,567) = 1.05e-14_r8 * exp_fac(:) exp_fac(:) = exp( 200._r8 * itemp(:) ) rate(:,196) = 3e-11_r8 * exp_fac(:) - rate(:,284) = 5.5e-12_r8 * exp_fac(:) - rate(:,323) = 3.8e-12_r8 * exp_fac(:) - rate(:,344) = 3.8e-12_r8 * exp_fac(:) - rate(:,371) = 3.8e-12_r8 * exp_fac(:) - rate(:,380) = 3.8e-12_r8 * exp_fac(:) - rate(:,384) = 3.8e-12_r8 * exp_fac(:) - rate(:,400) = 2.3e-11_r8 * exp_fac(:) - rate(:,410) = 3.8e-12_r8 * exp_fac(:) - rate(:,420) = 3.8e-12_r8 * exp_fac(:) - rate(:,447) = 1.52e-11_r8 * exp_fac(:) - rate(:,455) = 1.52e-12_r8 * exp_fac(:) - rate(:,461) = 3.8e-12_r8 * exp_fac(:) + rate(:,287) = 5.5e-12_r8 * exp_fac(:) + rate(:,326) = 3.8e-12_r8 * exp_fac(:) + rate(:,347) = 3.8e-12_r8 * exp_fac(:) + rate(:,374) = 3.8e-12_r8 * exp_fac(:) + rate(:,383) = 3.8e-12_r8 * exp_fac(:) + rate(:,387) = 3.8e-12_r8 * exp_fac(:) + rate(:,403) = 2.3e-11_r8 * exp_fac(:) + rate(:,413) = 3.8e-12_r8 * exp_fac(:) + rate(:,423) = 3.8e-12_r8 * exp_fac(:) + rate(:,450) = 1.52e-11_r8 * exp_fac(:) + rate(:,458) = 1.52e-12_r8 * exp_fac(:) rate(:,464) = 3.8e-12_r8 * exp_fac(:) - rate(:,468) = 3.8e-12_r8 * exp_fac(:) - rate(:,484) = 3.8e-12_r8 * exp_fac(:) - rate(:,488) = 3.8e-12_r8 * exp_fac(:) - rate(:,494) = 3.8e-12_r8 * exp_fac(:) - rate(:,498) = 3.8e-12_r8 * exp_fac(:) + rate(:,467) = 3.8e-12_r8 * exp_fac(:) + rate(:,471) = 3.8e-12_r8 * exp_fac(:) + rate(:,487) = 3.8e-12_r8 * exp_fac(:) + rate(:,491) = 3.8e-12_r8 * exp_fac(:) + rate(:,497) = 3.8e-12_r8 * exp_fac(:) + rate(:,501) = 3.8e-12_r8 * exp_fac(:) rate(:,197) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) rate(:,198) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) rate(:,199) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) exp_fac(:) = exp( 250._r8 * itemp(:) ) rate(:,201) = 4.8e-11_r8 * exp_fac(:) - rate(:,282) = 1.7e-11_r8 * exp_fac(:) + rate(:,285) = 1.7e-11_r8 * exp_fac(:) exp_fac(:) = exp( 180._r8 * itemp(:) ) rate(:,202) = 1.8e-11_r8 * exp_fac(:) - rate(:,357) = 4.2e-12_r8 * exp_fac(:) - rate(:,370) = 4.2e-12_r8 * exp_fac(:) - rate(:,379) = 4.2e-12_r8 * exp_fac(:) - rate(:,408) = 4.2e-12_r8 * exp_fac(:) - rate(:,428) = 4.4e-12_r8 * exp_fac(:) - rate(:,434) = 4.4e-12_r8 * exp_fac(:) - rate(:,507) = 4.2e-12_r8 * exp_fac(:) - rate(:,512) = 4.2e-12_r8 * exp_fac(:) - rate(:,517) = 4.2e-12_r8 * exp_fac(:) + rate(:,360) = 4.2e-12_r8 * exp_fac(:) + rate(:,382) = 4.2e-12_r8 * exp_fac(:) + rate(:,411) = 4.2e-12_r8 * exp_fac(:) + rate(:,431) = 4.4e-12_r8 * exp_fac(:) + rate(:,437) = 4.4e-12_r8 * exp_fac(:) + rate(:,510) = 4.2e-12_r8 * exp_fac(:) + rate(:,515) = 4.2e-12_r8 * exp_fac(:) + rate(:,520) = 4.2e-12_r8 * exp_fac(:) rate(:,203) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,207) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) - rate(:,210) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:,208) = 4.5e-13_r8 * exp( 610._r8 * itemp(:) ) + rate(:,211) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,211) = 2.9e-12_r8 * exp_fac(:) - rate(:,212) = 1.45e-12_r8 * exp_fac(:) + rate(:,212) = 2.9e-12_r8 * exp_fac(:) rate(:,213) = 1.45e-12_r8 * exp_fac(:) - rate(:,214) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:,214) = 1.45e-12_r8 * exp_fac(:) rate(:,215) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) rate(:,216) = 1.2e-13_r8 * exp_fac(:) - rate(:,242) = 3e-11_r8 * exp_fac(:) + rate(:,245) = 3e-11_r8 * exp_fac(:) exp_fac(:) = exp( 125._r8 * itemp(:) ) rate(:,219) = 1.7e-11_r8 * exp_fac(:) - rate(:,317) = 5.5e-12_r8 * exp_fac(:) + rate(:,320) = 5.5e-12_r8 * exp_fac(:) exp_fac(:) = exp( 260._r8 * itemp(:) ) rate(:,223) = 3.44e-12_r8 * exp_fac(:) - rate(:,275) = 2.3e-12_r8 * exp_fac(:) - rate(:,278) = 8.8e-12_r8 * exp_fac(:) + rate(:,278) = 2.3e-12_r8 * exp_fac(:) + rate(:,281) = 8.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) rate(:,224) = 3e-12_r8 * exp_fac(:) - rate(:,283) = 5.8e-12_r8 * exp_fac(:) + rate(:,286) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) rate(:,226) = 7.26e-11_r8 * exp_fac(:) rate(:,227) = 4.64e-11_r8 * exp_fac(:) - rate(:,234) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,235) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,236) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,237) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,237) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,238) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,239) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,240) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,238) = 1.4e-11_r8 * exp_fac(:) - rate(:,252) = 7.4e-12_r8 * exp_fac(:) - rate(:,353) = 8.1e-12_r8 * exp_fac(:) - rate(:,239) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,240) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,241) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,243) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,244) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,241) = 1.4e-11_r8 * exp_fac(:) + rate(:,255) = 7.4e-12_r8 * exp_fac(:) + rate(:,356) = 8.1e-12_r8 * exp_fac(:) + rate(:,242) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,243) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,244) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,246) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,247) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,245) = 2.6e-12_r8 * exp_fac(:) - rate(:,246) = 6.4e-12_r8 * exp_fac(:) - rate(:,276) = 4.1e-13_r8 * exp_fac(:) - rate(:,457) = 7.5e-12_r8 * exp_fac(:) - rate(:,471) = 7.5e-12_r8 * exp_fac(:) + rate(:,248) = 2.6e-12_r8 * exp_fac(:) + rate(:,249) = 6.4e-12_r8 * exp_fac(:) + rate(:,279) = 4.1e-13_r8 * exp_fac(:) + rate(:,460) = 7.5e-12_r8 * exp_fac(:) rate(:,474) = 7.5e-12_r8 * exp_fac(:) rate(:,477) = 7.5e-12_r8 * exp_fac(:) - rate(:,247) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,480) = 7.5e-12_r8 * exp_fac(:) + rate(:,250) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,249) = 3.6e-12_r8 * exp_fac(:) - rate(:,298) = 2e-12_r8 * exp_fac(:) - rate(:,250) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,251) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,252) = 3.6e-12_r8 * exp_fac(:) + rate(:,301) = 2e-12_r8 * exp_fac(:) + rate(:,253) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,254) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,253) = 6e-13_r8 * exp_fac(:) - rate(:,273) = 1.5e-12_r8 * exp_fac(:) - rate(:,281) = 1.9e-11_r8 * exp_fac(:) - rate(:,254) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,255) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,256) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,256) = 6e-13_r8 * exp_fac(:) + rate(:,276) = 1.5e-12_r8 * exp_fac(:) + rate(:,284) = 1.9e-11_r8 * exp_fac(:) + rate(:,257) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,258) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,259) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,258) = 3e-12_r8 * exp_fac(:) - rate(:,292) = 1.4e-10_r8 * exp_fac(:) + rate(:,261) = 3e-12_r8 * exp_fac(:) + rate(:,295) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,270) = 1.7e-11_r8 * exp_fac(:) - rate(:,297) = 6.3e-12_r8 * exp_fac(:) - rate(:,271) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,272) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,274) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - rate(:,277) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,280) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,285) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,291) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,273) = 1.7e-11_r8 * exp_fac(:) + rate(:,300) = 6.3e-12_r8 * exp_fac(:) + rate(:,274) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,275) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,277) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,280) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,283) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,288) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,294) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,293) = 1.4e-11_r8 * exp_fac(:) - rate(:,295) = 2.14e-11_r8 * exp_fac(:) - rate(:,296) = 1.9e-10_r8 * exp_fac(:) - rate(:,309) = 2.57e-10_r8 * exp_fac(:) - rate(:,310) = 1.8e-10_r8 * exp_fac(:) - rate(:,311) = 1.794e-10_r8 * exp_fac(:) - rate(:,312) = 1.3e-10_r8 * exp_fac(:) - rate(:,313) = 7.65e-11_r8 * exp_fac(:) - rate(:,326) = 4e-13_r8 * exp_fac(:) - rate(:,330) = 1.31e-10_r8 * exp_fac(:) - rate(:,331) = 3.5e-11_r8 * exp_fac(:) - rate(:,332) = 9e-12_r8 * exp_fac(:) - rate(:,339) = 6.8e-14_r8 * exp_fac(:) - rate(:,340) = 2e-13_r8 * exp_fac(:) - rate(:,355) = 1e-12_r8 * exp_fac(:) - rate(:,359) = 1e-14_r8 * exp_fac(:) - rate(:,360) = 1e-11_r8 * exp_fac(:) - rate(:,361) = 1.15e-11_r8 * exp_fac(:) - rate(:,362) = 4e-14_r8 * exp_fac(:) - rate(:,375) = 1.45e-10_r8 * exp_fac(:) - rate(:,376) = 3e-12_r8 * exp_fac(:) - rate(:,377) = 6.7e-13_r8 * exp_fac(:) - rate(:,387) = 3.5e-13_r8 * exp_fac(:) - rate(:,388) = 5.4e-11_r8 * exp_fac(:) - rate(:,391) = 2e-12_r8 * exp_fac(:) - rate(:,392) = 1.4e-11_r8 * exp_fac(:) - rate(:,395) = 2.4e-12_r8 * exp_fac(:) - rate(:,406) = 5e-12_r8 * exp_fac(:) - rate(:,416) = 1.6e-12_r8 * exp_fac(:) - rate(:,418) = 6.7e-12_r8 * exp_fac(:) - rate(:,421) = 3.5e-12_r8 * exp_fac(:) - rate(:,424) = 1.3e-11_r8 * exp_fac(:) - rate(:,425) = 1.4e-11_r8 * exp_fac(:) - rate(:,429) = 2.4e-12_r8 * exp_fac(:) - rate(:,430) = 1.4e-11_r8 * exp_fac(:) - rate(:,435) = 2.4e-12_r8 * exp_fac(:) - rate(:,436) = 4e-11_r8 * exp_fac(:) - rate(:,437) = 4e-11_r8 * exp_fac(:) - rate(:,439) = 1.4e-11_r8 * exp_fac(:) - rate(:,443) = 2.4e-12_r8 * exp_fac(:) - rate(:,444) = 4e-11_r8 * exp_fac(:) - rate(:,448) = 7e-11_r8 * exp_fac(:) - rate(:,449) = 1e-10_r8 * exp_fac(:) - rate(:,454) = 2.4e-12_r8 * exp_fac(:) - rate(:,469) = 4.7e-11_r8 * exp_fac(:) - rate(:,482) = 2.1e-12_r8 * exp_fac(:) - rate(:,483) = 2.8e-13_r8 * exp_fac(:) - rate(:,491) = 1.7e-11_r8 * exp_fac(:) - rate(:,497) = 8.4e-11_r8 * exp_fac(:) - rate(:,499) = 1.9e-11_r8 * exp_fac(:) - rate(:,500) = 1.2e-14_r8 * exp_fac(:) - rate(:,501) = 2e-10_r8 * exp_fac(:) - rate(:,508) = 2.4e-12_r8 * exp_fac(:) - rate(:,509) = 2e-11_r8 * exp_fac(:) - rate(:,513) = 2.3e-11_r8 * exp_fac(:) - rate(:,514) = 2e-11_r8 * exp_fac(:) - rate(:,518) = 3.3e-11_r8 * exp_fac(:) - rate(:,519) = 1e-12_r8 * exp_fac(:) - rate(:,520) = 5.7e-11_r8 * exp_fac(:) - rate(:,521) = 3.4e-11_r8 * exp_fac(:) - rate(:,526) = 2.3e-12_r8 * exp_fac(:) - rate(:,528) = 1.2e-11_r8 * exp_fac(:) - rate(:,529) = 5.7e-11_r8 * exp_fac(:) - rate(:,530) = 2.8e-11_r8 * exp_fac(:) - rate(:,531) = 6.6e-11_r8 * exp_fac(:) - rate(:,532) = 1.4e-11_r8 * exp_fac(:) - rate(:,535) = 1.9e-12_r8 * exp_fac(:) - rate(:,547) = 6.34e-08_r8 * exp_fac(:) - rate(:,553) = 1.9e-11_r8 * exp_fac(:) - rate(:,556) = 1.2e-14_r8 * exp_fac(:) - rate(:,557) = 2e-10_r8 * exp_fac(:) - rate(:,568) = 1.34e-11_r8 * exp_fac(:) + rate(:,296) = 1.4e-11_r8 * exp_fac(:) + rate(:,298) = 2.14e-11_r8 * exp_fac(:) + rate(:,299) = 1.9e-10_r8 * exp_fac(:) + rate(:,312) = 2.57e-10_r8 * exp_fac(:) + rate(:,313) = 1.8e-10_r8 * exp_fac(:) + rate(:,314) = 1.794e-10_r8 * exp_fac(:) + rate(:,315) = 1.3e-10_r8 * exp_fac(:) + rate(:,316) = 7.65e-11_r8 * exp_fac(:) + rate(:,329) = 4e-13_r8 * exp_fac(:) + rate(:,333) = 1.31e-10_r8 * exp_fac(:) + rate(:,334) = 3.5e-11_r8 * exp_fac(:) + rate(:,335) = 9e-12_r8 * exp_fac(:) + rate(:,342) = 6.8e-14_r8 * exp_fac(:) + rate(:,343) = 2e-13_r8 * exp_fac(:) + rate(:,358) = 1e-12_r8 * exp_fac(:) + rate(:,362) = 1e-14_r8 * exp_fac(:) + rate(:,363) = 1e-11_r8 * exp_fac(:) + rate(:,364) = 1.15e-11_r8 * exp_fac(:) + rate(:,365) = 4e-14_r8 * exp_fac(:) + rate(:,378) = 1.45e-10_r8 * exp_fac(:) + rate(:,379) = 3e-12_r8 * exp_fac(:) + rate(:,380) = 6.7e-13_r8 * exp_fac(:) + rate(:,390) = 3.5e-13_r8 * exp_fac(:) + rate(:,391) = 5.4e-11_r8 * exp_fac(:) + rate(:,394) = 2e-12_r8 * exp_fac(:) + rate(:,395) = 1.4e-11_r8 * exp_fac(:) + rate(:,398) = 2.4e-12_r8 * exp_fac(:) + rate(:,409) = 5e-12_r8 * exp_fac(:) + rate(:,419) = 2.2e-12_r8 * exp_fac(:) + rate(:,421) = 6.7e-12_r8 * exp_fac(:) + rate(:,424) = 3.5e-12_r8 * exp_fac(:) + rate(:,427) = 1.3e-11_r8 * exp_fac(:) + rate(:,428) = 1.4e-11_r8 * exp_fac(:) + rate(:,432) = 2.4e-12_r8 * exp_fac(:) + rate(:,433) = 1.4e-11_r8 * exp_fac(:) + rate(:,438) = 2.4e-12_r8 * exp_fac(:) + rate(:,439) = 4e-11_r8 * exp_fac(:) + rate(:,440) = 4e-11_r8 * exp_fac(:) + rate(:,442) = 1.4e-11_r8 * exp_fac(:) + rate(:,446) = 2.4e-12_r8 * exp_fac(:) + rate(:,447) = 4e-11_r8 * exp_fac(:) + rate(:,451) = 7e-11_r8 * exp_fac(:) + rate(:,452) = 1e-10_r8 * exp_fac(:) + rate(:,457) = 2.4e-12_r8 * exp_fac(:) + rate(:,472) = 4.7e-11_r8 * exp_fac(:) + rate(:,485) = 2.1e-12_r8 * exp_fac(:) + rate(:,486) = 2.8e-13_r8 * exp_fac(:) + rate(:,494) = 1.7e-11_r8 * exp_fac(:) + rate(:,500) = 8.4e-11_r8 * exp_fac(:) + rate(:,502) = 1.9e-11_r8 * exp_fac(:) + rate(:,503) = 1.2e-14_r8 * exp_fac(:) + rate(:,504) = 2e-10_r8 * exp_fac(:) + rate(:,511) = 2.4e-12_r8 * exp_fac(:) + rate(:,512) = 2e-11_r8 * exp_fac(:) + rate(:,516) = 2.3e-11_r8 * exp_fac(:) + rate(:,517) = 2e-11_r8 * exp_fac(:) + rate(:,521) = 3.3e-11_r8 * exp_fac(:) + rate(:,522) = 1e-12_r8 * exp_fac(:) + rate(:,523) = 5.7e-11_r8 * exp_fac(:) + rate(:,524) = 3.4e-11_r8 * exp_fac(:) + rate(:,529) = 2.3e-12_r8 * exp_fac(:) + rate(:,531) = 1.2e-11_r8 * exp_fac(:) + rate(:,532) = 5.7e-11_r8 * exp_fac(:) + rate(:,533) = 2.8e-11_r8 * exp_fac(:) + rate(:,534) = 6.6e-11_r8 * exp_fac(:) + rate(:,535) = 1.4e-11_r8 * exp_fac(:) + rate(:,538) = 1.9e-12_r8 * exp_fac(:) + rate(:,550) = 6.34e-08_r8 * exp_fac(:) + rate(:,556) = 1.9e-11_r8 * exp_fac(:) + rate(:,559) = 1.2e-14_r8 * exp_fac(:) + rate(:,560) = 2e-10_r8 * exp_fac(:) rate(:,571) = 1.34e-11_r8 * exp_fac(:) - rate(:,577) = 1.34e-11_r8 * exp_fac(:) - rate(:,578) = 1.34e-11_r8 * exp_fac(:) - rate(:,583) = 1.7e-11_r8 * exp_fac(:) - rate(:,606) = 6e-11_r8 * exp_fac(:) - rate(:,609) = 1e-12_r8 * exp_fac(:) - rate(:,610) = 4e-10_r8 * exp_fac(:) - rate(:,611) = 2e-10_r8 * exp_fac(:) - rate(:,612) = 1e-10_r8 * exp_fac(:) - rate(:,613) = 5e-16_r8 * exp_fac(:) - rate(:,614) = 4.4e-10_r8 * exp_fac(:) - rate(:,615) = 9e-10_r8 * exp_fac(:) - rate(:,618) = 1.29e-07_r8 * exp_fac(:) - rate(:,619) = 2.31e-07_r8 * exp_fac(:) - rate(:,620) = 2.31e-06_r8 * exp_fac(:) - rate(:,621) = 4.63e-07_r8 * exp_fac(:) + rate(:,574) = 1.34e-11_r8 * exp_fac(:) + rate(:,580) = 1.34e-11_r8 * exp_fac(:) + rate(:,581) = 1.34e-11_r8 * exp_fac(:) + rate(:,586) = 1.7e-11_r8 * exp_fac(:) + rate(:,609) = 6e-11_r8 * exp_fac(:) + rate(:,612) = 1e-12_r8 * exp_fac(:) + rate(:,613) = 4e-10_r8 * exp_fac(:) + rate(:,614) = 2e-10_r8 * exp_fac(:) + rate(:,615) = 1e-10_r8 * exp_fac(:) + rate(:,616) = 5e-16_r8 * exp_fac(:) + rate(:,617) = 4.4e-10_r8 * exp_fac(:) + rate(:,618) = 9e-10_r8 * exp_fac(:) + rate(:,621) = 1.29e-07_r8 * exp_fac(:) + rate(:,622) = 2.31e-07_r8 * exp_fac(:) + rate(:,623) = 2.31e-06_r8 * exp_fac(:) + rate(:,624) = 4.63e-07_r8 * exp_fac(:) exp_fac(:) = exp( 400._r8 * itemp(:) ) - rate(:,294) = 6e-12_r8 * exp_fac(:) - rate(:,393) = 5e-13_r8 * exp_fac(:) - rate(:,426) = 5e-13_r8 * exp_fac(:) - rate(:,431) = 5e-13_r8 * exp_fac(:) - rate(:,440) = 5e-13_r8 * exp_fac(:) - rate(:,451) = 5e-13_r8 * exp_fac(:) - rate(:,299) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,300) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,297) = 6e-12_r8 * exp_fac(:) + rate(:,396) = 5e-13_r8 * exp_fac(:) + rate(:,429) = 5e-13_r8 * exp_fac(:) + rate(:,434) = 5e-13_r8 * exp_fac(:) + rate(:,443) = 5e-13_r8 * exp_fac(:) + rate(:,454) = 5e-13_r8 * exp_fac(:) + rate(:,302) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,303) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) exp_fac(:) = exp( -1520._r8 * itemp(:) ) - rate(:,301) = 1.64e-12_r8 * exp_fac(:) - rate(:,412) = 8.5e-16_r8 * exp_fac(:) + rate(:,304) = 1.64e-12_r8 * exp_fac(:) + rate(:,415) = 8.5e-16_r8 * exp_fac(:) exp_fac(:) = exp( -1100._r8 * itemp(:) ) - rate(:,302) = 2.03e-11_r8 * exp_fac(:) - rate(:,534) = 3.4e-12_r8 * exp_fac(:) - rate(:,303) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,304) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,305) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,305) = 2.03e-11_r8 * exp_fac(:) + rate(:,537) = 3.4e-12_r8 * exp_fac(:) + rate(:,306) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) + rate(:,307) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) + rate(:,308) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,306) = 1.25e-12_r8 * exp_fac(:) - rate(:,316) = 3.4e-11_r8 * exp_fac(:) - rate(:,307) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,308) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,314) = 9.7e-15_r8 * exp( 625._r8 * itemp(:) ) - rate(:,315) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,318) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) - rate(:,319) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) - rate(:,320) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,309) = 1.25e-12_r8 * exp_fac(:) + rate(:,319) = 3.4e-11_r8 * exp_fac(:) + rate(:,310) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,311) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,317) = 9.7e-15_r8 * exp( 625._r8 * itemp(:) ) + rate(:,318) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,321) = 5e-13_r8 * exp( -424._r8 * itemp(:) ) + rate(:,322) = 1.9e-14_r8 * exp( 706._r8 * itemp(:) ) + rate(:,323) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) exp_fac(:) = exp( 300._r8 * itemp(:) ) - rate(:,321) = 2.8e-12_r8 * exp_fac(:) - rate(:,383) = 2.9e-12_r8 * exp_fac(:) - rate(:,322) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) - rate(:,324) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,324) = 2.8e-12_r8 * exp_fac(:) + rate(:,386) = 2.9e-12_r8 * exp_fac(:) + rate(:,325) = 2.9e-12_r8 * exp( -345._r8 * itemp(:) ) + rate(:,327) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) exp_fac(:) = exp( 700._r8 * itemp(:) ) - rate(:,327) = 7.5e-13_r8 * exp_fac(:) - rate(:,341) = 7.5e-13_r8 * exp_fac(:) - rate(:,356) = 7.5e-13_r8 * exp_fac(:) - rate(:,369) = 7.5e-13_r8 * exp_fac(:) - rate(:,378) = 7.5e-13_r8 * exp_fac(:) - rate(:,382) = 8.6e-13_r8 * exp_fac(:) - rate(:,394) = 8e-13_r8 * exp_fac(:) - rate(:,407) = 7.5e-13_r8 * exp_fac(:) - rate(:,417) = 7.5e-13_r8 * exp_fac(:) - rate(:,427) = 8e-13_r8 * exp_fac(:) - rate(:,432) = 8e-13_r8 * exp_fac(:) - rate(:,441) = 8e-13_r8 * exp_fac(:) - rate(:,452) = 8e-13_r8 * exp_fac(:) - rate(:,459) = 7.5e-13_r8 * exp_fac(:) - rate(:,463) = 7.5e-13_r8 * exp_fac(:) + rate(:,330) = 7.5e-13_r8 * exp_fac(:) + rate(:,344) = 7.5e-13_r8 * exp_fac(:) + rate(:,359) = 7.5e-13_r8 * exp_fac(:) + rate(:,381) = 7.5e-13_r8 * exp_fac(:) + rate(:,385) = 8.6e-13_r8 * exp_fac(:) + rate(:,397) = 8e-13_r8 * exp_fac(:) + rate(:,410) = 7.5e-13_r8 * exp_fac(:) + rate(:,420) = 7.5e-13_r8 * exp_fac(:) + rate(:,430) = 8e-13_r8 * exp_fac(:) + rate(:,435) = 8e-13_r8 * exp_fac(:) + rate(:,444) = 8e-13_r8 * exp_fac(:) + rate(:,455) = 8e-13_r8 * exp_fac(:) + rate(:,462) = 7.5e-13_r8 * exp_fac(:) rate(:,466) = 7.5e-13_r8 * exp_fac(:) - rate(:,479) = 7.5e-13_r8 * exp_fac(:) - rate(:,486) = 7.5e-13_r8 * exp_fac(:) - rate(:,492) = 7.5e-13_r8 * exp_fac(:) + rate(:,469) = 7.5e-13_r8 * exp_fac(:) + rate(:,482) = 7.5e-13_r8 * exp_fac(:) + rate(:,489) = 7.5e-13_r8 * exp_fac(:) rate(:,495) = 7.5e-13_r8 * exp_fac(:) - rate(:,506) = 7.5e-13_r8 * exp_fac(:) - rate(:,511) = 7.5e-13_r8 * exp_fac(:) - rate(:,516) = 7.5e-13_r8 * exp_fac(:) - rate(:,559) = 7.5e-13_r8 * exp_fac(:) - rate(:,566) = 7.5e-13_r8 * exp_fac(:) + rate(:,498) = 7.5e-13_r8 * exp_fac(:) + rate(:,509) = 7.5e-13_r8 * exp_fac(:) + rate(:,514) = 7.5e-13_r8 * exp_fac(:) + rate(:,519) = 7.5e-13_r8 * exp_fac(:) + rate(:,562) = 7.5e-13_r8 * exp_fac(:) rate(:,569) = 7.5e-13_r8 * exp_fac(:) - rate(:,580) = 7.5e-13_r8 * exp_fac(:) - rate(:,584) = 7.5e-13_r8 * exp_fac(:) - rate(:,328) = 2.4e+12_r8 * exp( -7000._r8 * itemp(:) ) - rate(:,329) = 2.6e-12_r8 * exp( 265._r8 * itemp(:) ) - rate(:,333) = 1.08e-10_r8 * exp( 105._r8 * itemp(:) ) - rate(:,338) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) + rate(:,572) = 7.5e-13_r8 * exp_fac(:) + rate(:,583) = 7.5e-13_r8 * exp_fac(:) + rate(:,587) = 7.5e-13_r8 * exp_fac(:) + rate(:,331) = 2.4e+12_r8 * exp( -7000._r8 * itemp(:) ) + rate(:,332) = 2.6e-12_r8 * exp( 265._r8 * itemp(:) ) + rate(:,336) = 1.08e-10_r8 * exp( 105._r8 * itemp(:) ) + rate(:,341) = 1.2e-14_r8 * exp( -2630._r8 * itemp(:) ) exp_fac(:) = exp( 365._r8 * itemp(:) ) - rate(:,342) = 2.6e-12_r8 * exp_fac(:) - rate(:,460) = 2.6e-12_r8 * exp_fac(:) - rate(:,465) = 2.6e-12_r8 * exp_fac(:) - rate(:,467) = 2.6e-12_r8 * exp_fac(:) - rate(:,480) = 2.6e-12_r8 * exp_fac(:) - rate(:,487) = 2.6e-12_r8 * exp_fac(:) - rate(:,493) = 2.6e-12_r8 * exp_fac(:) + rate(:,345) = 2.6e-12_r8 * exp_fac(:) + rate(:,463) = 2.6e-12_r8 * exp_fac(:) + rate(:,468) = 2.6e-12_r8 * exp_fac(:) + rate(:,470) = 2.6e-12_r8 * exp_fac(:) + rate(:,483) = 2.6e-12_r8 * exp_fac(:) + rate(:,490) = 2.6e-12_r8 * exp_fac(:) rate(:,496) = 2.6e-12_r8 * exp_fac(:) - rate(:,560) = 2.6e-12_r8 * exp_fac(:) - rate(:,567) = 2.6e-12_r8 * exp_fac(:) + rate(:,499) = 2.6e-12_r8 * exp_fac(:) + rate(:,563) = 2.6e-12_r8 * exp_fac(:) rate(:,570) = 2.6e-12_r8 * exp_fac(:) - rate(:,581) = 2.6e-12_r8 * exp_fac(:) - rate(:,585) = 2.6e-12_r8 * exp_fac(:) - rate(:,343) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) - rate(:,345) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) - rate(:,346) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) + rate(:,573) = 2.6e-12_r8 * exp_fac(:) + rate(:,584) = 2.6e-12_r8 * exp_fac(:) + rate(:,588) = 2.6e-12_r8 * exp_fac(:) + rate(:,346) = 6.9e-12_r8 * exp( -230._r8 * itemp(:) ) + rate(:,348) = 7.2e-11_r8 * exp( -70._r8 * itemp(:) ) + rate(:,349) = 7.66e-12_r8 * exp( -1020._r8 * itemp(:) ) exp_fac(:) = exp( -1900._r8 * itemp(:) ) - rate(:,347) = 1.4e-12_r8 * exp_fac(:) - rate(:,367) = 6.5e-15_r8 * exp_fac(:) + rate(:,350) = 1.4e-12_r8 * exp_fac(:) + rate(:,370) = 6.5e-15_r8 * exp_fac(:) exp_fac(:) = exp( 350._r8 * itemp(:) ) - rate(:,348) = 4.63e-12_r8 * exp_fac(:) - rate(:,563) = 2.7e-12_r8 * exp_fac(:) - rate(:,349) = 7.8e-13_r8 * exp( -1050._r8 * itemp(:) ) + rate(:,351) = 4.63e-12_r8 * exp_fac(:) + rate(:,566) = 2.7e-12_r8 * exp_fac(:) + rate(:,352) = 7.8e-13_r8 * exp( -1050._r8 * itemp(:) ) exp_fac(:) = exp( 500._r8 * itemp(:) ) - rate(:,350) = 2.9e-12_r8 * exp_fac(:) - rate(:,351) = 2e-12_r8 * exp_fac(:) - rate(:,381) = 7.1e-13_r8 * exp_fac(:) - rate(:,402) = 2e-12_r8 * exp_fac(:) - rate(:,505) = 2e-12_r8 * exp_fac(:) - rate(:,510) = 2e-12_r8 * exp_fac(:) - rate(:,515) = 2e-12_r8 * exp_fac(:) + rate(:,353) = 2.9e-12_r8 * exp_fac(:) + rate(:,354) = 2e-12_r8 * exp_fac(:) + rate(:,384) = 7.1e-13_r8 * exp_fac(:) + rate(:,405) = 2e-12_r8 * exp_fac(:) + rate(:,508) = 2e-12_r8 * exp_fac(:) + rate(:,513) = 2e-12_r8 * exp_fac(:) + rate(:,518) = 2e-12_r8 * exp_fac(:) exp_fac(:) = exp( 1040._r8 * itemp(:) ) - rate(:,352) = 4.3e-13_r8 * exp_fac(:) - rate(:,403) = 4.3e-13_r8 * exp_fac(:) - rate(:,456) = 4.3e-13_r8 * exp_fac(:) - rate(:,470) = 4.3e-13_r8 * exp_fac(:) + rate(:,355) = 4.3e-13_r8 * exp_fac(:) + rate(:,406) = 4.3e-13_r8 * exp_fac(:) + rate(:,459) = 4.3e-13_r8 * exp_fac(:) rate(:,473) = 4.3e-13_r8 * exp_fac(:) rate(:,476) = 4.3e-13_r8 * exp_fac(:) - rate(:,354) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) - rate(:,358) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) - rate(:,366) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) - rate(:,368) = 3.75e-13_r8 * exp( -40._r8 * itemp(:) ) - rate(:,372) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) - rate(:,373) = 1.4e-12_r8 * exp( -1860._r8 * itemp(:) ) - rate(:,374) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) - rate(:,389) = 4.8e-12_r8 * exp( 120._r8 * itemp(:) ) - rate(:,390) = 5.1e-14_r8 * exp( 693._r8 * itemp(:) ) + rate(:,479) = 4.3e-13_r8 * exp_fac(:) + rate(:,357) = 3.15e-14_r8 * exp( 920._r8 * itemp(:) ) + rate(:,361) = 1.6e+11_r8 * exp( -4150._r8 * itemp(:) ) + rate(:,369) = 4.6e-13_r8 * exp( -1156._r8 * itemp(:) ) + rate(:,371) = 1e-13_r8 * exp( 557._r8 * itemp(:) ) + exp_fac(:) = exp( 1300._r8 * itemp(:) ) + rate(:,372) = 1.41e-13_r8 * exp_fac(:) + rate(:,557) = 2.75e-13_r8 * exp_fac(:) + rate(:,565) = 2.12e-13_r8 * exp_fac(:) + rate(:,576) = 2.6e-13_r8 * exp_fac(:) exp_fac(:) = exp( 360._r8 * itemp(:) ) - rate(:,396) = 2.7e-12_r8 * exp_fac(:) - rate(:,397) = 1.3e-13_r8 * exp_fac(:) - rate(:,399) = 9.6e-12_r8 * exp_fac(:) - rate(:,405) = 5.3e-12_r8 * exp_fac(:) - rate(:,442) = 2.7e-12_r8 * exp_fac(:) - rate(:,453) = 2.7e-12_r8 * exp_fac(:) - rate(:,555) = 2.7e-12_r8 * exp_fac(:) - rate(:,574) = 2.7e-12_r8 * exp_fac(:) - rate(:,398) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) + rate(:,373) = 2.7e-12_r8 * exp_fac(:) + rate(:,399) = 2.7e-12_r8 * exp_fac(:) + rate(:,400) = 1.3e-13_r8 * exp_fac(:) + rate(:,402) = 9.6e-12_r8 * exp_fac(:) + rate(:,408) = 5.3e-12_r8 * exp_fac(:) + rate(:,445) = 2.7e-12_r8 * exp_fac(:) + rate(:,456) = 2.7e-12_r8 * exp_fac(:) + rate(:,558) = 2.7e-12_r8 * exp_fac(:) + rate(:,577) = 2.7e-12_r8 * exp_fac(:) + rate(:,375) = 9.19e-12_r8 * exp( -630._r8 * itemp(:) ) + rate(:,376) = 1.4e-12_r8 * exp( -1860._r8 * itemp(:) ) + rate(:,377) = 8.4e-13_r8 * exp( 830._r8 * itemp(:) ) + rate(:,392) = 4.8e-12_r8 * exp( 120._r8 * itemp(:) ) + rate(:,393) = 5.1e-14_r8 * exp( 693._r8 * itemp(:) ) + rate(:,401) = 1.5e-15_r8 * exp( -2100._r8 * itemp(:) ) exp_fac(:) = exp( 530._r8 * itemp(:) ) - rate(:,401) = 4.6e-12_r8 * exp_fac(:) - rate(:,404) = 2.3e-12_r8 * exp_fac(:) - rate(:,409) = 2.3e-12_r8 * exp( -170._r8 * itemp(:) ) - rate(:,413) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) - rate(:,419) = 5.4e-14_r8 * exp( 870._r8 * itemp(:) ) + rate(:,404) = 4.6e-12_r8 * exp_fac(:) + rate(:,407) = 2.3e-12_r8 * exp_fac(:) + rate(:,412) = 2.3e-12_r8 * exp( -170._r8 * itemp(:) ) + rate(:,416) = 4.13e-12_r8 * exp( 452._r8 * itemp(:) ) + rate(:,422) = 5.4e-14_r8 * exp( 870._r8 * itemp(:) ) exp_fac(:) = exp( 175._r8 * itemp(:) ) - rate(:,422) = 1.86e-11_r8 * exp_fac(:) - rate(:,423) = 1.86e-11_r8 * exp_fac(:) - rate(:,433) = 1.6e+09_r8 * exp( -8300._r8 * itemp(:) ) + rate(:,425) = 1.86e-11_r8 * exp_fac(:) + rate(:,426) = 1.86e-11_r8 * exp_fac(:) + rate(:,436) = 1.6e+09_r8 * exp( -8300._r8 * itemp(:) ) exp_fac(:) = exp( -446._r8 * itemp(:) ) - rate(:,438) = 3.03e-12_r8 * exp_fac(:) - rate(:,561) = 3.03e-12_r8 * exp_fac(:) + rate(:,441) = 3.03e-12_r8 * exp_fac(:) + rate(:,564) = 3.03e-12_r8 * exp_fac(:) exp_fac(:) = exp( 410._r8 * itemp(:) ) - rate(:,446) = 2.54e-11_r8 * exp_fac(:) - rate(:,565) = 2.54e-11_r8 * exp_fac(:) - rate(:,450) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) + rate(:,449) = 2.54e-11_r8 * exp_fac(:) + rate(:,568) = 2.54e-11_r8 * exp_fac(:) + rate(:,453) = 1.3e-12_r8 * exp( 640._r8 * itemp(:) ) exp_fac(:) = exp( -193._r8 * itemp(:) ) - rate(:,458) = 2.3e-12_r8 * exp_fac(:) - rate(:,558) = 2.3e-12_r8 * exp_fac(:) - rate(:,462) = 5.9e-12_r8 * exp( 225._r8 * itemp(:) ) - rate(:,481) = 4.7e-13_r8 * exp( 1220._r8 * itemp(:) ) + rate(:,461) = 2.3e-12_r8 * exp_fac(:) + rate(:,561) = 2.3e-12_r8 * exp_fac(:) + rate(:,465) = 5.9e-12_r8 * exp( 225._r8 * itemp(:) ) + rate(:,484) = 4.7e-13_r8 * exp( 1220._r8 * itemp(:) ) exp_fac(:) = exp( 352._r8 * itemp(:) ) - rate(:,489) = 1.7e-12_r8 * exp_fac(:) - rate(:,579) = 1.7e-12_r8 * exp_fac(:) + rate(:,492) = 1.7e-12_r8 * exp_fac(:) + rate(:,582) = 1.7e-12_r8 * exp_fac(:) exp_fac(:) = exp( 490._r8 * itemp(:) ) - rate(:,502) = 1.2e-12_r8 * exp_fac(:) - rate(:,572) = 1.2e-12_r8 * exp_fac(:) + rate(:,505) = 1.2e-12_r8 * exp_fac(:) + rate(:,575) = 1.2e-12_r8 * exp_fac(:) exp_fac(:) = exp( -580._r8 * itemp(:) ) - rate(:,503) = 6.3e-16_r8 * exp_fac(:) - rate(:,575) = 6.3e-16_r8 * exp_fac(:) + rate(:,506) = 6.3e-16_r8 * exp_fac(:) + rate(:,578) = 6.3e-16_r8 * exp_fac(:) exp_fac(:) = exp( 440._r8 * itemp(:) ) - rate(:,504) = 1.2e-11_r8 * exp_fac(:) - rate(:,576) = 1.2e-11_r8 * exp_fac(:) - rate(:,522) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,523) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) - rate(:,524) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,525) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,533) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,536) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) - rate(:,539) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) - exp_fac(:) = exp( 1300._r8 * itemp(:) ) - rate(:,554) = 2.75e-13_r8 * exp_fac(:) - rate(:,562) = 2.12e-13_r8 * exp_fac(:) - rate(:,573) = 2.6e-13_r8 * exp_fac(:) + rate(:,507) = 1.2e-11_r8 * exp_fac(:) + rate(:,579) = 1.2e-11_r8 * exp_fac(:) + rate(:,525) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,526) = 1.1e-11_r8 * exp( -280._r8 * itemp(:) ) + rate(:,527) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,528) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,536) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,539) = 2.6e-11_r8 * exp( 330._r8 * itemp(:) ) + rate(:,542) = 1.7e-12_r8 * exp( -710._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) @@ -581,71 +581,71 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,248), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,251), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.9e-32_r8 * itemp(:)**3.6_r8 kinf(:) = 3.7e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,268), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,271), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.2e-31_r8 * itemp(:)**3.2_r8 kinf(:) = 6.9e-12_r8 * itemp(:)**2.9_r8 - call jpl( rate(:,279), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,282), m, 0.6_r8, ko, kinf, n ) ko(:) = 6.1e-33_r8 * itemp(:)**1.5_r8 kinf(:) = 9.8e-15_r8 * itemp(:)**(-4.6_r8) - call jpl( rate(:,325), m, 0.8_r8, ko, kinf, n ) + call jpl( rate(:,328), m, 0.8_r8, ko, kinf, n ) ko(:) = 5.2e-30_r8 * itemp(:)**2.4_r8 kinf(:) = 2.2e-10_r8 * itemp(:)**0.7_r8 - call jpl( rate(:,335), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,338), m, 0.6_r8, ko, kinf, n ) ko(:) = 5.5e-30_r8 kinf(:) = 8.3e-13_r8 * itemp(:)**(-2._r8) - call jpl( rate(:,336), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,339), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.6e-29_r8 * itemp(:)**3.3_r8 kinf(:) = 3.1e-10_r8 * itemp(:) - call jpl( rate(:,337), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,340), m, 0.6_r8, ko, kinf, n ) ko(:) = 8.6e-29_r8 * itemp(:)**3.1_r8 kinf(:) = 9e-12_r8 * itemp(:)**0.85_r8 - call jpl( rate(:,363), m, 0.48_r8, ko, kinf, n ) + call jpl( rate(:,366), m, 0.48_r8, ko, kinf, n ) ko(:) = 7.3e-29_r8 * itemp(:)**4.1_r8 kinf(:) = 9.5e-12_r8 * itemp(:)**1.6_r8 - call jpl( rate(:,364), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,367), m, 0.6_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,385), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,388), m, 0.5_r8, ko, kinf, n ) ko(:) = 8e-27_r8 * itemp(:)**3.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,411), m, 0.5_r8, ko, kinf, n ) + call jpl( rate(:,414), m, 0.5_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,414), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,417), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,472), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,475), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,475), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,478), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,478), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,481), m, 0.6_r8, ko, kinf, n ) ko(:) = 9.7e-29_r8 * itemp(:)**5.6_r8 kinf(:) = 9.3e-12_r8 * itemp(:)**1.5_r8 - call jpl( rate(:,485), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,488), m, 0.6_r8, ko, kinf, n ) ko(:) = 2.9e-31_r8 * itemp(:)**4.1_r8 kinf(:) = 1.7e-12_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,527), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,530), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -688,14 +688,14 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,184) = 8e-14_r8 rate(:n,185) = 3.9e-17_r8 rate(:n,192) = 6.9e-12_r8 - rate(:n,208) = 7e-13_r8 - rate(:n,209) = 5e-12_r8 - rate(:n,606) = 6e-11_r8 - rate(:n,609) = 1e-12_r8 - rate(:n,610) = 4e-10_r8 - rate(:n,611) = 2e-10_r8 - rate(:n,612) = 1e-10_r8 - rate(:n,614) = 4.4e-10_r8 + rate(:n,209) = 7e-11_r8 + rate(:n,210) = 7e-13_r8 + rate(:n,609) = 6e-11_r8 + rate(:n,612) = 1e-12_r8 + rate(:n,613) = 4e-10_r8 + rate(:n,614) = 2e-10_r8 + rate(:n,615) = 1e-10_r8 + rate(:n,617) = 4.4e-10_r8 do k = 1,kbot offset = (k-1)*ncol @@ -716,8 +716,7 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,201) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) rate(:n,202) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) rate(:n,203) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,210) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,214) = 3.3e-12_r8 * exp( -3150._r8 * itemp(:) ) + rate(:n,211) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) rate(:n,215) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) rate(:n,223) = 3.44e-12_r8 * exp( 260._r8 * itemp(:) ) rate(:n,224) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) diff --git a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_sim_dat.F90 b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_sim_dat.F90 index ecbf59902b..4cc630280f 100644 --- a/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_tsmlt_mam5_vbsext/mo_sim_dat.F90 @@ -31,102 +31,101 @@ subroutine set_sim_dat is_scalar = .false. is_vector = .true. - clscnt(:) = (/ 2, 0, 0, 274, 0 /) + clscnt(:) = (/ 2, 0, 0, 276, 0 /) cls_rxt_cnt(:,1) = (/ 9, 0, 0, 2 /) - cls_rxt_cnt(:,4) = (/ 8, 205, 408, 274 /) + cls_rxt_cnt(:,4) = (/ 8, 206, 410, 276 /) - solsym(:276) = (/ 'ALKNIT ','ALKOOH ','AOA_NH ','bc_a1 ','bc_a4 ', & - 'BCARY ','BCARYO2VBS ','BENZENE ','BENZO2VBS ','BENZOOH ', & - 'BEPOMUC ','BIGALD ','BIGALD1 ','BIGALD2 ','BIGALD3 ', & - 'BIGALD4 ','BIGALK ','BIGENE ','BR ','BRCL ', & - 'BRO ','BRONO2 ','BRY ','BZALD ','BZOOH ', & - 'C2H2 ','C2H4 ','C2H5OH ','C2H5OOH ','C2H6 ', & - 'C3H6 ','C3H7OOH ','C3H8 ','C6H5OOH ','CCL4 ', & - 'CF2CLBR ','CF3BR ','CFC11 ','CFC113 ','CFC114 ', & - 'CFC115 ','CFC12 ','CH2BR2 ','CH2O ','CH3BR ', & - 'CH3CCL3 ','CH3CHO ','CH3CL ','CH3CN ','CH3COCH3 ', & - 'CH3COCHO ','CH3COOH ','CH3COOOH ','CH3OH ','CH3OOH ', & - 'CH4 ','CHBR3 ','CL ','CL2 ','CL2O2 ', & - 'CLO ','CLONO2 ','CLY ','CO ','CO2 ', & - 'COF2 ','COFCL ','CRESOL ','DMS ','dst_a1 ', & - 'dst_a2 ','dst_a3 ','E90 ','EOOH ','F ', & - 'GLYALD ','GLYOXAL ','H ','H2 ','H2402 ', & - 'H2O2 ','H2SO4 ','HBR ','HCFC141B ','HCFC142B ', & - 'HCFC22 ','HCL ','HCN ','HCOOH ','HF ', & - 'HNO3 ','HO2NO2 ','HOBR ','HOCL ','HONITR ', & - 'HPALD ','HYAC ','HYDRALD ','IEPOX ','ISOP ', & - 'ISOPNITA ','ISOPNITB ','ISOPNO3 ','ISOPNOOH ','ISOPO2VBS ', & - 'ISOPOOH ','IVOCbb ','IVOCbbO2VBS ','IVOCff ','IVOCffO2VBS ', & + solsym(:278) = (/ 'ALKNIT ','ALKOOH ','AOA_NH ','bc_a1 ','bc_a4 ', & + 'BCARY ','BENZENE ','BENZOOH ','BEPOMUC ','BIGALD ', & + 'BIGALD1 ','BIGALD2 ','BIGALD3 ','BIGALD4 ','BIGALK ', & + 'BIGENE ','BR ','BRCL ','BRO ','BRONO2 ', & + 'BRY ','BZALD ','BZOOH ','C2H2 ','C2H4 ', & + 'C2H5OH ','C2H5OOH ','C2H6 ','C3H6 ','C3H7OOH ', & + 'C3H8 ','C6H5OOH ','CCL4 ','CF2CLBR ','CF3BR ', & + 'CFC11 ','CFC113 ','CFC114 ','CFC115 ','CFC12 ', & + 'CH2BR2 ','CH2O ','CH3BR ','CH3CCL3 ','CH3CHO ', & + 'CH3CL ','CH3CN ','CH3COCH3 ','CH3COCHO ','CH3COOH ', & + 'CH3COOOH ','CH3OH ','CH3OOH ','CH4 ','CHBR3 ', & + 'CL ','CL2 ','CL2O2 ','CLO ','CLONO2 ', & + 'CLY ','CO ','CO2 ','COF2 ','COFCL ', & + 'CRESOL ','DMS ','dst_a1 ','dst_a2 ','dst_a3 ', & + 'E90 ','EOOH ','F ','GLYALD ','GLYOXAL ', & + 'H ','H2 ','H2402 ','H2O2 ','H2SO4 ', & + 'HBR ','HCFC141B ','HCFC142B ','HCFC22 ','HCL ', & + 'HCN ','HCOOH ','HF ','HNO3 ','HO2NO2 ', & + 'HOBR ','HOCL ','HONITR ','HPALD ','HYAC ', & + 'HYDRALD ','IEPOX ','ISOP ','ISOPNITA ','ISOPNITB ', & + 'ISOPNO3 ','ISOPNOOH ','ISOPOOH ','IVOCbb ','IVOCff ', & 'MACR ','MACROOH ','MEK ','MEKOOH ','MPAN ', & - 'MTERP ','MTERPO2VBS ','MVK ','N ','N2O ', & - 'N2O5 ','NC4CH2OH ','NC4CHO ','ncl_a1 ','ncl_a2 ', & - 'ncl_a3 ','NH3 ','NH4 ','NH_5 ','NH_50 ', & - 'NO ','NO2 ','NO3 ','NOA ','NTERPOOH ', & - 'num_a1 ','num_a2 ','num_a3 ','num_a4 ','num_a5 ', & - 'O ','O2 ','O3 ','O3S ','OCLO ', & - 'OCS ','ONITR ','PAN ','PBZNIT ','PHENO ', & - 'PHENOL ','PHENOOH ','pombb1_a1 ','pombb1_a4 ','pomff1_a1 ', & - 'pomff1_a4 ','POOH ','ROOH ','S ','SF6 ', & - 'SO ','SO2 ','SO3 ','so4_a1 ','so4_a2 ', & - 'so4_a3 ','so4_a5 ','soabb1_a1 ','soabb1_a2 ','soabb2_a1 ', & - 'soabb2_a2 ','soabb3_a1 ','soabb3_a2 ','soabb4_a1 ','soabb4_a2 ', & - 'soabb5_a1 ','soabb5_a2 ','soabg1_a1 ','soabg1_a2 ','soabg2_a1 ', & - 'soabg2_a2 ','soabg3_a1 ','soabg3_a2 ','soabg4_a1 ','soabg4_a2 ', & - 'soabg5_a1 ','soabg5_a2 ','soaff1_a1 ','soaff1_a2 ','soaff2_a1 ', & - 'soaff2_a2 ','soaff3_a1 ','soaff3_a2 ','soaff4_a1 ','soaff4_a2 ', & - 'soaff5_a1 ','soaff5_a2 ','SOAGbb0 ','SOAGbb1 ','SOAGbb2 ', & - 'SOAGbb3 ','SOAGbb4 ','SOAGbg0 ','SOAGbg1 ','SOAGbg2 ', & - 'SOAGbg3 ','SOAGbg4 ','SOAGff0 ','SOAGff1 ','SOAGff2 ', & - 'SOAGff3 ','SOAGff4 ','ST80_25 ','SVOCbb ','SVOCff ', & - 'TEPOMUC ','TERP2OOH ','TERPNIT ','TERPOOH ','TERPROD1 ', & - 'TERPROD2 ','TOLOOH ','TOLUENE ','TOLUO2VBS ','XOOH ', & - 'XYLENES ','XYLENOOH ','XYLEO2VBS ','XYLOL ','XYLOLOOH ', & - 'NHDEP ','NDEP ','ACBZO2 ','ALKO2 ','BENZO2 ', & - 'BZOO ','C2H5O2 ','C3H7O2 ','C6H5O2 ','CH3CO3 ', & - 'CH3O2 ','DICARBO2 ','e ','ENEO2 ','EO ', & - 'EO2 ','HO2 ','HOCH2OO ','ISOPAO2 ','ISOPBO2 ', & - 'MACRO2 ','MALO2 ','MCO3 ','MDIALO2 ','MEKO2 ', & + 'MTERP ','MVK ','N ','N2O ','N2O5 ', & + 'NC4CH2OH ','NC4CHO ','ncl_a1 ','ncl_a2 ','ncl_a3 ', & + 'NH3 ','NH4 ','NH_5 ','NH_50 ','NO ', & + 'NO2 ','NO3 ','NOA ','NTERPOOH ','num_a1 ', & + 'num_a2 ','num_a3 ','num_a4 ','num_a5 ','O ', & + 'O2 ','O3 ','O3S ','OCLO ','OCS ', & + 'ONITR ','PAN ','PBZNIT ','PHENO ','PHENOL ', & + 'PHENOOH ','pom_a1 ','pom_a4 ','pombb1_a1 ','pombb1_a4 ', & + 'pomff1_a1 ','pomff1_a4 ','POOH ','ROOH ','S ', & + 'SF6 ','SO ','SO2 ','SO3 ','so4_a1 ', & + 'so4_a2 ','so4_a3 ','so4_a5 ','soabb1_a1 ','soabb1_a2 ', & + 'soabb2_a1 ','soabb2_a2 ','soabb3_a1 ','soabb3_a2 ','soabb4_a1 ', & + 'soabb4_a2 ','soabb5_a1 ','soabb5_a2 ','soabg1_a1 ','soabg1_a2 ', & + 'soabg2_a1 ','soabg2_a2 ','soabg3_a1 ','soabg3_a2 ','soabg4_a1 ', & + 'soabg4_a2 ','soabg5_a1 ','soabg5_a2 ','soaff1_a1 ','soaff1_a2 ', & + 'soaff2_a1 ','soaff2_a2 ','soaff3_a1 ','soaff3_a2 ','soaff4_a1 ', & + 'soaff4_a2 ','soaff5_a1 ','soaff5_a2 ','SOAGbb0 ','SOAGbb1 ', & + 'SOAGbb2 ','SOAGbb3 ','SOAGbb4 ','SOAGbg0 ','SOAGbg1 ', & + 'SOAGbg2 ','SOAGbg3 ','SOAGbg4 ','SOAGff0 ','SOAGff1 ', & + 'SOAGff2 ','SOAGff3 ','SOAGff4 ','ST80_25 ','SVOCbb ', & + 'SVOCff ','TEPOMUC ','TERP2OOH ','TERPNIT ','TERPOOH ', & + 'TERPROD1 ','TERPROD2 ','TOLOOH ','TOLUENE ','XOOH ', & + 'XYLENES ','XYLENOOH ','XYLOL ','XYLOLOOH ','NHDEP ', & + 'NDEP ','ACBZO2 ','ALKO2 ','BCARYO2VBS ','BENZO2 ', & + 'BENZO2VBS ','BZOO ','C2H5O2 ','C3H7O2 ','C6H5O2 ', & + 'CH3CO3 ','CH3O2 ','DICARBO2 ','e ','ENEO2 ', & + 'EO ','EO2 ','HO2 ','HOCH2OO ','ISOPAO2 ', & + 'ISOPBO2 ','ISOPO2VBS ','IVOCbbO2VBS ','IVOCffO2VBS ','MACRO2 ', & + 'MALO2 ','MCO3 ','MDIALO2 ','MEKO2 ','MTERPO2VBS ', & 'N2D ','N2p ','NOp ','Np ','NTERPO2 ', & 'O1D ','O2_1D ','O2_1S ','O2p ','OH ', & 'Op ','PHENO2 ','PO2 ','RO2 ','TERP2O2 ', & - 'TERPO2 ','TOLO2 ','XO2 ','XYLENO2 ','XYLOLO2 ', & - 'H2O ' /) + 'TERPO2 ','TOLO2 ','TOLUO2VBS ','XO2 ','XYLENO2 ', & + 'XYLEO2VBS ','XYLOLO2 ','H2O ' /) - adv_mass(:276) = (/ 133.141340_r8, 104.142600_r8, 28.010400_r8, 12.011000_r8, 12.011000_r8, & - 204.342600_r8, 253.348200_r8, 78.110400_r8, 159.114800_r8, 160.122200_r8, & - 126.108600_r8, 98.098200_r8, 84.072400_r8, 98.098200_r8, 98.098200_r8, & - 112.124000_r8, 72.143800_r8, 56.103200_r8, 79.904000_r8, 115.356700_r8, & - 95.903400_r8, 141.908940_r8, 99.716850_r8, 106.120800_r8, 124.135000_r8, & - 26.036800_r8, 28.051600_r8, 46.065800_r8, 62.065200_r8, 30.066400_r8, & - 42.077400_r8, 76.091000_r8, 44.092200_r8, 110.109200_r8, 153.821800_r8, & - 165.364506_r8, 148.910210_r8, 137.367503_r8, 187.375310_r8, 170.921013_r8, & - 154.466716_r8, 120.913206_r8, 173.833800_r8, 30.025200_r8, 94.937200_r8, & - 133.402300_r8, 44.051000_r8, 50.485900_r8, 41.050940_r8, 58.076800_r8, & - 72.061400_r8, 60.050400_r8, 76.049800_r8, 32.040000_r8, 48.039400_r8, & - 16.040600_r8, 252.730400_r8, 35.452700_r8, 70.905400_r8, 102.904200_r8, & - 51.452100_r8, 97.457640_r8, 100.916850_r8, 28.010400_r8, 44.009800_r8, & - 66.007206_r8, 82.461503_r8, 108.135600_r8, 62.132400_r8, 135.064039_r8, & - 135.064039_r8, 135.064039_r8, 28.010400_r8, 78.064600_r8, 18.998403_r8, & - 60.050400_r8, 58.035600_r8, 1.007400_r8, 2.014800_r8, 259.823613_r8, & - 34.013600_r8, 98.078400_r8, 80.911400_r8, 116.948003_r8, 100.493706_r8, & - 86.467906_r8, 36.460100_r8, 27.025140_r8, 46.024600_r8, 20.005803_r8, & - 63.012340_r8, 79.011740_r8, 96.910800_r8, 52.459500_r8, 135.114940_r8, & - 116.112400_r8, 74.076200_r8, 100.113000_r8, 118.127200_r8, 68.114200_r8, & - 147.125940_r8, 147.125940_r8, 162.117940_r8, 163.125340_r8, 117.119800_r8, & - 118.127200_r8, 184.350200_r8, 233.355800_r8, 184.350200_r8, 233.355800_r8, & + adv_mass(:278) = (/ 133.141340_r8, 104.142600_r8, 28.010400_r8, 12.011000_r8, 12.011000_r8, & + 204.342600_r8, 78.110400_r8, 160.122200_r8, 126.108600_r8, 98.098200_r8, & + 84.072400_r8, 98.098200_r8, 98.098200_r8, 112.124000_r8, 72.143800_r8, & + 56.103200_r8, 79.904000_r8, 115.356700_r8, 95.903400_r8, 141.908940_r8, & + 99.716850_r8, 106.120800_r8, 124.135000_r8, 26.036800_r8, 28.051600_r8, & + 46.065800_r8, 62.065200_r8, 30.066400_r8, 42.077400_r8, 76.091000_r8, & + 44.092200_r8, 110.109200_r8, 153.821800_r8, 165.364506_r8, 148.910210_r8, & + 137.367503_r8, 187.375310_r8, 170.921013_r8, 154.466716_r8, 120.913206_r8, & + 173.833800_r8, 30.025200_r8, 94.937200_r8, 133.402300_r8, 44.051000_r8, & + 50.485900_r8, 41.050940_r8, 58.076800_r8, 72.061400_r8, 60.050400_r8, & + 76.049800_r8, 32.040000_r8, 48.039400_r8, 16.040600_r8, 252.730400_r8, & + 35.452700_r8, 70.905400_r8, 102.904200_r8, 51.452100_r8, 97.457640_r8, & + 100.916850_r8, 28.010400_r8, 44.009800_r8, 66.007206_r8, 82.461503_r8, & + 108.135600_r8, 62.132400_r8, 135.064039_r8, 135.064039_r8, 135.064039_r8, & + 28.010400_r8, 78.064600_r8, 18.998403_r8, 60.050400_r8, 58.035600_r8, & + 1.007400_r8, 2.014800_r8, 259.823613_r8, 34.013600_r8, 98.078400_r8, & + 80.911400_r8, 116.948003_r8, 100.493706_r8, 86.467906_r8, 36.460100_r8, & + 27.025140_r8, 46.024600_r8, 20.005803_r8, 63.012340_r8, 79.011740_r8, & + 96.910800_r8, 52.459500_r8, 135.114940_r8, 116.112400_r8, 74.076200_r8, & + 100.113000_r8, 118.127200_r8, 68.114200_r8, 147.125940_r8, 147.125940_r8, & + 162.117940_r8, 163.125340_r8, 118.127200_r8, 184.350200_r8, 184.350200_r8, & 70.087800_r8, 120.100800_r8, 72.102600_r8, 104.101400_r8, 147.084740_r8, & - 136.228400_r8, 185.234000_r8, 70.087800_r8, 14.006740_r8, 44.012880_r8, & - 108.010480_r8, 147.125940_r8, 145.111140_r8, 58.442468_r8, 58.442468_r8, & - 58.442468_r8, 17.028940_r8, 18.036340_r8, 28.010400_r8, 28.010400_r8, & - 30.006140_r8, 46.005540_r8, 62.004940_r8, 119.074340_r8, 231.239540_r8, & - 1.007400_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, & - 15.999400_r8, 31.998800_r8, 47.998200_r8, 47.998200_r8, 67.451500_r8, & - 60.076400_r8, 133.100140_r8, 121.047940_r8, 183.117740_r8, 93.102400_r8, & - 94.109800_r8, 176.121600_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 92.090400_r8, 90.075600_r8, 32.066000_r8, 146.056419_r8, & - 48.065400_r8, 64.064800_r8, 80.064200_r8, 115.107340_r8, 115.107340_r8, & - 115.107340_r8, 115.107340_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & + 136.228400_r8, 70.087800_r8, 14.006740_r8, 44.012880_r8, 108.010480_r8, & + 147.125940_r8, 145.111140_r8, 58.442468_r8, 58.442468_r8, 58.442468_r8, & + 17.028940_r8, 18.036340_r8, 28.010400_r8, 28.010400_r8, 30.006140_r8, & + 46.005540_r8, 62.004940_r8, 119.074340_r8, 231.239540_r8, 1.007400_r8, & + 1.007400_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, 15.999400_r8, & + 31.998800_r8, 47.998200_r8, 47.998200_r8, 67.451500_r8, 60.076400_r8, & + 133.100140_r8, 121.047940_r8, 183.117740_r8, 93.102400_r8, 94.109800_r8, & + 176.121600_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 12.011000_r8, 92.090400_r8, 90.075600_r8, 32.066000_r8, & + 146.056419_r8, 48.065400_r8, 64.064800_r8, 80.064200_r8, 115.107340_r8, & + 115.107340_r8, 115.107340_r8, 115.107340_r8, 250.445000_r8, 250.445000_r8, & 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & @@ -135,55 +134,55 @@ subroutine set_sim_dat 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, 250.445000_r8, & - 250.445000_r8, 250.445000_r8, 28.010400_r8, 310.582400_r8, 310.582400_r8, & - 140.134400_r8, 200.226000_r8, 215.240140_r8, 186.241400_r8, 168.227200_r8, & - 154.201400_r8, 174.148000_r8, 92.136200_r8, 173.140600_r8, 150.126000_r8, & - 106.162000_r8, 188.173800_r8, 187.166400_r8, 122.161400_r8, 204.173200_r8, & - 14.006740_r8, 14.006740_r8, 137.112200_r8, 103.135200_r8, 159.114800_r8, & - 123.127600_r8, 61.057800_r8, 75.083600_r8, 109.101800_r8, 75.042400_r8, & - 47.032000_r8, 129.089600_r8, 0.548567E-03_r8, 105.108800_r8, 61.057800_r8, & - 77.057200_r8, 33.006200_r8, 63.031400_r8, 117.119800_r8, 117.119800_r8, & - 119.093400_r8, 115.063800_r8, 101.079200_r8, 117.078600_r8, 103.094000_r8, & + 250.445000_r8, 250.445000_r8, 250.445000_r8, 28.010400_r8, 310.582400_r8, & + 310.582400_r8, 140.134400_r8, 200.226000_r8, 215.240140_r8, 186.241400_r8, & + 168.227200_r8, 154.201400_r8, 174.148000_r8, 92.136200_r8, 150.126000_r8, & + 106.162000_r8, 188.173800_r8, 122.161400_r8, 204.173200_r8, 14.006740_r8, & + 14.006740_r8, 137.112200_r8, 103.135200_r8, 253.348200_r8, 159.114800_r8, & + 159.114800_r8, 123.127600_r8, 61.057800_r8, 75.083600_r8, 109.101800_r8, & + 75.042400_r8, 47.032000_r8, 129.089600_r8, 0.548567E-03_r8, 105.108800_r8, & + 61.057800_r8, 77.057200_r8, 33.006200_r8, 63.031400_r8, 117.119800_r8, & + 117.119800_r8, 117.119800_r8, 233.355800_r8, 233.355800_r8, 119.093400_r8, & + 115.063800_r8, 101.079200_r8, 117.078600_r8, 103.094000_r8, 185.234000_r8, & 14.006740_r8, 28.013480_r8, 30.006140_r8, 14.006740_r8, 230.232140_r8, & 15.999400_r8, 31.998800_r8, 31.998800_r8, 31.998800_r8, 17.006800_r8, & 15.999400_r8, 175.114200_r8, 91.083000_r8, 89.068200_r8, 199.218600_r8, & - 185.234000_r8, 173.140600_r8, 149.118600_r8, 187.166400_r8, 203.165800_r8, & - 18.014200_r8 /) + 185.234000_r8, 173.140600_r8, 173.140600_r8, 149.118600_r8, 187.166400_r8, & + 187.166400_r8, 203.165800_r8, 18.014200_r8 /) - crb_mass(:276) = (/ 60.055000_r8, 60.055000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & - 180.165000_r8, 180.165000_r8, 72.066000_r8, 72.066000_r8, 72.066000_r8, & - 72.066000_r8, 60.055000_r8, 48.044000_r8, 60.055000_r8, 60.055000_r8, & - 72.066000_r8, 60.055000_r8, 48.044000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 84.077000_r8, 84.077000_r8, & - 24.022000_r8, 24.022000_r8, 24.022000_r8, 24.022000_r8, 24.022000_r8, & - 36.033000_r8, 36.033000_r8, 36.033000_r8, 72.066000_r8, 12.011000_r8, & + crb_mass(:278) = (/ 60.055000_r8, 60.055000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 180.165000_r8, 72.066000_r8, 72.066000_r8, 72.066000_r8, 60.055000_r8, & + 48.044000_r8, 60.055000_r8, 60.055000_r8, 72.066000_r8, 60.055000_r8, & + 48.044000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 84.077000_r8, 84.077000_r8, 24.022000_r8, 24.022000_r8, & + 24.022000_r8, 24.022000_r8, 24.022000_r8, 36.033000_r8, 36.033000_r8, & + 36.033000_r8, 72.066000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 24.022000_r8, 24.022000_r8, 24.022000_r8, 12.011000_r8, & 12.011000_r8, 12.011000_r8, 12.011000_r8, 24.022000_r8, 24.022000_r8, & + 12.011000_r8, 24.022000_r8, 36.033000_r8, 36.033000_r8, 24.022000_r8, & 24.022000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & - 24.022000_r8, 24.022000_r8, 12.011000_r8, 24.022000_r8, 36.033000_r8, & - 36.033000_r8, 24.022000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, & + 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 84.077000_r8, 24.022000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 12.011000_r8, 24.022000_r8, 0.000000_r8, 24.022000_r8, 24.022000_r8, & + 0.000000_r8, 0.000000_r8, 24.022000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 24.022000_r8, 24.022000_r8, 12.011000_r8, 0.000000_r8, & 12.011000_r8, 12.011000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 84.077000_r8, 24.022000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 12.011000_r8, 24.022000_r8, 0.000000_r8, & - 24.022000_r8, 24.022000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, 24.022000_r8, & - 12.011000_r8, 0.000000_r8, 12.011000_r8, 12.011000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 48.044000_r8, & - 60.055000_r8, 36.033000_r8, 60.055000_r8, 60.055000_r8, 60.055000_r8, & + 0.000000_r8, 0.000000_r8, 48.044000_r8, 60.055000_r8, 36.033000_r8, & 60.055000_r8, 60.055000_r8, 60.055000_r8, 60.055000_r8, 60.055000_r8, & - 60.055000_r8, 156.143000_r8, 156.143000_r8, 156.143000_r8, 156.143000_r8, & + 60.055000_r8, 60.055000_r8, 60.055000_r8, 156.143000_r8, 156.143000_r8, & 48.044000_r8, 48.044000_r8, 48.044000_r8, 48.044000_r8, 48.044000_r8, & - 120.110000_r8, 120.110000_r8, 48.044000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 60.055000_r8, 60.055000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 12.011000_r8, 12.011000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 36.033000_r8, 120.110000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 120.110000_r8, 48.044000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 60.055000_r8, 60.055000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 0.000000_r8, 12.011000_r8, 12.011000_r8, 0.000000_r8, & + 0.000000_r8, 0.000000_r8, 36.033000_r8, 120.110000_r8, 0.000000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & - 12.011000_r8, 48.044000_r8, 24.022000_r8, 84.077000_r8, 72.066000_r8, & - 72.066000_r8, 72.066000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 36.033000_r8, 36.033000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 12.011000_r8, & + 48.044000_r8, 24.022000_r8, 84.077000_r8, 72.066000_r8, 72.066000_r8, & + 72.066000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 12.011000_r8, 36.033000_r8, 36.033000_r8, 0.000000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & + 0.000000_r8, 0.000000_r8, 0.000000_r8, 180.165000_r8, 180.165000_r8, & 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & @@ -192,25 +191,26 @@ subroutine set_sim_dat 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, 180.165000_r8, & - 180.165000_r8, 180.165000_r8, 12.011000_r8, 264.242000_r8, 264.242000_r8, & - 84.077000_r8, 120.110000_r8, 120.110000_r8, 120.110000_r8, 120.110000_r8, & - 108.099000_r8, 84.077000_r8, 84.077000_r8, 84.077000_r8, 60.055000_r8, & - 96.088000_r8, 96.088000_r8, 96.088000_r8, 96.088000_r8, 96.088000_r8, & - 0.000000_r8, 0.000000_r8, 84.077000_r8, 60.055000_r8, 72.066000_r8, & - 84.077000_r8, 24.022000_r8, 36.033000_r8, 72.066000_r8, 24.022000_r8, & - 12.011000_r8, 60.055000_r8, 0.000000_r8, 48.044000_r8, 24.022000_r8, & - 24.022000_r8, 0.000000_r8, 12.011000_r8, 60.055000_r8, 60.055000_r8, & - 48.044000_r8, 48.044000_r8, 48.044000_r8, 48.044000_r8, 48.044000_r8, & + 180.165000_r8, 180.165000_r8, 180.165000_r8, 12.011000_r8, 264.242000_r8, & + 264.242000_r8, 84.077000_r8, 120.110000_r8, 120.110000_r8, 120.110000_r8, & + 120.110000_r8, 108.099000_r8, 84.077000_r8, 84.077000_r8, 60.055000_r8, & + 96.088000_r8, 96.088000_r8, 96.088000_r8, 96.088000_r8, 0.000000_r8, & + 0.000000_r8, 84.077000_r8, 60.055000_r8, 180.165000_r8, 72.066000_r8, & + 72.066000_r8, 84.077000_r8, 24.022000_r8, 36.033000_r8, 72.066000_r8, & + 24.022000_r8, 12.011000_r8, 60.055000_r8, 0.000000_r8, 48.044000_r8, & + 24.022000_r8, 24.022000_r8, 0.000000_r8, 12.011000_r8, 60.055000_r8, & + 60.055000_r8, 60.055000_r8, 156.143000_r8, 156.143000_r8, 48.044000_r8, & + 48.044000_r8, 48.044000_r8, 48.044000_r8, 48.044000_r8, 120.110000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 120.110000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & 0.000000_r8, 72.066000_r8, 36.033000_r8, 36.033000_r8, 120.110000_r8, & - 120.110000_r8, 84.077000_r8, 60.055000_r8, 96.088000_r8, 96.088000_r8, & - 0.000000_r8 /) + 120.110000_r8, 84.077000_r8, 84.077000_r8, 60.055000_r8, 96.088000_r8, & + 96.088000_r8, 96.088000_r8, 0.000000_r8 /) fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 2,1) = (/ 231, 232 /) - clsmap(:274,4) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & + clsmap(: 2,1) = (/ 225, 226 /) + clsmap(:276,4) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & @@ -232,96 +232,96 @@ subroutine set_sim_dat 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, & 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, & 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, & - 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, & + 221, 222, 223, 224, 227, 228, 229, 230, 231, 232, & 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, & 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, & 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, & 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, & - 273, 274, 275, 276 /) + 273, 274, 275, 276, 277, 278 /) - permute(:274,4) = (/ 191, 192, 1, 2, 3, 225, 75, 107, 81, 155, & - 108, 158, 164, 134, 188, 144, 120, 149, 256, 121, & - 258, 179, 4, 123, 142, 133, 181, 130, 143, 135, & - 234, 153, 136, 131, 90, 102, 103, 93, 104, 94, & - 105, 95, 166, 273, 182, 96, 235, 148, 91, 230, & - 245, 196, 183, 207, 156, 265, 157, 267, 106, 92, & - 259, 223, 5, 236, 252, 119, 126, 113, 138, 6, & - 7, 8, 9, 100, 219, 237, 227, 268, 253, 97, & - 184, 99, 210, 125, 127, 139, 255, 116, 216, 137, & - 269, 167, 205, 209, 239, 124, 240, 147, 98, 214, & - 185, 178, 243, 154, 73, 197, 67, 66, 83, 82, & - 244, 146, 173, 145, 187, 222, 74, 249, 224, 128, & - 132, 162, 231, 10, 11, 12, 89, 13, 14, 15, & - 261, 260, 264, 215, 152, 16, 17, 18, 19, 20, & - 272, 257, 271, 21, 140, 150, 122, 176, 101, 169, & - 109, 141, 22, 23, 24, 25, 177, 151, 199, 26, & - 254, 221, 129, 27, 28, 29, 30, 31, 32, 33, & - 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, & - 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, & - 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, & - 64, 65, 68, 69, 70, 71, 72, 76, 77, 78, & - 79, 80, 84, 85, 86, 114, 194, 189, 168, 229, & - 233, 186, 112, 87, 115, 117, 198, 88, 118, 159, & - 174, 226, 170, 160, 217, 220, 190, 251, 270, 203, & - 213, 180, 165, 204, 266, 161, 246, 247, 248, 200, & - 250, 218, 193, 175, 195, 211, 171, 232, 262, 110, & - 111, 212, 263, 206, 163, 208, 241, 238, 228, 201, & - 242, 202, 172, 274 /) + permute(:276,4) = (/ 196, 194, 1, 2, 3, 227, 109, 158, 110, 164, & + 166, 139, 187, 149, 121, 150, 258, 122, 260, 182, & + 4, 124, 143, 134, 177, 130, 144, 135, 236, 154, & + 136, 132, 92, 101, 102, 95, 103, 96, 104, 97, & + 168, 274, 190, 98, 237, 151, 93, 232, 247, 198, & + 188, 210, 156, 261, 157, 265, 108, 94, 275, 226, & + 5, 238, 254, 126, 128, 115, 138, 6, 7, 8, & + 9, 106, 221, 239, 229, 268, 255, 99, 185, 107, & + 211, 127, 129, 140, 257, 118, 219, 141, 271, 173, & + 206, 212, 241, 125, 242, 145, 105, 217, 184, 179, & + 245, 155, 203, 85, 87, 246, 147, 175, 146, 183, & + 224, 251, 225, 133, 137, 159, 233, 10, 11, 12, & + 91, 13, 14, 15, 264, 262, 273, 216, 163, 16, & + 17, 18, 19, 20, 266, 259, 267, 21, 148, 152, & + 123, 178, 100, 171, 111, 142, 22, 23, 24, 25, & + 26, 27, 180, 153, 199, 28, 256, 223, 131, 29, & + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, & + 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, & + 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, & + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, & + 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, & + 80, 116, 195, 191, 169, 231, 235, 186, 114, 117, & + 119, 200, 120, 160, 176, 228, 81, 170, 82, 161, & + 218, 222, 192, 253, 269, 205, 215, 181, 167, 207, & + 272, 162, 248, 249, 83, 84, 86, 250, 201, 252, & + 220, 197, 88, 193, 189, 213, 172, 234, 270, 112, & + 113, 214, 263, 208, 165, 209, 243, 240, 230, 202, & + 89, 244, 204, 90, 174, 276 /) - diag_map(:274) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & + diag_map(:276) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, & 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & - 61, 62, 63, 64, 65, 71, 73, 74, 75, 76, & - 77, 78, 84, 90, 96, 97, 98, 99, 100, 101, & - 107, 113, 115, 116, 122, 128, 134, 140, 141, 144, & - 147, 150, 153, 157, 161, 165, 169, 173, 176, 179, & - 182, 185, 190, 195, 200, 205, 208, 214, 218, 223, & - 226, 229, 236, 241, 245, 248, 254, 262, 267, 270, & - 273, 276, 279, 282, 287, 292, 297, 302, 307, 311, & - 315, 319, 325, 331, 334, 340, 346, 349, 356, 362, & - 367, 373, 378, 383, 388, 393, 398, 401, 409, 417, & - 425, 431, 437, 443, 449, 455, 461, 467, 473, 481, & - 487, 493, 500, 506, 509, 514, 521, 528, 535, 541, & - 548, 556, 563, 569, 575, 580, 588, 596, 604, 612, & - 620, 628, 637, 644, 651, 662, 671, 680, 684, 692, & - 699, 710, 721, 728, 739, 749, 755, 766, 777, 784, & - 795, 811, 822, 832, 841, 849, 857, 862, 873, 880, & - 889, 897, 909, 920, 936, 942, 950, 959, 969, 979, & - 991,1006,1027,1043,1062,1086,1098,1106,1116,1124, & - 1134,1150,1163,1177,1195,1204,1210,1222,1239,1252, & - 1261,1277,1297,1313,1325,1343,1376,1400,1420,1441, & - 1472,1494,1505,1520,1539,1555,1586,1609,1636,1681, & - 1788,1832,2006,2067,2093,2214,2261,2283,2307,2360, & - 2425,2469,2496,2524 /) + 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, & + 71, 72, 73, 74, 75, 76, 77, 78, 84, 90, & + 96, 102, 108, 114, 116, 122, 124, 130, 136, 142, & + 143, 146, 149, 152, 155, 159, 163, 167, 171, 175, & + 178, 183, 188, 193, 198, 201, 204, 207, 210, 216, & + 220, 225, 228, 231, 238, 243, 247, 250, 256, 264, & + 269, 272, 275, 278, 281, 286, 289, 294, 299, 304, & + 309, 313, 317, 321, 327, 333, 339, 345, 351, 355, & + 361, 364, 370, 375, 380, 383, 388, 393, 398, 403, & + 411, 419, 427, 433, 439, 445, 451, 457, 463, 469, & + 477, 483, 489, 495, 502, 508, 511, 516, 523, 532, & + 539, 543, 550, 558, 565, 571, 577, 585, 593, 601, & + 609, 617, 625, 634, 643, 652, 661, 665, 672, 681, & + 690, 698, 704, 711, 721, 732, 743, 750, 755, 766, & + 777, 788, 799, 812, 823, 832, 842, 850, 859, 869, & + 873, 882, 890, 898, 910, 918, 927, 946, 955, 960, & + 970, 980, 992,1007,1032,1044,1063,1087,1099,1107, & + 1117,1125,1135,1151,1164,1178,1196,1205,1211,1223, & + 1240,1253,1262,1278,1298,1314,1326,1344,1377,1401, & + 1421,1442,1473,1495,1506,1521,1540,1556,1587,1610, & + 1634,1680,1854,1962,2009,2053,2118,2140,2193,2237, & + 2261,2382,2443,2470,2498,2526 /) - extfrc_lst(: 27) = (/ 'CO ','bc_a4 ','num_a1 ','num_a2 ','num_a4 ', & - 'num_a5 ','pombb1_a1 ','pombb1_a4 ','pomff1_a1 ','pomff1_a4 ', & - 'NO ','NO2 ','SO2 ','SVOCbb ','SVOCff ', & - 'so4_a1 ','so4_a2 ','so4_a5 ','bc_a1 ','e ', & - 'N ','N2D ','OH ','Op ','AOA_NH ', & - 'N2p ','Np ' /) + extfrc_lst(: 25) = (/ 'CO ','pombb1_a4 ','SO2 ','NO2 ','bc_a1 ', & + 'NO ','num_a1 ','num_a2 ','so4_a1 ','so4_a2 ', & + 'pombb1_a1 ','pomff1_a1 ','num_a4 ','pomff1_a4 ','bc_a4 ', & + 'SVOCbb ','SVOCff ','Op ','N2p ','Np ', & + 'N2D ','e ','AOA_NH ','N ','OH ' /) - frc_from_dataset(: 27) = (/ .true., .true., .true., .true., .true., & + frc_from_dataset(: 25) = (/ .true., .true., .true., .true., .true., & .true., .true., .true., .true., .true., & .true., .true., .true., .true., .true., & - .true., .true., .true., .true., .false., & - .false., .false., .false., .false., .false., & - .false., .false. /) + .true., .true., .false., .false., .false., & + .false., .false., .false., .false., .false. /) inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 43) = (/ 'ACBZO2 ', 'ALKO2 ', 'BENZO2 ', 'BZOO ', 'C2H5O2 ', & - 'C3H7O2 ', 'C6H5O2 ', 'CH3CO3 ', 'CH3O2 ', 'DICARBO2 ', & - 'e ', 'ENEO2 ', 'EO ', 'EO2 ', 'HO2 ', & - 'HOCH2OO ', 'ISOPAO2 ', 'ISOPBO2 ', 'MACRO2 ', 'MALO2 ', & - 'MCO3 ', 'MDIALO2 ', 'MEKO2 ', 'N2D ', 'N2p ', & - 'NOp ', 'Np ', 'NTERPO2 ', 'O1D ', 'O2_1D ', & - 'O2_1S ', 'O2p ', 'OH ', 'Op ', 'PHENO2 ', & - 'PO2 ', 'RO2 ', 'TERP2O2 ', 'TERPO2 ', 'TOLO2 ', & - 'XO2 ', 'XYLENO2 ', 'XYLOLO2 ' /) + slvd_lst(: 51) = (/ 'ACBZO2 ', 'ALKO2 ', 'BCARYO2VBS ', 'BENZO2 ', 'BENZO2VBS ', & + 'BZOO ', 'C2H5O2 ', 'C3H7O2 ', 'C6H5O2 ', 'CH3CO3 ', & + 'CH3O2 ', 'DICARBO2 ', 'e ', 'ENEO2 ', 'EO ', & + 'EO2 ', 'HO2 ', 'HOCH2OO ', 'ISOPAO2 ', 'ISOPBO2 ', & + 'ISOPO2VBS ', 'IVOCbbO2VBS ', 'IVOCffO2VBS ', 'MACRO2 ', 'MALO2 ', & + 'MCO3 ', 'MDIALO2 ', 'MEKO2 ', 'MTERPO2VBS ', 'N2D ', & + 'N2p ', 'NOp ', 'Np ', 'NTERPO2 ', 'O1D ', & + 'O2_1D ', 'O2_1S ', 'O2p ', 'OH ', 'Op ', & + 'PHENO2 ', 'PO2 ', 'RO2 ', 'TERP2O2 ', 'TERPO2 ', & + 'TOLO2 ', 'TOLUO2VBS ', 'XO2 ', 'XYLENO2 ', 'XYLEO2VBS ', & + 'XYLOLO2 ' /) if( allocated( rxt_tag_lst ) ) then deallocate( rxt_tag_lst ) @@ -442,10 +442,10 @@ subroutine set_sim_dat rxt_tag_lst( 201: 400) = (/ 'OH_HO2 ', 'OH_O ', & 'OH_O3 ', 'OH_OH ', & 'OH_OH_M ', 'usr_HO2_HO2 ', & - 'HO2NO2_OH ', 'N2D_O ', & - 'N2D_O2 ', 'N_NO ', & - 'N_NO2a ', 'N_NO2b ', & - 'N_NO2c ', 'N_O2 ', & + 'agn2d ', 'HO2NO2_OH ', & + 'N2D_NO ', 'N2D_O ', & + 'N_NO ', 'N_NO2a ', & + 'N_NO2b ', 'N_NO2c ', & 'NO2_O ', 'NO2_O3 ', & 'NO2_O_M ', 'NO3_HO2 ', & 'NO3_NO ', 'NO3_O ', & @@ -455,201 +455,202 @@ subroutine set_sim_dat 'O1D_N2Ob ', 'tag_NO2_HO2 ', & 'tag_NO2_NO3 ', 'tag_NO2_OH ', & 'usr_HNO3_OH ', 'usr_HO2NO2_M ', & - 'usr_N2O5_M ', 'CL_CH2O ', & - 'CL_CH4 ', 'CL_H2 ', & - 'CL_H2O2 ', 'CL_HO2a ', & - 'CL_HO2b ', 'CL_O3 ', & - 'CLO_CH3O2 ', 'CLO_CLOa ', & - 'CLO_CLOb ', 'CLO_CLOc ', & - 'CLO_HO2 ', 'CLO_NO ', & - 'CLONO2_CL ', 'CLO_NO2_M ', & - 'CLONO2_O ', 'CLONO2_OH ', & - 'CLO_O ', 'CLO_OHa ', & - 'CLO_OHb ', 'HCL_O ', & - 'HCL_OH ', 'HOCL_CL ', & - 'HOCL_O ', 'HOCL_OH ', & - 'O1D_CCL4 ', 'O1D_CF2CLBR ', & - 'O1D_CFC11 ', 'O1D_CFC113 ', & - 'O1D_CFC114 ', 'O1D_CFC115 ', & - 'O1D_CFC12 ', 'O1D_HCLa ', & - 'O1D_HCLb ', 'tag_CLO_CLO_M ', & - 'usr_CL2O2_M ', 'BR_CH2O ', & - 'BR_HO2 ', 'BR_O3 ', & - 'BRO_BRO ', 'BRO_CLOa ', & - 'BRO_CLOb ', 'BRO_CLOc ', & - 'BRO_HO2 ', 'BRO_NO ', & - 'BRO_NO2_M ', 'BRONO2_O ', & - 'BRO_O ', 'BRO_OH ', & - 'HBR_O ', 'HBR_OH ', & - 'HOBR_O ', 'O1D_CF3BR ', & - 'O1D_CHBR3 ', 'O1D_H2402 ', & - 'O1D_HBRa ', 'O1D_HBRb ', & - 'F_CH4 ', 'F_H2 ', & - 'F_H2O ', 'F_HNO3 ', & - 'O1D_COF2 ', 'O1D_COFCL ', & - 'CH2BR2_CL ', 'CH2BR2_OH ', & - 'CH3BR_CL ', 'CH3BR_OH ', & - 'CH3CCL3_OH ', 'CH3CL_CL ', & - 'CH3CL_OH ', 'CHBR3_CL ', & - 'CHBR3_OH ', 'HCFC141B_OH ', & - 'HCFC142B_OH ', 'HCFC22_OH ', & - 'O1D_CH2BR2 ', 'O1D_CH3BR ', & - 'O1D_HCFC141B ', 'O1D_HCFC142B ', & - 'O1D_HCFC22 ', 'CH2O_HO2 ', & - 'CH2O_NO3 ', 'CH2O_O ', & - 'CH2O_OH ', 'CH3O2_CH3O2a ', & - 'CH3O2_CH3O2b ', 'CH3O2_HO2 ', & - 'CH3O2_NO ', 'CH3OH_OH ', & - 'CH3OOH_OH ', 'CH4_OH ', & - 'HCN_OH ', 'HCOOH_OH ', & - 'HOCH2OO_HO2 ', 'HOCH2OO_M ', & - 'HOCH2OO_NO ', 'O1D_CH4a ', & - 'O1D_CH4b ', 'O1D_CH4c ', & - 'O1D_HCN ', 'usr_CO_OH ', & - 'C2H2_CL_M ', 'C2H2_OH_M ', & - 'C2H4_CL_M ', 'C2H4_O3 ', & - 'C2H5O2_C2H5O2 ', 'C2H5O2_CH3O2 ', & - 'C2H5O2_HO2 ', 'C2H5O2_NO ', & - 'C2H5OH_OH ', 'C2H5OOH_OH ', & - 'C2H6_CL ', 'C2H6_OH ', & - 'CH3CHO_NO3 ', 'CH3CHO_OH ', & - 'CH3CN_OH ', 'CH3CO3_CH3CO3 ', & - 'CH3CO3_CH3O2 ', 'CH3CO3_HO2 ', & - 'CH3CO3_NO ', 'CH3COOH_OH ', & - 'CH3COOOH_OH ', 'EO2_HO2 ', & - 'EO2_NO ', 'EO_M ', & - 'EO_O2 ', 'GLYALD_OH ', & - 'GLYOXAL_OH ', 'PAN_OH ', & - 'tag_C2H4_OH ', 'tag_CH3CO3_NO2 ', & - 'usr_PAN_M ', 'C3H6_NO3 ', & - 'C3H6_O3 ', 'C3H7O2_CH3O2 ', & - 'C3H7O2_HO2 ', 'C3H7O2_NO ', & - 'C3H7OOH_OH ', 'C3H8_OH ', & - 'CH3COCHO_NO3 ', 'CH3COCHO_OH ', & - 'CL_C3H8 ', 'HYAC_OH ', & - 'NOA_OH ', 'PO2_HO2 ', & - 'PO2_NO ', 'POOH_OH ', & - 'RO2_CH3O2 ', 'RO2_HO2 ', & - 'RO2_NO ', 'ROOH_OH ', & - 'tag_C3H6_OH ', 'usr_CH3COCH3_OH ', & - 'BIGENE_NO3 ', 'BIGENE_OH ', & - 'ENEO2_NO ', 'ENEO2_NOb ', & - 'HONITR_OH ', 'MACRO2_CH3CO3 ', & - 'MACRO2_CH3O2 ', 'MACRO2_HO2 ', & - 'MACRO2_NO3 ', 'MACRO2_NOa ', & - 'MACRO2_NOb ', 'MACR_O3 ', & - 'MACR_OH ', 'MACROOH_OH ' /) - rxt_tag_lst( 401: 600) = (/ 'MCO3_CH3CO3 ', 'MCO3_CH3O2 ', & - 'MCO3_HO2 ', 'MCO3_MCO3 ', & - 'MCO3_NO ', 'MCO3_NO3 ', & - 'MEKO2_HO2 ', 'MEKO2_NO ', & - 'MEK_OH ', 'MEKOOH_OH ', & - 'MPAN_OH_M ', 'MVK_O3 ', & - 'MVK_OH ', 'tag_MCO3_NO2 ', & - 'usr_MPAN_M ', 'ALKNIT_OH ', & - 'ALKO2_HO2 ', 'ALKO2_NO ', & - 'ALKO2_NOb ', 'ALKOOH_OH ', & - 'BIGALK_OH ', 'HPALD_OH ', & - 'HYDRALD_OH ', 'IEPOX_OH ', & - 'ISOPAO2_CH3CO3 ', 'ISOPAO2_CH3O2 ', & - 'ISOPAO2_HO2 ', 'ISOPAO2_NO ', & - 'ISOPAO2_NO3 ', 'ISOPBO2_CH3CO3 ', & - 'ISOPBO2_CH3O2 ', 'ISOPBO2_HO2 ', & - 'ISOPBO2_M ', 'ISOPBO2_NO ', & - 'ISOPBO2_NO3 ', 'ISOPNITA_OH ', & - 'ISOPNITB_OH ', 'ISOP_NO3 ', & - 'ISOPNO3_CH3CO3 ', 'ISOPNO3_CH3O2 ', & - 'ISOPNO3_HO2 ', 'ISOPNO3_NO ', & - 'ISOPNO3_NO3 ', 'ISOPNOOH_OH ', & - 'ISOP_O3 ', 'ISOP_OH ', & - 'ISOPOOH_OH ', 'NC4CH2OH_OH ', & - 'NC4CHO_OH ', 'XO2_CH3CO3 ', & - 'XO2_CH3O2 ', 'XO2_HO2 ', & - 'XO2_NO ', 'XO2_NO3 ', & - 'XOOH_OH ', 'ACBZO2_HO2 ', & - 'ACBZO2_NO ', 'BENZENE_OH ', & - 'BENZO2_HO2 ', 'BENZO2_NO ', & - 'BENZOOH_OH ', 'BZALD_OH ', & - 'BZOO_HO2 ', 'BZOOH_OH ', & - 'BZOO_NO ', 'C6H5O2_HO2 ', & - 'C6H5O2_NO ', 'C6H5OOH_OH ', & - 'CRESOL_OH ', 'DICARBO2_HO2 ', & - 'DICARBO2_NO ', 'DICARBO2_NO2 ', & - 'MALO2_HO2 ', 'MALO2_NO ', & - 'MALO2_NO2 ', 'MDIALO2_HO2 ', & - 'MDIALO2_NO ', 'MDIALO2_NO2 ', & - 'PHENO2_HO2 ', 'PHENO2_NO ', & - 'PHENOL_OH ', 'PHENO_NO2 ', & - 'PHENO_O3 ', 'PHENOOH_OH ', & - 'tag_ACBZO2_NO2 ', 'TOLO2_HO2 ', & - 'TOLO2_NO ', 'TOLOOH_OH ', & - 'TOLUENE_OH ', 'usr_PBZNIT_M ', & - 'XYLENES_OH ', 'XYLENO2_HO2 ', & - 'XYLENO2_NO ', 'XYLENOOH_OH ', & - 'XYLOLO2_HO2 ', 'XYLOLO2_NO ', & - 'XYLOL_OH ', 'XYLOLOOH_OH ', & - 'BCARY_NO3 ', 'BCARY_O3 ', & - 'BCARY_OH ', 'MTERP_NO3 ', & - 'MTERP_O3 ', 'MTERP_OH ', & - 'NTERPO2_CH3O2 ', 'NTERPO2_HO2 ', & - 'NTERPO2_NO ', 'NTERPO2_NO3 ', & - 'NTERPOOH_OH ', 'TERP2O2_CH3O2 ', & - 'TERP2O2_HO2 ', 'TERP2O2_NO ', & - 'TERP2OOH_OH ', 'TERPNIT_OH ', & - 'TERPO2_CH3O2 ', 'TERPO2_HO2 ', & - 'TERPO2_NO ', 'TERPOOH_OH ', & - 'TERPROD1_NO3 ', 'TERPROD1_OH ', & - 'TERPROD2_OH ', 'DMS_NO3 ', & - 'DMS_OHa ', 'OCS_O ', & - 'OCS_OH ', 'S_O2 ', & - 'SO2_OH_M ', 'S_O3 ', & - 'SO_BRO ', 'SO_CLO ', & - 'S_OH ', 'SO_NO2 ', & - 'SO_O2 ', 'SO_O3 ', & - 'SO_OCLO ', 'SO_OH ', & - 'usr_DMS_OH ', 'usr_SO3_H2O ', & - 'NH3_OH ', 'usr_HO2_aer ', & - 'usr_HONITR_aer ', 'usr_ISOPNITA_aer ', & - 'usr_ISOPNITB_aer ', 'usr_N2O5_aer ', & - 'usr_NC4CH2OH_aer ', 'usr_NC4CHO_aer ', & - 'usr_NH4_strat_tau ', 'usr_NO2_aer ', & - 'usr_NO3_aer ', 'usr_NTERPOOH_aer ', & - 'usr_ONITR_aer ', 'usr_TERPNIT_aer ', & - 'BCARY_NO3_vbs ', 'BCARYO2_HO2_vbs ', & - 'BCARYO2_NO_vbs ', 'BCARY_O3_vbs ', & - 'BCARY_OH_vbs ', 'BENZENE_OH_vbs ', & - 'BENZO2_HO2_vbs ', 'BENZO2_NO_vbs ', & - 'ISOP_NO3_vbs ', 'ISOPO2_HO2_vbs ', & - 'ISOPO2_NO_vbs ', 'ISOP_O3_vbs ', & - 'ISOP_OH_vbs ', 'IVOCbbO2_HO2_vbs ', & - 'IVOCbbO2_NO_vbs ', 'IVOCbb_OH_vbs ', & - 'IVOCffO2_HO2_vbs ', 'IVOCffO2_NO_vbs ', & - 'IVOCff_OH_vbs ', 'MTERP_NO3_vbs ', & - 'MTERPO2_HO2_vbs ', 'MTERPO2_NO_vbs ', & - 'MTERP_O3_vbs ', 'MTERP_OH_vbs ', & - 'SVOCbb_OH ', 'SVOCff_OH ', & - 'TOLUENE_OH_vbs ', 'TOLUO2_HO2_vbs ', & - 'TOLUO2_NO_vbs ', 'usr_GLYOXAL_aer ', & - 'XYLENES_OH_vbs ', 'XYLEO2_HO2_vbs ', & - 'XYLEO2_NO_vbs ', 'het1 ', & - 'het10 ', 'het11 ', & - 'het12 ', 'het13 ', & - 'het14 ', 'het15 ', & - 'het16 ', 'het17 ', & - 'het2 ', 'het3 ', & - 'het4 ', 'het5 ', & - 'het6 ', 'het7 ' /) - rxt_tag_lst( 601: 621) = (/ 'het8 ', 'het9 ', & - 'elec1 ', 'elec2 ', & - 'elec3 ', 'ion_N2p_O2 ', & - 'ion_N2p_Oa ', 'ion_N2p_Ob ', & - 'ion_Np_O ', 'ion_Np_O2a ', & - 'ion_Np_O2b ', 'ion_O2p_N ', & - 'ion_O2p_N2 ', 'ion_O2p_NO ', & - 'ion_Op_CO2 ', 'ion_Op_N2 ', & - 'ion_Op_O2 ', 'E90_tau ', & - 'NH_50_tau ', 'NH_5_tau ', & - 'ST80_25_tau ' /) + 'usr_N2D_e ', 'usr_N2D_O2 ', & + 'usr_N2O5_M ', 'usr_N_O2 ', & + 'CL_CH2O ', 'CL_CH4 ', & + 'CL_H2 ', 'CL_H2O2 ', & + 'CL_HO2a ', 'CL_HO2b ', & + 'CL_O3 ', 'CLO_CH3O2 ', & + 'CLO_CLOa ', 'CLO_CLOb ', & + 'CLO_CLOc ', 'CLO_HO2 ', & + 'CLO_NO ', 'CLONO2_CL ', & + 'CLO_NO2_M ', 'CLONO2_O ', & + 'CLONO2_OH ', 'CLO_O ', & + 'CLO_OHa ', 'CLO_OHb ', & + 'HCL_O ', 'HCL_OH ', & + 'HOCL_CL ', 'HOCL_O ', & + 'HOCL_OH ', 'O1D_CCL4 ', & + 'O1D_CF2CLBR ', 'O1D_CFC11 ', & + 'O1D_CFC113 ', 'O1D_CFC114 ', & + 'O1D_CFC115 ', 'O1D_CFC12 ', & + 'O1D_HCLa ', 'O1D_HCLb ', & + 'tag_CLO_CLO_M ', 'usr_CL2O2_M ', & + 'BR_CH2O ', 'BR_HO2 ', & + 'BR_O3 ', 'BRO_BRO ', & + 'BRO_CLOa ', 'BRO_CLOb ', & + 'BRO_CLOc ', 'BRO_HO2 ', & + 'BRO_NO ', 'BRO_NO2_M ', & + 'BRONO2_O ', 'BRO_O ', & + 'BRO_OH ', 'HBR_O ', & + 'HBR_OH ', 'HOBR_O ', & + 'O1D_CF3BR ', 'O1D_CHBR3 ', & + 'O1D_H2402 ', 'O1D_HBRa ', & + 'O1D_HBRb ', 'F_CH4 ', & + 'F_H2 ', 'F_H2O ', & + 'F_HNO3 ', 'O1D_COF2 ', & + 'O1D_COFCL ', 'CH2BR2_CL ', & + 'CH2BR2_OH ', 'CH3BR_CL ', & + 'CH3BR_OH ', 'CH3CCL3_OH ', & + 'CH3CL_CL ', 'CH3CL_OH ', & + 'CHBR3_CL ', 'CHBR3_OH ', & + 'HCFC141B_OH ', 'HCFC142B_OH ', & + 'HCFC22_OH ', 'O1D_CH2BR2 ', & + 'O1D_CH3BR ', 'O1D_HCFC141B ', & + 'O1D_HCFC142B ', 'O1D_HCFC22 ', & + 'CH2O_HO2 ', 'CH2O_NO3 ', & + 'CH2O_O ', 'CH2O_OH ', & + 'CH3O2_CH3O2a ', 'CH3O2_CH3O2b ', & + 'CH3O2_HO2 ', 'CH3O2_NO ', & + 'CH3OH_OH ', 'CH3OOH_OH ', & + 'CH4_OH ', 'HCN_OH ', & + 'HCOOH_OH ', 'HOCH2OO_HO2 ', & + 'HOCH2OO_M ', 'HOCH2OO_NO ', & + 'O1D_CH4a ', 'O1D_CH4b ', & + 'O1D_CH4c ', 'O1D_HCN ', & + 'usr_CO_OH ', 'C2H2_CL_M ', & + 'C2H2_OH_M ', 'C2H4_CL_M ', & + 'C2H4_O3 ', 'C2H5O2_C2H5O2 ', & + 'C2H5O2_CH3O2 ', 'C2H5O2_HO2 ', & + 'C2H5O2_NO ', 'C2H5OH_OH ', & + 'C2H5OOH_OH ', 'C2H6_CL ', & + 'C2H6_OH ', 'CH3CHO_NO3 ', & + 'CH3CHO_OH ', 'CH3CN_OH ', & + 'CH3CO3_CH3CO3 ', 'CH3CO3_CH3O2 ', & + 'CH3CO3_HO2 ', 'CH3CO3_NO ', & + 'CH3COOH_OH ', 'CH3COOOH_OH ', & + 'EO2_HO2 ', 'EO2_NO ', & + 'EO_M ', 'EO_O2 ', & + 'GLYALD_OH ', 'GLYOXAL_OH ', & + 'PAN_OH ', 'tag_C2H4_OH ', & + 'tag_CH3CO3_NO2 ', 'usr_PAN_M ', & + 'C3H6_NO3 ', 'C3H6_O3 ', & + 'C3H7O2_CH3O2 ', 'C3H7O2_HO2 ', & + 'C3H7O2_NO ', 'C3H7OOH_OH ', & + 'C3H8_OH ', 'CH3COCHO_NO3 ', & + 'CH3COCHO_OH ', 'CL_C3H8 ', & + 'HYAC_OH ', 'NOA_OH ', & + 'PO2_HO2 ', 'PO2_NO ', & + 'POOH_OH ', 'RO2_CH3O2 ', & + 'RO2_HO2 ', 'RO2_NO ', & + 'ROOH_OH ', 'tag_C3H6_OH ', & + 'usr_CH3COCH3_OH ', 'BIGENE_NO3 ', & + 'BIGENE_OH ', 'ENEO2_NO ', & + 'ENEO2_NOb ', 'HONITR_OH ', & + 'MACRO2_CH3CO3 ', 'MACRO2_CH3O2 ', & + 'MACRO2_HO2 ', 'MACRO2_NO3 ', & + 'MACRO2_NOa ', 'MACRO2_NOb ' /) + rxt_tag_lst( 401: 600) = (/ 'MACR_O3 ', 'MACR_OH ', & + 'MACROOH_OH ', 'MCO3_CH3CO3 ', & + 'MCO3_CH3O2 ', 'MCO3_HO2 ', & + 'MCO3_MCO3 ', 'MCO3_NO ', & + 'MCO3_NO3 ', 'MEKO2_HO2 ', & + 'MEKO2_NO ', 'MEK_OH ', & + 'MEKOOH_OH ', 'MPAN_OH_M ', & + 'MVK_O3 ', 'MVK_OH ', & + 'tag_MCO3_NO2 ', 'usr_MPAN_M ', & + 'ALKNIT_OH ', 'ALKO2_HO2 ', & + 'ALKO2_NO ', 'ALKO2_NOb ', & + 'ALKOOH_OH ', 'BIGALK_OH ', & + 'HPALD_OH ', 'HYDRALD_OH ', & + 'IEPOX_OH ', 'ISOPAO2_CH3CO3 ', & + 'ISOPAO2_CH3O2 ', 'ISOPAO2_HO2 ', & + 'ISOPAO2_NO ', 'ISOPAO2_NO3 ', & + 'ISOPBO2_CH3CO3 ', 'ISOPBO2_CH3O2 ', & + 'ISOPBO2_HO2 ', 'ISOPBO2_M ', & + 'ISOPBO2_NO ', 'ISOPBO2_NO3 ', & + 'ISOPNITA_OH ', 'ISOPNITB_OH ', & + 'ISOP_NO3 ', 'ISOPNO3_CH3CO3 ', & + 'ISOPNO3_CH3O2 ', 'ISOPNO3_HO2 ', & + 'ISOPNO3_NO ', 'ISOPNO3_NO3 ', & + 'ISOPNOOH_OH ', 'ISOP_O3 ', & + 'ISOP_OH ', 'ISOPOOH_OH ', & + 'NC4CH2OH_OH ', 'NC4CHO_OH ', & + 'XO2_CH3CO3 ', 'XO2_CH3O2 ', & + 'XO2_HO2 ', 'XO2_NO ', & + 'XO2_NO3 ', 'XOOH_OH ', & + 'ACBZO2_HO2 ', 'ACBZO2_NO ', & + 'BENZENE_OH ', 'BENZO2_HO2 ', & + 'BENZO2_NO ', 'BENZOOH_OH ', & + 'BZALD_OH ', 'BZOO_HO2 ', & + 'BZOOH_OH ', 'BZOO_NO ', & + 'C6H5O2_HO2 ', 'C6H5O2_NO ', & + 'C6H5OOH_OH ', 'CRESOL_OH ', & + 'DICARBO2_HO2 ', 'DICARBO2_NO ', & + 'DICARBO2_NO2 ', 'MALO2_HO2 ', & + 'MALO2_NO ', 'MALO2_NO2 ', & + 'MDIALO2_HO2 ', 'MDIALO2_NO ', & + 'MDIALO2_NO2 ', 'PHENO2_HO2 ', & + 'PHENO2_NO ', 'PHENOL_OH ', & + 'PHENO_NO2 ', 'PHENO_O3 ', & + 'PHENOOH_OH ', 'tag_ACBZO2_NO2 ', & + 'TOLO2_HO2 ', 'TOLO2_NO ', & + 'TOLOOH_OH ', 'TOLUENE_OH ', & + 'usr_PBZNIT_M ', 'XYLENES_OH ', & + 'XYLENO2_HO2 ', 'XYLENO2_NO ', & + 'XYLENOOH_OH ', 'XYLOLO2_HO2 ', & + 'XYLOLO2_NO ', 'XYLOL_OH ', & + 'XYLOLOOH_OH ', 'BCARY_NO3 ', & + 'BCARY_O3 ', 'BCARY_OH ', & + 'MTERP_NO3 ', 'MTERP_O3 ', & + 'MTERP_OH ', 'NTERPO2_CH3O2 ', & + 'NTERPO2_HO2 ', 'NTERPO2_NO ', & + 'NTERPO2_NO3 ', 'NTERPOOH_OH ', & + 'TERP2O2_CH3O2 ', 'TERP2O2_HO2 ', & + 'TERP2O2_NO ', 'TERP2OOH_OH ', & + 'TERPNIT_OH ', 'TERPO2_CH3O2 ', & + 'TERPO2_HO2 ', 'TERPO2_NO ', & + 'TERPOOH_OH ', 'TERPROD1_NO3 ', & + 'TERPROD1_OH ', 'TERPROD2_OH ', & + 'DMS_NO3 ', 'DMS_OHa ', & + 'OCS_O ', 'OCS_OH ', & + 'S_O2 ', 'SO2_OH_M ', & + 'S_O3 ', 'SO_BRO ', & + 'SO_CLO ', 'S_OH ', & + 'SO_NO2 ', 'SO_O2 ', & + 'SO_O3 ', 'SO_OCLO ', & + 'SO_OH ', 'usr_DMS_OH ', & + 'usr_SO3_H2O ', 'NH3_OH ', & + 'usr_HO2_aer ', 'usr_HONITR_aer ', & + 'usr_ISOPNITA_aer ', 'usr_ISOPNITB_aer ', & + 'usr_N2O5_aer ', 'usr_NC4CH2OH_aer ', & + 'usr_NC4CHO_aer ', 'usr_NH4_strat_tau ', & + 'usr_NO2_aer ', 'usr_NO3_aer ', & + 'usr_NTERPOOH_aer ', 'usr_ONITR_aer ', & + 'usr_TERPNIT_aer ', 'BCARY_NO3_vbs ', & + 'BCARYO2_HO2_vbs ', 'BCARYO2_NO_vbs ', & + 'BCARY_O3_vbs ', 'BCARY_OH_vbs ', & + 'BENZENE_OH_vbs ', 'BENZO2_HO2_vbs ', & + 'BENZO2_NO_vbs ', 'ISOP_NO3_vbs ', & + 'ISOPO2_HO2_vbs ', 'ISOPO2_NO_vbs ', & + 'ISOP_O3_vbs ', 'ISOP_OH_vbs ', & + 'IVOCbbO2_HO2_vbs ', 'IVOCbbO2_NO_vbs ', & + 'IVOCbb_OH_vbs ', 'IVOCffO2_HO2_vbs ', & + 'IVOCffO2_NO_vbs ', 'IVOCff_OH_vbs ', & + 'MTERP_NO3_vbs ', 'MTERPO2_HO2_vbs ', & + 'MTERPO2_NO_vbs ', 'MTERP_O3_vbs ', & + 'MTERP_OH_vbs ', 'SVOCbb_OH ', & + 'SVOCff_OH ', 'TOLUENE_OH_vbs ', & + 'TOLUO2_HO2_vbs ', 'TOLUO2_NO_vbs ', & + 'usr_GLYOXAL_aer ', 'XYLENES_OH_vbs ', & + 'XYLEO2_HO2_vbs ', 'XYLEO2_NO_vbs ', & + 'het1 ', 'het10 ', & + 'het11 ', 'het12 ', & + 'het13 ', 'het14 ', & + 'het15 ', 'het16 ', & + 'het17 ', 'het2 ', & + 'het3 ', 'het4 ' /) + rxt_tag_lst( 601: 624) = (/ 'het5 ', 'het6 ', & + 'het7 ', 'het8 ', & + 'het9 ', 'elec1 ', & + 'elec2 ', 'elec3 ', & + 'ion_N2p_O2 ', 'ion_N2p_Oa ', & + 'ion_N2p_Ob ', 'ion_Np_O ', & + 'ion_Np_O2a ', 'ion_Np_O2b ', & + 'ion_O2p_N ', 'ion_O2p_N2 ', & + 'ion_O2p_NO ', 'ion_Op_CO2 ', & + 'ion_Op_N2 ', 'ion_Op_O2 ', & + 'E90_tau ', 'NH_50_tau ', & + 'NH_5_tau ', 'ST80_25_tau ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -712,7 +713,7 @@ subroutine set_sim_dat 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, & 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, & 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, & - 621 /) + 621, 622, 623, 624 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -897,20 +898,20 @@ subroutine set_sim_dat 181, 183, 184, 185, 186, & 187, 188, 189, 192, 195, & 196, 197, 198, 201, 202, & - 203, 206, 208, 209, 210, & - 214, 215, 223, 224, 603, & - 604, 605, 606, 607, 609, & - 610, 611, 612, 614, 616, & - 617 /) + 203, 206, 209, 210, 211, & + 215, 223, 224, 233, 234, & + 236, 606, 607, 608, 609, & + 610, 612, 613, 614, 615, & + 617, 619, 620 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & - 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 82.389000_r8, & - 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & - 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & - 150.110000_r8 /) + 165.300000_r8, 165.510000_r8, 543.130000_r8, 229.610000_r8, 313.750000_r8, & + 193.020000_r8, 34.470000_r8, 199.170000_r8, 229.610000_r8, 177.510000_r8, & + 133.750000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, 339.590000_r8, & + 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, 406.160000_r8, & + 271.380000_r8, 105.040000_r8, 150.110000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -919,49 +920,49 @@ subroutine set_sim_dat num_rnts(:) = (/ 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, & 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 3, 2, 1, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & 2, 2, 2, 2, 3, 2, 2, 3, 3, 3, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 1, 2, 2, & - 2, 2, 2, 2, 3, 3, 3, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & + 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, & - 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & + 1, 2, 2, 2, 2, 3, 3, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, & - 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, & + 3, 2, 2, 2, 2, 2, 2, 3, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & - 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, & + 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 1, 2, 2, 2, 1, 2, & + 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, & + 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 1, 2, 2, 2, 1, 2, 1, 1, 1, & - 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, & - 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & - 1 /) + 1, 1, 1, 1 /) end subroutine set_sim_dat